|
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 O P R S T W X p ½
Length: 4308256 (0x41bd20)
Description: Bits:30009697 Philips computer tape "600414"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| CONFIG | «none» |
| CONFIG/CONFP.UF | ⟦f4bc89a2c⟧ pts_type |
| CONFIG/CONFT.UF | ⟦23636c7f3⟧ pts_type |
| CONFIG/CONFU.UF | ⟦14b788a42⟧ pts_type |
| CONFIG/CTAB01.SC | ⟦258636d74⟧ pts_type |
| CONFIG/CTAB03.SC | ⟦00fb8af8d⟧ pts_type |
| INT:PROD | «none» |
| INT:PROD//OBJCT.OB | ⟦03fd363f0⟧ pts_type |
| M:DECE | «none» |
| M:DECE//OBJCT.OB | ⟦f93e0c184⟧ pts_type |
| M:DECE/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:DECE/DFTAB.SC | ⟦4e12c5256⟧ pts_type |
| M:DECE/DRDC15.SC | ⟦48f58d124⟧ pts_type |
| M:DECE/DRDI01.SC | ⟦d5dbb9a29⟧ pts_type |
| M:DECE/DRDU01.SC | ⟦537ae2ab0⟧ pts_type |
| M:DECE/DRDY01.SC | ⟦b6c69c1f0⟧ pts_type |
| M:DECE/DRFD01.SC | ⟦a98d41941⟧ pts_type |
| M:DECE/DRGP01.SC | ⟦9e81a39ac⟧ pts_type |
| M:DECE/DRKB03.SC | ⟦630dd5e23⟧ pts_type |
| M:DECE/DRLT01.SC | ⟦25e1dcfbf⟧ pts_type |
| M:DECE/DRSW01.SC | ⟦8e6b4099e⟧ pts_type |
| M:DECE/DSKSUB.SC | ⟦d7705b785⟧ pts_type |
| M:DECE/DVDI00.SC | ⟦5ab79e3a3⟧ pts_type |
| M:DECE/DVDI01.SC | ⟦b209a826c⟧ pts_type |
| M:DECE/DVDY00.SC | ⟦0bb9abde1⟧ pts_type |
| M:DECE/DVDY03.SC | ⟦20d95a316⟧ pts_type |
| M:DECE/DVDY04.SC | ⟦5cd090532⟧ pts_type |
| M:DECE/DVGP02.SC | ⟦ae4c12648⟧ pts_type |
| M:DECE/DVKB00.SC | ⟦64f64dcfe⟧ pts_type |
| M:DECE/DVKB03.SC | ⟦8f0043453⟧ pts_type |
| M:DECE/DVTDI.SC | ⟦821bef7e7⟧ pts_type |
| M:DECE/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| M:DECE/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:DECE/DVTKB.SC | ⟦b24d4eb7d⟧ pts_type |
| M:DECE/DW1501.SC | ⟦539bc1c23⟧ pts_type |
| M:DECE/EBCDIC.SC | ⟦5509a2d88⟧ pts_type |
| M:DECE/FMTASK.SC | ⟦aa6d4b2ae⟧ pts_type |
| M:DECE/LDTASK.SC | ⟦0ce673c13⟧ pts_type |
| M:DECE/LKMAL.SC | ⟦8aaca8f58⟧ pts_type |
| M:DECE/LRPINT.SC | ⟦96de30ab4⟧ pts_type |
| M:DECE/M:DECE.LM | ⟦b72fd16b2⟧ pts_type |
| M:DECE/M:DECE.UF | ⟦06d1bbe75⟧ pts_type |
| M:DECE/MONTAB.SC | ⟦a5f186bbe⟧ pts_type |
| M:DECE/MONTIM.SC | ⟦e4789fca8⟧ pts_type |
| M:DECE/MSUBS.SC | ⟦00497ea08⟧ pts_type |
| M:DECE/PFTAB.SC | ⟦111c09cba⟧ pts_type |
| M:DECE/SCLASS.SC | ⟦f6848ea8b⟧ pts_type |
| M:DECE/ST8000.SC | ⟦ed51eac9b⟧ pts_type |
| M:DECE/SYSLDA.SC | ⟦5adc0c248⟧ pts_type |
| M:DECE/SYSLDM.SC | ⟦1b9ffa23c⟧ pts_type |
| M:DECE/SYSTAB.SC | ⟦9bed1bee7⟧ pts_type |
| M:DECE/TABORT.SC | ⟦8299350d0⟧ pts_type |
| M:DECE/TCLASS.SC | ⟦30349d1d3⟧ pts_type |
| M:DECE/TDISP.SC | ⟦51245917c⟧ pts_type |
| M:DECE/TIMER.SC | ⟦9d1d919a9⟧ pts_type |
| M:DECE/TIODMX.SC | ⟦e121b9d8b⟧ pts_type |
| M:DECE/TLDSEG.SC | ⟦0ecf8e33b⟧ pts_type |
| M:DECE/TMMLKM.SC | ⟦45fd0c009⟧ pts_type |
| M:DECE/TOSSFM.SC | ⟦1d5b02fe2⟧ pts_type |
| M:DECE/TOSSIO.SC | ⟦3a9c8922c⟧ pts_type |
| M:DECE/TPROC.SC | ⟦9a1eb7b30⟧ pts_type |
| M:DECE/TTMJOB.SC | ⟦e2ea3318f⟧ pts_type |
| S:DE | «none» |
| S:DE//OBJCT.OB | ⟦09e3f76a9⟧ pts_type |
| S:DE/ASSRUT.SC | ⟦0b9ef813c⟧ pts_type |
| S:DE/CDVRUT.SC | ⟦182fe476d⟧ pts_type |
| S:DE/DATCHK.SC | ⟦923b55e3b⟧ pts_type |
| S:DE/DE10ST.SC | ⟦aa875cf0b⟧ pts_type |
| S:DE/DE11ST.SC | ⟦032c79167⟧ pts_type |
| S:DE/DE1201.SC | ⟦093741ad6⟧ pts_type |
| S:DE/DE12ST.SC | ⟦68eee43d7⟧ pts_type |
| S:DE/DE14ST.SC | ⟦bd5bb27d7⟧ pts_type |
| S:DE/DE15ST.SC | ⟦974326a54⟧ pts_type |
| S:DE/DE20FS.SC | ⟦e2ee000b2⟧ pts_type |
| S:DE/DE20ST.SC | ⟦a3ba606c0⟧ pts_type |
| S:DE/DE21ST.SC | ⟦714111792⟧ pts_type |
| S:DE/DE23ST.SC | ⟦94b6e3650⟧ pts_type |
| S:DE/DE24ST.SC | ⟦92f413222⟧ pts_type |
| S:DE/DE30ST.SC | ⟦0a02e20cd⟧ pts_type |
| S:DE/DE31ST.SC | ⟦64e49c079⟧ pts_type |
| S:DE/DE40ST.SC | ⟦731cd18bb⟧ pts_type |
| S:DE/DE50ST.SC | ⟦c539d1bda⟧ pts_type |
| S:DE/DE60ST.SC | ⟦c6ab6694c⟧ pts_type |
| S:DE/DE70ST.SC | ⟦dd09d2b19⟧ pts_type |
| S:DE/DE80ST.SC | ⟦beb16bc2a⟧ pts_type |
| S:DE/DE90ST.SC | ⟦c461edced⟧ pts_type |
| S:DE/DEACCU.SC | ⟦2f1e284ba⟧ pts_type |
| S:DE/DEATTF.SC | ⟦337ce44f8⟧ pts_type |
| S:DE/DECOMP.SC | ⟦8c836d23d⟧ pts_type |
| S:DE/DECVRT.SC | ⟦6242cf40f⟧ pts_type |
| S:DE/DEDDIV.SC | ⟦fe402fec3⟧ pts_type |
| S:DE/DEDISC.SC | ⟦60afd2eca⟧ pts_type |
| S:DE/DEFDSC.SC | ⟦4342a4ae7⟧ pts_type |
| S:DE/DEGENE.SC | ⟦f2f32db77⟧ pts_type |
| S:DE/DELITT.SC | ⟦9aef0c402⟧ pts_type |
| S:DE/DELOCK.SC | ⟦6f0389acf⟧ pts_type |
| S:DE/DENT01.SC | ⟦8c15fb7fa⟧ pts_type |
| S:DE/DENT02.SC | ⟦101fcb91f⟧ pts_type |
| S:DE/DENT03.SC | ⟦6472285fc⟧ pts_type |
| S:DE/DENTER.SC | ⟦7b13a8070⟧ pts_type |
| S:DE/DENVAL.SC | ⟦60781a5f5⟧ pts_type |
| S:DE/DEPOOL.SC | ⟦7fa27c7ef⟧ pts_type |
| S:DE/DEPRFG.SC | ⟦76e7074e0⟧ pts_type |
| S:DE/DEPROC.SC | ⟦d3416cf1e⟧ pts_type |
| S:DE/DEREC2.SC | ⟦3625ab594⟧ pts_type |
| S:DE/DERECS.SC | ⟦65644ef85⟧ pts_type |
| S:DE/DESTAT.SC | ⟦d3e07e0de⟧ pts_type |
| S:DE/DEUNPF.SC | ⟦12c847657⟧ pts_type |
| S:DE/DEVGAC.SC | ⟦17bc0b58a⟧ pts_type |
| S:DE/DKRUT1.SC | ⟦2ed2a5aab⟧ pts_type |
| S:DE/DKRUT2.SC | ⟦ad6c2cdcf⟧ pts_type |
| S:DE/DKRUT3.SC | ⟦18172b0ef⟧ pts_type |
| S:DE/DKRUT4.SC | ⟦4419f226d⟧ pts_type |
| S:DE/PTSDE.SC | ⟦2c4ab8178⟧ pts_type |
| S:DU | «none» |
| S:DU//OBJCT.OB | ⟦1afb34f1b⟧ pts_type |
| S:DU/ASSPER.SC | ⟦c0563e1df⟧ pts_type |
| S:DU/ASSRUT.SC | ⟦1e5a3ecaa⟧ pts_type |
| S:DU/CONF5.UF | ⟦681cce450⟧ pts_type |
| S:DU/CONFIG.UF | ⟦009f7da63⟧ pts_type |
| S:DU/CONFPR.UF | ⟦578886b15⟧ pts_type |
| S:DU/CONRL9.UF | ⟦e0441619b⟧ pts_type |
| S:DU/COPVOL.SC | ⟦81920d7f7⟧ pts_type |
| S:DU/CRESUD.SC | ⟦b00fa49bd⟧ pts_type |
| S:DU/DDINIT.SC | ⟦32f3b1567⟧ pts_type |
| S:DU/DEDI01.SC | ⟦8bcc90dfd⟧ pts_type |
| S:DU/DEDI02.SC | ⟦568549ad8⟧ pts_type |
| S:DU/DEDI03.SC | ⟦fd57b19ca⟧ pts_type |
| S:DU/DEDI04.SC | ⟦2de7e7b14⟧ pts_type |
| S:DU/DEDICO.SC | ⟦07ed97ef1⟧ pts_type |
| S:DU/DEDISC.SC | ⟦e5f1f5742⟧ pts_type |
| S:DU/DEDISU.SC | ⟦8623a9e22⟧ pts_type |
| S:DU/DEINIT.SC | ⟦e38dfa7b1⟧ pts_type |
| S:DU/DELITT.SC | ⟦22fb2dad1⟧ pts_type |
| S:DU/DENTER.SC | ⟦3d00dc45d⟧ pts_type |
| S:DU/DEPOOL.SC | ⟦9a19d2904⟧ pts_type |
| S:DU/DERR:O.SC | ⟦9851cecc4⟧ pts_type |
| S:DU/DERROR.SC | ⟦8ab8a8bbc⟧ pts_type |
| S:DU/DILINK.LM | ⟦7f5250028⟧ pts_type |
| S:DU/DISC.SC | ⟦7c847d050⟧ pts_type |
| S:DU/DKRUT1.SC | ⟦ed3030bc5⟧ pts_type |
| S:DU/DKRUT2.SC | ⟦629f1f80f⟧ pts_type |
| S:DU/DKRUT3.SC | ⟦dfa48162d⟧ pts_type |
| S:DU/DKRUT4.SC | ⟦7e9ee0dfc⟧ pts_type |
| S:DU/DSKERR.SC | ⟦9936d66b0⟧ pts_type |
| S:DU/FILER.LM | ⟦cec020668⟧ pts_type |
| S:DU/M:PROC.UF | ⟦ea35933ef⟧ pts_type |
| S:DU/MON10.LM | ⟦86af59c00⟧ pts_type |
| S:DU/MONHDK.LM | ⟦1d572223b⟧ pts_type |
| S:DU/OBDIR.UF | ⟦37b9762f5⟧ pts_type |
| S:DU/PTS.SC | ⟦af6d2ffe6⟧ pts_type |
| S:DU/REORGS.SC | ⟦384538ec1⟧ pts_type |
| S:DU/REORGU.SC | ⟦fad33c04b⟧ pts_type |
| S:DU/RUT.UF | ⟦85ddf3918⟧ pts_type |
| S:DU/WRIT12.SC | ⟦a19e128f6⟧ 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 | ⟦d689c6a77⟧ 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 | ⟦bbd95ebf9⟧ 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 | ⟦caa0a2f3f⟧ pts_type |
| SAG/TOSSUT.LM | ⟦93de6c66f⟧ pts_type |
| SAG/TRA.LM | ⟦1ee307c49⟧ pts_type |
| SAG/XRF.LM | ⟦fc8a96bdf⟧ pts_type |
| SHBAPL | «none» |
| SHBAPL//OBJCT.OB | ⟦6ca81447f⟧ pts_type |
| SHBAPL/DCTASK.SC | ⟦941192c76⟧ pts_type |
| SHBAPL/DEAPPU.SC | ⟦b300b0130⟧ pts_type |
| SHBAPL/DECONV.SC | ⟦7cdf41dd9⟧ pts_type |
| SHBAPL/DEDDIV.SC | ⟦fe402fec3⟧ pts_type |
| SHBAPL/DELINK.LM | ⟦d06be969a⟧ pts_type |
| SHBAPL/DELITT.SC | ⟦9aef0c402⟧ pts_type |
| SHBAPL/DENT01.SC | ⟦8c15fb7fa⟧ pts_type |
| SHBAPL/DERROR.SC | ⟦6b013827f⟧ pts_type |
| SHBAPL/FDIO.SC | ⟦009e225aa⟧ pts_type |
| SHBAPL/M:PROC.UF | ⟦44e0c359d⟧ pts_type |
| SHBAPL/OBDIR.UF | ⟦9a9582253⟧ pts_type |
| SHBAPL/PRDAPL.LM | ⟦d06be969a⟧ 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.08.27 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 , &l 'v & @ "T A A & " @ 8 ! P $ @ " A & @ 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 P^ @ @P* @ NT$ @ @ BP A & @ A B * W. & _^ Y A f @ R )j )Z A 8 f @ NP %0 %x % A " @ @ A A G "> A , A A @ A @ A A A X A ( E X Y X E Y & '
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=» A _ % _ XPD @ @ P @ R8 @ A ( @ R )j )Z ( A A 8 f @ Z6W % X " @ G @ G G ) % &l &l( "bW$ A A % @ ! : A N . A % @ P T P _ * @
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=» +| : A % @ P T V _ 11P . D : 00 :: " _l : & 0 P 1 Q 1 Q 0 P @ "P 1 Q F A d A & : &H : p 0V , - P X 9A_ : $2R" ;D (! 0R U R V
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=» 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 +| 8 +| @ T "
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=» ( @ @ , T~ A : M R W - M : P V 0 : W W W p l C P l C ( : & &l &r W W W W _$ W _, W &r "T ? $ & Y :0123456789ABCDEF A A % v < ( P @< A &
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=» @ @ , & xPT Z ( P T T _. P P @ Z < ! X" !,,X( 5 _ @ !@@TV @ ! CT< $ % Q ( ! P R| ! Qv % _ . +| W( +| @ ! AP P T8 A " T ( $(R" A A 7# A
0x05db38…05dccc Dummy {f00=0x001d, f01=0x0190, f02=» 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 74 W ,f + P T P W @ "T @ h Y A : P 8 $ "T @ $ A 6 A @
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x0190, f02=»_n @ DP % [ : A D D A F A H +R R4Q@ A % A H A D @ D @ @V2 & @ D D @ @ H E B_T A % A H_L & _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 7P @, : R !LLP< R 1 R 2 Y A,b A,` A,^ Y A,^ A,` @,bW S 1 A,^ S 2 A,` A+ - / :
0x05dff4…05e188 Dummy {f00=0x001e, f01=0x0190, f02=» X "' "' A,F @, . R 0 $' R T W $ T A,F R !LLP @+ T A,( A,* R 1 R 8 A,: R 6! A,8PJ A,> A,@ @,( @,* :P A,( A,*S$ @,> @,@ : Y4 @,( A,8 @,* A,:W : A+ A+ @+ @+ @,` :P A+ A+ @,8 @,: : A,8 A,:Y4W R 6:B A+
0x05e188…05e31c Dummy {f00=0x001e, f01=0x0190, f02=» A, A, A, . A,Z9H A,X A,V A, A, A, @, P A, A, B A/ ( B 1 @/ C C @,X C ( C B / 1 : @,X:c A, A,, A,. A,0 A,2 @+ A,$ @+ A,& A,> @,$ @,& :P A,$ A,& @,> R 1$ 0 A,( 0 A,* @,(T @,*X" @,(
0x05e31c…05e4b0 Dummy {f00=0x001e, f01=0x0190, f02=» A,0 @,* A,2_ @,( A,, @,* A,. @+ A,( @+ A,*W 4 T^ Q 1 Q Q ,J R A,L @, A,T A,V @,X C ( C @,R /T @,dT 3 A,d : W W : _ @, T _ _ R @+ A,( @+ A,* !LLPJ @,, T @,. @,` 3 P A,4 P A,6 @,, @,. @,( @,* : A,, A
0x05e4b0…05e644 Dummy {f00=0x001e, f01=0x0190, f02=»0 P A,, 0 A,. A,( A,* @,` : A,( A,* @,( @,* @,` :P A,( A,* @,, @,. @,` : A,, A,.^6 @,( @,* P P :P Q Q P A,, 0 A,. @,, @,( @,* : A,, A,.T Q Q @,, Q @,. 1 @+ @+ @,( @,* : A+ A+ A,, A,. @,FP @,8 @,: @,( @,* : A,8 A,:
0x05e644…05e7d8 Dummy {f00=0x001e, f01=0x0190, f02=»/ : : A, @, @,Z A, 2 C A, @, @, 1 A,T A,V ( @,R / 1 ,L 6 P J S T $ 1T P _ , X`_2 A, : @+ T 3p @, 1 Q : , 3p @, 9 @, K @, K @,( K @,* K @,4 K @,6 K K K R 2 K R
0x05e7d8…05e96c Dummy {f00=0x001e, f01=0x0190, f02=» ( @,R / 1 : @+ T 3p @, 1 Q : , 3p @, 3n A, 6| 2 A,L @,^ % @,L R 2 R 1 % Y @,( A,> @,* A,@ @,4 @,6 A,B A,D :P A,( A,* ,J @,^ C @,B A,T @,D A,V( C @,B @,D @,` @,FP @,H :P A,B A,D @,( @,BYXR @,* @
0x05e96c…05eb00 Dummy {f00=0x001e, f01=0x0190, f02=»,BY`R @,* @,DYl @,> A,( @,@ A,* : A, @+ Q6 A+ 9 9 9 A9 ( 9 9 A9 ( : 9 @, 0 A: @,4 @,6 :) K& @,( @,* :9 K& , :? @, T :H 9 9 A A9 ( ,J @, : A, 7L T @, T : A+ A, - A, T>
0x05eb00…05ec94 (0, 120) Dummy {f00=0x001e, f01=0x0190, f02=», J A,( J A,* J A,4 J A,6 6| R @,X9c A, @, 9 0 A70 0 A72 @70T @72 9V P @,4T P @,6 7` A,> A,@ A7. @70 @72 P P :P A70 A72 @,> @,@ @7. @,4 @70Tr @,6 @72Th P A,4 P A,6 A,> A,@ A7. P 0 @,( @,* :P Q 1 P A,( 0 A,* @,> @
0x05ec94…05ee28 Dummy {f00=0x001e, f01=0x0190, f02=» Q @,6 Q _ 8 7` 3 @,( I @,* ) @,4 I @,6 I 7` ( - : 9 FILE 9 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH : A DELETED
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x0190, f02=»Q R S P W S _ R _ ;A [ :: ;: ;
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< D A< D A<
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=»= = = : = = = : <, 2 C C ( B & D B .P " T D : A< @ A<0 A<" = R ' P P =HN N O < M ? =HO P Q < [+ [h 4 = [4 4 P =HR8R8R8 < rS S E = q+
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=»=HR8R8R8 < L L P@ =HR8S8T8 < 1g 1h P =HKhLhMh < L L W 2 A<. A< $ A<; $ A< A<- R ! T <, A< ( B D " D P C C ( @D C I^ D <, 2 C I I " C ( @D
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=»<. D <, R R C ' P ( C ( B R % R E R E B N< % Z R R E ( ( ( A<F A<H A< : A: ;: A;: ; A; ; A; 2 <h =z <, A<0 A< 2 =
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=» @< U, Y A<0 Y A<0_ A< A<0_ < A<0 A<" =z < ( $ A<. = <, ( = < B & D B P Wl @<" Y 2 < < P W T = T P < < W( $ Y P = _2 <
0x05f7a0…05f934 (0, 121) Dummy {f00=0x001e, f01=0x0190, f02=» ( = <, B & D B P W @<0 Y , < < P W T = T P < < W $ Y P = _2 < < = = @< TP @< U| QB A<0 Q4 A<0W* T P6 @: ;:V. A: = = < ( B <,(
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=» $ M _> H < ^| - ( M _ @: Q> < ^ ( M H - _" @;:Q < ^ $ M D - _" A; <e J <N =z < ; @; QT @; 4 T = : 1 Q @; Q4 4 T : = 1 Q @; Q _* @; W @< @< : Q
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=»< R @< Y Y 2 T T 4 R _ T 4 : U 5 <J = < A<0 G A<L @< Q U( _ 2 % 2 * % Y : ; G 2 * @; Q Pl * BA % DS % PO % T % 5 Y 5
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=» 2 @< R V 2 U A< = ]D 2 2 @<L % % <J ) % % Z @< % @< % @< % < ( % Y 2 % @< O . R O 1 R O 0 = < ( @<& D H : @< T < : I
0x05fdf0…05ff84 Dummy {f00=0x001e, f01=0x0190, f02=» Y I I2 I I2 AH H ( I I2 `H YP 2 : R _ P 0 - : ; [ V - - ' I I d I I I Z : : ; J I : V *W R - _ 1 T R PJ - _ : : R _
0x05ff84…060118 Dummy {f00=0x001e, f01=0x0190, f02=» Jd Jz 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 . N 0 R
0x0602ac…060440 Dummy {f00=0x001e, f01=0x0190, f02=» & 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. ( ] ] S S S S
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 :QX P #P ( B. T P ' " P : P S P S P % `_" X1 X2 M1 D2 F1
0x060768…0608fc Dummy {f00=0x001e, f01=0x0190, f02=» 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; G. x
0x0608fc…060a90 Dummy {f00=0x001e, f01=0x0190, f02=» 6"( R ~ | S P #P & B. T P ' " P : P S | P S ~ P " ^_"
0x060a90…060c24 Dummy {f00=0x001e, f01=0x018e, f02=»(INVALID VALUE) Q | P SUK A1,9 R , P RF(NP) ASCH20 /30 <= /39 (VALID VALUE) R * P SUK A1,8 R Z , P RF(N) ASCH30 /3A <= /40 (INVALID VALUE) R l P SUK A1,6 R ( P RF(NN) ASCH30 > /46 (INVALID VALUE) R & P ADK A1,7 /41 <= /46 (VALID VALUE) R PASCH
0x060c24…060db8 Dummy {f00=0x001e, f01=0x0190, f02=» PASCH30 EQU * S P LDK A1,2 PSW =NEGATIVE (2) S PASCH40 EQU * S < " P ORK A1,/F0 COMPLETE PSW VALUE S P " P SC A1,2,A14 SET PSW IN STACK S v " P RTN A14 RETURN USING NEW PSW S P EJECT S 6 P* D L F N A M * S 6
0x060db8…060f4c Dummy {f00=0x001e, f01=0x0190, f02=»ON NUMBER AS INPUT FILE * S ~ 6 P* (1, 1 RESPECTIVELY) * T ( 6 P* * T b 6 P* INPUT: OUTPAR = FILENAME * T 6 P* WORK : A1 - A4 *
0x060f4c…0610e0 Dummy {f00=0x001e, f01=0x0190, f02=»AM EQU * T P LDKL A1,INPPAR U P LDKL A2,OUTPAR U ( ( P LDK A3,8 NBR OF CHARACTERS TO COPY U @ ( P CF A14,COPSTR SAVE WANTED FILENAME U l " P LDKL A1,OUTPAR OUTPUT ADDRESS U P LDKL A2,NBR01 INPUT ADDRESS U ( P LDK A3,8 NBR OF CHARACTERS TO MOVE U
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=» GZ H % > % . % A ^ 1 I V 1 Y :C H A M 4 H R M 4 PB " P :C_ @ 9C E ^ 4 V V ( T # Y$ @ : ( 0 @ D A f A h D ( A ;FR A W H T A Z 2 V
0x07c2dc…07c470 Dummy {f00=0x0027, f01=0x0190, f02=» H A ^ A d A l % @ 0 A . @ 4 A 2 @ 8 A 6 @ < A : @ ^ @ d A R A ` A L A @ h A f V $P D " X E _ @ P @ . A 0 @ 2 A 4 @ 6 A 8 @ : A < @ P V H V H % V V V V
0x07c470…07c604 Dummy {f00=0x0027, f01=0x0190, f02=» V %. @ T8 @ P !* !* V V V V ( _ MR:FC W MR:OPN : D D ! L Qz L , % X P$ P P 0 V G = G 0 G X <A @ BQ( P D G X G = X G X G 0 V
0x07c604…07c798 Dummy {f00=0x0027, f01=0x0190, f02=» T N M N M T - Y R T V ;AP 0 N 0 N MR:RS W MR:GER F % P 0 F P G G 0 1 G T G W F P~ N G G = U R H 4 8 U R L H V V V V V F P 0 G T G F F
0x07c798…07c92c Dummy {f00=0x0027, f01=0x0190, f02=»U R H 0 0 0 W MR:PUR F % P 0 F P F G G F G T G W 9 F TX F PR F U R D x F P 0 G T G F F 0 0 0 W MR:ENR F ! P 0
0x07c92c…07cac0 Dummy {f00=0x0027, f01=0x0190, f02=» 1 G T G W F PH N G G = U R H F Pd 0 G T G F P 0 " F P. 0 G T G F P U R H l 0 " 0 " 0 " W MR:PUW F % P 0 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 R H F P. 0 G T G F P U R H 0 MR:AR W MR:ASB & P P 0 2 F P F D E T %W ) G G 0 2 W MR:REL & P P 0 D G G P 0 E T E 0 MR:L
0x07cc54…07cde8 Dummy {f00=0x0027, f01=0x0190, f02=» 0 &W MR:WAI F R 0 R G < ( B F B ] B P W B P ; R _ D G G 0 R &W MR:INF < ( B 0 MR:RWR W MR:RBR F P $ T 0 F T F P@ 0 G T G F
0x07cde8…07cf7c Dummy {f00=0x0027, f01=0x0190, f02=» F U R H N G G = 0 0 MR:PC W MR:EXI D ( 0 W MR:DAT @ T I Y 0 6 W MR:TIM @ " T I I Y I < I I 2 I 0 p MR:ES
0x07cf7c…07d110 Dummy {f00=0x0027, f01=0x0190, f02=»T( " U R H T X N 0 0 W MR:REW F $ P P 0 p 1 U R H N 0 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 #4 # :* CREDIT CODE LINKER PRR 11.0 800821 * * DATE XXXXXX * PAGE 0000 *
0x07d2a4…07d438 Dummy {f00=0x0027, f01=0x0190, f02=» UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
0x07d438…07d5cc Dummy {f00=0x0027, f01=0x0190, f02=»UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU IDENT O T:D TRA TOTALS: NOD P:PIL T:FMT P:S001T:KEY S:GTABT:
0x07d5cc…07d760 Dummy {f00=0x0027, f01=0x0190, f02=» B G G . P : < = G T . F P _ F =h P8 T* . F P _ F P _ : & A ' : @ ' : # HT W T W ( < ) = # : # H P n P ( ) = # :
0x07d760…07d8f4 (0, 159) Dummy {f00=0x0028, f01=0x0190, f02=» " V H H x V H H V H H
0x07d8f4…07da88 Dummy {f00=0x0028, f01=0x0190, f02=» z V H H V H H x
0x07da88…07dc1c Dummy {f00=0x0028, f01=0x0190, f02=»
[…0x3…]
0x07e0d8…07e26c Dummy {f00=0x0028, f01=0x0190, f02=» | n n | n n
0x07e26c…07e400 Dummy {f00=0x0028, f01=0x0190, f02=» @ !
0x07e400…07e594 (0, 160) Dummy {f00=0x0028, f01=0x0190, f02=» : #z Z 4 [ ! :f Q P # :b TD A! A! [ T 9h A! & A! T A!" T 9h A!$& A!( A!& ! W P@ P Z P Q0 0P* P$ P T [ # : $ ! H #z A!@ A! A!b V NO 3 D S S H S
0x07e594…07e728 Dummy {f00=0x0028, f01=0x0190, f02=» ! H # @ h @ tW& # @ t @ h @ p @ U A =a>a R, @ V A =A>A A t A h " # : A A l F ; &P _ # : : T : _ # %T
0x07e728…07e8bc Dummy {f00=0x0028, f01=0x0190, f02=» ' _ # %T # : )P _ [ [ [ [ ; Z [ : [ [ : Z # Z # Z Z Z Z Z Z Z : = $V % D $f % $p ( ( I/O ER
0x07e8bc…07ea50 Dummy {f00=0x0028, f01=0x0190, f02=» : X " : : : G P W l : J A : _ A : _ A : _( A : _4 A : _@ A : d _L A : _X A : r _d A : _p A : _| A : _ A : _ A : _
0x07ea50…07ebe4 Dummy {f00=0x0028, f01=0x0190, f02=» B A p A t A ( C ( C ( C A( (< @( ,h T (^ @ X A @ P A `WF A @( T R2 ]B @ T !CCT A N A Z C _n V A V $P$ D D X D * E _( A P @( P T&
0x07ebe4…07ed78 Dummy {f00=0x0028, f01=0x0190, f02=» | % @( A'8 A'> V V _ @ 9CV @ NT DW D A U A @ f A h @ p A t A A V V @ t $P( D X ) #4 - M M _, ) V $P " #4 ) A _ ) @ ` A A N N Z C C @ 9D % N A Z
0x07ed78…07ef0c Dummy {f00=0x0028, f01=0x0190, f02=» : A ( : 2 R > : 56v@7 7 > - - 7 ( - 2 #z @ V J " T. T Tn B P, B $ PZ B P Y<PL P T T W4 P4 W0 J )P ;M C W # : #z A,R d
0x07ef0c…07f0a0 Dummy {f00=0x0028, f01=0x0190, f02=» T| ^ ` ^" :A B ;m ) " ) #4 ) ( T B ! T @) ! T A) Z`_ A) WB ! T. ^ T A) @) ! T _ A) W ! T A) ) # : @) @) @) " T P, @) U + Wv R V $Rp A) A) WB
0x07f0a0…07f234 (0, 161) Dummy {f00=0x0028, f01=0x0190, f02=»_ _ @) R V$ H ^ " @) (" :A + : + @) A) _8 R @) ^ R W ) T W #4 V8 A) ,< R @) @) A) A) A) R S _P ) : # @) R P S V R V A) _" # : #z A- b R @ jR -z_ $:ARL:A
0x07f234…07f3c8 Dummy {f00=0x0028, f01=0x0190, f02=» A P S r S # : @ 9FV@ @ r C E T A UT6W& D E P E DDP R E P D A T -z _^ _ S V R Z b S A j : #z @ 9CV 9IR 4 # : 2 R >_ #z @ 9L . @ 9C 4 R ` C / 0x 0 L n
0x07f3c8…07f55c Dummy {f00=0x0028, f01=0x0190, f02=» ~ 1 1 2b 2 ' 2 2 A A A A A A A A n A z A A A @ p A t @ ,P A , # : R @ P " R P / @0vP 6 ,P _ P 2 0x 0 @ :DV W 1 2b =8 =8 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~ A0v_ : (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=» : P : Pz 9R C T @ < A <W D C C ( # U : D T A N D C C B U P : 1" 1" 1" 4P _ 4 9 1" # : $P D
0x07f884…07fa18 Dummy {f00=0x0028, f01=0x0190, f02=» : V R : #z x 4 v #4 @ 9C 4 @ T R < 4 `W R < ` @ @ A A C x H " 5 . < X P & ;D _ R % ;D @ r 5 H " 5 < 0 5 A 5 p H
0x07fa18…07fbac Dummy {f00=0x0028, f01=0x0190, f02=» @ T A A @ P R V S #4 V # : : A wP A _ @ TL v t T A R V S #4 V _V @ l l * A l A _ _ @ _ @ $ @ r _. : 6 2 . . < 8 4 0 0 @ T R :h -Q 5j : @ T 4
0x07fbac…07fd40 Dummy {f00=0x0028, f01=0x0190, f02=» # # : #z R 9i @ :LRn 7 : P( 7 7 : P D7 D7 6 R ;a T C :OV C ;NV R Wp 7 : P4 @ <DR" 7 7 : P D7 W 9R 6 ! Z C 8 W
0x07fd40…07fed4 (0, 162) Dummy {f00=0x0028, f01=0x0190, f02=» R P*?A S ?i R : S # : n z f r ~ j v 9Z9Z9Z9R 0 0 4 8 #z 2>iP & R W R @ 9C 4 # : v " 2?m v #4 X8 8"8 v v Pd v @ T ( @
0x07fed4…080068 Dummy {f00=0x0028, f01=0x0190, f02=» T. B P P& Q @ ` Q # : _ >_ # 8 8 B 0P ( 1 " P$ " ) # @8 I W P I # : @8 >_ #z W #z Q : U 9g D: $ $ T2 @ ~ A ~ V P V S S M X V ;
0x080068…0801fc Dummy {f00=0x0028, f01=0x0190, f02=» 8 5R6Q0 Q, ;v _` Q < X T _t W #z " P W ; V W ; R R T T R Q ; ; ; ; V R T(W #4 Q
0x0801fc…080390 Dummy {f00=0x0028, f01=0x0190, f02=» W : #z @ ~ D XP A ~ @ ~ D XT D V [ A ~ # : A ~ @ ~ V R P V S E X V S _< # P, Q B ^ _ @ T C _0 # : #z $P D D P V L PF =h & >A D R _ " P W
0x080390…080524 Dummy {f00=0x0028, f01=0x0190, f02=» C A l # : # (P:W (P4 H V W P&Q = P _ 5 ( 9 ) = 8 # : >_F <T 5 9 : #z @ PF R ! @ R P : A @ S R BV 4l # : #z R ? ?. ? ?D X?` #z W #z R ! TR
0x080524…0806b8 Dummy {f00=0x0028, f01=0x0190, f02=»! D?x D?~ P # P Tr T Q !CCP @ P A P @ 9EV 9GR ` R C @ P 8 # : 2 R >_ B_ R 0P Y P : P ! P P P Q P :> > ?(?(> ?(> ?(> ? ?(> B C P Z b ^ #z R # &
0x0806b8…08084c Dummy {f00=0x0028, f01=0x0190, f02=» U : W @ ! P& R ! n #4 A A & A $ # : [ A $_ #z A A & A A n @ $P A $ # : #z W #z @ 9Z n A $ A C C P6 ' ?A n : n : & n C @
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=» ' ?A BJ BH !CCT W2 T W, X ' P" X A T b " P BT BT b P4W C C W$ , P - C - A N P Y # : @ C _ ^ B Z > b @ #z @ P @ Y A 8Pd X V W QT V W Y"
0x0809e0…080b74 (0, 163) Dummy {f00=0x0029, f01=0x0190, f02=» ( V @l A p A t A @ 9 R A A 9 R| 'b V A Z A > A ^ A B A j A v A A A A A A R 2 A N A @ f A h A @ *P A * V $P D " X E _ ` ` 'r D A T A ` @ :DR$ D @ N A N @ R W R @ RP W '| A R @ RR @ 9DR
0x080b74…080d08 Dummy {f00=0x0029, f01=0x0190, f02=» f % @ ` @ L ( A L A X A A ( A % @ ` T ) A ` ( @ T @ h A f : A _ D ? :n b S j S A j @ LP. A' @ LR A' V A L:A H' A' V : N Z P D C f A : E $ N Z " P C _ :
0x080d08…080e9c Dummy {f00=0x0029, f01=0x0190, f02=» * / #z N ( @ h ( # : #z b S V P R #4 S _ # : b S S U W S #4 V S 4 S R V : #z A*` b R @ jR *X_ $:ARL:ARB H r " r $ D @ j R
0x080e9c…081030 Dummy {f00=0x0029, f01=0x0190, f02=» E T A UT6W& D E P E DDP R E P D A T *X _^ _ S V R Z b S A j : #z @ 9CV 9IR 1 # : 2 R >_ #z @ 9L + @ 9C 1 R ` C , -V - L n 0 8 0 n f - L z 0 8 0
0x081030…0811c4 Dummy {f00=0x0029, f01=0x0190, f02=»/ A A A A A A A A n A z A A A @ p A t @ ,P A , # : R @ P " R P , @-TP 6 ,P _ P 2 -V - @ :DV W - /@ : : R V S #4 V V / /r '
0x0811c4…081358 Dummy {f00=0x0029, f01=0x0190, f02=» L 8 - 9 W6 @ =LR L V( 5 @ =LV X R Y _t X~ A-T_ : (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=»60 C T @ < A <W D C C ( # U 7n D T A N D C C B U P 7n . . . 4P _ 4 9 . # : $P D H ^ E _ $P D H ^ E _ : R W
0x0814ec…081680 Dummy {f00=0x0029, f01=0x0190, f02=»#4 @ 9C 1n @ T R 9 1 `W R 9 ` @ @ A A C x H " 1 . < X P & ;D _ R % ;D @ r 1 H " 1 < 0 1 A 1 p H " 1 < 1P T A @ P& @ P
0x081680…081814 (0, 164) Dummy {f00=0x0029, f01=0x0190, f02=» # : : A wP A _ @ TL v t T A R V S #4 V _V @ l l * A l A _ _ @ _ @ $ @ r _. : 6 2 . . < 8 4 0 0 @ T R :h -Q 2H : @ T 1 2 R > :; ; ;x; 2t2<2<2<2 2 2 2 2 2 2 2 >$> >
0x081814…0819a8 Dummy {f00=0x0029, f01=0x0190, f02=» 6 P( 4h 4 6 P D4 D4 3 R ;a T C :OV C ;NV R Wp 4p 6 P4 @ <DR" 4x 4 6 P D4 W 60 3 ! Z C 5 W ", @ C C @ # # : # N
0x0819a8…081b3c Dummy {f00=0x0029, f01=0x0190, f02=» 7n S # : n z f r ~ j v 68686860 0 0 4 8 #z 2>iP & R W R @ 9C 1 # : v " 2?m v #4 X4 5 5j v v Pd v @ T : @ <CV C @ <CV : C P C $P _
0x081b3c…081cd0 Dummy {f00=0x0029, f01=0x0190, f02=» _ >_ # 5 5 B 0P ( 1 " P$ " ) # @5 I W P I # : @5 >_ #z W #z Q 6 U 9g D6 $ $ T2 @ ~ A ~ V P V S S M X V 8 :a # R R S V _ S <H % [ [
0x081cd0…081e64 Dummy {f00=0x0029, f01=0x0190, f02=» Q, 8T _` Q < X T _t W #z " P W 8j V W 8j R R T T R Q 8 8 8~ 8~ V R T(W #4 Q P R Zf _n R 6 P
0x081e64…081ff8 Dummy {f00=0x0029, f01=0x0190, f02=» ~ # : A ~ @ ~ V R P V S E X V S _< # P, Q B ^ _ @ T C _0 # : #z $P D D P V L PF =h & >A D R _ " P W 7n " 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 J )P ;M C W # : # (P:W (P4 H V W P&Q ; P _ 5 ( 9 ) ; 8 # : >_F <T 5 9 : #z @ 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 ` R C @ P 5 # : 2 R >_ B_
0x082320…0824b4 (0, 165) Dummy {f00=0x0029, f01=0x0190, f02=» & S PD " @ n D U 7nW A $ @ ! P ! @ n ) A @ $ R` @ n D U 7nW @ ! P& R ! n #4 A A & A $ # : [ A $_ #z A A & A A n @ $P A $ # : #z W
0x0824b4…082648 Dummy {f00=0x0029, f01=0x0190, f02=» C @ # R 3 #z = RJ @ n D " :AT 9h P _ R " S P 9H R @ n 2 # : # ' ?A ? ? !CCT W2 T W, X ' P" X A T b " P ? ? b P4W C C W$ , P -
0x082648…0827dc Dummy {f00=0x0029, f01=0x0190, f02=» W Y" X P X P" 4# ! 5 X T A A W 5 ( 8 ) 9 + _j # :
0x0827dc…082970 Dummy {f00=0x0029, f01=0x0190, f02=» F .R F 0P F *Q &V 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=» * 2 ' F 0 U U F .?BV F X ,?d'> ( " #4 U 2 U G * F .?CV@ F X ,?A'> ( " #4 U 2 U G * G . G / : F - n " p U U G * : G . G / :
0x082b04…082c98 Dummy {f00=0x0029, f01=0x0190, f02=»! ( _()0 :R ' :)P)Z)d)p) ) ) ) ) ) ) * * *(*R*x* * * * + +R+d+z+ + + + + + , , ,,,F,^,b,v, , , , , , -.- - -8-R- -l- - . - - - - -.- -8-R-l- - - - - . . - - - ...D.T.f- LOAD MAP LB TABLE CALL TABLE PERFORM TABLE LITERAL POOL CROSS REFERENC
0x082c98…082e2c Dummy {f00=0x0029, f01=0x0190, f02=» LINKER STATISTICS TOTAL (SEGMENT LOC MODULE COMMENT $LOC DATA IX SYMBOL DEFINED IX TYPE LOC DATA 0SYMBOL TYPE VALUE SEG-DEFINED REFERENCES ALL VALUES DECIMAL < S E G M E N T N U M B E R O F
0x082e2c…082fc0 Dummy {f00=0x0029, f01=0x0190, f02=»PUT LOAD ADR INCORRECT UNREFERRED LITERALS UNDEFINED LITERALS NO START ADR DBL DEF MODULES UNSATISFIED EXTERNALS MODULE LENGTH ERROR TRANSLATION ERRORS WRONG TRANSLATOR RELEASE ADDRESS TABLE OVERFLOW TOO MANY LITERALS FORMAT LENGTH ERROR
0x082fc0…083154 (0, 166) Dummy {f00=0x0029, f01=0x0190, f02=»NOD SEQUENCE ERROR CALL TABLE PERFORM TABLE LB TABLE LITERAL DESCRIPTOR TABLE PICTURE DESCRIPTOR TABLE FORMAT DESCRIPTOR TABLE LITERAL POOL SIZE PICTURE POOL SIZE FORMAT POOL SIZE INTERPRETABLE CODE SIZE PROGRAM LENGTH = NUMBER OF ERRORS KEYTA
0x083154…0832e8 Dummy {f00=0x0029, f01=0x0190, f02=»PER MODULE SEGMENT SIZE PERCENTUAL USAGEPROGRAM LENGTH =LINKAGE ERROR : : XXX.XXX BYTES, XX.XXX ENTRIES : XXX.XXX BYTES, XX.XXX % TLK.ERR. U6 r # T V u0 ' 0 9d A/ 0 d 0 0 A/ @/ Px! R A/ 0 _ @
0x0832e8…08347c Dummy {f00=0x0029, f01=0x0190, f02=» / / (x / R W ( / P !00X R !00P P / TZ $ Q* R - !..TH R + ! T< R , ! T2 S -W( R !..T R T R ! T S % ( / P _ % # : / R R ` R :l R ` A/ / :
0x08347c…083610 Dummy {f00=0x0029, f01=0x0190, f02=» f ~ @ GZ A p A t A @ @ P /" : A S A W V ?H/ 4P Tr Q / 3 3 3 3 3 3 3 3 /@ 3 U`/ 3 4 8 N Z " @ A T
0x083610…0837a4 Dummy {f00=0x0029, f01=0x0190, f02=» 7 A < W < T U`/ 3 3 V P !* @ M A Q A @ M A Q A @ M A A A A : # A3 A3B V 3 S S @ S @ S S V # : # > @ T U` 3 P
0x0837a4…083938 Dummy {f00=0x0029, f01=0x0190, f02=» ' @3 # A3 > R :R8W @3 P.> > & 3 @3 S :a S @3 A4B V A3 # : # # A4d V " j #4 ?h #4 S A4 V # : f j r v ~ . 0 2 4 : < # @ @ P 4 4 ? > P L A P .
0x083938…083acc Dummy {f00=0x0029, f01=0x0190, f02=»> P K a o W K ? 6 A 4 > P F q P : W F P : ? 4 # : f j ~ # @ P @ A5 5 A @ A5 @5 A D 5 A @ A5 @5 A F T A @ A5 T @5 A H 5 A @ @5 A
0x083acc…083c60 Dummy {f00=0x0029, f01=0x0190, f02=» N Z " @ C T 3J e 5 > 5 > > @ Q T 3J e 5 > 5 > > T* 3J e 5 > 5 > > @ Q T 3J e 5 > 5 > > # : # 9a :a ; S < S dR
0x083c60…083df4 (0, 167) Dummy {f00=0x002a, f01=0x0190, f02=» D" # : 2 0 T PD R( ", # 0 C P C P C _, @ P @$_ Z P " %W " # 0 C P C _ V 2! P( ! P ! R A _& CR = _8 R ! R R 9l Zd
0x083df4…083f88 Dummy {f00=0x002a, f01=0x0190, f02=» T A A W 5 ( 8 ) 9 + _j # : # @ V V D9 V V 8 ; U @ ;D V (x X V * " Wr X 9AV" (x (xWH X L T X " G W" (x (x
0x083f88…08411c Dummy {f00=0x002a, f01=0x0190, f02=»VL H 9a @ / 3 / > X R / > :(9AR H XZ H V % > % R > :( # : # 8P* X ^ X % > " % > A "_. # :<><Z<t< < < ) )()B # ' # # # '
0x08411c…0842b0 Dummy {f00=0x002a, f01=0x0190, f02=» # W # W # V X<8 V V A<6 @<6 X<*V V <$ " #4 X< 0 P" P P . W . #4 @ P % " ) X< $ T P / / / / $ T 9A P 9a T /" P P <0W
0x0842b0…084444 Dummy {f00=0x002a, f01=0x0190, f02=» (x #4 (x x H " P T #4 V D # : ; % <P %_ : : # @ P > = R @> @> T$ H > @ * S S S = R = 9 R*% W(9 V ;a A> A 9 = V S
0x084444…0845d8 Dummy {f00=0x002a, f01=0x0190, f02=» V A> A> # : # "P _ P # : # P, Q B ^ _ @ T C _0 # : #z $P D D P V L PF =h & >A D R _ " P W E " P W D Y T
0x0845d8…08476c Dummy {f00=0x002a, f01=0x0190, f02=» V T@ V V 8 B X ^ @ VV V " T (x X 9l9B @@ @ A #4 (x T R V _ Q W: X ' @ P W ! 9A F Q W A A AA ] Q$ F
0x08476c…084900 Dummy {f00=0x002a, f01=0x0190, f02=» AD @A @ ^ B V V _ # : #z @A DCJPf A A N " ' " ! P< " !AAR ! 9D " !AAR ! R ^R . ' _D " ' # :PISTFM # (P:W (P4 H V W P&Q C P _ 5 ( 9 ) C 8 # : >_F <T
0x084900…084a94 (0, 168) Dummy {f00=0x002a, f01=0x0190, f02=»# W # AD 8 EL V @D T" P $ X P 8 EL D> @D P P . #4W * " D /" C " !WWP A D #4 4VP D =l $ % P P" /"W$<bP W (xW <bT
0x084a94…084c28 Dummy {f00=0x002a, f01=0x0190, f02=» Q, F _` Q < X T _t W #z " P W F V W F R R T T R Q F F F F V R T(W #4 Q P R Zf
0x084c28…084dbc Dummy {f00=0x002a, f01=0x0190, f02=» A ~ @ ~ D XT D V [ A ~ # : A ~ @ ~ V R P V S E X V S _<
0x084dbc…084f50 Dummy {f00=0x002a, f01=0x0190, f02=» 1 00 TLK.ERR. # A` A p A t A @ @ TD A A 3 V 28 A A 6f V 8 =X @ P & @ T . V 7r @ T T @ P W :h @ ?a @ A 6 A @ A 3 <. P 1 /" 1 ( A1 ( @ P& +R
0x084f50…0850e4 Dummy {f00=0x002a, f01=0x0190, f02=» 3` 2 V ! J V A24_Z 3` A24_d 3P 3Pj_: 2$ <A ]H v " 4?m v #4 v 4 P $P _ ", C _^ 4V W >AX R _ T , L X L L T 5_( G _0 @24V V V T S #4
0x0850e4…085278 Dummy {f00=0x002a, f01=0x0190, f02=» eh @* 3 $PNR dR ( > _ H 3 ";L @* > ( > _T N $P. D ' X ( > > > _2 > ? # : # # A4 V " j #4 ?h #4 S A4 V # :
0x085278…08540c Dummy {f00=0x002a, f01=0x0190, f02=» J )P ;M C W # : . 6 2 : 5 5 6 6 6 6 6&6.666>6F6N6V6^ 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 #
0x08540c…0855a0 Dummy {f00=0x002a, f01=0x0190, f02=» > _T > ? # : # 9a :a ; S < S dR _ Q R _ # : I E I I W I E E E I E E E E I E E E I E E # W # A7h 8 8 V @7hT" P $ X P 8 8 7 @7hP P . #4W * "
0x0855a0…085734 (0, 169) Dummy {f00=0x002a, f01=0x0190, f02=» (xW <bT ( " 7f #4 V 7 # : # A8 A8 A V P R V _ # : T A8 W 3P @8 : V T S #4 2 V ! T @8 Xl A ? _v ! | V $P& H X ?a @/ @*_* V
0x085734…0858c8 Dummy {f00=0x002a, f01=0x0190, f02=» 4 B ! X $P _ ", C A8 _d 3TN 2$ <A 4 $P0 ( V S W* R >A_ % H H U H L 5_ S A8 8 BPC # V V V V 8P X T V V $ X* V ?m #4 P S S ! 9bT W
0x0858c8…085a5c Dummy {f00=0x002a, f01=0x0190, f02=» #4 & @ 8 # :; ; ; ; ; < ) )()B # ' # # # ' # ' # # ' L d ` h D F H J ` l D F J # W # W # V X; V V A; @;
0x085a5c…085bf0 Dummy {f00=0x002a, f01=0x0190, f02=» T P / / / / $ T 9A P 9a T /" P P ; W + /" V P V A; _ # : # V V V V N 8P V A=R X % (x X 9h S /" X ! P X
0x085bf0…085d84 Dummy {f00=0x002a, f01=0x0190, f02=» | #4 =R /" =T + /" =V 3 /" V # : # @ P > = R @> @> T$ H > @ * S S S = R = 9 R*% W(9 V ;a A> A 9 = V S = V S ;a A> = V A = V U A> W^ @> PV @> 9a :A
0x085d84…085f18 Dummy {f00=0x002a, f01=0x0190, f02=» " T" ? $R ( > _ > # : # A? A@ V 3 S S @ S @ S S V # : # @( @@& T ! A@L V @(> RN @& 9 ! A@& 9E T ) ' #4 > V ' @@&# A@&> R :R8W @@& P.> > & 3 @@& S
0x085f18…0860ac Dummy {f00=0x002a, f01=0x0190, f02=»#4 ( G /" ) ' _` P P V # :
0x0860ac…086240 Dummy {f00=0x002a, f01=0x418e, f02=» S:LUPS $ , ( 3 B ! X $P 6 S:ALLT f , ( O _ C A _d x , ( m 3T 2$ <A 4 $P ( , ( V S W R >A_ % H H U $
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=»M:DECE«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»M:DECE«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x0770, f03=0x0008}
0x0ba380…0bb020 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a40, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c08, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d60, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d90, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0db0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0de0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0de8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e10, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e18, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e28, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e38, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e78, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0eb0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f30, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f80, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1158, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1168, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1288, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b8, f03=0x0000}
0x0ba380…0bb020 DirEnt {nam=»M:DECE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x12c0, f03=0x0000}
0x0ba380…0bb020 }
0x0bb020…0bb1b4 (1, 1) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»M:DECE«, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x0770, f03=0x0008}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x003b // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x0010 // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x003b.0x2.0
0x0bb1b4…0bb348 [0x01]: C0x003b.0x3.0
0x0bb1b4…0bb348 [0x02]: C0x003c.0x0.0
0x0bb1b4…0bb348 [0x03]: C0x003c.0x1.0
0x0bb1b4…0bb348 [0x04]: C0x003c.0x2.0
0x0bb1b4…0bb348 [0x05]: C0x003c.0x3.0
0x0bb1b4…0bb348 [0x06]: C0x003d.0x0.0
0x0bb1b4…0bb348 [0x07]: C0x003d.0x1.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x003b, 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
0x0bb4dc…0bb670 Dummy {f00=0x003b, 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
0x0bb670…0bb804 Dummy {f00=0x003b, 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
0x0bb804…0bb998 Dummy {f00=0x003b, 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
0x0bb998…0bbb2c Dummy {f00=0x003b, 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
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, 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
0x0bbcc0…0bbe54 (1, 2) Dummy {f00=0x003b, 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$
0x0bbe54…0bbfe8 Dummy {f00=0x003b, 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 ( #
0x0bbfe8…0bc17c Dummy {f00=0x003b, 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
0x0bc17c…0bc310 Dummy {f00=0x003b, 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$
0x0bc310…0bc4a4 Dummy {f00=0x003b, 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
0x0bc4a4…0bc638 Dummy {f00=0x003b, 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$$
0x0bc638…0bc7cc Dummy {f00=0x003b, 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,/
0x0bc7cc…0bc960 Dummy {f00=0x003b, 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
0x0bc960…0bcaf4 (1, 3) Dummy {f00=0x003c, 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
0x0bcaf4…0bcc88 Dummy {f00=0x003c, 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$
0x0bcc88…0bce1c Dummy {f00=0x003c, 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$$
0x0bce1c…0bcfb0 Dummy {f00=0x003c, 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 $$
0x0bcfb0…0bd144 Dummy {f00=0x003c, 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$$
0x0bd144…0bd2d8 Dummy {f00=0x003c, 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
0x0bd2d8…0bd46c Dummy {f00=0x003c, 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
0x0bd46c…0bd600 Dummy {f00=0x003c, 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
0x0bd600…0bd794 (1, 4) Dummy {f00=0x003c, 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$
0x0bd794…0bd928 Dummy {f00=0x003c, 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$$
0x0bd928…0bdabc Dummy {f00=0x003c, 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
0x0bdabc…0bdc50 Dummy {f00=0x003c, 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
0x0bdc50…0bdde4 Dummy {f00=0x003c, 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,
0x0bdde4…0bdf78 Dummy {f00=0x003c, 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
0x0bdf78…0be10c Dummy {f00=0x003c, 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
0x0be10c…0be2a0 Dummy {f00=0x003c, 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$$ ( #
0x0be2a0…0be434 (1, 5) Dummy {f00=0x003c, 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
0x0be434…0be5c8 Dummy {f00=0x003c, 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
0x0be5c8…0be75c Dummy {f00=0x003c, 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
0x0be75c…0be8f0 Dummy {f00=0x003c, 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 ! !!
0x0be8f0…0bea84 Dummy {f00=0x003c, 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
0x0bea84…0bec18 Dummy {f00=0x003c, 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
0x0bec18…0bedac Dummy {f00=0x003c, 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$
0x0bedac…0bef40 Dummy {f00=0x003c, 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
0x0bef40…0bf0d4 (1, 6) Dummy {f00=0x003c, 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 &
0x0bf0d4…0bf268 Dummy {f00=0x003c, 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 '
0x0bf268…0bf3fc Dummy {f00=0x003c, 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 (
0x0bf3fc…0bf590 Dummy {f00=0x003c, 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$$ )
0x0bf590…0bf724 Dummy {f00=0x003c, 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 $
0x0bf724…0bf8b8 Dummy {f00=0x003c, 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$$ +
0x0bf8b8…0bfa4c Dummy {f00=0x003c, 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 ,
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, 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
0x0bfbe0…0bfd74 (1, 7) Dummy {f00=0x003d, 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 .
0x0bfd74…0bff08 Dummy {f00=0x003d, 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 /
0x0bff08…0c009c Dummy {f00=0x003d, 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
0x0c009c…0c0230 Dummy {f00=0x003d, 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
0x0c0230…0c03c4 Dummy {f00=0x003d, 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
0x0c03c4…0c0558 Dummy {f00=0x003d, 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
0x0c0558…0c06ec Dummy {f00=0x003d, 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-*
0x0c06ec…0c0880 Dummy {f00=0x003d, 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
0x0c0880…0c0a14 (1, 8) Dummy {f00=0x003d, 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
0x0c0a14…0c0ba8 Dummy {f00=0x003d, 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
0x0c0ba8…0c0d3c Dummy {f00=0x003d, 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
0x0c0d3c…0c0ed0 Dummy {f00=0x003d, f01=0x0000, f02=»
[…0x4…]
0x0c1520…0c16b4 (1, 9) Opaque[0x194]
0x0c16b4…0c1848 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b0, f03=0x0000}
0x0c16b4…0c1848 IdxSect {
0x0c16b4…0c1848 f00 = 0x003d // 0xc16b4 @0x0
0x0c16b4…0c1848 f01 = 0x0002 // 0xc16b6 @0x2
0x0c16b4…0c1848 gno = [ // 0xc16b8 @0x4
0x0c16b4…0c1848 [0x00]: C0x003d.0x2.0
0x0c16b4…0c1848 ]
0x0c16b4…0c1848 }
0x0c1848…0c19dc Dummy {f00=0x003d, 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
0x0c19dc…0c1b70 Dummy {f00=0x003d, 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
0x0c1b70…0c1d04 Dummy {f00=0x003d, 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
0x0c1d04…0c1e98 Dummy {f00=0x003d, 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 @
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x0000, f02=»
0x0c21c0…0c2354 (1, 10) Opaque[0x194]
0x0c2354…0c24e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x0c2354…0c24e8 IdxSect {
0x0c2354…0c24e8 f00 = 0x003d // 0xc2354 @0x0
0x0c2354…0c24e8 f01 = 0x0080 // 0xc2356 @0x2
0x0c2354…0c24e8 gno = [ // 0xc2358 @0x4
0x0c2354…0c24e8 [0x00]: C0x003d.0x3.0
0x0c2354…0c24e8 [0x01]: C0x003e.0x0.0
0x0c2354…0c24e8 [0x02]: C0x003e.0x1.0
0x0c2354…0c24e8 [0x03]: C0x003e.0x2.0
0x0c2354…0c24e8 [0x04]: C0x003e.0x3.0
0x0c2354…0c24e8 [0x05]: C0x003f.0x0.0
0x0c2354…0c24e8 [0x06]: C0x003f.0x1.0
0x0c2354…0c24e8 [0x07]: C0x003f.0x2.0
0x0c2354…0c24e8 [0x08]: C0x003f.0x3.0
0x0c2354…0c24e8 [0x09]: C0x0040.0x0.0
0x0c2354…0c24e8 [0x0a]: C0x0040.0x1.0
0x0c2354…0c24e8 [0x0b]: C0x0040.0x2.0
0x0c2354…0c24e8 [0x0c]: C0x0040.0x3.0
0x0c2354…0c24e8 [0x0d]: C0x0041.0x0.0
0x0c2354…0c24e8 [0x0e]: C0x0041.0x1.0
0x0c2354…0c24e8 [0x0f]: C0x0041.0x2.0
0x0c2354…0c24e8 [0x10]: C0x0041.0x3.0
0x0c2354…0c24e8 [0x11]: C0x0042.0x0.0
0x0c2354…0c24e8 [0x12]: C0x0042.0x1.0
0x0c2354…0c24e8 [0x13]: C0x0042.0x2.0
0x0c2354…0c24e8 [0x14]: C0x0042.0x3.0
0x0c2354…0c24e8 [0x15]: C0x0043.0x0.0
0x0c2354…0c24e8 [0x16]: C0x0043.0x1.0
0x0c2354…0c24e8 [0x17]: C0x0043.0x2.0
0x0c2354…0c24e8 [0x18]: C0x0043.0x3.0
0x0c2354…0c24e8 [0x19]: C0x0044.0x0.0
0x0c2354…0c24e8 [0x1a]: C0x0044.0x1.0
0x0c2354…0c24e8 [0x1b]: C0x0044.0x2.0
0x0c2354…0c24e8 [0x1c]: C0x0044.0x3.0
0x0c2354…0c24e8 [0x1d]: C0x0045.0x0.0
0x0c2354…0c24e8 [0x1e]: C0x0045.0x1.0
0x0c2354…0c24e8 [0x1f]: C0x0045.0x2.0
0x0c2354…0c24e8 [0x20]: C0x0045.0x3.0
0x0c2354…0c24e8 [0x21]: C0x0046.0x0.0
0x0c2354…0c24e8 [0x22]: C0x0046.0x1.0
0x0c2354…0c24e8 [0x23]: C0x0046.0x2.0
0x0c2354…0c24e8 [0x24]: C0x0046.0x3.0
0x0c2354…0c24e8 [0x25]: C0x0047.0x0.0
0x0c2354…0c24e8 [0x26]: C0x0047.0x1.0
0x0c2354…0c24e8 [0x27]: C0x0047.0x2.0
0x0c2354…0c24e8 [0x28]: C0x0047.0x3.0
0x0c2354…0c24e8 [0x29]: C0x0048.0x0.0
0x0c2354…0c24e8 [0x2a]: C0x0048.0x1.0
0x0c2354…0c24e8 [0x2b]: C0x0048.0x2.0
0x0c2354…0c24e8 [0x2c]: C0x0048.0x3.0
0x0c2354…0c24e8 [0x2d]: C0x0049.0x0.0
0x0c2354…0c24e8 [0x2e]: C0x0049.0x1.0
0x0c2354…0c24e8 [0x2f]: C0x0049.0x2.0
0x0c2354…0c24e8 [0x30]: C0x0049.0x3.0
0x0c2354…0c24e8 [0x31]: C0x004a.0x0.0
0x0c2354…0c24e8 [0x32]: C0x004a.0x1.0
0x0c2354…0c24e8 [0x33]: C0x004a.0x2.0
0x0c2354…0c24e8 [0x34]: C0x004a.0x3.0
0x0c2354…0c24e8 [0x35]: C0x004b.0x0.0
0x0c2354…0c24e8 [0x36]: C0x004b.0x1.0
0x0c2354…0c24e8 [0x37]: C0x004b.0x2.0
0x0c2354…0c24e8 [0x38]: C0x004b.0x3.0
0x0c2354…0c24e8 [0x39]: C0x004c.0x0.0
0x0c2354…0c24e8 [0x3a]: C0x004c.0x1.0
0x0c2354…0c24e8 [0x3b]: C0x004c.0x2.0
0x0c2354…0c24e8 [0x3c]: C0x004c.0x3.0
0x0c2354…0c24e8 [0x3d]: C0x004d.0x0.0
0x0c2354…0c24e8 [0x3e]: C0x004d.0x1.0
0x0c2354…0c24e8 [0x3f]: C0x004d.0x2.0
0x0c2354…0c24e8 ]
0x0c2354…0c24e8 }
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x4150, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d DW1501 x DW1500 DWDU01 * & H a ` DWFD01 ( $ H
0x0c267c…0c2810 Dummy {f00=0x003d, 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
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x413a, f02=» INTRT4 SYSLOD CTAB01 0 CTAB04 B * & T KBAD3 GPADN DIADN DYADN INTAS $ INTSL & SPDLCI ( & "
0x0c29a4…0c2b38 Dummy {f00=0x003d, 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* (
0x0c2b38…0c2ccc Dummy {f00=0x003d, 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 , (
0x0c2ccc…0c2e60 Dummy {f00=0x003d, 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
0x0c2e60…0c2ff4 (1, 11) Dummy {f00=0x003e, f01=0x0190, f02=»VOL SCTFWTC , ( Z.?AZ2 @ Q X " FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM TTABLD * &
0x0c2ff4…0c3188 Dummy {f00=0x003e, f01=0x4050, f02=»T| < QWB mP& w { }P P P P T :@ L FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM TTABLD * &
0x0c3188…0c331c Dummy {f00=0x003e, 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 SCTLAPD SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTV
0x0c331c…0c34b0 Dummy {f00=0x003e, 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
0x0c34b0…0c3644 Dummy {f00=0x003e, f01=0x018e, f02=» IHRTC ILLINT , ( " IH1501 R IH1502 d CHLT1 v IHFDN , ( , ( ! , ( 1
0x0c3644…0c37d8 Dummy {f00=0x003e, f01=0x0190, f02=» f , ( a , ( q 8 HALTN h x SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA , (
0x0c37d8…0c396c Dummy {f00=0x003e, f01=0x0190, f02=»B SCTNOP SCTPSZ SCTMMC 4 SCTLAC H SCTMMPL SCTLAPD p SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x0c396c…0c3b00 Dummy {f00=0x003e, f01=0x407e, f02=» SCTDCT ^ _ 2 H h@ z p SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x0c3b00…0c3c94 (1, 12) Dummy {f00=0x003e, 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
0x0c3c94…0c3e28 Dummy {f00=0x003e, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST TTB:SB , ( 9 (X: @ P T M ]J , ) L QLTDSK , ( U
0x0c3e28…0c3fbc Dummy {f00=0x003e, f01=0x0190, f02=» , ( $" > [ [ Z P D PAG:QBV 8 PAG:PA J SCTMMP , ( 0P P - I 1 P " n SCTNPE TTB:MTD , ( H @ @ - P _ Z 9B SCTLAP T
0x0c3fbc…0c4150 Dummy {f00=0x003e, f01=0x4026, f02=» P W d @ " P D PAG:QBV 8 PAG:PA J SCTMMP , ( 0P P - I 1 P " n SCTNPE TTB:MTD , ( H @ @ - P _ Z 9B SCTLAP T
0x0c4150…0c42e4 Dummy {f00=0x003e, 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$
0x0c42e4…0c4478 Dummy {f00=0x003e, f01=0x0190, f02=» RELPAGT , ( 5 P c P W T P ,$ T TLDSEG# J LKM030 ` SWL48 p , ( Q@ T _ A LKMAL , ( i V ( U P @ V LKMERR H
0x0c4478…0c460c Dummy {f00=0x003e, f01=0x0190, f02=»FLG PFPOSTN IHPFARC " , ( #P A 6 DISQUEA f * & A Q ? > ? @ x , ( X@ ) A A _L A A PFINIT IHRTC , ( $@
0x0c460c…0c47a0 Dummy {f00=0x003e, f01=0x018e, f02=» Q P Q Z z MONCLO L MEXIT . , ( G Y _ 8 $ > FREBLK n , ( e Q Z P 0 9 & &_ , ( @ _, ? _ P H H TIMQUE@ H D
0x0c47a0…0c4934 (1, 13) Dummy {f00=0x003e, f01=0x400c, f02=» @ Z z MONCLO L MEXIT . , ( G Y _ 8 $ > FREBLK n , ( e Q Z P 0 9 & &_ , ( @ _, ? _ P H H TIMQUE@ H D
0x0c4934…0c4ac8 Dummy {f00=0x003e, 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
0x0c4ac8…0c4c5c Dummy {f00=0x003e, 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 ;
0x0c4c5c…0c4df0 Dummy {f00=0x003e, 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
0x0c4df0…0c4f84 Dummy {f00=0x003e, 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
0x0c4f84…0c5118 Dummy {f00=0x003e, 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
0x0c5118…0c52ac Dummy {f00=0x003e, 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 ?
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x0190, f02=»TY , ( ! Y ^ _ ? RELPA2' < RELPAG P SEG:PB d PAGQUE v PAG:QB@ , ( $A. U W L M 0 PQEMTYX TTABLD , ( $ - A Q @
0x0c5440…0c55d4 (1, 14) Dummy {f00=0x003e, f01=0x4044, f02=»P CW0 KW( ]P gW kW V W P .@ @2' < RELPAG P SEG:PB d PAGQUE v PAG:QB@ , ( $A. U W L M 0 PQEMTYX TTABLD , ( $ - A Q @
0x0c55d4…0c5768 Dummy {f00=0x003e, 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 ,
0x0c5768…0c58fc Dummy {f00=0x003e, 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 ,
0x0c58fc…0c5a90 Dummy {f00=0x003e, 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
0x0c5a90…0c5c24 Dummy {f00=0x003e, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x0c5c24…0c5db8 Dummy {f00=0x003e, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x0c5db8…0c5f4c Dummy {f00=0x003e, 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
0x0c5f4c…0c60e0 Dummy {f00=0x003e, 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 , (
0x0c60e0…0c6274 (1, 15) Dummy {f00=0x003f, 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 , (
0x0c6274…0c6408 Dummy {f00=0x003f, 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
0x0c6408…0c659c Dummy {f00=0x003f, f01=0x0190, f02=» " U " , ( 1 _2 P & , ( Q " U " V , ( m _2 V P * & @P R * & " S ( V X S =J
0x0c659c…0c6730 Dummy {f00=0x003f, f01=0x0190, f02=» N _ r bREL , ( H N $ !TTT , ( %D : . !TTP P , ( ?H " V W P * , ( Y P , ( w _ P W T
0x0c6730…0c68c4 Dummy {f00=0x003f, 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 @
0x0c68c4…0c6a58 Dummy {f00=0x003f, 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 `
0x0c6a58…0c6bec Dummy {f00=0x003f, f01=0x0190, f02=» $ ! | , ( TTX !CCT P V , ( @ 4 U " $ $ L , ( _. P V | , ( 4 U " $ $ SCTDCT , ( _. @ d @
0x0c6bec…0c6d80 Dummy {f00=0x003f, 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@
0x0c6d80…0c6f14 (1, 16) Dummy {f00=0x003f, 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 &
0x0c6f14…0c70a8 Dummy {f00=0x003f, 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 , (
0x0c70a8…0c723c Dummy {f00=0x003f, 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
0x0c723c…0c73d0 Dummy {f00=0x003f, 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 # $ < $ :
0x0c73d0…0c7564 Dummy {f00=0x003f, 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
0x0c7564…0c76f8 Dummy {f00=0x003f, 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
0x0c76f8…0c788c Dummy {f00=0x003f, 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 {
0x0c788c…0c7a20 Dummy {f00=0x003f, 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 ! }
0x0c7a20…0c7bb4 (1, 17) Dummy {f00=0x003f, 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
0x0c7bb4…0c7d48 Dummy {f00=0x003f, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-07-15 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 SAVE12V SAV
0x0c7d48…0c7edc Dummy {f00=0x003f, 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 [ : : [ [
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12V SAVE1
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x0190, f02=» j MMTAB TABBE MMEND , , ( > ERROR n MOVEY " SCTEFA , ( W Z A. c @ , ( @ + V W U R $ ) , (
0x0c8398…0c852c Dummy {f00=0x003f, f01=0x0190, f02=» , ( W ^B _F 9o V , ( _X V V : 4 , ( V J P d , ( r V U _ , ( + V Z K W W , ( K :K W r
0x0c852c…0c86c0 Dummy {f00=0x003f, f01=0x0190, f02=» ) : V <B W |P v , ( v : $ $ , ( V |P v w v : V $ T , ( V l $ V M : W , ( + V R R > R , ( K W >
0x0c86c0…0c8854 (1, 18) Dummy {f00=0x003f, f01=0x0190, f02=»_ V : " D t , ( P W V P $;A , ( ^ D E D P V P D , ( P T E _J t , ( + E _T " D T E E D , ( K E % : " R ;B , ( @
0x0c8854…0c89e8 Dummy {f00=0x003f, f01=0x0190, f02=» V P 9a _ " x , ( ( ) 8 ( ) : " $ V P 9A _ MULTY H , ( 0 : W W W ?AP ^ 0 : Z , ( W ; V : : , SCTTCT , ( + X G : J @ , ( I 0
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x0190, f02=» 0 R P P B RETUR8 , , ( _ : V ) > , ( v : 4P " D D n TTB:SA9 , ( , H H M v b - I SCTSFA , ( Y0 : @
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x0190, f02=» , ( U ) P _ " = , ( u D 4 Q _n D f 4 , ( @ X = G d , ( V W $ V E J K , ( _X V r V :B A V , ( H 9n A @
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=» @ P P P SCTPSZ * * & ? @P _ _ @ 9N @ :b @ < , ( Y :b V W j , ( w U T 9BW P , ( P P V W U " @ , ( Q V
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=»QUE , ( 3 S Y& P , ( +H S < , ( G P 3 _ 3 l SCTBUGY SCTSTB , ( c A. @ r " PFINIT , (
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x018e, f02=» W n r , ( V pT : N V l W H V ]" , ( " . nT W v W B , ( D n V ~P W x & r , ( 9 & _v V d , V , ( @ Y P _ N L % V d V , ( y
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=» , ( _$ 8 V V x % V v % : V , ( V N 9k! 4 , ( P % _ V V W W r d , ( 9 W V v , ( Y ) W b G v , ( w ) - V
0x0c9360…0c94f4 (1, 19) Dummy {f00=0x0040, f01=0x0190, f02=» _ ` @ ` W , ( P W ~ pP : V W $ , ( % R , T , ( B 3 " E R W ~ , ( S R R P R Xv _|W , ( E s T : W x &
0x0c94f4…0c9688 Dummy {f00=0x0040, f01=0x0190, f02=» : H t , ( - V I " R , ( @ E R T E D E D , ( -@ @ v H v E X # t , ( K _v W | ;b W W t , ( k V b v ( v W p V ` $ W ` C
0x0c9688…0c981c Dummy {f00=0x0040, f01=0x0190, f02=» p , ( .=H N N GETNUM @ , ( : d 8" R _ ZY QY T SYSLDX , ( ! : " @ V H W z W , ( ' | CRP W ` ` H , ( E W d
0x0c981c…0c99b0 Dummy {f00=0x0040, f01=0x0190, f02=» 2 " T @ , ( @ N =H N @ ) ! ( , ( TTXX !CCT !UUT d X , ( W 2 .:H N , ( P V _ R :h , ( ? "
0x0c99b0…0c9b44 Dummy {f00=0x0040, f01=0x0190, f02=» W @ x , ( @ W D V W , ( W ` " W p @ H , ( pP " 4X 1 x , ( R Z0 _ W l a , ( 7 w ` :A W V d 4 W , (
0x0c9b44…0c9cd8 Dummy {f00=0x0040, f01=0x0190, f02=» h x H D ! W> 2 0 . 1 2 C S Y -V 1W 5U AR w yQF R0 * H D ! P V U ! +V / e gQ iR u wV V W v H D ! @ V P P ?RR GR OW sP P Pd PL P. V P T
0x0c9cd8…0c9e6c Dummy {f00=0x0040, f01=0x4120, f02=»P( P V W Z H D ! U Q P P V )P4 GP e p R T T" P # L / H D ! UV cP U P V P P P0 P Pn _P c r m r qW wT P8 b H D ! Pl T R -P _R P T W8 T T T Wh #P 'V P. UP
0x0c9e6c…0ca000 Dummy {f00=0x0040, 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
0x0ca000…0ca194 (1, 20) Dummy {f00=0x0040, 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
0x0ca194…0ca328 Dummy {f00=0x0040, 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 " ,
0x0ca328…0ca4bc Dummy {f00=0x0040, 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
0x0ca4bc…0ca650 Dummy {f00=0x0040, 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
0x0ca650…0ca7e4 Dummy {f00=0x0040, 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 "
0x0ca7e4…0ca978 Dummy {f00=0x0040, 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 (
0x0ca978…0cab0c Dummy {f00=0x0040, 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 @ (
0x0cab0c…0caca0 Dummy {f00=0x0040, 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 , (
0x0caca0…0cae34 (1, 21) Dummy {f00=0x0040, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x4104, f02=» J F IDENT DW1501 REL 10.0 80-03-14 870105041000 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ ND E
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b DWTST t * & @ 2 d ? X V Y TDISP LDREGE , ( ! W Y , (
0x0cb15c…0cb2f0 Dummy {f00=0x0040, 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
0x0cb2f0…0cb484 Dummy {f00=0x0040, 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
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=» DWTA3 DWTSB2 , ( Q @ R ;GV X p X , & * & k $4 P X .T * W Y , - V , ( ? X :a Z T T W , ( @ P X :d Y > > | , ( V ? 8 R @R V @% =cW
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x0190, f02=» 1 t A > NT 0 _ H D ! ( $ V 'W< 7U ;R ?P G U _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
0x0cb7ac…0cb940 Dummy {f00=0x0040, 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
0x0cb940…0cbad4 (1, 22) Dummy {f00=0x0040, 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 ! ! , ( ;
0x0cbad4…0cbc68 Dummy {f00=0x0040, 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 _
0x0cbc68…0cbdfc Dummy {f00=0x0040, 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
0x0cbdfc…0cbf90 Dummy {f00=0x0040, 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
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=» J F IDENT DRDI01 REL 10.0 80-03-14 870105041000 DIADY R DIADY b , ( B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x4088, f02=»END u ? X _F @ < p J z T #P 'P 3W GT IW$ MT( WP aP gV . r@ B 8# T $ # ;D t DISIOE` DWTST , ( ! 7P P Y W Y X , ( ?@ Y 8#
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-06-09 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x0cc44c…0cc5e0 Dummy {f00=0x0040, 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
0x0cc5e0…0cc774 (1, 23) Dummy {f00=0x0041, f01=0x0190, f02=» DWTBC , ( ' X ] ! , ( @ B ! ! ! B @ , ( Y & ! W 8!0T 8 !@P p , ( ! $ P ! ! TENDIO , ( ! 1P X & C ,T Y
0x0cc774…0cc908 Dummy {f00=0x0041, f01=0x0190, f02=» LDREG , ( S Z2<BR > ? Y , ( m! ! T X ! Y @ , ( @ & Y Zr T _ ! p ECHODY , ( X $ P ! R ECHRTN * & $ V P
0x0cc908…0cca9c Dummy {f00=0x0041, f01=0x0190, f02=» " X &" Y )U W ! , ( 1" ! ! Y 4 B $ , ( K U )X R T , ( k@ X X &" Y * X ) V , ( A Y ! X $ X & ! X * , ( $ `R Y !
0x0cca9c…0ccc30 Dummy {f00=0x0041, f01=0x0190, f02=» 4 ( t > H D ! P b )P -P 3 9 CP SP WP. ]T oR| yR & H D ! H 8 U4 T U T P( P TD T )T GP M Y cP r H D !> gR P 8 W T P P ( P T IQ YR H
0x0ccc30…0ccdc4 Dummy {f00=0x0041, f01=0x4008, f02=»@
0x0ccdc4…0ccf58 Dummy {f00=0x0041, 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
0x0ccf58…0cd0ec Dummy {f00=0x0041, f01=0x0190, f02=» , ( ? A J ;h # <c$ DWTOTQX 8 , ( = " P P 4 5 T P ? X J DWTOCH z OUTLIN , ( [ U X > P P P DWTST , ( w P P ] 0 X T
0x0cd0ec…0cd280 Dummy {f00=0x0041, f01=0x0190, f02=» @@ Y T 8R X P y SETIMP , , ( @ W W Y > DWTOR n , ( X ;BR U X ' X~ ~ , ( _ 4 U P $P > R > DWTADR , ( ? @ 8' T Y
0x0cd280…0cd414 (1, 24) Dummy {f00=0x0041, f01=0x0190, f02=» 8' T 8 r DWTECB , ( "@Z" X ' X # T 8R $ INTADR T , ( BH X P y Y X (@ L f OUTLRT , ( P P "& (@ > , ( $P D P P P P _ E ,
0x0cd414…0cd5a8 Dummy {f00=0x0041, f01=0x4156, f02=» ? @ ~ " W T A % > > H D !` - J ? t EP IP` SP kP oP sP wP( }P T W J T D H D ! R P W Wp R # 1P> 7P4 ;R0 CT ST WP aP w T H D ! T R P P P P$ P P4 P W
0x0cd5a8…0cd73c Dummy {f00=0x0041, f01=0x0190, f02=» J F IDENT DRDU01 REL 10.0 80-03-14 870105041000 , ( DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 R DUADR DWTOR , ( ; Y Y X Q "9 ! :a NVLCHKC ECBRC
0x0cd73c…0cd8d0 Dummy {f00=0x0041, f01=0x0190, f02=» t , ( Y P P DISIOE@ D ECBCW1 V * & P P P B h , ( ! T 9 Y ! 9EV X , ( y ! + ! ! T Y , ( 2 B
0x0cd8d0…0cda64 Dummy {f00=0x0041, f01=0x0190, f02=» Y x , ( _ 8;eT ! 9FR Y W X P Y , ( ! 9 R ! 9 R Y Y H , ( A W ! ! ! T @ x ECBEL , ( X < Y H t " :A C , ( :a X ! U 4
0x0cda64…0cdbf8 Dummy {f00=0x0041, f01=0x0190, f02=» 9 P 9 x , ( Y 4 8 X " P # ;B 4 Y 8 , ( y 9 Y Y :c Y 4 X ;C+ W H DWTA4 x PFPOST INXDWT , ( W q r Y @ T Q DWTA5 DWTA2 TDISP
0x0cdbf8…0cdd8c Dummy {f00=0x0041, f01=0x0190, f02=» ! ! T p VOLCLR * & @ Y ! ! P Y ( Y " , ( $ Y P X Y P , ( '? C L @ P a W 0P SETIMP * & 5 -_~ * _ A Y IHDUY IHD
0x0cdd8c…0cdf20 Dummy {f00=0x0041, f01=0x0190, f02=» h * & # T X X X 4 Y TENDIO 6 , ( $W C X P . H , ( @ " ! ! T 9 Y ! x VOLGET , ( ! T X P 0 , ( B @ ( TOT @ 0 1T @
0x0cdf20…0ce0b4 (1, 25) Dummy {f00=0x0041, f01=0x0190, f02=» Q W 4 , ( q . , ( C C ^ " H D ! : = " A < KQj M V [ r cT8 u : y }T : P~ Pz Pv H D !$ Pr
0x0ce0b4…0ce248 Dummy {f00=0x0041, f01=0x018e, f02=» L H D ! V R " B W, b T B " f r Z P H D !A f P ! " 'W 3T 9T C SP e B iP u f } j l B T H D ! " W W T > X V : T TF P : P # V %P( H D ! @ ) V +W / V 3P A F I X
0x0ce248…0ce3dc Dummy {f00=0x0041, f01=0x4008, f02=»@ ! V R " B W, b T B " f r Z P H D !A f P ! " 'W 3T 9T C SP e B iP u f } j l B T H D ! " W W T > X V : T TF P : P # V %P( H D ! @ ) V +W / V 3P A F I X
0x0ce3dc…0ce570 Dummy {f00=0x0041, 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
0x0ce570…0ce704 Dummy {f00=0x0041, 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 , (
0x0ce704…0ce898 Dummy {f00=0x0041, 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 ^ , (
0x0ce898…0cea2c Dummy {f00=0x0041, 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 ,
0x0cea2c…0cebc0 Dummy {f00=0x0041, 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
0x0cebc0…0ced54 (1, 26) Dummy {f00=0x0041, 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
0x0ced54…0ceee8 Dummy {f00=0x0041, f01=0x0190, f02=» , ( $ Y W 8 & FDONY 4 DWTA2 F , ( @ Y (_ ? Y ( Y * X P V , ( @ y _* _: Y , ( @ Y Y L Y ! VOLCLR , ( ! ^
0x0ceee8…0cf07c Dummy {f00=0x0041, 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
0x0cf07c…0cf210 Dummy {f00=0x0041, 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 !
0x0cf210…0cf3a4 Dummy {f00=0x0041, f01=0x0190, 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 _ , (
0x0cf3a4…0cf538 Dummy {f00=0x0041, f01=0x0190, f02=» DWFD01 * , ( + , ( K B , ( k r , ( , (
0x0cf538…0cf6cc Dummy {f00=0x0041, f01=0x0190, 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 !
0x0cf6cc…0cf860 Dummy {f00=0x0041, f01=0x0190, 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 ]
0x0cf860…0cf9f4 (1, 27) Dummy {f00=0x0042, f01=0x4184, 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
0x0cf9f4…0cfb88 Dummy {f00=0x0042, f01=0x0190, f02=» J F IDENT DRDC15 REL 10.0 80-06-30 87010504100 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK , ( ! DISIOEC , ( I P P 1P P
0x0cfb88…0cfd1c Dummy {f00=0x0042, f01=0x0190, f02=» L 9 P @ , ( @ ` @ P 0P _ % A TENDIO P ECBRL b , ( @ A _Z B Q r DWTECB ECBEL , ( _n X P 0 Y P C DC:MIN , (
0x0cfd1c…0cfeb0 Dummy {f00=0x0042, f01=0x0190, f02=» Y W Y @_x X X A , ( I Y _& Y @ 0 ( , ( g A A _: X P ( y Y W X , ( (P 0 ) > (P _ , ( ) 1_ (X( P _ 0 ) DWTST , ( _6 (
0x0cfeb0…0d0044 Dummy {f00=0x0042, f01=0x018e, f02=» h , ( * > @ @ @ A X _" , ( 9 X P y Y X P T 8 , ( W @ T A A > A A A A h , ( w A W > , (
0x0d0044…0d01d8 Dummy {f00=0x0042, f01=0x0190, f02=» , ( T ! T ! A P , ( ; " ! _ ! T 4 , ( ( [ A B ! ! @ T " ! d , ( { _ ! @ P @ P ! A A , ( _ ! @ P @ XF ! T A , ( ! ! !
0x0d01d8…0d036c Dummy {f00=0x0042, f01=0x0190, f02=» W W ! , ( D$ - ! _ ! @ T @ P ! $ , ( "E M ! @ T @ X W @ @ T , ( P@ m @ A ! @ T _6 ! , ( T @ P ! ! _P /T @ X @ , ( P ! ! _n A
0x0d036c…0d0500 Dummy {f00=0x0042, f01=0x0190, f02=» H E A A 4 @ P ! , ( + ! ! W @ T ! _ & ECBBA V DC:MOT, f , ( K@ T _ A C x , ( % gI B B A A A , ( PH A A ! ! A _^ @ v ! , (
0x0d0500…0d0694 (1, 28) Dummy {f00=0x0042, f01=0x0190, f02=» h , ( A A 4 @ @ T @ , ( U A @ A A ! T P 8 , ( 3 P P P P 1 A @ h , ( S ]6W P _@ @ @ E ! , ( s P ! 4 _$ ! 2_l , ( ( / A T
0x0d0694…0d0828 Dummy {f00=0x0042, f01=0x0190, f02=» @ @ A @ T @ ! , ( 8 ! 0 " R ! A @ ( , ( @ 3 @ U Z& ! " ! X , ( S " ! A _" ! ! ! PFPOST , ( s ! 4 @ "T ! A 2 IH1501
0x0d0828…0d09bc Dummy {f00=0x0042, f01=0x0190, f02=» A A 4 ! IH1502 , ( A A $ ? _ J "#T @ P 4 , ( R 2B W " P @ P W " d , ( ) " P h " , ( @ E P 1 P A 4 A P T ! , ( e W " P
0x0d09bc…0d0b50 Dummy {f00=0x0042, f01=0x0190, f02=» , ( 4 ? A @ A @ T , ( R B @ A @ 8 * & ( !@P @ P A a 4 h , ( $ < A > A , ( 9 4 A B ! @ P ! ! , , ( R Y @ P
0x0d0b50…0d0ce4 Dummy {f00=0x0042, f01=0x0190, f02=» j DW1500 , ( 4 " ` N . t / J K f g , ( , ( 1
0x0d0ce4…0d0e78 Dummy {f00=0x0042, f01=0x0190, f02=» P P Q< : P P ~ H D ! ! ( ' 0 /Wb E L K T ] a i m uP W P P P P : H D ! R2 T* P& =P MP QT Y ]T a e k o s w { H D ! W ~ T P P : x R Th
0x0d0e78…0d100c Dummy {f00=0x0042, f01=0x0190, f02=» T ~ T PP j H D ! 3 P2 R, T$ W %W 3 = CT IP M U [T cWR w { & H D !L T ~ T P , T" P T TB W T r H D ! ^ %P ) - , 5 7W AT E OT a , P6 H
0x0d100c…0d11a0 Dummy {f00=0x0042, f01=0x4174, f02=» t V H D ! _ t d T T %R ) 7U$ E O t W t g k H D ! ` o ~ w T T T T* T T P l T P0 R W& P ^ H D ! P W +P 5 < EP IP YP _T c gW oP wP yW } l H D ! ; P T
0x0d11a0…0d1334 (1, 29) Dummy {f00=0x0042, f01=0xc046, f02=» P = B ? @ 0@ BW H D !? W W #T" ' + 1 7 = P H D ! C QR U cU$ q { T T T* T H D !0 T P & -T 3P0 5R
0x0d1334…0d14c8 Dummy {f00=0x0042, f01=0x8190, f02=» H D ! f PJ RD T< P W W W8 ! % +T 1P 5 $ = CT H D !t KW` W j g k qT w }T P | T, P T0 P H D ! T TR P T D T % 2 / QP U Y | a J gP m < H D ! q | T T J |
0x0d14c8…0d165c Dummy {f00=0x0042, f01=0x8190, f02=» T W W W W W ' / 7 = C H D ! G M S kT( o s y P ` W P4 R W, T < H D ! W R UH P T ' / G M U [ H D ! a e i o P T
0x0d165c…0d17f0 Dummy {f00=0x0042, f01=0xc0a6, f02=» P P l H D !d +T / j E j QP WP P P P ) 8 ( i | u | t @ T ' / G M U [ H D ! a e i o P T
0x0d17f0…0d1984 Dummy {f00=0x0042, f01=0x0190, f02=» B F IDENT EBCDIC REL 10.0 80-03-14 SHB TASCIIK TEBCDI J TASCIIK d , ( x , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ , (
0x0d1984…0d1b18 Dummy {f00=0x0042, f01=0x4166, f02=» h , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI 8 , ( -/STUVWXYZ|,%_>?0123456789:#@'= L , ( 7- <=2&p ?' | , ( ! @Z {[lP}M] Nk`Ka z^L~no , ( A | {|[_m
0x0d1b18…0d1cac Dummy {f00=0x0042, f01=0x4136, f02=» J F IDENT DVTKB REL 10.0 80-03-14 870105041000 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x0d1cac…0d1e40 Dummy {f00=0x0042, 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
0x0d1e40…0d1fd4 (1, 30) Dummy {f00=0x0042, 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
0x0d1fd4…0d2168 Dummy {f00=0x0042, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 " DWTTP $ DWTORD $ DWTNVL & DWTECH & DWTVOLA .
0x0d2168…0d22fc Dummy {f00=0x0042, 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
0x0d22fc…0d2490 Dummy {f00=0x0042, f01=0x018e, f02=» ! $ FREBLK: , * & A ( , 0 4 8 < ( H 0 ) > TTB:SA l , ( _ $P $ ) U ~ TTB:MTO , ( @ { @ T C @ ,W 0P , ( P > T C
0x0d2490…0d2624 Dummy {f00=0x0042, 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
0x0d2624…0d27b8 Dummy {f00=0x0042, 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 # , (
0x0d27b8…0d294c Dummy {f00=0x0042, f01=0x0190, f02=» a$ W Y P R R P , ( } T P (@ (@ " 2 . , ( @ _ > X $? P $ > > ^ , ( , ( , ( F C F C >
0x0d294c…0d2ae0 Dummy {f00=0x0042, 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
0x0d2ae0…0d2c74 (1, 31) Dummy {f00=0x0043, 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 , (
0x0d2c74…0d2e08 Dummy {f00=0x0043, 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
0x0d2e08…0d2f9c Dummy {f00=0x0043, 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
0x0d2f9c…0d3130 Dummy {f00=0x0043, 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
0x0d3130…0d32c4 Dummy {f00=0x0043, 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
0x0d32c4…0d3458 Dummy {f00=0x0043, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x0d3458…0d35ec Dummy {f00=0x0043, 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
0x0d35ec…0d3780 Dummy {f00=0x0043, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x0d3780…0d3914 (1, 32) Dummy {f00=0x0043, 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
0x0d3914…0d3aa8 Dummy {f00=0x0043, f01=0x0190, f02=» $R M A TLDS15 R $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC SCTMMP SCTNPE , ( e D " @ @ - U S
0x0d3aa8…0d3c3c Dummy {f00=0x0043, f01=0x4030, f02=»T 1W^ 9R YP {U @ , $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC SCTMMP SCTNPE , ( e D " @ @ - U S
0x0d3c3c…0d3dd0 Dummy {f00=0x0043, 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
0x0d3dd0…0d3f64 Dummy {f00=0x0043, 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
0x0d3f64…0d40f8 Dummy {f00=0x0043, 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
0x0d40f8…0d428c Dummy {f00=0x0043, 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
0x0d428c…0d4420 Dummy {f00=0x0043, 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
0x0d4420…0d45b4 (1, 33) Dummy {f00=0x0043, f01=0x018e, f02=» EWTEXL , ( U T L L R Q EWTEXB J * & o U , , _D , ECBRL , ( V :a B # S EWTVOL FNDDWD DWTST , ( H
0x0d45b4…0d4748 Dummy {f00=0x0043, f01=0x4180, f02=» FCHEC2 SCTNOF SCTFWT . , ( " _6 _6 " " P @ Q " @ FWTTABD p FWTPARL * & @ , Y ," P L $P T L $ &R :AV ' > _ H D ! P* P P" P P P !
0x0d4748…0d48dc Dummy {f00=0x0043, 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
0x0d48dc…0d4a70 Dummy {f00=0x0043, f01=0x4082, f02=» * & H TCHMMUC 2 # D & & l@ ~ TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x0d4a70…0d4c04 Dummy {f00=0x0043, 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:BFD FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1V
0x0d4c04…0d4d98 Dummy {f00=0x0043, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL " d FWTEXB $ x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BFD FPB:FO F
0x0d4d98…0d4f2c Dummy {f00=0x0043, 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
0x0d4f2c…0d50c0 Dummy {f00=0x0043, f01=0x0190, f02=»T SCTNOF TIODM FDBMECS , , ( > A @ @ > SCTFWL n , ( A @ R P % % DWTST DWTADRI * & @ I I I I DWTME
0x0d50c0…0d5254 (1, 34) Dummy {f00=0x0043, 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 ' !
0x0d5254…0d53e8 Dummy {f00=0x0043, 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 , (
0x0d53e8…0d557c Dummy {f00=0x0043, 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 , (
0x0d557c…0d5710 Dummy {f00=0x0043, 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
0x0d5710…0d58a4 Dummy {f00=0x0043, 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
0x0d58a4…0d5a38 Dummy {f00=0x0043, f01=0x0190, f02=» T X p ECBFC , ( " C : X V P _ : C , ( U : @ @ P , ( V )$ T B , * Y $ * & ! : & $ Y : @ , ( ? P 8 T _ &
0x0d5a38…0d5bcc Dummy {f00=0x0043, 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
0x0d5bcc…0d5d60 Dummy {f00=0x0043, f01=0x4100, f02=» J F IDENT DFTAB REL 10.0 80-03-14 870105041000 $ DFTAB DFTABE DMTIDP DMTIDS R DFTAB z DFTABE DMTIDP DMTIDS @ DMTIDP E
0x0d5d60…0d5ef4 (1, 35) Dummy {f00=0x0044, f01=0x4116, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b DC15ON t CHLTONA FDONN DUONN FMINIT` " U@
0x0d5ef4…0d6088 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT DVKB00 REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x0d6088…0d621c Dummy {f00=0x0044, f01=0x4028, f02=» N - 0 / 0 @ $ REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x0d621c…0d63b0 Dummy {f00=0x0044, f01=0x4106, f02=» J F IDENT DVDI00 REL 10.0 80-03-14 870105041000 DVDI00K R DVDI00K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x0d63b0…0d6544 Dummy {f00=0x0044, f01=0x4104, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x * & Y % P @ 8 , 8 @
0x0d6544…0d66d8 Dummy {f00=0x0044, f01=0x4106, f02=» J F IDENT DVDI01 REL 10.0 80-03-14 870105041000 DVDI01K R DVDI01K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x0d66d8…0d686c Dummy {f00=0x0044, f01=0x4100, f02=» J F IDENT DVGP02 REL 10.0 80-03-14 870105041000 DVGP02K R DVGP02K d GPADN x * & P % @ 4 ( 4 @ ECB ADD
0x0d686c…0d6a00 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT DVKB03 REL 10.0 80-03-14 870105041000 DVKB03K R DVKB03K d KBAD3 x CTAB04 , ( KB DVDY03 , ( %@
0x0d6a00…0d6b94 (1, 36) Dummy {f00=0x0044, f01=0x4028, f02=» N - 0 / 0 @ $ REL 10.0 80-03-14 870105041000 DVKB03K R DVKB03K d KBAD3 x CTAB04 , ( KB DVDY03 , ( %@
0x0d6b94…0d6d28 Dummy {f00=0x0044, f01=0x4104, f02=» J F IDENT DVDY03 REL 10.0 80-03-14 870105041000 DVDY03K R DVDY03K d DYADN x * & Y % P @ 8 , 8 @
0x0d6d28…0d6ebc Dummy {f00=0x0044, f01=0x4104, f02=» J F IDENT DVDY04 REL 10.0 80-03-14 870105041000 DVDY04K R DVDY04K d DYADN x * & Y % P @ 8 , 8 @
0x0d6ebc…0d7050 Dummy {f00=0x0044, f01=0x0190, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 , ( @ P DVDI01 DVGP02 DVK
0x0d7050…0d71e4 Dummy {f00=0x0044, f01=0x403c, f02=» & 0 ! ' 1 ~ 6 &@ 84 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 , ( @ P DVDI01 DVGP02 DVK
0x0d71e4…0d7378 Dummy {f00=0x0044, f01=0x0190, f02=» F IDENT CTAB01 79-08-31/LEKO CTAB01K ( CTAB01K : , ( 0123 N , ( ! 456789 ~ , ( A ' < +,-. 0123456789 @ABC , ( a DEFGHIJKLMNOPQRSTUVWXYZ[ ]~
0x0d7378…0d750c Dummy {f00=0x0044, f01=0x4014, f02=» @ -08-31/LEKO CTAB01K ( CTAB01K : , ( 0123 N , ( ! 456789 ~ , ( A ' < +,-. 0123456789 @ABC , ( a DEFGHIJKLMNOPQRSTUVWXYZ[ ]~
0x0d750c…0d76a0 Dummy {f00=0x0044, f01=0x0190, f02=» F IDENT CTAB04 79-02-13/LEKO CTAB04K ( CTAB04K : , ( 0123 N , ( ! 456789 ~ , ( A ' +,-. 0123456789 < @ABC , ( a DEFGHIJKLMNOPQRSTUVWXYZ[ ]^
0x0d76a0…0d7834 (1, 37) Dummy {f00=0x0044, f01=0x4014, f02=» @ -02-13/LEKO CTAB04K ( CTAB04K : , ( 0123 N , ( ! 456789 ~ , ( A ' +,-. 0123456789 < @ABC , ( a DEFGHIJKLMNOPQRSTUVWXYZ[ ]^
0x0d7834…0d79c8 Dummy {f00=0x0044, 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 @ , (
0x0d79c8…0d7b5c Dummy {f00=0x0044, f01=0x0190, f02=» x , ( , ( $ ( , 0 4 H , ( ! 8 < x , ( A , ( a , (
0x0d7b5c…0d7cf0 Dummy {f00=0x0044, 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
0x0d7cf0…0d7e84 Dummy {f00=0x0044, 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
0x0d7e84…0d8018 Dummy {f00=0x0044, f01=0x0190, f02=» W W x , ( 0 _, W , ( ! ! W P @ & 0 H , ( A T A P P x , ( a _b _J A , ( "T @ W @ , (
0x0d8018…0d81ac Dummy {f00=0x0044, 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
0x0d81ac…0d8340 Dummy {f00=0x0044, 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 @ $
0x0d8340…0d84d4 (1, 38) Dummy {f00=0x0044, 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 , (
0x0d84d4…0d8668 Dummy {f00=0x0044, f01=0x0190, f02=» h , ( ! ^ P _ " , ( @ A ^ T @ 9J A T _ 1@ 8 , ( a _ ^ 9 V >! D A h , ( A > > > > , ( > > > > ^ _ ^ _ ? ? ? ? , ( @ ? A
0x0d8668…0d87fc Dummy {f00=0x0044, 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
0x0d87fc…0d8990 Dummy {f00=0x0044, 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 | , (
0x0d8990…0d8b24 Dummy {f00=0x0044, 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 @ >
0x0d8b24…0d8cb8 Dummy {f00=0x0044, 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
0x0d8cb8…0d8e4c Dummy {f00=0x0044, 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
0x0d8e4c…0d8fe0 Dummy {f00=0x0044, 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
0x0d8fe0…0d9174 (1, 39) Dummy {f00=0x0045, 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$
0x0d9174…0d9308 Dummy {f00=0x0045, f01=0x2008, f02=» L = ADPE01 DATE = 80 -0 4- 1216PACK NBR = 0000 h / x
0x0d9308…0d949c Dummy {f00=0x0045, f01=0x0000, f02=»
0x0d949c…0d9630 Dummy {f00=0x0045, f01=0x0190, f02=» Q W 4 , ( q . , ( C C ^ " H D ! : = " A < KQj M V [ r cT8 u : y }T : P~ Pz Pv H D !$ Pr
0x0d9630…0d97c4 Dummy {f00=0x0045, f01=0x018e, f02=» L H D ! V R " B W, b T B " f r Z P H D !A f P ! " 'W 3T 9T C SP e B iP u f } j l B T H D ! " W W T > X V : T TF P : P # V %P( H D ! @ ) V +W / V 3P A F I X
0x0d97c4…0d9958 Dummy {f00=0x0045, f01=0x4008, f02=»@ ! V R " B W, b T B " f r Z P H D !A f P ! " 'W 3T 9T C SP e B iP u f } j l B T H D ! " W W T > X V : T TF P : P # V %P( H D ! @ ) V +W / V 3P A F I X
0x0d9958…0d9aec Dummy {f00=0x0045, f01=0x2008, f02=»
0x0d9aec…0d9c80 Dummy {f00=0x0045, f01=0x0000, f02=»
[…0x18…]
0x0dc260…0dc3f4 (1, 43) Dummy {f00=0x0046, f01=0x0000, f02=»
[…0xa…]
0x0dd3bc…0dd550 Dummy {f00=0x0046, f01=0x018e, f02=» % P RF(Z) GBUF10 NO BUFFER FREE & . P LDR* A3,A4 REMOVE BUFFER FROM FREE CHAIN & , P STR A3,A2 & ^ * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & p P ABR* A15 RETURN TO CALLER & P EJECT & P* & P* & ( P* INSERT DWT IN WRITE REQUEST QUEUE &
0x0dd550…0dd6e4 Dummy {f00=0x0046, f01=0x0190, f02=» & z PINSWQ2 LDR* A3,A2 ' $ P RF(Z) INSWQ3 END OF QUEUE FOUND ' " P LDR A2,A3 ' J P RB INSWQ2 ' PINSWQ3 ADR A4,A6 ' n P STR A4,A2 INSERT IN QUEUE ' " P CMR A4 INDICATE END OF QUEUE ' P RB GBUF10 RETURN ' P* ' P* ' * P* REMOVE DWT
0x0dd6e4…0dd878 Dummy {f00=0x0046, f01=0x0190, f02=» ' j 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE REMOVED ( PREM06 EQU * ( > P ADR A4,A6 ( R PREM10 LDR* A3,A2 ( f & 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* A
0x0dd878…0dda0c Dummy {f00=0x0046, f01=0x0190, f02=» ( P IFF STAT=0 ) P* A2,A3,A4 DESTROYED ) P* A6=DWT ) 8 P* ) H ( PINSSQ LDKL A2,DCSTQ GET QUEUE ANCHOR ) R P LDK A4,DWTSQ ) ~ P RB INSWQ2 ) P* ) P* ) " P* REMOVE DWT FROM STATUS QUEUE ) P* ) P* A2,A3,A4 DESTROYED ) P*
0x0dda0c…0ddba0 Dummy {f00=0x0046, f01=0x0190, f02=»* ) P* * $ P* QUEUE ALLOCATED RECEIVE BUFFER * P* * < P* A4=BUFFER ADDR * F P* A2,A3 DESTROYED * ^ P* * x PQRBUF EQU * * P IFT MESPAS=1 * ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * P XIF * P IFT MESPAS=0 * $ P LDR A2,A6 QUE
0x0ddba0…0ddd34 (1, 45) Dummy {f00=0x0046, f01=0x0190, f02=»00 END OF QUEUE FOUND * P LDR A2,A3 + P RB QR100 + 0 & PQR200 STR A4,A2 INSERT INTO QUEUE + B " P CMR A4 INDICATE END OF QUEUE + l P RTN A5 + P EJECT + P* + P* + 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P* + 4 P* RE
0x0ddd34…0ddec8 Dummy {f00=0x0046, f01=0x0190, f02=»UEST + | P LDK A1,2 READ REQUEST ? , P CW A1,DWTOR,A6 , , P RF(NE) CKM110 NO , D $ P LD A8,DWTECB,A6 ECB ADDR TO A8 , ^ * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , " P RF(Z) CKM200 NO READ IN QUEUE , P , P , , P LDR* A2,A3 A2=ADDR TO NEXT RE
0x0ddec8…0de05c Dummy {f00=0x0046, f01=0x0190, f02=» =6 , r P LD A4,-4,A3 - 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS - P LD A4,-2,A3 - T . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - h P - P LDK A1,0 RESET RETURN CODE - & P LDR A4,A3 RECEIVE BUFFER ADDRESS - , P CF A15,DC:MIN MOVE DATA
0x0de05c…0de1f0 Dummy {f00=0x0046, f01=0x018e, f02=» P XIF f P IFF TPMODE=1 f PRDM100 EQU * f & $ P CF A5,READP READ ONE CHARACTER f : P RF(NZ) RDM120 PARITY ERROR f b PRDM110 EQU * f P XIF f P IFT TPMODE=1 f & P IM TPM INDICATE TRANSPARENT TEXT f PRDM100 CF A5,READ f P CWK A2,
0x0de1f0…0de384 Dummy {f00=0x0046, f01=0x018e, f02=» P RB(E) RDM100 SKIP SYN g P CF A5,CRCCAL CALCULATE CRC g " " P CWK A2,DLE CHECK IF 2:ND DLE g F * P RF(E) RDM115 YES - STORE DLE AS DATA g l 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 YE
0x0de384…0de518 Dummy {f00=0x0046, f01=0x0190, f02=» P* h P* h P* GET END OF BLOCK h P* h 2 PRDM105 EQU * h < P CF A5,READ h P P CWK A2,DLE h d P RB(NE) RDM105 h x P CF A5,READ h P CWK A2,ETX h $ P RF(E) RDM110 YES - END OF BLOCK h P CWK A2,ETBEBC h $ P RF(E) RDM110 YES -
0x0de518…0de6ac Dummy {f00=0x0046, f01=0x018e, f02=»E INVALID MESSAGE h ~ & PRDM112 CF A5,CRCCAL CALCULATE CRC i P XIF i D P IFF TPMODE=1 i P 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
0x0de6ac…0de840 Dummy {f00=0x0046, f01=0x018e, f02=» i P IFT CODE=0 j P IFT BINTRM=1 j P j 2 P LDR A1,A2 j : P SUK A1,DC1+3 j L P RF(P) RDM115 NOT DC1-DC3 j b P ADK A1,3 j P RF(N) RDM115 NOT DC1-DC3 j P SLL A1,6 j P LDR A8,A1 j * P CF A5,READP 8-BIT CHAR GET NEXT PART j
0x0de840…0de9d4 (1, 46) Dummy {f00=0x0046, f01=0x0190, f02=» j P SCR A2,A4 STORE CHARACTER k P ADK A4,1 INCREMENT POINTER k * $ P IM FBAX INCREMENT BUFFER INDEX k N P LD A1,FBAX k v P CWK A1,RBUFL+RBUFL k P RB(NG) RDM100 NOT OVERFLOW k P IFT TPMODE=1 k P RF RDM135 k P XIF k P* k P
0x0de9d4…0deb68 Dummy {f00=0x0046, f01=0x0190, f02=»/7F k $ P RF(Z) RDM150 MARK HOLD RECEIVED l P RB RDM100 l 4 P* l F P* ETX RECEIVED l P P* l f PRDM130 EQU * l p $ P LD A1,DCRBUF GET BUFFER ADDRESS l P LD A2,FBAX GET BUFFER INDEX l 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN HEADER l P I
0x0deb68…0decfc Dummy {f00=0x0046, f01=0x0190, f02=» l p P XIF m P IFT CODE=1 m & P CF A5,RDCRC READ CRC AND CHECK IT m ( P RF(E) RDM150 CRC WAS OK m R P XIF m r P IFT TPMODE=1 m ~ $ PRDM135 CM TPM OUT OF TRANSP TEXT m P XIF m PRDM140 EQU * m & P LDK A3,1 INDICATE INVALID MESSAGE m PRD
0x0decfc…0dee90 Dummy {f00=0x0046, f01=0x0000, f02=»
0x0dee90…0df024 Dummy {f00=0x0046, f01=0x0006, f02=»
0x0df024…0df1b8 Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT DRDC15 REL 10.0 80-06-30 87010504100 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK , ( ! , ( I P P 1P P W P
0x0df1b8…0df34c Dummy {f00=0x0046, f01=0x0190, f02=» ECBRL , ( :H B # L 9 B Y , ( @ B Y P @ @ @ , ( ` @ P 0P _ % A A p DWTST TENDIO , ( Y _t B DWTECB , (
0x0df34c…0df4e0 Dummy {f00=0x0046, f01=0x0190, f02=»P Y _R X ! X _ B DISEND & SETIME 8 , ( E Y _l X P A J , ( a@ Y W Y @_ X z , ( X A Y _& Y , ( @ 0 A A _: X P ( y ,
0x0df4e0…0df674 (1, 47) Dummy {f00=0x0047, f01=0x0190, f02=» ( j DWTOR , ( BP _ ) 1 4 X R X , ( 9 T X P , Y L C J , ( U L C > @ @ z , ( q @ @ A X _" X P y , ( Y X P T @ T ,
0x0df674…0df808 Dummy {f00=0x0047, f01=0x0190, f02=» | , ( BHBB B A A ! ! , ( ) T P P < , ( I ! T A P A T ! R l , ( i ! T ! T ! A , ( P " ! _ ! T , (
0x0df808…0df99c Dummy {f00=0x0047, f01=0x0190, f02=» T A ! @ P @ P @ , ( @@ ) 8 ! ! A _: ! X6_Z , , ( B I A @ @ T 1 R 0 2P TEBCDI , ( i P P A @ 8 H @ , ( P E P X R X T , ( !
0x0df99c…0dfb30 Dummy {f00=0x0047, f01=0x0190, f02=» @ X ! X ! W A @ X , ( ) A A A ! @ T @ , , ( H / P ! ! @ T @ X W @ , ( O @ @ @ A ! @ , ( @ o T _> ! T @ P ! ! _X , ( /T @ X @ P
0x0dfb30…0dfcc4 Dummy {f00=0x0047, f01=0x0190, f02=» _N @ T X ! | , ( P ! # T @ T ! _ ! , ( B ) A ! _$ A A H E A L , ( H G A 4 @ P ! ! ! @ | , ( P g P ! ! A @ T ! _ * & P T _ A C
0x0dfcc4…0dfe58 Dummy {f00=0x0047, f01=0x0190, f02=» ! X Zp X | , ( D Xp Xt_~ @ P X R X , ( P T T Y W P L , ( P /H C A A 4 @ | , ( $ K @ T @ A @ A A , ( @ k @ T ! T T ! ! ! T
0x0dfe58…0dffec Dummy {f00=0x0047, f01=0x0190, f02=»_$ ! l , ( 2_l / A T W ,W @ A , ( @H A W W W A A ! @ < , ( + ! @ ! ! ! ! 4 l , ( Q K ! ! @ @ A @ , ( @ k T @ ! 8 ! @ P - ! x , ( @ !
0x0dffec…0e0180 Dummy {f00=0x0047, f01=0x0190, f02=» U }Z` Q P Q T 0 ! , ( ! A 0 ! A ! " ! , , ( ) " ! 8 A _" A A ! , ( I ! % ! R ! ! @ ! * & i 8 ! X ! 9a D ! X , ( ! P ! T & ! _b !
0x0e0180…0e0314 (1, 48) Dummy {f00=0x0047, f01=0x0190, f02=»H1501 INTSAVL , ( $ 4 A $ ? J T A T A T " , ( 2P ! H A A 4 ! R IH1502 , ( A $ ? _ J "#T @ , ( A 9 P R 2B W " P @ P W " , ( Y " P
0x0e0314…0e04a8 Dummy {f00=0x0047, f01=0x0190, f02=» B _ _: ! ! 1 4 , ( @ A @ ` @ P 0 M A & DC15ON V , ( 4 ? @ ` @ P $ Y j , ( T _ A @ A ( @ T , ( )@ / B @ A ( @ , ( M !@P
0x0e04a8…0e063c Dummy {f00=0x0047, f01=0x0190, f02=» @ P a A 4 A A A , ( ?a :a# P @ @ @ * 4 Z , ( * A ! ! A @ :H n DW1500 , ( 4 " ` 3 F b
0x0e063c…0e07d0 Dummy {f00=0x0047, f01=0x0000, f02=»
[…0x14…]
0x0e2760…0e28f4 (1, 51) Dummy {f00=0x0048, f01=0x0000, f02=»
[…0x3…]
0x0e2db0…0e2f44 Dummy {f00=0x0048, f01=0x0002, f02=»
0x0e2f44…0e30d8 Dummy {f00=0x0048, 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
0x0e30d8…0e326c Dummy {f00=0x0048, f01=0x0190, f02=» $R M A TLDS15 R $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC SCTMMP SCTNPE , ( e D " @ @ - U S
0x0e326c…0e3400 Dummy {f00=0x0048, f01=0x4030, f02=»T 1W^ 9R YP {U @ , $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC SCTMMP SCTNPE , ( e D " @ @ - U S
0x0e3400…0e3594 (1, 52) Dummy {f00=0x0048, f01=0x2008, f02=»
0x0e3594…0e3728 Dummy {f00=0x0048, f01=0x0000, f02=»
[…0x11…]
0x0e51fc…0e5390 Dummy {f00=0x0048, 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
0x0e5390…0e5524 Dummy {f00=0x0048, 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
0x0e5524…0e56b8 Dummy {f00=0x0048, 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 ****
0x0e56b8…0e584c Dummy {f00=0x0048, 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
0x0e584c…0e59e0 Dummy {f00=0x0048, 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
0x0e59e0…0e5b74 (1, 55) Dummy {f00=0x0049, 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
0x0e5b74…0e5d08 Dummy {f00=0x0049, 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
0x0e5d08…0e5e9c Dummy {f00=0x0049, 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
0x0e5e9c…0e6030 Dummy {f00=0x0049, f01=0x0000, f02=»
[…0xf…]
0x0e77dc…0e7970 Dummy {f00=0x0049, 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
0x0e7970…0e7b04 Dummy {f00=0x0049, 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*********************
0x0e7b04…0e7c98 Dummy {f00=0x0049, 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
0x0e7c98…0e7e2c Dummy {f00=0x0049, 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
0x0e7e2c…0e7fc0 Dummy {f00=0x0049, 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/
0x0e7fc0…0e8154 (1, 58) Dummy {f00=0x0049, 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
0x0e8154…0e82e8 Dummy {f00=0x0049, 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
0x0e82e8…0e847c Dummy {f00=0x0049, 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
0x0e847c…0e8610 Dummy {f00=0x0049, f01=0x0190, f02=»ASK IN SYSTEM P* P EJECT SYSTAB P* 8 P* SYSTEM CONTROL TABLE B P* ` PSCT EQU * j P | * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTI
0x0e8610…0e87a4 Dummy {f00=0x0049, f01=0x0190, f02=»A 0,0 APPLICATION DISC SECTOR ADDRESS . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS . PSCTTCT DATA 0 TCTAB ADDRESS ` PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF
0x0e87a4…0e8938 Dummy {f00=0x0049, f01=0x0190, f02=»LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY & P INDEX REL TTAB P * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES j ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA X:A MONITOR OP
0x0e8938…0e8acc Dummy {f00=0x0049, f01=0x0190, f02=»X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE H P EJECT SYSTAB | P* P* * PSCTFWT DATA 0 FWT CHAIN START ADDRESS $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DAT
0x0e8acc…0e8c60 Dummy {f00=0x0049, f01=0x413e, f02=»X:G DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB $ P < P* D P* SYSTEM STACK N P* d P RES 143 n P DATA /FCC0 AND PSW ~ & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP
0x0e8c60…0e8df4 (1, 59) Dummy {f00=0x004a, 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
0x0e8df4…0e8f88 Dummy {f00=0x004a, 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*
0x0e8f88…0e911c Dummy {f00=0x004a, 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
0x0e911c…0e92b0 Dummy {f00=0x004a, 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
0x0e92b0…0e9444 Dummy {f00=0x004a, f01=0x0004, f02=» 8 @
0x0e9444…0e95d8 Dummy {f00=0x004a, 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 SCTLAPD SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTV
0x0e95d8…0e976c Dummy {f00=0x004a, 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
0x0e976c…0e9900 Dummy {f00=0x004a, f01=0x018e, f02=» IHRTC ILLINT , ( " IH1501 R IH1502 d CHLT1 v IHFDN , ( , ( ! , ( 1
0x0e9900…0e9a94 (1, 60) Dummy {f00=0x004a, f01=0x0190, f02=» f , ( a , ( q 8 HALTN h x SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA , (
0x0e9a94…0e9c28 Dummy {f00=0x004a, f01=0x0190, f02=»B SCTNOP SCTPSZ SCTMMC 4 SCTLAC H SCTMMPL SCTLAPD p SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x0e9c28…0e9dbc Dummy {f00=0x004a, f01=0x407e, f02=» SCTDCT ^ _ 2 H h@ z p SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x0e9dbc…0e9f50 Dummy {f00=0x004a, 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
0x0e9f50…0ea0e4 Dummy {f00=0x004a, 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
0x0ea0e4…0ea278 Dummy {f00=0x004a, 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
0x0ea278…0ea40c Dummy {f00=0x004a, 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
0x0ea40c…0ea5a0 Dummy {f00=0x004a, 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 :
0x0ea5a0…0ea734 (1, 61) Dummy {f00=0x004a, 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
0x0ea734…0ea8c8 Dummy {f00=0x004a, 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
0x0ea8c8…0eaa5c Dummy {f00=0x004a, 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
0x0eaa5c…0eabf0 Dummy {f00=0x004a, 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
0x0eabf0…0ead84 Dummy {f00=0x004a, 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*
0x0ead84…0eaf18 Dummy {f00=0x004a, 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
0x0eaf18…0eb0ac Dummy {f00=0x004a, 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
0x0eb0ac…0eb240 Dummy {f00=0x004a, 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*
0x0eb240…0eb3d4 (1, 62) Dummy {f00=0x004a, 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
0x0eb3d4…0eb568 Dummy {f00=0x004a, 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
0x0eb568…0eb6fc Dummy {f00=0x004a, 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 *
0x0eb6fc…0eb890 Dummy {f00=0x004a, 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
0x0eb890…0eba24 Dummy {f00=0x004a, 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
0x0eba24…0ebbb8 Dummy {f00=0x004a, 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)
0x0ebbb8…0ebd4c Dummy {f00=0x004a, 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
0x0ebd4c…0ebee0 Dummy {f00=0x004a, 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
0x0ebee0…0ec074 (1, 63) Dummy {f00=0x004b, 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. [
0x0ec074…0ec208 Dummy {f00=0x004b, 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
0x0ec208…0ec39c Dummy {f00=0x004b, 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
0x0ec39c…0ec530 Dummy {f00=0x004b, 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
0x0ec530…0ec6c4 Dummy {f00=0x004b, 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
0x0ec6c4…0ec858 Dummy {f00=0x004b, 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
0x0ec858…0ec9ec Dummy {f00=0x004b, 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
0x0ec9ec…0ecb80 Dummy {f00=0x004b, 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
0x0ecb80…0ecd14 (1, 64) Dummy {f00=0x004b, 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
0x0ecd14…0ecea8 Dummy {f00=0x004b, 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
0x0ecea8…0ed03c Dummy {f00=0x004b, 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 (
0x0ed03c…0ed1d0 Dummy {f00=0x004b, f01=0x0000, f02=»
0x0ed1d0…0ed364 Dummy {f00=0x004b, f01=0x0002, f02=»
0x0ed364…0ed4f8 Dummy {f00=0x004b, 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
0x0ed4f8…0ed68c Dummy {f00=0x004b, f01=0x4138, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F0F1 h P DATA /F2F3 | P DATA /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFC P DATA /FDFD PDFTABE EQU * PDMTIDP E
0x0ed68c…0ed820 Dummy {f00=0x004b, 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*
0x0ed820…0ed9b4 (1, 65) Dummy {f00=0x004b, f01=0x0190, f02=»AST OUTPUT? " ~ P RF(E) ADY125 # P SUK A1,1 NO! # * " P LDR* A7,A6 CHANNEL PARAMETER # @ P ANK A7,/30 GRAFIC DISPLAY ? # f P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # P RF(NE) ADY128 # " P
0x0ed9b4…0edb48 Dummy {f00=0x004b, f01=0x0190, f02=» A4,0 # P RB ACDY50 $ $ PADY122 CCK A2,/1212 UNDERLINE ? $ P RF(NE) ADY125 $ H " P LDK A4,/40 SET UNDERLINE MODE $ ^ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A4,0 $ P RB(NE) ACDY50 NO $ P LDR A4,A2 $ ( P CF A15,GE
0x0edb48…0edcdc Dummy {f00=0x004b, f01=0x0190, f02=»F(Z) ADY127 NONE $ P* % P IFT WHATDY=0 % " & P LDR* A7,A6 GET CHANNEL PARAMETER % 8 P ANK A7,/10 % b 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % v P XIF % P LDR A3,A1 NO! % P CF A5,FASTER % PADY127 EQU * % P LD A3,4,A8 REQ
0x0edcdc…0ede70 Dummy {f00=0x004b, 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 , (
0x0ede70…0ee004 Dummy {f00=0x004b, 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
0x0ee004…0ee198 Dummy {f00=0x004b, 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
0x0ee198…0ee32c Dummy {f00=0x004b, f01=0x0190, f02=» T X p ECBFC , ( " C : X V P _ : C , ( U : @ @ P , ( V )$ T B , * Y $ * & ! : & $ Y : @ , ( ? P 8 T _ &
0x0ee32c…0ee4c0 Dummy {f00=0x004b, 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
0x0ee4c0…0ee654 (1, 66) Dummy {f00=0x004b, f01=0x2008, f02=»
0x0ee654…0ee7e8 Dummy {f00=0x004b, f01=0x0000, f02=»
[…0x6…]
0x0ef160…0ef2f4 (1, 67) Dummy {f00=0x004c, f01=0x0000, f02=»
[…0xa…]
0x0f02bc…0f0450 Dummy {f00=0x004c, f01=0x2008, f02=»
0x0f0450…0f05e4 Dummy {f00=0x004c, f01=0x0002, f02=» 8
0x0f05e4…0f0778 Dummy {f00=0x004c, 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
0x0f0778…0f090c Dummy {f00=0x004c, f01=0x413a, f02=» INTRT4 SYSLOD CTAB01 0 CTAB04 B * & T KBAD3 GPADN DIADN DYADN INTAS $ INTSL & SPDLCI ( & "
0x0f090c…0f0aa0 Dummy {f00=0x004c, f01=0x2008, f02=»
0x0f0aa0…0f0c34 (1, 69) Dummy {f00=0x004c, f01=0x0000, f02=»
[…0xa…]
0x0f1bfc…0f1d90 Dummy {f00=0x004c, f01=0x0190, f02=» )'''''48 t * & fD]]NW[A A A jo ! ! ! ! * & + h / ! ,p_ A jo ! !W:A W @ * & I .jo !] A A W*A jo !]!W jo !]#A n * & g A !W jo !]" !A jo ! ! * & ! h / ! # '2 * & !4
0x0f1d90…0f1f24 Dummy {f00=0x004c, f01=0x0190, f02=» # d0 3 ( `c_* * & 0" T ` c d H 0 $ 4 * & 9 I 2 " " j " " N * & W j " " $ . ! # | * & u T ! 0 "" U W * & !+ !4 0 $ f c# # d# * &
0x0f1f24…0f20b8 Dummy {f00=0x004c, f01=0x0190, f02=» _ b$ " b ,# c bch b!Z * & ) 2! } c! b$ " b_D( % $L b . * & G # # b*a & &a_b a c! ac * & e bch baZ7! bc a ab c!j c!a! c * & b c!f c! ! d!_ bch b!Z=! W * & "i c!j c!Z c! (c a
0x0f20b8…0f224c Dummy {f00=0x004c, f01=0x0190, f02=» a j p * & c!a! b b! c!f cb db4 j b u * & 7 a0 u $ #@g c hZ a b! < * & U +6 ....zV.VV*zVV......... .z j * & s .jc!! b"c ~W 6 b! !jc! * & ! b"c f b! !W, ! b! !Hg ( * & 'b `/d b!Z`
0x0f224c…0f23e0 Dummy {f00=0x004c, f01=0x0190, f02=»d b!Z7 !Jg{ '!_ ` ~ * & ' 9W `(j b!Z` b! ! ' j '!! b * & E ' j b!Z= 'b '!Ag_ 4 b!jc!! J * & c b c ` m ` f b!d b` `! ` x b` ` !Hg '`4 d * & n : 8 E I w U _
0x0f23e0…0f2574 (1, 71) Dummy {f00=0x004d, f01=0x0190, f02=»MATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x0f2574…0f2708 Dummy {f00=0x004d, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d % , '
0x0f2708…0f289c Dummy {f00=0x004d, f01=0x0190, f02=» h dG . 20 " - + 30 - + 40 50 # 60 $ - " & + 0 5 ; A G N U d l t ~ ! ' . 5 <
0x0f289c…0f2a30 Dummy {f00=0x004d, f01=0x0190, f02=» L X <| <| & <| &9B %W _ 6< <| F C W ( = Wn _ <| & <| & <| ( : P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) <| ' 9 <| & X X . X* T Z0 I R < _
0x0f2a30…0f2bc4 Dummy {f00=0x004d, f01=0x0190, f02=» _| V V Q WR _< _B 6< <| C <| ( B T B $ ' Y <| ' 9 _ <| <| : <| <| <| <| <| P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f <| <| & 9
0x0f2bc4…0f2d58 Dummy {f00=0x004d, f01=0x0190, f02=» _. W P 8 _> <| <| <| <| P 8# ' Y = # | _ _ _ _ _ <| <| ' <| _ <| & <| ]8 Z YB_J W 6< <| & C <| <| & C <| & C C ( B X _ W & Y < * C _& 6< <| <|
0x0f2d58…0f2eec Dummy {f00=0x004d, f01=0x0190, f02=» E ( E 0 E , Y E . 9 <| 2> X ' <| X P &V Y , X Y / X Y (v <| 2> & Y _P W _ <| P2 T !00R$ !99Q $ Y T U U _6 T P Y P <| V E 9 <| <| P
0x0f2eec…0f3080 Dummy {f00=0x004d, f01=0x0190, f02=» ' <| <|#0 P &V Q & C <|#0 P & C 4 <|#0 P ; & + P _ P 9 <|#03 P <|;d # + 9 <| #0 0T & ! T P & ! X T C 9 $z $ )N Y ( x P Y * " x y Wv
0x0f3080…0f3214 (1, 72) Dummy {f00=0x004d, f01=0x0190, f02=» Y * X Y , ) X X C & C C ( B Ph9 R^9 #| X !@PP X X * b ) Y * Y , X , ) x X *YrP y X " x Y X " T Y _ $ _ B U C Q C D!"!$!4!F! # # ! X X * $" ~_> @ Y X * P_R X !@XX y X #
0x0f3214…0f33a8 Dummy {f00=0x004d, f01=0x0190, f02=» X * y )* X 1 1 X !@T X $ " P y _ x T $F #N X H X X * , )$ P _ : $z ' Y ; $ y x C y X C C X ( x Tf B # 9 R 9 #| X ! T $ _ y C Q " T )N )*
0x0f33a8…0f353c Dummy {f00=0x004d, f01=0x0190, f02=» y C C X !? x P Q( B y " y $ c 2( C _$ _ $6 y _6 "Z x X@ X ) X # )* C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ) $f " x X X # )*_ B $2 C ) : + )N X ) )*
0x0f353c…0f36d0 Dummy {f00=0x004d, f01=0x0190, f02=»! P : ; <| $ <| $ " <| $ $ : ! P # P P : 2> 2! P Y " 2 <| 2 <| !0 P An 2> X "T X 2( )0 24 2> <| !0 P X 2: % 2& 2 ' <| ! Y 0T V
0x0f36d0…0f3864 Dummy {f00=0x004d, f01=0x0190, f02=»P X ' 2: X ! 2& 2( 2> X " 9b! X :c 2" P H& 28@ W W W W W W W 2> Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 ) W U X Q * W Y 0 ) +N 6< 5z 2> 9H Y * ( W W ( 5z X 0T
0x0f3864…0f39f8 Dummy {f00=0x004d, f01=0x0190, f02=» Y + U Q P Y Q P W W Y ( ) C 2> X *! P V L ! 2: 9 X 0 Y 8 (< P 2Z Y 0 X 0 X 2] X 8 Y 0 (< : X 0 :H* 2F : X 2T Y 2 : C 1 B ] 5 : ( X +! P X +! U 9K Y ( Y + ) +N 2>9H Y *
0x0f39f8…0f3b8c Dummy {f00=0x004d, f01=0x0190, f02=» C B _( _ X ) )N P )* B _N ( 2 X D D : K + Q 2 P. P8 ; J ( 2 B X # V : <| I _0 > _>LdLb<|LbLbLbL LPLLI H I H + , , Lb+ LbI W W X 0Q * * Y ( Y *P 5z G
0x0f3b8c…0f3d20 Dummy {f00=0x004d, f01=0x0190, f02=» (_z P P T0 " X _@ " P" 5b X *# P B 1 5bW P " P X X( C : X *! P P T P P 5z 1 C W @ X (T W X y 6 Y ( : X (;n 2(LdI J I Iv,DL LPLLI H I H + ,h,hI + LbI 2> Y . Y ,W 2> Y . X ( X .
0x0f3d20…0f3eb4 (1, 73) Dummy {f00=0x004d, f01=0x0190, f02=»:ATTF hDE11ST 801014 $$$TRA1 DE11ST DECLRN1 DERRORA T:ATTF0 T:DISPF T:GETT T:SETT. E DE12ST 801014 $$$TRA1 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G DECLRA1 DEDISCA DEPOOL0 DERR0 ENT12 RESTORL T:ATTF0
0x0f3eb4…0f4048 Dummy {f00=0x004d, f01=0x000a, f02=» ` p @
0x0f4048…0f41dc Dummy {f00=0x004d, f01=0x000c, f02=»801015 ! 1015 D:DU70D :D ,Z:DU80 801015 Z:DU80D ,D:DU80 801015 D:DU80D :D ,Z:DU90 801015 Z:DU90D ,D:DU90 801015 D:DU90D :D XFDIO 801015 FDIOY T
0x0f41dc…0f4370 Dummy {f00=0x004d, f01=0x0190, f02=» .T:AT10 801015 T:AT10A T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 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:DB200 Z:TB10F D:DB30 Z:TB10. D:T
0x0f4370…0f4504 Dummy {f00=0x004d, f01=0x0190, f02=»D20 T:AT10 :A 6U:BTAB 801015 U:BTABB U:CB10 :C ,S:BTAB 801015 S:BTABB :B ,Z:TB10 801015 Z:TB10T ,D:TB10 801015 D:TB10T :T ,D:DB10 801015 D:DB10D > ,
0x0f4504…0f4698 Dummy {f00=0x004d, f01=0x0190, f02=» ,D:CB10 801015 D:CB10C 6 ,C:CB20 801015 C:CB20C $ ,D:CB20 801015 D:CB20C B ,C:CB30 801015 C:CB30C 8 ,D:CB30 801015 D:CB30C F ,C:CB40 801015 C:CB40C
0x0f4698…0f482c Dummy {f00=0x004d, f01=0x0190, f02=»0C > ,Z:TB20 801015 Z:TB20T ,D:TB20 801015 D:TB20T B ,Z:TB30 801015 Z:TB30T ,D:TB30 801015 D:TB30T F ,Z:TB40 801015 Z:TB40T $ ,D:TB40 801015
0x0f482c…0f49c0 Dummy {f00=0x004d, f01=0x0190, f02=»15 Z:TB60T 4 ,D:TB60 " 801015 D:TB60T . DEDISC # 801015 $$$TRAD COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 WAITR d CHANFCM CLSBTHR DELBTCA DELFMTT DELJOBS DELTBL DEPOOL DLCURRd ENTFMTA ENTJOB0 E
0x0f49c0…0f4b54 (1, 74) Opaque[0x194]
0x0f4b54…0f4ce8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x0f4b54…0f4ce8 IdxSect {
0x0f4b54…0f4ce8 f00 = 0x004d // 0xf4b54 @0x0
0x0f4b54…0f4ce8 f01 = 0x0002 // 0xf4b56 @0x2
0x0f4b54…0f4ce8 gno = [ // 0xf4b58 @0x4
0x0f4b54…0f4ce8 [0x00]: C0x004d.0x3.0
0x0f4b54…0f4ce8 ]
0x0f4b54…0f4ce8 }
0x0f4ce8…0f4e7c Dummy {f00=0x004d, 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*
0x0f4e7c…0f5010 Dummy {f00=0x004d, 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
0x0f5010…0f51a4 Dummy {f00=0x004d, 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
0x0f51a4…0f5338 Dummy {f00=0x004d, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x0f5338…0f54cc Dummy {f00=0x004d, 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
0x0f54cc…0f5660 Dummy {f00=0x004d, 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
0x0f5660…0f57f4 (1, 75) Opaque[0x194]
0x0f57f4…0f5988 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c0, f03=0x0000}
0x0f57f4…0f5988 IdxSect {
0x0f57f4…0f5988 f00 = 0x004e // 0xf57f4 @0x0
0x0f57f4…0f5988 f01 = 0x0002 // 0xf57f6 @0x2
0x0f57f4…0f5988 gno = [ // 0xf57f8 @0x4
0x0f57f4…0f5988 [0x00]: C0x004e.0x0.0
0x0f57f4…0f5988 ]
0x0f57f4…0f5988 }
0x0f5988…0f5b1c Dummy {f00=0x004e, 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
0x0f5b1c…0f5cb0 Dummy {f00=0x004e, 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
0x0f5cb0…0f5e44 Dummy {f00=0x004e, 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
0x0f5e44…0f5fd8 Dummy {f00=0x004e, 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
0x0f5fd8…0f616c Dummy {f00=0x004e, 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
0x0f616c…0f6300 Dummy {f00=0x004e, 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
0x0f6300…0f6494 (1, 76) Opaque[0x194]
0x0f6494…0f6628 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x0f6494…0f6628 IdxSect {
0x0f6494…0f6628 f00 = 0x004e // 0xf6494 @0x0
0x0f6494…0f6628 f01 = 0x0006 // 0xf6496 @0x2
0x0f6494…0f6628 gno = [ // 0xf6498 @0x4
0x0f6494…0f6628 [0x00]: C0x004e.0x1.0
0x0f6494…0f6628 [0x01]: C0x004e.0x2.0
0x0f6494…0f6628 [0x02]: C0x004e.0x3.0
0x0f6494…0f6628 ]
0x0f6494…0f6628 }
0x0f6628…0f67bc Dummy {f00=0x004e, 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*
0x0f67bc…0f6950 Dummy {f00=0x004e, 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
0x0f6950…0f6ae4 Dummy {f00=0x004e, 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
0x0f6ae4…0f6c78 Dummy {f00=0x004e, 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
0x0f6c78…0f6e0c Dummy {f00=0x004e, 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
0x0f6e0c…0f6fa0 Dummy {f00=0x004e, 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
0x0f6fa0…0f7134 (1, 77) Dummy {f00=0x004e, 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
0x0f7134…0f72c8 Dummy {f00=0x004e, 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*
0x0f72c8…0f745c Dummy {f00=0x004e, 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
0x0f745c…0f75f0 Dummy {f00=0x004e, 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
0x0f75f0…0f7784 Dummy {f00=0x004e, 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
0x0f7784…0f7918 Dummy {f00=0x004e, 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
0x0f7918…0f7aac Dummy {f00=0x004e, 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
0x0f7aac…0f7c40 Dummy {f00=0x004e, 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*
0x0f7c40…0f7dd4 (1, 78) Dummy {f00=0x004e, 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
0x0f7dd4…0f7f68 Dummy {f00=0x004e, 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
0x0f7f68…0f80fc Dummy {f00=0x004e, 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
0x0f80fc…0f8290 Dummy {f00=0x004e, 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
0x0f8290…0f8424 Dummy {f00=0x004e, 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
0x0f8424…0f85b8 Dummy {f00=0x004e, 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
0x0f85b8…0f874c Dummy {f00=0x004e, 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
0x0f874c…0f88e0 Dummy {f00=0x004e, 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 <
0x0f88e0…0f8a74 (1, 79) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x004f // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0008 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x004f.0x0.0
0x0f8a74…0f8c08 [0x01]: C0x004f.0x1.0
0x0f8a74…0f8c08 [0x02]: C0x004f.0x2.0
0x0f8a74…0f8c08 [0x03]: C0x004f.0x3.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x004f, 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****************
0x0f8d9c…0f8f30 Dummy {f00=0x004f, 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.
0x0f8f30…0f90c4 Dummy {f00=0x004f, 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
0x0f90c4…0f9258 Dummy {f00=0x004f, 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
0x0f9258…0f93ec Dummy {f00=0x004f, 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
0x0f93ec…0f9580 Dummy {f00=0x004f, 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
0x0f9580…0f9714 (1, 80) Dummy {f00=0x004f, 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
0x0f9714…0f98a8 Dummy {f00=0x004f, 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*
0x0f98a8…0f9a3c Dummy {f00=0x004f, 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
0x0f9a3c…0f9bd0 Dummy {f00=0x004f, 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
0x0f9bd0…0f9d64 Dummy {f00=0x004f, 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
0x0f9d64…0f9ef8 Dummy {f00=0x004f, 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
0x0f9ef8…0fa08c Dummy {f00=0x004f, 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
0x0fa08c…0fa220 Dummy {f00=0x004f, 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
0x0fa220…0fa3b4 (1, 81) Dummy {f00=0x004f, 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
0x0fa3b4…0fa548 Dummy {f00=0x004f, 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* *
0x0fa548…0fa6dc Dummy {f00=0x004f, 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
0x0fa6dc…0fa870 Dummy {f00=0x004f, 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
0x0fa870…0faa04 Dummy {f00=0x004f, 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
0x0faa04…0fab98 Dummy {f00=0x004f, 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
0x0fab98…0fad2c Dummy {f00=0x004f, 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
0x0fad2c…0faec0 Dummy {f00=0x004f, 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
0x0faec0…0fb054 (1, 82) Dummy {f00=0x004f, 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
0x0fb054…0fb1e8 Dummy {f00=0x004f, 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,
0x0fb1e8…0fb37c Dummy {f00=0x004f, 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
0x0fb37c…0fb510 Dummy {f00=0x004f, 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
0x0fb510…0fb6a4 Dummy {f00=0x004f, 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
0x0fb6a4…0fb838 Dummy {f00=0x004f, 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
0x0fb838…0fb9cc Dummy {f00=0x004f, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTV SCTPAG SCTSWB
0x0fb9cc…0fbb60 Dummy {f00=0x004f, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x0fbb60…0fbcf4 (1, 83) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x0050 // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x000a // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x0050.0x0.0
0x0fbcf4…0fbe88 [0x01]: C0x0050.0x1.0
0x0fbcf4…0fbe88 [0x02]: C0x0050.0x2.0
0x0fbcf4…0fbe88 [0x03]: C0x0050.0x3.0
0x0fbcf4…0fbe88 [0x04]: C0x0051.0x0.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x0050, 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*
0x0fc01c…0fc1b0 Dummy {f00=0x0050, 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*
0x0fc1b0…0fc344 Dummy {f00=0x0050, 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
0x0fc344…0fc4d8 Dummy {f00=0x0050, 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
0x0fc4d8…0fc66c Dummy {f00=0x0050, 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
0x0fc66c…0fc800 Dummy {f00=0x0050, 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
0x0fc800…0fc994 (1, 84) Dummy {f00=0x0050, 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*
0x0fc994…0fcb28 Dummy {f00=0x0050, 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.
0x0fcb28…0fccbc Dummy {f00=0x0050, 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:
0x0fccbc…0fce50 Dummy {f00=0x0050, 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
0x0fce50…0fcfe4 Dummy {f00=0x0050, 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
0x0fcfe4…0fd178 Dummy {f00=0x0050, 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
0x0fd178…0fd30c Dummy {f00=0x0050, 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
0x0fd30c…0fd4a0 Dummy {f00=0x0050, 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
0x0fd4a0…0fd634 (1, 85) Dummy {f00=0x0050, 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
0x0fd634…0fd7c8 Dummy {f00=0x0050, 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*
0x0fd7c8…0fd95c Dummy {f00=0x0050, 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
0x0fd95c…0fdaf0 Dummy {f00=0x0050, 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*
0x0fdaf0…0fdc84 Dummy {f00=0x0050, 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
0x0fdc84…0fde18 Dummy {f00=0x0050, 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
0x0fde18…0fdfac Dummy {f00=0x0050, 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
0x0fdfac…0fe140 Dummy {f00=0x0050, 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
0x0fe140…0fe2d4 (1, 86) Dummy {f00=0x0050, 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
0x0fe2d4…0fe468 Dummy {f00=0x0050, 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
0x0fe468…0fe5fc Dummy {f00=0x0050, 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
0x0fe5fc…0fe790 Dummy {f00=0x0050, 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*
0x0fe790…0fe924 Dummy {f00=0x0050, 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*
0x0fe924…0feab8 Dummy {f00=0x0050, 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
0x0feab8…0fec4c Dummy {f00=0x0050, 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
0x0fec4c…0fede0 Dummy {f00=0x0050, 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
0x0fede0…0fef74 (1, 87) Dummy {f00=0x0051, 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
0x0fef74…0ff108 Dummy {f00=0x0051, 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(
0x0ff108…0ff29c Dummy {f00=0x0051, 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
0x0ff29c…0ff430 Dummy {f00=0x0051, 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*
0x0ff430…0ff5c4 Dummy {f00=0x0051, 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*
0x0ff5c4…0ff758 Dummy {f00=0x0051, 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
0x0ff758…0ff8ec Dummy {f00=0x0051, f01=0x0000, f02=»
[…0x1…]
0x0ffa80…0ffc14 (1, 88) Opaque[0x194]
0x0ffc14…0ffda8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a28, f03=0x0000}
0x0ffc14…0ffda8 IdxSect {
0x0ffc14…0ffda8 f00 = 0x0051 // 0xffc14 @0x0
0x0ffc14…0ffda8 f01 = 0x0006 // 0xffc16 @0x2
0x0ffc14…0ffda8 gno = [ // 0xffc18 @0x4
0x0ffc14…0ffda8 [0x00]: C0x0051.0x1.0
0x0ffc14…0ffda8 [0x01]: C0x0051.0x2.0
0x0ffc14…0ffda8 [0x02]: C0x0051.0x3.0
0x0ffc14…0ffda8 ]
0x0ffc14…0ffda8 }
0x0ffda8…0fff3c Dummy {f00=0x0051, 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*
0x0fff3c…1000d0 Dummy {f00=0x0051, 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***********
0x1000d0…100264 Dummy {f00=0x0051, 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 *
0x100264…1003f8 Dummy {f00=0x0051, 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
0x1003f8…10058c Dummy {f00=0x0051, 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 *
0x10058c…100720 Dummy {f00=0x0051, 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
0x100720…1008b4 (1, 89) Dummy {f00=0x0051, 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
0x1008b4…100a48 Dummy {f00=0x0051, 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* (
0x100a48…100bdc Dummy {f00=0x0051, 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
0x100bdc…100d70 Dummy {f00=0x0051, 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
0x100d70…100f04 Dummy {f00=0x0051, 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
0x100f04…101098 Dummy {f00=0x0051, 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
0x101098…10122c Dummy {f00=0x0051, 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)
0x10122c…1013c0 Dummy {f00=0x0051, 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
0x1013c0…101554 (1, 90) Dummy {f00=0x0051, 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
0x101554…1016e8 Dummy {f00=0x0051, 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
0x1016e8…10187c Dummy {f00=0x0051, 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
0x10187c…101a10 Dummy {f00=0x0051, 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
0x101a10…101ba4 Dummy {f00=0x0051, 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
0x101ba4…101d38 Dummy {f00=0x0051, 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
0x101d38…101ecc Dummy {f00=0x0051, 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
0x101ecc…102060 Dummy {f00=0x0051, 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
0x102060…1021f4 (1, 91) Opaque[0x194]
0x1021f4…102388 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a40, f03=0x0000}
0x1021f4…102388 IdxSect {
0x1021f4…102388 f00 = 0x0052 // 0x1021f4 @0x0
0x1021f4…102388 f01 = 0x000e // 0x1021f6 @0x2
0x1021f4…102388 gno = [ // 0x1021f8 @0x4
0x1021f4…102388 [0x00]: C0x0052.0x0.0
0x1021f4…102388 [0x01]: C0x0052.0x1.0
0x1021f4…102388 [0x02]: C0x0052.0x2.0
0x1021f4…102388 [0x03]: C0x0052.0x3.0
0x1021f4…102388 [0x04]: C0x0053.0x0.0
0x1021f4…102388 [0x05]: C0x0053.0x1.0
0x1021f4…102388 [0x06]: C0x0053.0x2.0
0x1021f4…102388 ]
0x1021f4…102388 }
0x102388…10251c Dummy {f00=0x0052, 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*
0x10251c…1026b0 Dummy {f00=0x0052, 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*
0x1026b0…102844 Dummy {f00=0x0052, 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
0x102844…1029d8 Dummy {f00=0x0052, 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
0x1029d8…102b6c Dummy {f00=0x0052, 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
0x102b6c…102d00 Dummy {f00=0x0052, 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
0x102d00…102e94 (1, 92) Dummy {f00=0x0052, 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
0x102e94…103028 Dummy {f00=0x0052, 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
0x103028…1031bc Dummy {f00=0x0052, 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
0x1031bc…103350 Dummy {f00=0x0052, 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
0x103350…1034e4 Dummy {f00=0x0052, 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
0x1034e4…103678 Dummy {f00=0x0052, 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
0x103678…10380c Dummy {f00=0x0052, 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
0x10380c…1039a0 Dummy {f00=0x0052, 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*
0x1039a0…103b34 (1, 93) Dummy {f00=0x0052, 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*
0x103b34…103cc8 Dummy {f00=0x0052, 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
0x103cc8…103e5c Dummy {f00=0x0052, 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
0x103e5c…103ff0 Dummy {f00=0x0052, 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
0x103ff0…104184 Dummy {f00=0x0052, 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
0x104184…104318 Dummy {f00=0x0052, 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
0x104318…1044ac Dummy {f00=0x0052, 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 *
0x1044ac…104640 Dummy {f00=0x0052, 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
0x104640…1047d4 (1, 94) Dummy {f00=0x0052, 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*
0x1047d4…104968 Dummy {f00=0x0052, 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
0x104968…104afc Dummy {f00=0x0052, 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
0x104afc…104c90 Dummy {f00=0x0052, 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
0x104c90…104e24 Dummy {f00=0x0052, 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
0x104e24…104fb8 Dummy {f00=0x0052, 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 "
0x104fb8…10514c Dummy {f00=0x0052, 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
0x10514c…1052e0 Dummy {f00=0x0052, 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*
0x1052e0…105474 (1, 95) Dummy {f00=0x0053, 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
0x105474…105608 Dummy {f00=0x0053, 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
0x105608…10579c Dummy {f00=0x0053, 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
0x10579c…105930 Dummy {f00=0x0053, 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* !
0x105930…105ac4 Dummy {f00=0x0053, 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
0x105ac4…105c58 Dummy {f00=0x0053, 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 #
0x105c58…105dec Dummy {f00=0x0053, 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* $
0x105dec…105f80 Dummy {f00=0x0053, 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
0x105f80…106114 (1, 96) Dummy {f00=0x0053, 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
0x106114…1062a8 Dummy {f00=0x0053, 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
0x1062a8…10643c Dummy {f00=0x0053, 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
0x10643c…1065d0 Dummy {f00=0x0053, 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
0x1065d0…106764 Dummy {f00=0x0053, 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
0x106764…1068f8 Dummy {f00=0x0053, 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*
0x1068f8…106a8c Dummy {f00=0x0053, 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
0x106a8c…106c20 Dummy {f00=0x0053, 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
0x106c20…106db4 (1, 97) Dummy {f00=0x0053, 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*
0x106db4…106f48 Dummy {f00=0x0053, 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. "
0x106f48…1070dc Dummy {f00=0x0053, f01=0x0000, f02=»
[…0x5…]
0x1078c0…107a54 (1, 98) Opaque[0x194]
0x107a54…107be8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a78, f03=0x0000}
0x107a54…107be8 IdxSect {
0x107a54…107be8 f00 = 0x0053 // 0x107a54 @0x0
0x107a54…107be8 f01 = 0x0004 // 0x107a56 @0x2
0x107a54…107be8 gno = [ // 0x107a58 @0x4
0x107a54…107be8 [0x00]: C0x0053.0x3.0
0x107a54…107be8 [0x01]: C0x0054.0x0.0
0x107a54…107be8 ]
0x107a54…107be8 }
0x107be8…107d7c Dummy {f00=0x0053, 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
0x107d7c…107f10 Dummy {f00=0x0053, 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
0x107f10…1080a4 Dummy {f00=0x0053, 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*
0x1080a4…108238 Dummy {f00=0x0053, 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
0x108238…1083cc Dummy {f00=0x0053, 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
0x1083cc…108560 Dummy {f00=0x0053, 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
0x108560…1086f4 (1, 99) Dummy {f00=0x0054, f01=0x4014, f02=» P END @
0x1086f4…108888 Dummy {f00=0x0054, 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,
0x108888…108a1c Dummy {f00=0x0054, 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
0x108a1c…108bb0 Dummy {f00=0x0054, 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
0x108bb0…108d44 Dummy {f00=0x0054, 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
0x108d44…108ed8 Dummy {f00=0x0054, 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
0x108ed8…10906c Dummy {f00=0x0054, 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
0x10906c…109200 Dummy {f00=0x0054, 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*
0x109200…109394 (1, 100) Opaque[0x194]
0x109394…109528 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x109394…109528 IdxSect {
0x109394…109528 f00 = 0x0054 // 0x109394 @0x0
0x109394…109528 f01 = 0x0022 // 0x109396 @0x2
0x109394…109528 gno = [ // 0x109398 @0x4
0x109394…109528 [0x00]: C0x0054.0x1.0
0x109394…109528 [0x01]: C0x0054.0x2.0
0x109394…109528 [0x02]: C0x0054.0x3.0
0x109394…109528 [0x03]: C0x0055.0x0.0
0x109394…109528 [0x04]: C0x0055.0x1.0
0x109394…109528 [0x05]: C0x0055.0x2.0
0x109394…109528 [0x06]: C0x0055.0x3.0
0x109394…109528 [0x07]: C0x0056.0x0.0
0x109394…109528 [0x08]: C0x0056.0x1.0
0x109394…109528 [0x09]: C0x0056.0x2.0
0x109394…109528 [0x0a]: C0x0056.0x3.0
0x109394…109528 [0x0b]: C0x0057.0x0.0
0x109394…109528 [0x0c]: C0x0057.0x1.0
0x109394…109528 [0x0d]: C0x0057.0x2.0
0x109394…109528 [0x0e]: C0x0057.0x3.0
0x109394…109528 [0x0f]: C0x0058.0x0.0
0x109394…109528 [0x10]: C0x0058.0x1.0
0x109394…109528 ]
0x109394…109528 }
0x109528…1096bc Dummy {f00=0x0054, 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
0x1096bc…109850 Dummy {f00=0x0054, 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
0x109850…1099e4 Dummy {f00=0x0054, 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
0x1099e4…109b78 Dummy {f00=0x0054, 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
0x109b78…109d0c Dummy {f00=0x0054, 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
0x109d0c…109ea0 Dummy {f00=0x0054, 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
0x109ea0…10a034 (1, 101) Dummy {f00=0x0054, 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
0x10a034…10a1c8 Dummy {f00=0x0054, 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
0x10a1c8…10a35c Dummy {f00=0x0054, 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
0x10a35c…10a4f0 Dummy {f00=0x0054, 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
0x10a4f0…10a684 Dummy {f00=0x0054, 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
0x10a684…10a818 Dummy {f00=0x0054, 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
0x10a818…10a9ac Dummy {f00=0x0054, 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*
0x10a9ac…10ab40 Dummy {f00=0x0054, 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*******************
0x10ab40…10acd4 (1, 102) Dummy {f00=0x0054, 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
0x10acd4…10ae68 Dummy {f00=0x0054, 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
0x10ae68…10affc Dummy {f00=0x0054, 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
0x10affc…10b190 Dummy {f00=0x0054, 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
0x10b190…10b324 Dummy {f00=0x0054, 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
0x10b324…10b4b8 Dummy {f00=0x0054, 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
0x10b4b8…10b64c Dummy {f00=0x0054, 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
0x10b64c…10b7e0 Dummy {f00=0x0054, 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
0x10b7e0…10b974 (1, 103) Dummy {f00=0x0055, 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
0x10b974…10bb08 Dummy {f00=0x0055, 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
0x10bb08…10bc9c Dummy {f00=0x0055, 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
0x10bc9c…10be30 Dummy {f00=0x0055, 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
0x10be30…10bfc4 Dummy {f00=0x0055, 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
0x10bfc4…10c158 Dummy {f00=0x0055, 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
0x10c158…10c2ec Dummy {f00=0x0055, 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
0x10c2ec…10c480 Dummy {f00=0x0055, 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
0x10c480…10c614 (1, 104) Dummy {f00=0x0055, 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
0x10c614…10c7a8 Dummy {f00=0x0055, 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
0x10c7a8…10c93c Dummy {f00=0x0055, 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
0x10c93c…10cad0 Dummy {f00=0x0055, 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
0x10cad0…10cc64 Dummy {f00=0x0055, 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 "
0x10cc64…10cdf8 Dummy {f00=0x0055, 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
0x10cdf8…10cf8c Dummy {f00=0x0055, 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
0x10cf8c…10d120 Dummy {f00=0x0055, 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
0x10d120…10d2b4 (1, 105) Dummy {f00=0x0055, 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*
0x10d2b4…10d448 Dummy {f00=0x0055, 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
0x10d448…10d5dc Dummy {f00=0x0055, 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
0x10d5dc…10d770 Dummy {f00=0x0055, 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
0x10d770…10d904 Dummy {f00=0x0055, 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
0x10d904…10da98 Dummy {f00=0x0055, 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
0x10da98…10dc2c Dummy {f00=0x0055, 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
0x10dc2c…10ddc0 Dummy {f00=0x0055, 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
0x10ddc0…10df54 (1, 106) Dummy {f00=0x0055, 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
0x10df54…10e0e8 Dummy {f00=0x0055, 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
0x10e0e8…10e27c Dummy {f00=0x0055, 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
0x10e27c…10e410 Dummy {f00=0x0055, 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
0x10e410…10e5a4 Dummy {f00=0x0055, 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
0x10e5a4…10e738 Dummy {f00=0x0055, 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
0x10e738…10e8cc Dummy {f00=0x0055, 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
0x10e8cc…10ea60 Dummy {f00=0x0055, 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 *
0x10ea60…10ebf4 (1, 107) Dummy {f00=0x0056, 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
0x10ebf4…10ed88 Dummy {f00=0x0056, 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
0x10ed88…10ef1c Dummy {f00=0x0056, 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
0x10ef1c…10f0b0 Dummy {f00=0x0056, 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
0x10f0b0…10f244 Dummy {f00=0x0056, 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 :
0x10f244…10f3d8 Dummy {f00=0x0056, 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=
0x10f3d8…10f56c Dummy {f00=0x0056, 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* <
0x10f56c…10f700 Dummy {f00=0x0056, 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
0x10f700…10f894 (1, 108) Dummy {f00=0x0056, 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
0x10f894…10fa28 Dummy {f00=0x0056, 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
0x10fa28…10fbbc Dummy {f00=0x0056, 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
0x10fbbc…10fd50 Dummy {f00=0x0056, 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 $
0x10fd50…10fee4 Dummy {f00=0x0056, 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
0x10fee4…110078 Dummy {f00=0x0056, 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
0x110078…11020c Dummy {f00=0x0056, 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
0x11020c…1103a0 Dummy {f00=0x0056, 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
0x1103a0…110534 (1, 109) Dummy {f00=0x0056, 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,
0x110534…1106c8 Dummy {f00=0x0056, 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
0x1106c8…11085c Dummy {f00=0x0056, 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'
0x11085c…1109f0 Dummy {f00=0x0056, 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
0x1109f0…110b84 Dummy {f00=0x0056, 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
0x110b84…110d18 Dummy {f00=0x0056, 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
0x110d18…110eac Dummy {f00=0x0056, 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(
0x110eac…111040 Dummy {f00=0x0056, 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
0x111040…1111d4 (1, 110) Dummy {f00=0x0056, 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
0x1111d4…111368 Dummy {f00=0x0056, 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
0x111368…1114fc Dummy {f00=0x0056, 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
0x1114fc…111690 Dummy {f00=0x0056, 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
0x111690…111824 Dummy {f00=0x0056, 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
0x111824…1119b8 Dummy {f00=0x0056, 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
0x1119b8…111b4c Dummy {f00=0x0056, 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
0x111b4c…111ce0 Dummy {f00=0x0056, 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
0x111ce0…111e74 (1, 111) Dummy {f00=0x0057, 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
0x111e74…112008 Dummy {f00=0x0057, 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(
0x112008…11219c Dummy {f00=0x0057, 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
0x11219c…112330 Dummy {f00=0x0057, 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
0x112330…1124c4 Dummy {f00=0x0057, 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
0x1124c4…112658 Dummy {f00=0x0057, 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
0x112658…1127ec Dummy {f00=0x0057, 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
0x1127ec…112980 Dummy {f00=0x0057, 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
0x112980…112b14 (1, 112) Dummy {f00=0x0057, 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*
0x112b14…112ca8 Dummy {f00=0x0057, 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
0x112ca8…112e3c Dummy {f00=0x0057, 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
0x112e3c…112fd0 Dummy {f00=0x0057, 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
0x112fd0…113164 Dummy {f00=0x0057, 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
0x113164…1132f8 Dummy {f00=0x0057, 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
0x1132f8…11348c Dummy {f00=0x0057, 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
0x11348c…113620 Dummy {f00=0x0057, 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
0x113620…1137b4 (1, 113) Dummy {f00=0x0057, 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
0x1137b4…113948 Dummy {f00=0x0057, 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
0x113948…113adc Dummy {f00=0x0057, 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
0x113adc…113c70 Dummy {f00=0x0057, 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
0x113c70…113e04 Dummy {f00=0x0057, 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
0x113e04…113f98 Dummy {f00=0x0057, 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
0x113f98…11412c Dummy {f00=0x0057, 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*
0x11412c…1142c0 Dummy {f00=0x0057, 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
0x1142c0…114454 (1, 114) Dummy {f00=0x0057, 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
0x114454…1145e8 Dummy {f00=0x0057, 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
0x1145e8…11477c Dummy {f00=0x0057, 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:
0x11477c…114910 Dummy {f00=0x0057, 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
0x114910…114aa4 Dummy {f00=0x0057, 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
0x114aa4…114c38 Dummy {f00=0x0057, 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
0x114c38…114dcc Dummy {f00=0x0057, 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
0x114dcc…114f60 Dummy {f00=0x0057, 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
0x114f60…1150f4 (1, 115) Dummy {f00=0x0058, 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*
0x1150f4…115288 Dummy {f00=0x0058, 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 $
0x115288…11541c Dummy {f00=0x0058, 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
0x11541c…1155b0 Dummy {f00=0x0058, 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
0x1155b0…115744 Dummy {f00=0x0058, 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
0x115744…1158d8 Dummy {f00=0x0058, 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
0x1158d8…115a6c Dummy {f00=0x0058, 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
0x115a6c…115c00 Dummy {f00=0x0058, 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
0x115c00…115d94 (1, 116) Dummy {f00=0x0058, 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
0x115d94…115f28 Dummy {f00=0x0058, 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
0x115f28…1160bc Dummy {f00=0x0058, 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
0x1160bc…116250 Dummy {f00=0x0058, 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
0x116250…1163e4 Dummy {f00=0x0058, 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
0x1163e4…116578 Dummy {f00=0x0058, 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
0x116578…11670c Dummy {f00=0x0058, f01=0x2008, f02=» NT TOSSIO END @ &
0x11670c…1168a0 Dummy {f00=0x0058, 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 * - "
0x1168a0…116a34 (1, 117) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x0058 // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x003e // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x0058.0x2.0
0x116a34…116bc8 [0x01]: C0x0058.0x3.0
0x116a34…116bc8 [0x02]: C0x0059.0x0.0
0x116a34…116bc8 [0x03]: C0x0059.0x1.0
0x116a34…116bc8 [0x04]: C0x0059.0x2.0
0x116a34…116bc8 [0x05]: C0x0059.0x3.0
0x116a34…116bc8 [0x06]: C0x005a.0x0.0
0x116a34…116bc8 [0x07]: C0x005a.0x1.0
0x116a34…116bc8 [0x08]: C0x005a.0x2.0
0x116a34…116bc8 [0x09]: C0x005a.0x3.0
0x116a34…116bc8 [0x0a]: C0x005b.0x0.0
0x116a34…116bc8 [0x0b]: C0x005b.0x1.0
0x116a34…116bc8 [0x0c]: C0x005b.0x2.0
0x116a34…116bc8 [0x0d]: C0x005b.0x3.0
0x116a34…116bc8 [0x0e]: C0x005c.0x0.0
0x116a34…116bc8 [0x0f]: C0x005c.0x1.0
0x116a34…116bc8 [0x10]: C0x005c.0x2.0
0x116a34…116bc8 [0x11]: C0x005c.0x3.0
0x116a34…116bc8 [0x12]: C0x005d.0x0.0
0x116a34…116bc8 [0x13]: C0x005d.0x1.0
0x116a34…116bc8 [0x14]: C0x005d.0x2.0
0x116a34…116bc8 [0x15]: C0x005d.0x3.0
0x116a34…116bc8 [0x16]: C0x005e.0x0.0
0x116a34…116bc8 [0x17]: C0x005e.0x1.0
0x116a34…116bc8 [0x18]: C0x005e.0x2.0
0x116a34…116bc8 [0x19]: C0x005e.0x3.0
0x116a34…116bc8 [0x1a]: C0x005f.0x0.0
0x116a34…116bc8 [0x1b]: C0x005f.0x1.0
0x116a34…116bc8 [0x1c]: C0x005f.0x2.0
0x116a34…116bc8 [0x1d]: C0x005f.0x3.0
0x116a34…116bc8 [0x1e]: C0x0060.0x0.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x0058, 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
0x116d5c…116ef0 Dummy {f00=0x0058, 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***************************
0x116ef0…117084 Dummy {f00=0x0058, 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
0x117084…117218 Dummy {f00=0x0058, 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
0x117218…1173ac Dummy {f00=0x0058, 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
0x1173ac…117540 Dummy {f00=0x0058, 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
0x117540…1176d4 (1, 118) Dummy {f00=0x0058, 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
0x1176d4…117868 Dummy {f00=0x0058, 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*
0x117868…1179fc Dummy {f00=0x0058, 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 (
0x1179fc…117b90 Dummy {f00=0x0058, 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
0x117b90…117d24 Dummy {f00=0x0058, 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*
0x117d24…117eb8 Dummy {f00=0x0058, 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
0x117eb8…11804c Dummy {f00=0x0058, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x11804c…1181e0 Dummy {f00=0x0058, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x1181e0…118374 (1, 119) Dummy {f00=0x0059, 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
0x118374…118508 Dummy {f00=0x0059, 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
0x118508…11869c Dummy {f00=0x0059, 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
0x11869c…118830 Dummy {f00=0x0059, 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
0x118830…1189c4 Dummy {f00=0x0059, 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
0x1189c4…118b58 Dummy {f00=0x0059, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x118b58…118cec Dummy {f00=0x0059, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x118cec…118e80 Dummy {f00=0x0059, 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
0x118e80…119014 (1, 120) Dummy {f00=0x0059, 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
0x119014…1191a8 Dummy {f00=0x0059, 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
0x1191a8…11933c Dummy {f00=0x0059, 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
0x11933c…1194d0 Dummy {f00=0x0059, 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
0x1194d0…119664 Dummy {f00=0x0059, 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
0x119664…1197f8 Dummy {f00=0x0059, 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**********
0x1197f8…11998c Dummy {f00=0x0059, 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 . )* ____
0x11998c…119b20 Dummy {f00=0x0059, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x119b20…119cb4 (1, 121) Dummy {f00=0x0059, 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
0x119cb4…119e48 Dummy {f00=0x0059, 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
0x119e48…119fdc Dummy {f00=0x0059, 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
0x119fdc…11a170 Dummy {f00=0x0059, 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
0x11a170…11a304 Dummy {f00=0x0059, 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
0x11a304…11a498 Dummy {f00=0x0059, 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
0x11a498…11a62c Dummy {f00=0x0059, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x11a62c…11a7c0 Dummy {f00=0x0059, 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
0x11a7c0…11a954 (1, 122) Dummy {f00=0x0059, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x11a954…11aae8 Dummy {f00=0x0059, 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
0x11aae8…11ac7c Dummy {f00=0x0059, 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 (
0x11ac7c…11ae10 Dummy {f00=0x0059, 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
0x11ae10…11afa4 Dummy {f00=0x0059, 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
0x11afa4…11b138 Dummy {f00=0x0059, 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
0x11b138…11b2cc Dummy {f00=0x0059, 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
0x11b2cc…11b460 Dummy {f00=0x0059, 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
0x11b460…11b5f4 (1, 123) Dummy {f00=0x005a, 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
0x11b5f4…11b788 Dummy {f00=0x005a, 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)
0x11b788…11b91c Dummy {f00=0x005a, 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
0x11b91c…11bab0 Dummy {f00=0x005a, 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
0x11bab0…11bc44 Dummy {f00=0x005a, 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
0x11bc44…11bdd8 Dummy {f00=0x005a, 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
0x11bdd8…11bf6c Dummy {f00=0x005a, 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
0x11bf6c…11c100 Dummy {f00=0x005a, 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
0x11c100…11c294 (1, 124) Dummy {f00=0x005a, 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
0x11c294…11c428 Dummy {f00=0x005a, 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
0x11c428…11c5bc Dummy {f00=0x005a, 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
0x11c5bc…11c750 Dummy {f00=0x005a, 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:
0x11c750…11c8e4 Dummy {f00=0x005a, 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
0x11c8e4…11ca78 Dummy {f00=0x005a, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x11ca78…11cc0c Dummy {f00=0x005a, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x11cc0c…11cda0 Dummy {f00=0x005a, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x11cda0…11cf34 (1, 125) Dummy {f00=0x005a, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x11cf34…11d0c8 Dummy {f00=0x005a, 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
0x11d0c8…11d25c Dummy {f00=0x005a, 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
0x11d25c…11d3f0 Dummy {f00=0x005a, 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
0x11d3f0…11d584 Dummy {f00=0x005a, 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
0x11d584…11d718 Dummy {f00=0x005a, 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
0x11d718…11d8ac Dummy {f00=0x005a, 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
0x11d8ac…11da40 Dummy {f00=0x005a, 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
0x11da40…11dbd4 (1, 126) Dummy {f00=0x005a, 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
0x11dbd4…11dd68 Dummy {f00=0x005a, 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
0x11dd68…11defc Dummy {f00=0x005a, 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
0x11defc…11e090 Dummy {f00=0x005a, 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
0x11e090…11e224 Dummy {f00=0x005a, 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
0x11e224…11e3b8 Dummy {f00=0x005a, 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
0x11e3b8…11e54c Dummy {f00=0x005a, 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
0x11e54c…11e6e0 Dummy {f00=0x005a, 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
0x11e6e0…11e874 (1, 127) Dummy {f00=0x005b, 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
0x11e874…11ea08 Dummy {f00=0x005b, 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**********************************
0x11ea08…11eb9c Dummy {f00=0x005b, 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
0x11eb9c…11ed30 Dummy {f00=0x005b, 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
0x11ed30…11eec4 Dummy {f00=0x005b, 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
0x11eec4…11f058 Dummy {f00=0x005b, 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
0x11f058…11f1ec Dummy {f00=0x005b, 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
0x11f1ec…11f380 Dummy {f00=0x005b, 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 ( #*
0x11f380…11f514 (1, 128) Dummy {f00=0x005b, 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
0x11f514…11f6a8 Dummy {f00=0x005b, 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
0x11f6a8…11f83c Dummy {f00=0x005b, 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 * &* ----------
0x11f83c…11f9d0 Dummy {f00=0x005b, 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 ,* ____________________
0x11f9d0…11fb64 Dummy {f00=0x005b, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x11fb64…11fcf8 Dummy {f00=0x005b, 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
0x11fcf8…11fe8c Dummy {f00=0x005b, 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
0x11fe8c…120020 Dummy {f00=0x005b, 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
0x120020…1201b4 (1, 129) Dummy {f00=0x005b, 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
0x1201b4…120348 Dummy {f00=0x005b, 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
0x120348…1204dc Dummy {f00=0x005b, 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
0x1204dc…120670 Dummy {f00=0x005b, 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
0x120670…120804 Dummy {f00=0x005b, 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
0x120804…120998 Dummy {f00=0x005b, 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
0x120998…120b2c Dummy {f00=0x005b, 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
0x120b2c…120cc0 Dummy {f00=0x005b, 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*
0x120cc0…120e54 (1, 130) Dummy {f00=0x005b, 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:
0x120e54…120fe8 Dummy {f00=0x005b, 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
0x120fe8…12117c Dummy {f00=0x005b, 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
0x12117c…121310 Dummy {f00=0x005b, 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
0x121310…1214a4 Dummy {f00=0x005b, 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
0x1214a4…121638 Dummy {f00=0x005b, 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
0x121638…1217cc Dummy {f00=0x005b, 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
0x1217cc…121960 Dummy {f00=0x005b, 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
0x121960…121af4 (1, 131) Dummy {f00=0x005c, 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
0x121af4…121c88 Dummy {f00=0x005c, 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
0x121c88…121e1c Dummy {f00=0x005c, 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
0x121e1c…121fb0 Dummy {f00=0x005c, 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
0x121fb0…122144 Dummy {f00=0x005c, 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
0x122144…1222d8 Dummy {f00=0x005c, 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
0x1222d8…12246c Dummy {f00=0x005c, 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
0x12246c…122600 Dummy {f00=0x005c, 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
0x122600…122794 (1, 132) Dummy {f00=0x005c, 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
0x122794…122928 Dummy {f00=0x005c, 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
0x122928…122abc Dummy {f00=0x005c, 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
0x122abc…122c50 Dummy {f00=0x005c, 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
0x122c50…122de4 Dummy {f00=0x005c, 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
0x122de4…122f78 Dummy {f00=0x005c, 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 { *
0x122f78…12310c Dummy {f00=0x005c, 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
0x12310c…1232a0 Dummy {f00=0x005c, 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
0x1232a0…123434 (1, 133) Dummy {f00=0x005c, 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
0x123434…1235c8 Dummy {f00=0x005c, 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
0x1235c8…12375c Dummy {f00=0x005c, 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
0x12375c…1238f0 Dummy {f00=0x005c, 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
0x1238f0…123a84 Dummy {f00=0x005c, 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
0x123a84…123c18 Dummy {f00=0x005c, 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
0x123c18…123dac Dummy {f00=0x005c, 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
0x123dac…123f40 Dummy {f00=0x005c, 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
0x123f40…1240d4 (1, 134) Dummy {f00=0x005c, 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
0x1240d4…124268 Dummy {f00=0x005c, 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
0x124268…1243fc Dummy {f00=0x005c, 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 *
0x1243fc…124590 Dummy {f00=0x005c, 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
0x124590…124724 Dummy {f00=0x005c, 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
0x124724…1248b8 Dummy {f00=0x005c, 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
0x1248b8…124a4c Dummy {f00=0x005c, 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
0x124a4c…124be0 Dummy {f00=0x005c, 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
0x124be0…124d74 (1, 135) Dummy {f00=0x005d, 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
0x124d74…124f08 Dummy {f00=0x005d, 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
0x124f08…12509c Dummy {f00=0x005d, 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*
0x12509c…125230 Dummy {f00=0x005d, 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
0x125230…1253c4 Dummy {f00=0x005d, 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
0x1253c4…125558 Dummy {f00=0x005d, 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
0x125558…1256ec Dummy {f00=0x005d, 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. ,
0x1256ec…125880 Dummy {f00=0x005d, 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
0x125880…125a14 (1, 136) Dummy {f00=0x005d, 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
0x125a14…125ba8 Dummy {f00=0x005d, 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
0x125ba8…125d3c Dummy {f00=0x005d, 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
0x125d3c…125ed0 Dummy {f00=0x005d, 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!
0x125ed0…126064 Dummy {f00=0x005d, 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
0x126064…1261f8 Dummy {f00=0x005d, 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
0x1261f8…12638c Dummy {f00=0x005d, 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
0x12638c…126520 Dummy {f00=0x005d, 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**********************************************************************
0x126520…1266b4 (1, 137) Dummy {f00=0x005d, 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
0x1266b4…126848 Dummy {f00=0x005d, 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
0x126848…1269dc Dummy {f00=0x005d, 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
0x1269dc…126b70 Dummy {f00=0x005d, 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
0x126b70…126d04 Dummy {f00=0x005d, 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
0x126d04…126e98 Dummy {f00=0x005d, 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
0x126e98…12702c Dummy {f00=0x005d, 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
0x12702c…1271c0 Dummy {f00=0x005d, 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
0x1271c0…127354 (1, 138) Dummy {f00=0x005d, 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 * $ *
0x127354…1274e8 Dummy {f00=0x005d, 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
0x1274e8…12767c Dummy {f00=0x005d, 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(
0x12767c…127810 Dummy {f00=0x005d, 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 *
0x127810…1279a4 Dummy {f00=0x005d, 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
0x1279a4…127b38 Dummy {f00=0x005d, 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
0x127b38…127ccc Dummy {f00=0x005d, 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
0x127ccc…127e60 Dummy {f00=0x005d, 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
0x127e60…127ff4 (1, 139) Dummy {f00=0x005e, 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
0x127ff4…128188 Dummy {f00=0x005e, 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
0x128188…12831c Dummy {f00=0x005e, 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
0x12831c…1284b0 Dummy {f00=0x005e, 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-
0x1284b0…128644 Dummy {f00=0x005e, 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
0x128644…1287d8 Dummy {f00=0x005e, 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
0x1287d8…12896c Dummy {f00=0x005e, 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
0x12896c…128b00 Dummy {f00=0x005e, 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 :
0x128b00…128c94 (1, 140) Dummy {f00=0x005e, 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
0x128c94…128e28 Dummy {f00=0x005e, 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
0x128e28…128fbc Dummy {f00=0x005e, 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
0x128fbc…129150 Dummy {f00=0x005e, 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
0x129150…1292e4 Dummy {f00=0x005e, 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
0x1292e4…129478 Dummy {f00=0x005e, 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
0x129478…12960c Dummy {f00=0x005e, 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
0x12960c…1297a0 Dummy {f00=0x005e, 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
0x1297a0…129934 (1, 141) Dummy {f00=0x005e, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x129934…129ac8 Dummy {f00=0x005e, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x129ac8…129c5c Dummy {f00=0x005e, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x129c5c…129df0 Dummy {f00=0x005e, 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 >=
0x129df0…129f84 Dummy {f00=0x005e, 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
0x129f84…12a118 Dummy {f00=0x005e, 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,
0x12a118…12a2ac Dummy {f00=0x005e, 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.
0x12a2ac…12a440 Dummy {f00=0x005e, 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 (
0x12a440…12a5d4 (1, 142) Dummy {f00=0x005e, 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
0x12a5d4…12a768 Dummy {f00=0x005e, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x12a768…12a8fc Dummy {f00=0x005e, 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
0x12a8fc…12aa90 Dummy {f00=0x005e, 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
0x12aa90…12ac24 Dummy {f00=0x005e, 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
0x12ac24…12adb8 Dummy {f00=0x005e, 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,
0x12adb8…12af4c Dummy {f00=0x005e, 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
0x12af4c…12b0e0 Dummy {f00=0x005e, 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.
0x12b0e0…12b274 (1, 143) Dummy {f00=0x005f, 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
0x12b274…12b408 Dummy {f00=0x005f, 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
0x12b408…12b59c Dummy {f00=0x005f, 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
0x12b59c…12b730 Dummy {f00=0x005f, 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 * *
0x12b730…12b8c4 Dummy {f00=0x005f, 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
0x12b8c4…12ba58 Dummy {f00=0x005f, 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?
0x12ba58…12bbec Dummy {f00=0x005f, 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 * *
0x12bbec…12bd80 Dummy {f00=0x005f, 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
0x12bd80…12bf14 (1, 144) Dummy {f00=0x005f, 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
0x12bf14…12c0a8 Dummy {f00=0x005f, 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
0x12c0a8…12c23c Dummy {f00=0x005f, 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
0x12c23c…12c3d0 Dummy {f00=0x005f, 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
0x12c3d0…12c564 Dummy {f00=0x005f, 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
0x12c564…12c6f8 Dummy {f00=0x005f, 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
0x12c6f8…12c88c Dummy {f00=0x005f, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x12c88c…12ca20 Dummy {f00=0x005f, 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
0x12ca20…12cbb4 (1, 145) Dummy {f00=0x005f, 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******
0x12cbb4…12cd48 Dummy {f00=0x005f, 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
0x12cd48…12cedc Dummy {f00=0x005f, 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
0x12cedc…12d070 Dummy {f00=0x005f, 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 .**********
0x12d070…12d204 Dummy {f00=0x005f, 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
0x12d204…12d398 Dummy {f00=0x005f, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x12d398…12d52c Dummy {f00=0x005f, 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
0x12d52c…12d6c0 Dummy {f00=0x005f, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x12d6c0…12d854 (1, 146) Dummy {f00=0x005f, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x12d854…12d9e8 Dummy {f00=0x005f, 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
0x12d9e8…12db7c Dummy {f00=0x005f, 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
0x12db7c…12dd10 Dummy {f00=0x005f, 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
0x12dd10…12dea4 Dummy {f00=0x005f, 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
0x12dea4…12e038 Dummy {f00=0x005f, 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
0x12e038…12e1cc Dummy {f00=0x005f, 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
0x12e1cc…12e360 Dummy {f00=0x005f, 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
0x12e360…12e4f4 (1, 147) Dummy {f00=0x0060, 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
0x12e4f4…12e688 Dummy {f00=0x0060, 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
0x12e688…12e81c Dummy {f00=0x0060, 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 "
0x12e81c…12e9b0 Dummy {f00=0x0060, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x12e9b0…12eb44 Dummy {f00=0x0060, 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********************
0x12eb44…12ecd8 Dummy {f00=0x0060, 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********************
0x12ecd8…12ee6c Dummy {f00=0x0060, f01=0x2008, f02=» P X ` h p
0x12ee6c…12f000 Dummy {f00=0x0060, f01=0x0000, f02=»
0x12f000…12f194 (1, 148) Opaque[0x194]
0x12f194…12f328 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c08, f03=0x0000}
0x12f194…12f328 IdxSect {
0x12f194…12f328 f00 = 0x0060 // 0x12f194 @0x0
0x12f194…12f328 f01 = 0x0056 // 0x12f196 @0x2
0x12f194…12f328 gno = [ // 0x12f198 @0x4
0x12f194…12f328 [0x00]: C0x0060.0x1.0
0x12f194…12f328 [0x01]: C0x0060.0x2.0
0x12f194…12f328 [0x02]: C0x0060.0x3.0
0x12f194…12f328 [0x03]: C0x0061.0x0.0
0x12f194…12f328 [0x04]: C0x0061.0x1.0
0x12f194…12f328 [0x05]: C0x0061.0x2.0
0x12f194…12f328 [0x06]: C0x0061.0x3.0
0x12f194…12f328 [0x07]: C0x0062.0x0.0
0x12f194…12f328 [0x08]: C0x0062.0x1.0
0x12f194…12f328 [0x09]: C0x0062.0x2.0
0x12f194…12f328 [0x0a]: C0x0062.0x3.0
0x12f194…12f328 [0x0b]: C0x0063.0x0.0
0x12f194…12f328 [0x0c]: C0x0063.0x1.0
0x12f194…12f328 [0x0d]: C0x0063.0x2.0
0x12f194…12f328 [0x0e]: C0x0063.0x3.0
0x12f194…12f328 [0x0f]: C0x0064.0x0.0
0x12f194…12f328 [0x10]: C0x0064.0x1.0
0x12f194…12f328 [0x11]: C0x0064.0x2.0
0x12f194…12f328 [0x12]: C0x0064.0x3.0
0x12f194…12f328 [0x13]: C0x0065.0x0.0
0x12f194…12f328 [0x14]: C0x0065.0x1.0
0x12f194…12f328 [0x15]: C0x0065.0x2.0
0x12f194…12f328 [0x16]: C0x0065.0x3.0
0x12f194…12f328 [0x17]: C0x0066.0x0.0
0x12f194…12f328 [0x18]: C0x0066.0x1.0
0x12f194…12f328 [0x19]: C0x0066.0x2.0
0x12f194…12f328 [0x1a]: C0x0066.0x3.0
0x12f194…12f328 [0x1b]: C0x0067.0x0.0
0x12f194…12f328 [0x1c]: C0x0067.0x1.0
0x12f194…12f328 [0x1d]: C0x0067.0x2.0
0x12f194…12f328 [0x1e]: C0x0067.0x3.0
0x12f194…12f328 [0x1f]: C0x0068.0x0.0
0x12f194…12f328 [0x20]: C0x0068.0x1.0
0x12f194…12f328 [0x21]: C0x0068.0x2.0
0x12f194…12f328 [0x22]: C0x0068.0x3.0
0x12f194…12f328 [0x23]: C0x0069.0x0.0
0x12f194…12f328 [0x24]: C0x0069.0x1.0
0x12f194…12f328 [0x25]: C0x0069.0x2.0
0x12f194…12f328 [0x26]: C0x0069.0x3.0
0x12f194…12f328 [0x27]: C0x006a.0x0.0
0x12f194…12f328 [0x28]: C0x006a.0x1.0
0x12f194…12f328 [0x29]: C0x006a.0x2.0
0x12f194…12f328 [0x2a]: C0x006a.0x3.0
0x12f194…12f328 ]
0x12f194…12f328 }
0x12f328…12f4bc Dummy {f00=0x0060, 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
0x12f4bc…12f650 Dummy {f00=0x0060, 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
0x12f650…12f7e4 Dummy {f00=0x0060, 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*
0x12f7e4…12f978 Dummy {f00=0x0060, 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
0x12f978…12fb0c Dummy {f00=0x0060, 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
0x12fb0c…12fca0 Dummy {f00=0x0060, 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********
0x12fca0…12fe34 (1, 149) Dummy {f00=0x0060, 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
0x12fe34…12ffc8 Dummy {f00=0x0060, 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
0x12ffc8…13015c Dummy {f00=0x0060, 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
0x13015c…1302f0 Dummy {f00=0x0060, 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
0x1302f0…130484 Dummy {f00=0x0060, 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
0x130484…130618 Dummy {f00=0x0060, 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
0x130618…1307ac Dummy {f00=0x0060, 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
0x1307ac…130940 Dummy {f00=0x0060, 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
0x130940…130ad4 (1, 150) Dummy {f00=0x0060, 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
0x130ad4…130c68 Dummy {f00=0x0060, 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
0x130c68…130dfc Dummy {f00=0x0060, f01=0x0190, f02=»---------------------------! j P P* ! SUBROUTINES ! PART 2.A $ F P* ! -MOVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! x F P* ! !
0x130dfc…130f90 Dummy {f00=0x0060, 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
0x130f90…131124 Dummy {f00=0x0060, 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
0x131124…1312b8 Dummy {f00=0x0060, 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* !
0x1312b8…13144c Dummy {f00=0x0060, 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
0x13144c…1315e0 Dummy {f00=0x0060, 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
0x1315e0…131774 (1, 151) Dummy {f00=0x0061, 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
0x131774…131908 Dummy {f00=0x0061, 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
0x131908…131a9c Dummy {f00=0x0061, 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*
0x131a9c…131c30 Dummy {f00=0x0061, 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
0x131c30…131dc4 Dummy {f00=0x0061, 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
0x131dc4…131f58 Dummy {f00=0x0061, 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
0x131f58…1320ec Dummy {f00=0x0061, 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
0x1320ec…132280 Dummy {f00=0x0061, 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
0x132280…132414 (1, 152) Dummy {f00=0x0061, 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) $
0x132414…1325a8 Dummy {f00=0x0061, 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
0x1325a8…13273c Dummy {f00=0x0061, 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
0x13273c…1328d0 Dummy {f00=0x0061, 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 !
0x1328d0…132a64 Dummy {f00=0x0061, 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
0x132a64…132bf8 Dummy {f00=0x0061, 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
0x132bf8…132d8c Dummy {f00=0x0061, 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
0x132d8c…132f20 Dummy {f00=0x0061, f01=0x0190, f02=»SS $ r P % F P***************************************************************** % F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * % ` F P* DATA [REL-ADDRESS] * % F P*
0x132f20…1330b4 (1, 153) Dummy {f00=0x0061, f01=0x0190, f02=» P & P & PCALL FORM 16=/F697,16 & P EJECT & : P & H 6 P************************************************** & T 6 P************************************************** & 6 P** ** & 6 P** RE
0x1330b4…133248 Dummy {f00=0x0061, 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******************
0x133248…1333dc Dummy {f00=0x0061, 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 (
0x1333dc…133570 Dummy {f00=0x0061, 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************
0x133570…133704 Dummy {f00=0x0061, 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
0x133704…133898 Dummy {f00=0x0061, 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
0x133898…133a2c Dummy {f00=0x0061, f01=0x018e, f02=»SLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P******************************************************* , 4 P , t PJUMP ABL SYSLDM , | P EJECT , P , ( P************************************ , ( P** ** , ( P**
0x133a2c…133bc0 Dummy {f00=0x0061, 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 *
0x133bc0…133d54 (1, 154) Dummy {f00=0x0061, 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
0x133d54…133ee8 Dummy {f00=0x0061, 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
0x133ee8…13407c Dummy {f00=0x0061, 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
0x13407c…134210 Dummy {f00=0x0061, 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
0x134210…1343a4 Dummy {f00=0x0061, 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
0x1343a4…134538 Dummy {f00=0x0061, 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
0x134538…1346cc Dummy {f00=0x0061, 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**************
0x1346cc…134860 Dummy {f00=0x0061, 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
0x134860…1349f4 (1, 155) Dummy {f00=0x0062, 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
0x1349f4…134b88 Dummy {f00=0x0062, 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**********************************************
0x134b88…134d1c Dummy {f00=0x0062, 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
0x134d1c…134eb0 Dummy {f00=0x0062, 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**
0x134eb0…135044 Dummy {f00=0x0062, 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
0x135044…1351d8 Dummy {f00=0x0062, 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
0x1351d8…13536c Dummy {f00=0x0062, 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**
0x13536c…135500 Dummy {f00=0x0062, 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
0x135500…135694 (1, 156) Dummy {f00=0x0062, 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,
0x135694…135828 Dummy {f00=0x0062, 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
0x135828…1359bc Dummy {f00=0x0062, 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
0x1359bc…135b50 Dummy {f00=0x0062, 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******************************
0x135b50…135ce4 Dummy {f00=0x0062, 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
0x135ce4…135e78 Dummy {f00=0x0062, 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
0x135e78…13600c Dummy {f00=0x0062, 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 $
0x13600c…1361a0 Dummy {f00=0x0062, 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
0x1361a0…136334 (1, 157) Dummy {f00=0x0062, 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
0x136334…1364c8 Dummy {f00=0x0062, 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
0x1364c8…13665c Dummy {f00=0x0062, 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**
0x13665c…1367f0 Dummy {f00=0x0062, 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
0x1367f0…136984 Dummy {f00=0x0062, 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
0x136984…136b18 Dummy {f00=0x0062, 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
0x136b18…136cac Dummy {f00=0x0062, 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
0x136cac…136e40 Dummy {f00=0x0062, 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 &
0x136e40…136fd4 (1, 158) Dummy {f00=0x0062, 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
0x136fd4…137168 Dummy {f00=0x0062, 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
0x137168…1372fc Dummy {f00=0x0062, 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
0x1372fc…137490 Dummy {f00=0x0062, 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**
0x137490…137624 Dummy {f00=0x0062, 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
0x137624…1377b8 Dummy {f00=0x0062, 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
0x1377b8…13794c Dummy {f00=0x0062, 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
0x13794c…137ae0 Dummy {f00=0x0062, 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**
0x137ae0…137c74 (1, 159) Dummy {f00=0x0063, 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
0x137c74…137e08 Dummy {f00=0x0063, 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
0x137e08…137f9c Dummy {f00=0x0063, 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**
0x137f9c…138130 Dummy {f00=0x0063, 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
0x138130…1382c4 Dummy {f00=0x0063, 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
0x1382c4…138458 Dummy {f00=0x0063, 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
0x138458…1385ec Dummy {f00=0x0063, 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
0x1385ec…138780 Dummy {f00=0x0063, 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****************************************
0x138780…138914 (1, 160) Dummy {f00=0x0063, 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
0x138914…138aa8 Dummy {f00=0x0063, 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,
0x138aa8…138c3c Dummy {f00=0x0063, 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
0x138c3c…138dd0 Dummy {f00=0x0063, 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
0x138dd0…138f64 Dummy {f00=0x0063, 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
0x138f64…1390f8 Dummy {f00=0x0063, 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
0x1390f8…13928c Dummy {f00=0x0063, 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
0x13928c…139420 Dummy {f00=0x0063, 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
0x139420…1395b4 (1, 161) Dummy {f00=0x0063, 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
0x1395b4…139748 Dummy {f00=0x0063, 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
0x139748…1398dc Dummy {f00=0x0063, 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
0x1398dc…139a70 Dummy {f00=0x0063, 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
0x139a70…139c04 Dummy {f00=0x0063, 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
0x139c04…139d98 Dummy {f00=0x0063, 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
0x139d98…139f2c Dummy {f00=0x0063, 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
0x139f2c…13a0c0 Dummy {f00=0x0063, 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
0x13a0c0…13a254 (1, 162) Dummy {f00=0x0063, 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
0x13a254…13a3e8 Dummy {f00=0x0063, 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
0x13a3e8…13a57c Dummy {f00=0x0063, 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
0x13a57c…13a710 Dummy {f00=0x0063, 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
0x13a710…13a8a4 Dummy {f00=0x0063, 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
0x13a8a4…13aa38 Dummy {f00=0x0063, 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**
0x13aa38…13abcc Dummy {f00=0x0063, 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
0x13abcc…13ad60 Dummy {f00=0x0063, 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-
0x13ad60…13aef4 (1, 163) Dummy {f00=0x0064, 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
0x13aef4…13b088 Dummy {f00=0x0064, 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
0x13b088…13b21c Dummy {f00=0x0064, 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,
0x13b21c…13b3b0 Dummy {f00=0x0064, 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
0x13b3b0…13b544 Dummy {f00=0x0064, 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
0x13b544…13b6d8 Dummy {f00=0x0064, f01=0x0190, f02=»* * z D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * { H D P* ===================================== * { D P*
0x13b6d8…13b86c Dummy {f00=0x0064, 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*
0x13b86c…13ba00 Dummy {f00=0x0064, f01=0x0190, f02=» IN T:A IS SET * | D P* * } @ D P* WORK REGISTERS: A1,A2 * } D P*
0x13ba00…13bb94 (1, 164) Dummy {f00=0x0064, 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
0x13bb94…13bd28 Dummy {f00=0x0064, 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
0x13bd28…13bebc Dummy {f00=0x0064, 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
0x13bebc…13c050 Dummy {f00=0x0064, 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*
0x13c050…13c1e4 Dummy {f00=0x0064, f01=0x0190, f02=»* L J P* ===================================== * J P* * X J P* REFERENCED IN: MOVCOM,MOVCLA * J P*
0x13c1e4…13c378 Dummy {f00=0x0064, 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*
0x13c378…13c50c Dummy {f00=0x0064, f01=0x0190, f02=» * J P* SUBROUTINES: * D J P* * J P****************************************
0x13c50c…13c6a0 Dummy {f00=0x0064, 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
0x13c6a0…13c834 (1, 165) Dummy {f00=0x0064, 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**
0x13c834…13c9c8 Dummy {f00=0x0064, 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**********************************
0x13c9c8…13cb5c Dummy {f00=0x0064, 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
0x13cb5c…13ccf0 Dummy {f00=0x0064, f01=0x0190, f02=» ** 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** . 4 P** ** f 4 P** INPUT : A3,A2 ** 4 P** OUTPUT:A3=RESULT **
0x13ccf0…13ce84 Dummy {f00=0x0064, 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**
0x13ce84…13d018 Dummy {f00=0x0064, 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
0x13d018…13d1ac Dummy {f00=0x0064, 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
0x13d1ac…13d340 Dummy {f00=0x0064, 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
0x13d340…13d4d4 (1, 166) Dummy {f00=0x0064, 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
0x13d4d4…13d668 Dummy {f00=0x0064, 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
0x13d668…13d7fc Dummy {f00=0x0064, 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**
0x13d7fc…13d990 Dummy {f00=0x0064, 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 *
0x13d990…13db24 Dummy {f00=0x0064, 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
0x13db24…13dcb8 Dummy {f00=0x0064, 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
0x13dcb8…13de4c Dummy {f00=0x0064, 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
0x13de4c…13dfe0 Dummy {f00=0x0064, 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
0x13dfe0…13e174 (1, 167) Dummy {f00=0x0065, f01=0x0190, f02=» ** ~ 4 P** ** & 4 P** MOVE MM-TABLE ** ^ 4 P** ** 4 P** INPUT :A2=TTAB-ADDRESS ** 4 P**
0x13e174…13e308 Dummy {f00=0x0065, 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
0x13e308…13e49c Dummy {f00=0x0065, 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
0x13e49c…13e630 Dummy {f00=0x0065, f01=0x0190, f02=» * x @ P* * , @ P* REFERENCED IN: SYSLDA PART 2 B. * p @ P* * @ P* ENTRY: A5 -
0x13e630…13e7c4 Dummy {f00=0x0065, f01=0x0190, f02=» * @ P* EXIT: * 4 @ P* * x @ P* WORK REGISTERS: A1,A3,A6,A8 * @ P*
0x13e7c4…13e958 Dummy {f00=0x0065, 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
0x13e958…13eaec Dummy {f00=0x0065, 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:
0x13eaec…13ec80 Dummy {f00=0x0065, 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
0x13ec80…13ee14 (1, 168) Dummy {f00=0x0065, 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
0x13ee14…13efa8 Dummy {f00=0x0065, 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
0x13efa8…13f13c Dummy {f00=0x0065, 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
0x13f13c…13f2d0 Dummy {f00=0x0065, 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
0x13f2d0…13f464 Dummy {f00=0x0065, 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*
0x13f464…13f5f8 Dummy {f00=0x0065, 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
0x13f5f8…13f78c Dummy {f00=0x0065, 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
0x13f78c…13f920 Dummy {f00=0x0065, 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
0x13f920…13fab4 (1, 169) Dummy {f00=0x0065, 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
0x13fab4…13fc48 Dummy {f00=0x0065, 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 $
0x13fc48…13fddc Dummy {f00=0x0065, 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
0x13fddc…13ff70 Dummy {f00=0x0065, 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
0x13ff70…140104 Dummy {f00=0x0065, 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
0x140104…140298 Dummy {f00=0x0065, 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
0x140298…14042c Dummy {f00=0x0065, 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
0x14042c…1405c0 Dummy {f00=0x0065, 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 ?* *
0x1405c0…140754 (1, 170) Dummy {f00=0x0065, f01=0x0190, f02=» * X D ?* * D ?* REFERENCED IN: SYSLDA * X D ?* * D ?* ENTRY: SCTSFA - START OF FRE
0x140754…1408e8 Dummy {f00=0x0065, 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 ?
0x1408e8…140a7c Dummy {f00=0x0065, f01=0x0190, f02=» P D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * D ?* * P D ?* WORK REGISTERS: A1-A12 * D ?*
0x140a7c…140c10 Dummy {f00=0x0065, f01=0x0190, f02=» * p D ?* * ( D ?*************************************************************** p PAGGEN EQU * P LDKL A2,PAGEX EXIT ADDRESS P ADR A2,A13 RELOCATE
0x140c10…140da4 Dummy {f00=0x0065, 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
0x140da4…140f38 Dummy {f00=0x0065, 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(
0x140f38…1410cc Dummy {f00=0x0065, 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
0x1410cc…141260 Dummy {f00=0x0065, 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
0x141260…1413f4 (1, 171) Dummy {f00=0x0066, 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 *
0x1413f4…141588 Dummy {f00=0x0066, 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
0x141588…14171c Dummy {f00=0x0066, 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!
0x14171c…1418b0 Dummy {f00=0x0066, 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
0x1418b0…141a44 Dummy {f00=0x0066, 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
0x141a44…141bd8 Dummy {f00=0x0066, 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
0x141bd8…141d6c Dummy {f00=0x0066, 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
0x141d6c…141f00 Dummy {f00=0x0066, 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 & !
0x141f00…142094 (1, 172) Dummy {f00=0x0066, 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 ,
0x142094…142228 Dummy {f00=0x0066, 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 & !
0x142228…1423bc Dummy {f00=0x0066, 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
0x1423bc…142550 Dummy {f00=0x0066, 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
0x142550…1426e4 Dummy {f00=0x0066, 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
0x1426e4…142878 Dummy {f00=0x0066, 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
0x142878…142a0c Dummy {f00=0x0066, 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********************
0x142a0c…142ba0 Dummy {f00=0x0066, 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*
0x142ba0…142d34 (1, 173) Dummy {f00=0x0066, 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
0x142d34…142ec8 Dummy {f00=0x0066, 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****************************
0x142ec8…14305c Dummy {f00=0x0066, 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
0x14305c…1431f0 Dummy {f00=0x0066, 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
0x1431f0…143384 Dummy {f00=0x0066, 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
0x143384…143518 Dummy {f00=0x0066, 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
0x143518…1436ac Dummy {f00=0x0066, 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
0x1436ac…143840 Dummy {f00=0x0066, 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
0x143840…1439d4 (1, 174) Dummy {f00=0x0066, 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
0x1439d4…143b68 Dummy {f00=0x0066, 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
0x143b68…143cfc Dummy {f00=0x0066, 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
0x143cfc…143e90 Dummy {f00=0x0066, 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
0x143e90…144024 Dummy {f00=0x0066, 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:
0x144024…1441b8 Dummy {f00=0x0066, 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****
0x1441b8…14434c Dummy {f00=0x0066, 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
0x14434c…1444e0 Dummy {f00=0x0066, 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
0x1444e0…144674 (1, 175) Dummy {f00=0x0067, 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
0x144674…144808 Dummy {f00=0x0067, 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
0x144808…14499c Dummy {f00=0x0067, 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**
0x14499c…144b30 Dummy {f00=0x0067, 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
0x144b30…144cc4 Dummy {f00=0x0067, 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
0x144cc4…144e58 Dummy {f00=0x0067, 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
0x144e58…144fec Dummy {f00=0x0067, 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**************************************
0x144fec…145180 Dummy {f00=0x0067, 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
0x145180…145314 (1, 176) Dummy {f00=0x0067, 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*
0x145314…1454a8 Dummy {f00=0x0067, f01=0x0190, f02=»================================ * B P* * > B P* REFERENCED IN: SYSLDA * B P* *
0x1454a8…14563c Dummy {f00=0x0067, f01=0x0190, f02=» * V B P* * B P* EXIT: * R B P* * B P* WORK REGISTERS: A1-A7
0x14563c…1457d0 Dummy {f00=0x0067, 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
0x1457d0…145964 Dummy {f00=0x0067, 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
0x145964…145af8 Dummy {f00=0x0067, 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
0x145af8…145c8c Dummy {f00=0x0067, 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
0x145c8c…145e20 Dummy {f00=0x0067, 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
0x145e20…145fb4 (1, 177) Dummy {f00=0x0067, 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
0x145fb4…146148 Dummy {f00=0x0067, 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
0x146148…1462dc Dummy {f00=0x0067, 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
0x1462dc…146470 Dummy {f00=0x0067, 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
0x146470…146604 Dummy {f00=0x0067, 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
0x146604…146798 Dummy {f00=0x0067, 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
0x146798…14692c Dummy {f00=0x0067, 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
0x14692c…146ac0 Dummy {f00=0x0067, 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,
0x146ac0…146c54 (1, 178) Dummy {f00=0x0067, 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,
0x146c54…146de8 Dummy {f00=0x0067, 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
0x146de8…146f7c Dummy {f00=0x0067, 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
0x146f7c…147110 Dummy {f00=0x0067, 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
0x147110…1472a4 Dummy {f00=0x0067, 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
0x1472a4…147438 Dummy {f00=0x0067, 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
0x147438…1475cc Dummy {f00=0x0067, 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
0x1475cc…147760 Dummy {f00=0x0067, 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
0x147760…1478f4 (1, 179) Dummy {f00=0x0068, 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
0x1478f4…147a88 Dummy {f00=0x0068, 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
0x147a88…147c1c Dummy {f00=0x0068, 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
0x147c1c…147db0 Dummy {f00=0x0068, 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
0x147db0…147f44 Dummy {f00=0x0068, 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
0x147f44…1480d8 Dummy {f00=0x0068, 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
0x1480d8…14826c Dummy {f00=0x0068, 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
0x14826c…148400 Dummy {f00=0x0068, 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**
0x148400…148594 (1, 180) Dummy {f00=0x0068, 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
0x148594…148728 Dummy {f00=0x0068, 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
0x148728…1488bc Dummy {f00=0x0068, 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
0x1488bc…148a50 Dummy {f00=0x0068, 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
0x148a50…148be4 Dummy {f00=0x0068, 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
0x148be4…148d78 Dummy {f00=0x0068, 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
0x148d78…148f0c Dummy {f00=0x0068, 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
0x148f0c…1490a0 Dummy {f00=0x0068, 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
0x1490a0…149234 (1, 181) Dummy {f00=0x0068, 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,
0x149234…1493c8 Dummy {f00=0x0068, 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
0x1493c8…14955c Dummy {f00=0x0068, 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
0x14955c…1496f0 Dummy {f00=0x0068, 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
0x1496f0…149884 Dummy {f00=0x0068, 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
0x149884…149a18 Dummy {f00=0x0068, 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
0x149a18…149bac Dummy {f00=0x0068, 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
0x149bac…149d40 Dummy {f00=0x0068, f01=0x0190, f02=» ** 2 P* SYSLOAD PART 1 * & 2 P** ** 2 P***** ***** 2 P********************************************* P 2
0x149d40…149ed4 (1, 182) Dummy {f00=0x0068, 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 **
0x149ed4…14a068 Dummy {f00=0x0068, 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**
0x14a068…14a1fc Dummy {f00=0x0068, 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
0x14a1fc…14a390 Dummy {f00=0x0068, 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
0x14a390…14a524 Dummy {f00=0x0068, 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
0x14a524…14a6b8 Dummy {f00=0x0068, 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
0x14a6b8…14a84c Dummy {f00=0x0068, 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** **
0x14a84c…14a9e0 Dummy {f00=0x0068, 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
0x14a9e0…14ab74 (1, 183) Dummy {f00=0x0069, 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)
0x14ab74…14ad08 Dummy {f00=0x0069, 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)
0x14ad08…14ae9c Dummy {f00=0x0069, 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*
0x14ae9c…14b030 Dummy {f00=0x0069, 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
0x14b030…14b1c4 Dummy {f00=0x0069, 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
0x14b1c4…14b358 Dummy {f00=0x0069, 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
0x14b358…14b4ec Dummy {f00=0x0069, 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
0x14b4ec…14b680 Dummy {f00=0x0069, 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
0x14b680…14b814 (1, 184) Dummy {f00=0x0069, 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
0x14b814…14b9a8 Dummy {f00=0x0069, 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
0x14b9a8…14bb3c Dummy {f00=0x0069, 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,
0x14bb3c…14bcd0 Dummy {f00=0x0069, 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
0x14bcd0…14be64 Dummy {f00=0x0069, 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
0x14be64…14bff8 Dummy {f00=0x0069, 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(
0x14bff8…14c18c Dummy {f00=0x0069, 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
0x14c18c…14c320 Dummy {f00=0x0069, 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
0x14c320…14c4b4 (1, 185) Dummy {f00=0x0069, 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 =
0x14c4b4…14c648 Dummy {f00=0x0069, 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
0x14c648…14c7dc Dummy {f00=0x0069, 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
0x14c7dc…14c970 Dummy {f00=0x0069, 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* ===
0x14c970…14cb04 Dummy {f00=0x0069, 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*
0x14cb04…14cc98 Dummy {f00=0x0069, f01=0x0190, f02=» * * R L P* EXIT: * + L P* * + b L P* WORK REGISTERS: * + L P*
0x14cc98…14ce2c Dummy {f00=0x0069, f01=0x0190, f02=» * + R L P* * , L P*********************************************************************** , b P , PUSWBTP EQU * , P , P XIF , P IFT CREDIT-MMUPAG=1 , P ADKL A11,
0x14ce2c…14cfc0 Dummy {f00=0x0069, 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
0x14cfc0…14d154 (1, 186) Dummy {f00=0x0069, 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*
0x14d154…14d2e8 Dummy {f00=0x0069, 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
0x14d2e8…14d47c Dummy {f00=0x0069, 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,
0x14d47c…14d610 Dummy {f00=0x0069, 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
0x14d610…14d7a4 Dummy {f00=0x0069, 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
0x14d7a4…14d938 Dummy {f00=0x0069, 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
0x14d938…14dacc Dummy {f00=0x0069, 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
0x14dacc…14dc60 Dummy {f00=0x0069, 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
0x14dc60…14ddf4 (1, 187) Dummy {f00=0x006a, 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,
0x14ddf4…14df88 Dummy {f00=0x006a, 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
0x14df88…14e11c Dummy {f00=0x006a, 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
0x14e11c…14e2b0 Dummy {f00=0x006a, 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
0x14e2b0…14e444 Dummy {f00=0x006a, 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,
0x14e444…14e5d8 Dummy {f00=0x006a, 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) ;
0x14e5d8…14e76c Dummy {f00=0x006a, 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
0x14e76c…14e900 Dummy {f00=0x006a, 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
0x14e900…14ea94 (1, 188) Dummy {f00=0x006a, 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,
0x14ea94…14ec28 Dummy {f00=0x006a, 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
0x14ec28…14edbc Dummy {f00=0x006a, 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
0x14edbc…14ef50 Dummy {f00=0x006a, 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
0x14ef50…14f0e4 Dummy {f00=0x006a, 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
0x14f0e4…14f278 Dummy {f00=0x006a, 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
0x14f278…14f40c Dummy {f00=0x006a, 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
0x14f40c…14f5a0 Dummy {f00=0x006a, 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
0x14f5a0…14f734 (1, 189) Dummy {f00=0x006a, 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
0x14f734…14f8c8 Dummy {f00=0x006a, 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*
0x14f8c8…14fa5c Dummy {f00=0x006a, 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
0x14fa5c…14fbf0 Dummy {f00=0x006a, 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
0x14fbf0…14fd84 Dummy {f00=0x006a, 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
0x14fd84…14ff18 Dummy {f00=0x006a, 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
0x14ff18…1500ac Dummy {f00=0x006a, 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
0x1500ac…150240 Dummy {f00=0x006a, 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
0x150240…1503d4 (1, 190) Dummy {f00=0x006a, f01=0x0000, f02=»
[…0x7…]
0x150ee0…151074 (1, 191) Opaque[0x194]
0x151074…151208 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d60, f03=0x0000}
0x151074…151208 IdxSect {
0x151074…151208 f00 = 0x006b // 0x151074 @0x0
0x151074…151208 f01 = 0x000c // 0x151076 @0x2
0x151074…151208 gno = [ // 0x151078 @0x4
0x151074…151208 [0x00]: C0x006b.0x0.0
0x151074…151208 [0x01]: C0x006b.0x1.0
0x151074…151208 [0x02]: C0x006b.0x2.0
0x151074…151208 [0x03]: C0x006b.0x3.0
0x151074…151208 [0x04]: C0x006c.0x0.0
0x151074…151208 [0x05]: C0x006c.0x1.0
0x151074…151208 ]
0x151074…151208 }
0x151208…15139c Dummy {f00=0x006b, 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
0x15139c…151530 Dummy {f00=0x006b, 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*
0x151530…1516c4 Dummy {f00=0x006b, 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
0x1516c4…151858 Dummy {f00=0x006b, 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
0x151858…1519ec Dummy {f00=0x006b, 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
0x1519ec…151b80 Dummy {f00=0x006b, 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
0x151b80…151d14 (1, 192) Dummy {f00=0x006b, 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
0x151d14…151ea8 Dummy {f00=0x006b, 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
0x151ea8…15203c Dummy {f00=0x006b, 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
0x15203c…1521d0 Dummy {f00=0x006b, 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
0x1521d0…152364 Dummy {f00=0x006b, 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,
0x152364…1524f8 Dummy {f00=0x006b, 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
0x1524f8…15268c Dummy {f00=0x006b, 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
0x15268c…152820 Dummy {f00=0x006b, 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
0x152820…1529b4 (1, 193) Dummy {f00=0x006b, 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
0x1529b4…152b48 Dummy {f00=0x006b, 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* (
0x152b48…152cdc Dummy {f00=0x006b, 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
0x152cdc…152e70 Dummy {f00=0x006b, 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
0x152e70…153004 Dummy {f00=0x006b, 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
0x153004…153198 Dummy {f00=0x006b, 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
0x153198…15332c Dummy {f00=0x006b, 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*
0x15332c…1534c0 Dummy {f00=0x006b, 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
0x1534c0…153654 (1, 194) Dummy {f00=0x006b, 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
0x153654…1537e8 Dummy {f00=0x006b, 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
0x1537e8…15397c Dummy {f00=0x006b, 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*
0x15397c…153b10 Dummy {f00=0x006b, 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
0x153b10…153ca4 Dummy {f00=0x006b, 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
0x153ca4…153e38 Dummy {f00=0x006b, 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
0x153e38…153fcc Dummy {f00=0x006b, 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
0x153fcc…154160 Dummy {f00=0x006b, 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
0x154160…1542f4 (1, 195) Dummy {f00=0x006c, 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 *
0x1542f4…154488 Dummy {f00=0x006c, 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
0x154488…15461c Dummy {f00=0x006c, 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
0x15461c…1547b0 Dummy {f00=0x006c, 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
0x1547b0…154944 Dummy {f00=0x006c, 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
0x154944…154ad8 Dummy {f00=0x006c, 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
0x154ad8…154c6c Dummy {f00=0x006c, 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
0x154c6c…154e00 Dummy {f00=0x006c, 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
0x154e00…154f94 (1, 196) Dummy {f00=0x006c, 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
0x154f94…155128 Dummy {f00=0x006c, 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*
0x155128…1552bc Dummy {f00=0x006c, 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 (
0x1552bc…155450 Dummy {f00=0x006c, 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************
0x155450…1555e4 Dummy {f00=0x006c, 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
0x1555e4…155778 Dummy {f00=0x006c, 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
0x155778…15590c Dummy {f00=0x006c, f01=0x018e, f02=»SLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P******************************************************* , 4 P , t PJUMP ABL SYSLDM , | P EJECT , P , ( P************************************ , ( P** ** , ( P**
0x15590c…155aa0 Dummy {f00=0x006c, 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 *
0x155aa0…155c34 (1, 197) Opaque[0x194]
0x155c34…155dc8 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d90, f03=0x0000}
0x155c34…155dc8 IdxSect {
0x155c34…155dc8 f00 = 0x006c // 0x155c34 @0x0
0x155c34…155dc8 f01 = 0x0008 // 0x155c36 @0x2
0x155c34…155dc8 gno = [ // 0x155c38 @0x4
0x155c34…155dc8 [0x00]: C0x006c.0x2.0
0x155c34…155dc8 [0x01]: C0x006c.0x3.0
0x155c34…155dc8 [0x02]: C0x006d.0x0.0
0x155c34…155dc8 [0x03]: C0x006d.0x1.0
0x155c34…155dc8 ]
0x155c34…155dc8 }
0x155dc8…155f5c Dummy {f00=0x006c, 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
0x155f5c…1560f0 Dummy {f00=0x006c, 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
0x1560f0…156284 Dummy {f00=0x006c, 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
0x156284…156418 Dummy {f00=0x006c, 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
0x156418…1565ac Dummy {f00=0x006c, 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
0x1565ac…156740 Dummy {f00=0x006c, 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
0x156740…1568d4 (1, 198) Dummy {f00=0x006c, 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********************
0x1568d4…156a68 Dummy {f00=0x006c, 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
0x156a68…156bfc Dummy {f00=0x006c, 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
0x156bfc…156d90 Dummy {f00=0x006c, 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
0x156d90…156f24 Dummy {f00=0x006c, 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
0x156f24…1570b8 Dummy {f00=0x006c, 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
0x1570b8…15724c Dummy {f00=0x006c, 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
0x15724c…1573e0 Dummy {f00=0x006c, 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
0x1573e0…157574 (1, 199) Dummy {f00=0x006d, 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,
0x157574…157708 Dummy {f00=0x006d, 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
0x157708…15789c Dummy {f00=0x006d, 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
0x15789c…157a30 Dummy {f00=0x006d, 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*
0x157a30…157bc4 Dummy {f00=0x006d, 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
0x157bc4…157d58 Dummy {f00=0x006d, 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
0x157d58…157eec Dummy {f00=0x006d, 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
0x157eec…158080 Dummy {f00=0x006d, 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 @
0x158080…158214 (1, 200) Dummy {f00=0x006d, 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
0x158214…1583a8 Dummy {f00=0x006d, 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
0x1583a8…15853c Dummy {f00=0x006d, 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'
0x15853c…1586d0 Dummy {f00=0x006d, 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
0x1586d0…158864 Dummy {f00=0x006d, 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
0x158864…1589f8 Dummy {f00=0x006d, 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
0x1589f8…158b8c Dummy {f00=0x006d, 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
0x158b8c…158d20 Dummy {f00=0x006d, 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 }
0x158d20…158eb4 (1, 201) Opaque[0x194]
0x158eb4…159048 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0db0, f03=0x0000}
0x158eb4…159048 IdxSect {
0x158eb4…159048 f00 = 0x006d // 0x158eb4 @0x0
0x158eb4…159048 f01 = 0x0004 // 0x158eb6 @0x2
0x158eb4…159048 gno = [ // 0x158eb8 @0x4
0x158eb4…159048 [0x00]: C0x006d.0x2.0
0x158eb4…159048 [0x01]: C0x006d.0x3.0
0x158eb4…159048 ]
0x158eb4…159048 }
0x159048…1591dc Dummy {f00=0x006d, 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
0x1591dc…159370 Dummy {f00=0x006d, 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
0x159370…159504 Dummy {f00=0x006d, 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
0x159504…159698 Dummy {f00=0x006d, 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
0x159698…15982c Dummy {f00=0x006d, 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
0x15982c…1599c0 Dummy {f00=0x006d, 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
0x1599c0…159b54 (1, 202) Dummy {f00=0x006d, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x159b54…159ce8 Dummy {f00=0x006d, 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
0x159ce8…159e7c Dummy {f00=0x006d, 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
0x159e7c…15a010 Dummy {f00=0x006d, 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
0x15a010…15a1a4 Dummy {f00=0x006d, 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
0x15a1a4…15a338 Dummy {f00=0x006d, 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
0x15a338…15a4cc Dummy {f00=0x006d, 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
0x15a4cc…15a660 Dummy {f00=0x006d, 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
0x15a660…15a7f4 (1, 203) Opaque[0x194]
0x15a7f4…15a988 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc0, f03=0x0000}
0x15a7f4…15a988 IdxSect {
0x15a7f4…15a988 f00 = 0x006e // 0x15a7f4 @0x0
0x15a7f4…15a988 f01 = 0x0002 // 0x15a7f6 @0x2
0x15a7f4…15a988 gno = [ // 0x15a7f8 @0x4
0x15a7f4…15a988 [0x00]: C0x006e.0x0.0
0x15a7f4…15a988 ]
0x15a7f4…15a988 }
0x15a988…15ab1c Dummy {f00=0x006e, 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
0x15ab1c…15acb0 Dummy {f00=0x006e, 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
0x15acb0…15ae44 Dummy {f00=0x006e, 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
0x15ae44…15afd8 Dummy {f00=0x006e, 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
0x15afd8…15b16c Dummy {f00=0x006e, 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
0x15b16c…15b300 Dummy {f00=0x006e, 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
0x15b300…15b494 (1, 204) Opaque[0x194]
0x15b494…15b628 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dc8, f03=0x0000}
0x15b494…15b628 IdxSect {
0x15b494…15b628 f00 = 0x006e // 0x15b494 @0x0
0x15b494…15b628 f01 = 0x0004 // 0x15b496 @0x2
0x15b494…15b628 gno = [ // 0x15b498 @0x4
0x15b494…15b628 [0x00]: C0x006e.0x1.0
0x15b494…15b628 [0x01]: C0x006e.0x2.0
0x15b494…15b628 ]
0x15b494…15b628 }
0x15b628…15b7bc Dummy {f00=0x006e, 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
0x15b7bc…15b950 Dummy {f00=0x006e, 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
0x15b950…15bae4 Dummy {f00=0x006e, 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
0x15bae4…15bc78 Dummy {f00=0x006e, 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
0x15bc78…15be0c Dummy {f00=0x006e, 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
0x15be0c…15bfa0 Dummy {f00=0x006e, 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
0x15bfa0…15c134 (1, 205) Dummy {f00=0x006e, 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
0x15c134…15c2c8 Dummy {f00=0x006e, 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
0x15c2c8…15c45c Dummy {f00=0x006e, 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:
0x15c45c…15c5f0 Dummy {f00=0x006e, 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
0x15c5f0…15c784 Dummy {f00=0x006e, 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
0x15c784…15c918 Dummy {f00=0x006e, 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
0x15c918…15caac Dummy {f00=0x006e, 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
0x15caac…15cc40 Dummy {f00=0x006e, 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
0x15cc40…15cdd4 (1, 206) Opaque[0x194]
0x15cdd4…15cf68 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x15cdd4…15cf68 IdxSect {
0x15cdd4…15cf68 f00 = 0x006e // 0x15cdd4 @0x0
0x15cdd4…15cf68 f01 = 0x0002 // 0x15cdd6 @0x2
0x15cdd4…15cf68 gno = [ // 0x15cdd8 @0x4
0x15cdd4…15cf68 [0x00]: C0x006e.0x3.0
0x15cdd4…15cf68 ]
0x15cdd4…15cf68 }
0x15cf68…15d0fc Dummy {f00=0x006e, 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
0x15d0fc…15d290 Dummy {f00=0x006e, 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
0x15d290…15d424 Dummy {f00=0x006e, 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 @
0x15d424…15d5b8 Dummy {f00=0x006e, 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
0x15d5b8…15d74c Dummy {f00=0x006e, 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
0x15d74c…15d8e0 Dummy {f00=0x006e, 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
0x15d8e0…15da74 (1, 207) Opaque[0x194]
0x15da74…15dc08 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0de0, f03=0x0000}
0x15da74…15dc08 IdxSect {
0x15da74…15dc08 f00 = 0x006f // 0x15da74 @0x0
0x15da74…15dc08 f01 = 0x0002 // 0x15da76 @0x2
0x15da74…15dc08 gno = [ // 0x15da78 @0x4
0x15da74…15dc08 [0x00]: C0x006f.0x0.0
0x15da74…15dc08 ]
0x15da74…15dc08 }
0x15dc08…15dd9c Dummy {f00=0x006f, 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* (
0x15dd9c…15df30 Dummy {f00=0x006f, 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* (
0x15df30…15e0c4 Dummy {f00=0x006f, 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
0x15e0c4…15e258 Dummy {f00=0x006f, 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
0x15e258…15e3ec Dummy {f00=0x006f, 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
0x15e3ec…15e580 Dummy {f00=0x006f, 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
0x15e580…15e714 (1, 208) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0de8, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x006f // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x000a // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x006f.0x1.0
0x15e714…15e8a8 [0x01]: C0x006f.0x2.0
0x15e714…15e8a8 [0x02]: C0x006f.0x3.0
0x15e714…15e8a8 [0x03]: C0x0070.0x0.0
0x15e714…15e8a8 [0x04]: C0x0070.0x1.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x006f, 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*
0x15ea3c…15ebd0 Dummy {f00=0x006f, 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
0x15ebd0…15ed64 Dummy {f00=0x006f, 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
0x15ed64…15eef8 Dummy {f00=0x006f, 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
0x15eef8…15f08c Dummy {f00=0x006f, 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 *
0x15f08c…15f220 Dummy {f00=0x006f, 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
0x15f220…15f3b4 (1, 209) Dummy {f00=0x006f, 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
0x15f3b4…15f548 Dummy {f00=0x006f, 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
0x15f548…15f6dc Dummy {f00=0x006f, 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
0x15f6dc…15f870 Dummy {f00=0x006f, 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
0x15f870…15fa04 Dummy {f00=0x006f, 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
0x15fa04…15fb98 Dummy {f00=0x006f, 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
0x15fb98…15fd2c Dummy {f00=0x006f, 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
0x15fd2c…15fec0 Dummy {f00=0x006f, 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
0x15fec0…160054 (1, 210) Dummy {f00=0x006f, 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 *
0x160054…1601e8 Dummy {f00=0x006f, 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
0x1601e8…16037c Dummy {f00=0x006f, 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
0x16037c…160510 Dummy {f00=0x006f, 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
0x160510…1606a4 Dummy {f00=0x006f, 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
0x1606a4…160838 Dummy {f00=0x006f, 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**
0x160838…1609cc Dummy {f00=0x006f, 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*
0x1609cc…160b60 Dummy {f00=0x006f, 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
0x160b60…160cf4 (1, 211) Dummy {f00=0x0070, 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
0x160cf4…160e88 Dummy {f00=0x0070, 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
0x160e88…16101c Dummy {f00=0x0070, 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)
0x16101c…1611b0 Dummy {f00=0x0070, 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
0x1611b0…161344 Dummy {f00=0x0070, 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
0x161344…1614d8 Dummy {f00=0x0070, 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
0x1614d8…16166c Dummy {f00=0x0070, 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*
0x16166c…161800 Dummy {f00=0x0070, 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
0x161800…161994 (1, 212) Dummy {f00=0x0070, 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
0x161994…161b28 Dummy {f00=0x0070, 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
0x161b28…161cbc Dummy {f00=0x0070, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x161cbc…161e50 Dummy {f00=0x0070, f01=0x0000, f02=»
[…0x4…]
0x1624a0…162634 (1, 213) Opaque[0x194]
0x162634…1627c8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e10, f03=0x0000}
0x162634…1627c8 IdxSect {
0x162634…1627c8 f00 = 0x0070 // 0x162634 @0x0
0x162634…1627c8 f01 = 0x0002 // 0x162636 @0x2
0x162634…1627c8 gno = [ // 0x162638 @0x4
0x162634…1627c8 [0x00]: C0x0070.0x2.0
0x162634…1627c8 ]
0x162634…1627c8 }
0x1627c8…16295c Dummy {f00=0x0070, 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
0x16295c…162af0 Dummy {f00=0x0070, 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
0x162af0…162c84 Dummy {f00=0x0070, 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
0x162c84…162e18 Dummy {f00=0x0070, 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
0x162e18…162fac Dummy {f00=0x0070, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x162fac…163140 Dummy {f00=0x0070, 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
0x163140…1632d4 (1, 214) Opaque[0x194]
0x1632d4…163468 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e18, f03=0x0000}
0x1632d4…163468 IdxSect {
0x1632d4…163468 f00 = 0x0070 // 0x1632d4 @0x0
0x1632d4…163468 f01 = 0x0002 // 0x1632d6 @0x2
0x1632d4…163468 gno = [ // 0x1632d8 @0x4
0x1632d4…163468 [0x00]: C0x0070.0x3.0
0x1632d4…163468 ]
0x1632d4…163468 }
0x163468…1635fc Dummy {f00=0x0070, 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
0x1635fc…163790 Dummy {f00=0x0070, 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
0x163790…163924 Dummy {f00=0x0070, 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
0x163924…163ab8 Dummy {f00=0x0070, 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
0x163ab8…163c4c Dummy {f00=0x0070, 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
0x163c4c…163de0 Dummy {f00=0x0070, 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
0x163de0…163f74 (1, 215) Opaque[0x194]
0x163f74…164108 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x163f74…164108 IdxSect {
0x163f74…164108 f00 = 0x0071 // 0x163f74 @0x0
0x163f74…164108 f01 = 0x0002 // 0x163f76 @0x2
0x163f74…164108 gno = [ // 0x163f78 @0x4
0x163f74…164108 [0x00]: C0x0071.0x0.0
0x163f74…164108 ]
0x163f74…164108 }
0x164108…16429c Dummy {f00=0x0071, 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*
0x16429c…164430 Dummy {f00=0x0071, 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
0x164430…1645c4 Dummy {f00=0x0071, 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,
0x1645c4…164758 Dummy {f00=0x0071, 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
0x164758…1648ec Dummy {f00=0x0071, 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
0x1648ec…164a80 Dummy {f00=0x0071, 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
0x164a80…164c14 (1, 216) Opaque[0x194]
0x164c14…164da8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e28, f03=0x0000}
0x164c14…164da8 IdxSect {
0x164c14…164da8 f00 = 0x0071 // 0x164c14 @0x0
0x164c14…164da8 f01 = 0x0002 // 0x164c16 @0x2
0x164c14…164da8 gno = [ // 0x164c18 @0x4
0x164c14…164da8 [0x00]: C0x0071.0x1.0
0x164c14…164da8 ]
0x164c14…164da8 }
0x164da8…164f3c Dummy {f00=0x0071, 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
0x164f3c…1650d0 Dummy {f00=0x0071, 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
0x1650d0…165264 Dummy {f00=0x0071, 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
0x165264…1653f8 Dummy {f00=0x0071, 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
0x1653f8…16558c Dummy {f00=0x0071, 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
0x16558c…165720 Dummy {f00=0x0071, 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
0x165720…1658b4 (1, 217) Opaque[0x194]
0x1658b4…165a48 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x1658b4…165a48 IdxSect {
0x1658b4…165a48 f00 = 0x0071 // 0x1658b4 @0x0
0x1658b4…165a48 f01 = 0x0002 // 0x1658b6 @0x2
0x1658b4…165a48 gno = [ // 0x1658b8 @0x4
0x1658b4…165a48 [0x00]: C0x0071.0x2.0
0x1658b4…165a48 ]
0x1658b4…165a48 }
0x165a48…165bdc Dummy {f00=0x0071, 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*
0x165bdc…165d70 Dummy {f00=0x0071, 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
0x165d70…165f04 Dummy {f00=0x0071, 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
0x165f04…166098 Dummy {f00=0x0071, 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
0x166098…16622c Dummy {f00=0x0071, 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
0x16622c…1663c0 Dummy {f00=0x0071, 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
0x1663c0…166554 (1, 218) Opaque[0x194]
0x166554…1666e8 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e38, f03=0x0000}
0x166554…1666e8 IdxSect {
0x166554…1666e8 f00 = 0x0071 // 0x166554 @0x0
0x166554…1666e8 f01 = 0x0010 // 0x166556 @0x2
0x166554…1666e8 gno = [ // 0x166558 @0x4
0x166554…1666e8 [0x00]: C0x0071.0x3.0
0x166554…1666e8 [0x01]: C0x0072.0x0.0
0x166554…1666e8 [0x02]: C0x0072.0x1.0
0x166554…1666e8 [0x03]: C0x0072.0x2.0
0x166554…1666e8 [0x04]: C0x0072.0x3.0
0x166554…1666e8 [0x05]: C0x0073.0x0.0
0x166554…1666e8 [0x06]: C0x0073.0x1.0
0x166554…1666e8 [0x07]: C0x0073.0x2.0
0x166554…1666e8 ]
0x166554…1666e8 }
0x1666e8…16687c Dummy {f00=0x0071, 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
0x16687c…166a10 Dummy {f00=0x0071, 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
0x166a10…166ba4 Dummy {f00=0x0071, 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
0x166ba4…166d38 Dummy {f00=0x0071, 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
0x166d38…166ecc Dummy {f00=0x0071, 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
0x166ecc…167060 Dummy {f00=0x0071, 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 $
0x167060…1671f4 (1, 219) Dummy {f00=0x0072, 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
0x1671f4…167388 Dummy {f00=0x0072, 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
0x167388…16751c Dummy {f00=0x0072, 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
0x16751c…1676b0 Dummy {f00=0x0072, 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
0x1676b0…167844 Dummy {f00=0x0072, 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
0x167844…1679d8 Dummy {f00=0x0072, 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
0x1679d8…167b6c Dummy {f00=0x0072, 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
0x167b6c…167d00 Dummy {f00=0x0072, 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
0x167d00…167e94 (1, 220) Dummy {f00=0x0072, 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
0x167e94…168028 Dummy {f00=0x0072, 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 /
0x168028…1681bc Dummy {f00=0x0072, 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
0x1681bc…168350 Dummy {f00=0x0072, 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
0x168350…1684e4 Dummy {f00=0x0072, 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
0x1684e4…168678 Dummy {f00=0x0072, 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
0x168678…16880c Dummy {f00=0x0072, 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
0x16880c…1689a0 Dummy {f00=0x0072, 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
0x1689a0…168b34 (1, 221) Dummy {f00=0x0072, 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
0x168b34…168cc8 Dummy {f00=0x0072, 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
0x168cc8…168e5c Dummy {f00=0x0072, 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:
0x168e5c…168ff0 Dummy {f00=0x0072, 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
0x168ff0…169184 Dummy {f00=0x0072, 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
0x169184…169318 Dummy {f00=0x0072, 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
0x169318…1694ac Dummy {f00=0x0072, 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
0x1694ac…169640 Dummy {f00=0x0072, 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
0x169640…1697d4 (1, 222) Dummy {f00=0x0072, 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
0x1697d4…169968 Dummy {f00=0x0072, 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*
0x169968…169afc Dummy {f00=0x0072, 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
0x169afc…169c90 Dummy {f00=0x0072, 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
0x169c90…169e24 Dummy {f00=0x0072, 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
0x169e24…169fb8 Dummy {f00=0x0072, 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
0x169fb8…16a14c Dummy {f00=0x0072, 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
0x16a14c…16a2e0 Dummy {f00=0x0072, 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
0x16a2e0…16a474 (1, 223) Dummy {f00=0x0073, 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 &
0x16a474…16a608 Dummy {f00=0x0073, 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
0x16a608…16a79c Dummy {f00=0x0073, 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
0x16a79c…16a930 Dummy {f00=0x0073, 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
0x16a930…16aac4 Dummy {f00=0x0073, 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
0x16aac4…16ac58 Dummy {f00=0x0073, 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
0x16ac58…16adec Dummy {f00=0x0073, 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)
0x16adec…16af80 Dummy {f00=0x0073, 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 * - "
0x16af80…16b114 (1, 224) Dummy {f00=0x0073, 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
0x16b114…16b2a8 Dummy {f00=0x0073, 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 /
0x16b2a8…16b43c Dummy {f00=0x0073, 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
0x16b43c…16b5d0 Dummy {f00=0x0073, 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
0x16b5d0…16b764 Dummy {f00=0x0073, 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(
0x16b764…16b8f8 Dummy {f00=0x0073, 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
0x16b8f8…16ba8c Dummy {f00=0x0073, 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
0x16ba8c…16bc20 Dummy {f00=0x0073, 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
0x16bc20…16bdb4 (1, 225) Dummy {f00=0x0073, 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
0x16bdb4…16bf48 Dummy {f00=0x0073, 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
0x16bf48…16c0dc Dummy {f00=0x0073, 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
0x16c0dc…16c270 Dummy {f00=0x0073, 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
0x16c270…16c404 Dummy {f00=0x0073, 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
0x16c404…16c598 Dummy {f00=0x0073, 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
0x16c598…16c72c Dummy {f00=0x0073, 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 .
0x16c72c…16c8c0 Dummy {f00=0x0073, 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
0x16c8c0…16ca54 (1, 226) Opaque[0x194]
0x16ca54…16cbe8 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e78, f03=0x0000}
0x16ca54…16cbe8 IdxSect {
0x16ca54…16cbe8 f00 = 0x0073 // 0x16ca54 @0x0
0x16ca54…16cbe8 f01 = 0x000e // 0x16ca56 @0x2
0x16ca54…16cbe8 gno = [ // 0x16ca58 @0x4
0x16ca54…16cbe8 [0x00]: C0x0073.0x3.0
0x16ca54…16cbe8 [0x01]: C0x0074.0x0.0
0x16ca54…16cbe8 [0x02]: C0x0074.0x1.0
0x16ca54…16cbe8 [0x03]: C0x0074.0x2.0
0x16ca54…16cbe8 [0x04]: C0x0074.0x3.0
0x16ca54…16cbe8 [0x05]: C0x0075.0x0.0
0x16ca54…16cbe8 [0x06]: C0x0075.0x1.0
0x16ca54…16cbe8 ]
0x16ca54…16cbe8 }
0x16cbe8…16cd7c Dummy {f00=0x0073, 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
0x16cd7c…16cf10 Dummy {f00=0x0073, 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*************************************************
0x16cf10…16d0a4 Dummy {f00=0x0073, 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
0x16d0a4…16d238 Dummy {f00=0x0073, 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
0x16d238…16d3cc Dummy {f00=0x0073, 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*
0x16d3cc…16d560 Dummy {f00=0x0073, 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
0x16d560…16d6f4 (1, 227) Dummy {f00=0x0074, 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
0x16d6f4…16d888 Dummy {f00=0x0074, 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
0x16d888…16da1c Dummy {f00=0x0074, 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
0x16da1c…16dbb0 Dummy {f00=0x0074, 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
0x16dbb0…16dd44 Dummy {f00=0x0074, 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*
0x16dd44…16ded8 Dummy {f00=0x0074, 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
0x16ded8…16e06c Dummy {f00=0x0074, 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*
0x16e06c…16e200 Dummy {f00=0x0074, 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=
0x16e200…16e394 (1, 228) Dummy {f00=0x0074, 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
0x16e394…16e528 Dummy {f00=0x0074, 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****************
0x16e528…16e6bc Dummy {f00=0x0074, 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****************
0x16e6bc…16e850 Dummy {f00=0x0074, 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
0x16e850…16e9e4 Dummy {f00=0x0074, 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
0x16e9e4…16eb78 Dummy {f00=0x0074, 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
0x16eb78…16ed0c Dummy {f00=0x0074, 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
0x16ed0c…16eea0 Dummy {f00=0x0074, 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
0x16eea0…16f034 (1, 229) Dummy {f00=0x0074, 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
0x16f034…16f1c8 Dummy {f00=0x0074, 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*
0x16f1c8…16f35c Dummy {f00=0x0074, 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
0x16f35c…16f4f0 Dummy {f00=0x0074, 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?
0x16f4f0…16f684 Dummy {f00=0x0074, 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*
0x16f684…16f818 Dummy {f00=0x0074, 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*
0x16f818…16f9ac Dummy {f00=0x0074, 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
0x16f9ac…16fb40 Dummy {f00=0x0074, 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
0x16fb40…16fcd4 (1, 230) Dummy {f00=0x0074, 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
0x16fcd4…16fe68 Dummy {f00=0x0074, 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
0x16fe68…16fffc Dummy {f00=0x0074, 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
0x16fffc…170190 Dummy {f00=0x0074, 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
0x170190…170324 Dummy {f00=0x0074, 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
0x170324…1704b8 Dummy {f00=0x0074, 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
0x1704b8…17064c Dummy {f00=0x0074, 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
0x17064c…1707e0 Dummy {f00=0x0074, 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 %
0x1707e0…170974 (1, 231) Dummy {f00=0x0075, 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
0x170974…170b08 Dummy {f00=0x0075, 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
0x170b08…170c9c Dummy {f00=0x0075, 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
0x170c9c…170e30 Dummy {f00=0x0075, 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
0x170e30…170fc4 Dummy {f00=0x0075, 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
0x170fc4…171158 Dummy {f00=0x0075, 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 +
0x171158…1712ec Dummy {f00=0x0075, 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 ,
0x1712ec…171480 Dummy {f00=0x0075, 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
0x171480…171614 (1, 232) Dummy {f00=0x0075, 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
0x171614…1717a8 Dummy {f00=0x0075, 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
0x1717a8…17193c Dummy {f00=0x0075, 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 & (
0x17193c…171ad0 Dummy {f00=0x0075, 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,
0x171ad0…171c64 Dummy {f00=0x0075, 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-
0x171c64…171df8 Dummy {f00=0x0075, 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
0x171df8…171f8c Dummy {f00=0x0075, 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
0x171f8c…172120 Dummy {f00=0x0075, 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
0x172120…1722b4 (1, 233) Opaque[0x194]
0x1722b4…172448 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0eb0, f03=0x0000}
0x1722b4…172448 IdxSect {
0x1722b4…172448 f00 = 0x0075 // 0x1722b4 @0x0
0x1722b4…172448 f01 = 0x0008 // 0x1722b6 @0x2
0x1722b4…172448 gno = [ // 0x1722b8 @0x4
0x1722b4…172448 [0x00]: C0x0075.0x2.0
0x1722b4…172448 [0x01]: C0x0075.0x3.0
0x1722b4…172448 [0x02]: C0x0076.0x0.0
0x1722b4…172448 [0x03]: C0x0076.0x1.0
0x1722b4…172448 ]
0x1722b4…172448 }
0x172448…1725dc Dummy {f00=0x0075, 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*
0x1725dc…172770 Dummy {f00=0x0075, 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
0x172770…172904 Dummy {f00=0x0075, 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:
0x172904…172a98 Dummy {f00=0x0075, 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*
0x172a98…172c2c Dummy {f00=0x0075, 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
0x172c2c…172dc0 Dummy {f00=0x0075, 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
0x172dc0…172f54 (1, 234) Dummy {f00=0x0075, 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*
0x172f54…1730e8 Dummy {f00=0x0075, 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
0x1730e8…17327c Dummy {f00=0x0075, 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
0x17327c…173410 Dummy {f00=0x0075, 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
0x173410…1735a4 Dummy {f00=0x0075, 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
0x1735a4…173738 Dummy {f00=0x0075, 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
0x173738…1738cc Dummy {f00=0x0075, 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
0x1738cc…173a60 Dummy {f00=0x0075, 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(
0x173a60…173bf4 (1, 235) Dummy {f00=0x0076, 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
0x173bf4…173d88 Dummy {f00=0x0076, 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
0x173d88…173f1c Dummy {f00=0x0076, 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
0x173f1c…1740b0 Dummy {f00=0x0076, 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*
0x1740b0…174244 Dummy {f00=0x0076, 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*
0x174244…1743d8 Dummy {f00=0x0076, 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
0x1743d8…17456c Dummy {f00=0x0076, 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
0x17456c…174700 Dummy {f00=0x0076, 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
0x174700…174894 (1, 236) Dummy {f00=0x0076, 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
0x174894…174a28 Dummy {f00=0x0076, 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
0x174a28…174bbc Dummy {f00=0x0076, 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*
0x174bbc…174d50 Dummy {f00=0x0076, 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*
0x174d50…174ee4 Dummy {f00=0x0076, 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
0x174ee4…175078 Dummy {f00=0x0076, 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*
0x175078…17520c Dummy {f00=0x0076, 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
0x17520c…1753a0 Dummy {f00=0x0076, 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
0x1753a0…175534 (1, 237) Opaque[0x194]
0x175534…1756c8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed0, f03=0x0000}
0x175534…1756c8 IdxSect {
0x175534…1756c8 f00 = 0x0076 // 0x175534 @0x0
0x175534…1756c8 f01 = 0x0018 // 0x175536 @0x2
0x175534…1756c8 gno = [ // 0x175538 @0x4
0x175534…1756c8 [0x00]: C0x0076.0x2.0
0x175534…1756c8 [0x01]: C0x0076.0x3.0
0x175534…1756c8 [0x02]: C0x0077.0x0.0
0x175534…1756c8 [0x03]: C0x0077.0x1.0
0x175534…1756c8 [0x04]: C0x0077.0x2.0
0x175534…1756c8 [0x05]: C0x0077.0x3.0
0x175534…1756c8 [0x06]: C0x0078.0x0.0
0x175534…1756c8 [0x07]: C0x0078.0x1.0
0x175534…1756c8 [0x08]: C0x0078.0x2.0
0x175534…1756c8 [0x09]: C0x0078.0x3.0
0x175534…1756c8 [0x0a]: C0x0079.0x0.0
0x175534…1756c8 [0x0b]: C0x0079.0x1.0
0x175534…1756c8 ]
0x175534…1756c8 }
0x1756c8…17585c Dummy {f00=0x0076, 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.
0x17585c…1759f0 Dummy {f00=0x0076, 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
0x1759f0…175b84 Dummy {f00=0x0076, 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
0x175b84…175d18 Dummy {f00=0x0076, 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
0x175d18…175eac Dummy {f00=0x0076, 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
0x175eac…176040 Dummy {f00=0x0076, 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 $
0x176040…1761d4 (1, 238) Dummy {f00=0x0076, 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* ----------
0x1761d4…176368 Dummy {f00=0x0076, 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
0x176368…1764fc Dummy {f00=0x0076, 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*
0x1764fc…176690 Dummy {f00=0x0076, 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
0x176690…176824 Dummy {f00=0x0076, 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******************
0x176824…1769b8 Dummy {f00=0x0076, 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
0x1769b8…176b4c Dummy {f00=0x0076, 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
0x176b4c…176ce0 Dummy {f00=0x0076, 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
0x176ce0…176e74 (1, 239) Dummy {f00=0x0077, 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
0x176e74…177008 Dummy {f00=0x0077, 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
0x177008…17719c Dummy {f00=0x0077, 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
0x17719c…177330 Dummy {f00=0x0077, 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
0x177330…1774c4 Dummy {f00=0x0077, 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
0x1774c4…177658 Dummy {f00=0x0077, 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*
0x177658…1777ec Dummy {f00=0x0077, 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
0x1777ec…177980 Dummy {f00=0x0077, 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
0x177980…177b14 (1, 240) Dummy {f00=0x0077, 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
0x177b14…177ca8 Dummy {f00=0x0077, 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
0x177ca8…177e3c Dummy {f00=0x0077, 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* <
0x177e3c…177fd0 Dummy {f00=0x0077, 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,
0x177fd0…178164 Dummy {f00=0x0077, 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
0x178164…1782f8 Dummy {f00=0x0077, 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
0x1782f8…17848c Dummy {f00=0x0077, 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
0x17848c…178620 Dummy {f00=0x0077, 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
0x178620…1787b4 (1, 241) Dummy {f00=0x0077, 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
0x1787b4…178948 Dummy {f00=0x0077, 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=
0x178948…178adc Dummy {f00=0x0077, 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
0x178adc…178c70 Dummy {f00=0x0077, 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
0x178c70…178e04 Dummy {f00=0x0077, 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)
0x178e04…178f98 Dummy {f00=0x0077, 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! #
0x178f98…17912c Dummy {f00=0x0077, 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
0x17912c…1792c0 Dummy {f00=0x0077, 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
0x1792c0…179454 (1, 242) Dummy {f00=0x0077, 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
0x179454…1795e8 Dummy {f00=0x0077, 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************
0x1795e8…17977c Dummy {f00=0x0077, 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
0x17977c…179910 Dummy {f00=0x0077, 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
0x179910…179aa4 Dummy {f00=0x0077, 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
0x179aa4…179c38 Dummy {f00=0x0077, 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
0x179c38…179dcc Dummy {f00=0x0077, 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? ,
0x179dcc…179f60 Dummy {f00=0x0077, 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 -
0x179f60…17a0f4 (1, 243) Dummy {f00=0x0078, 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
0x17a0f4…17a288 Dummy {f00=0x0078, 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
0x17a288…17a41c Dummy {f00=0x0078, 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
0x17a41c…17a5b0 Dummy {f00=0x0078, 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
0x17a5b0…17a744 Dummy {f00=0x0078, 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
0x17a744…17a8d8 Dummy {f00=0x0078, 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
0x17a8d8…17aa6c Dummy {f00=0x0078, 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
0x17aa6c…17ac00 Dummy {f00=0x0078, 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
0x17ac00…17ad94 (1, 244) Dummy {f00=0x0078, 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
0x17ad94…17af28 Dummy {f00=0x0078, 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.
0x17af28…17b0bc Dummy {f00=0x0078, 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
0x17b0bc…17b250 Dummy {f00=0x0078, 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
0x17b250…17b3e4 Dummy {f00=0x0078, 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*
0x17b3e4…17b578 Dummy {f00=0x0078, 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
0x17b578…17b70c Dummy {f00=0x0078, 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
0x17b70c…17b8a0 Dummy {f00=0x0078, 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 ? =
0x17b8a0…17ba34 (1, 245) Dummy {f00=0x0078, 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
0x17ba34…17bbc8 Dummy {f00=0x0078, 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 ? &
0x17bbc8…17bd5c Dummy {f00=0x0078, 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
0x17bd5c…17bef0 Dummy {f00=0x0078, 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
0x17bef0…17c084 Dummy {f00=0x0078, 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
0x17c084…17c218 Dummy {f00=0x0078, 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
0x17c218…17c3ac Dummy {f00=0x0078, 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
0x17c3ac…17c540 Dummy {f00=0x0078, 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
0x17c540…17c6d4 (1, 246) Dummy {f00=0x0078, 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
0x17c6d4…17c868 Dummy {f00=0x0078, 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
0x17c868…17c9fc Dummy {f00=0x0078, 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
0x17c9fc…17cb90 Dummy {f00=0x0078, 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
0x17cb90…17cd24 Dummy {f00=0x0078, 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
0x17cd24…17ceb8 Dummy {f00=0x0078, 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******
0x17ceb8…17d04c Dummy {f00=0x0078, 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
0x17d04c…17d1e0 Dummy {f00=0x0078, 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
0x17d1e0…17d374 (1, 247) Dummy {f00=0x0079, 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
0x17d374…17d508 Dummy {f00=0x0079, 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
0x17d508…17d69c Dummy {f00=0x0079, 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
0x17d69c…17d830 Dummy {f00=0x0079, 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
0x17d830…17d9c4 Dummy {f00=0x0079, 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
0x17d9c4…17db58 Dummy {f00=0x0079, 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
0x17db58…17dcec Dummy {f00=0x0079, 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
0x17dcec…17de80 Dummy {f00=0x0079, 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
0x17de80…17e014 (1, 248) Dummy {f00=0x0079, 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
0x17e014…17e1a8 Dummy {f00=0x0079, f01=0x0000, f02=»
[…0x6…]
0x17eb20…17ecb4 (1, 249) Opaque[0x194]
0x17ecb4…17ee48 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f30, f03=0x0000}
0x17ecb4…17ee48 IdxSect {
0x17ecb4…17ee48 f00 = 0x0079 // 0x17ecb4 @0x0
0x17ecb4…17ee48 f01 = 0x0014 // 0x17ecb6 @0x2
0x17ecb4…17ee48 gno = [ // 0x17ecb8 @0x4
0x17ecb4…17ee48 [0x00]: C0x0079.0x2.0
0x17ecb4…17ee48 [0x01]: C0x0079.0x3.0
0x17ecb4…17ee48 [0x02]: C0x007a.0x0.0
0x17ecb4…17ee48 [0x03]: C0x007a.0x1.0
0x17ecb4…17ee48 [0x04]: C0x007a.0x2.0
0x17ecb4…17ee48 [0x05]: C0x007a.0x3.0
0x17ecb4…17ee48 [0x06]: C0x007b.0x0.0
0x17ecb4…17ee48 [0x07]: C0x007b.0x1.0
0x17ecb4…17ee48 [0x08]: C0x007b.0x2.0
0x17ecb4…17ee48 [0x09]: C0x007b.0x3.0
0x17ecb4…17ee48 ]
0x17ecb4…17ee48 }
0x17ee48…17efdc Dummy {f00=0x0079, 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
0x17efdc…17f170 Dummy {f00=0x0079, 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 =
0x17f170…17f304 Dummy {f00=0x0079, 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************************************
0x17f304…17f498 Dummy {f00=0x0079, 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
0x17f498…17f62c Dummy {f00=0x0079, 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
0x17f62c…17f7c0 Dummy {f00=0x0079, 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
0x17f7c0…17f954 (1, 250) Dummy {f00=0x0079, 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****************
0x17f954…17fae8 Dummy {f00=0x0079, 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
0x17fae8…17fc7c Dummy {f00=0x0079, 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
0x17fc7c…17fe10 Dummy {f00=0x0079, 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*
0x17fe10…17ffa4 Dummy {f00=0x0079, 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
0x17ffa4…180138 Dummy {f00=0x0079, 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
0x180138…1802cc Dummy {f00=0x0079, 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*
0x1802cc…180460 Dummy {f00=0x0079, 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 *
0x180460…1805f4 (1, 251) Dummy {f00=0x007a, 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 /
0x1805f4…180788 Dummy {f00=0x007a, 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
0x180788…18091c Dummy {f00=0x007a, 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
0x18091c…180ab0 Dummy {f00=0x007a, 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
0x180ab0…180c44 Dummy {f00=0x007a, 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
0x180c44…180dd8 Dummy {f00=0x007a, 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
0x180dd8…180f6c Dummy {f00=0x007a, 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
0x180f6c…181100 Dummy {f00=0x007a, 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
0x181100…181294 (1, 252) Dummy {f00=0x007a, 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
0x181294…181428 Dummy {f00=0x007a, 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
0x181428…1815bc Dummy {f00=0x007a, 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
0x1815bc…181750 Dummy {f00=0x007a, 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
0x181750…1818e4 Dummy {f00=0x007a, 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
0x1818e4…181a78 Dummy {f00=0x007a, 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
0x181a78…181c0c Dummy {f00=0x007a, 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
0x181c0c…181da0 Dummy {f00=0x007a, 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
0x181da0…181f34 (1, 253) Dummy {f00=0x007a, 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
0x181f34…1820c8 Dummy {f00=0x007a, 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
0x1820c8…18225c Dummy {f00=0x007a, 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 .
0x18225c…1823f0 Dummy {f00=0x007a, 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 !
0x1823f0…182584 Dummy {f00=0x007a, 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=
0x182584…182718 Dummy {f00=0x007a, 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 * #
0x182718…1828ac Dummy {f00=0x007a, 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,
0x1828ac…182a40 Dummy {f00=0x007a, 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 %
0x182a40…182bd4 (1, 254) Dummy {f00=0x007a, 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
0x182bd4…182d68 Dummy {f00=0x007a, 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
0x182d68…182efc Dummy {f00=0x007a, 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
0x182efc…183090 Dummy {f00=0x007a, 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
0x183090…183224 Dummy {f00=0x007a, 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
0x183224…1833b8 Dummy {f00=0x007a, 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
0x1833b8…18354c Dummy {f00=0x007a, 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
0x18354c…1836e0 Dummy {f00=0x007a, 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 -
0x1836e0…183874 (1, 255) Dummy {f00=0x007b, 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 .
0x183874…183a08 Dummy {f00=0x007b, 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
0x183a08…183b9c Dummy {f00=0x007b, 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
0x183b9c…183d30 Dummy {f00=0x007b, 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
0x183d30…183ec4 Dummy {f00=0x007b, 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 ?
0x183ec4…184058 Dummy {f00=0x007b, 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
0x184058…1841ec Dummy {f00=0x007b, 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
0x1841ec…184380 Dummy {f00=0x007b, 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
0x184380…184514 (1, 256) Dummy {f00=0x007b, 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
0x184514…1846a8 Dummy {f00=0x007b, 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
0x1846a8…18483c Dummy {f00=0x007b, 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
0x18483c…1849d0 Dummy {f00=0x007b, 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
0x1849d0…184b64 Dummy {f00=0x007b, 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* :
0x184b64…184cf8 Dummy {f00=0x007b, 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
0x184cf8…184e8c Dummy {f00=0x007b, 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
0x184e8c…185020 Dummy {f00=0x007b, 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* =
0x185020…1851b4 (1, 257) Dummy {f00=0x007b, 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 >
0x1851b4…185348 Dummy {f00=0x007b, 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
0x185348…1854dc Dummy {f00=0x007b, 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
0x1854dc…185670 Dummy {f00=0x007b, 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
0x185670…185804 Dummy {f00=0x007b, 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
0x185804…185998 Dummy {f00=0x007b, 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
0x185998…185b2c Dummy {f00=0x007b, 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
0x185b2c…185cc0 Dummy {f00=0x007b, 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
0x185cc0…185e54 (1, 258) Dummy {f00=0x007b, 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
0x185e54…185fe8 Dummy {f00=0x007b, 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
0x185fe8…18617c Dummy {f00=0x007b, 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
0x18617c…186310 Dummy {f00=0x007b, 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
0x186310…1864a4 Dummy {f00=0x007b, 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
0x1864a4…186638 Dummy {f00=0x007b, 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******
0x186638…1867cc Dummy {f00=0x007b, 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
0x1867cc…186960 Dummy {f00=0x007b, 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
0x186960…186af4 (1, 259) Opaque[0x194]
0x186af4…186c88 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f80, f03=0x0000}
0x186af4…186c88 IdxSect {
0x186af4…186c88 f00 = 0x007c // 0x186af4 @0x0
0x186af4…186c88 f01 = 0x0026 // 0x186af6 @0x2
0x186af4…186c88 gno = [ // 0x186af8 @0x4
0x186af4…186c88 [0x00]: C0x007c.0x0.0
0x186af4…186c88 [0x01]: C0x007c.0x1.0
0x186af4…186c88 [0x02]: C0x007c.0x2.0
0x186af4…186c88 [0x03]: C0x007c.0x3.0
0x186af4…186c88 [0x04]: C0x007d.0x0.0
0x186af4…186c88 [0x05]: C0x007d.0x1.0
0x186af4…186c88 [0x06]: C0x007d.0x2.0
0x186af4…186c88 [0x07]: C0x007d.0x3.0
0x186af4…186c88 [0x08]: C0x007e.0x0.0
0x186af4…186c88 [0x09]: C0x007e.0x1.0
0x186af4…186c88 [0x0a]: C0x007e.0x2.0
0x186af4…186c88 [0x0b]: C0x007e.0x3.0
0x186af4…186c88 [0x0c]: C0x007f.0x0.0
0x186af4…186c88 [0x0d]: C0x007f.0x1.0
0x186af4…186c88 [0x0e]: C0x007f.0x2.0
0x186af4…186c88 [0x0f]: C0x007f.0x3.0
0x186af4…186c88 [0x10]: C0x0080.0x0.0
0x186af4…186c88 [0x11]: C0x0080.0x1.0
0x186af4…186c88 [0x12]: C0x0080.0x2.0
0x186af4…186c88 ]
0x186af4…186c88 }
0x186c88…186e1c Dummy {f00=0x007c, 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
0x186e1c…186fb0 Dummy {f00=0x007c, 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*
0x186fb0…187144 Dummy {f00=0x007c, 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
0x187144…1872d8 Dummy {f00=0x007c, 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
0x1872d8…18746c Dummy {f00=0x007c, 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
0x18746c…187600 Dummy {f00=0x007c, 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
0x187600…187794 (1, 260) Dummy {f00=0x007c, 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
0x187794…187928 Dummy {f00=0x007c, 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:
0x187928…187abc Dummy {f00=0x007c, 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 .
0x187abc…187c50 Dummy {f00=0x007c, 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*
0x187c50…187de4 Dummy {f00=0x007c, 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
0x187de4…187f78 Dummy {f00=0x007c, 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
0x187f78…18810c Dummy {f00=0x007c, 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*
0x18810c…1882a0 Dummy {f00=0x007c, 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
0x1882a0…188434 (1, 261) Dummy {f00=0x007c, 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
0x188434…1885c8 Dummy {f00=0x007c, 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****
0x1885c8…18875c Dummy {f00=0x007c, 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
0x18875c…1888f0 Dummy {f00=0x007c, 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
0x1888f0…188a84 Dummy {f00=0x007c, 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
0x188a84…188c18 Dummy {f00=0x007c, 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
0x188c18…188dac Dummy {f00=0x007c, 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
0x188dac…188f40 Dummy {f00=0x007c, 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*
0x188f40…1890d4 (1, 262) Dummy {f00=0x007c, 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
0x1890d4…189268 Dummy {f00=0x007c, 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
0x189268…1893fc Dummy {f00=0x007c, 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
0x1893fc…189590 Dummy {f00=0x007c, 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
0x189590…189724 Dummy {f00=0x007c, 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
0x189724…1898b8 Dummy {f00=0x007c, 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* *
0x1898b8…189a4c Dummy {f00=0x007c, 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
0x189a4c…189be0 Dummy {f00=0x007c, 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
0x189be0…189d74 (1, 263) Dummy {f00=0x007d, 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*
0x189d74…189f08 Dummy {f00=0x007d, f01=0x0190, f02=» * ~ * P* * * P* GET PHYSICAL SECTOR NUMBER BY * J * P* DIVIDE BY 3 * x * P* * * P************************************* P*
0x189f08…18a09c Dummy {f00=0x007d, 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
0x18a09c…18a230 Dummy {f00=0x007d, 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* !
0x18a230…18a3c4 Dummy {f00=0x007d, f01=0x0190, f02=» * ! * P* SAVE PHYSICAL SECTOR NUMBER * " $ * P* AND SECTOR POSITION * " R * P* BRANCH ACCORDING TO SECTOR * " * P* POSITION * " * P* * " *
0x18a3c4…18a558 Dummy {f00=0x007d, 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
0x18a558…18a6ec Dummy {f00=0x007d, f01=0x0190, f02=» , XXXX, # * $ EJECT DRDU01 $ * $ 6 * P************************************* $ @ * P* * $ n * P* READ/WRITE FROM SECTOR IN * $ * P* POSITION , , xxxx, * $ * P*
0x18a6ec…18a880 Dummy {f00=0x007d, 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************************************* %
0x18a880…18aa14 (1, 264) Dummy {f00=0x007d, 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
0x18aa14…18aba8 Dummy {f00=0x007d, 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*
0x18aba8…18ad3c Dummy {f00=0x007d, 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 (
0x18ad3c…18aed0 Dummy {f00=0x007d, 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 )
0x18aed0…18b064 Dummy {f00=0x007d, 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
0x18b064…18b1f8 Dummy {f00=0x007d, 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
0x18b1f8…18b38c Dummy {f00=0x007d, 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
0x18b38c…18b520 Dummy {f00=0x007d, 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
0x18b520…18b6b4 (1, 265) Dummy {f00=0x007d, 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*
0x18b6b4…18b848 Dummy {f00=0x007d, 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
0x18b848…18b9dc Dummy {f00=0x007d, 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
0x18b9dc…18bb70 Dummy {f00=0x007d, 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
0x18bb70…18bd04 Dummy {f00=0x007d, 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
0x18bd04…18be98 Dummy {f00=0x007d, 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 *
0x18be98…18c02c Dummy {f00=0x007d, 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
0x18c02c…18c1c0 Dummy {f00=0x007d, 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
0x18c1c0…18c354 (1, 266) Dummy {f00=0x007d, 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
0x18c354…18c4e8 Dummy {f00=0x007d, 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
0x18c4e8…18c67c Dummy {f00=0x007d, 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
0x18c67c…18c810 Dummy {f00=0x007d, 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
0x18c810…18c9a4 Dummy {f00=0x007d, 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:
0x18c9a4…18cb38 Dummy {f00=0x007d, 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
0x18cb38…18cccc Dummy {f00=0x007d, 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
0x18cccc…18ce60 Dummy {f00=0x007d, 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
0x18ce60…18cff4 (1, 267) Dummy {f00=0x007e, 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
0x18cff4…18d188 Dummy {f00=0x007e, 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*
0x18d188…18d31c Dummy {f00=0x007e, 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
0x18d31c…18d4b0 Dummy {f00=0x007e, 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
0x18d4b0…18d644 Dummy {f00=0x007e, 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
0x18d644…18d7d8 Dummy {f00=0x007e, 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
0x18d7d8…18d96c Dummy {f00=0x007e, 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
0x18d96c…18db00 Dummy {f00=0x007e, 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
0x18db00…18dc94 (1, 268) Dummy {f00=0x007e, 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
0x18dc94…18de28 Dummy {f00=0x007e, 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
0x18de28…18dfbc Dummy {f00=0x007e, 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
0x18dfbc…18e150 Dummy {f00=0x007e, 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
0x18e150…18e2e4 Dummy {f00=0x007e, 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
0x18e2e4…18e478 Dummy {f00=0x007e, 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
0x18e478…18e60c Dummy {f00=0x007e, 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
0x18e60c…18e7a0 Dummy {f00=0x007e, 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
0x18e7a0…18e934 (1, 269) Dummy {f00=0x007e, 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
0x18e934…18eac8 Dummy {f00=0x007e, 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)
0x18eac8…18ec5c Dummy {f00=0x007e, 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
0x18ec5c…18edf0 Dummy {f00=0x007e, 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************
0x18edf0…18ef84 Dummy {f00=0x007e, 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
0x18ef84…18f118 Dummy {f00=0x007e, 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
0x18f118…18f2ac Dummy {f00=0x007e, 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
0x18f2ac…18f440 Dummy {f00=0x007e, 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
0x18f440…18f5d4 (1, 270) Dummy {f00=0x007e, 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
0x18f5d4…18f768 Dummy {f00=0x007e, 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
0x18f768…18f8fc Dummy {f00=0x007e, 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
0x18f8fc…18fa90 Dummy {f00=0x007e, 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
0x18fa90…18fc24 Dummy {f00=0x007e, 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****************
0x18fc24…18fdb8 Dummy {f00=0x007e, 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
0x18fdb8…18ff4c Dummy {f00=0x007e, 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
0x18ff4c…1900e0 Dummy {f00=0x007e, 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
0x1900e0…190274 (1, 271) Dummy {f00=0x007f, 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
0x190274…190408 Dummy {f00=0x007f, 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
0x190408…19059c Dummy {f00=0x007f, 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
0x19059c…190730 Dummy {f00=0x007f, 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
0x190730…1908c4 Dummy {f00=0x007f, 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
0x1908c4…190a58 Dummy {f00=0x007f, 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
0x190a58…190bec Dummy {f00=0x007f, 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
0x190bec…190d80 Dummy {f00=0x007f, 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
0x190d80…190f14 (1, 272) Dummy {f00=0x007f, 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
0x190f14…1910a8 Dummy {f00=0x007f, 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
0x1910a8…19123c Dummy {f00=0x007f, f01=0x0190, f02=»************************** g . P* * h " . P* MMULOG : GET LOGICAL ADDRESS AND * h T . P* PAGE * h . P* * h . P******************************
0x19123c…1913d0 Dummy {f00=0x007f, 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
0x1913d0…191564 Dummy {f00=0x007f, 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
0x191564…1916f8 Dummy {f00=0x007f, 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*
0x1916f8…19188c Dummy {f00=0x007f, 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
0x19188c…191a20 Dummy {f00=0x007f, 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
0x191a20…191bb4 (1, 273) Dummy {f00=0x007f, 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
0x191bb4…191d48 Dummy {f00=0x007f, 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
0x191d48…191edc Dummy {f00=0x007f, 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
0x191edc…192070 Dummy {f00=0x007f, 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
0x192070…192204 Dummy {f00=0x007f, 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
0x192204…192398 Dummy {f00=0x007f, 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
0x192398…19252c Dummy {f00=0x007f, 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
0x19252c…1926c0 Dummy {f00=0x007f, 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
0x1926c0…192854 (1, 274) Dummy {f00=0x007f, 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
0x192854…1929e8 Dummy {f00=0x007f, 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
0x1929e8…192b7c Dummy {f00=0x007f, 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
0x192b7c…192d10 Dummy {f00=0x007f, 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
0x192d10…192ea4 Dummy {f00=0x007f, 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
0x192ea4…193038 Dummy {f00=0x007f, 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* {
0x193038…1931cc Dummy {f00=0x007f, 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*
0x1931cc…193360 Dummy {f00=0x007f, 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
0x193360…1934f4 (1, 275) Dummy {f00=0x0080, 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 ~
0x1934f4…193688 Dummy {f00=0x0080, 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
0x193688…19381c Dummy {f00=0x0080, 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
0x19381c…1939b0 Dummy {f00=0x0080, 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
0x1939b0…193b44 Dummy {f00=0x0080, 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
0x193b44…193cd8 Dummy {f00=0x0080, 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 ?
0x193cd8…193e6c Dummy {f00=0x0080, 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
0x193e6c…194000 Dummy {f00=0x0080, 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
0x194000…194194 (1, 276) Dummy {f00=0x0080, 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
0x194194…194328 Dummy {f00=0x0080, 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
0x194328…1944bc Dummy {f00=0x0080, 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*
0x1944bc…194650 Dummy {f00=0x0080, 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
0x194650…1947e4 Dummy {f00=0x0080, 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
0x1947e4…194978 Dummy {f00=0x0080, 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
0x194978…194b0c Dummy {f00=0x0080, 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*
0x194b0c…194ca0 Dummy {f00=0x0080, 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
0x194ca0…194e34 (1, 277) Dummy {f00=0x0080, 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
0x194e34…194fc8 Dummy {f00=0x0080, 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
0x194fc8…19515c Dummy {f00=0x0080, 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 . @
0x19515c…1952f0 Dummy {f00=0x0080, f01=0x0000, f02=»
[…0x4…]
0x195940…195ad4 (1, 278) Opaque[0x194]
0x195ad4…195c68 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1018, f03=0x0000}
0x195ad4…195c68 IdxSect {
0x195ad4…195c68 f00 = 0x0080 // 0x195ad4 @0x0
0x195ad4…195c68 f01 = 0x0022 // 0x195ad6 @0x2
0x195ad4…195c68 gno = [ // 0x195ad8 @0x4
0x195ad4…195c68 [0x00]: C0x0080.0x3.0
0x195ad4…195c68 [0x01]: C0x0081.0x0.0
0x195ad4…195c68 [0x02]: C0x0081.0x1.0
0x195ad4…195c68 [0x03]: C0x0081.0x2.0
0x195ad4…195c68 [0x04]: C0x0081.0x3.0
0x195ad4…195c68 [0x05]: C0x0082.0x0.0
0x195ad4…195c68 [0x06]: C0x0082.0x1.0
0x195ad4…195c68 [0x07]: C0x0082.0x2.0
0x195ad4…195c68 [0x08]: C0x0082.0x3.0
0x195ad4…195c68 [0x09]: C0x0083.0x0.0
0x195ad4…195c68 [0x0a]: C0x0083.0x1.0
0x195ad4…195c68 [0x0b]: C0x0083.0x2.0
0x195ad4…195c68 [0x0c]: C0x0083.0x3.0
0x195ad4…195c68 [0x0d]: C0x0084.0x0.0
0x195ad4…195c68 [0x0e]: C0x0084.0x1.0
0x195ad4…195c68 [0x0f]: C0x0084.0x2.0
0x195ad4…195c68 [0x10]: C0x0084.0x3.0
0x195ad4…195c68 ]
0x195ad4…195c68 }
0x195c68…195dfc Dummy {f00=0x0080, 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*
0x195dfc…195f90 Dummy {f00=0x0080, 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
0x195f90…196124 Dummy {f00=0x0080, 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
0x196124…1962b8 Dummy {f00=0x0080, 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
0x1962b8…19644c Dummy {f00=0x0080, 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
0x19644c…1965e0 Dummy {f00=0x0080, 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
0x1965e0…196774 (1, 279) Dummy {f00=0x0081, 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
0x196774…196908 Dummy {f00=0x0081, 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**
0x196908…196a9c Dummy {f00=0x0081, 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
0x196a9c…196c30 Dummy {f00=0x0081, 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
0x196c30…196dc4 Dummy {f00=0x0081, 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
0x196dc4…196f58 Dummy {f00=0x0081, 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 (
0x196f58…1970ec Dummy {f00=0x0081, 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 *
0x1970ec…197280 Dummy {f00=0x0081, 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
0x197280…197414 (1, 280) Dummy {f00=0x0081, 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
0x197414…1975a8 Dummy {f00=0x0081, 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
0x1975a8…19773c Dummy {f00=0x0081, 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
0x19773c…1978d0 Dummy {f00=0x0081, 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
0x1978d0…197a64 Dummy {f00=0x0081, 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
0x197a64…197bf8 Dummy {f00=0x0081, 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
0x197bf8…197d8c Dummy {f00=0x0081, 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
0x197d8c…197f20 Dummy {f00=0x0081, 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
0x197f20…1980b4 (1, 281) Dummy {f00=0x0081, 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)
0x1980b4…198248 Dummy {f00=0x0081, 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
0x198248…1983dc Dummy {f00=0x0081, 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
0x1983dc…198570 Dummy {f00=0x0081, 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
0x198570…198704 Dummy {f00=0x0081, 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
0x198704…198898 Dummy {f00=0x0081, 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
0x198898…198a2c Dummy {f00=0x0081, 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
0x198a2c…198bc0 Dummy {f00=0x0081, 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
0x198bc0…198d54 (1, 282) Dummy {f00=0x0081, 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*
0x198d54…198ee8 Dummy {f00=0x0081, 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
0x198ee8…19907c Dummy {f00=0x0081, 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
0x19907c…199210 Dummy {f00=0x0081, 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
0x199210…1993a4 Dummy {f00=0x0081, 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
0x1993a4…199538 Dummy {f00=0x0081, 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
0x199538…1996cc Dummy {f00=0x0081, 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
0x1996cc…199860 Dummy {f00=0x0081, 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
0x199860…1999f4 (1, 283) Dummy {f00=0x0082, 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
0x1999f4…199b88 Dummy {f00=0x0082, 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
0x199b88…199d1c Dummy {f00=0x0082, 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
0x199d1c…199eb0 Dummy {f00=0x0082, 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* * )
0x199eb0…19a044 Dummy {f00=0x0082, 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
0x19a044…19a1d8 Dummy {f00=0x0082, 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
0x19a1d8…19a36c Dummy {f00=0x0082, 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 ,
0x19a36c…19a500 Dummy {f00=0x0082, 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
0x19a500…19a694 (1, 284) Dummy {f00=0x0082, 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 .
0x19a694…19a828 Dummy {f00=0x0082, 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 /
0x19a828…19a9bc Dummy {f00=0x0082, 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
0x19a9bc…19ab50 Dummy {f00=0x0082, 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
0x19ab50…19ace4 Dummy {f00=0x0082, 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
0x19ace4…19ae78 Dummy {f00=0x0082, 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
0x19ae78…19b00c Dummy {f00=0x0082, 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
0x19b00c…19b1a0 Dummy {f00=0x0082, 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
0x19b1a0…19b334 (1, 285) Dummy {f00=0x0082, 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
0x19b334…19b4c8 Dummy {f00=0x0082, 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
0x19b4c8…19b65c Dummy {f00=0x0082, 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,
0x19b65c…19b7f0 Dummy {f00=0x0082, 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
0x19b7f0…19b984 Dummy {f00=0x0082, 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 :
0x19b984…19bb18 Dummy {f00=0x0082, 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,
0x19bb18…19bcac Dummy {f00=0x0082, 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
0x19bcac…19be40 Dummy {f00=0x0082, 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
0x19be40…19bfd4 (1, 286) Dummy {f00=0x0082, 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
0x19bfd4…19c168 Dummy {f00=0x0082, 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
0x19c168…19c2fc Dummy {f00=0x0082, 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
0x19c2fc…19c490 Dummy {f00=0x0082, 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
0x19c490…19c624 Dummy {f00=0x0082, 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
0x19c624…19c7b8 Dummy {f00=0x0082, 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
0x19c7b8…19c94c Dummy {f00=0x0082, 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*
0x19c94c…19cae0 Dummy {f00=0x0082, 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
0x19cae0…19cc74 (1, 287) Dummy {f00=0x0083, 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
0x19cc74…19ce08 Dummy {f00=0x0083, 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
0x19ce08…19cf9c Dummy {f00=0x0083, 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*
0x19cf9c…19d130 Dummy {f00=0x0083, 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
0x19d130…19d2c4 Dummy {f00=0x0083, 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
0x19d2c4…19d458 Dummy {f00=0x0083, 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
0x19d458…19d5ec Dummy {f00=0x0083, 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
0x19d5ec…19d780 Dummy {f00=0x0083, 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
0x19d780…19d914 (1, 288) Dummy {f00=0x0083, 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*
0x19d914…19daa8 Dummy {f00=0x0083, 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
0x19daa8…19dc3c Dummy {f00=0x0083, 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
0x19dc3c…19ddd0 Dummy {f00=0x0083, 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
0x19ddd0…19df64 Dummy {f00=0x0083, 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
0x19df64…19e0f8 Dummy {f00=0x0083, 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
0x19e0f8…19e28c Dummy {f00=0x0083, 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*
0x19e28c…19e420 Dummy {f00=0x0083, 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
0x19e420…19e5b4 (1, 289) Dummy {f00=0x0083, 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
0x19e5b4…19e748 Dummy {f00=0x0083, 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)
0x19e748…19e8dc Dummy {f00=0x0083, 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
0x19e8dc…19ea70 Dummy {f00=0x0083, 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,/
0x19ea70…19ec04 Dummy {f00=0x0083, 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
0x19ec04…19ed98 Dummy {f00=0x0083, 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*
0x19ed98…19ef2c Dummy {f00=0x0083, 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
0x19ef2c…19f0c0 Dummy {f00=0x0083, 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
0x19f0c0…19f254 (1, 290) Dummy {f00=0x0083, 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
0x19f254…19f3e8 Dummy {f00=0x0083, 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
0x19f3e8…19f57c Dummy {f00=0x0083, 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
0x19f57c…19f710 Dummy {f00=0x0083, 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
0x19f710…19f8a4 Dummy {f00=0x0083, 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
0x19f8a4…19fa38 Dummy {f00=0x0083, 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
0x19fa38…19fbcc Dummy {f00=0x0083, 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
0x19fbcc…19fd60 Dummy {f00=0x0083, 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
0x19fd60…19fef4 (1, 291) Dummy {f00=0x0084, 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
0x19fef4…1a0088 Dummy {f00=0x0084, 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
0x1a0088…1a021c Dummy {f00=0x0084, 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,
0x1a021c…1a03b0 Dummy {f00=0x0084, 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
0x1a03b0…1a0544 Dummy {f00=0x0084, 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
0x1a0544…1a06d8 Dummy {f00=0x0084, 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 "
0x1a06d8…1a086c Dummy {f00=0x0084, 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
0x1a086c…1a0a00 Dummy {f00=0x0084, 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
0x1a0a00…1a0b94 (1, 292) Dummy {f00=0x0084, 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,
0x1a0b94…1a0d28 Dummy {f00=0x0084, 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
0x1a0d28…1a0ebc Dummy {f00=0x0084, 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
0x1a0ebc…1a1050 Dummy {f00=0x0084, 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:
0x1a1050…1a11e4 Dummy {f00=0x0084, 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
0x1a11e4…1a1378 Dummy {f00=0x0084, 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
0x1a1378…1a150c Dummy {f00=0x0084, 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
0x1a150c…1a16a0 Dummy {f00=0x0084, 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*
0x1a16a0…1a1834 (1, 293) Dummy {f00=0x0084, 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
0x1a1834…1a19c8 Dummy {f00=0x0084, 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
0x1a19c8…1a1b5c Dummy {f00=0x0084, 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
0x1a1b5c…1a1cf0 Dummy {f00=0x0084, 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
0x1a1cf0…1a1e84 Dummy {f00=0x0084, 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 *
0x1a1e84…1a2018 Dummy {f00=0x0084, 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 {
0x1a2018…1a21ac Dummy {f00=0x0084, 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
0x1a21ac…1a2340 Dummy {f00=0x0084, 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 }
0x1a2340…1a24d4 (1, 294) Dummy {f00=0x0084, 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
0x1a24d4…1a2668 Dummy {f00=0x0084, 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 *
0x1a2668…1a27fc Dummy {f00=0x0084, 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,
0x1a27fc…1a2990 Dummy {f00=0x0084, f01=0x2008, f02=» END @
0x1a2990…1a2b24 Dummy {f00=0x0084, 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
0x1a2b24…1a2cb8 Dummy {f00=0x0084, 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
0x1a2cb8…1a2e4c Dummy {f00=0x0084, 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
0x1a2e4c…1a2fe0 Dummy {f00=0x0084, 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
0x1a2fe0…1a3174 (1, 295) Opaque[0x194]
0x1a3174…1a3308 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x1a3174…1a3308 IdxSect {
0x1a3174…1a3308 f00 = 0x0085 // 0x1a3174 @0x0
0x1a3174…1a3308 f01 = 0x002e // 0x1a3176 @0x2
0x1a3174…1a3308 gno = [ // 0x1a3178 @0x4
0x1a3174…1a3308 [0x00]: C0x0085.0x0.0
0x1a3174…1a3308 [0x01]: C0x0085.0x1.0
0x1a3174…1a3308 [0x02]: C0x0085.0x2.0
0x1a3174…1a3308 [0x03]: C0x0085.0x3.0
0x1a3174…1a3308 [0x04]: C0x0086.0x0.0
0x1a3174…1a3308 [0x05]: C0x0086.0x1.0
0x1a3174…1a3308 [0x06]: C0x0086.0x2.0
0x1a3174…1a3308 [0x07]: C0x0086.0x3.0
0x1a3174…1a3308 [0x08]: C0x0087.0x0.0
0x1a3174…1a3308 [0x09]: C0x0087.0x1.0
0x1a3174…1a3308 [0x0a]: C0x0087.0x2.0
0x1a3174…1a3308 [0x0b]: C0x0087.0x3.0
0x1a3174…1a3308 [0x0c]: C0x0088.0x0.0
0x1a3174…1a3308 [0x0d]: C0x0088.0x1.0
0x1a3174…1a3308 [0x0e]: C0x0088.0x2.0
0x1a3174…1a3308 [0x0f]: C0x0088.0x3.0
0x1a3174…1a3308 [0x10]: C0x0089.0x0.0
0x1a3174…1a3308 [0x11]: C0x0089.0x1.0
0x1a3174…1a3308 [0x12]: C0x0089.0x2.0
0x1a3174…1a3308 [0x13]: C0x0089.0x3.0
0x1a3174…1a3308 [0x14]: C0x008a.0x0.0
0x1a3174…1a3308 [0x15]: C0x008a.0x1.0
0x1a3174…1a3308 [0x16]: C0x008a.0x2.0
0x1a3174…1a3308 ]
0x1a3174…1a3308 }
0x1a3308…1a349c Dummy {f00=0x0085, 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
0x1a349c…1a3630 Dummy {f00=0x0085, 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
0x1a3630…1a37c4 Dummy {f00=0x0085, 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
0x1a37c4…1a3958 Dummy {f00=0x0085, 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
0x1a3958…1a3aec Dummy {f00=0x0085, 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
0x1a3aec…1a3c80 Dummy {f00=0x0085, 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
0x1a3c80…1a3e14 (1, 296) Dummy {f00=0x0085, 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
0x1a3e14…1a3fa8 Dummy {f00=0x0085, 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
0x1a3fa8…1a413c Dummy {f00=0x0085, 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 =
0x1a413c…1a42d0 Dummy {f00=0x0085, 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
0x1a42d0…1a4464 Dummy {f00=0x0085, 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
0x1a4464…1a45f8 Dummy {f00=0x0085, 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
0x1a45f8…1a478c Dummy {f00=0x0085, 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
0x1a478c…1a4920 Dummy {f00=0x0085, 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
0x1a4920…1a4ab4 (1, 297) Dummy {f00=0x0085, 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+
0x1a4ab4…1a4c48 Dummy {f00=0x0085, 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
0x1a4c48…1a4ddc Dummy {f00=0x0085, 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
0x1a4ddc…1a4f70 Dummy {f00=0x0085, 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
0x1a4f70…1a5104 Dummy {f00=0x0085, 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
0x1a5104…1a5298 Dummy {f00=0x0085, 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
0x1a5298…1a542c Dummy {f00=0x0085, 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
0x1a542c…1a55c0 Dummy {f00=0x0085, 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
0x1a55c0…1a5754 (1, 298) Dummy {f00=0x0085, 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**********
0x1a5754…1a58e8 Dummy {f00=0x0085, 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*
0x1a58e8…1a5a7c Dummy {f00=0x0085, 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
0x1a5a7c…1a5c10 Dummy {f00=0x0085, 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
0x1a5c10…1a5da4 Dummy {f00=0x0085, 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
0x1a5da4…1a5f38 Dummy {f00=0x0085, 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
0x1a5f38…1a60cc Dummy {f00=0x0085, 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
0x1a60cc…1a6260 Dummy {f00=0x0085, 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
0x1a6260…1a63f4 (1, 299) Dummy {f00=0x0086, 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
0x1a63f4…1a6588 Dummy {f00=0x0086, 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
0x1a6588…1a671c Dummy {f00=0x0086, 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
0x1a671c…1a68b0 Dummy {f00=0x0086, 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
0x1a68b0…1a6a44 Dummy {f00=0x0086, 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
0x1a6a44…1a6bd8 Dummy {f00=0x0086, 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
0x1a6bd8…1a6d6c Dummy {f00=0x0086, 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
0x1a6d6c…1a6f00 Dummy {f00=0x0086, 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
0x1a6f00…1a7094 (1, 300) Dummy {f00=0x0086, 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
0x1a7094…1a7228 Dummy {f00=0x0086, 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 '
0x1a7228…1a73bc Dummy {f00=0x0086, 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
0x1a73bc…1a7550 Dummy {f00=0x0086, 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
0x1a7550…1a76e4 Dummy {f00=0x0086, 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
0x1a76e4…1a7878 Dummy {f00=0x0086, 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
0x1a7878…1a7a0c Dummy {f00=0x0086, 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
0x1a7a0c…1a7ba0 Dummy {f00=0x0086, 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
0x1a7ba0…1a7d34 (1, 301) Dummy {f00=0x0086, 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**
0x1a7d34…1a7ec8 Dummy {f00=0x0086, 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
0x1a7ec8…1a805c Dummy {f00=0x0086, 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
0x1a805c…1a81f0 Dummy {f00=0x0086, 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
0x1a81f0…1a8384 Dummy {f00=0x0086, 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*
0x1a8384…1a8518 Dummy {f00=0x0086, 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 /
0x1a8518…1a86ac Dummy {f00=0x0086, 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
0x1a86ac…1a8840 Dummy {f00=0x0086, 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
0x1a8840…1a89d4 (1, 302) Dummy {f00=0x0086, 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
0x1a89d4…1a8b68 Dummy {f00=0x0086, 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
0x1a8b68…1a8cfc Dummy {f00=0x0086, 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=
0x1a8cfc…1a8e90 Dummy {f00=0x0086, 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
0x1a8e90…1a9024 Dummy {f00=0x0086, 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
0x1a9024…1a91b8 Dummy {f00=0x0086, 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
0x1a91b8…1a934c Dummy {f00=0x0086, 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
0x1a934c…1a94e0 Dummy {f00=0x0086, 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 = $
0x1a94e0…1a9674 (1, 303) Dummy {f00=0x0087, 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
0x1a9674…1a9808 Dummy {f00=0x0087, 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 ?
0x1a9808…1a999c Dummy {f00=0x0087, 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
0x1a999c…1a9b30 Dummy {f00=0x0087, 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
0x1a9b30…1a9cc4 Dummy {f00=0x0087, 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
0x1a9cc4…1a9e58 Dummy {f00=0x0087, 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
0x1a9e58…1a9fec Dummy {f00=0x0087, 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
0x1a9fec…1aa180 Dummy {f00=0x0087, 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
0x1aa180…1aa314 (1, 304) Dummy {f00=0x0087, 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 "
0x1aa314…1aa4a8 Dummy {f00=0x0087, 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)
0x1aa4a8…1aa63c Dummy {f00=0x0087, 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)
0x1aa63c…1aa7d0 Dummy {f00=0x0087, 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,-
0x1aa7d0…1aa964 Dummy {f00=0x0087, 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
0x1aa964…1aaaf8 Dummy {f00=0x0087, 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
0x1aaaf8…1aac8c Dummy {f00=0x0087, 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
0x1aac8c…1aae20 Dummy {f00=0x0087, 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
0x1aae20…1aafb4 (1, 305) Dummy {f00=0x0087, 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
0x1aafb4…1ab148 Dummy {f00=0x0087, 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
0x1ab148…1ab2dc Dummy {f00=0x0087, 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
0x1ab2dc…1ab470 Dummy {f00=0x0087, 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
0x1ab470…1ab604 Dummy {f00=0x0087, 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
0x1ab604…1ab798 Dummy {f00=0x0087, 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
0x1ab798…1ab92c Dummy {f00=0x0087, 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
0x1ab92c…1abac0 Dummy {f00=0x0087, 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
0x1abac0…1abc54 (1, 306) Dummy {f00=0x0087, 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
0x1abc54…1abde8 Dummy {f00=0x0087, 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
0x1abde8…1abf7c Dummy {f00=0x0087, 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
0x1abf7c…1ac110 Dummy {f00=0x0087, 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
0x1ac110…1ac2a4 Dummy {f00=0x0087, 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
0x1ac2a4…1ac438 Dummy {f00=0x0087, 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 [ *
0x1ac438…1ac5cc Dummy {f00=0x0087, 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
0x1ac5cc…1ac760 Dummy {f00=0x0087, 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
0x1ac760…1ac8f4 (1, 307) Dummy {f00=0x0088, 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
0x1ac8f4…1aca88 Dummy {f00=0x0088, 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 _
0x1aca88…1acc1c Dummy {f00=0x0088, 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)
0x1acc1c…1acdb0 Dummy {f00=0x0088, 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(
0x1acdb0…1acf44 Dummy {f00=0x0088, 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
0x1acf44…1ad0d8 Dummy {f00=0x0088, 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
0x1ad0d8…1ad26c Dummy {f00=0x0088, 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
0x1ad26c…1ad400 Dummy {f00=0x0088, 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
0x1ad400…1ad594 (1, 308) Dummy {f00=0x0088, 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
0x1ad594…1ad728 Dummy {f00=0x0088, 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
0x1ad728…1ad8bc Dummy {f00=0x0088, 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
0x1ad8bc…1ada50 Dummy {f00=0x0088, 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
0x1ada50…1adbe4 Dummy {f00=0x0088, 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
0x1adbe4…1add78 Dummy {f00=0x0088, 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
0x1add78…1adf0c Dummy {f00=0x0088, 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
0x1adf0c…1ae0a0 Dummy {f00=0x0088, 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
0x1ae0a0…1ae234 (1, 309) Dummy {f00=0x0088, 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
0x1ae234…1ae3c8 Dummy {f00=0x0088, 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
0x1ae3c8…1ae55c Dummy {f00=0x0088, 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
0x1ae55c…1ae6f0 Dummy {f00=0x0088, 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
0x1ae6f0…1ae884 Dummy {f00=0x0088, 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
0x1ae884…1aea18 Dummy {f00=0x0088, 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
0x1aea18…1aebac Dummy {f00=0x0088, 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
0x1aebac…1aed40 Dummy {f00=0x0088, 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
0x1aed40…1aeed4 (1, 310) Dummy {f00=0x0088, 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
0x1aeed4…1af068 Dummy {f00=0x0088, 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
0x1af068…1af1fc Dummy {f00=0x0088, 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
0x1af1fc…1af390 Dummy {f00=0x0088, 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
0x1af390…1af524 Dummy {f00=0x0088, 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
0x1af524…1af6b8 Dummy {f00=0x0088, 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
0x1af6b8…1af84c Dummy {f00=0x0088, 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
0x1af84c…1af9e0 Dummy {f00=0x0088, 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
0x1af9e0…1afb74 (1, 311) Dummy {f00=0x0089, 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
0x1afb74…1afd08 Dummy {f00=0x0089, 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,
0x1afd08…1afe9c Dummy {f00=0x0089, 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
0x1afe9c…1b0030 Dummy {f00=0x0089, 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
0x1b0030…1b01c4 Dummy {f00=0x0089, 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
0x1b01c4…1b0358 Dummy {f00=0x0089, 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
0x1b0358…1b04ec Dummy {f00=0x0089, 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*
0x1b04ec…1b0680 Dummy {f00=0x0089, 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
0x1b0680…1b0814 (1, 312) Dummy {f00=0x0089, 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
0x1b0814…1b09a8 Dummy {f00=0x0089, 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
0x1b09a8…1b0b3c Dummy {f00=0x0089, 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
0x1b0b3c…1b0cd0 Dummy {f00=0x0089, 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
0x1b0cd0…1b0e64 Dummy {f00=0x0089, 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
0x1b0e64…1b0ff8 Dummy {f00=0x0089, 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
0x1b0ff8…1b118c Dummy {f00=0x0089, 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
0x1b118c…1b1320 Dummy {f00=0x0089, 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
0x1b1320…1b14b4 (1, 313) Dummy {f00=0x0089, 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
0x1b14b4…1b1648 Dummy {f00=0x0089, 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
0x1b1648…1b17dc Dummy {f00=0x0089, 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
0x1b17dc…1b1970 Dummy {f00=0x0089, 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
0x1b1970…1b1b04 Dummy {f00=0x0089, 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
0x1b1b04…1b1c98 Dummy {f00=0x0089, 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
0x1b1c98…1b1e2c Dummy {f00=0x0089, 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 *
0x1b1e2c…1b1fc0 Dummy {f00=0x0089, 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
0x1b1fc0…1b2154 (1, 314) Dummy {f00=0x0089, 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
0x1b2154…1b22e8 Dummy {f00=0x0089, 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
0x1b22e8…1b247c Dummy {f00=0x0089, 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
0x1b247c…1b2610 Dummy {f00=0x0089, 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
0x1b2610…1b27a4 Dummy {f00=0x0089, 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
0x1b27a4…1b2938 Dummy {f00=0x0089, 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
0x1b2938…1b2acc Dummy {f00=0x0089, 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
0x1b2acc…1b2c60 Dummy {f00=0x0089, 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
0x1b2c60…1b2df4 (1, 315) Dummy {f00=0x008a, 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
0x1b2df4…1b2f88 Dummy {f00=0x008a, 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
0x1b2f88…1b311c Dummy {f00=0x008a, 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
0x1b311c…1b32b0 Dummy {f00=0x008a, 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
0x1b32b0…1b3444 Dummy {f00=0x008a, 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
0x1b3444…1b35d8 Dummy {f00=0x008a, 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
0x1b35d8…1b376c Dummy {f00=0x008a, 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
0x1b376c…1b3900 Dummy {f00=0x008a, 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
0x1b3900…1b3a94 (1, 316) Dummy {f00=0x008a, 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
0x1b3a94…1b3c28 Dummy {f00=0x008a, 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
0x1b3c28…1b3dbc Dummy {f00=0x008a, 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
0x1b3dbc…1b3f50 Dummy {f00=0x008a, 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
0x1b3f50…1b40e4 Dummy {f00=0x008a, 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
0x1b40e4…1b4278 Dummy {f00=0x008a, 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
0x1b4278…1b440c Dummy {f00=0x008a, 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,
0x1b440c…1b45a0 Dummy {f00=0x008a, f01=0x2008, f02=» H P X ` h p x
0x1b45a0…1b4734 (1, 317) Dummy {f00=0x008a, 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
0x1b4734…1b48c8 Dummy {f00=0x008a, 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# :
0x1b48c8…1b4a5c Dummy {f00=0x008a, 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 %%_
0x1b4a5c…1b4bf0 Dummy {f00=0x008a, 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!
0x1b4bf0…1b4d84 Dummy {f00=0x008a, f01=0x0190, f02=» j ! H ? f G Y z L & $F 1 " " T 1( !05 ? 2 ? W #0- T %y0 %%_
0x1b4d84…1b4f18 Dummy {f00=0x008a, 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
0x1b4f18…1b50ac Dummy {f00=0x008a, 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_
0x1b50ac…1b5240 Dummy {f00=0x008a, 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
0x1b5240…1b53d4 (1, 318) Opaque[0x194]
0x1b53d4…1b5568 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1158, f03=0x0000}
0x1b53d4…1b5568 IdxSect {
0x1b53d4…1b5568 f00 = 0x008a // 0x1b53d4 @0x0
0x1b53d4…1b5568 f01 = 0x0004 // 0x1b53d6 @0x2
0x1b53d4…1b5568 gno = [ // 0x1b53d8 @0x4
0x1b53d4…1b5568 [0x00]: C0x008a.0x3.0
0x1b53d4…1b5568 [0x01]: C0x008b.0x0.0
0x1b53d4…1b5568 ]
0x1b53d4…1b5568 }
0x1b5568…1b56fc Dummy {f00=0x008a, 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*
0x1b56fc…1b5890 Dummy {f00=0x008a, 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
0x1b5890…1b5a24 Dummy {f00=0x008a, 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
0x1b5a24…1b5bb8 Dummy {f00=0x008a, 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
0x1b5bb8…1b5d4c Dummy {f00=0x008a, 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,
0x1b5d4c…1b5ee0 Dummy {f00=0x008a, 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
0x1b5ee0…1b6074 (1, 319) Dummy {f00=0x008b, 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
0x1b6074…1b6208 Dummy {f00=0x008b, 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
0x1b6208…1b639c Dummy {f00=0x008b, 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
0x1b639c…1b6530 Dummy {f00=0x008b, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x1b6530…1b66c4 Dummy {f00=0x008b, f01=0x0000, f02=»
[…0x3…]
0x1b6b80…1b6d14 (1, 320) Opaque[0x194]
0x1b6d14…1b6ea8 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1168, f03=0x0000}
0x1b6d14…1b6ea8 IdxSect {
0x1b6d14…1b6ea8 f00 = 0x008b // 0x1b6d14 @0x0
0x1b6d14…1b6ea8 f01 = 0x0006 // 0x1b6d16 @0x2
0x1b6d14…1b6ea8 gno = [ // 0x1b6d18 @0x4
0x1b6d14…1b6ea8 [0x00]: C0x008b.0x1.0
0x1b6d14…1b6ea8 [0x01]: C0x008b.0x2.0
0x1b6d14…1b6ea8 [0x02]: C0x008b.0x3.0
0x1b6d14…1b6ea8 ]
0x1b6d14…1b6ea8 }
0x1b6ea8…1b703c Dummy {f00=0x008b, 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*
0x1b703c…1b71d0 Dummy {f00=0x008b, 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
0x1b71d0…1b7364 Dummy {f00=0x008b, 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
0x1b7364…1b74f8 Dummy {f00=0x008b, 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**
0x1b74f8…1b768c Dummy {f00=0x008b, 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
0x1b768c…1b7820 Dummy {f00=0x008b, 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
0x1b7820…1b79b4 (1, 321) Dummy {f00=0x008b, 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
0x1b79b4…1b7b48 Dummy {f00=0x008b, 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
0x1b7b48…1b7cdc Dummy {f00=0x008b, 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
0x1b7cdc…1b7e70 Dummy {f00=0x008b, 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
0x1b7e70…1b8004 Dummy {f00=0x008b, 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*
0x1b8004…1b8198 Dummy {f00=0x008b, 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
0x1b8198…1b832c Dummy {f00=0x008b, 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
0x1b832c…1b84c0 Dummy {f00=0x008b, 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*
0x1b84c0…1b8654 (1, 322) Dummy {f00=0x008b, 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
0x1b8654…1b87e8 Dummy {f00=0x008b, f01=0x0000, f02=»
[…0x6…]
0x1b9160…1b92f4 (1, 323) Opaque[0x194]
0x1b92f4…1b9488 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x1b92f4…1b9488 IdxSect {
0x1b92f4…1b9488 f00 = 0x008c // 0x1b92f4 @0x0
0x1b92f4…1b9488 f01 = 0x0006 // 0x1b92f6 @0x2
0x1b92f4…1b9488 gno = [ // 0x1b92f8 @0x4
0x1b92f4…1b9488 [0x00]: C0x008c.0x0.0
0x1b92f4…1b9488 [0x01]: C0x008c.0x1.0
0x1b92f4…1b9488 [0x02]: C0x008c.0x2.0
0x1b92f4…1b9488 ]
0x1b92f4…1b9488 }
0x1b9488…1b961c Dummy {f00=0x008c, 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*
0x1b961c…1b97b0 Dummy {f00=0x008c, 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**
0x1b97b0…1b9944 Dummy {f00=0x008c, 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
0x1b9944…1b9ad8 Dummy {f00=0x008c, 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.
0x1b9ad8…1b9c6c Dummy {f00=0x008c, 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
0x1b9c6c…1b9e00 Dummy {f00=0x008c, 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
0x1b9e00…1b9f94 (1, 324) Dummy {f00=0x008c, 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*
0x1b9f94…1ba128 Dummy {f00=0x008c, 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
0x1ba128…1ba2bc Dummy {f00=0x008c, 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
0x1ba2bc…1ba450 Dummy {f00=0x008c, 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 &
0x1ba450…1ba5e4 Dummy {f00=0x008c, 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,
0x1ba5e4…1ba778 Dummy {f00=0x008c, 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
0x1ba778…1ba90c Dummy {f00=0x008c, 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 *
0x1ba90c…1baaa0 Dummy {f00=0x008c, 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 *
0x1baaa0…1bac34 (1, 325) Dummy {f00=0x008c, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x1bac34…1badc8 Dummy {f00=0x008c, 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
0x1badc8…1baf5c Dummy {f00=0x008c, 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
0x1baf5c…1bb0f0 Dummy {f00=0x008c, 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
0x1bb0f0…1bb284 Dummy {f00=0x008c, 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
0x1bb284…1bb418 Dummy {f00=0x008c, 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
0x1bb418…1bb5ac Dummy {f00=0x008c, 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
0x1bb5ac…1bb740 Dummy {f00=0x008c, 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
0x1bb740…1bb8d4 (1, 326) Opaque[0x194]
0x1bb8d4…1bba68 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x1bb8d4…1bba68 IdxSect {
0x1bb8d4…1bba68 f00 = 0x008c // 0x1bb8d4 @0x0
0x1bb8d4…1bba68 f01 = 0x0006 // 0x1bb8d6 @0x2
0x1bb8d4…1bba68 gno = [ // 0x1bb8d8 @0x4
0x1bb8d4…1bba68 [0x00]: C0x008c.0x3.0
0x1bb8d4…1bba68 [0x01]: C0x008d.0x0.0
0x1bb8d4…1bba68 [0x02]: C0x008d.0x1.0
0x1bb8d4…1bba68 ]
0x1bb8d4…1bba68 }
0x1bba68…1bbbfc Dummy {f00=0x008c, 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*
0x1bbbfc…1bbd90 Dummy {f00=0x008c, 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
0x1bbd90…1bbf24 Dummy {f00=0x008c, 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
0x1bbf24…1bc0b8 Dummy {f00=0x008c, 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
0x1bc0b8…1bc24c Dummy {f00=0x008c, 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.
0x1bc24c…1bc3e0 Dummy {f00=0x008c, 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******
0x1bc3e0…1bc574 (1, 327) Dummy {f00=0x008d, 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
0x1bc574…1bc708 Dummy {f00=0x008d, 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
0x1bc708…1bc89c Dummy {f00=0x008d, 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
0x1bc89c…1bca30 Dummy {f00=0x008d, 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
0x1bca30…1bcbc4 Dummy {f00=0x008d, 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
0x1bcbc4…1bcd58 Dummy {f00=0x008d, 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
0x1bcd58…1bceec Dummy {f00=0x008d, 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
0x1bceec…1bd080 Dummy {f00=0x008d, 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
0x1bd080…1bd214 (1, 328) Dummy {f00=0x008d, 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
0x1bd214…1bd3a8 Dummy {f00=0x008d, 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
0x1bd3a8…1bd53c Dummy {f00=0x008d, 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
0x1bd53c…1bd6d0 Dummy {f00=0x008d, 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
0x1bd6d0…1bd864 Dummy {f00=0x008d, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x1bd864…1bd9f8 Dummy {f00=0x008d, 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
0x1bd9f8…1bdb8c Dummy {f00=0x008d, 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
0x1bdb8c…1bdd20 Dummy {f00=0x008d, 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 $
0x1bdd20…1bdeb4 (1, 329) Opaque[0x194]
0x1bdeb4…1be048 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b0, f03=0x0000}
0x1bdeb4…1be048 IdxSect {
0x1bdeb4…1be048 f00 = 0x008d // 0x1bdeb4 @0x0
0x1bdeb4…1be048 f01 = 0x0004 // 0x1bdeb6 @0x2
0x1bdeb4…1be048 gno = [ // 0x1bdeb8 @0x4
0x1bdeb4…1be048 [0x00]: C0x008d.0x2.0
0x1bdeb4…1be048 [0x01]: C0x008d.0x3.0
0x1bdeb4…1be048 ]
0x1bdeb4…1be048 }
0x1be048…1be1dc Dummy {f00=0x008d, 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*
0x1be1dc…1be370 Dummy {f00=0x008d, 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*
0x1be370…1be504 Dummy {f00=0x008d, 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/
0x1be504…1be698 Dummy {f00=0x008d, 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
0x1be698…1be82c Dummy {f00=0x008d, 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
0x1be82c…1be9c0 Dummy {f00=0x008d, 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
0x1be9c0…1beb54 (1, 330) Dummy {f00=0x008d, 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
0x1beb54…1bece8 Dummy {f00=0x008d, 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
0x1bece8…1bee7c Dummy {f00=0x008d, 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
0x1bee7c…1bf010 Dummy {f00=0x008d, 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
0x1bf010…1bf1a4 Dummy {f00=0x008d, f01=0x2008, f02=»
0x1bf1a4…1bf338 Dummy {f00=0x008d, 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
0x1bf338…1bf4cc Dummy {f00=0x008d, 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
0x1bf4cc…1bf660 Dummy {f00=0x008d, 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
0x1bf660…1bf7f4 (1, 331) Opaque[0x194]
0x1bf7f4…1bf988 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x1bf7f4…1bf988 IdxSect {
0x1bf7f4…1bf988 f00 = 0x008e // 0x1bf7f4 @0x0
0x1bf7f4…1bf988 f01 = 0x0006 // 0x1bf7f6 @0x2
0x1bf7f4…1bf988 gno = [ // 0x1bf7f8 @0x4
0x1bf7f4…1bf988 [0x00]: C0x008e.0x0.0
0x1bf7f4…1bf988 [0x01]: C0x008e.0x1.0
0x1bf7f4…1bf988 [0x02]: C0x008e.0x2.0
0x1bf7f4…1bf988 ]
0x1bf7f4…1bf988 }
0x1bf988…1bfb1c Dummy {f00=0x008e, 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*
0x1bfb1c…1bfcb0 Dummy {f00=0x008e, 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
0x1bfcb0…1bfe44 Dummy {f00=0x008e, 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
0x1bfe44…1bffd8 Dummy {f00=0x008e, 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
0x1bffd8…1c016c Dummy {f00=0x008e, 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
0x1c016c…1c0300 Dummy {f00=0x008e, 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
0x1c0300…1c0494 (1, 332) Dummy {f00=0x008e, 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
0x1c0494…1c0628 Dummy {f00=0x008e, 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
0x1c0628…1c07bc Dummy {f00=0x008e, 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 *
0x1c07bc…1c0950 Dummy {f00=0x008e, 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
0x1c0950…1c0ae4 Dummy {f00=0x008e, 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
0x1c0ae4…1c0c78 Dummy {f00=0x008e, 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*
0x1c0c78…1c0e0c Dummy {f00=0x008e, 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*
0x1c0e0c…1c0fa0 Dummy {f00=0x008e, 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
0x1c0fa0…1c1134 (1, 333) Dummy {f00=0x008e, 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
0x1c1134…1c12c8 Dummy {f00=0x008e, 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
0x1c12c8…1c145c Dummy {f00=0x008e, 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
0x1c145c…1c15f0 Dummy {f00=0x008e, 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
0x1c15f0…1c1784 Dummy {f00=0x008e, f01=0x2008, f02=»
0x1c1784…1c1918 Dummy {f00=0x008e, 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
0x1c1918…1c1aac Dummy {f00=0x008e, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x1c1aac…1c1c40 Dummy {f00=0x008e, 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
0x1c1c40…1c1dd4 (1, 334) Opaque[0x194]
0x1c1dd4…1c1f68 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d8, f03=0x0000}
0x1c1dd4…1c1f68 IdxSect {
0x1c1dd4…1c1f68 f00 = 0x008e // 0x1c1dd4 @0x0
0x1c1dd4…1c1f68 f01 = 0x000a // 0x1c1dd6 @0x2
0x1c1dd4…1c1f68 gno = [ // 0x1c1dd8 @0x4
0x1c1dd4…1c1f68 [0x00]: C0x008e.0x3.0
0x1c1dd4…1c1f68 [0x01]: C0x008f.0x0.0
0x1c1dd4…1c1f68 [0x02]: C0x008f.0x1.0
0x1c1dd4…1c1f68 [0x03]: C0x008f.0x2.0
0x1c1dd4…1c1f68 [0x04]: C0x008f.0x3.0
0x1c1dd4…1c1f68 ]
0x1c1dd4…1c1f68 }
0x1c1f68…1c20fc Dummy {f00=0x008e, 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
0x1c20fc…1c2290 Dummy {f00=0x008e, 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
0x1c2290…1c2424 Dummy {f00=0x008e, 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 .
0x1c2424…1c25b8 Dummy {f00=0x008e, 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
0x1c25b8…1c274c Dummy {f00=0x008e, 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
0x1c274c…1c28e0 Dummy {f00=0x008e, 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
0x1c28e0…1c2a74 (1, 335) Dummy {f00=0x008f, 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
0x1c2a74…1c2c08 Dummy {f00=0x008f, 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
0x1c2c08…1c2d9c Dummy {f00=0x008f, 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:
0x1c2d9c…1c2f30 Dummy {f00=0x008f, 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
0x1c2f30…1c30c4 Dummy {f00=0x008f, 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
0x1c30c4…1c3258 Dummy {f00=0x008f, 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
0x1c3258…1c33ec Dummy {f00=0x008f, 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
0x1c33ec…1c3580 Dummy {f00=0x008f, 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
0x1c3580…1c3714 (1, 336) Dummy {f00=0x008f, 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
0x1c3714…1c38a8 Dummy {f00=0x008f, 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
0x1c38a8…1c3a3c Dummy {f00=0x008f, 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
0x1c3a3c…1c3bd0 Dummy {f00=0x008f, 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
0x1c3bd0…1c3d64 Dummy {f00=0x008f, 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 *
0x1c3d64…1c3ef8 Dummy {f00=0x008f, 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
0x1c3ef8…1c408c Dummy {f00=0x008f, 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
0x1c408c…1c4220 Dummy {f00=0x008f, 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
0x1c4220…1c43b4 (1, 337) Dummy {f00=0x008f, 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
0x1c43b4…1c4548 Dummy {f00=0x008f, 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
0x1c4548…1c46dc Dummy {f00=0x008f, 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 ****
0x1c46dc…1c4870 Dummy {f00=0x008f, 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
0x1c4870…1c4a04 Dummy {f00=0x008f, 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
0x1c4a04…1c4b98 Dummy {f00=0x008f, 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
0x1c4b98…1c4d2c Dummy {f00=0x008f, 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
0x1c4d2c…1c4ec0 Dummy {f00=0x008f, 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
0x1c4ec0…1c5054 (1, 338) Dummy {f00=0x008f, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x1c5054…1c51e8 Dummy {f00=0x008f, 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
0x1c51e8…1c537c Dummy {f00=0x008f, f01=0x0000, f02=»
[…0x5…]
0x1c5b60…1c5cf4 (1, 339) Opaque[0x194]
0x1c5cf4…1c5e88 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1200, f03=0x0000}
0x1c5cf4…1c5e88 IdxSect {
0x1c5cf4…1c5e88 f00 = 0x0090 // 0x1c5cf4 @0x0
0x1c5cf4…1c5e88 f01 = 0x001e // 0x1c5cf6 @0x2
0x1c5cf4…1c5e88 gno = [ // 0x1c5cf8 @0x4
0x1c5cf4…1c5e88 [0x00]: C0x0090.0x0.0
0x1c5cf4…1c5e88 [0x01]: C0x0090.0x1.0
0x1c5cf4…1c5e88 [0x02]: C0x0090.0x2.0
0x1c5cf4…1c5e88 [0x03]: C0x0090.0x3.0
0x1c5cf4…1c5e88 [0x04]: C0x0091.0x0.0
0x1c5cf4…1c5e88 [0x05]: C0x0091.0x1.0
0x1c5cf4…1c5e88 [0x06]: C0x0091.0x2.0
0x1c5cf4…1c5e88 [0x07]: C0x0091.0x3.0
0x1c5cf4…1c5e88 [0x08]: C0x0092.0x0.0
0x1c5cf4…1c5e88 [0x09]: C0x0092.0x1.0
0x1c5cf4…1c5e88 [0x0a]: C0x0092.0x2.0
0x1c5cf4…1c5e88 [0x0b]: C0x0092.0x3.0
0x1c5cf4…1c5e88 [0x0c]: C0x0093.0x0.0
0x1c5cf4…1c5e88 [0x0d]: C0x0093.0x1.0
0x1c5cf4…1c5e88 [0x0e]: C0x0093.0x2.0
0x1c5cf4…1c5e88 ]
0x1c5cf4…1c5e88 }
0x1c5e88…1c601c Dummy {f00=0x0090, 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
0x1c601c…1c61b0 Dummy {f00=0x0090, 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
0x1c61b0…1c6344 Dummy {f00=0x0090, 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 *
0x1c6344…1c64d8 Dummy {f00=0x0090, 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
0x1c64d8…1c666c Dummy {f00=0x0090, 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
0x1c666c…1c6800 Dummy {f00=0x0090, 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
0x1c6800…1c6994 (1, 340) Dummy {f00=0x0090, 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 * ************* *
0x1c6994…1c6b28 Dummy {f00=0x0090, 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
0x1c6b28…1c6cbc Dummy {f00=0x0090, 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
0x1c6cbc…1c6e50 Dummy {f00=0x0090, 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
0x1c6e50…1c6fe4 Dummy {f00=0x0090, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x1c6fe4…1c7178 Dummy {f00=0x0090, 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
0x1c7178…1c730c Dummy {f00=0x0090, 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
0x1c730c…1c74a0 Dummy {f00=0x0090, 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
0x1c74a0…1c7634 (1, 341) Dummy {f00=0x0090, 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
0x1c7634…1c77c8 Dummy {f00=0x0090, 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*********************
0x1c77c8…1c795c Dummy {f00=0x0090, 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
0x1c795c…1c7af0 Dummy {f00=0x0090, 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
0x1c7af0…1c7c84 Dummy {f00=0x0090, 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/
0x1c7c84…1c7e18 Dummy {f00=0x0090, 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
0x1c7e18…1c7fac Dummy {f00=0x0090, 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
0x1c7fac…1c8140 Dummy {f00=0x0090, 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
0x1c8140…1c82d4 (1, 342) Dummy {f00=0x0090, 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
0x1c82d4…1c8468 Dummy {f00=0x0090, 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 *
0x1c8468…1c85fc Dummy {f00=0x0090, 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 *
0x1c85fc…1c8790 Dummy {f00=0x0090, 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 (
0x1c8790…1c8924 Dummy {f00=0x0090, 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
0x1c8924…1c8ab8 Dummy {f00=0x0090, 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
0x1c8ab8…1c8c4c Dummy {f00=0x0090, 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
0x1c8c4c…1c8de0 Dummy {f00=0x0090, 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*
0x1c8de0…1c8f74 (1, 343) Dummy {f00=0x0091, 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
0x1c8f74…1c9108 Dummy {f00=0x0091, 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)
0x1c9108…1c929c Dummy {f00=0x0091, 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 *
0x1c929c…1c9430 Dummy {f00=0x0091, 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*
0x1c9430…1c95c4 Dummy {f00=0x0091, 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
0x1c95c4…1c9758 Dummy {f00=0x0091, 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* # > :*
0x1c9758…1c98ec Dummy {f00=0x0091, 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
0x1c98ec…1c9a80 Dummy {f00=0x0091, 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
0x1c9a80…1c9c14 (1, 344) Dummy {f00=0x0091, 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
0x1c9c14…1c9da8 Dummy {f00=0x0091, 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
0x1c9da8…1c9f3c Dummy {f00=0x0091, 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
0x1c9f3c…1ca0d0 Dummy {f00=0x0091, 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
0x1ca0d0…1ca264 Dummy {f00=0x0091, 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
0x1ca264…1ca3f8 Dummy {f00=0x0091, 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
0x1ca3f8…1ca58c Dummy {f00=0x0091, 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* ,
0x1ca58c…1ca720 Dummy {f00=0x0091, 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 -
0x1ca720…1ca8b4 (1, 345) Dummy {f00=0x0091, 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
0x1ca8b4…1caa48 Dummy {f00=0x0091, 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
0x1caa48…1cabdc Dummy {f00=0x0091, 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
0x1cabdc…1cad70 Dummy {f00=0x0091, 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
0x1cad70…1caf04 Dummy {f00=0x0091, 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
0x1caf04…1cb098 Dummy {f00=0x0091, 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
0x1cb098…1cb22c Dummy {f00=0x0091, 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
0x1cb22c…1cb3c0 Dummy {f00=0x0091, 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
0x1cb3c0…1cb554 (1, 346) Dummy {f00=0x0091, 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
0x1cb554…1cb6e8 Dummy {f00=0x0091, 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
0x1cb6e8…1cb87c Dummy {f00=0x0091, 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
0x1cb87c…1cba10 Dummy {f00=0x0091, 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
0x1cba10…1cbba4 Dummy {f00=0x0091, 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 :
0x1cbba4…1cbd38 Dummy {f00=0x0091, 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
0x1cbd38…1cbecc Dummy {f00=0x0091, 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
0x1cbecc…1cc060 Dummy {f00=0x0091, 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
0x1cc060…1cc1f4 (1, 347) Dummy {f00=0x0092, 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
0x1cc1f4…1cc388 Dummy {f00=0x0092, 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)
0x1cc388…1cc51c Dummy {f00=0x0092, 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 @
0x1cc51c…1cc6b0 Dummy {f00=0x0092, 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
0x1cc6b0…1cc844 Dummy {f00=0x0092, 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
0x1cc844…1cc9d8 Dummy {f00=0x0092, 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
0x1cc9d8…1ccb6c Dummy {f00=0x0092, 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
0x1ccb6c…1ccd00 Dummy {f00=0x0092, 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
0x1ccd00…1cce94 (1, 348) Dummy {f00=0x0092, 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
0x1cce94…1cd028 Dummy {f00=0x0092, 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*
0x1cd028…1cd1bc Dummy {f00=0x0092, 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
0x1cd1bc…1cd350 Dummy {f00=0x0092, 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
0x1cd350…1cd4e4 Dummy {f00=0x0092, 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*
0x1cd4e4…1cd678 Dummy {f00=0x0092, 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
0x1cd678…1cd80c Dummy {f00=0x0092, 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
0x1cd80c…1cd9a0 Dummy {f00=0x0092, 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 *
0x1cd9a0…1cdb34 (1, 349) Dummy {f00=0x0092, 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
0x1cdb34…1cdcc8 Dummy {f00=0x0092, 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
0x1cdcc8…1cde5c Dummy {f00=0x0092, 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
0x1cde5c…1cdff0 Dummy {f00=0x0092, 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
0x1cdff0…1ce184 Dummy {f00=0x0092, 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 *
0x1ce184…1ce318 Dummy {f00=0x0092, 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
0x1ce318…1ce4ac Dummy {f00=0x0092, 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
0x1ce4ac…1ce640 Dummy {f00=0x0092, 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
0x1ce640…1ce7d4 (1, 350) Dummy {f00=0x0092, 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
0x1ce7d4…1ce968 Dummy {f00=0x0092, 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
0x1ce968…1ceafc Dummy {f00=0x0092, 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)
0x1ceafc…1cec90 Dummy {f00=0x0092, 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
0x1cec90…1cee24 Dummy {f00=0x0092, 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
0x1cee24…1cefb8 Dummy {f00=0x0092, 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. [
0x1cefb8…1cf14c Dummy {f00=0x0092, 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
0x1cf14c…1cf2e0 Dummy {f00=0x0092, 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
0x1cf2e0…1cf474 (1, 351) Dummy {f00=0x0093, 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* ^
0x1cf474…1cf608 Dummy {f00=0x0093, 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
0x1cf608…1cf79c Dummy {f00=0x0093, 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
0x1cf79c…1cf930 Dummy {f00=0x0093, 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
0x1cf930…1cfac4 Dummy {f00=0x0093, 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*
0x1cfac4…1cfc58 Dummy {f00=0x0093, 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
0x1cfc58…1cfdec Dummy {f00=0x0093, 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
0x1cfdec…1cff80 Dummy {f00=0x0093, 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
0x1cff80…1d0114 (1, 352) Dummy {f00=0x0093, 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
0x1d0114…1d02a8 Dummy {f00=0x0093, 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
0x1d02a8…1d043c Dummy {f00=0x0093, 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
0x1d043c…1d05d0 Dummy {f00=0x0093, 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
0x1d05d0…1d0764 Dummy {f00=0x0093, 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
0x1d0764…1d08f8 Dummy {f00=0x0093, 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
0x1d08f8…1d0a8c Dummy {f00=0x0093, 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
0x1d0a8c…1d0c20 Dummy {f00=0x0093, 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 (
0x1d0c20…1d0db4 (1, 353) Dummy {f00=0x0093, 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
0x1d0db4…1d0f48 Dummy {f00=0x0093, 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
0x1d0f48…1d10dc Dummy {f00=0x0093, 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
0x1d10dc…1d1270 Dummy {f00=0x0093, f01=0x0000, f02=»
[…0x4…]
0x1d18c0…1d1a54 (1, 354) Opaque[0x194]
0x1d1a54…1d1be8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x1d1a54…1d1be8 IdxSect {
0x1d1a54…1d1be8 f00 = 0x0093 // 0x1d1a54 @0x0
0x1d1a54…1d1be8 f01 = 0x0002 // 0x1d1a56 @0x2
0x1d1a54…1d1be8 gno = [ // 0x1d1a58 @0x4
0x1d1a54…1d1be8 [0x00]: C0x0093.0x3.0
0x1d1a54…1d1be8 ]
0x1d1a54…1d1be8 }
0x1d1be8…1d1d7c Dummy {f00=0x0093, 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
0x1d1d7c…1d1f10 Dummy {f00=0x0093, 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
0x1d1f10…1d20a4 Dummy {f00=0x0093, 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*
0x1d20a4…1d2238 Dummy {f00=0x0093, 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
0x1d2238…1d23cc Dummy {f00=0x0093, 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
0x1d23cc…1d2560 Dummy {f00=0x0093, 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
0x1d2560…1d26f4 (1, 355) Opaque[0x194]
0x1d26f4…1d2888 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x1d26f4…1d2888 IdxSect {
0x1d26f4…1d2888 f00 = 0x0094 // 0x1d26f4 @0x0
0x1d26f4…1d2888 f01 = 0x0002 // 0x1d26f6 @0x2
0x1d26f4…1d2888 gno = [ // 0x1d26f8 @0x4
0x1d26f4…1d2888 [0x00]: C0x0094.0x0.0
0x1d26f4…1d2888 ]
0x1d26f4…1d2888 }
0x1d2888…1d2a1c Dummy {f00=0x0094, 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*
0x1d2a1c…1d2bb0 Dummy {f00=0x0094, 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
0x1d2bb0…1d2d44 Dummy {f00=0x0094, 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
0x1d2d44…1d2ed8 Dummy {f00=0x0094, 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
0x1d2ed8…1d306c Dummy {f00=0x0094, 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
0x1d306c…1d3200 Dummy {f00=0x0094, f01=0x2008, f02=»
0x1d3200…1d3394 (1, 356) Opaque[0x194]
0x1d3394…1d3528 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1288, f03=0x0000}
0x1d3394…1d3528 IdxSect {
0x1d3394…1d3528 f00 = 0x0094 // 0x1d3394 @0x0
0x1d3394…1d3528 f01 = 0x0002 // 0x1d3396 @0x2
0x1d3394…1d3528 gno = [ // 0x1d3398 @0x4
0x1d3394…1d3528 [0x00]: C0x0094.0x1.0
0x1d3394…1d3528 ]
0x1d3394…1d3528 }
0x1d3528…1d36bc Dummy {f00=0x0094, 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*
0x1d36bc…1d3850 Dummy {f00=0x0094, 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
0x1d3850…1d39e4 Dummy {f00=0x0094, 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
0x1d39e4…1d3b78 Dummy {f00=0x0094, 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
0x1d3b78…1d3d0c Dummy {f00=0x0094, 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*
0x1d3d0c…1d3ea0 Dummy {f00=0x0094, 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:
0x1d3ea0…1d4034 (1, 357) Opaque[0x194]
0x1d4034…1d41c8 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x1d4034…1d41c8 IdxSect {
0x1d4034…1d41c8 f00 = 0x0094 // 0x1d4034 @0x0
0x1d4034…1d41c8 f01 = 0x0002 // 0x1d4036 @0x2
0x1d4034…1d41c8 gno = [ // 0x1d4038 @0x4
0x1d4034…1d41c8 [0x00]: C0x0094.0x2.0
0x1d4034…1d41c8 ]
0x1d4034…1d41c8 }
0x1d41c8…1d435c Dummy {f00=0x0094, 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
0x1d435c…1d44f0 Dummy {f00=0x0094, 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
0x1d44f0…1d4684 Dummy {f00=0x0094, 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,
0x1d4684…1d4818 Dummy {f00=0x0094, 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
0x1d4818…1d49ac Dummy {f00=0x0094, 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
0x1d49ac…1d4b40 Dummy {f00=0x0094, 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
0x1d4b40…1d4cd4 (1, 358) Opaque[0x194]
0x1d4cd4…1d4e68 # DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x1d4cd4…1d4e68 IdxSect {
0x1d4cd4…1d4e68 f00 = 0x0094 // 0x1d4cd4 @0x0
0x1d4cd4…1d4e68 f01 = 0x0002 // 0x1d4cd6 @0x2
0x1d4cd4…1d4e68 gno = [ // 0x1d4cd8 @0x4
0x1d4cd4…1d4e68 [0x00]: C0x0094.0x3.0
0x1d4cd4…1d4e68 ]
0x1d4cd4…1d4e68 }
0x1d4e68…1d4ffc Dummy {f00=0x0094, 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*
0x1d4ffc…1d5190 Dummy {f00=0x0094, 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
0x1d5190…1d5324 Dummy {f00=0x0094, 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
0x1d5324…1d54b8 Dummy {f00=0x0094, 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
0x1d54b8…1d564c Dummy {f00=0x0094, 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
0x1d564c…1d57e0 Dummy {f00=0x0094, 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
0x1d57e0…1d5974 (1, 359) Opaque[0x194]
0x1d5974…1d5b08 # DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a0, f03=0x0000}
0x1d5974…1d5b08 IdxSect {
0x1d5974…1d5b08 f00 = 0x0095 // 0x1d5974 @0x0
0x1d5974…1d5b08 f01 = 0x0002 // 0x1d5976 @0x2
0x1d5974…1d5b08 gno = [ // 0x1d5978 @0x4
0x1d5974…1d5b08 [0x00]: C0x0095.0x0.0
0x1d5974…1d5b08 ]
0x1d5974…1d5b08 }
0x1d5b08…1d5c9c Dummy {f00=0x0095, 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 *
0x1d5c9c…1d5e30 Dummy {f00=0x0095, 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
0x1d5e30…1d5fc4 Dummy {f00=0x0095, 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
0x1d5fc4…1d6158 Dummy {f00=0x0095, 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
0x1d6158…1d62ec Dummy {f00=0x0095, 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
0x1d62ec…1d6480 Dummy {f00=0x0095, 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
0x1d6480…1d6614 (1, 360) Opaque[0x194]
0x1d6614…1d67a8 # DirEnt {nam=»DVKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x1d6614…1d67a8 IdxSect {
0x1d6614…1d67a8 f00 = 0x0095 // 0x1d6614 @0x0
0x1d6614…1d67a8 f01 = 0x0002 // 0x1d6616 @0x2
0x1d6614…1d67a8 gno = [ // 0x1d6618 @0x4
0x1d6614…1d67a8 [0x00]: C0x0095.0x1.0
0x1d6614…1d67a8 ]
0x1d6614…1d67a8 }
0x1d67a8…1d693c Dummy {f00=0x0095, 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*
0x1d693c…1d6ad0 Dummy {f00=0x0095, 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
0x1d6ad0…1d6c64 Dummy {f00=0x0095, 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
0x1d6c64…1d6df8 Dummy {f00=0x0095, 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
0x1d6df8…1d6f8c Dummy {f00=0x0095, 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
0x1d6f8c…1d7120 Dummy {f00=0x0095, 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
0x1d7120…1d72b4 (1, 361) Opaque[0x194]
0x1d72b4…1d7448 # DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x1d72b4…1d7448 IdxSect {
0x1d72b4…1d7448 f00 = 0x0095 // 0x1d72b4 @0x0
0x1d72b4…1d7448 f01 = 0x0002 // 0x1d72b6 @0x2
0x1d72b4…1d7448 gno = [ // 0x1d72b8 @0x4
0x1d72b4…1d7448 [0x00]: C0x0095.0x2.0
0x1d72b4…1d7448 ]
0x1d72b4…1d7448 }
0x1d7448…1d75dc Dummy {f00=0x0095, 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
0x1d75dc…1d7770 Dummy {f00=0x0095, 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
0x1d7770…1d7904 Dummy {f00=0x0095, 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,
0x1d7904…1d7a98 Dummy {f00=0x0095, 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
0x1d7a98…1d7c2c Dummy {f00=0x0095, 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
0x1d7c2c…1d7dc0 Dummy {f00=0x0095, 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
0x1d7dc0…1d7f54 (1, 362) Opaque[0x194]
0x1d7f54…1d80e8 # DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b8, f03=0x0000}
0x1d7f54…1d80e8 IdxSect {
0x1d7f54…1d80e8 f00 = 0x0095 // 0x1d7f54 @0x0
0x1d7f54…1d80e8 f01 = 0x0002 // 0x1d7f56 @0x2
0x1d7f54…1d80e8 gno = [ // 0x1d7f58 @0x4
0x1d7f54…1d80e8 [0x00]: C0x0095.0x3.0
0x1d7f54…1d80e8 ]
0x1d7f54…1d80e8 }
0x1d80e8…1d827c Dummy {f00=0x0095, 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
0x1d827c…1d8410 Dummy {f00=0x0095, 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
0x1d8410…1d85a4 Dummy {f00=0x0095, 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,
0x1d85a4…1d8738 Dummy {f00=0x0095, 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
0x1d8738…1d88cc Dummy {f00=0x0095, 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 ' !
0x1d88cc…1d8a60 Dummy {f00=0x0095, 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 , (
0x1d8a60…1d8bf4 (1, 363) Opaque[0x194]
0x1d8bf4…1d8d88 # DirEnt {nam=»M:DECE«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x12c0, f03=0x0000}
0x1d8bf4…1d8d88 IdxSect {
0x1d8bf4…1d8d88 f00 = 0x0096 // 0x1d8bf4 @0x0
0x1d8bf4…1d8d88 f01 = 0x0016 // 0x1d8bf6 @0x2
0x1d8bf4…1d8d88 gno = [ // 0x1d8bf8 @0x4
0x1d8bf4…1d8d88 [0x00]: C0x0096.0x0.0
0x1d8bf4…1d8d88 [0x01]: C0x0096.0x1.0
0x1d8bf4…1d8d88 [0x02]: C0x0096.0x2.0
0x1d8bf4…1d8d88 [0x03]: C0x0096.0x3.0
0x1d8bf4…1d8d88 [0x04]: C0x0097.0x0.0
0x1d8bf4…1d8d88 [0x05]: C0x0097.0x1.0
0x1d8bf4…1d8d88 [0x06]: C0x0097.0x2.0
0x1d8bf4…1d8d88 [0x07]: C0x0097.0x3.0
0x1d8bf4…1d8d88 [0x08]: C0x0098.0x0.0
0x1d8bf4…1d8d88 [0x09]: C0x0098.0x1.0
0x1d8bf4…1d8d88 [0x0a]: C0x0098.0x2.0
0x1d8bf4…1d8d88 ]
0x1d8bf4…1d8d88 }
0x1d8d88…1d8f1c Dummy {f00=0x0096, 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
0x1d8f1c…1d90b0 Dummy {f00=0x0096, 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 (
0x1d90b0…1d9244 Dummy {f00=0x0096, 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 % >
0x1d9244…1d93d8 Dummy {f00=0x0096, 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
0x1d93d8…1d956c Dummy {f00=0x0096, 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 % >
0x1d956c…1d9700 Dummy {f00=0x0096, 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
0x1d9700…1d9894 (1, 364) Dummy {f00=0x0096, 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
0x1d9894…1d9a28 Dummy {f00=0x0096, 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
0x1d9a28…1d9bbc Dummy {f00=0x0096, 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
0x1d9bbc…1d9d50 Dummy {f00=0x0096, 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
0x1d9d50…1d9ee4 Dummy {f00=0x0096, 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
0x1d9ee4…1da078 Dummy {f00=0x0096, 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
0x1da078…1da20c Dummy {f00=0x0096, 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 !
0x1da20c…1da3a0 Dummy {f00=0x0096, 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 ! $ !
0x1da3a0…1da534 (1, 365) Dummy {f00=0x0096, 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
0x1da534…1da6c8 Dummy {f00=0x0096, 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
0x1da6c8…1da85c Dummy {f00=0x0096, 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 !
0x1da85c…1da9f0 Dummy {f00=0x0096, 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 @
0x1da9f0…1dab84 Dummy {f00=0x0096, 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 ~
0x1dab84…1dad18 Dummy {f00=0x0096, 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 >
0x1dad18…1daeac Dummy {f00=0x0096, 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
0x1daeac…1db040 Dummy {f00=0x0096, 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
0x1db040…1db1d4 (1, 366) Dummy {f00=0x0096, 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
0x1db1d4…1db368 Dummy {f00=0x0096, 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 !#
0x1db368…1db4fc Dummy {f00=0x0096, 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
0x1db4fc…1db690 Dummy {f00=0x0096, 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
0x1db690…1db824 Dummy {f00=0x0096, 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
0x1db824…1db9b8 Dummy {f00=0x0096, 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
0x1db9b8…1dbb4c Dummy {f00=0x0096, 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
0x1dbb4c…1dbce0 Dummy {f00=0x0096, 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
0x1dbce0…1dbe74 (1, 367) Dummy {f00=0x0097, 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 _
0x1dbe74…1dc008 Dummy {f00=0x0097, 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?
0x1dc008…1dc19c Dummy {f00=0x0097, 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
0x1dc19c…1dc330 Dummy {f00=0x0097, 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
0x1dc330…1dc4c4 Dummy {f00=0x0097, 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 . $
0x1dc4c4…1dc658 Dummy {f00=0x0097, 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 "
0x1dc658…1dc7ec Dummy {f00=0x0097, 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"
0x1dc7ec…1dc980 Dummy {f00=0x0097, 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
0x1dc980…1dcb14 (1, 368) Dummy {f00=0x0097, 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
0x1dcb14…1dcca8 Dummy {f00=0x0097, 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
0x1dcca8…1dce3c Dummy {f00=0x0097, 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 *
0x1dce3c…1dcfd0 Dummy {f00=0x0097, 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
0x1dcfd0…1dd164 Dummy {f00=0x0097, 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
0x1dd164…1dd2f8 Dummy {f00=0x0097, 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
0x1dd2f8…1dd48c Dummy {f00=0x0097, 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 $
0x1dd48c…1dd620 Dummy {f00=0x0097, 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
0x1dd620…1dd7b4 (1, 369) Dummy {f00=0x0097, 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
0x1dd7b4…1dd948 Dummy {f00=0x0097, f01=0x0190, f02=» Y : @ P0 8 T _ & & Y " 4 : : $ - Y : E~E~E E E E 0123456789 ' < +,-. 0123456789 @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]~ * > ?;_: =!"#$%&/() @A
0x1dd948…1ddadc Dummy {f00=0x0097, 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
0x1ddadc…1ddc70 Dummy {f00=0x0097, 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
0x1ddc70…1dde04 Dummy {f00=0x0097, 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
0x1dde04…1ddf98 Dummy {f00=0x0097, 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 )
0x1ddf98…1de12c Dummy {f00=0x0097, 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 @
0x1de12c…1de2c0 Dummy {f00=0x0097, 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
0x1de2c0…1de454 (1, 370) Dummy {f00=0x0097, 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 :
0x1de454…1de5e8 Dummy {f00=0x0097, 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
0x1de5e8…1de77c Dummy {f00=0x0097, 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 _
0x1de77c…1de910 Dummy {f00=0x0097, 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
0x1de910…1deaa4 Dummy {f00=0x0097, 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 :
0x1deaa4…1dec38 Dummy {f00=0x0097, 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 >
0x1dec38…1dedcc Dummy {f00=0x0097, 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 ( )
0x1dedcc…1def60 Dummy {f00=0x0097, 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
0x1def60…1df0f4 (1, 371) Dummy {f00=0x0098, 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
0x1df0f4…1df288 Dummy {f00=0x0098, 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
0x1df288…1df41c Dummy {f00=0x0098, 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 ]
0x1df41c…1df5b0 Dummy {f00=0x0098, 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 @
0x1df5b0…1df744 Dummy {f00=0x0098, 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
0x1df744…1df8d8 Dummy {f00=0x0098, 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
0x1df8d8…1dfa6c Dummy {f00=0x0098, 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 .
0x1dfa6c…1dfc00 Dummy {f00=0x0098, 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
0x1dfc00…1dfd94 (1, 372) Dummy {f00=0x0098, 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
0x1dfd94…1dff28 Dummy {f00=0x0098, 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
0x1dff28…1e00bc Dummy {f00=0x0098, 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
0x1e00bc…1e0250 Dummy {f00=0x0098, 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
0x1e0250…1e03e4 Dummy {f00=0x0098, 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
0x1e03e4…1e0578 Dummy {f00=0x0098, 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 :
0x1e0578…1e070c Dummy {f00=0x0098, 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
0x1e070c…1e08a0 Dummy {f00=0x0098, 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 _ : @
0x1e08a0…1e0a34 (1, 373) Dummy {f00=0x0098, 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
0x1e0a34…1e0bc8 Dummy {f00=0x0098, f01=0x0190, f02=» Y t* P P 27 DI t ?O_o 45d P t Ub 2 KB t F. F ` u( t t
0x1e0bc8…1e0d5c Dummy {f00=0x0098, 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
0x1e0d5c…1e0ef0 Dummy {f00=0x0098, 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(
0x1e0ef0…1e1084 Dummy {f00=0x0098, 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
0x1e1084…1e1218 Dummy {f00=0x0098, 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
0x1e1218…1e13ac Dummy {f00=0x0098, 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
0x1e13ac…1e1540 Dummy {f00=0x0098, 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
0x1e1540…1e21e0 (2, 0) DirGranule ((2, 0)) {
0x1e1540…1e21e0 DirEnt {nam=»S:DE «, typ=» «, f00=0x0000, f01=0x0000, f02=0x1318, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x1320, f03=0x0008}
0x1e1540…1e21e0 DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1398, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13a8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13b0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1400, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1448, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1470, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1490, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14a0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14d8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1510, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1520, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1570, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1600, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1640, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1668, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1678, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1740, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1768, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1790, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17e8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1828, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1860, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1870, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1898, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1900, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1928, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1950, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19c0, f03=0x0000}
0x1e1540…1e21e0 DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19c8, f03=0x0000}
0x1e1540…1e21e0 }
0x1e21e0…1e2374 (2, 1) Opaque[0x194]
0x1e2374…1e2508 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x1320, f03=0x0008}
0x1e2374…1e2508 IdxSect {
0x1e2374…1e2508 f00 = 0x0099 // 0x1e2374 @0x0
0x1e2374…1e2508 f01 = 0x0006 // 0x1e2376 @0x2
0x1e2374…1e2508 gno = [ // 0x1e2378 @0x4
0x1e2374…1e2508 [0x00]: C0x0099.0x0.0
0x1e2374…1e2508 [0x01]: C0x0099.0x1.0
0x1e2374…1e2508 [0x02]: C0x0099.0x2.0
0x1e2374…1e2508 ]
0x1e2374…1e2508 }
0x1e2508…1e269c Dummy {f00=0x0099, f01=0x0190, f02=» @ H IDENT DE70ST TRA 10.0 80-12-18 F1 O1111 REL 10.0 80-12-17 DE70ST DEAP7A H $$$TRA7 b DE70ST DEAP7A t D @ ATTDB DEANOKT DEAOK0 DECLRA8 DECLRS1 DECONV1 DEDISC1 DELAST D @ DEOPBC DEPMSK7 DEPOOL DEPRUT DERECS DER
0x1e269c…1e2830 Dummy {f00=0x0099, f01=0x0190, f02=» & D Z x
0x1e2830…1e29c4 Dummy {f00=0x0099, f01=0x018e, f02=» & : ( X h ( x ( ) - ? $ J F " D kU lU( xAdIe 1XFW 6 1
0x1e29c4…1e2b58 Dummy {f00=0x0099, 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 " _
0x1e2b58…1e2cec Dummy {f00=0x0099, f01=0x018e, f02=» : $ J F " D ("6 ( R,KW R-K ! R 2 RRRRAzT R ! '! ?R6 ( k lU 4 i " " $ & ) 5 i
0x1e2cec…1e2e80 Dummy {f00=0x0099, 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 #
0x1e2e80…1e3014 (2, 2) Dummy {f00=0x0099, f01=0x0190, f02=» ( & $ J F " D R&{ 1XF0X ! 0X mU_" m 50R {&* p!0X R $ '$( D0R $} | @ 4 0 & . @ J F "
0x1e3014…1e31a8 Dummy {f00=0x0099, 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
0x1e31a8…1e333c Dummy {f00=0x0099, 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
0x1e333c…1e34d0 Dummy {f00=0x0099, f01=0x0190, f02=» & d $ ( " . & > $ L & $ # j & z $ ' & $ * $ - ( & $ &
0x1e34d0…1e3664 Dummy {f00=0x0099, f01=0x018e, f02=» & 71 CONVERSION $ $ 1 > & N VIA $ 1 p & DATA COMMN $ 1 ( & 71 CONVERSION $ 1
0x1e3664…1e37f8 Dummy {f00=0x0099, f01=0x018e, f02=» & 73 " BATCH LINKING $ "3 2 ( B # N $ UNIT ^ $ $3 r & :U & % X " %i & & VOLUME $ & & :
0x1e37f8…1e398c Dummy {f00=0x0099, f01=0x0190, f02=» & !A & k ( * * 6 + BATCH F $ + , NAME l $ , & : & "A & l ( - & l & A & U
0x1e398c…1e3b20 Dummy {f00=0x0099, f01=0x416e, f02=» FILE $ 0 & - 1 NAME , $ 1 @ & : P & @ ^ & $ p ( 2 * & & FETCHING FORMAT: & & FROM DISC.R & & @ O
0x1e3b20…1e3cb4 (2, 3) Dummy {f00=0x0099, f01=0x2008, f02=» L = ADPE01 DATE = 80 -0 4- 1216PACK NBR = 0000 ? ` 8a ` O > ?
0x1e3cb4…1e3e48 Dummy {f00=0x0099, 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
0x1e3e48…1e3fdc Dummy {f00=0x0099, 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 ?@
0x1e3fdc…1e4170 Dummy {f00=0x0099, 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
0x1e4170…1e4304 Dummy {f00=0x0099, 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
0x1e4304…1e4498 Dummy {f00=0x0099, 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<
0x1e4498…1e462c Dummy {f00=0x0099, 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
0x1e462c…1e47c0 Dummy {f00=0x0099, 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<
0x1e47c0…1e4954 (2, 4) Opaque[0x194]
0x1e4954…1e4ae8 # DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1338, f03=0x0000}
0x1e4954…1e4ae8 IdxSect {
0x1e4954…1e4ae8 f00 = 0x0099 // 0x1e4954 @0x0
0x1e4954…1e4ae8 f01 = 0x000c // 0x1e4956 @0x2
0x1e4954…1e4ae8 gno = [ // 0x1e4958 @0x4
0x1e4954…1e4ae8 [0x00]: C0x0099.0x3.0
0x1e4954…1e4ae8 [0x01]: C0x009a.0x0.0
0x1e4954…1e4ae8 [0x02]: C0x009a.0x1.0
0x1e4954…1e4ae8 [0x03]: C0x009a.0x2.0
0x1e4954…1e4ae8 [0x04]: C0x009a.0x3.0
0x1e4954…1e4ae8 [0x05]: C0x009b.0x0.0
0x1e4954…1e4ae8 ]
0x1e4954…1e4ae8 }
0x1e4ae8…1e4c7c Dummy {f00=0x0099, 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
0x1e4c7c…1e4e10 Dummy {f00=0x0099, 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 @ ;*
0x1e4e10…1e4fa4 Dummy {f00=0x0099, 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
0x1e4fa4…1e5138 Dummy {f00=0x0099, 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*
0x1e5138…1e52cc Dummy {f00=0x0099, 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
0x1e52cc…1e5460 Dummy {f00=0x0099, 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
0x1e5460…1e55f4 (2, 5) Dummy {f00=0x009a, 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
0x1e55f4…1e5788 Dummy {f00=0x009a, 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
0x1e5788…1e591c Dummy {f00=0x009a, 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
0x1e591c…1e5ab0 Dummy {f00=0x009a, 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 (
0x1e5ab0…1e5c44 Dummy {f00=0x009a, 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
0x1e5c44…1e5dd8 Dummy {f00=0x009a, 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
0x1e5dd8…1e5f6c Dummy {f00=0x009a, 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
0x1e5f6c…1e6100 Dummy {f00=0x009a, 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
0x1e6100…1e6294 (2, 6) Dummy {f00=0x009a, 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
0x1e6294…1e6428 Dummy {f00=0x009a, 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
0x1e6428…1e65bc Dummy {f00=0x009a, 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,
0x1e65bc…1e6750 Dummy {f00=0x009a, 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
0x1e6750…1e68e4 Dummy {f00=0x009a, 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
0x1e68e4…1e6a78 Dummy {f00=0x009a, 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
0x1e6a78…1e6c0c Dummy {f00=0x009a, 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
0x1e6c0c…1e6da0 Dummy {f00=0x009a, 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),
0x1e6da0…1e6f34 (2, 7) Dummy {f00=0x009a, 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
0x1e6f34…1e70c8 Dummy {f00=0x009a, 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
0x1e70c8…1e725c Dummy {f00=0x009a, 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
0x1e725c…1e73f0 Dummy {f00=0x009a, 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
0x1e73f0…1e7584 Dummy {f00=0x009a, 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
0x1e7584…1e7718 Dummy {f00=0x009a, 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
0x1e7718…1e78ac Dummy {f00=0x009a, 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*
0x1e78ac…1e7a40 Dummy {f00=0x009a, 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*
0x1e7a40…1e7bd4 (2, 8) Dummy {f00=0x009a, 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
0x1e7bd4…1e7d68 Dummy {f00=0x009a, 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
0x1e7d68…1e7efc Dummy {f00=0x009a, 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
0x1e7efc…1e8090 Dummy {f00=0x009a, 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,
0x1e8090…1e8224 Dummy {f00=0x009a, 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
0x1e8224…1e83b8 Dummy {f00=0x009a, 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 #
0x1e83b8…1e854c Dummy {f00=0x009a, 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 $
0x1e854c…1e86e0 Dummy {f00=0x009a, 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
0x1e86e0…1e8874 (2, 9) Dummy {f00=0x009b, 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
0x1e8874…1e8a08 Dummy {f00=0x009b, 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 '
0x1e8a08…1e8b9c Dummy {f00=0x009b, 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
0x1e8b9c…1e8d30 Dummy {f00=0x009b, 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
0x1e8d30…1e8ec4 Dummy {f00=0x009b, 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
0x1e8ec4…1e9058 Dummy {f00=0x009b, 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 + @ +
0x1e9058…1e91ec Dummy {f00=0x009b, 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
0x1e91ec…1e9380 Dummy {f00=0x009b, 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
0x1e9380…1e9514 (2, 10) Opaque[0x194]
0x1e9514…1e96a8 # DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x1e9514…1e96a8 IdxSect {
0x1e9514…1e96a8 f00 = 0x009b // 0x1e9514 @0x0
0x1e9514…1e96a8 f01 = 0x0002 // 0x1e9516 @0x2
0x1e9514…1e96a8 gno = [ // 0x1e9518 @0x4
0x1e9514…1e96a8 [0x00]: C0x009b.0x1.0
0x1e9514…1e96a8 ]
0x1e9514…1e96a8 }
0x1e96a8…1e983c Dummy {f00=0x009b, f01=0x018e, f02=» $ P IDENT DECOMP REL 10.0 80-04-11 P 79-03-06/DALI , DDUM DEDDIV D PDIV X P ENTRY DECOMP f P EXT CDV10 MODULO 10 CHECK | P EXT CDV110 MODULO 11 CHECK P LAST BYTE 0 WEIGHT P EXT CDV111 MODULO 11 CHECK P L
0x1e983c…1e99d0 Dummy {f00=0x009b, f01=0x0190, f02=» b , P DEC006,DEC007,DEC008,DEC009,DEC010 C ( P DEC011,DEC012,DEC013,DEC014,DEC015 8 PDEC001 d P CALL MMDDCK,W0,DEINPUT r P RET PDEC002 . P CALL MMDDCK,W2,DEINPUT AMERICAN STANDARD P RET PDEC003 4 P CALL DDMMCK,W2,
0x1e99d0…1e9b64 Dummy {f00=0x009b, f01=0x4166, f02=» P RET PDEC008 P RET " PDEC009 . P RET < PDEC010 H P CALL CDV10,DEINPUT,BIN7 V P RET v PDEC011 P CALL CDV110,DEINPUT,BIN7 P RET PDEC012 P CALL CDV111,DEINPUT,BIN7 P RET PDEC013 P
0x1e9b64…1e9cf8 Dummy {f00=0x009b, 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
0x1e9cf8…1e9e8c Dummy {f00=0x009b, f01=0x0190, f02=» ( 5 8 J F " D 0X ! R R4 2 RRRRRRRRRRRRRR "W #W &W + #4 _ j ! H C Y0 G N0 X 10 20 ` 30 f0 0 s
0x1e9e8c…1ea020 Dummy {f00=0x009b, 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
0x1ea020…1ea1b4 (2, 11) Opaque[0x194]
0x1ea1b4…1ea348 # DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x1ea1b4…1ea348 IdxSect {
0x1ea1b4…1ea348 f00 = 0x009b // 0x1ea1b4 @0x0
0x1ea1b4…1ea348 f01 = 0x000a // 0x1ea1b6 @0x2
0x1ea1b4…1ea348 gno = [ // 0x1ea1b8 @0x4
0x1ea1b4…1ea348 [0x00]: C0x009b.0x2.0
0x1ea1b4…1ea348 [0x01]: C0x009b.0x3.0
0x1ea1b4…1ea348 [0x02]: C0x009c.0x0.0
0x1ea1b4…1ea348 [0x03]: C0x009c.0x1.0
0x1ea1b4…1ea348 [0x04]: C0x009c.0x2.0
0x1ea1b4…1ea348 ]
0x1ea1b4…1ea348 }
0x1ea348…1ea4dc Dummy {f00=0x009b, f01=0x0190, f02=» " P IDENT PTSDE REL 10.0 80-04-11 P UPD 80-11-17/DALI * P UPD 80-10-22/DALI F P UPD 80-04-24/DALI b P 80-03-24/DALI ~ DDUM DEDDIV PDIV ENTRY PTSDE P* 0 P* ENTRIES FOR APPLICATIONAL HANDLING
0x1ea4dc…1ea670 Dummy {f00=0x009b, f01=0x0190, f02=» P ENTRY DETCHK P ENTRY DEPMSK P ENTRY DEPRUT 4 P ENTRY ATTPRT J P ENTRY DETPRT ` P ENTRY ATTDEV v P* , P ENTRY DEFIND ROUTINE FINDING FIELDINDEX P EJECT * * ** EXTERNAL REFERENCES TO SCREEN
0x1ea670…1ea804 Dummy {f00=0x009b, f01=0x018e, f02=» * & ! EXT DE10ST SUPERVISORY FUNCTIONS " EXT DE20ST FORMAT DEFINITION 8 EXT DE30ST JOB DEFINITION ^ EXT DE40ST ENTRY MODE " EXT DE50ST SEARCH/CORRECTION EXT DE60ST VERIFICATION EXT DE70ST CONVERSION *
0x1ea804…1ea998 Dummy {f00=0x009b, f01=0x0190, f02=» r P EXT GETVOL GET VOLUMENAME * * 6 P* EXTERNAL REFERENCES FOR SPECIAL ROUTINES 4 * n P EXT DEPOOL TESTVARIANT x P EXT DERR P EXT SAVE P EXT RESTOR P EXT ATTBUF P EXT TESTB P EXT MSKOUT &
0x1ea998…1eab2c Dummy {f00=0x009b, f01=0x0190, f02=» P* : P* EXTERNAL REFERENCES TO APPL HANDLING ROUTINES P* L P EXT DEAP1A V P EXT DEAP2A j P EXT DEAP3A ~ P EXT DEAP5A P EXT DEAP7A P* P* P INCLUDE DELITT P EJECT * *
0x1eab2c…1eacc0 Dummy {f00=0x009b, f01=0x018e, f02=»SCRIPTORS | 8 P CALL ATTBUF,DEDSSCRN,STATSH ATTACH BUFFERS FOR THE 6 P CALL ATTBUF,DEDSPRT,STATSH SCREEN AND PRINT DSETS N P SET UORG P BNZ FINISH $ P CALL GETIND,RBUF,RBUFLN,DEBINW1 P CALL POOLA ADJUST POOLS PFINISH PDEST
0x1eacc0…1eae54 (2, 12) Dummy {f00=0x009b, f01=0x0190, f02=» P CLEAR DECHANGE P PERF DECLRA STA100 4 " P IB DEBINW2,CANCEL,RETUR,ENTER B P MOVE DEBINW4,W0 h P PERF DERR P B STA100 CANCEL P CLEAR DEPROMPT B STA050 * RETUR P ATTFMT F00RET
0x1eae54…1eafe8 Dummy {f00=0x009b, f01=0x018e, f02=» ENT4 P BNERR ENT32 P MOVE DEBINW1,W0 " P PERF DERR : P B STA100 L PENT32 ^ P MOVE DEBINW1,W0 l P PERF DERR P IB DEBINW2,ENT52,ENT52,ENT5 P MOVE DEBINW4,W0 P B ENT32 PENT4 P MOVE MODE,MODTAB(BIN1)
0x1eafe8…1eb17c Dummy {f00=0x009b, f01=0x0190, f02=» < P CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO " P WORKBLOCKS AND DESCRIPTORS H P CLEAR BOOL1 n P CBNE BIN1,W0,ENT4 PENT52 P PERF OPCL,W2 P BOK ENT6 P PERF DERR PENT6 P CBNE BIN2,W0,DEST00
0x1eb17c…1eb310 Dummy {f00=0x009b, f01=0x0190, f02=»CATION ROUTINE * PDEAPPL PROC P CBG DEBINW3,=W'100',DEAPP0 4 P IB DEBINW3 C X P DEAPRTES C n P DEAUNIT C P DEAJOB C P DEABATCH C P DEAENKEY C P DEUNENT P B DEAER6 " PDEAPRTES C
0x1eb310…1eb4a4 Dummy {f00=0x009b, f01=0x0190, f02=» . P XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR P MUL BIN1,W8 6 P SUB BIN2,BIN1 J . P CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING ` P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 & P CALL UPDBOL,BIN1 CLEAR ALL BOOLS P MOVE BCD2A,BCD13A
0x1eb4a4…1eb638 Dummy {f00=0x009b, f01=0x018e, f02=» P MOVE DEBINW3,W0 P MOVE DEBINW2,W17 P B DEAOK0 6 PDEAPRERR H P MOVE DEBINW4,W7 X P B DEANOK p P* P* $ P ATTFMT FORMN DUMMY INSTRUCTION P ATTFMT FORMA - " - P ATTFMT VSET P EJECT PDEUNENT
0x1eb638…1eb7cc Dummy {f00=0x009b, f01=0x0190, f02=» P MOVE FILINDUS,DEBINW4 4 P XCOPY DEBINW4,W1,W1,DUNIT,FILINDUS GET FILECODE " P ADD FILINDUS,W2 Z & P CBE FCOUNTER(FILINDUS),W0,DEAUN0 r P ERASE 1,W2,W2 " P MOVE TABLE,FVOLNAME(FILINDUS) P B DEAUN5 PDEAUN0 . P CALL CHANFC,DIS
0x1eb7cc…1eb960 Dummy {f00=0x009b, f01=0x0190, f02=» P MOVE DEBINW4,W9 NOT FOUND P B DEANOK & PDEAUN4 8 P ERASE 1,W2,W2 F P MOVE TABLE,STRG10A " P MOVE FVOLNAME(FILINDUS),TABLE x PDEAUN5 P DISPLAY 2,W1,W1 P B DEAOK0 PDEAUN2 P MOVE DEBINW4,W7 P B DEANOK
0x1eb960…1ebaf4 (2, 13) Dummy {f00=0x009c, f01=0x0190, f02=»CH CHECK IF SPECIFIED P BATCH EXISTS ON USERFILE P MOVE STSAVE(W2),DEINPUT D P B DEAOK0 d P EJECT v P* < P* JUMP TO APPL HANDLING IN CORRESPONDING PROGRAM P* PDEAPP0 P SUB DEBINW3,=W'100' $ P MOVE
0x1ebaf4…1ebc88 Dummy {f00=0x009c, f01=0x0190, f02=»MODE BINARY x & P MOVE PRNUM,DEBINW4 RESTORE PRNUM . P MOVE BCD2A,PRNUM GET MODE LEVEL ONETH FIG > . P MOVE DEBINW4,BCD2A LOAD MODE LEVEL BINARY p P IB DEBIN1 JUMP MODE APPL C P DEAP1A C P DEAP2A C P DEAP3A C P DEAE
0x1ebc88…1ebe1c Dummy {f00=0x009c, f01=0x018e, f02=» FROM APPL HANDLING IN CORRESPONDING PROGRAM P* 4 PDEAOK0 > P MOVE DEBINW3,W0 L RET d PDEAOK1 p P MOVE DEBINW3,W1 ~ P RET PDEAOK2 P MOVE DEBINW3,W2 P RET PDEAOK4 P MOVE DEBINW3,W4 P RET PDE
0x1ebe1c…1ebfb0 Dummy {f00=0x009c, f01=0x0190, f02=» & !* TABULATION-CHECK ROUTINE * . PDETCHK PROC 8 P TBF DOOL3,DCHKUT L P MOVE DEBINW3,W2 f P RET ~ PDCHKUT P MOVE DEBINW3,W0 RET PEND P EJECT F P************************************************
0x1ebfb0…1ec144 Dummy {f00=0x009c, f01=0x0190, f02=»****************************** l PDEPRUT PROC NUM,FIRST,SECOND & P PBCD NUM J P PBIN FIRST P PBIN SECOND p P MOVE FIRST,NUM P DIV FIRST,W10 P MOVE BCD2A,NUM P MOVE SECOND,BCD2A P RET P PEND P EJECT
0x1ec144…1ec2d8 Dummy {f00=0x009c, f01=0x0190, f02=»**** l PDEPMSK PROC P MOVE PINACC,W0 P MOVE PJOBCUR,W0 8 P MOVE PINDFR,W0 P P MOVE PINDTB,W0 h P MOVE BIN4,BIN1 & P SUB BIN4,W1 FIRST DIGIT IN PRNUM P BNL DEAPR10 JUMP IF > 00 P MOVE KEYMSK,W0 P RET P
0x1ec2d8…1ec46c Dummy {f00=0x009c, f01=0x0190, f02=» $ P XCOPY DEBINW3,W1,W1,PRKEYS,BIN4 , P CALL TESTB,BIN2,W15 LOOK WHICH HALFBYTE 0 P BZ DEAPR20 JUMP IF FIRST ` P MOVE DEBINW2,W15 P CALL MSKOUT,DEBINW2,DEBINW3 P MOVE KEYMSK,DEBINW2 P RET PDEAPR20 P DIV DEBINW3,W16
0x1ec46c…1ec600 Dummy {f00=0x009c, f01=0x0190, f02=»ANY PRINTING IS DONE ^ . P* CONDITION-REGISTER IS SET TO 0 : OKAY 8 P* 1 : PRINTER BUSY; N L P* IF THE PRINTER IS BUSY, THE ERROR-INDICATION 11 (IN USE) IS GIVEN IN L P* IN DEBIN1, THE TERMINALNUMBER OF THE CURRE
0x1ec600…1ec794 (2, 14) Dummy {f00=0x009c, f01=0x018e, f02=»END PATTDEV PROC FC P CALL CHANFC,DEDSPRT,FC " P MOVE DEBINW4,W0 B 6 P DSC0 .NW,DEDSPRT,TSTAT CHECK IF PRINTER AVAILABLE Z P DELAY W4 WAIT FOR 4/100 SEC P TESTIO DEDSPRT P BNZ NOTOK P WAIT DEDSPRT P XSTAT DEDSPRT,D
0x1ec794…1ec928 Dummy {f00=0x009c, f01=0x0190, f02=» P DSC1 DEDSPRT,ATTACH,W20 P BOK OUT $ P MOVE DEBINW4,W11 4 P B OUT N PATT10 0 P MOVE DEBINW4,=W'35' 'OUT-DEV NOT OPERABLE' j POUT ( P PERF COND SET/CLEAR CONDITION REG. P RET P PEND P* > P* RELEASE DE
0x1ec928…1ecabc Dummy {f00=0x009c, f01=0x0190, f02=» P* 0 P* THIS ROUTINE CALCULATE FIELDNUMBER FOR A , P* RELATIVE FIELD ADRESSING TYP + OR - B P* r PDEFIND PROC VAR1,VAR2 | P PBIN VAR1 P PBIN VAR2 ( P XCOPY VAR1,W1,W1,BPOOL(BIN11),BIN12 P CBL VAR1,=W'254',UTFIN
0x1ecabc…1ecc50 Dummy {f00=0x009c, f01=0x0190, f02=»VAR2 P RET PDEFI00 P ADD VAR2,BIN2 & P MOVE VAR1,VAR2 < PUTFIN T P RET b P PEND n P | EJECT * * FORMATS * F00ST FRMT FSL FUL P FCOPY =C'PTS' P FILLR ' '
0x1ecc50…1ecde4 Dummy {f00=0x009c, f01=0x0190, f02=» FNL FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 8 P FMEL 'XX',PRNUM d FBF BOOL1,F00OUT | FNL ( P FCOPY =C'10 SUPERVISORY FUNCTIONS' FNL P FTEXT '20 ' P FCOPY =C'FORMAT' P
0x1ecde4…1ecf78 Dummy {f00=0x009c, f01=0x0190, f02=»FINITION' FNL P FTEXT '40 ' P FCOPY =C'ENTRY' 2 P FILLR ' ',1 J P FCOPY =C'MODE' ^ FNL v P FTEXT '50 ' P FCOPY =C'SEARCH' P FILLR ' ',1 P FCOPY =C'MODE' FNL P FTEXT '60 ' P FCOPY =C'VE
0x1ecf78…1ed10c Dummy {f00=0x009c, f01=0x0190, f02=»' P FNL F00OUT FMEND $ PF00RET FRMT 2 P FSL F $ P FTEXT 'RETURN FROM DATA-ENTRY' R P FNL z P FKI 1 P FCOPY HEX00 P FMEND P EJECT $ P******************************* $ P* TABLE = VALUE-SET NO.
0x1ed10c…1ed2a0 Dummy {f00=0x009c, f01=0x0190, f02=»RMT P FSL P FMEL '99',PRNUM P FBT BOOL1,F13 0 P FCOPY =C' CREATE' F P FB F12A ` PF13 FCOPY =C' GET' p PF12A FCOPY =C' VALUE-SETS' P FNL P FCOPY =C'NAME: T' P FBT BOOL2,F12B P FINP 7 P FCOPY TABLE
0x1ed2a0…1ed434 (2, 15) Dummy {f00=0x009c, f01=0x0190, f02=»F12C P FLINK F121 PF12UT FMEND P* 4 PF121 FRMT > P FNL P P FCOPY =C'TYPE:' P FBT BOOL3,F121A t P FBF BOOL1,F124 IF CREATE PF121A P FINP 7 P FCOPY STR2A P FB F125 PF124 8 P FKI 7,MINL=
0x1ed434…1ed5c8 Dummy {f00=0x009c, f01=0x0190, f02=»EMENT' P FCOPY =C'S:' P FBT BOOL3,F125A $ P FBF BOOL1,F127 IF CREATE < PF125A ^ P FINP 28 l P FMEL 'XX',TIME | P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103 <61 P FMEL 'XX',TIME PF1
0x1ed5c8…1ed75c Dummy {f00=0x009c, f01=0x018e, f02=»'XX',ACK(W1) P FNL P* FLINK STR64A P FCTL X'DE',STR64A 6 PFEND P P FMEND P* j PFORMN FRMT t * P FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) P FNL P FKI 1,MINL=0,MAXL=0
0x1ed75c…1ed8f0 Dummy {f00=0x009c, f01=0x409c, f02=» z 6 P 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
0x1ed8f0…1eda84 Dummy {f00=0x009c, 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
0x1eda84…1edc18 Dummy {f00=0x009c, f01=0x0190, f02=»R X ' 3 X ! 3 3 3 X " 9b! X :c 2" Rd 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 +tW U X Q ,rW Y 0 +l , 7 6 3 9H Y * *.W W * 6 X 0T
0x1edc18…1eddac Dummy {f00=0x009c, f01=0x0190, f02=» Y + U Q Rd Y Q P W W Y ( +l C 3 X *! P V L ! 3 ;^ 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 +! Rd X +! U 9K Y ( Y + +l , 3 9H Y *
0x1eddac…1edf40 Dummy {f00=0x009c, f01=0x0190, f02=» C B _( _ X * * P * B _N ( 4& X D D : K + Q 2 P. P8 =V K ( 42 B X # V : = K _0 @:_>M M = M M M M M M KlJlKlJ&- .h.hM , M K W W X 0Q ,r ,p Y ( Y *P 6 I4
0x1edf40…1ee0d4 (2, 16) Opaque[0x194]
0x1ee0d4…1ee268 # DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1398, f03=0x0000}
0x1ee0d4…1ee268 IdxSect {
0x1ee0d4…1ee268 f00 = 0x009c // 0x1ee0d4 @0x0
0x1ee0d4…1ee268 f01 = 0x0004 // 0x1ee0d6 @0x2
0x1ee0d4…1ee268 gno = [ // 0x1ee0d8 @0x4
0x1ee0d4…1ee268 [0x00]: C0x009c.0x3.0
0x1ee0d4…1ee268 [0x01]: C0x009d.0x0.0
0x1ee0d4…1ee268 ]
0x1ee0d4…1ee268 }
0x1ee268…1ee3fc Dummy {f00=0x009c, 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*
0x1ee3fc…1ee590 Dummy {f00=0x009c, 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
0x1ee590…1ee724 Dummy {f00=0x009c, 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
0x1ee724…1ee8b8 Dummy {f00=0x009c, 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
0x1ee8b8…1eea4c Dummy {f00=0x009c, 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
0x1eea4c…1eebe0 Dummy {f00=0x009c, 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
0x1eebe0…1eed74 (2, 17) Dummy {f00=0x009d, 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
0x1eed74…1eef08 Dummy {f00=0x009d, 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
0x1eef08…1ef09c Dummy {f00=0x009d, 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
0x1ef09c…1ef230 Dummy {f00=0x009d, 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
0x1ef230…1ef3c4 Dummy {f00=0x009d, 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
0x1ef3c4…1ef558 Dummy {f00=0x009d, 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
0x1ef558…1ef6ec Dummy {f00=0x009d, 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 $ * &
0x1ef6ec…1ef880 Dummy {f00=0x009d, 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
0x1ef880…1efa14 (2, 18) Opaque[0x194]
0x1efa14…1efba8 # DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13a8, f03=0x0000}
0x1efa14…1efba8 IdxSect {
0x1efa14…1efba8 f00 = 0x009d // 0x1efa14 @0x0
0x1efa14…1efba8 f01 = 0x0002 // 0x1efa16 @0x2
0x1efa14…1efba8 gno = [ // 0x1efa18 @0x4
0x1efa14…1efba8 [0x00]: C0x009d.0x1.0
0x1efa14…1efba8 ]
0x1efa14…1efba8 }
0x1efba8…1efd3c Dummy {f00=0x009d, 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
0x1efd3c…1efed0 Dummy {f00=0x009d, 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
0x1efed0…1f0064 Dummy {f00=0x009d, 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
0x1f0064…1f01f8 Dummy {f00=0x009d, 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
0x1f01f8…1f038c Dummy {f00=0x009d, 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
0x1f038c…1f0520 Dummy {f00=0x009d, 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 ?+
0x1f0520…1f06b4 (2, 19) Opaque[0x194]
0x1f06b4…1f0848 # DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13b0, f03=0x0000}
0x1f06b4…1f0848 IdxSect {
0x1f06b4…1f0848 f00 = 0x009d // 0x1f06b4 @0x0
0x1f06b4…1f0848 f01 = 0x0004 // 0x1f06b6 @0x2
0x1f06b4…1f0848 gno = [ // 0x1f06b8 @0x4
0x1f06b4…1f0848 [0x00]: C0x009d.0x2.0
0x1f06b4…1f0848 [0x01]: C0x009d.0x3.0
0x1f06b4…1f0848 ]
0x1f06b4…1f0848 }
0x1f0848…1f09dc Dummy {f00=0x009d, 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
0x1f09dc…1f0b70 Dummy {f00=0x009d, 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
0x1f0b70…1f0d04 Dummy {f00=0x009d, 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
0x1f0d04…1f0e98 Dummy {f00=0x009d, 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
0x1f0e98…1f102c Dummy {f00=0x009d, 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
0x1f102c…1f11c0 Dummy {f00=0x009d, 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
0x1f11c0…1f1354 (2, 20) Dummy {f00=0x009d, 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
0x1f1354…1f14e8 Dummy {f00=0x009d, f01=0x0002, f02=»#
0x1f14e8…1f167c Dummy {f00=0x009d, 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 @ `
0x1f167c…1f1810 Dummy {f00=0x009d, 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
0x1f1810…1f19a4 Dummy {f00=0x009d, 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
0x1f19a4…1f1b38 Dummy {f00=0x009d, 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
0x1f1b38…1f1ccc Dummy {f00=0x009d, 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
0x1f1ccc…1f1e60 Dummy {f00=0x009d, 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"
0x1f1e60…1f1ff4 (2, 21) Opaque[0x194]
0x1f1ff4…1f2188 # DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c0, f03=0x0000}
0x1f1ff4…1f2188 IdxSect {
0x1f1ff4…1f2188 f00 = 0x009e // 0x1f1ff4 @0x0
0x1f1ff4…1f2188 f01 = 0x0006 // 0x1f1ff6 @0x2
0x1f1ff4…1f2188 gno = [ // 0x1f1ff8 @0x4
0x1f1ff4…1f2188 [0x00]: C0x009e.0x0.0
0x1f1ff4…1f2188 [0x01]: C0x009e.0x1.0
0x1f1ff4…1f2188 [0x02]: C0x009e.0x2.0
0x1f1ff4…1f2188 ]
0x1f1ff4…1f2188 }
0x1f2188…1f231c Dummy {f00=0x009e, 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
0x1f231c…1f24b0 Dummy {f00=0x009e, 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
0x1f24b0…1f2644 Dummy {f00=0x009e, 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
0x1f2644…1f27d8 Dummy {f00=0x009e, 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
0x1f27d8…1f296c Dummy {f00=0x009e, 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
0x1f296c…1f2b00 Dummy {f00=0x009e, 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
0x1f2b00…1f2c94 (2, 22) Dummy {f00=0x009e, 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
0x1f2c94…1f2e28 Dummy {f00=0x009e, 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
0x1f2e28…1f2fbc Dummy {f00=0x009e, 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
0x1f2fbc…1f3150 Dummy {f00=0x009e, 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
0x1f3150…1f32e4 Dummy {f00=0x009e, 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
0x1f32e4…1f3478 Dummy {f00=0x009e, 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
0x1f3478…1f360c Dummy {f00=0x009e, 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
0x1f360c…1f37a0 Dummy {f00=0x009e, 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
0x1f37a0…1f3934 (2, 23) Dummy {f00=0x009e, f01=0x405c, f02=»ND PBELL FRMT P FSL P FILLR X'07',1 ( P FMEND > P END L@ X
0x1f3934…1f3ac8 Dummy {f00=0x009e, f01=0x2008, f02=»
0x1f3ac8…1f3c5c Dummy {f00=0x009e, 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
0x1f3c5c…1f3df0 Dummy {f00=0x009e, 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
0x1f3df0…1f3f84 Dummy {f00=0x009e, 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$
0x1f3f84…1f4118 Dummy {f00=0x009e, 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$
0x1f4118…1f42ac Dummy {f00=0x009e, 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
0x1f42ac…1f4440 Dummy {f00=0x009e, 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
0x1f4440…1f45d4 (2, 24) Opaque[0x194]
0x1f45d4…1f4768 # DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x1f45d4…1f4768 IdxSect {
0x1f45d4…1f4768 f00 = 0x009e // 0x1f45d4 @0x0
0x1f45d4…1f4768 f01 = 0x000a // 0x1f45d6 @0x2
0x1f45d4…1f4768 gno = [ // 0x1f45d8 @0x4
0x1f45d4…1f4768 [0x00]: C0x009e.0x3.0
0x1f45d4…1f4768 [0x01]: C0x009f.0x0.0
0x1f45d4…1f4768 [0x02]: C0x009f.0x1.0
0x1f45d4…1f4768 [0x03]: C0x009f.0x2.0
0x1f45d4…1f4768 [0x04]: C0x009f.0x3.0
0x1f45d4…1f4768 ]
0x1f45d4…1f4768 }
0x1f4768…1f48fc Dummy {f00=0x009e, 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*
0x1f48fc…1f4a90 Dummy {f00=0x009e, 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
0x1f4a90…1f4c24 Dummy {f00=0x009e, 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
0x1f4c24…1f4db8 Dummy {f00=0x009e, 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
0x1f4db8…1f4f4c Dummy {f00=0x009e, 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
0x1f4f4c…1f50e0 Dummy {f00=0x009e, 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
0x1f50e0…1f5274 (2, 25) Dummy {f00=0x009f, 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
0x1f5274…1f5408 Dummy {f00=0x009f, 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
0x1f5408…1f559c Dummy {f00=0x009f, 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
0x1f559c…1f5730 Dummy {f00=0x009f, 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
0x1f5730…1f58c4 Dummy {f00=0x009f, 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
0x1f58c4…1f5a58 Dummy {f00=0x009f, 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
0x1f5a58…1f5bec Dummy {f00=0x009f, 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
0x1f5bec…1f5d80 Dummy {f00=0x009f, 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
0x1f5d80…1f5f14 (2, 26) Dummy {f00=0x009f, 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
0x1f5f14…1f60a8 Dummy {f00=0x009f, 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
0x1f60a8…1f623c Dummy {f00=0x009f, 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
0x1f623c…1f63d0 Dummy {f00=0x009f, 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
0x1f63d0…1f6564 Dummy {f00=0x009f, 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,
0x1f6564…1f66f8 Dummy {f00=0x009f, 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
0x1f66f8…1f688c Dummy {f00=0x009f, 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
0x1f688c…1f6a20 Dummy {f00=0x009f, 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
0x1f6a20…1f6bb4 (2, 27) Dummy {f00=0x009f, 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
0x1f6bb4…1f6d48 Dummy {f00=0x009f, 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
0x1f6d48…1f6edc Dummy {f00=0x009f, 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
0x1f6edc…1f7070 Dummy {f00=0x009f, 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
0x1f7070…1f7204 Dummy {f00=0x009f, 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
0x1f7204…1f7398 Dummy {f00=0x009f, 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
0x1f7398…1f752c Dummy {f00=0x009f, 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
0x1f752c…1f76c0 Dummy {f00=0x009f, 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
0x1f76c0…1f7854 (2, 28) Dummy {f00=0x009f, 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
0x1f7854…1f79e8 Dummy {f00=0x009f, 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:
0x1f79e8…1f7b7c Dummy {f00=0x009f, 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 '
0x1f7b7c…1f7d10 Dummy {f00=0x009f, 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 =
0x1f7d10…1f7ea4 Dummy {f00=0x009f, 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
0x1f7ea4…1f8038 Dummy {f00=0x009f, 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
0x1f8038…1f81cc Dummy {f00=0x009f, 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 _
0x1f81cc…1f8360 Dummy {f00=0x009f, 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
0x1f8360…1f84f4 (2, 29) Opaque[0x194]
0x1f84f4…1f8688 # DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1400, f03=0x0000}
0x1f84f4…1f8688 IdxSect {
0x1f84f4…1f8688 f00 = 0x00a0 // 0x1f84f4 @0x0
0x1f84f4…1f8688 f01 = 0x000e // 0x1f84f6 @0x2
0x1f84f4…1f8688 gno = [ // 0x1f84f8 @0x4
0x1f84f4…1f8688 [0x00]: C0x00a0.0x0.0
0x1f84f4…1f8688 [0x01]: C0x00a0.0x1.0
0x1f84f4…1f8688 [0x02]: C0x00a0.0x2.0
0x1f84f4…1f8688 [0x03]: C0x00a0.0x3.0
0x1f84f4…1f8688 [0x04]: C0x00a1.0x0.0
0x1f84f4…1f8688 [0x05]: C0x00a1.0x1.0
0x1f84f4…1f8688 [0x06]: C0x00a1.0x2.0
0x1f84f4…1f8688 ]
0x1f84f4…1f8688 }
0x1f8688…1f881c Dummy {f00=0x00a0, f01=0x0190, f02=» $ P IDENT DEDDIV REL 10.0 80-04-11 P 80-03-24 , L M************************************************************************ @ * * L L* ********************************************************* 4 0* * ITE
0x1f881c…1f89b0 Dummy {f00=0x00a0, 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*
0x1f89b0…1f8b44 Dummy {f00=0x00a0, 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)
0x1f8b44…1f8cd8 Dummy {f00=0x00a0, 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*
0x1f8cd8…1f8e6c Dummy {f00=0x00a0, 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
0x1f8e6c…1f9000 Dummy {f00=0x00a0, 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
0x1f9000…1f9194 (2, 30) Dummy {f00=0x00a0, 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
0x1f9194…1f9328 Dummy {f00=0x00a0, 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
0x1f9328…1f94bc Dummy {f00=0x00a0, 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
0x1f94bc…1f9650 Dummy {f00=0x00a0, 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
0x1f9650…1f97e4 Dummy {f00=0x00a0, 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
0x1f97e4…1f9978 Dummy {f00=0x00a0, 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
0x1f9978…1f9b0c Dummy {f00=0x00a0, 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
0x1f9b0c…1f9ca0 Dummy {f00=0x00a0, 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
0x1f9ca0…1f9e34 (2, 31) Dummy {f00=0x00a0, 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'
0x1f9e34…1f9fc8 Dummy {f00=0x00a0, 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
0x1f9fc8…1fa15c Dummy {f00=0x00a0, 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
0x1fa15c…1fa2f0 Dummy {f00=0x00a0, 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
0x1fa2f0…1fa484 Dummy {f00=0x00a0, 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
0x1fa484…1fa618 Dummy {f00=0x00a0, 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 -
0x1fa618…1fa7ac Dummy {f00=0x00a0, 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
0x1fa7ac…1fa940 Dummy {f00=0x00a0, 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
0x1fa940…1faad4 (2, 32) Dummy {f00=0x00a0, 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
0x1faad4…1fac68 Dummy {f00=0x00a0, 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
0x1fac68…1fadfc Dummy {f00=0x00a0, 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
0x1fadfc…1faf90 Dummy {f00=0x00a0, 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
0x1faf90…1fb124 Dummy {f00=0x00a0, 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
0x1fb124…1fb2b8 Dummy {f00=0x00a0, 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.
0x1fb2b8…1fb44c Dummy {f00=0x00a0, 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
0x1fb44c…1fb5e0 Dummy {f00=0x00a0, 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.
0x1fb5e0…1fb774 (2, 33) Dummy {f00=0x00a1, 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
0x1fb774…1fb908 Dummy {f00=0x00a1, 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
0x1fb908…1fba9c Dummy {f00=0x00a1, 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
0x1fba9c…1fbc30 Dummy {f00=0x00a1, 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 ! (
0x1fbc30…1fbdc4 Dummy {f00=0x00a1, 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
0x1fbdc4…1fbf58 Dummy {f00=0x00a1, 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
0x1fbf58…1fc0ec Dummy {f00=0x00a1, 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
0x1fc0ec…1fc280 Dummy {f00=0x00a1, 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
0x1fc280…1fc414 (2, 34) Dummy {f00=0x00a1, 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 & * &
0x1fc414…1fc5a8 Dummy {f00=0x00a1, 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
0x1fc5a8…1fc73c Dummy {f00=0x00a1, 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
0x1fc73c…1fc8d0 Dummy {f00=0x00a1, 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
0x1fc8d0…1fca64 Dummy {f00=0x00a1, 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
0x1fca64…1fcbf8 Dummy {f00=0x00a1, 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
0x1fcbf8…1fcd8c Dummy {f00=0x00a1, 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
0x1fcd8c…1fcf20 Dummy {f00=0x00a1, 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
0x1fcf20…1fd0b4 (2, 35) Dummy {f00=0x00a1, 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
0x1fd0b4…1fd248 Dummy {f00=0x00a1, 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
0x1fd248…1fd3dc Dummy {f00=0x00a1, 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
0x1fd3dc…1fd570 Dummy {f00=0x00a1, 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
0x1fd570…1fd704 Dummy {f00=0x00a1, 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
0x1fd704…1fd898 Dummy {f00=0x00a1, 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
0x1fd898…1fda2c Dummy {f00=0x00a1, 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
0x1fda2c…1fdbc0 Dummy {f00=0x00a1, 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
0x1fdbc0…1fdd54 (2, 36) Opaque[0x194]
0x1fdd54…1fdee8 # DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x1fdd54…1fdee8 IdxSect {
0x1fdd54…1fdee8 f00 = 0x00a1 // 0x1fdd54 @0x0
0x1fdd54…1fdee8 f01 = 0x0004 // 0x1fdd56 @0x2
0x1fdd54…1fdee8 gno = [ // 0x1fdd58 @0x4
0x1fdd54…1fdee8 [0x00]: C0x00a1.0x3.0
0x1fdd54…1fdee8 [0x01]: C0x00a2.0x0.0
0x1fdd54…1fdee8 ]
0x1fdd54…1fdee8 }
0x1fdee8…1fe07c Dummy {f00=0x00a1, f01=0x0190, f02=» $ P IDENT CDVRUT REL 10.0 80-04-11 P 79-03-12/PEEN , P UPD 79-01-18/PEEN D P* ` P* j 6 P* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. t P* @ P* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING : P* AS
0x1fe07c…1fe210 Dummy {f00=0x00a1, f01=0x0190, f02=» LENGTH t P* P* 6 P* CALLING FORMAT: 1. CALL CDV10,STRING,BIN $ 6 P* 2. CALL CDV110,STRING,BIN ^ 6 P* 3. CALL CDV111,STRING,BIN P* D P* 'STRING' = A STRING
0x1fe210…1fe3a4 Dummy {f00=0x00a1, f01=0x0190, f02=»OT NUMERIC CHARACTERS ARE SKIPPED) j H P* 'BIN' = A BINARY ITEM HOLDING THE CHECK- * F P* DIGIT(S) AS OUTPUT IF THE CHECK v 8 P* WAS UNSUCCESSFUL P* P*
0x1fe3a4…1fe538 Dummy {f00=0x00a1, f01=0x0190, f02=» 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) P EJECT F P* USE OF REGISTERS T P* REGISTER USE t ( P* A1 COUNTER FOR MULTIPLY " P* A2 CURRENT WEIGHT & P* A4 CHARACTER SAVE AREA *
0x1fe538…1fe6cc Dummy {f00=0x00a1, f01=0x0190, f02=»SUM n " P* A10 SUM OF PRODUCTS P* 2 P* < P* PARAMETERS FOR CDV F < P* USE CONTENTS AT CDV10 CDV110 CDV111 f P* : P* MAX FOR RESTART OF WEIGHT 2 11 10 < P* DIVIDEND FOR TOTAL SU
0x1fe6cc…1fe860 Dummy {f00=0x00a1, f01=0x0190, f02=»VA0 P EXTRN I:RT1 P* P* * PCALL FORM 16=/F6A1,16 4 EJECT R CDV110 EQU * ` " LDK A6,11 LOAD RESTART LIMIT t CD005 EQU * P LDK A7,11 LOAD DIVIDEND RF CDV20 * * CDV111 EQU * "
0x1fe860…1fe9f4 (2, 37) Dummy {f00=0x00a2, 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
0x1fe9f4…1feb88 Dummy {f00=0x00a2, f01=0x0190, f02=» * * %* MULTIPLY AND ACCUMULATE ONE DIGIT LDR A1,A2 SET WEIGHT < CDV40 EQU * Z ADR A10,A4 ADD TO SUM n SUK A1,1 DECREMENT COUNTER RB(P) CDV40 IF MORE TO ADD & ! CWR A2,A6 MULTIPLY BY 2 IN CDV10 RF(NE) CD
0x1feb88…1fed1c Dummy {f00=0x00a2, f01=0x0190, f02=»2,1 INCREMENT WEIGHT CWR A2,A6 " RF(NG) CDV50 IF NOT MAX LIMIT . LDK A2,1 RESTART WEIGTH T CDV50 EQU * t SUK A5,1 DECREMENT POINTER RB CDV30 CONTINUE * CDV60 EQU * LDK A6,0 INDICATE OK P CWK A
0x1fed1c…1feeb0 Dummy {f00=0x00a2, f01=0x417a, f02=»CT 10/11 FROM SUM ~ RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK < P NGR A10,A10 GET CHECK DIGIT LDK A6,1 INDICATE NOT OK CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR
0x1feeb0…1ff044 Dummy {f00=0x00a2, 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
0x1ff044…1ff1d8 Dummy {f00=0x00a2, 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
0x1ff1d8…1ff36c Dummy {f00=0x00a2, f01=0x0190, f02=» ~ I:RT1 CREFIL L , , ( 5 D ' @ , ( O p CRFILE , ( i ' DELFIL , (
0x1ff36c…1ff500 Dummy {f00=0x00a2, f01=0x0190, f02=» z COPVOL , ( * GETVOL Z , ( ' n , ( ( B Q C C , ( ! ( B T B $ ' , ( A D
0x1ff500…1ff694 (2, 38) Opaque[0x194]
0x1ff694…1ff828 # DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1448, f03=0x0000}
0x1ff694…1ff828 IdxSect {
0x1ff694…1ff828 f00 = 0x00a2 // 0x1ff694 @0x0
0x1ff694…1ff828 f01 = 0x000a // 0x1ff696 @0x2
0x1ff694…1ff828 gno = [ // 0x1ff698 @0x4
0x1ff694…1ff828 [0x00]: C0x00a2.0x1.0
0x1ff694…1ff828 [0x01]: C0x00a2.0x2.0
0x1ff694…1ff828 [0x02]: C0x00a2.0x3.0
0x1ff694…1ff828 [0x03]: C0x00a3.0x0.0
0x1ff694…1ff828 [0x04]: C0x00a3.0x1.0
0x1ff694…1ff828 ]
0x1ff694…1ff828 }
0x1ff828…1ff9bc Dummy {f00=0x00a2, 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
0x1ff9bc…1ffb50 Dummy {f00=0x00a2, 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
0x1ffb50…1ffce4 Dummy {f00=0x00a2, 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****************************
0x1ffce4…1ffe78 Dummy {f00=0x00a2, 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
0x1ffe78…20000c Dummy {f00=0x00a2, 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
0x20000c…2001a0 Dummy {f00=0x00a2, 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
0x2001a0…200334 (2, 39) Dummy {f00=0x00a2, 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
0x200334…2004c8 Dummy {f00=0x00a2, 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
0x2004c8…20065c Dummy {f00=0x00a2, 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
0x20065c…2007f0 Dummy {f00=0x00a2, 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
0x2007f0…200984 Dummy {f00=0x00a2, 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
0x200984…200b18 Dummy {f00=0x00a2, 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,
0x200b18…200cac Dummy {f00=0x00a2, 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
0x200cac…200e40 Dummy {f00=0x00a2, 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
0x200e40…200fd4 (2, 40) Dummy {f00=0x00a2, 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
0x200fd4…201168 Dummy {f00=0x00a2, 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
0x201168…2012fc Dummy {f00=0x00a2, 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.
0x2012fc…201490 Dummy {f00=0x00a2, 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
0x201490…201624 Dummy {f00=0x00a2, 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
0x201624…2017b8 Dummy {f00=0x00a2, 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
0x2017b8…20194c Dummy {f00=0x00a2, 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
0x20194c…201ae0 Dummy {f00=0x00a2, 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
0x201ae0…201c74 (2, 41) Dummy {f00=0x00a3, 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 -
0x201c74…201e08 Dummy {f00=0x00a3, 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
0x201e08…201f9c Dummy {f00=0x00a3, 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
0x201f9c…202130 Dummy {f00=0x00a3, 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
0x202130…2022c4 Dummy {f00=0x00a3, 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
0x2022c4…202458 Dummy {f00=0x00a3, 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
0x202458…2025ec Dummy {f00=0x00a3, 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
0x2025ec…202780 Dummy {f00=0x00a3, 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
0x202780…202914 (2, 42) Dummy {f00=0x00a3, 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
0x202914…202aa8 Dummy {f00=0x00a3, 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
0x202aa8…202c3c Dummy {f00=0x00a3, 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
0x202c3c…202dd0 Dummy {f00=0x00a3, 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
0x202dd0…202f64 Dummy {f00=0x00a3, 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)
0x202f64…2030f8 Dummy {f00=0x00a3, 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)
0x2030f8…20328c Dummy {f00=0x00a3, 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
0x20328c…203420 Dummy {f00=0x00a3, 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
0x203420…2035b4 (2, 43) Opaque[0x194]
0x2035b4…203748 # DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1470, f03=0x0000}
0x2035b4…203748 IdxSect {
0x2035b4…203748 f00 = 0x00a3 // 0x2035b4 @0x0
0x2035b4…203748 f01 = 0x0008 // 0x2035b6 @0x2
0x2035b4…203748 gno = [ // 0x2035b8 @0x4
0x2035b4…203748 [0x00]: C0x00a3.0x2.0
0x2035b4…203748 [0x01]: C0x00a3.0x3.0
0x2035b4…203748 [0x02]: C0x00a4.0x0.0
0x2035b4…203748 [0x03]: C0x00a4.0x1.0
0x2035b4…203748 ]
0x2035b4…203748 }
0x203748…2038dc Dummy {f00=0x00a3, 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
0x2038dc…203a70 Dummy {f00=0x00a3, 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**************
0x203a70…203c04 Dummy {f00=0x00a3, 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
0x203c04…203d98 Dummy {f00=0x00a3, 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
0x203d98…203f2c Dummy {f00=0x00a3, 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
0x203f2c…2040c0 Dummy {f00=0x00a3, 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
0x2040c0…204254 (2, 44) Dummy {f00=0x00a3, 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
0x204254…2043e8 Dummy {f00=0x00a3, 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
0x2043e8…20457c Dummy {f00=0x00a3, 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
0x20457c…204710 Dummy {f00=0x00a3, 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,
0x204710…2048a4 Dummy {f00=0x00a3, 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****
0x2048a4…204a38 Dummy {f00=0x00a3, 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
0x204a38…204bcc Dummy {f00=0x00a3, 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
0x204bcc…204d60 Dummy {f00=0x00a3, 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(
0x204d60…204ef4 (2, 45) Dummy {f00=0x00a4, 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
0x204ef4…205088 Dummy {f00=0x00a4, 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
0x205088…20521c Dummy {f00=0x00a4, 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
0x20521c…2053b0 Dummy {f00=0x00a4, 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
0x2053b0…205544 Dummy {f00=0x00a4, 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
0x205544…2056d8 Dummy {f00=0x00a4, 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
0x2056d8…20586c Dummy {f00=0x00a4, 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=
0x20586c…205a00 Dummy {f00=0x00a4, 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,
0x205a00…205b94 (2, 46) Dummy {f00=0x00a4, 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,
0x205b94…205d28 Dummy {f00=0x00a4, 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
0x205d28…205ebc Dummy {f00=0x00a4, 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
0x205ebc…206050 Dummy {f00=0x00a4, 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
0x206050…2061e4 Dummy {f00=0x00a4, 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
0x2061e4…206378 Dummy {f00=0x00a4, 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
0x206378…20650c Dummy {f00=0x00a4, 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
0x20650c…2066a0 Dummy {f00=0x00a4, 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
0x2066a0…206834 (2, 47) Opaque[0x194]
0x206834…2069c8 # DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1490, f03=0x0000}
0x206834…2069c8 IdxSect {
0x206834…2069c8 f00 = 0x00a4 // 0x206834 @0x0
0x206834…2069c8 f01 = 0x0004 // 0x206836 @0x2
0x206834…2069c8 gno = [ // 0x206838 @0x4
0x206834…2069c8 [0x00]: C0x00a4.0x2.0
0x206834…2069c8 [0x01]: C0x00a4.0x3.0
0x206834…2069c8 ]
0x206834…2069c8 }
0x2069c8…206b5c Dummy {f00=0x00a4, 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
0x206b5c…206cf0 Dummy {f00=0x00a4, 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
0x206cf0…206e84 Dummy {f00=0x00a4, 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
0x206e84…207018 Dummy {f00=0x00a4, 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
0x207018…2071ac Dummy {f00=0x00a4, 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
0x2071ac…207340 Dummy {f00=0x00a4, 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
0x207340…2074d4 (2, 48) Dummy {f00=0x00a4, 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'
0x2074d4…207668 Dummy {f00=0x00a4, 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 * &
0x207668…2077fc Dummy {f00=0x00a4, 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
0x2077fc…207990 Dummy {f00=0x00a4, 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 # (
0x207990…207b24 Dummy {f00=0x00a4, 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 " * &
0x207b24…207cb8 Dummy {f00=0x00a4, 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 ' * &
0x207cb8…207e4c Dummy {f00=0x00a4, f01=0x412a, f02=» + z w q l E [ * * & ' 8 > ! & H * & E FETCHING FORMAT: FROM D v * & c ISC. @ U 0 0 * n < D
0x207e4c…207fe0 Dummy {f00=0x00a4, f01=0x4014, f02=» HNOD @ q l E [ DEREC2 , * & ' 8 n ! & > * & E FETCHING FORMAT: FROM D l * & c ISC. @ U 0 0 * n < D D
0x207fe0…208174 (2, 49) Opaque[0x194]
0x208174…208308 # DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14a0, f03=0x0000}
0x208174…208308 IdxSect {
0x208174…208308 f00 = 0x00a5 // 0x208174 @0x0
0x208174…208308 f01 = 0x0008 // 0x208176 @0x2
0x208174…208308 gno = [ // 0x208178 @0x4
0x208174…208308 [0x00]: C0x00a5.0x0.0
0x208174…208308 [0x01]: C0x00a5.0x1.0
0x208174…208308 [0x02]: C0x00a5.0x2.0
0x208174…208308 [0x03]: C0x00a5.0x3.0
0x208174…208308 ]
0x208174…208308 }
0x208308…20849c Dummy {f00=0x00a5, 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
0x20849c…208630 Dummy {f00=0x00a5, 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 *
0x208630…2087c4 Dummy {f00=0x00a5, f01=0x0190, f02=»C v " P* - 1 = REVERSED ACC 0 P* -2 = CORRECTION,IGNORE ZEROIZING 0 L L************************************************************************ d * DDUM DEDDIV PDIV * * ***** ENTRIES
0x2087c4…208958 Dummy {f00=0x00a5, 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**********************************************
0x208958…208aec Dummy {f00=0x00a5, 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
0x208aec…208c80 Dummy {f00=0x00a5, 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 *
0x208c80…208e14 (2, 50) Dummy {f00=0x00a5, 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 *
0x208e14…208fa8 Dummy {f00=0x00a5, 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
0x208fa8…20913c Dummy {f00=0x00a5, 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******************
0x20913c…2092d0 Dummy {f00=0x00a5, 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
0x2092d0…209464 Dummy {f00=0x00a5, 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
0x209464…2095f8 Dummy {f00=0x00a5, 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
0x2095f8…20978c Dummy {f00=0x00a5, 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
0x20978c…209920 Dummy {f00=0x00a5, 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 = ?
0x209920…209ab4 (2, 51) Dummy {f00=0x00a5, 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-
0x209ab4…209c48 Dummy {f00=0x00a5, 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
0x209c48…209ddc Dummy {f00=0x00a5, 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
0x209ddc…209f70 Dummy {f00=0x00a5, 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
0x209f70…20a104 Dummy {f00=0x00a5, 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
0x20a104…20a298 Dummy {f00=0x00a5, 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
0x20a298…20a42c Dummy {f00=0x00a5, 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
0x20a42c…20a5c0 Dummy {f00=0x00a5, 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
0x20a5c0…20a754 (2, 52) Dummy {f00=0x00a5, 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 *
0x20a754…20a8e8 Dummy {f00=0x00a5, 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
0x20a8e8…20aa7c Dummy {f00=0x00a5, f01=0x0058, f02=» SCR $TRA S=DENVAL $TRA S=DENT02 & SCR < ASG /E0,TY10 H 4 F B T F d@ F v
0x20aa7c…20ac10 Dummy {f00=0x00a5, f01=0x2008, f02=» $TRA S=DENVAL $TRA S=DENT02 & SCR < ASG /E0,TY10 H 4 F B T F d@ F v
0x20ac10…20ada4 Dummy {f00=0x00a5, f01=0x4014, f02=» HNOD @ OM DISC. @ U * & , * & " ) 2 <0 G Z * & = 0 H & * & [ 5 E U g * y } @
0x20ada4…20af38 Dummy {f00=0x00a5, 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 !( * * &
0x20af38…20b0cc Dummy {f00=0x00a5, 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 * &
0x20b0cc…20b260 Dummy {f00=0x00a5, 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
0x20b260…20b3f4 (2, 53) Opaque[0x194]
0x20b3f4…20b588 # DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14c0, f03=0x0000}
0x20b3f4…20b588 IdxSect {
0x20b3f4…20b588 f00 = 0x00a6 // 0x20b3f4 @0x0
0x20b3f4…20b588 f01 = 0x0006 // 0x20b3f6 @0x2
0x20b3f4…20b588 gno = [ // 0x20b3f8 @0x4
0x20b3f4…20b588 [0x00]: C0x00a6.0x0.0
0x20b3f4…20b588 [0x01]: C0x00a6.0x1.0
0x20b3f4…20b588 [0x02]: C0x00a6.0x2.0
0x20b3f4…20b588 ]
0x20b3f4…20b588 }
0x20b588…20b71c Dummy {f00=0x00a6, 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
0x20b71c…20b8b0 Dummy {f00=0x00a6, 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
0x20b8b0…20ba44 Dummy {f00=0x00a6, 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
0x20ba44…20bbd8 Dummy {f00=0x00a6, 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
0x20bbd8…20bd6c Dummy {f00=0x00a6, 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
0x20bd6c…20bf00 Dummy {f00=0x00a6, 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
0x20bf00…20c094 (2, 54) Dummy {f00=0x00a6, 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
0x20c094…20c228 Dummy {f00=0x00a6, 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
0x20c228…20c3bc Dummy {f00=0x00a6, 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'
0x20c3bc…20c550 Dummy {f00=0x00a6, 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
0x20c550…20c6e4 Dummy {f00=0x00a6, 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
0x20c6e4…20c878 Dummy {f00=0x00a6, 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 =
0x20c878…20ca0c Dummy {f00=0x00a6, 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
0x20ca0c…20cba0 Dummy {f00=0x00a6, 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
0x20cba0…20cd34 (2, 55) Dummy {f00=0x00a6, f01=0x2008, f02=»
0x20cd34…20cec8 Dummy {f00=0x00a6, 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
0x20cec8…20d05c Dummy {f00=0x00a6, 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
0x20d05c…20d1f0 Dummy {f00=0x00a6, 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
0x20d1f0…20d384 Dummy {f00=0x00a6, 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
0x20d384…20d518 Dummy {f00=0x00a6, 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
0x20d518…20d6ac Dummy {f00=0x00a6, 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
0x20d6ac…20d840 Dummy {f00=0x00a6, 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
0x20d840…20d9d4 (2, 56) Opaque[0x194]
0x20d9d4…20db68 # DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14d8, f03=0x0000}
0x20d9d4…20db68 IdxSect {
0x20d9d4…20db68 f00 = 0x00a6 // 0x20d9d4 @0x0
0x20d9d4…20db68 f01 = 0x000a // 0x20d9d6 @0x2
0x20d9d4…20db68 gno = [ // 0x20d9d8 @0x4
0x20d9d4…20db68 [0x00]: C0x00a6.0x3.0
0x20d9d4…20db68 [0x01]: C0x00a7.0x0.0
0x20d9d4…20db68 [0x02]: C0x00a7.0x1.0
0x20d9d4…20db68 [0x03]: C0x00a7.0x2.0
0x20d9d4…20db68 [0x04]: C0x00a7.0x3.0
0x20d9d4…20db68 ]
0x20d9d4…20db68 }
0x20db68…20dcfc Dummy {f00=0x00a6, 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 DDUM DEDDIV d PDIV x P ENTRY DE70ST P ENTRY DEAP7A * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P
0x20dcfc…20de90 Dummy {f00=0x00a6, 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
0x20de90…20e024 Dummy {f00=0x00a6, 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
0x20e024…20e1b8 Dummy {f00=0x00a6, 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*
0x20e1b8…20e34c Dummy {f00=0x00a6, 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
0x20e34c…20e4e0 Dummy {f00=0x00a6, 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
0x20e4e0…20e674 (2, 57) Dummy {f00=0x00a7, 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*********************************************
0x20e674…20e808 Dummy {f00=0x00a7, 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
0x20e808…20e99c Dummy {f00=0x00a7, 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
0x20e99c…20eb30 Dummy {f00=0x00a7, f01=0x0190, f02=» | P* PDE70CA P CLEAR DEPROMPT P B DEST50 8 * J P* RETURN-KEY PRESSED T * p PDE70RE z * P CLEAR DOOL3 DATAENTERING ON USERFILE P PERF OPCL,W4 CLOSE USERFILE P BNERR DERE20 P MOVE DEBINW1,W0 P
0x20eb30…20ecc4 Dummy {f00=0x00a7, f01=0x0190, f02=»TURN FROM THIS MODE P MOVE BIN1,W0 PDERE30 2 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
0x20ecc4…20ee58 Dummy {f00=0x00a7, f01=0x0190, f02=» MODE l * P* THESE ROUTINES USE THE DENTER-SCREEN * P************************************** < * j P* ENTER-KEY PRESSED t P* PDE70EN P TBT BOOL2,DEOPEN PDEEN10 P CBNE BIN1,W7,DERE30 P CLEAR BOOL3 PROGRAM 72
0x20ee58…20efec Dummy {f00=0x00a7, 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
0x20efec…20f180 Dummy {f00=0x00a7, 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
0x20f180…20f314 (2, 58) Dummy {f00=0x00a7, 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
0x20f314…20f4a8 Dummy {f00=0x00a7, 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
0x20f4a8…20f63c Dummy {f00=0x00a7, 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
0x20f63c…20f7d0 Dummy {f00=0x00a7, 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
0x20f7d0…20f964 Dummy {f00=0x00a7, 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
0x20f964…20faf8 Dummy {f00=0x00a7, 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
0x20faf8…20fc8c Dummy {f00=0x00a7, 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
0x20fc8c…20fe20 Dummy {f00=0x00a7, 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
0x20fe20…20ffb4 (2, 59) Dummy {f00=0x00a7, 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
0x20ffb4…210148 Dummy {f00=0x00a7, 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
0x210148…2102dc Dummy {f00=0x00a7, 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
0x2102dc…210470 Dummy {f00=0x00a7, 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
0x210470…210604 Dummy {f00=0x00a7, 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
0x210604…210798 Dummy {f00=0x00a7, 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
0x210798…21092c Dummy {f00=0x00a7, 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
0x21092c…210ac0 Dummy {f00=0x00a7, f01=0x0190, f02=»NW4,W9 NOT FOUND P B DEANOK P PEND * EJECT 8 * F * FORMATS P * h PF70ST FRMT r FSL P FTEXT '70 ' P FCOPY =C'CONVERSION' $$ FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI
0x210ac0…210c54 (2, 60) Dummy {f00=0x00a7, f01=0x0190, f02=» FSL P FLINK F71S 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 FNL P FLINK F71UV P F
0x210c54…210de8 Dummy {f00=0x00a7, 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
0x210de8…210f7c Dummy {f00=0x00a7, 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
0x210f7c…211110 Dummy {f00=0x00a7, 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 ! FMEND ! PF71END FRMT !
0x211110…2112a4 Dummy {f00=0x00a7, 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=6,NEOI " P FCOPY STSAVE(W4) " P FMEND " PFFETCH FRMT "
0x2112a4…211438 Dummy {f00=0x00a7, f01=0x403a, f02=»COPY HEX00 " P FMEND # P* # END # *@ # 6E(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=6,NEOI " P FCOPY STSAVE(W4) " P FMEND " PFFETCH FRMT "
0x211438…2115cc Dummy {f00=0x00a7, 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
0x2115cc…211760 Dummy {f00=0x00a7, f01=0x0190, f02=» [ >h [ [ E8?r E8?r E8= Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P E8= V H )_ E8B _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 L
0x211760…2118f4 (2, 61) Opaque[0x194]
0x2118f4…211a88 # DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x2118f4…211a88 IdxSect {
0x2118f4…211a88 f00 = 0x00a8 // 0x2118f4 @0x0
0x2118f4…211a88 f01 = 0x0004 // 0x2118f6 @0x2
0x2118f4…211a88 gno = [ // 0x2118f8 @0x4
0x2118f4…211a88 [0x00]: C0x00a8.0x0.0
0x2118f4…211a88 [0x01]: C0x00a8.0x1.0
0x2118f4…211a88 ]
0x2118f4…211a88 }
0x211a88…211c1c Dummy {f00=0x00a8, 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
0x211c1c…211db0 Dummy {f00=0x00a8, 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
0x211db0…211f44 Dummy {f00=0x00a8, 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
0x211f44…2120d8 Dummy {f00=0x00a8, 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
0x2120d8…21226c Dummy {f00=0x00a8, 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
0x21226c…212400 Dummy {f00=0x00a8, 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
0x212400…212594 (2, 62) Dummy {f00=0x00a8, f01=0x2008, f02=»
0x212594…212728 Dummy {f00=0x00a8, 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
0x212728…2128bc Dummy {f00=0x00a8, 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
0x2128bc…212a50 Dummy {f00=0x00a8, 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
0x212a50…212be4 Dummy {f00=0x00a8, 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
0x212be4…212d78 Dummy {f00=0x00a8, 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
0x212d78…212f0c Dummy {f00=0x00a8, 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
0x212f0c…2130a0 Dummy {f00=0x00a8, 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
0x2130a0…213234 (2, 63) Opaque[0x194]
0x213234…2133c8 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1510, f03=0x0000}
0x213234…2133c8 IdxSect {
0x213234…2133c8 f00 = 0x00a8 // 0x213234 @0x0
0x213234…2133c8 f01 = 0x0004 // 0x213236 @0x2
0x213234…2133c8 gno = [ // 0x213238 @0x4
0x213234…2133c8 [0x00]: C0x00a8.0x2.0
0x213234…2133c8 [0x01]: C0x00a8.0x3.0
0x213234…2133c8 ]
0x213234…2133c8 }
0x2133c8…21355c Dummy {f00=0x00a8, 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
0x21355c…2136f0 Dummy {f00=0x00a8, 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
0x2136f0…213884 Dummy {f00=0x00a8, 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'
0x213884…213a18 Dummy {f00=0x00a8, 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
0x213a18…213bac Dummy {f00=0x00a8, 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
0x213bac…213d40 Dummy {f00=0x00a8, 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
0x213d40…213ed4 (2, 64) Dummy {f00=0x00a8, 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
0x213ed4…214068 Dummy {f00=0x00a8, 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
0x214068…2141fc Dummy {f00=0x00a8, 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
0x2141fc…214390 Dummy {f00=0x00a8, 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
0x214390…214524 Dummy {f00=0x00a8, 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
0x214524…2146b8 Dummy {f00=0x00a8, 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 *
0x2146b8…21484c Dummy {f00=0x00a8, 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
0x21484c…2149e0 Dummy {f00=0x00a8, 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
0x2149e0…214b74 (2, 65) Opaque[0x194]
0x214b74…214d08 # DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1520, f03=0x0000}
0x214b74…214d08 IdxSect {
0x214b74…214d08 f00 = 0x00a9 // 0x214b74 @0x0
0x214b74…214d08 f01 = 0x0014 // 0x214b76 @0x2
0x214b74…214d08 gno = [ // 0x214b78 @0x4
0x214b74…214d08 [0x00]: C0x00a9.0x0.0
0x214b74…214d08 [0x01]: C0x00a9.0x1.0
0x214b74…214d08 [0x02]: C0x00a9.0x2.0
0x214b74…214d08 [0x03]: C0x00a9.0x3.0
0x214b74…214d08 [0x04]: C0x00aa.0x0.0
0x214b74…214d08 [0x05]: C0x00aa.0x1.0
0x214b74…214d08 [0x06]: C0x00aa.0x2.0
0x214b74…214d08 [0x07]: C0x00aa.0x3.0
0x214b74…214d08 [0x08]: C0x00ab.0x0.0
0x214b74…214d08 [0x09]: C0x00ab.0x1.0
0x214b74…214d08 ]
0x214b74…214d08 }
0x214d08…214e9c Dummy {f00=0x00a9, 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
0x214e9c…215030 Dummy {f00=0x00a9, 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
0x215030…2151c4 Dummy {f00=0x00a9, 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
0x2151c4…215358 Dummy {f00=0x00a9, 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
0x215358…2154ec Dummy {f00=0x00a9, 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
0x2154ec…215680 Dummy {f00=0x00a9, 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
0x215680…215814 (2, 66) Dummy {f00=0x00a9, 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
0x215814…2159a8 Dummy {f00=0x00a9, 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
0x2159a8…215b3c Dummy {f00=0x00a9, 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
0x215b3c…215cd0 Dummy {f00=0x00a9, 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
0x215cd0…215e64 Dummy {f00=0x00a9, 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
0x215e64…215ff8 Dummy {f00=0x00a9, 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
0x215ff8…21618c Dummy {f00=0x00a9, 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
0x21618c…216320 Dummy {f00=0x00a9, 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
0x216320…2164b4 (2, 67) Dummy {f00=0x00a9, 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
0x2164b4…216648 Dummy {f00=0x00a9, 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
0x216648…2167dc Dummy {f00=0x00a9, 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
0x2167dc…216970 Dummy {f00=0x00a9, 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
0x216970…216b04 Dummy {f00=0x00a9, 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*
0x216b04…216c98 Dummy {f00=0x00a9, 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
0x216c98…216e2c Dummy {f00=0x00a9, 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
0x216e2c…216fc0 Dummy {f00=0x00a9, 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
0x216fc0…217154 (2, 68) Dummy {f00=0x00a9, 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 *
0x217154…2172e8 Dummy {f00=0x00a9, 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
0x2172e8…21747c Dummy {f00=0x00a9, 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
0x21747c…217610 Dummy {f00=0x00a9, 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'
0x217610…2177a4 Dummy {f00=0x00a9, 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
0x2177a4…217938 Dummy {f00=0x00a9, 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
0x217938…217acc Dummy {f00=0x00a9, 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
0x217acc…217c60 Dummy {f00=0x00a9, 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
0x217c60…217df4 (2, 69) Dummy {f00=0x00aa, 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=
0x217df4…217f88 Dummy {f00=0x00aa, 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
0x217f88…21811c Dummy {f00=0x00aa, 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
0x21811c…2182b0 Dummy {f00=0x00aa, 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 !
0x2182b0…218444 Dummy {f00=0x00aa, 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
0x218444…2185d8 Dummy {f00=0x00aa, 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*
0x2185d8…21876c Dummy {f00=0x00aa, 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
0x21876c…218900 Dummy {f00=0x00aa, 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
0x218900…218a94 (2, 70) Dummy {f00=0x00aa, 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
0x218a94…218c28 Dummy {f00=0x00aa, 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
0x218c28…218dbc Dummy {f00=0x00aa, 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*
0x218dbc…218f50 Dummy {f00=0x00aa, 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
0x218f50…2190e4 Dummy {f00=0x00aa, 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
0x2190e4…219278 Dummy {f00=0x00aa, 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
0x219278…21940c Dummy {f00=0x00aa, 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 ,
0x21940c…2195a0 Dummy {f00=0x00aa, 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
0x2195a0…219734 (2, 71) Dummy {f00=0x00aa, 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 .
0x219734…2198c8 Dummy {f00=0x00aa, 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
0x2198c8…219a5c Dummy {f00=0x00aa, 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*
0x219a5c…219bf0 Dummy {f00=0x00aa, 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
0x219bf0…219d84 Dummy {f00=0x00aa, 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
0x219d84…219f18 Dummy {f00=0x00aa, 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*
0x219f18…21a0ac Dummy {f00=0x00aa, 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
0x21a0ac…21a240 Dummy {f00=0x00aa, 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
0x21a240…21a3d4 (2, 72) Dummy {f00=0x00aa, 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
0x21a3d4…21a568 Dummy {f00=0x00aa, 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
0x21a568…21a6fc Dummy {f00=0x00aa, 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
0x21a6fc…21a890 Dummy {f00=0x00aa, 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*
0x21a890…21aa24 Dummy {f00=0x00aa, 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
0x21aa24…21abb8 Dummy {f00=0x00aa, 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
0x21abb8…21ad4c Dummy {f00=0x00aa, 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
0x21ad4c…21aee0 Dummy {f00=0x00aa, 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
0x21aee0…21b074 (2, 73) Dummy {f00=0x00ab, 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
0x21b074…21b208 Dummy {f00=0x00ab, 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
0x21b208…21b39c Dummy {f00=0x00ab, 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
0x21b39c…21b530 Dummy {f00=0x00ab, 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
0x21b530…21b6c4 Dummy {f00=0x00ab, 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
0x21b6c4…21b858 Dummy {f00=0x00ab, 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
0x21b858…21b9ec Dummy {f00=0x00ab, 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
0x21b9ec…21bb80 Dummy {f00=0x00ab, 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
0x21bb80…21bd14 (2, 74) Dummy {f00=0x00ab, f01=0x0190, f02=» & COPY USERFIL $ 6 $ # F ( V b & r WHOLE FILE ? Y/N: $ & & F $ Q ( ! & "
0x21bd14…21bea8 Dummy {f00=0x00ab, f01=0x018e, f02=» $ $ & % UNIT NO.:O $ % 8 & H & E Z & h & VOLUME-NAME: v $ & & ! & H & H ' OUTPUT $ ' & (
0x21bea8…21c03c Dummy {f00=0x00ab, f01=0x018e, f02=» & H $ Q ( " * + . & > + CHANGE VOLUME-NAME L $ + n & ~ , INPUT $ , & - UNIT NO.:L $ - & & E
0x21c03c…21c1d0 Dummy {f00=0x00ab, f01=0x0190, f02=» & 0 VOLUME-NAME: $ 0 . & > & P $ Q ^ ( n 1 z & 2 CREATE FILE: $ 2 $ 6 ( 3 & 4 DE
0x21c1d0…21c364 Dummy {f00=0x00ab, f01=0x0190, f02=» 7 UNIT: UF $ 7 & ( & E : & H 8 VOLUME-NAME: V $ 8 r & & H & H 9 FILE $ 9 & : : $ : &
0x21c364…21c4f8 Dummy {f00=0x00ab, f01=0x0190, f02=»= & > FILE $ > , & < ? 2 = J $ ? ^ & n @ USER | $ @ & A FILE $ A & B 3 = $ B &
0x21c4f8…21c68c Dummy {f00=0x00ab, f01=0x0190, f02=» E & F DELETE $ F 0 & @ G USERDEFINED: N $ G j & z H FILE $ H & I FILE $ I & J NAME: $
0x21c68c…21c820 Dummy {f00=0x00ab, f01=0x0190, f02=»L & M UNIT: US $ M 0 & @ & E R & ` N VOLUME-NAME: n $ N & & H $ Q ( O & " P PRESS ENT TO CON
0x21c820…21c9b4 (2, 75) Opaque[0x194]
0x21c9b4…21cb48 # DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1570, f03=0x0000}
0x21c9b4…21cb48 IdxSect {
0x21c9b4…21cb48 f00 = 0x00ab // 0x21c9b4 @0x0
0x21c9b4…21cb48 f01 = 0x0010 // 0x21c9b6 @0x2
0x21c9b4…21cb48 gno = [ // 0x21c9b8 @0x4
0x21c9b4…21cb48 [0x00]: C0x00ab.0x2.0
0x21c9b4…21cb48 [0x01]: C0x00ab.0x3.0
0x21c9b4…21cb48 [0x02]: C0x00ac.0x0.0
0x21c9b4…21cb48 [0x03]: C0x00ac.0x1.0
0x21c9b4…21cb48 [0x04]: C0x00ac.0x2.0
0x21c9b4…21cb48 [0x05]: C0x00ac.0x3.0
0x21c9b4…21cb48 [0x06]: C0x00ad.0x0.0
0x21c9b4…21cb48 [0x07]: C0x00ad.0x1.0
0x21c9b4…21cb48 ]
0x21c9b4…21cb48 }
0x21cb48…21ccdc Dummy {f00=0x00ab, f01=0x018e, f02=» $ P IDENT DENTER REL 10.0 80-04-11 P UPD 80-11-06/DALI , P UPD 80-10-21/DALI H P UPD 80-06-28/DALI d P UPD 80-04-14/DALI . P****************************************** . P* THIS ROUTINE HANDLE THE KEYBOARD INPUT * . P* AND IS
0x21ccdc…21ce70 Dummy {f00=0x00ab, f01=0x0190, f02=» d 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
0x21ce70…21d004 Dummy {f00=0x00ab, 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
0x21d004…21d198 Dummy {f00=0x00ab, 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
0x21d198…21d32c Dummy {f00=0x00ab, 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
0x21d32c…21d4c0 Dummy {f00=0x00ab, 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
0x21d4c0…21d654 (2, 76) Dummy {f00=0x00ab, 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
0x21d654…21d7e8 Dummy {f00=0x00ab, 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
0x21d7e8…21d97c Dummy {f00=0x00ab, 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
0x21d97c…21db10 Dummy {f00=0x00ab, 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
0x21db10…21dca4 Dummy {f00=0x00ab, 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*
0x21dca4…21de38 Dummy {f00=0x00ab, 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
0x21de38…21dfcc Dummy {f00=0x00ab, 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
0x21dfcc…21e160 Dummy {f00=0x00ab, 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
0x21e160…21e2f4 (2, 77) Dummy {f00=0x00ac, 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
0x21e2f4…21e488 Dummy {f00=0x00ac, 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
0x21e488…21e61c Dummy {f00=0x00ac, 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
0x21e61c…21e7b0 Dummy {f00=0x00ac, 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
0x21e7b0…21e944 Dummy {f00=0x00ac, 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
0x21e944…21ead8 Dummy {f00=0x00ac, 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
0x21ead8…21ec6c Dummy {f00=0x00ac, 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
0x21ec6c…21ee00 Dummy {f00=0x00ac, 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
0x21ee00…21ef94 (2, 78) Dummy {f00=0x00ac, 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
0x21ef94…21f128 Dummy {f00=0x00ac, 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
0x21f128…21f2bc Dummy {f00=0x00ac, 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
0x21f2bc…21f450 Dummy {f00=0x00ac, 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*
0x21f450…21f5e4 Dummy {f00=0x00ac, 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 (
0x21f5e4…21f778 Dummy {f00=0x00ac, 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
0x21f778…21f90c Dummy {f00=0x00ac, 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 (
0x21f90c…21faa0 Dummy {f00=0x00ac, 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
0x21faa0…21fc34 (2, 79) Dummy {f00=0x00ac, 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
0x21fc34…21fdc8 Dummy {f00=0x00ac, 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
0x21fdc8…21ff5c Dummy {f00=0x00ac, f01=0x0190, f02=»= N? x P BOK UPDR50 YES! PUPDR45 $ P SET DECHANGE 2 PUPDR50 H ( P MOVE DEBINW1,W0 SET INPUTLENGTH = 0 V P IB DEBINW2,KTFWD,DUMMY, C P KEOI,DUMMY,DUMMY,KTFWD, C ( P KTBWD,KTHOME,KERASE,KKEEP,KEOI, C * P KEOI,DUMMY,DUMMY
0x21ff5c…2200f0 Dummy {f00=0x00ac, f01=0x0190, f02=»Y PRETUR ! P RET ! P EJECT ! $ PKTFWD TAB. FORWARD 1 STEP ! 2 " P MOVE DEBINW2,W3 SIMULATE EOI ! V " PKEOI COMMON END-OF-ITEM KEY ! | 0 P TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE ! 4 P TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE REC.CH !
0x2200f0…220284 Dummy {f00=0x00ac, f01=0x0190, f02=»10 *** ! " P CLEAR BOOL5 ***CLEAR /SET CR " . P BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB " 6 0 P CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB " h . P MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR " & P SUB DEBINW4,W1 ***ADJUST FOR TFWD " $ P BE KTHOME JUMP
0x220284…220418 Dummy {f00=0x00ac, f01=0x018e, f02=»O FORMAT OVERFLOW " x P GETABX DEBINW4 *** # P ADD DEBINW4,W1 # 6 P B KEOI15 # N PKEOI20 *** # ` P CBL DEBINW2,W11,KEOI30 # t P B KKEEP2 # PKEOI30 # " P TBT DOOL3,KEOI40 ENTRY SCREEN # P TFWD # P B TSTTAB # PKEOI40 # & P
0x220418…2205ac Dummy {f00=0x00ac, f01=0x0190, f02=» PKEOI45 $ P GETABX DEBINW4 $ P ADD DEBINW4,W1 $ * * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 $ B P CALL ADJUST,DKBIN1 $ p P BNE TSTTAB $ PKEOI50 $ P TSTCTL 5 $ P BNZ TSTT05 $ P B TSTT10 $ P* $ $ PKTBWD TABULATION 1 STE
0x2205ac…220740 Dummy {f00=0x00ac, f01=0x0190, f02=» $ | P* % " PKTHOME TAB. TO HOME POSITION % & P TBT DOOLA,KTHOM4 JUMP IF BALANCE % 8 P TBF VERIFM,KTHOM2 % b P TBT KEYVER,KTKEY % | PKTHOM3 % P MOVE DEBINW1,W0 % P GETFLD 0,DEBINW1,DEBINW3 % P SETCUR % P B READ10 % PKTHOM4 %
0x220740…2208d4 (2, 80) Dummy {f00=0x00ac, f01=0x0190, f02=» THOME % PTSTTAB TEST TAB OUTPUT & P BE TSTT10 OK & . P BL READIN NOT FOUND & D ( P BOFL KENT15 EMPTY COMPULSORY FIELD & ` P* & PTSTT05 & P* CONDITIONAL TABULATION & P TBT DENOCHAN,TSTT15 & P DUPL STR2A KEYED INPUT = N? & P
0x2208d4…220a68 Dummy {f00=0x00ac, f01=0x0190, f02=»MMY, C & | " P KTEOI,DUMMY,DUMMY,KTEOI, C ' P KTBWD,KTEOI,KKEEP ' 6 PTSTT15 ' R P B SETCREAD ' ` PTSTT10 ' t P TBF AUTENT,TSTT15 ' & P TBF DOOL3,TSTT15 NOT ENTRY SCREEN ' $ P TBT DOOLA,TSTT15 BALANCE FORMAT ' P GETCTL 1,DEBINW4 GET MAXL
0x220a68…220bfc Dummy {f00=0x00ac, f01=0x0190, f02=» ' : P CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER ( P CALL ADJUST,DEBINW4 ( F $ P BZ SETCREAD JUMP IF VERIFYFIELD ( b P B KTHOM3 ( PKTEOI ( P TBF DOOL3,KTFWD ( P MOVE DEBINW2,W3 ( P EJECT ( P* ( P* DUPL KEY ( P
0x220bfc…220d90 Dummy {f00=0x00ac, f01=0x0190, f02=»AB ( | P BNZ KTEOI4 YES! ) PKTEOI3 ) " $ P IB DEBINW2,KCOP10,ERRRET,ERRRET ) 0 P B ERRPRINT ) X PKTEOI4 ) l $ P IB DEBINW2,ERRRET,ERRRET,ERRRET ) z P DUPL STR2A ) P BOK KENT20 ) P TBF ASDFLAG,KTEOI3 ) P B KENT20 ) P* ) P*
0x220d90…220f24 Dummy {f00=0x00ac, f01=0x0190, f02=» PKCOPY HARD COPY * P PERF ATTPRT RESERVE PRINTER * P BNOK ERRPRINT * B " P EDWRT DEDSPRT,FORMF FORMFEED * X P MOVE DEBINW3,W1 * ~ P PRINT DEDSPRT,DEBINW3,W0 * P PERF DETPRT RELEASE PRINTER * PKCOP10 * $ P B SETCREAD SET CURSOR AND REA
0x220f24…2210b8 Dummy {f00=0x00ac, f01=0x018e, f02=»NV ASDFLAG * PKASD3 + P PERF DELAST,W14,DEKTAB4 + " P MOVE DEBINW2,W3 SIMULATE EOI + @ P B KEOI50 + f P EJECT + x P* + P* EDIT FIELD + P* + PKEDITX + P TSTCTL 5 LOOK IF CTAB + P BZ KED050 + & P DUPL STR2A LOOK IF KEYE
0x2210b8…22124c Dummy {f00=0x00ac, f01=0x018e, f02=» P B ERRET1 , PKED050 , P CBE DEBINW1,W0,KEDITY , $ P MOVE DEBINW1,W1 , B PKEDIT , Z P GETCTL 1,DEBINW3 GET MAXL , h P CBNE DEBINW3,W0,KED100 , ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM , P B SETCREAD , PKED100 , P GETCTL 3,DEBINW
0x22124c…2213e0 Dummy {f00=0x00ac, f01=0x018e, f02=» , | P B DYKOUT - PKED200 - & P EDFLD DEINPUT,DEKTAB3,DEBINW1, C - ( P DEBINW2,DEBINW4 - R " P B DYKOUT CONTINUE AS FOR DYKI - l PKEDITY - P SETCUR - P B KEDIT - P* - P* ERASE KEY - P* - PKERASE - P GETABX DEBI
0x2213e0…221574 (2, 81) Dummy {f00=0x00ad, f01=0x0190, f02=» - P* . PKKEEP . ( P TBF DOOL3,KENT03 JUMP IF NOT ENTRY . PKKEEP0 . L & P MOVE DEBINW2,W11 SIMULATE KKEEP2 . Z PKKEEP1 . P GETCTL 1,DEBINW4 GET MAXL . P CBE DEBINW4,W0,KENT07 . & P TSTCTL 2 LOOK IF COMPULSORY FIELD . P BZ KKEEP3 N
0x221574…221708 Dummy {f00=0x00ad, f01=0x0190, f02=»UPD040 . P B UPD020 / PKKEEP2 / P SET DOOL5 / . P GETABX DEBINW4 / @ P ADD DEBINW4,W1 / X * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 / p P CALL ADJUST,DKBIN1 / P BE KKEEP5 / P BL SETCREAD / P BOFL KENT10 / P B KKEEP4 / PKK
0x221708…22189c Dummy {f00=0x00ad, f01=0x018e, f02=» / | PKKEEP4 0 P PERF DETCHK 0 P CBE DEBINW3,W0,KKEEP1 0 * & P TBT DOOLA,KKEEP1 JUMP IF BALANCE 0 H " P CBE DEBINW2,W12,KKEEP1 ERASE 0 r P PERF DENDUP 0 P BNOK KENT20 0 $ P MOVE DEBINW2,W11 SIMULATE KEEP 0 P B KKEEP1 0 P EJECT 0 P
0x22189c…221a30 Dummy {f00=0x00ad, f01=0x0190, f02=» 0 t P CBE DEBINW4,W0,KENT06 1 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM 1 & P B SETCREAD 1 R PKENT06 1 f P SET DECHANGE AT LEAST ONCE 1 t PKENT04 1 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED 1 P RET 1 PKENT03 1 * P MOVE DEBINW1,W0 I
0x221a30…221bc4 Dummy {f00=0x00ad, f01=0x0190, f02=» TSTCTL 2 LOOK IF COMPULSORY FIELD 1 P BZ KENT05 NO! 2 * . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD 2 @ P BP KENT10 YES! 2 r PKENT05 2 ( P TBT DOOL3,KENT07 JUMP IF ENTRY-MODE 2 P CBE DEBINW2,W9,KENT07 2 P CBNE DEBINW2,W10,KENT06 2 PKENT07
0x221bc4…221d58 Dummy {f00=0x00ad, 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
0x221d58…221eec Dummy {f00=0x00ad, 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
0x221eec…222080 Dummy {f00=0x00ad, 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
0x222080…222214 (2, 82) Dummy {f00=0x00ad, f01=0x0190, f02=»EBINW2,W2 5 PERRCAN PERF CANC 6 P CLEAR DOOL5 6 * P TSTCTL 5 LOOK IF CTAB 6 > P BZ ERRCA1 6 P TBT ASDFLAG,ERRET4 6 n P DUPL STR2A KEYED INPUT = N 6 P BOK ERRET4 YES! 6 PERRCA1 6 ( P IB DEBINW2,SETCREAD,SETCREAD,CONT3 6 PERRET0 6
0x222214…2223a8 Dummy {f00=0x00ad, f01=0x4138, f02=»ET 6 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
0x2223a8…22253c Dummy {f00=0x00ad, f01=0x2008, f02=» 8 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
0x22253c…2226d0 Dummy {f00=0x00ad, f01=0x0190, f02=» DE23ST 801105 $$$TRA2 DE23ST ATTDB ATTPRTT ATTWB DE21ST- DECLRA1 DEDISCL DEPOOL0 DERR1 DERROR DESTAT DETPRT FEDIT PRFGUF RESTOR T:ATTF T:DISP T:GETFA DE24ST 801105 $$$TRA2 DE24ST ATTDB DECLRAT DEDIS
0x2226d0…222864 Dummy {f00=0x00ad, f01=0x0190, f02=»AA DEPMSK0 DEPRUTF DERR1 RESTOR1 T:ATTF0 M DE31ST 801105 $$$TRA3 DE31ST DEAP3A ATTWB DEANOKT DEAOK0 DECLRA0 DECLRN1 DEDISC1 DEPOOL0 DERR DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GETF TESTB DE40ST 801105 $$$
0x222864…2229f8 Dummy {f00=0x00ad, f01=0x0190, f02=»FS 801105 $$$TRAF FACCF FCODE FCOPY FDUPL 1 FGEN1 FITEM .hFKI FLINK d FMELI hFNL 5hFSL FTABF i FTEXT B FVALF NOPOOLI D CONNUM DEPOOL DERROR FMOVE LINIT T:DISPT T:ERASI WCNTRLK e DEUNPF 801105 $$$TRAU DEUNPF
0x2229f8…222b8c Dummy {f00=0x00ad, f01=0x0190, f02=» $$$TRAP PRFGUF DERRORP DEUNPFA EMPTYT0 NOPOOLF T:EDWR T:PRIN. DEPROC # 801105 $$$TRAP DESC & FDIRL LINIT MTEXT DEPOOLP DERRORA EMPTYT0 FACC9 FCOPY FDUPL FGEN.hFKI FMELI hFNL FTABF FTEXT FVALT NOPOOLT T:DISP T:ERAS T:SWI
0x222b8c…222d20 Dummy {f00=0x00ad, f01=0x0190, f02=»P5A ATTDB ATTWB DEANOK. DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR DERROR DESTAU EMPTYTA OPCLD RESTORD SETB- T:ATTF1 T:DISPL T:DSC00 T:ERAS T:GETF TESTB DE60ST I 801105 $$$TRA6 DE60ST
0x222d20…222eb4 (2, 83) Opaque[0x194]
0x222eb4…223048 # DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x222eb4…223048 IdxSect {
0x222eb4…223048 f00 = 0x00ad // 0x222eb4 @0x0
0x222eb4…223048 f01 = 0x0010 // 0x222eb6 @0x2
0x222eb4…223048 gno = [ // 0x222eb8 @0x4
0x222eb4…223048 [0x00]: C0x00ad.0x2.0
0x222eb4…223048 [0x01]: C0x00ad.0x3.0
0x222eb4…223048 [0x02]: C0x00ae.0x0.0
0x222eb4…223048 [0x03]: C0x00ae.0x1.0
0x222eb4…223048 [0x04]: C0x00ae.0x2.0
0x222eb4…223048 [0x05]: C0x00ae.0x3.0
0x222eb4…223048 [0x06]: C0x00af.0x0.0
0x222eb4…223048 [0x07]: C0x00af.0x1.0
0x222eb4…223048 ]
0x222eb4…223048 }
0x223048…2231dc Dummy {f00=0x00ad, 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*
0x2231dc…223370 Dummy {f00=0x00ad, 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
0x223370…223504 Dummy {f00=0x00ad, 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
0x223504…223698 Dummy {f00=0x00ad, 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
0x223698…22382c Dummy {f00=0x00ad, 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*
0x22382c…2239c0 Dummy {f00=0x00ad, 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
0x2239c0…223b54 (2, 84) Dummy {f00=0x00ad, f01=0x0190, f02=» BIN13 = LAST DISPLACEMENTS OF DESCRIPTOR ~ D P* BIN14 = LAST LENGTH OF DESCRIPTOR < . P* BIN15 = WORK . P* BIN16 = WORK F P* PIN
0x223b54…223ce8 Dummy {f00=0x00ad, 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
0x223ce8…223e7c Dummy {f00=0x00ad, 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
0x223e7c…224010 Dummy {f00=0x00ad, 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
0x224010…2241a4 Dummy {f00=0x00ad, 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
0x2241a4…224338 Dummy {f00=0x00ad, 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
0x224338…2244cc Dummy {f00=0x00ad, 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
0x2244cc…224660 Dummy {f00=0x00ad, 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
0x224660…2247f4 (2, 85) Dummy {f00=0x00ae, 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
0x2247f4…224988 Dummy {f00=0x00ae, 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
0x224988…224b1c Dummy {f00=0x00ae, 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
0x224b1c…224cb0 Dummy {f00=0x00ae, 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
0x224cb0…224e44 Dummy {f00=0x00ae, 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
0x224e44…224fd8 Dummy {f00=0x00ae, 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
0x224fd8…22516c Dummy {f00=0x00ae, 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
0x22516c…225300 Dummy {f00=0x00ae, 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
0x225300…225494 (2, 86) Dummy {f00=0x00ae, 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* ,
0x225494…225628 Dummy {f00=0x00ae, 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*
0x225628…2257bc Dummy {f00=0x00ae, 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
0x2257bc…225950 Dummy {f00=0x00ae, 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
0x225950…225ae4 Dummy {f00=0x00ae, 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
0x225ae4…225c78 Dummy {f00=0x00ae, 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
0x225c78…225e0c Dummy {f00=0x00ae, 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
0x225e0c…225fa0 Dummy {f00=0x00ae, 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 =
0x225fa0…226134 (2, 87) Dummy {f00=0x00ae, 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
0x226134…2262c8 Dummy {f00=0x00ae, 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
0x2262c8…22645c Dummy {f00=0x00ae, 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
0x22645c…2265f0 Dummy {f00=0x00ae, 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
0x2265f0…226784 Dummy {f00=0x00ae, 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
0x226784…226918 Dummy {f00=0x00ae, 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 #
0x226918…226aac Dummy {f00=0x00ae, 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 $
0x226aac…226c40 Dummy {f00=0x00ae, 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
0x226c40…226dd4 (2, 88) Dummy {f00=0x00ae, 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
0x226dd4…226f68 Dummy {f00=0x00ae, 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 '
0x226f68…2270fc Dummy {f00=0x00ae, 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 (
0x2270fc…227290 Dummy {f00=0x00ae, 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*
0x227290…227424 Dummy {f00=0x00ae, 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
0x227424…2275b8 Dummy {f00=0x00ae, 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
0x2275b8…22774c Dummy {f00=0x00ae, 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
0x22774c…2278e0 Dummy {f00=0x00ae, 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 -
0x2278e0…227a74 (2, 89) Dummy {f00=0x00af, 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
0x227a74…227c08 Dummy {f00=0x00af, 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
0x227c08…227d9c Dummy {f00=0x00af, 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
0x227d9c…227f30 Dummy {f00=0x00af, 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
0x227f30…2280c4 Dummy {f00=0x00af, 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
0x2280c4…228258 Dummy {f00=0x00af, 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
0x228258…2283ec Dummy {f00=0x00af, 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,
0x2283ec…228580 Dummy {f00=0x00af, 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
0x228580…228714 (2, 90) Dummy {f00=0x00af, f01=0x4052, f02=»FORMF FRMT 5 P FTEXT ' 1' 6 P FMEND 6 & P PEND 6 4 END 6 B@ 6 N
0x228714…2288a8 Dummy {f00=0x00af, f01=0x2008, f02=» 7 PDIV ENTRY DEFDSC PROGRAM-START * > INCLUDE DEKEYS,LIST H EJECT d DEFDSC PROC r RET PEND END @ * * * * * -OUTPUT: * * *
0x2288a8…228a3c Dummy {f00=0x00af, 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 ? @ ?
0x228a3c…228bd0 Dummy {f00=0x00af, 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
0x228bd0…228d64 Dummy {f00=0x00af, 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
0x228d64…228ef8 Dummy {f00=0x00af, 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 # - , )
0x228ef8…22908c Dummy {f00=0x00af, 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
0x22908c…229220 Dummy {f00=0x00af, 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
0x229220…2293b4 (2, 91) Opaque[0x194]
0x2293b4…229548 # DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f0, f03=0x0000}
0x2293b4…229548 IdxSect {
0x2293b4…229548 f00 = 0x00af // 0x2293b4 @0x0
0x2293b4…229548 f01 = 0x0004 // 0x2293b6 @0x2
0x2293b4…229548 gno = [ // 0x2293b8 @0x4
0x2293b4…229548 [0x00]: C0x00af.0x2.0
0x2293b4…229548 [0x01]: C0x00af.0x3.0
0x2293b4…229548 ]
0x2293b4…229548 }
0x229548…2296dc Dummy {f00=0x00af, 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
0x2296dc…229870 Dummy {f00=0x00af, 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 *
0x229870…229a04 Dummy {f00=0x00af, 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
0x229a04…229b98 Dummy {f00=0x00af, 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
0x229b98…229d2c Dummy {f00=0x00af, 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
0x229d2c…229ec0 Dummy {f00=0x00af, 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,
0x229ec0…22a054 (2, 92) Dummy {f00=0x00af, 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
0x22a054…22a1e8 Dummy {f00=0x00af, 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
0x22a1e8…22a37c Dummy {f00=0x00af, 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
0x22a37c…22a510 Dummy {f00=0x00af, f01=0x2008, f02=»
0x22a510…22a6a4 Dummy {f00=0x00af, f01=0x0190, f02=» a =h% % P ! T ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x22a6a4…22a838 Dummy {f00=0x00af, f01=0x4026, f02=» R P t @ " ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x22a838…22a9cc Dummy {f00=0x00af, f01=0x4180, f02=» IDENT MAP3 MAP3Y " MAP3Y 2 CURPRT D BLANK V TRANSF f LISTN x MODLG , ( A @ 0 = # * & D @ bLCV Z
0x22a9cc…22ab60 Dummy {f00=0x00af, f01=0x40fe, f02=» IDENT MAP4 MAP4Y " MAP4Y 2 LSTSTA D LSTNN V LSTECB f , ( P W _ _ W : x IOERR H V W W $ @ @
0x22ab60…22acf4 (2, 93) Opaque[0x194]
0x22acf4…22ae88 # DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1600, f03=0x0000}
0x22acf4…22ae88 IdxSect {
0x22acf4…22ae88 f00 = 0x00b0 // 0x22acf4 @0x0
0x22acf4…22ae88 f01 = 0x0010 // 0x22acf6 @0x2
0x22acf4…22ae88 gno = [ // 0x22acf8 @0x4
0x22acf4…22ae88 [0x00]: C0x00b0.0x0.0
0x22acf4…22ae88 [0x01]: C0x00b0.0x1.0
0x22acf4…22ae88 [0x02]: C0x00b0.0x2.0
0x22acf4…22ae88 [0x03]: C0x00b0.0x3.0
0x22acf4…22ae88 [0x04]: C0x00b1.0x0.0
0x22acf4…22ae88 [0x05]: C0x00b1.0x1.0
0x22acf4…22ae88 [0x06]: C0x00b1.0x2.0
0x22acf4…22ae88 [0x07]: C0x00b1.0x3.0
0x22acf4…22ae88 ]
0x22acf4…22ae88 }
0x22ae88…22b01c Dummy {f00=0x00b0, 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
0x22b01c…22b1b0 Dummy {f00=0x00b0, f01=0x0190, f02=»FF2>,<KEY> * h @ <* * @ <************************************************************ ` P* : P* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES . P* AND ORIGINATE CONTENTS OF
0x22b1b0…22b344 Dummy {f00=0x00b0, f01=0x0190, f02=» BIN15 P* BIN16 P* DEBINW3 , P* DEBINW4 F P* POOL1 ` P* STR1A x P* STR64A P* @ <************************************************************ P EJECT @ <****
0x22b344…22b4d8 Dummy {f00=0x00b0, 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
0x22b4d8…22b66c Dummy {f00=0x00b0, f01=0x018e, f02=» RETURNED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ ( P* IF NO BUFFERS = 0 f * @ <************************************************************ * , (* <FC> = 2 GET BUFFERS
0x22b66c…22b800 Dummy {f00=0x00b0, 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
0x22b800…22b994 (2, 94) Dummy {f00=0x00b0, f01=0x0190, f02=» IF NO BUFFERS = 0 * & @ <************************************************************ 0 P EJECT t @ <************************************************************ * $ * <FC> = 3 CHAIN BUFFERS : 6*
0x22b994…22bb28 Dummy {f00=0x00b0, 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
0x22bb28…22bcbc Dummy {f00=0x00b0, 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 * @ <************************************************************
0x22bcbc…22be50 Dummy {f00=0x00b0, 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
0x22be50…22bfe4 Dummy {f00=0x00b0, 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 @ <******
0x22bfe4…22c178 Dummy {f00=0x00b0, 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
0x22c178…22c30c Dummy {f00=0x00b0, 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
0x22c30c…22c4a0 Dummy {f00=0x00b0, f01=0x0190, f02=» 4 P* 2 = FOUND LOCKED 0 P* 0 = NOT FOUND < * p @ <************************************************************ z P EJECT @ <************************************************************
0x22c4a0…22c634 (2, 95) Dummy {f00=0x00b0, 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
0x22c634…22c7c8 Dummy {f00=0x00b0, f01=0x0190, f02=» IN THE CHAIN , '* RETURNED PARAMETERS: P* <BUFF1> = SET TO 0 P * t @ <************************************************************ ~ P EJECT @ <********************************************************
0x22c7c8…22c95c Dummy {f00=0x00b0, 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
0x22c95c…22caf0 Dummy {f00=0x00b0, 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
0x22caf0…22cc84 Dummy {f00=0x00b0, 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
0x22cc84…22ce18 Dummy {f00=0x00b0, 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 * @ <************
0x22ce18…22cfac Dummy {f00=0x00b0, 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
0x22cfac…22d140 Dummy {f00=0x00b0, 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.
0x22d140…22d2d4 (2, 96) Dummy {f00=0x00b0, f01=0x0190, f02=» 0 = NOT FOUND * 2 @ <************************************************************ < P EJECT @ <************************************************************ * $ P* <FC> = 10 SET BUFFERS 6 P*
0x22d2d4…22d468 Dummy {f00=0x00b0, 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>
0x22d468…22d5fc Dummy {f00=0x00b0, 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
0x22d5fc…22d790 Dummy {f00=0x00b0, f01=0x018e, f02=» PASSED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER " $ * IN THE CHAIN d * @ <************************************************************ PDIV ENTRY DEPOOL P EXT SETB
0x22d790…22d924 Dummy {f00=0x00b0, 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
0x22d924…22dab8 Dummy {f00=0x00b0, 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
0x22dab8…22dc4c Dummy {f00=0x00b0, 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
0x22dc4c…22dde0 Dummy {f00=0x00b0, 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
0x22dde0…22df74 (2, 97) Dummy {f00=0x00b1, 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,
0x22df74…22e108 Dummy {f00=0x00b1, 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
0x22e108…22e29c Dummy {f00=0x00b1, 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
0x22e29c…22e430 Dummy {f00=0x00b1, 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
0x22e430…22e5c4 Dummy {f00=0x00b1, 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
0x22e5c4…22e758 Dummy {f00=0x00b1, 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 #
0x22e758…22e8ec Dummy {f00=0x00b1, 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
0x22e8ec…22ea80 Dummy {f00=0x00b1, 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
0x22ea80…22ec14 (2, 98) Dummy {f00=0x00b1, 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
0x22ec14…22eda8 Dummy {f00=0x00b1, 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
0x22eda8…22ef3c Dummy {f00=0x00b1, 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
0x22ef3c…22f0d0 Dummy {f00=0x00b1, 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
0x22f0d0…22f264 Dummy {f00=0x00b1, 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
0x22f264…22f3f8 Dummy {f00=0x00b1, 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
0x22f3f8…22f58c Dummy {f00=0x00b1, 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
0x22f58c…22f720 Dummy {f00=0x00b1, 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
0x22f720…22f8b4 (2, 99) Dummy {f00=0x00b1, 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
0x22f8b4…22fa48 Dummy {f00=0x00b1, 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
0x22fa48…22fbdc Dummy {f00=0x00b1, 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
0x22fbdc…22fd70 Dummy {f00=0x00b1, 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
0x22fd70…22ff04 Dummy {f00=0x00b1, 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
0x22ff04…230098 Dummy {f00=0x00b1, 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
0x230098…23022c Dummy {f00=0x00b1, 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
0x23022c…2303c0 Dummy {f00=0x00b1, 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
0x2303c0…230554 (2, 100) Dummy {f00=0x00b1, f01=0x2008, f02=» 6 : 6* IF THE COUNTER AFTERWARDS IS 0, THE , '* BUFFER IS MADE FREE. J 0 +* PARAMETERS: SEE <FC> = 3 z * @ ;*********************************************************** EJECT
0x230554…2306e8 Dummy {f00=0x00b1, f01=0x403a, f02=» $@ 6 ' ; @ > > 8 * & E 2 G f " c P a > 4 " * & y " * & A 8
0x2306e8…23087c Dummy {f00=0x00b1, f01=0x4014, f02=» HNOD @ @ . * & E 2 G J " c P a > 4 " x * & y " DELAST * & A 8 *
0x23087c…230a10 Dummy {f00=0x00b1, f01=0x0190, f02=» IDENT P:S024 < " * & @h0E ! P # ( + ? 09 < AhW @ * & - %hZ ( !< % (R ! j n * & K !! ! ( $ 2hZ ! !T * & i !j !! W % 2 !X b ! * & U
0x230a10…230ba4 Dummy {f00=0x00b1, 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 * &
0x230ba4…230d38 Dummy {f00=0x00b1, 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
0x230d38…230ecc Dummy {f00=0x00b1, 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
0x230ecc…231060 Dummy {f00=0x00b1, f01=0x018e, f02=» 0* 00 O _U ~ "4 #4 $4 * & 3 : @ r Z < 9 j * & = 8 H = ~ * & [ P+-?T BATCHNUMBERRECORDCON * & y FIRM VALUESETSYMBOLIC: XTTTT9 * &
0x231060…2311f4 (2, 101) Opaque[0x194]
0x2311f4…231388 # DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1640, f03=0x0000}
0x2311f4…231388 IdxSect {
0x2311f4…231388 f00 = 0x00b2 // 0x2311f4 @0x0
0x2311f4…231388 f01 = 0x000a // 0x2311f6 @0x2
0x2311f4…231388 gno = [ // 0x2311f8 @0x4
0x2311f4…231388 [0x00]: C0x00b2.0x0.0
0x2311f4…231388 [0x01]: C0x00b2.0x1.0
0x2311f4…231388 [0x02]: C0x00b2.0x2.0
0x2311f4…231388 [0x03]: C0x00b2.0x3.0
0x2311f4…231388 [0x04]: C0x00b3.0x0.0
0x2311f4…231388 ]
0x2311f4…231388 }
0x231388…23151c Dummy {f00=0x00b2, 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*
0x23151c…2316b0 Dummy {f00=0x00b2, 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
0x2316b0…231844 Dummy {f00=0x00b2, 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
0x231844…2319d8 Dummy {f00=0x00b2, 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
0x2319d8…231b6c Dummy {f00=0x00b2, 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
0x231b6c…231d00 Dummy {f00=0x00b2, 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
0x231d00…231e94 (2, 102) Dummy {f00=0x00b2, 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
0x231e94…232028 Dummy {f00=0x00b2, 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
0x232028…2321bc Dummy {f00=0x00b2, 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
0x2321bc…232350 Dummy {f00=0x00b2, 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
0x232350…2324e4 Dummy {f00=0x00b2, 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
0x2324e4…232678 Dummy {f00=0x00b2, 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
0x232678…23280c Dummy {f00=0x00b2, 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
0x23280c…2329a0 Dummy {f00=0x00b2, 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
0x2329a0…232b34 (2, 103) Dummy {f00=0x00b2, 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
0x232b34…232cc8 Dummy {f00=0x00b2, 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
0x232cc8…232e5c Dummy {f00=0x00b2, 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
0x232e5c…232ff0 Dummy {f00=0x00b2, 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
0x232ff0…233184 Dummy {f00=0x00b2, 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
0x233184…233318 Dummy {f00=0x00b2, 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
0x233318…2334ac Dummy {f00=0x00b2, 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
0x2334ac…233640 Dummy {f00=0x00b2, 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
0x233640…2337d4 (2, 104) Dummy {f00=0x00b2, 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
0x2337d4…233968 Dummy {f00=0x00b2, 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
0x233968…233afc Dummy {f00=0x00b2, 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
0x233afc…233c90 Dummy {f00=0x00b2, 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
0x233c90…233e24 Dummy {f00=0x00b2, 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
0x233e24…233fb8 Dummy {f00=0x00b2, 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
0x233fb8…23414c Dummy {f00=0x00b2, 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
0x23414c…2342e0 Dummy {f00=0x00b2, 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*
0x2342e0…234474 (2, 105) Dummy {f00=0x00b3, 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
0x234474…234608 Dummy {f00=0x00b3, 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
0x234608…23479c Dummy {f00=0x00b3, 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
0x23479c…234930 Dummy {f00=0x00b3, 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
0x234930…234ac4 Dummy {f00=0x00b3, 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
0x234ac4…234c58 Dummy {f00=0x00b3, 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
0x234c58…234dec Dummy {f00=0x00b3, 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
0x234dec…234f80 Dummy {f00=0x00b3, 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
0x234f80…235114 (2, 106) Opaque[0x194]
0x235114…2352a8 # DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1668, f03=0x0000}
0x235114…2352a8 IdxSect {
0x235114…2352a8 f00 = 0x00b3 // 0x235114 @0x0
0x235114…2352a8 f01 = 0x0004 // 0x235116 @0x2
0x235114…2352a8 gno = [ // 0x235118 @0x4
0x235114…2352a8 [0x00]: C0x00b3.0x1.0
0x235114…2352a8 [0x01]: C0x00b3.0x2.0
0x235114…2352a8 ]
0x235114…2352a8 }
0x2352a8…23543c Dummy {f00=0x00b3, 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
0x23543c…2355d0 Dummy {f00=0x00b3, 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 - "
0x2355d0…235764 Dummy {f00=0x00b3, 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*
0x235764…2358f8 Dummy {f00=0x00b3, 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
0x2358f8…235a8c Dummy {f00=0x00b3, 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
0x235a8c…235c20 Dummy {f00=0x00b3, 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
0x235c20…235db4 (2, 107) Dummy {f00=0x00b3, 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******
0x235db4…235f48 Dummy {f00=0x00b3, 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'
0x235f48…2360dc Dummy {f00=0x00b3, 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
0x2360dc…236270 Dummy {f00=0x00b3, 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
0x236270…236404 Dummy {f00=0x00b3, 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
0x236404…236598 Dummy {f00=0x00b3, 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
0x236598…23672c Dummy {f00=0x00b3, 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
0x23672c…2368c0 Dummy {f00=0x00b3, 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:
0x2368c0…236a54 (2, 108) Opaque[0x194]
0x236a54…236be8 # DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1678, f03=0x0000}
0x236a54…236be8 IdxSect {
0x236a54…236be8 f00 = 0x00b3 // 0x236a54 @0x0
0x236a54…236be8 f01 = 0x0004 // 0x236a56 @0x2
0x236a54…236be8 gno = [ // 0x236a58 @0x4
0x236a54…236be8 [0x00]: C0x00b3.0x3.0
0x236a54…236be8 [0x01]: C0x00b4.0x0.0
0x236a54…236be8 ]
0x236a54…236be8 }
0x236be8…236d7c Dummy {f00=0x00b3, 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
0x236d7c…236f10 Dummy {f00=0x00b3, 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
0x236f10…2370a4 Dummy {f00=0x00b3, 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
0x2370a4…237238 Dummy {f00=0x00b3, 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
0x237238…2373cc Dummy {f00=0x00b3, 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
0x2373cc…237560 Dummy {f00=0x00b3, 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
0x237560…2376f4 (2, 109) Dummy {f00=0x00b4, 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
0x2376f4…237888 Dummy {f00=0x00b4, 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
0x237888…237a1c Dummy {f00=0x00b4, 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
0x237a1c…237bb0 Dummy {f00=0x00b4, 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 ! * &
0x237bb0…237d44 Dummy {f00=0x00b4, 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
0x237d44…237ed8 Dummy {f00=0x00b4, 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 * & " " * &
0x237ed8…23806c Dummy {f00=0x00b4, f01=0x4144, f02=» * & & * & 1 I 1 = T * & O ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x23806c…238200 Dummy {f00=0x00b4, f01=0x4014, f02=» HNOD @ * & t * & 1 I 1 = H DENVAL v * & O @ v ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x238200…238394 (2, 110) Opaque[0x194]
0x238394…238528 # DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x238394…238528 IdxSect {
0x238394…238528 f00 = 0x00b4 // 0x238394 @0x0
0x238394…238528 f01 = 0x0008 // 0x238396 @0x2
0x238394…238528 gno = [ // 0x238398 @0x4
0x238394…238528 [0x00]: C0x00b4.0x1.0
0x238394…238528 [0x01]: C0x00b4.0x2.0
0x238394…238528 [0x02]: C0x00b4.0x3.0
0x238394…238528 [0x03]: C0x00b5.0x0.0
0x238394…238528 ]
0x238394…238528 }
0x238528…2386bc Dummy {f00=0x00b4, 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*
0x2386bc…238850 Dummy {f00=0x00b4, 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
0x238850…2389e4 Dummy {f00=0x00b4, 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
0x2389e4…238b78 Dummy {f00=0x00b4, 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
0x238b78…238d0c Dummy {f00=0x00b4, 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
0x238d0c…238ea0 Dummy {f00=0x00b4, 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
0x238ea0…239034 (2, 111) Dummy {f00=0x00b4, 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
0x239034…2391c8 Dummy {f00=0x00b4, 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
0x2391c8…23935c Dummy {f00=0x00b4, 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
0x23935c…2394f0 Dummy {f00=0x00b4, 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
0x2394f0…239684 Dummy {f00=0x00b4, 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
0x239684…239818 Dummy {f00=0x00b4, 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
0x239818…2399ac Dummy {f00=0x00b4, 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
0x2399ac…239b40 Dummy {f00=0x00b4, 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 $
0x239b40…239cd4 (2, 112) Dummy {f00=0x00b4, 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
0x239cd4…239e68 Dummy {f00=0x00b4, 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
0x239e68…239ffc Dummy {f00=0x00b4, 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
0x239ffc…23a190 Dummy {f00=0x00b4, 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
0x23a190…23a324 Dummy {f00=0x00b4, 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
0x23a324…23a4b8 Dummy {f00=0x00b4, 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
0x23a4b8…23a64c Dummy {f00=0x00b4, 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
0x23a64c…23a7e0 Dummy {f00=0x00b4, 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
0x23a7e0…23a974 (2, 113) Dummy {f00=0x00b5, f01=0x2008, f02=»
0x23a974…23ab08 Dummy {f00=0x00b5, 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
0x23ab08…23ac9c Dummy {f00=0x00b5, 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
0x23ac9c…23ae30 Dummy {f00=0x00b5, 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
0x23ae30…23afc4 Dummy {f00=0x00b5, 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
0x23afc4…23b158 Dummy {f00=0x00b5, 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
0x23b158…23b2ec Dummy {f00=0x00b5, 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
0x23b2ec…23b480 Dummy {f00=0x00b5, 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
0x23b480…23b614 (2, 114) Opaque[0x194]
0x23b614…23b7a8 # DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x23b614…23b7a8 IdxSect {
0x23b614…23b7a8 f00 = 0x00b5 // 0x23b614 @0x0
0x23b614…23b7a8 f01 = 0x0008 // 0x23b616 @0x2
0x23b614…23b7a8 gno = [ // 0x23b618 @0x4
0x23b614…23b7a8 [0x00]: C0x00b5.0x1.0
0x23b614…23b7a8 [0x01]: C0x00b5.0x2.0
0x23b614…23b7a8 [0x02]: C0x00b5.0x3.0
0x23b614…23b7a8 [0x03]: C0x00b6.0x0.0
0x23b614…23b7a8 ]
0x23b614…23b7a8 }
0x23b7a8…23b93c Dummy {f00=0x00b5, 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
0x23b93c…23bad0 Dummy {f00=0x00b5, 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
0x23bad0…23bc64 Dummy {f00=0x00b5, 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
0x23bc64…23bdf8 Dummy {f00=0x00b5, 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*
0x23bdf8…23bf8c Dummy {f00=0x00b5, f01=0x0190, f02=» FMEND EJECT * L O************************************************************************ & * v & "* MAIN-ROUTINE FOR GENERATION * L O************************************************************************ *
0x23bf8c…23c120 Dummy {f00=0x00b5, 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,
0x23c120…23c2b4 (2, 115) Dummy {f00=0x00b5, 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
0x23c2b4…23c448 Dummy {f00=0x00b5, 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****************************************************
0x23c448…23c5dc Dummy {f00=0x00b5, 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 *
0x23c5dc…23c770 Dummy {f00=0x00b5, 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
0x23c770…23c904 Dummy {f00=0x00b5, 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,
0x23c904…23ca98 Dummy {f00=0x00b5, 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
0x23ca98…23cc2c Dummy {f00=0x00b5, 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
0x23cc2c…23cdc0 Dummy {f00=0x00b5, 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 ?
0x23cdc0…23cf54 (2, 116) Dummy {f00=0x00b5, 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 *****
0x23cf54…23d0e8 Dummy {f00=0x00b5, 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 ****
0x23d0e8…23d27c Dummy {f00=0x00b5, 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
0x23d27c…23d410 Dummy {f00=0x00b5, 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
0x23d410…23d5a4 Dummy {f00=0x00b5, 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
0x23d5a4…23d738 Dummy {f00=0x00b5, 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
0x23d738…23d8cc Dummy {f00=0x00b5, 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
0x23d8cc…23da60 Dummy {f00=0x00b5, 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 ***
0x23da60…23dbf4 (2, 117) Dummy {f00=0x00b6, 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) "*"
0x23dbf4…23dd88 Dummy {f00=0x00b6, 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
0x23dd88…23df1c Dummy {f00=0x00b6, 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
0x23df1c…23e0b0 Dummy {f00=0x00b6, 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
0x23e0b0…23e244 Dummy {f00=0x00b6, 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
0x23e244…23e3d8 Dummy {f00=0x00b6, 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
0x23e3d8…23e56c Dummy {f00=0x00b6, 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
0x23e56c…23e700 Dummy {f00=0x00b6, 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
0x23e700…23e894 (2, 118) Opaque[0x194]
0x23e894…23ea28 # DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16c8, f03=0x0000}
0x23e894…23ea28 IdxSect {
0x23e894…23ea28 f00 = 0x00b6 // 0x23e894 @0x0
0x23e894…23ea28 f01 = 0x000c // 0x23e896 @0x2
0x23e894…23ea28 gno = [ // 0x23e898 @0x4
0x23e894…23ea28 [0x00]: C0x00b6.0x1.0
0x23e894…23ea28 [0x01]: C0x00b6.0x2.0
0x23e894…23ea28 [0x02]: C0x00b6.0x3.0
0x23e894…23ea28 [0x03]: C0x00b7.0x0.0
0x23e894…23ea28 [0x04]: C0x00b7.0x1.0
0x23e894…23ea28 [0x05]: C0x00b7.0x2.0
0x23e894…23ea28 ]
0x23e894…23ea28 }
0x23ea28…23ebbc Dummy {f00=0x00b6, 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
0x23ebbc…23ed50 Dummy {f00=0x00b6, 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
0x23ed50…23eee4 Dummy {f00=0x00b6, 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
0x23eee4…23f078 Dummy {f00=0x00b6, 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
0x23f078…23f20c Dummy {f00=0x00b6, f01=0x0190, f02=»ATION ` < P* = 3 = ACCUMULATION : P* STRG10A = FUNCTION TEXTS N 0 P* STR1A = WORK 0 P* BIN16 = WORK P* P* OU
0x23f20c…23f3a0 Dummy {f00=0x00b6, 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
0x23f3a0…23f534 (2, 119) Dummy {f00=0x00b6, 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
0x23f534…23f6c8 Dummy {f00=0x00b6, 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*
0x23f6c8…23f85c Dummy {f00=0x00b6, 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
0x23f85c…23f9f0 Dummy {f00=0x00b6, 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
0x23f9f0…23fb84 Dummy {f00=0x00b6, 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
0x23fb84…23fd18 Dummy {f00=0x00b6, 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
0x23fd18…23feac Dummy {f00=0x00b6, 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
0x23feac…240040 Dummy {f00=0x00b6, 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
0x240040…2401d4 (2, 120) Dummy {f00=0x00b6, 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
0x2401d4…240368 Dummy {f00=0x00b6, 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
0x240368…2404fc Dummy {f00=0x00b6, 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
0x2404fc…240690 Dummy {f00=0x00b6, 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
0x240690…240824 Dummy {f00=0x00b6, f01=0x0190, f02=» BIN15 = LENGTH OF VALSTR J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* P* OUTPUT PARAMETERS : 6 P* 'CR' = 0 , OK : P*
0x240824…2409b8 Dummy {f00=0x00b6, 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
0x2409b8…240b4c Dummy {f00=0x00b6, 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
0x240b4c…240ce0 Dummy {f00=0x00b6, 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
0x240ce0…240e74 (2, 121) Dummy {f00=0x00b7, 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
0x240e74…241008 Dummy {f00=0x00b7, 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
0x241008…24119c Dummy {f00=0x00b7, 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
0x24119c…241330 Dummy {f00=0x00b7, 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
0x241330…2414c4 Dummy {f00=0x00b7, 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
0x2414c4…241658 Dummy {f00=0x00b7, 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
0x241658…2417ec Dummy {f00=0x00b7, 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
0x2417ec…241980 Dummy {f00=0x00b7, 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
0x241980…241b14 (2, 122) Dummy {f00=0x00b7, 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
0x241b14…241ca8 Dummy {f00=0x00b7, 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
0x241ca8…241e3c Dummy {f00=0x00b7, 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
0x241e3c…241fd0 Dummy {f00=0x00b7, 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
0x241fd0…242164 Dummy {f00=0x00b7, 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
0x242164…2422f8 Dummy {f00=0x00b7, 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
0x2422f8…24248c Dummy {f00=0x00b7, 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
0x24248c…242620 Dummy {f00=0x00b7, 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
0x242620…2427b4 (2, 123) Dummy {f00=0x00b7, 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
0x2427b4…242948 Dummy {f00=0x00b7, 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
0x242948…242adc Dummy {f00=0x00b7, 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
0x242adc…242c70 Dummy {f00=0x00b7, 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
0x242c70…242e04 Dummy {f00=0x00b7, f01=0x4014, f02=» HNOD @ &| 0$ * & ) ' 0 @vT &z @ P $0 $} W . $ G xyj &"x x* !!4 ! 4 * & _ M 7 G X } S = DEACC * & @ + j
0x242e04…242f98 Dummy {f00=0x00b7, 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 * &
0x242f98…24312c Dummy {f00=0x00b7, 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
0x24312c…2432c0 Dummy {f00=0x00b7, 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
0x2432c0…243454 (2, 124) Opaque[0x194]
0x243454…2435e8 # DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x243454…2435e8 IdxSect {
0x243454…2435e8 f00 = 0x00b7 // 0x243454 @0x0
0x243454…2435e8 f01 = 0x000e // 0x243456 @0x2
0x243454…2435e8 gno = [ // 0x243458 @0x4
0x243454…2435e8 [0x00]: C0x00b7.0x3.0
0x243454…2435e8 [0x01]: C0x00b8.0x0.0
0x243454…2435e8 [0x02]: C0x00b8.0x1.0
0x243454…2435e8 [0x03]: C0x00b8.0x2.0
0x243454…2435e8 [0x04]: C0x00b8.0x3.0
0x243454…2435e8 [0x05]: C0x00b9.0x0.0
0x243454…2435e8 [0x06]: C0x00b9.0x1.0
0x243454…2435e8 ]
0x243454…2435e8 }
0x2435e8…24377c Dummy {f00=0x00b7, 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
0x24377c…243910 Dummy {f00=0x00b7, 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,
0x243910…243aa4 Dummy {f00=0x00b7, 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
0x243aa4…243c38 Dummy {f00=0x00b7, 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
0x243c38…243dcc Dummy {f00=0x00b7, 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
0x243dcc…243f60 Dummy {f00=0x00b7, 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**********
0x243f60…2440f4 (2, 125) Dummy {f00=0x00b8, 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
0x2440f4…244288 Dummy {f00=0x00b8, 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
0x244288…24441c Dummy {f00=0x00b8, 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
0x24441c…2445b0 Dummy {f00=0x00b8, 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
0x2445b0…244744 Dummy {f00=0x00b8, 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
0x244744…2448d8 Dummy {f00=0x00b8, 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
0x2448d8…244a6c Dummy {f00=0x00b8, 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 =
0x244a6c…244c00 Dummy {f00=0x00b8, 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
0x244c00…244d94 (2, 126) Dummy {f00=0x00b8, 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
0x244d94…244f28 Dummy {f00=0x00b8, 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
0x244f28…2450bc Dummy {f00=0x00b8, 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
0x2450bc…245250 Dummy {f00=0x00b8, 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
0x245250…2453e4 Dummy {f00=0x00b8, 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,
0x2453e4…245578 Dummy {f00=0x00b8, 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
0x245578…24570c Dummy {f00=0x00b8, 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
0x24570c…2458a0 Dummy {f00=0x00b8, 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
0x2458a0…245a34 (2, 127) Dummy {f00=0x00b8, 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
0x245a34…245bc8 Dummy {f00=0x00b8, 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
0x245bc8…245d5c Dummy {f00=0x00b8, 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*****************************
0x245d5c…245ef0 Dummy {f00=0x00b8, 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
0x245ef0…246084 Dummy {f00=0x00b8, 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
0x246084…246218 Dummy {f00=0x00b8, 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
0x246218…2463ac Dummy {f00=0x00b8, 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
0x2463ac…246540 Dummy {f00=0x00b8, 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
0x246540…2466d4 (2, 128) Dummy {f00=0x00b8, 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
0x2466d4…246868 Dummy {f00=0x00b8, 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
0x246868…2469fc Dummy {f00=0x00b8, 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
0x2469fc…246b90 Dummy {f00=0x00b8, 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
0x246b90…246d24 Dummy {f00=0x00b8, 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
0x246d24…246eb8 Dummy {f00=0x00b8, 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
0x246eb8…24704c Dummy {f00=0x00b8, 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
0x24704c…2471e0 Dummy {f00=0x00b8, 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
0x2471e0…247374 (2, 129) Dummy {f00=0x00b9, 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
0x247374…247508 Dummy {f00=0x00b9, 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
0x247508…24769c Dummy {f00=0x00b9, 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
0x24769c…247830 Dummy {f00=0x00b9, 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 )
0x247830…2479c4 Dummy {f00=0x00b9, 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
0x2479c4…247b58 Dummy {f00=0x00b9, 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 +
0x247b58…247cec Dummy {f00=0x00b9, 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
0x247cec…247e80 Dummy {f00=0x00b9, 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
0x247e80…248014 (2, 130) Dummy {f00=0x00b9, 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
0x248014…2481a8 Dummy {f00=0x00b9, 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@
0x2481a8…24833c Dummy {f00=0x00b9, 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 <
0x24833c…2484d0 Dummy {f00=0x00b9, 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
0x2484d0…248664 Dummy {f00=0x00b9, 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~ "~ @
0x248664…2487f8 Dummy {f00=0x00b9, 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 &
0x2487f8…24898c Dummy {f00=0x00b9, f01=0x0190, f02=» U j , 1 : ` A g A P n d K : ? - D H + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x24898c…248b20 Dummy {f00=0x00b9, 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 !!
0x248b20…248cb4 (2, 131) Opaque[0x194]
0x248cb4…248e48 # DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x248cb4…248e48 IdxSect {
0x248cb4…248e48 f00 = 0x00b9 // 0x248cb4 @0x0
0x248cb4…248e48 f01 = 0x0004 // 0x248cb6 @0x2
0x248cb4…248e48 gno = [ // 0x248cb8 @0x4
0x248cb4…248e48 [0x00]: C0x00b9.0x2.0
0x248cb4…248e48 [0x01]: C0x00b9.0x3.0
0x248cb4…248e48 ]
0x248cb4…248e48 }
0x248e48…248fdc Dummy {f00=0x00b9, 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*
0x248fdc…249170 Dummy {f00=0x00b9, 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
0x249170…249304 Dummy {f00=0x00b9, 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
0x249304…249498 Dummy {f00=0x00b9, 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
0x249498…24962c Dummy {f00=0x00b9, 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
0x24962c…2497c0 Dummy {f00=0x00b9, 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
0x2497c0…249954 (2, 132) Dummy {f00=0x00b9, 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
0x249954…249ae8 Dummy {f00=0x00b9, 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
0x249ae8…249c7c Dummy {f00=0x00b9, 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*
0x249c7c…249e10 Dummy {f00=0x00b9, 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
0x249e10…249fa4 Dummy {f00=0x00b9, 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
0x249fa4…24a138 Dummy {f00=0x00b9, 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 * *
0x24a138…24a2cc Dummy {f00=0x00b9, 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
0x24a2cc…24a460 Dummy {f00=0x00b9, 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: " $ % & ' ! " # $
0x24a460…24a5f4 (2, 133) Opaque[0x194]
0x24a5f4…24a788 # DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1740, f03=0x0000}
0x24a5f4…24a788 IdxSect {
0x24a5f4…24a788 f00 = 0x00ba // 0x24a5f4 @0x0
0x24a5f4…24a788 f01 = 0x000a // 0x24a5f6 @0x2
0x24a5f4…24a788 gno = [ // 0x24a5f8 @0x4
0x24a5f4…24a788 [0x00]: C0x00ba.0x0.0
0x24a5f4…24a788 [0x01]: C0x00ba.0x1.0
0x24a5f4…24a788 [0x02]: C0x00ba.0x2.0
0x24a5f4…24a788 [0x03]: C0x00ba.0x3.0
0x24a5f4…24a788 [0x04]: C0x00bb.0x0.0
0x24a5f4…24a788 ]
0x24a5f4…24a788 }
0x24a788…24a91c Dummy {f00=0x00ba, 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
0x24a91c…24aab0 Dummy {f00=0x00ba, 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
0x24aab0…24ac44 Dummy {f00=0x00ba, 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
0x24ac44…24add8 Dummy {f00=0x00ba, 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
0x24add8…24af6c Dummy {f00=0x00ba, 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
0x24af6c…24b100 Dummy {f00=0x00ba, 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
0x24b100…24b294 (2, 134) Dummy {f00=0x00ba, 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
0x24b294…24b428 Dummy {f00=0x00ba, 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
0x24b428…24b5bc Dummy {f00=0x00ba, 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
0x24b5bc…24b750 Dummy {f00=0x00ba, 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
0x24b750…24b8e4 Dummy {f00=0x00ba, 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
0x24b8e4…24ba78 Dummy {f00=0x00ba, 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
0x24ba78…24bc0c Dummy {f00=0x00ba, 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
0x24bc0c…24bda0 Dummy {f00=0x00ba, 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*
0x24bda0…24bf34 (2, 135) Dummy {f00=0x00ba, 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
0x24bf34…24c0c8 Dummy {f00=0x00ba, 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
0x24c0c8…24c25c Dummy {f00=0x00ba, 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
0x24c25c…24c3f0 Dummy {f00=0x00ba, 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*
0x24c3f0…24c584 Dummy {f00=0x00ba, 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
0x24c584…24c718 Dummy {f00=0x00ba, 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
0x24c718…24c8ac Dummy {f00=0x00ba, 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
0x24c8ac…24ca40 Dummy {f00=0x00ba, 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
0x24ca40…24cbd4 (2, 136) Dummy {f00=0x00ba, 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
0x24cbd4…24cd68 Dummy {f00=0x00ba, 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
0x24cd68…24cefc Dummy {f00=0x00ba, 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
0x24cefc…24d090 Dummy {f00=0x00ba, 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*
0x24d090…24d224 Dummy {f00=0x00ba, 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
0x24d224…24d3b8 Dummy {f00=0x00ba, 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
0x24d3b8…24d54c Dummy {f00=0x00ba, 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
0x24d54c…24d6e0 Dummy {f00=0x00ba, 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
0x24d6e0…24d874 (2, 137) Dummy {f00=0x00bb, 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
0x24d874…24da08 Dummy {f00=0x00bb, 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
0x24da08…24db9c Dummy {f00=0x00bb, 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
0x24db9c…24dd30 Dummy {f00=0x00bb, 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 !
0x24dd30…24dec4 Dummy {f00=0x00bb, 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
0x24dec4…24e058 Dummy {f00=0x00bb, 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
0x24e058…24e1ec Dummy {f00=0x00bb, 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
0x24e1ec…24e380 Dummy {f00=0x00bb, 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 !! ( ~
0x24e380…24e514 (2, 138) Opaque[0x194]
0x24e514…24e6a8 # DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1768, f03=0x0000}
0x24e514…24e6a8 IdxSect {
0x24e514…24e6a8 f00 = 0x00bb // 0x24e514 @0x0
0x24e514…24e6a8 f01 = 0x000a // 0x24e516 @0x2
0x24e514…24e6a8 gno = [ // 0x24e518 @0x4
0x24e514…24e6a8 [0x00]: C0x00bb.0x1.0
0x24e514…24e6a8 [0x01]: C0x00bb.0x2.0
0x24e514…24e6a8 [0x02]: C0x00bb.0x3.0
0x24e514…24e6a8 [0x03]: C0x00bc.0x0.0
0x24e514…24e6a8 [0x04]: C0x00bc.0x1.0
0x24e514…24e6a8 ]
0x24e514…24e6a8 }
0x24e6a8…24e83c Dummy {f00=0x00bb, 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 =
0x24e83c…24e9d0 Dummy {f00=0x00bb, 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
0x24e9d0…24eb64 Dummy {f00=0x00bb, 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
0x24eb64…24ecf8 Dummy {f00=0x00bb, 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
0x24ecf8…24ee8c Dummy {f00=0x00bb, 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
0x24ee8c…24f020 Dummy {f00=0x00bb, 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
0x24f020…24f1b4 (2, 139) Dummy {f00=0x00bb, 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
0x24f1b4…24f348 Dummy {f00=0x00bb, 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
0x24f348…24f4dc Dummy {f00=0x00bb, 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
0x24f4dc…24f670 Dummy {f00=0x00bb, 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
0x24f670…24f804 Dummy {f00=0x00bb, 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
0x24f804…24f998 Dummy {f00=0x00bb, 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
0x24f998…24fb2c Dummy {f00=0x00bb, 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
0x24fb2c…24fcc0 Dummy {f00=0x00bb, 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
0x24fcc0…24fe54 (2, 140) Dummy {f00=0x00bb, 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
0x24fe54…24ffe8 Dummy {f00=0x00bb, 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
0x24ffe8…25017c Dummy {f00=0x00bb, 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
0x25017c…250310 Dummy {f00=0x00bb, 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
0x250310…2504a4 Dummy {f00=0x00bb, 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
0x2504a4…250638 Dummy {f00=0x00bb, 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
0x250638…2507cc Dummy {f00=0x00bb, 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,=
0x2507cc…250960 Dummy {f00=0x00bb, 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
0x250960…250af4 (2, 141) Dummy {f00=0x00bc, 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
0x250af4…250c88 Dummy {f00=0x00bc, 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
0x250c88…250e1c Dummy {f00=0x00bc, 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
0x250e1c…250fb0 Dummy {f00=0x00bc, 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
0x250fb0…251144 Dummy {f00=0x00bc, 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
0x251144…2512d8 Dummy {f00=0x00bc, 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
0x2512d8…25146c Dummy {f00=0x00bc, 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
0x25146c…251600 Dummy {f00=0x00bc, 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
0x251600…251794 (2, 142) Dummy {f00=0x00bc, 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
0x251794…251928 Dummy {f00=0x00bc, 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
0x251928…251abc Dummy {f00=0x00bc, 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:
0x251abc…251c50 Dummy {f00=0x00bc, 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@
0x251c50…251de4 Dummy {f00=0x00bc, 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 "_ !
0x251de4…251f78 Dummy {f00=0x00bc, 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( ?
0x251f78…25210c Dummy {f00=0x00bc, 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 "_ !
0x25210c…2522a0 Dummy {f00=0x00bc, f01=0x4156, f02=» a& a&4 < o = * & ; m n = 0 DEPOOL = ^ * & 9 . a = p * & W R J BC JC JD = * & u =
0x2522a0…252434 (2, 143) Opaque[0x194]
0x252434…2525c8 # DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1790, f03=0x0000}
0x252434…2525c8 IdxSect {
0x252434…2525c8 f00 = 0x00bc // 0x252434 @0x0
0x252434…2525c8 f01 = 0x0008 // 0x252436 @0x2
0x252434…2525c8 gno = [ // 0x252438 @0x4
0x252434…2525c8 [0x00]: C0x00bc.0x2.0
0x252434…2525c8 [0x01]: C0x00bc.0x3.0
0x252434…2525c8 [0x02]: C0x00bd.0x0.0
0x252434…2525c8 [0x03]: C0x00bd.0x1.0
0x252434…2525c8 ]
0x252434…2525c8 }
0x2525c8…25275c Dummy {f00=0x00bc, 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*
0x25275c…2528f0 Dummy {f00=0x00bc, 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
0x2528f0…252a84 Dummy {f00=0x00bc, 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
0x252a84…252c18 Dummy {f00=0x00bc, 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
0x252c18…252dac Dummy {f00=0x00bc, 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
0x252dac…252f40 Dummy {f00=0x00bc, 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
0x252f40…2530d4 (2, 144) Dummy {f00=0x00bc, 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
0x2530d4…253268 Dummy {f00=0x00bc, 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
0x253268…2533fc Dummy {f00=0x00bc, 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
0x2533fc…253590 Dummy {f00=0x00bc, 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
0x253590…253724 Dummy {f00=0x00bc, 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
0x253724…2538b8 Dummy {f00=0x00bc, 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 * *
0x2538b8…253a4c Dummy {f00=0x00bc, 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
0x253a4c…253be0 Dummy {f00=0x00bc, 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
0x253be0…253d74 (2, 145) Dummy {f00=0x00bd, 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
0x253d74…253f08 Dummy {f00=0x00bd, 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
0x253f08…25409c Dummy {f00=0x00bd, 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
0x25409c…254230 Dummy {f00=0x00bd, 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
0x254230…2543c4 Dummy {f00=0x00bd, 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
0x2543c4…254558 Dummy {f00=0x00bd, 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
0x254558…2546ec Dummy {f00=0x00bd, 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
0x2546ec…254880 Dummy {f00=0x00bd, 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
0x254880…254a14 (2, 146) Dummy {f00=0x00bd, 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
0x254a14…254ba8 Dummy {f00=0x00bd, 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
0x254ba8…254d3c Dummy {f00=0x00bd, 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 * *
0x254d3c…254ed0 Dummy {f00=0x00bd, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ 2 . AX Z 8 0 5
0x254ed0…255064 Dummy {f00=0x00bd, 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 `
0x255064…2551f8 Dummy {f00=0x00bd, 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
0x2551f8…25538c Dummy {f00=0x00bd, 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 @
0x25538c…255520 Dummy {f00=0x00bd, 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-
0x255520…2556b4 (2, 147) Opaque[0x194]
0x2556b4…255848 # DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x2556b4…255848 IdxSect {
0x2556b4…255848 f00 = 0x00bd // 0x2556b4 @0x0
0x2556b4…255848 f01 = 0x000e // 0x2556b6 @0x2
0x2556b4…255848 gno = [ // 0x2556b8 @0x4
0x2556b4…255848 [0x00]: C0x00bd.0x2.0
0x2556b4…255848 [0x01]: C0x00bd.0x3.0
0x2556b4…255848 [0x02]: C0x00be.0x0.0
0x2556b4…255848 [0x03]: C0x00be.0x1.0
0x2556b4…255848 [0x04]: C0x00be.0x2.0
0x2556b4…255848 [0x05]: C0x00be.0x3.0
0x2556b4…255848 [0x06]: C0x00bf.0x0.0
0x2556b4…255848 ]
0x2556b4…255848 }
0x255848…2559dc Dummy {f00=0x00bd, 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
0x2559dc…255b70 Dummy {f00=0x00bd, 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
0x255b70…255d04 Dummy {f00=0x00bd, 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
0x255d04…255e98 Dummy {f00=0x00bd, 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
0x255e98…25602c Dummy {f00=0x00bd, 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
0x25602c…2561c0 Dummy {f00=0x00bd, 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
0x2561c0…256354 (2, 148) Dummy {f00=0x00bd, 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
0x256354…2564e8 Dummy {f00=0x00bd, 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
0x2564e8…25667c Dummy {f00=0x00bd, 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
0x25667c…256810 Dummy {f00=0x00bd, 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
0x256810…2569a4 Dummy {f00=0x00bd, 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
0x2569a4…256b38 Dummy {f00=0x00bd, 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
0x256b38…256ccc Dummy {f00=0x00bd, 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
0x256ccc…256e60 Dummy {f00=0x00bd, 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
0x256e60…256ff4 (2, 149) Dummy {f00=0x00be, 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
0x256ff4…257188 Dummy {f00=0x00be, 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
0x257188…25731c Dummy {f00=0x00be, 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
0x25731c…2574b0 Dummy {f00=0x00be, 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*
0x2574b0…257644 Dummy {f00=0x00be, 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*
0x257644…2577d8 Dummy {f00=0x00be, 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
0x2577d8…25796c Dummy {f00=0x00be, 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
0x25796c…257b00 Dummy {f00=0x00be, 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
0x257b00…257c94 (2, 150) Dummy {f00=0x00be, 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
0x257c94…257e28 Dummy {f00=0x00be, 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
0x257e28…257fbc Dummy {f00=0x00be, 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
0x257fbc…258150 Dummy {f00=0x00be, 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
0x258150…2582e4 Dummy {f00=0x00be, 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
0x2582e4…258478 Dummy {f00=0x00be, 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
0x258478…25860c Dummy {f00=0x00be, 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
0x25860c…2587a0 Dummy {f00=0x00be, 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
0x2587a0…258934 (2, 151) Dummy {f00=0x00be, 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
0x258934…258ac8 Dummy {f00=0x00be, 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>
0x258ac8…258c5c Dummy {f00=0x00be, 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 (
0x258c5c…258df0 Dummy {f00=0x00be, 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 !
0x258df0…258f84 Dummy {f00=0x00be, 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
0x258f84…259118 Dummy {f00=0x00be, 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 #
0x259118…2592ac Dummy {f00=0x00be, 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 $
0x2592ac…259440 Dummy {f00=0x00be, 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 %
0x259440…2595d4 (2, 152) Dummy {f00=0x00be, 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
0x2595d4…259768 Dummy {f00=0x00be, 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
0x259768…2598fc Dummy {f00=0x00be, 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
0x2598fc…259a90 Dummy {f00=0x00be, 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
0x259a90…259c24 Dummy {f00=0x00be, 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
0x259c24…259db8 Dummy {f00=0x00be, 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 +
0x259db8…259f4c Dummy {f00=0x00be, 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
0x259f4c…25a0e0 Dummy {f00=0x00be, 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
0x25a0e0…25a274 (2, 153) Dummy {f00=0x00bf, 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
0x25a274…25a408 Dummy {f00=0x00bf, 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
0x25a408…25a59c Dummy {f00=0x00bf, 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
0x25a59c…25a730 Dummy {f00=0x00bf, 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 #
0x25a730…25a8c4 Dummy {f00=0x00bf, 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 !
0x25a8c4…25aa58 Dummy {f00=0x00bf, 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
0x25aa58…25abec Dummy {f00=0x00bf, 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
0x25abec…25ad80 Dummy {f00=0x00bf, 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
0x25ad80…25af14 (2, 154) Opaque[0x194]
0x25af14…25b0a8 # DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17e8, f03=0x0000}
0x25af14…25b0a8 IdxSect {
0x25af14…25b0a8 f00 = 0x00bf // 0x25af14 @0x0
0x25af14…25b0a8 f01 = 0x0008 // 0x25af16 @0x2
0x25af14…25b0a8 gno = [ // 0x25af18 @0x4
0x25af14…25b0a8 [0x00]: C0x00bf.0x1.0
0x25af14…25b0a8 [0x01]: C0x00bf.0x2.0
0x25af14…25b0a8 [0x02]: C0x00bf.0x3.0
0x25af14…25b0a8 [0x03]: C0x00c0.0x0.0
0x25af14…25b0a8 ]
0x25af14…25b0a8 }
0x25b0a8…25b23c Dummy {f00=0x00bf, 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
0x25b23c…25b3d0 Dummy {f00=0x00bf, 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
0x25b3d0…25b564 Dummy {f00=0x00bf, 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
0x25b564…25b6f8 Dummy {f00=0x00bf, 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
0x25b6f8…25b88c Dummy {f00=0x00bf, 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
0x25b88c…25ba20 Dummy {f00=0x00bf, 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
0x25ba20…25bbb4 (2, 155) Dummy {f00=0x00bf, 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
0x25bbb4…25bd48 Dummy {f00=0x00bf, 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,
0x25bd48…25bedc Dummy {f00=0x00bf, 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
0x25bedc…25c070 Dummy {f00=0x00bf, 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
0x25c070…25c204 Dummy {f00=0x00bf, 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
0x25c204…25c398 Dummy {f00=0x00bf, 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
0x25c398…25c52c Dummy {f00=0x00bf, 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
0x25c52c…25c6c0 Dummy {f00=0x00bf, 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
0x25c6c0…25c854 (2, 156) Dummy {f00=0x00bf, 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
0x25c854…25c9e8 Dummy {f00=0x00bf, 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 ',
0x25c9e8…25cb7c Dummy {f00=0x00bf, 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
0x25cb7c…25cd10 Dummy {f00=0x00bf, 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
0x25cd10…25cea4 Dummy {f00=0x00bf, 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
0x25cea4…25d038 Dummy {f00=0x00bf, 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
0x25d038…25d1cc Dummy {f00=0x00bf, 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
0x25d1cc…25d360 Dummy {f00=0x00bf, 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
0x25d360…25d4f4 (2, 157) Dummy {f00=0x00c0, 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
0x25d4f4…25d688 Dummy {f00=0x00c0, 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
0x25d688…25d81c Dummy {f00=0x00c0, 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
0x25d81c…25d9b0 Dummy {f00=0x00c0, 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
0x25d9b0…25db44 Dummy {f00=0x00c0, 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,
0x25db44…25dcd8 Dummy {f00=0x00c0, 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,
0x25dcd8…25de6c Dummy {f00=0x00c0, f01=0x2008, f02=»
0x25de6c…25e000 Dummy {f00=0x00c0, 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" &
0x25e000…25e194 (2, 158) Opaque[0x194]
0x25e194…25e328 # DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1808, f03=0x0000}
0x25e194…25e328 IdxSect {
0x25e194…25e328 f00 = 0x00c0 // 0x25e194 @0x0
0x25e194…25e328 f01 = 0x0004 // 0x25e196 @0x2
0x25e194…25e328 gno = [ // 0x25e198 @0x4
0x25e194…25e328 [0x00]: C0x00c0.0x1.0
0x25e194…25e328 [0x01]: C0x00c0.0x2.0
0x25e194…25e328 ]
0x25e194…25e328 }
0x25e328…25e4bc Dummy {f00=0x00c0, 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
0x25e4bc…25e650 Dummy {f00=0x00c0, 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
0x25e650…25e7e4 Dummy {f00=0x00c0, 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
0x25e7e4…25e978 Dummy {f00=0x00c0, f01=0x018e, f02=» P* L M************************************************************************ * ^ DDUM DEDDIV h PDIV | * * ***** ENTRY ***** * ENTRY DELOCK * * ***** EXTERNALS *****
0x25e978…25eb0c Dummy {f00=0x00c0, f01=0x0190, f02=» L M************************************************************************ * T & "* ENTRY-POINT / PROGRAM-START ^ * L M************************************************************************ * DELOCK PROC OPTION,KEYIND
0x25eb0c…25eca0 Dummy {f00=0x00c0, 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
0x25eca0…25ee34 (2, 159) Dummy {f00=0x00c0, 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
0x25ee34…25efc8 Dummy {f00=0x00c0, 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
0x25efc8…25f15c Dummy {f00=0x00c0, 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
0x25f15c…25f2f0 Dummy {f00=0x00c0, 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
0x25f2f0…25f484 Dummy {f00=0x00c0, 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 *
0x25f484…25f618 Dummy {f00=0x00c0, 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 !!
0x25f618…25f7ac Dummy {f00=0x00c0, 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
0x25f7ac…25f940 Dummy {f00=0x00c0, 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
0x25f940…25fad4 (2, 160) Opaque[0x194]
0x25fad4…25fc68 # DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1818, f03=0x0000}
0x25fad4…25fc68 IdxSect {
0x25fad4…25fc68 f00 = 0x00c0 // 0x25fad4 @0x0
0x25fad4…25fc68 f01 = 0x0004 // 0x25fad6 @0x2
0x25fad4…25fc68 gno = [ // 0x25fad8 @0x4
0x25fad4…25fc68 [0x00]: C0x00c0.0x3.0
0x25fad4…25fc68 [0x01]: C0x00c1.0x0.0
0x25fad4…25fc68 ]
0x25fad4…25fc68 }
0x25fc68…25fdfc Dummy {f00=0x00c0, 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
0x25fdfc…25ff90 Dummy {f00=0x00c0, 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 * &*
0x25ff90…260124 Dummy {f00=0x00c0, 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
0x260124…2602b8 Dummy {f00=0x00c0, 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
0x2602b8…26044c Dummy {f00=0x00c0, 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
0x26044c…2605e0 Dummy {f00=0x00c0, 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(
0x2605e0…260774 (2, 161) Dummy {f00=0x00c1, 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
0x260774…260908 Dummy {f00=0x00c1, 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
0x260908…260a9c Dummy {f00=0x00c1, f01=0x2008, f02=»
0x260a9c…260c30 Dummy {f00=0x00c1, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x260c30…260dc4 Dummy {f00=0x00c1, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x260dc4…260f58 Dummy {f00=0x00c1, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x260f58…2610ec Dummy {f00=0x00c1, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x2610ec…261280 Dummy {f00=0x00c1, f01=0x401a, f02=» u @ & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x261280…261414 (2, 162) Opaque[0x194]
0x261414…2615a8 # DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1828, f03=0x0000}
0x261414…2615a8 IdxSect {
0x261414…2615a8 f00 = 0x00c1 // 0x261414 @0x0
0x261414…2615a8 f01 = 0x000e // 0x261416 @0x2
0x261414…2615a8 gno = [ // 0x261418 @0x4
0x261414…2615a8 [0x00]: C0x00c1.0x1.0
0x261414…2615a8 [0x01]: C0x00c1.0x2.0
0x261414…2615a8 [0x02]: C0x00c1.0x3.0
0x261414…2615a8 [0x03]: C0x00c2.0x0.0
0x261414…2615a8 [0x04]: C0x00c2.0x1.0
0x261414…2615a8 [0x05]: C0x00c2.0x2.0
0x261414…2615a8 [0x06]: C0x00c2.0x3.0
0x261414…2615a8 ]
0x261414…2615a8 }
0x2615a8…26173c Dummy {f00=0x00c1, f01=0x0190, f02=» $ P IDENT DENT01 SHB 10.0 80-04-11 & P* LINE 675 SHB UNIQUE STATEMENT , P DDUM DEDDIV V P PDIV j P ENTRY DENT01 x P EXT DERECS P EXT DEACC P EXT DECLRN P EXT DECLRD P EXT DECLRA P EXT DECLRS P EXT
0x26173c…2618d0 Dummy {f00=0x00c1, f01=0x0190, f02=»XT TESTB TEST FOR A BIT IN A BIN P EXT SETB SET A BIT IN A BIN ( & P EXT GETDUP LOOK FOR DUPLICATION- L P STRING FOR CURRENT FIELD v & P EXT DEDISC DISC HANDLING ROUTINE & P EXT DEPOOL POOL HANDLING ROUTINE P EXT MASK P EXT EMP
0x2618d0…261a64 Dummy {f00=0x00c1, f01=0x0190, f02=»*************** v P* P* HANDLE ENTERED DATA " P* @ . P***************************************** J PDATAIN | & P TBT DOOL8,DAT04 JUMP IF OPEN NEW P* $ P TBF VERIFM,DAT0X VERIFY MODE ? ( P TBF DBOMVR,DAT05 RECORD TO VERIFY
0x261a64…261bf8 Dummy {f00=0x00c1, f01=0x0190, f02=»* PDAT0 THOME , PDAT01 CLEAR DECHANGE CHANGED INPUTFIELD $ P TBT VERIFM,DAT05 VERIFY MODE ? L & P TBF DEPROMPT,DAT07 ENTIRE DISPLAY t PDAT04 , P CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH . P MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000
0x261bf8…261d8c Dummy {f00=0x00c1, f01=0x018e, f02=»F DECLRS CLEAR SOME INPUTFIELDS(NCLR) P B DAT03 . PDAT05 > ( P TBT KEYVER,DAT06 KEY VERIFICATION ? L PDAT0X x & P SET DENOCHAN NO CHANGES PERMITTED PDAT06 ( P PERF DECLRD DISPLAY VARIABEL FIELDS : PDAT03 IB DEBINW2,CANCDA,RETUDA
0x261d8c…261f20 Dummy {f00=0x00c1, f01=0x0190, f02=» l P* PDATERR MOVE DEBINW4,W0 PDATER2 0 $ P TBF VERIFM,DATER3 VERIFY MODE ? > * P TBT KEYVER,DATER3 KEY VERIFICATION ? f & P SET DENOCHAN NO CHANGES PERMITTED P* PDATER3 * P CBE PINDFR,W0,DATER4 NO ENTRY FORMAT P A
0x261f20…2620b4 (2, 163) Dummy {f00=0x00c1, f01=0x0190, f02=» & P IB DEBINW2,TOTBAL,CANCBL,SERIOUS P B DATER4 . PDATER7 @ ( P IB DEBINW2,DATER5,DATER5 CLR,CAN C N ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA z PDATER5 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME P PERF DERECS,W14 GET FORMAT
0x2620b4…262248 Dummy {f00=0x00c1, f01=0x0190, f02=»T0 ENTRY NEW REC v P TBT DOOL2,DAT0 INSERT P B DAT0X 6 PDATER6 F ( P CBE NUMBER,=D'0',DATER8 BATCHEAD=0 T P B RBWDDA PDATER8 P MOVE DEBINW4,W15 P B DATER4 P EJECT P***************** P* CANCEL PRESSED.
0x262248…2623dc Dummy {f00=0x00c1, f01=0x0190, f02=» P THOME P B DAT04 P* " PCANC03 , ( P TBF DOOL2,CANC10 JUMP IF NOT INSERT : * P MOVE DEBINW2,W5 SIMULATE RBWD PRESSED f P B RBWD10 PCANC10 , P TBT DECHANGE,CANC20 CHANGED INPUTFIELD? $ P TBT VERIFM,CANC13 VERIFY MODE ?
0x2623dc…262570 Dummy {f00=0x00c1, f01=0x0190, f02=» r * P TBF DBOMVR,CANC15 RECORD TO VERIFY ? ( P TBT DBOVER,CANC15 VERIFIED RECORD ? 6 P PERF DEVERS SET VERIFY MODE b PCANC13 & P CLEAR DENOCHAN CHANGES PERMITTED & P ERASE 1,W1,W0 ERASE ALL ON SCREEN P B DAT05 PCANC15 P P
0x262570…262704 Dummy {f00=0x00c1, f01=0x0190, f02=»R DATER2 ( P CLEAR DECHANGE CHANGED INPUTFILED ? " P CLEAR DEPROMPT ENTIRE DISPLAY < P BNZ DAT04 b , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP t P B DAT06 P EJECT P***************** P* RETURN PRESSED. P*****************
0x262704…262898 Dummy {f00=0x00c1, f01=0x0190, f02=»DE ? t & P PERF DERECS,W3 ENTER LAST RECORD P BNERR SERIOUS 6 PRETU03 L P PERF DERROR,DEKTAB6 Z PRETU05 v P B SERIOUS P**************** P* ENTER PRESSED. P**************** PDATENT $ P TBF VERIFM,DAEN00 VERIFY MO
0x262898…262a2c Dummy {f00=0x00c1, f01=0x0190, f02=» P B RFWD10 P EJECT PDAEN00 ( 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT 6 ( P PERF DEACC,W0 INCREASE ACCUMULATORS n & PDAEN10 CLEAR DOOL2 RECORD INSERT ? P BZ DAEN50 P* HANDLE INSERTED RECORD P* P CLEAR B
0x262a2c…262bc0 Dummy {f00=0x00c1, f01=0x0190, f02=» CHANGES PERMITTED * P PERF DERECS,W12 ENTER INSERTED RECORD P BOK DAEN30 H PDAEN20 ( P PERF DEACC,W1 DECREASE ACCUMULATORS j P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER PINSERR P PERF DELAST,W6,DEKTAB5 P IB DEBI
0x262bc0…262d54 (2, 164) Dummy {f00=0x00c1, f01=0x0190, f02=»L INPUT P* PDAEN50 * P TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? ( 2 P CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS V PDAEN60 P TBF DECHANGE,DAEN61 P PERF DERECS,W1 ENTER NEW P BNOK DAEN20 PDAEN61 P CLEAR BOOL5 C
0x262d54…262ee8 Dummy {f00=0x00c1, f01=0x0190, f02=»E=IMMIDIATE (N) v P B DAEN63 PDAEN62 * P CLEAR BOOL3 CLEAR/SET CR 8 & P BOK DAEN65 NO FORMAT CHANGE FOUND Z 2 P MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG PDAEN63 8 P CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE P BNO
0x262ee8…26307c Dummy {f00=0x00c1, f01=0x0190, f02=» b " P BNOK DAEN67 DATAENTER-FORMAT ( P MOVE BIN3,DEBINW4 SAVE FORMATINDEX . & P PERF DERECS,W3 ENTER LAST RECORD Z P BOK DAEN66 8 P CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE PDAEN66 P MOVE DEINPUT,HEX00 6 P COPY DEIN
0x26307c…263210 Dummy {f00=0x00c1, f01=0x0190, f02=»T,HEX00 : P COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME P CLEAR DOOL8 OPEN NEW BATCH N " P PERF DERECS,W14 CHANGE FORMAT r P BOK DAEN64 P CBNE NUMBER,=D'0',DAEN69 P SET DENOCHAN PDAEN69 P B DATER2 PDAEN
0x263210…2633a4 Dummy {f00=0x00c1, f01=0x018e, f02=»10 P BOK DAEN68 P CLEAR DOOL8 P B DATER4 2 PDAEN68 D P CLEAR DOOL8 R PDAEN70 f P CLEAR DECHANGE t P BZ DAT0 P CLEAR SW95PR P BZ DAEN80 P MOVE DEBINW4,=W'-1' P PERF DERROR,DEKTABS $ P IB DEBINW2,
0x2633a4…263538 Dummy {f00=0x00c1, f01=0x0190, f02=» | & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 2 P PERF DEVERS SET VERIFY MODE F P B RFWD02 j PDAEN85 | P B DAT0 P EJECT P****************** P* RECORD FORWARD. P****************** PRFWDDA P TBT
0x263538…2636cc Dummy {f00=0x00c1, f01=0x0190, f02=»INW3 r * P CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? ( P TBF DBOMVR,RFWD03 RECORD TO VERIFY : P PERF DEVERS SET VERIFY MODE f P TBT DBOVER,RFWD10 PRFWD02 P PERF DELAST,W9,DEKTAB8 P B CANC13 PRFWD04 ( P TBT DBOVER,RFWD10 VER
0x2636cc…263860 Dummy {f00=0x00c1, f01=0x0190, f02=»F NOT INSERT x PRFWD06 " P B RBWD10 GET PREVIOUS RECORD " PRFWD05 H P TBT DENOCHAN,RFWD10 V PRFWD07 r P B DATERR PRFWD10 P MOVE DEBINW3,NUMBER $ P CBNE DEBINW3,BDPOIN(W2),RFWD15 P TEST VERIFM & P BNZ TOTBAL JUMP
0x263860…2639f4 (2, 165) Dummy {f00=0x00c2, f01=0x0190, f02=»W9 NO MORE RECORDS P B RFWD33 PRFWD15 , $ P TBT VERIFM,RFWD23 VERIFY MODE? : P PERF DELAST,W15,DEKTABR b ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C P RFWD18,RBWDDA P MOVE DEBINW2,W4 PRFWD22 P MOVE BCDI21(W3),DEINPUT
0x2639f4…263b88 Dummy {f00=0x00c2, f01=0x018e, f02=»W6 P B DATER2 PRFWD17 P MOVE DEBINW3,BCDI21(W3) * 0 P CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH J $ P MOVE BCDI21(W3),NUMBER RESTORE ~ P B RFWD13 NOT FOUND PRFWD18 P SUB DEBINW1,W1 P BNZ RFWD22 PRFWD23
0x263b88…263d1c Dummy {f00=0x00c2, f01=0x0190, f02=» PRFWD20 $ P PERF DERECS,W4 GET NEXT RECORD PRFWD30 : P BOK RFWD40 H P BOFL RETU03 P CLEAR DOOLC p & P CBNE PINDFR,W0,RFWD33 CURR FORMAT * P CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? $ P TBF VERIFM,RFWD31 VERIFY MODE ? * P CBE
0x263d1c…263eb0 Dummy {f00=0x00c2, f01=0x018e, f02=»WD32 P CLEAR SOOL2 P B DATER4 PRFWD33 2 P TBF VERIFM,RFWD38 @ P TEST BDAVER Z P BNZ TOTBAL n P TBT KEYVER,RFWD35 P DISPLAY 30,W1,W0 P B RFWD39 PRFWD35 P DISPLAY 20,W1,W0 P B RFWD39 PRFWD38
0x263eb0…264044 Dummy {f00=0x00c2, f01=0x0190, f02=» PRFWD40 P SET SOOL2 NOT BATCHHEAD ( P CBE DEBINW2,W5,RFWD50 RBWD PRESSED 6 & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 b & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY P TBF DBOMVR,RFWD10 P PERF DEVERS SET VERIFY MODE P TBT DBOVER,RFWD10
0x264044…2641d8 Dummy {f00=0x00c2, f01=0x0190, f02=»WD70 | P TEST VERIFM P BZ DAT06 P B DAT05 2 PRFWD70 B P CLEAR SOOL2 P P TEST VERIFM d P BZ DAT0X x P B DAT05 P EJECT P***************** P* RECORD BACKWARD P***************** P* PRBWERR B
0x2641d8…26436c Dummy {f00=0x00c2, f01=0x0190, f02=»BER,=D'0',RFWD12 BATCHHEAD & P PERF DEVERC CLEAR IF VERIFY MODE " P BNZ RBWD10 L P TBT DENOCHAN,RBWD15 ` & P SET DENOCHAN NO CHANGES PERMITTED | & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 P B RFWD50 PRBWD10 & P SET
0x26436c…264500 Dummy {f00=0x00c2, f01=0x0190, f02=»BR z ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C P RFWDDA,RBWD25 6 P MOVE DEBINW2,W5 N PRBWD20 f P MOVE BCDI21(W3),DEINPUT t " P CBNL BCDI21(W3),NUMBER,RFWD16 P B RBWD30 PRBWD25 P SUB DEBINW1,W1 P BNZ RBWD20 PRB
0x264500…264694 (2, 166) Dummy {f00=0x00c2, f01=0x0190, f02=»ERF DERECS,W6 GET PREVIOUS RECORD P B RFWD30 * P EJECT < P******************* J P* RECORD CORRECTION f P******************* PCORDAT P TBT VERIFM,CORD10 P TBF DENOCHAN,RBWERR PCORD10 P TBT DOOL2,RBWERR INSERT
0x264694…264828 Dummy {f00=0x00c2, f01=0x0190, f02=»RMITTED v P PERF DELAST,W8,DEKTAB7 & P PERF DEVERC CLEAR IF VERIFY MODE 0 P BZ CORD20 Z P PERF DECLRD l P B CORD30 PCORD20 P PERF DECLRN 8 PCORD30 IB DEBINW2,CORCAN,CORC10,CORENT CLR,CAN,ENT C & P CORD35,CORD35,CORD35 N
0x264828…2649bc Dummy {f00=0x00c2, f01=0x0190, f02=» ( P TBF DECHANGE,CORE15 NO CHANGES MADE & P ERASE 1,W1,W0 ERASE ALL ON SCREEN 0 PCORC10 Z P SET DOOL4 h & P PERF DERECS,W5 GET CURRENT RECORD z P BNERR CORRET P CLEAR DOOL4 P B CORD40 PCORRET P CLEAR DOOL4 PCORE15
0x2649bc…264b50 Dummy {f00=0x00c2, f01=0x0190, f02=»T,ENT C b & P CORENT,CORENT,CORENT NOT USED C ! P CORDEL DEL ! : PCORENT ! N P PERF DERECS,W2 ENTER OLD ! P BNOK CORD40 ! ~ PCORE10 ! P MOVE DEBINW3,W24 ! , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE ! & P CBNE DEBINW2,W1,CORE15 NOT CA
0x264b50…264ce4 Dummy {f00=0x00c2, f01=0x0190, f02=»,DEBINW3 ! v P CBNE DEBINW4,W6,CORE60 " PCORE50 " 0 P TBF DBOMVR,CORE60 " > P TBT DBOVER,CORE60 " X P PERF DEVERS SET VEIFY MODE " r P B RFWD02 " PCORE60 " & P SET DENOCHAN NO CHANGES PERMITTED " . P CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANC
0x264ce4…264e78 Dummy {f00=0x00c2, f01=0x0190, f02=» " P***************** # P* RECORD DELETE. # " P***************** # : PDLTEDA # T P TBT VERIFM,DLTE05 # b P TEST DENOCHAN # | P BZ DATERR # P TEST DOOL2 INSERT # P BNZ DATERR # PDLTE05 # P TEST SOOL2 # P BZ DATERR JUMP IF B
0x264e78…26500c Dummy {f00=0x00c2, f01=0x0190, f02=»,DLTE10 # p & P ERASE 1,W1,W0 ERASE ALL ON SCREEN $ ( P PERF DEACC,W1 DECREASE ACCUMULATORS $ : P THOME $ f PDLTE30 $ t P PERF DERECS,W8 $ P BNERR DLTE50 $ P PERF DERROR,DEKTAB6 $ P B SERIOUS $ PDLTE50 $ P PERF DELAST,W3,DEKTAB5 $
0x26500c…2651a0 Dummy {f00=0x00c2, f01=0x0190, f02=»BELL ACOUSTIC ALARM $ P B DLTE50 % P EJECT % . P******************* % < P* CHANGE PROGRAM. * % X P******************* % t PPROGDA % P TEST DENOCHAN % P BNZ DATERR % P TEST DECHANGE % P BNZ DATERR % P TEST SOOL2 % P B
0x2651a0…265334 (2, 167) Dummy {f00=0x00c2, f01=0x018e, f02=» SUB DEBINW1,W1 % P BZ PROGD0 JUMP IF NO INPUT & 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY & < $ P PERF DERECS,W10 CHANGE PROGRAM & v P BOK DAT0 & P GETFLD 0,BIN4,DEBINW2 & P B DATER2 & P* & PPROCAN & & P PERF DEPRUT,PRN
0x265334…2654c8 Dummy {f00=0x00c2, f01=0x0190, f02=» & P EJECT ' P****************** ' P* RECORD INSERT. * ' 0 P****************** ' J PINSRDA ' d P TEST DOOL2 ' r P BNZ DATERR ' & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 ' P CBNE DEBINW4,W6,INSR05 ' P TBF DBOMVR,INSR05 ' P TBT DBOVE
0x2654c8…26565c Dummy {f00=0x00c2, f01=0x0190, f02=»,INSR10 LAST RECORD ' x & P CLEAR DENOCHAN CHANGES PERMITTED ( P B CANBL1 ( F PINSR10 ( X P PERF DELAST,W4,DEKTAB7 ( f , P IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 ( " P PERF DERECS,W9 INSERT RECORD ( P BERR DATER2 ( & P CLEAR DENOCHAN CHANGES
0x26565c…2657f0 Dummy {f00=0x00c2, f01=0x0190, f02=»******** ( P* TOT-KEY PRESSED. * ) P******************** ) , PTOTDA ) H P TEST DOOL8 ) V P BNZ DATERR ) j P TBF SOOL2,TOTBAL ) ~ P CLEAR DOOL2 INSERT ) P BNZ TOTBAL ) P TEST DECHANGE ) P BNZ DATERR ) P TBT DENOCHAN,TOTBAL )
0x2657f0…265984 Dummy {f00=0x00c2, f01=0x0190, f02=» DATER2 ) P EJECT * . P***************************************** * P* * P P* HANDLE BALANCE FORMAT * Z P* * z . P***************************************** * PTOTBAL * & P CLEAR DENOCHAN CHANGES PERMITTED * P CLEAR SOOL2 * P MOVE
0x265984…265b18 Dummy {f00=0x00c2, f01=0x0190, f02=»HANGE * P SET DOOLA + PTOTB10 + P PERF DEDISC,W10 GET FORMAT + . P BNERR TOTB20 + R * P CBNE DEBINW4,W13,TOTB12 NO WORKSPACE + h & P ATTFMT FFETCH ATTACH DUMMYFORMAT + P DISPLAY 0,W1,W0 + P THOME + * P CBE PINDFR,W0,TOTB14 NO CURR. FOR
0x265b18…265cac Dummy {f00=0x00c2, f01=0x0190, f02=»E-FORMAT + z & P SET DENOCHAN NO CHANGES PERMITTED , PTOTB14 , : P B DATER2 , H PTOTB20 , Z ( P MOVE FORMAT,FORTAB(W21) BLANCE NAME , h P MOVE SYMREC(W11),FRMTPNTR , P MOVE BIN14,FLIND(W1) , P ATTFMT BPOOL(BIN14) , P SET DEPROMPT , ( P P
0x265cac…265e40 Dummy {f00=0x00c2, f01=0x0190, f02=»W8,TOTB50 JUMP IF NOT TOT , * P CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED - " P PERF DELAST,W9,DEKTAB6 - P P B TOTB35 - p PTOTB42 - " P B TOTB50 SHB UNIQUE STATEMENT - , P PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE - * P IB DEBINW2,TOTB44,TOTB44,ENTBL,TO
0x265e40…265fd4 (2, 168) Dummy {f00=0x00c2, f01=0x018e, f02=»EBINW4,DEBINW4 - P B TOTB35 . PTOTB50 . ( P MOVE DEBINW4,W0 . 6 PTOTB60 PERF DERR . N P B TOTB40 . f PENTBL . x P SET BDABAL IN BALANCE . PTOTB70 . P CLEAR DOOLA . 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 . P MOVE DEBINW2,
0x265fd4…266168 Dummy {f00=0x00c2, f01=0x018e, f02=» P BOK CANBL3 / P BOFL RETU03 / P CBE DEBINW4,W13,TOTB14 / , P SET DOOLA / L P B TOTB60 / ^ PCANBL3 / p & P PERF DEVERC CLEAR IF VERIFY MODE / ~ * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST / P CLEAR DECHANGE / P B DAT02 / PCANBL2 /
0x266168…2662fc Dummy {f00=0x00c2, f01=0x0190, f02=» P CALL SETB,WORK(W11),W0 0 P CALL SETB,WORK(W12),W0 0 $ P SET VERIFM 0 D P RET 0 X P PEND 0 d PDEVERC PROC 0 r P CLEAR VERIFM 0 P BZ DEVERE 0 P MOVE WORK(W11),W0 0 P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0
0x2662fc…266490 Dummy {f00=0x00c2, f01=0x409a, f02=»T:' 0 z P FCOPY DEINPUT 1 P FTEXT ' FROM DISC.' 1 " P FNL 1 > P FKI 1,ALPHA 1 J P FCOPY HEX00 1 ^ P FMEND 1 r P* 1 END 1 @ 1 P BZ DEVERE 0 P MOVE WORK(W11),W0 0 P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0
0x266490…266624 Dummy {f00=0x00c2, 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
0x266624…2667b8 Dummy {f00=0x00c2, 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 ? " ? < 6h ! !P !W !j !! ! 8f "d
0x2667b8…26694c Dummy {f00=0x00c2, f01=0x0190, f02=» 9 _ " W & ? ? 0 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 50 7 h !T? j !! ! 3 ) 4 ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~
0x26694c…266ae0 Dummy {f00=0x00c2, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 2hZ !PDj !! 0 (P 50 !_<( 4 !, z :h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P
0x266ae0…266c74 (2, 169) Opaque[0x194]
0x266c74…266e08 # DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1860, f03=0x0000}
0x266c74…266e08 IdxSect {
0x266c74…266e08 f00 = 0x00c3 // 0x266c74 @0x0
0x266c74…266e08 f01 = 0x0004 // 0x266c76 @0x2
0x266c74…266e08 gno = [ // 0x266c78 @0x4
0x266c74…266e08 [0x00]: C0x00c3.0x0.0
0x266c74…266e08 [0x01]: C0x00c3.0x1.0
0x266c74…266e08 ]
0x266c74…266e08 }
0x266e08…266f9c Dummy {f00=0x00c3, 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
0x266f9c…267130 Dummy {f00=0x00c3, 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
0x267130…2672c4 Dummy {f00=0x00c3, 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
0x2672c4…267458 Dummy {f00=0x00c3, 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
0x267458…2675ec Dummy {f00=0x00c3, 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'
0x2675ec…267780 Dummy {f00=0x00c3, 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
0x267780…267914 (2, 170) Dummy {f00=0x00c3, 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
0x267914…267aa8 Dummy {f00=0x00c3, 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
0x267aa8…267c3c Dummy {f00=0x00c3, 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
0x267c3c…267dd0 Dummy {f00=0x00c3, 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
0x267dd0…267f64 Dummy {f00=0x00c3, 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
0x267f64…2680f8 Dummy {f00=0x00c3, 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
0x2680f8…26828c Dummy {f00=0x00c3, 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
0x26828c…268420 Dummy {f00=0x00c3, 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
0x268420…2685b4 (2, 171) Opaque[0x194]
0x2685b4…268748 # DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1870, f03=0x0000}
0x2685b4…268748 IdxSect {
0x2685b4…268748 f00 = 0x00c3 // 0x2685b4 @0x0
0x2685b4…268748 f01 = 0x000a // 0x2685b6 @0x2
0x2685b4…268748 gno = [ // 0x2685b8 @0x4
0x2685b4…268748 [0x00]: C0x00c3.0x2.0
0x2685b4…268748 [0x01]: C0x00c3.0x3.0
0x2685b4…268748 [0x02]: C0x00c4.0x0.0
0x2685b4…268748 [0x03]: C0x00c4.0x1.0
0x2685b4…268748 [0x04]: C0x00c4.0x2.0
0x2685b4…268748 ]
0x2685b4…268748 }
0x268748…2688dc Dummy {f00=0x00c3, 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
0x2688dc…268a70 Dummy {f00=0x00c3, 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
0x268a70…268c04 Dummy {f00=0x00c3, f01=0x0190, f02=» = 3 RETURN-KEY * 4 L K************************************************************************ > DDUM DEDDIV PDIV * . ) ENTRY PRFGUF PRINT USERFORMAT DEFINITION * " EXT DEUNPF UNPACK
0x268c04…268d98 Dummy {f00=0x00c3, 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
0x268d98…268f2c Dummy {f00=0x00c3, 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)
0x268f2c…2690c0 Dummy {f00=0x00c3, 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
0x2690c0…269254 (2, 172) Dummy {f00=0x00c3, 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
0x269254…2693e8 Dummy {f00=0x00c3, 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 (
0x2693e8…26957c Dummy {f00=0x00c3, 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
0x26957c…269710 Dummy {f00=0x00c3, 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
0x269710…2698a4 Dummy {f00=0x00c3, 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
0x2698a4…269a38 Dummy {f00=0x00c3, 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*
0x269a38…269bcc Dummy {f00=0x00c3, 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*
0x269bcc…269d60 Dummy {f00=0x00c3, 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*
0x269d60…269ef4 (2, 173) Dummy {f00=0x00c4, 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
0x269ef4…26a088 Dummy {f00=0x00c4, 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
0x26a088…26a21c Dummy {f00=0x00c4, 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
0x26a21c…26a3b0 Dummy {f00=0x00c4, 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*
0x26a3b0…26a544 Dummy {f00=0x00c4, 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
0x26a544…26a6d8 Dummy {f00=0x00c4, 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
0x26a6d8…26a86c Dummy {f00=0x00c4, 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
0x26a86c…26aa00 Dummy {f00=0x00c4, 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
0x26aa00…26ab94 (2, 174) Dummy {f00=0x00c4, 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
0x26ab94…26ad28 Dummy {f00=0x00c4, 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:<'
0x26ad28…26aebc Dummy {f00=0x00c4, 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
0x26aebc…26b050 Dummy {f00=0x00c4, 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
0x26b050…26b1e4 Dummy {f00=0x00c4, 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
0x26b1e4…26b378 Dummy {f00=0x00c4, 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 '
0x26b378…26b50c Dummy {f00=0x00c4, 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
0x26b50c…26b6a0 Dummy {f00=0x00c4, 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
0x26b6a0…26b834 (2, 175) Dummy {f00=0x00c4, 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
0x26b834…26b9c8 Dummy {f00=0x00c4, 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
0x26b9c8…26bb5c Dummy {f00=0x00c4, 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
0x26bb5c…26bcf0 Dummy {f00=0x00c4, 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
0x26bcf0…26be84 Dummy {f00=0x00c4, 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
0x26be84…26c018 Dummy {f00=0x00c4, 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 - " -
0x26c018…26c1ac Dummy {f00=0x00c4, 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
0x26c1ac…26c340 Dummy {f00=0x00c4, 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
0x26c340…26c4d4 (2, 176) Opaque[0x194]
0x26c4d4…26c668 # DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1898, f03=0x0000}
0x26c4d4…26c668 IdxSect {
0x26c4d4…26c668 f00 = 0x00c4 // 0x26c4d4 @0x0
0x26c4d4…26c668 f01 = 0x000c // 0x26c4d6 @0x2
0x26c4d4…26c668 gno = [ // 0x26c4d8 @0x4
0x26c4d4…26c668 [0x00]: C0x00c4.0x3.0
0x26c4d4…26c668 [0x01]: C0x00c5.0x0.0
0x26c4d4…26c668 [0x02]: C0x00c5.0x1.0
0x26c4d4…26c668 [0x03]: C0x00c5.0x2.0
0x26c4d4…26c668 [0x04]: C0x00c5.0x3.0
0x26c4d4…26c668 [0x05]: C0x00c6.0x0.0
0x26c4d4…26c668 ]
0x26c4d4…26c668 }
0x26c668…26c7fc Dummy {f00=0x00c4, 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* $
0x26c7fc…26c990 Dummy {f00=0x00c4, 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
0x26c990…26cb24 Dummy {f00=0x00c4, 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*
0x26cb24…26ccb8 Dummy {f00=0x00c4, f01=0x0190, f02=» N J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* DEINPUT = WORK BUFFER V @ P* WORK(W5) = SAVED (-POSITION @ P* WORK(W6) = SA
0x26ccb8…26ce4c Dummy {f00=0x00c4, 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
0x26ce4c…26cfe0 Dummy {f00=0x00c4, 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
0x26cfe0…26d174 (2, 177) Dummy {f00=0x00c5, 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
0x26d174…26d308 Dummy {f00=0x00c5, 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*
0x26d308…26d49c Dummy {f00=0x00c5, 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*
0x26d49c…26d630 Dummy {f00=0x00c5, 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
0x26d630…26d7c4 Dummy {f00=0x00c5, 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
0x26d7c4…26d958 Dummy {f00=0x00c5, 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
0x26d958…26daec Dummy {f00=0x00c5, 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
0x26daec…26dc80 Dummy {f00=0x00c5, 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
0x26dc80…26de14 (2, 178) Dummy {f00=0x00c5, 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
0x26de14…26dfa8 Dummy {f00=0x00c5, 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
0x26dfa8…26e13c Dummy {f00=0x00c5, 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
0x26e13c…26e2d0 Dummy {f00=0x00c5, 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
0x26e2d0…26e464 Dummy {f00=0x00c5, 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 ,
0x26e464…26e5f8 Dummy {f00=0x00c5, 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(
0x26e5f8…26e78c Dummy {f00=0x00c5, 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
0x26e78c…26e920 Dummy {f00=0x00c5, 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******
0x26e920…26eab4 (2, 179) Dummy {f00=0x00c5, 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
0x26eab4…26ec48 Dummy {f00=0x00c5, 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
0x26ec48…26eddc Dummy {f00=0x00c5, 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*
0x26eddc…26ef70 Dummy {f00=0x00c5, 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*
0x26ef70…26f104 Dummy {f00=0x00c5, f01=0x0190, f02=» BIN15 = ADJUSTED ACCORDING TO CONVERTED 2 P* CHARACTERS F J P* CURSEC= ADJUSTED WITH INPUT VALUE OF BIN15 | P* L P****************************************************
0x26f104…26f298 Dummy {f00=0x00c5, 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
0x26f298…26f42c Dummy {f00=0x00c5, 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
0x26f42c…26f5c0 Dummy {f00=0x00c5, 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
0x26f5c0…26f754 (2, 180) Dummy {f00=0x00c5, 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
0x26f754…26f8e8 Dummy {f00=0x00c5, 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
0x26f8e8…26fa7c Dummy {f00=0x00c5, 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
0x26fa7c…26fc10 Dummy {f00=0x00c5, 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 !
0x26fc10…26fda4 Dummy {f00=0x00c5, 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
0x26fda4…26ff38 Dummy {f00=0x00c5, 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
0x26ff38…2700cc Dummy {f00=0x00c5, 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
0x2700cc…270260 Dummy {f00=0x00c5, 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
0x270260…2703f4 (2, 181) Dummy {f00=0x00c6, 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
0x2703f4…270588 Dummy {f00=0x00c6, 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
0x270588…27071c Dummy {f00=0x00c6, 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
0x27071c…2708b0 Dummy {f00=0x00c6, 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
0x2708b0…270a44 Dummy {f00=0x00c6, 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 &
0x270a44…270bd8 Dummy {f00=0x00c6, 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 "
0x270bd8…270d6c Dummy {f00=0x00c6, 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 , , (
0x270d6c…270f00 Dummy {f00=0x00c6, 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 (
0x270f00…271094 (2, 182) Opaque[0x194]
0x271094…271228 # DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c8, f03=0x0000}
0x271094…271228 IdxSect {
0x271094…271228 f00 = 0x00c6 // 0x271094 @0x0
0x271094…271228 f01 = 0x000e // 0x271096 @0x2
0x271094…271228 gno = [ // 0x271098 @0x4
0x271094…271228 [0x00]: C0x00c6.0x1.0
0x271094…271228 [0x01]: C0x00c6.0x2.0
0x271094…271228 [0x02]: C0x00c6.0x3.0
0x271094…271228 [0x03]: C0x00c7.0x0.0
0x271094…271228 [0x04]: C0x00c7.0x1.0
0x271094…271228 [0x05]: C0x00c7.0x2.0
0x271094…271228 [0x06]: C0x00c7.0x3.0
0x271094…271228 ]
0x271094…271228 }
0x271228…2713bc Dummy {f00=0x00c6, 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
0x2713bc…271550 Dummy {f00=0x00c6, 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 &
0x271550…2716e4 Dummy {f00=0x00c6, 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
0x2716e4…271878 Dummy {f00=0x00c6, 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
0x271878…271a0c Dummy {f00=0x00c6, 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*
0x271a0c…271ba0 Dummy {f00=0x00c6, 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*
0x271ba0…271d34 (2, 183) Dummy {f00=0x00c6, 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
0x271d34…271ec8 Dummy {f00=0x00c6, 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)
0x271ec8…27205c Dummy {f00=0x00c6, 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
0x27205c…2721f0 Dummy {f00=0x00c6, 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
0x2721f0…272384 Dummy {f00=0x00c6, 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
0x272384…272518 Dummy {f00=0x00c6, 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
0x272518…2726ac Dummy {f00=0x00c6, 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
0x2726ac…272840 Dummy {f00=0x00c6, 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
0x272840…2729d4 (2, 184) Dummy {f00=0x00c6, 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* $
0x2729d4…272b68 Dummy {f00=0x00c6, 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
0x272b68…272cfc Dummy {f00=0x00c6, 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
0x272cfc…272e90 Dummy {f00=0x00c6, 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
0x272e90…273024 Dummy {f00=0x00c6, 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
0x273024…2731b8 Dummy {f00=0x00c6, 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
0x2731b8…27334c Dummy {f00=0x00c6, 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
0x27334c…2734e0 Dummy {f00=0x00c6, 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
0x2734e0…273674 (2, 185) Dummy {f00=0x00c7, 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
0x273674…273808 Dummy {f00=0x00c7, 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
0x273808…27399c Dummy {f00=0x00c7, 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,
0x27399c…273b30 Dummy {f00=0x00c7, 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
0x273b30…273cc4 Dummy {f00=0x00c7, 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
0x273cc4…273e58 Dummy {f00=0x00c7, 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
0x273e58…273fec Dummy {f00=0x00c7, 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
0x273fec…274180 Dummy {f00=0x00c7, 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
0x274180…274314 (2, 186) Dummy {f00=0x00c7, 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
0x274314…2744a8 Dummy {f00=0x00c7, 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
0x2744a8…27463c Dummy {f00=0x00c7, 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 (
0x27463c…2747d0 Dummy {f00=0x00c7, 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 !
0x2747d0…274964 Dummy {f00=0x00c7, 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
0x274964…274af8 Dummy {f00=0x00c7, 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
0x274af8…274c8c Dummy {f00=0x00c7, 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 $ (
0x274c8c…274e20 Dummy {f00=0x00c7, 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
0x274e20…274fb4 (2, 187) Dummy {f00=0x00c7, 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
0x274fb4…275148 Dummy {f00=0x00c7, 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
0x275148…2752dc Dummy {f00=0x00c7, 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
0x2752dc…275470 Dummy {f00=0x00c7, 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
0x275470…275604 Dummy {f00=0x00c7, 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 *
0x275604…275798 Dummy {f00=0x00c7, 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
0x275798…27592c Dummy {f00=0x00c7, 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
0x27592c…275ac0 Dummy {f00=0x00c7, 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
0x275ac0…275c54 (2, 188) Dummy {f00=0x00c7, 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 .
0x275c54…275de8 Dummy {f00=0x00c7, 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
0x275de8…275f7c Dummy {f00=0x00c7, 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
0x275f7c…276110 Dummy {f00=0x00c7, 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
0x276110…2762a4 Dummy {f00=0x00c7, 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
0x2762a4…276438 Dummy {f00=0x00c7, 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
0x276438…2765cc Dummy {f00=0x00c7, 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
0x2765cc…276760 Dummy {f00=0x00c7, 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 & '&
0x276760…2768f4 (2, 189) Opaque[0x194]
0x2768f4…276a88 # DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1900, f03=0x0000}
0x2768f4…276a88 IdxSect {
0x2768f4…276a88 f00 = 0x00c8 // 0x2768f4 @0x0
0x2768f4…276a88 f01 = 0x000a // 0x2768f6 @0x2
0x2768f4…276a88 gno = [ // 0x2768f8 @0x4
0x2768f4…276a88 [0x00]: C0x00c8.0x0.0
0x2768f4…276a88 [0x01]: C0x00c8.0x1.0
0x2768f4…276a88 [0x02]: C0x00c8.0x2.0
0x2768f4…276a88 [0x03]: C0x00c8.0x3.0
0x2768f4…276a88 [0x04]: C0x00c9.0x0.0
0x2768f4…276a88 ]
0x2768f4…276a88 }
0x276a88…276c1c Dummy {f00=0x00c8, 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
0x276c1c…276db0 Dummy {f00=0x00c8, 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
0x276db0…276f44 Dummy {f00=0x00c8, 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
0x276f44…2770d8 Dummy {f00=0x00c8, 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
0x2770d8…27726c Dummy {f00=0x00c8, 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
0x27726c…277400 Dummy {f00=0x00c8, 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
0x277400…277594 (2, 190) Dummy {f00=0x00c8, 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'
0x277594…277728 Dummy {f00=0x00c8, 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
0x277728…2778bc Dummy {f00=0x00c8, 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
0x2778bc…277a50 Dummy {f00=0x00c8, 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
0x277a50…277be4 Dummy {f00=0x00c8, 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
0x277be4…277d78 Dummy {f00=0x00c8, 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
0x277d78…277f0c Dummy {f00=0x00c8, 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
0x277f0c…2780a0 Dummy {f00=0x00c8, 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
0x2780a0…278234 (2, 191) Dummy {f00=0x00c8, 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
0x278234…2783c8 Dummy {f00=0x00c8, 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
0x2783c8…27855c Dummy {f00=0x00c8, 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
0x27855c…2786f0 Dummy {f00=0x00c8, 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'
0x2786f0…278884 Dummy {f00=0x00c8, 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
0x278884…278a18 Dummy {f00=0x00c8, 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
0x278a18…278bac Dummy {f00=0x00c8, 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
0x278bac…278d40 Dummy {f00=0x00c8, 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.
0x278d40…278ed4 (2, 192) Dummy {f00=0x00c8, 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
0x278ed4…279068 Dummy {f00=0x00c8, 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
0x279068…2791fc Dummy {f00=0x00c8, 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
0x2791fc…279390 Dummy {f00=0x00c8, 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
0x279390…279524 Dummy {f00=0x00c8, 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 *
0x279524…2796b8 Dummy {f00=0x00c8, 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
0x2796b8…27984c Dummy {f00=0x00c8, 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
0x27984c…2799e0 Dummy {f00=0x00c8, 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
0x2799e0…279b74 (2, 193) Dummy {f00=0x00c9, 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
0x279b74…279d08 Dummy {f00=0x00c9, 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
0x279d08…279e9c Dummy {f00=0x00c9, 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
0x279e9c…27a030 Dummy {f00=0x00c9, 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
0x27a030…27a1c4 Dummy {f00=0x00c9, 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
0x27a1c4…27a358 Dummy {f00=0x00c9, 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
0x27a358…27a4ec Dummy {f00=0x00c9, 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
0x27a4ec…27a680 Dummy {f00=0x00c9, 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-
0x27a680…27a814 (2, 194) Opaque[0x194]
0x27a814…27a9a8 # DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1928, f03=0x0000}
0x27a814…27a9a8 IdxSect {
0x27a814…27a9a8 f00 = 0x00c9 // 0x27a814 @0x0
0x27a814…27a9a8 f01 = 0x000a // 0x27a816 @0x2
0x27a814…27a9a8 gno = [ // 0x27a818 @0x4
0x27a814…27a9a8 [0x00]: C0x00c9.0x1.0
0x27a814…27a9a8 [0x01]: C0x00c9.0x2.0
0x27a814…27a9a8 [0x02]: C0x00c9.0x3.0
0x27a814…27a9a8 [0x03]: C0x00ca.0x0.0
0x27a814…27a9a8 [0x04]: C0x00ca.0x1.0
0x27a814…27a9a8 ]
0x27a814…27a9a8 }
0x27a9a8…27ab3c Dummy {f00=0x00c9, 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
0x27ab3c…27acd0 Dummy {f00=0x00c9, 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
0x27acd0…27ae64 Dummy {f00=0x00c9, 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
0x27ae64…27aff8 Dummy {f00=0x00c9, 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
0x27aff8…27b18c Dummy {f00=0x00c9, 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
0x27b18c…27b320 Dummy {f00=0x00c9, 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
0x27b320…27b4b4 (2, 195) Dummy {f00=0x00c9, 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,
0x27b4b4…27b648 Dummy {f00=0x00c9, 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
0x27b648…27b7dc Dummy {f00=0x00c9, 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
0x27b7dc…27b970 Dummy {f00=0x00c9, 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
0x27b970…27bb04 Dummy {f00=0x00c9, 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
0x27bb04…27bc98 Dummy {f00=0x00c9, 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
0x27bc98…27be2c Dummy {f00=0x00c9, 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
0x27be2c…27bfc0 Dummy {f00=0x00c9, 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
0x27bfc0…27c154 (2, 196) Dummy {f00=0x00c9, 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
0x27c154…27c2e8 Dummy {f00=0x00c9, 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
0x27c2e8…27c47c Dummy {f00=0x00c9, 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'
0x27c47c…27c610 Dummy {f00=0x00c9, 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
0x27c610…27c7a4 Dummy {f00=0x00c9, 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
0x27c7a4…27c938 Dummy {f00=0x00c9, 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
0x27c938…27cacc Dummy {f00=0x00c9, 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,
0x27cacc…27cc60 Dummy {f00=0x00c9, 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
0x27cc60…27cdf4 (2, 197) Dummy {f00=0x00ca, 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
0x27cdf4…27cf88 Dummy {f00=0x00ca, 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
0x27cf88…27d11c Dummy {f00=0x00ca, 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
0x27d11c…27d2b0 Dummy {f00=0x00ca, 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
0x27d2b0…27d444 Dummy {f00=0x00ca, 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
0x27d444…27d5d8 Dummy {f00=0x00ca, 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
0x27d5d8…27d76c Dummy {f00=0x00ca, 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
0x27d76c…27d900 Dummy {f00=0x00ca, 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
0x27d900…27da94 (2, 198) Dummy {f00=0x00ca, 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 @
0x27da94…27dc28 Dummy {f00=0x00ca, 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 @
0x27dc28…27ddbc Dummy {f00=0x00ca, 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 (_
0x27ddbc…27df50 Dummy {f00=0x00ca, 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
0x27df50…27e0e4 Dummy {f00=0x00ca, 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'
0x27e0e4…27e278 Dummy {f00=0x00ca, 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
0x27e278…27e40c Dummy {f00=0x00ca, 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
0x27e40c…27e5a0 Dummy {f00=0x00ca, 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
0x27e5a0…27e734 (2, 199) Opaque[0x194]
0x27e734…27e8c8 # DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1950, f03=0x0000}
0x27e734…27e8c8 IdxSect {
0x27e734…27e8c8 f00 = 0x00ca // 0x27e734 @0x0
0x27e734…27e8c8 f01 = 0x000e // 0x27e736 @0x2
0x27e734…27e8c8 gno = [ // 0x27e738 @0x4
0x27e734…27e8c8 [0x00]: C0x00ca.0x2.0
0x27e734…27e8c8 [0x01]: C0x00ca.0x3.0
0x27e734…27e8c8 [0x02]: C0x00cb.0x0.0
0x27e734…27e8c8 [0x03]: C0x00cb.0x1.0
0x27e734…27e8c8 [0x04]: C0x00cb.0x2.0
0x27e734…27e8c8 [0x05]: C0x00cb.0x3.0
0x27e734…27e8c8 [0x06]: C0x00cc.0x0.0
0x27e734…27e8c8 ]
0x27e734…27e8c8 }
0x27e8c8…27ea5c Dummy {f00=0x00ca, 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
0x27ea5c…27ebf0 Dummy {f00=0x00ca, 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
0x27ebf0…27ed84 Dummy {f00=0x00ca, 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*
0x27ed84…27ef18 Dummy {f00=0x00ca, 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
0x27ef18…27f0ac Dummy {f00=0x00ca, 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
0x27f0ac…27f240 Dummy {f00=0x00ca, 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
0x27f240…27f3d4 (2, 200) Dummy {f00=0x00ca, 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
0x27f3d4…27f568 Dummy {f00=0x00ca, 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
0x27f568…27f6fc Dummy {f00=0x00ca, 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
0x27f6fc…27f890 Dummy {f00=0x00ca, 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
0x27f890…27fa24 Dummy {f00=0x00ca, 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 *
0x27fa24…27fbb8 Dummy {f00=0x00ca, 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
0x27fbb8…27fd4c Dummy {f00=0x00ca, f01=0x0190, f02=»****** ` * & "* MATCH FOR ' ':S => (FTAB) * B , (* TAB = BIN8 => FTAB <TABPOS> L ( #* NUMB = BIN16 => NOT USED | . P* MATCH = BOOL3 T= ' '-MATCHED * : 6************************************
0x27fd4c…27fee0 Dummy {f00=0x00ca, 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************************************************
0x27fee0…280074 (2, 201) Dummy {f00=0x00cb, 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
0x280074…280208 Dummy {f00=0x00cb, 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
0x280208…28039c Dummy {f00=0x00cb, 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
0x28039c…280530 Dummy {f00=0x00cb, 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
0x280530…2806c4 Dummy {f00=0x00cb, 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+
0x2806c4…280858 Dummy {f00=0x00cb, 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
0x280858…2809ec Dummy {f00=0x00cb, 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*
0x2809ec…280b80 Dummy {f00=0x00cb, 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
0x280b80…280d14 (2, 202) Dummy {f00=0x00cb, 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
0x280d14…280ea8 Dummy {f00=0x00cb, 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
0x280ea8…28103c Dummy {f00=0x00cb, 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
0x28103c…2811d0 Dummy {f00=0x00cb, 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
0x2811d0…281364 Dummy {f00=0x00cb, 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
0x281364…2814f8 Dummy {f00=0x00cb, 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
0x2814f8…28168c Dummy {f00=0x00cb, 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
0x28168c…281820 Dummy {f00=0x00cb, 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-
0x281820…2819b4 (2, 203) Dummy {f00=0x00cb, 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
0x2819b4…281b48 Dummy {f00=0x00cb, 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
0x281b48…281cdc Dummy {f00=0x00cb, 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
0x281cdc…281e70 Dummy {f00=0x00cb, 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
0x281e70…282004 Dummy {f00=0x00cb, 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 "
0x282004…282198 Dummy {f00=0x00cb, 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
0x282198…28232c Dummy {f00=0x00cb, 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*
0x28232c…2824c0 Dummy {f00=0x00cb, 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
0x2824c0…282654 (2, 204) Dummy {f00=0x00cb, 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
0x282654…2827e8 Dummy {f00=0x00cb, 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
0x2827e8…28297c Dummy {f00=0x00cb, 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
0x28297c…282b10 Dummy {f00=0x00cb, 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
0x282b10…282ca4 Dummy {f00=0x00cb, 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
0x282ca4…282e38 Dummy {f00=0x00cb, 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
0x282e38…282fcc Dummy {f00=0x00cb, 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* , &
0x282fcc…283160 Dummy {f00=0x00cb, 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
0x283160…2832f4 (2, 205) Dummy {f00=0x00cc, 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
0x2832f4…283488 Dummy {f00=0x00cc, 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
0x283488…28361c Dummy {f00=0x00cc, 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
0x28361c…2837b0 Dummy {f00=0x00cc, 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
0x2837b0…283944 Dummy {f00=0x00cc, 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 * ,
0x283944…283ad8 Dummy {f00=0x00cc, f01=0x0190, f02=» * + + * + H + + t + + + +
0x283ad8…283c6c Dummy {f00=0x00cc, 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
0x283c6c…283e00 Dummy {f00=0x00cc, 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 -
0x283e00…283f94 (2, 206) Opaque[0x194]
0x283f94…284128 # DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x283f94…284128 IdxSect {
0x283f94…284128 f00 = 0x00cc // 0x283f94 @0x0
0x283f94…284128 f01 = 0x0008 // 0x283f96 @0x2
0x283f94…284128 gno = [ // 0x283f98 @0x4
0x283f94…284128 [0x00]: C0x00cc.0x1.0
0x283f94…284128 [0x01]: C0x00cc.0x2.0
0x283f94…284128 [0x02]: C0x00cc.0x3.0
0x283f94…284128 [0x03]: C0x00cd.0x0.0
0x283f94…284128 ]
0x283f94…284128 }
0x284128…2842bc Dummy {f00=0x00cc, 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
0x2842bc…284450 Dummy {f00=0x00cc, 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
0x284450…2845e4 Dummy {f00=0x00cc, 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
0x2845e4…284778 Dummy {f00=0x00cc, 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
0x284778…28490c Dummy {f00=0x00cc, 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
0x28490c…284aa0 Dummy {f00=0x00cc, 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
0x284aa0…284c34 (2, 207) Dummy {f00=0x00cc, 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.
0x284c34…284dc8 Dummy {f00=0x00cc, 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
0x284dc8…284f5c Dummy {f00=0x00cc, 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
0x284f5c…2850f0 Dummy {f00=0x00cc, 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
0x2850f0…285284 Dummy {f00=0x00cc, 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
0x285284…285418 Dummy {f00=0x00cc, 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
0x285418…2855ac Dummy {f00=0x00cc, 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
0x2855ac…285740 Dummy {f00=0x00cc, 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
0x285740…2858d4 (2, 208) Dummy {f00=0x00cc, 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
0x2858d4…285a68 Dummy {f00=0x00cc, 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
0x285a68…285bfc Dummy {f00=0x00cc, 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
0x285bfc…285d90 Dummy {f00=0x00cc, 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
0x285d90…285f24 Dummy {f00=0x00cc, 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
0x285f24…2860b8 Dummy {f00=0x00cc, 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
0x2860b8…28624c Dummy {f00=0x00cc, 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
0x28624c…2863e0 Dummy {f00=0x00cc, 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
0x2863e0…286574 (2, 209) Dummy {f00=0x00cd, 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
0x286574…286708 Dummy {f00=0x00cd, 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
0x286708…28689c Dummy {f00=0x00cd, 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
0x28689c…286a30 Dummy {f00=0x00cd, 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
0x286a30…286bc4 Dummy {f00=0x00cd, f01=0x0190, f02=»99999999999999999999 ~ * & 99999999999999999+ 1 * & ) 73 @ U 72 > 5 ? J * & G 71 > 6 = l 1 x * & e # ! 8 : !A k * & : 8 : "A l # ! * &
0x286bc4…286d58 Dummy {f00=0x00cd, f01=0x4174, f02=» FETCHING FORMAT: FROM DI * & SC. @ UF * * & 7 X * & U $ + 4 > I0 V0 W * & s * & ( 7 F U e
0x286d58…286eec Dummy {f00=0x00cd, f01=0x4014, f02=» HNOD @ | 0@ B
0x286eec…287080 Dummy {f00=0x00cd, 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 * & $(
0x287080…287214 (2, 210) Opaque[0x194]
0x287214…2873a8 # DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x287214…2873a8 IdxSect {
0x287214…2873a8 f00 = 0x00cd // 0x287214 @0x0
0x287214…2873a8 f01 = 0x0006 // 0x287216 @0x2
0x287214…2873a8 gno = [ // 0x287218 @0x4
0x287214…2873a8 [0x00]: C0x00cd.0x1.0
0x287214…2873a8 [0x01]: C0x00cd.0x2.0
0x287214…2873a8 [0x02]: C0x00cd.0x3.0
0x287214…2873a8 ]
0x287214…2873a8 }
0x2873a8…28753c Dummy {f00=0x00cd, 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
0x28753c…2876d0 Dummy {f00=0x00cd, 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
0x2876d0…287864 Dummy {f00=0x00cd, 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
0x287864…2879f8 Dummy {f00=0x00cd, 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)
0x2879f8…287b8c Dummy {f00=0x00cd, 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)
0x287b8c…287d20 Dummy {f00=0x00cd, 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
0x287d20…287eb4 (2, 211) Dummy {f00=0x00cd, 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
0x287eb4…288048 Dummy {f00=0x00cd, 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
0x288048…2881dc Dummy {f00=0x00cd, 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
0x2881dc…288370 Dummy {f00=0x00cd, 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 '
0x288370…288504 Dummy {f00=0x00cd, 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 '
0x288504…288698 Dummy {f00=0x00cd, 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
0x288698…28882c Dummy {f00=0x00cd, 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
0x28882c…2889c0 Dummy {f00=0x00cd, 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
0x2889c0…288b54 (2, 212) Dummy {f00=0x00cd, 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
0x288b54…288ce8 Dummy {f00=0x00cd, 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
0x288ce8…288e7c Dummy {f00=0x00cd, f01=0x004c, f02=» HTRA DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x288e7c…289010 Dummy {f00=0x00cd, f01=0x2008, f02=» DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x289010…2891a4 Dummy {f00=0x00cd, 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
0x2891a4…289338 Dummy {f00=0x00cd, 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
0x289338…2894cc Dummy {f00=0x00cd, 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
0x2894cc…289660 Dummy {f00=0x00cd, 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#
0x289660…2897f4 (2, 213) Opaque[0x194]
0x2897f4…289988 # DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19c0, f03=0x0000}
0x2897f4…289988 IdxSect {
0x2897f4…289988 f00 = 0x00ce // 0x2897f4 @0x0
0x2897f4…289988 f01 = 0x0002 // 0x2897f6 @0x2
0x2897f4…289988 gno = [ // 0x2897f8 @0x4
0x2897f4…289988 [0x00]: C0x00ce.0x0.0
0x2897f4…289988 ]
0x2897f4…289988 }
0x289988…289b1c Dummy {f00=0x00ce, 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
0x289b1c…289cb0 Dummy {f00=0x00ce, 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
0x289cb0…289e44 Dummy {f00=0x00ce, 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
0x289e44…289fd8 Dummy {f00=0x00ce, 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
0x289fd8…28a16c Dummy {f00=0x00ce, 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
0x28a16c…28a300 Dummy {f00=0x00ce, 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
0x28a300…28a494 (2, 214) Opaque[0x194]
0x28a494…28a628 # DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19c8, f03=0x0000}
0x28a494…28a628 IdxSect {
0x28a494…28a628 f00 = 0x00ce // 0x28a494 @0x0
0x28a494…28a628 f01 = 0x0002 // 0x28a496 @0x2
0x28a494…28a628 gno = [ // 0x28a498 @0x4
0x28a494…28a628 [0x00]: C0x00ce.0x1.0
0x28a494…28a628 ]
0x28a494…28a628 }
0x28a628…28a7bc Dummy {f00=0x00ce, 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
0x28a7bc…28a950 Dummy {f00=0x00ce, 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
0x28a950…28aae4 Dummy {f00=0x00ce, 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
0x28aae4…28ac78 Dummy {f00=0x00ce, 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
0x28ac78…28ae0c Dummy {f00=0x00ce, 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
0x28ae0c…28afa0 Dummy {f00=0x00ce, 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
0x28afa0…28bc40 (3, 0) DirGranule ((3, 0)) {
0x28afa0…28bc40 DirEnt {nam=»S:DU «, typ=» «, f00=0x0000, f01=0x0000, f02=0x19d0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEINIT«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x19d8, f03=0x0008}
0x28afa0…28bc40 DirEnt {nam=»DDINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a00, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a20, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a40, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a58, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a68, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1a78, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a80, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1aa0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»WRIT12«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»REORGS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b00, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»CRESUD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DSKERR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b30, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b50, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1b88, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1ba0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1ba8, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DILINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1dd0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»REORGU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»PTS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e78, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDI03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDISU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f00, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»MONHDK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1f18, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»COPVOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»CONRL9«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fd8, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»ASSPER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2018, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»RUT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20b8, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»MON10 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»CONF5 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»FILER «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2110, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»CONFPR«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2198, f03=0x0000}
0x28afa0…28bc40 DirEnt {nam=»DERR:O«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x28afa0…28bc40 }
0x28bc40…28bdd4 (3, 1) Opaque[0x194]
0x28bdd4…28bf68 # DirEnt {nam=»DEINIT«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x19d8, f03=0x0008}
0x28bdd4…28bf68 IdxSect {
0x28bdd4…28bf68 f00 = 0x00ce // 0x28bdd4 @0x0
0x28bdd4…28bf68 f01 = 0x000a // 0x28bdd6 @0x2
0x28bdd4…28bf68 gno = [ // 0x28bdd8 @0x4
0x28bdd4…28bf68 [0x00]: C0x00ce.0x3.0
0x28bdd4…28bf68 [0x01]: C0x00cf.0x0.0
0x28bdd4…28bf68 [0x02]: C0x00cf.0x1.0
0x28bdd4…28bf68 [0x03]: C0x00cf.0x2.0
0x28bdd4…28bf68 [0x04]: C0x00cf.0x3.0
0x28bdd4…28bf68 ]
0x28bdd4…28bf68 }
0x28bf68…28c0fc Dummy {f00=0x00ce, f01=0x0190, f02=» $ P IDENT DEINIT UPD 80-03-31/CHST * P************************************** , * P* PTS DATA-ENTRY UTILITIES * Z * P* 1 CREATE VOLUME * * P* 2 CREATE FILE * * P* 3 DELETE FILE
0x28c0fc…28c290 Dummy {f00=0x00ce, f01=0x0190, f02=» * NOT USED n * P* 7 CHANGE VOLUME-NAME * * P* 8 VOLUME-SURVEY * D * P* * r * P* USER = S:DU * * P************************************** P DDUM DDINIT
0x28c290…28c424 Dummy {f00=0x00ce, f01=0x0190, f02=» EXT REORGS P EXT CRESUD P EXT REC1 ( P EXT REC2 : P EXT RECSYS L P* ` P EXT CREVOL j P EXT DELFIL ~ P EXT COPYDD P EXT CHANFC P EXT CHVOL P EXT SURVEY P EXT OPENF P EXT CLOSEF P*
0x28c424…28c5b8 Dummy {f00=0x00ce, f01=0x0190, f02=»ROMPT PCANC1 P PERF DECLRA P IB DEBINW2,CANC1,START,C02 0 P B C12 T PC02 b P MOVE VOLNAM,=X'00' n P MOVE COPNAM,=X'17' P MOVE FVOLNAME(W3),COPNAM P MOVE PBLOCK,=X'20' P MOVE BIN1,=X'50' , P XCOPY PBL
0x28c5b8…28c74c Dummy {f00=0x00ce, f01=0x0190, f02=» CREATE FILE P* 3, DELETE FILE P* 4, COPY SYSFIL 8 P* 5, NOT USED P* 6, NOT USED ~ ( P* 7, CHANGE VOLUME NAME " P* 8, VOLUME SURVEY P* 9, NOT U
0x28c74c…28c8e0 Dummy {f00=0x00ce, f01=0x0190, f02=»ATE VOLUME P****************** PC100 , P ATTFMT FCRV UNIT & VOL-NAME 8 P SET DEPROMPT PCANC10 r P PERF DECLRA P IB DEBINW2,CANC10,START,C10 PC12 P PERF DSKERR,W0 'BELL' P B START PC10 . P XCOPY PBL
0x28c8e0…28ca74 (3, 2) Dummy {f00=0x00cf, f01=0x0190, f02=» PBLOCK,W16,W1,DEBIN3,W1 DTYP " P XCOPY PBLOCK,W17,W1,W1,W1 APL & ( P XCOPY PBLOCK,W18,W1,DEBIN2,W1 DVER L P ERASE 0,W1,W17 x 4 P CALL CREVOL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD P PERF HALT P CBE RETCOD,W0,START P CBE RETCOD,W2,ERR
0x28ca74…28cc08 Dummy {f00=0x00cf, f01=0x0190, f02=»SK NOT USABLE' | P B START P EJECT & P***************** 4 P* CREATE FILES * N P***************** h PC20 P ATTFMT FCRF P SET DEPROMPT PCANC20 P PERF DECLRA P IB DEBINW2,CANC20,START,C21 P B C12
0x28cc08…28cd9c Dummy {f00=0x00cf, f01=0x0190, f02=» RETCOD,W3,ERR10 P CBE RETCOD,W7,ERR7 & P CBNE RETCOD,W0,ERR32 'I/O-ERROR' 4 $ P CBE FTYPE,=D'3',C22 IF UD-FILE ^ 6 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,COPNAM P BNOK ERR32 P PERF REC2 P PERF REC1 . P* IF SYSFI
0x28cd9c…28cf30 Dummy {f00=0x00cf, f01=0x0190, f02=»1',C210 BRANCH IF SYSFIL P MOVE BIN1,BLFACT P MUL BIN2,BIN1 : PC210 P . P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,BIN2 PC22 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME P B START P* P* PERR32 P PERF DS
0x28cf30…28d0c4 Dummy {f00=0x00cf, f01=0x0190, f02=»ERF DSKERR,W10 'DISK OVERFLOW' PERR90 & P PERF CLOFIL 4 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME H P B START | P EJECT P************************ P* CHANGE VOLUME-NAME * P************************ PCHVNAM PROC VO
0x28d0c4…28d258 Dummy {f00=0x00cf, f01=0x0190, f02=»HANGE FILE-CODE * P********************** PCHFCOD PROC FC 8 P CALL CHANFC,DISK,FC N P RET j P PEND v P**************** P* CLOSE FILE * P**************** PCLOFIL PROC , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0
0x28d258…28d3ec Dummy {f00=0x00cf, f01=0x018e, f02=» P**************** P* DELETE FILE P**************** 6 PC30 N P ATTFMT FDEL Z P SET DEPROMPT n PCANC30 P PERF DECLRA P IB DEBINW2,CANC30,START,C32 P B C12 PC32 , P CBE FTYPE,=D'3',C36 IF USERDEFINED
0x28d3ec…28d580 Dummy {f00=0x00cf, f01=0x0190, f02=» P ATTFMT DUF P SET DEPROMPT PCANC36 . P PERF DECLRA < " P IB DEBINW2,CANC36,CANC30,C36A P P B C12 v PC36A P************************* P* CHANGE VOLUME-NAME * P* TO:X'171717171717' * P******************
0x28d580…28d714 (3, 3) Dummy {f00=0x00cf, f01=0x0190, f02=»,W1,STR1A,W0 F.ORG='S' , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME . P XCOPY PBLOCK,W16,W6,COPNAM,W0 VOL-NAME 1 N P ERASE 0,W1,W6 P PERF CLOFIL 4 P CALL DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD P IB RETCOD C P ERR33,ERR33,C3
0x28d714…28d8a8 Dummy {f00=0x00cf, f01=0x0190, f02=» P* P* PERR33 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME & P PERF DSKERR,W3 'I/O-ERROR' Z P B START ~ PERR12 ( P PERF DSKERR,W12 'FILE NAME UNKNOWN' P B START P EJECT " P******************************
0x28d8a8…28da3c Dummy {f00=0x00cf, f01=0x0190, f02=»ET DEPROMPT PCANC40 P PERF DECLRA " P IB DEBINW2,CANC40,START,C41 6 P B C12 Z PC41 h P************************* t P* CHANGE VOLUME-NAME * P* TO:X'171717171717' * P************************* P ATTFMT COPY
0x28da3c…28dbd0 Dummy {f00=0x00cf, f01=0x0190, f02=» P PERF CHVNAM,COPNAM P MOVE COPY,=X'00' P PERF REORGS : P B START N P EJECT ^ P*************************** l P* COPY SYSVOL TO SYSVOL * P*************************** PC60 P ATTFMT FCOPY P SET DEPROMPT
0x28dbd0…28dd64 Dummy {f00=0x00cf, f01=0x0190, f02=»PUT VOLUME p 0 P XCOPY PBLOCK,W14,W6,SYSVOL,W0 OUTPUT VOLUME ( P XCOPY PBLOCK,W21,W1,W0,W1 NO REORG. H P* t 4 P CALL COPYDD,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD ~ P CBE RETCOD,W4,ERR8 P CMP RETCOD,W0 P BNE ERR3 P B START
0x28dd64…28def8 Dummy {f00=0x00cf, f01=0x0190, f02=»LUME-NAME * P*********************** PC70 4 P ATTFMT FCHANGE @ P SET DEPROMPT X PC72 n P PERF DECLRA z P IB DEBINW2,C72,START,C74 P B C12 PC74 P PERF CHVNAM,STR6A P B START P EJECT P******
0x28def8…28e08c Dummy {f00=0x00cf, f01=0x0190, f02=»C81 P PERF DECLRA P IB DEBINW2,C81,START,C82 P B C81 B PC82 P P MOVE BIN1,=X'50' , P XCOPY PBLOCK,W6,W1,BIN1,W1 PRINT-DEVICE v . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE 4 P CALL SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD
0x28e08c…28e220 Dummy {f00=0x00cf, f01=0x0190, f02=»,W18 'DISK NOT OPERABLE' P B START P EJECT 0 PHALT PROC > PH10 P P ERASE 0,W1,W1 LINE 1 & P MOVE BIN1,=X'0101' LINE 1 / POS 1 z $ P DSC1 DEDSSCRN,6,BIN1 SET CURSOR 2 P EDWRT DEDSSCRN,FHALT 'PRESS ENT TO CONTINUE' P MOVE
0x28e220…28e3b4 (3, 4) Dummy {f00=0x00cf, f01=0x0190, f02=» EJECT PFPROG FRMT FSL 2 P FCOPY =C'PTS DATA-ENTRY UTILITIES REL 10.0' , P FNL b P FCOPY =C'PROGRAM:' n . P FKI 9,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=7 P FMEL 'X',PRNUM P FNL P FCOPY =C'1 =' P FTAB 5 P F
0x28e3b4…28e548 Dummy {f00=0x00cf, f01=0x0190, f02=» P FTAB 5 P FCOPY =C'DELETE' P FTAB 12 2 P FCOPY =C'FILE' B P FNL Z P FCOPY =C'4 =' f P FTAB 5 | P FCOPY =C'COPY SYSFIL' P FNL P FCOPY =C'5 =' P FTAB 5 P FCOPY =C'NOT USED' P FNL P FCO
0x28e548…28e6dc Dummy {f00=0x00cf, f01=0x0190, f02=»NAME' x P FNL P FCOPY =C'8 =' P FTAB 5 0 P FCOPY =C'VOLUME SURVEY' @ P FNL ` P FCOPY =C'9 =' l P FTAB 5 P FCOPY =C'NOT USED' P FMEND P* PFCRV FRMT P FSL P FCOPY =C'CREATE VOLUME' P FNL
0x28e6dc…28e870 Dummy {f00=0x00cf, f01=0x0190, f02=»' z P FINP 25 P FCOPY VOLNAM P FNL 0 P FCOPY =C'VOLUME-NAME:' < 0 P FKI 14,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 P FCOPY VOLNAM VOLUME-NAME P FNL P FTEXT 'TYPE:' ( P FKI 7,MINL=1,MAXL=1,ME,APPL=13,NEOI P FMEL 'X
0x28e870…28ea04 Dummy {f00=0x00cf, f01=0x018e, f02=» Z P FNL P FILLR ' ',20 , P FTEXT '- 2 (PTS-6875) 2.5 MB UNPACKED' * P FNL Z P FILLR ' ',20 f * P FTEXT '- 3 (PTS-6876) 5 MB PACKED' | P FNL P FILLR ' ',20 , P FTEXT '- 4 (PTS-6876) 5 MB UNPACKED' P FNL P
0x28ea04…28eb98 Dummy {f00=0x00cf, f01=0x018e, f02=» n P FNL P FILLR ' ',20 P FTEXT '- 7 VACANT' * P FNL F P FILLR ' ',20 R 2 P FTEXT '- 8 (PTS-6879) 0.25MB FLEXIBLE DISC' h P FNL P FILLR ' ',20 2 P FTEXT '- 9 (PTS- ) 1 MB FLEXIBLE DISC' P FMEND P*
0x28eb98…28ed2c Dummy {f00=0x00cf, f01=0x0190, f02=» P FCOPY =C'COPY USERFIL' P FLINK FIO $ P FMEND 6 P* D PCOPYS FRMT N P FSL ` " P FCOPY =C'WHOLE FILE ? Y/N:' l . P FKI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FMEND P* PFCOP
0x28ed2c…28eec0 Dummy {f00=0x00cf, f01=0x0190, f02=» FCOPY =C'INPUT' P FTAB 7 P FCOPY =C'UNIT : U' ( ( P FKI 15,MINL=1,MAXL=1,ME,NEOI,APPL=9 D P FCOPY UNIT p P FTAB 20 P FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL P FCOPY =C'OUTPUT' P FTAB 8
0x28eec0…28f054 (3, 5) Dummy {f00=0x00cf, f01=0x018e, f02=»AME:' ~ P FINP 33 P FCOPY VOLNAM P FLINK FHEX 4 P FMEND H P* V PFCHANGE FRMT ` P FSL t " P FCOPY =C'CHANGE VOLUME-NAME' P FNL P FCOPY =C'UNIT : U' ( P FKI 9,MINL=1,MAXL=1,ME,NEOI,APPL=9 P FCOPY UNIT
0x28f054…28f1e8 Dummy {f00=0x00cf, f01=0x0190, f02=» P FCOPY =C'VOLUME-NAME:' 0 P FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 ( P FCOPY STR6A P FLINK FHEX p P FMEND P* PFCRF FRMT FSL P FCOPY =C'CREATE FILE' P FLINK FFILE P FMEND P* PFDEL
0x28f1e8…28f37c Dummy {f00=0x00cf, f01=0x0190, f02=»FFILE FRMT P FNL P FCOPY =C'UNIT: U' ( P FKI 8,MINL=1,MAXL=1,ME,NEOI,APPL=5 8 P FCOPY UNIT d P FTAB 12 x P FCOPY =C'VOLUME-NAME:' P FINP 25 P FCOPY VOLNAM P FNL P FCOPY =C'FILE' P FTAB 5 P FCOPY
0x28f37c…28f510 Dummy {f00=0x00cf, f01=0x0190, f02=»B 5 P FCOPY =C'SYSTEM' ! P FTAB 11 ! & P FCOPY =C'FILE' ! 6 P FNL ! N P FCOPY =C'2 =' ! Z P FTAB 5 ! p P FCOPY =C'USER' ! P FTAB 9 ! P FCOPY =C'FILE' ! P FNL ! P FCOPY =C'3 =' ! P FTAB 5 ! P FCOPY =C'USERDEFINED'
0x28f510…28f6a4 Dummy {f00=0x00cf, f01=0x0190, f02=»' ! P FTAB 8 " P FCOPY =C'USERDEFINED' " P FTAB 20 " 8 P FCOPY =C'FILE' " H P FNL " ` P FCOPY =C'FILE' " l P FTAB 5 " P FCOPY =C'NAME:' " . P FKI 11,MINL=1,MAXL=8,ALPHA,ME,NEOI,APPL=6 " P FCOPY FILNAM " P FLINK FHEX " P
0x28f6a4…28f838 Dummy {f00=0x00cf, f01=0x418c, f02=»L=1,MAXL=1,ME,NEOI,APPL=8 " P FCOPY UNIT # " P FTAB 12 # 6 P FCOPY =C'VOLUME-NAME:' # F P FINP 25 # f P FCOPY VOLNAM # v P FLINK FHEX # P FMEND # P* # PFHALT FRMT # P FSL # $ P FCOPY =C'PRESS ENT TO CONTINUE' # P FMEND #
0x28f838…28f9cc Dummy {f00=0x00cf, 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
0x28f9cc…28fb60 Dummy {f00=0x00cf, f01=0x0190, f02=» -FORMATTING THE DISC -CHECKING THE SECTORS TOSS REL 10.0 Z $ AN D AN D AN( D AN D AN* [ : Z $ AN" D AN& D AN D AN D AN$ [ : Z $ AN, D AN. D AN0 D AN4 D AN2 [ : M C C
0x28fb60…28fcf4 (3, 6) Opaque[0x194]
0x28fcf4…28fe88 # DirEnt {nam=»DDINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a00, f03=0x0000}
0x28fcf4…28fe88 IdxSect {
0x28fcf4…28fe88 f00 = 0x00d0 // 0x28fcf4 @0x0
0x28fcf4…28fe88 f01 = 0x0008 // 0x28fcf6 @0x2
0x28fcf4…28fe88 gno = [ // 0x28fcf8 @0x4
0x28fcf4…28fe88 [0x00]: C0x00d0.0x0.0
0x28fcf4…28fe88 [0x01]: C0x00d0.0x1.0
0x28fcf4…28fe88 [0x02]: C0x00d0.0x2.0
0x28fcf4…28fe88 [0x03]: C0x00d0.0x3.0
0x28fcf4…28fe88 ]
0x28fcf4…28fe88 }
0x28fe88…29001c Dummy {f00=0x00d0, f01=0x0190, f02=» P IDENT DDINIT L M************************************************************************ P* PTS DATA-ENTRY UTILITIES j P* DDIV FOR DEINIT P* USER = S:DU * L L****************************************************************
0x29001c…2901b0 Dummy {f00=0x00d0, f01=0x018e, f02=» P CWB CB6 P CWB CB7 P CWB CB8 $ P CWB CB9 4 P CWB CBA D P* T P DWB DB1(CBA) ^ P CWB CBB t P CWB CBC EJECT * * DATA-SETS * DISK DSET FC=D0,DEV=DU PDEDSDYKB DSET FC=20
0x2901b0…290344 Dummy {f00=0x00d0, f01=0x0190, f02=» P* STARTPOINT P* $ P START START . P STACK 300 B EJECT T * b * l PCB1 BLK v P* $ PLRUQUE STRG 38 LAST RECENT USED $ PBPOOL STRGI (38),188 BUFFERPOOL * PRPOOL STRGI (38),19 BUFFER REFERENCES
0x290344…2904d8 Dummy {f00=0x00d0, f01=0x0190, f02=»X FOR USERFILE ~ RETCOD BIN RETURN-CODE & PRECLNTH BIN CURRENT RECORDLENGTH 6 PPJOBCUR BIN POOLINDEX ` " PJOBNAME STRG 6 CURRENT JOBNAME ~ & PFORMAT STRG 6 CURRENT FORMAT-NAME EJECT * * COMMON-BLOCK: 2 *
0x2904d8…29066c Dummy {f00=0x00d0, f01=0x0190, f02=»OOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- & W0 BIN W'0' CONSTANT N W1 BIN W'1' CONSTANT j W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTA
0x29066c…290800 Dummy {f00=0x00d0, f01=0x0190, f02=»' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT 0 PW14 BIN W'14' CONSTANT N PW15 BIN W'15' CONSTANT l P EJECT P* P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK
0x290800…290994 (3, 7) Dummy {f00=0x00d0, f01=0x0190, f02=»NSTANT PW21 BIN W'21' CONSTANT PW22 BIN W'22' CONSTANT , PW23 BIN W'23' CONSTANT J PW24 BIN W'24' CONSTANT h PW64 BIN W'64' CONSTANT PW99 BIN W'99' CONSTANT PW128 BIN W'128' PW188 BIN W'188' CONSTANT " PSYSLEN BIN W'1
0x290994…290b28 Dummy {f00=0x00d0, f01=0x0190, f02=»MON-BLOCK: 4 * " * USAGE: DISC-HANDLING P* D PCB4 BLK N P* ^ " PBATCH STRG 6 CURRENT BATCHNAME h ( PTABLE STRG 6 TABLE-NAME (VALUE-SET) " PPBLOCK STRG 58 PARAMETERBLOCK PSYSBUF STRG 256 DISC-BUFFER P*
0x290b28…290cbc Dummy {f00=0x00d0, f01=0x018e, f02=» P* PVOLNAM STRG 6 VOLUME-NAME PSYSVOL STRG 6C'SYSVOL' 4 & PCOPNAM STRG 6 VOL-NAME FOR DELETE R P AND REORG. OUTPUT | P* PFILNAM STRG 8 FILE-NAME PUSEFIL STRG 8C'PTS-DE ' PSYSFIL STRG 8C'SYSFIL ' * PPWBDB4
0x290cbc…290e50 Dummy {f00=0x00d0, f01=0x0190, f02=» * P* Y Y Y Y Y Y Y Y Y Y * P* I I I I I I I I I I 2 * P* UNIT NO. 0 1 2 3 4 5 6 7 8 9 ` P* DISC CODE: $ P* FO = FIX.1 F1 = CART.1 $ P* F2 = FIX.2 F3 = CART.2 & P* F8 = FLOPPY.1
0x290e50…290fe4 Dummy {f00=0x00d0, f01=0x0190, f02=» USAGE: CREATE FILES * PCB5 BLK ( P* 8 PFCOD BIN DISK FILE-CODE B PFCOD1 BIN FILE-CODE INPUT b PFCOD2 BIN FILE-CODE OUTPUT PRECNUM BIN RECORD NO. " PFRESEC BIN NO OF FREE SECTORS $ PELMNO BIN ELEMENT-NO, VALUE
0x290fe4…291178 Dummy {f00=0x00d0, f01=0x0190, f02=» RECORDS-ENTERED ~ PPRNUM BCD 1 PROGRAM NO. P* 8 PHEX00 STRG 1X'00' PAUSE ITEM B PHEXTAB STRGI (7),1 C f P X'80',X'C0',X'E0',X'F0' C P X'F8',X'FC',X'FE' " PACK BCDI (10),18 ACKUMULATORS P EJECT P* PCB6 BL
0x291178…29130c Dummy {f00=0x00d0, f01=0x0190, f02=»SWIT06 BOOL PSWIT07 BOOL PSWIT08 BOOL ( PSWITFS BOOL < PSW95PR BOOL P P* d PNEWVOL BOOL F n P* ( PFNOOFREC BINI (9) NO OF REC IN FILE $ PF95PROC BINI (9) 5% OF FILESPACE * PFCOUNTER BINI (9) COUNTER (USER-FILE)
0x29130c…2914a0 Dummy {f00=0x00d0, f01=0x0190, f02=»OL' VOLUMENANES C v P 6C'SYSVOL' C P 6C'OUTPUT' 2 P EJECT F P* T PCB7 BLK ^ P* n * PMAXOCC BIN RESERVED FOR DISCHANDLING x & PPINDFR BIN POOLINDEX TO CURR FMT & PPINDTB BIN POOLINDEX TO VALUE-SET * PPINACC BIN PO
0x2914a0…291634 (3, 8) Dummy {f00=0x00d0, f01=0x0190, f02=»URRENT RECNO FMT-CHAIN $ PPTRFMCH BIN POINTER IN RNRFMCH & PFFSNR BINI (3) RECORD NO. FREE-SP. F PFRINF BINI (9) FILESTATUS p P* ( PSYSV STRGI (16),18 SYSTEM-VARIABLES P EJECT P* PCB8 BLK P* PDOOL1 BOOL
0x291634…2917c8 Dummy {f00=0x00d0, f01=0x0190, f02=»BOOL PDBOFOR BOOL FORCED RECORD PDEBIN1 BIN WORKITEM . PDEBIN2 BIN J PDEBIN3 BIN PDEBIN4 BIN n PDEBIN5 BIN PFLIND1 BIN FORMATLINKINDEX PFLIND2 BIN PFLIND3 BIN PFLIND4 BIN PFLIND5 BIN STR1A STRG
0x2917c8…29195c Dummy {f00=0x00d0, f01=0x0190, f02=»5A STRG 15 WORKITEM P EJECT P* * PCB9 BLK 4 P* D PKEYMSK BIN MASK AUTHORITY N $ PFLIND BINI (24) FORMATLINKINDEX p P* PFDVBCD BCDI (8),3 PBCDI21 BCDI (2),21 WORKITEM P* " PSTATSH STRG 120 SEARCH STATUS
0x29195c…291af0 Dummy {f00=0x00d0, f01=0x0190, f02=»STORING t * PCBA BLK PRBUF STRG 256 RECORD AREA * EJECT L * Z * TERMINAL-BLOCK: 2R d * ( #* USAGE: DATA RECORD STORING * PDB1 DBLK PFS STRG 2 PLPREV BIN LINK PREVIOUS
0x291af0…291c84 Dummy {f00=0x00d0, f01=0x0190, f02=» r * PFF STRGI (187),1 FREE REC. INDICATION EJECT 6 * D * N 0 ,* USAGE: BOOLEAN AND BINARY WORKITEMS X * PCBB BLK P* BOOL1 BOOL WORKITEM BOOL2 BOOL WORKITEM BOOL3 BOOL WORKITEM BOOL
0x291c84…291e18 Dummy {f00=0x00d0, f01=0x018e, f02=»BOOL9 BOOL WORKITEM P* PBOOLA1 BOOL & PBOOLA2 BOOL : P* N BIN1 BIN WORKITEM X BIN2 BIN WORKITEM r BIN3 BIN WORKITEM BIN4 BIN WORKITEM BIN5 BIN WORKITEM BIN6 BIN WORKITEM BIN7 BIN WORKITEM
0x291e18…291fac Dummy {f00=0x00d0, f01=0x018e, f02=» z BIN13 BIN WORKITEM BIN14 BIN WORKITEM $ BIN15 BIN WORKITEM @ BIN16 BIN WORKITEM EJECT x * * D P* USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES * PCBC BLK P* " PDE
0x291fac…292140 Dummy {f00=0x00d0, f01=0x4176, f02=» r PDKBIN2 BIN PDKBIN3 BIN P* , PDEBINW1 BIN DENTERVARIABLE 6 PDEBINW2 BIN DENTERVARIABLE Z PDEBINW3 BIN DENTERVARIABLE ~ PDEBINW4 BIN DENTERVARIABLE " PDEINPUT STRG 62 DENTERVARIABLE BCD2A BCD 2 WORKITEM P
0x292140…2922d4 (3, 9) Dummy {f00=0x00d0, f01=0x2008, f02=»
0x2922d4…292468 Dummy {f00=0x00d0, f01=0x0190, f02=»S p P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) P BNOK DEPO16 D P B DEPO12 CONTINUE X PDEPO20 r P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4 P MOVE DEBINW3,W0
0x292468…2925fc Dummy {f00=0x00d0, f01=0x0190, f02=» ^ $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 0 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS T & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE DEBINW4,W128,DEP420 LOC
0x2925fc…292790 Dummy {f00=0x00d0, f01=0x0190, f02=»BINW3,W1 t PDEP430 MOVE STR1A,KEY ! * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! . P B DEPOOK ! & PDEP440 STORE THE RECORDLENGTH OF ! n 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL NUMBER OF ! 6 P XCOPY
0x292790…292924 Dummy {f00=0x00d0, f01=0x0190, f02=»ORRECORDS ! d & P MOVE DEBINW4,BUFF1 START OF CHAIN " . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " < ( P SUB BIN15,BIN16 JUST FORMATRECORDS " n PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT " & P TBT POOL1
0x292924…292ab8 Dummy {f00=0x00d0, f01=0x0190, f02=»SET FLINK INDEX " | P MOVE FLIND(BIN16),DEBINW4 # PDEP480 SUB BIN15,W1 # : ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # V P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY # P CALL SETB,STR1A,W
0x292ab8…292c4c Dummy {f00=0x00d0, f01=0x0190, f02=»INW3,W1 # " P CALL CMPIND,DEBINW3,BPOOL(W1) $ $ P BNOK DEPON9 JUMP IF LAST INDEX $ 6 P B DEPO51 $ ^ PDEPO53 $ p 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ ~ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6 $ P BERR DEPO52 $
0x292c4c…292de0 Dummy {f00=0x00d0, f01=0x0190, f02=»EPO55 $ PDEPO54 % P MOVE BIN15,W0 % . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % 2 P BERR DEPO52 % d P MOVE BUFF2,W2 % x PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DEP565 JUMP IF NO % P
0x292de0…292f74 (3, 10) Opaque[0x194]
0x292f74…293108 # DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a20, f03=0x0000}
0x292f74…293108 IdxSect {
0x292f74…293108 f00 = 0x00d1 // 0x292f74 @0x0
0x292f74…293108 f01 = 0x0008 // 0x292f76 @0x2
0x292f74…293108 gno = [ // 0x292f78 @0x4
0x292f74…293108 [0x00]: C0x00d1.0x0.0
0x292f74…293108 [0x01]: C0x00d1.0x1.0
0x292f74…293108 [0x02]: C0x00d1.0x2.0
0x292f74…293108 [0x03]: C0x00d1.0x3.0
0x292f74…293108 ]
0x292f74…293108 }
0x293108…29329c Dummy {f00=0x00d1, f01=0x018e, f02=» $ P IDENT DENTER UPD 80-03-04/CHST P* , , P* A STANDARD PROGRAM PACKAGE HANDLING 6 0 P* A COMPLETE PICTURE ON A DISPLAY SCREEN f P* ( P* RUNNING UNDER: CREDIT REL 3.1 ( P* TOSS REL 8.1 P* P D
0x29329c…293430 Dummy {f00=0x00d1, f01=0x0190, f02=» * P ENTRY DECLRN CLEAR NO VARIABLE FIELDS P ENTRY DECLRD 2 P ENTRY DERR DENTER-ERROR H P EXT DERROR ERROR-MESSAGES h P EXT CANC -ROUTINES P* $ P EXT DESTAT BUILD THE STATUSLINE , P EXT DECHK1 STANDARD CHECK ROUTINE NO. 1 , P
0x293430…2935c4 Dummy {f00=0x00d1, f01=0x0190, f02=» h , P EXT DECHK5 STANDARD CHECK ROUTINE NO.5 , P EXT DECHK6 STANDARD CHECK ROUTINE NO. 6 8 , P EXT DECHK7 STANDARD CHECK ROUTINE NO. 7 h $ P EXT APP USER ROUTINE TO HANDLE P APPL VALUES ( P EXT DETCHK USER ROUTINE TO EVALUATE P CON
0x2935c4…293758 Dummy {f00=0x00d1, f01=0x0190, f02=» P* P INCLUDE DELITT,LIST P EJECT . P* < > P* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE F P* PDECLRA PROC P PERF DENTER,W1 P RET P PEND P* @ P* CLEAR SOME VARIABLE FIELDS BEFORE
0x293758…2938ec Dummy {f00=0x00d1, f01=0x018e, f02=»RIABLE FIELDS BEFORE HANDLING THE PICTURE P* 2 PDECLRN PROC < P PERF DENTER,W3 P P RET h P PEND t P* 8 P* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P
0x2938ec…293a80 Dummy {f00=0x00d1, f01=0x018e, f02=» PDERR PROC P PERF DENTER,W0 P RET . P PEND : P EJECT H PDENTER PROC OPT V P n & P MOVE DEBINW2,OPT MOVE TO VARIABLE v " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? P BE ERRPRINT YES ! P
0x293a80…293c14 (3, 11) Dummy {f00=0x00d1, f01=0x0190, f02=» P IB DEBINW2 C P CLEARA C P CLEARS C 2 P CONT C F P CLEARD X P* h PCLEARA r * P ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP P B CONT P* PCLEARS , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B
0x293c14…293da8 Dummy {f00=0x00d1, f01=0x0190, f02=»RMAT z P* PENTIRE P CLEAR DEPROMPT $ P IB DEBINW2 JUMP C < P ECLRA ON C V P ECLRS ROUTINE C j P ECLRN INDEX C P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3,W1,W0 CLEAR ALL F
0x293da8…293f3c Dummy {f00=0x00d1, f01=0x0190, f02=»RASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN MEMORY , P* J & P* CLEAR NO VARIABLES IN MEMORY T P* ~ PECLRN ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P EJECT P* PCONT & P GETABX DEBINW4 GET CURRENT INDEX
0x293f3c…2940d0 Dummy {f00=0x00d1, f01=0x0190, f02=» JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND P* < P* COMPULSORY FIELD FOUND F P* j & P MOVE DEBINW4,DEBINW3 CHANGE INDEX t P B CONT5 SEARCH AGAIN P* P EJECT P* & P* SET CURSOR AND READ KEYBOARD P
0x2940d0…294264 Dummy {f00=0x00d1, f01=0x0190, f02=» PREADIN P TBF DENOCHAN,READ50 PREAD10 MOVE DEBINW1,W0 2 P MOVE DEBINW3,W1 P 6 P NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 h P BOK READ30 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64 P BNZ READ10 P
0x294264…2943f8 Dummy {f00=0x00d1, f01=0x0190, f02=» POWER OFF P B SETCREAD * PREAD40 IB DEBINW2,READ10,STATUS,KCOPY & P SUB DEBINW2,W3 T P CLEAR DENOCHAN l P RET PREAD50 . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C P DEBINW2,DEBINW4 PDYKOUT P BL ERRPRT ERROR
0x2943f8…29458c Dummy {f00=0x00d1, f01=0x0190, f02=» P KEY SWITCHES ( P IB DEBINW2,UPD300,CLEA20 JUMP ON C P UPDATE,ERRCAN,ERRCAN, C H . P UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C j 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C P UPDATE,KDUPL,KEDIT P EJECT P* 4 P
0x29458c…294720 Dummy {f00=0x00d1, f01=0x0190, f02=»L 3,DEBINW4 GET SCHK-NUMBER 6 P CBE DEBINW4,W0,UPD050 JUMP IF NOT STANDARD CHECK $ * P PERFI DEBINW4,DECHK1,DECHK2,DECHK3 C ^ " P DECHK4,DECHK5,DECHK6,DECHK7 & P IB DEBINW3,UPD100,UPD070,ERRPRINT P* P* CONDITIONAL DISPLAYING
0x294720…2948b4 (3, 12) Dummy {f00=0x00d1, f01=0x0190, f02=» p . P CBNE DEBINW3,W0,UPD210 JUMP IF APPL VALUE P B SETCREAD : P* N " P* UNCONDITIONAL DISPLAYING X P* ~ PUPD100 4 P MOVE DEBINW4,W2 INDICATE UNCONDITIONAL DIDELAY PUPD200 $ P GETCTL 0,DEBINW3 GET APPL-VALUE 0 P CBE
0x2948b4…294a48 Dummy {f00=0x00d1, f01=0x018e, f02=» ( P IB DEBINW3,UPD260,SETCREAD,ERRPRINT P B UPD400 4 P* F P* OK AFTER APPL CONTROL P " P* UNCONDITIONAL DIDELAYING r P* PUPD260 2 P UPDFLD 1,DEINPUT UPDATE FIELD WITH DIDELAYING . PUPD300 SET DECHANGE INDICATE CHANG
0x294a48…294bdc Dummy {f00=0x00d1, f01=0x0190, f02=» r , P KTBWD,KTHOME,KERASE,KKEEP,KTRIGHT, C , P KTDOWN,STATUS,KCOPY,DUMMY,DUMMY,KENTER 8 * P SUB DEBINW2,W14 ADJUST EOI-KEY INDEX h P B RETUR PRETUR1 $ P SUB DEBINW2,W1 ADJUST KEY INDEX PDUMMY PRETUR P CLEAR DENOCHAN
0x294bdc…294d70 Dummy {f00=0x00d1, f01=0x0190, f02=»EL. COND. n P B UPD300 P* $ P EJECT . " PKEOI COMMON END-OF-ITEM KEY < PKTFWD TAB. FORWARD 1 STEP b P TFWD P B TSTTAB P* $ PKTBWD TABULATION 1 STEP BACKW. P TBWD P B TSTTAB P* " PKTHOME
0x294d70…294f04 Dummy {f00=0x00d1, f01=0x0190, f02=» TSTTAB P* PKTLEFT TAB. TO LEFTMOST P TLEFT < P B TSTTAB J P* PKTRIGHT TAB. TO RIGHTMOST f P TRIGHT P B TSTTAB P* PKTDOWN TAB 1 DOWN P TDOWN P B TSTTAB P* PKTUP TAB 1
0x294f04…295098 Dummy {f00=0x00d1, f01=0x0190, f02=» COMPULSORY FIELD | P* P* $ P* CONDITIONAL TABULATION . P* R P PERF DETCHK P CBE DEBINW3,W0,KCOP10 p P IB DEBINW2,DUMMY,DUMMY, C " P KTFWD,DUMMY,DUMMY,KTFWD, C " P KTBWD,KTFWD,KTFWD,KTFWD, C P KTBWD,KT
0x295098…29522c Dummy {f00=0x00d1, f01=0x0190, f02=»F DESTAT P B ERRPRT P EJECT " PKCOPY HARD COPY 0 P MOVE DEBINW3,W1 J P PRINT DEDSPRT,DEBINW3,W0 b PKCOP10 $ P B SETCREAD SET CURSOR AND READ P* PKDUPL DUPLICATION , P MOVE DEBINW2,W3 INDICATE COMMON EOI-KEY
0x29522c…2953c0 Dummy {f00=0x00d1, f01=0x0190, f02=»DUPL NOT ALLOWED P EJECT P* & P* EDIT FIELD 0 P* H PKEDITX R P MOVE DEBINW1,W1 ` PKEDIT x P GETCTL 1,DEBINW3 GET MAXL P CBNE DEBINW3,W0,KED100 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B SETCREAD P
0x2953c0…295554 (3, 13) Dummy {f00=0x00d1, f01=0x0190, f02=» ERASE KEY P* PKERASE P GETABX DEBINW4 , P ERASE 2,DEBINW4,W0 D P* ` P* ENTER KEY j P* PKKEEP PKENTER . P MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND * P MOVE DEBINW1,W0 INDICATE NO CLEARING < P G
0x295554…2956e8 Dummy {f00=0x00d1, f01=0x0190, f02=»IELD r P BZ KENT05 NO! . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD " P BP KENT10 YES! T PKENT05 l P CBE DEBINW2,W9,KCOP10 z P CBE DEBINW2,W10,KCOP10 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED P RET P* & P*
0x2956e8…29587c Dummy {f00=0x00d1, f01=0x0190, f02=» ^ P MOVE DEBINW1,W0 P EJECT PERRPRT . ( P CBE DEBINW2,W16,KEDIT JUMP IF EDIT < , P CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 h , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64 P B
0x29587c…295a10 Dummy {f00=0x00d1, f01=0x0190, f02=»2,RETUR2,KEDITX v P B SETCREAD P* , P* CLEAR LAST LINE 6 P* V PERRCAN PERF CANC ` " P IB DEBINW2,SETCREAD,SETCREAD x . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 P RET PCLEA20 * P GETABX DEBINW4 GET CURRENT TA
0x295a10…295ba4 Dummy {f00=0x00d1, f01=0x408a, f02=» P RET P* PBELL FRMT P FSL , P FILLR X'07',1 8 P FMEND N P P PEND d P r P END z@ AD,SETCREAD x . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 P RET PCLEA20 * P GETABX DEBINW4 GET CURRENT TA
0x295ba4…295d38 Dummy {f00=0x00d1, f01=0x2008, f02=» NPUT RESTORE CURRENT CONTENTS PCLEA20 . * P GETABX SPBINW4 GET CURRENT TAB INDEX < , P DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD j P B SETCREAD CONTINUE P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND P
0x295d38…295ecc Dummy {f00=0x00d1, f01=0x0190, f02=» 2 B x X @
0x295ecc…296060 Dummy {f00=0x00d1, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x296060…2961f4 (3, 14) Opaque[0x194]
0x2961f4…296388 # DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a40, f03=0x0000}
0x2961f4…296388 IdxSect {
0x2961f4…296388 f00 = 0x00d2 // 0x2961f4 @0x0
0x2961f4…296388 f01 = 0x0006 // 0x2961f6 @0x2
0x2961f4…296388 gno = [ // 0x2961f8 @0x4
0x2961f4…296388 [0x00]: C0x00d2.0x0.0
0x2961f4…296388 [0x01]: C0x00d2.0x1.0
0x2961f4…296388 [0x02]: C0x00d2.0x2.0
0x2961f4…296388 ]
0x2961f4…296388 }
0x296388…29651c Dummy {f00=0x00d2, f01=0x0190, f02=» $ P IDENT DERROR UPD 80-02-29/CHST P* , P* USER = S:DA 6 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE L 2 P* IT - POSITIONS CURSOR AT THE 24TH LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE 24TH LINE > P*
0x29651c…2966b0 Dummy {f00=0x00d2, f01=0x0190, f02=» DDUM DDINIT PDIV P ENTRY DERROR " P ENTRY CANC 8 P ENTRY DESTAT L P ENTRY DECHK1 b P ENTRY DECHK2 x P ENTRY DECHK3 P ENTRY DECHK4 P ENTRY DECHK5 P ENTRY DECHK6 P ENTRY DECHK7 P ENTRY DETCH
0x2966b0…296844 Dummy {f00=0x00d2, f01=0x0190, f02=»FM07, C T : P ERFM02,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM02, C : P ERFM02,ERFM02,ERFM17,ERFM18,ERFM02,ERFM20,ERFM21, C N : P ERFM22,ERFM18,ERFM24,ERFM25,ERFM18,ERFM18,ERFM02, C P ERFM02,ERFM30 P* PERFM01 FRMT P FSL
0x296844…2969d8 Dummy {f00=0x00d2, f01=0x0190, f02=»MEND P* PERFM03 FRMT P FSL * P FTEXT 'I/O-ERROR' 6 P FMEND P P* ^ PERFM04 FRMT h P FSL | " P FTEXT 'FUNCTION NOT ALLOWED' P FMEND P* PERFM05 FRMT P FSL ( P FTEXT 'COMPULSORY FIELD NOT FILLE
0x2969d8…296b6c Dummy {f00=0x00d2, f01=0x0190, f02=» P FSL " P FTEXT 'FILENAME ALREADY USED' P FMEND 6 P* D PERFM09 FRMT N P FSL b $ P FTEXT 'SYSTEMFILE NOT CREATED' n P FMEND P* PERFM10 FRMT P FSL P FTEXT 'DISK OVERFLOW' P FMEND P* PERFM
0x296b6c…296d00 Dummy {f00=0x00d2, f01=0x018e, f02=» 'FILE NAME UNKNOWN' P FMEND P* * PERFM13 FRMT 4 P FSL H " P FTEXT 'NO WORKSPACE IN CORE' T P FMEND z P* PERFM17 FRMT P FSL " P FTEXT 'OUTPUT FILE TOO SMALL' P FMEND P* PERFM18 FRMT P FSL
0x296d00…296e94 (3, 15) Dummy {f00=0x00d2, f01=0x0190, f02=» P FMEND P* PERFM21 FRMT P FSL 0 " P FTEXT 'USERFILE ASSIGN-ERROR' < P FMEND b P* p PERFM22 FRMT z P FSL P FTEXT 'DISC I/O-ERROR' P FTAB 58 P FMEL 'XXXXX-',BCD13A P FMEND P* PERFM24 F
0x296e94…297028 Dummy {f00=0x00d2, f01=0x0190, f02=»-ERROR' | P FMEND P* PERFM30 FRMT ( P FSL < 8 P FTEXT 'WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE' H P FMEND P* P EJECT PDERROR PROC KEYT P PKTAB KEYT P* P* ERROR HANDLING P* P M
0x297028…2971bc Dummy {f00=0x00d2, f01=0x0190, f02=»W4,=W'51' PDERR00 ( P MOVE DEBINW3,=X'1801' ROW 24 COL. 1 4 P DSC1 DEDSSCRN,6,DEBINW3 SET CURSOR ON LAST ROW L P* PDERR03 P CBL DEBINW4,=W'50',DERR04 P MOVE DEBINW4,W2 PDERR04 & P EDWRT DEDSSCRN,DEFTBERR(DEBINW4)
0x2971bc…297350 Dummy {f00=0x00d2, f01=0x0190, f02=»D z P B DERR15 NO BELL FIRST TIME PDERR10 . ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM < PDERR15 h & P MOVE DEBINW3,W1 REQUESTED LENGTH v 0 P NKI .NE,DEDSDYKB,STR1A,KEYT,DEBINW3,DEBINW2 P BNOK DERR10 P* PDERR18 P CBNE DE
0x297350…2974e4 Dummy {f00=0x00d2, f01=0x0190, f02=»DERR30,DERR30 C P DERR30,DERR40 P B DERR10 CONTINUE 0 P* J P* CLEAR ERROR PRINTOUT T P* v PDERR30 , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE P PERF CANC P B DERR99 PDERR40 P CBE DEBINW1,W0,DERR10
0x2974e4…297678 Dummy {f00=0x00d2, f01=0x0190, f02=»PUT,HEX00 0 P MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS . P CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 F P MOVE STATSH,=X'3100' x 4 P MOVE :FMTITEM,STATSH PUT SOMETHING IN THE FIELD & P GETABX DEBINW4 GET CURRENT INDEX * P ERASE 10,DEBINW
0x297678…29780c Dummy {f00=0x00d2, f01=0x018e, f02=»NTS d P RET PCLEAR1 . P CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 & ( P SET DECHANGE INDICATE CHANGED FIELD X P B CANC15 CONTINUE P* PCLEAR2 P CBE DEBINW1,W0,CANC15 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS
0x29780c…2979a0 Dummy {f00=0x00d2, f01=0x411a, f02=» P EJECT PDESTAT PDECHK1 PDECHK2 . PDECHK3 < PDECHK4 J PDECHK5 X PDECHK6 f PDECHK7 t PDETCHK PROC P RET P PEND P EJECT P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND
0x2979a0…297b34 (3, 16) Dummy {f00=0x00d2, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x297b34…297cc8 Dummy {f00=0x00d2, f01=0x0190, f02=» PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x297cc8…297e5c Dummy {f00=0x00d2, f01=0x4010, f02=» END @ P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x297e5c…297ff0 Dummy {f00=0x00d2, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x297ff0…298184 Dummy {f00=0x00d2, f01=0x0190, f02=» P* STARTPOINT P* $ P START START . P STACK 200 B EJECT T * b * l PCB1 BLK v P* $ PLRUQUE STRG 16 LAST RECENT USED $ PBPOOL STRGI (32),188 BUFFERPOOL * PRPOOL STRGI (32),19 BUFFER REFERENCES
0x298184…298318 Dummy {f00=0x00d2, f01=0x0190, f02=»X FOR USERFILE ~ RETCOD BIN RETURN-CODE & PRECLNTH BIN CURRENT RECORDLENGTH 6 PPJOBCUR BIN POOLINDEX ` " PJOBNAME STRG 6 CURRENT JOBNAME ~ & PFORMAT STRG 6 CURRENT FORMAT-NAME EJECT * * COMMON-BLOCK: 2 *
0x298318…2984ac Dummy {f00=0x00d2, f01=0x0190, f02=»OOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- & W0 BIN W'0' CONSTANT N W1 BIN W'1' CONSTANT j W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTA
0x2984ac…298640 Dummy {f00=0x00d2, f01=0x0190, f02=»' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT 0 PW14 BIN W'14' CONSTANT N PW15 BIN W'15' CONSTANT l P EJECT P* P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK
0x298640…2987d4 (3, 17) Opaque[0x194]
0x2987d4…298968 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a58, f03=0x0000}
0x2987d4…298968 IdxSect {
0x2987d4…298968 f00 = 0x00d2 // 0x2987d4 @0x0
0x2987d4…298968 f01 = 0x0004 // 0x2987d6 @0x2
0x2987d4…298968 gno = [ // 0x2987d8 @0x4
0x2987d4…298968 [0x00]: C0x00d2.0x3.0
0x2987d4…298968 [0x01]: C0x00d3.0x0.0
0x2987d4…298968 ]
0x2987d4…298968 }
0x298968…298afc Dummy {f00=0x00d2, 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
0x298afc…298c90 Dummy {f00=0x00d2, 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
0x298c90…298e24 Dummy {f00=0x00d2, f01=0x0190, f02=»CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD $ PBSP EQU X'8B' BACKSPACE J " PVAL EQU X'97' FORCE VALIDATION j NOK EQU X'FF' NOKEY EJECT * * KEYTABLES * & P* USAGE: DATA ENTRY SCREE
0x298e24…298fb8 Dummy {f00=0x00d2, f01=0x018e, f02=»P,CFW,ENT,RFW,RBW,COR,RDL,TOT,PRG * * , PDEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C 4 P PLS,BTB,HOM,NOK, C d NOK,NOK,NOK,NOK,PRT, C NOK,CBW,ENT * ( PDEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET,
0x298fb8…29914c Dummy {f00=0x00d2, f01=0x0190, f02=» r P* , PDEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN B P* h PDEKTAB6 KTAB CAN,RET r P* $ PDEKTAB7 KTAB CLR,CAN,RET,CFW,ENT P* PDEKTAB8 KTAB CAN,NOK,ENT * , PDEKTABA KTAB BSP,NOK
0x29914c…2992e0 Dummy {f00=0x00d2, f01=0x40dc, f02=» CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET, C P PLS,BTB,HOM,NOK, C B P NOK,NOK,NOK,MIN,PRT, C ` NOK,NOK,ENT P* ( PDEKTABD KTAB CLR,CAN,RET,CFW,VAL,FRC P* @ OK,ENT * , PDEKTABA KTAB BSP,NOK
0x2992e0…299474 (3, 18) Dummy {f00=0x00d3, f01=0x2008, f02=»
0x299474…299608 Dummy {f00=0x00d3, 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
0x299608…29979c Dummy {f00=0x00d3, 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
0x29979c…299930 Dummy {f00=0x00d3, 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
0x299930…299ac4 Dummy {f00=0x00d3, 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
0x299ac4…299c58 Dummy {f00=0x00d3, 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
0x299c58…299dec Dummy {f00=0x00d3, 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
0x299dec…299f80 Dummy {f00=0x00d3, 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
0x299f80…29a114 (3, 19) Opaque[0x194]
0x29a114…29a2a8 # DirEnt {nam=»DEDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a68, f03=0x0000}
0x29a114…29a2a8 IdxSect {
0x29a114…29a2a8 f00 = 0x00d3 // 0x29a114 @0x0
0x29a114…29a2a8 f01 = 0x0004 // 0x29a116 @0x2
0x29a114…29a2a8 gno = [ // 0x29a118 @0x4
0x29a114…29a2a8 [0x00]: C0x00d3.0x1.0
0x29a114…29a2a8 [0x01]: C0x00d3.0x2.0
0x29a114…29a2a8 ]
0x29a114…29a2a8 }
0x29a2a8…29a43c Dummy {f00=0x00d3, f01=0x0190, f02=» & P IDENT DEDI04 PRR 1.0 79-05-31/AST P DDUM DDINIT . PDIV B P ENTRY NXJOB P P ENTRY NXBTH d P EXT EMPTYT x P EXT RDDS P EXT WRFSP P EXT RELEAS P EXT COND P EXT SFMTCH PDUMMY PROC FC P*
0x29a43c…29a5d0 Dummy {f00=0x00d3, f01=0x0190, f02=» BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH,W3,RBUF,W10 0 P BERR NOT P P TBF SWIT01,BANA b P ADD DEBIN2,W4 z P CBNG DEBIN2,DKBIN1,GTNAM PRENER READ NEXT RECORD P XCOPY DKBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT
0x29a5d0…29a764 Dummy {f00=0x00d3, f01=0x0190, f02=»E DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 " $ P COPY JOBNAME,W0,W6,RBUF,DEBIN2 < P B RETURN d PBANA v P CALL EMPTYT,BATCH P BNZ FIRBA P MOVE STR6A,BATCH P PERF SFMTCH,DEBIN3,RBUF,W12 P BERR NOT P ADD DEBIN
0x29a764…29a8f8 Dummy {f00=0x00d3, f01=0x0190, f02=»DS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT " P B RETURN B PFIRBA T P PERF RDDS,DEBIN3 b P BERR RETURN | P XCOPY DEBIN2,W0,W2,RBUF,W6 P CBNG DEBIN2,W10,NOT P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x29a8f8…29aa8c Dummy {f00=0x00d3, f01=0x40ce, f02=»P,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 . P TBF SW95PR,RETUN9 N P MOVE DEBINW4,=W'-1' h PRETUN9 P PERF COND P RET P PEND END @ P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x29aa8c…29ac20 Dummy {f00=0x00d3, f01=0x2008, f02=» PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 . P TBF SW95PR,RETUN9 N P MOVE DEBINW4,=W'-1' h PRETUN9 P PERF COND P RET P PEND END @ P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x29ac20…29adb4 (3, 20) Dummy {f00=0x00d3, f01=0x4086, f02=» # = r > . > H > > p@ >
0x29adb4…29af48 Dummy {f00=0x00d3, f01=0x4014, f02=» HNOD ? @ ? * * & # + * r + X + r + + @ + DEDISC * DSKERR * * & YE@ l n p r * * & w
0x29af48…29b0dc Dummy {f00=0x00d3, f01=0x0190, f02=» IDENT P:S002 @ 5 D @ " * & 0 10 4 2 @ @ * & - 2W 3W 6W ; 34 0_ j @ n * & K 01 0! N ! M _" A_ j 01 0! H @ * & i I( J,_; j>2 XY6_@ OL @ * & 0 DW
0x29b0dc…29b270 Dummy {f00=0x00d3, f01=0x0190, f02=» _ ` `0 `8 0 @ * & `0 X 0 0 220 11_ [ [ A * & ] [ _ j 01 0 GX A_ ` A N * & ; )jC `0&W $`2 "`8 0 `0 X A | * & Y 0 22( 0H0 11? ? ` `0 ` A * & w 8 a`jR61`10 `0 X ( 0 0 A * &
0x29b270…29b404 Dummy {f00=0x00d3, f01=0x0190, f02=» g$ 4 " N F 1 h 0 23? ? A * & h h 0 ? j 01 0! K ! L _ B . & " + F? E? "`4 `1W `3 `D4 B * & E H ] { $ B * & c 4 j C B 6 1 ; B * &
0x29b404…29b598 Dummy {f00=0x00d3, f01=0x402e, f02=» C C @ C * h h 0 ? j 01 0! K ! L _ B . & " + F? E? "`4 `1W `3 `D4 B * & E H ] { $ B * & c 4 j C B 6 1 ; B * &
0x29b598…29b72c Dummy {f00=0x00d3, f01=0x4014, f02=» HNOD D @ D 0 @ 0 0 ? j 01 0! K ! L _ / & " + F? E? "`4 `1W `3 `D4 / @ * & E H ] { $ / j * & c 4 j C / 6 1 ; / DERR / * & @ t 2
0x29b72c…29b8c0 Dummy {f00=0x00d3, f01=0x0190, f02=» IDENT P:S003 E t B P h l p E " * & @p@q@r@t@v@x@y 02 # E @ * & - !" 0 E n * & K 76 : ( 0R@s 4S:: Cq E * & i < Sk 1 SW 0AvT _` 9? E * & j 02S4
0x29b8c0…29ba54 (3, 21) Opaque[0x194]
0x29ba54…29bbe8 # DirEnt {nam=»CONFIG«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1a78, f03=0x0000}
0x29ba54…29bbe8 IdxSect {
0x29ba54…29bbe8 f00 = 0x00d3 // 0x29ba54 @0x0
0x29ba54…29bbe8 f01 = 0x0002 // 0x29ba56 @0x2
0x29ba54…29bbe8 gno = [ // 0x29ba58 @0x4
0x29ba54…29bbe8 [0x00]: C0x00d3.0x3.0
0x29ba54…29bbe8 ]
0x29ba54…29bbe8 }
0x29bbe8…29bd7c Dummy {f00=0x00d3, f01=0x00d0, f02=» T; P01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P00; P03; PSCL=S01; PSCL=S02; PSCL=S04;
0x29bd7c…29bf10 Dummy {f00=0x00d3, f01=0x2008, f02=» P01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P00; P03; PSCL=S01; PSCL=S02; PSCL=S04;
0x29bf10…29c0a4 Dummy {f00=0x00d3, f01=0x0190, f02=» $ B " @ c >
0x29c0a4…29c238 Dummy {f00=0x00d3, f01=0x0190, f02=»
0x29c238…29c3cc Dummy {f00=0x00d3, f01=0x0190, f02=» : : F0
0x29c3cc…29c560 Dummy {f00=0x00d3, f01=0x0190, f02=» SYSVOLSYSVOLOUTPUT 2 $ 6 < N j
0x29c560…29c6f4 (3, 22) Opaque[0x194]
0x29c6f4…29c888 # DirEnt {nam=»DISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a80, f03=0x0000}
0x29c6f4…29c888 IdxSect {
0x29c6f4…29c888 f00 = 0x00d4 // 0x29c6f4 @0x0
0x29c6f4…29c888 f01 = 0x0008 // 0x29c6f6 @0x2
0x29c6f4…29c888 gno = [ // 0x29c6f8 @0x4
0x29c6f4…29c888 [0x00]: C0x00d4.0x0.0
0x29c6f4…29c888 [0x01]: C0x00d4.0x1.0
0x29c6f4…29c888 [0x02]: C0x00d4.0x2.0
0x29c6f4…29c888 [0x03]: C0x00d4.0x3.0
0x29c6f4…29c888 ]
0x29c6f4…29c888 }
0x29c888…29ca1c Dummy {f00=0x00d4, f01=0x0190, f02=» $ P IDENT DISC PRR 1.0 79-06-19/AST * , > :********************************************************** 6 * x 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS
0x29ca1c…29cbb0 Dummy {f00=0x00d4, f01=0x018e, f02=»ISC IN SPECIFIED UNIT x & P* 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE H * v @ ;*********************************************************** P DDUM DDINIT P PDIV EXT CHANFC P EXT WAIT
0x29cbb0…29cd44 Dummy {f00=0x00d4, f01=0x0190, f02=» P EXT POOL P EXT ATTWB P EXT RESTOR , P ENTRY RDDS @ P ENTRY WRDS T P ENTRY DISU h P ENTRY OPCL | P ENTRY COND P ENTRY WRFSP P ENTRY REFSP WEOF EQU 3 CLOSE FILE EJECT POPCL PRO
0x29cd44…29ced8 Dummy {f00=0x00d4, f01=0x0190, f02=»ENSY P TBF BOOLA1,GOON P SWITCH $ P B OPENSY 4 PGOON F P SET SWITSY R P BNZ OPENSY04 f P SET BOOLA1 | P CLEAR SWIT04 P INCREASE DISC-COUNTER P ADD FCOUNTER(W1),W1 P ALREADY ASSIGNED? " P CBG FCOUN
0x29ced8…29d06c Dummy {f00=0x00d4, f01=0x018e, f02=»SSIGN DISK,0,DEBINW4,STRG10A,JOBNAME P BOK OPENSY02 , POPENSY06 B P DSC0 DISK,WEOF R P CLEAR SWITSY j P MOVE DEBINW4,W20 P SUB FCOUNTER(W1),W1 P B OPENSY04 POPENSY02 P MOVE LRUQUE,HEX00 P P MOVE DKBIN1
0x29d06c…29d200 Dummy {f00=0x00d4, f01=0x0190, f02=» x P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF * & P XCOPY F95PROC(W1),W0,W2,SYSBUF,W5 J $ P XCOPY FRINF(W1),W0,W2,SYSBUF,W1 t P PERF POOL P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 P PERF REFSP,W2,W1 P BOK OPE
0x29d200…29d394 (3, 23) Dummy {f00=0x00d4, f01=0x0190, f02=»D SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 2 P CLEAR BOOLA1 B P PERF COND SET CONDITION-REG X RET | PCLOSSY P TBF SWITSY,CLOSSY02 P CLEAR SWITSY P SUB FCOUNTER(W1),W1 " P CBG FCOUNTER(W1),W0,CLOSSY02
0x29d394…29d528 Dummy {f00=0x00d4, f01=0x0190, f02=»K CLOSSY01 P RELEASE FREESPACE-POOL P MOVE DKBIN2,FINDEXPO(W1) 4 * P PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A V PCLOSSY01 " P CALL CHANFC,DISK,FILECODE(W1) P DSC0 DISK,WEOF CLOSE FILE PCLOSSY02 P PERF COND RET
0x29d528…29d6bc Dummy {f00=0x00d4, f01=0x018e, f02=» P PERF SETUSE P BERR OPENUS03 P B OPENUS01 2 PGOONN F P SET SWITUS T P BNZ OPENUS0C h P SET BOOLA2 ~ P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E ( P CALL CHANFC,DISK,
0x29d6bc…29d850 Dummy {f00=0x00d4, f01=0x0190, f02=» j P BNOK OPENUS02 P PERF NOFFRE,DEBIN1,FILINDUS P BOK OPENUS0D B P SET SWIT01 X POPENUS0D l $ P MOVE FNOOFREC(FILINDUS),DEBIN1 | P PERF DISU,W3,W1,RBUF P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,R
0x29d850…29d9e4 Dummy {f00=0x00d4, f01=0x0190, f02=» l P FILE CLOSED? P CBE DKBIN1,W0,USCLS P SET SWIT01 < PUSCLS P P XCOPY RBUF,W0,W1,W7,W1 ^ P PERF DISU,W4,W1,RBUF ~ P BOK OPENUS0B P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DK
0x29d9e4…29db78 Dummy {f00=0x00d4, f01=0x018e, f02=»IN3 t P PERF REFSP,W2,FILINDUS P PERF RELEAS , P BOK OPENUS01 @ $ P MOVE DKBIN1,FINDEXPO(FILINDUS) V * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A ~ OPENUS02 P DSC0 DISK,WEOF P MOVE DEBINW4,W21 POPENUS03 P CLEAR SWI
0x29db78…29dd0c Dummy {f00=0x00d4, f01=0x0190, f02=» POPENUS0C P CLEAR BOOLA2 P PERF COND * RET < PCLOSUS H P TBF SWITUS,CLOSUS01 V P CLEAR SWITUS r P SUB FCOUNTER(FILINDUS),W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK CLOSUS02 $ P MOV
0x29dd0c…29dea0 Dummy {f00=0x00d4, f01=0x0190, f02=»COPY RBUF,W0,W1,W0,W1 P PERF DISU,W4,W1,RBUF P BNOK CLOSUS02 < ( P CALL CHANFC,DISK,FILECODE(FILINDUS) R PCLOSUS02 ~ DSC0 DISK,WEOF CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLEN,W0,W
0x29dea0…29e034 (3, 24) Dummy {f00=0x00d4, f01=0x0190, f02=»N1,W0,SETNOZ P MOVE DKBIN1,W1 PSETNOZ , P MUL DKBIN1,SECLEN : $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 T P CBNG DKBIN1,DKBIN2,SETOKA | P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1 P S
0x29e034…29e1c8 Dummy {f00=0x00d4, f01=0x0190, f02=»RECNO,BUF P IB FUZ C P READSY C $ P WRITSY C 8 P READUS C L P WRITUS ` PREADSY p " P CALL CHANFC,DISK,FILECODE(W1) ~ P MOVE DKBIN1,SYSLEN & P RREAD .NEA,DISK,BUF,DKBIN1,RECNO P BOK READSY01 PERF DK
0x29e1c8…29e35c Dummy {f00=0x00d4, f01=0x0190, f02=»NW4,=W'30' PROUT P PERF COND RET 0 PWRITSY < " P CALL CHANFC,DISK,FILECODE(W1) J P RWRITE DISK,BUF,RECNO p P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01 P PERF COND RET PREADUS
0x29e35c…29e4f0 Dummy {f00=0x00d4, f01=0x0190, f02=» PERF DKER P TBT NEWVOL,READUS PREADUS01 0 P PERF COND @ RET R PWRITUS ^ ( P CALL CHANFC,DISK,FILECODE(FILINDUS) l RWRITE DISK,BUF,RECNO P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P
0x29e4f0…29e684 Dummy {f00=0x00d4, f01=0x0190, f02=»TH O L L P* MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P MOVE FLIND(W20),B
0x29e684…29e818 Dummy {f00=0x00d4, f01=0x018e, f02=»DS01 P PERF DISU,BIN13,BIN14,RBUF P BERR READY 0 P SUB FLIND(W22),SECLEN D P BNP READY b P CALL ATTWB,RBUF,SECLEN,W10 t P ADD BIN14,W1 P B RDDS01 PREADY P CALL RESTOR,W0,W4,PWBDB4 P MOVE BIN13,FLIND(W20)
0x29e818…29e9ac Dummy {f00=0x00d4, f01=0x0190, f02=» x P MOVE BIN13,W4 P B RDDS02 P PEND 0 EJECT > @ <************************************************************ L * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DISK-ERROR * 0 P* CHANGED
0x29e9ac…29eb40 Dummy {f00=0x00d4, f01=0x0190, f02=» P CLEAR NEWVOL P XSTAT DISK,DKBIN1 P MOVE BCD13A,DKBIN1 8 P MOVE DKBIN2,=X'8022' T P CALL MASK,DKBIN1,DKBIN2 r P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10 P MOVE DKBIN2,=X'800' P CALL MASK
0x29eb40…29ecd4 (3, 25) Dummy {f00=0x00d4, f01=0x0190, f02=»SK,DKBIN1,DKBIN2 P BZ DKER30 " P SET NEWVOL NEW VOLUME LOADED * P RET P PDKER30 P MOVE DKBIN2,W1 j P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE PDKER40 P RET PEND
0x29ecd4…29ee68 Dummy {f00=0x00d4, f01=0x0190, f02=» | P CMP W1,W2 P RET PCON1 & P CMP W2,W1 2 P RET D PCON0 P P CMP W1,W1 P RET n P PEND z P* P* WRITE FREESPACE-RECORD P* PWRFSP PROC MAX P PERF WAIT P MOVE DKBIN1,FINDEXPO(MAX) ( P
0x29ee68…29effc Dummy {f00=0x00d4, f01=0x018e, f02=»ISK,FILECODE(MAX) P RWRITE DISK,SYSBUF,DKBIN1 P BNERR WRFRET < P PERF DKER R PWRFRET d P PERF COND r P RET P PEND P* P* P* PREFSP PROC FSRNR,FIND P PERF WAIT $ P CALL CHANFC,DISK,FILECODE(F
0x29effc…29f190 Dummy {f00=0x00d4, f01=0x4114, f02=» P TBT NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x29f190…29f324 Dummy {f00=0x00d4, 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
0x29f324…29f4b8 Dummy {f00=0x00d4, f01=0x0190, f02=» jS42 0 4 SRz SOjS22 0 _G b * & 1Rnj 82 0 1Rbj :2 0bS < 0 c . * & + <jS62 0 4 SR> _ 0 52 R0b c * & I 0: 19b :L 10 42 R 0 a0 0 c * & g b0 0 `0 Q4 3 _# A_ c * & 3 SZ 4 SZ 0 0 02 3
0x29f4b8…29f64c Dummy {f00=0x00d4, f01=0x0190, f02=» j 02 c p * & d _ !T= !T> []1 $A 2 d * & _ 1 %_ 0 ] XP XYP [ 1 d < * & 9 #A 2 _ ZjR71`10 15 d j * & W jR61 0jR88[0bR@6Z0 EjR 111 d * & u FjR 2N0!T=$jR 121jR 2M0!T< h d * & jR 1 1 gjR
0x29f64c…29f7e0 Dummy {f00=0x00d4, f01=0x0190, f02=» d n F < e * & g - # e $ * & ! 1 2 4 6 8 NYX BC JC e R * & ? NO.Y/NSIZECOPY JOB:COPY BATCH: e * & ] OF RECORDS:BLOCKING FACTOR:SEC e * & { TOR LENGTH L/H:NO. OF SECTORS e *
0x29f7e0…29f974 (3, 26) Opaque[0x194]
0x29f974…29fb08 # DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1aa0, f03=0x0000}
0x29f974…29fb08 IdxSect {
0x29f974…29fb08 f00 = 0x00d5 // 0x29f974 @0x0
0x29f974…29fb08 f01 = 0x0010 // 0x29f976 @0x2
0x29f974…29fb08 gno = [ // 0x29f978 @0x4
0x29f974…29fb08 [0x00]: C0x00d5.0x0.0
0x29f974…29fb08 [0x01]: C0x00d5.0x1.0
0x29f974…29fb08 [0x02]: C0x00d5.0x2.0
0x29f974…29fb08 [0x03]: C0x00d5.0x3.0
0x29f974…29fb08 [0x04]: C0x00d6.0x0.0
0x29f974…29fb08 [0x05]: C0x00d6.0x1.0
0x29f974…29fb08 [0x06]: C0x00d6.0x2.0
0x29f974…29fb08 [0x07]: C0x00d6.0x3.0
0x29f974…29fb08 ]
0x29f974…29fb08 }
0x29fb08…29fc9c Dummy {f00=0x00d5, f01=0x0190, f02=» ( P IDENT DEPOOL REL 1.0 80-03-26/DALI P DDUM DDINIT 0 @ <************************************************************ D @ <* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING * @ <* SEQUENCE AND THE FORMAL PARAMETERS ARE DESCRIBED BELOW. *
0x29fc9c…29fe30 Dummy {f00=0x00d5, f01=0x0190, f02=» T @ <* * @ <************************************************************ L P* : P* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES . P* AND ORIGINATE CONTENTS OF THEM ARE LOST.
0x29fe30…29ffc4 Dummy {f00=0x00d5, f01=0x0190, f02=»* BIN16 P* DEBINW3 P* DEBINW4 2 P* POOL1 L P* STR1A d P* STR64A | P* @ <************************************************************ P EJECT @ <************************
0x29ffc4…2a0158 Dummy {f00=0x00d5, f01=0x0190, f02=»D BUFFERS ARE FREE FOR USE r : =* BY ANY TASK FOR THE SAME PURPOSES. " < 8* THE COUNTER OF THE PASSED BUFFERCHAIN ` $ P* IS SET TO 1. * =* PASSED PARAMETERS: 6 P* <BUFF1> =
0x2a0158…2a02ec Dummy {f00=0x00d5, f01=0x0190, f02=»METERS: p > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER ( P* IF NO BUFFERS = 0 R * ~ @ <************************************************************ * , (* <FC> = 2 GET BUFFERS WITH LOCK : 6*
0x2a02ec…2a0480 Dummy {f00=0x00d5, f01=0x0190, f02=» THE COUNTER OF THE PASSED BUFFERCHAIN $ P* IS SET TO 1. 2 * =* PASSED PARAMETERS: Z 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS < >* <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS , '*
0x2a0480…2a0614 (3, 27) Dummy {f00=0x00d5, f01=0x0190, f02=»FERS = 0 t * @ <************************************************************ P EJECT ^ @ <************************************************************ l * $ * <FC> = 3 CHAIN BUFFERS : 6* THE RETURNED BUFFER
0x2a0614…2a07a8 Dummy {f00=0x00d5, f01=0x0190, f02=» IS SET TO 1. * 3* PASSED PARAMETERS: $ 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS R 8 P* <BUFF2> = POOLINDEX TO THE RESERVED BUFFER B P* IN THE CHAIN AFTER WHICH THE NEW BUFFER(S)
0x2a07a8…2a093c Dummy {f00=0x00d5, f01=0x0190, f02=»DED BUFFER. j ( P* IF NO BUFFERS = 0 > P* <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER @ $ * IN THE CHAIN * @ <************************************************************ P EJECT @ <**
0x2a093c…2a0ad0 Dummy {f00=0x00d5, f01=0x0190, f02=» NAME AND THE TYPE z > :* OF THE USER IS PUT INTO THE POOLELEMENT < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: > 9* <BU
0x2a0ad0…2a0c64 Dummy {f00=0x00d5, f01=0x0190, f02=» VARIABEL CONSISTING f < 8* OF A STRG1 TYPE AND STRG6 NAME. 0 ,* RETURNED PARAMETERS: NONE * @ <************************************************************ P EJECT @ <****************************
0x2a0c64…2a0df8 Dummy {f00=0x00d5, f01=0x0190, f02=»FOR A POOL- b : 5* ELEMENT OF THE SAME NAME AND TYPE. < 8* THE COUNTER OF THE PASSED BUFFERCHAIN R * P* IS INCREASED BY 1. > P* IF THE SEARCHED BUFFER IS FOUND LOCKED 8 P*
0x2a0df8…2a0f8c Dummy {f00=0x00d5, f01=0x0190, f02=»RETURNVALUES l B >* <KEY> = NAME. THE NAME IS STRG7 VARIABEL CONSISTING < 8* OF A STRG1 TYPE AND STRG6 NAME. Z , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE
0x2a0f8c…2a1120 Dummy {f00=0x00d5, f01=0x0190, f02=» 2 = FOUND LOCKED ~ 0 P* 0 = NOT FOUND & * Z @ <************************************************************ d P EJECT @ <************************************************************ * & !*
0x2a1120…2a12b4 (3, 28) Dummy {f00=0x00d5, f01=0x0190, f02=»R AFTERWARDS IS 0, THE p > P* BUFFER IS PUT ON LRUQUE IF IT WAS FREE. 8 P* IF IT WAS LOCKED IT BECOMES FREE ` 8 P* IMMEDIATLY AND IS NOT PUT ON THE & P* LRUQUE AT ALL. * %*
0x2a12b4…2a1448 Dummy {f00=0x00d5, f01=0x0190, f02=»N r , '* RETURNED PARAMETERS: P* <BUFF1> = SET TO 0 : * ^ @ <************************************************************ h P EJECT @ <************************************************************ * " P
0x2a1448…2a15dc Dummy {f00=0x00d5, f01=0x0190, f02=»SAME NAME AND TYPE. n < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: 4 0* <BUFF1>,<BUFF2> = USED FOR RETURNVALUES B >* <KEY> = N
0x2a15dc…2a1770 Dummy {f00=0x00d5, f01=0x018e, f02=»URNED PARAMETERS: z @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME. IF NOT FOUND = 0 ^ 2 P* <BUFF2> = RETURNCODE. 1 = FOUND FREE 4 P* 2 = FOUND LOCKED 0 P*
0x2a1770…2a1904 Dummy {f00=0x00d5, f01=0x0190, f02=» @ <************************************************************ * L $ P* <FC> = 8 LOCK BUFFERS V : 6* THE RETURNED BUFFERS ARE LOCKED AND ~ > P* RESERVED FOR USE ONLY BY THIS TASK ONLY @ P*
0x2a1904…2a1a98 Dummy {f00=0x00d5, f01=0x0190, f02=» BUFFERCHAIN d . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: F > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER t $ * IN THE CHAIN * @ <********************************
0x2a1a98…2a1c2c Dummy {f00=0x00d5, f01=0x0190, f02=» <FC> = 9 SCAN BUFFER < P* THE BUFFERPOOL IS SCANNED FOR A POOL- , P* ELEMENTCONSISTING OF. ^ < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %*
0x2a1c2c…2a1dc0 Dummy {f00=0x00d5, f01=0x0190, f02=» VARIABEL CONSISTING f < 8* OF A STRG1 TYPE AND STRG6 NAME. , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME. IF NOT FOUND = 0 2
0x2a1dc0…2a1f54 (3, 29) Dummy {f00=0x00d5, f01=0x0190, f02=» 0 = NOT FOUND x * @ <************************************************************ & P EJECT j @ <************************************************************ x * $ P* <FC> = 10 SET BUFFERS 6 P* THE NAM
0x2a1f54…2a20e8 Dummy {f00=0x00d5, f01=0x0190, f02=»PASSED BUFFERCHAIN j . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: L > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER z $ * IN THE CHAIN B >* <KEY> = NAME. THE NAME IS
0x2a20e8…2a227c Dummy {f00=0x00d5, f01=0x0190, f02=»: NONE j * @ <************************************************************ P* & P* <FC> = 11 RELEASE BUFFER f 6 P* THE CHAINLINKS FOR THE BUFFERS 4 P* ON DISK ARE CLEARED AND THE 6 P*
0x2a227c…2a2410 Dummy {f00=0x00d5, f01=0x0190, f02=»RS: n > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN N * v @ <************************************************************ PDIV ENTRY DEPOOL P EXT SETB P EXT TESTB
0x2a2410…2a25a4 Dummy {f00=0x00d5, f01=0x018e, f02=» IB FC C P DEPO1 C P DEPO1 C $ P DEPO3 C 6 P DEPO4 C H P DEPO5 C Z P DEPO6 C l P DEPO5 C ~ P DEPO8 C P DEPO5 C P DEPO4 C P DEPO6 FC=11 P EJECT PDEPO1 . P CBE BUFF2,W0,DE
0x2a25a4…2a2738 Dummy {f00=0x00d5, f01=0x0190, f02=» PDEPO3 & P MOVE BIN15,W1 STARTINDEX IN POOL PDEPO11 < . P MOVE STR64A,HEX00 DROP TEMPORARY RESERVED J PDEPO12 | . P MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE PDEPO13 0 P CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER P* P
0x2a2738…2a28cc Dummy {f00=0x00d5, f01=0x0190, f02=»NOK DEPO16 JUMP IF LAST BUFFER PDEPO15 & . P TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE 4 . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS f . P MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0 P REQUESTED P B DEPO11 ( PDEPO16 LOOK IFTHERE AR
0x2a28cc…2a2a60 Dummy {f00=0x00d5, f01=0x0190, f02=»CONSEC REQ v ( P MOVE BIN15,W1 START FROM BEGINNING P B DEPO12 > PDEPO17 P . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS ^ P B DEPO05 P EJECT P* P* HANDLE FREE BUFFERS P* PDEPO18 P XCOPY STR1A,W0,W1,BIN15
0x2a2a60…2a2bf4 (3, 30) Dummy {f00=0x00d6, f01=0x0190, f02=»CONSECUTVE r P ADD BIN16,W1 REQUESTED 2 P CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF 2 $ P REQUESTED CONSECUTVES REACHED h P CLEAR POOL1 PDEPO19 & P MOVE DEBINW3,W0 RESERV TEMPORARY * P MATCH STR64A,DEBINW3,W64,HEX00,W0,W1 4
0x2a2bf4…2a2d88 Dummy {f00=0x00d6, f01=0x0190, f02=»S p P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) P BNOK DEPO16 D P B DEPO12 CONTINUE X PDEPO20 r P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4 P MOVE DEBINW3,W0
0x2a2d88…2a2f1c Dummy {f00=0x00d6, f01=0x0190, f02=» ^ $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 0 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS T & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE DEBINW4,W128,DEP420 LOC
0x2a2f1c…2a30b0 Dummy {f00=0x00d6, f01=0x0190, f02=»BINW3,W1 t PDEP430 MOVE STR1A,KEY ! * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! . P B DEPOOK ! & PDEP440 STORE THE RECORDLENGTH OF ! n 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL NUMBER OF ! 6 P XCOPY
0x2a30b0…2a3244 Dummy {f00=0x00d6, f01=0x0190, f02=»ORRECORDS ! d & P MOVE DEBINW4,BUFF1 START OF CHAIN " . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " < ( P SUB BIN15,BIN16 JUST FORMATRECORDS " n PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT " & P TBT POOL1
0x2a3244…2a33d8 Dummy {f00=0x00d6, f01=0x0190, f02=»SET FLINK INDEX " | P MOVE FLIND(BIN16),DEBINW4 # PDEP480 SUB BIN15,W1 # : ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # V P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY # P CALL SETB,STR1A,W
0x2a33d8…2a356c Dummy {f00=0x00d6, f01=0x0190, f02=»INW3,W1 # " P CALL CMPIND,DEBINW3,BPOOL(W1) $ $ P BNOK DEPON9 JUMP IF LAST INDEX $ 6 P B DEPO51 $ ^ PDEPO53 $ p 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ ~ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6 $ P BERR DEPO52 $
0x2a356c…2a3700 Dummy {f00=0x00d6, f01=0x0190, f02=»EPO55 $ PDEPO54 % P MOVE BIN15,W0 % . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % 2 P BERR DEPO52 % d P MOVE BUFF2,W2 % x PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DEP565 JUMP IF NO % P
0x2a3700…2a3894 (3, 31) Dummy {f00=0x00d6, f01=0x018e, f02=»,DEP560 % P CBNG ELMNO,BIN16,DEP565 & PDEP560 & 0 P MOVE BUFF2,W0 & > P B DEPO52 & T PDEP565 & f P MOVE BUFF1,DEBINW3 & t P CBE BUFF2,W2,DEP570 & $ P CBE FC,W5,DEPO59 JUMP IF SEARCH & PDEP570 & P B DEPOOK JUMP IF SCAN & PDEPO59 &
0x2a3894…2a3a28 Dummy {f00=0x00d6, f01=0x0190, f02=» & f P SET POOL1 ALREADY HANDLED. ' , P CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 ' , P XCOPY STR1A,W0,W1,BIN15,W1 ' & P CALL GETIND,LRUQUE,BIN16,DEBINW3 ' P MOVE DEBINW3,W0 ' < P MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK FOR BUFFER ' P BNOK
0x2a3a28…2a3bbc Dummy {f00=0x00d6, f01=0x0190, f02=» ADD DEBINW4,W1 ' 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER ( : P XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT ( R . P CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER ( P B DEPO59 ( P EJECT ( PDEPO6 ( P MOVE DEBINW4,W0 ( P
0x2a3bbc…2a3d50 Dummy {f00=0x00d6, f01=0x018e, f02=» PDEPO61 ) P CBNE FC,W11,DEP610 ) P MOVE STR64A,HEX00 ) . P B DEP660 ) H PDEP610 ) Z 4 P XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER ) h $ P SUB DEBINW4,W1 DECREASE COUNTER ) P BG DEPO62 ) & P MOVE STR1A,RPOOL(BIN15) GET TYPE ) , P TBT
0x2a3d50…2a3ee4 Dummy {f00=0x00d6, f01=0x0190, f02=» P MOVE STR1A,=C'X' * & P COPY RPOOL(BIN15),W0,W1,STR1A,W0 * P B DEPO62 * H PDEP630 * Z & P CALL GETIND,LRUQUE,BIN16,DEBINW3 * h P MOVE DEBINW3,W0 * @ P MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE * P BOK DEP640 * & P CBE S
0x2a3ee4…2a4078 Dummy {f00=0x00d6, f01=0x0190, f02=» P DLETE LRUQUE,W0,W1 + P SUB DEBINW3,W1 + PDEP640 + 8 P SET POOL1 ALREADY HANDLED. + F P XCOPY STR1A,W0,W1,BIN15,W1 + j & P INSRT LRUQUE,DEBINW3,W1,STR1A,W0 + PDEPO62 + 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER + PDEP660 +
0x2a4078…2a420c Dummy {f00=0x00d6, f01=0x0190, f02=»OVE BIN15,BIN16 + P CBNE BIN15,W0,DEPO61 , P MOVE BUFF1,W0 , 6 PDEP690 , L P B DEPOOK , Z P EJECT , l PDEPO8 MOVE DEBINW4,W0 , z 4 P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER , 2 P CBNE DEBINW4,W1,DEPON11 JUMP IF NOT ONE USER , ( P X
0x2a420c…2a43a0 Dummy {f00=0x00d6, f01=0x0190, f02=»K , P EJECT - P* - P* BAD RESULT - " P* - 6 PDEPON9 MOVE DEBINW4,W9 - @ P B DEPONO - ^ PDEPON11 MOVE DEBINW4,W11 - p " P MOVE STR6B,='FTJB' FUNCTIONS - ( P XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC - P MOVE BIN16,W0 POINTER:=0 - & P MAT
0x2a43a0…2a4534 (3, 32) Dummy {f00=0x00d6, f01=0x0190, f02=»3 MOVE DEBINW4,W13 - PDEPONO . P MOVE BUFF1,W0 . ( PDEPON20 . > P CMP W1,W2 . N P RET . ` P* . l P* BUFFERS FOUND . v P* . PDEPOOK . P MOVE DEBINW4,W0 . P CMP W1,W1 . RET . PEND . P EJECT . > P****************
0x2a4534…2a46c8 Dummy {f00=0x00d6, f01=0x0190, f02=» . v P* PERF DELRUF / P* / & > P********************************************************* / 0 PDELRUF PROC / r P MOVE DEBINW4,W0 / : P XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST / P BUFFER IN LRUQUE / , P CBNE DEBINW4,W0
0x2a46c8…2a485c Dummy {f00=0x00d6, f01=0x0190, f02=»STR1A,=C'X' FREE-MARK / PDEL11 0 ( P XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0 0 , < P XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT 0 X * P CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0 0 2 P XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK = 0 0 , P MOVE DEBINW
0x2a485c…2a49f0 Dummy {f00=0x00d6, f01=0x0190, f02=»E,DEBINW3,DEBINW4 0 ~ P SUB DEBINW3,W1 1 & P XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 1 2 P CMP W1,W1 1 P RET 1 n P PEND 1 z P EJECT 1 8 P**************************************************** 1 2 P* THIS PROCEDURE RESERV THE REQUESTED BUFFERS 1 6 P
0x2a49f0…2a4b84 Dummy {f00=0x00d6, f01=0x0190, f02=» 1 & P* RETURNED PARAMETER: 2 6 P* <WBIN> = POOLINDEX TO THE FIRST RESERVED 2 2 & P* BUFFER IN RPOOL. 2 l 8 P**************************************************** 2 PDEPORE PROC WBIN,FC 2 P MOVE DEBINW3,W0 2 P M
0x2a4b84…2a4d18 Dummy {f00=0x00d6, f01=0x0190, f02=» MOVE STR1A,HEX00 BUFFER WITHOUT LOCK 2 PDEO1B 3 . P MOVE WBIN,W0 3 < 0 P XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER 3 R P B DEO3B 3 PDEO3 3 P MOVE STR1A,RPOOL(WBIN) 3 & P XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 3 P B DEO3C 3 PDEO3B 3
0x2a4d18…2a4eac Dummy {f00=0x00d6, f01=0x0190, f02=»O 1 3 d * P ADD DEBINW3,W1 POINTER TO NEXT INDEX 4 PDEO3C 4 : 6 P XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX 4 H 0 P CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4 P MOVE WBIN,DEBINW4 4
0x2a4eac…2a5040 Dummy {f00=0x00d6, f01=0x40aa, f02=»15,W1 4 t PDEPO90 5 8 P XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX 5 P RET 5 X P PEND 5 d P END 5 r PTRA /S 5 ~ EJECT 5 END 5 @ 5 FERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4 P MOVE WBIN,DEBINW4 4
0x2a5040…2a51d4 (3, 33) Dummy {f00=0x00d6, f01=0x2008, f02=» 6 : 6* IF THE COUNTER AFTERWARDS IS 0, THE , '* BUFFER IS MADE FREE. J 0 +* PARAMETERS: SEE <FC> = 3 z * @ ;*********************************************************** EJECT
0x2a51d4…2a5368 Dummy {f00=0x00d6, f01=0x0190, f02=» z n r v6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 40 P 64 30 P 24 0 P A 4 !0 P 14 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x2a5368…2a54fc Dummy {f00=0x00d6, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 2 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x2a54fc…2a5690 Dummy {f00=0x00d6, 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 $
0x2a5690…2a5824 Dummy {f00=0x00d6, f01=0x0190, f02=» V H n U n U " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 2 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x2a5824…2a59b8 Dummy {f00=0x00d6, f01=0x0190, f02=» . < Z 2 H 0 _ A T A @s C!!"C!!{ ; kV!0 A!R kP 0 A!R @ 4 C!!WX ^U !0! !T 8 !_ `! ?!` !!Rj ! "R%jG! "R! ! ! " Q E! "!P E! & _g 3@ 4 H /@ C!!"C! $ !T !!RT "!RT E! & 0 A!R 4 H 0 _ #! R R W A T A @p Cv!
0x2a59b8…2a5b4c Dummy {f00=0x00d6, f01=0x0190, f02=»P Ev & 0 AvR 5@ Cv!W Hp 6@ 4 H 4@ Cv!Q, v T Ev & #! T j ! ! $! T 0 AvR 4 j " )( 4j " '( ! 0 * 6 <W e / s 4 : m `!: )`W} d$ bd !bRV ! 15? jc "R&#c21j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$
0x2a5b4c…2a5ce0 Dummy {f00=0x00d6, f01=0x0190, f02=» _ ba `5jR "` `c_V c Ap_1Ar 0"mP r$ t Ir t4(r m $R*: r` ta t( : !rRV ! 1 ? ) r ? j` "R&Hr$ t* t` `tW0 `$jd "R` d * rdJr= t _B$t4 ,`t t` t*_- t3 `"_- `" 7b !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V
0x2a5ce0…2a5e74 (3, 34) Opaque[0x194]
0x2a5e74…2a6008 # DirEnt {nam=»WRIT12«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae0, f03=0x0000}
0x2a5e74…2a6008 IdxSect {
0x2a5e74…2a6008 f00 = 0x00d7 // 0x2a5e74 @0x0
0x2a5e74…2a6008 f01 = 0x0008 // 0x2a5e76 @0x2
0x2a5e74…2a6008 gno = [ // 0x2a5e78 @0x4
0x2a5e74…2a6008 [0x00]: C0x00d7.0x0.0
0x2a5e74…2a6008 [0x01]: C0x00d7.0x1.0
0x2a5e74…2a6008 [0x02]: C0x00d7.0x2.0
0x2a5e74…2a6008 [0x03]: C0x00d7.0x3.0
0x2a5e74…2a6008 ]
0x2a5e74…2a6008 }
0x2a6008…2a619c Dummy {f00=0x00d7, f01=0x0190, f02=» $ P IDENT WRIT12 UPD 80-03-10/CHST , P*************************************** , , P* * , P* WRITES RECORD 1 AND * , P* FREE-SPACE RECORDS * , P* ON SYSTEM- AND USER-FILES
0x2a619c…2a6330 Dummy {f00=0x00d7, f01=0x0190, f02=»RDS * | , P* BIN3 = NO.OF FREE RECORDS * , P* BIN4 = NO.OF FREE-SPACE REC. * L , P* BIN5 = NO.OF FS.IN LAST REC. * | , P* BIN6 = INDEX * , P* BIN7 = NO.OF USED RECORDS *
0x2a6330…2a64c4 Dummy {f00=0x00d7, f01=0x0190, f02=» * l , P* BIN11 = NO.OF SECTORS/RECORD * , P* BIN12 = SIZE OF SECTORS * < , P* * l , P*************************************** P* 6 P* IF THE CREATED FILE IS A SYSTEM FILE THEN
0x2a64c4…2a6658 Dummy {f00=0x00d7, f01=0x0190, f02=»CHAIN p . P* 5 SV, SYSTEM VARIABLES ( P* 7 TC, VALUE SETS @ P* l . P* IF THE CREATED FILE IS A USERFILE v , P* THEN IT IS NESESARY TO INITIATE 4 P* RECORD 3,THE BEGINNING OF THE JOB CHAIN
0x2a6658…2a67ec Dummy {f00=0x00d7, f01=0x0190, f02=»NTRY RECSYS P* P EXT DSKERR P EXT SETB 2 P EXT WRITDK D P EJECT X PREC1 PROC f P********************** x P* WRITE 1:ST RECORD * P********************** P MOVE RBUF,=X'00' P MOVE RECNUM,W1 RECORD NO
0x2a67ec…2a6980 Dummy {f00=0x00d7, f01=0x0190, f02=»CORDS IN FILE n P MOVE BIN3,NOREC P MUL BIN3,BIN11 . P ADD BIN7,W1 F P ADD BIN7,BIN11 Z , P CBNE FTYPE,=D'1',RE10 IF NOT SYSTEMFILE r P ADD BIN7,W5 PRE10 ( P SUB BIN3,BIN7 - NO. OF USED RECORDS P DIV BIN3,BIN11 2 P X
0x2a6980…2a6b14 (3, 35) Dummy {f00=0x00d7, f01=0x0190, f02=» ACK(W1),=D'100' P MOVE BIN4,ACK(W1) P XCOPY RBUF,W5,W2,BIN4,W0 2 P* T 4 P XCOPY RBUF,W7,W2,BIN11,W0 NO.OF SECTORS/RECORD ^ . P XCOPY RBUF,W9,W2,SECLEN,W0 SECTOR LENGTH P* 6 P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM
0x2a6b14…2a6ca8 Dummy {f00=0x00d7, f01=0x0190, f02=» * z P************************ & P MOVE BIN7,W0 NO. OF USED RECORDS * P MOVE FS,=C'FS' T P MOVE LPREV,W0 LINK PREV. l P MOVE LNEXT,W0 LINK NEXT P MOVE BIN2,NOREC P MOVE BIN3,=W'1496' $ P CBE FTYPE,=D'2',F10 IF USERFILE
0x2a6ca8…2a6e3c Dummy {f00=0x00d7, f01=0x0190, f02=»E BIN11,BLFACT NO.OF SECTORS/RECORD * P MUL BIN2,BIN11 NO.OF SECTORS IN FILE , P SUB BIN2,W2 Z P SUB BIN2,BIN11 n * P DIV BIN3,BIN11 CALC.NO.OF FREE SPACE 6 P MUL BIN3,BIN11 INDICATIONS IN EACH FREE SPACR REC ( P**************************
0x2a6e3c…2a6fd0 Dummy {f00=0x00d7, f01=0x0190, f02=»4) p " P* FOR FREE-RECORD INDICATION ( P*********************************** 0 PF20 P MOVE BIN4,W0 h P MOVE BIN5,W0 ~ PF25 * P ADD BIN4,W1 NO.OF FREE-SPACE RECORDS P SUB BIN2,W1 P SUB BIN2,BIN3 4 P CBG BIN2,BIN11,
0x2a6fd0…2a7164 Dummy {f00=0x00d7, f01=0x0190, f02=» P ADD BIN2,BIN3 P ADD BIN2,W1 P MOVE BIN5,BIN2 2 P DIV BIN5,BIN11 J P* b 2 P********************************************* l & P* BIN5 = NO. OF FREE-RECORD-IND. ( P* IN LAST FREE-SPACE RECORD P* . P* PRE
0x2a7164…2a72f8 Dummy {f00=0x00d7, f01=0x0190, f02=»ORD NO. v $ P CBE FTYPE,=D'2',F34 IF USERFILE P ADD FRSTNO,W8 8 P B F35 N PF34 P ADD FRSTNO,W2 RECORD 1+2 h P ADD FRSTNO,BIN11 PF35 " P CBE BIN4,W1,F37 ONLY 1 RECORD P MOVE LNEXT,W4 LINK NEXT $ P CBE FTYPE,=D'2',F
0x2a72f8…2a748c Dummy {f00=0x00d7, f01=0x0190, f02=» PF37 ( P MOVE NOFREE,BIN3 NO. OF FREE = 1496 P DIV NOFREE,BIN11 @ P CBNE BIN4,W1,F40 Z $ P MOVE NOFREE,BIN5 IF LAST RECORD t PF40 P MOVE RECNUM,W2 P EJECT PF50 : P**********************************************
0x2a748c…2a7620 Dummy {f00=0x00d7, f01=0x0190, f02=» P MOVE BIN1,NOFREE P MOVE BIN6,W0 INDEX , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. : * P MOVE NOOCCB,W12 NO. OF OCCUPIED BYTES j P* PF55 & P ADD NOOCCB,W1 1 BYTE / 8 RECORDS P ADD BIN6,W1 P CBE FTYPE,=D'2',F60 P
0x2a7620…2a77b4 (3, 36) Dummy {f00=0x00d7, f01=0x0190, f02=»FF' ~ P CBE BIN1,W0,F70 P B F55 $ PF57 2 P ADD BIN1,W8 > P MOVE FF(BIN6),HEXTAB(BIN1) R P B F70 v P************** P* USERFILE * P************** PF60 ( P MOVE BIN9,W0 WORKITEM - FREE-SPACE " P MOVE BIN1
0x2a77b4…2a7948 Dummy {f00=0x00d7, f01=0x0190, f02=»0:POS.0-7 v P SUB BIN1,W1 PF63 & P ADD BIN10,W1 2 P CBNE BIN8,BIN11,F64 H P MOVE BIN8,W0 d PF64 z P CBNE BIN10,W8,F62 " P XCOPY FF(BIN6),W0,W1,BIN9,W0 P CBE BIN1,W0,F70 P B F55 P* PF70 P ADD B
0x2a7948…2a7adc Dummy {f00=0x00d7, f01=0x0190, f02=»REE-SPACE RECORDS * " P****************************** PF80 B 6 P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM N P BERR ERROR $ P ADD BIN7,W1 NO. OF USED RECORDS P SUB BIN4,W1 P BZ F99 IF LAST RECORD P* P ADD FRS
0x2a7adc…2a7c70 Dummy {f00=0x00d7, f01=0x0190, f02=»RECORD | P CBE BIN5,W0,F90 P MOVE NOFREE,BIN5 & PF90 @ P B F50 L PF99 Z P RET f P PEND r P* P* PERROR P PERF DSKERR,W3 'I/O-ERROR' P B F99 4 P***********************************************
0x2a7c70…2a7e04 Dummy {f00=0x00d7, f01=0x0190, f02=»YS P MOVE RBUF,=X'00' P XCOPY RBUF,W6,W2,W10,W0 $ P MOVE BIN1,W1 D , P CBNE FTYPE,=D'2',RECJD BRANCH IF SYSFIL Z P* P* USERFILE P* JOB CHAIN P* REC 3 P* WORD 1 'JC' < P* 4
0x2a7e04…2a7f98 Dummy {f00=0x00d7, f01=0x0190, f02=»NLY THIS REC z P B RECWR P* $ P* JOB DEF . P* REC 3 D P* WORD 1 'JD' X @ P* 4 10 NO OF USED BYTES IN THIS RECORD v P* PRECJD P MOVE RECNUM,W3 P MOVE BIN6,=X'4A44' P A
0x2a7f98…2a812c Dummy {f00=0x00d7, f01=0x0190, f02=» 10 NO OF USED BYTES IN THIS RECORD PRECFC 2 P MOVE RECNUM,W4 @ P MOVE BIN6,=X'4643' X P ADD BIN1,W1 t P B RECWR P* P* SYSTEM VARIABLES P* REC 5 P* WORD 1 'SV' > P* 4 10
0x2a812c…2a82c0 Dummy {f00=0x00d7, f01=0x018e, f02=»WR P* P* VALUE SETS P* REC 7 , P* WORD 1 'SV' @ > P* 4 10 NO OF USED BYTES IN THIS RECORD ` PRECTC P MOVE RECNUM,W7 P MOVE BIN6,=X'5443' P ADD BIN1,W1 , P* WRITE THE
0x2a82c0…2a8454 (3, 37) Dummy {f00=0x00d7, f01=0x4072, f02=» P BERR ERROR $ P IB BIN1,RECJD,RECFC,RECSV,RECTC P B F99 @ P* N P* X END b@ n
0x2a8454…2a85e8 Dummy {f00=0x00d7, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2a85e8…2a877c Dummy {f00=0x00d7, f01=0x0190, f02=» @ H IDENT CRESUD TRA 5.0 80-02-29 F1 O1111 UPD 80-02-29/CHST CRESUD H $$$TRAE Z CRESUD l D @ CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSECT/ T:ATTF T:ERAS .
0x2a877c…2a8910 Dummy {f00=0x00d7, f01=0x018e, f02=» a0 g h " l 2 p k B q $ R r b v r w { } J F " D @ L ( ! (_& TL !P !_A!DL !DL KM1XFA R2 RRR_ 1XF_ R0R f
0x2a8910…2a8aa4 Dummy {f00=0x00d7, f01=0x0190, f02=» S J F " D !CMHP HIP R KL1XFA R2 RRR_ >L RJ YjB'!P!0X !% LjB&! jB(( & 1 t 2 0 2 0 2 8 J F " D K bB0&J LjB !!! LjB "> !DL !DL XjB ! ! WjB "
0x2a8aa4…2a8c38 Dummy {f00=0x00d7, f01=0x0190, f02=» $ & FILE " $ 6 & F NO. T $ h & x OF RECORDS: $ & ZZZZX " Y & &
0x2a8c38…2a8dcc Dummy {f00=0x00d7, f01=0x0190, f02=» & " NO. OF SECTORS/RECORD: $ < & L ZZX ^ " X r $ & & & [ ( : & [ USERDEFINEDO
0x2a8dcc…2a8f60 Dummy {f00=0x00d7, f01=0x018e, f02=»NAME: $ & & K 0 & K > SIZE L $ ` & p OF RECORDS:O ~ $ & ZZZZX " W & BLOCKING FACTOR:
0x2a8f60…2a90f4 (3, 38) Opaque[0x194]
0x2a90f4…2a9288 # DirEnt {nam=»REORGS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b00, f03=0x0000}
0x2a90f4…2a9288 IdxSect {
0x2a90f4…2a9288 f00 = 0x00d8 // 0x2a90f4 @0x0
0x2a90f4…2a9288 f01 = 0x0006 // 0x2a90f6 @0x2
0x2a90f4…2a9288 gno = [ // 0x2a90f8 @0x4
0x2a90f4…2a9288 [0x00]: C0x00d8.0x0.0
0x2a90f4…2a9288 [0x01]: C0x00d8.0x1.0
0x2a90f4…2a9288 [0x02]: C0x00d8.0x2.0
0x2a90f4…2a9288 ]
0x2a90f4…2a9288 }
0x2a9288…2a941c Dummy {f00=0x00d8, f01=0x0190, f02=» $ P IDENT REORGS UPD 80-03-20/CHST P UPD 80-03-17/CHST , P UPD 80-03-14/PEEN H P UPD 80-02-01/CHST d & P********************************** & P* * & P* REORGANISATION OF SYSTEMFILE * & P*
0x2a941c…2a95b0 Dummy {f00=0x00d8, f01=0x0190, f02=» P EXT DECLRN P EXT DEPOOL P EXT DECLRA , P EXT DEDISC @ P EXT DERR T P EXT DSKERR f P EXT CLOFIL z P EXT OPCL P EXT GETIND P EXT NOFFRE P EXT DISU P EXT REFSP P* P EXT CHANFC
0x2a95b0…2a9744 Dummy {f00=0x00d8, f01=0x0190, f02=»**************** P* $ P MOVE FVOLNAME(W1),FVOLNAME(W2) " P PERF OPCL,W1 SYSVOL J P BERR ERROR f $ P MOVE FINDEXPO(W2),FINDEXPO(W1) z P MOVE FFSNR(W2),FFSNR(W1) $ P MOVE FILECODE(W2),FILECODE(W1) $ P MOVE FNOOFREC(W2),FNOOFREC(
0x2a9744…2a98d8 Dummy {f00=0x00d8, f01=0x0190, f02=»ILECODE(W3),RBUF,STRG10A,FVOLNAME(W3) ~ P BOK OPENSY02 . POPENSY06 D , P CALL CLOSEF,DISK,FILECODE(W3),SYSBUF,W0 T P CLEAR SWITSY P MOVE DEBINW4,W20 P SUB FCOUNTER(W1),W1 P B ERROR POPENSY02 $ P MOVE FILECODE(W1),FILEC
0x2a98d8…2a9a6c Dummy {f00=0x00d8, f01=0x0190, f02=»,SYSBUF,W5 x $ P XCOPY FRINF(W1),W0,W2,SYSBUF,W1 P MOVE DKBIN1,W1 : P MOVE DKBIN2,W1 R * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A j P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 P PERF REFSP,W2,W1 P BNOK OPENSY06 POPENSY07
0x2a9a6c…2a9c00 Dummy {f00=0x00d8, f01=0x0190, f02=» p P MOVE FRINF(W3),FRINF(W1) " P MOVE F95PROC(W3),F95PROC(W1) * PC05 P P CBE COPY,='Y',C06 P ATTFMT SYSTEM v P SET DEPROMPT P PERF DECLRA P IB DEBINW2,C05,C90 " P CBE ANSW,='N',C09 IF NO COPY P****************
0x2a9c00…2a9d94 (3, 39) Dummy {f00=0x00d8, f01=0x018e, f02=»ERROR P PERF DISKIO,W20,W3 ENTER P BERR ERROR 0 P**************** D P* VALUE-SETS * P**************** t PC09 P MOVE TABLE,=X'5400' P MOVE BIN1,W0 P MOVE BIN2,=W'93' PC12 P MOVE ELMNO,W1 P A
0x2a9d94…2a9f28 Dummy {f00=0x00d8, f01=0x0190, f02=» P PERF DISKIO,W24,W2 GET P BNOK C12 ( P BERR ERROR : P CBE COPY,='Y',C15 N P MOVE BCD3A,BIN1 h P MOVE ANSW,HEX00 P ATTFMT VALUE P SET DEPROMPT P PERF DECLRN P IB DEBINW2,C12,C90 P CBE ANSW,='N',C12
0x2a9f28…2aa0bc Dummy {f00=0x00d8, f01=0x0190, f02=»NK NEXT j P CBE BIN4,W0,C12 P MOVE ELMNO,W0 ( ( P XCOPY ELMNO,W1,W1,RPOOL(PINDTB),W18 > " P ADD ELMNO,W1 NEXT ELEMENT NO. j P PERF DISKIO,W24,W2 P BNOK C12 P BERR ERROR P B C15 PC20 P MOVE JOBNAME,=X'00' P
0x2aa0bc…2aa250 Dummy {f00=0x00d8, f01=0x0190, f02=» P PERF DISKIO,BIN3,W2 GET P BNERR C32 $ P CBE DEBINW4,W9,C60 6 P B ERROR R PC32 b P CBE COPY,=C'Y',C36 n P MOVE ANSW,=X'00' P ATTFMT JOB COPY JOB ? P SET DEPROMPT PC34 P PERF DECLRN P IB DEBINW2,C34,
0x2aa250…2aa3e4 Dummy {f00=0x00d8, f01=0x0190, f02=»ERROR P B C30 P****************** P* COPY FORMATS * 6 P****************** P PC60 j , P PERF DEPOOL,W6,PJOBCUR,PJOBCUR,STRG10A v P MOVE FORMAT,=X'00' PC62 * P PERF DEPOOL,W6,PINDFR,PINDFR,STRG10A P MOVE FRMTPN
0x2aa3e4…2aa578 Dummy {f00=0x00d8, f01=0x0190, f02=»0 ~ P ATTFMT FORMT P DISPLAY 0,W1,W0 P THOME 8 P PERF DERR F P IB DEBINW2,C62,C90 X P CBE ANSW,='N',C62 t ( P PERF DISKIO,W10,W2 GET FORMAT AGAIN P B C63 PC64 P CBE COPY,=C'Y',C68 P MOVE ANSW,=X'00'
0x2aa578…2aa70c Dummy {f00=0x00d8, f01=0x0190, f02=»C62 PC68 , P PERF DISKIO,W13,W3 DELETE BEFORE ENTRY 0 P PERF DISKIO,W9,W3 ENTER - ENTFMT I DEDI02 H P BNERR C62 | P ATTFMT FORMT P DISPLAY 0,W1,W0 P THOME P PERF DERR P IB DEBINW2,C62,C90 P CBE ANSW,='N',C
0x2aa70c…2aa8a0 Dummy {f00=0x00d8, f01=0x0190, f02=»LNAME(W2) z $ P MOVE FILECODE(W1),FILECODE(W2) $ P MOVE FINDEXPO(W1),FINDEXPO(W2) : P MOVE FFSNR(W1),FFSNR(W2) b $ P MOVE FNOOFREC(W1),FNOOFREC(W2) P MOVE FRINF(W1),FRINF(W2) " P MOVE F95PROC(W1),F95PROC(W2) P MOVE FCOUNTER(W1),W
0x2aa8a0…2aaa34 (3, 40) Dummy {f00=0x00d8, f01=0x0190, f02=»AME(W3) x $ P MOVE FILECODE(W1),FILECODE(W3) $ P MOVE FINDEXPO(W1),FINDEXPO(W3) 8 P MOVE FFSNR(W1),FFSNR(W3) ` $ P MOVE FNOOFREC(W1),FNOOFREC(W3) P MOVE FRINF(W1),FRINF(W3) " P MOVE F95PROC(W1),F95PROC(W3) P MOVE FCOUNTER(W1),W1
0x2aaa34…2aabc8 Dummy {f00=0x00d8, f01=0x0190, f02=»********** v ( P* CHANGE VOLUME-NAME TO 'SYSVOL' * ( P************************************ > PC98 j P CALL CHANFC,DISK,FCOD2 v " P CALL CHVOL,DISK,SYSBUF,SYSVOL PC99 P RET P PEND P EJECT PDISKIO PROC FC,INDEX
0x2aabc8…2aad5c Dummy {f00=0x00d8, f01=0x0190, f02=»EC(W1),FNOOFREC(INDEX) P MOVE FRINF(W1),FRINF(INDEX) $ P MOVE F95PROC(W1),F95PROC(INDEX) B P PERF DEDISC,FC j P RET P PEND P* P* PERROR P CBNE DEBINW4,W10,ERR90 . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL'
0x2aad5c…2aaef0 Dummy {f00=0x00d8, f01=0x018e, f02=»COPY JOB:' P FINP 11 P FCOPY JOBNAME " P FLINK FANSW 8 P FMEND L P* Z PFORMT FRMT d P FSL v P FCOPY =C'COPY FORMAT:' P FINP 14 P FCOPY FORMAT P FLINK FANSW P FMEND P* PFANSW FRMT P F
0x2aaef0…2ab084 Dummy {f00=0x00d8, f01=0x4156, f02=» z P FCOPY HEX00 P FMEND P* * PSYSTEM FRMT 4 P FSL H $ P FTEXT 'COPY SYSTEMVARIABLES ?' T P FLINK FANSW | P FMEND P* PVALUE FRMT P FSL P FTEXT 'COPY VALUE-SET T' P FINP 17 P FMEL '99',BCD3A
0x2ab084…2ab218 Dummy {f00=0x00d8, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2ab218…2ab3ac Dummy {f00=0x00d8, f01=0x4032, f02=» =T P @ .70136940500 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2ab3ac…2ab540 Dummy {f00=0x00d8, f01=0x018e, f02=» > @ IDENT T:DUPL P,PRR=5.0,791206,870136940500 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x2ab540…2ab6d4 (3, 41) Opaque[0x194]
0x2ab6d4…2ab868 # DirEnt {nam=»CRESUD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x2ab6d4…2ab868 IdxSect {
0x2ab6d4…2ab868 f00 = 0x00d8 // 0x2ab6d4 @0x0
0x2ab6d4…2ab868 f01 = 0x0006 // 0x2ab6d6 @0x2
0x2ab6d4…2ab868 gno = [ // 0x2ab6d8 @0x4
0x2ab6d4…2ab868 [0x00]: C0x00d8.0x3.0
0x2ab6d4…2ab868 [0x01]: C0x00d9.0x0.0
0x2ab6d4…2ab868 [0x02]: C0x00d9.0x1.0
0x2ab6d4…2ab868 ]
0x2ab6d4…2ab868 }
0x2ab868…2ab9fc Dummy {f00=0x00d8, f01=0x0190, f02=» $ P IDENT CRESUD UPD 80-03-19/CHST P****************** , P* * F P* CREATE FILES * ` P* * z P****************** DDUM DDINIT PDIV P ENTRY CRESUD P* P EXT DECLRA P EXT
0x2ab9fc…2abb90 Dummy {f00=0x00d8, f01=0x0190, f02=»ROC ( P************************************ ( P* NO. OF FREE SECTORS ON VOLUME * 8 ( P************************************ d P MOVE FRESEC,W0 P* P MOVE BIN1,W0 SECTOR NO. 4 P CALL RDSECT,DISK,BIN1,SYSBUF READ VOLUME-LABEL *
0x2abb90…2abd24 Dummy {f00=0x00d8, f01=0x0190, f02=»RDSECT,DISK,BIN1,SYSBUF READ ONESECTOR P MOVE BIN6,W1 . P MOVE BIN5,W2 D P MOVE BIN3,W0 Z PC40 p < P XCOPY BIN7,W0,W2,SYSBUF,BIN3 FIRST WORD IN NO OF FS REC | * P CBNE BIN7,W0,C80 OWERFLOW IF NOT ZERO " P XCOPY BIN7,W0,W2,SYSBUF,BIN5
0x2abd24…2abeb8 Dummy {f00=0x00d8, f01=0x0190, f02=»DD BIN3,W8 P B C40 PC50 P SUB DKBIN1,W1 , P BZ C90 B P ADD BIN1,W1 R P B C30 f PC80 t 8 P MOVE FRESEC,=W'32767' MAX NO OF FREE SPACE REC ALL PC90 $ P CBE FTYPE,=D'2',F40 IF USERFILE ( P CBE FTYPE,=D'3',F30 IF
0x2abeb8…2ac04c Dummy {f00=0x00d8, f01=0x0190, f02=»YS PF10 P SET DEPROMPT PF15 , P PERF DECLRA 8 P IB DEBINW2,F15,ERR99,F60 L P B F10 n P********************** | P* USERDEFINED FILE * P********************** PF30 P ATTFMT FUDEF P B F10 P E
0x2ac04c…2ac1e0 Dummy {f00=0x00d8, f01=0x0190, f02=»W1),SYSBUF,SYSFIL,VOLNAM v P BOK F50 SYSFILE EXISTS " P* SYSFIL MUST EXIST ON SYSVOL @ P CMP VOLNAM,SYSVOL f P BE ERR9 PF50 P PERF CLOFIL P MOVE FILNAM,USEFIL P ATTFMT FUSE P SET DEPROMPT PF55 P PERF
0x2ac1e0…2ac374 (3, 42) Dummy {f00=0x00d9, f01=0x0190, f02=»ME-NAME * P* TO:X'171717171717' * P************************* 6 P MOVE USELEN,=W'255' X P PERF CHVNAM,COPNAM t P MOVE BIN3,NOREC . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE CODE P ERASE 0,W1,W5 P MOVE STR1A,=C'S' &
0x2ac374…2ac508 Dummy {f00=0x00d9, f01=0x0190, f02=» P MOVE BIN1,=W'49' " P XCOPY PBLOCK,BIN1,W1,W1,W1 BF P MOVE BIN2,=W'50' D 2 P XCOPY PBLOCK,BIN2,W2,USELEN,W0 RECORD LENGTH ^ $ P CBE FTYPE,=D'2',F70 IF USERFILE $ P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 & P CBE FTYPE,=D'1',F80 IF SYSTEMFILE
0x2ac508…2ac69c Dummy {f00=0x00d9, f01=0x0190, f02=» XCOPY PBLOCK,BIN2,W2,BIN4,W0 RECORD LENGTH P B F80 4 P* B PF70 L P MOVE BIN1,BLFACT X P MUL BIN3,BIN1 USERFILE r P EJECT PF80 P MOVE BIN1,=W'56' S-FILE 0 P XCOPY PBLOCK,BIN1,W2,BIN3,W0 NO. OF RECORDS P MOVE BI
0x2ac69c…2ac830 Dummy {f00=0x00d9, f01=0x0190, f02=»BLOCK,BPOOL(W12),BPOOL(W1),RETCOD P* * P* 4 PF99 > P RET J P PEND V P* d P* n PERR9 x , P PERF DSKERR,W9 'SYSTEMFILE NOT CREATED' PERR99 P MOVE DEBINW4,W99 IND. ERROR P B F99 P EJECT P*
0x2ac830…2ac9c4 Dummy {f00=0x00d9, f01=0x0190, f02=».' P FTAB 5 P FCOPY =C'OF RECORDS:' > P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS 8 P FMEL 'ZZZZX',NOREC z P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND P* PFUSE FRMT USER-FILE P F
0x2ac9c4…2acb58 Dummy {f00=0x00d9, f01=0x0190, f02=»MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=12 P FMEL 'ZZX',BLFACT , P FLINK FNOREC F P FNL P FKI 1,MINL=0,MAXL=0 h P FCOPY HEX00 P FMEND P* PFUDEF FRMT USERDEFINED-FILE P FSL P FCOPY =C'USERDEFINED' P FTAB 13
0x2acb58…2accec Dummy {f00=0x00d9, f01=0x0190, f02=»,NEOI,APPL=6 r P FCOPY FILNAM P FNL * P FCOPY =C'SIZE' 6 P FTAB 6 N P FCOPY =C'OF RECORDS:' ^ 0 P FKI 17,MINL=1,MAXL=4,ME,NEOI,REWRT,APPL=11 | P FMEL 'ZZZZX',RSIZE P FNL P FCOPY =C'BLOCKING FACTOR:' 0 P FKI 17,MINL
0x2accec…2ace80 Dummy {f00=0x00d9, f01=0x4118, f02=» HEX00 P FMEND P* PFNOREC FRMT & P FNL : P FCOPY =C'NO.' F P FTAB 5 P FCOPY =C'OF RECORDS:' l . P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 & P FMEL 'ZZZZX',NOREC NO. OF RECORDS P FMEND P* P*
0x2ace80…2ad014 (3, 43) Dummy {f00=0x00d9, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2ad014…2ad1a8 Dummy {f00=0x00d9, f01=0x0002, f02=»
0x2ad1a8…2ad33c Dummy {f00=0x00d9, f01=0x000c, f02=» HEND =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2ad33c…2ad4d0 Dummy {f00=0x00d9, f01=0x2008, f02=» =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2ad4d0…2ad664 Dummy {f00=0x00d9, f01=0x2008, f02=» OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 2 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED f HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2ad664…2ad7f8 Dummy {f00=0x00d9, f01=0x0190, f02=» : ( @
0x2ad7f8…2ad98c Dummy {f00=0x00d9, f01=0x0190, f02=» 2 B x X @
0x2ad98c…2adb20 Dummy {f00=0x00d9, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x2adb20…2adcb4 (3, 44) Opaque[0x194]
0x2adcb4…2ade48 # DirEnt {nam=»DSKERR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b30, f03=0x0000}
0x2adcb4…2ade48 IdxSect {
0x2adcb4…2ade48 f00 = 0x00d9 // 0x2adcb4 @0x0
0x2adcb4…2ade48 f01 = 0x0008 // 0x2adcb6 @0x2
0x2adcb4…2ade48 gno = [ // 0x2adcb8 @0x4
0x2adcb4…2ade48 [0x00]: C0x00d9.0x2.0
0x2adcb4…2ade48 [0x01]: C0x00d9.0x3.0
0x2adcb4…2ade48 [0x02]: C0x00da.0x0.0
0x2adcb4…2ade48 [0x03]: C0x00da.0x1.0
0x2adcb4…2ade48 ]
0x2adcb4…2ade48 }
0x2ade48…2adfdc Dummy {f00=0x00d9, f01=0x0190, f02=» $ P IDENT DSKERR UPD 80-03-24/CHST P UPD 80-03-19/CHST , P*************************** H P* * l P* ERROR-MESSAGE ROUTINE * P* APPL-ROUTINES * P* * P************
0x2adfdc…2ae170 Dummy {f00=0x00d9, f01=0x0190, f02=»L P EXT GETVOL P EXT CHANFC P* 2 PDSKERR PROC ERRCODE < P MOVE DEBINW4,ERRCODE X P DISPLAY 0,W1,W0 v P PERF DERR P PERF CLOFIL P RET P PEND P EJECT PAPP PROC P IB DEBINW3 APPL-VALUE C
0x2ae170…2ae304 Dummy {f00=0x00d9, f01=0x0190, f02=»DEFINED ERROR' | P B ANOK P**************** & P* APPL-ERRORS > P**************** T PA3E l P MOVE DEBINW4,W3 'I/O-ERROR' x P B ANOK ( PA6E MOVE DEBINW4,W6 'ILLEGAL VALUE' P B ANOK PA11E 0 P MOVE DEBINW4,W11 'V
0x2ae304…2ae498 Dummy {f00=0x00d9, f01=0x0190, f02=» z P B AERR P EJECT PA1 & P*************** 0 P* YES OR NO * H P*************** ` " P XCOPY STR1A,W0,W1,DEINPUT,W0 x P CBE STR1A,=C'Y',AA11 P CBE STR1A,=C'N',AA11 P B A6E PAA11 P MOVE DEBINW2,W17 EN
0x2ae498…2ae62c Dummy {f00=0x00d9, f01=0x0190, f02=»BE STR1A,=C'2',AOK USERFILE * P CBE STR1A,=C'3',AOK USERDEFINED-FILE $ P B A6E R PA21 ` ( P CBE PRNUM,=D'3',AOK IF DELETE FILE l P CBE VOLNAM,SYSVOL,AOK ( P B A11E 'VOL-NAME MUST BE "SYSVOL"' P EJECT $ P************************
0x2ae62c…2ae7c0 Dummy {f00=0x00d9, f01=0x0190, f02=» BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD P MOVE BIN1,BCD13A 6 P CBE BIN1,W0,A32 P P CBL BIN1,W20,A6E h PA32 P MOVE BIN2,FRESEC P CBE BIN1,W0,A34 P CBG BIN1,BIN2,A6E P B AOK PA34 P MOVE NOREC,BIN2
0x2ae7c0…2ae954 (3, 45) Dummy {f00=0x00d9, f01=0x018e, f02=»RDS - USERFILE + USERDEFINED FILE * 6 P************************************************** , PA4 f P CBNE FTYPE,=D'3',A41 p P* USERDEFINED FILE P* RSIZE = SIZE OF RECORDS P* BLFACT = BLOCKING FACTOR P* NOREC = NO. OF RECORDS
0x2ae954…2aeae8 Dummy {f00=0x00d9, f01=0x0190, f02=» P MUL BIN1,BIN2 P MOVE BIN3,W0 P* 0 PA40 : P* F P ADD BIN3,W1 P P SUB BIN1,SECLEN d P BP A40 | P* 2 P* BIN3 = NO. OF RECORDS NEADED FOR EACH BLOCK P* P MOVE BIN1,FRESEC P DIV BIN1,BIN3 P*
0x2aeae8…2aec7c Dummy {f00=0x00d9, f01=0x018e, f02=»* OVERFLOW... P MOVE BIN2,=W'32767' P* 2 . P* BIN2 = MAX NO. OF RECORDS FOR SPEC FILE < P* n P B A411 x PA41 P MOVE BIN2,FRESEC P MOVE BIN3,BLFACT P DIV BIN2,BIN3 USERFILE PA411 P MOVE BCD13A,DEINPUT
0x2aec7c…2aee10 Dummy {f00=0x00d9, f01=0x0190, f02=» ~ P MOVE DEINPUT,NOREC P DISPLAY 1,W3,W3 USERFILE $ P B AOK F PA45 T P CBL BIN1,W20,A6E ` P CBG BIN1,BIN2,A6E z P B AOK P EJECT P***************** P* CREATE FILE P* UNIT NO. 0-9 P****************
0x2aee10…2aefa4 Dummy {f00=0x00d9, f01=0x0190, f02=»CHANFC,DISK,FCOD CHANGE FILE-CODE : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME * P CMP RETCOD,W0 h P BNE A3E ~ P DISPLAY 2,W1,W1 VOL-NAME P B AOK P EJECT P* " P* FILE NAME MAX 8 CHAR. & P* LEADI
0x2aefa4…2af138 Dummy {f00=0x00d9, f01=0x0190, f02=» P MOVE STR15A,=X'20' SPACE ( P INSRT DEINPUT,DEBINW1,W8,STR15A,W0 & PA64 R P MOVE DEBIN4,W0 ^ * P MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 v P BNOK AOK NO LEADING SPACES 0 P DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES P B A64
0x2af138…2af2cc Dummy {f00=0x00d9, f01=0x0190, f02=» p $ P MOVE BCD2A,DEINPUT PROGRAM NO. P MOVE BIN1,BCD2A 0 0 P IB BIN1,AOK,AOK,AOK,AOK,A6E,A6E,AOK,AOK,A6E H P B A6E | P EJECT P******************* P* CREATE VOLUME * P* UNIT NO. 0-9 * P******************* P
0x2af2cc…2af460 Dummy {f00=0x00d9, f01=0x0190, f02=»,VOLNAM,RETCOD GET VOLUME-NAME x P ERASE 1,W2,W2 & P CBNE RETCOD,W0,A93 < P DISPLAY 2,W1,W1 FINP-FIELD X P B AOK | P EJECT P*************************** P* COPY DISK OR FILE : * P* INPUT UNIT NO. * P****
0x2af460…2af5f4 (3, 46) Dummy {f00=0x00da, f01=0x0190, f02=» MOVE FCOD1,FCOD . P XCOPY PBLOCK,W6,W1,FCOD,W1 FC INPUT DISK P CALL CHANFC,DISK,FCOD J : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME h P CBNE RETCOD,W0,A93 P DISPLAY 2,W1,W1 FINP-FIELD PA91 ( P CBE PRNUM,=D'5',A92 I
0x2af5f4…2af788 Dummy {f00=0x00da, f01=0x0190, f02=» PA92 P B AOK PA93 P B A3E * PA94 8 P B A11E D P EJECT T P*************************** b P* COPY DISK OR FILE : * P* OUTPUT UNIT NO. * P*************************** PA10 P MOVE STR1
0x2af788…2af91c Dummy {f00=0x00da, f01=0x0190, f02=» P ERASE 1,W4,W4 P MOVE FCOD2,FCOD . P XCOPY PBLOCK,W7,W1,FCOD,W1 FC OUTPUT DISK 6 P CALL CHANFC,DISK,FCOD h : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME P CBNE RETCOD,W0,A93 P DISPLAY 2,W2,W2 FINP-FIELD P B A
0x2af91c…2afab0 Dummy {f00=0x00da, f01=0x0190, f02=» p $ P******************************** PA11 0 P MOVE RSIZE,DEINPUT < P MOVE BIN1,RSIZE X P CBL BIN1,W1,A111 p P CBG BIN1,=W'2047',A111 2 P* SIZE OF RECORDS IS IN THE INTERVAL 1-2047 P B AOK PA111 P B A6E P
0x2afab0…2afc44 Dummy {f00=0x00da, f01=0x0190, f02=»** x PA12 P MOVE BLFACT,DEINPUT P MOVE BIN1,BLFACT 2 P CBE BIN1,W0,A111 L P B AOK f P EJECT t P************************ P* DISC TYPE * P************************ " P* INPUT: DISC TYPE, 1-9 & P
0x2afc44…2afdd8 Dummy {f00=0x00da, f01=0x0190, f02=» DEBIN2 ` 6 P* 1 PTS-6875,2.5MB,PACKED 1 3 6 P* 2 PTS-6875,2.5MB,UNPACKED 1 2 J 6 P* 3 PTS-6876,5MB,PACKED 2 3 6 P* 4 PTS-6876,5MB,UNPACKED 2 2 6 P* 5 PTS-88
0x2afdd8…2aff6c Dummy {f00=0x00da, f01=0x0190, f02=»S-6879,0.25MB,FLEXIBLE DISC 8 - 6 P* 9 PTS- ,1MB,FLEXIBLE DISC 9 - . P* h PA13 r P MOVE ACK(W2),DEINPUT ~ P MOVE DEBIN3,ACK(W2) & P IB DEBIN3,A131,A132,A133,A134 C P A135,A135,A6E,AOK,AOK P B A6E
0x2aff6c…2b0100 Dummy {f00=0x00da, f01=0x018e, f02=» v P MOVE DEBIN2,W2 UNPACKED P B AOK ( PA133 6 P MOVE DEBIN3,W2 DISC TYPE B P MOVE DEBIN2,W3 PACKED d P B AOK PA134 P MOVE DEBIN3,W2 DISC TYPE P MOVE DEBIN2,W2 UNPACKED P B AOK PA135 $ P SUB DEBIN3,W2 D
0x2b0100…2b0294 (3, 47) Dummy {f00=0x00da, f01=0x0190, f02=» P B A62 P EJECT " P***************************** $ $ P* BLOCKING FACTOR 1-255 J " P***************************** r PA15 P MOVE BLFACT,DEINPUT P MOVE BIN1,BLFACT P CBL BIN1,W1,A111 P CBG BIN1,=W'255',A1
0x2b0294…2b0428 Dummy {f00=0x00da, f01=0x018e, f02=»8',A111 $ P* SIZE OF RECORDS 1-2047 $ P* BLOCKING FACTOR 1-255 8 < P* (SIZE OF RECORDS + 1) * BLOCKING FACTOR 1-2048 ` P B AOK P EJECT * P************************************** 0 P* THE CONECTION BETWEEN UN
0x2b0428…2b05bc Dummy {f00=0x00da, f01=0x409c, f02=» * P************************************** P* 2 PAUNIT PROC < P XCOPY FCOD,W1,W1,DUNIT,FCOD N P RET r P PEND ~ END @ P B AOK P EJECT * P************************************** 0 P* THE CONECTION BETWEEN UN
0x2b05bc…2b0750 Dummy {f00=0x00da, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2b0750…2b08e4 Dummy {f00=0x00da, f01=0x018e, f02=» X P FNL P FILLR ' ',20 , P FTEXT '- 2 (PTS-6875) 2.5 MB UNPACKED' * P FNL Z P FILLR ' ',20 f * P FTEXT '- 3 (PTS-6876) 5 MB PACKED' | P FNL P FILLR ' ',20 , P FTEXT '- 4 (PTS-6876) 5 MB UNPACKED' P FNL P
0x2b08e4…2b0a78 Dummy {f00=0x00da, f01=0x018e, f02=» n P FNL P FILLR ' ',20 P FTEXT '- 7 VACANT' * P FNL F P FILLR ' ',20 R 2 P FTEXT '- 8 (PTS-6879) 0.25MB FLEXIBLE DISC' h P FNL P FILLR ' ',20 2 P FTEXT '- 9 (PTS- ) 1 MB FLEXIBLE DISC' P FMEND P*
0x2b0a78…2b0c0c Dummy {f00=0x00da, f01=0x0190, f02=» P FCOPY =C'COPY USERFIL' P FLINK FIO $ P FMEND 6 P* D PCOPYS FRMT N P FSL ` " P FCOPY =C'WHOLE FILE ? Y/N:' l . P FKI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FMEND P* PFCOP
0x2b0c0c…2b0da0 Dummy {f00=0x00da, f01=0x0190, f02=» FCOPY =C'INPUT' P FTAB 7 P FCOPY =C'UNIT : U' ( ( P FKI 15,MINL=1,MAXL=1,ME,NEOI,APPL=9 D P FCOPY UNIT p P FTAB 20 P FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL P FCOPY =C'OUTPUT' P FTAB 8
0x2b0da0…2b0f34 (3, 48) Opaque[0x194]
0x2b0f34…2b10c8 # DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b50, f03=0x0000}
0x2b0f34…2b10c8 IdxSect {
0x2b0f34…2b10c8 f00 = 0x00da // 0x2b0f34 @0x0
0x2b0f34…2b10c8 f01 = 0x000e // 0x2b0f36 @0x2
0x2b0f34…2b10c8 gno = [ // 0x2b0f38 @0x4
0x2b0f34…2b10c8 [0x00]: C0x00da.0x2.0
0x2b0f34…2b10c8 [0x01]: C0x00da.0x3.0
0x2b0f34…2b10c8 [0x02]: C0x00db.0x0.0
0x2b0f34…2b10c8 [0x03]: C0x00db.0x1.0
0x2b0f34…2b10c8 [0x04]: C0x00db.0x2.0
0x2b0f34…2b10c8 [0x05]: C0x00db.0x3.0
0x2b0f34…2b10c8 [0x06]: C0x00dc.0x0.0
0x2b0f34…2b10c8 ]
0x2b0f34…2b10c8 }
0x2b10c8…2b125c Dummy {f00=0x00da, f01=0x0190, f02=» & P IDENT ASSRUT UPD 80-03-20/CHST P UPD 80-02-22/CHST . P UPD 80-01-16/CHST J P UPD 79-11-08/PEEN f P UPD 79-01-30/PEEN 2 P* ASSEMBLER ROUTINES USED BY PTS DE-UTILITIES P ENTRY CHANFC ENTRY CREVOL P
0x2b125c…2b13f0 Dummy {f00=0x00da, f01=0x0190, f02=» SURVEY P ENTRY UPDBOL P ENTRY UPDBIN & P ENTRY SETB < P ENTRY TESTB P P ENTRY CLEARB d P ENTRY MSKOUT z P ENTRY RDSECT P ENTRY SETOCC P ENTRY SETFRE P ENTRY VOLNAM P ENTRY ATTWB P ENTRY CMPIN
0x2b13f0…2b1584 Dummy {f00=0x00da, f01=0x0190, f02=» P* EXTRN I:EVA0 P EXTRN CRVOL $ P EXTRN CRFILE 8 P EXTRN DLFILE N 0 P* COPY SYSVOL TO SYSVOL NOT IN THIS REL. d P* EXTRN COPVOL P EXTRN PRVTOC P* P EXTRN T:FDSP EXTRN I:RT1 P EXTRN T:LOFS
0x2b1584…2b1718 Dummy {f00=0x00da, f01=0x018e, f02=»L CHANFC,DATASET,FILECODE P* " PCHANFC EQU * , " P CF A14,T:FDSP GET ECB-ADDRESS @ & P CF A14,I:EVA0 GET ADDRESS TO BIN. f P LC A3,1,A9 GET FILE CODE & P SC A3,1,A8 STORE FILE CODE IN ECB P RF RET P EJECT P**************
0x2b1718…2b18ac Dummy {f00=0x00da, f01=0x0190, f02=» P* 0 P* PERFORME A CALL TO ONE OF THE ROUTINES 0 P* CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC B . P* A1 ADDRESS TO THE WANTED ROUTINE v P* PUTINF EQU * P ST A1,RUTIN " CF A14,I:EVA0 A9 = :A PBLOCK LDR A6,
0x2b18ac…2b1a40 Dummy {f00=0x00da, f01=0x0190, f02=» ST A9,2,A6 STORE BUF2 ADRESS STR A12,A14 SAVE A12 & ST A13,-2,A14 SAVE A13 D SUKL A14,4 d LDR A12,A6 x P CF A14,CRVOL PRUTIN EQU *-2 ADKL A14,4 LD A13,-2,A14 LDR* A12,A14 LDR A6,A1 SAVE
0x2b1a40…2b1bd4 (3, 49) Dummy {f00=0x00da, f01=0x0190, f02=»************** P* CREATE FILE P**************** , PCREFIL EQU * D P LDKL A1,CRFILE X P CALL UTINF p P EJECT P**************** P* DELETE FILE P****************** PDELFIL EQU * P LDKL A1,DLFILE P C
0x2b1bd4…2b1d68 Dummy {f00=0x00da, f01=0x0190, f02=»Y DISK TO DISK P********************** PCOPYDD EQU * 4 P* LDKL A1,COPVOL H P* CALL UTINF ` P ABL I:RT1 t P EJECT * P* GET VOLUME NAME TO A STRING VARIABEL 4 P* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD ( P* RET
0x2b1d68…2b1efc Dummy {f00=0x00da, f01=0x0190, f02=»TO A9 p ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN P ANKL A9,/FFFE : , P ST A9,2,A8 STORE BUFFER ADDRESS IN DSET P " P LDK A6,6 REQUESTED LENGTH =6 4 P ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS & P CALL I:EVA0 GET ADDRESS TO VOLNAM P
0x2b1efc…2b2090 Dummy {f00=0x00da, f01=0x0190, f02=»1 P LD A1,8,A8 LOAD RETURN CODE P RF(NZ) ERROR . : P* STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) D " P* IN CALLERS BUFFER VOLNAM $ P LD A1,2,A8 LOAD BUFFER ADDRESS ( P LDK A2,6 NO OF BYTES IN VOLUME NAME PLOOP EQU *
0x2b2090…2b2224 Dummy {f00=0x00da, f01=0x0190, f02=» A6,0 PVIN CF A14,I:EVA0 P STR A6,A9 STORE RETURN-CODE ( PRET ABL I:RT1 L PERROR LDK A6,1 b P RB VIN x P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB < 8*
0x2b2224…2b23b8 Dummy {f00=0x00da, f01=0x0190, f02=» GET NUMBER OF FRE RECORDS RF(Z) NOK IF NONE FREE " GET100 EQU * B CWR A7,A8 V RF(E) NOK END OF RECORD h & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE A
0x2b23b8…2b254c Dummy {f00=0x00da, f01=0x0190, f02=»IT IN BYTE v LDR A4,A4 SEA100 RF(N) FOUND IF FOUND $ ADK A5,1 INCREMENT COUNTER H SLL A4,1 l RB SEA100 ~ FOUND SLL A4,1 CLEAR BIT , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER FOU100 SRL A4,1 SUK A5,1 DECREM
0x2b254c…2b26e0 Dummy {f00=0x00da, f01=0x0190, f02=» LC A7,18,A9 GET START RECORD NUMBER ( $ ADR A6,A7 GET CURRENT RECORD NUMBER , LDKL A1,-1 X , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. l NOK EQU * CALL I:EVA0 & "NOK100 STR A6,A9 STORE FOUND INDEX P RB RET P EJECT
0x2b26e0…2b2874 (3, 50) Dummy {f00=0x00db, f01=0x0190, f02=»,15,A9 ECR A8,A8 $ LC A8,16,A9 GET OCCUPIED BYTES ADR A8,A7 GET END ADDRESS H P SUKL A8,10 j " LDR A2,A7 SAVE START ADDRESS ~ $ ADK A7,2 ADDRESS TO FIRST BITS LDK A6,0 RTN A14 P EJECT P************
0x2b2874…2b2a08 Dummy {f00=0x00db, f01=0x0190, f02=»CTOR NO. = 0 P CM 12,A8 PCHV100 LDKL A1,256 & & P ST A1,4,A8 STORE REQUESTED LENGTH @ P CALL I:EVA0 j $ P ST A9,2,A8 STORE BUFFER ADRESS ~ P LDK A7,/B7 LOCK P LKM P DATA 1 P LD A6,8,A8 GET RETURN CODE P LDK A7,/8
0x2b2a08…2b2b9c Dummy {f00=0x00db, f01=0x0190, f02=»A9 READ CHARACTER P SCR A3,A1 STORE CHARACTER P ADK A1,1 < P ADKL A9,1 N P SUK A2,1 ` " P RB(NZ) CHV200 IF NOT FINISHED r P LDK A7,/85 WRITE BASIC P LKM P DATA 1 P LDK A7,/80 P LKM P DATA 1 P LDR
0x2b2b9c…2b2d30 Dummy {f00=0x00db, f01=0x0190, f02=»:RT1 P EJECT P********* P* PVC * , P********* > PSURVEY EQU * P P LDKL A1,PRVTOC d P CALL UTINF | P EJECT P* 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING P* 16 BOOLEAN ITEMS P* PUPDB
0x2b2d30…2b2ec4 Dummy {f00=0x00db, f01=0x0190, f02=» I:RT1 P* 2 P* MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN P* N PUPDBIN EQU * X ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM l P LD A1,-2,A9 GET BOOLEANS P STR A1,A9 STORE IN BIN ABL I:RT1 P EJECT P* 0 P*
0x2b2ec4…2b3058 Dummy {f00=0x00db, f01=0x018e, f02=»ABIT EQU * SET050 SUK A3,8 RF(N) SET100 * ADK A7,1 @ CWR A7,A8 R & " RB(NE) SET050 CONTINUE IN NOT EOR d * % LDK A6,0 INDICATE INCORRECT REC. NO. P RTN A14 * PLACED IN CURRENT BYTE SET100 EQU * ADK A3,
0x2b3058…2b31ec Dummy {f00=0x00db, f01=0x018e, f02=» SLC A4,1 SUK A1,1 RB(NZ) SET300 , TEST EQU * B P RTN A14 T P EJECT d P* r . P* SET WANTED BIT IN A STRING OR BIN ITEM | & P* SYNTAX: CALL SETB,ITEM,INDEX P* PSETB EQU * P SUR A10,A10 INDICAT
0x2b31ec…2b3380 Dummy {f00=0x00db, f01=0x0190, f02=» t & P CALL I:EVA0 GET ADDRESS TO INDEX P LDR* A3,A9 GET INDEX 2 " P CALL SEABIT SEARCH WANTED BIT P P LDR A10,A10 v P RF(N) SETB30 IF TEST BIT P RF(Z) SETB20 JUMP IF SETBIT P* CLEAR BIT P ANKL A4,/7FFF CLEAR BIT P RF
0x2b3380…2b3514 (3, 51) Dummy {f00=0x00db, f01=0x0190, f02=»QU * P LDK A1,0 INDICATE FALSE P LDR A4,A4 TEST BIT , P RF(NN) SETB40 IF FALSE H P LDK A1,1 INDICATE TRUE h PSETB40 EQU * P LD A4,2,A13 GET STACK BASE " P SC A1,-2,A4 STORE CR ON STACK ABL I:RT1 P* * P* CLE
0x2b3514…2b36a8 Dummy {f00=0x00db, f01=0x018e, f02=»CLEAR BIT' z P RB SETB10 CONTINUE P* . * P* TEST BIT IN STRING OR BIN VARIABLE 8 ( P* SYNTAX: CALL TESTB,ITEM,INDEX f & P* OUTPUT: CR = 0 (BIT IS FALSE) & P* CR = 1 (BIT IS TRUE) P* PTESTB EQU * $ P LDK
0x2b36a8…2b383c Dummy {f00=0x00db, f01=0x0190, f02=» & P* SYNTAX: CALL MSKOUT,MASK,BIN 6 P* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN . 8 P* THE RESULT AFTER THE LOGICAL AND OPERATION h 0 P* BIN= BIN HOLDING THE VALUE TO BE MASKED P* PMSKOUT EQU * P CALL I:EVA0 ADDRE
0x2b383c…2b39d0 Dummy {f00=0x00db, f01=0x0190, f02=»WITH MASK AND x P STORE RESULT IN MASK ABL I:RT1 6 P* H P EJECT R P********************** ` P* READ DISK SECTOR * ~ P********************** PRDSECT EQU * P CALL T:FDSP P CALL I:EVA0 P LDR* A1,A9
0x2b39d0…2b3b64 Dummy {f00=0x00db, f01=0x0190, f02=»EVA0 $ P ST A9,2,A8 STORE BUFFER ADRESS P LDK A7,/B7 LOCK 4 P LKM L P DATA 1 X P LDK A7,/81 BASIC READ h P LKM P DATA 1 P LDK A7,/B8 UNLOCK P LKM P DATA 1 PRET1 ABL I:RT1 EJECT 4 1* SETFRE: I
0x2b3b64…2b3cf8 Dummy {f00=0x00db, f01=0x0190, f02=»USY n 6 1* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB @ <* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) F * SETFRE EQU * SUR A10,A10 INDICATE SETFRE SET EQU * CALL GETPAR LDR A6,A9 COPY ADDRES
0x2b3cf8…2b3e8c Dummy {f00=0x00db, f01=0x0190, f02=»1,A1 ( $ LC A1,18,A6 GET START RECORD NUMBER & " SUR A3,A1 GET RELATIVE RECORD NO. 8 " P CALL SEABIT SEARCH WANTED BIT b P LDR A6,A6 P RF(Z) NOK150 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC " * SETFRE: TEST IF ALRE
0x2b3e8c…2b4020 Dummy {f00=0x00db, f01=0x0190, f02=»REMENT z . *TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER TES200 SUK A3,1 @ RF(N) TES300 BYTE RESTORED X SRC A4,1 | RB TES200 * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE " SCR A4,A7 STORE UPDATED BYTE P RB RET1 *
0x2b4020…2b41b4 (3, 52) Dummy {f00=0x00db, f01=0x0190, f02=»A1 = -1; INDICATE DECREMENT $ ANKL A4,/7FFF INDICATE OCCUPIED $ RB TES100 L PNOK150 EQU * ^ P STR A6,A9 r P RB RET1 EJECT 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT REC
0x2b41b4…2b4348 Dummy {f00=0x00db, f01=0x0190, f02=»PUT IF ` : 5* WRONG NUMBER) SETOCC EQU * L LDR A10,A14 INDICATE SETOCC ` RB SET P* & P* VOLNAM - SUBROUTINE TO CRVOL * P* PVOLNAM EQU * P LDK A1,0 P RTN A14 P
0x2b4348…2b44dc Dummy {f00=0x00db, f01=0x0190, f02=»WB,STRG,DISPL,BLOCK x , P* STRG= STRING ITEM TO BE WORKBLOCK 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE L P* 'STRG'-START 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P* ATTWB EQU * P LDKL A1
0x2b44dc…2b4670 Dummy {f00=0x00db, f01=0x018e, f02=»EMENT x P ADR* A7,A9 ! & ! CALL I:EVA0 ADDRESS TO WB NUMBER ! " LDR* A1,A9 ! L SLL A1,2 TIMES 4 ! ` ADR A1,A13 ADDRESS TO DB ! z ( P ADR A1,A10 GET ADDRESS TO WB OR DB ! PATT100 EQU * ! & P STR A7,A1 STORE NEW WB/DB-ADDRESS ! P R
0x2b4670…2b4804 Dummy {f00=0x00db, f01=0x0190, f02=» 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE " ( P* THE VERY FIRST DB:POINTER " > @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED " j > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN " P* " PSAVE EQU * "
0x2b4804…2b4998 Dummy {f00=0x00db, f01=0x0190, f02=» A1,A7 " P ADK A2,1 # P ADK A7,1 # P SUK A6,1 # 2 P RB(NZ) SAV200 # D P RB RET1 # Z P* # j 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE # t * P* TO THE T:A (TERMINAL CONTROL AREA) # 0 P* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG #
0x2b4998…2b4b2c Dummy {f00=0x00db, f01=0x0190, f02=»ITEM HOLDING POINTERS TO BE RESTORED # ~ P* $ , PRESTOR EQU * $ 6 P CALL GETP $ J P LDR A1,A2 $ P LDR A2,A9 CHANGE $ n P LDR A9,A1 ADDRESSES $ P RB SAV100 START TO RESTORE $ P* $ ( P* GET PARAMETERS FOR SAVE/RESTORE $ P* $ P
0x2b4b2c…2b4cc0 Dummy {f00=0x00db, f01=0x0190, f02=»A0 $ P LDK A2,40 % , P ADR A2,A13 GET ADDRESS TO DB-POINTER /A % P RTN A14 % L P EJECT % P* % j 4 P* GET DIMENSION OF INDEXED VARIABLE AND LENGTH % t P* % > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION % P* % : P*
0x2b4cc0…2b4e54 (3, 53) Dummy {f00=0x00db, f01=0x0190, f02=» DIMENSION = BIN HOLDING DIMENSION % B P* (NUMBER OF ELEMENTS) & B P* & PGETIND EQU * & P CALL I:EVA0 ADDRESS TO ITEM & 2 P LD A10,-6,A14 READ DIMENSION STORED BY I:EVA0 & P LDR A7,
0x2b4e54…2b4fe8 Dummy {f00=0x00db, f01=0x0190, f02=» & x & P CALL I:EVA0 ADDRESS TO DIMENSION ' P STR A10,A9 STORE IN ITEM ' 2 PATTRET EQU * ' T P RB RET1 ' h P EJECT ' x P* ' > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM ' P* ' : P* SYNTAX: CALL CMPIND,INDEX,ITE
0x2b4fe8…2b517c Dummy {f00=0x00db, f01=0x018e, f02=»INDEX>MAX. INDEX OF ITEM ' j D P* CR = 2 IF INDEX<MAX. INDEX OF ITEM ( P* ( h P ( r PCMPIND EQU * ( z & P CALL I:EVA0 GET ADDRESS TO INDEX ( P LDR* A6,A9 SAVE INDEX VALUE ( 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF IT
0x2b517c…2b5310 Dummy {f00=0x00db, f01=0x0190, f02=» ( PUT150 EQU * ) P LDK A1,0 INDICATE CR = 0 ) PUT200 EQU * ) > $ P ABL SETB40 STORE CR AND RETURN ) R PGREAT EQU * ) z PNOTFND EQU * ) P LDK A1,1 INDICATE CR = 1 ) " P RB UT200 STORE CR AND RETURN ) PLESS EQU * ) P LDK A1,2 )
0x2b5310…2b54a4 Dummy {f00=0x00db, f01=0x0190, f02=»VENT CONTROL BLOCK ) x & P* FILECODE FILE NUMBER * " P* BUF BUFFER * D , P* LEN REQUESTED LENGTH * j > P* RECNO REALATIV SECTOR NO WITHIN THE FILE * P* * PWRITDK EQU * * P LDKL A11,/95
0x2b54a4…2b5638 Dummy {f00=0x00db, f01=0x0190, f02=» DSET EVENT CONTROL BLOCK * & P* FILECODE FILE NUMBER + & " P* BUF BUFFER + P , P* LEN REQUESTED LENGTH + v > P* RECNO RELATIVE SECTOR NO WITHIN THE FILE + P* + PREADDK EQU * + P L
0x2b5638…2b57cc Dummy {f00=0x00db, f01=0x018e, f02=»D STORE + f P* THEM IN DSET , P CALL I:EVA0 FILE CODE , * P LDR* A6,A9 , H P SC A6,1,A8 , P CALL I:EVA0 BUFFER ADDRESS , p P ST A9,2,A8 , P CALL I:EVA0 RECORD LENGTH , P LDR* A6,A9 , P ST A6,4,A8 , P CALL I:EVA0 RECORD NO
0x2b57cc…2b5960 Dummy {f00=0x00db, f01=0x0190, f02=» P* A8 DSET ADDRESS - P LKM - & P DATA 15 - 2 P* - B P* CHECK ON ERROR CODE - L PREAD40 EQU * - n P LD A6,8,A8 - ( P RB(Z) EQUAL SET COND CODE TO 0 ,OK - P ANKL A6,/2000 - * P RB(NZ) GREAT SET COND CODE TO 1 ,EOF - & P R
0x2b5960…2b5af4 (3, 54) Dummy {f00=0x00dc, f01=0x0190, f02=»* DSET EVENT CONTROL BLOCK - ( P* FILECODE FILE NUMBER . 4 2 P* BUF FILE PARAMETER BUFFER . ` < P* RECNO NUMBER OF RECORDS IN SPEC. FILE . P* . PCLOSEF EQU * . P LDR A11,A14 . P
0x2b5af4…2b5c88 Dummy {f00=0x00dc, f01=0x0190, f02=»ER CODE . | P RB READ20 / P EJECT / " P* / 0 4 P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME / : P* / r 0 P* DSET EVENT CONTROL BLOCK / | ( P* FILECODE FILE NUMBER / 2 P* BUF FILE PARAMETER BUFF
0x2b5c88…2b5e1c Dummy {f00=0x00dc, f01=0x0190, f02=»11 / POPENF0 EQU * 0 ( P CALL T:FDSP GET DSET ADDRESS TO A8 0 * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE 0 J P LDR A10,A9 0 x 4 P CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) 0 ( P ADKL A9,1 AND MAKE SURE IT IS EVEN 0 P ANKL A9,/FFFE 0 " P L
0x2b5e1c…2b5fb0 Dummy {f00=0x00dc, f01=0x0190, f02=»SS TO FPB 0 POPEN00 EQU * 1 P CMR A2 STORE ZERO IN FPB 1 & P ADK A2,2 INCREACE ADDRESS 1 H P SUK A3,2 1 j P RB(NZ) OPEN00 1 | P* 1 , P* GET FILE NAME AND STORE IT IN FPB 1 $ P* A3 CONTAINES FPB ADDRESS 1 P CALL I:EVA0 1 P
0x2b5fb0…2b6144 Dummy {f00=0x00dc, f01=0x018e, f02=» EQU * 1 P LCR A3,A9 GET ON CHAR 2 $ P SCR A3,A6 STORE ONE CHAR IN FPB 2 , P ADKL A9,1 2 T P ADK A6,1 2 f P SUK A4,1 2 x P RB(NZ) OPEN20 2 P* 2 , P* GET VOLUME NAME AND STORE IT IN FPB 2 P CALL I:EVA0 2 & P ADK A6,2 ADDRESS TO VOLUM
0x2b6144…2b62d8 Dummy {f00=0x00dc, f01=0x411e, f02=» P ADKL A9,1 3 P ADK A6,1 3 P SUK A4,1 3 ( P RB(NZ) OPEN40 3 : P LDK A7,/A1 LOAD ORDER CODE 3 P P LKM 3 t P DATA 15 3 , P* STORE FILE CODE IN FILE CODE BUFFER 3 P LC A3,1,A8 3 P STR A3,A10 3 " P RB READ40 CHEC ON ERROR CODE 3
0x2b62d8…2b646c Dummy {f00=0x00dc, f01=0x2008, f02=» 4 SUKL A14,4 LDR A12,A6 CF A14,CRV 2 ADKL A14,4 F LD A13,-2,A14 Z LDR* A12,A14 p LDR A6,A1 SAVE RETURN CODE $ CF I:EVA0 GET ADRESS TO RETCOD STR A6,A9 ABL I:RT1 END @ RE
0x2b646c…2b6600 Dummy {f00=0x00dc, f01=0x0190, f02=»E FILE CREATION RET INDEX KEY MONITOR SWITCH NAME EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : B C (
0x2b6600…2b6794 (3, 55) Opaque[0x194]
0x2b6794…2b6928 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1b88, f03=0x0000}
0x2b6794…2b6928 IdxSect {
0x2b6794…2b6928 f00 = 0x00dc // 0x2b6794 @0x0
0x2b6794…2b6928 f01 = 0x0006 // 0x2b6796 @0x2
0x2b6794…2b6928 gno = [ // 0x2b6798 @0x4
0x2b6794…2b6928 [0x00]: C0x00dc.0x1.0
0x2b6794…2b6928 [0x01]: C0x00dc.0x2.0
0x2b6794…2b6928 [0x02]: C0x00dc.0x3.0
0x2b6794…2b6928 ]
0x2b6794…2b6928 }
0x2b6928…2b6abc Dummy {f00=0x00dc, f01=0x000c, f02=»800331 ,C:CB10 800331 C:CB10C P1 T:ERAS8 b k CRVOL i i800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x2b6abc…2b6c50 Dummy {f00=0x00dc, f01=0x0190, f02=» DERROR 800331 $$$TRAD CANCO d DECHK1A DECHK20 DECHK31 DECHK48 DECHK5H DECHK6D DECHK7C DERRORK DESTAT DETCHKD T:DISPd T:DSC1A T:EDWRK T:ERASC T:GETAD T:NKI T:SETCK REORGS 800331 $$$TRAO REORGS CHA
0x2b6c50…2b6de4 Dummy {f00=0x00dc, f01=0x0190, f02=» p 6BIDACR 800331 BIDAC BIDACR h JBINACR 800331 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD 800331 ADDMOD J ,DSUMOD 800331 DSUMOD V DENTER 800331 $$$TRAN
0x2b6de4…2b6f78 Dummy {f00=0x00dc, f01=0x0190, f02=» DETCHKD EMPTYT MASK T:DISP T:DUPL T:DYKIN T:EDFLK T:EDWRK T:ERASK T:GETAK T:GETCK T:GETFK T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T:TLDO T:TLEFN T:TRIGK T:TSTCK T:TUP T:UPDFT T:XSTAT , NDEPOOL 800331 $$$TRAP DEPOOL
0x2b6f78…2b710c Dummy {f00=0x00dc, f01=0x0190, f02=»:ATTFL T:DSC0 T:AT10 , 800331 T:AT10A T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 C:CB50F D:CB60 C:CB60 D:CB70 C:CB70 D:CB80 C:CB80 D:CB90 C:CB90 D:CBA0 C:CBA0 D:DB10A C:CBA0A D:CBB00 C
0x2b710c…2b72a0 Dummy {f00=0x00dc, f01=0x0190, f02=»:A ,U:BTAB 0 800331 U:BTABB :B ,S:BTAB 1 800331 S:BTABB :B ,Z:TB10 2 800331 Z:TB10T ,D:TB10 3 800331 D:TB10T :T ,D:DB10 4 800331 D:DB10D " ,C:CB20 5 800331 C
0x2b72a0…2b7434 (3, 56) Dummy {f00=0x00dc, f01=0x0190, f02=» D:CB30C B ,D:CB40 9 800331 D:CB40C B ,C:CB50 : 800331 C:CB50C y ,D:CB50 ; 800331 D:CB50C B ,C:CB60 < 800331 C:CB60C [ d ,D:CB60 = 800331 D:CB60C 2 ,C:CB70 >
0x2b7434…2b75c8 Dummy {f00=0x00dc, f01=0x0190, f02=» 800331 D:CB80C B ,D:CB90 B 800331 D:CB90C . ,C:CBA0 C 800331 C:CBA0C ,D:CBA0 D 800331 D:CBA0C :C ,C:CBB0 E 800331 C:CBB0C $ ,D:CBB0 F 800331 D:CBB0C B
0x2b75c8…2b775c Dummy {f00=0x00dc, f01=0x0190, f02=» ,D:CBD0 L 800331 D:CBD0C :C *DDINIT M 800331 $$$TRA LCDISCT N 800331 CDISCT CDISLE 8 FIRFC FCMAX 8 DEINIT O 800331 $$$TRAI CHVNAM CLOFILS START CHANFCI CHVOL CLOSEF COPYD
0x2b775c…2b78f0 Dummy {f00=0x00dc, f01=0x0190, f02=» DPTS f 800331 $$$TRAS hPTS DECLRNS T:ATTFA ,D:CB10 m 800331 D:CB10C . ,C:CB90 n 800331 C:CB90C K ` , :DB10 p 800331 :DB10D + 8 DEDISC r 800331 $$$TRAD COND M DEDISCR R
0x2b78f0…2b7a84 Dummy {f00=0x00dc, f01=0x0190, f02=»SYSF ENTTBL GETFMT- GETJOBH GETSYSM GETTBLR GTNEXTA GTPREVT NEXFMTS NEXJOB NXBTH NXJOB OPNEBCd OPNNBCA PREFMT0 PREJOBF RECURR SCHFMT- SCHJOBH T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO <DKRUT1 v 800331 $$$TRAA CLSBTH DISUD DLCUR
0x2b7a84…2b7c18 Dummy {f00=0x00dc, f01=0x0190, f02=» WRICUR- W WRTCO CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC T:SWIT T:XSTAW WAIT_ WRITDK DKRUT2 800331 $$$TRAR DELFMT ENTFMTN NEXFMTC OPCLM PREFMT ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLD DISU1 DLRCC
0x2b7c18…2b7dac Dummy {f00=0x00dc, f01=0x0190, f02=»31 $$$TRAD ALGOF DELTBLA o ENTSYS0 ENTTBL1 ; GETFMT8 GETSYSH GETTBLD NOFFRET NXPRFMB SCHFMT SFMTCHG x CONDF DEPOOLB DISUE FREESP HRDT RDDS; RELEAS8 RETURNY RFRSP SCHPOOD STRT01R WAITN 8 DKRUT4 800331 $$$TRA DEL
0x2b7dac…2b7f40 Dummy {f00=0x00dc, f01=0x0190, f02=» DLRCCHH EMPTYTO FREESPX RDACC RDDSH RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS WRFSP 8OK:SUB 800331 VOLNAM l OK:SUB rDK2IPL 800331 IPL121 IPL221 IPL122 IPL222 IPL123 IPL22
0x2b7f40…2b80d4 (3, 57) Dummy {f00=0x00dc, f01=0x0190, f02=» NFLDIPL 800331 IPL811 IPL812 IPL813 QBLFAC NMFDIPL 800331 IPL311 IPL312 IPL313 QBLFAC CRESUD 800331 $$$TRAE CRESUD CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSEC
0x2b80d4…2b8268 Dummy {f00=0x00dc, f01=0x0190, f02=» DELFIL d DLFILE COPYDD l GETVOL p GETFRE CHVOL . SURVEY PRVTOC UPDBOL UPDBIN SETB CLEARB TESTB MSKOUT RDSECT ( SETFRE ` SETOCC VOLNAM ATTWB RESTOR GETIND CMPIND . WRITDK P
0x2b8268…2b83fc Dummy {f00=0x00dc, f01=0x0190, f02=»3 IPL411 IPL412 IPL413 fFILHND 800331 CRFILE l FIRFC FCMAX ADDMOD DSUMOD BINACR DLFILE F b RPRVTOC 800331 PRVTOC FIRFC CDISCT BINACR BIDACR L ,C:CB40 800331
0x2b83fc…2b8590 Dummy {f00=0x00dc, f01=0x0190, f02=» $$$TRAK hAPP DSKERR CHANFCK CLOFILA DERR GETVOL4 T:DISP1 T:ERAS8 b k JCRVOL 800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x2b8590…2b8724 Dummy {f00=0x00dc, f01=0x4046, f02=»R DSUMOD ,C:CB10 800331 C:CB10C P1 T:ERAS8 b k CRVOL i i800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x2b8724…2b88b8 Dummy {f00=0x00dc, f01=0x0190, f02=» & = X " =D , & = < > 1 =P J $ > ^ & n ? SYSTEM | $ ? & @ FILE $ @ & A 2 =P $ A
0x2b88b8…2b8a4c Dummy {f00=0x00dc, f01=0x0190, f02=» D & E USERDEFINED: $ E 6 & F F FILE T $ F h $ S x ( G & H DELETE $ H & I USERDEFINED: $
0x2b8a4c…2b8be0 Dummy {f00=0x00dc, f01=0x0190, f02=»:S $ L & & K , $ S : ( J M V & f N VOLUME SURVEY- t $ N & O UNIT: US $ O & & E &
0x2b8be0…2b8d74 (3, 58) Opaque[0x194]
0x2b8d74…2b8f08 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1ba0, f03=0x0000}
0x2b8d74…2b8f08 IdxSect {
0x2b8d74…2b8f08 f00 = 0x00dd // 0x2b8d74 @0x0
0x2b8d74…2b8f08 f01 = 0x0002 // 0x2b8d76 @0x2
0x2b8d74…2b8f08 gno = [ // 0x2b8d78 @0x4
0x2b8d74…2b8f08 [0x00]: C0x00dd.0x0.0
0x2b8d74…2b8f08 ]
0x2b8d74…2b8f08 }
0x2b8f08…2b909c Dummy {f00=0x00dd, f01=0x018e, f02=» $TRALI SCR /O PTRA DDINIT TRA DEINIT 2 PTRA DKRUT1 D PTRA DKRUT2 V PTRA DKRUT3 h PTRA DKRUT4 z PTRA DEDISC TRA DENTER TRA DEPOOL TRA DERROR TRA REORGS PTRA REORGU TRA CRESUD
0x2b909c…2b9230 Dummy {f00=0x00dd, f01=0x0166, f02=» ASG 2,NO $TRALI END & $LINK 2 SCR /O @ PNOD C N INC DEINIT PNOD n PTLK U,2K z INC ASSRUT PLKE M KPF /L,DILINK END $LINKLI SCR /O PNOD C INC DEINIT
0x2b9230…2b93c4 Dummy {f00=0x00dd, f01=0x2008, f02=» ASG 2,NO $TRALI END & $LINK 2 SCR /O @ PNOD C N INC DEINIT PNOD n PTLK U,2K z INC ASSRUT PLKE M KPF /L,DILINK END $LINKLI SCR /O PNOD C INC DEINIT
0x2b93c4…2b9558 Dummy {f00=0x00dd, f01=0x0190, f02=»FA R2 RRR_[ R : #* '!( !DL 0Rf!CKJT R x 6 F V f v
0x2b9558…2b96ec Dummy {f00=0x00dd, f01=0x0190, f02=» $ 0 R 4 0 R F X H h # x ' " ( ) , - 7 SR J F " D FA R2 RRR_ !DL KL!DL KMW 1XFA R2 R
0x2b96ec…2b9880 Dummy {f00=0x00dd, f01=0x0190, f02=» q s v ( x 8 y H } X | h x J F " D @((K jB0&J 0X !& R0RB % * 6 RH # ?R RH R#?R R,?R1XFA R2 D
0x2b9880…2b9a14 (3, 59) Opaque[0x194]
0x2b9a14…2b9ba8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1ba8, f03=0x0000}
0x2b9a14…2b9ba8 IdxSect {
0x2b9a14…2b9ba8 f00 = 0x00dd // 0x2b9a14 @0x0
0x2b9a14…2b9ba8 f01 = 0x008a // 0x2b9a16 @0x2
0x2b9a14…2b9ba8 gno = [ // 0x2b9a18 @0x4
0x2b9a14…2b9ba8 [0x00]: C0x00dd.0x1.0
0x2b9a14…2b9ba8 [0x01]: C0x00dd.0x2.0
0x2b9a14…2b9ba8 [0x02]: C0x00dd.0x3.0
0x2b9a14…2b9ba8 [0x03]: C0x00de.0x0.0
0x2b9a14…2b9ba8 [0x04]: C0x00de.0x1.0
0x2b9a14…2b9ba8 [0x05]: C0x00de.0x2.0
0x2b9a14…2b9ba8 [0x06]: C0x00de.0x3.0
0x2b9a14…2b9ba8 [0x07]: C0x00df.0x0.0
0x2b9a14…2b9ba8 [0x08]: C0x00df.0x1.0
0x2b9a14…2b9ba8 [0x09]: C0x00df.0x2.0
0x2b9a14…2b9ba8 [0x0a]: C0x00df.0x3.0
0x2b9a14…2b9ba8 [0x0b]: C0x00e0.0x0.0
0x2b9a14…2b9ba8 [0x0c]: C0x00e0.0x1.0
0x2b9a14…2b9ba8 [0x0d]: C0x00e0.0x2.0
0x2b9a14…2b9ba8 [0x0e]: C0x00e0.0x3.0
0x2b9a14…2b9ba8 [0x0f]: C0x00e1.0x0.0
0x2b9a14…2b9ba8 [0x10]: C0x00e1.0x1.0
0x2b9a14…2b9ba8 [0x11]: C0x00e1.0x2.0
0x2b9a14…2b9ba8 [0x12]: C0x00e1.0x3.0
0x2b9a14…2b9ba8 [0x13]: C0x00e2.0x0.0
0x2b9a14…2b9ba8 [0x14]: C0x00e2.0x1.0
0x2b9a14…2b9ba8 [0x15]: C0x00e2.0x2.0
0x2b9a14…2b9ba8 [0x16]: C0x00e2.0x3.0
0x2b9a14…2b9ba8 [0x17]: C0x00e3.0x0.0
0x2b9a14…2b9ba8 [0x18]: C0x00e3.0x1.0
0x2b9a14…2b9ba8 [0x19]: C0x00e3.0x2.0
0x2b9a14…2b9ba8 [0x1a]: C0x00e3.0x3.0
0x2b9a14…2b9ba8 [0x1b]: C0x00e4.0x0.0
0x2b9a14…2b9ba8 [0x1c]: C0x00e4.0x1.0
0x2b9a14…2b9ba8 [0x1d]: C0x00e4.0x2.0
0x2b9a14…2b9ba8 [0x1e]: C0x00e4.0x3.0
0x2b9a14…2b9ba8 [0x1f]: C0x00e5.0x0.0
0x2b9a14…2b9ba8 [0x20]: C0x00e5.0x1.0
0x2b9a14…2b9ba8 [0x21]: C0x00e5.0x2.0
0x2b9a14…2b9ba8 [0x22]: C0x00e5.0x3.0
0x2b9a14…2b9ba8 [0x23]: C0x00e6.0x0.0
0x2b9a14…2b9ba8 [0x24]: C0x00e6.0x1.0
0x2b9a14…2b9ba8 [0x25]: C0x00e6.0x2.0
0x2b9a14…2b9ba8 [0x26]: C0x00e6.0x3.0
0x2b9a14…2b9ba8 [0x27]: C0x00e7.0x0.0
0x2b9a14…2b9ba8 [0x28]: C0x00e7.0x1.0
0x2b9a14…2b9ba8 [0x29]: C0x00e7.0x2.0
0x2b9a14…2b9ba8 [0x2a]: C0x00e7.0x3.0
0x2b9a14…2b9ba8 [0x2b]: C0x00e8.0x0.0
0x2b9a14…2b9ba8 [0x2c]: C0x00e8.0x1.0
0x2b9a14…2b9ba8 [0x2d]: C0x00e8.0x2.0
0x2b9a14…2b9ba8 [0x2e]: C0x00e8.0x3.0
0x2b9a14…2b9ba8 [0x2f]: C0x00e9.0x0.0
0x2b9a14…2b9ba8 [0x30]: C0x00e9.0x1.0
0x2b9a14…2b9ba8 [0x31]: C0x00e9.0x2.0
0x2b9a14…2b9ba8 [0x32]: C0x00e9.0x3.0
0x2b9a14…2b9ba8 [0x33]: C0x00ea.0x0.0
0x2b9a14…2b9ba8 [0x34]: C0x00ea.0x1.0
0x2b9a14…2b9ba8 [0x35]: C0x00ea.0x2.0
0x2b9a14…2b9ba8 [0x36]: C0x00ea.0x3.0
0x2b9a14…2b9ba8 [0x37]: C0x00eb.0x0.0
0x2b9a14…2b9ba8 [0x38]: C0x00eb.0x1.0
0x2b9a14…2b9ba8 [0x39]: C0x00eb.0x2.0
0x2b9a14…2b9ba8 [0x3a]: C0x00eb.0x3.0
0x2b9a14…2b9ba8 [0x3b]: C0x00ec.0x0.0
0x2b9a14…2b9ba8 [0x3c]: C0x00ec.0x1.0
0x2b9a14…2b9ba8 [0x3d]: C0x00ec.0x2.0
0x2b9a14…2b9ba8 [0x3e]: C0x00ec.0x3.0
0x2b9a14…2b9ba8 [0x3f]: C0x00ed.0x0.0
0x2b9a14…2b9ba8 [0x40]: C0x00ed.0x1.0
0x2b9a14…2b9ba8 [0x41]: C0x00ed.0x2.0
0x2b9a14…2b9ba8 [0x42]: C0x00ed.0x3.0
0x2b9a14…2b9ba8 [0x43]: C0x00ee.0x0.0
0x2b9a14…2b9ba8 [0x44]: C0x00ee.0x1.0
0x2b9a14…2b9ba8 ]
0x2b9a14…2b9ba8 }
0x2b9ba8…2b9d3c Dummy {f00=0x00dd, f01=0x0190, f02=» @ H IDENT DERROR TRA 5.0 80-02-29 F1 O1111 UPD 80-02-29/CHST D @ CANC DECHK1 DECHK2 DECHK3 DECHK4 DECHK5 DECHK6 DECHK7 H DERRORR DESTATA DETCHK0 $$$TRAD @ < CANCO d DECHK1A DECHK20 DECHK31 DECHK48 DECHK5H 8 4
0x2b9d3c…2b9ed0 Dummy {f00=0x00dd, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " " " " "
0x2b9ed0…2ba064 Dummy {f00=0x00dd, f01=0x018e, f02=» " ( $ & 4 " & TOO FEW INPUT CHARACTERS B ( h t & & UNDEFINED ERRORH ( & & I/O-ERROR (
0x2ba064…2ba1f8 Dummy {f00=0x00dd, f01=0x0190, f02=» ( & & ILLEGAL VALUEE . ( J V & f & FILENAME ALREADY USEDF t ( & & SYSTEMFILE NOT CREATED ( &
0x2ba1f8…2ba38c Dummy {f00=0x00dd, f01=0x0190, f02=» & & FILE NAME UNKNOWNB ( : F & V & NO WORKSPACE IN CORE d ( & & OUTPUT FILE TOO SMALLS ( & & DISK
0x2ba38c…2ba520 Dummy {f00=0x00dd, f01=0x0190, f02=» & USERFILE ASSIGN-ERRORO ( , 8 & H & DISC I/O-ERROR V & : r XXXXX- " I ( & & DISC READING-ERROR (
0x2ba520…2ba6b4 (3, 60) Dummy {f00=0x00dd, f01=0x0190, f02=»FILE d ( ( 3 8 J 2 l ! ~ # & * , 1 > J F " D !1X F PVQ L L
0x2ba6b4…2ba848 Dummy {f00=0x00dd, f01=0x40fa, f02=» x J F " D @! _3 86 _'0X RW 40X 4 [ L 0X 0X 6 l | & * & ( , ' % 4 A _ 0X 0X 4 4 X @ F PVQ L L
0x2ba848…2ba9dc Dummy {f00=0x00dd, f01=0x0190, f02=» @ H IDENT REORGS TRA 5.0 - - F1 O1111 UPD 80-03-20/CHST REORGS H $$$TRAO Z REORGS l D @ CHANFCO CHVOL CLOFIL CLOSEF DECLRA1 DECLRN8 DEDISC/ DEPOOL D @ DERRG DISU DSKERR NOFFRE OPCL OPENF REFSP T:ATTF T:DISP
0x2ba9dc…2bab70 Dummy {f00=0x00dd, f01=0x0190, f02=»x! f"f! `"`! z"z! b"b! L0R f# j#P 0R f#C @" x G b 6 N F V V o f { v J F " D @ 4 d!!?R f!f# R ! `! R!!Cjb! "C%jz! "C! ! ! R" @ h! R"! J Yd
0x2bab70…2bad04 Dummy {f00=0x00dd, f01=0x0190, f02=»T J F " D @ h#h! x#x! `#`! z#z! b#b!!FL 1XFA R2 RR!GL R3":R R4#:R AL ] X ? j b z Y] N]
0x2bad04…2bae98 Dummy {f00=0x00dd, f01=0x0190, f02=» $ b ) L , . ? 2 8 b B ; Y R ? d J F " D R #:Rj " r- L U jU!! r2 U! R8" _:R_+ L L R "V )%?R!FL GL v A B F J E
0x2bae98…2bb02c Dummy {f00=0x00dd, f01=0x0190, f02=» r ? | } * " : J F " D @1XFA R2 RR GL& R%# R!#:R_2 R& L R&qq t L R "V )S1XF0X J $ e NA ? YA
0x2bb02c…2bb1c0 Dummy {f00=0x00dd, f01=0x0190, f02=» ? " 0 $ @ J F " D ! 0X R2 RR GL+ R*"_!!FL GL1XFA R2 RR GLH R-# R)#^R1XF0X ! 0 P e N0 J F " D X R2 RR GLg_! j!j
0x2bb1c0…2bb354 (3, 61) Dummy {f00=0x00dd, f01=0x0190, f02=»!z# b!b# d!! f!f#A" R"R.0R R0R CI4 n ^ , j < m L & l COPY JOB: z $ & & $ ( & COPY F
0x2bb354…2bb4e8 Dummy {f00=0x00dd, f01=0x0190, f02=» $ & & G " & G 0 & > & [ P ( ^ j & [ z & COPY SYSTEMVARIABLES ? $ O ( & & COPY VALUE-SET T &
0x2bb4e8…2bb67c Dummy {f00=0x00dd, f01=0x4014, f02=» p @ & G " & G 0 & > & [ P ( ^ j & [ z & COPY SYSTEMVARIABLES ? $ O ( & & COPY VALUE-SET T &
0x2bb67c…2bb810 Dummy {f00=0x00dd, f01=0x018e, f02=» @ @ IDENT BIDACR PRR 10.0 80-02-04 870136641000 BIDAC BIDACR H BIDAC ` , ( R _ P 0 - : ; r , ( ! [ V - - ' , ( @ A d Z : BID
0x2bb810…2bb9a4 Dummy {f00=0x00dd, f01=0x4046, f02=» ( $ R P )V V W R T R 0@ B BIDAC BIDACR H BIDAC ` , ( R _ P 0 - : ; r , ( ! [ V - - ' , ( @ A d Z : BID
0x2bb9a4…2bbb38 Dummy {f00=0x00dd, f01=0x0190, f02=» @ @ IDENT BINACR PRR 10.0 80-02-04 870136641000 BINAC BINACR H DSUMOD ` , ( R _ P 0 / r ADDMOD BINAC , , ( : ; [ [ [ , ( = [
0x2bbb38…2bbccc Dummy {f00=0x00dd, f01=0x40f0, f02=» Z : : BINACR & , ( @ ; , : V : , ( *W R - _ 1 T R P - j _ : $ R P V W R T R @ , ( = [
0x2bbccc…2bbe60 Dummy {f00=0x00dd, f01=0x412e, f02=» @ @ IDENT ADDMOD PRR 10.0 80-02-04 870136641000 ADDMOD H ADDMOD Z , ( [ S Q R S n , ( ! P W S _ R Q _ ;A A [ : , ( S Q" R S !P #W +S
0x2bbe60…2bbff4 (3, 62) Dummy {f00=0x00de, f01=0x4142, f02=» @ @ IDENT DSUMOD PRR 10.0 80-02-04 870136641000 DSUMOD H DSUMOD Z , ( [ Q S W n , ( ! S Q R S P W S _ R " A _ ;A [ : 4 0 Q S W #S
0x2bbff4…2bc188 Dummy {f00=0x00de, f01=0x018e, f02=» @ H IDENT DENTER TRA 5.0 80-03-10 F1 O1111 UPD 80-03-04/CHST , ( DECLRA DECLRD DECLRN DECLRS DERR H $$$TRAN x 6 2 DECLRA DECLRDD DECLRNC DECLRS DERR @ < hAPP CANCE DECHK15 DECHK20 DECHK3 DECHK4U DECHK53 DECHK6T D @
0x2bc188…2bc31c Dummy {f00=0x00de, f01=0x0190, f02=» D @ T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T:TLDO 4 0 T:TLEFN T:TRIGK T:TSTCK T:TUP T:UPDFT T:XSTAT L & ! T $
0x2bc31c…2bc4b0 Dummy {f00=0x00de, f01=0x0190, f02=» ( @ P ` p , ( 3 ( : J F " D R!4 R"4 R#4 R$4 R 4 8RI 6 / 0X ! W(
0x2bc4b0…2bc644 Dummy {f00=0x00de, f01=0x0190, f02=» | J F " D @@ 6 0X ! W 0X ! 0X ! 0X R 0X P R _ 0XH ; !0X K P J l & | r "
0x2bc644…2bc7d8 Dummy {f00=0x00de, f01=0x0190, f02=» * : J Z j z ,
0x2bc7d8…2bc96c Dummy {f00=0x00de, f01=0x018e, f02=» , J F " D o2 RRRRRRRRRRRRRRRR B0X 3 RRRRRRR2 RRR !W 0X ( , h x m H J F " D _ "0X 0 R2 RRRW&0X A 6 *.RV .W !@
0x2bc96c…2bcb00 Dummy {f00=0x00de, f01=0x0190, f02=» d F l J F " D @*0X _,0XW 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R 7 HH:HH:6:::6: ( m v 2 m , & m
0x2bcb00…2bcc94 (3, 63) Dummy {f00=0x00de, f01=0x018e, f02=» ?R0X 0X V . D $ 4 . D J T d J F " D % 0X S 0X P 0R Q )L *P #4 0X 0R $ % 0X 0 t m
0x2bcc94…2bce28 Dummy {f00=0x00de, f01=0x409c, f02=» & m & $ & 2 ( @ 6 2 0 R 9<R RK2 RRRR?R R2 RR #4 0X 0X ?R !4 L , @ 4 0X 0R $ % 0X 0 t m
0x2bce28…2bcfbc Dummy {f00=0x00de, f01=0x018e, f02=» D H IDENT DEPOOL TRA 5.0 80-03-27 F1 O1111 REL 1.0 80-03-26/DALI DEPOOL L $$$TRAP ^ DEPOOL p CMPINDP GETINDA SETB '
0x2bcfbc…2bd150 Dummy {f00=0x00de, f01=0x018e, f02=» J F " D @ 2 RRRRRRRRRRR A ! [ ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P V E J F " D !0R ! N_m R ?R j !! '( !1j !& !j
0x2bd150…2bd2e4 Dummy {f00=0x00de, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! ! ?R ! 0R !h & !&P $ E r J J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D
0x2bd2e4…2bd478 Dummy {f00=0x00de, f01=0x018e, f02=»j '! !j !! ( _N ` - Fj 1 Tj 0 5 Xj B @ T J F " D ! ( + [Whj !! ' !QU I N! L ! L Lb ! W:0 d R T V X J F " D @R h [ !P L! Lj !! b ! f ! !A
0x2bd478…2bd60c Dummy {f00=0x00de, f01=0x417e, f02=» J F " D )W# + Lj ! h $ !T 8 W - !"4 !!4 j !! XW V 3 h J F " D ( !"4 Lj ! j !! ( j (! ! _ f !0R !j ![ x S J F " D @ !!4 6 LW [ j !! W j
0x2bd60c…2bd7a0 Dummy {f00=0x00de, f01=0x0190, f02=» F H IDENT REORGU TRA 5.0 80-01-22 F1 O1111 REL. 1.0 79-05-29/LABJ REORGU N $$$TRAO ` REORGU r B > CHANFCO CHVOL DECLRN DISU- DSKERR1 FREESPL GETVOL9 T:ATTFL T:DSC0 X
0x2bd7a0…2bd934 (3, 64) Dummy {f00=0x00de, f01=0x0190, f02=» ? X J F " D h!! [ ! L ! 1 AH0R Q0R H <R QL RL0R Q<R0R R<R R%" <R l b p r z | X J F " D @b !)* b ! < * S# # *W *" W jS " $ S 8R_ R#S P )8R?Rj Y)
0x2bd934…2bdac8 Dummy {f00=0x00de, f01=0x0190, f02=» X J F " D " &b * b & "j " ( 7!FL GL1XFA R2 RR GLW R% CP ! L ?R JC f z X ` X JC J F " D
0x2bdac8…2bdc5c Dummy {f00=0x00de, f01=0x0190, f02=» D CLjC"" _G R !:Rj (" bC * *jC&" R$ C:R *W ," W j J L U X z YC l ~ C ~ J F " D @" $ _ R# P ) ?Rj " &b , b@ & "j " (j " * ;!FL GL1
0x2bdc5c…2bddf0 Dummy {f00=0x00de, f01=0x018e, f02=» J F " D XFA R2 RR GL[ R% CP ! L W CLjC&"* R$ CR j "C&% L0j " V f BC R v J F " D C$ _< R !R jC$" R$ CRz CLjC"" _G R !Rnj (" R !Rbj
0x2bddf0…2bdf84 Dummy {f00=0x00de, f01=0x018e, f02=» H B F J ( N 8 R H X f h m x ~ J F " D @Q0X 0R R0X 0R P0R A4 # R _# 1_ R# CZ R$ CZ 2 R#
0x2bdf84…2be118 Dummy {f00=0x00de, f01=0x416c, f02=» & COPY BATCH:0 $ 2 & B & @ P $ ^ ( n z & Y/N $ & & G & G & & [
0x2be118…2be2ac Dummy {f00=0x00de, f01=0x0190, f02=» . H IDENT T:AT10 TRA 5.0 80-03-27 F1 O1111 T:AT10 6 T:AT10A H > : T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 > : D:CB40A C:CB40A D:CB500 C:CB50F D:CB60 C:CB60 D:CB70 > : C:CB70 D:CB80 C:CB80 D:CB90 C:CB9
0x2be2ac…2be440 Dummy {f00=0x00de, f01=0x4180, f02=» * & = 6 d P ( * & [ d V * & y , ( @ T1 , , (
0x2be440…2be5d4 (3, 65) Dummy {f00=0x00de, f01=0x40cc, f02=» . H IDENT T:DT10 TRA 5.0 80-03-27 F1 O1111 T:DT10 6 T:DT10D H START * & `T1 * l ( @ , (
0x2be5d4…2be768 Dummy {f00=0x00de, f01=0x409a, f02=» . H IDENT T:ATAB TRA 5.0 80-03-27 F1 O1111 T:ATAB 6 T:ATABA H T:AT10 @ n :A @ ( @ , (
0x2be768…2be8fc Dummy {f00=0x00de, f01=0x4084, f02=» . H IDENT U:BTAB TRA 5.0 80-03-27 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ ( @ , (
0x2be8fc…2bea90 Dummy {f00=0x00de, f01=0x4084, f02=» . H IDENT S:BTAB TRA 5.0 80-03-27 F1 O1111 S:BTAB 6 S:BTABB H :B n@ :A @ ( @ , (
0x2bea90…2bec24 Dummy {f00=0x00de, f01=0x416a, f02=» . H IDENT Z:TB10 TRA 4.1 79-07-31 F1 O1111 Z:TB10 6 Z:TB10T H & & p & = & [ & y & & & & & & -
0x2bec24…2bedb8 Dummy {f00=0x00de, f01=0x4088, f02=» . H IDENT D:TB10 TRA 4.1 79-07-31 F1 O1111 D:TB10 6 D:TB10T H :T r@ & [ & y & & & & & & -
0x2bedb8…2bef4c Dummy {f00=0x00de, f01=0x40b4, f02=» . H IDENT D:DB10 TRA 5.0 80-03-27 F1 O1111 ' D:DB10 ' 6 D:DB10D ' H * & " ' ' " ' @ '
0x2bef4c…2bf0e0 Dummy {f00=0x00de, f01=0x40ca, f02=» . H IDENT C:CB20 TRA 5.0 80-03-27 F1 O1111 C:CB20 6 C:CB20C H * & $ $ @ & & = & [ & y
0x2bf0e0…2bf274 (3, 66) Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CB20 TRA 5.0 80-03-27 F1 O1111 D:CB20 6 D:CB20C H * & B * & = B @ = & [ & y
0x2bf274…2bf408 Dummy {f00=0x00df, f01=0x40ca, f02=» . H IDENT C:CB30 TRA 5.0 80-03-27 F1 O1111 C:CB30 6 C:CB30C H * & @ c $ $ @ B @ = & [ & y
0x2bf408…2bf59c Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CB30 TRA 5.0 80-03-27 F1 O1111 D:CB30 6 D:CB30C H * & B * & = B @
0x2bf59c…2bf730 Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CB40 TRA 5.0 80-03-27 F1 O1111 D:CB40 6 D:CB40C H * & B : F0 F G H * & I J P V d l = t B @ & & -
0x2bf730…2bf8c4 Dummy {f00=0x00df, f01=0x4156, f02=» . H IDENT C:CB50 TRA 5.0 80-03-27 F1 O1111 C:CB50 6 C:CB50C H * & * & * & = * & [
0x2bf8c4…2bfa58 Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CB50 TRA 5.0 80-03-27 F1 O1111 D:CB50 6 D:CB50C H * & B 0 * & 0 0 0 0 = ! B @ & [
0x2bfa58…2bfbec Dummy {f00=0x00df, f01=0x412a, f02=» . H IDENT C:CB60 TRA 5.0 80-03-27 F1 O1111 C:CB60 6 C:CB60C H * & * & * & = SYSVOLSY [ SVOLOUTPUT d
0x2bfbec…2bfd80 Dummy {f00=0x00df, f01=0x40c4, f02=» . H IDENT D:CB60 TRA 5.0 80-03-27 F1 O1111 D:CB60 6 D:CB60C H * & 2 $ 6 < N 2 @ SYSVOLSY [ SVOLOUTPUT d
0x2bfd80…2bff14 (3, 67) Dummy {f00=0x00df, f01=0x4172, f02=» . H IDENT C:CB70 TRA 5.0 80-03-27 F1 O1111 C:CB70 6 C:CB70C H * & & & = & [ & y & & & &
0x2bff14…2c00a8 Dummy {f00=0x00df, f01=0x40cc, f02=» . H IDENT D:CB70 TRA 5.0 80-03-27 F1 O1111 D:CB70 6 D:CB70C H * & : ( $ ( : @ y & & & &
0x2c00a8…2c023c Dummy {f00=0x00df, f01=0x40ce, f02=» . H IDENT C:CB80 TRA 5.0 80-03-27 F1 O1111 C:CB80 6 C:CB80C H $ & & = @ = @ @ & & & &
0x2c023c…2c03d0 Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CB80 TRA 5.0 80-03-27 F1 O1111 ! D:CB80 ! 6 D:CB80C ! H * & B ! * & ! = # - ! B ! @ ! & & &
0x2c03d0…2c0564 Dummy {f00=0x00df, f01=0x40c0, f02=» . H IDENT D:CB90 TRA 5.0 80-03-27 F1 O1111 $ D:CB90 $ 6 D:CB90C $ H * & . 2 B $ x X @ $ . $ @ $ " & [ " & y " &
0x2c0564…2c06f8 Dummy {f00=0x00df, f01=0x411a, f02=» . H IDENT C:CBA0 TRA 5.0 80-03-27 F1 O1111 % C:CBA0 % 6 C:CBA0C % H & % & % p & = % & [ % & y % & % & % & % % %
0x2c06f8…2c088c Dummy {f00=0x00df, f01=0x4088, f02=» . H IDENT D:CBA0 TRA 5.0 80-03-27 F1 O1111 & D:CBA0 & 6 D:CBA0C & H & :C & r@ &
0x2c088c…2c0a20 Dummy {f00=0x00df, f01=0x40ca, f02=» . H IDENT C:CBB0 TRA 5.0 80-03-27 F1 O1111 ( C:CBB0 ( 6 C:CBB0C ( H * & ( ( $ ( $ ( @ (
0x2c0a20…2c0bb4 (3, 68) Dummy {f00=0x00df, f01=0x40e4, f02=» . H IDENT D:CBB0 TRA 5.0 80-03-27 F1 O1111 ) D:CBB0 ) 6 D:CBB0C ) H * & B ) * & ) = ) B ) @ )
0x2c0bb4…2c0d48 Dummy {f00=0x00df, f01=0x410a, f02=» . H IDENT C:CBC0 TRA 5.0 80-03-27 F1 O1111 * C:CBC0 * 6 C:CBC0C * H & * & * ~ * & = * [ * n * [ n * @ *
0x2c0d48…2c0edc Dummy {f00=0x00df, f01=0x40c8, f02=» . H IDENT D:CBC0 TRA 5.0 80-03-27 F1 O1111 + D:CBC0 + 6 D:CBC0C + H * & 6 + $ > 0 L0 M0 O V + 6 + @ + * n * [ n * @ *
0x2c0edc…2c1070 Dummy {f00=0x00df, f01=0x0190, f02=» . H IDENT C:CBD0 TRA 4.1 79-08-27 F1 O1111 C:CBD0 6 C:CBD0C H & & p & = & [ & y & & & & & & -
0x2c1070…2c1204 Dummy {f00=0x00df, f01=0x0190, f02=» ; & Y ! & w ! & ! 0 & ! @ & ! P & ! ` & ! p & + ! & I ! & g ! & ! & ! & ! & ! & ! &
0x2c1204…2c1398 Dummy {f00=0x00df, f01=0x40da, f02=» ) ! & G " & e " & " 0 & " @ & " P & " ` & " p & " & 7 " U " l " U l " @ " & ! & ! &
0x2c1398…2c152c Dummy {f00=0x00df, f01=0x4090, f02=» . H IDENT D:CBD0 TRA 4.1 79-08-27 F1 O1111 # D:CBD0 # 6 D:CBD0C # H { # :C # z@ # 7 " U " l " U l " @ " & ! & ! &
0x2c152c…2c16c0 Dummy {f00=0x00df, f01=0x405e, f02=» . H IDENT DDINIT TRA 5.0 80-03-27 F1 O1111 , $$$TRA , 6 , H@ , Z 6 + $ > 0 L0 M0 O V + 6 + @ + * n * [ n * @ *
0x2c16c0…2c1854 (3, 69) Dummy {f00=0x00df, f01=0x4128, f02=» @ @ IDENT CDISCT PRR 10.0 80-02-04 870136641000 " CDISCT CDISLE FIRFC FCMAX H CDISCT n , ( DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 CDISLE 8 FIRFC FCMAX $ ! FD1 FD2 FD3 FD4 CD1 CD
0x2c1854…2c19e8 Dummy {f00=0x00df, f01=0x018e, f02=» @ H IDENT DEINIT TRA 5.0 80-03-31 F1 O1111 UPD 80-03-31/CHST CHVNAM CLOFIL START H $$$TRAI h " CHVNAM CLOFILS START z D @ CHANFCI CHVOL CLOSEF COPYDD1 CRESUD1 CREVOL8 DECLRA/ DELFIL @ < DSKERR OPENF REC1 REC2T REC
0x2c19e8…2c1b7c Dummy {f00=0x00df, f01=0x0190, f02=» ( 8 J P l + 5 ~ , - . / 3 0 3 1 2 6
0x2c1b7c…2c1d10 Dummy {f00=0x00df, f01=0x0190, f02=»RRRRRRR_51XFA R2 R ^ C l & , q < y ? L J F " D @RR R _GjB'!P!jB(&H jB."& jB0! !jB1!!!jB2! !0X !10RB % * R ~ 3
0x2c1d10…2c1ea4 Dummy {f00=0x00df, f01=0x0190, f02=»] R : #? '6( -!DL$0R f!CKJT l * : 0 J l | J F " D R R R
0x2c1ea4…2c2038 Dummy {f00=0x00df, f01=0x0190, f02=» 5 # $ * % ( : *0 J 10 9 n : G ~ > B = C D G J F " D 4 0R f!C 0R f"C 0R f#C 4 1XFA R2 RRR_ !DL KL!DL
0x2c2038…2c21cc Dummy {f00=0x00df, f01=0x0190, f02=» D @ RRR?R RJjB'!P! LjB&! jB((K jB0&J 0X !& R0RB % * 6 RH L l |
0x2c21cc…2c2360 Dummy {f00=0x00df, f01=0x0190, f02=» R . > $ N ^ J F " D # ?R RH R#?R R,?R1XFA R2 RRR?R1XFA R2 RRR?R RJ FL R?R1XFA n B
0x2c2360…2c24f4 (3, 70) Dummy {f00=0x00e0, f01=0x0190, f02=» J F " D R2 RRR?RjB(&I jB.&I jB5! !0RB % * $ <R?R R(?R1XFA R2 RRR B j z M P
0x2c24f4…2c2688 Dummy {f00=0x00e0, f01=0x0190, f02=»2 RRR_ LjB&! !jB'!P!0RB % * R ! <R?R R2?R0 | F : H " L M $ O Q l T ( | W Q & . * ( "PTS DATA-ENTRY UTILITIES REL 10.0 $ &
0x2c2688…2c281c Dummy {f00=0x00e0, f01=0x0190, f02=» & CREATE VOLUMEY $ 4 & D 2 = R $ f & v CREATE FILEM $ & 3 = $ & DELETE
0x2c281c…2c29b0 Dummy {f00=0x00e0, f01=0x0190, f02=»COPY SYSFILM $ & $ 5 = 2 $ F & V NOT USED d $ | & 6 = $ & NOT USED $ &
0x2c29b0…2c2b44 Dummy {f00=0x00e0, f01=0x0190, f02=» & VOLUME SURVEY- $ 4 & D 9 = R $ f & v NOT USED $ ( n & CREATE VOLUME- $ &
0x2c2b44…2c2cd8 Dummy {f00=0x00e0, f01=0x0190, f02=» & & H & H VOLUME-NAME: . $ J & Z & H l & H z & TYPE: & X " ^! & $ S! & & 6
0x2c2cd8…2c2e6c Dummy {f00=0x00e0, f01=0x0190, f02=»& & ( # &! - 3 (PTS-6876) 5 MB PACKEDE & F & T * % &# - 4 (PTS-6876) 5 MB UNPACKED2 b & & ( # &! - 5 (PTS-8863) MINI FIX DISCE & & & - 6 (PTS-6877)
0x2c2e6c…2c3000 Dummy {f00=0x00e0, f01=0x018e, f02=»SC h & $ & . * &( $- 9 (PTS- ) 1 MB FLEXIBLE DISC & ( X d & $ t COPY SYSFIL) $ $ & ( & ! COPY USERFIL $
0x2c3000…2c3194 (3, 71) Dummy {f00=0x00e0, f01=0x0190, f02=» & F $ S ( " $ . & > " % COPY SYSVOL TO SYSVOLF L $ % r $ & ( & 0 & ' INPUTS $ ' & ( UNIT : U
0x2c3194…2c3328 Dummy {f00=0x00e0, f01=0x018e, f02=»& H * OUTPUT $ * " & 2 + UNIT : U @ $ + X & h & z & , VOLUME-NAME: $ , & ! & H $ S ( - '
0x2c3328…2c34bc Dummy {f00=0x00e0, f01=0x0190, f02=» & E & 0 VOLUME-NAME: $ 0 < & ! L & H Z & H h 1 NEWP v $ 1 & 2 VOLUME-NAME: $ 2 & & $ S (
0x2c34bc…2c3650 Dummy {f00=0x00e0, f01=0x018e, f02=» 6 DELETE $ 6 & * 7 FILE 8 $ 7 L $ 8 ( l 8 E x & 9 UNIT: UF $ 9 & & E & : VOLUME-NAME:
0x2c3650…2c37e4 Dummy {f00=0x00e0, f01=0x0190, f02=» & = X " =D , & = < > 1 =P J $ > ^ & n ? SYSTEM | $ ? & @ FILE $ @ & A 2 =P $ A
0x2c37e4…2c3978 Dummy {f00=0x00e0, f01=0x0190, f02=» D & E USERDEFINED: $ E 6 & F F FILE T $ F h $ S x ( G & H DELETE $ H & I USERDEFINED: $
0x2c3978…2c3b0c Dummy {f00=0x00e0, f01=0x0190, f02=»:S $ L & & K , $ S : ( J M V & f N VOLUME SURVEY- t $ N & O UNIT: US $ O & & E &
0x2c3b0c…2c3ca0 Dummy {f00=0x00e0, f01=0x40ca, f02=»PRESS ENT TO CONTINUEF $ R ( . S : & J & X & [ j ( x , ( & @X !! L0X 1X F !0X K Z !!4 b @
0x2c3ca0…2c3e34 (3, 72) Dummy {f00=0x00e0, f01=0x0190, f02=» . H IDENT PTS TRA 5.0 80-01-21 F1 O1111 hPTS 6 $$$TRAS D hPTS V DECLRNS T:ATTFA f & & & & & "
0x2c3e34…2c3fc8 Dummy {f00=0x00e0, f01=0x0190, f02=» & & & $ " PPPP T SSSSS 2 $ X & h & v & " P T S $ & & & " P T
0x2c3fc8…2c415c Dummy {f00=0x00e0, f01=0x0190, f02=» $ & ) 2 - + %EEEEE N N TTTTTTT RRRR Y Y $ T & d & r & , ( & D D A A T A A $ & ) 0 , * $E NN N T R R Y Y
0x2c415c…2c42f0 Dummy {f00=0x00e0, f01=0x0190, f02=»& ) 0 + ) #EEE N N N T RRRR Y YY $ @ & P & ^ & l , ( & D D A A T A A z $ & ) . * ( "E N NN T R R Y $
0x2c42f0…2c4484 Dummy {f00=0x00e0, f01=0x0190, f02=» N N T R R Y $ $ & 4 & B & P & ^ 4 / - 'U U TTTTTTT I L I TTTTTTT I l $ & 6 EEEEE SSSSST $ & &
0x2c4484…2c4618 Dummy {f00=0x00e0, f01=0x0190, f02=» & & & $ 4 / - 'U U T I L I T I 2 $ j & 6 z EEE SSSS $ & & & 4 / - 'U U T I L I T
0x2c4618…2c47ac Dummy {f00=0x00e0, f01=0x4106, f02=» ' UUU T I LLLLL I T I $ 4 & 6 D EEEEE SSSSS R $ n & ~ & & & & [ ( A 1XF R7 4 @
0x2c47ac…2c4940 Dummy {f00=0x00e0, f01=0x40c0, f02=» . H IDENT D:CB10 TRA 5.0 80-03-27 F1 O1111 D:CB10 6 D:CB10C H * & . & & & & . @ & & = & [ & y
0x2c4940…2c4ad4 (3, 73) Dummy {f00=0x00e0, f01=0x0190, f02=» . H IDENT C:CB90 TRA 5.0 80-03-27 F1 O1111 " C:CB90 " 6 C:CB90C " H * & " * & " * & = " & [ " & y " &
0x2c4ad4…2c4c68 Dummy {f00=0x00e0, f01=0x4028, f02=» ` " K ` # @ # $O1111 " C:CB90 " 6 C:CB90C " H * & " * & " * & = " & [ " & y " &
0x2c4c68…2c4dfc Dummy {f00=0x00e0, f01=0x0190, f02=» . H IDENT :DB10 TRA 4.1 - - F1 O1111 % :DB10 % 6 :DB10D % H & % & % | & = % & [ % & y % & % & % & % & % & %
0x2c4dfc…2c4f90 Dummy {f00=0x00e0, f01=0x40c6, f02=» % & ; & & Y & & w & , & & < & & L & & & & l & & | + & 8 & + 8 & @ &
0x2c4f90…2c5124 Dummy {f00=0x00e0, f01=0x0190, f02=» @ H IDENT DEDISC TRA 5.0 80-02-11 F1 O1111 UPD 80-02-11/CHST : 6 COND DEDISC RELEAS RETURN SCHPOO STRT01 WAIT H $$$TRAD @ < COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 WAITR d > : CHANFCM CLSBTHR DELBTCA
0x2c5124…2c52b8 Dummy {f00=0x00e0, f01=0x0190, f02=»REVT NEXFMTS NEXJOB NXBTH NXJOB r > : OPNEBCd OPNNBCA PREFMT0 PREJOBF RECURR SCHFMT- SCHJOBH ( 2 . T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO j 7 : 0 .
0x2c52b8…2c544c Dummy {f00=0x00e0, f01=0x0190, f02=» # $ $ % B & 0 ' @ ( , P ) 7 ` * F p + , - . / 7 0 ( 1 4 2 & 3 2
0x2c544c…2c55e0 Dummy {f00=0x00e0, f01=0x4170, f02=»RRRRRRRRRRRRRHh R! R( ` H J M 0 n Q @ p R t < b ~ M r J F " D @ Hi L R4 $ !"4 "!4 !!4 I! @g L0R 0X ;V # R4 > Q
0x2c55e0…2c5774 (3, 74) Dummy {f00=0x00e1, f01=0x0190, f02=» @ H IDENT DKRUT1 TRA 5.0 80-03-25 F1 O1111 UPD 80 01 18/CHST B > CLSBTH DISU DLCURR DLRCCH FREESP GTNEXT GTPREV OFRSP H B > HRDT RDACC RDDSA RECURR0 REFSP RFRSPHWR WRDS8 WRFSP WRIACC WRICUR WRTCO $$$TRAA @ < CLSBTH
0x2c5774…2c5908 Dummy {f00=0x00e1, 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 *
0x2c5908…2c5a9c Dummy {f00=0x00e1, f01=0x0190, f02=» K k P T ( 8 ` H h X n h v " x x J F " D @0R f ? P RKj R4 0R f > R4 0R f > R4 @j0X L0R P 6
0x2c5a9c…2c5c30 Dummy {f00=0x00e1, f01=0x0190, f02=»R h bC * )bC*< ^ k , < L k l | J F " D x 0R f C? V R R4 R0R f C? V RKj h x b )*C b <C* R4 Ic
0x2c5c30…2c5dc4 Dummy {f00=0x00e1, f01=0x0190, f02=» _ R R# CR b s <C*j s)" R4 R CL n O , T < X - L a DS o _ n t - ~ J F " D @bC*< s j " s) R$ C R4 R V A` Lb " j $" RuV> R u j " " S _ S
0x2c5dc4…2c5f58 Dummy {f00=0x00e1, f01=0x0190, f02=» _ * S : J S l | J F " D "* u H` *?R R R ?R Ru?R _ Ru) L ?Rj " $ R :R 0 j " " _
0x2c5f58…2c60ec Dummy {f00=0x00e1, f01=0x0190, f02=» _ d j F ( n F 8 J F " D @ ` !"` b 1AiW-j " - R R R R R R_9 RW Ie Ae "_ *" H J F " D ! Ah R4 R 0R ` !( ! Ah R4 ! ! >
0x2c60ec…2c6280 Dummy {f00=0x00e1, f01=0x0190, f02=»j " R R R R R R d F " 2 B # R + b J F " D _a R_) +_% R 0R 4 ! ! ! R" V 0X_ " b )*C b <C* r Y y J F " D @ !4 "bC * )bC*< R& 4 @
0x2c6280…2c6414 (3, 75) Dummy {f00=0x00e1, f01=0x40ba, f02=» R RCj "" R W R ( A I 'W n , < L 4 / - R R j " $j $" R R Ic ! R R4 " l @ r Y y J F " D @ !4 "bC * )bC*< R& 4 @
0x2c6414…2c65a8 Dummy {f00=0x00e1, f01=0x018e, f02=» @ H IDENT DKRUT2 TRA 5.0 - - F1 O1111 UPD 80-01-21/CHST , ( DELFMT ENTFMT NEXFMT OPCL PREFMT H $$$TRAR x 6 2 DELFMT ENTFMTN NEXFMTC OPCLM PREFMT @ < ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLD DISU1 DLRCCHT B >
0x2c65a8…2c673c Dummy {f00=0x00e1, f01=0x0190, f02=» | $ ( 4 $ SYSFIL D * Z 4 j J F " D 2 RRRRH 0X_ A"T|A @c d!!"d!!o L j!0R f!C P 0R f!C @" 4 z L U X d
0x2c673c…2c68d0 Dummy {f00=0x00e1, f01=0x0190, f02=» , ( 8 H J F " D Q h! R"! [ R3@ R4 H"#@" d!!"d! R!T R!!CT R"!C0R f!C R4 X ( PTS-DE
0x2c68d0…2c6a64 Dummy {f00=0x00e1, f01=0x0190, f02=»` R#! RTjb " % j !! jz " ! A`j !'! R$! P A` RR$ ! ! A H M X Q h Y x _ u y J F " D @ R" T h R" RP h R& 0R f C 5@# d !W H` L@ R4 H#4@
0x2c6a64…2c6bf8 Dummy {f00=0x00e1, f01=0x0190, f02=» R& R#! T j ! ! R$! T 0R f C R4 j? " )(? x 6 H 0 X j * z " " J F " D ?Lj " '( ! ?0R * 6 LW > / p R4 R:R R !:R
0x2c6bf8…2c6d8c Dummy {f00=0x00e1, f01=0x0190, f02=»jC L E J " ^ * b " : j J s FC Z H F " D @&" R" C?R W j "C$ U R !:RjC$" R" C * CLjC"" jC$" n " J
0x2c6d8c…2c6f20 Dummy {f00=0x00e1, f01=0x0190, f02=» J F " D R" C:RH` _ LjC " _V A`_1Ab t 0R P v$ w Ib w4(v & X " h * x " " " * " J F " D R$C*:R v w w( R:R R!vCV ! L ?R ) v
0x2c6f20…2c70b4 (3, 76) Dummy {f00=0x00e1, f01=0x0190, f02=» & L * " * & : " J Z " j z J F " D C ?R R<R @c R$C*:R &j "C&fC * *jC&" " * @c RC:R R" C " "
0x2c70b4…2c7248 Dummy {f00=0x00e1, f01=0x4092, f02=» )( ) )?Rj "C$jC " R" C:R R ! % R! C:R x F 6 $ H b "C L9 R !j "C$_! X |@ ?R R<R @c R$C*:R &j "C&fC * *jC&" " * @c RC:R R" C " "
0x2c7248…2c73dc Dummy {f00=0x00e1, f01=0x0190, f02=» @ H IDENT DKRUT3 TRA 5.0 80-03-25 F1 O1111 UPD 80-01-21/CHST D @ ALGO DELTBL ENTSYS ENTTBL GETFMT GETSYS GETTBL NOFFRE H NXPRFMR SCHFMTA SFMTCH0 $$$TRAD @ < ALGOF DELTBLA o ENTSYS0 ENTTBL1 ; GETFMT8 GETSYSH 8 4
0x2c73dc…2c7570 Dummy {f00=0x00e1, f01=0x0190, f02=»POOD STRT01R WAITN * : F J x # l ' | , 1 : > J F " D v R:R RL '6 (t ]@c R$C*:RCa<R C[ R! C R
0x2c7570…2c7704 Dummy {f00=0x00e1, f01=0x0190, f02=»!C( j !!C) R! V -?R t_Y n , < L J F " D j <C*j )*C ! ! R! CV R& _oj "C$j !! (_3 R$ R&q l F
0x2c7704…2c7898 Dummy {f00=0x00e1, f01=0x0190, f02=» . > : N A T ^ J F " D 1 ! + R"%C?R R:R R!%CP C[ * !b| 1C 1 ! + ?RA`Wg p Q V X d
0x2c7898…2c7a2c Dummy {f00=0x00e1, f01=0x0190, f02=» , < T L ^ n _ ~ J F " D R! C<Rj "C$ R !<R & _ RLA%6 R:Rb "A! % L !?R
0x2c7a2c…2c7bc0 Dummy {f00=0x00e1, f01=0x0190, f02=» J F " D R!'CP L<R H`l CL R"'C:R " *j "C ( H`O R !:RjC " R"'C: R b J F " D R _ Ca R! C<R j !!C)*U !j "C$ !H` 1h r !C(!X _ ) r A E B M S c
0x2c7bc0…2c7d54 (3, 77) Dummy {f00=0x00e1, f01=0x416a, f02=» *Hc R 0 J F " D R W R V ! L0W< "j " &h & &V! ! j " $ _E B J F " D )W &j " R4 "@c$ " Ac R R j " $j " * ` R4
0x2c7d54…2c7ee8 Dummy {f00=0x00e1, f01=0x0190, f02=» @ H IDENT DKRUT4 TRA 5.0 80-03-25 F1 O1111 UPD 80-02-25/CHST B > DELBTC DELJOB ENTJOB GETJOB NEXJOB NXBTH NXJOB OPNEBC H & " OPNNBCR PREJOBA READJB0 SCHJOBF $$$TRA @ < DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB- NXBTH 4
0x2c7ee8…2c807c Dummy {f00=0x00e1, f01=0x0190, f02=» @ < RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS WRFSP H X h x # . 3 ; = J F " D A`Ad R:RAc
0x2c807c…2c8210 Dummy {f00=0x00e1, f01=0x0190, f02=» R } J F " D @:R *mj " &" pz R j " "j &" R :R * Lj "" j $" R@ * x JC m J F " D R :Rj " " Ru :Rj "u "j &" R
0x2c8210…2c83a4 Dummy {f00=0x00e1, f01=0x0190, f02=» D $" *_zj $" R :R Lj "" R _(j " &" p _z R :Rj $" L : l J F " D R :R *_ j " j " & "ju " I` WY * ,j &" f , R R7" | C F J L
0x2c83a4…2c8538 Dummy {f00=0x00e1, f01=0x0190, f02=» u , ) R ) * : J Z J F " D ?Rj ! b !& b '&@ R) V5 ! ! R" :R R* s [j s)" Id j
0x2c8538…2c86cc Dummy {f00=0x00e1, f01=0x018e, f02=» JD & J F " D ?R R Ru) L ?R L?R R:R RVJ! L ) ?R W R !:R CLjC"" ( v " ' 0 5 :
0x2c86cc…2c8860 Dummy {f00=0x00e1, f01=0x0190, f02=» W Z _ * b : j L y J F " D @ @bT # R:R R! CV ! L ?R )?R Lb &C 0R Hb R_Cj " l J
0x2c8860…2c89f4 (3, 78) Dummy {f00=0x00e2, f01=0x0190, f02=» . > N ^ J F " D & b & ! R& R ?R L?RKa %_1Aa_ R R:R@c RCH H n
0x2c89f4…2c8b88 Dummy {f00=0x00e2, f01=0x0190, f02=» Z ] u w , < J F " D @# *RnH`. $* j " $ Z R :Rj " &* *K ,H` b & ?R0R@T$ @ R L
0x2c8b88…2c8d1c Dummy {f00=0x00e2, f01=0x4086, f02=» J F " D ! CR)j "C&" * LW Lb &C j "C$ 0 ) R4 j " "b & &4 p@ ?R0R@T$ @ R L
0x2c8d1c…2c8eb0 Dummy {f00=0x00e2, f01=0x0190, f02=» @ @ IDENT OK:SUB PRR 10.0 80-02-04 870136641000 OK:SUB VOLNAM H b ( ( 0OK? 0OUTPUT VOLUME NAME: v , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8
0x2c8eb0…2c9044 Dummy {f00=0x00e2, f01=0x4022, f02=» P @ R 10.0 80-02-04 870136641000 OK:SUB VOLNAM H b ( ( 0OK? 0OUTPUT VOLUME NAME: v , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8
0x2c9044…2c91d8 Dummy {f00=0x00e2, f01=0x0190, f02=» @ @ IDENT DK2IPL PRR 10.0 80-02-04 870136641000 6 2 IPL121 IPL122 IPL123 IPL221 IPL222 IPL223 H IPL121 IPL221 IPL122 IPL222 IPL123 IPL223 , (
0x2c91d8…2c936c Dummy {f00=0x00e2, f01=0x0190, f02=» G. ] ] , ( S S S S % =A S S S * , ( . Z , ( N 0 N S , ( W P , ( X _ R R "( R
0x2c936c…2c9500 Dummy {f00=0x00e2, f01=0x4184, f02=» S t w E z QBLFAC , ( M % n : , , ( P #P ( B. , ( T P ' " P : P S P S P " `_" H D ! F v %P / 5 4 IT s $ }
0x2c9500…2c9694 (3, 79) Dummy {f00=0x00e2, f01=0x0190, f02=» @ @ IDENT DK3IPL PRR 10.0 80-02-04 870136641000 6 2 IPL131 IPL132 IPL133 IPL231 IPL232 IPL233 H IPL131 IPL231 IPL132 IPL232 IPL133 IPL233
0x2c9694…2c9828 Dummy {f00=0x00e2, f01=0x0190, f02=»; l , ( G. ] , ( ] S S S S % =A S S < , ( ! S . l , ( A N 0 N S , ( a W P , ( X
0x2c9828…2c99bc Dummy {f00=0x00e2, f01=0x018e, f02=» % R ' P % =B S , ( t w E M % t R Q @ , , ( ! Q R %| _B QBLFAC * ( A _& : H , ( _ P #P ( B. , ( T
0x2c99bc…2c9b50 Dummy {f00=0x00e2, f01=0x407a, f02=» J H D ! M Q ] cW i P R U P P R. Q& /Q _P gP T T d@ v%| _B QBLFAC * ( A _& : H , ( _ P #P ( B. , ( T
0x2c9b50…2c9ce4 Dummy {f00=0x00e2, f01=0x018e, f02=» @ @ IDENT FLDIPL PRR 10.0 80-02-04 870136641000 IPL811 IPL812 IPL813 H IPL811 j IPL812 ~ IPL813 , ( t v @0 UU , ( ! 3 2P _ , ) , (
0x2c9ce4…2c9e78 Dummy {f00=0x00e2, f01=0x0190, f02=» f , ( M % T S , ( . N 0 N 8 , ( S W h , ( P X _ R R " R R QBLFAC , ( ! & P ,
0x2c9e78…2ca00c Dummy {f00=0x00e2, f01=0x40ee, f02=»w j , ( E M T 1 E _ M @ p : : H D ! F %P / 5 4 IT s } $ < T @ < T " P 8 4 " W " P < - " =P EP _T T @ P ,
0x2ca00c…2ca1a0 Dummy {f00=0x00e2, f01=0x018e, f02=» @ @ IDENT MFDIPL PRR 10.0 80-02-04 870136641000 IPL311 IPL312 IPL313 H IPL311 j IPL312 ~ IPL313 , ( "? UU 3 2P _ , ( ! , 5 T G. , (
0x2ca1a0…2ca334 (3, 80) Dummy {f00=0x00e2, f01=0x0190, f02=» f , ( . N 0 S , ( N S W 8 , ( P X _ R R h , ( "? R R h:B* S , ( ! R P S B J 4R 4 :B , ( A 4
0x2ca334…2ca4c8 Dummy {f00=0x00e2, f01=0x412a, f02=» # j , ( P ( B. T P , ( ' " P : P S P S P : % `_" j H D ! 6 t P % 4 9T c ( m u y } D @ & W P 'P 9R OV SV aR P P
0x2ca4c8…2ca65c Dummy {f00=0x00e2, f01=0x8190, f02=» . H IDENT C:CB10 TRA 5.0 - - F1 O1111 C:CB10 6 C:CB10C H & & p & = & [ & y & & & & & & -
0x2ca65c…2ca7f0 Dummy {f00=0x00e2, f01=0x8190, f02=» ; & Y & w & 0 & @ & P & ` & p & + & I & g & & & & & &
0x2ca7f0…2ca984 Dummy {f00=0x00e2, f01=0x8190, f02=» ) & G & e & 0 & @ & P & ` & p & & 7 & U & s & & & & &
0x2ca984…2cab18 Dummy {f00=0x00e2, f01=0x8190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x2cab18…2cacac Dummy {f00=0x00e2, f01=0x8190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x2cacac…2cae40 Dummy {f00=0x00e2, f01=0x8190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x2cae40…2cafd4 (3, 81) Dummy {f00=0x00e2, f01=0x8190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x2cafd4…2cb168 Dummy {f00=0x00e2, f01=0x8190, f02=» & & & ) 0 & G @ & e P & ` & p & & & & & 7 & U & s & &
0x2cb168…2cb2fc Dummy {f00=0x00e2, f01=0x8190, f02=» & & & 0 & 5 @ & S P & q ` & p & & & & & % & C & a & &
0x2cb2fc…2cb490 Dummy {f00=0x00e2, f01=0xc072, f02=» & & 0 H @ n p & & & & & % & C & a & &
0x2cb490…2cb624 Dummy {f00=0x00e2, f01=0x0190, f02=» @ H IDENT CRESUD TRA 5.0 80-03-19 F1 O1111 UPD 80-03-19/CHST CRESUD H $$$TRAE Z CRESUD l D @ CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSECT/ T:ATTF T:ERAS .
0x2cb624…2cb7b8 Dummy {f00=0x00e2, f01=0x018e, f02=» a0 g h " l 2 p k B q * R r b v r w { } J F " D @ L ( ! (_& !P !_> TL!DL !DL KM1XFA R2 RRR_ 1XF_ R0R f
0x2cb7b8…2cb94c Dummy {f00=0x00e2, f01=0x0190, f02=» S J F " D !CMHP HIP R KL1XFA R2 RRR_ >L RJ YjB'!P!0X !% LjB&! jB(( & 1 t 2 0 2 0 2 J F " D K bB0&J LjB !!! LjB "> !DL jB "= !DL XjB ! ! WjB " W X
0x2cb94c…2cbae0 Dummy {f00=0x00e2, f01=0x0190, f02=» $ & FILE " $ 6 & F NO. T $ h & x OF RECORDS: $ & ZZZZX " Y & &
0x2cbae0…2cbc74 (3, 82) Dummy {f00=0x00e3, f01=0x0190, f02=» & " NO. OF SECTORS/RECORD: $ < & L ZZX ^ " X r $ & & & [ ( : & [ USERDEFINEDO
0x2cbc74…2cbe08 Dummy {f00=0x00e3, f01=0x018e, f02=»NAME: $ & & K 0 & K > SIZE L $ ` & p OF RECORDS:O ~ $ & ZZZZX " W & BLOCKING FACTOR:
0x2cbe08…2cbf9c Dummy {f00=0x00e3, f01=0x4128, f02=» ( & [ $ NO. 2 $ F & V OF RECORDS:C d $ & ZZZZX " Y ( : 5 3 LjB " LjB " LjB " 0RB , ! 4 R) :_
0x2cbf9c…2cc130 Dummy {f00=0x00e3, f01=0x0190, f02=» 2 @ IDENT ASSRUT UPD 80-03-20/CHST D @ CHANFC CREVOL CREFIL DELFIL GETVOL COPYDD GETFRE CHVOL : J F " SURVEY UPDBOL UPDBIN SETB TESTB CLEARB MSKOUT RDSECT SETOCC D @ SETFRE VOLNAM ATTWB CMPIND GETIND RESTOR WRITDK
0x2cc130…2cc2c4 Dummy {f00=0x00e3, f01=0x0190, f02=» H F C W , ( A , * & 5 I:RT1 CREFIL CRFILE DELFIL d DLFILE , ( Q B '
0x2cc2c4…2cc458 Dummy {f00=0x00e3, f01=0x0190, f02=» B n , ( D $ ' Y ' GETFRE > , ( _ P P <<HT _ R , ( R <A_ <A <a ^ <h = F F , ( " ) '_V CHVOL . , (
0x2cc458…2cc5ec Dummy {f00=0x00e3, f01=0x0190, f02=» PRVTOC , ( q ( ( T ( UPDBOL J UPDBIN ^ , ( & G r , ( F ' R : <<H SETB , ( P < :
0x2cc5ec…2cc780 Dummy {f00=0x00e3, f01=0x0190, f02=» _> _D ~ RDSECT ( , ( BH & 9 & C 2 , ( 5 C C ( b SETFRE ` , ( S ( ( , ( o & X X P T Z0 , (
0x2cc780…2cc914 (3, 83) Dummy {f00=0x00e3, f01=0x0190, f02=» p , ( & &9B %_ ( = RESTOR @ , ( _ _ & T GETIND , ( & ( : CMPIND . , ( !D" ' _ &
0x2cc914…2ccaa8 Dummy {f00=0x00e3, f01=0x0190, f02=» , ( s & C & C C ( CLOSEF 4 , ( B XR R_P W & Y < * C H OPENF x , ( _& , ( P ) B , ( & 9
0x2ccaa8…2ccc3c Dummy {f00=0x00e3, f01=0x4044, f02=»V P, T R ;U AQ UW W .@ @ , ( B XR R_P W & Y < * C H OPENF x , ( _& , ( P ) B , ( & 9
0x2ccc3c…2ccdd0 Dummy {f00=0x00e3, f01=0x416e, f02=» @ @ IDENT DUMEN2 PRR 10.0 80-02-04 870136641000 F B IPL111 IPL112 IPL113 IPL211 IPL212 IPL213 IPL411 IPL412 H IPL413 IPL111 IPL112 IPL113 IPL211 IPL212
0x2ccdd0…2ccf64 Dummy {f00=0x00e3, f01=0x018e, f02=» @ @ IDENT FILHND PRR 10.0 80-02-04 870136641000 CRFILE DLFILE H , ( b , ( ! , ( A CRFILE l , (
0x2ccf64…2cd0f8 Dummy {f00=0x00e3, f01=0x0190, f02=» f , ( h A f A d Y A d A , ( f @ hW S 1 A d S 2 8 , ( P A f A : h FIRFC , ( ! R P # A R Q , ( ? ( B T ( B T C C , (
0x2cd0f8…2cd28c Dummy {f00=0x00e3, f01=0x0190, f02=» @ R 0 $ x , ( ' R T W $ T A L R , ( ( !LLP @ T A . A 0 R 1 R H , ( !* 8 A @ R 6! A >P A D A F @ . @ x ADDMOD , ( J 0 A . A 0S @ D @ F DSUMOD , ( ;
0x2cd28c…2cd420 Dummy {f00=0x00e3, f01=0x0190, f02=» Y4W R 6:B A A @ LP @ A > , ( UB @ A @ @ f A N @ f Y P @ f , , ( T A f @ @ @ f P Y , ( P @ @ A A A R , ( " A A A . A `9H A ^ , ( ) 1 A A A A
0x2cd420…2cd5b4 (3, 84) Dummy {f00=0x00e3, f01=0x0190, f02=» : @ ^:c A b A | , ( 2 A 4 A 6 A 8 @ A * @ A , A , ( D @ * @ , A * A , @ D L , ( E R 0 A . 0 A 0 @ . | , ( % T @ 0X" @ . @ 2R Q @ 0 @ 4R , ( UQ / @ . A 2 @ 0 A 4 @ . @ ZTQ @ 0
0x2cd5b4…2cd748 Dummy {f00=0x00e3, f01=0x0190, f02=» A l , ( . @ A 0W T Q 1 Q Q , ( " P R A R @ A Z A @ ^ C < , ( B ( C @ X /T @ jT l , ( A j : W W : _ @ T , ( T / _ _ R @ A . @ A 0 !LL , ( !@ O P @
0x2cd748…2cd8dc Dummy {f00=0x00e3, f01=0x0190, f02=» A 2 A 4 @ B P A : P , ( T A < @ . @ 0 P P Q Q , , ( " @ 2 Q @ 4 1 P , ( IB A 2 0 A 4 A . A 0 @ f , ( H ) A . A 0 @ . @ 0 @ f , ( U! E A . A 0 @ 2 @ 4 @
0x2cd8dc…2cda70 Dummy {f00=0x00e3, f01=0x0190, f02=»T Q Q @ 2 Q @ | , ( B 4 1 @ @ @ . @ 0 A A , ( U A 2 A 4 @ LP @ > @ @ @ . @ 0 L , ( @ A > A @ | , ( E A A @ : A j , ( ; : P . P @ LP
0x2cda70…2cdc04 Dummy {f00=0x00e3, f01=0x0190, f02=» @ l , ( X / R 6 P J S , ( T $ 1T P _ X` < , ( " _2 A : @ T @ l , ( B Q : " @ , ( ; @ K @ K @ . K @ , ( [ 0 K
0x2cdc04…2cdd98 Dummy {f00=0x00e3, f01=0x0190, f02=» . " R !LLP R , ( 6 K % R 4 K & K ( K ) ( @ , , ( X / : @ T @ , ( !R Q : " @ A , ( ; 2 A R @ d % @ R , ( [ R 2 R 1 % Y
0x2cdd98…2cdf2c Dummy {f00=0x00e3, f01=0x0190, f02=» @ H @ J @ f @ LP | , ( B @ N A H A J @ . @ HYXR @ , ( T 0 @ JYd @ : A H @ < A J @ d C L , ( * @ H A Z @ J A ( C @ | , ( 7 X / @ H @ J @ f @ LP @ , ( Q W N A H A J @ . @ HY`R @ 0
0x2cdf2c…2ce0c0 Dummy {f00=0x00e3, f01=0x0190, f02=» l , ( @ 0 A @ : @ < BINACR < , ( @ . @ 0 N , ( " @ T A A ~ DLFILE F , ( 1 ( P @ : A , ( Q T @ T :
0x2ce0c0…2ce254 (3, 85) Dummy {f00=0x00e3, f01=0x0190, f02=» " @ - ( , ( DD @ X / J A J A . J " , ( DP A 0 J A : J A < R @ R , ( ^9c A b @ b 0 A B , ( ) 1 0 A D @ BT @ D P @ :T P , ( * Q @ < r A D A F A @ @ B @ D
0x2ce254…2ce3e8 Dummy {f00=0x00e3, f01=0x018e, f02=» @ . @ 0 r , ( Q 1 P A . 0 A 0 @ D @ F , ( @ @ @ T _ ] = ] ] r A B , ( ( D A F A @ P P @ . @ 0 r , ( UU + A B A D @ D @ F @ @ @ : @ B , ( U K @ < @ D @ : Q @ < Q _ , ( ID k
0x2ce3e8…2ce57c Dummy {f00=0x00e3, f01=0x0190, f02=» , ( 9 VOLUME NAME FILE EXT , ( .NO EXTENT BASE EXTENT LENGT 4 ( H A d ( + $ K DELETED H D ! P P b P< W 5R ;Q KTH WT< oP uW Q H D !
0x2ce57c…2ce710 Dummy {f00=0x00e3, f01=0x4188, f02=» T^ R H D ! T T W W -T OPJ YT e 2 Rn W4 ~ T P H D ! X KP2 SP* YP P T T P T Q ? T P T !Q Z H D ! ? P R SP oR Q6 2 ; H D ! K Q T Z #
0x2ce710…2ce8a4 Dummy {f00=0x00e3, f01=0x0190, f02=» @ @ IDENT PRVTOC PRR 10.0 80-02-04 870136641000 PRVTOC H , ( 1 0 0VOLUME NAME: Z , ( ! DISC: , ( A 0FREE SPACE TAB ( ( a LE 0EXT BASE EXT LE
0x2ce8a4…2cea38 Dummy {f00=0x00e3, f01=0x0190, f02=» FILE FI v ( ( LE FILE RECORD BLOCK LAST , ( FILE FILE CREATION RET INDE B , ( ! X KEY MONITOR SWITCH NAME r , ( A EXT BASE EXT LEN ORG LENGT , ( a H FACT REC NO SEC NO EXT NO D ( (
0x2cea38…2cebcc Dummy {f00=0x00e3, f01=0x0190, f02=» ( - : PRVTOC . , ( C ( B : 2 A B FIRFC r * & D ! A B A R A R A CDISCT , ( ? P A * P A , A , ( @ Y "' R
0x2cebcc…2ced60 Dummy {f00=0x00e3, f01=0x0190, f02=» 2 , 9 TO , ( A 4 4 I 2 Y " , ( )I $ 0 , A N R , ( , A F , A H " , A J @ J , ( @ 9 A >c A L C ( B , ( Y . B & A
0x2ced60…2ceef4 (3, 86) Dummy {f00=0x00e4, f01=0x0190, f02=» 4 | BIDACR $ , ( P YBW YL @ B 6 , ( PJ @ L f , ( R n : n , ( P 1 N F D J , ( B Q D
0x2ceef4…2cf088 Dummy {f00=0x00e4, f01=0x0190, f02=» J U !LLT J , ( " c J " k & , ( - U 8 U T U ZW - U d U l J V , ( 8 J ? J , ( ) J J J , ( G@ . J J
0x2cf088…2cf21c Dummy {f00=0x00e4, f01=0x0190, f02=» J & X v , ( H R p $ ! R ! , ( __Q Y . % Y p W A F , ( @ v , ( R & W 9 W W W : H D ! : cR$ i
0x2cf21c…2cf3b0 Dummy {f00=0x00e4, f01=0x4008, f02=»@ X v , ( H R p $ ! R ! , ( __Q Y . % Y p W A F , ( @ v , ( R & W 9 W W W : H D ! : cR$ i
0x2cf3b0…2cf544 Dummy {f00=0x00e4, f01=0x018c, f02=» . H IDENT C:CB40 TRA 5.0 80-03-27 F1 O1111 C:CB40 6 C:CB40C H & & p & = & [ & y & & & & & & -
0x2cf544…2cf6d8 Dummy {f00=0x00e4, f01=0x4008, f02=»@ NT C:CB40 TRA 5.0 80-03-27 F1 O1111 C:CB40 6 C:CB40C H & & p & = & [ & y & & & & & & -
0x2cf6d8…2cf86c Dummy {f00=0x00e4, f01=0x018e, f02=» @ H IDENT WRIT12 TRA 5.0 80-03-10 F1 O1111 UPD 80-03-10/CHST REC1 REC2 RECSYS H $$$TRAI f REC1 REC2R e RECSYS x DSKERRI SETBT WRITDK I &0 I >0 I B0 J F " D
0x2cf86c…2cfa00 Dummy {f00=0x00e4, f01=0x0190, f02=» y0 J F " D @^!L ^!j %" j '" j )"? 0R f! ?S:R4 L Y L!DL ( 0 h J F " D !W X " ! ! , P ! !DL z 0 J F " D (W " ! $!DL )W !
0x2cfa00…2cfb94 (3, 87) Dummy {f00=0x00e4, f01=0x0190, f02=» 0R ! !( Y ^ , b > J F " D @ ( j ! _V !# L L_ 0R f! ?SR& ! !P S S !( N 0 JC JD FC J F "
0x2cfb94…2cfd28 Dummy {f00=0x00e4, f01=0x4050, f02=» !W S% L !W S' L !j " 0R f! ?SZZ7 A6+ _e :@ L D @ ( j ! _V !# L L_ 0R f! ?SR& ! !P S S !( N 0 JC JD FC J F "
0x2cfd28…2cfebc Dummy {f00=0x00e4, f01=0x018e, f02=» @ H IDENT DSKERR TRA 5.0 80-03-24 F1 O1111 UPD 80-03-24/CHST hAPP DSKERR H $$$TRAK ^ hAPP DSKERR p 4 0 CHANFCK CLOFILA DERR GETVOL4 T:DISP1 T:ERAS8 <
0x2cfebc…2d0050 Dummy {f00=0x00e4, f01=0x018e, f02=» $ @ 4 B D J F " D 0X ! R R4 2 RRRRRRRRRRRRRRR "W #W &W + #4 _ j ! T D Y0 H N0 Y 10 ] 20 a 30 g0 0
0x2d0050…2d01e4 Dummy {f00=0x00e4, f01=0x0190, f02=» J F " D W T b_W Y Y0X ""_d)DL) W ! X ! ?Y T Q R 0 'g d x c J F " D P LW T X L ( Y Y0X ##_ 4 _ P R0X
0x2d01e4…2d0378 Dummy {f00=0x00e4, f01=0x018e, f02=» K 7 L 7 M 7 $ N 7 4 O * D P * T Q 7 d R 7 t S * U * ] c _ c i r w 7
0x2d0378…2d050c Dummy {f00=0x00e4, f01=0x018e, f02=» 0 0 & 7 8 % H / X * h J F " D 0X "" QPjB&!P!0R P0R CH ( 0X !!!ZL !ZL (HI ?R?R?R ( E ?R x c
0x2d050c…2d06a0 Dummy {f00=0x00e4, f01=0x0190, f02=» H 7 # ( + 8 3 H ; X ; h * x 7 7 * " 7 * 7 2 7 : 7 ? 7 J F
0x2d06a0…2d0834 (3, 88) Dummy {f00=0x00e4, f01=0x405a, f02=» 7 6 1 / @?R X X !U LY W ! Q _f Lj?RjP!!OP4 b k D@ V
0x2d0834…2d09c8 Dummy {f00=0x00e4, f01=0x018e, f02=» @ @ IDENT CRVOL PRR 10.0 80-02-04 870136641000 CRVOL QBLFAC TOSREL H QBLFAC h | K J , ( - * ( W NU
0x2d09c8…2d0b5c Dummy {f00=0x00e4, f01=0x0190, f02=» , ( SECTORS TOSS REL 10.0 , ( Z 8 , ( $ A D A D A D A h , ( D A [ : Z $ A D A , ( 7 D A D A D A [ , ( D W : Z $
0x2d0b5c…2d0cf0 Dummy {f00=0x00e4, f01=0x0190, f02=» : : , ( : < 2 C C ( ( , ( B & B .P " T X CRVOL , ( : A @ A @ A 2 & IPL811 IPL812 IPL813 * & 7 R ' P
0x2d0cf0…2d0e84 Dummy {f00=0x00e4, f01=0x0190, f02=»[+ l IPL411 IPL412 IPL413 , ( [h 4 &[4 4 P X . , ( rS S E &q+ ^ IPL111 IPL112 IPL113 , ( W R &? &@ X IPL121 IPL122 IPL123 * &
0x2d0e84…2d1018 Dummy {f00=0x00e4, f01=0x0190, f02=» " $ &? &@ IPL211 IPL212 IPL213 " , ( / W R X & ( * D IPL221 IPL222 IPL223 t , ( @ I * L L P X , . 0 IPL231 IPL232 IPL233 , ( c 1g 1h P
0x2d1018…2d11ac Dummy {f00=0x00e4, f01=0x0190, f02=» ( B x , ( " P C C VOLNAM H , ( ( C 8 < Z , ( 2 C I I " C ( , ( ; ( C W B 9 , ( [ R ! T :
0x2d11ac…2d1340 Dummy {f00=0x00e4, f01=0x0190, f02=» C ' P ( z , ( C ( B R % R E R , ( E B N % Z J , ( R R E ( ( ( z , ( UU 9 A V A X A , A J A J , ( T Y A A 2 ,
0x2d1340…2d14d4 (3, 89) Dummy {f00=0x00e4, f01=0x0190, f02=» j , ( T B & B P , ( T @ J ) I : , ( * A J @ @ U Y j , ( $ 9 A @ Y A @_ A , ( H Y A @_ A @ A 2 , ( @ y .
0x2d14d4…2d1668 Dummy {f00=0x00e4, f01=0x0190, f02=» P W T , ( T P W $ * , ( ( Y P _2 W Z , ( @ 9 T @ J A , ( Y @ T @ , ( y Q A 2 Q @ A
0x2d1668…2d17fc Dummy {f00=0x00e4, f01=0x0190, f02=» P W T z , ( @ T P W , ( J $ Y P _2 J , ( 9 @ T @ U Q z , ( @ Y A @ Q A @W T P , ( H* y @ JV A ,
0x2d17fc…2d1990 Dummy {f00=0x00e4, f01=0x0190, f02=»Q j , ( R D H R Q W ,^` - , ( @ $ M _> H ,^| - ( M : , ( @ 9 _ @ Q ,^ ( M H j , ( Y - _" @ JQ ,^ $ M D BIDACR , ( y - _" A u :
0x2d1990…2d1b24 Dummy {f00=0x00e4, f01=0x0190, f02=» < 1 Q ~ , ( @ Q _* @ W @ , ( @ @ <Q 1 Q A @ N , ( 1 A @ 2 ~ , ( Q P T 0P 0 % % , ( A q @ Q _4 _ %
0x2d1b24…2d1cb8 Dummy {f00=0x00e4, f01=0x0190, f02=» l , ( ( A @ A @ Q , ( U _ 2 % 2 < , ( - * % Y : 2 * l , ( M @ Q P * BA % DS % , ( m PO % T % 5 Y , (
0x2d1cb8…2d1e4c Dummy {f00=0x00e4, f01=0x0190, f02=» " T ` A 9A D 2 , ( @ R V 2 , , ( - U A ]D 2 2 , ( M @ % % , ( @ m Z ) % % Z @ % @ , ( @ % @ %
0x2d1e4c…2d1fe0 Dummy {f00=0x00e4, f01=0x0190, f02=» T . : | H D ! @ S V P T EP KP o P W P P 1Wf WP@ H D ! yP W T P T ; T I T SW [R _T i q ` H D ! P T Tv P& T 1U, P Wl P W H D ! T T P
0x2d1fe0…2d2174 (3, 90) Dummy {f00=0x00e5, f01=0x40c6, f02=» ! W W W W Qv QN Q* R R Q W EQ> gQ QT Q4 H D ! Q W Q UT YP( uQ T R Q U( UQ [Pl W T R L @ %V T @ P& T 1U, P Wl P W H D ! T T P
0x2d2174…2d2308 Dummy {f00=0x00e5, f01=0x0190, f02=» . H IDENT C:CB10 TRA 5.0 80-03-27 F1 O1111 C:CB10 6 C:CB10C H & & p & = & [ & y & & & & & & -
0x2d2308…2d249c Dummy {f00=0x00e5, f01=0x0190, f02=» ; & Y & w & 0 & @ & P & ` & p & + & I & g & & & & & &
0x2d249c…2d2630 Dummy {f00=0x00e5, f01=0x0190, f02=» ) & G & e & 0 & @ & P & ` & p & & 7 & U & s & & & & &
0x2d2630…2d27c4 Dummy {f00=0x00e5, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x2d27c4…2d2958 Dummy {f00=0x00e5, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x2d2958…2d2aec Dummy {f00=0x00e5, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x2d2aec…2d2c80 Dummy {f00=0x00e5, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x2d2c80…2d2e14 (3, 91) Dummy {f00=0x00e5, f01=0x0190, f02=» & & & ) 0 & G @ & e P & ` & p & & & & & 7 & U & s & &
0x2d2e14…2d2fa8 Dummy {f00=0x00e5, f01=0x0190, f02=» & & & 0 & 5 @ & S P & q ` & p & & & & & % & C & a & &
0x2d2fa8…2d313c Dummy {f00=0x00e5, f01=0x0190, f02=» & & & 0 & # @ & A P & _ ` & } p & & & & & & 1 & O & m &
0x2d313c…2d32d0 Dummy {f00=0x00e5, f01=0x018c, f02=» & & & 0 & @ & / P & M ` & k p & & & & & & & = & [ & y
0x2d32d0…2d3464 Dummy {f00=0x00e5, f01=0x4008, f02=»@ & & & 0 & @ & / P & M ` & k p & & & & & & & = & [ & y
0x2d3464…2d35f8 Dummy {f00=0x00e5, f01=0x2008, f02=» L = DENTRY DATE = 80 -0 3- 1216PACK NBR = 0001 ? ? ? ?
0x2d35f8…2d378c Dummy {f00=0x00e5, f01=0x0190, f02=» , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME 8 B P XCOPY STRG10A,W8,W2,WORK(W9),W0 FREESPACE-RECNR = PTR TO FMT b < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN P ADD DEBIN4,W10 4 P XCOPY S
0x2d378c…2d3920 Dummy {f00=0x00e5, f01=0x0190, f02=» P MOVE DEBINW4,W0 P B FFST01 PRENEXT . 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT < P CBNE DEBIN5,W0,RDCHAIN r P PERF FREESP,DEBIN5,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 P PERF DISU,W2,DEBIN3,SYSBUF
0x2d3920…2d3ab4 (3, 92) Dummy {f00=0x00e5, f01=0x0190, f02=»NK TO PREV l . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY D PWRTFMT X P MOVE DEBIN3,PINDFR f , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION PNEGST P MOVE DEBIN2,W0 : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NE
0x2d3ab4…2d3c48 Dummy {f00=0x00e5, f01=0x018e, f02=»ERR RETURN PCOP 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 V P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2
0x2d3c48…2d3ddc Dummy {f00=0x00e5, f01=0x0190, f02=» P B COP P* P* P* * P* 4 P* > PNEXFMT GET NEXT FORMAT H P SET SWIT03 h P* | P* PPREFMT P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRF
0x2d3ddc…2d3f70 Dummy {f00=0x00e5, f01=0x0190, f02=» PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN " P MOVE RNRFMCH,DEBIN1 6 P MOVE PTRFMCH,DEBIN2 R P SUB PTRFMCH,W8 n PRRECNZ P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 P CBE D
0x2d3f70…2d4104 Dummy {f00=0x00e5, f01=0x0190, f02=» " P XCOPY DEBIN1,W0,W2,SYSBUF,W6 P TBF SWIT03,RREC02 . P ADD PTRFMCH,W10 H P CBE PTRFMCH,DEBIN1,RREC03 ` PRREC07 P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05 & P XCOPY DEBIN5,W0,W2,SY
0x2d4104…2d4298 Dummy {f00=0x00e5, f01=0x0190, f02=»CNY PRREC02 P CBL PTRFMCH,W20,RREC06 P SUB PTRFMCH,W10 : P B RREC07 R PRREC06 d P MOVE PTRFMCH,=W'190' r P MOVE DEBIN1,W2 P B RREC05 PRREC04 P ADD DEBIN1,W2 P MOVE STRG10A,=X'4600' & P COPY STRG10
0x2d4298…2d442c Dummy {f00=0x00e5, f01=0x0190, f02=» PDELFMT DELETE FORMAT P PERF WAIT & P BNOK RETURN 8 P MOVE STR6A,FORMAT L P CLEAR SWIT04 f P PERF SFMTCH,W4,SYSBUF,W10 | P BERR RETURN P MOVE PINACC,DEBIN1 . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC 4 P XCOPY D
0x2d442c…2d45c0 Dummy {f00=0x00e5, f01=0x0190, f02=»T OCC SPACE p P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 2 P PERF DLRCCH,SYSBUF H P BERR RETURN d PDELF1 x P PERF DISU,W2,PINACC,SYSBUF P MOVE DEBIN2,DEBIN3 P PERF DISU,W1,DEBIN2,SYSBUF P BERR RETURN P PERF ALGO
0x2d45c0…2d4754 (3, 93) Dummy {f00=0x00e5, f01=0x0190, f02=»SYSBUF,W4 | 0 P XCOPY SYSBUF,W0,W2,W0,W0 DESTROY ALGORITMH , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD F P BERR RETURN v P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 P PERF DISU,W1,DEBIN1,SYSBUF P BERR RETURN
0x2d4754…2d48e8 Dummy {f00=0x00e5, f01=0x403c, f02=» P B DELF P* P PEND END ,@ 8H , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD F P BERR RETURN v P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 P PERF DISU,W1,DEBIN1,SYSBUF P BERR RETURN
0x2d48e8…2d4a7c Dummy {f00=0x00e5, 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
0x2d4a7c…2d4c10 Dummy {f00=0x00e5, f01=0x0190, f02=» @ @ IDENT T:DYKI P,PRR=4.1,79-04-09,870136940410 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL H T:DYKI I:EVA7 , ( @ ' Y y , ( x C y
0x2d4c10…2d4da4 Dummy {f00=0x00e5, f01=0x0190, f02=» T:CLRD , ( C Q " T X , ( ! X X ! x Y~ Y @ , ( _ X "@P B R y C B p , ( P 9 V _F9 V X ! T X !@ T:EKEY , ( X y C _d y C C X
0x2d4da4…2d4f38 Dummy {f00=0x00e5, f01=0x0190, f02=» C _$ _ y | T:CLR2 ^ T:SCUW 0 * & Y @_6 x X@ X X # B , ( u C _. B ]d P C p , ( Q X8_H x XD @ Y c C y , ( XR X x x T:BEL
0x2d4f38…2d50cc Dummy {f00=0x00e5, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS . , ( @H ( ( @ T:CLMI p , ( #H : B C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y
0x2d50cc…2d5260 Dummy {f00=0x00e5, f01=0x409c, f02=» ! @ v YTf a eR k B uT y Q T , P R P V 8 4 VV T P #Q( S P Q8 , 3 < MV SP J @ C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y
0x2d5260…2d53f4 (3, 94) Dummy {f00=0x00e6, f01=0x0190, f02=» @ @ IDENT T:UPDF P,PRR=4.1,79-04-09,870136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2d53f4…2d5588 Dummy {f00=0x00e6, f01=0x4034, f02=» =T P @ 070136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2d5588…2d571c Dummy {f00=0x00e6, f01=0x0190, f02=» @ @ IDENT T:DUPL P,PRR=4.1,79-04-09,870136940410 T:DUPL T:DUPX H T:DUPL b T:GRFC v I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOF
0x2d571c…2d58b0 Dummy {f00=0x00e6, f01=0x0190, f02=» 2 P IDENT DRDY01 PRR 10.0 79-12-07 870105041000 P : 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING B P REL 10.1 79-10-19 z P =5,ABORT ROUTINE P REL 10.1 79-10-15 P =4,CORRECTION OF ERASE P REL 9.1 79-05-23
0x2d58b0…2d5a44 Dummy {f00=0x00e6, f01=0x0190, f02=» 79-01-31 . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 P PRR 9.1 79-01-12 D P ` P* h 6 P************************************************** r P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRDY01 = DRIVER VIDEO AND GR
0x2d5a44…2d5bd8 Dummy {f00=0x00e6, f01=0x0190, f02=» P* P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 V P* AND PTS 6386 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM P* VIA CHLT OR CHRT.
0x2d5bd8…2d5d6c Dummy {f00=0x00e6, f01=0x0190, f02=» : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE ( P* GENERAL KEYBOARD DRIVER DRKB01. B P* n P* x 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* & P* A C D Y ACTIVATION PART P* ( P* I H D Y I
0x2d5d6c…2d5f00 Dummy {f00=0x00e6, f01=0x018e, f02=» P P P P* * P* THE FOLLOWING ORDERS ARE TREATED: & P* T P* ORDER 00: TEST STATUS ^ P* 05: BASIC WRITE " P* 06: STANDARD WRITE ( P* 07: WRITE GRAPHIC DISPLAY & P* 0B: CURSO
0x2d5f00…2d6094 (3, 95) Dummy {f00=0x00e6, f01=0x0190, f02=» p ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX 4 $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P* A7 = ORDER " P* A8 = ECB-A
0x2d6094…2d6228 Dummy {f00=0x00e6, f01=0x0190, f02=»CLOSUS01 P PERF COND RET " PEND . PSETUSE PROC < P XCOPY SECLEN,W0,W2,RBUF,W9 P P CBNE SECLEN,W0,SETCOP t P MOVE SECLEN,=W'399' PSETCOP P XCOPY DKBIN1,W0,W2,RBUF,W7 P CBNE DKBIN1,W0,SETNOZ P MOVE DKBI
0x2d6228…2d63bc Dummy {f00=0x00e6, f01=0x0190, f02=»BINW4,W22 P MOVE BCD13A,=D'0' P B SETRET , PSETOKA MOVE USELEN,DKBIN1 > P SUB DKBIN1,W15 ` P MOVE MAXOCC,DKBIN1 x PSETRET P PERF COND P RET P PEND P EJECT PDUMPROC PROC FC P* PENTFMT E
0x2d63bc…2d6550 Dummy {f00=0x00e6, f01=0x018e, f02=»OVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN . P MOVE DEBIN5,W4 > PRDCHAIN V P MOVE DEBIN3,DEBIN5 f 0 P PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN P BNERR FST3 P CBE DEBINW4,=W'30',FFIRST P B RETURN PFST3 :
0x2d6550…2d66e4 Dummy {f00=0x00e6, f01=0x0190, f02=» , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME 8 B P XCOPY STRG10A,W8,W2,WORK(W9),W0 FREESPACE-RECNR = PTR TO FMT b < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN P ADD DEBIN4,W10 4 P XCOPY S
0x2d66e4…2d6878 Dummy {f00=0x00e6, f01=0x0190, f02=» P MOVE DEBINW4,W0 P B FFST01 PRENEXT . 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT < P CBNE DEBIN5,W0,RDCHAIN r P PERF FREESP,DEBIN5,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 P PERF DISU,W2,DEBIN3,SYSBUF
0x2d6878…2d6a0c Dummy {f00=0x00e6, f01=0x0190, f02=»NK TO PREV l . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY D PWRTFMT X P MOVE DEBIN3,PINDFR f , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION PNEGST P MOVE DEBIN2,W0 : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NE
0x2d6a0c…2d6ba0 Dummy {f00=0x00e6, f01=0x0190, f02=»NERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK(W9),DEBINW4 SAVE ERROR CODE P 8 P PERF DISU,W1,DEBIN2,SYSBUF READ FIRST FORMAT RECORD ~ P BERR RETURN P B DELF2 PCOP 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0
0x2d6ba0…2d6d34 (3, 96) Dummy {f00=0x00e6, f01=0x0190, f02=»T01,CO10 P B FMTCHAIN PCO10 $ P MOVE DEBIN3,DEBIN2 0 P MOVE DEBIN1,DEBIN4 L P MOVE SYSBUF,=X'4600' h P B NEGST PNOMOREC P MOVE DEBIN4,W0 P SET SWIT01 P B COP P* P* P* P* P
0x2d6d34…2d6ec8 Dummy {f00=0x00e6, f01=0x018e, f02=»ORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 8 P TBT SWIT03,RRECNX P P ADD PTRFMCH,W20 j PRRECNX P CBNE RNRFMCH,W0,RRECNZ P MOVE STR6A,FORMAT P PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN P MOVE RN
0x2d6ec8…2d705c Dummy {f00=0x00e6, f01=0x0190, f02=» P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 ( P CBE DEBINW4,=W'30',OUTOFRAN > P B RETURN b POUTOFRAN t P MOVE DEBINW4,W9 P MOVE RNRFMCH,W0 P B RETURN PRREC01 0 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 GET USED SPACE P
0x2d705c…2d71f0 Dummy {f00=0x00e6, f01=0x0190, f02=» PRREC03 P MOVE DEBIN1,W4 PRREC05 . & P XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 < P CBE DEBIN5,W0,OUTOFRAN f P MOVE RNRFMCH,DEBIN5 P TBF SWIT03,RRECNY P MOVE PTRFMCH,W0 P B RRECNY PRREC02 P CBL PTRFMCH,W20,RRE
0x2d71f0…2d7384 Dummy {f00=0x00e6, f01=0x0190, f02=» SUB PTRFMCH,W10 P B RREC07 PRREC06 * P MOVE PTRFMCH,=W'190' 8 P MOVE DEBIN1,W2 V P B RREC05 n PRREC04 P ADD DEBIN1,W2 P MOVE STRG10A,=X'4600' & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DE
0x2d7384…2d7518 Dummy {f00=0x00e6, f01=0x0190, f02=»NOK RETURN P MOVE STR6A,FORMAT P CLEAR SWIT04 , P PERF SFMTCH,W4,SYSBUF,W10 B P BERR RETURN d P MOVE BIN16,DEBIN1 x . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBU
0x2d7518…2d76ac Dummy {f00=0x00e6, f01=0x0190, f02=»T04 P PERF DLRCCH,SYSBUF P BERR RETURN ( PDELF1 < P PERF DISU,W2,BIN16,SYSBUF J P BERR RETURN l P MOVE DEBIN2,DEBIN3 P PERF DISU,W1,DEBIN2,SYSBUF P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 PDELF3
0x2d76ac…2d7840 Dummy {f00=0x00e6, f01=0x0190, f02=»DE ` PDELF32 P B RETURN PDELF2 * " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 8 0 P XCOPY SYSBUF,W0,W2,W0,W0 DESTROY ALGORITMH ^ , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEB
0x2d7840…2d79d4 (3, 97) Dummy {f00=0x00e6, f01=0x4088, f02=»ELF3 z P PERF RFRSP,DEBIN1,W1 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 * P B DELF P P* ` P PEND j END x@ H ^ , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEB
0x2d79d4…2d7b68 Dummy {f00=0x00e6, 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
0x2d7b68…2d7cfc Dummy {f00=0x00e6, f01=0x0000, f02=»
[…0x5…]
0x2d84e0…2d8674 (3, 98) Dummy {f00=0x00e7, f01=0x0000, f02=»
[…0x1f…]
0x2db760…2db8f4 (3, 102) Dummy {f00=0x00e8, f01=0x0000, f02=»
0x2db8f4…2dba88 Dummy {f00=0x00e8, f01=0x0190, f02=»= 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS " . P* SET TO 0 IF IDENTIFICATION OKAY p 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC P MOVE DKBIN3,W0
0x2dba88…2dbc1c Dummy {f00=0x00e8, f01=0x4148, f02=»E DKBIN1,W6,XCALGO P IB FC C P ALTO C , P ALFRO > PALTO N " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 Z P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P RET PNOERR
0x2dbc1c…2dbdb0 Dummy {f00=0x00e8, 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 * *
0x2dbdb0…2dbf44 Dummy {f00=0x00e8, f01=0x0190, f02=» & & ( & , ' JOB < $ ' P ( NAME ` $ ( t & : & !A & k ( ) * BATCH $ * + NAME
0x2dbf44…2dc0d8 Dummy {f00=0x00e8, f01=0x0190, f02=» ( - . DEVICE $ . 6 & : F & e T & # f & v / FILE $ / & - 0 NAME $ 0 & : & @ & $
0x2dc0d8…2dc26c Dummy {f00=0x00e8, f01=0x4058, f02=» O & T ( b!j !!Nb?R )?R2 $ B@ T e T & # f & v / FILE $ / & - 0 NAME $ 0 & : & @ & $
0x2dc26c…2dc400 Dummy {f00=0x00e8, f01=0x2008, f02=» kB " mB l P $ z & : @ T A T { T R X( Q Ak % Ak 2 Al Al Al Al Al _R @k Q T~ { Tv RpXn Tf P ;d P , ;d P , % P , Ak 6 Al V Al V Al V Al _ Q z T R ZQ Ak _ W
0x2dc400…2dc594 (3, 103) Dummy {f00=0x00e8, f01=0x0190, f02=» F X FC PTS-DE SYSFIL 0 t v0 4 j " )( 4j " '( ! 0 * 6 ;W e / s 4 : m `!: )`W} d$ bd !bUV ! 15? jc "U&#c21j " b "&m j (" ) bUc* c*jU&"c "dU? b W
0x2dc594…2dc728 Dummy {f00=0x00e8, f01=0x0190, f02=»P % =B S z , ( t w E M % t R Q @ , ( ! Q R %| _B J QBLFAC z * ( A _& : H , ( _ P #P ( B. , ( T P ' " P : P
0x2dc728…2dc8bc Dummy {f00=0x00e8, f01=0x4066, f02=» ] cW i P R U P P R. Q& /Q _P gP T @ P@ b
0x2dc8bc…2dca50 Dummy {f00=0x00e8, f01=0x0190, f02=» . @ IDENT FLDIPL 79-10-16 POHO IPL811 IPL812 IPL813 6 IPL811 X IPL812 l IPL813 , ( t v @0 UU , ( ! 3 2P _ , ) , ( A T
0x2dca50…2dcbe4 Dummy {f00=0x00e8, f01=0x0190, f02=» % T S , ( . N 0 N $ , ( S W T , ( P X _ R R " R R QBLFAC , ( ! & P , ( ? #P
0x2dcbe4…2dcd78 Dummy {f00=0x00e8, f01=0x40da, f02=» E M T 1 E _ M @ p : & H D ! F %P / 5 4 IT s } $ < T @ < T " < 8 4 " W " P < - " =P EP _T T @ P , ( ? #P
0x2dcd78…2dcf0c Dummy {f00=0x00e8, f01=0x0190, f02=» . @ IDENT MFDIPL 79-10-16 POHO IPL311 IPL312 IPL313 6 IPL311 X IPL312 l IPL313 , ( "? UU 3 2P _ , ( ! , 5 T G. , ( A G K. A ;A;
0x2dcf0c…2dd0a0 Dummy {f00=0x00e8, f01=0x0190, f02=» . N 0 S , ( N S W $ , ( P X _ R R T , ( "? R R h:B* S , ( ! R P S B J 4R 4 :B , ( A 4 R : V V 49B R
0x2dd0a0…2dd234 (3, 104) Dummy {f00=0x00e8, f01=0x4116, f02=» ( B. T P , ( ' " P : P S P S P & % `_" V H D ! 6 t P % 4 9T c ( m u y } l D @ & W P 'P 9R OV SV aR P P T
0x2dd234…2dd3c8 Dummy {f00=0x00e8, f01=0x0190, f02=» ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( " P EJECT ( < P ( J P ( V P* ADDRESS TO PSW-ROUTINE * ( b P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P**********************************
0x2dd3c8…2dd55c Dummy {f00=0x00e8, f01=0x0190, f02=» PSW IN STACK FOR CALLING SUBROUTINE * ( v D P**************************************************************** ) . P ) v PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 REPLA
0x2dd55c…2dd6f0 Dummy {f00=0x00e8, f01=0x018e, f02=» ) n & P* * * & P* SUBROUTINE-HANDLER * * 2 & P* * * & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14 GET
0x2dd6f0…2dd884 Dummy {f00=0x00e8, f01=0x0190, f02=» * b P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + * P ABR* A14 + N P + ` P + h P + p < P******************************************************* + x < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P****************
0x2dd884…2dda18 Dummy {f00=0x00e8, f01=0x0190, f02=»****** + r ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , : ( P** ** , f ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , * P
0x2dda18…2ddbac Dummy {f00=0x00e8, f01=0x0190, f02=»EL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - . P DATA 0 - Z ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - j P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF BLO
0x2ddbac…2ddd40 Dummy {f00=0x00e8, f01=0x0000, f02=»
[…0x8…]
0x2de9e0…2deb74 (3, 106) Dummy {f00=0x00e9, f01=0x0000, f02=»
[…0x6…]
0x2df4ec…2df680 Dummy {f00=0x00e9, f01=0x0190, f02=» 4 , ) T G.G K. A ;A; G. ] $ ] S <% T V S @- S S < M % T S " . N 0 " N S W " P X _ R R <" R R "
0x2df680…2df814 (3, 107) Dummy {f00=0x00e9, f01=0x0190, f02=»M T 1 E _ M @ p : 6 "? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ] ] S S S S " :A S S S . N 0 S & N S W
0x2df814…2df9a8 Dummy {f00=0x00e9, f01=0x0190, f02=» 4R @ t w A I ! j : P #P ( B. T P ' " P : P S P S P % `_" . N 0 N S W P X _ R R " R R
0x2df9a8…2dfb3c Dummy {f00=0x00e9, f01=0x0190, f02=» f * & A J A LW @ J @ L @ Z , ( T A J A L & " ( $ 2 A 6 , ( A A A Z Z : f , ( : C ( B , ( ? ' : _* , ( _ * 2 )
0x2dfb3c…2dfcd0 Dummy {f00=0x00e9, f01=0x0190, f02=» ( / : , ( D J L ( B & , ( B / : _> V , ( A * 2 P *_ , ( $ ? : A " ! R ( B R , ( _ T T W " T
0x2dfcd0…2dfe64 Dummy {f00=0x00e9, f01=0x0190, f02=» A @ P v , ( : B A P P B _p B , ( % P A j B P R F , ( * @ l @ n @ l @ v , ( A ; n @ j , ( $U W " : F _R @ l A @ n , (
0x2dfe64…2dfff8 Dummy {f00=0x00e9, f01=0x0190, f02=» R C I x , ( I " C C C ( ( , ( C W A ( B H , ( ' : ( B x FIRFC , ( 5 C R ! CDISCT , ( SB
0x2dfff8…2e018c Dummy {f00=0x00e9, f01=0x0190, f02=» Y 2 $ 2 , Y A v , ( @ v Y A J A L * , ( J 2 A A l A 2 Z , ( TU A A @ l A l A A l A n , ( * ) f @ J @ L @ @ , ( G T V P P W
0x2e018c…2e0320 Dummy {f00=0x00e9, f01=0x0190, f02=» 2 A A R A A R , ( " A a R A A R A A A . , ( @ * 2 , $ ^ , ( Y $ TO R % " R , ( ' R , ( Y ( TO , ( G $ A | ( $ A N $
0x2e0320…2e04b4 (3, 108) Dummy {f00=0x00e9, f01=0x0190, f02=» R A ~ , ( @ @ P<E J * Y A , ( F A H | A @ x ) @ N , ( N X B $ T ~ , ( % A $ A $ A $ A , ( E B $ A D $ A A
0x2e04b4…2e0648 Dummy {f00=0x00e9, f01=0x0190, f02=» n , ( % A ( , ( R _~ P > , ( * _ A A d A h A n , ( % r A f H ( @ B @ D A B , ( U@ C A D @ d @ f @ h @ r ( P , ( " c P
0x2e0648…2e07dc Dummy {f00=0x00e9, f01=0x0190, f02=»UH A A @ P , ( * x A A 0 @ B A : @ D A < @ . * & T F R @ H A f @ F @ H ^ , ( ( ! A F A H @ f A , ( HR ? " $ J , ( _ L $ A $ A D
0x2e07dc…2e0970 Dummy {f00=0x00e9, f01=0x0190, f02=» @ T @ V @ T^ A Z z , ( R A @ P<H A R A , , ( H A 2 ( A 4 A f @ R @ 6 @ , ( U BQ R @ 8 @ DV Z A f @ 2 A * , ( UU ; @ 4 A , @ Z 2 J 4 L @ T , ( QR [ A A @ .
0x2e0970…2e0b04 Dummy {f00=0x00e9, f01=0x0190, f02=» A 2 A 4 @ 6 @ 8 @ | , ( V A 6 A 8 T @ V @ , ( * @ @ V A A @ " @ L , ( $ @ V A " A $ T @ V | , ( % / R @ VP @ T A _ 2 A J , ( UT O L @ Z F @ @ @
0x2e0b04…2e0c98 Dummy {f00=0x00e9, f01=0x0190, f02=» A 6 l , ( BQ A 8 Q @ VR @ f @ 2 I @ 4 , ( ) )W @ ) % @ A < , ( BB " $ l , ( JB ' _ @ " @ $ @ V A " A , ( E @ $ @ @ @ V A @ f @ , ( c 2 I
0x2e0c98…2e0e2c Dummy {f00=0x00e9, f01=0x0190, f02=» A 2 ( A 4 @ R @ 6 @ BQ R , ( R @ 8 @ DV Z A f @ z @ , , ( ) ~ P R @ @ , ( I # & @ T % A J L , ( C L A . A 0 "T $ , ( * c P J L
0x2e0e2c…2e0fc0 Dummy {f00=0x00e9, f01=0x0190, f02=» W n W W | , ( " W n W n W W W : L H D ! l X T4 P R P R W g Q r mPJ R ` H D !"` W P U U* W O oT P 9P QR* ]R cT iT H D !- kW oT w
0x2e0fc0…2e1154 (3, 109) Dummy {f00=0x00e9, f01=0x413a, f02=» !h0 T #T ' R4 P P TN WV P ]PJ cP" kQ H D ! yW Q W: Q W P R T R Q R )V T R L H D !@ T , )T /R 5P Q R W T P> R Q R V 3T ]T < 8 cP T P* W6 W W. W$ W
0x2e1154…2e12e8 Dummy {f00=0x00e9, f01=0x018e, f02=» @ @ IDENT FILHND PRR 10.0 80-02-04 870136641000 CRFILE DLFILE H , ( b , ( ! , ( A CRFILE l , (
0x2e12e8…2e147c Dummy {f00=0x00e9, f01=0x0190, f02=» f , ( h A f A d Y A d A , ( f @ hW S 1 A d S 2 8 , ( P A f A : h FIRFC , ( ! R P # A R Q , ( ? ( B T ( B T C C , (
0x2e147c…2e1610 Dummy {f00=0x00e9, f01=0x0190, f02=» @ R 0 $ x , ( ' R T W $ T A L R , ( ( !LLP @ T A . A 0 R 1 R H , ( !* 8 A @ R 6! A >P A D A F @ . @ x ADDMOD , ( J 0 A . A 0S @ D @ F DSUMOD , ( ;
0x2e1610…2e17a4 Dummy {f00=0x00e9, f01=0x0190, f02=» Y4W R 6:B A A @ LP @ A > , ( UB @ A @ @ f A N @ f Y P @ f , , ( T A f @ @ @ f P Y , ( P @ @ A A A R , ( " A A A . A `9H A ^ , ( ) 1 A A A A
0x2e17a4…2e1938 Dummy {f00=0x00e9, f01=0x0190, f02=» : @ ^:c A b A | , ( 2 A 4 A 6 A 8 @ A * @ A , A , ( D @ * @ , A * A , @ D L , ( E R 0 A . 0 A 0 @ . | , ( % T @ 0X" @ . @ 2R Q @ 0 @ 4R , ( UQ / @ . A 2 @ 0 A 4 @ . @ ZTQ @ 0
0x2e1938…2e1acc Dummy {f00=0x00e9, f01=0x0190, f02=» A l , ( . @ A 0W T Q 1 Q Q , ( " P R A R @ A Z A @ ^ C < , ( B ( C @ X /T @ jT l , ( A j : W W : _ @ T , ( T / _ _ R @ A . @ A 0 !LL , ( !@ O P @
0x2e1acc…2e1c60 Dummy {f00=0x00e9, f01=0x0190, f02=» > @ IDENT I:MOV P,PRR=5.0,791206,870136940500 v I:MOV I:MVC v F I:MOV v I:MVC v n , ( $0#0;b P P P P v , ( ! 0 - P _ 4 V v , ( A W Q P ) P 9_ &" ! 9 :
0x2e1c60…2e1df4 (3, 110) Dummy {f00=0x00ea, f01=0x0190, f02=»V v p , ( 4! P < X 4 w , ( 9d $ & ! R + : w @ , ( V W R 4 0R Y 7 Y& w p , ( ! P Z,;D 9_8 8 _< V w , ( A W YL T 9 : &9d! + w , ( a
0x2e1df4…2e1f88 Dummy {f00=0x00ea, f01=0x40d2, f02=» 9d! )0 + P 7 Y Z $ w _ : x 0 H D ! T P P PF P -P0 EQ GP OP gP kQ s R R R x H $ #P eP( {T WJ V P. P x x @ x A W YL T 9 : &9d! + w , ( a
0x2e1f88…2e211c Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:MUL P,PRR=5.0,791206,870136940500 y I:MUL I:SH1L y F I:MUL y ^ , ( V ) " T *V &V y p , ( ! : V S W P 9 S W _ y , ( A V P W T V E + y , ( a
0x2e211c…2e22b0 Dummy {f00=0x00ea, f01=0x0190, f02=» [ y , ( P Z P [ 9a Z z ( , ( $" T 9d! P P [ Z w z X I:ADD z , ( [ P V H )_ z , ( _X z R z ! P 1` { z , ( / V (9h
0x2e22b0…2e2444 Dummy {f00=0x00ea, f01=0x4066, f02=» z l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP { { P@ { b9d! P P [ Z w z X I:ADD z , ( [ P V H )_ z , ( _X z R z ! P 1` { z , ( / V (9h
0x2e2444…2e25d8 Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:DIV P,PRR=5.0,791206,870136940500 | I:DIV I:SH1R | F I:DIV | ^ , ( " T *V &V | p ! P = | , ( ' ;@ R P W ;a | , ( G =a P " R & R
0x2e25d8…2e276c Dummy {f00=0x00ea, f01=0x0190, f02=» [ [ $ [ [ | I:SUB } 0 * & QD } @ , ( z " ! ! R 2` { z } n , ( " P ! R 2` { 1 ! { [ } I:CPA } I:SH1L } , ( Z
0x2e276c…2e2900 Dummy {f00=0x00ea, f01=0x0190, f02=» R [ _ } x , ( q Z ! Z $ ~ * & P Z %_N [ Q ~ H * & R [ Z { ~ v , ( z 9e! W Z ~ I:SH1R ~ , ( : V I _ , " -
0x2e2900…2e2a94 (3, 111) Dummy {f00=0x00ea, f01=0x402a, f02=» Q* R W ~ @ & Z ! Z $ ~ * & P Z %_N [ Q ~ H * & R [ Z { ~ v , ( z 9e! W Z ~ I:SH1R ~ , ( : V I _ , " -
0x2e2a94…2e2c28 Dummy {f00=0x00ea, f01=0x40da, f02=» > @ IDENT I:NTF P,PRR=5.0,791206,870136940500 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ END ,PS P LDR* OP2A,WK1 P LD
0x2e2c28…2e2dbc Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:EDT P,PRR=5.0,791206,870136940500 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY , ( !!
0x2e2dbc…2e2f50 Dummy {f00=0x00ea, 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
0x2e2f50…2e30e4 Dummy {f00=0x00ea, 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 , (
0x2e30e4…2e3278 Dummy {f00=0x00ea, f01=0x0190, f02=» 7 [ Z P I:EXIT n * , ( U $ [ V 7_ > , ( s Z $ Z 7 Z Z n I:FFSN , ( P $ : V P:BAS , ( R (Q
0x2e3278…2e340c Dummy {f00=0x00ea, f01=0x0190, f02=» J Q : I:EXPY . I:ECTR ( B , ( P 4 ! T _ P 4 W K V I:ESL 2 I:ENL < , ( + W W +_ K I:EOR R T:EDWF I:ECW
0x2e340c…2e35a0 Dummy {f00=0x00ea, f01=0x410a, f02=» g J K : V : 1 H D ! U Y [ e R g n i k 4 m < s p u 2 y < < ( H D ! P T W T W ; QP { P R Q P Qx Pn Th !PX t 0 , V 'WT / z 1WJ 5 8 7W ? R C N MW. [W yV @
0x2e35a0…2e3734 (3, 112) Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:EPIC P,PRR=5.0,791206,870136940500 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x2e3734…2e38c8 Dummy {f00=0x00ea, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x2e38c8…2e3a5c Dummy {f00=0x00ea, f01=0x4122, f02=» } ++P !-- z ;$# + ^" _( " T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T ?R EP KT OW S P Wn W8 Wf T H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U mW qW
0x2e3a5c…2e3bf0 Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:EDTE P,PRR=5.0,791206,870136940500 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x2e3bf0…2e3d84 Dummy {f00=0x00ea, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x2e3d84…2e3f18 Dummy {f00=0x00ea, f01=0x40ea, f02=» > @ IDENT I:EDS P,PRR=5.0,791206,870136940500 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ " P CF PS,I:ED1 EDIT OF S
0x2e3f18…2e40ac Dummy {f00=0x00ea, f01=0x0190, f02=» > @ IDENT I:STR P,PRR=5.0,800102,870136940500 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x2e40ac…2e4240 Dummy {f00=0x00ea, f01=0x0190, f02=»W R # P W v I:EVS2 , ( ) V E ( I:CPY X I:XCP j , ( W [ | , ( : Z !0P R 4 R :d" 8 R , ( ! :DW ! 9 R R _. :
0x2e4240…2e43d4 (3, 113) Dummy {f00=0x00ea, f01=0x4010, f02=» " @ v I:EVS2 , ( ) V E ( I:CPY X I:XCP j , ( W [ | , ( : Z !0P R 4 R :d" 8 R , ( ! :DW ! 9 R R _. :
0x2e43d4…2e4568 Dummy {f00=0x00ea, f01=0x4152, f02=» > @ IDENT I:EVS P,PRR=5.0,791206,870136940500 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x2e4568…2e46fc Dummy {f00=0x00ea, f01=0x2008, f02=»
0x2e46fc…2e4890 Dummy {f00=0x00ea, f01=0x0190, f02=» 0 $$0 ""_N W W$ $ = ! A * & X 0 "#? ? X X ? ^" B . * & + ^"2 ? &8 ! b B * & I ! _ "P$ P!W P# P<4 !4 B * & g "4 #4 $4 4 8 I 6 B * & / 0 ! W(0 ! W!0 ! W
0x2e4890…2e4a24 Dummy {f00=0x00ea, f01=0x0190, f02=» 0 ! B p * & !_32 #@ 4 0 : , C * & "? o2 C < * & 9 B0 3 2 !W C j * & W 0 ( _ "0 0 2 ! C * & u W&0 A 6 *.RV C * & .W !@ 4
0x2e4a24…2e4bb8 Dummy {f00=0x00ea, f01=0x0190, f02=»X Wd !0 ( 1 C ~ * & ?!0$ ?"0 0 % 0 D * & ) S 0% P 0& Q )L *P #4 D J * & G 0 0O $ % 0 0 9<# D x * & e 2 !$$%?! 2 !! #4 0 0 ? D ! !4 D * & % I ^ |
0x2e4bb8…2e4d4c Dummy {f00=0x00ea, f01=0x415c, f02=» D t * & a W v E * & s N x E @ , ( = E n * & ] r 0123NY 'g E * & { 0 E 0 0
0x2e4d4c…2e4ee0 Dummy {f00=0x00ea, f01=0x0190, f02=»P : [ [ eV & @%Z! P y4 Z y4 [ 6 [ Z 7 d Z 7 : ( :A ( @% " P ! P [ :;H 2 e e ;h g> : ; V Y : 2! : 6 2 gJW& " # g4;b ; :
0x2e4ee0…2e5074 (3, 114) Dummy {f00=0x00eb, f01=0x0190, f02=» 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K :
0x2e5074…2e5208 Dummy {f00=0x00eb, f01=0x0190, f02=» _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b k P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q j ,^ , < j
0x2e5208…2e539c Dummy {f00=0x00eb, f01=0x0190, f02=» : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : y, &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) 0
0x2e539c…2e5530 Dummy {f00=0x00eb, f01=0x0190, f02=» 6 y0 [ [ [ [ $ [ [ >h [ [ p j@ p j@ p g Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P p g V H )_ p m _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9
0x2e5530…2e56c4 Dummy {f00=0x00eb, f01=0x0190, f02=»R P W ;a=a P " R & R V T W V E + : V & 6 y0 [ [ [ [ $ [ [ p j@ p j@ p g z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z p i Q p m
0x2e56c4…2e5858 Dummy {f00=0x00eb, f01=0x0190, f02=» p i R [ Z { p g z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 u&d d g u(g d eVu rJr rJr2u t u u r q r
0x2e5858…2e59ec Dummy {f00=0x00eb, f01=0x0190, f02=» V Z P 2 " T W "@T '?W "? Hp@" K :e J J " J _Z Z q [ Z P : [ V y0 7_ Z r : Z 7 Z Z P : : V R (Q V : %j %j : p
0x2e59ec…2e5b80 Dummy {f00=0x00eb, f01=0x0190, f02=» . H IDENT C:CB10 TRA 5.0 80-02-22 F1 O1111 C:CB10 6 C:CB10C H & & p & = & [ & y & & & & & & -
0x2e5b80…2e5d14 (3, 115) Dummy {f00=0x00eb, f01=0x0190, f02=» ; & Y & w & 0 & @ & P & ` & p & + & I & g & & & & & &
0x2e5d14…2e5ea8 Dummy {f00=0x00eb, f01=0x0190, f02=» ) & G & e & 0 & @ & P & ` & p & & 7 & U & s & & & & &
0x2e5ea8…2e603c Dummy {f00=0x00eb, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x2e603c…2e61d0 Dummy {f00=0x00eb, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x2e61d0…2e6364 Dummy {f00=0x00eb, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x2e6364…2e64f8 Dummy {f00=0x00eb, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x2e64f8…2e668c Dummy {f00=0x00eb, f01=0x0190, f02=» & & & ) 0 & G @ & e P & ` & p & & & & & 7 & U & s & &
0x2e668c…2e6820 Dummy {f00=0x00eb, f01=0x0190, f02=» : : "0 - | , ( P $ T W %T : : . , ( = Y ( X $ Y X " Y X & Y X < . L , ( ] Y @ : Y : X : X ( . | , ( { T X & V H " V Y : X . T:CLDY . ! $ X :
0x2e6820…2e69b4 (3, 116) Dummy {f00=0x00eb, f01=0x4108, f02=»P %P ) -P< 1 : . ^ H D ! 3WZ CP< EQ MP2 [R$ ]W a : e iT$ qW W P Tb W P@ / H D !$ T, T : P P* # 'P| CWh KP UT eTF i mP6 P b P / f < 8 P V T P P P #T 'W +T }T V / / @ /
0x2e69b4…2e6b48 Dummy {f00=0x00eb, f01=0x0190, f02=» > @ IDENT T:ENIN P,PRR=5.0,791206,870136940500 0 T:ENIN T:ENI T:EVOU 0 F T:ENIN 0 f T:ENI 0 z , ( X Y " X Y $ X Y & X @W X 0 T:LOFS 0 , ( ! < Y = " 0 I:EGTB
0x2e6b48…2e6cdc Dummy {f00=0x00eb, f01=0x0190, f02=» X (P 0 n T:WRDY 1 , ( W X & V D ! P @ W X 1 , ( W Y ( : X , Y X $ Y 1 P , ( X &T Y Y Y W V $ 1 , ( :H D Y D :H Y ! P V 1 I:EVA0 1 I:EVA1 1 , (
0x2e6cdc…2e6e70 Dummy {f00=0x00eb, f01=0x411a, f02=» 1 , ( Q : 2' " P T 2 I:EVA3 2 8 I:EPIC 2 J , ( mD W : N : 2 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 2 ( $ P W )P /W A X aP gT qW 2
0x2e6e70…2e7004 Dummy {f00=0x00eb, f01=0x4144, f02=» > @ IDENT T:SETC P,PRR=5.0,791206,870136940500 3 T:SETC T:SCUR 3 F T:SETC 3 ` T:GRFC 3 t T:EDWI 3 T:RCTS 3 T:SCUR 3 , ( A C 3 T:WRDY 3
0x2e7004…2e7198 Dummy {f00=0x00eb, f01=0x40e2, f02=» > @ IDENT T:CLMI P,PRR=5.0,791206,870136940500 4 T:CLMI 4 F T:CLMI 4 X , ( "0P ' Q W ' 4 l ! Y : 4 P Q W 4 ( 4 @ 4 2,OP2A CLEAR LOOP P ADKL OP2A,1
0x2e7198…2e732c Dummy {f00=0x00eb, f01=0x0190, f02=» > @ IDENT T:ATTF P,PRR=5.0,791206,870136940500 5 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 5 F T:CLDY 5 T:DETF 5 T:ATTF 5 I:EVA6 5 I:FFSN 5 , ( W
0x2e732c…2e74c0 Dummy {f00=0x00eb, f01=0x4100, f02=» < V E B 5 ~ T:RNOK < 6 T:GRFC @ 6 2 T:WRDY H 6 F T:EDIO 6 Z * & ; X _ v : C C 6 l T:CLDY 6 $ Y @ : C : 6 @ W @ 6 l 6 @ 6
0x2e74c0…2e7654 (3, 117) Dummy {f00=0x00eb, f01=0x0190, f02=» > @ IDENT T:LSEG P,PRR=5.0,791206,870136940500 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 F T:LSEG 7 p T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x2e7654…2e77e8 Dummy {f00=0x00eb, f01=0x401a, f02=» f 8 @ 8 G P,PRR=5.0,791206,870136940500 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 F T:LSEG 7 p T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x2e77e8…2e797c Dummy {f00=0x00eb, f01=0x4146, f02=» > @ IDENT T:DC00 P,PRR=5.0,791206,870136940500 9 DCREAD DCWRTE DCEXCH 9 F T:FDS0 9 h DCREAD 9 z T:DCR1 9 DCWRTE 9 T:DCW1 9 DCEXCH 9 T:DCE1 9 , ( I$
0x2e797c…2e7b10 Dummy {f00=0x00eb, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,PRR=5.0,791206,870136940500 : SWITCH : F T:SWIT : X SWITCH : j @ : ~ : @ : OUTINE ENTRIES * . P* * . P******************
0x2e7b10…2e7ca4 Dummy {f00=0x00eb, f01=0x40da, f02=» > @ IDENT T:TEI0 P,PRR=5.0,791206,870136940500 ; TESTIO ABORT ; F T:TEST ; ^ TESTIO ; p T:ABOR ; ABORT ; H ; ; @ ; * . P******************
0x2e7ca4…2e7e38 Dummy {f00=0x00eb, f01=0x40de, f02=» > @ IDENT T:CLO0 P,PRR=5.0,791206,870136940500 < SETTIM GETTIM < F T:SETT < ` SETTIM < r T:GETT < GETTIM < H < < @ < * . P******************
0x2e7e38…2e7fcc Dummy {f00=0x00eb, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,PRR=5.0,791206,870136940500 = DELAY = F T:DELA = V DELAY = h @ = z = @ = SUBROUTINE ENTRIES * . P* * . P******************
0x2e7fcc…2e8160 Dummy {f00=0x00eb, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,PRR=5.0,791206,870136940500 > GETTID > F T:GETI > X GETTID > j @ > ~ > @ > OUTINE ENTRIES * . P* * . P******************
0x2e8160…2e82f4 (3, 118) Dummy {f00=0x00ec, f01=0x0190, f02=» > @ IDENT T:DC P,PRR=5.0,791206,870136940500 ? 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 ? F T:DCRE ? T:FDSP ? T:DCR1 ? T:DCWR ? T:DCW1 ? T:EDIO ? , ( @@ /
0x2e82f4…2e8488 Dummy {f00=0x00ec, f01=0x40ca, f02=»:EVA0 ? , ( 7 ' / C @ , ( Q$ C @ > & " k &P C & C : @ n V W V 1 V @ @ @ @ T:DCW1 ? T:EDIO ? , ( @@ /
0x2e8488…2e861c Dummy {f00=0x00ec, f01=0x40b6, f02=» > @ IDENT T:SWI P,PRR=5.0,791206,870136940500 A T:SWIT A F T:SWIT A X I:RT1 A l ( A | A @ A IT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET RELATIVE PP P LKM
0x2e861c…2e87b0 Dummy {f00=0x00ec, f01=0x4174, f02=» > @ IDENT T:TEI P,PRR=5.0,791206,870136940500 B T:TEST T:ABOR B F T:TEST B ` T:FDSP B t I:RT1 B T:ABOR B * & @ "R V I B T:KIAA B , ( ( T
0x2e87b0…2e8944 Dummy {f00=0x00ec, f01=0x4114, f02=» > @ IDENT T:CLO P,PRR=5.0,791206,870136940500 C T:SETT T:GETT C F T:SETT C ` I:EVA0 C t I:RT1 C T:GETT C * & @ ( C " ( _ C .
0x2e8944…2e8ad8 Dummy {f00=0x00ec, f01=0x40d0, f02=» > @ IDENT T:DEL P,PRR=5.0,791206,870136940500 D T:DELA D F T:DELA D X I:EVA0 D l I:RT1 D ~ ( $ @ ( D D @ D SET ERROR CODE P ABL I:ERR ERROR PRINT PDE
0x2e8ad8…2e8c6c Dummy {f00=0x00ec, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,PRR=5.0,791206,870136940500 E MASK E F MASK E V I:EVA0 E h I:RT1 E z ( $ D V E E @ E K010 NOT BINARY P XIF P $ P LD WK2,STKB,TCA
0x2e8c6c…2e8e00 Dummy {f00=0x00ec, f01=0x0190, f02=» 0 @0 1r 1r @0 TT @0 U QF A/ Q8 A/ W. T P: @. . V2 A. @0 1r 1r / ( 6. / ( 7H W W W W W < : A/ A/ @/ . / @. Qv @. QN $ (Q*R D H R Q W / ^` - $ M _> H / ^| -
0x2e8e00…2e8f94 (3, 119) Dummy {f00=0x00ec, f01=0x0002, f02=»
0x2e8f94…2e9128 Dummy {f00=0x00ec, f01=0x000c, f02=» HEND =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2e9128…2e92bc Dummy {f00=0x00ec, f01=0x2008, f02=» =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2e92bc…2e9450 Dummy {f00=0x00ec, f01=0x2008, f02=» OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 2 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED f HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x2e9450…2e95e4 Dummy {f00=0x00ec, f01=0x0190, f02=» t v UU v 3 2P _ 4 , ) T G.G K. A ;A; G. $ ] ] S S S S % =A S S S . N 0 " N S W P X _ R R "( R
0x2e95e4…2e9778 Dummy {f00=0x00ec, f01=0x0190, f02=» % n :@ P #P ( B. T P ' " P : P S P S P " `_" .^R _ P 0 / . : ; [ [ [ [ B@ > > ' > > d > %? v t v
0x2e9778…2e990c Dummy {f00=0x00ec, f01=0x0190, f02=» S S % =A S S S . N 0 N S W P X _ R R "( R B 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t
0x2e990c…2e9aa0 Dummy {f00=0x00ec, f01=0x0190, f02=»E(W3) v $ P MOVE FILECODE(W1),FILECODE(W3) $ P MOVE FINDEXPO(W1),FINDEXPO(W3) 6 P MOVE FFSNR(W1),FFSNR(W3) ^ $ P MOVE FNOOFREC(W1),FNOOFREC(W3) P MOVE FRINF(W1),FRINF(W3) " P MOVE F95PROC(W1),F95PROC(W3) P MOVE FCOUNTER(W1),W1
0x2e9aa0…2e9c34 (3, 120) Dummy {f00=0x00ec, f01=0x0190, f02=»******** t ( P* CHANGE VOLUME-NAME TO 'SYSVOL' * ( P************************************ < PC98 h P CALL CHANFC,DISK,FCOD2 t " P CALL CHVOL,DISK,SYSBUF,SYSVOL PC99 P RET P PEND P EJECT PDISKIO PROC FC,INDEX &
0x2e9c34…2e9dc8 Dummy {f00=0x00ec, f01=0x0190, f02=»(W1),FNOOFREC(INDEX) P MOVE FRINF(W1),FRINF(INDEX) $ P MOVE F95PROC(W1),F95PROC(INDEX) @ P PERF DEDISC,FC h P RET P PEND P* P* PERROR P CBNE DEBINW4,W10,ERR90 . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL'
0x2e9dc8…2e9f5c Dummy {f00=0x00ec, f01=0x0190, f02=»PY JOB:' P FINP 11 P FCOPY JOBNAME P FLINK FANSW 6 P FMEND J P* X PFORMT FRMT b P FSL t P FCOPY =C'COPY FORMAT:' P FINP 14 P FCOPY FORMAT P FLINK FANSW P FMEND P* PFANSW FRMT P FNL
0x2e9f5c…2ea0f0 Dummy {f00=0x00ec, f01=0x4152, f02=» P FCOPY HEX00 P FMEND P* & PSYSTEM FRMT 0 P FSL D $ P FTEXT 'COPY SYSTEMVARIABLES ?' P P FLINK FANSW x P FMEND P* PVALUE FRMT P FSL P FTEXT 'COPY VALUE-SET T' P FINP 17 P FMEL '99',BCD3A
0x2ea0f0…2ea284 Dummy {f00=0x00ec, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2ea284…2ea418 Dummy {f00=0x00ec, f01=0x4032, f02=» =T P @ .70136940500 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x2ea418…2ea5ac Dummy {f00=0x00ec, f01=0x018e, f02=» > @ IDENT T:DUPL P,PRR=5.0,791206,870136940500 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x2ea5ac…2ea740 Dummy {f00=0x00ec, f01=0x0190, f02=» p s v x . { > } " N ~ ^ J F " D @! jB((K jB0&J 0X !& R0RB % * 6 RH # ?R RH R#?R R,?R1XFA n D
0x2ea740…2ea8d4 (3, 121) Dummy {f00=0x00ec, f01=0x0022, f02=» `+ -x- - - - - - - - - - . . .(
0x2ea8d4…2eaa68 Dummy {f00=0x00ec, f01=0x0190, f02=»b B %VCR4 . D d D i D n D r zD v D z D } "D t 6 d P d $ T1 , r <# B
0x2eaa68…2eabfc Dummy {f00=0x00ec, f01=0x0190, f02=» B $ @ c B B : F0 F G H I J P V d l t
0x2eabfc…2ead90 Dummy {f00=0x00ec, f01=0x0190, f02=» * B 0 0 0 0 0 ! d SYSVOLSYSVOLOUTPUT 2 $ 6 < N L
0x2ead90…2eaf24 Dummy {f00=0x00ec, f01=0x0190, f02=» : ( @
0x2eaf24…2eb0b8 Dummy {f00=0x00ec, f01=0x0190, f02=» 2 B x X @
0x2eb0b8…2eb24c Dummy {f00=0x00ec, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x2eb24c…2eb3e0 Dummy {f00=0x00ec, f01=0x0190, f02=» B . > $ N ^ J F " D # ?R RH R#?R R,?R1XFA R2 RRR?R RJ FL1XFA R2 RRR?R R?R1XFA n B
0x2eb3e0…2eb574 (3, 122) Dummy {f00=0x00ed, f01=0x0190, f02=» J F " D R2 RRR?RjB(&I jB.&I jB5! !0RB % * $ <R?R R(?R1XFA R2 RRR B j z M P
0x2eb574…2eb708 Dummy {f00=0x00ed, f01=0x0190, f02=»2 RRR_ LjB&! !jB'!P!0RB % * R ! <R?R R2?R0 | F : H " L M $ O Q l T ( | W Q & 6 1 / )PTS DATA-ENTRY UTILITIES PRR 1.0 800310* $ &
0x2eb708…2eb89c Dummy {f00=0x00ed, f01=0x0190, f02=» $ & CREATE VOLUMEY $ < & L 2 = Z $ n & ~ CREATE FILEM $ & 3 = $ & DELETE
0x2eb89c…2eba30 Dummy {f00=0x00ed, f01=0x0190, f02=» COPY SYSFILM $ & , 5 = : $ N & ^ NOT USED l $ & 6 = $ & NOT USED $ &
0x2eba30…2ebbc4 Dummy {f00=0x00ed, f01=0x0190, f02=» $ & VOLUME SURVEY- $ < & L 9 = Z $ n & ~ NOT USED $ ( n & CREATE VOLUME- $
0x2ebbc4…2ebd58 Dummy {f00=0x00ed, f01=0x018e, f02=» & & H & H ( VOLUME-NAME: 6 $ R & b & H t & H & TYPE: & X " ^! & $ S! & &
0x2ebd58…2ebeec Dummy {f00=0x00ed, f01=0x0190, f02=» h & & ( # &! - 3 (PTS-6876) 5 MB PACKEDE $ & P & ^ * % &# - 4 (PTS-6876) 5 MB UNPACKED2 l & & ( # &! - 5 (PTS-8863) MINI FIX DISCE & & & - 6
0x2ebeec…2ec080 Dummy {f00=0x00ed, f01=0x4052, f02=» UD : CT OV $ ` <@ N
0x2ec080…2ec214 (3, 123) Dummy {f00=0x00ed, f01=0x4140, f02=» > @ IDENT T:GETC P,PRR=5.0,791206,870136940500 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x2ec214…2ec3a8 Dummy {f00=0x00ed, f01=0x4124, f02=» > @ IDENT T:GETA P,PRR=5.0,791206,870136940500 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x2ec3a8…2ec53c Dummy {f00=0x00ed, f01=0x410e, f02=» > @ IDENT T:TSTC P,PRR=5.0,791206,870136940500 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x2ec53c…2ec6d0 Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:TFWD P,PRR=5.0,791206,870136940500 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x2ec6d0…2ec864 Dummy {f00=0x00ed, 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
0x2ec864…2ec9f8 Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:DISP P,PRR=5.0,791206,870136940500 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x2ec9f8…2ecb8c Dummy {f00=0x00ed, f01=0x0190, f02=» T:TABD , ( U P P Y +W Y + , ( u@ W T W Q W @ , ( Y + U Q P p T:TABC , ( BW W Y ( C T:RNOK I:RT1 * &
0x2ecb8c…2ecd20 Dummy {f00=0x00ed, f01=0x411c, f02=» 2] X 8 Y 0 : X 0 :H* , ( ' : X 2T Y 2 : C 1 & T:EDIO V E B ] : h H D ! W !W GP2 KR UP [P cW^ g 8 s * yWL }T * W> Q W , ( U Q P W W P /T
0x2ecd20…2eceb4 (3, 124) Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:GETF P,PRR=5.0,791206,870136940500 T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x2eceb4…2ed048 Dummy {f00=0x00ed, f01=0x4040, f02=» U 6 2 : $ U ^ *@ < T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x2ed048…2ed1dc Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:REWR P,PRR=5.0,791206,870136940500 ! . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP ! F T:IOWR ! x T:SCUW ! , ( C ( C : ! T:CLRD * ! T:REWR 0 ! , ( ! C B
0x2ed1dc…2ed370 Dummy {f00=0x00ed, 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
0x2ed370…2ed504 Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:DEDT P,PRR=5.0,791206,870136940500 # . * T:TABC T:TABD T:TABE T:TABN T:SCR2 # F I:EVNO # x I:ESKI # I:EVA0 # I:EBRI # I:EBRB # I:EBR # , (
0x2ed504…2ed698 Dummy {f00=0x00ed, 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 $
0x2ed698…2ed82c Dummy {f00=0x00ed, f01=0x0190, f02=» T:LOPS $ , ( V _` " P T & % , ( (W " P Y 0] Y (_t % B T:EDWF % r * ( " X _. * X *# P B % , ( 1 *W " P X X$ C % T:SCR2 % T:SCUR % * &
0x2ed82c…2ed9c0 Dummy {f00=0x00ed, f01=0x40a0, f02=» Y ( : X (;n . % H D ! +W /W 7Q ; ? KP Qp P P: Vp P4 T WT P P W & P P +W 3T 7W & j T & @ &
0x2ed9c0…2edb54 (3, 125) Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:ENLI P,PRR=5.0,791206,870136940500 ' T:DNL T:DSL ' F I:EVNO ' I:ECPY ' n I:EPIC ' I:ETXT ' I:ETAB ' I:EBRI ' I:EBRB ' I:EBR ' * &
0x2edb54…2edce8 Dummy {f00=0x00ed, 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
0x2edce8…2ede7c Dummy {f00=0x00ed, f01=0x4166, f02=» Q Y *T , : " P X 0U ( , ( X *# P P T " T : ) , T:ENIN ) , ( Y . . Y ( $ ) n , ( Y *T " T ! 1 W ! ) , ) : ) H D ! 6 # ( 5W KPV QRz ST$ [P aU
0x2ede7c…2ee010 Dummy {f00=0x00ed, f01=0x0190, f02=» > @ IDENT T:EINP P,PRR=5.0,791206,870136940500 * " T:PKI T:PINP T:TKI T:TINP * F T:PKI * l T:PINP * ~ T:GRFC * I:ETAB * I:EVIN * , ( I P & * , ( Y *T
0x2ee010…2ee1a4 Dummy {f00=0x00ed, f01=0x018e, f02=» & V D ! P $ * | T:TINP + T:TKI + 0 , ( u ! P %_ : V + B , ( Y " X .9H $ P + r , ( & X ( " Q Y +Q R " P W + , ( " U Y , " Q X . X 0R P + , (
0x2ee1a4…2ee338 Dummy {f00=0x00ed, f01=0x0190, f02=» , ( O X # :! R W T @ Y , T:ENIN , 4 T:ENI , F I:EXIT , V , ( o (W Y , W Y ( , h , ( @ : X *:h X (! # P X & V , , ( L T W X , X 0P T , , ( X *:h
0x2ee338…2ee4cc Dummy {f00=0x00ed, f01=0x0190, f02=»Y , , ( ) Y 8 & X 8 X $ W _ - , ( G " P X ( T X & V H "@T - : * & g P V Y X (P - j T:CLMI - , ( X (P - , ( 8 Y 0 X 2P X 0V _z -
0x2ee4cc…2ee660 Dummy {f00=0x00ed, f01=0x0000, f02=»
0x2ee660…2ee7f4 (3, 126) Dummy {f00=0x00ee, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 = . . : DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION ; FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x2ee7f4…2ee988 Dummy {f00=0x00ee, f01=0x0190, f02=»9 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 8 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x2ee988…2eeb1c Dummy {f00=0x00ee, f01=0x0190, f02=» R k z F J N@ 2 A ! ~U ! 9& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 6 ? jy " $ j !! 1 j !!
0x2eeb1c…2eecb0 Dummy {f00=0x00ee, f01=0x0190, f02=» !W h ! !Z< ") ; j !! 1j !! 2$ * _b " % ? j !! 'I *A ( $j ! !0 ^ h^ !T f^ ! !j^ !U !j '! !j !! ( _N ( + ~UWhj !! ' !QU I N! 6 ! 8 9b ! W:0 ^ h^ U !P 8! 9j !!^ b ! f^ ! !A j ! !d^
0x2eecb0…2eee44 Dummy {f00=0x00ee, f01=0x0190, f02=» - !"4 !!4 j !!^ ( !"4 9j ! j !! ( j (! ! _ f^ !0 ^ !j^ !U !!4 6 :W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h
0x2eee44…2eefd8 Dummy {f00=0x00ee, f01=0x0190, f02=» >j !# 'bc (c" 1? 1? 5 7 W' ## 3 ! 5 " 5 " " ! T T _< &? 1 An0= T !S 6 ," $ ! _ @n0= T !S0 ! _*a 0> S !4 >1 Ad # @d An@mAe@f 2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 2 R
0x2eefd8…2ef16c Dummy {f00=0x00ee, f01=0x0190, f02=» - 8 P ]AFNTX 2359T FTJBDATE:TIME:15 FILE-SPACE11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS999999XXE-XXE-XXXXE.XXE.XX T 0 * h d C F D E B C @ f ! A g T U
0x2ef16c…2ef300 Dummy {f00=0x00ee, f01=0x0190, f02=» f Hd ? ! 8T & ( !0 #$}? ) _ ! Eb "" " < $ U@f@e0 " An 2 _ ! 4 ! 7 5 W 6 " ! j " j $" Af0<~ 0 "P 0<~ j~#! ! ! !W !# 3Q* < 08 (+09 + ! !0 $$ %0$ 0 %%
0x2ef300…2ef494 (3, 127) Dummy {f00=0x00ee, f01=0x0190, f02=»eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Db !# ~ " ~ T $ 08 (+? - !? &A $ 1 !2 _ ( T & % X 1 8 Ao _
0x2ef494…2ef628 Dummy {f00=0x00ee, f01=0x0190, f02=» j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 08 +1 0 ! !G! "?! !P ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 _ 03 6 A _ $Gv ?v !P "?v ! " ! $ & ! % 0 & $Xm 2 _ & $4
0x2ef628…2ef7bc Dummy {f00=0x00ee, f01=0x0190, f02=» 8 " L c N01020304050607080910A N T TT FILESIZEUSERFILEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACEUSERFILE UNITNAME CONTENTS14 SYSTEM-VARIABLES XZZ9ZZZZ9 L M :U i K F G I J ! " # # H $ % # &
0x2ef7bc…2ef950 Dummy {f00=0x00ee, f01=0x0190, f02=» X% ? @ ( X% @ @ ) X% A @ * U ! # % ' * . 2 : C M Y f s 0 Q Q '" ! $ & ! % 0 & $Xm 2 _ & $4
0x2ef950…2efae4 Dummy {f00=0x00ee, f01=0x0190, f02=» h < ` d( !Ad1 An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 5 W ) 5 m ,P ) ? 7j !& 'bc c b W 0) ! 3 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x2efae4…2efc78 Dummy {f00=0x00ee, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 4? !6 (BRbr_ * ? + ? ,< j ! ! 5 @iW Ai? P ! 6 ? A ? ! 8 A ? @ ? <
0x2efc78…2efe0c Dummy {f00=0x00ee, 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
0x2efe0c…2effa0 Dummy {f00=0x00ee, f01=0x0190, f02=» " " " ! 2 0 "}H{ Ij 1 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? ! & 4 0# 6 66f 666666666W 'J ( W He !Id
0x2effa0…2f0134 (3, 128) Opaque[0x194]
0x2f0134…2f02c8 # DirEnt {nam=»DILINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1dd0, f03=0x0000}
0x2f0134…2f02c8 IdxSect {
0x2f0134…2f02c8 f00 = 0x00ee // 0x2f0134 @0x0
0x2f0134…2f02c8 f01 = 0x0022 // 0x2f0136 @0x2
0x2f0134…2f02c8 gno = [ // 0x2f0138 @0x4
0x2f0134…2f02c8 [0x00]: C0x00ee.0x2.0
0x2f0134…2f02c8 [0x01]: C0x00ee.0x3.0
0x2f0134…2f02c8 [0x02]: C0x00ef.0x0.0
0x2f0134…2f02c8 [0x03]: C0x00ef.0x1.0
0x2f0134…2f02c8 [0x04]: C0x00ef.0x2.0
0x2f0134…2f02c8 [0x05]: C0x00ef.0x3.0
0x2f0134…2f02c8 [0x06]: C0x00f0.0x0.0
0x2f0134…2f02c8 [0x07]: C0x00f0.0x1.0
0x2f0134…2f02c8 [0x08]: C0x00f0.0x2.0
0x2f0134…2f02c8 [0x09]: C0x00f0.0x3.0
0x2f0134…2f02c8 [0x0a]: C0x00f1.0x0.0
0x2f0134…2f02c8 [0x0b]: C0x00f1.0x1.0
0x2f0134…2f02c8 [0x0c]: C0x00f1.0x2.0
0x2f0134…2f02c8 [0x0d]: C0x00f1.0x3.0
0x2f0134…2f02c8 [0x0e]: C0x00f2.0x0.0
0x2f0134…2f02c8 [0x0f]: C0x00f2.0x1.0
0x2f0134…2f02c8 [0x10]: C0x00f2.0x2.0
0x2f0134…2f02c8 ]
0x2f0134…2f02c8 }
0x2f02c8…2f045c Dummy {f00=0x00ee, f01=0x0190, f02=» *6CR1 3 D b XD g bD k zD o D s D v D { tD 0 6 d P d $ T1 , B r < B
0x2f045c…2f05f0 Dummy {f00=0x00ee, f01=0x0190, f02=» B $ @ c B B : F0 F G H I J P V d l t
0x2f05f0…2f0784 Dummy {f00=0x00ee, f01=0x0190, f02=» * B 0 0 0 0 0 ! d SYSVOLSYSVOLOUTPUT 2 $ 6 < N L
0x2f0784…2f0918 Dummy {f00=0x00ee, f01=0x0190, f02=» : ( @
0x2f0918…2f0aac Dummy {f00=0x00ee, f01=0x0190, f02=» 2 B x X @
0x2f0aac…2f0c40 Dummy {f00=0x00ee, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . & & & & `
0x2f0c40…2f0dd4 (3, 129) Dummy {f00=0x00ee, f01=0x0190, f02=» *
0x2f0dd4…2f0f68 Dummy {f00=0x00ee, f01=0x0190, f02=» SYSVOL PTS-DE SYSFIL
0x2f0f68…2f10fc Dummy {f00=0x00ee, f01=0x0190, f02=»
[…0x5…]
0x2f18e0…2f1a74 (3, 130) Dummy {f00=0x00ef, f01=0x0190, f02=»
[…0xe…]
0x2f308c…2f3220 Dummy {f00=0x00ef, f01=0x0190, f02=» _51 A 2 _GjB'!P!jB(&H jB."& jB0! !jB1!!!jB2! !0 !10 B % * ~ " # #_ 3_ 1 A 2 _] : #? '6( -!D<$0 f!CKJT Y!D: X 0 f!C H_ #W 'W * H_ P0 C 4 0 4 0 f!C 0 f"C 0 f#C 4 1 A 2 _ !D< KL!D; KM
0x2f3220…2f33b4 (3, 132) Dummy {f00=0x00ef, f01=0x0190, f02=» 2 ? J F ? 1 A 2 ? jB(&I jB.&I jB5! !0 B % * $ < ? (? 1 A 2 ? ? 1 A 2 _ jB&! !jB'!P!0 B % * ! < ? 2? 0 !! 0 1 !0 Z !!4 /v lT3 747 4 3 3 3 5 w y2w lPk kdm v<xHwng k(jxk k k k k k k l2j eVk e 6 5T
0x2f33b4…2f3548 Dummy {f00=0x00ef, f01=0x0190, f02=» ~ ? s P :SF J T 1 =2 =3 =4 =5 =6 =7 =8 =9 =NEWFILEUSERINPUTNAME:DELETEOUTPUTSYSTEMUNIT: UNOT USEDPROGRAM:UNIT : UCOPY SYSFILCREATE FILEUSERDEFINEDVOLUME-NAME:CREATE VOLUMEVOLUME SURVEYCHANG
0x2f3548…2f36dc Dummy {f00=0x00ef, f01=0x0190, f02=» 8 0 7 / [ ( $ 6 F 4 + E 2 H ( 1 $ $ ' K 5 . E
0x2f36dc…2f3870 Dummy {f00=0x00ef, f01=0x0190, f02=»* $ % $ 1 $ 9 - Z 3 0 ( $ / , , 5 ! 4 " , 3 + E 2 H 2 H TYPE: ^! ,POSSIBLE TYPES - 1 (PTS-6875) 2.5 MB PACKED - 2 (PTS-6875) 2.5 MB UNPACKED - 3 (PTS-68
0x2f3870…2f3a04 Dummy {f00=0x00ef, f01=0x0190, f02=» MB - 7 VACANT $- 8 (PTS-6879) 0.25MB FLEXIBLE DISC $- 9 (PTS- ) 1 MB FLEXIBLE DISC ! $ ' * - 1 5 : ? E K Q X ` h p {
0x2f3a04…2f3b98 Dummy {f00=0x00ef, f01=0x0190, f02=» E Q n Q2T- 3 . 3 . 3</ z } F C W Of 3 A3 } } } Of } ' 8 3 B 3 z } C } ( B T B $ ' Y } ' _ 4 P< P8 <<HT _ R <A_ <A <a
0x2f3b98…2f3d2c Dummy {f00=0x00ef, f01=0x0190, f02=»} B & % ( ( T ( H 3 } & G } F ' R : <<H P < : } } & 54 R P W W V V Q _> _D } } & 9 z } & C C C } ( ( (
0x2f3d2c…2f3ec0 Dummy {f00=0x00ef, f01=0x0190, f02=» %_ 6 ( = _ 6 _ } & } & } ( : } } ' } _ } & } U Z Q 5 _ _ W z } & C } } & C } & C C ( B XR R_P W & Y < * C _& z } } P )
0x2f3ec0…2f4054 (3, 133) Dummy {f00=0x00ef, f01=0x0190, f02=» A7 A7 A7 A7 A7 A7 8> P A7 @7 P B @7 : R !LLP< R 1 R 2 Y A8 A8 A8 Y A8 A8 @8 W S 1 A8 S 2 A8 A7 8 ;< : 7 7 # A7 R Q
0x2f4054…2f41e8 Dummy {f00=0x00ef, f01=0x0190, f02=» @7 : R 0 $' R T W $ T A7 R !LLP @7 T A7 A7 R 1 R 8 A7 R 6! A7 PJ A7 A7 @7 @7 [ A7 A7 S$ @7 @7 HY4 @7 A7 @7 A7 W : A7 A7 @7 @7 @8 [ A7 A7 @7 @7 H A7 A7 Y4W R 6:B A7 A7 @7 PZ @7 A7
0x2f41e8…2f437c Dummy {f00=0x00ef, f01=0x0190, f02=» . A7 9H A7 A7 A7 A7 A7 @7 P A7 A7 B A;: ( B < @;: C C @7 C ( C B / < : @7 :c A7 A7 A7 A7 A7 @7 A7 @7 A7 A7 @7 @7 [ A7 A7 @7 R < 0 A7 0 A7 @7 T @7 X" @7 @7 R Q @7 @7 R
0x2f437c…2f4510 Dummy {f00=0x00ef, f01=0x0190, f02=» A7 @7 A7 @7 A7 @7 A7 W @ T^ Q 1 Q Q 7 R A7 @7 A7 A7 @7 C ( C @7 /T @8 T ? A8 : W W : _ @7 T _ _ R @7 A7 @7 A7 !LLPJ @7 T @7 @8 > P A7 P A7 @7 @7 @7 @7 H A7 A7 RnX W4 @7 @7 @
0x2f4510…2f46a4 Dummy {f00=0x00ef, f01=0x0190, f02=» A7 A7 @8 H A7 A7 @7 @7 @8 [ A7 A7 @7 @7 @8 H A7 A7 ^6 @7 @7 P P [ Q Q P A7 0 A7 @7 @7 @7 H A7 A7 T Q Q @7 Q @7 1 @7 @7 @7 @7 H A7 A7 A7 A7 @7 P @7 @7 @7 @7 H A7 A7 @ < <l <
0x2f46a4…2f4838 Dummy {f00=0x00ef, f01=0x0190, f02=»7 A7 2 C A7 @7 @7 < A7 A7 ( @7 / < 7 6 P J S T $ 1T P _ 7 X`_2 A7 : @7 T ? @7 < Q : 7 ? @7 E8 @7 K @7 K @7 K @7 K @7 K @7 K K K R 2 K R 1:H R K R !
0x2f4838…2f49cc Dummy {f00=0x00ef, f01=0x0190, f02=» : @7 T ? @7 < Q : 7 ? @7 ? A7 B* 2 A7 @8 % @7 R 2 R 1 % Y @7 A7 @7 A7 @7 @7 A7 A7 [ A7 A7 7 @8 C @7 A7 @7 A7 ( C @7 @7 @8 @7 P @7 [ A7 A7 @7 @7 YXR @7 @7 Yd @7 A7 @7 A
0x2f49cc…2f4b60 Dummy {f00=0x00ef, f01=0x0190, f02=» @7 A7 @7 A7 : A7 @7 Q6 A7 EF EZ E8 AEJ ( Eb 9 AEf ( E E8 @7 0 AE @7 @7 E [ @7 @7 E [ 7 E @7 T E E8 E A AE ( 7 @7 : A7 B T @7 T : A7 A7 8 A7 T> ? @7 P.
0x2f4b60…2f4cf4 (3, 134) Dummy {f00=0x00f0, f01=0x0190, f02=» J A7 J A7 B* R @7 9c A7 @7 E 0 AB 0 AB @B T @B E P @7 T P @7 C A7 A7 AB @B @B P P [ AB AB @7 @7 @B @7 @B Tr @7 @B Th P A7 P A7 A7 A7 AB P 0 @7 @7 [ Q 1 P A7 0 A7 @7 @7 @B T _ ]
0x2f4cf4…2f4e88 Dummy {f00=0x00f0, f01=0x0190, f02=»C C > @7 I @7 ) @7 I @7 I C ( - : ER FILE En 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH E A DELETED 1 0 0VOLUME
0x2f4e88…2f501c Dummy {f00=0x00f0, f01=0x0190, f02=» OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE FILE FILE FILE RECORD BLOCK LAST FILE FILE CREATION RET INDEX KEY MONITOR SWITCH NAME EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PE
0x2f501c…2f51b0 Dummy {f00=0x00f0, f01=0x0190, f02=» : G C ( B L8 : G 2 AG AF@ AG R AG R AG P AF( P AF* AE G "' R$ Q ( B ' L< AE L@ AG G C C ( B & B & L< B L2 2 F , 9 TO 4 L@ 4 IF0 Y F G F
0x2f51b0…2f5344 Dummy {f00=0x00f0, f01=0x0190, f02=»G F G FN G Fb G 2 FJ 4P 4W 4P4 AF@ F [ 4 4 F~ [ Fz G YBW YL @F@ F Z @FJ F Z F G F G F G F n G G8 n G FL FD FB FH FB L G ( B . L2 B &
0x2f5344…2f54d8 Dummy {f00=0x00f0, f01=0x0190, f02=»Z - U 8 U T U ZW - U d U l J 8 Z J ? Z J J [ J J [ . J J [ J " Z J " ) Z E G " N G J !SST J % T Z J & X Z FF R p $ ! R !__Q Y . % Y p
0x2f54d8…2f566c Dummy {f00=0x00f0, f01=0x0190, f02=»G F G FN G Fb G 2 FJ 4P 4W 4L AF@ F 4 4 F~ Fz G YBW YL @F@ F L @FJ F F G F G F G F n G G8 n G FL FD M, FB FH FB G ( B . B &
0x2f566c…2f5800 Dummy {f00=0x00f0, f01=0x0190, f02=» -FORMATTING THE DISC -CHECKING THE SECTORS TOSS REL 10.0 Z $ AN D AN D AN( D AN D AN* [ : Z $ AN" D AN& D AN D AN D AN$ [ : Z $ AN, D AN. D AN0 D AN4 D AN2 [ : M C C
0x2f5800…2f5994 (3, 135) Dummy {f00=0x00f0, f01=0x0190, f02=» .P " T V : AN6 @ AM AM| Np R ' P P N ararbr N> M P N c6d6e6 N> [+ [h 4 Np[4 4 P N e e e N> rS S E Npq+ W R N> &? &@ N e e e P N ] ^ N>
0x2f5994…2f5b28 Dummy {f00=0x00f0, f01=0x0190, f02=»^ _ ` N> L L W 2 AM AMz $ AM $ AMy AM R ! T M AN6 ( B V " V P C C ( Q C 6< V M 2 C I I " C ( Q ( Q C W B 9 R ! T : V V M C C C
0x2f5b28…2f5cbc Dummy {f00=0x00f0, f01=0x0190, f02=» E B NN % Z R R E ( ( ( AM AM AMv LJ ALJ L AL L AL M, AM, 2 M N M AM AN< 2 N N<T N ( N<Tv B & V B V P& T
0x2f5cbc…2f5e50 Dummy {f00=0x00f0, f01=0x0190, f02=» N Mx ( $ AM O M ( O Mx B & V B P Wl @M| Y 2 N8 N: P W T N T P N8 N:W( $ Y P N _2 N8 N:W& T U @LJ L U ALJ O O @N T& @N U
0x2f5e50…2f5fe4 Dummy {f00=0x00f0, f01=0x0190, f02=» P W T N T P N8 N:W $ Y P N _2 N8 N: O O @N TP @N U| QB AM Q4 AM W* T P6 @LJ L V. ALJ O O Mx( S M ( T W W W W W Z@ : AM| AM @M, LL L @LJQv @
0x2f5fe4…2f6178 Dummy {f00=0x00f0, f01=0x0190, f02=» _" @L Q Mv^ $ M D - _" AM, M Z M N Mv M. @M,QT @L 4 T O H 1 Q @M,Q4 4 T H O 1 Q @M,Q _* @L W @N @N HQ 1 Q AL @N2 AM L M* 2 P T 0P( 0 % %
0x2f6178…2f630c Dummy {f00=0x00f0, f01=0x0190, f02=» M O$ N2 AM X^ AM @N2 Q U( _ 2 % 2 * % Y : M. X^ 2 * @M,Q Pl * BA % DS % PO % T % 5 Y 5 Y % % , % , % B % % (_x O$ ^ W O$
0x2f630c…2f64a0 Dummy {f00=0x00f0, f01=0x0190, f02=» @M % % M ) % % Z @N % @N( % @N* % N ( % Y 2 % @N2 O . R O 1 R O 0 O$ Mx( @M V Z@ : @N6T Mx : R _ P 0 - : ; [ V - - ' ZN ZN d ZN ZN
0x2f64a0…2f6634 (3, 136) Dummy {f00=0x00f0, f01=0x0190, f02=» 0 / [ : ; [ [ [ [ B@ Z Z ' Z Z d Z Z [ Z Z Z Z : : ; [ [& : V *W R - _ 1 T R P[ - _ : [ S Q"
0x2f6634…2f67c8 Dummy {f00=0x00f0, f01=0x0190, f02=» _ ;A [ :DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 F %? t v UU v 3 2P _ 4 , ) T G.G K. A ;A; G. $ ] ] S S S S % =A S S S .
0x2f67c8…2f695c Dummy {f00=0x00f0, f01=0x0190, f02=»=e Q P ?e R P S ?C/ G O % R ' P % =B S t w E M % n :^b P #P ( B. T P ' " P : P S P S P " `_" W R - _ 1 T R P[ - _ : [ S Q"
0x2f695c…2f6af0 Dummy {f00=0x00f0, f01=0x0190, f02=» 4 , ) T G.G K. A ;A; G. ^ ] ] S S S S % =A S S S . N 0 N S W P X _ R R "( R `b 0 R _ <d?d
0x2f6af0…2f6c84 Dummy {f00=0x00f0, f01=0x0190, f02=» Q R %| _B _& :a P #P ( B. T P ' " P : P S P S P " `_" F t v @0 UU 3 2P _ 4 , ) T G.G K. A ;A; G. ] $ ] S <
0x2f6c84…2f6e18 Dummy {f00=0x00f0, f01=0x0190, f02=» P X _ R R <" R R b " P #P ( B. T P ' " P : P S P S P " `_"b =D @ t w E M T 1 E _ M @ p : 6 "? UU t 3 2P _ 4 , 5 T
0x2f6e18…2f6fac Dummy {f00=0x00f0, f01=0x0190, f02=» N 0 S & N S W P X _ R R "? R R dH h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j :d P #P ( B.
0x2f6fac…2f7140 Dummy {f00=0x00f0, f01=0x0190, f02=»j jV n2 Y ( x P Y * g x y Wv X " f X X . 8 j v X 0P X T 5 ! Y * g y X V& X ( n x C ( Y * X Y , m X X C & C C ( B Ph9 R^9 i" X !@PP X X * b ) Y * Y
0x2f7140…2f72d4 (3, 137) Dummy {f00=0x00f0, f01=0x0190, f02=» * $" ~_> @ Y X * e _R X !@XX y X # x V y X X * n P P 1 _ 1 g X * e X X * $" X D % " X # X * n y _< X # X * y n X 1 1 X !@T X $ " P y _ x T i h X H X X * , )$ P
0x2f72d4…2f7468 Dummy {f00=0x00f0, f01=0x0190, f02=» i" X ! T i _ y C Q " T n2 n X ! j X X ! x Y~ Y _ X "@P B R y C B P 9 V i _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c v C _$ _ i y _6 h x X@ X m X
0x2f7468…2f75fc Dummy {f00=0x00f0, f01=0x0190, f02=» B i C m : + n2 X m n ( w< } ( wH vb : B j C _J + . v X 9 V ! P @ Y } Y Y . : || } } " } $ : v 2! Y " w< } wH } H v X "T X v n v
0x2f75fc…2f7790 Dummy {f00=0x00f0, f01=0x0190, f02=» R P P X ' ' X _ X ' _ X '?_ v } X ' v X ! v v v X " 9b! X :c 2" Hk v @ W W W W W W W v Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 n W U X Q o W Y 0 n o z yh v
0x2f7790…2f7924 Dummy {f00=0x00f0, f01=0x0190, f02=» m m W> Q W Y + U Q P W W Y ( n C v X *! P V L ! v X 0 Y 8 mL P v Y 0 X 0 X 2] X 8 Y 0 mL : X 0 :H* v : X 2T Y 2 : C 1 B ] y : m X +! U 9K Y ( Y + n o v 9H Y * 2
0x2f7924…2f7ab8 Dummy {f00=0x00f0, f01=0x0190, f02=» B _N ( w< X D D : K + Q 2 P. P8 |n ( wH B X # V : } 0_0 ~ _> > <} < < < * & dp:q q <p, < F W W X 0Q o o Y ( Y *P yh r n X <' X X v X *# X (
0x2f7ab8…2f7c4c Dummy {f00=0x00f0, f01=0x0190, f02=»yPW " P X X$ C : X *! P yh vV C W @ X (T W X y 6 Y ( : X (;n v > 0 0 p * & dp:q q p, < F v Y . Y ,W v Y . X ( X ." PV X 0RzT$ Y *P U :H v p K T lW b X . X 2QH Y *T2 X :
0x2f7c4c…2f7de0 Dummy {f00=0x00f0, f01=0x0190, f02=» P & Y *T q2 : X > T X & V D ! T W X v v X >P( R Q" X & V D ! P $ ! P %_ X : v V Y " X .9H $ P & X ( " Qv Y +Q R " P W " U s Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl
0x2f7de0…2f7f74 (3, 138) Dummy {f00=0x00f1, f01=0x0190, f02=» Y ( : X *:h X (! # P X & V L TbW X , X 0P@ s T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l tF_r X ( P Y (_ P* t P| Y 8 q2 X 8 X $ v Wh_ " P X ( T X & V H "@TF t P6 V Y X (P v tn
0x2f7f74…2f8108 Dummy {f00=0x00f1, f01=0x0190, f02=» V ( P t : : s "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : v X : X ( T X & V H " V Y : X $ v X : v : X Y " X Y $ X Y & X @W X < Y = " w< ! T W B ! P =H
0x2f8108…2f829c Dummy {f00=0x00f1, f01=0x0190, f02=» Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y } W Y ! P |jW V Y v V Y : } 0 : 2' " P T ~ W |n : v : v yh vV C v X v : "0P ' Q W ' Y
0x2f829c…2f8430 Dummy {f00=0x00f1, f01=0x0190, f02=» R : V E V D ' $ T ( W v P X =' V W V Y =P v : ( } } V W y x w / x _ z z zZ P } <H : w W z zZ } / <H : z zj C C W zv C
0x2f8430…2f85c4 Dummy {f00=0x00f1, f01=0x0190, f02=» zj z ( 1W C C C ( ' P" x P B % P C + {N y I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : z yh yR C x C B B P C y : V I C
0x2f85c4…2f8758 Dummy {f00=0x00f1, f01=0x0190, f02=» T T T V : 2 ' W 2 6 2 @* " T # ' ?D ~ W"' #? ~ ;D:B " : _ } C : : z zj |b P C W $0 P C z : "!@P ") # B C B % C C : |b#0 T & C C : z C C :
0x2f8758…2f88ec Dummy {f00=0x00f1, f01=0x0190, f02=» B " {l : P|0 |FPR L| R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 |F *D*L*H*P :l:d:h
0x2f88ec…2f8a80 Dummy {f00=0x00f1, f01=0x0190, f02=» ~ L|J E V $ W D V L|R , W 6 2 ~ W$ " P& Pd" # ~ ;b Wv " ;d# _ [ v [ w< } wH Z Z : R ; } 6 : F _v :B , (Vr ; H [ [ [ }
0x2f8a80…2f8c14 (3, 139) Dummy {f00=0x00f1, f01=0x0190, f02=» [ } & @*Z! P [ 6 [ Z 7 |x Z 7 : ( :A ( @* " P ! P [ :;H 2 }D } ;h ~ : ; V Y : 2! : 6 2 ~ W& " # ~ ;b ; : ;f" #?_"$0#0;b
0x2f8c14…2f8da8 Dummy {f00=0x00f1, f01=0x0190, f02=» # ; [ _n' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y
0x2f8da8…2f8f3c Dummy {f00=0x00f1, f01=0x0190, f02=» gg++ L 33 @|b|x B~ |n} > 0 0 < * & d l b < F 6 l K K K K V K : } r |r V l V Z P 2 " T W "@T '?W "? H 2" K
0x2f8f3c…2f90d0 Dummy {f00=0x00f1, f01=0x0190, f02=» Z Z P v : V R (Q V : *j *j : J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K WJ hW +_ ~ K W. _& X yPW X & yL J K : V : 1 : + }
0x2f90d0…2f9264 Dummy {f00=0x00f1, f01=0x0190, f02=»! D L 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 " !00T ; _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W " 8 !++P !--
0x2f9264…2f93f8 Dummy {f00=0x00f1, f01=0x0190, f02=»v W V 7 T V P v P W 9c D d } |b Q rW :aW _B( 2 P V W8 _ 2 # ;B V T -,W V P L , V 2P " 2 P V D ! R T V P V v W V _ 8^n D
0x2f93f8…2f958c Dummy {f00=0x00f1, f01=0x0190, f02=» 2" &] Y $! 6P Q $ T 9B H _ _ 6 @* " T 7 $ V P v W _ 0 V & 8 H 'W 'W '_6 : ! P ! P ! P ! P } ! P |jW : ! )P9H # T &W &" :I : B
0x2f958c…2f9720 Dummy {f00=0x00f1, f01=0x0190, f02=» [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! #
0x2f9720…2f98b4 (3, 140) Dummy {f00=0x00f1, f01=0x0190, f02=» _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [
0x2f98b4…2f9a48 Dummy {f00=0x00f1, f01=0x0190, f02=»P N V H )_ _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V
0x2f9a48…2f9bdc Dummy {f00=0x00f1, f01=0x0190, f02=»! ! R 2` { z " P ! R 2` { 1 ! { [ Z Q P _ T { [ [ Q@ [ T { R [ _ N Z ! Z $ Z %_N [ Q* N R [ Z { N z 9e! W Z : V I _ ,
0x2f9bdc…2f9d70 Dummy {f00=0x00f1, f01=0x0190, f02=» { : PZ 9 _ [ Z : R$ P $ 1T Y W 5 _& : $ R W R # P W ) V E WX [ : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R
0x2f9d70…2f9f04 Dummy {f00=0x00f1, f01=0x0190, f02=» X L P T j!j" !: h"h! x"x! f"f! `"`! z"z! b"b! E0 f# j#P 0 f#C @" 4 d!!? f!f# ! `! !!Cjb! "C%jz! "C! ! ! " @ h! "! J@ h#h! x#x! `#`! z#z! b#b!!FB 1 #A 2 !GA 3": 4#: AC @ U! !" Y jA!" " 8" : !FB G[1 "A 2 G
0x2f9f04…2fa098 Dummy {f00=0x00f1, f01=0x0190, f02=» t ? "V )S1 0 ! 0 2 GA+ *"_!!FB G 1 A 2 GAH -# )#^R1 0 ! 0 2 GAg_! j!j" f!f" h!h" x!x" `!`" z!z" b!b" d!! f!f"A" "Ra j!j# f!f# h!h# x!x# `!`# z!z# b!b# d!! f!f#A" "R.0 R0 CI4 f!f h!h x!x `!` z!z b!b 4 ( * 1 _<
0x2fa098…2fa22c Dummy {f00=0x00f1, f01=0x0190, f02=» !0 P 0 0 9 1 _ ( 0 !!_32 #@ 4 0 : , "? o2 B0 3 2 !W 0 ( _ "0 0 2 W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 7 HH:HH:
0x2fa22c…2fa3c0 Dummy {f00=0x00f1, f01=0x0190, f02=» 0R $ % 0 0 9< 2 ? 2 #4 0 0 ? !4 p S s m U v 3 9 ~ M
0x2fa3c0…2fa554 (3, 141) Dummy {f00=0x00f1, f01=0x0190, f02=» T ! COPY SYSTEMVARIABLES ? ! ( A z 0 4 2 !W 0 ( _ "0 0 2 W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 7 HH:HH:
0x2fa554…2fa6e8 Dummy {f00=0x00f1, f01=0x0190, f02=» b ] l V Z ^@ 2 A ! [ ! A& !0$ !T J _ : I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P !0$ ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ; ( j ! ! ! ? ? j " $ j !! 1 j !!
0x2fa6e8…2fa87c Dummy {f00=0x00f1, f01=0x0190, f02=» !W h ! !Z< ") C U j !! 1j !! 2$U *U _b " % ? j !! 'I *A ( $j ! !0& h !T f ! !j ![ !j '! !j !! ( _N ! ( + [Whj !! ' !QU I N! ? ! @ Ab ! W:0& h [ !P @! Aj !! b ! f ! !A j !
0x2fa87c…2faa10 Dummy {f00=0x00f1, f01=0x0190, f02=» W - !"4 !!4 j !! ( !"4 Aj ! j !! ( j (! ! _ f !0& !j ![ !!4 6 BW [ j !! W j !! (W [j ! j '!!! !j !! j (! _+( # j (! !j !! 4 @`@a@b@d@f@h@i 2 # !" #$%&'(
0x2faa10…2faba4 Dummy {f00=0x00f1, f01=0x0190, f02=» 4 ( ' 5 D e ) 1 @ } I B S H Q FTX FTJBS 6 ( V 5 V 5f ! !A j !
0x2faba4…2fad38 Dummy {f00=0x00f1, f01=0x0190, f02=» z n r v6 &90( f! ? P Kj 4 0) f! ? P Kj 4 0( f ? P Kj 4 0) f ? P Kj 4 0( f > 4 0) f > 4 @j0 @0 P 64 ?0 P >4 ;0 P Aj4 !0 P =4 h bC * )bC*< x 0) f C? V 4 0( f C? V Kj h x b )*C b <C*
0x2fad38…2faecc Dummy {f00=0x00f1, f01=0x0190, f02=»$" uV> u j " " ( R#j $"u ^&j "C" R j $" 5W j ""u j $" j &"* u H` *? ? u? _ u) > ? j " $ : 0 j " " u j $" )? u ? j " "_2Ac u ? @e@f h 0* ` !"` b 1AiW-j " - R R _9 W I
0x2faecc…2fb060 Dummy {f00=0x00f1, f01=0x0190, f02=» -j " R R _a _) +_% 0, 4 ! ! ! " V 0'_ " b )*C b <C* !4 "bC * )bC*< & 4 @ @ j " "j " $( A W= Rgj " "j "" ( # j " $ RCj "" W ( A I 'W R j " $j $" R Ic ! 4 $
0x2fb060…2fb1f4 (3, 142) Dummy {f00=0x00f2, f01=0x0190, f02=» V H n U n U " " ( R#j $"u ^&j "C" R j $" 5W j ""u j $" j &"* u H` *? ? u? _ u) > ? j " $ : 0 j " " u j $" )? u ? j " "_2Ac u ? @e@f h 0* ` !"` b 1AiW-j " - R R _9 W I
0x2fb1f4…2fb388 Dummy {f00=0x00f2, f01=0x0190, f02=» $ B 2 H 0'_ A"T|A @c d!!"d!!o G j!0 f!C P 0 f!C @" 4 d!!WL [ !0$ !T D !_ ! `! !!Cjb! "C%jz! "C! ! ! " Q h! "! [ 3@ 4 H"#@" d!!"d! !T !!CT "!C0 f!C 4 H 0'_ #! R R W A#T A @` d ! d ! F j 0 f Tg
0x2fb388…2fb51c Dummy {f00=0x00f2, f01=0x0190, f02=» d !W H` B@ 4 H#4@# d !Q, T h & #! T j ! ! $! T 0 f C 4 j? " )(? ?@j " '( ! ?0& * 6 HW > / p 4 : !: ) W} $ ! CV ! =5? j "C&# >1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !: jC$" " C *
0x2fb51c…2fb6b0 Dummy {f00=0x00f2, f01=0x0190, f02=»`_1Ab t 0# P v$ w Ib w4(v $C*: v w w( : !vCV ! = ? ) v ? j "C&Hb$ w* w wW0 $j "C * v Jb= w _B$w4 , w w w*_- w? "_- " Cb !&C b &C ? < @c $C*: &j "C&fC * *jC&" " * @c C: " C: ! C: "V )( ) )? j "C$jC "
0x2fb6b0…2fb844 Dummy {f00=0x00f2, f01=0x0190, f02=» % ; n F F X FC PTS-DE SYSFIL 0 ! HW > / p 4 : !: ) W} $ ! CV ! =5? j "C&# >1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !: jC$" " C *
0x2fb844…2fb9d8 Dummy {f00=0x00f2, f01=0x0190, f02=» 8 F T v : '6 (t ]@c $C*: Ca< C[ ! C "V t ! ? ! @ AfT ? )? t j "C$ j !!C( j !!C) ! V -? t_Y j <C*j )*C ! ! ! CV & _oj "C$j !! (_3 $ &q q ? 8? Ha j !! '$ ! _ ? %_5Aa_ : CC * !b
0x2fb9d8…2fbb6c Dummy {f00=0x00f2, f01=0x0190, f02=» _0AaW3jC " "'C< ! C< j "C$ !< & _ A%6 : b "A! % A !? !'CP >< H`l CD "'C: " *j "C ( H`O !: jC " "'C: _ Ca ! C< j !!C)*U !j "C$ !H` 1h r !C(!X _ )? C`< ! ! ! < b )*C b <C* $ &r r ?
0x2fbb6c…2fbd00 Dummy {f00=0x00f2, f01=0x0190, f02=» R j " $j " * ` 4 j " " & 6 jC " 4 j "C !"4 !!4 P % Z H ; a _T SV TC 8? Ha j !! '$ ! _ ? %_5Aa_ : CC * !b
0x2fbd00…2fbe94 (3, 143) Dummy {f00=0x00f2, f01=0x0190, f02=» 5 D Z A`Ad : Ac # *V ) ? Hd ? @ ,V ) ? Hd ? Id (? : *mj " &" pz j " "j &" : * Lj "" j $" @ : j " " u : j "u "j &" : [j &"* W M #j "" j $" *_zj $" : Mj "" _(j " &" p _z
0x2fbe94…2fc028 Dummy {f00=0x00f2, f01=0x0190, f02=» u u , ) )? j ! b !& b '&@ ) V5 ! ! " : * s [j s)" Id ? u) ? ? >? : VJ! ? ) ? W !: CPjC"" bC*< " C: ! C: jC$" " C? bC*< " C? '6 @bT # : ! CV ! ? ? )? Hb &C 0#
0x2fc028…2fc1bc Dummy {f00=0x00f2, f01=0x0190, f02=» Ka %_1Aa_ : @c CH H C[ "#C? $W " #0# T : j "C KAb_ A`Ac0# TY # *RnH`. $* j " $ Z : j " &* *K ,H` b & ? 0#@T$ @ ,R. & =b@ & ? #X;! ? ? : j " &* * ,_' )? # ! CR)j "C&" * ?W Hb &C j "C$
0x2fc1bc…2fc350 Dummy {f00=0x00f2, f01=0x0190, f02=» !_> TJ!D; !D< KM1 A 2 _ 1 !_ 0 f!CMHP HIP KL1 A 2 _ >I J YjB'!P!0 !% jB&! jB((K bB0&J BjB !!! CjB "> !D; jB "= !D: XjB ! ! WjB " W X FjB " EjB " DjB " 0.B , ! 4 ) :_ " > % ; m
0x2fc350…2fc4e4 Dummy {f00=0x00f2, f01=0x0190, f02=»OF RECORDS:BLOCKING FACTOR:NO. OF SECTORS/RECORD:ZZXZZZZX N Q Y % $ S X [ * $ N Q Y [ 1 $ $ ' K O Q W R X [ ! $ '
0x2fc4e4…2fc678 Dummy {f00=0x00f2, f01=0x0190, f02=» t _ n h l p S! Yj ! j !" Y ! )D: % j #" ^!Y ^!O ^!Q ^!j %" j '" j )"? 0) f! ?S: 4 N Y ?!D; ( !W X " ! ! , P ! !D; (W " ! $!D; )W ! ( ! S"
0x2fc678…2fc80c Dummy {f00=0x00f2, f01=0x0190, f02=»& ! !P S S !( ! _ 4 #_ j &"* !)D; S# C *W* S# D !W S$ B !W S% E !W S' F !j " 0) f! ?SZZ7 A6+ _e 0 ! 4 2 "W #W &W + #4 _ j ! ! L ! K _" 1_ j ! ! H I( J,_; Z<2 HI6_@ RL
0x2fc80c…2fc9a0 Dummy {f00=0x00f2, f01=0x0190, f02=»4 _ P 0 ""0 P0/ CH 0 !!_ K KM KL d ( h ! !< f !_ 1 2 ? P 0 P0/ CH 0 ""( >0 !!? P 0 "" QPjB&!P!0 P0/ CH ( 0 !!!ZO !ZP (HI ? ? ? ( E ? P 0 $$ RPjB'!P!0 P0/ CH 10 ""_F W W$ ! # @ ?
0x2fc9a0…2fcb34 (3, 144) Dummy {f00=0x00f2, f01=0x0190, f02=»!OP4 > S q A X z B D 9 , ' 1 % - 5 = & e FCJCJDSVTC 123NY FS 'g 0 0 0 0 " h
0x2fcb34…2fccc8 Dummy {f00=0x00f2, f01=0x0190, f02=» 0 $ ( , !1 PVQ > ?0 % = "1 3 0 W 1 !0 ( 0 ! _3 86 _'0 W 40 4 [ @ 0 0 6 4 A _ 0 0 4 4 r 2 3 1 XXXXX- I/O-ERROR DISK OVERFLOW ILLEGAL VALUE UNDEFINED ERROR
0x2fccc8…2fce5c Dummy {f00=0x00f2, f01=0x0190, f02=»ACE IN CORE FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR OUTPUT FILE TOO SMALL FILENAME ALREADY USED SYSTEMFILE NOT CREATED SYSTEMFILE ASSIGN-ERROR TOO FEW INPUT CHARACTERS COMPULSORY FIELD NOT FILLED VOLUME-NAME MUST BE "SYSVOL" *WRONG NO. OF SEC
0x2fce5c…2fcff0 Dummy {f00=0x00f2, f01=0x0190, f02=» 7 Q l - @ ( 0 ! _3 86 _'0 W 40 4 [ @ 0 0 6 4 A _ 0 0 4 4 r 2 3 1 XXXXX- I/O-ERROR DISK OVERFLOW ILLEGAL VALUE UNDEFINED ERROR
0x2fcff0…2fd184 Dummy {f00=0x00f2, f01=0x406e, f02=» 1 v E ( A z 2 Q 0 2 0 U 4 2 D X 2 X@ 2 j ]NYT Y/NSYSFIL 1 b * & COPY JOB:COPY FORMAT:99 G 1 * & ! F ! D G 1 * & [ COPY VALUE-SET
0x2fd184…2fd318 Dummy {f00=0x00f2, f01=0x4014, f02=» HNOD 3 @ 3 E ( A z 2 Q 0 2 0 U 4 2 D X 2 X@ 2 j ]NYT Y/NSYSFIL 1 b * & COPY JOB:COPY FORMAT:99 G 1 * & ! F ! D G 1 * & [ COPY VALUE-SET
0x2fd318…2fd4ac Dummy {f00=0x00f2, f01=0x018e, f02=» IDENT P:S002 4 * & @ 2 A ! 4 " * & - [ ! A& !0$ !T J _ 4 P * & K : I !_) _7j ! ! h 9 4 ~ * & i !X8H !( @ h 9[ !j 4 * & ! ! !P !0$ ! N_m ? 4 * &
0x2fd4ac…2fd640 Dummy {f00=0x00f2, f01=0x0190, f02=» * & 1 j !! 2 j !! 5 * & (I !Y A ! ! ? 5 2 * & ; ! 0% !h & !&P !0$ !< 5 ` * & Y _ ( ) +h & '&Z h ! 5 * & w !R !W h ! !Z< ") C U 5 * & j !! 1j !! 2$U *U
0x2fd640…2fd7d4 (3, 145) Opaque[0x194]
0x2fd7d4…2fd968 # DirEnt {nam=»REORGU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x2fd7d4…2fd968 IdxSect {
0x2fd7d4…2fd968 f00 = 0x00f2 // 0x2fd7d4 @0x0
0x2fd7d4…2fd968 f01 = 0x0008 // 0x2fd7d6 @0x2
0x2fd7d4…2fd968 gno = [ // 0x2fd7d8 @0x4
0x2fd7d4…2fd968 [0x00]: C0x00f2.0x3.0
0x2fd7d4…2fd968 [0x01]: C0x00f3.0x0.0
0x2fd7d4…2fd968 [0x02]: C0x00f3.0x1.0
0x2fd7d4…2fd968 [0x03]: C0x00f3.0x2.0
0x2fd7d4…2fd968 ]
0x2fd7d4…2fd968 }
0x2fd968…2fdafc Dummy {f00=0x00f2, f01=0x0190, f02=» ( P IDENT REORGU REL. 1.0 79-05-29/LABJ $ P******************************** 0 $ P* REORGANISATION OF USERFILE * X 0 P******************************************** 0 P* WORKITEMS *** INPUT *** * 0 P* RECNUM = JOB-CHAIN RECORD NO.
0x2fdafc…2fdc90 Dummy {f00=0x00f2, f01=0x0190, f02=»T USED * 0 P* BIN4 = POINTER IN BATCH-CHAIN * ( 0 P* BIN5 = POINTER TO ACC.RECORD * 0 P* BIN6 = POINTER TO DS-RECORD * 0 P* BIN7 = OCC.BYTES IN JOB-CHAIN-RECORD * 0 P* BIN8 = OCC.BY
0x2fdc90…2fde24 Dummy {f00=0x00f2, f01=0x018e, f02=» 0 P* BIN10 = JOB-CHAIN RECORD NO. * 0 P* BIN11 = BATCH-CHAIN RECORD NO. * 8 0 P* BIN12 = OCC.BYTES IN JOB-CHAIN-RECORD * l 0 P* BIN13 = OCC.BYTES IN BATCH-CHAIN-RECORD * 0 P* BIN14 = LINK PREVIOUS * 0 P
0x2fde24…2fdfb8 Dummy {f00=0x00f2, f01=0x018e, f02=» P ENTRY REORGU P* P EXT DECLRN $ P EXT DSKERR 8 P EXT FREESP L P EXT DISU ` P* r P EXT CHANFC | P EXT GETVOL P EXT CHVOL P* PCLOSE EQU X'03' P* PREORGU PROC P****************
0x2fdfb8…2fe14c Dummy {f00=0x00f2, f01=0x0190, f02=» ~ PDES1 P MOVE RPOOL(DKBIN1),=X'5800' P ADD DKBIN1,W1 8 P CBNE DKBIN1,W17,DES1 N P* l * P MOVE TABLE,VOLNAM OUTPUT VOLUME-NAME v P CALL CHANFC,DISK,FCOD1 8 P CALL GETVOL,DISK,SBUF,VOLNAM,RETCOD GET VOLUME-NAME P CMP RET
0x2fe14c…2fe2e0 Dummy {f00=0x00f2, f01=0x0190, f02=»SK,0,DEBINW4,USEFIL,VOLNAM INPUT P BNOK ERROR ( P CALL CHANFC,DISK,FCOD2 < 0 P ASSIGN DISK,0,DEBINW4,USEFIL,COPNAM OUTPUT P BNOK ERROR 0 P PERF DISU,W5,W2,RBUF READ FREE-SPACE OUTPUT P BNOK ERROR " P COPY RPOOL(W1),W9,W10,RBUF,
0x2fe2e0…2fe474 (3, 146) Dummy {f00=0x00f3, f01=0x018e, f02=»3 1:ST JOB-CH RECORD INPUT , P MOVE BIN10,W3 1:ST JOB-CH RECORD OUTPUT " PC10 R & P MOVE BIN2,W10 POINTER TO 1:ST JOB ^ P B C12 PC101 P ADD BIN2,W10 " P CBG BIN2,BIN7,C11 >OCC. BYTES P B C13 PC11 * P XCOPY RECNUM,W0
0x2fe474…2fe608 Dummy {f00=0x00f3, f01=0x0190, f02=» f P BOK C13 P CMP DEBINW4,W9 P BE C90 0 P B ERROR @ PC13 P ( P XCOPY BIN7,W0,W2,RBUF,W6 OCC. BYTES " P COPY STRG10A,W0,W10,RBUF,BIN2 " P COPY JOBNAME,W0,W6,STRG10A,W2 @ P XCOPY BIN1,W0,W2,STRG10A,W8 REC.NO.-POINTER TO BATC
0x2fe608…2fe79c Dummy {f00=0x00f3, f01=0x0190, f02=»T PC14 P PERF DECLRN P IB DEBINW2,C14,C90 * P CBE ANSW,=C'N',C101 F PC16 b P MOVE DEBINW4,W0 n * P PERF DISU,W5,BIN10,SYSBUF READ OUTPUT P BOK C18 P CBE DEBINW4,=W'30',C165 P B ERROR PC165 P* NO DA
0x2fe79c…2fe930 Dummy {f00=0x00f3, f01=0x0190, f02=»F DISU,W4,BIN10,SYSBUF WRITE P BERR ERROR $ PC18 8 , P XCOPY BIN12,W0,W2,SYSBUF,W6 OCC. BYTES D P CBL BIN12,=W'388',C19 t * P XCOPY BIN9,W0,W2,SYSBUF,W4 LINK NEXT P CBE BIN9,W0,C184 P MOVE BIN10,BIN9 P B C16 PC184
0x2fe930…2feac4 Dummy {f00=0x00f3, f01=0x0190, f02=»BIN10,SYSBUF WRITE P BERR ERROR P MOVE SYSBUF,=X'4A4300' 'JC' . * P XCOPY SYSBUF,W2,W2,BIN10,W0 LINK PREV R P MOVE BIN10,BIN9 P B C17 PC19 P* INSERT JOB-ENTRIES * * P PERF FREESP,BIN11,W1 BATCH RECORD NO. P BERR ER
0x2feac4…2fec58 Dummy {f00=0x00f3, f01=0x0190, f02=»F,W6,W2,BIN12,W0 OCC. BYTES $ P PERF DISU,W4,BIN10,SYSBUF WRITE $ P BERR ERROR L P EJECT ` P****************** n P* COPY BATCHES * P****************** PC20 P MOVE BIN4,W10 P B C22 PC201 P ADD BIN4,W12
0x2fec58…2fedec Dummy {f00=0x00f3, f01=0x0190, f02=»1,W0,C101 NEXT JOB P B C20 PC22 ( , P PERF DISU,W3,BIN1,SBUF READ BATCH-CHAIN 4 P BOK C23 d " P CBE DEBINW4,W9,C101 NEXT JOB t P B ERROR PC23 ( P XCOPY BIN8,W0,W2,SBUF,W6 OCC. BYTES " P COPY STR15A,W0,W12,SBUF,BIN4 P
0x2fedec…2fef80 Dummy {f00=0x00f3, f01=0x0190, f02=» b P CBE BIN5,W0,C21 P CBE COPY,=C'Y',C26 P MOVE ANSW,=X'00' < P ATTFMT BATCH COPY BATCH ? V P SET DEPROMPT x PC24 P PERF DECLRN P IB DEBINW2,C24,C90 P CBE ANSW,=C'N',C201 PC26 P MOVE DEBINW4,W0 *
0x2fef80…2ff114 (3, 147) Dummy {f00=0x00f3, f01=0x0190, f02=»* P MOVE DEBINW4,W0 P MOVE SYSBUF,=X'424300' 'BC' " PC27 F * P XCOPY SYSBUF,W6,W2,W10,W0 OCC. BYTES R $ P PERF DISU,W4,BIN11,SYSBUF WRITE P BERR ERROR PC28 , P XCOPY BIN13,W0,W2,SYSBUF,W6 OCC. BYTES P CBL BIN13,=W'38
0x2ff114…2ff2a8 Dummy {f00=0x00f3, f01=0x0190, f02=»* NEW RECORD * P PERF FREESP,BIN9,W1 P BERR ERR17 4 * P XCOPY SYSBUF,W4,W2,BIN9,W0 LINK NEXT H $ P PERF DISU,W4,BIN11,SYSBUF WRITE v P BERR ERROR P MOVE SYSBUF,=X'424300' 'BC' * P XCOPY SYSBUF,W2,W2,BIN11,W0 LINK PREV P MOV
0x2ff2a8…2ff43c Dummy {f00=0x00f3, f01=0x0190, f02=»7 6 P XCOPY STR15A,W8,W2,BIN9,W0 POINTER TO ACC.RECORD P PERF FREESP,BIN16,W1 D P BERR ERR17 b 6 P XCOPY STR15A,W10,W2,BIN16,W0 POINTER TO DS-RECORD v 0 P COPY SYSBUF,BIN13,W12,STR15A,W0 BATCH-ENTRY * P ADD BIN13,W12 POINTER IN BATCH-CHAI
0x2ff43c…2ff5d0 Dummy {f00=0x00f3, f01=0x0190, f02=» B C201 P EJECT P***************** P* CLOSE FILES * 8 P***************** R PC90 l P MOVE DEBINW4,W0 x 0 P PERF DISU,W5,W2,RBUF READ FREE-SPACE OUTPUT P BERR ERROR " P COPY RBUF,W0,W10,RPOOL(W1),W9 $ P COPY RBUF
0x2ff5d0…2ff764 Dummy {f00=0x00f3, f01=0x018e, f02=»FCOD1 INPUT ~ P DSC0 DISK,CLOSE " P CALL CHANFC,DISK,FCOD2 OUTPUT , P DSC0 DISK,CLOSE R . P***************************************** j . P* CHANGE VOLUME-NAME TO ORIG.VOL.NAME * . P***************************************** PC98
0x2ff764…2ff8f8 Dummy {f00=0x00f3, f01=0x0190, f02=» P MOVE DEBINW4,W3 'I/O-ERROR' PERR99 ( P PERF DSKERR,DEBINW4 6 P B C95 R PERR17 ` . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL' n P B ERR99 P EJECT PDSCOPY PROC P* COPY ACC.RECORDS * " P PERF DISU,W3,BIN5,SYSBU
0x2ff8f8…2ffa8c Dummy {f00=0x00f3, f01=0x0190, f02=»0 LINK PREV. P MOVE BIN14,W0 LINK PREV. PDS20 6 P CBE BIN6,W0,DS99 B " P PERF DISU,W3,BIN6,SYSBUF READ P BERR ERROR * P XCOPY BIN6,W0,W2,SYSBUF,W4 LINK NEXT P CBE BIN6,W0,DS30 P PERF FREESP,BIN9,W1 P BERR ERR17
0x2ffa8c…2ffc20 Dummy {f00=0x00f3, f01=0x0190, f02=»UF WRITE x P BERR ERROR P MOVE BIN14,BIN16 $ P MOVE BIN16,BIN9 > P B DS20 V PDS99 f P RET r P PEND ~ P EJECT PJOB FRMT P FSL P FCOPY =C'COPY JOB:' P FINP 11 P FCOPY JOBNAME P FLINK FANSW
0x2ffc20…2ffdb4 (3, 148) Dummy {f00=0x00f3, f01=0x40f4, f02=» P FMEND P* PFANSW FRMT P FNL 2 P FCOPY =C'Y/N' > . P FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 T P FCOPY ANSW P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND END @
0x2ffdb4…2fff48 Dummy {f00=0x00f3, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x2fff48…3000dc Dummy {f00=0x00f3, f01=0x0190, f02=» ; ` 1 Q A7 A7 @7 ] : :4 : P . P 8f 9 : : A7 @7 A7 R C A7 @7 @7 Y A7 ( @7 ! @7 7 6 P J S T $ 1T P _ 7 Xd_2 A7 : @7 T ; @7 :dQ : 7 ; @7
0x3000dc…300270 Dummy {f00=0x00f3, f01=0x0190, f02=» > . " > R !LLP R 6 K % R 4 K & K ( K ) ( @7 ! @7 :d < @7 % @7 R 2 R 1 % Y A7 7 ( A7 @7 Y A7 ( @7 :d A7 @7 Y : A7 @7 Q* A7 > > > ( > ( ?F > @7 0
0x300270…300404 Dummy {f00=0x00f3, f01=0x0190, f02=»8` A7 T: ; @7 P* T" :4 : P . P 8f_: : 7 > @7 - ( @7 ! @7 :d J A7 J J < 2 2 R> 0P6 P X P T P 1 0 T _( = ] _ P : Q _$ _D : ) I _ ( - : @7 P$ 7
0x300404…300598 Dummy {f00=0x00f3, f01=0x0190, f02=» EXTENT LENGTH ?D A DELETED @ @ 0READ ERROR SECTOR NO:
0x300598…30072c Dummy {f00=0x00f3, f01=0x0190, f02=» @? ? B T6 % C2_( R ) ) (' P Y J B _* ) : R 2 ( Y J $ ) Y : ) ) ) ) ) ) @? ) : 2 J ( A? ( A? Z : @ A@ A@ ( : ? ? ? ( ? J P ? A?
0x30072c…3008c0 Dummy {f00=0x00f3, f01=0x0190, f02=» Z : @ A^ @" A^ @8 A^ @P ( A^ 2 @? @? % Y @? ? P P A? Ax ? W ? 2 A? A? : _ ? ( B ' J : ? _& B 2 + $ T : * Y ]0 : B R ) ( P
0x3008c0…300a54 (3, 149) Opaque[0x194]
0x300a54…300be8 # DirEnt {nam=»PTS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e78, f03=0x0000}
0x300a54…300be8 IdxSect {
0x300a54…300be8 f00 = 0x00f3 // 0x300a54 @0x0
0x300a54…300be8 f01 = 0x0004 // 0x300a56 @0x2
0x300a54…300be8 gno = [ // 0x300a58 @0x4
0x300a54…300be8 [0x00]: C0x00f3.0x3.0
0x300a54…300be8 [0x01]: C0x00f4.0x0.0
0x300a54…300be8 ]
0x300a54…300be8 }
0x300be8…300d7c Dummy {f00=0x00f3, f01=0x0190, f02=» IDENT PTS DDUM DDINIT PDIV * ENTRY PTS 8 EXT DECLRN J * ^ PTS PROC h SET DEPROMPT x ATTFMT PTSDE P10 PERF DECLRN IB DEBINW2,P10 RET PEND * *
0x300d7c…300f10 Dummy {f00=0x00f3, f01=0x0190, f02=» P FHIGH FTAB 5 P FCOPY =C'P P T S' " FNL F P FHIGH R FTAB 5 ` $ P FCOPY =C'PPPP T SSSS' p FNL P FHIGH FTAB 5 & P FCOPY =C'P T S' FNL P FHIGH F
0x300f10…3010a4 Dummy {f00=0x00f3, f01=0x018e, f02=»AAAAA TTTTTTT AAAAA' ~ P FTAB 41 4 P FCOPY =C'EEEEE N N TTTTTTT RRRR Y Y' 0 P* h FNL r P FHIGH ~ FTAB 5 0 P FCOPY =C'D D A A T A A' P FTAB 41 4 P FCOPY =C'E NN N T R R
0x3010a4…301238 Dummy {f00=0x00f3, f01=0x018e, f02=» 2 P FCOPY =C'EEE N N N T RRRR Y Y' P* : FNL D P FHIGH P FTAB 5 ^ 0 P FCOPY =C'D D A A T A A' n P FTAB 41 2 P FCOPY =C'E N NN T R R Y' P* FNL P FHIGH
0x301238…3013cc Dummy {f00=0x00f3, f01=0x0190, f02=» ` P* P* P FNL P FNL ( P FHIGH 4 P FTAB 14 B 6 P FCOPY =C'U U TTTTTTT I L I TTTTTTT I' R P FTAB 54 P FCOPY =C'EEEEE SSSSS' P* P FNL P FHIGH P FTAB 14 6 P FCOPY =C'U U T
0x3013cc…301560 Dummy {f00=0x00f3, f01=0x0190, f02=» =C'U U T I L I T I' P FTAB 54 4 P FCOPY =C'EEE SSSS' D P* d P FNL n P FHIGH z P FTAB 14 6 P FCOPY =C'U U T I L I T I' P FTAB 54 P FCOPY =C'E S' P*
0x301560…3016f4 (3, 150) Dummy {f00=0x00f4, f01=0x408c, f02=» SSSSS' P* FNL FNL & FNL 2 FKI 1,MINL=0,MAXL=0 > FCOPY HEX00 Z FMEND n END |@
0x3016f4…301888 Dummy {f00=0x00f4, f01=0x2008, f02=» FMEND END @ " FCOPY =C'* *' & FNL X FTAB 20 d 0 + FCOPY =C'* PLEASE BUY THIS PACKAGE !! *' t FNL FTAB 20 , ( FCOPY =C'* *' FNL FTAB 20
0x301888…301a1c Dummy {f00=0x00f4, f01=0x0190, f02=»f x T CR2 (n D W D D a D e f D j D m D r D u $ 6 d P d ( T1 V V 4 x $
0x301a1c…301bb0 Dummy {f00=0x00f4, f01=0x0190, f02=»
0x301bb0…301d44 Dummy {f00=0x00f4, f01=0x0190, f02=» $ B " @ c >
0x301d44…301ed8 Dummy {f00=0x00f4, f01=0x0190, f02=»
0x301ed8…30206c Dummy {f00=0x00f4, f01=0x0190, f02=»SFIL : : F0
0x30206c…302200 Dummy {f00=0x00f4, f01=0x0190, f02=» SYSVOLSYSVOLOUTPUT 2 $ 6 < N j
0x302200…302394 (3, 151) Opaque[0x194]
0x302394…302528 # DirEnt {nam=»DEDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e88, f03=0x0000}
0x302394…302528 IdxSect {
0x302394…302528 f00 = 0x00f4 // 0x302394 @0x0
0x302394…302528 f01 = 0x0008 // 0x302396 @0x2
0x302394…302528 gno = [ // 0x302398 @0x4
0x302394…302528 [0x00]: C0x00f4.0x1.0
0x302394…302528 [0x01]: C0x00f4.0x2.0
0x302394…302528 [0x02]: C0x00f4.0x3.0
0x302394…302528 [0x03]: C0x00f5.0x0.0
0x302394…302528 ]
0x302394…302528 }
0x302528…3026bc Dummy {f00=0x00f4, f01=0x018e, f02=» & P IDENT DEDI01 PRR 1.0 78-05-31/AST P* . P* 8 L P************************************************************************ B P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P* D
0x3026bc…302850 Dummy {f00=0x00f4, f01=0x0190, f02=» P DDUM DDINIT P PDIV P ENTRY DEDISC * P ENTRY NXPRFM @ P ENTRY GETT01 V P EXT COND l P EXT DISU ~ P EXT DEPOOL P EXT WRFSP P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P EXT
0x302850…3029e4 Dummy {f00=0x00f4, f01=0x0190, f02=»XT ENTFMT P EXT DELFMT P EXT GETSYS & P EXT ENTSYS : P EXT NEXJOB N P EXT PREJOB b P EXT PREFMT v P EXT NEXFMT P EXT ENTTBL P EXT DELTBL P EXT ENTT01 P EXT ENTCOR P EXT ENTT03 P EXT D
0x3029e4…302b78 Dummy {f00=0x00f4, f01=0x0190, f02=» P EJECT PDEDISC PROC FC P* , * P* BRANCH TO PROGRAM INDICATED BY FC 6 P* d P CLEAR SWIT01 n P CLEAR SWIT02 P CLEAR SWIT03 P CLEAR SWIT05 P CLEAR SWIT07 P CLEAR SWITFS P CLEAR SW95PR P
0x302b78…302d0c Dummy {f00=0x00f4, f01=0x018e, f02=»Y C P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C , P OPNNBC OPEN NEW BATCH C L " P OPNEBC OPEN EXISTING BATCH C n P CLSBTH CLOSE BATCH C P ENTFMT ENTER FORMAT C P GETFMT GET FORMAT C P DUMMY C P SCHF
0x302d0c…302ea0 Dummy {f00=0x00f4, f01=0x0190, f02=» n ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C 4 ( P WRIACC WRITE ACCUMULATOR-RECORD C ` $ P GETSYS GET SYSTEM-VARIABLES C & P ENTSYS ENTER SYSTEM-VARIABLES C P NXJOB GET NEXT JOBNAME C " P DUMMY
0x302ea0…303034 (3, 152) Dummy {f00=0x00f4, f01=0x0190, f02=» ENTER TABLE C P DELBTCH DELETE BATCH C " P DUMMY GET NO OF FREESPACES C 6 & P NEXJOB GET NEXT JOBDEFINITION C " P PREJOB GET PREVIOUS JOBDEF C P NEXFMT GET NEXT FORMAT C " P PREFMT GET PREVIOUS FORMAT C P RECURR READ CURREN
0x303034…3031c8 Dummy {f00=0x00f4, f01=0x0190, f02=»RFMCH,W0 P MOVE STR6A,DEINPUT P PERF WAIT , P BERR RETURN > PNXPRFM R P PERF SCHPOO,=C'F ',STR6A,W7 ` P IB DEBIN4,GOTFFR,FLOCKE P SEARCH ON DISC PRDDK P MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI P CLEAR S
0x3031c8…30335c Dummy {f00=0x00f4, f01=0x0190, f02=»C OF FMT P MOVE SYSBUF,HEX00 P PERF DISU,W1,DEBIN3,SYSBUF * P PERF ALGO,W2 N P BNERR CHOK d P MOVE FRMTPNTR,W0 x P SET SWIT07 P BNZ SETER P PERF RELEAS P B STRT01 PSETER P MOVE DEBINW4,W9 P B R
0x30335c…3034f0 Dummy {f00=0x00f4, f01=0x0190, f02=» NO OF REC P MOVE DEBIN3,W0 " P XCOPY DEBIN3,W1,W1,SYSBUF,W8 * P MOVE DEBIN1,DEBIN3 P P MOVE DEBIN4,W0 l P GET NO OF CONSEC " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GET21 ( P
0x3034f0…303684 Dummy {f00=0x00f4, f01=0x0190, f02=» P MOVE DEBIN4,DEBIN3 PGET20 $ , P XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 2 * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 b P SUB DEBIN1,W1 P CBE DEBIN1,W0,TBFAL P PERF DISU,W1,DEBIN5,SYSBUF P BERR RETURN P GET LINK NE
0x303684…303818 Dummy {f00=0x00f4, f01=0x0190, f02=»EBIN3 PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A P CBE PINDFR,W0,SETPFR J * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A h PSETPFR P MOVE PINDFR,DEBIN4 P B RETURN PFLOCKE P MOVE DEBINW4,W11 'LOCKED' P B RET
0x303818…3039ac Dummy {f00=0x00f4, f01=0x018e, f02=»SED P TBT SWIT02,INDUSE PFGETUN & $ P PERF SCHPOO,=C'F ',STR6A,W5 SET 4 P B TBFALL PFUNUSE n P TBF SWIT02,FGETUN | P MOVE RPOOL(DEBIN3),HEX00 P B RDDK PINDUSE P MOVE DEBINW4,W11 P B RETURN PSCHFMT
0x3039ac…303b40 Dummy {f00=0x00f4, f01=0x018e, f02=» r P BNERR WRIT01 * P SET SWIT01 NO MORE SECTORS AVAILABLE PWRIT01 L P MOVE STR2A,=X'4453' Z P COPY RBUF,W0,W2,STR2A,W0 v P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 PWRIT05 & P PERF WRDS,CURSEC WRITE RE
0x303b40…303cd4 (3, 153) Dummy {f00=0x00f4, f01=0x0190, f02=» 4 P MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO P GET LINK PREV SCTR < P XCOPY DEBIN3,W0,W2,RBUF,W2 Z ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? ~ * P PERF RDDS,DEBIN3 READ PREV RECORD(S) P BERR ENDERR $ P SET CONTINUATION IN PREV
0x303cd4…303e68 Dummy {f00=0x00f4, f01=0x018e, f02=»PREV | " P XCOPY DEBIN3,W0,W2,SYSBUF,W2 ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? 2 ( P PERF RDDS,DEBIN3 READ PREV OF PREV ^ P BERR ENDERR " P PREV OF PREV = END OF CHAIN P XCOPY RBUF,W4,W2,W0,W0 ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV
0x303e68…303ffc Dummy {f00=0x00f4, f01=0x0190, f02=» P SET LINK PREV SCTR P XCOPY RBUF,W2,W2,CURSEC,W0 " , P XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0 F P SET NO OF OCC BYTES v P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO P TBF SWIT01,WRIT07 . P MOVE DEBINW
0x303ffc…304190 Dummy {f00=0x00f4, f01=0x0190, f02=»UF,W4 z PGT001 $ P PERF RDDS,DEBIN1 READ SECTOR(S) P BERR RETURN D & P CBE FC,W16,GT003 JUMP IF GETPREV X P GET LINK PREV FOR CONTROL P XCOPY DEBIN2,W0,W2,RBUF,W2 P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P
0x304190…304324 Dummy {f00=0x00f4, f01=0x0190, f02=»002 P MOVE DEBINW4,W9 P B RETURN $ PGT003 6 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER D P B RETURN t P* P* P* PGTPREV P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCU
0x304324…3044b8 Dummy {f00=0x00f4, f01=0x0190, f02=»CC P PERF WRACC P PERF WRFSP,FILINDUS P B RETURN : P* L P* V P* ` PWRTCO j & P PERF WRDS,CURSEC WRITE SECTOR(S) x P B RETURN P* P* P* PCLSBTH CLOSE BATCH P MOVE DEBIN1,W0 P B
0x3044b8…30464c Dummy {f00=0x00f4, f01=0x0190, f02=» " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA . P MOVE DEBINW4,W0 R PBRETTA j P B RETURN x P* P* P* GETTBL P PERF SCHPOO,=C'T ',TABLE,W5 IB DEBIN4,GTF,LCK NOT IN POOL, REA
0x30464c…3047e0 Dummy {f00=0x00f4, f01=0x0190, f02=» MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL . $ MOVE DEBINW4,W1 INDICATE ERROR N B RETURN v DKTBL . * PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC P BOK MUL P CMP DEBINW4,=W'30' P BNE RETURN P
0x3047e0…304974 (3, 154) Dummy {f00=0x00f5, f01=0x0190, f02=»L MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 8 P CBNE DEBIN1,W0,DT002 b P TBF SWIT01,NOINSY P PERF FREESP,DEBIN1,W1 P BERR RETURN & P XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 P PERF DISU,W2,W7,S
0x304974…304b08 Dummy {f00=0x00f5, f01=0x0190, f02=»N PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN . P MOVE DEBIN4,DEBIN1 B MOVE DEBIN1,W0 ^ 2 - XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO v CBNG ELMNO,DEBIN1,FNDTBL 0 + XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT ( # CBG D
0x304b08…304c9c Dummy {f00=0x00f5, f01=0x0190, f02=»,SYSBUF,W8,W1 r ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR B PNOINSY f $ MOVE DEBINW4,W9 'NOT IN SYSTEM' t B RETURN FNDTBL P TEST SWIT01 P BNZ ENTCOR MOVE DEBIN3,W1 MOVE DEBIN2
0x304c9c…304e30 Dummy {f00=0x00f5, f01=0x0190, f02=»BIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A , 8 P PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER Z MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x304e30…304fc4 Dummy {f00=0x00f5, f01=0x4096, f02=»NW4,W0,RETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x304fc4…305158 Dummy {f00=0x00f5, 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 * *
0x305158…3052ec Dummy {f00=0x00f5, f01=0x0190, f02=» [ [ : X2 #0 0T & ! T P & ! X T C U E F J| Y ( x P Y * CP x y Wv X " B@ X X . 8 F S X 0P X T 5 ! Y * CP y X V& X ( JX x C ( Y * X Y , JF X X
0x3052ec…305480 Dummy {f00=0x00f5, f01=0x0190, f02=»" x Y X " T Y _ EV_ B U C Q C DB^B`BpB B D D B X X * $" ~_> @ Y X * A _R X !@XX y X # x V y X X * JX P P 1 _ 1 CP X * At X X * $" X D % " X # X * JX y _< X # X * y JX X 1 1
0x305480…305614 (3, 155) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»DEDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ea8, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x00f5 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0006 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x00f5.0x1.0
0x305614…3057a8 [0x01]: C0x00f5.0x2.0
0x305614…3057a8 [0x02]: C0x00f5.0x3.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x00f5, f01=0x018e, f02=» & P IDENT DEDI02 PRR 1.0 79-06-19/AST P DDUM DDINIT . PDIV B ENTRY ENTFMT P ENTRY DELFMT f ENTRY GETSYS | ENTRY ENTSYS ENTRY PREFMT ENTRY NEXFMT ENTRY ENTTBL ENTRY DELTBL ENTRY E
0x30593c…305ad0 Dummy {f00=0x00f5, f01=0x0190, f02=» EXT DISU EXT RELEAS P EXT NXPRFM * P EXT DLRCCH > P EXT RFRSP R P EXT GETT01 d P EXT EMPTYT x P EXT WRFSP P EXT COND P EXT ALGO P EJECT PDUMM02 PROC FC P* PENTFMT ENTER FORMAT
0x305ad0…305c64 Dummy {f00=0x00f5, f01=0x0190, f02=» PRDCHAIN P MOVE DEBIN3,DEBIN5 0 P PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN 4 P BNERR FST3 h P CBE DEBINW4,=W'30',FFIRST | P B RETURN PFST3 : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 : P CBG DEBIN4,=W
0x305c64…305df8 Dummy {f00=0x00f5, f01=0x0190, f02=»AT,W0 NAME x @ P XCOPY STRG10A,W8,W2,DEBIN1,W0 FREESPACE-RECNR = PTR TO FMT < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN V P ADD DEBIN4,W10 4 P XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF
0x305df8…305f8c Dummy {f00=0x00f5, f01=0x018e, f02=»SBUF,W4 GET LINK TO NEXT z P CBNE DEBIN5,W0,RDCHAIN P PERF FREESP,DEBIN5,W1 @ P BERR RETURN ^ " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 r P PERF DISU,W2,DEBIN3,SYSBUF PFFST01 P MOVE DEBIN4,W10 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENT
0x305f8c…306120 Dummy {f00=0x00f5, f01=0x018e, f02=» PWRTFMT P MOVE DEBIN3,PINDFR , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION 2 PNEGST b P MOVE DEBIN2,W0 p : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 ( P CBE DEBIN2,W0,NOMOR
0x306120…3062b4 (3, 156) Dummy {f00=0x00f5, f01=0x0190, f02=» ^ * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 P PERF DISU,W2,DEBIN1,SYSBUF 6 P BERR RETURN Z P TBF SWIT01,CO10 n P B RETURN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,DEBIN4 P MOVE SYSBUF,=X'4600' P B NEGST
0x3062b4…306448 Dummy {f00=0x00f5, f01=0x0190, f02=»ET NEXT FORMAT P SET SWIT03 P* * P* 4 PPREFMT > P MOVE FRMTPNTR,W0 L P CALL EMPTYT,FORMAT f P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 P TBT SWIT03,RRECNX P ADD PTRFMCH,W20 PRRECNX P CBN
0x306448…3065dc Dummy {f00=0x00f5, f01=0x0190, f02=» MOVE PTRFMCH,DEBIN2 P SUB PTRFMCH,W8 PRRECNZ 4 P PERF WAIT B P BERR RETURN T PRRECNY h P PERF DISU,W1,RNRFMCH,SYSBUF v P BNERR RREC01 P CBE DEBINW4,=W'30',OUTOFRAN P B RETURN POUTOFRAN P MOVE DEBINW4,W9
0x3065dc…306770 Dummy {f00=0x00f5, f01=0x0190, f02=»CH,W10 P CBE PTRFMCH,DEBIN1,RREC03 PRREC07 0 P MOVE DEBIN1,PTRFMCH > P B RREC04 Z PRREC03 l P MOVE DEBIN1,W4 z PRREC05 & P XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 P CBE DEBIN5,W0,OUTOFRAN P MOVE RNRFMCH,DEBIN5 P T
0x306770…306904 Dummy {f00=0x00f5, f01=0x0190, f02=» B RREC07 PRREC06 P MOVE PTRFMCH,=W'190' P MOVE DEBIN1,W2 > P B RREC05 V PRREC04 h P ADD DEBIN1,W2 v P MOVE STRG10A,=X'4600' & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 P MOVE STR6A,
0x306904…306a98 Dummy {f00=0x00f5, f01=0x0190, f02=»STR6A,FORMAT P CLEAR SWIT04 P PERF SFMTCH,W4,SYSBUF,W10 * P BERR RETURN L P MOVE PINACC,DEBIN1 ` . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC | 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBUF,DEBIN2,W10 P S
0x306a98…306c2c Dummy {f00=0x00f5, f01=0x0190, f02=»CH,SYSBUF P BERR RETURN PDELF1 & P PERF DISU,W2,PINACC,SYSBUF 4 P MOVE DEBIN2,DEBIN3 X P PERF DISU,W1,DEBIN2,SYSBUF t P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 PDELF3 P MOVE DEBINW4,W9 P B RETURN
0x306c2c…306dc0 Dummy {f00=0x00f5, f01=0x0190, f02=»DISU,W1,DEBIN1,SYSBUF P BERR RETURN P COPY STR2A,W0,W2,SYSBUF,W0 2 P CBNE STR2A,=X'4600',DELF3 V P PERF RFRSP,DEBIN1,W1 x " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 P B DELF P* P* P* PENTSYS P PERF WAIT
0x306dc0…306f54 (3, 157) Dummy {f00=0x00f5, f01=0x018e, f02=»8,SYSV(DEBIN2),W0 z P ADD DEBIN1,W18 P ADD DEBIN2,W1 2 P CBL DEBIN2,W11,CENT H P PERF DISU,W2,W5,SYSBUF d P B RETURN P* P* PGETSYS P PERF DISU,W1,W5,SYSBUF P BOK NNODA P MOVE SYSBUF,HEX00 P MOV
0x306f54…3070e8 Dummy {f00=0x00f5, f01=0x0190, f02=» f P ADD DEBIN1,W18 P ADD DEBIN2,W1 P CBL DEBIN2,W11,CGET 6 P B RETURN R P* d P* n ENTTBL x SET SWIT01 B GETT01 ENTT01 P MOVE SYSBUF,=X'5400' PENTCOR ( P COPY SYSBUF,W8,W2,RPOOL(PINDTB),W
0x3070e8…30727c Dummy {f00=0x00f5, f01=0x0190, f02=»,DEBIN2,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 & P PERF DISU,W2,DEBIN4,SYSBUF L P BERR RETURN p P MOVE DEBIN4,DEBIN2 B ENTT01 * * * PDELTBL SET SWIT02 B GETT01 DELT
0x30727c…307410 Dummy {f00=0x00f5, f01=0x0190, f02=»YSBUF z BNOK RETURN " XCOPY DEBIN2,W0,W2,SYSBUF,W4 " PERF RFRSP,DEBIN1,W1 H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x307410…3075a4 Dummy {f00=0x00f5, f01=0x405e, f02=»BINW4,=W'-1' PRETUN9 P PERF COND " RET 4 PEND @ END N@ Z H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x3075a4…307738 Dummy {f00=0x00f5, f01=0x2008, f02=» '-1' PRETUN9 P PERF COND " RET 4 PEND @ END N@ Z H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x307738…3078cc Dummy {f00=0x00f5, f01=0x40e4, f02=» . H IDENT D:CB50 TRA 4.1 79-07-31 F1 O1111 D:CB50 6 D:CB50C H * & B 0 * & 0 0 0 0 = B @ & [
0x3078cc…307a60 Dummy {f00=0x00f5, f01=0x412a, f02=» . H IDENT C:CB60 TRA 4.1 79-07-31 F1 O1111 C:CB60 6 C:CB60C H * & * & * & = SYSVOLSY [ SVOLOUTPUT d
0x307a60…307bf4 (3, 158) Opaque[0x194]
0x307bf4…307d88 # DirEnt {nam=»DEDI03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ec0, f03=0x0000}
0x307bf4…307d88 IdxSect {
0x307bf4…307d88 f00 = 0x00f6 // 0x307bf4 @0x0
0x307bf4…307d88 f01 = 0x0008 // 0x307bf6 @0x2
0x307bf4…307d88 gno = [ // 0x307bf8 @0x4
0x307bf4…307d88 [0x00]: C0x00f6.0x0.0
0x307bf4…307d88 [0x01]: C0x00f6.0x1.0
0x307bf4…307d88 [0x02]: C0x00f6.0x2.0
0x307bf4…307d88 [0x03]: C0x00f6.0x3.0
0x307bf4…307d88 ]
0x307bf4…307d88 }
0x307d88…307f1c Dummy {f00=0x00f6, f01=0x0190, f02=» & P IDENT DEDI03 PRR 1.0 79-07-24/AST . P* CHANGES MADE. LINE 323 INSERTED BY DALI. . P DDUM DDINIT ` PDIV t P ENTRY ENTJOB P ENTRY GETJOB P ENTRY SCHJOB P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P E
0x307f1c…3080b0 Dummy {f00=0x00f6, f01=0x0190, f02=» EXT DLRCCH P EXT RFRSP P EXT DEPOOL & P EXT POOL : P EXT RDACC L P EXT READJB ^ P EXT SCHPOO r P EXT RELEAS P EXT EMPTYT P EXT WRFSP P EXT COND P EXT RDDS P EXT WRDS P EXT CHANFC
0x3080b0…308244 Dummy {f00=0x00f6, f01=0x0190, f02=» POPNNBC P PERF WAIT P BERR RETURN $ PWUSOK 8 P SET SWIT04 F P MOVE STR6A,JOBNAME Z , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN v P BNERR OPNN01 FOUND P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWI
0x308244…3083d8 Dummy {f00=0x00f6, f01=0x0190, f02=»,W12 SEARCH BATCH x P BNERR OPNN03 BATCH FOUND P CBE DEBINW4,W9,OPNN88 < P B RETURN Z POPNN88 l , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN z P B RETURN 'NOT IN SYSTEM' POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P
0x3083d8…30856c Dummy {f00=0x00f6, f01=0x0190, f02=»R RETURN 0 P CBE DEBIN2,W10,OPNN08 FIRST JOBCHAIN-ENTRY 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE D ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD z POPNN09 P PERF ENTR,JOBNAME $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2
0x30856c…308700 Dummy {f00=0x00f6, f01=0x0190, f02=»DEBIN2,W10 POPNN13 P MOVE RBUF,=X'424300' P XCOPY RBUF,W2,W2,DEBIN1,W0 > P XCOPY RBUF,W4,W2,W0,W0 b POPNN12 P PERF ENTR,BATCH P PERF FREESP,DEBIN1,FILINDUS P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P
0x308700…308894 (3, 159) Dummy {f00=0x00f6, f01=0x0190, f02=» P XCOPY RBUF,W6,W2,DEBIN2,W0 P PERF WRDS,DEBIN4 ( P BERR RETURN B P MOVE RBUF,HEX00 V P XCOPY RBUF,W6,W2,W10,W0 n P B OPNN16 " POPNN08 FIRST SECTOR JOBCHAIN P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,
0x308894…308a28 Dummy {f00=0x00f6, f01=0x0190, f02=» t P XCOPY RBUF,W4,W2,DEBIN4,W0 P PERF WRDS,DEBIN1 , P BERR RETURN F P MOVE RBUF,=X'4A4300' Z P XCOPY RBUF,W2,W2,DEBIN1,W0 x P MOVE DEBIN1,DEBIN4 P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-C
0x308a28…308bbc Dummy {f00=0x00f6, f01=0x0190, f02=» OPNN12 POPNN11 P PERF FREESP,DEBIN4,FILINDUS P BERR RETURN B P XCOPY RBUF,W4,W2,DEBIN4,W0 V P PERF WRDS,DEBIN1 z P BERR RETURN P MOVE DEBIN2,W10 P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W
0x308bbc…308d50 Dummy {f00=0x00f6, f01=0x0190, f02=»DL P MOVE DEBIN1,DEBIN5 P B OPNN16 & POPNNDL 8 P SUB DEBIN2,W10 F P SUB DEBIN4,W12 ^ P XCOPY RBUF,W6,W2,DEBIN4,W0 v P DLETE RBUF,DEBIN2,W12 P PERF WRDS,DEBIN1 P BERR RETURN P CBG DEBIN4,W10,DL01 P PERF
0x308d50…308ee4 Dummy {f00=0x00f6, f01=0x0190, f02=»ERR DL02 P PERF DISU,W3,CURSEC,RBUF P BNERR DL03 2 P CBE DEBINW4,=W'30',DL04 F P B RETURN f PDL04 x P MOVE RBUF,HEX00 P MOVE DEBINW4,W0 PDL03 P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P
0x308ee4…309078 Dummy {f00=0x00f6, f01=0x0190, f02=»ATSH,W1,W6,JOBNAME,W0 P COPY STATSH,W7,W6,BATCH,W0 ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH B & P BNERR EXIST IF IKAY, ALREADY OPEN n P PERF POOL P BERR RETURN * P PERF DEPOOL,W10,DKBIN1,DKBIN2,STATSH P MOVE PINACC,DKBIN1 P
0x309078…30920c Dummy {f00=0x00f6, f01=0x0190, f02=» PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHOP . P MOVE DEBINW4,W0 R PZWIHOP j P B RETURN x PEXIST P MOVE DEBINW4,W11 'IN USE' P B RETURN P* P* P* P* PENTJOB ENTER JOBDE
0x30920c…3093a0 Dummy {f00=0x00f6, f01=0x0190, f02=»,W9,NOTIN P B RETURN PFIRST $ P MOVE DEBIN3,W0 2 P MOVE DEBIN1,W3 J P MOVE DEBINW4,W0 b P B FST1 z PNOTIN P PERF FREESP,DEBIN1,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN1,W0 P PERF DISU,W2,DEBIN3,SYS
0x3093a0…309534 (3, 160) Dummy {f00=0x00f6, f01=0x0190, f02=»,W0 z PFOUND1 , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 P PERF DISU,W2,DEBIN1,SYSBUF J P B RETURN n PFOUNDJ P MOVE DEBIN1,DEBIN3 P B FOUND1 P* P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPU
0x309534…3096c8 Dummy {f00=0x00f6, f01=0x0190, f02=»WIT03 P BNZ RDCHJ P MOVE DEBIN1,W3 PRDCHJ 8 P PERF WAIT F P BERR RETURN X PRDCNW l P PERF DISU,W1,DEBIN1,SYSBUF z P BNERR DATA P CBE DEBINW4,=W'30',NOTEX P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NO
0x3096c8…30985c Dummy {f00=0x00f6, 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
0x30985c…3099f0 Dummy {f00=0x00f6, 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
0x3099f0…309b84 Dummy {f00=0x00f6, f01=0x0190, f02=»0 . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A P MOVE PJOBCUR,DEBIN3 < P B RETURN X PLOCKED j P MOVE DEBINW4,W12 x P B RETURN PGOTFRE P TEST, IF USED P TBT SWIT02,SCH01 P MOVE DKBIN1,W5 P B GETUNL
0x309b84…309d18 Dummy {f00=0x00f6, f01=0x0190, f02=» P B GETJOB P* P* PDELJOB DELETE JOBDEF * P PERF WAIT H P PERF READJB Z P BERR RETURN n P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P TBF BOOL9,RETURN P TBF BOOL8,RETURN P MOVE SYSBUF,HEX00 P PERF
0x309d18…309eac Dummy {f00=0x00f6, f01=0x0190, f02=»* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W11 4 PPRE01 L & P MOVE STR6A,JOBNAME DALI 79-04-24 Z P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL . P XCOPY DEBIN1,W0,W2,RPOOL(PJOBCUR),DEBIN2 P CBE DEBIN
0x309eac…30a040 Dummy {f00=0x00f6, f01=0x4130, f02=» P* P* P* P* & PRETURN 0 P TBF SWITFS,RETUNF > P PERF WRFSP,W1 X PRETUNF n P PERF RELEAS | P CBNE DEBINW4,W0,RETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' PRETUN9 P PERF COND P R
0x30a040…30a1d4 (3, 161) Dummy {f00=0x00f6, f01=0x2008, f02=»
0x30a1d4…30a368 Dummy {f00=0x00f6, f01=0x0190, f02=» 3? <? 1 A 2 ? T<_ . * & ? V 1 A 2 ? ? 1 A / & * & 2 ? T=_ ? V 1 A 2 / T * & ? ? 1 A 2 ? jR86Y0j / * & R>6Y0jRD1010 R S 4 0< ? / * & ; 8? 1 A 2 ? ? 1 A /
0x30a368…30a4fc Dummy {f00=0x00f6, f01=0x0190, f02=» T:CAT / T:ATTF 0 T:ERAS 0 " CREVOL 0 4 T:ASSI 0 F CHVOL 0 X CHANFC 0 h T:DSC0 0 z * & UT - 0 DELFIL 0 COPYDD 0 SURVEY 0 T:DSC1 0 T:E
0x30a4fc…30a690 Dummy {f00=0x00f6, f01=0x0190, f02=»L 0 GETFRE 1 SETFRE 1 SETOCC 1 . T:RREA 1 @ EMPTYT 1 R T:XSTA 1 d , ( " $ & ( * , . 1 v MASK 1 T:GETA 1 T:GETF 1 T:SETC 1 T:DYKI 1 T:GETC
0x30a690…30a824 Dummy {f00=0x00f6, f01=0x018e, f02=»O 1 T:TLEF 2 T:TRIG 2 T:TDOW 2 . T:TUP 2 @ T:PRIN 2 P , ( @ B D F H J L N 2 b T:DUPL 2 T:EDFL 2 T:TSTC 2 TESTB 2 RDSECT 2 CREFIL 2 $ P
0x30a824…30a9b8 Dummy {f00=0x00f6, f01=0x0190, f02=» * & C > S ] [ 3 * & a 3 2 B L V ` 3 ` T:PAT 3 ~ * & # 3 * & P 3 * & :SF J T 1 =2 =3 =
0x30a9b8…30ab4c Dummy {f00=0x00f6, f01=0x0190, f02=»LCREATE FILE 3 v * & A USERDEFINEDCOPY USERFILVOLUME- 4 * & _ NAME:CREATE VOLUMEVOLUME SURVE 4 B * & } YCHANGE VOLUME-NAMEWHOLE FILE 4 p * & ? Y/N:COPY SYSVOL TO SYSVOLPR 4 * & ESS ENT TO CONTINUEPTS DATA-EN 4 * & TRY UT
0x30ab4c…30ace0 Dummy {f00=0x00f6, f01=0x018e, f02=» 4 * & O 5 " * & m 5 P * & : 1 9 3 0 5 ~ * & k * & 8 V 5 * & 6 - U 4 X * 5 * &
0x30ace0…30ae74 (3, 162) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»DEDISU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ee0, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x00f7 // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x0008 // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x00f7.0x0.0
0x30ae74…30b008 [0x01]: C0x00f7.0x1.0
0x30ae74…30b008 [0x02]: C0x00f7.0x2.0
0x30ae74…30b008 [0x03]: C0x00f7.0x3.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x00f7, f01=0x018e, f02=» & P IDENT DEDISU PRR 1.0 79-06-19/AST P* . P* 8 L P************************************************************************ B P* P* < P* THIS MODULE CONTENTS ALL SUBROUTINES, USED BY P* * P*
0x30b19c…30b330 Dummy {f00=0x00f7, f01=0x018e, f02=» P DDUM DDINIT P PDIV P EXT DISU * P EXT DEPOOL < P EXT GETFRE P P EXT SETFRE d P EXT SETOCC x P EXT REFSP P EXT WRFSP P EXT CHANFC P EXT COND P EXT RDDS P ENTRY POOL P ENTRY MATCH
0x30b330…30b4c4 Dummy {f00=0x00f7, f01=0x018e, f02=» P ENTRY DLRCCH P ENTRY RD P ENTRY WR , P ENTRY RFRSP > P ENTRY OFRSP R P ENTRY SFMTCH f P ENTRY LOCKE | P ENTRY RDACC P ENTRY WRACC P ENTRY POOL P ENTRY READJB P ENTRY MATCH P ENTRY ENTR
0x30b4c4…30b658 Dummy {f00=0x00f7, f01=0x018e, f02=» P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04 2 PUS002 H P CBL INDFIL,W2,US001 V P SET SWIT04 r PUS001 P PERF RD,DEBIN5,RBUF P BERR NOFRET P XCOPY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10
0x30b658…30b7ec Dummy {f00=0x00f7, f01=0x0190, f02=» P PEND P* P* PWAIT PROC SUBROUTINE WAIT & P TBT SWITWT,WARE H P MOVE DEBINW4,W0 ` P CLEAR SWIT08 x P MOVE DKBIN1,=X'D0' P CALL CHANFC,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 P BNERR WARE2 P MOVE DEBINW
0x30b7ec…30b980 Dummy {f00=0x00f7, f01=0x018e, f02=» P PEND $ PRELEAS PROC SUBROUTINE RELEAS P CLEAR SWITWT : P BZ RELRET P P MOVE DKBIN1,=X'D0' b P CALL CHANFC,DISK,DKBIN1 ~ P DSC1 DISK,DETACH,W0 PRELRET P RET P PEND P* B P* SUBR FREESP, GET RECORDN
0x30b980…30bb14 (3, 163) Dummy {f00=0x00f7, f01=0x0190, f02=» P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) ( 2 P CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN L P CBE RECN,W0,NOFN P SUB FNOOFREC(INDEX),W1 , P CBG FNOOFREC(INDEX),F95PROC(INDEX),FND P SET SW95PR P B FND
0x30bb14…30bca8 Dummy {f00=0x00f7, f01=0x0190, f02=»FSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX & P BERR RESSY F P PERF RESTSB Z P B FREE01 n PRESSY P PERF RESTSB P B FND P B FND PEOFCHN P TBT SWIT06,NOFSP P SET SWIT06 P MOVE DKBIN3,W
0x30bca8…30be3c Dummy {f00=0x00f7, f01=0x0190, f02=» PERF COND P RET P PEND P* , ( P* SUBROUTINE SCHPOO, SEARCH POOL 6 P* b PSCHPOO PROC $IND,STRG,WX l P MOVE STRG10A,$IND P COPY STRG10A,W1,W6,STRG,W0 * P PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A P RET P PEN
0x30be3c…30bfd0 Dummy {f00=0x00f7, f01=0x0190, f02=» BOOL8 P CLEAR BOOL9 P XCOPY DEBIN2,W0,W2,BUF,W2 " P XCOPY DEBIN1,W0,W2,BUF,W4 D P CBNE DEBIN1,W0,DL001 f P SET BOOL9 P B RREPRE PDL001 P PERF RD,DEBIN1,BUF P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEB
0x30bfd0…30c164 Dummy {f00=0x00f7, f01=0x018e, f02=»F WR,DEBIN1,BUF PRREPRE P CBNE DEBIN2,W0,DL008 & P SET BOOL8 D P TBT BOOL9,DLRET V P B DLR2 n PDL008 ~ P PERF RD,DEBIN2,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W4 P XCOPY BUF,W4,W2,DEBIN1,W0 P PERF WR
0x30c164…30c2f8 Dummy {f00=0x00f7, f01=0x0190, f02=» P PERF RFRSP,DEBIN5,DEBIN1 PDLRET * P PERF COND 8 P RET J P PEND V PRD PROC BIN,BUF d P TBT SWIT04,US01 | P PERF DISU,W1,BIN,BUF P B DRET PUS01 P PERF DISU,W3,BIN,BUF PDRET P RET P PEN
0x30c2f8…30c48c Dummy {f00=0x00f7, f01=0x018e, f02=»F | P B DRET P PEND P* ( 4 P* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO 2 2 P* FREESPACE-TABLE. RECORDNUMBER IN PM RECNO. j P* PRFRSP PROC RECNO,INDEX : P PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT 2 P C
0x30c48c…30c620 Dummy {f00=0x00f7, f01=0x0190, f02=» P* SUBROUTINE GFRSPR 8 P* GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING " P* TO RECNO IN IT ^ P* x , P* SYNTAX: PERF GFRSPR,RECNO,INDEX 2 P* INDEX = INDEX TO CURRENT FILE P* PGFRSPR PROC RECNO,INDE
0x30c620…30c7b4 (3, 164) Dummy {f00=0x00f7, f01=0x0190, f02=»RS/REC p PSYSFLE : P MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL 4 P XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE Z P SUB DKBIN2,W12 P MUL DKBIN2,W8 P DIV DKBIN2,DKBIN1 . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS
0x30c7b4…30c948 Dummy {f00=0x00f7, f01=0x018e, f02=» GET LAST INDICATED RNR ~ P SUB DKBIN1,W1 P CBG RECNO,DKBIN1,NEXT 6 P CBL RECNO,DKBIN3,PREV T PGFRET r P MOVE DEBIN4,FINDEXPO(INDEX) P RET " PNEXT GET NEXT FREESP-RECORD P MOVE DKBIN1,W13 PREAD 6 P XCOPY DEBIN4,
0x30c948…30cadc Dummy {f00=0x00f7, f01=0x0190, f02=» P PERF REFSP,DEBIN4,INDEX P BERR GFREST $ P PERF RESTSB 8 P B ANFANG L PGFREST ^ P PERF RESTSB l P B GFRET PPREV P MOVE DKBIN1,W11 P B READ P PEND P* P* P* SUBROUTINE OFRSP 0 P*
0x30cadc…30cc70 Dummy {f00=0x00f7, f01=0x0190, f02=»OL(DEBIN4),RPOOL(DEBIN4),RECNO P RET & P PEND 2 P* @ < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE J P* PSFMTCH PROC WX,BUF,STEG P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P
0x30cc70…30ce04 Dummy {f00=0x00f7, f01=0x0190, f02=»RID2 | P B RETR PRID1 P ADD DEBIN2,W2 ( P XCOPY DKBIN1,W0,W2,BUF,W6 > , P PERF MATCH,BUF,DEBIN2,DKBIN1,STR6A,STEG ` P BNERR FOND P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P CBE DKBIN1,W0,RID2 P MOVE DEBIN1,D
0x30ce04…30cf98 Dummy {f00=0x00f7, f01=0x0190, f02=» " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 PRETR * P PERF COND 6 P RET H P PEND T P* b P* l P* v PLOCKE PROC P MOVE DEBIN1,W0 ( P XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W0 P ADD DEBIN1,W128 ( P XCOPY RPOOL(DEBIN3),W0,W1
0x30cf98…30d12c Dummy {f00=0x00f7, f01=0x0190, f02=»WAIT P PERF DISU,W3,DEBIN1,SYSBUF P BERR RDARET 0 * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 D ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 r PRDARET P PERF COND P RET P PEND P* . P* SUBROUTINE WRACC, WRITE ACCUMULAT
0x30d12c…30d2c0 Dummy {f00=0x00f7, f01=0x018e, f02=» XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 P PERF DISU,W4,DEBIN1,SYSBUF , P PERF COND P P RET b P PEND n P* | * P* SUBR POOL, GET ONE BUFFER, LOCKED P* PPOOL PROC P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 * P PERF DE
0x30d2c0…30d454 (3, 165) Dummy {f00=0x00f7, f01=0x0190, f02=» P MOVE DEBIN3,DEBIN4 P PERF DISU,W1,DEBIN3,SYSBUF $ P BERR RETRED H P MOVE DEBIN5,=W'92' $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 x P CBE STR6A,JOBNAME,RETRED " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBNE DEBIN4,W0,REDJCH P M
0x30d454…30d5e8 Dummy {f00=0x00f7, f01=0x0190, f02=» PMTCH " P MATCH BUF1,START,W6,KEY,W0,W6 P BNERR MTCHED 6 P ADD START,STEP L P SUB START,W1 d P CBNG START,END,MTCH z P MOVE DEBINW4,W9 PMTCHED P PERF COND P RET P PEND P* P P* PENTR
0x30d5e8…30d77c Dummy {f00=0x00f7, f01=0x0190, f02=»ET P PEND P* J P* SUBROUTINE ALGO: SET OR CHECK FORMAT-IDENTIFICATION ON DESCRIPTOR- " 4 P* RECORD FOR DIRECT DISC-ACCESS IN 'GET FORMAT' p $ P* FC = 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITI
0x30d77c…30d910 Dummy {f00=0x00f7, f01=0x0190, f02=»ALGO PROC FC P MOVE DKBIN3,W0 P MOVE DKBIN1,W0 , PXCALGO D $ P XCOPY DKBIN2,W0,W2,STR6A,DKBIN1 R P ADD DKBIN3,DKBIN2 z P ADD DKBIN1,W2 P CBNE DKBIN1,W6,XCALGO P IB FC C P ALTO C P ALFRO PALTO " P
0x30d910…30daa4 Dummy {f00=0x00f7, f01=0x0190, f02=»MP W1,W2 P RET PNOERR P CMP W1,W1 * P RET < P PEND H $ PSAVESB PROC SAVE SYSBUF TO POOL V P MOVE FLIND(W20),DEBINW4 ~ PSAVPOO P PERF POOL P BNERR SAVOK P SWITCH P B SAVPOO PSAVOK P MOVE
0x30daa4…30dc38 Dummy {f00=0x00f7, f01=0x413a, f02=»W20) | P RET P PEND P* & P* 0 * PRESTSB PROC RESTORE SYSBUF FROM POOL : P MOVE DKBIN1,FLIND(W21) h ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A
0x30dc38…30ddcc Dummy {f00=0x00f7, f01=0x2008, f02=» P RET P PEND P* & P* 0 * PRESTSB PROC RESTORE SYSBUF FROM POOL : P MOVE DKBIN1,FLIND(W21) h ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A
0x30ddcc…30df60 Dummy {f00=0x00f7, f01=0x0190, f02=»
0x30df60…30e0f4 (3, 166) Opaque[0x194]
0x30e0f4…30e288 # DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f00, f03=0x0000}
0x30e0f4…30e288 IdxSect {
0x30e0f4…30e288 f00 = 0x00f8 // 0x30e0f4 @0x0
0x30e0f4…30e288 f01 = 0x0006 // 0x30e0f6 @0x2
0x30e0f4…30e288 gno = [ // 0x30e0f8 @0x4
0x30e0f4…30e288 [0x00]: C0x00f8.0x0.0
0x30e0f4…30e288 [0x01]: C0x00f8.0x1.0
0x30e0f4…30e288 [0x02]: C0x00f8.0x2.0
0x30e0f4…30e288 ]
0x30e0f4…30e288 }
0x30e288…30e41c Dummy {f00=0x00f8, 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
0x30e41c…30e5b0 Dummy {f00=0x00f8, 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
0x30e5b0…30e744 Dummy {f00=0x00f8, 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
0x30e744…30e8d8 Dummy {f00=0x00f8, 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
0x30e8d8…30ea6c Dummy {f00=0x00f8, 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.
0x30ea6c…30ec00 Dummy {f00=0x00f8, 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
0x30ec00…30ed94 (3, 167) Dummy {f00=0x00f8, 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
0x30ed94…30ef28 Dummy {f00=0x00f8, 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.
0x30ef28…30f0bc Dummy {f00=0x00f8, 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
0x30f0bc…30f250 Dummy {f00=0x00f8, 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
0x30f250…30f3e4 Dummy {f00=0x00f8, f01=0x0190, f02=»ITION IN CHAIN X 2 P* IS OUTPUT TO DATA-ITEM 'JOBNAME'. P* L & P* 22 GET PREVIOUS JOBNAME. V P* $ P* 23 WRITE SECTOR (CORR) P* L P* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'EL
0x30f3e4…30f578 Dummy {f00=0x00f8, f01=0x0190, f02=»LEMENT OF THE WANTED H P* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. P* h P* r L P* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' | " P* DELETED ON DISC. P* L P* 26
0x30f578…30f70c Dummy {f00=0x00f8, f01=0x0190, f02=»L(PI L 8 P* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. P* H F P* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO R D P* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE . P* RETURNED TO FREESPACE-T
0x30f70c…30f8a0 Dummy {f00=0x00f8, f01=0x0190, f02=»1 IS LOADED WITH NUMBER OF h D P* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER " > P* OF FREE RECORDS IN USERFILE OF RUNNING TASK. j P* @ P* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION B P* I
0x30f8a0…30fa34 (3, 168) Dummy {f00=0x00f8, f01=0x0190, f02=» IS PASSED. P* > P* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- > P* DEFINITION IN CHAIN IS PASSED TO THE CALLING b @ P* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- , P* NITION IN CHAIN IS
0x30fa34…30fbc8 Dummy {f00=0x00f8, f01=0x0190, f02=». IF 'FORMAT' IS f < P* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. P* X B P* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN b B P* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, 6 P* THE FIRST FOR
0x30fbc8…30fd5c Dummy {f00=0x00f8, f01=0x0190, f02=» NEXT BATCH ON USERFILE IS d . P* OUTPUT TO DATA-ITEM 'BATCH'. " P* T ( P* 35 GET PREVIOUS BATCHNAME. ^ P* * P* RETURNCODE IN DEBINW4: 0 = OK L P* -1 = WARNING. 95 PROC OF FILESPACE USED
0x30fd5c…30fef0 Dummy {f00=0x00f8, f01=0x0190, f02=» 11 = USED . P* 12 = LOCKED & < P* 13 = NO WORKSPACE IN CORE X P* F P* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO L P*
0x30fef0…310084 Dummy {f00=0x00f8, f01=0x4162, f02=» USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B F B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P**************************
0x310084…310218 Dummy {f00=0x00f8, f01=0x2008, f02=» WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B F B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P**************************
0x310218…3103ac Dummy {f00=0x00f8, f01=0x018e, f02=»,STR6A P B START P EJECT P******************* , P* VOLUME SURVEY * H P******************* d PC80 P ATTFMT FSURVEY P SET DEPROMPT PC81 P PERF DECLRA P IB DEBINW2,C81,START,C82 P B C81
0x3103ac…310540 Dummy {f00=0x00f8, f01=0x0190, f02=» * P CALL SURVEY,PBLOCK,SBUF,SYSBUF,RETCOD P PERF HALT 2 P CBE RETCOD,W1,ERR18 D P CMP RETCOD,W0 ` P BNE ERR3 v P B START PERR18 ( P PERF DSKERR,W18 'DISK NOT OPERABLE' P B START P EJECT PHALT PROC PH10
0x310540…3106d4 (3, 169) Opaque[0x194]
0x3106d4…310868 # DirEnt {nam=»MONHDK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1f18, f03=0x0000}
0x3106d4…310868 IdxSect {
0x3106d4…310868 f00 = 0x00f8 // 0x3106d4 @0x0
0x3106d4…310868 f01 = 0x0014 // 0x3106d6 @0x2
0x3106d4…310868 gno = [ // 0x3106d8 @0x4
0x3106d4…310868 [0x00]: C0x00f8.0x3.0
0x3106d4…310868 [0x01]: C0x00f9.0x0.0
0x3106d4…310868 [0x02]: C0x00f9.0x1.0
0x3106d4…310868 [0x03]: C0x00f9.0x2.0
0x3106d4…310868 [0x04]: C0x00f9.0x3.0
0x3106d4…310868 [0x05]: C0x00fa.0x0.0
0x3106d4…310868 [0x06]: C0x00fa.0x1.0
0x3106d4…310868 [0x07]: C0x00fa.0x2.0
0x3106d4…310868 [0x08]: C0x00fa.0x3.0
0x3106d4…310868 [0x09]: C0x00fb.0x0.0
0x3106d4…310868 ]
0x3106d4…310868 }
0x310868…3109fc Dummy {f00=0x00f8, f01=0x0190, f02=»E Gg " B B T F c m @ K t 1 z : Y G :) Z <`] n bZ
0x3109fc…310b90 Dummy {f00=0x00f8, f01=0x0190, f02=» + @J <6 !2Z "z y :O % H D 6 Y c ~ W Pv U:L { W [~ 7]d +b% L M ^ > _ !: ( : _ A > 2 & ? ? ? ? ? ? ? @2 > > U H ( ( P c P W~ T P> , T6 L 2 M 0 - A2
0x310b90…310d24 Dummy {f00=0x00f8, f01=0x0190, f02=» A A Q > A L , A JQ _2 A J < Q D P D Q D Z Y _ 8 2 Q Z P 0 9 _ z _( P H H #P A A Q @2 ) A2 _ A A2 _ ? ? ? ? ? ^ A _
0x310d24…310eb8 Dummy {f00=0x00f8, f01=0x0190, f02=» r 4 T - 1_$ U T P 0 U _h ? @2 T 0 A2 1 Q Q >W 0 @2 1 A2 P P W ? * X " R" Y T ? X D T> / W8 > _& @ 8 R" Y T ? X D T / W > _& W8 > 8 X W. ? ` @ @ P $ H W
0x310eb8…31104c Dummy {f00=0x00f8, f01=0x0190, f02=» A. #M 1 D Q D Z Y _ 8 Q Z P 0 9 _ z _( P H H #P A A Q @ ) A _ A A _ ? ? ? ? ? ^ A _
0x31104c…3111e0 Dummy {f00=0x00f8, f01=0x0190, f02=» 4 T - 1_$ U T P 0 U _h ? @ T 0 A 1 Q Q >W 0 #L 1 $ $V D H A ( @2 2 X H A2 ) @ H P 1 % E I D >a @ <a H D W
0x3111e0…311374 (3, 170) Dummy {f00=0x00f9, f01=0x0190, f02=»( B T :" U U F 2 M 0 - A2 Q '_D W > > 2 J B B $ < $ A J ;h # <c$ " P 4 5 T P ? X U X > P P P P, P ] 0 X T Y W U U T X T
0x311374…311508 Dummy {f00=0x00f9, f01=0x0190, f02=»R| $ U _ 4 U P> $P4> R0> 8' T Y X ' T P X P > 2 Z X "X 8' T 8Z" X ' X (@ L P "& $ $P$ D P P0 P P _ E W Q Y W 8 " E 4 % Y rB @ $P A $
0x311508…31169c Dummy {f00=0x00f9, f01=0x0190, f02=»(@ > ? @ dT A % > > M 0 - A Q '_D W > > J B B $ < $ A J ;h # <c$ " P 4 5 T Y Y Y X 9BV$ X " Y X D V X T 8TX 9WF B
0x31169c…311830 Dummy {f00=0x00f9, f01=0x0190, f02=» @ x d B V U P R U 2 ! ! W ! Q ! B Z P C ! V B P $$ R % C ! _, Y &X Y $P. Y %P( $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P
0x311830…3119c4 Dummy {f00=0x00f9, f01=0x0190, f02=» X ( X ]T ! Y h Y _p X R X X ' P ! X ( _X 2 A X RJ 8 J P X ' Q 8 J " W C U X Y ( Y B 9a C 2 8 J P4 8 B W* B W B W B 8 T Y Y Y
0x3119c4…311b58 Dummy {f00=0x00f9, f01=0x0190, f02=» _^ x B U P R U ! ! W ! Q ! B Z P C ! B P $$ R % C ! _, Y &X Y $P Y %P $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P B L # +P
0x311b58…311cec Dummy {f00=0x00f9, f01=0x0190, f02=» X ( X ]T ! Y h Y _p X R X 8 I P* X Y ::g H P P P P 2 ! W B B # L Y :e X >Y, X <P& Y < ! &9 R ! 09 R Y < Wb P UH ! ! 4! P WF
0x311cec…311e80 Dummy {f00=0x00f9, f01=0x0190, f02=» B Y ( Y * 4 X <:C* W, W( X " " :BW X " :BW X < c X :B X ! E $ Y Y 2 @ PT Y 8 Y ! 8 ! T 8 P X : Y '? 8 _^ @ NXR_f Y 8 Y ! 8 ! P XT 8 P Xb
0x311e80…312014 (3, 171) Dummy {f00=0x00f9, f01=0x0190, f02=» 4 T B C X P X " I 8 8 2 Y 8 Y ! 0 Td ! Y < ! ! TR , X P D Y , (P ) P @ T X Q X X T Y _l Y 8 4 > B B r s P
0x312014…3121a8 Dummy {f00=0x00f9, f01=0x0190, f02=» - 0 P A P# +T W Q P P 1 ! b T V C B Q 1 2 Y @ r t B _ X Z$W A I X ' { B C X 4 XR_f !P^ P X ! Y & X * ! Y T &
0x3121a8…31233c Dummy {f00=0x00f9, f01=0x0190, f02=» VW ! n* _ ! n* _ ! r ! z ! V ! T Y &W X & ! # z X Y (W ! ! $ ! D ) P _ X " XN X Y * X & z ! _ Y & 4 ! Y &# T X Y *_> Y &# 4 Y LW Y L Y H Y J Y B S W W B C
0x31233c…3124d0 Dummy {f00=0x00f9, f01=0x0190, f02=» Y X DP 1 Y D 2 0 Y F 1 0B. X $P y $_ $ > _ Y $ X * P Y : ! ! X # P Y *:A , X F A2 Y F @2 B. X Y Y Y X Y " X '? A ? ? ? H H H LT $ $B P W&J T" % % I H H JT B > >
0x3124d0…312664 Dummy {f00=0x00f9, f01=0x0190, f02=»W B R> P Q, U _ T : B R Q 9B9C B ! T 4 : P ;A _ 4 X , # P _ 4 A p;D A p 4 ( H 0 ) $P $ ) U
0x312664…3127f8 Dummy {f00=0x00f9, f01=0x0190, f02=» Y T Pn q 0 ) W` X P T& B RNP" A B @ A H W> @W& T" P X T T W C 8W T 8P Y ^ 5 ) P U 2 XH D #DP @ R ' X P
0x3127f8…31298c Dummy {f00=0x00f9, f01=0x0190, f02=» T Y W Y T # P W Y (@ 2 (@ X L L U 0 % _ r (@ X P& T D #DP 0P X T 4 Y X X T X / 1 1 X P> - M X P. P& # P 0P 1 _ 6W Y r
0x31298c…312b20 Dummy {f00=0x00f9, f01=0x0190, f02=» @ 1 A _ P 9 r R @ U 9C @ T M D _ W8 M $R M A2 2 D _ $P D % 1 I D W T T T T T T > & 4 4 4"4 f4>< <: < < > > ; ; z z! ! ! ! ! !p!p! !& ! ! !p!p! "
0x312b20…312cb4 (3, 172) Dummy {f00=0x00f9, f01=0x0190, f02=»(@ I P ^ ! H Y H W Y " Y , Y * ! 0v ! B Y E B Y F_ W 0 C P C W < C C _H 0 H H S W C C B B B U 00 R WJ X [ X T E T F .6 P C X E X
0x312cb4…312e48 Dummy {f00=0x00f9, f01=0x0190, f02=» > 2 2 #v#v& & & & & % % #P& % #P& & & & % % #P F X $P R X $W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X " F $ P "4W $ P $ - " : 2 ( H > "
0x312e48…312fdc Dummy {f00=0x00f9, f01=0x0190, f02=» C X '? ! X " X $ )T & " " &v X TT T A! J ( / P W T Y P T _ Y " F C C (@ _ % X " X E U X F U ( 1z T$ X X NP F "V T & P ` U0 @ , D !##X
0x312fdc…313170 Dummy {f00=0x00f9, f01=0x0190, f02=» - (@ % / O $P % 4 F "V (@ B C P 9 C ' 4' $ ' $ 5 $ 4 +~ W , P& ,' X X - Z" ) $ _ (@ C A $ ( B ! & $ @! F U G F G " & " $
0x313170…313304 Dummy {f00=0x00f9, f01=0x0190, f02=»V" P "P8 $P4W X " X ^T( ;AR ( &b( " 1z T Y Z F " F D '? P P( $ P" 0 I I K K P P & P 0vW D $ T 00 T 0ZW E E E F X ZV ? T B C (@( =n B B P
0x313304…313498 Dummy {f00=0x00f9, f01=0x0190, f02=» ( ' '" L " TOP *r A=l L A=j L C =h @=j A=jQ< @=: ) A=: @=| *r B C D=< E=>X #D( 'L( B C B @=: D=< C8W C C ( ' '" =h =8 @=|T A=l 0" ) ) U _ L !SSP
0x313498…31362c Dummy {f00=0x00f9, f01=0x0190, f02=» @=lT R NT @=| * *r 6 +~ 2% P *r =f ` P %_ S S E 3 P S E P S F P S $ P S & P % S D P & S L @=l S ( B | (~ ' @=DT W =fT Wz @=|P R $ >a U Wb , =b P=FP @
0x31362c…3137c0 Dummy {f00=0x00f9, f01=0x0190, f02=» @= P6 I @= P @., V W H.. I.0(@ @=fP -W P B C C = (@( @=| + _ P `=8 ` 9A S Z D $X D S * S 2* R & S W S [ S R $ R & . S ^ * U _ L !SSP
0x3137c0…313954 (3, 173) Dummy {f00=0x00f9, f01=0x0190, f02=» @ T R NT @ 6 2% P P %_ S S E 3 P S E P S F P S $ P S & P % S D P & S L @ S ( B | (~ ' @ T W T W @ P R $ >a U , =b P P @
0x313954…313ae8 Dummy {f00=0x00f9, f01=0x0190, f02=» @ P6 I @ P @ V W H I (@ @ P -W P B (@( @ + _ P ` ` 9A S Z D $X D S * .6 Q S W S Q R S P W S _ R _ ;A [ [ :
0x313ae8…313c7c Dummy {f00=0x00f9, f01=0x0190, f02=» [ : _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 ? ? !? P P !> P W 9P _ ~ T !##P> ? R4 L PX P L
0x313c7c…313e10 Dummy {f00=0x00f9, f01=0x0190, f02=» H 4W 0P8 R Q P W R D ' Q ( 0 5 @2 1 A2 Z> : D JW (P D ' I W6 @, T ( A, U 1_ D ' I D J ) E J : T & / SP P W X & , U U. _ Y * R P Y P X $ _ W Y " :
0x313e10…313fa4 Dummy {f00=0x00f9, f01=0x0190, f02=» ! # C C8W C C X %? : X "_ , D * P , _ D * D D & . T $ T " ^ S W : > > r |C E DJ4 7 > > > > > > > > @2 A2 W ^ !
0x313fa4…314138 Dummy {f00=0x00f9, f01=0x0190, f02=» [ [ [ [ [ [ [ > > [ [ 2 Z P D 0P P - I 1 P Z $ U Z Z ? ? Z Z Z Z Z Z Z " $ & > P "R Y W 2 R Pl T Pb >_ <UR "R4 PB X R< X T6 X T0. T
0x314138…3142cc Dummy {f00=0x00f9, f01=0x0190, f02=» 6 X ( ) Y * 6 X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > 7 > Pb P C 6 B 6 T B % X * $ 4 T % 6 X (T ! dW 7 Y * V 7 ! h B P X " _Z B P$ $$ R % C
0x3142cc…314460 Dummy {f00=0x00f9, f01=0x0190, f02=» B Z Z& X * ,T J W X (P Y * 0 %_. % Y * W _p P 7 _ C ! d 2 " 7T QPR X R(;GV$ | 7" P8 X R2;GV. X 5 X ( $4 P 7 X *T * W Y ( - 2 ? X :a Z T T W P X :d Y > > |Vd ? 8
0x314460…3145f4 (3, 174) Dummy {f00=0x00fa, f01=0x0190, f02=» 1 > JT , _ 7 :.:@: 9 ! T P P 9 & 9 2 B P B H " +P P. T Y # ! T R| X $ Y "R Y " _ Y "_. B 1 ;" ! T : B B U4 $ ! T _ U D ! T _ $$ X" X& X* C
0x3145f4…314788 Dummy {f00=0x00fa, f01=0x0190, f02=» P R ?] _ C _ " $ P X # X ] ! T : 8 B !; !; ! T 9 B Y " !; W 8 8!0T 8 !@P ! T$ P ! T ! T : ! T T Y " 2 X Y " Y > X " X "" Y %Q Y > X Z2<BR > | X Y
0x314788…31491c Dummy {f00=0x00fa, f01=0x0190, f02=» !: _ X $ X X " !; !; Y _8 X " X "" Y %U W ! T ! T ! T Y 4 B 8 U )X R@ X X "" C X % V Y !; X $ X " !; B 8 8 `R Y ! T ! T ! T 4 ! T V ! T V
0x31491c…314ab0 Dummy {f00=0x00fa, f01=0x0190, f02=»_B "RT PL X TF X R@? V X " X H P X P Y X H P H < ? < ? <(@ = C # P >_ < U = H (@ " B = P ?_ = > = > = =_: R _ 00 > & <h$ P >
0x314ab0…314c44 Dummy {f00=0x00fa, f01=0x0190, f02=»=4 A=2 @=6 U : A= A= :A A=: C , ` R @ U P. ,% T& =n C ( B P T W ' T| I=< @ 8 =hP Y X Pl ,T< Y H=<! R W 9a I=< T T 9a H== E= ^ W P ,! T T ( C : #
0x314c44…314dd8 Dummy {f00=0x00fa, f01=0x0190, f02=» P ( )W @ 0 R % "V E T D A= _" P @=6 P ( )W @ 0 Rb ' F "R G = @=: D=< #D R T G W, A=| 'L "R A=| A=f > 2 = ? A R _ 00 > & <h$ P >
0x314dd8…314f6c Dummy {f00=0x00fa, f01=0x0190, f02=»=4 A=2 @=6 U : A= A= :A A=: , ` R @ U P ,% T =n C ( B P T W ' T I=< @ 8 =hP Y X P ,T Y H=<! R W 9a I=< T T 9a H== E= ^ W P ,! T T ( ? #
0x314f6c…315100 Dummy {f00=0x00fa, f01=0x0190, f02=» P ( )W @ 0 R % "V E T D A= _" P @=6 P ( )W @ 0 Rb ' F "R G = @=: D=< #D R T G W, A=| 'L "R A=| A=f > 2 = R _ 00 > & <h$ P >
0x315100…315294 (3, 175) Dummy {f00=0x00fa, f01=0x0190, f02=» M M M A? -(@ : - : @? , L T M @? : =a 9a Q - _ - > @ PJ ` +~ , C - A, ., C @? , - M M M @? A=2 A=4 >DVDVD D D D 0123456789 ' +,-. 01
0x315294…315428 Dummy {f00=0x00fa, f01=0x0190, f02=» ($SWAP A A A E @ A. M UU @ @ ! P$>B @Nx ANx @Nx E D P _ $ % $P _ % A @ " Q A E : R W2 A J AM J P. J _ " :c* A K K W " :d2 * A K6 K & W F `
0x315428…3155bc Dummy {f00=0x00fa, f01=0x0190, f02=» A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q Nz H, Nx Y P @ T W - NxP _ T <B :L A W A A W
0x3155bc…315750 Dummy {f00=0x00fa, f01=0x0190, f02=» P W <9B @ V W Q Nz W @Nx L @ M CRT @ P @ ! P W @ V P _ @ ! P M !RRP V @ P W _: M M M~ V @ PZ W @ @ ! T _ P
0x315750…3158e4 Dummy {f00=0x00fa, f01=0x0190, f02=» _ P !;;T X$ W N _J Nz J T J J W J JZ L W W I V 0 !;;P P V Xb _ P !;;T X$ W N nP XZ_V S ALO AL L @ R @ ! T AK AK V @ R V V
0x3158e4…315a78 Dummy {f00=0x00fa, f01=0x0190, f02=» : A T.I T P 1 I P < R P A _> Nz : K AM AI AL AL2 AKd AKh AK AK : 9e9C) A I " 9A ! 9B r @E r A I ! ( : K AM AI AL AL2 AK ! T AK AK I ! : 9E @E r s A I
0x315a78…315c0c Dummy {f00=0x00fa, f01=0x0190, f02=» P$_ P =H P V @ T X W n : YX d C !CCT B. J X B.9 HE Q K _ K6_ !SST( 0 UE R X A X W : @ ' R xW V W$ V P P M W P M V T W V W
0x315c0c…315da0 Dummy {f00=0x00fa, f01=0x0190, f02=» : A T 2 ; Z [ : : [ [ : Yb W Z A. c R $ )_ : V r P V Nz t P Z W r _R V
0x315da0…315f34 (3, 176) Dummy {f00=0x00fa, f01=0x0190, f02=» R <B V x " 1 W V z : O _@ V : W R P P N N W x O2 P _ V : t " D P W V Pv $;A^ D E D P. V NzP Nz P T Nz E _N T N E _ r P V Nz t_~ " V r D T E %
0x315f34…3160c8 Dummy {f00=0x00fa, f01=0x0190, f02=» ; V : : J @ 0 V @ Nz 0 H W : ? ? R 0 R P P B > _ 2 : 4P0 " D P H H $ M v b - I Y& : @ ` V b pPL P Q $ " = 4 Q QN_2
0x3160c8…31625c Dummy {f00=0x00fa, f01=0x0190, f02=» P^ P PR_ _ @ V W U( P P( P V W U " @ Q @ P A. @ P _T A A @ .V 3 S Y& P4 2 2 S P 3 _ 2 3 2
0x31625c…3163f0 Dummy {f00=0x00fa, f01=0x0190, f02=» pT : N V l W H V ]" . nT, r P Y6 O W v N W n V ~P T0 W x O2 T O2 _| V d , V Nz P _ N L % V d V f G G U N G : P P N r P U P : O N V ~P T0 W x O2_$ 8 V V x % V
0x3163f0…316584 Dummy {f00=0x00fa, f01=0x0190, f02=»N ) G ` " W p W ~ pP0 S R P P S P _ W ~ R P X4 S P _ ` W ~ pPV S R , P N " E R Tx W ~ R Tx R P U R X^ U _dW P T : N O W x O2 P _ V P P I W z ` pPJ O~ "
0x316584…316718 Dummy {f00=0x00fa, f01=0x0190, f02=» ;h 0 :C # : .=H N V P .=H N V P N : d 8" R _ ZY QY : @ H W z W | CRP W ` ` H W d 2 @ P R Nz - @ - N !TTP Nz N :H N TBT W W4
0x316718…3168ac Dummy {f00=0x00fa, f01=0x0190, f02=»:H N R P V Nz _ N S W S YB : v ` @ W W W @ W D P V W W ` " W p @ pP* " 4X 1 R Z0 % _ W l a w ` :A W V d 4 W P 5 _
0x3168ac…316a40 Dummy {f00=0x00fa, f01=0x0190, f02=» _ ^D M @ W A E f f4 P e E r f4 e E @ @ W @ @ % Zh Z [ ]L a b ` c d @ d CRT" @ ! P ` @ E "W ` @ E " ` @ ] @ P @ P " P " P " P
0x316a40…316bd4 (3, 177) Dummy {f00=0x00fa, f01=0x0190, f02=» #E [( " P #F [( : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T Nz : @ :B W . !TTP Nz eB W t N =H N W l N =H N e W p N =H N V W | ( @ % P W @ % P
0x316bd4…316d68 Dummy {f00=0x00fa, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P V !TTT [ M @ @ T Nz : T Nz P _ A
0x316d68…316efc Dummy {f00=0x00fa, f01=0x0190, f02=» W V t Yr V !TTX @ @ T Nz : W _ V 0 V P _ W $ q > R P >b W >b & 8P D P U " E W E V W R 9 W D N ) $ P@ D L T@ D "P U , I ( I * $# P V -
0x316efc…317090 Dummy {f00=0x00fa, f01=0x0190, f02=» P : V $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _
0x317090…317224 Dummy {f00=0x00fa, f01=0x0190, f02=» Nz @ A : . !TTP Nz V eB W t * eR P ep r _ eb Ph W p ep W V 8 8 4 D P$ N @ # P H I K T + Y@ V p _j V t Y V !TTX @ @
0x317224…3173b8 Dummy {f00=0x00fa, f01=0x0190, f02=» P, ep V 4 U Nz $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W eB P0 W f ep W d e V d V r < ^8 V f _2 eb Un ep V 8 U Nz 8 8 8 4 D P$ N @
0x3173b8…31754c Dummy {f00=0x00fa, f01=0x0190, f02=»Nz : @ ! P @ @ d CRT 3 @ d d S @ d PP d !RRP @ ! T 3 @ & P d 3 d 3 YL @ @ T Nz : @ ! P (W ( : 2 ` @ P e(_ e( 3
0x31754c…3176e0 Dummy {f00=0x00fa, f01=0x0190, f02=» N V : &=H F V : F =H F V : F =H F V : P N =H N T eB V _ : 00=H 00 P P _ _ : , P@ , - 4 ] 4 P Y 5 X * _6 : f@fJfPfZf` 6 F 6 ! 1 6
0x3176e0…317874 (3, 178) Dummy {f00=0x00fb, f01=0x0190, f02=» &7 DY CR P 3 @ d d S @ d PP d !RRP @ ! T 3 @ & P d 3 d 3 YL @ @ T Nz : @ ! P (W ( : 2 ` @ P e(_ e( 3
0x317874…317a08 Dummy {f00=0x00fb, f01=0x40ce, f02=» . H IDENT T:DT10 TRA 4.1 79-04-26 F1 O1111 T:DT10 6 T:DT10D H START * & `T1 ? * l * * @
0x317a08…317b9c Dummy {f00=0x00fb, f01=0x416a, f02=» . H IDENT Z:TB10 TRA 4.1 79-04-26 F1 O1111 Z:TB10 6 Z:TB10T H & & p & = & [ & y & & & & & & -
0x317b9c…317d30 Dummy {f00=0x00fb, f01=0x4088, f02=» . H IDENT D:TB10 TRA 4.1 79-04-26 F1 O1111 D:TB10 6 D:TB10T H :T r@ & [ & y & & & & & & -
0x317d30…317ec4 Dummy {f00=0x00fb, f01=0x40b4, f02=» . H IDENT D:DB10 TRA 4.1 79-04-26 F1 O1111 D:DB10 6 D:DB10D H * & " " @ & & & & & -
0x317ec4…318058 Dummy {f00=0x00fb, f01=0x40ca, f02=» . H IDENT C:CB20 TRA 4.1 79-04-26 F1 O1111 C:CB20 6 C:CB20C H * & $ $ @ & & & & -
0x318058…3181ec Dummy {f00=0x00fb, f01=0x40e4, f02=» . H IDENT D:CB20 TRA 4.1 79-04-26 F1 O1111 D:CB20 6 D:CB20C H * & B * & = B @ & & -
0x3181ec…318380 Dummy {f00=0x00fb, f01=0x40c8, f02=» . H IDENT C:CB30 TRA 4.1 79-04-26 F1 O1111 C:CB30 6 C:CB30C H * & @ c " " @ B @ & & -
0x318380…318514 (3, 179) Opaque[0x194]
0x318514…3186a8 # DirEnt {nam=»COPVOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f68, f03=0x0000}
0x318514…3186a8 IdxSect {
0x318514…3186a8 f00 = 0x00fb // 0x318514 @0x0
0x318514…3186a8 f01 = 0x001c // 0x318516 @0x2
0x318514…3186a8 gno = [ // 0x318518 @0x4
0x318514…3186a8 [0x00]: C0x00fb.0x1.0
0x318514…3186a8 [0x01]: C0x00fb.0x2.0
0x318514…3186a8 [0x02]: C0x00fb.0x3.0
0x318514…3186a8 [0x03]: C0x00fc.0x0.0
0x318514…3186a8 [0x04]: C0x00fc.0x1.0
0x318514…3186a8 [0x05]: C0x00fc.0x2.0
0x318514…3186a8 [0x06]: C0x00fc.0x3.0
0x318514…3186a8 [0x07]: C0x00fd.0x0.0
0x318514…3186a8 [0x08]: C0x00fd.0x1.0
0x318514…3186a8 [0x09]: C0x00fd.0x2.0
0x318514…3186a8 [0x0a]: C0x00fd.0x3.0
0x318514…3186a8 [0x0b]: C0x00fe.0x0.0
0x318514…3186a8 [0x0c]: C0x00fe.0x1.0
0x318514…3186a8 [0x0d]: C0x00fe.0x2.0
0x318514…3186a8 ]
0x318514…3186a8 }
0x3186a8…31883c Dummy {f00=0x00fb, f01=0x018e, f02=» 2 P IDENT COPVOL PRR 9.1 79-04-06 870136640910 P : P* B . P***************************************** L P* ~ . P* PHILIPS TERMINAL SYSTEM PTS * P* P* *****TOSS UTILITIES***** P* . P* COPVOL = COPY VOLU
0x31883c…3189d0 Dummy {f00=0x00fb, f01=0x0190, f02=» P* P* P* ******** P* *COPVOL* * P* ******** < P* N P* X 8 P* COPVOL WILL COPY A VOLUME TO A DISC FORMATTED WITH b P* THE CREATE VOLUME UTILITY. 6 P* OLD DISC CALLED DISC1 AND NEW DISC CALLED DISC2 P* P*
0x3189d0…318b64 Dummy {f00=0x00fb, f01=0x0190, f02=» P ENTRY COPVOL P P " P * P* 2 P* < P* *********** F P* *EXTERNALS* P* *********** r P* P* P EXTRN BIDACR P EXTRN BINACR , P EXTRN ADDMOD DOUBLE PRECISION ADDITION P EXTRN VOLNAM
0x318b64…318cf8 Dummy {f00=0x00fb, f01=0x0190, f02=» $ PQVRECL EQU 41 VTOC RECORD LENGTH $ PQVTBLF EQU 9 VTOC BLOCK FACTOR 0 ( PQBUF1L EQU 4 BUF1 LENGTH IN SECTORS X PQBUF2 EQU 2 BUFFER 2 PQPRFC EQU 5 PRINTER FC PQFCIN EQU 6 INPUT FC PQFCOUT EQU 7 OUTPUT FC PQVOL1 EQU 8 INPU
0x318cf8…318e8c Dummy {f00=0x00fb, f01=0x0190, f02=»SC FC t P* P EJECT COPVOL CRVOL P* 8 P* ****** B P* *DATA* R P* ****** b P* r PBADNO2 DATA 0 | $ PCOUNTR DATA 0 COUNTER IN READ11 PENTRY2 DATA 0 PEXTNO DATA 0 $ PFEN2 DATA 0 FILE EXTENT NO DISC2
0x318e8c…319020 Dummy {f00=0x00fb, f01=0x0190, f02=»0 FILE RECORD LENGTH PFILORG DATA 0 FILE ORG ( PFILSEC DATA 0 FILE LENGTH IN SECTORS : & PFEXB2 DATA 0 NEW FILE EXTENT BASE f ( PFEXL2 DATA 0 NEW FILE EXTENT LENGTH PFILEXT DATA 0 " PFREBAS DATA 0 FREE EXTENT BASE $ PFRELEN DATA 0 FR
0x319020…3191b4 (3, 180) Dummy {f00=0x00fb, f01=0x0190, f02=»C1 DATA 0 RECORD NO IN VTOC SECTOR ( PSECNO DATA 0 OFFSET IN SECREC TABLE * PSECTOR DATA 0 SECTOR NO V * PSTACKP DATA 0 STACK POINTER A14 VALUE v : PTFILEN DATA 0 TOTAL NUMBER OF SECTORS IN FILE TO COPY , PTOTFRE DATA 0 TOTAL FREE LENGTH ON DIS
0x3191b4…319348 Dummy {f00=0x00fb, f01=0x0190, f02=»TA 0 VTOC1 LENGTH PVLEN2 DATA 0 VTOC2 LENGTH ( PVTSEC1 DATA 0 VTOC1 SECTOR WITH REC1 < & PVLAST1 DATA 0 LAST SECTOR IN VTOC1 h & PVLAST2 DATA 0 LAST SECTOR IN VTOC2 P* PECB1 DATA 0,0 $ P DATA 410 ECB FOR OLD DISC BUF1 P DAT
0x319348…3194dc Dummy {f00=0x00fb, f01=0x0190, f02=»FOR OLD DISC1 BUF2 ~ P DATA 410 P DATA 0,0,0 , P* @ ( PECB4 DATA 0,0 ECB FOR NEW DISC2 BUF1 J P DATA 410 v P DATA 0,0,0 PEXTSTP DATA EXTSTP P DATA 0,0,0,0 PSECREC DATA SECREC P DATA 0,0,0,0 P EJECT COP
0x3194dc…319670 Dummy {f00=0x00fb, f01=0x018e, f02=»OR NO: ' ~ PSEC DATA ' ' PQSECER EQU *-SECER * P DATA 0 D PFILER DATA ' FILE NAME: ' T PFILNAM DATA 0,0,0,0 v PQFILNM EQU *-FILER P DATA 0 PDESREC DATA ' ' P DATA 'DESTROYED RECORDS:' PRECFR DATA '
0x319670…319804 Dummy {f00=0x00fb, f01=0x018e, f02=» P* PINERR DATA /2030 P DATA 'INPUT DISC' & PQINERR EQU *-INERR @ P* Z POUTERR DATA /2030 d P DATA 'OUTPUT DISC' ~ PQUOTER EQU *-OUTERR P* PPRECB DATA 0,0,0,0,0,0 P* P EJECT COPVOL CRVOL P
0x319804…319998 Dummy {f00=0x00fb, f01=0x018e, f02=» PFFINCC EQU * P* " PEND010 LD A4,VBAS1 VTOC1 BASE & P LD A10,VLEN1 VTOC1 LENGTH L P SUK A4,1 n P ADR A10,A4 P ADK A4,2 * P LDKL A8,QVTBLF GET VTOC BLOCK FACTOR P LDR A9,A4 P* PEND015 LDK A7,/CC
0x319998…319b2c Dummy {f00=0x00fb, f01=0x0190, f02=» P* P EJECT COPVOL CRVOL P* 2 P* ******** < P* *FRENT2* N P* ******** ` P* r 2 P* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 | P* INPUT A9 = VBAS2+1 , P* A4 = FIRST SECTOR AFTER VTOC2 . P* OUTPUT
0x319b2c…319cc0 Dummy {f00=0x00fb, f01=0x0190, f02=»L A3,400 P ADK A2,2 SKIP CYLINDER ID PCP2 ADK A2,QVRECL 2 P SUK A3,QVRECL L P LCR A7,A2 b P ANK A7,/FF t P RF(Z) CP4 P ADK A2,1 NEXT ENTRY P SUK A3,1 P RB(P) CP2 END OF SECTOR? PCP3 ADKL A9,1 NEXT SECTOR
0x319cc0…319e54 (3, 181) Dummy {f00=0x00fb, f01=0x0190, f02=» PCP4 SUK A2,QVRECL P* " PCOMRTN RTN A14 , P* B P EJECT COPVOL CRVOL L P* l P* ******* v P* *FSAT2* P* ******* P* * P* TAKE FIRST FREE EXTENT IN VTOC2 BUF2 2 P* OUTPUT A2 POINT TO FIRST FREE EXTE
0x319e54…319fe8 Dummy {f00=0x00fb, f01=0x0190, f02=» 50 ENTRIES IN FSAT $ P ADK A2,4 POINT TO EXTENT LENGTH P* D $ PF1 LDR* A3,A2 FREE EXTENT LENGTH N & P RB(NZ) COMRTN FIRST FREE LENGTH? v P ADK A2,8 NEXT LENGTH P SUK A4,1 P RB(P) F1 END OF SECTOR? P ABL RTN05 DISC OVERFLOW
0x319fe8…31a17c Dummy {f00=0x00fb, f01=0x0190, f02=»BUF1 TO BUF2 2 P*INPUT A1 POINT TO FIRST WORD IN BUF1 TO MOVE P* A2 POINT IN BUF2 J P* A4 LENGTH IN WORDS d P* PMOVE12 EQU * P* PM1 LDR* A3,A1 P STR A3,A2 STORE IN BUF2 P ADK A1,2 NEXT WORD P ADK A2,2
0x31a17c…31a310 Dummy {f00=0x00fb, f01=0x0190, f02=»** P* *MOVERE* P* ******** P* . 6 P* STORE NEW FILE EXTENT N0, LENGTH, BASE IN BUF2 8 * P* LAST RECORD NO FROM EXTENT 1 TO BUF2 r . P*OUTPUT A1 RESP A2 POINT TO RECORD LENGTH * P*INPUT A1,A2 POINT TO FILE EXTENT NO P* $
0x31a310…31a4a4 Dummy {f00=0x00fb, f01=0x0190, f02=»ECORD NO | P* PMOVERE EQU * P STR A5,A2 FILE EXTENT NO . P ADK A2,2 P P CMR A2 b P ADK A2,2 r " P STR A3,A2 FILE EXTENT LENGTH P ADK A2,2 P CMR A2 P ADK A2,2 P STR A4,A2 FILE EXTENT BASE P ADK A
0x31a4a4…31a638 Dummy {f00=0x00fb, f01=0x0190, f02=»DK A2,2 P ADK A1,14 P RTN A14 " P* 2 P EJECT COPVOL CRVOL < P* P* ******** f P* *NXTFRE* x P* ******** P* $ P* TAKE NEXT FREE SECTOR ON VTOC2 P* PNXTFRE EQU * P LDK A4,50 P* TAKE NEX
0x31a638…31a7cc Dummy {f00=0x00fb, f01=0x018e, f02=»,FRELEN P ADK A2,4 P LDR* A6,A2 " P ST A6,FREBAS 6 P CWR A3,A7 FRELEN AND TFILEN L P RB(L) NXT01 p P LDR A4,A6 P RTN A14 P* P EJECT COPVOL CRVOL P* P* ******* P* *PRINT* P* *******
0x31a7cc…31a960 Dummy {f00=0x00fb, f01=0x018e, f02=» P ST A5,PRECB+2 P ST A6,PRECB+4 P LDK A7,/86 0 P LKM D P DATA 1 P P RTN A14 ` P* p P EJECT COPVOL CRVOL z P* P* ******** P* *READ11* P* ******** P* P* READ FROM DISC1 TO BUF1 & P*
0x31a960…31aaf4 (3, 182) Dummy {f00=0x00fc, f01=0x0190, f02=» P* PRD02 LDKL A8,ECB1 P LDK A7,/91 , P ST A9,ECB1+10 SECTOR NO @ P LKM ` P DATA 1 l P LDK A7,/80 | P LD A8,ECB1+8 P TM A7,A8 $ P RB(NZ) RD02 NEW VOLUME LOADED? P LDKL A7,/8201 P TM A7,A8 P
0x31aaf4…31ac88 Dummy {f00=0x00fc, f01=0x0190, f02=» P* ERROR IN SECTOR P* " P ST A9,SECTOR , P ST A5,COUNTR B * P LD A8,NOSEC NUMBER OF SECTORS IN FILE X & P SU A8,TFILEN NO OF COPIED SECTORS P ADKL A8,QBUF1L 2 P SUR A8,A5 CORRECTION FOR LAST COPIED SECTORS P LD A5,FIL
0x31ac88…31ae1c Dummy {f00=0x00fc, f01=0x0190, f02=»RD NUMBERS OF DESTROYED RECORDS P* ( P LDK A1,0 2 ( P LDR A2,A8 GET NO OF COPIED SECTORS D P* p PRD05 SUK A5,1 z P RF(Z) RD06 FINISHED? P LDK A6,0 P LDR A7,A8 , P CF A14,ADDMOD DOUBLE PRECISION ADDITION P RB RD
0x31ae1c…31afb0 Dummy {f00=0x00fc, f01=0x0190, f02=»0 JUMP IF OVERFLOW P* PRD07 LDR A7,A1 SAVE A1-A2 $ P LDR A9,A2 F P LDKL A3,RECFR TO ADR X P LDK A4,7 LENGTH v P CF A14,BINACR P LDR A1,A7 RESTORE A1-A2 P LDR A2,A9 P LDK A6,0 " P LD A7,FILBLF GET BLOCK FACTOR
0x31afb0…31b144 Dummy {f00=0x00fc, f01=0x0190, f02=» P CF A14,BINACR P* P EJECT COPVOL CRVOL $ P* D P* N P LD A2,SECTOR X P LDKL A3,SEC n P LDK A4,5 P CF A14,BIDACR P LD A4,4,A14 RESTORE A2-A4 P LD A3,2,A14 P ADKL A14,6 P LDR* A2,A14 P
0x31b144…31b2d8 Dummy {f00=0x00fc, f01=0x0190, f02=»DKL A5,FILER P LDK A6,QFILNM P CF A14,PRINT * P LDKL A5,DESREC @ P LDK A6,QDESR X P CF A14,PRINT n P* P EJECT COPVOL CRVOL P* P* 00 IN STATUS BITS IN BUF1 P* " P LDR* A1,A12 GET BUF1 ADDRESS
0x31b2d8…31b46c Dummy {f00=0x00fc, f01=0x018e, f02=» P LDK A6,0 P* $ PRD08 SCR A6,A1 00 TO STATUS BIT P ADR A1,A7 H P SUK A5,1 Z P RB(P) RD08 l P LD A5,COUNTR P LD A9,SECTOR P* PRD10 ADKL A9,1 P SUKL A10,1 P RF(Z) RD15 P SUK A5,1 P R
0x31b46c…31b600 Dummy {f00=0x00fc, f01=0x018e, f02=» P* P EJECT COPVOL COPVOL P* . P* 8 PRD20 SUKL A9,QBUF1L RESET A9 B PRD21 EQU * f P LD A10,FILSEC x P* & PRD22 LDR* A7,A12 GET BUF1 ADDRESS P ST A7,ECB1+2 RESET ECB1 P ST A7,ECB4+2 RESET ECB4 P RTN A
0x31b600…31b794 (3, 183) Dummy {f00=0x00fc, f01=0x0190, f02=» v P* P* ******* P* *READ1* $ P* ******* 6 P* H P* R PREAD1 EQU * P LDKL A8,ECB1 p P* PREAD12 EQU * P LDK A7,/91 READ WITH WAIT P ST A9,10,A8 SECTOR NO P LKM P DATA 1 P LD A7,8
0x31b794…31b928 Dummy {f00=0x00fc, f01=0x0190, f02=»820F P ABL(NZ) RTNIE ERROR MESSAGE P RTN A14 0 P* @ P* J P* ******* T P* *READ2* f P* ******* x P* P* PREAD2 EQU * P LDKL A8,ECB2 P RB READ12 P* P EJECT COPVOL CRVOL P*
0x31b928…31babc Dummy {f00=0x00fc, f01=0x0190, f02=»TOR TO BUF1 ( P*INPUT A7=BIT TO COMPARE STATUS WITH P* A8=BLOCKFACTOR IN VTOC @ P* A9=FIRST SECTOR TO READ ` P* A10=LAST SECTOR TO READ " P*OUTPUT A6 CONTAIN STATUS BIT P* A1 POINT TO STATUS BIT P* PSEFFE1 EQU * P
0x31babc…31bc50 Dummy {f00=0x00fc, f01=0x0190, f02=» SAVED VALUE TO A8 " P LDR* A1,A12 GET BUF1 ADDRESS ! P ADK A1,QVRECL+2 ! @ P* ! X PSE010 LDK A6,0 ! b P LCR A6,A1 STATUS BIT TO A6 ! x P CWR A6,A7 ! " P RF(NE) SE020 NOT EQUAL. NEXT ! P SUKL A8,1 ! P RTN A14 ! P* ! P EJECT
0x31bc50…31bde4 Dummy {f00=0x00fc, f01=0x0190, f02=»* END OF SECTOR. NEXT SECTOR ! P* " $ P ADKL A9,1 " . $ P LDR A8,A3 RESET RECORD COUNTER " @ P CWR A9,A10 " h " P RB(NG) SE005 READ NEXT SECTOR " | P* " ( P* END OF VTOC. NO MORE SECTORS LEFT " P* " P RTN A14 " P* " P EJECT COP
0x31bde4…31bf78 Dummy {f00=0x00fc, f01=0x0190, f02=»<A7> " f P*INPUT SAME AS SEFFE1 # P* # * PSEFFE2 EQU * # 4 P* # H PFE005 LDR A2,A7 SAVE A7 # R P LDR A3,A8 SAVE A8 # r P CF A14,READ2 # P LDR A7,A2 SAVED VALUE TO A7 # P LDR A8,A3 SAVED VALUE TO A8 # ( P LD A2,QBUF2,A12 A2 POINTER IN
0x31bf78…31c10c Dummy {f00=0x00fc, f01=0x0190, f02=»S BIT TO A6 # P CWR A6,A7 $ P RF(E) FE020 $ & P* STATUS NOT EQU $ : P ADK A2,1 $ R P SUKL A8,1 $ d P RB(P) FE010 NEXT RECORD $ v P* NEXT VTOC SECTOR $ P ADKL A9,1 $ $ P LDR A8,A3 RESET RECORD COUNTER $ P CWR A9,A10 END OF SECTORS? $
0x31c10c…31c2a0 Dummy {f00=0x00fc, f01=0x0190, f02=»RITE1* $ P* ******** % P* % P* WRITE BUF1 ON DISC 1 % * P*INPUT A9=SEC TO WRITE % H P* % f PWRITE1 EQU * % p P LDKL A8,ECB1 % P LDK A7,/95 % P ST A9,ECB1+10 % P LKM % P DATA 1 % P* TEST OF RETURN CODE % $ P LD A7,ECB
0x31c2a0…31c434 (3, 184) Dummy {f00=0x00fc, f01=0x0190, f02=»L A8,/820F % P ABL(NZ) RTNIE ERROR MESSAGE & P RTN A14 & 6 P* & F P EJECT COPVOL CRVOL & P P* & p P* ******** & z P* *WRITE2* & P* ******** & P* & P* & PWRITE2 EQU * & P LDKL A8,ECB2 & P* & PWRIT22 EQU * &
0x31c434…31c5c8 Dummy {f00=0x00fc, f01=0x0190, f02=»ODE & x P ANK A7,/80 ' & P RB(NZ) WRIT22 NEW VOLUME LOADED? ' P LD A8,8,A8 GET RETURN CODE ' J P ANKL A8,/820F ' n " P ABL(NZ) RTNOE1 ERROR MESSAGE ' P RTN A14 ' P* ' P* ' P* ******** ' P* *WRITE4* ' P* ******** ' P* '
0x31c5c8…31c75c Dummy {f00=0x00fc, f01=0x0190, f02=»** ' P* *VTOSEC* ( P* ******** ( P* ( . F P* TAKE SECTOR AND RECORD FROM TABLE SECREC. READ SECTOR TO BUF1. ( 8 , P*OUTPUT A1 POINT TO FIRST WORD IN RECORD ( P*INPUT A7=OFFSET IN SECREC ( P* A6=RECORD LENGTH ( P* ( PVTOSEC EQU * (
0x31c75c…31c8f0 Dummy {f00=0x00fc, f01=0x0190, f02=» REC TO A5 ( P ST A5,REC1 ) & P CF A14,READ1 READ SECTOR TO BUF1 ) & " P LDR* A1,A12 GET BUF1 ADDRESS ) P P ADK A1,2 SKIP CYLINDER ID ) v P* ) PL1 SUK A5,1 ) P RF(Z) L2 RECORD FOUND ) P ADK A1,QVRECL+1 ) P RB L1 NEXT ) P* )
0x31c8f0…31ca84 Dummy {f00=0x00fc, f01=0x0190, f02=»* LOCK INPUT,OUTPUT FLEXIBLE DISCS ) P* * , PLOCK EQU * * 6 2 P CM ENTRY2 FLEX. DISC FLAG FOR BACK-UP VERSION * H $ P LDK A3,0 INPUT/OUTPUT DISC FLAG * ~ P LDKL A8,ECB1 * P* * PLOC:10 LDR* A1,A8 FC * P CCK A1,FDFC * P RF(L) LOC:50 NOT
0x31ca84…31cc18 Dummy {f00=0x00fc, f01=0x018e, f02=» P LDR A1,A2 SAVE RET. CODE + P LDR A3,A3 + & P RF(NZ) LOC:15 OUTPUT DISC? + 8 P ANK A2,/21 + P RF(NZ) LOC:80 FATAL ERROR + p P RF LOC:20 + P* + PLOC:15 ANK A2,1 + P RF(NZ) LOC:80 NOT OPERABLE? + P ANKL A1,/0200 + & P ABL(NZ)
0x31cc18…31cdac Dummy {f00=0x00fc, f01=0x0190, f02=» P DATA 1 , P LD A2,8,A8 RET. CODE , P ANK A2,/7 , 2 P RF(NZ) LOC:80 FATAL ERROR , D & P IM ENTRY2 INDICATE FLEXIBLE DISC , f P* , PLOC:50 LDR A3,A3 , P RF(NZ) LOC:EN OUTPUT DISC , " P LDKL A8,ECB2 OUTPUT DISC ECB , " P LDK A3,1 INDI
0x31cdac…31cf40 Dummy {f00=0x00fc, f01=0x0190, f02=» RTNOE OUTPUT I/O ERROR , P* - PLOC:EN EQU * - * P RTN A14 - > P* - N P EJECT COPVOL - X P* - p P* - z P******** - P*PHREAD* - P******** - P* - P* - * PPHREAD EQU * ROUTINE FOR PHYSICAL READ - 0 P LDK A1,QBUF1L BUF
0x31cf40…31d0d4 (3, 185) Dummy {f00=0x00fc, f01=0x0190, f02=»A8,ECB1 GET ECB1 ADDRESS - P* . . PPHR:05 CW A11,ECB1+10 CHECK SECTOR NUMBER . * $ P RF(E) PHR:15 COPYING FINISHED? . , P IM ECB1+10 NO, INCREMENT SECTOR NUMBER . P LKM . P DATA 1 . " P LD A2,ECB1+8 GET RETURN CODE . P RF(Z) PHR:10 READ
0x31d0d4…31d268 Dummy {f00=0x00fc, f01=0x0190, f02=»R ADDRESS . l P SUK A1,1 / ( P RB(P) PHR:05 BUFFER NOT FILLED UP? / $ & P RTN A14 BUFFER FILLED UP, RETURN / P P* / z P EJECT COPVOL / P* / P* / 8 PPHR:15 NGR A1,A1 INDICATE <= 8 SECTORS LEFT TO COPY / P RTN A14 / P* / 0 PPH
0x31d268…31d3fc Dummy {f00=0x00fc, f01=0x018e, f02=»HR:25 OUTPUT READ ERROR? / * P LDK A3,0 NO, INDICATE ERROR ON INPUT 0 P* 0 N PPHR:25 ANKL A2,/808B 0 X * P RB(NZ) LOC:80 RETURN IF SERIOUS ERROR 0 t P LD A2,8,A8 GET RETURN CODE 0 P ANKL A2,/204 0 & P RF(Z) PHR:35 ONLY RETRY BIT SET? 0 " P L
0x31d3fc…31d590 Dummy {f00=0x00fc, f01=0x0190, f02=» P* 1 6 PPHR:30 CF A14,PRINT PRINT 'INPUT' OR 'OUTPUT DISC' 1 P LDKL A5,READER 1 H P LDK A6,QREADE 1 ` $ P CF A14,PRINT PRINT 'READ ERROR' 1 v P ST A1,SAVEA1 SAVE A1 1 P* 1 P EJECT COPVOL 1 P* 1 P* 1 P LDKL A3,SEC 1 P L
0x31d590…31d724 Dummy {f00=0x00fc, f01=0x0190, f02=»TOR NO: XXXXX' 1 x P LDKL A1,0 RESTORE A1 2 PSAVEA1 EQU *-2 SAVE AREA A1 2 4 P LDK A7,/91 PHYSICAL READ 2 X P* 2 z PPHR:35 RTN A14 2 P* 2 PPHR:40 LDKL A5,INERR 2 P LDK A6,QINERR 2 P RB PHR:30 2 P* 2 P EJECT COPVOL 2
0x31d724…31d8b8 Dummy {f00=0x00fc, f01=0x0190, f02=»QBUF1L BUFFER SIZE IN NO OF SECTORS 2 P* 3 , ( PBAS:05 LDKL A8,ECB2 GET ECB ADDRESS 3 6 P LDR A9,A1 SAVE A1 3 b P LDK A7,/85 BASIC WRITE 3 | $ P LDR* A4,A12 GET BUFFER ADDRESS 3 P ST A4,ECB2+2 3 P* 3 . PBAS:10 IM ECB2+10 INCREMENT SECTOR N
0x31d8b8…31da4c Dummy {f00=0x00fc, f01=0x0190, f02=»N BUFFER? 3 t P* 4 P LDR A1,A9 RESTORE A1 4 P NGR A9,A9 4 : P ADS A9,ECB2+10 4 L $ P LDR* A4,A12 GET BUFFER ADDRESS 4 d P ST A4,ECB2+2 4 P LDK A7,/91 PHYSICAL READ 4 P* 4 P EJECT COPVOL 4 P* 4 P* 4 . PBAS:20 IM ECB2
0x31da4c…31dbe0 Dummy {f00=0x00fc, f01=0x0190, f02=»PHR:20 NO, CHECK OUT WHY 4 " P LDKL A8,ECB2 GET ECB2 ADDRESS 5 P* 5 F PBAS:30 SUK A1,1 5 P 2 P RB(P) BAS:20 MORE SECTORS IN BUFFER TO CHECK? 5 h P RTN A14 NO, RETURN 5 P* 5 P EJECT COPVOL 5 P* 5 P* 5 P***** 5 P*IBM* 5
0x31dbe0…31dd74 (3, 186) Dummy {f00=0x00fd, f01=0x0190, f02=»H 5 p P LDKL A9,6 SECTOR 7 6 " P CF A14,READ2 READ VOLUME NAME 6 & " P LDKL A8,ECB2 GET ECB2 ADDRESS 6 L P LDK A1,2 6 r 2 P ADS A1,2,A8 UPDATE BUFFER ADDRESS FOR VOLNAM 6 , P CF A14,VOLNAM ASK OPERATOR IF VOLUME OK 6 P ADK A1,0 SET CR 6 ( P ABL(N
0x31dd74…31df08 Dummy {f00=0x00fd, f01=0x0190, f02=»BUFFER ADDRESS 6 ~ 0 P LDKL A1,/8081 WRITE 'TOSS' IN VOLUME LABEL 7 P ST A1,34,A2 7 J P LDKL A1,/8283 7 ^ P ST A1,36,A2 7 t P CM 10,A8 SECTOR 0 7 P LDK A7,/95 WRITE 7 P LKM 7 P DATA 1 7 P* 7 P EJECT COPVOL 7 P* 7 P* 7
0x31df08…31e09c Dummy {f00=0x00fd, f01=0x0190, f02=»A1,4,A8 SET TOSS SECTOR LENGTH 7 P RF BACK00 8 & P* 8 8 P EJECT COPVOL 8 B P* 8 Z P* 8 d P******** 8 n P*BACKUP* 8 ~ P******** 8 P* 8 * P* COPVOL, WITH NO REORGANIZING OF DISC 8 P* 8 PBACKUP EQU * 8 P* 8 P* CHECK OU
0x31e09c…31e230 Dummy {f00=0x00fd, f01=0x0190, f02=»,A8 RET. CODE 8 P ANK A2,/20 9 * P RB(NZ) IBM OUTPUT DISC IBM FORMATTED? 9 * * P CF A14,READ2 READ OUTPUT VOLUME LABEL 9 X " P LDKL A8,ECB2 GET ECB2 ADDRESS 9 , P CF A14,VOLNAM ASK OPERATOR IF VOLUME OK 9 P ADK A1,0 SET CR 9 ( P ABL(N) RTN99 ABORT
0x31e230…31e3c4 Dummy {f00=0x00fd, f01=0x0190, f02=»1,2 SKIP CYLINDER ID 9 P LDR A3,A12 GET PBLK ADDRESS : . P ADK A3,14 POINT TO NEW OUTPUT VOLUME NAME : @ P LDK A5,3 : r P* : P EJECT COPVOL : P* : P* : * PBACK05 LDR* A4,A3 GET NEW VOLUME NAME : $ P STR A4,A1 STORE NEW VOLUME NAME
0x31e3c4…31e558 Dummy {f00=0x00fd, f01=0x018e, f02=» $ P RF(Z) BACK07 NOT FLEXIBLE DISC? ; 0 P LDKL A11,499 NO OF SECTORS ON FLEXIBLE DISC ; , P RF BACK12 ; ` P* ; r PBACK07 EQU * ; | P ADK A1,20 ; $ P LDR* A11,A1 GET NO OF CYLINDERS ; P LDK A2,31 ; P* ; 4 PBACK10 ADR* A11,A1 COMPUTE NO OF S
0x31e558…31e6ec Dummy {f00=0x00fd, f01=0x018e, f02=» & P LDKL A10,410 SECTOR SIZE IN BYTES < 0 P LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS < . P LDK A7,/91 PHYSICAL READ < b " P LDKL A8,ECB1 GET ECB1 ADDRESS < " P CF A14,PHR:10 READ 7 SECTORS < P SUK A1,1 < P ST A1,ECB2+10 < P* < P EJECT
0x31e6ec…31e880 Dummy {f00=0x00fd, f01=0x0190, f02=» 0 P RB(Z) BACK15 REMAINING NO OF SECTORS >= 8? = P ADK A1,QBUF1L NO = 8 * P RF(Z) BACK20 NO MORE SECTORS TO COPY? = R 0 P CF A14,BAS:05 YES, WRITE REMAINING SECTORS = P* = ( PBACK20 LDKL A8,ECB2 GET ECB2 ADDRESS = P LDK A7,/80 TEST STATUS =
0x31e880…31ea14 (3, 187) Dummy {f00=0x00fd, f01=0x0190, f02=»OPVOL CRVOL = P* > P* ***************** > P* * ENTRY COPVOL * > < P* ***************** > X P* > t PCOPVOL EQU * > ~ * P ST A14,STACKP SAVE STACKPOINTER VALUE > " P LDR* A1,A12 GET BUF1 ADDRESS > " P ST A1,ECB1+2 BUF1 ADR TO ECB1 >
0x31ea14…31eba8 Dummy {f00=0x00fd, f01=0x0190, f02=»BUF2 ADR TO ECB3 > $ P LC A2,QPRFC,A12 LOAD PRINTER FC ? P SC A2,PRECB+1 ? @ P LC A2,QFCIN,A12 INPUT FC ? V P SC A2,ECB1+1 FC3 TO ECB1+1 ? x P SC A2,ECB3+1 FC3 TP ECB3+1 ? P LC A2,QFCOUT,A12 OUTPUT FC ? P SC A2,ECB2+1 FC4 TO ECB2+1 ? P
0x31eba8…31ed3c Dummy {f00=0x00fd, f01=0x0190, f02=» P* @ P* ****** @ P* *TEST* @ P* ****** @ . P* @ > ( P* COMPARE NAMES IN PBLK AND ON DISC @ H P* @ t P* READ VL1 TO BUF1 @ ~ P* @ P SUR A9,A9 SECTOR 0 @ P CF A14,READ1 @ " P LDR* A1,A12 GET BUF1 ADDRESS @ P ADK A1,2 SKIP
0x31ed3c…31eed0 Dummy {f00=0x00fd, f01=0x0190, f02=» P CWR* A4,A1 COMPARE ONE WORD A P ABL(NE) RTN02 ERROR MESSAGE A ( P ADK A3,2 A L P ADK A1,2 A ^ P SUK A5,1 END? A p P RB(P) TST010 NEXT A P* A . P LC A5,QREORG,A12 GET REORGANIZE PARAMETER A P ANK A5,/FF A " P ABL(Z) BACKUP NO REORGA
0x31eed0…31f064 Dummy {f00=0x00fd, f01=0x0190, f02=»,A12 LOAD BUF3 ADDRESS A P ADK A2,2 SKIP CYLINDER ID B P LDK A5,3 COUNTER B @ P* B Z PTST020 LDR* A4,A3 B d P CWR* A4,A2 COMPARE ONE WORD B ~ P ABL(NE) RTN02 ERROR MESSAGE B P ADK A3,2 A3 POINTER IN PBLK B P ADK A2,2 B P SUK A5,1 B
0x31f064…31f1f8 Dummy {f00=0x00fd, f01=0x0190, f02=» LDR* A4,A2 'TO' TO A4 B P CWK A4,'TO' C & P ABL(NE) RTN06 FAULTY DISC FORMAT C 2 P*DISC1 C P LDR* A3,A1 VTOC LENGTH C j P ST A3,VLEN1 C P ADK A1,4 C P LDR* A3,A1 VTOC BASE C P ST A3,VBAS1 C P*DISC2 C P SUK A2,26 C P LDR*
0x31f1f8…31f38c Dummy {f00=0x00fd, f01=0x0190, f02=»TOC LENGTH+BASE C P SUK A3,1 D ( P LDR A10,A3 LAST VTOC2 SECTOR IN A10 D * ( P ST A10,VLAST2 LAST SECTOR IN VTOC2 D V P EJECT COPVOL CRVOL D P* CHECK STATUS BIT IN VTOC2 D . P ADK A4,1 SECTOR AFTER FREE SPACE ADM TAB D P LDR A9,A4 D *
0x31f38c…31f520 Dummy {f00=0x00fd, f01=0x0190, f02=» CWR A6,A7 D P RF(NE) TEST40 END OF VTOC2 E P* TEST FILE ORG. BADSPOT? E 6 $ PTST30 SUK A2,14 POINT TO BADSPOT E X P LDK A7,/42 'B' E P CCR A7,A2 E 0 P ABL(NE) RTN03 NOT A BADSPOT. DISC NOT EMPTY E P* BADSPOT. END OF VTOC2 E * P* WRITE FF
0x31f520…31f6b4 (3, 188) Dummy {f00=0x00fd, f01=0x0190, f02=»TOC* E P* ****** F P* F > P* TAKE FIRST NOT COPIED FILE ENTRY IN VTOC1. SEEK THROUGH F & < P* REST OF VTOC FOR ANY MORE FILE EXTENTS. FILE RECORD IS F h ( P* STORED WITH VTOC SECTOR IN SECREC F P* F ( PVTOC01 LD A9,VBAS2 VTOC2 BASE TO A9 F *
0x31f6b4…31f848 Dummy {f00=0x00fd, f01=0x0190, f02=» COUNTER OF ENTRIES F P* G ( PVTOC05 LDR* A3,A2 FREE LENGTH TO A3 G & P ADR A1,A3 G R $ P ADK A2,8 TAKE NEXT FREE LENGTH G d P SUK A4,1 G P RB(P) VTOC05 NEXT ENTRY G , P ST A1,TOTFRE TOTAL FREE LENGTH ON DISC2 G P* G P EJECT COPVOL
0x31f848…31f9dc Dummy {f00=0x00fd, f01=0x018e, f02=»C RECORD LENGTH G ~ P SUK A4,1 H P ADR A10,A4 H * * P ST A10,VLAST1 LAST VTOC SECTOR DISC1 H > & P ADK A4,2 FIRST FILE ENTRY SECTOR H l 2 P* SEEK FIRST FILE ENTRY WITH /FF IN STATUS BIT H & P LDKL A8,QVTBLF VTOC BLOCK FACTOR H P LDR A9,A4 H P
0x31f9dc…31fb70 Dummy {f00=0x00fd, f01=0x0190, f02=» P* CHECK FILE ORG I P SUK A1,14 I P LDK A6,0 I . P LDK A7,/42 'B' TO A7 I @ P LCR A6,A1 FILE ORG TO A6 I ^ P CWR A6,A7 'B' ? I P RF(NE) VTOC20 NOT A BADSPOT I 8 P* BADSPOT. BADSPOT STORED LAST IN VTOC. END OF VTOC I $ P ABL RTN00 NO MO
0x31fb70…31fd04 Dummy {f00=0x00fd, f01=0x018e, f02=»UK A1,1 I P LDK A6,0 J P LCR A6,A1 J " P ST A6,FILBLF J 4 P SUK A1,2 J J P LDR* A6,A1 J P ST A6,FILRCL J p P SUK A1,10 J P LDR* A3,A1 J P ST A3,TFILEN J & P SUK A1,4 POINT TO FILE EXTENT NO J P LDR* A3,A1 J P ST A3,E
0x31fd04…31fe98 Dummy {f00=0x00fd, f01=0x0190, f02=» J ~ P SUK A1,4 K P LDK A2,6 K P* K , PVTOC22 LDR* A3,A1 K 6 P ST A3,FILNAM,A2 K P P SUK A1,2 K h P SUK A2,2 K z P RB(NN) VTOC22 K P ADK A1,2 START OF RECORD K , P* TAKE NEXT FILE ENTRY AND COMPARE NAMES K & P LDR A11,A8 A11 COUN
0x31fe98…32002c Dummy {f00=0x00fd, f01=0x018e, f02=» K p P* L , PVTOC24 ADK A2,1 A2 POINT TO NEXT RECORD L PVTOC25 EQU * L B " P SUKL A11,1 COUNTER OF RECORDS L V " P RF(N) VTOC30 READ NEXT SECTOR L | P ADK A2,QVRECL STATUS BIT L P* CHECK STATUS L P LDK A7,/FF L P CCR A7,A2 L P RB(NE)
0x32002c…3201c0 Dummy {f00=0x00fd, f01=0x0190, f02=» P CWR A6,A7 M 2 P RF(E) VTOC30 BADSPOT. NO MORE SECTOR IN VTOC1 M P* COMPARE FILE ORG M L P LD A3,FILORG M f P CWR A6,A3 M | P RF(E) VTOC27 M P ADK A2,14 M P RB VTOC24 M P* COMPARE NAMES M PVTOC27 LDK A6,4 COUNTER M P SUK A2,
0x3201c0…320354 (3, 189) Dummy {f00=0x00fd, f01=0x0190, f02=») VTOC50 NAMES NOT EQUAL M P ADK A1,2 N P ADK A2,2 N 2 P SUK A6,1 N D P RB(P) VTOC28 N V 0 P RF STR010 NAMES EQUAL. STORE SECTOR RECORD N l P* NEXT SECTOR N PVTOC30 ADKL A9,1 NEXT SECTOR N $ P LD A10,VLAST1 LAST VTOC1 SECTOR N P CWR A
0x320354…3204e8 Dummy {f00=0x00fd, f01=0x018e, f02=» LDKL A8,ECB3 N P LDK A7,/91 O P ST A9,ECB3+10 SECTOR NO O * P LKM O J P DATA 1 O V $ P LD A8,ECB3+8 RETURN CODE TO A8 O f P ANKL A8,/80 O & P RB(NZ) VTOC40 NEW VOLUME LOADED? O $ P LD A8,ECB3+8 RETURN CODE TO A8 O P ANKL A8,/820F O "
0x3204e8…32067c Dummy {f00=0x00fd, f01=0x0190, f02=» O P RB VTOC25 P 6 P* NAMES NOT EQUAL. RESET POINTERS TO RECORD START P PVTOC50 LDK A3,4 P T P CWR A3,A6 P l P RF(E) VTOC52 P ~ P* P PVTOC51 SUK A1,2 P P SUK A2,2 P P SUK A3,1 P P CWR A6,A3 P P RB(NE) VTOC51 P P* P
0x32067c…320810 Dummy {f00=0x00fd, f01=0x0190, f02=»******* P P* Q B P* STORE FILE EXTENT NO IN TABLE EXTSTP,VTOC SEC NO AND REC NO Q P* IN TABLE SECREC Q ` 4 P* TABLES ARE SORTED IN ASCENDING EXTENT NO ORDES Q z P* Q PSTR010 LDK A3,QVTBLF Q P SUR A3,A11 Q P LD A10,EXTNO Q P LDK
0x320810…3209a4 Dummy {f00=0x00fd, f01=0x018e, f02=» FILE EXTENT NO Q ~ P LDR* A7,A2 R P LDR A10,A10 R , P RF(Z) STR040 TWO EXTENTS R @ P* R b P LDK A6,2 R l P CWR A6,A10 R ~ P RF(E) STR030 THREE EXTENTS R P* FOUR EXTENTS R P LD A6,EXTSTP+6 R P CWR A6,A7 R P RF(G) STR020 A6>A
0x3209a4…320b38 Dummy {f00=0x00fd, f01=0x0190, f02=» P SC A3,SECREC+9 S P RF STR050 FOUR EXTENTS S P* A6>A7 S < PSTR020 ST A6,EXTSTP+8 S L P LD A10,SECREC+6 S j & P ST A10,SECREC+8 MOVE A10 ONE WORD S P* THREE EXTENTS LEFT S PSTR030 LD A6,EXTSTP+4 S P CWR A6,A7 S P RF(G) STR035 A6
0x320b38…320ccc Dummy {f00=0x00fd, f01=0x0190, f02=»R035 ST A6,EXTSTP+6 S P LD A10,SECREC+4 T P ST A10,SECREC+6 T 4 P EJECT COPVOL CRVOL T L P* T l P* TWO EXTENTS LEFT T v PSTR040 LD A6,EXTSTP+2 T P CWR A6,A7 T P RF(G) STR045 A6>A7 T P* A7>A6 T P ST A7,EXTSTP+4 T P SC
0x320ccc…320e60 Dummy {f00=0x00fd, f01=0x0190, f02=»A10,SECREC+2 T P ST A10,SECREC+4 U P SC A9,SECREC+2 U , P SC A3,SECREC+3 U D P* U PSTR050 SUK A2,10 U f P LD A3,EXTNO U ~ P LDK A7,6 U P CWR A3,A7 U P RF(E) COPY10 U P SUK A1,8 RESET A1 U P ABL VTOC23 NEXT U P* U P
0x320e60…320ff4 (3, 190) Dummy {f00=0x00fe, f01=0x0190, f02=»OM DISC1 TO DISC2 U l P* V ( PCOPY10 CM FEN2 FILE EXTENT ON DISC2 V $ & P CM FEXL2 FILE EXTENT LENGTH DISC2 V P P LD A6,TFILEN V z & P ST A6,NOSEC NO OF SECTORS IN FILE V P LD A7,TOTFRE V & P CWR A6,A7 CHECK FOR DISC OVERFLOW V P ABL(G) RTN05
0x320ff4…321188 Dummy {f00=0x00fe, f01=0x0190, f02=»ECREC TABLE V x ( P CF A14,VTOSEC A1 POINT TO RECORD NO W B P* FILE ENTRY:TAKE FILE EXTENT LENGTH, BASE AND LAST RECORD NO W @ PCOPY12 ADK A1,14 W * P LDR* A10,A1 FILE EXTENT LENGTH TO A10 W P ST A10,FILLEN W P ADK A1,4 W P LDR* A11,A1 W $ P
0x321188…32131c Dummy {f00=0x00fe, f01=0x0190, f02=» & P LDR* A3,A1 LAST RECORD NO PART 2 X P ST A3,LSTRN1+2 X . P* READ FILE BASE TO BUF1 X F PCOPY14 LDR A9,A11 X f P* X PCOPY15 CF A14,READ11 X P* X PCOPY16 LD A9,VBAS2 X P CM NOCC X P CF A14,READ2 X & P CF A14,FSAT2 FREE EXTEN
0x32131c…3214b0 Dummy {f00=0x00fe, f01=0x0190, f02=» X PCOPY17 LD A7,FEN2 Y P SUK A7,2 Y " P RF(N) COPY18 Y 4 P LD A7,TFILEN Y J P CWR A3,A7 Y ` P RF(NL) COPY18 Y r P CF A14,NXTFRE Y P* Y PCOPY18 ST A4,FEXB2 Y P LDK A5,QBUF1L Y P* WRITE BUF1 ON FREBAS DISC2 Y PCOPY20 LDR A
0x3214b0…321644 Dummy {f00=0x00fe, f01=0x0190, f02=»CTORS TO COPY Y t P SUK A7,1 Z & P RF(E) COPY25 LAST SECTOR TO COPY Z ( * P ABL(N) VTOC10 END OF SECTORS TO COPY Z R P ST A7,TFILEN Z P* Z P EJECT COPVOL Z P* Z P* Z ( P* UPDATE FREE EXTENT LENGTH AND BASE Z P ADK A4,1 FREBAS
0x321644…3217d8 Dummy {f00=0x00fe, f01=0x0190, f02=»L A10,1 REST OF LENGTH Z P RF(Z) COPY30 [ ( P* READ NEXT SECTOR TO COPY TO BUF1 [ 4 P SUK A5,1 [ ` P RF(Z) COPY22 [ r P LDKL A7,410 [ * P ADS A7,ECB4+2 UPDATE BUFFER ADDRESSES [ P RB COPY20 [ P* [ P EJECT COPVOL CRVOL [ P*
0x3217d8…32196c Dummy {f00=0x00fe, f01=0x0190, f02=» [ P CF A14,READ11 P LDK A5,QBUF1L P RB COPY20 4 P* F PCOPY25 ST A7,TFILEN P P ADKL A11,1 FILBAS+1 l P SUKL A10,1 FILLEN-1 P ADK A4,1 FREBAS+1 P SUK A3,1 FRELEN-1 P RF(Z) COP401 P* UPDATE BUF2 P STR
0x32196c…321b00 Dummy {f00=0x00fe, f01=0x0190, f02=»/CC P SCR A7,A1 ] P CF A14,WRITE1 ] P* ] 4 P EJECT COPVOL CRVOL ] > P* ] ^ P* TAKE NEXT SECTOR NO ] h P LD A7,SECNO ] P ADK A7,2 ] P ST A7,SECNO ] P CF A14,VTOSEC ] $ P* TAKE FILE BASE AND FILE LENGTH ] P ADK A1,14
0x321b00…321c94 (3, 191) Dummy {f00=0x00fe, f01=0x0190, f02=»LBAS ] P* READ FILBAS TO BUF1 ^ P RB COPY23 ^ * P* UPDATE BUF2 ^ < PCOPY40 ADKL A11,1 ^ R P SUKL A10,1 ^ l P IM NOCC NOT CC IN A1 FILE ^ P* ^ PCOP401 STR A3,A2 FREBAS=0 ^ P* ^ PCOPY41 SUK A2,4 ^ P STR A3,A2 ^ P EJECT
0x321c94…321e28 Dummy {f00=0x00fe, f01=0x0190, f02=»,TFILEN ^ P RF(Z) COPY45 _ " P CF A14,FSAT2 NEXT FREE EXTENT _ & P ST A3,FRELEN _ L P ADK A2,4 _ b P LDR* A4,A2 _ t P ST A4,FREBAS _ P LD A7,FEN2 _ P SUK A7,2 _ P RF(N) COPY45 _ P LD A7,TFILEN _ P* _ 6 PCOPY44 CWR A3,
0x321e28…321fbc Dummy {f00=0x00fe, f01=0x0190, f02=»SECREC (OLD) AND READ SECTOR TO BUF1 _ P CF A14,VTOSEC ` . P EJECT COPVOL CRVOL ` D 2 P* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 ` d P LD A9,VBAS2 ` P LD A4,VLEN2 ` P ADR A4,A9 ` P ADKL A9,1 ` P CF A14,READ2 ` P* ` PCO
0x321fbc…322150 Dummy {f00=0x00fe, f01=0x0190, f02=» 2 ` n P SUK A5,1 a $ P LD A3,FEXL2 FREE EXTENT LENGTH a " P LD A4,FEXB2 FREE EXTENT BASE a D P LD A7,LSTRN1 LAST RECORD NO a j P CF A14,MOVERE a P LDK A4,9 a P CF A14,MOVE12 a P SUK A1,1 a P LD A7,NOCC a ( P RF(NZ) COPY55 NOT CC
0x322150…3222e4 Dummy {f00=0x00fe, f01=0x0190, f02=»PY55 CF A14,WRITE2 a P LD A9,VTSEC1 b P CF A14,WRITE1 b 0 & P CM FEXL2 FILE EXTENT 2 LENGTH =0 b F P* UPDATE FILBAS AND FILLEN b p P LDR A10,A10 b P RF(Z) COPY60 b P* READ FILBAS TO BUF1 b PCOPY58 LDR A9,A11 b P CF A14,READ11 b
0x3222e4…322478 Dummy {f00=0x00fe, f01=0x0190, f02=» b P* c PCOPY64 LD A7,TFILEN c P RF(Z) COPY90 c . P LD A7,SECNO c D P CF A14,VTOSEC c X P EJECT COPVOL CRVOL c n $ P* TAKE FILE BASE AND FILE LENGTH c P ADK A1,14 c $ P LDR* A10,A1 FILE LENGTH TO A10 c P ADK A1,4 c " P LDR*
0x322478…32260c Dummy {f00=0x00fe, f01=0x018e, f02=» VTOC10 c P* END OF FILES TO COPY d < PRTN00 CF A14,FFINCC WRITE FF IN ALL STATUS BITS WITH CC d . P LDK A1,0 NO ERROR MESSAGE d n P RF RTN99 d P* d P EJECT COPVOL CRVOL d P* d P* **************** d P* *ERROR MESSAGES* d
0x32260c…3227a0 Dummy {f00=0x00fe, f01=0x018e, f02=» d n P* e PRTNX LDR A2,A8 e P RF RTN100 e ( P* e : PRTNOE1 LDR A2,A8 e D P CF A14,FFINCC e P LDK A1,2 OUTPUT I/O ERROR e r P RF RTN100 e P* e & PRTN02 LDK A1,3 VOLUME NAME UNKNOWN e P RF RTN99 e P* e ( PRTN03 LDK A1,4 OUT
0x3227a0…322934 (3, 192) Dummy {f00=0x00fe, f01=0x018e, f02=» e PRTN05 CF A14,FFINCC f P LDK A1,6 DISC OVERFLOW f $ P RF RTN99 f D P* f V & PRTN06 LDK A1,7 FAULTY DISC FORMAT f ` P RF RTN99 f P* f P EJECT COPVOL CRVOL f P* f P* f 0 PRTN08 LDK A1,8 FLEXIBLE DISC WRITE PROTECTED f
0x322934…322ac8 Dummy {f00=0x00fe, f01=0x018a, f02=» P* g P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x322ac8…322c5c Dummy {f00=0x00fe, f01=0x4008, f02=»@ h P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x322c5c…322df0 Dummy {f00=0x00fe, f01=0x2008, f02=» i P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x322df0…322f84 Dummy {f00=0x00fe, f01=0x0190, f02=»ME p B DETC98 F12BTB . ) CBE INPF,='Y',DETC99 JUMP IF INPUT FIELD * B DETC82 NEXT FIELD BTB = 5 " DETC80 MAKE FIELD 17 CURRENT MOVE DEBINW4,W17 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB NOT ALLOWED " DETC
0x322f84…323118 Dummy {f00=0x00fe, f01=0x0190, f02=»MAKE FIELD 5 CURRENT MOVE DEBINW4,W5 GETFLD 0,DEBINW4,DEBINW3 4 B DETC98 TAB NOT ALLOWED V DETC83 MAKE FIELD 4 CURRENT x MOVE DEBINW4,W4 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB NOT ALLOWED DETC98 $ M
0x323118…3232ac Dummy {f00=0x00fe, f01=0x0190, f02=»D !!IL 576 * * MTEXT $ L G* - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND : @ <* - EDIT TEXT PARTS OF 'LINE DESIGN' IN 'LINE DISPLAY' 6 1* - GENERATES 'FTEXT'- AND 'FTAB'-STATMENTS @ <
0x3232ac…323440 Dummy {f00=0x00fe, f01=0x0190, f02=»LIMIT EXCEEDED ~ , (* = 4 NO AVAILABLE BUFFERS;CLEAR . )* = 5 NO AVAILABLE BUFFERS;CANCEL F , (* = 6 NO AVAILABLE BUFFERS;RETUR x * N I************************************************************************* MTE
0x323440…3235d4 (3, 193) Opaque[0x194]
0x3235d4…323768 # DirEnt {nam=»CONRL9«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fd8, f03=0x0000}
0x3235d4…323768 IdxSect {
0x3235d4…323768 f00 = 0x00fe // 0x3235d4 @0x0
0x3235d4…323768 f01 = 0x0002 // 0x3235d6 @0x2
0x3235d4…323768 gno = [ // 0x3235d8 @0x4
0x3235d4…323768 [0x00]: C0x00fe.0x3.0
0x3235d4…323768 ]
0x3235d4…323768 }
0x323768…3238fc Dummy {f00=0x00fe, f01=0x013e, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : P00; J P01; V PSDC=S03; b T; r P01; | TID=T1; TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P00; P03
0x3238fc…323a90 Dummy {f00=0x00fe, f01=0x2008, f02=» 01; TID=TB; TCL=TB; * LEV=55; : P00; J P01; V PSDC=S03; b T; r P01; | TID=T1; TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P00; P03
0x323a90…323c24 Dummy {f00=0x00fe, f01=0x018e, f02=» A A ( t , ( B : B L( J , ( * P , A & D , ( ! 0 @ ; [ [ t ADDMOD BINACR * & A P _ S * & ] @
0x323c24…323db8 Dummy {f00=0x00fe, f01=0x0190, f02=» f , ( H ( 2 @ @ % , ( ( Y @ , P P A D 8 , ( P W 2 A D A h : h , ( _ B ( B ' , ( 3 : N_& 2 + , ( S $ T
0x323db8…323f4c Dummy {f00=0x00fe, f01=0x0190, f02=» @ J' J : N , ( ( B ' : f_& ( , ( ( | < | A ( 2 X , ( P *_ : A B " ! R ( , ( 3 B R T "!T W " T , ( S ( B " T A T N
0x323f4c…3240e0 Dummy {f00=0x00fe, f01=0x0190, f02=» X B P B x , ( H P A , ( A : H , ( Q _6 N 2 A P A X( P x , ( 1 Y X 2 A P A X( @ V , ( ( Q P N Y : C <
0x3240e0…324274 (3, 194) Opaque[0x194]
0x324274…324408 # DirEnt {nam=»ASSPER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fe0, f03=0x0000}
0x324274…324408 IdxSect {
0x324274…324408 f00 = 0x00ff // 0x324274 @0x0
0x324274…324408 f01 = 0x000e // 0x324276 @0x2
0x324274…324408 gno = [ // 0x324278 @0x4
0x324274…324408 [0x00]: C0x00ff.0x0.0
0x324274…324408 [0x01]: C0x00ff.0x1.0
0x324274…324408 [0x02]: C0x00ff.0x2.0
0x324274…324408 [0x03]: C0x00ff.0x3.0
0x324274…324408 [0x04]: C0x0100.0x0.0
0x324274…324408 [0x05]: C0x0100.0x1.0
0x324274…324408 [0x06]: C0x0100.0x2.0
0x324274…324408 ]
0x324274…324408 }
0x324408…32459c Dummy {f00=0x00ff, f01=0x018e, f02=» & P IDENT ASSRUT UPD 79-08-14/PEEN P UPD 79-04-24/PEEN . P UPD 79-02-28/PEEN J P UPD 79-01-30/PEEN f . ** ASSEMBLER ROUTINES USED BY PTS DE-SYSTEM ENTRY ATTWB P ENTRY ATTDB P ENTRY SAVE P ENTRY RESTOR
0x32459c…324730 Dummy {f00=0x00ff, f01=0x0190, f02=» P ENTRY UPDBIN P ENTRY SETB P ENTRY TESTB . P ENTRY CLEARB B P ENTRY MSKOUT X P ENTRY RCNTRL n P ENTRY WCNTRL P ENTRY GETVAL P ENTRY GETACC P ENTRY GETGEN P ENTRY GETDUP P ENTRY ATTBUF P
0x324730…3248c4 Dummy {f00=0x00ff, f01=0x0190, f02=»AS * * * CALL FORM 16=/F6A1,16 ( P* F PFVAL EQU /C5 P PFACC EQU /C7 d PFGEN EQU /C6 x PFDUP EQU /CC PFLINK EQU /DE P EJECT P* 0 P* ATTACH A STRING VARIABLE AS WORKBLOCK T
0x3248c4…324a58 Dummy {f00=0x00ff, f01=0x0190, f02=»K j 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE P* 'STRG'-START D 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A d P* ATTWB EQU * P LDKL A10,2 INDICATE WB PATT EQU * " CALL I:EVA0 ADDRESS TO
0x324a58…324bec Dummy {f00=0x00ff, f01=0x0190, f02=»R p LDR* A1,A9 SLL A1,2 TIMES 4 ADR A1,A13 ADDRESS TO DB 8 ( P ADR A1,A10 GET ADDRESS TO WB OR DB Z PATT100 EQU * & P STR A7,A1 STORE NEW WB/DB-ADDRESS P RF RETUR P* P EJECT P* 6 P* ATTACH A STRI
0x324bec…324d80 Dummy {f00=0x00ff, f01=0x0190, f02=»TRG= STRING ITEM TO BE DISCRIPTOR BLOCK 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE 0 P* 'STRG'-START j 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P* P* PATTDB EQU * P SUR A10,A10 INDICATE DB
0x324d80…324f14 (3, 195) Dummy {f00=0x00ff, f01=0x0190, f02=»E l P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS ( & P CF A14,I:EVA0 GET ADDRESS TO BIN. N P LC A3,1,A9 GET FILE CODE x & P SC A3,1,A8 STORE FILE CODE IN ECB P RF RETUR P EJECT P* 0 P* SAVE POINTERS TO DB:S/W
0x324f14…3250a8 Dummy {f00=0x00ff, f01=0x018e, f02=» THE VERY FIRST DB:POINTER @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED ( > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN l P* PSAVE EQU * P CALL GETP GET PARAMETERS PSAV100 EQU * P ADR A2,
0x3250a8…32523c Dummy {f00=0x00ff, f01=0x0190, f02=» P RB(NZ) SAV200 P RF RETUR P* , 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE 6 * P* TO THE T:A (TERMINAL CONTROL AREA) n 0 P* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG > P* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINT
0x32523c…3253d0 Dummy {f00=0x00ff, f01=0x0190, f02=»QU * P CALL GETP P LDR A1,A2 P LDR A2,A9 CHANGE 0 P LDR A9,A1 ADDRESSES J P RB SAV100 START TO RESTORE f P* ( P* GET PARAMETERS FOR SAVE/RESTORE P* PGETP EQU * P CALL I:EVA0 " P LDR* A7,A9 START DISPLA
0x3253d0…325564 Dummy {f00=0x00ff, f01=0x0190, f02=»TER /A n P RTN A14 P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD , 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB ` < 8* OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND) GETFRE EQU * ( $ CALL GETPAR GET PARAMETER
0x325564…3256f8 Dummy {f00=0x00ff, f01=0x018e, f02=»F(E) NOK END OF RECORD & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST H , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE l ADK A7,1 INCREMENT POINTER " ADK A6,8 UPDATE RECORD NUMBER RB GET100 SEARCH EQU *
0x3256f8…32588c Dummy {f00=0x00ff, f01=0x0190, f02=» SLL A4,1 RB SEA100 FOUND SLL A4,1 CLEAR BIT ( , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER H FOU100 SRL A4,1 x SUK A5,1 DECREMENT POINTER RB(NN) FOU100 SRL A4,8 " SCR A4,A7 STORE UPDATED BYTE LC A7
0x32588c…325a20 Dummy {f00=0x00ff, f01=0x0190, f02=» , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. NOK EQU * 4 CALL I:EVA0 F & "NOK100 STR A6,A9 STORE FOUND INDEX Z RETUR ABL I:RT1 EJECT 4 1* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF 6 1* FREE RECORD COUNTER. THIS I
0x325a20…325bb4 (3, 196) Dummy {f00=0x00ff, f01=0x0190, f02=»UMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) * 8 SETFRE EQU * B SUR A10,A10 INDICATE SETFRE V SET EQU * z CALL GETPAR LDR A6,A9 COPY ADDRESS ( $ CALL I:EVA0 GET ADDRESS TO REC. NO. LDR A2,A7 COPY A7 L
0x325bb4…325d48 Dummy {f00=0x00ff, f01=0x018e, f02=»CORD NO. v " P CALL SEABIT SEARCH WANTED BIT P LDR A6,A6 6 P RB(Z) NOK100 JUMP IF ERROR H LDR A10,A10 l RF(NZ) TEST0 IF SET0CC " * SETFRE: TEST IF ALREADY FREE TEST1 LDR A4,A4 RB(N) RETUR IF ALREADY FREE " ORKL
0x325d48…325edc Dummy {f00=0x00ff, f01=0x0190, f02=» ~ RF(N) TES300 BYTE RESTORED SRC A4,1 , RB TES200 > * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE P " SCR A4,A7 STORE UPDATED BYTE ~ RB RETUR * & "* SETOCC: TEST IF ALREADY OCCUPIED TEST0 EQU * LDR A4,A4
0x325edc…326070 Dummy {f00=0x00ff, f01=0x018e, f02=» RB TES100 EJECT 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD V * IS FREE 6 2* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB : 6* NUMB = CURRENT RECORD NUMBER (= 0
0x326070…326204 Dummy {f00=0x00ff, f01=0x0190, f02=» RB SET P EJECT P* " 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING , P* 16 BOOLEAN ITEMS b P* ~ PUPDBOL EQU * ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM P LDR* A1,A9 GET BIN CONTENTS P ST A1,-2,A9 STORE BOOLEANS
0x326204…326398 Dummy {f00=0x00ff, f01=0x0190, f02=» ADDRESS TO BIN ITEM P LD A1,-2,A9 GET BOOLEANS P STR A1,A9 STORE IN BIN > P RB RETUR ^ P EJECT p P* ~ 0 P* SEARCH WANTED BIT IN A CHARACTER STRING P* A3 = BIT INDEX , P* A7 = CHARACTER STRING START ADDRESS P
0x326398…32652c Dummy {f00=0x00ff, f01=0x0190, f02=»IN NOT EOR x * % LDK A6,0 INDICATE INCORRECT REC. NO. P RTN A14 @ * PLACED IN CURRENT BYTE P SET100 EQU * p ADK A3,8 LCR A4,A7 SLL A4,8 GET BYTE RIGHTMOST LDR A1,A3 COPY A3 RF(Z) TEST IF FIRST BIT SE
0x32652c…3266c0 Dummy {f00=0x00ff, f01=0x0190, f02=» SET WANTED BIT IN A STRING OR BIN ITEM & P* SYNTAX: CALL SETB,ITEM,INDEX 0 P* Z PSETB EQU * d P SUR A10,A10 INDICATE 'SET' v PSETB10 EQU * $ P CALL I:EVA0 GET ADDRESS TO ITEM P LDR A7,A9 COPY ADDRESS P LDR A8,A5 COPY EN
0x3266c0…326854 (3, 197) Dummy {f00=0x00ff, f01=0x0190, f02=»10 P RF(N) SETB30 IF TEST BIT P RF(Z) SETB20 JUMP IF SETBIT , P* CLEAR BIT P P ANKL A4,/7FFF CLEAR BIT d P RB TES200 RESTORE BYTE P* SET BIT PSETB20 EQU * P ORKL A4,/8000 SET BIT P RB TES200 RESTORE BYTE P
0x326854…3269e8 Dummy {f00=0x00ff, f01=0x0190, f02=» x PSETB40 EQU * P LD A4,2,A13 GET STACK BASE " P SC A1,-2,A4 STORE CR ON STACK @ P RF RET f P* v * P* CLEAR BIT IN STRING OR BIN VARIABLE ( P* SYNTAX: CALL CLEARB,ITEM,INDEX P* PCLEARB EQU * $ P LDKL A10,1 INDI
0x3269e8…326b7c Dummy {f00=0x00ff, f01=0x0190, f02=»M,INDEX t & P* OUTPUT: CR = 0 (BIT IS FALSE) & P* CR = 1 (BIT IS TRUE) : P* d PTESTB EQU * n $ P LDKL A10,-1 INDICATE 'TEST BIT' P RB SETB10 CONTINUE P EJECT * P* GET VOLUME NAME TO A STRING VARIABEL 4 P* SYN
0x326b7c…326d10 Dummy {f00=0x00ff, f01=0x0190, f02=» GET DSET-ADDRESS P CALL I:EVA0 $ P ST A9,2,A8 STORE BUFFER ADDRESS . & P CALL I:EVA0 GET ADDRESS TO VOLNAM V P LDR A10,A9 SAVE ADDRESS . P CALL I:EVA0 GET RETURN CODE ITEM ADDRESS P LDK A7,/B7 LOAD P LKM P DATA 1 P L
0x326d10…326ea4 Dummy {f00=0x00ff, f01=0x0190, f02=» SECTOR 0 ~ P LDK A7,/81 BASIC READ P LKM 0 P DATA 1 < P LD A1,8,A8 GET RETURN CODE L P RF(NZ) ERROR p & P LD A1,2,A8 GET ADDRESS TO VOLNAM P ADK A1,2 P LDK A2,6 LOAD COUNTER PLOOP EQU * " P LCR A3,A1 GET NAME-CH
0x326ea4…327038 Dummy {f00=0x00ff, f01=0x0190, f02=»2,1 DECREMENT COUNTER ( P RB(P) LOOP CONTINUE IF NOT FINISHED P LDR A6,A6 J P RF(NZ) UT IF STATUS OK P LDK A7,/B8 UNLOAD | P LKM P DATA 1 PUT EQU * P LDK A6,0 PVIN EQU * P STR A6,A9 STORE RETURN-CODE
0x327038…3271cc Dummy {f00=0x00ff, f01=0x0190, f02=»DR A7,A9 COPY ADDRESS " CALL I:EVA0 ADDRESS TO RPOOL LC A8,15,A9 D ECR A8,A8 X $ LC A8,16,A9 GET OCCUPIED BYTES j ADR A8,A7 GET END ADDRESS P SUKL A8,10 " LDR A2,A7 SAVE START ADDRESS $ ADK A7,2 ADDRESS TO FIRST
0x3271cc…327360 Dummy {f00=0x00ff, f01=0x0190, f02=»ESPONDING BOOLEAN AND BIN ITEMS : P* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL ( 6 P* BUFF+DISPL= START ADDRESS IN STRING ITEM f > P* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS , P* MINL= BIN FOR MIN LENGT
0x327360…3274f4 (3, 198) Dummy {f00=0x0100, f01=0x0190, f02=»NTRL CALL I:EVA0 BUFFER ADDRESS P LDR A8,A9 ( & P CALL I:EVA0 DISPLACEMENT ADDRESS : " P ADR* A8,A9 GET START POINTER d P CALL I:EVA0 P LDR A7,A9 " P SUK A7,2 ADDRESS TO BOOLEANS P CALL I:EVA0 MINL ADDRESS P LDR A6,A9
0x3274f4…327688 Dummy {f00=0x0100, f01=0x0190, f02=»OLEANS ~ P SC A1,2,A8 STORE IN BUFFER " P SRL A1,8 SHIFT OUT 8 BOOLEANS 2 P SLL A1,7 X P ADR* A1,A9 GET NEOI + MAXL j P SC A1,1,A8 STORE IN BUFFER P SRL A1,2 SHIFT IN ME + TYPE P ANK A1,/C0 P ADR* A1,A6 GET MINL P S
0x327688…32781c Dummy {f00=0x0100, f01=0x0190, f02=» P ANK A2,/7F MASK OUT MAXL P STR A2,A9 STORE MAXL * P LCR A2,A8 H P ANK A2,/3F MASK OUT MINL Z P STR A2,A6 STORE MINL | $ P SRL A1,7 NEOI TO RIGHTMOST POS. P ANK A1,1 MASK OUT NEOI $ P LCR A2,A8 GET ME + TYPE + MINL
0x32781c…3279b0 Dummy {f00=0x0100, f01=0x0190, f02=»RE BOOLEANS P RB RET ! P EJECT ! $ P* ! 2 0 P* WRITE CONTROLS FROM BOOLEANS AND BINS TO ! < P* STRING ITEM ! p : P* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL ! 2 P* BUFF+DISPL= START POINT FOR WRITINGM ! B P*
0x3279b0…327b44 Dummy {f00=0x0100, f01=0x018e, f02=»AX LENGTH ! r P* " PWCNTRL EQU * " ( P LDR A10,A14 INDICATE WRITE CONTROLS " 0 P RB CONTRL " P EJECT " n P* " | . P* MASK OUT WANTED BITS ACCORDING TO MASK " & P* SYNTAX: CALL MSKOUT,MASK,BIN " 6 P* MASK= BIN ITEM HOLDING THE MASK; W
0x327b44…327cd8 Dummy {f00=0x0100, f01=0x018e, f02=» " PMSKOUT EQU * # P CALL I:EVA0 ADDRESS TO MASK # P LDR A6,A9 # @ P CALL I:EVA0 ADDRESS TO BIN # R $ P LDR* A1,A9 GET CONTENTS OF BIN # v * P ANRS A1,A6 LOGICAL AND WITH MASK AND # P STORE RESULT IN MASK # P RB RET # P* # P E
0x327cd8…327e6c Dummy {f00=0x0100, f01=0x0190, f02=» # f P* $ PATTBUF EQU * $ P CALL T:FDSP DSET-ADDRESS $ & P LDKL A1,/4000 $ H $ P ORRS A1,A8 INDICATE FIX BUFFER $ ^ $ P CALL I:EVA0 GET BUFFER ADDRESS $ $ P ST A9,2,A8 STORE BUFFER ADDRESS $ P SUR A5,A9 CALCULATE LENGTH $ P ST A5,14,A8 S
0x327e6c…328000 Dummy {f00=0x0100, f01=0x0190, f02=»OST DIGIT IS EQUAL TO /A $ | 0 P* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' % P* % T , P* SYNTAX: CALL FORCED,ITEM % ^ 2 P* OUTPUT: CR = 0 NOT FORCED % . P* CR = 1 FORCED % P* % PFORCED E
0x328000…328194 (3, 199) Dummy {f00=0x0100, f01=0x0190, f02=»A3,-1,A5 % " P ANK A3,/F GET RIGHTMOST DIGIT & P SUK A3,/A & 6 PFOR100 EQU * & H P RF(Z) NOTFND JUMP IF FORCED & P RF UT150 NOT FORCED & PALPHA EQU * & & P LCR A3,A9 GET LEFTMOST CHARACTER & P SUK A3,'?' & P RB FOR100 & P EJECT &
0x328194…328328 Dummy {f00=0x0100, f01=0x0190, f02=»OOL(W1)) & p , P* PLEN = POOL UNIT LENGT (BIN) ' 4 P* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN) ' @ > P* START = POINTER TO STRING WIN CURRENT POOL UNIT ' x . P* LEN = LENGTh OF FOUND STRING ' , P* CR = 0 IF STRI
0x328328…3284bc Dummy {f00=0x0100, f01=0x0190, f02=»ALIDATION ' n PVAL100 EQU * ( P LDR A10,A12 SAVE PP ( & P LD* A11,-8,A13 ( B P ADR A11,A13 GET FCB-ADDRESS ( Z $ P LDR* A6,A11 GET ADDRESS TO ITEM ( ~ . P ADKL A6,P:BAS+2 GET START SEARCH ADDRESS ( PVAL150 EQU * ( P LCR A1,A6 GET FORMAT CODE (
0x3284bc…328650 Dummy {f00=0x0100, f01=0x0190, f02=»0 ( P CWK A1,FGEN ) P RF(E) VAL300 ) P CWK A1,FDUP ) 4 P RF(E) VAL300 ) H P SUK A1,FLINK ) ^ P RF(NZ) VAL200 IF NOT FLINK ) t P* FLINK ) ( P LDR A12,A6 UPDATE PP TO FLINK-ITEM ) * P CALL I:EVA0 ADDRESS TO NEXT POOL UNIT ) P LDR A
0x328650…3287e4 Dummy {f00=0x0100, f01=0x0190, f02=» EQU * ) P LDK A6,0 INDICATE NOT FOUND * P RF OUT * 2 P* FVAL,FACC OR FGEN * B PVAL300 EQU * * ^ P CWR A1,A7 * r P RF(E) OUT JUMP IF FOUND * P LCR A1,A6 GET COUNTER * $ P ADR A6,A1 UPDATE FORMAT POINTER * P ADK A6,1 * P RB VAL150 C
0x3287e4…328978 Dummy {f00=0x0100, f01=0x0190, f02=» GET LENGTH * P LDR A11,A5 SAVE POOL LENGTH + $ P CALL I:EVA0 ADDRESS TO BUFFIND + 8 P LDR A7,A9 SAVE ADDRESS + ` * P CALL I:EVA0 ADDRESS TO START POINTER + P LDR A8,A9 SAVE ADDRESS + " P CALL I:EVA0 ADDRESS TO LENGTh + P LDR A6,A6 + P R
0x328978…328b0c Dummy {f00=0x0100, f01=0x0190, f02=» A6,A10 GET RELATIVE LENGT + P LDK A1,0 , " PUT100 EQU * , 4 P ADK A1,1 , H " P SUR A6,A11 SUB WIF POOL-LENGF , Z & P RB(P) UT100 CONTINUE IF POSITIVE , * P ADR A6,A11 RESTORE RELATIVE POSITION , ( P STR A1,A7 STORE BUFFER UNIT NUMBER , " P STR
0x328b0c…328ca0 Dummy {f00=0x0100, f01=0x0190, f02=»B40 STORE CR AND RETURN , PGREAT EQU * - PNOTFND EQU * - 4 P LDK A1,1 INDICATE CR = 1 - H " P RB UT200 STORE CR AND RETURN - j PLESS EQU * - P LDK A1,2 - P RB UT200 - P EJECT - P* - P* GET ACCUMULATION STRING - P* SEE U
0x328ca0…328e34 (3, 200) Dummy {f00=0x0100, f01=0x0190, f02=» P* . P* . P* GET GENERATION STRING . P* SEE UNDER GETVAL ABOVE . 8 P* . Z PGETGEN EQU * . d , P LDK A7,FGEN INDICATE GENERATION STRING . x P RB VAL100 START TO SEARC . P* . P . P* GET DUPLICATION STRING . P* SEE UND
0x328e34…328fc8 Dummy {f00=0x0100, f01=0x0190, f02=»MENSION OF INDEXED VARIABLE AND LENGTH . P* / . > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION / 8 P* / z : P* ITEM(W1) = CURRENT ITEM / F P* LENGTH = BIN HOLDING ITEM LENGTH /
0x328fc8…32915c Dummy {f00=0x0100, f01=0x018e, f02=»S) / T P* 0 PGETIND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 0 ( 4 P LD A10,I:EVA0-2 READ DIMENSION STORED BYE I:EVA 0 L P LDR A7,A5 COPY END ADDRESS 0 $ P SUR A7,A9 CALCULATE ITEM LENGTH 0 ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM 0 P STR A7,A9 S
0x32915c…3292f0 Dummy {f00=0x0100, f01=0x018e, f02=» 0 P EJECT 1 P* 1 > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM 1 P* 1 b : P* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) 1 l P* 1 B P* OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM 1 B P*
0x3292f0…329484 Dummy {f00=0x0100, f01=0x4124, f02=» P 2 PCMPIND EQU * 2 & P CALL I:EVA0 GET ADDRESS TO INDEX 2 P LDR* A6,A9 SAVE INDEX VALUE 2 J 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 2 n * P CW A6,I:EVA0-2 COMPARE WITH DIMENSION 2 P RB(E) EQUAL 2 P RB(G) GREAT 2 P RB LESS 2
0x329484…329618 Dummy {f00=0x0100, f01=0x2008, f02=» 3 PCMPIND EQU * 2 & P CALL I:EVA0 GET ADDRESS TO INDEX 2 P LDR* A6,A9 SAVE INDEX VALUE 2 J 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 2 n * P CW A6,I:EVA0-2 COMPARE WITH DIMENSION 2 P RB(E) EQUAL 2 P RB(G) GREAT 2 P RB LESS 2
0x329618…3297ac Dummy {f00=0x0100, f01=0x0190, f02=» p * P CBE STR1A,=C'3',AOK USERDEFINED-FILE P B A6E 6 PA21 D ( P CBE PRNUM,=D'3',AOK IF DELETE FILE P P CBE VOLNAM,SYSVOL,AOK | ( P B A11E 'VOL-NAME MUST BE "SYSVOL"' P EJECT $ P******************************** " P* NO. OF RE
0x3297ac…329940 Dummy {f00=0x0100, f01=0x0190, f02=»LUE FOR BIN-FIELD p P MOVE BIN1,BCD13A P CBE BIN1,W0,A32 4 P CBL BIN1,W20,A6E L PA32 f P MOVE BIN2,FRESEC r P MUL BIN2,W2 P CBE BIN1,W0,A34 P CBG BIN1,BIN2,A6E P B AOK PA34 P MOVE NOREC,BIN2 P MOV
0x329940…329ad4 (3, 201) Opaque[0x194]
0x329ad4…329c68 # DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2018, f03=0x0000}
0x329ad4…329c68 IdxSect {
0x329ad4…329c68 f00 = 0x0100 // 0x329ad4 @0x0
0x329ad4…329c68 f01 = 0x0004 // 0x329ad6 @0x2
0x329ad4…329c68 gno = [ // 0x329ad8 @0x4
0x329ad4…329c68 [0x00]: C0x0100.0x3.0
0x329ad4…329c68 [0x01]: C0x0101.0x0.0
0x329ad4…329c68 ]
0x329ad4…329c68 }
0x329c68…329dfc Dummy {f00=0x0100, f01=0x0190, f02=» $ P IDENT DEDISC UPD 80-02-11/CHST P* , P* 6 L P************************************************************************ @ P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P* D E
0x329dfc…329f90 Dummy {f00=0x0100, f01=0x0190, f02=» P DDUM DDINIT P PDIV P ENTRY DEDISC & P ENTRY COND < P ENTRY RELEAS P P ENTRY SCHPOO f P ENTRY RETURN | P ENTRY WAIT P ENTRY STRT01 P* P EXT DEPOOL P EXT WRFSP P EXT CHANFC P EXT CLS
0x329f90…32a124 Dummy {f00=0x0100, f01=0x0190, f02=» WRIACC P EXT WRTCO P EXT GETTBL " P EXT DELBTC 6 P EXT RECURR J P EXT ENTJOB ^ P EXT GETJOB r P EXT SCHJOB P EXT DELJOB P EXT ENTFMT P EXT DELFMT P EXT GETSYS P EXT ENTSYS P EXT NEXJO
0x32a124…32a2b8 Dummy {f00=0x0100, f01=0x0190, f02=»PNNBC P EXT NXJOB P EXT NXBTH P* 2 P* < PATTACH EQU X'0E' F PDETACH EQU X'0F' ^ P EJECT v PDEDISC PROC FC P* * P* BRANCH TO PROGRAM INDICATED BY FC P* P PBIN FC P CLEAR SWIT01 P CLEAR
0x32a2b8…32a44c Dummy {f00=0x0100, f01=0x0190, f02=»NW4,W0 PSTRT01 P IB FC C0000000000000 P ENTJOB ENTER JOBDEF C : P GETJOB GET JOBDEF C Z P DUMMY C x P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C P OPNNBC OPEN NEW BATCH C " P OPNEBC OPEN EXISTING BATCH
0x32a44c…32a5e0 Dummy {f00=0x0100, f01=0x0190, f02=»FORMAT C P DELFMT DELETE FORMAT C ( P WRICUR WRITE CURRENT DATA-SECTOR C 0 $ P GTNEXT GET NEXT DATA-SECTOR C ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C ( P WRIACC WRITE ACCUMULATOR-RECORD C $ P
0x32a5e0…32a774 (3, 202) Dummy {f00=0x0101, f01=0x0190, f02=» JOBNAME C | " P WRTCO WRITE SECTOR (CORR) C P GETTBL GET TABLE C 8 P DELTBL DELETE TABLE C T P ENTTBL ENTER TABLE C t P DELBTC DELETE BATCH C " P DUMMY GET NO OF FREESPACES C & P NEXJOB GET NEXT JOBDEFINITION C " P PREJ
0x32a774…32a908 Dummy {f00=0x0101, f01=0x0190, f02=» P NXBTH GET NEXT BATCHNAME C P DUMMY GET PREV BATCHNAME ( P EJECT J P* X PDUMMY b PRETURN p P TBF SWITFS,RETUNF ~ P PERF WRFSP,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 P TBF SW95PR,RETUN9
0x32a908…32aa9c Dummy {f00=0x0101, f01=0x0190, f02=»NDITION-REGISTER P* PCOND PROC " P CBL DEBINW4,W0,CON1 4 P CBE DEBINW4,W0,CON0 P P CMP W1,W2 l P RET ~ PCON1 P CMP W2,W1 P RET PCON0 P CMP W1,W1 P RET P PEND P* P* PWAIT PRO
0x32aa9c…32ac30 Dummy {f00=0x0101, f01=0x0190, f02=»,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 P BNERR WARE2 2 P MOVE DEBINW4,W3 F PWARE ^ P PERF COND j P RET | PWARE2 P SET SWITWT P SWITCH P B WARE P* P* P PEND $ PRELEAS PROC SUBROUTINE REL
0x32ac30…32adc4 Dummy {f00=0x0101, f01=0x4162, f02=» PRELRET P RET P PEND P* , P* 6 ( P* SUBROUTINE SCHPOO, SEARCH POOL @ P* l PSCHPOO PROC IND,STRG,WX v P PLIT IND P PSTRG STRG P PBIN WX P MOVE STRG10A,IND P COPY STRG10A,W1,W6,STRG,W0 *
0x32adc4…32af58 Dummy {f00=0x0101, 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 * *
0x32af58…32b0ec Dummy {f00=0x0101, f01=0x0190, f02=» ? P P P( QPjB&!P!0 P0 CH ( 0 ""0 !!!ZD !ZE (HI ? ? ? ( E ? P P"X P( RPjB'!P!0 P0 CH 40 $$0 ""_N W W$ $ = ! X 0 "#? ? X X ? ^" ^"2 ? &8 ! b ! _ "P$ P!W P# P<4 !4 "4 #4 $4 4 8
0x32b0ec…32b280 Dummy {f00=0x0101, f01=0x0190, f02=» ( 0 !!_32 #@ 4 0 : , "? o2 B0 3 2 !W 0 ( _ "0 0 2 ! W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0!X Z [ 7 HH:HH:6:::6:6?! We !0" ?! #0# X
0x32b280…32b414 (3, 203) Opaque[0x194]
0x32b414…32b5a8 # DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2028, f03=0x0000}
0x32b414…32b5a8 IdxSect {
0x32b414…32b5a8 f00 = 0x0101 // 0x32b414 @0x0
0x32b414…32b5a8 f01 = 0x000a // 0x32b416 @0x2
0x32b414…32b5a8 gno = [ // 0x32b418 @0x4
0x32b414…32b5a8 [0x00]: C0x0101.0x1.0
0x32b414…32b5a8 [0x01]: C0x0101.0x2.0
0x32b414…32b5a8 [0x02]: C0x0101.0x3.0
0x32b414…32b5a8 [0x03]: C0x0102.0x0.0
0x32b414…32b5a8 [0x04]: C0x0102.0x1.0
0x32b414…32b5a8 ]
0x32b414…32b5a8 }
0x32b5a8…32b73c Dummy {f00=0x0101, f01=0x0190, f02=» $ P IDENT DKRUT1 UPD 80 01 18/CHST * , > :********************************************************** 6 * x 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS
0x32b73c…32b8d0 Dummy {f00=0x0101, f01=0x018e, f02=»ISC IN SPECIFIED UNIT x & P* 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE H * v @ ;*********************************************************** P DDUM DDINIT P PDIV P EXT WAIT P EXT RELEAS
0x32b8d0…32ba64 Dummy {f00=0x0101, f01=0x0190, f02=» P EXT ATTWB P EXT RESTOR P EXT COND . P EXT READDK @ P EXT WRITDK T P ENTRY RDDS h P ENTRY WRDS | P ENTRY DISU P ENTRY WRFSP P ENTRY REFSP P ENTRY WRIACC P ENTRY WRICUR P ENTRY FREESP
0x32ba64…32bbf8 Dummy {f00=0x0101, f01=0x018e, f02=»CC P ENTRY OFRSP P ENTRY GTNEXT P ENTRY GTPREV 4 P ENTRY DLCURR J P ENTRY DLRCCH ` EJECT v PDISU PROC FUZ,RECNO,BUF P PBIN FUZ P PBIN RECNO P PSTRG BUF P IB FUZ C P READSY C P WRIT
0x32bbf8…32bd8c Dummy {f00=0x0101, f01=0x0190, f02=» PERF DKER P TBT NEWVOL,READSY PREADSY01 4 P PERF COND D RET V PWRITSY b 4 P CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO p P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01 P PERF COND
0x32bd8c…32bf20 Dummy {f00=0x0101, f01=0x0190, f02=» NEWVOL,READUS PREADUS01 P PERF COND & RET 8 PWRITUS D : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO R P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND RET PEND
0x32bf20…32c0b4 (3, 204) Dummy {f00=0x0101, f01=0x0190, f02=»SC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' v L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A 6 & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P PBIN RNR 8 P CALL READDK,DISK,FILECODE(FILINDUS),R
0x32c0b4…32c248 Dummy {f00=0x0101, f01=0x018e, f02=»LECODE(FILINDUS),RBUF,USELEN,RNR | P PERF COND ( P RET : P PEND F EJECT T @ <************************************************************ b * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DISK-ERROR *
0x32c248…32c3dc Dummy {f00=0x0101, f01=0x0190, f02=» * DKER PROC P CLEAR NEWVOL P XSTAT DISK,DKBIN1 6 P MOVE BCD13A,DKBIN1 P P MOVE DKBIN2,=X'8022' l P CALL MASK,DKBIN1,DKBIN2 P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10 P MOVE DKBIN2,=
0x32c3dc…32c570 Dummy {f00=0x0101, f01=0x0190, f02=»N2,W128 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER30 0 " P SET NEWVOL NEW VOLUME LOADED B P RET h PDKER30 t P MOVE DKBIN2,W1 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE PDKER40 P
0x32c570…32c704 Dummy {f00=0x0101, f01=0x0190, f02=»DEXPO(MAX) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 > P MOVE DKBIN1,FFSNR(MAX) l 8 P CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1 P BNERR WRFRET P PERF DKER PWRFRET P PERF COND
0x32c704…32c898 Dummy {f00=0x0101, f01=0x0190, f02=»DK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR P BNERR REFCOP 2 P PERF DKER H P TBT NEWVOL,REFS01 Z PREFCOP t P MOVE DKBIN1,FINDEXPO(FIND) P MOVE FFSNR(FIND),FSRNR ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P COPY BPOOL(DKBIN1),W0
0x32c898…32ca2c Dummy {f00=0x0101, f01=0x018e, f02=»WIT04,US01 P PERF DISU,W1,BIN,BUF P B DRET 0 PUS01 @ P PERF DISU,W3,BIN,BUF L PDRET j P RET v P PEND PWR PROC BIN,BUF P TBT SWIT04,US02 P PERF DISU,W2,BIN,BUF P B DRET PUS02 P PERF DISU,W4,
0x32ca2c…32cbc0 Dummy {f00=0x0101, f01=0x0190, f02=» PRDACC PROC P PERF WAIT P PERF DISU,W3,DEBIN1,SYSBUF ( P BERR RDARET L * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 ` ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 PRDARET P PERF COND P RET P PEND P* . P* SUBRO
0x32cbc0…32cd54 (3, 205) Dummy {f00=0x0101, f01=0x0190, f02=»188,BPOOL(PINACC),W0 ~ ( P XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 P PERF DISU,W4,DEBIN1,SYSBUF H P PERF COND l P RET ~ P PEND P* P EJECT P* P* PDUMPROC PROC FC PWRICUR P PERF FREESP,DEBIN1,FILINDUS
0x32cd54…32cee8 Dummy {f00=0x0101, f01=0x0190, f02=»2A,W0 | P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 2 PWRIT05 V & P PERF WRDS,CURSEC WRITE RECORDAREA d P BNERR WRIT02 P* P* WRITING - ERROR P* 0 P PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP 4 P
0x32cee8…32d07c Dummy {f00=0x0101, f01=0x0190, f02=»,ENDERR FIRST RECORD? * P PERF RDDS,DEBIN3 READ PREV RECORD(S) P BERR ENDERR L $ P SET CONTINUATION IN PREV SCTR ` P XCOPY RBUF,W4,W2,CURSEC,W0 * P PERF WRDS,DEBIN3 WRITE PREV RECORD(S) P BNERR WRIT05 P GET LINK PREV OF PREV
0x32d07c…32d210 Dummy {f00=0x0101, f01=0x018e, f02=»ERR ENDERR " P PREV OF PREV = END OF CHAIN P XCOPY RBUF,W4,W2,W0,W0 8 ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV X PENDERR * P MOVE DEBINW4,W21 INDICATE DISC-ERROR P B WRIT07 P* P* OKAY P* PWRIT02 P
0x32d210…32d3a4 Dummy {f00=0x0101, f01=0x0190, f02=» x P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO ( P TBF SWIT01,WRIT07 V . P MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' p PWRIT07 P B RETURN P* P* P* P* PWRIACC P PERF WRACC
0x32d3a4…32d538 Dummy {f00=0x0101, f01=0x0190, f02=» B RETURN P* P* P* & PCLSBTH CLOSE BATCH 0 P MOVE DEBIN1,W0 L P B WRIT01 d P* v P* P* PRECURR " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA P MOVE DEBINW4,W0 PBRET
0x32d538…32d6cc Dummy {f00=0x0101, f01=0x0190, f02=»IN1 READ SECTOR(S) P BERR RETURN & P CBE FC,W16,GT003 JUMP IF GETPREV . P GET LINK PREV FOR CONTROL X P XCOPY DEBIN2,W0,W2,RBUF,W2 | P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P IF NOT OK, ZEROISE LINK TO $ P NEX
0x32d6cc…32d860 Dummy {f00=0x0101, f01=0x018e, f02=»URN PGT003 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER P B RETURN J P* P* f P* p PGTPREV z P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCURR P SET SWIT04 P PERF DLRCCH
0x32d860…32d9f4 (3, 206) Dummy {f00=0x0102, f01=0x018e, f02=» B P* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE P* J P* T PFREESP PROC RECN,INDEX ^ P MOVE DEBINW4,W0 | P CLEAR SWIT06 P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) 2 P CALL GETFRE,BPOOL(DKB
0x32d9f4…32db88 Dummy {f00=0x0102, f01=0x0190, f02=» P SET SW95PR P B FND PNOFN & * P XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 2 P CBE DKBIN3,W0,EOFCHN ` PFSP02 ~ P PERF SAVESB P PERF WRFSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX P BERR RESSY P PERF
0x32db88…32dd1c Dummy {f00=0x0102, f01=0x0190, f02=» P MOVE DKBIN3,W2 P B FSP02 PNOFSP , P MOVE DEBINW4,W10 : PFND T P CBG INDEX,W1,NEFE ` P SET SWITFS z PNEFE P PERF COND P RET P PEND P* P* 4 P* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED
0x32dd1c…32deb0 Dummy {f00=0x0102, f01=0x0190, f02=»-REC WITH RECNO IN IT p 2 P CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO P ADD FNOOFREC(INDEX),W1 T & P CBNE INDEX,W1,RFRSP1 JUMP IF NOT t P SET SWITFS SYSTEMFILE PRFRSP1 P PERF COND P RET P PEND P* P* SUBR
0x32deb0…32e044 Dummy {f00=0x0102, f01=0x0190, f02=» GFRSPR,RECNO,INDEX ~ 2 P* INDEX = INDEX TO CURRENT FILE P* T PGFRSPR PROC RECNO,INDEX ^ PANFANG ~ P MOVE DKBIN1,W1 P CBE INDEX,W1,SYSFLE P MOVE DKBIN1,USELEN * P DIV DKBIN1,SECLEN GET NO OF SCTRS/REC
0x32e044…32e1d8 Dummy {f00=0x0102, f01=0x0190, f02=»UB DKBIN2,W12 P MUL DKBIN2,W8 P DIV DKBIN2,DKBIN1 , . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS F < P XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR x . P MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR . P ADD DKBIN1,DKBIN2 GET LAST IN
0x32e1d8…32e36c Dummy {f00=0x0102, f01=0x018e, f02=»O(INDEX) | P RET " PNEXT GET NEXT FREESP-RECORD P MOVE DKBIN1,W13 B PREAD Z 6 P XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK f P CBE DEBIN4,W0,GFRET P PERF SAVESB P PERF WRFSP,INDEX P BERR GFREST P PERF REFS
0x32e36c…32e500 Dummy {f00=0x0102, f01=0x018e, f02=» P MOVE DKBIN1,W11 P B READ P PEND 0 P* > P* H P* SUBROUTINE OFRSP R 0 P* SET RECORD ACCORDING TO RECNO OCCUPIED p P* POFRSP PROC RECNO,INDEX P PERF GFRSPR,RECNO,INDEX 2 P CALL SETOCC,BPOOL(DEBIN4),R
0x32e500…32e694 (3, 207) Dummy {f00=0x0102, f01=0x0190, f02=» x PSAVPOO P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 . * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A F P BNERR SAVOK t P SWITCH P B SAVPOO PSAVOK P MOVE WORK(W2),DKBIN1 ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P COPY
0x32e694…32e828 Dummy {f00=0x0102, f01=0x0190, f02=» SYSBUF FROM POOL | P MOVE DKBIN1,WORK(W2) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 8 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 d * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A P RET P PEND P EJECT P* H P* SUBROUTINE DLRCCH,
0x32e828…32e9bc Dummy {f00=0x0102, f01=0x0190, f02=»EBIN2,W0,W2,BUF,W2 P XCOPY DEBIN1,W0,W2,BUF,W4 P CBNE DEBIN1,W0,DL001 < P SET BOOL9 Z P B RREPRE l PDL001 ~ P PERF RD,DEBIN1,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEBIN2,W0 P CBNE DE
0x32e9bc…32eb50 Dummy {f00=0x0102, f01=0x0190, f02=» CHAIN n ( P PERF RD,DEBIN2,BUF READ NEXT RECORD ! P BERR DLRET ! : 0 P XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD ! N 0 P PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK ! PDL003 ! P MOVE DEBIN5,DEBIN1 ! P B DL006 ! PDL004 ! P PERF WR,D
0x32eb50…32ece4 Dummy {f00=0x0102, f01=0x0190, f02=»008 ! P PERF RD,DEBIN2,BUF " P BERR DLRET " ( P XCOPY DEBIN5,W0,W2,BUF,W4 " < P XCOPY BUF,W4,W2,DEBIN1,W0 " ^ P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBIN1,W1 "
0x32ece4…32ee78 Dummy {f00=0x0102, f01=0x4010, f02=» END " @ # F RD,DEBIN2,BUF " P BERR DLRET " ( P XCOPY DEBIN5,W0,W2,BUF,W4 " < P XCOPY BUF,W4,W2,DEBIN1,W0 " ^ P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBIN1,W1 "
0x32ee78…32f00c Dummy {f00=0x0102, 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
0x32f00c…32f1a0 Dummy {f00=0x0102, f01=0x0190, f02=» NEWVOL,READUS PREADUS01 P PERF COND & RET 8 PWRITUS D : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO R P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND RET PEND
0x32f1a0…32f334 (3, 208) Opaque[0x194]
0x32f334…32f4c8 # DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x32f334…32f4c8 IdxSect {
0x32f334…32f4c8 f00 = 0x0102 // 0x32f334 @0x0
0x32f334…32f4c8 f01 = 0x000a // 0x32f336 @0x2
0x32f334…32f4c8 gno = [ // 0x32f338 @0x4
0x32f334…32f4c8 [0x00]: C0x0102.0x2.0
0x32f334…32f4c8 [0x01]: C0x0102.0x3.0
0x32f334…32f4c8 [0x02]: C0x0103.0x0.0
0x32f334…32f4c8 [0x03]: C0x0103.0x1.0
0x32f334…32f4c8 [0x04]: C0x0103.0x2.0
0x32f334…32f4c8 ]
0x32f334…32f4c8 }
0x32f4c8…32f65c Dummy {f00=0x0102, f01=0x0190, f02=» $ P IDENT DKRUT2 UPD 80-01-21/CHST > :********************************************************** , * n * x @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS * FOLLOWS: * 0 = NO ERROR 0 +*
0x32f65c…32f7f0 Dummy {f00=0x0102, f01=0x0190, f02=» * P* 23 = DISC NOT OPERABLE * 2 @ ;*********************************************************** < P DDUM DDINIT P PDIV P EXT WAIT ENTRY ENTFMT ENTRY DELFMT ENTRY PREFMT ENTRY NEXFMT
0x32f7f0…32f984 Dummy {f00=0x0102, f01=0x0190, f02=» P EXT RD P EXT REFSP P EXT EMPTYT & P EXT WRFSP : P EXT NOFFRE L P EXT COND ` P EXT ALGO r P EXT RETURN P EXT EMPTYT P EXT DEPOOL P EXT GETIND P EXT DEDISC P EXT CMPIND P EXT OPENF
0x32f984…32fb18 Dummy {f00=0x0102, f01=0x0190, f02=» P IB FUCO C P OPENSY C P CLOSSY C 0 P OPENUS C D P CLOSUS X POPENSY h P TBF BOOLA1,GOON v P SWITCH P B OPENSY PGOON P SET SWITSY P BNZ OPENSY04 P SET BOOLA1 P CLEAR SWIT04
0x32fb18…32fcac Dummy {f00=0x0102, f01=0x0190, f02=»OVE STRG10A,=C'SYSFIL ' P MOVE JOBNAME,FVOLNAME(W1) 8 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,STRG10A,JOBNAME B P BOK OPENSY02 ~ POPENSY06 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 P CLEAR SWITSY P MOVE DEBINW4,W20 P SUB
0x32fcac…32fe40 Dummy {f00=0x0102, f01=0x0190, f02=»CMPIND,DKBIN1,BPOOL(W1) P BNOK DES2 OUT OF RANGE P MOVE RPOOL(DKBIN1),=X'5800' @ P ADD DKBIN1,W1 d P B DES1 z PDES2 P PERF NOFFRE,DEBIN1,W1 P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF & P XCOPY F95PROC(W1)
0x32fe40…32ffd4 (3, 209) Dummy {f00=0x0102, f01=0x0190, f02=»KBIN2,STRG10A x P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 , P PERF REFSP,W2,W1 N P BNOK OPENSY06 h POPENSY07 ~ P READ SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 P CLEAR BOOLA1 P PERF COND SET CONDITION-REG
0x32ffd4…330168 Dummy {f00=0x0102, f01=0x0190, f02=»SSY02 x P PERF WRFSP,W1 P BNOK CLOSSY01 $ P PERF DISU,W1,W1,SYSBUF : P BNOK CLOSSY01 Z P PERF DISU,W2,W1,SYSBUF p PCLOSSY01 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 PCLOSSY02 P PERF COND RET POPENUS
0x330168…3302fc Dummy {f00=0x0102, f01=0x0190, f02=»F SETUSE P BERR OPENUS03 P B OPENUS01 & PGOONN : P SET SWITUS H P BNZ OPENUS0C P SET BOOLA2 r P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E P MOVE STRG10A,=C'PTS-DE '
0x3302fc…330490 Dummy {f00=0x0102, f01=0x0190, f02=»RE,DEBIN1,FILINDUS P BOK OPENUS0D P SET SWIT01 0 POPENUS0D D $ P MOVE FNOOFREC(FILINDUS),DEBIN1 T P PERF DISU,W3,W1,RBUF | P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5 P GET FILESTATUS P
0x330490…330624 Dummy {f00=0x0102, f01=0x0190, f02=»IN1,W0,USCLS P SET SWIT01 PUSCLS ( P XCOPY RBUF,W0,W1,W7,W1 6 P PERF DISU,W4,W1,RBUF V P BOK OPENUS0B t P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DKBIN3,W1 P MOVE DKBIN2,W1 * P
0x330624…3307b8 Dummy {f00=0x0102, f01=0x0190, f02=» P PERF RELEAS P BOK OPENUS01 $ P MOVE DKBIN1,FINDEXPO(FILINDUS) . * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A V OPENUS02 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 P MOVE DEBINW4,W21 POPENUS03 P CLEAR SWITUS
0x3307b8…33094c Dummy {f00=0x0102, f01=0x0190, f02=» P CLEAR BOOLA2 P PERF COND RET 0 PCLOSUS < P TBF SWITUS,CLOSUS01 J P CLEAR SWITUS f P SUB FCOUNTER(FILINDUS),W1 | P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK CLOSUS02 $ P MOVE DKBIN1,FIN
0x33094c…330ae0 Dummy {f00=0x0102, f01=0x0190, f02=»,W1,W0,W1 P PERF DISU,W4,W1,RBUF P BNOK CLOSUS02 0 PCLOSUS02 F 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 V CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLEN,W0,W2,RBUF,W9 P CBNE SE
0x330ae0…330c74 (3, 210) Dummy {f00=0x0103, f01=0x0190, f02=»DKBIN1,W1 PSETNOZ P MUL DKBIN1,SECLEN $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 : P CBNG DKBIN1,DKBIN2,SETOKA b P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1 P SUB DKBIN1,W15 P MOV
0x330c74…330e08 Dummy {f00=0x0103, f01=0x018e, f02=» ENTER FORMAT P PERF WAIT P BERR RETURN * P MOVE STR6A,FORMAT > P PERF FREESP,DEBIN1,W1 X P BERR RETURN v P MOVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN P MOVE DEBIN5,W4 PRDCHAIN P MOVE DEBIN3,DEBIN5
0x330e08…330f9c Dummy {f00=0x0103, f01=0x0190, f02=» : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 : P CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? F PADDENTRY , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME B P XCOPY STRG10A,W8,W2,WORK(
0x330f9c…331130 Dummy {f00=0x0103, f01=0x0190, f02=»PY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF 4 P B RETURN X PFFIRST j P MOVE DEBIN3,W0 x P MOVE DEBINW4,W0 P B FFST01 PRENEXT 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT P CBNE DEBI
0x331130…3312c4 Dummy {f00=0x0103, f01=0x0190, f02=»F v PFFST01 P MOVE DEBIN4,W10 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION 0 2 P XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV h . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY PWRTFMT P MOVE DEBIN3,PINDFR
0x3312c4…331458 Dummy {f00=0x0103, f01=0x0190, f02=»K NEXT BUF d * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 ( P CBE DEBIN2,W0,NOMOREC LAST RECORD? @ P PERF FREESP,DEBIN4,W1 l P BNERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK(W9),DEBINW4 SAVE ERROR CODE 8
0x331458…3315ec Dummy {f00=0x0103, f01=0x018e, f02=»,W0 SET LINK NEXT REC v * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 P PERF DISU,W2,DEBIN1,SYSBUF L P BERR RETURN p P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,=X'4600' " P XCOPY SYSBUF,W0,W
0x3315ec…331780 Dummy {f00=0x0103, f01=0x0190, f02=» P* P* P* P* " P* , PNEXFMT GET NEXT FORMAT 6 P SET SWIT03 V P* j P* t PPREFMT ~ P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 P TBT
0x331780…331914 (3, 211) Dummy {f00=0x0103, f01=0x0190, f02=»SBUF,W10 ~ P BERR RETURN P MOVE RNRFMCH,DEBIN1 $ P MOVE PTRFMCH,DEBIN2 @ P SUB PTRFMCH,W8 PRRECNZ t P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 P CBE DEBINW4,=W'30',OUTO
0x331914…331aa8 Dummy {f00=0x0103, f01=0x0190, f02=»IN1,W0,W2,SYSBUF,W6 GET USED SPACE P TBF SWIT03,RREC02 * P ADD PTRFMCH,W10 D P CBE PTRFMCH,DEBIN1,RREC03 PRREC07 ~ P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05 & P XCOPY DEBIN5,W0,W2,SYSBUF
0x331aa8…331c3c Dummy {f00=0x0103, f01=0x0190, f02=» PRREC02 P CBL PTRFMCH,W20,RREC06 6 P CBNL DEBIN1,PTRFMCH,RREC02A IF WITHIN USED SPACE 6 . P MOVE PTRFMCH,DEBIN1 UPDATE WITH MAX LIMIT p PRREC02A P SUB PTRFMCH,W10 P B RREC07 PRREC06 P MOVE PTRFMCH,=W'190' P
0x331c3c…331dd0 Dummy {f00=0x0103, f01=0x0190, f02=»EBIN1 t $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 P MOVE STR6A,FORMAT 6 P B NXPRFM P P* b P* l P* v PDELFMT DELETE FORMAT P PERF WAIT P BNOK RETURN P MOVE STR6A,FORMAT P CLEAR SWIT04 P PERF SFMTCH,W4,SYSB
0x331dd0…331f64 Dummy {f00=0x0103, f01=0x0190, f02=»,W6 DEBIN1=OCC. SPACE v P DLETE SYSBUF,DEBIN2,W10 P SUB DEBIN1,W10 > 0 P XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE V P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P BERR RETURN PDELF1 P PERF DISU,W
0x331f64…3320f8 Dummy {f00=0x0103, f01=0x0190, f02=»,W2 P BNERR DELF2 PDELF3 P MOVE DEBINW4,W9 . PDELF31 F * P CBNE FC,W9,DELF32 JUMP IF NOT ENTFMT T 6 P MOVE DEBINW4,WORK(W9) RESTORE ORIGINAL ERROR CODE PDELF32 P B RETURN PDELF2 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4
0x3320f8…33228c Dummy {f00=0x0103, f01=0x413a, f02=»RSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 " P PERF DISU,W1,DEBIN1,SYSBUF @ P BERR RETURN d P COPY STR2A,W0,W2,SYSBUF,W0 x P CBNE STR2A,=X'4600',DELF3 P PERF RFRSP,DEBIN1,W1 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 P B DEL
0x33228c…332420 Dummy {f00=0x0103, 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
0x332420…3325b4 (3, 212) Dummy {f00=0x0103, f01=0x2008, f02=» 6 FCOPY STR1A 2 P FMEND 2 PFORMK FRMT 2 * P FCOPY :FMTITEM 2 < P FMEND 2 T PFDOTS FRMT 2 b P FSL 2 t P FTEXT =X'142E' 2 P FILLR X'2E',1 2 P FMEND 2 P END 2 @ 2 P B SETCREAD CONTINUE 1 P PEND 1 P* 1 PBELL F
0x3325b4…332748 Dummy {f00=0x0103, f01=0x0190, f02=» & & RECORD * $ N @ & P TTTT9D ^ " N t & ( & & & DUPL FROM VALUESET $ U
0x332748…3328dc Dummy {f00=0x0103, f01=0x018e, f02=» & : ( ! " & : 2 & : @ & CONFIRM RECORD INSERT: N ( r " ) ~ & & & RECOVERY OF # JOBE $ #E & : & k &
0x3328dc…332a70 Dummy {f00=0x0103, f01=0x018e, f02=» & & RECORD CORRECTIONS ( 6 & B & R & ` " & RECORD MUST BE VERIFIED n ( ' & & RECOVERY RUNNING.R ( ( &
0x332a70…332c04 Dummy {f00=0x0103, f01=0x0190, f02=» $ +R $ & CONVERSION OF ALL BATCHES ( < , H & X $ *O f & ON UNIT:UN v - XU " -iN ( . & - $ *N & WITHIN JOB:O &
0x332c04…332d98 Dummy {f00=0x0103, f01=0x4178, f02=»& FF*O ( 0 & , $ & ENTER WANTED RECORDNUMBER: : ( b 1 n & ~ ( 2 & ( 3 & ( 4 &
0x332d98…332f2c Dummy {f00=0x0103, f01=0x0190, f02=» F H IDENT DENT03 TRA 4.2 - - F1 O1111 PRRR 1.0 80-01-21/DALI DEFORC DEVERI N $$$TRAN h DEFORC DEVERI : z B > DELOCKN DERRORA DESTAT FMOVE FORCED1 MASKR T:DISP0 T:EDWRD B > T:GETA T:GETCR T:KI T:SETC T:TSTC T
0x332f2c…3330c0 Dummy {f00=0x0103, f01=0x0190, f02=» 2 F ^ r
0x3330c0…333254 (3, 213) Opaque[0x194]
0x333254…3333e8 # DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2078, f03=0x0000}
0x333254…3333e8 IdxSect {
0x333254…3333e8 f00 = 0x0103 // 0x333254 @0x0
0x333254…3333e8 f01 = 0x0008 // 0x333256 @0x2
0x333254…3333e8 gno = [ // 0x333258 @0x4
0x333254…3333e8 [0x00]: C0x0103.0x3.0
0x333254…3333e8 [0x01]: C0x0104.0x0.0
0x333254…3333e8 [0x02]: C0x0104.0x1.0
0x333254…3333e8 [0x03]: C0x0104.0x2.0
0x333254…3333e8 ]
0x333254…3333e8 }
0x3333e8…33357c Dummy {f00=0x0103, f01=0x0190, f02=» $ P IDENT DKRUT3 UPD 80-01-21/CHST P* , P* 6 L P************************************************************************ @ P* P* : P* ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE P* , P* D E
0x33357c…333710 Dummy {f00=0x0103, f01=0x018e, f02=» P DDUM DDINIT P PDIV P ENTRY NXPRFM & P EXT COND < P EXT DISU N P EXT DEPOOL ` P EXT WRFSP t P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P ENTRY GETSYS P ENTRY ENTSYS P ENTRY N
0x333710…3338a4 Dummy {f00=0x0103, f01=0x0190, f02=» P EXT RD P ENTRY ALGO P ENTRY GETTBL ( P ENTRY DELTBL > P ENTRY ENTTBL T P EXT RDDS j P EJECT | PDUMPROC PROC FC PGETFMT GET FORMAT P MOVE RNRFMCH,W0 P MOVE STR6A,DEINPUT P PERF WAIT P BER
0x3338a4…333a38 Dummy {f00=0x0103, f01=0x0190, f02=» MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI P CLEAR SWIT04 6 P PERF SFMTCH,W4,SYSBUF,W10 L P BERR RETURN n PRDDK98 P TEST SWIT02 P BNZ RETURN P READ 1ST REC OF FMT P MOVE SYSBUF,HEX00 P PERF DISU,W1,DEBIN3,SYS
0x333a38…333bcc Dummy {f00=0x0103, f01=0x0190, f02=» CBE FC,=W'32',RDDK100 IF GETPREV P SET SWIT07 * P BNZ SETER > PRDDK100 P P PERF RELEAS ` P B STRT01 t PSETER P MOVE DEBINW4,W9 P B RETURN PCHOK & P MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR P GET LINK NEXT
0x333bcc…333d60 Dummy {f00=0x0103, f01=0x0190, f02=»BIN1,DEBIN3 P MOVE DEBIN4,W0 P GET NO OF CONSEC , " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 H * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A n P BNERR GET21 ( P MOVE DEBINW4,W13 'NO BUFFERS FREE' P P B RETURN PMAXI P MOVE
0x333d60…333ef4 (3, 214) Dummy {f00=0x0104, f01=0x0190, f02=»0 j * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P SUB DEBIN1,W1 8 P CBE DEBIN1,W0,TBFAL N P PERF DISU,W1,DEBIN5,SYSBUF j P BNERR GET25 * P PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A P B RDDK99 PGET25 P GET LINK NEXT " P
0x333ef4…334088 Dummy {f00=0x0104, f01=0x0190, f02=» PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A @ PSETPFR n P MOVE PINDFR,DEBIN4 | P B RETURN PFLOCKE P MOVE DEBINW4,W24 'LOCKED' P B RETURN PGOTFFR $ P TBF SWIT02,FG
0x334088…33421c Dummy {f00=0x0104, f01=0x0190, f02=» P B FLOCKE PFUT P B RETURN & PFGETUN 8 $ P PERF SCHPOO,=C'F ',STR6A,W5 SET F P B TBFALL n PSCHFMT SEARCH FORMAT P SET SWIT02 P B GETFMT P* P* PENTSYS P PERF WAIT P BERR RETURN
0x33421c…3343b0 Dummy {f00=0x0104, f01=0x0190, f02=» h P ADD DEBIN1,W17 P ADD DEBIN2,W1 P CBL DEBIN2,W11,CENT 6 P PERF DISU,W2,W5,SYSBUF R P B RETURN r P* P* PGETSYS P PERF WAIT P BERR RETURN P PERF DISU,W1,W5,SYSBUF P BOK NNODA P MOVE SYSB
0x3343b0…334544 Dummy {f00=0x0104, f01=0x0190, f02=»W17,SYSBUF,DEBIN1 z P ADD DEBIN1,W17 P ADD DEBIN2,W1 2 P CBL DEBIN2,W11,CGET H P B RETURN d P* v P* P EJECT P* P* ENTTBL SET SWIT01 B GETT01 ENTT01 P MOVE SYSBUF,=X'5400'
0x334544…3346d8 Dummy {f00=0x0104, f01=0x0190, f02=» t B RETURN ENTT03 PERF FREESP,DEBIN2,W1 ( P BERR RETURN F " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 Z P PERF DISU,W2,DEBIN4,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN2 B ENTT01 * * * PDELT
0x3346d8…33486c Dummy {f00=0x0104, f01=0x0190, f02=»K RETURN DELT02 PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN B " XCOPY DEBIN2,W0,W2,SYSBUF,W4 V PERF RFRSP,DEBIN1,W1 | BNOK RETURN P CBE DEBIN2,W0,RETUR MOVE DEBIN1,DEBIN2 B DELT02 * *
0x33486c…334a00 Dummy {f00=0x0104, f01=0x0190, f02=» GETT01 PERF WAIT P BERR RETURN $ , ' COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO 8 P MOVE BCD13A,STR2A h * P MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL $ MOVE DEBINW4,W1 INDICATE ERROR PRETUR B
0x334a00…334b94 (3, 215) Dummy {f00=0x0104, f01=0x0190, f02=» P MOVE DEBINW4,W0 P TBF SWIT01,NOINSY P MOVE SYSBUF,=X'544300' : P PERF DISU,W2,W7,SYSBUF Z P BERR RETURN z PMUL MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 P CBNE DEBIN1,W0,DT002
0x334b94…334d28 Dummy {f00=0x0104, f01=0x018e, f02=»,W2,W7,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN1 * P B ENTT01 F PDT002 X P TEST SWIT02 f P BNZ DELT01 z RDN PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN P MOVE DEBIN4,DEBIN1 MOVE DEBIN1,W0 2 - X
0x334d28…334ebc Dummy {f00=0x0104, f01=0x0190, f02=» ( # CBG DEBIN1,W0,RDN READ NEXT RECORD ( P TBF SWIT01,NOINSY JUMP IF NOT ENTER 0 P MOVE DEBIN2,W17 0 P MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 t ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR PNOINSY $ M
0x334ebc…335050 Dummy {f00=0x0104, f01=0x0190, f02=»OVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN D ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 X * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DEPOOL,W6,PINDTB,DEBIN
0x335050…3351e4 Dummy {f00=0x0104, f01=0x0190, f02=»* P PEND P* < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE " P* b PSFMTCH PROC WX,BUF,STEG l P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1 P B BNERR
0x3351e4…335378 Dummy {f00=0x0104, f01=0x0190, f02=» ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 PMTCH 8 $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 D P BNERR FOND l P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P
0x335378…33550c Dummy {f00=0x0104, f01=0x0190, f02=»ETR PFOND P ADD DEBIN2,W6 " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 . PRETR T P PERF COND ` P RET r P PEND ~ P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04
0x33550c…3356a0 Dummy {f00=0x0104, f01=0x0190, f02=»PY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 P ADD CNTR,DEBIN4 D P CBNE DEBIN5,W0,US002 P MOVE FNOOFREC(INDFIL),CNTR z PNOFRET P PERF COND P RET P PEND P* P* P EJECT P* J P* S
0x3356a0…335834 (3, 216) Dummy {f00=0x0104, f01=0x0190, f02=»= 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS " . P* SET TO 0 IF IDENTIFICATION OKAY p 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC P MOVE DKBIN3,W0
0x335834…3359c8 Dummy {f00=0x0104, f01=0x4148, f02=»E DKBIN1,W6,XCALGO P IB FC C P ALTO C , P ALFRO > PALTO N " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 Z P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P RET PNOERR
0x3359c8…335b5c Dummy {f00=0x0104, 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 * *
0x335b5c…335cf0 Dummy {f00=0x0104, f01=0x0190, f02=»OVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN D ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 X * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DEPOOL,W6,PINDTB,DEBIN
0x335cf0…335e84 Dummy {f00=0x0104, f01=0x0190, f02=»* P PEND P* < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE " P* b PSFMTCH PROC WX,BUF,STEG l P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1 P B BNERR
0x335e84…336018 Dummy {f00=0x0104, f01=0x0190, f02=» ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 PMTCH 8 $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 D P BNERR FOND l P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P
0x336018…3361ac Dummy {f00=0x0104, f01=0x0190, f02=»ETR PFOND P ADD DEBIN2,W6 " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 . PRETR T P PERF COND ` P RET r P PEND ~ P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04
0x3361ac…336340 Dummy {f00=0x0104, f01=0x0190, f02=»PY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 P ADD CNTR,DEBIN4 D P CBNE DEBIN5,W0,US002 P MOVE FNOOFREC(INDFIL),CNTR z PNOFRET P PERF COND P RET P PEND P* P* P EJECT P* J P* S
0x336340…3364d4 (3, 217) Opaque[0x194]
0x3364d4…336668 # DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2098, f03=0x0000}
0x3364d4…336668 IdxSect {
0x3364d4…336668 f00 = 0x0104 // 0x3364d4 @0x0
0x3364d4…336668 f01 = 0x0008 // 0x3364d6 @0x2
0x3364d4…336668 gno = [ // 0x3364d8 @0x4
0x3364d4…336668 [0x00]: C0x0104.0x3.0
0x3364d4…336668 [0x01]: C0x0105.0x0.0
0x3364d4…336668 [0x02]: C0x0105.0x1.0
0x3364d4…336668 [0x03]: C0x0105.0x2.0
0x3364d4…336668 ]
0x3364d4…336668 }
0x336668…3367fc Dummy {f00=0x0104, f01=0x0190, f02=» $ P IDENT DKRUT4 UPD 80-02-25/CHST P DDUM DDINIT , PDIV @ P ENTRY ENTJOB N P ENTRY GETJOB d P ENTRY SCHJOB z P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P ENTRY OPNEBC P ENTRY OPNNBC P ENTRY REA
0x3367fc…336990 Dummy {f00=0x0104, f01=0x0190, f02=» P EXT DEPOOL P EXT RETURN P ENTRY DELBTC 0 P ENTRY NXJOB F P ENTRY NXBTH Z P EXT RDACC n P EXT SCHPOO P EXT RELEAS P EXT COND P EXT EMPTYT P EXT RDDS P EXT WRDS P EJECT PDUMM03 P
0x336990…336b24 Dummy {f00=0x0104, f01=0x018e, f02=»SOK P SET SWIT04 P MOVE STR6A,JOBNAME , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN < P BNERR OPNN01 FOUND l P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWIT05,OPNN02 NEW ENTRY JOBCHAIN P B RETURN 'NOT IN SY
0x336b24…336cb8 Dummy {f00=0x0104, f01=0x0190, f02=» P CBE DEBINW4,W9,OPNN88 P B RETURN " POPNN88 4 , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN B P B RETURN 'NOT IN SYSTEM' r POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P MOVE DEBINW4,W8 ALREADY DEFINED' P B RETURN
0x336cb8…336e4c Dummy {f00=0x0104, f01=0x018e, f02=»TRY h 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD B POPNN09 n P PERF ENTR,JOBNAME | $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2 P XCOPY RBUF,W6,W2,DEBIN2,W0 P PERF WRDS,DEBIN
0x336e4c…336fe0 Dummy {f00=0x0104, f01=0x0190, f02=» x P XCOPY RBUF,W2,W2,DEBIN1,W0 P XCOPY RBUF,W4,W2,W0,W0 , POPNN12 L P PERF ENTR,BATCH Z P PERF FREESP,DEBIN1,FILINDUS r P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P ADD DEBIN2,W2 P PERF FREESP,CURSEC,FILINDUS
0x336fe0…337174 (3, 218) Dummy {f00=0x0105, f01=0x0190, f02=»IN4 P BERR RETURN P MOVE RBUF,HEX00 P XCOPY RBUF,W6,W2,W10,W0 8 P B OPNN16 X " POPNN08 FIRST SECTOR JOBCHAIN j P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,W2,W2,W0,W0 POPNN10 P XCOPY RBUF,W4,W2,W0
0x337174…337308 Dummy {f00=0x0105, f01=0x0190, f02=»,DEBIN1 P BERR RETURN P MOVE RBUF,=X'4A4300' $ P XCOPY RBUF,W2,W2,DEBIN1,W0 B P MOVE DEBIN1,DEBIN4 f P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-CHAIN . P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCC. SPACE
0x337308…33749c Dummy {f00=0x0105, f01=0x018e, f02=»NDUS x P BERR RETURN P XCOPY RBUF,W4,W2,DEBIN4,W0 P PERF WRDS,DEBIN1 D P BERR RETURN ^ P MOVE DEBIN2,W10 r P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W2,RBUF,DEBIN2 P XCOPY DEBIN4,W0,W2,RBUF,W6
0x33749c…337630 Dummy {f00=0x0105, f01=0x0190, f02=» POPNNDL P SUB DEBIN2,W10 P SUB DEBIN4,W12 * P XCOPY RBUF,W6,W2,DEBIN4,W0 B P DLETE RBUF,DEBIN2,W12 f P PERF WRDS,DEBIN1 P BERR DL10 P CBG DEBIN4,W10,DL01 P PERF DLRCCH,RBUF PDL01 P PERF RFRSP,DEBIN5,FIL
0x337630…3377c4 Dummy {f00=0x0105, f01=0x0190, f02=»RR DL03 P CBE DEBINW4,=W'30',DL04 P B DL10 0 PDL04 @ P MOVE RBUF,HEX00 L P MOVE DEBINW4,W0 d PDL03 | P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P MOVE CURSEC,DEBIN5 P CBNE DEBIN5,W0,DL02 P
0x3377c4…337958 Dummy {f00=0x0105, f01=0x018e, f02=»ORCODE n P B RETURN POPNN16 $ P XCOPY STATSH,W0,W1,FILINDUS,W0 . " P COPY STATSH,W1,W6,JOBNAME,W0 V P COPY STATSH,W7,W6,BATCH,W0 | ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH & P BNERR EXIST IF IKAY, ALREADY OPEN P MOVE DKBIN1,W1
0x337958…337aec Dummy {f00=0x0105, f01=0x0190, f02=» h P MOVE PINACC,DKBIN1 P MOVE BPOOL(DKBIN1),HEX00 $ ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 F P TBT SWIT05,EXIBAT r P B RETURN PEXIBAT P PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHOP P MOVE DEBI
0x337aec…337c80 Dummy {f00=0x0105, f01=0x0190, f02=»* P* PENTJOB ENTER JOBDEF P PERF WAIT 2 P BERR RETURN D P PERF READJB X P BNERR FOUNDJ l P CBE DEBINW4,=W'30',FIRST P CBE DEBINW4,W9,NOTIN P B RETURN PFIRST * P MOVE DEBIN1,DEBIN3 SAVE RECORD NUMBER
0x337c80…337e14 (3, 219) Dummy {f00=0x0105, f01=0x0190, f02=»FST1 ( P MOVE SYSBUF,=X'4A440000000000C600' " P XCOPY SYSBUF,W2,W2,DEBIN3,W0 8 , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 ^ P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN ( P CBE DEBIN3,W0,ENTRET LAST IN CHAIN $ P PERF DISU,W1,DEBIN3,S
0x337e14…337fa8 Dummy {f00=0x0105, f01=0x018e, f02=» PFOUNDJ , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 P PERF DISU,W2,DEBIN3,SYSBUF F P B RETURN j P* | P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPUT PGTJ020 * P PERF SCHPOO,=C'J ',STR6A,W7 SCAN POOL
0x337fa8…33813c Dummy {f00=0x0105, f01=0x0190, f02=» P PERF WAIT P BERR RETURN PRDCNW . P PERF DISU,W1,DEBIN1,SYSBUF < P BNERR DATA ` P CBE DEBINW4,=W'30',NOTEX t P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NOT EXISTENT' P B RETURN PDATA P MOVE DEBIN2
0x33813c…3382d0 Dummy {f00=0x0105, f01=0x0190, f02=» SWIT03,GTJ010 P MOVE STR6A,STR6B P PERF RELEAS 0 P B GTJ020 D PGTJ010 V " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 d P CBE DEBIN1,W0,NOTEX P B RDCNW PRDCHJF P TEST SWIT02 " P BNZ RETURN RETURN, IF SEARCH P TBF SWIT0
0x3382d0…338464 Dummy {f00=0x0105, f01=0x0190, f02=»F DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GTJOK * & P MOVE DEBINW4,W13 'NO BUFFER FREE' > P B RETURN h PGTJOK z * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 ( P COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P MOVE DKBIN1,W4 PGETUNL P
0x338464…3385f8 Dummy {f00=0x0105, f01=0x0190, f02=»POOL,W6,PJOBCUR,DEBIN3,STRG10A . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A & P MOVE PJOBCUR,DEBIN3 X P B RETURN t PLOCKED P MOVE JOBNAME,STR6A P MOVE DEBINW4,=W'26' P B RETURN PGOTFRE P TEST, IF USED P TBT
0x3385f8…33878c Dummy {f00=0x0105, f01=0x0190, f02=» GETJOB P* P* PDELJOB DELETE JOBDEF $ P PERF WAIT B P PERF READJB T P BERR RETURN h P CLEAR SWIT04 | P PERF DLRCCH,SYSBUF P TBF BOOL9,RETUR P TBF BOOL8,RETUR P MOVE SYSBUF,HEX00 P PERF DISU,W2,W3
0x33878c…338920 Dummy {f00=0x0105, f01=0x0190, f02=» P* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W2 8 PPRE01 P & P MOVE STR6A,JOBNAME DALI 79-04-24 ^ P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN & P XCOPY DEBIN1,W0
0x338920…338ab4 (3, 220) Dummy {f00=0x0105, f01=0x0190, f02=» P* P* P* P* & PNXJOB GET NEXT JOBNAME 0 P SET SWIT01 P PNXBTH GET NEXT BATCHNAME d P SET SWIT04 P CALL EMPTYT,JOBNAME P BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH,W3,RBUF,W10 P B
0x338ab4…338c48 Dummy {f00=0x0105, f01=0x0190, f02=»KBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT P PERF RDDS,DKBIN3 6 P BERR RETURN P PFIJONA d P XCOPY DEBIN1,W0,W2,RBUF,W6 r P CBNG DEBIN1,W10,NOT P MOVE DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 $ P COPY JOBNAME,W0,W6,RB
0x338c48…338ddc Dummy {f00=0x0105, f01=0x0190, f02=»3,RBUF,W12 ~ P BERR NOT P ADD DEBIN2,W6 $ P CBG DEBIN2,DKBIN1,RENER : PGTNAM1 Z " P COPY BATCH,W0,W6,RBUF,DEBIN2 h P B RETURN PFIRJOB P PERF RDDS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT P B RETURN
0x338ddc…338f70 Dummy {f00=0x0105, f01=0x0190, f02=»N2,W12 P B GTNAM1 PNOT . P MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' , P B RETURN ^ P* p P* z P PEND P EJECT P* P* PREADJB PROC P MOVE DEBIN4,W3 PREDJCH P MOVE DEBIN3,DEBIN4
0x338f70…339104 Dummy {f00=0x0105, f01=0x0190, f02=»P IF EMPTY v 4 P MOVE DEBINW4,=W'30' IDICATE FIRST RECORD EMPTY P B RETRED J PREDJ10 P MOVE DEBIN5,=W'92' j $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 P CBE STR6A,JOBNAME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBN
0x339104…339298 Dummy {f00=0x0105, f01=0x40be, f02=»ENTR PROC ITEM P XCOPY RBUF,DEBIN2,W2,W0,W0 P ADD DEBIN2,W2 : P COPY RBUF,DEBIN2,W6,ITEM,W0 P P ADD DEBIN2,W6 t P RET P PEND P* END @ ME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBN
0x339298…33942c Dummy {f00=0x0105, f01=0x2008, f02=»
0x33942c…3395c0 Dummy {f00=0x0105, f01=0x0190, f02=» P* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W2 8 PPRE01 P & P MOVE STR6A,JOBNAME DALI 79-04-24 ^ P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN & P XCOPY DEBIN1,W0
0x3395c0…339754 (3, 221) Opaque[0x194]
0x339754…3398e8 # DirEnt {nam=»RUT «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20b8, f03=0x0000}
0x339754…3398e8 IdxSect {
0x339754…3398e8 f00 = 0x0105 // 0x339754 @0x0
0x339754…3398e8 f01 = 0x0002 // 0x339756 @0x2
0x339754…3398e8 gno = [ // 0x339758 @0x4
0x339754…3398e8 [0x00]: C0x0105.0x3.0
0x339754…3398e8 ]
0x339754…3398e8 }
0x3398e8…339a7c Dummy {f00=0x0105, f01=0x00fe, f02=» DEL DEDISU,/O DEL DEDI01,/O DEL DEDI02,/O 0 DEL DEDI03,/O F DEL DEDI04,/O TRA DEPOOL,NL r TRA DKRUT1,NL TRA DKRUT2,NL TRA DKRUT3,NL TRA DKRUT4,NL KPF /O ASG /E0,TY10
0x339a7c…339c10 Dummy {f00=0x0105, f01=0x2008, f02=» DEDISU,/O DEL DEDI01,/O DEL DEDI02,/O 0 DEL DEDI03,/O F DEL DEDI04,/O TRA DEPOOL,NL r TRA DKRUT1,NL TRA DKRUT2,NL TRA DKRUT3,NL TRA DKRUT4,NL KPF /O ASG /E0,TY10
0x339c10…339da4 Dummy {f00=0x0105, f01=0x0190, f02=» P* STARTPOINT P* $ P START START . P STACK 200 B EJECT T * b * l PCB1 BLK v P* $ PLRUQUE STRG 16 LAST RECENT USED $ PBPOOL STRGI (25),188 BUFFERPOOL * PRPOOL STRGI (25),19 BUFFER REFERENCES
0x339da4…339f38 Dummy {f00=0x0105, f01=0x0190, f02=»X FOR USERFILE ~ RETCOD BIN RETURN-CODE & PRECLNTH BIN CURRENT RECORDLENGTH 6 PPJOBCUR BIN POOLINDEX ` " PJOBNAME STRG 6 CURRENT JOBNAME ~ & PFORMAT STRG 6 CURRENT FORMAT-NAME EJECT * * COMMON-BLOCK: 2 *
0x339f38…33a0cc Dummy {f00=0x0105, f01=0x0190, f02=»OOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- & W0 BIN W'0' CONSTANT N W1 BIN W'1' CONSTANT j W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTA
0x33a0cc…33a260 Dummy {f00=0x0105, f01=0x0190, f02=»' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT 0 PW14 BIN W'14' CONSTANT N PW15 BIN W'15' CONSTANT l P EJECT P* P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK
0x33a260…33a3f4 (3, 222) Opaque[0x194]
0x33a3f4…33a588 # DirEnt {nam=»MON10 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x20c0, f03=0x0000}
0x33a3f4…33a588 IdxSect {
0x33a3f4…33a588 f00 = 0x0106 // 0x33a3f4 @0x0
0x33a3f4…33a588 f01 = 0x0012 // 0x33a3f6 @0x2
0x33a3f4…33a588 gno = [ // 0x33a3f8 @0x4
0x33a3f4…33a588 [0x00]: C0x0106.0x0.0
0x33a3f4…33a588 [0x01]: C0x0106.0x1.0
0x33a3f4…33a588 [0x02]: C0x0106.0x2.0
0x33a3f4…33a588 [0x03]: C0x0106.0x3.0
0x33a3f4…33a588 [0x04]: C0x0107.0x0.0
0x33a3f4…33a588 [0x05]: C0x0107.0x1.0
0x33a3f4…33a588 [0x06]: C0x0107.0x2.0
0x33a3f4…33a588 [0x07]: C0x0107.0x3.0
0x33a3f4…33a588 [0x08]: C0x0108.0x0.0
0x33a3f4…33a588 ]
0x33a3f4…33a588 }
0x33a588…33a71c Dummy {f00=0x0106, f01=0x0190, f02=»7 B` 0 ^ . 4 4 c @ ^ z ^ J k Y H 2 Z j s z
0x33a71c…33a8b0 Dummy {f00=0x0106, f01=0x0190, f02=» 4c @] HNl d 7 2Z $"z y L ,/ . y ~ pNo L Dk m Z* L / aj [ ^? d % L 0% "~ T &b Cn 1 d _ A > " & ? ? ? ? ? ? ? @" > > U H ( ( P c P WN T P ,$ T T _ " A
0x33a8b0…33aa44 Dummy {f00=0x0106, f01=0x0190, f02=» @" XV ) A" A _b A A Z A" _t A A Q > A " A Q _ A < Q P Q Z Y _ 8 "( Q Z P 0 9 _ _( r P H H ? ? ? ? ? ^ A _ _ ^
0x33aa44…33abd8 Dummy {f00=0x0106, f01=0x0190, f02=» 4 T - 1_& U T P 0 U _r ? @ T 0 A 1 Q Q >W 0 @ 1 A P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _
0x33abd8…33ad6c Dummy {f00=0x0106, f01=0x0190, f02=» 8 _ #M 1 Q > A A Q _ A < Q P Q Z Y _ 8 Q Z P 0 9 _ _( P H H ? ? ? ? ? ^ A _ _ ^
0x33ad6c…33af00 Dummy {f00=0x0106, f01=0x0190, f02=» $V t "$ A 4( @ X H A ( 1 ) @ H P 1 % E I (@ @ <a D >a H D $! u C C 0 V P C d U4 B * C # C C S d Y ' "$ C C
0x33af00…33b094 (3, 223) Dummy {f00=0x0106, f01=0x0190, f02=»# <c$ " P PR 4 5 T P ? X U X # > PZ PF P P 0 X T Y Wn U U T X^ T E "F Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > "F Z X "X 8' T 8Z" X
0x33b094…33b228 Dummy {f00=0x0106, f01=0x0190, f02=» BB @ P A # @ 1"78 &3$ Q tP ^ "> A B X T " T A 7T B # Y B A P T YF ZJ X T X M A : r H P @ "F r 8 Px X XZ# Y ) Wf
0x33b228…33b3bc Dummy {f00=0x0106, f01=0x0190, f02=» P )@:b P ) :a P :a P X '? R Q )@ 8 8 "B A X T " P: A ^ X P * W Y @ ^ T* ] D W @ :C n_L) @ x_ P _ Y " ;g# + _ Y & _ * Y _
0x33b3bc…33b550 Dummy {f00=0x0106, f01=0x0190, f02=» A PdQ* ? A D @ T M -W ,E A A x > > >M A _ A > ;I C X "A _@ A ~ A A A "F # X& T X T ":EV W X T Y *:DV X Qx ":EVp W " P Y WD X $ QB R _
0x33b550…33b6e4 Dummy {f00=0x0106, f01=0x0190, f02=» T 8Tt 9Wb B 7P P "> A! W A! @! A.W< A I.9 X R C C b X R C C "F A @! A. X V 9 b X V 9_d @ x B U P R U
0x33b6e4…33b878 Dummy {f00=0x0106, f01=0x0190, f02=» 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! 4 X X ! X P R ?]* U C _. _: ! 4 ! 4" $ P X ( X ]T ! Y h Y _p P X R X X '
0x33b878…33ba0c Dummy {f00=0x0106, f01=0x0190, f02=» ( Y B 9a C "B 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y "F Y * ! X *_B B 1 4 X X X X ' 4 B U B $" 4 C 4 _^ x B U P R U
0x33ba0c…33bba0 Dummy {f00=0x0106, f01=0x0190, f02=»Pz Pv Pr P "> B ! T 9 Y > ! 9EV0 X > y ! + ! ! T Y > 2 B t ! 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, !
0x33bba0…33bd34 (3, 224) Dummy {f00=0x0106, f01=0x0190, f02=» T " T 9_Z B ;e :e Q P 9 4 8 X >" P # ;B 4 X >;C+ W W q r Y @ T ! Q : Y Y "F R Y Y 6 @ T Y ! ! TF Y ! $! P Y ! Y Y 6 P X Y '? C @ P( a W 0P
0x33bd34…33bec8 Dummy {f00=0x0106, f01=0x0190, f02=»W C X P "F ! ! T 9 Y > ! ! Tr X 6P ! @ TOT2 @ 1T( @ ! # " Q D P R P Q @ X X X Y ! W 4 C C
0x33bec8…33c05c Dummy {f00=0x0106, f01=0x0190, f02=»T V C B Q 1 "F Y @ r t @ B X _" X Z.W A I X ' { B C X 4 T !P 9 ! ! T 9 ! X Y ! X Y 9 X !P T4 A! W A! @! A. L
0x33c05c…33c1f0 Dummy {f00=0x0106, f01=0x0190, f02=»Y: Y Y Z B Y V V Y ^ Y X Y X !? P* P P" P ! ! P @ 9W ! ! P6 P 4 ! # T X Y J ! _ # . 4 ! # & X Y J_0 W Y T Y P Y R Y D @ T4B S4W. Y Z 8! T X ^ Y Z X X C X U Y V
0x33c1f0…33c384 Dummy {f00=0x0106, f01=0x0190, f02=»P ! W ! 9 ! X ^< Y Y B Y X LP 1 Y L ! 0 Y N 1 0B. X J P Y : ! ! X # P Y J:A , X N A! Y N @! B. Y Y F X Y C '? T X Y _ A 4(@ X P X R K P0 @ T X TT $C Y B "FK & %
0x33c384…33c518 Dummy {f00=0x0106, f01=0x0190, f02=» X V X X 4 . ! # T . X BT ! 4 A ;D A 4 $ ( H 0 ) $P $ ) U @ C W 0P P R T C T"
0x33c518…33c6ac Dummy {f00=0x0106, f01=0x0190, f02=» X P 4 Y C C 8W T 8P Y ^ 5 ) P U "F XL ! X ! X P X V T _f X` Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P W Y
0x33c6ac…33c840 Dummy {f00=0x0106, f01=0x0190, f02=» D ( ) 1 > _" X "( " Y _ R (@ X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0P 1 _ ,W Y B T "F " _
0x33c840…33c9d4 (3, 225) Dummy {f00=0x0106, f01=0x0190, f02=» W8 M $R M A" "F _ D $P D % 1 I D u T T T T T T > & # "2#p"F # . ". / /L / . .p : N "1( 7 6 $ ( *J !: % Y Wz B Tr !: C B $ ) Y WX X $ $ ^ WB X Y
0x33c9d4…33cb68 Dummy {f00=0x0106, f01=0x0190, f02=»" Q " X " $XL ( I T E _ (X _ X $ _v0 8 > > > > > > > > @" A" W 4W ^ ! Z@ " (XH @" P T M ]X , ) L P $R _, A" Pj P Y U ( ) 5 & > > > > > > > $ " [ [
0x33cb68…33ccfc Dummy {f00=0x0106, f01=0x0190, f02=» " $ & > P~ "R~ Y "F " Pj T P` "8 <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 "F X X Y X X X
0x33ccfc…33ce90 Dummy {f00=0x0106, f01=0x0190, f02=» $ & $ X V Y "F !$BW< Y U R -P & X ( ) Y * & X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > ' > Pb P C & B & T B % X * $ 4 T % & X (T !$ W
0x33ce90…33d024 Dummy {f00=0x0106, f01=0x0190, f02=»R _Q P OR R W " !$| B %* Wr W 0 Z ' !$| B Z Z& X * ,T J W X (P Y * 0 %_. % Y * W _p P ' _ C !$x "B" 'n QPR X R(;GV$ $0 '< P8 X R2;GV. X %* X ( $4 P ' X *T * W Y ( -
0x33d024…33d1b8 Dummy {f00=0x0106, f01=0x0190, f02=» _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > JT , _ x ( )|) ) PB P8 "> B P B L # +P !# !# T !# Y " !# W !# !# W !# Y Y )B $V U P" T Y "_. P4 R( Pj O]> V _F
0x33d1b8…33d34c Dummy {f00=0x0106, f01=0x0190, f02=» "F X C _ X Y " Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f $0 X _x R0 V0 ! P* P P P" R ?Q !# Y R Q )2 $ -_ ? _ X # !# ^ Y _( X Z !# P0 P X _ X " (
0x33d34c…33d4e0 Dummy {f00=0x0106, f01=0x0190, f02=»P P. T Y # !# R| X $ Y "R Y " _ Y "_. B 1 - !# ,~ B B U4 $ ! T _ U D ! T _ $$ X" X& X* C $V , X`" E*TP( 8'0P E*TTD ! T 9 _ ! T @_ ! $V B P !- B C ,
0x33d4e0…33d674 (3, 226) Dummy {f00=0x0107, f01=0x0190, f02=» Y " !. W +2 8!0T 8 !@P !# $ P !# !# ,n !# T X " C T Y " "F X Y " Y > X " X "" Y %Q Y > X Z2<BR > $0 Y !# T X !# Y " Zn ,f T _ !# X $ P !-T +2 R V P P" !# ,~W
0x33d674…33d808 Dummy {f00=0x0107, f01=0x0190, f02=» 4 B * U )X R@ X X "" Y & X % V Y !- X $ X " !. X & +2 * `R Y !# !# !# 4 !# V !# V W :h !# 4 X %" X ## R 4 ,n >' "?:B ] " P H U _ T U P U
0x33d808…33d99c Dummy {f00=0x0107, f01=0x0190, f02=» @ < ? < ? <(@ / C # P >_ < U = (@ " B / P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P* P P" P P P T` 2* 0 "8 0 P t B B T P2 & T,
0x33d99c…33db30 Dummy {f00=0x0107, f01=0x0190, f02=» _L _< _< " " P2 @ Q, , Y ," P L P T L R :AV ' > _ #A 1 1 1* V W :h !# > A1( @ @ 7 @ R&P % % @ I I I I _4 @ P
0x33db30…33dcc4 Dummy {f00=0x0107, f01=0x0190, f02=» @ < ? < ? <(@ / C # P 1& ' 4R 3 ! 5R A0 5 P< 6 P& 8! P6 K @P X T X !? ? 3 W W @W 5 5J " 6 W A0 5 X* 6( X2 " (@ I # V V " LP V : V
0x33dcc4…33de58 Dummy {f00=0x0107, f01=0x0190, f02=» $P X X $ $P, # ' P @T #?W #?$? 2 _2 J @" P Y 9 @ J ! T " Y X G 5J! 5R 5 P C P* 5J J : J < W W P X V C W 5X X ! "? K >Q 9 5 W Y B W _.! T 5 T P % Y
0x33de58…33dfec Dummy {f00=0x0107, f01=0x0190, f02=» F 6 " G 6 R 5 6 N ! N P" N & N T S _ _& - M L G "$ _ W C ( B P U 4L T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ $ : 6 6 P $ 5 8
0x33dfec…33e180 Dummy {f00=0x0107, f01=0x0190, f02=» * Y $ : " $ Y : @ P0 8 T _ " & Y 4 : : $ - Y : 6 6 7 7`7`7` 0123456789 ' +,-. 0123456789 < @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^
0x33e180…33e314 (3, 227) Dummy {f00=0x0107, f01=0x0190, f02=» 7 @ A. D UU @ @ ! P$>B @ET AET @ET E D P _ $ % $P _ % A A @ " Q" 7 :d @ # U RDP2 P EZ ? ADR ? P8 ? _ * A BB B W"* A A A W :a2 * A @4 8 & W F W @
0x33e314…33e4a8 Dummy {f00=0x0107, f01=0x0190, f02=» @ $ P( @ R W 8 !RRT W V P4 A W P G Y WD V Y W @ " TJ W P G Y EZ ;. ET Y P @ P @ T W - ETP _
0x33e4a8…33e63c Dummy {f00=0x0107, f01=0x0190, f02=» V W Y* P Z( = :L < P W <9B @ V W Q EZ W @ET @ A C @ <, V <,! P W @ V P _ @ ! P( Dx !RRP V V <, W _< EZ Dx Dx DH V
0x33e63c…33e7d0 Dummy {f00=0x0107, f01=0x0190, f02=» >: W A>: A> W W ? ? PH ? >VW> ? T ? ? W ? = B W @7 W >n >x = > = ?* ?Z > = ?2 ?Z > = ?: ?Z > = > = V 00P& ?j ?B ?Z > = ?J ?Z > = _0 > = V 00P ?j
0x33e7d0…33e964 Dummy {f00=0x0107, f01=0x0190, f02=»B @7 V V I Ej W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W Ej nX T >n : ? <t : EZ >p : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W
0x33e964…33eaf8 Dummy {f00=0x0107, f01=0x0190, f02=» : ? : ? : ? : ? : ? : ? : 0 )T : !00T W : EZTID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : ? C. ? X C.9h! ? ? # " ? ? :A K : A T.I T P 1 I P < R P A _>
0x33eaf8…33ec8c Dummy {f00=0x0107, f01=0x0190, f02=» Q P 9e @7 P A7 9C) A I " @7 ! P " :B A7 t q B J " n : 0 R _ <d?d A7 U <e @7 P A7 <C, D L " @7 $ P " :B A7 t w B J " r R,Q$ @ ( = @7 Q @7 "| _@ _$
0x33ec8c…33ee20 Dummy {f00=0x0107, f01=0x0190, f02=» @7 4R @ t w A I ! j : B ADR A>p AB AB AB ! T B B W AB AB I ! : 9D @ @7 r s @7 A I T - A _ I N T V S : EZ B B 9PJ S Y T@ $ 1T: C !CCTr : 1P P$
0x33ee20…33efb4 (3, 228) Dummy {f00=0x0107, f01=0x0190, f02=»7 P A X X W W X X S W W W : V W V T W P DV V T W F P P V W @ $ P p W Ej T : AC DR_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0
0x33efb4…33f148 Dummy {f00=0x0107, f01=0x0190, f02=» T W Z A. c @ V W U EZ R $ )_ : V r G V EZ t G Z W r _j V <B W : $ E w : V $ V
0x33f148…33f2dc Dummy {f00=0x0107, f01=0x0190, f02=»G P E E W x F* G _ V : t " D P W V Pv $;A^ D E D P. V EZP EZ P T EZ E _N T E E _ r G V EZ t_~ " V r D T E % E E : " R ;B D D E " P P R P |
0x33f2dc…33f470 Dummy {f00=0x0107, f01=0x0190, f02=» W ; V : : J @ 0 V @ EZ 0 H W : ? ? R 0 R P P B 4 _ " : 4P0 " D H H H $ M v b - I Y& : @ ` V b pPp H H8 $ @ ! P I " =
0x33f470…33f604 Dummy {f00=0x0107, f01=0x0190, f02=» V @ ! @ P P^ P PR_ _ @ V W U( P P( P V W U " @ Q V P A. V P _T A A V .V 3 S Y& P4 S
0x33f604…33f798 Dummy {f00=0x0107, f01=0x0190, f02=» "FA > l : G R E W n V pT : N V l W H V ]" . nT" F W v E W n V ~P K W x F* L G F* _v V d , V EZ P _ N L % V d V f G G U E G : G P E G V G : F E
0x33f798…33f92c Dummy {f00=0x0107, f01=0x0190, f02=» f ) G V E ) W b G E ) G ` " W p W ~ pP0 J R G P J G _ W ~ R G X4 J G _ ` W ~ pPV J R , G E " E R K W ~ R K R P MB R X^ MB_dW G T : E F W x F* G _ V P.
0x33f92c…33fac0 Dummy {f00=0x0107, f01=0x0190, f02=» @ H E F GZ #_T W | j W V b ( W p V ` $ W ` Ej 0 ;h 0 :C # : .=H N N" G .=H N N" G N : d 8" R _ ZY QY : @ H W z W | CRP W ` ` H W d 2 @
0x33fac0…33fc54 (3, 229) Dummy {f00=0x0107, f01=0x0190, f02=» N" @ ) N< !TTXT !CCT N@ !UUT d O WT Nz 2 .:H N R P V EZ _ N S Nz S YB : v ` @ W W W @ W D G V W W ` " W p @ pP* " 4X
0x33fc54…33fde8 Dummy {f00=0x0107, f01=0x0190, f02=» $ ) ^ A 7 _ _tP Q* W r _t Q* W @ @ % _ V , P@ , - 4 ] 4 G Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP EZ ^f @ T EZ
0x33fde8…33ff7c Dummy {f00=0x0107, f01=0x0190, f02=» ` @ P R _ R 3 S S V V W @ @ T EZ : P S S _ : V CRP COP W @ 3 V 3 3 @ ^ ^ S @ V Pf ^ 9h !RRP @ ! T W* ^ @
0x33ff7c…340110 Dummy {f00=0x0107, f01=0x0190, f02=»; V S _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T EZ : W . !TTP EZ ^f W t N =H N W l V CRT N =H N ^ W p N =H N N" W | ( @ % 5 T W @
0x340110…3402a4 Dummy {f00=0x0107, f01=0x0190, f02=» " U EZ _2 V tPb S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W _d N< !TTT T` D @ @ T EZ : . !TTP EZ V ^f W t *
0x3402a4…340438 Dummy {f00=0x0107, f01=0x0190, f02=» I K T + Y@ V p _f V t Y N< !TTX @ @ T EZ : W % @ P _ R @ WT R @ 0 W ` W W& T EZ P _ V A V W ^f W t
0x340438…3405cc Dummy {f00=0x0107, f01=0x0190, f02=»Yv N< !TTX @ @ T EZ : N< !TTX !CCTr ^f P, ^ V r 4 U EZ $ $ _. ^ P, ^ V 4 U EZ $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W ^f
0x3405cc…340760 Dummy {f00=0x0107, f01=0x0190, f02=» # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T EZ : W V F !SST WJ !AAT W> [ V V 0 V P _ W $ q > R P >b W >b & 8P [ [ V 7 V
0x340760…3408f4 (3, 230) Dummy {f00=0x0108, f01=0x0190, f02=» V -W( [ W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P Z" V : ` P: @ @ @ D (P W H $ I " % E , a : V Q R $ F !LLT #
0x3408f4…340a88 Dummy {f00=0x0108, f01=0x0190, f02=» EZ 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
0x340a88…340c1c Dummy {f00=0x0108, f01=0x0190, f02=» V Ej A! (P ) @! @! P V Ej A! (P ) @! @ @ T EZ : N =H N N" : N =H N N" : &=H F N" : F =H F N" : F =H F N" : P N =H N T ^f N<_ : @ ! P (W ( : 00=H 00 P P
0x340c1c…340db0 Dummy {f00=0x0108, f01=0x0190, f02=»_ _ _ _ b ! P 1 P 6 ~ 4 4 4 4 _ _ _ _ P`" 0`J Q`n J$ KB 6 !AAP `" ` ` (*J Y *T P $( P _ (*J Y
0x340db0…340f44 Dummy {f00=0x0108, f01=0x0190, f02=»
[…0x3…]
0x341400…341594 (3, 231) Opaque[0x194]
0x341594…341728 # DirEnt {nam=»CONF5 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x341594…341728 IdxSect {
0x341594…341728 f00 = 0x0108 // 0x341594 @0x0
0x341594…341728 f01 = 0x0002 // 0x341596 @0x2
0x341594…341728 gno = [ // 0x341598 @0x4
0x341594…341728 [0x00]: C0x0108.0x1.0
0x341594…341728 ]
0x341594…341728 }
0x341728…3418bc Dummy {f00=0x0108, f01=0x014e, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 00; J 01; V SDC=S02; b T; r 01; | TID=T1; TCL=T1; LEV=60; 01; TDC=T01; LC=01L; 00; C; P01; PTD
0x3418bc…341a50 Dummy {f00=0x0108, f01=0x2008, f02=» 01; TID=TB; TCL=TB; * LEV=55; : 00; J 01; V SDC=S02; b T; r 01; | TID=T1; TCL=T1; LEV=60; 01; TDC=T01; LC=01L; 00; C; P01; PTD
0x341a50…341be4 Dummy {f00=0x0108, f01=0x2008, f02=» ERNATIVE 1,2 AND 3 IS VALID, ~ 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN , 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED ` HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU
0x341be4…341d78 Dummy {f00=0x0108, f01=0x2008, f02=» { CALL TABLE PERFORM TABLE LB TABLE LITERAL DESCRIPTOR TABLE PICTURE DESCRIPTOR TABLE FORMAT DESCRIPTOR TABLE LITERAL POOL SIZE PICTURE POOL SIZE FORMAT POOL SIZE INTERPRETABLE CODE SIZE PROGRAM LENGTH = NUMBER OF ERRORS KEYTABLE DESCRI
0x341d78…341f0c Dummy {f00=0x0108, f01=0x0190, f02=»" # R#_ R3_ 1XFA R2 RRR_] R : #+ ' v 0 - 4 F V f v
0x341f0c…3420a0 Dummy {f00=0x0108, f01=0x0190, f02=» " 6 $ 4 D " T $0 d +0 v 3 " 4 H 8 < 7 = > A J F " D 4 0R f!0R f"0R f#4 1XFA R
0x3420a0…342234 (3, 232) Opaque[0x194]
0x342234…3423c8 # DirEnt {nam=»FILER «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2110, f03=0x0000}
0x342234…3423c8 IdxSect {
0x342234…3423c8 f00 = 0x0108 // 0x342234 @0x0
0x342234…3423c8 f01 = 0x0022 // 0x342236 @0x2
0x342234…3423c8 gno = [ // 0x342238 @0x4
0x342234…3423c8 [0x00]: C0x0108.0x2.0
0x342234…3423c8 [0x01]: C0x0108.0x3.0
0x342234…3423c8 [0x02]: C0x0109.0x0.0
0x342234…3423c8 [0x03]: C0x0109.0x1.0
0x342234…3423c8 [0x04]: C0x0109.0x2.0
0x342234…3423c8 [0x05]: C0x0109.0x3.0
0x342234…3423c8 [0x06]: C0x010a.0x0.0
0x342234…3423c8 [0x07]: C0x010a.0x1.0
0x342234…3423c8 [0x08]: C0x010a.0x2.0
0x342234…3423c8 [0x09]: C0x010a.0x3.0
0x342234…3423c8 [0x0a]: C0x010b.0x0.0
0x342234…3423c8 [0x0b]: C0x010b.0x1.0
0x342234…3423c8 [0x0c]: C0x010b.0x2.0
0x342234…3423c8 [0x0d]: C0x010b.0x3.0
0x342234…3423c8 [0x0e]: C0x010c.0x0.0
0x342234…3423c8 [0x0f]: C0x010c.0x1.0
0x342234…3423c8 [0x10]: C0x010c.0x2.0
0x342234…3423c8 ]
0x342234…3423c8 }
0x3423c8…34255c Dummy {f00=0x0108, f01=0x0190, f02=»[& %6CR4$- D _ <D c D g D l D p D t D w D | V 6 d P d $ T1 2 r > &
0x34255c…3426f0 Dummy {f00=0x0108, f01=0x0190, f02=» B $ @ c B
0x3426f0…342884 Dummy {f00=0x0108, f01=0x0190, f02=» SYSVOL PTS-DE SYSFIL > : F0 F G H I J P V d
0x342884…342a18 Dummy {f00=0x0108, f01=0x0190, f02=» B 0 0 0 0 0 d SYSVOLSYSVOLOUTPUT 2 $ 6 < N L
0x342a18…342bac Dummy {f00=0x0108, f01=0x0190, f02=» : ( @
0x342bac…342d40 Dummy {f00=0x0108, f01=0x0190, f02=» # - . 2 B x X @
0x342d40…342ed4 (3, 233) Dummy {f00=0x0108, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x342ed4…343068 Dummy {f00=0x0108, f01=0x0190, f02=» *
0x343068…3431fc Dummy {f00=0x0108, f01=0x0190, f02=»
[…0x5…]
0x3439e0…343b74 (3, 234) Dummy {f00=0x0109, f01=0x0190, f02=»
[…0xa…]
0x344b3c…344cd0 Dummy {f00=0x0109, f01=0x0190, f02=» F J[&%j( ' ( - <- - - - L[" 1 A 2 W5 H J j#J B jB%! ! Z2 _71 A 2 _IjB'!P!jB(&H j
0x344cd0…344e64 Dummy {f00=0x0109, f01=0x0190, f02=» H_ #W 'W * H_ P0 C 4 0 4 0 f!0 f"0 f#4 1 A 2 _ !D; KL!D: KMW 1 A 2 _ JjB'!P! jB&! jB((K jB0&J 0 !& 0 B % * 6 H # ? H #? ,? 1 A 2 ? J F 1 A 2 ? ? 1 A 2 ? jB(&I jB.&I jB5! !0 B % * $
0x344e64…344ff8 Dummy {f00=0x0109, f01=0x0190, f02=» Z !!4 0T I - 1 / - 1 .L.T/xVJW U I Ip1</ . H K<TvV U E H G IdIhIXINIRI I`I H(BvI B:1 / U 1B. 0L0 1 0 .D 7 z 3 < I % / D _ s ' r
0x344ff8…34518c Dummy {f00=0x0109, f01=0x0190, f02=»OGRAM:UNIT NO.:COPY SYSFILCREATE FILEUSERDEFINEDVOLUME-NAME:CREATE VOLUMEVOLUME SURVEYCHANGE VOLUME-NAMEWHOLE FILE ? Y/N:COPY SYSVOL TO SYSVOLPRESS ENT TO CONTINUEPTS DATA-ENTRY UTILITIES PRR 1.0 790601 X
0x34518c…345320 Dummy {f00=0x0109, f01=0x0190, f02=» [ ( $ 6 F 4 + E 2 H ( 1 $ $ ' K 5 & . E 2 ! H # 2 & . E 2 ! H ) . 2 ! H + E 2 H $ D * $ % $ 1 $ 9 - Z 3
0x345320…3454b4 (3, 236) Dummy {f00=0x0109, f01=0x0190, f02=» %POSSIBLE TYPES - 1 (PTS-6875) 2.5 MB - 2 (PTS-6876) 5 MB - 3 (PTS-8863) - 4 (PTS-6877) 80 MB - 5,6,7 VACANT - 8 (PTS-6879) FLEXIBLE DISC - 9T ! $ ' * - 1
0x3454b4…345648 Dummy {f00=0x0109, f01=0x0190, f02=» ) < O f } # 0 H + d 0 E Q U, ( -p) -t) - * X ^L F C WB . A., ^L ^L ^L ^L ' [ 2h . =B . . X ^L C ^L ( B T B $ '
0x345648…3457dc Dummy {f00=0x0109, f01=0x0190, f02=»^L : X C C C ^L ( B ( ^L B & % ( ( T ( [ . ^L & G [ ^L F ' [ R : <<H P < : ^L ^L & / R P W W V V Q [ _> _D ^L
0x3457dc…345970 Dummy {f00=0x0109, f01=0x0190, f02=» I R < _ <h =_H ^L _ '_X _V : ^L ^L & ^L &9B %_ 0 ( = _ 0 _ ^L & ^L & ^L ( : ^L ^L ' ^L _ ^L & ^L U Z Q / _ _ W X ^L & C ^L ^L & C ^L & C C ( B XR
0x345970…345b04 Dummy {f00=0x0109, f01=0x0190, f02=»( B +_ A2 A1 A2 A2 A2 A2 2 P A2 @1 P =^ @2 : R !LLP< R 1 R 2 Y A2d A2b A2` Y A2` A2b @2dW S 1 A2` S
0x345b04…345c98 Dummy {f00=0x0109, f01=0x0190, f02=» P ! W B Q ( , X "' 7 _z "' A2H @2 5 R 0 $' R T W $ T A2H R !LLP @1 T A2* A2, R 1 R 8 A2< R 6! A2:PJ A2@ A2B @2* @2, Ab A2* A2,S$ @2@ @2B A Y4 @2* A2: @2, A2<W : A1 A2 @1 @2 @2b Ab
0x345c98…345e2c Dummy {f00=0x0109, f01=0x0190, f02=»2b A P Y @1 @2 A A1 A2 A2 R A2 A2 A2 . A2 9H A2Z A2X A2 A2 A2 @2 P A2 A2 B A5 ( B 7$ @5 C C @2Z C ( C B / 7 : @2Z:c A2^ A2. A20 A22 A24 @1 A2& @2 A2( A2@ @2& @2( Ab A2& A2( @
0x345e2c…345fc0 Dummy {f00=0x0109, f01=0x0190, f02=»R:Q @2, @2(U. @22 @2*Y R @24 @2,Y A2> @2* A22 @2, A24_ @2* A2. @2, A20 @1 A2* @2 A2,W ; T^ Q 1 Q Q 2L R A2N @2 A2V A2X @2Z C ( C @2T /T @2fT : A2f : W W : _ @2 T _ _ R @1 A2* @2 A2, !LLPJ @2. T @20 @2b
0x345fc0…346154 (3, 237) Dummy {f00=0x0109, f01=0x0190, f02=»2, P P Ab Q Q @2. Q @20 1 ; 6 P A2. 0 A20 A2* A2, @2b A A2* A2, @2* @2, @2b Ab A2* A2, @2. @20 @2b A A2. A20^6 @2* @2, P P Ab Q Q P A2. 0 A20 @2. @2* @2, A A2. A20T Q Q @2. Q @20 1 @1 @2 @2* @2, A A1 A
0x346154…3462e8 Dummy {f00=0x0109, f01=0x0190, f02=» . P* @2HP @2: A1 @2< A2 @2J A2b 3 5 : : A2 @2 @2 A2 2 C A2 @2 @2 7 A2V A2X ( @2T / 7 2N 6 P J S T $ 1T P _ 2 X`_2 A2 : @1 T 9~ @2 7 Q : 2 9~ @2 ? @2 K @2 K @2*
0x3462e8…34647c Dummy {f00=0x0109, f01=0x0190, f02=» " ? R !LLP R 6 K % R 4 K & K ( K ) ( @2T / 7 : @1 T 9~ @2 7 Q : 2 9~ @2 9| A2 < 2 A2N @2` % @2N R 2 R 1 % Y @2* A2@ @2, A2B @26 @28 A2D A2F Ab A2* A2, 2L @2` C @2D A2V @2F A2X( C @2D @2F
0x34647c…346610 Dummy {f00=0x0109, f01=0x0190, f02=» 7 @2D @2F @2b @2HP @2J Ab A2D A2F @2* @2DY`R @2, @2FYl @2@ A2* @2B A2, : A2 @1 Q6 A1 ? ? ? A? ( ? 9 A? ( @ ? @2 0 A@. @26 @28 @7 A @2* @2, @G A 2 @M @2 T @V ? @ A A@ ( 2L @2 :
0x346610…3467a4 Dummy {f00=0x0109, f01=0x0190, f02=» 2 ? @2 - ( @2T / 7 J A2 J A2* J A2, J A26 J A28 < R @2Z9c A2^ @2^ ?j 0 A=> 0 A=@ @=>T @=@ ?d P @26T P @28 =n A2@ A2B A=< @=> @=@ P P Ab A=> A=@ @2@ @2B @=< @26 @=>Tr @28 @=@Th P A26 P A28 A2@ A2B A
0x3467a4…346938 Dummy {f00=0x0109, f01=0x0190, f02=»=> A=@ @2@ @2B @=< @26 @=> > @28 @=@ > @26 Q @28 Q _ > =n 9* @2* I @2, ) @26 I @28 I =n ( - : ? FILE ? 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH @ A
0x346938…346acc Dummy {f00=0x0109, f01=0x0190, f02=» B@ @^ @^ ' @^ @^ d @^ @^ @t Z Z Z Z : : ; A @ : V *W R - _ 1 T R PA - _ : [ S Q"R S P W S _ R Q _ ;A [
0x346acc…346c60 Dummy {f00=0x0109, f01=0x0190, f02=»2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 ^L #0 0T & ! T P & ! X T C [ G@ G L Y ( x P Y * D x y Wv X " C X X . 8 HH U X 0P X T 5 ! Y * D y X V& X ( K x C ( Y * X Y
0x346c60…346df4 (3, 238) Dummy {f00=0x010a, f01=0x0190, f02=» X *YrP y X " x Y X " T Y _ F _ B U C Q C DC C C D DXFPF^D X X * $" ~_> @ Y X * C _R X !@XX y X # x V y X X * K P P 1 _ 1 D X * B X X * $" X D % " X # X * K y _< X # X * y
0x346df4…346f88 Dummy {f00=0x010a, f01=0x0190, f02=» Y ] G y x C y X C C X ( x Tf B F 9 R 9 FB X ! T F _ y C Q " T L K X ! G, X X ! x Y~ Y _ X "@P B R y C B P 9 V F _F9 VV X ! T X !@X y C _d y C
0x346f88…34711c Dummy {f00=0x010a, f01=0x0190, f02=»_. B ]d P C Q8X8_H x XD @ Y c C y XR X x K G, E x X X # K _ B F C K : + L X K K ( Ut ^L ( U T : B G< C _J + . U X 9 V ! P @ Y ^L#0 r Y Y . X ! r
0x34711c…3472b0 Dummy {f00=0x010a, f01=0x0190, f02=»U ^L !0 r c6 U X "T X T K T U ^L !0 r X U HH T Ut ' ^L ! Y 0T V U c6 : U 2' rR ^L " P # P r R P P X ' ' [ X _ X ' _ X '?_ U ^L ! P # P r X '
0x3472b0…347444 Dummy {f00=0x010a, f01=0x0190, f02=» U Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 L W U X Q M W Y 0 L N X W U 9H Y * K|W W Kl W X 0T rV X 2Z X +" X *9h P: R Y >_ P R P R rR Y +Wl K Y + K L WZ T R( K J WJ Q W Y +
0x347444…3475d8 Dummy {f00=0x010a, f01=0x0190, f02=» 0 X 0 X 2] X 8 Y 0 K : X 0 :H* U : X 2T Y 2 : C 1 B ] W : Kl X +! rR X +! U 9K Y ( Y + L N U 9H Y * 2 Y ( Y > Y + ^L K 4 0 ] K 6 2 X 0 rV : ! P # T : r C ( C : C B _(
0x3475d8…34776c Dummy {f00=0x010a, f01=0x0190, f02=» ( U B X # V : ^L k@_0 ` _>n n ^Ln n n m n m k j k jhNTO O n NFn kV W W X 0Q M M Y ( Y *P W iv L X <' X X i U X *# X ( " Q " P X 0PR V _` " PL T " Ph R U Wp " P Y 0] Y (_z P
0x34776c…347900 Dummy {f00=0x010a, f01=0x0190, f02=» rZ P W T C W @ X (T W X y 6 Y ( : X (;n T n k@k k@k(O m n m k j k jhNTO.O.k NFn kV U Y . Y ,W U Y . X ( X ." PV X 0RzT$ Y *P U :H U N K T k|W kr X . X 2QP Y *T2 kh : " P$ X 0U X *# P P
0x347900…347a94 (3, 239) Dummy {f00=0x010a, f01=0x0190, f02=»OT : X > T X & V D ! T W kh TH U X >P( R Q" X & V D ! P $ ! P %_ kh : U V Y " X .9H $ m P & X ( " Q Y +Q R " P W " U R Y , " Q " rZ X . X 0R P" X *:h P PD rZ) Y (W X *:h Pt Pn
0x347a94…347c28 Dummy {f00=0x010a, f01=0x0190, f02=»S Y ( j : X *:h X (! # P X & V L TbW X , X 0P@ R8 T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l R _r X ( P Y (_ P* RX P| Y 8 OT X 8 X $ U Wh_ " P X ( T X & V H "@TF RX P6 V Y X (P TH R
0x347c28…347dbc Dummy {f00=0x010a, f01=0x0190, f02=» & V ( P RX : : R "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : U X : X ( T X & V H " V Y : X $ U X : U : X Y " X Y $ X Y & X @W X < Y = " Ut ! T W n ! P =H
0x347dbc…347f50 Dummy {f00=0x010a, f01=0x0190, f02=» , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y ^LW Y ! P ] W V Y TH V Y : ^L k@ : 2' " P T ` W ] k : T> : U W T C T X U : "0P ' Q W '
0x347f50…3480e4 Dummy {f00=0x010a, f01=0x0190, f02=»( R : V E V D ' $ rr W U0 P [ X =' V W V Y =P U0 : ( [ ^L#0 T ^L#0 T V [ rv W X W U / W _ X Y* X P ^L <H : V W X X ^L / <H "!@ rN :
0x3480e4…348278 Dummy {f00=0x010a, f01=0x0190, f02=»W X ( Wb ^L X X ( 1W" C C C " rf ( ' P" WD P B % P C + Y [ XP I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : X W i W C W@ C B B
0x348278…34840c Dummy {f00=0x010a, f01=0x0190, f02=» ^L & r r C ^L "!@ rN : B T T T V : 2 ' W 2 6 2 @% " T # ' ?D `@W.' #? `* V H rj ;D:B " : _, ^L C : : X X ] P C W $0 P r C YR
0x34840c…3485a0 Dummy {f00=0x010a, f01=0x0190, f02=» P P* 9A:AV X R _ V 4 _P :#0 T B 'W r B B " Y : PZ Z PR LZ R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U
0x3485a0…348734 (3, 240) Dummy {f00=0x010a, f01=0x0190, f02=»] ]|] ] [ [ [ [ U4 W V 7 T V P U0 P W [^ @[ R q uj l pVP 9c DZ ^L ] Q Z W bB :aW, @[ YRP qf @[ ]^ q @[ ]h q`_n rv 2 P V W< _ 2 # ;B ] V T ( W V P L
0x348734…3488c8 Dummy {f00=0x010a, f01=0x0190, f02=» P D $ V 6 V % V E @% ' T 2 % 7_ 2 # PH L' PB ^L 2" &] Y $! 6P Q $ T 9BP _ _ W [ 6 @% " T 7 $ V P U0 W _ Z [ ` V & [ H[ 'W 'W '_6%D%L%H
0x3488c8…348a5c Dummy {f00=0x010a, f01=0x0190, f02=» L] D V, W # `* L] E V $ W D V L] , W 6 2 `@W$ " P& Pd" # `* ;b Wv " ;d# _ [ v [ Ut ^L U Z Z : R ; ^L 6 : F _v r&:B ,
0x348a5c…348bf0 Dummy {f00=0x010a, f01=0x0190, f02=» r& ^L : & r* & Z 4 `z : Z 4 " 2@P : [ [ ^L & @%Z! P r* Z r* [ 6 [ Z 7 ] Z 7 : ( :A ( @% " P ! P [ :;H 2 ^ ^ ;h `4 : ; V
0x348bf0…348d84 Dummy {f00=0x010a, f01=0x0190, f02=» r " T & T + : * & !@P `1` P b Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@
0x348d84…348f18 Dummy {f00=0x010a, f01=0x0190, f02=» * & !`P :J +_ +Q b _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b d P P PF P 0 - P0 _ 4
0x348f18…3490ac Dummy {f00=0x010a, f01=0x0190, f02=» 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 : r" &9d! + P( & T 9d! T 7 V Y " WJ Q V
0x3490ac…349240 Dummy {f00=0x010a, f01=0x0190, f02=» : V S W P 9 S W _ V P W T V E + : & 6 r& [ [ [ [ $ [ [ >h [ [ h c6 h c6 h ` Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P h ` V H )_ h f
0x349240…3493d4 (3, 241) Dummy {f00=0x010a, f01=0x0190, f02=» 5 : 0 r !0 r " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 r& [ [ [ [ $ [ [ h c6 h c6 h ` z
0x3493d4…349568 Dummy {f00=0x010a, f01=0x0190, f02=» [ h ` { R [ _ h ` h f Z ! Z $ Z %_N [ Q* h ` h b R [ Z { h ` z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x349568…3496fc Dummy {f00=0x010a, f01=0x0190, f02=»jp K K K K V K : ^L i iv i ] V j jp k V Z P 2 " T W "@T '?W "? Hi6" K :e J J " J _Z Z j [ Z P U0 [ V r& 7_ Z k U0 Z 7
0x3496fc…349890 Dummy {f00=0x010a, f01=0x0190, f02=» Qx : Pn 4 ! Th_ PX 4 WT K k WJ kxW +_ k k K W. _& X W W X & W J K : V : J T r6 1 : + ^L [ [ < !AAP !TTT W !**T * [ R !FFP !EET W Im 6 * B Z 9 ! ; *Xt
0x349890…349a24 Dummy {f00=0x010a, f01=0x0190, f02=»_ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? r: Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W l< 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 k( m : ! P ! P ! P !
0x349a24…349bb8 Dummy {f00=0x010a, f01=0x0190, f02=» : p: i : { : p"$0T o Pd 9 _ p"$0T [ p"$0T Z : R& P $ 1T Y TfW 5 _( : p"$0TH $ R W R # P W ) V E p:$0T Wr W W rv
0x349bb8…349d4c Dummy {f00=0x010a, f01=0x0190, f02=» : ^L ^L#03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : o ] #03 T $_X o _^ W rv pV p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE
0x349d4c…349ee0 Dummy {f00=0x010a, f01=0x0190, f02=» pV p ApN ) Y V ApZ p^ V %j uN v uH ApN : p Wr p 2 ^L pp uH uN & uH p Q pV ApNW* p ph V D ! )0 1 6 V 9 uH ApN q [^ pJ ( < ( : Wp Wl Wh Wd W` W WX
0x349ee0…34a074 (3, 242) Dummy {f00=0x010b, f01=0x0190, f02=» Ap ER App R Apr pt uH r R 4 uF 4 ApN px U 4 - _ q pp @pN v [^ ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTED LENGTH STACK UNDERFLOW ARITHM OVERFLOW STACK OVERFLOW IN
0x34a074…34a208 Dummy {f00=0x010b, f01=0x0190, f02=»ZATION 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 REFERENCE TOO MA
0x34a208…34a39c Dummy {f00=0x010b, f01=0x0190, f02=»W %j - <a R 9a V u : rv @u P ( _ @x P @x Pj Pf w V $ $T$ D BR V T D P T D @PL E @W . @w P$ vR w $ $P BT , D E @ : @u P Au H Ax W TW V Au x" x V Ax$ TB( y~( Au x @x$ V
0x34a39c…34a530 Dummy {f00=0x010b, f01=0x0190, f02=» V P ( R W : ILLEGAL DATASET REFERENCE TOO MA
0x34a530…34a6c4 Dummy {f00=0x010b, f01=0x0190, f02=»W %j - <a R 9a V : rv @u P ( _ @ P @ P P V $ $T D R V T D P T D P x* %j (
0x34a6c4…34a858 Dummy {f00=0x010b, f01=0x0190, f02=» _" = x T x " R XW " , x 9a F @yTP r < X n x" @x&P R @x( Ax& AyV AyX "V # ( x AyVP UW T x X AyVP {, *z @{ z =|| W| Q}F M~ / b S D I J f T Y G L @ P f H v R V
0x34a858…34a9ec Dummy {f00=0x010b, f01=0x0190, f02=» A{& A{( P A{& A{( *{~ |X ,{ +| -| ;| :|F ({ .|N x X " , A{( L A{$ L @ A{ A{&_T X ,T X ) A{ A{ *{ |X ;| :|F |^ @{&P A{*1+X A{*_ |^ @{ A{ @{ A{ @{ A{ @{ A{ _ A{$ @{ V |^ " @{&T " @
0x34a9ec…34ab80 Dummy {f00=0x010b, f01=0x0190, f02=» W @{"T @{ Z $ @ Ay^ v W fW 0 A RW R A A @ " W x @yj A{ @yd A{$_x x AyX PZ @{ & v 0 " P P n P @R r < _ f R F x_T R } zb 4 " T P n
0x34ab80…34ad14 (3, 243) Dummy {f00=0x010b, f01=0x0190, f02=»>a A Ayh @{" Ayn @{$ AybP W @{"T @{ Z $ A @ zb @ Ay R " R ^ R R A zb @{ R V ;a Q _ 1 zb f @ Ay _ 0 " X A Z {, P 3P z C @{ P @{ 1 @yXP @{ Q @ @{$ Q P
0x34ad14…34aea8 Dummy {f00=0x010b, f01=0x0190, f02=»yZ 0 < X {, P z @{ P @{ 1 zb f R A @ " v @yf A{ @y` A{$_ @yTP @{ V @x$( z V " @{$T @x" TP @{ P @{ A Ayd Ayj | v 0! F X {, T @{ P @{ " 1 zb z Px @{ @{ @{ @{$T @x" VRX A
0x34aea8…34b03c Dummy {f00=0x010b, f01=0x0190, f02=» " ! U 0 A FU &_ "P` @{ @{$T @x" V PF R % < < v ! F X {, T @{ P @{ ! 5 = zb z z zbP @{ z RW" w w $ B % Aw zbT @x W @{ AyV { @{ R Ax$ AyV Ax @x"( zb AyV {
0x34b03c…34b1d0 Dummy {f00=0x010b, f01=0x0190, f02=» * RR @{$T @x" V *w Rl ) I I @ I B Aw W PT RN )W w Aw zb w , A L A L:B A LQ (P _ H B @{$ H A L " z EQ GT LT NE NG NL P2 @yT R* * @{ P Q ( zb z L U w ( R (
0x34b1d0…34b364 Dummy {f00=0x010b, f01=0x0190, f02=» @{ V @x$ Q B 1 @{$ Q Q @ Aw " w ( R$ ( @{ V @x$ H B ) I B " z $ % " # C C C C *T W #T A{" :P PR (T Pl ,T P^ )TX A{$ T @x" VR: ?aP *:l" T* & W T C
0x34b364…34b4f8 Dummy {f00=0x010b, f01=0x0190, f02=» L ?b J P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL p p W C " _* Q P Q V _ W " A < V " %V F <P W* @yT" P
0x34b4f8…34b68c Dummy {f00=0x010b, f01=0x0190, f02=»X X z " , , A A :B A Q (P _ # # H A " A A 4 R " 4 @ I T A A A T A T @{ R $ A N @ " P P (T @yT! PD @{$T @x" * " Q";H @ ;d ( @ "( z @ " :S
0x34b68c…34b820 Dummy {f00=0x010b, f01=0x0190, f02=»R$ 9U AR FQ 0:D A _* 'T :H_ A " A A 4 R " T A A " , "! R _U .WV A :: F A : " 9d F ! R :W& x W x W W ?W :W .W / a 0 A 0 T " @ T A
0x34b820…34b9b4 (3, 244) Dummy {f00=0x010b, f01=0x0190, f02=» " ! / 1 2 2 Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ A N @ " P P (T @yT! P @{$T @x" * Q ;H @ ;d ( @ "( z @ " :S
0x34b9b4…34bb48 Dummy {f00=0x010b, f01=0x0190, f02=» < 0 4 8 j!j" !: h"h! x"x! f"f! `"`! z"z! b"b! I0 f# P 0 f#@" 4 d!!? ! `! !!Cjb! "C%jz! "C! ! ! " 9 h! "!P h! & _O@ h#h! x#x! `#`! z#z! b#b!!FD 1 "A 2 !GC 3": 4#: !FD 1 !A 2 !GCJ AG ? U! !" 7 jA!" " 8" :
0x34bb48…34bcdc Dummy {f00=0x010b, f01=0x0190, f02=» )S1 0 ! 0 2 GC+ *"_!!FD G 1 A 2 GCH -# )#^R1 0 ! 0 2 GCg_! j!j" f!f" h!h" x!x" `!`" z!z" b!b" d!! f!f"A" "Ra j!j# f!f# h!h# x!x# `!`# z!z# b!b# d!! f!f#A" "R.0 R0 CI4 f!f h!h x!x `!` z!z b!b 4 ( * 1 _< S! Yj
0x34bcdc…34be70 Dummy {f00=0x010b, f01=0x0190, f02=»X " ! ! U _ P ! !D: (W " ! $!D: )W ! ( ! S" , ! !!D: (R E ?_ ( W3 !( ! 0 ! !( ( j ! _V !# A _ 0 f! ?SR& ! !P S S !( ! _ 4 #_ S
0x34be70…34c004 Dummy {f00=0x010b, f01=0x0190, f02=»IL COPY JOB:COPY FORMAT: K J H G [ COPY VALUE-SETS ? COPY SYSTEMVARIABLES ? ? (0 4 % ; L x!x `!` z!z b!b 4 ( * 1 _< S! Yj
0x34c004…34c198 Dummy {f00=0x010b, f01=0x0190, f02=» z 0 ! 4 2 "W #W &W + #4 _ j ! ! C ! B _" 1_ j ! ! ? @( A,_; Z;2 HI6_@ GL 4W T " e_Z Y Y0 ""_g T X)D; W G ( Y Y!D: 0 ##_ 0 ##_ 4 _ P P P( 0 P0 CH
0x34c198…34c32c Dummy {f00=0x010b, f01=0x0190, f02=» ? P P P( QPjB&!P!0 P0 CH ( 0 ""0 !!!ZD !ZE (HI ? ? ? ( E ? P P"X P( RPjB'!P!0 P0 CH 40 $$0 ""_N W W$ $ = ! X 0 "#? ? X X ? ^" ^"2 ? &8 ! b ! _ "P$ P!W P# P<4 !4 "4 #4 $4 4 8
0x34c32c…34c4c0 Dummy {f00=0x010b, f01=0x0190, f02=» ( 0 !!_32 #@ 4 0 : , "? o2 B0 3 2 !W 0 ( _ "0 0 2 ! W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0!X Z [ 7 HH:HH:6:::6:6?! We !0" ?! #0# X
0x34c4c0…34c654 (3, 245) Dummy {f00=0x010b, f01=0x0190, f02=»$$%?! 2 !! #4 0 0 ?! !4 % I ^ | 5 E { % ; 7 D 2 < a K m z y 6 a W v s N x r 0123NY 'g
0x34c654…34c7e8 Dummy {f00=0x010b, f01=0x0190, f02=» r @ 2 A ! [ ! ?& !0' !T J _ : I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P !0' ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ; ( j ! ! ! > ? j " $ j !! 1 j !!
0x34c7e8…34c97c Dummy {f00=0x010b, f01=0x0190, f02=» !W h ! !Z< ") A U j !! 1j !! 2$U *U _b " % ? j !! 'I A ( j ! ! h 0 !f ! !j '! !j !! ( _> |( + [WWj !! ' !QD j !! 0( (T I 1! < ) = W ?b ! W h 0[ !A j ! !d ! j '! !j !! (( + b +$
0x34c97c…34cb10 Dummy {f00=0x010b, f01=0x0190, f02=»j (! ! _ f ! !!4 6 @W [ j !! W j !! (W [j ! j '!!! !j !! j (! _+( # j (! !j !! 4 A 1 7 4 ' 5 i F TFX E SEEE SSSSEEEEE SSSSSE SEEEEE SSSSSP
0x34cb10…34cca4 Dummy {f00=0x010b, f01=0x0190, f02=»AA TTTTTTT AAAAAD D A A T A ADDDD A A T A AE N NN T R R YEEEEE N N T R R YD D AAAAAAA T AAAAAAA --EEE N N N T RRRR Y YE NN N T R R Y YEEEEE
0x34cca4…34ce38 Dummy {f00=0x010b, f01=0x0190, f02=» U TTTTTTT I L I TTTTTTT I K G I J H L ) T M ) S Q ) R M ) O N ) P W 6 F V 6 B V 6 C V 6 E U 6 D [ ( 5 B S h } " " *
0x34ce38…34cfcc Dummy {f00=0x010b, f01=0x0190, f02=» $ @`@a@b@d@f@h@i 2 # Hh ! ( Hi A 4 $ !"4 "!4 !!4 I! @gW >0 0 ;V # 4 A!0)_ @!P W >0 0 4 b !& 4 6 &90* f! ? P Kj 4 0 f! ? P Kj 4 0* f ? P Kj 4 0 f ? P
0x34cfcc…34d160 Dummy {f00=0x010b, f01=0x0190, f02=» x 0 f C= V 4 0* f C= V Kj h x b )*C b <C* 4 Ic ! W # 4 Ic " _ $ _ # CR b s <C*j s)" 4 CCbC*< s j " s) $ C 4 V A` Bb " j $" uV> u j " " ( R#j $"u ^&j "C" R j $" 5W j ""u j $" j &"*
0x34d160…34d2f4 (3, 246) Dummy {f00=0x010c, f01=0x0190, f02=» h 0+ ` !"` b 1AiW-j " - R R _9 W Ie Ae "_ *" ! Ah 4 0, ` !( ! Ah 4 ! ! > ? h j " / , ( j " 1 !" $ ) h 4 -j " R R _a _) +_% 0- 4 ! ! ! " V 0)_ " b )*C b
0x34d2f4…34d488 Dummy {f00=0x010c, f01=0x0190, f02=» W ( A I 'W R j " $j $" R Ic ! 4 $ J E A } I C g [ ' r ]
0x34d488…34d61c Dummy {f00=0x010c, f01=0x0190, f02=» & 4 R 2 H 0)_ A"T A @c d!!"d!!y F j!0 f!C P 0 f!@" 4 d!!WX [ !0' !T C !_ ! `! !!Cjb! "C%jz! "C! ! ! " O h! "!P h! & _e 3@ 4 H"-@" d!!"d! " !T !!CT "!CT h! & 0 f! 4 H 0)_ #! R R W A#T A @` d ! d !
0x34d61c…34d7b0 Dummy {f00=0x010c, f01=0x0190, f02=»h & 0 f 5@# d !W H` A@ 4 H#2@# d !Q* T h & #! T j ! ! $! T 0 f 4 j? " )(? ??j " '( ! ?0. * 6 GW > / p 4 : !: ) W} $ ! CV ! <5? j "C&# =1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !:
0x34d7b0…34d944 Dummy {f00=0x010c, f01=0x0190, f02=»@jC " _V A`_1Ab t 0& P v$ w Ib w4(v $C*: v w w( : !vCV ! < ? ) v ? j "C&Hb$ w* w wW0 $j "C * v Jb= w _B$w4 , w w w*_- w> "_- " Bb !&C b &C ? < @c $C*: &j "C&fC * *jC&" " * @c C: " C: ! C: "V )( )
0x34d944…34dad8 Dummy {f00=0x010c, f01=0x0190, f02=» [ g r D F F X FC PTS-DE SYSFIL 0 ! GW > / p 4 : !: ) W} $ ! CV ! <5? j "C&# =1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !:
0x34dad8…34dc6c Dummy {f00=0x010c, f01=0x0190, f02=» 8 F T v : '6 (t ]@c $C*: Ca< C[ ! C "V t ! > ! ? AfT ? )? t j "C$ j !!C( j !!C) ! V -? t_Y j <C*j )*C ! ! ! CV & _oj "C$j !! (_3 $ &q q ? 8? Ha j !! '$ ! _ ? %_5Aa_ : CB * !b
0x34dc6c…34de00 Dummy {f00=0x010c, f01=0x0190, f02=» _0AaW3jC " "'C< ! C< j "C$ !< & _ A%6 : b "A! % @ !? !'CP =< H`l CC "'C: " *j "C ( H`O !: jC " "'C: _ Ca ! C< j !!C)*U !j "C$ !H` 1h r !C(!X _ )? C`< ! ! ! < b )*C b <C* $ &r r ?
0x34de00…34df94 (3, 247) Dummy {f00=0x010c, f01=0x0190, f02=» R j " $j " * ` 4 j " " & 6 jC " 4 j "C !"4 !!4 E P r D [ _T SV TC 8? Ha j !! '$ ! _ ? %_5Aa_ : CB * !b
0x34df94…34e128 Dummy {f00=0x010c, f01=0x0190, f02=» . A`Ad : Ac # *V ) ? Hd ? @ ,V ) ? Hd ? Id (? : *mj " &" pz j " "j &" : * Jj "" j $" @ : j " " u : j "u "j &" : [j &"* W K #j "" j $" *_zj $" : Kj "" _(j " &" p _z
0x34e128…34e2bc Dummy {f00=0x010c, f01=0x0190, f02=» u u , ) )? j ! b !& b '&@ ) V5 ! ! " : * s [j s)" Id ? u) > ? =? : VP! > ) ? # W !: CLjC"" jC$" bC*< " C: ! C: jC$" " C? bC*< " C? '6 @bT # : ! CV ! > ? )? Gb &C
0x34e2bc…34e450 Dummy {f00=0x010c, f01=0x0190, f02=»? Ka %_1Aa_ : @c CH H C[ "#C? $W " #0& T : j "C IAb_ A`Ac0& TY # *RnH`. $* j " $ Z : j " &* *K ,H` b & ? 0&@T$ @ ,R. & =b@ & ? #X;! > ? : j " &* * ,_' )? # ! CR Gb &C j "C$ ! ) 4 j "
0x34e450…34e5e4 Dummy {f00=0x010c, f01=0x0190, f02=» 0 f!CMHP HIP KL1 A 2 _ >H J YjB'!P!0 !% jB&! jB((K bB0&J AjB !!! BjB "> !D: !DR XjB ! ! WjB " W X EjB " DjB " CjB " 00B % * 4 ) :_ E Z r D g [
0x34e5e4…34e778 Dummy {f00=0x010c, f01=0x0190, f02=»XZZZZX M O Y % $ Q X [ * $ M O Y [ 1 $ $ ' K N O W P X [N " % ( , 7 G0 ] + 6 I f
0x34e778…34e90c Dummy {f00=0x010c, f01=0x0190, f02=» V J N R !1 PVQ = >0 % < "1 < 0 W 1 !0 ( 0 ! _3 86 _'0 W 40 4 [ ? 0 0 6 4 A _ 0 0 4 4 r 2 3 1 I/O-ERROR DISK OVERFLOW ILLEGAL VALUE DISK NOT USABLE NO REC
0x34e90c…34eaa0 Dummy {f00=0x010c, f01=0x0190, f02=»ISC READING-ERROR MAXIMUM SPACE USED USERFILE CLOSE-ERROR NO WORKSPACE IN CORE USERFILE ASSIGN-ERROR OUTPUT FILE TOO SMALL OUTPUT DISK NOT EMPTY FILENAME ALREADY USED SYSTEMFILE CLOSE-ERROR SYSTEMFILE NOT CREATED SYSTEMFILE ASSIGN-ERROR ILLEG
0x34eaa0…34ec34 (3, 248) Dummy {f00=0x010c, f01=0x0190, f02=»RFILE NOT CLOSED IN PREVIOUS SESSION. *WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE *SYSTEMFILE NOT CLOSED IN PREVIOUS SESSION. -MAXIMUM LINE-,FIELD- OR RECORD-SPACE EXCEEDED5$ 46!0/2 7',;#*.&"31-+)(%%:895 / A S e y
0x34ec34…34edc8 Dummy {f00=0x010c, f01=0x4014, f02=» HNOD / @ / G [ COPY VA . * & LUE-SETS ? COPY SYSTEMVARI . 2 * & ABLES ? ? . ` * & . * & (0 4 . ) % ; L .
0x34edc8…34ef5c Dummy {f00=0x010c, f01=0x018e, f02=» IDENT P:S002 0 * & 0 ! 4 2 0 " * & - "W #W &W + #4 _ j 0 P * & K ! ! C ! B _" 1_ j ! ! ? 0 ~ * & i @( A,_; Z;2 HI6_@ GL 0 * & 4W T " e_Z Y Y 0 * &
0x34ef5c…34f0f0 Dummy {f00=0x010c, f01=0x0190, f02=» * & P0 CH 0 ""0 !!_ K 1 * & KM KL ( ! b ! _ j ! 1 2 * & ; >8 1? P )ZF P &W $P" 1 ` * & Y "P( 0 P0 CH 0 ""( H0 ! 1 * & w !? ? P P P( QPjB&!P! 1 * & 0 P0 CH ( 0 ""0
0x34f0f0…34f284 Dummy {f00=0x010c, f01=0x0190, f02=»$ = ! 1 t * & X 0 "#? ? X X ? ^" 2 * & + ^"2 ? &8 ! b 2 @ * & I ! _ "P$ P!W P# P<4 !4 2 n * & g "4 #4 $4 4 8 I 6 2 * & / 0 ! W(0 ! W!0 ! W @ 6 2 * & 0
0x34f284…34f418 Dummy {f00=0x010c, f01=0x0190, f02=» #@ 4 0 : , 2 * & "? o2 3 * & 9 B0 3 2 !W 3 N * & W 0 ( _ "0 0 2 ! 3 | * & u W&0 A 6 *.RV 3 * & .W !@ 4 "*0 _,0 W 0 W 0 3 * &
0x34f418…34f5ac Dummy {f00=0x010c, f01=0x0190, f02=» ?!0$ ?"0 0 % 0 3 * & ) S 0% P 0& Q )L *P #4 4 . * & G 0 0O $ % 0 0 9<# 4 * & e 2 !$$%?! 2 !! #4 0 0 ? 4 ! !4 4 * & % I ^ | 5 4 * & E
0x34f5ac…34f740 Dummy {f00=0x010c, f01=0x0190, f02=» W v 4 DECHK1 5 $ DECHK2 5 6 DECHK3 5 H * & T s N x 5 Z DECHK4 5 DECHK5 5 DECHK6 5 DECHK7 5 DETCHK 5 DESTAT 5 DERROR 5 , (
0x34f740…34f8d4 (3, 249) Opaque[0x194]
0x34f8d4…34fa68 # DirEnt {nam=»CONFPR«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2198, f03=0x0000}
0x34f8d4…34fa68 IdxSect {
0x34f8d4…34fa68 f00 = 0x010c // 0x34f8d4 @0x0
0x34f8d4…34fa68 f01 = 0x0002 // 0x34f8d6 @0x2
0x34f8d4…34fa68 gno = [ // 0x34f8d8 @0x4
0x34f8d4…34fa68 [0x00]: C0x010c.0x3.0
0x34f8d4…34fa68 ]
0x34f8d4…34fa68 }
0x34fa68…34fbfc Dummy {f00=0x010c, f01=0x00e0, f02=» T; 01; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v C; P01; PTDC=T03; PLC=07L; 02; SDC=S01; SDC=S03;
0x34fbfc…34fd90 Dummy {f00=0x010c, f01=0x2008, f02=» 01; TID=T1; TCL=T1; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v C; P01; PTDC=T03; PLC=07L; 02; SDC=S01; SDC=S03;
0x34fd90…34ff24 Dummy {f00=0x010c, f01=0x0190, f02=» : : , ( : < 2 C C ( ( , ( B & B .P " T X CRVOL , ( : A @ A @ A 2 & IPL811 IPL812 IPL813 * & 7 R ' P
0x34ff24…3500b8 Dummy {f00=0x010c, f01=0x0190, f02=»[+ l IPL411 IPL412 IPL413 , ( [h 4 &[4 4 P X . , ( rS S E &q+ ^ IPL111 IPL112 IPL113 , ( W R &? &@ X IPL121 IPL122 IPL123 * &
0x3500b8…35024c Dummy {f00=0x010c, f01=0x0190, f02=» " $ &? &@ IPL211 IPL212 IPL213 " , ( / W R X & ( * D IPL221 IPL222 IPL223 t , ( @ I * L L P X , . 0 IPL231 IPL232 IPL233 , ( c 1g 1h P
0x35024c…3503e0 Dummy {f00=0x010c, f01=0x0190, f02=» ( B x , ( " P C C VOLNAM H , ( ( C 8 < Z , ( 2 C I I " C ( , ( ; ( C W B 9 , ( [ R ! T :
0x3503e0…350574 (3, 250) Opaque[0x194]
0x350574…350708 # DirEnt {nam=»DERR:O«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x350574…350708 IdxSect {
0x350574…350708 f00 = 0x010d // 0x350574 @0x0
0x350574…350708 f01 = 0x0006 // 0x350576 @0x2
0x350574…350708 gno = [ // 0x350578 @0x4
0x350574…350708 [0x00]: C0x010d.0x0.0
0x350574…350708 [0x01]: C0x010d.0x1.0
0x350574…350708 [0x02]: C0x010d.0x2.0
0x350574…350708 ]
0x350574…350708 }
0x350708…35089c Dummy {f00=0x010d, f01=0x0190, f02=» P IDENT DERROR 78/02/01/PEEN P* ( P* USER = S:DA 2 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE H 2 P* IT - POSITIONS CURSOR AT THE 24TH LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE 24TH LINE > P*
0x35089c…350a30 Dummy {f00=0x010d, f01=0x0190, f02=»M DDINIT PDIV P ENTRY DERROR P ENTRY CANC 4 P ENTRY DESTAT H P ENTRY DECHK1 ^ P ENTRY DECHK2 t P ENTRY DECHK3 P ENTRY DECHK4 P ENTRY DECHK5 P ENTRY DECHK6 P ENTRY DECHK7 P ENTRY DETCHK
0x350a30…350bc4 Dummy {f00=0x010d, f01=0x0190, f02=», C P : P ERFM08,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM14, C : P ERFM15,ERFM16,ERFM17,ERFM18,ERFM19,ERFM20,ERFM21, C J : P ERFM22,ERFM23,ERFM24,ERFM25,ERFM26,ERFM27,ERFM28, C P ERFM29,ERFM30 P* PERFM01 FRMT P FSL & P
0x350bc4…350d58 Dummy {f00=0x010d, f01=0x018e, f02=» P* PERFM03 FRMT P FSL & P FTEXT 'I/O-ERROR' 2 P FMEND L P* Z PERFM04 FRMT d P FSL x $ P FTEXT 'ILLEGAL END-OF-ITEM KEY' P FMEND P* PERFM05 FRMT P FSL ( P FTEXT 'COMPULSORY FIELD NOT FILLED'
0x350d58…350eec Dummy {f00=0x010d, f01=0x0190, f02=» P FSL " P FTEXT 'FILENAME ALREADY USED' P FMEND 6 P* D PERFM08 FRMT N P FSL b " P FTEXT 'OUTPUT DISK NOT EMPTY' n P FMEND P* PERFM09 FRMT P FSL $ P FTEXT 'SYSTEMFILE NOT CREATED' P FMEND P*
0x350eec…351080 Dummy {f00=0x010d, f01=0x0190, f02=»-NAME MUST BE "SYSVOL"' P FMEND P* . PERFM12 FRMT 8 P FSL L P FTEXT 'FILE NAME UNKNOWN' X P FMEND z P* PERFM13 FRMT P FSL " P FTEXT 'NO WORKSPACE IN CORE' P FMEND P* PERFM14 FRMT P FSL
0x351080…351214 (3, 251) Dummy {f00=0x010d, f01=0x0190, f02=» RECORD FOUND' P FMEND P* $ PERFM16 FRMT . P FSL B P FTEXT 'MAXIMUM SPACE USED' N P FMEND r P* PERFM17 FRMT P FSL " P FTEXT 'OUTPUT FILE TOO SMALL' P FMEND P* PERFM18 FRMT P FSL P
0x351214…3513a8 Dummy {f00=0x010d, f01=0x0190, f02=»* PERFM20 FRMT P FSL $ P FTEXT 'SYSTEMFILE ASSIGN-ERROR' * P FMEND R P* ` PERFM21 FRMT j P FSL ~ $ P FTEXT 'SYSTEMFILE CLOSE-ERROR' P FMEND P* PERFM22 FRMT P FSL " P FTEXT 'USERFILE ASSIGN-ERROR'
0x3513a8…35153c Dummy {f00=0x010d, f01=0x0190, f02=»T P FSL P FTEXT 'DISC READING-ERROR' P FMEND : P* H PERFM25 FRMT R P FSL f P FTEXT 'DISC WRITING-FAULT' r P FMEND P* PERFM26 FRMT P FSL P FTEXT 'DISC NOT OPERABLE' P FMEND P* P
0x35153c…3516d0 Dummy {f00=0x010d, f01=0x0190, f02=»FILE NOT CLOSED IN PREVIOUS SESSION.' P FMEND . PERFM29 FRMT < P FSL P 6 P FTEXT 'USERFILE NOT CLOSED IN PREVIOUS SESSION.' P FMEND P* PERFM30 FRMT P FSL 8 P FTEXT 'WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE'
0x3516d0…351864 Dummy {f00=0x010d, f01=0x0190, f02=»E DEBINW2,W1 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P CMP DEBINW4,W0 @ P BZ DERR99 X P BP DERR00 j P ADD DEBINW4,=W'51' | PDERR00 ( P MOVE DEBINW3,=X'1801' ROW 24 COL. 1 4 P DSC1 DEDSSCRN,6,DEBINW3 SET CURSOR ON LAST ROW
0x351864…3519f8 Dummy {f00=0x010d, f01=0x0190, f02=» P* P* READ AFTER ERROR P* , PDERR05 6 ( P SETCUR SET CURSOR AT THE BEGINNING D P OF THE CURRENT FIELD p P B DERR15 NO BELL FIRST TIME PDERR10 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM PDERR15 & P MOVE DEBINW
0x3519f8…351b8c Dummy {f00=0x010d, f01=0x0190, f02=»NW2,W0,DERR20 P DISPLAY 0,W1,W0 P B DERR00 . PDERR20 @ ( P MOVE DEBINW3,W24 INDICATE LAST LINE N P IB DEBINW2,DERR30,DERR30 C z P DERR30,DERR40 P B DERR10 CONTINUE P* P* CLEAR ERROR PRINTOUT P* PDE
0x351b8c…351d20 Dummy {f00=0x010d, f01=0x0190, f02=» , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE PDERR99 4 P RET B P PEND N P EJECT PCANC PROC j P MOVE DEINPUT,HEX00 | 0 P MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS . P CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 P MOVE STAT
0x351d20…351eb4 (3, 252) Dummy {f00=0x010d, f01=0x018e, f02=»DEBINW4 CLEAR FIELD ~ PCANC10 P IB DEBINW2,CLEAR1,CLEAR2 * PCANC15 L 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS Z P RET PCLEAR1 . P CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 ( P SET DECHANGE INDICATE CHANGED FIELD
0x351eb4…352048 Dummy {f00=0x010d, f01=0x0190, f02=» PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x352048…3521dc Dummy {f00=0x010d, f01=0x4010, f02=» END @ P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x3521dc…352370 Dummy {f00=0x010d, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x352370…352504 Dummy {f00=0x010d, f01=0x0190, f02=» g 6BIDACR 800228 BIDAC BIDACR h JBINACR 800228 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD 800228 ADDMOD J ,DSUMOD 800228 DSUMOD V lDSKERR 800228 $$$TRAK
0x352504…352698 Dummy {f00=0x010d, f01=0x0190, f02=»LRNC DECLRS DERR hAPP CANCE DECHK15 DECHK20 DECHK3 DECHK4R DECHK57 DECHK6 DECHK7 DERRORR DESTATC DETCHKD EMPTYT MASK T:DISP T:DUPL T:DYKIN T:EDFLK T:EDWRK T:ERASK T:GETAK T:GETCK T:GETFK T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T
0x352698…35282c Dummy {f00=0x010d, f01=0x0190, f02=» e ~REORGU / 800228 $$$TRAO REORGU CHANFCO CHVOL DECLRN DISU- DSKERR1 FREESPL GETVOL9 T:ATTFL T:DSC0 T:AT10 < 800228 T:AT10A T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 C:CB50F D
0x35282c…3529c0 Dummy {f00=0x010d, f01=0x0190, f02=» 4T:DT10 > 800228 T:DT10D START ( 6T:ATAB ? 800228 T:ATABA T:AT10 :A ,U:BTAB @ 800228 U:BTABB :B ,S:BTAB A 800228 S:BTABB :B ,Z:TB10 B 800228 Z:TB10T ,D:TB10 C
0x3529c0…353660 (4, 0) DirGranule ((4, 0)) {
0x3529c0…353660 DirEnt {nam=»INT:PR«, typ=»OD«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x3529c0…353660 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x21c0, f03=0x0008}
0x3529c0…353660 }
0x353660…3537f4 (4, 1) Opaque[0x194]
0x3537f4…353988 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x019a, f01=0x0198, f02=0x21c0, f03=0x0008}
0x3537f4…353988 IdxSect {
0x3537f4…353988 f00 = 0x010e // 0x3537f4 @0x0
0x3537f4…353988 f01 = 0x002c // 0x3537f6 @0x2
0x3537f4…353988 gno = [ // 0x3537f8 @0x4
0x3537f4…353988 [0x00]: C0x010e.0x0.0
0x3537f4…353988 [0x01]: C0x010e.0x1.0
0x3537f4…353988 [0x02]: C0x010e.0x2.0
0x3537f4…353988 [0x03]: C0x010e.0x3.0
0x3537f4…353988 [0x04]: C0x010f.0x0.0
0x3537f4…353988 [0x05]: C0x010f.0x1.0
0x3537f4…353988 [0x06]: C0x010f.0x2.0
0x3537f4…353988 [0x07]: C0x010f.0x3.0
0x3537f4…353988 [0x08]: C0x0110.0x0.0
0x3537f4…353988 [0x09]: C0x0110.0x1.0
0x3537f4…353988 [0x0a]: C0x0110.0x2.0
0x3537f4…353988 [0x0b]: C0x0110.0x3.0
0x3537f4…353988 [0x0c]: C0x0111.0x0.0
0x3537f4…353988 [0x0d]: C0x0111.0x1.0
0x3537f4…353988 [0x0e]: C0x0111.0x2.0
0x3537f4…353988 [0x0f]: C0x0111.0x3.0
0x3537f4…353988 [0x10]: C0x0112.0x0.0
0x3537f4…353988 [0x11]: C0x0112.0x1.0
0x3537f4…353988 [0x12]: C0x0112.0x2.0
0x3537f4…353988 [0x13]: C0x0112.0x3.0
0x3537f4…353988 [0x14]: C0x0113.0x0.0
0x3537f4…353988 [0x15]: C0x0113.0x1.0
0x3537f4…353988 ]
0x3537f4…353988 }
0x353988…353b1c Dummy {f00=0x010e, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=10.0,800314,870136941000 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x353b1c…353cb0 Dummy {f00=0x010e, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=10.0,800314,870136941000 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x353cb0…353e44 Dummy {f00=0x010e, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=10.0,800314,870136941000 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x353e44…353fd8 Dummy {f00=0x010e, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=10.0,800314,870136941000 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x353fd8…35416c Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=10.0,800314,870136941000 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R W ~ T:RNOK T:LOFS , ( P _ Y $ I:E
0x35416c…354300 Dummy {f00=0x010e, f01=0x4116, f02=» h , ( u R W V R W V I:MOV 8 T:GRFC H , ( % _ " D $ D Z T:ROK & " @ X $ X y & 8 4 R W 'P [ eP gW2 wR {W V R W V
0x354300…354494 (4, 2) Dummy {f00=0x010e, 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 <
0x354494…354628 Dummy {f00=0x010e, 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 <
0x354628…3547bc Dummy {f00=0x010e, 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
0x3547bc…354950 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=10.0,800314,870136941000 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x354950…354ae4 Dummy {f00=0x010e, 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 *
0x354ae4…354c78 Dummy {f00=0x010e, 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
0x354c78…354e0c Dummy {f00=0x010e, 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
0x354e0c…354fa0 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=10.0,800314,870136941000 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
0x354fa0…355134 (4, 3) Dummy {f00=0x010e, 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
0x355134…3552c8 Dummy {f00=0x010e, 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
0x3552c8…35545c Dummy {f00=0x010e, 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
0x35545c…3555f0 Dummy {f00=0x010e, 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
0x3555f0…355784 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=10.0,800314,870136941000 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x355784…355918 Dummy {f00=0x010e, f01=0x4032, f02=» =T P @ .870136941000 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x355918…355aac Dummy {f00=0x010e, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=10.0,800314,870136941000 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x355aac…355c40 Dummy {f00=0x010e, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x355c40…355dd4 (4, 4) Dummy {f00=0x010e, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=10.0,800314,870136941000 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x355dd4…355f68 Dummy {f00=0x010e, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=10.0,800314,870136941000 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x355f68…3560fc Dummy {f00=0x010e, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=10.0,800314,870136941000 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x3560fc…356290 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=10.0,800314,870136941000 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
0x356290…356424 Dummy {f00=0x010e, 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
0x356424…3565b8 Dummy {f00=0x010e, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=10.0,800314,870136941000 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x3565b8…35674c Dummy {f00=0x010e, f01=0x0190, f02=» T:TABD , ( U P P Y +W Y + , ( u@ W T W Q W @ , ( Y + U Q P p T:TABC , ( BW W Y ( C T:RNOK I:RT1 * &
0x35674c…3568e0 Dummy {f00=0x010e, f01=0x411c, f02=» 2] X 8 Y 0 : X 0 :H* , ( ' : X 2T Y 2 : C 1 & T:EDIO V E B ] : h H D ! W !W GP2 KR UP [P cW^ g 8 s * yWL }T * W> Q W , ( U Q P W W P /T
0x3568e0…356a74 (4, 5) Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=10.0,800314,870136941000 T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x356a74…356c08 Dummy {f00=0x010f, f01=0x4040, f02=» U 6 2 : $ U ^ *@ < T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x356c08…356d9c Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=10.0,800314,870136941000 . * 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
0x356d9c…356f30 Dummy {f00=0x010f, 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
0x356f30…3570c4 Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=10.0,800314,870136941000 " . * T:TABC T:TABD T:TABE T:TABN T:SCR2 " F I:EVNO " x I:ESKI " I:EVA0 " I:EBRI " I:EBRB " I:EBR " , (
0x3570c4…357258 Dummy {f00=0x010f, 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 #
0x357258…3573ec Dummy {f00=0x010f, f01=0x0190, f02=» T:LOPS # , ( V _` " P T & $ , ( (W " P Y 0] Y (_t $ B T:EDWF $ r * ( " X _. * X *# P B $ , ( 1 *W " P X X$ C $ T:SCR2 $ T:SCUR $ * &
0x3573ec…357580 Dummy {f00=0x010f, f01=0x40a0, f02=» Y ( : X (;n . $ H D ! +W /W 7Q ; ? KP Qp P P: Vp P4 T WT P P W % P P +W 3T 7W % j T % @ % P B $ , ( 1 *W " P X X$ C $ T:SCR2 $ T:SCUR $ * &
0x357580…357714 (4, 6) Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=10.0,800314,870136941000 & T:DNL T:DSL & F I:EVNO & I:ECPY & n I:EPIC & I:ETXT & I:ETAB & I:EBRI & I:EBRB & I:EBR & * &
0x357714…3578a8 Dummy {f00=0x010f, 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
0x3578a8…357a3c Dummy {f00=0x010f, f01=0x4166, f02=» Q Y *T , : " P X 0U ' , ( X *# P P T " T : ( , T:ENIN ( , ( Y . . Y ( $ ( n , ( Y *T " T ! 1 W ! ) , ( : ( H D ! 6 # ( 5W KPV QRz ST$ [P aU
0x357a3c…357bd0 Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=10.0,800314,870136941000 ) " T:PKI T:PINP T:TKI T:TINP ) F T:PKI ) l T:PINP ) ~ T:GRFC ) I:ETAB ) I:EVIN ) , ( I P & ) , ( Y *T
0x357bd0…357d64 Dummy {f00=0x010f, f01=0x018e, f02=» & V D ! P $ ) | T:TINP * T:TKI * 0 , ( u ! P %_ : V * B , ( Y " X .9H $ P * r , ( & X ( " Q Y +Q R " P W * , ( " U Y , " Q X . X 0R P * , (
0x357d64…357ef8 Dummy {f00=0x010f, f01=0x0190, f02=» , ( O X # :! R W T @ Y + T:ENIN + 4 T:ENI + F I:EXIT + V , ( o (W Y , W Y ( + h , ( @ : X *:h X (! # P X & V + , ( L T W X , X 0P T + , ( X *:h
0x357ef8…35808c Dummy {f00=0x010f, f01=0x0190, f02=»Y + , ( ) Y 8 & X 8 X $ W _ , , ( G " P X ( T X & V H "@T , : * & g P V Y X (P , j T:CLMI , , ( X (P , , ( 8 Y 0 X 2P X 0V _z ,
0x35808c…358220 Dummy {f00=0x010f, f01=0x0190, f02=» : : "0 , | , ( P $ T W %T : : - , ( = Y ( X $ Y X " Y X & Y X < - L , ( ] Y @ : Y : X : X ( - | , ( { T X & V H " V Y : X - T:CLDY - ! $ X :
0x358220…3583b4 (4, 7) Dummy {f00=0x010f, f01=0x4108, f02=»P %P ) -P< 1 : - ^ H D ! 3WZ CP< EQ MP2 [R$ ]W a : e iT$ qW W P Tb W P@ . H D !$ T, T : P P* # 'P| CWh KP UT eTF i mP6 P b P . f < 8 P V T P P P #T 'W +T }T V . . @ .
0x3583b4…358548 Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=10.0,800314,870136941000 / 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
0x358548…3586dc Dummy {f00=0x010f, 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 , (
0x3586dc…358870 Dummy {f00=0x010f, 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
0x358870…358a04 Dummy {f00=0x010f, f01=0x4144, f02=» > @ IDENT T:SETC P,REL=10.0,800314,870136941000 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
0x358a04…358b98 Dummy {f00=0x010f, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=10.0,800314,870136941000 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
0x358b98…358d2c Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=10.0,800314,870136941000 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
0x358d2c…358ec0 Dummy {f00=0x010f, 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
0x358ec0…359054 (4, 8) Dummy {f00=0x010f, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=10.0,800314,870136941000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 , ( ! $ T ( W P 6 I:RT1 6
0x359054…3591e8 Dummy {f00=0x010f, f01=0x401a, f02=» f 7 @ 7 G P,REL=10.0,800314,870136941000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 , ( ! $ T ( W P 6 I:RT1 6
0x3591e8…35937c Dummy {f00=0x010f, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=10.0,800314,870136941000 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$
0x35937c…359510 Dummy {f00=0x010f, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=10.0,800314,870136941000 9 SWITCH 9 F T:SWIT 9 X SWITCH 9 j @ 9 ~ 9 @ 9 ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x359510…3596a4 Dummy {f00=0x010f, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=10.0,800314,870136941000 : TESTIO ABORT : F T:TEST : ^ TESTIO : p T:ABOR : ABORT : H : : @ : . P*
0x3596a4…359838 Dummy {f00=0x010f, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=10.0,800314,870136941000 ; SETTIM GETTIM ; F T:SETT ; ` SETTIM ; r T:GETT ; GETTIM ; H ; ; @ ; . P*
0x359838…3599cc Dummy {f00=0x010f, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=10.0,800314,870136941000 < DELAY < F T:DELA < V DELAY < h @ < z < @ < * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x3599cc…359b60 Dummy {f00=0x010f, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=10.0,800314,870136941000 = GETTID = F T:GETI = X GETTID = j @ = ~ = @ = ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x359b60…359cf4 (4, 9) Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:DC P,REL=10.0,800314,870136941000 > 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 > , ( @@ /
0x359cf4…359e88 Dummy {f00=0x0110, f01=0x40ca, f02=»:EVA0 > , ( 7 ' / C ? , ( Q$ C ? > & " k &P C & C : ? n V W V 1 V ? ? @ ? T:DCW1 > T:EDIO > , ( @@ /
0x359e88…35a01c Dummy {f00=0x0110, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=10.0,800314,870136941000 @ 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
0x35a01c…35a1b0 Dummy {f00=0x0110, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=10.0,800314,870136941000 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
0x35a1b0…35a344 Dummy {f00=0x0110, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=10.0,800314,870136941000 C T:DELA C F T:DELA C X I:EVA0 C l I:RT1 C ~ ( $ @ ( C C @ C RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x35a344…35a4d8 Dummy {f00=0x0110, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=10.0,800314,870136941000 D MASK D F MASK D V I:EVA0 D h I:RT1 D z ( $ D V D D @ D TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x35a4d8…35a66c Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=10.0,800314,870136941000 E T:ACTV T:PAUS T:RSTR E F T:ACTV E h , ( 2 ;B P J E | P:BAS E I:NTPB E , ( ! T ( E T:BAT E
0x35a66c…35a800 Dummy {f00=0x0110, f01=0x4074, f02=» & F : ( E w F & ( P0 #T + X ?W4 I X WW F : x F ^@ F p
0x35a800…35a994 (4, 10) Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:USE P,REL=10.0,800314,870136941000 G T:USE T:UERR G F T:USE G ^ I:EVA0 G p * & 2 & >A >A 2 $ G P:MTAB G , ( & V D 9a 9 V G , ( =D @ W @ (
0x35a994…35ab28 Dummy {f00=0x0110, f01=0x4186, f02=» ( 9 8 G , ( ? X Q , V H " , ( ( - 4T H R , ( V 5 ( W V P H , ( W U V X 9T I H T:UERR > H I:RT0 H
0x35ab28…35acbc Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=10.0,800314,870136941000 I T:UNUS I F T:UNUS I X , ( 2 ' >A >A 2 $ V I l P:MTAB I , ( ! L ;a ; R @ ( 8 ? I , ( ? X Q ( V )<B I
0x35acbc…35ae50 Dummy {f00=0x0110, f01=0x4012, f02=» I @ J T:UNUS P,REL=10.0,800314,870136941000 I T:UNUS I F T:UNUS I X , ( 2 ' >A >A 2 $ V I l P:MTAB I , ( ! L ;a ; R @ ( 8 ? I , ( ? X Q ( V )<B I
0x35ae50…35afe4 Dummy {f00=0x0110, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=10.0,800314,870136941000 K T:EXIT K F T:EXIT K X ( K l K @ K KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x35afe4…35b178 Dummy {f00=0x0110, f01=0x4138, f02=» > @ IDENT T:GTCW P,REL=10.0,800314,870136941000 L GETCW L F T:FDSP L V GETCW L h I:EVA0 L z T:BINB L , ( H "$ P B B L T:GTCW L I:RT1 L $ W L
0x35b178…35b30c Dummy {f00=0x0110, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=10.0,800314,870136941000 M T:GETI M F T:GETI M X I:EVA0 M l I:RT1 M ~ $ @ V G 9h ' M M @ M VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x35b30c…35b4a0 Dummy {f00=0x0110, f01=0x018e, f02=» > @ IDENT T:DM P,REL=10.0,800314,870136941000 N & " T:OPEN T:CLOS T:COMM T:RSTA N F T:OPEN N p T:FDSP N , ( @ # 9 2! P T N T:WRIO N T:IO2 N T:CLOS . N , (
0x35b4a0…35b634 (4, 11) Dummy {f00=0x0110, f01=0x4090, f02=» T:RSTA X O T:SCW2 O T:IO3 O * ( $ W C O : P T O f j O z@ O , ( @ # 9 2! P T N T:WRIO N T:IO2 N T:CLOS . N , (
0x35b634…35b7c8 Dummy {f00=0x0110, f01=0x018c, f02=» > @ IDENT T:DMR P,REL=10.0,800314,870136941000 P & " T:DREA T:IREA T:XREA T:IXID P F T:DREA P p T:REAX P T:SCW2 P T:IO3 P T:IREA P T:IO2 P , ( $ P
0x35b7c8…35b95c Dummy {f00=0x0110, f01=0x4008, f02=»@ Q IDENT T:DMR P,REL=10.0,800314,870136941000 P & " T:DREA T:IREA T:XREA T:IXID P F T:DREA P p T:REAX P T:SCW2 P T:IO3 P T:IREA P T:IO2 P , ( $ P
0x35b95c…35baf0 Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=10.0,800314,870136941000 R 6 2 T:SWRI T:DWRI T:IWRI T:DREW T:CREW T:IREW R F T:SWRI R T:WRIX R T:IO4 R T:DWRI R T:SCW2 R , ( / / R
0x35baf0…35bc84 Dummy {f00=0x0110, f01=0x40fc, f02=» 5D / C R , ( O ( B B @ C S , , ( o ( ( B B S , ( C C ( C S T:IO5 S C S S @ S / R
0x35bc84…35be18 Dummy {f00=0x0110, f01=0x4182, f02=» > @ IDENT T:DMDI P,REL=10.0,800314,870136941000 T T:DDIS T:CDIS T:IDIS T F T:DDIS T h T:FDSP T | T:SCW2 T T:IO3 T T:CDIS T , ( $ C <H / T T:IDIS $ T
0x35be18…35bfac Dummy {f00=0x0110, f01=0x4168, f02=» > @ IDENT T:DMPO P,REL=10.0,800314,870136941000 U T:DPOS T:IPOS U F T:DPOS U ` T:FDSP U t T:SCW2 U T:GTBY U T:IO4 U , ( H@ C <H / U T:IPOS U T:WRIX
0x35bfac…35c140 Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:IO P,REL=10.0,800314,870136941000 V J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 V F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 V J F " T:IO4 T:IO5 T:FDS0 T:FDSP T:GDSP T
0x35c140…35c2d4 (4, 12) Dummy {f00=0x0110, f01=0x0190, f02=»:WRIT V T:LWRI W , ( W / W $ T:WRIX " W T T:WRIO & W h I:EVA0 W | , ( ! _ P <H W T:SREA B W T:READ B W T:REAX J W , ( ? :
0x35c2d4…35c468 Dummy {f00=0x0110, f01=0x018e, f02=» C C J ' W 781" W T:DSC2 X " , ( &$ 39#$;< '()*+,-! X 6 T:XSTA X f , ( P _D B X z T:WAIT X T:MWAI X * & @ 'W ( W X , (
0x35c468…35c5fc Dummy {f00=0x0110, f01=0x0190, f02=» X T:IO4 @ Y T:IO5 L Y T:IORE P Y , , ( 5 C C C ( ' P Y @ T:GCW2 Y p , ( U P "! P W B % P Y T:GTCW Y I:RT1 Y T:IOEN Y , ( s C +
0x35c5fc…35c790 Dummy {f00=0x0110, f01=0x0190, f02=»:EDW Y T:EDWE Z T:EDWF Z , ( C ~ C B Z 4 T:EDWI Z d , ( B P C : V I C Z x T:EDIO Z , ( B : ( ' P Z T:KIPR 2 Z I:EVA
0x35c790…35c924 Dummy {f00=0x0110, f01=0x018e, f02=» T Z r T:FDS0 [ , ( T T V : 2 ' [ & T:FDSP [ V T:GDSP [ j P:MTAB [ ~ I:EVTO [ , ( W 2 6 2 @ & " T # ' ?D W [ I:FML [ , ( ' #? ;D:B "
0x35c924…35cab8 Dummy {f00=0x0110, f01=0x0190, f02=» [ h T:DSCX I:EVA2 , ( : P C W $0 . T:SCW0 ^ , ( 9 P C : C "!@P " p $ W ) # B C B % C : H D ! Y W 2 < " @ % ) J - 1P G J IW M Q ]P cV
0x35cab8…35cc4c Dummy {f00=0x0110, f01=0x4092, f02=» P P ` H D ! %P ) v 5 9 _R eV T T T W T W" P )P /W ] 9P SP ] h n ] |@ ] !@P " p $ W ) # B C B % C : H D ! Y W 2 < " @ % ) J - 1P G J IW M Q ]P cV
0x35cc4c…35cde0 Dummy {f00=0x0110, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=10.0,800314,870136941000 d T:KIA T:NKIA d F T:KIA d ^ T:NKIA d p T:ABUF d T:KIPR d , ( W 6 V :a d , ( ' ( ( d
0x35cde0…35cf74 (4, 13) Dummy {f00=0x0111, f01=0x0190, f02=» y K V K V 6V ( - d , ( _ : J 7 J V W J e , , ( :A V 6V $ - _ * e , ( + : D T E D :A D e , ( ;A 9A Q 5 U _ 5 e T:KIAA e T:KIAC
0x35cf74…35d108 Dummy {f00=0x0111, f01=0x40c8, f02=» D V e p , ( @ m D V ( 2 C C f _, f @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W f R [R ]P f f @ f
0x35d108…35d29c Dummy {f00=0x0111, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=10.0,800314,870136941000 g T:ABUF g F M g X T:ABUF g n g @ g IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x35d29c…35d430 Dummy {f00=0x0111, f01=0x410e, f02=» > @ IDENT WRITEL P,REL=10.0,800314,870136941000 h WRITEL h F WRITEL h X T:FDS0 h l I:EVA0 h ~ , ( D / C h $ &P C & C h !P h 0 h @
0x35d430…35d5c4 Dummy {f00=0x0111, f01=0x018e, f02=» > @ IDENT I:NTP P,REL=10.0,800314,870136941000 i B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 i F I:MOV i I:ADD i I:SUB i I:CMP i I:MUL i * & T i
0x35d5c4…35d758 Dummy {f00=0x0111, f01=0x0190, f02=» i I:XCP j I:EDS j , ( - j ( I:TRC j X I:RST B j j T:CSEG j | I:NTPA F j I:NTPB J j P:MTAB j , ( ? W V 7 @ " j T:LSEG j
0x35d758…35d8ec Dummy {f00=0x0111, f01=0x0190, f02=» " j r I:EVA2 k , ( @ $ Q W :a k $ I:RT2 k T I:RT1 k f I:RT0 k x , ( W _B( 2 P V k T:BAT k , ( W _ 2 # ;B V T &W k , ( V P
0x35d8ec…35da80 Dummy {f00=0x0111, f01=0x0190, f02=»AT k , ( O @ 2 ! 9B V T (W V P l , ( m D $ V 6 V % V E l : , ( @ & ' T 2 % 7_ l j T:CAT l , ( @ 2 # L * " 2" l , ( &] Y $! 6P Q $ T 9B l ,
0x35da80…35dc14 (4, 14) Dummy {f00=0x0111, f01=0x4130, f02=» , V & l z $ ( A H J 'W 'W '_6 m H D ! B . & ! # % ' ) + ; N m B H D ! = J ? T A V ]P gP s t N Q W W P W8 T W P P m < 8 !R %T +P ]T cW T P Q T T
0x35dc14…35dda8 Dummy {f00=0x0111, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=10.0,800821,870136941000 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
0x35dda8…35df3c Dummy {f00=0x0111, 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 "
0x35df3c…35e0d0 Dummy {f00=0x0111, f01=0x0190, f02=» Z Z , ( 3 : R ; 0 , ( S 6 : F _v :B , ` , ( s (V ; H [ [ [ , ( z ;AV Z H # , ( ; :
0x35e0d0…35e264 Dummy {f00=0x0111, f01=0x0190, f02=» ! P [ 6 [ , ( 1 Z 7 . Z 7 I:FML R P , ( Q : ( :A ( :mT b I:EVTO r , ( q @ & " P ! P [ :;H , ( $ 2 :;h :
0x35e264…35e3f8 Dummy {f00=0x0111, f01=0x40ce, f02=» ; : ;f" #?_" H D ! #W 'W -P 1W = r ?W4 KT> [ R kT V, W R V W W $ D @ r W$ P& Pd R Wv yVr V$ P iT yP P W& p @ , ( $ 2 :;h :
0x35e3f8…35e58c Dummy {f00=0x0111, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=10.0,800314,870136941000 s I:ADD I:SUB s F I:ADD s I:SUB s n , ( W " T & T + : s I:CPA s , ( ! * & !@P `1` P Q s " ? [
0x35e58c…35e720 Dummy {f00=0x0111, f01=0x0190, f02=» $ P T s v , ( R R ` ; <( t , ( Q P # W " <! =# T W = Z t F , ( P _ V ^< `_@ t v , ( R Q <# =_ P :" P * U t , ( 5 P 1`! T "# 9e! # K t
0x35e720…35e8b4 (4, 15) Dummy {f00=0x0111, f01=0x4008, f02=»@ u T s v , ( R R ` ; <( t , ( Q P # W " <! =# T W = Z t F , ( P _ V ^< `_@ t v , ( R Q <# =_ P :" P * U t , ( 5 P 1`! T "# 9e! # K t
0x35e8b4…35ea48 Dummy {f00=0x0111, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=10.0,800314,870136941000 v I:CMP v F I:CMP v V , ( P " T * & : * & v h I:CPA v , ( ! !`P :J +_ +Q v , ( A _0 , T T XD W 1 v
0x35ea48…35ebdc Dummy {f00=0x0111, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=10.0,800314,870136941000 w I:CPA w F I:CPA w V * & R W w h , ( ( V W Q P W ! W V w , ( ? P , V W Q P W $ W V w * & _ P
0x35ebdc…35ed70 Dummy {f00=0x0111, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=10.0,800314,870136941000 x I:MOV I:MVC x F I:MOV x I:MVC x n , ( $0#0;b P P P P x , ( ! 0 - P _ 4 V x , ( A W Q P ) P 9_ &" ! 9 :
0x35ed70…35ef04 Dummy {f00=0x0111, f01=0x0190, f02=»V x p , ( 4! P < X 4 y , ( 9d $ & ! R + : y @ , ( V W R 4 0R Y 7 Y& y p , ( ! P Z,;D 9_8 8 _< V y , ( A W YL T 9 : &9d! + y , ( a
0x35ef04…35f098 Dummy {f00=0x0111, f01=0x40d2, f02=» 9d! )0 + P 7 Y Z $ y _ : z 0 H D ! T P P PF P -P0 EQ GP OP gP kQ s R R R z H $ #P eP( {T WJ V P. P z z @ z A W YL T 9 : &9d! + y , ( a
0x35f098…35f22c Dummy {f00=0x0111, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=10.0,800314,870136941000 { I:MUL I:SH1L { F I:MUL { ^ , ( V ) " T *V &V { p , ( ! : V S W P 9 S W _ { , ( A V P W T V E + { , ( a
0x35f22c…35f3c0 Dummy {f00=0x0111, f01=0x0190, f02=» [ { , ( P Z P [ 9a Z | ( , ( $" T 9d! P P [ Z w | X I:ADD | , ( [ P V H )_ | , ( _X z R z ! P 1` { | , ( / V (9h
0x35f3c0…35f554 (4, 16) Dummy {f00=0x0111, f01=0x4066, f02=» | l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP } } P@ } b9d! P P [ Z w | X I:ADD | , ( [ P V H )_ | , ( _X z R z ! P 1` { | , ( / V (9h
0x35f554…35f6e8 Dummy {f00=0x0111, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=10.0,800314,870136941000 ~ I:DIV I:SH1R ~ F I:DIV ~ ^ , ( " T *V &V ~ p ! P = ~ , ( ' ;@ R P W ;a ~ , ( G =a P " R & R
0x35f6e8…35f87c Dummy {f00=0x0111, f01=0x0190, f02=» [ [ ~ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x35f87c…35fa10 Dummy {f00=0x0111, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x35fa10…35fba4 Dummy {f00=0x0111, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x35fba4…35fd38 Dummy {f00=0x0111, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=10.0,800314,870136941000 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x35fd38…35fecc Dummy {f00=0x0111, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=10.0,800314,870136941000 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 , ( !!
0x35fecc…360060 Dummy {f00=0x0111, 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
0x360060…3601f4 (4, 17) Dummy {f00=0x0112, 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 , (
0x3601f4…360388 Dummy {f00=0x0112, f01=0x0190, f02=» 7 [ Z P I:EXIT n * , ( U $ [ V 7_ > P:MTAB n , ( s Z @ " &! P $ Z 7 , ( Z Z P $ I:FFSN , ( : V
0x360388…36051c Dummy {f00=0x0112, f01=0x0190, f02=»:ECPY , ( I < : J Q : I:EXPY @ , ( P 4 ! T _ T I:ECTR 0 I:ESL : I:ENL D , ( ) P 4 W K W W +_ I:EOR Z T:EDWF
0x36051c…3606b0 Dummy {f00=0x0112, f01=0x413a, f02=»:SCB , ( g X & , J K : V : 1 > H D ! U Y [ e Z g n i d k 4 m D s x u : y < < T H D ! P T W T W ; QP { P P R Q P Qx Pn Th 4 0 + )PX /WT 7 9WJ = @ ?W
0x3606b0…360844 Dummy {f00=0x0112, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=10.0,800314,870136941000 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x360844…3609d8 Dummy {f00=0x0112, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x3609d8…360b6c Dummy {f00=0x0112, f01=0x4122, f02=» } ++P !-- z ;$# + ^" _( " T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T ?R EP KT OW S P Wn W8 Wf T H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U mW qW
0x360b6c…360d00 Dummy {f00=0x0112, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=10.0,800314,870136941000 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 , ( @
0x360d00…360e94 (4, 18) Dummy {f00=0x0112, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x360e94…361028 Dummy {f00=0x0112, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=10.0,800314,870136941000 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x361028…3611bc Dummy {f00=0x0112, f01=0x0190, f02=» > @ IDENT I:STR P,REL=10.0,800314,870136941000 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x3611bc…361350 Dummy {f00=0x0112, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x361350…3614e4 Dummy {f00=0x0112, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x3614e4…361678 Dummy {f00=0x0112, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=10.0,800314,870136941000 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x361678…36180c Dummy {f00=0x0112, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=10.0,800314,870136941000 b & " T:RREA T:RRE1 T:RWRI T:RWR1 b F T:RREA b p T:FDSP b T:RRE1 b I:EVA0 b T:STCW b , ( A &P C b T:IO2 b
0x36180c…3619a0 Dummy {f00=0x0112, f01=0x4036, f02=» : b v 6 + 6 c F c @ c 236941000 b & " T:RREA T:RRE1 T:RWRI T:RWR1 b F T:RREA b p T:FDSP b T:RRE1 b I:EVA0 b T:STCW b , ( A &P C b T:IO2 b
0x3619a0…361b34 (4, 19) Dummy {f00=0x0112, f01=0x0190, f02=» > @ IDENT T:CW P,REL=10.0,800314,870136941000 ^ 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 ^
0x361b34…361cc8 Dummy {f00=0x0112, f01=0x0190, f02=» X R _ V ^ T:GTCW _ , ( 4 _P :#0 T B 'W B B " _ 4 T:BINB _ d , ( : P _ x , ( P L R R _ , ( _ R _ # Q R _ , (
0x361cc8…361e5c Dummy {f00=0x0112, f01=0x0190, f02=» _ h , ( _ ' d w5 1 ` T:KIAA ~ ` 8 T:KIAC ` L T:GCW2 ` ` , ( #0 T B ' : ` t T:SCW2 ` , ( B B : P C ` , ( #0 T & C C : $
0x361e5c…361ff0 Dummy {f00=0x0112, f01=0x4038, f02=»P 3P CR } ~ T P T ` v a "@ a 4 T:KIAA ~ ` 8 T:KIAC ` L T:GCW2 ` ` , ( #0 T B ' : ` t T:SCW2 ` , ( B B : P C ` , ( #0 T & C C : $
0x361ff0…362184 Dummy {f00=0x0112, f01=0x4114, f02=» > @ IDENT T:CLO P,REL=10.0,800314,870136941000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT * & @ ( " ( _ .
0x362184…362318 Dummy {f00=0x0112, f01=0x2008, f02=» L = ADPE01 DATE = 80 -0 4- 1216PACK NBR = 0000
0x362318…3624ac Dummy {f00=0x0112, f01=0x0190, f02=» 0 0 ^ e f h n t = ~ , F F @ H IDENT Z:TB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 X Z:TB60 Z:TB60T * & $
0x3624ac…362640 Dummy {f00=0x0112, f01=0x018e, f02=» D:TB60T * & . F . f @ H IDENT T:DD20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 x T:DD20 T:DD20D DCTASK * & D2
0x362640…3627d4 (4, 20) Dummy {f00=0x0112, f01=0x0190, f02=» R C:CB60 C:CB60C & `@ @ . R ( b ( v @ H IDENT D:CB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB60 D:CB60C * & &
0x3627d4…362968 Dummy {f00=0x0112, f01=0x414a, f02=» Z:TB30 Z:TB30T * & $ * & R * & = & [ & y * &
0x362968…362afc Dummy {f00=0x0112, f01=0x0190, f02=» IDENT P:PIL < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` * & 0 0}0 o0 oA T 0 K 0 Ad1 A r * & n@m 6 _ @n_ 1 An _ * & = % ) !P V _, 6 ## * & [ _
0x362afc…362c90 Dummy {f00=0x0112, f01=0x0190, f02=»0 P 0 * * & 1W 'W 1 1 1 1 ! $ * & v j !!Ov v" Cv 0 "" VvW ! R * & 0 0 )W`0 "" Vv ! * & - 0 !!W6 'WH ! W+ " W% ! * & K h * h `h h h 2` ! *
0x362c90…362e24 Dummy {f00=0x0112, f01=0x0190, f02=» * & " j !!L 0 /P /0 f 4 " * & 0 f 4 4 0 0 0 $0 " 2 * & T 0 0 W 0 W 0 4P " ` * & +W 4 0 4 j !! % " * & ; !j !! ) 4 4 @p " * & Y @q@r@t@v@ @x 2 #
0x362e24…362fb8 Dummy {f00=0x0112, f01=0x018e, f02=» 0 V " t * & # 4 A 0 _ @ P 0 0 4 # * & b !& bc 4 c b"R b! # @ * & b 0 `" !($ 5W% a a0$ # n * & + a, 0 `aW a$$a, 0 `a0 ` b#$ ! # * & I 0 `f `f b" c$" ! b c b" # * & g W !4
0x362fb8…36314c Dummy {f00=0x0112, f01=0x018e, f02=» # T:CAT $ SAVE $ ATTBUF $ * GETIND $ < POOLA $ N T:ATTF $ ^ RESTOR $ p TESTB $ * & UT I $ UPDBOL $ T:ERAS $ CHANFC $ GETVOL $
0x36314c…3632e0 Dummy {f00=0x0112, f01=0x0190, f02=» T:WAIT % T:XSTA % T:ABOR % ( T:DSC1 % : T:SWIT % L UPDBIN % ^ CLEARB % p , ( " $ & ( * , . % SETB % EMPTYT % READDK % WRITDK % MASK %
0x3632e0…363474 (4, 21) Dummy {f00=0x0113, f01=0x0190, f02=» & & - & K * & i : & J & Z & j & z & & & ; & Y & w & & &
0x363474…363608 Dummy {f00=0x0113, f01=0x00c8, f02=»/P / / / / / /
0x363608…36379c Dummy {f00=0x0113, f01=0x2008, f02=»
0x36379c…363930 Dummy {f00=0x0113, f01=0x0000, f02=» h * FETCHING FORMAT: FROM DISC. @ U V %, F EJ AVST[MD ` NUMBER: g MISST[MMER EJ GODK[ND # JOBNAME: k BATCHNAME: l S[NDNING U S[NDNING KLAR S[NDNING AVBRYTS
0x363930…363ac4 Dummy {f00=0x0113, f01=0x0000, f02=»DISC SKRIVNING AVBRYTS DATUM: S TID: T 6 W : # X - Y : $ Z [ U 2 ] S ` ^ # JOBNAME: k BATCHNAME: l S[NDNING U S[NDNING KLAR S[NDNING AVBRYTS
0x363ac4…363c58 Dummy {f00=0x0113, f01=0x0000, f02=» : k <O DEFINED LINE MAXIMUM EXCEEDED $ !MAXIMUM FORMAT-CODE SIZE EXCEEDED PRESS ENT TO CONFIRME ( 4 $ : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) H ILLEGAL FORMAT NAME Z * t NOT * TEST ENTERED BATCH OUTPUT DEVICE N
0x363c58…363dec Dummy {f00=0x0113, f01=0x0000, f02=»AT: m . SIZE ON DISC: . ? WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITIONP + (USERFILE NOT CLOSED IN PREVIOUS SESSION.E ( 95 % OF FILESPACE USEDH : CDV-ERROR L DATE ERRORt ^ TIME-OUT p EDIT ERROR IN CONVERSIONU CHA
0x363dec…363f80 Dummy {f00=0x0113, f01=0x0000, f02=»UMMY MESSAGE RECOVERY RUNNING. F ,OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT: m . SIZE ON DISC: . TTT9 ? WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITIONT XXXF + (USERFILE NOT CLOSED IN PREVIOUS SESSION.R 95 % OF FILES
0x363f80…364114 (4, 22) Dummy {f00=0x0113, f01=0x0190, f02=» r & & = & [ * & y : & J & Z & j & z * & SYSVOLSYSVO * & - LSYSVOLSYSVOLSYSVOLSYSVOLSYSVO * & K LSYSVOLPFJESVCHM/=><DL!ASU
0x364114…3642a8 Dummy {f00=0x0113, f01=0x0002, f02=»/X
0x3642a8…36443c Dummy {f00=0x0113, f01=0x4014, f02=»y 4 2 / : ~ I # * T P ! r 6 C ] l* N l * 3 3 1 1 / I * %
0x36443c…3645d0 Dummy {f00=0x0113, f01=0x4014, f02=» $ ; 0 < 0 @/ X .@. 4 P 8 ? : L 9 MD J@ 4@- f@, l@+ r@* Z P x@) @( @' @& @% 3 @$ ~ n 5 " @ L 6 % @# @" * @ 7 & P O @! a N $ T
0x3645d0…364764 Dummy {f00=0x0113, f01=0x4014, f02=» @ @ @ R @ @ @ < 6 T @ @ P @ @ @ < L @ ^ @ D V C @ 4 ! @ @ N 3 ` 4 $@ i : 0 X L @@ n $ @ = 4 @ h@ L t@ B L @ * @ ~ #
0x364764…3648f8 Dummy {f00=0x0113, f01=0x4014, f02=» , r h & % & 8 > $ G J # D ^ V " J P b ! h n 8 t z j 4 < L ~ } | { ` R z n N X " (
0x3648f8…364a8c Dummy {f00=0x0113, f01=0x4014, f02=» S: ( EL @ , SI " TY h ) NA . V G ' C ^ 99 T / 70 & VE % SE MO JO - } DE " $ x FO 0 j 10 XX r * d PR + ^ RE ! Y EN , U DA Q PT , # @
0x364a8c…364c20 Dummy {f00=0x0113, f01=0x4014, f02=» D p @ F P X y ^ x j w L v v d u s " | t L n @ q . r ( - ' ^ 6 / V 7 DENT01 D I & & GETACC Z JSETERR
0x364c20…3658c0 (5, 0) DirGranule ((5, 0)) {
0x364c20…3658c0 DirEnt {nam=»CONFIG«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2270, f03=0x0000}
0x364c20…3658c0 DirEnt {nam=»CONFT «, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x2278, f03=0x0008}
0x364c20…3658c0 DirEnt {nam=»CONFP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x364c20…3658c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2288, f03=0x0000}
0x364c20…3658c0 DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x364c20…3658c0 DirEnt {nam=»CONFU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2298, f03=0x0000}
0x364c20…3658c0 }
0x3658c0…365a54 (5, 1) Opaque[0x194]
0x365a54…365be8 # DirEnt {nam=»CONFT «, typ=»UF«, f00=0x019a, f01=0x0198, f02=0x2278, f03=0x0008}
0x365a54…365be8 IdxSect {
0x365a54…365be8 f00 = 0x0113 // 0x365a54 @0x0
0x365a54…365be8 f01 = 0x0002 // 0x365a56 @0x2
0x365a54…365be8 gno = [ // 0x365a58 @0x4
0x365a54…365be8 [0x00]: C0x0113.0x3.0
0x365a54…365be8 ]
0x365a54…365be8 }
0x365be8…365d7c Dummy {f00=0x0113, 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;
0x365d7c…365f10 Dummy {f00=0x0113, 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;
0x365f10…3660a4 Dummy {f00=0x0113, 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;
0x3660a4…366238 Dummy {f00=0x0113, 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
0x366238…3663cc Dummy {f00=0x0113, 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 -
0x3663cc…366560 Dummy {f00=0x0113, 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
0x366560…3666f4 (5, 2) Opaque[0x194]
0x3666f4…366888 # DirEnt {nam=»CONFP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2280, f03=0x0000}
0x3666f4…366888 IdxSect {
0x3666f4…366888 f00 = 0x0114 // 0x3666f4 @0x0
0x3666f4…366888 f01 = 0x0002 // 0x3666f6 @0x2
0x3666f4…366888 gno = [ // 0x3666f8 @0x4
0x3666f4…366888 [0x00]: C0x0114.0x0.0
0x3666f4…366888 ]
0x3666f4…366888 }
0x366888…366a1c Dummy {f00=0x0114, 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
0x366a1c…366bb0 Dummy {f00=0x0114, 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
0x366bb0…366d44 Dummy {f00=0x0114, f01=0x0190, f02=» . D2 x * ( `@ @ & 0
0x366d44…366ed8 Dummy {f00=0x0114, 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 (
0x366ed8…36706c Dummy {f00=0x0114, 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
0x36706c…367200 Dummy {f00=0x0114, 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 *
0x367200…367394 (5, 3) Opaque[0x194]
0x367394…367528 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2288, f03=0x0000}
0x367394…367528 IdxSect {
0x367394…367528 f00 = 0x0114 // 0x367394 @0x0
0x367394…367528 f01 = 0x0002 // 0x367396 @0x2
0x367394…367528 gno = [ // 0x367398 @0x4
0x367394…367528 [0x00]: C0x0114.0x1.0
0x367394…367528 ]
0x367394…367528 }
0x367528…3676bc Dummy {f00=0x0114, 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
0x3676bc…367850 Dummy {f00=0x0114, 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,
0x367850…3679e4 Dummy {f00=0x0114, 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,
0x3679e4…367b78 Dummy {f00=0x0114, 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,
0x367b78…367d0c Dummy {f00=0x0114, f01=0x0190, f02=» SCTMMC SCTLACL SCTMMP 2 SCTLAP F SCTNPE Z SCTSTB8 n SCTOPTT SCTTCTN SCTCDT SCTBUG SCTDMTR , (
0x367d0c…367ea0 Dummy {f00=0x0114, f01=0x4050, f02=» _ :@ L F SCTNPE Z SCTSTB8 n SCTOPTT SCTTCTN SCTCDT SCTBUG SCTDMTR , (
0x367ea0…368034 (5, 4) Opaque[0x194]
0x368034…3681c8 # DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x368034…3681c8 IdxSect {
0x368034…3681c8 f00 = 0x0114 // 0x368034 @0x0
0x368034…3681c8 f01 = 0x0002 // 0x368036 @0x2
0x368034…3681c8 gno = [ // 0x368038 @0x4
0x368034…3681c8 [0x00]: C0x0114.0x2.0
0x368034…3681c8 ]
0x368034…3681c8 }
0x3681c8…36835c Dummy {f00=0x0114, 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
0x36835c…3684f0 Dummy {f00=0x0114, 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,
0x3684f0…368684 Dummy {f00=0x0114, 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,
0x368684…368818 Dummy {f00=0x0114, 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,
0x368818…3689ac Dummy {f00=0x0114, 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
0x3689ac…368b40 Dummy {f00=0x0114, 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
0x368b40…368cd4 (5, 5) Opaque[0x194]
0x368cd4…368e68 # DirEnt {nam=»CONFU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2298, f03=0x0000}
0x368cd4…368e68 IdxSect {
0x368cd4…368e68 f00 = 0x0114 // 0x368cd4 @0x0
0x368cd4…368e68 f01 = 0x0002 // 0x368cd6 @0x2
0x368cd4…368e68 gno = [ // 0x368cd8 @0x4
0x368cd4…368e68 [0x00]: C0x0114.0x3.0
0x368cd4…368e68 ]
0x368cd4…368e68 }
0x368e68…368ffc Dummy {f00=0x0114, 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;
0x368ffc…369190 Dummy {f00=0x0114, 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;
0x369190…369324 Dummy {f00=0x0114, f01=0x0190, f02=»
[…0x1…]
0x3694b8…36964c Dummy {f00=0x0114, f01=0x0190, f02=» n 6 $ B 8
0x36964c…3697e0 Dummy {f00=0x0114, f01=0x0190, f02=» ? < DC a DC TK LP 6 GP 0 DU FD DLU * B . D Z p -
0x3697e0…36a480 (6, 0) DirGranule ((6, 0)) {
0x3697e0…36a480 DirEnt {nam=»SHBAPL«, typ=» «, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DCTASK«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x22a8, f03=0x0008}
0x3697e0…36a480 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x22b0, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DELINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2778, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2858, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2860, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x28c8, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»FDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28d8, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x3697e0…36a480 DirEnt {nam=»PRDAPL«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2908, f03=0x0000}
0x3697e0…36a480 }
0x36a480…36a614 (6, 1) Opaque[0x194]
0x36a614…36a7a8 # DirEnt {nam=»DCTASK«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x22a8, f03=0x0008}
0x36a614…36a7a8 IdxSect {
0x36a614…36a7a8 f00 = 0x0115 // 0x36a614 @0x0
0x36a614…36a7a8 f01 = 0x0002 // 0x36a616 @0x2
0x36a614…36a7a8 gno = [ // 0x36a618 @0x4
0x36a614…36a7a8 [0x00]: C0x0115.0x1.0
0x36a614…36a7a8 ]
0x36a614…36a7a8 }
0x36a7a8…36a93c Dummy {f00=0x0115, 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
0x36a93c…36aad0 Dummy {f00=0x0115, 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
0x36aad0…36ac64 Dummy {f00=0x0115, 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 ^ @ ^
0x36ac64…36adf8 Dummy {f00=0x0115, f01=0x0190, f02=» = 3 CASETTE OUTPUT 8 P* = 4 PRINTOUT LP/GP 6 2 P* = 5 DISCFILE r : P* = 6 FLOPPYDISC FILE D P*
0x36adf8…36af8c Dummy {f00=0x0115, f01=0x0190, f02=» TYPE = TYPE OF HANDLING . P* = 1 OPEN . : P* = 2 BATCHHEAD-RECORD ` 6 P* = 3 DATA RECORD 8 P* = 4 BALANCE RE
0x36af8c…36b120 Dummy {f00=0x0115, 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*
0x36b120…36b2b4 (6, 2) Opaque[0x194]
0x36b2b4…36b448 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x22b0, f03=0x0000}
0x36b2b4…36b448 IdxSect {
0x36b2b4…36b448 f00 = 0x0115 // 0x36b2b4 @0x0
0x36b2b4…36b448 f01 = 0x0114 // 0x36b2b6 @0x2
0x36b2b4…36b448 gno = [ // 0x36b2b8 @0x4
0x36b2b4…36b448 [0x00]: C0x0115.0x2.0
0x36b2b4…36b448 [0x01]: C0x0115.0x3.0
0x36b2b4…36b448 [0x02]: C0x0116.0x0.0
0x36b2b4…36b448 [0x03]: C0x0116.0x1.0
0x36b2b4…36b448 [0x04]: C0x0116.0x2.0
0x36b2b4…36b448 [0x05]: C0x0116.0x3.0
0x36b2b4…36b448 [0x06]: C0x0117.0x0.0
0x36b2b4…36b448 [0x07]: C0x0117.0x1.0
0x36b2b4…36b448 [0x08]: C0x0117.0x2.0
0x36b2b4…36b448 [0x09]: C0x0117.0x3.0
0x36b2b4…36b448 [0x0a]: C0x0118.0x0.0
0x36b2b4…36b448 [0x0b]: C0x0118.0x1.0
0x36b2b4…36b448 [0x0c]: C0x0118.0x2.0
0x36b2b4…36b448 [0x0d]: C0x0118.0x3.0
0x36b2b4…36b448 [0x0e]: C0x0119.0x0.0
0x36b2b4…36b448 [0x0f]: C0x0119.0x1.0
0x36b2b4…36b448 [0x10]: C0x0119.0x2.0
0x36b2b4…36b448 [0x11]: C0x0119.0x3.0
0x36b2b4…36b448 [0x12]: C0x011a.0x0.0
0x36b2b4…36b448 [0x13]: C0x011a.0x1.0
0x36b2b4…36b448 [0x14]: C0x011a.0x2.0
0x36b2b4…36b448 [0x15]: C0x011a.0x3.0
0x36b2b4…36b448 [0x16]: C0x011b.0x0.0
0x36b2b4…36b448 [0x17]: C0x011b.0x1.0
0x36b2b4…36b448 [0x18]: C0x011b.0x2.0
0x36b2b4…36b448 [0x19]: C0x011b.0x3.0
0x36b2b4…36b448 [0x1a]: C0x011c.0x0.0
0x36b2b4…36b448 [0x1b]: C0x011c.0x1.0
0x36b2b4…36b448 [0x1c]: C0x011c.0x2.0
0x36b2b4…36b448 [0x1d]: C0x011c.0x3.0
0x36b2b4…36b448 [0x1e]: C0x011d.0x0.0
0x36b2b4…36b448 [0x1f]: C0x011d.0x1.0
0x36b2b4…36b448 [0x20]: C0x011d.0x2.0
0x36b2b4…36b448 [0x21]: C0x011d.0x3.0
0x36b2b4…36b448 [0x22]: C0x011e.0x0.0
0x36b2b4…36b448 [0x23]: C0x011e.0x1.0
0x36b2b4…36b448 [0x24]: C0x011e.0x2.0
0x36b2b4…36b448 [0x25]: C0x011e.0x3.0
0x36b2b4…36b448 [0x26]: C0x011f.0x0.0
0x36b2b4…36b448 [0x27]: C0x011f.0x1.0
0x36b2b4…36b448 [0x28]: C0x011f.0x2.0
0x36b2b4…36b448 [0x29]: C0x011f.0x3.0
0x36b2b4…36b448 [0x2a]: C0x0120.0x0.0
0x36b2b4…36b448 [0x2b]: C0x0120.0x1.0
0x36b2b4…36b448 [0x2c]: C0x0120.0x2.0
0x36b2b4…36b448 [0x2d]: C0x0120.0x3.0
0x36b2b4…36b448 [0x2e]: C0x0121.0x0.0
0x36b2b4…36b448 [0x2f]: C0x0121.0x1.0
0x36b2b4…36b448 [0x30]: C0x0121.0x2.0
0x36b2b4…36b448 [0x31]: C0x0121.0x3.0
0x36b2b4…36b448 [0x32]: C0x0122.0x0.0
0x36b2b4…36b448 [0x33]: C0x0122.0x1.0
0x36b2b4…36b448 [0x34]: C0x0122.0x2.0
0x36b2b4…36b448 [0x35]: C0x0122.0x3.0
0x36b2b4…36b448 [0x36]: C0x0123.0x0.0
0x36b2b4…36b448 [0x37]: C0x0123.0x1.0
0x36b2b4…36b448 [0x38]: C0x0123.0x2.0
0x36b2b4…36b448 [0x39]: C0x0123.0x3.0
0x36b2b4…36b448 [0x3a]: C0x0124.0x0.0
0x36b2b4…36b448 [0x3b]: C0x0124.0x1.0
0x36b2b4…36b448 [0x3c]: C0x0124.0x2.0
0x36b2b4…36b448 [0x3d]: C0x0124.0x3.0
0x36b2b4…36b448 [0x3e]: C0x0125.0x0.0
0x36b2b4…36b448 [0x3f]: C0x0125.0x1.0
0x36b2b4…36b448 [0x40]: C0x0125.0x2.0
0x36b2b4…36b448 [0x41]: C0x0125.0x3.0
0x36b2b4…36b448 [0x42]: C0x0126.0x0.0
0x36b2b4…36b448 [0x43]: C0x0126.0x1.0
0x36b2b4…36b448 [0x44]: C0x0126.0x2.0
0x36b2b4…36b448 [0x45]: C0x0126.0x3.0
0x36b2b4…36b448 [0x46]: C0x0127.0x0.0
0x36b2b4…36b448 [0x47]: C0x0127.0x1.0
0x36b2b4…36b448 [0x48]: C0x0127.0x2.0
0x36b2b4…36b448 [0x49]: C0x0127.0x3.0
0x36b2b4…36b448 [0x4a]: C0x0128.0x0.0
0x36b2b4…36b448 [0x4b]: C0x0128.0x1.0
0x36b2b4…36b448 [0x4c]: C0x0128.0x2.0
0x36b2b4…36b448 [0x4d]: C0x0128.0x3.0
0x36b2b4…36b448 [0x4e]: C0x0129.0x0.0
0x36b2b4…36b448 [0x4f]: C0x0129.0x1.0
0x36b2b4…36b448 [0x50]: C0x0129.0x2.0
0x36b2b4…36b448 [0x51]: C0x0129.0x3.0
0x36b2b4…36b448 [0x52]: C0x012a.0x0.0
0x36b2b4…36b448 [0x53]: C0x012a.0x1.0
0x36b2b4…36b448 [0x54]: C0x012a.0x2.0
0x36b2b4…36b448 [0x55]: C0x012a.0x3.0
0x36b2b4…36b448 [0x56]: C0x012b.0x0.0
0x36b2b4…36b448 [0x57]: C0x012b.0x1.0
0x36b2b4…36b448 [0x58]: C0x012b.0x2.0
0x36b2b4…36b448 [0x59]: C0x012b.0x3.0
0x36b2b4…36b448 [0x5a]: C0x012c.0x0.0
0x36b2b4…36b448 [0x5b]: C0x012c.0x1.0
0x36b2b4…36b448 [0x5c]: C0x012c.0x2.0
0x36b2b4…36b448 [0x5d]: C0x012c.0x3.0
0x36b2b4…36b448 [0x5e]: C0x012d.0x0.0
0x36b2b4…36b448 [0x5f]: C0x012d.0x1.0
0x36b2b4…36b448 [0x60]: C0x012d.0x2.0
0x36b2b4…36b448 [0x61]: C0x012d.0x3.0
0x36b2b4…36b448 [0x62]: C0x012e.0x0.0
0x36b2b4…36b448 [0x63]: C0x012e.0x1.0
0x36b2b4…36b448 [0x64]: C0x012e.0x2.0
0x36b2b4…36b448 [0x65]: C0x012e.0x3.0
0x36b2b4…36b448 [0x66]: C0x012f.0x0.0
0x36b2b4…36b448 [0x67]: C0x012f.0x1.0
0x36b2b4…36b448 [0x68]: C0x012f.0x2.0
0x36b2b4…36b448 [0x69]: C0x012f.0x3.0
0x36b2b4…36b448 [0x6a]: C0x0130.0x0.0
0x36b2b4…36b448 [0x6b]: C0x0130.0x1.0
0x36b2b4…36b448 [0x6c]: C0x0130.0x2.0
0x36b2b4…36b448 [0x6d]: C0x0130.0x3.0
0x36b2b4…36b448 [0x6e]: C0x0131.0x0.0
0x36b2b4…36b448 [0x6f]: C0x0131.0x1.0
0x36b2b4…36b448 [0x70]: C0x0131.0x2.0
0x36b2b4…36b448 [0x71]: C0x0131.0x3.0
0x36b2b4…36b448 [0x72]: C0x0132.0x0.0
0x36b2b4…36b448 [0x73]: C0x0132.0x1.0
0x36b2b4…36b448 [0x74]: C0x0132.0x2.0
0x36b2b4…36b448 [0x75]: C0x0132.0x3.0
0x36b2b4…36b448 [0x76]: C0x0133.0x0.0
0x36b2b4…36b448 [0x77]: C0x0133.0x1.0
0x36b2b4…36b448 [0x78]: C0x0133.0x2.0
0x36b2b4…36b448 [0x79]: C0x0133.0x3.0
0x36b2b4…36b448 [0x7a]: C0x0134.0x0.0
0x36b2b4…36b448 [0x7b]: C0x0134.0x1.0
0x36b2b4…36b448 [0x7c]: C0x0134.0x2.0
0x36b2b4…36b448 [0x7d]: C0x0134.0x3.0
0x36b2b4…36b448 [0x7e]: C0x0135.0x0.0
0x36b2b4…36b448 [0x7f]: C0x0135.0x1.0
0x36b2b4…36b448 [0x80]: C0x0135.0x2.0
0x36b2b4…36b448 [0x81]: C0x0135.0x3.0
0x36b2b4…36b448 [0x82]: C0x0136.0x0.0
0x36b2b4…36b448 [0x83]: C0x0136.0x1.0
0x36b2b4…36b448 [0x84]: C0x0136.0x2.0
0x36b2b4…36b448 [0x85]: C0x0136.0x3.0
0x36b2b4…36b448 [0x86]: C0x0137.0x0.0
0x36b2b4…36b448 [0x87]: C0x0137.0x1.0
0x36b2b4…36b448 [0x88]: C0x0137.0x2.0
0x36b2b4…36b448 [0x89]: C0x0137.0x3.0
0x36b2b4…36b448 ]
0x36b2b4…36b448 }
0x36b448…36b5dc Dummy {f00=0x0115, f01=0x0190, f02=» @ H IDENT T:AT10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 T:AT10 H T:AT10A Z > : T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 n > : D:CB40A C:CB40A D:CB500 C:CB50F D:TB20 Z:TB20. D:TB30- > : Z:TB30 D:TB40 Z:T
0x36b5dc…36b770 Dummy {f00=0x0115, f01=0x0190, f02=» v * & * & 6 * & = a d * & [ 6 * & y P * &
0x36b770…36b904 Dummy {f00=0x0115, f01=0x4084, f02=» " $ z , ( & ( * , . 0 2 4 6 8 : < > J n@ a d * & [ 6 * & y P * &
0x36b904…36ba98 Dummy {f00=0x0115, f01=0x40e0, f02=» @ H IDENT T:DT10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 T:DT10 H T:DT10D Z PTSDE n * & 8T1 x * ~ * @ * &
0x36ba98…36bc2c Dummy {f00=0x0115, f01=0x40b8, f02=» @ H IDENT T:ATAB TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 T:ATAB H T:ATABA Z T:AD20 T:AT10 n P :A @ * @
0x36bc2c…36bdc0 Dummy {f00=0x0115, f01=0x40b0, f02=» @ H IDENT U:BTAB TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 U:BTAB H U:BTABB Z U:CB10 n @ CB1 :C @ @ * @
0x36bdc0…36bf54 (6, 3) Dummy {f00=0x0115, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 S:BTAB H S:BTABB Z n :B @ :C @ @ * @
0x36bf54…36c0e8 Dummy {f00=0x0115, f01=0x018e, f02=» @ H IDENT Z:TB10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:TB10 H Z:TB10T Z & n & & = & [ & y & & & & &
0x36c0e8…36c27c Dummy {f00=0x0115, f01=0x413e, f02=» & & ; & Y $ & w 4 & D & T & d & t & & + & I & g & & & &
0x36c27c…36c410 Dummy {f00=0x0115, f01=0x409e, f02=» @ H IDENT D:TB10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:TB10 H D:TB10T Z n :T @ & I & g & & & &
0x36c410…36c5a4 Dummy {f00=0x0115, f01=0x40f2, f02=» @ H IDENT D:DB10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DB10 H D:DB10D Z * & > P P h n * & 0 = > @ &
0x36c5a4…36c738 Dummy {f00=0x0115, f01=0x40b2, f02=» @ H IDENT D:DB20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DB20 H D:DB20D Z * & n @
0x36c738…36c8cc Dummy {f00=0x0115, f01=0x40b2, f02=» @ H IDENT D:DB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:DB30 H D:DB30D Z * & n n @
0x36c8cc…36ca60 Dummy {f00=0x0115, f01=0x412c, f02=» @ H IDENT U:CB10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 U:CB10 H U:CB10C Z * & @ n & & = & [ & y & &
0x36ca60…36cbf4 (6, 4) Dummy {f00=0x0116, f01=0x40da, f02=» @ H IDENT D:CB10 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB10 H D:CB10C Z * & 6 n $ 6 @ & &
0x36cbf4…36cd88 Dummy {f00=0x0116, f01=0x40dc, f02=» @ H IDENT C:CB20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 C:CB20 H C:CB20C Z * & n $ $ @ & &
0x36cd88…36cf1c Dummy {f00=0x0116, f01=0x40f6, f02=» @ H IDENT D:CB20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB20 H D:CB20C Z * & B n * & = B @
0x36cf1c…36d0b0 Dummy {f00=0x0116, f01=0x40f0, f02=» @ H IDENT C:CB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 C:CB30 H C:CB30C Z * & n & " 8 8 @
0x36d0b0…36d244 Dummy {f00=0x0116, f01=0x40fa, f02=» @ H IDENT D:CB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB30 H D:CB30C Z * & F n * & = F @
0x36d244…36d3d8 Dummy {f00=0x0116, f01=0x0190, f02=» @ H IDENT C:CB40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 C:CB40 H C:CB40C Z * & n * & * & = * & [
0x36d3d8…36d56c Dummy {f00=0x0116, f01=0x4070, f02=» GP 6 FD " DLU FRO F Z@ l n * & * & = * & [
0x36d56c…36d700 Dummy {f00=0x0116, f01=0x40f6, f02=» @ H IDENT D:CB40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB40 H D:CB40C Z * & B . n * & D Z p - r - = B @ & [
0x36d700…36d894 (6, 5) Dummy {f00=0x0116, f01=0x0190, f02=» @ H IDENT C:CB50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 C:CB50 H C:CB50C Z $ & n & & = & [ & y & & & &
0x36d894…36da28 Dummy {f00=0x0116, f01=0x40ac, f02=»!ASUFTCE r * & i +-*:;&V?'ZGRNX()MEVTFCAB/,LRAP & TXZY+S,.><0-VEX > & ^ * n @ & [ & y & & & &
0x36da28…36dbbc Dummy {f00=0x0116, f01=0x40f2, f02=» @ H IDENT D:CB50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:CB50 H D:CB50C Z * & >0 0 0 n * & M U t ~ 0 = > @ & &
0x36dbbc…36dd50 Dummy {f00=0x0116, f01=0x4126, f02=» @ H IDENT Z:TB20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:TB20 H Z:TB20T Z & & n & & = & [ & y & *
0x36dd50…36dee4 Dummy {f00=0x0116, f01=0x40f6, f02=» @ H IDENT D:TB20 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:TB20 H D:TB20T Z * & B n * & 0 0 0 " = ( . B @
0x36dee4…36e078 Dummy {f00=0x0116, f01=0xc18e, f02=» @ H IDENT Z:TB30 TRA 10.0 80-11-05 F1 O1111 REL 10.0 80-04-11 Z:TB30 H Z:TB30T Z * & n * & * & = & [ &
0x36e078…36e20c Dummy {f00=0x0116, f01=0x40fa, f02=» @ H IDENT D:TB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 D:TB30 H D:TB30T Z * & F @ B D F H n * & J L N P R T V @ = f F @ [ &
0x36e20c…36e3a0 Dummy {f00=0x0116, f01=0x40dc, f02=» @ H IDENT Z:TB40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 ! Z:TB40 ! H Z:TB40T ! Z * & ! n ! $ ! $ ! @ ! F @ [ &
0x36e3a0…36e534 (6, 6) Dummy {f00=0x0116, f01=0x40f6, f02=» @ H IDENT D:TB40 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 " D:TB40 " H D:TB40T " Z * & B " n * & " = " B " @ " [ &
0x36e534…36e6c8 Dummy {f00=0x0116, f01=0x4176, f02=» @ H IDENT Z:TB50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 # Z:TB50 # H Z:TB50T # Z & # n & # & = # & [ # * & y # * &
0x36e6c8…36e85c Dummy {f00=0x0116, f01=0x40fa, f02=» @ H IDENT D:TB50 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 $ D:TB50 $ H D:TB50T $ Z * & F Q 0 [ $ n * & 0 0 ^ e f h n t $ = ~ $ F $ @ $
0x36e85c…36e9f0 Dummy {f00=0x0116, f01=0x40ee, f02=» @ H IDENT Z:TB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 % Z:TB60 % H Z:TB60T % Z * & % n $ % 6 % 6 % @ % $ @ $
0x36e9f0…36eb84 Dummy {f00=0x0116, f01=0x40d2, f02=» @ H IDENT D:TB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 & D:TB60 & H D:TB60T & Z * & . & n & . & @ &
0x36eb84…36ed18 Dummy {f00=0x0116, 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
0x36ed18…36eeac Dummy {f00=0x0116, 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 < .
0x36eeac…36f040 Dummy {f00=0x0116, f01=0x0190, f02=» # $ < $ = % B = & = 0 ' = @ ( , = P ) 7 = ` * F = p + = , = - = . = / 7 = 0 ( = 1 4 = 2 & = 3 2
0x36f040…36f1d4 (6, 7) Dummy {f00=0x0116, 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 > >
0x36f1d4…36f368 Dummy {f00=0x0116, 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
0x36f368…36f4fc Dummy {f00=0x0116, 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 @ * @
0x36f4fc…36f690 Dummy {f00=0x0116, 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
0x36f690…36f824 Dummy {f00=0x0116, 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
0x36f824…36f9b8 Dummy {f00=0x0116, 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
0x36f9b8…36fb4c Dummy {f00=0x0116, 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
0x36fb4c…36fce0 Dummy {f00=0x0116, 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
0x36fce0…36fe74 (6, 8) Dummy {f00=0x0117, 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
0x36fe74…370008 Dummy {f00=0x0117, 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
0x370008…37019c Dummy {f00=0x0117, 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 >
0x37019c…370330 Dummy {f00=0x0117, 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
0x370330…3704c4 Dummy {f00=0x0117, 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
0x3704c4…370658 Dummy {f00=0x0117, 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
0x370658…3707ec Dummy {f00=0x0117, 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
0x3707ec…370980 Dummy {f00=0x0117, 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
0x370980…370b14 (6, 9) Dummy {f00=0x0117, 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
0x370b14…370ca8 Dummy {f00=0x0117, 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
0x370ca8…370e3c Dummy {f00=0x0117, 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
0x370e3c…370fd0 Dummy {f00=0x0117, 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
0x370fd0…371164 Dummy {f00=0x0117, 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
0x371164…3712f8 Dummy {f00=0x0117, 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
0x3712f8…37148c Dummy {f00=0x0117, 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
0x37148c…371620 Dummy {f00=0x0117, 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
0x371620…3717b4 (6, 10) Dummy {f00=0x0117, 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
0x3717b4…371948 Dummy {f00=0x0117, 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
0x371948…371adc Dummy {f00=0x0117, 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
0x371adc…371c70 Dummy {f00=0x0117, 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
0x371c70…371e04 Dummy {f00=0x0117, 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
0x371e04…371f98 Dummy {f00=0x0117, 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 [
0x371f98…37212c Dummy {f00=0x0117, 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
0x37212c…3722c0 Dummy {f00=0x0117, 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 ] : ]
0x3722c0…372454 (6, 11) Dummy {f00=0x0117, 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 ^ ^ ^
0x372454…3725e8 Dummy {f00=0x0117, 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 _ _ _ _ _
0x3725e8…37277c Dummy {f00=0x0117, 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 ` ` ` ` ` ` `
0x37277c…372910 Dummy {f00=0x0117, 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 ` ` ` ` ` ` `
0x372910…372aa4 Dummy {f00=0x0117, f01=0x0190, f02=» @ H IDENT PTSDE TRA 10.0 80-11-19 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 j D
0x372aa4…372c38 Dummy {f00=0x0117, 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 ,
0x372c38…372dcc Dummy {f00=0x0117, f01=0x0190, f02=» * H t
0x372dcc…372f60 Dummy {f00=0x0117, 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
0x372f60…3730f4 (6, 12) Dummy {f00=0x0118, f01=0x018e, f02=» i j k ( l 8 m H n X o h q x s . ~ * J F " D @) R!P V R_, R6 ## _ jX 3 RRRRRRRRRR R0R 0}@d R" "
0x3730f4…373288 Dummy {f00=0x0118, f01=0x018e, f02=» 4 8 4 ( : 8 4 H ( X J F " D R * R 1W 'W 1XF1XF1XF 1 v j !!Ov v" C h > & " > . 8 J F "
0x373288…37341c Dummy {f00=0x0118, f01=0x0190, f02=» c ~ d e ~ ( f 8 g ~ H J F " D @ " W% L h * h `h h h 2` RRRRRRRRW 4 !4 "4 $4 X J F " D & #4 H "4 4 * 4 | z { !V f 4 * F
0x37341c…3735b0 Dummy {f00=0x0118, f01=0x0190, f02=»/0R f 4 0 f 4 L R 4 0R 0X 0X$0X T v B 4 D D 2 T < d ! # t # ' < 6 J F " D 0X 0X W 0X W 0X 4P +W L R4 0X 4 j !! % L !j !!
0x3735b0…373744 Dummy {f00=0x0118, f01=0x0190, f02=» & ENTRY $ . & > REL 10.0 L $ d & t & & PROGRAM: $ & XX " h & dG
0x373744…3738d8 Dummy {f00=0x0118, f01=0x0190, f02=» & - DEFINITION $ 0 , & < & 30 J JOB Z $ 0 n & - ~ DEFINITION $ 0 & & 40 ENTRY $ 0 &
0x3738d8…373a6c Dummy {f00=0x0118, f01=0x0190, f02=» $ "0 & & 60 # VERIFY . $ #0 D & T $ MODE b $ $0 v & % 70 CONVERSIONY $ %0 & & MODE $ &0 & (
0x373a6c…373c00 Dummy {f00=0x0118, f01=0x0190, f02=» & & U ) 99 " )h * & d : * CREATEO J $ * b & r + GET $ + , VALUE-SETSA $ , & - NAME: TS $ -
0x373c00…373d94 (6, 13) Dummy {f00=0x0118, f01=0x0190, f02=» C & / TYPE:F $ / . & f > & d N & ^ & l & z & f @ & & 0 SIZE OF $ 0 1 ELEMENT $ 1
0x373d94…373f28 Dummy {f00=0x0118, f01=0x0190, f02=» 4 XX " 4T & 4 * 5 ELEMENTO 8 $ 5 P 6 NO.:F ` $ 6 v & f & 7 XX " 7 ! & 7 & ~ ( 8 &
0x373f28…3740bc Dummy {f00=0x0118, f01=0x4088, f02=» & & & " & U 4 ( B @ ) L 4 4 N V r@
0x3740bc…374250 Dummy {f00=0x0118, f01=0x0190, f02=» @ H IDENT DENTER TRA 10.0 80-11-06 F1 O1111 REL 10.0 80-04-11 , ( DECLRA DECLRD DECLRN DECLRS DERR H $$$TRAN x 6 2 DECLRA DECLRDD DECLRNC DECLRS DERR B > ADJUSTN ATTPRTA CANC DEAPPL6 DEFORC1 DEGEN DELAST0 DELOCK >
0x374250…3743e4 Dummy {f00=0x0118, f01=0x0190, f02=» > : T:DYKI T:EDFLR T:EDWRC T:ERASD T:GETA T:GETC T:GETF D @ T:NKI T:PRINE T:SETCW T:TBWDE T:TFWDA T:THOMD T:TSTCD T:UPDF F T:XSTA TESTB & "
0x3743e4…374578 Dummy {f00=0x0118, f01=0x0190, f02=» 8 P j
0x374578…37470c Dummy {f00=0x0118, f01=0x0190, f02=» 8 6 J F " D R!4 R"4 R#4 R$4 R 4 @} 8RIn06 W 0X ! WP0X ! WII~ B , b L , r S , c 6 j 6 r , | , J F " D @ 0X ! W?H 0X ! W50X!! W.@n6 0X ! W 0X ! I~
0x37470c…3748a0 Dummy {f00=0x0118, f01=0x0190, f02=» P P B J F " D W 0X ! (0X :RH~ ?R0X P :R _ 0X P C{P A )?RH ?R0XHoO 0 > ~ > N
0x3748a0…374a34 (6, 14) Dummy {f00=0x0118, f01=0x0190, f02=»W 0X K R! 2 RRRW 0X 0R /1X F_5K~|0X ! _D2 RR ~ < L x l L | : P $ 0 & ' . 0 0 1
0x374a34…374bc8 Dummy {f00=0x0118, f01=0x0190, f02=»RW L E ^ G 8 J , * U j : V F J W j Z X ^ j Y ^ z Z g [ j j ] j ^ j _ j ` j a
0x374bc8…374d5c Dummy {f00=0x0118, f01=0x0190, f02=» J " ( L 8 H : X P h x : -" J F " D & 0R P RK?R0R Pm0X 0R -8RWa0X 6 > W<( , ! Ld :
0x374d5c…374ef0 Dummy {f00=0x0118, f01=0x018e, f02=» # !_'0X P 0X P oLW oLd o "_HI 0X R2 RRRW ( H ) B X + h 6 J x J F " D @ @ @ @ @h@j #U 0R ! Td$ + " , 0X R %@|PI0X T /hZ ] ^ ` L
0x374ef0…375084 Dummy {f00=0x0118, f01=0x018e, f02=» 5 ( J F " D @" !T f ! j !! H{ RK?R0X P 0X P H RK?R RK?R0X W 2 8 L J . & J .
0x375084…375218 Dummy {f00=0x0118, f01=0x0190, f02=» ( 8 H X h J F " D RRR ! 0X 0X P I 0X P AmH 0R ! T R0X P I 0X P Am 2 x J F " D RRRRRRRRRR
0x375218…3753ac Dummy {f00=0x0118, f01=0x0190, f02=» ! J & ) $ + 8 4 1 $ D 7 T < J d J F " D 0R 0R V 0X !_ $ + ?RI 0XWL0X P 0R 9R0X !0R 0R T10X T2 t C 8 J D ] < b B d
0x3753ac…375540 Dummy {f00=0x0118, f01=0x0190, f02=» 0XP#:R;RIo 0X P H R b 0 @ P ` p B j : $
0x375540…3756d4 (6, 15) Dummy {f00=0x0118, f01=0x0190, f02=» j J [ . [ > A N [ ^ [ n [ ~ . I A 4
0x3756d4…375868 Dummy {f00=0x0118, f01=0x0190, f02=»R?RH N J , . < $ x L - : 5 4 l 7 | 9 ; : ? P J F " D { A W B R.K #_ 0X P 0X P H %@m?R - !0X ( 1X F?R0X 0R
0x375868…3759fc Dummy {f00=0x0118, f01=0x018e, f02=» 6 q : y J ~ * J F " D @ /P 0X K ?R0X K ?R0X_.0X 0X H { ,W H s +0X 0X P 0R : 8 $ J .
0x3759fc…375b90 Dummy {f00=0x0118, f01=0x0190, f02=» < ( J 8 H J F " D +_UH KA^0X 1X F?RAm #4 0X S 0X P 0R Q I ) *&K X < J .
0x375b90…375d24 Dummy {f00=0x0118, f01=0x0190, f02=»0X P H % RKW/ R?R #?R 08R $+ %'0X 0R < v E 4 F D J T K d S [ t T [ U [ V W % X ! Y B Z P _
0x375d24…375eb8 Dummy {f00=0x0118, f01=0x40e6, f02=»KW RK ! 2 RRRRRRRR " R@ 0X P I 0X P 2 RRR #I @o4 2 B B R & b & p ( ~ & 1 ( RRR_ (?R @ Z P _
0x375eb8…37604c Dummy {f00=0x0118, f01=0x0190, f02=» @ H IDENT DENT01 TRA 10.0 80-10-28 F1 O1111 SHB 10.0 80-04-11 DENT01 H $$$TRAN Z DENT01 l D @ CLEARBN DEACC DECLRA DECLRD8 DECLRN1 DECLRS1 DEDISC0 DELAST B > DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR SETB
0x37604c…3761e0 Dummy {f00=0x0118, f01=0x0190, f02=» z * @ ^ r
0x3761e0…376374 (6, 16) Dummy {f00=0x0119, f01=0x0190, f02=» > . N # ^ * n 3 ~ 7 8 9 : ; < G = >
0x376374…376508 Dummy {f00=0x0119, f01=0x0190, f02=» U V ] ^ ] , _ | < e l L f l g l h | i j k $ s J F " D @R H~ I Ao { R_ RKH{ 2 RRR_ 2 RRRRRRRb & R.
0x376508…37669c Dummy {f00=0x0119, f01=0x0190, f02=» %?RIm)I~ Rh ( & g" " H I l * ( : J ( Z j ( z | | J F " D R@o0X ! _ R_ 0X ! R%Z @m@n 0X ! _ I
0x37669c…376830 Dummy {f00=0x0119, f01=0x0190, f02=» - 8 4 = ( J F " D <R R" ?RHm R @ P&@jP A W3Ao R,P R!_ g R&K7 L@mAo?RH 0R 8 D [ b *R t J F " D @Hm R! &@h@jP #W @fPO $0R TF L h ! !T R#P (
0x376830…3769c4 Dummy {f00=0x0119, f01=0x018e, f02=»& ?R Ub & @ R.P )gL Ao?RAzAzT @mA R*P @ ?R@ @m8R@xP F X h x D
0x3769c4…376b58 Dummy {f00=0x0119, f01=0x0190, f02=» ( A 8 % H (0 L X 5 j 7 z ; U < U = > d ? J F " D )K?RI R)K?RI H W Io ?R g( " C~<R)g
0x376b58…376cec Dummy {f00=0x0119, f01=0x0190, f02=» &?R #* " #g_> ! & #g #L_ 0X ! R$PE;R@ z 0 8 T J T Z j $ z $ $ . J F " D }({ % H~ - !gL Az?R@z?RH~ C <RI 0X ! W 0X ! W /8
0x376cec…376e80 Dummy {f00=0x0119, f01=0x0190, f02=» 0 - A 0 * J F " D ?RAz % Rh ( & J RK @o?R@m!gL C~8R?R@zC~8R?R?RKm Jz I gL < D U U
0x376e80…377014 (6, 17) Dummy {f00=0x0119, f01=0x0190, f02=»X L C U X . * : ^ J ` Z d j h z w ~ ( J F " D @! R&_ I~ Jo K _@ @ R!0X@o R(K RP RW R6 - R_ Hm 0X
0x377014…3771a8 Dummy {f00=0x0119, f01=0x018e, f02=» ( , ( 8 J F " D ! A R%V @ _ @ R"@m0X2 RRRRRRR R" / 80X !"W 0X ! @m Rh ( H 2 4 A A
0x3771a8…37733c Dummy {f00=0x0119, f01=0x018e, f02=» J F " D & H I R?RAo( ! ?R R?RAoW I~ Co8RC <RCz8R RAo R"K2 RRRR0X ! V . f v |
0x37733c…3774d0 Dummy {f00=0x0119, f01=0x0190, f02=» / A 1 * 4 ( 6 8 : U H ; U X < h = 3 x J F " D R!0X R(V RK?R R#K2 RRRRRRRR1X F_ Co<RCm<RCz8R0X R!K2 RRRR J M O ,
0x3774d0…377664 Dummy {f00=0x0119, f01=0x018e, f02=» !U R*8R0X ?R Rh ! & R?RC <R Rh ( & H I R?R g( D T U d U t D A A
0x377664…3777f8 Dummy {f00=0x0119, f01=0x0190, f02=» $ . $ 4 D D J F " D @o@z Ub & 5 +@mA{ R*V#( - 1XF0X ! 0X { R&{ mU_"@{Ao?R m T " % ' - /
0x3777f8…37798c Dummy {f00=0x0119, f01=0x018e, f02=» #W R B ( L T 0 b @ g P q ` t0 p y & { J F " D @80X _5 R_:A @{0R $} !4 @{Az R'P ;R -pA{_% R!gL @m?R?R@ _/
0x37798c…377b20 Dummy {f00=0x0119, f01=0x4098, 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@ _/
0x377b20…377cb4 (6, 18) Dummy {f00=0x0119, f01=0x8190, f02=» @ H IDENT DENT02 TRA 10.0 80-10-29 F1 O1111 REL 10.0 80-04-11 $ DEEDIT DELAST DENDUP $ H $$$TRAN $ j $ DEEDIT 7 DELASTD DENDUP $ | B > ATTDB ATTWB CMPIND. DEDISC- DEFIND1 DELOCKL DEPOOL0 EMPTYT $ D @ GETDUP MASKL T:DISPD T:DUP
0x377cb4…377e48 Dummy {f00=0x0119, f01=0x8190, f02=» $ v % % 2 % P % f % % % % %
0x377e48…377fdc Dummy {f00=0x0119, f01=0x8190, f02=» % & & 2 & F & d " & t & ) & ; & J F " D @h0R ! P # ( + ?R0X <RAhW %hZ ( !T % (R ! R & b
0x377fdc…378170 Dummy {f00=0x0119, f01=0x8190, f02=»RRRR !X b !U ( & b T ' ' 2 ' B ' R J F " D W )W Lf "d "!U d ! R8T 0R (+0R + j !! ' b 7 ' ' ( ' ' '
0x378170…378304 Dummy {f00=0x0119, f01=0x8190, f02=» ' * ( J F " D P W ! ! 0X 0X 0X #@hT A !!4 ! 4 ! U ( J ( n W . ( ~ J F " D @6 _l; 2*0R !T Wo0R "T j !! !b WX WU Wb Sf ( 0 ( 1 ( (
0x378304…378498 Dummy {f00=0x0119, f01=0x8190, f02=» P ( ) ) ) , J F " D W Lh U ! V !!4 !"4 80X 1X F 6 '' ) < ) ! " ) 7 " ) > ) J F " D ' ' y ''' "W% ," "0X We0X W "_ '_ !0X
0x378498…37862c Dummy {f00=0x0119, f01=0x818e, f02=» ) J F " D @ 2 RRRW 0X 0R (P" &W:6 33 33 333 36 #W(1X F_ !0X * * V 4 * f * v * * * * * * & * * *
0x37862c…3787c0 Dummy {f00=0x0119, f01=0x8190, f02=» " ( + " , + " . + " / + . " 0 + < ( + J + V & + f & + t SYMBOLIC: + $ + ( + + & + & + & CONFIRM RECORD DELETE: +
0x3787c0…378954 (6, 19) Dummy {f00=0x0119, f01=0x8190, f02=» + , & , & , & RECORD , 4 $ N , J & , Z TTTT9D , h " N , ~ & , ( , , & , & , & DUPL FROM , VALUESET , $
0x378954…378ae8 Dummy {f00=0x0119, f01=0x818e, f02=» $ - & : - ( - ! - , & : - < & : - J & CONFIRM RECORD INSERT: - X ( - | " ) - & - & - & RECOVERY OF - # JOBE - $ #E - & : - & k -
0x378ae8…378c7c Dummy {f00=0x0119, f01=0x8190, f02=» & . & . & RECORD CORRECTIONS . ( . @ & . L & . & . j " & RECORD MUST BE VERIFIED . x ( . ' . & . & RECOVERY RUNNING.R . ( . ( . &
0x378c7c…378e10 Dummy {f00=0x0119, f01=0x818e, f02=»IRM . $ +R / $ & CONVERSION OF ALL BATCHES / ( / D , / P & / ` $ *O / n & ON UNIT:UN / ~ - XU / " -iN / ( / . / & - / $ *N / & WITHIN JOB:O /
0x378e10…378fa4 Dummy {f00=0x0119, f01=0xc182, f02=» / & FF*O 0 ( 0 0 0 & & 0 6 $ & ENTER WANTED RECORDNUMBER: 0 D ( 0 l 1 0 x & E 0 ( 0 2 0 & 0 ( 0 3 0 & 0 ( 0 4 0
0x378fa4…379138 Dummy {f00=0x0119, 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
0x379138…3792cc Dummy {f00=0x0119, f01=0x0190, f02=» , @ X l
0x3792cc…379460 Dummy {f00=0x0119, 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 ]
0x379460…3795f4 (6, 20) Dummy {f00=0x011a, 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
0x3795f4…379788 Dummy {f00=0x011a, 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
0x379788…37991c Dummy {f00=0x011a, f01=0x40f0, f02=» & & ( , & < & . J & . Z ( h t & . & ( * & $ @ 0X O _U "4 #4 $4 ` @ ! !P 1X F_ 1X F !0X X
0x37991c…379ab0 Dummy {f00=0x011a, f01=0x8190, f02=» @ H IDENT DENVAL TRA 10.0 80-10-29 F1 O1111 REL 10.0 80-04-11 DENVAL H $$$TRAN Z DENVAL l B > ATTDB ATTWB CLEARB. CMPIND- DEAPPU1 DECOMPL DEDISC0 DEEDIT D @ DEFIND DEPOOL EMPTYT GETIND GETVAL MSKOUT SETB T:GETA
0x379ab0…379c44 Dummy {f00=0x011a, f01=0x8190, f02=» , J ^ v
0x379c44…379dd8 Dummy {f00=0x011a, f01=0x8190, f02=» * : 0 " J 8 Z < F j = z > A J F " D @g@i@k@ "0X ( R#W H % W % 6 0X R2 RRRW E ^ M/=><DGR
0x379dd8…379f6c Dummy {f00=0x011a, f01=0x8190, f02=» J ( 8 H X h x *
0x379f6c…37a100 Dummy {f00=0x011a, f01=0x8190, f02=» N $ ( J F " D RRR !j !! j ! !$ L0R ! ?RA _ !A <R R 0X 8 N # +-*: '0 - ? L!ASUFTCXE J F " D & ' ( 0R ! <R_ "
0x37a100…37a294 (6, 21) Dummy {f00=0x011a, f01=0x8190, f02=» e * f g $ h 4 i M D n ) T t d y N t J F " D @h~ * !P *W !, ( R !2 RRRRRRRRRR ?RA _ 0R !<R " ? &
0x37a294…37a428 Dummy {f00=0x011a, f01=0x8190, f02=» N 0 N @ P * ` " p J F " D 8R?R6 0R !<R " ?R0R !<R " ?R( 0R ( #)0X A 8 m 8 )
0x37a428…37a5bc Dummy {f00=0x011a, f01=0x8190, f02=» t } J F " D @ !P !W !j !! ! Lf "d "!U d ! R8P R& ) n ~ & J F " D !?R 0R (+0R +j !! 1j !! 2 !I 0X P,W I 'j !! ! R
0x37a5bc…37a750 Dummy {f00=0x011a, f01=0x8190, f02=» $ h o P U ! ! 9R_ " W R& ?R R ?R0R 9R?R J V Z J F " D " W @g@k !Ai R !?R $@kAgW #@gAk@i ! j !! ! U j L V O ? Q V ?? o
0x37a750…37a8e4 Dummy {f00=0x011a, f01=0x8190, f02=» 7 !_ h ! !X W#@ T 0X P! W I h ~ < L J F " D P Wk ~Ub~ "~ @ P 0R "!0R ""6 ! "W ! "W +-*: 7 J F " D ! "W ! " , ~Lh~ $ !8R " " !6 P=W Q9
0x37a8e4…37aa78 Dummy {f00=0x011a, f01=0x8190, f02=» P 5Ii Ik Ig A|W ! ! * ( ! < ? ! L ! ^ J F " D 4@|@ R& , LhZ !PDj !! 0R (P L0R ! n ! DGRN ! ! !
0x37aa78…37ac0c Dummy {f00=0x011a, f01=0x8190, f02=» ' ! ' " ' " , " 0 ' " @ ' " P " " ` " " p " " " " " " " " " " " " " "
0x37ac0c…37ada0 Dummy {f00=0x011a, f01=0xc162, f02=»RRRRRR " P V # - # J F " D RRRRRRRRRRRRRRRR !_h( !?R 4( !_ "_ R _ ! j !! # . K # | j $ # J F " D @ ! _ R_ A| " @ P & ' ( !0X H| " 4/ o g # J F " D " " @fI @j j !!
0x37ada0…37af34 (6, 22) Dummy {f00=0x011a, 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 ' '
0x37af34…37b0c8 Dummy {f00=0x011a, 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 !!
0x37b0c8…37b25c Dummy {f00=0x011a, 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
0x37b25c…37b3f0 Dummy {f00=0x011a, 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 !
0x37b3f0…37b584 Dummy {f00=0x011a, 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
0x37b584…37b718 Dummy {f00=0x011a, 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
0x37b718…37b8ac Dummy {f00=0x011a, 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
0x37b8ac…37ba40 Dummy {f00=0x011a, 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
0x37ba40…37bbd4 (6, 23) Dummy {f00=0x011a, f01=0x0190, f02=» & $ 10 SUPERVISORY FUNCTIONS $ 6 & F & T PROGRAM: b $ z & XX " h & d & d 11 DATE AND TIME $
0x37bbd4…37bd68 Dummy {f00=0x011a, f01=0x40b0, f02=»& 14 SYSTEM-VARIABLESS $ 0 & @ 15 FILE-SPACEI N $ l ( | &?RP @ " h & d & d 11 DATE AND TIME $
0x37bd68…37befc Dummy {f00=0x011a, 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.
0x37befc…37c090 Dummy {f00=0x011a, f01=0x0190, f02=»K ! _ @n0X T !S0X ! _*a F0X n # , & < 11 DATE AND TIME J $ j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x37c090…37c224 Dummy {f00=0x011a, f01=0x4070, f02=» 999999 " T * ( : @S !4 F E Z@ l j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x37c224…37c3b8 Dummy {f00=0x011a, 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
0x37c3b8…37c54c Dummy {f00=0x011a, 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
0x37c54c…37c6e0 Dummy {f00=0x011a, f01=0x0190, f02=» NAME: TS $ & e , & < & J & X & e @ f & x & $ ( C & TYPE: $ & f &
0x37c6e0…37c874 (6, 24) Dummy {f00=0x011b, f01=0x0190, f02=» ELEMENT $ S: , $ > & f N & d ^ & n XX | " T & & g XX " T & ELEMENT
0x37c874…37ca08 Dummy {f00=0x011b, f01=0x406c, f02=» ( > : 8 @RRR_,4 j 1! ! !j 2! ! L R R ! 4 t V@ h & n XX | " T & & g XX " T & ELEMENT
0x37ca08…37cb9c Dummy {f00=0x011b, 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
0x37cb9c…37cd30 Dummy {f00=0x011b, f01=0x0190, f02=» % 4 TT ( < < J F " D Hd ?R ! R8T R& ( RK !0R#$}?R ) _ ! Lb "" R" L B ! D R Y ] ^ _ g
0x37cd30…37cec4 Dummy {f00=0x011b, f01=0x0190, f02=» ! L ! L L W b 0 " @ P ` J F " D L " ! j " j $" Af0R~F0R "P 0R~Fj~#! ! ! !W p c $ !
0x37cec4…37d058 Dummy {f00=0x011b, f01=0x0190, f02=» $$ %0X 0X %%0X %% ` . > N ^ n ~ $ ! $ +
0x37d058…37d1ec Dummy {f00=0x011b, f01=0x0190, f02=» d { J F " D @ !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X %%I j z R 3 @ , ,
0x37d1ec…37d380 Dummy {f00=0x011b, f01=0x0190, f02=» !_ ! R8 Z ( 8 T H J F " D ! R( TJ?R ! R& ! Lb !# ~ Z % &
0x37d380…37d514 (6, 25) Dummy {f00=0x011b, 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_
0x37d514…37d6a8 Dummy {f00=0x011b, 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 &
0x37d6a8…37d83c Dummy {f00=0x011b, f01=0x40aa, f02=» & & & U 0 ( > F A ? R "P L0R~F " !j~#! ! T j " $ j !! 1j !! 2 !!4 2 J @ L0 j N &
0x37d83c…37d9d0 Dummy {f00=0x011b, 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
0x37d9d0…37db64 Dummy {f00=0x011b, f01=0x0190, f02=» NAME CONTENTS $ & & 6 & X% D 01 T $ f & @ v & ! & & X% 02 $ & @ & " &
0x37db64…37dcf8 Dummy {f00=0x011b, f01=0x0190, f02=» & @ & $ & . & X% < 05 L $ ^ & @ n & % & & X% 06 $ & @ & & & & X%
0x37dcf8…37de8c Dummy {f00=0x011b, f01=0x416c, f02=» & @ & ( & & & X% 4 09 D $ V & @ f & ) x & & X% 10 $ & @ & * & &
0x37de8c…37e020 Dummy {f00=0x011b, 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
0x37e020…37e1b4 (6, 26) Dummy {f00=0x011b, 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
0x37e1b4…37e348 Dummy {f00=0x011b, 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 &
0x37e348…37e4dc Dummy {f00=0x011b, f01=0x0190, f02=» FILE $ & , SIZE : $ N & ^ FREE %M l $ & SYSTEMFILE $ & ZZZZ9 " ! &
0x37e4dc…37e670 Dummy {f00=0x011b, f01=0x410c, f02=»$ # & ZZZZ9 " $ 2 & B ZZZZ9 P " % f & # v ZZ9 " & & & & U ( R$4 @
0x37e670…37e804 Dummy {f00=0x011b, 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
0x37e804…37e998 Dummy {f00=0x011b, 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
0x37e998…37eb2c Dummy {f00=0x011b, f01=0x0190, f02=» $ v , J F " D ) ?R Lj !& R'bc c b W 0X ! L R$ r"?R 7" v$ <
0x37eb2c…37ecc0 Dummy {f00=0x011b, 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
0x37ecc0…37ee54 (6, 27) Dummy {f00=0x011b, 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 %%
0x37ee54…37efe8 Dummy {f00=0x011b, 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
0x37efe8…37f17c Dummy {f00=0x011b, f01=0x0190, f02=» N Y Q $ & 4 & 20 B FORMAT R $ 0 h & - x DEFINITION $ 0 & PROGRAM: $ 0 & XX
0x37f17c…37f310 Dummy {f00=0x011b, f01=0x0190, f02=» $ 1 DEFINITION $ 1 * & : & 22 H BALANCE X $ 2 p & - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x37f310…37f4a4 Dummy {f00=0x011b, 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
0x37f4a4…37f638 Dummy {f00=0x011b, 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
0x37f638…37f7cc Dummy {f00=0x011b, 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
0x37f7cc…37f960 Dummy {f00=0x011b, 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
0x37f960…37faf4 (6, 28) Dummy {f00=0x011c, 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
0x37faf4…37fc88 Dummy {f00=0x011c, 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 ` ( '
0x37fc88…37fe1c Dummy {f00=0x011c, 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
0x37fe1c…37ffb0 Dummy {f00=0x011c, 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 !
0x37ffb0…380144 Dummy {f00=0x011c, 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
0x380144…3802d8 Dummy {f00=0x011c, 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
0x3802d8…38046c Dummy {f00=0x011c, f01=0x0190, f02=» CORRECTION $ 1 & * & 8 & F $ %1 T & d & r FIELD $ 1 & : FU & XXXE " $ & START:
0x38046c…380600 Dummy {f00=0x011c, f01=0x018e, f02=» & & ZZ " & & . 0 & OCCUPIED > RECORD T $ C j LENGTH z $ C & : & E TTTT " ( & & &
0x380600…380794 (6, 29) Dummy {f00=0x011c, f01=0x0190, f02=» & . & MINIMUM LENGTH ( $ I > & > N & : & @i j XX | " ' & & & MUST ENTER & (Y/T & & N & N
0x380794…380928 Dummy {f00=0x011c, f01=0x0190, f02=» & N & N & ): & @s@ 0 & #@ B & R & ` & DUPLICATE n & & : & jA & & . & VERIFY & 9 & (Y/I &
0x380928…380abc Dummy {f00=0x011c, f01=0x0190, f02=»ITIAL CLEAR & ( & ( " & Y 0 & Y > & /N): L & u@ ^ & %@ p & . & SPECIAL HANDLING: & @k ZZVZZZ " & &
0x380abc…380c50 Dummy {f00=0x011c, f01=0x0190, f02=» (#G:...) $ & 2 $ ACCUMULATION 2 $ N (#A:...) ^ $ v & & o@ & !@ & & p@ & "@ & & &
0x380c50…380de4 Dummy {f00=0x011c, f01=0x0190, f02=»DEFINITION $ 2 & j 2 " & # 2 & # @ CORRECTION N $ 2 h & x & $ %2 & & & STARTN $ 2 & & :
0x380de4…380f78 Dummy {f00=0x011c, f01=0x018e, f02=» & @ ZZ " & & 0 & > BATCHN L $ & b & -ACCUMULATOR:A r & m XX " ( & . & SPECIAL HANDLING: & @k
0x380f78…38110c Dummy {f00=0x011c, f01=0x018e, f02=» & # GENERATION $ # 0 $ (#G:...) @ $ $ X & h & o@ v & !@ & & p@ & "@ & & & U ( %
0x38110c…3812a0 Dummy {f00=0x011c, f01=0x018e, f02=» & SIZE: & f ` ( AA . " ( ! @ & P ) LINE ^ $ )! r * NUMBER $ *! & : & + + Z9 " + " & . , NUMBER
0x3812a0…381434 (6, 30) Dummy {f00=0x011c, f01=0x0190, f02=» & & 2 & $ & 3 2 & ( @ & 4 N & 2 & 5 j & < x & 6 & F & 7 & & & . 1234567890 $ .#
0x381434…3815c8 Dummy {f00=0x011c, f01=0x413e, f02=»7890 $ 2# 3 1234567890 $ 3# 6 4 1234567890 F $ 4# ` 5 123456789 p $ 5# & & & & & & n @ & (
0x3815c8…38175c Dummy {f00=0x011c, 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
0x38175c…3818f0 Dummy {f00=0x011c, 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@
0x3818f0…381a84 Dummy {f00=0x011c, 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
0x381a84…381c18 Dummy {f00=0x011c, f01=0x018e, f02=» ~ * : J J F " D LW R XT 8 RK2 RRRJgwjm & {!_: RK2 RRRRR_ R({ P _ &! Z j j
0x381c18…381dac Dummy {f00=0x011c, 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@{
0x381dac…381f40 Dummy {f00=0x011c, f01=0x0190, f02=» $ 4 7 D T d 7 t & & 23 GET FORMAT $ 3 &
0x381f40…3820d4 (6, 31) Dummy {f00=0x011c, f01=0x403c, f02=» 0R($}2 RRR?R R&{ 0R 0}4 _ j &@ 8 x h p
0x3820d4…382268 Dummy {f00=0x011c, 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
0x382268…3823fc Dummy {f00=0x011c, 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
0x3823fc…382590 Dummy {f00=0x011c, f01=0x0190, f02=» d 0 @ P ` M p & & 24 COPY FORMAT $ 4 & FORMAT $ 4 & TO
0x382590…382724 Dummy {f00=0x011c, f01=0x40aa, f02=» & v @ & m & m ( & @ 6 & U H ( V . * ( RKW RK2 RRW R&{ _ R&{ 0R 0}4 b @ FORMAT $ 4 & FORMAT $ 4 & TO
0x382724…3828b8 Dummy {f00=0x011c, 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 +
0x3828b8…382a4c Dummy {f00=0x011c, f01=0x018e, f02=» < & & 30 JOB , $ 0 @ & - P DEFINITION ^ $ 0 x & PROGRAM: $ 0 & 3 & XX " h & d
0x382a4c…382be0 Dummy {f00=0x011c, f01=0x4118, f02=» DEFINITION $ 1 & . & 32 < GET L $ 2 ` & p JOB ~ $ 2 & - DEFINITION $ 2 ( @ R_? ! 4 D
0x382be0…382d74 (6, 32) Dummy {f00=0x011d, 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
0x382d74…382f08 Dummy {f00=0x011d, f01=0x018e, f02=» & : R f
0x382f08…38309c Dummy {f00=0x011d, 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
0x38309c…383230 Dummy {f00=0x011d, 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
0x383230…3833c4 Dummy {f00=0x011d, 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 !" )*
0x3833c4…383558 Dummy {f00=0x011d, 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
0x383558…3836ec Dummy {f00=0x011d, f01=0x0190, f02=» & & 99 " h * & d : CREATE J $ b & r GET $ JOB-DEFINITION $ & JOBNAME: $
0x3836ec…383880 Dummy {f00=0x011d, f01=0x0190, f02=» & BATCHHEAD: $ 6 & f F & 4 X & h BALANCE: v $ & &g & 5 & FORMAT $ &
0x383880…383a14 (6, 33) Dummy {f00=0x011d, f01=0x0190, f02=» & + & FORMAT $ 4 & D 2: R $ d & fA r & "A & ! SYMBOLIC: $ !A & &A & , & " FORM
0x383a14…383ba8 Dummy {f00=0x011d, f01=0x0190, f02=»IC: $ $A & &A & - . & > % FORMAT L $ % b & r & 4: $ & & fA & $A & ' SYMBOLIC: $ 'A & &A
0x383ba8…383d3c Dummy {f00=0x011d, f01=0x0190, f02=» & %A & * SYMBOLIC: " $ *A < & &A L & / ^ & n + FORMAT | $ + & , 6: $ , & fA & &A & -
0x383d3c…383ed0 Dummy {f00=0x011d, f01=0x0190, f02=» / 7: $ / & fA " & 'A 4 & D 0 SYMBOLIC: R $ 0A l & &A | & 1 & 1 FORMAT $ 1 & 2 8: $ 2 &
0x383ed0…384064 Dummy {f00=0x011d, f01=0x4154, f02=» 4 FORMAT $ 4 & " 5 9: 0 $ 5 B & fA R & )A d & t 6 SYMBOLIC: $ 6A & &A & 3 & & & U ( 2 -
0x384064…3841f8 Dummy {f00=0x011d, 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 & "
0x3841f8…38438c Dummy {f00=0x011d, f01=0x0190, f02=» x 4 H j
0x38438c…384520 Dummy {f00=0x011d, 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 "
0x384520…3846b4 (6, 34) Dummy {f00=0x011d, 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
0x3846b4…384848 Dummy {f00=0x011d, f01=0x018e, f02=»& XX " h " & d3 2 & d B & 41 P OPEN NEW ` $ 1 x BATCH $ 1 & & 42 OPEN OLD $ 2 BATCH
0x384848…3849dc Dummy {f00=0x011d, f01=0x018e, f02=» BATCH $ 3 & * & 44 8 OPEN OLD H $ 4 ` TEST p $ & - ! BATCH $ !4 & $ '4 ( " & &
0x3849dc…384b70 Dummy {f00=0x011d, f01=0x018e, f02=» & % MODE $ %4 & & 4 6 & F & TEST T $ &4 h & x $ *4 & $ .4 & $ 14 & $ 44 ( '
0x384b70…384d04 Dummy {f00=0x011d, f01=0x0190, f02=» + UNIT $ +5 & :U ( & 8 , X J " ,i & l - VOLUME z $ - & : & & ( . / JOB $ /
0x384d04…384e98 Dummy {f00=0x011d, f01=0x410e, f02=» $ 2 3 NAME $ 3 $ & : 4 & " B & l V ( d 4 p & & U ( 5 & U & ( X _ @
0x384e98…38502c Dummy {f00=0x011d, 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
0x38502c…3851c0 Dummy {f00=0x011d, f01=0x0190, f02=» . > N " ^ $ n & . ~ 6 8 ; . ? J F " D R! R4 R"j ! ! !j o Hi 0R F R ! " !
0x3851c0…385354 (6, 35) Dummy {f00=0x011d, 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
0x385354…3854e8 Dummy {f00=0x011d, f01=0x0190, f02=» & $ R ( V D G $ k 4 m D J F " D @ R( R $j ! $! !j $ $4 0R F !h )Q ! ! #* T .
0x3854e8…38567c Dummy {f00=0x011d, 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
0x38567c…385810 Dummy {f00=0x011d, 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 !) ! !
0x385810…3859a4 Dummy {f00=0x011d, 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! " ( " " &
0x3859a4…385b38 Dummy {f00=0x011d, f01=0x0190, f02=» " " " # " # " # * " # 8 " # F " # T " # b " # p " # ~ " # " # " # " # " # " # " # " # " #
0x385b38…385ccc Dummy {f00=0x011d, f01=0x0190, f02=» $ & #! $ ( $ " $ . & $! $ > ( $ L $ X & %! $ h ( $ v $ & &! $ ( $ $ & '! $ ( $ $ & (! $ ( $
0x385ccc…385e60 Dummy {f00=0x011d, f01=0x018e, f02=»& ,! $ ( % % & -! % ( ( % 6 % B & .! % R ( % ` % l & /! % | ( % % & 0! % ( % % & 1! % ( % % & 2! %
0x385e60…385ff4 (6, 36) Dummy {f00=0x011e, f01=0x0190, f02=» & & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x385ff4…386188 Dummy {f00=0x011e, f01=0x400e, f02=» & @ ' & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x386188…38631c Dummy {f00=0x011e, 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 (
0x38631c…3864b0 Dummy {f00=0x011e, 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
0x3864b0…386644 Dummy {f00=0x011e, 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 *
0x386644…3867d8 Dummy {f00=0x011e, 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# +
0x3867d8…38696c Dummy {f00=0x011e, 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 ,
0x38696c…386b00 Dummy {f00=0x011e, f01=0x0190, f02=» , - - - . E - > - N ! - ^ " - n # - ~ $ - % - ' E - J F " D @h@k hQ 2 !0X2 RRRRRRRRRRRRRRRRRR?R !j b! - b! !j !! -
0x386b00…386c94 (6, 37) Dummy {f00=0x011e, 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 .
0x386c94…386e28 Dummy {f00=0x011e, 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 / /
0x386e28…386fbc Dummy {f00=0x011e, 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
0x386fbc…387150 Dummy {f00=0x011e, 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
0x387150…3872e4 Dummy {f00=0x011e, 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
0x3872e4…387478 Dummy {f00=0x011e, 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
0x387478…38760c Dummy {f00=0x011e, 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
0x38760c…3877a0 Dummy {f00=0x011e, 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
0x3877a0…387934 (6, 38) Dummy {f00=0x011e, 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
0x387934…387ac8 Dummy {f00=0x011e, 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
0x387ac8…387c5c Dummy {f00=0x011e, 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>
0x387c5c…387df0 Dummy {f00=0x011e, 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 "
0x387df0…387f84 Dummy {f00=0x011e, f01=0x40f0, f02=» " % & : & ) : & ZZVZZ9 : " " & & : 8 & 0 : H & ~ : V & ~ : d ( : r ' : ~ & 1 : ( : , ( & !L 1X F P # RKW ! 4 : : @ : " Z9 9 "
0x387f84…388118 Dummy {f00=0x011e, 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
0x388118…3882ac Dummy {f00=0x011e, 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
0x3882ac…388440 Dummy {f00=0x011e, 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
0x388440…3885d4 (6, 39) Dummy {f00=0x011e, 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 ! ! ! !
0x3885d4…388768 Dummy {f00=0x011e, f01=0x018e, f02=» , * * $ * 4 * D * T 7 d ; t i G ` Q " &
0x388768…3888fc Dummy {f00=0x011e, 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(
0x3888fc…388a90 Dummy {f00=0x011e, f01=0x408e, f02=» " " $ . ! R# T ! R0X "" U | : J W RK !+ !4 T Z x@
0x388a90…388c24 Dummy {f00=0x011e, 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
0x388c24…388db8 Dummy {f00=0x011e, f01=0x0190, f02=» ; [ < [ = [ ( > [ 8 ? [ H @ [ X A [ h B [ x C D [ E - F M G M H [ I [ J e J F
0x388db8…388f4c Dummy {f00=0x011e, 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!
0x388f4c…3890e0 Dummy {f00=0x011e, 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 / / / /
0x3890e0…389274 (6, 40) Dummy {f00=0x011f, f01=0x0190, f02=» / / / $ / 4 / D / T / d / t / / { / J F " D u aL u $
0x389274…389408 Dummy {f00=0x011f, 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
0x389408…38959c Dummy {f00=0x011f, f01=0x4134, f02=» ` b` ` !Hg '`4 ^ * " , " : " H ( V b 9! r " ( 99 " ( 999 "
0x38959c…389730 Dummy {f00=0x011f, f01=0x8190, f02=»X &' &W 0X 120X ,- , ! H d Q I " I 4 I D I T ; I d J F " D L c !%cL ! !0X & RKj ! W * + !!4 L@k@g I v Z $ I [ $ I $ I ] $ I
0x389730…3898c4 Dummy {f00=0x011f, f01=0x8190, f02=» g $ J h $ J i $ J $ j $ J 4 k $ J D l $ J T m $ J d n $ J t o $ J p J q J r J s J t J u $ J $ J
0x3898c4…389a58 Dummy {f00=0x011f, f01=0x818e, f02=» K ? K ? K $ $ K 4 $ K D $ K T $ K d $ K t $ K $ K $ K $ K K K K K
0x389a58…389bec Dummy {f00=0x011f, f01=0x8190, f02=» J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRW? ;6 ```` {`7{j {{````````` ` L L R L b L r L $ L L L ? L ? L . L L
0x389bec…389d80 Dummy {f00=0x011f, f01=0x8190, f02=» @ L J F " D % a=hZa! c!P "5 c!W'Ag >W @gT _F c! c _ R !T 0Ra !T _ M Y c M ^ ^ M p g M u ^ M J F " D @R "T ( ) , $a #aL W60Ra !T W-0Ra !T W$$a! #aL bc b" b M M
0x389d80…389f14 (6, 41) Dummy {f00=0x011f, f01=0xc108, f02=»W "b& cb_ c!,c _C( M ` N N . < N > J F " D $ c ! & RK ! W Kg !!4 c! bc b "b Uj c b m bF b N N N AAAAAA N " N ( N @ a 4 a N E N @ N
0x389f14…38a0a8 Dummy {f00=0x011f, 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
0x38a0a8…38a23c Dummy {f00=0x011f, f01=0x0190, f02=» O ~ P P : P X P n P P P P
0x38a23c…38a3d0 Dummy {f00=0x011f, 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
0x38a3d0…38a564 Dummy {f00=0x011f, 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
0x38a564…38a6f8 Dummy {f00=0x011f, 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
0x38a6f8…38a88c Dummy {f00=0x011f, 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
0x38a88c…38aa20 Dummy {f00=0x011f, 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
0x38aa20…38abb4 (6, 42) Dummy {f00=0x011f, 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
0x38abb4…38ad48 Dummy {f00=0x011f, 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 &
0x38ad48…38aedc Dummy {f00=0x011f, 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 &
0x38aedc…38b070 Dummy {f00=0x011f, 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
0x38b070…38b204 Dummy {f00=0x011f, 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 #
0x38b204…38b398 Dummy {f00=0x011f, f01=0x018e, f02=»ARCH Z $ &2 [ & [ ' MODE [ * $ '2 [ > & [ N ( BATCH [ $ (2 [ r & [ ) LEVEL [ $ )2 [ ( [ * [ & 53 [ + SEARCH [ $ +3 [
0x38b398…38b52c Dummy {f00=0x011f, f01=0x018e, f02=» $ .3 ( / 0 UNIT 0 $ 03 D & :U T & d 1 X v " 1i & 2 VOLUME $ 2 & : & & ( 3
0x38b52c…38b6c0 Dummy {f00=0x011f, f01=0x0190, f02=» 6 ] 7 JOB ] $ 7 ] , 8 NAME ] < $ 8 ] P & : ] ` & ! ] n & k ] ( ] 9 ] : BATCH ] $ : ] ; NAME ] $ ; ] & : ] &
0x38b6c0…38b854 (6, 43) Dummy {f00=0x011f, f01=0x0190, f02=» : ] & " ^ & l ^ ( ^ , ? ^ 8 & ^ H & ! ^ V & ^ f & " ^ t & ) ^ & # ^ & ^ & ^ & $ ^ & ^ & % ^ & ) ^ & & ^
0x38b854…38b9e8 Dummy {f00=0x011f, f01=0x0190, f02=»& * ^ & _ & + _ & ) _ , & , _ : & _ J & _ X & - _ f & _ v & . _ & ) _ & / _ & _ & _ & 0 _ & _ & 1 _ & ) _
0x38b9e8…38bb7c Dummy {f00=0x011f, f01=0x40da, f02=» & _ & 6 ` & ` & 7 ` , & ) ` < & 8 ` J ( ` Z @ ` f & ` v & ` & U ` ( ` &?R ` ` @ ` & _ & 1 _ & ) _
0x38bb7c…38bd10 Dummy {f00=0x011f, 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
0x38bd10…38bea4 Dummy {f00=0x011f, f01=0x0190, f02=» b b b 0 b R b t b b b b
0x38bea4…38c038 Dummy {f00=0x011f, 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
0x38c038…38c1cc Dummy {f00=0x011f, 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 &
0x38c1cc…38c360 Dummy {f00=0x011f, 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 $
0x38c360…38c4f4 (6, 44) Dummy {f00=0x0120, 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
0x38c4f4…38c688 Dummy {f00=0x0120, 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
0x38c688…38c81c Dummy {f00=0x0120, 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 . , @ @
0x38c81c…38c9b0 Dummy {f00=0x0120, f01=0x0190, f02=» @ H IDENT DE70ST TRA 10.0 80-12-18 F1 O1111 REL 10.0 80-12-17 DE70ST DEAP7A H $$$TRA7 b DE70ST DEAP7A t D @ ATTDB DEANOKT DEAOK0 DECLRA8 DECLRS1 DECONV1 DEDISC1 DELAST D @ DEOPBC DEPMSK7 DEPOOL DEPRUT DERECS DER
0x38c9b0…38cb44 Dummy {f00=0x0120, f01=0x0190, f02=» & D Z x
0x38cb44…38ccd8 Dummy {f00=0x0120, f01=0x018e, f02=» & : ( X h ( x ( ) - ? $ J F " D kU lU( xAdIe 1XFW 6 1
0x38ccd8…38ce6c Dummy {f00=0x0120, 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 " _
0x38ce6c…38d000 Dummy {f00=0x0120, f01=0x018e, f02=» : $ J F " D ("6 ( R,KW R-K ! R 2 RRRRAzT R ! '! ?R6 ( k lU 4 i " " $ & ) 5 i
0x38d000…38d194 (6, 45) Dummy {f00=0x0120, 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 #
0x38d194…38d328 Dummy {f00=0x0120, f01=0x0190, f02=» ( & $ J F " D R&{ 1XF0X ! 0X mU_" m 50R {&* p!0X R $ '$( D0R $} | @ 4 0 & . @ J F "
0x38d328…38d4bc Dummy {f00=0x0120, 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
0x38d4bc…38d650 Dummy {f00=0x0120, 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
0x38d650…38d7e4 Dummy {f00=0x0120, f01=0x0190, f02=» & d $ ( " . & > $ L & $ # j & z $ ' & $ * $ - ( & $ &
0x38d7e4…38d978 Dummy {f00=0x0120, f01=0x018e, f02=» & 71 CONVERSION $ $ 1 > & N VIA $ 1 p & DATA COMMN $ 1 ( & 71 CONVERSION $ 1
0x38d978…38db0c Dummy {f00=0x0120, f01=0x018e, f02=» & 73 " BATCH LINKING $ "3 2 ( B # N $ UNIT ^ $ $3 r & :U & % X " %i & & VOLUME $ & & :
0x38db0c…38dca0 Dummy {f00=0x0120, f01=0x0190, f02=» & !A & k ( * * 6 + BATCH F $ + , NAME l $ , & : & "A & l ( - & l & A & U
0x38dca0…38de34 (6, 46) Dummy {f00=0x0120, f01=0x416e, f02=» FILE $ 0 & - 1 NAME , $ 1 @ & : P & @ ^ & $ p ( 2 * & & FETCHING FORMAT: & & FROM DISC.R & & @ O
0x38de34…38dfc8 Dummy {f00=0x0120, 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
0x38dfc8…38e15c Dummy {f00=0x0120, 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
0x38e15c…38e2f0 Dummy {f00=0x0120, 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
0x38e2f0…38e484 Dummy {f00=0x0120, 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
0x38e484…38e618 Dummy {f00=0x0120, 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
0x38e618…38e7ac Dummy {f00=0x0120, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " # " & " ) " - " .
0x38e7ac…38e940 Dummy {f00=0x0120, f01=0x0190, f02=» ; " D " D " D & " D 4 " D B " D P " D ^ " D l " D z " = " > " ? " @ " A " B " C (
0x38e940…38ead4 (6, 47) Dummy {f00=0x0120, f01=0x0190, f02=» & & I/O-ERROR ( 4 @ & P & FUNCTION NOT ALLOWED ^ ( & & ! & COMPULSORY FIELD NOT FILLED ( & & ILLE
0x38ead4…38ec68 Dummy {f00=0x0120, f01=0x018e, f02=»ALREADY DEFINED/EXECUTED ( , & < & NOT FOUNDE J ( b n & ~ & NO DISC SPACEE ( & IN USEP $ O (
0x38ec68…38edfc Dummy {f00=0x0120, f01=0x0190, f02=» ! & ( $ &" MAXIMUM RECORD-LENGTH EXCEEDED & ( R ^ & n & NO RECORD FOUNDL | ( $ & , ' &% !MAXIMUM NUMBER OF FIELDS EXCEEDED (
0x38edfc…38ef90 Dummy {f00=0x0120, f01=0x0190, f02=» SYMBOLIC $ R & " FORMAT 0 $ R F & : V & : d & r , ' &% ! DOES NOT EXIST IN JOB-DEFINITION & D & OR ON SYSTEM-DISC ( ? &
0x38ef90…38f124 Dummy {f00=0x0120, f01=0x0190, f02=» & : & & : TTTT9S * " O @ & z O P & : ` & n n & : | & & : TTTT9S " gO & O & : & ASD & 5
0x38f124…38f2b8 Dummy {f00=0x0120, f01=0x0190, f02=»RORD v ( & ( & USERFILE ASSIGN-ERRORO 6 ( Z f & v & DISC I/O-ERROR & : XXXXX- " I ( & & DISC
0x38f2b8…38f44c Dummy {f00=0x0120, f01=0x0190, f02=» IN USEO $ "I ( " # . & > $ VALUE-SETE L $ $I f & : v & % IN USEE $ %I ( & & ' JOBN $ 'I
0x38f44c…38f5e0 Dummy {f00=0x0120, f01=0x0190, f02=» *I & : & l & IN ( + JOBN : $ +I N & : ^ & k l , IN USEO z $ ,I ( - & ( # &! DEFINED LINE MAXIMUM EXCEEDEDT (
0x38f5e0…38f774 (6, 48) Dummy {f00=0x0121, 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
0x38f774…38f908 Dummy {f00=0x0121, 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
0x38f908…38fa9c Dummy {f00=0x0121, f01=0x0190, f02=»THIN FORMAT: j & m & . " & SIZE ON DISC:R 0 : TTT9 L " : I ` & . p ( ~ ; ? & . ( # &! WARNING:REFERENCE TO FIELD (F < XXXN " < A & ! & ) OUTSIDE
0x38fa9c…38fc30 Dummy {f00=0x0121, f01=0x0190, f02=» > & ( & 95 % OF FILESPACE USED ( @ ? L & & CDV-ERRORI j ( @ & & DATE ERROR ( A & & TIME-OUT (
0x38fc30…38fdc4 Dummy {f00=0x0121, 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 !!
0x38fdc4…38ff58 Dummy {f00=0x0121, 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 $(
0x38ff58…3900ec Dummy {f00=0x0121, 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 $(
0x3900ec…390280 Dummy {f00=0x0121, 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
0x390280…390414 (6, 49) Dummy {f00=0x0121, 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
0x390414…3905a8 Dummy {f00=0x0121, 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
0x3905a8…39073c Dummy {f00=0x0121, 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 " $( !
0x39073c…3908d0 Dummy {f00=0x0121, 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 &
0x3908d0…390a64 Dummy {f00=0x0121, 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
0x390a64…390bf8 Dummy {f00=0x0121, f01=0x0190, f02=» # r . k > N ^ n J F " D ( % _ ' xw gL # ( ( #g?R g "b & AlW '2 RRRRRRR R :R ~ B 0
0x390bf8…390d8c Dummy {f00=0x0121, 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({
0x390d8c…390f20 Dummy {f00=0x0121, 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 $ ' ` )
0x390f20…3910b4 (6, 50) Dummy {f00=0x0121, 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
0x3910b4…391248 Dummy {f00=0x0121, 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
0x391248…3913dc Dummy {f00=0x0121, 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
0x3913dc…391570 Dummy {f00=0x0121, f01=0x0190, f02=» . L ` x
0x391570…391704 Dummy {f00=0x0121, f01=0x0190, f02=» , < " L % n " ~ " * ? J F " D 2 RR0R@vP LW2 R+P 0R@vP'A T# R*K kU lU R5P7 # k
0x391704…391898 Dummy {f00=0x0121, 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 ^
0x391898…391a2c Dummy {f00=0x0121, 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 $
0x391a2c…391bc0 Dummy {f00=0x0121, 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
0x391bc0…391d54 (6, 51) Dummy {f00=0x0121, 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 -
0x391d54…391ee8 Dummy {f00=0x0121, 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
0x391ee8…39207c Dummy {f00=0x0121, 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(
0x39207c…392210 Dummy {f00=0x0121, 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 "
0x392210…3923a4 Dummy {f00=0x0121, 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 @
0x3923a4…392538 Dummy {f00=0x0121, 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
0x392538…3926cc Dummy {f00=0x0121, f01=0x0190, f02=»:TFWD V . * T:THOMN T:UPDFT T:XSTAT UPDBOLT VGACNTT @ d $
0x3926cc…392860 Dummy {f00=0x0121, 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.
0x392860…3929f4 (6, 52) Dummy {f00=0x0122, 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 ( ' $
0x3929f4…392b88 Dummy {f00=0x0122, 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 :
0x392b88…392d1c Dummy {f00=0x0122, f01=0x018e, f02=» ( 8 H X h x J F " D T W 0X K T R! 2 RRRW "?RI I I I
0x392d1c…392eb0 Dummy {f00=0x0122, 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 "
0x392eb0…393044 Dummy {f00=0x0122, 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
0x393044…3931d8 Dummy {f00=0x0122, f01=0x0190, f02=» $ J F " D !0X ( 1X F?R0X K ?RHi He 0R ( #0R T R ,I R ! R $ r 8 : H "
0x3931d8…39336c Dummy {f00=0x0122, f01=0x0190, f02=» ?R 0^ $ % 0X 0R <R RK2 RRRR?R R2 r 0 4 @ ( P : ` p 1 1 ! " #
0x39336c…393500 Dummy {f00=0x0122, f01=0x0190, f02=» , - l . / 0 0 @ 1 P 5 ` 6 p 7 8 9 1 : 1 ; < = > ?
0x393500…393694 (6, 53) Dummy {f00=0x0122, 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
0x393694…393828 Dummy {f00=0x0122, 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
0x393828…3939bc Dummy {f00=0x0122, 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
0x3939bc…393b50 Dummy {f00=0x0122, 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 & "
0x393b50…393ce4 Dummy {f00=0x0122, f01=0x0190, f02=» $ 8 Z |
0x393ce4…393e78 Dummy {f00=0x0122, 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 !
0x393e78…39400c Dummy {f00=0x0122, 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 (
0x39400c…3941a0 Dummy {f00=0x0122, 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 (
0x3941a0…394334 (6, 54) Dummy {f00=0x0122, 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
0x394334…3944c8 Dummy {f00=0x0122, f01=0x0190, f02=» 2 J ^
0x3944c8…39465c Dummy {f00=0x0122, f01=0x0190, f02=»* " " " * " 8 ( F R & b ( r ~ & ( " +TTTTTTTTTTTTTTTTTTTT9 " ! (
0x39465c…3947f0 Dummy {f00=0x0122, 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 @ ?
0x3947f0…394984 Dummy {f00=0x0122, 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
0x394984…394b18 Dummy {f00=0x0122, f01=0x0190, f02=» ( 8 H X h J F " D 0R !<R W30R !P(?R0R !<R $W ( 0R # W a F x J F "
0x394b18…394cac Dummy {f00=0x0122, 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 ! ~
0x394cac…394e40 Dummy {f00=0x0122, f01=0xc0b6, f02=» J F " D @ Q 0X , ~Ld ! ~ W f ! ! 0X 0X 0X ?R h 0 0 R 0 0 d & " X _"6 PW LW L4 v @ ' + 8 J F " D m F " 0R !<R ?R( 0R
0x394e40…394fd4 (6, 55) Dummy {f00=0x0122, f01=0x418a, 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 =
0x394fd4…395168 Dummy {f00=0x0122, 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
0x395168…3952fc Dummy {f00=0x0122, f01=0x4010, f02=» n @ ( 0 8 ( 0 8 @ H P X ` h p x h p x " " " " " " " # # # # # #(#0#8
0x3952fc…395490 Dummy {f00=0x0122, 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 & "
0x395490…395624 Dummy {f00=0x0122, f01=0x0190, f02=» < T n
0x395624…3957b8 Dummy {f00=0x0122, f01=0x4064, f02=»z 0R R 34 U j ! !0R P b ![ x @! ! ( 4 6 J N@ ` T n
0x3957b8…39594c Dummy {f00=0x0122, 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
0x39594c…395ae0 Dummy {f00=0x0122, f01=0x018e, f02=» & &9B ATTDB $ CHANFC` $ 6 T:FDSP J SAVEY 6 , ( @ %W _ F C W n RESTOR L , ( 7 ( = W GETFREA n , ( W" _ &
0x395ae0…395c74 (6, 56) Dummy {f00=0x0123, f01=0x0190, f02=» SETFREA , ( ) ' , ( & X X X* T Z0 L , ( I R < _ <h =_H ^L | SETOCC UPDBOLN UPDBIN , ( _ _R & G _d
0x395c74…395e08 Dummy {f00=0x0123, f01=0x018e, f02=»ARB , ( c P _v _| V V Q W TESTB > GETVOL P , ( _< _B d , ( C ( B T B , ( " $ ' Y ' , ( _
0x395e08…395f9c Dummy {f00=0x0123, 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
0x395f9c…396130 Dummy {f00=0x0123, f01=0x0190, f02=» T l , ( _. W P 8 _> , ( " < , ( P 8# ' Y = # l GETACC < GETGEN @ GETDUPV D GETIND H , ( 3 x _ _ _ _
0x396130…3962c4 Dummy {f00=0x0123, f01=0x0190, f02=» ]8 Z YB_J W , ( A & C & C ( , ( & C C ( B X X CLOSEF OPENF * & _ W & Y < * C _& , (
0x3962c4…396458 Dummy {f00=0x0123, 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
0x396458…3965ec Dummy {f00=0x0123, 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
0x3965ec…396780 Dummy {f00=0x0123, f01=0x0190, f02=» > F IDENT CDVRUT REL 10.0 80-04-11 CDV10 CDV110 CDV111 F CDV110 f CDV111 z CDV10 I:EVA0 , ( W _ P T , ( !00R !99Q $ Y T U
0x396780…396914 (6, 57) Dummy {f00=0x0123, f01=0x4036, f02=» 7T ;U EU ST WP ]P | t @ 20-04-11 CDV10 CDV110 CDV111 F CDV110 f CDV111 z CDV10 I:EVA0 , ( W _ P T , ( !00R !99Q $ Y T U
0x396914…396aa8 Dummy {f00=0x0123, 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
0x396aa8…396c3c Dummy {f00=0x0123, f01=0x4062, f02=»! : 0 , J P % J )P /V 3 7V M b W b eT L@ ^" " # # # # # #(#0#8#@#H
0x396c3c…396dd0 Dummy {f00=0x0123, f01=0x4070, f02=» @ H IDENT DEDDIV TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 ; $$$TRA ; H ; Z@ ; l : n :D : @ : 9 @ 9
0x396dd0…396f64 Dummy {f00=0x0123, 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 '
0x396f64…3970f8 Dummy {f00=0x0123, 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
0x3970f8…39728c Dummy {f00=0x0123, f01=0x0190, f02=» W z X X . X F X ` X x X X X X
0x39728c…397420 Dummy {f00=0x0123, 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
0x397420…3975b4 (6, 58) Dummy {f00=0x0123, f01=0x8190, f02=» J F " D F L0X T8_H ( ! R_YW W W W %_c L_h Lj " 0X 5 ^ p } J F " D X)A L_ (I a F L0X @ 0X R& _ 6
0x3975b4…397748 Dummy {f00=0x0123, f01=0x8190, f02=» 2 # 3 N 8 9 $ @ 4 J F " D " " R" @g ( ! L R W _ L0X _ R2 RRR ! RW W a D C } E M G P R X J Z
0x397748…3978dc Dummy {f00=0x0123, f01=0x8190, f02=»RW W W W %?R X 6 J ( } 8 J W Z j 7 z N 9 J F " D L?R
0x3978dc…397a70 Dummy {f00=0x0123, f01=0x8190, f02=» , < G L J F " D _S0X _-Ag_ (I a F L0X 0X 0X @ 0X @g0X R& ?R L n $ $ " # '
0x397a70…397c04 Dummy {f00=0x0123, f01=0x818e, f02=» !0X K 4 0X 0X D G } * I < R0 } L X ^ ^ n ` * d l q # w J F " D @ a F L0X T L4 4 0X ! L0X 0R T 4 0X
0x397c04…397d98 Dummy {f00=0x0123, f01=0x8190, f02=» ( J F " D !0R 0R P R W 0X LR LQ LWe ")0X 0X P R m F ( v , J F " D W6" 5y Rp0X 0R /P m F 6 !W m F 5 f
0x397d98…397f2c Dummy {f00=0x0123, f01=0x8190, f02=» _ m F # #_ 4 4 4 4 d " & 1 2 & B & P & * ^ & NUMBER: l 9999 " gU & & & ( 001R $ U
0x397f2c…3980c0 Dummy {f00=0x0123, f01=0x818e, f02=» " SU 99 " U & & 6 & D ( R 6 ^ & n DEVICE | $ U & : & & #U & FILE $ U & -
0x3980c0…398254 (6, 59) Dummy {f00=0x0123, f01=0x818e, f02=» & & & $ OLD NAME: 2 $ U L & & j & x OLD CASSETTE NO: $ U & & & & B & U (
0x398254…3983e8 Dummy {f00=0x0123, f01=0xc110, f02=» " 999999999999999999999R " : ( J V " 999999999999999999999+ f " ( 999R " ( @ 4 C
0x3983e8…39857c Dummy {f00=0x0123, f01=0xc188, f02=» @ H IDENT T:AD20 TRA 10.0 80-10-09 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 6 2 D:CB40A C:CB40A D:CB500 C:CB50F D:CB60 C:CB60. * & `
0x39857c…398710 Dummy {f00=0x0123, 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 * * @
0x398710…3988a4 Dummy {f00=0x0123, f01=0x40cc, f02=» @ H IDENT C:CB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 ' C:CB60 ' H C:CB60C ' Z & `@ @ ' n ' ( ' ( ' @ ' &
0x3988a4…398a38 Dummy {f00=0x0123, f01=0x40ca, f02=» @ H IDENT D:CB60 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 ( D:CB60 ( H D:CB60C ( Z * & & ( n 0 ( & ( @ ( &
0x398a38…398bcc Dummy {f00=0x0123, f01=0x818e, f02=» J H IDENT DECONV TRA 10.0 80-10-27 F1 O1111 REL=1.0 VER=1 80-10-27/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD2 B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:LWR
0x398bcc…398d60 Dummy {f00=0x0123, f01=0x8190, f02=» 0 ( ; 8 H ! X # h * " x 4 # 8 J F " D 2 RRRRRRR $WC6 _ R P1W21X FT !0X T W LW RW 6 D
0x398d60…398ef4 (6, 60) Dummy {f00=0x0124, f01=0x8190, f02=»UW 4 6 888 40X T RW W L R Te0X T~a F ~ < } L ^ n ~ " J F " D L0X L0X Tg_E $ " W 1X FT5 !0X T+ - ! I R 6
0x398ef4…399088 Dummy {f00=0x0124, f01=0x8190, f02=»W W W W %W- LW( L_ LW L0X Lj " 0X X; LA _ , F X h } x " ' ) 9 e @ 6 J F " D -I L0X a F L
0x399088…39921c Dummy {f00=0x0124, f01=0x8190, f02=» _ R a i l j M . k > p N x ^ z n | O ~ J F " D @L R T@ R W W4 ' L0R L?R RW W 2 RRR ! RW W a F R?RW W # R
0x39921c…3993b0 Dummy {f00=0x0124, f01=0x818e, f02=» - ! R?RW W W ` 6 } 0 B D R b t 7 J F " D W %_? L_D Lj " R_%W W< R W W L '0R L RK7 !
0x3993b0…399544 Dummy {f00=0x0124, f01=0x8190, f02=» J F " D _# RW _ 2 RRR RW _.JgK@g_eAg_9 -I a F RW W _ @ ' L0R J V L h W x ^ d O l J F " D @ @g ' L0R 0X R R& ?R "
0x399544…3996d8 Dummy {f00=0x0124, f01=0x8190, f02=» - J F " D L4 4 L '0R 0X L0R T3 Lj & j & % Lj " 1XFAn 0 ~ $ B -
0x3996d8…39986c Dummy {f00=0x0124, f01=0x8190, f02=»R 0X V 0 ! $ 6 H Z j ! ( | $ , * 0 , 9 O ; J F " D L0R T L L L0R 4 4 L0X 0
0x39986c…399a00 Dummy {f00=0x0124, f01=0x8190, f02=» k * o , v x 2 J F " D @4 4 ' L0R 40X <R ' L0R 0X 0R %P L0R T 4 B #
0x399a00…399b94 (6, 61) Dummy {f00=0x0124, f01=0x818e, f02=» & ( , 8 H J F " D e ")0X 0X P R m FW6" 5y Rp0X 0R /P m F X ' / 5 > J F "
0x399b94…399d28 Dummy {f00=0x0124, f01=0x8190, f02=» & & * & NUMBER: 9999 6 " gU J & Z & h & v ( & 001R $ U 999999 " SU &
0x399d28…399ebc Dummy {f00=0x0124, f01=0x818e, f02=» 99 " U ( 0 6 < & L DEVICE Z $ U p & : & & #U & FILE $ U & - NAME $ U
0x399ebc…39a050 Dummy {f00=0x0124, f01=0x8190, f02=» & $ OLD DATA SET IDENTIFIER: $ U > & N & & j $ OLD VOLUME SEQUENCE NO:: x $ U & & & & B & U (
0x39a050…39a1e4 Dummy {f00=0x0124, f01=0xc134, f02=»( " 999999999999999999999O " @ ( P " 999999999999999999999+ l " ( 999R " ( , ' % @ ! _ m F #
0x39a1e4…39a378 Dummy {f00=0x0124, 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
0x39a378…39a50c Dummy {f00=0x0124, f01=0x411e, f02=» v * & ` * & T D2 6 , ( 1 d , ( A " $ & ( * , , ( Q . 0 2 4 6 8 : < a >
0x39a50c…39a6a0 Dummy {f00=0x0124, 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 ) ) @ ) ( & ( @ ( &
0x39a6a0…39a834 (6, 62) Dummy {f00=0x0124, 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 * @ * ) @ ) ( & ( @ ( &
0x39a834…39a9c8 Dummy {f00=0x0124, 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 + + @ + ( & ( @ ( &
0x39a9c8…39ab5c Dummy {f00=0x0124, 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 , @ , + @ + ( & ( @ ( &
0x39ab5c…39acf0 Dummy {f00=0x0124, 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 - - @ - ( & ( @ ( &
0x39acf0…39ae84 Dummy {f00=0x0124, 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 . @ .
0x39ae84…39b018 Dummy {f00=0x0124, 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 / / @ /
0x39b018…39b1ac Dummy {f00=0x0124, 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 / @ /
0x39b1ac…39b340 Dummy {f00=0x0124, 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
0x39b340…39b4d4 (6, 63) Dummy {f00=0x0124, 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
0x39b4d4…39b668 Dummy {f00=0x0124, 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
0x39b668…39b7fc Dummy {f00=0x0124, 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
0x39b7fc…39b990 Dummy {f00=0x0124, 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
0x39b990…39bb24 Dummy {f00=0x0124, 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
0x39bb24…39bcb8 Dummy {f00=0x0124, 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
0x39bcb8…39be4c Dummy {f00=0x0124, 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
0x39be4c…39bfe0 Dummy {f00=0x0124, 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
0x39bfe0…39c174 (6, 64) Dummy {f00=0x0125, 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
0x39c174…39c308 Dummy {f00=0x0125, f01=0xc182, f02=» 8 F IDENT FDIO 801010REL10 FDIOY @ FDIOY P T:FDSP b I:EVA0 t , ( @@ 2 ' I:ERR2 I:ERR & " #0 &V , ( 1
0x39c308…39c49c Dummy {f00=0x0125, f01=0x4160, f02=» 8 F IDENT FDIO 801022REL10 FDIOY @ FDIOY P T:FDSP b I:EVA0 t * & @ 2 ' T:SCW2 , ( & C T # T:IO3 ( $
0x39c49c…39c630 Dummy {f00=0x0125, f01=0xc01e, f02=» z b @ 801022REL10 FDIOY @ FDIOY P T:FDSP b I:EVA0 t * & @ 2 ' I:ERR2 I:ERR & " #0 &V T:SCW
0x39c630…39c7c4 Dummy {f00=0x0125, f01=0x818e, f02=» J H IDENT DECONV TRA 10.0 80-10-29 F1 O1111 REL=1.0 VER=1 80-10-27/SHB ; DECONV ; R $$$TRAC ; d DECONV ; v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD2 ; B > MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:LWR
0x39c7c4…39c958 Dummy {f00=0x0125, f01=0x8190, f02=» ; < < F < ( ; < 8 < H ! < X # < h * " < x 4 # < 8 < J F " D 2 RRRRRRR $WC6 _ R P1W21X FT !0X T W LW RW 6 < D <
0x39c958…39caec Dummy {f00=0x0125, f01=0x818e, f02=»40X T RW W L R Th 0X T a < l , = * = < } = L = ^ = n = ~ " = J F " D F L0X L0X Tw_H $ " W 1X FT5 !0X T+ - ! I = = 6 =
0x39caec…39cc80 Dummy {f00=0x0125, f01=0x8190, f02=» = } > J F " D R_vW W W W %W= LW8 L_ LW.0X 0X L0R R L0X Lj " > > h 5 > x ( > , > ! > ( > + } > - > 8 > = >
0x39cc80…39ce14 (6, 65) Dummy {f00=0x0125, f01=0x8190, f02=» X > ] f ? h ? j ? 0 s 7 ? @ u R ? R w ? b ? r c ? ? J F " D @& _ 6 UUU RW WC L R T@ R W W4 ' L0R L?R RW W 2 R ? ?
0x39ce14…39cfa8 Dummy {f00=0x0125, f01=0x818e, f02=» J F " D RR ! RW W a F R?RW W LW LA ?R $ " W 1X F !0X !K ) @ @ R O @ b 6 @ r 1 @ f @ @ @ J F " D - ! R?RW W W W %_? L_D R_ W W< R W W L '0R
0x39cfa8…39d13c Dummy {f00=0x0125, f01=0x8190, f02=» @ ; A = 1 A J F " D L RK7 ! u_# RW _x2 RRR RW _.Jg@@g_ZAg_9 -I !a F RW A ( E ( A v N A P A ^ A ` A k A p A r A x O A
0x39d13c…39d2d0 Dummy {f00=0x0125, f01=0x8190, f02=» A * B / B B . B B > J F " D R" T - ! L4 4 L '0R 0X L0R T3 Lj & j B P - B B B B $ B B
0x39d2d0…39d464 Dummy {f00=0x0125, f01=0x8190, f02=» 4 Lm F %m F Lm B d C " C 4 * C D O C T C f 0 O C v ! C $ C & C 2 ( C 5 * C 9 , C J F " D F L '0R 0X L
0x39d464…39d5f8 Dummy {f00=0x0125, f01=0x818e, f02=» k C m D x D " } R D 2 J F " D @ L0R R Lj " L 0R 4 4 ' L0R 40X <R D B D D * D , D D D D
0x39d5f8…39d78c Dummy {f00=0x0125, f01=0x8190, f02=» D E E E ( E : E L E ^ & E n E ~ J F " D !0R 0R P R W 0X LR LQ LWe ")0X 0X P R m F E E , E E
0x39d78c…39d920 Dummy {f00=0x0125, f01=0x8190, f02=» E W F ` F p F * J F " D @ !5_ 0R P !0R 0R P R W 0X ! _ m F # #_ 4 4 4 4 F : F & 1 F & F & F & * F & NUMBER: F 9999 F " gU F
0x39d920…39dab4 (6, 66) Dummy {f00=0x0125, f01=0x8190, f02=» $U F ( G G 999999 G ( " SU G > ( G N G Z 99 G j " U G | ( G 6 G & G DEVICE G $ U G & : G & G & #U G
0x39dab4…39dc48 Dummy {f00=0x0125, f01=0x8190, f02=» G & H EXPIRATION DATE: H $ U H 6 & H F & H T & H b $ OLD DATA SET IDENTIFIER: H p $ U H & H & H & H $ OLD VOLUME SEQUENCE NO:: H $ U H
0x39dc48…39dddc Dummy {f00=0x0125, f01=0x8190, f02=»( H I 001R I $ I . 999999 I > " S I T & I d & I r ( I I 999R I $ I & I & I ( I I & I
0x39dddc…39df70 Dummy {f00=0x0125, f01=0xc08e, f02=»9+ I t " J ( J J & 999R J 6 " J J ( J Z 4 J f J x@ J I 999R I $ I & I & I ( I I & I
0x39df70…39e104 Dummy {f00=0x0125, 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 !
0x39e104…39e298 Dummy {f00=0x0125, 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
0x39e298…39e42c Dummy {f00=0x0125, 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 $ [ $ $ ] $
0x39e42c…39e5c0 Dummy {f00=0x0125, f01=0x0190, f02=» g $ h $ i $ $ j $ 4 k $ D l $ T m $ d n $ t o $ p q r s t u $ $
0x39e5c0…39e754 (6, 67) Dummy {f00=0x0125, f01=0x018e, f02=» A A $ $ 4 $ D $ T $ d $ t $ $ $ $
0x39e754…39e8e8 Dummy {f00=0x0125, f01=0x0190, f02=» $ $ $ $ $ 4 D A T $ d t A 0 A A $ $ $
0x39e8e8…39ea7c Dummy {f00=0x0125, f01=0x0190, f02=» $ 4 D J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRW? ;2 RRRRRRRRRRRRRRRRRRRRRRRRRR T $
0x39ea7c…39ec10 Dummy {f00=0x0125, 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 @
0x39ec10…39eda4 Dummy {f00=0x0125, 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
0x39eda4…39ef38 Dummy {f00=0x0125, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-10-31 F1 O1111 REL=1.0 VER=1 80-10-31/SHB ( DECONV ( R $$$TRAC ( d DECONV ( v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD3 ( D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x39ef38…39f0cc Dummy {f00=0x0125, f01=0x8190, f02=» ( ) ) ) . < ) > P ) N ) ^ " ) n $ ) ~ + $ ) 5 # ) 9 ) J F " D 2 RRRRRRRR $W 6 _ R P W 1X FT !0X T W{ LWy RWu6 m )
0x39f0cc…39f260 Dummy {f00=0x0125, f01=0x8190, f02=»H LWQI 1X F_ RW _ W:A W6 RW _ ) r * 0 0 * B * T * d J F " D W+ LQ I A $ _ $ _ $LX$@ 1X F_,H A W 4 6 KZZ I / * t * * 6 * *
0x39f260…39f3f4 (6, 68) Dummy {f00=0x0126, f01=0x8190, f02=» * J F " D 40X T RW W L R T U0X T 1X F 0X T a F L0X L0X + + V + f + v & $ + = K + J F " D T _XI II 1X F L_dI : $ " W !0X T+ - ! I R_ + O 6 +
0x39f3f4…39f588 Dummy {f00=0x0126, f01=0x818e, f02=» v } + , J F " D @W W W W %W= LW8 L_ LW.0X 0X L0R R L0X Lj " 0 , " 5 , p * , , , , , } , , , ,
0x39f588…39f71c Dummy {f00=0x0126, f01=0x8190, f02=» , - - - ( - 8 - H - X - j 7 - z - J F " D R6 ett I V RW WP L R TM U0X T 1X F R W W4 ' L0R L? - 0 - -
0x39f71c…39f8b0 Dummy {f00=0x0126, f01=0x818e, f02=» - - 5 . 7 . : . . < . @ J F " D R RW W 2 RRR ! RW W a F R?RW W LW LA ?RK I 1X F L?RK . P N $ . e K . g . w 6 . { . J F " D @ $ " W !0X
0x39f8b0…39fa44 Dummy {f00=0x0126, f01=0x8190, f02=» / 0 / / $ / 4 " / D / T J F " D W< R W W L '0R L RK7 ! _# RW _ 2 RRR RW _.Jg@@g_ZAg / d / / * / / /
0x39fa44…39fbd8 Dummy {f00=0x0126, f01=0x8190, f02=» 0 0 0 $ + 0 4 2 0 F 7 0 X ? , 0 h J F " D 0X R R& ?R " " R" T - ! L4 4 L '0R 0X 0 x D / 0 F 0 M B 0 ^ - 0
0x39fbd8…39fd6c Dummy {f00=0x0126, f01=0x818e, f02=»Lj " 1XFAn0X ! 0X !0X K 4 4 0 l B 1 * 1 < 1 L - 1 1 n 1 ~ 1 , 1 O 1 1 0 O 1 1 1
0x39fd6c…39ff00 Dummy {f00=0x0126, f01=0x8190, f02=» 1 O 2 2 } 2 * 2 < 2 N J F " D 4 4 0X 0X 0R "P 4 L0R R Lj " L 0R 4 4 ' 2 ^ 2 2 2 2 2
0x39ff00…3a0094 (6, 69) Dummy {f00=0x0126, f01=0x8190, f02=» ' L0R 0X 0R %P L0R T 4 ' L0R 2 t H # 3 2 N 3 D Y 3 T _ 3 d h 3 t m 3 r 3 w 3 | 3 3 J F " D @ L4 L !0R 0R P R
0x3a0094…3a0228 Dummy {f00=0x0126, f01=0x8190, f02=» . 3 J F " D LW LQ L ";0X 0X P R m FW6" 5y Rp0X 0R 4 " 4 ^ 4 n 4 ~ 4 4 4 J F " D /P m F 6 !W m F 5 f 0X !5_ 0R P !0R 0 4
0x3a0228…3a03bc Dummy {f00=0x0126, f01=0x8190, f02=»# #_ 4 4 4 4 4 !0R 0R R 0X 4 n E 5 , 5 > & 1 5 N & 5 ^ & 5 l & * 5 z & NUMBER: 5 9999 5 " gU 5 & 5 & 5 & 5 ( 5 5
0x3a03bc…3a0550 Dummy {f00=0x0126, f01=0x8190, f02=» ( 6 6 99 6 " U 6 2 ( 6 B 6 N $ U 6 ^ & EJ AVST[MD 6 n & 6 ( 6 6 $ J 6 & MISST[MMER 6 & 6 ( 6 6 $
0x3a0550…3a06e4 Dummy {f00=0x0126, f01=0x8190, f02=» & k 7 & 7 & BATCHNAME: 7 & l 7 8 & 7 F ( 7 T 7 ` & 7 p & 7 ~ & 7 & S[NDNING 7 $ [ 7 ( 7 7 & 7 & 7 & 7
0x3a06e4…3a0878 Dummy {f00=0x0126, f01=0x8190, f02=» " SA 7 & 8 & TID: 8 99-99-99 8 0 " TI 8 H & 8 X ( 8 f 6 8 r & 8 DEVICE 8 $ I 8 & : 8 & 8 & #I 8 & 8 FILE 8 $
0x3a0878…3a0a0c Dummy {f00=0x0126, f01=0x8190, f02=»ON DATE: 8 $ I 9 & 9 & 9 . & 9 < $ OLD DATA SET IDENTIFIER: 9 J $ I 9 r & 9 & 9 & 9 $ OLD VOLUME SEQUENCE NO:: 9 $ I 9 & 9 & 9 & 9
0x3a0a0c…3a0ba0 Dummy {f00=0x0126, f01=0x8190, f02=» 9 $ : 999999 : " S : . & : > & : L ( : Z : f 999: : v $ : & : & : ( : : & : ( : : " ! 9999
0x3a0ba0…3a0d34 (6, 70) Dummy {f00=0x0126, f01=0xc074, f02=» $ : % 999: ; " % ; $ ( ; 4 @LQ LR 4 A 4 4 ; @ P ; ^@ ; p 999: : v $ : & : & : ( : : & : ( : : " ! 9999
0x3a0d34…3a0ec8 Dummy {f00=0x0126, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-11-04 F1 O1111 REL=1.0 VER=1 80-11-04/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD0 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3a0ec8…3a105c Dummy {f00=0x0126, f01=0x818e, f02=» . < > P N ^ " n $ ~ + $ 5 # 9 J F " D 2 RRRRRRRR $W 6 _ R P W 1X FT !0X T W LW RW 6
0x3a105c…3a11f0 Dummy {f00=0x0126, f01=0x8190, f02=» J F " D @ W L( ( SUW 6 @pw L R P LW~ U0X T 1X FWlH LWgI 1 ( v 0 J F " D X F_ RW W WPA WLA _! RW _ W= LQ A T $ _ $ _ @ $LX
0x3a11f0…3a1384 Dummy {f00=0x0126, f01=0x8190, f02=»1X F_ H A W U0X T 1X F RW 4 6 KZZ I / 40X T RW W 6 F X h x " % , ' - } / ?
0x3a1384…3a1518 Dummy {f00=0x0126, f01=0x8190, f02=» o 6 J F " D @ F L_dI : $ " W !0X T+ - ! I R_ W W W W %W= l # ~ * , F , }
0x3a1518…3a16ac Dummy {f00=0x0126, f01=0x8190, f02=» } ( : J Z j z J F " D 0X -I 8 L0X a F L0X Z( U0X T 1X F@ 0X R R&
0x3a16ac…3a1840 Dummy {f00=0x0126, f01=0x8190, f02=» 8 k J F " D ?R U0X T 1X F_#6 ett I V RW WU L R TM U0X T 1X F R W W9 C h E z N 7 P R Z ] [ > r a i !
0x3a1840…3a19d4 (6, 71) Dummy {f00=0x0126, f01=0x8190, f02=» R?RW W LW LA ?RK ` . > P $ ` p J F " D I 1X F L?RK $ " W !0X -K 5 - ! R?RW W W W 6 6 k
0x3a19d4…3a1b68 Dummy {f00=0x0126, f01=0x8190, f02=» r J F " D %_K L_P R_ W W< R W W L '0R L RK7 ! _# RW _ 2 RR b " $ r $ 6 , * 5 7 J F " D R RW _.Jg@@g_ZAg_9 -I G !a F RWH_ _ 0X @ ' L0R
0x3a1b68…3a1cfc Dummy {f00=0x0126, f01=0x8190, f02=» l s y $ { 4 J F " D @ ' L0R 0X R R& ?R U0X T 1X F_D U0X T 1X F_S D , /
0x3a1cfc…3a1e90 Dummy {f00=0x0126, f01=0x818e, f02=» ! & ! " ! * ! : B ! J ! ! l - ! | J F " D j & % Lj " 1XFAn0X ! 0X !0X K 4 4 Lm F %m F ! ! ! !
0x3a1e90…3a2024 Dummy {f00=0x0126, f01=0x8190, f02=» ! : , " > . " J F " D Lm F L '0R 0X L0R T L L L0R 4 4 0X 0X 0R " ( G O " v I " P } " [ " ` " p " r " } " J F " D @"P 4
0x3a2024…3a21b8 Dummy {f00=0x0126, f01=0x8190, f02=» . " # # # 0 # B # # R # d J F " D <R ' L0R 0X 0R %P L0R T 4 ' L0R L4 L # t # # # #
0x3a21b8…3a234c Dummy {f00=0x0126, f01=0x8190, f02=» 0R P R W 0X LR LQ LWw LQ LW LQ L ";0X # ( $ > & $ N ) $ ^ - . $ n 6 ) $ ~ C ' $ J F " D 0X P R m FW6" 5y Rp0X 0R /P m F 6 !W m $ V $ ` $
0x3a234c…3a24e0 Dummy {f00=0x0126, f01=0x8190, f02=» + $ % % % * % : % L % ^ & 1 % n & % ~ & % & * % & NUMBER: % 9999 % " gU % & % & % & %
0x3a24e0…3a2674 (6, 72) Dummy {f00=0x0127, f01=0x818e, f02=» 999999 % " SU & ( & $ & 0 99 & @ " U & R ( & b & n $ U & ~ & EJ AVST[MD & & & & & ( & & $ J & & NUMBER: &
0x3a2674…3a2808 Dummy {f00=0x0127, f01=0x8190, f02=» & & EJ GODK[ND ' & ' ( ' . # ' : & ' J & ' X & ' f & JOBNAME: ' t & k ' & ' & BATCHNAME: ' & l ' & ' ( ' ' & ' &
0x3a2808…3a299c Dummy {f00=0x0127, f01=0x8190, f02=» S[NDNING ' & KLARI ( $ K ( & & ( 6 & ( D ( ( R ( ^ & ( n & ( | & ( & S[NDNING ( & AVBRYTS ( $ A ( & ( & ( ( ( (
0x3a299c…3a2b30 Dummy {f00=0x0127, f01=0x8190, f02=» & ) & FRYSNING KLAR ) $ R ) . & ) > & ) L ( ) Z ) f & ) v & ) & ) & FLOPPY DISC SKRIVNING ) $ L ) ( ) % ) & ) & )
0x3a2b30…3a2cc4 Dummy {f00=0x0127, f01=0x818e, f02=» ( ) & * & * & * & & FLOPPY DISC SKRIVNING * 4 & AVBRYTS * X $ A * n & * ~ & * ( * * & * & DATUM: * 99-99-99 * " SA * & *
0x3a2cc4…3a2e58 Dummy {f00=0x0127, f01=0x8190, f02=» * $ I + & : + & + & & #I + 4 & + D FILE + R $ I + f & - + v NAME + $ I + & : + & + & $I + & + EXPIRATION DATE: + $
0x3a2e58…3a2fec Dummy {f00=0x0127, f01=0x8190, f02=» & + $ OLD VOLUME SEQUENCE NO:: , $ I , 6 & , F & , T & , b & : , p & U , ( , , & U , $ $ , ( , ! , " 001: , $ " ,
0x3a2fec…3a3180 Dummy {f00=0x0127, f01=0x818a, f02=» , & - ( - & - $ & - 4 ( - B ' - N " ( 999999999999999999999O - ^ " ( - ( - ) - " * 999999999999999999999+ - " * - ( - + - ,
0x3a3180…3a3314 (6, 73) Dummy {f00=0x0127, f01=0xc008, f02=»@ . H
0x3a3314…3a34a8 Dummy {f00=0x0127, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-11-13 F1 O1111 REL=1.0 VER=1 80-11-13/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3a34a8…3a363c Dummy {f00=0x0127, f01=0x8190, f02=» . < > P N ^ ^ n [ ~ ^ " $ + $ 2 [ 5 # 7 ^ 9
0x3a363c…3a37d0 Dummy {f00=0x0127, f01=0x8190, f02=» B [ E O ^ Z 6 0 B b # R i d o t q y J F " D @R?R L( ( SU?R6 Y L R P LW U0X T 1X FW H LW
0x3a37d0…3a3964 Dummy {f00=0x0127, f01=0x8190, f02=» J F " D X F_ !0R 0R 0X LQ LR A W LQ LY A _: !0R 0R j . z X 0 g J
0x3a3964…3a3af8 Dummy {f00=0x0127, f01=0x8190, f02=» .0 O 4 6 >0 O 0 J F " D Q A T3 % _X LQ LR % _h % _n LZ _8@ $LXT@ 1X F_ @ %LX B N T V X o v } 6
0x3a3af8…3a3c8c Dummy {f00=0x0127, f01=0x8190, f02=» , 2 } B T d t J F " D T U0X T 1X F 0X T a F L0X L0X T _XI II 1X F L $ 6
0x3a3c8c…3a3e20 Dummy {f00=0x0127, f01=0x818e, f02=» , F * , : L # } - n 6 5 ~ < * J F " D L_ LW.0X 0X L0R R L0X Lj " 0X _K LA _ 0X G , I
0x3a3e20…3a3fb4 (6, 74) Dummy {f00=0x0127, f01=0x8190, f02=» v | [ J F " D @ -I 8 L0X a F L0X Z( U0X T 1X F@ 0X R R& ?R U $ r & &
0x3a3fb4…3a4148 Dummy {f00=0x0127, f01=0x8190, f02=»R 40X TF RW W@ L R f $ 4 D 6 T d ! t [ # J F " D T8 U0X T 1X F RW W%6 & % $ ! RW W a F R?RW W LW
0x3a4148…3a42dc Dummy {f00=0x0127, f01=0x8190, f02=» % ^ 7 $ J F " D ?R ' L0R L?RK "I 1X FA L?RK 3 $ " W !0X BK J , N 6 z P [ ` 6 d l s x 7 J F " D @
0x3a42dc…3a4470 Dummy {f00=0x0127, f01=0x8190, f02=» q $ . > J F " D L RK7 _" RW _"2 RRR RW _.Jg?@g_YAg_9 -I G !a F RWH_ N *
0x3a4470…3a4604 Dummy {f00=0x0127, f01=0x818e, f02=» . > N 1 0 ^ 8 p = J F " D 1X F_D U0X T 1X F_S " " R" T - ! L4 4 L '0R E , J / L
0x3a4604…3a4798 Dummy {f00=0x0127, f01=0x818e, f02=» J F " D @ 0X L0R T3 Lj & j & % Lj " 1XFAn0X ! 0X !0X K B V h x - , O 0 O
0x3a4798…3a492c Dummy {f00=0x0127, f01=0x8190, f02=» * , . $ O 4 F } V h z J F " D L0R 4 4 0X 0X 0R "P 4 L0R R Lj L 0R 4 ,
0x3a492c…3a4ac0 Dummy {f00=0x0127, f01=0x8190, f02=» L0R T 4 ' L0R 4 L n D , J < S L X ] n b g . l X q X t y ~
0x3a4ac0…3a4c54 (6, 75) Dummy {f00=0x0127, f01=0x8190, f02=» . ) J F " D LY "H0X 0X P R m FW6" 5 Rx0X 0R /P m . ' | J F " D F 6 !W m F 5 f !A_ 0R P( !0R 0R
0x3a4c54…3a4de8 Dummy {f00=0x0127, f01=0x8190, f02=»& & * & NUMBER: 9999 0 " gU D & T & b & p ( ~ & $ !U ( & %U (
0x3a4de8…3a4f7c Dummy {f00=0x0127, f01=0x8190, f02=» & EJ AVST[MD & & & ( 4 @ $ J P & NUMBER: ` 9999 v " gU & & MISST[MMER & & ( $ I
0x3a4f7c…3a5110 Dummy {f00=0x0127, f01=0x8190, f02=» & & BATCHNAME: & l . & < ( J V & f & t & & S[NDNING $ [ ( & & & & S[NDNI
0x3a5110…3a52a4 Dummy {f00=0x0127, f01=0x818e, f02=» & S[NDNING & AVBRYTS $ A 4 & D & R ( ` l & | & & & FRYSNING $ R ( & & &
0x3a52a4…3a5438 Dummy {f00=0x0127, f01=0x8190, f02=» & & FLOPPY DISC SKRIVNING $ L 6 ( F % R & b & p & ~ & FLOPPY DISC SKRIVNING & KLARY $ K & & ( (
0x3a5438…3a55cc Dummy {f00=0x0127, f01=0x818e, f02=»& ( & ( & DATUM: 6 99-99-99 J " SA b & r & TID: 99-99-99 " TI & & ( 6 &
0x3a55cc…3a5760 Dummy {f00=0x0127, f01=0x818e, f02=» NAME $ I & : ( & 6 & $I D & T EXPIRATION DATE: b $ I & & & $ OLD DATA SET IDENTIFIER: $ I & &
0x3a5760…3a58f4 (6, 76) Dummy {f00=0x0128, f01=0x818e, f02=» & U ( & U . $ $ < ( L ! X " 001: h $ " | # 999999 " #S & & ( $ % 999: $ %
0x3a58f4…3a5a88 Dummy {f00=0x0128, f01=0xc106, f02=» p " ( ( ) $ " * 999999999999999999999+ 4 " * Z ( j + v , 999: " , ( 6 2 0 ! L L L _( m F # #_ 4 4 4 4 4 , @
0x3a5a88…3a5c1c Dummy {f00=0x0128, f01=0x018c, f02=» @ H IDENT Z:TB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:TB30 H Z:TB30T Z * & n * & * & = & [ &
0x3a5c1c…3a5db0 Dummy {f00=0x0128, f01=0x4008, f02=»@ NT Z:TB30 TRA 10.0 80-11-19 F1 O1111 REL 10.0 80-04-11 Z:TB30 H Z:TB30T Z * & n * & * & = & [ &
0x3a5db0…3a5f44 Dummy {f00=0x0128, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-11-19 F1 O1111 REL=1.0 VER=1 80-11-18/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3a5f44…3a60d8 Dummy {f00=0x0128, f01=0x8190, f02=» . < > P N ^ ^ n [ ~ ^ " $ + $ 2 [ 5 # 7 ^ 9
0x3a60d8…3a626c Dummy {f00=0x0128, f01=0x8190, f02=» B [ E O ^ Z 6 0 B b # R i d o t q y J F " D @R?R L( ( SU?R6 Y L R P LW U0X T 1X FW H LW
0x3a626c…3a6400 Dummy {f00=0x0128, f01=0x8190, f02=» J F " D X F_ !0R 0R 0X LQ LR A W LQ LY A _: !0R 0R j . z X 0 g J
0x3a6400…3a6594 (6, 77) Dummy {f00=0x0128, f01=0x8190, f02=» .0 O 4 6 >0 O 0 J F " D Q A T3 % _X LQ LR % _h % _n LZ _8@ $LXT@ 1X F_ @ %LX B N T V X o v a } 6
0x3a6594…3a6728 Dummy {f00=0x0128, f01=0x818e, f02=» , 2 } B T d , t } J F " D T U0X T 1X F 0X T a F L0X L0X T a F L0X L
0x3a6728…3a68bc Dummy {f00=0x0128, f01=0x8190, f02=» H 6 * # < ! * N $ , ^ ) F n + 2 , 4 : } J F " D R_ W W W W %W= LW8 L_ LW.0X 0X L0R R L0X Lj
0x3a68bc…3a6a50 Dummy {f00=0x0128, f01=0x8190, f02=» u , w ~ $ * } : J F " D @ 0X _K LA _ 0X -I Oa F L0X L0X Z( L0X a F L
0x3a6a50…3a6be4 Dummy {f00=0x0128, f01=0x8190, f02=» J F " D L0X Z? U0X T 1X F@ 0X R R& ?R U0X T 1X F_#2 RRR a X h z Z 6
0x3a6be4…3a6d78 Dummy {f00=0x0128, f01=0x8190, f02=» [ & + # / ^ . 5 > 7 P @ 7 ` J F " D W W%6 & % $ ! RW W a F R?RW W LW LA ?R ' L0R r B ^ J L Q S
0x3a6d78…3a6f0c Dummy {f00=0x0128, f01=0x8190, f02=» 6 % Z " 2 D 7 T f v J F " D W W W %_` L_e R_ W W< RW W L '0R L RK7 _" RW _
0x3a6f0c…3a70a0 Dummy {f00=0x0128, f01=0x8190, f02=» -I G V ( % $ * 4 D V ( f * x 5 : < J F " D !a F RWH_ _90X @ ' L0R @ ' L0R 0X R R&
0x3a70a0…3a7234 (6, 78) Dummy {f00=0x0128, f01=0x8190, f02=» J F " D @ ?R U0X T 1X F_D U0X T 1X F_S # # R" T - ! L4 4 V h , x / B - J F " D L " '0R
0x3a7234…3a73c8 Dummy {f00=0x0128, f01=0x8190, f02=» - 0 @ R J F " D An0X ! 0X !0X K 4 4 L "m F %m F Lm F L '0R b , O 0 O
0x3a73c8…3a755c Dummy {f00=0x0128, f01=0x818e, f02=» 0X L0R T L L L0R 4 4 0X 0X 0R "P 4 L0R R L J J O _ l a ~ i , m . t v J F " D @j L 0R 4 4 ' L0R 0X 0R %P
0x3a755c…3a76f0 Dummy {f00=0x0128, f01=0x818e, f02=» . ( J F " D L0R 4 L !0R 0R P R W 0X LR) LQ LW LQ : X X
0x3a76f0…3a7884 Dummy {f00=0x0128, f01=0x8190, f02=» - $ + = $ J F " D Rx0X 0R /P m F 6 !W m F 5 f !A_ 0R P 4 E K T ] a e q p / J F " D @( !0R
0x3a7884…3a7a18 Dummy {f00=0x0128, f01=0x8190, f02=» & NUMBER: 9999 " gU * & : & H & V ( d p & B $ U & & ( & B
0x3a7a18…3a7bac Dummy {f00=0x0128, f01=0x818e, f02=»%U ( 999999 & " SU < ( L X 99 h " U z ( $ U & EJ AVST[MD & & (
0x3a7bac…3a7d40 Dummy {f00=0x0128, f01=0x8190, f02=» ( $ I & EJ GODK[ND 0 & H ( V # b & r & & & JOBNAME: & k & & BATCHNAME: & l & (
0x3a7d40…3a7ed4 (6, 79) Dummy {f00=0x0128, f01=0x8190, f02=» & & & S[NDNING $ & KLARI : $ K N & ^ & l ( z & & & & S[NDNING & AVBRYTS $ A &
0x3a7ed4…3a8068 Dummy {f00=0x0128, f01=0x8190, f02=» & & & , & FRYSNING KLAR : $ R V & f & t ( & & & & FLOPPY DISC SKRIVNING $ L (
0x3a8068…3a81fc Dummy {f00=0x0128, f01=0x8190, f02=» & ( ( " & 2 & @ & N & FLOPPY DISC SKRIVNING & AVBRYTS $ A & & ( & & DATUM:
0x3a81fc…3a8390 Dummy {f00=0x0128, f01=0x818e, f02=» 6 & DEVICE & $ I < & : L & Z & #I h & x FILE $ I & - NAME $ & : & & $I
0x3a8390…3a8524 Dummy {f00=0x0128, f01=0x8190, f02=» n $ "I & & & & 4 $ # OLD VOLUME SEQUENCE NO:: B $ #I j & z & & & : & U ( $ & U $ ( (
0x3a8524…3a86b8 Dummy {f00=0x0128, f01=0xc18e, f02=» ( ) 999: $ ) & 0 & > ( L * X & h ( v + " , 999999999999999999999O " , ( - " . 999999999999999999999+
0x3a86b8…3a884c Dummy {f00=0x0128, 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 @ <
0x3a884c…3a89e0 Dummy {f00=0x0128, f01=0x0190, f02=» v & < Z n
0x3a89e0…3a8b74 (6, 80) Dummy {f00=0x0129, 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
0x3a8b74…3a8d08 Dummy {f00=0x0129, f01=0x0190, f02=» ~L h~ ' !<R Z ( 8 H X h x .
0x3a8d08…3a8e9c Dummy {f00=0x0129, f01=0x0190, f02=» [ [ ( ( 8 J F " D RRR !j !! j ! !$ L0R ! ?RA _ !A <R R 0X H [ # +-*: '0 - ? L!ASUFTCXE J F " D & ' (
0x3a8e9c…3a9030 Dummy {f00=0x0129, 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 " ? *
0x3a9030…3a91c4 Dummy {f00=0x0129, f01=0x0190, f02=» E [ 0 @ [ P ` . p & J F " D 8R?R6 0R !<R " ?R0R !<R " ?R( 0R ( #)0X A E z E
0x3a91c4…3a9358 Dummy {f00=0x0129, 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
0x3a9358…3a94ec Dummy {f00=0x0129, 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
0x3a94ec…3a9680 Dummy {f00=0x0129, 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
0x3a9680…3a9814 (6, 81) Dummy {f00=0x0129, f01=0x0190, f02=» <R ! !" ! _6j " - 8R R& ?R@ P | : J J F " D 5Ii Ik Ig A|W 4@|@ R& , LhZ !PDj !! , ? DGRN
0x3a9814…3a99a8 Dummy {f00=0x0129, f01=0x0190, f02=» 4 / 4 4 0 4 @ 9 P 4 ` 4 p / / / / / " " /
0x3a99a8…3a9b3c Dummy {f00=0x0129, 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 & ' ( !
0x3a9b3c…3a9cd0 Dummy {f00=0x0129, 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 & ' ( !
0x3a9cd0…3a9e64 Dummy {f00=0x0129, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-11-28 F1 O1111 REL=1.0 VER=1 80-11-28/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD2 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3a9e64…3a9ff8 Dummy {f00=0x0129, f01=0x8190, f02=» . < > P N ^ ^ n [ ~ ^ " $ + $ 2 [ 5 # 7 ^ 9
0x3a9ff8…3aa18c Dummy {f00=0x0129, f01=0x8190, f02=» B [ E O ^ Z 6 0 B b # R i d o t q y J F " D @R?R L( ( SU?R6 Y L R P LW U0X T 1X FW H LW
0x3aa18c…3aa320 Dummy {f00=0x0129, f01=0x8190, f02=» J F " D X F_ !0R 0R 0X LQ LR A W LQ LY A _: !0R 0R j . z X 0 g J
0x3aa320…3aa4b4 (6, 82) Dummy {f00=0x0129, f01=0x8190, f02=» .0 O 4 6 >0 O 0 J F " D Q A T3 % _X LQ LR % _h % _n LZ _8@ $LXT@ 1X F_ @ %LX B N T V X o v } 6
0x3aa4b4…3aa648 Dummy {f00=0x0129, f01=0x818e, f02=» X 2 B T d X t J F " D T U0X T 1X F 0X T a F L0X L0X T a F L0X L
0x3aa648…3aa7dc Dummy {f00=0x0129, f01=0x8190, f02=» H 6 * # < ! * N $ , ^ ) F n + 2 X 4 : } J F " D R_ W W W W %W@ LW; L_ LW10X 0X L0R R L0X Lj
0x3aa7dc…3aa970 Dummy {f00=0x0129, f01=0x8190, f02=» o x X z , $ < J F " D @ L0X _N LA _ 0X -I Oa F L0X L0X Z( L0X a L
0x3aa970…3aab04 Dummy {f00=0x0129, f01=0x8190, f02=» W J F " D F L0X Z? U0X T 1X F@ 0X R R& ?R U0X T 1X F_#2 j z 6
0x3aab04…3aac98 Dummy {f00=0x0129, f01=0x818e, f02=» r " [ ) . # . 2 ^ @ 8 P : b J F " D F RW W%6 & % $ ! RW W a F R?RW W LW LA ?R ' L0R r C 7 E ^ M O T
0x3aac98…3aae2c Dummy {f00=0x0129, f01=0x8190, f02=» [ 6 r & 6 F X 7 h z J F " D ?RW W W W %_` L_e R_ W W< RW W L '0R L RK7 _" R
0x3aae2c…3aafc0 Dummy {f00=0x0129, f01=0x8190, f02=»_.J ? L?RA . _>@ - ! . L 0R _l | ( : r J Z l ) 7 | + , 0 3 1 2 ' 4 : B E
0x3aafc0…3ab154 (6, 83) Dummy {f00=0x0129, f01=0x8190, f02=» M R * e . g @ u P w b J F " D @ RRR RW _2 L 0R _J0X @ ' L0R @ ' L0R r [
0x3ab154…3ab2e8 Dummy {f00=0x0129, f01=0x8190, f02=»X F_D U0X T 1X F_S # # R" T - p . @ R , b o r B J F " D ! L4 4 L " '0R 0X L0R T3 Lj & j & % -
0x3ab2e8…3ab47c Dummy {f00=0x0129, f01=0x8190, f02=» < - A J F " D Lj " 1XFAn0X ! 0X !0X K 4 4 L "m F %m F Lm * D x I Q , V O X _0 O b e g
0x3ab47c…3ab610 Dummy {f00=0x0129, f01=0x8190, f02=» O } " 4 F V h , x . J F " D L0R R Lj L 0R 4 4 ' L0R 0X 0R %P
0x3ab610…3ab7a4 Dummy {f00=0x0129, f01=0x8190, f02=» D L0R T 4 ' L0R 4 L !0R 0R P R W 0X LR) L . ^ X p X " % - 1 ( J F " D LQ
0x3ab7a4…3ab938 Dummy {f00=0x0129, f01=0x8190, f02=» + J F " D @m FW6" 5 Rx0X 0R /P m F 6 !W m F 5 f X h x q / J F " D !A_ 0R P( !0R 0R P R(W*0X
0x3ab938…3abacc Dummy {f00=0x0129, f01=0x8190, f02=» 9999 " gU & & . & < ( J V & f B t $ U & & ( & B $ U &
0x3abacc…3abc60 Dummy {f00=0x0129, f01=0x8190, f02=» 999999 " SU " ( 2 > 99 N " U ` ( p | $ U & EJ AVST[MD & & ( $ J & NUMBER
0x3abc60…3abdf4 (6, 84) Dummy {f00=0x012a, f01=0x8190, f02=» $ I & EJ GODK[ND & , ( : # F & V & d & r & JOBNAME: & k & & BATCHNAME: & l & ( &
0x3abdf4…3abf88 Dummy {f00=0x012a, f01=0x818e, f02=» & S[NDNING & KLARI $ K 2 & B & P ( ^ j & z & & & S[NDNING & AVBRYTS $ A & & (
0x3abf88…3ac11c Dummy {f00=0x012a, f01=0x8190, f02=» & & & FRYSNING KLAR $ R < & L & Z ( h t & & & & FLOPPY DISC SKRIVNING $ L ( % &
0x3ac11c…3ac2b0 Dummy {f00=0x012a, f01=0x8190, f02=» ( & & & & 4 & FLOPPY DISC SKRIVNING B & AVBRYTS f $ A | & & ( & & DATUM: 99-99-99 " SA
0x3ac2b0…3ac444 Dummy {f00=0x012a, f01=0x8190, f02=»& DEVICE $ I " & : 2 & @ & #I N & ^ FILE l $ I & - NAME $ & : & & $I & ! EXPIRA
0x3ac444…3ac5d8 Dummy {f00=0x012a, f01=0x8190, f02=» & & $ # OLD VOLUME SEQUENCE NO:: & $ #I N & ^ & l & z & : & U ( $ & U $ ( ( % & 00
0x3ac5d8…3ac76c Dummy {f00=0x012a, f01=0xc17e, f02=» $ ) & & " ( 0 * < & L ( Z + f " , 999999999999999999999O v " , ( - " . 999999999999999999999+ " . (
0x3ac76c…3ac900 Dummy {f00=0x012a, f01=0x8190, f02=» J H IDENT DECONV TRA 10.0 80-12-11 F1 O1111 REL=1.0 VER=1 80-12-12/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3ac900…3aca94 (6, 85) Dummy {f00=0x012a, f01=0x8190, f02=» . < > P N ^ n ~ " $ + $ 2 5 # 7 9
0x3aca94…3acc28 Dummy {f00=0x012a, f01=0x8190, f02=» B E O S X 0 T t @ U P V I ` W t p Z 6 b # d i o q s
0x3acc28…3acdbc Dummy {f00=0x012a, f01=0x8190, f02=» $ ? 4 X F X j | J F " D X F_ !0R 0R 0X LQ LR A W LQ LY A _: !0R 0R .
0x3acdbc…3acf50 Dummy {f00=0x012a, f01=0x818e, f02=»L LZ$ LQ A T< $ _3 LQ $ _> LQ A T8 % _ x o 6 0 o H "0 o Z ,0 o l . ~ 0 80 o J F " D M LQ % _X LR $ _c % _i@ $LXH@ g L1X F_V@ %LXD@ g B0 L
0x3acf50…3ad0e4 Dummy {f00=0x012a, f01=0x8190, f02=» ~ J F " D @ L1X F_RH @ $LP @ g L1X FW#H @ %L H A W U0X T 1X ( v 6 J F
0x3ad0e4…3ad278 Dummy {f00=0x012a, f01=0x818e, f02=» X * < L ^ n ~ J F " D T a F L0X L0X T a F L0X L0X T _oI II 1X F $ +
0x3ad278…3ad40c Dummy {f00=0x012a, f01=0x818e, f02=» K * N , S F $ U 6 X F ^ X d } h o z q z 5 * J F " D @ L_ LW10X 0X L0R R L0X Lj " L0X _N LA _ 0
0x3ad40c…3ad5a0 Dummy {f00=0x012a, f01=0x818e, f02=» X & 6 H J F " D X 0X L0R Z -I O L0X a F L0X Z5a F L0X L0X X
0x3ad5a0…3ad734 (6, 86) Dummy {f00=0x012a, f01=0x8190, f02=» J F " D ZL U0X T 1X F@ 0X R R& ?R U0X T 1X F_#2 RRRRRI _ f x % 6 ' / 5 7 9 J
0x3ad734…3ad8c8 Dummy {f00=0x012a, f01=0x8190, f02=» ` e # i , o < q N z 7 ^ | p J F " D @ & % $ ! RW W a F R?RW W LW LA ?R ' L0R L?RK "
0x3ad8c8…3ada5c Dummy {f00=0x012a, f01=0x8190, f02=» 6 0 B 7 R d t ^ J F " D %_` L_e R_ W W< RW W L '0R L RK7 _" RW _"2
0x3ada5c…3adbf0 Dummy {f00=0x012a, f01=0x8190, f02=» . L 0R _l -I f G ( $ I 4 R D W V ` 7 f b x c g j h P i ^ k q y | z P
0x3adbf0…3add84 Dummy {f00=0x012a, f01=0x8190, f02=» * * : L l | J F " D _2 L 0R _J0X @ ' L0R @ ' L0R 0X R
0x3add84…3adf18 Dummy {f00=0x012a, f01=0x8190, f02=» 1X F_S # # R" T - ! l * < , L o ! n ( B ~ 9 - J F " D L4 4 L " '0R 0X L0R T3 Lj & j & % Lj " B C
0x3adf18…3ae0ac Dummy {f00=0x012a, f01=0x8190, f02=» x { & J F " D @ 1XFAn0X ! 0X !0X K 4 4 L "m F %m F Lm F L '0 6 , O 0 O *
0x3ae0ac…3ae240 Dummy {f00=0x012a, f01=0x8190, f02=»R R N } 0 @ R , b . r J F " D Lj L 0R 4 4 ' L0R 0X 0R %P L0R T 4
0x3ae240…3ae3d4 (6, 87) Dummy {f00=0x012a, f01=0x8190, f02=» ' L0R 4 L !0R 0R P R W 0X LR) LQ LW B . H G X Z L X l O ~ T Y d h ( { * J F " D @ LQ LR
0x3ae3d4…3ae568 Dummy {f00=0x012a, f01=0x8190, f02=» Rx0X 0R /P m F 6 !W m F 5 f !A_ B R b r q / J F " D 0R P( !0R 0R P R(W*0X ! L L L _( m F #
0x3ae568…3ae6fc Dummy {f00=0x012a, f01=0x8190, f02=»gU & & & & ( 4 @ & P B ^ $ U p & & ( & B $ U & & (
0x3ae6fc…3ae890 Dummy {f00=0x012a, f01=0x8190, f02=»9999 " SU ( ( 99 8 " U J ( Z f $ U v & EJ AVST[MD & & ( $ J & NUMBER: 9999
0x3ae890…3aea24 Dummy {f00=0x012a, f01=0x8190, f02=»& EJ GODK[ND & ( $ # 0 & @ & N & & JOBNAME: j & k & & BATCHNAME: & l & ( & &
0x3aea24…3aebb8 Dummy {f00=0x012a, f01=0x8190, f02=» & KLARI $ K & , & : ( H T & d & r & & S[NDNING & AVBRYTS $ A & & ( &
0x3aebb8…3aed4c Dummy {f00=0x012a, f01=0x8190, f02=» & FRYSNING KLAR $ R $ & 4 & B ( P & l & z & & FLOPPY DISC SKRIVNING $ L ( % & & &
0x3aed4c…3aeee0 Dummy {f00=0x012a, f01=0x8190, f02=» & & & & FLOPPY DISC SKRIVNING * & AVBRYTS N $ A d & t & ( & & DATUM: 99-99-99 " SA & &
0x3aeee0…3af074 (6, 88) Dummy {f00=0x012b, f01=0x8190, f02=»CE $ I & : & ( & #I 6 & F FILE T $ I h & - x NAME $ & : & & $I & ! EXPIRATION DATE: $
0x3af074…3af208 Dummy {f00=0x012b, f01=0x8190, f02=» & $ # OLD VOLUME SEQUENCE NO:: $ #I 6 & F & T & b & : p & U ( $ & U $ ( ( % & 001: $ &
0x3af208…3af39c Dummy {f00=0x012b, f01=0xc15e, f02=» & ( * $ & 4 ( B + N " , 999999999999999999999O ^ " , ( - " . 999999999999999999999+ " . ( / 0
0x3af39c…3af530 Dummy {f00=0x012b, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=10.0,800314,870136941000 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x3af530…3af6c4 Dummy {f00=0x012b, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=10.0,800314,870136941000 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x3af6c4…3af858 Dummy {f00=0x012b, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=10.0,800314,870136941000 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x3af858…3af9ec Dummy {f00=0x012b, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=10.0,800314,870136941000 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x3af9ec…3afb80 Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=10.0,800314,870136941000 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R W ~ T:RNOK T:LOFS , ( P _ Y $ I:E
0x3afb80…3afd14 (6, 89) Dummy {f00=0x012b, f01=0x4116, f02=» h , ( u R W V R W V I:MOV 8 T:GRFC H , ( % _ " D $ D Z T:ROK & " @ X $ X y & 8 4 R W 'P [ eP gW2 wR {W V R W V
0x3afd14…3afea8 Dummy {f00=0x012b, 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 <
0x3afea8…3b003c Dummy {f00=0x012b, 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 <
0x3b003c…3b01d0 Dummy {f00=0x012b, 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
0x3b01d0…3b0364 Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=10.0,800314,870136941000 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x3b0364…3b04f8 Dummy {f00=0x012b, 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 *
0x3b04f8…3b068c Dummy {f00=0x012b, 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
0x3b068c…3b0820 Dummy {f00=0x012b, 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
0x3b0820…3b09b4 (6, 90) Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=10.0,800314,870136941000 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
0x3b09b4…3b0b48 Dummy {f00=0x012b, 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
0x3b0b48…3b0cdc Dummy {f00=0x012b, 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
0x3b0cdc…3b0e70 Dummy {f00=0x012b, 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
0x3b0e70…3b1004 Dummy {f00=0x012b, 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
0x3b1004…3b1198 Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=10.0,800314,870136941000 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x3b1198…3b132c Dummy {f00=0x012b, f01=0x4032, f02=» =T P @ .870136941000 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x3b132c…3b14c0 Dummy {f00=0x012b, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=10.0,800314,870136941000 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x3b14c0…3b1654 (6, 91) Dummy {f00=0x012b, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x3b1654…3b17e8 Dummy {f00=0x012b, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=10.0,800314,870136941000 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x3b17e8…3b197c Dummy {f00=0x012b, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=10.0,800314,870136941000 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x3b197c…3b1b10 Dummy {f00=0x012b, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=10.0,800314,870136941000 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x3b1b10…3b1ca4 Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=10.0,800314,870136941000 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
0x3b1ca4…3b1e38 Dummy {f00=0x012b, 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
0x3b1e38…3b1fcc Dummy {f00=0x012b, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=10.0,800314,870136941000 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x3b1fcc…3b2160 Dummy {f00=0x012b, f01=0x0190, f02=» T:TABD , ( U P P Y +W Y + , ( u@ W T W Q W @ , ( Y + U Q P p T:TABC , ( BW W Y ( C T:RNOK I:RT1 * &
0x3b2160…3b22f4 (6, 92) Dummy {f00=0x012c, f01=0x411c, f02=» 2] X 8 Y 0 : X 0 :H* , ( ' : X 2T Y 2 : C 1 & T:EDIO V E B ] : h H D ! W !W GP2 KR UP [P cW^ g 8 s * yWL }T * W> Q W , ( U Q P W W P /T
0x3b22f4…3b2488 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=10.0,800314,870136941000 T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x3b2488…3b261c Dummy {f00=0x012c, f01=0x4040, f02=» U 6 2 : $ U ^ *@ < T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x3b261c…3b27b0 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=10.0,800314,870136941000 . * 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
0x3b27b0…3b2944 Dummy {f00=0x012c, 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
0x3b2944…3b2ad8 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=10.0,800314,870136941000 " . * T:TABC T:TABD T:TABE T:TABN T:SCR2 " F I:EVNO " x I:ESKI " I:EVA0 " I:EBRI " I:EBRB " I:EBR " , (
0x3b2ad8…3b2c6c Dummy {f00=0x012c, 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 #
0x3b2c6c…3b2e00 Dummy {f00=0x012c, f01=0x0190, f02=» T:LOPS # , ( V _` " P T & $ , ( (W " P Y 0] Y (_t $ B T:EDWF $ r * ( " X _. * X *# P B $ , ( 1 *W " P X X$ C $ T:SCR2 $ T:SCUR $ * &
0x3b2e00…3b2f94 (6, 93) Dummy {f00=0x012c, f01=0x40a0, f02=» Y ( : X (;n . $ H D ! +W /W 7Q ; ? KP Qp P P: Vp P4 T WT P P W % P P +W 3T 7W % j T % @ % P B $ , ( 1 *W " P X X$ C $ T:SCR2 $ T:SCUR $ * &
0x3b2f94…3b3128 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=10.0,800314,870136941000 & T:DNL T:DSL & F I:EVNO & I:ECPY & n I:EPIC & I:ETXT & I:ETAB & I:EBRI & I:EBRB & I:EBR & * &
0x3b3128…3b32bc Dummy {f00=0x012c, 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
0x3b32bc…3b3450 Dummy {f00=0x012c, f01=0x4166, f02=» Q Y *T , : " P X 0U ' , ( X *# P P T " T : ( , T:ENIN ( , ( Y . . Y ( $ ( n , ( Y *T " T ! 1 W ! ) , ( : ( H D ! 6 # ( 5W KPV QRz ST$ [P aU
0x3b3450…3b35e4 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=10.0,800314,870136941000 ) " T:PKI T:PINP T:TKI T:TINP ) F T:PKI ) l T:PINP ) ~ T:GRFC ) I:ETAB ) I:EVIN ) , ( I P & ) , ( Y *T
0x3b35e4…3b3778 Dummy {f00=0x012c, f01=0x018e, f02=» & V D ! P $ ) | T:TINP * T:TKI * 0 , ( u ! P %_ : V * B , ( Y " X .9H $ P * r , ( & X ( " Q Y +Q R " P W * , ( " U Y , " Q X . X 0R P * , (
0x3b3778…3b390c Dummy {f00=0x012c, f01=0x0190, f02=» , ( O X # :! R W T @ Y + T:ENIN + 4 T:ENI + F I:EXIT + V , ( o (W Y , W Y ( + h , ( @ : X *:h X (! # P X & V + , ( L T W X , X 0P T + , ( X *:h
0x3b390c…3b3aa0 Dummy {f00=0x012c, f01=0x0190, f02=»Y + , ( ) Y 8 & X 8 X $ W _ , , ( G " P X ( T X & V H "@T , : * & g P V Y X (P , j T:CLMI , , ( X (P , , ( 8 Y 0 X 2P X 0V _z ,
0x3b3aa0…3b3c34 (6, 94) Dummy {f00=0x012c, f01=0x0190, f02=» : : "0 , | , ( P $ T W %T : : - , ( = Y ( X $ Y X " Y X & Y X < - L , ( ] Y @ : Y : X : X ( - | , ( { T X & V H " V Y : X - T:CLDY - ! $ X :
0x3b3c34…3b3dc8 Dummy {f00=0x012c, f01=0x4108, f02=»P %P ) -P< 1 : - ^ H D ! 3WZ CP< EQ MP2 [R$ ]W a : e iT$ qW W P Tb W P@ . H D !$ T, T : P P* # 'P| CWh KP UT eTF i mP6 P b P . f < 8 P V T P P P #T 'W +T }T V . . @ .
0x3b3dc8…3b3f5c Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=10.0,800314,870136941000 / 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
0x3b3f5c…3b40f0 Dummy {f00=0x012c, 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 , (
0x3b40f0…3b4284 Dummy {f00=0x012c, 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
0x3b4284…3b4418 Dummy {f00=0x012c, f01=0x4144, f02=» > @ IDENT T:SETC P,REL=10.0,800314,870136941000 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
0x3b4418…3b45ac Dummy {f00=0x012c, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=10.0,800314,870136941000 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
0x3b45ac…3b4740 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=10.0,800314,870136941000 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
0x3b4740…3b48d4 (6, 95) Dummy {f00=0x012c, 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
0x3b48d4…3b4a68 Dummy {f00=0x012c, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=10.0,800314,870136941000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 , ( ! $ T ( W P 6 I:RT1 6
0x3b4a68…3b4bfc Dummy {f00=0x012c, f01=0x401a, f02=» f 7 @ 7 G P,REL=10.0,800314,870136941000 6 & " T:LOFS T:LOPS T:LSEG T:CSEG 6 F T:LSEG 6 p T:CSEG 6 , ( ( R : V E V D ' 6 , ( ! $ T ( W P 6 I:RT1 6
0x3b4bfc…3b4d90 Dummy {f00=0x012c, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=10.0,800314,870136941000 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$
0x3b4d90…3b4f24 Dummy {f00=0x012c, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=10.0,800314,870136941000 9 SWITCH 9 F T:SWIT 9 X SWITCH 9 j @ 9 ~ 9 @ 9 ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x3b4f24…3b50b8 Dummy {f00=0x012c, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=10.0,800314,870136941000 : TESTIO ABORT : F T:TEST : ^ TESTIO : p T:ABOR : ABORT : H : : @ : . P*
0x3b50b8…3b524c Dummy {f00=0x012c, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=10.0,800314,870136941000 ; SETTIM GETTIM ; F T:SETT ; ` SETTIM ; r T:GETT ; GETTIM ; H ; ; @ ; . P*
0x3b524c…3b53e0 Dummy {f00=0x012c, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=10.0,800314,870136941000 < DELAY < F T:DELA < V DELAY < h @ < z < @ < * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x3b53e0…3b5574 (6, 96) Dummy {f00=0x012d, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=10.0,800314,870136941000 = GETTID = F T:GETI = X GETTID = j @ = ~ = @ = ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x3b5574…3b5708 Dummy {f00=0x012d, f01=0x0190, f02=» > @ IDENT T:DC P,REL=10.0,800314,870136941000 > 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 > , ( @@ /
0x3b5708…3b589c Dummy {f00=0x012d, f01=0x40ca, f02=»:EVA0 > , ( 7 ' / C ? , ( Q$ C ? > & " k &P C & C : ? n V W V 1 V ? ? @ ? T:DCW1 > T:EDIO > , ( @@ /
0x3b589c…3b5a30 Dummy {f00=0x012d, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=10.0,800314,870136941000 @ 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
0x3b5a30…3b5bc4 Dummy {f00=0x012d, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=10.0,800314,870136941000 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
0x3b5bc4…3b5d58 Dummy {f00=0x012d, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=10.0,800314,870136941000 C T:DELA C F T:DELA C X I:EVA0 C l I:RT1 C ~ ( $ @ ( C C @ C RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x3b5d58…3b5eec Dummy {f00=0x012d, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=10.0,800314,870136941000 D MASK D F MASK D V I:EVA0 D h I:RT1 D z ( $ D V D D @ D TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x3b5eec…3b6080 Dummy {f00=0x012d, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=10.0,800314,870136941000 E T:ACTV T:PAUS T:RSTR E F T:ACTV E h , ( 2 ;B P J E | P:BAS E I:NTPB E , ( ! T ( E T:BAT E
0x3b6080…3b6214 (6, 97) Dummy {f00=0x012d, f01=0x4074, f02=» & F : ( E w F & ( P0 #T + X ?W4 I X WW F : x F ^@ F p
0x3b6214…3b63a8 Dummy {f00=0x012d, f01=0x8190, f02=» > @ IDENT T:USE P,REL=10.0,800314,870136941000 G T:USE T:UERR G F T:USE G ^ I:EVA0 G p * & 2 & >A >A 2 $ G P:MTAB G , ( & V D 9a 9 V G , ( =D @ W @ (
0x3b63a8…3b653c Dummy {f00=0x012d, f01=0xc186, f02=» ( 9 8 G , ( ? X Q , V H " , ( ( - 4T H R , ( V 5 ( W V P H , ( W U V X 9T I H T:UERR > H I:RT0 H
0x3b653c…3b66d0 Dummy {f00=0x012d, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=10.0,800314,870136941000 I T:UNUS I F T:UNUS I X , ( 2 ' >A >A 2 $ V I l P:MTAB I , ( ! L ;a ; R @ ( 8 ? I , ( ? X Q ( V )<B I
0x3b66d0…3b6864 Dummy {f00=0x012d, f01=0x4012, f02=» I @ J T:UNUS P,REL=10.0,800314,870136941000 I T:UNUS I F T:UNUS I X , ( 2 ' >A >A 2 $ V I l P:MTAB I , ( ! L ;a ; R @ ( 8 ? I , ( ? X Q ( V )<B I
0x3b6864…3b69f8 Dummy {f00=0x012d, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=10.0,800314,870136941000 K T:EXIT K F T:EXIT K X ( K l K @ K KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x3b69f8…3b6b8c Dummy {f00=0x012d, f01=0x4138, f02=» > @ IDENT T:GTCW P,REL=10.0,800314,870136941000 L GETCW L F T:FDSP L V GETCW L h I:EVA0 L z T:BINB L , ( H "$ P B B L T:GTCW L I:RT1 L $ W L
0x3b6b8c…3b6d20 Dummy {f00=0x012d, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=10.0,800314,870136941000 M T:GETI M F T:GETI M X I:EVA0 M l I:RT1 M ~ $ @ V G 9h ' M M @ M VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x3b6d20…3b6eb4 (6, 98) Dummy {f00=0x012d, f01=0x018e, f02=» > @ IDENT T:DM P,REL=10.0,800314,870136941000 N & " T:OPEN T:CLOS T:COMM T:RSTA N F T:OPEN N p T:FDSP N , ( @ # 9 2! P T N T:WRIO N T:IO2 N T:CLOS . N , (
0x3b6eb4…3b7048 Dummy {f00=0x012d, f01=0x4090, f02=» T:RSTA X O T:SCW2 O T:IO3 O * ( $ W C O : P T O f j O z@ O , ( @ # 9 2! P T N T:WRIO N T:IO2 N T:CLOS . N , (
0x3b7048…3b71dc Dummy {f00=0x012d, f01=0x018c, f02=» > @ IDENT T:DMR P,REL=10.0,800314,870136941000 P & " T:DREA T:IREA T:XREA T:IXID P F T:DREA P p T:REAX P T:SCW2 P T:IO3 P T:IREA P T:IO2 P , ( $ P
0x3b71dc…3b7370 Dummy {f00=0x012d, f01=0x4008, f02=»@ Q IDENT T:DMR P,REL=10.0,800314,870136941000 P & " T:DREA T:IREA T:XREA T:IXID P F T:DREA P p T:REAX P T:SCW2 P T:IO3 P T:IREA P T:IO2 P , ( $ P
0x3b7370…3b7504 Dummy {f00=0x012d, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=10.0,800314,870136941000 R 6 2 T:SWRI T:DWRI T:IWRI T:DREW T:CREW T:IREW R F T:SWRI R T:WRIX R T:IO4 R T:DWRI R T:SCW2 R , ( / / R
0x3b7504…3b7698 Dummy {f00=0x012d, f01=0x40fc, f02=» 5D / C R , ( O ( B B @ C S , , ( o ( ( B B S , ( C C ( C S T:IO5 S C S S @ S / R
0x3b7698…3b782c Dummy {f00=0x012d, f01=0x4182, f02=» > @ IDENT T:DMDI P,REL=10.0,800314,870136941000 T T:DDIS T:CDIS T:IDIS T F T:DDIS T h T:FDSP T | T:SCW2 T T:IO3 T T:CDIS T , ( $ C <H / T T:IDIS $ T
0x3b782c…3b79c0 Dummy {f00=0x012d, f01=0x4168, f02=» > @ IDENT T:DMPO P,REL=10.0,800314,870136941000 U T:DPOS T:IPOS U F T:DPOS U ` T:FDSP U t T:SCW2 U T:GTBY U T:IO4 U , ( H@ C <H / U T:IPOS U T:WRIX
0x3b79c0…3b7b54 (6, 99) Dummy {f00=0x012d, f01=0x0190, f02=» > @ IDENT T:IO P,REL=10.0,800314,870136941000 V J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 V F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 V J F " T:IO4 T:IO5 T:FDS0 T:FDSP T:GDSP T
0x3b7b54…3b7ce8 Dummy {f00=0x012d, f01=0x0190, f02=»:WRIT V T:LWRI W , ( W / W $ T:WRIX " W T T:WRIO & W h I:EVA0 W | , ( ! _ P <H W T:SREA B W T:READ B W T:REAX J W , ( ? :
0x3b7ce8…3b7e7c Dummy {f00=0x012d, f01=0x018e, f02=» C C J ' W 781" W T:DSC2 X " , ( &$ 39#$;< '()*+,-! X 6 T:XSTA X f , ( P _D B X z T:WAIT X T:MWAI X * & @ 'W ( W X , (
0x3b7e7c…3b8010 Dummy {f00=0x012d, f01=0x0190, f02=» X T:IO4 @ Y T:IO5 L Y T:IORE P Y , , ( 5 C C C ( ' P Y @ T:GCW2 Y p , ( U P "! P W B % P Y T:GTCW Y I:RT1 Y T:IOEN Y , ( s C +
0x3b8010…3b81a4 Dummy {f00=0x012d, f01=0x0190, f02=»:EDW Y T:EDWE Z T:EDWF Z , ( C ~ C B Z 4 T:EDWI Z d , ( B P C : V I C Z x T:EDIO Z , ( B : ( ' P Z T:KIPR 2 Z I:EVA
0x3b81a4…3b8338 Dummy {f00=0x012d, f01=0x018e, f02=» T Z r T:FDS0 [ , ( T T V : 2 ' [ & T:FDSP [ V T:GDSP [ j P:MTAB [ ~ I:EVTO [ , ( W 2 6 2 @ & " T # ' ?D W [ I:FML [ , ( ' #? ;D:B "
0x3b8338…3b84cc Dummy {f00=0x012d, f01=0x0190, f02=» [ h T:DSCX I:EVA2 , ( : P C W $0 . T:SCW0 ^ , ( 9 P C : C "!@P " p $ W ) # B C B % C : H D ! Y W 2 < " @ % ) J - 1P G J IW M Q ]P cV
0x3b84cc…3b8660 Dummy {f00=0x012d, f01=0x4092, f02=» P P ` H D ! %P ) v 5 9 _R eV T T T W T W" P )P /W ] 9P SP ] h n ] |@ ] !@P " p $ W ) # B C B % C : H D ! Y W 2 < " @ % ) J - 1P G J IW M Q ]P cV
0x3b8660…3b87f4 (6, 100) Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=10.0,800314,870136941000 d T:KIA T:NKIA d F T:KIA d ^ T:NKIA d p T:ABUF d T:KIPR d , ( W 6 V :a d , ( ' ( ( d
0x3b87f4…3b8988 Dummy {f00=0x012e, f01=0x0190, f02=» y K V K V 6V ( - d , ( _ : J 7 J V W J e , , ( :A V 6V $ - _ * e , ( + : D T E D :A D e , ( ;A 9A Q 5 U _ 5 e T:KIAA e T:KIAC
0x3b8988…3b8b1c Dummy {f00=0x012e, f01=0x40c8, f02=» D V e p , ( @ m D V ( 2 C C f _, f @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W f R [R ]P f f @ f
0x3b8b1c…3b8cb0 Dummy {f00=0x012e, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=10.0,800314,870136941000 g T:ABUF g F M g X T:ABUF g n g @ g IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x3b8cb0…3b8e44 Dummy {f00=0x012e, f01=0xc10e, f02=» > @ IDENT WRITEL P,REL=10.0,800314,870136941000 h WRITEL h F WRITEL h X T:FDS0 h l I:EVA0 h ~ , ( D / C h $ &P C & C h !P h 0 h @
0x3b8e44…3b8fd8 Dummy {f00=0x012e, f01=0x818e, f02=» > @ IDENT I:NTP P,REL=10.0,800314,870136941000 i B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 i F I:MOV i I:ADD i I:SUB i I:CMP i I:MUL i * & T i
0x3b8fd8…3b916c Dummy {f00=0x012e, f01=0x8190, f02=» i I:XCP j I:EDS j , ( - j ( I:TRC j X I:RST B j j T:CSEG j | I:NTPA F j I:NTPB J j P:MTAB j , ( ? W V 7 @ " j T:LSEG j
0x3b916c…3b9300 Dummy {f00=0x012e, f01=0x8190, f02=» " j r I:EVA2 k , ( @ $ Q W :a k $ I:RT2 k T I:RT1 k f I:RT0 k x , ( W _B( 2 P V k T:BAT k , ( W _ 2 # ;B V T &W k , ( V P
0x3b9300…3b9494 (6, 101) Dummy {f00=0x012e, f01=0x8190, f02=»AT k , ( O @ 2 ! 9B V T (W V P l , ( m D $ V 6 V % V E l : , ( @ & ' T 2 % 7_ l j T:CAT l , ( @ 2 # L * " 2" l , ( &] Y $! 6P Q $ T 9B l ,
0x3b9494…3b9628 Dummy {f00=0x012e, f01=0xc130, f02=» , V & l z $ ( A H J 'W 'W '_6 m H D ! B . & ! # % ' ) + ; N m B H D ! = J ? T A V ]P gP s t N Q W W P W8 T W P P m < 8 !R %T +P ]T cW T P Q T T
0x3b9628…3b97bc Dummy {f00=0x012e, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=10.0,800821,870136941000 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
0x3b97bc…3b9950 Dummy {f00=0x012e, 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 "
0x3b9950…3b9ae4 Dummy {f00=0x012e, f01=0x0190, f02=» Z Z , ( 3 : R ; 0 , ( S 6 : F _v :B , ` , ( s (V ; H [ [ [ , ( z ;AV Z H # , ( ; :
0x3b9ae4…3b9c78 Dummy {f00=0x012e, f01=0x0190, f02=» ! P [ 6 [ , ( 1 Z 7 . Z 7 I:FML R P , ( Q : ( :A ( :mT b I:EVTO r , ( q @ & " P ! P [ :;H , ( $ 2 :;h :
0x3b9c78…3b9e0c Dummy {f00=0x012e, f01=0x40ce, f02=» ; : ;f" #?_" H D ! #W 'W -P 1W = r ?W4 KT> [ R kT V, W R V W W $ D @ r W$ P& Pd R Wv yVr V$ P iT yP P W& p @ , ( $ 2 :;h :
0x3b9e0c…3b9fa0 Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=10.0,800314,870136941000 s I:ADD I:SUB s F I:ADD s I:SUB s n , ( W " T & T + : s I:CPA s , ( ! * & !@P `1` P Q s " ? [
0x3b9fa0…3ba134 (6, 102) Dummy {f00=0x012e, f01=0x0190, f02=» $ P T s v , ( R R ` ; <( t , ( Q P # W " <! =# T W = Z t F , ( P _ V ^< `_@ t v , ( R Q <# =_ P :" P * U t , ( 5 P 1`! T "# 9e! # K t
0x3ba134…3ba2c8 Dummy {f00=0x012e, f01=0x4008, f02=»@ u T s v , ( R R ` ; <( t , ( Q P # W " <! =# T W = Z t F , ( P _ V ^< `_@ t v , ( R Q <# =_ P :" P * U t , ( 5 P 1`! T "# 9e! # K t
0x3ba2c8…3ba45c Dummy {f00=0x012e, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=10.0,800314,870136941000 v I:CMP v F I:CMP v V , ( P " T * & : * & v h I:CPA v , ( ! !`P :J +_ +Q v , ( A _0 , T T XD W 1 v
0x3ba45c…3ba5f0 Dummy {f00=0x012e, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=10.0,800314,870136941000 w I:CPA w F I:CPA w V * & R W w h , ( ( V W Q P W ! W V w , ( ? P , V W Q P W $ W V w * & _ P
0x3ba5f0…3ba784 Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=10.0,800314,870136941000 x I:MOV I:MVC x F I:MOV x I:MVC x n , ( $0#0;b P P P P x , ( ! 0 - P _ 4 V x , ( A W Q P ) P 9_ &" ! 9 :
0x3ba784…3ba918 Dummy {f00=0x012e, f01=0x0190, f02=»V x p , ( 4! P < X 4 y , ( 9d $ & ! R + : y @ , ( V W R 4 0R Y 7 Y& y p , ( ! P Z,;D 9_8 8 _< V y , ( A W YL T 9 : &9d! + y , ( a
0x3ba918…3baaac Dummy {f00=0x012e, f01=0x40d2, f02=» 9d! )0 + P 7 Y Z $ y _ : z 0 H D ! T P P PF P -P0 EQ GP OP gP kQ s R R R z H $ #P eP( {T WJ V P. P z z @ z A W YL T 9 : &9d! + y , ( a
0x3baaac…3bac40 Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=10.0,800314,870136941000 { I:MUL I:SH1L { F I:MUL { ^ , ( V ) " T *V &V { p , ( ! : V S W P 9 S W _ { , ( A V P W T V E + { , ( a
0x3bac40…3badd4 (6, 103) Dummy {f00=0x012e, f01=0x0190, f02=» [ { , ( P Z P [ 9a Z | ( , ( $" T 9d! P P [ Z w | X I:ADD | , ( [ P V H )_ | , ( _X z R z ! P 1` { | , ( / V (9h
0x3badd4…3baf68 Dummy {f00=0x012e, f01=0x4066, f02=» | l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP } } P@ } b9d! P P [ Z w | X I:ADD | , ( [ P V H )_ | , ( _X z R z ! P 1` { | , ( / V (9h
0x3baf68…3bb0fc Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=10.0,800314,870136941000 ~ I:DIV I:SH1R ~ F I:DIV ~ ^ , ( " T *V &V ~ p ! P = ~ , ( ' ;@ R P W ;a ~ , ( G =a P " R & R
0x3bb0fc…3bb290 Dummy {f00=0x012e, f01=0x0190, f02=» [ [ ~ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x3bb290…3bb424 Dummy {f00=0x012e, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x3bb424…3bb5b8 Dummy {f00=0x012e, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x3bb5b8…3bb74c Dummy {f00=0x012e, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=10.0,800314,870136941000 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x3bb74c…3bb8e0 Dummy {f00=0x012e, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=10.0,800314,870136941000 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 , ( !!
0x3bb8e0…3bba74 (6, 104) Dummy {f00=0x012f, 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
0x3bba74…3bbc08 Dummy {f00=0x012f, 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 , (
0x3bbc08…3bbd9c Dummy {f00=0x012f, f01=0x0190, f02=» 7 [ Z P I:EXIT n * , ( U $ [ V 7_ > P:MTAB n , ( s Z @ " &! P $ Z 7 , ( Z Z P $ I:FFSN , ( : V
0x3bbd9c…3bbf30 Dummy {f00=0x012f, f01=0x0190, f02=»:ECPY , ( I < : J Q : I:EXPY @ , ( P 4 ! T _ T I:ECTR 0 I:ESL : I:ENL D , ( ) P 4 W K W W +_ I:EOR Z T:EDWF
0x3bbf30…3bc0c4 Dummy {f00=0x012f, f01=0x413a, f02=»:SCB , ( g X & , J K : V : 1 > H D ! U Y [ e Z g n i d k 4 m D s x u : y < < T H D ! P T W T W ; QP { P P R Q P Qx Pn Th 4 0 + )PX /WT 7 9WJ = @ ?W
0x3bc0c4…3bc258 Dummy {f00=0x012f, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=10.0,800314,870136941000 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x3bc258…3bc3ec Dummy {f00=0x012f, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x3bc3ec…3bc580 Dummy {f00=0x012f, f01=0x4122, f02=» } ++P !-- z ;$# + ^" _( " T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T ?R EP KT OW S P Wn W8 Wf T H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U mW qW
0x3bc580…3bc714 (6, 105) Dummy {f00=0x012f, f01=0x8190, f02=» > @ IDENT I:EDTE P,REL=10.0,800314,870136941000 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 , ( @
0x3bc714…3bc8a8 Dummy {f00=0x012f, f01=0xc14e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x3bc8a8…3bca3c Dummy {f00=0x012f, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=10.0,800314,870136941000 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x3bca3c…3bcbd0 Dummy {f00=0x012f, f01=0x0190, f02=» > @ IDENT I:STR P,REL=10.0,800314,870136941000 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x3bcbd0…3bcd64 Dummy {f00=0x012f, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x3bcd64…3bcef8 Dummy {f00=0x012f, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x3bcef8…3bd08c Dummy {f00=0x012f, f01=0xc152, f02=» > @ IDENT I:EVS P,REL=10.0,800314,870136941000 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x3bd08c…3bd220 Dummy {f00=0x012f, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=10.0,800314,870136941000 b & " T:RREA T:RRE1 T:RWRI T:RWR1 b F T:RREA b p T:FDSP b T:RRE1 b I:EVA0 b T:STCW b , ( A &P C b T:IO2 b
0x3bd220…3bd3b4 (6, 106) Dummy {f00=0x012f, f01=0x4036, f02=» : b v 6 + 6 c F c @ c 236941000 b & " T:RREA T:RRE1 T:RWRI T:RWR1 b F T:RREA b p T:FDSP b T:RRE1 b I:EVA0 b T:STCW b , ( A &P C b T:IO2 b
0x3bd3b4…3bd548 Dummy {f00=0x012f, f01=0x0190, f02=» > @ IDENT T:CW P,REL=10.0,800314,870136941000 ^ 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 ^
0x3bd548…3bd6dc Dummy {f00=0x012f, f01=0x0190, f02=» X R _ V ^ T:GTCW _ , ( 4 _P :#0 T B 'W B B " _ 4 T:BINB _ d , ( : P _ x , ( P L R R _ , ( _ R _ # Q R _ , (
0x3bd6dc…3bd870 Dummy {f00=0x012f, f01=0x0190, f02=» _ h , ( _ ' d w5 1 ` T:KIAA ~ ` 8 T:KIAC ` L T:GCW2 ` ` , ( #0 T B ' : ` t T:SCW2 ` , ( B B : P C ` , ( #0 T & C C : $
0x3bd870…3bda04 Dummy {f00=0x012f, f01=0x4038, f02=»P 3P CR } ~ T P T ` v a "@ a 4 T:KIAA ~ ` 8 T:KIAC ` L T:GCW2 ` ` , ( #0 T B ' : ` t T:SCW2 ` , ( B B : P C ` , ( #0 T & C C : $
0x3bda04…3bdb98 Dummy {f00=0x012f, f01=0xc114, f02=» > @ IDENT T:CLO P,REL=10.0,800314,870136941000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT * & @ ( " ( _ .
0x3bdb98…3bdd2c Dummy {f00=0x012f, f01=0x0190, f02=» > @ IDENT T:USE P,REL=10.0,800314,870136941000 G T:USE T:UERR G F T:USE G ^ I:EVA0 G p * & 2 & >A >A 2 $ G P:MTAB G , ( & V D 9a 9 V G , ( =D @ W @ (
0x3bdd2c…3bdec0 Dummy {f00=0x012f, f01=0x4186, f02=» ( 9 8 G , ( ? X Q , V H " , ( ( - 4T H R , ( V 5 ( W V P H , ( W U V X 9T I H T:UERR > H I:RT0 H
0x3bdec0…3be054 (6, 107) Dummy {f00=0x012f, f01=0xc010, 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
0x3be054…3be1e8 Dummy {f00=0x012f, f01=0x410e, f02=» > @ IDENT WRITEL P,REL=10.0,800314,870136941000 h WRITEL h F WRITEL h X T:FDS0 h l I:EVA0 h ~ , ( D / C h $ &P C & C h !P h 0 h @
0x3be1e8…3be37c Dummy {f00=0x012f, f01=0xc00c, 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
0x3be37c…3be510 Dummy {f00=0x012f, f01=0x018e, f02=» > @ IDENT I:NTP P,REL=10.0,800314,870136941000 i B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 i F I:MOV i I:ADD i I:SUB i I:CMP i I:MUL i * & T i
0x3be510…3be6a4 Dummy {f00=0x012f, f01=0x0190, f02=» i I:XCP j I:EDS j , ( - j ( I:TRC j X I:RST B j j T:CSEG j | I:NTPA F j I:NTPB J j P:MTAB j , ( ? W V 7 @ " j T:LSEG j
0x3be6a4…3be838 Dummy {f00=0x012f, f01=0x0190, f02=» " j r I:EVA2 k , ( @ $ Q W :a k $ I:RT2 k T I:RT1 k f I:RT0 k x , ( W _B( 2 P V k T:BAT k , ( W _ 2 # ;B V T &W k , ( V P
0x3be838…3be9cc Dummy {f00=0x012f, f01=0x0190, f02=»AT k , ( O @ 2 ! 9B V T (W V P l , ( m D $ V 6 V % V E l : , ( @ & ' T 2 % 7_ l j T:CAT l , ( @ 2 # L * " 2" l , ( &] Y $! 6P Q $ T 9B l ,
0x3be9cc…3beb60 Dummy {f00=0x012f, f01=0x4130, f02=» , V & l z $ ( A H J 'W 'W '_6 m H D ! B . & ! # % ' ) + ; N m B H D ! = J ? T A V ]P gP s t N Q W W P W8 T W P P m < 8 !R %T +P ]T cW T P Q T T
0x3beb60…3becf4 (6, 108) Dummy {f00=0x0130, f01=0xc0f4, 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
0x3becf4…3bee88 Dummy {f00=0x0130, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=10.0,800314,870136941000 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 , ( @
0x3bee88…3bf01c Dummy {f00=0x0130, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x3bf01c…3bf1b0 Dummy {f00=0x0130, f01=0xc008, 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 &
0x3bf1b0…3bf344 Dummy {f00=0x0130, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=10.0,800314,870136941000 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x3bf344…3bf4d8 Dummy {f00=0x0130, f01=0xc082, 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! , ( ]
0x3bf4d8…3bf66c Dummy {f00=0x0130, 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
0x3bf66c…3bf800 Dummy {f00=0x0130, 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
0x3bf800…3bf994 (6, 109) Dummy {f00=0x0130, 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
0x3bf994…3bfb28 Dummy {f00=0x0130, 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
0x3bfb28…3bfcbc Dummy {f00=0x0130, 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
0x3bfcbc…3bfe50 Dummy {f00=0x0130, 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
0x3bfe50…3bffe4 Dummy {f00=0x0130, 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
0x3bffe4…3c0178 Dummy {f00=0x0130, 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 , ( @
0x3c0178…3c030c Dummy {f00=0x0130, 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
0x3c030c…3c04a0 Dummy {f00=0x0130, 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
0x3c04a0…3c0634 (6, 110) Dummy {f00=0x0130, 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
0x3c0634…3c07c8 Dummy {f00=0x0130, 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 " @
0x3c07c8…3c095c Dummy {f00=0x0130, 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 :
0x3c095c…3c0af0 Dummy {f00=0x0130, 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
0x3c0af0…3c0c84 Dummy {f00=0x0130, 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 ,
0x3c0c84…3c0e18 Dummy {f00=0x0130, 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
0x3c0e18…3c0fac Dummy {f00=0x0130, 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
0x3c0fac…3c1140 Dummy {f00=0x0130, 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 , (
0x3c1140…3c12d4 (6, 111) Dummy {f00=0x0130, f01=0x418a, f02=» j , ( a TT:VON : TT:VER N , ( b , ( TT:VMM @ TT:HLT
0x3c12d4…3c1468 Dummy {f00=0x0130, f01=0x0190, f02=» > @ IDENT TRABUG T,REL=10.0,800314,870137141000 TB:ENT TB:ABT TB:RDC F h P:BAS z , ( , ( , (
0x3c1468…3c15fc Dummy {f00=0x0130, f01=0x0190, f02=»( ( ( TT:PRC $ TT:SNO 6 , ( i D "! A * @ @ H , ( @ *P ( V x , ( R V W Z T , ( _" = T , (
0x3c15fc…3c1790 Dummy {f00=0x0130, 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 , (
0x3c1790…3c1924 Dummy {f00=0x0130, 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
0x3c1924…3c1ab8 Dummy {f00=0x0130, 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
0x3c1ab8…3c1c4c Dummy {f00=0x0130, f01=0x0190, f02=» p , ( ; 0 P P P @ , ( [ R _ @ , ( { _T p , ( 8 4 T P W , ( T @R W , ( U
0x3c1c4c…3c1de0 Dummy {f00=0x0130, 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
0x3c1de0…3c1f74 (6, 112) Dummy {f00=0x0131, 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 _
0x3c1f74…3c2108 Dummy {f00=0x0131, f01=0x0190, f02=» 0 p , ( $ W ! T @ P @ " 1 , ( P w 8 P @ @ @ @ T @ , ( @ @ R A *9l! P p , ( &9d! ) W P &9d , ( & _ & , ( P
0x3c2108…3c229c Dummy {f00=0x0131, f01=0x018e, f02=» S P R % < < ! , ( H s T @ P @ ! 0 , ( D 5 = 8 8P @ ` TT:TRP TT:TRS , ( W $ TT:TON * & @
0x3c229c…3c2430 Dummy {f00=0x0131, 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 @
0x3c2430…3c25c4 Dummy {f00=0x0131, 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 (
0x3c25c4…3c2758 Dummy {f00=0x0131, f01=0x0190, f02=» A l , ( :B A (P _ @ , ( @ @ P @ < , ( V @ Q 1 @ Q Q l , ( +D A " ( R ( @ , ( G$ V @ H ) I " , ( a $
0x3c2758…3c28ec Dummy {f00=0x0131, 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
0x3c28ec…3c2a80 Dummy {f00=0x0131, f01=0x0190, f02=»Q L % Q | , ( W , ( C L , ( " _* Q P Q V | , ( ? _ W " A < V , ( _ " F <P
0x3c2a80…3c2c14 (6, 113) Dummy {f00=0x0131, 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
0x3c2c14…3c2da8 Dummy {f00=0x0131, 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 , (
0x3c2da8…3c2f3c Dummy {f00=0x0131, 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 "
0x3c2f3c…3c30d0 Dummy {f00=0x0131, 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 {
0x3c30d0…3c3264 Dummy {f00=0x0131, 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
0x3c3264…3c33f8 Dummy {f00=0x0131, 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
0x3c33f8…3c358c Dummy {f00=0x0131, 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 ] _
0x3c358c…3c3720 Dummy {f00=0x0131, 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 :
0x3c3720…3c38b4 (6, 114) Dummy {f00=0x0131, 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
0x3c38b4…3c3a48 Dummy {f00=0x0131, 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
0x3c3a48…3c3bdc Dummy {f00=0x0131, 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
0x3c3bdc…3c3d70 Dummy {f00=0x0131, 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
0x3c3d70…3c3f04 Dummy {f00=0x0131, 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
0x3c3f04…3c4098 Dummy {f00=0x0131, 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
0x3c4098…3c422c Dummy {f00=0x0131, 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
0x3c422c…3c43c0 Dummy {f00=0x0131, 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
0x3c43c0…3c4554 (6, 115) Dummy {f00=0x0131, f01=0x0190, f02=» j SCTMMC , ( W Y( P Z& = : , ( A @:L . < P W L * & <9B @ V W Q | SCTLAC , ( W & @ A , ( B 0 @
0x3c4554…3c46e8 Dummy {f00=0x0131, f01=0x0190, f02=» a$ P V V " W _> , ( { @ , , ( H . V V " , ( $ P W @ @ ! T _ , ( P 8 , ( :l D
0x3c46e8…3c487c Dummy {f00=0x0131, f01=0x0190, f02=»P W T | , ( ] W , ( }A W 0 @ W ( L , ( | , ( , ( V * 00P
0x3c487c…3c4a10 Dummy {f00=0x0131, 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 , ( " &
0x3c4a10…3c4ba4 Dummy {f00=0x0131, 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 !
0x3c4ba4…3c4d38 Dummy {f00=0x0131, f01=0x0190, f02=» : : : : , ( / : : 0 )T : !00 , , ( O T W * : TID=TCL= , ( k LEV=TDC=T0LC=0SDC=S0A I. : , ( C. ~ X C.9h! , ( # "
0x3c4d38…3c4ecc Dummy {f00=0x0131, 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
0x3c4ecc…3c5060 Dummy {f00=0x0131, 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
0x3c5060…3c51f4 (6, 116) Dummy {f00=0x0132, 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
0x3c51f4…3c5388 Dummy {f00=0x0132, 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
0x3c5388…3c551c Dummy {f00=0x0132, 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
0x3c551c…3c56b0 Dummy {f00=0x0132, 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
0x3c56b0…3c5844 Dummy {f00=0x0132, 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
0x3c5844…3c59d8 Dummy {f00=0x0132, 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
0x3c59d8…3c5b6c Dummy {f00=0x0132, f01=0x4114, f02=» > @ IDENT T:CLO P,REL=10.0,800314,870136941000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT * & @ ( " ( _ .
0x3c5b6c…3c5d00 Dummy {f00=0x0132, f01=0xc008, f02=»@ IDENT T:CLO T,REL=10.0,800314,870137141000 T:SETT T:GETT F T:SETT ` I:EVA0 t I:RT1 T:GETT , ( @ ( ( $ @ ( _
0x3c5d00…3c5e94 (6, 117) Dummy {f00=0x0132, 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
0x3c5e94…3c6028 Dummy {f00=0x0132, f01=0x0190, f02=» v 2 P f
0x3c6028…3c61bc Dummy {f00=0x0132, f01=0x0190, f02=» 2 F d > t E * E 3 E ; J F " D @h0R ! P # ( + ?R0X <RAhW %hZ ( !<R %
0x3c61bc…3c6350 Dummy {f00=0x0132, 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 (
0x3c6350…3c64e4 Dummy {f00=0x0132, 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 !! !
0x3c64e4…3c6678 Dummy {f00=0x0132, 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 '
0x3c6678…3c680c Dummy {f00=0x0132, f01=0x018e, f02=» j J F " D @ W "_ '_ !0X R! 2 RRRW 0X 0R (P" &W:6 33 33 Z 4 j $ z 4
0x3c680c…3c69a0 Dummy {f00=0x0132, f01=0x018e, f02=» " " " ! $ " 2 " @ " " N " % " & j " ' x " ( " , " . " / " 0 ( & &
0x3c69a0…3c6b34 (6, 118) Dummy {f00=0x0132, f01=0x0190, f02=» $ O & DELETED ( ( > J $ E Z & INSERTED j ( & & RECORD $ N & TTTT9D "
0x3c6b34…3c6cc8 Dummy {f00=0x0132, f01=0x018e, f02=» & T:L XX " T , & < ELEMENT J $ T b NUMBER r $ & : ( ! & : & : & CONFIRM RECORD INSERT: (
0x3c6cc8…3c6e5c Dummy {f00=0x0132, f01=0x018e, f02=» & $ BATCHY $ $E ( & : 8 & l F & RUNNING.O T ( l % x & & & RECORD CORRECTIONS ( & & & " & RECORD
0x3c6e5c…3c6ff0 Dummy {f00=0x0132, f01=0x018e, f02=» ) CONFIRM $ )E & FREEZING OF BATCH 0 & l P ( ^ * j + CONFIRM z $ +R $ & CONVERSION OF ALL BATCHES ( , & $ *O &
0x3c6ff0…3c7184 Dummy {f00=0x0132, f01=0x0190, f02=» & k ( / & & k . & AUTOMATIC SKIP/DUP *OC < & U ` & N* p & & FF*O ( 0 & $ & ENTER WANTED RECORDNUMBER: ( 1
0x3c7184…3c7318 Dummy {f00=0x0132, f01=0x4054, f02=» & & ( 0X4 , >@ P *OC < & U ` & N* p & & FF*O ( 0 & $ & ENTER WANTED RECORDNUMBER: ( 1
0x3c7318…3c74ac Dummy {f00=0x0132, f01=0x0190, f02=» J H IDENT DECONV TRA 10.0 80-12-18 F1 O1111 REL=1.0 VER=1 80-12-18/SHB DECONV R $$$TRAC d DECONV v D @ ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1 D @ MASKN T:ATTF T:DISP T:DSC1 T:EDWR T:GETC T:GET
0x3c74ac…3c7640 Dummy {f00=0x0132, f01=0x0190, f02=» . < > P N ^ n ~ " $ + $ 2 5 # 7 9
0x3c7640…3c77d4 (6, 119) Dummy {f00=0x0132, f01=0x0190, f02=» B E O S X 0 T t @ U P V I ` W t p Z 6 b # d i o q s
0x3c77d4…3c7968 Dummy {f00=0x0132, f01=0x0190, f02=» $ ? 4 X F X j | J F " D X F_ !0R 0R 0X LQ LR A W LQ LY A _: !0R 0R .
0x3c7968…3c7afc Dummy {f00=0x0132, f01=0x018e, f02=»L LZ$ LQ A T< $ _3 LQ $ _> LQ A T8 % _ x o 6 0 o H "0 o Z ,0 o l . ~ 0 80 o J F " D M LQ % _X LR $ _c % _i@ $LXH@ g L1X F_V@ %LXD@ g B0 L
0x3c7afc…3c7c90 Dummy {f00=0x0132, f01=0x0190, f02=» ~ J F " D @ L1X F_RH @ $LP @ g L1X FW#H @ %L H A W U0X T 1X ( v 6 J F
0x3c7c90…3c7e24 Dummy {f00=0x0132, f01=0x018e, f02=» X * < L ^ n ~ J F " D T a F L0X L0X T a F L0X L0X T _oI II 1X F $ +
0x3c7e24…3c7fb8 Dummy {f00=0x0132, f01=0x018e, f02=» K * N , S F $ U 6 X F ^ X d } h o z q z 5 * J F " D @ L_ LW10X 0X L0R R L0X Lj " L0X _N LA _ 0
0x3c7fb8…3c814c Dummy {f00=0x0132, f01=0x018e, f02=» X & 6 H J F " D X 0X L0R Z -I O L0X a F L0X Z5a F L0X L0X X
0x3c814c…3c82e0 Dummy {f00=0x0132, f01=0x0190, f02=» J F " D ZL U0X T 1X F@ 0X R R& ?R U0X T 1X F_#2 RRRRRI _ f x % 6 ' / 5 7 9 J
0x3c82e0…3c8474 (6, 120) Dummy {f00=0x0133, f01=0x0190, f02=» ` e # i , o < q N z 7 ^ | p J F " D @ & % $ ! RW W a F R?RW W LW LA ?R ' L0R L?RK "
0x3c8474…3c8608 Dummy {f00=0x0133, f01=0x0190, f02=» 6 0 B R b 7 r ^ J F " D %_` L_e R_ W W? RW!W L
0x3c8608…3c879c Dummy {f00=0x0133, f01=0x0190, f02=» RW _1J B L?RA . _A@ - ! . L 0R _o -I J ( D L T U d Z v b c f 7 h i m p n S o ^
0x3c879c…3c8930 Dummy {f00=0x0133, f01=0x0190, f02=»W _# RW _)2 R X a & 8 * H X j z J F " D RR RW _5 L 0R _M0X @ ' L0R @ ' L0R 0X
0x3c8930…3c8ac4 Dummy {f00=0x0133, f01=0x0190, f02=» J F " D R R& ?R U0X T 1X F_D U0X T 1X F_S # # R" T - X j | , % o ' . B ? - J F " D ! L4 4 L " '0R 0
0x3c8ac4…3c8c58 Dummy {f00=0x0133, f01=0x0190, f02=» c B n v " y - 2 ~ D T J F " D @j " 1XFAn0X ! 0X !0X K 4 4 L "m F %m F Lm F f , O 0 O
0x3c8c58…3c8dec Dummy {f00=0x0133, f01=0x0190, f02=» 0X L0R T L L L0R 4 4 0X 0X 0R "P 4 ~ < } L ^ p , . J F " D L0R R Lj L 0R
0x3c8dec…3c8f80 Dummy {f00=0x0133, f01=0x0190, f02=» 9 > J F " D R T 4 ' L0R 4 L !0R 0R P R W 0X LR) LQ ( C v H . M X R X U Z _ b
0x3c8f80…3c9114 (6, 121) Dummy {f00=0x0133, f01=0x018e, f02=» . - + $ J F " D FW6" 5 Rx0X 0R /P m F 6 !W m F 5 f 4 q / J F
0x3c9114…3c92a8 Dummy {f00=0x0133, f01=0x0190, f02=» & * & NUMBER: 9999 ( " gU < & L & Z & h ( v & B $ U & & ( &
0x3c92a8…3c943c Dummy {f00=0x0133, f01=0x018e, f02=» & %U ( ( 999999 8 " SU N ( ^ j 99 z " U ( $ U & EJ AVST[MD & & (
0x3c943c…3c95d0 Dummy {f00=0x0133, f01=0x0190, f02=» & ( " $ I 2 & EJ GODK[ND B & Z ( h # t & & & & JOBNAME: & k & & BATCHNAME: & l
0x3c95d0…3c9764 Dummy {f00=0x0133, f01=0x018e, f02=» & & & ( & S[NDNING 6 & KLARI L $ K ` & p & ~ ( & & & & S[NDNING & AVBRYTS $ A
0x3c9764…3c98f8 Dummy {f00=0x0133, f01=0x0190, f02=» ( & $ & 2 & @ & FRYSNING KLAR N $ R j & z & ( & & & & FLOPPY DISC SKRIVNING $ L
0x3c98f8…3c9a8c Dummy {f00=0x0133, f01=0x018e, f02=»$ K & & ( * ( 6 & F & T & b & FLOPPY DISC SKRIVNING p & AVBRYTS $ A & & ( & & DA
0x3c9a8c…3c9c20 Dummy {f00=0x0133, f01=0x0190, f02=» & ( 6 & . DEVICE < $ I R & : b & p & #I ~ & FILE $ I & - NAME $ & : &
0x3c9c20…3c9db4 (6, 122) Dummy {f00=0x0133, f01=0x0190, f02=»DATA SET IDENTIFIER: $ "I & , & : & H $ # OLD VOLUME SEQUENCE NO:: V $ #I ~ & & & & : & U ( $ & U $
0x3c9db4…3c9f48 Dummy {f00=0x0133, f01=0x018e, f02=» ( ( ) 999: $ ) 4 & D & R ( ` * l & | ( + " , 999999999999999999999O " , ( - " . 99999999
0x3c9f48…3ca0dc Dummy {f00=0x0133, f01=0x401e, f02=» z @ ) 999: $ ) 4 & D & R ( ` * l & | ( + " , 999999999999999999999O " , ( - " . 99999999
0x3ca0dc…3ca270 Dummy {f00=0x0133, f01=0x2008, f02=» L = ADPE01 DATE = 80 -0 4- 1216PACK NBR = 0000 , ` 8a ` > ?
0x3ca270…3ca404 Dummy {f00=0x0133, f01=0x0190, f02=»_ &{ 0 0}4 ! 4 "j ! ! !j o Hi 07 5 ! " ! (07 : W 4 & ( #j ! ! !j 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4
0x3ca404…3ca598 Dummy {f00=0x0133, f01=0x0190, f02=» 07 1 !h )Q ! ! #*r= #( ! "* }"r=` )07 4 ! " !07 3 ! " !07 :r r!H (W% ! m # T+ w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "20 !!" " !)I 0 # W 0 # & ' %
0x3ca598…3ca72c Dummy {f00=0x0133, f01=0x0190, f02=» !W j " ") !< 07 1 '0D #4 j !Q !4 j !*! !j ! ! !4 !h )Q !j 4 Hj #* wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X
0x3ca72c…3ca8c0 Dummy {f00=0x0133, f01=0x0190, f02=» *CFNYGETUSERBALANCE P 'g<;:9876543210/.-,+*)('&%$#"!=p! ! ! @ U 23 GET $ $ : h @ m 24 COPY $ $ TO BE COPIED: q @ NEW $ NAME: v @ m U 20 $ - - * h d7 21 ? - $ - 22 @ - $ - 23 > $
0x3ca8c0…3caa54 (6, 123) Dummy {f00=0x0133, f01=0x0190, f02=» & $ R ( V D G $ k 4 m D J F " D @ R( R $j ! $! !j $ $4 0R F !h )Q ! ! #* T .
0x3caa54…3cabe8 Dummy {f00=0x0133, 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
0x3cabe8…3cad7c Dummy {f00=0x0133, 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 !) ! !
0x3cad7c…3caf10 Dummy {f00=0x0133, 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! " ( " " &
0x3caf10…3cb0a4 Dummy {f00=0x0133, f01=0x0190, f02=» " " " # " # " # * " # 8 " # F " # T " # b " # p " # ~ " # " # " # " # " # " # " # " # " #
0x3cb0a4…3cb238 Dummy {f00=0x0133, f01=0x0190, f02=» $ & #! $ ( $ " $ . & $! $ > ( $ L $ X & %! $ h ( $ v $ & &! $ ( $ $ & '! $ ( $ $ & (! $ ( $
0x3cb238…3cb3cc Dummy {f00=0x0133, f01=0x018e, f02=»& ,! $ ( % % & -! % ( ( % 6 % B & .! % R ( % ` % l & /! % | ( % % & 0! % ( % % & 1! % ( % % & 2! %
0x3cb3cc…3cb560 Dummy {f00=0x0133, f01=0x0190, f02=» & & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x3cb560…3cb6f4 (6, 124) Dummy {f00=0x0134, f01=0x400e, f02=» & @ ' & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x3cb6f4…3cb888 Dummy {f00=0x0134, f01=0x4014, f02=» PNOD @ ! ! ! ! !
0x3cb888…3cba1c Dummy {f00=0x0134, 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
0x3cba1c…3cbbb0 Dummy {f00=0x0134, f01=0x0190, f02=» ; [ < [ = [ ( > [ 8 ? [ H @ [ X A [ h B [ x C D [ E - F M G M H [ I [ J e J F
0x3cbbb0…3cbd44 Dummy {f00=0x0134, 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!
0x3cbd44…3cbed8 Dummy {f00=0x0134, 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 / / / /
0x3cbed8…3cc06c Dummy {f00=0x0134, f01=0x0190, f02=» / / / $ / 4 / D / T / d / t / / { / J F " D u aL u $
0x3cc06c…3cc200 Dummy {f00=0x0134, 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
0x3cc200…3cc394 (6, 125) Dummy {f00=0x0134, f01=0x4134, f02=» ` b` ` !Hg '`4 ^ * " , " : " H ( V b 9! r " ( 99 " ( 999 "
0x3cc394…3cc528 Dummy {f00=0x0134, 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
0x3cc528…3cc6bc Dummy {f00=0x0134, 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
0x3cc6bc…3cc850 Dummy {f00=0x0134, 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
0x3cc850…3cc9e4 Dummy {f00=0x0134, 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
0x3cc9e4…3ccb78 Dummy {f00=0x0134, 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
0x3ccb78…3ccd0c Dummy {f00=0x0134, 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
0x3ccd0c…3ccea0 Dummy {f00=0x0134, 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
0x3ccea0…3cd034 (6, 126) Dummy {f00=0x0134, 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
0x3cd034…3cd1c8 Dummy {f00=0x0134, 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>
0x3cd1c8…3cd35c Dummy {f00=0x0134, 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 "
0x3cd35c…3cd4f0 Dummy {f00=0x0134, f01=0x40f0, f02=» " % & : & ) : & ZZVZZ9 : " " & & : 8 & 0 : H & ~ : V & ~ : d ( : r ' : ~ & 1 : ( : , ( & !L 1X F P # RKW ! 4 : : @ : " Z9 9 "
0x3cd4f0…3cd684 Dummy {f00=0x0134, 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 (
0x3cd684…3cd818 Dummy {f00=0x0134, 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
0x3cd818…3cd9ac Dummy {f00=0x0134, 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 *
0x3cd9ac…3cdb40 Dummy {f00=0x0134, 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# +
0x3cdb40…3cdcd4 (6, 127) Dummy {f00=0x0134, 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 ,
0x3cdcd4…3cde68 Dummy {f00=0x0134, f01=0x0190, f02=» , - - - . E - > - N ! - ^ " - n # - ~ $ - % - ' E - J F " D @h@k hQ 2 !0X2 RRRRRRRRRRRRRRRRRR?R !j b! - b! !j !! -
0x3cde68…3cdffc Dummy {f00=0x0134, 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 .
0x3cdffc…3ce190 Dummy {f00=0x0134, 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 / /
0x3ce190…3ce324 Dummy {f00=0x0134, f01=0x4014, f02=» PNOD @ ! ! ! ! ! !(!0!8
0x3ce324…3ce4b8 Dummy {f00=0x0134, 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
0x3ce4b8…3ce64c Dummy {f00=0x0134, 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
0x3ce64c…3ce7e0 Dummy {f00=0x0134, 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
0x3ce7e0…3ce974 (6, 128) Dummy {f00=0x0135, 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 ! ! ! !
0x3ce974…3ceb08 Dummy {f00=0x0135, f01=0x018e, f02=» , * * $ * 4 * D * T 7 d ; t i G ` Q " &
0x3ceb08…3cec9c Dummy {f00=0x0135, 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(
0x3cec9c…3cee30 Dummy {f00=0x0135, f01=0x408e, f02=» " " $ . ! R# T ! R0X "" U | : J W RK !+ !4 T Z x@
0x3cee30…3cefc4 Dummy {f00=0x0135, 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 !
0x3cefc4…3cf158 Dummy {f00=0x0135, 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
0x3cf158…3cf2ec Dummy {f00=0x0135, 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 $ [ $ $ ] $
0x3cf2ec…3cf480 Dummy {f00=0x0135, f01=0x0190, f02=» g $ h $ i $ $ j $ 4 k $ D l $ T m $ d n $ t o $ p q r s t u $ $
0x3cf480…3cf614 (6, 129) Dummy {f00=0x0135, f01=0x018e, f02=» A A $ $ 4 $ D $ T $ d $ t $ $ $ $
0x3cf614…3cf7a8 Dummy {f00=0x0135, f01=0x0190, f02=» $ $ $ $ $ 4 D A T $ d t A 0 A A $ $ $
0x3cf7a8…3cf93c Dummy {f00=0x0135, f01=0x0190, f02=» $ 4 D J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRW? ;2 RRRRRRRRRRRRRRRRRRRRRRRRRR T $
0x3cf93c…3cfad0 Dummy {f00=0x0135, 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 @
0x3cfad0…3cfc64 Dummy {f00=0x0135, 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
0x3cfc64…3cfdf8 Dummy {f00=0x0135, 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
0x3cfdf8…3cff8c Dummy {f00=0x0135, f01=0x0190, f02=» CORRECTION $ 1 & * & 8 & F $ %1 T & d & r FIELD $ 1 & : FU & XXXE " $ & START:
0x3cff8c…3d0120 Dummy {f00=0x0135, f01=0x018e, f02=» & & ZZ " & & . 0 & OCCUPIED > RECORD T $ C j LENGTH z $ C & : & E TTTT " ( & & &
0x3d0120…3d02b4 (6, 130) Dummy {f00=0x0135, f01=0x0190, f02=» & . & MINIMUM LENGTH ( $ I > & > N & : & @i j XX | " ' & & & MUST ENTER & (Y/T & & N & N
0x3d02b4…3d0448 Dummy {f00=0x0135, f01=0x0190, f02=» & N & N & ): & @s@ 0 & #@ B & R & ` & DUPLICATE n & & : & jA & & . & VERIFY & 9 & (Y/I &
0x3d0448…3d05dc Dummy {f00=0x0135, f01=0x0190, f02=»ITIAL CLEAR & ( & ( " & Y 0 & Y > & /N): L & u@ ^ & %@ p & . & SPECIAL HANDLING: & @k ZZVZZZ " & &
0x3d05dc…3d0770 Dummy {f00=0x0135, f01=0x0190, f02=» (#G:...) $ & 2 $ ACCUMULATION 2 $ N (#A:...) ^ $ v & & o@ & !@ & & p@ & "@ & & &
0x3d0770…3d0904 Dummy {f00=0x0135, f01=0x0190, f02=»DEFINITION $ 2 & j 2 " & # 2 & # @ CORRECTION N $ 2 h & x & $ %2 & & & STARTN $ 2 & & :
0x3d0904…3d0a98 Dummy {f00=0x0135, f01=0x018e, f02=» & @ ZZ " & & 0 & > BATCHN L $ & b & -ACCUMULATOR:A r & m XX " ( & . & SPECIAL HANDLING: & @k
0x3d0a98…3d0c2c Dummy {f00=0x0135, f01=0x018e, f02=» & # GENERATION $ # 0 $ (#G:...) @ $ $ X & h & o@ v & !@ & & p@ & "@ & & & U ( %
0x3d0c2c…3d0dc0 Dummy {f00=0x0135, f01=0x018e, f02=» & SIZE: & f ` ( AA . " ( ! @ & P ) LINE ^ $ )! r * NUMBER $ *! & : & + + Z9 " + " & . , NUMBER
0x3d0dc0…3d0f54 (6, 131) Dummy {f00=0x0135, f01=0x0190, f02=» & & 2 & $ & 3 2 & ( @ & 4 N & 2 & 5 j & < x & 6 & F & 7 & & & . 1234567890 $ .#
0x3d0f54…3d10e8 Dummy {f00=0x0135, f01=0x413e, f02=»7890 $ 2# 3 1234567890 $ 3# 6 4 1234567890 F $ 4# ` 5 123456789 p $ 5# & & & & & & n @ & (
0x3d10e8…3d127c Dummy {f00=0x0135, f01=0x4014, f02=» PNOD @ ! ! ! ! ! !(!0!8!@!H!P!`
0x3d127c…3d1410 Dummy {f00=0x0135, 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 +
0x3d1410…3d15a4 Dummy {f00=0x0135, f01=0x018e, f02=» < & & 30 JOB , $ 0 @ & - P DEFINITION ^ $ 0 x & PROGRAM: $ 0 & 3 & XX " h & d
0x3d15a4…3d1738 Dummy {f00=0x0135, f01=0x4118, f02=» DEFINITION $ 1 & . & 32 < GET L $ 2 ` & p JOB ~ $ 2 & - DEFINITION $ 2 ( @ R_? ! 4 D
0x3d1738…3d18cc Dummy {f00=0x0135, 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
0x3d18cc…3d1a60 Dummy {f00=0x0135, f01=0x018e, f02=» & : R f
0x3d1a60…3d1bf4 (6, 132) Dummy {f00=0x0136, 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
0x3d1bf4…3d1d88 Dummy {f00=0x0136, 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
0x3d1d88…3d1f1c Dummy {f00=0x0136, 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 !" )*
0x3d1f1c…3d20b0 Dummy {f00=0x0136, 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
0x3d20b0…3d2244 Dummy {f00=0x0136, f01=0x0190, f02=» & & 99 " h * & d : CREATE J $ b & r GET $ JOB-DEFINITION $ & JOBNAME: $
0x3d2244…3d23d8 Dummy {f00=0x0136, f01=0x0190, f02=» & BATCHHEAD: $ 6 & f F & 4 X & h BALANCE: v $ & &g & 5 & FORMAT $ &
0x3d23d8…3d256c Dummy {f00=0x0136, f01=0x0190, f02=» & + & FORMAT $ 4 & D 2: R $ d & fA r & "A & ! SYMBOLIC: $ !A & &A & , & " FORM
0x3d256c…3d2700 Dummy {f00=0x0136, f01=0x0190, f02=»IC: $ $A & &A & - . & > % FORMAT L $ % b & r & 4: $ & & fA & $A & ' SYMBOLIC: $ 'A & &A
0x3d2700…3d2894 (6, 133) Dummy {f00=0x0136, f01=0x0190, f02=» & %A & * SYMBOLIC: " $ *A < & &A L & / ^ & n + FORMAT | $ + & , 6: $ , & fA & &A & -
0x3d2894…3d2a28 Dummy {f00=0x0136, f01=0x0190, f02=» / 7: $ / & fA " & 'A 4 & D 0 SYMBOLIC: R $ 0A l & &A | & 1 & 1 FORMAT $ 1 & 2 8: $ 2 &
0x3d2a28…3d2bbc Dummy {f00=0x0136, f01=0x4154, f02=» 4 FORMAT $ 4 & " 5 9: 0 $ 5 B & fA R & )A d & t 6 SYMBOLIC: $ 6A & &A & 3 & & & U ( 2 -
0x3d2bbc…3d2d50 Dummy {f00=0x0136, f01=0x4014, f02=» PNOD ) @ ) ! ! ! ! ! !(!0!8!@!H!P!`)P+p
0x3d2d50…3d2ee4 Dummy {f00=0x0136, 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 & "
0x3d2ee4…3d3078 Dummy {f00=0x0136, f01=0x0190, f02=» x 4 H j
0x3d3078…3d320c Dummy {f00=0x0136, 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 "
0x3d320c…3d33a0 Dummy {f00=0x0136, 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
0x3d33a0…3d3534 (6, 134) Dummy {f00=0x0136, 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
0x3d3534…3d36c8 Dummy {f00=0x0136, 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 [
0x3d36c8…3d385c Dummy {f00=0x0136, 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
0x3d385c…3d39f0 Dummy {f00=0x0136, 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*
0x3d39f0…3d3b84 Dummy {f00=0x0136, 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
0x3d3b84…3d3d18 Dummy {f00=0x0136, 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
0x3d3d18…3d3eac Dummy {f00=0x0136, 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 ?@
0x3d3eac…3d4040 Dummy {f00=0x0136, 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
0x3d4040…3d41d4 (6, 135) Dummy {f00=0x0136, 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
0x3d41d4…3d4368 Dummy {f00=0x0136, 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<
0x3d4368…3d44fc Dummy {f00=0x0136, 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
0x3d44fc…3d4690 Dummy {f00=0x0136, 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<
0x3d4690…3d4824 Dummy {f00=0x0136, 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
0x3d4824…3d49b8 Dummy {f00=0x0136, 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
0x3d49b8…3d4b4c Dummy {f00=0x0136, 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
0x3d4b4c…3d4ce0 Dummy {f00=0x0136, 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 & '&
0x3d4ce0…3d4e74 (6, 136) Dummy {f00=0x0137, f01=0x0190, f02=» 6 GP 0 DU FD DLU * B . D Z p - r (
0x3d4e74…3d5008 Dummy {f00=0x0137, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'ZGRNX()MEVTFCAB/,LRAPTXZY+S,.><0-VEX * >0 0 0 M U t ~ 0
0x3d5008…3d519c Dummy {f00=0x0137, f01=0x0190, f02=» * B 0 0 0 " ( .
0x3d519c…3d5330 Dummy {f00=0x0137, f01=0x0190, f02=» $ B @
0x3d5330…3d54c4 Dummy {f00=0x0137, f01=0x0190, f02=» . D2 x * ? * `@ @ " 0 0 0 9 z / 1 9 0 0}0 o0 oA T 0 K
0x3d54c4…3d5658 Dummy {f00=0x0137, f01=0x0190, f02=»_p 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `h h h 2` W 4 !4 "4 $4 & #4 H "4
0x3d5658…3d57ec Dummy {f00=0x0137, f01=0x0190, f02=» 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 !& bc 4 c b"R b! b 0 `" !($ 5W% a a0$a, 0 `a
0x3d57ec…3d5980 Dummy {f00=0x0137, f01=0x0190, f02=» z2 p d % ( % 1Z3 4 %t! % $ B &H&L&T& Z F " 3 i i d > @ 3 383^ % a | D b e ) 1 @ } I B "
0x3d5980…3d5b14 (6, 137) Dummy {f00=0x0137, f01=0x0190, f02=»TSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x3d5b14…3d5ca8 Dummy {f00=0x0137, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d % , ' e
0x3d5ca8…3d5e3c Dummy {f00=0x0137, f01=0x0190, f02=» h dG . 20 " - + 30 - + 40 50 # 60 $ - " & + 0 5 ; A G N U d l t ~ ! ' . 5 <
0x3d5e3c…3d5fd0 Dummy {f00=0x0137, f01=0x0190, f02=» V <* <* & <* &9B %W _ 5 <* F C W Z ( = Wn Z _ <* & <* & <* ( : P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) <* ' 9 <* & X X , X* T Z0 I R < _ <h
0x3d5fd0…3d6164 Dummy {f00=0x0137, f01=0x0190, f02=»_| V V Q WR _< _B 5 <* C <* ( B T B $ ' Y <* ' 9 _ <* <* : <* <* <* <* <* P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f <* <* & 9_
0x3d6164…3d62f8 Dummy {f00=0x0137, f01=0x0190, f02=»_. W P 8 _> <* <* <* <* P 8# ' Y = # z _ _ _ _ _ <* <* ' <* _ <* & <* ]8 Z YB_J W 5 <* & C <* <* & C <* & C C ( B X _ W & Y < * C _& 5 <* <*
0x3d62f8…3d648c Dummy {f00=0x0137, f01=0x0190, f02=» ( E 0 E , Y E . 9 <* 1 X ' <* X P &V Y , X Y / X Y ( <* 1 & Y _P W _ <* P2 T !00R$ !99Q $ Y T U U _6 T P Y P <* V E 9 <* <* P
0x3d648c…3d6620 Dummy {f00=0x0137, f01=0x0190, f02=» ; & + P _ P 9 <*#03 PR <*;d # + 9 <* #0 0T & ! T P & ! X T C 9 $$ $n ( Y ( x P Y * ! x y Wv X " X X . 8 %, 1 X 0P X T 5 ! Y * ! y X V& X ( ( x
0x3d6620…3d67b4 (6, 138) Dummy {f00=0x0137, f01=0x0190, f02=» X X * b ) Y * Y , X , ( x X *YrP y X " x Y X " T Y _ # _ B U C Q C D !<#4#B!l X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * ( P P 1 _ 1 ! X * X X * $" X D % " X
0x3d67b4…3d6948 Dummy {f00=0x0137, f01=0x0190, f02=» X X * , )$ P _ : $$ ' Y ; $n y x C y X C C X ( x Tf B #f9 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
0x3d6948…3d6adc Dummy {f00=0x0137, f01=0x0190, f02=»" x X@ X ( X # ( C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ( $ " x X X # ( _ B # C ( : + ( X ( ( ( 2X <* ( 2d 1 : B $ C _J + . 1 X 9 V ! P @ Y <*#0
0x3d6adc…3d6c70 Dummy {f00=0x0137, f01=0x0190, f02=» P Y " 2X <* 2d <* !0 PR A 1 X "T X 1 ( 1 1 <* !0 PR X 1 %, 1 2X ' <* ! Y 0T V 2d A : 1 2' P <* " P # P PR R P P X ' ' 9 X _ X ' _ X
0x3d6c70…3d6e04 Dummy {f00=0x0137, f01=0x0190, f02=» W W W W W W W 1 Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 ) W U X Q * W Y 0 ) * 5 5( 1 9H Y * (`W W (P 5( X 0T P X 2Z X +" X *9h P: R Y >_ P R P R P Y +Wl ( Y + ' ) WZ
0x3d6e04…3d6f98 Dummy {f00=0x0137, f01=0x0190, f02=» L ! 1 9 X 0 Y 8 ' P 2 Y 0 X 0 X 2] X 8 Y 0 ' : X 0 :H* 1 : X 2T Y 2 : C 1 B ] 5L : (P X +! P X +! U 9K Y ( Y + ) * 1 9H Y * 2 Y ( Y > Y + <* ( 4 0 ; ( 6 2 X 0 P : ! P # T : PR C
0x3d6f98…3d712c Dummy {f00=0x0137, f01=0x0190, f02=» + Q 2 P. P8 ; I ( 2d B X # V : <* I<_0 >p_>L L <*L L L K K K I H I H +8, , L +*L IR W W X 0Q * * Y ( Y *P 5( Gj )v X <' X X G 1 X *# X ( " Q " P X 0PR V _` " PL T " Ph /
0x3d712c…3d72c0 Dummy {f00=0x0137, f01=0x0190, f02=» X( C : X *! P P T P P 5( 1t C W @ X (T W X y 6 Y ( : X (;n 1 L I<I I<I$+ K K K I H I H +8, , I +*L IR 1 Y . Y ,W 1 Y . X ( X ." PV X 0RzT$ Y *P U :H 1 + K T IxW In X . X 2QP Y *T2
0x3d72c0…3d7454 (6, 139) Dummy {f00=0x0137, f01=0x0190, f02=» : 1 I$ K P & Y *T ,8 : X > T X & V D ! T W Id 1, 1 X >P( R Q" X & V D ! P $ ! P %_ Id : 1 V Y " X .9H $ K P & X ( " Q Y +Q R " P W " U . Y , " Q " P X . X 0R P" X *:h P
0x3d7454…3d75e8 Dummy {f00=0x0137, f01=0x0190, f02=» /d / T$ @ Y (W Y , / W / Y ( H : 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 /d_r X ( P Y (_ P* /< P| Y 8 ,8 X 8 X $ 1 Wh_ " P X ( T X & V H "@TF
0x3d75e8…3d777c Dummy {f00=0x0137, f01=0x0190, f02=» 8 1, <* 8 V Y 8 : " P X & V ( P /< : : / "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : 1 X : X ( T X & V H " V Y : X $ 1 X : 2 : X Y " X Y $ X Y & X @W X < Y = "
0x3d777c…3d7910 Dummy {f00=0x0137, f01=0x0190, f02=» ! P @ W X 1 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 ; W V Y 1, V Y : <* I< : 2' " P T >pW ; I : 1" : 1 5( 1t C 1 X 1 :
0x3d7910…3d7aa4 Dummy {f00=0x0137, f01=0x0190, f02=» C C 5L : C 5L :( R : V E V D ' $ P W 2 P 9 X =' V W V Y =P 2 : ( 9 5 "R V I 9 5 ( T _& @8FX, @8H _6 <*#0 P P ( 9 <*#0
0x3d7aa4…3d7c38 Dummy {f00=0x0137, f01=0x0190, f02=»5 6> <* &P B V C / <H "!@ P : 5 6N C C W 6Z C C J3 ' W 781"&$ 39#$;< '()*+,-! 6Z 6 6> <* P _D 5 B <* 'W 5 ( Wb <* 6N 5 ( 1W" C C C " P (
0x3d7c38…3d7dcc Dummy {f00=0x0137, f01=0x0190, f02=»P B 5 P C : 5 5( G 5 C 4 C B B P C 5L : "!@T P V I C B : ( ' P 5 I : 5 6> % Y ; C <* & P^ P^ C <* "!@ P : B T T T V : 2 '
0x3d7dcc…3d7f60 Dummy {f00=0x0137, f01=0x0190, f02=» : 5 6N "! P 8x : ; P C W $0 P PR C 6 : C "!@P ") # B C B % C : ; #0 T & C C : 6 C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W PR B
0x3d7f60…3d80f4 (6, 140) Opaque[0x194]
0x3d80f4…3d8288 # DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2700, f03=0x0000}
0x3d80f4…3d8288 IdxSect {
0x3d80f4…3d8288 f00 = 0x0138 // 0x3d80f4 @0x0
0x3d80f4…3d8288 f01 = 0x000e // 0x3d80f6 @0x2
0x3d80f4…3d8288 gno = [ // 0x3d80f8 @0x4
0x3d80f4…3d8288 [0x00]: C0x0138.0x0.0
0x3d80f4…3d8288 [0x01]: C0x0138.0x1.0
0x3d80f4…3d8288 [0x02]: C0x0138.0x2.0
0x3d80f4…3d8288 [0x03]: C0x0138.0x3.0
0x3d80f4…3d8288 [0x04]: C0x0139.0x0.0
0x3d80f4…3d8288 [0x05]: C0x0139.0x1.0
0x3d80f4…3d8288 [0x06]: C0x0139.0x2.0
0x3d80f4…3d8288 ]
0x3d80f4…3d8288 }
0x3d8288…3d841c Dummy {f00=0x0138, f01=0x0190, f02=» $ P IDENT DEDDIV REL 10.0 80-04-11 P 80-03-24 , L M************************************************************************ @ * * L L* ********************************************************* 4 0* * ITE
0x3d841c…3d85b0 Dummy {f00=0x0138, 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*
0x3d85b0…3d8744 Dummy {f00=0x0138, 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)
0x3d8744…3d88d8 Dummy {f00=0x0138, 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*
0x3d88d8…3d8a6c Dummy {f00=0x0138, 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
0x3d8a6c…3d8c00 Dummy {f00=0x0138, 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
0x3d8c00…3d8d94 (6, 141) Dummy {f00=0x0138, 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
0x3d8d94…3d8f28 Dummy {f00=0x0138, 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
0x3d8f28…3d90bc Dummy {f00=0x0138, 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
0x3d90bc…3d9250 Dummy {f00=0x0138, 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
0x3d9250…3d93e4 Dummy {f00=0x0138, 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
0x3d93e4…3d9578 Dummy {f00=0x0138, 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
0x3d9578…3d970c Dummy {f00=0x0138, 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
0x3d970c…3d98a0 Dummy {f00=0x0138, 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
0x3d98a0…3d9a34 (6, 142) Dummy {f00=0x0138, 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'
0x3d9a34…3d9bc8 Dummy {f00=0x0138, 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
0x3d9bc8…3d9d5c Dummy {f00=0x0138, 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
0x3d9d5c…3d9ef0 Dummy {f00=0x0138, 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
0x3d9ef0…3da084 Dummy {f00=0x0138, 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
0x3da084…3da218 Dummy {f00=0x0138, 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 -
0x3da218…3da3ac Dummy {f00=0x0138, 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
0x3da3ac…3da540 Dummy {f00=0x0138, 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
0x3da540…3da6d4 (6, 143) Dummy {f00=0x0138, 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
0x3da6d4…3da868 Dummy {f00=0x0138, 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
0x3da868…3da9fc Dummy {f00=0x0138, 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
0x3da9fc…3dab90 Dummy {f00=0x0138, 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
0x3dab90…3dad24 Dummy {f00=0x0138, 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
0x3dad24…3daeb8 Dummy {f00=0x0138, 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.
0x3daeb8…3db04c Dummy {f00=0x0138, 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
0x3db04c…3db1e0 Dummy {f00=0x0138, 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.
0x3db1e0…3db374 (6, 144) Dummy {f00=0x0139, 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
0x3db374…3db508 Dummy {f00=0x0139, 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
0x3db508…3db69c Dummy {f00=0x0139, 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
0x3db69c…3db830 Dummy {f00=0x0139, 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 ! (
0x3db830…3db9c4 Dummy {f00=0x0139, 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
0x3db9c4…3dbb58 Dummy {f00=0x0139, 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
0x3dbb58…3dbcec Dummy {f00=0x0139, 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
0x3dbcec…3dbe80 Dummy {f00=0x0139, 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
0x3dbe80…3dc014 (6, 145) Dummy {f00=0x0139, 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 & * &
0x3dc014…3dc1a8 Dummy {f00=0x0139, 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
0x3dc1a8…3dc33c Dummy {f00=0x0139, 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
0x3dc33c…3dc4d0 Dummy {f00=0x0139, 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
0x3dc4d0…3dc664 Dummy {f00=0x0139, 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
0x3dc664…3dc7f8 Dummy {f00=0x0139, 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
0x3dc7f8…3dc98c Dummy {f00=0x0139, 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
0x3dc98c…3dcb20 Dummy {f00=0x0139, 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
0x3dcb20…3dccb4 (6, 146) Dummy {f00=0x0139, 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
0x3dccb4…3dce48 Dummy {f00=0x0139, 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
0x3dce48…3dcfdc Dummy {f00=0x0139, 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
0x3dcfdc…3dd170 Dummy {f00=0x0139, 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
0x3dd170…3dd304 Dummy {f00=0x0139, 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
0x3dd304…3dd498 Dummy {f00=0x0139, 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
0x3dd498…3dd62c Dummy {f00=0x0139, 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
0x3dd62c…3dd7c0 Dummy {f00=0x0139, 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
0x3dd7c0…3dd954 (6, 147) Opaque[0x194]
0x3dd954…3ddae8 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2738, f03=0x0000}
0x3dd954…3ddae8 IdxSect {
0x3dd954…3ddae8 f00 = 0x0139 // 0x3dd954 @0x0
0x3dd954…3ddae8 f01 = 0x0010 // 0x3dd956 @0x2
0x3dd954…3ddae8 gno = [ // 0x3dd958 @0x4
0x3dd954…3ddae8 [0x00]: C0x0139.0x3.0
0x3dd954…3ddae8 [0x01]: C0x013a.0x0.0
0x3dd954…3ddae8 [0x02]: C0x013a.0x1.0
0x3dd954…3ddae8 [0x03]: C0x013a.0x2.0
0x3dd954…3ddae8 [0x04]: C0x013a.0x3.0
0x3dd954…3ddae8 [0x05]: C0x013b.0x0.0
0x3dd954…3ddae8 [0x06]: C0x013b.0x1.0
0x3dd954…3ddae8 [0x07]: C0x013b.0x2.0
0x3dd954…3ddae8 ]
0x3dd954…3ddae8 }
0x3ddae8…3ddc7c Dummy {f00=0x0139, f01=0x000c, f02=»810203 ; MPTYT 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 DECONV 810203 $$$TRAC DECONV ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1
0x3ddc7c…3dde10 Dummy {f00=0x0139, f01=0x0190, f02=» .T:AT10 810203 T:AT10A T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 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:DB200 Z:TB10F D:DB30 Z:TB10. D:T
0x3dde10…3ddfa4 Dummy {f00=0x0139, f01=0x0190, f02=»D20 T:AT10 :A 6U:BTAB 810203 U:BTABB U:CB10 :C ,S:BTAB 810203 S:BTABB :B ,Z:TB10 810203 Z:TB10T ,D:TB10 810203 D:TB10T :T ,D:DB10 810203 D:DB10D > ,
0x3ddfa4…3de138 Dummy {f00=0x0139, f01=0x0190, f02=» ,D:CB10 810203 D:CB10C 6 ,C:CB20 810203 C:CB20C $ ,D:CB20 810203 D:CB20C B ,C:CB30 810203 C:CB30C 8 ,D:CB30 810203 D:CB30C F ,C:CB40 810203 C:CB40C
0x3de138…3de2cc Dummy {f00=0x0139, f01=0x0190, f02=»0C > ,Z:TB20 810203 Z:TB20T ,D:TB20 810203 D:TB20T B ,D:TB30 810203 D:TB30T F ,Z:TB40 810203 Z:TB40T $ ,D:TB40 810203 D:TB40T B ,Z:TB50 810203
0x3de2cc…3de460 Dummy {f00=0x0139, f01=0x0190, f02=»03 D:TB60T . DEDISC # 810203 $$$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 GETTB
0x3de460…3de5f4 (6, 148) Dummy {f00=0x013a, f01=0x0190, f02=» WRICURM WRTCO <DKRUT1 ' 810203 $$$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 M
0x3de5f4…3de788 Dummy {f00=0x013a, f01=0x0190, f02=»EXFMTC OPCLM PREFMT ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLL DISU DLRCCH1 EMPTYT FREESPM GETINDX NOFFREO NXPRFMP OPENF REFSP RELEAS RETURNC RFRSP SFMTCH T:SWITD WAIT1 WRFSP DKRUT3 9 810203 $$$TRAD ALGOF DELTBLA o ENTSYS1
0x3de788…3de91c Dummy {f00=0x013a, f01=0x0190, f02=»URNY RFRSP SCHPOOD STRT01R WAITN 8 DKRUT4 @ 810203 $$$TRA DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB. NXBTH 4 NXJOB 2 OPNEBC OPNNBCG PREJOBX READJBH SCHJOBN CONDT DEPOOLL DISU DLRCCHH EMPTYTO FREESPX RDACC RDDSH RELEA
0x3de91c…3deab0 Dummy {f00=0x013a, f01=0x0190, f02=» DEAOK0H j DEAOK1. o DEAOK21 t DEAOK4 y DEAPPLD DEFINDA - DEPMSKK DEPRUT DETCHK DETPRTS & PTSDE ATTBUF CHANFCP CONDD DE10ST- DE20STK DE30STU DE40STT DE50ST DE60STS DE70STE DEAP1AA DEAP2AD DEAP3Aj DEAP5A. DEAP7AK DECLRA DERRF GETINDD GETVO
0x3deab0…3dec44 Dummy {f00=0x013a, f01=0x0190, f02=» V DENTER Y 810203 $$$TRAN DECLRA DECLRDD DECLRNC DECLRS DERR ADJUSTN ATTPRTA CANC DEAPPL6 DEFORC1 DEGEN DELAST0 DELOCK DENDUP DENVALR DERRORC DESTATD DETCHK DETPRT DEVERI EMPTYTN FORCEDA GETFWDD GETGEND GETVALD MASKD T:D
0x3dec44…3dedd8 Dummy {f00=0x013a, f01=0x0190, f02=» T:XSTA TESTB DENT01 l 810203 $$$TRAN DENT01 CLEARBN DEACC DECLRA DECLRD8 DECLRN1 DECLRS1 DEDISC0 DELAST DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR SETB T:ATTFN T:DISPD T:EDWRD T:ERASD T:GETAD T:GETFD T:THOMD
0x3dedd8…3def6c Dummy {f00=0x013a, f01=0x0190, f02=» T:KI T:SETC T:TSTC T:UPDF T:XSTA TESTB ` NDEPOOL 810203 $$$TRAP DEPOOL CMPINDP GETINDA SETB @ DE10ST 810203 $$$TRA1 DE10ST DEAP1A M DE11ST1 DE12STA DE14ST0 DE15STF DEANOK DEAOK0. DECLRA- DECOMP DEPMS
0x3def6c…3df100 Dummy {f00=0x013a, f01=0x0190, f02=»T T:SETT. E DE12ST 810203 $$$TRA1 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G DECLRA1 DEDISCA DEPOOL0 DERR0 ENT12 RESTORL T:ATTF0 t DE1201 810203 $$$TRA1 ENT12 hA20 ATTDB ATTWB CANC110 CANC12F CLEARB DECLRN. DED
0x3df100…3df294 (6, 149) Dummy {f00=0x013a, f01=0x0190, f02=» DECLRN1 DEDISCA DERR T:ATTF0 $ |DE15ST 810203 $$$TRA1 DE15ST ATTWB DECLRNT DEPOOL DERR- OPCL T:ATTFR T:DISP T:ERAS1 T:THOM DE20ST 810203 $$$TRA2 DE20ST DEAP2A S CMPIND2 CNTNUMA DE21ST0 DE23STF DE2
0x3df294…3df428 Dummy {f00=0x013a, f01=0x0190, f02=»810203 $$$TRA2 DE21ST DEFGTC ATTDB 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 810203 $$$TRAA DEATTF T:A
0x3df428…3df5bc Dummy {f00=0x013a, f01=0x0190, f02=»T DETPRT FEDIT PRFGUF RESTOR T:ATTF T:DISP T:GETFA DE24ST 810203 $$$TRA2 DE24ST ATTDB DECLRAT DEDISC DEPOOL0 DERR1 DERRORL FEDIT RESTOR1 T:ATTF T:DISP T:GETF nDE30ST 810203 $$$TRA3 DE30ST DE31S
0x3df5bc…3df750 Dummy {f00=0x013a, f01=0x0190, f02=»0 DECLRA0 DECLRN1 DEDISC1 DEPOOL0 DERR DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GETF TESTB DE40ST 810203 $$$TRA4 DE40ST DECLRA4 DECLRNA DECLRS0 DENT01F DEOPBC DEPMSK. DEPRUT- DERRS DERROR OPCL T:ATTF T:GETA T:GETF
0x3df750…3df8e4 Dummy {f00=0x013a, f01=0x0190, f02=» B FVALF NOPOOLI D CONNUM DEPOOL DERROR FMOVE LINIT T:DISPT T:ERASI WCNTRLK e DEUNPF 810203 $$$TRAU DEUNPF DEUNPLF FEDIT G ADJUSTU BINCONA FMOVE GETFWD0 NOPOOL1 RCNTRL1 T:DISP0 T:GETC T:SWIT T:TSTCP hDEPRFG 81
0x3df8e4…3dfa78 Dummy {f00=0x013a, f01=0x0190, f02=»DIRL LINIT MTEXT DEPOOLP DERRORA EMPTYT0 FACC9 FCOPY FDUPL FGEN.hFKI FMELI hFNL FTABF FTEXT FVALT NOPOOLT T:DISP T:ERAS T:SWIT UPDBOL @DECVRT * 810203 $$$TRAC BINCON CONNUM @ @ DE50ST 7 810203 $$$TRA5 DE50S
0x3dfa78…3dfc0c Dummy {f00=0x013a, f01=0x0190, f02=»TAU EMPTYTA OPCLD RESTORD SETB- T:ATTF1 T:DISPL T:DSC00 T:ERAS T:GETF TESTB DE60ST I 810203 $$$TRA6 DE60ST DECLRA6 DECLRNA DENT010 DEOPBCF DERR1 DERROR1 OPCL0 T:ATTF T:GETA T:GETF DE70ST Q 810203 $$$TRA7
0x3dfc0c…3dfda0 Dummy {f00=0x013a, f01=0x0190, f02=»ROR EMPTYT GETINDD OPCLT RESTOR T:ATTF8 T:DISP1 T:GETF1 T:THOM1 UPDBIN pDE80ST _ 810203 $$$TRA8 DE80ST DEAP8A 0 DEANOK8 DEAOK0A DECLRA0 DECONVF DERR1 T:ATTF1 U DERROR c 810203 $$$TRAR CANC DERROR DELASTR
0x3dfda0…3dff34 (6, 150) Dummy {f00=0x013a, f01=0x0190, f02=»EREFO w ATTDB ATTWB DEDISC. DEPOOL- DEREC21 MSKOUTL OFRSP RESTOR1 T:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL DEREC2 810203 $$$TRAR DEOPBC DEREC2 7 ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT DERECS DEREFOC D
0x3dff34…3e00c8 Dummy {f00=0x013a, f01=0x0190, f02=»CT DEAPPL DEATTF0 DEFGTC1 DELOCK1 DEPOOL0 DERROR 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:XST
0x3e00c8…3e025c Dummy {f00=0x013a, f01=0x0190, f02=»FWD- MSKOUT T:GETA DEGENE 810203 $$$TRAG DEGEN ADJUSTG CMPINDA DEFIND0 DENVALF EMPTYT GETFWD. GETGEN- MSKOUT T:ERAS T:GETA T:GETC T:GETF T:TSTC T:UPDF TYPET o ~ ^DECOMP 810203 $$$TRAC DECOMP CDV10
0x3e025c…3e03f0 Dummy {f00=0x013a, f01=0x0190, f02=» PDESTAT 810203 $$$TRAS DESTAT DESTAU TESTB UPDBINT J ASSRUT 810203 ATTWB I:EVA0V ATTDB CHANFC` $ T:FDSP SAVEY 6 RESTOR L GETFREA n I:RT1 SETFREA SETOCC UPDBOLN UPDBIN SETBY J C
0x3e03f0…3e0584 Dummy {f00=0x013a, f01=0x0190, f02=» GETDUPV D GETIND H CMPIND b WRITDK x READDK ~ CLOSEF OPENF POOLA @ P:MTAB GETFWD ~ T:GRFC T:GETF( ADJUST TCDVRUT 810203 CDV110 CDV111 CDV10 I:EVA0 I:RT1 t VDATCHK 810203
0x3e0584…3e0718 Dummy {f00=0x013a, f01=0x0190, f02=»$$TRAT DCTASK T:DSC1T T:READA T:XSTA0 TESTB ' . HDEAPPU 810203 $$$TRAA DEAPPU DEDISCA EMPTYTA V 6T:DD20 810203 T:DD20D DCTASK * ,C:CB60 810203 C:CB60C ( ,D:CB60 810203 D
0x3e0718…3e08ac Dummy {f00=0x013a, f01=0x0190, f02=»00 C:CB50F D:DU10 Z:DU10. D:DU20- Z:DU20 D:DU30 Z:DU30 D:DU40 Z:DU40 D:DU50. Z: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 810203 Z:DU10D ,D:DU10 810203 D:DU1
0x3e08ac…3e0a40 Dummy {f00=0x013a, f01=0x0190, f02=»U30D ,D:DU30 810203 D:DU30D :D ,Z:DU40 810203 Z:DU40D ,D:DU40 810203 D:DU40D :D ,Z:DU50 810203 Z:DU50D ,D:DU50 810203 D:DU50D :D ,Z:DU60 8102
0x3e0a40…3e0bd4 (6, 151) Dummy {f00=0x013a, f01=0x0190, f02=»0203 D:DU70D :D ,Z:DU80 810203 Z:DU80D ,D:DU80 810203 D:DU80D :D ,Z:DU90 810203 Z:DU90D ,D:DU90 810203 D:DU90D :D PFDIO 810203 FDIOY T:FDSP I:E
0x3e0bd4…3e0d68 Dummy {f00=0x013a, f01=0x0190, f02=»F. c ,Z:TB30 P 810203 Z:TB30T DENVAL l E 810203 $$$TRAN DENVAL ADJUSTN ATTDB ATTWB CLEARB- CMPIND1 DEAPPUL DECOMP0 DEDISC DEEDIT DEFIND DEPOOL EMPTYT GETFWD GETIND GETVAL MSKOUTN SETBB T:GETAC T:GETCC T:GETFD
0x3e0d68…3e0efc Dummy {f00=0x013a, f01=0x0190, f02=» I:EVA0 I:RT1 >ICLEAR 810203 ICLEAR I:EVA0 I:RT1 $ >EMPTYT 810203 EMPTYT I:EVA0 I:RT1 < T:STIN 810203 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T
0x3e0efc…3e1090 Dummy {f00=0x013a, f01=0x0190, f02=»K @T:STEV 810203 T:STEV T:GRFC I:EVA0 & T:EDFL 810203 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
0x3e1090…3e1224 Dummy {f00=0x013a, f01=0x0190, f02=»OWR T:CLIT T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 @ T:GRFC T:PM2 v xT:UPDF 810203 T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DUPL 810203 T:DUPL T:GRFC
0x3e1224…3e13b8 Dummy {f00=0x013a, f01=0x0190, f02=» I:RT1 < ZT:GETA 810203 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC 810203 T:TSTC T:GRFC T:RTES 4 T:TFWD 810203 T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFW
0x3e13b8…3e154c Dummy {f00=0x013a, f01=0x0190, f02=» T:EDWI T:GRFC T:GTIP T:DISP T:ERAS " T:GTIT T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO T vT:GETF 810203 T:GETF T:TABC T:TABN T:GTIT $ T:GRFC T:GTIP 4 I:EVA0 I:EVA2 ^ T:
0x3e154c…3e16e0 Dummy {f00=0x013a, f01=0x0190, f02=»CPY I:EVI 6T:DEDT 810203 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:EDWI I:EVT I:EDSK T:GRFC T:ENIN
0x3e16e0…3e1874 (6, 152) Dummy {f00=0x013b, f01=0x0190, f02=» 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 T:ENIN T:EINP 810203 T:PKI T:PINP T:GRFC
0x3e1874…3e1a08 Dummy {f00=0x013b, f01=0x0190, f02=» T:ENIN 810203 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 810203 T:SETC T:GRFC T:EDWI T:RCTS T:SCUR T:WRDY & ,T:CLMI
0x3e1a08…3e1b9c Dummy {f00=0x013b, f01=0x0190, f02=» T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY l XT:LSEG 810203 T:LSEG T:CSEG I:RT1 T:LOFS F T:LOPS R f lT:DC00 810203 T:FDS0 DCREAD T:DCR1 DCWRTE T:DCW1 DCE
0x3e1b9c…3e1d30 Dummy {f00=0x013b, f01=0x0190, f02=»R ABORT LT:CLO0 810203 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 810203 T:DELA DELAY 6T:GTI0 810203 T:GETI GETTID T:DC 810203 T:DCRE T:FDSP T:DCR
0x3e1d30…3e1ec4 Dummy {f00=0x013b, f01=0x0190, f02=» ^T:TEI 810203 T:TEST T:FDSP I:RT1 T:ABOR T:KIAA T:KIAC B >T:DEL 810203 T:DELA I:EVA0 I:RT1 <T:MSK0 810203 MASK I:EVA0 I:RT1 pT:SCD 810203 T:ACTV
0x3e1ec4…3e2058 Dummy {f00=0x013b, f01=0x0190, f02=» T:UERR ,T:EXIT 810203 T:EXIT ZT:GTCW 810203 T:FDSP GETCW I:EVA0 T:BINB T:GTCW I:RT1 $ >T:GTID 810203 T:GETI I:EVA0 I:RT1 T:DM 810203 T:OPEN T:FDS
0x3e2058…3e21ec Dummy {f00=0x013b, f01=0x0190, f02=» T:REAX T:SCW2 T:IO3 T:IREA T:IO2 T:XREA T:IXID I:EVA2 , T:DMW 810203 T:SWRI T:WRIX T:IO4 T:DWRI T:SCW2 T:DREW T:IWRI , T:CREW 0 T:IREW > T:IO5 jT:DMDI 810203 T
0x3e21ec…3e2380 Dummy {f00=0x013b, f01=0x0190, f02=» T:GTBY T:IO4 T:IPOS T:WRIX T:IXID 2 T:IO 810203 T:KI T:NKI T:WRIT T:LWRI T:WRIX " T:WRIO & I:EVA0 T:SREA B T:READ B T:REAX J T:DSC0 p T:DSC1 T:DSC2 T:XSTA T:WAIT T:M
0x3e2380…3e2514 (6, 153) Dummy {f00=0x013b, f01=0x0190, f02=»E T:EDWF T:EDWI T:EDIO T:KIPR 2 I:EVA7 T:FDS0 T:FDSP T:GDSP P:MTAB I:EVTO I:FML T:GTBY T:SCW2 T:DSCX I:EVA2 T:SCW0 n rT:KIA 810203 T:KIA T:NKIA T:ABUF T:KIPR T:LSE
0x3e2514…3e26a8 Dummy {f00=0x013b, f01=0x0190, f02=» I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5 . I:EVA7 2 I:EVA0 T:LOFS T:LOPS I:FML R I:EVTO r I:EVI I:EVB <I:ADS 810203 I:ADD I:SUB I:CPA X 2I:CMP 810203 I:CMP I:CPA n *I:CPA
0x3e26a8…3e283c Dummy {f00=0x013b, f01=0x0190, f02=»TFA I:SUB I:ADD I:SH1L X hI:DIV ( 810203 I:DIV I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R ,I:NTF , 810203 I:NTFA 8 I:EDT - 810203 I:EVT B I:EGTD I:EVA2 I:EVA5 I:E
0x3e283c…3e29d0 Dummy {f00=0x013b, f01=0x0190, f02=»DT I:ED1 I:EDW I:EVA6 I:EFLA 4 T:LSEG I:EXIT n P:MTAB I:FFSN P:BAS I:ETAB I:ETXT I:ECPY I:EXPY I:ECTR 0 I:ESL : I:ENL D I:EOR Z T:EDWF I:ECW d T:EDWE I:ECWC n I:EFIL x I:SCB >
0x3e29d0…3e2b64 Dummy {f00=0x013b, f01=0x0190, f02=» 810203 I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC ~T:ADIT = 810203 T:RREA T:FDSP T:RRE1 I:EVA0 T:STCW T:IO2 T:RWRI $ T:RWR1 ( T:IO1 F T:CW ? 810203 T:STCW
0x3e2b64…3e2cf8 Dummy {f00=0x013b, f01=0x0190, f02=» T:USE I:EVA0 P:MTAB T:UERR > I:RT0 D @WRITEL G 810203 WRITEL T:FDS0 I:EVA0 0 :I:NTP I 810203 I:MOV I:ADD I:SUB I:CMP I:MUL I:DIV I:EDT I:CPY I:INS I:DLT I:MCH I:XCP I:EDS I:T
0x3e2cf8…3e2e8c Dummy {f00=0x013b, f01=0x0190, f02=»T0 T:BAT T:PAT T:CAT I:EVB G X I:EDTE O 810203 I:EKIH I:EINH I:ETAB I:EVIN I:EVA0 I:EVA1 I:EBRI F I:EBR j I:EBRB n I:ESKI I:EVNO I:EGTD I:EGTB LI:EVS R 810203 I:EVA0
0x3e2e8c…3e3020 Dummy {f00=0x013b, f01=0x0190, f02=» P:MTAB I:EVA0 I:HEXW I:TRB I:NTPR I:PRT I:ERR X 810203 I:ERR0 I:ERR1 I:ERR2 I:ERR3 I:ERR4 I:ERR5 I:ERR6 I:ERR7 I:ERR8 I:ERR9 $ I:ERRA ( I:ERRB , I:ERRC 0 I:ERRD 4
0x3e3020…3e31b4 (6, 154) Dummy {f00=0x013b, f01=0x0190, f02=»R19 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 _ 810203 I:HEXB I:HEXW I:HEX " LI:CHK ` 810203 I:CHK P:BAS P:END TC:CHK I:ERR
0x3e31b4…3e3348 Dummy {f00=0x013b, f01=0x0190, f02=»T:SNO TB:ENT TC:ABT TB:ABT TC:RDC TB:RDC TC:ERR TT:MSG P:MTAB ~ TRATAB e 810203 TT:TON TT:TRP TT:LOP @ TT:TRS B TT:VON TT:VER TT:VMM @ TT:HLT TT:PRC TT:TID TT:SNO TT:
0x3e3348…3e34dc Dummy {f00=0x013b, f01=0x0190, f02=» TT:TRP TT:TRS TT:TON TT:LOP TT:HLT I:TRC TT:VER TT:VMM TT:VON SYSLOD 810203 NUMSEG PRGLG1 SYSBAS SYSLOD SCTSFA SCTIPL SCTANO SCTADA SCTBUG bREL SCTOPT TABBE SCTMSZ SCTEFA
0x3e34dc…3e3670 Dummy {f00=0x013b, f01=0x0190, f02=» SCTNOP SAVE22 MMEND SCTLAP TTB:MT SCTMMP SCTNPE SCTMMC SCTLAC MMDDIV MOVE M:REL LDALEN SAVE20 CONVRT SCTSWB SAVE25 SAVE26 SAVE27 SAVE28 SAVE12 d JT:CLO 810203 T:SETT I:EVA0 I
0x3e3670…3e3804 Dummy {f00=0x013b, f01=0x4188, f02=»KL 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 DECONV 810203 $$$TRAC DECONV ADJUSTC ATTDEVA DEPOOL0 DERRORF DETPRT EMPTYT0 FDIO1 GETFWD1
0x3e3804…3e3998 Dummy {f00=0x013b, f01=0x0190, f02=»RR2 T:RNOK T:ROK T:DUPX T:LOFS T:LOPS I:MOV h T:GETC 801218 T:GETC T:GRFC I:ER14 I:EVA0 I:ERR2 I:RT1 R dT:GETA 801218 T:GETA T:GRFC I:EVA0 I:ERR2 T:RNOK T:ROK T:RCR
0x3e3998…3e3b2c Dummy {f00=0x013b, f01=0x0190, f02=»O T:TDOW T:TUP T:TFWD T:TBWD T:THOM " T:GRFC T:TABE T:SCR2 T:TABC T:TABN x T:DISP 801218 T:PRIN T:FDSP T:EDWI T:GRFC T:GTIP T:DISP T:ERAS " T:GTIT I:ER15 I:ER14 T:TABD
0x3e3b2c…3e3cc0 Dummy {f00=0x013b, f01=0x0190, f02=»:GTIT 0 T:GRFC T:GTIP @ I:EVA0 I:EVA2 I:ER15 I:ERR2 T:REWR 801218 T:IOWR T:SCUW T:CLRD * T:REWR 0 T:CASP N T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI @T:DEDT 801218
0x3e3cc0…3e3e54 (6, 155) Opaque[0x194]
0x3e3e54…3e3fe8 # DirEnt {nam=»DELINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2778, f03=0x0000}
0x3e3e54…3e3fe8 IdxSect {
0x3e3e54…3e3fe8 f00 = 0x013b // 0x3e3e54 @0x0
0x3e3e54…3e3fe8 f01 = 0x002a // 0x3e3e56 @0x2
0x3e3e54…3e3fe8 gno = [ // 0x3e3e58 @0x4
0x3e3e54…3e3fe8 [0x00]: C0x013b.0x3.0
0x3e3e54…3e3fe8 [0x01]: C0x013c.0x0.0
0x3e3e54…3e3fe8 [0x02]: C0x013c.0x1.0
0x3e3e54…3e3fe8 [0x03]: C0x013c.0x2.0
0x3e3e54…3e3fe8 [0x04]: C0x013c.0x3.0
0x3e3e54…3e3fe8 [0x05]: C0x013d.0x0.0
0x3e3e54…3e3fe8 [0x06]: C0x013d.0x1.0
0x3e3e54…3e3fe8 [0x07]: C0x013d.0x2.0
0x3e3e54…3e3fe8 [0x08]: C0x013d.0x3.0
0x3e3e54…3e3fe8 [0x09]: C0x013e.0x0.0
0x3e3e54…3e3fe8 [0x0a]: C0x013e.0x1.0
0x3e3e54…3e3fe8 [0x0b]: C0x013e.0x2.0
0x3e3e54…3e3fe8 [0x0c]: C0x013e.0x3.0
0x3e3e54…3e3fe8 [0x0d]: C0x013f.0x0.0
0x3e3e54…3e3fe8 [0x0e]: C0x013f.0x1.0
0x3e3e54…3e3fe8 [0x0f]: C0x013f.0x2.0
0x3e3e54…3e3fe8 [0x10]: C0x013f.0x3.0
0x3e3e54…3e3fe8 [0x11]: C0x0140.0x0.0
0x3e3e54…3e3fe8 [0x12]: C0x0140.0x1.0
0x3e3e54…3e3fe8 [0x13]: C0x0140.0x2.0
0x3e3e54…3e3fe8 [0x14]: C0x0140.0x3.0
0x3e3e54…3e3fe8 ]
0x3e3e54…3e3fe8 }
0x3e3fe8…3e417c Dummy {f00=0x013b, f01=0x0190, f02=»BD L :CR l D 5 |D > |D I D T D _ D j D u D ~ D D D D ` pCB1 @
0x3e417c…3e4310 Dummy {f00=0x013b, f01=0x0190, f02=» N ( a 6 P
0x3e4310…3e44a4 Dummy {f00=0x013b, f01=0x0190, f02=» n
0x3e44a4…3e4638 Dummy {f00=0x013b, f01=0x0190, f02=»
[…0x1…]
0x3e47cc…3e4960 Dummy {f00=0x013b, f01=0x0190, f02=» n 6 $ B 8
0x3e4960…3e4af4 (6, 156) Dummy {f00=0x013c, f01=0x0190, f02=» " " ? < DC a GP 6 FD DLU FRO B . D Z p - r -
0x3e4af4…3e4c88 Dummy {f00=0x013c, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'Z
0x3e4c88…3e4e1c Dummy {f00=0x013c, f01=0x0190, f02=» M U t ~ 0 * B 0 0 0
0x3e4e1c…3e4fb0 Dummy {f00=0x013c, f01=0x0190, f02=» B @
0x3e4fb0…3e5144 Dummy {f00=0x013c, f01=0x0190, f02=» . D2 x * ( `@ @ & 0
0x3e5144…3e52d8 Dummy {f00=0x013c, f01=0x0190, f02=» ^ dBD n 2 3 d 1 ` h l lB@ 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 ( 0 P 0
0x3e52d8…3e546c Dummy {f00=0x013c, f01=0x0190, f02=»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 !! %
0x3e546c…3e5600 Dummy {f00=0x013c, f01=0x0190, f02=» !"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 * * 4 &
0x3e5600…3e5794 (6, 157) Dummy {f00=0x013c, f01=0x0190, f02=»&" &'z'~' ! 3 l @ 6 < E D j3 63 % [ a ~ $ D ~ e ) 1 @ | H B "
0x3e5794…3e5928 Dummy {f00=0x013c, f01=0x0190, f02=» TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS1 99XXXXXXXXXXXXXXXXXXXXXXX-
0x3e5928…3e5abc Dummy {f00=0x013c, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d ' . ) e e @ " f d
0x3e5abc…3e5c50 Dummy {f00=0x013c, f01=0x0190, f02=»- - 40 ! 50 % 60 & / $ ( - 2 7 = C I O V ] d l t | 0 0 ! ' . 5 < D L T ]
0x3e5c50…3e5de4 Dummy {f00=0x013c, f01=0x0190, f02=» 7 7 & 7 &9B %W _ 60 7 F C W ( = Wn _ 7 & 7 & 7 ( : H P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) 7 ' B H 7 & X X X* T Z0 I R < _ <h =_H ^L
0x3e5de4…3e5f78 Dummy {f00=0x013c, f01=0x0190, f02=» Q WR _< _B 60 7 C 7 ( B T B $ ' Y 7 ' B _ 7 7 : 7 7 7 7 7 P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f 7 7 & 9_ 60 @ # 7
0x3e5f78…3e610c Dummy {f00=0x013c, f01=0x0190, f02=» _> 7 7 7 7 P 8# ' Y = # _ _ _ _ _ 7 7 ' 7 _ 7 & 7 ]8 Z YB_J W 60 7 & C 7 7 & C 7 & C C ( B X _ W & Y < * C _& 60 7 7 P )
0x3e610c…3e62a0 Dummy {f00=0x013c, f01=0x0190, f02=» Y E . B 7 2t X ' 7 X P &V Y , X Y / X Y )0 7 2t & Y _P W _ 7 P2 T !00R$ !99Q $ Y T U U _6 T P Y P 7 V E B 7 7 P P V 6
0x3e62a0…3e6434 (6, 158) Dummy {f00=0x013c, f01=0x0190, f02=»7 & C A T #W T # C C 4 7 7$ & + P _ B 7 7 ;d # + B 7 #0 0T & ! T P & ! X T C B % & ) Y ( x P Y * #d x y Wv X " "T X X . 8 & 2t X 0P X
0x3e6434…3e65c8 Dummy {f00=0x013c, f01=0x0190, f02=» C ( B Ph9 R^9 $ X !@PP X X * b ) Y * Y , X , ) x X *YrP y X " x Y X " T Y _ %j_ B U C Q C D"r"t" " " $ $ # X X * $" ~_> @ Y X * ! _R X !@XX y X # x V y X X * ) P P 1
0x3e65c8…3e675c Dummy {f00=0x013c, f01=0x0190, f02=» X $ " P y _ x T % $ X H X X * , )$ P _ : % ' Y 7( & y x C y X C C X ( x Tf B % 9 R 9 $ X ! T %j_ y C Q " T ) ) X ! % X X ! x Y~ Y
0x3e675c…3e68f0 Dummy {f00=0x013c, f01=0x0190, f02=» y " y $ c 2^ C _$ _ % y _6 # x X@ X ) X # ) C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ) % $, x X X # ) _ B % C ) : + ) X ) ) ( 2 7 ( 2 2 : B % C
0x3e68f0…3e6a84 Dummy {f00=0x013c, f01=0x0190, f02=» 2 7 2 7 9 2t X "T X 2^ ) 2j 2t 7 X 2p & 2 2 ' 7 ! Y 0T V 2 9 : 2t 2' 7 R P P X ' ' B X _ X ' _ X '?_ 2t 7 X ' 2p X ! 2 2^ 2t X
0x3e6a84…3e6c18 Dummy {f00=0x013c, f01=0x0190, f02=»9h Q X :h Y 0 * W U X Q +fW Y 0 * + 60 5 2t 9H Y * )dW W )T 5 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 2t X *!
0x3e6c18…3e6dac Dummy {f00=0x013c, f01=0x0190, f02=» B ] 5 : )T X +! U 9K Y ( Y + * + 2t9H Y * 2 Y ( Y > Y + 7 4 0 7 6 2 : C ( C : C B _( _ X ) ) P ) B _N ( 2 X D D : K + Q 2 P. P8 7 >r
0x3e6dac…3e6f40 Dummy {f00=0x013c, f01=0x0190, f02=»+d Y ( Y *P 5 <( *Z X <' X X <` 2t X *# X ( " Qp " P X 0P: Vp_` " P4 T 0` 2 WT " P Y 0] Y (_t " X _. 5n X *# P B 1 5nW " P X X$ C : X *! P 5 2 C W @ X (T W X y 6 Y
0x3e6f40…3e70d4 (6, 159) Dummy {f00=0x013c, f01=0x0190, f02=» :H 2| + K T >*W > X . X 2QH Y *T2 > : " P$ X 0U X *# P P T " T : Y . 0` Y ( =T 2t Y *T " T ! 1 W ! ) > : 2t = D` P & Y *T , : X > T X & V D ! T W > 1 2t X >P( R Q" X &
0x3e70d4…3e7268 Dummy {f00=0x013c, f01=0x0190, f02=»U /t Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P / P< / WZ X ! X $" P<Q X (# P2 X # :! R$W / / T$ @ Y (W Y , 0`W 0~ Y ( =T : X *:h X (! # P X & V L TbW X , X 0P@ / T, X *:h XF XL
0x3e7268…3e73fc Dummy {f00=0x013c, f01=0x0190, f02=»P X ( T X & V H "@TF / P6 V Y X (P 1 0 X (P / 2 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 1 7 8 V Y 8 : " P X & V ( P / : : / "0P $ T W %T : : Y ( X $ Y X " Y X
0x3e73fc…3e7590 Dummy {f00=0x013c, f01=0x0190, f02=» X @W X < Y = " 2 ! T W D ! P =H D 1& X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X 2|W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 7 W
0x3e7590…3e7724 Dummy {f00=0x013c, f01=0x0190, f02=» 5 2 C 2j X 2| : "0P ' Q W ' Y : W 7 V = 2t Y Y Y < V E B B X _ v : C C 5 : C 5 :( R : V E V D ' $ T ( W 2 P B X =' V W V Y
0x3e7724…3e78b8 Dummy {f00=0x013c, f01=0x0190, f02=» B 7 7 V B W 5 4 3 / 4 _ 60 6 6x P 7 <H : 3 W 60 6x 7 &P B V C / <H : 60 6 C C W 6 C C J4 ' W 781"&$ 39#$;< '()*+,-! 6 6 6x 7 P _D 60 B 7 'W 60
0x3e78b8…3e7a4c Dummy {f00=0x013c, f01=0x0190, f02=»P$ "! P A W B % P C + @ B 5 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 60 5 < 5p C 5 C B B P C 5 : V I C B : ( ' P 5 I : 60 6x % Y 7( C 7 & R
0x3e7a4c…3e7be0 Dummy {f00=0x013c, f01=0x0190, f02=» ;D:B " : _ 7 C : : 60 6 "! P A : 7 P C W $0 P C @& : C "!@P ") # B C B % C : H P L T :l:d:h 7 W W P W 6 2# 9hW4 @ ^ E7 " T> ; [ # 9H:H 2
0x3e7be0…3e7d74 (6, 160) Dummy {f00=0x013d, f01=0x0190, f02=» Pd" # 9H ;b Wv " ;d# _ [ v [ 2 7 2 Z Z : R ; 7 6 : F _v :B , (Vr ; H [ [ [ 7 z ;AV$ Z H # 9 ; 7 : & Z 4 9 :
0x3e7d74…3e7f08 Dummy {f00=0x013d, f01=0x0190, f02=» ( :A ( :mT @ `" P ! P [ :;H 2 7 80;h 9R : ; V Y : 2! : 6 2 9hW& " # 9H;b ; : ;f" #?_"$0#0;b ;R P P PF P 0 - P0 _ 4 V W Q P ) P 9
0x3e7f08…3e809c Dummy {f00=0x013d, f01=0x0190, f02=»! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 +
0x3e809c…3e8230 Dummy {f00=0x013d, f01=0x0190, f02=»D = >r= = D D D D >@=T>J= >*DVDV>^> D > <t 6 =" K K K K V K : 7 <8 <( <t 7 V = =" = V Z P 2 " T W "@T '?W "? H; " K :e J J " J _Z Z = [ Z P 2
0x3e8230…3e83c4 Dummy {f00=0x013d, f01=0x0190, f02=» : n n : <8 J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K >hWJ >&W +_ >@ >< K W. _& X 5nW X & 5j J K : V : 1 : + 7 [ [ < !AAP !TTT W !**T * [ R !FFP !
0x3e83c4…3e8558 Dummy {f00=0x013d, f01=0x0190, f02=» FW@ :P # U 1 > !00T ; >j _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W > 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 7 #0 T & C
0x3e8558…3e86ec Dummy {f00=0x013d, f01=0x0190, f02=»4 _P :#0 T B 'W B B " @ : PA A PR LAv R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 A
0x3e86ec…3e8880 Dummy {f00=0x013d, f01=0x0190, f02=»H C C C C C B C C < L K KTKrL K.DLDHDRDT 2 W V 7 @ ! P 2 P W Br CL 9c DA 7 7 Q B W Fn :aW _B( 2 P V W8 _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R
0x3e8880…3e8a14 (6, 161) Dummy {f00=0x013d, f01=0x0190, f02=»' T 2 % 7_ 2 # L 2 7 2" &] Y $! 6P Q $ T 9B B _ _ 6 @ `" T 7 $ V P 2 W _ A B 9 V & B HBH 'W 'W '_6 = D` : ! P ! P ! P ! P 7 ! P 7 W
0x3e8a14…3e8ba8 Dummy {f00=0x013d, f01=0x0190, f02=» ( _ W " T & T + : * & !@P `1` P F Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _
0x3e8ba8…3e8d3c Dummy {f00=0x013d, f01=0x0190, f02=» & : * & !`P :J +_ +Q F _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 ) " TV *V &V : V S W
0x3e8d3c…3e8ed0 Dummy {f00=0x013d, f01=0x0190, f02=» [ J 9 J 9 J E Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P J E V H )_ J H _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V
0x3e8ed0…3e9064 Dummy {f00=0x013d, f01=0x0190, f02=» [ [ [ [ $ [ [ &! P J J 9 J 9 J E z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z J F Q J H P _ T { [ J J [ Q@ [ J E { R [ _ J E J H Z ! Z
0x3e9064…3e91f8 Dummy {f00=0x013d, f01=0x0190, f02=» X" ,9 -9d_ Z H D & H D % [ ( Lt < : { : L Ll PX 9 _ L [ L Z : R" P $ 1T Y W 5 _$ : L $ R W R # P W )
0x3e91f8…3e938c Dummy {f00=0x013d, f01=0x0190, f02=» : : 7 7 jP kT T : & 9! " : $ : Lt 7 $ : z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z F Q H P _ T { [ [ Q [ E { R [ _ E H Z ! Z
0x3e938c…3e9520 Dummy {f00=0x013d, 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*
0x3e9520…3e96b4 (6, 162) Dummy {f00=0x013d, 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
0x3e96b4…3e9848 Dummy {f00=0x013d, 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
0x3e9848…3e99dc Dummy {f00=0x013d, 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 ?@
0x3e99dc…3e9b70 Dummy {f00=0x013d, 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
0x3e9b70…3e9d04 Dummy {f00=0x013d, 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
0x3e9d04…3e9e98 Dummy {f00=0x013d, 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<
0x3e9e98…3ea02c Dummy {f00=0x013d, 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
0x3ea02c…3ea1c0 Dummy {f00=0x013d, 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<
0x3ea1c0…3ea354 (6, 163) Dummy {f00=0x013d, f01=0x0190, f02=» | U d R p t xApAt : 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
0x3ea354…3ea4e8 Dummy {f00=0x013d, 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
0x3ea4e8…3ea67c Dummy {f00=0x013d, 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
0x3ea67c…3ea810 Dummy {f00=0x013d, 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 & '&
0x3ea810…3ea9a4 Dummy {f00=0x013d, 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 !
0x3ea9a4…3eab38 Dummy {f00=0x013d, 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
0x3eab38…3eaccc Dummy {f00=0x013d, 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
0x3eaccc…3eae60 Dummy {f00=0x013d, 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
0x3eae60…3eaff4 (6, 164) Dummy {f00=0x013e, 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
0x3eaff4…3eb188 Dummy {f00=0x013e, f01=0x0190, f02=» !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y g , $ C 3 N + l z g O m
0x3eb188…3eb31c Dummy {f00=0x013e, f01=0x0190, f02=» G V R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * $ h h Ub & 5 +@mA{ *V#( - 1 0 ! 0# { &{ mU_"@{Ao? m
0x3eb31c…3eb4b0 Dummy {f00=0x013e, 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 ! _
0x3eb4b0…3eb644 Dummy {f00=0x013e, 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 !?
0x3eb644…3eb7d8 Dummy {f00=0x013e, f01=0x0190, f02=»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 # T 2 ' 0' T 2 )**? 2 ***0. 8+J ?+ ?
0x3eb7d8…3eb96c Dummy {f00=0x013e, f01=0x0190, f02=»0& 0 H { ,W H s +0* 0' P 0 Q ,8/?0A 0& !01 02 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 " @
0x3eb96c…3ebb00 Dummy {f00=0x013e, 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
0x3ebb00…3ebc94 (6, 165) Dummy {f00=0x013e, 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
0x3ebc94…3ebe28 Dummy {f00=0x013e, 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
0x3ebe28…3ebfbc Dummy {f00=0x013e, 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
0x3ebfbc…3ec150 Dummy {f00=0x013e, 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
0x3ec150…3ec2e4 Dummy {f00=0x013e, 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/
0x3ec2e4…3ec478 Dummy {f00=0x013e, 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
0x3ec478…3ec60c Dummy {f00=0x013e, 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 <
0x3ec60c…3ec7a0 Dummy {f00=0x013e, 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 !
0x3ec7a0…3ec934 (6, 166) Dummy {f00=0x013e, 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~ "~
0x3ec934…3ecac8 Dummy {f00=0x013e, 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| "
0x3ecac8…3ecc5c Dummy {f00=0x013e, 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 !
0x3ecc5c…3ecdf0 Dummy {f00=0x013e, 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
0x3ecdf0…3ecf84 Dummy {f00=0x013e, 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& >
0x3ecf84…3ed118 Dummy {f00=0x013e, 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
0x3ed118…3ed2ac Dummy {f00=0x013e, 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+-
0x3ed2ac…3ed440 Dummy {f00=0x013e, 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
0x3ed440…3ed5d4 (6, 167) Dummy {f00=0x013e, f01=0x0190, f02=»FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x3ed5d4…3ed768 Dummy {f00=0x013e, f01=0x0190, f02=» ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # I j " "# J|j " $# Jr? ! !6 +; ^# 7Zb !" Mj !# 'bc (c" 3? 1? < > W' ## 6 ! < " 5 " " ! T T
0x3ed768…3ed8fc Dummy {f00=0x013e, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Nb "" " < $ U@f@e0 " An 2 _ ! 9 ! > : W ; " ! j " j $" Af07~ 0 "P 07~ j~#!
0x3ed8fc…3eda90 Dummy {f00=0x013e, f01=0x0190, f02=»e ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0: (+0; +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Mb !# ~ " ~ T $ 0: (+? - !?
0x3eda90…3edc24 Dummy {f00=0x013e, f01=0x0190, f02=»~ ~ RR j !! !07~ j " K0 "P L07~ " !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 ! " _ 0# 6 A _ $Gv ?
0x3edc24…3eddb8 Dummy {f00=0x013e, f01=0x0190, f02=» ?$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& :%0$ P8:% _ 0 && du d ! 0 ## #_* 5 ! !( % A _
0x3eddb8…3edf4c Dummy {f00=0x013e, f01=0x0190, f02=»I IjO2 *+,)),,,,,,,,,-. !0* / 2 /01.W$0/ Am6 ! bC I .4 ?2 "(0/ _*Am #03W 04W 0#W X Z [ +( H I C_ 1% _ T 1% !05 ?3 2 ))$?3 W #0. T %y0 %%_ W}?4( 0(W !0* ( 1% ?306 . ?5Hi He 0 ( #0 T ,I
0x3edf4c…3ee0e0 Dummy {f00=0x013e, f01=0x0190, f02=»$$$$$$89$$:;<$=>?2 $$$$77$$$$$$$89$$@$$$A0 %% ( @h u!He8Kh 0 % $?B0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ?C@ ( !"_cA $?B0 && u! !eJh ?C0 &&A % Ad@ @ #?BA @ u!Jh _ @ !^A _DA ( .He @h u!Kh ( ! u! du d !
0x3ee0e0…3ee274 (6, 168) Dummy {f00=0x013f, f01=0x0190, f02=» R * E J q 0 > % i { T b " V c V f
0x3ee274…3ee408 Dummy {f00=0x013f, f01=0x0190, f02=»ERFILEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENTS11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS XZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XX T 1 0 * h d [ ^ ] X [ Q f ! R g
0x3ee408…3ee59c Dummy {f00=0x013f, f01=0x0190, f02=»! X% @ @ " X% A @ # X% B @ $ X% C @ % X% D @ & X% E @ ' X% F @ ( X% G @ ) X% H @ * U ! # % ' ) + - / 1 3 6 : > C
0x3ee59c…3ee730 Dummy {f00=0x013f, f01=0x0190, f02=» LEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENTS11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS XZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XX T 1 0 * h d [ ^ ] X [ Q f ! R g
0x3ee730…3ee8c4 Dummy {f00=0x013f, 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 $ $< ?
0x3ee8c4…3eea58 Dummy {f00=0x013f, 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 ? @ ?
0x3eea58…3eebec Dummy {f00=0x013f, 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
0x3eebec…3eed80 Dummy {f00=0x013f, 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
0x3eed80…3eef14 (6, 169) Dummy {f00=0x013f, 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 &{
0x3eef14…3ef0a8 Dummy {f00=0x013f, 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 &{ _
0x3ef0a8…3ef23c Dummy {f00=0x013f, f01=0x0190, f02=» 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4 & # c # ( ' #j ! #! !j # ` #4 & $ ( ( $j ! $! !j $ $4 0
0x3ef23c…3ef3d0 Dummy {f00=0x013f, 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 ! !
0x3ef3d0…3ef564 Dummy {f00=0x013f, f01=0x0190, f02=» wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x3ef564…3ef6f8 Dummy {f00=0x013f, 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 ;
0x3ef6f8…3ef88c Dummy {f00=0x013f, f01=0x0190, f02=» ! # * M C Q @ : : 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x3ef88c…3efa20 Dummy {f00=0x013f, 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!
0x3efa20…3efbb4 (6, 170) Dummy {f00=0x013f, 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
0x3efbb4…3efd48 Dummy {f00=0x013f, 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 )
0x3efd48…3efedc Dummy {f00=0x013f, 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 !!
0x3efedc…3f0070 Dummy {f00=0x013f, 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
0x3f0070…3f0204 Dummy {f00=0x013f, 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 "
0x3f0204…3f0398 Dummy {f00=0x013f, f01=0x0190, f02=» _ %b!b5 j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !07 h )Q ! 0E a #? !4 = 0 !01 02 T$0* 0' P 0* ( " ;_* 9_/ _44 0 i } - p ; [ s = e 9 ; 6 ` e 0
0x3f0398…3f052c Dummy {f00=0x013f, 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
0x3f052c…3f06c0 Dummy {f00=0x013f, 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
0x3f06c0…3f0854 (6, 171) Dummy {f00=0x013f, 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(
0x3f0854…3f09e8 Dummy {f00=0x013f, 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 !
0x3f09e8…3f0b7c Dummy {f00=0x013f, 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 * ,
0x3f0b7c…3f0d10 Dummy {f00=0x013f, 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
0x3f0d10…3f0ea4 Dummy {f00=0x013f, 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
0x3f0ea4…3f1038 Dummy {f00=0x013f, 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
0x3f1038…3f11cc Dummy {f00=0x013f, 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
0x3f11cc…3f1360 Dummy {f00=0x013f, 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
0x3f1360…3f14f4 (6, 172) Dummy {f00=0x0140, 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
0x3f14f4…3f1688 Dummy {f00=0x0140, 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
0x3f1688…3f181c Dummy {f00=0x0140, 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
0x3f181c…3f19b0 Dummy {f00=0x0140, 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
0x3f19b0…3f1b44 Dummy {f00=0x0140, 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
0x3f1b44…3f1cd8 Dummy {f00=0x0140, f01=0x0190, f02=» ; J 2 $? 6 _ 8 ? 1% )T !05 T ? ? ? 2 ? O( ( SU? 2 P ? U0B T 1% &? H ? I 1% %_ !01 02 0* LQ KR A W CQ @Y A _: !01 02 R 0* MY KR G AZ$ CQ A T< $ _3 EQ $ _> FQ A T
0x3f1cd8…3f1e6c Dummy {f00=0x0140, 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
0x3f1e6c…3f2000 Dummy {f00=0x0140, 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 1 1
0x3f2000…3f2194 (6, 173) Dummy {f00=0x0140, f01=0x0190, f02=»G 1 1 7 2 W _# W _)2 W _5 < 0G _M0 @ ' <0G @ ' <0G 0 & ? U0B T 1% 0_D U0B T 1% /_S # # " T - ! Q4 4 < " '0G 0 B0 T3 8j & j & % 5j " 1 1An0 ! 0# !0) 4 4
0x3f2194…3f2328 Dummy {f00=0x0140, f01=0x0190, f02=» < 0G 4 4 ' <0G 0 0 %P 30 T 4 ' <0G 4 T !01 02 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( !01 02 P R
0x3f2328…3f24bc Dummy {f00=0x0140, f01=0x0190, f02=» J ^ Q f W H l ~ a & % o - 5 7 B F } O X o o q X ?. 001999FILENAMEDEVICEEXPIRATION DATE:OLD VOLUME SEQUENCE NO:OLD DATA SET ID
0x3f24bc…3f2650 Dummy {f00=0x0140, f01=0x0190, f02=» U 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 JOBN
0x3f2650…3f27e4 Dummy {f00=0x0140, f01=0x0190, f02=»# W - X : $ Z [ U$ " $ & ( * , . 0 2 4 6 8 : < = > ? @ C F J N T d {0 *
0x3f27e4…3f2978 Dummy {f00=0x0140, 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 $ _
0x3f2978…3f2b0c Dummy {f00=0x0140, 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
0x3f2b0c…3f2ca0 Dummy {f00=0x0140, 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 -
0x3f2ca0…3f2e34 (6, 174) Dummy {f00=0x0140, 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 ! '
0x3f2e34…3f2fc8 Dummy {f00=0x0140, 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
0x3f2fc8…3f315c Dummy {f00=0x0140, f01=0x0190, f02=»b? )? ( h < Q j p % t " d w ( h X " V "TOKEYVIAFILENAMETESTUNIT
0x3f315c…3f32f0 Dummy {f00=0x0140, 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
0x3f32f0…3f3484 Dummy {f00=0x0140, 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 <
0x3f3484…3f3618 Dummy {f00=0x0140, 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
0x3f3618…3f37ac Dummy {f00=0x0140, 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
0x3f37ac…3f3940 Dummy {f00=0x0140, 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_
0x3f3940…3f3ad4 (6, 175) Dummy {f00=0x0140, 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
0x3f3ad4…3f3c68 Dummy {f00=0x0140, 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 "
0x3f3c68…3f3dfc Dummy {f00=0x0140, 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
0x3f3dfc…3f3f90 Dummy {f00=0x0140, 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 !
0x3f3f90…3f4124 Dummy {f00=0x0140, 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 $
0x3f4124…3f42b8 Dummy {f00=0x0140, 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 ! !
0x3f42b8…3f444c Dummy {f00=0x0140, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X V - ! " % & ?MDA FETCHING FORMAT:
0x3f444c…3f45e0 Dummy {f00=0x0140, f01=0x018e, f02=» & $ BATCHY $ $E ( & : 8 & l F & RUNNING.O T ( l % x & & & RECORD CORRECTIONS ( & & & " & RECORD
0x3f45e0…3f4774 (6, 176) Opaque[0x194]
0x3f4774…3f4908 # DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x3f4774…3f4908 IdxSect {
0x3f4774…3f4908 f00 = 0x0141 // 0x3f4774 @0x0
0x3f4774…3f4908 f01 = 0x000e // 0x3f4776 @0x2
0x3f4774…3f4908 gno = [ // 0x3f4778 @0x4
0x3f4774…3f4908 [0x00]: C0x0141.0x0.0
0x3f4774…3f4908 [0x01]: C0x0141.0x1.0
0x3f4774…3f4908 [0x02]: C0x0141.0x2.0
0x3f4774…3f4908 [0x03]: C0x0141.0x3.0
0x3f4774…3f4908 [0x04]: C0x0142.0x0.0
0x3f4774…3f4908 [0x05]: C0x0142.0x1.0
0x3f4774…3f4908 [0x06]: C0x0142.0x2.0
0x3f4774…3f4908 ]
0x3f4774…3f4908 }
0x3f4908…3f4a9c Dummy {f00=0x0141, f01=0x0190, f02=» $ P IDENT DENT01 SHB 10.0 80-04-11 & P* LINE 675 SHB UNIQUE STATEMENT , P DDUM DEDDIV V P PDIV j P ENTRY DENT01 x P EXT DERECS P EXT DEACC P EXT DECLRN P EXT DECLRD P EXT DECLRA P EXT DECLRS P EXT
0x3f4a9c…3f4c30 Dummy {f00=0x0141, f01=0x0190, f02=»XT TESTB TEST FOR A BIT IN A BIN P EXT SETB SET A BIT IN A BIN ( & P EXT GETDUP LOOK FOR DUPLICATION- L P STRING FOR CURRENT FIELD v & P EXT DEDISC DISC HANDLING ROUTINE & P EXT DEPOOL POOL HANDLING ROUTINE P EXT MASK P EXT EMP
0x3f4c30…3f4dc4 Dummy {f00=0x0141, f01=0x0190, f02=»*************** v P* P* HANDLE ENTERED DATA " P* @ . P***************************************** J PDATAIN | & P TBT DOOL8,DAT04 JUMP IF OPEN NEW P* $ P TBF VERIFM,DAT0X VERIFY MODE ? ( P TBF DBOMVR,DAT05 RECORD TO VERIFY
0x3f4dc4…3f4f58 Dummy {f00=0x0141, f01=0x0190, f02=»* PDAT0 THOME , PDAT01 CLEAR DECHANGE CHANGED INPUTFIELD $ P TBT VERIFM,DAT05 VERIFY MODE ? L & P TBF DEPROMPT,DAT07 ENTIRE DISPLAY t PDAT04 , P CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH . P MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000
0x3f4f58…3f50ec Dummy {f00=0x0141, f01=0x018e, f02=»F DECLRS CLEAR SOME INPUTFIELDS(NCLR) P B DAT03 . PDAT05 > ( P TBT KEYVER,DAT06 KEY VERIFICATION ? L PDAT0X x & P SET DENOCHAN NO CHANGES PERMITTED PDAT06 ( P PERF DECLRD DISPLAY VARIABEL FIELDS : PDAT03 IB DEBINW2,CANCDA,RETUDA
0x3f50ec…3f5280 Dummy {f00=0x0141, f01=0x0190, f02=» l P* PDATERR MOVE DEBINW4,W0 PDATER2 0 $ P TBF VERIFM,DATER3 VERIFY MODE ? > * P TBT KEYVER,DATER3 KEY VERIFICATION ? f & P SET DENOCHAN NO CHANGES PERMITTED P* PDATER3 * P CBE PINDFR,W0,DATER4 NO ENTRY FORMAT P A
0x3f5280…3f5414 (6, 177) Dummy {f00=0x0141, f01=0x0190, f02=» & P IB DEBINW2,TOTBAL,CANCBL,SERIOUS P B DATER4 . PDATER7 @ ( P IB DEBINW2,DATER5,DATER5 CLR,CAN C N ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA z PDATER5 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME P PERF DERECS,W14 GET FORMAT
0x3f5414…3f55a8 Dummy {f00=0x0141, f01=0x0190, f02=»T0 ENTRY NEW REC v P TBT DOOL2,DAT0 INSERT P B DAT0X 6 PDATER6 F ( P CBE NUMBER,=D'0',DATER8 BATCHEAD=0 T P B RBWDDA PDATER8 P MOVE DEBINW4,W15 P B DATER4 P EJECT P***************** P* CANCEL PRESSED.
0x3f55a8…3f573c Dummy {f00=0x0141, f01=0x0190, f02=» P THOME P B DAT04 P* " PCANC03 , ( P TBF DOOL2,CANC10 JUMP IF NOT INSERT : * P MOVE DEBINW2,W5 SIMULATE RBWD PRESSED f P B RBWD10 PCANC10 , P TBT DECHANGE,CANC20 CHANGED INPUTFIELD? $ P TBT VERIFM,CANC13 VERIFY MODE ?
0x3f573c…3f58d0 Dummy {f00=0x0141, f01=0x0190, f02=» r * P TBF DBOMVR,CANC15 RECORD TO VERIFY ? ( P TBT DBOVER,CANC15 VERIFIED RECORD ? 6 P PERF DEVERS SET VERIFY MODE b PCANC13 & P CLEAR DENOCHAN CHANGES PERMITTED & P ERASE 1,W1,W0 ERASE ALL ON SCREEN P B DAT05 PCANC15 P P
0x3f58d0…3f5a64 Dummy {f00=0x0141, f01=0x0190, f02=»R DATER2 ( P CLEAR DECHANGE CHANGED INPUTFILED ? " P CLEAR DEPROMPT ENTIRE DISPLAY < P BNZ DAT04 b , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP t P B DAT06 P EJECT P***************** P* RETURN PRESSED. P*****************
0x3f5a64…3f5bf8 Dummy {f00=0x0141, f01=0x0190, f02=»DE ? t & P PERF DERECS,W3 ENTER LAST RECORD P BNERR SERIOUS 6 PRETU03 L P PERF DERROR,DEKTAB6 Z PRETU05 v P B SERIOUS P**************** P* ENTER PRESSED. P**************** PDATENT $ P TBF VERIFM,DAEN00 VERIFY MO
0x3f5bf8…3f5d8c Dummy {f00=0x0141, f01=0x0190, f02=» P B RFWD10 P EJECT PDAEN00 ( 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT 6 ( P PERF DEACC,W0 INCREASE ACCUMULATORS n & PDAEN10 CLEAR DOOL2 RECORD INSERT ? P BZ DAEN50 P* HANDLE INSERTED RECORD P* P CLEAR B
0x3f5d8c…3f5f20 Dummy {f00=0x0141, f01=0x0190, f02=» CHANGES PERMITTED * P PERF DERECS,W12 ENTER INSERTED RECORD P BOK DAEN30 H PDAEN20 ( P PERF DEACC,W1 DECREASE ACCUMULATORS j P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER PINSERR P PERF DELAST,W6,DEKTAB5 P IB DEBI
0x3f5f20…3f60b4 (6, 178) Dummy {f00=0x0141, f01=0x0190, f02=»L INPUT P* PDAEN50 * P TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? ( 2 P CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS V PDAEN60 P TBF DECHANGE,DAEN61 P PERF DERECS,W1 ENTER NEW P BNOK DAEN20 PDAEN61 P CLEAR BOOL5 C
0x3f60b4…3f6248 Dummy {f00=0x0141, f01=0x0190, f02=»E=IMMIDIATE (N) v P B DAEN63 PDAEN62 * P CLEAR BOOL3 CLEAR/SET CR 8 & P BOK DAEN65 NO FORMAT CHANGE FOUND Z 2 P MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG PDAEN63 8 P CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE P BNO
0x3f6248…3f63dc Dummy {f00=0x0141, f01=0x0190, f02=» b " P BNOK DAEN67 DATAENTER-FORMAT ( P MOVE BIN3,DEBINW4 SAVE FORMATINDEX . & P PERF DERECS,W3 ENTER LAST RECORD Z P BOK DAEN66 8 P CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE PDAEN66 P MOVE DEINPUT,HEX00 6 P COPY DEIN
0x3f63dc…3f6570 Dummy {f00=0x0141, f01=0x0190, f02=»T,HEX00 : P COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME P CLEAR DOOL8 OPEN NEW BATCH N " P PERF DERECS,W14 CHANGE FORMAT r P BOK DAEN64 P CBNE NUMBER,=D'0',DAEN69 P SET DENOCHAN PDAEN69 P B DATER2 PDAEN
0x3f6570…3f6704 Dummy {f00=0x0141, f01=0x018e, f02=»10 P BOK DAEN68 P CLEAR DOOL8 P B DATER4 2 PDAEN68 D P CLEAR DOOL8 R PDAEN70 f P CLEAR DECHANGE t P BZ DAT0 P CLEAR SW95PR P BZ DAEN80 P MOVE DEBINW4,=W'-1' P PERF DERROR,DEKTABS $ P IB DEBINW2,
0x3f6704…3f6898 Dummy {f00=0x0141, f01=0x0190, f02=» | & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 2 P PERF DEVERS SET VERIFY MODE F P B RFWD02 j PDAEN85 | P B DAT0 P EJECT P****************** P* RECORD FORWARD. P****************** PRFWDDA P TBT
0x3f6898…3f6a2c Dummy {f00=0x0141, f01=0x0190, f02=»INW3 r * P CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? ( P TBF DBOMVR,RFWD03 RECORD TO VERIFY : P PERF DEVERS SET VERIFY MODE f P TBT DBOVER,RFWD10 PRFWD02 P PERF DELAST,W9,DEKTAB8 P B CANC13 PRFWD04 ( P TBT DBOVER,RFWD10 VER
0x3f6a2c…3f6bc0 Dummy {f00=0x0141, f01=0x0190, f02=»F NOT INSERT x PRFWD06 " P B RBWD10 GET PREVIOUS RECORD " PRFWD05 H P TBT DENOCHAN,RFWD10 V PRFWD07 r P B DATERR PRFWD10 P MOVE DEBINW3,NUMBER $ P CBNE DEBINW3,BDPOIN(W2),RFWD15 P TEST VERIFM & P BNZ TOTBAL JUMP
0x3f6bc0…3f6d54 (6, 179) Dummy {f00=0x0141, f01=0x0190, f02=»W9 NO MORE RECORDS P B RFWD33 PRFWD15 , $ P TBT VERIFM,RFWD23 VERIFY MODE? : P PERF DELAST,W15,DEKTABR b ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C P RFWD18,RBWDDA P MOVE DEBINW2,W4 PRFWD22 P MOVE BCDI21(W3),DEINPUT
0x3f6d54…3f6ee8 Dummy {f00=0x0141, f01=0x018e, f02=»W6 P B DATER2 PRFWD17 P MOVE DEBINW3,BCDI21(W3) * 0 P CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH J $ P MOVE BCDI21(W3),NUMBER RESTORE ~ P B RFWD13 NOT FOUND PRFWD18 P SUB DEBINW1,W1 P BNZ RFWD22 PRFWD23
0x3f6ee8…3f707c Dummy {f00=0x0141, f01=0x0190, f02=» PRFWD20 $ P PERF DERECS,W4 GET NEXT RECORD PRFWD30 : P BOK RFWD40 H P BOFL RETU03 P CLEAR DOOLC p & P CBNE PINDFR,W0,RFWD33 CURR FORMAT * P CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? $ P TBF VERIFM,RFWD31 VERIFY MODE ? * P CBE
0x3f707c…3f7210 Dummy {f00=0x0141, f01=0x018e, f02=»WD32 P CLEAR SOOL2 P B DATER4 PRFWD33 2 P TBF VERIFM,RFWD38 @ P TEST BDAVER Z P BNZ TOTBAL n P TBT KEYVER,RFWD35 P DISPLAY 30,W1,W0 P B RFWD39 PRFWD35 P DISPLAY 20,W1,W0 P B RFWD39 PRFWD38
0x3f7210…3f73a4 Dummy {f00=0x0141, f01=0x0190, f02=» PRFWD40 P SET SOOL2 NOT BATCHHEAD ( P CBE DEBINW2,W5,RFWD50 RBWD PRESSED 6 & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 b & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY P TBF DBOMVR,RFWD10 P PERF DEVERS SET VERIFY MODE P TBT DBOVER,RFWD10
0x3f73a4…3f7538 Dummy {f00=0x0141, f01=0x0190, f02=»WD70 | P TEST VERIFM P BZ DAT06 P B DAT05 2 PRFWD70 B P CLEAR SOOL2 P P TEST VERIFM d P BZ DAT0X x P B DAT05 P EJECT P***************** P* RECORD BACKWARD P***************** P* PRBWERR B
0x3f7538…3f76cc Dummy {f00=0x0141, f01=0x0190, f02=»BER,=D'0',RFWD12 BATCHHEAD & P PERF DEVERC CLEAR IF VERIFY MODE " P BNZ RBWD10 L P TBT DENOCHAN,RBWD15 ` & P SET DENOCHAN NO CHANGES PERMITTED | & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 P B RFWD50 PRBWD10 & P SET
0x3f76cc…3f7860 Dummy {f00=0x0141, f01=0x0190, f02=»BR z ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C P RFWDDA,RBWD25 6 P MOVE DEBINW2,W5 N PRBWD20 f P MOVE BCDI21(W3),DEINPUT t " P CBNL BCDI21(W3),NUMBER,RFWD16 P B RBWD30 PRBWD25 P SUB DEBINW1,W1 P BNZ RBWD20 PRB
0x3f7860…3f79f4 (6, 180) Dummy {f00=0x0142, f01=0x0190, f02=»ERF DERECS,W6 GET PREVIOUS RECORD P B RFWD30 * P EJECT < P******************* J P* RECORD CORRECTION f P******************* PCORDAT P TBT VERIFM,CORD10 P TBF DENOCHAN,RBWERR PCORD10 P TBT DOOL2,RBWERR INSERT
0x3f79f4…3f7b88 Dummy {f00=0x0142, f01=0x0190, f02=»RMITTED v P PERF DELAST,W8,DEKTAB7 & P PERF DEVERC CLEAR IF VERIFY MODE 0 P BZ CORD20 Z P PERF DECLRD l P B CORD30 PCORD20 P PERF DECLRN 8 PCORD30 IB DEBINW2,CORCAN,CORC10,CORENT CLR,CAN,ENT C & P CORD35,CORD35,CORD35 N
0x3f7b88…3f7d1c Dummy {f00=0x0142, f01=0x0190, f02=» ( P TBF DECHANGE,CORE15 NO CHANGES MADE & P ERASE 1,W1,W0 ERASE ALL ON SCREEN 0 PCORC10 Z P SET DOOL4 h & P PERF DERECS,W5 GET CURRENT RECORD z P BNERR CORRET P CLEAR DOOL4 P B CORD40 PCORRET P CLEAR DOOL4 PCORE15
0x3f7d1c…3f7eb0 Dummy {f00=0x0142, f01=0x0190, f02=»T,ENT C b & P CORENT,CORENT,CORENT NOT USED C ! P CORDEL DEL ! : PCORENT ! N P PERF DERECS,W2 ENTER OLD ! P BNOK CORD40 ! ~ PCORE10 ! P MOVE DEBINW3,W24 ! , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE ! & P CBNE DEBINW2,W1,CORE15 NOT CA
0x3f7eb0…3f8044 Dummy {f00=0x0142, f01=0x0190, f02=»,DEBINW3 ! v P CBNE DEBINW4,W6,CORE60 " PCORE50 " 0 P TBF DBOMVR,CORE60 " > P TBT DBOVER,CORE60 " X P PERF DEVERS SET VEIFY MODE " r P B RFWD02 " PCORE60 " & P SET DENOCHAN NO CHANGES PERMITTED " . P CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANC
0x3f8044…3f81d8 Dummy {f00=0x0142, f01=0x0190, f02=» " P***************** # P* RECORD DELETE. # " P***************** # : PDLTEDA # T P TBT VERIFM,DLTE05 # b P TEST DENOCHAN # | P BZ DATERR # P TEST DOOL2 INSERT # P BNZ DATERR # PDLTE05 # P TEST SOOL2 # P BZ DATERR JUMP IF B
0x3f81d8…3f836c Dummy {f00=0x0142, f01=0x0190, f02=»,DLTE10 # p & P ERASE 1,W1,W0 ERASE ALL ON SCREEN $ ( P PERF DEACC,W1 DECREASE ACCUMULATORS $ : P THOME $ f PDLTE30 $ t P PERF DERECS,W8 $ P BNERR DLTE50 $ P PERF DERROR,DEKTAB6 $ P B SERIOUS $ PDLTE50 $ P PERF DELAST,W3,DEKTAB5 $
0x3f836c…3f8500 Dummy {f00=0x0142, f01=0x0190, f02=»BELL ACOUSTIC ALARM $ P B DLTE50 % P EJECT % . P******************* % < P* CHANGE PROGRAM. * % X P******************* % t PPROGDA % P TEST DENOCHAN % P BNZ DATERR % P TEST DECHANGE % P BNZ DATERR % P TEST SOOL2 % P B
0x3f8500…3f8694 (6, 181) Dummy {f00=0x0142, f01=0x018e, f02=» SUB DEBINW1,W1 % P BZ PROGD0 JUMP IF NO INPUT & 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY & < $ P PERF DERECS,W10 CHANGE PROGRAM & v P BOK DAT0 & P GETFLD 0,BIN4,DEBINW2 & P B DATER2 & P* & PPROCAN & & P PERF DEPRUT,PRN
0x3f8694…3f8828 Dummy {f00=0x0142, f01=0x0190, f02=» & P EJECT ' P****************** ' P* RECORD INSERT. * ' 0 P****************** ' J PINSRDA ' d P TEST DOOL2 ' r P BNZ DATERR ' & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 ' P CBNE DEBINW4,W6,INSR05 ' P TBF DBOMVR,INSR05 ' P TBT DBOVE
0x3f8828…3f89bc Dummy {f00=0x0142, f01=0x0190, f02=»,INSR10 LAST RECORD ' x & P CLEAR DENOCHAN CHANGES PERMITTED ( P B CANBL1 ( F PINSR10 ( X P PERF DELAST,W4,DEKTAB7 ( f , P IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 ( " P PERF DERECS,W9 INSERT RECORD ( P BERR DATER2 ( & P CLEAR DENOCHAN CHANGES
0x3f89bc…3f8b50 Dummy {f00=0x0142, f01=0x0190, f02=»******** ( P* TOT-KEY PRESSED. * ) P******************** ) , PTOTDA ) H P TEST DOOL8 ) V P BNZ DATERR ) j P TBF SOOL2,TOTBAL ) ~ P CLEAR DOOL2 INSERT ) P BNZ TOTBAL ) P TEST DECHANGE ) P BNZ DATERR ) P TBT DENOCHAN,TOTBAL )
0x3f8b50…3f8ce4 Dummy {f00=0x0142, f01=0x0190, f02=» DATER2 ) P EJECT * . P***************************************** * P* * P P* HANDLE BALANCE FORMAT * Z P* * z . P***************************************** * PTOTBAL * & P CLEAR DENOCHAN CHANGES PERMITTED * P CLEAR SOOL2 * P MOVE
0x3f8ce4…3f8e78 Dummy {f00=0x0142, f01=0x0190, f02=»HANGE * P SET DOOLA + PTOTB10 + P PERF DEDISC,W10 GET FORMAT + . P BNERR TOTB20 + R * P CBNE DEBINW4,W13,TOTB12 NO WORKSPACE + h & P ATTFMT FFETCH ATTACH DUMMYFORMAT + P DISPLAY 0,W1,W0 + P THOME + * P CBE PINDFR,W0,TOTB14 NO CURR. FOR
0x3f8e78…3f900c Dummy {f00=0x0142, f01=0x0190, f02=»E-FORMAT + z & P SET DENOCHAN NO CHANGES PERMITTED , PTOTB14 , : P B DATER2 , H PTOTB20 , Z ( P MOVE FORMAT,FORTAB(W21) BLANCE NAME , h P MOVE SYMREC(W11),FRMTPNTR , P MOVE BIN14,FLIND(W1) , P ATTFMT BPOOL(BIN14) , P SET DEPROMPT , ( P P
0x3f900c…3f91a0 Dummy {f00=0x0142, f01=0x0190, f02=»W8,TOTB50 JUMP IF NOT TOT , * P CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED - " P PERF DELAST,W9,DEKTAB6 - P P B TOTB35 - p PTOTB42 - " P B TOTB50 SHB UNIQUE STATEMENT - , P PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE - * P IB DEBINW2,TOTB44,TOTB44,ENTBL,TO
0x3f91a0…3f9334 (6, 182) Dummy {f00=0x0142, f01=0x018e, f02=»EBINW4,DEBINW4 - P B TOTB35 . PTOTB50 . ( P MOVE DEBINW4,W0 . 6 PTOTB60 PERF DERR . N P B TOTB40 . f PENTBL . x P SET BDABAL IN BALANCE . PTOTB70 . P CLEAR DOOLA . 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 . P MOVE DEBINW2,
0x3f9334…3f94c8 Dummy {f00=0x0142, f01=0x018e, f02=» P BOK CANBL3 / P BOFL RETU03 / P CBE DEBINW4,W13,TOTB14 / , P SET DOOLA / L P B TOTB60 / ^ PCANBL3 / p & P PERF DEVERC CLEAR IF VERIFY MODE / ~ * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST / P CLEAR DECHANGE / P B DAT02 / PCANBL2 /
0x3f94c8…3f965c Dummy {f00=0x0142, f01=0x0190, f02=» P CALL SETB,WORK(W11),W0 0 P CALL SETB,WORK(W12),W0 0 $ P SET VERIFM 0 D P RET 0 X P PEND 0 d PDEVERC PROC 0 r P CLEAR VERIFM 0 P BZ DEVERE 0 P MOVE WORK(W11),W0 0 P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0
0x3f965c…3f97f0 Dummy {f00=0x0142, f01=0x409a, f02=»T:' 0 z P FCOPY DEINPUT 1 P FTEXT ' FROM DISC.' 1 " P FNL 1 > P FKI 1,ALPHA 1 J P FCOPY HEX00 1 ^ P FMEND 1 r P* 1 END 1 @ 1 P BZ DEVERE 0 P MOVE WORK(W11),W0 0 P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0
0x3f97f0…3f9984 Dummy {f00=0x0142, 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
0x3f9984…3f9b18 Dummy {f00=0x0142, 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 ? " ? < 6h ! !P !W !j !! ! 8f "d
0x3f9b18…3f9cac Dummy {f00=0x0142, f01=0x0190, f02=» 9 _ " W & ? ? 0 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 50 7 h !T? j !! ! 3 ) 4 ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~
0x3f9cac…3f9e40 Dummy {f00=0x0142, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 2hZ !PDj !! 0 (P 50 !_<( 4 !, z :h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P
0x3f9e40…3f9fd4 (6, 183) Opaque[0x194]
0x3f9fd4…3fa168 # DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2858, f03=0x0000}
0x3f9fd4…3fa168 IdxSect {
0x3f9fd4…3fa168 f00 = 0x0142 // 0x3f9fd4 @0x0
0x3f9fd4…3fa168 f01 = 0x0002 // 0x3f9fd6 @0x2
0x3f9fd4…3fa168 gno = [ // 0x3f9fd8 @0x4
0x3f9fd4…3fa168 [0x00]: C0x0142.0x3.0
0x3f9fd4…3fa168 ]
0x3f9fd4…3fa168 }
0x3fa168…3fa2fc Dummy {f00=0x0142, 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
0x3fa2fc…3fa490 Dummy {f00=0x0142, 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
0x3fa490…3fa624 Dummy {f00=0x0142, 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,
0x3fa624…3fa7b8 Dummy {f00=0x0142, f01=0x2008, f02=» NT DEAPPU USERAPPL-ROUTINE DDUM DEDDIV * PDIV > ENTRY DEAPPU L DEAPPU PROC b MOVE DEBINW3,W0 v RET PEND END @
0x3fa7b8…3fa94c Dummy {f00=0x0142, f01=0x0190, f02=» > P P h 0
0x3fa94c…3faae0 Dummy {f00=0x0142, f01=0x0190, f02=» 8 F
0x3faae0…3fac74 (6, 184) Opaque[0x194]
0x3fac74…3fae08 # DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2860, f03=0x0000}
0x3fac74…3fae08 IdxSect {
0x3fac74…3fae08 f00 = 0x0143 // 0x3fac74 @0x0
0x3fac74…3fae08 f01 = 0x0016 // 0x3fac76 @0x2
0x3fac74…3fae08 gno = [ // 0x3fac78 @0x4
0x3fac74…3fae08 [0x00]: C0x0143.0x0.0
0x3fac74…3fae08 [0x01]: C0x0143.0x1.0
0x3fac74…3fae08 [0x02]: C0x0143.0x2.0
0x3fac74…3fae08 [0x03]: C0x0143.0x3.0
0x3fac74…3fae08 [0x04]: C0x0144.0x0.0
0x3fac74…3fae08 [0x05]: C0x0144.0x1.0
0x3fac74…3fae08 [0x06]: C0x0144.0x2.0
0x3fac74…3fae08 [0x07]: C0x0144.0x3.0
0x3fac74…3fae08 [0x08]: C0x0145.0x0.0
0x3fac74…3fae08 [0x09]: C0x0145.0x1.0
0x3fac74…3fae08 [0x0a]: C0x0145.0x2.0
0x3fac74…3fae08 ]
0x3fac74…3fae08 }
0x3fae08…3faf9c Dummy {f00=0x0143, f01=0x018e, f02=» . P IDENT DECONV REL=1.0 VER=1 80-12-18/SHB P UPD 80-07-14/JAER 6 DDUM DEDDIV R PDIV f ENTRY DECONV t EXT DEPOOL EXT TESTB P EXT EMPTYT P EXT DERROR P EXT ATTDEV ATTACH DEVICE
0x3faf9c…3fb130 Dummy {f00=0x0143, f01=0x0190, f02=» P* KEYTABLE P* CLR EQU X'8F' CLEAR * CAN EQU X'91' CANCEL F RET 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'
0x3fb130…3fb2c4 Dummy {f00=0x0143, 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*
0x3fb2c4…3fb458 Dummy {f00=0x0143, f01=0x0190, f02=» = 3 CASETTE OUTPUT 8 P* = 4 PRINTOUT LP/GP 6 2 P* = 5 DISCFILE r : P* = 6 FLOPPYDISC FILE D P*
0x3fb458…3fb5ec Dummy {f00=0x0143, f01=0x0190, f02=» TYPE = TYPE OF HANDLING . P* = 1 OPEN . : P* = 2 BATCHHEAD-RECORD ` 6 P* = 3 DATA RECORD 8 P* = 4 BALANCE RE
0x3fb5ec…3fb780 Dummy {f00=0x0143, 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*
0x3fb780…3fb914 (6, 185) Dummy {f00=0x0143, 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************************************************************
0x3fb914…3fbaa8 Dummy {f00=0x0143, 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
0x3fbaa8…3fbc3c Dummy {f00=0x0143, 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
0x3fbc3c…3fbdd0 Dummy {f00=0x0143, 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
0x3fbdd0…3fbf64 Dummy {f00=0x0143, 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
0x3fbf64…3fc0f8 Dummy {f00=0x0143, 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
0x3fc0f8…3fc28c Dummy {f00=0x0143, 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
0x3fc28c…3fc420 Dummy {f00=0x0143, 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
0x3fc420…3fc5b4 (6, 186) Dummy {f00=0x0143, 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
0x3fc5b4…3fc748 Dummy {f00=0x0143, 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
0x3fc748…3fc8dc Dummy {f00=0x0143, 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
0x3fc8dc…3fca70 Dummy {f00=0x0143, 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
0x3fca70…3fcc04 Dummy {f00=0x0143, 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
0x3fcc04…3fcd98 Dummy {f00=0x0143, 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
0x3fcd98…3fcf2c Dummy {f00=0x0143, 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
0x3fcf2c…3fd0c0 Dummy {f00=0x0143, 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
0x3fd0c0…3fd254 (6, 187) Dummy {f00=0x0143, f01=0x0190, f02=»TCON,W0 PRETURN P RET P EJECT * 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
0x3fd254…3fd3e8 Dummy {f00=0x0143, f01=0x0190, f02=» GET 2 COSCUTIVE BUFFERS P B DC110 OK P B DCERR ERROR 4 PDC110 J * P MOVE BIN6,=X'0036' FILE CODE PRINTER X $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BNOK DC335 P MOVE STRG10A,HEX00 P GETTIME STRG10A P MOVE TIME,STRG10A
0x3fd3e8…3fd57c Dummy {f00=0x0143, f01=0x0190, f02=»DC115 P EDIT BPOOL(BIN10),FRMSOF & P MOVE BIN4,=W'600' TIME OUT VALUE 0 P DSC1 .NW,DSDCFD,STIMO,BIN4 Z ( P MOVE REQDC,=W'127' REQUESTED LENGTH ~ $ P WRITE DSDCFD,BPOOL(BIN10),REQDC P BNOK DCERR 8 P EDIT BPOOL(BIN10),FRMC01 START OF
0x3fd57c…3fd710 Dummy {f00=0x0143, f01=0x0190, f02=»NGTH p $ P WRITE DSDCFD,BPOOL(BIN10),REQDC P BNOK DCERR 4 P B DECOOK H P EJECT Z P* h P* BATCHHEAD RECORD r P* PDC200 P TBT DCBAB,DC330 " P TBT BDAFRO,DC300 BATCH FROZEN , P EDWRT DEDSPRT,FBATC3 PRINT ERROR REPO
0x3fd710…3fd8a4 Dummy {f00=0x0143, f01=0x0190, f02=»C305 PRINTING P CBE TYPE,W2,DC305 PRINTING P B DC308 NO PRINTING : PDC305 V * P* PRINT BATCH HEAD AND BALANCE RECORD d P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 P BNOK DC335 PDC308 * P MOVE BIN10,WORK(W13) GET
0x3fd8a4…3fda38 Dummy {f00=0x0143, f01=0x0190, f02=» ABORTION PDC310 P PERF CONV P B DECOOK ALL DONE 2 P B DC340 TRANSMIT L P B DC315 CUMP FIELD EMPTHY f P B DC320 BCD FIELD OVERFLOW " P B DC320 EDIT BUFFER OVERFLOW PDC315 P MOVE RETCON,W5 P B DCERRT
0x3fda38…3fdbcc Dummy {f00=0x0143, f01=0x0190, f02=»ON n P B RETURN PDC335 P MOVE RETCON,=W'35' * P B DCERRT F P EJECT X P* f P* TRANSM BLOCKS p P* P PDC340 P WAIT DSDCFD P XSTAT DSDCFD,BIN4 P MOVE BIN7,=X'0046' P CALL MASK,BIN4,BIN7
0x3fdbcc…3fdd60 Dummy {f00=0x0143, f01=0x0190, f02=»X LENGTH x P* REPLACE '00' WITH SPACES P 2 * P MOVE REQDC,=W'125' SET BUFFER LENGTH : 0 P XCOPY BPOOL(BIN10),W2,REQDC,BPOOL(BIN9),W0 h , P MOVE REQDC,=W'127' SET REQUESTED LENGTH ( P WRITE .NW,DSDCFD,BPOOL(BIN10),REQDC P B DC310 P
0x3fdd60…3fdef4 (6, 188) Dummy {f00=0x0144, f01=0x0190, f02=»* SEND EOF P* P PDC500 $ P WAIT DSDCFD 2 P XSTAT DSDCFD,BIN4 F P MOVE BIN7,=X'0046' ` P CALL MASK,BIN4,BIN7 | P BERR DCERR * P MOVE BIN10,WORK(W13) GET BUFFER INDEX P TBT DCBAB,DC560 & P MOVE BIN4,=W'600' TIM
0x3fdef4…3fe088 Dummy {f00=0x0144, f01=0x0190, f02=»H n $ P WRITE DSDCFD,BPOOL(BIN10),BIN4 P BERR DCERR 2 P EDIT BPOOL(BIN10),FRMEOF F & P MOVE BIN4,=W'600' TIME OUT VALUE h P DSC1 .NW,DSDCFD,STIMO,BIN4 ( P MOVE BIN4,=W'127' REQUESTED LENGTH $ P WRITE DSDCFD,BPOOL(BIN10),BIN4
0x3fe088…3fe21c Dummy {f00=0x0144, f01=0x0190, f02=» P CLEAR DCBAB P MOVE BIN4,W0 . P DSC1 DSDCFD,DETACH,BIN4 DETACH DEVICE DC 2 P PERF DETPRT d P* RELEAS BUFFERS x & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A P B DECOOK PDC560 P MOVE STRG10A,HEX00 P GETTIME STRG10A
0x3fe21c…3fe3b0 Dummy {f00=0x0144, f01=0x0190, f02=»* P ! PFLOPPY ! 4 P IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C ! P FD300,FD500 BALANCE,CLOSE ! X P ! | P ! P* ! P* SEND SOF ! P* SEND '001'+DATE ! P* ! P ! PFD100 ! P TBT FDBAB,FD170 ! * P PERF GETBUF G
0x3fe3b0…3fe544 Dummy {f00=0x0144, f01=0x0190, f02=»28' ! 6 P CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN " P MOVE BIN4,W20 " F , P DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD " P BNOK FDERR " P PERF FDLOAD " P B FD140 OK " P B FDERR ERROR " P " P " PFD140 " * P MOVE BIN6,=
0x3fe544…3fe6d8 Dummy {f00=0x0144, f01=0x0190, f02=»0A " P MOVE TIME,STRG10A # P EDWRT DEDSPRT,FFDHDR # $ " P PERF FDRVOL READ VOLUME LABEL # B P B FD150 OK # h P B FDERR ERR # | PFD150 # . P IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET # P* ENT # P # PFD160 # . P MOVE STSAVE(W5),STS
0x3fe6d8…3fe86c Dummy {f00=0x0144, f01=0x0190, f02=»RR ERROR # P $ PFD165 $ 6 P EDIT BPOOL(BIN9),FFD001 START OF FILE IDENTIFIERS $ & & P PERF FDWRIT WRITE SOF IDENTIFIERS $ ` P B DECOOK OK $ P B FDERR ERROR $ P B FDERR EOF $ P $ P EJECT $ PFD170 $ ( P MOVE RETCON,=W'-4' ABORT CO
0x3fe86c…3fea00 Dummy {f00=0x0144, f01=0x0190, f02=» P B RETURN % P % PFD180 % P MOVE CWFD,W7 % , P MOVE REQFD,=W'128' % B > P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD *UNLOAD HDR1 % ^ " P MOVE RETCON,=W'55' CHANGE FD % P B RETURN % P EJECT % P* % P* BATCHEAD RECORD %
0x3fea00…3feb94 (6, 189) Dummy {f00=0x0144, f01=0x0190, f02=» SET FDBAB % & P MOVE RETCON,=W'-1' GET NEXT BATCH & P B RETURN & < P EJECT & N PFD300 & P TBT FDBAB,FD170 & j P TBT FDEOF,FDEOF10 & P CBE TYPE,W4,FD305 PRINTING & P CBE TYPE,W2,FD305 PRINTING & P B FD308 NO PRINTING & PFD305 &
0x3feb94…3fed28 Dummy {f00=0x0144, f01=0x018e, f02=» & * P MOVE BIN10,WORK(W13) GET BUFFER INDEX ' $ P MOVE BIN9,BIN10 GET BPOOL INDEX ' 6 P ADD BIN9,W1 ' ^ $ P MOVE BIN8,W0 RESET FIELD NUMBER ' r PFD310 ' P PERF CONV ' P B DECOOK ALL DONE ' P B FD340 WRITE BLOCKS ' P B FD315 CUMP FIELD EM
0x3fed28…3feebc Dummy {f00=0x0144, f01=0x018e, f02=» ' P ( PFD320 ( " P MOVE RETCON,=W'54' EDIT ERROR ( P B FDERRT ( D P EJECT ( V P* ( d P* WRITE BLOCKS ( n P* ( P ( PFD340 ( P PERF FDWRIT ( P B FD310 OK ( P B FD360 ERROR ( P B FDEOF05 EOE ( P EJECT ( PFD
0x3feebc…3ff050 Dummy {f00=0x0144, f01=0x018e, f02=» 8 P CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD ) PFD365 ) @ P ATTFMT FCAS02 ) N * P MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK ) d P PERF DERROR,KEYTAB ) . P IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET ) P B FD350 ENT ) PFD370 ) " P PERF
0x3ff050…3ff1e4 Dummy {f00=0x0144, f01=0x0190, f02=» P* ENT * P * PFD380 * $ P PERF FDWVOL WRITE VOLUME LABEL * ( P B FD382 OK * P P B FD360 ERROE * d P * z PFD382 * P TBF FDEOF,FD340 NOT EOF * * P MOVE RETCON,=W'-6' GET CURRENT RECORD * P B RETURN * P * PFDEOF05 * P
0x3ff1e4…3ff378 Dummy {f00=0x0144, f01=0x0190, f02=»OVE BIN10,WORK(W13) GET BUFFER INDEX * $ P MOVE BIN9,BIN10 GET BPOOL INDEX + , P ADD BIN9,W1 + T & P MOVE BIN8,WORK(W14) GET FIELD NO + h P MOVE REQFD,=W'128' + P MOVE CWFD,W0 + > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS + P B
0x3ff378…3ff50c Dummy {f00=0x0144, f01=0x0190, f02=»ET BPOOL INDEX + ~ P ADD BIN9,W1 , ( P EDIT BPOOL(BIN9),FFD999 END OF FILE , * PFD505 , V P PERF FDWRIT , d P B FD570 OK , x P B FDERR ERR , P B FD510 EOE , PFD510 , P MOVE REQFD,=W'128' , P MOVE CWFD,W7 , 8 P CALL FDIO,DSFD,X'B8
0x3ff50c…3ff6a0 Dummy {f00=0x0144, f01=0x0190, f02=»EYTAB , . P IB DEBINW2,FD520,FD510,FD170 CLR,CAN,RET - PFD520 - @ P PERF FDLOAD - N P B FD525 OK - b P B FD510 ERROR - v PFD525 - " P PERF FDRVOL READ VOLUME LABEL - P B FD530 OK - P B FD510 ERROR - PFD530 - . P IB DEBINW2,FD53
0x3ff6a0…3ff834 (6, 190) Dummy {f00=0x0144, f01=0x018e, f02=» - PFD540 . P MOVE REQFD,=W'128' . P MOVE CWFD,W0 . 2 > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS . H P B FD505 . PFD550 . P WAIT DSFD . P CLEAR FDBAB . P MOVE CWFD,W7 HDR SECTOR . P MOVE REQFD,=W'128' . 8
0x3ff834…3ff9c8 Dummy {f00=0x0144, f01=0x0190, f02=» . z 8 P CALL FDIO,DSFD,X'A2',BPOOL(BIN10),REQFD,CWFD CLOSE / P MOVE BIN4,W0 / D P DSC1 DSFD,DETACH,BIN4 / Z P PERF DETPRT / x P* RELEAS BUFFERS / & P PERF DEPOOL,W6,BIN10,BIN4,STRG10A / P B DECOOK / PFD560 / P MOVE STRG10A,HEX00 /
0x3ff9c8…3ffb5c Dummy {f00=0x0144, f01=0x0190, f02=»X00 / P GETTIME STRG10A 0 P MOVE TIME,STRG10A 0 $ P EDWRT DEDSPRT,FFDEND 0 > P B FD550 0 P PEND 0 l P EJECT 0 z P* 0 ( P* GETBUF GET TWO CONSECUTIVE BUFFERS 0 P* 0 P* BUFFER INDEX IN WORK(W13) 0 P* 0 P 0 PGETBUF PRO
0x3ffb5c…3ffcf0 Dummy {f00=0x0144, f01=0x0190, f02=»0A GET 3 COSECUTIVE BUFFERS 0 p $ P BNOK GETBU2 NO BUFFERS AVAIBLE 1 $ , P MOVE WORK(W13),BIN10 SAVE BUFFER INDEX 1 L . P MOVE BIN9,BIN10 LOAD WORKING BUFFER INDEX 1 | " P ADD BIN9,W1 INDEX EDIT BUFFER 1 4 P MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER 1
0x3ffcf0…3ffe84 Dummy {f00=0x0144, f01=0x0190, f02=» P 2 P 2 PFDRVOL PROC 2 P MOVE REQFD,=W'128' 2 ( & P MOVE BIN13,BIN10 GET BUFFER INDEX 2 D ( P ADD BIN13,W2 ADJUST FOR READ BUFFER 2 n P MOVE CWFD,W7 2 > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) 2 P XSTAT DSFD,BIN4 2
0x3ffe84…400018 Dummy {f00=0x0144, f01=0x0190, f02=»BIN7 EXPIRATION DATE 2 p 4 P XCOPY STR6B,W0,W6,BPOOL(BIN13),W5 GET FILE NAME 3 P MOVE BIN7,=W'45' 3 T 6 P XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER 3 n P ATTFMT FCAS02 3 P SET DEPROMPT 3 P DISPLAY 0,W1,W0 3 P THOME 3 & P MOVE DEBINW3,
0x400018…4001ac Dummy {f00=0x0144, f01=0x0190, f02=» EJECT 3 P* 4 P* FDWVOL WRITE VOLUME LABEL 4 P* 4 < P 4 F P 4 N PFDWVOL PROC 4 V P MOVE BIN7,=W'66' 4 j & P MOVE BIN13,BIN10 GET BUFFER INDEX 4 ( P ADD BIN13,W2 ADJUST FOR READ BUFFER 4 * P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE 4 P
0x4001ac…400340 Dummy {f00=0x0144, f01=0x0190, f02=»NUMBER 4 l ( P MOVE REQFD,=W'128' REQUESTED LENGTH 5 P MOVE CWFD,W7 5 : > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) 5 P P XSTAT DSFD,BIN4 5 P MOVE BIN7,=X'024F' 5 P CALL MASK,BIN4,BIN7 5 P 5 P BNOK FDWVO2 5 & P ADD FDCNT
0x400340…4004d4 (6, 191) Dummy {f00=0x0144, f01=0x0190, f02=»OOL(BIN13),REQFD,CWFD REWIND 5 x P RET 6 $ PFDWVO2 6 0 P RET 2 6 > P PEND 6 L P EJECT 6 Z P* 6 h P* FDWRIT WRITE BLOCKS 6 r P* 6 P 6 P 6 PFDWRIT PROC 6 P WAIT DSFD 6 P XSTAT DSFD,BIN4 6 P CALL TESTB,BIN4,W2 EOE 6 P
0x4004d4…400668 Dummy {f00=0x0144, f01=0x018e, f02=» MOVE BIN4,=W'125' SET BUFFER LENGTH 6 . P XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0 7 , P MOVE REQFD,=W'128' 7 ^ P MOVE CWFD,W0 7 z > P CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS 7 P RET 7 PFDWR20 7 P RET 2 7 P PEND 7 P
0x400668…4007fc Dummy {f00=0x0144, f01=0x0190, f02=» P MOVE REQFD,=W'128' 8 6 P CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD 8 P XSTAT DSFD,BIN4 8 Z P CALL TESTB,BIN4,W5 IBM 8 r P BZ FDLOA2 8 P MOVE BIN7,=X'000F' 8 P CALL MASK,BIN4,BIN7 8 P BNOK FDLOA2 8 P RET 8 PFDLOA2 8
0x4007fc…400990 Dummy {f00=0x0144, f01=0x0190, f02=» PEND 8 P EJECT 9 P* 9 8 P* CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER 9 & P* RET =RECORD CONVERTED 9 b P* RET 2 =TRANSMIT 9 & P* RET 4 =CUMPULSORY FIELD EMPTHY 9 P* RET 6 =BCD-FIELD OVERFLOW 9 " P* RET 8 =EDIT BUFFER OVERFL
0x400990…400b24 Dummy {f00=0x0144, f01=0x0190, f02=»RANSMIT FIELD 9 P* APPL = 1 TRANSMIT BLOCK : P* : 8 P* BIN4 = WORK ITEM : B P* BIN7 = MAX LENGTH : ^ P* BIN8 = FIELD NUMBER : z " P* BIN9 = INDEX TO EDIT BUFFER : " P* BIN13= DELETE START POINTER : P* BIN16= EDIT POINTER : P* :
0x400b24…400cb8 Dummy {f00=0x0144, f01=0x0190, f02=»DIT POINTER : x PCON100 ; $ P ADD BIN8,W1 UPDATE FIELD NUMBER ; " " P CALL GETFWD,BIN7,2,BIN8,BIN4 ; J P CALL ADJUST,BIN7 ; p P BOK CON130 ; P BN CONRET ALL FIELD DONE ; & P B CONER1 COMPULSORY FIELD EMPTHY ; PCON130 ; P GETCTL 0,VSEIND
0x400cb8…400e4c Dummy {f00=0x0144, f01=0x0190, f02=»=W'1000' CONVERT APPL TO TRANSID ; P B CON400 EDIT TRANSIDENTY < ( P < J PCON135 < R P CMP VSEIND,=W'11999' < ` P BG CON190 < ~ P CMP VSEIND,=W'7000' < P BL CON150 < P SUB VSEIND,=W'7000' < PCON140 < P CMP VSEIND,=W'1000' < P BL
0x400e4c…400fe0 Dummy {f00=0x0144, f01=0x018e, f02=»N150 < PCON180 = ( P CBE VSEIND,W2,CON100 NO TRANSMFIELD = P = F PCON190 = N P GETCTL 1,BIN7 GET MAXL = P TSTCTL 0 TEST - ALPHA = | P BZ CON200 BCD = P = P* ALPHA = P = * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH = * P SUB BIN4,
0x400fe0…401174 (6, 192) Dummy {f00=0x0145, f01=0x0190, f02=» = n P B CON260 > P > P EJECT > " P* BCD > 0 P > > PCON200 > F & P CBG BIN7,W21,CONER2 BCD-OVERFLOW > T * P MOVE BIN4,W188 GET EDIT BUFFER LENGTH > ~ * P SUB BIN4,BIN7 ADJUST WITH MAX LENGTH > , P SUB BIN4,BIN16 ADJUST WITH EDIT POINTER >
0x401174…401308 Dummy {f00=0x0145, f01=0x0190, f02=»BCS EDIT 21 DIGITS > t & P MOVE BIN4,W22 SET PICTURE LENGTH ? ( P ADD BIN7,W1 ADJUST POINTER FOR SIGN ? D P B CON250 ? p P ? PCON220 ? $ P EDSUB BPOOL(BIN9),BIN16,FRMBCD ? & P MOVE BIN4,W21 SET PICTURE LENGTH ? PCON250 ? $ P SUB BIN4,BIN7 S
0x401308…40149c Dummy {f00=0x0145, f01=0x0190, f02=»ER ? h ( P MOVE BIN16,BIN13 LOAD EDIT POINTER @ ( P CBE VSEIND,W1,CONTRM APPL =1 TRANSM @ 6 P B CON100 @ b P EJECT @ t P* @ , P* EDIT TRANSIDENTY IF NO EMPTHY FIELDS @ P* @ P @ PCON400 @ P CALL EMPTYT,:FMTITEM @ P BE CON450 NOT
0x40149c…401630 Dummy {f00=0x0145, f01=0x0190, f02=»OK CON430 @ P BN CONRET ALL FIELD DONE A & P B CONER1 COMPULSORY FIELD EMPTHY A 4 PCON430 A ^ P GETCTL 0,VSEIND GET APPL A l , P CBE VSEIND,W1,CON090 APPL =1 NEXT BLOCK A 4 P CBE VSEIND,=W'3001',CON090 APPL =1 NEXT RECORD A 4 P CBE VSEIND,=W'500
0x401630…4017c4 Dummy {f00=0x0145, f01=0x0190, f02=»OVE BCD13A,VSEIND GET TRANSIDENTY A $ P EDSUB BPOOL(BIN9),BIN16,FRMTID B * ( P MOVE BIN13,W3 ADJUST DELETE POINTER B R & P MOVE BIN16,W3 ADJUST EDIT POINTER B ~ P B CON190 B P B PCONRET RET ALL DONE B & PCONTRM RET 2 WRITE/TRANSMIT BLOCK B ( P
0x4017c4…401958 Dummy {f00=0x0145, f01=0x0190, f02=» P EJECT C P* C P* FORMATS C P* C . P C 8 P C @ PFCOUNT FRMT C H P FTEXT ' 1' C P FEOR NEW PAGE C p P FILLR ' ',2 C P FILLR '*',10 C P FTEXT 'NUMBER: ' C P FMEL '9999',NUMBER C P FEOR C P FILLR ' ',2 C
0x401958…401aec Dummy {f00=0x0145, f01=0x0190, f02=» ',62 C P FMEND D P D PFRMEOF FRMT D $ P FSL D 8 P FCOPY =X'19' D D P FILLR ' ',62 D Z P FILLR ' ',62 D p P FMEND D P D PFRMC01 FRMT D P FSL D P FLINK FFD001 D P FMEND D P D PFRMVOL1 FRMT D P FCOPY STSAV
0x401aec…401c80 Dummy {f00=0x0145, f01=0x018e, f02=»MEND D P EJECT E PFBATC1 FRMT E P FLINK FBATCH E . P FTEXT 'EJ AVST[MD' E D P FEOR E ` P FNL E n P FMEND E z P E PFBATC2 FRMT E P FLINK FBATCH E P FTEXT 'NUMBER: ' E P FMEL '9999',BCD13A E P FILLR ' ',4 E P FTE
0x401c80…401e14 (6, 193) Dummy {f00=0x0145, f01=0x0190, f02=» E z P FEOR F P FMEND F P F $ PFBATCH FRMT F , P FNL F @ P FEOR F L P FNL F Z P FTEXT 'JOBNAME: ' F f P FCOPY JOBNAME F P FILLR ' ',4 F P FTEXT 'BATCHNAME: ' F P FCOPY BATCH F P FILLR ' ',4 F P FMEND F P F PFDCH
0x401e14…401fa8 Dummy {f00=0x0145, f01=0x0190, f02=» F P FEOR G P FNL G P FTEXT 'S[NDNING' G " P FTEXT ' KLAR' G < P FLINK HDR G R P FEOR G d P FNL G r P FMEND G ~ P G PFDCERR FRMT G P FNL G P FEOR G P FNL G P FTEXT 'S[NDNING' G P FTEXT ' AVBRYTS' G P FLINK
0x401fa8…40213c Dummy {f00=0x0145, f01=0x0190, f02=» G ~ P FLINK HDR H P FMEND H P H ( PFFREND FRMT H 0 P FNL H D P FEOR H P P FNL H ^ P FTEXT 'FRYSNING KLAR' H j P FLINK HDR H P FEOR H P FNL H P FMEND H P H PFFDHDR FRMT H P FNL H P FEOR H P FNL H " P FTE
0x40213c…4022d0 Dummy {f00=0x0145, f01=0x0190, f02=»XT 'FLOPPY DISC SKRIVNING' H P FTEXT ' KLAR' I " P FLINK HDR I 8 P FEOR I J P FNL I X P FMEND I d P I r PFFDERR FRMT I z P FNL I P FEOR I P FNL I " P FTEXT 'FLOPPY DISC SKRIVNING' I P FTEXT ' AVBRYTS' I P FLINK HDR I P F
0x4022d0…402464 Dummy {f00=0x0145, f01=0x0190, f02=» FILLR ' ',4 I P FTEXT 'TID: ' J P FMEL '99-99-99',TIME J * P FEOR J H P FNL J V P FMEND J b P EJECT J p PFCAS02 FRMT J ~ P FSL J P FCOPY =C'DEVICE' J P FILLR ':',1 J P FINP 9 J P FCOPY STSAVE(W3) J P FTAB 20 J P F
0x402464…4025f8 Dummy {f00=0x0145, f01=0x0190, f02=» P FCOPY =C'EXPIRATION DATE:' K P FINP 32 K ( P FCOPY STR6A K 8 P FNL K L ( P FCOPY =C'OLD DATA SET IDENTIFIER:' K X P FINP 32 K P FCOPY STR6B K P FNL K & P FCOPY =C'OLD VOLUME SEQUENCE NO:' K P FINP 32 K P FCOPY STR2A K P FNL K
0x4025f8…40278c Dummy {f00=0x0145, f01=0x0190, f02=» K PFFD001 FRMT L P FCOPY =C'001' L P FMEL '999999',DATE L 2 P FILLR ' ',60 L N P FILLR ' ',56 L d P FMEND L z P L PFFD999 FRMT L P FCOPY =C'999' L P FILLR ' ',60 L P FILLR ' ',62 L P FMEND L P EJECT L PFRMALP
0x40278c…402920 Dummy {f00=0x0145, f01=0x40d8, f02=»MEND L P EJECT M PFRMBCS FRMT M , P FMEL '999999999999999999999+',:FMTITEM M . P FMEND M ^ P M l P M t PFRMTID FRMT M | P FMEL '999',BCD13A M P FMEND M P M P M P END M @ M ',62 L P FMEND L P EJECT L PFRMALP
0x402920…402ab4 (6, 194) Dummy {f00=0x0145, f01=0x2008, f02=» N 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
0x402ab4…402c48 Dummy {f00=0x0145, 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
0x402c48…402ddc Dummy {f00=0x0145, 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
0x402ddc…402f70 Dummy {f00=0x0145, 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
0x402f70…403104 Dummy {f00=0x0145, f01=0x0190, f02=»FINITION OR ON SYSTEM-DISC:)!2<%&9 $ #1>(@5GD73., -=?0C/ ;B+FE666666666A4 " 8' & / : F R ^ k z 2 G ] t
0x403104…403298 Dummy {f00=0x0145, f01=0x0190, f02=» , 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g2e x y" e @ TW( ' )g2 @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 09 {$* p!0 08 x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x403298…40342c Dummy {f00=0x0145, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( / Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 0 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g3 #gYuP W j ! x0 , + & # ( #3_
0x40342c…4035c0 Dummy {f00=0x0145, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 0 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g3 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g2 ' 4WAH !W9AlHl
0x4035c0…403754 (6, 195) Opaque[0x194]
0x403754…4038e8 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28b8, f03=0x0000}
0x403754…4038e8 IdxSect {
0x403754…4038e8 f00 = 0x0145 // 0x403754 @0x0
0x403754…4038e8 f01 = 0x0004 // 0x403756 @0x2
0x403754…4038e8 gno = [ // 0x403758 @0x4
0x403754…4038e8 [0x00]: C0x0145.0x3.0
0x403754…4038e8 [0x01]: C0x0146.0x0.0
0x403754…4038e8 ]
0x403754…4038e8 }
0x4038e8…403a7c Dummy {f00=0x0145, 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
0x403a7c…403c10 Dummy {f00=0x0145, 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
0x403c10…403da4 Dummy {f00=0x0145, 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'
0x403da4…403f38 Dummy {f00=0x0145, 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
0x403f38…4040cc Dummy {f00=0x0145, 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
0x4040cc…404260 Dummy {f00=0x0145, 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
0x404260…4043f4 (6, 196) Dummy {f00=0x0146, 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
0x4043f4…404588 Dummy {f00=0x0146, 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
0x404588…40471c Dummy {f00=0x0146, 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
0x40471c…4048b0 Dummy {f00=0x0146, 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
0x4048b0…404a44 Dummy {f00=0x0146, 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
0x404a44…404bd8 Dummy {f00=0x0146, 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 *
0x404bd8…404d6c Dummy {f00=0x0146, 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
0x404d6c…404f00 Dummy {f00=0x0146, 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
0x404f00…405094 (6, 197) Opaque[0x194]
0x405094…405228 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x28c8, f03=0x0000}
0x405094…405228 IdxSect {
0x405094…405228 f00 = 0x0146 // 0x405094 @0x0
0x405094…405228 f01 = 0x0004 // 0x405096 @0x2
0x405094…405228 gno = [ // 0x405098 @0x4
0x405094…405228 [0x00]: C0x0146.0x1.0
0x405094…405228 [0x01]: C0x0146.0x2.0
0x405094…405228 ]
0x405094…405228 }
0x405228…4053bc Dummy {f00=0x0146, 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
0x4053bc…405550 Dummy {f00=0x0146, f01=0x0190, f02=»DKRUT1 PINC DKRUT2 PINC DKRUT3 PNOD 2 PINC DKRUT4 > PINC DEPOOL P PINC DENT01 b PNOD t PINC DENTER PINC DENT03 PINC DERROR PNOD PINC DENVAL PINC DEGENE PINC DECOMP PINC DESTAT
0x405550…4056e4 Dummy {f00=0x0146, f01=0x0190, f02=» PINC DEFDSC PNOD PINC DE20ST " PINC DE21ST 4 PINC DE23ST F PINC DE24ST X PINC DE20FS j PNOD | PINC DECVRT PINC DEPRFG PINC DEUNPF PNOD PINC DEPROC PINC DEVGAC PINC DEATTF PNOD
0x4056e4…405878 Dummy {f00=0x0146, f01=0x0190, f02=»INC DE60ST PINC DE70ST PNOD $ PINC DERECS 0 PINC DEREC2 B PINC DEACCU T PTLK U,4K f PLKE M v KPF /L,DELINK PEND P$LINKLI PDEL DELINK,/L PSCR /O PNOD C PINC PTSDE PINC DEDISC
0x405878…405a0c Dummy {f00=0x0146, f01=0x0190, f02=»/L,DELINK PEND P$PRDLNK PDEL PRDAPL,/L . PSCR /O D PNOD C R PINC PTSDE ` PINC DEDISC r PINC DELOCK PINC DEAPPU PNOD PINC DKRUT1 PINC DKRUT2 PINC DKRUT3 PNOD PINC DKRUT4 P
0x405a0c…405ba0 Dummy {f00=0x0146, f01=0x0190, f02=»DEGENE PINC DECOMP PINC DESTAT PINC DENT02 2 PNOD D PINC DE10ST P PINC DE11ST b PINC DE12ST t PINC DE1201 PINC DE14ST PINC DE15ST PINC DEFDSC PNOD PINC DE20ST PINC DE21ST PINC DE23ST
0x405ba0…405d34 (6, 198) Dummy {f00=0x0146, f01=0x0190, f02=» PINC DEVGAC PINC DEATTF PNOD ( PINC DE30ST 4 PINC DE31ST F PNOD X PINC DECONV d PINC DCTASK v PNOD PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD PINC DERECS PINC DEREC2
0x405d34…405ec8 Dummy {f00=0x0146, f01=0x0084, f02=»3,DK PPOB PRUN OBX PEND ( P$TRA 4 PTRA @S= @ PKPF /O P PXRF @S= ^ PSKF 2 n PEND | PNOD PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD PINC DERECS PINC DEREC2
0x405ec8…40605c Dummy {f00=0x0146, f01=0x2008, f02=» PPOB PRUN OBX PEND ( P$TRA 4 PTRA @S= @ PKPF /O P PXRF @S= ^ PSKF 2 n PEND | PNOD PINC DE40ST PINC DE50ST PINC DE60ST PINC DE70ST PNOD PINC DERECS PINC DEREC2
0x40605c…4061f0 Dummy {f00=0x0146, f01=0x0190, f02=» $ 1 DEFINITION $ 1 * & : & 22 H BALANCE X $ 2 p & - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x4061f0…406384 Dummy {f00=0x0146, 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
0x406384…406518 Dummy {f00=0x0146, 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
0x406518…4066ac Dummy {f00=0x0146, 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
0x4066ac…406840 Dummy {f00=0x0146, 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
0x406840…4069d4 (6, 199) Opaque[0x194]
0x4069d4…406b68 # DirEnt {nam=»FDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28d8, f03=0x0000}
0x4069d4…406b68 IdxSect {
0x4069d4…406b68 f00 = 0x0146 // 0x4069d4 @0x0
0x4069d4…406b68 f01 = 0x0004 // 0x4069d6 @0x2
0x4069d4…406b68 gno = [ // 0x4069d8 @0x4
0x4069d4…406b68 [0x00]: C0x0146.0x3.0
0x4069d4…406b68 [0x01]: C0x0147.0x0.0
0x4069d4…406b68 ]
0x4069d4…406b68 }
0x406b68…406cfc Dummy {f00=0x0146, 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
0x406cfc…406e90 Dummy {f00=0x0146, 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
0x406e90…407024 Dummy {f00=0x0146, 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
0x407024…4071b8 Dummy {f00=0x0146, 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
0x4071b8…40734c Dummy {f00=0x0146, 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
0x40734c…4074e0 Dummy {f00=0x0146, 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
0x4074e0…407674 (6, 200) Dummy {f00=0x0147, 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
0x407674…407808 Dummy {f00=0x0147, 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 @
0x407808…40799c Dummy {f00=0x0147, 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 >
0x40799c…407b30 Dummy {f00=0x0147, 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 >
0x407b30…407cc4 Dummy {f00=0x0147, 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 >
0x407cc4…407e58 Dummy {f00=0x0147, 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 >
0x407e58…407fec Dummy {f00=0x0147, 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 >
0x407fec…408180 Dummy {f00=0x0147, 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 >
0x408180…408314 (6, 201) Opaque[0x194]
0x408314…4084a8 # DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x408314…4084a8 IdxSect {
0x408314…4084a8 f00 = 0x0147 // 0x408314 @0x0
0x408314…4084a8 f01 = 0x0008 // 0x408316 @0x2
0x408314…4084a8 gno = [ // 0x408318 @0x4
0x408314…4084a8 [0x00]: C0x0147.0x1.0
0x408314…4084a8 [0x01]: C0x0147.0x2.0
0x408314…4084a8 [0x02]: C0x0147.0x3.0
0x408314…4084a8 [0x03]: C0x0148.0x0.0
0x408314…4084a8 ]
0x408314…4084a8 }
0x4084a8…40863c Dummy {f00=0x0147, 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*
0x40863c…4087d0 Dummy {f00=0x0147, 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
0x4087d0…408964 Dummy {f00=0x0147, 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
0x408964…408af8 Dummy {f00=0x0147, 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
0x408af8…408c8c Dummy {f00=0x0147, 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
0x408c8c…408e20 Dummy {f00=0x0147, 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
0x408e20…408fb4 (6, 202) Dummy {f00=0x0147, 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
0x408fb4…409148 Dummy {f00=0x0147, 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
0x409148…4092dc Dummy {f00=0x0147, 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
0x4092dc…409470 Dummy {f00=0x0147, 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
0x409470…409604 Dummy {f00=0x0147, 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
0x409604…409798 Dummy {f00=0x0147, 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
0x409798…40992c Dummy {f00=0x0147, 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*
0x40992c…409ac0 Dummy {f00=0x0147, 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
0x409ac0…409c54 (6, 203) Dummy {f00=0x0147, 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
0x409c54…409de8 Dummy {f00=0x0147, 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
0x409de8…409f7c Dummy {f00=0x0147, 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
0x409f7c…40a110 Dummy {f00=0x0147, 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'
0x40a110…40a2a4 Dummy {f00=0x0147, 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
0x40a2a4…40a438 Dummy {f00=0x0147, 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
0x40a438…40a5cc Dummy {f00=0x0147, 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
0x40a5cc…40a760 Dummy {f00=0x0147, 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
0x40a760…40a8f4 (6, 204) Dummy {f00=0x0148, 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
0x40a8f4…40aa88 Dummy {f00=0x0148, 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
0x40aa88…40ac1c Dummy {f00=0x0148, 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
0x40ac1c…40adb0 Dummy {f00=0x0148, 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
0x40adb0…40af44 Dummy {f00=0x0148, f01=0x2008, f02=»
0x40af44…40b0d8 Dummy {f00=0x0148, f01=0x4030, f02=» # #_ 4 4 4 4 4 ~ @ , $ $ ) 8 & H & V ( d * p & ( + " , 999999999999999999999O " , ( - " . 9999
0x40b0d8…40b26c Dummy {f00=0x0148, 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
0x40b26c…40b400 Dummy {f00=0x0148, f01=0x0190, f02=» & & 6! & ( & " & . & 7! & > ( & L & X & 8! & h ( & v & & 9! & ( & & & :! & ( & & & ;! & ( & !
0x40b400…40b594 (6, 205) Opaque[0x194]
0x40b594…40b728 # DirEnt {nam=»PRDAPL«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2908, f03=0x0000}
0x40b594…40b728 IdxSect {
0x40b594…40b728 f00 = 0x0148 // 0x40b594 @0x0
0x40b594…40b728 f01 = 0x002a // 0x40b596 @0x2
0x40b594…40b728 gno = [ // 0x40b598 @0x4
0x40b594…40b728 [0x00]: C0x0148.0x1.0
0x40b594…40b728 [0x01]: C0x0148.0x2.0
0x40b594…40b728 [0x02]: C0x0148.0x3.0
0x40b594…40b728 [0x03]: C0x0149.0x0.0
0x40b594…40b728 [0x04]: C0x0149.0x1.0
0x40b594…40b728 [0x05]: C0x0149.0x2.0
0x40b594…40b728 [0x06]: C0x0149.0x3.0
0x40b594…40b728 [0x07]: C0x014a.0x0.0
0x40b594…40b728 [0x08]: C0x014a.0x1.0
0x40b594…40b728 [0x09]: C0x014a.0x2.0
0x40b594…40b728 [0x0a]: C0x014a.0x3.0
0x40b594…40b728 [0x0b]: C0x014b.0x0.0
0x40b594…40b728 [0x0c]: C0x014b.0x1.0
0x40b594…40b728 [0x0d]: C0x014b.0x2.0
0x40b594…40b728 [0x0e]: C0x014b.0x3.0
0x40b594…40b728 [0x0f]: C0x014c.0x0.0
0x40b594…40b728 [0x10]: C0x014c.0x1.0
0x40b594…40b728 [0x11]: C0x014c.0x2.0
0x40b594…40b728 [0x12]: C0x014c.0x3.0
0x40b594…40b728 [0x13]: C0x014d.0x0.0
0x40b594…40b728 [0x14]: C0x014d.0x1.0
0x40b594…40b728 ]
0x40b594…40b728 }
0x40b728…40b8bc Dummy {f00=0x0148, f01=0x0190, f02=»BD L :CR l D 5 |D > |D I D T D _ D j D u D ~ D D D D ` pCB1 @
0x40b8bc…40ba50 Dummy {f00=0x0148, f01=0x0190, f02=» N ( a 6 P
0x40ba50…40bbe4 Dummy {f00=0x0148, f01=0x0190, f02=» n
0x40bbe4…40bd78 Dummy {f00=0x0148, f01=0x0190, f02=»
[…0x1…]
0x40bf0c…40c0a0 Dummy {f00=0x0148, f01=0x0190, f02=» n 6 $ B 8
0x40c0a0…40c234 (6, 206) Dummy {f00=0x0148, f01=0x0190, f02=» " " ? < DC a GP 6 FD DLU FRO B . D Z p - r -
0x40c234…40c3c8 Dummy {f00=0x0148, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?'Z
0x40c3c8…40c55c Dummy {f00=0x0148, f01=0x0190, f02=» M U t ~ 0 * B 0 0 0
0x40c55c…40c6f0 Dummy {f00=0x0148, f01=0x0190, f02=» B @
0x40c6f0…40c884 Dummy {f00=0x0148, f01=0x0190, f02=» . D2 x * ( `@ @ & 0
0x40c884…40ca18 Dummy {f00=0x0148, f01=0x0190, f02=» ^ dBD n 2 3 d 1 ` h l lB@ 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 ( 0 P 0
0x40ca18…40cbac Dummy {f00=0x0148, f01=0x0190, f02=»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 !! %
0x40cbac…40cd40 Dummy {f00=0x0148, f01=0x0190, f02=» !"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 * * 4 &
0x40cd40…40ced4 (6, 207) Dummy {f00=0x0148, f01=0x0190, f02=»&" &'z'~' ! 3 l @ 6 < E D j3 63 % [ a ~ $ D ~ e ) 1 @ | H B "
0x40ced4…40d068 Dummy {f00=0x0148, f01=0x0190, f02=» TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS1 99XXXXXXXXXXXXXXXXXXXXXXX-
0x40d068…40d1fc Dummy {f00=0x0148, f01=0x0190, f02=» U U RETURN FROM DATA-ENTRY U h d ' . ) e e @ " f d
0x40d1fc…40d390 Dummy {f00=0x0148, f01=0x0190, f02=»- - 40 ! 50 % 60 & / $ ( - 2 7 = C I O V ] d l t | 0 0 ! ' . 5 < D L T ]
0x40d390…40d524 Dummy {f00=0x0148, f01=0x0190, f02=» 7 7 & 7 &9B %W _ 60 7 F C W ( = Wn _ 7 & 7 & 7 ( : H P< P8 <<HT _ R <A_ <A <a ^ <h = F F ) 7 ' B H 7 & X X X* T Z0 I R < _ <h =_H ^L
0x40d524…40d6b8 Dummy {f00=0x0148, f01=0x0190, f02=» Q WR _< _B 60 7 C 7 ( B T B $ ' Y 7 ' B _ 7 7 : 7 7 7 7 7 P < C 9h9G & C 9b! 8 #_h B " ' ""? 99g! ":e" B =_ _f 7 7 & 9_ 60 @ # 7
0x40d6b8…40d84c Dummy {f00=0x0148, f01=0x0190, f02=» _> 7 7 7 7 P 8# ' Y = # _ _ _ _ _ 7 7 ' 7 _ 7 & 7 ]8 Z YB_J W 60 7 & C 7 7 & C 7 & C C ( B X _ W & Y < * C _& 60 7 7 P )
0x40d84c…40d9e0 Dummy {f00=0x0148, f01=0x0190, f02=» Y E . B 7 2t X ' 7 X P &V Y , X Y / X Y )0 7 2t & Y _P W _ 7 P2 T !00R$ !99Q $ Y T U U _6 T P Y P 7 V E B 7 7 P P V 6
0x40d9e0…40db74 (6, 208) Dummy {f00=0x0149, f01=0x0190, f02=»7 & C A T #W T # C C 4 7 7$ & + P _ B 7 7 ;d # + B 7 #0 0T & ! T P & ! X T C B % & ) Y ( x P Y * #d x y Wv X " "T X X . 8 & 2t X 0P X
0x40db74…40dd08 Dummy {f00=0x0149, f01=0x0190, f02=» C ( B Ph9 R^9 $ X !@PP X X * b ) Y * Y , X , ) x X *YrP y X " x Y X " T Y _ %j_ B U C Q C D"r"t" " " $ $ # X X * $" ~_> @ Y X * ! _R X !@XX y X # x V y X X * ) P P 1
0x40dd08…40de9c Dummy {f00=0x0149, f01=0x0190, f02=» X $ " P y _ x T % $ X H X X * , )$ P _ : % ' Y 7( & y x C y X C C X ( x Tf B % 9 R 9 $ X ! T %j_ y C Q " T ) ) X ! % X X ! x Y~ Y
0x40de9c…40e030 Dummy {f00=0x0149, f01=0x0190, f02=» y " y $ c 2^ C _$ _ % y _6 # x X@ X ) X # ) C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ) % $, x X X # ) _ B % C ) : + ) X ) ) ( 2 7 ( 2 2 : B % C
0x40e030…40e1c4 Dummy {f00=0x0149, f01=0x0190, f02=» 2 7 2 7 9 2t X "T X 2^ ) 2j 2t 7 X 2p & 2 2 ' 7 ! Y 0T V 2 9 : 2t 2' 7 R P P X ' ' B X _ X ' _ X '?_ 2t 7 X ' 2p X ! 2 2^ 2t X
0x40e1c4…40e358 Dummy {f00=0x0149, f01=0x0190, f02=»9h Q X :h Y 0 * W U X Q +fW Y 0 * + 60 5 2t 9H Y * )dW W )T 5 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 2t X *!
0x40e358…40e4ec Dummy {f00=0x0149, f01=0x0190, f02=» B ] 5 : )T X +! U 9K Y ( Y + * + 2t9H Y * 2 Y ( Y > Y + 7 4 0 7 6 2 : C ( C : C B _( _ X ) ) P ) B _N ( 2 X D D : K + Q 2 P. P8 7 >r
0x40e4ec…40e680 Dummy {f00=0x0149, f01=0x0190, f02=»+d Y ( Y *P 5 <( *Z X <' X X <` 2t X *# X ( " Qp " P X 0P: Vp_` " P4 T 0` 2 WT " P Y 0] Y (_t " X _. 5n X *# P B 1 5nW " P X X$ C : X *! P 5 2 C W @ X (T W X y 6 Y
0x40e680…40e814 (6, 209) Dummy {f00=0x0149, f01=0x0190, f02=» :H 2| + K T >*W > X . X 2QH Y *T2 > : " P$ X 0U X *# P P T " T : Y . 0` Y ( =T 2t Y *T " T ! 1 W ! ) > : 2t = D` P & Y *T , : X > T X & V D ! T W > 1 2t X >P( R Q" X &
0x40e814…40e9a8 Dummy {f00=0x0149, f01=0x0190, f02=»U /t Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P / P< / WZ X ! X $" P<Q X (# P2 X # :! R$W / / T$ @ Y (W Y , 0`W 0~ Y ( =T : X *:h X (! # P X & V L TbW X , X 0P@ / T, X *:h XF XL
0x40e9a8…40eb3c Dummy {f00=0x0149, f01=0x0190, f02=»P X ( T X & V H "@TF / P6 V Y X (P 1 0 X (P / 2 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 1 7 8 V Y 8 : " P X & V ( P / : : / "0P $ T W %T : : Y ( X $ Y X " Y X
0x40eb3c…40ecd0 Dummy {f00=0x0149, f01=0x0190, f02=» X @W X < Y = " 2 ! T W D ! P =H D 1& X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X 2|W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 7 W
0x40ecd0…40ee64 Dummy {f00=0x0149, f01=0x0190, f02=» 5 2 C 2j X 2| : "0P ' Q W ' Y : W 7 V = 2t Y Y Y < V E B B X _ v : C C 5 : C 5 :( R : V E V D ' $ T ( W 2 P B X =' V W V Y
0x40ee64…40eff8 Dummy {f00=0x0149, f01=0x0190, f02=» B 7 7 V B W 5 4 3 / 4 _ 60 6 6x P 7 <H : 3 W 60 6x 7 &P B V C / <H : 60 6 C C W 6 C C J4 ' W 781"&$ 39#$;< '()*+,-! 6 6 6x 7 P _D 60 B 7 'W 60
0x40eff8…40f18c Dummy {f00=0x0149, f01=0x0190, f02=»P$ "! P A W B % P C + @ B 5 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 60 5 < 5p C 5 C B B P C 5 : V I C B : ( ' P 5 I : 60 6x % Y 7( C 7 & R
0x40f18c…40f320 Dummy {f00=0x0149, f01=0x0190, f02=» ;D:B " : _ 7 C : : 60 6 "! P A : 7 P C W $0 P C @& : C "!@P ") # B C B % C : H P L T :l:d:h 7 W W P W 6 2# 9hW4 @ ^ E7 " T> ; [ # 9H:H 2
0x40f320…40f4b4 (6, 210) Dummy {f00=0x0149, f01=0x0190, f02=» Pd" # 9H ;b Wv " ;d# _ [ v [ 2 7 2 Z Z : R ; 7 6 : F _v :B , (Vr ; H [ [ [ 7 z ;AV$ Z H # 9 ; 7 : & Z 4 9 :
0x40f4b4…40f648 Dummy {f00=0x0149, f01=0x0190, f02=» ( :A ( :mT @ `" P ! P [ :;H 2 7 80;h 9R : ; V Y : 2! : 6 2 9hW& " # 9H;b ; : ;f" #?_"$0#0;b ;R P P PF P 0 - P0 _ 4 V W Q P ) P 9
0x40f648…40f7dc Dummy {f00=0x0149, f01=0x0190, f02=»! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 +
0x40f7dc…40f970 Dummy {f00=0x0149, f01=0x0190, f02=»D = >r= = D D D D >@=T>J= >*DVDV>^> D > <t 6 =" K K K K V K : 7 <8 <( <t 7 V = =" = V Z P 2 " T W "@T '?W "? H; " K :e J J " J _Z Z = [ Z P 2
0x40f970…40fb04 Dummy {f00=0x0149, f01=0x0190, f02=» : n n : <8 J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K >hWJ >&W +_ >@ >< K W. _& X 5nW X & 5j J K : V : 1 : + 7 [ [ < !AAP !TTT W !**T * [ R !FFP !
0x40fb04…40fc98 Dummy {f00=0x0149, f01=0x0190, f02=» FW@ :P # U 1 > !00T ; >j _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W > 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 7 #0 T & C
0x40fc98…40fe2c Dummy {f00=0x0149, f01=0x0190, f02=»4 _P :#0 T B 'W B B " @ : PA A PR LAv R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 A
0x40fe2c…40ffc0 Dummy {f00=0x0149, f01=0x0190, f02=»H C C C C C B C C < L K KTKrL K.DLDHDRDT 2 W V 7 @ ! P 2 P W Br CL 9c DA 7 7 Q B W Fn :aW _B( 2 P V W8 _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R
0x40ffc0…410154 (6, 211) Dummy {f00=0x0149, f01=0x0190, f02=»' T 2 % 7_ 2 # L 2 7 2" &] Y $! 6P Q $ T 9B B _ _ 6 @ `" T 7 $ V P 2 W _ A B 9 V & B HBH 'W 'W '_6 = D` : ! P ! P ! P ! P 7 ! P 7 W
0x410154…4102e8 Dummy {f00=0x0149, f01=0x0190, f02=» ( _ W " T & T + : * & !@P `1` P F Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _
0x4102e8…41047c Dummy {f00=0x0149, f01=0x0190, f02=» & : * & !`P :J +_ +Q F _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 ) " TV *V &V : V S W
0x41047c…410610 Dummy {f00=0x0149, f01=0x0190, f02=» [ J 9 J 9 J E Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P J E V H )_ J H _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V
0x410610…4107a4 Dummy {f00=0x0149, f01=0x0190, f02=» [ [ [ [ $ [ [ &! P J J 9 J 9 J E z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z J F Q J H P _ T { [ J J [ Q@ [ J E { R [ _ J E J H Z ! Z
0x4107a4…410938 Dummy {f00=0x0149, f01=0x0190, f02=» X" ,9 -9d_ Z H D & H D % [ ( Lt < : { : L Ll PX 9 _ L [ L Z : R" P $ 1T Y W 5 _$ : L $ R W R # P W )
0x410938…410acc Dummy {f00=0x0149, f01=0x0190, f02=» : : 7 7 jP kT T : & 9! " : $ : Lt 7 $ : z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z F Q H P _ T { [ [ Q [ E { R [ _ E H Z ! Z
0x410acc…410c60 Dummy {f00=0x0149, 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*
0x410c60…410df4 (6, 212) Dummy {f00=0x014a, 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
0x410df4…410f88 Dummy {f00=0x014a, 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
0x410f88…41111c Dummy {f00=0x014a, 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 ?@
0x41111c…4112b0 Dummy {f00=0x014a, 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
0x4112b0…411444 Dummy {f00=0x014a, 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
0x411444…4115d8 Dummy {f00=0x014a, 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<
0x4115d8…41176c Dummy {f00=0x014a, 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
0x41176c…411900 Dummy {f00=0x014a, 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<
0x411900…411a94 (6, 213) Dummy {f00=0x014a, f01=0x0190, f02=» | U d R p t xApAt : 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
0x411a94…411c28 Dummy {f00=0x014a, 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
0x411c28…411dbc Dummy {f00=0x014a, 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
0x411dbc…411f50 Dummy {f00=0x014a, 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 & '&
0x411f50…4120e4 Dummy {f00=0x014a, 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 !
0x4120e4…412278 Dummy {f00=0x014a, 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
0x412278…41240c Dummy {f00=0x014a, 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
0x41240c…4125a0 Dummy {f00=0x014a, 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
0x4125a0…412734 (6, 214) Dummy {f00=0x014a, 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
0x412734…4128c8 Dummy {f00=0x014a, f01=0x0190, f02=» !g2 @m?:?;@ _/0 + 0 , A~4 @~P + , 4 _ ; $ - ; Y g , $ C 3 N + l z g O m
0x4128c8…412a5c Dummy {f00=0x014a, f01=0x0190, f02=» G V R *FTX J BC JC FTJBJD FETCHING FORMAT: FROM DISC. @ UF 0 % * $ h h Ub & 5 +@mA{ *V#( - 1 0 ! 0# { &{ mU_"@{Ao? m
0x412a5c…412bf0 Dummy {f00=0x014a, 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 ! _
0x412bf0…412d84 Dummy {f00=0x014a, 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 !?
0x412d84…412f18 Dummy {f00=0x014a, f01=0x0190, f02=»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 # T 2 ' 0' T 2 )**? 2 ***0. 8+J ?+ ?
0x412f18…4130ac Dummy {f00=0x014a, f01=0x0190, f02=»0& 0 H { ,W H s +0* 0' P 0 Q ,8/?0A 0& !01 02 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 " @
0x4130ac…413240 Dummy {f00=0x014a, 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
0x413240…4133d4 (6, 215) Dummy {f00=0x014a, 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
0x4133d4…413568 Dummy {f00=0x014a, 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
0x413568…4136fc Dummy {f00=0x014a, 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
0x4136fc…413890 Dummy {f00=0x014a, 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
0x413890…413a24 Dummy {f00=0x014a, 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/
0x413a24…413bb8 Dummy {f00=0x014a, 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
0x413bb8…413d4c Dummy {f00=0x014a, 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 <
0x413d4c…413ee0 Dummy {f00=0x014a, 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 !
0x413ee0…414074 (6, 216) Dummy {f00=0x014b, 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~ "~
0x414074…414208 Dummy {f00=0x014b, 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| "
0x414208…41439c Dummy {f00=0x014b, 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 !
0x41439c…414530 Dummy {f00=0x014b, 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
0x414530…4146c4 Dummy {f00=0x014b, 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& >
0x4146c4…414858 Dummy {f00=0x014b, 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
0x414858…4149ec Dummy {f00=0x014b, 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+-
0x4149ec…414b80 Dummy {f00=0x014b, 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
0x414b80…414d14 (6, 217) Dummy {f00=0x014b, f01=0x0190, f02=»FF* RECOVERY OF : k B : l RUNNING. ( ',!.%)$&"#-* $ * 0 7 ? G P Y c0 m * 5 A Q c w
0x414d14…414ea8 Dummy {f00=0x014b, f01=0x0190, f02=» ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h* h _? ! 4 6 99 W 2 !8 "8 #8 W j " # I j " "# J|j " $# Jr? ! !6 +; ^# 7Zb !" Mj !# 'bc (c" 3? 1? < > W' ## 6 ! < " 5 " " ! T T
0x414ea8…41503c Dummy {f00=0x014b, f01=0x0190, f02=»2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 4 R ! 4 Hd ? ! 8T & ( !0 #$}? ) _ ! Nb "" " < $ U@f@e0 " An 2 _ ! 9 ! > : W ; " ! j " j $" Af07~ 0 "P 07~ j~#!
0x41503c…4151d0 Dummy {f00=0x014b, f01=0x0190, f02=»e ! 8R AnW* ! " _W) !$ ! $ W !W 8P )B? 0: (+0; +@eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Mb !# ~ " ~ T $ 0: (+? - !?
0x4151d0…415364 Dummy {f00=0x014b, f01=0x0190, f02=»~ ~ RR j !! !07~ j " K0 "P L07~ " !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 ! " _ 0# 6 A _ $Gv ?
0x415364…4154f8 Dummy {f00=0x014b, f01=0x0190, f02=» ?$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& :%0$ P8:% _ 0 && du d ! 0 ## #_* 5 ! !( % A _
0x4154f8…41568c Dummy {f00=0x014b, f01=0x0190, f02=»I IjO2 *+,)),,,,,,,,,-. !0* / 2 /01.W$0/ Am6 ! bC I .4 ?2 "(0/ _*Am #03W 04W 0#W X Z [ +( H I C_ 1% _ T 1% !05 ?3 2 ))$?3 W #0. T %y0 %%_ W}?4( 0(W !0* ( 1% ?306 . ?5Hi He 0 ( #0 T ,I
0x41568c…415820 Dummy {f00=0x014b, f01=0x0190, f02=»$$$$$$89$$:;<$=>?2 $$$$77$$$$$$$89$$@$$$A0 %% ( @h u!He8Kh 0 % $?B0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ?C@ ( !"_cA $?B0 && u! !eJh ?C0 &&A % Ad@ @ #?BA @ u!Jh _ @ !^A _DA ( .He @h u!Kh ( ! u! du d !
0x415820…4159b4 (6, 218) Dummy {f00=0x014b, f01=0x0190, f02=» R * E J q 0 > % i { T b " V c V f
0x4159b4…415b48 Dummy {f00=0x014b, f01=0x0190, f02=»ERFILEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENTS11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS XZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XX T 1 0 * h d [ ^ ] X [ Q f ! R g
0x415b48…415cdc Dummy {f00=0x014b, f01=0x0190, f02=»! X% @ @ " X% A @ # X% B @ $ X% C @ % X% D @ & X% E @ ' X% F @ ( X% G @ ) X% H @ * U ! # % ' ) + - / 1 3 6 : > C
0x415cdc…415e70 Dummy {f00=0x014b, f01=0x0190, f02=» LEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACE15 FILE-SPACEUSERFILE UNITNAME CONTENTS11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS XZZ9ZZZZ9999999XXE-XXE-XXXXE.XXE.XX T 1 0 * h d [ ^ ] X [ Q f ! R g
0x415e70…416004 Dummy {f00=0x014b, 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 $ $< ?
0x416004…416198 Dummy {f00=0x014b, 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 ? @ ?
0x416198…41632c Dummy {f00=0x014b, 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
0x41632c…4164c0 Dummy {f00=0x014b, 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
0x4164c0…416654 (6, 219) Dummy {f00=0x014b, 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 &{
0x416654…4167e8 Dummy {f00=0x014b, 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 &{ _
0x4167e8…41697c Dummy {f00=0x014b, f01=0x0190, f02=» 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4 & # c # ( ' #j ! #! !j # ` #4 & $ ( ( $j ! $! !j $ $4 0
0x41697c…416b10 Dummy {f00=0x014b, 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 ! !
0x416b10…416ca4 Dummy {f00=0x014b, f01=0x0190, f02=» wHj $ # 4 j y C o 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x416ca4…416e38 Dummy {f00=0x014b, 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 ;
0x416e38…416fcc Dummy {f00=0x014b, f01=0x0190, f02=» ! # * M C Q @ : : 7 7 $ l 0 C v h o 9 - X V y 7 N & " ' v
0x416fcc…417160 Dummy {f00=0x014b, 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!
0x417160…4172f4 (6, 220) Dummy {f00=0x014c, 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
0x4172f4…417488 Dummy {f00=0x014c, 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 )
0x417488…41761c Dummy {f00=0x014c, 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 !!
0x41761c…4177b0 Dummy {f00=0x014c, 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
0x4177b0…417944 Dummy {f00=0x014c, 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 "
0x417944…417ad8 Dummy {f00=0x014c, f01=0x0190, f02=» _ %b!b5 j b!U b!_ HkJ cWE , a ! b jb!! b!+ b"$ $ # !07 h )Q ! 0E a #? !4 = 0 !01 02 T$0* 0' P 0* ( " ;_* 9_/ _44 0 i } - p ; [ s = e 9 ; 6 ` e 0
0x417ad8…417c6c Dummy {f00=0x014c, 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
0x417c6c…417e00 Dummy {f00=0x014c, 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
0x417e00…417f94 (6, 221) Dummy {f00=0x014c, 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(
0x417f94…418128 Dummy {f00=0x014c, 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 !
0x418128…4182bc Dummy {f00=0x014c, 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 * ,
0x4182bc…418450 Dummy {f00=0x014c, 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
0x418450…4185e4 Dummy {f00=0x014c, 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
0x4185e4…418778 Dummy {f00=0x014c, 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
0x418778…41890c Dummy {f00=0x014c, 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
0x41890c…418aa0 Dummy {f00=0x014c, 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
0x418aa0…418c34 (6, 222) Dummy {f00=0x014c, 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
0x418c34…418dc8 Dummy {f00=0x014c, 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
0x418dc8…418f5c Dummy {f00=0x014c, 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
0x418f5c…4190f0 Dummy {f00=0x014c, 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
0x4190f0…419284 Dummy {f00=0x014c, 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
0x419284…419418 Dummy {f00=0x014c, f01=0x0190, f02=» ; J 2 $? 6 _ 8 ? 1% )T !05 T ? ? ? 2 ? O( ( SU? 2 P ? U0B T 1% &? H ? I 1% %_ !01 02 0* LQ KR A W CQ @Y A _: !01 02 R 0* MY KR G AZ$ CQ A T< $ _3 EQ $ _> FQ A T
0x419418…4195ac Dummy {f00=0x014c, 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
0x4195ac…419740 Dummy {f00=0x014c, 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 1 1
0x419740…4198d4 (6, 223) Dummy {f00=0x014c, f01=0x0190, f02=»G 1 1 7 2 W _# W _)2 W _5 < 0G _M0 @ ' <0G @ ' <0G 0 & ? U0B T 1% 0_D U0B T 1% /_S # # " T - ! Q4 4 < " '0G 0 B0 T3 8j & j & % 5j " 1 1An0 ! 0# !0) 4 4
0x4198d4…419a68 Dummy {f00=0x014c, f01=0x0190, f02=» < 0G 4 4 ' <0G 0 0 %P 30 T 4 ' <0G 4 T !01 02 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( !01 02 P R
0x419a68…419bfc Dummy {f00=0x014c, f01=0x0190, f02=» J ^ Q f W H l ~ a & % o - 5 7 B F } O X o o q X ?. 001999FILENAMEDEVICEEXPIRATION DATE:OLD VOLUME SEQUENCE NO:OLD DATA SET ID
0x419bfc…419d90 Dummy {f00=0x014c, f01=0x0190, f02=» U 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 JOBN
0x419d90…419f24 Dummy {f00=0x014c, f01=0x0190, f02=»# W - X : $ Z [ U$ " $ & ( * , . 0 2 4 6 8 : < = > ? @ C F J N T d {0 *
0x419f24…41a0b8 Dummy {f00=0x014c, 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 $ _
0x41a0b8…41a24c Dummy {f00=0x014c, 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
0x41a24c…41a3e0 Dummy {f00=0x014c, 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 -
0x41a3e0…41a574 (6, 224) Dummy {f00=0x014d, 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 ! '
0x41a574…41a708 Dummy {f00=0x014d, 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
0x41a708…41a89c Dummy {f00=0x014d, f01=0x0190, f02=»b? )? ( h < Q j p % t " d w ( h X " V "TOKEYVIAFILENAMETESTUNIT
0x41a89c…41aa30 Dummy {f00=0x014d, 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
0x41aa30…41abc4 Dummy {f00=0x014d, 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 <
0x41abc4…41ad58 Dummy {f00=0x014d, 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
0x41ad58…41aeec Dummy {f00=0x014d, 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
0x41aeec…41b080 Dummy {f00=0x014d, 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_
0x41b080…41b214 (6, 225) Dummy {f00=0x014d, 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
0x41b214…41b3a8 Dummy {f00=0x014d, 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 "
0x41b3a8…41b53c Dummy {f00=0x014d, 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
0x41b53c…41b6d0 Dummy {f00=0x014d, 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 !
0x41b6d0…41b864 Dummy {f00=0x014d, 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 $
0x41b864…41b9f8 Dummy {f00=0x014d, 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 ! !
0x41b9f8…41bb8c Dummy {f00=0x014d, f01=0x0190, f02=» = N D ^ P R 1 y s n G a 3 4 X V - ! " % & ?MDA FETCHING FORMAT:
0x41bb8c…41bd20 Dummy {f00=0x014d, f01=0x018e, f02=» & $ BATCHY $ $E ( & : 8 & l F & RUNNING.O T ( l % x & & & RECORD CORRECTIONS ( & & & " & RECORD