|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A B C D E F K L M N O P R S T V p ½
Length: 3254624 (0x31a960)
Description: Bits:30009662 Philips computer tape "600104"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| FDMOD | «none» |
| FDMOD/DRFD01.SC | ⟦3aeeb417c⟧ pts_type |
| FDMOD/NJ.UF | ⟦df50ef41a⟧ pts_type |
| FDMOD/PFTAB.SC | ⟦64f234c2e⟧ pts_type |
| FDMOD/SCLASS.SC | ⟦83527c0c9⟧ pts_type |
| FDMOD/SYSTAB.SC | ⟦aabe9473c⟧ pts_type |
| M:92OD | «none» |
| M:92OD//OBJCT.OB | ⟦29c5845f3⟧ pts_type |
| M:92OD/ADDMOD.SC | ⟦6d6263adb⟧ pts_type |
| M:92OD/CTAB02.SC | ⟦8eb26eea4⟧ pts_type |
| M:92OD/CTABX.SC | ⟦3769dd56c⟧ pts_type |
| M:92OD/DFTAB.SC | ⟦abe5da9c8⟧ pts_type |
| M:92OD/DIVMOD.SC | ⟦7b14bf61f⟧ pts_type |
| M:92OD/DMBUF.SC | ⟦0aa60395e⟧ pts_type |
| M:92OD/DMFDB.SC | ⟦006a3c3a7⟧ pts_type |
| M:92OD/DMINIT.SC | ⟦edfbc020d⟧ pts_type |
| M:92OD/DMSUBR.SC | ⟦bb4ee61eb⟧ pts_type |
| M:92OD/DMSUBX.SC | ⟦211c916bf⟧ pts_type |
| M:92OD/DMTASK.SC | ⟦c52fc4326⟧ pts_type |
| M:92OD/DMTASS.SC | ⟦f3aaf19bf⟧ pts_type |
| M:92OD/DRDC15.SC | ⟦764daf52c⟧ pts_type |
| M:92OD/DRDY01.SC | ⟦7820e2778⟧ pts_type |
| M:92OD/DRFD01.SC | ⟦de23df58a⟧ pts_type |
| M:92OD/DRIC01.SC | ⟦19785cc9b⟧ pts_type |
| M:92OD/DRKB01.SC | ⟦c567a57aa⟧ pts_type |
| M:92OD/DRRT01.SC | ⟦87861bcaf⟧ pts_type |
| M:92OD/DRSOP1.SC | ⟦8e2f00fbe⟧ pts_type |
| M:92OD/DRTP02.SC | ⟦98a0b00cb⟧ pts_type |
| M:92OD/DSUMOD.SC | ⟦3cbe7dc60⟧ pts_type |
| M:92OD/DVDY00.SC | ⟦6bb81c2df⟧ pts_type |
| M:92OD/DVDY01.SC | ⟦52ca8cbfe⟧ pts_type |
| M:92OD/DVKB00.SC | ⟦818dbce84⟧ pts_type |
| M:92OD/DVKB01.SC | ⟦96101f73a⟧ pts_type |
| M:92OD/DVTDY.SC | ⟦963eba64a⟧ pts_type |
| M:92OD/DVTKB.SC | ⟦67db6cb42⟧ pts_type |
| M:92OD/DVTP00.SC | ⟦781a3ba9c⟧ pts_type |
| M:92OD/DVTTP.SC | ⟦a7d1d2605⟧ pts_type |
| M:92OD/DW1501.SC | ⟦e723b5c08⟧ pts_type |
| M:92OD/DWII01.SC | ⟦9fc7b189f⟧ pts_type |
| M:92OD/DWIO01.SC | ⟦386c74ced⟧ pts_type |
| M:92OD/EBCDIC.SC | ⟦1c61c084b⟧ pts_type |
| M:92OD/LDTASK.SC | ⟦509a88e8f⟧ pts_type |
| M:92OD/LKMAL.SC | ⟦25f335d67⟧ pts_type |
| M:92OD/LRPINT.SC | ⟦951bb7df7⟧ pts_type |
| M:92OD/M:92BD.LM | ⟦635293743⟧ pts_type |
| M:92OD/M:92BD.UF | ⟦4da63a067⟧ pts_type |
| M:92OD/M:92OD.LM | ⟦02c859c35⟧ pts_type |
| M:92OD/M:92OD.UF | ⟦391917213⟧ pts_type |
| M:92OD/MONTAB.SC | ⟦c2d077b83⟧ pts_type |
| M:92OD/MONTIM.SC | ⟦e3bdb0a74⟧ pts_type |
| M:92OD/MPYMOD.SC | ⟦b8982b499⟧ pts_type |
| M:92OD/MSUBS.SC | ⟦ae4944be6⟧ pts_type |
| M:92OD/PFTAB.SC | ⟦033121915⟧ pts_type |
| M:92OD/SCLASS.SC | ⟦02082f5a5⟧ pts_type |
| M:92OD/SYSLDA.SC | ⟦2d6aa1707⟧ pts_type |
| M:92OD/SYSLDM.SC | ⟦fa8a797a9⟧ pts_type |
| M:92OD/SYSLOD.SC | ⟦b4c52e377⟧ pts_type |
| M:92OD/SYSTAB.SC | ⟦65631bf81⟧ pts_type |
| M:92OD/TABORT.SC | ⟦28ff1271c⟧ pts_type |
| M:92OD/TASS.SC | ⟦d19681016⟧ pts_type |
| M:92OD/TCLASS.SC | ⟦ad3431742⟧ pts_type |
| M:92OD/TDISP.SC | ⟦78bad221e⟧ pts_type |
| M:92OD/TEST.UF | ⟦4f81bbe02⟧ pts_type |
| M:92OD/TIMER.SC | ⟦e9c2e3eb8⟧ pts_type |
| M:92OD/TIODM.SC | ⟦2ef603f7b⟧ pts_type |
| M:92OD/TLDSEG.SC | ⟦c98812760⟧ pts_type |
| M:92OD/TMMLKM.SC | ⟦3cbd60306⟧ pts_type |
| M:92OD/TOSSIO.SC | ⟦44ba0096e⟧ pts_type |
| M:92OD/TPROC.SC | ⟦aaa790319⟧ pts_type |
| M:92OD/TTMJOB.SC | ⟦02300311a⟧ pts_type |
| M:FD2 | «none» |
| M:FD2//OBJCT.OB | ⟦c6cbad984⟧ pts_type |
| M:FD2/ASM.UF | ⟦52c459c20⟧ pts_type |
| M:FD2/BUGGEN.UF | ⟦7f378010e⟧ pts_type |
| M:FD2/DRDC15.SC | ⟦807f1fc14⟧ pts_type |
| M:FD2/DRFD01.SC | ⟦d1e2f181d⟧ pts_type |
| M:FD2/DRRT01.SC | ⟦87861bcaf⟧ pts_type |
| M:FD2/DW1501.SC | ⟦5091df2e6⟧ pts_type |
| M:FD2/M:FD2.LM | ⟦4d01f917c⟧ pts_type |
| M:FD2/M:FD2B.UF | ⟦74a7e0b0d⟧ pts_type |
| M:FD2/M:PROC.UF | ⟦5e0786076⟧ pts_type |
| M:FD2/NJ.UF | ⟦21eece7c5⟧ pts_type |
| M:FD2/PFTAB.SC | ⟦f77850bb7⟧ pts_type |
| M:FD2/SCLASS.SC | ⟦4c3987fd7⟧ pts_type |
| M:FD2/SYSTAB.SC | ⟦0159fefe8⟧ pts_type |
| OD-KOM | «none» |
| OD-KOM//OBJCT.OB | ⟦5ad6b2cb6⟧ pts_type |
| OD-KOM/A.UF | ⟦e7899ad49⟧ pts_type |
| OD-KOM/ADM45.SC | ⟦be62dee05⟧ pts_type |
| OD-KOM/ADM5.SC | ⟦dbe420089⟧ pts_type |
| OD-KOM/ADM6.SC | ⟦3f165cc78⟧ pts_type |
| OD-KOM/ADM6BC.SC | ⟦aa6f47fab⟧ pts_type |
| OD-KOM/C461.UF | ⟦f19a8eaaf⟧ pts_type |
| OD-KOM/C462.UF | ⟦4a4a23691⟧ pts_type |
| OD-KOM/C975.UF | ⟦238a0b917⟧ pts_type |
| OD-KOM/C976.UF | ⟦be4538898⟧ pts_type |
| OD-KOM/CNF1.UF | ⟦5a6b717ec⟧ pts_type |
| OD-KOM/CON461.UF | ⟦628047f8a⟧ pts_type |
| OD-KOM/CONDC.UF | ⟦64cc869c6⟧ pts_type |
| OD-KOM/DCTSK.SC | ⟦0e22c4bee⟧ pts_type |
| OD-KOM/DIV461.SC | ⟦7427e039a⟧ pts_type |
| OD-KOM/DKSUBS.SC | ⟦5a79fbefa⟧ pts_type |
| OD-KOM/DUMMY.SC | ⟦81b924b44⟧ pts_type |
| OD-KOM/EBCDIC.SC | ⟦6c60c5f9f⟧ pts_type |
| OD-KOM/EQUATE.SC | ⟦611578ae7⟧ pts_type |
| OD-KOM/EQULST.SC | ⟦2ccf9c6ec⟧ pts_type |
| OD-KOM/FMT401.SC | ⟦97c80dae8⟧ pts_type |
| OD-KOM/FMT402.SC | ⟦0b7faed99⟧ pts_type |
| OD-KOM/FMT403.SC | ⟦fcd025299⟧ pts_type |
| OD-KOM/FMT50.SC | ⟦4f3b9ea6f⟧ pts_type |
| OD-KOM/KEY461.SC | ⟦3f277c6d2⟧ pts_type |
| OD-KOM/KM461.UF | ⟦58e4d67e9⟧ pts_type |
| OD-KOM/KM461R.UF | ⟦8231a30cf⟧ pts_type |
| OD-KOM/KM462.UF | ⟦4f260ac8c⟧ pts_type |
| OD-KOM/KM975.UF | ⟦1792a04e3⟧ pts_type |
| OD-KOM/KMD08.SC | ⟦4f45eb621⟧ pts_type |
| OD-KOM/KMDFIL.UF | ⟦816c93db7⟧ pts_type |
| OD-KOM/KMDIO.SC | ⟦dfeb1f06a⟧ pts_type |
| OD-KOM/KTOPR.SC | ⟦52d970c8b⟧ pts_type |
| OD-KOM/KTPLN.SC | ⟦9a7ac38af⟧ pts_type |
| OD-KOM/LEDFIL.UF | ⟦de23c180e⟧ pts_type |
| OD-KOM/LEDLS.UF | ⟦9c6dea1a5⟧ pts_type |
| OD-KOM/LOG.SC | ⟦62a091ca2⟧ pts_type |
| OD-KOM/M:PROC.UF | ⟦fb11266d2⟧ pts_type |
| OD-KOM/NJ.UF | ⟦b0926236e⟧ pts_type |
| OD-KOM/OBDIR.UF | ⟦d3ed711cd⟧ pts_type |
| OD-KOM/PRT.SC | ⟦7ef69e9f4⟧ pts_type |
| OD-KOM/RG461.LM | ⟦c1c65a879⟧ pts_type |
| OD-KOM/RG462.LM | ⟦bf03dd6c8⟧ pts_type |
| OD-KOM/RGADM.SC | ⟦bc63ba190⟧ pts_type |
| OD-KOM/RGFRMT.SC | ⟦a39a00f90⟧ pts_type |
| OD-KOM/RGKLAR.SC | ⟦91e41094d⟧ pts_type |
| OD-KOM/RGLOAD.LM | ⟦d0f3b2d66⟧ pts_type |
| OD-KOM/RGMAIN.SC | ⟦1d3acd394⟧ pts_type |
| OD-KOM/RGOBJ.UF | ⟦c9d1a3ef6⟧ pts_type |
| OD-KOM/RGSTRT.SC | ⟦16164dba1⟧ pts_type |
| OD-KOM/RGSUB1.SC | ⟦bcdf2dc79⟧ pts_type |
| OD-KOM/RGSUB2.SC | ⟦1a5f783c7⟧ pts_type |
| OD-KOM/RGSUB3.SC | ⟦39790077c⟧ pts_type |
| OD-KOM/RGSUBS.SC | ⟦be5aa1d99⟧ pts_type |
| OD-KOM/S.SC | ⟦8f6c3b493⟧ pts_type |
| OD-KOM/SCREEN.SC | ⟦2306d1952⟧ pts_type |
| OD-KOM/SL461.SC | ⟦bda815a8d⟧ pts_type |
| OD-KOM/SPLITT.SC | ⟦a1bfcec9d⟧ pts_type |
| OD-KOM/SPOOL.SC | ⟦f638cf44a⟧ pts_type |
| OD-KOM/START.SC | ⟦1d0173d7d⟧ pts_type |
| OD-KOM/SUBAPL.SC | ⟦242bb79d0⟧ pts_type |
| OD-KOM/TB3270.SC | ⟦c1e959e49⟧ pts_type |
| OD-KOM/VDUPRT.SC | ⟦5cc13f3af⟧ pts_type |
| SAG | «none» |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 }
0x000ca0…001940 (1, 0) DirGranule ((1, 0)) {
0x000ca0…001940 DirEnt {nam=»OD-KOM«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KMD08 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DUMMY «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0160, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EQUATE«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0180, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»DKSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EQULST«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x01d0, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»SPLITT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x01d8, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»KM975 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f50, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FMT50 «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0218, f03=0xffff}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SL461 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0978, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SUBAPL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0760, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGMAIN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGFRMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0710, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»C975 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KMDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGSUB1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGSUB2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGLOAD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»C976 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0568, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KM461 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGSTRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ADM45 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c40, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONDC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ADM6BC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1090, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGADM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LOG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SPOOL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KMDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a58, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGOBJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0648, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGSUB3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FMT402«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FMT401«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KTPLN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KM462 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»C462 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LEDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ADM5 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ea0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CNF1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0fe8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RG462 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RG461 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ab0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»RGKLAR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a80, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KTOPR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»S «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f20, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ADM6 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e78, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FMT403«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b18, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KEY461«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DIV461«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CON461«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0e28, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»C461 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KM461R«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»VDUPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1dc8, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x00ee // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0018 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x00ee.0x1.0
0x001ad4…001c68 [0x01]: C0x00ee.0x2.0
0x001ad4…001c68 [0x02]: C0x00ee.0x3.0
0x001ad4…001c68 [0x03]: C0x00ef.0x0.0
0x001ad4…001c68 [0x04]: C0x00ef.0x1.0
0x001ad4…001c68 [0x05]: C0x00ef.0x2.0
0x001ad4…001c68 [0x06]: C0x00ef.0x3.0
0x001ad4…001c68 [0x07]: C0x00f0.0x0.0
0x001ad4…001c68 [0x08]: C0x00f0.0x1.0
0x001ad4…001c68 [0x09]: C0x00f0.0x2.0
0x001ad4…001c68 [0x0a]: C0x00f0.0x3.0
0x001ad4…001c68 [0x0b]: C0x00f1.0x0.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x00ee, f01=0x0190, f02=» 2 P IDENT VDUPRT 2.1DK 2 79-10-20 870150540210 P : P =1,ODD BUFFER ADDRESS B P REL 2.1 79-05-23 b P =2,KEYBOARD LAMPS ~ P REL 2.1 79-05-23 " P =3, TRANSMIT BUFFER LENGTH P REL 2.1 79-05-23 F P****************
0x001dfc…001f90 Dummy {f00=0x00ee, f01=0x0190, f02=» MAIN FRAME, AND DISPLAYING THEM ON . P* THE VDU ( PTS 6344 ) . : P* l H P******************************************************************** v P* P* P EJECT P* P* P* ENTRIES
0x001f90…002124 Dummy {f00=0x00ee, f01=0x018e, f02=»NTIRE SCREEN | $ P ENTRY SETCUR CURSOR POSITIONING ( P ENTRY ERASUP ERASE ALL UNPROTECTED < & P ENTRY DISPL DISPLAY MODIFIED DATA h . P ENTRY ERASUA ERASE UNPROTECTED TO ADDRESS . P ENTRY WCHAR WRITE ONE CHAR IN CURSOR POS P ENTRY UPDATE
0x002124…0022b8 Dummy {f00=0x00ee, f01=0x0190, f02=» P* P* EXTERNALS P* " P* , P EXTRN LINHON,LINHOF START 6 P EXTRN LSAVON,LSAVOF START X P EXTRN ATMASB z P EXTRN EMULA P EXTRN REQTIM P EXTRN ICWRTE P* P EXTRN SNBUSY PRT P* * P EXTRN I:E
0x0022b8…00244c Dummy {f00=0x00ee, f01=0x0190, f02=»********************************** r P* * ( P* CONDITIONAL ASSEMBLY PARAMETERS 4 P* ` 2 P********************************************** j P 2 POFLIN EQU 1 OFFLINE HANDLING POSSIBLE IF ::= 1 , PDCLIN EQU 1 NUMBER OF MAIN FRAMES (1-2)
0x00244c…0025e0 Dummy {f00=0x00ee, f01=0x018e, f02=»BUFFER LENGTH IN WORDS x 2 PTBUFNR EQU 2 NUMBER OF TRANSMIT BUFFERS (1-5) 8 PCOPCMD EQU 1 COPY COMMAND (ONLY TO PRINTER) IF := 1 T & PEBCDIC EQU 1 ASCII = 0,EBCDIC = 1 P* P* EQUATES P* P* . PTIMDC EQU 600 DC TIME OUT VALU
0x0025e0…002774 (1, 2) Dummy {f00=0x00ee, f01=0x018e, f02=» $ PENDMES EQU /7D END MESSAGE CHAR " PFORMFD EQU /7C FORM FEED CHAR , PDUPCH EQU /7B R PFMCH EQU /60 h P EJECT | P* P* P* EQUATES P* " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2
0x002774…002908 Dummy {f00=0x00ee, f01=0x0190, f02=» P* P* ECB REL. ADDRESSES P* * P* 4 PDIS EQU 20 > P* P PECBDC EQU -DIS-14 Z P IFT DCLIN=2 t P IFT COPCMD=1 PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS PECBICW EQU ECBICR-DIS P XIF P IFT D
0x002908…002a9c Dummy {f00=0x00ee, f01=0x0190, f02=»D=1 PECBICR EQU ECBDC-DIS PECBICW EQU ECBICR-DIS ( P XIF F P IFF DCLIN=2 R P IFF COPCMD=1 f PECBICW EQU ECBDC-DIS | P XIF PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS PECBSD EQU ECBKB-DIS P EJECT P
0x002a9c…002c30 Dummy {f00=0x00ee, f01=0x0190, f02=»* TCA REL. ADDRESSES P* PTCT01 EQU 0 & PPRINTER EQU TCT01+2 : ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER V 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR PCURATT EQU ATTRIB+2 & PWCC EQU
0x002c30…002dc4 Dummy {f00=0x00ee, f01=0x0190, f02=»INCNT+2 DC READ EFFECTIVE LENGTH 2 PICWORK EQU DCLENG+2 WORK FIELD INTERTASK COMM ( , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE ^ $ POFFFLG EQU INTATT+2 OFFLINE FLAG ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID * PCCC EQU COPNO+2 COPY COMMAND CHARACTER
0x002dc4…002f58 Dummy {f00=0x00ee, f01=0x0190, f02=»EYS+2 ECB ADDRESS LAST READ DC 2 PECBBLK EQU ECBDCC+2 ECBS FOR MULTIPLE WAIT &C & 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB P EJECT P P* P* * PLBVDU EQU 1920 1920 CHARACTER DISPLAY " PLPAGE EQU 48 LINES ON ONE PA
0x002f58…0030ec Dummy {f00=0x00ee, f01=0x0190, f02=»REL ADDRESSES | P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS F P* p 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 z 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU MF1
0x0030ec…003280 Dummy {f00=0x00ee, f01=0x018e, f02=»************** ^ P* P* INPUT FROM DC P* 8 8 P**************************************************** B P* ~ P* RELATIVE POS IN ECBBLK PKB EQU 2 PDC1 EQU 4 PDC2 EQU 6 P* PDCINP EQU * & P CF A14,GTRBUF
0x003280…003414 (1, 3) Dummy {f00=0x00ee, f01=0x018e, f02=» x P XIF P IFT DCLIN=2 P LD A1,MAIN,TCABAS ( P CW A8,ECBBLK+DC2,TCABAS B P RF(E) DCIN20 MF # 2 b P CM ECBBLK+DC1,TCABAS ~ P LDR A1,A1 P RF(NZ) DCIN90 WRONG MF P RF DCIN30 PDCIN20 EQU * P CM ECBBLK+DC2,TCABA
0x003414…0035a8 Dummy {f00=0x00ee, f01=0x0190, f02=» P RF(NZ) DCIN90 P XIF ( P LD A1,ECBEL,A8 EFFECTIVE DC-LENGTH & P ST A1,DCLENG,TCABAS R P n P v P LD A5,KBINH,TCABAS ~ . P ORK A5,3 BIT 14,15:= 1. TOTALLY DISABLED . P* KEYBOARD. BIT 15 = 0 AFTER DISPLAYING. P ST A5,KBI
0x0035a8…00373c Dummy {f00=0x00ee, f01=0x018e, f02=» P CF A14,DISPL P LD A2,PCURS,TCABAS P CF A14,ATMASB 6 P L P T P* P LD A2,KBINH,TCABAS f P ANK A2,1 BIT 15 = 0? P RF(Z) DCIN60 P LD A2,KBINH,TCABAS . P ANK A2,/E BIT 15:=0 KEYBOARD NOT TOTALLY P*
0x00373c…0038d0 Dummy {f00=0x00ee, f01=0x0190, f02=» . P CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' P LD A2,KBINH,TCABAS : , P ANK A2,4 BITS 14,15:=0 RESTORE KEYBOARD V P ST A2,KBINH,TCABAS P RF DCIN95 PDCIN90 EQU * P LD A8,ECBDCC,TCABAS P LD A4,ECBBA,A8 P CF A14,RLRB
0x0038d0…003a64 Dummy {f00=0x00ee, f01=0x0190, f02=» P LDK A1,0 P CF A14,REQTIM P LDK A7,/82 READ, WAIT , ( P CM ECBCW,A8 NO TIME OUT SUPERVISION J P LDKL A1,RBUFL+RBUFL v P ST A1,ECBRL,A8 REQ LENGTH P ST A4,ECBBA,A8 P LKM P DATA 1 P RTN A14 P EJECT > P**
0x003a64…003bf8 Dummy {f00=0x00ee, f01=0x018e, f02=»******************************** v P* ( PRLINK EQU RBUFL+RBUFL+2 2 P* R PRBUF EQU * P DATA *+2 POINTER FIRST FREE n P IFF RBUFNR=1 P DATA *+RLINK P RES RBUFL P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL
0x003bf8…003d8c Dummy {f00=0x00ee, f01=0x0190, f02=» P DATA 0 END OF CHAIN P RES RBUFL $ P* 6 P* @ PTLINK EQU TBUFL+TBUFL+2 J P* j PTBUF EQU * t P DATA *+2 POINTER FIRST FREE P IFF TBUFNR=1 P DATA *+TLINK P RES TBUFL P IFF TBUFNR=2 P DATA *+TL
0x003d8c…003f20 Dummy {f00=0x00ee, f01=0x0190, f02=» RES TBUFL P XIF P DATA 0 END OF CHAIN P RES TBUFL : P* L P* V P* GET WRITE BUFFER ` P* z PGTWBUF EQU * P LDKL A5,TBUF P CF A14,GETBUF P LDR A7,A4 P LDR A12,A4 P ADK A7,2 SKIP P LDKL A9
0x003f20…0040b4 (1, 4) Dummy {f00=0x00ef, f01=0x0190, f02=» P* PGETBUF EQU * P LDR* A4,A5 & P RF(Z) GETB50 NO BUFFER FREE : P LDR* A3,A4 ^ P STR A3,A5 r P ADK A4,2 SKIP LINK P RTN A14 PGETB50 EQU * P LKM P DATA 0 SWITCH TASK P RB GETBUF P* P
0x0040b4…004248 Dummy {f00=0x00ef, f01=0x018e, f02=»QU * P LDR* A3,A2 P RF(Z) RELB20 P LDR A2,A3 6 P RB RELB10 H PRELB20 EQU * Z P STR A4,A2 n P CMR A4 P RTN A14 P* PRLWBUF EQU * P LDKL A2,TBUF P RB RELB05 P EJECT P* P* " P
0x004248…0043dc Dummy {f00=0x00ef, f01=0x0190, f02=» P* PPDCCH EQU * P CWK A9,TBUFL+TBUFL =3 & P RF(G) PDCCHR OVERFLOW F P SCR A2,A7 d PPDCCH1 EQU * v P ADK A7,1 P ADKL A9,1 PPDCCHR RTN A14 P* P* P* STORE ATTENTION ID FROM A2 P* P*
0x0043dc…004570 Dummy {f00=0x00ef, f01=0x018e, f02=»CCH LCR A2,A7 P ANK A2,/FF & P RF(NZ) GDCC:1 NOT NULL CHARACTER * $ P LDK A2,/7F LOAD NULL CHARACTER T PGDCC:1 EQU * | P RB PDCCH1 P EJECT P* P* . P* GET BUFFER ADDRESS TO A1 FROM DC BUFFER P* P*
0x004570…004704 Dummy {f00=0x00ef, f01=0x0190, f02=» P ANK A2,/3F P ORR A1,A2 P RTN A14 * P EJECT : P* H P* R " P* WRITE MESSAGE TO MAIN FRAME P* & P* ON EXIT A1 CONTAINS RETURN CODE P* P* PDCWRTE EQU * P LDKL A8,ECBDC P IFT DCLIN=2 P
0x004704…004898 Dummy {f00=0x00ef, f01=0x0190, f02=»DC P CF A14,REQTIM P ST A9,ECBRL,A8 REQ LENGTH $ P ST A12,ECBBA,A8 BUFFER ADDRESS B P LD A7,KBINH,TCABAS j 8 P ORK A7,2 BIT 14 :=1 DISABLE KEYBOARD.RESET ALLOWED P ST A7,KBINH,TCABAS P LDK A7,/86 PDC100 EQU * P L
0x004898…004a2c Dummy {f00=0x00ef, f01=0x0190, f02=»C300 P LD A7,KBINH,TCABAS ( P ANK A7,/D BIT 14:=0 ALLIWE KEYBOARD ( P ST A7,KBINH,TCABAS T . P CF A14,LINHOF TURN OFF "KEYBOARD INHIBIT p . P CF A14,LSAVOF TURN OFF "SYSTEM AVAILABLE" P* * P LDK A7,/04 RESET KEYBOARD ECB BUFFER
0x004a2c…004bc0 Dummy {f00=0x00ef, f01=0x0190, f02=» TURN ON 'SYSTEM AVAILABLE' P RTN A14 $ P EJECT 4 P* B P* L ( P* STORE CURSOR ADDRESS IN DC BUFFER V P* P* PCURSA LD A1,PCURS,TCABAS P RF BUFADR P* P* ( P* STORE BUFFER ADDRESS IN DC BUFFER P
0x004bc0…004d54 (1, 5) Dummy {f00=0x00ef, f01=0x0190, f02=»CII,A2 CONVERT TO ASCII P CF A14,PDCCH P LDR A2,A1 6 P ANK A2,/3F H P LC A2,TASCII,A2 P CF A14,PDCCH t P RTN A14 P EJECT P* P* 2 P* GET MODIFIED DATA FROM DISPLAY IMAGE BUFFER P* P* A3=BUFFER
0x004d54…004ee8 Dummy {f00=0x00ef, f01=0x0190, f02=» A4,TCABAS BUFFER POINTER @ P************************************************************ " & P ADKL A4,1919 LAST SCREEN POSITION f P LCR A2,A4 GET CHARACTER . P LDKL A4,BVDU RELOAD FIRST BUFFER POSITION P ADR A4,TCABAS P P LDR A1,
0x004ee8…00507c Dummy {f00=0x00ef, f01=0x0190, f02=»**** X PRD100 CWK A3,LBVDU P RF(NL) RDMODE ALL EXAMINED & P LCR A2,A4 GET CHAR J P ADK A3,1 f P ADK A4,1 x @ P************************************************************ PRD105 EQU * @ P**************************************
0x00507c…005210 Dummy {f00=0x00ef, f01=0x0190, f02=» RD100 DON'T STORE NULL * P CF A14,PDCCH STORE CHAR IN DC BUFFER ! P RB RD100 ! N PRD200 ANK A2,1 CHECK MDT BIT ! ` P RF(NZ) RD300 MODIFIED FIELD ! PRD210 CWK A3,LBVDU ! P RF(NL) RDMODE ALL EXAMINED ! P LCR A2,A4 ! P ADK A3,1 !
0x005210…0053a4 Dummy {f00=0x00ef, f01=0x0190, f02=»****************** 78-05-11 ! j * P CWK A3,LBVDU ALL BUFFER EXAMINED ??? " $ P RF(NL) RDMODE YES!! " R F P******************************************************** 78-05-11 " n P RB RD200 ATTRIBUTE FOUND " PRD300 LDK A2,SBA " " P CF A14,PDCCH SBA TO D
0x0053a4…005538 Dummy {f00=0x00ef, f01=0x0190, f02=» P* # P* # 4 P* UPDATE VIDEO DISPLAY BUFFER IMAGE BY THE DATA # P* # P P* RECEIVED FROM THE DC LINE # Z P* # ~ P* # " P* A7=DC RECEIVE BUFFER POINTER # P* A8=DC ECB ADDRESS # ( P* A9=DC BUFFER INDEX, INITIALLY ZERO # P* #
0x005538…0056cc Dummy {f00=0x00ef, f01=0x0190, f02=» P LD A8,ECBDCC,TCABAS $ & P LD A7,ECBBA,A8 DC BUFFER ADDRESS $ $ P SUR A9,A9 RESET DC BUFFER INDEX $ J 0 P CF A14,GDCCH GET FIRST CHAR FROM DC BUFFER $ r P CWK A2,ESC SHOULD BE ESCAPE $ P RF(NE) UPDEND NOT ESCAPE $ " P CF A14,GDCCH GET COMMAND CO
0x0056cc…005860 Dummy {f00=0x00ef, f01=0x0190, f02=»E) UPD140 ERASE ALL UNPROTECTED $ P IFT COPCMD=1 % ( P CWK A2,/37 % > P ABL(E) UPD600 COPY COMMAND % R P XIF % v $ P RF UPDEND INVALID COMMAND CODE % P EJECT % P* % P* WRITE COMMAND % P* % PUPD100 EQU * % ( P CF A14,PWCC PRO
0x005860…0059f4 (1, 6) Dummy {f00=0x00ef, f01=0x0190, f02=» % $ P LDK A5,1 INDICATE WCC, IC OR RA & P RF UPD220 & 0 P* & B P* ERASE/WRITE COMMAND & L P* & j PUPD120 EQU * & t P CF A14,ERASE ERASE SCREEN & P RF UPD200 & P* & P* ERASE ALL UNPROTECTED & P* & PUPD140 EQU * & ( P CF
0x0059f4…005b88 Dummy {f00=0x00ef, f01=0x0190, f02=» & f P* ' " PUPD200 CF A14,PWCC PROCESS WCC ' $ P LDK A5,1 INDICATE WCC, IC OR RA ' 8 P EJECT ' ` P* ' n P* ' x " P* PROCESS DATA FROM DC BUFFER ' P* ' P* ' , PUPD210 LDK A3,0 START FROM POSITION ZERO ' P LDKL A4,BVDU ' P ADR A
0x005b88…005d1c Dummy {f00=0x00ef, f01=0x0190, f02=»FER ' n P CWK A2,/20 ( P RF(L) UPD300 ORDER ( PUPD230 EQU * ( < P ORK A2,/80 SET DISPLAY BIT ( P PUPD240 EQU * ( t ( P LDK A5,0 INDICATE NOT WCC, IC OR RA ( P CWK A3,LBVDU ( & P RF(E) UPD260 END OF VIDEO BUFFER ( PUPD250 EQU * ( $ P
0x005d1c…005eb0 Dummy {f00=0x00ef, f01=0x0190, f02=» P ADR A4,TCABAS ) P RB UPD250 ) PUPD300 EQU * ) , : P******************************************* 78-08-15 ) @ , P CWK A3,LBVDU END OF DISPLAY BUFFER ??? ) ~ P RF(NE) UPD302 NO!!! ) $ P SUR A3,A3 FIRST SCREEN POSITION ) P LDKL A4,BVDU ) " P
0x005eb0…006044 Dummy {f00=0x00ef, f01=0x0190, f02=» P RF(E) UPD320 START FIELD * P CWK A2,/11 * & $ P RF(E) UPD340 SET BUFFER ADDRESS * : P CWK A2,/13 * b P RF(E) UPD360 INSERT CURSOR * v P CWK A2,/09 * P RF(E) UPD400 PROGRAM TAB * P CWK A2,/14 * $ P RF(E) UPD500 REPEAT TO ADDRESS *
0x006044…0061d8 Dummy {f00=0x00ef, f01=0x0190, f02=»FEED * | P RB UPD230 + PUPD305 CWK A2,/19 + P RF(NE) UPD310 + 8 P LDK A2,ENDMES END MESSAGE + N P RB UPD230 + p PUPD310 EQU * + P CWK A2,/0A + P RF(NE) UPD315 + P LDK A2,NEWLIN NEW LINE + P RB UPD230 + PUPD315 EQU * + P C
0x0061d8…00636c Dummy {f00=0x00ef, f01=0x0190, f02=»WK A2,/00 NULL CHARACTER ??? + & P RF(NE) UPDEND NO!! ILLEGAL ORDER , $ " P LDK A2,/7F PTS NULL CHARACTER , N P RB UPD230 , t P , @ P************************************************************ , P* , P* RELEASE RECEIVE BUFFER , P* , * P
0x00636c…006500 Dummy {f00=0x00ef, f01=0x0190, f02=»RBUF , P RTN A14 - P EJECT - P* - * P* - 4 P* START FIELD ORDER - > P* - Z * PUPD320 CF A14,GDCCH GET ATTRIBUTE CHAR - d P LC A2,TEBCDI,A2 - * P LDR A1,A2 COMPOSE PTS ATTRIBUTE CHAR - P ANK A1,1 - P SRL A2,1 - P ANK A2,/1E
0x006500…006694 (1, 7) Dummy {f00=0x00ef, f01=0x0190, f02=» A1,LBVDU - " P RB(NL) UPDEND INVALID ADDRESS . P LDR A3,A1 . 8 P LDR A4,A3 . J P ADKL A4,BVDU . P ADR A4,TCABAS . r P RB UPD220 . P* . P* INSERT CURSOR . P* . 0 PUPD360 ST A3,PCURS,TCABAS SET NEW CURSOR POS . $ P LDK A5,1 INDI
0x006694…006828 Dummy {f00=0x00ef, f01=0x0190, f02=»30 PT AFTER WCC, IC OR RA . 0 P LDK A1,NULL+/80 FILL CURRENT FIELD BY NULLS / " PUPD410 EQU * / V P LDK A5,0 / j P CWK A3,LBVDU / | P RB(NL) UPD210 END OF BUFFER / P LCR A2,A4 / P ADK A3,1 / P ANK A2,/7F / P CWK A2,/20 / P RF(L)
0x006828…0069bc Dummy {f00=0x00ef, f01=0x0190, f02=»0 / $ P RB(Z) UPD220 UNPROTECTED FIELD 0 PUPD430 EQU * 0 2 P LDK A5,0 0 F P CWK A3,LBVDU 0 X * P ABL(NL) UPD210 END OF DISPLAY BUFFER 0 n P LCR A2,A4 0 P ADK A3,1 0 P ADK A4,1 0 P ANK A2,/7F 0 P CWK A2,/20 0 P RB(L) UPD420
0x0069bc…006b50 Dummy {f00=0x00ef, f01=0x0190, f02=» A1,LBVDU 0 " P RB(NL) UPDEND INVALID ADDRESS 1 * P CF A14,GDCCH GET CHAR TO BE REPEATED 1 8 $ P LDK A5,1 INDICATE WCC, IC OR RA 1 f " P ORK A2,/80 INDICATE MODIFIED 1 P 1 B P**************************************************** 78-07-02 1 P 1 2
0x006b50…006ce4 Dummy {f00=0x00ef, f01=0x0190, f02=»********* 78-07-02 1 d P 2 PUPD510 CWK A3,LBVDU 2 $ $ P RF(L) UPD520 NOT END OF SCREEN 2 @ P LDK A3,0 2 h P LDKL A4,BVDU WRAP AROUND 2 z P ADR A4,TCABAS 2 PUPD520 CWR A3,A1 2 $ P ABL(E) UPD220 ALL CHAR REPEATED 2 P 2 F P**************
0x006ce4…006e78 Dummy {f00=0x00ef, f01=0x0190, f02=»8-07-02 2 X P 3 P SCR A2,A4 3 P ADK A3,1 3 * P ADK A4,1 3 < P RB UPD510 NEXT POSITION 3 N P* 3 n " P* ERASE UNPROTECTED TO ADDRESS 3 x P* 3 ( PUPD540 CF A14,GETADR GET END ADDRESS 3 P CWK A3,LBVDU 3 " P RB(NL) UPDEND INVALID ADDRESS
0x006e78…00700c Dummy {f00=0x00ef, f01=0x0190, f02=»MAND 3 P* 4 PUPD600 EQU * 4 P LD A1,PRINTER,TCABAS 4 * 4 P ABL(Z) UPDEND COPYCOMMAND NOT SUPPORTED FOR VDU 4 H P ADK A7,1 4 P BYPASS CCC 4 " P CF A14,GDCCH GET FROM DEVICE 4 P IFT EBCDIC=1 4 & P LC A2,TEBCDI,A2 CONVERT TO EBCDIC 4
0x00700c…0071a0 Dummy {f00=0x00ef, f01=0x018e, f02=»DC2,TCABAS 4 P RF(NZ) UPD602 5 P LDK A4,MF2KBV-1 MF # 2 READ 5 ( P XIF 5 L P IFT COPCMD=1 5 X PUPD602 EQU * 5 n P ADR A4,A3 CONFIG TABLE -1 5 & P LD A5,NBRKBV,A3 NUMBER OF KB/VDUS 5 ( P ADR A4,A5 LAST KB/VDU CONFIGURATED 5 PUPD604 EQU * 5
0x0071a0…007334 (1, 8) Dummy {f00=0x00f0, f01=0x0190, f02=» P ABL UPDEND NO MATCH 6 P* 6 PUPD610 EQU * 6 * P LDKL A8,ECBICW 6 > P ADR A8,CREBAS 6 V P LKM 6 l 0 P DATA 10 ABORT LAST REQUEST IF NOT COMPLETED 6 x & P ADKL A5,/4B40 TASKID FROM DEVICE 6 $ P LD A2,-4,CREBAS GET OWN TASKID 6 & P ST A2,ICW
0x007334…0074c8 Dummy {f00=0x00f0, f01=0x0190, f02=»3,TCABAS BUFFER ADDRESS 6 " P CF A14,ICWRTE WRITE INTERTASK 7 P ABL UPDEND 7 F P XIF 7 Z P EJECT 7 f P* 7 t P* 7 ~ & P* PROCESS WRITE CONTROL CHARACTER 7 P* 7 * P* ONLY RESET MDT BIT IS TAKEN CARE OF 7 P* 7 P* 7 PPWCC CF A1
0x0074c8…00765c Dummy {f00=0x00f0, f01=0x0190, f02=»A2,PRINTER,TCABAS 7 P RF(NZ) PWCC1 8 P LDR A10,A7 8 0 P LDKL A8,ECBVDU 8 D P ADR A8,CREBAS 8 P LD A2,ECBBA,A8 8 r P LDK A7,/2B 8 P SC A7,1,A2 =1 8 P LDK A7,/07 BELL =1 8 P SC A7,2,A2 =1 8 P SC A7,3,A2 =1 8 P LDK A
0x00765c…0077f0 Dummy {f00=0x00f0, f01=0x0190, f02=»1 EQU * 8 P LD A2,WCC,TCABAS 9 P ANK A2,1 9 * P RF(NZ) RESMDT RESET ALL MDT 9 < PPWCC10 RTN A14 NO ACTION 9 ` P* 9 P* 9 P* RESET ALL MDT BITS 9 P* 9 P* 9 PRESMDT LDK A3,0 9 P LDKL A4,BVDU 9 P ADR A4,TCABAS 9 P
0x0077f0…007984 Dummy {f00=0x00f0, f01=0x018e, f02=» 9 t P LCR A2,A4 : P ANK A2,/FE RESET MDT : P SCR A2,A4 : 8 PRESM20 ADK A3,1 : J P ADK A4,1 : b P RB RESM10 : t P EJECT : P* : P* : P* ERASE ENTIRE SCREEN : P* : P* : PERASE LDK A3,0 : P LDKL A4,BVDU : P A
0x007984…007b18 Dummy {f00=0x00f0, f01=0x018e, f02=» P ADK A4,1 ; P RB ERAS20 ; , PERAS25 CM PCURS,TCABAS RESET CURSOR POS ; ( P LDKL A1,LBVDU+1 ; X 0 P ST A1,CURATT,TCABAS INDICATE UNFORM. SCREEN ; p P CM ATTRIB,TCABAS ; , P LD A1,PRINTER,TCABAS CHECK DEVISE TYPE ; ( P RF(NZ) ERAEND PRINTER, NO
0x007b18…007cac Dummy {f00=0x00f0, f01=0x0190, f02=» " P LDK A7,'1' ERASE CONTROL CHAR < P LD A1,ECBBA,A8 =1 < * P SC A7,1,A1 =1 < F P LDK A7,2 < ^ " P ST A7,ECBRL,A8 REQ LENGTH = 2 < p P LDK A7,/86 WRITE < P LKM < P DATA 1 < P LD A8,-2,A14 < " P LDR* A7,A14 RESTORE A7 AND A8 < P
0x007cac…007e40 Dummy {f00=0x00f0, f01=0x0190, f02=»A2,WCC,TCABAS SET KEYBOARD RESTORE BIT < 2 P SUR A1,A1 INDICATE ATT IN LAST SCREEN POS DK = . P LDK A3,0 = d P LDKL A4,BVDU = v P ADR A4,TCABAS = 0 P CM PCURS,TCABAS FIND FIRST UNPROTECTED POS = H P**************************************************
0x007e40…007fd4 (1, 9) Dummy {f00=0x00f0, f01=0x0190, f02=»RU:01 YES!! WE GOT IT!! = 0 P LDK A1,1 ATTRIBUTE NOT IN LAST SCREEN POS. > < P******************************************************** > T PERASU1 CWK A3,LBVDU > P RF(NL) ERASU2 > P LCR A2,A4 GET CHAR > P ANK A2,/7F > P ADK A3,1 > P
0x007fd4…008168 Dummy {f00=0x00f0, f01=0x0190, f02=»ED > z * P ST A3,PCURS,TCABAS SET NEW CURSOR POS ? P LDR A1,A1 ? 8 0 P RF(Z) ERASU3 ATTRIBUTE IN LAST SCREEN POS. ? J PERASU2 LDK A3,0 ? ~ P LDKL A4,BVDU ? P ADR A4,TCABAS ? P RF ERASU4 ? PERASU3 EQU * ? P LDR A3,A3 ? 6 P RF(Z) ERASU4
0x008168…0082fc Dummy {f00=0x00f0, f01=0x0190, f02=»DK A1,0 ? P LDK A6,NULL+/80 ERASE CHAR @ P RF ERAS35 @ 4 P EJECT @ F P* @ T P* @ ^ . P* ERASE UNPROTECTED TO ADDRESS GIVEN IN A1 @ h P* @ P* @ * PERASUA LDK A6,NULL+/80 ERASE CHARACTER @ $ P ******************* 78-09-11 @ " P CWK
0x0082fc…008490 Dummy {f00=0x00f0, f01=0x0190, f02=»BUFFER ADDRESS @ x P A 8 PERAS:1 LDR A3,A3 START IN FIRST SCREEN POSITION ??? A P RF(NZ) ERAS35 NO!! A ( P LC A2,1919,A4 LAST BUFFER CHARACTER A x P ANK A2,/7F A ( P CWK A2,/20 ATTRIBUTE CHARACTER ??? A P RF(NL) ERAS35 NO!!! A P ANK A2,
0x008490…008624 Dummy {f00=0x00f0, f01=0x0190, f02=»35 A $ P ******************** 78-09-11 B PERAS30 CWK A3,LBVDU B 2 $ P RF(L) ERAS33 NOT END OF SCREEN B N P LDK A3,0 B v P LDKL A4,BVDU WRAP AROUND B P ADR A4,TCABAS B PERAS33 EQU * B P CWR A3,A1 B ( P RB(E) ERAEND ALL UNPROTECTED ERAS
0x008624…0087b8 Dummy {f00=0x00f0, f01=0x0190, f02=» XRK A2,NULL B P RF(Z) ERAS40 ALREADY NULL C " P SCR A6,A4 STORE MODIFIED NULL C 6 PERAS40 ADK A3,1 C P ADK A4,1 C t P RB ERAS30 C PERAS50 ADK A3,1 C P ADK A4,1 C P ANK A2,/10 C " P RF(NZ) ERAS60 PROTECTED FIELD C P LC A2,-1,A4
0x0087b8…00894c Dummy {f00=0x00f0, f01=0x018e, f02=»3,0 C P LDKL A4,BVDU WRAP AROUND D P ADR A4,TCABAS D . PERAS65 CWR A3,A1 D D ( P RB(E) ERAEND ALL UNPROTECTED ERASED D PERAS70 EQU * D P LCR A2,A4 D P ANK A2,/7F D P CWK A2,/20 D " P RB(L) ERAS50 ATTRIBUTE FOUND D P ADK A3,1 D
0x00894c…008ae0 Dummy {f00=0x00f0, f01=0x0190, f02=» P* E P* E * PTRPA CF A14,GTWBUF GET TRANSMIT BUFFER E PTRPA10 CF A14,PAID STORE AID E F PTRANS EQU * E j P CF A14,DCWRTE WRITE MESSAGE E ~ PTR050 EQU * E " P RTN A14 TRANSMISSION TROUBLE E PTRRTN RTN A14 E P EJECT E P* E
0x008ae0…008c74 (1, 10) Dummy {f00=0x00f0, f01=0x0190, f02=» PTRPF10 CF A14,PAID STORE AID F & P CF A14,CURSA STORE CURSOR ADDRESS F ( P CF A14,RDMOD READ MODIFIED F R " P RB TRANS SEND MODIFIED FIELDS F v P EJECT F P* F P* F $ P* DISPLAY MODIFIED FIELDS ON VDU F P* F P* F P* A3=VDU POSIT
0x008c74…008e08 Dummy {f00=0x00f0, f01=0x0190, f02=»DU OUTPUT CHAR COUNTER F P* G P* G ( PDISPL LDKL A8,ECBVDU G 2 P ADR A8,CREBAS G N * P LDKL A1,/101 START FROM LINE 1 POS 1 G d P ST A1,ECBCW,A8 G 8 P SUR A10,A10 RESET COUNT FOR INTENSIFIED DISPLAYING G P LDK A3,0 G P LDKL A4,BVDU G
0x008e08…008f9c Dummy {f00=0x00f0, f01=0x0190, f02=»**** G T 6 P LC A2,1919,A4 CHECK IF ATTRIBUTE IN LAST POSITION H P ANK A2,/7F H F P CWK A2,/1F ATTRIBUTE ??? H Z P RF(G) DIS100 NO!!! H | P H P ANK A2,6 H P XRK A2,6 H > P ST A2,INTATT,TCABAS CHECK DISPLAY/NONDISPLAY INFORMATION H P R
0x008f9c…009130 Dummy {f00=0x00f0, f01=0x0190, f02=»******************* H ` PDIS100 EQU * I P CWK A9,LLINE I 0 " P RF(L) DIS110 NOT END OF LINE I F $ P CF A14,DISLIN DISPLAY THIS LINE I l . P CF A14,INTCHK CHECK IF LOW/HIGH INTENSITY I PDIS110 EQU * I P CWK A3,LBVDU I P RF(NL) DIS900 ALL SCANN
0x009130…0092c4 Dummy {f00=0x00f0, f01=0x0190, f02=»ED BIT I x P J > P************************************************ 78-08-15 J PDIS115 EQU * J X " P ANK A2,/7F RESET DISPLAY BIT J l P SCR A2,A4 J P ADK A3,1 J P ADK A4,1 J P ADK A7,1 J P ADKL A9,1 J P CWK A2,/20 J P RF(L) D
0x0092c4…009458 Dummy {f00=0x00f0, f01=0x0190, f02=» P LDK A2,/39 K PDIS120 CWK A2,/7E K P RF(NE) DIS121 K 2 P LDK A2,/35 K H PDIS121 CWK A2,/7C K P RF(NE) DIS122 K v P LDK A2,/3C K PDIS122 EQU * K 4 P SC A2,-1,A7 STORE CHAR IN DISPLAY OUTPUT BUFFER K P RB DIS100 K PDIS200 ANK
0x009458…0095ec Dummy {f00=0x00f0, f01=0x0190, f02=» P ANK A2,4 L P RF(Z) DIS205 HIGH INTENSITY L P LDK A2,/1E LOW INTENSITY L : P RF DIS206 L PDIS205 EQU * L n P LDK A2,/1F HIGH L PDIS206 EQU * L * P SC A2,-1,A7 STORE INTENSITY CHARACTER L " P ADKL A10,1 INCREMENT COUNTER L P ADK A
0x0095ec…009780 Dummy {f00=0x00f0, f01=0x0190, f02=»S220 EQU * L P CWK A3,LBVDU M P RF(NL) DIS900 ALL DISPLAYED M ( P LCR A2,A4 M L > P************************************************* 78-08-15 M ^ P M " P CF A14,SET:M SET MODIFIED BIT M P M > P************************************************ 7
0x009780…009914 (1, 11) Dummy {f00=0x00f0, f01=0x018e, f02=»1 M P ADKL A9,1 N P CWK A2,/20 N " P RB(L) DIS200 ATTRIBUTE FOUND N 0 P RB DIS210 N V P EJECT N h P* N v P* N P* POSITION THE CURSOR N P* N P* N PSETCUR EQU * N PDIS900 LDK A1,2 REQ LENGTH N PDIS905 ST A1,ECBRL,A8
0x009914…009aa8 Dummy {f00=0x00f0, f01=0x0190, f02=» PDIS910 CWK A1,LLINE O P RF(L) DIS920 O P ADS A2,ECBCW,A8 O 6 P SUKL A1,LLINE O N P RB DIS910 O d PDIS920 ADS A1,ECBCW,A8 O v $ P LDK A7,/8B SET CURSOR AND WRITE O P LKM O P DATA 1 O 0 P CM INTATT,TCABAS CLEAR INTENSITY ATTRIBUTE O
0x009aa8…009c3c Dummy {f00=0x00f0, f01=0x0190, f02=»1,ECBBA,A8 O P CF A14,RFMDUP P 0 P SC A2,3,A1 STORE CHAR IN VDU OUTPUT BUFFER P ( P LDK A1,4 P P RB DIS905 REQ LENGTH = 3 P n P* P J P********************************************************************* P P* P 8 P* REPLACE FM & DUP
0x009c3c…009dd0 Dummy {f00=0x00f0, f01=0x0190, f02=»*********** P V P* Q PRFMDUP EQU * Q P CWK A2,DUPCH Q 2 P RF(NE) RFMD10 Q H P LDK A2,/2A DUP Q ^ PRFMD10 EQU * Q v P CWK A2,FMCH Q P RF(NE) RFMD20 Q P LDK A2,/3B Q PRFMD20 EQU * Q P RTN A14 Q P EJECT Q P* Q P* Q
0x009dd0…009f64 Dummy {f00=0x00f0, f01=0x018e, f02=»L A9,LLINE LINE LENGTH Q P ADR A9,A9 DOUBLE IT R P LDKL A2,' ' SPACES R : PSPAC10 SCR A2,A7 =1 R V P SC A2,1,A7 =1 R r P ADK A7,2 R P SUKL A9,2 R P RB(P) SPAC10 R $ P LDK A2,0 CLEAR A2=CHAR REGISTER R & P LDK A5,0 RESET MODIFIED IND
0x009f64…00a0f8 Dummy {f00=0x00f0, f01=0x0190, f02=» R P* S P* S ( P* DISPLAY LINE IF ANY MODIFICATIONS S P* S H P* S R > P************************************************* 78-08-15 S P S PDISLIN EQU * S P LDR A7,A5 S $ P ANK A5,/80 ANY MODIFICATIONS ?? S " P RF(Z) DISL10 NO MOD
0x00a0f8…00a28c Dummy {f00=0x00f0, f01=0x0190, f02=» A1,A10 ADD NR OF INTENSITY CHARACTERS S PDIS:10 EQU * T . < P*********************************************** 78-08-15 T B " P ST A1,ECBRL,A8 SET REQ LENGTH T P T P T $ P LDK A7,/8B SET CURSOR AND WRITE T P LKM T P DATA 1 T P EJECT T
0x00a28c…00a420 Dummy {f00=0x00f0, f01=0x018e, f02=»PART T h P* OF THE LINE U P* U " H P******************************************************************* U , P U x $ P LD A1,ECBCW,A8 CURSOR POSITION U P ANK A1,X'FF' COLUMN NUMBER U $ P* SUK A1,81 LAST POSITION ??? DK U " P SUK A1,80 LAST POSI
0x00a420…00a5b4 (1, 12) Dummy {f00=0x00f1, f01=0x0190, f02=» " P LD A1,ECBBA,A8 BUFFER ADRESS V , P LDK A2,X'2B' DONT MOVE CURSOR ONE LINE V * P SC A2,1,A1 =1 V Z * P LDKL A2,X'1420' FAST OUTPUT OF SPACES V r P SC A2,3,A1 =1 V P SRL A2,8 =1 V P SC A2,2,A1 =1 V P LDK A2,84 REQUESTED LENGTH V
0x00a5b4…00a748 Dummy {f00=0x00f1, f01=0x0190, f02=»C A2,ECBCW+1,A8 POS 1 ON NEXT LINE V P LDKL A2,/100 W * * P ADS A2,ECBCW,A8 INCREMENT LINE NUMBER W @ $ P RB SPACES PUT SPACES TO BUFFER W n P W P EJECT W P W P W D P**************************************************************** W P* W
0x00a748…00a8dc Dummy {f00=0x00f1, f01=0x0190, f02=»******************************************************************** W P X L , PINTCHK SUR A10,A10 RESET INTENSITY COUNT X T 0 P LD A2,INTATT,TCABAS GET INTENSITY ATTRIBUTE X P RF(Z) INTRTN NON DISPLAY X $ P ANK A2,X'4' HIGH INTENSITY ??? X P RF(Z)
0x00a8dc…00aa70 Dummy {f00=0x00f1, f01=0x0190, f02=»SITY X r P Y 8 PINT:20 SCR A2,A7 SAVE INTENSITY CHARACTER IN BUFFER Y & P ADK A7,1 INCREMENT BUFFER POINTER Y P * P ADKL A10,1 INTENSITY COUNT Y z PINTRTN RTN A14 RETURN Y P* Y P EJECT Y P Y D P**********************************
0x00aa70…00ac04 Dummy {f00=0x00f1, f01=0x018c, f02=»******************************************************** Y P Z @ PSET:M CWK A2,/20 Z H & P RF(L) SET:M2 ATTRIBUTE CHARACTER Z ` P CWK A2,/7F Z & P RF(E) SET:M2 UNMODIFIED ATTRIBUTE Z P CWK A2,/FF Z ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE Z ( P
0x00ac04…00ad98 Dummy {f00=0x00f1, f01=0x4008, f02=»@ [ ************************************************ Y P Z @ PSET:M CWK A2,/20 Z H & P RF(L) SET:M2 ATTRIBUTE CHARACTER Z ` P CWK A2,/7F Z & P RF(E) SET:M2 UNMODIFIED ATTRIBUTE Z P CWK A2,/FF Z ( P RF(NE) SET:M1 NOT NULL OR ATTRIBUTE Z ( P
0x00ad98…00af2c Dummy {f00=0x00f1, f01=0x2008, f02=» NT DUMMY END @ (
0x00af2c…00b0c0 Dummy {f00=0x00f1, f01=0x018e, f02=» $ . BBBZZ " . BBZZ > " R BZZ b " v BBZB " ( $ ( $ $
0x00b0c0…00b254 (1, 13) Opaque[0x194]
0x00b254…00b3e8 # DirEnt {nam=»PRT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e28, f03=0x0000}
0x00b254…00b3e8 IdxSect {
0x00b254…00b3e8 f00 = 0x00f1 // 0xb254 @0x0
0x00b254…00b3e8 f01 = 0x000c // 0xb256 @0x2
0x00b254…00b3e8 gno = [ // 0xb258 @0x4
0x00b254…00b3e8 [0x00]: C0x00f1.0x1.0
0x00b254…00b3e8 [0x01]: C0x00f1.0x2.0
0x00b254…00b3e8 [0x02]: C0x00f1.0x3.0
0x00b254…00b3e8 [0x03]: C0x00f2.0x0.0
0x00b254…00b3e8 [0x04]: C0x00f2.0x1.0
0x00b254…00b3e8 [0x05]: C0x00f2.0x2.0
0x00b254…00b3e8 ]
0x00b254…00b3e8 }
0x00b3e8…00b57c Dummy {f00=0x00f1, f01=0x0190, f02=» 2 P IDENT PRT 2.1DK 2 800609 870150540210 P : P =1, ODD BUFFER ADDRESS B P REL 2.1 79-05-23 d N P************************************************************************* P* F P* P R T : MODULE PRINTING MAIN FRAME MES
0x00b57c…00b710 Dummy {f00=0x00f1, f01=0x0190, f02=»ULE l P* J P********************************************************************** P* d 2 P* [NDRINGER IFM DECENTRAL PRINT 800222 NJ n P* LPGAE 48 = > 52 P* LPLIN ADDED P* COPY111 FUBAR P*
0x00b710…00b8a4 Dummy {f00=0x00f1, f01=0x0190, f02=» P ENTRY ICREAD P* P* ( P* EXTERNAL PARAMETERS 2 P* P P* Z ( P EXTRN UPDATE UPDATE BUFFER CONTENTS d ( P EXTRN RFMDUP REPLACE FM & DUP CHARS P EXTRN GTRBUF P EXTRN DCGETM P EXTRN RELBUF P EXTRN DC1
0x00b8a4…00ba38 Dummy {f00=0x00f1, f01=0x0190, f02=» START P* EJECT P* $ 6 P************************************************* . P* h ( P* CONDITIONAL ASSEMBLY PARAMETERS r P* . P***************************************** P 2 POFLIN EQU 1 OFFLINE HANDLING POSSIBLE
0x00ba38…00bbcc Dummy {f00=0x00f1, f01=0x0190, f02=» P* P* ( PTIMDC EQU 600 DC TIME OUT: 60 S DK2 PESC EQU /1B H PSBA EQU /11 PNULL EQU /7F NULL CHARACTER p & PNEWLIN EQU /7E NEW LINE CHARACTER $ PENDMES EQU /7D END MESSAGE CHAR " PFORMFD EQU /7C FORMFEED CHAR.
0x00bbcc…00bd60 Dummy {f00=0x00f1, f01=0x0190, f02=» ECB HANDLING P* P PECBBA EQU 2 ( PECBRL EQU 4 < PECBEL EQU 6 P PECBRC EQU 8 d PECBCW EQU 10 x P* P* P* CREDIT USED EQU P* P* P* ECB REL. ADDRESSES P* P* PDIS EQU 20
0x00bd60…00bef4 (1, 14) Dummy {f00=0x00f1, f01=0x0190, f02=»FF DCLIN=2 PECBICR EQU ECBDC-DIS P XIF . P IFT COPCMD=1 : PECBICW EQU ECBICR-DIS P PECBPR EQU ECBICW-DIS n P XIF P IFF COPCMD=1 PECBPR EQU ECBICR-DIS P XIF P* P* " P* BASE ADDRESS FOR TCA AND ECB
0x00bef4…00c088 Dummy {f00=0x00f1, f01=0x0190, f02=» 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS P* F 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 P 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 PMF2GTP EQU MF2KBV+16 P
0x00c088…00c21c Dummy {f00=0x00f1, f01=0x018e, f02=»QU PRINTER+2 VDU SCREEN BUFFER 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY & * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR Z PCURATT EQU ATTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDICATOR $ PLINCNT E
0x00c21c…00c3b0 Dummy {f00=0x00f1, f01=0x018e, f02=» , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE $ POFFFLG EQU INTATT+2 OFFLINE FLAG 4 ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID * PCCC EQU COPNO+2 COPY COMMAND CHARACTER PMAIN EQU CCC+2 MAIN FRAME & PMODE EQU MAIN+2 INSERT MODE SWITCH $ PKEYS E
0x00c3b0…00c544 Dummy {f00=0x00f1, f01=0x0190, f02=» 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB P* < : PPRBUSY EQU -2 PRINTER BUSY. OCCUPIES BOOLEAN VARAIBLE F P* EJECT P P* P* * PLBVDU EQU 1920 1920 CHARACTER DISPLAY " PLPAGE EQU 48 LINES ON ONE PAGE :
0x00c544…00c6d8 Dummy {f00=0x00f1, f01=0x018e, f02=» FOR LP x P* P P " P EJECT * PPRINT EQU * 8 P CF A14,I:EVA0 L & P LDR TCABAS,A9 LOAD ASSEM TCA BASE b P LDR* A4,TCABAS REL TASK NO " P AD A4,6,CREBAS 'CB1' ADDRESS P 6 P******************************************
0x00c6d8…00c86c Dummy {f00=0x00f1, f01=0x0190, f02=» P P LC A1,MF1GTP-1,A4 P ANK A1,/FF * P LDKL A8,ECBDC > P CF A14,EMULA T P IFT DCLIN=2 j 6 P************************************************* ~ P* , P* TRANSFER PARAMETER FOR MAIN-FRAME #2 P* 6 P************
0x00c86c…00ca00 Dummy {f00=0x00f1, f01=0x0190, f02=»A TRANSFER PARAMETER P XIF P* EJECT ( P* > P* RELATIVE POS IN ECBBLK H PICR EQU 2 h PDC1 EQU 4 z PDC2 EQU 6 P* P IFF DCLIN=2 P LDK A1,2 P XIF P IFT DCLIN=2 P LDK A1,3 P XIF
0x00ca00…00cb94 (1, 15) Dummy {f00=0x00f1, f01=0x0190, f02=» 0 P CF A14,DC1INQ TEST IF ANY MESSAGE, NO WAIT PPRI110 EQU * 8 P IFT DCLIN=2 L P LD A1,ECBBLK+DC2,TCABAS ` P RF(NZ) PRI120 PENDING 6 P CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT P XIF PPRI120 EQU * P LD A1,ECBBLK+IC
0x00cb94…00cd28 Dummy {f00=0x00f1, f01=0x018e, f02=» * P CF A14,ICREAD READ INTERTASK NO WAIT P ST A8,ECBBLK+ICR,TCABAS 2 PPRI150 EQU * R P LDKL A7,ECBBLK f P ADR A7,TCABAS ~ P LKM P DATA 7 MULTIPLE WAIT P CW A8,ECBBLK+ICR,TCABAS & P RF(E) ICRINP INPUT FROM INTERTASK : P
0x00cd28…00cebc Dummy {f00=0x00f1, f01=0x0190, f02=» P* P* READ INTERTASK, NOWAIT P* . P* A3 = BUFFER ADDRESS 8 P* A6 = REQ LENGTH V P* p PICREAD EQU * z P LDKL A8,ECBICR P ADR A8,CREBAS P LDKL A1,-1 P CF A14,REQTIM P ST A6,ECBRL,A8 REQ LENGTH P
0x00cebc…00d050 Dummy {f00=0x00f1, f01=0x0190, f02=»**************************************************************** P* H P* INPUT FROM DC R P* j 8 P**************************************************** t P* PDCINP EQU * ( P CF A14,ICABOR ABORT INTERTASK READ P LDR A7,A7
0x00d050…00d1e4 Dummy {f00=0x00f1, f01=0x018e, f02=»ILL BE DESTROYED IN 'UPDATE' PDCIN10 EQU * $ & P CF A14,GTRBUF GET RECEIVE BUFFER 8 P LD A8,ECBDCC,TCABAS b P CF A14,DCGETM READ MESSAGE ~ P IFF DCLIN=2 P CM ECBBLK+DC1,TCABAS P XIF P IFT DCLIN=2 P CW A8,ECBBLK+DC2,TC
0x00d1e4…00d378 Dummy {f00=0x00f1, f01=0x018e, f02=» P XIF PDCIN30 EQU * $ P LD A1,ECBEL,A8 EFFECTIVE LENGTH $ . P ST A1,DCLENG,TCABAS SAVE IT IN SAVE AREA L P ~ 2 P CF A14,UPDATE MOVE FROM DC TO PRINTER BUFFER; P IFT COPCMD=1 P LD A1,ICWORK,TCABAS P RF(NZ) DCIN90 COPY COMMAN
0x00d378…00d50c Dummy {f00=0x00f1, f01=0x0190, f02=» r PDCIN90 EQU * P CF A14,SNBUSY P RTN A14 2 P* EJECT B P* X P* ABORT INTERTASK READ b P* PICABOR EQU * P LDK A7,0 P CM ECBBLK+ICR,TCABAS P LDKL A8,ECBICR P ADR A8,CREBAS P LKM P
0x00d50c…00d6a0 Dummy {f00=0x00f1, f01=0x0190, f02=»CR,TCABAS P * P LDK A1,X'38' PRINT BIT, 80 CHAR./LINE 4 P ST A1,CCC,TCABAS SAVE AS COPY CONTROL CHARACTER H * P CF A14,COPY PRINT ON HARDCOPY DEVICE P LD A1,ICWORK,TCABAS ( P RB(NZ) DCIN10 TAKE CARE OF DC INPUT P RB PRI100 P
0x00d6a0…00d834 (1, 16) Dummy {f00=0x00f2, f01=0x0190, f02=»LINE LENGTHS /40, 64 AND 80 CHARS x P* * P* 4 PCOPY LDKL A8,ECBPR > P ADR A8,CREBAS PRINTER ECB X P LD A7,ECBBA,A8 z P SUR A3,A3 =1 P SC A3,0,A7 =1 P SC A3,1,A7 =1 " P ADK A7,2 PRINt BUFFER ADDRESS " P SUR A9,A9
0x00d834…00d9c8 Dummy {f00=0x00f2, f01=0x0190, f02=») COP100 START PRINTER BIT SET PCOPRTN RTN A14 & PCOP100 EQU * < P LD A2,CCC,TCABAS P P ANK A2,/30 j , P ABL(Z) COP111 NL DETERMINES LINE LENGTH ~ P SRL A2,4 P LDK A6,0 $ P LC A6,LINLEN,A2 GET LINE LENGTH PCOP110 CWR A9,
0x00d9c8…00db5c Dummy {f00=0x00f2, f01=0x0190, f02=»OP300 PRINT LAST LINE P LCR A2,A4 " P ANK A2,/7F RESET DISPLAY BIT 0 P SCR A2,A4 V P CWK A2,/20 h P RF(NL) COP130 | PCOP123 EQU * P ANK A2,6 P XRK A2,6 P RF(Z) COP150 , PCOP125 LDK A2,/20 REPLACE ATTR BY SPACE
0x00db5c…00dcf0 Dummy {f00=0x00f2, f01=0x0190, f02=» RF(NE) COP141 P LDK A2,/39 PCOP141 CWK A2,/7E * P RF(NE) COP142 D P LDK A2,/35 Z PCOP142 EQU * n P CF A14,RFMDUP FM OR DUP ? . PCOP143 CWK A2,/61 LOWER CASE CHARACTER ?? P RF(L) COP144 NO!! P SUK A2,/20 PCOP1
0x00dcf0…00de84 Dummy {f00=0x00f2, f01=0x0190, f02=»STEAD OF TEXT v P SCR A2,A7 P ADK A3,1 ( P ADK A4,1 : P ADK A7,1 L P ADKL A9,1 ^ P CWR A9,A6 p P RF(L) COP160 ( P CF A14,PRLINE LINE FULL : PRINT IT PCOP160 LCR A2,A4 P ANK A2,/7F P CWK A2,/20 P RB(
0x00de84…00e018 Dummy {f00=0x00f2, f01=0x018e, f02=» P* P* 6 P* THE FIRST INSTR. ORIGINALLY HAD LABEL 'COP200'. P* R P* PCOP111 EQU * f P CWK A9,LPLIN z " P RF(L) COP220 BUFFER NOT FULL $ PCOP210 CF A14,PRLINE PRINT LINE P ABL COP111 PCOP220 CWK A3,LBVDU
0x00e018…00e1ac Dummy {f00=0x00f2, f01=0x0190, f02=» P RF(NL) COP230 ( PCOP223 ANK A2,/6 ATTRIBUTE CHARACTER P XRK A2,6 F " P RF(Z) COP250 PROTECTED FIELD X 0 PCOP225 LDK A2,/20 REPLACE ATTRIBUTE BY SPACE ~ P RF COP240 PCOP230 CWK A2,NULL , P RB(E) COP225 NULL IS REPLACED BY SPACE
0x00e1ac…00e340 Dummy {f00=0x00f2, f01=0x0190, f02=»4,1 P ADK A7,1 P CWK A2,NEWLIN & P RB(E) COP210 NL CHAR: PRINT LINE 4 P CWK A2,FORMFD DK ^ P RB(E) COP210 DK x P CWK A2,ENDMES . P RF(E) COP300 UND MESSAGE: PRINT LAST LINE P ADKL A9,1 P ABL COP111 , PCOP250 L
0x00e340…00e4d4 (1, 17) Dummy {f00=0x00f2, f01=0x0190, f02=»9,A6 P RF(L) COP260 ( P CF A14,PRLINE LINE FULL : PRINT IT " PCOP260 LCR A2,A4 N P ANK A2,/7F f P CWK A2,/20 z " P RB(L) COP223 ATTRIBUTE FOUND ( P RB COP250 STILL IN PROTECTED FIELD PCOP300 LDR A9,A9 P ABL(Z) COPRTN A
0x00e4d4…00e668 Dummy {f00=0x00f2, f01=0x0190, f02=»N PRINTER ~ P* ( P* A9=NUMBER OF CHAR IN PRINT BUFFER P* H P* R 4 PPRLINE IM LINCNT,TCABAS COUNT NBR OF PRINTLINES " P RF(N) PRL100 NOT END OF PAGE P LDK A7,LPAGE END OF PAGE P NGR A7,A7 , P ST A7,LINCNT,TCABAS RESET
0x00e668…00e7fc Dummy {f00=0x00f2, f01=0x0190, f02=»L CHAR DK v $ P ANK A2,/7F REMOVE PARITY BIT DK P CWK A2,FORMFD DK : & P RF(NE) PRL106 NO, NORMAL PRINT DK T P LDK A2,/31 DK ~ & P SC A2,1,A7 CHANGE TO FORMFEED DK P LDK A7,2 DK & P ST A7,ECBRL,A8 REQ LENGTH = 2 DK P LDK A7,
0x00e7fc…00e990 Dummy {f00=0x00f2, f01=0x0190, f02=»UNTER DK n P RF PRL220 ! PPRL105 EQU * DK ! " . P******************** END LP400 SUPPORT DK ! : ( P LC A2,2,A7 GET FIRST CHAR IN BUFFER ! l P ANK A2,/7F ! PPRL106 EQU * DK ! P CWK A2,FORMFD ! P RF(NE) PRL200 NOT FORM FEED ! P LDK A2,/2
0x00e990…00eb24 Dummy {f00=0x00f2, f01=0x0190, f02=»T A7,ECBRL,A8 SET REQ LENGTH TO 2 FOR NEW LINE ! PPRL120 LDK A7,/86 STD WRITE " 6 P LKM " Z P DATA 1 " f P ADK A1,1 COUNT LINES " v P RB(N) PRL120 " P LDK A7,LPAGE " P NGR A7,A7 " , P ST A7,LINCNT,TCABAS RESET LINE COUNTER " 0 PPRL200
0x00eb24…00ecb8 Dummy {f00=0x00f2, f01=0x0190, f02=»KM " P DATA 1 # PPRL220 EQU * DK # P LDK A7,0 # 2 P LD A7,ECBBA,A8 # D P SUR A9,A9 =1 # P SCR A9,A7 =1 # r P SC A9,1,A7 =1 # $ P ADK A7,2 RESTORE BUFFER ADDRESS # P RTN A14 # P* EJECT # P* # P* # P* SET
0x00ecb8…00ee4c Dummy {f00=0x00f2, f01=0x406a, f02=»ATUS ORDER # ~ P LKM $ P DATA 1 $ P RTN A14 $ . P* $ > P* $ H P END $ R@ $ f # P SCR A9,A7 =1 # r P SC A9,1,A7 =1 # $ P ADK A7,2 RESTORE BUFFER ADDRESS # P RTN A14 # P* EJECT # P* # P* # P* SET
0x00ee4c…00efe0 Dummy {f00=0x00f2, f01=0x2008, f02=» % IDENT PRT END "@ 6
0x00efe0…00f174 (1, 18) Dummy {f00=0x00f2, f01=0x0190, f02=»TKREDITT[LLERKONTONRTOTAL EKS.LBNRDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUM SLUT TEST FRA/TIL-NRBEV.PERIODE START TESTKASSELUKNINGDISKETTE SKIFT BEHOLDNINGST[LLEREUDSKRIFT AF TEKSTFILVERSURKONTONR KASSEKONTONR PRIMO KASSE 9X99BZXXZZ99999BB**
0x00f174…00f308 Dummy {f00=0x00f2, f01=0x0190, f02=»Z.ZZZZ99999999.99.99BB99.99.99BZZ.ZZ.ZZBZZZZZZZZZZ.ZZ.ZZB99E-99E-99B99.99.99BBB99.99.9999.99.999.9BZZZZZZZZZZZZZZZZZZZZB******E-****XXXXXXE-XXXXXXXXXXXXE-XXZZZZ9999.99BBBZZ.ZZ.ZZBBBE-9999999999BXXX.XXXXX.XXB999E-99999E-99B999.99999.99BXE-XXE-XXE-XXBXXXE-XXXXXE-XXZ
0x00f308…00f49c Dummy {f00=0x00f2, f01=0x0190, f02=»99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZBBZZZ.ZZZ.ZZZ.ZZ9.99- & 1 O
0x00f49c…00f630 Dummy {f00=0x00f2, f01=0x0190, f02=»l * l Q Q A +O + _ R 2 h A ] g J ] Y J +O * N _ 0 R U E t 0 P N 2 U U ) ) QQ G N Q U E t u Q H Q G 0 0 D D 1 U U +; N <$ 8 + Q5 ' hQ
0x00f630…00f7c4 Dummy {f00=0x00f2, f01=0x0190, f02=» ^ 2 Ii Ui Ui D 1 H @ E 2I U Uo Uo DIVERSE FORMATER + : ) 7 Q EL N " U 2# A = $ < ] N E S [ +9 Q R * 3 b ! 8 ! h T U 2 A h 3
0x00f7c4…00f958 Dummy {f00=0x00f2, f01=0x0190, f02=» 9~ M - b 1 ^ b. > C B 1 T U h A 2 3, & % U h A 2 3 5 R 2 * 4 C D N @ 4F PRIMOU 2 BEV U U U 2 ULTIMOU 4 TOTALU U
0x00f958…00faec Dummy {f00=0x00f2, f01=0x0190, f02=» VERSNR G J I F <C 9~ 9 * T K K J * I HC4NM/.-/M/,,/+*)DD)*)(()%?>'& ? ??>:B96= 548K$ $$<;0#" 47! *)GF)*)(()% " $ & ( * , .
0x00faec…00fc80 Dummy {f00=0x00f2, f01=0x0190, f02=» " * 60 `0 a0 b0 c0 d0 e0 f0 g0 h0 i " % ( , 0 4 8 < @ D H L Q V [ ` e k q x
0x00fc80…00fe14 (1, 19) Opaque[0x194]
0x00fe14…00ffa8 # DirEnt {nam=»START «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x00e9 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0022 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x00e9.0x3.0
0x00fe14…00ffa8 [0x01]: C0x00ea.0x0.0
0x00fe14…00ffa8 [0x02]: C0x00ea.0x1.0
0x00fe14…00ffa8 [0x03]: C0x00ea.0x2.0
0x00fe14…00ffa8 [0x04]: C0x00ea.0x3.0
0x00fe14…00ffa8 [0x05]: C0x00eb.0x0.0
0x00fe14…00ffa8 [0x06]: C0x00eb.0x1.0
0x00fe14…00ffa8 [0x07]: C0x00eb.0x2.0
0x00fe14…00ffa8 [0x08]: C0x00eb.0x3.0
0x00fe14…00ffa8 [0x09]: C0x00ec.0x0.0
0x00fe14…00ffa8 [0x0a]: C0x00ec.0x1.0
0x00fe14…00ffa8 [0x0b]: C0x00ec.0x2.0
0x00fe14…00ffa8 [0x0c]: C0x00ec.0x3.0
0x00fe14…00ffa8 [0x0d]: C0x00ed.0x0.0
0x00fe14…00ffa8 [0x0e]: C0x00ed.0x1.0
0x00fe14…00ffa8 [0x0f]: C0x00ed.0x2.0
0x00fe14…00ffa8 [0x10]: C0x00ed.0x3.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x00e9, f01=0x0190, f02=» 2 P IDENT START 2.1DK 4 79-10-20 870150540210 P : P =1, ODD BUFFER ADDRESS B P REL 2.1 79-05-23 d P =2, 6234 LAMPS P REL 2.1 79-05-23 P =3, UNDEFINED LABEL P REL 2.1 79-05-23 . P =4, CURSOR STOPS AT L
0x01013c…0102d0 Dummy {f00=0x00e9, f01=0x0190, f02=»******************************************* ~ P* 4 H P* S T A R T : MODULE HANDLING KEYBOARD INPUT.KEYBOARD INITIATED > H P* MESSAGES ADDRESSED TO THE MAIN FRAME ARE COMPOSED B P* AND SENT BY USING ROUTINES IN MO
0x0102d0…010464 Dummy {f00=0x00e9, f01=0x0190, f02=» P EJECT P* P* P* ENTRY PARAMETERS * P* D P* N P* X P ENTRY LINHON,LINHOF,ATMASB b P ENTRY LSAVOF,LSAVON P ENTRY EMULA & P ENTRY LIOLON TURN ON OFFLINE LAMP ( P ENTRY LIOLOF TURN OFF OFFLINE LAMP
0x010464…0105f8 Dummy {f00=0x00e9, f01=0x0190, f02=»R r P ENTRY ICWRTE P* P* * P* 4 P* EXTERNAL REFERENSES > P* ` P* j P* t P EXTRN DCINP ~ P EXTRN DCGETM P EXTRN ICREAD P EXTRN GTRBUF P EXTRN RLRBUF P EXTRN ERASE VDUPRT P E
0x0105f8…01078c Dummy {f00=0x00e9, f01=0x0190, f02=» P* 0 P EXTRN KEYCNV KEY CONVERSION IF NOT PTS 6272 P EXTRN TASCII F P* , P EXTRN I:EVA0 CREDIT EVALUATION ROUTINE f & P EXTRN I:RT1 RETURN TO CREDIT CODE P EJECT P P > P******************************************
0x01078c…010920 Dummy {f00=0x00e9, f01=0x0190, f02=»KB6272 EQU 0 IF PTS 6272 (6236) IS NOT USED YOU MUST USE 'KEYCNV' 0 P USE THE KEY CONVERSION TABLE IN 'TB3270' J 0 PKEYLST EQU 0 KEY LOCK STATUS SAVED IN 'KEYS' ~ POFLIN EQU 1 . PDCLIN EQU 1 NUMBER OF MAIN FRAMES (1 OR 2) PPFX EQU 1
0x010920…010ab4 (1, 20) Dummy {f00=0x00ea, f01=0x0190, f02=»OPY LOCK IF := 1 P EJECT P* & P* 0 P* EQUATES : P* P PRSET EQU /B2 RESET KEY Z " P* COMMON EQU FOR ECB HANDLING x P* P PECBBA EQU 2 PECBRL EQU 4 PECBEL EQU 6 PECBRC EQU 8 PECBCW EQ
0x010ab4…010c48 Dummy {f00=0x00ea, f01=0x0190, f02=» P* PECBDC EQU -DIS-14 P IFT DCLIN=2 , P IFT COPCMD=1 @ PECBDC2 EQU ECBDC-DIS V PECBICR EQU ECBDC2-DIS r PECBICW EQU ECBICR-DIS P XIF P IFT DCLIN=2 P IFF COPCMD=1 PECBDC2 EQU ECBDC-DIS PECBICW E
0x010c48…010ddc Dummy {f00=0x00ea, f01=0x0190, f02=»IF P IFF DCLIN=2 P IFF COPCMD=1 PECBICW EQU ECBDC-DIS 4 P XIF P PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS z PECBSD EQU ECBKB-DIS P EJECT P* P* " P* BASE ADDRESS FOR TCA AND ECB P* PTCAB
0x010ddc…010f70 Dummy {f00=0x00ea, f01=0x0190, f02=»T01+2 ( PBVDU EQU PRINTER+2 VDU SCREEN BUFFER 0 PPCURS EQU BVDU+1920 CURSOR ADDRESS , BINARY : * PATTRIB EQU PCURS+2 LAST ATTRIBUTE CHAR n PCURATT EQU ATTRIB+2 & PWCC EQU CURATT+2 WCC/CCC CHARACTER . PKBINH EQU WCC+2 KEYBOARD INHIBIT INDIC
0x010f70…011104 Dummy {f00=0x00ea, f01=0x0190, f02=»NTERTASK COMM p , PINTATT EQU ICWORK+2 INTENSITY ATTRIBUTE $ POFFFLG EQU INTATT+2 OFFLINE FLAG F ( PCOPNO EQU OFFFLG+2 HARDCOPY TASK ID n * PCCC EQU COPNO+2 COPY COMMAND CHARACTER PMAIN EQU CCC+2 MAIN FRAME & PMODE EQU MAIN+2 INSERT MODE SW
0x011104…011298 Dummy {f00=0x00ea, f01=0x018e, f02=»PLE WAIT &C n 4 PRDMORE EQU ECBBLK+10 BRANCH ADDRESS NEXT READ KB 0 PLAMSAV EQU RDMORE+2 SAVE AREA FOR LAMPS DK2 L P EJECT PNULL EQU /7F NULL CHARACTER PDUPCH EQU /7B PFMCH EQU /60 * PLBVDU EQU 1920 1920 CHAR DISPLAY 6344 "
0x011298…01142c Dummy {f00=0x00ea, f01=0x0190, f02=» P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS 4 P* ^ 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 h 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 PMF2G
0x01142c…0115c0 Dummy {f00=0x00ea, f01=0x018e, f02=» P DATA CHAR SPACE P DATA CHAR ! P DATA CHAR " 0 P DATA CHAR # D P DATA CHAR $ X P DATA CHAR % l ( P DATA CHARFS & FIELD SEPARATOR DK4 P DATA CHAR ' P DATA CHAR ( P DATA CHAR ) P DATA CHAR * P DATA CHAR +
0x0115c0…011754 (1, 21) Dummy {f00=0x00ea, f01=0x0190, f02=» P DATA NUM 2 P DATA NUM 3 P DATA NUM 4 , P DATA NUM 5 @ P DATA NUM 6 T P DATA NUM 7 h P DATA NUM 8 | P DATA NUM 9 P DATA CHAR : P DATA CHAR ; P DATA CHAR < P DATA CHAR = P DATA CHAR > P
0x011754…0118e8 Dummy {f00=0x00ea, f01=0x018e, f02=»A CHAR E P DATA CHAR F P DATA CHAR G $ P DATA CHAR H 8 P DATA CHAR I L P DATA CHAR J ` P DATA CHAR K t P DATA CHAR L P DATA CHAR M P DATA CHAR N P DATA CHAR O P* P DATA CHAR P P DATA CHAR Q
0x0118e8…011a7c Dummy {f00=0x00ea, f01=0x0190, f02=» P DATA CHAR Y P DATA CHAR Z P DATA CHAR [ 0 P DATA CHAR BACK SLASH D P DATA CHAR ] b P DATA CHAR CIRCOMFLEX v P DATA CHAR UNDERLINE P* $ P DATA RETURN /60 CANNOT BE USED P DATA CHAR LOWER CASE P DATA CH
0x011a7c…011c10 Dummy {f00=0x00ea, f01=0x018e, f02=» DATA CHAR P DATA CHAR P DATA CHAR $ P DATA CHAR 6 P DATA CHAR H P DATA CHAR Z P* l P IFT KEYLST=1 v P DATA KEYL KEYLOCK P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P DATA KEYL P DATA KE
0x011c10…011da4 Dummy {f00=0x00ea, f01=0x0190, f02=» P DATA RETURN P DATA RETURN P DATA RETURN 0 P DATA RETURN D P XIF X P DATA CHAR LOWER CASE X d P DATA CHAR P DATA CHAR ( P DATA RETURN /7B-/7F CANNOT BE USED P DATA RETURN P DATA RETURN P DATA RETURN
0x011da4…011f38 Dummy {f00=0x00ea, f01=0x0190, f02=» DATA PA1 P DATA PA2 P DATA PA3 $ & P DATA PA410 PA4 - PA10 (ALFASKOP) 6 P DATA PA410 ` P DATA PA410 t P DATA PA410 P DATA PA410 P DATA PA410 P DATA PA410 P DATA CLEAR P IFT PFX=1 P DATA PFEX
0x011f38…0120cc Dummy {f00=0x00ea, f01=0x018e, f02=»ATA PF 4 P DATA PF 5 P DATA PF 6 " P DATA PF 7 4 P DATA PF 8 F P DATA PF 9 X P DATA PF 10 j P DATA PF 11 ~ P DATA PF 12 . P DATA RETURN /99-/A4 RESERVED FOR PF13-24 P DATA RETURN P DATA RETURN P DATA RE
0x0120cc…012260 Dummy {f00=0x00ea, f01=0x0190, f02=» P DATA RETURN P DATA RETURN P DATA ENTER 0 P DATA CRUP D P DATA CRLEFT V P DATA CRRIGT j P DATA CRDOWN ~ P DATA BAKTAB P DATA TAB P DATA CRNL P DATA RDHOME P DATA ERINPT P DATA EREOF P*
0x012260…0123f4 (1, 22) Dummy {f00=0x00ea, f01=0x0190, f02=» P XIF P DATA RESET P DATA DUP $ P DATA FLDMRK 6 P DATA COPY J P IFT OFLIN=1 P DATA OFLINE p P XIF P IFF OFLIN=1 P DATA RETURN P XIF P IFT DCLIN=2 P DATA MFCHGE P XIF P IFF DCLIN=2
0x0123f4…012588 Dummy {f00=0x00ea, f01=0x0190, f02=» DATA RETURN P DATA RETURN P DATA RETURN ( P* < 6 P DATA LCASPW LOWER CASE P - W (BECAUSE OF KEYLOCK) F P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW P DATA LCASPW
0x012588…01271c Dummy {f00=0x00ea, f01=0x0190, f02=»*********************************************************** P D PDCTASK EQU * L P CF A14,I:EVA0 ` & P LDR* A1,A9 POLL & SELECT ADDRESS v P LDKL A8,ECBDC P ADR A8,CREBAS P ST A1,ECBCW,A8 $ P LDK A7,/B7 TRANSFER PARAMETERS
0x01271c…0128b0 Dummy {f00=0x00ea, f01=0x0190, f02=»4,GTRBUF GET RECEIVE BUFFER P LDKL A8,ECBDC $ P ADR A8,CREBAS : P CF A14,DCGETM P P LD A4,ECBBA,A8 f " P CF A14,RLRBUF RELEASE BUFFER ~ P RB DCT100 P EJECT P* P* ( P* SUBROUTINE ACTIVATED BY ALL TASKS P*
0x0128b0…012a44 Dummy {f00=0x00ea, f01=0x0190, f02=»ARAMETERS z P LKM P DATA 1 P RTN A14 . P EJECT > P* L : P***************************************************** V P* P* VDUKB P* " P* MAIN MODULE FOR KEYBOARD VDU P* < P****************************
0x012a44…012bd8 Dummy {f00=0x00ea, f01=0x0190, f02=»IN=1 P P 4 P STR A12,A14 SAVE REGISTERS A12-A13 ON A14 STACK P ST A13,-2,A14 T $ P SUKL A14,4 UPDATE STACK POINTER j P CM OFFFLG,TCABAS , P CM LAMSAV,TCABAS CLEAR LAMP STATUS DK2 * P CF A14,LIOLOF TURN OFF OFF LINE LAMP
0x012bd8…012d6c Dummy {f00=0x00ea, f01=0x0190, f02=»ER FOR MAIN FRAME #1 | P* B P************************************************************* & P l P LDR* A4,TCABAS REL TASK NO t " P AD A4,6,CREBAS 'CB1' ADDRESS & P LC A1,MF1KBV-1,A4 GET DV-ADDRESS P ANK A1,/FF P LDKL A8,ECB
0x012d6c…012f00 Dummy {f00=0x00ea, f01=0x0190, f02=» , P* TRANSFER PARAMETER FOR MAIN-FRAME #2 P* 4 B P************************************************************* > P & P LC A1,MF2KBV-1,A4 GET DV ADDRESS P ANK A1,/FF P LDKL A8,ECBDC2 P CF A14,EMULA P XIF P EJE
0x012f00…013094 (1, 23) Dummy {f00=0x00ea, f01=0x0190, f02=»NITIATE WITH UNFORM. SCREEN z P CF A14,LMF1ON $ , P CM MAIN,TCABAS INDICATE MAIN-FRAME # 1 : P EJECT j P* x P* RELATIVE POS IN ECBBLK PKB EQU 2 PDC1 EQU 4 P IFT DCLIN=2 P IFT COPCMD=1 PDC2 EQU 6 PICR EQU
0x013094…013228 Dummy {f00=0x00ea, f01=0x0190, f02=»FF DCLIN=2 P IFT COPCMD=1 PICR EQU 6 ( PECBBS EQU 3 : P XIF N P IFF DCLIN=2 Z P IFF COPCMD=1 n PECBBS EQU 2 P XIF P* P LDK A1,ECBBS P ST A1,ECBBLK,TCABAS PVDU100 EQU * P LD A1,ECBBLK+DC1,TC
0x013228…0133bc Dummy {f00=0x00ea, f01=0x0190, f02=»D A1,ECBBLK+DC2,TCABAS P RF(NZ) VDU120 PENDING 6 P CF A14,DC2INQ TEST IF ANY MESSAGE MF # 2, NO WAIT < P XIF v PVDU120 EQU * P IFT COPCMD=1 P LD A1,ECBBLK+ICR,TCABAS P RF(NZ) VDU125 PENDING P LDKL A3,ICWORK BUFFER P
0x0133bc…013550 Dummy {f00=0x00ea, f01=0x018e, f02=» * P LD A1,ECBBLK+KB,TCABAS ! P RF(NZ) VDU150 PENDING ! * ( P CF A14,RDKBNW READ KEYBOARD NO WAIT ! H PVDU150 EQU * ! t P LDKL A7,ECBBLK ! P ADR A7,TCABAS ! P LKM ! P DATA 7 MULTIPLE WAIT ! P CW A8,ECBBLK+KB,TCABAS ! $ P RF(E) K
0x013550…0136e4 Dummy {f00=0x00ea, f01=0x0190, f02=» ! : P ST A8,ECBDCC,TCABAS SAVE ECB ADDRESS FOR CURRENT READ " P CF A14,DCINP INPUT FROM DC " F P RB VDU100 " j P EJECT " | P* " P* READ KEYBOARD WITH NO WAIT " P* " PRDKBNW EQU * " P LDKL A8,ECBKB " P ADR A8,CREBAS " P LDK A
0x0136e4…013878 Dummy {f00=0x00ea, f01=0x0190, f02=»30 " P* # P* TEST IF ANY MESSAGE DC # P* # 4 PDC1INQ EQU * # > P LDKL A8,ECBDC # R P ADR A8,CREBAS # h P ST A8,ECBBLK+DC1,TCABAS # ~ PDC1I20 EQU * # P LDK A1,0 # P CF A14,REQTIM # P LDK A7,0 # PDC1I30 EQU * # P LKM #
0x013878…013a0c Dummy {f00=0x00ea, f01=0x0190, f02=»DC2,TCABAS # P RB DC1I20 $ P XIF $ $ P IFT COPCMD=1 $ 0 P EJECT $ F P* $ T " P* SEND BUFFER TO PRINTER TASK $ ^ P* $ PBUFCOP EQU * $ P CM ECBBLK+ICR,TCABAS $ P LDKL A3,BVDU BUFFER $ P ADR A3,TCABAS ADDRESS $ P IFT COPL=1
0x013a0c…013ba0 Dummy {f00=0x00ea, f01=0x0190, f02=»PY $ z P XIF % P IFT COPCMD=1 % 0 P LDK A4,/8B ORDER: WRITE ADDRESSED WITH WAIT % , P LD A5,ICWORK,TCABAS TASK ID % ` P LDKL A6,LBVDU REQ LENGTH % P CF A14,ICWRTE % P LD A1,KBINH,TCABAS % ( P ANK A1,/E NOT INHIBITED ANY LONGER % P ST
0x013ba0…013d34 (1, 24) Dummy {f00=0x00eb, f01=0x0190, f02=»B,TCABAS % P LD A2,ECBCW,A8 & P RF(Z) KBIN05 POWER OFF & ( P LD A2,ECBRC,A8 & H P RF(0) KBIN10 & ` PKBIN05 EQU * & v $ P LDK A7,4 RESET KEYBOARD BUFFER & P LKM & P DATA 1 & P RB VDU100 & PKBIN10 EQU * & P LD A1,KBINH,TCABAS
0x013d34…013ec8 Dummy {f00=0x00eb, f01=0x0190, f02=»2=1 =5 & & P CF A14,KEYCNV CONVERT KEY CODE =5 ' P XIF =5 ' : P LD A1,KBINH,TCABAS ' L " P ANK A1,6 MUST BE RESET KEY ? ' h P RF(Z) KBIN20 NO ' P CWK A2,RSET RESET KEY ? ' P RB(NE) KBIN05 NO ' PKBIN20 EQU * ' $ P LDR A5,A2 COPY INPU
0x013ec8…01405c Dummy {f00=0x00eb, f01=0x0190, f02=»F A14,DCABOR ABORT DC-READ TO ENABLE DC-WRITE ' P LDR A7,A7 ( 6 6 P ABL(NZ) VDU100 DC COMPLETED, TAKE CARE OF MESSAGE ( H P ADR A5,A5 TO KEY TABLE ( P* ( P LDKL A8,ECBVDU ( P ADR A8,CREBAS ( P LD A1,RDMORE,TCABAS ( P RF(Z) KBIN30 (
0x01405c…0141f0 Dummy {f00=0x00eb, f01=0x0190, f02=»R ( P ABL VDU100 ) P EJECT ) P* ) , & P* ABORT DC-REQUEST TO ENABLE WRITE ) 6 P* ) ` PDCABOR EQU * ) j P LDK A7,0 ) ~ P LDKL A8,ECBDC ) P IFT DCLIN=2 ) P LD A1,MAIN,TCABAS ) P RF(NZ) DCAB05 ) P XIF ) P CM ECBBLK+DC1,TCA
0x0141f0…014384 Dummy {f00=0x00eb, f01=0x0190, f02=» ) P XIF * P ADR A8,CREBAS * P LKM * * P DATA 10 * 6 P RTN A14 * F P EJECT * V P* * d P* SET REQUEST TIMER * n P* A1 = TIME OUT VALUE * P* A8 = ECB ADDRESS * P* * PREQTIM EQU * * P ST A1,ECBCW,A8 * P LDK A7,/B9 *
0x014384…014518 Dummy {f00=0x00eb, f01=0x0190, f02=»************ * b P* + P* RETURN + P* + . B P************************************************************** + 8 P* + ~ PRETURN RTN A14 + P EJECT + P* + < P******************************************************* + P* + P* CR
0x014518…0146ac Dummy {f00=0x00eb, f01=0x0190, f02=»********* + b P* , PCRLEFT EQU * , * P LD A2,PCURS,TCABAS GET CURSOR BINARY , 0 P SUK A2,1 , ^ $ P RF(NN) CRL050 NOT LEFTMOST POS , p P LDKL A2,LBVDU-1 , PCRL050 RF CRH100 , P* , < P******************************************************
0x0146ac…014840 Dummy {f00=0x00eb, f01=0x0190, f02=»******************************************** , P* - 4 P* A3=CHARACTER - > P* - T PCRRIGT EQU * - ^ * P LD A2,PCURS,TCABAS GET CURSOR BINARY - r P ADK A2,1 - P CWK A2,LBVDU END OF BUFFER? - P RF(L) CRR050 NO - P LDK A2,0 - PCRR050 R
0x014840…0149d4 (1, 25) Dummy {f00=0x00eb, f01=0x0190, f02=» - < P* THE MODULE MOVES THE CURSOR TO NEXT ROW. SAME COLUMN. . P* . H @ P************************************************************ . R P* . PCRDOWN EQU * . & P LD A2,PCURS,TCABAS GET CURSOR POS . P ADKL A2,LLINE . P CWK A2,LBVDU LAST L
0x0149d4…014b68 Dummy {f00=0x00eb, f01=0x0190, f02=»****************** . d P* / P* CRUP / $ P* / 2 ( P* MOVE CURSOR ONE LINE UP. SAME COL. / < P* / h B P************************************************************** / r P* / PCRUP EQU * / * P LD A2,PCURS,TCABAS GET CURSOR BINARY / P SUKL
0x014b68…014cfc Dummy {f00=0x00eb, f01=0x0190, f02=»************************************** / P* 0 . P* CRHOME 0 8 P* 0 H P* HOME POSITIONING OF CURSOR 0 R P* 0 v : P****************************************************** 0 P* 0 PCRHOME EQU * 0 P LDK A2,0 0 PCRH100 EQU * 0 * P ST A2
0x014cfc…014e90 Dummy {f00=0x00eb, f01=0x0190, f02=» 0 P* 1 : P***************************************************** 1 P* 1 P P* CRNL 1 Z P* 1 h 2 P* CURSOR IN FIRST UNPROTECTED POS ON NEW LINE 1 r P* 1 : P***************************************************** 1 P* 1 PCRNL EQU * 1
0x014e90…015024 Dummy {f00=0x00eb, f01=0x0190, f02=» AROUND 1 P* 2 P* COMPUTE LEFTMOST POS 2 P* 2 8 PCRN050 LDK A1,0 2 B PCRN100 SUKL A2,LLINE 2 Z P RF(N) CRN120 2 v P ADKL A1,LLINE 2 P RB CRN100 2 2 PCRN120 ST A1,PCURS,TCABAS STORE CURSOR ADDRESS 2 P EJECT 2 P 2 F P********
0x015024…0151b8 Dummy {f00=0x00eb, f01=0x0190, f02=»UK A1,1 2 $ P RF(Z) CRN130 NO ATTRIBUTE FOUND 3 P ANK A3,/10 3 8 P RF(NZ) TAB PROTECTED FIELD 3 L . P CW A2,PCURS,TCABAS CURSOR ON ATTRIBUTE ?? 3 p P RF(NE) CRN150 NO!! 3 ( P CWK A2,1919 LAST SCREEN POSITION?? 3 P RF(NE) CRN140 NO!! 3 PCR
0x0151b8…01534c Dummy {f00=0x00eb, f01=0x0190, f02=»******************************************************************* 3 P EJECT 4 L P* 4 Z 8 P**************************************************** 4 d P* 4 P* TAB 4 P* 4 2 P* MOVE THE CURSOR TO THE FIRST CHAR. LOCATION 4 ( P* OF THE NEXT UN
0x01534c…0154e0 Dummy {f00=0x00eb, f01=0x018e, f02=» 0=EOB NOT REACHED 4 t P* 2=EOB 5 P* 3=ATTRIB. IN EOB POS 5 , P* A2=CURSOR BINARY ADDRESS 5 L P* A3=CHARACTGR 5 n P* 5 PTAB EQU * 5 P LDK A5,1 5 & P LD A2,PCURS,TCABAS GET CURSOR POS 5 * PTAB100 CF A14,ATMASF SEARCH ATTRIBUTE 5
0x0154e0…015674 (1, 26) Dummy {f00=0x00eb, f01=0x018e, f02=» 5 | P RB TAB100 NEXT ATTRIB. 6 PTAB200 ST A2,PCURS,TCABAS 6 ( & P CF A14,SETCUR DISPLAY NEW CURSOR 6 J P RTN A14 6 t PTAB300 LDK A2,0 6 , P CWK A1,3 ATTRIBUTE IN LAST POSITION ?? 6 P EJECT 6 < P**********************************************
0x015674…015808 Dummy {f00=0x00eb, f01=0x018e, f02=» P RB TAB150 CHECK ATTRIBUTE 7 PTAB350 EQU * 7 & < P******************************************************** 7 : $ P ANK A5,1 WHOLE BUFF. CONTROLED? 7 z P RF(G) TAB400 NO 7 0 P RB TAB200 ALL PROT. OR NON-FORMATTED BUFF. 7 PTAB400 LDK A5,0 7 P R
0x015808…01599c Dummy {f00=0x00eb, f01=0x018e, f02=» 7 P* DUPLICATE KEY 8 : P* OPERATION OF THIS KEY CAUSES A UNIQUE CHARACTER CODE 8 : P* TO BE ENTERED INTO THE DISPLAY BUFFER AND A STANDARD 8 ^ ( P* TAB KEY OPERATION TO BE PERFORMED 8 P* 8 @ P******************************************************
0x01599c…015b30 Dummy {f00=0x00eb, f01=0x0190, f02=» 8 P LDK A2,DUPCH 9 0 P LD A3,ECBKB+ECBBA,CREBAS GET KB BUFF. ADDR. 9 P SCR A2,A3 9 R P CF A14,NUM 9 d P CF A14,TAB 9 x P RTN A14 9 P EJECT 9 P* 9 @ P*********************************************************** 9 P* 9 P*
0x015b30…015cc4 Dummy {f00=0x00eb, f01=0x018e, f02=»UFFER IN ADDITION 9 j , P* TO THE DC CHARACTER TRANSMITTED : P* : J > P********************************************************** : T P* : PFLDMRK EQU * : $ P LD A1,MODE,TCABAS INSERT MODE?? : 6 P ABL(NZ) ERROR FUNCTION NOT ALLOWED IN INSER
0x015cc4…015e58 Dummy {f00=0x00eb, f01=0x018e, f02=» : P EJECT ; P* ; > P********************************************************** ; P* ; b P* RDHOME ; l P* ; P* READY HOME KEY ; 8 P* OPERATION OF THIS KEY CAUSES THE CURSOR TOBE ; : P* POSITIONED AT THE FIRST U
0x015e58…015fec Dummy {f00=0x00eb, f01=0x0190, f02=» ; PRDHOME LDKL A4,BVDU < & P ADR A4,TCABAS VDU BUFFER ADDRESS < $ , P LC A2,1919,A4 GET LAST SCREEN CHARACTER < N P ANK A2,/7F < ~ P CWK A2,/20 < P RF(NL) RDH10 < P ANK A2,/10 < $ P ABL(Z) CRHOME UNPROTECTED FIELD < PRDH10 CM PCURS,T
0x015fec…016180 Dummy {f00=0x00eb, f01=0x0190, f02=»******************* < n P* = P* BAKTAB = & P* = 6 6 P* MOVE THE CURSOR TO THE FIRST CHARACTER LOCATION = @ 2 P* OF THE NEXT PRECIDING UNPROTECTED DATA FIELD = z P* = 8 P**************************************************** = P* = P* A2=CUR
0x016180…016314 (1, 27) Dummy {f00=0x00eb, f01=0x0190, f02=»GBUFFC GET BUFF CHAR. = P CWK A3,/1F ATTRIB. CHAR? > P RF(NG) BAK100 YES > @ " P CWK A2,0 UPPER LEFTMOST POS? > Z P RF(E) BAK400 YES > P SUK A2,1 > ( PBAK100 CWK A2,0 UPPER LEFTMOST POS? > P RF(E) BAK400 YES > PBAK200 SUK A2,1 > $
0x016314…0164a8 Dummy {f00=0x00eb, f01=0x0190, f02=»AK400 NO ATTRIBUTE > 4 P RF(N) BAK250 ATTRIBUTE FOUND. NOT IN LAST POS. ? 0 P SUR A2,A2 ATTRIBUTE FOUND IN LAST POSITION ? R P RF BAK300 ? PBAK250 EQU * ? > P********************************************************* ? P ANK A3,/10 PROTECTED? ?
0x0164a8…01663c Dummy {f00=0x00eb, f01=0x0190, f02=»00 SUK A5,1 WHOLE BUFF CONTROLLED? ? P RB(NZ) BAK300 YES @ * ( P LDKL A2,LBVDU-1 END BUFFER ADDRESS @ D " P CF A14,GBUFFC GET BUFF CHAR. @ p P CWK A3,/1F ATTRIBUTE CHAR? @ P RB(G) BAK200 NO @ P ANK A3,/10 PROTECTED? @ P RB(NE) BAK200 YES @ .
0x01663c…0167d0 Dummy {f00=0x00eb, f01=0x0190, f02=»******* @ X P RB BAK200 A D P**************************************************************** A " P EJECT A j P* A x > P********************************************************* A P* A P* CHAR A P* A : P* ALPHABETIC AND SPECIAL CHAR UPDA
0x0167d0…016964 Dummy {f00=0x00eb, f01=0x0190, f02=»UK A2,/50 CONVERT TO LOWER CASE P - W A P SC* A2,ECBKB+ECBBA,CREBAS B . P* B P PCHAR EQU * B Z & P LD A2,PCURS,TCABAS GET CURSOR POS B l . P LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS B P CWR A2,A3 CURSOR ON ATTRIB? B P RF(E) CHA300 YES B 2 PCH
0x016964…016af8 Dummy {f00=0x00eb, f01=0x0190, f02=»A200 LDR A4,A3 B P ANK A4,/8 NUMERIC FIELD? C P RF(E) ANCOMM NO C 8 , PCHA300 ABL ERROR NOT ALLOWED DISPLAY POS C P P* C P********** C " P* UPDATING OF FIELD SEPARATOR C P* DK4 C P* C PCHARFS EQU * DK4 C $ P LDK A2,/26 LOAD C
0x016af8…016c8c Dummy {f00=0x00eb, f01=0x0190, f02=»CT C D P*************************************************************** D P* D R & P* Z E R O : 3 TRIPLE ZERO KEY D ( P* Z E R O : 2 DOUBLE ZERO KEY D P* D 6 P************************************************* D P D PZERO:3 EQU
0x016c8c…016e20 Dummy {f00=0x00eb, f01=0x0190, f02=» D r P E PZERO:2 EQU * E P LDK A1,X'30' CHARACTER ZERO E $ 8 P SC* A1,ECBKB+ECBBA,CREBAS STORE CHARACTER IN BUFFER E H " P CF A14,NUM DISPLAY CHARACTER E " P CF A14,NUM DISPLAY CHARACTER E P RTN A14 RETURN E P* E > P**********************
0x016e20…016fb4 (1, 28) Dummy {f00=0x00ec, f01=0x0190, f02=»************************************************ E P* F 8 PNUMCOM EQU * F B P LDK A2,/2C F V P SC* A2,ECBKB+ECBBA,CREBAS F j P* F PNUM EQU * F & P LD A2,PCURS,TCABAS GET CURSOR POS F . P LD A3,CURATT,TCABAS GET ATTRIBUTE ADDRESS F $ P CWR
0x016fb4…017148 Dummy {f00=0x00ec, f01=0x0190, f02=»NK A4,/10 PROTECTED FIELD? F P RF(E) ANCOMM NO G " , PNUM200 ABL ERROR NOT ALLOWED DISPLAY POS G : P EJECT G j P* G x > P********************************************************** G P* G P* ANCOMM G P* G < P* COMMON SUBMODULE FOR ALPHANUME
0x017148…0172dc Dummy {f00=0x00ec, f01=0x0190, f02=»ANCOMM EQU * G " P LC* A4,ECBKB+ECBBA,CREBAS =1 H PANC005 EQU * H : P LDKL A6,BVDU H N P ADR A6,TCABAS H d P ADR A6,A2 H z P H & P LD A1,MODE,TCABAS INSERT MODE ?? H P RF(NZ) ANC010 YES!! H P SCR A4,A6 UPDATE VDU BUFF H * PANC010 LDR A
0x0172dc…017470 Dummy {f00=0x00ec, f01=0x0190, f02=» A6,A2 BVDU START ADDR. H P ADR A6,A5 ATTRIB. POS I , P LD A3,ATTRIB,TCABAS GET ATTRIBUTE CHAR I > P ORK A3,1 MDT-BIT ON I n P SCR A3,A6 I PANC100 EQU * I P IFT IN:DL=1 =3 I & P LD A1,MODE,TCABAS INSERT MODE ?? I P RF(Z) ANC120 NO!! I
0x017470…017604 Dummy {f00=0x00ec, f01=0x0190, f02=» A4,A7 STORE INPUT CHARACTER I P XIF =3 J $ PANC120 EQU * J 6 P J J 2 P LDK A5,/2B CURSOR NOT MOVED BEFORE DISPLAYING J R P LD A1,ECBVDU+ECBBA,CREBAS J P SC A5,1,A1 =1 J P LDK A5,/1E J P ADK A1,2 NEXT POS J ( P SCR A5,A1 LOW INT, ST
0x017604…017798 Dummy {f00=0x00ec, f01=0x0190, f02=»ING? J r P RF(Z) ANC150 YES K P LDK A2,/20 LOAD SPACE K & P RF ANC250 NON DISPLAYING K D ( PANC150 LDK A5,/1F SET HIGH INTENSITY K f P SCR A5,A1 STORE IN BUFFER K ( PANC200 LDR A2,A4 UPDATE A2 WITH CHAR K 0 PANC250 CF A14,WCHAR DISPLAY CHAR AND CUR
0x017798…01792c Dummy {f00=0x00ec, f01=0x0190, f02=» LDKL A2,0 K PANC255 EQU * L P ST A2,PCURS,TCABAS L & " P CF A14,GBUFFC GET BUFFER CHAR L B P CWK A3,/1F ATTRIBUTE CHAR? L h P RF(G) ANC300 NO L P L ( P CF A14,TAB SKIP TO NEXT UNPROTECTED L PANC300 EQU * L P LD A1,ECBCW,A8 CONTROL WORD
0x01792c…017ac0 Dummy {f00=0x00ec, f01=0x0190, f02=»ION CURSOR TO 1:ST POS. NEXT LINE L | PANC350 EQU * M * P RTN A14 M > P IFT IN:DL=1 M N P EJECT M b P M p 8 P*************************************************** M x P* M < P* DELETE CHARACTER AT CURSOR POSITION. SHIFT CARACTERS M . P* AT SAM
0x017ac0…017c54 (1, 29) Dummy {f00=0x00ec, f01=0x0190, f02=» * M P LDKL A6,-1 N & P LD A2,PCURS,TCABAS CURSOR ADDRESS N ( PDEL:10 ADK A6,80 END OF LINE POINTER N H . P CWR A6,A2 LAST POSITION ON CURRENT LINE?? N t $ P RB(L) DEL:10 NO!! TRY NEXT LINE N P N * P CF A14,S:ATT SEARCH ATTRIBUTE FORWARD N P SUK
0x017c54…017de8 Dummy {f00=0x00ec, f01=0x0190, f02=» SUK A2,1 SKIP ATTRIBUTE N P LDR A6,A2 O PDEL:20 LDR A2,A6 O 2 P O J P O R P LDK A1,BVDU O Z * P ADR A1,TCABAS ABSOLUTE BUFFER ADDRESS O n P ADR A2,A1 END OF FIELD/LINE O ( P AD A1,PCURS,TCABAS CURSOR POSITION O P O . PDEL:30 CWR A2,A1 ALL
0x017de8…017f7c Dummy {f00=0x00ec, f01=0x0190, f02=»A1 SHIFT CHARACTER 1 POS. LEFT O P ADK A1,1 P & " P RB DEL:30 GET NEXT CHARACTER P 8 P P ^ P P f * PDEL:40 LDK A3,NULL+/80 NULL CHARACTER P n * P SCR A3,A2 STORE AT END OF FIELD/LINE P " P LD A3,ATTRIB,TCABAS ATTRIBUTE P $ P ORK A3,1 SET MODIFIED F
0x017f7c…018110 Dummy {f00=0x00ec, f01=0x018e, f02=»0 YES!!! P P ADKL A1,BVDU Q . P ADR A1,TCABAS ABSOLUTE ATTRIBUTE ADDRESS Q & " P SCR A3,A1 SAVE NEW ATTRIBUTE Q X & P RF INS:60 DISPLAY MODIFIED FIELD Q ~ P EJECT Q P Q B P************************************************************** Q P* Q
0x018110…0182a4 Dummy {f00=0x00ec, f01=0x0190, f02=» P* R 8 P**************************************************** R P R J PINSERT EQU * R R $ P IM MODE,TCABAS SET INSERT MODE R f . P CF A14,LIOLON TURN ON "INSERT MODE" LAMP R P RTN A14 R P R P R PINS:10 LDR A6,A7 R P LDR A9,A4 R
0x0182a4…018438 Dummy {f00=0x00ec, f01=0x0190, f02=»INS:20 CF A14,S:ATT SEARCH ATTRIBUTE FORWARD R P S 4 P S < P SUK A1,2 ATTRIBUTE FOUND ?? S D P RF(Z) INS:30 NO!! S h P SUK A2,1 S P S PINS:30 ADR A2,TCABAS S 6 P ADK A2,BVDU ADD BUFFER DISPLACEMENT IN WORK-BLOCK S . P CF A14,S:NULL SEARCH
0x018438…0185cc Dummy {f00=0x00ec, f01=0x0190, f02=» P ORK A3,/80 SET MODIFIED BIT T * P SCR A3,A2 SHIFT CHAR ONE POS TO RIGHT T ( P SUK A2,1 T V " P RB INS:40 GET NEXT CHARACTER T h P T P T ( PINS:50 ORKL A9,/80 SET MODIFIED BIT T . P SCR A9,A6 SAVE INPUT CHARACTER IN BUFFER T . P IM PCURS,TC
0x0185cc…018760 Dummy {f00=0x00ec, f01=0x0190, f02=»ION T p P RB ANC252 U P XIF U P EJECT U * P U 8 > P********************************************************** U @ P* U 4 P* SEARCH FIRST NULL CHARACTER AFTER CURSOR POS U P* U : P****************************************************** U
0x018760…0188f4 (1, 30) Dummy {f00=0x00ec, f01=0x0190, f02=» ANK A3,/7F MASK AWAY MODIFIED BIT U P CWK A3,NULL NULL CHARACTER V * P RF(E) S:NU20 YES!! V N P ADK A1,1 V j * P RB S:NU10 CHECK NEXT BUFFER CHARACTER V | P V * PS:NU20 LDR A2,A1 ADDRESS OF FIRST NULL V PS:NU30 RTN A14 V P EJECT V P* V
0x0188f4…018a88 Dummy {f00=0x00ec, f01=0x018e, f02=»H CAUSES AN I/O OPERATION V t $ P* AND GENERATE AN AID CHARACTER W " P* W J > P********************************************************* W T P* W PCANCEL EQU * W PPA2 EQU * W P LDK A2,/2E CANCEL POS W PCAN100 EQU * W $ P LC A2,TASCII,A2
0x018a88…018c1c Dummy {f00=0x00ec, f01=0x018e, f02=» P RTN A14 X P* X P X P IFT PAX=1 X & P X 8 P* X @ P* X J F P* PROGRAM ATTENTION KEY IS PRESSED AND NUMBER WILL BE INSERTED TO X T : P* DEFINE ONE OF THE FUNCTIONS UNDER PA1.CANCEL OR PA3 X P* X P* X PPAEX EQU * X P LDKL
0x018c1c…018db0 Dummy {f00=0x00ec, f01=0x018e, f02=» X r P RF(L) PFERR ILLEGAL CHAR. Y P SUK A2,/2 CHECK IF NUM.1-3 Y * P RF(G) PFERR ILLEGAL CHAR. Y N P RF(Z) PA3 Y p P ADK A2,1 Y P RB(Z) PA2 Y P RF PA1 Y & P RTN A14 RETURN TO MAIN READ LOOP Y P Y P XIF Y P EJECT Y P Y
0x018db0…018f44 Dummy {f00=0x00ec, f01=0x0190, f02=» P* Z P* Z $ P* PA3 PROGRAM ATTENTION KEY Z P* Z @ P* Z J PPA3 EQU * Z T P LDK A2,/2B PA3 POS Z f P RB CAN100 Z P* Z P* PA4 - PA10 (ALFASKOP) Z P* Z PPA410 EQU * Z P SUK A2,/20 Z P RB CAN200 Z P EJECT
0x018f44…0190d8 Dummy {f00=0x00ec, f01=0x0190, f02=» KEY WHICH CAUSES AN I/O OPERATION Z ~ < P* AND GENERATE AN AID CHARACTER FOLLOWED BY AN SBA ORDER [ * 8 P* ATTRIBUTE ADDRESS AND TEXT FOR EACH MODIFIED FIELD [ j P* NULLS ARE SUPRESSED [ P* [ > P*********************************************************
0x0190d8…01926c Dummy {f00=0x00ec, f01=0x0190, f02=»4,LINHON TURN ON "KEYBOARD INHIBIT" [ . P CF A14,TRPF AID+MODIFIED FIELDS+TRANSMIT , PENT200 EQU * ^ P RTN A14 r P* P P IFT PFX=1 P P* P* F P* PROGRAM FUNCTION KEY IOS PRESSED AND NUMBER WILL BE INSERTED TO
0x01926c…019400 Dummy {f00=0x00ec, f01=0x0190, f02=»EXA EQU * P CM RDMORE,TCABAS ] P SUK A2,/30 LEGAL CHAR ? ] , , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING ] L & P RF(Z) PF0 FIRST NUM. 0 GO TO PF0 ] | P SUK A2,/1 FIRST NUM. 1 ? ] P RF(G) PFERR ILLEGAL NUM. ] P LDKL A1,PF1A ] P RF PFNX
0x019400…019594 (1, 31) Dummy {f00=0x00ec, f01=0x0190, f02=»UK A2,/2 LEGAL NUM ? ] , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ^ P ADK A2,/3C PF10-12 POS ^ L P RB ENT100 ^ l P ^ ~ PPF0 EQU * ^ P LDKL A1,PF0A ^ PPFNXT EQU * ^ P ST A1,RDMORE,TCABAS ^ P RTN A14 ^ PPF0A EQU * ^ P CM RDMO
0x019594…019728 Dummy {f00=0x00ec, f01=0x0190, f02=»FERR ILLEGAL GO TO ERR.HANDLING ^ P ADK A2,/39 PF1-9 POS _ ( P RB ENT100 _ F P XIF _ X PPFERR EQU * _ d * P CF A14,ERROR GO TO ERR-HANDLING RUTIN _ x $ P RTN A14 GO TO MAIN READ MODULE _ P _ P _ PPF EQU * _ P SUK A2,/5C _ P RB EN
0x019728…0198bc Dummy {f00=0x00ec, f01=0x0190, f02=» < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND ` 8 P* A BRANCH IS MADE BACK TO CREDIT PROGRAM ` D P* ` B P************************************************************* ` POFLINE EQU * ` P CF A14,CLEAR ` POFLI05 EQU * `
0x0198bc…019a50 Dummy {f00=0x00ec, f01=0x0190, f02=»RT REQUEST NOT CURRENT MF ` ~ P XIF a " P IFT OFLIN=1 a . 6 P LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED a B P LDKL A8,ECBDC MF # 1 a | & P CF A14,EMULA TRANSFER PARAMETERS a P IFT DCLIN=2 a P LDKL A8,ECBDC2 MF # 2 a & P CF A14,EMULA TRAN
0x019a50…019be4 Dummy {f00=0x00ec, f01=0x0190, f02=» TURN ON OFFLINE LAMP a & P IM OFFFLG,TCABAS SET OFFLINE FLAG b $ P ADKL A14,4 SKIP ONE STACK LEVEL b H * P LD A13,2,A14 RELOAD REGISTERS A12-A13 b p P LD A12,4,A14 b $ P ADKL A14,4 UPDATE STACK POINTER b * P ABL I:RT1 RETURN TO "OFFLINE" PROGRAM b
0x019be4…019d78 Dummy {f00=0x00ec, f01=0x0190, f02=»MAINFRAME CHANGE b H P* THE SWITCH 'MAIN' IS CHANGED, AND THE APPROPRIATE 'SYSTEM' LAMP c P* IS TTURNED ON c d P* c J P********************************************************************* c P* c PMFCHGE EQU * c P CF A14,CLEAR c
0x019d78…019f0c Dummy {f00=0x00ec, f01=0x0190, f02=» P XRK A1,1 d P RF(NZ) MFCH10 d P CF A14,LMF1ON d , P RF MFCH90 d B PMFCH10 EQU * d T P CF A14,LMF2ON d h PMFCH90 EQU * d ~ P ST A1,MAIN,TCABAS d P RTN A14 d P XIF d P EJECT d P* d < P****************************************
0x019f0c…01a0a0 Dummy {f00=0x00ec, f01=0x0190, f02=» AN AID CHARACTER. THE ENTIRE DISPLAY d : P* BUFFER IS CLEARED TO NULLS AND CURSOR IS LOCATED IN e . P* HOME POS e l P* e ~ < P******************************************************** e P* e PCLEAR EQU * e P LDK A2,/2D POS FOR 'CLEAR' e
0x01a0a0…01a234 (1, 32) Dummy {f00=0x00ed, f01=0x018e, f02=»ASE ENTIRE SCREEN e P RTN A14 f P EJECT f * P* f 8 @ P************************************************************ f B P* f P* EREOF f P* f P* ERASE TO END OF FIELD f P* f @ P****************************************************
0x01a234…01a3c8 Dummy {f00=0x00ed, f01=0x0190, f02=» P RF(E) ERE100 YES g P ABL ERROR g PERE100 LD A2,PCURS,TCABAS g 0 P g R ( P************************ 77.06.01 g Z P g 2 P CW A2,CURATT,TCABAS STANDING ON ATTRIBUTE ?? g * P ABL(E) ERROR YES!! TURN ON ERROR LAMP g P g ( P**************
0x01a3c8…01a55c Dummy {f00=0x00ed, f01=0x018e, f02=» PERE160 LDR A1,A2 h P LD A3,PCURS,TCABAS h PERE170 EQU * h 8 P LDKL A4,BVDU h L P ADR A4,TCABAS h b P ADR A4,A3 h x 0 P CF A14,ERASUA ERASE AND REPLASE WITH NULLS h ( P CF A14,DISPL DISPLAY ERASED SCREEN h P* h ( P* SET MDT BIT IF F
0x01a55c…01a6f0 Dummy {f00=0x00ed, f01=0x0190, f02=» h P ADK A2,BVDU i . P ADR A2,TCABAS ABSOLUTE ATTRIBUTE ADDRESS i P LCR A1,A2 GET ATTRIBUTE i N P ORK A1,1 SET MDT BIT i n P SCR A1,A2 i PERE180 EQU * i P RTN A14 i ( PERE200 CWK A2,LBVDU-1 END OF BUFFER? i P RF(E) ERE300 YES i P
0x01a6f0…01a884 Dummy {f00=0x00ed, f01=0x0190, f02=» P RB ERE150 j P EJECT j P* j $ < P******************************************************** j . P* j n P* ERINPT j x P* j : P* CLEARS ALL UNPROTECTED CHARACTER LOCATIONS TO NULLS j : P* AND REPOSITIONS THE CURSOR TO THE FIRST UNPROTECTED j
0x01a884…01aa18 Dummy {f00=0x00ed, f01=0x0190, f02=»QU * j ( P CF A14,ERASUP ERASE ALL UNPROTECTED k P CF A14,DISPL k 8 P LD A2,PCURS,TCABAS k N P CF A14,ATMASB k j > P********************************************************* k P SUK A1,1 k $ P RF(Z) ERI:10 NO ATTRIBUTE FOUND k 0 P RF(N) ERI:5
0x01aa18…01abac Dummy {f00=0x00ed, f01=0x0190, f02=»**************************** k r P ADK A2,1 l $ P l 6 PERI:10 EQU * l > P ST A2,PCURS,TCABAS l R P RTN A14 l n P EJECT l ~ P* l @ P************************************************************ l P* l P* ERROR l P* l . P* THE MODU
0x01abac…01ad40 Dummy {f00=0x00ed, f01=0x0190, f02=»U * l ( P CF A14,LERRON TURN ON 'ERROR' LAMP m P LD A5,KBINH,TCABAS m 8 4 P ORK A5,4 BIT 13:=1,ERROR HANDLING.RESET ALLOWED m T P ST A5,KBINH,TCABAS m P m P* m P* TURN ON SOUND ALARM m P* m P m P LDKL A8,ECBVDU m " P ADR
0x01ad40…01aed4 (1, 33) Dummy {f00=0x00ed, f01=0x0190, f02=» A7,X'07' BELL CHARACTER m P SC A7,2,A2 n P LDK A7,3 REQUESTED LENGTH n 4 P ST A7,ECBRL,A8 n V P LDK A7,X'86' SOUND ALARM n n P LKM n P DATA 1 n P n P RTN A14 n P IFT KEYLST=1 n P EJECT n F P********************************
0x01aed4…01b068 Dummy {f00=0x00ed, f01=0x0190, f02=» n h P* o F P****************************************************************** o P* o PKEYL EQU * o f & P SUK A2,/78 GET NEG KEY LOCK VALUE o x " P LD A3,KEYS,TCABAS OLD STATUS o P LDK A4,/10 o PKEYL10 EQU * o P SRL A4,1 o P ADK A
0x01b068…01b1fc Dummy {f00=0x00ed, f01=0x0190, f02=» & P RF(NZ) KEYL99 NOW OFF, NO CHANGE p P RF KEYL30 NOW ON p . PKEYL20 EQU * WAS ON p H P LDR A2,A2 p d $ P RF(Z) KEYL99 NOW ON, NO CHANGE p v PKEYL30 EQU * CHANGE p P LD A3,KEYS,TCABAS p P XRR A3,A4 CHANGE STATUS p ( P ST A3,KEYS,TCABAS S
0x01b1fc…01b390 Dummy {f00=0x00ed, f01=0x0190, f02=» p J * P* A4 = KEYLOCK CHANGED, LAYOUT AS A3 q ( P* A2 = 1, IF CHANGED TO OFF ELSE 0 q 6 P* q b * P* INSERT USER ROUTINE BELOW THIS LINE q l P* q PKEYL99 EQU * q P RTN A14 q P XIF q P EJECT q P* q < P****************************
0x01b390…01b524 Dummy {f00=0x00ed, f01=0x018e, f02=»****** q ^ P* r PLON EQU /B7 r PLOF EQU /B8 r , P IFT KB6272=1 r @ PLMF1 EQU /20 r V PLMF2 EQU /10 r j PLIOL EQU 1 DK2 r ~ PLINH EQU 8 DK2 r PLERR EQU 4 DK2 r PLSAV EQU /10 DK2 r P XIF r P IFF KB6272=1 r PLMF1 E
0x01b524…01b6b8 Dummy {f00=0x00ed, f01=0x0190, f02=» PLMF1ON LDK A3,LMF1 s P RF LMPON s PLMF1OF LDK A3,LMF1 s 0 P RF LMPOF s J PLMF2ON LDK A3,LMF2 s P RF LMPON s v PLMF2OF LDK A3,LMF2 s P RF LMPOF s PLIOLON LDK A3,LIOL s P RF LMPON s PLIOLOF LDK A3,LIOL s P RF LMPOF s
0x01b6b8…01b84c Dummy {f00=0x00ed, f01=0x0190, f02=»LERROF LDK A3,LERR s P RF LMPOF t PLSAVON LDK A3,LSAV t , P RF LMPON t F PLSAVOF LDK A3,LSAV t X P RF LMPOF t r P* t P IFF KB6272=1 DK2 t PLMPON LDK A7,LON t P RF SDISP t PLMPOF LDK A7,LOF t P RF SDISP t P XIF DK2 t
0x01b84c…01b9e0 Dummy {f00=0x00ed, f01=0x018e, f02=»,TCABAS DK2 t P RF SDISP DK2 u P XIF DK2 u * P EJECT u < P u J P* u R < P******************************************************** u P* u P* SDISP u P* u $ P* SIGNAL DISPLAY MONITOR REQUEST u P* u < P**********************
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x00ed, f01=0x0190, f02=» u P ST A3,ECBCW,A8 v P LKM v P DATA 1 v , P RTN A14 v < P XIF DK2 v L P IFT KB6272=1 DK2 v ^ P LDKL A8,ECBSD DK2 v x P ADR A8,CREBAS DK2 v " P CM* ECBBA,A8 CLEAR BUFFER DK2 v P LDK A3,/1C DK2 v P SC* A3,ECBBA,A8 DK2 v
0x01bb74…01bd08 Dummy {f00=0x00ed, f01=0x0190, f02=» v P LKM DK2 w P DATA 1 DK2 w P RTN A14 DK2 w . P XIF DK2 w D P EJECT w V P* w d < P******************************************************** w n P* w P* ATMASB w P* w : P* SEARCH FOR ATTRIBUTE CHAR BACKWARDS AND MASK
0x01bd08…01be9c Dummy {f00=0x00ed, f01=0x0190, f02=» A1=BUFFER SCANNING PARAM. w . P* 0=ATTRIB FOUND 1=END OF BUFFER LEFT x & ( P* 2= ATTRIBUTE IN LAST POSITION x X P* x PATMASB EQU * x P LDK A1,0 x PASB05 EQU * x " P CF A14,GBUFFC GET BUFFER CHAR x P CWK A3,/1F ATTRIB. CHAR.
0x01be9c…01c030 Dummy {f00=0x00ed, f01=0x0190, f02=»CWK A2,0 END OF BUFFER x P RF(E) ASB20 YES y P SUK A2,1 y 6 P RB ASB05 NEXT y H PASB20 EQU * y ^ P EJECT y r P y 6 P************************************************* y $ P LDK A1,2 ATTRIBUTE IN LAST POS. y & P LDKL A2,1919 LAST BUFFER POSI
0x01c030…01c1c4 Dummy {f00=0x00ed, f01=0x0190, f02=»S. y v 2 P********************************************* z P z @ P LDK A1,1 END BUFFER LEFT z H P CM ATTRIB,TCABAS z j P LDKL A7,LBVDU+1 z 4 P ST A7,CURATT,TCABAS POSSIBLY UNFORMATTED SCREEN z P RTN A14 z P EJECT z P* z < P************
0x01c1c4…01c358 Dummy {f00=0x00ed, f01=0x0190, f02=»D MASK IT z d P* { > P********************************************************* { P* { ^ P* A3=CHARACTER { h " P* A2=CURSOR BINARY ADDRESS { ~ $ P* A1=BUFFER SCANNING PARAM. { . P* 0=ATTRIB FOUND 2=END OF BUFFER RIGHT { " P* A3=ATT
0x01c358…01c4ec Dummy {f00=0x00ed, f01=0x0190, f02=»4,ATMASF SEARCH ATTRIBUTE FORWARD { P ST A7,ATTRIB,TCABAS | * P ST A8,CURATT,TCABAS | F P RTN A14 | b P | r PATMASF EQU * | z P LDK A1,0 | PASF05 EQU * | " P CF A14,GBUFFC GET BUFFER CHAR | P CWK A3,/1F ATTRIB CHAR? | P RF(G) ASF10 N
0x01c4ec…01c680 Dummy {f00=0x00ed, f01=0x0190, f02=»************************************************** | P RF(NE) ASF08 NO } : P LDK A1,3 } R PASF08 ST A3,ATTRIB,TCABAS } d , P ST A2,CURATT,TCABAS CURSOR ON ATTRIBUTE } P RTN A14 } ( PASF10 CWK A2,LBVDU-1 END OF BUFFER? } P RF(L) ASF20 NO }
0x01c680…01c814 (1, 35) Dummy {f00=0x00ed, f01=0x0190, f02=»************** } l P* ~ P* GBUFFC ~ P* ~ 0 6 P* GET VDU BUFFER CHAR WHICH IS INDICATED BY CURSOR ~ : P* ~ t 6 P************************************************** ~ ~ P* ~ P* A2=CURSOR BINARY ADDR ~ P* A3=CHARACTER ~ P* ~ P* ~
0x01c814…01c9a8 Dummy {f00=0x00ed, f01=0x0190, f02=»HARACTER IN BUFF. ~ P RTN A14 P EJECT * P* 8 @ P************************************************************ B P* P* RESET P* 8 P* RESET 'KEYBOARD INHIBIT' IN FOLLOWING SITUATIONS: 8 P* 1- A DEVICE WITH AN ATTACHED KEY
0x01c9a8…01cb3c Dummy {f00=0x00ed, f01=0x0190, f02=» A COMMAND FOR A DEVICE WITH AN ATTACHED " P* KEYBOARD. BIT 14=1 IN KBINH 0 * P* 3- ERRORSITUATION. BIT 14=1 IN KBINH V P* : P* IF BIT 15=1 IN KBINH => NO RESETTING ALLOWED DURING $ P* UPDATE AND DISPLAY SITUATION. P* @ P**********
0x01cb3c…01ccd0 Dummy {f00=0x00ed, f01=0x018e, f02=»4,LIOLOF TURN OFF "INSERT" LAMP & P CM KBINH,TCABAS RESSTORE KEYBOARD ( ( P CF A14,LERROF TURN OFF 'ERROR' LAMP R 4 P CF A14,LINHOF TURN OFF 'KEYBOARD INHIBIT' LAMP ~ P RTN A14 P EJECT P P D P************************************
0x01ccd0…01ce64 Dummy {f00=0x00ed, f01=0x0190, f02=» n P* @ P************************************************************ P V PCOPY EQU * ^ P LD A5,COPNO,TCABAS p P ABL(Z) ERROR P LDKL A3,BVDU BUFFER P ADR A3,TCABAS ADDRESSS P LDKL A6,LBVDU REQ LENGTH , P LDK A
0x01ce64…01cff8 Dummy {f00=0x00ed, f01=0x418e, f02=»S | P* A4 = ORDER P* A5 = "TO-TID" P* A6 = REQ LENGTH 6 P* P PICWRTE EQU * Z P LDKL A8,ECBICW n P ADR A8,CREBAS P LDKL A1,-1 * P CF A14,REQTIM NO TIME OUT SUPERVISION P ST A5,ECBCW,A8 TO TASK ID P ST A6,E
0x01cff8…01d18c Dummy {f00=0x00ed, f01=0x2008, f02=» A7,/B7 TRANSFER PARAMETERS LKM , DATA 1 8 CF A14,ERASE ERASE SCREEN H 0 ,EM100 CF A14,TRPF TRANSMIT, PROGRAM FUNCTION j RB EM100 AGAIN * * END START @ 4,2,A13 ADR A14,A13 LOAD STACK
0x01d18c…01d320 Dummy {f00=0x00ed, f01=0x0190, f02=» 0123456789 . V P ! %^ O O N T & N T Z* ( P| ZH_@ & C C ( : Z P O WF Q -b O B O R N T N O Z : O ( : O
0x01d320…01d4b4 (1, 36) Opaque[0x194]
0x01d4b4…01d648 # DirEnt {nam=»KMD08 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x000a // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x0010 // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x000a.0x3.0
0x01d4b4…01d648 [0x01]: C0x001e.0x0.0
0x01d4b4…01d648 [0x02]: C0x0027.0x1.0
0x01d4b4…01d648 [0x03]: C0x002d.0x0.0
0x01d4b4…01d648 [0x04]: C0x002d.0x2.0
0x01d4b4…01d648 [0x05]: C0x0034.0x3.0
0x01d4b4…01d648 [0x06]: C0x0039.0x3.0
0x01d4b4…01d648 [0x07]: C0x0051.0x0.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT KMD08 840308 EV P* " P* , < P******************************************************** 6 P* v 4 P* THIS IS THE MAIN MODULE FOR KMDAPLICATION 2 P* CONTAINING THE CWB'S, TWB'S AND INITIAL P* START POINTS
0x01d7dc…01d970 Dummy {f00=0x000a, f01=0x018e, f02=»********************************************** P* 6 $ P* TRANSACTION TASK TC @ P* h 8 P**************************************************** r P TERM TC P* P CWB CB1 P CWB CB2 P CWB CB3 P CWB CB4 P
0x01d970…01db04 Dummy {f00=0x000a, f01=0x0190, f02=» P TWB GB4 P TWB TB1 P UWB TB2 $ P DWB TD2(TB2) 4 P* J PDCOMM DSET FC=61 T & PDK01 DSET FC=C1 FD999001 CONFDATA l $ PDK02 DSET FC=C2 FD999002 REGSET PFD01 DSET FC=F8 VOL 999001 PFD02 DSET FC=F9 VOL 999002 & PKVOUCH
0x01db04…01dc98 Dummy {f00=0x000a, f01=0x0190, f02=» b PSCREEN DSET FC=50,BUFL=56 PKEYB DSET FC=20 * & PDK03 DSET FC=C3 FD999003 CYCLE SET B $ PDK04 DSET FC=C4 FD999004 KT PLAN l PDSSOPI DSET FC=10 PDSSOPO DSET FC=11 PKCASS DSET FC=12 PDK05 DSET FC=C5 PDK06 DSET FC=C6
0x01dc98…01de2c Dummy {f00=0x000a, f01=0x018e, f02=» FMTCTL INDS=KEYB,OUTDS=SCREEN P* & P* 0 P* : P* D P* N P START REGGO X P STACK 256 l P ~ P EJECT " P***************************** P* 0 P* AUTOMATIC BATCH TRANSMISSION P* " P******
0x01de2c…01dfc0 Dummy {f00=0x000a, f01=0x0190, f02=» P CWB CB7 BATCH TRANSM P DWB CD3(CB3) " P DWB CD4(CB4) 8 P TWB GB1 N P TWB GB2 ^ P TWB GB3 n P TWB GB4 ~ P TWB TB1 P UWB TB2 P DWB TD2(TB2) P* PDCOMM DSET FC=61 & PDK01 DSET FC=C1 FD999001 CONFDATA
0x01dfc0…01e154 (1, 37) Dummy {f00=0x001e, f01=0x0190, f02=»V=TV,BUFL=100 | $ PKJTAPE DSET FC=30,DEV=GP,BUFL=80 2 PKTALLY DSET FC=32,DEV=TR,BUFL=30,BUFDS=KVOUCH > PSCREEN DSET FC=50,BUFL=56 t PKEYB DSET FC=20 & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN PDSSOPI D
0x01e154…01e2e8 Dummy {f00=0x001e, f01=0x0190, f02=»* P* " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* : P* D P* N P* X P* b P START BCGO l P STACK 160 P* P EJECT L P************************************************************************ P* F P*
0x01e2e8…01e47c Dummy {f00=0x001e, f01=0x0190, f02=» * P* START-UP ROUTINES. P* 2 H P******************************************************************** < P P P* P* P* P* DATA DIVISION P* P* P* P* KB/VDU TERMINAL
0x01e47c…01e610 Dummy {f00=0x001e, f01=0x0190, f02=»DSICR DSET FC=E0,DEV=II COPCMD=1 PDSICW DSET FC=E1,DEV=IO ( $ PDSVDU DSET FC=50,DEV=DY,BUFL=162 H $ PDSKBAN DSET FC=20,DEV=KA,BUFL=2 p $ PDSKBSD DSET FC=40,DEV=KI,BUFL=2 P EJECT P* P* P* GTP TERMINAL P* P*
0x01e610…01e7a4 Dummy {f00=0x001e, f01=0x0190, f02=» FC=E0,DEV=II $ PDSICW DSET FC=E1,DEV=IO COPCMD=1 $ PDSGTP DSET FC=30,DEV=GP,BUFL=162 > P EJECT f P* t P* ~ P* DCTASK P* P* P TERM D0 P* P CWB CB9 P START DC1GO PDSDC DSET FC=60 P*
0x01e7a4…01e938 Dummy {f00=0x001e, f01=0x0190, f02=» & PTCT01 BIN 4X'0' TID AND STACKBASE * PPRINTER STRG 4X'0' KEYBARD/VDU/PRINTER . & PBVDU STRG 3840X'0' VDU SCREEN BUFF ( PPCURS STRG 4X'0' CURSOR ADDR. BINARY . PATTRIB STRG 4X'0' LAST ATTRIBUTE CHARACTER & PCURATT STRG 4X'0' CURSOR ATTRIBUTE
0x01e938…01eacc Dummy {f00=0x001e, f01=0x0190, f02=»' DC READ EFFECTIVE LENGTH PICWORK STRG 4X'0' " * PINTATT STRG 4X'0' INTENSITY ATTRIBUTE < " POFFFLG STRG 4X'0' OFFLINE FLAG j PCOPNO BIN TID FOR HARDCOPY PMISCAR STRG 44X'0' CCC,MAIN, P MODE,KEYS,ECBDCC,ECBBLK, P RDMORE
0x01eacc…01ec60 Dummy {f00=0x001e, f01=0x0190, f02=»*************************************** P 0 PCB9 BLK 8 P* H PCNFIGD BOOL R PCNFBSY BOOL f P* z P* CONFIGURATION DATA P* " PNBRKBV BIN NUMBER OF KB/VDUS PNBRGTP BIN NUMBER OF GTPS P* : PMF1KBV STR
0x01ec60…01edf4 (1, 38) Dummy {f00=0x0027, f01=0x0190, f02=»HE CONFIG DATA ABOVE SHOULD NOT BE CHANGED v P* 2 ( PMF1CU STRG X'E2C2' CU-ADDRESS MF # 1 < P* h D PCNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER r P FOR KB-VDU 1-16 P* PBINWK1 BIN P EJECT P* CWB 1 CO
0x01edf4…01ef88 Dummy {f00=0x0027, f01=0x0190, f02=»BOOL FALSE F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK , 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE ^ , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG , PCFLT46 BOOL TRUE T=SPECIAL FIELD 46,TR=8 , PCFLT48 BOOL TRUE T=SPE
0x01ef88…01f11c Dummy {f00=0x0027, f01=0x0190, f02=»BOOL FALSE T=DO NOT USE CYCLE SET 2 PCADM22F BOOL FALSE T=ALLOWED FUNCTION (ADM 22) * PC5MDISK BOOL FALSE T=5M DISK ` , PCKASFLG BOOL FALSE T=BACKUP ON CASSETTE 4 PCSLDFLG BOOL TRUE T=GL.SALDO PRESENT(CKTFLAG=T) , PCGLREGFL BOOL FALSE T=GL REG
0x01f11c…01f2b0 Dummy {f00=0x0027, f01=0x018e, f02=»3 BIN '3' PCBIN4 BIN '4' PCBIN5 BIN '5' ( PCBIN6 BIN '6' > PCBIN7 BIN '7' T PCBIN8 BIN '8' j PCBIN9 BIN '9' PCBIN10 BIN '10' PCBIN11 BIN '11' H PWEIGTH BCDI (13),'2','7','6','5','4','3','2','7','6','5','4','3','
0x01f2b0…01f444 Dummy {f00=0x0027, f01=0x0190, f02=» & PCPFLG BOOL FALSE T: DISK OCCUPIED ( PCSPLITFL BOOL FALSE T: SPLIT RECORD . " PCWFLAG BOOL FALSE F=COLD START Z " PCREMITFL BOOL FALSE F=NO REMIT & PCSKIFTFL BOOL FALSE T=FD CHANGING ( PCEORFLG BOOL FALSE T=END OF A RECORD 0 PCCOLDFLG BOO
0x01f444…01f5d8 Dummy {f00=0x0027, f01=0x0190, f02=» $ PCSWFLAG BOOL FALSE SCRATCH FLAG 2 PCSKIFTWN BOOL FALSE T=WARNING ABOUT FD CHANGE , . PCKFLAG BOOL FALSE T=EXCL ACCESS, KNT. PLAN b 0 PCFLT27 BOOL TRUE T=SPECIAL FIELD 27,TR51,53 & PENDINP BOOL FALSE T=EOF CONVERSION & PCDUOVL BOOL FALSE T: D
0x01f5d8…01f76c Dummy {f00=0x0027, f01=0x0190, f02=»IN15 BIN '15' PCBIN16 BIN '16' PCBIN17 BIN '17' . PCBIN18 BIN '18' F PCBIN19 BIN '19' ^ PCBIN20 BIN '20' v PCBIN21 BIN '21' PCBIN22 BIN '22' PCBINMAX BIN '26' @ P**************************************************
0x01f76c…01f900 Dummy {f00=0x0027, f01=0x0190, f02=»LE b P* @ P************************************************************ PCFLTDEX BINI (90), C X : P '26','26','26','26','1','2','3','4','5','6', 1-10 C v < P '7','8','9','5','11','12','10','11','12','13', 11-20 C > P '10','11','12','13
0x01f900…01fa94 (1, 39) Dummy {f00=0x002d, f01=0x0190, f02=»17','6','15','10','1', 41-50 C t 6 P '2','3','4','2','3','4','5','6','7','8', 51-60 C & @ P '9','10','11','12','13','12','26','26','26','26', 61-70 C ` @ P '26','26','26','26','26','26','26','26','26','26', 71-80 C > P '19','26','26','26','26','26',
0x01fa94…01fc28 Dummy {f00=0x002d, f01=0x0190, f02=»BLK P* P* P* P* * P* 4 PCTWBIN1 BIN > PCTWBIN2 BIN R PCVOUTOP BIN W'56' f PCMAXLIN BIN W'54' PCMINLIN BIN W'2' PCCONBUF0 STRG 398X'FF' PCCONBUF1 STRG 398X'FF' PCCONBUF2 STRG 398X'FF'
0x01fc28…01fdbc Dummy {f00=0x002d, f01=0x018e, f02=»G 398X'FF' PCCONBUF8 STRG 398X'FF' PCTRANBUF STRG 698 0 8 PCTID STRGI (12),2C'TC','TD','TE','TF','TG','TH', C J $ P 'TI','TJ','TK','TL','TM','TN' P* P EJECT PCB4 BLK P* P* P* P* P* P
0x01fdbc…01ff50 Dummy {f00=0x002d, f01=0x0190, f02=» PCCONBUF9 STRG 398X'FF' & PCRECBCD BCD 6D LOGICAL RECORD NR. " PCEDATNR BCD 4 DATASET NR. L PSOPINP STRG 4 n PASVOL STRG 6 PASFNAME STRG 8 PCKMDNAM STRG 6'OD-KOM' , PCVERSNR BCD 10D'01014610' VERSION NUMBER PCBLANKS STRG
0x01ff50…0200e4 Dummy {f00=0x002d, f01=0x0190, f02=» CBKOFLG=F (CHECK BKO) OR , P* CKTFLAG=F (NOT SALDO IN KT.) " PCTTXT07 STRG 13'00008 C R P 99 0' r & PCREGTAB BCDI (25,2),'01','-01', C P '02','-01', C P '03','-01', C P '04','-01', C P '05','-01', C
0x0200e4…020278 Dummy {f00=0x002d, f01=0x018e, f02=»-01', C P '-40','-01', C P '-41','-01', C * P '-42','-01', C D P '-45','-01', C ^ P '-46','-01', C x P '-47','-01', C P '-48','-01', C P '-49','-01', C P '-50','-01', C P '51','-01',
0x020278…02040c Dummy {f00=0x002d, f01=0x0190, f02=» PCB6 BLK P* ( PCCYPFLG BOOL FALSE CYSET OCCUPIED ? " , PCSPOOL BOOL TRUE T=EL.JOURNAL IS ALLOWED N P* ~ P* P* , PCCYSIZE BIN '30' MAX SIZE OF CYCLE PAGE , PCKTLAST BIN '0' LAST RECORD USED, KTPLAN 4 PCMAXREC BIN
0x02040c…0205a0 Dummy {f00=0x002d, f01=0x0190, f02=»NDX BCDI (7),14D KNT.PLAN MASTER INDEX PCCYBUF STRG 128 CYSET BUFFER . " PCKTBUF STRG 128 KTPLAN BUFFER R . PCKTTOP BCD 4D'5' FIRST LINE KORT (DEFAULT) x * PCDUMBUF STRG 512 DUMMY BUFFER FOR VTAM P EJECT PCB7 BLK 0 P* FOR AUT
0x0205a0…020734 (1, 40) Dummy {f00=0x002d, f01=0x018e, f02=» ONLY CHANGED IN TASK BC ( PCBCFLAG BOOL F USED ONLY IN FORMATS " P T: AUTOMATIC BATCH N P F: MANUAL BATCH l 0 PCBCSENDF BOOL F T: BATCH SENDING IN PROGRESS P F: NO BATCH SENDING P RIGHT NOW , PCBCWAITF BOOL F T: DO NOT ST
0x020734…0208c8 Dummy {f00=0x002d, f01=0x0190, f02=» PCBCOPT BIN OPTION: P 1: START BC TASK $ P 2: STOP BC TASK @ P 3: INTERRUPT BC TASK Z P 4: SEND REST z P 5: ALL SEND P 6: P 7: P 8: P 9: P* P* P* $ PCBCFROM BI
0x0208c8…020a5c Dummy {f00=0x002d, f01=0x018e, f02=»ND t P IF ZERO, SEND ALL * PCBCANT BIN '400' NO OF RECORDS TO SEND & P IN ONE BATCH T PCSENDNR BIN CURRENT SEND l P RECORD NO. P* PCBRUGNR BCD 14 BRUGERNAVN PCKENDNR BCD 6 KENDEORD P* & PCSENDBUF STRG 50
0x020a5c…020bf0 Dummy {f00=0x002d, f01=0x0190, f02=» P* ! P* ! P EJECT ! P* ! * PTB1 BLK ! 4 P* ! D P* ! N P* ! X P* ! b " PTTCY1FLG BOOL FALSE IN CYCLE? ! l " PTTCY2FLG BOOL FALSE IN STABEL? ! PTTLSTFLG BOOL FALSE ! $ PTTPSEFLG BOOL FALSE PAUSE STATE ! ( PTTSUMFLG BOO
0x020bf0…020d84 Dummy {f00=0x002d, f01=0x0190, f02=»OL FALSE END OF JOURNAL ! * PTTEORFLG BOOL FALSE *-- END OF RECORD " ( PTTSUPFLG BOOL FALSE SUPPLEMENT POST " N , PTTSMALL BOOL FALSE *-- SMALL GIRO KVIT? " z & PTTR11FLG BOOL FALSE T: KASSE CLOSE " * PTREMFLG BOOL FALSE T= REMOTE TERMINAL " , PTTKORT
0x020d84…020f18 Dummy {f00=0x002d, f01=0x018e, f02=»BIN " " PTTSTYRDX BIN '1' HBOG/DEBP/REM # PTTTROLD BIN NO OF OLD TRANS # 2 PTTASKNR BIN # V PTTDKBCD BCD 2 D/K VALUE # j $ PTTARKSAV BCD 12 SAVED ARK KT NR # & PTTCYKTOT BCD 14 SAVED CYKLE TOTAL # & PTTCYKPOS BCD 4 SAVED CYKLE LINE NR # $ PTT
0x020f18…0210ac Dummy {f00=0x002d, f01=0x0190, f02=» # | PGTDATO BCD 8X'FFFFFFFF' $ PTSWBCD2 BCD 2 *-- $ ( & PTTCYM STRG 1 CYKLE MARK ON JOURNAL $ B . PGTREGF BCDI (26),16X'F' TRANSACTION FIELDS $ l P* $ P EJECT $ P* $ PGB1 BLK $ P* $ P* $ P* $ P* $ P* $ PGTEXFL
0x0210ac…021240 Dummy {f00=0x002d, f01=0x0190, f02=»LG BOOL FALSE CLOSE ? $ * PGTCLRN BOOL FALSE *-- SPCLRN OR SPCLRA % PGTTYPE2 BOOL FALSE *-- % L PGTTYPE3 BOOL FALSE *-- % j 4 PGTKASSE BOOL FALSE *-- TRUE- IN KASSE FUNCTIONS % 4 PGTSLUTFL BOOL TRUE FALSE: SLUT KEY IS SIMULATED % ( PGTDIVTR BOOL FAL
0x021240…0213d4 (1, 41) Dummy {f00=0x0034, f01=0x0190, f02=»L FALSE T=AUTO SUM % " PGTSUBFLG BOOL FALSE T=SUBTOTAL & P* & @ PGSWBIN1 BIN & J PGSWBIN2 BIN & ^ PGSWBIN3 BIN & r PGSWBIN4 BIN & PGSWBIN5 BIN & PGSWBIN6 BIN & PGSWBCD1 BCD 14 & PGSWBCD2 BCD 14 & PGSWBCD3 BCD 6 & PGSWB
0x0213d4…021568 Dummy {f00=0x0034, f01=0x0190, f02=» STRG 40 STRING FOR FORMATS & P EJECT ' $ PGB2 BLK ' 2 P* ' B P* ' L P* ' V P* ' ` P* ' j PSPPROMPT BOOL FALSE ' t PSPCHANGE BOOL FALSE ' 2 PSPDUPL BOOL FALSE TRUE: FIELD HAS BEEN DUPPED ' 2 PSPME BOOL FALSE FALSE: NO CHECK FOR ME
0x021568…0216fc Dummy {f00=0x0034, f01=0x018e, f02=»SPBINW1 BIN ' PSPBINW2 BIN ( PSPBINW3 BIN ( ( PSPBINW4 BIN ( < PSPBINW5 BIN ( P PSPKEY BIN '1' ( d ( PSPERASE BIN '0' 0:ERASE; 4:NO ERASE ( z PSPLINTOP BIN ( PSPLINLOW BIN ( " PGTCLASS BIN '1' TERMINAL CLASS ( $ PGTREGDEX BIN '0' TRA
0x0216fc…021890 Dummy {f00=0x0034, f01=0x0190, f02=» PGB3 BLK ) P* ) PPSIGNFLG BOOL FALSE ) PBCPR BOOL FALSE T=CPR F=CIR ) : " PBLEV BOOL FALSE T=LEV., F=CPR ) ^ PGTDYFLG BOOL FALSE T=DISPLAY ) PGTSPGFLG BOOL FALSE ) 2 PGTKORTFL BOOL FALSE T=KONTO FOUND IN KONTOPLAN ) & PGTTESTFL BOOL
0x021890…021a24 Dummy {f00=0x0034, f01=0x0190, f02=».NW ) v , PGTADMFLG BOOL FALSE T= IN ADM FUNCTIONS * * PGTLOKSPG BOOL FALSE T=LOKAL INQUIRIES * < 6 PGTSLDFLG BOOL FALSE T=SALDO PRESENT. F=NOT PRESENT * j 0 PGTGLSPG BOOL FALSE T=INQUIRIES ON GL REGSET * . PGTSPECTR BOOL FALSE F=TR 1-12, T= TR 51,53 * (
0x021a24…021bb8 Dummy {f00=0x0034, f01=0x0190, f02=»4 * PGTCYSUM BCD 14 + PGTREGNR BCD 3 TRANSTYPE + " PGTDBKRS BCD 2 SIGN FOR AMOUNT + @ , PGTSUMST BCD 6 1. NUMBER FOR SUM FUNCTION + f , PGTSUMCNT BCD 14 COUNTER FOR SUMFUNCTION + " PGTL8TXT STRG 8 TEXT FOR LINE 8 + PSPINPUT STRG 20 + PGSWS
0x021bb8…021d4c Dummy {f00=0x0034, f01=0x0190, f02=»GTCYWRTF BOOL FALSE T=NO WRITE ON CYSET + , PGTCYTRPF BOOL FALSE T=TRANSPORT IN CYCLE , 0 ( PTSPOOL BOOL FALSE T=EL.JOURNAL IS ON , ` . PTERRSKIP BOOL FALSE T: SKIP ERRMES IN ERDK , P* , P* , ( PGTPSELIN BIN '0' LINE NO. WHEN PAUSE , " PGTCYIN BIN
0x021d4c…021ee0 Dummy {f00=0x0034, f01=0x018e, f02=» ( PGTLBNRIN BCD 6D EKSP.LB.NR ASKED FOR - PGTKTTYP BCD 4D KTPLAN TYPE - 0 ( PGTRTANT BCD 4D ANTAL RATER TR 51,53 - R 0 PTWELMIN BIN '0' EL.JOURNAL, BEGIN OF BUFFER - ~ 0 PTWELMAX BIN '900' END OF BUFFER(150SECT.*6) - & PTWELPNT BIN '0' POINTER IN OPSTART
0x021ee0…022074 (1, 42) Dummy {f00=0x0039, f01=0x0190, f02=» - h P EJECT . PTB2 BLK . P* . & P* . 0 PGTDBKRC STRG 4 DEB/KRE TEXT . : PGTTESTMK STRG 1 . ^ $ PTTSUPMRK STRG 1 SUPPLEMENT MARK . v PTTSUMMRK STRG 1 SUM MARK . PGTTEXT STRG 6 . PTTSPARE3 STRG 1C'.' . PTCONBUF STRG 398X'FF' .
0x022074…022208 Dummy {f00=0x0039, f01=0x0190, f02=»K BCD 2 KONTOKORT, CHECKCIFFER . . PTTDBKRM STRG 1C'K' DEB/KRE MARK ON JOURNAL / & $ PTT16TXT STRG 2 RENTE/GEBYR/RATE / X PTT07TXT STRG 5 BKO TEXTS / & PGTDUPF BCDI (26),16X'F' DUP FIELDS / P* / P* / P EJECT / PCD3 DBLK / P* / P*
0x022208…02239c Dummy {f00=0x0039, f01=0x0190, f02=»BCDI (60),12D EJ-EDB ACCOUNT NOS. / PCRELDAY BCD 4X'FFFF' 0 * PCCONFREC BCD 6 0 F * PC12ACC BCDI (60,2),14D EJ-EDB COUNTERS 0 P* 0 P* 0 P* 0 P EJECT 0 PCD4 DBLK 0 P* 0 P* 0 P* 0 P* 0 P* 0 PDUMCD4 BINI (4)
0x02239c…022530 Dummy {f00=0x0039, f01=0x0190, f02=»OLNO BCD 6 VOLUME NUMBER 0 PCKMDNR BCD 6D KOMMUNE NR 1 PCMASKDAT BCD 8X'FFFFFFFF' 1 @ PCVOL STRGI (4),6 1 b P* 1 z P EJECT 1 PTD2 DBLK 1 P* 1 P* 1 P* 1 P* 1 P* 1 PTTINF1 STRG 14 1 . PTTRECOPN BCD 6 REC. NO. FOR OP
0x022530…0226c4 Dummy {f00=0x0039, f01=0x018e, f02=»OUNT 1 r " PTTCASHAC BCD 12D CASH ACC. NR 2 " PTVERSUR BCD 12D VERSUR ACC NR 2 2 & PTTCASH BCD 14D CURRENT CASH AMOUNT 2 X $ PTTLBNR BCD 6D CURRENT EKSP.LBNR 2 ( PTTACC BCDI (8,2),16D'0' EDB COUNTERS 2 , PTTGLREC BCD 6 SAVE RECORD NO, GL REGSET 2 P*
0x0226c4…022858 Dummy {f00=0x0039, f01=0x0190, f02=» 2 P EXT T1GO 3 P EXT DCTASK 3 P EXT VDUKB 3 . P EXT PRINT 3 @ P EXT SWITCH 3 R " P EXT GETTID GET TASK IDENTITY 3 f & P EXT OFFLNE OFFLINE START ADDRESS 3 $ P EXT BCGO AUTOMATIC BATCH TRANSM 3 P* 3 & P DSC0 DSDC,2 DUMMY REFERENCE T:I
0x022858…0229ec Dummy {f00=0x0039, f01=0x0190, f02=»************************** 3 P* 4 " PREGGO 4 , PREG10 4 : ( P MOVE GSWBIN1,CBIN13 LENGTH CTTXT07 4 H P MOVE GSWBIN2,CBIN0 4 t P MOVE GSWSTR1,='*' 4 6 P MATCH CTTXT07,GSWBIN2,GSWBIN1,GSWSTR1,CBIN0,CBIN1 4 P BNOK REG20 4 P MOVE GSWSTR1,=X
0x0229ec…022b80 Dummy {f00=0x0039, f01=0x0190, f02=» 4 , P**************************************** 5 P* 5 8 ( P* START ADDRESS FOR KEYBOARD TASK 5 B P* 5 n , P**************************************** 5 x P 5 PKBVGO 5 P ADD NBRKBV,='1' 5 P CALL GETTID,TCT01 5 P SUB TCT01,=X'4B40' 5
0x022b80…022d14 (1, 43) Dummy {f00=0x0051, f01=0x0190, f02=» PKB050 6 P CALL VDUKB,TCT01 6 & P PERF OFFLNE BRANCH TO CREDIT CODE 6 , * P B KB050 RETURN TO IBM-3270 EMULATION 6 V P 6 P 6 P 6 P EJECT 6 2 P********************************************* 6 P* 6 . P* START ADDRESS FOR GENERAL
0x022d14…022ea8 Dummy {f00=0x0051, f01=0x0190, f02=»GETTID,TCT01 6 P SUB TCT01,=X'4740' 7 P MOVE PRINTER,=X'0001' 7 0 P* PERF CONF 7 N P CALL PRINT,TCT01 7 b P 7 | P 7 P 7 P EJECT 7 4 P*********************************************** 7 P* 7 " P* START ADDRESS FOR DC-TASK 7
0x022ea8…02303c Dummy {f00=0x0051, f01=0x4008, f02=»@ 8 CT01 6 P SUB TCT01,=X'4740' 7 P MOVE PRINTER,=X'0001' 7 0 P* PERF CONF 7 N P CALL PRINT,TCT01 7 b P 7 | P 7 P 7 P EJECT 7 4 P*********************************************** 7 P* 7 " P* START ADDRESS FOR DC-TASK 7
0x02303c…0231d0 Dummy {f00=0x0051, f01=0x2008, f02=» 9 WJOURN,FRMT * WJORN ( WJOURN PROC $JFRMT 6 EDWRT KJTAPE,$JFRMT P RET l PEND x END @
0x0231d0…023364 Dummy {f00=0x0051, f01=0x0190, f02=» P 8 2 0 P 1 d
0x023364…0234f8 Dummy {f00=0x0051, f01=0x0190, f02=»!H !v F H p R T! J! J BC * ` D0 D0 * "3 L > JTB2 L @ JKLMNO " $
0x0234f8…02368c Dummy {f00=0x0051, f01=0x0190, f02=» % B
0x02368c…023820 Dummy {f00=0x0051, f01=0x0190, f02=»
0x023820…0239b4 (1, 44) Opaque[0x194]
0x0239b4…023b48 # DirEnt {nam=»DUMMY «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0160, f03=0xffff}
0x0239b4…023b48 IdxSect {
0x0239b4…023b48 f00 = 0x000b // 0x239b4 @0x0
0x0239b4…023b48 f01 = 0x0002 // 0x239b6 @0x2
0x0239b4…023b48 gno = [ // 0x239b8 @0x4
0x0239b4…023b48 [0x00]: C0x000b.0x0.0
0x0239b4…023b48 ]
0x0239b4…023b48 }
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» IDENT DUMMY 77-04-21 * " & "* DUMMY MODULE TO REPLACE TRABUG , * V * ` j ENTRY TC:CHK r ENTRY TC:ERR P ENTRY I:ERR9 P ENTRY I:ERRA P ENTRY I:ERRB EXTRN I:ECB EXTRN I:BUF
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x4086, f02=» TC:ERR EQU * PI:ERR9 EQU * $ PI:ERRA EQU * 8 PI:ERRB EQU * L RB * ` n END v@ ENTRY TC:ERR P ENTRY I:ERR9 P ENTRY I:ERRA P ENTRY I:ERRB EXTRN I:ECB EXTRN I:BUF
0x023e70…024004 Dummy {f00=0x000b, f01=0x2008, f02=» NT DUMMY 77-04-21 * " & "* DUMMY MODULE TO REPLACE TRABUG , * V * ` j ENTRY TC:CHK r ENTRY TC:ERR EXTRN I:ECB EXTRN I:BUF PS EQU A14 WK1 EQU 1 WAIT EQU X'80'
0x024004…024198 Dummy {f00=0x000b, f01=0x40ae, f02=» * F IDENT D:CB30 TRA 3.1 78-08-08 O111 D:CB30 2 D:CB30C D * & 0 0 ! X - @ D @ * & [
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=» * F IDENT C:CB30 TRA 3.1 78-08-08 O111 C:CB30 2 C:CB30C D * & / 8 6 7 X & 8.1.1 & = & [ & y * & 51ASKAT58A/S 5 * & 2BSKAT
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x404e, f02=»RBR65BOL]N67BOSIK46FERIE66 - FERSHA " 2 8@ J
0x0244c0…024654 (1, 45) Opaque[0x194]
0x024654…0247e8 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x024654…0247e8 IdxSect {
0x024654…0247e8 f00 = 0x0002 // 0x24654 @0x0
0x024654…0247e8 f01 = 0x0004 // 0x24656 @0x2
0x024654…0247e8 gno = [ // 0x24658 @0x4
0x024654…0247e8 [0x00]: C0x0002.0x0.0
0x024654…0247e8 [0x01]: C0x001b.0x3.0
0x024654…0247e8 ]
0x024654…0247e8 }
0x0247e8…02497c Dummy {f00=0x0002, f01=0x018e, f02=» P$KMDALL @ P$KMDGEN KMD=975,VER=@VER=03$$,REL=@REL=02$$,MOD=9751$$ @975= @ P$KMDGEN KMD=461,VER=@VER=03$$,REL=@REL=02$$,MOD=461$$ @461= X @ P$KMDGEN KMD=462,VER=@VER=03$$,REL=@REL=02$$,MOD=462$$ @462= PEND P$LEDLS PLED LEDLS,/A
0x02497c…024b10 Dummy {f00=0x0002, f01=0x0190, f02=» P!!CH $$%REL$$@REL=02$$ P!!CH $$%MOD$$@MOD=9751$$ " P!!EN B PKPF /A,KMDFIL N PASG /E0,DK,KMDFIL d PEND ~ P$INCGEN PINC /OBJCT,DK:PROD PEND P$REL PMES @NAM PLED @NAM,/S,/EE,## P##DL 0 P IDE
0x024b10…024ca4 Dummy {f00=0x0002, f01=0x0190, f02=»M=TEST PEND P$RDS PASG /E1,@DEV=CR0D & PRDS @ PKPF /S,@NAM=TEST L PEND d P$LED p PLED @NAM=,@FC=/S,@CC | PKPF @FC=/S,@NAM= PEND P$MOVE PMOV @NAM=,@FC=/S,@ID=KMDPRO8 PKPF @FC=/S,@NAM PEN
0x024ca4…024e38 Dummy {f00=0x0002, f01=0x0190, f02=»N=@A=AAAA, d 0 PMES CONFIGURATION DATA=@C=KONFIG PTRA @NAM=/S,@NL F PKPF /O ^ PSCR /7D l PASG /7D,DK | PASG /02,NO @TLK= PTLK M,X PASG /02,LP0F @TLK= PSCR /7D PBEA DUMMY,NL @BUG= PASG /02,NO @LK
0x024e38…024fcc Dummy {f00=0x0002, f01=0x0190, f02=»RA PLED @NAM= PKPF /S,@NAM= P$TRA N=@NAM=,L=@LS= 0 P$TRA1 N=@NAM L PEND ` P$TRA l PTRA @N=,@L= x PKPF /O PEND P$TRA1 PTRA @N= PKPF /O PEND P$LINK PASG /02,NO PTRA KONVER
0x024fcc…025160 Dummy {f00=0x0002, f01=0x0190, f02=»D P$TLK PTLK M PSCR /7D $ PBEA DUMMY,NL 4 PLKE M H PKPF /L,@N= V , P$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG h PEND P$TLK1 PTLK PSCR /7D PBEA DUMMY,NL PLKE PKPF /L,@N= , P$PCAS M=
0x025160…0252f4 (1, 46) Dummy {f00=0x001b, f01=0x00d6, f02=»M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG PEND * P$ASG1 6 PASG /E1,TY10 D PRDA /A X PEND f P$ASG2 r PASG /E0,TY10 PEND P$TLK3 PTLK U,X PSCR /7D PEND
0x0252f4…025488 Dummy {f00=0x001b, f01=0x2008, f02=» ,MU=M:KONV,A=@N=,C=KONFIG PEND * P$ASG1 6 PASG /E1,TY10 D PRDA /A X PEND f P$ASG2 r PASG /E0,TY10 PEND P$TLK3 PTLK U,X PSCR /7D PEND
0x025488…02561c Dummy {f00=0x001b, f01=0x0190, f02=» _ R RL_ RL R P RL_ b B C @ 0 J B K R M d N t T U W X ^ _ f g
0x02561c…0257b0 Dummy {f00=0x001b, f01=0x0190, f02=» 4 RL RL W RL RL W RL 4 RL RL L R Lh T-! L) R ( D V f v j 0 0 J F " D
0x0257b0…025944 Dummy {f00=0x001b, f01=0x0190, f02=» 0 J F " D LP L L h h P a _( da d b *db hL BW d L R Lh 0 0 ~ SLUTD00000 SLUTD0 $ L * 6 ! > J F
0x025944…025ad8 Dummy {f00=0x001b, f01=0x0190, f02=» e r J F " D @ d W# ! L L Ldh ( ( mg F_t I` d R W 6` W j j z j 8 0002
0x025ad8…025c6c Dummy {f00=0x001b, f01=0x0190, f02=» ~ ( * 8 H CSSF X J F " D Lhg T 4 4 gL hL mg F " RT R 0X 4 gL hL l * '
0x025c6c…025e00 Dummy {f00=0x001b, f01=0x0190, f02=»0X Z X L0X g T L b B $ J 0 Q0 ` @ T TRANSMIT R V j X : z Y a 5CN c ( o 5CN ~ J F " D @L0X g P R ) L L R RL 4
0x025e00…025f94 (1, 47) Opaque[0x194]
0x025f94…026128 # DirEnt {nam=»EQUATE«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0180, f03=0xffff}
0x025f94…026128 IdxSect {
0x025f94…026128 f00 = 0x000c // 0x25f94 @0x0
0x025f94…026128 f01 = 0x0004 // 0x25f96 @0x2
0x025f94…026128 gno = [ // 0x25f98 @0x4
0x025f94…026128 [0x00]: C0x000c.0x0.0
0x025f94…026128 [0x01]: C0x000c.0x1.0
0x025f94…026128 ]
0x025f94…026128 }
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» P* 6 P************************************************** P* H P* EQUATES R P* p 6 P************************************************** z P* P* LITERAL EQUATES P* * P* BINARY EQUATES=====
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=»U 5 PBLIT6 EQU 6 PBLIT7 EQU 7 PBLIT8 EQU 8 4 PBLIT9 EQU 9 H PBLIT10 EQU 10 P* r P* | P* DECIMAL LITERALS P* P* PDLIT0 EQU 0 PDLIT1 EQU 1 PDLIT2 EQU 2 PDLIT3 EQU 3
0x026450…0265e4 Dummy {f00=0x000c, f01=0x018e, f02=»0 P* 2 P********************************************* P* J " P* EQUATES FOR SOPLAMPS T P* z 2 P********************************************** P* P* $ P* EQUATES FOR DATASET CONTROL P* P*
0x0265e4…026778 Dummy {f00=0x000c, f01=0x0190, f02=» PSKIB EQU 2 SKIP BUFFER PWTM EQU 3 WRITE TAPE MARK " PCLOSE EQU 3 CLOSE FILE D PLOCK EQU 4 LOCK CASSETTE b PTSTAT EQU 7 TEST STATUS ( PRACCS EQU 9 RELEASE EXCLUSIVE ACCESS $ PBSP EQU 10 B10CKSP10CE ONE BLOCK P* P*
0x026778…02690c Dummy {f00=0x000c, f01=0x0190, f02=»OFF EQU 1 TURN OFF INDICATOR & PPOS EQU 6 POSITION VOUCHER/CURSOR $ PDEL EQU 8 RANDOM DELETE N P* n P* x " P* EQUATES FOR KEYTABLAS P* P* P* SKOVBO KEYS P* PREGKY1 EQU X'A1' PREGKY2 EQU X
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=»Y2 EQU X'D0' PSLUTKY1 EQU X'91' PSLUTKY2 EQU X'D1' . PKREKY1 EQU X'92' H PKREKY2 EQU X'D2' ` PSBTKY1 EQU X'93' x PSBTKY2 EQU X'D3' PNOTUSE1 EQU X'94' PNOTUSE2 EQU X'D4' PBSPKY1 EQU X'95' PBSPKY2 EQU X'D5'
0x026aa0…026c34 (1, 48) Dummy {f00=0x000c, f01=0x4060, f02=»QU X'E3' P P* P* " P* VIBORG KEYS , P* H P* R@
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x2008, f02=»
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» P B T1005 PT1005A P USE TB2,TTASKNR " P CBE TTASKNR,CBIN1,T1010 : " P MOVE SPBINW4,CBIN9 'OPSTART' Z P MOVE SPBINW3,=W'-1' P PERF SPLIN8 P PAUSE & P B T1400 BRANCH TO NON-MASTER CODE PT1010 P PERF CLOSE1
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=»ERF SPCLRA P MOVE GSWBIN2,SPBINW2 2 P IB SPBINW2,T1011,T1011,T1012,T1012,T1011, C 0 P T1011,T1011,T1011,T1012 f PT1011 P B T1010 PT1012 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOVE GSWBIN1,CBIN1 4 P INS
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=»T1013,T1015,T1014,T1013, C ~ P T1013,T1013,T1013,T1018 $ PT1013 F P B T1010 T PT1014 KRE KEY d P MOVE CCONBUF0,=X'00' | P MOVE GSWBIN2,CBIN0 PT10140 P ADD GSWBIN2,CBIN1 $ P IF FINISH: TO VERY COLD START P C
0x027284…027418 Dummy {f00=0x000c, f01=0x018e, f02=»SLUT KEY P CLEAR CSWFLAG P B T1020 & P* 6 PT1018 KVIT KEY @ P SET CSWFLAG X PT1020 l P TBF CSWFLAG,T1025 z P CLEAR CSWFLAG P PERF CONFRS P BNOK T1010 PT1025 P PERF CONFRD READ CONFDATA P BNOK
0x027418…0275ac Dummy {f00=0x000c, f01=0x0190, f02=» P* P* P* PT1030 " P SET CCOLDFLG 0 P SET SPPROMPT F P ATTFMT CSFRM02 YES P PERF SPCLRA x " P IB SPBINW2,T1030,T1030,T1032 P B T1030 PT1032 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOV
0x0275ac…027740 Dummy {f00=0x000c, f01=0x018e, f02=»N9,T1035 PT1037 " P MOVE CBEH(CBIN1,CBIN1),CBIN0 " P MOVE CTR12(CBIN1,CBIN1),CBIN0 D P MOVE GSWBIN1,CBIN0 j PT1040 P ADD GSWBIN1,CBIN1 P CBG GSWBIN1,CMAXTASK,T1045 P MOVE GSWBCD5,GSWBIN1 P SET SPPROMPT P A
0x027740…0278d4 (1, 49) Opaque[0x194]
0x0278d4…027a68 # DirEnt {nam=»DKSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x0278d4…027a68 IdxSect {
0x0278d4…027a68 f00 = 0x000f // 0x278d4 @0x0
0x0278d4…027a68 f01 = 0x0010 // 0x278d6 @0x2
0x0278d4…027a68 gno = [ // 0x278d8 @0x4
0x0278d4…027a68 [0x00]: C0x000f.0x1.0
0x0278d4…027a68 [0x01]: C0x000f.0x2.0
0x0278d4…027a68 [0x02]: C0x0029.0x1.0
0x0278d4…027a68 [0x03]: C0x002c.0x1.0
0x0278d4…027a68 [0x04]: C0x002c.0x2.0
0x0278d4…027a68 [0x05]: C0x0035.0x3.0
0x0278d4…027a68 [0x06]: C0x0043.0x3.0
0x0278d4…027a68 [0x07]: C0x0048.0x1.0
0x0278d4…027a68 ]
0x0278d4…027a68 }
0x027a68…027bfc Dummy {f00=0x000f, f01=0x018e, f02=» P IDENT DKSUBS 840203 EV P DDUM KMD08 $ P PDIV B P ENTRY RAREAD X P ENTRY RAWRIT n P ENTRY SQREAD P ENTRY SQWRIT P ENTRY ASSG P ENTRY RGREAD P ENTRY RADEL P ENTRY GETBIT P ENT
0x027bfc…027d90 Dummy {f00=0x000f, f01=0x0190, f02=» P EXT SETKRE P EXT SETDEB P EXT SPERR , P EXT WRITJT > P EXT LAMPON R P EXT WRITLO f P INCLUDE EQUATE z 6 P************************************************** P* 4 P* THIS MODULE CONTAINS ALL DISC HA
0x027d90…027f24 Dummy {f00=0x000f, f01=0x0190, f02=»LING r & P* ASSIGN ROUTINE * P* DISK ERROR ROUTINE 6 < P* GET STATUS FROM EXTENDED STATUSWORD d 0 P* READ RECORD FROM REGSET 6 P************************************************
0x027f24…0280b8 Dummy {f00=0x000f, f01=0x0190, f02=»PECIFIED b * P* DATASETNAME TO A VOLUMENAME. " P* ON SPECIFIED VOLUME > P* d & P* ALTERED PARAMETERS: NONE n P* B P* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 @ P* GSWBIN1
0x0280b8…02824c Dummy {f00=0x000f, f01=0x0190, f02=»NAME NOK - X'00' b H P* GTWBCD1 - OK - N/A NOK - ATTEMPT+1 H P* GTWBCD2 - OK - N/A NOK - DATASETNR f P* P* C/R: OK - 0, NOK - 4 P* @ P* CALL: PERF ASSG
0x02824c…0283e0 Dummy {f00=0x000f, f01=0x0190, f02=»ASSG PROC VOL,DK,DNR P MOVE SPBINW4,CBIN0 INITIATE P MOVE GSWBIN1,VOL @ P* Z . P MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME d PASSG10 . P MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME P* P MOVE GSWBCD3,ASFNAME P CBE GSWBC
0x0283e0…028574 (1, 50) Dummy {f00=0x000f, f01=0x0190, f02=»N DK,0,SPBINW4,ASFNAME,ASVOL P BOK ASSGRET IF OK, RETURN $ PASSGERR H > P* ASSIGNMENT IMPOSSIBLE X 0 P MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES) P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,DNR P MOV
0x028574…028708 Dummy {f00=0x000f, f01=0x0190, f02=» P CMP CBIN0,CBIN0 P RET P PEND ( P EJECT 6 6 P************************************************** D P* ~ * P* RAREAD - RANDOM READ ROUTINE J P* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR> P*
0x028708…02889c Dummy {f00=0x000f, f01=0x0190, f02=»VE ACCES IS RELEASED IF GTEXFLAG IS FALSE P* 2 H P* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN < P* > P* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED T P* SPBINW4 - OK - 0 NOK
0x02889c…028a30 Dummy {f00=0x000f, f01=0x0190, f02=»**** ` 0 PRAREAD PROC DSET,$NR,BUF,LENG,RECNR P PLIT $NR @ : P MOVE GSWBIN1,LENG GET LENGTH R 8 P MOVE SPBINW4,CBIN0 ZEROISE P MOVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSW
0x028a30…028bc4 Dummy {f00=0x000f, f01=0x0190, f02=» ERDK,DSET,$NR NO PRAR10 ( & P TBT GTEXFLAG,RAR20 6 D P DSC0 DSET,RACCS RELEASE EXCL. ACCES ` PRAR20 CLEAR GTEXFLAG P SWITCH 8 P CMP CBIN0,SPBINW4
0x028bc4…028d58 Dummy {f00=0x000f, f01=0x018e, f02=»***** P* * P* DISC ERROR ROUTINE ERDK P* CALL: F * P* PERF ERDK,<DATASET>,<SETNR> X P* 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN $ P* CASE OF ERROR ON DISC 8 P* THE ERRORCODE
0x028d58…028eec Dummy {f00=0x000f, f01=0x0190, f02=» P* ALTERED PARAMETERS: NONE P* & : P* ALTERED FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 0 * P* GTWBCD2 - ERRORCODE n & P* GTNWFLG - FALSE & P* SPKEYFLG - TRUE P* P* B P****
0x028eec…029080 Dummy {f00=0x000f, f01=0x0190, f02=» GETBIT,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DATA & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL B 0 P CBE GTWBCD1,=D'7',ERDKRET RETRIES PERFORMED l D P MOVE SPBINW4,CBIN21 PREPARE TEXT (BIT NR) : P MOVE GTWBCD2,$NR
0x029080…029214 (1, 51) Dummy {f00=0x0029, f01=0x0190, f02=»EY IF DISK ACCESS x PERDK10 < P PERF SPERR DISPLAY TEXT ( P SET SPKEYFLG h P TBT TERRSKIP,ERDK90 ~ P SET GTNWFLG P PERF WRITJT,=W'14' P MOVE GTWBCD2,$NR P CBE GTWBCD2,=D'6',ERDK80 P P
0x029214…0293a8 Dummy {f00=0x0029, f01=0x018e, f02=» MOVE SPBINW4,CBIN0 PREPARE FOR OK PERDKEND , P CMP SPBINW4,CBIN0 SET CR < P RET ` P PEND v P EJECT > P********************************************************** P* P* GETBIT P
0x0293a8…02953c Dummy {f00=0x0029, f01=0x0190, f02=» ~ P* RETURN: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P* P* ALTERED FIELDS: f 2 P* GSWBIN1 - EXTENDED STATUSWORD P* GTWBCD1 - 1 P* GSWBIN2 P*
0x02953c…0296d0 Dummy {f00=0x0029, f01=0x0190, f02=»************ b PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET STATUS 0 P j P* CHECK FIRST BIT 4 r P MOVE GTWBCD1,=D'4' P MOVE GSWBIN2,=W'2048' BIT 4 P CALL MASK,GSWBIN1,GSWBIN2 P BNZ GETRET P
0x0296d0…029864 Dummy {f00=0x0029, f01=0x018e, f02=» CALL MASK,GSWBIN1,GSWBIN2 AND WITH STATUS 4 P BNZ GETRET FOUND : ( P MOVE GSWBCD2,GSWBIN2 r 6 P MUL GSWBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 CONVER
0x029864…0299f8 Dummy {f00=0x0029, f01=0x0190, f02=» PGETRET P RET P PEND ( P EJECT > > P********************************************************** L P* P* RANDOM WRITE P* CALL: > P* PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<RECNR>
0x0299f8…029b8c Dummy {f00=0x0029, f01=0x0190, f02=» CR=0 OK CR=4 NOT OK P* ALTERED FIELDS: ( P* SPBINW4 - 0 B 8 P* GSWBIN1 - NBR. OF CHARS TRANSFERRED f > P********************************************************** & PRAWRIT PROC DSET,$NR,BUF,RECNR
0x029b8c…029d20 Dummy {f00=0x0029, f01=0x0190, f02=»WRET PRAW10 P MOVE GSWBIN1,CBIN6 > P RREAD DSET,GSWSTR9,GSWBIN1,RECNR DUMMY READ 6 < P RWRITE DSET,BUF,RECNR WRITE RECORD x 4 P BEOF RAWRET OK? P BOK RAWRET
0x029d20…029eb4 (1, 52) Dummy {f00=0x002c, f01=0x0190, f02=»CMP CBIN0,CBIN0 SET CR=0 P RET 2 P PEND H P EJECT ^ @ P*********************************************************** l P* $ P* RADEL - RANDOM DELETE ROUTINE P* 2 P* CALL: PERF RADEL,<DATASE
0x029eb4…02a048 Dummy {f00=0x002c, f01=0x0190, f02=» " P* GSWBIN1 - 6 P* * P* CR: OK - 0, NOK - 4 4 P* T @ P*********************************************************** ^ PRADEL PROC DSET,RECNR,$DNR P MOVE SPBINW4,CBIN0 P MOVE GSWBIN1,CBIN6 P TBT GTTESTF
0x02a048…02a1dc Dummy {f00=0x002c, f01=0x0190, f02=», RETURN z P BOK RADELRET IF OK, RETURN P MOVE GTWBCD2,$DNR 4 6 P CBE GTWBCD2,=D'6',RADELRET NO CHECK IF SPOOLFILE N , P PERF ERDK,DSET,$DNR CALL ERROR-ROUTINE P BOK RADELRET P CMP CBIN1,CBIN0 CR := NOK P RET PRADELRET
0x02a1dc…02a370 Dummy {f00=0x002c, f01=0x0190, f02=»************* b P* P* SEQ READ P* CALL: < < P* PERF SQREAD,<DSET>,<SETNR>,<BUFFER>,<LENGTH> N B P* IF GTEXFLAG=FALSE EXCLUSIVE ACCES WILL BE RELASED " P* ALTERED FIELDS: SPBINW4 - 0 : P*
0x02a370…02a504 Dummy {f00=0x002c, f01=0x018e, f02=» CR=0 OK CR=1 EOF CR=4 NOT OK P* 4 @ P*********************************************************** > * PSQREAD PROC DSET,$NR,BUF,LENG P PLIT $NR & P MOVE SPBINW4,CBIN0 $ P MOVE GSWBIN4,L
0x02a504…02a698 Dummy {f00=0x002c, f01=0x0190, f02=» Z P BEOF SQR10 8 P PERF ERDK,DSET,$NR NO * PSQRRET f J P TBT GTEXFLAG,SQR05 RELEASE EXCLUSIVE t : P DSC0 DSET,RACCS YES PSQR05
0x02a698…02a82c Dummy {f00=0x002c, f01=0x0190, f02=» EJECT @ P*********************************************************** P* V P* SEQ WRITE ` P* CALL: ~ 0 P* PERF SQWRIT,<DSET>,<SETNR>,<BUFF> P* RETURN 4 P* CR=0 OK CR=1 EOF CR=4 NOT OK
0x02a82c…02a9c0 Dummy {f00=0x002c, f01=0x0190, f02=»WRIT PROC DSET,$NR,BUF P PLIT $NR & P MOVE SPBINW4,CBIN0 8 P TBT GTTESTFL,SQWRET T > P WRITE DSET,BUF WRITE RECORD p 4 P BEOF SQW10 EOF 4 P BOK SQWRET
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x002c, f01=0x0190, f02=» SET CR h PSQW10 8 P RET RETURN " P PEND ^ P EJECT t , PBACKUP PROC DSET,$DNR,$FDSIZE,BUF,$LENG P PLIT $DNR P PLIT $FDSIZE P PLIT $LENG P********************
0x02ab54…02ace8 Dummy {f00=0x002c, f01=0x0190, f02=»DSET>,<$DSET-NR>,<$NO-OF-RECORDS>, x 2 P* <BUFFER>,<$RECORD-SIZE> * P* ` P******************** j P CLEAR CERRORFL P SET CPFLG RESERVE DISK * P MOVE GSWBIN3,$DNR ASSIGN SYSTEM FILE " P PERF ASSG,CBIN1,DSET,GSWBIN
0x02ace8…02ae7c Dummy {f00=0x002c, f01=0x0190, f02=»2,GSWBIN3 | P BNOK BKUPNOK P B BKUP60 ( P* : PBKUP50 D P LOAD CASSETT R P MOVE GSWBIN1,CBIN1 j P DSC1 KCASS,LOAD,GSWBIN1 P WRITE TAPE MARK P DSC0 KCASS,WTM P* PBKUP60 P WRITE FILE P M
0x02ae7c…02b010 Dummy {f00=0x002c, f01=0x0190, f02=» . P PERF RAREAD,DSET,$DNR,BUF,GSWBIN1,GSWBIN3 ! P BNOK BKUP200 NOT OK ! 6 P* ! R & P CBE GTWBCD1,=D'4',BKUP210 NO DATA ! P TBT CKASFLG,BKUP150 ! . P PERF RAWRIT,DK02,$DNR,BUF,GSWBIN3 ON DISK ! P BNOK BKUP200 ! P B BKUP100 OK, CONTINUE !
0x02b010…02b1a4 Dummy {f00=0x002c, f01=0x0190, f02=» ERROR ! P PERF LAMPON,=W'2' LAMP 10 " P SET CERRORFL INDICATE ERROR " 2 PBKUP210 " V P TBT CKASFLG,BKUP220 " f 0 P PERF RADEL,DK02,GSWBIN3,$DNR DELETE RECORD " P B BKUP100 " PBKUP220 " P MOVE BUF,CBLANKS " P B BKUP150 " P* "
0x02b1a4…02b338 Dummy {f00=0x002c, f01=0x0190, f02=» DSC0 KCASS,UNLOD " PBKUP310 # P CLEAR CPFLG # * P CMP CBIN0,CBIN0 OK # > P RET # Z P* # f PBKUPNOK # p P PERF LAMPON,=W'2' LAMP 10 # P TBT CKASFLG,BKUP350 # P DSC0 DK02,CLOSE # P B BKUP360 # PBKUP350 # P DSC0 KCASS,UNLO
0x02b338…02b4cc Dummy {f00=0x002c, f01=0x0190, f02=»TORE PROC DSET,$DNR,$FDSIZE,BUF,$LENG # P PLIT $DNR $ . P PLIT $FDSIZE $ @ P PLIT $LENG $ V P******************** $ j P* $ 6 P* RESTORE OF ONE DATASET FROM BACKUP FILE $ P* $ P* CALL: $ P* $ > P* PERF RS
0x02b4cc…02b660 Dummy {f00=0x002c, f01=0x0190, f02=» P SET CPFLG RESERVE DISK % * P MOVE GSWBIN3,$DNR ASSIGN SYSTEM FILE % $ " P PERF ASSG,CBIN1,DSET,GSWBIN3 % R P BNOK RSTRNOK % x P TBT CKASFLG,RSTR50 % 0 P MOVE GSWBIN3,$DNR ASSIGN BACKUP FILE, DISK % " P PERF ASSG,CBIN3,DK02,GSWBIN3 % P BNO
0x02b660…02b7f4 (1, 54) Dummy {f00=0x0035, f01=0x0190, f02=»SC1 KCASS,LOAD,GSWBIN1 % P READ FIRST TAPE MARK & P MOVE GSWBIN1,$LENG & > * P PERF SQREAD,KCASS,=D'12',BUF,GSWBIN1 & Z PRSTR60 & P LOOP THROUGH FILE & P MOVE GSWBIN3,CBIN0 & PRSTR100 & P ADD GSWBIN3,CBIN1 & ( P CBG GSWBIN3,$FD
0x02b7f4…02b988 Dummy {f00=0x0035, f01=0x0190, f02=»NOK RSTR200 & & P CBE GTWBCD1,=D'4',RSTR210 NO DATA ' P B RSTR160 ' > PRSTR150 ' P * P PERF SQREAD,KCASS,=D'12',BUF,GSWBIN3 ' ` P BNOK RSTR200 ' P* ' PRSTR160 ' & P PERF RAWRIT,DSET,$DNR,BUF,GSWBIN3 ' P BOK RSTR100 ' P* ' PRS
0x02b988…02bb1c Dummy {f00=0x0035, f01=0x0190, f02=» ' PRSTROK ( P TBT CKASFLG,RSTR300 ( , P DSC0 DK02,CLOSE CLOSE BACKUP FILE, DISK ( 2 P B RSTR310 ( b PRSTR300 ( t 2 P DSC0 KCASS,UNLOD CLOSE BACKUP FILE, CASSETTE ( PRSTR310 ( P CLEAR CPFLG ( P CMP CBIN0,CBIN0 OK ( P RET ( P*
0x02bb1c…02bcb0 Dummy {f00=0x0035, f01=0x0190, f02=» RSTR360 ( PRSTR350 ) " P CLOSE BACKUP FILE, CASSETTE ) P DSC0 KCASS,UNLOD ) F PRSTR360 ) ` P CLEAR CPFLG ) p P CMP CBIN0,CBIN1 ) P RET ) P PEND ) P EJECT ) PRGREAD PROC DSET,$DNR ) P PLIT $DNR ) P********************
0x02bcb0…02be44 Dummy {f00=0x0035, f01=0x0190, f02=» THE EFFECT IS SIMULATION OF MANUAL INPUT VIA PDU ) P* * > $ P* OTHER FIELDS UPDATED: * H @ P* GTREGNR, GTDKBCD, GTDBKRC, TTDKDEX, TTDBKRM, * p P* GTREGDEX * , P* GSWBCD3 = LOG. RECORD NR * P* *
0x02be44…02bfd8 Dummy {f00=0x0035, f01=0x0190, f02=»2 NOT SAME MACHINE, OR OTHER ERROR * P* + . P******************** + 8 P PERF WAITF,CPFLG + T P TBT CWFLAG,RGR005 + n & P MOVE GTRECNR,CRECNR IN KOLDSTART + PRGR005 + P CLEAR CEORFLG + P MOVE GSWBCD3,=D'0' + P PERF PACKCL + " P P
0x02bfd8…02c16c Dummy {f00=0x0035, f01=0x0190, f02=»TRECNR + h P BNOK RGRRET2 , P CMP GTWBCD1,=D'4' , $ P BE RGRRET2 , > P MOVE GSWSTR20,CBLANKS , R . P COPY GSWSTR20,CBIN0,CBIN3,CPCKBUF,CBIN13 , p 0 P CBE GSWSTR20,=C'&01',RGR008 ADJUST TO FIRST , P SUB GTRECNR,CBIN1 , P B RGR005 , PRGR008
0x02c16c…02c300 Dummy {f00=0x0035, f01=0x0190, f02=»VERT , v P CMP GTMSK,GSWBCD5 - P BNE RGRRET2 - & P* - : * P MOVE GSWSTR20,=X'00' CHECK TRANSTYPE - D . P COPY GSWSTR20,CBIN0,CBIN2,CPCKBUF,CBIN11 - r P MOVE GSWBCD5,GSWSTR20 - P MOVE GSWSTR20,=X'00' - , P COPY GSWSTR20,CBIN0,CBIN5,CPCKBUF,CBIN6
0x02c300…02c494 (1, 55) Dummy {f00=0x0043, f01=0x0190, f02=»D'12' - P BL RGR009 TRANS 1-10 . P CLEAR GTSWFLAG TRANS >=12 . , P B RGRRET10 . N PRGR009 . b P MOVE GTREGNR,GSWBCD5 . p , P MOVE GTREGDEX,CBIN0 GET TRANSTYPE INDEX . PRGR010 . P ADD GTREGDEX,CBIN1 . 2 P CBE GTREGNR,CREGTAB(GTREGDEX,GT
0x02c494…02c628 Dummy {f00=0x0043, f01=0x0190, f02=» MOVE GSWBIN6,CBIN2 . P MOVE GSWBIN5,CRECLGD / PRGR030 / : P TEST CEORFLG / H P BNE RGRRET BRANCH IF TRUE / ^ P MOVE GSWSTR1,=C'&' / P SUB GSWBIN6,CBIN2 / 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR1,CBIN0,CBIN1 / P ADD GSWBIN6,CBIN1 /
0x02c628…02c7bc Dummy {f00=0x0043, f01=0x0190, f02=»SWBIN6,GSWBIN5,GSWSTR1,CBIN0,CBIN1 / P FIND LENGTH FIELD 0 * P BNE RGR100 LAST FIELD 0 F PRGR035 0 d P MOVE GSWBIN3,GSWBIN6 0 r * P SUB GSWBIN3,GSWBIN4 LENGTH IN GSWBIN3 0 6 P COPY GSWSTR2,CBIN0,CBIN2,CPCKBUF,GSWBIN4 FIELDNR 0 P ADD GSWBIN4,CBI
0x02c7bc…02c950 Dummy {f00=0x0043, f01=0x0190, f02=» IN GSWSTR2 0 ~ & P AND FIELD CONTENTS IN GSWSTR20 1 P ADJUST POINTERS 1 > P ADD GSWBIN6,CBIN1 1 X P SUB GSWBIN5,GSWBIN3 1 r P SUB GSWBIN5,CBIN3 1 " P MOVE GSWBCD5,GSWSTR2 FIELDNR 1 " P MOVE GSWBIN3,GSWBCD5 CONVERT 1 P CMP GSWBIN3,CBIN2 1
0x02c950…02cae4 Dummy {f00=0x0043, f01=0x0190, f02=»ARKIV.KNT.NO. 1 t $ P TBT CWFLAG,RGR030 NOT KOLDSTART 2 PRGR036 2 > " P UPDATE GTDUPF,GTREGF,GTUSED 2 L 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR 2 r " P MOVE GTUSED(GSWBIN4),GSWBIN3 2 " P MOVE GTDUPF(GSWBIN4),GSWSTR20 2 " P MOVE GTREGF(GSWBIN4
0x02cae4…02cc78 Dummy {f00=0x0043, f01=0x0190, f02=»'-' 2 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 3 P BNE RGR040 3 F P MUL GTUSED(GSWBIN4),=W'-1' 3 Z P MUL GTDUPF(GSWBIN4),=D'-1' 3 ~ P MUL GTREGF(GSWBIN4),=D'-1' 3 P B RGR030 3 PRGR040 3 P MOVE GSWBIN3,CBIN0 3 6 P MATCH
0x02cc78…02ce0c Dummy {f00=0x0043, f01=0x0190, f02=»ET D/K INFO 3 " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 4 P PERFI GSWBIN3,SETKRE,SETDEB 4 : P B RGR030 4 ^ PRGR100 4 p P END OF RECORD 4 ~ P MOVE GSWSTR2,=X'7F' 4 " P MOVE GSWBIN6,GSWBIN4 RESTORE 4 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBI
0x02ce0c…02cfa0 Dummy {f00=0x0043, f01=0x018e, f02=»6,GSWBIN4 4 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 5 P BNE RGRRET2 5 L P DLETE CPCKBUF,CBIN0,GSWBIN4 5 ` P MOVE GSWSTR20,CPCKBUF 5 P ADD CTWBIN1,CBIN1 5 P TBT CWFLAG,RGR113 5 P ADD CRECNR,CBIN1 KOLDSTART 5 PRGR113 5 P
0x02cfa0…02d134 (1, 56) Dummy {f00=0x0048, f01=0x0190, f02=» 5 P* 6 P*?????????????????? 6 6 P* NB NB WHAT HAPPEN IF FIELD IS > 11 BYTES ??????? 6 . P*????????????? 6 h P* 6 ~ P DELETE HEADER 6 P DLETE CPCKBUF,CBIN0,CBIN11 6 * P MOVE GSWBIN6,CBIN0 INSERT SAVED INFO 6 P MOVE GSWSTR2,CBLANKS
0x02d134…02d2c8 Dummy {f00=0x0048, f01=0x018e, f02=» 6 ^ P SUB GSWBIN6,CBIN1 7 0 P INSRT CPCKBUF,CBIN0,GSWBIN6,GSWSTR20,CBIN0 7 " P MOVE GSWBIN6,CBIN0 7 V * P ADD GSWBCD3,=D'1' UPDATE LOG. REC. NO 7 r P B RGR032 7 PRGR200 7 P MOVE GTLBNR,GSWSTR20 7 P TBT CWFLAG,RGR205 7 $ P MOVE TTLBNR,GTL
0x02d2c8…02d45c Dummy {f00=0x0048, f01=0x0190, f02=» PRGR220 8 P B RGR030 8 PRGRRET2 8 $ P CLEAR CPFLG DISK FREE 8 4 P CLEAR GTSWFLAG 8 T P 8 l " P CMP CBIN0,CBIN1 CR=2, NOT OK 8 t P RET 8 PRGRRET1 8 P SET GTSWFLAG 8 PRGRRET10 8 P CLEAR CPFLG DISK FREE 8 P CR=1,TR=1
0x02d45c…02d5f0 Dummy {f00=0x0048, f01=0x0190, f02=»FLG 8 P CLEAR GTSWFLAG 9 P CMP CBIN0,CBIN0 CR=0, OK 9 $ P RET 9 F P PEND 9 R P EJECT 9 ` PWAITF PROC BOO 9 n P* 9 P* SETS THE BOOLEAN BOO, 9 $ P* IF THE BOOLEAN IS ALREADY SET, 9 8 P* THE TASK SWITCHES, TO GIVE ANOTHER TASK THE CHAN
0x02d5f0…02d784 Dummy {f00=0x0048, f01=0x4050, f02=»090 9 P SET BOO : P RET : P PEND : ( P END : 6@ : L P PEND 9 R P EJECT 9 ` PWAITF PROC BOO 9 n P* 9 P* SETS THE BOOLEAN BOO, 9 $ P* IF THE BOOLEAN IS ALREADY SET, 9 8 P* THE TASK SWITCHES, TO GIVE ANOTHER TASK THE CHAN
0x02d784…02d918 Dummy {f00=0x0048, f01=0x2008, f02=» ; PERF ERDK,DSET,$NR NO PSQWRET 6 8 P CMP SPBINW4,CBIN0 SET CR D PSQW10 8 P RET RETURN P PEND P EJECT P END
0x02d918…02daac Dummy {f00=0x0048, f01=0x0190, f02=» P RIGHT NOW , PCBCWAITF BOOL F T: DO NOT START SENDING P A NEW BATCH H P* ^ P* h P* r P* | P* P* P* P* P* P* PCBCOPT BIN OPTION: P 1: START BC TASK P 2: STOP BC
0x02daac…02dc40 Dummy {f00=0x0048, f01=0x0190, f02=»: P* P* P* $ PCBCFROM BIN 1. RECORD TO SEND, ( P IF >2, MUST BE ADJUSTED P P TO START OF A TRANSACTION r P " PCBCTO BIN LAST RECORD TO SEND P IF ZERO, SEND ALL * PCBCANT BIN '200' NO OF RECORDS TO SEND
0x02dc40…02ddd4 (1, 57) Opaque[0x194]
0x02ddd4…02df68 # DirEnt {nam=»EQULST«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x01d0, f03=0xffff}
0x02ddd4…02df68 IdxSect {
0x02ddd4…02df68 f00 = 0x000e // 0x2ddd4 @0x0
0x02ddd4…02df68 f01 = 0x0002 // 0x2ddd6 @0x2
0x02ddd4…02df68 gno = [ // 0x2ddd8 @0x4
0x02ddd4…02df68 [0x00]: C0x000e.0x2.0
0x02ddd4…02df68 ]
0x02ddd4…02df68 }
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x4068, f02=» IDENT EQULST DDUM KMD08 PDIV . INCLUDE EQUATE,LIST < END X@ d
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x2008, f02=» NT EQULST DDUM KMD08 PDIV . INCLUDE EQUATE,LIST < END X@ d
0x02e290…02e424 Dummy {f00=0x000e, f01=0x0190, f02=»MPTY COMP. FIELD FOUND 4 P MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED P RET V P* b " P* EMPTY COMPULSORY FIELD FOUND l P* PKENT10 6 P GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD P* P EJECT PERRPRT *
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=»C ALARME t 0 P CBE SPBINW4,='0',CNDTAB JUMP IF NO PRINTOUT ( P MOVE SPBINW3,=X'1801' ROW 24 COL. 1 D 2 P DSC1 SPDSSCRN,6,SPBINW3 SET CURSOR ON ROW 24 p P* : P* WRITING FROM SPFTBERR SHOULD BE INSERTED HERE LATER P* $ P****************
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=»***** v P* P* READ AFTER ERROR P* 2 PERREAD < ( P SETCUR SET CURSOR AT THE BEGINNING J P OF THE CURRENT FIELD v PERR100 * P MOVE SPBINW3,=W'14' REQUESTED LENGTH 6 P NKIA .NE,SPDSDYKB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x0190, f02=»ERRCONT,ERRCONT P B ERR100 CONTINUE P* 2 P* CLEAR ERROR PRINTOUT < P* Z PERRCONT d * P MOVE SPBINW3,='24' INDICATE LAST LINE t , P ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE P IB SPBINW2,DUMMY,CLER,CLER 0 P SUB SPBINW2,='3'
0x02e8e0…02ea74 (1, 58) Opaque[0x194]
0x02ea74…02ec08 # DirEnt {nam=»SPLITT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x01d8, f03=0xffff}
0x02ea74…02ec08 IdxSect {
0x02ea74…02ec08 f00 = 0x000e // 0x2ea74 @0x0
0x02ea74…02ec08 f01 = 0x0002 // 0x2ea76 @0x2
0x02ea74…02ec08 gno = [ // 0x2ea78 @0x4
0x02ea74…02ec08 [0x00]: C0x000e.0x3.0
0x02ea74…02ec08 ]
0x02ea74…02ec08 }
0x02ec08…02ed9c Dummy {f00=0x000e, f01=0x0190, f02=» < PSPKTAB1 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C > P FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C D 0 P NOKEY,DUPKY1,NOKEY,SLUTKY1,REGKY1,INITKY1 P* < PSPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C > P FT
0x02ed9c…02ef30 Dummy {f00=0x000e, f01=0x40c4, f02=» NOKEY P* PERRFMT FRMT P FSL , " P FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 P FCOPY ERRTXT12 ^ " P FMEL 'BZZ9',GTWBCD2 ERRORNR. v P FCOPY =X'07' P FMEND @ SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C > P FT
0x02ef30…02f0c4 Dummy {f00=0x000e, f01=0x2008, f02=» * ERRFMT FRMT FSL , " FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 FCOPY ERRTXT ^ " FMEL 'BZZ9',GTWBCD2 ERRORNR. t FCOPY =X'07' FMEND @ 8SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C D ? FT
0x02f0c4…02f258 Dummy {f00=0x000e, f01=0x0190, f02=» t u v ( w 8 x H y X z h { x | } ~ J F " D @61 1X 0LW 1X 0L1X 0L_00
0x02f258…02f3ec Dummy {f00=0x000e, f01=0x0190, f02=» * : L ^ p < Y
0x02f3ec…02f580 Dummy {f00=0x000e, f01=0x0190, f02=» 4 J F " D RR!0L)!3L 33 RRRRRRRR Q 3LW 3L!2L)RR P$0X 5A121 RRRRRRRRRRRRRR ^ p < 0 , 2 4 6 8
0x02f580…02f714 (1, 59) Opaque[0x194]
0x02f714…02f8a8 # DirEnt {nam=»KM975 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x02f714…02f8a8 IdxSect {
0x02f714…02f8a8 f00 = 0x015e // 0x2f714 @0x0
0x02f714…02f8a8 f01 = 0x0004 // 0x2f716 @0x2
0x02f714…02f8a8 gno = [ // 0x2f718 @0x4
0x02f714…02f8a8 [0x00]: C0x015e.0x1.0
0x02f714…02f8a8 [0x01]: C0x015e.0x3.0
0x02f714…02f8a8 ]
0x02f714…02f8a8 }
0x02f8a8…02fa3c Dummy {f00=0x015e, f01=0x0190, f02=» PPRT KM975 PPRT C975 PMES ODENSE KOMMUNE - UK01 & PMES CREBUG H PMES 81.07.28 Z PSCR n PLED KMD08,/S z P!!DL 49 NO DC P!!DL 50 FD03 P!!DL 51 FD BACKUP P!!DL 52 DK05 P!!DL 53,55 DK06-DK08 P!!DL 5
0x02fa3c…02fbd0 Dummy {f00=0x015e, f01=0x0190, f02=»!!RE 192,$$FALSE$$TRUE$$ P!!RE 193,$$FALSE$$TRUE$$ P!!RE 199,$$TRUE$$FALSE$$ @ , P!!RE 233,$$FALSE$$TRUE$$ FIELD 27, TR50 ` 2 P!!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO P!!DL 317,318 BKO PCTTXT07 STRG 293'00288 BKO C P 51AS
0x02fbd0…02fd64 Dummy {f00=0x015e, f01=0x0190, f02=» C P 62DAGPE2 C P 56EJDSK0 C " P 59FORAB2 C 8 P 57ANDKM0 C N P 30DAGIN1 C d P 31TPDAG1 C z P 54GLSK 1 C P 36HUSL 0 C P 61S[RIN1 C P 21FORBR0 C P 22FORBR0 C P 65BOL]N1
0x02fd64…02fef8 Dummy {f00=0x015e, f01=0x0190, f02=» P 47[FBDR0 C P 48UD[FB0 C P 49EFUBB0 C 4 P 50UDBDR0 C J P 27SOMAN0 C ` P 28GRONL0 C v P 29UDENL0 C P 63GRDSK0 C P 66FERSH0' P!!DL 358 ( PCREGVOL BIN '0' ONLY ONE REG VOLUME P
0x02fef8…03008c Dummy {f00=0x015e, f01=0x018e, f02=» 639,675 START 3270 * P!!DL 676,687 START BATCH TRANSMISSION P!!EN J PNOD C V PTRA /S,NL d PINC DIV461 v PINC RGADM PNOD R PINC RGSUBS PINC KMDIO PINC RGSUB3 PNOD R PINC SCREEN PINC SUBAPL
0x03008c…030220 Dummy {f00=0x015e, f01=0x00ee, f02=» PINC RGSUB2 PINC DKSUBS PINC RGMAIN ( PNOD R : PINC RGSTRT H PASG 2,LP0F Z PTLK U,M,X,4K l LKE M PKPF /L,RGTEST PSCR 0 PMES $PDISC M=M:FD2,MU=M:FD2,A=RGTEST,C=C975 P$ASG2 C SCREEN PINC SUBAPL
0x030220…0303b4 (1, 60) Dummy {f00=0x015e, f01=0x2008, f02=»
0x0303b4…030548 Dummy {f00=0x015e, f01=0x0190, f02=» u0 1 y0 1 J F " D @L ! L L 4 L Lb # L % L Lb # L % L W . | 0 0 0 0
0x030548…0306dc Dummy {f00=0x015e, f01=0x0190, f02=» 0 $ 0 4 F J F " D L" L 2 % L " 3 $ 4 4 L4 4 R ! L L X 0 T
0x0306dc…030870 Dummy {f00=0x015e, f01=0x0190, f02=» K0 ! P0 " W ( ` d : n d L J F " D @J, ! L4% L/# L*_*! L#_1 L t =W L" t _MJ PW 4 ^ Y
0x030870…030a04 Dummy {f00=0x015e, f01=0x0190, f02=» . > N ^ n ~
0x030a04…030b98 Dummy {f00=0x015e, f01=0x0190, f02=» . > N ^ n A ~ O `
0x030b98…030d2c Dummy {f00=0x015e, f01=0x0190, f02=» r . > N ^ n ~
0x030d2c…030ec0 Dummy {f00=0x015e, f01=0x0190, f02=» / E J V . > N ^ n ~ `
0x030ec0…031054 (1, 61) Opaque[0x194]
0x031054…0311e8 # DirEnt {nam=»SCREEN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f50, f03=0x0000}
0x031054…0311e8 IdxSect {
0x031054…0311e8 f00 = 0x007a // 0x31054 @0x0
0x031054…0311e8 f01 = 0x000e // 0x31056 @0x2
0x031054…0311e8 gno = [ // 0x31058 @0x4
0x031054…0311e8 [0x00]: C0x007a.0x2.0
0x031054…0311e8 [0x01]: C0x007a.0x3.0
0x031054…0311e8 [0x02]: C0x007b.0x0.0
0x031054…0311e8 [0x03]: C0x007b.0x1.0
0x031054…0311e8 [0x04]: C0x007b.0x2.0
0x031054…0311e8 [0x05]: C0x007b.0x3.0
0x031054…0311e8 [0x06]: C0x007c.0x0.0
0x031054…0311e8 ]
0x031054…0311e8 }
0x0311e8…03137c Dummy {f00=0x007a, f01=0x0190, f02=» P IDENT SCREEN 840124 EV P 1.1,78-04-20,870138040310 $ P* H , P* A STANDARD PROGRAM PACKAGE HANDLING R 0 P* A COMPLETE PICTURE ON A DISPLAY SCREEN P* ( P* RUNNING UNDER: CREDIT REL 3.1 ( P* TOSS
0x03137c…031510 Dummy {f00=0x007a, f01=0x0190, f02=»R SOME VARIABLE FIELDS ~ * P ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ( P ENTRY SPERR DISPLAY ERROR PRINTOUT L P AND CONTINUE HANDLING x $ P ENTRY SPLIN8 MESSAGE ON LINE 8 P ENTRY SPCA AS SPCLRA-- P ENTRY SPCN AS SPCLRN-- $ P SPCA
0x031510…0316a4 Dummy {f00=0x007a, f01=0x0190, f02=»ON LINE 1 v ( P ENTRY SPINF8 INFORMATION ON LINE 8 P ENTRY BELL > P ENTRY DKTEST R P ENTRY KBTEST h P* ~ , P EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1 , P EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2 , P EXT SPCHK3 STANDARD CHECK ROUTI
0x0316a4…031838 Dummy {f00=0x007a, f01=0x0190, f02=»CK ROUTINE NO. 6 x , P EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7 & P EXT SPAPPL USER ROUTINE TO HANDLE H P APPL VALUES r ( P EXT SPTCHK USER ROUTINE TO EVALUATE P CONDITIONAL TABULATION P* P EXT ABORT . P EXT EMPTYT ASSEMBLY S
0x031838…0319cc Dummy {f00=0x007a, f01=0x018e, f02=»INCLUDE KEY VALUES, . P* THEN INCLUDE SPECIAL SCREEN FORMATS P INCLUDE SL461,LIST N P EJECT j PSPCLRA PROC x P* D P* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE P* P MOVE SPERASE,=W'0' & P MOV
0x0319cc…031b60 Dummy {f00=0x007a, f01=0x0190, f02=» P* F P* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* X P MOVE SPERASE,=W'0' b & P MOVE SPLINTOP,=W'1' WHOLE SCREEN ~ P MOVE SPLINLOW,=W'0' P PERF SCREEN,=W'2' P RET P PEND PSPCLRN PROC
0x031b60…031cf4 (1, 62) Dummy {f00=0x007a, f01=0x018e, f02=»OP,=W'1' WHOLE SCREEN P MOVE SPLINLOW,=W'0' P PERF SCREEN,=W'3' : P RET T P PEND ` PSPERR PROC n P* 0 P* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE P* P TBT TBCTASK,SPERR90 P PERF SCREEN,=W'0' PSPERR90
0x031cf4…031e88 Dummy {f00=0x007a, f01=0x0190, f02=» P MOVE SPERASE,=W'4' P PERF SCREEN,=W'1' $ P RET > P PEND J PSPCN PROC X P* j D P* SPCN - AS SPCLRN, BUT ONLY BETWEEN LINES SPLINTOP AND SPLINLOW t P* P MOVE SPERASE,=W'4' P PERF SCREEN,=W'3' P RET P
0x031e88…03201c Dummy {f00=0x007a, f01=0x0190, f02=»T> x P* P PLIT $OPT OPTIO SELECTOR P 6 & P CLEAR SPWARNFL CLEAR WARNING FLAG > ( P MOVE SPBINW2,$OPT MOVE TO VARIABLE h " P TO ALLOW INSTR.S CMP AND IB & P CMP SPBINW2,='0' "SPERR" ENTRY ? P BE ERRPRINT YES ! P . P T
0x03201c…0321b0 Dummy {f00=0x007a, f01=0x0190, f02=»SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX P* 8 PCLEARA B 8 P ERASE 10,SPLINTOP,SPLINLOW ERASE ALL FROM 1 AND UP P P THOME P B CONT P* PCLEARS 8 P ERASE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP P B CONT
0x0321b0…032344 Dummy {f00=0x007a, f01=0x0190, f02=»DEX ` P* P* CLEAR ALL VARIABLES P* 6 PECLRA @ * P ERASE 11,SPLINTOP,SPLINLOW CLEAR ALL N P IN MEMORY | P B ECLRN P* P* CLEAR SOME VARIABLES P* PECLRS 6 P ERASE 6,SPLINTOP,SPLINLOW CLEAR SOM
0x032344…0324d8 Dummy {f00=0x007a, f01=0x0190, f02=»ASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 P DISPLAY 0,SPLINTOP,SPLINLOW ( P B CONT L PECLRN1 P DISPLAY 1,SPLINTOP,SPLINLOW j P B CONT PECLRN2 P DISPLAY 2,SPLINTOP,SPLINLOW P B CONT PECLRN3 P DISPLAY 3,SPLINTOP,SPLINL
0x0324d8…03266c Dummy {f00=0x007a, f01=0x0190, f02=»T CURRENT INDEX ~ ( P BL KTHOME JUMP IF NO CURRENT FIELD PCONT5 D 6 P GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION R P BZ SETCREAD JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND P* P* COMPULSORY FIELD FOUND P*
0x03266c…032800 Dummy {f00=0x007a, f01=0x0190, f02=»EYBOARD v P* PSETCREAD ( P SETCUR SET CURSOR ON CURRENT FIELD * P V P* ^ * P* READ TO CURRENT FIELD ON DISPLAY h P* PREADIN P* SET FLAG IF AUTODUP P* USES VERIF-FIELD P MOVE SPBINW2,=W'3'
0x032800…032994 (1, 63) Dummy {f00=0x007b, f01=0x0190, f02=»Y,DYK05,DYK10,DYK15 PDYK05 . P DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C * P SPBINW2,SPBINW4 P B DYKOUT v PDYK10 0 P DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C P SPBINW2,SPBINW4 P B DYKOUT PDYK15 0 P DYK
0x032994…032b28 Dummy {f00=0x007b, f01=0x0190, f02=»BNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR P* 4 PDYK20 > P* L P* V P PERF DKTEST ` P BNOK SETCREAD t P* P KEY SWITCHES ( P IB SPBINW2,UPD300,CLEA20 JUMP ON C P UPDATE,CANC,CANC, C . P UPDATE,UPDATE,UP
0x032b28…032cbc Dummy {f00=0x007b, f01=0x0190, f02=» 4 P* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST P* < PUPDATE F 0 P CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 T & P GETCTL 3,SPBINW4 GET SCHK-NUMBER 8 P CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK * P PERFI SPBINW4,SPCHK1,SPCH
0x032cbc…032e50 Dummy {f00=0x007b, f01=0x0190, f02=»G v P* PUPD050 P TBT SPDUPL,UPD100 " , P MOVE SPBINW4,='1' INDICATE COND. DISPL < P B UPD200 l PUPD070 ~ $ P GETCTL 0,SPBINW3 GET APPL-VALUE 0 P CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE P B SETCREAD P* " P*
0x032e50…032fe4 Dummy {f00=0x007b, f01=0x0190, f02=»CTL 0,SPBINW3 GET APPL-VALUE 2 P CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE $ P* Z ( P* APPL-VALUE DIFFERENT FROM ZERO d P* PUPD210 P PERF SPAPPL ( P IB SPBINW3,UPD400,SETCREAD,ERRPRINT P B UPD400 P* P*
0x032fe4…033178 Dummy {f00=0x007b, f01=0x0190, f02=»NG d PUPD300 4 P CBE SPBINW1,='0',UPD350 SKIP NEXT IF LENGTH = 0 ( P SET SPCHANGE INDICATE CHANGED ITEM P PUPD350 | P* TAKE CARE OF WARNING P TBF SPWARNFL,UPD360 * P MOVE SPBINW1,SPBINW2 STORE KEY VALUE $ P MOVE SPBINW4,=W'2
0x033178…03330c Dummy {f00=0x007b, f01=0x0190, f02=»D360 $ P* JUMP ON FUNCTION KEY INDEX P IB SPBINW2,READIN,DUMMY, C 4 P KEOI,DUMMY,DUMMY,KTFWD, C X . P KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C | * P KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER , P SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX
0x03330c…0334a0 Dummy {f00=0x007b, f01=0x0190, f02=»0,SPINPUT UPDATE FIELD DISPL. COND. P B UPD300 , P* > P EJECT H " PKEOI COMMON END-OF-ITEM KEY V PKTFWD TAB. FORWARD 1 STEP | P TFWD P B TSTTAB P* $ PKTBWD TABULATION 1 STEP BACKW. P TBWD P B TSTTA
0x0334a0…033634 (1, 64) Dummy {f00=0x007b, f01=0x0190, f02=» l P TLDOWN P B TSTTAB P* * PKTLEFT TAB. TO LEFTMOST 4 P TLEFT V P B TSTTAB d P* v PKTRIGHT TAB. TO RIGHTMOST P TRIGHT P B TSTTAB P* PKTDOWN TAB 1 DOWN P TDOWN P B TSTTAB
0x033634…0337c8 Dummy {f00=0x007b, f01=0x0190, f02=» * P BOFL SETCREAD EMPTY COMPULSORY FIELD P* 2 P* < P* CONDITIONAL TABULATION F P* j P PERF SPTCHK t P CMP SPBINW3,='0' P BE SETCREAD P IB SPBINW2,DUMMY,DUMMY, C " P KTFWD,DUMMY,DUMMY,KTFWD, C " P KTBWD,
0x0337c8…03395c Dummy {f00=0x007b, f01=0x0190, f02=»CREAD P EJECT PKCOPY HARD COPY P MOVE SPBINW3,='1' 6 P PRINT KVOUCH,SPBINW3,='0' P $ P B SETCREAD SET CURSOR AND READ r P* PKDUPL DUPLICATION . P MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY P DUPL SPINPUT DUPLICAT
0x03395c…033af0 Dummy {f00=0x007b, f01=0x0190, f02=»1,='10' SET LENGTH IN DUPFIELD P SET SPDUPL & P B UPDATE DUPL ALLOWED : PKDUPL2 X 0 P MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY f P B ERRPRINT DUPL NOT ALLOWED P EJECT P* P* EDIT FIELD P* PKEDIT P G
0x033af0…033c84 Dummy {f00=0x007b, f01=0x0190, f02=»TAB3,SPBINW1, C ~ P SPBINW2,SPBINW4 " P B DYKOUT CONTINUE AS FOR DYKI 2 P* X P* ENTER KEY b P* x PKENTER ( P TBT SPCHANGE,KENT00 NO TESTS ON ME P TBF SPME,KENT05 FIELDS ? PKENT00 0 P MOVE SPBINW4,='5' INDICATE
0x033c84…033e18 Dummy {f00=0x007b, f01=0x0190, f02=»SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS ( P BOFL KENT10 EMPTY COMP. FIELD FOUND 6 & P TSTCTL 2 LOOK IF COMPULSORY FIELD b P BZ KENT05 NO! . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD P BP KENT10 YES! PKENT05 4 P MOVE SPBINW2,
0x033e18…033fac Dummy {f00=0x007b, f01=0x0190, f02=»D 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD P EJECT 4 PERRPRT B P* P P PERF DKTEST Z P BNOK SETCREAD n P* * P CBE SPBINW2,='16',KEDIT JUMP IF EDIT * P CBE SPBINW2,='4',CANC JUMP IF CANCEL1 * P CBE SPBINW2,='5',CANC JUMP IF
0x033fac…034140 Dummy {f00=0x007b, f01=0x0190, f02=»3 ~ " P CBNE SPBINW2,SPBINW3,ERRPRT20 P TIMEOUT 0 & P EDWRT SCREEN,ERAFMT ERASE SCREEN B P B ERRC20 l PERRPRT20 ~ P CBE SPBINW4,='0',ERRC20 P PERF BELL ( P MOVE SPBINW3,=X'0801' ROW 24 COL. 1 2 P DSC1 SCREEN,6,SPBINW3 SET C
0x034140…0342d4 (1, 65) Dummy {f00=0x007b, f01=0x018e, f02=»ET | P* P* READ AFTER ERROR P* 2 PERREAD < ( P SETCUR SET CURSOR AT THE BEGINNING J P OF THE CURRENT FIELD v PERR100 * P MOVE SPBINW3,=W'14' REQUESTED LENGTH " P IB SPKEY,ERR105,ERR110,ERR115 PERR105 2 P N
0x0342d4…034468 Dummy {f00=0x007b, f01=0x0190, f02=» P B ERR120 PERR115 2 P NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2 $ PERR120 Z P BNZ ERR100 JUMP IF NOT OK h P* P PERF DKTEST P BNOK SETCREAD P* ( P CMP SPBINW2,='0' JUMP IF POWER OFF P BE RETUR " P I
0x034468…0345fc Dummy {f00=0x007b, f01=0x0190, f02=»T x P* PERRCONT P PERF CLEAR8 ERASE LAST LINE $ ( P CBNL SPBINW4,=W'26',CANC IF WARNING H & P SUB SPBINW2,='1' ADJUST KEY INDEX t PCANC 0 P CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 0 P MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTEN
0x0345fc…034790 Dummy {f00=0x007b, f01=0x0190, f02=»EAR FIELD t PERRC10 ! $ P IB SPBINW2,CLEAR1,CLEAR2,DUMMY ! 0 P SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2 ! H P RET ! | PCLEAR1 ! 0 P CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 ! ( P SET SPCHANGE INDICATE CHANGED FIELD ! PERRC20 ! & P MOV
0x034790…034924 Dummy {f00=0x007b, f01=0x0190, f02=»ITEM,SPINPUT RESTORE CURRENT CONTENTS ! PCLEA20 " . * P GETABX SPBINW4 GET CURRENT TAB INDEX " < , P DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD " j & P MOVE SPBINW5,$OPT CHECK IF SPERR " P CBE SPBINW5,=W'0',SPERRRET " P B SETCREAD CONTINUE " P* "
0x034924…034ab8 Dummy {f00=0x007b, f01=0x0190, f02=»FMT " ~ P RET # P* # PBELLFMT FRMT # " P FSL # 6 P FILLR X'07',1 # B P FMEND # X P # f P PEND # n P* # | PERAFMT FRMT # P FILLR '1',2 # P FMEND # P* # P EJECT # PKBTEST PROC # ( P* THE PROCEDURE SENSES THE KEYBO
0x034ab8…034c4c Dummy {f00=0x007b, f01=0x0190, f02=»DULE TO STOP THE LISTING ( OR FOR ANY OTHER PURPOSE) # P $ < P PERF SPLIN8,CBIN0,CBIN0 $ D P TESTIO KEYB $ d P BOK KBT10 $ x P CALL ABORT,KEYB $ P B KBT20 $ PKBT10 $ P WAIT KEYB $ P CBNE SPBINW2,CBIN6,KBT20 $ P CMP CBIN0,CBIN0 $
0x034c4c…034de0 Dummy {f00=0x007b, f01=0x0190, f02=»P $ x P******************** % P* % & ( P* SPLIN8 - WRITE ON LINE 8 % 0 P* % 6 P* MESSAGE DEFINED AS FORMAT NUMBER WRTMES % f ( P* IN FORMAT TABLE SPFTBMES % P* % $ P* WRTTYP: =0 NO WAIT % " P*
0x034de0…034f74 (1, 66) Dummy {f00=0x007b, f01=0x0190, f02=»*************** % P TBT TBCTASK,LINRET & P MOVE SPBINW1,=X'0801' & 4 2 P DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW & R P MOVE SPBINW1,CBIN0 & P CBE WRTMES,CBIN0,LIN800 & P CBL WRTTYP,CBIN3,LIN801 & & P EDWRT .NW,SCREEN,SPFTBMES(WRTMES) &
0x034f74…035108 Dummy {f00=0x007b, f01=0x018e, f02=»'2',LINRET & P* READ ' PLIN8IN ' ( P MOVE SPBINW1,=W'3' REQUESTED LENGTH ' . " P IB SPKEY,LIN805,LIN810,LIN815 ' Z PLIN805 ' . P NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 ' P B LIN820 ' PLIN810 ' . P NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBIN
0x035108…03529c Dummy {f00=0x007b, f01=0x0190, f02=» ' r P ( P PERF DKTEST ( P ( $ $ P IB SPBINW2,LIN8IN,LIN8CT,LIN8IN ( , P B LIN8IN ( T P* CLEAR LINE ( f PLIN8CT ( z P PERF CLEAR8 ERASE LAST LINE ( P RET ( P* READ WITH NO WAIT ( PLIN8NW ( ( P MOVE SPBINW1,=W'3' REQUESTED LENGTH (
0x03529c…035430 Dummy {f00=0x007b, f01=0x0190, f02=» ( 2 P NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 ) P B LIN870 ) > PLIN865 ) P 2 P NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 ) ^ PLIN870 ) P ) P PERF DKTEST ) P ) PLINRET ) P RET ) P PEND ) P EJECT ) PSPINF1 PROC
0x035430…0355c4 Dummy {f00=0x007b, f01=0x018e, f02=» MOVE SPBINW1,=X'0117' ) 4 P DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE * P MOVE SPBINW1,CBIN0 * V 2 P EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 * r P RET * P PEND * P* * P* * P* * PSPINF8 PROC * P********************
0x0355c4…035758 Dummy {f00=0x007b, f01=0x0190, f02=» P RET + P PEND + P* + P* + ( P EJECT + 2 ( P************************************ + @ P* + l , P* DKTEST TEST IF DISK IS READY + v P* + * P************************************* + P* + P + PDKTEST PROC + P +
0x035758…0358ec Dummy {f00=0x007b, f01=0x4182, f02=»OVL ON DU + p P , P MOVE SPBINW5,=X'0801' , P DSC1 SCREEN,6,SPBINW5 , 8 & P EDWRT .NW,SCREEN,SPFTBMES(CBIN11) , V P , PDKT10 , P DELAY CBIN10 , P TBT CDKOFF,DKT10 , P PERF CLEAR8 , P CMP CBIN1,CBIN0 NOK , P RET , P ,
0x0358ec…035a80 Dummy {f00=0x007b, f01=0x2008, f02=» -
0x035a80…035c14 (1, 67) Dummy {f00=0x007c, f01=0x0190, f02=» P B ADMRET > P* > PADM24 > P* KONTOKORT * > . P PERF KORT > D P B ADMRET > V P* > h PADM25 > r P* RECEIPT * > P PERF KVIT > P B ADMRET > P* > PADM26 > P* SUMMARIZE * > P PERF SUM > P B ADMRET >
0x035c14…035da8 Dummy {f00=0x007c, f01=0x0190, f02=»OT > P B ADMRET ? P* ? PADM29 ? & P******************** ? 4 P* ? P $ P* TEST PRINT ON VOUCHER ? Z P* ? P******************** ? P DSC0 KVOUCH,RLEAS RLEASE ? , P PERF SPLIN8,CBIN5,CBIN2 ASK FOR 'BILAG' ? P PERF GRASPV A
0x035da8…035f3c Dummy {f00=0x007c, f01=0x0190, f02=»SWBIN1 POSITION ON LINE ? ~ " P PERF FRMXVO,CBIN16 GET FORMAT @ P EDWRT KVOUCH,GTSTRFMT PRINT @ F P SUB GSWBIN1,CBIN8 @ j P B ADM2910 @ PADM29RET @ P DSC0 KVOUCH,RLEAS @ P B ADMRET @ P* @ PADM30 @ P* CYCLE END @ P PERF CYK,
0x035f3c…0360d0 Dummy {f00=0x007c, f01=0x0190, f02=»2 @ P* STABEL START * A P PERF CYK,CBIN2 A " P B ADMRET A : P* A L PADM33 A V P* DUMMY * A d P B ADMRET A v P* A PADM34 A $ P* 4-CYCLE, PAUSE IN CYCLE,STABEL A P PERF CYK,CBIN4 A P B ADMRET A P* A PADM35 A
0x0360d0…036264 Dummy {f00=0x007c, f01=0x0190, f02=» B A45ELJ A P* B P* B P* B & P* B 0 P* END OF ADM FUNCTIONS B : P* B PADMRET B f P RET B t P PEND B P B P B P EJECT B P* B P* B 6 P************************************************* B P* B P*
0x036264…0363f8 Dummy {f00=0x007c, f01=0x0190, f02=» 1 B P FMEL 'B',TSWBCD2 C P FMEND C $ P* C 2 PKONFRMT FRMT C < P FSL C P P FCOPY =C'KONVERTERING ' C P FILLR X'07',1 C | P FLINK FMTFKI C P FMEND C P* C PKONV4FMT FRMT C P FSL C P FCOPY ='KORREKT' C P FILLR '?',1
0x0363f8…03658c Dummy {f00=0x007c, f01=0x0190, f02=» GTDYFLG,OPFR05 C P FTAB 1 D P FCOPY =C'KASSE]BNING' D ( POPFR05 D F P FNL D T P FBF GTMASTFL,OPFR10 D ` P FCOPY =C'DAGS-DATO' D | . P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR D P FMEL '99E-99E-99',CMASKDAT D P FNL D P FCOPY =C'DAG
0x03658c…036720 Dummy {f00=0x007c, f01=0x0190, f02=» FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107 D P FMEL '99E-99E-99',GTDATO E 6 P FMEND E X PADMFRM1 FRMT E f P FSL E z P FBT GTSPGFLG,ADML0001 E P FCOPY ='ADM ' E PADML0001 E P FTAB 6 E P FCOPY ='EJ-EDB T[LLER ' E P FNL E P
0x036720…0368b4 (1, 68) Opaque[0x194]
0x0368b4…036a48 # DirEnt {nam=»FMT50 «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0218, f03=0xffff}
0x0368b4…036a48 IdxSect {
0x0368b4…036a48 f00 = 0x0010 // 0x368b4 @0x0
0x0368b4…036a48 f01 = 0x0002 // 0x368b6 @0x2
0x0368b4…036a48 gno = [ // 0x368b8 @0x4
0x0368b4…036a48 [0x00]: C0x0010.0x3.0
0x0368b4…036a48 ]
0x0368b4…036a48 }
0x036a48…036bdc Dummy {f00=0x0010, f01=0x0190, f02=» PFRMT51 FRMT P FLINK FM40ST " P FTEXT ' RATEP]LIGN' 8 P FTAB 29 ^ P FTEXT 'ANTAL' z P FILLR ':',1 P FBZ GSSWITCH(CBIN1),LAB151 , P FKI 35,MAXL=2,APPL=71,VERIF
0x036bdc…036d70 Dummy {f00=0x0010, f01=0x0190, f02=» PLAB251 FNL P FCOPY ='BKO' P FILLR ':',1 6 P FLINK SUBF07 T P FTAB 8 t P FCOPY =']R' P FILLR ':',1 P FLINK SUBF15 P FTAB 13 " P
0x036d70…036f04 Dummy {f00=0x0010, f01=0x0190, f02=»'DEBITOR' ~ P FCOPY ='NR' P FTAB 13 & " P FCOPY ='CPR/CIR/NR' B P FTAB 25 h P FCOPY ='LBNR' P FTAB 30 P FCOPY ='OMR' P FNL P FLINK SUB
0x036f04…037098 Dummy {f00=0x0010, f01=0x0164, f02=» FNL P FNL P FTAB 15 P FCOPY ='NR' < P FTAB 18 Z P FCOPY ='OPK' v P FTAB 22 P FLINK FRTBEL P FNL P FLINK SUBF36 P FLI
0x037098…03722c Dummy {f00=0x0010, f01=0x2008, f02=» P FNL P FTAB 15 P FCOPY ='NR' < P FTAB 18 Z P FCOPY ='OPK' v P FTAB 22 P FLINK FRTBEL P FNL P FLINK SUBF36 P FLI
0x03722c…0373c0 Dummy {f00=0x0010, f01=0x0190, f02=»" 1 V " 2 P W | , ( X {T * = ~X@ } , ( P n = R L , ( 0" ZT_" O R | , ( 0 O B " |T ] N , ( C ( Z 0 O
0x0373c0…037554 (1, 69) Opaque[0x194]
0x037554…0376e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x037554…0376e8 IdxSect {
0x037554…0376e8 f00 = 0x0011 // 0x37554 @0x0
0x037554…0376e8 f01 = 0x00ee // 0x37556 @0x2
0x037554…0376e8 gno = [ // 0x37558 @0x4
0x037554…0376e8 [0x00]: C0x0011.0x2.0
0x037554…0376e8 [0x01]: C0x0011.0x3.0
0x037554…0376e8 [0x02]: C0x0012.0x2.0
0x037554…0376e8 [0x03]: C0x0012.0x3.0
0x037554…0376e8 [0x04]: C0x0011.0x1.0
0x037554…0376e8 [0x05]: C0x0013.0x1.0
0x037554…0376e8 [0x06]: C0x0013.0x2.0
0x037554…0376e8 [0x07]: C0x0013.0x3.0
0x037554…0376e8 [0x08]: C0x0013.0x0.0
0x037554…0376e8 [0x09]: C0x0014.0x0.0
0x037554…0376e8 [0x0a]: C0x0014.0x2.0
0x037554…0376e8 [0x0b]: C0x0014.0x3.0
0x037554…0376e8 [0x0c]: C0x0015.0x0.0
0x037554…0376e8 [0x0d]: C0x0016.0x1.0
0x037554…0376e8 [0x0e]: C0x0016.0x2.0
0x037554…0376e8 [0x0f]: C0x0016.0x3.0
0x037554…0376e8 [0x10]: C0x0017.0x0.0
0x037554…0376e8 [0x11]: C0x0017.0x1.0
0x037554…0376e8 [0x12]: C0x0017.0x2.0
0x037554…0376e8 [0x13]: C0x0017.0x3.0
0x037554…0376e8 [0x14]: C0x0018.0x1.0
0x037554…0376e8 [0x15]: C0x0018.0x2.0
0x037554…0376e8 [0x16]: C0x0018.0x3.0
0x037554…0376e8 [0x17]: C0x0019.0x0.0
0x037554…0376e8 [0x18]: C0x0019.0x1.0
0x037554…0376e8 [0x19]: C0x0019.0x2.0
0x037554…0376e8 [0x1a]: C0x0019.0x3.0
0x037554…0376e8 [0x1b]: C0x0015.0x2.0
0x037554…0376e8 [0x1c]: C0x0015.0x3.0
0x037554…0376e8 [0x1d]: C0x0016.0x0.0
0x037554…0376e8 [0x1e]: C0x0018.0x0.0
0x037554…0376e8 [0x1f]: C0x0015.0x1.0
0x037554…0376e8 [0x20]: C0x001a.0x0.0
0x037554…0376e8 [0x21]: C0x001b.0x2.0
0x037554…0376e8 [0x22]: C0x001c.0x0.0
0x037554…0376e8 [0x23]: C0x001c.0x1.0
0x037554…0376e8 [0x24]: C0x001c.0x2.0
0x037554…0376e8 [0x25]: C0x001c.0x3.0
0x037554…0376e8 [0x26]: C0x001d.0x0.0
0x037554…0376e8 [0x27]: C0x001d.0x2.0
0x037554…0376e8 [0x28]: C0x001d.0x3.0
0x037554…0376e8 [0x29]: C0x001a.0x1.0
0x037554…0376e8 [0x2a]: C0x001a.0x2.0
0x037554…0376e8 [0x2b]: C0x0014.0x1.0
0x037554…0376e8 [0x2c]: C0x001a.0x3.0
0x037554…0376e8 [0x2d]: C0x0010.0x0.0
0x037554…0376e8 [0x2e]: C0x001b.0x1.0
0x037554…0376e8 [0x2f]: C0x001e.0x1.0
0x037554…0376e8 [0x30]: C0x001e.0x2.0
0x037554…0376e8 [0x31]: C0x001b.0x0.0
0x037554…0376e8 [0x32]: C0x0020.0x1.0
0x037554…0376e8 [0x33]: C0x0020.0x2.0
0x037554…0376e8 [0x34]: C0x0020.0x3.0
0x037554…0376e8 [0x35]: C0x0026.0x0.0
0x037554…0376e8 [0x36]: C0x0026.0x1.0
0x037554…0376e8 [0x37]: C0x0026.0x2.0
0x037554…0376e8 [0x38]: C0x0026.0x3.0
0x037554…0376e8 [0x39]: C0x0027.0x2.0
0x037554…0376e8 [0x3a]: C0x0027.0x3.0
0x037554…0376e8 [0x3b]: C0x0028.0x0.0
0x037554…0376e8 [0x3c]: C0x0029.0x2.0
0x037554…0376e8 [0x3d]: C0x0025.0x3.0
0x037554…0376e8 [0x3e]: C0x0029.0x3.0
0x037554…0376e8 [0x3f]: C0x002a.0x2.0
0x037554…0376e8 [0x40]: C0x001f.0x3.0
0x037554…0376e8 [0x41]: C0x0020.0x0.0
0x037554…0376e8 [0x42]: C0x0021.0x0.0
0x037554…0376e8 [0x43]: C0x0021.0x1.0
0x037554…0376e8 [0x44]: C0x0022.0x2.0
0x037554…0376e8 [0x45]: C0x0022.0x3.0
0x037554…0376e8 [0x46]: C0x0023.0x0.0
0x037554…0376e8 [0x47]: C0x0023.0x1.0
0x037554…0376e8 [0x48]: C0x0024.0x1.0
0x037554…0376e8 [0x49]: C0x0024.0x2.0
0x037554…0376e8 [0x4a]: C0x0024.0x3.0
0x037554…0376e8 [0x4b]: C0x0025.0x0.0
0x037554…0376e8 [0x4c]: C0x000f.0x3.0
0x037554…0376e8 [0x4d]: C0x0010.0x1.0
0x037554…0376e8 [0x4e]: C0x0010.0x2.0
0x037554…0376e8 [0x4f]: C0x0012.0x0.0
0x037554…0376e8 [0x50]: C0x0041.0x2.0
0x037554…0376e8 [0x51]: C0x0042.0x0.0
0x037554…0376e8 [0x52]: C0x005d.0x0.0
0x037554…0376e8 [0x53]: C0x005e.0x2.0
0x037554…0376e8 [0x54]: C0x005f.0x1.0
0x037554…0376e8 [0x55]: C0x0061.0x0.0
0x037554…0376e8 [0x56]: C0x0061.0x1.0
0x037554…0376e8 [0x57]: C0x0061.0x3.0
0x037554…0376e8 [0x58]: C0x001d.0x1.0
0x037554…0376e8 [0x59]: C0x0031.0x0.0
0x037554…0376e8 [0x5a]: C0x0031.0x2.0
0x037554…0376e8 [0x5b]: C0x0032.0x0.0
0x037554…0376e8 [0x5c]: C0x0055.0x1.0
0x037554…0376e8 [0x5d]: C0x0056.0x3.0
0x037554…0376e8 [0x5e]: C0x0057.0x1.0
0x037554…0376e8 [0x5f]: C0x0059.0x2.0
0x037554…0376e8 [0x60]: C0x002e.0x1.0
0x037554…0376e8 [0x61]: C0x002e.0x2.0
0x037554…0376e8 [0x62]: C0x002e.0x3.0
0x037554…0376e8 [0x63]: C0x0030.0x0.0
0x037554…0376e8 [0x64]: C0x0030.0x1.0
0x037554…0376e8 [0x65]: C0x0030.0x2.0
0x037554…0376e8 [0x66]: C0x0030.0x3.0
0x037554…0376e8 [0x67]: C0x0032.0x3.0
0x037554…0376e8 [0x68]: C0x0033.0x2.0
0x037554…0376e8 [0x69]: C0x0034.0x2.0
0x037554…0376e8 [0x6a]: C0x0036.0x2.0
0x037554…0376e8 [0x6b]: C0x0037.0x2.0
0x037554…0376e8 [0x6c]: C0x0038.0x3.0
0x037554…0376e8 [0x6d]: C0x0021.0x2.0
0x037554…0376e8 [0x6e]: C0x0024.0x0.0
0x037554…0376e8 [0x6f]: C0x004d.0x2.0
0x037554…0376e8 [0x70]: C0x0051.0x1.0
0x037554…0376e8 [0x71]: C0x0051.0x2.0
0x037554…0376e8 [0x72]: C0x0023.0x2.0
0x037554…0376e8 [0x73]: C0x0023.0x3.0
0x037554…0376e8 [0x74]: C0x0027.0x0.0
0x037554…0376e8 [0x75]: C0x0028.0x1.0
0x037554…0376e8 [0x76]: C0x0042.0x2.0
0x037554…0376e8 ]
0x037554…0376e8 }
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT DCTSK REL2.1 DK 800317 870150540210 # DCTSK # R DCTSK # b I:EVA0 # t , ( @ & C ( ( # , ( B _ C # $ 0 ? C C ( : T v #
0x03787c…037a10 Dummy {f00=0x0011, f01=0x4020, f02=»P # v $ @ $ REL2.1 DK 800317 870150540210 # DCTSK # R DCTSK # b I:EVA0 # t , ( @ & C ( ( # , ( B _ C # $ 0 ? C C ( : T v #
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT TB3270 2.1DK 2 79-05-23 870150540210 TASCIIK TEBCDI KEYCNV R TASCIIK t , ( ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^ TEBCDI @ , ( ! -/STUVWXYZ@,%_>?0123456789:[ '=" , ( A
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x4126, f02=»EYCNV , ( , ( pR wQ PW R R W @ , ( H : & p , ( 01234567 ! 89 $ R Q W R R W
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 2 79-11-16 870105040920 ! TASCIIK TEBCDI ! R TASCIIK ! l , ( ! , ( ! ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x037ecc…038060 Dummy {f00=0x0011, f01=0x416e, f02=»89:#@'=" ! p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ " TEBCDI " @ , ( /STUVWXYZ|,%_>?0123456789:#@'= " T , ( 7- <=2&p ?' " , ( ! @O JZlP}M] Nk`Ka z^L~no " , ( A j {
0x038060…0381f4 (1, 70) Dummy {f00=0x0011, f01=0x0190, f02=» > @ IDENT FILHND REL 9.2 79-11-16 870136640920 CRFILE DLFILE F , ( ` CRFILE 6 , ( ! A A , ( U A A A A A P A @ , (
0x0381f4…038388 Dummy {f00=0x0011, f01=0x018e, f02=» , ( D * # A R ( B R ! , ( T A B ! T C ( B 4 , ( P ! W B Q ( , d , ( ! X @ P ( "' , ( A _~ "' R 9@ A R , ( a !LLP @ T
0x038388…03851c Dummy {f00=0x0011, f01=0x0190, f02=» f , ( P A A 2 A A A , ( *R A 4 A A A @ P A A 8 , ( B A ( B T @ C h , ( ( B ! B T : 2 , ( ? @ 2 R 0X R , ( @ _ @ Z
0x03851c…0386b0 Dummy {f00=0x0011, f01=0x0190, f02=» : _ @ T _ _ R @ !LL , ( P P P R XvW R P Q ( , ( @ 1 N_ A 0 ` 1 X , ( Q A A @ ] : , ( ? : P . P < : , ( _ : A @ A R C
0x0386b0…038844 Dummy {f00=0x0011, f01=0x0190, f02=»P _ Xh x , ( " _6 A : @ T A b @ , ( !T Q : " A b @ H , ( @ K @ K K x , ( ? K K K K K R 2 K R 1 , ( _ :H R K R !LLT R 4:H R 5 K , (
0x038844…0389d8 Dummy {f00=0x0011, f01=0x0190, f02=» h , ( @ , % , ( @ @ , R 2 R 1 % Y A 4 8 , ( E! *( A 4 @ 4Y A 4 ( @ 2 h , ( ? A 4 @ 4Y : A @ , ( _ Q A ( , (
0x0389d8…038b6c Dummy {f00=0x0011, f01=0x0190, f02=» j DLFILE , ( ( * @ : A T @ T , ( : A A A T N , ( * A b @ P T ~ , ( @ ; : P . P _< : , ( [ " @ - ( @ 2!
0x038b6c…038d00 Dummy {f00=0x0011, f01=0x0190, f02=»_ P n , ( : Q _$ _D 2 ) I , ( H _ ( - : @ P * > , ( # @ P ( P =A _ : n , ( ; FILE 9 , ( [ VOLUME NAME FILE EXT.NO , ( {
0x038d00…038e94 (1, 71) Dummy {f00=0x0012, f01=0x0190, f02=» m {P Q < R R TF T: P W Q( | H D !@ -P ? MR ePL kTV PB P S W W P : T : 7T QR 8 H D ! YR gU yWl } T: T W W T P PR R W Rh H D ! IP QP P T T P T Q ) qT P
0x038e94…039028 Dummy {f00=0x0012, f01=0x404a, f02=» T T P$ #P -P 9 B U ^ h $ 4@ FPL kTV PB P S W W P : T : 7T QR 8 H D ! YR gU yWl } T: T W W T P PR R W Rh H D ! IP QP P T T P T Q ) qT P
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=» > @ IDENT BIDACR REL 9.2 79-11-16 870136640920 BIDAC BIDACR F BIDAC ^ , ( R _ P 0 - : ; p , ( ! [ V - - ' , ( @ A d Z : BIDAC
0x0391bc…039350 Dummy {f00=0x0012, f01=0x4042, f02=» R P )V V W R T R ,@ > BIDAC BIDACR F BIDAC ^ , ( R _ P 0 - : ; p , ( ! [ V - - ' , ( @ A d Z : BIDAC
0x039350…0394e4 Dummy {f00=0x0012, f01=0x4140, f02=» > @ IDENT DSUMOD REL 9.2 79-11-16 870136640920 DSUMOD F DSUMOD X , ( Q S W S Q l , ( ! R S P W S _ R _ " A ;A [ [ : 4 0 Q S W S
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=» 8 H IDENT RGMAIN TRA 4.2 84-01-24 F1 O1111 840124 EV j " FUNCT INITRG TRINP TRPAGE j @ $$$TRAM j f * & FUNCT INITRGT TRINP TRPAGE = j x D @ hADM BELLIhCYK DIVTR ENTER FMSTYR FRMTSP8 KORT KVIT LSTINT j @ < MODPT PACKCLR SETDEBI S
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»0 j k k = k , $ k < + k N 3 k ` 5 k p ; k J F " D L L A @ L R RH RA W @ LW A L@ I L R@ W RI k C k J " k O k
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=»AR H k P l = l & l . l > $ l P = l ` ( l p l $ l . l . l l l J F " D R R__ R L @ R_GK R( @ R R
0x0399a0…039b34 (1, 72) Dummy {f00=0x0012, f01=0x0190, f02=»A R_ 6 .9?EMWapy W @ l n m , m < ( m L 0 I m m n ! m ~ # ( m 5 m ; * m J F " D 4 I 9C P R R R 4 C P # L R R R 4 I I 4 RT W RT W m
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=» D @ R 4 R T 4 R T 4 RT ! L W 4 RT 4 RTxW~ R TqW m , n L n H n l R n | n n n n n n n n
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x4182, f02=» n o o = o 0 o @ J F " D 4 I ( L 4 I L 4 I L 4 H R 4 L 4 4 6 o R o o o 2 0 o J F " D ! L1 4 4 I L RT 6
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x8190, f02=» 8 H IDENT RGSTRT TRA 4.2 84-01-24 F1 O1111 840124 EV < 8 CNFWRT CONFRD CONFWR CONRDX T1GO TCONFR TCONFW @ $$$TRAS @ < CNFWRT CONFRDC CONFWRN K CONRDX ? T1GO TCONFR TCONFWS D @ hADM ASGFILC ASGVOL CLBEH C
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x8190, f02=»PCLRNC SPLIN8E STRTWRO T:ATTFS T:DSC0O x : 6 T:GETIS T:PAUSA T:RSTR4 T:USE UPDAKKM WRITID2 ZEROR . 4 l : | , $ 6 & K ) S + . 1 4
0x03a184…03a318 Dummy {f00=0x0012, f01=0x8190, f02=» D ( X FD d z D . J F " D @1XF R 6 _/ L d R A@)6 l _Q 5L @ 0
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x8190, f02=» 0 0 B J F " D # L] R L5 f_ A)WO@) RL RL RL RL R6 ( _ RL RL R LL5L T
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x8190, f02=» 0 0 0 " J F " D ) R_0 RL RL R LLXL < R_C RL R W R ) L L I HI) # L f 4 2 0 * " FD J F " D A&A 0X 1XF R6 _ L d
0x03a640…03a7d4 (1, 73) Dummy {f00=0x0011, f01=0x8190, f02=» t : y K { ' $ J F " D @ " @( 0X A 0X 1XF R6 _2 L R :_/0X R<R 1@ 4 0 0 : : ' :
0x03a7d4…03a968 Dummy {f00=0x0011, f01=0x8190, f02=» R 0X A 1X V ( ' $ 0 4 F V ' f v ' " 0 0 0 >
0x03a968…03aafc Dummy {f00=0x0011, f01=0x8190, f02=» 0 ! # ( 5 0 80 / @ @ . R J F " D Lb M I " 4I 0X A 1XF R6 _ _ ?R L$ W b B ' D > K 2 Q 0 R T (
0x03aafc…03ac90 Dummy {f00=0x0011, f01=0x8190, f02=» @' C R C L R LM CT I' f 0 $ SLUTD 6 L L 0 L ^ 8 p 6 J F " D LP L h M P Lb M q _J! L 0X? 0X_ 0 P 0
0x03ac90…03ae24 Dummy {f00=0x0011, f01=0x8190, f02=»E R R@ ,Ex A R@ W + L f 0 $ 0 6 H K X @ h > x 0 " ( J F " D L L E R R RK W= RM A 1XF R6 _ _ C @'_ A'_ @'
0x03ae24…03afb8 Dummy {f00=0x0011, f01=0x8190, f02=» J F " D @W I A$ R?R q I" _ 0X? 0X_ ELA" " @ 0X? _ R$ A 0X L 0 X SUBTOTAL j 0 U
0x03afb8…03b14c Dummy {f00=0x0011, f01=0x8190, f02=» L R L T - L % L ` 0 0 A 0 0 A D T X 0 A j 0 A ~ 0 0 A 0 A 0 A 0 A
0x03b14c…03b2e0 Dummy {f00=0x0011, f01=0x8190, f02=» ? ? " ? $ ( ? 4 . ? D 4 ? T : ? d A t J F " D 4 R5 T4 R6 T. R7 T( R8 T" R9 T R: T R; T R< T R= T RD 4 C E0 O
0x03b2e0…03b474 (1, 74) Dummy {f00=0x0013, f01=0x8190, f02=» q0 w y0 2 0 B J F " D @ L R L 4 xE R L5 TF R L6 T> R L7 T6 R L8 T. R L9 T& R L: T R T 0 R 0 R 0 R
0x03b474…03b608 Dummy {f00=0x0013, f01=0x8190, f02=» B " ( - ( & 8 & START F & Z & VOLUME= h & U ~ & & & DATASET= & A & ( f &
0x03b608…03b79c Dummy {f00=0x0013, f01=0x8190, f02=» 3 VOL 4F ~ $ & " & A 0 & B & A R & d & A t & & $ DSN02 DSN03 DSN04L $ & & A &
0x03b79c…03b930 Dummy {f00=0x0013, f01=0x8190, f02=»$ & & A & . & A > & P & A ` & r & A & ( . & 99 " & MA
0x03b930…03bac4 Dummy {f00=0x0013, f01=0x8190, f02=»$ & g 99 " 2 & B EJ-EDB T[LLER P $ n & h ~ 99 " & EKS.LBNR $ & ZZZZ
0x03bac4…03bc58 Dummy {f00=0x0013, f01=0x818e, f02=» & DAGS-DATO $ 4 & D 99E-99E-99 V " p & DAG NR $ & f ZZZE " w (
0x03bc58…03bdec Dummy {f00=0x0013, f01=0xc156, f02=» & OPSTART $ K . & ? > & L $ K Z ( j v & KORREKT $ K & ? & $ K ( H D ! B L; T R L< T
0x03bdec…03bf80 Dummy {f00=0x0013, f01=0x0190, f02=» 8 H IDENT DKSUBS TRA 4.2 84-02-03 F1 O1111 840203 EV : @ < ASSG BACKUP ERDK GETBIT RADEL RAREAD RAWRIT RGREAD : @ $ RSTORES SQREADA SQWRIT4 WAITF : $$$TRAB : F B ASSGR BACKUPA p ERDK4 k GETBIT RADEL RAREAD D RAWRIT : 6 2
0x03bf80…03c114 (1, 75) Dummy {f00=0x0013, f01=0x0190, f02=»0B T:DSC1R T:READR T:RREAS T:RWRIX T:SWITw T:WRITA : T:XSTA WRITJTP WRITLOP ; : 0 ; 0 ; n ; ! ; 5 ASSIGN ; 7 ; J F " D I H I! L H! L 0X 0X I HP ) L R 4
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=» ; x0 < J F " D @ 4 L0X Q P R I 0X @ 0X 4 R ! L3! L/! L+ ) < DISCFEJL < j < " < < 0 < $ < < 0 < <
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=»0 H < 0 H = 0 H = = 0 = @ k = P J F " D 0R T L L L 4 " I 0X 0X Q P R P = ` = = '0 0 = * k = @ = J F " D
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=» x = J F " D @X P Q R I 0X 4 I 0X Q P R 4 @'A R TvI > > > l > | D > 0 > > J F " D R TiW 0X 0X # : R T ! L I R T _$ >
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x018e, f02=» > ? J F " D R L X+W+ RLA'I R _< L_ I' I 0X W 0X @ 4 RLI 0X W ? " ? p ? ? , ? 4 9 ? 60 ? J F " D 0X @'@ 4 A R TmI R T`W 0X
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=» ? l @ v @ | @ ( J F " D @ / I R T ! L W R L T R X, RL R _6I 0X W 0X @ @ 8 @ @ @ @ w @ 0 @ @ @
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=»<R @ N Z A &01 A 0 A 0 Z A B 0 A R 0 A d 0 A v J F " D L8R Lb M!! L _/ Lb M <R Lb M Lb M A c A 0 A e A
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x0190, f02=» A L d B J F " D @ B hM T b M Lb M P B -B B j B | 0 B 0 B J F " D Y P ( ! K"e , / Lh ( T L L L_ B
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x0013, f01=0x4180, f02=» hM T[f B V 0 h C C & D C 8 * C H . C Z J F " D M M 0 I" C L L R M 0T<fM L!BL Lh ' dM C l D0 C F > C Q * C Y * C { C
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x8190, f02=» 8 H IDENT SCREEN TRA 4.2 83-10-04 F1 O1111 831003 EV @ < BELL DKTEST SCREEN SPCA SPCLRA SPCLRN SPCLRS SPCN @ $ SPERR SPINF1T SPINF8 SPLIN84 $$$TRAD > : BELLR DKTESTS SCREENL B SPCA 2 SPCLRA1 SPCLRN > : SPCLR
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x8190, f02=»PCHK6S SPCHK7R SPTCHKF T:DELAI T:DISPS T:DSC1 > : T:DUPL T:DYKIS T:EDFLE T:EDWRC T:ERASC T:GETAS T:GETC 6 D @ T:GETFD T:NKI T:PRINK T:SETCH T:TBWDL T:TDOWS T:TFWDC T:THOM x < 8 T:TLDO T:TLEFS T:TRIGE T:TSTCC T:TUP T:UPDFT T:XSTAT 2 . , &
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x8190, f02=» & ! * % # J , ( & x * " " " " " "
0x03d270…03d404 Dummy {f00=0x0013, f01=0x8190, f02=» " " " $ " 2 " @ " N " " j " x " " " " " ( * " " "
0x03d404…03d598 Dummy {f00=0x0013, f01=0x8190, f02=» & FEJL $ 0 ZZ9 @ " T ( d p & 99B " & 99 " ( &
0x03d598…03d72c Dummy {f00=0x0013, f01=0x8190, f02=» . ( & . & & NY SIDE. 4 ( J V & f & Y t & & & ZZZZZVZZ9,99+ " Y ( &
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x8190, f02=» & & ( ( 4 & D DISK SKIFT R $ Y l & | ( & OPSTART $ Y ( &
0x03d8c0…03da54 (1, 77) Dummy {f00=0x0013, f01=0x818e, f02=»T. z $ "I & ( ( 4 F X B j z B !
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x818e, f02=» < > B ? & J F " D L L L RL4 L L L RL4 L L L RL4 I RL4 L RL4 L RL 8 I K < V & [ : _ & l & s & J F
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x8190, f02=» ( , 2 ( 8 J B J F " D W 0X W 0X W 0X W 0X W 0X R 0X P R _ 0X L L0X P l
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x8190, f02=» , < L l | J F " D A W*6 0X KK W 0
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x818e, f02=» . > " N * ^ ! < n ' ~ + * 0 6 8 * = @ J F " D RRRRRR! LI0X
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x8190, f02=» [ ] * h * i | : j J k | Z l | j m z n o p q r s t u
0x03e238…03e3cc Dummy {f00=0x0013, f01=0x818e, f02=»RRRRRRRRRRRRR L4 ^ F 8 , 4 < : L < > l @ | 6 D J F " D L90X _;0XW 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R LX 7
0x03e3cc…03e560 Dummy {f00=0x0013, f01=0x818e, f02=» ( * : J l " | J F " D 7;7?R L1X L?R L0X T b ! L LA _ LWO0X ) L R?R0X K
0x03e560…03e6f4 (1, 78) Dummy {f00=0x0014, f01=0x8190, f02=» / 2 6 & : 8 > @ J @ H J F " D ?RI H L L L0X S 0X P 0R Q L4 0X R<R LG! Lq! Lm L0 l H $ J $ O R U
0x03e6f4…03e888 Dummy {f00=0x0014, f01=0x8190, f02=» ~ J F " D @X ( 1X FW ! L{ R L0X 1X F H 0X L6 0X K W 0X K . ^ n ~ | h h
0x03e888…03ea1c Dummy {f00=0x0014, f01=0x8190, f02=» | ( J F " D W 0X K $ R<R L8R2 RRRRRR_8 R- L L! L L0X 0X 2 RR 8 (
0x03ea1c…03ebb0 Dummy {f00=0x0014, f01=0x8190, f02=» J F " D R L4 ! L A ! L ?R 0X 0X ! L ?R4 1X F4 * L0X " $ p . # . &
0x03ebb0…03ed44 Dummy {f00=0x0014, f01=0x8190, f02=» 0X K W 0X K W 0X K $ R2 RRR_. R v D 4 L . F O V U . f X v ^ . a e j l t $ v { J F
0x03ed44…03eed8 Dummy {f00=0x0014, f01=0xc074, f02=» 2 . , H/ I H. L0X 1X F 0X K/ R 4 4 ( ^@ p X v ^ . a e j l t $ v { J F
0x03eed8…03f06c Dummy {f00=0x0014, f01=0x0190, f02=» 8 H IDENT RGFRMT TRA 4.2 83-10-04 F1 O1111 821005 NJ FMSTYR FRMTSP FRMXSP @ $$$TRAF b $ FMSTYR FRMTSPF FRMXSP t T:ATTFF
0x03f06c…03f200 Dummy {f00=0x0014, f01=0x0190, f02=»" 7 " ? " B " M ( " R 6 " [ D " f R " k ` " n " | " " " " " " " " v "
0x03f200…03f394 (1, 79) Dummy {f00=0x0014, f01=0x0190, f02=» " , " , " , " , . " , < " . J " 5 X " = f ( t 4 & & HOVEDBOG $ $ & REGKONTONR
0x03f394…03f528 Dummy {f00=0x0014, f01=0x0190, f02=»& & P XXXXXXXXE-XX " < & Q L XXXXXXE-XXXX ` " | & R XXXXXXE-XXXX " ( 4 & &
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=» & NR $ ( & 8 BET-ART F $ ^ & n & S | XXXXXXE-XXXX " & T XX " & X
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x018e, f02=» & REGKONTONR $ 2 & B LEVERAND P $ h NR x $ & YDELSESMODTG $ & & U XXXXXXXXE-
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x0190, f02=» " ( ( 0 E < & L & Z 99 j " | NORMALPOSTX $ & M/P-NR $ M & ! REGKONTONR $
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x018e, f02=» & # HOVEDBOG $ #M . $ M > & N & & j $ M x & $ M & $ BKON $ $M & $ M &
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x018e, f02=» & & M ' 99 " " ' M 4 ( NORMALPOST D $ (M ` $ M p & ) REGKONTONR $ )M & $ M & & M & *
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=» & & $ M ( 0 + j < & L & *M Z , 99 j " , M | & DEBITORINDB $ D & & - CPR/CIR/NR $ -D &
0x03fea0…040034 (1, 80) Dummy {f00=0x0014, f01=0x0190, f02=» & & 0 DEBITORN " $ 0 : 1 POST. J $ 1 ` $ p & & & $ & 2 ]R $ 2 & $
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=» DEB $ 4 & 5 BFO , $ 5 @ & P $ ^ $ n & ~ 6 XX " 6 $ ( 7 m & & ' 8 99
0x0401c8…04035c Dummy {f00=0x0014, f01=0x018e, f02=» & : BET-ART/ $ :S & & 6 $ S D & M T ; XX f " ; x & ; & & < DEBITORS $ < = POST. $ = $
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=» x & $ ] & & & BFO 4 & F $ F T $ F d & t > XX " > $ ( ? " & @ 99 " @
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=» $ S & $ S " & 2 & @ $ S N ( ^ B J j & z & S C 99 " C S D BRILLEO $ DS E POST. $ ES
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=» H YDELSESMODTP $ HS & 0 $ S > $ S N $ S ^ & n & S | & I HOVEDBOG $ IS $ S & & & $ S
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=»BFOO $ KS & L MTBO * $ LS > & N $ S $ S l $ S | $ S $ S ( M & N 99 " N S O PRIMO
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x018e, f02=» $ S & $ S ( & 8 $ S F & V & d $ S r ( R B & & S S 99 " S S T REMITTERING $ TS
0x040b40…040cd4 (1, 81) Dummy {f00=0x0015, f01=0x0190, f02=» $ S $ S & ( & S 6 & F W REMITTERING T $ WS p $ S & & & $ S & X FAKTNR FAKTDATO $ XS
0x040cd4…040e68 Dummy {f00=0x0015, f01=0x0190, f02=»& Z TXTO $ ZS & 0 $ S > $ S N $ S ^ $ S n ( ~ [ J & & S 99 " S ] REMITTERING $ ]S
0x040e68…040ffc Dummy {f00=0x0015, f01=0x018e, f02=»RAND $ `S & a YDELSESMODTG * $ aS F & V $ S d $ S t $ S & & S & b REMITTERING $ bS $ S &
0x040ffc…041190 Dummy {f00=0x0015, f01=0x0190, f02=» $ S & d LEVKONTO & $ dS > & N e TXTO $ eS p & $ S & $ S $ S $ S $ S ( f 4
0x041190…041324 Dummy {f00=0x0015, f01=0x0190, f02=» hP & $ P & * $ P 8 & H i CPR/CIR/NR V $ iP p & $ P & j XXXXXXE-XXXX " j & j & j $
0x041324…0414b8 Dummy {f00=0x0015, f01=0x0190, f02=» n EJ EDB $ n $ " & 2 o TNR @ $ o T p KONTONRE d $ p | & & L q XXX " q & N r XXXXXXXXE-XX " r
0x0414b8…04164c Dummy {f00=0x0015, f01=0x0190, f02=» $ t & $ & Y . u XXXXXXXXXX @ " u Z & u j & u x $ ( v I & w 99 " w x RATE-P]LIGN $ x
0x04164c…0417e0 Dummy {f00=0x0015, f01=0x0190, f02=»CIR/NR $ { & | LBNR ART , $ | D & T } ]R b $ } t & $ $ $ $ $ & $ &
0x0417e0…041974 (1, 82) Dummy {f00=0x0016, f01=0x0190, f02=»TAL/ $ & $ * $ : $ J & Z OPK-KODE h $ & P]L- $ DATO $ & $ $
0x041974…041b08 Dummy {f00=0x0016, f01=0x018e, f02=» $ & DEBITORN ( $ @ NR P $ b & r CPR/CIR/NR $ & LBNR ART $ & ]R $
0x041b08…041c9c Dummy {f00=0x0016, f01=0x0190, f02=» $ $ & $ RATE 2 $ F NR V $ h & x RATE $ ANTAL/ $ & $ $ $
0x041c9c…041e30 Dummy {f00=0x0016, f01=0x018e, f02=» & [NDR-/ $ 0 KODE @ $ T & d $ r $ $ $ ( & & (
0x041e30…041fc4 Dummy {f00=0x0016, f01=0x018e, f02=» ZZZZZVZZ9,99+ " " $ 2 ( B N & ^ & Z l B ~ " ( VAL $ & & R (
0x041fc4…042158 Dummy {f00=0x0016, f01=0x0190, f02=» $ A ( & 0 XXXXXXXXE-XX D " ` ( p | & XXXXXXE-XXXX " ( & XX
0x042158…0422ec Dummy {f00=0x0016, f01=0x0190, f02=» & TTTTTTTVTTX,XX- " > ( N Z & j XXVXXVXX ~ " ( & XXVXXVXX " (
0x0422ec…042480 Dummy {f00=0x0016, f01=0x0190, f02=» " ! ( ! ! $ & ! 4 X ! H " ! Z ( ! j ! v & @ ! X ! " ! ( ! , ! & ! XX ! " !
0x042480…042614 (1, 83) Dummy {f00=0x0016, f01=0x0190, f02=» X ! " ! " ( " " , & " < XXXXXXE-XXXX " P " " l ( " | " & " XX " " " ( " " & ! " TT
0x042614…0427a8 Dummy {f00=0x0016, f01=0x0190, f02=» TTTTTTTTTX # " " # ( # . # : & # # J TTTX # ^ " # # r ( # # & # # TTTX # " # # ( # # & $ #
0x0427a8…04293c Dummy {f00=0x0016, f01=0x0190, f02=» XXVXXVXX $ " ' $ ( $ , $ 8 & . % $ H X $ " % $ n ( $ ~ $ & 0 # $ TTX $ " # $ ( $ $ & $
0x04293c…042ad0 Dummy {f00=0x0016, f01=0x0190, f02=» $ & % X % " % 2 ( % B % N & # % ^ X % r " % ( % % & $ % XX % " $ % ( % % &
0x042ad0…042c64 Dummy {f00=0x0016, f01=0x0190, f02=»" % ( & & & & * X & > " & P ( & ` & l & & | XXVXXVXX & " & ( & & & & XX & " &
0x042c64…042df8 Dummy {f00=0x0016, f01=0x0190, f02=» TTTTTTTVTTX,XX- & " ' ( ' * ' 6 & ( ' F XXVXXVXX ' Z " ' r ( ' ' & ) & ' XX ' " & ' ( ' ' & + ( '
0x042df8…042f8c Dummy {f00=0x0016, f01=0x0190, f02=» ' & - * ( XXVXXVXX ( $ " * ( < ( ( L ( X & . % ( h X ( | " % ( ( ( ( & / ( TTTTTTTVTTX,XX- ( " ( ( (
0x042f8c…043120 Dummy {f00=0x0016, f01=0x0190, f02=» " ) ( ) ) & B ) 0 XXXXXXXXXX ) D " ) ^ ( ) n ) z & C ' ) TTTTVTTX,XX- ) " ' ) ( ) # ) & ) & ) &
0x043120…0432b4 (1, 84) Dummy {f00=0x0016, f01=0x0190, f02=» ) $ ' * & * BFO * & $ ' * : & * J $ ' * X $ ' * h $ ' * x $ ' * & * PER FRA PER TIL * $ ' * & * $ ' * $ ' * (
0x0432b4…043448 Dummy {f00=0x0016, f01=0x0190, f02=» OMR * $ ' + & + A-ADR/ + , $ ' + B & + R BFO + ` $ ' + t & + $ ' + $ ' + $ ' + $ ' + & + PER FRA PER TIL + $ '
0x043448…0435dc Dummy {f00=0x0016, f01=0x0190, f02=» 7 + & , 99 , " ' , , RATE-P]LIGN , < $ ' , X SIDE , h $ ' , ~ & 2 , & 2 , ADM-KOD] , $ ' , & , ADM-NR , $ ' ,
0x0435dc…043770 Dummy {f00=0x0016, f01=0x0190, f02=»$ ' , $ ' - & - RENTEFRIT - , $ ' - F $ ' - V & - f OMR - t $ ' - & - [NDR-/ - $ ' - TYP - $ ' - & - $ ' -
0x043770…043904 Dummy {f00=0x0016, f01=0x0190, f02=» RATE-[NDR - $ ' . SIDE . $ $ ' . : & 2 . J & 2 . X FORF./ . f $ ' . | DATO . $ ' . & . RET.IND. . $ . ! DATO . $ !' .
0x043904…043a98 Dummy {f00=0x0016, f01=0x0190, f02=»$ ' . & / $ ADM-KOD. / $ $' / 4 & / D % ADM-NR / R $ %' / h & / x & ADR / $ &' / ' REF-NR. / $ '' / & / $ ' / $ ' / $ '
0x043a98…043c2c Dummy {f00=0x0016, f01=0x0190, f02=»)' / & 0 * [NDR-/ 0 $ *' 0 . + TYP 0 > $ +' 0 R & 0 b $ ' 0 p $ ' 0 $ ' 0 $ ' 0 ( 0 , 0 & 0 - FEJL FORMATN 0 $ -' 0
0x043c2c…043dc0 Dummy {f00=0x0016, f01=0x0190, f02=»KIV/ 0 $ /' 1 0 KONTONRR 1 $ 0' 1 4 & 1 D & KONTROLSUM 1 R & 1 j 1 LINIES 1 x $ 1O 1 & 1 & O 1 & T 1 2 XXXXXXXXE-XX 1 " 2 1 & T 1
0x043dc0…043f54 (1, 85) Dummy {f00=0x0017, f01=0x0190, f02=» 5 O 1 & 2 & 2 & 2 ( & 2 6 & 2 D & 2 R & 4 2 ` & 2 p & GL. SALDOM 2 ~ & 2 6 LINIE NR 2 $ 6L 2 & CHECKD 2 & 2 & p 2 7
0x043f54…0440e8 Dummy {f00=0x0017, f01=0x0190, f02=» 2 $ 3 & 3 & 3 ( : KONTOKORTT 3 6 $ : 3 P & 3 ` ; LINIE NR 3 n $ ; 3 & 3 & 3 < XX 3 " < 3 $ 3 ( 3 = 3 &
0x0440e8…04427c Dummy {f00=0x0017, f01=0x40a4, f02=» $ >A 3 & 4 & T 4 ? XX 4 0 " ? 4 B $ 4 R ( 4 b 1XF 4 1XF 4 1XF 4 4 n 4 @ 4 & 3 < XX 3 " < 3 $ 3 ( 3 = 3 &
0x04427c…044410 Dummy {f00=0x0017, f01=0x8190, f02=» 8 H IDENT DIV461 TRA 4.2 83-10-04 F1 O1111 831003 EV > : FRMTGP FRMTJT FRMTKT FRMTKV FRMTTA FRMTVO FRMXGP @ & " FRMXJTV FRMXKTA FRMXTA3 FRMXVOF $$$TRA B > FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTA FRMTVO 8 4 F
0x044410…0445a4 Dummy {f00=0x0017, f01=0x8190, f02=» S T 0 @ P $ ` & p + - % 2 4 ' 9 ; M @ B ^ J F " D 0R
0x0445a4…044738 Dummy {f00=0x0017, f01=0x818e, f02=» " " " & " 4 " B " P " ^ " l " z " " " " " " " " "
0x044738…0448cc Dummy {f00=0x0017, f01=0x8190, f02=» $ ( ( 4 $ 4 D $ > T & d $ D r & & X " & $ @ $ F & (
0x0448cc…044a60 Dummy {f00=0x0017, f01=0x8190, f02=» & & 99 " . & > ZZ.ZZ.ZZ L " d BZZ t " $ F & XX " & ZZZ " #
0x044a60…044bf4 (1, 86) Dummy {f00=0x0017, f01=0x8190, f02=»$ D# & & 99 * " < & L ZZ.ZZ.ZZ Z " r & $ F BBZZ " BBZZ " BBZZ "
0x044bf4…044d88 Dummy {f00=0x0017, f01=0x8190, f02=»( $ 4 $ 6 * & : $ 7 H & X $ H f ( v $ ( $ 4 $ > B999 " &
0x044d88…044f1c Dummy {f00=0x0017, f01=0x8190, f02=» $ ( Y , & < & J & X 99B f " z $ $ Q B*.***.***.**9.99- " B*.***.***.**9.99- "
0x044f1c…0450b0 Dummy {f00=0x0017, f01=0x8190, f02=» # XXB " # $ XXB ( " $ < % XB L " % ^ & XX.XX.XXB* n " & ' XXB " ' & ( XB " ( ) XXXXXXE-XXXX " )
0x0450b0…045244 Dummy {f00=0x0017, f01=0x8190, f02=» , Z.ZZZ.ZZX.XXBB " , ' " & 2 - Z.ZZZ.ZZX.XXE-B9 @ " - ' ` . XXB p " . $ / XB " / 0 XX.XX.XXB. " 0 ( 1 XX.XX.XXB. " 1 )
0x045244…0453d8 Dummy {f00=0x0017, f01=0x8190, f02=» & & 5 99B $ " 5 * 8 $ * H ( X 6 d $ >* t $ @* $ D* ( 7 & & 8 ZZ " 8 9 BZ
0x0453d8…04556c Dummy {f00=0x0017, f01=0x8190, f02=»XXXX " < = BXX " = 0 ( @ > L ? B999E-999E-99E-99B " ? ~ ( @ & A XE-XXE-XXE-XXB " A & &
0x04556c…045700 Dummy {f00=0x0017, f01=0x8190, f02=» B*.***.***.**9.99- " E & , ( : F F G BBZZZE-ZZZE-ZZE-ZZ V " G x ( H & I ZZ.ZZ.ZZ " I J BZZZZZZZZZZ- " J !
0x045700…045894 (1, 87) Dummy {f00=0x0017, f01=0x8190, f02=» N BZZ.ZZ.ZZZ " N & " O BZZ.ZZ.ZZZ 2 " O ' L P BZ " P % n ( ~ Q & % & % R BBXE-XXE-XXE-XXB " R & &
0x045894…045a28 Dummy {f00=0x0017, f01=0x8190, f02=»XXE-XXXB " U ( * V , " W < " Y J " ] X " _ f " a t " p " v " " { " } " " " " "
0x045a28…045bbc Dummy {f00=0x0017, f01=0x8190, f02=» $ Z ( Z $ $ 4 & D [ KONTOKORTX R $ [ l & | B*.***.***.**9.99- " ( ] & ^ START SUM* $
0x045bbc…045d50 Dummy {f00=0x0017, f01=0x8190, f02=»( b K & & * ( & * 6 & D & VERSNR R c DAGS-DATO f $ cE & d POST-DATO $ dE & e MASKIN NR $ eE f
0x045d50…045ee4 Dummy {f00=0x0017, f01=0x8190, f02=» h 99E-99E-99 " h E & ( i 99E-99E-99 6 " i E P & ` j 999R n " j E & k ***99 " k E & & & 6 2 0 l *VERSURKONTONR K
0x045ee4…046078 Dummy {f00=0x0017, f01=0x8190, f02=»9E-99999E-99BB " n E o ZZZ.ZZZ.ZZ9.ZZ-B & " o E F & o V & d & * r ( p $ qE ( q & & * & * & r
0x046078…04620c Dummy {f00=0x0017, f01=0x8190, f02=» DEBET $ tE & u KREDIT . $ uE D ( T v ` $ wE p ( w & x ZZ " x E " y BBZZZ.ZZZ.ZZZ.ZZ9.99-O " y S "
0x04620c…0463a0 Dummy {f00=0x0017, f01=0x818e, f02=» } ~ SLUT TESTT $ ~ , ( < H & X DISK SKIFT f $ ( & $ ( $ > BZZZ
0x0463a0…046534 (1, 88) Dummy {f00=0x0017, f01=0x818e, f02=» " ( & 0 99BR > " R & b 99 p " ( $ ( & & DIVERSE FORMATER
0x046534…0466c8 Dummy {f00=0x0017, f01=0x8190, f02=» " " " " . " < " J " X " f " t " " " " " " " ( $ I
0x0466c8…04685c Dummy {f00=0x0017, f01=0x8190, f02=» ~ " & B**B & " : $ @ J $ Z ( j v $ ( $ & ******E-**** " & *
0x04685c…0469f0 Dummy {f00=0x0017, f01=0x818e, f02=» & XX.XXPPO " & BPPXXB 6 " # L & ! ZZZZZZZZZZB* l " ! & & BBBZZ.ZZ.ZZBBR " & ZZZZZ999.99B
0x0469f0…046b84 Dummy {f00=0x0017, f01=0x8190, f02=» v " & & & ( 4 @ $ P ( ` l & + | & & 999B " $ B99.99.99* " &
0x046b84…046d18 Dummy {f00=0x0017, f01=0x8190, f02=» & * $ ( " . $ > $ N $ ^ ( n z $ XX.S " $ $ ( $
0x046d18…046eac Dummy {f00=0x0017, f01=0x8190, f02=» $ B99.99.99Z " . & > 99 L " ^ ( n z B999.99999.999 " B*.***.***.**9.99- " & &
0x046eac…047040 Dummy {f00=0x0017, f01=0x8190, f02=» 99BS " ( 0 < $ L B*.***.***.**9.99- " ~ & & ( B99B " & &
0x047040…0471d4 (1, 89) Dummy {f00=0x0018, f01=0x8190, f02=»9- x " & & ( $ < 6 ( F R & + b & p 999B ~ " $ B99.99.99* " BXX. " (
0x0471d4…047368 Dummy {f00=0x0018, f01=0x8190, f02=» BXBS " ( ( 4 & D XX T " f & v XX " E-9999999999B9 " XX.XXPPO " &
0x047368…0474fc Dummy {f00=0x0018, f01=0x818e, f02=» & & ****9 " 6 & F ****9 T " j & z & * & ( * " " " " "
0x0474fc…047690 Dummy {f00=0x0018, f01=0x8190, f02=» " " " " $ . ( < H $ X ( h t & + & ARKIV $ $ F & & *.***.***.**
0x047690…047824 Dummy {f00=0x0018, f01=0x8190, f02=» + $ ! ( ! ! & $ ! 6 & ! F & 0 ! T $ ! b ( ! r ! ~ $ ! ( ! ! $ ! & ! & 0 ! & 0 ! & 0 ! & 0
0x047824…0479b8 Dummy {f00=0x0018, f01=0x8190, f02=» ! B99.99.99B " " " $ ****9 " 4 " " J -E " Z $ " l $ " | & " & " *.***.***.**9,99+- " " " & " ( " " $
0x0479b8…047b4c Dummy {f00=0x0018, f01=0x8190, f02=» " BBZ999 # " # BB****99 # 0 " # H & - # X $ - # h & # x & # & # & # & # & 2 # & * # & * # & * # & 4 #
0x047b4c…047ce0 Dummy {f00=0x0018, f01=0x8190, f02=» DEBET # $ E $ & $ & KREDIT $ 4 $ E $ J ( $ Z $ f $ E $ v ( $ $ & 2 $ XXXE-XXXXXE-XX $ " $ & $ 99 $ " $
0x047ce0…047e74 (1, 90) Dummy {f00=0x0018, f01=0x8190, f02=»Z.ZZ9.99- $ | " y T % ( % $ % 0 $ % @ ( % P % & 2 % l ZZ % z " % " BBZZZ.ZZZ.ZZZ.ZZ9.99- % " % " BBZZZ.ZZZ.ZZZ.ZZ9.99- % " T % "
0x047e74…048008 Dummy {f00=0x0018, f01=0x818e, f02=» % & TOTALS & " BBZZZ.ZZZ.ZZZ.ZZ9.99- & " & B " BBZZZ.ZZZ.ZZZ.ZZ9.99- & R " & x " BBZZZ.ZZZ.ZZZ.ZZ9.99- & " & & & & 4 & & SUPL & " BBZZZ.ZZZ.ZZZ.ZZ9.99
0x048008…04819c Dummy {f00=0x0018, f01=0x8190, f02=» & ' & 2 ' & KORL ' & ' 2 " BBZZZ.ZZZ.ZZZ.ZZ9.99- ' @ " L ' f " BBZZZ.ZZZ.ZZZ.ZZ9.99- ' x " L ' ( ' ' $ ' ( ' 4 ' & 4 '
0x04819c…048330 Dummy {f00=0x0018, f01=0x818e, f02=» ' & ( & 2 ( & BEV ( & " BBZZZ.ZZZ.ZZZ.ZZ9.99- ( 8 " ( ^ " BBZZZ.ZZZ.ZZZ.ZZ9.99- ( n " ( " BBZZZ.ZZZ.ZZZ.ZZ9.99- ( " ( & ( & 2 ( & ULTIMO ( "
0x048330…0484c4 Dummy {f00=0x0018, f01=0x8190, f02=» ( & ) & ) 999B ) $ " L ) 8 B99.99.99. ) H " L ) b & ) r BEHOLDNINGST[LLERE ) $ L ) & ) & ) & ) & ) & 2 ) & * )
0x0484c4…048658 Dummy {f00=0x0018, f01=0x8190, f02=» BEV.PERIODET ) $ L * & * ( SALDO * 6 $ L * L & * ( * j * v $ L * ( * * & 2 * ZZ * " L * & * XXXE-XXXXXE-XX *
0x048658…0487ec Dummy {f00=0x0018, f01=0x8190, f02=» ( * + & 2 + & + * ( + 8 + D & + T $ + b ( + r + ~ & $ + & < + & < + & < + & ] + & N + & N + & N + & E +
0x0487ec…048980 Dummy {f00=0x0018, f01=0x8190, f02=» + & + , 99E-99E-99 , " , 2 & , B $ , P & , ` B*.***.***.**9E,99 , n " , & * , & , ZZ999999 , " , & , ( , ,
0x048980…048b14 (1, 91) Dummy {f00=0x0018, f01=0x8190, f02=» # BBZZZ.ZZZ.ZZZ.ZZ9.99- , " # - " ( - 2 $ - > $ - N $ - ^ ( - n * % - z " - " - " & - " & - " - " - " - " - " -
0x048b14…048ca8 Dummy {f00=0x0018, f01=0x8190, f02=» - " * . " , . " 2 . $ " ( . 2 " ) . @ " ( . N " ) . " ) . j " * . x " + . " . " . " . " . " . " . " . " . "
0x048ca8…048e3c Dummy {f00=0x0018, f01=0x8190, f02=» ( / * / $ / $ < / 0 ( / @ + / L $ / $ < / l ( / | , / $ - / ( / - / $ / $ / & / . XX.XXPPZ /
0x048e3c…048fd0 Dummy {f00=0x0018, f01=0x8190, f02=» 1 BXXX / " 1 # 0 $ # 0 ( 0 0 2 0 < $ 3# 0 L ( 0 3 0 h $ # 0 x $ # 0 & # 0 4 XX.XXPPO 0 " 4 0 & 0 & 0 & 0 5 B**O
0x048fd0…049164 Dummy {f00=0x0018, f01=0x818e, f02=» ( 1 8 1 $ : 1 ( 1 0 9 1 < $ ; 1 L ( 1 : 1 h $ A 1 x & P] 1 $ F] 1 ( 1 ; 1 $ A] 1 & [N 1 $ FN 1 ( 1 <
0x049164…0492f8 Dummy {f00=0x0018, f01=0x8190, f02=» " > N 2 ? 9I 2 " ? N 2 & & 2 6 @ 99BO 2 D " @ N 2 X ( 2 h A 2 t & + 2 & 2 B 999B 2 " B N 2 & * 2 C B99.99.99. 2 " C N 2 & 2
0x0492f8…04948c Dummy {f00=0x0018, f01=0x818e, f02=» 2 H B**E- 3 " H 3 I ** 3 . " I 3 @ J BXXX 3 P " J # 3 d $ Q# 3 t K B*.***.***.**9.99- 3 " K # 3 & 3 L 99BO 3 " L # 3 ( 3 * M 3 "
0x04948c…049620 Dummy {f00=0x0018, f01=0x8190, f02=» & 4 Q *.***.***.**9.99-- 4 " Q # 4 4 & 4 D R TRP 4 R $ R# 4 f ( 4 v * S 4 " 4 ( 4 * T 4 " U 4 " V 4 " V 4 " Y 4 " [ 4 "
0x049620…0497b4 (1, 92) Dummy {f00=0x0019, f01=0x8190, f02=» V 4 $ W# 5 ( 5 W 5 ( & 0 5 8 & 5 F X *.***.***.**9.99+B 5 T " X # 5 v $ ]# 5 ( 5 Y 5 & + 5 Z Z.ZZZ.ZZZ.ZZ9.99-B 5 " Z 5 & 5 ( 5
0x0497b4…049948 Dummy {f00=0x0019, f01=0xc0ea, f02=» & 6 & 6 & 6 & 6 . & 6 < & 6 J ( 6 X * ^ 6 d " 6 t ( 6 * _ 6 " 6 ( 6 @R F 4 0R F 4 F 6 M 6 @ 6
0x049948…049adc Dummy {f00=0x0019, f01=0x018e, f02=» : H IDENT SUBAPL TRA 4.2 83-10-04 F1 O1111 03.02.XXX.1 B > CLRSW SELTR SETDEB SETKRE SPAPPL SPCHK1 SPCHK2 SPCHK3 B . * SPCHK4B SPCHK5A SPCHK63 SPCHK7F SPTCHK $$$TRAS > : CLRSW " SELTR 2 SETDEB3 SETKRES SPAPPL. SPCHK1
0x049adc…049c70 Dummy {f00=0x0019, f01=0x0190, f02=» h , 0 > 0 P 0 b 0 t 3 6 =0 @0 J F " D % LD% L: L L I ! L* Lb L L
0x049c70…049e04 Dummy {f00=0x0019, f01=0x0190, f02=» u0 1 y0 1 J F " D @L ! L L 4 L Lb # L % L Lb # L % L W . | 0 0 0 0
0x049e04…049f98 Dummy {f00=0x0019, f01=0x0190, f02=» 0 $ 0 4 F J F " D L" L 2 % L " 3 $ 4 4 L4 4 R ! L L X 0 T
0x049f98…04a12c Dummy {f00=0x0019, f01=0x0190, f02=» K0 ! P0 " W ( ` d : n d L J F " D @J, ! L4% L/# L*_*! L#_1 L =W L" _MJ PW 4 ^ Y
0x04a12c…04a2c0 Dummy {f00=0x0019, f01=0x0190, f02=» . > N ^ n ~
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0019, f01=0x0190, f02=» . > N ^ n A ~ O `
0x04a454…04a5e8 Dummy {f00=0x0019, f01=0x0190, f02=» r . > N ^ n ~
0x04a5e8…04a77c Dummy {f00=0x0019, f01=0x0190, f02=» / E J V . > N ^ n ~ `
0x04a77c…04a910 Dummy {f00=0x0019, f01=0x0190, f02=» " # J F " D # L*H @ , W H @ , ( , ?R2 rRRRRRRRRRRRRRR J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR l ) - 4 J F " D RRRRRRRRRRRRRRRRRRRR
0x04a910…04aaa4 Dummy {f00=0x0019, f01=0x0190, f02=» b h l " p 4 {0 R F J F " D @ ?R6 ?R$ A _ L?R L?R % L)! L ! L _ A LR A 0 2
0x04aaa4…04ac38 Dummy {f00=0x0019, f01=0x0190, f02=» L9R@ ?R@ ?R ?R L8R L8R I # L"# L W # L % L W I 0 9 J n ~ 0 I
0x04ac38…04adcc Dummy {f00=0x0019, f01=0x018e, f02=» $ 0 Q , 0 Q > 0 R P ; b J F " D A R L?R@ ) L A ) L ! Lj! Lf $b N L ) + L t U ^ b q0
0x04adcc…04af60 Dummy {f00=0x0019, f01=0x018e, f02=» & 6 H Z J F " D L W I L?R?R! L ! L ?R b b b b b b j 0
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0019, f01=0x0190, f02=» J F " D =R L?R % L L?R?R % L Lb L" ?R L?R h x
0x04b0f4…04b288 Dummy {f00=0x0019, f01=0x0190, f02=» < > @ J F " D L:R! L ! L L?R?R! L ! L L?R?R ! L ! L L?R?R % L L?R? . F0 ! | J L N W0 [ ] _
0x04b288…04b41c Dummy {f00=0x0019, f01=0x0190, f02=»R?RH % L L?R?R % L ! L L?R?R # L % L ~ < L ^ 0 9 n 0 Q
0x04b41c…04b5b0 Dummy {f00=0x0019, f01=0x0190, f02=» L?R # L % L ?R L?R L?R L L:R?R L % L L:R D V f x 0 0 0
0x04b5b0…04b744 Dummy {f00=0x0019, f01=0x0190, f02=» , < d N # ` % r ( + . 2 6 8 = J F " D L?R
0x04b744…04b8d8 Dummy {f00=0x0019, f01=0x0190, f02=» M P R U . W @ Z P ] b ` t d h j r0 L x0 2 J F " D @ R<R?R L8R L8R L?R L
0x04b8d8…04ba6c Dummy {f00=0x0019, f01=0x018e, f02=» 2 , < L ^ p 0 0 2 J F " D R<R?R L L) L L R<R?R L LZ! L ) L! LA
0x04ba6c…04bc00 Dummy {f00=0x0019, f01=0x0190, f02=» , 0 Q > 0 R P 2 b r J F " D R<R
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0019, f01=0x0190, f02=» 2 D $ V & h ) x , 1 4 $ 7 = 51 ? J F " D R LT R
0x04bd94…04bf28 Dummy {f00=0x0019, f01=0x0190, f02=» S U X . Z @ ] P _ b e0 r y | ~ J F " D @ L?R L?R@ @ L L?R L<R L?R L $ " ?R L?R
0x04bf28…04c0bc Dummy {f00=0x0019, f01=0x0190, f02=» " D % L " ?R L?R L L b b L L 0 N 0 ` r 0 < J F " D L$ L" W L L?R # L
0x04c0bc…04c250 Dummy {f00=0x0019, f01=0x0190, f02=» W LW ! L ` H K0 0 N0 B ^ T a f d x k0 n0 t0 x0 {0 J F " D @LT L L Lb
0x04c250…04c3e4 Dummy {f00=0x0019, f01=0x0190, f02=» 0 0 2 J F " D y % Lr LWm ( WdA W` LW[ LWV LWQ # L LWE LW@H ! L D 0 0 J F
0x04c3e4…04c578 Dummy {f00=0x0019, f01=0x0190, f02=» DEB 0 D $ 0 D 6 H 4 Z 8 l < ~ @ J F " D 4 L L L L4 L L L L4 + 4 ! LJ! L ! L G K
0x04c578…04c70c Dummy {f00=0x0019, f01=0x401e, f02=» @ @ 0 D $ 0 D 6 H 4 Z 8 l < ~ @ J F " D 4 L L L L4 L L L L4 + 4 ! LJ! L ! L G K
0x04c70c…04c8a0 Dummy {f00=0x0019, f01=0x0190, f02=» 8 H IDENT KMDIO TRA 4.2 84-02-03 F1 O1111 840203 EV B > CLEAR8 CRKJ CRVO EDATNR GRASPV LINOPT WCHECK WRITFD @ & " WRITIDD WRITJTA WRITVO4 WTALLYF $$$TRA > : CLEAR8D CRKJA CRVO4 EDATNR + GRASPV0 LINOPT B > W
0x04c8a0…04ca34 (1, 96) Dummy {f00=0x0015, f01=0x0190, f02=»ADEL RAWRITI SPCHK5W SPERR SPLIN8J T:DSC0I T:DSC1W T:EDWR $ T:TESTA T:WAITT WAITF WRITLOB B j & z + 0 A " ( + J F " D H* R H* 4 R @! 0 R LA)!BL
0x04ca34…04cbc8 Dummy {f00=0x0015, f01=0x0190, f02=» J F " D @ ! L I!4H ) L L, L W L , +^ * L a F f ! x 0 J F " D L h $ @!" bM _UbM L bM f A! R LMCT 0
0x04cbc8…04cd5c Dummy {f00=0x0015, f01=0x018e, f02=» 0 C EL_ LbM R LMCT7I + 0 C EL R CLT$$CR @ @! ) 0 P D DISCFEJL V n /0 ~ 30 60 J F " D L L L R 4 @!@ 4 C0 0 E A*@ A 4 @ # L FL# L B
0x04cd5c…04cef0 Dummy {f00=0x0015, f01=0x0190, f02=» n $ q $ J F " D @) L A 4 # L FL_ # L FL_ # L FL_ FL_"4 I 0X 0X I B " HQ $ r ( $ J F " D
0x04cef0…04d084 Dummy {f00=0x0015, f01=0x018e, f02=» & & . ( < H X h & x & ( Z d J F " D 0X 0X 0X 4 I
0x04d084…04d218 Dummy {f00=0x0015, f01=0x0190, f02=» ! ! " % ! * & ! < , ! L 0 ! 4 ! l 9 Z ! | J F " D &@ R LW= R LW5 R LW- R% LW%0X _M R RA R L @ ! A ! G ! K !
0x04d218…04d3ac Dummy {f00=0x0015, f01=0x018e, f02=» z ! 0 " J F " D @ R'W L4 0X 0X R0X 4 I RT 4 I A R R R 0X 0X L " 0 W " n $ " " TRP " " " " $ " "
0x04d3ac…04d540 Dummy {f00=0x0015, f01=0x0190, f02=» " H # 0 # # , # < # N Z # ^ # p # # # J F " D L8# L4 # L: R! L' W10R % L W R LW 0X 0X #
0x04d540…04d6d4 (1, 97) Dummy {f00=0x0015, f01=0x0190, f02=»ANSMISSION # 9 BACKUP $ = j $ ( > $ 8 @ ( $ J J F " D 4 _6 R4 0X 6 W, LW' LW LW LW LW LW RL $ Z F $ I $ N $ $ W j $ X $ g j $
0x04d6d4…04d868 Dummy {f00=0x0015, f01=0x0190, f02=» h @ RL R # L I R R0X $ n ( % , % > % P j % ` % p ( % % % % J F " D ( Lb W ( ( Lb W " $ L a F RL R % L % L I
0x04d868…04d9fc Dummy {f00=0x0015, f01=0x0190, f02=» % & & & ) & ( & & 8 & & F & & T & & b & & p & & ~ & & ( & & 999999 & " & B99999 & " & ( &
0x04d9fc…04db90 Dummy {f00=0x0015, f01=0x0190, f02=» & & ! ' 99 ' " ' * &01 ' : $ ' N 9999 ' ^ " ' r & ' & ' & ' &02 ' $ ' 999999 ' " ' &03
0x04db90…04dd24 Dummy {f00=0x0015, f01=0x4144, f02=»" ' ( ( ( & ( * $ ( < 99 ( L " ( ^ & ( n TTTTTTTTTTTTT9- ( ~ " ( & ( TTTTTTTTTTTTT9 ( " ( ( ( 4 0 . R0X W # L I
0x04dd24…04deb8 Dummy {f00=0x0015, f01=0x8190, f02=» 8 H IDENT RGADM TRA 4.2 83-10-05 F1 O1111 831005 EV B > A5RET1 A5RET2 hADM ADMRET BCKUP CLBEH CLEDB CLEJ LAMPOF @ @ < LAMPONA RGA120A RGADM SKIFT SLUTID1 SOPRD STRTIDV STRTWR , ( TCLOSE TR2GEN WAHEADM WALINEK ZEROB $$$TRAA
0x04deb8…04e04c Dummy {f00=0x0015, f01=0x8190, f02=»D 8 R @ < SOPRD STRTIDT STRTWR TCLOSE l TR2GENC WAHEADE 1 WALINE K ZEROA P D @ A5KONV ABORT ADM600R ASGFILT ASGVOLl BACKUPC CLEAR8A CLSVOL l D @ CNFWRT CONFWRA CONRDXO CRKJR CRVO1hCYK DIVTR EMPTYTW FRMTKV B > FRMXJT F
0x04e04c…04e1e0 Dummy {f00=0x0015, f01=0x818e, f02=»ETDEBA SETKREA SLUTV SPCLRAP SPCLRNR SPINF1A SPLIN8 @ < SUBTOTKhSUM T:ATTFN T:DELAP T:DSC0R T:DSC1R T:EDWRW T:KIM < > : T:WAIT TCONFRA TCONFWA TRPAGES WRITFDS WRITIDS WRITJTS WTALLYK X L
0x04e1e0…04e374 (1, 98) Dummy {f00=0x0016, f01=0x8190, f02=» $ & N * ( + 8 , / H 10 K X 40 K j 80 K | >0 K J F " D A 1XF R2 RRRRRRR_ K( @ A A L1XF R2 RRR_/ L L q L ) L B0 1 H
0x04e374…04e508 Dummy {f00=0x0016, f01=0x8190, f02=» h p i t X * u = : w L J { Z | j } z J F " D @ L L E R R R RLA A R R A L RL_l@ A 1XF R2 RRR_
0x04e508…04e69c Dummy {f00=0x0016, f01=0x8190, f02=»@ @ @ @ @ L L L L0X 0X L R L + L 0 > 0 P 0 b t EJ-EDB T[LLER J F " D L " Q u L y ! L L L R 6
0x04e69c…04e830 Dummy {f00=0x0016, f01=0x818e, f02=» 8 ; KASSE-KONTO >0 A * J F " D y LL L L R "_] L R L L L LA < B J 0 M0 b0 k o0 r VERSUR KONTONR
0x04e830…04e9c4 Dummy {f00=0x0016, f01=0x8190, f02=» H TOTAL A H . 0 O > 0 O P 0 O b t h J F " D L R R L L q L@ E R R R @ 4 4 R ?R
0x04e9c4…04eb58 Dummy {f00=0x0016, f01=0x8190, f02=» 1 0 J J F " D " y L y L_ L L 4 L L D R 0 j &0 | *0 - 20 % 4 1 7 K < J F " D L L " .
0x04eb58…04ecec Dummy {f00=0x0016, f01=0x8190, f02=» L0 P0 T0 " Z0 4 ]0 F J F " D @ L RL R L L LI L L " W X 2 0 2 3
0x04ecec…04ee80 Dummy {f00=0x0016, f01=0x8190, f02=» R R RL R _g R b K J F " D R " _ I / 0 0 ~ 0 !0 00 40 @ K J F " D % L W
0x04ee80…04f014 (1, 99) Dummy {f00=0x0018, f01=0x8190, f02=»SLET SALDO J F " D @R 0X 4 L P 1XFA R6 _.K 1 L W SLET PERIODE ` SUBTOTAL | 0 U 0 U 0 U , ^ *
0x04f014…04f1a8 Dummy {f00=0x0018, f01=0x818e, f02=» * ` 0 < 0 < . 0 < @ 0 < R d 0 % t J F " D " < s L s s R"0X I 6 W s L s L L LE0X L_ * `
0x04f1a8…04f33c Dummy {f00=0x0018, f01=0x8190, f02=» & ' ( $ ) 4 * D + T , Q d - a t . / 0 1 2 3 9 4 d 5
0x04f33c…04f4d0 Dummy {f00=0x0018, f01=0x818e, f02=» ? @ A $ B 4 J F " D d R&0X 0X 4 I 4 LH L 2 #RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR D L O S T U W e X
0x04f4d0…04f664 Dummy {f00=0x0018, f01=0x818e, f02=» & N < $ 0 W 4 X F & V N f J F " D I I VI SA A 1XF R6 DD _ R L s s @ A 1XF R6 _ v 0 I p
0x04f664…04f7f8 Dummy {f00=0x0018, f01=0x8190, f02=» H N 0 8 * 0 : B L 0 n n ( ~ + 20 4 5 7 8 @ :
0x04f7f8…04f98c Dummy {f00=0x0018, f01=0x8190, f02=» EL RL RL RL RL Z C V ( _ 8 d K H e X n j s K z t z { J F " D @RL R6 _ _1?R_5_ I R ? RL DW I R N RL SW RLA @(
0x04f98c…04fb20 Dummy {f00=0x0018, f01=0x8190, f02=» 0 0 0 $ J F " D ?R?R?R?R R!A R6 _ @ ?RH 0I $ L L L ! L 6 GR NR P X Q SUBTOTAL
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x0015, f01=0x8190, f02=» " ' 0 < @ P ` p J F " D LA W A LW L@ A R ?RI ]1XFA A L R2 RRR?R 2 RRRRRRR H
0x04fcb4…04fe48 Dummy {f00=0x0015, f01=0x818e, f02=» # & )0 A 3 X 0 4 x @ 6 L P 90 A ` ; r J F " D RRRR_' R?R R?R R?R AA 1XF R?R R?R R ?R L A 1XF R L?RI %C H X I d K L s D
0x04fe48…04ffdc Dummy {f00=0x0015, f01=0x8190, f02=» 0 @ 0 @ & 8 J F " D L 0R T R P _7! L]W ! L! , L _ J K D G N j J F " D
0x04ffdc…050170 Dummy {f00=0x0015, f01=0x8190, f02=» D @ @ LW H H A _ W C T C T C P @ A 1XF R6 _ A @ I CW R D L T0 ^ D n `0 ~ ~ K J F " D @ S * I , C R L W , S R L $ u R P _6 L D
0x050170…050304 Dummy {f00=0x0015, f01=0x8190, f02=» L@ L( P Q A LW A LI A R R R L L ^ H " X ` h x 0 0 d J F " D 0X R0X R L " 3
0x050304…050498 Dummy {f00=0x0015, f01=0x8190, f02=» W - R 1 Z : $ * = ` : J F " D _ W @ L?RI AH A 1XF R6 11 W/A$ RW)H$&H"# R 0X(K$ R 0X J A D H J Z M P W V
0x050498…05062c Dummy {f00=0x0015, f01=0x8190, f02=» J F " D @0R 0X R0X(0R ?RI A RW @ ?RI A A A L1XF R2 RRR_ @ @ ?R X h < x 0 0 0 X / N 0 p
0x05062c…0507c0 Dummy {f00=0x0015, f01=0x8190, f02=» N 0 R 0 R 0 0 R B ( T r d X t L N
0x0507c0…050954 (1, 101) Dummy {f00=0x001a, f01=0x8190, f02=» SUBTOTAL ( r 0 & TOTAL @ ( ( V + r f / X v 0 2 L 5 < d ? X @ J F " D L _ L R R_% L
0x050954…050ae8 Dummy {f00=0x001a, f01=0x8190, f02=» X S U L X * n p < o L q h ^ u T n { p | J F " D @F R) L ! L 1X F@ 1XF R L W A _ @ W I I I RL R LA W RL@ f
0x050ae8…050c7c Dummy {f00=0x001a, f01=0x8190, f02=» V 8 J F " D L R W H !I LA 1XF R6 _ L W RWX RWT RWP RWL RW $ T r R , ^ * `
0x050c7c…050e10 Dummy {f00=0x001a, f01=0x818e, f02=» 0 0 B ' H T ( F d * ` t , ? . J 2 ` 4 E 6 R : , < ^ J F " D R W RW 4 R
0x050e10…050fa4 Dummy {f00=0x001a, f01=0x8190, f02=» T0 W [ Z d R & l0 W 6 n 8 H r B X t0 W h x n z } J F " D @ R R 0X 4 R 0X L4 H 0X _ A A* R H" EL RME R LMC RM R
0x050fa4…051138 Dummy {f00=0x001a, f01=0x8190, f02=» 0 " 4 D J F " D RL L R%TL T T R T W RL R R RL C ELH" RP R _#H" T 0 n p ^
0x051138…0512cc Dummy {f00=0x001a, f01=0x8190, f02=» 0X 4 0X GK 4 R R LM h > ! & ! 6 # ! H & ! X , ! h / ( ! x < ! J F " D CT C R CT 4 4 A)!BL @) aMFaMF a F LbM 4 A)!BL @) ! B ! H !
0x0512cc…051460 Dummy {f00=0x001a, f01=0x818e, f02=» d " e " g " & h " 6 m " H n " X p " j J F " D @a F a F4 C EL L R L! RL RL RL RLH RL R6 z ( _ " z " " " "
0x051460…0515f4 (1, 102) Dummy {f00=0x001b, f01=0x8190, f02=» " # # # ( # : # J # # l J F " D RL RL R LL5LT L RM L R5 _C R5 _FJ :W RL RLA R T6 S S # ~ @ # 0 # 0 #
0x0515f4…051788 Dummy {f00=0x001b, f01=0x8190, f02=» # $ $ $ . 0 $ > $ P $ b J F " D L R LM ST ! L L h M P R LMSX* RL S R @ 0X W _ RL RL R $ t $ $ $ $
0x051788…05191c Dummy {f00=0x001b, f01=0x818e, f02=» $ & % B % " % . ( % > % J & ) % Z & % j & % x & % & % & % & % & % ( % % & % KONVERTERI
0x05191c…051ab0 Dummy {f00=0x001b, f01=0x818e, f02=» & ? & & & $ & ( & 0 & < 999999 & L " & b B99999 & r " & ( & & SLUTD & $ & 99999 & " & ( &
0x051ab0…051c44 Dummy {f00=0x001b, f01=0x8190, f02=» & " w ' & 1 ' & ' & ( ' 4 ' @ & ' P KLAR ' ^ $ ' r ADM ' $ ' & ' ZZ ' " ' ( ' - ' & '
0x051c44…051dd8 Dummy {f00=0x001b, f01=0x818e, f02=» DAGS-DATON ' $ ( & ( * 99E-99E-99 ( < " ( V & ( f DAG NR ( t $ ( & f ( ZZZ ( " w ( & ( POST-DATO ( $ (
0x051dd8…051f6c Dummy {f00=0x001b, f01=0x8190, f02=» $ ) & ) ! EJ-EDB T[LLER ) $ ! ) > & ) N " NR ) $ " ) n & ) ~ # KONTONRT ) $ # ) & ) & ) & d ) $ ZZZ ) " $ )
0x051f6c…052100 Dummy {f00=0x001b, f01=0x8190, f02=» ' ADM ) $ ' * & * $ ( BEHOLDNINGST[LLERE * 2 $ ( * T & * d ) NR * r $ ) * & * * KONTONRI * $ * * & * + SALDO * $ + * & *
0x052100…052294 (1, 103) Dummy {f00=0x001c, f01=0x8190, f02=» * - ZZZZZZZZE-ZZ + " - + * & + : & + H & + X & + h . TTT.TTT.TTT.TT9.99- + z " . + $ + ( + / * + & + & + 0 ADM +
0x052294…052428 Dummy {f00=0x001c, f01=0x8190, f02=» + 3 SALD0 , $ 3 , & , 0 & , > & , N 4 99999999E-99 , ` " 4 , | & , 5 TTT.TTT.TTT.TT9.99- , " 5 , & , $ , ( , 6 ,
0x052428…0525bc Dummy {f00=0x001c, f01=0x818e, f02=»RK , $ 9 - & - & - ( : 99999999E-99 - : " : - V ( - f ; - r & : - < DISK SKIFT - $ < - & - $ - ( - = - & - >
0x0525bc…052750 Dummy {f00=0x001c, f01=0x818e, f02=» $ @ . & . & . " A ZZ . 0 " A . B & . R & . ` & . n B KONTONRK . | $ B . & . $ t . & . C 99999999E-99 . " C . D BTTT
0x052750…0528e4 Dummy {f00=0x001c, f01=0x8190, f02=» . & / & / ( / $ G + / 0 & / @ & / N H KASSELUKNING / ^ $ H / z & / I BEHOLDNINGST[LLERE / $ I / & / & / & / J SLET PERIO
0x0528e4…052a78 Dummy {f00=0x001c, f01=0x818e, f02=» / M KRE 0 $ M 0 & 0 . N SUBTOTAL 0 < $ N 0 T & 0 d O KVIT 0 r $ O 0 & 0 & 0 & 0 & 0 P BILAG 0 $ P 0 $ 0 (
0x052a78…052c0c Dummy {f00=0x001c, f01=0x8190, f02=» 0 ( 1 T 1 & SP 1 $ & 1 4 & RGE 1 B ( 1 T U / 1 ` & 1 p & 1 ~ V 99 1 " V G 1 W ]BNE KASSERL 1 $ WG 1 & 1 X BBZZZ- 1 " Xq
0x052c0c…052da0 Dummy {f00=0x001c, f01=0x8190, f02=» BBZZZ- 1 " q 2 ] BBZZZ- 2 & " ]q 2 < ^ BBZZZ- 2 L " ^q 2 b _ BBZZZ- 2 r " _q 2 & _ 2 ` BBZZZ- 2 " `q 2 a BBZZZ- 2 " aq 2 b BBZZZ- 2
0x052da0…052f34 (1, 104) Dummy {f00=0x001c, f01=0x8190, f02=» 2 & * 3 & * 3 e EKS.LBNRS 3 $ $ e 3 > & 3 N f XXXXX 3 ` " f 3 v & f 3 g REGKONTONR 3 $ g 3 & l 3 h XXXXXXXXE-XX 3 " h 3 & h 3
0x052f34…0530c8 Dummy {f00=0x001c, f01=0x818e, f02=» & n 3 k TTTTTTTVTTX,XX-E 4 " k 4 2 & k 4 B l DIVERSE 4 P $ l 4 h & o 4 x m XX 4 " m 4 & 4 n TTTTTTTTTTTTX- 4 " n 4 & n 4 $ v 4
0x0530c8…05325c Dummy {f00=0x001c, f01=0x8190, f02=» 4 q EKS.LBNRT 5 $ q 5 " & 5 2 & FRA 5 @ & 5 R r XXXXX 5 d " r 5 z & r 5 & 5 & TIL 5 & 5 s XXXXX 5 " s 5 & s 5 $ v 5
0x05325c…0533f0 Dummy {f00=0x001c, f01=0x8190, f02=» & Z 6 w B 6 " w 6 ( ( 6 8 x ! 6 D & w 6 T & 6 b y KASSE-KONTO 6 p $ y 6 & 6 z KONTONRO 6 $ z 6 & 6 { SALDO 6 $ { 6
0x0533f0…053584 Dummy {f00=0x001c, f01=0x8190, f02=» ~ EJ EDB 6 $ ~ 7 & 7 & ZZZ.ZZZ.ZZZ.ZZ9.99-- 7 4 " 7 X & 7 h & 7 v ZZZ.ZZZ.ZZZ.ZZ9.99-- 7 " 7 $ 7 ( 7 7 & 7 REGNEFUNKTIONZ
0x053584…053718 Dummy {f00=0x001c, f01=0x8190, f02=» 7 & 8 REGNEFUNKTIONX 8 $ 8 8 & 8 H & 8 V TOTAL 8 d $ 8 z & 8 ZZZ.ZZZ.ZZ9.99-. 8 " 8 $ 8 ( 8 8 & 8
0x053718…0538ac Dummy {f00=0x001c, f01=0x8190, f02=»$ 8 & SGRUNDLAG 9 & 9 & & i 9 4 ZZZZZZZZZE-9 9 F " 9 b ( 9 r 9 ~ & 9 CHECKCIFFER9 9 $ 9 BEREGNINGE 9 $ 9 & 9 $
0x0538ac…053a40 Dummy {f00=0x001c, f01=0x818e, f02=» 9 $ : ( : : & & : 6 & : D ZZZZZZZZZE-9 : R " : n & : ~ & : CHECKCIFFER9 : $ : & = : B9BD : " : & :
0x053a40…053bd4 (1, 105) Dummy {f00=0x001c, f01=0xc0e4, f02=» $ ; ***99A ; " ; * & - ; : & ; H ***99A ; Z " ; p ( ; > : 8 LLXL _ RL R T R T L RP L RLW 4 RM 4 ; 4 ; @ ; " : & :
0x053bd4…053d68 Dummy {f00=0x001c, f01=0x8190, f02=» : H IDENT RGSUBS TRA 4.2 83-10-04 F1 O1111 03.02.XXX.1 > : CYCLRhCYK CYKINT DIVTR ENTER FMTNXT KKCH KKTRP KORT B & " KVITR LSTINTT MODP2 SUBTOT-hSUM $$$TRAC @ < CYCLR hCYK [ CYKINTS # DIVTR ENTER FMTNXTX KKCH @ < K
0x053d68…053efc Dummy {f00=0x001c, f01=0x8190, f02=»TKV} FRMXKT FRMXSPU FRMXTAF FRMXVOK GRASPVO LINOPTM B > SETDEBC SETKREC SLUTC SPCHK5T SPCLRAY SPERR SPINF1M SPLIN8 < > : T:DSC0} T:DSC1 T:EDWRU T:ERASF T:TESTK T:WAITO WCHECKM WRITJTC WRITVOC WTALLYS 0 C 0 C
0x053efc…054090 Dummy {f00=0x001c, f01=0x818e, f02=»R_ H A 0R P @ H B D * , H > < I L K } ^ P & n S Y ~ V 2 `0 Y b d f 4 j 0 ~ . J F " D @
0x054090…054224 Dummy {f00=0x001c, f01=0x8190, f02=» 2 4 $ . 4 : D 0 T d 8 t 0 J F " D H H 0X @ R RH ^H [) LW R 0X 40X R 0X 0X R0X P 0R 0X :
0x054224…0543b8 Dummy {f00=0x001c, f01=0x8190, f02=»0 $ 0 $ 0 $ J F " D Y W 0X ! L L, L6 L: R0X R 0X L4 - L L 0 0 ~ 0 0 0 0 0 0 5
0x0543b8…05454c Dummy {f00=0x001c, f01=0x8190, f02=» J h > i l K 0 n B p @ R s b J F " D @L R@ ) L R 4 4 H #I I H I RL L R R L@ 4 4 r $
0x05454c…0546e0 Dummy {f00=0x001c, f01=0x8190, f02=»Ln R L@ We( K )A R LWQ j $ ( 8 J l ~ $ J F " D RTR RTNK ( L, LW=( R LW.( R LW ( RT W RT @
0x0546e0…054874 (1, 106) Dummy {f00=0x001c, f01=0x8190, f02=» 4 4 ( ! L ! L ! L ( z C 8 Q J W w C l z CYKLE ~ | # J F " D @ ! L ( ! L R 4 I 6 * MWW I I A L L RW W SL
0x054874…054a08 Dummy {f00=0x001c, f01=0x818e, f02=»L RW W H I A R0X RWgWj RWaH LWY | 0 : L : 2 l TOTAL | 4 0 > 0 < J F "
0x054a08…054b9c Dummy {f00=0x001c, f01=0x8190, f02=» 6 , ( * [ 8 / H J F " D RW L R2 RR0X RW W 4 4 H I R 4 R4 A A H X T0 W0 Z0 ]0 `0 b
0x054b9c…054d30 Dummy {f00=0x001c, f01=0x8190, f02=»&@ @ _O% L T 0 & $ 4 D 0 T 0 f J F " D L R P A I @ 4 L L L L@ x 0 0 L B
0x054d30…054ec4 Dummy {f00=0x001c, f01=0x8190, f02=» J F " D @ @ @ 0X 4 I 5I A A L R R LW 0X L R R0X @ @ L R SUBTOTAL R n j z & + @ - : 0 0 80 U J F " D 4 4 LI CI H TA R@ WG R A
0x054ec4…055058 Dummy {f00=0x001c, f01=0x8190, f02=» > s v * ~0 . 0 @ J F " D @ P RW 0X R R0X R 4 4 I RL LA L R TOTAL SUBTOTAL > .
0x055058…0551ec Dummy {f00=0x001c, f01=0xc154, f02=» LH L RLI L@ R H 0X @ R@ R # L ) L L 0X D 4 T d 0 t , " J F " D R 0X R0X I K e R 4 I "I I A
0x0551ec…055380 Dummy {f00=0x001c, f01=0x0190, f02=» 8 H IDENT RGSUB1 TRA 4.2 83-10-04 F1 O1111 830825 EV 2 . FLDIN FLDTST SLUT SUMWRT UPDA12 UPDAKK @ $$$TRAS v > : FLDIN _ FLDTSTS SLUTM SUMWRT1 UPDA12 UPDAKK D @ FRMTJTS FRMTVOA FRMXTA3 KTPLANF PACKST SPERR SPINF8 WRITF
0x055380…055514 (1, 107) Dummy {f00=0x001d, f01=0x0190, f02=» 9 = J F " D I , L LH I !) L # L # L4! L0! L, " Q N p X0 ^0 m0 t0 L v z J F " D @
0x055514…0556a8 Dummy {f00=0x001d, f01=0x0190, f02=» 0 , > P 0 ` J F " D RL R RH R R RA 6 @ A @ @ 4 L L 4 R % r
0x0556a8…05583c Dummy {f00=0x001d, f01=0x0190, f02=» 0 0 @ < J F " D 4 ) L RW{# Lw I $ s (s s s ( T0 v a0 0 J F " D @L! . 6 - L W + L " I I" # L d
0x05583c…0559d0 Dummy {f00=0x001d, f01=0x0190, f02=» U 7 U K , U < U L U U l u | u U U U
0x0559d0…055b64 Dummy {f00=0x001d, f01=0x0190, f02=» 0 A RT 0 T " GB 4 U F V U h 0 ! x 0 & U 0 0 J F " D RRRRR ) L LW ) L LW ) L LC 8R #L<R LR L:R
0x055b64…055cf8 Dummy {f00=0x001d, f01=0x0190, f02=» ! U # Z & % _ 6 , F . Z X 2 h 4 U z 6 Z : U > @ U J F " D L8R L8R L8R #L #L?RI L8R?R R ! L<R L<R?
0x055cf8…055e8c Dummy {f00=0x001d, f01=0x0190, f02=» r v _ } & J F " D @R %L %L?R 6 W LT W LT L R P LW R ! L W 8 _ _ _
0x055e8c…056020 Dummy {f00=0x001d, f01=0x0190, f02=» L @ ! X ( : _ L _ n ~ _ 0 J F " D L A ) L L L Wy R ) Lt R
0x056020…0561b4 (1, 108) Dummy {f00=0x001d, f01=0x0190, f02=» ' , 00 4 2 9 ( D J F " D (LV! LL) #LLWE R ) L@ R # # L6) L L L) L L @ V C L Q a d i
0x0561b4…056348 Dummy {f00=0x001d, f01=0x40ba, f02=») #L W 4 4 L! L,! L L! L ! L L! L ! | : L ^ p L L! L ! L L4 @ L Q a d i
0x056348…0564dc Dummy {f00=0x001d, f01=0x4186, f02=» : H IDENT RGSUB2 TRA 4.2 83-10-04 F1 O1111 03.02.XXX.1 PACKCL PACKST B $$$TRAS PACKCL / PACKST n CYTRP EMPTYTT 0 E %0 E 0 A J F " D 0R
0x0564dc…056670 Dummy {f00=0x001d, f01=0x0190, f02=» 8 H IDENT RGSUB3 TRA 4.2 84-02-03 F1 O1111 840203 EV ) > : ASGFIL ASGVOL CLSVOL CYLINE CYOUT CYRD CYTRP CYWRT ) @ $$$TRAS ) > : ASGFIL a ASGVOLC CLSVOLL CYLINET CYOUT CYRDW p ) CYTRP CYWRT H ) B > ASSGI CLEAR8G CRVO F
0x056670…056804 Dummy {f00=0x001d, f01=0x0190, f02=» ) ! * + * 6 * . 8 * @ J F " D 6 <GI( L R WM R TF R T? R T8HQ R T.H + SL R T! S * P E * H * Q * j * m * { * J F " D @
0x056804…056998 Dummy {f00=0x001d, f01=0x0190, f02=» * + + + 0 + @ J F " D T T R 4 A/H" 0X(6 "02W:0X 0X 0X H 0X HQ 0X 0X W !T + R + + + + + +
0x056998…056b2c Dummy {f00=0x001d, f01=0x0190, f02=» $ , & , 4 , $ = p , 4 @0 X , D J F " D LW T @P 4 @P 4 I ,I A R R R H 0X , R , V B , I , N0 , Q0 , Z TRP , ,
0x056b2c…056cc0 Dummy {f00=0x001d, f01=0x0190, f02=» " D @L0X _ 4 RT L% L 4 L R RA 4 RA 4 RP L R LW T 1 , - N - ^ - n - ~ & W - ( - - - - TRP - - J F " D X F@PW
0x056cc0…056e54 (1, 109) Dummy {f00=0x001d, f01=0x40a2, f02=» TRP - . . 0 R . . H C ! A P RT W"@ A R R 0X L R 0X L4 T . @ . @ .
0x056e54…056fe8 Dummy {f00=0x001d, f01=0x0190, f02=» 8 H IDENT ADM6 TRA 4.2 83-10-05 F1 O1111 831005 EV > : ADM600 CHNGDK EXCHAN SENDRC SIGNOF SIGNON STRTRC @ TERMINM TRNOK WJDC2 $$$TRA B > ADM600M CHNGDKD EXCHAN- SENDRC1 SIGNOF SIGNON * & STRTRC Q TER
0x056fe8…05717c Dummy {f00=0x001d, f01=0x0190, f02=»PERR T:ATTFG T:DCRER T:DCWR n 6 2 T:DELAM T:DSC1D T:EDWRC T:WAITG WRITIDL WRITJTL $ $ ^ n ! ~ # . @ 0 $ 7 8 : J F " D 0X A(@ C Ty
0x05717c…057310 Dummy {f00=0x001d, f01=0x0190, f02=» [ * ` d $ e 4 g F k Q V o f s j v u v x y } J F " D @ _ _EI EL RME EL R L
0x057310…0574a4 Dummy {f00=0x001d, f01=0x0190, f02=» . DFH3504E > J F " D L 0X @(A RL?R L >La>Fh> L I RT R L h> T V & 0 ` TRANSMIT 0
0x0574a4…057638 Dummy {f00=0x001d, f01=0x018e, f02=» * J F " D 1X F 4 ) L L L R RL 4 R C EL RL RL RL R6 ?5 :
0x057638…0577cc Dummy {f00=0x001d, f01=0x0190, f02=» / @ 6 7 & 9 8 : H @ Z A j J F " D _ RL RLA 1XF R6 _8 R < RL_A RL R P RL_N RL 4 RL RL ^W | C D J K
0x0577cc…057960 Dummy {f00=0x001d, f01=0x0190, f02=» k * t ( * J F " D @RL RL hW RL 4 RL RL L R LM T.! L* RM L LbM ( > : 0 0
0x057960…057af4 (1, 110) Dummy {f00=0x001a, f01=0x0190, f02=» ! , > P J F " D Pb L LhM P L_ + L C W# ! L L LdM ( ( b $ &
0x057af4…057c88 Dummy {f00=0x001a, f01=0x0190, f02=» RT6 RT2 >Lm> F & b A E * 0 J @ P 0002 P V 4 d o v r TERMINATE y ~ J F " D @ RT! RM RI L Lh> T 4 4 >L ML m> F " RT
0x057c88…057e1c Dummy {f00=0x001a, f01=0x0190, f02=» J F " D R4 >L MLm> F RT I R4 4 I = L0X Z X L0X > T & t 0 ` TRANSMIT ,
0x057e1c…057fb0 Dummy {f00=0x001a, f01=0x0190, f02=» L 0 ` TRANSMIT , 0 P D V , f v ( & * DFHN 9 F J F " D >L 4 L L L R RL 4 0X $ o# Lk L h>
0x057fb0…058144 Dummy {f00=0x001a, f01=0x0190, f02=» J F " D @ TM $ @ MLh> T2 + L LbM > 1X FW bM > 1X F 4 R d v & J F " D <W W.4 % L% L h> *L T ML bM > 1X F
0x058144…0582d8 Dummy {f00=0x001a, f01=0x0190, f02=» & & BRUGERNAVN & G 0 AAAAAAAAAAAAAAAAAAA9 B " f & v & KENDEORD & D TTT9 " ( & '
0x0582d8…05846c Dummy {f00=0x001a, f01=0x0190, f02=»" N ( & * ' 8 $ N J & M Z ( h t & 1 DATATRANSMISSION $ N ( & & ANTAL RECORDS:
0x05846c…058600 Dummy {f00=0x001a, f01=0x4154, f02=» $ N & M ( * 6 & M F DATATRANSMISSION T $ N t & ? & ? & A BA " ( & & M
0x058600…058794 (1, 111) Dummy {f00=0x001a, f01=0x0190, f02=» 8 H IDENT KTPLN TRA 4.2 84-02-03 F1 O1111 840203 EV / KTPLAN RESTMK SETMK / @ $$$TRAP / ` " KTPLAN RESTMKS SETMK / r RAREADP WAITF / 0 P / ) / - / 2 / 40 /
0x058794…058928 Dummy {f00=0x001a, f01=0x0190, f02=»0 x / z 0 J F " D @j X " % L _/ Lj X @+ 4 @+ L L 4 0 0 0 l x 0 ~ 0 x 0 x 0 0 x 0 J F " D @+ L 4 Q TF L Lj X U W4 Q + L
0x058928…058abc Dummy {f00=0x001a, f01=0x4100, f02=» ^% _ 4 L XL R LX LhX 0 l 1 * 1 : 1 L ' 1 ^ , 1 p .0 1 6 1 D ? = L P R L" QLW# hX L T P L XL R LX Q R4 1 6 9 1 @ 1 Q + L
0x058abc…058c50 Dummy {f00=0x001a, f01=0x018e, f02=» 8 H IDENT KTOPR TRA 4.2 84-02-03 F1 O1111 840203 EV 2 KTOPR KTPRT 2 @ $$$TRAO 2 V KTOPR KTPRT 2 h > : ADMRETO FRMXTAA KTPLAN4 RAREADF RAWRIT RESTMK SPCLRA 2 : 6 SPCLRN SPERR T:ATTF T:EDWR T:WAIT WAITF WTALLY 2
0x058c50…058de4 Dummy {f00=0x001a, f01=0x0190, f02=» 1 3 2 3 4 3 $ J F " D I ?R A <RA( A A 1XF R2 RRR_ @) R $ A)@ 1XF R6 _ _0H 3 4 D0 ? 3 P 3 R0 ? 3 j 3 l0 ? 3 } 3 3 0 3
0x058de4…058f78 Dummy {f00=0x001a, f01=0x0190, f02=» 3 4 4 0 4 . x 4 @ 4 R 0 x 4 b J F " D LX Q x R_| R LX R_ WL L R LW T LjX W R LX T 4 t 4 0 4 4 4
0x058f78…05910c Dummy {f00=0x001a, f01=0x018e, f02=» 4 0 5 0 5 DISCFEJL 5 0 5 H 5 X 5 h % 5 z '0 5 , 5 > x 5 J F " D ! L _ % L ) L L L R?R L XL R LX <R j j Lj 5
0x05910c…0592a0 Dummy {f00=0x001a, f01=0x0190, f02=» y 6 { 6 }0 6 & J F " D @ X dX S Q R LX T6 R?R( Q QLV Q R LX T R XL L R LX 6 8 6 6 6 6 6 6 6 0 6
0x0592a0…059434 (1, 112) Dummy {f00=0x0014, f01=0x0190, f02=» 6 7 7 7 . 7 > 7 N 7 ^ J F " D L L Lj X j X j X L 0X 1X F L0 R R@+_U@+ R R4 7 n 7 $ 7 & 7 & 7 99
0x059434…0595c8 Dummy {f00=0x0014, f01=0x0190, f02=» 7 ADM 8 $ 8 & 8 , DATAS[T 8 : $ 8 R & 8 b REGKONTONR 8 p $ 8 & 8 & 8 KONTONRO 8 $ 8 & 8 BFO 8 $
0x0595c8…05975c Dummy {f00=0x0014, f01=0x4064, f02=» BBZ9 8 " 9 & 9 $ ( 9 2 9 > 9 N@ 9 `& 8 b REGKONTONR 8 p $ 8 & 8 & 8 KONTONRO 8 $ 8 & 8 BFO 8 $
0x05975c…0598f0 Dummy {f00=0x0014, f01=0x0190, f02=» 8 H IDENT ADM5 TRA 4.2 83-10-05 F1 O1111 831005 EV A5KONV @ $$$TRAM R A5KONV d D @ A5RET1M ASGVOLA LAMPOF3 LAMPONF RAREAD SLUTID SOPRD SPCLRA x > : SPLIN8 SQWRIT STRTID T:ATTF T:DSC0 T:DSC1 WRITID
0x0598f0…059a84 Dummy {f00=0x0014, f01=0x0190, f02=» % & ( ( : 1 J 2 Z : l < ~ >0 J F " D @- RL R <R RL C W 0X RL R P RL0X S P RL_# L R LM E H
0x059a84…059c18 Dummy {f00=0x0014, f01=0x0190, f02=» J F " D @ P R RM W RM L LbM ( 0X R LMTM@' C R C R 0 b 0 t SLUTD 0 L J F " D L R LM CThI'e! L L h M P
0x059c18…059dac Dummy {f00=0x0014, f01=0x0190, f02=» $ 6 0 F X h x J F " D RL_ (C RL1XF R RL( @-_j R LM & RM
0x059dac…059f40 Dummy {f00=0x0014, f01=0x0190, f02=» KORREKT $ " & ? 2 & @ B R " d ( t H & * & &$ SLUTMARKERING FUNDET I 1. RECORD & $ & HVIS "SLUT" SMIDES DEN V[K &
0x059f40…05a0d4 (1, 113) Dummy {f00=0x001a, f01=0x401a, f02=» 6 @ $ " & ? 2 & @ B R " d ( t H & * & &$ SLUTMARKERING FUNDET I 1. RECORD & $ & HVIS "SLUT" SMIDES DEN V[K &
0x05a0d4…05a268 Dummy {f00=0x001a, f01=0x8190, f02=» 8 H IDENT ADM6BC TRA 4.2 83-10-04 F1 O1111 831003 EV D @ ADM600 BCACTV BCGO CHNGDK EXCHAN SENDRC SIGNOF SIGNON @ " STRTRCM TERMINA TRNOK WJDC- $$$TRA @ < ADM600M BCACTVT BCGOD CHNGDK1 EXCHAN0 6 SENDRC > : S
0x05a268…05a3fc Dummy {f00=0x001a, f01=0x8190, f02=»AREAD RAWRITO SLUTIDR SPCLRAT SPCLRS SPERR SPLIN8 T:ACTV > : T:ATTFA T:DCREA T:DCWRB T:DELAS T:DSC1T T:EDWRM T:EXITM D 4 0 T:KIA T:MWAII T:TESTI T:WAITR WRITIDR WRITJTR " 8 " 9
0x05a3fc…05a590 Dummy {f00=0x001a, f01=0x8190, f02=» U0 W Y0 _ 8 2 f T B m R n b p t t | x | ~ J F " D @ _ @c@(_AI EL RE EL R LMC R I` R % `
0x05a590…05a724 Dummy {f00=0x001a, f01=0x8190, f02=» T ( " 8 H X h x BC J F " D RL_ R@(@cA RL?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ a `
0x05a724…05a8b8 Dummy {f00=0x001a, f01=0x8190, f02=»0 _ . , # , < J F " D L0XR _=1XF R2 RRR_ ! L ! L _ ` _Y ` _^0XA`A 1X FIbI6` $,3 L N ( , & | " , $ ( ( .
0x05a8b8…05aa4c Dummy {f00=0x001a, f01=0x8190, f02=»_=1X F R Ab b _L D M , * O * : V @ J X * a 2 l d ~ g v 6 z } DFH3504 J F " D @RP R@b ` _Y1X F@b_a L0X L gLagFhg
0x05aa4c…05abe0 Dummy {f00=0x001a, f01=0x8190, f02=» : 2 D 0 T f @ v J F " D hg T 1X F 4 0X ) L L L R RL 4 R d EL RL RL
0x05abe0…05ad74 (1, 114) Dummy {f00=0x0010, f01=0x8190, f02=» 6 " * : J Z j J F " D RL1X F R 0X GK 0X 6 '_ 0X P 0R W 0X 1XF R2 RRR_ a z 4 6 .
0x05ad74…05af08 Dummy {f00=0x0010, f01=0x8190, f02=»6 ?5 _j RL RLA 1XF R6 l C T * G : H J L M l O ~ T U Y Z @ a b d
0x05af08…05b09c Dummy {f00=0x0010, f01=0x8190, f02=» ~ @ J F " D @_ R RL_ RL R P RL_ RL 4 RL RL W RL RL W RL 4 RL 0 ~ 0 0 8 (
0x05b09c…05b230 Dummy {f00=0x0010, f01=0x8190, f02=» 0 * 0 : &01 L ` J F " D 4 "a a L R Lh a<R LP L L h h P a _( da d b * r SLUTD00000 0
0x05b230…05b3c4 Dummy {f00=0x0010, f01=0x8190, f02=» dT LT hL B L h h T ` Pm L t M ! 2 U D d V h h k z | J F " D @ Lhh P L_ + L d W# ! L L Ldh ( ( mg F_t 6
0x05b3c4…05b558 Dummy {f00=0x0010, f01=0x8190, f02=»5 RT1 gLmg F Z 6 8 ( 8 0002 H 4 n TERMINATE ~ 6 J F " D & RT R RI L Lhg T 4 4 gL hL mg F " R
0x05b558…05b6ec Dummy {f00=0x0010, f01=0x8190, f02=» @ $ J F " D T R 0X 4 gL hLmg F RT 0X I R4 4 I = L0 I j K & | T W Y $ a h0 ` k TRANSMIT m
0x05b6ec…05b880 Dummy {f00=0x0010, f01=0x8190, f02=»X( 4 P 5CX " 0 ` 2 TRANSMIT D 0 P n : ~ 6 DFHN J F " D Lhg T gL 4 L L L R RL
0x05b880…05ba14 (1, 115) Dummy {f00=0x001b, f01=0x818e, f02=» $ @ hLhg T2 + L Lbh l , * " : , J " Z . 4 j 2 | A J F " D g 1X FW bh g 1X F <W W.4 % L% L hg *L T L , N "
0x05ba14…05bba8 Dummy {f00=0x001b, f01=0x8190, f02=» & & BRUGERNAVN & G * AAAAAAAAAAAAAAAAAAA9 < " e ` & p & KENDEORD ~ & D TTT9 " f ( & '
0x05bba8…05bd3c Dummy {f00=0x001b, f01=0x818e, f02=» ( & a N $ MANUAL 4 $ N J & Z AUTOMATISK h $ N DATATRANSMISSION $ N ( & ' $ N
0x05bd3c…05bed0 Dummy {f00=0x001b, f01=0x8190, f02=» & N & ' " $ N 4 D $ N V & h f ( t ; & h DATATRANSMISSION $ N & ? & M 9M "
0x05bed0…05c064 Dummy {f00=0x001b, f01=0x8190, f02=»SK $ : & ` : & b : * & (ER AKTIV) : & R & (SENDER) ` ( v # $ S & & & SEND FRA DENNE DISK? & & D
0x05c064…05c1f8 Dummy {f00=0x001b, f01=0x818e, f02=» FRA: $ T & R ZZZZ9A 2 " H ( X = d & t $ & & & & V[LG: & G 9G " &
0x05c1f8…05c38c Dummy {f00=0x001b, f01=0x8190, f02=» & & SEND FRA: & D . ZZZZ9A @ " V & f & t & TIL: & : ! ZZZZ9A " ! ( " & & h (
0x05c38c…05c520 Dummy {f00=0x001b, f01=0x818e, f02=» ( & & 0 $ * ' BATCH SENDES : $ ' V ( f ( r & 0 $ ) AFSLUTTETD $ ) $ , ( * & 0 $
0x05c520…05c6b4 (1, 116) Dummy {f00=0x001e, f01=0xc0d4, f02=» & & & $ & 2 & @ & N & & j ( x 6 1 / @hL bh g 1X F hL% L Lbh g 1X F4 g k @ ( * & 0 $
0x05c6b4…05c848 Dummy {f00=0x001e, f01=0x8190, f02=» 8 H IDENT ADM6BC TRA 4.2 83-10-04 F1 O1111 831003 EV D @ ADM600 BCACTV BCGO CHNGDK EXCHAN SENDRC SIGNOF SIGNON @ " STRTRCM TERMINA TRNOK WJDC- $$$TRA @ < ADM600M BCACTVT BCGOD CHNGDK1 EXCHAN0 6 SENDRC > : S
0x05c848…05c9dc Dummy {f00=0x001e, f01=0x8190, f02=»AREAD RAWRITO SLUTIDR SPCLRAT SPCLRS SPERR SPLIN8 T:ACTV > : T:ATTFA T:DCREA T:DCWRB T:DELAS T:DSC1T T:EDWRM T:EXITM D 4 0 T:KIA T:MWAII T:TESTI T:WAITR WRITIDR WRITJTR " 8 " 9
0x05c9dc…05cb70 Dummy {f00=0x001e, f01=0x8190, f02=» U0 W Y0 _ 8 2 f T B m R n b p t t | x | ~ J F " D @ _ @c@(_AI EL RE EL R LMC R I` R % `
0x05cb70…05cd04 Dummy {f00=0x001e, f01=0x8190, f02=» T ( " 8 H X h x BC J F " D RL_ R@(@cA RL?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ a `
0x05cd04…05ce98 Dummy {f00=0x001e, f01=0x8190, f02=»0 _ . , # , < J F " D L0XR _=1XF R2 RRR_ ! L ! L _ ` _Y ` _^0XA`A 1X FIbI6` $,3 L N ( , & | " , $ ( ( .
0x05ce98…05d02c Dummy {f00=0x001e, f01=0x8190, f02=»_=1X F R Ab b _L D M , * O * : V @ J X * a 2 l d ~ g v 6 z } DFH3504 J F " D @RP R@b ` _Y1X F@b_a L0X L gLagFhg
0x05d02c…05d1c0 Dummy {f00=0x001e, f01=0x8190, f02=» : 2 D 0 T f @ v J F " D hg T 1X F 4 0X ) L L L R RL 4 R d EL RL RL
0x05d1c0…05d354 (1, 117) Dummy {f00=0x001e, f01=0x8190, f02=» 6 " * : J Z j J F " D RL1X F R 0X GK 0X 6 '_ 0X P 0R W 0X 1XF R2 RRR_ a z 4 6 .
0x05d354…05d4e8 Dummy {f00=0x001e, f01=0x8190, f02=»6 ?5 _j RL RLA 1XF R6 l C T * G : H J L M l O ~ T U Y Z @ a b d
0x05d4e8…05d67c Dummy {f00=0x001e, f01=0x8190, f02=» ~ @ J F " D @_ R RL_ RL R P RL_ RL 4 RL RL W RL RL W RL 4 RL 0 ~ 0 0 8 (
0x05d67c…05d810 Dummy {f00=0x001e, f01=0x8190, f02=» 0 * 0 : &01 L ` J F " D 4 "a a L R Lh a<R LP L L h h P a _( da d b * r SLUTD00000 0
0x05d810…05d9a4 Dummy {f00=0x001e, f01=0x8190, f02=» dT LT hL B L h h T ` Pm L t M ! 2 U D d V h h k z | J F " D @ Lhh P L_ + L d W# ! L L Ldh ( ( mg F_t 6
0x05d9a4…05db38 Dummy {f00=0x001e, f01=0x8190, f02=»5 RT1 gLmg F Z 6 8 ( 8 0002 H 4 n TERMINATE ~ 6 J F " D & RT R RI L Lhg T 4 4 gL hL mg F " R
0x05db38…05dccc Dummy {f00=0x001e, f01=0x8190, f02=» @ $ J F " D T R 0X 4 gL hLmg F RT 0X I R4 4 I = L0 I j K & | T W Y $ a h0 ` k TRANSMIT m
0x05dccc…05de60 Dummy {f00=0x001e, f01=0x8190, f02=»X( 4 P 5CX " 0 ` 2 TRANSMIT D 0 P n : ~ 6 DFHN J F " D Lhg T gL 4 L L L R RL
0x05de60…05dff4 (1, 118) Dummy {f00=0x001b, f01=0x818e, f02=» $ @ hLhg T2 + L Lbh l , * " : , J " Z . 4 j 2 | A J F " D g 1X FW bh g 1X F <W W.4 % L% L hg *L T L , N "
0x05dff4…05e188 Dummy {f00=0x001b, f01=0x8190, f02=» & & BRUGERNAVN & G * AAAAAAAAAAAAAAAAAAA9 < " e ` & p & KENDEORD ~ & D TTT9 " f ( & '
0x05e188…05e31c Dummy {f00=0x001b, f01=0x818e, f02=» ( & a N $ MANUAL 4 $ N J & Z AUTOMATISK h $ N DATATRANSMISSION $ N ( & ' $ N
0x05e31c…05e4b0 Dummy {f00=0x001b, f01=0x8190, f02=» & N & ' " $ N 4 D $ N V & h f ( t ; & h DATATRANSMISSION $ N & ? & M 9M "
0x05e4b0…05e644 Dummy {f00=0x001b, f01=0x8190, f02=»SK $ : & ` : & b : * & (ER AKTIV) : & R & (SENDER) ` ( v # $ S & & & SEND FRA DENNE DISK? & & D
0x05e644…05e7d8 Dummy {f00=0x001b, f01=0x818e, f02=» FRA: $ T & R ZZZZ9A 2 " H ( X = d & t $ & & & & V[LG: & G 9G " &
0x05e7d8…05e96c Dummy {f00=0x001b, f01=0x8190, f02=» & & SEND FRA: & D . ZZZZ9A @ " V & f & t & TIL: & : ! ZZZZ9A " ! ( " & & h (
0x05e96c…05eb00 Dummy {f00=0x001b, f01=0x818e, f02=» ( & & 0 $ * ' BATCH SENDES : $ ' V ( f ( r & 0 $ ) AFSLUTTETD $ ) $ , ( * & 0 $
0x05eb00…05ec94 (1, 119) Dummy {f00=0x0020, f01=0xc0d4, f02=» & & & $ & 2 & @ & N & & j ( x 6 1 / @hL bh g 1X F hL% L Lbh g 1X F4 g k @ ( * & 0 $
0x05ec94…05ee28 Dummy {f00=0x0020, f01=0x0190, f02=» 8 H IDENT SCREEN TRA 4.2 84-01-26 F1 O1111 840124 EV B > BELL DKTEST KBTEST SCREEN SPCA SPCLRA SPCLRN SPCLRS @ * & SPCNS SPERR SPINF12 SPINF8- SPLIN81 $$$TRAD > : BELLS DKTESTI KBTESTF SCREEN1 B SPCA0 2 SPCLRA > :
0x05ee28…05efbc Dummy {f00=0x0020, f01=0x0190, f02=»PCHK3S SPCHK4 ^ > : SPCHK5 SPCHK6I SPCHK7S SPTCHKR T:DELAS T:DISPS T:DSC1 > : T:DUPLC T:DYKIE T:EDFLS T:EDWRS T:ERASS T:GETAS T:GETCS X D @ T:GETF T:NKI T:PRINK T:SETCH T:TBWDL T:TDOWS T:TESTC T:TFWD D @ T:THOMC T:TLDOE T:TLEFS T:TRIGS T:T
0x05efbc…05f150 Dummy {f00=0x0020, f01=0x0190, f02=» r & ! 2 & ! * % # , ( & * " "
0x05f150…05f2e4 Dummy {f00=0x0020, f01=0x0190, f02=»" " " " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x05f2e4…05f478 Dummy {f00=0x0020, f01=0x018e, f02=» " " " ! ( . : & J FEJL X $ l ZZ9 | " ( & 99B " & 99
0x05f478…05f60c Dummy {f00=0x0020, f01=0x0190, f02=» & LINIE NR $ * & . : ( H T & . d & NY SIDE. r ( & & Y & & & ZZZZZVZZ9,99+
0x05f60c…05f7a0 Dummy {f00=0x0020, f01=0x0190, f02=» KONTOKORT, $ Y ( . : & J & X ( f r & DISK SKIFT $ Y & ( & OPSTART
0x05f7a0…05f934 (1, 120) Dummy {f00=0x0020, f01=0x0190, f02=» ! & & DISK STANDSET. " AFVENT VENLIGST. 8 $ "I X & h ( v B
0x05f934…05fac8 Dummy {f00=0x0020, f01=0x0190, f02=» B / 4 6 B . 7 > < P > B b ? r J F " D L L L RL4 L L L RL4 L L L RL4 I RL4 L RL4 L RL I K < V (
0x05fac8…05fc5c Dummy {f00=0x0020, f01=0x0190, f02=» 6 0X T " 2 B * R . b 4 r F J F " D W 0X W 0X W 0X W 0X W 0X R 0X P R _ 0X L L0X P
0x05fc5c…05fdf0 Dummy {f00=0x0020, f01=0x018e, f02=» , & M 6 F V f v
0x05fdf0…05ff84 Dummy {f00=0x0020, f01=0x0190, f02=» , * : J Z j z " * ! < ' + , 0 6
0x05ff84…060118 Dummy {f00=0x0020, f01=0x018e, f02=» D ~ E F < J J 0 O @ [ R ] * d h t i | j k | l | m n o p
0x060118…0602ac Dummy {f00=0x0020, f01=0x0190, f02=» J F " D @R2 RRRW50X ! L A H L R( 2 RRRRRRRRRRRRRRRRR L4 J h < x 6 > @ B D 8 H
0x0602ac…060440 Dummy {f00=0x0020, f01=0x0190, f02=» 2 , > N ` r , $ J F " D 7;7?R L1X L?R L0X T b
0x060440…0605d4 (1, 121) Dummy {f00=0x0020, f01=0x018e, f02=» F $ ( . , - < / L 2 6 n : > @ @ N J F " D ?RI H L L L0X S 0X P 0R Q L4 0X R<R LG! Lq! Lm L0 H
0x0605d4…060768 Dummy {f00=0x0020, f01=0x0190, f02=» j r 0 u * { 0 : ~ J J F " D @X ( 1X FW ! L{ R L0X 1X F H 0X L6 0X K W 0X K Z 0 |
0x060768…0608fc Dummy {f00=0x0020, f01=0x018e, f02=» 1 * 2 ( B R b | r J F " D W 0X K $ R<R L8R2 RRRRRR_8 R- L L! L L0X 0X 2 RR
0x0608fc…060a90 Dummy {f00=0x0020, f01=0x0190, f02=» & ( $ " & 1 2 ( @ L : l L | J F " D R L4 ! L A ! L ?R 0X 0X ! L ?R4 1X F4 R 0X P 0R W 0 ' &
0x060a90…060c24 Dummy {f00=0x0020, f01=0x0190, f02=» $ 1X F Wc1X F ! L6! LV L6 r D 0 0 G @ M 0 P P ` V 0 p Y _ c : d h e : i n v 0 y
0x060c24…060db8 Dummy {f00=0x0020, f01=0x4158, f02=» 2 & B R b r & J F " D Y K W 0XY K R4 L0X 1X F 4 R 4 H/ I H. L0X 1X F
0x060db8…060f4c Dummy {f00=0x0020, f01=0x8190, f02=» 8 H IDENT ADM6BC TRA 4.2 83-10-05 F1 O1111 831005 EV D @ ADM600 BCACTV BCGO CHNGDK EXCHAN SENDRC SIGNOF SIGNON @ " STRTRCM TERMINA TRNOK WJDC- $$$TRA @ < ADM600M BCACTVT BCGOD CHNGDK1 EXCHAN0 f SENDRC > : S
0x060f4c…0610e0 Dummy {f00=0x0020, f01=0x8190, f02=»AREAD RAWRITO SLUTIDR SPCLRAT SPCLRS SPERR SPLIN8 T:ACTV > : T:ATTFA T:DCREA T:DCWRB T:DELAS T:DSC1T T:EDWRM T:EXITM D 4 0 T:KIA T:MWAII T:TESTI T:WAITR WRITIDR WRITJTR " 8 " 9
0x0610e0…061274 (1, 122) Dummy {f00=0x0026, f01=0x8190, f02=» V0 X Z0 ` 8 2 h f B o R p b r t v z ~ J F " D @ _ @c@(_AI EL RME EL R LMC RM I` R '
0x061274…061408 Dummy {f00=0x0026, f01=0x8190, f02=» f ( " 8 H X h x J F " D RL RL_ R@(@cA RL?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ a ` BC
0x061408…06159c Dummy {f00=0x0026, f01=0x8190, f02=»0 C . , - , , < # L J F " D L0XR _=1XF R2 RRR_ ! L ! L _ ` _Y ` _^0XA`A 1X F1X FIbL6` ( , & ( ,
0x06159c…061730 Dummy {f00=0x0026, f01=0x818e, f02=» D $,6 L0X _ C a c 1X F RT Ab ba bc_.1X F@`0X RL R ` _@1X F R I L M Q l R @ | Y , [ * ] ^ @ h @ j * s 2
0x061730…0618c4 Dummy {f00=0x0026, f01=0x8190, f02=» DFH3504R , , * < 0 ` L TRANSMIT ^ 0 v : J F " D I RT R L hg T 1X F 4 0X ) L L L R RL
0x0618c4…061a58 Dummy {f00=0x0026, f01=0x8190, f02=» , " 2 0 B R 2 b 4 r J F " D 4 R d EL RL RL RL1X F R 0X GK 0X 6 '_ 0X P 0R W 6 "
0x061a58…061bec Dummy {f00=0x0026, f01=0x8190, f02=» A J F " D 0X 1XF R2 RRR_ a b W 0X P 0R W 0X a b W 6 ?5 _j C ` D p H " I K U f Y Z ^ _
0x061bec…061d80 Dummy {f00=0x0026, f01=0x8190, f02=» w } ~ 0 @ J F " D @RL RLA 1XF R6 _ R RL_ RL R P RL_ RL 4 RL RL W RL R @
0x061d80…061f14 (1, 123) Dummy {f00=0x0026, f01=0x818e, f02=» D RL W RL 4 RL RL L R Lh T.! L* Rh L Lbh ( gLag L f ^ n ~ 0 0 &01 J
0x061f14…0620a8 Dummy {f00=0x0026, f01=0x818e, f02=» 5 7 90 & A0 8 J F " D a _( Rh da d b *db hL d a Rh W d L R Lh dT J F SLUTD00000 Q V SLUTD0 j L p | !
0x0620a8…06223c Dummy {f00=0x0026, f01=0x8190, f02=» & J F " D + L d W# ! L L Ldh ( ( mg F_~ I d R W 6` 6 f f f 8
0x06223c…0623d0 Dummy {f00=0x0026, f01=0x8190, f02=» # TERMINATE * " / f 2 3 B 8 * R J F " D L Lhg T 4 4 gL hL mg F " RT R 0X 4 b C F CSSF J O f V *
0x0623d0…062564 Dummy {f00=0x0026, f01=0x8190, f02=»Z X L0X g X ( $ : J 0 ` Z TRANSMIT l : 5CN ( 5CN J F " D T L L0X g P R
0x062564…0626f8 Dummy {f00=0x0026, f01=0x818e, f02=» : 6 * : DFHN L F ` J F " D gL 4 L L L R RL 4 I 0X $ o# Lk L hg P^ L r ( 4 , 4 4 ,
0x0626f8…06288c Dummy {f00=0x0026, f01=0x8190, f02=» b q | , , ~ " < J F " D @X F <W W.4 % L% L hg *L T hL bh g 1X F L 4 4 , " ) &
0x06288c…062a20 Dummy {f00=0x0026, f01=0x8190, f02=» & KENDEORD & D TTT9 0 " f D ( T ` & p ' ~ $ & CSSN PS= 9999 " fS & ,NAME= AAAAAAAAAAAAAAAAAA
0x062a20…062bb4 (1, 124) Dummy {f00=0x0026, f01=0x8190, f02=»TISK $ N DATATRANSMISSION $ N < ( L X & h ' v $ N & h ( & 1 DATATRANSMISSION $ N (
0x062bb4…062d48 Dummy {f00=0x0026, f01=0x8190, f02=» ; & h DATATRANSMISSION & $ N F & ? V & M d 9M v " & & & 1: MANUEL $ : & & 2:
0x062d48…062edc Dummy {f00=0x0026, f01=0x8190, f02=»( # $ S & * & 8 & SEND FRA DENNE DISK? F & h & D v BD " ( & $ & & & ST
0x062edc…063070 Dummy {f00=0x0026, f01=0x8190, f02=» $ & & ( & 6 & V[LG: D & G X 9G j " | & & 1: SEND RESTEN & & 2: AFBRYD SENDING ( ( $ :
0x063070…063204 Dummy {f00=0x0026, f01=0x818e, f02=» & TIL: & : ! ZZZZ9A , " ! B ( R " ^ & ! n & h | & h ( # & h $ $ AKTIVERET $ $ % 99V9
0x063204…063398 Dummy {f00=0x0026, f01=0x8190, f02=» z $ ' & ( & ( 2 & B $ P ) AFSLUTTETD ` $ ) z $ , ( * & $ + BATCH SENDTS $ + $ ,
0x063398…06352c Dummy {f00=0x0026, f01=0xc0ac, f02=»& & & & ( ( 6 - B & R ( ` & ! hL% L Lbh g 1X F4 g l @ & $ + BATCH SENDTS $ + $ ,
0x06352c…0636c0 Dummy {f00=0x0026, f01=0x0190, f02=» 8 H IDENT DIV461 TRA 4.2 84-01-30 F1 O1111 840130 EV > : FRM1EL FRM2EL FRM3EL FRM4EL FRMTGP FRMTJT FRMTKT @ > : FRMTKVV FRMTTAA FRMTVO4 FRMXBCF FRMXEL FRMXGP FRMXJT FRMXKT FRMXTA FRMXVO $$$TRAV B > FRM1EL T FRM
0x0636c0…063854 (1, 125) Dummy {f00=0x0026, f01=0x0190, f02=» FRMXJTF FRMXKTM 8 FRMXTAG FRMXVO # FMOVE 0 @ P ` p D E $ & +
0x063854…0639e8 Dummy {f00=0x0026, f01=0x0190, f02=»F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0 G > I O N N ^ P P n U ~ W V ^ W c e X j l Y q
0x0639e8…063b7c Dummy {f00=0x0026, f01=0x0190, f02=» " " " " * " 8 " F " T " b " p " ~ " " " " " " ( $
0x063b7c…063d10 Dummy {f00=0x0026, f01=0x0190, f02=» $ & $ ( . : $ J & Z $ h ( x $ & $ < & $ M & $ S (
0x063d10…063ea4 Dummy {f00=0x0026, f01=0x018e, f02=» & $ 0 ( * $ 9 : $ ; J ( Z f $ 9 v $ C & $ I ( & X " &
0x063ea4…064038 Dummy {f00=0x0026, f01=0x0190, f02=» $ E $ I ( $ 0 & @ 99B N " b ZZ.ZZ.ZZ r " BBZZ " $ K & XX " &
0x064038…0641cc Dummy {f00=0x0026, f01=0x0190, f02=» ( & $ 99 2 " D & T ZZ.ZZ.ZZ b " z $ K BBZZ " BZZ " BBZZ "
0x0641cc…064360 Dummy {f00=0x0026, f01=0x0190, f02=» B999 " & , & : $ I H ( X d & t BZZZZZZZZZZ " & ( & & & !
0x064360…0644f4 (1, 126) Dummy {f00=0x0027, f01=0x0190, f02=»9- x " # ( $ $ & & 6 % XXXB D " % # X & XXB h " & | ' XB " ' ( XXB " ( ) XXB " ) * XB
0x0644f4…064688 Dummy {f00=0x0027, f01=0x0190, f02=»XXXXXXE-XXXX " . / BXB $ " / % 8 & H ( V 0 " b & r 1 XXXXXXXXXXBX " 1 & ' 2 Z.ZZZ.ZZX.XXBB " 2 ' & 3 Z.ZZZ.ZZ
0x064688…06481c Dummy {f00=0x0027, f01=0x0190, f02=» 7 XX.XX.XXB. " 7 ) " 8 XX.XX.XXB. 2 " 8 * L & ( j 9 v & & & : 99B " : * $ * ( ; $ C*
0x06481c…0649b0 Dummy {f00=0x0027, f01=0x018e, f02=» BZZ.ZZ.ZZ. " > ? BBX $ " ? 8 @ BBX H " @ $ K l A XXXXXXE-XXXX | " A B BXX " B ( C D B999E-999E-99E-99B
0x0649b0…064b44 Dummy {f00=0x0027, f01=0x0190, f02=» G XXXXXXE-XXXX " G & 0 H XXX.XXXXX.XXBB > " H ( l I x J B*.***.***.**9.99- " J & ( K L BBZZZE-ZZZE-ZZE-ZZ
0x064b44…064cd8 Dummy {f00=0x0027, f01=0x0190, f02=» P BZZZZZZZZZZ- " P " Q BZZZZ 0 " Q # F R BZZ V " R $ j ( z S & T BZZ.ZZ.ZZZ " T & U BZZ.ZZ.ZZZ " U ' V BZ
0x064cd8…064e6c Dummy {f00=0x0027, f01=0x0190, f02=» & Y BXXXXXXE-XXXXB " Y 2 & B Z BXXXXXXE-XXXXB P " Z n & ~ [ BXXXE-XXXXE-XXXB " [ ( * " ] " _ " b " d
0x064e6c…065000 Dummy {f00=0x0027, f01=0x0190, f02=»" " " [ " ^ ( ( 6 ] B & R $ ` ^ KVIT p $ ^ ( _ & $ & ` KONTOKORTX $ `
0x065000…065194 (1, 127) Dummy {f00=0x0027, f01=0x0190, f02=»$ c ( d $ * e SUM : $ e N ( ^ f j $ g z ( g K & & * & * & & VERSNR h DAGS-DATO
0x065194…065328 Dummy {f00=0x0027, f01=0x0190, f02=» k EKS.LBNR $ kE & & & 4 & B l 99.99.999.9 P " lKE l & | m 99E-99E-99 " m E & n 99E-99E-99 " n E & o 999R
0x065328…0654bc Dummy {f00=0x0027, f01=0x0190, f02=»R KASSEKONTONR PRIMO KASSE | $ qE & & 6 & D r 999E-99999E-99BB R " r E r s 999E-99999E-99BB " s E t ZZZ.ZZZ.ZZ9.ZZ-B " t E & t & & *
0x0654bc…065650 Dummy {f00=0x0027, f01=0x0190, f02=» & & w T[LLER & $ wE < & L x DEBET Z $ xE p & y KREDIT $ yE ( z & { ZZ " { E " |
0x065650…0657e4 Dummy {f00=0x0027, f01=0x0190, f02=» START TEST $ ( ( 4 SLUT TESTT D $ ` ( p | & DISK SKIFT $ ( & $ C BZ
0x0657e4…065978 Dummy {f00=0x0027, f01=0x0190, f02=»ZR " ( & & 6 99BR D " X & h 99 v " ( & ( * " " "
0x065978…065b0c Dummy {f00=0x0027, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " ( $ & & B**B "
0x065b0c…065ca0 Dummy {f00=0x0027, f01=0x0190, f02=» $ & $ ******E-**** 2 " N & * ^ & l & * | $ ( $ ( , $ &
0x065ca0…065e34 (1, 128) Dummy {f00=0x0028, f01=0x0190, f02=» & BBBZZ.ZZ.ZZBB9 " 6 & F ZZZZZ999.99B T " " p XXXXXXXXXX " B999.99999.999 " B***.***.**9.99- "
0x065e34…065fc8 Dummy {f00=0x0028, f01=0x018e, f02=»$ B99.99.99* " ( & 8 99 F " X B999 h " | BZZZZZZZZZZ9 " & & * $ ( $
0x065fc8…06615c Dummy {f00=0x0028, f01=0x0190, f02=» $ ( $ 0 $ @ $ P ( ` l & + | & & 999B " $ B99.99.99Z " &
0x06615c…0662f0 Dummy {f00=0x0028, f01=0x0190, f02=».**9.99- ~ " & & . ( < H & X & f 99.99.99B* t " & J B999B " 99BR " (
0x0662f0…066484 Dummy {f00=0x0028, f01=0x018e, f02=» B99B " & & 0 & > ZZ.ZZ.ZZ L " d ( t & $ E B*.***.***.**9.99- " & & $ .
0x066484…066618 Dummy {f00=0x0028, f01=0x0190, f02=» " BXX. " ( ( 8 D XX T " f E-9999999999B9 v " XX.XXPP " BXBR " (
0x066618…0667ac Dummy {f00=0x0028, f01=0x018e, f02=» XX.XXPP " $ & 4 ( B N *.***.***.**9.99-- ^ " & & ( & & ****9 "
0x0667ac…066940 Dummy {f00=0x0028, f01=0x0190, f02=» " " " $ " 2 " @ " N " " j " x " " " " " " " " " (
0x066940…066ad4 (1, 129) Dummy {f00=0x0029, f01=0x0190, f02=» *.***.***.**9.99+- " ! " & ! 2 ( ! @ ! L $ ! $ ! l ( ! | ! & + ! $ ! ( ! ! $ ! & ! & 0 ! $ !
0x066ad4…066c68 Dummy {f00=0x0029, f01=0x0190, f02=» ( ! " & + " 999B " * " " > B99.99.99B " N " " h ****9 " x " " -S " $ " $ " & " & " *.***.***.**9,99+- "
0x066c68…066dfc Dummy {f00=0x0029, f01=0x0190, f02=» 999B " " # B99.99.99. # $ " # > BBZ999 # N " # d BB****99 # t " # & - # $ - # & # & # & # & # & # & 2
0x066dfc…066f90 Dummy {f00=0x0029, f01=0x0190, f02=» $ - $ & $ & NETTOR $ " & $ 6 DEBET $ D $ E $ Z & $ j KREDIT $ x $ E $ ( $ $ & 2 $ XXXE-XXXXXE-XX $ " $ & $
0x066f90…067124 Dummy {f00=0x0029, f01=0x0190, f02=» " BBZZZ.ZZZ.ZZZ.ZZ9.99-O % " y T % * ( % < % H & 2 % X ZZ % f " % x " BBZZZ.ZZZ.ZZZ.ZZ9.99-O % " % " BBZZZ.ZZZ.ZZZ.ZZ9.99-O % " T % " BBZZZ.ZZZ.
0x067124…0672b8 Dummy {f00=0x0029, f01=0x0190, f02=» % " BBZZZ.ZZZ.ZZZ.ZZ9.99-O & " & . " BBZZZ.ZZZ.ZZZ.ZZ9.99-O & > " & d " BBZZZ.ZZZ.ZZZ.ZZ9.99-O & t " & & & & 4 & & SUPL & " BBZZZ.ZZZ.ZZZ.ZZ9.99-O & " &
0x0672b8…06744c Dummy {f00=0x0029, f01=0x018e, f02=» 2 & & KORL ' & ' " BBZZZ.ZZZ.ZZZ.ZZ9.99-O ' * " L ' P " BBZZZ.ZZZ.ZZZ.ZZ9.99-O ' b " L ' ( ' ' $ ' ( ' 4 ' & 4 ' 999E-99999E-99 '
0x06744c…0675e0 Dummy {f00=0x0029, f01=0x0190, f02=» & 2 ( & BEV ( " BBZZZ.ZZZ.ZZZ.ZZ9.99-O ( $ " ( J " BBZZZ.ZZZ.ZZZ.ZZ9.99-O ( Z " ( " BBZZZ.ZZZ.ZZZ.ZZ9.99-O ( " ( & ( & 2 ( & ULTIMO ( " BBZZZ.ZZZ.
0x0675e0…067774 (1, 130) Dummy {f00=0x0025, f01=0x018e, f02=» & ( 999B ) " L ) " B99.99.99. ) 2 " L ) L & ) BEHOLDNINGST[LLERE ) j $ L ) & ) & ) & ) & ) & 2 ) & * ) & * ) & 4 )
0x067774…067908 Dummy {f00=0x0025, f01=0x0190, f02=» $ L * & * SALDO * " $ L * 8 & * H ( * V * b & 2 * r ZZ * " L * & * XXXE-XXXXXE-XX * " s I * " BBZZZ.ZZZ.ZZZ.ZZ9.99-O *
0x067908…067a9c Dummy {f00=0x0025, f01=0x0190, f02=» + & + & $ + " & < + 0 & < + > & < + L & ] + Z & N + h & N + v & N + & E + & S + & S + & S + & [ + & + ( + + & +
0x067a9c…067c30 Dummy {f00=0x0025, f01=0x0190, f02=» + & * , & , ZZ999999 , $ " , < & , L ( , Z , f & 2 , v & , " BBZZZ.ZZZ.ZZZ.ZZ9.99-O , " , " BBZZZ.ZZZ.ZZZ.ZZ9.99-O , " , ( ,
0x067c30…067dc4 Dummy {f00=0x0025, f01=0x0190, f02=»" , " - " - " - ( " - 6 " - D " - R ( - ` - l & + - | $ - $ - ( - * - " - " - " ! - " & - " -
0x067dc4…067f58 Dummy {f00=0x0025, f01=0x0190, f02=» - " . " . " . $ " . 2 " . @ " , . N " . " - . j ( . x . ( . . $ . $ . . ( . . $ . $ . .
0x067f58…0680ec Dummy {f00=0x0025, f01=0x0190, f02=» " XX.XXPPZ / " " / # BXXO / , " # / @ & / P & / ^ & / l $ XI / z " $ / % BXXX / " % # / $ # / ( / & / $ '# / ( /
0x0680ec…068280 Dummy {f00=0x0025, f01=0x0190, f02=» / ) B**O 0 " ) 0 * B**O 0 0 " * 0 D & 0 T & 0 b + B**O 0 p " + 0 $ 0 ( 0 , 0 $ 3 0 & P] 0 $ 8] 0 ( 0 - 0
0x068280…068414 (1, 131) Dummy {f00=0x0029, f01=0x0190, f02=» / *.***.***.**9.99-. 1 " / N 1 & 0 B99. 1 6 " 0 N 1 J 1 9I 1 Z " 1 N 1 l & 1 | 2 99BO 1 " 2 N 1 ( 1 3 1 & + 1 & 1 4 999B 1 " 4 N 1
0x068414…0685a8 Dummy {f00=0x0029, f01=0x0190, f02=» 1 ( 2 8 2 9 B99.99.99. 2 $ " 9 2 > : B**E- 2 N " : 2 d ; ** 2 t " ; 2 < BXXX 2 " < # 2 $ W# 2 = B*.***.***.**9.99- 2 " = # 2 & 2
0x0685a8…06873c Dummy {f00=0x0029, f01=0x0190, f02=».99* 2 " A # 3 & 3 B *.***.***.**9.99-- 3 * " B # 3 L & 3 C TRP 3 j $ C# 3 ~ ( 3 * D 3 " 3 ( 3 * E 3 " F 3 " G 3 " G 3 " I 3
0x06873c…0688d0 Dummy {f00=0x0029, f01=0x0190, f02=» 3 ( 4 G 4 & 0 4 $ & 4 2 H *.***.***.**9.99+B 4 @ " H # 4 b $ M# 4 r ( 4 I 4 & + 4 J Z.ZZZ.ZZZ.ZZ9.99-B 4 " J 4 & 4 ( 4 K 4
0x0688d0…068a64 Dummy {f00=0x0029, f01=0x018e, f02=»& 4 & 5 & 5 & 5 ( & 5 6 ( 5 D * N 5 P " 5 ` ( 5 n * O 5 z " 5 ( 5 * P 5 " ] 5 " _ 5 " b 5 " d 5 " f 5 " u 5
0x068a64…068bf8 Dummy {f00=0x0029, f01=0x0190, f02=» Q 6 & 6 & 6 " & 6 0 ( 6 > R 6 J & 6 Z & i 6 h & i 6 v ( 6 S 6 & i 6 T 99BO 6 " T 6 & 6 U 99 6 " U 6 & U
0x068bf8…068d8c Dummy {f00=0x0029, f01=0x0190, f02=»" 6 " 7 " 7 " 7 ( " 7 6 " 7 D " 7 R " 7 ` " 7 n " 7 | " 7 " 7 " 7 " 7 " 7 " 7 ( 7 * W 7 " < 7
0x068d8c…068f20 Dummy {f00=0x0029, f01=0x0190, f02=» " 8 " 8 " 8 " 8 . " 8 < " 8 J " 8 X " 8 f " 8 t " $ 8 " 8 " $ 8 ( 8 * X 8 " 8 " 8 " 8 " 8 " 8
0x068f20…0690b4 (1, 132) Dummy {f00=0x002a, f01=0x018e, f02=» 8 " 9 " 9 " 9 & " 9 4 " 9 B " 0 9 P " 9 ^ " 0 9 l ( 9 z * Y 9 " 9 " 9 " 9 " 9 " 9 " 9 " 9 " S 9
0x0690b4…069248 Dummy {f00=0x002a, f01=0x0190, f02=» " : " : " : " : . " : < ( : J * Z : V " ] : f " _ : t " ~ : " : " : " : " : " : " : " b : " d : " [ :
0x069248…0693dc Dummy {f00=0x002a, f01=0x40d2, f02=» : ^ ; _ SLUT ; $ _ ; . ` EL. JOURNAL ; > $ ` ; Z ( ; j B = ; @R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 p ; v w ; @ ; " : " b : " d : " [ :
0x0693dc…069570 Dummy {f00=0x002a, f01=0x8190, f02=» ( " 8 H X h x J F " D R RL RL_ R@(@cI` RLA ?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ BC
0x069570…069704 Dummy {f00=0x002a, f01=0x8190, f02=»0 C . , . , , < $ L J F " D a ` L0XR _@1XF R2 RRR_ ! L ! L _ ` _ ` _a0XA`A 1X F1X FI ( , ' . ,
0x069704…069898 Dummy {f00=0x002a, f01=0x818e, f02=»0X _ C a c 1X F RT Ab ba bc_.1X F@`0X RL R ` _@1 ~ D < O L S ; W , l Y / | [ @ i , k 4 m , o + w x @
0x069898…069a2c Dummy {f00=0x002a, f01=0x8190, f02=» $ 4 DFH3504 D , l J F " D L0X L gLagFhg L I RT R L hg T 1X F 4 | * 0 ` TRANSMIT
0x069a2c…069bc0 Dummy {f00=0x002a, f01=0x8190, f02=» @ 0 @ , R b r 0 J F " D 0X ) L L L R RL 4 R d EL RL RL RL1X F R 0X GK 2 4
0x069bc0…069d54 (1, 133) Dummy {f00=0x001f, f01=0x8190, f02=» 4 4 9 < 6 J F " D 0X 6 %_ 0X P 0R 0X 1XF R2 RRR_ a b W 0X P 0R 0X a 0 V ~ W Y Z ^ " _ a k o
0x069d54…069ee8 Dummy {f00=0x001f, f01=0x8190, f02=» _f RL RLA 1XF R6 _ R RL_ RL R P RL_ x 6 @ F X h z
0x069ee8…06a07c Dummy {f00=0x001f, f01=0x8190, f02=» 8 J F " D RL 4 RL RL W RL RL W RL 4 RL RL L R Lh T.! L* Rh ( Z l | 0 6
0x06a07c…06a210 Dummy {f00=0x001f, f01=0x818e, f02=» " , $ 1 & 8 ( = SLUTD00000 8 J F " D L8R L L hh P a _(H a1X F Rh da d b *db hL R K U W Y0 a0 f SLUTD00000
0x06a210…06a3a4 Dummy {f00=0x001f, f01=0x8190, f02=» ! , > P b J F " D Rh ` Pm L Lhh P L_ + L d W# ! L L Ldh ( t
0x06a3a4…06a538 Dummy {f00=0x001f, f01=0x8190, f02=» 8 ! 0002 0 ' 4 D @ V J F " D RT2 gLmg F & RT! Rh RI L Lhg T 4 4 g f C TERMINATE J O S X *
0x06a538…06a6cc Dummy {f00=0x001f, f01=0x8190, f02=»X 4 gL hLmg F RT 0X I R4 r 0 $ B R & d t $ 0 ` TRANSMIT :
0x06a6cc…06a860 Dummy {f00=0x001f, f01=0x8190, f02=»C 0 ` TRANSMIT , 0 P D V : f v J F " D L 4 gL0X( 4 Lhg T gL 4 L L L R RL 4 I 6 DFH
0x06a860…06a9f4 (1, 134) Dummy {f00=0x0020, f01=0x8190, f02=» L 4 T , V # " ` , 2 b # B ~ 4 R J F " D @ T2 + L Lbh g 1X FW bh g 1X F <W W.4 % L% d , #
0x06a9f4…06ab88 Dummy {f00=0x0020, f01=0x8190, f02=»UGERNAVN & G AAAAAAAAAAAAAAAAAAA9 " " e F & V & KENDEORD d & D z TTT9 " f ( & ' $ & CSSN P
0x06ab88…06ad1c Dummy {f00=0x0020, f01=0x818e, f02=» & a N MANUEL $ N 0 & @ AUTOMATISK N $ N h DATATRANSMISSION x $ N ( & ' $ N & h (
0x06ad1c…06aeb0 Dummy {f00=0x0020, f01=0x8190, f02=» ' $ N * $ N < & h L ( Z ? f & h v DATATRANSMISSION $ N & ? & M 9M " & &
0x06aeb0…06b044 Dummy {f00=0x0020, f01=0x818e, f02=» & ` : & b : & (ER AKTIV) & 8 & (SENDER) F & ZZZZ9) j " S ( % & 1 $ S & & & SEND FRA DENNE DISK?
0x06b044…06b1d8 Dummy {f00=0x0020, f01=0x818e, f02=» & & START FRA: & $ T : & R J ZZZZ9A " r ( = & $ & & & & V[LG: & G
0x06b1d8…06b36c Dummy {f00=0x0020, f01=0x8190, f02=» ) & $ : " & 2 & @ & SEND FRA: N & D f ! ZZZZ9A x " ! & ! & & TIL: & : " ZZZZ9A " " (
0x06b36c…06b500 Dummy {f00=0x0020, f01=0x8190, f02=»VERET $ % & 99V99V99 " & 6 $ - F ( V ' b & r $ ( BATCH SENDES $ ( & ( ) & $
0x06b500…06b694 (1, 135) Dummy {f00=0x0021, f01=0x8190, f02=» $ , $ - ( $ - 0 & @ & N & & j & x & & & ( . & ( / & $
0x06b694…06b828 Dummy {f00=0x0021, f01=0xc182, f02=» 3 ZZZZZ9 " 3 & 3 . ( < 4 H & 3 X 5 FRA: f $ 5 z 6 ZZZZZ9 " 6 & 7 TIL: $ 7 8 ZZZZZ9 " 8
0x06b828…06b9bc Dummy {f00=0x0021, f01=0x0190, f02=» 8 H IDENT RGADM TRA 4.2 84-01-27 F1 O1111 840127 EV " A5RET1 A5RET2 hADM ADMRET @ $$$TRAA f * & A5RET1 Z A5RET2A hADM ADMRET 1 x @ < A45ELJA A5KONVA ABORT ADM6007 ASGVOL1 BCKUP CLBEH CLEAR8 B > CLEDB CLEJA CLSVOL CRVO hC
0x06b9bc…06bb50 Dummy {f00=0x0021, f01=0x0190, f02=»INTK MODPR PACKCL RAWRIT RGREAD t B > SKIFT SLUTIDT SOPRD SPCLRAA SPCLRNT SPINF1R SPLIN8R SUBTOT * B > hSUM T:ATTFO T:DELAO T:DSC0N T:DSC1R T:EDWR T:WAIT TCONFR p 6 2 TCONFWS TRPAGES WRITIDC WRITJTC WRITLOI WTALLYL TOTAL
0x06bb50…06bce4 Dummy {f00=0x0021, f01=0x0190, f02=» . > n N ~ ^ n ! ~ " # $ % Y & ' ( )
0x06bce4…06be78 Dummy {f00=0x0021, f01=0x0190, f02=» 2 $ 3 & 4 + 5 R . 6 R > 7 R N 8 R ^ 9 R n : R ~ ; R < R = R > / J F " D I > LH L 2 -RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
0x06be78…06c00c Dummy {f00=0x0021, f01=0x0190, f02=» b d L y 1 J F " D @ 8R L2 RRR?RA I A A 1XF R6 _ H @ _ @ @ ?RA I I . V | L > 0 V L J F " D YI
0x06c00c…06c1a0 Dummy {f00=0x0021, f01=0x0190, f02=» 1 0 1 1 0 J F " D s s L s s RL R @ @ ?R?R?RC`9RA(@ C T T A T A @ V L 0 F 0 @
0x06c1a0…06c334 (1, 136) Dummy {f00=0x0021, f01=0x0190, f02=» @ = 8 > @ 8 , A < J F " D 1XF R6 qq _(I EL RME EL R LMC = RM I R R C EL RL RL RL N C 8 D F H Y b g h
0x06c334…06c4c8 Dummy {f00=0x0021, f01=0x0190, f02=» RL DW I R N RL SW RLA d 1 " 2 1 B 1 R $ b L r 1 0 0 0 0 J F " D @(?R?R?R?R R!A R6 _ @ ?
0x06c4c8…06c65c Dummy {f00=0x0021, f01=0x0190, f02=» 3 SUBTOTAL J & 6 F V f v ! % * ?
0x06c65c…06c7f0 Dummy {f00=0x0021, f01=0x018e, f02=» $ 4 V D 7 T J d t " 2 $ & ) ,0 6 V 7 Z 9 J
0x06c7f0…06c984 Dummy {f00=0x0021, f01=0x018e, f02=» N J o , z B ( |0 R 8 J F " D @ %C P @ A 1XF R6 _ A I CW S * RP I , C R L W J B 0 0 0 0 J F " D ,
0x06c984…06cb18 Dummy {f00=0x0021, f01=0x0190, f02=» N J F " D L _d , m L L@ L( P Q A LW A f h x 3 V 4 Q 6 J J F " D L RA @ ?R @ @ LW H H A _ W C T C T C P @ A 1XF R6
0x06cb18…06ccac Dummy {f00=0x0021, f01=0x018e, f02=» u R P Z KI DI * < GI L NI ^ P p * J F " D _6 L L@ L( P Q A LW A LI A R R 0
0x06ccac…06ce40 Dummy {f00=0x0021, f01=0x0190, f02=» ` Z J F " D R L L 0X R0X R L " 3 L_ H @ L L0X 0X @ W H ( v 1 + V , + . J : D J F " D I I H A _ W @ L?RI SH ! aHb d CA 1X
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x0022, f01=0x0190, f02=» a Z e g X $ j 4 m 1 D t T T } 1 d J F " D @H") R 0X(K$ R 0X 0X R 0R 0X R0X(0R ?RI A RW @ ?RI t 0 V L
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» V L ( J F " D A A A L1XF R2 RRR_ @ @ ?R?R?RI 7 A R L L 1XF R 8 0 A j l 1 V & L
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x0190, f02=» L P & n V . c > J N L ^ n ~ ' $ &0 . & 1 n
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x018e, f02=» TOTAL H & ! K n ! O V ! 0 P f ! @ R J ! P U ! ` ` ! r _ V ! ` j ! b J ! e ! i0 ! l ^ ! n t ! r V !
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=» ! " l " d " * T " : j " L " l " n " ~ b " 0 " V " z " J F " D @ W I $I !I RL R R LA W RL R @ L R W H !I
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=» R " Z # P # * # 0 # @ # P J F " D F R6 _ L W^ RWZ RWV RWR RWN RWJ RWF0X R R R 2$ 0X # ` ( # ^ # Z # # # #
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x0190, f02=» ( # $ & $ KONVERTERING $ * $ $ F & $ V $ $ d ( $ t $ & $ KORREKTE $ $ $ & ? $ & $ $ $ ( $ - $
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x018e, f02=» $ & % DAGS-DATON % $ % 2 & % B 99E-99E-99 % T " % n & % ~ DAG NR % $ % & f % ZZZ % " w % & % POST-DATO
0x06dae0…06dc74 (1, 138) Dummy {f00=0x0022, f01=0x0190, f02=» % ADM & $ & & & , EJ-EDB T[LLER & : $ & X & & h NR & v $ & & & KONTONRT & $ & & & & & & d & ZZ
0x06dc74…06de08 Dummy {f00=0x0022, f01=0x018e, f02=» & & ' ADM ' $ ' . & ' > BEHOLDNINGST[LLERE ' L $ ' n & ' ~ NR ' $ ' & ' KONTONRI ' $ ' & ' SALDO '
0x06de08…06df9c Dummy {f00=0x0022, f01=0x018e, f02=» ' & ( & ( ZZZZZZZZE-ZZ ( * " ( F & ( V & ( d & ( t & ( TTT.TTT.TTT.TT9.99-W ( " ( $ ( ( ( * ( & ( &
0x06df9c…06e130 Dummy {f00=0x0022, f01=0x0190, f02=» ( ~ $ " ) & ) # SALD0 ) & $ # ) < & ) L & ) Z & ) j $ 99999999E-99 ) | " $ ) & ) % TTT.TTT.TTT.TT9.99-W ) " % ) & ) $ )
0x06e130…06e2c4 Dummy {f00=0x0022, f01=0x018e, f02=» & ) ) KONTONRK * $ ) * & & * 6 & * D * 99999999E-99 * V " * * r ( * + * & * * , DISK SKIFT * $ , * & ` * & ` * - AUTOMATISK *
0x06e2c4…06e458 Dummy {f00=0x0022, f01=0x0190, f02=» 0 SENDER + $ 0 + & + * 1 ZZZZ9 + 8 " 1 + N & + ^ 2 ZZZZ9 + l " 2 + & 2 + & + $ + ( + 3 + & + 4 KLAR + $ 4 +
0x06e458…06e5ec Dummy {f00=0x0022, f01=0x0190, f02=»RGE + ( , 7 / , & , ( & , 6 8 99 , D " 8 G , V 9 ]BNE KASSERI , f $ 9G , & , : BBZZZ- , " :q , ; BBZZZ- , " ;q , < BBZZZ- , "
0x06e5ec…06e780 Dummy {f00=0x0022, f01=0x018e, f02=» @ BBZZZ- - " @q - A BBZZZ- - * " Aq - @ & A - P B BBZZZ- - ^ " Bq - t C BBZZZ- - " Cq - D BBZZZ- - " Dq - E BBZZZ- - " Eq - $ -
0x06e780…06e914 (1, 139) Dummy {f00=0x0023, f01=0x0190, f02=» - & . H XXXXX . " H . 0 & H . @ I REGKONTONR . N $ I . h & l . x J XXXXXXXXE-XX . " J . & J . K CPR/CIR/NR . $ K . & m . L
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=» M . N DIVERSE / $ N / " & o / 2 O XX / D " O / V & / f P TTTTTTTTTTTTX- / x " P / & P / $ X / ( / Q - / & / $ 6 / & /
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=»A / & 0 T XXXXX 0 " T 0 2 & T 0 B & 0 P & TIL 0 ^ & 0 p U XXXXX 0 " U 0 & U 0 $ X 0 ( 0 V 0 W BEL 0 $ W 0
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x0190, f02=» Z ! 0 & Y 1 & 1 [ KASSE-KONTO 1 ( $ [ 1 D & 1 T KONTONRO 1 b $ 1 z & 1 ] SALDO 1 $ ] 1 & 1 ^ 99999999E-99 1 " ^ 1 & 1
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=»ZZ9.99-T 1 | " a 2 & a 2 & 2 . b ZZZ.ZZZ.ZZZ.ZZ9.99-T 2 < " b 2 ` $ 2 p ( 2 c 2 & 2 d REGNEFUNKTIONZ 2 $ d 2 & 2 & 2 & [ 2
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x0190, f02=» & 2 & 3 h TOTAL 3 $ h 3 2 & 3 B i ZZZ.ZZZ.ZZ9.99-. 3 P " i 3 p $ 3 ( 3 j 3 & 3 k CHECKCIFFER. 3 $ k 3 l BEREGNINGE 3 $ l
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=» n ZZZZZZZZZE-9 3 " n 4 ( 4 * o 4 6 & n 4 F p CHECKCIFFER9 4 T $ p 4 p q BEREGNINGE 4 $ q 4 & 4 $ t 4 & 4 & 4 & 4 r CHECKCIFFER9
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x0190, f02=» 4 u ZZZZZZZZZE-9 5 " u 5 & & 5 6 & 5 D v CHECKCIFFER9 5 R $ v 5 n & = 5 ~ w B9BD 5 " w 5 & w 5 x ZZZZZZZZZE-9 5 " x 5 y 9B 5 " y 5
0x06f420…06f5b4 (1, 140) Dummy {f00=0x0023, f01=0x409a, f02=»& 5 } ***99A 6 " } 6 & ( 6 6 > 9 7 R$0X _ 0X W R W R W R W W R W RW ?R4 6 B 3 6 @ 6
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x8190, f02=» & Z300 ' $ ' $ 9999 ' 4 " ' H & 2 ' X & ' f 999 ' v " w ' & 1 ' & ' ( ' ' & ' KLAR ' $ '
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x8190, f02=»M ' $ ( & ( & ( * KASSE]BNINGG ( 8 $ ( T & ( d & ( r DAGS-DATON ( $ ( & ( 99E-99E-99 ( " ( & ( DAG NR (
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x8190, f02=»k ( 99E-99E-99 ) " ) & ( ) 6 ( ) B & ) R & ) ` ADM ) p $ ) & ) ! EJ-EDB T[LLER ) $ ! ) & ) " NR ) $ " ) & )
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x8190, f02=» ) & * % 99999999E-99 * " %u * 6 ( * F & F * R & % * b & * p ' ADM * $ ' * & * ( BEHOLDNINGST[LLERE * $ ( * & * ) NR * $
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x8190, f02=» * & e + , ZZ + " , + 0 & + @ & + N & + & + l & + | - ZZZZZZZZE-ZZ + " - + & + & + & + & + . TTT.TT
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x8190, f02=» 0 + & , 1 KASSE-KONTO , $ 1 , 6 & , F 2 KONTONRO , T $ 2 , l & , | 3 SALD0 , $ 3 , & , & , & , 4 99999999E-99 , " 4 ,
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x8190, f02=»& , 7 ADM - $ 7 - 8 VERSUR KONTONR REMIT - 0 $ 8 - T & - d 9 KONTONRK - r $ 9 - & - & - : 99999999E-99 - " : - ( - ; - & :
0x0700c0…070254 (1, 141) Dummy {f00=0x0024, f01=0x8190, f02=»ANSMISSION - $ > . & b . " ? AKTIV . 2 $ ? . H & . X @ SENDER . f $ @ . | & . A ZZZZ9 . " A . & . B ZZZZ9 . " B . & B . &
0x070254…0703e8 Dummy {f00=0x0024, f01=0x818e, f02=» ( / E / & 1 / F KASSELUKNING / . $ F / J & / Z & / h G ZZ / v " G / & / & / & / H KONTONRK / $ H / & / $ z /
0x0703e8…07057c Dummy {f00=0x0024, f01=0x8190, f02=» & 1 0 & 0 L KASSELUKNING 0 " $ L 0 > & 0 N & 0 ( 0 j M + 0 v & 0 & 0 N KASSELUKNING 0 $ N 0 & 0 O BEHOLDNINGST[LLERE 0 $ O
0x07057c…070710 Dummy {f00=0x0024, f01=0x8190, f02=»Q 0 & 1 R SLET SALDO 1 $ R 1 2 & 1 B S KRE 1 P $ S 1 d & 1 t T SUBTOTAL 1 $ T 1 & 1 U KVIT 1 $ U 1 & 1 & 1 & 1
0x070710…0708a4 Dummy {f00=0x0024, f01=0x8190, f02=» 1 $ Z 2 & 2 Y ZZ 2 * " Y 2 < ( 2 L Z 2 X & SP 2 h & 2 x & RGE 2 ( 2 [ / 2 & 2 & 2 99 2 " G 2 ] ]BNE KASSERL
0x0708a4…070a38 Dummy {f00=0x0024, f01=0x818e, f02=» " `q 2 a BBZZZ- 3 " aq 3 & & a 3 6 b BBZZZ- 3 D " bq 3 Z c BBZZZ- 3 j " cq 3 d BBZZZ- 3 " dq 3 e BBZZZ- 3 " eq 3 & e 3 f BBZZZ- 3 " fq
0x070a38…070bcc Dummy {f00=0x0024, f01=0x8190, f02=» ( 4 j H 4 & 4 $ Z 4 . & 4 > & * 4 N & * 4 k EKS.LBNRS 4 j $ k 4 & 4 l XXXXX 4 " l 4 & l 4 m REGKONTONR 4 $ m 4 &
0x070bcc…070d60 Dummy {f00=0x0024, f01=0x8190, f02=» p XXXXXXE-XXXX 4 " p 5 & p 5 ( $ z 5 6 & n 5 F q TTTTTTTVTTX,XX-E 5 X " q 5 x & q 5 r DIVERSE 5 $ r 5 & o 5 s XX 5 " s 5 & 5
0x070d60…070ef4 (1, 142) Dummy {f00=0x0024, f01=0x818e, f02=» 5 & * 6 & * 6 v BILAG 6 & $ v 6 < w EKS.LBNRT 6 L $ w 6 f & 6 v & FRA 6 & 6 x XXXXX 6 " x 6 & x 6 & 6 & TIL 6 & 6
0x070ef4…071088 Dummy {f00=0x0024, f01=0x8190, f02=» & 7 & B 7 ( 7 | 7 , & B 7 < & Z 7 J } B 7 " } 7 n ( 7 ~ ~ ! 7 & } 7 & 7 KASSE-KONTO 7 $ 7 & 7 KONTONRO 7
0x071088…07121c Dummy {f00=0x0024, f01=0x818e, f02=» ZZZ.ZZZ.ZZZ.ZZ9.99-- 8 " 8 ( & 8 8 EJ EDB 8 F $ 8 & 8 l ZZZ.ZZZ.ZZZ.ZZ9.99-- 8 z " 8 & 8 & 8 ZZZ.ZZZ.ZZZ.ZZ9.99-- 8 " 8 $ 8
0x07121c…0713b0 Dummy {f00=0x0024, f01=0x8190, f02=» 8 TTT.TTT.TTX.XX-. 9 " 9 ( ( 9 8 9 D & 9 T REGNEFUNKTIONX 9 b $ 9 & 9 & 9 TOTAL 9 $ 9 & 9 ZZZ.ZZZ.ZZ9.99-. 9 "
0x0713b0…071544 Dummy {f00=0x0024, f01=0x8190, f02=» $ 9 & : & : BEREGNINGE : , $ : F & SGRUNDLAG : V & : n & i : | ZZZZZZZZZE-9 : " : ( : : & : CHECKCIFFER9 : $
0x071544…0716d8 Dummy {f00=0x0024, f01=0x8190, f02=»KCIFFER9 : $ ; & ; FEJL ; . $ ; B $ ; R ( ; b ; n & ; ~ & ; ZZZZZZZZZE-9 ; " ; & ; & ; CHECKCIFFER9 ; $ ;
0x0716d8…07186c Dummy {f00=0x0024, f01=0xc118, f02=» ; ( < < & < ( LBNR < 6 $ < J ***99A < Z " < p & - < & < ***99A < " < ( < , ( & @R T L RP L RLW 4 RM 4 <
0x07186c…071a00 Dummy {f00=0x0024, f01=0x0190, f02=» 8 H IDENT ADM6BC TRA 4.2 84-01-24 F1 O1111 840124 EV D @ ADM600 BCACTV BCGO CHNGDK EXCHAN SENDRC SIGNOF SIGNON @ " STRTRCM TERMINA TRNOK WJDC- $$$TRA @ < ADM600M BCACTVT BCGOD CHNGDK1 EXCHAN2 SENDRC > : S
0x071a00…071b94 (1, 143) Dummy {f00=0x0024, f01=0x018e, f02=»AREAD RAWRITO SLUTIDR SPCLRAT SPCLRSo SPERR SPLIN8 T:ACTV > : T:ATTFA T:DCREA T:DCWRB T:DELAS T:DSC1T T:EDWRM T:EXITM D < 8 T:KIA T:MWAII T:TESTI T:WAITR WRITIDR WRITJTR WRITLO " ; "
0x071b94…071d28 Dummy {f00=0x0024, f01=0x018e, f02=» Y0 [ ]0 * c 8 < k L r s l u ~ y } J F " D @ _ @c@(_DI EL RME EL R LMC RM I` R ' ` RL RT RT RX o
0x071d28…071ebc Dummy {f00=0x0024, f01=0x018e, f02=» " $ 4 " D T d t J F " D R RL RL_ R@(@cI` RLA ?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ BC
0x071ebc…072050 Dummy {f00=0x0024, f01=0x0190, f02=» 0 C . , * . : , J $ Z J F " D a ` L0XR _@1XF R2 RRR_ ! L ! L _ ` _ ` _a0XA`A 1X F1X FI j ( , ! ' #
0x072050…0721e4 Dummy {f00=0x0024, f01=0x0190, f02=»1X F RT Ab ba bc_11X F@`0X RL R ` l C , * E ' : G J R Z V o j Z , z / ^ _ @ l , n 4 p , r + z
0x0721e4…072378 Dummy {f00=0x0024, f01=0x0190, f02=» 2 0 : @ DFH3504 P , h x J F " D b_ L0X L gLagFhg L I RT R L hg T 1X F * 0 ` TRANSMIT
0x072378…07250c Dummy {f00=0x0024, f01=0x0190, f02=» @ * : L , n ~ J F " D 4 0X ) L L L R RL R 4 R d EL RL RL RL1X F R 0
0x07250c…0726a0 Dummy {f00=0x0024, f01=0x0190, f02=» * + . : 4 ? , J F " D 0X GK 0X 6 %_ 0X P 0R 0X 1XF R2 RRR_ a b W 0X P 0R < B 6 ] _ ` d " e g
0x0726a0…072834 (1, 144) Dummy {f00=0x0025, f01=0x018e, f02=» _f RL RLA 1XF R6 _ R RL_ RL R P r 0 @ R @ b t
0x072834…0729c8 Dummy {f00=0x0025, f01=0x0190, f02=» 0 J F " D RL_ RL 4 RL RL W RL RL W RL 4 RL RL L R Lh T.! 8 h ( x 0
0x0729c8…072b5c Dummy {f00=0x0025, f01=0x018e, f02=» &01h SLUTD & ? , < A 1 L J F " D h a<R L8R L L hh P L h h T da We a _?H a1X C 8 _ SLUTD00000 m w y
0x072b5c…072cf0 Dummy {f00=0x0025, f01=0x0190, f02=» SLUTD0 L * < J F " D LT hL L h h T d a Rh d ` W|A L Lhh P N !L J F "
0x072cf0…072e84 Dummy {f00=0x0025, f01=0x0190, f02=» 5 = A $ J F " D _ I d R W 6` W WN b RTG RTC_ RT6 RT2 gLmg 4 F J 8 O : U 0002 [ 4 t w TERMINATE ~
0x072e84…073018 Dummy {f00=0x0025, f01=0x018e, f02=» CSSF $ 4 * D : T J F " D " RT R 0X 4 gL hLmg F RT 0X I R4 4 I @ d $ &
0x073018…0731ac Dummy {f00=0x0025, f01=0x0190, f02=» < 5CN J F " D L0X Z X L0X g T L L0X g P R ) L L R RL R 4 gL , ( z 5C # : &0 ` ) TRANSMIT ,0 P .
0x0731ac…073340 Dummy {f00=0x0025, f01=0x0190, f02=»X L F J DFH Y F 0 u F B J F " D @$ o# Lk L hg P^ L hg TM $ @ hLhg T2 T 4 4 , # , #
0x073340…0734d4 (1, 145) Dummy {f00=0x000f, f01=0x0190, f02=» , # 4 , 4 > , P # ` ) p & $ & & BRUGERNAVN & G AAAAAAAAAAAAAAAAAAA9 " e
0x0734d4…073668 Dummy {f00=0x000f, f01=0x0190, f02=» ' $ & CSSN PS= 9999 6 " fS J & ,NAME= Z AAAAAAAAAAAAAAAAAAA9 n " eN ( & a N MANUEL $ N &
0x073668…0737fc Dummy {f00=0x000f, f01=0x0190, f02=» $ N & h ( & 2 & 1 B DATATRANSMISSION P $ N p ( & N & ' $ N $ N & h
0x0737fc…073990 Dummy {f00=0x000f, f01=0x0190, f02=» " & & & & 1: 4 MANUEL D $ : Z & j & 2: x AUTOMATISK $ : & ` : & b : & (ER AKTIV) & & (SENDER)
0x073990…073b24 Dummy {f00=0x000f, f01=0x018e, f02=» & SEND FRA DENNE DISK? & * & D 8 BD J " ( l x & $ & & & START FRA: $ T & R
0x073b24…073cb8 Dummy {f00=0x000f, f01=0x0190, f02=» & V[LG: & G 9G . " @ & P & 1: SEND RESTEN ^ & z & 2: AFBRYD SENDING ( ) & $ : & & & SEND
0x073cb8…073e4c Dummy {f00=0x000f, f01=0x018e, f02=» " ZZZZ9A " " ( $ # 0 & " @ & h N & h ( j $ v & h $ % AKTIVERET $ % & 99V99V99 " & $ -
0x073e4c…073fe0 Dummy {f00=0x000f, f01=0x0190, f02=» & $ * AFSLUTTETD & $ * @ $ - P ( ` + l & | $ , BATCH SENDTS $ , $ - ( - & &
0x073fe0…074174 (1, 146) Dummy {f00=0x0010, f01=0x0190, f02=» / & $ & 0 AFBRUDTE 6 $ 0 N & ^ ( l 1 x & 2 FRA: $ 2 3 ZZZZZ9 " 3 & 3 ( 4
0x074174…074308 Dummy {f00=0x0010, f01=0x40a0, f02=» 8 ZZZZZ9 " 8 & 8 * ( 8 B = ; hg *L T hL bh g 1X F hL% L Lbh g 1X F4 g D @ A: $ 2 3 ZZZZZ9 " 3 & 3 ( 4
0x074308…07449c Dummy {f00=0x0010, f01=0x8190, f02=» 8 H IDENT RGKLAR TRA 4.2 84-01-23 F1 O1111 840123/EV B > BCKUP CLBEH CLEDB CLEJ LAMPOF LAMPON RGA120 RGADM SKIFT @ D @ SLUTIDK SOPRD STRTID STRTWR3 TCLOSE1 TR2GEN2 WAHEAD WALINE ZEROP $$$TRAK D @ BCKUP o CLBEH H CLEDB
0x07449c…074630 Dummy {f00=0x0010, f01=0x818e, f02=»AHEADC 4 WALINEE N ZEROM B > hADM ASGFILI ASGVOLU BACKUPS CLEAR8S CLSVOL: CNFWRTA CONFWRS " @ < CONRDXo CRKJH FRMXVOW GRASPVN INITRG KORTL PACKCL RADEL h D @ RAREADG RAWRITG SETDEBC SETKREE SLUTC SPCLRAC SPCLRNC SPLIN8 D @ T:ATTFo T:DELAF T
0x074630…0747c4 Dummy {f00=0x0010, f01=0x8190, f02=» ( 8 H X h !0 G x # 2 $ & . * + , / 10 G 40 G
0x0747c4…074958 Dummy {f00=0x0010, f01=0x8190, f02=» H0 M O @ & R 6 T F F U V h ^ l x f * h F i t 2 u w , { |
0x074958…074aec Dummy {f00=0x0010, f01=0x8190, f02=» 0 > 6 , 0 < N 0 ^ 0 p J F " D @ @ @ @ @ @ @ @ @ @ L L L L0X 0X L R L + L 0 0 0
0x074aec…074c80 Dummy {f00=0x0010, f01=0x8190, f02=» 0 EJ-EDB T[LLER ( F TOTAL V ! l $0 O | 8 ; KASSE-KONTO >0 A J F " D y LL L L R "_] L R L
0x074c80…074e14 (1, 147) Dummy {f00=0x0010, f01=0x8190, f02=»UR KONTONR REMIT u0 E w * : J F " D @ R !H R! L1 ! L L L L L R 0H R J TOTAL A H 0 O 0 O 0 O
0x074e14…074fa8 Dummy {f00=0x0010, f01=0x8190, f02=» ?R T 0 0 $ 0 6 0 H 0 % Z EJ-EDB T[LLER l 4 0 J J F " D " y L y L_ L L 4 L L D R 0
0x074fa8…07513c Dummy {f00=0x0010, f01=0x8190, f02=» . y y u L'# L 0X L R R _:0X 4 C EDB-T[LLERE @ E F F l H 4 ~ L0 P0 T0 Z0 ]0 J F " D @ L RL R L L LI
0x07513c…0752d0 Dummy {f00=0x0010, f01=0x8190, f02=» B F 0 N B R J F " D I L L L L L R R RL R _g R b N J F " D R " _ I /
0x0752d0…075464 Dummy {f00=0x0010, f01=0x8190, f02=» L% L W L L x C 6 6 J0 % F ^ 2 X _ % h c , x { SLET SALDO J F " D @R 0X 4 L P 1XFA R6 _.K 1 L W SLET PERIODE
0x075464…0755f8 Dummy {f00=0x0010, f01=0x8190, f02=» : 0 U J F " D K < L W L W L L L R 2 0X R R!0X L , 0 < z : 0 < 0 < 0 < 0 < 6
0x0755f8…07578c Dummy {f00=0x0010, f01=0x8190, f02=» $ "0 6 * ( H + & X - : h / x 1 * 5 : 7 # 9 0 = ? 8 J F " D d R&0X 0X 4 R ?R@ )
0x07578c…075920 Dummy {f00=0x0010, f01=0x8190, f02=» ^ 4 g 0 o0 & ( q : u $ J w0 & Z J F " D @ 2 R R 0X 4 R 0X L4 H 0X _ A A* R H"" EL RME R LMCH` Ib l 4 D
0x075920…075ab4 (1, 148) Dummy {f00=0x0012, f01=0x8190, f02=» J F " D ,aC ` L0X _ RM R RL L R%TL T T R T W RL R R b r 0 0 D F
0x075ab4…075c48 Dummy {f00=0x0012, f01=0x8190, f02=» : $ ( "0 L 8 + J > Z J F " D 4 0X 4 0X GK 4 R R LMCT C R CT 4 4 A)!BL l G J P S ( `
0x075c48…075ddc Dummy {f00=0x0012, f01=0x8190, f02=» 4 A)!BL @)a F a F4 C EL L R L! t 2 B T d v
0x075ddc…075f70 Dummy {f00=0x0012, f01=0x818e, f02=» 0 J F " D RL RL RL RLH RL R6 z ( _ RL RL R LL5LT L RM L R * x " 0
0x075f70…076104 Dummy {f00=0x0012, f01=0x8190, f02=» 0 C * @ < 6 L l ~ ! # %0 & ( . /
0x076104…076298 Dummy {f00=0x0012, f01=0x818e, f02=» J C0 E F * O D < L ^ & n & | B " ( & ) & & &
0x076298…07642c Dummy {f00=0x0012, f01=0x8190, f02=» " ( $ SLUTD 4 $ J 99999 Z " p ( Z300 $ 9999 " & 2 &
0x07642c…0765c0 Dummy {f00=0x0012, f01=0x8190, f02=» ADM $ & $ ZZ 6 " H ( X - d & t ADM $ & & KASSE]BNING $ & &
0x0765c0…076754 (1, 149) Dummy {f00=0x0041, f01=0x8190, f02=» $ & f ZZZ * " w > & N POST-DATO $ v & k 99E-99E-99 " ( & KASSELUKNING
0x076754…0768e8 Dummy {f00=0x0041, f01=0x8190, f02=» & ZZ " * & : & H & V KONTONRK d $ | & $ / & ! 99999999E-99 " ! " BTTT.TTT.TTT.TT9.99-
0x0768e8…076a7c Dummy {f00=0x0041, f01=0x818e, f02=» ( % + & $ & 2 & KASSELUKNING B $ & ^ & n ' BEHOLDNINGST[LLERE | $ ' & & & ( SLET PERIODE $ (
0x076a7c…076c10 Dummy {f00=0x0041, f01=0xc18e, f02=» $ + & , SUBTOTAL " $ , : & J - KVIT X $ - l & | & & & . BILAG $ . $ ( /
0x076c10…076da4 Dummy {f00=0x0041, f01=0x0190, f02=» 8 H IDENT T:ATC0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:ATC0 @ T:ATC0A R > : T:DTC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 f > : D:CB40A C:CB40A D:CB604 C:CB60F D:CB70 C:CB70 D:CD30 > : C:CB30 D:CD40 C:CB40 D:G
0x076da4…076f38 Dummy {f00=0x0041, f01=0x0190, f02=» * > * & . * & = * & [ * & y * &
0x076f38…0770cc Dummy {f00=0x0041, f01=0x0190, f02=» p * & * & - P 8 2 < * & K 0 F j * & i 1 d * & * &
0x0770cc…077260 Dummy {f00=0x0041, f01=0x40b8, f02=» ~ , ( " $ , ( & ( * , . 0 2 4 N + 6 8 : < > ~ 4 @ * & * &
0x077260…0773f4 (1, 150) Dummy {f00=0x0042, f01=0x40d8, f02=» 8 H IDENT T:DTC0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:DTC0 @ T:DTC0D R REGGO f * & TC * v * @ * &
0x0773f4…077588 Dummy {f00=0x0042, f01=0x0190, f02=» 8 H IDENT T:ABC0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:ABC0 @ T:ABC0A R > : T:DBC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 f > : D:CB40A C:CB40A D:CB604 C:CB60F D:CB70 C:CB70 D:CD30 > : C:CB30 D:CD40 C:CB40 D:G
0x077588…07771c Dummy {f00=0x0042, f01=0x0190, f02=» * > * & . * & = * & [ * & y * &
0x07771c…0778b0 Dummy {f00=0x0042, f01=0x0190, f02=» 0 p * & P 1 d * & - < * & K j * & i a * & BC * & T
0x0778b0…077a44 Dummy {f00=0x0042, f01=0x4038, f02=» 2 4 6 8 : < > "@ 4 * & - < * & K j * & i a * & BC * & T
0x077a44…077bd8 Dummy {f00=0x0042, f01=0x40d8, f02=» 8 H IDENT T:DBC0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:DBC0 @ T:DBC0D R BCGOC f * & BC * v * @ BC * & T
0x077bd8…077d6c Dummy {f00=0x0042, f01=0x0190, f02=» 8 H IDENT T:AKA0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:AKA0 @ T:AKA0A R . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 f * & @ * & P * & =
0x077d6c…077f00 Dummy {f00=0x0042, f01=0x401a, f02=» y @ 84-01-24 F1 O1111 840124 EV T:AKA0 @ T:AKA0A R . * T:DKA0 D:CB90 C:CB90 D:TB90 Z:TB90 f * & @ * & P * & =
0x077f00…078094 (1, 151) Dummy {f00=0x005d, f01=0x40bc, f02=» 8 H IDENT T:DKA0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:DKA0 @ T:DKA0D R KBVGO f , ( KA @ * * v @ * & P * & =
0x078094…078228 Dummy {f00=0x005d, f01=0x4162, f02=» 8 H IDENT T:AGA0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:AGA0 @ T:AGA0A ^ R . * T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 f * & 0 * & * & = a
0x078228…0783bc Dummy {f00=0x005d, f01=0x40bc, f02=» 8 H IDENT T:DGA0 TRA 4.2 84-01-24 F1 O1111 840124 EV T:DGA0 @ T:DGA0D R GTPGO f , ( GA @ * * v @
0x0783bc…078550 Dummy {f00=0x005d, f01=0x40ee, f02=» 8 H IDENT T:AD00 TRA 4.2 84-01-24 F1 O1111 840124 EV T:AD00 @ T:AD00A " R T:DD00 D:CB90 C:CB90 f * & ` D0 * @
0x078550…0786e4 Dummy {f00=0x005d, f01=0x40ba, f02=» 8 H IDENT T:DD00 TRA 4.2 84-01-24 F1 O1111 840124 EV T:DD00 @ T:DD00D R DC1GO f * & D0 * v @ D0 * @
0x0786e4…078878 Dummy {f00=0x005d, f01=0x40d4, f02=» 8 H IDENT T:ATAB TRA 4.2 84-01-24 F1 O1111 840124 EV T:ATAB @ T:ATABA R . * T:ABC0 T:AD00 T:AGA0 T:AKA0 T:ATC0 f " U@ :A @ * @
0x078878…078a0c Dummy {f00=0x005d, f01=0x40a8, f02=» 8 H IDENT U:BTAB TRA 4.2 84-01-24 F1 O1111 840124 EV U:BTAB @ U:BTABB R U:TB20 f @ TB2 x :T @ :A @ * @
0x078a0c…078ba0 Dummy {f00=0x005d, f01=0x408e, f02=» 8 H IDENT S:BTAB TRA 4.2 84-01-24 F1 O1111 840124 EV S:BTAB @ S:BTABB R f :B x@ :T @ :A @ * @
0x078ba0…078d34 (1, 152) Dummy {f00=0x005e, f01=0x0190, f02=» 8 H IDENT Z:TB90 TRA 4.2 84-01-24 F1 O1111 840124 EV Z:TB90 @ Z:TB90T R * & f * & * & = * & [
0x078d34…078ec8 Dummy {f00=0x005e, f01=0x0190, f02=» z * & * & F * & t * & - * & K * & i
0x078ec8…07905c Dummy {f00=0x005e, f01=0x018e, f02=» * & & * & T * & * & ; * & Y
0x07905c…0791f0 Dummy {f00=0x005e, f01=0x0190, f02=» h * & * & 6 * & d * & + * & I * & g
0x0791f0…079384 Dummy {f00=0x005e, f01=0x0190, f02=» x * & * & D * & r * & 9 * & W * & u
0x079384…079518 Dummy {f00=0x005e, f01=0x0190, f02=» * & $ * & R * & ) * & G * & e *
0x079518…0796ac Dummy {f00=0x005e, f01=0x0190, f02=» * & * & 2 * & ` * & 7 * & U * & s
0x0796ac…079840 Dummy {f00=0x005e, f01=0x417a, f02=» t * & * & @ * & ' n * & E * & c * &
0x079840…0799d4 (1, 153) Dummy {f00=0x005f, f01=0x40ee, f02=» 8 H IDENT D:TB90 TRA 4.2 84-01-24 F1 O1111 840124 EV D:TB90 @ D:TB90T R * & B f * & = B @ * &
0x0799d4…079b68 Dummy {f00=0x005f, f01=0x410c, f02=» 8 H IDENT C:CB90 TRA 4.2 84-01-24 F1 O1111 840124 EV C:CB90 @ C:CB90C R * & @ JKLM f * & NO = L = L @
0x079b68…079cfc Dummy {f00=0x005f, f01=0x40be, f02=» 8 H IDENT D:CB90 TRA 4.2 84-01-24 F1 O1111 840124 EV D:CB90 @ D:CB90C R * & " $ & f F " @
0x079cfc…079e90 Dummy {f00=0x005f, f01=0x40e6, f02=» 8 H IDENT C:CB10 TRA 4.2 84-01-24 F1 O1111 840124 EV C:CB10 @ C:CB10C R * & f $ 6 ! 6 @
0x079e90…07a024 Dummy {f00=0x005f, f01=0x40ee, f02=» 8 H IDENT D:CB10 TRA 4.2 84-01-24 F1 O1111 840124 EV D:CB10 @ D:CB10C R * & B f * & = % B @
0x07a024…07a1b8 Dummy {f00=0x005f, f01=0x0190, f02=» 8 H IDENT C:CB20 TRA 4.2 84-01-24 F1 O1111 840124 EV ! C:CB20 ! @ C:CB20C ! R * & ! f * & ! * & = ! * & [
0x07a1b8…07a34c Dummy {f00=0x005f, f01=0x4066, f02=» ! z " " < " P@ " b ! f * & ! * & = ! * & [
0x07a34c…07a4e0 Dummy {f00=0x005f, f01=0x40ee, f02=» 8 H IDENT D:CB20 TRA 4.2 84-01-24 F1 O1111 840124 EV # D:CB20 # @ D:CB20C # R * & B # f * & Z # = # B # @ # & [
0x07a4e0…07a674 (1, 154) Dummy {f00=0x0061, f01=0x0190, f02=» 8 H IDENT C:CB30 TRA 4.2 84-01-24 F1 O1111 840124 EV $ C:CB30 $ @ C:CB30C $ R * & 8 6 $ f * & $ * & = $ * & [
0x07a674…07a808 Dummy {f00=0x0061, f01=0x0190, f02=» $ z * & % * & % F * & % t * & - % * & K % * & i
0x07a808…07a99c Dummy {f00=0x0061, f01=0x018e, f02=» % * & & & * & & T * & & * & ; & * & Y &
0x07a99c…07ab30 Dummy {f00=0x0061, f01=0x0190, f02=» & h * & ' * & ' 6 * & ' d * & + ' * & I ' * & g
0x07ab30…07acc4 Dummy {f00=0x0061, f01=0x0190, f02=» ' x * & ( * & ( D * & ( r * & 9 ( * & W ( * & u
0x07acc4…07ae58 Dummy {f00=0x0061, f01=0x0190, f02=» ( * & ) $ * & ) R * & ) ) * & G ) * & e ) *
0x07ae58…07afec Dummy {f00=0x0061, f01=0x0190, f02=» * & * * & * 2 * & * ` * & 7 * * & U * * & s
0x07afec…07b180 Dummy {f00=0x0061, f01=0x018e, f02=» * t * & + & + @ & ' + V & E + f & c + v & + & + & + & + & + & + & 5 + & S + &
0x07b180…07b314 (1, 155) Dummy {f00=0x0061, f01=0x4098, f02=» + & , & , * & TCTDTETFTGTHTITJT , ( KTLTMTN* , V , n , @ , + & + & + & + & + & 5 + & S + &
0x07b314…07b4a8 Dummy {f00=0x0061, f01=0x40f2, f02=» 8 H IDENT D:CB30 TRA 4.2 84-01-24 F1 O1111 840124 EV - D:CB30 - @ D:CB30C - R * & F - f * & _ & { B - = - F - @ - & S + &
0x07b4a8…07b63c Dummy {f00=0x0061, f01=0x0190, f02=» 8 H IDENT C:CB40 TRA 4.2 84-01-24 F1 O1111 840124 EV . C:CB40 . @ C:CB40C . R * & . f * & . * & = . * & [
0x07b63c…07b7d0 Dummy {f00=0x0061, f01=0x4186, f02=» . z * & OD-KOM / & F / F & / & - / l & K / | * & i 0000899 0 / * & / * & @ A B
0x07b7d0…07b964 Dummy {f00=0x0061, f01=0x40f2, f02=» 8 H IDENT D:CB40 TRA 4.2 84-01-24 F1 O1111 840124 EV 0 D:CB40 0 @ D:CB40C 0 R * & F 0 0 0 f * & 0 0 = s 0 F 0 @ 0 @ A B
0x07b964…07baf8 Dummy {f00=0x0061, f01=0x0190, f02=» 8 H IDENT C:CB60 TRA 4.2 84-01-24 F1 O1111 840124 EV 1 C:CB60 1 @ C:CB60C 1 R * & x 1 f * & 1 & = 1 & [ 1 & y 1 & 1 &
0x07baf8…07bc8c Dummy {f00=0x0061, f01=0x412e, f02=» 1 & 2 & 2 & 2 , & 2 < & 2 L & ; 2 & Y 2 l & w 2 | & 2 & 2 & 2 & 2 & 2 $ + * 2
0x07bc8c…07be20 Dummy {f00=0x0061, f01=0x40ca, f02=» 8 H IDENT D:CB60 TRA 4.2 84-01-24 F1 O1111 840124 EV 3 D:CB60 3 @ D:CB60C 3 R * & . 3 f ; 0 ; = 3 . 3 @ 3 & 2 $ + * 2
0x07be20…07bfb4 (1, 156) Dummy {f00=0x0061, f01=0x0190, f02=» 8 H IDENT C:CB70 TRA 4.2 84-01-24 F1 O1111 840124 EV 4 C:CB70 4 @ C:CB70C 4 R $ & 4 f & 4 & = 4 & [ 4 & y 4 & 4 & 4 & 4 & 4
0x07bfb4…07c148 Dummy {f00=0x0061, f01=0x40a8, f02=» 4 & 5 & ; 5 & Y 5 . & w 5 > & 5 N & 5 ^ 5 n 5 ~ 5 @ 5 & [ 4 & y 4 & 4 & 4 & 4 & 4
0x07c148…07c2dc Dummy {f00=0x0061, f01=0x40c6, f02=» 8 H IDENT D:CB70 TRA 4.2 84-01-24 F1 O1111 840124 EV 6 D:CB70 6 @ D:CB70C 6 R * & * 0 0 6 f F 6 * 6 @ 6
0x07c2dc…07c470 Dummy {f00=0x0061, f01=0x0190, f02=» 8 H IDENT Z:TB10 TRA 4.2 84-01-24 F1 O1111 840124 EV 7 Z:TB10 7 @ Z:TB10T 7 R * & 7 f * & 7 * & = 7 * & [
0x07c470…07c604 Dummy {f00=0x0061, f01=0x4090, f02=» 7 z * & 8 8 F 8 f 8 z@ 8 * & 7 * & = 7 * & [
0x07c604…07c798 Dummy {f00=0x0061, f01=0x40f2, f02=» 8 H IDENT D:TB10 TRA 4.2 84-01-24 F1 O1111 840124 EV 9 D:TB10 9 @ D:TB10T 9 R * & F 0 0 0 9 f * & 0 0 0 0 0 #0 &0 * 9 = + , 9 F 9 @ 9 [
0x07c798…07c92c Dummy {f00=0x0061, f01=0x4126, f02=» 8 H IDENT Z:GB10 TRA 4.2 84-01-24 F1 O1111 840124 EV : Z:GB10 : @ Z:GB10G : R * & : f * & : & = : [ * : l
0x07c92c…07cac0 Dummy {f00=0x0061, f01=0x40ee, f02=» 8 H IDENT D:GB10 TRA 4.2 84-01-24 F1 O1111 840124 EV ; D:GB10 ; @ D:GB10G ; R * & B 0 ; f * & 0 0 0 0 0 #0 *0 10 ; = 8 ( ? ; B ; @ ; * : l
0x07cac0…07cc54 (1, 157) Dummy {f00=0x001d, f01=0x4164, f02=» 8 H IDENT Z:GB20 TRA 4.2 84-01-24 F1 O1111 840124 EV < Z:GB20 < @ Z:GB20G < R * & < f * & < * & = < * & [
0x07cc54…07cde8 Dummy {f00=0x001d, f01=0x40ee, f02=» 8 H IDENT D:GB20 TRA 4.2 84-01-24 F1 O1111 840124 EV = D:GB20 = @ D:GB20G = R * & B = f * & = = L = B = @ = & [
0x07cde8…07cf7c Dummy {f00=0x001d, f01=0x4102, f02=» 8 H IDENT Z:GB30 TRA 4.2 84-01-24 F1 O1111 840124 EV > Z:GB30 > @ Z:GB30G > R * & > f & > & = > [ * > d > [ d > @ >
0x07cf7c…07d110 Dummy {f00=0x001d, f01=0x40ee, f02=» 8 H IDENT D:GB30 TRA 4.2 84-01-24 F1 O1111 840124 EV ? D:GB30 ? @ D:GB30G ? R * & B 0 0 0 0 ? f * & 0 0 0 # + ? @ ? = B K ? B ? @ ? [ d > @ >
0x07d110…07d2a4 Dummy {f00=0x001d, f01=0x40f0, f02=» 8 H IDENT Z:GB40 TRA 4.2 84-01-24 F1 O1111 840124 EV @ Z:GB40 @ @ Z:GB40G @ R * & @ f & @ & = @ [ @ @ [ @ @ @ [ d > @ >
0x07d2a4…07d438 Dummy {f00=0x001d, f01=0x40d6, f02=» 8 H IDENT D:GB40 TRA 4.2 84-01-24 F1 O1111 840124 EV A D:GB40 A @ D:GB40G A R * & : 0 0 0 A f ( $ 0 < A : A @ A [ @ @ @ [ d > @ >
0x07d438…07d5cc Dummy {f00=0x001d, f01=0x0190, f02=» 8 H IDENT U:TB20 TRA 4.2 84-01-24 F1 O1111 840124 EV B U:TB20 B @ U:TB20T B R * & . B f * & B * & = B * & [
0x07d5cc…07d760 Dummy {f00=0x001d, f01=0x0190, f02=» B z * & K C * & C F * & C t * & - C * & K C * & i
0x07d760…07d8f4 (1, 158) Dummy {f00=0x0031, f01=0x401e, f02=» C D @ D K C * & C F * & C t * & - C * & K C * & i
0x07d8f4…07da88 Dummy {f00=0x0031, f01=0x40ee, f02=» 8 H IDENT D:TB20 TRA 4.2 84-01-24 F1 O1111 840124 EV E D:TB20 E @ D:TB20T E R * & B E f * & 0 0 0 0 E = E B E @ E C * & i
0x07da88…07dc1c Dummy {f00=0x0031, f01=0x40ca, f02=» 8 H IDENT D:CD30 TRA 4.2 84-01-24 F1 O1111 840124 EV F D:CD30 F @ D:CD30C F R * & . " < < F f 0 v0 x { < F . F @ F
0x07dc1c…07ddb0 Dummy {f00=0x0031, f01=0x40d2, f02=» 8 H IDENT D:CD40 TRA 4.2 84-01-24 F1 O1111 840124 EV G D:CD40 G @ D:CD40C G R * & 6 8 h G f $ 0 0 0 G 6 G @ G
0x07ddb0…07df44 Dummy {f00=0x0031, f01=0x40ce, f02=» 8 H IDENT D:TD20 TRA 4.2 84-01-24 F1 O1111 840124 EV H D:TD20 H @ D:TD20T H R * & 2 0 0 0 0 0 0 $ H f 0 *0 1 4 0 H 2 H @ H G
0x07df44…07e0d8 Dummy {f00=0x0031, f01=0x018e, f02=» 8 H IDENT KMD08 TRA 4.2 84-01-24 F1 O1111 840124 EV I DC1GO GTPGO KBVGO REGGO I @ $$$TRAD I b & " DC1GO M GTPGO > KBVGO # REGGO I t 8 4 DCTASKD GETTIDA OFFLNE4 PRINT T1GO1 T:DSC00 VDUKB I I *D I D I
0x07e0d8…07e26c Dummy {f00=0x0031, f01=0x40f0, f02=» I @ J J F " D 0X ! LhN T LjN _ ?R L0R L - %-L -L0R R_ J B J h F G@ J x I J K J N J @L0R L !L0R 0R J N P J @ J *D I D I
0x07e26c…07e400 Dummy {f00=0x0031, f01=0x0190, f02=» 8 H IDENT RGSUBS TRA 4.2 84-01-24 F1 O1111 840124 EV p > : CYCLRhCYK CYKINT DIVTR ENTER FMTNXT KKCH KKTRP KORT p @ & " KVITR LSTINTT MODP2 SUBTOT-hSUM p $$$TRAC p @ < CYCLR hCYK a CYKINTS 2 DIVTR ENTER FMTNXT KKCH p @ < KKT
0x07e400…07e594 (1, 159) Dummy {f00=0x0031, f01=0x0190, f02=»V FRMXKT FRMXSPX FRMXTAF FRMXVOK GRASPVO LINOPTM p B > SETDEBC SETKREC SLUTC SPCHK5T SPCLRAY SPERR SPINF1M SPLIN8 q : > : T:DSC0 T:DSC1 T:EDWRX T:ERASF T:TESTK T:WAITO WCHECKM q & " WRITJTC WRITLOC WRITVOS WTALLYS q 0 C q 0 C
0x07e594…07e728 Dummy {f00=0x0031, f01=0x018e, f02=»H L R_ H A 0R P @ H q b B r D * r 2 H > r B I r R K @ r d N r t S & r V Y r Y 2 r c0 Y r e r g r i 4 r m 0 r J F
0x07e728…07e8bc Dummy {f00=0x0031, f01=0x0190, f02=» r 0 ' s s 2 s * 4 s : . s J : s Z 0 s j s z 8 s s 0 s J F " D R H H 0X @ R RH ^H [) LW R 0X 40X R 0X 0X R0X P 0R 0 s
0x07e8bc…07ea50 Dummy {f00=0x0031, f01=0x018e, f02=» 4 s 0 $ t 0 $ t " 0 $ t 4 J F " D X Y W 0X ! L L, L6 L: R0X R 0X L4 - L t F 0 t 0 t 0 t 0 t 0 t 0 t "0
0x07ea50…07ebe4 Dummy {f00=0x0031, f01=0x0190, f02=» J u M u k > u & l u 6 n @ u H r K u X t u j v B u z y u J F " D @ L R@ ) L R 4 4 H &I #I H I RL R L R R L@ 4 u u $ u
0x07ebe4…07ed78 Dummy {f00=0x0031, f01=0x0190, f02=»! L LH r) Ln R L@ We( K )A R u p v . v @ $ v P v ` v r v v v v v J F " D LWQ RTR RTNK ( L, LW=( R LW.(
0x07ed78…07ef0c Dummy {f00=0x0031, f01=0x018e, f02=» 7 v J F " D RT @ ! L LW L 4 4 ( ! L ! L ! L w I w ` W w r ] w } C w CYKLE w J F " D @( ! L ( ! L R 4 I 6 * MWW I I A L w
0x07ef0c…07f0a0 Dummy {f00=0x0031, f01=0x0190, f02=» J F " D L RW W I I A L L RW W H I A R0X RWpWs RWjH x 0 W x R 0 W x d x v : x 2 x TOTAL x x 4 x 0 x > x x
0x07f0a0…07f234 (1, 160) Dummy {f00=0x0032, f01=0x0190, f02=» x y * y $ y 0 y @ 6 y P # , y ` 9 a y p > y J F " D L A R@ @ RW L R2 RR0X RW W 4 4 H I R 4 R4 y c0 A y f0 A y i
0x07f234…07f3c8 Dummy {f00=0x0032, f01=0x0190, f02=» L L L L L R A R@ 6 y j * z ( 0 % z 8 0 % z J & z J F " D L R_&@ @ _O% L L R P A I @ 4 z l z z 0 R z 0 R z 0 z
0x07f3c8…07f55c Dummy {f00=0x0032, f01=0x018e, f02=» D z J F " D L L L L@ @ @ @ 0X 4 I 5I A A L R R LW 0X L R R { 6 { Z { j , { z SUBTOTAL { ' } { - { 5 { : B { < : { ? 0 { J F " D
0x07f55c…07f6f0 Dummy {f00=0x0032, f01=0x0190, f02=» k D | m 6 | r , | $ J F " D @ L P RW 0X R R0X R 4 4 I | 4 > | | @ | * | 0 | 0 | TOTAL |
0x07f6f0…07f884 Dummy {f00=0x0032, f01=0x0190, f02=» RL R LA L LWX LH L RL R I L@ R H 0X @ R@ | } H Z } X } j 0 } | 2 } } 4 } } 0 } , } J F " D R # L ) L L 0
0x07f884…07fa18 Dummy {f00=0x0032, f01=0x4034, f02=» RW @ LW 4 4 } ~ @ ~ 0
0x07fa18…07fbac Dummy {f00=0x0032, f01=0x8190, f02=» @ H IDENT ADM45 TRA 4.2 84-01-25 F1 O1111 840125 EV OD-KOM & " A45ELJ INCSLT INCSTR PRJOUR H $$$TRAM r . * A45ELJ INCSLTI t INCSTRJ V PRJOUR D @ ADMRETM KBTESTA RADEL RAREAD5 T:WAIT1 T:WRIT2 WRITJT- WRITLO *M
0x07fbac…07fd40 Dummy {f00=0x0032, f01=0xc17a, f02=» ' 0 < 2 & 40 < 6 < L[SEFEJL ***** H > h J F " D HQ I A L R W RT @ L RL?R RP, RP 0X W& L R L P L0X x A F O J F " D @0X R
0x07fd40…07fed4 (1, 161) Dummy {f00=0x0055, f01=0x818e, f02=» @ H IDENT LOG TRA 4.2 84-01-27 F1 O1111 840127 EV OD-KOM ELOPST WRITLO H $$$TRAG b ELOPST WRITLO t > : FRM1ELG FRM2ELA FRM3EL4 FRMXELF INCSLT PRJOUR RAREADO RAWRIT a
0x07fed4…080068 Dummy {f00=0x0055, f01=0x8190, f02=» 7 . ? J F " D H 8 RT$( R RT R RT R RT W R RT W R_, R 0@ L 4 L , L z N0 T [ J F " D @ l $ R L T R 4 R 4 " * $ W $ 4
0x080068…0801fc Dummy {f00=0x0055, f01=0xc16e, f02=» " D 4 A A HQ2 L R L T ! L W @ R RW A R RH * N < ` r 0 < 0 < < 0 < 0 < J F " D L@ @ 4 " L
0x0801fc…080390 Dummy {f00=0x0055, f01=0x0190, f02=» @ H IDENT ADM45 TRA 4.2 84-01-30 F1 O1111 840130 EV OD-KOM & " A45ELJ INCSLT INCSTR PRJOUR H $$$TRAM r . * A45ELJ INCSLTI q INCSTRJ S PRJOUR < 8 ADMRETM KBTESTA RADEL RAREAD0 T:WAIT1 T:WRIT3 WRITJT- *M
0x080390…080524 Dummy {f00=0x0055, f01=0x4176, f02=» % - < / 10 < 0 : B = R J F " D HQ I A LW RT @ L?R RL RP, RP RL W& L R L P W 0X 0X b B E0 I L M J F " D @ R L 0 RL
0x080524…0806b8 Dummy {f00=0x0055, f01=0xc008, f02=»@ . 8 < : 0 <0 < @ J F " D HQ I A LW RT @ L?R@ RLA RP2 RP 0X @ RLA W, L R L R E H M V [ J F " D @
0x0806b8…08084c Dummy {f00=0x0055, f01=0x0190, f02=» 8 H IDENT RGSTRT TRA 4.2 84-01-30 F1 O1111 840130 EV < 8 CNFWRT CONFRD CONFWR CONRDX T1GO TCONFR TCONFW @ $$$TRAS @ < CNFWRT CONFRDC & CONFWRN n CONRDX b T1GO TCONFR TCONFWS D @ hADM ASGFILC ASGVOL& CLBEH C
0x08084c…0809e0 Dummy {f00=0x0055, f01=0x0190, f02=»PCLRNC SPLIN8E STRTWRO T:ATTFS T:DSC0O x : 6 T:GETIS T:PAUSA T:RSTR4 T:USE UPDAKKM WRITID3 ZEROR . 4 l : | # , ' 6 ) N , S . 1 4 7
0x0809e0…080b74 (1, 162) Dummy {f00=0x0056, f01=0x0190, f02=» G ( [ FD g } D . J F " D @ A 1XF R 6 _/ L d R A@)6 l _Q 5L @ 0
0x080b74…080d08 Dummy {f00=0x0056, f01=0x0190, f02=» 0 0 B J F " D # L] R L5 f_ A)WO@) RL RL RL RL R6 ( _ RL RL R LL T &
0x080d08…080e9c Dummy {f00=0x0056, f01=0x0190, f02=» 0 0 0 " J F " D 5L ) R_0 RL RL R LLXL < R_C RL R W R ) L L I HI) # L 4 2 0 * % FD J F " D f A&A 0X 1XF R6 _ L d
0x080e9c…081030 Dummy {f00=0x0056, f01=0x0190, f02=» w : | n ~ * $ J F " D @ " @( 0X A 0X 1XF R6 _2 L R :_/0X R<R 4 0 0 : : * :
0x081030…0811c4 Dummy {f00=0x0056, f01=0x0190, f02=» ( * $ 0 A 4 F V * f v * " 0 A 0 0 >
0x0811c4…081358 Dummy {f00=0x0056, f01=0x0190, f02=» # 0 $ & ( 8 0 ;0 / @ J F " D L Lb M I " 4I 0X A 1XF R6 _ _ ?R L$ R C . E * G > N 2 T 0 U W (
0x081358…0814ec Dummy {f00=0x0056, f01=0x0190, f02=»L C @' C R C L R LM CT f 0 R $ SLUTDR 6 L L 0 L ^ 8 p J F " D I' LP L h M P Lb M q _J! L 0X? 6 0 0
0x0814ec…081680 Dummy {f00=0x0056, f01=0x0190, f02=» E R R@ ,Ex A R@ W + L f 0 Z $ 0 Z 6 H n X @ h > x " 0 # % ( J F " D L L E R R RK W= RM A 1XF R6 _ _ C @'_ A'_
0x081680…081814 (1, 163) Dummy {f00=0x0057, f01=0x0190, f02=» } 8 J F " D @ @'W I A$ R?R q I"%_ 0X? 0X_ ELA" " @ R 0X? 0X_ R0X? 6 f v 8 2 0 W 0 W SUBTOTAL
0x081814…0819a8 Dummy {f00=0x0057, f01=0x0190, f02=» 0 " 4 0 D 0 R V 0 R j 0 ~ 0 R 0 R J F " D R ?R q L?R L R L T - L % L % L LW L 4 4
0x0819a8…081b3c Dummy {f00=0x0057, f01=0x0190, f02=» 0 q !0 " ' b 4 - b D 3 b T 9 b d ? b t J F " D ! L - L % L % L L LW L L R L 4 R5 T4 R6 T. R7 T( R8 T" R E b K b Q b W
0x081b3c…081cd0 Dummy {f00=0x0057, f01=0x0190, f02=» J F " D @9 T R: T R; T R< T R= T RD 4 L R L 4 xE R L5 TF R L6 T X 0 h z 0 0 0 0
0x081cd0…081e64 Dummy {f00=0x0057, f01=0x0190, f02=»R L; T R L< T R L= T R LD 4 h : & 0 6 H : X n h x & & B " ( - & & START
0x081e64…081ff8 Dummy {f00=0x0057, f01=0x0190, f02=» ( f & KOMMUNE NR . $ H & A X ZZZZ j " ~ & VOL 2 VOL 3 VOL 49 $ & & A & &
0x081ff8…08218c Dummy {f00=0x0057, f01=0x0190, f02=» & A & & A * & < & A L & ^ & n , ( & DSN05 DSN06 DSN07 DSN08 | $ & & A & & A &
0x08218c…082320 Dummy {f00=0x0057, f01=0x0190, f02=»" & MASKIN NRD $ 6 & A F 999E X " q l & | BEHOLDNINGST[LLERE $ & g 99 " & EJ
0x082320…0824b4 (1, 164) Dummy {f00=0x0059, f01=0x0190, f02=» & ZZZZ9= " 0 ( @ L & VOLUME NR j $ 99999= " & DAGS-DATO $ &
0x0824b4…082648 Dummy {f00=0x0059, f01=0x0190, f02=» ( & $ VOLUME NR 2 $ L & OK & ? l & z $ K ( & OPSTART $ K & ? &
0x082648…0827dc Dummy {f00=0x0059, f01=0x4056, f02=» ( , ' % " @ 0X L R _ 0X R4 @@ R L & OK & ? l & z $ K ( & OPSTART $ K & ? &
0x0827dc…082970 Dummy {f00=0x0059, f01=0x0190, f02=» 8 H IDENT RGKLAR TRA 4.2 84-02-03 F1 O1111 840203/EV B > BCKUP CLBEH CLEDB CLEJ LAMPOF LAMPON RGA120 RGADM SKIFT @ D @ SLUTIDK SOPRD STRTID STRTWR3 TCLOSE1 TR2GEN0 WAHEAD WALINE ZEROP $$$TRAK D @ BCKUP i CLBEH H CLEDB
0x082970…082b04 Dummy {f00=0x0059, f01=0x0190, f02=»AHEADC 4 WALINEE N ZEROM B > hADM ASGFILI ASGVOLU BACKUPS CLEAR8S CLSVOL4 CNFWRTA CONFWRS " @ < CONRDXi CRKJH FRMXVOW GRASPVN INITRG KORTL PACKCL RADEL h D @ RAREADG RAWRITG SETDEBC SETKREE SLUTC SPCLRAC SPCLRNC SPLIN8 D @ T:ATTFi T:DELAF T
0x082b04…082c98 Dummy {f00=0x0059, f01=0x0190, f02=» , , < L l !0 W | # 2 $ & . * + , / 10 W 40
0x082c98…082e2c Dummy {f00=0x0059, f01=0x0190, f02=» H0 M O @ * R : T H J U Z l ^ l | f * h H i t 2 u w , { |
0x082e2c…082fc0 Dummy {f00=0x0059, f01=0x0190, f02=» 0 > 6 0 0 @ R 0 b 0 t J F " D @ @ @ @ @ @ @ @ @ @ L L L L0X 0X L R L + L 0 0 0
0x082fc0…083154 (1, 165) Dummy {f00=0x002e, f01=0x0190, f02=» J 0 EJ-EDB T[LLER , J TOTAL Z ! p $0 O 8 ; KASSE-KONTO >0 A J F " D y LL L L R "_] L R L
0x083154…0832e8 Dummy {f00=0x002e, f01=0x0190, f02=»VERSUR KONTONR REMIT u0 E w . > J F " D @ R !H R! L1 ! L L L L L R 0H R N TOTAL A H 0 O 0 O 0 O
0x0832e8…08347c Dummy {f00=0x002e, f01=0x0190, f02=» R ?R X 0 0 ( 0 : 0 L 0 % ^ EJ-EDB T[LLER p 4 0 J J F " D " y L y L_ L L 4 L L D R 0
0x08347c…083610 Dummy {f00=0x002e, f01=0x0190, f02=» " . y y u L'# L 0X L R R _:0X 4 C EDB-T[LLERE D E H ` F p H 4 L0 P0 T0 Z0 ]0 J F " D @ L RL R L L LI
0x083610…0837a4 Dummy {f00=0x002e, f01=0x0190, f02=» D H $ 4 N F V J F " D I L L L L L R R RL R _g R f N J F " D R " _ I /
0x0837a4…083938 Dummy {f00=0x002e, f01=0x0190, f02=» L% L W L L | C 6 : J0 % J ^ 2 _ % l c , | { SLET SALDO J F " D @R 0X 4 L P 1XFA R6 _.K 1 L W SLET PERIODE
0x083938…083acc Dummy {f00=0x002e, f01=0x0190, f02=» : 0 U J F " D K < L W L W L L L R 2 0X R R!0X L 0 0 < ~ : 0 < 0 < 0 < 0 < 6
0x083acc…083c60 Dummy {f00=0x002e, f01=0x0190, f02=» ( "0 : * ( L + & - : l / | 1 * 5 : 7 # 9 0 = ? 8 J F " D d R&0X 0X 4 R ?R@
0x083c60…083df4 (1, 166) Dummy {f00=0x002e, f01=0x0190, f02=»0 & [ B ` 0 h0 & , j V > n $ N p0 & ^ J F " D @ 2 R R 0X 4 R 0X L4 R A* R H"" EL RME R LMCH` Ib ,aC ` p 4 F
0x083df4…083f88 Dummy {f00=0x002e, f01=0x0190, f02=» ( J F " D L0X _ RM R RL L R%TL T T R T W RL R R RL C : 0 0 0 0 F H
0x083f88…08411c Dummy {f00=0x002e, f01=0x0190, f02=» < 4 $ , 0 H < $ N '0 H ^ 8 p A J F " D 0X 4 0X GK 4 R R LMCT C R CLT 4 4 A)!BL @) a D J M
0x08411c…0842b0 Dummy {f00=0x002e, f01=0x0190, f02=» } , J F " D @MFaMF a F LbM 4 A)!BL @)a F a F4 C EL L R L! RL R >
0x0842b0…084444 Dummy {f00=0x002e, f01=0x0190, f02=» 0 F 0 0 @ J F " D L RL RLH RL R6 z ( _ RL RL R LL5LT L RM L R5 _C R P
0x084444…0845d8 Dummy {f00=0x002e, f01=0x018e, f02=»S L R LM ST ! L L h M P R LM p . > @ P 6 ` p 0 " (
0x0845d8…08476c Dummy {f00=0x002e, f01=0x018e, f02=» J F " D SX* RL S R @ 0X W _ RL RL R LLXL _ RL R T R T L RP L R I F R b t & & B " ( & ) & &
0x08476c…084900 Dummy {f00=0x002e, f01=0x018e, f02=» B99999 " ( . : SLUTD J $ ` 99999 p " ( Z300 $ 9999 " & 2
0x084900…084a94 (1, 167) Dummy {f00=0x002e, f01=0x0190, f02=» $ ADM $ , & < ZZ N " ` ( p - | & ADM $ & & KASSE]BNING $
0x084a94…084c28 Dummy {f00=0x002e, f01=0x0190, f02=» DAG NR $ & f 0 ZZZ B " w V & f POST-DATO t $ & k 99E-99E-99 " ( &
0x084c28…084dbc Dummy {f00=0x002e, f01=0x0190, f02=» $ & & " ZZ 0 " B & R & ` & n KONTONRK | $ & $ / & ! 99999999E-99 " ! " BTTT.T
0x084dbc…084f50 Dummy {f00=0x002e, f01=0x018e, f02=» & & ( % + , & < & J & KASSELUKNING Z $ & v & ' BEHOLDNINGST[LLERE $ ' & & & ( SLET PERIODE
0x084f50…0850e4 Dummy {f00=0x002e, f01=0x0190, f02=» + KRE $ + & , , SUBTOTAL : $ , R & b - KVIT p $ - & & & & . BILAG $ . $ (
0x0850e4…085278 Dummy {f00=0x002e, f01=0x4010, f02=» R @ KRE $ + & , , SUBTOTAL : $ , R & b - KVIT p $ - & & & & . BILAG $ . $ (
0x085278…08540c Dummy {f00=0x002e, f01=0x0190, f02=» @ H IDENT LOG TRA 4.2 84-01-30 F1 O1111 840130 EV OD-KOM ELOPST WRITLO H $$$TRAG b ELOPST WRITLO t > : FRM1ELG FRM2ELA FRM3EL4 FRM4ELF FRMXEL INCSLT PRJOURO RAREAD RAWRITL g
0x08540c…0855a0 Dummy {f00=0x002e, f01=0x018e, f02=» ) C 2 6 = . . J F " D H > RT*( R RT$ R RT R RT R RT W R RT W R_2 R 6@ L @ E R T0 Z a J F " D @ 4 L l $ R L T R 4
0x0855a0…085734 (1, 168) Dummy {f00=0x0030, f01=0x0190, f02=» J F " D 4 4 A A HQ2 L R L T ! L W @ R RW A V f * v < 0 < 0 < < 0 < J F " D
0x085734…0858c8 Dummy {f00=0x0030, f01=0x400c, f02=» @ 4 4 A A HQ2 L R L T ! L W @ R RW A V f * v < 0 < 0 < < 0 < J F " D
0x0858c8…085a5c Dummy {f00=0x0030, f01=0x2008, f02=» L = KMD04 DATE = 80 08 05 1216PACK NBR = 0001 A @ @ 9 @< ? ~ 0
0x085a5c…085bf0 Dummy {f00=0x0030, f01=0x40ee, f02=» 8 H IDENT D:GB30 TRA 4.2 84-01-24 F1 O1111 840124 EV D:GB30 @ D:GB30G R * & B 0 0 0 0 f * & 0 0 0 # + ? @ = B K B @ [ d @
0x085bf0…085d84 Dummy {f00=0x0030, f01=0x40f0, f02=» 8 H IDENT Z:GB40 TRA 4.2 84-01-24 F1 O1111 840124 EV Z:GB40 @ Z:GB40G R * & f & & = [ [ @ [ d @
0x085d84…085f18 Dummy {f00=0x0030, f01=0x40d6, f02=» 8 H IDENT D:GB40 TRA 4.2 84-01-24 F1 O1111 840124 EV D:GB40 @ D:GB40G R * & : 0 0 0 f ( $ 0 < : @ [ @ [ d @
0x085f18…0860ac Dummy {f00=0x0030, f01=0x0190, f02=» 8 H IDENT U:TB20 TRA 4.2 84-01-24 F1 O1111 840124 EV U:TB20 @ U:TB20T R * & . f * & * & = * & [
0x0860ac…086240 Dummy {f00=0x0030, f01=0x0190, f02=» z * & K * & F * & t * & - * & K * & i
0x086240…0863d4 (1, 169) Dummy {f00=0x0030, f01=0x401e, f02=» @
0x0863d4…086568 Dummy {f00=0x0030, f01=0x40ee, f02=» 8 H IDENT D:TB20 TRA 4.2 84-01-24 F1 O1111 840124 EV D:TB20 @ D:TB20T R * & B f * & 0 0 0 0 = B @
0x086568…0866fc Dummy {f00=0x0030, f01=0x40ca, f02=» 8 H IDENT D:CD30 TRA 4.2 84-01-24 F1 O1111 840124 EV D:CD30 @ D:CD30C R * & . " < < f 0 v0 x { < . @ B @
0x0866fc…086890 Dummy {f00=0x0030, f01=0x40d2, f02=» 8 H IDENT D:CD40 TRA 4.2 84-01-24 F1 O1111 840124 EV D:CD40 @ D:CD40C R * & 6 8 h f $ 0 0 0 6 @ B @
0x086890…086a24 Dummy {f00=0x0030, f01=0x40ce, f02=» 8 H IDENT D:TD20 TRA 4.2 84-01-24 F1 O1111 840124 EV D:TD20 @ D:TD20T R * & 2 0 0 0 0 0 0 $ f 0 *0 1 4 0 2 @ B @
0x086a24…086bb8 Dummy {f00=0x0030, f01=0x018e, f02=» 8 H IDENT KMD08 TRA 4.2 84-01-24 F1 O1111 840124 EV DC1GO GTPGO KBVGO REGGO @ $$$TRAD b & " DC1GO M GTPGO > KBVGO # REGGO t 8 4 DCTASKD GETTIDA OFFLNE4 PRINT T1GO1 T:DSC00 VDUKB *D D
0x086bb8…086d4c Dummy {f00=0x0030, f01=0x40f0, f02=» @ J F " D 0X ! LhN T LjN _ ?R L0R L - %-L -L0R R_ B h F G@ x I K N @L0R L !L0R 0R N P @ *D D
0x086d4c…086ee0 Dummy {f00=0x0030, f01=0x0190, f02=»20 t P TIMEOUT & P EDWRT SCREEN,ERAFMT ERASE SCREEN P B ERRC20 F PERRPRT20 X P CBE SPBINW4,='0',ERRC20 h P PERF BELL ( P MOVE SPBINW3,=X'0801' ROW 24 COL. 1 2 P DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW $ P MOVE GSWBCD
0x086ee0…087074 (1, 170) Dummy {f00=0x0030, f01=0x0190, f02=»ROR ~ P* PERREAD ( P SETCUR SET CURSOR AT THE BEGINNING $ P OF THE CURRENT FIELD P PERR100 p * P MOVE SPBINW3,=W'14' REQUESTED LENGTH ~ " P IB SPKEY,ERR105,ERR110,ERR115 PERR105 2 P NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SP
0x087074…087208 Dummy {f00=0x0030, f01=0x0190, f02=» .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2 PERR120 2 P BNZ ERR100 JUMP IF NOT OK @ P* b P PERF DKTEST l P BNOK SETCREAD P* ( P CMP SPBINW2,='0' JUMP IF POWER OFF P BE RETUR " P IB SPBINW2,ERR100,ERRCONT C $ P ER
0x087208…08739c Dummy {f00=0x0030, f01=0x0190, f02=»F CLEAR8 ERASE LAST LINE ( P CBNL SPBINW4,=W'26',CANC IF WARNING & P SUB SPBINW2,='1' ADJUST KEY INDEX L PCANC v 0 P CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 0 P MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS 4 P MOVE :FMTITEM,=C'1' PUT SOMET
0x08739c…087530 Dummy {f00=0x0030, f01=0x018e, f02=»NW2,CLEAR1,CLEAR2,DUMMY 0 P SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2 ! P RET ! T PCLEAR1 ! ` 0 P CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 ! n ( P SET SPCHANGE INDICATE CHANGED FIELD ! PERRC20 ! & P MOVE SPBINW5,$OPT CHECHK IF SPERR ! P C
0x087530…0876c4 Dummy {f00=0x0030, f01=0x0190, f02=» ! ^ PCLEA20 " * P GETABX SPBINW4 GET CURRENT TAB INDEX " , P DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD " D & P MOVE SPBINW5,$OPT CHECK IF SPERR " t P CBE SPBINW5,=W'0',SPERRRET " P B SETCREAD CONTINUE " P* " PSPERRRET " P RET " P* "
0x0876c4…087858 Dummy {f00=0x0030, f01=0x018e, f02=»FMT FRMT " P FSL # P FILLR X'07',1 # P FMEND # 2 P # @ P PEND # H P* # V PERAFMT FRMT # ` P FILLR '1',2 # t P FMEND # P* # P EJECT # PSPLIN8 PROC WRTMES,WRTTYP # P******************** # P* # ( P* SPLIN8
0x087858…0879ec Dummy {f00=0x0030, f01=0x018e, f02=» P* $ $ P* WRTTYP: =0 NO WAIT $ " P* =1 WAIT $ 6 $ P* =2 RETURN $ 2 P* =3 WRITE .NW AND RETURN $ P* $ P******************* $ P CBNG WRTMES,CBIN0,LIN800 $ P MOVE
0x0879ec…087b80 Dummy {f00=0x0030, f01=0x0190, f02=» & P EDWRT .NW,SCREEN,SPFTBMES(WRTMES) % P B LINRET % . PLIN801 % @ " P EDWRT SCREEN,SPFTBMES(WRTMES) % N PLIN800 % t P TBT TBCTASK,LINRET % P CBE WRTTYP,=W'0',LIN8NW % P CBE WRTTYP,=W'2',LINRET % P* READ % PLIN8IN % ( P MOVE SPBINW1,
0x087b80…087d14 (1, 171) Dummy {f00=0x0030, f01=0x0190, f02=»IN820 % PLIN810 & . P NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 & P B LIN820 & N PLIN815 & ` . P NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 & n PLIN820 & P BNOK LIN8IN JUMP IF NOT OK & P & P PERF DKTEST & P & $ P IB SPBINW2,LIN8IN
0x087d14…087ea8 Dummy {f00=0x0030, f01=0x0190, f02=» WAIT & PLIN8NW ' ( P MOVE SPBINW1,=W'3' REQUESTED LENGTH ' " P IB SPKEY,LIN855,LIN860,LIN865 ' H PLIN855 ' n 2 P NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 ' | P B LIN870 ' PLIN860 ' 2 P NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 ' P
0x087ea8…08803c Dummy {f00=0x0030, f01=0x018e, f02=»LINRET ' P RET ( P PEND ( P EJECT ( ( PSPINF1 PROC ( 6 P******************** ( J P* ( f 0 P* SPINF1 - WRITE INF ON FIRST LINE ( p P* ( P******************** ( P MOVE SPBINW1,=X'0117' ( 4 P DSC1 SCREEN,6,SPBINW1 SET CURSO
0x08803c…0881d0 Dummy {f00=0x0030, f01=0x0190, f02=» ( P* ) P* ) PSPINF8 PROC ) P******************** ) 0 P* ) L . P* SPINF8 - WRITE INF ON LAST LINE ) V P* ) P******************** ) P PERF SPLIN8,CBIN4,CBIN2 ) P RET ) P PEND ) P* ) P* ) P EJECT ) (
0x0881d0…088364 Dummy {f00=0x0030, f01=0x0190, f02=»*************** ) z P* * P * " PDKTEST PROC * * P * > " P* TEST IF DISK IS SWITCHED OFF * F P * l P TBF CDKOFF,DKTRET * t P TBT GTMASTFL,DKTRET * . P TBF CDUOVL,DKTRET NO KI IF DISKOVL ON DU * P * P MOVE SPBINW5,=X'0801' * P DSC1
0x088364…0884f8 Dummy {f00=0x0030, f01=0x40bc, f02=» PERF CLEAR8 * P CMP CBIN1,CBIN0 NOK + P RET + 0 P + < PDKTRET + D P CMP CBIN0,CBIN0 OK + R P RET + n P + z P PEND + P* + P* + P + P END + @ + NO KI IF DISKOVL ON DU * P * P MOVE SPBINW5,=X'0801' * P DSC1
0x0884f8…08868c Dummy {f00=0x0030, f01=0x2008, f02=» ,
0x08868c…088820 Dummy {f00=0x0030, f01=0x0190, f02=» K _ _ NO! A A A A A A A A A A A A A A :P A A $ , D + - ; : ( p . 0X " , A L A L @ A A _T : X ,T : X ) A A 6
0x088820…0889b4 (1, 172) Dummy {f00=0x0032, f01=0x0190, f02=»SLET SALDO U J F " D @R 0X 4 L P 1XFA R6 _.K 1 L W V SLET PERIODE V ` SUBTOTAL V | 0 U V 0 U V 0 U V , V ^ V V * V
0x0889b4…088b48 Dummy {f00=0x0032, f01=0x0008, f02=» X p
0x088b48…088cdc Dummy {f00=0x0032, f01=0x0190, f02=» P IDENT RGSUB3 830929 EV P DDUM KMD08 $ P PDIV 8 P* F P ENTRY ASGVOL P P ENTRY CLSVOL f P ENTRY ASGFIL | P ENTRY CYLINE P ENTRY CYOUT P ENTRY CYWRT P ENTRY CYRD P ENTRY CYTRP P* P EXT A
0x088cdc…088e70 Dummy {f00=0x0032, f01=0x018e, f02=»RMXVO P EXT CRVO P* P INCLUDE EQUATE * P EJECT B PASGVOL PROC VOL P P******************** h P* * P* ASSIGN ROUTINE - PER VOLUME P* 4 P* ASSIGNS ALL FILES ON SPECIFIED VOLUME P* 4 P
0x088e70…089004 Dummy {f00=0x0032, f01=0x018e, f02=» P******************** P* $ P IB VOL, C . " P ASG100,ASG200,ASG300,ASG400 B P CBNE VOL,CBIN0,ASGNOK h P* PASG000 ASSIGN CONF DATASET P PERF ASSG,CBIN1,DK01,CBIN1 P B ASGRET P* ( PASG100 ASSIGN ALL
0x089004…089198 Dummy {f00=0x0032, f01=0x0190, f02=» d P BNOK ASGRET ( P PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN P BNOK ASGRET H P TBF CGLREGFL,ASGRET P MOVE CGLRECNR,=D'0' x * P PERF ASSG,CBIN1,DK05,CBIN5 OLD REGSET P BNOK ASGRET P MOVE CGLRECNR,TTGLREC P B ASGRET P*
0x089198…08932c Dummy {f00=0x0032, f01=0x0190, f02=» ASGRET P* ( PASG300 ASSIGN ALL FILES - VOLUME 3 P B ASGOK F P* V ( PASG400 ASSIGN ALL FILES - VOLUME 4 ` 2 P PERF ASSG,CBIN4,DK02,CBIN2 SECOND REG DATASET P B ASGRET P* PASGNOK P CMP CBIN1,CBIN0 P RET
0x08932c…0894c0 Dummy {f00=0x0032, f01=0x0190, f02=»R P********** P* ( P* ASSIGNS FILE REGSET ON EITHER & P* VOLUME 2 OR 4 R P* n P********** x P* P IB FILNR, C P ASGFRET,ASGF200 P B ASGFRET P* PASGF200 FILE REGSET P CBNL CREG
0x0894c0…089654 (1, 173) Dummy {f00=0x0033, f01=0x0190, f02=» 2 AND 4 P* FIRST ALTERNATE P MOVE GSWBIN2,CBIN6 . P SUB GSWBIN2,CREGVOL J P MOVE CREGVOL,GSWBIN2 f P PERF ASGVOL,CBIN2 P BOK ASGFRET P MOVE GSWBIN2,CBIN6 P SUB GSWBIN2,CREGVOL P MOVE CREGVOL,GSWBIN2 P
0x089654…0897e8 Dummy {f00=0x0033, f01=0x0190, f02=» | P* * P* CLOSE ROUTINE - PER VOLUME P* @ 4 P* CLOSES ALL FILES ON SPECIFIED VOLUME J P* 4 P* CALL: PERF CLSVOL,<VOLUME NUMBER> P* P******************** P* P SET CDKOFF P
0x0897e8…08997c Dummy {f00=0x0033, f01=0x0190, f02=» P B CLSRET P* ( PCLS100 CLOSE ALL FILES - VOLUME 1 P DSC0 DK01,CLOSE L P DSC0 DK02,CLOSE d P DSC0 DK04,CLOSE | P TBF CGLREGFL,CLS150 P DSC0 DK05,CLOSE PCLS150 P DSC0 FD01,UNLOD P B CLSRET P* (
0x08997c…089b10 Dummy {f00=0x0033, f01=0x0190, f02=»T P* ( PCLS300 CLOSE ALL FILES - VOLUME 3 P B CLSRET @ P* R ( PCLS400 CLOSE ALL FILES - VOLUME 4 ( P DSC0 DK02,CLOSE SECOND REG DATASET P DSC0 FD03,UNLOD P B CLSRET P* PCLSRET P RET P PEND
0x089b10…089ca4 Dummy {f00=0x0033, f01=0x0190, f02=» P* 4 P* ON ENTRY DATA IN SEPARATE FIELDS P* F : P* ON EXIT CR= OK DATA WRITTEN TO CYSET P > P* CR=NOK DATA NOT WRITTEN TO CYSET . P* E.G. ERROR ON DISK . P*
0x089ca4…089e38 Dummy {f00=0x0033, f01=0x0190, f02=»** ~ P MOVE GSWBIN1,CCYSIZE P MUL GSWBIN1,TTASKNR ( " P CBNL GTCYOUT,GSWBIN1,CYLINNOK D P MOVE GSWBIN1,=W'32' j PCYLIN000 * P TBF CCYPFLG,CYLIN010 WAIT FOR BUFFER P DELAY CBIN2 P SUB GSWBIN1,CBIN2 P CBL GSWBIN1,CBIN0,CYL
0x089e38…089fcc Dummy {f00=0x0033, f01=0x0190, f02=» EDIT CCYBUF,GTSTRFMT * P PERF RAWRIT,DK03,=D'3',CCYBUF,GTCYOUT P BNOK CYLIN100 L P ADD GTCYOUT,CBIN1 b " P CLEAR CCYPFLG RELEASE BUFFER | P CMP CBIN0,CBIN0 P RET P* PCYLIN100 " P CLEAR CCYPFLG RELEASE BUFFER PCY
0x089fcc…08a160 Dummy {f00=0x0033, f01=0x0190, f02=» 4 P* WRITE OUT THE WHOLE CONTENT OF CYSET $ P* (LESS THAN ONE PAGE) @ P* h P******************** r P TBT GTCYWRTF,CYOUT050 P TBT TTTSTFLG,CYOUT005 P SET TTTSTFLG P PERF SPLIN8,CBIN5,CBIN2 P PERF GR
0x08a160…08a2f4 (1, 174) Dummy {f00=0x0034, f01=0x018e, f02=»R TRP LINE, -TOTAL t PCYOUT010 P MOVE GSWBIN1,TTLINNR * P DSC1 KVOUCH,POS,GSWBIN1 H " P CBNL GTCYIN,GTCYOUT,CYOUT050 h P PERF CYRD P SUB TTLINNR,=D'2' P WAIT KVOUCH P B CYOUT010 P* PCYOUT050 P RET P
0x08a2f4…08a488 Dummy {f00=0x0034, f01=0x018e, f02=» f : P* IN NOK EMPTY THE CYCLE DATASET TO VOUCHER 0 P* AND WRITE LINE TO VOUCHER F P* z P******************** $ P PERF CYLINE WRITE LINE TO CYSET P BNOK CYWRT100 P SUB TTLINNR,=D'2' , P CBL TTLINNR,=D'
0x08a488…08a61c Dummy {f00=0x0034, f01=0x0190, f02=» P PERF FRMXVO,CBIN2 P PERF CYLINE P SET GTCYTRPF INITIATE PRINT 2 P CMP CBIN0,CBIN0 OK V P RET r P* ~ PCYWRT100 P PERF CYOUT P SET GTCYWRTF P CMP CBIN1,CBIN0 P RET P PEND P* P EJECT
0x08a61c…08a7b0 Dummy {f00=0x0034, f01=0x0190, f02=»TO VOUCHER | P* 8 P* VOUCHER SHOULD BE POSITIONED BEFORE PRINT P* X P******************** b PCYRD000 ~ P TBF CCYPFLG,CYRD010 & P DELAY CBIN2 WAIT FOR CYCLE BUFFER P B CYRD000 PCYRD010 & P SET CCYPFLG RESER
0x08a7b0…08a944 Dummy {f00=0x0034, f01=0x018e, f02=» P EDWRT .NW,KVOUCH,CYEDT P CLEAR CCYPFLG $ P B CYRD100 : PCYRDNOK L P ADD GTCYIN,CBIN1 P CLEAR CCYPFLG v P PERF CRVO P CMP CBIN1,CBIN0 NOK P RET P* PCYRD100 P WAIT KVOUCH P PERF CRVO P A
0x08a944…08aad8 Dummy {f00=0x0034, f01=0x0190, f02=» P FMEND P* P EJECT PCYTRP PROC * P******************** < P* X " P* PRINT A WHOLE PAGE b P* 6 P* AND WRITE TRANSPORT LINE FIRST ON CYSET P* P******************** P TBF GTCYTRPF,CYTRP200
0x08aad8…08ac6c Dummy {f00=0x0034, f01=0x018e, f02=» P DSC0 .NW,KVOUCH,RLEAS P CLEAR TTTSTFLG & P MOVE GSWSTR9,=C'TRP ' > P PERF FRMXVO,CBIN2 P MOVE GTCYIN,TTASKNR v P SUB GTCYIN,CBIN1 P MUL GTCYIN,CCYSIZE P ADD GTCYIN,CBIN1 P MOVE GTCYOUT,GTCYIN P MOVE TTLI
0x08ac6c…08ae00 Dummy {f00=0x0034, f01=0x0190, f02=» P CLEAR GTCYTRPF P SET GTCYWRTF . P PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE' 2 P PERF GRASPV GRASP d P MOVE TTCYKPOS,TTCYKST ~ * P MOVE TTLINNR,TTCYKST POSITION VOUCHER P MOVE GSWBIN1,TTLINNR P DSC1 KVOUCH,POS,GSWBIN1 0 P
0x08ae00…08af94 (1, 175) Dummy {f00=0x0036, f01=0x406c, f02=»TRP150 P SUB TTLINNR,=D'2' PCYTRP200 ( P RET 8 P PEND D P* R P END @ h
0x08af94…08b128 Dummy {f00=0x0036, f01=0x2008, f02=» P?????????????? P RET " P PEND . P* < P END F :EOF R@ `OUT P WAIT KVOUCH p P DSC0 KVOUCH,RLEAS P MOVE GSWSTR9,=C'TRP ' P PERF FRMXVO,CBIN2 P MOVE TTLINNR,TTCYKST P PERF CYLINE P
0x08b128…08b2bc Dummy {f00=0x0036, f01=0x018e, f02=» o & p B p " p . ( p > p J & ) p Z & p j & p x & p & p & p & p & p ( p p & p KONVERTERI
0x08b2bc…08b450 Dummy {f00=0x0036, f01=0x018e, f02=» & ? q & q $ q ( q 0 q < 999999 q L " q b B99999 q r " q ( q q SLUTD q $ q 99999 q " E q ( q
0x08b450…08b5e4 Dummy {f00=0x0036, f01=0x0190, f02=» q " w r & 1 r & r & ( r 4 r @ & r P KLAR r ^ $ r r ADM r $ r & r ZZ r " r ( r - r & r
0x08b5e4…08b778 Dummy {f00=0x0036, f01=0x018e, f02=» DAGS-DATON r $ s & s * 99E-99E-99 s < " s V & s f DAG NR s t $ s & f s ZZZ s " w s & s POST-DATO s $ s
0x08b778…08b90c Dummy {f00=0x0036, f01=0x0190, f02=» $ t & t ! EJ-EDB T[LLER t $ ! t > & t N " NR t $ " t n & t ~ # KONTONRT t $ # t & t & t & d t $ ZZZ t " $ t
0x08b90c…08baa0 Dummy {f00=0x0036, f01=0x0190, f02=» ' ADM t $ ' u & u $ ( BEHOLDNINGST[LLERE u 2 $ ( u T & u d ) NR u r $ ) u & u * KONTONRI u $ * u & u + SALDO u $ + u & u
0x08baa0…08bc34 (1, 176) Dummy {f00=0x0037, f01=0x0190, f02=» u - ZZZZZZZZE-ZZ v " - v * & v : & v H & v X & v h . TTT.TTT.TTT.TT9.99-P v z " . v $ v ( v / * v & v & v 0 ADM v
0x08bc34…08bdc8 Dummy {f00=0x0037, f01=0x0010, f02=» ( 8 @
0x08bdc8…08bf5c Dummy {f00=0x0037, f01=0x018e, f02=» P IDENT DKSUBS 830929 EV P DDUM KMD08 $ P PDIV B P ENTRY RAREAD X P ENTRY RAWRIT n P ENTRY SQREAD P ENTRY SQWRIT P ENTRY ASSG P ENTRY RGREAD P ENTRY RADEL P ENTRY GETBIT P ENT
0x08bf5c…08c0f0 Dummy {f00=0x0037, f01=0x0190, f02=» P EXT SETDEB P EXT SPERR P EXT WRITJT * P EXT LAMPON > P INCLUDE EQUATE R 6 P************************************************** r P* 4 P* THIS MODULE CONTAINS ALL DISC HANDLING * P* ROUTINES: RANDOM
0x08c0f0…08c284 Dummy {f00=0x0037, f01=0x0190, f02=»OUTINE t * P* DISK ERROR ROUTINE < P* GET STATUS FROM EXTENDED STATUSWORD < 0 P* READ RECORD FROM REGSET | 6 P************************************************** P EJECT P*
0x08c284…08c418 Dummy {f00=0x0037, f01=0x0190, f02=»A VOLUMENAME. x " P* ON SPECIFIED VOLUME P* < & P* ALTERED PARAMETERS: NONE F P* p B P* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 z @ P* GSWBIN1 - OK - ATTEMPTNR NOK - 5 2 P*
0x08c418…08c5ac Dummy {f00=0x0037, f01=0x0190, f02=» GTWBCD1 - OK - N/A NOK - ATTEMPT+1 H P* GTWBCD2 - OK - N/A NOK - DATASETNR > P* P* C/R: OK - 0, NOK - 4 P* @ P* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.> P*
0x08c5ac…08c740 Dummy {f00=0x0037, f01=0x0190, f02=»4,CBIN0 INITIATE P MOVE GSWBIN1,VOL P* 2 . P MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME < PASSG10 n . P MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME | P* P MOVE GSWBCD3,ASFNAME P CBE GSWBCD3,=D'0',ASSGERR P MOVE GSWBCD3,AS
0x08c740…08c8d4 (1, 177) Dummy {f00=0x0038, f01=0x0190, f02=» ASSGRET IF OK, RETURN PASSGERR > P* ASSIGNMENT IMPOSSIBLE 0 0 P MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES) r P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,DNR P MOVE GSWSTR9,=C'ASSIGN ' P PERF SPER
0x08c8d4…08ca68 Dummy {f00=0x0038, f01=0x0190, f02=» PEND P EJECT 6 P************************************************** P* V * P* RAREAD - RANDOM READ ROUTINE ` J P* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR> P* RETURN: 0 P* CR=0 > OK
0x08ca68…08cbfc Dummy {f00=0x0038, f01=0x0190, f02=»SE P* H P* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN P* ` > P* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED j T P* SPBINW4 - OK - 0 NOK - ALTERED BY DISERRORROUTINE & P*
0x08cbfc…08cd90 Dummy {f00=0x0038, f01=0x0190, f02=»,BUF,LENG,RECNR t P PLIT $NR : P MOVE GSWBIN1,LENG GET LENGTH * 8 P MOVE SPBINW4,CBIN0 ZEROISE h P MOVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSWBIN1,RECNR READ RECORD 4 P
0x08cd90…08cf24 Dummy {f00=0x0038, f01=0x0190, f02=»RAR10 & P TBT GTEXFLAG,RAR20 D P DSC0 DSET,RACCS RELEASE EXCL. ACCES 8 PRAR20 CLEAR GTEXFLAG P SWITCH 8 P CMP CBIN0,SPBINW4 SET CR P RET P
0x08cf24…08d0b8 Dummy {f00=0x0038, f01=0x018e, f02=»RROR ROUTINE ERDK P* CALL: * P* PERF ERDK,<DATASET>,<SETNR> 0 P* ^ 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN h $ P* CASE OF ERROR ON DISC 8 P* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT : P*
0x08d0b8…08d24c Dummy {f00=0x0038, f01=0x0190, f02=» : P* ALTERED FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 * P* GTWBCD2 - ERRORCODE F & P* GTNWFLG - FALSE t & P* SPKEYFLG - TRUE P* P* B P********************************************
0x08d24c…08d3e0 Dummy {f00=0x0038, f01=0x0190, f02=»4',ERDKRET NO DATA & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL 0 P CBE GTWBCD1,=D'7',ERDKRET RETRIES PERFORMED D D P MOVE SPBINW4,CBIN21 PREPARE TEXT (BIT NR) x : P MOVE GTWBCD2,$NR DATASET NR 4 P
0x08d3e0…08d574 (1, 178) Dummy {f00=0x0021, f01=0x0190, f02=»V=TV,BUFL=100 | $ PKJTAPE DSET FC=30,DEV=GP,BUFL=80 2 PKTALLY DSET FC=32,DEV=TR,BUFL=30,BUFDS=KVOUCH > PSCREEN DSET FC=50,BUFL=56 t PKEYB DSET FC=20 & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN PDSSOPI D
0x08d574…08d708 Dummy {f00=0x0021, f01=0x0190, f02=»* P* " P FMTCTL INDS=KEYB,OUTDS=SCREEN P* : P* D P* N P* X P* b P START BCGO l P STACK 160 P* P EJECT P* P* P* DCTSK P* P* P TERM D0 P* P CWB CB9
0x08d708…08d89c Dummy {f00=0x0021, f01=0x0190, f02=»SKS p P* . P***************************************** P H PCB9 BLK P P* ` PCNFIGD BOOL j PCNFBSY BOOL ~ P* P* CONFIGURATION DATA P* " PNBRKBV BIN NUMBER OF KB/VDUS PNBRGTP BIN NUMBER OF GTPS
0x08d89c…08da30 Dummy {f00=0x0021, f01=0x0190, f02=»THE LENGTH OR PLACE OF THE CONFIG DATA ABOVE SHOULD NOT BE CHANGED P* J ( PMF1CU STRG X'E2C2' CU-ADDRESS MF # 1 T P* D PCNFHC BINI (16),'1','2','3','4','5','6','7','8' HARDCOPY PRINTER P FOR KB-VDU 1-16 P* PBINWK1 BIN P
0x08da30…08dbc4 Dummy {f00=0x0021, f01=0x0190, f02=» ALLOWED n 0 PCKTFLAG BOOL FALSE F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK D 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE v , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG , PCFLT46 BOOL TRUE T=SPECIAL FIELD 46,TR=8 ,
0x08dbc4…08dd58 Dummy {f00=0x0021, f01=0x0190, f02=»MISSION j . PCCYWRTF BOOL FALSE T=DO NOT USE CYCLE SET 2 PCADM22F BOOL FALSE T=ALLOWED FUNCTION (ADM 22) B PC5MDISK BOOL TRUE T=5M DISK x , PCKASFLG BOOL FALSE T=BACKUP ON CASSETTE 4 PCSLDFLG BOOL TRUE T=GL.SALDO PRESENT(CKTFLAG=T) , PCGLR
0x08dd58…08deec Dummy {f00=0x0021, f01=0x0190, f02=»IN2 BIN '2' PCBIN3 BIN '3' PCBIN4 BIN '4' * PCBIN5 BIN '5' @ PCBIN6 BIN '6' V PCBIN7 BIN '7' l PCBIN8 BIN '8' PCBIN9 BIN '9' PCBIN10 BIN '10' PCBIN11 BIN '11' H PWEIGTH BCDI (13),'2','7','6','5','4','3','
0x08deec…08e080 Dummy {f00=0x0021, f01=0x0190, f02=»CB2 BLK P* & PCPFLG BOOL FALSE T: DISK OCCUPIED ( PCSPLITFL BOOL FALSE T: SPLIT RECORD D " PCWFLAG BOOL FALSE F=COLD START p " PCREMITFL BOOL FALSE F=NO REMIT & PCSKIFTFL BOOL FALSE T=FD CHANGING ( PCEORFLG BOOL FALSE T=END OF A RECO
0x08e080…08e214 (1, 179) Dummy {f00=0x0024, f01=0x0190, f02=» 8 H IDENT T:ABC0 TRA 4.2 84-01-25 F1 O1111 840124 EV T:ABC0 @ T:ABC0A R > : T:DBC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 f > : D:CB40A C:CB40A D:CB604 C:CB60F D:CB70 C:CB70 D:CD30 > : C:CB30 D:CD40 C:CB40 D:G
0x08e214…08e3a8 Dummy {f00=0x0024, f01=0x002c, f02=» ( 0 @ P X h p
0x08e3a8…08e53c Dummy {f00=0x0024, f01=0x0190, f02=»W l ! CRxJ2b R ,R b D j D s D } D D :D D . * >
0x08e53c…08e6d0 Dummy {f00=0x0024, f01=0x0190, f02=» P 8 2 0 F 1 d a ~ TC F $ ( T!H !v F H p R T! J! J
0x08e6d0…08e864 Dummy {f00=0x0024, f01=0x0190, f02=» P 8 2 0 P 1 d
0x08e864…08e9f8 Dummy {f00=0x0024, f01=0x0190, f02=»!H !v F H p R T! J! J BC * ` D0 D0 * "3 L > JTB2 L @ JKLMNO " $
0x08e9f8…08eb8c Dummy {f00=0x0024, f01=0x0190, f02=» % B
0x08eb8c…08ed20 Dummy {f00=0x0024, f01=0x0190, f02=»
0x08ed20…08eeb4 (1, 180) Dummy {f00=0x004d, f01=0x0190, f02=»MT M P FILLR '+',2 N , P FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) N P FCOPY TTDBKRM N N P FMEND N d P* N r PTAFMT05 FRMT N | P FILLR '+',2 N & P FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GSWBCD6 N P FILLR ' ',1 N P FMEND N P* N PTAFMT07 FRMT N
0x08eeb4…08f048 Dummy {f00=0x004d, f01=0x018e, f02=»ENERAL PRINTER N z P* O PFTBGP FTABLE FMTFMT O P* O < P* O F P* O P 2 P* VARIOUS FORMATS FOR GENERAL PRINTER O Z P* O PFTBXGP FTABLE FMTFMT O P* O P* O P* O P EJECT O @ PFTBXBC FTABLE XJTF01,XJTF02,XJTF03,XJT
0x08f048…08f1dc Dummy {f00=0x004d, f01=0x0190, f02=» PFBC012 FRMT P P FNL P P FCOPY GSWSTR20 P $ P FNL P < P FMEND P H P* P V P* P ` PFBC013 FRMT P j P FNL P ~ P FCOPY CPRTBUF P P FNL P P FMEND P P* P P* P PFBC014 FRMT P P FNL P P FMEL '99B',GTWBCD2 P
0x08f1dc…08f370 Dummy {f00=0x004d, f01=0x0190, f02=»1,JT0301,JT0401,JT0201, C P v , P JT0101,JT0201,JT0101,JT0101,JT0201, C Q " , P JT1201,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C Q R , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C Q P JT5101,FMTFMT,JT5101 Q P* Q P* Q : PFTB2EL FTABLE JTSUB04,JT0202,JT0302,
0x08f370…08f504 Dummy {f00=0x004d, f01=0x0190, f02=»MTFMT,FMTFMT,FMTFMT,FMTFMT, C Q P JT5102,FMTFMT,JT5102 R & P* R D P* R N 8 PFTB3EL FTABLE FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C R X . P FMTFMT,FMTFMT,JTSUB31,JTSUB31,FMTFMT, C R , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C R , P FMTFMT,FMTFMT,FM
0x08f504…08f698 Dummy {f00=0x004d, f01=0x416e, f02=» , P VOX15,XJTF13,XJTF14,VOFMT02,XJTF03, C S P XJTF04,XELF12,XELF13 S 4 P* S R P* S PXELF12 FRMT S f P FCOPY =' START ' S z P FCOPY ='EL. JOURNAL ' S P FMEND S P* S P* S PXELF13 FRMT S P FCOPY =C' SLUT ' S P FCOPY
0x08f698…08f82c Dummy {f00=0x004d, f01=0x2008, f02=» T P* CAN NOT BE IDENTIFIED BY TRANSTYPE (OR GTREGDEX) ' P* ' L PFTBXX FTABLE ' V P* ' n P* ' x P END ' @ ' & z P* & PFTBTA FTABLE & P* & P* & P EJECT & P* & ( P* FORMATS
0x08f82c…08f9c0 Dummy {f00=0x004d, f01=0x0190, f02=» K V K : Y e e eJ Yd V fh e f V Z P 2 " T W "@T '?W "? Hd " K :e J J " J _Z Z fh [ Z P K [ V 7_ Z f K Z 7 Z Z P K
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x0051, f01=0x0190, f02=» ! ? 4 1 4 0 P 0 W 0 ( W 4 I } R0 $ 1 Wc1 ! 6! V 6 0 W 0 W 0 $ 2 _. 4 6 0 Y W 0 Y W 0 Y 4 Q0 1 4 4 H/ I H. R0 1 0 K/ 4 4 6 <GI( L WM T
0x08fb54…08fce8 Dummy {f00=0x0051, f01=0x0010, f02=» ( 0 @ P X h p
0x08fce8…08fe7c Dummy {f00=0x0051, f01=0x0190, f02=» 8 H IDENT DIV461 TRA 4.2 84-01-26 F1 O1111 840126 EV > : FRM1EL FRM2EL FRM3EL FRMTGP FRMTJT FRMTKT FRMTKV @ > : FRMTTAV FRMTVOA FRMXBC4 FRMXELF FRMXGP FRMXJT FRMXKT FRMXTA FRMXVO $$$TRAV B > FRM1EL T FRM2ELF [ F
0x08fe7c…090010 Dummy {f00=0x0051, f01=0x0190, f02=» 8 FRMXTAM FRMXVOJ # | FMOVE . > N [ ^ n C ~ D $ & + -
0x090010…0901a4 Dummy {f00=0x0051, f01=0x018e, f02=»0R F 4 0R F 4 0R F 4 0R F 4 0R F 4 0 n G , I N < N L P O U l W U | ^ V c e W j l X * "
0x0901a4…090338 Dummy {f00=0x0051, f01=0x0190, f02=» " " " $ " 2 " @ " N " " j " x " " " ( $ & $ < (
0x090338…0904cc Dummy {f00=0x0051, f01=0x0190, f02=»( $ & * $ 8 ( H T $ d & t $ < & $ M ( $ & $ (
0x0904cc…090660 Dummy {f00=0x0051, f01=0x018e, f02=» ; ( $ 9 ( $ C 8 & H $ I V ( f r & X " & $ E $ K & (
0x090660…0907f4 (1, 182) Dummy {f00=0x0051, f01=0x0190, f02=» " & ZZ.ZZ.ZZ " " : BZZ J " ^ $ K n & ~ XX " & ZZZ " # & (
0x0907f4…090988 Dummy {f00=0x0051, f01=0x018e, f02=» & ZZ.ZZ.ZZ " * & : $ K H BBZZ X " l BBZZ | " BBZZ " BBZZ " ! BBZZ "
0x090988…090b1c Dummy {f00=0x0051, f01=0x0190, f02=» $ I ( $ & 4 BZZZZZZZZZZ B " ^ & n ( | & & & ! 99B " ! $ $ V
0x090b1c…090cb0 Dummy {f00=0x0051, f01=0x0190, f02=» % XXXB " % # & XXB ( " & < ' XB L " ' ^ ( XXB n " ( ) XXB " ) * XB " * + XX.XX.XXB* " + ,
0x090cb0…090e44 Dummy {f00=0x0051, f01=0x0190, f02=» & ( 0 " " & 2 1 XXXXXXXXXXBX @ " 1 & ' l 2 Z.ZZZ.ZZX.XXBB | " 2 ' & 3 Z.ZZZ.ZZX.XXE-B9 " 3 ' 4 XXB " 4 $
0x090e44…090fd8 Dummy {f00=0x0051, f01=0x0190, f02=»XXB. " 8 * & ( * 9 6 & F & T & b : 99B p " : * $ * ( ; $ C* $ E* $ I* ( <
0x090fd8…09116c Dummy {f00=0x0051, f01=0x0190, f02=» @ BBX " @ $ K , A XXXXXXE-XXXX < " A X B BXX h " B | ( C D B999E-999E-99E-99B " D ( E &
0x09116c…091300 Dummy {f00=0x0051, f01=0x0190, f02=» H XXX.XXXXX.XXBB " H ( * I 6 J B*.***.***.**9.99- F " J h & x ( K L BBZZZE-ZZZE-ZZE-ZZ " L ( M & N ZZ
0x091300…091494 (1, 183) Dummy {f00=0x0023, f01=0x018e, f02=»ERTED LINE NO. r PLIN90 P CMP CBIN0,CBIN0 SET CR=0,OK $ P B LINRET H PLINOP1 Z P CALL ABORT,KEYB ABORT I/O h P CBL GTDFLIN,=W'90',LINOP101 P MOVE GSWBCD3,GTDFLIN P B LINOP4 PLINOP101 P MOVE GSWBCD3,GTDFLIN
0x091494…091628 Dummy {f00=0x0023, f01=0x018e, f02=» p P MOVE GSWBIN1,=W'0' P B LINRET $ PLINOP2 6 & P DSC0 KVOUCH,RLEAS RELEASE VOUCHER D P DSC0 KEYB,SKIB n & P CMP CBIN0,CBIN1 SET CR<>0, NOT OK P RET PLINOP4 P MOVE GSWBIN1,GSWBCD3 P B LIN90 PLINRET
0x091628…0917bc Dummy {f00=0x0023, f01=0x0190, f02=» P******************** P* 4 P* PRINTS HEADING IDENTIFIED BY WRITVAR1 * 0 P* PRINTS ID IDENTIFIED BY WRITVAR2 b P* * P* PRINTS ON JOURNAL AND TALLY P* P* P* WRITVAR1: P*
0x0917bc…091950 Dummy {f00=0x0023, f01=0x0190, f02=» ( P* 5 DATATRANSMISSION ! P* 6 BACKUP ! 0 P* ! R P* WRITVAR2: ! 2 P* CHARACTERS PRINTED FROM PACKBUFFER: ! x $ P* 1 1-20 + 40-59 ! 6 P* 2 1-20 + 23-42, IF KONVERTERING
0x091950…091ae4 Dummy {f00=0x0023, f01=0x0190, f02=» P* " P* " P* " P******************** " " P* " > P WAIT KJTAPE " H : P IB WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36 " P B WRID50 " PWRID34 " P MOVE GSWSTR20,=C'FEJL ' " P B WRID50 " PWRID31 " P MOVE GSWSTR20
0x091ae4…091c78 Dummy {f00=0x0023, f01=0x0190, f02=»20,=C'KONVERTERING ' " P B WRID40 # PWRID35 # . ( P MOVE GSWSTR20,=C'DATATRANSMISSION ' # < P B WRID40 # h PWRID36 # z P MOVE GSWSTR20,=C'BACKUP ' # P B WRID40 # PWRID40 # P PERF WRITJT,=W'12' # P PERF WRITLO,CBIN6 # P TBT TBC
0x091c78…091e0c Dummy {f00=0x0023, f01=0x0190, f02=»ALLY # PWRID51 $ P TBF TBCTASK,WRID55 $ P MOVE CPRTBUF,BUF $ 6 P PERF WRITJT,=W'13' $ P P B WRID90 $ l PWRID55 $ ~ P CBE WRITVAR2,CBIN3,WRID80 $ P CBE WRITVAR2,CBIN4,WRID73 $ P MOVE GSWSTR20,BUF $ P PERF WRITJT,=W'12' $ P P
0x091e0c…091fa0 Dummy {f00=0x0023, f01=0x0190, f02=»T KTALLY $ P* % PWRID60 % P CBE WRITVAR2,CBIN2,WRID70 % ( P MOVE GSWBIN2,CBIN20 % J P MOVE GSWBIN1,=W'40' % f , P COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1 % P B WRID75 % P* % PWRID70 % P CBNE WRITVAR1,CBIN4,WRID72 % P MOVE GS
0x091fa0…092134 (1, 184) Dummy {f00=0x0023, f01=0x0190, f02=»S h PERDK10 < P PERF SPERR DISPLAY TEXT P SET SPKEYFLG X P TBT TERRSKIP,ERDK90 n P SET GTNWFLG P PERF WRITJT,=W'14' P MOVE GTWBCD2,$NR P CBE GTWBCD2,=D'6',ERDK80 P PERF WRITLO,CBIN8
0x092134…0922c8 Dummy {f00=0x0023, f01=0x0190, f02=»IN0 PREPARE FOR OK PERDKEND P CMP SPBINW4,CBIN0 SET CR , P RET P P PEND f P EJECT | > P********************************************************** P* P* GETBIT P* CALL: $
0x0922c8…09245c Dummy {f00=0x0023, f01=0x018e, f02=»N: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P* J P* ALTERED FIELDS: T 2 P* GSWBIN1 - EXTENDED STATUSWORD n P* GTWBCD1 - 1 P* GSWBIN2 P* GSWBCD2 P
0x09245c…0925f0 Dummy {f00=0x0023, f01=0x0190, f02=» PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET STATUS P Z P* CHECK FIRST BIT 4 b P MOVE GTWBCD1,=D'4' ~ P MOVE GSWBIN2,=W'2048' BIT 4 P CALL MASK,GSWBIN1,GSWBIN2 P BNZ GETRET P : P MO
0x0925f0…092784 Dummy {f00=0x0023, f01=0x0190, f02=»,GSWBIN1,GSWBIN2 AND WITH STATUS x 4 P BNZ GETRET FOUND * ( P MOVE GSWBCD2,GSWBIN2 b 6 P MUL GSWBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 CONVERT > P
0x092784…092918 Dummy {f00=0x0023, f01=0x0190, f02=» RET P PEND P EJECT , > P********************************************************** : P* | P* RANDOM WRITE P* CALL: > P* PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<RECNR> P* > P*
0x092918…092aac Dummy {f00=0x0023, f01=0x0190, f02=» CR=4 NOT OK z P* ALTERED FIELDS: P* SPBINW4 - 0 0 8 P* GSWBIN1 - NBR. OF CHARS TRANSFERRED T > P********************************************************** & PRAWRIT PROC DSET,$NR,BUF,RECNR P PLIT $NR
0x092aac…092c40 Dummy {f00=0x0023, f01=0x0190, f02=» P MOVE GSWBIN1,CBIN6 > P RREAD DSET,GSWSTR9,GSWBIN1,RECNR DUMMY READ $ < P RWRITE DSET,BUF,RECNR WRITE RECORD f 4 P BEOF RAWRET OK? P BOK RAWRET " P
0x092c40…092dd4 (1, 185) Dummy {f00=0x0027, f01=0x0190, f02=» SET CR=0 t P RET P PEND 6 P EJECT L @ P*********************************************************** Z P* $ P* RADEL - RANDOM DELETE ROUTINE P* * P* CALL: PERF RADEL,<DATASET>,<RECNR> P
0x092dd4…092f68 Dummy {f00=0x0027, f01=0x0190, f02=»IN1 - 6 z P* P* CR: OK - 0, NOK - 4 P* : @ P*********************************************************** D PRADEL PROC DSET,RECNR P MOVE SPBINW4,CBIN0 P MOVE GSWBIN1,CBIN6 P TBT GTTESTFL,RADELRET 0 P RREAD DSET,
0x092f68…0930fc Dummy {f00=0x0027, f01=0x0190, f02=» IF OK, RETURN . P PERF ERDK,DSET,=D'2' CALL ERROR-ROUTINE P BOK RADELRET H P CMP CBIN1,CBIN0 CR := NOK ^ P RET PRADELRET P CMP CBIN0,CBIN0 CR := OK P RET P PEND P EJECT @ P**********************
0x0930fc…093290 Dummy {f00=0x0027, f01=0x0190, f02=»TNR>,<BUFFER>,<LENGTH> n B P* IF GTEXFLAG=FALSE EXCLUSIVE ACCES WILL BE RELASED " P* ALTERED FIELDS: SPBINW4 - 0 d : P* GSWBIN1 - NUMBER OF CHAR TRANSFERRED 0 P* GSWBIN4 - LENGTH FROM CALL P* P**
0x093290…093424 Dummy {f00=0x0027, f01=0x018e, f02=»********* ^ * PSQREAD PROC DSET,$NR,BUF,LENG P PLIT $NR @ & P MOVE SPBINW4,CBIN0 R $ P MOVE GSWBIN4,LENG | B P READ DSET,BUF,GSWBIN1 READ RECORD 8 P BOK SQRRET
0x093424…0935b8 Dummy {f00=0x0027, f01=0x0190, f02=» J P TBT GTEXFLAG,SQR05 RELEASE EXCLUSIVE : P DSC0 DSET,RACCS YES R PSQR05 > P CMP SPBINW4,CBIN0 SET CR PSQR10 P RET P
0x0935b8…09374c Dummy {f00=0x0027, f01=0x0190, f02=»WRITE P* CALL: 0 P* PERF SQWRIT,<DSET>,<SETNR>,<BUFF> P* RETURN T 4 P* CR=0 OK CR=1 EOF CR=4 NOT OK h P* " P* ALTERED FIELDS: SPBINW4 - 0 P* @ P**********************************************
0x09374c…0938e0 Dummy {f00=0x0027, f01=0x0190, f02=» WRITE DSET,BUF WRITE RECORD 4 P BEOF SQW10 EOF B 4 P BOK SQWRET OK z 4 P PERF ERDK,DSET,$NR NO PSQWRET 8 P CMP
0x0938e0…093a74 (1, 186) Dummy {f00=0x0028, f01=0x0190, f02=» P EJECT , PBACKUP PROC DSET,$DNR,$FDSIZE,BUF,$LENG P PLIT $DNR B P PLIT $FDSIZE T P PLIT $LENG j P******************** ~ P* 4 P* BACKUP OF ONE DATASET TO BACKUP FILE P* P* CALL: P* > P
0x093a74…093c08 Dummy {f00=0x0028, f01=0x0190, f02=»************** P CLEAR CERRORFL P SET CPFLG RESERVE DISK . * P MOVE GSWBIN3,$DNR ASSIGN SYSTEM FILE N " P PERF ASSG,CBIN1,DSET,GSWBIN3 | P BNOK BKUPNOK P* P TBT CKASFLG,BKUP50 * P MOVE GSWBIN3,$DNR ASSIGN BACKUP FILE
0x093c08…093d9c Dummy {f00=0x0028, f01=0x0190, f02=»GSWBIN1,CBIN1 P DSC1 KCASS,LOAD,GSWBIN1 P WRITE TAPE MARK 6 P DSC0 KCASS,WTM P P* h PBKUP60 r P WRITE FILE P MOVE GSWBIN3,CBIN0 PBKUP100 P ADD GSWBIN3,CBIN1 ( P CBG GSWBIN3,$FDSIZE,BKUPOK FINISH? P
0x093d9c…093f30 Dummy {f00=0x0028, f01=0x0190, f02=»KUP210 NO DATA | P TBT CKASFLG,BKUP150 ! . P PERF RAWRIT,DK02,$DNR,BUF,GSWBIN3 ON DISK ! 2 P BNOK BKUP200 ! d P B BKUP100 OK, CONTINUE ! z P* ! PBKUP150 ON CASSETTE ! " P PERF SQWRIT,KCASS,=D'12',BUF ! P BOK BKUP100 ! P B BKUPNOK !
0x093f30…0940c4 Dummy {f00=0x0028, f01=0x0190, f02=»LG,BKUP220 ! * P PERF RADEL,DK02,GSWBIN3 DELETE RECORD " P B BKUP100 " @ PBKUP220 " R P MOVE BUF,CBLANKS " b P B BKUP150 " | P* " PBKUPOK " P TBT CERRORFL,BKUPNOK " P TBT CKASFLG,BKUP300 " P DSC0 DK02,CLOSE " P B BKUP310 "
0x0940c4…094258 Dummy {f00=0x0028, f01=0x0190, f02=»K " P PERF LAMPON,=W'2' LAMP 10 # P TBT CKASFLG,BKUP350 # , P DSC0 DK02,CLOSE # H P B BKUP360 # ` PBKUP350 # r P DSC0 KCASS,UNLOD # PBKUP360 # P CLEAR CERRORFL # P CLEAR CPFLG # P CMP CBIN1,CBIN0 # P RET # P PEND #
0x094258…0943ec Dummy {f00=0x0028, f01=0x018e, f02=»******** # P* $ 6 P* RESTORE OF ONE DATASET FROM BACKUP FILE $ P* $ T P* CALL: $ ^ P* $ v > P* PERF RSTORE,<DSET>,<$DSET-NO>,<$NO-OF-RECORDS>, $ 2 P* <BUFFER>,<$RECORD-SIZE> $ P* $ P******
0x0943ec…094580 Dummy {f00=0x0028, f01=0x0190, f02=» P BNOK RSTRNOK % P TBT CKASFLG,RSTR50 % 0 P MOVE GSWBIN3,$DNR ASSIGN BACKUP FILE, DISK % 6 " P PERF ASSG,CBIN3,DK02,GSWBIN3 % j P BNOK RSTRNOK % P B RSTR60 % PRSTR50 % P BACKUP FILE, CASSETTE % P LOAD CASSETTE % P MOVE GSWB
0x094580…094714 (1, 187) Dummy {f00=0x0042, f01=0x0190, f02=»B',GTDATO EKSP.LB.NR 5 P FMEL '****9',GTSUMST 6 P FCOPY ='-' 6 : P FLINK FLBNR 6 N P FILLR ' ',1 6 b P FCOPY GSWSTR9 6 x & P FMEL '*.***.***.**9,99+',GTSUMCNT 6 P FILLR ' ',2 6 P FMEND 6 P* 6 PVOX08 FRMT 6 P FLINK VOX08L 6
0x094714…0948a8 Dummy {f00=0x0042, f01=0x018e, f02=»GTDATO 6 ~ P FMEL 'BBZ999',CKMDNR 7 P FMEL 'BB****9',TTSTLBNR 7 , P FTEXT ' - ' 7 L P FLINK FLBNR 7 ` P FILLR ' ',2 7 t P FCOPY GSWSTR9 7 P FILLR ' ',2 7 P FCOPY GSWSTR20 TEXT 7 P FEOR 7 P FILLR '2',2 7 P FILLR '*',60 7 P F
0x0948a8…094a3c Dummy {f00=0x0042, f01=0x0190, f02=» 7 P FTEXT 'NETTO' 8 P FILLR ' ',12 8 P FCOPY ='DEBET' 8 4 P FILLR ' ',12 8 L P FCOPY ='KREDIT' 8 b P FMEND 8 z P* 8 PVOX09 FRMT 8 P FILLR '2',2 8 ( P FMEL 'XXXE-XXXXXE-XX',GTDUPF(CBIN1) 8 P FILLR ' ',4 8 P FMEL '99',GTWBC
0x094a3c…094bd0 Dummy {f00=0x0042, f01=0x0190, f02=»MEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN1) KREDIT 8 P FMEND 9 @ P* 9 N PVOX10 FRMT 9 X P FILLR '2',2 9 j P FMEL 'ZZ',GTWBCD1 9 ~ 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) 9 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN2) 9 6 P F
0x094bd0…094d64 Dummy {f00=0x0042, f01=0x0190, f02=» 9 PVOX11L FRMT : P FILLR '4',2 : P FTEXT 'TOTAL' : 0 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) : F 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTREGF(CBIN2) : z 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTREGF(CBIN1) : P FEOR : P FILLR '4',2 : P FTE
0x094d64…094ef8 Dummy {f00=0x0042, f01=0x018e, f02=»ZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN1) : P FEOR ; . P FILLR '2',2 ; < P FTEXT 'KOR' ; P P FILLR ' ',19 ; d 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN7,CBIN2) ; z 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN7,CBIN1) ; P FMEND ; P* ; PVOX12
0x094ef8…09508c Dummy {f00=0x0042, f01=0x0190, f02=» P FILLR ' ',1 < P FTEXT ' PRIMO' < * P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTSTCASH < 0 P FILLR ' ',34 < ^ P FEOR < t P FILLR '2',2 < P FTEXT 'BEV ' < 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) < 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBI
0x09508c…095220 Dummy {f00=0x0042, f01=0x0190, f02=»ZZ.ZZZ.ZZ9.99-',TTCASH < P FILLR ' ',34 = P FMEND = 4 P* = B PVOX13 FRMT = L P FLINK VOX13L = ^ P FMEND = t P* = PVOX13L FRMT = P FILLR ' ',2 = P FCOPY GTTESTMK = P FMEL '999B',GTMSK = P FMEL 'B99.99.99',GTDATO = P F
0x095220…0953b4 (1, 188) Opaque[0x194]
0x0953b4…095548 # DirEnt {nam=»SL461 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0978, f03=0x0000}
0x0953b4…095548 IdxSect {
0x0953b4…095548 f00 = 0x004b // 0x953b4 @0x0
0x0953b4…095548 f01 = 0x0004 // 0x953b6 @0x2
0x0953b4…095548 gno = [ // 0x953b8 @0x4
0x0953b4…095548 [0x00]: C0x004b.0x3.0
0x0953b4…095548 [0x01]: C0x004c.0x0.0
0x0953b4…095548 ]
0x0953b4…095548 }
0x095548…0956dc Dummy {f00=0x004b, f01=0x0190, f02=» < PSPKTAB1 KTAB BSPKY1,CANKY1,NOKEY,EORKY1,NOKEY,MACKY1, C > P FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C D & P COPKY1,DUPKY1,EDTKY1,SLUTKY1, C . P KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1, C < P CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,
0x0956dc…095870 Dummy {f00=0x004b, f01=0x018e, f02=»NOKEY,MACKY1, C h > P FTABKY1,BTABKY1,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C & P COPKY1,DUPKY1,EDTKY1,SLUTKY1, C Z . P KREKY1,REGKY2,LISTKY1,SBTKY1,SPGKY1, C < P CY1KY1,CY2KY1,INVKY1,KONKY1,KVITKY1,SUPLKY1,SUMKY1, C 8 P ADMKY1,CYCKY1,DI
0x095870…095a04 Dummy {f00=0x004b, f01=0x0190, f02=» p P* > PSPKTAB12 KTAB BSPKY2,CANKY2,NOKEY,EORKY2,NOKEY,MACKY2, C 2 P FTABKY2,BTABKY2,NOKEY,NOKEY,NOKEY,NOKEY, C T 2 P NOKEY,NOKEY,NOKEY,DUPKY2,EDTKY2,SLUTKY2, C 0 P KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2 P* > PSPKTAB22 K
0x095a04…095b98 Dummy {f00=0x004b, f01=0x0190, f02=»,EDTKY2,SLUTKY2, C v 0 P KREKY2,REGKY2,ADMKY2,SPGKY2,KONKY2,KVITKY2 P* P * P* INQUIRY KEYTABLES (SPKEY=3) Z P* < PSPKTAB13 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1, C . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C 0 P NO
0x095b98…095d2c Dummy {f00=0x004b, f01=0x0190, f02=»* < PSPKTAB23 KTAB BSPKY1,NOKEY,CANKY1,NOKEY,NOKEY,MACKY1, C . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C J . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C | . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY, C . P NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,NOKEY,
0x095d2c…095ec0 Dummy {f00=0x004b, f01=0x0190, f02=»T,ERRFMT, C t , P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C , P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C D , P ERRDSK,ERRFMT,ERRFMT,ERRFMT,ERRFMT, C t 2 P ERRFMT,ERRFMT,ERRFMT,ERRFMT,ERRFMT WARNINGS P* B PSPFTBMES FTABLE MSFMT1,MSFMT2,MSFMT3
0x095ec0…096054 (1, 189) Dummy {f00=0x004c, f01=0x018e, f02=»PY ='FEJL ' P FMEL 'ZZ9',GSWBCD4 ERRORNR. P FMEND 8 P* F PERRDSK FRMT P P FSL d P FMEL '99B',GTWBCD2 p P FCOPY GSWSTR9 P FMEL '99',GTWBCD1 P FMEND P* PMSFMT1 FRMT P FSL P FCOPY ='SKIFT JOURN
0x096054…0961e8 Dummy {f00=0x004c, f01=0x0190, f02=» PMSFMT3 FRMT P FSL P FTEXT ='NY SIDE. ' ( P FMEND D P* R PMSFMT4 FRMT P FSL p P FBF TTSUMFLG,FMT4END | P FTAB 15 P FCOPY GTL8TXT P FINP 23 P FMEL 'ZZZZZVZZ9,99+',GTSUM PFMT4END P FME
0x0961e8…09637c Dummy {f00=0x004c, f01=0x0190, f02=»PY ='KONTOKORT' P FMEND P* & PMSFMT7 FRMT 0 P FSL D P FCOPY TTINF1 P P FMEND f P* t PMSFMT8 FRMT ~ P FSL P FCOPY ='DISK SKIFT ' P FILLR X'07',1 P FMEND P* PMSFMT9 FRMT P FSL
0x09637c…096510 Dummy {f00=0x004c, f01=0x40c2, f02=»TTT9-',GTWBCD2 P FMEND P* $ PMSFMT11 FRMT . P FSL B P FTEXT 'DISK STANDSET. ' N P FCOPY ='AFVENT VENLIGST.' n P FILLR X'07',1 P FMEND P* @ X'07',1 P FMEND P* PMSFMT9 FRMT P FSL
0x096510…0966a4 Dummy {f00=0x004c, f01=0x2008, f02=» * ERRFMT FRMT FSL , " FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 FCOPY ERRTXT ^ " FMEL 'BZZ9',GTWBCD2 ERRORNR. t FCOPY =X'07' FMEND @ 8SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C D ? FT
0x0966a4…096838 Dummy {f00=0x004c, f01=0x018e, f02=» L?R V 0 R $ 0 6 0 J 0 ^ 0 p 0 T 0 0 0 0 J F " D L R L T
0x096838…0969cc Dummy {f00=0x004c, f01=0x0190, f02=» 0 P P & ! P 6 ' P F - P V 3 P f 9 P v ? P J F " D L LW L L R L 4 R5 T4 R6 T. R7 T( R8 T" R9 T R: T R; T R E P K P
0x0969cc…096b60 Dummy {f00=0x004c, f01=0x0190, f02=» r0 x z0 0 0 @ J F " D @< T R= T RD 4 L R L 4 xE R L5 TF R L6 T> R L7 T6 R L8 T. R 0 0 0
0x096b60…096cf4 (1, 190) Opaque[0x194]
0x096cf4…096e88 # DirEnt {nam=»SUBAPL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0760, f03=0x0000}
0x096cf4…096e88 IdxSect {
0x096cf4…096e88 f00 = 0x003b // 0x96cf4 @0x0
0x096cf4…096e88 f01 = 0x0016 // 0x96cf6 @0x2
0x096cf4…096e88 gno = [ // 0x96cf8 @0x4
0x096cf4…096e88 [0x00]: C0x003b.0x0.0
0x096cf4…096e88 [0x01]: C0x003b.0x1.0
0x096cf4…096e88 [0x02]: C0x0045.0x1.0
0x096cf4…096e88 [0x03]: C0x0046.0x1.0
0x096cf4…096e88 [0x04]: C0x0049.0x1.0
0x096cf4…096e88 [0x05]: C0x0049.0x2.0
0x096cf4…096e88 [0x06]: C0x0049.0x3.0
0x096cf4…096e88 [0x07]: C0x004a.0x0.0
0x096cf4…096e88 [0x08]: C0x004a.0x1.0
0x096cf4…096e88 [0x09]: C0x004a.0x2.0
0x096cf4…096e88 [0x0a]: C0x004a.0x3.0
0x096cf4…096e88 ]
0x096cf4…096e88 }
0x096e88…09701c Dummy {f00=0x003b, f01=0x0190, f02=» P IDENT SUBAPL 03.02.XXX.1 P DDUM KMD08 & P PDIV : P ENTRY SPAPPL H P ENTRY SPCHK1 ^ P ENTRY SPCHK2 t P ENTRY SPCHK3 P ENTRY SPCHK4 P ENTRY SPCHK5 P ENTRY SPCHK6 P ENTRY SPCHK7 P ENTRY SPTCHK
0x09701c…0971b0 Dummy {f00=0x003b, f01=0x018e, f02=»H P EXT KTPLAN P INCLUDE EQUATE P STANDARD CHECKS 6 P* P PSPCHK1 PROC Z P******************** n P* P* SPCHK1 - CDVCHECK P* < P* PERFORMS CHECKDIGIT CHECK ON VALUE IN SPINPUT 8 P*
0x0971b0…097344 Dummy {f00=0x003b, f01=0x0190, f02=» $ P MOVE GSWBIN1,SPBINW1 GET LENGTH 8 P CBL GSWBIN1,=W'3',CHK1RET FOR LENGTH < 3, NO CHECK , 2 P CBL GSWBIN1,=W'7',CHK1ER IF 2<LENGTH<7, ERROR h P MOVE GSWBIN2,=W'13' P MOVE GSWBCD5,=D'0' 0 P MOVE GSWBCD6,SPINPUT GET ITEM TO BE CHECKED
0x097344…0974d8 Dummy {f00=0x003b, f01=0x0190, f02=»5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT ~ 6 P MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH . ( P ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM h * P SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX , P SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM 0 P CBNE GSWBIN1,=W'0',CH
0x0974d8…09766c Dummy {f00=0x003b, f01=0x0190, f02=» l . P SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 : P CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN : P* x PCHK1ER P MOVE SPBINW4,=W'6' ( P MOVE SPBINW3,CBIN3 SET ERROR VALUE P* PCHK1RET P RET P PEND
0x09766c…097800 Dummy {f00=0x003b, f01=0x0190, f02=»HECKS 0<DAY<32 AND 0<MONTH<13 * P* DATE IS IN THE FORM DDMMYY ( $ P* INPUT FIELD: SPINPUT V P* ~ 8 P* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 P* P******************** P * P MOVE SPBINW3,CBIN1 IN
0x097800…097994 (1, 191) Dummy {f00=0x003b, f01=0x0190, f02=» TO MONTH p 8 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET MONTH ( P CBG GSWBCD3,=D'12',CH29 CHECK MONTH N P CBL GSWBCD3,=D'1',CH29 z , P SUB GSWBIN2,=W'2' ADJUST POINTER TO DAY 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,GSWBIN2 GET DAY P CBG
0x097994…097b28 Dummy {f00=0x003b, f01=0x0190, f02=»E SPBINW4,=W'7' SET ERRORCODE PCH2RET & P MOVE GSWBCD3,=X'FF' 4 P RET P P PEND P EJECT j PSPCHK3 PROC x P**************** P* " P* SPCHK3 - CHECK MONTH P* " P* CHECKS 0<MONTH<13 ( P*
0x097b28…097cbc Dummy {f00=0x003b, f01=0x0190, f02=»INW4 ` P* P****************** $ P MOVE GSWBCD3,SPINPUT GET MONTH 0 ( P CBG GSWBCD3,=D'12',CH39 CHECK MONTH X P CBL GSWBCD3,=D'1',CH39 ( P MOVE SPBINW3,CBIN1 SET ERRORCODE OK P B CH3RET PCH39 & P MOVE SPBINW3,CBIN3 INDICA
0x097cbc…097e50 Dummy {f00=0x003b, f01=0x0190, f02=»**************** P* < P* SPCHK4 - CHANGE SIGN ON VALUE, IF KREDIT KEY " P* b P******************** l P MOVE SPBINW3,CBIN1 P CBNE SPBINW2,=W'18',CH4RET ( P MOVE GSWBCD7,SPINPUT IF KREDIT KEY P MUL GSWBCD7,=D'-1'
0x097e50…097fe4 Dummy {f00=0x003b, f01=0x0190, f02=»SPCHK5 PROC P******************** P* 0 * P* SPCHK5 - CHECK LINE NUMBER : P* h P******************* r P MOVE SPBINW3,CBIN1 * P MOVE GSWBCD3,SPINPUT GET LINE NUMBER 2 P CBG GSWBCD3,=D'96',CH510 SPECIAL FUNCTIONS ?
0x097fe4…098178 Dummy {f00=0x003b, f01=0x0190, f02=» | , P CBL GSWBCD4,=D'0',CH5ERR LINE NEGATIVE? P MOVE GSWBIN1,GSWBCD4 8 P CBG GSWBIN1,CMAXLIN,CH5ERR V P CBL GSWBIN1,CMINLIN,CH5ERR z P RET PCH5ERR P MOVE SPBINW3,CBIN3 P MOVE SPBINW4,=W'8' P RET PCH510
0x098178…09830c Dummy {f00=0x003b, f01=0x018e, f02=» SPCHK6 - CHECK THE SPCHK6 - CHECKDIGIT IN LINE NO, P* KONTOKORT @ P* P******************* f P PERF KKCH $ P MOVE GSWBCD3,SPINPUT GET DIGIT P MOVE SPBINW3,CBIN1 . P CBE GSWBCD3,=D'0',CH6RET NO CHECK IF ZERO "
0x09830c…0984a0 Dummy {f00=0x003b, f01=0x0190, f02=» P EJECT PSPCHK7 PROC P RET * P PEND 6 P EJECT D PSPTCHK PROC R P******************** f P* . P* SPTCHK - CONDITIONAL TABULATION . P* CONTROLLED BY 'CTAB' IN FORMATS P* P**************
0x0984a0…098634 (1, 192) Dummy {f00=0x0045, f01=0x0190, f02=»W'48',TCHK48 P CBE SPBINW3,=W'84',TCHK84 $ P SUB SPBINW3,=W'16' ADJUST INDEX 6 P IB SPBINW3, C ^ " P TCHK17,TCHK18,TCHK19,TCHK20 v P SUB SPBINW3,=W'61' +16-77 P IB SPBINW3,TCHK78,TCHK79 PTCHK00 CORRECT FIELD P MOVE SPBI
0x098634…0987c8 Dummy {f00=0x0045, f01=0x0190, f02=»HK17 P TBT BCPR,TCHK00 P B TCHK99 $ P* 6 PTCHK18 @ PTCHK19 N PTCHK20 P TBF BCPR,TCHK00 j P B TCHK99 P* PTCHK27 P TBF CFLT27,TCHK00 NOT USED , P CBE GTUSED(CBIN3),=W'0',TCHK99 BKO? NO $ P CBL GTR
0x0987c8…09895c Dummy {f00=0x0045, f01=0x018e, f02=»CBIN2),=W'0',TCHK99 NOT FELT 6 P B TCHK00 & P* 8 PTCHK78 B P MOVE SPBINW3,TTCNTNR P P SUB SPBINW3,=W'100' n : P CBG SPBINW3,CTR12(TTASKNR,CBIN2),TCHK00 CONTINUE TAB P B TCHK99 CORRECT FIELD P* PTCHK79 P MOVE SP
0x09895c…098af0 Dummy {f00=0x0045, f01=0x0190, f02=» x P* PTCHK84 P TBF GTTRSEL,TCHK00 P B TCHK99 < P* N PTCHK99 CONTINUE TAB X P MOVE SPBINW3,CBIN2 v P RET P PEND P EJECT PSPAPPL PROC P******************** P* L P* SPAPPL -
0x098af0…098c84 Dummy {f00=0x0045, f01=0x0190, f02=»* APPL-VALUE IS EQUAL TO FIELD-NAME (KMD FELT-KODE) @ P* A BRANCH IS MADE TO A PIECE OF CODE FOR RELEVANT D 4 P* TESTING AND BRANCH TO PACKING ROUTINE P* P******************** P* . P* SPBINW3 IS CU
0x098c84…098e18 Dummy {f00=0x0045, f01=0x0190, f02=»IELD TO BE | P ---- - AUTODUPPED " P AA02 - TEST FOR AUTODUP KEY . P AA03 - IF LENGTH ZERO, T P ---- - DELETE FIELS v P AA05 - TEST FIELD 5 P AA06 - TEST FIELD 6 P AA11 - TEST VALOERDATE P A14 - OPK TR50...
0x098e18…098fac Dummy {f00=0x0045, f01=0x0190, f02=» A32 - RATEANTAL TR50... P A46 - ALT ADR TR50... " P A48 - DEB LBNR TR50... B P A49 - [NDR TYP, TR50... d " P AA65 - IF AA05, AA06 THERE P ---- - MIGHT BE A CHOICE P ---- - OF NEW TRANSTYPE P A64 - TEST FIELD 64
0x098fac…099140 Dummy {f00=0x0045, f01=0x0190, f02=»TYPE v P ---- - 51, 53 P A76 - COUNTER, TRANS 12 $ $ P A77 - TR 4, INSERT BKO 51,52 H " P A78 - ACCOUNT NO, TRANS 12 p $ P A79 - - - - - - (COPY) " P A80-A87 - CHECK OF CONTROL P ---- - INFORMATION FOR P
0x099140…0992d4 (1, 193) Dummy {f00=0x0046, f01=0x0190, f02=»91 - ENTER TO SLUT-KEY P A100 - CHECK TR 12 P A101 - CHECK BEHL. COUNT. < P A102 - REL. DAY ` P A103 - SET BEHL. COUNT z P A104 - SET TRANS 12 L P A105 - CTRL.DIGIT CALC.
0x0992d4…099468 Dummy {f00=0x0046, f01=0x0190, f02=»- SPG-BELOB P A111 - SPG-OTHER FIELD P* 6 6 P CBG SPBINW3,=W'89',AAA SLUT FIELD OR DIV. CHECKS @ P* z P* PAA01 , P TBF GTADUPFL,AA02 AUTODUP TEST (VERIF) 0 P CLEAR GTADUPFL IF FIELD IS TO BE AUTODUPPED 0 P MOVE GSWB
0x099468…0995fc Dummy {f00=0x0046, f01=0x0190, f02=»UTODP,AA03 AUTO DUP KEY $ P CLEAR GTAUTODP IF GTAUTODP KEY, 2 P MOVE GSWBIN1,CFLTDEX(SPBINW3) GET FIELD INDEX H < P MOVE GSSWITCH(GSWBIN1),CBIN1 AND SET GTAUTODPSWITCH FOR ~ P RELEVANT FIELD TO BE USED P IN FORMATS P* PAA03
0x0995fc…099790 Dummy {f00=0x0046, f01=0x0190, f02=»SWBIN4),CBIN0 DELETE FIELD P B ART " P* 0 PAAA IB SPBINW3, C : 8 P ART,ART,ART,ART,A05,A06,A07,APF,ART, FIELDS 1-9 C T > P APK,A11,APK,APK,A14,APK,APK,A17,APK,APK, FIELDS 10,19 C > P APK,APK,APK,APK,APK,APK,APK,APK,A28,A29, FIELDS 20-2
0x099790…099924 Dummy {f00=0x0046, f01=0x0190, f02=» V > P APK,APK,APF,APF,A54,APF,APF,APF,APF,APF, FIELDS 50-59 C > P APF,APF,APF,APK,A64,A65,APK,A67,ART,ART, FIELDS 60-69 C J > P A70,A71,ART,ART,ART,ART,A76,A77,A78,A79, FIELDS 70,79 C > P A80,A81,A82,A83,A84,A85,A86,A87,A88,A89, FIELDS 80-89 C
0x099924…099ab8 Dummy {f00=0x0046, f01=0x0190, f02=»6,A107,A108,A109, FIELDS 105,109 C * P A110,A111,ART,ART,ART FIELDS 110,114 * P********** X ( PA05 CHECK REGISTRERINGSKONTONUMMER j $ P MOVE GSWBIN1,SPBINW1 GET LENGTH 6 P CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065 * P CMP GSWBIN1,=W'
0x099ab8…099c4c Dummy {f00=0x0046, f01=0x0190, f02=» z P IB GSWBIN1, C P A053,A053,A051,A053,A053 PA051 B P B APK CPR NOT NECESSARY N PA053 CPR NECESSARY n P IB GTREGDEX, C . P A054,A055,A054,A054,A055,A054,A055,A055 PA054 P B APK PA055 " P CBL GSWBIN1,C
0x099c4c…099de0 Dummy {f00=0x0046, f01=0x0190, f02=» MOVE SPBINW4,=W'3' SET ERRORCODE P B ART * P********** 8 PA06 CHECK CPR/CIR NUMBER J $ P MOVE GSWBIN1,SPBINW1 GET LENGTH l 6 P CBL GSWBIN1,=W'3',A065 TRANSTYPE HANDLING IN A065 P CBE SPBINW1,=W'7',A060 CIR P CBE SPBINW1,=W'10',A0
0x099de0…099f74 (1, 194) Dummy {f00=0x0049, f01=0x0190, f02=»00' z P BL A061 P SET BLEV LEVERAND. P CMP GSWBCD1,=D'3200000000' 8 P BG APK P CLEAR BLEV CPR. l P B APK PA061 * P CLEAR BCPR CLEAR CPR-SWITCH (CIR-NO) P B APK P********** $ PA54 FIELD 54 HAS BEEN ENTE
0x099f74…09a108 Dummy {f00=0x0049, f01=0x018e, f02=»LENGTH TO ZERO (FUNCTION) x , P MOVE GSWBCD3,SPINPUT GET NEW TRANSTYPE " P* R $ P CMP SPBINW2,=W'30' ADM ROUTINE P BE ART P CMP SPBINW2,=W'31' CYCLE P BE ART P* ( P* CHECK FOR VALID TRANSTYPE P* P*
0x09a108…09a29c Dummy {f00=0x0049, f01=0x0190, f02=» Z P TBT GTKASSE,A0672 P CBG GSWBCD3,=D'49',A0675 " 6 P CBG GSWBCD3,=D'30',A067 CORRECT FOR NOT IN KASSE D P B A0675 ~ PA0672 P CBG GSWBCD3,=D'49',A067001 . P CBL GSWBCD3,=D'30',A067 CORRECT IN KASSE P P B A0675 &
0x09a29c…09a430 Dummy {f00=0x0049, f01=0x0190, f02=» CBE GSWBCD3,CREGTAB(GSWBIN1,GTCLASS),A068 SEARCH REGNR & P ADD GSWBIN1,CBIN1 ADD 1 TO INDEX ! @ < P CBNE CREGTAB(GSWBIN1,GTCLASS),=D'-1',A067 END OF TABLE? ! j P* ! PA0675 ! * P MOVE SPBINW4,=W'9' INVALID TRANSTYPE ! P B ART ! PA068 ! "
0x09a430…09a5c4 Dummy {f00=0x0049, f01=0x0190, f02=»Y ! j 4 P CBE SPBINW2,=W'3',A06DEB HANDLING OF DEBIT KEY " . P MOVE SPBINW4,=W'4' HANDLING OF WRONG KEY " B P B ART " t PA06KRE " 0 P CBG GSWBCD3,=D'49',A06DEB TR50... ONLY DEB " P PERF SETKRE " P B A066 " PA06DEB " P PERF SETDEB "
0x09a5c4…09a758 Dummy {f00=0x0049, f01=0x0190, f02=»T NEW TRANS " ~ P PERF CLRSW # $ P CLEAR GTSPECTR SPECIAL TRANS.? # ( " P CBNG GSWBCD3,=D'49',A06601 NO # P P SET GTSPECTR YES # v P PERF PACKCL # PA06601 # P* # 6 P MOVE SPBINW2,=W'36' SIMULATE TRANSACTION SELECTED # P B ART # P****
0x09a758…09a8ec Dummy {f00=0x0049, f01=0x0190, f02=»3,=D'51',A070 # P SET TTASKAT $ PA070 $ * P CBNE GTREGDEX,=W'3',A0705 $ 6 $ P CBE GSWBCD3,=D'51',A076 TRANS 3 $ X P CBE GSWBCD3,=D'52',A076 $ PA0705 $ P MOVE GSWBIN1,CBIN16 $ . P COPY TT07TXT,CBIN0,CBIN5,CTTXT07,GSWBIN1 $ P MOVE GSWBCD
0x09a8ec…09aa80 Dummy {f00=0x0049, f01=0x018e, f02=»IN3,CBIN0 $ P CBNG SPBINW1,=W'2',A071 % 2 P MOVE GSWBIN3,CBIN1 ADJUST DUPPED FIELD INDEX % 2 PA071 % h P SUB GSWBIN1,CBIN7 % t PA0708 % P ADD GSWBIN1,CBIN7 % P CBG GSWBIN1,GSWBIN2,A075 % 6 P MATCH CTTXT07,GSWBIN1,CBIN2,SPINPUT,GSWBIN3,CBI
0x09aa80…09ac14 (1, 195) Dummy {f00=0x0049, f01=0x018e, f02=» % d P* SEE IF ALLOWED & 8 P CBNE GTREGDEX,=W'3',A077 ONLY CHECK IF TRANSTYPE 3 & * P ADD GSWBIN1,=W'5' & f P MOVE GSWSTR2,CBLANKS & 6 P COPY GSWSTR2,CBIN1,CBIN1,CTTXT07,GSWBIN1 GET TYPE & P MOVE GSWBCD3,GSWSTR2 & P CBE GSWBCD3,=D'0'
0x09ac14…09ada8 Dummy {f00=0x0049, f01=0x0190, f02=» . P CBE GSWBCD3,=D'2',A077 CIR - BKO ALLOWED ' P B A076 ' 6 PA075 ' F P TBT CBKOFLG,A077 ' R PA076 ' l P MOVE SPBINW4,=W'11' ' x P B ART ' PA077 ' P B APK ' P********** ' $ PA11 CHECK VAL DATE NOT GREATER ' P THAN POST DATE
0x09ada8…09af3c Dummy {f00=0x0049, f01=0x0190, f02=»ANGE VALOERDATE ' P MOVE GSWBCD6,SPINPUT ( , P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD6,CBIN12 ( 6 , P COPY GSWBCD6,CBIN12,CBIN2,GSWBCD6,CBIN8 ( f , P COPY GSWBCD6,CBIN8,CBIN2,GSWBCD3,CBIN4 ( " P* GET AND CHANGE POSTDATE ( P MOVE GSWBCD1,GTDATO ( , P
0x09af3c…09b0d0 Dummy {f00=0x0049, f01=0x0190, f02=» ( h P* COMPARE ) P CMP GSWBCD6,GSWBCD1 ) P BNG APK ) : P MOVE SPBINW4,=W'7' ) J P B ART ) f P********** ) t PA14 OPK-KODE TR50... ) $ P MOVE GSWBCD3,SPINPUT GET VALUE ) P CBL GSWBCD3,=D'4',A145 <4 ) P MOVE SPBINW4,=W'11' ERROR
0x09b0d0…09b264 Dummy {f00=0x0049, f01=0x018e, f02=» YY+2 ) " P MOVE GSWBCD6,SPINPUT GET FAAR * 2 P CBL GSWBCD6,=D'70',A17ERR LESS THAN 70: ERROR * 4 & P MOVE GSWBCD1,GTDATO GET POSTDATO * j P MOVE GSWBCD3,=D'2' * 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD1,CBIN12 GET YEAR * P ADD GSWBCD3,=D'2' ADD 2 * .
0x09b264…09b3f8 Dummy {f00=0x0049, f01=0x0190, f02=» P********** + PA28 DEBITOR NR, TR 50... + $ P MOVE GSWBIN1,SPBINW1 GET LENGTH + 8 P CMP GSWBIN1,=W'3' + ` P BL A065 TRANSTYPE HANDLING + z $ P CBE GSWBIN1,=W'8',A280 LENGTH 8 + & P CBE GSWBIN1,=W'10',A280 LENGTH 10 + P MOVE SPBINW4,=W'3' ERRO
0x09b3f8…09b58c Dummy {f00=0x0049, f01=0x018e, f02=» CBE SPBINW1,=W'10',A295 LENGTH 10 + P MOVE SPBINW4,=W'3' ERROR , * P B ART , L PA295 , Z P B APK , f P********** , t PA30 ADM KODE (1 EL 2) , $ P MOVE GSWBCD3,SPINPUT GET VALUE , $ P CBE GSWBCD3,=D'1',A305 VALUE 1 , $ P CBE GSWBCD3,=D'2'
0x09b58c…09b720 Dummy {f00=0x0049, f01=0x0190, f02=» $ P MOVE GSWBCD3,SPINPUT GET VALUE - " P CBL GSWBCD3,=D'13',A325 0-12 - , P MOVE SPBINW4,=W'11' ERROR - R P B ART - t PA325 - P B ART - P********** - PA46 ALT ADR (0 EL 1) - $ P MOVE GSWBCD6,SPINPUT GET VALUE - & P CBL GSWBCD6,=D'2',A
0x09b720…09b8b4 (1, 196) Dummy {f00=0x0049, f01=0x0190, f02=» P TBF BCPR,A485 . $ P MOVE GSWBCD1,SPINPUT GET VALUE . P CBL GSWBCD1,=D'100',A485 . B P MOVE SPBINW4,=W'11' . d P B ART . PA485 . P B APK . P********** . PA49 [NDRINGS TYPE . $ P MOVE GSWBCD6,SPINPUT GET VALUE . ( P CBL GSWBC
0x09b8b4…09ba48 Dummy {f00=0x0049, f01=0x0190, f02=» APK . P********** / PA64 / 4 P MOVE GSWBCD3,SPINPUT GET 'PRISREGULERINGSKODE' / * P CBG GSWBCD3,=D'5',A649 / b P CBL GSWBCD3,=D'0',A649 / $ P FIELD 64 HAS BEEN ENTERED AND / 6 P MOVE GSSWITCH(CBIN12),CBIN1 SHOULD BE GTAUTODPPED / P B A
0x09ba48…09bbdc Dummy {f00=0x0049, f01=0x018e, f02=»PUT GET VALUE / ~ P CBG GSWBCD4,=D'3999',A659 0 P CBL GSWBCD4,=D'1000',A659 0 8 P B APK 0 Z PA659 0 h P MOVE SPBINW4,=W'11' 0 t P B ART 0 P********** 0 PA67 FELT 81 0 P MOVE SPBINW3,=W'81' 0 P B APF 0 P********** 0 PA70
0x09bbdc…09bd70 Dummy {f00=0x0049, f01=0x018e, f02=» 0 z P********** 1 PA71 1 , P MOVE GSSWITCH(CBIN1),CBIN1 SET AUTODUP 1 & P MOVE GTSUM,SPINPUT 1 V & P SUB GTSUM,=D'1' SUB 1 FROM ANTAL 1 r P MOVE SPINPUT,GTSUM 1 P CBL GTSUM,=D'0',A715 1 P CMP GTSUM,=D'12' IF > 12 1 P BL ART 1 P
0x09bd70…09bf04 Dummy {f00=0x0049, f01=0x0190, f02=» 1 d P B A065 2 P********** 2 PA76 COUNTER NO, TRANS 12 2 * P CMP SPBINW1,=W'3' 2 L P BL A065 TRANSTYPE HANDLING 2 f $ P MOVE GSWBCD3,SPINPUT GET VALUE 2 P MOVE TTCNTNR,SPINPUT 2 " P SUB GSWBCD3,=D'100' GET INDEX 2 P MOVE GSWBIN1,GSWB
0x09bf04…09c098 Dummy {f00=0x0049, f01=0x0190, f02=»BIN1) 2 t & P CBE CTR12NR(GSWBIN1),=D'0',A76NOK 3 P MUST BE > 0 3 8 P B ART TO WRITE ON SCREEN 3 N PA76NOK 3 p P MOVE SPBINW4,=W'18' 3 ~ P B ART 3 P********** 3 PA77 INSERT 51,52 IN TR 4 3 P MOVE SPBINW3,=W'7' FIELD 7 3 P MOVE SP
0x09c098…09c22c Dummy {f00=0x0049, f01=0x018e, f02=»5320000' 52 IF CPR 3 ~ P B A07 4 P********** 4 ( PA78 INSERT ACCOUNT NO 4 : P 11-15 4 Z ( P MOVE SPBINW3,=W'5' SIMULATE FIELD 5 4 j P B APK 4 P******** 4 PA79 AUTODUP ACCOUNT NO 4 " P MOVE SPBINW3,=W'5' IN FIELD 5 4 ( P MOVE GSWBIN1,
0x09c22c…09c3c0 Dummy {f00=0x0049, f01=0x0190, f02=» P MOVE SPBINW1,=W'10' LENGTH 5 P B APK 5 ( P********** 5 6 " PA80 CHECK HOVEDBOG, KONTONR 5 H P MOVE SPBINW3,=W'5' FIELD 5 5 n , P MOVE SPBINW5,=W'2' MIGHT BE TRANSTYPE 2 5 ( P CBL SPBINW1,=W'3',A805 CHECK LENGTH 5 ( P CBE SPBINW1,=W'10',A801 M
0x09c3c0…09c554 (1, 197) Dummy {f00=0x004a, f01=0x0190, f02=»TKTTYP 5 z P PERF SELTR TRANS SELECTED 6 P BNOK ART INVALID KEY 6 0 P B APK OK 6 N PA805 CHECK FUNCTION KEYS 6 ` P MOVE SPBINW1,CBIN0 6 P CMP SPBINW2,=W'30' ADM KEY 6 P BE ART 6 " P CMP SPBINW2,=W'31' CYCLE KEY 6 P BE ART 6 $ P
0x09c554…09c6e8 Dummy {f00=0x004a, f01=0x0190, f02=»D 6 6 x . P MOVE SPBINW5,=W'1' MIGHT BE TRANS TYPE 1 7 P CBE SPBINW1,=W'7',A811 7 > P CBE SPBINW1,=W'10',A811 7 ^ $ P MOVE SPBINW4,=W'3' ERROR LENGTH 7 ~ P B ART 7 PA811 CPR OR CIR ? 7 P SET BCPR SET CPR NO 7 P MOVE GSWBCD1,SPINPUT 7 "
0x09c6e8…09c87c Dummy {f00=0x004a, f01=0x0190, f02=»14 7 P CLEAR BCPR SET CIR NO 8 PA812 8 ( P PERF SELTR TRANS SELECTED 8 4 P BNOK ART INVALID KEY 8 V P B APK OK 8 t P********** 8 " PA82 CHECK HOVEDBOG, YD.MODT. 8 " P MOVE SPBINW3,=W'21' FIELD 21 8 , P MOVE SPBINW5,=W'6' MIGHT BE TRANSTY
0x09c87c…09ca10 Dummy {f00=0x004a, f01=0x0190, f02=»SELTR TRANS SELECTED 8 P BNOK ART INVALID KEY 9 P B APK OK 9 : P********** 9 L $ PA83 CHECK DEBITOR, DEBITOR NR 9 ^ P MOVE SPBINW3,=W'6' FIELD 6 9 & P CBL SPBINW1,=W'3',A805 FUNCTION? 9 P CBE SPBINW1,=W'7',A830 9 P CBNE SPBINW1,=W'10'
0x09ca10…09cba4 Dummy {f00=0x004a, f01=0x0190, f02=»SWBCD1,=D'10000000',A831 9 P SET BLEV : $ P CBG GSWBCD1,=D'3200000000',A832 : 2 P CLEAR BLEV : Z P B A832 : n PA831 : ~ P CLEAR BCPR SET CIR : PA832 : P PERF SELTR : P BNOK ART : P MOVE SPBINW2,=W'3' : P B APK : PA833 :
0x09cba4…09cd38 Dummy {f00=0x004a, f01=0x018e, f02=»7 : v , P MOVE SPBINW5,=W'3' MIGHT BE TRANSTYPE 3 ; P CBNE SPBINW2,=W'3',A842 ; : P MOVE SPBINW2,=W'17' ; Z PA842 ; v P MOVE GSWBCD1,SPINPUT ; P CBE GSWBCD1,=D'+51',A845 ; P CBE GSWBCD1,=D'+52',A845 ; PA843 ; P PERF SELTR ; P BNO
0x09cd38…09cecc Dummy {f00=0x004a, f01=0x0190, f02=» ; n P MOVE SPBINW3,=W'5' FIELD 5 < ( P CBL SPBINW1,=W'3',A805 CHECK LENGTH < , ( P CBE SPBINW1,=W'10',A850 MUST BE 10 < X $ P MOVE SPBINW4,=W'3' ERROR LENGTH < P B ART < PA850 < 0 P CMP SPBINW2,=W'3' ONLY ENTER-KEY ALLOWED < P BNE A855 <
0x09cecc…09d060 Dummy {f00=0x004a, f01=0x0190, f02=» B ART < P********** = $ PA86 CHECK REMITTERING, LEV.NR. = P MOVE SPBINW3,=W'6' FIELD 6 = H , P MOVE SPBINW5,=W'8' MIGHT BE TRANSTYPE 8 = l P CBE SPBINW1,=W'7',A811 = P CBE SPBINW1,=W'10',A811 = $ P MOVE SPBINW4,=W'3' ERROR LENGTH = P B A
0x09d060…09d1f4 (1, 198) Dummy {f00=0x004a, f01=0x018e, f02=» TRANSTYPE 9 = t " P B A821 CHECK FOR INVALID KEY > P********** > : PA88 > L P MOVE SPBINW3,=W'7' FIELD 7 > X P MOVE SPBINW2,=W'36' > | P MOVE SPBINW1,='2' > P TBT BCPR,A885 > ( P MOVE SPINPUT,=X'35310000' 51 IF CIR > P B A07 > PA885 >
0x09d1f4…09d388 Dummy {f00=0x004a, f01=0x0190, f02=» P B APK ? P********** ? PA90 SIMULATE SLUT KEY ? $ P CLEAR GTSLUTFL ? D P CLEAR GTADUPFL ? " P MOVE SPBINW2,=W'17' SLUT KEY ? t $ P MOVE SPBINW1,=W'0' LENGTH ZERO ? P B ART ? P********** ? PA91 ENTER TO SLUT KEY ? P CMP S
0x09d388…09d51c Dummy {f00=0x004a, f01=0x0190, f02=» MOVE GSWBCD1,SPINPUT ? P SUB GSWBCD1,=D'100' @ P MOVE GSWBIN6,GSWBCD1 @ : & P CBL GSWBIN6,CBIN1,A1009 TOO SMALL @ X 4 P CBG GSWBIN6,CTR12(TTASKNR,CBIN2),A1009 TOO HIGH @ & P ADD GSWBIN6,CTR12(TTASKNR,CBIN1) @ P B ART @ PA1009 @ P MOVE SP
0x09d51c…09d6b0 Dummy {f00=0x004a, f01=0x0190, f02=»,A101ER @ ~ P MOVE GSWBIN6,GSWBCD1 A , P CBG GSWBIN6,CBEH(TTASKNR,CBIN2),A101ER A . $ P ADD GSWBIN6,CBEH(TTASKNR,CBIN1) A ^ P B ART A PA101ER A P MOVE SPBINW4,=W'11' A P B ART A P********** A PA102 CHECK RELATIVE DAY A P MOVE GS
0x09d6b0…09d844 Dummy {f00=0x004a, f01=0x0190, f02=»IN2,CBIN8 SET POINTER TO DAY A 6 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET DAY B $ , P ADD GSWBCD5,GSWBCD3 ADD DAY TO REL. DAY B ^ , P ADD GSWBIN2,CBIN2 SET POINTER TO MONTH B 8 P COPY GSWBCD3,CBIN4,CBIN2,GSWBCD7,GSWBIN2 GET MONTH B . P SUB GSWBCD3,=
0x09d844…09d9d8 Dummy {f00=0x004a, f01=0x0190, f02=»D REL. DAY B r P SUB GSWBCD5,=D'5' C * P CBL GSWBCD3,GSWBCD5,A102ER TOO SMALL C , P ADD GSWBCD5,=D'10' C Z * P CBG GSWBCD3,GSWBCD5,A102ER TOO LARGE C v P B A102END C PA102ER C & P MOVE SPBINW4,=W'11' INVALID VALUE C PA102END C P MOVE GSWB
0x09d9d8…09db6c Dummy {f00=0x004a, f01=0x0190, f02=» C z $ P ADD GSWBIN6,CBEH(GSWBIN1,CBIN1) D ( P CBG GSWBIN6,=W'60',A103ER TOO MANY D 0 P CBE GSWBIN1,CBIN12,A1035 D P ADD GSWBIN1,CBIN1 D ~ & P MOVE CBEH(GSWBIN1,CBIN1),GSWBIN6 D P SUB GSWBIN1,CBIN1 D PA1035 D P MOVE GSWBIN6,GSWBCD3 D & P
0x09db6c…09dd00 Dummy {f00=0x004a, f01=0x018e, f02=» SET TR 12 COUNTERS D P MOVE GSWBCD4,SPINPUT E P MOVE GSWBIN6,GSWBCD4 E : & P ADD GSWBIN6,CTR12(GSWBIN1,CBIN1) E X ( P CBG GSWBIN6,=W'60',A104ER TOO MANY E P CBE GSWBIN1,CBIN12,A1045 E P ADD GSWBIN1,CBIN1 E & P MOVE CTR12(GSWBIN1,CBIN1),GSW
0x09dd00…09de94 (1, 199) Dummy {f00=0x004a, f01=0x0190, f02=» PA104ER F P MOVE SPBINW4,=W'11' F P B ART F . P********** F < PA105 CONRTL.DIGITCALC. F N P MOVE GSWBCD6,SPINPUT F p P CBE SPBINW2,=W'3',CALCD01 F P CMP SPBINW2,=W'17' F P BNE ART F PCALCD01 F & P MOVE GSWBIN1,SPBINW1 GET
0x09de94…09e028 Dummy {f00=0x004a, f01=0x0190, f02=»CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT F | 4 P MUL GSWBCD3,WEIGTH(GSWBIN2) MULTIPLY BY WEIGHT G . * P ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM G f & P SUB GSWBIN1,=W'1' ADJUST LENGTH G , P SUB GSWBIN2,=W'1' ADJUST WEIGHT-INDEX G P CBG GSWBIN1,=W'0',CALCD02
0x09e028…09e1bc Dummy {f00=0x004a, f01=0x0190, f02=»ER MOD 11 G f P CBNE GSWBCD4,=D'0',CALCD05 H P MOVE GSWBCD4,=D'11' H 6 PCALCD05 H R P MOVE GSWBCD5,=D'11' H b 2 P SUB GSWBCD5,GSWBCD4 CALCULATE CONTROLDIGIT H ~ P B ART H P********** H PA106 CHECK VALUE 0-3 H $ P MOVE GSWBCD3,SPINPU
0x09e1bc…09e350 Dummy {f00=0x004a, f01=0x0190, f02=» POSTDATO = MASKINDATO ? H P MOVE GSWBCD7,SPINPUT I " P CBNE GSWBCD7,CMASKDAT,A1075 I @ P B ART I d PA1075 I r P SET SPWARNFL I P B ART I P********** I PA108 SPG-REGKONTONR I P MOVE GSWBCD6,=D'5' I P B ART I P**********
0x09e350…09e4e4 Dummy {f00=0x004a, f01=0x018e, f02=»=D'8' I P B ART J P********** J PA111 SPG-OTHER FIELD J . P MOVE GSWBCD6,SPINPUT J L P CBG GSWBCD6,=D'90',A111ERR J j P MOVE GSWBCD7,=D'0' J P B ART J PA111ERR J P MOVE SPBINW4,=W'11' J P B ART J P********** J PAPK
0x09e4e4…09e678 Dummy {f00=0x004a, f01=0x0190, f02=» PAPK10 K " P PERF PACKCL YES, CLEAR GTUSED K P PERF CRKJ K 8 " P SET SPME CHECK FOR ME FIELDS K J PAPK00 K p 6 P MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF FIELD K ~ 4 P MOVE GTUSED(GSWBIN1),SPBINW3 STORE FIELDNUMBER K P B ART K P**********
0x09e678…09e80c Dummy {f00=0x004a, f01=0x0190, f02=» K " P SET SPME CHECK FOR ME FIELDS L PAPF00 L . P TBT SPDUPL,APF10 L < $ P MOVE GSWBCD6,SPINPUT GET VALUE L V P MUL GSWBCD6,GTDBKRS L ~ P MOVE SPINPUT,GSWBCD6 L PAPF10 L > P MOVE GSWBIN1,CFLTDEX(SPBINW3) GET INDEX OF CURRENT FIELD L * P
0x09e80c…09e9a0 Dummy {f00=0x004a, f01=0x0190, f02=»BINW3 L x P MUL GTUSED(GSWBIN1),=W'-1' M P B ART M 2 P********** M @ PART M R P MOVE SPBINW3,CBIN1 M ^ P CBL SPBINW4,CBIN3,ARET M z P MOVE SPBINW3,CBIN3 M PARET M P RET M P PEND M P******************** M P EJECT M PSE
0x09e9a0…09eb34 (1, 200) Dummy {f00=0x004a, f01=0x0190, f02=»** M ~ P MOVE GTDBKRC,=C' KRE' N P MOVE GTDBKRS,=D'-1' N ( P MOVE TTDKBCD,=D'1' N D P MOVE TTDKDEX,=W'1' N ` P RET N | P PEND N P* N P* N P* N P* N P* N PSETDEB PROC N P******************** N P* N . P*
0x09eb34…09ecc8 Dummy {f00=0x004a, f01=0x0190, f02=» P MOVE TTDKBCD,=D'2' O P MOVE TTDKDEX,=W'2' O P RET O < P PEND O H P EJECT O V PCLRSW PROC O d P******************** O v P* O . P* CLRSW - CLEAR ALL AUTODUP FLAGS O P* O P******************** O P MOVE GSWBIN1,CBIN1
0x09ecc8…09ee5c Dummy {f00=0x004a, f01=0x0190, f02=»END O P EJECT P PSELTR PROC P P******************** P , P* P H > P* SELTR - PROCEDURE TO SEE IF TRANSTYPE HAS BEEN P R P* SELECTED. P 0 P* SELECTED TRANSTYPE IS IN SPBINW5 P P* P P******************** P &
0x09ee5c…09eff0 Dummy {f00=0x004a, f01=0x0190, f02=»E SPBINW4,=W'4' INVALID KEY P $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 Q $ P RET Q L PSEL10 KREDIT Q X P PERF SETKRE Q n P B SEL30 Q PSEL20 DEBET Q P PERF SETDEB Q PSEL30 TRANSTYPE SELECTED Q P MOVE GSWBIN1,GTKTTYP Q P IB GSWBIN1,
0x09eff0…09f184 Dummy {f00=0x004a, f01=0x0190, f02=»0,SEL90,SEL90,SEL45,SEL90 Q r PSEL45 R " P CBL GSWBIN1,CBIN3,SEL50 R 0 P SET SPWARNFL WARNING R P P B SEL90 R n PSEL50 R ~ P MOVE SPBINW4,=W'19' ERROR R P CMP CBIN1,CBIN0 R P RET R PSEL90 R P MOVE GTREGNR,SPBINW5 TYPE R 2 P MOVE
0x09f184…09f318 Dummy {f00=0x004a, f01=0x40ac, f02=»LEAR GTSPECTR NOT SPECIAL TR 50... R " P CMP CBIN0,CBIN0 OK, SET CR=0 S * P RET S P P PEND S P* S j P* S t P* S ~ P* S P* S P END S @ S P CMP CBIN1,CBIN0 R P RET R PSEL90 R P MOVE GTREGNR,SPBINW5 TYPE R 2 P MOVE
0x09f318…09f4ac Dummy {f00=0x004a, f01=0x2008, f02=» T ,=W'5'@SET POINTER OF RECEIVING FIELD > P@COPY@TABCD4,TSBIN1,CBIN1,TSBCD3,CBIN2@GET DIGIT FOR TEST 6 P@CB@GT,TSBCD4,=W'3',A659 x P@CB@LT,TSBCD4,=W'1',A659 P@B@APK PA659 PMOVE 0P&&RW 0 0 89 ' P@MOVE@CR,=W'2' P@RET
0x09f4ac…09f640 Dummy {f00=0x004a, f01=0x0190, f02=» GTREGNR TRANSTYPE D ( $* GTREGDEX TRANSTYPE - INDEX E * CEORFLG TRUE E L * TTEORFLG TRUE E l . ** GTLBNR EKSP. OF CURRENT RECORD E . )* GTUSED SAT FOR PRESENT FIELDS E * &* GTDUPF -
0x09f640…09f7d4 (1, 201) Opaque[0x194]
0x09f7d4…09f968 # DirEnt {nam=»RGMAIN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d8, f03=0x0000}
0x09f7d4…09f968 IdxSect {
0x09f7d4…09f968 f00 = 0x0086 // 0x9f7d4 @0x0
0x09f7d4…09f968 f01 = 0x000a // 0x9f7d6 @0x2
0x09f7d4…09f968 gno = [ // 0x9f7d8 @0x4
0x09f7d4…09f968 [0x00]: C0x0086.0x3.0
0x09f7d4…09f968 [0x01]: C0x0087.0x0.0
0x09f7d4…09f968 [0x02]: C0x0087.0x1.0
0x09f7d4…09f968 [0x03]: C0x0087.0x2.0
0x09f7d4…09f968 [0x04]: C0x0087.0x3.0
0x09f7d4…09f968 ]
0x09f7d4…09f968 }
0x09f968…09fafc Dummy {f00=0x0086, f01=0x018e, f02=» P IDENT RGMAIN 840124 EV P DDUM KMD08 $ P PDIV 8 P ENTRY INITRG F P ENTRY FUNCT P ENTRY TRINP p P ENTRY TRPAGE P EXT BELL P EXT SETKRE P EXT SETDEB P EXT PACKCL P EXT FMSTYR P EXT FRMTSP
0x09fafc…09fc90 Dummy {f00=0x0086, f01=0x0190, f02=» P EXT SUBTOT P EXT CYK P EXT MODP , P EXT KORT > P EXT KVIT P P EXT ADM b P EXT SUM r P EXT DIVTR P EXT ENTER P INCLUDE EQUATE P EJECT PINITRG PROC P******************** P* H P*
0x09fc90…09fe24 Dummy {f00=0x0086, f01=0x0190, f02=» ONLY KASSEFUNCTIONS, FROM OPEN TO CLOSE. . P* TWO DIFFERENT METHODS ARE USED, 4 . P* DETERMINED BY THE FLAG CTRVALG: f 0 P* CTRVALG TRUE : 'SKOVBOMETODE' 0 P* CTRVALG FALSE: 'VIBORGMETODE' P*
0x09fe24…09ffb8 Dummy {f00=0x0086, f01=0x0190, f02=»W'0' LAST LINE, SCREEN ( P MOVE SPKEY,CBIN1 USE KEY POSITION 1 P SET GTREGFLG FIRST TRANS J P CLEAR SPME l , P MOVE GTREGNR,=D'1' INITIAL TRANSTYPE 1 P MOVE GTREGDEX,CBIN1 P PERF SETKRE KREDIT " P PERF PACKCL CLEAR PACKBUFFER
0x09ffb8…0a014c Dummy {f00=0x0086, f01=0x0190, f02=»IVTR 'DIVERSE TRANS' P B TR400 P* , P* INITIATE VIBORGMETODE 6 PTR250 Z P CLEAR GTDIVTR h $ P MOVE TTSTYRDX,=W'1' 'HOVEDBOG' ~ P B TR400 P EJECT P* READ PTR400 P SET SPPROMPT , P MOVE TTTROLD,
0x0a014c…0a02e0 Dummy {f00=0x0086, f01=0x0190, f02=»' ~ $ P PERF FMSTYR ATTACH CONTROL INF P CLEAR GTTRSEL 2 P B TR430 H PTR420 X $ P PERF FRMTSP ATTACH FULL FORMAT f PTR430 P TBT GTLOKSPG,TR435 P MOVE SPKEY,CBIN1 * P PERF SPCLRA WRITE AND READ ON SCREEN P B TR500
0x0a02e0…0a0474 (1, 202) Dummy {f00=0x0087, f01=0x0190, f02=» | P* FUNCTION CALL P PERF FUNCT $ P SET GTSLUTFL 8 $ P* BRANCH ON TYPE OF FUNCTION N P IB SPBINW3, C v $ P TR510,TR520,TR530,TR540,TR550 P* $ PTR510 NEW TYPE OF CONTROL INF P B TR400 P* PTR520
0x0a0474…0a0608 Dummy {f00=0x0087, f01=0x0190, f02=»ITHOUT INPUT ~ P CLEAR SPPROMPT P PERF SPCLRA RESTAT INPUT , P B TR500 N P* ^ PTR540 FUNCTION WITH INPUT h P B TR400 P* PTR550 OUT OF REGISTRATION P SET SPME P RET P* P EJECT PTR600
0x0a0608…0a079c Dummy {f00=0x0087, f01=0x0190, f02=» TRSEL, END 1 PG, END MORE PG, ~ P* TO NEXT PAGE) & P IB SPBINW3, C B * P TR610,TR620,TR630,TR640,TR650,TR660 Z P* PTR610 MAK TYPE P TBF GTSPECTR,TR615 P PERF PACKCL IF TR 50... PTR615 P PERF TRPAGE P
0x0a079c…0a0930 Dummy {f00=0x0087, f01=0x0190, f02=»ERF SPCN P B TR500 P* PTR630 TRANSACTION SELECTED * " P TBT GTDIVTR,TR620 NOT ALLOWED N P PERF TRPAGE t P CBNE TTTROLD,GTREGDEX,TR635 * P CLEAR SPPROMPT SAME AS PREVIOUS TRANS P PERF SPINF1 P PERF FRMTSP P PERF
0x0a0930…0a0ac4 Dummy {f00=0x0087, f01=0x0190, f02=» 0 P MOVE TTTROLD,GTREGDEX NOT AS PREVIOUS TRANS P SET SPPROMPT < P PERF FRMTSP R P PERF SPCA f P B TR500 x P* PTR640 1 PAGE TRANS CORRECT P TBT GTDIVTR,TR645 2 P ERASE 10,SPLINTOP,SPLINLOW ERASE VARIABLES IN P M
0x0a0ac4…0a0c58 Dummy {f00=0x0087, f01=0x018e, f02=» " PTR650 >1 PAGE TRANS CORRECT P TBT GTDIVTR,TR615 * P MOVE GTDBKRC,=C' ' D P CLEAR GTREGFLG ` P B TR610 x P* PTR660 TO NEXT PAGE P NEXT PAGE ALREADY P ATTACHED P MOVE TTTROLD,CBIN0 P SET SPPROMPT
0x0a0c58…0a0dec Dummy {f00=0x0087, f01=0x0190, f02=» P* H P* FUNCT - PROCEDURE FOR EXECUTING ALL FUNCTIONS ALLOWED. P* INPUT: Z < P* SPBINW2, GIVING KEY INDEX, COMMING FROM t , P* SCREEN PACKAGE P* OUTPUT: 8 P*
0x0a0dec…0a0f80 Dummy {f00=0x0087, f01=0x0190, f02=» INVALID KEY z 4 P* 3 FUNCTION WITHOUT INPUT 2 P* 4 FUNCTION WITH INPUT P : P* 5 REG KEY, OUT OF REGISTRATION P* P******************** P* P IB SPBINW2, C
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x0087, f01=0x0190, f02=»21,FU22 P B FU01 P* P* * PFU01 4 PFU02 @ P CLEAR GTLOKSPG L P MAK d P MOVE SPBINW3,CBIN1 r P RET P* PFU03 ENTER P TBT GTLOKSPG,FU08 P TEST GTDIVTR P BZ FUNOK P PERF SETDEB
0x0a1114…0a12a8 Dummy {f00=0x0087, f01=0x0190, f02=»VTR P BZ FUNOK . P CBG GTREGNR,=D'49',FUNOK NOT IN TR 50... P PERF SETKRE P P PERF BELL d P PERF SPINF1 v P MOVE SPBINW3,CBIN3 KREDIT P RET P* PFU05 REG KEY P P TBT TSPOOL,FUNOK P TBT GTCYFLG,F
0x0a12a8…0a143c Dummy {f00=0x0087, f01=0x0190, f02=»FUNOK P B FUOK P* PFU07 SUBTOTAL ( P PERF SUBTOT @ P BNOK FUNOK T P B FUOK h P* x PFU08 SPG FUNCTION P PERF ADM,CBIN11 P MOVE SPBINW3,CBIN1 P RET P* PFU09 CYCLE P PERF CYK,CB
0x0a143c…0a15d0 Dummy {f00=0x0087, f01=0x0190, f02=»NOK P MOVE SPBINW3,CBIN4 P RET ( P* 4 PFU11 INVKEY, MODP > P PERF MODP Z P BNOK FUNOK l P CBE GTRETUR,=W'3',FU1110 P B FUOK PFU1110 P MOVE SPBINW3,CBIN4 P RET P* PFU12 KONTOKORT
0x0a15d0…0a1764 Dummy {f00=0x0087, f01=0x0190, f02=»NOK P B FUOK P* PFU14 SUPL & P PERF ADM,CBIN10 : P BNOK FUNOK R P B FUOK f P* v PFU15 SUM P PERF SUM P BNOK FUNOK P B FUOK P* PFU16 ADM KEY & P MOVE GSWBCD3,SPINPUT GET ADM TY
0x0a1764…0a18f8 Dummy {f00=0x0087, f01=0x018e, f02=» , P MOVE GSWBCD3,SPINPUT GET TYPE OF CYCLE P MOVE GSWBIN1,GSWBCD3 4 P IB GSWBIN1, C R 2 P FU09,FU10,FUNOK,FCYK4,FUNOK, CYCLE,STABEL C j P FUNOK,FUNOK,FUNOK,FCYK9 ( P PERF CYK,CBIN10 END OF CYCLE/STABEL P BNOK FUNOK P B FUO
0x0a18f8…0a1a8c Dummy {f00=0x0087, f01=0x0190, f02=» ( P PERF CYK,CBIN9 CLEAR ARKIV KNT. NR P BNOK FUNOK 4 P B FUOK H P* X PFU18 DIV TRANS b P PERF DIVTR z P BNOK FUNOK P MOVE SPBINW3,CBIN1 P RET P* PFU19 HOVEDBOG P TBT GTDIVTR,FUNOK P M
0x0a1a8c…0a1c20 Dummy {f00=0x0087, f01=0x018e, f02=»OVE TTSTYRDX,=W'2' P MOVE SPBINW3,CBIN1 P RET 6 P* B PFU21 REMITTERING L P TBT GTDIVTR,FUNOK f P MOVE TTSTYRDX,=W'3' P MOVE SPBINW3,CBIN1 P RET P* $ PFU22 TRANS SELECTION IN DIVTR P TBF GTDIVTR,FUNOK
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x0087, f01=0x0190, f02=» n P MOVE SPBINW3,CBIN2 P RET $ P* 0 PFUOK : P MOVE SPBINW3,CBIN3 F P RET b P* n P* x P PEND P EJECT PTRINP PROC P******************** P* F P* TRINP - PROCEDURE FOR HANDLING INFORM
0x0a1db4…0a1f48 Dummy {f00=0x0087, f01=0x0190, f02=» WHICH THE SCREEN PACKAGE CAN NOT TAKE CARE OF P* ITSELF. > $ P* SPCHANGE WILL BE SET. X P* INPUT: 8 P* SPBINW2: INDEX FOR THE KEY DEPRESSED P* OUTPUT: 6 P* SPBINW3:
0x0a1f48…0a20dc Dummy {f00=0x0087, f01=0x0190, f02=»CTION SELECTED v , P* 4 1 PAGE TRANS CORRECT . P* 5 >1 PAGE TRANS CORRECT F < P* 6 NEXT PAGE OF TRANS ALREADY ATTACHED x P* P******************** P* P IB SPBINW2, C P IN01,I
0x0a20dc…0a2270 Dummy {f00=0x0087, f01=0x018e, f02=»02 MAK P MOVE SPBINW3,CBIN1 P RET , P* 8 PIN03 AFTER SLUT, B P TBT GTTRSEL,IN030 ( P CBE SPBINW1,=W'0',IN00 NOT ALLOWED v PIN030 P PERF ENTER * P BNOK IN035 ERRORS DETECTED IN FLDTST P IB GTRETUR, C
0x0a2270…0a2404 Dummy {f00=0x0087, f01=0x0190, f02=» PIN033 P MOVE SPBINW3,CBIN5 P RET . PIN035 : P TBWD TAB OVER LAST FIELD H P MOVE SPBINW3,CBIN2 j P RET P* PIN22 P TRANS SELECTED P MOVE SPBINW3,CBIN3 P RET P* P PEND P EJECT
0x0a2404…0a2598 Dummy {f00=0x0087, f01=0x0190, f02=» 6 P* INFORMATION ABOUT THE SIZE AND TYPE OF P* THE TRANSACTION > P* ` P******************** j P* & P SET GTTRSEL TRANSACTION SELECTED P CLEAR GTTYPE2 P CLEAR GTTYPE3 P MOVE GTPAGE,CBIN1 B P*
0x0a2598…0a272c Dummy {f00=0x0087, f01=0x0190, f02=» 51, 52, 53, 54 P IB GTREGDEX, C ( < P PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01, C @ < P PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01, C P PG02,PG01,PG02,PG01 P* PPG01 P RET P*
0x0a272c…0a28c0 Dummy {f00=0x0087, f01=0x4022, f02=» P* P END @ P IB GTREGDEX, C ( < P PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG02,PG02,PG01, C @ < P PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01,PG01, C P PG02,PG01,PG02,PG01 P* PPG01 P RET P*
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x0087, f01=0x2008, f02=» NT RGMAIN @ AG&5 z < PTRERR ERRORMESSAG&5 * P PERF SPERR j P B TR90 P PEND P* P* @ NTERMEDIATE STOP OF CYCLE 8 P
0x0a2a54…0a2be8 Dummy {f00=0x0087, f01=0x4016, f02=» " + t < + s & 0 : D | 9 + N W C l i 6 X 0 3 o p F m $ 4 p } m X 8 i ^ A K | 3 h + j c
0x0a2be8…0a2d7c Dummy {f00=0x0087, f01=0x4016, f02=» 4 ~ 7 * f | , 2 6 ( 2 $ W 2 d z + ( i + O N + H + V E 5 [ n f b N k Z. l *. C TR @ ** p 4 z B* v ** 9I ) r B9 J n
0x0a2d7c…0a2f10 Dummy {f00=0x0087, f01=0x4016, f02=» " H B9 H i *. E AR 1 ** D j *. F W E- - BX + B9 2 5 B9 B 99 # XX x C B9 ' 99 f ~ B* U u B9 I n XX R f ZZ R V ] BB M U ZZ = P BP 6 ? J XX N B ** F ; ZZ ( 7 B* 4 D 2 AD / . BZ
0x0a2f10…0a30a4 Dummy {f00=0x0087, f01=0x4016, f02=» 99 J w 99 h Y p E ] i MA ^ b PO [ [ DA A W S < _ P ST I KO X N D _ : BX Z 1 BX g ' BB BZ 6 " BZ p BB X XX XE < o B9 , ! BX BB D BZ v ZZ | b Z. ^ Z. L XX d
0x0a30a4…0a3238 Dummy {f00=0x0087, f01=0x4016, f02=» : P ZZ @ 99 b X r 9 > g B ~ S 2 / ~ Z < < } 8 # 5 *} 4 * } ( . * , 6 ADM5 2 1 0 / 2 T:USE d T:RSTR T:PAUS 2 T:
0x0a3238…0a33cc Dummy {f00=0x0087, f01=0x4016, f02=» T:EXIT T:DCWR T:DCRE T:ACTV N ? WJDC ` TRNOK z TERMIN STRTRC b SIGNON N SIGNOF SENDRC : EXCHAN CHNGDK BCACTV h a ADM6
0x0a33cc…0a3560 Dummy {f00=0x0087, f01=0x4016, f02=» R } RGSUB1 p d % LFLDTST X KKTRP < FMTNXT & CYKINT $ CYCLR L s RGSUBS FRMTSP FMSTYR ENTER 8TRINP 8FUNCT e RGMAIN D x N
0x0a3560…0a36f4 (1, 206) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»RGFRMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0710, f03=0x0000}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x0038 // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0014 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x0038.0x2.0
0x0a36f4…0a3888 [0x01]: C0x003a.0x2.0
0x0a36f4…0a3888 [0x02]: C0x0051.0x3.0
0x0a36f4…0a3888 [0x03]: C0x005b.0x1.0
0x0a36f4…0a3888 [0x04]: C0x005b.0x2.0
0x0a36f4…0a3888 [0x05]: C0x006c.0x2.0
0x0a36f4…0a3888 [0x06]: C0x006c.0x3.0
0x0a36f4…0a3888 [0x07]: C0x006d.0x3.0
0x0a36f4…0a3888 [0x08]: C0x006e.0x0.0
0x0a36f4…0a3888 [0x09]: C0x006e.0x1.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x0038, f01=0x0190, f02=» P IDENT RGFRMT 821005 NJ P DDUM KMD08 $ P PDIV 8 P ENTRY FRMTSP F P ENTRY FRMXSP P ENTRY FMSTYR r P INCLUDE EQUATE PFMSTYR PROC P******************** P* 0 P* FORMATS FOR CONTROLLING CHOICE OF
0x0a3a1c…0a3bb0 Dummy {f00=0x0038, f01=0x0190, f02=» P PEND P* PFRMTSP PROC P* 0 P******************* : : P* ATTACHES A FORMAT FOR USE IN SCREEN PACKAGE V P* > P* USES GTREGDEX TO DETERMINE WHICH FORMAT TO USE P* P******************** P*
0x0a3bb0…0a3d44 Dummy {f00=0x0038, f01=0x0190, f02=» 0 P* ATTACHES FORMATS FOR PAGE 2 AND 3 ( P* FOR TRANSTYPES 8,9,51,53 8 2 P* PLUS OTHER EXTRA FORMATS ON SCREEN d P* P******************* P ATTFMT XSPFTB(XSPDEX) P RET P PEND P* P EJECT
0x0a3d44…0a3ed8 Dummy {f00=0x0038, f01=0x0190, f02=» 8 PSPFTB FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C , P FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C @ , P FRMT12,FRMT00,FRMT00,FRMT00,FRMT00, C p , P FRMT00,FRMT00,FRMT00,FRMT00,FRMT00 C ( P FRMT51,FRMT00,FRMT53,FRMT00,FRMT00 P* P*
0x0a3ed8…0a406c Dummy {f00=0x0038, f01=0x0190, f02=»C p P XSPLIN P EJECT PSTYRHB FRMT ( P FSL < P FTAB 4 H P FCOPY ='HOVEDBOG' X P FLINK FCYST r P FNL P FCOPY ='REGKONTONR' P FTAB 13 P FCOPY ='CPR/CIR/NR' P FTAB 25 P FCOPY ='YDELSESMODT' P
0x0a406c…0a4200 Dummy {f00=0x0038, f01=0x018e, f02=»KI 13,MINL=7,MAXL=10,REWRT,APPL=81,DUPL=GTDUPF(CBIN2), C P SCHK=1 B & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) R B P FKI 25,MINL=10,MAXL=10,REWRT,APPL=82,DUPL=GTDUPF(CBIN10), C | P SCHK=1 ( P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10) P FMEND
0x0a4200…0a4394 (1, 207) Dummy {f00=0x003a, f01=0x0190, f02=» P FNL P FCOPY ='DEBITOR' P FILLR ' ',1 . P FCOPY ='NR' B P FILLR ' ',2 V P FCOPY ='BET-ART' j P FNL 8 P FKI 1,MAXL=10,REWRT,APPL=83,DUPL=GTDUPF(CBIN2), C P SCHK=1,ME & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) 2
0x0a4394…0a4528 Dummy {f00=0x003a, f01=0x0190, f02=»'XX',GTREGF(CBIN3) P FMEND P* ( P* 2 PSTYRRM FRMT < P FSL P P FTAB 3 P FCOPY =' REMITTERING' l P FLINK FCYST P FNL P FCOPY ='REGKONTONR' P FTAB 13 P FCOPY ='LEVERAND ' P FCOPY ='NR' P F
0x0a4528…0a46bc Dummy {f00=0x003a, f01=0x0190, f02=» FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1) @ P FKI 13,MINL=7,MAXL=10,REWRT,APPL=86,DUPL=GTDUPF(CBIN2), C * P SCHK=1,ME n & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) B P FKI 25,MINL=10,MAXL=10,REWRT,APPL=87,DUPL=GTDUPF(CBIN10), C P SCHK=1 ( P FMEL
0x0a46bc…0a4850 Dummy {f00=0x003a, f01=0x0190, f02=» P* P* 6 PFRMT01 FRMT TRANSTYPE 1 P FSL R P FBF GTDIVTR,SFMT01 ^ P FMEL '99',GTREGNR z P FCOPY =' NORMALPOST' P FTEXT ' M/P-NR' P FLINK FCYST P FNL P FCOPY ='REGKONTONR'
0x0a4850…0a49e4 Dummy {f00=0x003a, f01=0x0190, f02=»F06 ~ P FNL PSFMT01 P FBT GTDIVTR,SFMX01 . P FTAB 4 J P FCOPY ='HOVEDBOG' Z P FLINK FCYST t P FNL P FNL P FNL PSFMX01 P FLINK FBELOB P FNL P FLINK SUBF08
0x0a49e4…0a4b78 Dummy {f00=0x003a, f01=0x0190, f02=» FCOPY ='BFO' P FNL P FLINK SUBV07 . P FLINK SUBF11 L P FLINK SUBF12 j P FLINK FCYEND P FMEND P* P* 6 P TRANSTYPE 2 PFRMT02
0x0a4b78…0a4d0c Dummy {f00=0x003a, f01=0x0190, f02=» P FNL P FCOPY ='REGKONTONR' P FNL < P FLINK SUBF05 P P FNL n PSFMT02 P FBT GTDIVTR,SFMX02 P FTAB 4 P FCOPY ='HOVEDBOG' P FLINK FCYST P FNL P FNL P FNL
0x0a4d0c…0a4ea0 Dummy {f00=0x003a, f01=0x0190, f02=» P FLINK FCYEND P FMEND P* 0 P* : 6 P TRANSTYPE 3 D PFRMT03 FRMT ~ P FSL P FBF GTDIVTR,SFMT03 P FMEL '99',GTREGNR P FTEXT ' DEBITORINDB' P FLINK FCYST P
0x0a4ea0…0a5034 (1, 208) Dummy {f00=0x0051, f01=0x0190, f02=» P FLINK SUBF06 0 P FKI 30,MAXL=2,APPL=7,ME,DUPL=GTDUPF(CBIN3) & P FMEL 'XX',GTREGF(CBIN3) Z P FNL z PSFMT03 P FBT GTDIVTR,SFMX03 P FTAB 4 P FCOPY ='DEBITOR' P FCOPY =' POST.' P FLINK FCYST
0x0a5034…0a51c8 Dummy {f00=0x0051, f01=0x0190, f02=»B 22 P FLINK FVALOR P FNL " P FLINK SUBF08 . P FLINK SUBF15 D P FLINK SUBF11X Z P FNL p P FCOPY ='RTE/GEB' | P FTAB 9 P FCOPY =' DEB' P FTAB 18 P FCOPY ='BFO' P FNL P FLINK SUBF16 P FLI
0x0a51c8…0a535c Dummy {f00=0x0051, f01=0x0190, f02=» P* P* 6 P TRANSTYPE 4 PFRMT04 FRMT V P FSL l P FBF GTDIVTR,SFMT04 x P FMEL '99',GTREGNR P FTEXT ' SD-INCASSO' P FLINK FCYST P FNL P FTAB 13
0x0a535c…0a54f0 Dummy {f00=0x0051, f01=0x0190, f02=» 30,MAXL=2,APPL=77,REWRT,VERIF P FMEL 'XX',GTREGF(CBIN3) & P FNL F PSFMT04 Z P FBT GTDIVTR,SFMX04 h P FTAB 4 P FCOPY ='DEBITOR' P FCOPY =' POST.' P FLINK FCYST P FNL P FNL P FNL PSFMX04
0x0a54f0…0a5684 Dummy {f00=0x0051, f01=0x0190, f02=» ' ',7 P FLINK FVALOR P FILLR ' ',4 $ P FTEXT 'BFO' 8 P FNL L P FLINK SUBF17 X P FLINK SUBF11X n . P FKI 32,MAXL=2,APPL=12,DUPL=GTDUPF(CBIN8) P FMEL 'XX',GTREGF(CBIN8) P FLINK FCYEND P FMEND P*
0x0a5684…0a5818 Dummy {f00=0x0051, f01=0x0190, f02=»XT ' SALDOOVERF' P FLINK FCYST P FNL , P FCOPY ='REGKONTONR' @ P FNL d P FLINK SUBF05 x P FNL P FLINK FBELOB P FNL P FLINK SUBF08 P FNL
0x0a5818…0a59ac Dummy {f00=0x0051, f01=0x018e, f02=»PE 6 b PFRMT06 FRMT P FSL " P FBF GTDIVTR,SFMT06 . P FMEL '99',GTREGNR J P FCOPY =' BRILLE' d P FCOPY =' POST.' ~ P FLINK FCYST P FNL P FCOPY ='REGKONTONR' P FTAB 13 P FCO
0x0a59ac…0a5b40 Dummy {f00=0x0051, f01=0x0190, f02=» P FLINK SUBF06 P FLINK SUBF21 P FNL 8 PSFMT06 L P FBT GTDIVTR,SFMX06 Z P FTAB 4 v P FCOPY ='HOVEDBOG' P FLINK FCYST P FNL P FNL P FNL PSFMX06 P FLINK FBELOB P
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x005b, f01=0x018e, f02=» z P FTAB 18 P FCOPY ='BFO' " P FTAB 22 @ P FCOPY ='MTB' Z P FNL x P FLINK SUBV07 P FLINK SUBF11 P FLINK SUBF12 P FLINK SUBF22 P FLI
0x0a5cd4…0a5e68 Dummy {f00=0x005b, f01=0x0190, f02=» P FSL P FMEL '99',GTREGNR P FCOPY =' PRIMO' . P FCOPY ='SALDO' F P FLINK FCYST ^ P FNL r P FCOPY ='REGKONTONR' P FNL P FLINK SUBF05 P FNL P FLINK FBELOB
0x0a5e68…0a5ffc Dummy {f00=0x005b, f01=0x018e, f02=» P* P* < P TRANSTYPE 08-01-1 PFRMT08 FRMT X P FSL n P FBF GTDIVTR,SFMT08 z P FMEL '99',GTREGNR " P FCOPY =' REMITTERING' P FLINK FCYST P FNL P F
0x0a5ffc…0a6190 Dummy {f00=0x005b, f01=0x018e, f02=» P FLINK SUBF06 P FNL " PSFMT08 6 P FBT GTDIVTR,SFMX08 D P FTAB 3 ` P FCOPY =' REMITTERING' p P FLINK FCYST P FNL P FNL P FNL PSFMX08 P FLINK FBELOB P FTAB 17
0x0a6190…0a6324 Dummy {f00=0x005b, f01=0x018e, f02=» P FCOPY ='LEVKONTO' P FTAB 13 * P FLINK FVALOR : P FTAB 22 P P FCOPY ='TXT' ` P FNL v P FLINK SUBF25 P FLINK SUBF11Y P FLINK SUBF26X P FLINK FCYEND P FMEND P*
0x0a6324…0a64b8 Dummy {f00=0x005b, f01=0x0190, f02=» P FMEL '99',GTREGNR P FCOPY =' REMITTERING' P FCOPY =' BRILLE' < P FLINK FCYST V P FNL j P FCOPY ='REGKONTONR' ~ P FTAB 13 P FCOPY ='LEVERAND ' P FTAB 25 " P FCOPY
0x0a64b8…0a664c Dummy {f00=0x005b, f01=0x0190, f02=» FNL PSFMT09 P FBT GTDIVTR,SFMX09 P FTAB 3 < P FCOPY =' REMITTERING' L P FLINK FCYST j P FNL ~ P FNL P FNL PSFMX09 P FLINK FBELOB P FTAB 17 * P FCOPY ='FAKTNR FAKT
0x0a664c…0a67e0 Dummy {f00=0x005b, f01=0x0190, f02=» P FTAB 13 P FCOPY ='TXT' P FTAB 22 * P FLINK FVALOR : P FNL P P FLINK SUBF25 d P FLINK SUBF26 P FLINK SUBF11X P FLINK FCYEND P FMEND P* P* 8 P
0x0a67e0…0a6974 (1, 210) Dummy {f00=0x005b, f01=0x0190, f02=»LINK FCYST P FNL P FCOPY ='REGKONTONR' & P FNL J P FLINK SUBF05 ^ P FNL | P FLINK FBELOB P FTAB 17 P FCOPY ='CPR/CIR/NR' P FNL P FLINK SUBF08
0x0a6974…0a6b08 Dummy {f00=0x005b, f01=0x0190, f02=» FNL P FNL P FLINK FCYEND & P FMEND < P* R P* PFRMT12 FRMT f P FSL z P FMEL '99',GTREGNR P FCOPY =' DIVERSE' P FILLR ' ',1 P FCOPY ='EJ EDB' P FLINK FCYST P FNL P F
0x0a6b08…0a6c9c Dummy {f00=0x005b, f01=0x0190, f02=»7,MAXL=10,REWRT,APPL=78,SCHK=1,CTAB & P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1) , , P FKI 5,MAXL=10,APPL=79,VERIF,REWRT,CTAB V & P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1) P FNL P FLINK FBELOB P FTAB 17 P FCOPY =' DIVERSE' P FNL P
0x0a6c9c…0a6e30 Dummy {f00=0x005b, f01=0x0190, f02=» P FMEND ! P EJECT ! $ P* FORMATS FOR TRANS 51,53 ! PFRMT51 FRMT TRANS 51 P.1 ! H P FSL ! j P FMEL '99',GTREGNR ! v P FCOPY =' RATE-P]LIGN' ! P FLINK FCYST ! P FNL ! P FCOPY ='DEBITOR' ! P FCOPY ='NR' ! P FILLR ' ',3
0x0a6e30…0a6fc4 Dummy {f00=0x005b, f01=0x018e, f02=»LINK SUBR28 ! P FLINK SUBR06 " P FLINK SUBR48 " * P FLINK SUBR07 " @ P FLINK SUBR15 " V P FNL " l P FLINK FRTBEL " x P FTAB 18 " P FCOPY ='RATE' " P FCOPY ='NR' " P FILLR ' ',2 " P FCOPY ='RATE' " P FCOPY ='ANTAL' "
0x0a6fc4…0a7158 Dummy {f00=0x005b, f01=0x018e, f02=» P FCOPY ='P]L-' # P FCOPY ='DATO' # P FNL # 0 P FLINK SUBR14 # < P FLINK SUBR31 # R P FLINK FCYEND # h P FMEND # ~ P* # P* # PFRMT53 FRMT TRANS 53 P.1 # P FSL # P FMEL '99',GTREGNR # P FCOPY =' RATE-[NDR' # P FLI
0x0a7158…0a72ec Dummy {f00=0x005b, f01=0x0190, f02=» # P FCOPY ='LBNR ART' $ P FILLR ' ',2 $ " P FCOPY =']R' $ 6 P FNL $ J P FLINK SUBR28 $ V P FLINK SUBR06 $ l P FLINK SUBR48 $ P FLINK SUBR07 $ P FLINK SUBR15 $ P FNL $ P FCOPY ='[NDR-' $ P FLINK FBELOB $ P FTAB 18 $
0x0a72ec…0a7480 Dummy {f00=0x005b, f01=0x0190, f02=»R47 $ P FLINK SUBR36 % P FLINK SUBR32 % " P FNL % 8 P FCOPY ='OPK-KODE' % D P FILLR ' ',1 % ^ P FCOPY ='[NDR-' % r P FCOPY ='DATO' % P FILLR ' ',2 % P FCOPY ='[NDR-' % P FCOPY ='KODE' % P FNL % P FLINK SUBR14 % P FLI
0x0a7480…0a7614 (1, 211) Dummy {f00=0x006c, f01=0x0190, f02=» % P FCOPY TTINF1 & P FMEND & P* & , PFCYEND FRMT & 6 P FNL & J P FBF GTLOKSPG,FCY05 & V P FTAB 5 & r P FMEL '****9',GTLBNR & PFCY05 & P FBF TTSUMFLG,FCY10 & P FTAB 15 & P FCOPY GTL8TXT & P FINP 23 & P FMEL 'ZZZ
0x0a7614…0a77a8 Dummy {f00=0x006c, f01=0x0190, f02=»=90,VERIF & ~ P FMEL 'B',TSWBCD2 ' P FMEND ' , P* ' : P* ' D PFVALOR FRMT ' N P FCOPY ='VAL' ' b P FILLR X'5C',1 ' x P FILLR 'R',1 ' P FMEND ' P* ' PFBELOB FRMT ' P FCOPY ='BE' ' P FILLR 'L',1 ' P FILLR X'5C',1 '
0x0a77a8…0a793c Dummy {f00=0x006c, f01=0x0190, f02=»* ' P* ( @ P REGISTRERINGSKONTONNR ( PSUBF05 FRMT ( X F P FKI 1,MAXL=10,REWRT,APPL=5,DUPL=GTDUPF(CBIN1), C ( n " P SCHK=1,ME,NCLR ( 0 P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN1
0x0a793c…0a7ad0 Dummy {f00=0x006c, f01=0x018e, f02=» ( F P FKI 13,MAXL=10,REWRT,APPL=6,DUPL=GTDUPF(CBIN2), C ) " P SCHK=1,ME,NCLR ) R & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN2) ) x P FMEND ) P* ) PSUBV07 FRMT ) 6 P FKI 1,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3) ) &
0x0a7ad0…0a7c64 Dummy {f00=0x006c, f01=0x0190, f02=» PSUBF08 FRMT * @ P FKI 1,MAXL=12,REWRT,APPL=8,DUPL=GTDUPF(CBIN4), C * P ME,NCLR,SCHK=4 * ^ 2 P FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN4) * v P FMEND * PSUBF08X FRMT * 6 P FKI 1,MAXL=11,REWRT,APPL=8,DUPL=GTDUPF(CBIN4), C
0x0a7c64…0a7df8 Dummy {f00=0x006c, f01=0x0190, f02=» BETALINGS-/VAL@RDATO * x PSUBF11 FRMT + , D P FKI 5,MINL=6,MAXL=6,APPL=11,DUPL=GTDUPF(CBIN7),SCHK=2 + B , P FMEL 'XXVXXVXX',GTREGF(CBIN7) + P FMEND + PSUBF11X FRMT + < P FKI 22,MINL=6,MAXL=6,APPL=11,DUPL=G
0x0a7df8…0a7f8c Dummy {f00=0x006c, f01=0x018e, f02=»TDUPF(CBIN7),SCHK=2 + l " P FMEL 'XXVXXVXX',GTREGF(CBIN7) , P FMEND , B P* , P P* , Z 8 P BETALINGSFORM , d PSUBF12 FRMT , 8 P FKI 18,MAXL=1,APPL=12,DUPL=GTDUPF(CBIN8) , $ P FMEL 'X',GTR
0x0a7f8c…0a8120 Dummy {f00=0x006c, f01=0x0190, f02=» , 8 P FKI 18,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11) - & P FMEL 'X',GTREGF(CBIN11) - D P FMEND - n P* - P* - < P RENTE/GEBYR KODE - PSUBF16 FRMT - < P FKI 1,MAXL=1,AP
0x0a8120…0a82b4 (1, 212) Dummy {f00=0x006c, f01=0x0190, f02=» P* . H P FORFALDS]R/RESTANCE ]R-M]NED/ . 8 P OPRIKD[KKODE . Z PSUBF17 FRMT . D P FKI 1,MINL=2,MAXL=2,APPL=17,DUPL=GTDUPF(CBIN10),CTAB . & P FMEL 'XX',
0x0a82b4…0a8448 Dummy {f00=0x006c, f01=0x0190, f02=» FKI 9,MINL=2,MAXL=2,APPL=19,DUPL=GTDUPF(CBIN12),CTAB . P FMEL 'XX',GTREGF(CBIN12) / H > P FKI 13,MAXL=1,APPL=20,DUPL=GTDUPF(CBIN13),CTAB / j & P FMEL 'X',GTREGF(CBIN13) / P FMEND / P* / P* / : P
0x0a8448…0a85dc Dummy {f00=0x006c, f01=0x0190, f02=»CBIN10), C / T " P SCHK=1,ME,NCLR 0 0 P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN10) 0 < P FMEND 0 p P* 0 P* 0 B P MODTAGERS BETALINGSART 0 PSUBF22 FRMT 0 @ P FKI 22,
0x0a85dc…0a8770 Dummy {f00=0x006c, f01=0x0190, f02=» FAKTURA NUMMER OG DATO 0 PSUBF24 FRMT 1 D : P FKI 17,MAXL=10,APPL=24,DUPL=GTDUPF(CBIN13) 1 Z . P FMEL 'TTTTTTTTTX',GTREGF(CBIN13) 1 H P FKI 28,MINL=6,MAXL=6,APPL=23,DUPL=GTDUPF(CBIN12),
0x0a8770…0a8904 Dummy {f00=0x006c, f01=0x0190, f02=» LEVERAND. KONTONUMMER 1 PSUBF25 FRMT 2 B 8 P FKI 1,MAXL=10,APPL=25,DUPL=GTDUPF(CBIN14) 2 X . P FMEL 'TTTTTTTTTX',GTREGF(CBIN14) 2 P FMEND 2 P* 2 P* 2 6 P
0x0a8904…0a8a98 Dummy {f00=0x006c, f01=0x0190, f02=»',GTREGF(CBIN15) 2 | P FMEND 3 P* 3 . P* 3 8 PSUBF26X FRMT 3 B . P FKI 22,MAXL=4,APPL=26,DUPL=GTDUPF(CBIN15) 3 V P FMEL 'TTTX',GTREGF(CBIN15) 3 P FMEND 3 P* 3 P* 3 8 P OMR]DENUMMER 3
0x0a8a98…0a8c2c Dummy {f00=0x006c, f01=0x0190, f02=» FMEND 3 P* 4 P* 4 : P PERIODE FRA/TIL 4 & PSUBF37 FRMT 4 d H P FKI 1,MINL=6,MAXL=6,APPL=37,DUPL=GTDUPF(CBIN18), C 4 z P SCHK=2 4 , P FMEL 'XXVXXVXX',GTREGF(CBI
0x0a8c2c…0a8dc0 Dummy {f00=0x006c, f01=0x0190, f02=»VXXVXX',GTREGF(CBIN19) 4 ~ P FMEND 5 P* 5 4 P* 5 > B P ALTERNATIV ADRESSEKODE 5 H PSUBF46 FRMT 5 8 P FKI 11,MAXL=1,APPL=46,DUPL=GTDUPF(CBIN17) 5 & P FMEL 'X',GTREGF(CBIN17) 5
0x0a8dc0…0a8f54 (1, 213) Dummy {f00=0x006d, f01=0x0190, f02=» FKI 10,MAXL=3,APPL=48,DUPL=GTDUPF(CBIN15) 5 ( P FMEL 'TTX',GTREGF(CBIN15) 6 6 P FMEND 6 b P* 6 x P* 6 P EJECT 6 & P* SUBFORMATS FOR TRANS 51,53 6 P* 6 P* 6 PSUBR06 FRMT 6 > P FKI 13,MINL=7,MAXL=10,REWRT
0x0a8f54…0a90e8 Dummy {f00=0x006d, f01=0x0190, f02=» BETALINGSKODE 6 PSUBR07 FRMT 7 < > P FKI 30,MAXL=2,APPL=7,DUPL=GTDUPF(CBIN3),ME,NCLR 7 R & P FMEL 'XX',GTREGF(CBIN3) 7 P FMEND 7 P* 7 P* 7 PSUBR14 FRMT 7 , P FKI 1,MAXL=
0x0a90e8…0a927c Dummy {f00=0x006d, f01=0x0190, f02=» 35,MAXL=1,APPL=15,DUPL=GTDUPF(CBIN11) 7 & P FMEL 'X',GTREGF(CBIN11) 8 0 P FMEND 8 Z P* 8 p P* 8 z PSUBR27 FRMT 8 : P FKI 21,MINL=2,MAXL=2,APPL=27,DUPL=GTDUPF(CBIN16), C 8 P CTAB 8 P FMEL 'XX',GTREGF(CBIN16) 8 P F
0x0a927c…0a9410 Dummy {f00=0x006d, f01=0x0190, f02=»XXXXXXXE-XX',GTREGF(CBIN1) 8 P FMEND 9 " P* 9 0 P* 9 : PSUBR29 FRMT 9 D > P FKI 9,MINL=7,MAXL=10,REWRT,APPL=29,DUPL=GTDUPF(CBIN8), C 9 X P SCHK=1 9 & P FMEL 'XXXXXXE-XXXX',GTREGF(CBIN8) 9 P FMEND 9 P* 9 P* 9 PSUBR30 FRMT 9 ,
0x0a9410…0a95a4 Dummy {f00=0x006d, f01=0x018e, f02=» FKI 10,MINL=6,MAXL=6,APPL=31,DUPL=GTDUPF(CBIN7), C 9 P SCHK=2 : < " P FMEL 'XXVXXVXX',GTREGF(CBIN7) : L P FMEND : r P* : P* : PSUBR32 FRMT : P FKI 26,MAXL=2,APPL=32 : P FMEL 'XX',GTRTANT : P FMEND : P* : P* : PSUBR36
0x0a95a4…0a9738 Dummy {f00=0x006d, f01=0x0190, f02=» : P* ; PSUBR39 FRMT ; 8 P FKI 1,MAXL=12,REWRT,APPL=39,DUPL=GTDUPF(CBIN6), C ; & P ME,NCLR,SCHK=4 ; b * P FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN6) ; z P FMEND ; P* ; P* ; PSUBR40 FRMT ; 8 P FKI 10,MINL=6,MAXL=6,APPL=40,DUPL=GTDUPF(
0x0a9738…0a98cc Dummy {f00=0x006d, f01=0x0190, f02=»XL=2,APPL=41,DUPL=GTDUPF(CBIN18) ; P FMEL 'XX',GTREGF(CBIN18) < ( P FMEND < J P* < X P* < b PSUBR43 FRMT < l 8 P FKI 1,MINL=6,MAXL=6,APPL=43,DUPL=GTDUPF(CBIN20), C < P SCHK=2 < $ P FMEL 'XXVXXVXX',GTREGF(CBIN20) < P FMEND < P* <
0x0a98cc…0a9a60 Dummy {f00=0x006d, f01=0x0190, f02=»CBIN21) < x P FMEND = P* = P* = ( PSUBR45 FRMT = 2 : P FKI 24,MINL=6,MAXL=6,APPL=45,DUPL=GTDUPF(CBIN22), C = F P SCHK=2 = $ P FMEL 'XXVXXVXX',GTREGF(CBIN22) = P FMEND = P* = P* = B P ALT
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x006e, f01=0x0190, f02=»CBIN17) = v P FMEND > P* > & P* > 0 PSUBR47 FRMT > : 8 P FKI 1,MAXL=12,REWRT,APPL=47,DUPL=GTDUPF(CBIN6), C > N P ME,NCLR,SCHK=4 > * P FMEL 'TTTTTTTVTTX,XX-',GTREGF(CBIN6) > P FMEND > P* > P* > < P
0x0a9bf4…0a9d88 Dummy {f00=0x006e, f01=0x0190, f02=» FMEL 'TTX',GTREGF(CBIN15) > P FMEND ? & P* ? < P* ? F PSUBR49 FRMT ? P . P FKI 25,MAXL=1,APPL=49,DUPL=GTDUPF(CBIN10) ? d P FMEL 'X',GTREGF(CBIN10) ? P FMEND ? P* ? P* ? PSUBR66 FRMT ? 0 P FKI 25,MAXL=10,APPL=66,DUPL
0x0a9d88…0a9f1c Dummy {f00=0x006e, f01=0x0190, f02=»WRT,APPL=67,DUPL=GTDUPF(CBIN19), C ? P SCHK=4 @ , ( P FMEL 'TTTTVTTX,XX-',GTREGF(CBIN19) @ < P FMEND @ h P EJECT @ v PFMT208 FRMT @ P FSL @ P FNL @ P FNL @ P FNL @ P FCOPY ='BKO' @ P FTAB 6 @ P FCOPY ='OMR' @
0x0a9f1c…0aa0b0 Dummy {f00=0x006e, f01=0x0190, f02=»UBV07 @ P FLINK SUBF27 A P FLINK SUBF46 A $ P FLINK SUBF12 A : P FNL A X & P FCOPY ='PER FRA PER TIL' A l P FNL A P FLINK SUBF37 A P FLINK FCYEND A P FMEND A P* A PFMT209 FRMT A
0x0aa0b0…0aa244 Dummy {f00=0x006e, f01=0x0190, f02=»COPY ='A-ADR' A P FTAB 18 B P FCOPY ='BFO' B 0 P FNL B N P FLINK SUBV07 B b P FLINK SUBF27 B P FLINK SUBF46 B P FLINK SUBF12 B P FNL B & P FCOPY ='PER FRA PER TIL' B P
0x0aa244…0aa3d8 Dummy {f00=0x006e, f01=0x0190, f02=»CYEND B P FMEND C P* C P TRANS 51 P.2 C & PFMT251 FRMT C > P FSL C R P FMEL '99',GTREGNR C ^ P FCOPY =' RATE-P]LIGN' C x P FCOPY =' SIDE ' C P FILLR '2',1 C P FNL C P FCOPY ='ADM-KOD' C P FILLR ' ',1 C P FCOPY ='ADM
0x0aa3d8…0aa56c Dummy {f00=0x006e, f01=0x0190, f02=» FLINK SUBR46 C P FLINK SUBR66 D P FNL D , P FCOPY ='RENTEFRIT ' D 8 P FLINK FBELOB D T P FTAB 21 D j P FCOPY ='OMR' D z P FILLR ' ',1 D P FCOPY ='[NDR-' D P FCOPY ='TYP' D P FNL D P FLINK SUBR81 D P FLINK SUBR27 D
0x0aa56c…0aa700 Dummy {f00=0x006e, f01=0x018e, f02=» FMEL '99',GTREGNR D P FCOPY =' RATE-[NDR' E P FCOPY =' SIDE ' E 6 P FILLR '2',1 E N P FNL E b P FCOPY ='FORF.' E n P FCOPY ='DATO' E P FILLR ' ',1 E P FCOPY ='RET.IND.' E P FCOPY ='DATO' E P FILLR ' ',1 E P FCOPY ='OPKR.' E
0x0aa700…0aa894 (1, 215) Dummy {f00=0x006e, f01=0x0190, f02=» E | P FILLR ' ',1 F P FCOPY ='ADM-NR' F P FILLR ' ',6 F 4 P FCOPY ='ADR' F H P FCOPY =' REF-NR' F ^ P FNL F x P FLINK SUBR30 F P FLINK SUBR29 F P FLINK SUBR46 F P FLINK SUBR66 F P FNL F P FCOPY ='RENTEFRIT ' F P FLI
0x0aa894…0aaa28 Dummy {f00=0x006e, f01=0x018e, f02=»LINK SUBR81 F P FLINK SUBR27 G P FLINK SUBR49 G * P FLINK FCYEND G @ P FMEND G V P* G d P* G n PFMTERR FRMT G x P FSL G P FCOPY ='FEJL FORMAT' G P FMEND G P* G P* G PXSPCY1 FRMT G P FSL G P FNL G P FNL
0x0aaa28…0aabbc Dummy {f00=0x006e, f01=0x018e, f02=» P FTEXT 'KONTROLSUM' H PXSPL01 H P FTAB 32 H . P FCOPY ='LINIE' H > P FNL H V P FBT TTCY2FLG,XSPL02 H b ( P FKI 1,MINL=10,MAXL=10,REWRT,SCHK=1 H ~ & P FMEL 'XXXXXXXXE-XX',GTREGF(CBIN9) H P FKI 15,MAXL=12,REWRT,SCHK=4 H $ P FMEL 'TTTTTTTVT
0x0aabbc…0aad50 Dummy {f00=0x006e, f01=0x018e, f02=» H P* I PXSPKT1 FRMT I P FSL I & P FNL I 2 P FNL I > P FNL I J P FNL I V P FNL I b P FBF CKTFLAG,XSPL05 I n P FTAB 5 I P FTEXT 'GL. SALDO' I P FTAB 18 I P FCOPY ='LINIE NR' I P FTEXT ' CHECK' I P FNL I ( P FKI 5
0x0aad50…0aaee4 Dummy {f00=0x006e, f01=0x0190, f02=» I | P FKI 28,MAXL=1,ME,SCHK=6 J P FMEL 'X',TTKTCHK J ( P FLINK FMTEND J B P FEXIT J X PXSPL05 J f P FTAB 5 J t P FCOPY ='KONTOKORT' J P FTAB 18 J P FCOPY ='LINIE NR' J P FNL J P FKI 18,MAXL=2,ME,SCHK=5 J P FMEL 'XX',TTKTLIN
0x0aaee4…0ab078 Dummy {f00=0x006e, f01=0x40f2, f02=» J P FNL K P FTAB 13 K P FTEXT 'FAST ' K $ P FCOPY ='LINIE NR' K : P FNL K T P FKI 18,MAXL=2,SCHK=5 K ` P FMEL 'XX',GSWBCD5 LINE NR K ~ P FLINK FMTEND K P FMEND K P* K P* K P END K P* K @ K P FMEL 'XX',TTKTLIN
0x0ab078…0ab20c Dummy {f00=0x006e, f01=0x2008, f02=» L L '9',GTREGF(CBIN20) 3 P FMEND 4 & P* 4 < P* 4 F < P DEBITORL@BENUMMER 4 P PSUBF48 FRMT 4 F P FKI 22,MINL=1,MAXL=3,REWRT,APPL=48,DUPL=GTREGF(CBIN25) 4 ( P FMEL 'ZZ9',GTR
0x0ab20c…0ab3a0 Dummy {f00=0x006e, f01=0x0190, f02=»W 6 2# gRW4 @ b Ee8" T> ; [ # g<:H 2 T Z L Le( D V, W # g< Le( E V $ W D V Le0 , Wn 6 2 gRW " P " # g< ;b WF " ;d# _ [ v [ Z e Z Z Z : :B ,
0x0ab3a0…0ab534 (1, 216) Opaque[0x194]
0x0ab534…0ab6c8 # DirEnt {nam=»RGSUBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x0ab534…0ab6c8 IdxSect {
0x0ab534…0ab6c8 f00 = 0x0082 // 0xab534 @0x0
0x0ab534…0ab6c8 f01 = 0x0010 // 0xab536 @0x2
0x0ab534…0ab6c8 gno = [ // 0xab538 @0x4
0x0ab534…0ab6c8 [0x00]: C0x0082.0x2.0
0x0ab534…0ab6c8 [0x01]: C0x0082.0x3.0
0x0ab534…0ab6c8 [0x02]: C0x0083.0x0.0
0x0ab534…0ab6c8 [0x03]: C0x0083.0x1.0
0x0ab534…0ab6c8 [0x04]: C0x0083.0x2.0
0x0ab534…0ab6c8 [0x05]: C0x0083.0x3.0
0x0ab534…0ab6c8 [0x06]: C0x0084.0x0.0
0x0ab534…0ab6c8 [0x07]: C0x0084.0x1.0
0x0ab534…0ab6c8 ]
0x0ab534…0ab6c8 }
0x0ab6c8…0ab85c Dummy {f00=0x0082, f01=0x018e, f02=» P IDENT RGSUBS 840124 EV P DDUM KMD08 $ P PDIV B P ENTRY ENTER X P ENTRY MODP v P ENTRY KORT P ENTRY KKTRP P ENTRY KVIT P ENTRY LSTINT P ENT
0x0ab85c…0ab9f0 Dummy {f00=0x0082, f01=0x0190, f02=» P ENTRY KKCH P ENTRY FMTNXT P EXT SETKRE 2 P EXT SETDEB F P EXT SLUT Z P EXT FRMTVO l P EXT FRMTKV P EXT FRMXJT P EXT FRMXSP P EXT FRMXVO P EXT FRMXTA P EXT FRMTKT P EXT
0x0ab9f0…0abb84 Dummy {f00=0x0082, f01=0x018e, f02=» LINOPT P EXT ABORT P EXT EMPTYT " P EXT CRVO 6 P EXT SPCLRA H P EXT SPERR h P EXT SPINF1 P EXT SPLIN8 P EXT GRASPV P EXT CLEAR8 P EXT SPCHK5 P EXT FLDTST P EXT CYOUT
0x0abb84…0abd18 Dummy {f00=0x0082, f01=0x0190, f02=» P* : P** KORT - PROCEDURE FOR WRITING ON 'KONTOKORT P* L 6 P** KASSEFUNCTION OLY (TRANS 1-4, 6, 8-12) V P****************** , P TBF TTEORFLG,KORTNOK NOT CORRECT TRANS 2 P TBT GTREGFLG,KORTNOK MUST NOT BE FIRST TRANS
0x0abd18…0abeac Dummy {f00=0x0082, f01=0x0190, f02=»OK NOT TRANS 7 x > P** ASK FOR OLD SALDO, LINE NO AND LINE CHECKDIGIT , P** WRITE 'KONTOKORT' ON JOURNAL X ( P** TRANSPORT LINE IF NEEDED P* PKORT10 P MOVE SPKEY,CBIN1 P CLEAR GTSLDFLG P TBF CKTFL
0x0abeac…0ac040 Dummy {f00=0x0082, f01=0x0190, f02=»TE/READ ON SCREEN P CLEAR SPPROMPT $ P IB SPBINW2,KORTOK,KORTOK,KORT30 2 PKORT20 ERRORKEY Z P MOVE SPBINW4,=W'4' t P PERF SPERR P B KORT10 PKORT30 CORRECT ENTERED P TBF CKTFLAG,KORT40 NO SALDO P SET GTSLDFLG
0x0ac040…0ac1d4 (1, 217) Dummy {f00=0x0082, f01=0x0190, f02=»WED x $ P MOVE SPBINW4,=W'5' NOT ALLOWED P PERF SPERR 4 P B KORT10 H PKORT40 Z . P PERF WRITJT,=W'2' 'KONTOKORT' ON JOURNAL h P PERF WRITLO,CBIN2 ( P PERF KKTRP TRANSPORT LINE IF NEEDED P MOVE SPINPUT,TTKTLIN ( P PERF SPCH
0x0ac1d4…0ac368 Dummy {f00=0x0082, f01=0x0190, f02=»4) NEW SALDO x ( P ADD TTKTLIN,=D'1' ADD 1 TO LINE NO P PERF KKCH NEW CHECKDIGIT @ P PERF FRMTKT b P EDWRT KVOUCH,GTSTRFMT v P DSC0 .NW,KVOUCH,RLEAS P CLEAR GTLOKSPG PKORTOK P CLEAR TTKORTFL " P CMP CBIN0,CBIN0 OK, SET
0x0ac368…0ac4fc Dummy {f00=0x0082, f01=0x0190, f02=»CT PKKTRP PROC P******************** P* 8 6 P** KKTRP - WRITES KONTOKORT INF ON VOUCHER B ( P** + TRANSPORT IF NECESSARY | P* P******************** , P PERF SPLIN8,CBIN6,CBIN2 WRITE KONTOKORT " P TBF GTCYF
0x0ac4fc…0ac690 Dummy {f00=0x0082, f01=0x0190, f02=»SP VOUCHER P PERF CLEAR8 P TBF CKTFLAG,KON90 & P TBF GTSLDFLG,KON90 NO SALDO @ . P CBNE TTKTLIN,=D'27',KON90 TRANSPORT LINE? d * P PERF FRMXKT,CBIN1 GET TRANSPORT LINE P DSC1 KVOUCH,POS,CMINLIN . P EDWRT .NW,KVOUCH,GTSTRFMT EDWRT TRP
0x0ac690…0ac824 Dummy {f00=0x0082, f01=0x0190, f02=» TESTIO KEYB ANY INPUT? P BOK KON35 YES P CALL ABORT,KEYB NO, ABORT 6 . P DSC0 KEYB,SKIB DELETE CYCLIC INPUT BUFFER X * P MOVE GSWBCD3,CKTTOP SET DEFAULT LINE P MOVE SPINPUT,GSWBCD3 P B KON40 PKON35 P WAIT KEYB & P C
0x0ac824…0ac9b8 Dummy {f00=0x0082, f01=0x0190, f02=» MOVE TTKTLIN,GSWBCD3 ( P CBG TTKTLIN,=D'24',KON30 CHECK LINE P CBL TTKTLIN,=D'1',KON30 J " P PERF SPCHK5 CHANGE LINE VALUE j P DSC1 KVOUCH,POS,GSWBIN1 P PERF FRMXKT,CBIN1 P EDWRT KVOUCH,GTSTRFMT P ADD TTKTLIN,=D'1' PKON90
0x0ac9b8…0acb4c Dummy {f00=0x0082, f01=0x0190, f02=» COMPUTES A CHECK DIGIT FROM p : P** AMOUNT (TTKTSLD) AND LINE NR (TTKTLIN) AND $ " P** PUTS IT IN TTKTCHK b " P** USED FOR KONTOKORT P* P**************** P MOVE GSWBCD1,TTKTSLD SAVE ( P CBNL GSWBCD1,=D'0',KK
0x0acb4c…0acce0 Dummy {f00=0x0082, f01=0x0190, f02=»TKTLIN,=D'1' SUB 1 FROM LINE NR P ADD GSWBCD1,TTKTLIN ADD ( & P ADD TTKTLIN,=D'1' RESTORE LINE NR H P MOVE GSWBCD2,GSWBCD1 SAVE r P DIV GSWBCD1,=D'7' CALCULATE P MUL GSWBCD1,=D'7' REMAINDER " P SUB GSWBCD2,GSWBCD1 MODULUS 7 $ P ADD G
0x0acce0…0ace74 (1, 218) Dummy {f00=0x0083, f01=0x0190, f02=»E TTKTCHK,GSWBCD2 P RET P PEND & P EJECT 4 PMODP PROC B P********** X P* j 4 P** MODP - INVERTS THE PREVIOUS TRANSACTION t $ P** I.E. REVERSES THE VALUE 2 P** AND SETS FLAG TO UPDATE ACCUMULATORS ,
0x0ace74…0ad008 Dummy {f00=0x0083, f01=0x018e, f02=»DPNOK NOT CORRECT TRANS P MOVE GTRETUR,CBIN0 2 P TBT GTREGFLG,MODPNOK MUST NOT BE FIRST TRANS < 6 P TBF GTKASSE,MODPNOK ONLY IN KASSEFUNCTIONS (1-12) r & P TBT GTSPECTR,MODPNOK NOT TR 50... P PERF CYTRP P CLEAR GTLOKSPG P MOVE
0x0ad008…0ad19c Dummy {f00=0x0083, f01=0x018e, f02=» P CLEAR TTINVFLG P CBNE GTRETUR,=W'3',MODP50 P PERF KORT > PMODP50 P " P CMP CBIN0,CBIN0 OK, SET CR=0 ^ P RET PMODPNOK $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 P RET P PEND P EJECT P
0x0ad19c…0ad330 Dummy {f00=0x0083, f01=0x0190, f02=» l P* P********** , P TBF TTEORFLG,KVITNOK NOT CORRECT TRANS $ 2 P TBT GTREGFLG,KVITNOK MUST NOT BE FIRST TRANS T & P TBT GTCYFLG,KVITNOK NOT IN CYCLE 6 P TBF GTKASSE,KVITNOK ONLY IN KASSEFUNCTIONS(1-12) & P TBT GTSPECTR,KVITNOK NOT
0x0ad330…0ad4c4 Dummy {f00=0x0083, f01=0x0190, f02=» ~ P MOVE TTCYM,=C'K' P PERF FRMTKV " P PERF WRITVO WRITE RECEIPT 6 P MOVE TTCYM,=C' ' X P CLEAR GTLOKSPG r " P CMP CBIN0,CBIN0 OK, SET CR =0 P RET PKVITNOK $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 P RET P
0x0ad4c4…0ad658 Dummy {f00=0x0083, f01=0x0190, f02=» AFTER A PAGE HAS BEEN f P** ENTERED ON SCREEN P* @ " P** 1 ANY PAGE TWO ? J P* p > P** 2 FOR TRANSTYPE 51,53, REPETITION OF PAGE 3 ? z P* ( P** 3 FIELD DEPENDENCE TEST P* 0 P** AND
0x0ad658…0ad7ec Dummy {f00=0x0083, f01=0x0190, f02=»TUR,CBIN0 SET RETURN CODE P TBT GTTYPE3,ENTY3 " P TBT GTTYPE2,ENTY2 < $ P* TYPE 1 - ONE PAGE TRANSACTION V PENTY1 ~ & P PERF FLDTST TEST FIELD DEPENDENCE P BNOK ENTNOK P PERF SLUT OK P BNOK ENTNOK P TBT GTKORTFL,ENT01
0x0ad7ec…0ad980 Dummy {f00=0x0083, f01=0x018e, f02=» PENT01 " P PERF KORT TRANS 4: KONTOKORT $ P MOVE GTRETUR,=W'3' RESET SCREEN 8 P CLEAR GTKORTFL ` P B ENTOK x $ P* TYPE 2 - TWO PAGE TRANSACTION PENTY2 P CBNE GTPAGE,CBIN1,ENT10 P* GET PAGE 2 P TBT GTSLUTFL,ENTY
0x0ad980…0adb14 (1, 219) Dummy {f00=0x0083, f01=0x0190, f02=» PENT10 P PERF FLDTST P BNOK ENTNOK & P PERF SLUT : P BNOK ENTNOK L P TBT GTKORTFL,ENT01 ` P CBE GTRETUR,=W'3',ENT01 | P MOVE GTRETUR,=W'3' P B ENTOK & P* TYPE 3 - THREE PAGE TRANSACTION PENTY3 P CBNE GT
0x0adb14…0adca8 Dummy {f00=0x0083, f01=0x0190, f02=»' ~ P B ENTOK P* PENT20 $ P CBNE GTPAGE,CBIN2,ENT30 2 & P* AFTER PAGE 2, GET LAST PAGE R P PERF FMTNXT,CBIN3 | P MOVE GTPAGE,CBIN3 P MOVE GTRETUR,=W'2' P B ENTOK P* PENT30 P CBNE GTPAGE,CBIN3,E
0x0adca8…0ade3c Dummy {f00=0x0083, f01=0x018e, f02=»T PAGE 3 P PERF SLUT P BNOK ENTNOK " P CLEAR GTKORTFL 6 P CBE GTSUM,=D'0',ENT50 N P MOVE GTPAGE,CBIN4 l P MOVE GTRETUR,=W'1' P B ENTOK P* PENT50 P* FINISHED P MOVE GTRETUR,=W'3' P* PEN
0x0ade3c…0adfd0 Dummy {f00=0x0083, f01=0x0190, f02=» P PEND P EJECT PFMTNXT PROC FORMAL1 0 P******************* N P* j : P** FMTNXT - ATTACHES FORMATS FOR PAGE 2 AND 3 t ( P** TRANSTYPES 8,9,51 AND 53 " P** (DEX 8,9,21,23) P*
0x0adfd0…0ae164 Dummy {f00=0x0083, f01=0x0190, f02=» b ( P CBE GTREGDEX,=W'8',NXT10 2 P MOVE GSWBIN1,CBIN2 TYPE 9 4 P CBE GTREGDEX,=W'9',NXT10 j P MOVE GSWBIN1,CBIN3 TYPE 51 P CBE GTREGDEX,=W'21',NXT10 P MOVE GSWBIN1,CBIN4 TYPE 53 PNXT10 4 P
0x0ae164…0ae2f8 Dummy {f00=0x0083, f01=0x0190, f02=»E 2 ^ P CBE GTREGDEX,=W'21',NXT20 8 P MOVE GSWBIN1,CBIN4 TYPE 53,PAGE 2 . PNXT20 j 4 P CBNE FORMAL1,CBIN3,NXTATT INDEX 3: x : P MOVE GSWBIN1,CBIN5 TYPE 51,PAGE 3 * P CBE GTREGDEX,=W
0x0ae2f8…0ae48c Dummy {f00=0x0083, f01=0x0190, f02=» P PEND P EJECT PCYK PROC CYTYPE , P******************** D P* ` 0 P* HANDLE DIFFERENT TYPES OF CYCLES j P* P******************** $ P TBT GTSPECTR,CYKNOK NOT TR50... P IB CYTYPE, C & P CYK1
0x0ae48c…0ae620 Dummy {f00=0x0083, f01=0x0190, f02=»****** P* . P** CYK1 - START OF CYCLE FUNCTION P* J P******************** T " P TBT TTLSTFLG,CYK1NOK IN LISTE p $ P TBT TTCY2FLG,CYK1NOK IN CYCLE 2 P SET TTCY1FLG " P MOVE TTCYM,=C'C' FOR JOURNAL & P MOVE GTTEXT,=
0x0ae620…0ae7b4 (1, 220) Dummy {f00=0x0083, f01=0x0190, f02=»******** P* . P** CYK2 - START OF STABEL FUNCTION P* L P******************** V " P TBT TTLSTFLG,CYK2NOK IN LISTE r $ P TBT TTCY1FLG,CYK2NOK IN CYCLE 1 P SET TTCY2FLG " P MOVE TTCYM,=C'S' FOR JOURNAL & P MOVE GTTEXT
0x0ae7b4…0ae948 Dummy {f00=0x0083, f01=0x0190, f02=»********** P* . P* CYK4 - PAUSE IN CYCLE / STABEL P* N P******************** X P TBF GTCYFLG,CYK4NOK t P TBT GTCYWRTF,CYKSUB 2 P MOVE TTARKSAV,GTDUPF(CBIN9) SAVE ARKIV KNT NR > P SET TTPSEFLG
0x0ae948…0aeadc Dummy {f00=0x0083, f01=0x018e, f02=»E 8 r P PERF SPINF1 P B CYKOK PCYK4NOK 0 P B CYKNOK @ PCYKSUB R P PERF SUBTOT ` P B CYKOK t P EJECT PCYK9 P******************** P* * P** CYK9 - CLEAR ARKIV KONTO NR P* P************
0x0aeadc…0aec70 Dummy {f00=0x0083, f01=0x0190, f02=» P EJECT ! PCYEND ! P******************** ! P* ! < $ P** CYEND - END OF CYCLE ! F P* ! n ( P** WRITE TOTAL LINE ON VOUCHER ! x P* ! P******************** ! * P TBF GTCYFLG,CYENDNOK ONLY IF IN CYCLE ! P TBT TTCY2FLG,CY
0x0aec70…0aee04 Dummy {f00=0x0083, f01=0x0190, f02=» FLAGS ! ` P CLEAR GTCYFLG " P PERF CYOUT " . P CLEAR TTTSTFLG " B P WAIT KVOUCH " d P MOVE GSWBIN1,TTLINNR " x . P DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER " P MOVE GSWSTR9,=C'TOTAL ' " ( P PERF FRMXVO,CBIN2 GET TOTAL F
0x0aee04…0aef98 Dummy {f00=0x0083, f01=0x0190, f02=»SPOOL,CYEND14 " P TBT CSPOOL,CYEND15 # PCYEND14 # 2 P PERF WRITJT,=W'15' # B PCYEND15 # ^ P PERF WRITLO,CBIN9 # n 6 P CBL GTREGNR,=D'18',CYEND20 CHECKS? # P SET TTTSTFLG # @ P MOVE GTREGF(CBIN4),GTSUM
0x0aef98…0af12c Dummy {f00=0x0083, f01=0x0190, f02=» CLEAR TTCY2FLG # P PERF CYCLR $ P B CYENDOK $ 4 PCYEND30 $ F > P MOVE SPBINW4,=W'12' SET ERRORCODE $ V P PERF SPERR $ P IB SPBINW2,CYENDCNT,CYEND10 $ PCYENDOK $ & P ERASE 0,CBIN8,CBIN8 ERASE LIN
0x0af12c…0af2c0 Dummy {f00=0x0083, f01=0x0190, f02=»N0 OK $ P RET % PCYKNOK % P CMP CBIN1,CBIN0 NOK % ( P RET % D P PEND % P P EJECT % ^ PCYKINT PROC % t P******************** % P* % . P** CYKINT - START OR END OF CYCLE % P* % 6 P** START SET RELEVAN
0x0af2c0…0af454 (1, 221) Dummy {f00=0x0083, f01=0x0190, f02=»RMATION % l P* & P******************** & , P TBF GTCYFLG,CY10 TRUE- ALREADY IN CYCLE & 6 B P TBT TTPSEFLG,CY05 TRUE- IN PAUSE STATE & f P PERF CYK,CBIN10 & P RET & PCY05 & P PERF CYCLR & P RET & PCY10 & ( P
0x0af454…0af5e8 Dummy {f00=0x0083, f01=0x0190, f02=»TATE & X < P MOVE GTSUM,GTCYSUM GET SAVED SUM ' F P MOVE GTREGF(CBIN9),TTARKSAV GET SAVED ARKIV KNT.NR ' L P CBG GTPSELIN,CBIN0,CY20 ' , P MOVE GTPSELIN,TTCYKST RESET START LINE ' P MOVE TTCYKPOS,TTCYKST ' PCY20
0x0af5e8…0af77c Dummy {f00=0x0083, f01=0x0190, f02=» MOVE GTREGF(CBIN9),=D'0' INITIATE VALUES ' P MOVE GTCYSUM,=D'0' ( 2 P MOVE GTSUM,=D'0' ( N P MOVE TTCYKTOT,=D'0' ( r " P MOVE TTLINNR,=D'1' ( H P PERF FRMXSP,CBIN11 GET FORMAT FOR CYCLE INF ( P
0x0af77c…0af910 Dummy {f00=0x0083, f01=0x0190, f02=» IB SPBINW2,CY45,CY45,CY50 ( PCY40 ERROR KEY ) * P MOVE SPBINW4,=W'4' ) B P PERF SPERR ) ^ P B CY30 ) | PCY45 MAK ) P CLEAR TTCY1FLG ) P CLEAR TTCY2FLG ) P B CY05 ) PCY50 ) P CBL TTLINNR,=D'
0x0af910…0afaa4 Dummy {f00=0x0083, f01=0x0190, f02=»NE NUMBER ) r P MOVE GTSUM,GTCYSUM * P MOVE TTARKSAV,GTREGF(CBIN9) * . P MOVE TTCYKST,TTLINNR * R P MOVE TTCYKPOS,TTLINNR * p P MOVE GTCYIN,TTASKNR * P SUB GTCYIN,CBIN1 * P MUL GTCYIN,CCYSIZE * P ADD GTCYIN,CBIN1 * P MOVE GTCYOUT,
0x0afaa4…0afc38 Dummy {f00=0x0083, f01=0x0190, f02=» PEND * P EJECT + PCYCLR PROC + P******************* + 0 P* + L . P** CYCLR - CLEAR CYCLEINFORMATION + V P* + P****************** + " P MOVE GTTEXT,=C' ' + P MOVE TTCYM,=C' ' + ( P MOVE G
0x0afc38…0afdcc Dummy {f00=0x0083, f01=0x0190, f02=»TTSTFLG + P CLEAR GTCYTRPF , & P DSC0 KVOUCH,RLEAS RELEASE VOUCHER , ( P RET , R P PEND , ^ P EJECT , t PLSTINT PROC , P******************** , P* , , P** LSTINT - INITIATE LISTFUNCTION , P* , P**********
0x0afdcc…0aff60 Dummy {f00=0x0083, f01=0x0190, f02=» P SET TTLSTFLG - < P MOVE GTSUM,=D'0' INITIATE SUM - & H P PERF FRMXTA,CBIN1 GET HEADER FOR TALLY ROLL - f B P PERF WTALLY WRITE ON TALLY ROLL - & P MOVE
0x0aff60…0b00f4 (1, 222) Dummy {f00=0x0084, f01=0x0190, f02=»9,=C'TOTAL ' - . P PERF FRMXTA,CBIN2 GET TOTALLINE FOR TALLY . P PERF WTALLY . H P ERASE 0,CBIN8,CBIN8 . h P CLEAR TTLSTFLG . P CLEAR TTSUMFLG . " P MOVE GTTEXT,=C' ' . PLSTOK . P PERF SPINF1
0x0b00f4…0b0288 Dummy {f00=0x0084, f01=0x0190, f02=» PEND . P EJECT / PSUBTOT PROC / ( P******************* / > P* / Z P** SUBTOT - SUBTOTAL / d P* / 6 P** LISTFUNCTION- WRITE SUBTOTAL ON TALLY / P* / 2 P** CYCLEFUNCTION- SAVE CYCLE INFORMATION / $
0x0b0288…0b041c Dummy {f00=0x0084, f01=0x0190, f02=»TR9,=C'SUBTOTAL ' / @ P TBT TTLSTFLG,SUBTLST IN LIST FUNCTION 0 " P TBT GTCYFLG,SUBTCYC IN CYCLE 0 ^ P TBF GTSUMKEY,SUBTNOK IN SUM 0 P* SUBTOTAL IN SUM 0 P SET GTSUBFLG 0 P PERF SUM 0 P CLEAR GTSUBFLG 0 P B SUB
0x0b041c…0b05b0 Dummy {f00=0x0084, f01=0x0190, f02=» SET TTPSEFLG INDICATE BREAK 0 ( P PERF FRMXVO,CBIN3 GET SUBTOT FORMAT 1 > P SET GTCYWRTF 1 j @ P PERF WRITVO WRITE SUBTOT LINE 1 P WAIT KVOUCH 1 @ P DSC0 KVOUCH,RLEAS REL
0x0b05b0…0b0744 Dummy {f00=0x0084, f01=0x0190, f02=»NNR SAVE LINNR 1 r P MOVE GTPSELIN,TTLINNR 2 ( P MOVE GTCYIN,TTASKNR INITIATE CYSET 2 > P SUB GTCYIN,CBIN1 2 j P MUL GTCYIN,CCYSIZE 2 P ADD GTCYIN,CBIN1 2 P MOVE GTCYOUT,GTCYIN 2 P PERF CYCLR 2 P B SUBTOK 2 P* SUBTOTAL I
0x0b0744…0b08d8 Dummy {f00=0x0084, f01=0x0190, f02=»LLY WRITE ON TALLY ROLL 2 | PSUBTOK 3 2 & P ERASE 0,CBIN8,CBIN8 ERASE LINE 8 3 @ P PERF SPINF1 3 j PSUBTOK10 3 ~ " P CMP CBIN0,CBIN0 OK, SET CR=0 3 P RET 3 PSUBTNOK 3 $ P CMP CBIN1,CBIN0 NOK, SET CR<>0 3 P RET 3
0x0b08d8…0b0a6c Dummy {f00=0x0084, f01=0x0190, f02=» 3 ^ 0 P** TRANSACTIONS FROM THE INITIATING 4 & P** POINT TO THE RELEASING. 4 < & P** FIRST TIME: INITIATING 4 f 0 P** LAST TIME: WRITE SUM ON VOUCHER 4 P* 4 P******************** 4 P TBT GTSUMKEY,SUM50 4 P*
0x0b0a6c…0b0c00 Dummy {f00=0x0084, f01=0x0190, f02=» 4 | P SET GTSUMKEY 5 P MOVE GTSUMST,TTLBNR 5 , P ADD GTSUMST,=D'1' INITIATE FIRST NUMBER 5 : & P MOVE GTSUMCNT,=D'0' INITIATE SUM 5 j P B SUMOK 5 P* 5 P* LAST TIME 5 PSUM50 5 P MOVE GSWSTR9,=C'TOTAL ' 5 P TBF GTSUBFLG,SU
0x0b0c00…0b0d94 (1, 223) Dummy {f00=0x0084, f01=0x018e, f02=» P TBT GTSUBFLG,SUM60 6 P MOVE TTSUMMRK,=C' ' 6 P CLEAR GTSUMKEY 6 < PSUM60 6 T ( P PERF SPLIN8,CBIN2,CBIN0 WRITE BILAG 6 b " P TBF GTCYFLG,SUM70 IF IN CYCLE 6 P DSC0 KVOUCH,RLEAS 6 $ P MOVE GSWBCD5,TTLINNR SAVE LINNR 6 P CLEAR TTTSTFLG 6
0x0b0d94…0b0f28 Dummy {f00=0x0084, f01=0x018e, f02=» , P CBNE GSWBIN1,=W'0',SUM80 DEFAULT LINE? 7 PSUM75 7 4 $ P MOVE TTLINNR,=D'6' SET LINE 26 7 B PSUM80 7 j P MOVE GSWBIN1,TTLINNR 7 x P DSC1 KVOUCH,POS,GSWBIN1 7 ( P MOVE TTLINNR,GSWBCD5 RESTORE LINNR 7 P PERF FRMXVO,CBIN7 7 P EDWRT KVOUC
0x0b0f28…0b10bc Dummy {f00=0x0084, f01=0x018e, f02=» P PERF SPINF1 8 PSUMOK10 8 " P CMP CBIN0,CBIN0 OK, SET CR=0 8 ( P RET 8 N P PEND 8 Z P EJECT 8 h PDIVTR PROC 8 v P******************** 8 P* 8 . P** DIVTR - SET OR CLEAR DIVTR FLAG 8 P* 8 P******************** 8 P T
0x0b10bc…0b1250 Dummy {f00=0x0084, f01=0x018e, f02=» P SET GTDIVTR 9 P SET GTTRSEL 9 P CBE TTDKDEX,=W'1',DIV10 9 , P PERF SETDEB 9 L P B DIVTROK 9 ` PDIV10 9 r P PERF SETKRE 9 P B DIVTROK 9 P* CLEAR DIVTR 9 PDIVEND 9 P CLEAR GTDIVTR 9 P MOVE TTSTYRDX,=W'1' 9 P B DIVTR
0x0b1250…0b13e4 Dummy {f00=0x0084, f01=0x404e, f02=» 9 n P RET : P PEND : P* : " P* : , P END : 6@ : JERF SETDEB 9 L P B DIVTROK 9 ` PDIV10 9 r P PERF SETKRE 9 P B DIVTROK 9 P* CLEAR DIVTR 9 PDIVEND 9 P CLEAR GTDIVTR 9 P MOVE TTSTYRDX,=W'1' 9 P B DIVTR
0x0b13e4…0b1578 Dummy {f00=0x0084, f01=0x2008, f02=» ; RELEASE VOUCHER x P PERF CYKINT * 8 P MOVE GTCYSUM,GTSUM SAVE SUM H P SUB GTLINNR,CB&N : P MOVE GTCYKPOS,GTLINNR SAVE LINNR P RET B P PERF
0x0b1578…0b170c Dummy {f00=0x0084, f01=0x0190, f02=» * & ! w1 ! w , * & 2 ~ u w 0H X , 2 * & x ~ q ~@ E , ` * & @ 4 4 ? , * & ; " y w y w_ , * & Y w w 4
0x0b170c…0b18a0 Dummy {f00=0x0084, f01=0x0190, f02=»w w wI , t * & x " W - * & I - @ * & 0 1 % y & - n * & + _g - * & I " - * & g
0x0b18a0…0b1a34 (1, 224) Opaque[0x194]
0x0b1a34…0b1bc8 # DirEnt {nam=»C975 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x05e0, f03=0x0000}
0x0b1a34…0b1bc8 IdxSect {
0x0b1a34…0b1bc8 f00 = 0x002f // 0xb1a34 @0x0
0x0b1a34…0b1bc8 f01 = 0x0002 // 0xb1a36 @0x2
0x0b1a34…0b1bc8 gno = [ // 0xb1a38 @0x4
0x0b1a34…0b1bc8 [0x00]: C0x002f.0x0.0
0x0b1a34…0b1bc8 ]
0x0b1a34…0b1bc8 }
0x0b1bc8…0b1d5c Dummy {f00=0x002f, f01=0x0172, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=60; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=TC; PTCL=TC; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x0b1d5c…0b1ef0 Dummy {f00=0x002f, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=60; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=TC; PTCL=TC; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x0b1ef0…0b2084 Dummy {f00=0x002f, f01=0x0190, f02=»XTA(XTADEX) x P RET P PEND P* . PFRMTVO PROC 8 0 P CALL FMOVE,GTSTRFMT,FTBVO(GTREGDEX) L P RET P PEND P* PFRMXVO PROC XVODEX ( P CALL FMOVE,GTSTRFMT,FTBXVO(XVODEX) P RET P P
0x0b2084…0b2218 Dummy {f00=0x002f, f01=0x018e, f02=» 0 P CALL FMOVE,GTSTRFMT,FTBKT(GTREGDEX) P RET < P PEND P P* f PFRMXKT PROC XKTDEX p ( P CALL FMOVE,GTSTRFMT,FTBXKT(XKTDEX) P RET P PEND P* PFRMTGP PROC ( P CALL FMOVE,GTSTRFMT,FTB
0x0b2218…0b23ac Dummy {f00=0x002f, f01=0x0190, f02=» j P RET P PEND P* " P* , P* 6 P EJECT @ P* V P* FORMATS FOR JOURNAL ` P* @ PFTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C 2 P JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C . P
0x0b23ac…0b2540 Dummy {f00=0x002f, f01=0x0190, f02=» P* PJTFMT01 FRMT 4 P FLINK JTSUBST STARTINF " 2 P FLINK JTSUB01 LINE 1 Z P FEOR 2 P FLINK JTSUB04 LINE 2 P FMEND P* PJTFMT02 FRMT
0x0b2540…0b26d4 (1, 225) Opaque[0x194]
0x0b26d4…0b2868 # DirEnt {nam=»KMDIO «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x0b26d4…0b2868 IdxSect {
0x0b26d4…0b2868 f00 = 0x004e // 0xb26d4 @0x0
0x0b26d4…0b2868 f01 = 0x000c // 0xb26d6 @0x2
0x0b26d4…0b2868 gno = [ // 0xb26d8 @0x4
0x0b26d4…0b2868 [0x00]: C0x004e.0x2.0
0x0b26d4…0b2868 [0x01]: C0x004e.0x3.0
0x0b26d4…0b2868 [0x02]: C0x004f.0x0.0
0x0b26d4…0b2868 [0x03]: C0x004f.0x1.0
0x0b26d4…0b2868 [0x04]: C0x004f.0x2.0
0x0b26d4…0b2868 [0x05]: C0x0053.0x3.0
0x0b26d4…0b2868 ]
0x0b26d4…0b2868 }
0x0b2868…0b29fc Dummy {f00=0x004e, f01=0x018e, f02=» P IDENT KMDIO 840203 EV P DDUM KMD08 " P PDIV @ P ENTRY WRITFD N P ENTRY WRITVO d P ENTRY WRITJT P ENTRY WTALLY P ENTRY WRITID P ENTRY CRKJ P ENTRY GRASPV
0x0b29fc…0b2b90 Dummy {f00=0x004e, f01=0x0190, f02=» P EXT SPCHK5 P EXT SPLIN8 P EXT SPERR 0 P EXT FRMTJT B P EXT FRMXJT b P EXT FRMXBC v P EXT ADM P EXT CYWRT P EXT FRMXVO P EXT FRMXTA P EXT ABORT P EXT RAWRIT P E
0x0b2b90…0b2d24 Dummy {f00=0x004e, f01=0x0190, f02=»CBIN12 DISKETTE SKIFT P TBF CSKIFTWN,WRFD00 P CMP CBIN1,CBIN0 : P RET R PWRFD00 ^ P PERF WAITF,CPFLG l P CLEAR CSPLITFL . P MOVE CTWBIN1,CBIN0 NO. OF WRITTEN RECORDS P PERF EDATNR P MOVE GSWBIN5,CBIN0 . P MOVE GT
0x0b2d24…0b2eb8 Dummy {f00=0x004e, f01=0x0190, f02=»WRFD006 P EDIT CPCKBUF,PCKINIT * P EDIT CPCKBUF,TREC1 INSERT HEADER INF . P MOVE GSWBIN3,CBIN10 P MOVE GSWBIN4,CRECLGD x P SUB GSWBIN4,CBIN11 6 P MATCH CPCKBUF,GSWBIN3,GSWBIN4,CBLANKS,CBIN0,CBIN2 P MOVE GSWBIN4,CRECLGD
0x0b2eb8…0b304c Dummy {f00=0x004e, f01=0x0190, f02=»PLIT PACK REST v PWRFD020 $ P TBF GTSPECTR,WRFD024 TR 50... ? & 6 P CBNE GSWBIN5,=W'6',WRFD024 YES, AFTER FIELD 39/47 N P ADD GTWBCD1,=D'1' YES 0 P CBNL GTWBCD1,GTRTANT,WRFD022 MORE 'RATE' ? 0 P ADD GTDUPF(CBIN4),=D'1' YES SET NEXT 'RATE'
0x0b304c…0b31e0 Dummy {f00=0x004e, f01=0x0190, f02=»UPF(CBIN4),GTWBCD1 PWRFD024 P ADD GSWBIN5,CBIN1 * " P CBNL GSWBIN5,CBINMAX,WRFD070 D 4 P CBE GTUSED(GSWBIN5),CBIN0,WRFD020 USED FIELD ? j P MOVE GSWSTR20,=X'00' YES * P MOVE GSWBCD3,GTUSED(GSWBIN5) CONVERT P EDIT GSWSTR20,PFRM1
0x0b31e0…0b3374 (1, 226) Dummy {f00=0x004e, f01=0x0190, f02=»BIN1 b P CLEAR CSPLITFL , P CBG GSWBIN6,GSWBIN4,WRFD030 OVERFLOW ? $ 4 P COPY CPCKBUF,GSWBIN3,GSWBIN6,GSWSTR20,CBIN0 NO T P ADD GSWBIN3,GSWBIN6 ( P SUB GSWBIN4,GSWBIN6 ADJUST POINTERS P B WRFD020 SEE IF MORE PWRFD030 0 P COPY
0x0b3374…0b3508 Dummy {f00=0x004e, f01=0x0190, f02=»WBIN3,CBIN1,GSWSTR1,CBIN0 " P DLETE GSWSTR20,CBIN0,GSWBIN4 " P SET CSPLITFL H * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR ^ P BNOK WRFDERR P TBT GTTESTFL,WRFD005 P ADD CTWBIN1,CBIN1 P ADD CRECNR,CBIN1 P ADD CRECBCD,=D'1'
0x0b3508…0b369c Dummy {f00=0x004e, f01=0x018e, f02=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR P BNOK WRFDERR . P TBT GTTESTFL,WRFD080 D P ADD CTWBIN1,CBIN1 b P ADD CRECNR,CBIN1 | P ADD CRECBCD,=D'1' " P PERF RADEL,DK02,CRECNR,=D'2' P BNOK WRFDERR P* P* LOOK FOR
0x0b369c…0b3830 Dummy {f00=0x004e, f01=0x018e, f02=» P* : P* HERE MUST BEE A WAARNING 'DISC NAESTEN FYLDT' PWRFD075 DISK N[STEN FULD L P CLEAR CPFLG n P CLEAR CSPLITFL P MOVE SPBINW4,CBIN21 " P MOVE GTWBCD2,=D'02' FILE CODE $ P MOVE GTWBCD1,=D'50' ERROR CODE P MOV
0x0b3830…0b39c4 Dummy {f00=0x004e, f01=0x0190, f02=» P CLEAR CPFLG " P CMP CBIN0,CBIN0 OK, SET CR=0 P RET > P* J PWRFDERR T P* d " P* HERE MUST BEE RECOVERRY n P SUB CRECNR,CTWBIN1 P MOVE GSWBCD1,CTWBIN1 P SUB CRECBCD,GSWBCD1 P SET CSKIFTWN P CLEAR C
0x0b39c4…0b3b58 Dummy {f00=0x004e, f01=0x0190, f02=»****************** v P* P* EDATNR $ 4 P* FINDS DATASETNR FOR THE TRANSACTIONS 8 : P* AND PUT THE INFORMATION IN RELEVANT FIELDS p P* 4 P************************************************ PEDATNR PROC P CLE
0x0b3b58…0b3cec Dummy {f00=0x004e, f01=0x0190, f02=»N5),CBIN9 UPDATE D/K MARK P MOVE GTDUPF(CBIN5),TTDKBCD " PEDAT010 F P CBNE GTREGNR,=D'11',EDAT020 V P SET TTR11FLG z PEDAT020 P RET PEDAT100 P CBG GTREGNR,=D'42',EDAT110 P MOVE CEDATNR,=D'3' TR 40-42 P B E
0x0b3cec…0b3e80 Dummy {f00=0x004e, f01=0x0190, f02=» CBG GTREGNR,=D'49',EDAT130 P MOVE CEDATNR,=D'4' TR 48-49 $ P B EDAT020 H PEDAT130 Z P MOVE CEDATNR,=D'2' TR 50-54 j P B EDAT020 P PEND P EJECT P* P* PWCHECK PROC P RET P PEND P EJECT
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x004f, f01=0x0190, f02=»L TAPE d * P* DEPENDING ON TRANSACTION TYPE P* < P******************** F P TBT TBCTASK,JT01 b P WAIT KVOUCH | P WAIT KTALLY PJT01 P TBT GTSPGFLG,JTRET " P MOVE GSWBIN1,$JTLIT & P CBG GSWBIN1
0x0b4014…0b41a8 Dummy {f00=0x004f, f01=0x0190, f02=» GET FORMAT ACORDING TO TYPE l P B JT20 & P B PJT05 J P PERF WRITLO,CBIN0 V P BNOK JT03 p P MOVE GSWBIN1,TTCNTNR P B JTRET P PJT10 P GET SPECIAL FORMAT P TBT TBCTASK,JT15 $ P PERF FRMXJT
0x0b41a8…0b433c Dummy {f00=0x004f, f01=0x018e, f02=»WBIN1,TTCNTNR 'TAELLER' NR IN BINARY P TBT GTNWFLG,JT50 , ( P EDWRT KJTAPE,GTSTRFMT EDWRT JOURNAL F P* r . P DSC0 KJTAPE,TSTAT TEST STATUS OF JOURNAL | P BOK JTRET P TBT TBCTASK,JTRET , P PERF SPLIN8,CBIN1,CBIN1 'SKIFT JOUR
0x0b433c…0b44d0 Dummy {f00=0x004f, f01=0x0190, f02=» P EJECT PWTALLY PROC P******************* 0 P* L P* WRITE TALLY ROLL V P* x P******************** P WAIT KVOUCH P WAIT KTALLY H P EDWRT .NW,KTALLY,GTSTRFMT EDWRT WITH THE FORM
0x0b44d0…0b4664 Dummy {f00=0x004f, f01=0x0190, f02=»********** P* 8 P* DOES A CARRIAGE RETURN ON TTP WITHOUT WAIT P* X P******************** b P ~ P TBT TSPOOL,CRKJRET P ( P EDWRT .NW,KJTAPE,CRJTFMT P PCRKJRET P P RET
0x0b4664…0b47f8 Dummy {f00=0x004f, f01=0x0190, f02=» P* PCRVO PROC P******************* $ P* @ : P* DOES A CARRIAGE RETURN ON VOUCHER WITH WAIT J P* P******************** P EDWRT KVOUCH,CRVOFMT P RET PCRVOFMT FRMT P FILLR ' ',2 P FILLR X
0x0b47f8…0b498c Dummy {f00=0x004f, f01=0x0190, f02=» z P* * P* IN CYCLE POSITION AND WRITE ( P* (MAY BE NEW PAGE) @ P* l $ P* NOT CYCLE GET LINE NR v ( P* POSITION VOUCHER P* WRITE * P* AND RELEASE
0x0b498c…0b4b20 Dummy {f00=0x004f, f01=0x0190, f02=»F SPLIN8,CBIN2,CBIN0 WRITE BILAG P PERF GRASPV ( P CLEAR GTSWFLAG D $ P PERF LINOPT SEE IF DEFAULT LINE P BNOK WOBILAG P CBG GSWBIN1,=W'90',WO90 P MOVE GSWBIN1,TTLINNR P B WO100 PWO90 MOVE GSWBIN2,=W'1
0x0b4b20…0b4cb4 (1, 228) Dummy {f00=0x004f, f01=0x018e, f02=» P PERF FRMXVO,CBIN6 P MOVE GSWBIN1,=W'35' " P B WO100 > PWO98 N P PERF FRMXVO,CBIN4 Z P MOVE GSWBIN1,=W'14' t P B WO100 PWO97 P PERF FRMXVO,CBIN5 P MOVE GSWBIN1,=W'14' P B WO100 PWO96 P PERF FRMX
0x0b4cb4…0b4e48 Dummy {f00=0x004f, f01=0x0190, f02=» PWO92 SHORT 'BILAG' P PERF SPLIN8,CBIN2,CBIN0 $ P PERF GRASPV D P SET GTSWFLAG X P PERF LINOPT n P BNOK WO92 P CBG GSWBIN1,=W'90',WO92 P MOVE GSWBIN1,TTLINNR P CLEAR GTSWFLAG P PERF FRMXVO,CBIN19 P B
0x0b4e48…0b4fdc Dummy {f00=0x004f, f01=0x018e, f02=»ITION VOUCHER t 4 P EDWRT KVOUCH,GTSTRFMT EDWRT WITH CURRENT FORMAT P PERF CRVO N PWO110 ` D P DSC0 .NW,KVOUCH,RLEAS RELEASE VOUCHER n P RET P* IN CYCLE PCYVOUCH P TBT GTCYWRTF,WO5 P P
0x0b4fdc…0b5170 Dummy {f00=0x004f, f01=0x0190, f02=» t * P PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG' P PERF GRASPV 6 P PERF CLEAR8 V PWO10 j P MOVE GSWBIN1,TTLINNR v . P DSC1 KVOUCH,POS,GSWBIN1 POSITION VOUCHER P EDWRT .NW,KVOUCH,GTSTRFMT P***** P* P*
0x0b5170…0b5304 Dummy {f00=0x004f, f01=0x0190, f02=» LINES 700 - 719 l P* P* ( PWO20 2 8 P SUB TTLINNR,=D'2' NEXT LINE > 8 P CBL TTLINNR,=D'4',NEWPG NEW PAGE? z P RET NO P* PNEWPG NEW PAGE & P TBT TTPSEFLG,WORET T: IF SUBTOT
0x0b5304…0b5498 Dummy {f00=0x004f, f01=0x0190, f02=»BIN2 P EDWRT KVOUCH,GTSTRFMT " P DSC0 KVOUCH,RLEAS * P SET GTCYTRPF P PWORET f P RET t P PEND P* P* P EJECT PGRASPV PROC P******************** P* P* GRA
0x0b5498…0b562c Dummy {f00=0x004f, f01=0x0190, f02=» PEND P* P* P EJECT * PLINOPT PROC @ P******************** V P* r & P* CHECK LINE NUMBER, IF ANY | P* P******************** P TBT GTSWFLAG,LINST & P TESTIO KEYB SEE IF INPUT FINISH
0x0b562c…0b57c0 Dummy {f00=0x004f, f01=0x0190, f02=»LINOP2 ONLY ENTER KEY ALLOWED | PLINOP0 & * P CBG SPBINW1,=W'3',LINOP2 CHECK LENGTH 4 & P MOVE GSWBCD3,SPINPUT GET LINE NR b 0 P CBG GSWBCD3,=D'90',LINOP4 SPECIAL FORMATS? " P PERF SPCHK5 OK, CHECK LINENR . P CBE SPBINW3,=W'3',LINOP2 ERROR IN
0x0b57c0…0b5954 (1, 229) Dummy {f00=0x004f, f01=0x0190, f02=»LINOP1 P CALL ABORT,KEYB ABORT I/O P CBL GTDFLIN,=W'90',LINOP101 0 P MOVE GSWBCD3,GTDFLIN T P B LINOP4 r PLINOP101 P MOVE GSWBCD3,GTDFLIN P MOVE SPINPUT,GSWBCD3 P PERF SPCHK5 . P MOVE TTLINNR,GSWBIN1 SET DEFAULT LI
0x0b5954…0b5ae8 Dummy {f00=0x004f, f01=0x0190, f02=»SE VOUCHER x P DSC0 KEYB,SKIB & P CMP CBIN0,CBIN1 SET CR<>0, NOT OK * P RET T PLINOP4 h P MOVE GSWBIN1,GSWBCD3 v P B LIN90 PLINRET P PERF CLEAR8 DELETE LINE 8 P RET P PEND P* P EJECT
0x0b5ae8…0b5c7c Dummy {f00=0x004f, f01=0x0190, f02=» 0 P* PRINTS ID IDENTIFIED BY WRITVAR2 P* 8 * P* PRINTS ON JOURNAL AND TALLY B P* p P* z P* WRITVAR1: P* 1 FEJL P* 2 OPSTART & P* 3 DISKETTE SKIFT
0x0b5c7c…0b5e10 Dummy {f00=0x004f, f01=0x0190, f02=» WRITVAR2: 2 P* CHARACTERS PRINTED FROM PACKBUFFER: ! $ P* 1 1-20 + 40-59 ! P 6 P* 2 1-20 + 23-42, IF KONVERTERING ! x : P* 2 1-20 + VOLID, IF NOT KONVERTERING ! P* 3 NOTH
0x0b5e10…0b5fa4 Dummy {f00=0x004f, f01=0x0190, f02=»B WRITVAR1,WRID31,WRID32,WRID33,WRID34,WRID35,WRID36 ! P B WRID50 " < PWRID34 " N P MOVE GSWSTR20,=C'FEJL ' " P B WRID50 " | PWRID31 " P MOVE GSWSTR20,=C'OPSTART ' " P B WRID40 " PWRID32 " " P MOVE GSWSTR20,=C'DISK SKIFT ' " P B
0x0b5fa4…0b6138 Dummy {f00=0x004f, f01=0x0190, f02=» ' " n P B WRID40 # PWRID36 # P MOVE GSWSTR20,=C'BACKUP ' # * P B WRID40 # L PWRID40 # ^ P PERF WRITJT,=W'12' # l P PERF WRITLO,CBIN6 # P TBT TBCTASK,WRID50 # P PERF FRMXTA,CBIN6 # P PERF WTALLY # P* # P* # PWRID50 #
0x0b6138…0b62cc Dummy {f00=0x004f, f01=0x0190, f02=»W'13' # P B WRID90 $ PWRID55 $ P CBE WRITVAR2,CBIN3,WRID80 $ . P CBE WRITVAR2,CBIN4,WRID73 $ P P MOVE GSWSTR20,BUF $ r P PERF WRITJT,=W'12' $ P PERF WRITLO,CBIN6 $ P CBG WRITVAR1,=W'3',WRID60 $ P TBT TBCTASK,WRID60 $ P PERF FR
0x0b62cc…0b6460 Dummy {f00=0x004f, f01=0x0190, f02=» $ | P MOVE GSWBIN1,=W'40' % , P COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1 % $ P B WRID75 % T P* % f PWRID70 % p P CBNE WRITVAR1,CBIN4,WRID72 % ~ P MOVE GSWBIN2,CBIN20 % P MOVE GSWBIN1,=W'23' % , P COPY GSWSTR20,CBIN0,GSWBIN2,BUF,GSWBIN1 %
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x0053, f01=0x0190, f02=» P EDIT GSWSTR20,FRVOLID & PWRID75 & " P PERF WRITJT,=W'12' & 0 P PERF WRITLO,CBIN6 & L & P CBL WRITVAR1,=W'4',WRID76 1,2,3,6 & f " P CBL WRITVAR1,=W'6',WRID90 4,5 & PWRID76 & P TBT TBCTASK,WRID85 & P PERF FRMXTA,CBIN6 & P PERF WTALLY &
0x0b65f4…0b6788 Dummy {f00=0x0053, f01=0x0190, f02=»ERF FRMXTA,CBIN7 & P PERF WTALLY ' P WAIT KTALLY ' , PWRID90 ' @ P RET ' N P PEND ' Z P EJECT ' h PCLEAR8 PROC ' v $ P* DELETE FIRST 14 CHARACTERS ' P* OF LINE 8 ' . P MOVE GSWBIN2,=X'0801' INDICATE LAST LINE ' P DSC1 SCREEN
0x0b6788…0b691c Dummy {f00=0x0053, f01=0x018e, f02=»********************************************* ' P* ( 6 P* FORMATS FOR WRITFD ( @ P* ( b < P******************************************************** ( l P* ( PPCKINIT FRMT ( P FBT CSWFLAG,INIT10 ( P FILLR ' ',40 ( P FILLR ' ',4
0x0b691c…0b6ab0 Dummy {f00=0x0053, f01=0x0190, f02=» ( P* ) PFRVOLID FRMT ) P FMEL '999999',CMASKDAT ) & P FMEL 'B99999',GSWBCD3 ) F P FMEND ) d P* ) r PTREC1 FRMT ) | P FMEL '999',GTMSK ) P FILLR C'G',1 ) P FMEL '99',CEDATNR ) P FMEL '99999',CRECBCD ) P FBT CSPLITFL,TREC
0x0b6ab0…0b6c44 Dummy {f00=0x0053, f01=0x0190, f02=»R 50... ) z P FBT TTR11FLG,TREC10 * P FCOPY =C'&02' * , P FMEL '999999',GTDATO * B PTREC10 * ` P FCOPY =C'&03' * n P FMEL '999',GTMSK * P FBT TTR11FLG,TREC40 * P FCOPY =C'&04' * P FMEL '99999',TTLBNR * PTREC40 * P FMEND * P
0x0b6c44…0b6dd8 Dummy {f00=0x0053, f01=0x407e, f02=»BIN5) * n P FEXIT + PPLAB10 + * P FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5) + * P FMEND + X P END + f@ + z n P FMEL '999',GTMSK * P FBT TTR11FLG,TREC40 * P FCOPY =C'&04' * P FMEL '99999',TTLBNR * PTREC40 * P FMEND * P
0x0b6dd8…0b6f6c Dummy {f00=0x0053, f01=0x2008, f02=» , 8 P CALL ABORT,KEYB ABORT I/O : P MOVE GTLINNR,=W'6' SET DEFAULT H : P CMP CBIN0,CBIN1 SET CR<> 0 P RET PLINOP2 > P DSC0 KVOUCH,REL
0x0b6f6c…0b7100 Dummy {f00=0x0053, f01=0x0190, f02=»DELETED P SUB CKTLAST,CBIN1 P SUB GSWBIN4,CBIN1 * P CBE GSWBIN4,CBIN0,KTCR215 D P MOVE GSWBIN5,=W'128' f 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST P BNOK KTCR000 PKTCR215 P PERF RESTMK P B KTCR000 PKT
0x0b7100…0b7294 (1, 231) Opaque[0x194]
0x0b7294…0b7428 # DirEnt {nam=»RGSUB1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x0b7294…0b7428 IdxSect {
0x0b7294…0b7428 f00 = 0x000b // 0xb7294 @0x0
0x0b7294…0b7428 f01 = 0x000a // 0xb7296 @0x2
0x0b7294…0b7428 gno = [ // 0xb7298 @0x4
0x0b7294…0b7428 [0x00]: C0x000b.0x3.0
0x0b7294…0b7428 [0x01]: C0x0034.0x1.0
0x0b7294…0b7428 [0x02]: C0x0038.0x1.0
0x0b7294…0b7428 [0x03]: C0x003a.0x1.0
0x0b7294…0b7428 [0x04]: C0x0047.0x2.0
0x0b7294…0b7428 ]
0x0b7294…0b7428 }
0x0b7428…0b75bc Dummy {f00=0x000b, f01=0x018e, f02=» P IDENT RGSUB1 830825 EV P DDUM KMD08 $ P PDIV B P ENTRY SLUT X P ENTRY FLDTST l P ENTRY UPDAKK P ENTRY SUMWRT P ENTRY UPDA12 P ENTRY FLDIN P EXT PACKST P EXT W
0x0b75bc…0b7750 Dummy {f00=0x000b, f01=0x0190, f02=» P EXT FRMTVO P EXT KTPLAN P EXT SPERR , P EXT SPLIN8 > P EXT SPINF8 R P INCLUDE EQUATE f P EJECT ~ PSLUT PROC P** SLUT - PACKS THE BUFFER P** WRITES TO DISK P** WRITE JOURNAL P** WRITE VOUCHER
0x0b7750…0b78e4 Dummy {f00=0x000b, f01=0x0190, f02=»KRM,=C'K' IF KREDIT P CBE TTDKDEX,CBIN1,SLUT10 P MOVE TTDBKRM,=C'D' IF DEBET > PSLUT10 b P TBF GTCYFLG,SLUT30 p P TBT TTCY2FLG,SLUT30 * P CBE GTREGDEX,CBIN3,SLUT30 IF TRANS 3 * P CBE GTREGDEX,CBIN4,SLUT30 IF TRANS 4 P MOV
0x0b78e4…0b7a78 Dummy {f00=0x000b, f01=0x0190, f02=»IN1) x P MOVE GTDUPF(CBIN9),TTARKSAV PSLUT30 0 * P CBG GTREGDEX,=W'19',SLUT150 TR 50... > 2 P* INSERT 'REGNSKABSAAR IF TRANSTYPES 1,2,5-10 l P CBG GTREGDEX,=W'10',SLUT50 P CBE GTREGDEX,=W'3',SLUT50 P CBE GTREGDEX,=W'4',SLUT50
0x0b7a78…0b7c0c Dummy {f00=0x000b, f01=0x0190, f02=» | P MOVE TTSUPMRK,CBLANKS P B SLUT50 & PSLUT35 8 P CBE TTSUPMRK,=C'N',SLUT36 F P B SLUT37 h PSLUT36 z $ P ADD GTDUPF(CBIN6),=D'1' FORSUPP P B SLUT40 PSLUT37 " P SUB GTDUPF(CBIN6),=D'1' SUPP PSLUT40 2 P MOV
0x0b7c0c…0b7da0 Dummy {f00=0x000b, f01=0x0190, f02=»UT50 " P ADD TTLBNR,=D'1' EKSP. LB. NR P BOFL SLUT51 2 P B SLUT52 F PSLUT51 X 2 P MOVE TTLBNR,=D'10001' START VALUE FOR ODENSE f PSLUT52 P PERF WRITFD P BNOK SLUTNOK & P PERF SUMWRT WRITE SUM OR RESTSUM $ P
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x0034, f01=0x0190, f02=»RITVO P* TEST IF IN LISTE P TBF TTLSTFLG,SLUT80 ( P PERF FRMXTA,CBIN4 D P PERF WTALLY ^ PSLUT80 r P PERF UPDAKK P SET GTKORTFL P MOVE GSWBIN1,GTKTTYP P IB GSWBIN1, C ( P SLUT90,SLUT95,SLUT95,SLUT95,
0x0b7f34…0b80c8 Dummy {f00=0x0034, f01=0x0190, f02=»TREGFLG P CMP CBIN0,CBIN0 OK, SETCR=0 P RET 4 PSLUTNOK @ * P SUB TTLBNR,=D'1' CHANGE LB. NR. AFTER P P DISK ERROR ~ PSLUTRET P MOVE SPBINW4,=W'17' P CMP CBIN1,CBIN0 P RET PSLUT150 TR 50... P P
0x0b80c8…0b825c Dummy {f00=0x0034, f01=0x0190, f02=»UL TTCYKTOT,GTRTANT FIND TOTAL PSLUT170 & $ P ADD GTSUM,TTCYKTOT ADD TO LISTE 6 . P ADD GTSUMCNT,TTCYKTOT ADD TO SUM COUNTER ^ P PERF WRITJT,=W'0' $ P TBF TTLSTFLG,SLUT180 IN LISTE? P MOVE GSWBCD6,TTCYKTOT P PERF FRMXTA,CBIN5 YES
0x0b825c…0b83f0 Dummy {f00=0x0034, f01=0x0190, f02=» PEND P EJECT PSUMWRT PROC $ P******************** 8 P* T 8 P** SUMWRT - CALCULATE AND WRITE SUM/RESTSUM ^ P* P******************** $ P TBF TTSUMFLG,SUMRET ONLY IF SUM P TBF GTCYFLG,SUMADD P TBT
0x0b83f0…0b8584 Dummy {f00=0x0034, f01=0x0190, f02=»DD . P ADD GTSUM,GTDUPF(CBIN4) CALCULATE NEW SUM P ADD TTCYKTOT,GTDUPF(CBIN4) < PSUMOUT ` P PERF SPINF8 n PSUMRET : P ADD GTSUMCNT,GTDUPF(CBIN4) ALWAYS ADD TO SUMFUNCTION P RET P PEND P EJECT PUPDAKK P
0x0b8584…0b8718 Dummy {f00=0x0034, f01=0x0190, f02=»* TR1-TR10 UPDATES TTACC(IDX1,IDX2) P* IDX1 = TRNR 4 " P* IDX2 = DEB/KRE X . P* TR12 UPDATES TTACC12(IDX1,IDX2) ~ & P* IDX1 = TAELLER NR $ P* IDX2 = DEB/KRE P*
0x0b8718…0b88ac Dummy {f00=0x0034, f01=0x0190, f02=»************ ( P CBNE GTREGNR,='12',UPD20 : P PERF UPDA12 TAELLER 12 @ P B UPDRET ~ PUPD20 2 P CBG GTREGNR,=D'30',UPDRET NO ACCUMULATION FOR P CERTAIN TRANSACTIONS " P CBE G
0x0b88ac…0b8a40 Dummy {f00=0x0034, f01=0x0190, f02=»L,UPD38 * P* ACCUMULATE 'BEHOLDNINGSTAELLERE' P MOVE GSWBIN1,CBIN1 > PUPD35 Z 8 P CBE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN3),UPD350 BKO? h : P CBNE CBACC(GSWBIN1,CBIN1),GTDUPF(CBIN1),UPD36 FOUND? PUPD350 , P ADD CBACC(GSWBIN1,CBIN2
0x0b8a40…0b8bd4 (1, 233) Dummy {f00=0x0038, f01=0x0190, f02=»BNG GSWBIN1,=W'60',UPD35 PUPD38 . P MOVE GSWBIN1,CCNTDEX(GTREGDEX) GET INDEX . : P ADD TTACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) ` B P UPDATE ACCUMULATOR * P IB TTDKDEX,UPDKR,UPDDB SEE IF INVER
0x0b8bd4…0b8d68 Dummy {f00=0x0038, f01=0x0190, f02=»ECTION d P B UPD50 PUPDKR 8 P CBNG GTDUPF(CBIN4),=D'0',UPD50 IF POSITIVE KREDIT, , 6 P ADD TTACC(CBIN7,TTDKDEX),GTDUPF(CBIN4) CORRECTION h PUPD50 , P CBG GSWBIN1,CBIN4,UPDRET IF COUNTER 5,6 D P TBT GTTFLG,UPDRET
0x0b8d68…0b8efc Dummy {f00=0x0038, f01=0x0190, f02=»,GTDUPF(CBIN1),UPDRET IF VERSUR, NO UPDATE PUPD55 2 * P CBG GTREGNR,=D'17',UPDRET @ * P SUB TTCASH,GTDUPF(CBIN4) n P B UPDRET PUPDRET P RET P PEND P EJECT PUPDA12
0x0b8efc…0b9090 Dummy {f00=0x0038, f01=0x0190, f02=» MOVE GSWBIN1,TTCNTNR TAELLER NR " P SUB GSWBIN1,=W'100' GET INDEX < & P ADD GSWBIN1,CTR12(TTASKNR,CBIN1) b : P ADD C12ACC(GSWBIN1,TTDKDEX),GTDUPF(CBIN4) P ADD TTEJEDB,GTDUPF(CBIN4) 4 P MOVE GSWBCD1,CTR12NR(GSWBIN
0x0b9090…0b9224 Dummy {f00=0x0038, f01=0x0190, f02=»JECT PFLDTST PROC P******************** " P* > 8 P* FLDTST - TEST IF FIELDS ARE ENTERED CORRECT H $ P* FELT AFHAENGIGHEDS TEST P* P******************** $ P PERF PACKST CLEAR UNUSED FIELDS " P IB
0x0b9224…0b93b8 Dummy {f00=0x0038, f01=0x0190, f02=» FLDTOK,FLDTOK,FLDTOK,FLDTOK,FLDT45, C < P FLDT45,FLDTOK,FLDTOK,FLDTOK,FLDT50, C 0 0 P FLDT51,FLDT52,FLDT53,FLDT54 p P* PFLDT03 0 P CBE GTUSED(CBIN12),CBIN0,FLDT035 FIELD 16? . P* YES, RTE/GEB, INSE
0x0b93b8…0b954c Dummy {f00=0x0038, f01=0x0190, f02=» t P B FLDT035 PFLDT031 P CBNE GSWBCD3,=D'1',FLDT032 * P MOVE TT16TXT,=C'RT' IF = 1 N P B FLDT035 r PFLDT032 P CBNE GSWBCD3,=D'2',FLDT035 P MOVE TT16TXT,=C'GB' IF = 2 PFLDT035 P TEST CFLT48 P BZ FLDT
0x0b954c…0b96e0 Dummy {f00=0x0038, f01=0x0190, f02=»037 P CMP GTDUPF(CBIN3),=D'26' P BL FLDTOK BKO = 21-25 . PFLDT037 N P CMP GTDUPF(CBIN3),=D'30' ^ P BE FLDTOK BKO=30 P CMP GTDUPF(CBIN3),=D'56' P BE FLDTOK BKO=56 P CMP GTDUPF(CBIN3),=D'63' P BE FLDTOK BKO 6
0x0b96e0…0b9874 (1, 234) Dummy {f00=0x003a, f01=0x018e, f02=» PFLDT04 2 P TBT BCPR,FLDT041 CIR P CMP GTUSED(CBIN10),=W'0' L " P BE FLDTOK FIELD 17 (INDEX 10) n P B FLDTNOK 2 PFLDT041 CPR D P PERF FLDIN,CBIN11,
0x0b9874…0b9a08 Dummy {f00=0x003a, f01=0x0190, f02=» P B FLDTNOK P* ( PFLDT08 2 P TEST CFLT46 @ P BZ FLDTOK T P CMP GTUSED(CBIN17),=W'0' f P BNE FLDTOK FIELD 46 USED 6 P MOVE GTUSED(CBIN17),=W'46' ELSE SET FIELD 46 USED 0 P MOVE GTDUPF(CBIN17),=D'1' SET FIELD
0x0b9a08…0b9b9c Dummy {f00=0x003a, f01=0x0190, f02=»2,FLDT108,FLDT108 x PFLDT102 P B FLDTOK * PFLDT105 < P CMP GTUSED(CBIN2),=W'0' L P BNE FLDTOK l P B FLDTNOK PFLDT108 P CMP GTUSED(CBIN2),=W'0' P BNE FLDTOK P MOVE SPBINW4,=W'26' P PERF SPERR P C
0x0b9b9c…0b9d30 Dummy {f00=0x003a, f01=0x0190, f02=» PERF FLDIN,CBIN3,CBIN4,CBIN5,CBIN0 FIELD 55,56,57 * P CBE GSWBIN1,=W'1',FLDTOK B P B FLDTNOK p P* PFLDT50 > P PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6,28 P CBE GSWBIN1,=W'1',FLDTOK
0x0b9d30…0b9ec4 Dummy {f00=0x003a, f01=0x0190, f02=»IN1,=W'1',FLDTNOK 8 P PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48 P CBG GSWBIN1,=W'1',FLDTNOK V 0 P CBNE GTUSED(CBIN5),=W'0',FLDT512 FIELD 14? x . P MOVE GTUSED(CBIN5),=W'14' INSERT FIELD 14 & P MOVE GTDUPF(CBIN5),=D'0' EQUAL 0 P
0x0b9ec4…0ba058 Dummy {f00=0x003a, f01=0x0190, f02=»),GTDATO EQUAL POST DATO ~ PFLDT513 P CLEAR BDEB 0 2 P CBE GTUSED(CBIN1),=W'0',FLDT514 NOT FIELD 28 D P SET BDEB FIELD 28 z PFLDT514 PFLDT518 SET P]L]R 0 P CBNE GTUSED(CBIN11),=W'0',FLDT519 FIELD 15 4 P* SET P]L]R = LAST
0x0ba058…0ba1ec Dummy {f00=0x003a, f01=0x0190, f02=» 6 P MOVE TSWBCD2,GTDUPF(CBIN7) GET LAST DIGIT OF DATE P MOVE GTDUPF(CBIN11),TSWBCD2 > PFLDT519 b < P CBNE GTUSED(CBIN2),=W'0',FLDT035 CHECK FLD 48, IF FLD 6 r P B FLDTOK P* PFLDT52 > P PERF FLDIN,CBIN2,CBIN1,CBIN0,CBI
0x0ba1ec…0ba380 Dummy {f00=0x003a, f01=0x0190, f02=» CBE GSWBIN1,=W'2',FLDT525 > P PERF FLDIN,CBIN14,CBIN20,CBIN21,CBIN22 FIELD 42,43,44,45 . * P CBNE GSWBIN1,=W'0',FLDTNOK p PFLDT525 : P CBNE GTDUPF(CBIN17),=D'1',FLDT527 FIELD 46 : P CBE GTUSED(CBIN
0x0ba380…0ba514 (1, 235) Dummy {f00=0x0047, f01=0x0190, f02=»IN15),=W'0',FLDTNOK FIELD 48 v P B FLDTOK $ P* D PFLDT53 N 6 P PERF FLDIN,CBIN2,CBIN1,CBIN0,CBIN0 FIELD 6 OR 28 P CBNE GSWBIN1,=W'1',FLDTNOK 8 P PERF FLDIN,CBIN1,CBIN15,CBIN0,CBIN0 FIELD 28 OR 48 P CBG GSWBIN1,=W'1'
0x0ba514…0ba6a8 Dummy {f00=0x0047, f01=0x0190, f02=»),=W'0' EQUAL 0 ~ PFLDT532 . P CBNE GTUSED(CBIN7),=W'0',FLDT534 FIELD 40 ( . P MOVE GTUSED(CBIN7),=W'40' INSERT FIELD 40 Z * P MOVE GTDUPF(CBIN7),GTDATO EQUAL DATO PFLDT534 P CLEAR BDEB 2 P CBE GTUSED(CBIN1),=W'0',FLDT535 NOT FIELD
0x0ba6a8…0ba83c Dummy {f00=0x0047, f01=0x0190, f02=»,=W'0',FLDTOK FIELD 28 r : P CBNE GTUSED(CBIN15),=W'0',FLDTNOK FIELD 48 P B FLDTOK P* | PFLDTOK : P CMP CBIN0,CBIN0 SET CR=0 OK P RET P* PFLDTNOK B P
0x0ba83c…0ba9d0 Dummy {f00=0x0047, f01=0x0190, f02=»CT ( PFLDIN PROC FML1,FML2,FML3,FML4 ! P******************** ! 6 P* ! R 6 P* FLDIN- TESTS HOW MANY OF THE GIVEN FIELDS ! * P* (GIVEN BY INDEX) ARE PRESENT ! P* OUTPUT IN GSWBIN1 ! P* ! P******************** !
0x0ba9d0…0bab64 Dummy {f00=0x0047, f01=0x0190, f02=»SWBIN1,=W'1' ! ~ PFLD1 " $ P CBE FML2,=W'0',FLD5 " , P CBE GTUSED(FML2),=W'0',FLD2 " H " P ADD GSWBIN1,=W'1' " x PFLD2 " $ P CBE FML3,=W'0',FLD5 " , P CBE GTUSED(FML3),=W'0',FLD3 " " P
0x0bab64…0bacf8 Dummy {f00=0x0047, f01=0x407c, f02=» ADD GSWBIN1,=W'1' " PFLD5 # " P RET # . P PEND # B P* # P P* # Z P END # d@ # x ADD GSWBIN1,=W'1' " x PFLD2 " $ P CBE FML3,=W'0',FLD5 " , P CBE GTUSED(FML3),=W'0',FLD3 " " P
0x0bacf8…0bae8c Dummy {f00=0x0047, f01=0x2008, f02=» $ CBE GTUSED(FML3),=W'0',FLD3 " P ADD GSWBIN1,=W'1' 4 PFLD3 Z $ P CBE FML4,=W'0',FLD5 f , P CBE GTUSED(FML4),=W'0',FLD5 " P ADD GSWBIN1,=W'1' PFLD5 P RET P
0x0bae8c…0bb020 Dummy {f00=0x0047, f01=0x018e, f02=»RET , P RET - P* - PWJDC100 - " P SUB GSWBIN2,GSWBIN1 - 2 P CBL GSWBIN2,=W'52',WJDC200 - N $ P MOVE GSWBIN4,=W'30' FIND BLANK - r P ADD GSWBIN4,GSWBIN1 - 6 P MATCH CSENDBUF,GSWBIN4,CBIN22,CBLANKS,CBIN0,CBIN1 - P BNE WJDC200 - P MOV
0x0bb020…0bb1b4 (1, 236) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»RGSUB2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x0037 // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x0004 // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x0037.0x3.0
0x0bb1b4…0bb348 [0x01]: C0x0038.0x0.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x0037, f01=0x018e, f02=» P IDENT RGSUB2 03.02.XXX.1 P DDUM KMD08 & P PDIV D P ENTRY PACKST Z P ENTRY PACKCL p P EXT EMPTYT P EXT CYTRP P INCLUDE EQUATE P EJECT PPACKST PROC P********************
0x0bb4dc…0bb670 Dummy {f00=0x0037, f01=0x018e, f02=» v P* P* ALTERED FIELDS: GSWBIN1 P* GTDUPF 4 P* GTUSED T P******************** t P MOVE GSWBIN1,CBIN1 PPST10 $ P CBE GTUSED(GSWBIN1),CBIN0,PST30 P*SOMETHING ENTERED P CALL EMPTYT
0x0bb670…0bb804 Dummy {f00=0x0037, f01=0x0190, f02=» 6 P MOVE GTDUPF(GSWBIN1),GTREGF(GSWBIN1) TO DUP FIELD P B PST40 > P* NOTHING ENTERED N PPST30 h P MOVE GTDUPF(GSWBIN1),=X'FF' v P TBF GTLOKSPG,PST40 P MOVE GTREGF(GSWBIN1),=X'FF' P* CLEAR IF SPG. FUNCTION PPST40
0x0bb804…0bb998 Dummy {f00=0x0037, f01=0x0190, f02=»******************** p P* P* PACKCL - CLEAR ROUTINE & P* F P* ALTERED FIELDS: P * P* GSWBIN1 - SET TO CBINMAX j . P* GTUSED - ALL ENTRIES SET TO 0 P* 4 P***********************************************
0x0bb998…0bbb2c Dummy {f00=0x0037, f01=0x412e, f02=» 4 P MOVE GTUSED(GSWBIN1),CBIN0 LOOP CBINMAX TIMES P ADD GSWBIN1,CBIN1 @ P CBL GSWBIN1,CBINMAX,PCKCL10 Z $ P MOVE TT07TXT,=C' ' CLEAR TEXTS ~ P MOVE TT16TXT,=C' ' P CLEAR TTSMALL P CLEAR TTEORFLG TRANS ERASED P RET P
0x0bbb2c…0bbcc0 Dummy {f00=0x0037, f01=0x2008, f02=» IDENT RGSUB2 P DDUM KMD08 $ P PDIV B P ENTRY PACK X P ENTRY PACKCL v P ENTRY PACKF P ENTRY DEPACK P INCLUDE EQUATE P END @
0x0bbcc0…0bbe54 (1, 237) Dummy {f00=0x0038, f01=0x0190, f02=» h , 0 > 0 P 0 b 0 t 3 6 =0 @0 J F " D % LD% L: L L I ! L* Lb L L
0x0bbe54…0bbfe8 Dummy {f00=0x0038, f01=0x0190, f02=» u0 1 y0 1 J F " D @L ! L L 4 L Lb # L % L Lb # L % L W . | 0 0 0 0
0x0bbfe8…0bc17c Dummy {f00=0x0038, f01=0x0190, f02=» 0 $ 0 4 F J F " D L" L 2 % L " 3 $ 4 4 L4 4 R ! L L X 0 T
0x0bc17c…0bc310 Dummy {f00=0x0038, f01=0x0190, f02=» K0 ! P0 " W ( ` d : n d L J F " D @J, ! L4% L/# L*_*! L#_1 L t =W L" t _MJ PW 4 ^ Y
0x0bc310…0bc4a4 Dummy {f00=0x0038, f01=0x0190, f02=» . > N ^ n ~
0x0bc4a4…0bc638 Dummy {f00=0x0038, f01=0x0190, f02=» . > N ^ n D ~ R c
0x0bc638…0bc7cc Dummy {f00=0x0038, f01=0x0190, f02=» u . > N ^ n ~
0x0bc7cc…0bc960 Dummy {f00=0x0038, f01=0x0190, f02=» 2 H M Y . > N ^ n ~ c
0x0bc960…0bcaf4 (1, 238) Opaque[0x194]
0x0bcaf4…0bcc88 # DirEnt {nam=»A «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x0bcaf4…0bcc88 IdxSect {
0x0bcaf4…0bcc88 f00 = 0x000a // 0xbcaf4 @0x0
0x0bcaf4…0bcc88 f01 = 0x0002 // 0xbcaf6 @0x2
0x0bcaf4…0bcc88 gno = [ // 0xbcaf8 @0x4
0x0bcaf4…0bcc88 [0x00]: C0x000a.0x1.0
0x0bcaf4…0bcc88 ]
0x0bcaf4…0bcc88 }
0x0bcc88…0bce1c Dummy {f00=0x000a, f01=0x00a8, f02=» $LEDLS !!CH $$XLS$$CBC$$ !!EN , $LEDLS 8 !!CH $$XLS$$NR$$ F !!EN ^ $LEDLS j !!CH $$XLS$$BUF$$ x !!EN $ASG2
0x0bce1c…0bcfb0 Dummy {f00=0x000a, f01=0x2008, f02=» LS !!CH $$XLS$$CBC$$ !!EN , $LEDLS 8 !!CH $$XLS$$NR$$ F !!EN ^ $LEDLS j !!CH $$XLS$$BUF$$ x !!EN $ASG2
0x0bcfb0…0bd144 Dummy {f00=0x000a, f01=0x018e, f02=» Y0 [ ]0 * c 8 < k L r s l u ~ y } J F " D @ _ @c@(_DI EL RME EL R LMC RM I` R ' ` RL RT RT RX o
0x0bd144…0bd2d8 Dummy {f00=0x000a, f01=0x018e, f02=» " $ 4 " D T d t J F " D R RL RL_ R@(@cI` RLA ?RAaI`1A 1XF R6 _ _ R 1XF R2 RRR_ BC
0x0bd2d8…0bd46c Dummy {f00=0x000a, f01=0x0190, f02=» 0 C . , * . : , J $ Z J F " D a ` L0XR _@1XF R2 RRR_ ! L ! L _ ` _ ` _a0XA`A 1X F1X FI j ( , ! ' #
0x0bd46c…0bd600 Dummy {f00=0x000a, f01=0x0190, f02=»1X F RT Ab ba bc_11X F@`0X RL R ` l C , * E ' : G J R Z V o j Z , z / ^ _ @ l , n 4 p , r + z
0x0bd600…0bd794 (1, 239) Opaque[0x194]
0x0bd794…0bd928 # DirEnt {nam=»RGLOAD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0aa0, f03=0x0000}
0x0bd794…0bd928 IdxSect {
0x0bd794…0bd928 f00 = 0x0055 // 0xbd794 @0x0
0x0bd794…0bd928 f01 = 0x0022 // 0xbd796 @0x2
0x0bd794…0bd928 gno = [ // 0xbd798 @0x4
0x0bd794…0bd928 [0x00]: C0x0055.0x0.0
0x0bd794…0bd928 [0x01]: C0x0074.0x2.0
0x0bd794…0bd928 [0x02]: C0x0079.0x1.0
0x0bd794…0bd928 [0x03]: C0x0079.0x2.0
0x0bd794…0bd928 [0x04]: C0x0079.0x3.0
0x0bd794…0bd928 [0x05]: C0x00d8.0x2.0
0x0bd794…0bd928 [0x06]: C0x00dc.0x1.0
0x0bd794…0bd928 [0x07]: C0x00dc.0x2.0
0x0bd794…0bd928 [0x08]: C0x00dc.0x3.0
0x0bd794…0bd928 [0x09]: C0x00dd.0x0.0
0x0bd794…0bd928 [0x0a]: C0x00e6.0x3.0
0x0bd794…0bd928 [0x0b]: C0x00e7.0x1.0
0x0bd794…0bd928 [0x0c]: C0x0152.0x2.0
0x0bd794…0bd928 [0x0d]: C0x0152.0x3.0
0x0bd794…0bd928 [0x0e]: C0x0153.0x3.0
0x0bd794…0bd928 [0x0f]: C0x0154.0x0.0
0x0bd794…0bd928 [0x10]: C0x0154.0x1.0
0x0bd794…0bd928 ]
0x0bd794…0bd928 }
0x0bd928…0bdabc Dummy {f00=0x0055, f01=0x0190, f02=»c w >CRj B R R R [ vR f R p R x * f z a
0x0bdabc…0bdc50 Dummy {f00=0x0055, f01=0x0190, f02=» P 8 2 0 F 1 d b TC T p n 0 t & ( h TC *
0x0bdc50…0bdde4 Dummy {f00=0x0055, f01=0x0190, f02=» JKLMNO " $ & F 6! B %
0x0bdde4…0bdf78 Dummy {f00=0x0055, f01=0x0190, f02=» B Z 8 6
0x0bdf78…0be10c Dummy {f00=0x0055, f01=0x0190, f02=»
[…0x1…]
0x0be2a0…0be434 (1, 240) Dummy {f00=0x0074, f01=0x0190, f02=»
[…0x3…]
0x0be8f0…0bea84 Dummy {f00=0x0074, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ & { B X
0x0bea84…0bec18 Dummy {f00=0x0074, f01=0x0190, f02=» 00000000000000000037651ASKAT358A/S 252BSKAT360BDFLG068B B N169B B %164BRNFO062DAGPE256EJDSK059FORAB257ANDKM030FORBE131TPDAG154GLSK 136HUSL 061S[RIN021FORBR022FORB
0x0bec18…0bedac Dummy {f00=0x0074, f01=0x0190, f02=»L063GRDSK040DAGIN023FORBR024FORBR033DEPOS034DEPUD041KNBEV120INKAS142BISTH143SKB*D144SPPGA166NEGIN000000000 @ A B E F G H I P Q R S T F 0 0 0
0x0bedac…0bef40 Dummy {f00=0x0074, f01=0x0190, f02=»
0x0bef40…0bf0d4 (1, 241) Dummy {f00=0x0079, f01=0x0190, f02=»
0x0bf0d4…0bf268 Dummy {f00=0x0079, f01=0x0190, f02=» ; 0 ; =
0x0bf268…0bf3fc Dummy {f00=0x0079, f01=0x0190, f02=» * B 0 0 0 0 0 0 #0 *0 10 8 ?
0x0bf3fc…0bf590 Dummy {f00=0x0079, f01=0x0190, f02=» * B 0 0 0 0 0 0 0 # + ? @ B K " 0 0 0 0 .
0x0bf590…0bf724 Dummy {f00=0x0079, f01=0x0190, f02=» K * B
0x0bf724…0bf8b8 Dummy {f00=0x0079, f01=0x0190, f02=» 8 h 0 0 0 2 0 0 0 0 0 0 $0 *0 1 4 0 c r*l* + B B B tB B c 0 * 4hN T ;jN _ ? 0 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 0 4 A 1 i 2
0x0bf8b8…0bfa4c Dummy {f00=0x0079, f01=0x0190, f02=» _ @ @ @ @ @ @ @ @ @ @ 3 3 3 t0 0 v | + t u " t Q t e t i ! t 0 o 6 t i tL 0 o "_] W t 0 i tA !H ! t1 ! t 0 { r t 0H W
0x0bfa4c…0bfbe0 Dummy {f00=0x0079, f01=0x0190, f02=» o t D t u " t . t i i e t'# t 0 _:0 4 h t t tI ~ u " W I . / % v & _g " _
0x0bfbe0…0bfd74 (1, 242) Dummy {f00=0x0079, f01=0x0190, f02=» _.K 1 f W K < n W _ W t t t 2 0 !0 u r " < c t c c "0 I 6 W c t c t u tE0 _d &0 0 4 I 4 WH _ 2 # !"#$%&'()*+W 8 !2 !?,A I A A 1 6 _ H
0x0bfd74…0bff08 Dummy {f00=0x0079, f01=0x0190, f02=»-?,A(@ C <. <. A <.A 1 T 2 ../_$I Eu E Eu vMC 8 C Eu -I ' # 2 0112341111_ _1K ,0 S @0 , + O + - ' ( vM P x W $ LbM ( ! uMTd@' t C C ( vM CTbI'_! x L h M P?H - = " hM (
0x0bff08…0c009c Dummy {f00=0x0079, f01=0x0190, f02=»" <5 # <5W " <5 # <5W -A @(?,?6?,?, $!A 6 _ @ ?,H 0I $ ! 7A W A 9W 3@ A % ?,I ]1 kA A _ 2 778?7 2 9:;<=>?@ABC_' ?7 ?7 ?7 AA 1 ?7 &?7 ?7 { A 1 {?7I %C P @ A 1 6 _ A I CW S *
0x0c009c…0c0230 Dummy {f00=0x0079, f01=0x0190, f02=» P Q A 7W A 9 (A @ ?7 @ @ 3W H H A _ W C T C T C P @ A 1 6 _ A @ I CW S * I , C ' v W , S ' y $ u R P _6 8 6@ 3( P Q A 7W A 9I A ) z 8 0 *0 + v " 3 u_ H @
0x0c0230…0c03c4 Dummy {f00=0x0079, f01=0x0190, f02=» A .W @ ?,I A A A |1 2 D_ @ @ ?,?,?,I 4 A t 1 t$6 _, ?,I A 1 x t 6 _ ?, t t / 01 qA W @ 2 EEFG! ! _ { / 0_% _ / 0_2 W / 0A 1 j _W A 0 1 ) ! } 1 }@ 1
0x0c03c4…0c0558 Dummy {f00=0x0079, f01=0x0190, f02=») 2$ 0 $0 _ 0 W 6 W 6 W 6 W W 6 W 7W 4 ? @ ) % t 3 891 :4 1 a ) 0 2 0 4 0 u4 H 0 _ A A* ) H" Eu E vMC - xu ;%T T T " T W + - C EtH" <P _#H" Eu @$@*@ 4
0x0c0558…0c06ec Dummy {f00=0x0079, f01=0x0190, f02=» aMA4 C Eu xu ; xu! - , ( H + 6 y ' _ - , > u#5)T xu xu ?5 _B ?5 _EJ 9W - +A " T6 S S ( vM ST ! x L h M P yMSX* S @ 0 W _ - ( > x"X( _ - " T T xu <P xu W 4 4 .] B H Z&^Z] _BI Z ]
0x0c06ec…0c0880 Dummy {f00=0x0079, f01=0x0190, f02=» U W Y H w ) D ! % ) - 1 [ ` e j l q u } p _ r v z ~ w ^ [ s p ? * , ,
0x0c0880…0c0a14 (1, 243) Dummy {f00=0x0079, f01=0x0190, f02=» 7 W P - | ; 3 c i z a ( 2 3 @ } *-DGKNT NR&04BEL DEB KRE SUMKVITTRP ADM ARKIVBILAGDEBETFEJL KLAR SALD0SAL
0x0c0a14…0c0ba8 Dummy {f00=0x0079, f01=0x0190, f02=»RTMASKIN NRPOST-DATOSTART SUMSUBTOTAL CPR/CIR/NRREGKONTONR SLUT TESTBEV.PERIODECHECKCIFFERKASSE]BNINGSLET SALDO START TESTEDB-T[LLERE KASSE-KONTO KASSELUKNING ]BNE KASSERKONVERTERING REGNEFUNKTIONSLET PERIODE EJ-EDB T[LLER DISKETTE SKIFT BEHOLDNINGST[LLEREVERS
0x0c0ba8…0c0d3c Dummy {f00=0x0079, f01=0x0190, f02=»B**B9BBBXBXBBXXBZZXX.XXBZZZ9999999BB**BB99.B999B99BBBZZBXX.BXXXBZZZXXXB****9***9999999B**E-B999BBZZZZXXXXX999999B99999BBZ999BBZZZ-BPPXXBBB****9XX.XXPPZZ.ZZ.ZZZZ99999999.99.99BB99.99.99BZZ.ZZ.ZZXX.XX.XXBZZ.ZZ.ZZB99E-99E-99B99.99.99BXXXXXXXXXX99.99.999.9BZZZZZZZZZZX
0x0c0d3c…0c0ed0 Dummy {f00=0x0079, f01=0x0190, f02=»999.99BBBZZ.ZZ.ZZBBE-9999999999BXXX.XXXXX.XXB999E-99999E-99BXXXXXXE-XXXXBTTTTTTTTTTTTX-XE-XXE-XXE-XXBXXXE-XXXXXE-XXZ.ZZZ.ZZX.XXBBBXXXE-XXXXE-XXXTTT.TTT.TTX.XX-TTTTTTTVTTX,XX-Z.ZZZ.ZZX.XXE-BZZZ.ZZZ.ZZ9.99-ZZZ.ZZZ.ZZ9.ZZ-999E-99999E-99BBB***.***.**9.99-BBXE-XXE-XXE-
0x0c0ed0…0c1064 Dummy {f00=0x0079, f01=0x0190, f02=»*.***.**9E,99B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZTTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99-BTTT.TTT.TTT.TT9.99-BBZZZ.ZZZ.ZZZ.ZZ9.99- %
0x0c1064…0c11f8 Dummy {f00=0x0079, f01=0x0190, f02=»A $ + L3E8z9 , l | N +j + o [ 3 D m ~ N > B m f N +j * i o 0 [ ` H j Z p Z l Z 0 k U 2 s s y [N y P] |l m# f N U ? Z Z T l | 1 j ` H | [ l
0x0c11f8…0c138c Dummy {f00=0x0079, f01=0x0190, f02=»' |B - l A J5 R2 - 2 m [ _ 2 s s s M&y 2 { g 1 3/ l D" + ' |B u M * * _ ) D r T N + ' *B + E 4 h 2 c sc sc 1 1 * S d = S
0x0c138c…0c1520 Dummy {f00=0x0079, f01=0x0190, f02=» i ) ` 3* D J +F | m * @ $ < ] N E S [ u ( E ( _ ` 3 D 4 d Y } d H Z * j S G Q C 4O ! f Y Y ^ 1 j T J N r u l > !
0x0c1520…0c16b4 (1, 244) Dummy {f00=0x00d8, f01=0x0190, f02=» n i T K N q P q q Z ` D ? " 4 % # ` D ? 4, , , , !, D o < T d % Ne ' B q 2 * 4 S T c K D i T J N p Z j
0x0c16b4…0c1848 Dummy {f00=0x00d8, f01=0x0190, f02=»%g ] k F d * F X FRA 7 TIL 7 ^ k ;a ;a ;a ;a ;a ;a ;a ;a ;a ;a ;a ;a Z 4X PRIMOs 2 BEV s s s 2 ULTIMOs 4 TOTALs s s 4 SUPL s s s 2 KOR s s + ' B :y= - | 2 * * 4 T S NET
0x0c1848…0c19dc Dummy {f00=0x00d8, f01=0x0190, f02=» m O J n ` V o Z ^ * VERSNR Z ] X IK Fz F 2 s d d c * | l l 0 #$ $ $ D $ & O % K ' ] ' a '$ $ D (D )D * M LF8U,+GG+,+**+$E:6> 589O# ##=<2"! 87 ;Q10/1Q
0x0c19dc…0c1b70 Dummy {f00=0x00d8, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D E F G H I J K L M N P S V Z ^ b f j o t y ~
0x0c1b70…0c1d04 Dummy {f00=0x00d8, f01=0x0190, f02=»0 I0 J0 K0 L0 N0 P0 R0 T0 V0 X0 [ # & ) , / 2 5 9 = A E I M Q U Y ] a f k p u z
0x0c1d04…0c1e98 Dummy {f00=0x00d8, f01=0x0190, f02=» ^ m } ) ; N a u $ A & a " $ & ( * , . 0 2 4 6 8 : < > @ B D G J N R V Z ^
0x0c1e98…0c202c Dummy {f00=0x00d8, f01=0x0190, f02=» # , 5 > G Q [ e o z ( 7 F U e u & : N b v ( C ^ y ! & ( 6 ( ^ *
0x0c202c…0c21c0 Dummy {f00=0x00d8, f01=0x0190, f02=» C ( ( H BD B H _ H C C C ( :BdE $ A & a " $ & ( * , . 0 2 4 6 8 : < > @ B D G J N R V Z ^
0x0c21c0…0c2354 (1, 245) Dummy {f00=0x00dc, f01=0x0190, f02=» # , 5 > G Q [ e o z ( 7 F U e u & : N b v ( C ^ y ! & ( 6 ( ^ *
0x0c2354…0c24e8 Dummy {f00=0x00dc, f01=0x0190, f02=» C ( ( B _ C C C ( :BdE $ A & a " $ & ( * , . 0 2 4 6 8 : < > @ B D G J N R V Z ^
0x0c24e8…0c267c Dummy {f00=0x00dc, f01=0x0190, f02=» # , 5 > G Q [ e o z ( 7 F U e u & : N b v ( C ^ y ! & ( 6 ( ^ *
0x0c267c…0c2810 Dummy {f00=0x00dc, f01=0x0190, f02=» C ( ( B _ C C C ( :BdE $ A & a " $ & Bb 4P 0 5 :( _ Bb (P _ ) 1 : C ( : e e & + P
0x0c2810…0c29a4 Dummy {f00=0x00dc, f01=0x0190, f02=» X " J X X . 8 N Z^ X 0P X T 5 ! Y * K y X V* X ( Q x C ( Z Y * X Y , Q X X C & C C ( Z B Ph9 R^9 M X !@PP X X * b ) Y * Y , X , Q x X *YvP y X "
0x0c29a4…0c2b38 Dummy {f00=0x00dc, f01=0x0190, f02=» y X # x V y X X * Q P P 1 _ 1 K X * I X X * $" X D % " X # X * Q y _< X # X * y Q X 1 1 X !@T X $ " P y _ x T M L X H X X * , )$ P _ : N ' Y e` NN
0x0c2b38…0c2ccc Dummy {f00=0x00dc, f01=0x0190, f02=»" T R Q X ! N X X ! x Y Y _ X "@P B R y C B P 9 V M _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c ZH C _$ _ M y _6 K x X@ X Q X # Q C _. B ]d P C
0x0c2ccc…0c2e60 Dummy {f00=0x00dc, f01=0x0190, f02=» X Q Q ( Z e ( Z Y : B N C _J + . Z^ X 9 V ! P @ Y e Y Y . : e` e e " e $ : Z^ 2! Y " Z e Z e j2 Z^ X "T X ZH R ZT Z^ e X ZZ N ZF
0x0c2e60…0c2ff4 (1, 246) Dummy {f00=0x00dc, f01=0x0190, f02=»' _ X '?_ Z^ e X ' ZZ X ! ZF ZH Z^ X " 9b! X :c 2" HO ZX@ W W W W W W W Z^ Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 R W U X Q S W Y 0 R S `& _x Z^ 9H Y * Q W W Q
0x0c2ff4…0c3188 Dummy {f00=0x00dc, f01=0x0190, f02=» Q P W W Y ( R C Z^ X *! P V L ! ZZ c X 0 Y 8 Q: P Zz Y 0 X 0 X 2] X 8 Y 0 Q: : X 0 :H* Zf : X 2T Y 2 : C 1 B ] _ : Q X +! U 9K Y ( Y + R S Z^9H Y * 2 Y ( Y + e 4 0 eF 6 2 :
0x0c3188…0c331c Dummy {f00=0x00dc, f01=0x0190, f02=» : K + Q 2 P. P8 eR u ( Z B X # V : e q _0 g _>r r e r r r r r r rHqbrHq(T$U$U$r T r W W X 0Q S S Y ( Y *P _x p8 R X <' X X pn Z^ X *# X ( " Qp " P X 0P: Vp_` " P4 T XJ
0x0c331c…0c34b0 Dummy {f00=0x00dc, f01=0x0190, f02=» _x Y C W @ X (T W X y 6 Y ( : X (;n ZHr q u q q T r r r r4qbr>q(T$T T rRT r Z^ Y . Y ,W Z^ Y . X ( X ." PV X 0RzT$ Y *P U :H Zf S K T r W r X . X 2QH Y *T2 r : " P$ X 0U X *# P P T " T :
0x0c34b0…0c3644 Dummy {f00=0x00dc, f01=0x0190, f02=» " X .9H $ rn P & X ( " Qv Y +Q R " P W " U W^ Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P W P< W WZ X ! X $" P<Q X (# P2 X # :! R$W W W T$ @ Y (W Y , XJW Xh Y ( qb : X *:h X (!
0x0c3644…0c37d8 Dummy {f00=0x00dc, f01=0x0190, f02=» Y (_ P. W P Y 8 U Z^ X 8 X $ ZfWh_ " P X ( T X & V H "@TF W P6 V Y X (P Y X X (P Wv Y 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 Y e 8 V Y 8 : " P X & V ( P W :
0x0c37d8…0c396c Dummy {f00=0x00dc, f01=0x0190, f02=» & V H " V Y : X $ Zf X : Zz : X Y " X Y $ X Y & X @W X < Y = " Z ! T W r ! P =H r Y X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X ZfW Y ( : X , Y X $ Y X &
0x0c396c…0c3b00 Dummy {f00=0x00dc, f01=0x0190, f02=» e q : 2' " P T g W eR u : Y : Z^ _x Y C ZT X Zf : "0P ' Q W ' Y : W eV V q Z^ Y Y Y < V E c B X _ v : C C _ : C _ :( R : V E V
0x0c3b00…0c3c94 (1, 247) Dummy {f00=0x00dc, f01=0x0190, f02=» [R _ ^ `&/ [R _ _ ' / e C ^ e C e &P C e & C : @[~P ( Z _ A[~ `& " A[ 2 e [ e [ 8 2 A[ e 8 [ ( Z
0x0c3c94…0c3e28 Dummy {f00=0x00dc, f01=0x0190, f02=» e C : `& "R V I c `& ( T _& @b X, @b _6 e ( Z c e e V c 2 ;B P4 J T r ]l ( c Z W< *l_2 ]l ( Z W e & F : ( Z c
0x0c3e28…0c3fbc Dummy {f00=0x00dc, f01=0x0190, f02=» C C J^ ' W 781"&$ 39#$;< '()*+,-! ` ` `n e P _B `& B e 'W `& ( Z Wj e `& `~ W `& ^ ( 1W C C C ( Z ' Pb _ I "%@P "% P& B C C 4 "5 # B
0x0c3fbc…0c4150 Dummy {f00=0x00dc, f01=0x0190, f02=» V I C B : ( Z ' P _ I : `& `n % Y e` C e & R V C e : B T T T V : 2 ' W 2 6 2 @ d" T # ' ?D gXW"' #? gB ;D:B " : _ e C :
0x0c4150…0c42e4 Dummy {f00=0x00dc, f01=0x0190, f02=» C : C C V W V Q 0W Q W Q W a a 4 ! P T 0P(W$ 8 C S W C C 0 P C ;a 6 4 ZH T : 49d_Z B@5 @ 8 @N ' @ d P ( z= #0 T B
0x0c42e4…0c4478 Dummy {f00=0x00dc, f01=0x0190, f02=» ' P _d P & 1 P 1_ , @ - R T U :B@ ' d b ( cfcfcfd e c d j2g g i>l.m m d d d d d c d d p s s s s:s r e$e e*e, W V 7 P Z P W cJ V X _ d$ 9c Db e
0x0c4478…0c460c Dummy {f00=0x00dc, f01=0x0190, f02=»P " 2 P V D ! R T V P V Z W V _ 8^n Dc 2 ! 9B V T + W V P D $ V 6 V % V E @ d' T 2 % 7_ 2 # L* e 2" &] Y $! 6P Q $ T 9B c _ _ 6 @ d" T 7 $ V P
0x0c460c…0c47a0 Dummy {f00=0x00dc, f01=0x0190, f02=» P W 6 2# gXW4 @ b Ee>" T> ; [ # gB:H 2 T Z L Le. D V, W # gB Le. E V $ W D V Le6 , Wn 6 2 gXW " P " # gB ;b WF " ;d# _ [ v [ Z e Z Z Z :
0x0c47a0…0c4934 (1, 248) Dummy {f00=0x00dd, f01=0x0190, f02=» : Z 4 " 2@P : [ [ e & @ b! P [ 6 [ Z 7 e Z 7 : ( :A ( @ d" P [ :;H 2 P ;h gL : f" ; V Y : 2! : 6 2 gXW& " # gB;b ;
0x0c4934…0c4ac8 Dummy {f00=0x00dd, f01=0x0190, f02=» W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : P8" T *
0x0c4ac8…0c4c5c Dummy {f00=0x00dd, 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 PN P 0 - P: V W Z _ 4 V W Q P ) P 9_ &" ! 9 : & P Q j ,^ , < j #
0x0c4c5c…0c4df0 Dummy {f00=0x00dd, f01=0x0190, f02=» V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P & T 9d! T 7 V Y P _$ SZ Q V P V Q W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V
0x0c4df0…0c4f84 Dummy {f00=0x00dd, f01=0x0190, f02=» [ $ [ [ >h [ [ o j2 o j2 o g Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P o g V H )_ o m _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 :
0x0c4f84…0c5118 Dummy {f00=0x00dd, f01=0x0190, f02=»W V E + : V & [ [ [ [ $ [ [ o j2 o j2 o g z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z o i Q o m P _ T { [ o o [ Q@ [ o g { R [ _ o g o
0x0c5118…0c52ac Dummy {f00=0x00dd, f01=0x0190, f02=» , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L r eFe g r g eRe r q u q q r r r r r4qbr>q(r rdrdrRr r p 6 q0 K K K K V K : e
0x0c52ac…0c5440 Dummy {f00=0x00dd, f01=0x0190, f02=» J " J _Z Z q [ Z P Z [ V 7_ Z q Z Z 7 Z Z P Z : V R (Q V : r r : pH J P v I < : J Qf : P 4 ! TV_ K r WJ r W +_
0x0c5440…0c55d4 (1, 249) Dummy {f00=0x00e6, f01=0x0190, f02=»P e ! P eNW : ! )P9H # T &W &" :I : r : P & _ &X _ : : : : t: p : { : tr t2 PX 9 _ tr [ tr Z : R" P $ 1T Y W 5 _$ : tr
0x0c55d4…0c5768 Dummy {f00=0x00e6, f01=0x0190, f02=»! :DW ! 9 R R Y, : jP : e e jP kT T : & 9! " : $ : t: eF $ : 2 & >A >A 2 $ e & V D 9a 9 V @ @W @ f T W X R V 8 P , _ =B R ?H 8R0;AV (
0x0c5768…0c58fc Dummy {f00=0x00e6, f01=0x0190, f02=» V 5 ( W, V P& W$ U V X 9T I Y c : + e [ [ < !AAP !TTT W !**T * [ R !FFP !EET W Iwr 6 * B Z 9 ! ; *Xt 8 ! Dwb 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P
0x0c58fc…0c5a90 Dummy {f00=0x00e6, f01=0x0190, f02=» ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W v8 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 ( Z c e & V D 9a 9 V @ @W @ f T W X R V 8 P , _ =B R ?H 8R ;AV (
0x0c5a90…0c5c24 Dummy {f00=0x00e6, f01=0x0190, f02=» H sI pH m! yi! e @ H A A @ 6 EE _ H A 0 P @ H _6 +0 u 0 0 @ @ 4 @ 4 H H 0 @ H ^H [) W 0 40 0 0 0 P 0 0 Y W 0 ! , 6 u: 0 0 u4 - t
0x0c5c24…0c5db8 Dummy {f00=0x00e6, f01=0x0190, f02=» 8 3@ 4 4 I MI " T T I ! H r) n @ We( K )A WQ TR TNK ( , W=( W.( W ( T W T @ ! t W 4 4 ( ! ! ! ( ! ( ! 4 I 6 * MWW I I
0x0c5db8…0c5f4c Dummy {f00=0x00e6, f01=0x0190, f02=» 0 0 % A @ @ W 2 0 W W 4 4 H I 4 4 A A H " @ WW t t t t u A @ 6 _&@ @ _O% u P A I @ 4 3 3 t t@ @ @ @ 0 4 I 5I A A t W 0
0x0c5f4c…0c60e0 Dummy {f00=0x00e6, f01=0x0190, f02=» 0 4 4 I 4A u tWU H _ I 3@ H 0 @ @ # ) z 0 0 0 I K e 4 I "I I A A ! !W "W @ W 4 4 H* # H* 4 H 0 _ A @! 0 $ tA)!B( @)aMwaM B hM L B ! I!4H )
0x0c60e0…0c6274 (1, 250) Dummy {f00=0x00e7, f01=0x0190, f02=»K 0 C Eu_ bM % vMCT6I * 0 C Eu & CT$$CR @ @! ) 4 @!@ 4 C0 0 E A*@ A 4 @ # Fu# } ) ~ A 4 # Fw_ # Fy_ # Fx_ Fv_"4 0 0 I $ " 'W ( I 0 0 P A 4 0 4 0 0 0 4 1 4 1 4 I } @ #
0x0c6274…0c6408 Dummy {f00=0x00e7, f01=0x0190, f02=» )T 4 I A 0 0 v% x 4 I 0 0 C 0 0 A 4 0 0 4 I 0 T$0 ! ) 8# 4 # : ! ' W10 % W W 0 0 4 _6 4 0 6 W& HW! W pW lW W W 0 : M # 0
0x0c6408…0c659c Dummy {f00=0x00e7, f01=0x0190, f02=» WC * T< * T5 * T.H + S * T! S W !T * W W * W 4 4 6 % W#-T + W T T + P T T + 4 6 )+W30 0 0 H 0 0 W !T 0 0 W W 0 0 W 4 P , . #HP 0 $ _ AP W2`W % wW T @P 4 @P 4 I ,I A H
0x0c659c…0c6730 Dummy {f00=0x00e7, f01=0x0190, f02=» 4 H XI 0@ @ 0 0 @ C P -T W"@ A 0 C 0 v4 # . 8 ) W ^ O P ( 1 I i ; | z I ~
0x0c6730…0c68c4 Dummy {f00=0x00e7, f01=0x0190, f02=» DATATRANSMISSION $ ' B G I P TTTTTTTTTTTTT9TTTTTTTTTTTTT9- W u t G F3E ! &y 8 =3 & , 2 9 A J S0 d0 e0 g0 i0 k0 m0 o0
0x0c68c4…0c6a58 Dummy {f00=0x00e7, f01=0x0190, f02=» v F j n r 4 4 4 4 4 4 @ 8 I 6 L0 0 WC0 W<6 0 W 0 6 0 W 0 W 0 W 0 W 0 W 0 R 0 P R _ 0 0 P A W*6 0 W 0 W 0 : @ + 2
0x0c6a58…0c6bec Dummy {f00=0x00e7, f01=0x0190, f02=» 4 90 _;0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ X 7 GG;GG;7;;;7;7? 1 ? 0 T b ! 2 A _ WK0 ) ? 0 ? I H 0 S 0 P 0 Q 4 0 C! m! i '0! ( 1 W{! w 0 1 H 0 6 0" W 0"
0x0c6bec…0c6d80 Dummy {f00=0x00e7, f01=0x0190, f02=» 0 1 ! 4! R 6 0" W 0" W 0" $2 _, 4 6 0"V W 0"V W 0"V 4 0 1 4 4 % D% : t I ! t* ub ~ ~ ! t 4 u b # % u b # % u W
0x0c6d80…0c6f14 (1, 251) Dummy {f00=0x0152, f01=0x0190, f02=»t 4 4 0 ! #! 0! @! _ 6 6 1? 4 WFK WAJ W<J, ! 4% /# *_*! #_1 t =W " t _MJ PW 4 # *H @ , W H @ , ( , ? 2 r !"#$ %&%%'%%(%%%%%%%%%%)*+%,$%%%%%$%%%%%%-$./%%$$0$$$$$$$$%12%3 45
0x0c6f14…0c70a8 Dummy {f00=0x0152, f01=0x0190, f02=» ! _ A R A 9%@ ?%@ ?% ?% "8 8 I # "# W # % W I O O { ? ! ! ! ? # W A A @ + A ? @ ) A ) ! j! f $b N L ) + " :hN b N ) , Lb N ! t %
0x0c70a8…0c723c Dummy {f00=0x0152, f01=0x0190, f02=» vb v" ?% ? :R! ! ? ?%! ! ? ?% ! u ! v ? ?% % ? ? % v ? ?%H % ? ?% % w ! x ? ?% # y % t ?% ? # % ?% ? ?$ :R?% u % t : ?R :R " t % u t !
0x0c723c…0c73d0 Dummy {f00=0x0152, f01=0x0190, f02=» ! ! ? A % A # @ W @ < ?% ) < ?% Z! ) ! A % A # @ W @ < ?% ? ) ! ! < ?# _ ! ? T ?% ? ? _ I ?# ?# ?%@ @ ? < ?
0x0c73d0…0c7564 Dummy {f00=0x0152, f01=0x0190, f02=» |? r # r r W W t # t t W W ! T t tb ~ ~ ) t ~ ~ Wy % zr Wm ( z WdA W` yW[ zWV WQ # tWE W@H ! t A , W&H t
0x0c7564…0c76f8 Dummy {f00=0x0152, f01=0x0190, f02=» 6 W 6 $ A W 4 A @ 4 A R ? 3 T ) 1 k 4 n ~ H . @ N o
0x0c76f8…0c788c Dummy {f00=0x0152, f01=0x0190, f02=» M t ) ^ v 8 x z $ 0 < = Q T Y d 15151 52 LINIE NROPSTART SKIFT JOURNAL ! " 0 1 I Q R p 9 2 ZZ9ZZZZZVZZ9,99+ 1 [ F p
0x0c788c…0c7a20 Dummy {f00=0x0152, f01=0x0190, f02=» " # % ) - 5 =0 J0 K0 M0 O0 Q0 S0 U0 W0 Y0 [0 ]0 _0 a0 c0 f0 i0 n # /@ ;@ D * 2 $ ~ H . @ N o
0x0c7a20…0c7bb4 (1, 252) Dummy {f00=0x0152, f01=0x0190, f02=» w 1 4 1 4 1 4 A @ u H A W @ W A 1@ I 3 @ W I W I " A 6 _5 W @ _ _EA 4 A 6 AR H __ @ _GK ( @ _Z$ 0 0 A _sI 0 3@ @ _ K P 3@ _ A _ 6
0x0c7bb4…0c7d48 Dummy {f00=0x0152, f01=0x0190, f02=»T ! W 4 T 4 TxW~ TqWw TkWq 4 2 TDWJ T=WC T6W< T0 4 I ( 4 I 4 I 4 H 4 4 4 6 ! !1 4 4 I T 6 4 4 4 0 4 4 A @ @ 6 4 A 4
0x0c7d48…0c7edc Dummy {f00=0x0152, f01=0x0190, f02=» c | BE]RADRBFOBKOMTBOMRTXTTYPVALDATOKODEP]L-RATETNR A-ADRANTALFORF.LINIEOPKR.[NDR- POST. PRIMO SIDE ADM-NR BRILLE REF-NRADM-KODBET-ARTDEBITORRTE/GEBHOVEDBOGLBNR ARTLEVKONTOLINIE NROPK-KODERET.IND.LEVERAND RATE-[NDRRENTEFRIT NORMALPOSTFEJL FORMATYDE
0x0c7edc…0c8070 Dummy {f00=0x0152, f01=0x0190, f02=»ZZVZZ9,99+ R L B RATE Z C ' y ' B H 1 / ` . % % - * w * , ) w ) + ( w ( ) & & ( w ' ` $ @ w O P $ $ 0 # t #
0x0c8070…0c8204 Dummy {f00=0x0152, f01=0x0190, f02=» @ w w w ` ` O P # 1 z % & w & & ' w ' ! x ! w K a FAST SALDOOVERF
0x0c8204…0c8398 Dummy {f00=0x0152, f01=0x0190, f02=» ! ! < S O T X POST T/GL. ]R a ` O a ` P P Q O R O a < U P V O
0x0c8398…0c852c Dummy {f00=0x0152, f01=0x0190, f02=» ` a V P T L u N P O P V Y H M/P-NR a ` < ` <
0x0c852c…0c86c0 Dummy {f00=0x0152, f01=0x0190, f02=» 2 4 GL. SALDO CHECK p ` [ < ` <
0x0c86c0…0c8854 (1, 253) Dummy {f00=0x0153, f01=0x0190, f02=» ? ' SD-INCASSO ` M F]R RE] REM OPK BFO $ ( , 0 5 : ? D I
0x0c8854…0c89e8 Dummy {f00=0x0153, f01=0x0190, f02=» ( % . 9 D O Z e p { + 6 A L W b m x 2 K " f # & ) , 4 & 4 Z
0x0c89e8…0c8b7c Dummy {f00=0x0153, f01=0x0190, f02=» B I ? A < A( A A 1 2 _ @) $ A)@ 1 6 _ _0H) ! t jX xX _HfX ( Q8j (X ( L" xX b Q ( xX Q x _| xX _ WL ( xW T jX W xX T XW _v tX XL ( xX L uj X j X L6
0x0c8b7c…0c8d10 Dummy {f00=0x0153, f01=0x0190, f02=»xX T XL ( xX T b _R@(? H q(A m0 1 " QWH+ 0 _ A+ ( XL xX T8 u u Lj X j X j X L 0 1 (0 @+_ @+ 4 " !U t ,U _ Q( _ WZ H+ 0 _ A+ ( XL xX TF uj X " % _1 uj
0x0c8d10…0c8ea4 Dummy {f00=0x0153, f01=0x0190, f02=» " U t_ ^% _ 4 ( XL xX hX L P " Q W# hX L T P ( XL xX Q 4 @ 0# ? _ 0$ 0%? H '0 >2 @$A 0 A 1 6 _: dv L@)6 l _ 52 # #] u5 q_ A)WO@)
0x0c8ea4…0c9038 Dummy {f00=0x0153, f01=0x0190, f02=» A&A 0 1 6 _ dv K) r t " @( 0 A 0$ 1 6 _2 { :_/0$ < 1@ A " @ -a t a {0$ X 0$ ? 0$ a 0 A 1 6 _ ? v 3 < < C Eu ( vM C B x! x 2 b M I
0x0c9038…0c91cc Dummy {f00=0x0153, f01=0x0190, f02=» h M P 2b M a _C! t 0&? 0%_S vRK E P I WA$E =I # t { E @ ,Eh A @ W + t u { E K W< A 1 6 _ _ C @'_ A'_ @'W I A$ ? a I" _ 0&? 0%_ EuA" " @ 0&? _ $ A 0 t+ t A A _
0x0c91cc…0c9360 Dummy {f00=0x0153, f01=0x0190, f02=» !5 T4 !6 T. !7 T( !8 T" !9 T !: T !; T !< T != T !D 4 ) u 4 hE u5 TF u6 T> u7 T6 u8 T. u9 T& u: T u; T u< T u= T uD 4 " @ 0$ t _ 0$ 4 . u } @ s ! * ~ 8
0x0c9360…0c94f4 (1, 254) Dummy {f00=0x0154, f01=0x0190, f02=»BFODATAS[TOPSTART DISCFEJL KOMMUNE NRVOLUME NR VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08 BBZ9ZZZZZZZZ9 1N t U ? ? OK ? N j D a T 3x Z Fz O f %g
0x0c94f4…0c9688 Dummy {f00=0x0154, f01=0x0190, f02=» { { v v v v v v v # - 7 J a0 0 0 " / F ] - w . f Q ^ } @ s ! * ~ 8
0x0c9688…0c981c Dummy {f00=0x0154, f01=0x0190, f02=» * f " &I , 8 6H I !) t # # 4! 0! , I LW ! 9 W uW u uS W T2 H H A 6 @ A @ @ 4 u 4 % v H A _AH H I W
0x0c981c…0c99b0 Dummy {f00=0x0154, f01=0x0190, f02=» I I" # W 4 t i e 4 2 ) t W ) u W ) v C 8 # < R : 8 8 8 # #u? I 8 ? ! < < ? C 8 % < % %u? 6 W T W T P
0x0c99b0…0c9b44 Dummy {f00=0x0154, f01=0x0190, f02=») t ! "()*) `) %u ! ( V! L) # LWE ) @ # # 6) ) $ @ ! A _ ! ) # W 4 4 ! ,! ! ! ! ! ! ! 4 0 P W W |H | +*4 + 3 3@ @ 4 0 A(@
0x0c9b44…0c9cd8 Dummy {f00=0x0154, f01=0x0190, f02=» >2 0 @(A -? % >3a> h> L I T h> T 1 4 ) 4 C Eu ' # 6 ?5 _ - A 1 6 _8 < -_A - ! P _N ' 4 - " ^W - " hW - 4 - ' ( # vM T-! x) $ LbM ( >3a>
0x0c9cd8…0c9e6c Dummy {f00=0x0154, f01=0x0190, f02=»M ( ( m> _i C0 1 TF $TB_ T5 $T1 >3m> & T I h> T 4 4 >3 M m> " T 4 >3 M m> T I 4 4 I = 0' Z X 0( > T 0' > P % ) 4 > 0 ( 4 h> T
0x0c9e6c…0ca000 Dummy {f00=0x0154, f01=0x0190, f02=»1 W bM > 1 <W W.4 % % " h> *L T M2 bM > 1 M2% bM > 1 4 Iv H{ I! t H! t 0 0) I HP ) 4 4 t0* Q P & I 0 @ 4 % ! x&! "! ) H @ A A @ )W 4 0!
0x0ca000…0ca194 (1, 255) Dummy {f00=0x0154, f01=0x0190, f02=» 4 0- P Q & I 0 4 I 0. Q P & 4 @'A ' TuI ' ThW 0 0 # 9 # T ! x I T _$ ( X+W* A'I ) _; L_ I' I 0 W 0 @ 4 I 0 W 0 @'@ 4 A ' TlI ' T_W 0 *
0x0ca194…0ca328 Dummy {f00=0x0154, f01=0x0190, f02=»% t + 0 ( # M < x8 Lb M!! _/ 2b M < 2b M 2b M ~8 R @ ? O O {8 _ BC%< hM B hM T b M 2b M P Y P ( ! K"e , / 5h (
0x0ca328…0ca4bc Dummy {f00=0x0154, f01=0x0190, f02=»M L!B( 2h ' dM u? I" ? I" ? @ @ 4 A @ 4 @ A @ 4 c ' E Y W h u - & B ; n m 8 O ~ } I <
0x0ca4bc…0ca650 Dummy {f00=0x0154, f01=0x0190, f02=»GBRART 5C&01' DFH0002CSSF ASSIGN DFH3504DISCFEJL TRANSMIT TERMINATE DATATRANSMISSION ! & 0 P V ` cTTT9ZZZZZ9AAAAAAAAAAAAAAAAAAA9 M 1 M M ? ANTAL RECORDS:u CSSN PS=& ,NAME=v BRUGERNAVN v KENDEORD
0x0ca650…0ca7e4 Dummy {f00=0x0154, f01=0x0190, f02=» A H Q Z d0 u0 v0 w0 y0 {0 }0 0 0 0 0 0 & : ) T B W h u - & B ; n m 8 O ~ } I <
0x0ca7e4…0ca978 Dummy {f00=0x0154, f01=0x0190, f02=» 2 D $ V & h ) x , 1 4 $ 7 = 51 ? J F " D R LT R
0x0ca978…0cab0c Dummy {f00=0x0154, f01=0x0190, f02=» S U X . Z @ ] P _ b e0 r y | ~ J F " D @ L?R L?R@ @ L L?R L<R L?R L $ " t t ?R L?R
0x0cab0c…0caca0 Dummy {f00=0x0154, f01=0x0190, f02=» " D % L " r r ?R L?R z L L b b L L 0 N 0 ` r 0 < J F " D L$ L" W L L?R r # L r r
0x0caca0…0cae34 (1, 256) Opaque[0x194]
0x0cae34…0cafc8 # DirEnt {nam=»C976 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0568, f03=0x0000}
0x0cae34…0cafc8 IdxSect {
0x0cae34…0cafc8 f00 = 0x002b // 0xcae34 @0x0
0x0cae34…0cafc8 f01 = 0x0002 // 0xcae36 @0x2
0x0cae34…0cafc8 gno = [ // 0xcae38 @0x4
0x0cae34…0cafc8 [0x00]: C0x002b.0x1.0
0x0cae34…0cafc8 ]
0x0cae34…0cafc8 }
0x0cafc8…0cb15c Dummy {f00=0x002b, f01=0x0162, f02=» PT; P01; PTID=TC; PTCL=TC; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P01; v PSCL=S04; PT; P01; PTID=D0; PTCL=D0; PLEV=60; P00; P00; PC; P00; P01
0x0cb15c…0cb2f0 Dummy {f00=0x002b, f01=0x2008, f02=» P01; PTID=TC; PTCL=TC; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P01; v PSCL=S04; PT; P01; PTID=D0; PTCL=D0; PLEV=60; P00; P00; PC; P00; P01
0x0cb2f0…0cb484 Dummy {f00=0x002b, f01=0x2008, f02=» EAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 0 HEND d * HMES ILLEGAL PARAMETER COMBINATION !!! p * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+COUT,C+
0x0cb484…0cb618 Dummy {f00=0x002b, f01=0x0190, f02=»5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT ~ 6 P MUL GSWBCD3,WEIGTH1(GSWBIN2) MULTIPLY WITH WEIGTH . ( P ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM h * P SUB GSWBIN2,=W'1' ADJUST WEIGHT INDEX , P SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM 0 P CBNE GSWBIN1,=W'0',CH
0x0cb618…0cb7ac Dummy {f00=0x002b, f01=0x0190, f02=» l . P SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 : P CBE GSWBCD4,=D'0',CHK1RET IF REMAINDER 0, THEN RETURN : P* x PCHK1ER P MOVE SPBINW4,=W'6' ( P MOVE SPBINW3,CBIN3 SET ERROR VALUE P* PCHK1RET P RET P PEND
0x0cb7ac…0cb940 Dummy {f00=0x002b, f01=0x0190, f02=»HECKS 0<DAY<32 AND 0<MONTH<13 * P* DATE IS IN THE FORM DDMMYY ( $ P* INPUT FIELD: SPINPUT V P* ~ 8 P* IF ERROR, ERRORCODE 7 IS MOVED TO SPBINW4 P* P******************** P * P MOVE SPBINW3,CBIN1 IN
0x0cb940…0cbad4 (1, 257) Opaque[0x194]
0x0cbad4…0cbc68 # DirEnt {nam=»KM461 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x0cbad4…0cbc68 IdxSect {
0x0cbad4…0cbc68 f00 = 0x0065 // 0xcbad4 @0x0
0x0cbad4…0cbc68 f01 = 0x0004 // 0xcbad6 @0x2
0x0cbad4…0cbc68 gno = [ // 0xcbad8 @0x4
0x0cbad4…0cbc68 [0x00]: C0x0065.0x0.0
0x0cbad4…0cbc68 [0x01]: C0x0065.0x1.0
0x0cbad4…0cbc68 ]
0x0cbad4…0cbc68 }
0x0cbc68…0cbdfc Dummy {f00=0x0065, f01=0x0190, f02=» PPRT KM461 PPRT C461 PMES ODENSE KOMMUNE - UK01 & , PMES SEPARATE TASK FOR BATCH TRANSMISSION H PMES 840203 EV x PSCR PLED KMD08,/S P!!CH $$DCTASK$$DCTSK$$ P!!DL 121,169 KBA-VDU,GTP P!!DL 182,207 TB9 $ P!!RE
0x0cbdfc…0cbf90 Dummy {f00=0x0065, f01=0x018e, f02=»!!DL 373,374 BKO 0 PCTTXT07 STRG 381'000000000000000000376 BKO C P 51ASKAT3 C L P 58A/S 2 C b P 52BSKAT3 C x P 60BDFLG0 C P 68B B N1 C P 69B B %1 C P 64BRNFO0 C P 62DAGPE2 C P 56EJDSK0
0x0cbf90…0cc124 Dummy {f00=0x0065, f01=0x0190, f02=» P 61S[RIN0 C P 21FORBR0 C P 22FORBR0 C 4 P 65BOL]N1 C J P 67BOSIK1 C ` P 46FERIE0 C v P 35VARME0 C P 53PLIGT0 C P 55SOCYD0 C P 45UDBB 1 C P 47[FBDR0 C P 48UD[FB0 C
0x0cc124…0cc2b8 Dummy {f00=0x0065, f01=0x0190, f02=» P 40DAGIN0 C P 23FORBR0 C P 24FORBR0 C 0 P 33DEPOS0 C F P 34DEPUD0 C P 41KNBEV1 C r P 20INKAS1 C P 42BISTH1 C P 43SKB*D1 C P 44SPPGA1 C P 66NEGIN0' ( P!!RE 412,$$1400$$100
0x0cc2b8…0cc44c Dummy {f00=0x0065, f01=0x018e, f02=»DL 754 ( P MOVE GSWBIN1,=W'381' LENGTH CTTXT07 P!!DL 765,800 START 3270 : P!!EN Z PNOD C f PTRA /S,NL t PINC DIV461 PNOD R PINC SCREEN PINC RGSUB3 PNOD R PINC KMDIO PINC DKSUBS PNOD D
0x0cc44c…0cc5e0 Dummy {f00=0x0065, f01=0x016c, f02=» PINC RGFRMT PINC ADM6BC PINC ADM45 ( PINC LOG : PNOD D J PINC RGADM X PNOD D j PINC RGKLAR x PNOD D PINC KTOPR PINC RGSTRT PINC ADM5 PTLK U,4K PINC DCTSK P$INCGEN PLKE M
0x0cc5e0…0cc774 (1, 258) Dummy {f00=0x0065, f01=0x2008, f02=»
0x0cc774…0cc908 Dummy {f00=0x0065, f01=0x0190, f02=» i Pb 9 _ j $0T [ j $0T Z : R$ P $ 1T Y TdW 5 _& : j $0TH $ R W R # P W ) V E j&$0T Wp W W lz j [ j& : Z !0 , !0P2 0 > 4
0x0cc908…0cca9c Dummy {f00=0x0065, f01=0x0190, f02=»9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : i Y #03 T $_X i _^ W lz jB p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE ; j6 ( L
0x0cca9c…0ccc30 Dummy {f00=0x0065, f01=0x0190, f02=» jJ V " oR v oL Aj: : j Wr j 2 ZD j oL oR & oL j Q jB Aj:W* j jT V D ! )0 1 6 V 9 oL Aj: k WV j6 ( L < ( L : Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W<
0x0ccc30…0ccdc4 Dummy {f00=0x0065, f01=0x0190, f02=»oL l R 4 oJ 4 Aj: jd U 4 - _ k j @j: p WV ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTED LENGTH STACK UNDERFLOW ARITHM OVERFLOW STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE
0x0ccdc4…0ccf58 Dummy {f00=0x0065, f01=0x0190, f02=»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 MANY KIA/NKIA STACK LEVELS DI
0x0ccf58…0cd0ec Dummy {f00=0x0065, f01=0x0190, f02=» lz @o P ( L _" @r$P @r&Pj Pf q V $ $T$ D BR V T D P T D @PL E @W . @q P$ pZ q $ $P BT , D E @ : @o P Ao H Ar$W TW V Ao r* r( V Ar, TB( s ( Ao r( @r, V P ( R W o
0x0cd0ec…0cd280 Dummy {f00=0x0065, f01=0x0190, f02=» LEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DI
0x0cd280…0cd414 (1, 259) Opaque[0x194]
0x0cd414…0cd5a8 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x0cd414…0cd5a8 IdxSect {
0x0cd414…0cd5a8 f00 = 0x0009 // 0xcd414 @0x0
0x0cd414…0cd5a8 f01 = 0x0002 // 0xcd416 @0x2
0x0cd414…0cd5a8 gno = [ // 0xcd418 @0x4
0x0cd414…0cd5a8 [0x00]: C0x0009.0x2.0
0x0cd414…0cd5a8 ]
0x0cd414…0cd5a8 }
0x0cd5a8…0cd73c Dummy {f00=0x0009, f01=0x0070, f02=» SCR PASG 2,LP0F TRA DIV461 " KPF /O 4 SCR B ASG 2,NO N $KMDALL 461=Y ^
0x0cd73c…0cd8d0 Dummy {f00=0x0009, f01=0x2008, f02=» PASG 2,LP0F TRA DIV461 " KPF /O 4 SCR B ASG 2,NO N $KMDALL 461=Y ^
0x0cd8d0…0cda64 Dummy {f00=0x0009, f01=0x0190, f02=» P UWB TB2 P DWB TD2(TB2) P* * PFD01 DSET FC=F8 VOL 999001 4 PFD02 DSET FC=F9 VOL 999002 V & PKVOUCH DSET FC=31,DEV=TV,BUFL=100 x 2 PKJTAPE DSET FC=30,DEV=TJ,BUFL=70,BUFDS=KVOUCH 2 PKTALLY DSET FC=32,DEV=TR,BUFL=30,BUFDS=KVOUCH
0x0cda64…0cdbf8 Dummy {f00=0x0009, f01=0x018e, f02=»T r & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 4 PDSSOPI DSET FC=10 PDSSOPO DSET FC=11 v PDCOMM DSET FC=61 * PFD03 DSET FC=FA SECOND REGSET (999004) PKCASS DSET FC=12 PDK05 DSET FC=C5 PDK
0x0cdbf8…0cdd8c Dummy {f00=0x0009, f01=0x0190, f02=» p P* P* P* P* & P* 0 P START REGGO : P STACK 160 N P ` L P************************************************************************ h P* F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE.
0x0cdd8c…0cdf20 Dummy {f00=0x0009, f01=0x018e, f02=»************************************************************** P F P N P* V P* ` P* j P* DATA DIVISION t P* P* P* P* KB/VDU TERMINAL P* P TERM KA P* P CWB CB9 P TWB TB9
0x0cdf20…0ce0b4 (1, 260) Opaque[0x194]
0x0ce0b4…0ce248 # DirEnt {nam=»RGSTRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0138, f03=0x0000}
0x0ce0b4…0ce248 IdxSect {
0x0ce0b4…0ce248 f00 = 0x0009 // 0xce0b4 @0x0
0x0ce0b4…0ce248 f01 = 0x000e // 0xce0b6 @0x2
0x0ce0b4…0ce248 gno = [ // 0xce0b8 @0x4
0x0ce0b4…0ce248 [0x00]: C0x0009.0x3.0
0x0ce0b4…0ce248 [0x01]: C0x001f.0x2.0
0x0ce0b4…0ce248 [0x02]: C0x0021.0x3.0
0x0ce0b4…0ce248 [0x03]: C0x0022.0x0.0
0x0ce0b4…0ce248 [0x04]: C0x0022.0x1.0
0x0ce0b4…0ce248 [0x05]: C0x0028.0x2.0
0x0ce0b4…0ce248 [0x06]: C0x0028.0x3.0
0x0ce0b4…0ce248 ]
0x0ce0b4…0ce248 }
0x0ce248…0ce3dc Dummy {f00=0x0009, f01=0x018e, f02=» P IDENT RGSTRT 840130 EV P DDUM KMD08 $ P PDIV 8 P ENTRY T1GO F P ENTRY TCONFW Z P ENTRY TCONFR p P ENTRY CONFRD P ENTRY CONFWR P ENTRY CNFWRT P ENTRY CONRDX P EXT ASGVOL P EXT ASGFIL P E
0x0ce3dc…0ce570 Dummy {f00=0x0009, f01=0x0190, f02=» P EXT LAMPOF P EXT SOPRD P EXT SETMK * P EXT RSTORE < P EXT INITRG P P EXT CLSVOL d P EXT UPDAKK x P EXT CLEJ P EXT CLEDB P EXT CLBEH P EXT ZERO P EXT ADM P EXT RGA120 P EXT RGADM
0x0ce570…0ce704 Dummy {f00=0x0009, f01=0x0190, f02=». JOURNAL | P INCLUDE EQUATE P EJECT * PT1GO 8 2 P MOVE SPKEY,CBIN2 INDICATE KEYSWITCH IN POS 2 D P ADD CMAXTASK,CBIN1 z P GETID GSWSTR2 P MOVE TTASKNR,CBIN0 PT1005 P ADD TTASKNR,CBIN1 & P CBE GSWSTR2,CTID(TTASKN
0x0ce704…0ce898 Dummy {f00=0x0009, f01=0x0190, f02=»ERF SPLIN8,CBIN9,CBIN2 'OPSTART' P PAUSE ( & P B T1400 BRANCH TO NON-MASTER CODE 6 PT1010 ` P MOVE CTRANBUF,=X'00' n P PERF CLSVOL,CBIN1 P PERF CLSVOL,CBIN2 P PERF CLSVOL,CBIN3 P PERF CLSVOL,CBIN4 P CLEAR CSKIFTFL
0x0ce898…0cea2c Dummy {f00=0x0009, f01=0x0190, f02=» MOVE GSWBIN2,SPBINW2 2 P IB SPBINW2,T1011,T1011,T1012,T1012,T1011, C P T1012,T1011,T1011,T1012 T PT1011 v P B T1010 PT1012 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME P MOVE GSWBIN1,CBIN1 4 P INSRT CFNAME(GSWBIN1)
0x0cea2c…0cebc0 Dummy {f00=0x0009, f01=0x0190, f02=»T1013,T1025,T1014,T1013, C ~ P T1013,T1013,T1013,T1018 $ PT1013 F P B T1010 T PT1014 KRE KEY d P MOVE CCONBUF0,=X'00' | P MOVE GSWBIN2,CBIN0 PT10140 P ADD GSWBIN2,CBIN1 $ P IF FINISH: TO VERY COLD START P C
0x0cebc0…0ced54 (1, 261) Dummy {f00=0x001f, f01=0x018e, f02=»ADM KEY * P* ONLY CHANGE VOLUME, DATASET P SET CSWFLAG > P B T1025 R P* b PT1020 KVIT KEY l P* P* RESTORE DATASETS P* P* P CLEAR CSWFLAG PRST000 $ P PERF LAMPOF,=W'2047' LAMPS OFF
0x0ced54…0ceee8 Dummy {f00=0x001f, f01=0x0190, f02=» P PERF SOPRD P IB GSWBIN2, C , P RSOP10,RSOP09,RSOP08,RSOP07,RSOP06, C 0 ( P RSOP05,RSOP04,RSOP03,RSOP02,RSOP01 ` PRSOP02 PRSOP03 PRSOP05 PRSOP06 PRSOP07 PRSOP09 PRSOP10 P B RST010 OTHER LAMPS
0x0ceee8…0cf07c Dummy {f00=0x001f, f01=0x0190, f02=»,DK01,=D'1',=W'32',CCONBUF0,=W'199' P BNOK RST005 NOT OK , P PERF CONFRD H P B RST000 OK P* p PRSOP04 RESTORE FD999004 z $ P PERF LAMPOF,=W'2047' LAMPS OFF P PERF LAMPON,=W'128' LAMP 4 2 P PERF RSTORE,DK04,=D'4',=W'30',C
0x0cf07c…0cf210 Dummy {f00=0x001f, f01=0x0190, f02=»STORING ~ $ P PERF LAMPOF,=W'2047' LAMPS OFF * P PERF ASGVOL,CBIN0 ASSIGN KONF DATASET 8 P BNOK T1010 f P B T1028 z P* P* P* P* P* PT1025 SLUT KEY P PERF CONFRD READ CONFDATA P BNOK T1010
0x0cf210…0cf3a4 Dummy {f00=0x001f, f01=0x0190, f02=»ASVOL ~ P TBT CSWFLAG,T1030 , P CBG CKMDNR,=D'0',T1050 VERY FIRST START ( P* X P* b P* l PT1030 v P MOVE GSWBIN1,CBIN1 PT1031 & P DLETE CFNAME(GSWBIN1),CBIN0,CBIN2 P ADD GSWBIN1,CBIN1 P CBL GSWBIN1,CBIN9,T10
0x0cf3a4…0cf538 Dummy {f00=0x001f, f01=0x0190, f02=» " P IB SPBINW2,T1034,T1034,T1032 PT1034 * P B T1033 8 PT1032 H 0 P MOVE GTTEXT,=C'FD' INSERT PREFIX IN DSNAME V P MOVE GSWBIN1,CBIN1 PT1035 4 P INSRT CFNAME(GSWBIN1),CBIN0,CBIN2,GTTEXT,CBIN0 P ADD GSWBIN1,CBIN1 P C
0x0cf538…0cf6cc Dummy {f00=0x001f, f01=0x0190, f02=»N0 t P MOVE GSWBIN5,CBIN0 PT1040 & P ADD GSWBIN5,CBIN1 4 P CBG GSWBIN5,CMAXTASK,T1045 N P MOVE GSWBCD5,GSWBIN5 r P MOVE GSWBIN1,GSWBIN5 P DSC0 KEYB,SKIB P SET SPPROMPT P USE TB2,GSWBIN5 P ATTFMT CSFRM03
0x0cf6cc…0cf860 Dummy {f00=0x001f, f01=0x0190, f02=»UL TTSTLBNR,=D'-1' SIMULATE CLOSE P PERF TCONFW,GSWBIN5 * P BNOK T1037 F P B T1040 Z PT1045 j P USE TB2,TTASKNR x " P PERF CONFWR REWRITE CONFDATA P BNOK T1010 P* " P* READ TERMINAL CONF PT1050 P
0x0cf860…0cf9f4 (1, 262) Dummy {f00=0x0021, f01=0x0190, f02=»N5,CMAXTASK,T1060 $ P CBNL CMASK(GSWBIN5),=D'0',T1055 2 P MUL CMASK(GSWBIN5),=D'-1' SET POSITIVE (OPEN) B PT1055 x P GET TERMINAL BLOCK P USE TB2,GSWBIN5 , P PERF TCONFR,GSWBIN5 READ TERMINAL CONF P BOK T1052 P USE TB2,T
0x0cf9f4…0cfb88 Dummy {f00=0x0021, f01=0x0190, f02=»WN USER BLOCK z 4 P MOVE GTMSK,CMASK(CBIN1) SET MACNINE NO, MASTER P* N P* CHECK VOLUME NO X P* z PT1062 P PERF CLSVOL,CBIN2 P PERF CLSVOL,CBIN3 P PERF CLSVOL,CBIN4 P DSC0 KEYB,SKIB P SET SPPROMPT
0x0cfb88…0cfd1c Dummy {f00=0x0021, f01=0x0190, f02=» B T1010 PT1070 SLUT KEY, OK P* , P* 6 " P* ASSIGN OTHER FILES @ P* f P* p P MOVE GTWBCD1,=D'2' z P MOVE GTTEXT,=C' ' P PERF ASGVOL,CBIN1 P BNOK T1010 P PERF ASGFIL,CBIN2 P BNOK T1010
0x0cfd1c…0cfeb0 Dummy {f00=0x0021, f01=0x0190, f02=»T1200 P MOVE CRECNR,CBIN1 P MOVE CRECBCD,=D'1' ( P MOVE GSWBIN1,=W'128' D 2 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR b P BNOK T1062 P MOVE GSWBCD3,CVOLNO $ P CBE GTWBCD1,=D'4',T1210 NO DATA 4 P PERF WRITID,CPCKBUF,CBI
0x0cfeb0…0d0044 Dummy {f00=0x0021, f01=0x018e, f02=»BIN1,CBIN5,CPCKBUF,GSWBIN2 ~ 4 P MOVE GSWBCD3,GSWSTR20 GET VOLUME NO FROM START " ( P TBT CCONVERT,T1219 CONVERT-VERSION Z P CBE CVOLNO,GSWBCD3,T1230 PT1210 NOT EQUAL NOS. P OR NO DATA ( P TBT CCONVERT,T1219 CONVERT-VERSION P
0x0d0044…0d01d8 Dummy {f00=0x0021, f01=0x0190, f02=» $ P T1212,T1212,T1212,T1212,T1225 PT1212 OTHER KEYS , P B T1210 F PT1215 MAK V P B T1062 j P* z PT1219 CONVERT-VERSION P NO OPSTART P DIRECTLY TO ADM P B T1560 P* PT1220 SLUT, OK $ P C
0x0d01d8…0d036c Dummy {f00=0x0021, f01=0x0190, f02=» PERF STRTWR NEW START RECORD P BNOK T1010 & $ P PERF WRITID,CPCKBUF,CBIN1,CBIN1 : P B T1240 TO OPSTART b P* ~ P* PT1230 EQUAL VOL NOS. P DSC0 KEYB,SKIB P SET SPPROMPT P ATTFMT INIT3FMT P PERF SPCLRA "
0x0d036c…0d0500 Dummy {f00=0x0021, f01=0x0190, f02=» OPSTART P* P* " PT1240 , P MOVE CRECBCD,=D'0' : P MOVE CRECNR,CBIN1 V P CLEAR CERRORFL p PT1242 P MOVE GTWBCD2,CRECNR P PERF SPLIN8,CBIN10,CBIN3 P ADD CRECNR,CBIN1 * P MOVE GSWBIN1,=W'128' READ
0x0d0500…0d0694 (1, 263) Dummy {f00=0x0022, f01=0x0190, f02=»ERRORFL,T1300 P CMP GTWBCD1,=D'4' $ P BE T1500 NO DATA, CONTINUE REG. 0 P MOVE GSWSTR20,=C'SLUTD' X P MOVE GSWBIN5,CBIN0 x 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 P BE T1350 SLUTD P MOVE GSWSTR20,=X'00' , P COP
0x0d0694…0d0828 Dummy {f00=0x0022, f01=0x0190, f02=» GSWBIN6,CBIN1 & P CBE GSWBCD5,CMASK(GSWBIN6),T1247 P CBL GSWBIN6,CBIN12,T1245 @ P B T1242 b PT1247 r 4 P CBE GSWBCD5,=D'0',T1250 CHECK WRONG MACHINE NO. & P CBE GSWBIN6,CBIN1,T1250 IF MASTER 0 P RSTRT CTID(GSWBIN6) NO, START RELEVAN
0x0d0828…0d09bc Dummy {f00=0x0022, f01=0x0190, f02=»BCD,GSWBCD3 GET LOG. REC. NO. P BOK T1251 TR 1-10 & & P TBT GTSWFLAG,T1251 TEST FOR TR 11 @ P B T1290 TR >=12 j PT1251 0 P CBL CRECBCD,TTRECOPN,T1290 BEFORE REWRITE? P TBT GTSWFLAG,T1270 IF TR 11 $ P CBG TTSTLBNR,=D'0',T1260 OPEN?
0x0d09bc…0d0b50 Dummy {f00=0x0022, f01=0x0190, f02=»SKNR P PERF CONFWR PT1260 P CLEAR GTTESTFL . P CBNL CRECBCD,CCONFREC,T1262 F & P SET GTTESTFL BEFORE BEH., REWRITE j PT1262 P PERF UPDAKK P CLEAR GTTESTFL P B T1290 P* P* P* PT1270
0x0d0b50…0d0ce4 Dummy {f00=0x0022, f01=0x0190, f02=»DD TTSTLBNR,=D'1' P MUL TTSTLBNR,=D'-1' P MOVE TTRECOPN,CRECBCD 6 P PERF TCONFW,TTASKNR T P PERF CONFWR p P PERF ZERO PT1290 P TBT GTMASTFL,T1242 MASTER P B T1450 NON-MASTER P* P* P* P*
0x0d0ce4…0d0e78 Dummy {f00=0x0022, f01=0x018e, f02=»IT4FMT P PERF SPCLRA 2 P IB SPBINW2,T1310,T1310,T1315,T1320,T1310, C " P T1310,T1310,T1310,T1330 X P B T1300 z PT1310 MAK P B T1300 P* PT1315 SLUT, CONTINUE P SUB CRECNR,CBIN1 READ AGAIN P CLEAR CERRORF
0x0d0e78…0d100c Dummy {f00=0x0022, f01=0x018e, f02=» z P CLEAR CERRORFL P B T1350 PT1350 SLUTD 0 P* F P* P P* Z P* DISKETTE SKIFT d P* P* P TBT C5MDISK,T1500 P SET CSKIFTFL P PERF SKIFT P B T1200 P EJECT PT1400
0x0d100c…0d11a0 Dummy {f00=0x0022, f01=0x0190, f02=» z P MOVE GTMSK,CMASK(TTASKNR) PT1440 * , P TBT CWFLAG,T1530 IF COLDSTART FINISHED 8 P B T1250 h PT1450 x & P RSTRT CTID(CBIN1) RESTART MASTER P PAUSE P B T1440 P* P* P* PT1500 P ADD CRECBCD,=
0x0d11a0…0d1334 (1, 264) Dummy {f00=0x0022, f01=0x0190, f02=» PERF SPLIN8,CBIN9,CBIN3 P RSTRT CTID(GSWBIN6) P PAUSE < P B T1510 J PT1530 Z P* h ( P* SET POINTERS IN EL. JOURNAL FILES r P PERF ELOPST & P RSTRT CTID(CBIN1) RESTART MASTER P PAUSE P B T1550 START P P
0x0d1334…0d14c8 Dummy {f00=0x0022, f01=0x0190, f02=»BIN6,CBIN1 P CBG GSWBIN6,CMAXTASK,T1550 P RSTRT CTID(GSWBIN6) 6 P B T1545 R P b P j P* r P* | P PT1550 START POINT P P* P CBL TTASKNR,CBIN6,T1555 P SET TREMFLG PT1555 P DSC0 KEYB
0x0d14c8…0d165c Dummy {f00=0x0022, f01=0x018e, f02=» P MOVE GSWSTR9,=C'SUBTOTAL ' P PERF CLEJ , P PERF CLEDB > P PERF CLBEH R P MOVE GSWSTR9,=C' ' f P CLEAR GTSPGFLG P SET GTKASSE P MOVE GSWBIN1,CBIN14 P PERF ADM,GSWBIN1 P B RGA120 PT1560 . P MUL
0x0d165c…0d17f0 Dummy {f00=0x0022, f01=0x0190, f02=» P* ! < P* TCONFR - READING OF CONFIGURATION DEPENDENT DATA ! P* ! N . P* CALL: PERF TCONFR,<CONFIGURATION NBR> ! X P* ! ( P* THE DATA IS READ RANDOM FROM DK01 ! P* ! , P* ALTERED FIELDS: GSWBIN6 - <CONF> + 12 ! $ P*
0x0d17f0…0d1984 Dummy {f00=0x0022, f01=0x0190, f02=»**** ! ^ PTCONFR PROC TCONFRNO " P MOVE GSWBIN6,TCONFRNO " ( P ADD GSWBIN6,CBIN12 " F P MOVE GSWBIN1,=W'199' " b 4 P PERF RAREAD,DK01,=D'1',TCONBUF,GSWBIN1,GSWBIN6 " P BNOK TCONRET1 " $ P CBNL TTSTLBNR,=D'10001',TCONFR1 " $ P CBL TTSTLBNR,=D'-
0x0d1984…0d1b18 Dummy {f00=0x0022, f01=0x0190, f02=»NR,=D'-10001' " PTCONFR1 # P CMP CBIN0,CBIN0 # & P RET # > PTCONRET1 # J P CMP CBIN0,CBIN1 SET CR # Z P RET # z P PEND # P* # P EJECT # 8 P*************************************************** # P* # 6 P* TCONFW - WRITE C
0x0d1b18…0d1cac Dummy {f00=0x0022, f01=0x0190, f02=» IS WRITTEN TO DK01 # v P* ALTERED FIELDS: $ " P* GSWBIN6 - <CONF> + 12 $ 6 P* $ 8 P*************************************************** $ f PTCONFW PROC TCONFWNO $ P MOVE GSWBIN6,TCONFWNO $ P ADD GSWBIN6,CBIN12 $ 0 P CBE GTTESTMK,=C
0x0d1cac…0d1e40 Dummy {f00=0x0022, f01=0x0190, f02=»TCONFW2 $ | P MOVE TTSTLBNR,=D'10001' % P MOVE TTLBNR,=D'10000' % 0 P B TCONFW1 % N PTCONFW2 % ` P MOVE TTSTLBNR,=D'-10001' % p P MOVE TTLBNR,=D'-10000' % PTCONFW1 % , P PERF RAWRIT,DK01,=D'1',TCONBUF,GSWBIN6 % PTCFWRET % P RET %
0x0d1e40…0d1fd4 (1, 265) Dummy {f00=0x0028, f01=0x0190, f02=» COMMON CONFDATA % t P* & > P********************************************************* & " PCONFRD PROC & d P PERF CONRDX,CCONBUF0,CBIN1 & x P BNOK CONFRET & P PERF CONRDX,CCONBUF1,CBIN2 & P BNOK CONFRET & P PERF CONRDX,CCONBUF2,CBIN3
0x0d1fd4…0d2168 Dummy {f00=0x0028, f01=0x0190, f02=»T & P PERF CONRDX,CCONBUF5,CBIN6 ' P BNOK CONFRET ' . P PERF CONRDX,CCONBUF6,CBIN7 ' D P BNOK CONFRET ' h P PERF CONRDX,CCONBUF7,CBIN8 ' ~ P BNOK CONFRET ' P PERF CONRDX,CCONBUF8,CBIN9 ' P BNOK CONFRET ' P PERF CONRDX,CCONBUF9,
0x0d2168…0d22fc Dummy {f00=0x0028, f01=0x0190, f02=» 2 P PERF RAREAD,DK01,=D'1',CBUFRD,GSWBIN1,CBUFNO ( P RET ( : P PEND ( F P EJECT ( T > P********************************************************** ( b P* ( ( P* CONFWR - WRITING OF CONFDATA ( P* ( > P************************************
0x0d22fc…0d2490 Dummy {f00=0x0028, f01=0x0190, f02=» ( * P PERF RAWRIT,DK01,=D'1',CCONBUF1,CBIN2 ) P BNOK WRET ) 6 * P PERF RAWRIT,DK01,=D'1',CCONBUF2,CBIN3 ) H P BNOK WRET ) v * P PERF RAWRIT,DK01,=D'1',CCONBUF3,CBIN4 ) P BNOK WRET ) * P PERF RAWRIT,DK01,=D'1',CCONBUF4,CBIN5 ) P BNOK WRET ) * P
0x0d2490…0d2624 Dummy {f00=0x0028, f01=0x0190, f02=»WRIT,DK01,=D'1',CCONBUF7,CBIN8 ) P BNOK WRET * & * P PERF RAWRIT,DK01,=D'1',CCONBUF8,CBIN9 * 8 P BNOK WRET * f , P PERF RAWRIT,DK01,=D'1',CCONBUF9,CBIN10 * x PWRET * P RET * P PEND * P EJECT * P******************** * P* * * P*
0x0d2624…0d27b8 Dummy {f00=0x0028, f01=0x0190, f02=» 0 * p P* + P******************** + PCNFWRT PROC + 6 P MOVE GSWBIN5,CBIN0 + J PCNF1 + f P ADD GSWBIN5,CBIN1 + r P CBG GSWBIN5,CMAXTASK,CNF100 + P USE TB2,GSWBIN5 + P MOVE TTRECOPN,=D'0' IF OPEN + P PERF TCONFW,GSWBIN5 + P
0x0d27b8…0d294c Dummy {f00=0x0028, f01=0x0190, f02=»************************************** + z P* , . P* FORMATS USED , 8 P* , T B P************************************************************* , ^ P* , PFMTFKI FRMT , P FNL , P FKI 2 , P FMEL 'B',TSWBCD2 , P FMEND , P* ,
0x0d294c…0d2ae0 Dummy {f00=0x0028, f01=0x0190, f02=»VOL(CBIN1) , P FNL - P FTEXT 'DATASET=' - P FKI 9,MINL=6,MAXL=6,ME - 8 P FCOPY CFNAME(CBIN1) - X P FMEND - t P* - PCSFRM02 FRMT - P FSL - P FCOPY ='KOMMUNE NR' - P FKI 12,MINL=3,MAXL=4,ME - P FMEL 'ZZZZ',CKMDNR - P FNL
0x0d2ae0…0d2c74 (1, 266) Dummy {f00=0x0028, f01=0x018e, f02=» - | P FCOPY CVOL(CBIN3) . P FKI 15,MINL=6,MAXL=6 . " P FCOPY CVOL(CBIN4) . @ P FNL . Z & P FCOPY ='DSN02 DSN03 DSN04' . f P FNL . P FKI 1,MINL=6,MAXL=6,ME . P FCOPY CFNAME(CBIN2) . P FKI 10,MINL=6,MAXL=6 . P FCOPY CFNAME(CBIN
0x0d2c74…0d2e08 Dummy {f00=0x0028, f01=0x0190, f02=» . P FKI 1,MINL=6,MAXL=6 / P FCOPY CFNAME(CBIN5) / $ P FKI 10,MINL=6,MAXL=6 / @ P FCOPY CFNAME(CBIN6) / ^ P FKI 19,MINL=6,MAXL=6 / z P FCOPY CFNAME(CBIN7) / P FKI 28,MINL=6,MAXL=6 / P FCOPY CFNAME(CBIN8) / P FMEND / P* / PCS
0x0d2e08…0d2f9c Dummy {f00=0x0028, f01=0x0190, f02=»99',CMASK(GSWBIN1) / P FNL 0 P FCOPY ='BEHOLDNINGST[LLERE' 0 & P FKI 23,MAXL=2,ME,APPL=103 0 J P FMEL '99',GSWBCD3 0 l P FNL 0 P FCOPY ='EJ-EDB T[LLER ' 0 P FKI 23,MAXL=2,ME,APPL=104 0 P FMEL '99',GSWBCD4 0 P FNL 0 P FCOPY =' EKS.
0x0d2f9c…0d3130 Dummy {f00=0x0028, f01=0x0190, f02=»'VOLUME NR ' 0 P FMEL '99999',CVOLNO 1 P FNL 1 0 P FCOPY =C'DAGS-DATO' 1 < . P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR 1 X P FMEL '99E-99E-99',CMASKDAT 1 P FNL 1 P FCOPY =C'DAG NR' 1 & P FKI 11,MINL=1,MAXL=3,ME,APPL=102 1 P FMEL 'ZZZ
0x0d3130…0d32c4 Dummy {f00=0x0028, f01=0x4184, f02=» 1 P FILLR X'07',1 2 P FLINK FMTFKI 2 P FMEND 2 4 P* 2 B PINIT3FMT FRMT 2 L P FSL 2 b P FCOPY ='OPSTART ' 2 n P FILLR '?',1 2 P FILLR X'07',1 2 P FLINK FMTFKI 2 P FMEND 2 P* 2 PINIT4FMT FRMT 2 P FSL 2 P FCOPY
0x0d32c4…0d3458 Dummy {f00=0x0028, f01=0x2008, f02=» 3 NT RGSTRT DDUM KMD08 PDIV . ENTRY T1GO < INCLUDE EQUATE P EJECT h T1GO v END @
0x0d3458…0d35ec Dummy {f00=0x0028, f01=0x0190, f02=» RGR030 3 PRGR060 SET D/K INFO 4 " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 4 . P PERFI GSWBIN3,SETKRE,SETDEB 4 T P B RGR030 4 x PRGR100 4 P END OF RECORD 4 P MOVE GSWSTR2,=X'7F' 4 " P MOVE GSWBIN6,GSWBIN4 RESTORE 4 6 P MATCH CPCKBUF,GSWBIN6
0x0d35ec…0d3780 Dummy {f00=0x0028, f01=0x0190, f02=»ECORD 4 t P MOVE GSWBIN6,GSWBIN4 5 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 5 , P BNE RGRRET2 5 f P DLETE CPCKBUF,CBIN0,GSWBIN4 5 z P MOVE GSWSTR20,CPCKBUF 5 P ADD CTWBIN1,CBIN1 5 P TBT CWFLAG,RGR113 5 P ADD CRECNR,CBIN1 KOLDST
0x0d3780…0d3914 (1, 267) Opaque[0x194]
0x0d3914…0d3aa8 # DirEnt {nam=»ADM45 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c40, f03=0x0000}
0x0d3914…0d3aa8 IdxSect {
0x0d3914…0d3aa8 f00 = 0x0062 // 0xd3914 @0x0
0x0d3914…0d3aa8 f01 = 0x0004 // 0xd3916 @0x2
0x0d3914…0d3aa8 gno = [ // 0xd3918 @0x4
0x0d3914…0d3aa8 [0x00]: C0x0062.0x0.0
0x0d3914…0d3aa8 [0x01]: C0x0062.0x1.0
0x0d3914…0d3aa8 ]
0x0d3914…0d3aa8 }
0x0d3aa8…0d3c3c Dummy {f00=0x0062, f01=0x0190, f02=» " P IDENT ADM45 840130 EV OD-KOM P DDUM KMD08 * P > P F P N 2 P* THIS MODULE TAKES HAND OF ALL ADMINISTRATION V $ P* REGARDING THE SPOOLING SYSTEM. P P P P P P P P P P PDIV
0x0d3c3c…0d3dd0 Dummy {f00=0x0062, f01=0x0190, f02=»XT KBTEST P EXT RAREAD P EXT RADEL & P EXT WRITLO 8 P EXT WRITJT L P ` P h P INCLUDE EQUATE p P EJECT PA45ELJ START POINT P EL.JOURNAL ON OR OFF , P TBF CSPOOL,ADM4590 QUIT IF NOT ALLOWED * P TBT T
0x0d3dd0…0d3f64 Dummy {f00=0x0062, f01=0x0190, f02=» EL. JOURNAL ON * P PERF PRJOUR EMPTY PRINT BUFFER FIRST P BNOK ADM4590 NOT EMPTY F , P CLEAR TSPOOL EMPTY, SET EL. JOURNAL OFF f P MOVE TTSPARE3,=C'.' PADM4590 P B ADMRET P EJECT P PPRJOUR PROC PRINT JOURNAL
0x0d3f64…0d40f8 Dummy {f00=0x0062, f01=0x0190, f02=»AK KEY | P " PPRJ10 CONTINUE, NOT MAK KEY $ P PERF INCSTR READY TO PRINT NEXT < " P BOK PRJ20 MORE LINES TO PRINT d P* NOW ALL LINES PRINTED P ( P PERF WRITJT,=W'17' SLUT EL. JOURNAL P P CMP CBIN0,CBIN0 FINISHED P
0x0d40f8…0d428c Dummy {f00=0x0062, f01=0x018e, f02=»IN1,TWELSTRT READ LINE l P BOK PRJ50 P* ERROR 0 P B PRJ60 @ P P PPRJ50 X P WAIT KJTAPE f ( P WRITE .NW,KJTAPE,TSELBUF PRINT LINE z PPRJ60 $ P PERF RADEL,DK06,TWELSTRT,=D'6' " P CMP CBIN1,CBIN0 NOT FINISHED P
0x0d428c…0d4420 Dummy {f00=0x0062, f01=0x0190, f02=» ~ P PPRJ100 P RET P PEND * P 8 P @ P EJECT H P V PINCSTR PROC ^ P r P* INCREMENT POINTER TWELSTRT z & P* (CIRCULAR WITHIN TWELMIN,TWELMAX P P MOVE GSWBIN1,TWELSTRT P ADD GSWBIN1,CBIN1 INCREME
0x0d4420…0d45b4 (1, 268) Dummy {f00=0x0062, f01=0x0190, f02=»IN1,TWELSLUT,INCSTR90 BUFFER FREE? " P CMP CBIN1,CBIN0 NO, SET NOK, * P NO CHANGE OF TWELSTRT P P RET p PINCSTR90 YES, BUFFER FREE | * P MOVE TWELSTRT,GSWBIN1 UPDATE TWELSTRT P CMP CBIN0,CBIN0 P RET P PEND P EJECT
0x0d45b4…0d4748 Dummy {f00=0x0062, f01=0x0190, f02=»WBIN1,TWELSLUT P ADD GSWBIN1,CBIN1 INCREMENT 0 P CBNG GSWBIN1,TWELMAX,INCSLT20 OUT OF LIMIT? : , P MOVE GSWBIN1,TWELMIN YES, SET TO START n PINCSLT20 8 P CBNE GSWBIN1,TWELSTRT,INCSLT90 CICRL. BUFFER FULL? " P CMP CBIN1,CBIN0 YES, SET NOK,
0x0d4748…0d48dc Dummy {f00=0x0062, f01=0x4042, f02=» CMP CBIN0,CBIN0 P RET P PEND $ P END 2@ >WBIN1,TWELMAX,INCSLT20 OUT OF LIMIT? : , P MOVE GSWBIN1,TWELMIN YES, SET TO START n PINCSLT20 8 P CBNE GSWBIN1,TWELSTRT,INCSLT90 CICRL. BUFFER FULL? " P CMP CBIN1,CBIN0 YES, SET NOK,
0x0d48dc…0d4a70 Dummy {f00=0x0062, f01=0x2008, f02=» INCLUDE EQUATE EJECT 4 AD4500 B B ADMRET P END b@ nNISTRATION N $ * REGARDING THE SPOOLING SYSTEM. PDIV
0x0d4a70…0d4c04 Dummy {f00=0x0062, f01=0x0190, f02=» Asx n @u2 AslP W @u0T @u.Z z2 A 2 @ tp @ 2 Asf d 4 d p d d A tp @u.R V ;a Q n_ 1 tp x @ 2 Asf_ 0 4 j Ayh u: P 3P u C @u&P @u( 1 @sbP @u. Q @ @u2 Q P " tpT @sd A
0x0d4c04…0d4d98 Dummy {f00=0x0062, f01=0x0190, f02=» P u @u&P @u( 1 tp x d A 2 @ 2 4 @sp Au. @sj Au2_ s @s^P @u.V @r,( u V " @u2T @r* TP @u&P @u( A 2 Asn Ast v 0! X j u: T @u&P @u(" 1 tp u Px @u( @u* @u, @u2T @r* hRX A 2 *9l! P2 v
0x0d4d98…0d4f2c Dummy {f00=0x0062, f01=0x0190, f02=»U 0 A{XU {8_ " "P` @u( @u2T @r* h PF R % < < ! X j u: T @u&P @u(! 5 = tp u u } tpP @u( u ~dW" q ~ q $ B % Aq tpT @r(W @u( As` u @u.R Ar, As` Ar( @r*( tp As` u @r( } u @
0x0d4f2c…0d50c0 Dummy {f00=0x0062, f01=0x0190, f02=» @u2T @r* }&V <q Rl ) I I @ I B Aq W PT }&RN )W q ~ Aq tp q , A}^ A}^:B A}^Q (P _ H B @u2 H A}^ " u EQ GT LT NE NG NL P2 @s^ R* <} @u(P Q } ( tp u L U q ( R ( @u.V @r, H
0x0d50c0…0d5254 (1, 269) Opaque[0x194]
0x0d5254…0d53e8 # DirEnt {nam=»CONDC «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0800, f03=0x0000}
0x0d5254…0d53e8 IdxSect {
0x0d5254…0d53e8 f00 = 0x0040 // 0xd5254 @0x0
0x0d5254…0d53e8 f01 = 0x0002 // 0xd5256 @0x2
0x0d5254…0d53e8 gno = [ // 0xd5258 @0x4
0x0d5254…0d53e8 [0x00]: C0x0040.0x0.0
0x0d5254…0d53e8 ]
0x0d5254…0d53e8 }
0x0d53e8…0d557c Dummy {f00=0x0040, f01=0x0190, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 01; J TDC=T02; V LC=08L; f P00; v T; P01; TID=TC; TCL=TC; LEV=60; 01; PTDC=T01; PLC=01L; P01; PSCL=S04;
0x0d557c…0d5710 Dummy {f00=0x0040, f01=0x018e, f02=»L=S02; PSCL=S03; PSCL=S04; T; . 01; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; LC=05L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x0d5710…0d58a4 Dummy {f00=0x0040, f01=0x0018, f02=» TB2; 004; PSCL=S04; T; . 01; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; LC=05L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x0d58a4…0d5a38 Dummy {f00=0x0040, f01=0x2008, f02=» 004; PSCL=S04; T; . 01; 8 TID=GA; D TCL=GA; T LEV=60; d 01; t TDC=T04; LC=05L; P03; PSCL=S02; PSCL=S03; PSCL=S04; T; 01; TID=D0; TCL=D0
0x0d5a38…0d5bcc Dummy {f00=0x0040, f01=0x018e, f02=»******************************** h P* ( F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. 2 B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED | * P* START-UP ROUTINES. P* H P**************
0x0d5bcc…0d5d60 Dummy {f00=0x0040, f01=0x0190, f02=» P* P* P* P* KB/VDU TERMINAL " P* B P TERM KA L P* P CWB CB9 f P TWB TB9 v P* P START KBVGO P* PDSDC DSET FC=61 $ PDSICR DSET FC=E0,DEV=II COPCMD=1 PDSICW DSET FC=E1,DEV=IO
0x0d5d60…0d5ef4 (1, 270) Opaque[0x194]
0x0d5ef4…0d6088 # DirEnt {nam=»ADM6BC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1090, f03=0x0000}
0x0d5ef4…0d6088 IdxSect {
0x0d5ef4…0d6088 f00 = 0x0084 // 0xd5ef4 @0x0
0x0d5ef4…0d6088 f01 = 0x0012 // 0xd5ef6 @0x2
0x0d5ef4…0d6088 gno = [ // 0xd5ef8 @0x4
0x0d5ef4…0d6088 [0x00]: C0x0084.0x2.0
0x0d5ef4…0d6088 [0x01]: C0x0084.0x3.0
0x0d5ef4…0d6088 [0x02]: C0x0085.0x0.0
0x0d5ef4…0d6088 [0x03]: C0x0085.0x1.0
0x0d5ef4…0d6088 [0x04]: C0x0085.0x2.0
0x0d5ef4…0d6088 [0x05]: C0x0085.0x3.0
0x0d5ef4…0d6088 [0x06]: C0x0086.0x0.0
0x0d5ef4…0d6088 [0x07]: C0x0086.0x1.0
0x0d5ef4…0d6088 [0x08]: C0x0086.0x2.0
0x0d5ef4…0d6088 ]
0x0d5ef4…0d6088 }
0x0d6088…0d621c Dummy {f00=0x0084, f01=0x0190, f02=» P IDENT ADM6BC 840124 EV P DDUM KMD08 $ P PDIV 8 P ENTRY ADM600 F P ENTRY SIGNON P ENTRY CHNGDK r P ENTRY STRTRC P ENTRY SENDRC P ENTRY TERMIN P ENTRY SIGNOF P ENTRY EXCHAN P ENTRY TRNOK
0x0d621c…0d63b0 Dummy {f00=0x0084, f01=0x0190, f02=»XT SLUTID P EXT RAWRIT P EXT WRITID & P EXT LAMPOF : P EXT ADMRET N P EXT SPERR b P EXT CLSVOL t P EXT LAMPON P EXT SOPRD P EXT ASGVOL P EXT ASGFIL P EXT BCKUP P EXT RAREAD P EXT GETBIT
0x0d63b0…0d6544 Dummy {f00=0x0084, f01=0x018e, f02=»PKEYFLG P CMP TTASKNR,CBIN1 MASTER ? P BNE ADM06RET NO 4 P SET SPPROMPT L & PADM0604 REPEAT UNTIL CORRECT KEY b P MOVE GSWBCD2,CSENDNR P ATTFMT SNDFRM6 P PERF SPCLRA * P IB SPBINW2,ADM06RET,ADM06RET,ADM0605 P B A
0x0d6544…0d66d8 Dummy {f00=0x0084, f01=0x0190, f02=» P B ADM0604 NOT VALID PADM0610 P MANUAL 0 P CLEAR CBCFLAG MANUAL B P TEST GTKASSE KASSE OPEN? ` " P BNZ ADM0604 YES, NOT ALLOWED " P CMP CTASKNR,CBIN0 ALL CLOSED? P BNE ADM0604 NO " P TBT CBCSENDF,ADM0604 SENDING?
0x0d66d8…0d686c Dummy {f00=0x0084, f01=0x018e, f02=» ON MUST BE DONE P TBT CBCACTVF,ADM0615 P 6 P AUTO BATCH NOT ACTIVE > P SIGN ON ^ PADM0611 p P SET SPPROMPT P ATTFMT SNDFRM P PERF SPCLRS ( P IB SPBINW2,ADM0612,ADM0612,ADM0615 P B ADM0611 PADM0612
0x0d686c…0d6a00 Dummy {f00=0x0084, f01=0x0190, f02=» x P SUB CRECBCD,=D'1' P PERF SLUTID,CPCKBUF,CRECBCD " P ADD CRECBCD,=D'1' F * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR ` P BNOK ADM0612 6 P PERF WRITID,CPCKBUF,CBIN5,CBIN2 SLUTID ON JOURNAL P EJECT PADM0613 6 P************
0x0d6a00…0d6b94 (1, 271) Dummy {f00=0x0084, f01=0x0190, f02=» x P* 3) SEND STARTIDENT , P* 4) SEND TRANSACTIONS AND SLUTID , 0 P* 5) IN CASE OF ERROR SEND TERMINATE 2 P* 6) WHEN ALL TRANSMITTED SEND SIGNOFF 6 P************************************************* $ P SEE I
0x0d6b94…0d6d28 Dummy {f00=0x0084, f01=0x0190, f02=»612 LIKE MAK PADM0620 P SET OPTION TO STOP $ P AUTOMATIC BATCH B , P MOVE CBCOPT,CBIN2 STOP AUTOMATIC BATCH P PERF LAMPOF,=W'2047' PADM0630 P PERF CHNGDK CHANGE DISC P BNOK ADM6SOFF P PERF STRTRC SEND STARTI
0x0d6d28…0d6ebc Dummy {f00=0x0084, f01=0x0190, f02=»IN SEND TERMINATE PADM0640 P PERF LAMPOF,=W'2047' * & P PERF LAMPON,=W'2' LAMP 10, ERROR H P B ADM0630 r PADM6SOFF P PERF SIGNOF SEND SIGNOFF P CLEAR CCONVFLG P CLEAR CBCWAITF PADM06OUT PADM06RET P
0x0d6ebc…0d7050 Dummy {f00=0x0084, f01=0x018e, f02=»ADM0650 AUTOMATIC P SET CBCFLAG P SELECT IF ALREADY ACTIVE 0 P T P TBT CBCACTVF,ADM0670 P NOT ACTIVE z PADM0651 P SET SPPROMPT P ATTFMT SNDFRM ASK FOR $ P PERF SPCLRS BRUGERNAVN,KENDEORD ( P IB SPBINW2,
0x0d7050…0d71e4 Dummy {f00=0x0084, f01=0x0190, f02=» P BNOK ADM0604 LIKE MAK PADM0660 " P ATTFMT SNDFRM8 2 P PERF SPCLRA STARF FRA J * P IB SPBINW2,ADM6SOFF,ADM6SOFF,ADM0665 h P B ADM0660 P* PADM0665 P MOVE CBCFROM,GSWBCD1 ( P MOVE CBCOPT,CBIN1 SET OPTION START
0x0d71e4…0d7378 Dummy {f00=0x0084, f01=0x0190, f02=»ACTIVE ~ P ATTFMT SNDFRM9 P PERF SPCLRA GET OPTION & * P IB SPBINW2,ADM06RET,ADM06RET,ADM0675 F P B ADM0670 t P $ PADM0675 TEST IF OPTION 1 OR 2 P CBE GSWBCD1,=D'1',ADM0680 P CBE GSWBCD1,=D'2',ADM0681 P B ADM0670
0x0d7378…0d750c Dummy {f00=0x0084, f01=0x0190, f02=»RUPT x P B ADM06RET P EJECT 0 P******************************************* . 8 P* TASK BC - AUTOMATIC BATCH TRANSMISSION STARTS HERE b P* P* 0 P******************************************* PBCGO ENTRY POINT P EXIT
0x0d750c…0d76a0 Dummy {f00=0x0084, f01=0x0190, f02=»TASK IN TASK BC P P EDWRT KJTAPE,FFNL P EDWRT KJTAPE,FBCACTV : P X P ` , P* "AUTOMATIC DATATRANSMISSION AKTIVERET" h P P* PBC100 P TBT CBCSENDF,BC150 P NO SENDING GOING ON " P IB CBCOPT, SELECT ON
0x0d76a0…0d7834 (1, 272) Dummy {f00=0x0085, f01=0x0190, f02=»IDLE LOOP " P MOVE GSWBIN1,=W'30' 3 SECONDS P DELAY GSWBIN1 8 P B BC100 N P* ^ PBC210 START h P TBT CBCWAITF,BC200 WAIT ~ P MOVE GSWBIN1,CRECNR & P SUB GSWBIN1,CBCFROM SEE IF ENOUGH P CBL GSWBIN1,CBCANT,BC200 P E
0x0d7834…0d79c8 Dummy {f00=0x0085, f01=0x018e, f02=» | " P ADD CBCTO,CBCANT LAST TO SEND P B BC100 . P* > PBC220 STOP H P P EDWRT KJTAPE,FBCEXIT d P CLEAR CBCACTVF CLEAR ACTIVE P , P* "AUTOMATISK DATATRANSMISSION STOPPET" P P EXIT P* PBC230 IN
0x0d79c8…0d7b5c Dummy {f00=0x0085, f01=0x0190, f02=» P P* PBC240 SEND REST P 0 P EDWRT KJTAPE,FBCSTRT 8 P V " P PERF STRTRC SEND START IDENT ^ P BNOK BC230 " P SET CBCSENDF SENDING STARTED P MOVE CBCTO,CBIN0 SEND ALL P B BC100 P* P* P*
0x0d7b5c…0d7cf0 Dummy {f00=0x0085, f01=0x018e, f02=»NDF STOPPED SENDING P P EDWRT KJTAPE,FBCTERM $ P B " P PERF LAMPOF,=W'64' LAMP 5 OFF J P MOVE CBCOPT,CBIN2 STOP p P B BC100 P PBC350 END OF BATCH P P MOVE GSWBCD1,CBCFROM P MOVE GSWBCD2,CSENDNR P
0x0d7cf0…0d7e84 Dummy {f00=0x0085, f01=0x0190, f02=» " P PERF LAMPOF,=W'64' LAMP 5 OFF P MOVE CBCOPT,CBIN1 * P CLEAR CBCSENDF D P B BC100 0 P******************************************** l P* " P* END OF AUTOMATIC BATCH TASK P* 0 P********************************************
0x0d7e84…0d8018 Dummy {f00=0x0085, f01=0x0190, f02=»= 0 z P* 4 P************************************************ PSIGNON PROC N P MOVE GSWBIN1,=X'40' b P DSC1 DCOMM,TRPAR,GSWBIN1 ~ P MOVE GSWBIN1,CBIN5 P MOVE GSWBIN2,=W'50' P MOVE CSENDBUF,=C' ' P EDIT CSENDBUF,SIGON
0x0d8018…0d81ac Dummy {f00=0x0085, f01=0x0190, f02=»1 | P TBT CTESTFLG,SIGON10 P PERF EXCHAN EXCHANGE DC ( P BNOK SIGON100 H P PERF WJDC ^ P MOVE GSWSTR20,=C'DFH3504' p P MOVE GSWBIN1,CBIN0 8 P MATCH CSENDBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7 P BNE SIGON100 PSIGON10
0x0d81ac…0d8340 Dummy {f00=0x0085, f01=0x0190, f02=»GSWBIN1 ~ P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,=D'60' , P MOVE GSWSTR9,=C'TRANSMIT ' H P MOVE GTWBCD1,=D'16' l P PERF SPERR P PERF WRITJT,=W'14' P PERF WRITLO,CBIN8 P CMP CBIN0,CBIN1 P RET P PEND P EJE
0x0d8340…0d84d4 (1, 273) Dummy {f00=0x0085, f01=0x0190, f02=»PIN 6 | P* CONTINIUE PIN 5 P* 0 2 P********************************************* : P* p PDUMTAB KTAB EORKY1 z P* PCHNGDK PROC PCHNG000 $ P PERF CLSVOL,CBIN2 CLOSE REGSET P MOVE CSENDNR,CBIN1 P M
0x0d84d4…0d8668 Dummy {f00=0x0085, f01=0x0190, f02=» P* INPUT FROM SOP OR KEYBOARD P , P EDWRT SCREEN,SNDFRM7 SEND? 4 P PERF SPLIN8,CBIN0,CBIN0 .NW X PCHNG0104 | ( P MOVE GSWBIN1,CBIN1 NO WRITING, .NW 0 P KI .NW,DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2 P BNOK CHNG0104 PCHNG01
0x0d8668…0d87fc Dummy {f00=0x0085, f01=0x0190, f02=»20 SOP P B CHNG0105 P " PCHNG0210 KEYBOARD * P TESTIO DSSOPI F P BOK CHNG0211 P CALL ABORT,DSSOPI r PCHNG0211 P WAIT DSSOPI PCHNG0212 HANDLE KEYBOARD P ATTFMT SNDFRM10 P PERF SPCLRS ( P IB SPBINW
0x0d87fc…0d8990 Dummy {f00=0x0085, f01=0x0190, f02=»WBIN2,CBIN6 AS SOP 5 P B CHNG030 P . P 6 PCHNG0220 SOP FINISHED > P TESTIO KEYB STOP KEYBOARD ^ P BOK CHNG0221 P CALL ABORT,KEYB PCHNG0221 P WAIT KEYB P MOVE CBCFROM,CBIN1 SEND P MOVE CBCTO,CBIN0 ALL
0x0d8990…0d8b24 Dummy {f00=0x0085, f01=0x0190, f02=» CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 PCHSOP01 2 PCHSOP02 B PCHSOP03 R PCHSOP04 b PCHSOP08 r PCHSOP09 P B CHNG010 PCHSOP10 P* ERROR, SIGN ON AGAIN $ P PERF LAMPOF,=W'2047' LAMPS OFF P PERF LAMPON
0x0d8b24…0d8cb8 Dummy {f00=0x0085, f01=0x0190, f02=» PCH1010 P B CHNG000 PCH1020 $ P PERF SIGNON 2 P BNOK CHNG000 F P PERF LAMPOF,=W'2047' P B CHNG000 z PCHSOP05 $ P PERF LAMPOF,=W'2047' LAMPS OFF $ P PERF ASGVOL,CBIN2 ASSIGN DISK 2 P BOK CHNG050 P PERF LA
0x0d8cb8…0d8e4c Dummy {f00=0x0085, f01=0x0190, f02=»6 SOP 6 $ P PERF LAMPOF,=W'2047' LAMPS OFF $ P PERF BCKUP,=W'1' WITHOUT BACKUP : P BNOK CHNG000 b P B CHNG130 x PCHSOP07 $ P PERF LAMPOF,=W'2047' LAMPS OFF " P PERF BCKUP,=W'2' WITH BACKUP P BNOK CHNG000 P B CHNG130
0x0d8e4c…0d8fe0 Dummy {f00=0x0085, f01=0x0190, f02=» EJECT . P****************************************** P* @ * P* STRTRC - SEND OF STARTIDENT J P* AND CHECK REPLY x P* 0 P******************************************* PSTRTRC PROC P PERF LAMPOF,=W'2047'
0x0d8fe0…0d9174 (1, 274) Dummy {f00=0x0085, f01=0x0190, f02=» ` P BNOK STRTRET . P CBE GTWBCD1,=D'4',STRTRET RECORD DELETED? & P PERF WRITID,CDISKBUF,CBIN5,CBIN1 P P MOVE GSWBIN6,CBIN0 z P MOVE GSWBIN1,=W'40' P MOVE GSWSTR20,CBLANKS 2 P COPY CDISKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 P M
0x0d9174…0d9308 Dummy {f00=0x0085, f01=0x0190, f02=»T P PERF TRNOK CHECK IF OK P BNOK STRTRET * P CMP CBIN0,CBIN0 SET CR @ P RET ` PSTRTRET l P CMP CBIN0,CBIN1 | P RET P PEND P EJECT 2 P********************************************** P* . P* SE
0x0d9308…0d949c Dummy {f00=0x0085, f01=0x0190, f02=»HAVE BEEN ADJUSTED ???????? P CBG CBCFROM,CBIN1,SND000 $ * P MOVE CBCFROM,CBIN2 FIRST DATA RECORD F PSND000 t P P MOVE GSWBIN1,=W'128' 4 P PERF RAREAD,DK02,=D'2',CDISKBUF,GSWBIN1,CBCFROM P BNOK SNDERR P CMP GTWBCD1,=D'4'
0x0d949c…0d9630 Dummy {f00=0x0085, f01=0x0190, f02=»=W'128' P MOVE GSWBIN5,CBIN0 ! 8 P MATCH CDISKBUF,GSWBIN5,GSWBIN1,GSWSTR20,CBIN0,CBIN3 ! , P BE SND003 ! h P MOVE GSWSTR20,=C'SLUTD' ! z P MOVE GSWBIN5,CBIN0 ! 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CDISKBUF,CBIN0,CBIN5 ! P BNE SND002 TRY NEXT !
0x0d9630…0d97c4 Dummy {f00=0x0085, f01=0x0190, f02=»,CBIN1 ! P B SND000 " P " PSND003 " ( P TBF TBCTASK,SND004 " 6 P MOVE GSWBCD1,CBCFROM " R P EDWRT KJTAPE,FBCFROM " p PSND004 " P " & P PERF WRITID,CDISKBUF,CBIN0,CBIN1 " P " & P CLEAR TTEORFLG NOT END OF RECORD " P MOVE CS
0x0d97c4…0d9958 Dummy {f00=0x0085, f01=0x0190, f02=»G,SND011 END OF RECORD? " P YES # & P CBE CBCTO,CBIN0,SND011 SEND REST # . P* IF FROM > TO, SEND SLUTD # X ( P CBNG CSENDNR,CBCTO,SND011 SEND MORE # z " P MOVE CDISKBUF,=C'SLUTD00000 ' # P # P MOVE GSWBIN1,CSENDNR # P SUB GSWBIN1,CBCFROM #
0x0d9958…0d9aec Dummy {f00=0x0085, f01=0x018e, f02=»D011 # P ADD CSENDNR,CBIN1 $ P MOVE GSWBIN1,=W'128' $ & 4 P PERF RAREAD,DK02,=D'2',CDISKBUF,GSWBIN1,CSENDNR $ D P BNOK SNDERR $ | P CMP GTWBCD1,=D'4' $ P BNE SND012 $ " P MOVE CDISKBUF,=C'SLUTD00000 ' $ P $ PSND012 $ P MOVE GSWSTR20
0x0d9aec…0d9c80 Dummy {f00=0x0085, f01=0x0190, f02=» P MOVE GSWBIN1,CSENDNR % P SUB GSWBIN1,CBCFROM % " P MOVE GSWBCD3,GSWBIN1 % > " P PERF SLUTID,CDISKBUF,GSWBCD3 % P SUB CSENDNR,CBIN1 % P MOVE CBCOPT,CBIN2 STOP % P B SNDSLUT % PSND014 % P SET TTEORFLG END OF RECORD % $ P MOVE GS
0x0d9c80…0d9e14 (1, 275) Dummy {f00=0x0085, f01=0x0190, f02=»GSWSTR9,CBIN0,CBIN1 % p P BE SND020 & & P CLEAR TTEORFLG NOT END OF RECORD & . P MOVE GSWSTR9,=X'21' & X P B SND015 & t PSND020 & * P ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE & P CBNG GSWBIN4,=W'500',SND030 & $ P SUB CSENDNR,CBIN1 NO MORE SPACE &
0x0d9e14…0d9fa8 Dummy {f00=0x0085, f01=0x0190, f02=»BIN4,=W'128',SND037 & P MOVE GSWSTR20,=X'00' ' P MOVE GSWBIN5,=W'128' ' : * P SUB GSWBIN5,GSWBIN4 REMAINING TO FILL ' X PSND035 ' P CBL GSWBIN5,CBIN20,SND036 ' 2 P INSRT CDISKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0 ' P SUB GSWBIN5,CBIN20 ' P
0x0d9fa8…0da13c Dummy {f00=0x0085, f01=0x0190, f02=»RM5 INSERT RECORD ' t P B SND010 READ NEXT ( PSND040 ( 6 P MOVE GSWBIN2,GSWBIN3 ( D P TBT TBCTASK,SND042 ( b P MANUAL ( ~ P MOVE GTWBCD2,CSENDNR ( P PERF SPLIN8,CBIN10,CBIN3 ( P B SND044 ( PSND042 AUTOMATIC ( " P IB CBCOPT,
0x0da13c…0da2d0 Dummy {f00=0x0085, f01=0x018e, f02=»SND0421 ( P B SND044 ) PSND0422 ) " PSND0423 ) 2 P B SNDERR ) B PSND0424 SEND REST ) T P MOVE CBCTO,CBIN0 ) p PSND044 END OF CHECK ) P* ) P PERF EXCHAN ) P BNOK SNDERR ) P PERF TRNOK ) P BNOK SNDERR ) P B SND
0x0da2d0…0da464 Dummy {f00=0x0085, f01=0x0190, f02=» P BNOK SNDERR * P PERF TRNOK * P BNOK SNDERR * , PSND090 * @ P MOVE GSWBIN3,CBIN0 * N P MOVE CSENDBUF,=C' ' * j $ P EDSUB CSENDBUF,GSWBIN3,SNDFRM5 * P MOVE GSWBIN2,CBIN18 * P PERF EXCHAN * P BNOK SNDERR * & P PERF WRITID,CDISKBUF,
0x0da464…0da5f8 Dummy {f00=0x0085, f01=0x0190, f02=» P MOVE GSWBIN2,=W'52' + 8 P MATCH CSENDBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 + P BNE SNDERR + PSNDSL10 + p P CMP CBIN0,CBIN0 + P RET + PSNDERR + P CMP CBIN1,CBIN0 + P RET + P PEND + P EJECT + 0 P**********************
0x0da5f8…0da78c Dummy {f00=0x0085, f01=0x0190, f02=»************************ + | PTERMIN PROC , P MOVE GSWBIN3,CBIN0 , 4 P MOVE CSENDBUF,=C' ' , P " P MOVE CDISKBUF,=C'TERMINATE ' , l P MOVE GSWBIN3,CBIN0 , $ P EDSUB CSENDBUF,GSWBIN3,SNDFRM2 , P MOVE GSWBIN2,CBIN14 , P PERF EXCHAN EXCHANGE
0x0da78c…0da920 Dummy {f00=0x0085, f01=0x0190, f02=» P PEND - P EJECT - 2 P********************************************* - P* - V P* SIGNOFF - ` P* - z 2 P********************************************* - PSIGNOF PROC - P MOVE GSWBIN3,CBIN0 - P MOVE CSENDBUF,=C' ' - P M
0x0da920…0daab4 (1, 276) Dummy {f00=0x0086, f01=0x0190, f02=» P MOVE GSWBIN1,CBIN0 . P DSC1 DCOMM,TRPAR,GSWBIN1 . P TBT CTESTFLG,SIGOFRT1 . B P PERF WJDC PRINT ANSWER . ` PSIGOFRET . P RET . PSIGOFRT1 . P CMP CBIN0,CBIN0 . P RET . P PEND . P EJECT . 2 P****************************
0x0daab4…0dac48 Dummy {f00=0x0086, f01=0x0190, f02=»SCREEN AND JOURNAL . z 2 P********************************************* / PEXCHAN PROC / P P TBT CTESTFLG,EXCHTEST / d PEXCH10 / P MOVE GSWBIN5,CBIN1 / P MOVE GSWBIN1,=W'504' / * P DCREAD DCOMM,CDUMBUF,GSWBIN1,GSWBIN5 / , P BOK EXCH10 IF A
0x0dac48…0daddc Dummy {f00=0x0086, f01=0x0190, f02=» P MOVE GSWBIN2,=W'504' 0 " P MOVE GSWBIN5,=W'900' TIMEOUT 0 " * P DCREAD DCOMM,CSENDBUF,GSWBIN2,GSWBIN5 0 H P BOK EXCHRET 0 v PEXCHNOK 0 & P PERF GETBIT,DCOMM FETCH ERRORCODE 0 P MOVE SPBINW4,CBIN21 0 P MOVE GTWBCD2,=D'60' 0 P MOVE GSWSTR
0x0daddc…0daf70 Dummy {f00=0x0086, f01=0x0190, f02=»CHTEST 0 P MOVE CSENDBUF,=X'1B3543' 1 P DELAY CBIN20 1 0 PEXCHRET 1 F P CMP CBIN0,CBIN0 1 V P RET 1 n P PEND 1 z P EJECT 1 2 P********************************************* 1 P* 1 6 P* TRNOK - CHECK IF MESSAGE CORRECT RECIEVED
0x0daf70…0db104 Dummy {f00=0x0086, f01=0x0190, f02=»B3543' =EBCDIC 27F5C3 1 ~ 8 P MATCH CSENDBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN3 2 P BNE TRNERR 2 Z P MOVE GSWBIN2,CBIN0 2 n P MOVE CSENDBUF,=C' ' 2 P CMP CBIN0,CBIN0 2 P RET 2 PTRNERR 2 $ P PERF WJDC PRINT WRONG RESPONSE 2 P MOVE GT
0x0db104…0db298 Dummy {f00=0x0086, f01=0x0190, f02=»F WRITLO,CBIN8 2 P CMP CBIN0,CBIN1 3 P RET 3 . P PEND 3 : P EJECT 3 H 6 P************************************************* 3 V P* 3 2 P* WJDC - PRINT RECEIVED MESSAGE ON JOURNAL 3 P* 3 6 P**********************************************
0x0db298…0db42c Dummy {f00=0x0086, f01=0x0190, f02=»BIN2,=W'504',WJDCRET 3 P MOVE GSWSTR9,=C'DFH' 4 P MOVE GSWBIN1,CBIN0 4 : 8 P MATCH CSENDBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 4 V P BE WJDC100 CICS MESSAGE 4 P* 4 P* APLICATION MESSAGE 4 P* 4 P MOVE GSWSTR9,=X'11' 4 P MOV
0x0db42c…0db5c0 Dummy {f00=0x0086, f01=0x0190, f02=»START 4 p * P ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE 5 P MOVE GSWBIN4,GSWBIN1 5 < & P SUB GSWBIN2,GSWBIN4 ADJUST LENGTH 5 Z P CBL GSWBIN2,CBIN1,WJDCRET 5 PWJDC005 5 P MOVE CDISKBUF,=X'00' 5 8 P MATCH CSENDBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1
0x0db5c0…0db754 (1, 277) Dummy {f00=0x0086, f01=0x0190, f02=»2 CHARS 5 v 2 P COPY CDISKBUF,CBIN0,GSWBIN4,CSENDBUF,GSWBIN1 6 P EDWRT KJTAPE,WJDCFRM 6 F P B WJDC008 6 d PWJDC007 6 v 2 P COPY CDISKBUF,CBIN0,GSWBIN4,CSENDBUF,GSWBIN1 6 P EDWRT KJTAPE,WJDCFRM 6 P ADD GSWBIN4,CBIN3 6 PWJDC008 6 P SUB
0x0db754…0db8e8 Dummy {f00=0x0086, f01=0x0190, f02=»DC010 6 P B WJDC200 7 PWJDCRET 7 P RET 7 0 P* 7 < PWJDC100 7 F P SUB GSWBIN2,GSWBIN1 7 V P CBL GSWBIN2,=W'52',WJDC200 7 r $ P MOVE GSWBIN4,=W'30' FIND BLANK 7 P ADD GSWBIN4,GSWBIN1 7 6 P MATCH CSENDBUF,GSWBIN4,CBIN22,CBLANKS,CBIN0,C
0x0db8e8…0dba7c Dummy {f00=0x0086, f01=0x0190, f02=» 7 b P EDWRT KJTAPE,WJDCFRM 8 P SUB GSWBIN2,GSWBIN4 8 & P ADD GSWBIN1,GSWBIN4 8 B PWJDC200 8 ^ P MOVE CDISKBUF,=X'00' 8 n P CBL GSWBIN2,=W'52',WJDC210 8 P MOVE GSWBIN2,=W'52' 8 PWJDC210 8 2 P COPY CDISKBUF,CBIN0,GSWBIN2,CSENDBUF,GSWBIN
0x0dba7c…0dbc10 Dummy {f00=0x0086, f01=0x0190, f02=»* 8 P* FORMATS USED 9 P* 9 ( 4 P************************************************ 9 2 P* 9 j PSNDFRM FRMT 9 t P FSL 9 P FLINK SNDAUTO 9 P FNL 9 P FTEXT 'BRUGERNAVN' 9 P FKI 12,MINL=1,MAXL=13,ME 9 ( P FMEL 'AAAAAAAAAAAAA
0x0dbc10…0dbda4 Dummy {f00=0x0086, f01=0x0190, f02=»* 9 PSIGONF FRMT : P FILLR ' ',2 : P FCOPY =X'272020' : 2 P FTEXT 'CSSN PS=' : L P FMEL '9999',CKENDNR : f P FTEXT ',NAME=' : ( P FMEL 'AAAAAAAAAAAAAAAAAAA9',CBRUGNR : P FMEND : P* : PSNDAUTO FRMT : P FBT CBCFLAG,FRMAUTO :
0x0dbda4…0dbf38 Dummy {f00=0x0086, f01=0x0190, f02=» : P* ; PSNDFRM2 FRMT ; P FILLR ' ',2 ; & P FCOPY =X'272020' ; : P FCOPY CDISKBUF ; T P FMEND ; l P* ; z PSNDFRM3 FRMT ; P FILLR '1',2 ; P FCOPY =C'DATATRANSMISSION ' ; P FMEND ; P* ; PSNDFRM5 FRMT ; P FBNZ GSWBIN
0x0dbf38…0dc0cc Dummy {f00=0x0086, f01=0x0190, f02=» ; P* < PSNDFRM6 FRMT < P FSL < & P FCOPY ='DATATRANSMISSION ' < 2 P FILLR '?',1 < V P FKI 20,MAXL=1,ME < j P FMEL '9',GSWBCD1 < P FNL < P FNL < P FTEXT '1: ' < P FCOPY =C'MANUEL ' < P FNL < P FTEXT '2: ' < P FCO
0x0dc0cc…0dc260 Dummy {f00=0x0086, f01=0x0190, f02=»M6010 FTEXT '(SENDER)' < PFRM6015 FILLR ' ',4 = P FMEL 'ZZZZ9',GSWBCD2 = : PFRM6020 FMEND = X P* = n P* = x PSNDFRM7 FRMT = P FILLR '1',2 = P FLINK SNDAUTO = P FNL = P FNL = " P FTEXT 'SEND FRA DENNE DISK? ' = P FNL =
0x0dc260…0dc3f4 (1, 278) Dummy {f00=0x0086, f01=0x0190, f02=» = P FTEXT 'START ' > P FCOPY =C'FRA: ' > P FKI 12,MAXL=5 > 8 P FMEL 'ZZZZ9',GSWBCD1 > N P FMEND > l P* > z PSNDFRM9 FRMT > P FSL > P FLINK SNDAUTO > P FNL > P FNL > P FILLR ' ',3 > P FTEXT 'V[LG: ' > P FKI 9,MAX
0x0dc3f4…0dc588 Dummy {f00=0x0086, f01=0x0190, f02=» > P* ? PSNDFRM10 FRMT ? P FSL ? ( P FLINK SNDAUTO ? 4 P FNL ? J P FNL ? V P FTEXT 'SEND FRA: ' ? b P FKI 11,MAXL=5 ? ~ P FMEL 'ZZZZ9',GSWBCD1 ? P FNL ? P FILLR ' ',5 ? P FTEXT 'TIL: ' ? P FKI 11,MAXL=5 ? P FMEL 'ZZZ
0x0dc588…0dc71c Dummy {f00=0x0086, f01=0x0190, f02=» PFBCACTV FRMT BC ACTIVATED @ P FNL @ & P FLINK SNDAUTO @ 2 P FCOPY =C'AKTIVERET ' @ H P FMEL '99V99V99',CMASKDAT @ f P FLINK FSKIP @ P FMEND @ P* @ PFBCSTRT FRMT START BATCH @ P FNL @ P FLINK SNDAUTO @ P FCOPY ='BATCH S
0x0dc71c…0dc8b0 Dummy {f00=0x0086, f01=0x0190, f02=»T' @ ~ P FLINK FSKIP A P FMEND A P* A , PFBCSTOP FRMT END OF BATCH A 6 P FNL A X P FLINK SNDAUTO A d P FCOPY =C'BATCH SENDT' A z P FLINK FSKIP A P FMEND A P* A PFSKIP FRMT SKIP LINES A P FNL A P FNL A P FNL A P F
0x0dc8b0…0dca44 Dummy {f00=0x0086, f01=0x0190, f02=»FBCTERM FRMT A P FNL B P FLINK SNDAUTO B P FCOPY =C'AFBRUDT' B 6 P FNL B P P FMEND B P* B j PFBCFROM FRMT B t P FNL B P FCOPY =C'FRA: ' B P FMEL 'ZZZZZ9',GSWBCD1 B P FNL B P FMEND B P* B PFBCTO FRMT B P FNL B
0x0dca44…0dcbd8 Dummy {f00=0x0086, f01=0x403a, f02=» B P FMEND C P* C P* C P END C *@ C 6PY =C'AFBRUDT' B 6 P FNL B P P FMEND B P* B j PFBCFROM FRMT B t P FNL B P FCOPY =C'FRA: ' B P FMEL 'ZZZZZ9',GSWBCD1 B P FNL B P FMEND B P* B PFBCTO FRMT B P FNL B
0x0dcbd8…0dcd6c Dummy {f00=0x0086, f01=0x2008, f02=» D NT ADM6 DDUM KMD08 * , PDIV 6 END D@ PCASE R HEND ` T HRUN JESPER M:KMDV p HWEF 3 RGLOAD HMOV RGLOAD,/L HRUN JESPER RGLOAD $ H$PCASC M=M:KMDV,A=RGLOAD,C=CONF4 H$PCASF C=CONF4
0x0dcd6c…0dcf00 Dummy {f00=0x0086, f01=0x018e, f02=» _ A A* % H"" Ex ME yMCH` 4 * & Ib ,aC ` "0 _ M / 5 & * & # x 7%T T T T W + 5 T * & A 8 / C EwH" 9P _#H 5 * & _ " Ex M @$@*@ H` ` a 5 * & } 4 0 4 0 4 0 G 5
0x0dcf00…0dd094 (1, 279) Opaque[0x194]
0x0dd094…0dd228 # DirEnt {nam=»RGADM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0858, f03=0x0000}
0x0dd094…0dd228 IdxSect {
0x0dd094…0dd228 f00 = 0x0042 // 0xdd094 @0x0
0x0dd094…0dd228 f01 = 0x0018 // 0xdd096 @0x2
0x0dd094…0dd228 gno = [ // 0xdd098 @0x4
0x0dd094…0dd228 [0x00]: C0x0042.0x3.0
0x0dd094…0dd228 [0x01]: C0x0043.0x0.0
0x0dd094…0dd228 [0x02]: C0x0043.0x1.0
0x0dd094…0dd228 [0x03]: C0x0043.0x2.0
0x0dd094…0dd228 [0x04]: C0x0046.0x0.0
0x0dd094…0dd228 [0x05]: C0x0055.0x3.0
0x0dd094…0dd228 [0x06]: C0x0056.0x0.0
0x0dd094…0dd228 [0x07]: C0x0056.0x1.0
0x0dd094…0dd228 [0x08]: C0x0056.0x2.0
0x0dd094…0dd228 [0x09]: C0x0057.0x2.0
0x0dd094…0dd228 [0x0a]: C0x0058.0x1.0
0x0dd094…0dd228 [0x0b]: C0x0059.0x1.0
0x0dd094…0dd228 ]
0x0dd094…0dd228 }
0x0dd228…0dd3bc Dummy {f00=0x0042, f01=0x0190, f02=» P IDENT RGADM 840127 EV P DDUM KMD08 " P PDIV 6 P ENTRY ADM D P ENTRY ADMRET V P ENTRY A5RET1 l P ENTRY A5RET2 P EXT A45ELJ P EXT KBTEST P EXT A5KONV P EXT ADM600 P EXT ABORT P EXT EMPTYT
0x0dd3bc…0dd550 Dummy {f00=0x0042, f01=0x0190, f02=»1 P EXT FRMXTA P EXT WTALLY P EXT FRMTKV 2 P EXT CRVO F P EXT TCONFR X P EXT FRMXSP l P EXT SUM P EXT PACKCL P EXT CLEAR8 P EXT SPLIN8 P EXT SLUTID P EXT LAMPON P EXT LAMPOF P
0x0dd550…0dd6e4 Dummy {f00=0x0042, f01=0x0190, f02=»XVO P EXT FRMXJT P EXT KORT P EXT MODP 2 P EXT KVIT D P EXT LSTINT V P EXT SUBTOT j P EXT CYK ~ P EXT DIVTR P EXT TCONFW P EXT RAWRIT P EXT CLSVOL P EXT ASGVOL P EXT WRITID P EXT
0x0dd6e4…0dd878 Dummy {f00=0x0042, f01=0x0190, f02=» ADM FUNCTIONS * P* & $ P* ADM 1 EJ EDB T[LLERE 0 ( P* ADM 2 BEHOLDNINGST[LLERE X * P* ADM 3 OPRETTELSE KONTOPLAN P* ADM 4 " P* ADM 5 KONVERTERING & P* ADM 6 DATATRANSMI
0x0dd878…0dda0c Dummy {f00=0x0042, f01=0x0190, f02=»* ADM 11 SPOERGE ( P* SPG 1 BILAG EJ EDB 4 P* SPG 2 BILAG BEHOLDNINGST[LLERE L , P* SPG 3 BILAG EDB T[LLERE & P* SPG 4 AABNE KASSER , P* SPG 5 UDSKRIFT KONTOPLAN
0x0dda0c…0ddba0 Dummy {f00=0x0042, f01=0x0190, f02=»POSTERINGER r * P* SPG 9 -"- GL. REGSET . P* SPG 10 SPG. PRINT INTERVAL B * P* SPG 11 -"- GL. REGSET t $ P* ADM 12 DISKETTE SKIFT P* ADM 13 AUTOSUM P* ADM 14 DAGS DATO
0x0ddba0…0ddd34 (1, 280) Dummy {f00=0x0043, f01=0x0190, f02=» REGNEFUNKTION P* ADM 20 CHECKCIFFER P* ADM 21 TEST MODE > 2 P* ADM 22 [NDRE EKSP LBNR (NOT IN USE) ` P* ADM 23 MODPOST P* ADM 24 KONTOKORT P* ADM 25 KVITTERING " P* ADM 26
0x0ddd34…0ddec8 Dummy {f00=0x0043, f01=0x0190, f02=» P* ADM 30 CYCLE SLUT * P* ADM 31 CYCLE 1 START (CYCLE) ( , P* ADM 32 CYCLE 2 START (STABEL) V P* ADM 33 4 P* ADM 34 4 CYCLE, PAUSE IN CYCLE/STABEL " P* ADM 35 DIVERSE TRANS ( P* ADM 45
0x0ddec8…0de05c Dummy {f00=0x0043, f01=0x0190, f02=» P* , P* BRANCH TO SELECTED ADM ROUTINE P* > P******************* H P TBT GTLOKSPG,ADM002 d P MOVE GSWSTR9,=C'TOTAL ' P TBF GTSPGFLG,ADM001 P MOVE GSWSTR9,=C'SUBTOTAL ' PADM001 P MOVE GSWBIN1,ADMNO
0x0de05c…0de1f0 Dummy {f00=0x0043, f01=0x0190, f02=»ADM18,ADM19,ADM20,ADM21,ADM22,ADM23,ADM24, C : P ADM25,ADM26,ADM27,ADM28,ADM29,ADM30,ADM31,ADM32, C 6 P ADM33,ADM34,ADM35, C t , P ADM00,ADM00,ADM00,ADM00,ADM00, 36,40 C * P ADM00,ADM00,ADM00,ADM00,ADM45 41,45 P B ADM00 P*
0x0de1f0…0de384 Dummy {f00=0x0043, f01=0x0190, f02=»BIN1,=W'22' ADJUST " P IB GSWBIN1,ADM23,ADM24,ADM25 PADM00 @ P B ADMRET N P EJECT ` P* n P* x PADM1 P* EJ-EDB TAELLERE * PADM1000 P SET GTADMFLG P TBT GTKASSE,ADM1RET P MOVE SPKEY,CBIN2 P S
0x0de384…0de518 Dummy {f00=0x0043, f01=0x0190, f02=» l P B ADM1000 PADM1020 P TBF GTDYFLG,ADM1RET * P CLEAR GTDYFLG F P B ADM1010 PADM1RET n P CLEAR GTADMFLG ~ P CLEAR GTDYFLG P B ADMRET P* P* PADM2 P* BEHOLDNINGSTAELLERE * PADM2000
0x0de518…0de6ac Dummy {f00=0x0043, f01=0x0190, f02=» SPPROMPT P SET GTDYFLG P ATTFMT ADM2FRM1 & P PERF SPCLRN > ( P IB SPBINW2,ADM2RET,ADM2RET,ADM2020 R P B ADM2000 ~ PADM2020 P PERF PACKCL . P MOVE GTDUPF(CBIN5),=D'2' ADM FUNCTION NO * P MOVE GTDUPF(CBIN2),GSWBCD1 COUNTE
0x0de6ac…0de840 Dummy {f00=0x0043, f01=0x0190, f02=»TDYFLG P SET SPPROMPT P ATTFMT ADM2FRM1 $ P PERF SPCLRN < ( P IB SPBINW2,ADM2RET,ADM2RET,ADM2030 P P B ADM2000 | PADM2030 4 P CBE GTDUPF(CBIN1),CBACC(GSWBIN6,CBIN1),ADM2040 2 P MOVE CBACC(GSWBIN6,CBIN2),=D'0' CLEAR PERIODE
0x0de840…0de9d4 (1, 281) Dummy {f00=0x0043, f01=0x0190, f02=» | P PERF WRITLO,CBIN7 PADM2RET " P CLEAR GTADMFLG 2 P CLEAR GTDYFLG J P B ADMRET ` P* r P* | PADM3 P* OPRETTELSE KONTOPLAN $ P B KTOPR BRANCH TO OTHER MODULE P* P* PADM4 P* DUMMY *
0x0de9d4…0deb68 Dummy {f00=0x0043, f01=0x018e, f02=» BP ADMRET P SET CCONVFLG P CLEAR SPKEYFLG ( P TEST GTKASSE @ P BNZ ADM05RET BRANCH IF TRUE V P CMP TTASKNR,CBIN1 z P BNE ADM05RET P CMP CTASKNR,CBIN0 P BNE ADM05RET P SET SPPROMPT P MOVE SPKEY,CBIN2
0x0deb68…0decfc Dummy {f00=0x0043, f01=0x0190, f02=» P AND CLOSE ALL FILES PADM0510 " . P TBT CCONVERT,ADM0513 NO WRITE IF CONVERT 2 P SUB CRECBCD,=D'1' d P PERF SLUTID,CPCKBUF,CRECBCD ~ P ADD CRECBCD,=D'1' * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR P BNOK ADM0500 $ P PERF WR
0x0decfc…0dee90 Dummy {f00=0x0043, f01=0x0190, f02=»N2 P MOVE CRECNR,CBIN1 P MOVE CRECBCD,=D'1' $ P PERF LAMPOF,=W'2047' @ P PERF LAMPON,=W'64' LAMP 5 ^ PADM0514 P PERF LAMPON,=W'32' LAMP 6 P PERF LAMPON,=W'16' LAMP 7 P PERF LAMPON,=W'2' LAMP 10 PADM0515 P P
0x0dee90…0df024 Dummy {f00=0x0043, f01=0x0190, f02=»2,ADM05001 l PADM05001 PADM05002 " PADM05003 2 PADM05004 B PADM05008 R PADM05009 b P B ADM0515 r P* PADM05010 LAMP 10 P B ADM0513 CLOSE AND SOPRD P* P* P* P* P* PADM05005 S
0x0df024…0df1b8 Dummy {f00=0x0043, f01=0x0190, f02=» P* P* * P* EQUVALENT TO END OF ADM5 MODULE P* J P* T PADM05006 SOP 6 ^ P TBT C5MDISK,A05006A v * P PERF ASGVOL,CBIN1 ASSIGN SYSTEM DISK P BNOK ADM0513 PA05006A $ P PERF BCKUP,=W'1' WITHOUT BACKUP
0x0df1b8…0df34c Dummy {f00=0x0043, f01=0x018e, f02=»05007A P PERF ASGVOL,CBIN1 P BNOK ADM0513 ( PA05007A > " P PERF BCKUP,=W'2' WITH BACKUP N P BNOK ADM0513 t P B ADM05RET P* P* P* P* P* PADM05RET P PERF LAMPOF,=W'2047' P SET SPKEY
0x0df34c…0df4e0 Dummy {f00=0x0043, f01=0x0190, f02=» P* PADM7 P* P* DUMMY *** ( P B ADMRET D P* V P* ` PADM8 j P* v P* DUMMY *** P B ADMRET P* P* PADM9 P******************** P* & P* SET DEFAU
0x0df4e0…0df674 (1, 282) Dummy {f00=0x0043, f01=0x0190, f02=»FAULT LINE r P SET SPPROMPT P PERF SPCLRN ( * P IB SPBINW2,ADM09RET,ADM09RET,ADM0910 < P B ADM0900 j PADM0910 | P CLEAR SPPROMPT P MOVE GTDFLIN,GSWBCD5 PADM09RET P CMP CBIN0,CBIN0 SET CR = 0 P B ADMRET P
0x0df674…0df808 Dummy {f00=0x0043, f01=0x0190, f02=» INFORMATION n P* P******************** P TBT TTSUPFLG,SUPL10 : P MOVE GSWBCD1,GTDATO DDMMYY V P DIV GSWBCD1,=D'100' DDMM z P MOVE GSWBCD2,GTDATO " P DIV GSWBCD2,=D'10000' DD P MUL GSWBCD2,=D'100' DD00 P SUB
0x0df808…0df99c Dummy {f00=0x0043, f01=0x0190, f02=»PL02 P SET TTSUPFLG P MOVE TTSUPMRK,=C'N' " P B SUPLOK > PSUPL04 P PSUPL10 ^ P MOVE TTSUPMRK,=C' ' l P CLEAR TTSUPFLG PSUPLOK P SET GTREGFLG P PERF SPINF1 PADM10RET $ P CMP CBIN0,CBIN0 SET CR = 0, OK
0x0df99c…0dfb30 Dummy {f00=0x0043, f01=0x018e, f02=»FMT SPGFM00 P SET SPPROMPT P SET GTSPGFLG * P MOVE GSWSTR9,=C'SUBTOTAL ' @ P PERF SPCLRA d * P IB SPBINW2,ADM11RET,ADM11RET,ADM1110 x P B ADM11RET PADM1110 P MOVE GSWBIN1,GSWBCD3 0 P IB GSWBIN1,SPGL01,SPGL02,SPGL03
0x0dfb30…0dfcc4 Dummy {f00=0x0043, f01=0x0190, f02=» P B ADM11RET P* PSPGL02 & P PERF CLBEH 4 P B ADM11RET H P* PSPGL03 f P PERF CLEDB t P B ADM11RET P* PSPGL04 P MOVE GSWBCD3,CTASKNR P SET SPPROMPT P ATTFMT SPGFM04 P PERF SP
0x0dfcc4…0dfe58 Dummy {f00=0x0043, f01=0x0190, f02=»HOLDNINGST[LLERE ~ P B ADM11RET PSPGL07 , P MUL TTEJEDB,=D'-1' VEND : P MOVE GSWBCD6,TTCASH Z P ADD GSWBCD6,TTEJEDB v P SET SPPROMPT P ATTFMT SPGFM17 P PERF SPCLRA $ P MUL TTEJEDB,=D'-1' VEND TILBAGE P B ADM11RET
0x0dfe58…0dffec Dummy {f00=0x0043, f01=0x0190, f02=» BZ SPG08MAK ONLY IF 'KASSE FUNCTIONS P CLEAR GTGLSPG . PSPG0805 D P SET SPPROMPT T " P ATTFMT SPGFM08 INQUIRY FORMAT j P PERF SPCLRA < P* GTLBNRIN CONTAINS FIRST (OR ONLY) TRANSACTION 2 P* OF INTEREST (EKSP
0x0dffec…0e0180 Dummy {f00=0x0043, f01=0x018e, f02=»D X P* * P IB SPBINW2,SPG08MAK,SPG08MAK,SPG0810 P B SPG0805 B P* T $ PSPG0810 SPG-CONDITION ENTERED ^ P MOVE SPKEY,CBIN3 P SET GTLOKSPG P TBT GTGLSPG,SPG0815 0 P MOVE GTRECNR,CRECNR POINT TO START OF DSET P B
0x0e0180…0e0314 (1, 283) Dummy {f00=0x0046, f01=0x018e, f02=» P CBNG GTRECNR,CBIN1,SPG08RET P PERF KBTEST , " P BOK SPG08RET QUIT IF MAK KEY @ P TBT GTGLSPG,SPG0825 f P NEW REGSET " P CBNL GTRECNR,CRECNR,SPG08RET ( P PERF RGREAD,DK02,=D'2' READ RECORD " P BNOK SPG0820 IF TRANS 11, OR
0x0e0314…0e04a8 Dummy {f00=0x0046, f01=0x018e, f02=» $ P CBNL GTRECNR,CGLRECNR,SPG08RET ( P PERF RGREAD,DK05,=D'5' READ RECORD 0 " P BNOK SPG0820 IF TRANS 11, OR P TR >= 12, OR P NOT SAME MACHINE, OR P DISK ERROR PSPG0828 P* P* SAME MACHINE: P*
0x0e04a8…0e063c Dummy {f00=0x0046, f01=0x0190, f02=» v . P* GTLBNR EKSP. OF CURRENT RECORD . P* GTUSED SAT FOR PRESENT FIELDS : * P* GTDUPF - - - - l * P* GTREGF - - - - 2 P* DEB/KRE RELEVANT ROUTINE PERFORMED P* G
0x0e063c…0e07d0 Dummy {f00=0x0046, f01=0x0190, f02=»830 IF NO SPECIFIC EKSP. P CBE GTLBNRIN,=D'0',SPGFOUND ! . P CMP GTLBNR,GTLBNRIN ACTUAL - WANTED EKSP. ! D $ P BL SPG0830 WANTED EKSP. PASSED ! v P BE SPG0840 FOUND ! P* NOT YET FOUND ! P* JUMP TO FIND RECORD ! P MOVE GSWBCD3,GTLB
0x0e07d0…0e0964 Dummy {f00=0x0046, f01=0x0190, f02=» P B SPG0822 " P* " PSPG0830 " 0 P CBE GSWBCD6,=D'0',SPG08RET NO FIELDS WANTED " 0 P B SPG0850 SEARCH FIELD " d P* " PSPG0840 " , P CBE GSWBCD6,=D'0',SPGFOUND RECORD FOUND " P* " PSPG0850 CHECK FIELD " * P MOVE GSWBIN1,GSWB
0x0e0964…0e0af8 Dummy {f00=0x0046, f01=0x0190, f02=»LD PRESENT " p P MUL GSWBIN2,=W'-1' # . P CBE GSWBIN1,GSWBIN2,SPG0860 FIELD PRESENT # . P B SPG0820 FIELD NOT PRESENT # ` P* # " PSPG0860 CHECK FIELD CONTENT # " P MOVE GSWBIN2,CFLTDEX(GSWBIN1) # * P CBNE GSWBCD7,GTDUPF(GSWBIN2),SPG0820 # P
0x0e0af8…0e0c8c Dummy {f00=0x0046, f01=0x018e, f02=»E TTDBKRM,=C'D' # PSPG0870 $ P* $ ( P CLEAR TTSUPFLG $ 2 P MOVE TTSUPMRK,CBLANKS $ J & P CBNE GTUSED(CBIN6),CBIN10,SPG0880 $ h P MOVE TSWBCD2,GTDATO $ P MOVE GSWBCD1,GTDUPF(CBIN6) $ P SUB GSWBCD1,TSWBCD2 $ P BZ SPG0880 SAME YEAR $
0x0e0c8c…0e0e20 Dummy {f00=0x0046, f01=0x0190, f02=» P MOVE TTSUPMRK,=C'N' % PSPG0880 % P* % 0 P PERF TRPAGE % : " P SET GTDIVTR SET DIVERSE TRANS % N P CLEAR GTREGFLG % t P* % P B ADM11RET % P* % PSPG08RET % P MOVE SPKEY,CBIN1 % P CLEAR GTLOKSPG % P CLEAR TTSUPFLG %
0x0e0e20…0e0fb4 (1, 284) Dummy {f00=0x0055, f01=0x0190, f02=» CGLREGFL,SPG09MAK ALLOWED? % * P TBF GTKASSE,SPG09MAK ONLY IF 'KASSE' & $ $ P SET GTGLSPG INDICATE OLD REGSET & R P B SPG0805 & z PSPG09MAK & P B ADM11RET & P* & P* & P* & 2 P* PRINT OUT OF SPECIFIED TRANSACTIONS & P* &
0x0e0fb4…0e1148 Dummy {f00=0x0055, f01=0x018e, f02=»IN LISTE & ~ P TEST GTKASSE ' * P BZ SPG10MAK ONLY IF 'KASSE FUNCTIONS ' & * P CLEAR GTGLSPG INDICATE CURRENT REGSET ' T PSPG1005 ' P SET SPPROMPT ' " P ATTFMT SPGFM10 SCREEN FORMAT ' P PERF SPCLRA ' < P* GTLBNRIN HIGHEST EKS.LBNR WANT
0x0e1148…0e12dc Dummy {f00=0x0055, f01=0x0190, f02=» P* ( PSPG1010 ( P SET GTLOKSPG ( ( P CLEAR TTTSTFLG INITIATE FIRST TIME ( 4 P TBT GTGLSPG,SPG1015 ( ` . P MOVE GTRECNR,CRECNR POINT TO LAST RECORD ( | P B SPG1020 ( PSPG1015 ( P MOVE GTRECNR,CGLRECNR ( PSPG1020 ( & P SUB GTREC
0x0e12dc…0e1470 Dummy {f00=0x0055, f01=0x0190, f02=»BNL GTRECNR,CRECNR,SPG1090 ( ( P PERF RGREAD,DK02,=D'2' READ RECORD ) " P BNOK SPG1020 IF TR 11, OR ) N P TR >= 12, OR ) p P NOT SAME MACHINE, OR ) P DISK ERROR ) P B SPG1028 ) PSPG1025 ) P OLD REGSET ) " P CBNL GTRECNR,CGLR
0x0e1470…0e1604 Dummy {f00=0x0055, f01=0x018e, f02=»CHINE, OR ) P DISK ERROR * PSPG1028 * ( ( P CBL GTLBNR,GSWBCD7,SPG1090 TOO FAR * 8 . P CMP GTLBNR,GTLBNRIN ACTUAL - WANTED EKSP. * d $ P BL SPG1040 WANTED EKSP. PASSED * P BE SPG1040 FOUND * P* NOT YET FOUND * P MOVE GSWBCD3,GTLBNR
0x0e1604…0e1798 Dummy {f00=0x0055, f01=0x018e, f02=» P B SPG1022 + P* + PSPG1040 + P MOVE TTDBKRM,=C'K' + 0 P CBE TTDKDEX,CBIN1,SPG1060 + L P MOVE TTDBKRM,=C'D' + n PSPG1060 + P CLEAR TTSUPFLG + P MOVE TTSUPMRK,=C' ' + & P CBNE GTUSED(CBIN6),CBIN10,SPG1070 + P MOVE TSWBCD2,GT
0x0e1798…0e192c Dummy {f00=0x0055, f01=0x0190, f02=» P MOVE TTSUPMRK,=C'G' , P B SPG1070 , PSPG1065 , 2 P SET TTSUPFLG , B P MOVE TTSUPMRK,=C'N' , X PSPG1070 , t P TBT TTTSTFLG,SPG1080 , P SET TTTSTFLG , * P PERF SPLIN8,CBIN5,CBIN2 WRITE 'BILAG' , P PERF GRASPV , P PERF CLEAR8 ,
0x0e192c…0e1ac0 Dummy {f00=0x0055, f01=0x0190, f02=»SWBIN1 POSITION VOUCHER , ~ P PERF FRMTKV GET FORMAT - P EDWRT KVOUCH,GTSTRFMT WRITE - @ P PERF CRVO - d " P ADD TTLINNR,=D'2' ONE LINE UP - v P MOVE GSWBIN1,TTLINNR - . P CBG GSWBIN1,CMAXLIN,SPG1090 NO MORE LINES - " P SUB GTLBNRIN,=D'1' NEXT LBN
0x0e1ac0…0e1c54 (1, 285) Dummy {f00=0x0056, f01=0x0190, f02=»M,=C' ' - P WAIT KVOUCH . P DSC0 KVOUCH,RLEAS . $ PSPG10RET . > P CLEAR GTLOKSPG . N PSPG10MAK . f P B ADM11RET . v P* . P* . ( PSPGL11 PRINT INTERVAL, OLD REGSET . $ P TBF CGLREGFL,SPG11MAK ALLOWED? . & P TBT GTCYFLG,SPG11MAK
0x0e1c54…0e1de8 Dummy {f00=0x0056, f01=0x0190, f02=»1005 . PSPG11MAK / P B ADM11RET / P* / 0 P* / : P* / D P* / N PADM11RET / X P CLEAR GTSPGFLG / h P MOVE GSWSTR9,=C' ' / P B ADMRET / P* / P* / PADM12 / P* FLOPPY DISC EXCHANGE * / P TBT GTTESTFL,ADM12RET /
0x0e1de8…0e1f7c Dummy {f00=0x0056, f01=0x0190, f02=»DNR / ~ PADM1205 0 P MOVE GSWBCD2,CRECNR 0 P 0 8 P SET SPPROMPT 0 @ P ATTFMT ADM12FRM 0 V P PERF SPCLRA 0 n * P IB SPBINW2,ADM12RET,ADM12RET,ADM1210 0 P B ADM12RET 0 PADM1210 0 P SET CSKIFTFL 0 P PERF SKIFT 0 P B ADM12RE
0x0e1f7c…0e2110 Dummy {f00=0x0056, f01=0x0190, f02=» CWFLAG,FDEXIT 0 . P PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' 1 PFD10 1 H P DELAY CBIN20 WAIT A SECOND 1 T P TBT CSKIFTFL,FD10 FINISHED? 1 x P YES 1 P MOVE GSWBIN1,CBIN11 1 P PERF FRMXJT,GSWBIN1 1 P WAIT KJTAPE 1 P EDWRT .NW,KJTAPE,
0x0e2110…0e22a4 Dummy {f00=0x0056, f01=0x0190, f02=»L ABORT,KJTAPE 1 P* 2 PFDEXIT 2 PADM12RET 2 . P B ADMRET 2 > P* 2 P P* 2 Z PADM13 2 d 2 P********************************************* 2 r P* 2 & P* SET CLEAR AUTOSUM FLAG 2 P* 2 4 P**********************************
0x0e22a4…0e2438 Dummy {f00=0x0056, f01=0x0190, f02=» 2 PADM13CL 3 " P CLEAR GTASUMFL CLEAR AUTOSUM 3 PADM13OK 3 > P CMP CBIN0,CBIN0 3 N P B ADMRET 3 f P* 3 x P* 3 PADM14 3 4 P*********************************************** 3 P* 3 " P* SET 'DAGS DATO' 3 P* 3
0x0e2438…0e25cc Dummy {f00=0x0056, f01=0x0190, f02=» SET SPPROMPT 3 P SET SPME 4 P MOVE GSWBCD3,=X'FF' 4 ( PADM1410 4 D P ATTFMT OPENFRM 4 T P PERF SPCLRN 4 l * P IB SPBINW2,ADM14000,ADM14000,ADM14RET 4 P B ADM14000 4 PADM14RET 4 P CLEAR SPME 4 P CLEAR GTDYFLG 4 P B ADMRET 4
0x0e25cc…0e2760 Dummy {f00=0x0056, f01=0x0190, f02=» 4 P* 5 P* 5 PADM17 5 0 P******************************************* 5 * P* 5 ^ ( P* SET NEW 'KASSEKONTONR' 5 h P* 5 0 P******************************************* 5 P* 5 PADM17000 5 P TBT GTKASSE,ADM17RET 5
0x0e2760…0e28f4 (1, 286) Dummy {f00=0x0056, f01=0x0190, f02=»UNCTION NO 5 p P MOVE GTDUPF(CBIN1),TTCASHAC 6 P MOVE GTDUPF(CBIN4),TTSTCASH 6 6 P ATTFMT ADM17FRM 6 Z P PERF SPCLRN 6 r & P CBE GTDUPF(CBIN1),=D'0',ADM17000 6 * P IB SPBINW2,ADM17RET,ADM17RET,ADM1730 6 P B ADM17000 6 PADM1730 6 P MOVE
0x0e28f4…0e2a88 Dummy {f00=0x0056, f01=0x0190, f02=» B ADMRET 6 P* 7 P* 7 PADM18 7 & P* SET NEW VERSURKONTONR 7 4 PADM18000 7 T P VERSUR KONTONR 7 d P TBT GTKASSE,ADM18RET 7 ~ P MOVE SPKEY,CBIN2 7 P SET SPPROMPT 7 P ATTFMT ADM18FRM 7 P PERF SPCLRN 7 P CBE TVERSUR,=D'
0x0e2a88…0e2c1c Dummy {f00=0x0056, f01=0x0190, f02=» PADM19 8 P******************** 8 P* 8 . P* CALCULATOR FUNCTION 8 8 P* 8 Z P******************** 8 d PCALCBEG 8 P MOVE SPKEY,CBIN1 8 * P MOVE GSWBCD2,=D'0' TOTAL=0 8 & P MOVE GSWBCD1,=D'0' NUMBER=0 8 ( P PERF
0x0e2c1c…0e2db0 Dummy {f00=0x0056, f01=0x0190, f02=» 8 PCALCNEXT 9 P CLEAR SPPROMPT 9 P PERF SPCLRN 9 0 PCALCFRST 9 D 2 P IB SPBINW2,CALCNEXT,CALCNEXT,CALCADD,CALCNEG 9 T P CBE SPBINW2,=W'7',CALCSUB 9 P CBE SPBINW2,=W'15',CALCTOT 9 P B CALCNEXT 9 PCALCNEG 9 P MUL GSWBCD1,=D'-1
0x0e2db0…0e2f44 Dummy {f00=0x0056, f01=0x0190, f02=»N TALLY 9 x P B CALCNEXT : PCALCSUB : $ P MOVE GSWBCD6,GSWBCD2 : 4 P MOVE GSWSTR9,=C'SUBTOTAL ' : R P PERF FRMXTA,CBIN3 : v & P PERF WTALLY SUBTOTAL ON TALLY : P B CALCNEXT : PCALCTOT : P MOVE GSWBCD6,GSWBCD2 : P MOVE GSWSTR
0x0e2f44…0e30d8 Dummy {f00=0x0056, f01=0x0190, f02=»ERF SPCLRA TOTAL ON SCREEN : P CBE SPBINW2,=W'3',CALCBEG ; $ P B ADMRET ; F P* ; X P* ; b PADM20 ; l 8 P**************************************************** ; z P* ; 0 P* CONTROLDIGIT-VALUE CALCULATION ; P* ; 8 P**********
0x0e30d8…0e326c Dummy {f00=0x0056, f01=0x0190, f02=»1 ; P PERF SPCLRA GET NUMBER < " P CBNE SPBINW2,=W'3',CALCDRET < , P CBE GSWBCD5,=D'10',CALCD06 < R 6 P EDWRT .NW,KTALLY,CCDFRM03 CONTROLDIGIT ON TALLY < v P CLEAR GTDYFLG < PCALCD05 < P ATTFMT CCDFRM02 < * P PERF SPCLRA CONTROLDIG
0x0e326c…0e3400 Dummy {f00=0x0056, f01=0x0190, f02=» CALCD05 < P* = PCALCDRET = P CLEAR GTDYFLG = * P B ADMRET = @ P* = R P* = PADM21 = f P******************** = t P* = " P* SET/CLEAR TEST MODE = " P* (NO WRITE ON DISKS = . P* T ON JOURNAL, VOUCHER,
0x0e3400…0e3594 (1, 287) Dummy {f00=0x0056, f01=0x0190, f02=»TKASSE,ADM21RET = P TBT GTTESTFL,ADM2150 > P PERF WRITJT,=W'9' > 6 P PERF WRITLO,CBIN3 > P P PERF TCONFW,TTASKNR > j P MOVE GTTESTMK,=C'T' > P SET GTTESTFL > P B ADM21RET > PADM2150 > P PERF WRITJT,=W'10' > P PERF WRITLO,CBI
0x0e3594…0e3728 Dummy {f00=0x0056, f01=0x0190, f02=» > PADM22 ? P********** ? P* ? ( P* ? 2 P********** ? < , P TBF CADM22F,ADM22RET FUNCTION ALLOWED? ? N ( P TBT GTKASSE,ADM22RET KASSE CLOSED? ? ~ P MOVE SPKEY,CBIN2 ? P MOVE GSWBCD5,TTSTLBNR ? P MUL GSWBCD5,=D'-1' ? PADM2200 ?
0x0e3728…0e38bc Dummy {f00=0x0056, f01=0x0190, f02=»ADM2210 ? P MUL GSWBCD5,=D'-1' @ P MOVE TTSTLBNR,GSWBCD5 @ , PADM22RET @ J P B ADMRET @ Z P* @ l P* @ v PADM23 @ P* MODPOSTERING * @ P PERF MODP @ P B ADMRET @ P* @ PADM24 @ P* KONTOKORT * @ P PERF KORT @
0x0e38bc…0e3a50 Dummy {f00=0x0056, f01=0x0190, f02=»* @ P PERF SUM A P B ADMRET A P* A . PADM27 A 8 P* LISTE * A F P PERF LSTINT A X P B ADMRET A l P* A ~ PADM28 A P* SUBTOTAL * A P PERF SUBTOT A P B ADMRET A P* A PADM29 A P******************** A P* A
0x0e3a50…0e3be4 Dummy {f00=0x0056, f01=0x0190, f02=»,CBIN2 ASK FOR 'BILAG' A ~ P PERF GRASPV AND GRASP B P PERF CLEAR8 B < P MOVE GSWBIN1,CVOUTOP B P PADM2910 B n P CBL GSWBIN1,CBIN6,ADM29RET B ~ . P DSC1 KVOUCH,POS,GSWBIN1 POSITION ON LINE B " P PERF FRMXVO,CBIN16 GET FORMAT B P EDWRT KVOUCH,
0x0e3be4…0e3d78 Dummy {f00=0x0056, f01=0x0190, f02=»ADM30 B P* CYCLE END C P PERF CYK,CBIN10 C " P B ADMRET C : P* C L PADM31 C V P* CYCLE START * C d P PERF CYK,CBIN1 C | P B ADMRET C P* C PADM32 C P* STABEL START * C P PERF CYK,CBIN2 C P B ADMRET C P* C
0x0e3d78…0e3f0c Dummy {f00=0x0056, f01=0x0190, f02=» P B ADMRET D P* D PADM35 D P* VARIOUS TRANSACTIONS * D . P PERF DIVTR D N P B ADMRET D b P* D t P* D ~ PADM45 D P* ELEKTRONISK JOURNAL D P B A45ELJ D P* D P* D P* D P* D P* END OF ADM FUNCTIONS
0x0e3f0c…0e40a0 Dummy {f00=0x0056, f01=0x018e, f02=»********************* D t P* E P* FORMATS E ( P* E B 6 P************************************************* E L P* E PFMTFKI FRMT E P FNL E P FKI 1 E P FMEL 'B',TSWBCD2 E P FMEND E P* E PKONFRMT FRMT E P FSL
0x0e40a0…0e4234 (1, 288) Dummy {f00=0x0057, f01=0x0190, f02=» E P FCOPY ='KORREKT' F P FILLR '?',1 F " P FILLR X'07',1 F 6 P FLINK FMTFKI F L P FMEND F b P* F p POPENFRM FRMT F z P FSL F P FCOPY ='ADM ' F P FBT GTDYFLG,OPFR05 F P FTAB 1 F P FCOPY =C'KASSE]BNING' F POPFR05 F
0x0e4234…0e43c8 Dummy {f00=0x0057, f01=0x018e, f02=»9',CMASKDAT F P FNL G P FCOPY =C'DAG NR' G & P FKI 11,MINL=1,MAXL=3,ME,APPL=102 G : P FMEL 'ZZZ',CRELDAY G d P FNL G POPFR10 G P FCOPY ='POST-DATO' G 2 P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,APPL=107 G P FMEL '99E-99E-99',GTDATO G
0x0e43c8…0e455c Dummy {f00=0x0057, f01=0x0190, f02=» P FCOPY ='EJ-EDB T[LLER ' H P FNL H $ P FCOPY ='NR' H 0 P FILLR ' ',2 H D P FCOPY ='KONTONR' H X P FNL H r P FBF GTDYFLG,AFRM20 H ~ $ P FKI 1,MINL=3,MAXL=3,ME,APPL=100 H PAFRM20 H P FMEL 'ZZZ',GSWBCD1 H P FBT GTDYFLG,AFRM10 H * P
0x0e455c…0e46f0 Dummy {f00=0x0057, f01=0x0190, f02=»M1 FRMT H P FSL I P FBT GTSPGFLG,ADML0201 I P FCOPY ='ADM ' I : PADML0201 I R P FTAB 6 I b P FCOPY ='BEHOLDNINGST[LLERE' I r P FNL I P FCOPY ='NR' I P FILLR ' ',2 I P FCOPY ='KONTONR' I P FILLR ' ',6 I P FCOPY =C'SALDO'
0x0e46f0…0e4884 Dummy {f00=0x0057, f01=0x0190, f02=»5 I P FBT GTDYFLG,AFRM210 J P FBT GTSPGFLG,AFRM225 J & P FBT GTTESTFL,AFRM225 J D " P FKI 5,MAXL=10,ME,SCHK=1,REWRT J b PAFRM225 J & P FMEL 'ZZZZZZZZE-ZZ',GTDUPF(CBIN1) J P FTAB 18 J P FBT GTSPGFLG,AFRM230 J P FBT GTTESTFL,AFRM230 J
0x0e4884…0e4a18 Dummy {f00=0x0057, f01=0x0190, f02=»AFRM210 J P FMEND K P* K PADM17FRM FRMT K ( P FSL K > P FBT GTSPGFLG,ADML1705 K J P FCOPY ='ADM ' K h PADML1705 K P FTAB 6 K P FCOPY ='KASSE-KONTO ' K P FNL K P FCOPY ='KONTONR' K P FILLR ' ',6 K P FCOPY ='SALD0'
0x0e4a18…0e4bac Dummy {f00=0x0057, f01=0x0190, f02=»IN1) K r P FKI 14,MAXL=14,REWRT,SCHK=4 L . P FMEL 'TTT.TTT.TTT.TT9.99-',GTDUPF(CBIN4) L 0 P FBF GTSPGFLG,ADM1702 L b P FLINK FMTFKI L PADM1702 L P FMEND L P* L PADM18FRM FRMT L P FSL L P FCOPY ='ADM ' L $ P FCOPY ='VERSUR
0x0e4bac…0e4d40 Dummy {f00=0x0057, f01=0x0190, f02=»VERSUR L z P FMEND M P* M PADM12FRM FRMT M & P FSL M < P FCOPY ='DISK SKIFT ' M H P FBF CBCACTVF,F12100 M f P FNL M P FCOPY =C'AUTOMATISK ' M P FCOPY =C'DATATRANSMISSION ' M P FBT CBCSENDF,F12050 M P FCOPY =C'AKTIV ' M P F
0x0e4d40…0e4ed4 (1, 289) Dummy {f00=0x0058, f01=0x0190, f02=»2 M | P FNL N PF12100 N P FILLR X'07',1 N $ P FLINK FMTFKI N : P FMEND N P P* N ^ PSPGFM00 FRMT N h P FSL N | P FCOPY ='KLAR ' N P FLINK SPGFMSPG N P FKI 13,MINL=1,MAXL=2 N P FMEL 'ZZ',GSWBCD3 N P FMEND N P* N P
0x0e4ed4…0e5068 Dummy {f00=0x0058, f01=0x0190, f02=» P FNL O P FMEL '99',GSWBCD3 O P FCOPY =' ]BNE KASSER' O * P FNL O J P FMEL 'BBZZZ-',CMASK(CBIN1) O V P FMEL 'BBZZZ-',CMASK(CBIN2) O z P FMEL 'BBZZZ-',CMASK(CBIN3) O P FMEL 'BBZZZ-',CMASK(CBIN4) O P FNL O P FMEL 'BBZZZ-',CMASK(C
0x0e5068…0e51fc Dummy {f00=0x0058, f01=0x0190, f02=»MEL 'BBZZZ-',CMASK(CBIN9) O P FMEL 'BBZZZ-',CMASK(CBIN10) P " P FMEL 'BBZZZ-',CMASK(CBIN11) P F P FMEL 'BBZZZ-',CMASK(CBIN12) P j P FLINK FMTFKI P P FMEND P P* P P* P PSPGFM08 FRMT P P FSL P P FLINK SPGFMSPG P P FBF GTGLS
0x0e51fc…0e5390 Dummy {f00=0x0058, f01=0x0190, f02=»IN P | P FNL Q P FCOPY =C'REGKONTONR' Q 2 P FKI 14,MINL=10,MAXL=10,SCHK=1,REWRT,APPL=108 Q 4 P FMEL 'XXXXXXXXE-XX',GSWBCD7 Q j P FNL Q P FCOPY =C'CPR/CIR/NR' Q 0 P FKI 14,MINL=7,MAXL=10,SCHK=1,REWRT,APPL=109 Q P FMEL 'XXXXXXE-XXXX',GSWBCD7
0x0e5390…0e5524 Dummy {f00=0x0058, f01=0x018e, f02=» P FCOPY =C' DIVERSE' R P FKI 14,MAXL=2,APPL=111 R P FMEL 'XX',GSWBCD6 R @ P FKI 18,MAXL=13,SCHK=4,REWRT R Z " P FMEL 'TTTTTTTTTTTTX-',GSWBCD7 R ~ P FNL R P FLINK FMTEND R P FMEND R P* R PSPGFM10 FRMT R P FSL R P FLINK SPG
0x0e5524…0e56b8 Dummy {f00=0x0058, f01=0x0190, f02=» R z P FILLR ' ',1 S P FTEXT C'FRA' S P FKI 20,MAXL=5,ME S 2 P FMEL 'XXXXX',GSWBCD7 S L P FNL S j P FTAB 16 S v P FTEXT C'TIL' S P FKI 20,MAXL=5,ME S P FMEL 'XXXXX',GTLBNRIN S P FNL S P FLINK FMTEND S P FMEND S P* S
0x0e56b8…0e584c Dummy {f00=0x0058, f01=0x0190, f02=» S P FNL T P FKI 1,MAXL=1,APPL=90,VERIF T P FMEL 'B',TSWBCD2 T 8 P FMEND T R P* T ` P* T j PSPGFM17 FRMT T t P FSL T P FTAB 6 T P FCOPY ='KASSE-KONTO ' T P FNL T P FCOPY ='KONTONR' T P FILLR ' ',6 T P FCOPY ='SAL
0x0e584c…0e59e0 Dummy {f00=0x0058, f01=0x0190, f02=»PY ='EJ EDB' T P FTAB 14 U ( P FMEL 'ZZZ.ZZZ.ZZZ.ZZ9.99-',TTEJEDB U $ P FNL U P P FTAB 14 U ( P FMEL 'ZZZ.ZZZ.ZZZ.ZZ9.99-',GSWBCD6 U l P FLINK FMTFKI U P FMEND U P* U $ P* CALCULATION-FORMATS U P* U P* U PCALFRM
0x0e59e0…0e5b74 (1, 290) Dummy {f00=0x0059, f01=0x0190, f02=» U ^ $ P FMEL 'TTT.TTT.TTX.XX-',GSWBCD1 V P FMEND V 0 P* V > P V H PCALFRM05 FRMT V P P FSL V f P FCOPY =C'REGNEFUNKTION' V r P FNL V P FNL V P FCOPY =C'TOTAL ' V P FNL V $ P FMEL 'ZZZ.ZZZ.ZZ9.99-',GSWBCD2 V P FLINK FMTFK
0x0e5b74…0e5d08 Dummy {f00=0x0059, f01=0x0190, f02=» P FCOPY =C'CHECKCIFFER' W P FCOPY ='BEREGNING' W $ P FNL W B P FNL W N P FCOPY =C'BEREGNING' W Z P FTEXT 'SGRUNDLAG' W v P FNL W * P FKI 1,MINL=1,MAXL=10,REWRT,APPL=105 W " P FMEL 'ZZZZZZZZZE-9',GSWBCD6 W P FMEND W P* W P
0x0e5d08…0e5e9c Dummy {f00=0x0059, f01=0x018e, f02=»CDFRM03 W P FB CCDLAB03 X PCCDLAB02 X $ P FNL X 4 P FNL X @ P FCOPY ='CHECKCIFFER' X L P FILLR ' ',1 X j P FCOPY ='FEJL ' X ~ PCCDLAB03 X P FLINK FMTFKI X P FMEND X P* X PCCDFRM03 FRMT X P FNL X P FNL X P FMEL
0x0e5e9c…0e6030 Dummy {f00=0x0059, f01=0x4132, f02=» X z P FNL Y P FMEL 'ZZZZZZZZZE-9',GSWBCD6 Y P FMEL '9B',GSWBCD5 Y 8 P FMEND Y T P* Y b PADM22FRM FRMT Y l P FSL Y P FCOPY ='LBNR ' Y P FMEL '***99',TTLBNR Y P FILLR '-',3 Y P FKI 15,MAXL=5 Y P FMEL '***99',GSWBCD5 Y
0x0e6030…0e61c4 Dummy {f00=0x0059, f01=0x2008, f02=» Z NT RGADM DDUM KMD08 PDIV , ENTRY RGADM : RGADM N END @ h
0x0e61c4…0e6358 Dummy {f00=0x0059, f01=0x0190, f02=»X># ; W )0_B J R( Z R 4! P ;)0 9U ? l> Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W $ 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 .W / a A T " @ T A (
0x0e6358…0e64ec Dummy {f00=0x0059, f01=0x0190, f02=» 0 b $ ( , 4 4 4 I 4 4 4 @ 8 I 6 L0 0 WC0 W<6 0 W 0 6 0 W 0 W 0 W 0 W 0 W 0 R 0 P R _ 0 0 P A W*6 0 W 0 W 0 : @ + ?2
0x0e64ec…0e6680 Dummy {f00=0x0059, f01=0x0190, f02=» 4 90 _;0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ X 7 GG;GG;7;;;7;7? 1 ? 0 T b ! T A _ WO0 ) ? 0 ? I H 0 S 0 P 0 Q 4 0 < G! q! m $0 ( 1 W ! { S0 1 H 0 6 0
0x0e6680…0e6814 (1, 291) Opaque[0x194]
0x0e6814…0e69a8 # DirEnt {nam=»LOG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0520, f03=0x0000}
0x0e6814…0e69a8 IdxSect {
0x0e6814…0e69a8 f00 = 0x0029 // 0xe6814 @0x0
0x0e6814…0e69a8 f01 = 0x0006 // 0xe6816 @0x2
0x0e6814…0e69a8 gno = [ // 0xe6818 @0x4
0x0e6814…0e69a8 [0x00]: C0x0029.0x0.0
0x0e6814…0e69a8 [0x01]: C0x0046.0x3.0
0x0e6814…0e69a8 [0x02]: C0x0047.0x1.0
0x0e6814…0e69a8 ]
0x0e6814…0e69a8 }
0x0e69a8…0e6b3c Dummy {f00=0x0029, f01=0x0190, f02=» P IDENT LOG 840130 EV OD-KOM P DDUM KMD08 ( P PDIV < P ENTRY WRITLO J P ENTRY ELOPST ` P v P EXT PRJOUR ~ P EXT RAREAD P EXT RAWRIT P EXT INCSLT P EXT FRM1EL P EXT FRM2EL P EXT FRM3EL
0x0e6b3c…0e6cd0 Dummy {f00=0x0029, f01=0x0190, f02=»L,WRTL090 QUIT IF EL.JOURNAL OFF P ( PWRTL010 0 " P PERF ROOM SEL IF ROOM ON DISK @ " P BNOK WRTL070 NO ROOM ON DISK f P* ROOM ON DISK , P CBNE P,CBIN0,WRTL050 SEL IF TRANSACTION P* TRANSACTION " P PERF FRM1EL GET FORMAT LINE 1
0x0e6cd0…0e6e64 Dummy {f00=0x0029, f01=0x0190, f02=»ITE LINE 2 P BNOK WRTL080 ERROR IF NOK P 4 " P PERF FRM3EL GET FORMAT LINE 3 < P PERF WRITLIN WRITE LINE 3 b P BNOK WRTL080 ERROR IF NOK P " P PERF FRM4EL GET FORMAT LINE 4 P PERF WRITLIN WRITE LINE 4 P BNOK WRTL080 ERRO
0x0e6e64…0e6ff8 Dummy {f00=0x0029, f01=0x0190, f02=»ITLIN WRITE SPECIAL LINE P BNOK WRTL080 ERROR IF NOK P B PWRTL060 OK J P CMP CBIN0,CBIN0 ^ P B WRTL090 v P P* NOT ROOM ON DISK PWRTL070 * P PERF PRJOUR PRINT AS MUCH AS POSSIBLE P B WRTL010 AND TRY AGAIN P
0x0e6ff8…0e718c Dummy {f00=0x0029, f01=0x0190, f02=»ON DISK P CLEAR TSPOOL P MOVE TTSPARE3,=C'.' & P CMP CBIN0,CBIN1 SET NOK, B P PRINT ON JOURNAL d P PWRTL090 P RET P PEND P P P EJECT P PWRITLIN PROC P " P* WRITE ONE LINE TO
0x0e718c…0e7320 Dummy {f00=0x0029, f01=0x0190, f02=»ATA INTO BUFFER j . P CBL GSWBIN1,CBIN3,WRLIRET NO DATA IN LINE , P PERF RAWRIT,DK06,=D'6',TSELBUF,TWELSLUT J P BNOK WRLINOK z P PWRLIOK P PERF INCSLT UPDATE POINTER PWRLIRET P CMP CBIN0,CBIN0 P RET PWRLINOK
0x0e7320…0e74b4 (1, 292) Dummy {f00=0x0046, f01=0x0190, f02=»ST IF ROOM FOR AT LEAST 5 RECORDS P * ( P MOVE GSWBIN1,TWELSLUT USE TEMP AREA 2 P ADD GSWBIN1,CBIN5 ^ 4 P CBG TWELSTRT,TWELSLUT,ROOM50 START BEFORE SLUT? x 0 P CBNG GSWBIN1,TWELMAX,ROOMOK YES, STILL ROOM $ P SUB GSWBIN1,TWELMAX SWAP AROUND
0x0e74b4…0e7648 Dummy {f00=0x0046, f01=0x0190, f02=» AROUND) . P CBL GSWBIN1,TWELSTRT,ROOMOK BEFORE START? PROOMNOK NO B P CMP CBIN1,CBIN0 V P RET n P z PROOMOK P CMP CBIN0,CBIN0 P RET P PEND P P P EJECT P PELOPST PROC P $ P SET
0x0e7648…0e77dc Dummy {f00=0x0046, f01=0x0190, f02=» " P MOVE TWELPNT,TWELMAX SAVE MAX P MUL TWELMAX,TTASKNR SET MAX . P MOVE TWELMIN,TWELMAX R P SUB TWELMIN,TWELPNT p P ADD TWELMIN,CBIN1 SET MIN P " P MOVE TWELPNT,TWELMIN POINTER P P MOVE GSWBIN1,=W'60' 4 P PERF RA
0x0e77dc…0e7970 Dummy {f00=0x0046, f01=0x0190, f02=» P PELOP10 1. RECORD NOT USED & P CLEAR TSPOOL CLEAR EL.JOURNAL ON 4 " P PERF THRFREE CHECK THRU FREE ^ " P PERF THRUSED CHECK THRU USED P B ELOP90 P PELOP50 1. RECORD USED " P SET TSPOOL SET EL.JOURNAL ON "
0x0e7970…0e7b04 Dummy {f00=0x0046, f01=0x018e, f02=»ARE3,=C'*' EL. JOURNAL ON PELOP99 " P 0 P CLEAR CPFLG 8 P CLEAR TERRSKIP L P d P RET l P PEND x P P P EJECT P PTHRFREE PROC P P* CHECK THRU FREE RECORDS P PTHRFR10 ( P ADD T
0x0e7b04…0e7c98 Dummy {f00=0x0046, f01=0x0190, f02=» ` 4 P PERF RAREAD,DK06,=D'6',TSELBUF,GSWBIN1,TWELPNT " P BNOK THRFR10 ASSUME NOT USED @ P CBE GTWBCD1,=D'4',THRFR10 f P SET TSPOOL RECORD USED P PTHRFR90 SET START P SUB TWELPNT,CBIN1 P MOVE TWELSTRT,TWELPNT P RET
0x0e7c98…0e7e2c Dummy {f00=0x0046, f01=0x0190, f02=»0 ( P ADD TWELPNT,CBIN1 INCREMENT POINTER . P CBG TWELPNT,TWELMAX,THRUS80 THRU RECORDS? 6 2 P MOVE GSWBIN1,=W'60' NO, CHECK IF NEXT IS USED h 4 P PERF RAREAD,DK06,=D'6',TSELBUF,GSWBIN1,TWELPNT P BNOK THRUS10 ASSUME USED P CBNE GTWBCD1,=D
0x0e7e2c…0e7fc0 Dummy {f00=0x0046, f01=0x407a, f02=»OVE TWELSLUT,TWELPNT P PTHRUS90 $ P RET 4 P PEND @ P N P V P END ^ P!!~ j@ v0' NO, CHECK IF NEXT IS USED h 4 P PERF RAREAD,DK06,=D'6',TSELBUF,GSWBIN1,TWELPNT P BNOK THRUS10 ASSUME USED P CBNE GTWBCD1,=D
0x0e7fc0…0e8154 (1, 293) Dummy {f00=0x0047, f01=0x2008, f02=» FEOR FLINK LOGFRM04 FMEND 2 END @ !!~ L@ X FILLR ' ',2 FCOPY ='UDSKRIVNING ' p FTEXT 'AFSLUTTET' FEOR FMEND LOGFRM05 FRMT FILLR ' ',2 " FCOPY =
0x0e8154…0e82e8 Dummy {f00=0x0047, f01=0x0190, f02=»
[…0x3…]
0x0e87a4…0e8938 Dummy {f00=0x0047, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ &
0x0e8938…0e8acc Dummy {f00=0x0047, f01=0x0190, f02=» OD-KOM 0$b
0x0e8acc…0e8c60 Dummy {f00=0x0047, f01=0x0190, f02=»FORAB257ANDKM030FORBE131TPDAG154GLSK 136HUSL 061S[RIN021FORBR022FORBR065BOL]N167BOSIK146FERIE035VARME053PLIGT055SOCYD045UDBB 147[FBDR048UD[FB049EFUBB050UDBDR027SOMAN028GRONL029UDENL063GRDSK040DAGIN023FORBR024FORBR033DEPOS034DEPUD041KNBEV120INKAS142BISTH143SKB*D144
0x0e8c60…0e8df4 (1, 294) Opaque[0x194]
0x0e8df4…0e8f88 # DirEnt {nam=»SPOOL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb0, f03=0x0000}
0x0e8df4…0e8f88 IdxSect {
0x0e8df4…0e8f88 f00 = 0x005d // 0xe8df4 @0x0
0x0e8df4…0e8f88 f01 = 0x0006 // 0xe8df6 @0x2
0x0e8df4…0e8f88 gno = [ // 0xe8df8 @0x4
0x0e8df4…0e8f88 [0x00]: C0x005d.0x2.0
0x0e8df4…0e8f88 [0x01]: C0x005e.0x1.0
0x0e8df4…0e8f88 [0x02]: C0x005e.0x3.0
0x0e8df4…0e8f88 ]
0x0e8df4…0e8f88 }
0x0e8f88…0e911c Dummy {f00=0x005d, f01=0x0190, f02=» P IDENT SPOOL 830919 EV DDUM KMD08 " PDIV 6 P ENTRY SAINIT D Z b P EXT MASK j P EXT CRF | P P P P INCLUDE EQUATE P EJECT PSAINIT P TBT SKEDOK,SPOOL10 P DELAY CBIN3 P
0x0e911c…0e92b0 Dummy {f00=0x005d, f01=0x0190, f02=»SII,X'0B',SSBINW1 P DSC1 SIO,X'0B',SSBINW1 P MOVE SSBINW1,=W'134' : ( P READ SII,ICIBUF,SSBINW1 FIRST READ X P BNOK SPOOL10 P & P* SET TIME OUT FOR FOLLOWING READS P P GETID TASKID , P XCOPY SSBINW9,CBIN0,CBIN2,TAS
0x0e92b0…0e9444 Dummy {f00=0x005d, f01=0x018e, f02=»BINW9 ~ P DSC1 SIO,X'0B',SSBINW9 P B SPOOL30 . P @ PSPOOL20 H P NOT FIRST READ X P MOVE SSBINW1,=W'134' r P READ SII,ICIBUF,SSBINW1 P BNERR SPOOL30 * P XSTAT SII,SSBINW1 GET EXT. STATUSBYTE 0 P MOVE SSBINW2,CBIN7
0x0e9444…0e95d8 Dummy {f00=0x005d, f01=0x0190, f02=» 6 P CBE SSCURFIL,=C' ',SPOOL10 NO FILE ACTIVE P SET AUTOCLOS > P B SP2120 GO AND CLOSE FILE T 4 PSPOOL30 CBL SSBINW1,CBIN2,SPOOL20 INVALID LENGTH x P MOVE CALLING,ICIBUF TASKID 4 P XCOPY SSBINW1,CBIN0,CBIN2,ICIBUF,CBIN2 FUNCTION
0x0e95d8…0e976c Dummy {f00=0x005d, f01=0x0190, f02=»1 P EJECT PSP0000 $ P IB SSBINW1,SP9000,SP2000,SP3000 & P B SP9000 N P ` P h PSP2000 p . P* WE NOW HAVE A PRINTLINE WHICH HAS TO BE ~ P* WRITTEN TO THE DISK < P CBNE SSCURFIL,=C' ',SP2100 SPOOLFILE ACTIVATED?
0x0e976c…0e9900 Dummy {f00=0x005d, f01=0x0190, f02=» MOVE SSBINW5,CBIN0 P MOVE SSBINW6,CBIN0 PSP2020 8 , P XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW4 F P MOVE SSSTRG2,SSSTRG4 v P CBNE SSSTRG2,CALLING,SP2050 8 P XCOPY SSBINW5,CBIN1,CBIN1,SSSTRG4,CBIN2 MOVE FILEID 4 P CBL SSBINW5,SSBINW6
0x0e9900…0e9a94 (1, 295) Dummy {f00=0x005e, f01=0x0190, f02=»LN,SP2020 ~ P* PSP2050 PSP2060 * 0 P MOVE SSSTRG4,=X'00' FIND PLACE FOR NEW FILE 8 P MOVE SSBINW4,CBIN0 l P MOVE SSBINW7,CUSEDLN 4 P MATCH CUSED,SSBINW4,SSBINW7,SSSTRG4,CBIN0,CBIN4 4 P XCOPY CUSED,SSBINW4,CBIN2,CALLING,CBIN0 T
0x0e9a94…0e9c28 Dummy {f00=0x005e, f01=0x0190, f02=»BIN1,SSBINW6,CBIN1 FILEID z P SET CSAVEIX " $ P EDIT SSCURFIL,FMCURFIL SPOOLXXX 6 P ADD SSBINW4,CBIN1 ^ $ P MOVE SSSTRG1,=C'F' BEING FILLED x , P XCOPY CUSED,SSBINW4,CBIN1,SSSTRG1,CBIN0 $ P** CREATE FILE VIA TOSSUTILITIES P MOVE PBLK,=X'00
0x0e9c28…0e9dbc Dummy {f00=0x005e, f01=0x0190, f02=»2090 P MOVE ASVOL,CVOL(CBIN1) * P ASSIGN SPOOL,1,SSBINW1,SSCURFIL,ASVOL , P BNOK SPOOLER1 Z " P MOVE SSSTRG2,=C'11' FORM FEED p , P XCOPY ICIBUF,CBIN6,CBIN2,SSSTRG2,CBIN0 PSP2100 P* NOW SEQ.WRITE CAN BE DONE ( P MOVE TDISKBUF,C
0x0e9dbc…0e9f50 Dummy {f00=0x005e, f01=0x0190, f02=» WRITE SPOOL,TDISKBUF P BOFL SP2120 P BNOK SPOOLER2 2 PSP2110 H P B SPOOLRET V P j P r P z PSP2120 P* SEGMENT FILLED. $ P* THIS SEGMENT IS TO BE CLOSED. 4 P* IF IT WAS BECAUSE OF OVERFLOW (AUTOCLOS=FALSE) 4
0x0e9f50…0ea0e4 Dummy {f00=0x005e, f01=0x018e, f02=»BCD4,SSCURFIL CURRENT FILE P MOVE SSBINW2,SSBCD4 " P MOVE SSBINW1,CBIN0 > P MOVE SSBINW3,CBIN0 Z PSP2130 v , P XCOPY SSSTRG4,CBIN0,CBIN4,CUSED,SSBINW1 4 P XCOPY SSBINW3,CBIN1,CBIN1,SSSTRG4,CBIN2 FILEID P CBNE SSBINW3,SSBINW2,SP2140
0x0ea0e4…0ea278 Dummy {f00=0x005e, f01=0x0190, f02=» P 20 SECONDS HAS OCCURRED, P MUST BE HARDCOPY ( P MEANING: SET PRINT D P MOVE SSSTRG1,=C'P' b PSP2135 ~ , P XCOPY SSSTRG4,CBIN3,CBIN1,SSSTRG1,CBIN0 , P XCOPY CUSED,SSBINW1,CBIN4,SSSTRG4,CBIN0 P SET CSAVEIX P B SP21
0x0ea278…0ea40c Dummy {f00=0x005e, f01=0x0190, f02=»UTOCLOS . P MOVE SSCURFIL,CBLANKS CLEAR CURRENT FILE P B SPOOL10 B P EJECT T PSP3000 b P* EXPLICIT CLOSE p P DSC0 SPOOL,CLOSE CLOSE FILE & P MOVE SSBCD4,SSCURFIL CURRENT FILE P MOVE SSBINW2,SSBCD4 P MOVE SSBINW1,CBIN0
0x0ea40c…0ea5a0 Dummy {f00=0x005e, f01=0x018e, f02=» FILEID h P CBNE SSBINW3,SSBINW2,SP3020 , P XCOPY SSSTRG4,CBIN3,CBIN1,CBLANKS,CBIN0 4 , P XCOPY CUSED,SSBINW1,CBIN4,SSSTRG4,CBIN0 d P SET CSAVEIX P B SP3030 PSP3020 P ADD SSBINW1,CBIN4 P CBL SSBINW1,CUSEDLN,SP3010 PSP
0x0ea5a0…0ea734 (1, 296) Dummy {f00=0x005e, f01=0x0190, f02=» PSPOOLER1 $ P MOVE ICOBUF,=C'1' ASSIGN ERROR P B SPOOLERR @ PSPOOLER2 T P MOVE ICOBUF,=C'2' I/O ERROR d P B SPOOLERR PSPOOLER6 * P MOVE ICOBUF,=C'6' UNDEFINED FUNCTION P B SPOOLERR PSPOOLERR P SET CIGNO
0x0ea734…0ea8c8 Dummy {f00=0x005e, f01=0x0190, f02=»SSSTRG2,RETTASK P B SPOOL20 P EJECT * PSENDMSG PROC P,ADR 8 P EDIT ICOBUF,MSGFRM(P) R P CBL ADR,=C'TC',SENDM90 p PSENDM10 P MOVE SSBINW2,ADR P RWRITE SIO,ICOBUF,SSBINW2 P BERR SENDM10 PSENDM90 P RET
0x0ea8c8…0eaa5c Dummy {f00=0x005e, f01=0x0190, f02=» FMEL '999',SSBCDCUR P FTEXT ' OPRETTET.' P FILLR X'00',40 8 P FMEND P P EJECT ^ PFRMCRF FRMT l P FILLR X'00',4 BUF1,BUF2 P FILLR X'00',1 FC1 P FILLR X'00',1 PRINT DEVICE P FILLR 'S',1 FILEORG P FILLR X'00',1
0x0eaa5c…0eabf0 Dummy {f00=0x005e, f01=0x018c, f02=»SKDAT ~ P FILLR '0',3 RET.PERIOD P FILLR X'02',1 BLOCKFACTOR . P FILLR X'00',1 RECLEN P P FILLR X'86',1 - n ( P FILLR X'00',3 KEYADR+NO.INDEXFILES P FILLR X'00',1 P FTEXT X'01F4' 500 RECORDS P FILLR X'00',6 P FMEND
0x0eabf0…0ead84 Dummy {f00=0x005e, f01=0x2008, f02=» ~ P FILLR '0',3 RET.PERIOD P FILLR X'02',1 BLOCKFACTOR . P FILLR X'00',1 RECLEN P P FILLR X'86',1 - n ( P FILLR X'00',3 KEYADR+NO.INDEXFILES P FILLR X'00',1 P FTEXT X'01F4' 500 RECORDS P FILLR X'00',6 P FMEND
0x0ead84…0eaf18 Dummy {f00=0x005e, f01=0x0190, f02=»
0x0eaf18…0eb0ac Dummy {f00=0x005e, f01=0x0190, f02=» * . 0 0 d , :
0x0eb0ac…0eb240 Dummy {f00=0x005e, f01=0x0190, f02=»
0x0eb240…0eb3d4 (1, 297) Opaque[0x194]
0x0eb3d4…0eb568 # DirEnt {nam=»KMDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a58, f03=0x0000}
0x0eb3d4…0eb568 IdxSect {
0x0eb3d4…0eb568 f00 = 0x0052 // 0xeb3d4 @0x0
0x0eb3d4…0eb568 f01 = 0x0004 // 0xeb3d6 @0x2
0x0eb3d4…0eb568 gno = [ // 0xeb3d8 @0x4
0x0eb3d4…0eb568 [0x00]: C0x0052.0x3.0
0x0eb3d4…0eb568 [0x01]: C0x0053.0x0.0
0x0eb3d4…0eb568 ]
0x0eb3d4…0eb568 }
0x0eb568…0eb6fc Dummy {f00=0x0052, f01=0x0190, f02=» PPRT KM461 PPRT C461 PMES ODENSE KOMMUNE - UK01 & , PMES SEPARATE TASK FOR BATCH TRANSMISSION H PMES 840203 EV x PSCR PLED KMD08,/S P!!CH $$DCTASK$$DCTSK$$ P!!DL 121,169 KBA-VDU,GTP P!!DL 182,207 TB9 $ P!!RE
0x0eb6fc…0eb890 Dummy {f00=0x0052, f01=0x018e, f02=» 373,374 BKO 0 PCTTXT07 STRG 381'000000000000000000376 BKO C P 51ASKAT3 C H P 58A/S 2 C ^ P 52BSKAT3 C t P 60BDFLG0 C P 68B B N1 C P 69B B %1 C P 64BRNFO0 C P 62DAGPE2 C P 56EJDSK0 C
0x0eb890…0eba24 Dummy {f00=0x0052, f01=0x0190, f02=» P 61S[RIN0 C P 21FORBR0 C P 22FORBR0 C 0 P 65BOL]N1 C F P 67BOSIK1 C P 46FERIE0 C r P 35VARME0 C P 53PLIGT0 C P 55SOCYD0 C P 45UDBB 1 C P 47[FBDR0 C P 48UD[FB0 C
0x0eba24…0ebbb8 Dummy {f00=0x0052, f01=0x0190, f02=» 40DAGIN0 C P 23FORBR0 C P 24FORBR0 C , P 33DEPOS0 C B P 34DEPUD0 C X P 41KNBEV1 C n P 20INKAS1 C P 42BISTH1 C P 43SKB*D1 C P 44SPPGA1 C P 66NEGIN0' ( P!!RE 412,$$1400$$10000$$
0x0ebbb8…0ebd4c Dummy {f00=0x0052, f01=0x0190, f02=»54 ( P MOVE GSWBIN1,=W'381' LENGTH CTTXT07 P!!DL 765,800 START 3270 6 P!!EN V PNOD C b PTRA /S,NL p PINC DIV461 PNOD R PINC SCREEN PINC RGSUB3 PNOD R PINC KMDIO PINC DKSUBS PNOD D PIN
0x0ebd4c…0ebee0 Dummy {f00=0x0052, f01=0x0166, f02=»C RGFRMT PINC ADM6BC PINC ADM45 " PINC LOG 4 PNOD D D PINC RGADM R PNOD D d PINC RGKLAR r PNOD D PINC KTOPR PINC RGSTRT PINC ADM5 PTLK U,4K PINC DCTSK P$INCGEN PLKE M PKP
0x0ebee0…0ec074 (1, 298) Dummy {f00=0x0053, f01=0x2008, f02=»
0x0ec074…0ec208 Dummy {f00=0x0053, f01=0x0190, f02=»
0x0ec208…0ec39c Dummy {f00=0x0053, f01=0x0190, f02=» * . ; 0 ; =
0x0ec39c…0ec530 Dummy {f00=0x0053, f01=0x0190, f02=»
0x0ec530…0ec6c4 Dummy {f00=0x0053, f01=0x0190, f02=» * 0 0 F
0x0ec6c4…0ec858 Dummy {f00=0x0053, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , l
0x0ec858…0ec9ec Dummy {f00=0x0053, f01=0x0190, f02=» B L d
0x0ec9ec…0ecb80 Dummy {f00=0x0053, f01=0x0190, f02=» : 0 0 0 0 < .
0x0ecb80…0ecd14 (1, 299) Opaque[0x194]
0x0ecd14…0ecea8 # DirEnt {nam=»RGOBJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0648, f03=0x0000}
0x0ecd14…0ecea8 IdxSect {
0x0ecd14…0ecea8 f00 = 0x0032 // 0xecd14 @0x0
0x0ecd14…0ecea8 f01 = 0x0002 // 0xecd16 @0x2
0x0ecd14…0ecea8 gno = [ // 0xecd18 @0x4
0x0ecd14…0ecea8 [0x00]: C0x0032.0x1.0
0x0ecd14…0ecea8 ]
0x0ecd14…0ecea8 }
0x0ecea8…0ed03c Dummy {f00=0x0032, f01=0x0190, f02=» PASG /02,NO PSCR PINC DCTSK " PINC TB3270 4 PINC EBCDIC F PINC FILHND X PINC BIDACR j PINC DSUMOD | PDEL /OB PKPF /O PSCR PTRA RGMAIN,NL PKPF /O PSCR PTRA RGSTRT,NL PKPF /O
0x0ed03c…0ed1d0 Dummy {f00=0x0032, f01=0x0190, f02=»F /O PSCR PTRA DIV461,NL PKPF /O . PSCR < PTRA SUBAPL,NL H PKPF /O ^ PSCR l PTRA KMDIO,NL x PKPF /O PSCR PTRA RGADM,NL PKPF /O PSCR PTRA RGSUBS,NL PKPF /O PSCR PTRA
0x0ed1d0…0ed364 Dummy {f00=0x0032, f01=0x010a, f02=» PTRA ADM6,NL PKPF /O PSCR & PTRA KTPLN,NL 2 PKPF /O F PSCR T PTRA KTOPR,NL ` PKPF /O t PSCR PTRA ADM5,NL PKPF /O PSCR PTRA ADM6BC,NL PKPF /O PSCR PASG /02,LP0F P$ASG2
0x0ed364…0ed4f8 Dummy {f00=0x0032, f01=0x2008, f02=» ADM6,NL PKPF /O PSCR & PTRA KTPLN,NL 2 PKPF /O F PSCR T PTRA KTOPR,NL ` PKPF /O t PSCR PTRA ADM5,NL PKPF /O PSCR PTRA ADM6BC,NL PKPF /O PSCR PASG /02,LP0F P$ASG2
0x0ed4f8…0ed68c Dummy {f00=0x0032, f01=0x0190, f02=» L0 S P0 T T0 T " Z0 T 4 ]0 T F J F " D @ L RL R L L LI L L " W T X T T 2 T 0 2 T 3 T
0x0ed68c…0ed820 Dummy {f00=0x0032, f01=0x0190, f02=» R R RL R _g R T b I U J F " D R " _ I / U 0 0 U ~ 0 U !0 U 00 U 40 U @ I U J F " D % L W
0x0ed820…0ed9b4 (1, 300) Opaque[0x194]
0x0ed9b4…0edb48 # DirEnt {nam=»RGSUB3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0598, f03=0x0000}
0x0ed9b4…0edb48 IdxSect {
0x0ed9b4…0edb48 f00 = 0x002c // 0xed9b4 @0x0
0x0ed9b4…0edb48 f01 = 0x0008 // 0xed9b6 @0x2
0x0ed9b4…0edb48 gno = [ // 0xed9b8 @0x4
0x0ed9b4…0edb48 [0x00]: C0x002c.0x3.0
0x0ed9b4…0edb48 [0x01]: C0x0036.0x1.0
0x0ed9b4…0edb48 [0x02]: C0x0040.0x3.0
0x0ed9b4…0edb48 [0x03]: C0x0041.0x1.0
0x0ed9b4…0edb48 ]
0x0ed9b4…0edb48 }
0x0edb48…0edcdc Dummy {f00=0x002c, f01=0x0190, f02=» P IDENT RGSUB3 840203 EV P DDUM KMD08 $ P PDIV 8 P* F P ENTRY ASGVOL P P ENTRY CLSVOL f P ENTRY ASGFIL | P ENTRY CYLINE P ENTRY CYOUT P ENTRY CYWRT P ENTRY CYRD P ENTRY CYTRP P* P EXT A
0x0edcdc…0ede70 Dummy {f00=0x002c, f01=0x0190, f02=»RMXVO P EXT CRVO P EXT WAITF P* 2 P INCLUDE EQUATE < P EJECT T PASGVOL PROC VOL b P******************** z P* * P* ASSIGN ROUTINE - PER VOLUME P* 4 P* ASSIGNS ALL FILES ON SPECIFIED VOLUME
0x0ede70…0ee004 Dummy {f00=0x002c, f01=0x0190, f02=»UMBER> f P* P******************** P* 4 P IB VOL, C > " P ASG100,ASG200,ASG300,ASG400 R P CBNE VOL,CBIN0,ASGNOK x P* PASG000 ASSIGN CONF DATASET P PERF ASSG,CBIN1,DK01,CBIN1 P B ASGRET P* ( PASG1
0x0ee004…0ee198 Dummy {f00=0x002c, f01=0x0190, f02=»CYCLE DATASET t P BNOK ASGRET ( P PERF ASSG,CBIN1,DK04,CBIN4 KT PLAN * P BNOK ASGRET V P j P TBF CSPOOL,ASG150 r * P PERF ASSG,CBIN1,DK06,CBIN6 EL JOURNAL P BNOK ASGRET PASG150 P P TBF CGLREGFL,ASGRET P MOVE CG
0x0ee198…0ee32c Dummy {f00=0x002c, f01=0x0190, f02=» ( PASG200 ASSIGN ALL FILES - VOLUME 2 P CBE CREGVOL,=W'4',ASG400 4 , P PERF ASSG,CBIN2,DK02,CBIN2 REG DATASET V P B ASGRET P* ( PASG300 ASSIGN ALL FILES - VOLUME 3 P B ASGOK P* ( PASG400 ASSIGN ALL FILES - VOLU
0x0ee32c…0ee4c0 Dummy {f00=0x002c, f01=0x0190, f02=» P* PASGOK P CMP CBIN0,CBIN0 PASGRET 8 P RET F P PEND R P* ` P EJECT j PASGFIL PROC FILNR x P********** P* ( P* ASSIGNS FILE REGSET ON EITHER P* VOLUME 2 OR 4 P* P********
0x0ee4c0…0ee654 (1, 301) Dummy {f00=0x0036, f01=0x0190, f02=»VOL,=W'2',ASGF250 P* ONLY VOLUME 2 P PERF ASGVOL,CBIN2 6 P B ASGFRET P P* b PASGF250 l P* VOLUME 2 AND 4 | P* FIRST ALTERNATE P MOVE GSWBIN2,CBIN6 P SUB GSWBIN2,CREGVOL P MOVE CREGVOL,GSWBIN2
0x0ee654…0ee7e8 Dummy {f00=0x0036, f01=0x0190, f02=» PERF ASGVOL,CBIN2 PASGFRET P RET * P PEND 6 P* D P EJECT N PCLSVOL PROC VOL P******************** t P* * P* CLOSE ROUTINE - PER VOLUME P* 4 P* CLOSES ALL FILES ON SPECIFIED VOLUME
0x0ee7e8…0ee97c Dummy {f00=0x0036, f01=0x0190, f02=» TBF CWFLAG,CLS050 P DELAY CBIN20 PCLS050 0 P* > P* H P IB VOL, C R " P CLS100,CLS200,CLS300,CLS400 f P B CLSRET P* ( PCLS100 CLOSE ALL FILES - VOLUME 1 P DSC0 DK01,CLOSE P DSC0 DK02,CLOSE P DSC
0x0ee97c…0eeb10 Dummy {f00=0x0036, f01=0x0190, f02=» PCLS160 P P DSC0 FD01,UNLOD P B CLSRET 6 P* H ( PCLS200 CLOSE ALL FILES - VOLUME 2 R P CBE CREGVOL,=W'4',CLS400 ~ P DSC0 DK02,CLOSE P DSC0 FD02,UNLOD P B CLSRET P* ( PCLS300 CLOSE ALL FILES - V
0x0eeb10…0eeca4 Dummy {f00=0x0036, f01=0x0190, f02=»0 FD03,UNLOD P B CLSRET P* & PCLSRET 0 P RET > P PEND J P* X P EJECT b PCYLINE PROC p P******************** P* . P* WRITE ONE LINE TO CYCLE DATASET P* 4 P* ON ENTRY DATA IN SE
0x0eeca4…0eee38 Dummy {f00=0x0036, f01=0x0190, f02=»RITTEN TO CYSET f . P* E.G. ERROR ON DISK . P* DATASET FULL J < P* WAITED TOO LONG FOR BUFFER | P* P******************** P MOVE GSWBIN1,CCYSIZE P MUL GSW
0x0eee38…0eefcc Dummy {f00=0x0036, f01=0x018e, f02=»FER n P DELAY CBIN2 P SUB GSWBIN1,CBIN2 P CBL GSWBIN1,CBIN0,CYLINNOK : P B CYLIN000 ^ P* r PCYLIN010 | P SET CCYPFLG RESERVE BUFFER $ P MOVE CCYBUF,=X'00' CLEAR BUFFER P EDIT CCYBUF,GTSTRFMT * P PERF RAWRIT,DK03,
0x0eefcc…0ef160 Dummy {f00=0x0036, f01=0x0190, f02=» P RET P* PCYLIN100 " P CLEAR CCYPFLG RELEASE BUFFER * PCYLINNOK P P CMP CBIN1,CBIN0 ` P RET x P PEND P* P EJECT PCYOUT PROC P******************** P* 4 P* WRITE OUT THE WHOLE CONTENT
0x0ef160…0ef2f4 (1, 302) Dummy {f00=0x0040, f01=0x0190, f02=»FLG,CYOUT005 P SET TTTSTFLG P PERF SPLIN8,CBIN5,CBIN2 * P PERF GRASPV J P PERF CLEAR8 ^ PCYOUT005 r P MOVE TTLINNR,TTCYKPOS P TBF GTCYTRPF,CYOUT010 2 P SUB GTCYOUT,CBIN1 ADJUST FOR TRP LINE, -TOTAL PCYOUT010 P MOV
0x0ef2f4…0ef488 Dummy {f00=0x0040, f01=0x0190, f02=» P WAIT KVOUCH P B CYOUT010 P* , PCYOUT050 6 P RET F P PEND R P* ` P EJECT j PCYWRT PROC x P******************** P* , P* WRITE A LINE ON CYCLE DATASET : P* IN NOK EMPTY THE CYCLE DATAS
0x0ef488…0ef61c Dummy {f00=0x0040, f01=0x0190, f02=»TO CYSET x P BNOK CYWRT100 P SUB TTLINNR,=D'2' & , P CBL TTLINNR,=D'4',CYWRT010 IF PAGE FULL @ P CMP CBIN0,CBIN0 OK p P RET P* PCYWRT010 $ P MOVE GSWSTR9,=C'TRP ' NEW PAGE P PERF FRMXVO,CBIN2 P PERF CYLINE P
0x0ef61c…0ef7b0 Dummy {f00=0x0040, f01=0x0190, f02=» P CMP CBIN1,CBIN0 P RET P PEND , P* : P EJECT D PCYRD PROC R P******************** d P* 4 P* READ ONE LINE FROM CYCLE DATASET AND " P* WRITE IT TO VOUCHER P* 8 P* VOUCHER SHO
0x0ef7b0…0ef944 Dummy {f00=0x0040, f01=0x0190, f02=» p 2 P PERF RAREAD,DK03,=D'3',CCYBUF,GSWBIN1,GTCYIN P BNOK CYRDNOK > P EDWRT .NW,KVOUCH,CYEDT T P CLEAR CCYPFLG t P B CYRD100 PCYRDNOK P ADD GTCYIN,CBIN1 P CLEAR CCYPFLG P PERF CRVO P CMP CBIN1,CBIN0 NOK
0x0ef944…0efad8 Dummy {f00=0x0040, f01=0x0190, f02=» P PEND P* P* PCYEDT FRMT * P FCOPY CCYBUF < P FMEND R P* ` P EJECT j PCYTRP PROC x P******************** P* " P* PRINT A WHOLE PAGE P* 6 P* AND WRITE TRANSPORT LINE FIRS
0x0efad8…0efc6c Dummy {f00=0x0040, f01=0x0190, f02=»LEAR GTCYTRPF P CLEAR TTTSTFLG P PERF CYOUT . P WAIT KVOUCH B P DSC0 .NW,KVOUCH,RLEAS V P CLEAR TTTSTFLG t P MOVE GSWSTR9,=C'TRP ' P PERF FRMXVO,CBIN2 P MOVE GTCYIN,TTASKNR P SUB GTCYIN,CBIN1 P MUL GTCYIN,CC
0x0efc6c…0efe00 Dummy {f00=0x0040, f01=0x0190, f02=»LINE P BNOK CYTRP100 P B CYTRP150 " P* 6 PCYTRP100 @ P CLEAR GTCYTRPF P P SET GTCYWRTF h . P PERF SPLIN8,CBIN3,CBIN2 ASK FOR 'NY SIDE' ~ P PERF GRASPV GRASP P MOVE TTCYKPOS,TTCYKST * P MOVE TTLINNR,TTCYKST POSITION V
0x0efe00…0eff94 (1, 303) Dummy {f00=0x0041, f01=0x40b8, f02=»MXVO,CBIN2 * P EDWRT KVOUCH,GTSTRFMT WRITE TRP LINE P* @ PCYTRP150 J P SUB TTLINNR,=D'2' Z PCYTRP200 t P RET P PEND P* P END @
0x0eff94…0f0128 Dummy {f00=0x0041, f01=0x2008, f02=» P?????????????? P RET " P PEND . P* < P END F :EOF R@ `OUT P WAIT KVOUCH p P DSC0 KVOUCH,RLEAS P MOVE GSWSTR9,=C'TRP ' P PERF FRMXVO,CBIN2 P MOVE TTLINNR,TTCYKST P PERF CYLINE P
0x0f0128…0f02bc Dummy {f00=0x0041, f01=0x0190, f02=» 8 H IDENT KTPLN TRA 4.2 84-02-03 F1 O1111 840203 EV KTPLAN RESTMK SETMK @ $$$TRAP ` " KTPLAN RESTMKS SETMK r RAREADP 0 P * / 10 <0 J F " D
0x0f02bc…0f0450 Dummy {f00=0x0041, f01=0x0190, f02=» 0 J F " D @ X " % L _/ Lj X @+ 4 @+ L L 4 @+ x h 0 x z x 0 x J F " D L 4 Q TF L Lj X U W4 Q + L LhX L 0
0x0f0450…0f05e4 Dummy {f00=0x0041, f01=0x40e6, f02=»X LhX L V $ 6 $ H ) Z +0 j 3 | @ < : P R L" QLW# hX L T P L XL R LX Q R4 3 6 @ 4 Q + L LhX L 0
0x0f05e4…0f0778 Dummy {f00=0x0041, f01=0x0190, f02=»GSWSTR20 2 z ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? 3 P CHECK IF WITH SIGN 3 < P MOVE GSWBIN3,CBIN0 3 Z P MOVE GSWSTR2,=C'-' 3 v 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 3 P BNE RGR040 3 P MUL GTUSED(GSWBIN4),=W'-1' 3 P MUL
0x0f0778…0f090c Dummy {f00=0x0041, f01=0x0190, f02=»SWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 3 P BNE RGR030 4 2 P MUL GTUSED(GSWBIN4),=W'-1' 4 F P B RGR030 4 j PRGR060 SET D/K INFO 4 | " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 4 P PERFI GSWBIN3,SETKRE,SETDEB 4 P B RGR030 4 PRGR100 4 P E
0x0f090c…0f0aa0 Dummy {f00=0x0041, f01=0x0190, f02=» 4 ^ P BNE RGR110 5 P SET CEORFLG 5 P B RGR035 5 0 PRGR110 5 B & P MOVE GSWSTR2,=X'21' CONT. RECORD 5 P P MOVE GSWBIN6,GSWBIN4 5 z 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 5 P BNE RGRRET2 5 P DLETE CPCKBUF,CBIN0,GSWBIN4 5
0x0f0aa0…0f0c34 (1, 304) Opaque[0x194]
0x0f0c34…0f0dc8 # DirEnt {nam=»FMT402«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x0f0c34…0f0dc8 IdxSect {
0x0f0c34…0f0dc8 f00 = 0x004d // 0xf0c34 @0x0
0x0f0c34…0f0dc8 f01 = 0x0004 // 0xf0c36 @0x2
0x0f0c34…0f0dc8 gno = [ // 0xf0c38 @0x4
0x0f0c34…0f0dc8 [0x00]: C0x004d.0x3.0
0x0f0c34…0f0dc8 [0x01]: C0x004e.0x0.0
0x0f0c34…0f0dc8 ]
0x0f0c34…0f0dc8 }
0x0f0dc8…0f0f5c Dummy {f00=0x004d, f01=0x0190, f02=» PFRMT40 FRMT P FLINK FM40ST P FCOPY =' BUDGET[NDR ' 8 P FNL X P FCOPY ='KONTONR' l P FTAB 20 P FCOPY ='PRISK' P FNL P FLINK SUBF05 P FLINK SUBF64 P
0x0f0f5c…0f10f0 Dummy {f00=0x004d, f01=0x0190, f02=» P FMEND P* P* ( PFRMT41 FRMT 2 P FLINK FM40ST H $ P FTEXT ' BUDGETOPRET ' f P FNL P FCOPY ='KONTONR' P FTAB 20 P FCOPY ='PRISK' P FCOPY =' BUDG.KODE'
0x0f10f0…0f1284 Dummy {f00=0x004d, f01=0x0190, f02=» ='INDV.]R B.]R+0/2/4 B.]R+1/3/5/6' P FNL 0 P FLINK SUBF55 < P FLINK FMTEND P FMEND r P* P* PFRMT42 FRMT P FLINK FM40ST P FCOPY =' BUDGET[NDR ' P FNL P FCOPY ='KON
0x0f1284…0f1418 Dummy {f00=0x004d, f01=0x0190, f02=» FLINK SUBF64 P FLINK SUBF54 P FNL , < P FCOPY ='INDV.]R B.]R+0/2/4 B.]R+1/3/5/6' @ P FNL P FLINK SUBF55 P FLINK FMTEND P FMEND P* P* PFRMT45 FRMT P
0x0f1418…0f15ac Dummy {f00=0x004d, f01=0x0190, f02=» FLINK SUBF05 P FNL P FCOPY ='BEVIL.DATO' 0 P FNL L P FLINK SUBF63 X P FNL n 8 P FCOPY ='FOREG.]R INDV.]R BUDG.]R' z P FNL P FLINK SUBF57 P FLINK FMTEND P
0x0f15ac…0f1740 Dummy {f00=0x004d, f01=0x0190, f02=»NL P FCOPY ='KONTONR' P FNL . P FLINK SUBF05 B P FNL b " P FCOPY ='BEVIL.DATO' v P FTAB 13 P FCOPY ='DET.KODE' P FNL P FLINK SUBF63
0x0f1740…0f18d4 (1, 305) Dummy {f00=0x004e, f01=0x0190, f02=» P FLINK SUBF57 P FLINK FMTEND $ P FMEND : P* P P* Z PFRMT47 FRMT d P FLINK FM40ST z 6 P FTEXT ' [NDR.SUM R]DIGHEDSBEL TIDL.]R' P FNL P FCOPY ='KONTONR'
0x0f18d4…0f1a68 Dummy {f00=0x004e, f01=0x0190, f02=» BUDG.]R' j P FNL P FLINK SUBF57 * P FLINK FMTEND J P FMEND ` P* v P* PFRMT48 FRMT P FLINK FM40ST P FCOPY =' TILL[GSBEVIL' P FTEXT ' UDG-ANL[G' P FNL
0x0f1a68…0f1bfc Dummy {f00=0x004e, f01=0x0190, f02=» x P FLINK SUBF56 P FNL ( " P FCOPY ='BEVIL.DATO' 4 P FNL Z P FLINK SUBF63 n P FLINK FMTEND P FNL P FMEND P* P* PFRMT49 FRMT P FLINK F
0x0f1bfc…0f1d90 Dummy {f00=0x004e, f01=0x0122, f02=» FTAB 13 P FLINK FBELOB P FNL , P FLINK SUBF70 @ P FLINK SUBF56 ` P FNL " P FCOPY ='BEVIL.DATO' P FNL P FLINK SUBF63 P FLINK FMTEND P FNL
0x0f1d90…0f1f24 Dummy {f00=0x004e, f01=0x2008, f02=» 13 P FLINK FBELOB P FNL , P FLINK SUBF70 @ P FLINK SUBF56 ` P FNL " P FCOPY ='BEVIL.DATO' P FNL P FLINK SUBF63 P FLINK FMTEND P FNL
0x0f1f24…0f20b8 Dummy {f00=0x004e, f01=0x0190, f02=» 8 F IDENT I:EDT P,3.1,78-02-20,870136940310 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:EFLI I:ETABL I:EXIT I:ETXT @ F B I:ECPY I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC` I:EFIL I:EPICN , ( !! gg++ , (
0x0f20b8…0f224c Dummy {f00=0x004e, f01=0x0190, f02=»:EGTB I:EVI I:EVA3 I:EVA0 0 * & AUT B I:EVNO! p I:ESKI I:EBRI I:EBRBR I:EBR , ( Q I:EINH
0x0f224c…0f23e0 Dummy {f00=0x004e, f01=0x0190, f02=» K : r I:ED1 I:EDW $ I:EVA6 6 , ( @ R B H , ( P 2 " T W x , ( "@T '?W "? H " K :e I:EFLI , ( J J " J
0x0f23e0…0f2574 (1, 306) Opaque[0x194]
0x0f2574…0f2708 # DirEnt {nam=»FMT401«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c8, f03=0x0000}
0x0f2574…0f2708 IdxSect {
0x0f2574…0f2708 f00 = 0x004e // 0xf2574 @0x0
0x0f2574…0f2708 f01 = 0x0002 // 0xf2576 @0x2
0x0f2574…0f2708 gno = [ // 0xf2578 @0x4
0x0f2574…0f2708 [0x00]: C0x004e.0x1.0
0x0f2574…0f2708 ]
0x0f2574…0f2708 }
0x0f2708…0f289c Dummy {f00=0x004e, f01=0x00f8, f02=» 8 PSPFTB FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C , P FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C @ , P FRMT12,FRMT40,FRMT41,FRMT42,FRMT45, C p , P FRMT46,FRMT47,FRMT48,FRMT49,FRMT00, C ( P FRMT51,FRMT00,FRMT00,FRMT00,FRMT00 FMEL 'ZZ9',GTR
0x0f289c…0f2a30 Dummy {f00=0x004e, f01=0x2008, f02=» B FTABLE FRMT01,FRMT02,FRMT03,FRMT04,FRMT05, C , P FRMT06,FRMT07,FRMT08,FRMT09,FRMT10, C @ , P FRMT12,FRMT40,FRMT41,FRMT42,FRMT45, C p , P FRMT46,FRMT47,FRMT48,FRMT49,FRMT00, C ( P FRMT51,FRMT00,FRMT00,FRMT00,FRMT00 FMEL 'ZZ9',GTR
0x0f2a30…0f2bc4 Dummy {f00=0x004e, f01=0x0190, f02=»P P ) t * & P l l N 9 : e e "e@ * * & 0 Le T W L Z _ R f f f * @ * & @ ?E e e 7eT 4 * n * & 4 e e e4 A7 T& B7 * * & - T C7 T D7 T E7 T * * & K F7 4
0x0f2bc4…0f2d58 Dummy {f00=0x004e, f01=0x0190, f02=» m } s 4 ` s 0 ` * * & Q P I` 0 @` s 4 !l !l + * & s0 m } 4 s 4 0 ` l a 0 + N * & `aT ga g ag l l 4 s ` 0 + | * & }` 0 Q P s 4 s c 0 + * & ; `P Q I` 0 s 4 0 Q P + * &
0x0f2d58…0f2eec Dummy {f00=0x004e, f01=0x0190, f02=» 0 wxW<6q 0 wxW 0 wx6v + * & 0 wxW 0 wxW 0 wxW 0 wxW , . * & 0 wxW 0 sR 0 srP R sr_ 0 q , * & p 0 P AaW 6u 0 |hhpqsW 0 , * & + |ggpqs: @r+q s2q , * & I !p E0 s!s 3s 6
0x0f2eec…0f3080 Dummy {f00=0x004e, f01=0x0190, f02=» 0 W 0 , p * & W 0 W 0 W 0 W 0 W 0 X Z [ r - * & 7q EE9EE95999595_ r 1 r _ - < * & q 0 |T b | ! B p Ar_ s WG - j * & 0 r)r 1 9? 0!|fpqs? s p - * & 9 q 0 qrS 0 P 0" Q q 4 0 rq - * & W q ?!q K!q G!
0x0f3080…0f3214 (1, 307) Opaque[0x194]
0x0f3214…0f33a8 # DirEnt {nam=»KTPLN «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x0f3214…0f33a8 IdxSect {
0x0f3214…0f33a8 f00 = 0x0045 // 0xf3214 @0x0
0x0f3214…0f33a8 f01 = 0x0006 // 0xf3216 @0x2
0x0f3214…0f33a8 gno = [ // 0xf3218 @0x4
0x0f3214…0f33a8 [0x00]: C0x0045.0x2.0
0x0f3214…0f33a8 [0x01]: C0x004b.0x1.0
0x0f3214…0f33a8 [0x02]: C0x004c.0x1.0
0x0f3214…0f33a8 ]
0x0f3214…0f33a8 }
0x0f33a8…0f353c Dummy {f00=0x0045, f01=0x018e, f02=» P IDENT KTPLN 840203 EV P DDUM KMD08 $ P PDIV 8 P ENTRY KTPLAN F P ENTRY RESTMK P ENTRY SETMK r P EXT RAREAD P EXT WAITF P INCLUDE EQUATE P EJECT PKTPLAN PROC KTNR,TYPE 4 P************************
0x0f353c…0f36d0 Dummy {f00=0x0045, f01=0x0190, f02=» P* 6 P* IF FOUND - CONDITION REGISTER IS SET TO OK < P* TYPE WILL CONTAIN THE ASSOCIATED TYPE H * P* GSWBIN4 IS RECORD NO < P* GSWBIN5 POINTS TO START OF FOUND NO . P* IF NOT FOUN
0x0f36d0…0f3864 Dummy {f00=0x0045, f01=0x0190, f02=»T RECORD j P P MOVE GSWBIN4,CBIN0 PKTP010 4 P ADD GSWBIN4,CBIN1 B 0 P CBG GSWBIN4,CBIN7,KTP020 RETURN, NOT FOUND 8 P CBE CKTINDX(GSWBIN4),=D'0',KTP020 RETURN, NOT FOUND > P CBNL CKTINDX(GSWBIN4),KTNR,KTP030 KNT.NO < MASTER ?FOUND
0x0f3864…0f39f8 Dummy {f00=0x0045, f01=0x0190, f02=»4,CBIN1 P B KTPNOK2 PKTP030 FOUND " , P MUL GSWBIN4,CBIN3 LAST RECORD IN GROUP 8 , P SUB GSWBIN4,CBIN2 FIRST RECORD IN GROUP h P PERF WAITF,CKFLAG PKTP110 P MOVE GSWBIN5,=W'128' P MOVE CKTBUF,CBLANKS > P PERF RAREAD,D
0x0f39f8…0f3b8c Dummy {f00=0x0045, f01=0x0190, f02=»5,CBIN0 PKTP120 P MOVE GSWBCD7,=D'1' . P XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 : " P CBE GSWBCD7,KTNR,KTP200 FOUND l ( P CBG GSWBCD7,KTNR,KTPNOK1 NOT FOUND $ P ADD GSWBIN5,CBIN8 LOOK FURTHER 0 P CBNG GSWBIN5,=W'120',KTP120 LOOK
0x0f3b8c…0f3d20 Dummy {f00=0x0045, f01=0x0190, f02=»E GSWBCD7,=D'1' INITIATE NUMBER . P XCOPY GSWBCD7,CBIN5,CBIN2,CKTBUF,GSWBIN5 ( P MOVE TYPE,GSWBCD7 Z P SUB GSWBIN5,CBIN6 t P CLEAR CKFLAG P CMP CBIN0,CBIN0 P RET PKTPNOK1 P CLEAR CKFLAG PKTPNOK2 P MOVE TYPE
0x0f3d20…0f3eb4 (1, 308) Dummy {f00=0x004b, f01=0x0190, f02=»OUND z P CMP CBIN1,CBIN0 NOT OK P RET , P PEND 8 P EJECT F PRESTMK PROC T ( P************************************ h P* * P* RESET MASTER INDEX IN KONTOPLAN P* FOR RECORD GSWBIN4 P* ( P****************
0x0f3eb4…0f4048 Dummy {f00=0x004b, f01=0x0190, f02=»ROUP NO r PRES010 8 P CBE GSWBIN4,CKTLAST,RES100 LAST RECORD ? YES: JUMP * P MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? Z P MUL GSWBIN5,CBIN3 P SUB GSWBIN5,GSWBIN4 * P BNE RESOK FINISH IF NOT LAST IN GROUP ( P MOVE GSWBIN5,=W'120' LAST I
0x0f4048…0f41dc Dummy {f00=0x004b, f01=0x0190, f02=» r P B RESOK PRES100 P & P CBE CKTLAST,CBIN0,RES170 . 0 P MOVE GSWBIN5,=W'120' FIND LAST USED NUMBER P P MOVE GSWBCD7,=D'1' PRES110 4 P MATCH CKTBUF,GSWBIN5,CBIN1,CBLANKS,CBIN0,CBIN1 P BE RES150 . P XCOPY GSWBCD7,C
0x0f41dc…0f4370 Dummy {f00=0x004b, f01=0x018e, f02=» INDICES TO ZERO p P CBG GSWBIN3,CBIN7,RESOK P MOVE CKTINDX(GSWBIN3),=D'0' 8 P B RES120 PRES150 n P SUB GSWBIN5,CBIN8 | P BNL RES110 PRES170 P MOVE GSWBIN3,CBIN0 P B RES120 PRESOK P RET P PEND
0x0f4370…0f4504 Dummy {f00=0x004b, f01=0x0190, f02=» P* P**************************** P 2 P MOVE GSWBIN4,CBIN1 : PSET010 V P MOVE GSWBIN5,=W'128' d P MOVE CKTBUF,CBLANKS 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 P MOVE GSWBIN5,=W'120' 4 P MATCH CKTBUF,GSWBIN5,
0x0f4504…0f4698 Dummy {f00=0x004b, f01=0x018e, f02=»OVE CKTLAST,=W'21' P B SETOK PSET100 * P MOVE GSWBIN5,CBIN0 8 4 P MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 T P BNE SET120 P SUB GSWBIN4,CBIN1 P BE SET120 P MOVE GSWBIN5,=W'128' P MOVE CKTBUF,CBLANKS 2 P P
0x0f4698…0f482c Dummy {f00=0x004b, f01=0x4026, f02=» P PEND P END @ " PSET100 * P MOVE GSWBIN5,CBIN0 8 4 P MATCH CKTBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 T P BNE SET120 P SUB GSWBIN4,CBIN1 P BE SET120 P MOVE GSWBIN5,=W'128' P MOVE CKTBUF,CBLANKS 2 P P
0x0f482c…0f49c0 Dummy {f00=0x004b, f01=0x2008, f02=» @
0x0f49c0…0f4b54 (1, 309) Dummy {f00=0x004c, f01=0x0190, f02=» l v | ( J F " D @ / I R T ! L W R L T R X, RL R _6I 0X W 0X @ 8 w 0
0x0f4b54…0f4ce8 Dummy {f00=0x004c, f01=0x0190, f02=»<R N Z &01 0 0 Z B 0 R 0 d 0 v J F " D L8R Lb M!! L _/ Lb M <R Lb M Lb M c 0 e
0x0f4ce8…0f4e7c Dummy {f00=0x004c, f01=0x0190, f02=» L d J F " D @ B hM T b M Lb M P -B j | 0 0 J F " D Y P ( ! K"e , / Lh ( T L L L_
0x0f4e7c…0f5010 Dummy {f00=0x004c, f01=0x4180, f02=» hM T[f V 0 h & D 8 * H . Z J F " D M M 0 I" C L L R M 0T<fM L!BL Lh ' dM l D0 F > Q * Y * {
0x0f5010…0f51a4 Dummy {f00=0x004c, f01=0x2008, f02=» NWFLG GTPAGE ( GTPPOIN ( GTPSELIN ( GTRECNR GTREGDEX GTREGF "GTREGFLG ( GTREGNR GTRETUR ( GTRTANT ( GTSLDFLG ( GTSLUTFL ( GTSPECTR ( GTSPGFLG ( GTSTRFMT ( GTSUBFLG ( GTSUM ( GTSUMCNT ( GTSUMKEY ( GTSUMST ( GTSWFL
0x0f51a4…0f5338 Dummy {f00=0x004c, f01=0x0190, f02=») * f & PTWELPNT BIN '0' POINTER IN OPSTART + * PTWELSTRT BIN '0' BEFORE NEXT TO PRINT + 4 & PTWELSLUT BIN '0' FIRST FREE RECORD + b * PTSELBUF STRG 60 BUFFER FOR EL.JOURNAL + P EJECT + PTB2 BLK + P* + P* + PGTDBKRC STRG 4 DEB/KRE TEXT
0x0f5338…0f54cc Dummy {f00=0x004c, f01=0x0190, f02=»TRG 1C'.' + PTCONBUF STRG 398X'FF' , & PTTCYKST BCD 4 1. LINE CYCLE/STABEL , 0 $ PTTKTSLD BCD 14 KONTOKORT, SALDO , Z & PTTKTLIN BCD 4 KONTOKORT, LINIE NR , ( PTTKTCHK BCD 2 KONTOKORT, CHECKCIFFER , . PTTDBKRM STRG 1C'K' DEB/KRE MARK ON JOURNAL , $
0x0f54cc…0f5660 Dummy {f00=0x004c, f01=0x018e, f02=» EJECT , PCD3 DBLK - P* - P* - ( P* - 2 P* - < P* - F PDUMCD3 STRG 10 - P PCMASK BCDI (12),4D - f & PCBACC BCDI (60,3),14D BEHOLDNINGER - . PCTR12NR BCDI (60),12D EJ-EDB ACCOUNT NOS. - PCRELDAY BCD 4X'FFFF' - PCCONFREC BCD 6 -
0x0f5660…0f57f4 (1, 310) Opaque[0x194]
0x0f57f4…0f5988 # DirEnt {nam=»KM462 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x0f57f4…0f5988 IdxSect {
0x0f57f4…0f5988 f00 = 0x0002 // 0xf57f4 @0x0
0x0f57f4…0f5988 f01 = 0x0004 // 0xf57f6 @0x2
0x0f57f4…0f5988 gno = [ // 0xf57f8 @0x4
0x0f57f4…0f5988 [0x00]: C0x0002.0x1.0
0x0f57f4…0f5988 [0x01]: C0x0012.0x1.0
0x0f57f4…0f5988 ]
0x0f57f4…0f5988 }
0x0f5988…0f5b1c Dummy {f00=0x0002, f01=0x0190, f02=» PPRT KM462 PPRT C462 PMES ODENSE KOMMUNE - UK01 & , PMES SEPARATE TASK FOR BATCH TRANSMISSION H PMES 840203 EV x PSCR PLED KMD08,/S P!!CH $$DCTASK$$DCTSK$$ P!!DL 121,169 KBA-VDU,GTP P!!DL 182,207 TB9 $ P!!RE
0x0f5b1c…0f5cb0 Dummy {f00=0x0002, f01=0x018e, f02=»!!DL 373,374 BKO 0 PCTTXT07 STRG 381'000000000000000000376 BKO C P 51ASKAT3 C L P 58A/S 2 C b P 52BSKAT3 C x P 60BDFLG0 C P 68B B N1 C P 69B B %1 C P 64BRNFO0 C P 62DAGPE2 C P 56EJDSK0
0x0f5cb0…0f5e44 Dummy {f00=0x0002, f01=0x0190, f02=» P 61S[RIN0 C P 21FORBR0 C P 22FORBR0 C 4 P 65BOL]N1 C J P 67BOSIK1 C ` P 46FERIE0 C v P 35VARME0 C P 53PLIGT0 C P 55SOCYD0 C P 45UDBB 1 C P 47[FBDR0 C P 48UD[FB0 C
0x0f5e44…0f5fd8 Dummy {f00=0x0002, f01=0x018e, f02=» P 40DAGIN0 C P 23FORBR0 C P 24FORBR0 C 0 P 33DEPOS0 C F P 34DEPUD0 C P 41KNBEV1 C r P 20INKAS1 C P 42BISTH1 C P 43SKB*D1 C P 44SPPGA1 C P 66NEGIN0' ( P!!RE 412,$$1400$$100
0x0f5fd8…0f616c Dummy {f00=0x0002, f01=0x0190, f02=» v P!!DL 737,741 EXT 3270 P!!DL 754 & ( P MOVE GSWBIN1,=W'381' LENGTH CTTXT07 6 P!!DL 765,800 START 3270 b P!!EN PNOD C PTRA /S,NL PINC DIV461 PNOD R PINC SCREEN PINC RGSUB3 PNOD R PINC KMDI
0x0f616c…0f6300 Dummy {f00=0x0002, f01=0x0182, f02=»B1 PINC RGSUB2 PNOD D PINC RGFRMT * PINC ADM6BC < PINC ADM45 N PINC LOG ` PNOD D p PINC RGADM ~ PNOD D PINC RGKLAR PNOD D PINC KTOPR PINC RGSTRT PINC ADM5 PTLK U,4K PINC DC
0x0f6300…0f6494 (1, 311) Dummy {f00=0x0012, f01=0x2008, f02=»
0x0f6494…0f6628 Dummy {f00=0x0012, f01=0x0190, f02=»
[…0x3…]
0x0f6ae4…0f6c78 Dummy {f00=0x0012, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ &
0x0f6c78…0f6e0c Dummy {f00=0x0012, f01=0x0190, f02=» OD-KOM 0$a
0x0f6e0c…0f6fa0 Dummy {f00=0x0012, f01=0x0190, f02=»FORAB257ANDKM030FORBE131TPDAG154GLSK 136HUSL 061S[RIN021FORBR022FORBR065BOL]N167BOSIK146FERIE035VARME053PLIGT055SOCYD045UDBB 147[FBDR048UD[FB049EFUBB050UDBDR027SOMAN028GRONL029UDENL063GRDSK040DAGIN023FORBR024FORBR033DEPOS034DEPUD041KNBEV120INKAS142BISTH143SKB*D144
0x0f6fa0…0f7134 (1, 312) Opaque[0x194]
0x0f7134…0f72c8 # DirEnt {nam=»C462 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x0f7134…0f72c8 IdxSect {
0x0f7134…0f72c8 f00 = 0x0032 // 0xf7134 @0x0
0x0f7134…0f72c8 f01 = 0x0004 // 0xf7136 @0x2
0x0f7134…0f72c8 gno = [ // 0xf7138 @0x4
0x0f7134…0f72c8 [0x00]: C0x0032.0x2.0
0x0f7134…0f72c8 [0x01]: C0x0067.0x2.0
0x0f7134…0f72c8 ]
0x0f7134…0f72c8 }
0x0f72c8…0f745c Dummy {f00=0x0032, f01=0x018e, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T01; V PLC=08L; f P00; v PT; P01; PTID=BC; PTCL=BC; PLEV=60; P02; PTDC=T03; PLC=07L; PTDC=T08; PLC=0
0x0f745c…0f75f0 Dummy {f00=0x0032, f01=0x018e, f02=» PTDC=T07; PLC=01L; P00; $ PT; 0 P04; : PTID=TD; F PTCL=TC; V PLEV=60; f P02; v PTDC=T03; PLC=02L; PTDC=T07; PLC=02L; P00; PT; P01; PTID=TH; PTCL=TC; PLEV=
0x0f75f0…0f7784 Dummy {f00=0x0032, f01=0x0190, f02=» PTCL=TC; PLEV=60; P02; $ PTDC=T03; 0 PLC=03R; @ PTDC=T07; P PLC=03R; ` P00; p PT; | P01; PTID=TJ; PTCL=TC; PLEV=60; P02; PTDC=T03; PLC=05R; PTDC=T07; PLC=05R;
0x0f7784…0f7918 Dummy {f00=0x0032, f01=0x0190, f02=»T07; PLC=07R; P00; PT; ( P01; 2 PTID=TL; > PTCL=TC; N PLEV=60; ^ P02; n PTDC=T03; z PLC=09R; PTDC=T07; PLC=09R; P00; PT; P01; PTID=TM; PTCL=TC; PLEV=60;
0x0f7918…0f7aac Dummy {f00=0x0032, f01=0x0152, f02=»; PLEV=60; P02; PTDC=T03; & PLC=13R; 6 PTDC=T07; F PLC=13R; V P00; f PT; r P01; | PTID=D0; PTCL=D0; PLEV=60; P00; P00; PC; P00; P02; PSCL=S01; PSCL=S0
0x0f7aac…0f7c40 Dummy {f00=0x0032, f01=0x2008, f02=» PLEV=60; P02; PTDC=T03; & PLC=13R; 6 PTDC=T07; F PLC=13R; V P00; f PT; r P01; | PTID=D0; PTCL=D0; PLEV=60; P00; P00; PC; P00; P02; PSCL=S01; PSCL=S0
0x0f7c40…0f7dd4 (1, 313) Dummy {f00=0x0067, f01=0x0190, f02=» # % Z d !& &01&02&03&04ASSIGN BACKUP OPSTART DISCFEJL B G I P TTTTTTTTTTTTT9TTTTTTTTTTTTT9- v u G F3E ! & 9 3 % , 40 =0 >0 ?0 A0
0x0f7dd4…0f7f68 Dummy {f00=0x0067, f01=0x0190, f02=» % D% : w I ! w* xb ! w 4 x b # % x b # % x W 4 # % x W 4 ) ~ 4 # &! " y 2 % w " 3 $ 4 4 4 4 ! w
0x0f7f68…0f80fc Dummy {f00=0x0067, f01=0x0190, f02=» " _MJ PW 4 # *H @ , W H @ , ( , ? 2 r !"#$%& '()*+,-./012 % h T. 6 ? 6 ? $ A _ ? ? % )! !
0x0f80fc…0f8290 Dummy {f00=0x0067, f01=0x0190, f02=» ? # W A A @ + A ? @ ) A ) ! j! f $b N L ) + " :hN b N ) , Lb N ! w % ! x W ! y W I ? ? ! ! ? b b b b b b = ? % { ? ? % yb
0x0f8290…0f8424 Dummy {f00=0x0067, f01=0x0190, f02=» ? ? % z ! { ? ? # | % w ? ? # % ? ? ? :3? x % w : ?3 :3 " % x !u w ? ? I ? ? ? u ? % ! ? < ? "8 8 ? !
0x0f8424…0f85b8 Dummy {f00=0x0067, f01=0x0190, f02=» ) ! ! < ? _ ! ? T ? ? ? _ I ? ? ? @ @ ? < ? $ " ? ? % x " ? ? y x b b x |$ " W
0x0f85b8…0f874c Dummy {f00=0x0067, f01=0x0190, f02=» w wb ) w Wy % }r Wm ( WdA W` |W[ }WV WQ # wWE W@H ! w A , W&H w A I , 3W $ 4 @ ~ x 4 ? x y 4 + 4 ! J! ! 4 W 6
0x0f874c…0f88e0 Dummy {f00=0x0067, f01=0x0190, f02=»{X TF xj X " % _1 xj X @+ 4 @+ w 3 4 @+ w 4 Q TF xj X U W4 Q + xhX L P j X U " U w_ ^% _ 4 ( XL {X hX L P " Q W# hX L T P ( XL {X Q 4 L 3
0x0f88e0…0f8a74 (1, 314) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»LEDFIL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x001e // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0002 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x001e.0x3.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x001e, f01=0x018e, f02=» PLED RGSTRT P!!LS $$TBC$$ P!!AB * PLED DKSUBS 6 P!!LS $$TBC$$ H P!!AB PLED KMD08 h P!!LS $$TBC$$ z P!!AB PLED RGMAIN P!!LS $$TBC$$ P!!AB PLED SL461,/S P!!LS $$TBC$$ P!!AB PLED SCRE
0x0f8d9c…0f8f30 Dummy {f00=0x001e, f01=0x0190, f02=» PLED RGSUB1 P!!LS $$TBC$$ P!!AB . PLED RGSUB2 : P!!LS $$TBC$$ L P!!AB ` PLED RGSUB3,/S l P!!LS $$TBC$$ P!!AB PLED RGFRMT P!!LS $$TBC$$ P!!AB PLED SUBAPL P!!LS $$TBC$$ P!!AB PLE
0x0f8f30…0f90c4 Dummy {f00=0x001e, f01=0x0152, f02=» P!!AB PLED ADM6,/S P!!LS $$TBC$$ $ P!!AB 8 PLED KTPLN,/S D P!!LS $$TBC$$ X P!!AB l PLED KTOPR,/S x P!!LS $$TBC$$ P!!AB PLED RGKLAR,/S P!!LS $$TBC$$ P!!AB PLED ADM45,/S P!!LS $$TBC$$
0x0f90c4…0f9258 Dummy {f00=0x001e, f01=0x2008, f02=» PLED ADM6,/S P!!LS $$TBC$$ $ P!!AB 8 PLED KTPLN,/S D P!!LS $$TBC$$ X P!!AB l PLED KTOPR,/S x P!!LS $$TBC$$ P!!AB PLED RGKLAR,/S P!!LS $$TBC$$ P!!AB PLED ADM45,/S P!!LS $$TBC$$
0x0f9258…0f93ec Dummy {f00=0x001e, f01=0x0190, f02=» " & & & & 1: 4 MANUEL D $ : Z & j & 2: x AUTOMATISK $ : & ` : & b : & (ER AKTIV) & & (SENDER)
0x0f93ec…0f9580 Dummy {f00=0x001e, f01=0x018e, f02=» & SEND FRA DENNE DISK? & * & D 8 BD J " ( l x & $ & & & START FRA: $ T & R
0x0f9580…0f9714 (1, 315) Opaque[0x194]
0x0f9714…0f98a8 # DirEnt {nam=»ADM5 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ea0, f03=0x0000}
0x0f9714…0f98a8 IdxSect {
0x0f9714…0f98a8 f00 = 0x0075 // 0xf9714 @0x0
0x0f9714…0f98a8 f01 = 0x0004 // 0xf9716 @0x2
0x0f9714…0f98a8 gno = [ // 0xf9718 @0x4
0x0f9714…0f98a8 [0x00]: C0x0075.0x0.0
0x0f9714…0f98a8 [0x01]: C0x0075.0x1.0
0x0f9714…0f98a8 ]
0x0f9714…0f98a8 }
0x0f98a8…0f9a3c Dummy {f00=0x0075, f01=0x0190, f02=» P IDENT ADM5 831005 EV P DDUM KMD08 " P PDIV 6 P ENTRY A5KONV D P EXT A5RET1 Z P EXT LAMPON n P EXT LAMPOF P EXT ASGVOL P EXT RAREAD P EXT STRTID P EXT WRITID P EXT SQWRIT P EXT SPCLRA
0x0f9a3c…0f9bd0 Dummy {f00=0x0075, f01=0x0190, f02=»AR ENDINP P PERF LAMPOF,=W'2047' P PERF ASGVOL,CBIN2 0 P BNOK A5RET1 J " P PERF LAMPON,=W'64' LAMP 5 ON ^ P MOVE CRECNR,CBIN1 P B ADM0540 PADM0530 P* P* LOAD THE IBM FLOPPY P* P DSC0 FD01,UNLOD
0x0f9bd0…0f9d64 Dummy {f00=0x0075, f01=0x0190, f02=»GSWBIN2,CBIN10,ADM0542 ( P PERF LAMPOF,=W'1026' OFF LAMP 1, 10 PADM0540 J " P DSC1 FD01,LOAD,CBIN7 LOAD IBM Z P BBEOD ADM0543 P BOK ADM0543 & P PERF LAMPON,=W'2' LAMP 10, ERROR P B ADM0530 REPEAT PADM0543 P MOVE GSWB
0x0f9d64…0f9ef8 Dummy {f00=0x0075, f01=0x0190, f02=» PERF STRTID,CVOLNO SET UP STRTID $ P PERF WRITID,CPCKBUF,CBIN3,CBIN1 * P B ADM0535 R PADM0536 d 2 P PERF WRITID,CPCKBUF,CBIN3,CBIN1 PRINT HEADER t P MOVE GSWBIN6,CBIN0 0 P MOVE GSWBIN1,=W'40' DELETE AND WRITE HEADER P MOVE GSWSTR20
0x0f9ef8…0fa08c Dummy {f00=0x0075, f01=0x0190, f02=» PERF SQWRIT,FD01,=D'1',CPCKBUF P BNOK ADM0568 ( P CLEAR CERRORFL > PADM0550 START LOOP V P MOVE GTWBCD2,CRECNR r P PERF SPLIN8,CBIN10,CBIN3 P ADD CRECNR,CBIN1 P ADD GSWBIN6,CBIN1 P MOVE GSWBIN1,=W'128' 2 P PERF
0x0fa08c…0fa220 Dummy {f00=0x0075, f01=0x0190, f02=» OF DATA r P MOVE GSWSTR20,=C'SLUTD' P MOVE GSWBIN5,CBIN0 0 6 P MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 L & P BE ADM0564 SLUTD: END OF CONVERT $ P PERF SQWRIT,FD01,=D'1',CPCKBUF P BNOK ADM0568 * P***** !!!!!! CHANGE 8 TO 1
0x0fa220…0fa3b4 (1, 316) Dummy {f00=0x0075, f01=0x0190, f02=»,GSWBIN1,GSWSTR1,CBIN0,CBIN1 z P BNE ADM0550 $ P B ADM0565 8 PADM0568 J P SUB CRECNR,GSWBIN6 Z P PERF LAMPON,=W'2' v P B ADM0530 PADM0570 P CBNE CRECNR,CBIN2,ADM0572 " P PERF LAMPON,=W'514' LAMP 2+10 P ATTFMT KONV5F
0x0fa3b4…0fa548 Dummy {f00=0x0075, f01=0x0190, f02=» PADM0572 0 P PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD P BNOK ADM0568 L $ P PERF WRITID,CPCKBUF,CBIN3,CBIN2 b P TBT ENDINP,ADM0575 P B ADM0530 PADM0575 " P DSC0 FD01,UNLOD UNLOCK IBM-FD P B A5RET1 LAMPS ON P
0x0fa548…0fa6dc Dummy {f00=0x0075, f01=0x0190, f02=»T RECORD P SET SPPROMPT P ATTFMT KONV4FMT & P PERF SPCLRA CONTINUE ? > " P PERF LAMPOF,=W'514' LAMP 2+10 ^ 2 P IB SPBINW2,A0561,A0561,A0562,A0563,A0561, C P A0561,A0561,A0561,A0564 P B ADM0560 PA0561 MAK P B ADM
0x0fa6dc…0fa870 Dummy {f00=0x0075, f01=0x0190, f02=» P B ADM0550 PA0563 KRE, TRY NEXT P SET CERRORFL 4 P B ADM0550 J PA0564 KVIT P CLEAR CERRORFL p PADM0564 P SET ENDINP PADM0565 END OF DATA P MOVE GSWBCD3,GSWBIN6 P TBF ENDINP,ADM0566 P SUB
0x0fa870…0faa04 Dummy {f00=0x0075, f01=0x0190, f02=»*************************************** P* 0 P* FORMATS : P* T 6 P************************************************* ^ P* P* PKONV4FMT FRMT P FSL P FCOPY ='KORREKT' P FILLR '?',1 P FKI 1
0x0faa04…0fab98 Dummy {f00=0x0075, f01=0x4094, f02=» FNL ( P FTEXT 'HVIS "SLUT" SMIDES DEN V[K' P FNL 8 P FKI 1 D P FMEL 'B',TSWBCD2 R P FMEND l P* z P END @ P* P* PKONV4FMT FRMT P FSL P FCOPY ='KORREKT' P FILLR '?',1 P FKI 1
0x0fab98…0fad2c Dummy {f00=0x0075, f01=0x2008, f02=» DM,310,417 @ DDUM KMD08 $ PDIV 8 ENTRY A5KONV F EXT A5RET1 EXT A5RET2 p EXT LAMPON EXT LAMPOF EXT ASGVOL EXT RAREAD EXT STRTID EXT WRITID EXT SQWRIT
0x0fad2c…0faec0 Dummy {f00=0x0075, f01=0x4016, f02=» 0 / . a - , > " , + u * = K < + ~ d ? $ ) 6 ( @ ' Y J & X @ M Q _ ^ _ & _ ( _ a _ { _ T % : : w 9 s
0x0faec0…0fb054 (1, 317) Opaque[0x194]
0x0fb054…0fb1e8 # DirEnt {nam=»CNF1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x0fb054…0fb1e8 IdxSect {
0x0fb054…0fb1e8 f00 = 0x0050 // 0xfb054 @0x0
0x0fb054…0fb1e8 f01 = 0x0002 // 0xfb056 @0x2
0x0fb054…0fb1e8 gno = [ // 0xfb058 @0x4
0x0fb054…0fb1e8 [0x00]: C0x0050.0x2.0
0x0fb054…0fb1e8 ]
0x0fb054…0fb1e8 }
0x0fb1e8…0fb37c Dummy {f00=0x0050, f01=0x018e, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : 01; J TDC=T02; V LC=08L; f 01; v SDC=S01; T; 04; TID=TC; TCL=TC; LEV=60; 01; PTDC=T01; PLC=01L; 01;
0x0fb37c…0fb510 Dummy {f00=0x0050, f01=0x00f8, f02=» 02; SDC=S02; SDC=S03; T; 0 01; : TID=GA; F TCL=GA; V LEV=60; f 01; v TDC=T04; LC=05L; 02; SDC=S02; SDC=S03; U; 001; TB2; 004; 1L; 01;
0x0fb510…0fb6a4 Dummy {f00=0x0050, f01=0x2008, f02=» SDC=S02; SDC=S03; T; 0 01; : TID=GA; F TCL=GA; V LEV=60; f 01; v TDC=T04; LC=05L; 02; SDC=S02; SDC=S03; U; 001; TB2; 004; 1L; 01;
0x0fb6a4…0fb838 Dummy {f00=0x0050, f01=0x0190, f02=»
[…0x2…]
0x0fbb60…0fbcf4 (1, 318) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0fe8, f03=0x0000}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x007f // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x0008 // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x007f.0x1.0
0x0fbcf4…0fbe88 [0x01]: C0x007f.0x2.0
0x0fbcf4…0fbe88 [0x02]: C0x007f.0x3.0
0x0fbcf4…0fbe88 [0x03]: C0x0080.0x0.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x007f, f01=0x000c, f02=»840308 FRM4ELF FRMXEL INCSLT PRJOURO RAREAD RAWRITL L4 CNFWRTA CONFWRS CONRDXi CRKJH FRMXVOW GRASPVN INITRG KORTL PACKCL RADEL RAREADG RAWRITG SETDEBC SETKREE SLUTC SPCLRAC SPCLRNC SPLIN8 T:ATTFi T:DELAF T:DSC0G T:DSC1I T:EDWRK T:KIP
0x0fc01c…0fc1b0 Dummy {f00=0x007f, f01=0x0190, f02=» 4DCTSK 840308 DCTSK I:EVA0 DTB3270 840308 TASCIIK TEBCDI @ KEYCNV ( 8EBCDIC 840308 TASCIIK TEBCDI LFILHND 840308 CRFILE 6 DSUMOD BIDACR DLFILE 6BI
0x0fc1b0…0fc344 Dummy {f00=0x007f, f01=0x0190, f02=»UNCT INITRGT TRINP TRPAGE = hADM BELLIhCYK DIVTR ENTER FMSTYR FRMTSP8 KORT KVIT LSTINT MODPT PACKCLR SETDEBI SETKREP SPCA= SPCLRA SPCLRN SPCN SPERR SPINF1K SUBTOTEhSUM T:ERAS T:TBWD8 k 0DKSUBS - 840308 $$$TRAB ASSGR BACKUPA
0x0fc344…0fc4d8 Dummy {f00=0x007f, f01=0x0190, f02=»BR SETKRER SPERR T:ASSII T:DSC0B T:DSC1R T:READR T:RREAS T:RWRIX T:SWITw T:WRITA T:XSTA WRITJTP WRITLOP @ TRGFRMT L l 5840308 $$$TRAF FMSTYR FRMTSPF FRMXSP T:ATTFF SUBAPL 840308 $$$TRAS CLRSW " SELTR 2 SETDEB3
0x0fc4d8…0fc66c Dummy {f00=0x007f, f01=0x0190, f02=» T:GETCK @ :KMDIO X 840308 $$$TRA CLEAR8D CRKJA CRVO4 EDATNR + GRASPV0 LINOPT WCHECK h WRITFDV WRITID WRITJTL j WRITVOH WTALLYF ABORThADM CYWRT FRMTJT4 FRMXBCN FRMXJTA FRMXTAL FRMXVO RADEL RAWRITI SPCHK5W SPERR SPL
0x0fc66c…0fc800 Dummy {f00=0x007f, f01=0x0190, f02=»WRT1 UPDA12 UPDAKK FRMTJTS FRMTVOA FRMXTA3 KTPLANF PACKST SPERR SPINF8 WRITFD WRITJT_ WRITVOS WTALLYM PRGSUB2 8 840308 $$$TRAS PACKCL / PACKST CYTRP EMPTYTT D K RGSUB3 9 840308 $$$TRAS ASGFIL a ASGVOLC
0x0fc800…0fc994 (1, 319) Dummy {f00=0x007f, f01=0x0190, f02=»:DSC14 T:EDWRF T:WAIT WAITF >ADM6 ? 840308 $$$TRA ADM600M CHNGDKD EXCHAN- SENDRC1 SIGNOF SIGNON STRTRC Q TERMINE j TRNOK WJDCS ADMRETM ASGFILD BCKUP CLSVOL GETBIT1 LAMPOFO LAMPONG RAREAD RAWRIT SLUTIDI SOPRD SPC
0x0fc994…0fcb28 Dummy {f00=0x007f, f01=0x0190, f02=»N RESTMKS SETMK RAREADP WAITF 6 9 KTOPR Q 840308 $$$TRAO KTOPR KTPRT ADMRETO FRMXTAA KTPLAN4 RAREADF RAWRIT RESTMK SPCLRA SPCLRN SPERR T:ATTF T:EDWR T:WAIT WAITF WTALLY ADM5 Y 6 840308 $$$TRAM A5KON
0x0fcb28…0fccbc Dummy {f00=0x007f, f01=0x0190, f02=» SCREEN . 840308 $$$TRAD BELLS DKTESTI KBTESTF SCREEN1 B SPCA0 2 SPCLRA SPCLRND SPCLRST SPCNR : SPERR * SPINF1 SPINF8S SPLIN8 ABORT CLEAR8C EMPTYTS SPAPPLS SPCHK1S SPCHK2 SPCHK3S SPCHK4 SPCHK5 SPCHK6I SPCHK7S SPTCHKR T:D
0x0fccbc…0fce50 Dummy {f00=0x007f, f01=0x0190, f02=»:TFWD T:THOMC T:TLDOE T:TLEFS T:TRIGS T:TSTCS T:TUP T:UPDFT T:WAIT T:XSTA DIV461 S <840308 $$$TRAV FRM1EL T FRM2ELF [ FRM3ELM b FRM4ELG i FRMTGP ? FRMTJT FRMTKTV 1 FRMTKVF * FRMTTAM FRMTVOE FRMXBC M FRMXEL p FRMXGP F FRM
0x0fce50…0fcfe4 Dummy {f00=0x007f, f01=0x0190, f02=» A5KONVA ABORT ADM6007 ASGVOL1 BCKUP CLBEH CLEAR8 CLEDB CLEJA CLSVOL CRVO hCYK DIVTR EMPTYT FRMTKV FRMXJT FRMXSPA FRMXTAA FRMXVOA GRASPVA KBTESTB KORTC KTOPR KTPRT KVITB LAMPOFC LAMPONC LSTINTK MODPR PACKCL RAWRIT RGREAD SKIFT SLUTIDT SOPRD SPCLRAA
0x0fcfe4…0fd178 Dummy {f00=0x007f, f01=0x0190, f02=» WTALLYL 3 ADM6BC M 5 840308 $$$TRA ADM600M BCACTVT BCGOD CHNGDK1 EXCHAN2 SENDRC SIGNOF SIGNONB STRTRCD TERMIN o TRNOK WJDC : ABORT ADMRETA ASGVOLB BCKUP CLSVOL1 GETBITA LAMPOFN LAMPON RAREAD RAWRITO SLUTIDR SPCLR
0x0fd178…0fd30c Dummy {f00=0x007f, f01=0x0190, f02=»TR WRITLO .T:ATC0 840308 T:ATC0A T:DTC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB604 C:CB60F D:CB70 C:CB70 D:CD30 C:CB30 D:CD40 C:CB40 D:GB10 Z:GB10 D:GB20 Z:GB20 D:GB30A Z:GB30A D:GB404 Z:GB40F
0x0fd30c…0fd4a0 Dummy {f00=0x007f, f01=0x0190, f02=» T:ABC0A T:DBC0 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB604 C:CB60F D:CB70 C:CB70 D:CD30 C:CB30 D:CD40 C:CB40 D:GB10 Z:GB10 D:GB20 Z:GB20 D:GB30A Z:GB30A D:GB404 Z:GB40F D:TB10 Z:TB10 D:TB20 U:TB20 D:TD20
0x0fd4a0…0fd634 (1, 320) Dummy {f00=0x007f, f01=0x0190, f02=»:TB90 Z:TB90 y 4T:DKA0 840308 T:DKA0D KBVGO VT:AGA0 840308 T:AGA0A ^ T:DGA0 D:CB90 C:CB90 D:TB90 Z:TB90 = j 4T:DGA0 840308 T:DGA0D GTPGO FT:AD00 840308 T:AD00A " T:DD0
0x0fd634…0fd7c8 Dummy {f00=0x007f, f01=0x0190, f02=» T:AGA0 T:AKA0 T:ATC0 :A 6U:BTAB 840308 U:BTABB U:TB20 :T ,S:BTAB 840308 S:BTABB :B ,Z:TB90 840308 Z:TB90T ,D:TB90 840308 D:TB90T B ,C:CB90 840308 C:CB90C
0x0fd7c8…0fd95c Dummy {f00=0x007f, f01=0x0190, f02=» B ,C:CB20 840308 C:CB20C ,D:CB20 840308 D:CB20C B ,C:CB30 840308 C:CB30C ,D:CB30 840308 D:CB30C F ,C:CB40 840308 C:CB40C ,D:CB40 840308
0x0fd95c…0fdaf0 Dummy {f00=0x007f, f01=0x0190, f02=» C:CB70C ,D:CB70 840308 D:CB70C * ,Z:TB10 840308 Z:TB10T ,D:TB10 840308 D:TB10T F ,Z:GB10 840308 Z:GB10G [ l ,D:GB10 840308 D:GB10G B ,Z:GB20
0x0fdaf0…0fdc84 Dummy {f00=0x007f, f01=0x0190, f02=»30 840308 D:GB30G B ,Z:GB40 840308 Z:GB40G [ ,D:GB40 840308 D:GB40G : ,U:TB20 840308 U:TB20T ,D:TB20 840308 D:TB20T B ,D:CD30 840308 D:CD30C
0x0fdc84…0fde18 Dummy {f00=0x007f, f01=0x0190, f02=»C1GO M GTPGO > KBVGO # REGGO DCTASKD GETTIDA OFFLNE4 PRINT T1GO1 T:DSC00 VDUKB N P RGSUBS 840308 $$$TRAC CYCLR hCYK a CYKINTS 2 DIVTR ENTER FMTNXT KKCH KKTRP KORTK KVITV X LSTINTF MODPK ( SUBTOTP hSUM } ABORT CLEAR8a C
0x0fde18…0fdfac Dummy {f00=0x007f, f01=0x0190, f02=»AY SPERR SPINF1M SPLIN8 T:DSC0 T:DSC1 T:EDWRX T:ERASF T:TESTK T:WAITO WCHECKM WRITJTC WRITLOC WRITVOS WTALLYS ADM45 840308 $$$TRAM A45ELJ INCSLTI q INCSTRJ S PRJOUR ADMRETM KBTESTA RADEL RAREAD0 T:WAIT1 T:WRIT3 WRITJT- @
0x0fdfac…0fe140 Dummy {f00=0x007f, f01=0x0190, f02=»EH CLEDB CLEJ CLSVOL ELOPSTF LAMPOF LAMPONS RAREADA RAWRIT4 RGA120F RGADM RGREAD3 RSTORE SETMK SKIFT SOPRD SPCLRA& SPCLRNC SPLIN8E STRTWRO T:ATTFS T:DSC0O T:GETIS T:PAUSA T:RSTR4 T:USE UPDAKKM WRITID3 ZEROR RGKLAR 840308 $$$TRAK B
0x0fe140…0fe2d4 (1, 321) Dummy {f00=0x0080, f01=0x0190, f02=» WAHEADC 4 WALINEE N ZEROM hADM ASGFILI ASGVOLU BACKUPS CLEAR8S CLSVOL4 CNFWRTA CONFWRS CONRDXi CRKJH FRMXVOW GRASPVN INITRG KORTL PACKCL RADEL RAREADG RAWRITG SETDEBC SETKREE SLUTC SPCLRAC SPCLRNC SPLIN8 T:ATTFi T:DELAF T:DSC0G T:DSC1I T:EDWRK T:KIP
0x0fe2d4…0fe468 Dummy {f00=0x0080, f01=0x404a, f02=»2ELA FRM3EL4 FRM4ELF FRMXEL INCSLT PRJOURO RAREAD RAWRITL L4 CNFWRTA CONFWRS CONRDXi CRKJH FRMXVOW GRASPVN INITRG KORTL PACKCL RADEL RAREADG RAWRITG SETDEBC SETKREE SLUTC SPCLRAC SPCLRNC SPLIN8 T:ATTFi T:DELAF T:DSC0G T:DSC1I T:EDWRK T:KIP
0x0fe468…0fe5fc Dummy {f00=0x0080, f01=0x2008, f02=»
0x0fe5fc…0fe790 Dummy {f00=0x0080, f01=0x0190, f02=» :A 8 H IDENT U:BTAB TRA 4.2 84-01-30 F1 O1111 840126 EV U:BTAB U:BTABB n U:TB20 @ TB2 :T 8 H IDENT S:BTAB TRA 4.2 84-01-30 F1 O1111 840126 EV S:BTAB
0x0fe790…0fe924 Dummy {f00=0x0080, f01=0x0190, f02=» C:CB90C * & @ JKLM * & NO F = t L = L 8 H IDENT D:CB90 TRA 4.2 84-01-30 F1 O1111 840126 EV D:CB90
0x0fe924…0feab8 Dummy {f00=0x0080, f01=0x018e, f02=» F1 O1111 840126 EV p C:CB10 C:CB10C . * & B $ p 6 ) 6 8 H IDENT D:CB10 TRA 4.2 84-01-30 F1 O1111 840126 EV D:CB10
0x0feab8…0fec4c Dummy {f00=0x0080, f01=0x0190, f02=» B 8 H IDENT C:CB20 TRA 4.2 84-01-30 F1 O1111 840126 EV C:CB20 R C:CB20C d * & x * & * & = * & [
0x0fec4c…0fede0 Dummy {f00=0x0080, f01=0x018e, f02=» * N b 8 H IDENT D:CB20 TRA 4.2 84-01-30 F1 O1111 840126 EV t D:CB20 D:CB20C * & B * &
0x0fede0…0fef74 (1, 322) Opaque[0x194]
0x0fef74…0ff108 # DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0128, f03=0x0000}
0x0fef74…0ff108 IdxSect {
0x0fef74…0ff108 f00 = 0x0009 // 0xfef74 @0x0
0x0fef74…0ff108 f01 = 0x0002 // 0xfef76 @0x2
0x0fef74…0ff108 gno = [ // 0xfef78 @0x4
0x0fef74…0ff108 [0x00]: C0x0009.0x1.0
0x0fef74…0ff108 ]
0x0fef74…0ff108 }
0x0ff108…0ff29c Dummy {f00=0x0009, f01=0x018e, f02=» PLED RGSTRT P!!LS $$XLS$$ P!!AB * PLED DKSUBS 6 P!!LS $$XLS$$ H P!!AB PLED KMD08 h P!!LS $$XLS$$ z P!!AB PLED RGMAIN P!!LS $$XLS$$ P!!AB PLED SL461,/S P!!LS $$XLS$$ P!!AB PLED SCRE
0x0ff29c…0ff430 Dummy {f00=0x0009, f01=0x0190, f02=» PLED RGSUB1 P!!LS $$XLS$$ P!!AB . PLED RGSUB2 : P!!LS $$XLS$$ L P!!AB ` PLED RGSUB3,/S l P!!LS $$XLS$$ P!!AB PLED RGFRMT P!!LS $$XLS$$ P!!AB PLED SUBAPL P!!LS $$XLS$$ P!!AB PLE
0x0ff430…0ff5c4 Dummy {f00=0x0009, f01=0x0152, f02=» P!!AB PLED ADM6,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTPLN,/S D P!!LS $$XLS$$ X P!!AB l PLED KTOPR,/S x P!!LS $$XLS$$ P!!AB PLED RGKLAR,/S P!!LS $$XLS$$ P!!AB PLED ADM45,/S P!!LS $$XLS$$
0x0ff5c4…0ff758 Dummy {f00=0x0009, f01=0x2008, f02=» PLED ADM6,/S P!!LS $$XLS$$ $ P!!AB 8 PLED KTPLN,/S D P!!LS $$XLS$$ X P!!AB l PLED KTOPR,/S x P!!LS $$XLS$$ P!!AB PLED RGKLAR,/S P!!LS $$XLS$$ P!!AB PLED ADM45,/S P!!LS $$XLS$$
0x0ff758…0ff8ec Dummy {f00=0x0009, f01=0x018e, f02=» FMTCTL INDS=KEYB,OUTDS=SCREEN P* & P* 0 P* : P* D P* N P START REGGO X P STACK 200 l P ~ P EJECT " P***************************** P* 0 P* AUTOMATIC BATCH TRANSMISSION P* " P******
0x0ff8ec…0ffa80 Dummy {f00=0x0009, f01=0x0190, f02=» P CWB CB7 BATCH TRANSM P DWB CD3(CB3) " P DWB CD4(CB4) 8 P TWB GB1 N P TWB GB2 ^ P TWB GB3 n P TWB GB4 ~ P TWB TB1 P UWB TB2 P DWB TD2(TB2) P* PDCOMM DSET FC=61 & PDK01 DSET FC=C1 FD999001 CONFDATA
0x0ffa80…0ffc14 (1, 323) Opaque[0x194]
0x0ffc14…0ffda8 # DirEnt {nam=»RG462 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0880, f03=0x0000}
0x0ffc14…0ffda8 IdxSect {
0x0ffc14…0ffda8 f00 = 0x0044 // 0xffc14 @0x0
0x0ffc14…0ffda8 f01 = 0x002c // 0xffc16 @0x2
0x0ffc14…0ffda8 gno = [ // 0xffc18 @0x4
0x0ffc14…0ffda8 [0x00]: C0x0044.0x0.0
0x0ffc14…0ffda8 [0x01]: C0x0046.0x2.0
0x0ffc14…0ffda8 [0x02]: C0x0052.0x2.0
0x0ffc14…0ffda8 [0x03]: C0x0057.0x0.0
0x0ffc14…0ffda8 [0x04]: C0x0064.0x2.0
0x0ffc14…0ffda8 [0x05]: C0x0064.0x3.0
0x0ffc14…0ffda8 [0x06]: C0x0065.0x2.0
0x0ffc14…0ffda8 [0x07]: C0x0065.0x3.0
0x0ffc14…0ffda8 [0x08]: C0x0066.0x0.0
0x0ffc14…0ffda8 [0x09]: C0x0066.0x1.0
0x0ffc14…0ffda8 [0x0a]: C0x0066.0x2.0
0x0ffc14…0ffda8 [0x0b]: C0x0066.0x3.0
0x0ffc14…0ffda8 [0x0c]: C0x0067.0x0.0
0x0ffc14…0ffda8 [0x0d]: C0x0067.0x1.0
0x0ffc14…0ffda8 [0x0e]: C0x0067.0x3.0
0x0ffc14…0ffda8 [0x0f]: C0x006a.0x0.0
0x0ffc14…0ffda8 [0x10]: C0x006a.0x1.0
0x0ffc14…0ffda8 [0x11]: C0x006a.0x2.0
0x0ffc14…0ffda8 [0x12]: C0x006a.0x3.0
0x0ffc14…0ffda8 [0x13]: C0x006b.0x3.0
0x0ffc14…0ffda8 [0x14]: C0x006c.0x0.0
0x0ffc14…0ffda8 [0x15]: C0x006d.0x0.0
0x0ffc14…0ffda8 ]
0x0ffc14…0ffda8 }
0x0ffda8…0fff3c Dummy {f00=0x0044, f01=0x0190, f02=»WB ! CRx 2 R .R b D j D s D } D D >D D N * >
0x0fff3c…1000d0 Dummy {f00=0x0044, f01=0x0190, f02=» P 8 2 0 F 1 d a ~ TC F $ ( T!H !v F H p R T! J! J
0x1000d0…100264 Dummy {f00=0x0044, f01=0x0190, f02=» P 8 2 0 P 1 d
0x100264…1003f8 Dummy {f00=0x0044, f01=0x0190, f02=»!H !v F H p R T! J! J BC * ` D0 D0 * "3 L > JTB2 L @ JKLMNO " $
0x1003f8…10058c Dummy {f00=0x0044, f01=0x0190, f02=» % B
0x10058c…100720 Dummy {f00=0x0044, f01=0x0190, f02=»
0x100720…1008b4 (1, 324) Dummy {f00=0x0046, f01=0x0190, f02=»
[…0x4…]
0x100f04…101098 Dummy {f00=0x0046, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ &
0x101098…10122c Dummy {f00=0x0046, f01=0x0190, f02=» OD-KOM 0$b
0x10122c…1013c0 Dummy {f00=0x0046, f01=0x0190, f02=»FORAB257ANDKM030FORBE131TPDAG154GLSK 136HUSL 061S[RIN021FORBR022FORBR065BOL]N167BOSIK146FERIE035VARME053PLIGT055SOCYD045UDBB 147[FBDR048UD[FB049EFUBB050UDBDR027SOMAN028GRONL029UDENL063GRDSK040DAGIN023FORBR024FORBR033DEPOS034DEPUD041KNBEV120INKAS142BISTH143SKB*D144
0x1013c0…101554 (1, 325) Dummy {f00=0x0052, f01=0x0190, f02=» T F 0 0 0 } s B '
0x101554…1016e8 Dummy {f00=0x0052, f01=0x0190, f02=»
0x1016e8…10187c Dummy {f00=0x0052, f01=0x0190, f02=» * . ; 0 ; =
0x10187c…101a10 Dummy {f00=0x0052, f01=0x0190, f02=»
0x101a10…101ba4 Dummy {f00=0x0052, f01=0x0190, f02=» * 0 0 F
0x101ba4…101d38 Dummy {f00=0x0052, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , l
0x101d38…101ecc Dummy {f00=0x0052, f01=0x0190, f02=» B L d
0x101ecc…102060 Dummy {f00=0x0052, f01=0x0190, f02=» : 0 0 0 0 < .
0x102060…1021f4 (1, 326) Dummy {f00=0x0057, f01=0x0190, f02=» * B 0 0 0 0 . "
0x1021f4…102388 Dummy {f00=0x0057, f01=0x0190, f02=»0 *0 1 4 0 WB" # " # 2 Q2 2 `2 2 WB 0 ' -hN T /jN _ ? 0 0 4 0 4 0 } 4 0 ~ 4 0 4 0 4 0 4 0 4 0 | 4 0 } 4 0 } 4 0 4 0 4 0 4 0 4 0 4 0 4 4 2Q 2 9^AL@ AH@FB Kv@v<`? ?,@ @ @
0x102388…10251c Dummy {f00=0x0057, f01=0x0190, f02=» @ } *- SUMTRP ADM ARKIVDEBETSALDO KVITKREDITT[LLER SLUT KONTONR START EKS.LBNRDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUM SLUT TESTBEV.PERIODEDISK SKIFT START TESTEL. JOURNAL KASSELUKNINGBEHOLDNINGST[LLEREVERSURKONTONR KASSEKONTONR PR
0x10251c…1026b0 Dummy {f00=0x0057, f01=0x0190, f02=»*99B**E-B999BBZZZZBBZ999BPPXXBBB****9XX.XXPPZZ.ZZ.ZZZZ99999999.99.99BB99.99.99BZZ.ZZ.ZZXX.XX.XXBZZ.ZZ.ZZB99E-99E-99B99.99.99BXXXXXXXXXX99.99.999.9BZZZZZZZZZZXXXXXXXXXXBZZZZZZZZZZB******E-****XXXXXXE-XXXXZZZZZ999.99BB999.99999.99BBBZZ.ZZ.ZZBBE-9999999999BXXX.XXXXX.
0x1026b0…102844 Dummy {f00=0x0057, f01=0x0190, f02=»Z9.ZZ-999E-99999E-99BBB***.***.**9.99-BBXE-XXE-XXE-XXB*.***.***.**9,99+*.***.***.**9.99+*.***.***.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZBBZZZ.ZZZ.ZZZ.ZZ9.99-
0x102844…1029d8 Dummy {f00=0x0057, f01=0x0190, f02=»x y { z s w] ^ ; F 9 F i 2 D A q h Z I g 0 J 5 [ h j h + = 7 = [ Q < C r R n D W & m b 6 +Y + X G e , T c : T N : +Y * X A X 0 G 2 _ _ 0 Z > ] [N d ] P] d J e , J , _ u t b[
0x1029d8…102b6c Dummy {f00=0x0057, f01=0x0190, f02=»J e ,' 6 + # b9 ) e[ h b > [ e 8 J0 2 _ _ _ + # b9 Z D * * I 6 A !A "1 # $ + # *9 + [ 2 b o[ [ + 3 W 2 Ns _s _s - - *
0x102b6c…102d00 Dummy {f00=0x0057, f01=0x0190, f02=»= b * 7 Z $ < $ e I $ < ] N E S [ * G 8 4 7 : E 6 ( " # U L L P Z S 5 * # U + # b9 & A * I 6 ( ( ( !( Z S 5
0x102d00…102e94 (1, 327) Dummy {f00=0x0064, f01=0x0190, f02=» 4 8 : C 5 Z 5 3 # ! C ! H F "? G T 4K PRIMO_ 2 BEV _ _ _ 2 ULTIMO_ 4 TOTAL_ _ _ 4 SUPL _ _ _ 2 KOR _ _ + # 9 2 4 - b 2 * * 4 : 8 NETTO 4 7 * VERSNR = @ ? <
0x102e94…103028 Dummy {f00=0x0064, f01=0x0190, f02=»Lg fY a ki?$ KK t tmWnrWmWmmW< u u&DRCD&D&&DQ _ _('p ( (('# B A10/.010MM0- E Ej[H6[j[ [q " $ & ( *
0x103028…1031bc Dummy {f00=0x0064, f01=0x0190, f02=» * 0 80 90 :0 ;0 <0 =0 > # & ) , / 3 7 ; ? C G K O S W a f k p v |
0x1031bc…103350 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x103350…1034e4 Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' Zj & C ( ( 9( 2 B 9>_ 9R C C C ( :2 6
0x1034e4…103678 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x103678…10380c Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' & C ( ( B _ C C C ( :2 6
0x10380c…1039a0 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x1039a0…103b34 (1, 328) Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' & C ( ( B _ C C C ( :2 6
0x103b34…103cc8 Dummy {f00=0x0064, f01=0x0190, f02=» _ ) 1 : C ( : Zj#0 l4 Y & + P _ l W Zj #0 0T & ! T P & ! X T C W > > Cn Y ( x P Y * <: x y Wz X " ;* X X . 8 ? L X 0P X T 5 ! Y * <: y X V* X ( CJ
0x103cc8…103e5c Dummy {f00=0x0064, f01=0x0190, f02=» = X !@PP X X * b ) Y * Y , X , C8 x X *YvP y X " x Y X " T Y _ >D_ B U C Q C D;H;J;Z;l; = = ; X X * $" ~_> @ Y X * :r_R X !@XX y X # x V y X X * CJ P P 1 _ 1 <: X * :V X X * $" X D
0x103e5c…103ff0 Dummy {f00=0x0064, f01=0x0190, f02=»=x X H X X * , )$ P _ : > ' Y Y > y x C y X C C X ( L4 x Tf B = 9 R 9 = X ! T >D_` y C Q " T Cn CJ X ! > X X ! x Y Y _ X "@P B R y C B
0x103ff0…104184 Dummy {f00=0x0064, f01=0x0190, f02=» _ >` y _6 < x X@ X C8 X # CJ C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x C8 > = x X X # CJ_ B > C C : + Cn X C8 CJ ( Lt Zj ( L K : B > C _J + . L X 9 V ! P
0x104184…104318 Dummy {f00=0x0064, f01=0x0190, f02=»l4 : L 2! l| Y " Lt Zj L Zj !0 l4 _ L X "T X K CP K L Zj !0 l4 X L ? K Lt ' Zj ! Y 0T V L _ : L 2' l| Zj " P # P l4 R P P X ' ' W
0x104318…1044ac Dummy {f00=0x0064, f01=0x0190, f02=» H@ K @ W W W W W W W L Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 D W U X Q E W Y 0 D El T SX L 9H Y * B W W B SX X 0T l X 2Z X +" X *9h P0 P R P R l| Y +Wl Bz Y + Bl
0x1044ac…104640 Dummy {f00=0x0064, f01=0x0190, f02=» P V L ! L W X 0 Y 8 B P L Y 0 X 0 X 2] X 8 Y 0 B : X 0 :H* L : X 2T Y 2 : C 1 B ] S| : B X +! l| X +! U 9K Y ( Y + D El L 9H Y * 2 Y ( Y + Zj C 4 0 Y C 6 2 X 0 l : ! P # T : l4 C
0x104640…1047d4 (1, 329) Dummy {f00=0x0065, f01=0x0190, f02=» : K + Q 2 P. P8 Y ( L B X # V : Zj g(_0 b_>h,h*Zjh*h*h*g h h g|f g|f E F F h*E h* W W X 0Q E E Y ( Y *P SX el C X <' X X e L X *# X ( " Q " P X 0PR V _` " PL T " Ph I
0x1047d4…104968 Dummy {f00=0x0065, f01=0x0190, f02=» X X( C : X *! P P T l P SX K C W @ X (T W X y 6 Y ( : X (;n K h,g( g(g F`g h h ghf grf E F F g E h* L Y . Y ,W L Y . X ( X ." PV X 0RzT$ Y *P U :H L Ev K T gRW gH X . X 2QP Y *T2
0x104968…104afc Dummy {f00=0x0065, f01=0x0190, f02=»g> : L g g Y *T F : g> KH g> : L V Y " X .9H $ g P & X ( " Q Y +Q R " P W " U I Y , " Q " l X . X 0R P" X *:h P PD l ) Y (W X *:h Pt Pn P P l I8 P< I WZ X ! X $" P<Q
0x104afc…104c90 Dummy {f00=0x0065, f01=0x0190, f02=» X , X 0P@ I8 T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l I _r X ( P Y (_ P. IX P Y 8 F L X 8 X $ L Wh_ " P X ( T X & V H "@TF IX P6 V Y X (P KH I X (P I K 8 Y 0 X 2P X 0
0x104c90…104e24 Dummy {f00=0x0065, f01=0x0190, f02=»T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : L X : X ( T X & V H " V Y : X $ L X : L : X Y " X Y $ X Y & X @W X < Y = " Lt ! T W h4 ! P =H h4 J X *! T" X y 4 @ X (T y 6W4 X
0x104e24…104fb8 Dummy {f00=0x0065, f01=0x0190, f02=» D Y D :H Y ! P V Y ZjW Y ! P Y W V Y KH V Y : Zj g( : 2' " P T bW Y : K> : L SX K C K X L : "0P ' Q W ' Y : W Y V f L Y Y Y < V
0x104fb8…10514c Dummy {f00=0x0065, f01=0x0190, f02=» L0 P W X =' V W V Y =P L0 : N N T / M W T / M S| "!@P l R T / M S| "!@P l S| ' / Zj#0TR C R Zj#0T< C Zj#0 T&' P &R" &P C Zj#0 T & C : W l
0x10514c…1052e0 Dummy {f00=0x0065, f01=0x0190, f02=» Uh Qd AM^ Zj#0TX N* M^ ( L4 P V I @M % AM W & # T : Y _ AM l T N Zj#0 TX &RX &P C T / "!@P l R T N T / "!@P l R Zj#0T C : W l ( L4 W T
0x1052e0…105474 (1, 330) Dummy {f00=0x0065, f01=0x0190, f02=» Zj#0 T V W l 2 ;BP P8 J T " l< O ( WF L4 W< # _6 O ( L4 W Zj & F : ( L4 W 2 & Q> >A >A 2 $ Zj & V D 9a 9 V @! W @" T W X R V 8
0x105474…105608 Dummy {f00=0x0065, f01=0x0190, f02=» , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y W l ( Zj#0T R W T V G 9h ' W W l W S R T T T Tr P Zj / W T Tr Zj / "!@ lxW T T C
0x105608…10579c Dummy {f00=0x0065, f01=0x0190, f02=» L4 Wp Zj T T W T ^ ( 1W& C C C " l ( L4 ' Pb S I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + V W T SX e SB C S C B B
0x10579c…105930 Dummy {f00=0x0065, f01=0x0190, f02=» C Zj & l@ l@ C Zj "!@ lx : B T T T V : 2 ' W 2 6 2 @" " T # ' ?D W.' #? V H l ;D:B " : _, Zj C : : T T Y P C W $0 P l4 C
0x105930…105ac4 Dummy {f00=0x0065, f01=0x0190, f02=» 0W Q W Q W U U 4 ! P T 0P0W, 8 C S W C C l4 0 P C l4 ;a > 4 ZP T : 49d_b B@5 @ 8 @N ' @ d P ( z= #0 T B 'W l4 B B "
0x105ac4…105c58 Dummy {f00=0x0065, f01=0x0190, f02=» P 1_ , @ - R T U :B@ ' d V W W W X~Y~W Yv_ ^ a b b W X X X X YBW X X e iBh hfh iBh@W Y Y Y Y W W W W W V 7 P L0 P W W| V X _ @W@R l o X pVP 9c DV Zj Y
0x105c58…105dec Dummy {f00=0x0065, f01=0x0190, f02=» T # W V P L , V 2P " 2 P V D ! R T V P V L0 W V P _ 8^t DW 2 ! 9BP V T # W V P D $ V 6 V % V E @" ' T 2 % 7_ 2 # PH L" PB Zj 2" &] Y $! 6P Q $ T 9BP
0x105dec…105f80 Dummy {f00=0x0065, f01=0x0190, f02=»W@ 'W 'W '_6! ! ! ! :l:d:h Zj W W P W 6 2# W4 @" EY " T> ; [ # :H 2 T Z L LY D V, W # LY E V $ W D V LY , Wn 6 2 W " P " # ;b WF " ;d# _ [
0x105f80…106114 (1, 331) Dummy {f00=0x0066, f01=0x0190, f02=» (;AR H & lT z ;AV: Z H # lT lT R ; 6 lP Zj : & lT & Z 4 R : Z 4 " 2@P : [ [ Zj & @" ! P lT Z lT [ 6 [ Z 7 Y Z 7 : ( :A
0x106114…1062a8 Dummy {f00=0x0066, f01=0x0190, f02=» ;b ; : ;f" #?_" W l4 # l0" T & T + : * & !@P `1` P ^ Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ;
0x1062a8…10643c Dummy {f00=0x0066, f01=0x0190, f02=» "# 9e! # K : #0 l0 P8" T * & : * & !`P :J +_ +Q ^ _0 , V W R V W R XV W 1 ^ _0 R W ( V W Q P W ! W V P , V W Q P W $ W V P T
0x10643c…1065d0 Dummy {f00=0x0066, f01=0x0190, f02=»! 9 : & P Q _ ,^ , < _ # ; [ _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 : lL &
0x1065d0…106764 Dummy {f00=0x0066, f01=0x0190, f02=» & Q 9d! )0 + P 7 Y Z $ _ : V ) 0 l4 !0 l0" TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 lP [ [ [ [ $ [ [ >h [ [ d _ d _
0x106764…1068f8 Dummy {f00=0x0066, f01=0x0190, f02=»1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 l4 !0 l0" Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V &
0x1068f8…106a8c Dummy {f00=0x0066, f01=0x0190, f02=» z " P ! R 2` { 1 ! { [ Z d ^ Q d b P _ T { [ d d [ Q@ [ d { R [ _ d d b Z ! Z $ Z %_N [ Q* d d ^ R [ Z { d z 9e! W Z : V I _ , " -! 9H X"
0x106a8c…106c20 Dummy {f00=0x0066, f01=0x0190, f02=» h2Y Y th4 bY Zjh,g( g(g h*g h h ghf grf gRg g g gHh* e 6 fd K K K K V K : Zj e| el e Y V f fd f V Z P 2 " T W "@T '?W "? He," K :e J J " J _Z Z
0x106c20…106db4 (1, 332) Dummy {f00=0x0066, f01=0x0190, f02=» : V R (Q V : " " : e| J P v I < : J Qf : P 4 ! TV_ K g WJ gNW +_ gh gd K W. _& X S@W X & S< J K : V : J T l` 1 g g : ! P ! P ! P ! P Zj !
0x106db4…106f48 Dummy {f00=0x0066, f01=0x0190, f02=» e : { : j4$0T i Pb 9 _ j4$0T [ j4$0T Z : R$ P $ 1T Y TdW 5 _& : j4$0TH $ R W R # P W ) V E jL$0T Wp W W l j4 [
0x106f48…1070dc Dummy {f00=0x0066, f01=0x0190, f02=» Zj#03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : i Y #03 T $_X i _^ W l jh p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 2.1 TRACE
0x1070dc…107270 Dummy {f00=0x0066, f01=0x0190, f02=» L4 jh p Aj` ) Y V Ajl jp V " ox v or Aj` : j Wr j 2 Zj j or ox & or j Q jh Aj`W* j jz V D ! )0 1 6 V 9 or Aj` l W| j ( L4 < ( L4 : Wp Wl Wh Wd W`
0x107270…107404 Dummy {f00=0x0066, f01=0x0190, f02=» ** Ajj Ajn ER Aj R Aj j or m R 4 op 4 Aj` j U 4 - _ l j @j` p W| ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTED LENGTH STACK UNDERFLOW ARITHM OVERFLOW STACK OV
0x107404…107598 Dummy {f00=0x0066, f01=0x0190, f02=»T INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETER LENGTH ERROR DATASET BUSY ILLEGAL DATASET REFERENC
0x107598…10772c Dummy {f00=0x0066, f01=0x0190, f02=» P W " 2 <a R 9a V o : l @o P ( L4 _" @rJP @rLPj Pf q@ V $ $T$ D BR V T D P T D @PL E @W . @q P$ p q $ $P BT , D E @ : @o P Ao H ArJW TW V Ao rP rN V ArR TB( s (
0x10772c…1078c0 Dummy {f00=0x0066, f01=0x0190, f02=» Ao rN @rR V P ( R W : LEGAL DATASET REFERENC
0x1078c0…107a54 (1, 333) Dummy {f00=0x0066, f01=0x0190, f02=» P W " 2 <a R 9a V : l @o P ( L4 _" @ P @ P P V $ $T D R V T D P T D P " rX "
0x107a54…107be8 Dummy {f00=0x0066, f01=0x0190, f02=» s$ V W Z Tsd _" = T s$ Z W Z , 9a ~ @s P t rP : @rTP @rV : ArT As As "V # ( s As P UW T As P u` bt @uL u* =v Wv Qwz Mx> /y Sz| Iz J{ T| Y| G
0x107be8…107d7c Dummy {f00=0x0066, f01=0x0190, f02=» AuN AuP AuR Au^ AuV AuZ Au ~ P AuZ Au bu v ,u +v< -v< ;vT :vz (u .v s$ X " , Au L AuX L @ AuT AuZ_T ~ X ,T ~ X ) AuP AuR bv0 v ;vT :vz v @uZP Au^1+X Au^_ v @uL AuD @uN AuF @uP AuH @uR AuJ_ AuX @uTV
0x107d7c…107f10 Dummy {f00=0x0066, f01=0x0190, f02=»s @uX As P W @uVT @uTZ zX @ X As y<W W 0 A X W A X A X @ X Z W @s AuT @s AuX_x s$ As PZ @uN& 0 Z P P : P @R t yB_ ~ _T w t 4 Z
0x107f10…1080a4 Dummy {f00=0x0066, f01=0x0190, f02=»uF @uN @uTR zX >a A X As @uV As @uX As P W @uVT @uTZ zX A X @ t @ X As Z : A 8 t @uTR V ;a Q _ 1 t @ X As _ 0 Z Ay u` P 3P u* C @uLP @uN 1 @s P
0x1080a4…108238 Dummy {f00=0x0066, f01=0x0190, f02=» zX @uTV @ X As 0 t u` P u* @uLP @uN 1 t A X @ X Z @s AuT @s AuX_ s. @s P @uTV @rR( u* V " @uXT @rP TP @uLP @uN A X As As w 0! ~ u` T @uLP @uN" 1 t u*Px @uN @uP @
0x108238…1083cc Dummy {f00=0x0066, f01=0x0190, f02=»{z A{~ @ Z " ! U 0 A{~U {^_ H "P` @uN @uXT @rP PF R % < < ! ~ u` T @uLP @uN! 5 = t u* u* ~ t P @uN u* ~ W" q@ ~ q@ $ B % Aq> t T @rNW @uN As u4 @uTR ArR As
0x1083cc…108560 Dummy {f00=0x0066, f01=0x0190, f02=» @uN @uDPL @uFP b} R @uXT @rP }LV bq Rl ) I I @ I B Aq W PT }LRN )W q ~ Aq t q , A} A} :B A} Q (P _ H B @uX H A} " u* EQ GT LT NE NG NL P2 @s R* b} @uNP Q } ( t u*
0x108560…1086f4 (1, 334) Dummy {f00=0x0066, f01=0x0190, f02=» @uDP } u4 @uTV @rR Q B 1 @uX Q Q @ Aq> " q@ ( R$ ( @uTV @rR H B ) I B " u* $ % " # C C C C *T W #T AuV rP PR (T ~ Pl ,T ~ P^ )TX AuX T @rP R: ?aP *
0x1086f4…108888 Dummy {f00=0x0066, f01=0x0190, f02=»Q " ;B 2 Pl L ?b P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL W C " _* Q P Q V _ W " A < V " ! F <
0x108888…108a1c Dummy {f00=0x0066, f01=0x0190, f02=»P P " AuT " X X u* " , , A A :B A Q (P _ # # H A " A 6 A 8 4 Z 4 @ 6 I T A 8 A X A XT A 8 T @uTR zX A 6 N @ X " P P (T @s ! PD @uXT @rP b Z Q";H @ X;d D ( @ X "
0x108a1c…108bb0 Dummy {f00=0x0066, f01=0x0190, f02=» " A 0R$ 9U AR FQ 0:D A _* 'T :H_ A " A 6 A 8 4 Z T A 8 A 6 " , H "! R _U .WV A r: ~ A r " 9d ~ ! R :W& W W W ?W :W .W / a h A h T
0x108bb0…108d44 Dummy {f00=0x0066, f01=0x0190, f02=» ^ Z( j A h " ! g 1 j j Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ : + Zj [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I 6 * B
0x108d44…108ed8 Dummy {f00=0x0066, f01=0x0190, f02=» J !00T ; g _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? ld Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W J 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 .W / a A T
0x108ed8…10906c Dummy {f00=0x0066, f01=0x0190, f02=» . " & * 4 4 4 I 4 4 4 @ 8 I 6 L0 0 WC0 W<6 0 W 0 6 0 W 0 W 0 W 0 W 0 W 0 R 0 P R _ 0 0 P A W*6 0 W 0 W 0 : @ + ?2
0x10906c…109200 Dummy {f00=0x0066, f01=0x0190, f02=» 4 90 _;0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ X 7 GG;GG;7;;;7;7? 1 ? 0 T b ! T A _ WO0 ) ? 0 ? I H 0 S 0 P 0 Q 4 0 < G! q! m $0 ( 1 W ! { S0 1 H 0 6 0
0x109200…109394 (1, 335) Dummy {f00=0x0067, f01=0x0190, f02=» ! ? 4 1 4 0 P 0 W 0 ( W 4 I } S0 $ 1 Wc1 ! 6! V 6 0 W 0 W 0 $ 2 _. 4 6 0 Y W 0 Y W 0 Y 4 R0 1 4 4 H/ I H. S0 1 0 K/ 4 4 6 <GI( L WM T
0x109394…109528 Dummy {f00=0x0067, f01=0x0190, f02=» 4 A/H" 0 (6 "02W:0 0 0 H 0 HQ 0 0 W !T 0 0 W W 0 0 W 4 P , . #HP 0 $ _ AP WT`W LW T @P 4 @P 4 I ,I A H 0 , K0 _ 4 T K% M 4 1 A 4 A 4 P % LW T 1 @PW @P
0x109528…1096bc Dummy {f00=0x0067, f01=0x0190, f02=» J : [ 0 8 v H v P ^ 8 P I o < 1BILAGFEJL LINIE NROPSTART
0x1096bc…109850 Dummy {f00=0x0067, f01=0x0190, f02=». a DISK STANDSET. [ ; " / % + 7 C@ Y@ d # A 4 A 4 P % LW T 1 @PW @P
0x109850…1099e4 Dummy {f00=0x0067, f01=0x0190, f02=» l z H* H* 4 @! 0 jA)!B% @)aM aM B hM L B ! P I!4H ) J, J W J , +^ * [ a [ h $ @!" bM _UbM bM f A! KMCTVK 0 C EJ_ ^bM KMCT7I + 0 C EJ CKT$$CR @ @
0x1099e4…109b78 Dummy {f00=0x0067, f01=0x0190, f02=»I 0 0 I B " HQ I W W'I W 0 I 0 0 P I A 4 0 4 0 0 0 4 I 1 4 1 4 I } @ # V WW W 6 &@ SW= W5 W- % TW%0 _M A V @ 'W 4 0 0 0 4 I T 4 I A
0x109b78…109d0c Dummy {f00=0x0067, f01=0x0190, f02=» W W 0 0 4 _6 4 0 6 W, cW' fW DW hW iW eW I I 0 H i W{ h @ # I 0 ( Ub W ( ( Rb W " $ L a % % I 0 W # I 0 4 Y0 "0 4
0x109d0c…109ea0 Dummy {f00=0x0067, f01=0x0190, f02=»M3! l/! k+ ) gH @ A I A ! O @ )W 4 0 M X0$ T q 0$ T K J J 4 " I 0" 0% Q P P 4 4 I !0" 0 Q P ! O P 4 4 0& P Q I 0 4 I 0' Q P 4 @'A
0x109ea0…10a034 (1, 336) Dummy {f00=0x0067, f01=0x0190, f02=» 0 @ 4 I 0 W 0 @'@ 4 A TmI T`W 0 P # / I T ! M W P T X, _6I 0 W 0 @ 4 I 0 W 0 @ 4 I" C@% j 0 % M < M8 Lb M!! _ _/ [b M < [b M
0x10a034…10a1c8 Dummy {f00=0x0067, f01=0x0190, f02=» [b M P Y P ( ! K"e , / .h ( T Z m m_ h (L Z_ 3 _ ^ hM T A%_ hM T[fM M 0 I" C J % M 0T<fM L!B% [h ' dM J? I" ? I" ? @ @ 4 A @
0x10a1c8…10a35c Dummy {f00=0x0067, f01=0x0190, f02=» ( x ; c < P 1 [ , " # % ( Z d !& &01&02&03&04FEJL ASSIGN BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-b c ] e
0x10a35c…10a4f0 Dummy {f00=0x0067, f01=0x0190, f02=» ! $ ) 0 7 ? H U0 f0 g0 h0 i0 j0 l0 n0 p0 r0 t0 v0 x0 z # ) * M 0 I" C J % M 0T<fM L!B% [h ' dM J? I" ? I" ? @ @ 4 A @
0x10a4f0…10a684 Dummy {f00=0x0067, f01=0x0190, f02=» % D% : e I ! e* Jb j j ! e 4 J b # P % J b # o % J W h4 # P % J W 4 ) Q g 4 # v&! u" K 2 % e " 3 $ 4 4 4 4 ! e
0x10a684…10a818 Dummy {f00=0x0067, f01=0x0190, f02=» ]" _MJ PW 4 # *H @ , W H @ , ( , ? 2 r !"#$%& '()*+,-./012 % h T. 6 ? 6 ? $ A _ R? ? % )! !
0x10a818…10a9ac Dummy {f00=0x0067, f01=0x0190, f02=» ? # p W A A @ + p A V? @ ) q A ) ! qj! rf $b N L ) + " :hN b N ) , Lb N ! e % z ! J W ! K W I ? ? ! ! ? b b b b b b = ? % M ? ? % s Kb
0x10a9ac…10ab40 Dummy {f00=0x0067, f01=0x0190, f02=» ? ? % L ! M ? ? # N % e ? ? # y % x ? ? Z? :3? J % e P: ` ?3 :3 w " % J !u e ? Q? I c? d? ? ] u ? % ! ? < ? "8 U8 ? !
0x10ab40…10acd4 (1, 337) Dummy {f00=0x0067, f01=0x0190, f02=» ) ! ! q ! r < ? _ ! ? T ? ? ? S _ V I c? d? ? @ @ ! ? < !? w $ " ? ? % J " ? ? K J b b J n N$ i" W
0x10acd4…10ae68 Dummy {f00=0x0067, f01=0x0190, f02=» e eb j j ) e j j Wy % Or Wm ( WdA W` NW[ OWV fWQ # t eWE W@H ! e A , W&H e A I , _W $ 4 b g J 4 a J K 4 + 4 ! J! Q ! ! 4 W 6
0x10ae68…10affc Dummy {f00=0x0067, f01=0x0190, f02=» Jj X " % ^ _/ Jj X @+ 4 @+ e _ 4 @+ e 4 Q TF ^ Jj X U W4 Q + ^ JhX L P j X U " U e_ ^% _ 4 % XL MX ^hX L P S" QSW# hX L T P % XL MX Q 4 3 2
0x10affc…10b190 Dummy {f00=0x0067, f01=0x0190, f02=» " 5 = S X d n E p " 0 [ @ o < $ 0 < = Q T Y d x 51 DEB KRE51 52 ! " 0 1 I Q R p 9 2 Q
0x10b190…10b324 Dummy {f00=0x0067, f01=0x0190, f02=» L0 N0 P0 R0 U0 X0 ] . - - X @+ 4 @+ e _ 4 @+ e 4 Q TF ^ Jj X U W4 Q + ^ JhX L P j X U " U e_ ^% _ 4 % XL MX ^hX L P S" QSW# hX L T P % XL MX Q 4 3 2
0x10b324…10b4b8 Dummy {f00=0x0067, f01=0x0190, f02=» i x A @ J H A W @ W A ^@ I _ @ W I W I " A 6 _5 W @ _ _EA 4 A 6 AR H __ @ _GK ( @ _Z$ 0 0 A _sI 0 _@ @ _ K P _@ _ A _ 6 .9?EMWapy
0x10b4b8…10b64c Dummy {f00=0x0067, f01=0x0190, f02=» T 4 TxW~ TqWw TkWq 4 2 TDWJ T=WC T6W< T0 4 I ( 4 I 4 I 4 H 4 4 4 6 ! T1 4 4 I T 6 4 4 4 0 4 4 A @ @ 6 4 A 4 A 4 H vI sH
0x10b64c…10b7e0 Dummy {f00=0x0067, f01=0x0190, f02=»4 @ 4 ! H H 0 @ " #H ^H [) yW $ 0 40 ! 0 0 "0 P 0 0 Y W 0 ! Q , v6 J: 0 $ 0 J4 - n p J J o o J% n J 4 H ( I "H I %@ A p &@ ) 4 4 H &I #I H I b ' ( _@
0x10b7e0…10b974 (1, 338) Dummy {f00=0x006a, f01=0x0190, f02=» W ( )T W &T @ ! n W 4 4 ( ! ! ! S ( ! S ( ! S 4 I 6 * MWW I I A ` h +W W I I A d j +W W H I A ,0 WpWs WjH nWbWeH [I ) nA@ @ -@ 0 0 k . 0 0 H I
0x10b974…10bb08 Dummy {f00=0x006a, f01=0x0190, f02=» n n J A @ 6 _&@ @ _O% w J P A I @ 4 _ _ n n@ @ @ @ 0 4 I 5I A A n 0 1 iW 0 k 0 10 @ @ _ 4 4 lI CI H TA @ WG - A . A (0 0 M P ,W 0 0 10
0x10bb08…10bc9c Dummy {f00=0x006a, f01=0x0190, f02=» 30 I K h 4 I "I I A A ! W W @ W 4 4 I , b aH I !) n # R # 4! 0! , I LW ! c W JW J JS W ~ 4T2 5H 6 7 (H 0 1 8A 6 @ A @ @ 4 J ! 4 4 % K
0x10bc9c…10be30 Dummy {f00=0x006a, f01=0x0190, f02=» Z! . 6 - n W + n " I I" # s W 4 ] y u ; 4 <2 ) n fW ) J gW ) K eC 8 # < uR x: z8 |8 }8 #Y #J? I 8 ? = ! < < ? C 8 % <
0x10be30…10bfc4 Dummy {f00=0x006a, f01=0x0190, f02=» V @ ! A ) Wy = ) t = ! ="()*) `) %J ! ( V! L) # LWE = ) @ = # # 6) r) W @ ! A _ ! ) # W 4 4 ! ,! ! ! ! ! ! ! 4 0 P W W qH
0x10bfc4…10c158 Dummy {f00=0x006a, f01=0x0190, f02=» = [ K * 8 H @ " T y n x p W ^ P @ 9 I v ; y & B ! ,
0x10c158…10c2ec Dummy {f00=0x006a, f01=0x0190, f02=» ! " $ & ( . 4 : B K0 T0 U0 V0 W0 X0 Z0 0 ^0 `0 b0 d0 f0 h0 j0 l0 n0 p 0 / / ! ! ! ! ! ! 4 0 P W W qH
0x10c2ec…10c480 Dummy {f00=0x006a, f01=0x0190, f02=» 1( 4 1( 4 1( 4 BENR]RADRBFOBKOMTBOMRTXTTYPVAL DEBDATOKODEP]L-RATETNR A-ADRANTALFORF.LINIEOPKR.[NDR- POST. PRIMO SIDE ADM-NREJ EDB BRILLE REF-NRADM-KODBET-ARTDEBITORRTE/GEB DIVERSEHOVEDBOGLBNR ARTLEVKONTOLINIE NROPK-KODERET.IND.LEVERAND RATE-[NDRC
0x10c480…10c614 (1, 339) Dummy {f00=0x006a, f01=0x0190, f02=» FAKTDATOBTTXXXXTTTXXXVXXVXXTTTTTTTTTXTTTTVTTX,XX-XXXXXXXXE-XXZZZZZVZZ9,99+TTTTTTTVTTX,XX- [ R Q L B RATE Z ` C ' f ' B ? 1 / i . % % - * d * , ) d ) + ( d ( ) & & ( d ' i $
0x10c614…10c7a8 Dummy {f00=0x006a, f01=0x0190, f02=» # . % % $ $ # c # # c # " e " E @ d d d i i E g # - h % & d & & ' d ' ! e
0x10c7a8…10c93c Dummy {f00=0x006a, f01=0x0190, f02=» U } t V X b U W ! ! q h q R p S E T X POST T/GL. ]R } | E t } |
0x10c93c…10cad0 Dummy {f00=0x006a, f01=0x0190, f02=» ~ X g Z 3 : KONTROLSUM e g i } z v Y s l a : L b N g O g s Y ? M/P-NR } | t
0x10cad0…10cc64 Dummy {f00=0x006a, f01=0x0190, f02=»m } z v Y m h } z t V U W { j 2 d ] y ] f ] o k T n ~ X g Z 4 GL. SALDO w CHECK p i
0x10cc64…10cdf8 Dummy {f00=0x006a, f01=0x0190, f02=» * DEBITORINDB | p q h S r U ' SD-INCASSO | p M q h F]R RE] REM OPK BFO
0x10cdf8…10cf8c Dummy {f00=0x006a, f01=0x0190, f02=» y & 2 > N ) 5 B % . 9 D O Z e p { + 6
0x10cf8c…10d120 Dummy {f00=0x006a, f01=0x0190, f02=» 4 6 7 ; / B j C E I 4 J } J O O ` S j m l@ @ @ U ' SD-INCASSO | p M q h F]R RE] REM OPK BFO
0x10d120…10d2b4 (1, 340) Dummy {f00=0x006a, f01=0x0190, f02=» @ T A d1( 6 yy _ 6 y_ @aC A %Kb(AcA(I` A 1( 6 _ @c@(_DI EJ ME EJ KMC M I` ' ` , T T X , _ @(@cI` ,A ? AaI`1A 1( 6 _ _ 1( 2 _ a ` `0) _@1( 2 _ ! J ! K _ ` _ ` _a0*A`A 1
0x10d2b4…10d448 Dummy {f00=0x006a, f01=0x0190, f02=»d1 1 ad a $ ` @b_ $0 S g[ag hg L I T l hg T 1 4 0 ) y o w 4 d EJ $ # 1 0+ G 0, 6 %_ 0 P 0 0 1( 2 _ a b W 0 P 0 0 a b W 6 ?5 _f , A 1( 6 _
0x10d448…10d5dc Dummy {f00=0x006a, f01=0x0190, f02=»T T 4 4 "a a % Kh a< M8 c % hh P i h h T da We a _?H a1 h @ da d H b *db ht d a h W d % Kh dT MT ht i h h T d a h d ` W|A ^ %hh P @ _ + V d W. ! % Y % $ (
0x10d5dc…10d770 Dummy {f00=0x006a, f01=0x0190, f02=» Thg T 4 4 g[ hq mg " T 0 4 g[ hgmg T 0 I 4 4 I @ W0- Z X X0. g T W X0- g P ) y o 4 gb0 ( 4 bhg T g[ 4 y o x 4 I 0 $ o# Wk e hg P^ Z hg
0x10d770…10d904 Dummy {f00=0x006a, f01=0x0190, f02=»h g 1 hY% T Tbh g 1 4 HQ I A -W T @ ]? P, P ! W& U O P W 0 0' O 0 ! 4 * ( 4 4 * ( 4 4 H > T*( T$ ! T " T # T W $ T W _2 6@ ] 4 _ l $
0x10d904…10da98 Dummy {f00=0x006a, f01=0x0190, f02=»&H -@ @ 4 " U O M A 4 " U O M W W 4 ? < x ' d } H 8 x m w < X z
0x10da98…10dc2c Dummy {f00=0x006a, f01=0x0190, f02=»NSMIT AKTIVERET TERMINATE AUTOMATISK BATCH SENDTSLUTD00000 BATCH SENDESDATATRANSMISSION P `B9999TTT9ZZZZ9ZZZZZ999V99V99AAAAAAAAAAAAAAAAAAA9 1 v h d h hd k u s n pe d a h a m r v hd jd START h c
0x10dc2c…10ddc0 Dummy {f00=0x006a, f01=0x0190, f02=»ERNAVN fe KENDEORD bf V[LG: 1: SEND RESTEN 2: AFBRYD SENDING v ? 1: m 2: r ` b (ER AKTIV) (SENDER) c b # & ) - 2 7 < A
0x10ddc0…10df54 (1, 341) Dummy {f00=0x006a, f01=0x0190, f02=» ! ( / 7 @ K V b x % ) ) = ? F n . ^DESDATATRANSMISSION P `B9999TTT9ZZZZ9ZZZZZ999V99V99AAAAAAAAAAAAAAAAAAA9 1 v h d h hd k u s n pe d a h a m r v hd jd START h c
0x10df54…10e0e8 Dummy {f00=0x006a, f01=0x0190, f02=» > 3 B 0 2 6 :I > eH g 2 - !"#$$$$$$$$$%W 8 Q2 ?&A I A A 1( 6 _ H @ _ @ @ ?&A I I YI VA A 1( 6 GG _ K s s @ A 1( 6 _C s s t s s @ @ ?&?'?&C`9&A(@ C T T A T
0x10e0e8…10e27c Dummy {f00=0x006a, f01=0x0190, f02=»DW I N SW ,A @(?&?)?&?& !A 6 _ @ ?&H 0I $ y z y ! P UA W A WW S@ A ?&I ]1( A A g 2 **+?* 2 ,-./0123456_' ?* ?* ?* AA 1( ?* ?* ?* u A 1( u?*I %C P @ A 1( 6 _ A I CW S * P
0x10e27c…10e410 Dummy {f00=0x006a, f01=0x0190, f02=»L( P Q A UW A W A @ ?* @ @ SW H H A _ W C T C T C P @ A 1( 6 _ A @ I CW S * I , C K W , S N $ u R P _6 V T@ S( P Q A UW A WI A O V 0 0 K " 3 J_ H
0x10e410…10e5a4 Dummy {f00=0x006a, f01=0x0190, f02=» 0 0 0 (0 ?&I A W @ ?&I A A A v1( 2 7_ @ @ ?&?&?&I 7 A t x 1( t$6 _, ?&I A 1( t 6 _ ?& t t ! "1( A W @ 2 889:! ! _ u ! "_% g ! "_2 e ! "A 1( _W A 0 1(
0x10e5a4…10e738 Dummy {f00=0x006a, f01=0x0190, f02=»^ %WZ &WV 'WR WN (WJ )WF0 2$ 0 *$0 _ 0 W + W + W + W W + W ,W ?;4 ; b $ | g # ( - 2 4 9 ` = ?
0x10e738…10e8cc Dummy {f00=0x006a, f01=0x0190, f02=» w V O K P h - ; y T I n DGKNTNRBELBILAGFEJL KLAR SALD0AKTIV DAG NREJ EDBLBNR SENDER DIVERSETOTAL BEREGNINGSUBTOTAL CPR/CIR/NRREGKONTONRAUTOMA
0x10e8cc…10ea60 Dummy {f00=0x006a, f01=0x0190, f02=»SUR KONTONR REMIT B9BB9BXXXXXZZZZ9BBZZZ-99999999E-99XXXXXXXXE-XXZZZZZZZZE-ZZZZZZZZZZZE-9TTTTTTTTTTTTX-TTT.TTT.TTX.XX-TTTTTTTVTTX,XX-ZZZ.ZZZ.ZZ9.99-TTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99- Z B o ` Z ` SP RGE p e m ]
0x10ea60…10ebf4 (1, 342) Dummy {f00=0x006b, f01=0x0190, f02=» D ` j r b _ c d d m : 5 f o a o o 2 q Y : d " fu 2 m : ^ f n 2 l = = ` f "w @ k = * [ < FRA c TIL c n eq eq eq eq eq eq eq
0x10ebf4…10ed88 Dummy {f00=0x006b, f01=0x0190, f02=»l g h m E n l d o j # ) / 5 ; B J R [ d n x 0 0 0 0 0 0 0 " . : F
0x10ed88…10ef1c Dummy {f00=0x006b, f01=0x0190, f02=» j r b _ c d d m : 5 f o a o o 2 q Y : d " fu 2 m : ^ f n 2 l = = ` f "w @ k = * [ < FRA c TIL c n eq eq eq eq eq eq eq
0x10ef1c…10f0b0 Dummy {f00=0x006b, f01=0x0190, f02=» R ` ~ A 1( 2 _ K( @ A A l1( 2 _/ j k q k ) j o J E A A A - _l@ A 1( 2 _ @ @ @ @ @ @ @ @ @ @ W W W j0 0 K l + j J " Q u j y ! j V h 6
0x10f0b0…10f244 Dummy {f00=0x006b, f01=0x0190, f02=» V k i j 0H a J k q k@ E @ 4 4 ? " y j y j_ j j 4 n h D j J " . y y u j'# j 0 n _:0 4 e j j jI m J " W
0x10f244…10f3d8 Dummy {f00=0x006b, f01=0x0190, f02=» " _ I / % j W k% j W k k 0 4 n P 1( A 6 _.K 1 d W K < g W b W j j j 2 0 !0 J " < s j s s "0 I 6 W s
0x10f3d8…10f56c Dummy {f00=0x006b, f01=0x0190, f02=» A* H"" EJ ME KMCH` Ib ,aC ` "0 _ M , J !%T T T " T W #( $ % , C EjH" &P _#H" EJ M ' @$@*@ H` ` a 4 0 4 0 4 0+ G 4 ( KMCT C ) CKT 4 4 A)!B% @) aM aM a QbM 4 A)!B% @)a
0x10f56c…10f700 Dummy {f00=0x006b, f01=0x0190, f02=»" T6 S S % , KM ST ! M ^ h M P NMSX* # S @ 0 W _ , #% * M"X% _ , " T % T J &P J # W 4 M 4 $ = , * } x z [ ! y O V B I "
0x10f700…10f894 (1, 343) Dummy {f00=0x006c, f01=0x0190, f02=»UTDZ300 DAG NRTOTAL SUBTOTAL KASSE]BNINGSLET SALDO EDB-T[LLERE KASSE-KONTO SLET PERIODE EJ-EDB T[LLER VERSUR KONTONR REMIT % B999999999999999B9999999999999E-99BTTT.TTT.TTT.TT9.99-c d ^b X B G ` 1 G ] 2 _a 2 w 1 )
0x10f894…10fa28 Dummy {f00=0x006c, f01=0x0190, f02=» @ k = ! & + 0 6 > G R ] i u 0 0 0 0 0 0 " ' 3 B R + m - 0 V r B I "
0x10fa28…10fbbc Dummy {f00=0x006c, f01=0x0190, f02=» N & X B F JI ? A < A( A A 1( 2 _ @) $ A)@ 1( 6 _ _0H) ! k jX MX _HfX ( Q8j (X ( L" MX b Q % MX Q x _| MX _ WL % MW T UjX W MX T XW _v kX XL % MX L Jj X j X L6
0x10fbbc…10fd50 Dummy {f00=0x006c, f01=0x0190, f02=»MX T XL % MX T b _R@(? H j(A f0 1 " QP + % XL MX T8 J J Lj X j X j X L 0 1 %0 @+_U@+ 4 @ 0/ ? _ 00 01? >W @$A 0 A 1( 6 _/ [ d A@)6
0x10fd50…10fee4 Dummy {f00=0x006c, f01=0x0190, f02=» W ) k k I HI) # k f A&A 0 1( 6 _ [ d K) " @( 0 A 00 1( 6 _2 l :_/00 < 1@ A " @ -q k q l00 X 00 ? 00 q 0 A 1( 6 _ ? K X < < C EJ
0x10fee4…110078 Dummy {f00=0x006c, f01=0x0190, f02=» _ _ Ek C @' C C % KM CT I' MP ] h M P Wb M q _J! k 02? 01_Z KRK E P I WA$E =I # k l E @ ,Ex A @ W + k J l E K W= M A 1( 6 _ _ C @'_ A'_ @'W I A$ ? q I"%_ 02? 01_ E
0x110078…11020c Dummy {f00=0x006c, f01=0x0190, f02=» & J T - p % r % k pW r 4 4 ! Y - p % r % k p oW r q J 4 #5 T4 #6 T. #7 T( #8 T" #9 T #: T #; T #< T #= T #D 4 & J 4 xE J5 TF J6 T> J7 T6 J8 T. J9 T& J: T J; T J< T J= T JD 4 " @ 00 k _ 0
0x11020c…1103a0 Dummy {f00=0x006c, f01=0x0190, f02=» % JMTM@' C C % KM CThI'e! M ] h M P % JMT V: ZhM IWj C _ (C )1( )( @-_j % JM & M I- _ 0 ? ) M A 1( )6 _ _" C @'_ A'_ @'A- H- J &M _q . ? ] 9 i h &
0x1103a0…110534 (1, 344) Dummy {f00=0x006d, f01=0x0190, f02=» O V q B P d ( / x T FDBFOSLUTDDAG NRDATAS[TKORREKTOPSTART DISCFEJL SUBTOTAL KOMMUNE NRREGKONTONRVOLUME NR EJ-EDB T[LLER VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08 BBBZ9ZZZZ99999ZZZZ9999
0x110534…1106c8 Dummy {f00=0x006d, f01=0x0190, f02=» fc = = ^ f "w START VOLUME= DATASET= ? q H g g h < d SLUTMARKERING FUNDET I 1. RECORD HVIS "SLUT" SMIDES DEN V[K ` d b h i j
0x1106c8…11085c Dummy {f00=0x006d, f01=0x0190, f02=» R f t 0 0 0 0 0 0 0 0 " . ; R i - . H f & n T[LLER VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08 BBBZ9ZZZZ99999ZZZZ9999
0x11085c…1109f0 Dummy {f00=0x006d, f01=0x018e, f02=» : H IDENT SUBAPL TRA 4.2 83-10-04 F1 O1111 03.02.XXX.1 B > CLRSW SELTR SETDEB SETKRE SPAPPL SPCHK1 SPCHK2 SPCHK3 B . * SPCHK4B SPCHK5A SPCHK63 SPCHK7F SPTCHK $$$TRAS > : CLRSW " SELTR 2 SETDEB3 SETKRES SPAPPL. SPCHK1
0x1109f0…110b84 Dummy {f00=0x006d, f01=0x0190, f02=» h , 0 > 0 P 0 b 0 t 3 6 =0 @0 J F " D % LD% L: L L I ! L* Lb L L
0x110b84…110d18 Dummy {f00=0x006d, f01=0x0190, f02=» u0 1 y0 1 J F " D @L ! L L 4 L Lb # L % L Lb # L % L W . | 0 0 0 0
0x110d18…110eac Dummy {f00=0x006d, f01=0x0190, f02=» 0 $ 0 4 F J F " D L" L 2 % L " 3 $ 4 4 L4 4 R ! L L X 0 T
0x110eac…111040 Dummy {f00=0x006d, f01=0x0190, f02=» K0 ! P0 " W ( ` d : n d L J F " D @J, ! L4% L/# L*_*! L#_1 L =W L" _MJ PW 4 ^ Y
0x111040…1111d4 (1, 345) Opaque[0x194]
0x1111d4…111368 # DirEnt {nam=»RG461 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0ab0, f03=0x0000}
0x1111d4…111368 IdxSect {
0x1111d4…111368 f00 = 0x0055 // 0x1111d4 @0x0
0x1111d4…111368 f01 = 0x0026 // 0x1111d6 @0x2
0x1111d4…111368 gno = [ // 0x1111d8 @0x4
0x1111d4…111368 [0x00]: C0x0055.0x2.0
0x1111d4…111368 [0x01]: C0x0060.0x2.0
0x1111d4…111368 [0x02]: C0x0060.0x3.0
0x1111d4…111368 [0x03]: C0x0061.0x2.0
0x1111d4…111368 [0x04]: C0x0064.0x0.0
0x1111d4…111368 [0x05]: C0x0064.0x1.0
0x1111d4…111368 [0x06]: C0x0068.0x3.0
0x1111d4…111368 [0x07]: C0x0069.0x0.0
0x1111d4…111368 [0x08]: C0x006d.0x1.0
0x1111d4…111368 [0x09]: C0x006d.0x2.0
0x1111d4…111368 [0x0a]: C0x006f.0x2.0
0x1111d4…111368 [0x0b]: C0x006f.0x3.0
0x1111d4…111368 [0x0c]: C0x0072.0x3.0
0x1111d4…111368 [0x0d]: C0x0073.0x2.0
0x1111d4…111368 [0x0e]: C0x0073.0x3.0
0x1111d4…111368 [0x0f]: C0x0075.0x2.0
0x1111d4…111368 [0x10]: C0x0075.0x3.0
0x1111d4…111368 [0x11]: C0x0076.0x0.0
0x1111d4…111368 [0x12]: C0x0076.0x1.0
0x1111d4…111368 ]
0x1111d4…111368 }
0x111368…1114fc Dummy {f00=0x0055, f01=0x0190, f02=»S h ! CRx 2 R G .R M D U D ^ D h D q D z >D D N * >
0x1114fc…111690 Dummy {f00=0x0055, f01=0x0190, f02=» P 8 2 0 F 1 d a ~ TC F $ ( T!H !v F H p R T! J! J
0x111690…111824 Dummy {f00=0x0055, f01=0x0190, f02=» P 8 2 0 P 1 d
0x111824…1119b8 Dummy {f00=0x0055, f01=0x0190, f02=»!H !v F H p R T! J! J BC * ` D0 D0 * "3 L > JTB2 L @ JKLMNO " $
0x1119b8…111b4c Dummy {f00=0x0055, f01=0x0190, f02=» % B
0x111b4c…111ce0 Dummy {f00=0x0055, f01=0x0190, f02=»
0x111ce0…111e74 (1, 346) Dummy {f00=0x0060, f01=0x0190, f02=»
[…0x4…]
0x1124c4…112658 Dummy {f00=0x0060, f01=0x0190, f02=» TCTDTETFTGTHTITJTKTLTMTN* F _ &
0x112658…1127ec Dummy {f00=0x0060, f01=0x0190, f02=» OD-KOM 0$a
0x1127ec…112980 Dummy {f00=0x0060, f01=0x0190, f02=»FORAB257ANDKM030FORBE131TPDAG154GLSK 136HUSL 061S[RIN021FORBR022FORBR065BOL]N167BOSIK146FERIE035VARME053PLIGT055SOCYD045UDBB 147[FBDR048UD[FB049EFUBB050UDBDR027SOMAN028GRONL029UDENL063GRDSK040DAGIN023FORBR024FORBR033DEPOS034DEPUD041KNBEV120INKAS142BISTH143SKB*D144
0x112980…112b14 (1, 347) Dummy {f00=0x0060, f01=0x0190, f02=» T F 0 0 0 } s B '
0x112b14…112ca8 Dummy {f00=0x0060, f01=0x0190, f02=»
0x112ca8…112e3c Dummy {f00=0x0060, f01=0x0190, f02=» * . ; 0 ; =
0x112e3c…112fd0 Dummy {f00=0x0060, f01=0x0190, f02=»
0x112fd0…113164 Dummy {f00=0x0060, f01=0x0190, f02=» * 0 0 F
0x113164…1132f8 Dummy {f00=0x0060, f01=0x0190, f02=» F 0 0 0 0 0 0 0 0 #0 &0 * + , l
0x1132f8…11348c Dummy {f00=0x0060, f01=0x0190, f02=» B L d
0x11348c…113620 Dummy {f00=0x0060, f01=0x0190, f02=» : 0 0 0 0 < .
0x113620…1137b4 (1, 348) Dummy {f00=0x0061, f01=0x0190, f02=» * B 0 0 0 0 . "
0x1137b4…113948 Dummy {f00=0x0061, f01=0x0190, f02=»0 *0 1 4 0 S " # " # 2 Q2 2 `2 2 S 0 ' -hN T /jN _ ? 0 0 4 0 4 0 } 4 0 ~ 4 0 4 0 4 0 4 0 4 0 | 4 0 } 4 0 } 4 0 4 0 4 0 4 0 4 0 4 0 4 4 2Nj2 9^@ @T@ ? A JP? <T? > @H@L@<
0x113948…113adc Dummy {f00=0x0061, f01=0x0190, f02=» @ } *- SUMTRP ADM ARKIVDEBETSALDO KVITKREDITT[LLER SLUT KONTONR START EKS.LBNRDAGS-DATOKONTOKORTMASKIN NRPOST-DATOSTART SUM SLUT TESTBEV.PERIODEDISK SKIFT START TESTEL. JOURNAL KASSELUKNINGBEHOLDNINGST[LLEREVERSURKONTONR KASSEKONTONR PR
0x113adc…113c70 Dummy {f00=0x0061, f01=0x0190, f02=»*99B**E-B999BBZZZZBBZ999BPPXXBBB****9XX.XXPPZZ.ZZ.ZZZZ99999999.99.99BB99.99.99BZZ.ZZ.ZZXX.XX.XXBZZ.ZZ.ZZB99E-99E-99B99.99.99BXXXXXXXXXX99.99.999.9BZZZZZZZZZZXXXXXXXXXXBZZZZZZZZZZB******E-****XXXXXXE-XXXXZZZZZ999.99BB999.99999.99BBBZZ.ZZ.ZZBBE-9999999999BXXX.XXXXX.
0x113c70…113e04 Dummy {f00=0x0061, f01=0x0190, f02=»Z9.ZZ-999E-99999E-99BBB***.***.**9.99-BBXE-XXE-XXE-XXB*.***.***.**9,99+*.***.***.**9.99+*.***.***.**9.99-Z.ZZZ.ZZZ.ZZ9.99-*.***.***.**9.99+BB*.***.***.**9.99-B*.***.***.**9E,99B999E-999E-99E-99BBBZZZE-ZZZE-ZZE-ZZBBZZZ.ZZZ.ZZZ.ZZ9.99-
0x113e04…113f98 Dummy {f00=0x0061, f01=0x0190, f02=»x y { z s w] ^ ; F 9 F i 2 D A q h Z I g 0 J 5 [ h j h + = 7 = [ Q < C r R n D W & m b 6 +Y + X G e , T c : T N : +Y * X A X 0 G 2 _ _ 0 Z > ] [N d ] P] d J e , J , _ u t b[
0x113f98…11412c Dummy {f00=0x0061, f01=0x0190, f02=»J e ,' 6 + # b9 ) e[ h b > [ e 8 J0 2 _ _ _ + # b9 Z D * * I 6 A !A "1 # $ + # *9 + [ 2 b o[ [ + 3 W 2 Ns _s _s - - *
0x11412c…1142c0 Dummy {f00=0x0061, f01=0x0190, f02=»= b * 7 Z $ < $ e I $ < ] N E S [ * G 8 4 7 : E 6 ( " # U L L P Z S 5 * # U + # b9 & A * I 6 ( ( ( !( Z S 5
0x1142c0…114454 (1, 349) Dummy {f00=0x0064, f01=0x0190, f02=» 4 8 : C 5 Z 5 3 # ! C ! H F "? G T 4K PRIMO_ 2 BEV _ _ _ 2 ULTIMO_ 4 TOTAL_ _ _ 4 SUPL _ _ _ 2 KOR _ _ + # 9 2 4 - b 2 * * 4 : 8 NETTO 4 7 * VERSNR = @ ? <
0x114454…1145e8 Dummy {f00=0x0064, f01=0x0190, f02=»Lg fY a ki?$ KK t tmWnrWmWmmW< u u&DRCD&D&&DQ _ _('p ( (('# B A10/.010MM0- E Ej[H6[j[ [q " $ & ( *
0x1145e8…11477c Dummy {f00=0x0064, f01=0x0190, f02=» * 0 80 90 :0 ;0 <0 =0 > # & ) , / 3 7 ; ? C G K O S W a f k p v |
0x11477c…114910 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x114910…114aa4 Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' Vp & C ( ( 9( 2 B 9>_ 9R C C C ( :2 6
0x114aa4…114c38 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x114c38…114dcc Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' & C ( ( B _ C C C ( :2 6
0x114dcc…114f60 Dummy {f00=0x0064, f01=0x0190, f02=» $ A & a ! % ) - 1 5 9 = A E I M Q U Z _ d i n s y $
0x114f60…1150f4 (1, 350) Dummy {f00=0x0064, f01=0x0190, f02=» " : R j " $ 4 * X , 4 9 < K W@ @ @ @ @ @ @ @ @ @ @ $@ ;@ R@ i@ .8# /<$Z0|' 0 ' & C ( ( B _ C C C ( :2 6
0x1150f4…115288 Dummy {f00=0x0064, f01=0x0190, f02=» _ ) 1 : C ( : Vp U & + P _ T Vp #0 0T & ! T P & ! X T C T > > B Y ( x P Y * <. x y Wz X " ; X X . 8 ?X J X 0P X T 5 ! Y * <. y X V* X ( B| x
0x115288…11541c Dummy {f00=0x0064, f01=0x0190, f02=» X X * b ) Y * Y , X , Bj x X *YvP y X " x Y X " T Y _ >8_ B U C Q C D;<;>;N;`; = = ; X X * $" ~_> @ Y X * :f_R X !@XX y X # x V y X X * B| P P 1 _ 1 <. X * :J X X * $" X D % " X
0x11541c…1155b0 Dummy {f00=0x0064, f01=0x0190, f02=» X X * , )$ P _ : > ' Y U > y x C y X C C X ( K x Tf B = 9 R 9 = X ! T >8_` y C Q " T B B| X ! > X X ! x Y Y _ X "@P B R y C B P 9 V >8_F
0x1155b0…115744 Dummy {f00=0x0064, f01=0x0190, f02=»_6 <t x X@ X Bj X # B| C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x Bj > < x X X # B|_ B >P C BN : + B X Bj B| ( KP Vp ( K Jv : B > C _J + . J X 9 V ! P @ Y
0x115744…1158d8 Dummy {f00=0x0064, f01=0x0190, f02=» X "T X J B J J Vp X J ?X J KP ' Vp ! Y 0T V K Z : J 2' Vp R P P X ' ' T X _ X ' _ X '?_ J Vp X ' J X ! J J J X " 9b! X :c 2" H@* J @
0x1158d8…115a6c Dummy {f00=0x0064, f01=0x0190, f02=» 0 CD Df P O J 9H Y * B(W W B O X 0 X +" X *9h P( P P Y +W^ A Y + A CHWL T A A W> Q W Y + U Q P W W Y ( CD C J X *! P V L ! J T X 0 Y 8 A P J Y 0 X 0 X
0x115a6c…115c00 Dummy {f00=0x0064, f01=0x0190, f02=» J 9H Y * 2 Y ( Y + Vp 4 0 U 6 2 : C ( K C : C B _, _ X Bj B P B| B _R ( KP X D D : K + Q 2 P. P8 U fJ ( K B X # V : Vp bt_0 X _>cf
0x115c00…115d94 (1, 351) Dummy {f00=0x0068, f01=0x0190, f02=» X *# X ( " Qp " P X 0P: Vp_` " P4 T H K WT " P Y 0] Y (_t " X _. O X *# P B 1 O W " P X X$ C : X *! P O Jj C W @ X (T W X y 6 Y ( : X (;n J cfbtfJbtb ERc*cRcNb a b a D EvEvb D cd
0x115d94…115f28 Dummy {f00=0x0068, f01=0x0190, f02=» b : " P$ X 0U X *# P P T " T : Y . H Y ( a J Y *T " T ! 1 W ! ) b : J b b Y *T E : b J" b : J V Y " X .9H $ b P & X ( " Qv Y +Q R " P W " U G Y , " Q X . X 0RvP X *:h
0x115f28…1160bc Dummy {f00=0x0068, f01=0x0190, f02=»H T$ @ Y (W Y , H W H Y ( a : X *:h X (! # P X & V L TbW X , X 0P@ H T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l HZ_r X ( P Y (_ P. H2 P Y 8 E J X 8 X $ J Wh_ " P X ( T X & V H "@TF
0x1160bc…116250 Dummy {f00=0x0068, f01=0x0190, f02=» 8 J" Vp 8 V Y 8 : " P X & V ( P H2 : : G "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : J X : X ( T X & V H " V Y : X $ J X : J : X Y " X Y $ X Y & X @W X < Y = " KP
0x116250…1163e4 Dummy {f00=0x0068, f01=0x0190, f02=»! P @ W X J W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y VpW Y ! P U W V Y J" V Y : Vp bt : 2' " P T X W U fJ : J : J O Jj C J X J :
0x1163e4…116578 Dummy {f00=0x0068, f01=0x0190, f02=» C C P : C P :( R : V E V D ' $ T ( W K P T X =' V W V Y =P K : M M0 N P / K W P / K P O@ P / K P P ' / Vp C O@ Vp C Vp &P C
0x116578…11670c Dummy {f00=0x0068, f01=0x0190, f02=» L L 2 AL Vp L L ( K P V I @L" % AK T & # T : Y _ P M Vp &P C Q`/ O@ P M Q`/ O< Vp C : P "R V I T P ( T _& @SPX, @SR _6 Vp (
0x11670c…1168a0 Dummy {f00=0x0068, f01=0x0190, f02=»M ( K W Vp & F : ( K T Vp V G 9h ' T W P0 OD P Q< P P P Vp / W P P Vp / W P P C C W Q C C JN ' W 781"&$ 39#$;< '()*+,-! Q Q< P Vp P _B P B Vp 'W P
0x1168a0…116a34 (1, 352) Dummy {f00=0x0069, f01=0x0190, f02=» K ' Pb Pt I "%@P "% P& B C C 4 "5 # B P B P B 5 P C P B % P C + Rn T P O a( O C O C B B P C P : V I C B : ( K ' P Pt I : P P % Y U C Vp
0x116a34…116bc8 Dummy {f00=0x0069, f01=0x0190, f02=» W ;D:B " : _ Vp C : : P P U P C W $0 P C Qd : "!@P ") # B C B % C C : U #0 T & C C : C C V W V Q 0W Q W Q W R* Rb 4
0x116bc8…116d5c Dummy {f00=0x0069, f01=0x0190, f02=»' @ d P ( z= #0 T B 'W B B " PS@ SPPP LS2 R R _ R _ # Q R V > _V ' P _d P & 1 P 1_ , @ - R T U :B@ ' d
0x116d5c…116ef0 Dummy {f00=0x0069, f01=0x0190, f02=» W S V X _ T 9c DSX Vp U Q SfW Y :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 K W V _ 8^n DS 2 ! 9B V T # W V P
0x116ef0…117084 Dummy {f00=0x0069, f01=0x0190, f02=»Q $ T 9B T: _ _ 6 @" " T 7 $ V P K W _ S$ T X, V & T* HS 'W 'W '_6! ! ! ! :l:d:h Vp W W P W 6 2# W W4 @" EU " T> ; [ # W :H 2 T Z L LU D V, W
0x117084…117218 Dummy {f00=0x0069, f01=0x0190, f02=» [ KP Vp K Z Z : :B , (Vj ; [ [ Vp z ;AV$ Z H # X ; Vp : & Z 4 X : Z 4 " 2@P : [ [ Vp & @" ! P [ 6 [ Z 7
0x117218…1173ac Dummy {f00=0x0069, f01=0x0190, f02=» : 6 2 W W& " # W ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P Z6Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R
0x1173ac…117540 Dummy {f00=0x0069, f01=0x0190, f02=»U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q Z6_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
0x117540…1176d4 (1, 353) Dummy {f00=0x006d, f01=0x0190, f02=»" ! 9 : & P Q [ ,^ , < [d # ; [ _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! +
0x1176d4…117868 Dummy {f00=0x006d, f01=0x0190, f02=»! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ `>Z `>Z `>Xl Z PP [ 9a Z $" T 9d! P6
0x117868…1179fc Dummy {f00=0x006d, f01=0x0190, f02=» : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $ [ [ `>Z
0x1179fc…117b90 Dummy {f00=0x006d, f01=0x0190, f02=» [ `>` [ Q@ [ `>Xl { R [ _ `>Xf `>^ Z ! Z $ Z %_N [ Q* `>Xf `>Z6 R [ Z { `>Xf z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x117b90…117d24 Dummy {f00=0x006d, f01=0x0190, f02=» a 6 a K K K K V K : Vp ` ` a U V b a bF V Z P 2 " T W "@T '?W "? H`x" K :e J J " J _Z Z b [ Z P K [ V 7_ Z bF K Z
0x117d24…117eb8 Dummy {f00=0x006d, f01=0x0190, f02=» Qf : P 4 ! TV_ K b WJ b W +_ b b K W. _& X O W X & O J K : V : 1 b b : ! P ! P ! P ! P Vp ! P U W : ! )P9H # T &W &" :I : cj : P & _ &X _ : : :
0x117eb8…11804c Dummy {f00=0x006d, f01=0x0190, f02=» : R" P $ 1T Y W 5 _$ : d $ R W R # P W ) V E d WV d [ d : Z !0P. 4 R :d" 8 R ! :DW ! 9 R R Y, : Z : Vp Vp jP kT T : & 9!
0x11804c…1181e0 Dummy {f00=0x006d, f01=0x0190, f02=»R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y T : + Vp [ [
0x1181e0…118374 (1, 354) Dummy {f00=0x006d, f01=0x0190, f02=»P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 f !00T ; b _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W f 8 !++P !-- z ;$# +
0x118374…118508 Dummy {f00=0x006d, f01=0x0190, f02=» . " & * 4 4 4 I 4 4 4 @ 8 I 6 L0 0 WC0 W<6 0 W 0 6 0 W 0 W 0 W 0 W 0 W 0 R 0 P R _ 0 0 P A W*6 0 W 0 W 0 : @ + ?2
0x118508…11869c Dummy {f00=0x006d, f01=0x0190, f02=» 4 90 _;0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ X 7 GG;GG;7;;;7;7? 1 ? 0 T b ! T A _ WO0 ) ? 0 ? I H 0 S 0 P 0 Q 4 0 < G! q! m $0 ( 1 W ! { S0 1 H 0 6 0
0x11869c…118830 Dummy {f00=0x006d, f01=0x0190, f02=» ! ? 4 1 4 0 P 0 W 0 ( W 4 I } S0 $ 1 Wc1 ! 6! V 6 0 W 0 W 0 $ 2 _. 4 6 0 Y W 0 Y W 0 Y 4 R0 1 4 4 H/ I H. S0 1 0 K/ 4 4 6 <GI( L WM T
0x118830…1189c4 Dummy {f00=0x006d, f01=0x0190, f02=» 4 A/H" 0 (6 "02W:0 0 0 H 0 HQ 0 0 W !T 0 0 W W 0 0 W 4 P , . #HP 0 $ _ AP WT`W LW T @P 4 @P 4 I ,I A H 0 , K0 _ 4 T K% M 4 1 A 4 A 4 P % LW T 1 @PW @P
0x1189c4…118b58 Dummy {f00=0x006d, f01=0x0190, f02=» J : [ 0 8 v H v P ^ 8 P I o < 1BILAGFEJL LINIE NROPSTART
0x118b58…118cec Dummy {f00=0x006d, f01=0x0190, f02=». a DISK STANDSET. [ ; " / % + 7 C@ Y@ d # A 4 A 4 P % LW T 1 @PW @P
0x118cec…118e80 Dummy {f00=0x006d, f01=0x0190, f02=» l z H* H* 4 @! 0 jA)!B% @)aM aM B hM L B ! P I!4H ) J, J W J , +^ * [ a [ h $ @!" bM _UbM bM f A! KMCTVK 0 C EJ_ ^bM KMCT7I + 0 C EJ CKT$$CR @ @
0x118e80…119014 (1, 355) Dummy {f00=0x006f, f01=0x0190, f02=»I 0 0 I B " HQ I W W'I W 0 I 0 0 P I A 4 0 4 0 0 0 4 I 1 4 1 4 I } @ # V WW W 6 &@ SW= W5 W- % TW%0 _M A V @ 'W 4 0 0 0 4 I T 4 I A
0x119014…1191a8 Dummy {f00=0x006f, f01=0x0190, f02=» W W 0 0 4 _6 4 0 6 W, cW' fW DW hW iW eW I I 0 H i W{ h @ # I 0 ( Ub W ( ( Rb W " $ L a % % I 0 W # I 0 4 Y0 "0 4
0x1191a8…11933c Dummy {f00=0x006f, f01=0x0190, f02=»M3! l/! k+ ) gH @ A I A ! O @ )W 4 0 M X0$ T q 0$ T K J J 4 " I 0" 0% Q P P 4 4 I !0" 0 Q P ! O P 4 4 0& P Q I 0 4 I 0' Q P 4 @'A
0x11933c…1194d0 Dummy {f00=0x006f, f01=0x0190, f02=» 0 @ 4 I 0 W 0 @'@ 4 A TmI T`W 0 P # / I T ! M W P T X, _6I 0 W 0 @ 4 I 0 W 0 @ 4 I" C@% j 0 % M < M8 Lb M!! _ _/ [b M < [b M
0x1194d0…119664 Dummy {f00=0x006f, f01=0x0190, f02=» [b M P Y P ( ! K"e , / .h ( T Z m m_ h (L Z_ 3 _ ^ hM T A%_ hM T[fM M 0 I" C J % M 0T<fM L!B% [h ' dM J? I" ? I" ? @ @ 4 A @
0x119664…1197f8 Dummy {f00=0x006f, f01=0x0190, f02=» ( x ; c < P 1 [ , " # % ( Z d !& &01&02&03&04FEJL ASSIGN BACKUP OPSTART DISCFEJL KONVERTERING DATATRANSMISSION B G I P 999999999999999B99999TTTTTTTTTTTTT9TTTTTTTTTTTTT9-b c ] e
0x1197f8…11998c Dummy {f00=0x006f, f01=0x0190, f02=» ! $ ) 0 7 ? H U0 f0 g0 h0 i0 j0 l0 n0 p0 r0 t0 v0 x0 z # ) * M 0 I" C J % M 0T<fM L!B% [h ' dM J? I" ? I" ? @ @ 4 A @
0x11998c…119b20 Dummy {f00=0x006f, f01=0x0190, f02=» % D% : e I ! e* Jb j j ! e 4 J b # P % J b # o % J W h4 # P % J W 4 ) Q g 4 # v&! u" K 2 % e " 3 $ 4 4 4 4 ! e
0x119b20…119cb4 (1, 356) Dummy {f00=0x006f, f01=0x0190, f02=» ]" _MJ PW 4 # *H @ , W H @ , ( , ? 2 r !"#$%& '()*+,-./012 % h T. 6 ? 6 ? $ A _ R? ? % )! !
0x119cb4…119e48 Dummy {f00=0x006f, f01=0x0190, f02=» ? # p W A A @ + p A V? @ ) q A ) ! qj! rf $b N L ) + " :hN b N ) , Lb N ! e % z ! J W ! K W I ? ? ! ! ? b b b b b b = ? % M ? ? % s Kb
0x119e48…119fdc Dummy {f00=0x006f, f01=0x0190, f02=» ? ? % L ! M ? ? # N % e ? ? # y % x ? ? Z? :3? J % e P: ` ?3 :3 w " % J !u e ? Q? I c? d? ? ] u ? % ! ? < ? "8 U8 ? !
0x119fdc…11a170 Dummy {f00=0x006f, f01=0x0190, f02=» ) ! ! q ! r < ? _ ! ? T ? ? ? S _ V I c? d? ? @ @ ! ? < !? w $ " ? ? % J " ? ? K J b b J n N$ i" W
0x11a170…11a304 Dummy {f00=0x006f, f01=0x0190, f02=» e eb j j ) e j j Wy % Or Wm ( WdA W` NW[ OWV fWQ # t eWE W@H ! e A , W&H e A I , _W $ 4 b g J 4 a J K 4 + 4 ! J! Q ! ! 4 W 6
0x11a304…11a498 Dummy {f00=0x006f, f01=0x0190, f02=» Jj X " % ^ _/ Jj X @+ 4 @+ e _ 4 @+ e 4 Q TF ^ Jj X U W4 Q + ^ JhX L P j X U " U e_ ^% _ 4 % XL MX ^hX L P S" QSW# hX L T P % XL MX Q 4 3 2
0x11a498…11a62c Dummy {f00=0x006f, f01=0x0190, f02=» " 5 = S X d n E p " 0 [ @ o < $ 0 < = Q T Y d x 51 DEB KRE51 52 ! " 0 1 I Q R p 9 2 Q
0x11a62c…11a7c0 Dummy {f00=0x006f, f01=0x0190, f02=» L0 N0 P0 R0 U0 X0 ] . - - X @+ 4 @+ e _ 4 @+ e 4 Q TF ^ Jj X U W4 Q + ^ JhX L P j X U " U e_ ^% _ 4 % XL MX ^hX L P S" QSW# hX L T P % XL MX Q 4 3 2
0x11a7c0…11a954 (1, 357) Dummy {f00=0x0072, f01=0x0190, f02=» i x A @ J H A W @ W A ^@ I _ @ W I W I " A 6 _5 W @ _ _EA 4 A 6 AR H __ @ _GK ( @ _Z$ 0 0 A _sI 0 _@ @ _ K P _@ _ A _ 6 .9?EMWapy
0x11a954…11aae8 Dummy {f00=0x0072, f01=0x0190, f02=» T 4 TxW~ TqWw TkWq 4 2 TDWJ T=WC T6W< T0 4 I ( 4 I 4 I 4 H 4 4 4 6 ! T1 4 4 I T 6 4 4 4 0 4 4 A @ @ 6 4 A 4 A 4 H vI sH
0x11aae8…11ac7c Dummy {f00=0x0072, f01=0x0190, f02=»4 @ 4 ! H H 0 @ " #H ^H [) yW $ 0 40 ! 0 0 "0 P 0 0 Y W 0 ! Q , v6 J: 0 $ 0 J4 - n p J J o o J% n J 4 H ( I "H I %@ A p &@ ) 4 4 H &I #I H I b ' ( _@
0x11ac7c…11ae10 Dummy {f00=0x0072, f01=0x0190, f02=» W ( )T W &T @ ! n W 4 4 ( ! ! ! S ( ! S ( ! S 4 I 6 * MWW I I A ` h +W W I I A d j +W W H I A ,0 WpWs WjH nWbWeH [I ) nA@ @ -@ 0 0 k . 0 0 H I
0x11ae10…11afa4 Dummy {f00=0x0072, f01=0x0190, f02=» n n J A @ 6 _&@ @ _O% w J P A I @ 4 _ _ n n@ @ @ @ 0 4 I 5I A A n 0 1 iW 0 k 0 10 @ @ _ 4 4 lI CI H TA @ WG - A . A (0 0 M P ,W 0 0 10
0x11afa4…11b138 Dummy {f00=0x0072, f01=0x0190, f02=» 30 I K h 4 I "I I A A ! W W @ W 4 4 I , b aH I !) n # R # 4! 0! , I LW ! c W JW J JS W ~ 4T2 5H 6 7 (H 0 1 8A 6 @ A @ @ 4 J ! 4 4 % K
0x11b138…11b2cc Dummy {f00=0x0072, f01=0x0190, f02=» Z! . 6 - n W + n " I I" # s W 4 ] y u ; 4 <2 ) n fW ) J gW ) K eC 8 # < uR x: z8 |8 }8 #Y #J? I 8 ? = ! < < ? C 8 % <
0x11b2cc…11b460 Dummy {f00=0x0072, f01=0x0190, f02=» V @ ! A ) Wy = ) t = ! ="()*) `) %J ! ( V! L) # LWE = ) @ = # # 6) r) W @ ! A _ ! ) # W 4 4 ! ,! ! ! ! ! ! ! 4 0 P W W qH
0x11b460…11b5f4 (1, 358) Dummy {f00=0x0073, f01=0x0190, f02=» = [ K * 8 H @ " T y n x p W ^ P @ 9 I v ; y & B ! ,
0x11b5f4…11b788 Dummy {f00=0x0073, f01=0x0190, f02=» ! " $ & ( . 4 : B K0 T0 U0 V0 W0 X0 Z0 0 ^0 `0 b0 d0 f0 h0 j0 l0 n0 p 0 / / ! ! ! ! ! ! 4 0 P W W qH
0x11b788…11b91c Dummy {f00=0x0073, f01=0x0190, f02=» 1( 4 1( 4 1( 4 BENR]RADRBFOBKOMTBOMRTXTTYPVAL DEBDATOKODEP]L-RATETNR A-ADRANTALFORF.LINIEOPKR.[NDR- POST. PRIMO SIDE ADM-NREJ EDB BRILLE REF-NRADM-KODBET-ARTDEBITORRTE/GEB DIVERSEHOVEDBOGLBNR ARTLEVKONTOLINIE NROPK-KODERET.IND.LEVERAND RATE-[NDRC
0x11b91c…11bab0 Dummy {f00=0x0073, f01=0x0190, f02=» FAKTDATOBTTXXXXTTTXXXVXXVXXTTTTTTTTTXTTTTVTTX,XX-XXXXXXXXE-XXZZZZZVZZ9,99+TTTTTTTVTTX,XX- [ R Q L B RATE Z ` C ' f ' B ? 1 / i . % % - * d * , ) d ) + ( d ( ) & & ( d ' i $
0x11bab0…11bc44 Dummy {f00=0x0073, f01=0x0190, f02=» # . % % $ $ # c # # c # " e " E @ d d d i i E g # - h % & d & & ' d ' ! e
0x11bc44…11bdd8 Dummy {f00=0x0073, f01=0x0190, f02=» U } t V X b U W ! ! q h q R p S E T X POST T/GL. ]R } | E t } |
0x11bdd8…11bf6c Dummy {f00=0x0073, f01=0x0190, f02=» ~ X g Z 3 : KONTROLSUM e g i } z v Y s l a : L b N g O g s Y ? M/P-NR } | t
0x11bf6c…11c100 Dummy {f00=0x0073, f01=0x0190, f02=»m } z v Y m h } z t V U W { j 2 d ] y ] f ] o k T n ~ X g Z 4 GL. SALDO w CHECK p i
0x11c100…11c294 (1, 359) Dummy {f00=0x0073, f01=0x0190, f02=» * DEBITORINDB | p q h S r U ' SD-INCASSO | p M q h F]R RE] REM OPK BFO
0x11c294…11c428 Dummy {f00=0x0073, f01=0x0190, f02=» y & 2 > N ) 5 B % . 9 D O Z e p { + 6
0x11c428…11c5bc Dummy {f00=0x0073, f01=0x0190, f02=» 4 6 7 ; / B j C E I 4 J } J O O ` S j m l@ @ @ U ' SD-INCASSO | p M q h F]R RE] REM OPK BFO
0x11c5bc…11c750 Dummy {f00=0x0073, f01=0x0190, f02=» @ T A d1( 6 yy _ 6 y_ @aC A %Kb(AcA(I` A 1( 6 _ @c@(_DI EJ ME EJ KMC M I` ' ` , T T X , _ @(@cI` ,A ? AaI`1A 1( 6 _ _ 1( 2 _ a ` `0) _@1( 2 _ ! J ! K _ ` _ ` _a0*A`A 1
0x11c750…11c8e4 Dummy {f00=0x0073, f01=0x0190, f02=»d1 1 ad a $ ` @b_ $0 S g[ag hg L I T l hg T 1 4 0 ) y o w 4 d EJ $ # 1 0+ G 0, 6 %_ 0 P 0 0 1( 2 _ a b W 0 P 0 0 a b W 6 ?5 _f , A 1( 6 _
0x11c8e4…11ca78 Dummy {f00=0x0073, f01=0x0190, f02=»T T 4 4 "a a % Kh a< M8 c % hh P i h h T da We a _?H a1 h @ da d H b *db ht d a h W d % Kh dT MT ht i h h T d a h d ` W|A ^ %hh P @ _ + V d W. ! % Y % $ (
0x11ca78…11cc0c Dummy {f00=0x0073, f01=0x0190, f02=» Thg T 4 4 g[ hq mg " T 0 4 g[ hgmg T 0 I 4 4 I @ W0- Z X X0. g T W X0- g P ) y o 4 gb0 ( 4 bhg T g[ 4 y o x 4 I 0 $ o# Wk e hg P^ Z hg
0x11cc0c…11cda0 Dummy {f00=0x0073, f01=0x0190, f02=»h g 1 hY% T Tbh g 1 4 HQ I A -W T @ ]? P, P ! W& U O P W 0 0' O 0 ! 4 * ( 4 4 * ( 4 4 H > T*( T$ ! T " T # T W $ T W _2 6@ ] 4 _ l $
0x11cda0…11cf34 (1, 360) Dummy {f00=0x0075, f01=0x0190, f02=»&H -@ @ 4 " U O M A 4 " U O M W W 4 ? < x ' d } H 8 x m w < X z
0x11cf34…11d0c8 Dummy {f00=0x0075, f01=0x0190, f02=»NSMIT AKTIVERET TERMINATE AUTOMATISK BATCH SENDTSLUTD00000 BATCH SENDESDATATRANSMISSION P `B9999TTT9ZZZZ9ZZZZZ999V99V99AAAAAAAAAAAAAAAAAAA9 1 v h d h hd k u s n pe d a h a m r v hd jd START h c
0x11d0c8…11d25c Dummy {f00=0x0075, f01=0x0190, f02=»ERNAVN fe KENDEORD bf V[LG: 1: SEND RESTEN 2: AFBRYD SENDING v ? 1: m 2: r ` b (ER AKTIV) (SENDER) c b # & ) - 2 7 < A
0x11d25c…11d3f0 Dummy {f00=0x0075, f01=0x0190, f02=» ! ( / 7 @ K V b x % ) ) = ? F n . ^DESDATATRANSMISSION P `B9999TTT9ZZZZ9ZZZZZ999V99V99AAAAAAAAAAAAAAAAAAA9 1 v h d h hd k u s n pe d a h a m r v hd jd START h c
0x11d3f0…11d584 Dummy {f00=0x0075, f01=0x0190, f02=» > 3 B 0 2 6 :I > eH g 2 - !"#$$$$$$$$$%W 8 Q2 ?&A I A A 1( 6 _ H @ _ @ @ ?&A I I YI VA A 1( 6 GG _ K s s @ A 1( 6 _C s s t s s @ @ ?&?'?&C`9&A(@ C T T A T
0x11d584…11d718 Dummy {f00=0x0075, f01=0x0190, f02=»DW I N SW ,A @(?&?)?&?& !A 6 _ @ ?&H 0I $ y z y ! P UA W A WW S@ A ?&I ]1( A A g 2 **+?* 2 ,-./0123456_' ?* ?* ?* AA 1( ?* ?* ?* u A 1( u?*I %C P @ A 1( 6 _ A I CW S * P
0x11d718…11d8ac Dummy {f00=0x0075, f01=0x0190, f02=»L( P Q A UW A W A @ ?* @ @ SW H H A _ W C T C T C P @ A 1( 6 _ A @ I CW S * I , C K W , S N $ u R P _6 V T@ S( P Q A UW A WI A O V 0 0 K " 3 J_ H
0x11d8ac…11da40 Dummy {f00=0x0075, f01=0x0190, f02=» 0 0 0 (0 ?&I A W @ ?&I A A A v1( 2 7_ @ @ ?&?&?&I 7 A t x 1( t$6 _, ?&I A 1( t 6 _ ?& t t ! "1( A W @ 2 889:! ! _ u ! "_% g ! "_2 e ! "A 1( _W A 0 1(
0x11da40…11dbd4 (1, 361) Dummy {f00=0x0075, f01=0x0190, f02=»^ %WZ &WV 'WR WN (WJ )WF0 2$ 0 *$0 _ 0 W + W + W + W W + W ,W ?;4 ; b $ | g # ( - 2 4 9 ` = ?
0x11dbd4…11dd68 Dummy {f00=0x0075, f01=0x0190, f02=» w V O K P h - ; y T I n DGKNTNRBELBILAGFEJL KLAR SALD0AKTIV DAG NREJ EDBLBNR SENDER DIVERSETOTAL BEREGNINGSUBTOTAL CPR/CIR/NRREGKONTONRAUTOMA
0x11dd68…11defc Dummy {f00=0x0075, f01=0x0190, f02=»SUR KONTONR REMIT B9BB9BXXXXXZZZZ9BBZZZ-99999999E-99XXXXXXXXE-XXZZZZZZZZE-ZZZZZZZZZZZE-9TTTTTTTTTTTTX-TTT.TTT.TTX.XX-TTTTTTTVTTX,XX-ZZZ.ZZZ.ZZ9.99-TTT.TTT.TTT.TT9.99-ZZZ.ZZZ.ZZZ.ZZ9.99- Z B o ` Z ` SP RGE p e m ]
0x11defc…11e090 Dummy {f00=0x0075, f01=0x0190, f02=» D ` j r b _ c d d m : 5 f o a o o 2 q Y : d " fu 2 m : ^ f n 2 l = = ` f "w @ k = * [ < FRA c TIL c n eq eq eq eq eq eq eq
0x11e090…11e224 Dummy {f00=0x0075, f01=0x0190, f02=»l g h m E n l d o j # ) / 5 ; B J R [ d n x 0 0 0 0 0 0 0 " . : F
0x11e224…11e3b8 Dummy {f00=0x0075, f01=0x0190, f02=» j r b _ c d d m : 5 f o a o o 2 q Y : d " fu 2 m : ^ f n 2 l = = ` f "w @ k = * [ < FRA c TIL c n eq eq eq eq eq eq eq
0x11e3b8…11e54c Dummy {f00=0x0075, f01=0x0190, f02=» R ` ~ A 1( 2 _ K( @ A A l1( 2 _/ j k q k ) j o J E A A A - _l@ A 1( 2 _ @ @ @ @ @ @ @ @ @ @ W W W j0 0 K l + j J " Q u j y ! j V h 6
0x11e54c…11e6e0 Dummy {f00=0x0075, f01=0x0190, f02=» V k i j 0H a J k q k@ E @ 4 4 ? " y j y j_ j j 4 n h D j J " . y y u j'# j 0 n _:0 4 e j j jI m J " W
0x11e6e0…11e874 (1, 362) Dummy {f00=0x0076, f01=0x0190, f02=» " _ I / % j W k% j W k k 0 4 n P 1( A 6 _.K 1 d W K < g W b W j j j 2 0 !0 J " < s j s s "0 I 6 W s
0x11e874…11ea08 Dummy {f00=0x0076, f01=0x0190, f02=» A* H"" EJ ME KMCH` Ib ,aC ` "0 _ M , J !%T T T " T W #( $ % , C EjH" &P _#H" EJ M ' @$@*@ H` ` a 4 0 4 0 4 0+ G 4 ( KMCT C ) CKT 4 4 A)!B% @) aM aM a QbM 4 A)!B% @)a
0x11ea08…11eb9c Dummy {f00=0x0076, f01=0x0190, f02=»" T6 S S % , KM ST ! M ^ h M P NMSX* # S @ 0 W _ , #% * M"X% _ , " T % T J &P J # W 4 M 4 $ = , * } x z [ ! y O V B I "
0x11eb9c…11ed30 Dummy {f00=0x0076, f01=0x0190, f02=»UTDZ300 DAG NRTOTAL SUBTOTAL KASSE]BNINGSLET SALDO EDB-T[LLERE KASSE-KONTO SLET PERIODE EJ-EDB T[LLER VERSUR KONTONR REMIT % B999999999999999B9999999999999E-99BTTT.TTT.TTT.TT9.99-c d ^b X B G ` 1 G ] 2 _a 2 w 1 )
0x11ed30…11eec4 Dummy {f00=0x0076, f01=0x0190, f02=» @ k = ! & + 0 6 > G R ] i u 0 0 0 0 0 0 " ' 3 B R + m - 0 V r B I "
0x11eec4…11f058 Dummy {f00=0x0076, f01=0x0190, f02=» N & X B F JI ? A < A( A A 1( 2 _ @) $ A)@ 1( 6 _ _0H) ! k jX MX _HfX ( Q8j (X ( L" MX b Q % MX Q x _| MX _ WL % MW T UjX W MX T XW _v kX XL % MX L Jj X j X L6
0x11f058…11f1ec Dummy {f00=0x0076, f01=0x0190, f02=»MX T XL % MX T b _R@(? H j(A f0 1 " QP + % XL MX T8 J J Lj X j X j X L 0 1 %0 @+_U@+ 4 @ 0/ ? _ 00 01? >W @$A 0 A 1( 6 _/ [ d A@)6
0x11f1ec…11f380 Dummy {f00=0x0076, f01=0x0190, f02=» W ) k k I HI) # k f A&A 0 1( 6 _ [ d K) " @( 0 A 00 1( 6 _2 l :_/00 < 1@ A " @ -q k q l00 X 00 ? 00 q 0 A 1( 6 _ ? K X < < C EJ
0x11f380…11f514 (1, 363) Dummy {f00=0x0076, f01=0x0190, f02=» _ _ Ek C @' C C % KM CT I' MP ] h M P Wb M q _J! k 02? 01_Z KRK E P I WA$E =I # k l E @ ,Ex A @ W + k J l E K W= M A 1( 6 _ _ C @'_ A'_ @'W I A$ ? q I"%_ 02? 01_ E
0x11f514…11f6a8 Dummy {f00=0x0076, f01=0x0190, f02=» & J T - p % r % k pW r 4 4 ! Y - p % r % k p oW r q J 4 #5 T4 #6 T. #7 T( #8 T" #9 T #: T #; T #< T #= T #D 4 & J 4 xE J5 TF J6 T> J7 T6 J8 T. J9 T& J: T J; T J< T J= T JD 4 " @ 00 k _ 0
0x11f6a8…11f83c Dummy {f00=0x0076, f01=0x0190, f02=» % JMTM@' C C % KM CThI'e! M ] h M P % JMT V: ZhM IWj C _ (C )1( )( @-_j % JM & M I- _ 0 ? ) M A 1( )6 _ _" C @'_ A'_ @'A- H- J &M _q . ? ] 9 i h &
0x11f83c…11f9d0 Dummy {f00=0x0076, f01=0x0190, f02=» O V q B P d ( / x T FDBFOSLUTDDAG NRDATAS[TKORREKTOPSTART DISCFEJL SUBTOTAL KOMMUNE NRREGKONTONRVOLUME NR EJ-EDB T[LLER VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08 BBBZ9ZZZZ99999ZZZZ9999
0x11f9d0…11fb64 Dummy {f00=0x0076, f01=0x0190, f02=» fc = = ^ f "w START VOLUME= DATASET= ? q H g g h < d SLUTMARKERING FUNDET I 1. RECORD HVIS "SLUT" SMIDES DEN V[K ` d b h i j
0x11fb64…11fcf8 Dummy {f00=0x0076, f01=0x0190, f02=» R f t 0 0 0 0 0 0 0 0 " . ; R i - . H f & n T[LLER VOL 2 VOL 3 VOL 4DSN02 DSN03 DSN04DSN05 DSN06 DSN07 DSN08 BBBZ9ZZZZ99999ZZZZ9999
0x11fcf8…11fe8c Dummy {f00=0x0076, f01=0x0190, f02=» $ t & $ & Y . u XXXXXXXXXX @ " u Z & u j & u x $ ( v I & w 99 " w x RATE-P]LIGN $ x
0x11fe8c…120020 Dummy {f00=0x0076, f01=0x0190, f02=»CIR/NR $ { & | LBNR ART , $ | D & T } ]R b $ } t & $ $ $ $ $ & $ &
0x120020…1201b4 (1, 364) Opaque[0x194]
0x1201b4…120348 # DirEnt {nam=»RGKLAR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a80, f03=0x0000}
0x1201b4…120348 IdxSect {
0x1201b4…120348 f00 = 0x0054 // 0x1201b4 @0x0
0x1201b4…120348 f01 = 0x0012 // 0x1201b6 @0x2
0x1201b4…120348 gno = [ // 0x1201b8 @0x4
0x1201b4…120348 [0x00]: C0x0054.0x0.0
0x1201b4…120348 [0x01]: C0x0054.0x1.0
0x1201b4…120348 [0x02]: C0x005e.0x0.0
0x1201b4…120348 [0x03]: C0x0062.0x2.0
0x1201b4…120348 [0x04]: C0x0062.0x3.0
0x1201b4…120348 [0x05]: C0x0063.0x0.0
0x1201b4…120348 [0x06]: C0x0063.0x1.0
0x1201b4…120348 [0x07]: C0x0063.0x2.0
0x1201b4…120348 [0x08]: C0x0063.0x3.0
0x1201b4…120348 ]
0x1201b4…120348 }
0x120348…1204dc Dummy {f00=0x0054, f01=0x0190, f02=» P IDENT RGKLAR 840203/EV P DDUM KMD08 $ P PDIV 8 P ENTRY RGADM F P ENTRY CLEJ Z P ENTRY CLEDB n P ENTRY CLBEH P ENTRY RGA120 P ENTRY ZERO P ENTRY SKIFT P ENTRY STRTWR P ENTRY STRTID P ENTRY S
0x1204dc…120670 Dummy {f00=0x0054, f01=0x0190, f02=» P ENTRY WALINE P ENTRY BCKUP P EXT ADM 2 P EXT CNFWRT B P EXT RADEL V P EXT SETKRE h P EXT SETDEB | P EXT WRITJT P EXT INITRG P EXT SPCLRN P EXT SPCLRA P EXT PACKCL P EXT CLEAR8 P
0x120670…120804 Dummy {f00=0x0054, f01=0x0190, f02=» EXT WRITFD P EXT RAREAD P EXT RAWRIT ( P EXT ASGVOL < P EXT ASGFIL P P EXT CLSVOL d P EXT CRKJ x P EXT BACKUP P EXT CONRDX P EXT WRITID P EXT WRITLO P EXT WAITF P INCLUDE EQUATE P EJE
0x120804…120998 Dummy {f00=0x0054, f01=0x0190, f02=»ADM,RGADM,RGADM,RGA100,RGA200,RGA300 | P B RGADM , P* < PRGA100 F P* T < P******************************************************** ^ P* $ P* OPEN ROUTINE P* < P**********************************************
0x120998…120b2c Dummy {f00=0x0054, f01=0x0190, f02=»F' ERASE ~ PRGA105 P ATTFMT OPENFRM P PERF SPCLRN 6 " P IB SPBINW2,RGADM,RGADM,RGA110 J P B RGADM p PRGA110 P MOVE TTEJEDB,=D'0' , P MUL TTSTLBNR,=D'-1' SET POSITIVE (OPEN) 2 P MUL CMASK(TTASKNR),=D'-1' SET CMASK >0, OPEN
0x120b2c…120cc0 Dummy {f00=0x0054, f01=0x0190, f02=»TLBNR P SUB TTLBNR,=D'1' P MOVE TTRECOPN,CRECBCD ( P PERF ZERO F 2 P PERF TCONFW,TTASKNR STORE INF FROM ADM FUNC. X P PERF CONFWR & P PERF WRITJT,=W'5' OPEN MES ON JT P SET GTKASSE P ADD CTASKNR,CBIN1 PRGA120 $ P
0x120cc0…120e54 (1, 365) Dummy {f00=0x0054, f01=0x0190, f02=» P PERF WRITJT,=W'12' P B RGADM P EJECT 0 PTCLOSE PROC > $ P CLEAR GTSPECTR NO MORE TR50... R P MOVE SPKEY,CBIN2 z PTCL000 P SET SPPROMPT P ATTFMT CLFRM01 P PERF SPCLRA $ P IB SPBINW2,TCLMAK,TCLMAK,TCL010
0x120e54…120fe8 Dummy {f00=0x0054, f01=0x0190, f02=»LEAR TTCY2FLG P CLEAR TTLSTFLG P CLEAR TTPSEFLG . P CLEAR TTSUMFLG F P CLEAR TTSUPFLG ^ P CLEAR GTCYFLG v P CLEAR GTSUBFLG P MOVE TTSUPMRK,=C' ' P MOVE TTSUMMRK,=C' ' P MOVE GTTEXT,=C' ' P MOVE GTSUM,=D'0'
0x120fe8…12117c Dummy {f00=0x0054, f01=0x0190, f02=»GDEX,CBIN2 P PERF PACKCL P MOVE GSWBIN1,CBIN1 & PTCL025 B P MOVE GTDUPF(GSWBIN1),=X'FF' P P ADD GSWBIN1,CBIN1 t P CBL GSWBIN1,CBINMAX,TCL025 P MOVE GSWBCD5,=D'0' PTCL030 P ADD GSWBCD5,=D'1' ACC NR PTCL035
0x12117c…121310 Dummy {f00=0x0054, f01=0x0190, f02=»E GTDUPF(CBIN1),CTR12NR(GSWBIN5) $ P CBE GTDUPF(CBIN1),=D'0',TCL030 ( . P MOVE GTUSED(CBIN1),CBIN5 INDICATE UPDATED P . P MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN1) $ P CBE GTDUPF(CBIN4),=D'0',TCL040 P MOVE GTUSED(CBIN4),=W'-8' & P MOVE GSWS
0x121310…1214a4 Dummy {f00=0x0054, f01=0x0190, f02=»L040 P MOVE GSWBIN5,GSWBCD5 & P ADD GSWBIN5,CTR12(TTASKNR,CBIN1) * . P MOVE GTDUPF(CBIN4),C12ACC(GSWBIN5,CBIN2) T $ P CBE GTDUPF(CBIN4),=D'0',TCL030 P MOVE GTUSED(CBIN4),=W'-8' & P MOVE GSWSTR20,=C'EJ-EDB T[LLER ' P MOVE GTWBCD1,
0x1214a4…121638 Dummy {f00=0x0054, f01=0x0190, f02=»E GSWSTR9,=C'TOTAL ' P PERF CLEJ EJ EDB P MOVE TTEJEDB,=D'0' 8 PTCL205 T P CASH MOVEMENT b * P MOVE GTDUPF(CBIN1),TTCASHAC ACCOUNTNR z , P MOVE GTDUPF(CBIN4),TTCASH CURRENT CASH , P SUB GTDUPF(CBIN4),TTSTCASH INITIAL CASH P
0x121638…1217cc Dummy {f00=0x0054, f01=0x0190, f02=» SET GTTFLG P PERF TR2GEN,CBIN0 P BNOK TCL205 . P TBF CCLKTFLG,TCL230 B P PERF KORT ASK FOR KONTOKORT ^ PTCL230 P CBE TVERSUR,=D'0',TCL235 * P MOVE GTDUPF(CBIN1),TVERSUR REMIT ACC * P MOVE GTDUPF(CBIN4),TTACC(CBIN6,CBIN1)
0x1217cc…121960 Dummy {f00=0x0054, f01=0x018e, f02=»ED(CBIN4),=W'-8' P MUL GTDUPF(CBIN4),=D'-1' , P MOVE GSWSTR20,=C'VERSUR KONTONR REMIT ' : P MOVE GTWBCD1,=D'0' j P PERF TR2GEN,CBIN0 P BNOK TCL230 P TBF CCLKTFLG,TCL235 P PERF KORT P* 0 P* WRITING OF DISC JOUR
0x121960…121af4 (1, 366) Dummy {f00=0x005e, f01=0x0190, f02=» x P* P PERF CLBEH P* & PTCL500 0 P MOVE TTSTCASH,TTCASH > P MOVE TTSTLBNR,TTLBNR P ADD TTSTLBNR,=D'1' z . P MUL TTSTLBNR,=D'-1' SET NEGATIVE (CLOSE) 4 P MUL CMASK(TTASKNR),=D'-1' SET CMASK < 0, CLOSE P CLEAR G
0x121af4…121c88 Dummy {f00=0x005e, f01=0x018e, f02=»CONFWR P BNOK TCL550 P CLEAR GTKASSE " PTCLRET 8 P* ZERONIZE COUNTERS F P* TRANS 12 COUNTERS d P CMP CBIN0,CBIN0 DUMMY P RET PTCLNOK10 PTCLMAK P CMP CBIN0,CBIN1 P RET P PEND P EJECT
0x121c88…121e1c Dummy {f00=0x005e, f01=0x0190, f02=» P* 6 P************************************************* P* H P MOVE GSWBIN1,GSWBCD3 R P PERF ADM,GSWBIN1 p P B RGADM P EJECT PZERO PROC P* P* ZERONIZE COUNTERS P* TRANS 12 COUNTERS & P MOVE GS
0x121e1c…121fb0 Dummy {f00=0x005e, f01=0x0190, f02=»N1 P CBG GSWBIN1,GSWBIN2,TCL615 & P MOVE C12ACC(GSWBIN1,CBIN1),=D'0' . & P MOVE C12ACC(GSWBIN1,CBIN2),=D'0' X P B TCL610 PTCL615 P* ACCUMULATORS P MOVE GSWBIN1,CBIN0 PTCL620 P ADD GSWBIN1,CBIN1 $ P MOVE TTAC
0x121fb0…122144 Dummy {f00=0x005e, f01=0x0190, f02=» PCLEJ PROC : P***************************************************** P* X . P* NOW ALL ACCUMULATORS NOT = 0 b & P* HAS BEEN REGISTRATED 2 P* A VOUCHER PRINT OF ALL TR12 ACC " P* IS NOW
0x122144…1222d8 Dummy {f00=0x005e, f01=0x0190, f02=»'EJ-EDB T[LLER ' , P CBE CTR12(TTASKNR,CBIN2),CBIN0,TCLEJRET P PERF WAHEAD,CBIN8 H P MOVE GTWBCD1,=D'0' b PTCL110 ~ P ADD GTWBCD1,=D'1' " P MOVE GSWBIN5,GTWBCD1 CONVERT , P CBG GSWBIN5,CTR12(TTASKNR,CBIN2),TCL200 & P ADD GSWBIN5
0x1222d8…12246c Dummy {f00=0x005e, f01=0x0190, f02=»DUPF(CBIN1),CTR12NR(GSWBIN5) $ P CBE GTDUPF(CBIN1),=D'0',TCL110 $ P CBG TTLINNR,=D'0',TCL190 L P DSC0 KVOUCH,RLEAS n P MOVE TTLINNR,=D'25' P PERF WAHEAD,CBIN8 PTCL190 P PERF WALINE,CBIN9 P B TCL110 PTCL200 P D
0x12246c…122600 Dummy {f00=0x005e, f01=0x0190, f02=»NAL AND VOUCHER t P* $ P MOVE GSWSTR20,=C'EDB-T[LLERE ' " P PERF WRITJT,=W'6' J P PERF WAHEAD,CBIN8 d P MOVE GSWBCD5,=D'0' ~ $ P MOVE GTREGF(CBIN1),=D'0' TOTAL P MOVE GTREGF(CBIN2),=D'0' PTCL240 P TBT GTSPGFLG,TCL242
0x122600…122794 (1, 367) Dummy {f00=0x0062, f01=0x0190, f02=»,TCL300 ~ , P ADD GTREGF(CBIN1),TTACC(GSWBIN5,CBIN1) , P ADD GTREGF(CBIN2),TTACC(GSWBIN5,CBIN2) @ P MOVE GTUSED(CBIN4),CBIN0 p , P MOVE GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN1) , P ADD GTDUPF(CBIN4),TTACC(GSWBIN5,CBIN2) , P MOVE GTDUPF(CBIN6),TT
0x122794…122928 Dummy {f00=0x0062, f01=0x0190, f02=» t P MOVE GTUSED(CBIN5),=W'-52' P MOVE GTDUPF(CBIN1),GSWBCD5 , P MOVE GTUSED(CBIN1),=W'50' P , P MOVE GTDUPF(CBIN2),=D'2' MARK FOR TOTAL r P MOVE GTUSED(CBIN2),=W'51' P PERF CRKJ PTCL250 P PERF WRITFD P BNOK TCL250
0x122928…122abc Dummy {f00=0x0062, f01=0x0190, f02=» P B TCL240 PTCL300 P PERF PACKCL $ & P MOVE GTDUPF(CBIN4),GTREGF(CBIN1) 8 $ P ADD GTDUPF(CBIN4),GTREGF(CBIN2) b * P MOVE GTDUPF(CBIN5),TTACC(CBIN8,CBIN1) * P ADD GTDUPF(CBIN5),TTACC(CBIN8,CBIN2) P PERF WALINE,CBIN11 * P MOVE
0x122abc…122c50 Dummy {f00=0x0062, f01=0x0190, f02=»BIN1,CBIN1 P CBG GSWBIN1,CBIN4,TCL320 , P ADD GTDUPF(CBIN5),TTACC(GSWBIN1,CBIN1) 4 , P ADD GTDUPF(CBIN6),TTACC(GSWBIN1,CBIN2) d P B TCL310 PTCL320 P TBT GTSPGFLG,TCL329 ( P* ADJUST FOR 'KASSE INDBERETNING' P MOVE GSWBCD
0x122c50…122de4 Dummy {f00=0x0062, f01=0x0190, f02=»23 P SUB GTDUPF(CBIN5),GSWBCD1 PTCL325 , ( P* ADJUST FOR 'VERSUR INDBERETNING' : $ P MOVE GSWBCD1,TTACC(CBIN6,CBIN1) f $ P ADD GSWBCD1,TTACC(CBIN6,CBIN2) P MUL GSWBCD1,=D'-1' 'VEND' P CBL GSWBCD1,=D'0',TCL328 P SUB GTDUPF(CB
0x122de4…122f78 Dummy {f00=0x0062, f01=0x0190, f02=»UL GTDUPF(CBIN6),=D'-1' P MOVE GSWBCD1,TTCASH P SUB GSWBCD1,TTSTCASH < P MOVE GTDUPF(CBIN4),GSWBCD1 Z P PERF WALINE,CBIN12 ~ P DSC0 KVOUCH,RLEAS P RET P PEND P EJECT PCLBEH PROC P* P* BEHOLDNINGST[
0x122f78…12310c Dummy {f00=0x0062, f01=0x0190, f02=»E CLBEHRET $ P ADD GSWBIN2,CBEH(TTASKNR,CBIN1) P MOVE GTWBCD2,GSWBIN2 : PTCL405 X P ATTFMT CLFRM04 f P SET SPPROMPT ~ P PERF SPCLRA P IB SPBINW2, C , P TCL415,TCL415,TCL412,TCL411,TCL415, C , P TCL415,TCL415,TCL415,T
0x12310c…1232a0 Dummy {f00=0x0062, f01=0x0190, f02=»WSTR20,=C'SLET SALDO ' P MOVE GSWBIN6,CBIN1 P B TCL420 : PTCL412 L P TBT GTSPGFLG,TCL400 Z $ P MOVE GSWSTR20,=C'SLET PERIODE ' v P MOVE GSWBIN6,CBIN2 P B TCL420 PTCL413 P MOVE GSWSTR20,=C'SUBTOTAL ' P MOVE GSWB
0x1232a0…123434 (1, 368) Dummy {f00=0x0062, f01=0x0190, f02=»L425 P PERF GRASPV P MOVE GSWBIN3,CVOUTOP P ADD GSWBIN3,CBIN6 > P DSC1 KVOUCH,POS,GSWBIN3 X P PERF CLEAR8 x ( P PERF FRMXVO,CBIN13 HEAD ON VOUCHER P EDWRT KVOUCH,GTSTRFMT PTCL430 P ADD GTWBCD1,=D'1' P MOVE GSWB
0x123434…1235c8 Dummy {f00=0x0062, f01=0x0190, f02=»(GSWBIN3,CBIN1),=D'0',TCL430 * P* ADD TO TOTAL, PERIODE AND SALDO $ . P ADD GSWBCD6,CBACC(GSWBIN3,CBIN2) PERIODE R , P ADD GSWBCD7,CBACC(GSWBIN3,CBIN3) SALDO P PERF FRMXVO,CBIN14 P EDWRT KVOUCH,GTSTRFMT P TBT GTTESTFL,TCL433 $
0x1235c8…12375c Dummy {f00=0x0062, f01=0x0190, f02=»OVE CBACC(GSWBIN3,CBIN2),=D'0' PERIODE PTCL433 . P SUB TTLINNR,=D'1' < P CBG TTLINNR,=D'0',TCL430 V P DSC0 KVOUCH,RLEAS x P MOVE TTLINNR,=D'25' P B TCL425 PTCL490 P* WRITE TOTAL LINE P PERF FRMXVO,CBIN18 P
0x12375c…1238f0 Dummy {f00=0x0062, f01=0x0190, f02=»M,CBIN11 SPG P B RGADM ! P ! $ 6 P************************************************** ! , P* ! f . P* TR2GEN GENERATES A TRANSACTION 2 ! p P* ! 8 P**************************************************** ! PTR2GEN PROC DBKR ! & P CLEAR G
0x1238f0…123a84 Dummy {f00=0x0062, f01=0x018e, f02=»CBIN4),=D'0',TR2DBKR ! P MOVE TTDKDEX,CBIN2 " PTR2DBKR " 8 P PERFI TTDKDEX,SETKRE,SETDEB " H P EDWRT SCREEN,CLFRM02 " l P PERF SLUT " P RET " P PEND " P " < P******************************************************** " P* " < P
0x123a84…123c18 Dummy {f00=0x0062, f01=0x0190, f02=» PWAHEAD PROC VOXDEX # P EDWRT SCREEN,CLFRM03 # P PERF SPLIN8,CBIN5,CBIN2 # < P PERF GRASPV # P DSC1 KVOUCH,POS,CVOUTOP # p P PERF CLEAR8 # P PERF FRMXVO,VOXDEX # P EDWRT KVOUCH,GTSTRFMT # P RET # P PEND # P # > P********
0x123c18…123dac Dummy {f00=0x0062, f01=0x0190, f02=»******************************************** # PWALINE PROC LINDEX $ 4 P PERF FRMXVO,LINDEX $ N P EDWRT KVOUCH,GTSTRFMT $ j P SUB TTLINNR,=D'1' $ P RET $ P PEND $ P* $ P EJECT $ PSKIFT PROC $ P************************* $ P
0x123dac…123f40 Dummy {f00=0x0062, f01=0x0190, f02=»M $ P* % P************************ % P PERF WAITF,CPFLG % 4 P SET CSKIFTWN % N . P PERF SPLIN8,CBIN8,CBIN2 'DISKETTE SKIFT' % d P TBF CWFLAG,SK15 % P SUB CRECBCD,=D'1' % . P PERF SLUTID,CPCKBUF,CRECBCD WRITE 'SLUTD' % * P PERF RAWRIT,D
0x123f40…1240d4 (1, 369) Dummy {f00=0x0063, f01=0x018e, f02=»L CBCFROM,CRECNR,SK15 NO, ALL SEND? % PSK13 NOT ALL SEND & , P MOVE CBCOPT,CBIN4 SEND REST & H P MOVE GSWBIN1,=W'30' & l P DELAY GSWBIN1 & P B SK11 & P & PSK15 & 4 P PERF WRITID,CPCKBUF,CBIN2,CBIN2 'DISKETTESKIFT' & P PERF CLSVOL,C
0x1240d4…124268 Dummy {f00=0x0063, f01=0x0190, f02=» 0 P MOVE GSWBIN2,CBIN6 COMPUTE NOW OUTPUTVOLUME ' P SUB GSWBIN2,CREGVOL ' 8 P MOVE CREGVOL,GSWBIN2 ' T ( P PERF ASGVOL,CBIN2 TRY TO ASSIGN IT ' r P BNOK SK120 ERROR ' P B SK124 ' PSK120 ' P PERF LAMPON,=W'512' LAMP 2 ' P PERF SOPRD '
0x124268…1243fc Dummy {f00=0x0063, f01=0x0190, f02=»CRECNR,CBIN1 ' P MOVE CRECBCD,=D'0' ( P TBF CWFLAG,SK130 ( 0 P PERF STRTWR ( J P BOK SK130 ( ^ P PERF CLSVOL,CBIN2 ( p P B SK120 ( PSK130 ( P TBF CWFLAG,SK150 ( P MOVE CRECBCD,=D'1' ( $ P PERF WRITID,CPCKBUF,CBIN2,CBIN1 ( PSK
0x1243fc…124590 Dummy {f00=0x0063, f01=0x0190, f02=»LEAR CPFLG DISC FREE ( P ) P TBF CBCACTVF,SK900 ) & P MOVE CBCOPT,CBIN1 ) B ( P MOVE CBCFROM,CBIN0 SEND FROM START ) PSK900 ) P ) P RET ) P PEND ) P EJECT ) P* ) PLAMPON PROC $NR ) P PLIT $NR ) * P**************
0x124590…124724 Dummy {f00=0x0063, f01=0x018e, f02=»LAMPS ARE FIRED CORRESPONDING TO 1-BITS IN PARAM ) P* * 8 . P***************************************** * B P MOVE GSWBIN2,$NR * t P DSC1 DSSOPO,ON,GSWBIN2 * P RET * P PEND * P* * PLAMPOF PROC $NR * P PLIT $NR * . P************
0x124724…1248b8 Dummy {f00=0x0063, f01=0x0190, f02=» * B P* THE LAMPS ARE EXTINGHUISHED CORRESPONDING TO 1-BITS IN PARAM + P* + N 0 P******************************************** + X P MOVE GSWBIN2,$NR + P DSC1 DSSOPO,OFF,GSWBIN2 + P RET + P PEND + P* + PSOPRD PROC + 2 P************
0x1248b8…124a4c Dummy {f00=0x0063, f01=0x0190, f02=»***************** + t PSOPR10 , P MOVE GSWBIN1,CBIN1 , ( , P KI DSSOPI,SOPINP,DUMTAB,GSWBIN1,GSWBIN2 , D P BNOK SOPR10 , t P RET , P PEND , P* , P , PSTRTWR PROC , P********************* , P* , 6 P* STRTWR - SET
0x124a4c…124be0 Dummy {f00=0x0063, f01=0x0190, f02=»',CPCKBUF,CRECNR , z P BNOK STRTNOK - P ADD CRECNR,CBIN1 - . " P PERF RADEL,DK02,CRECNR,=D'2' - H P BNOK STRTNOK - n P CMP CBIN0,CBIN0 OK - P RET - PSTRTNOK - P CMP CBIN1,CBIN0 - P RET - P PEND - P - PSTRTID PROC VOLID
0x124be0…124d74 (1, 370) Dummy {f00=0x0063, f01=0x018e, f02=»ID,<VOLID> - ~ P* . P******************** . P SET CSWFLAG . 8 P CBE CRECLGD,=W'128',STRT10 . L P CLEAR CSWFLAG . p PSTRT10 . P MOVE GSWBIN6,CBIN2 . P EDIT CPCKBUF,PCKINIT . P EDIT CPCKBUF,STARTFR . P MOVE GSWBCD3,VOLID . P
0x124d74…124f08 Dummy {f00=0x0063, f01=0x0190, f02=» P PEND / P / PSLUTID PROC BUF,SLUTNO / P******************** / 8 P* / T 2 P* SLUTID - SETS UP A SLUTD IN BUFFER / ^ P* / P* / P******************** / P SET CSWFLAG / P CBE CRECLGD,=W'128',SLUT10 / P CLEAR CSWFL
0x124f08…12509c Dummy {f00=0x0063, f01=0x0190, f02=» / PBCKUP PROC $OPT 0 P PLIT $OPT 0 P******************** 0 2 P* 0 N : P* THIS PROCEDURE TAKES CARE OF ADMINISTRATION 0 X P* OB BACKUP 0 P* 0 0 P* CALL: PERF BCKUP,<=W'X'> 0 ( P* $OPT = 1 : WI
0x12509c…125230 Dummy {f00=0x0063, f01=0x0190, f02=»N1 0 P MOVE CRECBCD,=D'1' 1 $ P ADD CVOLNO,=D'1' NEXT VOLUME NO 1 & & P PERF CNFWRT REWRITE CONFIGURATION 1 N P SUB CVOLNO,=D'1' 1 x $ P CBE CBIN1,$OPT,BCK100 NO BACKUP 1 P* 1 P* 1 P* BACKUP 1 P* 1 PBCK000 1 $ P PERF LAMPOF,=
0x125230…1253c4 Dummy {f00=0x0063, f01=0x0190, f02=» 7 1 x P TBF CGLREGFL,BCK010 2 P PERF LAMPON,=W'512' LAMP 2 2 & PBCK010 2 J P PERF SOPRD READ SOP LAMPS 2 X P IB GSWBIN2, C 2 z , P BSOP10,BSOP09,BSOP08,BSOP07,BSOP06, C 2 ( P BSOP05,BSOP04,BSOP03,BSOP02,BSOP01 2 PBSOP03 2 PBSOP05 2
0x1253c4…125558 Dummy {f00=0x0063, f01=0x0190, f02=»LAMPOF,=W'2047' LAMPS OFF 2 P PERF LAMPON,=W'1024' LAMP 1 3 " 4 P PERF BACKUP,DK01,=D'1',=W'32',CCONBUF0,=W'199' 3 F P BNOK BCK050 3 ~ P ADD CVOLNO,=D'1' 3 . P PERF WRITID,CPCKBUF,CBIN6,CBIN4 BACKUP OK 3 P SUB CVOLNO,=D'1' 3 4 P PERF CONRDX,CCO
0x125558…1256ec Dummy {f00=0x0063, f01=0x0190, f02=»5 3 P* 4 & PBSOP02 COPY FD999002 TO FD999005 4 " P TBF CGLREGFL,BCK010 ALLOWED? 4 > P B BCK02 4 d P* 4 t P***** 4 ~ & PBCK02 COPY FD999002 TO FD999005 4 $ P PERF LAMPOF,=W'2047' LAMPS OFF 4 P PERF LAMPON,=W'512' LAMP 2 4 P SET C
0x1256ec…125880 Dummy {f00=0x0063, f01=0x0190, f02=»1 4 ~ * P MOVE GSWBIN1,=W'128' LENGTH OF RECORD 5 4 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CGLRECNR 5 8 P BNOK BCK0270 ERROR 5 p & P CBE GTWBCD1,=D'4',BCK0280 NO DATA 5 P MOVE GSWSTR20,=C'SLUTD' 5 P MOVE GSWBIN5,CBIN0 5 6 P MATCH GSWSTR20,GSWBIN
0x125880…125a14 (1, 371) Dummy {f00=0x0063, f01=0x0190, f02=»0 ERROR 5 P PERF LAMPON,=W'2' LAMP 10 6 PBCK0280 FINISH 6 4 P MOVE TTGLREC,CGLRECNR 6 L , P PERF TCONFW,CBIN1 SAVE LAST RECORD NO. 6 j PBCK0290 6 P CLEAR CPFLG 6 $ P DSC0 DK02,CLOSE CLOSE VOLUME 2 6 P B BCK02R 6 P* 6 P*****
0x125a14…125ba8 Dummy {f00=0x0063, f01=0x0190, f02=»W'128' LAMP 4 6 2 P PERF BACKUP,DK04,=D'4',=W'30',CKTBUF,=W'128' 7 P BNOK BCK005 NOK 7 L P B BCK000 OK 7 d P* 7 x PBSOP07 FINISH 7 $ P PERF LAMPOF,=W'2047' LAMPS OFF 7 * P PERF ASGVOL,CBIN1 ASSIGN SYSTEM FILES 7 P BNOK BCKNOK 7 PBCK1
0x125ba8…125d3c Dummy {f00=0x0063, f01=0x0190, f02=»' 7 P PERF LAMPON,=W'2' LAMP 10 8 P B BCKNOK 8 , P* 8 > PBCKNOK 8 H P CMP CBIN1,CBIN0 NOK 8 V P RET 8 r P* 8 ~ PBCKOK 8 $ P PERF WRITID,CPCKBUF,CBIN2,CBIN1 8 P CMP CBIN0,CBIN0 8 P RET 8 P PEND 8 P EJECT 8 P* 8 P
0x125d3c…125ed0 Dummy {f00=0x0063, f01=0x018e, f02=»*************************** 8 z PDUMTAB KTAB EORKY1 9 $ P* 9 > PFMTFKI FRMT 9 H P FNL 9 P FKI 1 9 h P FMEL 'B',TSWBCD2 9 v P FMEND 9 P* 9 PPCKINIT FRMT 9 P FBT CSWFLAG,INIT10 9 P FILLR ' ',40 9 P FILLR ' ',40 9 P FIL
0x125ed0…126064 Dummy {f00=0x0063, f01=0x0190, f02=» PFRVOLID FRMT : P FMEL '999999',CMASKDAT : P FMEL 'B99999',GSWBCD3 : 8 P FMEND : V P* : d PSLUTFRM FRMT : n P FCOPY =C'SLUTD' : P FMEL '99999',GSWBCD3 : P FMEND : P* : PSTARTFR FRMT : P FCOPY =C'Z300 ' : " P FMEL '9999'
0x126064…1261f8 Dummy {f00=0x0063, f01=0x018e, f02=» : v P FILLR ' ',6 ; P FMEND ; P* ; * PADFRM01 FRMT ; 4 P FSL ; H P FCOPY ='KLAR ' ; T P FCOPY ='ADM ' ; l P FKI 12,MINL=1,MAXL=2 ; P FMEL 'ZZ',GSWBCD3 ; P FMEND ; P* ; P* ; POPENFRM FRMT ; P FSL ; P FCOPY ='A
0x1261f8…12638c Dummy {f00=0x0063, f01=0x0190, f02=» ; z P FCOPY =C'DAGS-DATO' < . P FKI 11,MINL=6,MAXL=6,ME,SCHK=2,REWRT,NCLR < $ P FMEL '99E-99E-99',CMASKDAT < V P FNL < z P FCOPY =C'DAG NR' < & P FKI 11,MINL=1,MAXL=3,ME,APPL=102 < P FMEL 'ZZZ',CRELDAY < P FNL < POPFR10 < P FCOPY =
0x12638c…126520 Dummy {f00=0x0063, f01=0x0190, f02=»M01 FRMT < P FSL = P FCOPY =C'KASSELUKNING' = P FILLR X'07',1 = < P FLINK FMTFKI = R P FMEND = h P* = v PCLFRM02 FRMT = P FILLR '1',2 = P FCOPY =C'KASSELUKNING' = P FNL = P FCOPY GSWSTR20 TEXT = " P FMEL 'ZZ',GTWBCD1 COUNT
0x126520…1266b4 (1, 372) Dummy {f00=0x0063, f01=0x018e, f02=» = P FNL > & P FMEL '99999999E-99',GTDUPF(CBIN1) > . P FMEL 'BTTT.TTT.TTT.TT9.99-',GTDUPF(CBIN4) > > P FMEND > p P* > ~ PCLFRM03 FRMT > P FILLR '1',2 > P FBT GTSPGFLG,CLF0301 > P FCOPY =C'KASSELUKNING' > PCLF0301 > P FNL >
0x1266b4…126848 Dummy {f00=0x0063, f01=0x018e, f02=» > x PCLF0401 ? P FNL ? P FCOPY ='BEHOLDNINGST[LLERE' ? $ P FNL ? H P FNL ? T P FBT GTSPGFLG,CLF0402 ? ` P FCOPY ='SLET PERIODE ' ? ~ P FTAB 15 ? P FCOPY =' DEB' ? P FNL ? P FCOPY ='SLET SALDO ' ? P FTAB 15 ? P FCOPY ='
0x126848…1269dc Dummy {f00=0x0063, f01=0x40fc, f02=» ? P FILLR ' ',1 @ P FCOPY ='BILAG' @ P FLINK FMTFKI @ 4 P FMEND @ J P* @ X P* @ b PFBELOB FRMT @ l P FCOPY =C'BEL' @ P FILLR X'5C',1 @ P FILLR 'B',1 @ P FMEND @ P* @ P* @ P* @ P END @ @ @ P FCOPY ='
0x1269dc…126b70 Dummy {f00=0x0063, f01=0x2008, f02=» A NT RGKLAR 840123/EV END $@ 0 , ENTRY RGADM : RGADM N END @ h
0x126b70…126d04 Dummy {f00=0x0063, f01=0x018e, f02=» =C'&01' ) P FMEL '9999',CKMDNR * P FBF GTKASSE,TREC40 * , " P FBT GTSPECTR,TREC40 TR 50... * H P FBT TTR11FLG,TREC10 * n P FCOPY =C'&02' * P FMEL '999999',GTDATO * PTREC10 * P FCOPY =C'&03' * P FMEL '999',GTMSK * P FBT TTR11FL
0x126d04…126e98 Dummy {f00=0x0063, f01=0x40de, f02=» * P FMEL '99',GSWBCD3 + P FBP GSWBCD3,PLAB10 + " , P FMEL 'TTTTTTTTTTTTT9-',GTDUPF(GSWBIN5) + > P FEXIT + n PPLAB10 + | * P FMEL 'TTTTTTTTTTTTT9',GTDUPF(GSWBIN5) + P FMEND + P END + @ + P FMEL '999',GTMSK * P FBT TTR11FL
0x126e98…12702c Dummy {f00=0x0063, f01=0x2008, f02=» , 8 P CALL ABORT,KEYB ABORT I/O : P MOVE GTLINNR,=W'6' SET DEFAULT H : P CMP CBIN0,CBIN1 SET CR<> 0 P RET PLINOP2 > P DSC0 KVOUCH,REL
0x12702c…1271c0 Dummy {f00=0x0063, f01=0x0190, f02=» 4 6 7 ; / B j C E I 4 J } J O O ` S j m l@ @ @ U ' SD-INCASSO | p M q h F]R RE] REM OPK BFO
0x1271c0…127354 (1, 373) Opaque[0x194]
0x127354…1274e8 # DirEnt {nam=»KTOPR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x127354…1274e8 IdxSect {
0x127354…1274e8 f00 = 0x000a // 0x127354 @0x0
0x127354…1274e8 f01 = 0x0006 // 0x127356 @0x2
0x127354…1274e8 gno = [ // 0x127358 @0x4
0x127354…1274e8 [0x00]: C0x000a.0x0.0
0x127354…1274e8 [0x01]: C0x0011.0x0.0
0x127354…1274e8 [0x02]: C0x001f.0x1.0
0x127354…1274e8 ]
0x127354…1274e8 }
0x1274e8…12767c Dummy {f00=0x000a, f01=0x018e, f02=» P IDENT KTOPR 840203 EV P DDUM KMD08 $ P PDIV 8 P ENTRY KTOPR F P ENTRY KTPRT Z P EXT ADMRET n P EXT KTPLAN P EXT RESTMK P EXT RAREAD P EXT RAWRIT P EXT SPCLRA P EXT SPCLRN P EXT SPERR
0x12767c…127810 Dummy {f00=0x000a, f01=0x0190, f02=» z P* * P* OPRETTELSE/SLETNING I KONTOPLAN P* @ P******************** J & P TBT GTMASTFL,KTCR00A ONLY MASTER f P B KTCROK1 PKTCR00A * P CMP CTASKNR,CBIN0 ALL MUST BE CLOSED P BNE KTCROK1 ( P SET CCONVFLG CLOSE
0x127810…1279a4 Dummy {f00=0x000a, f01=0x0190, f02=» ATTFMT KTPFRM01 PKTCR010 P PERF SPCLRA ( & P IB SPBINW2,KTCROK,KTCROK,KTCR100 < P B KTCR000 f * PKTCR100 CLEAR CSWFLAG LOOK FOR NUMBER x P PERF KTPLAN,GSWBCD6,GSWBCD3 " P BNOK KTCR000 ERROR ON KTPLAN P CBL GSWBIN5,CBIN0,KTCR1
0x1279a4…127b38 Dummy {f00=0x000a, f01=0x0190, f02=»NW2,KTCR130,KTCR130,KTCR150 P B KTCR120 $ PKTCR130 B KTCR000 6 PKTCR150 P & P TBF CSWFLAG,KTCR500 IF NOT FOUND ` P* FOUND 0 P CBE GSWBCD3,=D'0',KTCR200 BRANCH TO DELETE P ADD GSWBIN5,CBIN6 . P XCOPY CKTBUF,GSWBIN5,CBIN2,
0x127b38…127ccc Dummy {f00=0x000a, f01=0x0190, f02=» GSWBIN4 - RECORD NO , P* GSWBIN5-6 - START OF RECORD $ PKTCR200 T PKTCR210 d . P DLETE CKTBUF,GSWBIN5,CBIN8 DELETE RECORD t " P CBNE GSWBIN4,CKTLAST,KTCR250 $ P NOW THIS IS LAST USED RECORD . P XCOPY GSWSTR20,CBIN
0x127ccc…127e60 Dummy {f00=0x000a, f01=0x0190, f02=» NOW FIRST NO DELETED P SUB CKTLAST,CBIN1 P SUB GSWBIN4,CBIN1 : P CBE GSWBIN4,CBIN0,KTCR215 T P MOVE GSWBIN5,=W'128' v 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,CKTLAST P BNOK KTCR000 PKTCR215 P PERF RESTMK P B K
0x127e60…127ff4 (1, 374) Dummy {f00=0x0011, f01=0x0190, f02=» PKTCR250 & P ADD GSWBIN4,CBIN1 NOT LAST RECORD P MOVE CCYBUF,CBLANKS B P MOVE GSWBIN5,=W'128' ^ 2 P PERF RAREAD,DK04,=D'4',CCYBUF,GSWBIN5,GSWBIN4 | P BNOK KTCROK P MOVE GSWBIN5,=W'120' , P XCOPY CKTBUF,GSWBIN5,CBIN8,CCYBUF,C
0x127ff4…128188 Dummy {f00=0x0011, f01=0x0190, f02=»F RESTMK P MOVE CKTBUF,CCYBUF P MOVE GSWBIN5,CBIN0 , P ADD GSWBIN4,CBIN1 H P B KTCR200 b PKTCR500 t P NOT FOUND P CMP GSWBCD3,=D'0' $ P BE KTCR000 DELETE NON-EXISTING P* CREATE NEW P MOVE CKTBUF,CBLANKS
0x128188…12831c Dummy {f00=0x0011, f01=0x0190, f02=» z P MOVE GSWBIN5,CBIN0 PKTCR520 $ P MOVE GSWBCD7,=D'1' 4 . P XCOPY GSWSTR20,CBIN0,CBIN6,CKTBUF,GSWBIN5 P . P XCOPY GSWBCD7,CBIN1,CBIN6,CKTBUF,GSWBIN5 : P CBE GSWSTR20,CBLANKS,KTCR550 POSITION FOUND (BLANK) 0 P CBG GSWBCD7,GSWBCD6,K
0x12831c…1284b0 Dummy {f00=0x0011, f01=0x0190, f02=»NEXT RECORD PKTCR530 P ADD GSWBIN4,CBIN1 $ P CBL GSWBIN4,=W'22',KTCR540 > P* SET UP ERROR 10 b PKTCR535 P MOVE SPBINW4,CBIN21 P MOVE GTWBCD2,=D'04' P MOVE GTWBCD1,=D'10' P MOVE GSWSTR9,=C'DISCFEJL ' P
0x1284b0…128644 Dummy {f00=0x0011, f01=0x0190, f02=»CKTBUF,GSWBIN5,GSWBIN4 x P BNOK KTCR000 P MOVE GSWBIN5,CBIN0 4 PKTCR550 P . P XCOPY GSWSTR20,CBIN0,CBIN6,GSWBCD6,CBIN1 ` . P XCOPY GSWSTR20,CBIN6,CBIN2,GSWBCD3,CBIN1 PKTCR560 P MOVE GSWBIN3,=W'120' 8 P XCOPY GSWSTR20,CBIN8,
0x128644…1287d8 Dummy {f00=0x0011, f01=0x0190, f02=»LAST v * P PERF RAWRIT,DK04,=D'4',CKTBUF,GSWBIN4 P BNOK KTCROK : P PERF RESTMK N P B KTCR000 b PKTCR600 t " P CBNE GSWBIN4,CKTLAST,KTCR610 P CBE CKTLAST,=W'21',KTCR535 P ADD CKTLAST,CBIN1 PKTCR610 * P PERF RAWRIT,DK0
0x1287d8…12896c Dummy {f00=0x0011, f01=0x0190, f02=»5,=W'128' 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 P BNOK KTCROK H P MOVE GSWBIN5,CBIN0 . P COPY GSWSTR20,CBIN0,CBIN8,GSWSTR20,CBIN8 x P B KTCR560 PKTCROK P CLEAR CCONVFLG PKTCROK1 P B ADMRET P EJE
0x12896c…128b00 Dummy {f00=0x0011, f01=0x0190, f02=»************** & P TBF GTMASTFL,KTPRTOK ONLY MASTER P CBNE CTASKNR,CBIN0,KTPRTOK @ P WAIT KTALLY d ( P EDWRT KTALLY,KTPF100 WRITE HEADING x P* LOOP THROUGH FILE P MOVE GSWBIN4,CBIN0 PKTPRT15 P ADD GSWBIN4,CBIN1 8
0x128b00…128c94 (1, 375) Dummy {f00=0x001f, f01=0x0190, f02=»KS ~ 2 P PERF RAREAD,DK04,=D'4',CKTBUF,GSWBIN5,GSWBIN4 P BNOK KTPRT45 @ P* LOOP THROUGH BUFFER V P MOVE GSWBIN5,CBIN0 x PKTPRT35 P MOVE GSWBCD6,=D'1' P MOVE GSWBCD3,=D'1' P MOVE GSWSTR20,CBLANKS . P XCOPY GSWSTR2
0x128c94…128e28 Dummy {f00=0x001f, f01=0x0190, f02=»N2,CKTBUF,GSWBIN5 x P ADD GSWBIN5,CBIN2 " P CBE GSWSTR20,CBLANKS,KTPRT80 4 P WAIT KTALLY Z $ P EDWRT KTALLY,KTPF200 PRINT LINE n P CBL GSWBIN5,=W'128',KTPRT35 P* P PERF FRMXTA,CBIN1 P PERF WTALLY PKTPRT45 P CLEAR
0x128e28…128fbc Dummy {f00=0x001f, f01=0x0190, f02=» PERF WTALLY PKTPRTOK P RET $ P PEND 0 P EJECT > P* L P* V P* FORMATS ` P* t P ~ PKTPFRM01 FRMT P FLINK KTPF100 P FBF GTDYFLG,KTPF010 * P FKI 1,ME,MINL=10,MAXL=10,REWRT,SCHK=1 PKTPF010
0x128fbc…129150 Dummy {f00=0x001f, f01=0x0190, f02=»KTPF020 P FMEND P* PKTPF100 FRMT ( P FSL < P FCOPY =C'ADM ' J P FNL b P FCOPY =C'DATAS[T' n P FILLR ' ',1 P FCOPY =C'REGKONTONR' P FILLR ' ',2 P FNL P FCOPY =C'KONTONR' P FILLR ' ',5 P
0x129150…1292e4 Dummy {f00=0x001f, f01=0x408a, f02=»'99999999E-99',GSWBCD6 KT NO P FMEL 'BBZ9',GSWBCD3 TYPE $ P FILLR ' ',2 F P FMEND Z P* h P r P END z@ ILLR ' ',1 P FCOPY =C'REGKONTONR' P FILLR ' ',2 P FNL P FCOPY =C'KONTONR' P FILLR ' ',5 P
0x1292e4…129478 Dummy {f00=0x001f, f01=0x2008, f02=» NT KTOPR 01.03.XXX.1 DDUM KMD08 $ PDIV 8 ENTRY KTOPR F EXT KTPLAN Z * n END x@
0x129478…12960c Dummy {f00=0x001f, f01=0x0190, f02=» CR=4 NOT OK z P* ALTERED FIELDS: P* SPBINW4 - 0 0 8 P* GSWBIN1 - NBR. OF CHARS TRANSFERRED T > P********************************************************** & PRAWRIT PROC DSET,$NR,BUF,RECNR P PLIT $NR
0x12960c…1297a0 Dummy {f00=0x001f, f01=0x0190, f02=» P MOVE GSWBIN1,CBIN6 > P RREAD DSET,GSWSTR9,GSWBIN1,RECNR DUMMY READ $ < P RWRITE DSET,BUF,RECNR WRITE RECORD f 4 P BEOF RAWRET OK? P BOK RAWRET " P
0x1297a0…129934 (1, 376) Opaque[0x194]
0x129934…129ac8 # DirEnt {nam=»S «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f20, f03=0x0000}
0x129934…129ac8 IdxSect {
0x129934…129ac8 f00 = 0x0079 // 0x129934 @0x0
0x129934…129ac8 f01 = 0x0002 // 0x129936 @0x2
0x129934…129ac8 gno = [ // 0x129938 @0x4
0x129934…129ac8 [0x00]: C0x0079.0x0.0
0x129934…129ac8 ]
0x129934…129ac8 }
0x129ac8…129c5c Dummy {f00=0x0079, f01=0x0190, f02=» P IDENT S P EXT A45ELJ P EXT KBTEST ( P EXT A5KONV < P EXT ADM600 P P EXT ABORT d P EXT EMPTYT v P EXT RGREAD P EXT TRPAGE P EXT WRITLO P EXT WRITJT P EXT SPCLRN P EXT SPCLRA P EXT S
0x129c5c…129df0 Dummy {f00=0x0079, f01=0x0190, f02=» SPCHK5 P EXT SUM P EXT PACKCL P EXT CLEAR8 4 P EXT SPLIN8 H P EXT SLUTID P EXT LAMPON p P EXT LAMPOF P EXT SOPRD P EXT STRTID P EXT BCKUP P EXT CLEJ P EXT CLBEH P EXT CLEDB P E
0x129df0…129f84 Dummy {f00=0x0079, f01=0x40e4, f02=»STINT P EXT SUBTOT P EXT CYK " P EXT DIVTR 2 P EXT TCONFW D P EXT SQWRIT X P EXT RAREAD l P EXT RAWRIT P EXT CLSVOL P EXT WRITID P EXT KTOPR P EXT KTPRT @ XT CLBEH P EXT CLEDB P E
0x129f84…12a118 Dummy {f00=0x0079, f01=0x2008, f02=» NT S @ /EV END $@ 0 , ENTRY RGADM : RGADM N END @ h
0x12a118…12a2ac Dummy {f00=0x0079, f01=0x0190, f02=»Fy_"4 I 0 0 I / " W I W I 0 0 P I A 4 0 4 0 0 0 4 1 4 1 4 I } @ # WW 6 &@ W= W5 W- % W%0 _M A @ 'W 4 0 0 0 4 I T 4 I A 0 0 y%
0x12a2ac…12a440 Dummy {f00=0x0079, f01=0x0190, f02=» W 0 0 4 _6 4 0 6 W) HW$ W gW oW sW W I I 0 H i Wu b = # I 0 ( $b W ( ( b W " ! L a D % % I 0 W # I 0 4 0 "0 4 I H I! w H!
0x12a440…12a5d4 (1, 377) Opaque[0x194]
0x12a5d4…12a768 # DirEnt {nam=»ADM6 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x12a5d4…12a768 IdxSect {
0x12a5d4…12a768 f00 = 0x0070 // 0x12a5d4 @0x0
0x12a5d4…12a768 f01 = 0x000c // 0x12a5d6 @0x2
0x12a5d4…12a768 gno = [ // 0x12a5d8 @0x4
0x12a5d4…12a768 [0x00]: C0x0070.0x0.0
0x12a5d4…12a768 [0x01]: C0x0073.0x0.0
0x12a5d4…12a768 [0x02]: C0x0073.0x1.0
0x12a5d4…12a768 [0x03]: C0x0074.0x0.0
0x12a5d4…12a768 [0x04]: C0x0074.0x1.0
0x12a5d4…12a768 [0x05]: C0x0074.0x3.0
0x12a5d4…12a768 ]
0x12a5d4…12a768 }
0x12a768…12a8fc Dummy {f00=0x0070, f01=0x0190, f02=» P IDENT ADM6 831005 EV P DDUM KMD08 " P PDIV 6 P ENTRY ADM600 D P ENTRY SIGNON Z P ENTRY CHNGDK p P ENTRY STRTRC P ENTRY SENDRC P ENTRY TERMIN P ENTRY SIGNOF P ENTRY EXCHAN P ENTRY TRNOK P
0x12a8fc…12aa90 Dummy {f00=0x0070, f01=0x0190, f02=»DMRET P EXT SPERR P EXT CLSVOL P EXT LAMPON 4 P EXT SOPRD H P EXT ASGVOL Z P EXT ASGFIL n P EXT BCKUP P EXT RAREAD P EXT GETBIT P EXT WRITJT P* P INCLUDE EQUATE P EJECT PADM600
0x12aa90…12ac24 Dummy {f00=0x0070, f01=0x0190, f02=» BNZ ADM06RET P CMP TTASKNR,CBIN1 MASTER ? P BNE ADM06RET NO : " P CMP CTASKNR,CBIN0 ALL CLOSED R P BNE ADM06RET x P SET SPPROMPT P MOVE SPKEY,CBIN2 P ATTFMT SNDFRM6 P PERF SPCLRS * P IB SPBINW2,ADM06RET,ADM06RET,
0x12ac24…12adb8 Dummy {f00=0x0070, f01=0x0190, f02=»ROMPT P ATTFMT SNDFRM P PERF SPCLRS $ ( P IB SPBINW2,ADM0612,ADM0612,ADM0615 8 P B ADM0611 d PADM0612 B ADM600 v PADM0615 P TBT CCONVERT,ADM0613 P SUB CRECBCD,=D'1' P PERF SLUTID,CPCKBUF,CRECBCD P ADD CRECBCD,=
0x12adb8…12af4c Dummy {f00=0x0070, f01=0x0190, f02=»ADM0613 6 P************************************************** $ P* BATCH TRANSMISSION J P* 1) SIGNON r P* 2) CHANGE DISK P* 3) SEND STARTIDENT , P* 4) SEND TRANSACTIONS AND SLUTID 0 P*
0x12af4c…12b0e0 Dummy {f00=0x0070, f01=0x0190, f02=»*********** j P PERF SIGNON P BNOK ADM06OUT ( PADM0620 > P PERF LAMPOF,=W'2047' N PADM0630 l P PERF CHNGDK CHANGE DISC | P BNOK ADM6SOFF P PERF STRTRC SEND STARTIDENT & P BNOK ADM0630 IF NOT OK, TRY NEXT P PERF SE
0x12b0e0…12b274 (1, 378) Dummy {f00=0x0073, f01=0x0190, f02=»LAMPON,=W'2' LAMP 10, ERROR P B ADM0630 $ PADM6SOFF 6 P PERF SIGNOF SEND SIGNOFF F PADM06OUT h . P MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS x P MOVE GSWBIN1,CBIN0 P DSC1 DCOMM,TRPAR,GSWBIN1 PADM06RET P CLEAR CCONVFLG
0x12b274…12b408 Dummy {f00=0x0073, f01=0x0190, f02=»**** d P* P* SIGNON P* IF NOT OK CR NOT = 0 2 P* T 4 P************************************************ ^ PSIGNON PROC P MOVE GSWBIN1,CBIN5 P MOVE GSWBIN2,=W'50' P MOVE CTRANBUF,=C' ' P EDIT CTRA
0x12b408…12b59c Dummy {f00=0x0073, f01=0x0190, f02=»IN2,GSWBIN1 P TBT CTESTFLG,SIGON10 P PERF EXCHAN EXCHANGE DC 2 P BNOK SIGON100 R P PERF WJDC h P MOVE GSWSTR20,=C'DFH3504' z P MOVE GSWBIN1,CBIN0 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7 P BNE SIGON100
0x12b59c…12b730 Dummy {f00=0x0073, f01=0x0190, f02=»WBCD2,=D'60' P MOVE GSWSTR9,=C'TRANSMIT ' P MOVE GTWBCD1,=D'16' 8 P PERF SPERR T P PERF WRITJT,=W'14' h P CMP CBIN0,CBIN1 P RET P PEND P EJECT 2 P********************************************* P* & P*
0x12b730…12b8c4 Dummy {f00=0x0073, f01=0x0190, f02=»************************* | PCHNGDK PROC " PCHNG000 6 $ P PERF CLSVOL,CBIN2 CLOSE REGSET F P MOVE CRECNR,CBIN1 n P MOVE CRECBCD,=D'1' P PERF LAMPON,=W'64' LAMP 5 P PERF LAMPON,=W'32' LAMP 6 P PERF LAMPON,=W'16' LAMP 7
0x12b8c4…12ba58 Dummy {f00=0x0073, f01=0x0190, f02=»SOP03,CHSOP02,CHSOP01 | PCHSOP01 PCHSOP02 . PCHSOP03 > PCHSOP04 N PCHSOP08 ^ PCHSOP09 n P B CHNG010 ~ PCHSOP10 P* ERROR, SIGN ON AGAIN $ P PERF LAMPOF,=W'2047' LAMPS OFF P PERF LAMPON,=W'2' LAMP 10
0x12ba58…12bbec Dummy {f00=0x0073, f01=0x0190, f02=» CHNG000 PCH1020 P PERF SIGNON P BNOK CHNG000 2 P PERF LAMPOF,=W'2047' H P B CHNG000 f PCHSOP05 x $ P PERF LAMPOF,=W'2047' LAMPS OFF $ P PERF ASGFIL,CBIN2 ASSIGN DISK 2 P BOK CHNG050 P PERF LAMPON,=W'2' P B
0x12bbec…12bd80 Dummy {f00=0x0073, f01=0x0190, f02=»ERF LAMPOF,=W'2047' LAMPS OFF $ P PERF BCKUP,=W'1' WITHOUT BACKUP & P BNOK CHNG000 N P B CHNG130 d PCHSOP07 v $ P PERF LAMPOF,=W'2047' LAMPS OFF " P PERF BCKUP,=W'2' WITH BACKUP P BNOK CHNG000 P B CHNG130 PCHNG130
0x12bd80…12bf14 (1, 379) Dummy {f00=0x0073, f01=0x0190, f02=»************************************ P* , * P* STRTRC - SEND OF STARTIDENT 6 P* AND CHECK REPLY d P* 0 P******************************************* PSTRTRC PROC P PERF LAMPOF,=W'2047' P PERF LAMPON,=W'64
0x12bf14…12c0a8 Dummy {f00=0x0073, f01=0x0190, f02=»T . P CBE GTWBCD1,=D'4',STRTRET RECORD DELETED? $ P PERF WRITID,CPCKBUF,CBIN5,CBIN1 < P MOVE GSWBIN6,CBIN0 d P MOVE GSWBIN1,=W'40' P MOVE GSWSTR20,CBLANKS 2 P COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 P MOVE CTRANBUF,=C' '
0x12c0a8…12c23c Dummy {f00=0x0073, f01=0x0190, f02=»CHECK IF OK P BNOK STRTRET P CMP CBIN0,CBIN0 SET CR * P RET J PSTRTRET V P CMP CBIN0,CBIN1 f P RET ~ P PEND P EJECT 2 P********************************************** P* . P* SENDRC - SEND BATCH UNTI
0x12c23c…12c3d0 Dummy {f00=0x0073, f01=0x0190, f02=» $ P MOVE GSWBIN3,CBIN0 PACKPOINTER PSND010 , P ADD CRECNR,CBIN1 : P MOVE GSWBIN1,=W'128' T 2 P PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR r P BNOK SNDERR P CMP GTWBCD1,=D'4' P BE SNDERR RECORD DELETED ? P MOVE GSWSTR20
0x12c3d0…12c564 Dummy {f00=0x0073, f01=0x018e, f02=»9,=X'7F' FIND LENGTH PSND015 P MOVE GSWBIN4,CBIN0 * P MOVE GSWBIN5,=W'128' F 6 P MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1 d P BE SND020 P MOVE GSWSTR9,=X'21' P B SND015 PSND020 * P ADD GSWBIN4,GSWBIN3 SEE IF
0x12c564…12c6f8 Dummy {f00=0x0073, f01=0x0190, f02=» P SUB GSWBIN4,GSWBIN3 RESTORE & P ADD GSWBIN4,CBIN1 FILL WITH X'00' ( P CBE GSWBIN4,=W'128',SND037 R P MOVE GSWSTR20,=X'00' v P MOVE GSWBIN5,=W'128' PSND035 0 P INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0 P SUB GSWBIN5,CBIN20
0x12c6f8…12c88c Dummy {f00=0x0073, f01=0x0190, f02=»ND010 READ NEXT PSND040 P MOVE GSWBIN2,GSWBIN3 & P MOVE SPBINW1,=X'0301' D P MOVE TTARKSAV,CRECNR b P DSC1 SCREEN,POS,SPBINW1 , P EDWRT .NW,SCREEN,SNDFRM4 DISPLAY RECNR P PERF EXCHAN P BNOK SNDERR P PERF TRNOK
0x12c88c…12ca20 Dummy {f00=0x0073, f01=0x018e, f02=» PERF EXCHAN EXCHANGE DC P BNOK SNDERR P PERF TRNOK 4 P BNOK SNDERR H PSND090 P MOVE GSWBIN3,CBIN0 j P MOVE CTRANBUF,=C' ' $ P EDSUB CTRANBUF,GSWBIN3,SNDFRM5 P MOVE GSWBIN2,CBIN18 P PERF EXCHAN P BNOK SNDERR
0x12ca20…12cbb4 (1, 380) Dummy {f00=0x0074, f01=0x0190, f02=» P MOVE GSWBIN1,CBIN0 P MOVE GSWBIN2,=W'52' 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 < P BNE SNDERR x PSNDSL10 P CMP CBIN0,CBIN0 P RET PSNDERR P CMP CBIN1,CBIN0 P RET P PEND P EJECT
0x12cbb4…12cd48 Dummy {f00=0x0074, f01=0x0190, f02=» 0 P******************************************** PTERMIN PROC < P MOVE GSWBIN3,CBIN0 P P MOVE CTRANBUF,=C' ' l P MOVE CPCKBUF,=C'TERMINATE ' P MOVE GSWBIN3,CBIN0 $ P EDSUB CTRANBUF,GSWBIN3,SNDFRM2 P MOVE GSWBIN2,CBIN14
0x12cd48…12cedc Dummy {f00=0x0074, f01=0x0190, f02=»***************************************** P* 2 P* SIGNOFF < P* V 2 P********************************************* ` PSIGNOF PROC P MOVE GSWBIN3,CBIN0 P MOVE CTRANBUF,=C' ' P MOVE CPCKBUF,=C'CSSF ' $ P EDSUB
0x12cedc…12d070 Dummy {f00=0x0074, f01=0x018e, f02=»ERF WJDC PRINT ANSWER PSIGOFRET P RET . PSIGOFRT1 : P CMP CBIN0,CBIN0 J P RET b P PEND n P EJECT | 2 P********************************************* $ P* EXCHAN - EXCHANGE DC , P* IN CASE OF ERROR ERROR
0x12d070…12d204 Dummy {f00=0x0074, f01=0x0190, f02=» P TBT CTESTFLG,EXCHTEST PEXCH10 " P MOVE GSWBIN5,CBIN1 0 P MOVE GSWBIN1,=W'504' L * P DCREAD DCOMM,CDUMBUF,GSWBIN1,GSWBIN5 j , P BOK EXCH10 IF ANYTIBNG RCVD, THROW AWAY " P MOVE GSWBIN5,=W'900' TIMEOUT , P DCWRITE DCOMM,CTRANBUF,GS
0x12d204…12d398 Dummy {f00=0x0074, f01=0x0190, f02=»SWBIN2,GSWBIN5 x P BOK EXCHRET PEXCHNOK * & P PERF GETBIT,DCOMM FETCH ERRORCODE : P MOVE SPBINW4,CBIN21 d P MOVE GTWBCD2,=D'60' P MOVE GSWSTR9,=C'TRANSMIT ' P PERF SPERR P PERF WRITJT,=W'14' P CMP CBIN0,CBIN1 P
0x12d398…12d52c Dummy {f00=0x0074, f01=0x0190, f02=» PEND P EJECT 2 P********************************************* P* R 6 P* TRNOK - CHECK IF MESSAGE CORRECT RECIEVED P* 2 P********************************************* PTRNOK PROC P MOVE GSWBIN3,CBIN0 , P MOV
0x12d52c…12d6c0 Dummy {f00=0x0074, f01=0x0190, f02=»2,CBIN0 P MOVE CTRANBUF,=C' ' P CMP CBIN0,CBIN0 , P RET D PTRNERR P P MOVE GTWBCD2,=D'60' ^ P MOVE GSWSTR9,=C'TRANSMIT ' z P MOVE GTWBCD1,=D'50' P PERF SPERR P PERF WRITJT,=W'14' P CMP CBIN0,CBIN1 P RET
0x12d6c0…12d854 (1, 381) Dummy {f00=0x0074, f01=0x0190, f02=» ON JOURNAL n P* 6 P************************************************* PWJDC PROC X P WAIT KTALLY j P CBL GSWBIN2,CBIN1,WJDCRET ~ P CBG GSWBIN2,=W'504',WJDCRET P MOVE GSWSTR9,=C'DFH' P MOVE GSWBIN1,CBIN0 8 P MATCH CTR
0x12d854…12d9e8 Dummy {f00=0x0074, f01=0x0190, f02=» MOVE GSWSTR9,=X'11' P MOVE GSWBIN1,CBIN0 8 P MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 8 P BNE WJDCRET t * P* GSWBIN1=START * P ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE P MOVE GSWBIN4,GSWBIN1 & P SUB G
0x12d9e8…12db7c Dummy {f00=0x0074, f01=0x018e, f02=»4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 z P BNE WJDC010 & * P SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH : P CBNG GSWBIN4,=W'52',WJDC007 h & P MOVE GSWBIN4,=W'52' MAX 52 CHARS 0 P COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1 P EDWRT KJTAPE,WJDCFRM P
0x12db7c…12dd10 Dummy {f00=0x0074, f01=0x0190, f02=» | PWJDC008 ! P SUB GSWBIN2,GSWBIN4 ! P ADD GSWBIN4,GSWBIN1 ! 4 P MOVE GSWBIN1,GSWBIN4 ! P P CBG GSWBIN2,CBIN3,WJDC005 ! n P B WJDCRET ! PWJDC010 ! P B WJDC200 ! PWJDCRET ! P RET ! P* ! PWJDC100 ! P SUB GSWBIN2,G
0x12dd10…12dea4 Dummy {f00=0x0074, f01=0x0190, f02=»WBIN4,CBIN22,CBLANKS,CBIN0,CBIN1 ! ~ P BNE WJDC200 " ( P MOVE CPCKBUF,=X'00' " < P SUB GSWBIN4,GSWBIN1 " X 0 P COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1 " t P EDWRT KJTAPE,WJDCFRM " P SUB GSWBIN2,GSWBIN4 " P ADD GSWBIN1,GSWBIN4 " PWJDC200 "
0x12dea4…12e038 Dummy {f00=0x0074, f01=0x0190, f02=»WBIN2,CTRANBUF,GSWBIN1 " z P EDWRT KJTAPE,WJDCFRM # P RET # < P PEND # H P EJECT # V 4 P************************************************ # d P* # P* FORMATS USED # P* # 4 P************************************************ # P*
0x12e038…12e1cc Dummy {f00=0x0074, f01=0x0190, f02=»13,ME # | * P FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT $ P FNL $ < P FTEXT 'KENDEORD' $ H P FKI 12,MINL=1,MAXL=4,ME $ b P FMEL 'TTT9',TTARKSAV $ P FMEND $ P* $ PSIGONF FRMT $ P FILLR ' ',2 $ P FCOPY =X'272020' $ P FTEXT 'CSSN P
0x12e1cc…12e360 Dummy {f00=0x0074, f01=0x0190, f02=»SNDFRM2 FRMT $ P FILLR ' ',2 % P FCOPY =X'272020' % ( P FCOPY CPCKBUF % B P FMEND % X P* % f PSNDFRM3 FRMT % p P FILLR '1',2 % P FCOPY =C'DATATRANSMISSION ' % P FMEND % P* % PSNDFRM4 FRMT % P FILLR ' ',2 % P FTEXT 'ANTA
0x12e360…12e4f4 (1, 382) Dummy {f00=0x0074, f01=0x4186, f02=»,2 % P FCOPY =X'272020' & PSNDLAB10 & $ P FCOPY =X'112020' & 4 P FCOPY CPCKBUF & N P FMEND & d P* & r PSNDFRM6 FRMT & | P FSL & P FCOPY ='DATATRANSMISSION ' & P FILLR '?',1 & P FNL & P FKI 1 & P FMEL 'B',TSWBCD2 & P
0x12e4f4…12e688 Dummy {f00=0x0074, f01=0x2008, f02=» ' NT ADM6 DDUM KMD08 * , PDIV 6 END D@ PCASE R HEND ` T HRUN JESPER M:KMDV p HWEF 3 RGLOAD HMOV RGLOAD,/L HRUN JESPER RGLOAD $ H$PCASC M=M:KMDV,A=RGLOAD,C=CONF4 H$PCASF C=CONF4
0x12e688…12e81c Dummy {f00=0x0074, f01=0x0000, f02=» r REF-NR RENTEFRIT TYP O 2 ! " # $ % & ' ( ) * + Z FORF. RET.IND. OPKR. - FEJL FORMATX ; / 0 KONTROLSUM 1 ARKIVP LINIE) H O
[…0x1…]
0x12e9b0…12eb44 Dummy {f00=0x0074, f01=0x0190, f02=»N 9 TCONFW : CONFWR : WRITJT : . INITRG : @ * & QT > J L , N P R T : R PACKCL : KORT : * & V b X : CRKJ : WRITFD : GRASPV : C
0x12eb44…12ecd8 Dummy {f00=0x0074, f01=0x018e, f02=» ?* b d f N D X h : FRMXSP ; , SPINF1 ; > KTPRT ; P RGREAD ; ` TRPAGE ; r SPLIN8 ; * & _* j l n p r t ; CRVO ; hSUM ; WTALLY ; TCONFR ; * &
0x12ecd8…12ee6c Dummy {f00=0x0074, f01=0x0190, f02=» ; SETKRE < SETDEB < , ( ~ < , SLUT < CNFWRT < l ASGFIL < ~ RADEL < BACKUP < CONRDX < , ( * f < RAREAD < * &
0x12ee6c…12f000 Dummy {f00=0x0074, f01=0x0190, f02=» 5 DEB KRE SUMKVITTRP ADM ARKIV < * & S BILAGDEBETFEJL KLAR SALD0SALDO = . * & q SLUTDZ300 KVITDAG NREJ EDBKR = * & EDITLBNR T[LLERKONTONR DIVERS = * & ETOTAL EKS.LBNRBEREGNINGDAG = * & S-DATOKONTOKORTMASKIN NRPO
0x12f000…12f194 (1, 383) Opaque[0x194]
0x12f194…12f328 # DirEnt {nam=»DCTSK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e78, f03=0x0000}
0x12f194…12f328 IdxSect {
0x12f194…12f328 f00 = 0x00f3 // 0x12f194 @0x0
0x12f194…12f328 f01 = 0x0004 // 0x12f196 @0x2
0x12f194…12f328 gno = [ // 0x12f198 @0x4
0x12f194…12f328 [0x00]: C0x00f3.0x3.0
0x12f194…12f328 [0x01]: C0x00f4.0x0.0
0x12f194…12f328 ]
0x12f194…12f328 }
0x12f328…12f4bc Dummy {f00=0x00f3, f01=0x0190, f02=» . P IDENT DCTSK REL2.1 DK 800317 870150540210 P ENTRY DCTSK 6 P EXTRN I:EVA0 J P* ` P* j P* t P ~ P > P********************************************************** P* P* CONDITIONAL ASSEMBLY P* & P****
0x12f4bc…12f650 Dummy {f00=0x00f3, f01=0x0190, f02=» 0 " PRBUFNR EQU 2 2 RECEIVE BUFFERS & PRBUFL EQU 400 LENGTH 800 BYTES DK 0 P* Z P* d P* EQUATES n P* PRSET EQU /B2 RESET KEY " P* COMMON EQU FOR ECB HANDLING P* P PECBBA EQU 2 PECBRL EQU 4
0x12f650…12f7e4 Dummy {f00=0x00f3, f01=0x0190, f02=»REL. ADDRESSES P* P* PDIS EQU 20 * P* < PECBDC EQU -DIS-14 F P IFT DCLIN=2 ` P IFT COPCMD=1 t PECBDC2 EQU ECBDC-DIS PECBICR EQU ECBDC2-DIS PECBICW EQU ECBICR-DIS P XIF P IFT DCLIN=2 P IFF C
0x12f7e4…12f978 Dummy {f00=0x00f3, f01=0x0190, f02=»QU ECBDC-DIS PECBICW EQU ECBICR-DIS P XIF 2 P IFF DCLIN=2 > P IFF COPCMD=1 R PECBICW EQU ECBDC-DIS h P XIF PECBVDU EQU ECBICW-DIS PECBKB EQU ECBVDU-DIS PECBSD EQU ECBKB-DIS P* P* " P* BASE ADDRESS
0x12f978…12fb0c Dummy {f00=0x00f3, f01=0x0190, f02=» n P* " PNBRKBV EQU 0 NUMBER OF KB/VDUS & PNBRGTP EQU NBRKBV+2 NUMBER OF GTPS 8 P* b 2 PMF1KBV EQU NBRGTP+2 DV ADDRESSES KB/VDU MF #1 l 2 PMF1GTP EQU MF1KBV+16 DV ADDRESSES GTPS MF # 1 P IFT DCLIN=2 PMF2KBV EQU MF1GTP+16 P
0x12fb0c…12fca0 Dummy {f00=0x00f3, f01=0x0190, f02=»********* P* P* START ADDRESS FOR DC TASKS B P************************************************************* @ P PDCTSK EQU * P CF A14,I:EVA0 & P LDR* A1,A9 POLL & SELECT ADDRESS P LDKL A8,ECBDC P ADR A8,CREBAS
0x12fca0…12fe34 (1, 384) Dummy {f00=0x00f4, f01=0x018e, f02=»F ANY MESSAGE WITH WAIT ~ P LKM P DATA 1 , & P CF A14,GTRBUF GET RECEIVE BUFFER < P LDKL A8,ECBDC f P ADR A8,CREBAS | P CF A14,DCGETM P LD A4,ECBBA,A8 " P CF A14,RLRBUF RELEASE BUFFER P RB DCT100 P* P*
0x12fe34…12ffc8 Dummy {f00=0x00f4, f01=0x0190, f02=» x ( P CM ECBCW,A8 NO TIME OUT SUPERVISION P LDKL A1,RBUFL+RBUFL 4 P ST A1,ECBRL,A8 REQ LENGTH P P ST A4,ECBBA,A8 r P LKM P DATA 1 P RTN A14 P* P* P* > P****************************************************
0x12ffc8…13015c Dummy {f00=0x00f4, f01=0x018e, f02=»RLINK EQU RBUFL+RBUFL+2 P* PRBUF EQU * * P DATA *+2 POINTER FIRST FREE < P IFF RBUFNR=1 ` P DATA *+RLINK v P RES RBUFL P IFF RBUFNR=2 P DATA *+RLINK P RES RBUFL P IFF RBUFNR=3 P DATA *+RLINK P
0x13015c…1302f0 Dummy {f00=0x00f4, f01=0x0190, f02=» P* P* P* GET RECEIVE BUFFER P* 4 PGTRBUF EQU * > P LDKL A5,RBUF R P* h P* r PGETBUF EQU * | P LDR* A4,A5 P RF(Z) GETB50 NO BUFFER FREE P LDR* A3,A4 P STR A3,A5 P ADK A4,2 SKIP LINK
0x1302f0…130484 Dummy {f00=0x00f4, f01=0x0190, f02=» PRLRBUF EQU * P LDKL A2,RBUF PRELB05 EQU * . P SUK A4,2 POINT TO LINK B PRELB10 EQU * b P LDR* A3,A2 v P RF(Z) RELB20 P LDR A2,A3 P RB RELB10 PRELB20 EQU * P STR A4,A2 P CMR A4 P RTN A14
0x130484…130618 Dummy {f00=0x00f4, f01=0x407c, f02=»REQTIM EQU * P ST A1,ECBCW,A8 P LDK A7,/B9 , P LKM @ P DATA 1 L P RTN A14 P END l@ xA3,A2 v P RF(Z) RELB20 P LDR A2,A3 P RB RELB10 PRELB20 EQU * P STR A4,A2 P CMR A4 P RTN A14
0x130618…1307ac Dummy {f00=0x00f4, f01=0x2008, f02=» A7,/B7 TRANSFER PARAMETERS LKM , DATA 1 8 CF A14,ERASE ERASE SCREEN H 0 ,EM100 CF A14,TRPF TRANSMIT, PROGRAM FUNCTION j RB EM100 AGAIN * * END START @ 4,2,A13 ADR A14,A13 LOAD STACK
0x1307ac…130940 Dummy {f00=0x00f4, f01=0x0190, f02=» 9 _ < K @ @ @ !@ (@ 3@ >@ I@ X@ j& ' ( _( ! Zl & C ( ( =( + B =>_ =R C C C ( :+,4* + 8 E R ` n |
0x130940…130ad4 (1, 385) Opaque[0x194]
0x130ad4…130c68 # DirEnt {nam=»FMT403«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b18, f03=0x0000}
0x130ad4…130c68 IdxSect {
0x130ad4…130c68 f00 = 0x0058 // 0x130ad4 @0x0
0x130ad4…130c68 f01 = 0x0004 // 0x130ad6 @0x2
0x130ad4…130c68 gno = [ // 0x130ad8 @0x4
0x130ad4…130c68 [0x00]: C0x0058.0x3.0
0x130ad4…130c68 [0x01]: C0x0059.0x0.0
0x130ad4…130c68 ]
0x130ad4…130c68 }
0x130c68…130dfc Dummy {f00=0x0058, f01=0x0190, f02=» P* P* PSUBF55 FRMT P FLINK SUBX55 . P FLINK SUBX56 N P FLINK SUBX57 n P FNL H P FKI 13,MAXL=10,REWRT,APPL=58,DUPL=GTREGF(CBIN5),SCHK=4 0 P FMEL 'TTTTTTTT
0x130dfc…130f90 Dummy {f00=0x0058, f01=0x0190, f02=»EGF(CBIN7) n P FNL H P FKI 13,MAXL=10,REWRT,APPL=60,DUPL=GTREGF(CBIN7),SCHK=4 & 0 P FMEL 'TTTTTTTTTX-',GTREGF(CBIN8) r H P FKI 25,MAXL=10,REWRT,APPL=61,DUPL=GTREGF(CBIN8),SCHK=4 0 P FMEL 'TTTT
0x130f90…131124 Dummy {f00=0x0058, f01=0x0190, f02=»MEL 'TTTTTTTTTX-',GTREGF(CBIN10) P FMEND , P* B PSUBX55 FRMT L 4 P FKI 1,MAXL=10,REWRT,APPL=55,SCHK=4 b 0 P FMEL 'TTTTTTTTTX-',GTREGF(CBIN3) P FMEND P* PSUBX56 FRMT H P
0x131124…1312b8 Dummy {f00=0x0058, f01=0x0190, f02=»ND P* PSUBX57 FRMT H P FKI 25,MAXL=10,REWRT,APPL=57,DUPL=GTREGF(CBIN4),SCHK=4 * 0 P FMEL 'TTTTTTTTTX-',GTREGF(CBIN5) v P FMEND P* PSUBF57 FRMT P FLINK SUBX55 P
0x1312b8…13144c Dummy {f00=0x0058, f01=0x0190, f02=» FMEND P* PSUBF64 FRMT P FLINK SUB164 2 P FLINK SUB264 H P FMEND ^ P* l PSUB164 FRMT v P FBP GSSWITCH(CBIN12),LAB164 B P FKI 20,MAXL=1,APPL=64,DUPL=GTDUPF(CBIN12), C P ME,
0x13144c…1315e0 Dummy {f00=0x0058, f01=0x0190, f02=»0,MAXL=1,APPL=64,NCLR,VERIF $ P FMEL 'X',GTREGF(CBIN12) $ PLAB264 FMEND L P* ` P* j PSUBF65 FRMT t 2 P FKI 13,MAXL=4,APPL=65,DUPL=GTDUPF(CBIN13), C P ME,NCLR P FMEL 'TTTX',GTREGF(CBIN13) P FMEND P*
0x1315e0…131774 (1, 386) Dummy {f00=0x0059, f01=0x0190, f02=»H(CBIN2),LAB154 N P FKI 27,MAXL=10,REWRT,APPL=54,DUPL=GTDUPF(CBIN2),SCHK=4, C P ME,NCLR j & P FMEL 'TTTTTTTTTX-',GTREGF(CBIN2) PLAB154 FMEND P* PSUB254 FRMT P FBZ GSSWITCH(CBIN2),LAB254 &
0x131774…131908 Dummy {f00=0x0059, f01=0x0190, f02=»RMT D P FKI 1,MINL=6,MAXL=6,APPL=63,DUPL=GTDUPF(CBIN11), C $ P ME,NCLR,SCHK=2 T . P FMEL 'XXVXXVXX',GTREGF(CBIN11) | P FMEND P* PSUBF70 FRMT B P FKI 1,MAXL=4,APPL=70,DU
0x131908…131a9c Dummy {f00=0x0059, f01=0x4016, f02=» P* @ KI 1,MINL=6,MAXL=6,APPL=63,DUPL=GTDUPF(CBIN11), C $ P ME,NCLR,SCHK=2 T . P FMEL 'XXVXXVXX',GTREGF(CBIN11) | P FMEND P* PSUBF70 FRMT B P FKI 1,MAXL=4,APPL=70,DU
0x131a9c…131c30 Dummy {f00=0x0059, f01=0x2008, f02=» /S,FMT403 LST FMT403 LST /S,FMT403 ,@ B06,FRMT07,FRMT08,FRMT09,FRMT10, C @ , P FRMT12,FRMT40,FRMT41,FRMT42,FRMT45, C p , P FRMT46,FRMT47,FRMT48,FRMT49,FRMT00, C ( P FRMT51,FRMT00,FRMT00,FRMT00,FRMT00 FMEL 'ZZ9',GTR
0x131c30…131dc4 Dummy {f00=0x0059, f01=0x40e8, f02=» : H IDENT C:CB10 TRA 4.1 79-11-02 F1 O1111 02.02.XXX.1 C:CB10 B C:CB10C T * & h $ 6 0 6 @ L = L @
0x131dc4…131f58 Dummy {f00=0x0059, f01=0x40f0, f02=» : H IDENT D:CB10 TRA 4.1 79-11-02 F1 O1111 02.02.XXX.1 D:CB10 B D:CB10C T * & B h * & = % B @ = L @
0x131f58…1320ec Dummy {f00=0x0059, f01=0x0190, f02=» : H IDENT C:CB20 TRA 4.1 79-11-02 F1 O1111 02.02.XXX.1 C:CB20 B C:CB20C T * & h * & * & = * & [
0x1320ec…132280 Dummy {f00=0x0059, f01=0x4068, f02=» | > R@ d h * & * & = * & [
0x132280…132414 (1, 387) Opaque[0x194]
0x132414…1325a8 # DirEnt {nam=»KEY461«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x132414…1325a8 IdxSect {
0x132414…1325a8 f00 = 0x005c // 0x132414 @0x0
0x132414…1325a8 f01 = 0x0002 // 0x132416 @0x2
0x132414…1325a8 gno = [ // 0x132418 @0x4
0x132414…1325a8 [0x00]: C0x005c.0x1.0
0x132414…1325a8 ]
0x132414…1325a8 }
0x1325a8…13273c Dummy {f00=0x005c, f01=0x0190, f02=» PNOKEY EQU X'FF' PBSPKY1 EQU X'87' PCANKY1 EQU X'91' 4 PMACKY1 EQU X'95' L PEORKY1 EQU X'90' d PFTABKY1 EQU X'8B' | PBTABKY1 EQU X'83' PDUPKY1 EQU X'A2' PSLUTKY1 EQU X'A3' PREGKY1 EQU X'A1' PCOPKY1 EQU X'F
0x13273c…1328d0 Dummy {f00=0x005c, f01=0x0190, f02=»Y1 EQU X'FF' PCY2KY1 EQU X'FF' PCYCKY1 EQU X'89' , PINVKY1 EQU X'82' D PKONKY1 EQU X'85' PKVITKY1 EQU X'86' t PSUPLKY1 EQU X'FF' PSUMKY1 EQU X'81' PADMKY1 EQU X'A0' PDIVKY1 EQU X'84' PHBOGKY1 EQU X'80'
0x1328d0…132a64 Dummy {f00=0x005c, f01=0x0190, f02=»SKY1 EQU X'81' PDELKY1 EQU X'82' PCL1KY1 EQU X'89' . PCL2KY1 EQU X'8A' F PCL3KY1 EQU X'8B' ^ POUTKY1 EQU X'A0' v P* PBSPKY2 EQU X'C7' PCANKY2 EQU X'D1' PEORKY2 EQU X'D0' PMACKY2 EQU X'D5' PFTABKY2 EQU X'CB
0x132a64…132bf8 Dummy {f00=0x005c, f01=0x4086, f02=»GKY2 EQU X'E1' PADMKY2 EQU X'E0' PSPGKY2 EQU X'FF' . PKONKY2 EQU X'C5' F PKVITKY2 EQU X'C6' ^ P* x@ v P* PBSPKY2 EQU X'C7' PCANKY2 EQU X'D1' PEORKY2 EQU X'D0' PMACKY2 EQU X'D5' PFTABKY2 EQU X'CB
0x132bf8…132d8c Dummy {f00=0x005c, f01=0x2008, f02=» * ERRFMT FRMT FSL , " FMEL 'ZZ9B',GTWBCD1 FILE NR. 8 FCOPY ERRTXT ^ " FMEL 'BZZ9',GTWBCD2 ERRORNR. t FCOPY =X'07' FMEND @ 8SPKTAB2 KTAB BSPKY1,CANKY1,NOKEY,MACKY1,NOKEY,EORKY1, C D ? FT
0x132d8c…132f20 Dummy {f00=0x005c, f01=0x018e, f02=»XW 0XW 0XW 0XW 0XW 0XX Z [ R L 7 EE9EE95999595?R L1X L?R < = F = V = h = z ( = = = = = = =
0x132f20…1330b4 (1, 388) Opaque[0x194]
0x1330b4…133248 # DirEnt {nam=»DIV461«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x1330b4…133248 IdxSect {
0x1330b4…133248 f00 = 0x000a // 0x1330b4 @0x0
0x1330b4…133248 f01 = 0x0018 // 0x1330b6 @0x2
0x1330b4…133248 gno = [ // 0x1330b8 @0x4
0x1330b4…133248 [0x00]: C0x000a.0x2.0
0x1330b4…133248 [0x01]: C0x000f.0x0.0
0x1330b4…133248 [0x02]: C0x001f.0x0.0
0x1330b4…133248 [0x03]: C0x002d.0x3.0
0x1330b4…133248 [0x04]: C0x0035.0x0.0
0x1330b4…133248 [0x05]: C0x0035.0x1.0
0x1330b4…133248 [0x06]: C0x0039.0x0.0
0x1330b4…133248 [0x07]: C0x0039.0x1.0
0x1330b4…133248 [0x08]: C0x003a.0x0.0
0x1330b4…133248 [0x09]: C0x003a.0x3.0
0x1330b4…133248 [0x0a]: C0x0041.0x0.0
0x1330b4…133248 [0x0b]: C0x0042.0x1.0
0x1330b4…133248 ]
0x1330b4…133248 }
0x133248…1333dc Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT DIV461 840130 EV P DDUM KMD08 $ P PDIV B P ENTRY FRMTJT X P ENTRY FRMXJT n P ENTRY FRMTTA P ENTRY FRMXTA P ENTRY FRMTVO P ENTRY FRMTKV P ENTRY FRMXVO P ENTRY FRMTKT P
0x1333dc…133570 Dummy {f00=0x000a, f01=0x0190, f02=»RY FRM3EL P ENTRY FRM4EL P ENTRY FRMXEL ( P EXT FMOVE > P INCLUDE EQUATE P P* p PFRMTJT PROC z 0 P CALL FMOVE,GTSTRFMT,FTBJT(GTREGDEX) P RET P PEND P* PFRMXJT PROC XJTD
0x133570…133704 Dummy {f00=0x000a, f01=0x018e, f02=»RFMT,FTBTA(GTREGDEX) x P RET P PEND 0 P* F PFRMXTA PROC XTADEX P ( P CALL FMOVE,GTSTRFMT,FTBXTA(XTADEX) j P RET P PEND P* PFRMTVO PROC 0 P CALL FMOVE,GTSTRFMT,FTBVO(GTREGDEX) P
0x133704…133898 Dummy {f00=0x000a, f01=0x0190, f02=» P* PFRMTKV PROC ( P CALL FMOVE,GTSTRFMT,FTBKV(GTREGDEX) & P RET R P PEND ^ P* l PFRMTKT PROC v 0 P CALL FMOVE,GTSTRFMT,FTBKT(GTREGDEX) P RET P PEND P* PFRMXKT PROC XKTDEX
0x133898…133a2c Dummy {f00=0x000a, f01=0x018e, f02=»TREGDEX) t P RET P PEND $ P* : PFRMXGP PROC XGPDEX D ( P CALL FMOVE,GTSTRFMT,FTBXGP(XGPDEX) ^ P RET P PEND P* PFRMXBC PROC XBCDEX ( P CALL FMOVE,GTSTRFMT,FTBXBC(XBCDEX) P RET P PEND
0x133a2c…133bc0 Dummy {f00=0x000a, f01=0x0190, f02=» PFRM2EL PROC * P CALL FMOVE,GTSTRFMT,FTB2EL(GTREGDEX) P RET J P PEND V P* d PFRM3EL PROC n * P CALL FMOVE,GTSTRFMT,FTB3EL(GTREGDEX) P RET P PEND P* PFRM4EL PROC * P CALL FMOVE,GTSTRFMT,FTB4EL(GTRE
0x133bc0…133d54 (1, 389) Dummy {f00=0x000f, f01=0x0190, f02=»D P* P EJECT P* * P* FORMATS FOR JOURNAL 4 P* X @ PFTBJT FTABLE JTFMT01,JTFMT02,JTFMT03,JTFMT04,JTFMT02, C b 2 P JTFMT01,JTFMT02,JTFMT08,JTFMT08,JTFMT02, C . P JTFMT12,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C
0x133d54…133ee8 Dummy {f00=0x000f, f01=0x018e, f02=»101 P FEOR 2 P FLINK JTSUB04 LINE 2 " P FMEND X P* n PJTFMT02 FRMT x P FLINK JT0201 P FEOR P FLINK JT0202 P FMEND P* PJTFMT03 FRMT P FLINK JT0301 P
0x133ee8…13407c Dummy {f00=0x000f, f01=0x0190, f02=» P FMEND P* PJTFMT08 FRMT P FLINK JT0101 0 P FEOR F 2 P FLINK JTSUB04 LINE 2 P FEOR P FLINK JT0803 LINE 3 P FEOR P FLINK JT0804 LINE 4 P FMEND P*
0x13407c…134210 Dummy {f00=0x000f, f01=0x0190, f02=»T5101 P FEOR P FLINK JT5102 P FEOR 2 P FLINK JT5103 @ P FMEND V P* d P EJECT n PJT0101 FRMT TRANS 1 LINE 1 | 4 P FLINK JTSUBST STARTINF 2 P FLINK JTSUB01 LINE 1
0x134210…1343a4 Dummy {f00=0x000f, f01=0x018e, f02=»TSUB05 REG KONTONO P FILLR ' ',11 * P FLINK JTSUB08 VALUE H P FMEND d P* r PJT0202 FRMT TRANS 2 LINE 2 | P FILLR ' ',8 F P FMEL 'X',GTDUPF(CBIN6) RE$ P F
0x1343a4…134538 Dummy {f00=0x000f, f01=0x0190, f02=» P* PJT0301 FRMT TRANS 3 LINE 1 4 P FLINK JTSUBST START INF 6 P FILLR ' ',10 n $ P FCOPY TT16TXT RATE/RENTE/GEBYR P FILLR ' ',3 2 P FLINK JTSUB06 CPR/CIR 0 P F
0x134538…1346cc Dummy {f00=0x000f, f01=0x0190, f02=» '99B',GTDUPF(CBIN3) BETALINGSKODE BKO H P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALGR < F P FMEL 'BBZZ',GTDUPF(CBIN8) BETALINGSFORM BFO 8 P FLINK JTSUB30 ARK KONTO NR
0x1346cc…134860 Dummy {f00=0x000f, f01=0x0190, f02=» 'ZZZ',GTDUPF(CBIN15) DEB LB NR P FILLR ' ',4 * P FMEND F P* PJT0401 FRMT TRANS 4 LINE 1 f P FLINK JTSUBST START INF P FILLR ' ',15 2 P FLINK JTSUB06 CPR/CIR 0 P F
0x134860…1349f4 (1, 390) Dummy {f00=0x001f, f01=0x0190, f02=»'99',GTDUPF(CBIN3) BKO P FILLR ' ',4 D P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VALOR 2 6 P FLINK JTSUB30 ARK KNT NR z B P FMEL 'BBZZ',GTDUPF(CBIN10) F$R D P FMEL
0x1349f4…134b88 Dummy {f00=0x001f, f01=0x0190, f02=» FMEL 'BBZZ',GTDUPF(CBIN13) OPK " P FMEL 'BBZZ',GTDUPF(CBIN8) BFO B P FILLR ' ',1 h P FMEND | P* PJT1201 FRMT TRANS 12 LINE 1 4 P FLINK JTSUBST START INF 8 P FLINK J
0x134b88…134d1c Dummy {f00=0x001f, f01=0x0190, f02=» | P FILLR ' ',2 0 P FLINK JTSUB08 VALUE $ P FMEND X P* f PJT1202 FRMT TRANS 12 LINE 2 p P FILLR ' ',2 2 P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT P FILLR ' ',16 P FMEND P*
0x134d1c…134eb0 Dummy {f00=0x001f, f01=0x0190, f02=»NK FLBNR LBNR = ***** P FLINK JTSUB51 8 P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN6) FELT 39/47 4 4 P FMEL 'B*.***.***.**9.99-',TTCYKTOT TOTAL VALUE p P FMEND P* PJT5102 FRMT TRANS 51 LINE 2 P FILLR ' ',2 ( P FMEL 'XXXB',GTD
0x134eb0…135044 Dummy {f00=0x001f, f01=0x018e, f02=»FELT 36 v $ P FMEL 'XXB',GTRTANT ANTAL RATER $ P FMEL 'XB',GTDUPF(CBIN5) FELT 14 8 . P FMEL 'XX.XX.XXB',GTDUPF(CBIN7) FELT 31/40 ` & P FMEL 'XXB',GTDUPF(CBIN18) FELT 41 $ P FMEL 'XB',GTDUPF(CBIN9) FELT 30 . P FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN8) F
0x135044…1351d8 Dummy {f00=0x001f, f01=0x0190, f02=» P FILLR ' ',2 . P FMEL 'XXXXXXXXXXB',GTDUPF(CBIN12) FELT 66 P FBN GTDUPF(CBIN19),JT51L05 J 6 P FMEL 'Z.ZZZ.ZZX.XXBB',GTDUPF(CBIN19) FELT 81 >=0 n P FB JT51L10 PJT51L05 6 P FMEL 'Z.ZZZ.ZZX.XXE-B',GTDUPF(CBIN19) FELT 81 <0 PJT
0x1351d8…13536c Dummy {f00=0x001f, f01=0x0190, f02=»43 j , P FMEL 'XX.XX.XXB',GTDUPF(CBIN21) FELT 44 , P FMEL 'XX.XX.XXB',GTDUPF(CBIN22) FELT 45 : P FILLR ' ',1 j P FMEND ~ P* P* 4 PJTSUBST FRMT START INF P FILLR ' ',2 P FCOPY GTTESTMK
0x13536c…135500 Dummy {f00=0x001f, f01=0x0190, f02=»NR P FMEND P* : PJTSUB01 FRMT LINE 1,- 1,5,6 * P FLINK JTSUB05 CPR/CIR h P FLINK JTSUB06 REG-KONTO-NR 0 P FLINK JTSUB08 VALUE P FMEND P* PJTSUB04 F
0x135500…135694 (1, 391) Dummy {f00=0x002d, f01=0x0190, f02=»V.DATO p B P FMEL 'BBX',GTDUPF(CBIN6) RE$ D P FMEL 'BBX',GTDUPF(CBIN8) BFO T P FLINK JTSUB30 0 P FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN10) YD.MODT ( P FMEL 'BXX',GTDUPF(CBIN11)
0x135694…135828 Dummy {f00=0x002d, f01=0x0190, f02=»9E-99B',GTDUPF(CBIN1) t P FMEND P* 4 2 PJTSUB06 FRMT CPR/CIR > P FBT BCPR,JTLAB06 t ( P FMEL 'XE-XXE-XXE-XXB',GTDUPF(CBIN2) P FB JTLAB08 PJTLAB06 P FBT BLEV,JTLAB07 & P FMEL
0x135828…1359bc Dummy {f00=0x002d, f01=0x0190, f02=» FMEND P* P* 8 PJTSUB08 FRMT VALUE AND D/K & 6 P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) b P FCOPY TTDBKRM P FMEND P* 6 PJTSUB30 FRMT ARK KNT
0x1359bc…135b50 Dummy {f00=0x002d, f01=0x0190, f02=» 3 - 8 f P FILLR ' ',2 F P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN12) FAKT DATO * F P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN13) FAKT NR t F P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN14) LEV NR D P
0x135b50…135ce4 Dummy {f00=0x002d, f01=0x0190, f02=» P P FMEND P* PJT0804 FRMT LINE 4 - 8 P FILLR ' ',2 B D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN18) PER FRA V D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN19) PER TIL F P FMEL 'BZ',GTDUPF(CBIN17)
0x135ce4…135e78 Dummy {f00=0x002d, f01=0x018e, f02=» ~ 2 P FMEL 'BBXE-XXE-XXE-XXB',GTDUPF(CBIN2) CIR NR P FB JTLAB519 > PJTLAB511 R P FBT BLEV,JTLAB512 b 0 P FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) CPR NR | P FB JTLAB519 PJTLAB512 0 P FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) LEV NR P
0x135e78…13600c Dummy {f00=0x002d, f01=0x0190, f02=» P* 0 P* VARIOUS FORMATS FOR JOURNAL TAPE P* F @ PFTBXJT FTABLE XJTF01,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C P 2 P XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,VOX15, C * P XJTF13,XJTF14,VOFMT02,XELF12,XELF13 P* PXJTF01
0x13600c…1361a0 Dummy {f00=0x002d, f01=0x0190, f02=» z P FILLR ' ',2 P FLINK FLBNR P FILLR ' ',2 0 P FCOPY ='KONTOKORT' D P FBF GTSLDFLG,XJTF02EX ` & P FMEL 'B*.***.***.**9.99-',TTKTSLD ~ PXJTF02EX P FMEND P* PXJTF03 FRMT P FILLR ' ',2 P FCOPY ='START S
0x1361a0…136334 (1, 392) Dummy {f00=0x0035, f01=0x0190, f02=»LINK XJTF05L P FMEND P* " P* , PXJTF05L FRMT 6 P FILLR ' ',2 J P FILLR '*',50 ^ P FEOR t P FILLR ' ',2 P FTEXT 'VERSNR ' P FCOPY ='DAGS-DATO' P FILLR ' ',2 P FCOPY ='POST-DATO' P FILLR ' '
0x136334…1364c8 Dummy {f00=0x0035, f01=0x0190, f02=».999.9',CVERSNR P FILLR ' ',2 P FMEL '99E-99E-99',CMASKDAT , P FILLR ' ',3 P P FMEL '99E-99E-99',GTDATO d P FILLR ' ',3 P FMEL '999',GTMSK P FILLR ' ',7 P FMEL '***99',TTSTLBNR P FILLR ' ',3 P FEOR P
0x1364c8…13665c Dummy {f00=0x0035, f01=0x0190, f02=»9BB',TVERSUR | & P FMEL '999E-99999E-99BB',TTCASHAC $ P FMEL 'ZZZ.ZZZ.ZZ9.ZZ-',TTSTCASH > P FEOR f P FILLR ' ',2 t P FILLR '*',40 P FMEND P* PXJTF06 FRMT P FILLR ' ',2 P FILLR '*',50 P FEOR P FILLR
0x13665c…1367f0 Dummy {f00=0x0035, f01=0x0190, f02=»0 P FCOPY ='DEBET' ! P FILLR ' ',12 ! " P FCOPY ='KREDIT' ! 8 P FMEND ! P P* ! ^ PXJTF07 FRMT ! h P FILLR ' ',2 ! | P FMEL 'ZZ',GTWBCD1 ! 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN2) ! 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(
0x1367f0…136984 Dummy {f00=0x0035, f01=0x0190, f02=» P FCOPY =' SLUT TEST' " P FMEND " " P* " 0 PXJTF11 FRMT " : P FILLR ' ',2 " N P FCOPY ='DISK SKIFT ' " b P FMEND " P* " PXJTF13 FRMT " P FILLR ' ',2 " P FLINK JTSUB05 REG KNT NO " * P FMEL 'BZZZ',GTDUPF(CBIN2) COUNTER NO
0x136984…136b18 Dummy {f00=0x0035, f01=0x0190, f02=»NO " r P FMEND # P* # PXJTF14 FRMT # " P FSL # 6 P FMEL '99B',GTWBCD2 # B P FCOPY GSWSTR9 # ^ P FMEL '99',GTWBCD1 # t P FMEND # P* # PFMTFMT FRMT # P FSL # P FMEND # P EJECT # P* # : P* FORMATS FOR
0x136b18…136cac Dummy {f00=0x0035, f01=0x0190, f02=»BAFST01,BAFST02,BAFST08,BAFST08,BAFST02, C # . P BAFST12,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C $ 4 , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C $ f " P FMTFMT,FMTFMT,FMTFMT,FMTFMT $ P* $ P* $ PBAFST01 FRMT TRANS 01-06 $ 8 P FLINK BSUB01
0x136cac…136e40 Dummy {f00=0x0035, f01=0x0190, f02=»L 'ZZ.ZZ.ZZB',GTDUPF(CBIN7) BET/VALORDATO $ P FB B1LAB2 % 8 PB1LAB1 % J " P FMEL 'B**B',GTDUPF(CBIN3) BKO % X PB1LAB2 % ~ < P FLINK JTSUB06 CPR-CIR-NR % @ P FLINK BSUB02 REGKONTO-BELOB
0x136e40…136fd4 (1, 393) Dummy {f00=0x0035, f01=0x018e, f02=»SUB01 HEADER % P FILLR ' ',1 & , 8 P FMEL '******E-****',GTDUPF(CBIN2) CPR/CIR TRANS 10 & @ P FILLR '*',3 & | P FBT TTKORTFL,B2LAB1 & P FILLR '*',13 & PB2LAB1 & @ P FLINK BSUB02 REGKONTO-BE
0x136fd4…137168 Dummy {f00=0x0035, f01=0x0190, f02=» & ~ P FMEND ' P* ' PBAFST08L FRMT ' 8 P FLINK BSUB01 HEADER ' 6 P FILLR ' ',1 ' r " P FMEL 'XX.XXPP',GTDUPF(CBIN7) ' " P FMEL 'BPPXXB',GTDUPF(CBIN15) ' P FBZ GTUSED(CBIN13),B8LAB1 ' . P FMEL 'ZZZZZZZZZZB',
0x137168…1372fc Dummy {f00=0x0035, f01=0x018e, f02=»TDATO ' h P FB B8LAB5 ( PB8LAB2 ( . P FMEL 'ZZZZZ999.99B',GTDUPF(CBIN14) LEVNR ( . PB8LAB5 ( ` $ P FMEL 'XXXXXXXXXX',GTDUPF(CBIN2) ( n ( P FMEL 'B999.99999.99',GTDUPF(CBIN1) ( * P FMEL 'B***.***.**9.99-',GTDUPF(CBIN4) ( P FCOPY TTDBKRM ( P F
0x1372fc…137490 Dummy {f00=0x0035, f01=0x0190, f02=» ( ~ > P FCOPY TTCYM CYKLE-MARKERING ) > P FMEL '999B',GTMSK MASKINNR ) J P FLINK FLBNR ) @ P FMEL 'B99.99.99',GTDATO POSTERINGSDATO ) B P FCOPY TTSUPMRK
0x137490…137624 Dummy {f00=0x0035, f01=0x0190, f02=» TAELLER-NR ) j 2 P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN2) DIVERSE TEXT * P FBT TTKORTFL,B12LAB1 * P P FILLR '*',13 * n PB12LAB1 * @ P FLINK BSUB02 REGKONTO-BELOB * P FMEND * P* * P* * PBAFST0
0x137624…1377b8 Dummy {f00=0x0035, f01=0x0190, f02=»NK BSUB10 * , P FMEL 'XX.',GTDUPF(CBIN8) BETALINGSKILDE + P FLINK BSUB11 + B P FLINK BSUB13 + X P FMEND + n P* + | PBAFST04 FRMT BILAG TRANS 4 + P FLINK BSUB10 + P FLINK BSUB12 + P FLINK BSUB13 + P FMEND + P* + P* +
0x1377b8…13794c Dummy {f00=0x0035, f01=0x0190, f02=»YM CYKLE-MARKERING + ~ > P FMEL '999B',GTMSK MASKINNR , 0 P FLINK FLBNR , r @ P FMEL 'B99.99.99',GTDATO POSTERINGSDATO , B P FCOPY TTSUPMRK SUPPLEMENTS-MARK
0x13794c…137ae0 Dummy {f00=0x0035, f01=0x0190, f02=» FMEL 'B999.99999.99',GTDUPF(CBIN1) REGKONTONR , < P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BELOB - B B P FCOPY TTDBKRM DEBET/KREDIT-MARK - P FILLR ' ',1 - P FMEND - P* - P* -
0x137ae0…137c74 (1, 394) Dummy {f00=0x0039, f01=0x0190, f02=» P FCOPY CKMDNAM . : P FMEL 'B999B',GTMSK MASKINNR . " P FMEL '99B',GTDUPF(CBIN3) BKO . X P FMEND . ~ P* . P* . PBSUB05 FRMT . P FLINK FLBNR . > P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) BE
0x137c74…137e08 Dummy {f00=0x0039, f01=0x0190, f02=» . PBSUB06 FRMT / " P FMEL 'B99B',GTDUPF(CBIN3) BKO / P FBT TTKORTFL,B6LAB1 / D P FCOPY TT07TXT / ` P FILLR ' ',1 / v , P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN7) VAL. DATO / PB6LAB1 / P FMEND / P* / P* / PBSUB07 FRMT / P
0x137e08…137f9c Dummy {f00=0x0039, f01=0x0190, f02=»LOB / D P FCOPY TTDBKRM DEBET/KREDIT-MARK 0 P FILLR ' ',1 0 T P FLINK SKAF01 LINE NR 0 h P FMEND 0 P* 0 PBSUB10 FRMT 0 P FILLR '+',2 0 P FCOPY GTTESTMK TEST MARK 0 P FMEL '999B',GTMSK MASKI
0x137f9c…138130 Dummy {f00=0x0039, f01=0x0190, f02=»BSUB11 FRMT 0 $ P FMEL 'XX',GTDUPF(CBIN11) P]L]R 1 2 P FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITOR NR 1 < , P FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO 1 r & P FMEL 'BXB',GTDUPF(CBIN12) RTE/GEB 1 P FMEND 1 P* 1 PBSUB12 FRMT 1 P FBF TTASKAT,B12
0x138130…1382c4 Dummy {f00=0x0039, f01=0x0190, f02=»AB6 1 2 P FMEL 'E-9999999999B',GTDUPF(CBIN2) DEBITORNR 2 , P FMEL 'XX.XXPP',GTDUPF(CBIN7) VALOERDATO 2 B P FILLR ' ',3 2 r P FMEND 2 P* 2 PBSUB13 FRMT 2 2 P FMEL '*.***.***.**9.99-',GTDUPF(CBIN4) VALUE 2 P FCOPY TTDBKRM 2 P FILLR ' '
0x1382c4…138458 Dummy {f00=0x0039, f01=0x018e, f02=»*9',TTLBNR 2 P FB FLBNR20 3 PFLBNR10 3 & P FMEL '****9',GTLBNR 3 6 PFLBNR20 3 R P FB FLBNR90 3 b PFLBNR50 3 v P FILLR '*',5 3 P FB FLBNR90 3 PFLBNR90 3 P FMEND 3 P* 3 P EJECT 3 P* 3 * P* VARIOUS FORMATS
0x138458…1385ec Dummy {f00=0x0039, f01=0x0190, f02=» ( P VOX11,VOX12,VOX13,VOX14,VOX15, C 4 P VOX16,VOX17,VOX18,VOX19 4 0 P* 4 R P* 4 PVOFMT02 FRMT TOTAL IN CYCLE 4 f P FILLR '+',2 4 P FBF TTCY1FLG,VOLAB02 4 P FCOPY ='ARKIV' 4 P FLINK JTSUB30 4 PVOLAB02 4 P FILLR ' ',4 4
0x1385ec…138780 Dummy {f00=0x0039, f01=0x0190, f02=»LINK BAFST03 4 P FLINK BAXF05L 5 P FMEND 5 * P* 5 8 PBAXF05 FRMT 5 B P FILLR '+',2 5 V P FLINK BAXF05L 5 j P FMEND 5 P* 5 PBAXF05L FRMT 5 P FLINK BSUB04 5 P FEOR 5 P FILLR '0',2 5 P FLINK BSUB05 5 P FMEND 5 P
0x138780…138914 (1, 395) Dummy {f00=0x0039, f01=0x0190, f02=» FLINK KVIT03 5 P FMEND 6 P* 6 $ PVOSUM07 FRMT SUMBILAG 6 . P FILLR '+',2 6 L P FMEL '999B',GTMSK MASKINNR 6 ` ( P FMEL 'B99.99.99B',GTDATO EKSP.LB.NR 6 P FMEL '****9',GTSUMST 6 P FCOPY ='-' 6 P FLINK FLBNR 6 P FILLR ' ',1 6
0x138914…138aa8 Dummy {f00=0x0039, f01=0x0190, f02=» VOX08L 6 P FMEND 7 P* 7 PVOX08L FRMT 7 ( P FILLR '+',2 7 < P FCOPY GTTESTMK 7 P P FMEL '999B',GTMSK 7 h P FMEL 'B99.99.99',GTDATO 7 P FMEL 'BBZ999',CKMDNR 7 P FMEL 'BB****9',TTSTLBNR 7 P FTEXT ' - ' 7 P FLINK FLBNR 7 P
0x138aa8…138c3c Dummy {f00=0x0039, f01=0x0190, f02=»0 7 P FILLR '*',8 8 P FEOR 8 P FILLR '4',2 8 , P FCOPY ='KONTONR' 8 @ P FILLR ' ',6 8 Z P FCOPY ='T[LLER' 8 n P FILLR ' ',9 8 P FTEXT 'NETTO' 8 P FILLR ' ',12 8 P FCOPY ='DEBET' 8 P FILLR ' ',12 8 P FCOPY ='KREDIT' 8
0x138c3c…138dd0 Dummy {f00=0x0039, f01=0x0190, f02=»'99',GTWBCD1 8 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) NETTO 9 > P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN2) DEBET 9 N > P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',C12ACC(GSWBIN5,CBIN1) KREDIT 9 P FMEND 9 P* 9 PVOX10 FRMT 9 P FILLR '2',2
0x138dd0…138f64 Dummy {f00=0x0039, f01=0x018e, f02=» 9 ^ 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(GSWBIN5,CBIN1) : P FMEND : B P* : P PVOX11 FRMT : Z P FLINK VOX11L : l P FMEND : P* : PVOX11L FRMT : P FILLR '4',2 : P FTEXT 'TOTAL' : 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) :
0x138f64…1390f8 Dummy {f00=0x0039, f01=0x018e, f02=» : P FTEXT 'SUPL ' ; 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN5) ; 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN2) ; R 4 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTACC(CBIN8,CBIN1) ; P FEOR ; P FILLR '2',2 ; P FTEXT 'KOR' ; P FILLR ' ',19 ;
0x1390f8…13928c Dummy {f00=0x0039, f01=0x0190, f02=» ; PVOX12 FRMT < P FLINK VOX12L < P FMEND < 0 P* < > PVOX12L FRMT < H P FILLR '4',2 < $ P FMEL '999E-99999E-99',TTCASHAC < p P FILLR ' ',1 < P FTEXT ' PRIMO' < * P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTSTCASH < P FILLR ' ',34 < P
0x13928c…139420 Dummy {f00=0x0039, f01=0x0190, f02=»',GTDUPF(CBIN5) < t 0 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN6) = P FEOR = L P FILLR '2',2 = Z P FTEXT 'ULTIMO' = n ( P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',TTCASH = P FILLR ' ',34 = P FMEND = P* = PVOX13 FRMT = P FLINK VOX13L = P
0x139420…1395b4 (1, 396) Dummy {f00=0x003a, f01=0x0190, f02=»TO = z P FILLR ' ',2 > P FCOPY ='BEHOLDNINGST[LLERE' > P FILLR ' ',2 > B P FCOPY GSWSTR20 > V P FILLR ' ',3 > n P FEOR > P FILLR '2',2 > P FILLR '*',56 > P FEOR > P FILLR '4',2 > P FCOPY ='T[LLER' > P FILLR ' ',4 > P
0x1395b4…139748 Dummy {f00=0x003a, f01=0x0190, f02=»',1 > P FMEND ? P* ? PVOX14 FRMT ? $ P FILLR '2',2 ? 6 P FMEL 'ZZ',GTWBCD1 ? J P FILLR ' ',4 ? d 0 P FMEL 'XXXE-XXXXXE-XX',CBACC(GSWBIN3,CBIN1) ? x 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBACC(GSWBIN3,CBIN2) ? 6 P FMEL 'BBZZZ.ZZZ.ZZZ.ZZ9.99-',CBAC
0x139748…1398dc Dummy {f00=0x003a, f01=0x0190, f02=»X16 FRMT ? P FILLR ' ',2 @ P FILLR X'24',40 NO. @ $ P FILLR X'3C',40 5. @ @ P FNL @ Z P FNL @ f P FILLR X'5D',40 ] @ r P FILLR X'4E',40 N @ P FNL @ P FNL @ P FILLR X'45',40 E @ P FILLR X'53',40 S @ P FNL @ P FNL @
0x1398dc…139a70 Dummy {f00=0x003a, f01=0x0190, f02=»TDATO POSTERINGSDATO @ | P FILLR ' ',6 A P FLINK FLBNR A 0 P FILLR ' ',8 A D 2 P FMEL 'B*.***.***.**9E,99',GTDUPF(CBIN4) BELOB A X P FILLR '*',2 A P FILLR ' ',3 A 4 P FMEL 'ZZ999999',GTDUPF(CBIN2) CHECKNR(DIV.TXT) A P FILLR ' ',8 A P FMEND
0x139a70…139c04 Dummy {f00=0x003a, f01=0x0190, f02=».ZZZ.ZZZ.ZZ9.99-',GSWBCD7 A P FMEND B " P* B 0 " PVOX19 FRMT SHORT TR 2,5,7,10 B : P FLINK BSUB01 B ` P FLINK BSUB02 B v P FMEND B P* B P EJECT B P* B . P* FORMATS FOR EXTRA 'KVITTERING' B ( P* (MOSTLY AS NORM
0x139c04…139d98 Dummy {f00=0x003a, f01=0x018e, f02=» B b P BAFST12 C P* C P* C $ PKVIT03 FRMT C . P FILLR '+',2 C B P FLINK BSUB04 C V P FLINK BSUB05 C l P FMEND C P* C P EJECT C P* C " P* FORMATS FOR KONTOKORT C P* C @ PFTBKT FTABLE KAFST01,KAFST0
0x139d98…139f2c Dummy {f00=0x003a, f01=0x0190, f02=» C d , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C D P KAFST51,FMTFMT,KAFST53 D 8 P* D X P* D b PKAFST00 FRMT D l P FMEND D P* D P* D < PKAFST01 FRMT TRANS 01-06 D P FLINK BAFST01 D
0x139f2c…13a0c0 Dummy {f00=0x003a, f01=0x0190, f02=» FLINK BAFST02 D P FLINK SKAF01 LINE NR E P FMEND E < P* E R P E : PKAFST12 FRMT TRANS 12 E d P FLINK BAFST12 E P FLINK SKAF01 LINE NR E P FMEND E P* E P* E : P
0x13a0c0…13a254 (1, 397) Dummy {f00=0x003a, f01=0x0190, f02=» E P FBF TTKORTFL,KLAB31 F 2 P FMEL 'XX.XXPP',GTDUPF(CBIN7) VAL.DATE, DD.MM F $ > P FMEL 'BXX',GTDUPF(CBIN11) PALIGNINGS$R F Z $ P FCOPY TT16TXT RENTE/GEBYR/INDB F P FB KLAB32 F PKLAB31 F $ P FCOPY TT16TXT RENTE/GEBYR/INDB F
0x13a254…13a3e8 Dummy {f00=0x003a, f01=0x0190, f02=»B/LINIENR F v P FMEND G P* G ( P* G 2 : PKAFST04 FRMT TRANS 04 G < P FLINK KAFST04L G z P FMEND G P* G PKAFST04L FRMT G 8 P FLINK BSUB01 HEADER G < P FLI
0x13a3e8…13a57c Dummy {f00=0x003a, f01=0x0190, f02=»B KLAB401 G PKLAB40 H P FILLR ' ',1 H PKLAB401 H 4 P FBF TTASKAT,KLAB41 H D 0 P FMEL 'B**',GTDUPF(CBIN12) REST.MAANED - CIR H ` . P FMEL 'B**',GTDUPF(CBIN11) REST.AAR - CIR H P FB KLAB42 H PKLAB41 H P FILLR ' ',3 H 4 P FMEL 'B**',GT
0x13a57c…13a710 Dummy {f00=0x003a, f01=0x0190, f02=» FMEND H P* I PKAFST51 FRMT I P FLINK KSUB01 I . P FTEXT 'P]' I D P FLINK KSUB02 I X P FMEND I n P* I | PKAFST53 FRMT I P FLINK KSUB01 I P FTEXT '[N' I P FLINK KSUB02 I P FMEND I P* I P* I P* I PSK
0x13a710…13a8a4 Dummy {f00=0x003a, f01=0x0190, f02=».***.***.**9.99-',TTKTSLD SALDO I PSKAF03 J ( " P FMEL 'B99.',TTKTLIN NEW LINE J 6 " P FMEL '9',TTKTCHK CHECK DIGIT J P FB SKAF05 J PSKAF02 J P FMEL '99B',TTKTLIN J PSKAF05 J P FMEND J P* J PKSUB01 FRMT J P FILLR '+',2 J
0x13a8a4…13aa38 Dummy {f00=0x003a, f01=0x0190, f02=» ' ',1 J $ P FMEL '99B',GTREGNR TRANSTYPE NR K " P FMEL '**B',GTDUPF(CBIN3) BKO K 6 P FMEND K P* K j PKSUB02 FRMT K t 8 P FMEL 'B99.99.99',GTDUPF(CBIN7) FELT 31, P]LIG.DAT. K P FMEL 'B**E-',GTRTANT ANTAL K $ P FMEL '**',GTDUPF(CBIN4) RATE NR
0x13aa38…13abcc Dummy {f00=0x003a, f01=0x0190, f02=»LR ' ',2 K P FMEL '99B',TTKTLIN L P FMEND L , P* L : P EJECT L D P* L R . P* VARIOUS FORMATS FOR 'KONTOKORT' L P* L PFTBXKT FTABLE XKTTRP L P* L PXKTTRP FRMT L P FILLR '+',2 L P FMEL 'B99.99.99',GTDATO L P F
0x13abcc…13ad60 Dummy {f00=0x003a, f01=0x0190, f02=» FORMATS FOR TALLY ROLL L P* M PFTBTA FTABLE FMTFMT M * P* M F P* M P P* M Z . P* VARIOUS FORMATS FOR TALLY ROLL M d P* M P* M @ PFTBXTA FTABLE TAFMT01,TAFMT02,TAFMT02,TAFMT04,TAFMT05, C M P VOX15,TAFMT07 M P*
0x13ad60…13aef4 (1, 398) Dummy {f00=0x0041, f01=0x018e, f02=»FRMT M P FILLR '0',2 N P FCOPY GSWSTR9 N & P FMEL '*.***.***.**9.99+B',GSWBCD6 N 6 P FLINK TAFMT07 N ` P FMEND N v P* N PTAFMT04 FRMT N P FILLR '+',2 N , P FMEL 'Z.ZZZ.ZZZ.ZZ9.99-',GTDUPF(CBIN4) N P FCOPY TTDBKRM N P FMEND N
0x13aef4…13b088 Dummy {f00=0x0041, f01=0x0190, f02=» PTAFMT07 FRMT O P FNL O P FNL O $ P FNL O 0 P FNL O < P FNL O H P FNL O T P FNL O ` P FMEND O l P* O z ( P* FORMATS FOR GENERAL PRINTER O P* O PFTBGP FTABLE FMTFMT O P* O P* O P* O 2 P* VARIOUS F
0x13b088…13b21c Dummy {f00=0x0041, f01=0x0190, f02=»,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C O | 4 P XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,FBC012, C P 0 P FBC013,FBC014,VOFMT02 P h P* P P* P PFBC012 FRMT P P FNL P P FCOPY GSWSTR20 P P FNL P P FMEND P P* P P* P PFBC013
0x13b21c…13b3b0 Dummy {f00=0x0041, f01=0x0190, f02=»',GTWBCD2 P P FCOPY GSWSTR9 Q P FMEL '99',GTWBCD1 Q ( P FNL Q B P FMEND Q N P* Q P* Q f P EJECT Q p 8 PFTB1EL FTABLE JT0101,JT0201,JT0301,JT0401,JT0201, C Q ~ , P JT0101,JT0201,JT0101,JT0101,JT0201, C Q , P JT1201,FMTFMT,FMTFMT,FMTFMT,
0x13b3b0…13b544 Dummy {f00=0x0041, f01=0x0190, f02=»4,JT0202,JT0302,JT0402,JT0202, C Q | 0 P JTSUB04,JT0202,JTSUB04,JTSUB04,JT0202, C R * , P JT1202,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C R ^ , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C R P JT5102,FMTFMT,JT5102 R P* R P* R 8 PFTB3EL FTABLE FMTFMT,FMT
0x13b544…13b6d8 Dummy {f00=0x0041, f01=0x0190, f02=»TFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C R P JT5103,FMTFMT,JT5103 S , P* S J P* S T 8 PFTB4EL FTABLE FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C S ^ , P FMTFMT,FMTFMT,JT0804,JT0804,FMTFMT, C S , P FMTFMT,FMTFMT,FMTFMT,FMTFMT,FMTFMT, C S , P FMTFMT,FMTFM
0x13b6d8…13b86c Dummy {f00=0x0041, f01=0x4172, f02=» S , P VOX15,XJTF13,XJTF14,VOFMT02,XJTF03, C T P XJTF04,XELF12,XELF13 T 8 P* T V P* T ` PXELF12 FRMT T j P FCOPY =' START ' T ~ P FCOPY ='EL. JOURNAL ' T P FMEND T P* T P* T PXELF13 FRMT T P FCOPY =C' SLUT ' T P F
0x13b86c…13ba00 Dummy {f00=0x0041, f01=0x2008, f02=» U P* CAN NOT BE IDENTIFIED BY TRANSTYPE (OR GTREGDEX) ' P* ' L PFTBXX FTABLE ' V P* ' n P* ' x P END ' @ ' & z P* & PFTBTA FTABLE & P* & P* & P EJECT & P* & ( P* FORMATS
0x13ba00…13bb94 (1, 399) Dummy {f00=0x0042, f01=0x0190, f02=»V.DATO p B P FMEL 'BBX',GTDUPF(CBIN6) RE$ D P FMEL 'BBX',GTDUPF(CBIN8) BFO T P FLINK JTSUB30 0 P FMEL 'XXXXXXE-XXXX',GTDUPF(CBIN10) YD.MODT ( P FMEL 'BXX',GTDUPF(CBIN11)
0x13bb94…13bd28 Dummy {f00=0x0042, f01=0x0190, f02=»9E-99B',GTDUPF(CBIN1) t P FMEND P* 4 2 PJTSUB06 FRMT CPR/CIR > P FBT BCPR,JTLAB06 t ( P FMEL 'XE-XXE-XXE-XXB',GTDUPF(CBIN2) P FB JTLAB08 PJTLAB06 P FBT BLEV,JTLAB07 & P FMEL
0x13bd28…13bebc Dummy {f00=0x0042, f01=0x0190, f02=» FMEND P* P* 8 PJTSUB08 FRMT VALUE AND D/K & 6 P FMEL 'B*.***.***.**9.99-',GTDUPF(CBIN4) b P FCOPY TTDBKRM P FMEND P* 6 PJTSUB30 FRMT ARK KNT
0x13bebc…13c050 Dummy {f00=0x0042, f01=0x0190, f02=» 3 - 8 f P FILLR ' ',2 F P FMEL 'ZZ.ZZ.ZZ',GTDUPF(CBIN12) FAKT DATO * F P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN13) FAKT NR t F P FMEL 'BZZZZZZZZZZ',GTDUPF(CBIN14) LEV NR D P
0x13c050…13c1e4 Dummy {f00=0x0042, f01=0x0190, f02=» P P FMEND P* PJT0804 FRMT LINE 4 - 8 P FILLR ' ',2 B D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN18) PER FRA V D P FMEL 'BZZ.ZZ.ZZ',GTDUPF(CBIN19) PER TIL F P FMEL 'BZ',GTDUPF(CBIN17)
0x13c1e4…13c378 Dummy {f00=0x0042, f01=0x018e, f02=» ~ 2 P FMEL 'BBXE-XXE-XXE-XXB',GTDUPF(CBIN2) CIR NR P FB JTLAB519 > PJTLAB511 R P FBT BLEV,JTLAB512 b 0 P FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) CPR NR | P FB JTLAB519 PJTLAB512 0 P FMEL 'BXXXXXXE-XXXXB',GTDUPF(CBIN2) LEV NR P
0x13c378…13c50c Dummy {f00=0x0042, f01=0x0190, f02=» P* 0 P* VARIOUS FORMATS FOR JOURNAL TAPE P* F @ PFTBXJT FTABLE XJTF01,XJTF02,XJTF03,XJTF04,XJTF05,XJTF06, C P 2 P XJTF07,FMTFMT,XJTF09,XJTF10,XJTF11,VOX15, C * P XJTF13,XJTF14,VOFMT02,XELF12,XELF13 P* PXJTF01
0x13c50c…13c6a0 Dummy {f00=0x0042, f01=0x0190, f02=» z P FILLR ' ',2 P FLINK FLBNR P FILLR ' ',2 0 P FCOPY ='KONTOKORT' D P FBF GTSLDFLG,XJTF02EX ` & P FMEL 'B*.***.***.**9.99-',TTKTSLD ~ PXJTF02EX P FMEND P* PXJTF03 FRMT P FILLR ' ',2 P FCOPY ='START S
0x13c6a0…13c834 (1, 400) Opaque[0x194]
0x13c834…13c9c8 # DirEnt {nam=»TB3270«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e58, f03=0x0000}
0x13c834…13c9c8 IdxSect {
0x13c834…13c9c8 f00 = 0x00f2 // 0x13c834 @0x0
0x13c834…13c9c8 f01 = 0x0004 // 0x13c836 @0x2
0x13c834…13c9c8 gno = [ // 0x13c838 @0x4
0x13c834…13c9c8 [0x00]: C0x00f2.0x3.0
0x13c834…13c9c8 [0x01]: C0x00f3.0x0.0
0x13c834…13c9c8 ]
0x13c834…13c9c8 }
0x13c9c8…13cb5c Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT TB3270 2.1DK 2 79-05-23 870150540210 4 P***** SPECIAL SCANDINAVIAN ALPHABET ****** : F P****************************************************************** r P* : P* CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE P*
0x13cb5c…13ccf0 Dummy {f00=0x00f2, f01=0x018e, f02=»RY TASCII P ENTRY TEBCDI P ENTRY KEYCNV ( P* > P H P* CONDITIONAL ASSEMBLIES P P* r PKB6272 EQU 0 | P* P EJECT P* P* 4 P* TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL P* P* CODE TO
0x13ccf0…13ce84 Dummy {f00=0x00f2, f01=0x0190, f02=» * P DATA /4849,/232E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 2 * P DATA /5152,/245D,/2A29,/3B5E /18-/1F ` * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F ( P DATA /3031,/3233,/3435,/3637
0x13ce84…13d018 Dummy {f00=0x00f2, f01=0x0190, f02=»OM ASCII TO EBCDIC r P* 4 P* USED TO GET BINARY VALUES FROM THE EBCDIC CODE $ P* * P* INVALID CODES ARE CONVERTED TO ZEROS f P* P* PTEBCDIC EQU * P DATA 0,0,0,0 /00-/07 P DATA 0,0,0,0 /08-/0F P DATA 0,0,0,0
0x13d018…13d1ac Dummy {f00=0x00f2, f01=0x0190, f02=»A,/5A6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 H ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F t ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E
0x13d1ac…13d340 Dummy {f00=0x00f2, f01=0x0190, f02=»394,/9596 68-6F | ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A900,/0000,/0000 78-7F D P DE p P EJECT ~ P* 4 P* TRANSLATION OF FUNCTON KEYS & LOWER CASE P - W P* PKEYCNV EQU * P IFF KB6272=1 P CWK A
0x13d340…13d4d4 (1, 401) Dummy {f00=0x00f3, f01=0x0190, f02=»10 EQU * P CWK A2,/80 P RF(L) KEYC99 $ P DB : P CWK A2,/C0 DK H P RF(L) KEYC50 DK ` & P LDK A2,/7F KEYSWITCH 2 (C0-FF) DK z P RF KEYC99 DK PKEYC50 EQU * DK P DE P SUK A2,/80 P LC A2,KBCVTB,A2
0x13d4d4…13d668 Dummy {f00=0x00f3, f01=0x4184, f02=»C,/B5A7 /80-/87 z * P DATA /A8B4,/A98C,/7F7F,/7F7F /88-/8F * P DATA /ABB2,/AAB1,/AE8B,/26AD /90-/97 F * P DATA /AFB6,/7F7F,/7F7F,/7F7F /98-/9F t * P DATA /7F7F,/B3A5,/7F7F,/7F7F /A0-/A7 * P DATA /7F7F,/7F7F,/7F7F,/7F7F /A8-/AF * P DATA /303
0x13d668…13d7fc Dummy {f00=0x00f3, f01=0x2008, f02=» A @ aP x (@ :P T P> H D ! P P T P P T #P 'P +W AT M SQ T H D !A( aT y }P Q P PP WF T W P P P P H D ! $ 1 d I d _ d sP w
0x13d7fc…13d990 Dummy {f00=0x00f3, f01=0x0190, f02=» _@ Z: _H " N , ( P R O : N - O . , ( B + I I C ( ^ LIOLON LIOLOFC LINHONK , ( : W W W W W W W LINHOF
0x13d990…13db24 Dummy {f00=0x00f3, f01=0x0190, f02=» Q O O z , ( G : P _ ]$ , ( g O O : N O J , ( : Q T O O z , ( : R : _* 0 : O , ( " O : N
0x13db24…13dcb8 Dummy {f00=0x00f3, f01=0x0190, f02=» h H D ! ! # % ' ) + - / 1 3 5 7 9 ; = ? $ H D ! A C E G I K M O Q S U W Y [ ] _ p H D ! a c e g i k m o q s u w y { } H D
0x13dcb8…13de4c Dummy {f00=0x00f3, f01=0x0190, f02=» T H D ! | L H D ! H D ! < ( 6 4 H D ! ! # % '
0x13de4c…13dfe0 Dummy {f00=0x00f3, f01=0x0190, f02=» P8 =W M u P P P P V W6 #R 'W& 5R ;W EV H D !HC KW U 2 iR sR 2 P T T T Q P T Q H H D ! %V ? EU KP( SP Y 2 ]P _R cW P T P> H D ! P P T P %P
0x13dfe0…13e174 (1, 402) Opaque[0x194]
0x13e174…13e308 # DirEnt {nam=»CON461«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0e28, f03=0x0000}
0x13e174…13e308 IdxSect {
0x13e174…13e308 f00 = 0x0071 // 0x13e174 @0x0
0x13e174…13e308 f01 = 0x0002 // 0x13e176 @0x2
0x13e174…13e308 gno = [ // 0x13e178 @0x4
0x13e174…13e308 [0x00]: C0x0071.0x1.0
0x13e174…13e308 ]
0x13e174…13e308 }
0x13e308…13e49c Dummy {f00=0x0071, f01=0x0190, f02=» PT; P05; PTID=TC; PTCL=TC; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f P00; v PT; P01; PTID=TH; PTCL=TC; PLEV=60; P01; PTDC=T01; PLC=01R; P00; PT;
0x13e49c…13e630 Dummy {f00=0x0071, f01=0x0190, f02=» PTID=TJ; PTCL=TC; PLEV=60; $ P01; 4 PTDC=T01; @ PLC=05R; P P00; ` PT; l P01; v PTID=TK; PTCL=TC; PLEV=60; P01; PTDC=T01; PLC=07R; P00; PT; P01; PTID=TL;
0x13e630…13e7c4 Dummy {f00=0x0071, f01=0x0146, f02=»L=TC; PLEV=60; P01; PTDC=T01; * PLC=11R; : P00; J PT; V P01; ` PTID=TN; l PTCL=TC; | PLEV=60; P01; PTDC=T01; PLC=13R; P00; PC; P00; P01; PSCL=S01; PU;
0x13e7c4…13e958 Dummy {f00=0x0071, f01=0x2008, f02=» PLEV=60; P01; PTDC=T01; * PLC=11R; : P00; J PT; V P01; ` PTID=TN; l PTCL=TC; | PLEV=60; P01; PTDC=T01; PLC=13R; P00; PC; P00; P01; PSCL=S01; PU;
0x13e958…13eaec Dummy {f00=0x0071, f01=0x4126, f02=» U P R !U + 4 -W 1 J 5Q 9 p CP M : Q WP cR H D ! R s p P. P( P R Q W R U p P 4 P: P @ U @ H D !1 T W @ +P /R 7U G M SP m @ R P 4 4 0 RJ P Q W U )P4 3W* 9W ?W IT U
0x13eaec…13ec80 Dummy {f00=0x0071, f01=0x0190, f02=»LLOWED l 0 PCKTFLAG BOOL FALSE F=NO SALDO AT ALL IN KORT . PCCLKTFLG BOOL FALSE T=KONTOKORT I KASSELUK B 0 PCTESTFLG BOOL FALSE T=CONVERSION, TEST MODE t , PCTRVALG BOOL FALSE T: SKOVBO. F: VIBORG , PCFLT46 BOOL TRUE T=SPECIAL FIELD 46,TR=8 , P
0x13ec80…13ee14 (1, 403) Opaque[0x194]
0x13ee14…13efa8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e68, f03=0x0000}
0x13ee14…13efa8 IdxSect {
0x13ee14…13efa8 f00 = 0x00f3 // 0x13ee14 @0x0
0x13ee14…13efa8 f01 = 0x0004 // 0x13ee16 @0x2
0x13ee14…13efa8 gno = [ // 0x13ee18 @0x4
0x13ee14…13efa8 [0x00]: C0x00f3.0x1.0
0x13ee14…13efa8 [0x01]: C0x00f3.0x2.0
0x13ee14…13efa8 ]
0x13ee14…13efa8 }
0x13efa8…13f13c Dummy {f00=0x00f3, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 2 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x13f13c…13f2d0 Dummy {f00=0x00f3, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x13f2d0…13f464 Dummy {f00=0x00f3, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 > P* 2F 19 USM(2F) TIL EM(19 DK2 D P EJECT P* P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII P* P* PTASCII EQU * P I
0x13f464…13f5f8 Dummy {f00=0x00f3, f01=0x0190, f02=»10-17 r ( P DATA /0019,/0000,/1C1D,/1E1F 18-1F ( P DATA /0000,/0000,/0000,/171B 20-27 : ( P DATA /0000,/0000,/0005,/0019 28-2F f ( P DATA /0000,/1600,/0000,/0004 30-37 ( P DATA /0000,/0000,/1415,/001A 38-3F ( P DATA /2041,/4243,/4445,/4647
0x13f5f8…13f78c Dummy {f00=0x00f3, f01=0x018e, f02=»F n ( P DATA /2D2F,/5354,/5556,/5758 60-67 ( P DATA /595A,/402C,/255F,/3E3F 68-6F 6 ( P DATA /1831,/3233,/3435,/3637 70-77 b ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F ( P DATA /2061,/6263,/6465,/6667 80-87 ( P DATA /6869,/5B2E,/3C28,/2B21 88-8
0x13f78c…13f920 Dummy {f00=0x00f3, f01=0x0190, f02=» j ( P DATA /797A,/7C2C,/255F,/3E3F A8-AF ( P DATA /3031,/3233,/3435,/3637 B0-B7 4 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ` ( P DATA /2041,/4243,/4445,/4647 C0-C7 ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7
0x13f920…13fab4 (1, 404) Dummy {f00=0x00f3, f01=0x0190, f02=» ( P DATA /3031,/3233,/3435,/3637 F0-F7 ( P DATA /3839,/3A23,/4027,/3DFF F8-FF 0 P XIF P EJECT h P* v P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA
0x13fab4…13fc48 Dummy {f00=0x00f3, f01=0x0190, f02=»9,/3F27,/1C1D,/1E1F 18-1F ( P DATA /404F,/7F4A,/5A6C,/507D 20-27 " ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F N ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 z ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C
0x13fc48…13fddc Dummy {f00=0x00f3, f01=0x40f6, f02=»283,/8485,/8687 60-67 ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 J ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F v 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 P XIF P END @ ( P DATA /C8C
0x13fddc…13ff70 Dummy {f00=0x00f3, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x13ff70…140104 Dummy {f00=0x00f3, f01=0x0190, f02=» ) A8*_ A A8,_ ? ? ? ? ? ^ A _ _ ^ ? ? ? 8* $P T I R $ 5 % x W W T T U U U U T U n 4 T - 1_( U T P 0 U _p ? @8 T 0 A8
0x140104…140298 Dummy {f00=0x00f3, f01=0x0190, f02=» D 8(T 8(W > _& W8 > 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ A. #M 1 8 J B B A
0x140298…14042c Dummy {f00=0x00f3, f01=0x0190, f02=» U T X^ T E 8X Y T 8R X P y Wz 8 Wh Y X ;BR| X ' Xn_x 4 U P> $P4> R0> 8' T Y X ' T P X P > 8X Z X "X 8' T 8Z" X ' X # T 8R X P y Y X (@ L
0x14042c…1405c0 Dummy {f00=0x00f3, f01=0x0190, f02=» A " P> P: Y Y Y Y V X V Y X X X X ' 4 B U B (" W C (@ > T 8TX 9WF B 7P P 8P A8&W A8& @8&A.W A I.9 , X R C C F 8X A @8&A.
0x1405c0…140754 (1, 405) Opaque[0x194]
0x140754…1408e8 # DirEnt {nam=»C461 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06b0, f03=0x0000}
0x140754…1408e8 IdxSect {
0x140754…1408e8 f00 = 0x0035 // 0x140754 @0x0
0x140754…1408e8 f01 = 0x0004 // 0x140756 @0x2
0x140754…1408e8 gno = [ // 0x140758 @0x4
0x140754…1408e8 [0x00]: C0x0035.0x2.0
0x140754…1408e8 [0x01]: C0x0036.0x0.0
0x140754…1408e8 ]
0x140754…1408e8 }
0x1408e8…140a7c Dummy {f00=0x0035, f01=0x018e, f02=» PT; P01; PTID=BC; PTCL=BC; * PLEV=60; : P02; J PTDC=T03; V PLC=07L; f PTDC=T08; v PLC=07L; P00; PT; P01; PTID=TC; PTCL=TC; PLEV=60; P02; PTDC=T03; PLC=0
0x140a7c…140c10 Dummy {f00=0x0035, f01=0x018e, f02=» PTDC=T03; PLC=02L; PTDC=T07; $ PLC=02L; 4 P00; D PT; P P01; Z PTID=TH; f PTCL=TC; v PLEV=60; P02; PTDC=T03; PLC=01R; PTDC=T07; PLC=01R; P00; PT; P01; PTID=
0x140c10…140da4 Dummy {f00=0x0035, f01=0x0190, f02=» P01; PTID=TJ; PTCL=TC; $ PLEV=60; 4 P02; D PTDC=T03; P PLC=05R; ` PTDC=T07; p PLC=05R; P00; PT; P01; PTID=TK; PTCL=TC; PLEV=60; P02; PTDC=T03; PLC=07R;
0x140da4…140f38 Dummy {f00=0x0035, f01=0x0190, f02=»T03; PLC=09R; PTDC=T07; PLC=09R; , P00; < PT; H P01; R PTID=TM; ^ PTCL=TC; n PLEV=60; ~ P02; PTDC=T03; PLC=11R; PTDC=T07; PLC=11R; P00; PT; P01; PTID=TN;
0x140f38…1410cc Dummy {f00=0x0035, f01=0x00d4, f02=»; PTID=D0; PTCL=D0; PLEV=60; * P00; : P00; F PC; R P00; P02; h PSCL=S01; t PSCL=S04; PU; P001; PTB2; P012; PS; P000; P00; PT; P01; PTID=TN;
0x1410cc…141260 Dummy {f00=0x0035, f01=0x2008, f02=» PTID=D0; PTCL=D0; PLEV=60; * P00; : P00; F PC; R P00; P02; h PSCL=S01; t PSCL=S04; PU; P001; PTB2; P012; PS; P000; P00; PT; P01; PTID=TN;
0x141260…1413f4 (1, 406) Dummy {f00=0x0036, f01=0x0190, f02=»SKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0 % P SUB GSWBIN5,CBIN20 & , 4 P CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED & H PSND037 & 2 P EDSUB CSENDBUF,GSWBIN3,SNDFRM5 INSERT RECORD & P B SND010 READ NEXT & PSND040 & P MOVE GSWBIN2,GSWBIN3 &
0x1413f4…141588 Dummy {f00=0x0036, f01=0x0012, f02=» ( H P x @ P
0x141588…14171c Dummy {f00=0x0036, f01=0x0190, f02=» P IDENT ADM6BC 831013 EV P DDUM KMD08 $ P PDIV 8 P ENTRY ADM600 F P ENTRY SIGNON P ENTRY CHNGDK r P ENTRY STRTRC P ENTRY SENDRC P ENTRY TERMIN P ENTRY SIGNOF P ENTRY EXCHAN P ENTRY TRNOK
0x14171c…1418b0 Dummy {f00=0x0036, f01=0x0190, f02=»XT SLUTID P EXT RAWRIT P EXT WRITID & P EXT LAMPOF : P EXT ADMRET N P EXT SPERR b P EXT CLSVOL t P EXT LAMPON P EXT SOPRD P EXT ASGVOL P EXT ASGFIL P EXT BCKUP P EXT RAREAD P EXT GETBIT
0x1418b0…141a44 Dummy {f00=0x0036, f01=0x0190, f02=» TTASKNR,CBIN1 MASTER ? P BNE ADM06RET NO P SET SPPROMPT 8 * P* MOVE SPKEY,CBIN2 ??? KORREKT ?????? N & PADM0604 REPEAT UNTIL CORRECT KEY | P MOVE GSWBCD2,CSENDNR P ATTFMT SNDFRM6 P PERF SPCLRA * P IB SPBINW2,ADM06RET,ADM
0x141a44…141bd8 Dummy {f00=0x0036, f01=0x0190, f02=»650 MANUAL/AUTOMATIC x P B ADM0604 NOT VALID PADM0610 8 P MANUAL H P CLEAR CBCFLAG MANUAL Z P TEST GTKASSE KASSE OPEN? x " P BNZ ADM0604 YES, NOT ALLOWED " P CMP CTASKNR,CBIN0 ALL CLOSED? P BNE ADM0604 NO " P TBT CBCSE
0x141bd8…141d6c Dummy {f00=0x0036, f01=0x0190, f02=»D t " P* TEST IF SIGN ON MUST BE DONE P TBT CBCACTVF,ADM0615 0 P N P AUTO BATCH NOT ACTIVE V P SIGN ON v PADM0611 P SET SPPROMPT P ATTFMT SNDFRM P PERF SPCLRS ( P IB SPBINW2,ADM0612,ADM0612,ADM0615 P B A
0x141d6c…141f00 Dummy {f00=0x0036, f01=0x0190, f02=» TBT CCONVERT,ADM0613 P SUB CRECBCD,=D'1' P PERF SLUTID,CPCKBUF,CRECBCD 8 P ADD CRECBCD,=D'1' * P PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR v P BNOK ADM0612 6 P PERF WRITID,CPCKBUF,CBIN5,CBIN2 SLUTID ON JOURNAL P EJECT PADM061
0x141f00…142094 (1, 407) Opaque[0x194]
0x142094…142228 # DirEnt {nam=»KM461R«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0888, f03=0x0000}
0x142094…142228 IdxSect {
0x142094…142228 f00 = 0x0044 // 0x142094 @0x0
0x142094…142228 f01 = 0x0004 // 0x142096 @0x2
0x142094…142228 gno = [ // 0x142098 @0x4
0x142094…142228 [0x00]: C0x0044.0x1.0
0x142094…142228 [0x01]: C0x0044.0x2.0
0x142094…142228 ]
0x142094…142228 }
0x142228…1423bc Dummy {f00=0x0044, f01=0x0190, f02=» PPRT KM461R PPRT C461 PMES ODENSE KOMMUNE - UK01 & $ PMES INCLUDES BATCH TRANSMISSION H PASG 2,NO p PSCR PLED KMD08,/S P!!CH $$DCTASK$$DCTSK$$ P!!DL 50 FD03 P!!DL 51 FD BACKUP P!!DL 52 DK05 P!!DL 53,
0x1423bc…142550 Dummy {f00=0x0044, f01=0x0190, f02=»R x P!!RE 192,$$FALSE$$TRUE$$ P!!RE 193,$$FALSE$$TRUE$$ * $ P!!RE 195,$$FALSE$$TRUE$$ CDCFLAG J P!!RE 199,$$TRUE$$FALSE$$ r , P!!RE 233,$$FALSE$$TRUE$$ FIELD 27, TR50 2 P!!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO P!!DL 317,318 BKO
0x142550…1426e4 Dummy {f00=0x0044, f01=0x0190, f02=»B B N1 C P 69B B %1 C P 64BRNFO0 C ( P 62DAGPE2 C > P 56EJDSK0 C T P 59FORAB2 C j P 57FRSK 0 C P 30DAGIN1 C P 54GLSK 1 C P 36HUSL 0 C P 61S[RIN1 C P 21FORBR0 C P 22
0x1426e4…142878 Dummy {f00=0x0044, f01=0x0190, f02=»R0 C P 45UDBB 1 C P 47[FBDR0 C $ P 48UD[FB0 C : P 49EFUBB0 C P P 50UDBDR0 C f P 66FERSH0' | P!!DL 358 ( PCREGVOL BIN '0' ONLY ONE REG VOLUME P!!DL 614,615 ENTRY 3270 P!!DL 620,624 EXT 3270
0x142878…142a0c Dummy {f00=0x0044, f01=0x0190, f02=»R PINC RGSUBS PINC KMDIO PINC RGSUB3 . PNOD R @ PINC SCREEN N PINC SUBAPL ` PNOD R r PINC RGFRMT PNOD R PINC KTOPR PINC KTPLN PINC ADM6 PNOD R PINC RGSUB1 PINC RGSUB2 PIN
0x142a0c…142ba0 Dummy {f00=0x0044, f01=0x0070, f02=»E M PKPF /L,RGLOAD PSCR " 4 PMES $PDISC M=M:92OD,MU=M:POOL92,A=RGLOAD,C=C461 . P$ASG2 f PNOD R r PINC RGFRMT PNOD R PINC KTOPR PINC KTPLN PINC ADM6 PNOD R PINC RGSUB1 PINC RGSUB2 PIN
0x142ba0…142d34 (1, 408) Dummy {f00=0x0044, f01=0x2008, f02=»
0x142d34…142ec8 Dummy {f00=0x0044, f01=0x0190, f02=»W Q 7 Y P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ l f l f l dH Z
0x142ec8…14305c Dummy {f00=0x0044, f01=0x0190, f02=» T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $
0x14305c…1431f0 Dummy {f00=0x0044, f01=0x0190, f02=»f Q l i P _ T { [ l k [ Q@ [ l dH { R [ _ l dB l i Z ! Z $ Z %_N [ Q* l dB l f R [ Z { l dB z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H
0x1431f0…143384 Dummy {f00=0x0044, f01=0x0190, f02=»o o.o*n m n m nzn n n npo@ l 6 m K K K K V K : bL l l l a V m m n" V Z P 2 " T W "@T '?W "? HlT" K :e J J " J _Z Z m [ Z P V [ V
0x143384…143518 Dummy {f00=0x0044, f01=0x0190, f02=» P v I < : J Qf : P 4 ! TV_ K n WJ nvW +_ n n K W. _& X [ W X & [ J K : V : 1 n8 n : ! P ! P ! P ! P bL ! P a W : ! )P9H # T &W &" :I : oF :
0x143518…1436ac Dummy {f00=0x0044, f01=0x0190, f02=» p Z : R" P $ 1T Y W 5 _$ : p $ R W R # P W ) V E p WV p [ p : Z !0P. 4 R :d" 8 R ! :DW ! 9 R R Y, : f : bL bL j
0x1436ac…143840 Dummy {f00=0x0044, f01=0x0190, f02=» V @ ,W @ R T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y
0x143840…1444e0 (2, 0) DirGranule ((2, 0)) {
0x143840…1444e0 DirEnt {nam=»M:92OD«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»M:92OD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28a8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f30, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2568, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2058, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2580, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2408, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2440, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24e8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2528, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2758, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21c8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26f0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2708, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2558, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2550, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27d0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27e8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2838, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2850, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28a0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2188, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28d0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2998, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»M:92OD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x29e8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»M:92BD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»M:92BD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x143840…1444e0 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x143840…1444e0 }
0x1444e0…144674 (2, 1) Opaque[0x194]
0x144674…144808 # DirEnt {nam=»M:92OD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x144674…144808 IdxSect {
0x144674…144808 f00 = 0x0001 // 0x144674 @0x0
0x144674…144808 f01 = 0x0010 // 0x144676 @0x2
0x144674…144808 gno = [ // 0x144678 @0x4
0x144674…144808 [0x00]: C0x0001.0x0.0
0x144674…144808 [0x01]: C0x0001.0x1.0
0x144674…144808 [0x02]: C0x0001.0x2.0
0x144674…144808 [0x03]: C0x0001.0x3.0
0x144674…144808 [0x04]: C0x0002.0x2.0
0x144674…144808 [0x05]: C0x0002.0x3.0
0x144674…144808 [0x06]: C0x0003.0x0.0
0x144674…144808 [0x07]: C0x0003.0x1.0
0x144674…144808 ]
0x144674…144808 }
0x144808…14499c Dummy {f00=0x0001, 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
0x14499c…144b30 Dummy {f00=0x0001, 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
0x144b30…144cc4 Dummy {f00=0x0001, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB SCR MOV LKMAL,/S,TOSSWORK
0x144cc4…144e58 Dummy {f00=0x0001, f01=0x0190, f02=»REDIT EQU 1$$ z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPA
0x144e58…144fec Dummy {f00=0x0001, f01=0x0190, f02=»NT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 6 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ b !!EN ASM /S KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x144fec…145180 Dummy {f00=0x0001, f01=0x018e, f02=»F /S SCR LED MSUBS ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TTMJOB ( #!!CH $
0x145180…145314 (2, 2) Dummy {f00=0x0001, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED TOSSIO : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x145314…1454a8 Dummy {f00=0x0001, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED SYSLDA Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S
0x1454a8…14563c Dummy {f00=0x0001, f01=0x0190, f02=»1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 8 ASM /S D KPF /O R KPF /S ` SCR n MOV DVTKB,/S,TOSSWORK z KPF /S,DVTKB SCR MOV DVTTP,/S,TOSSWORK KPF /S,DVTTP SCR MOV DVTDY,/S,TOSS
0x14563c…1457d0 Dummy {f00=0x0001, f01=0x018e, f02=»KPF /O MOV DWIO01,/S,TOSSWORK KPF /S,DWIO01 , SCR B INC DWIO01,TOSSWORK N KPF /O j MOV DW1501,/S,TOSSWORK x KPF /S,DW1501 SCR INC DW1501,TOSSWORK KPF /O LED DWII01 ( #!!CH $$CREDIT EQU 0$
0x1457d0…145964 Dummy {f00=0x0001, f01=0x0190, f02=» KPF /O KPF /S SCR LED DWIO01 , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ > ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED
0x145964…145af8 Dummy {f00=0x0001, f01=0x0190, f02=»$ n !!EN ASM /S KPF /O $ KPF /S 2 SCR @ MOV DRKB01,/S,TOSSWORK L KPF /S,DRKB01 j SCR MOV DRTP02,/S,TOSSWORK KPF /S,DRTP02 SCR MOV DRDY01,/S,TOSSWORK KPF /S,DRDY01 SCR
0x145af8…145c8c Dummy {f00=0x0001, f01=0x0190, f02=»DRFD01,/S,TOSSWORK KPF /S,DRFD01 SCR 0 MOV DRIC01,/S,TOSSWORK < KPF /S,DRIC01 Z SCR p MOV DRDC15,/S,TOSSWORK | KPF /S,DRDC15 SCR LED DRKB01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!CH $
0x145c8c…145e20 Dummy {f00=0x0001, f01=0x0190, f02=»$ 0$$ !!CH $$ X:I$$ 0$$ !!CH $$ X:J$$ 040$$ ( !!CH $$ X:K$$ 40$$ D ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ^ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O
0x145e20…145fb4 (2, 3) Dummy {f00=0x0001, f01=0x0190, f02=»$ 0$$ !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 0$$ ( !!CH $$ X:G$$ 1$$ B !!CH $$ X:H$$ 100$$ J E!!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$M
0x145fb4…146148 Dummy {f00=0x0001, f01=0x0190, f02=»DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ ( !!CH $$ X:C$$ 0$$ B !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 1$$ v !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 6$$ !!CH $$ X:H$$ 162$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x146148…1462dc Dummy {f00=0x0001, f01=0x0190, f02=»/S SCR LED DRRT01 !!CH $$ X:A$$ 0$$ ( !!CH $$ X:B$$ 1$$ B !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 4$$ v !!CH $$ X:E$$ /15$$ !!CH $$ X:F$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$M
0x1462dc…146470 Dummy {f00=0x0001, f01=0x0190, f02=»DRSOP1 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x146470…146604 Dummy {f00=0x0001, f01=0x018e, f02=»256$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ : ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ f !!EN ASM /S KPF /O KPF /S SCR LED DRIC01 !!CH $$ X:A$$ 200$$ ( #!!CH $
0x146604…146798 Dummy {f00=0x0001, f01=0x0190, f02=» ASM /S KPF /O KPF /S SCR . LED DRDC15 : !!CH $$ X:A$$ 400$$ L !!CH $$ X:B$$ /60$$ h !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 000$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 252$$
0x146798…14692c Dummy {f00=0x0001, f01=0x0190, f02=» $$ X:M$$ 00$$ !!CH $$ X:N$$ 02$$ !!CH $$ X:O$$ 0$$ 0 !!CH $$ X:P$$ 0$$ J !!CH $$ X:Q$$ 1$$ d !!CH $$ X:R$$ 400$$ ~ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$C
0x14692c…146ac0 Dummy {f00=0x0001, f01=0x0190, f02=» SCR LED EBCDIC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ N ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ z !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 35
0x146ac0…146c54 (2, 4) Dummy {f00=0x0001, f01=0x0190, f02=»0,0,0,0,0,0,0,0 DATA 0,0,0,0, !!EN . ASM /S : KPF /O H KPF /S V SCR d MOV TIMER,/S,TOSSWORK p KPF /S,TIMER SCR MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK
0x146c54…146de8 Dummy {f00=0x0001, f01=0x0190, f02=»,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM : SCR P MOV TASS,/S,TOSSWORK KPF /S,TASSI z SCR LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH
0x146de8…146f7c Dummy {f00=0x0001, f01=0x018e, f02=»T EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ L !!EN x ASM /S KPF /O KPF /S SCR LED TMMLKM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQ
0x146f7c…147110 Dummy {f00=0x0001, f01=0x0190, f02=» LED TLDSEG ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!EN ASM /S KPF /O KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDI
0x147110…1472a4 Dummy {f00=0x0001, f01=0x018e, f02=»/O KPF /S SCR LED MONTIM $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TASS
0x1472a4…147438 Dummy {f00=0x0001, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : LED LKMAL F !!DL 019 X !!DL 022 h !!DL 027 x !!DL 028 !!DL 042 DATA 00 !!DL 045 DATA 00 !!DL 050 !!DL 051
0x147438…1475cc Dummy {f00=0x0001, f01=0x0190, f02=» KPF /O KPF /S SCR $ MOV TIODM,/S,TOSSWORK 0 KPF /S,TIODM N SCR b MOV DMTASK,/S,TOSSWORK n KPF /S,DMTASK SCR MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR MOV TASS,/S,TOSSWORK
0x1475cc…147760 Dummy {f00=0x0001, f01=0x018e, f02=»,DMBUF SCR MOV DMFDB,/S,TOSSWORK KPF /S,DMFDB 8 SCR L MOV DFTAB,/S,TOSSWORK X KPF /S,DFTAB v SCR MOV DMSUBX,/S,TOSSWORK KPF /S,DMSUBX SCR MOV ADDMOD,/S,TOSSWORK KPF /S,ADDMOD
0x147760…1478f4 (2, 5) Dummy {f00=0x0002, f01=0x0190, f02=» MOV DIVMOD,/S,TOSSWORK KPF /S,DIVMOD & SCR < MOV DMSUBR,/S,TOSSWORK H KPF /S,DMSUBR f SCR | LED TIODM !!CH $$ X:A$$ 00000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x1478f4…147a88 Dummy {f00=0x0002, f01=0x0190, f02=»!!CH $$ X:A$$ 00004$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ J ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ v !!EN ASM /S KPF /O KPF /S SCR LED DMTASK !!CH $$ X:A$$ 0000
0x147a88…147c1c Dummy {f00=0x0002, f01=0x0190, f02=»$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN D ASM /S P KPF /O ^ KPF /S l SCR z LED DMTASS !!CH $$ X:A$$ 00004$$ !!CH $$ X:B$$ 00000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$M
0x147c1c…147db0 Dummy {f00=0x0002, f01=0x018e, f02=»R LED DFTAB ! !!DL 23 ! !!EN ! , ASM /S ! 8 KPF /O ! F KPF /S ! T SCR ! b LED DMFDB ! n !!CH $$ X:A$$ 00285$$ ! !!CH $$ X:B$$ 00300$$ ! !!CH $$ X:C$$ 00000$$ ! !!CH $$ X:D$$ 00114$$ ! ( #!!CH $$CREDIT EQ
0x147db0…147f44 Dummy {f00=0x0002, f01=0x0190, f02=» ! KPF /O " KPF /S " SCR " $ LED DMINIT " 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " !!EN " ASM /S " KPF /O " KPF /S " SCR "
0x147f44…1480d8 Dummy {f00=0x0002, f01=0x018e, f02=»U 0$$ " r !!EN # ASM /S # KPF /O # ( KPF /S # 6 SCR # D LED DMSUBX # P ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ # b ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # !!EN # ASM /S # KPF /O #
0x1480d8…14826c Dummy {f00=0x0002, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $ 0 ASM /S $ < KPF /O $ J KPF /S $ X SCR $ f LED DSUMOD $ r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $
0x14826c…148400 Dummy {f00=0x0002, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ $ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % $ !!EN % P ASM /S % KPF /O % j KPF /S % x SCR % LED DIVMOD % ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ % ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU85
0x148400…148594 (2, 6) Dummy {f00=0x0002, f01=0x0190, f02=»$CREDIT EQU 1$$ % | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & D !!EN & p ASM /S & | KPF /O & KPF /S & SCR & LED CTABX & !!CH $$X$$02$$ & N J!!CH $$C2 EQU 0$$C2 DATA /2021,/2223,/2425,/26
0x148594…148728 Dummy {f00=0x0002, f01=0x0190, f02=»RAP$$ & !!CH $$ X:A$$ 00001$$ ' !!CH $$ EXTRN BUG$$*$$ ' , !!CH $$ BUG$$ 0$$ ' J !!CH $$ X:B$$ 00004$$ ' d !!CH $$ X:C$$ 00004$$ ' !!CH $$ X:D$$ 00000$$ ' !!CH $$ X:E$$ 00005$$ ' !!CH $$ X:F$$ 00001$$ ' , '!!CH $$ILLINT
0x148728…1488bc Dummy {f00=0x0002, f01=0x0190, f02=» EXTRN IH1502 ' !!DL 056 ( !!DL 057 ( * !!DL 069 ( : !!DL 070 ( J !!DL 071 ( Z !!DL 073 ( j !!DL 074 ( z !!DL 075 ( !!DL 077 ( !!DL 078 ( !!DL 079 ( !!DL 080 ( !!DL 081 ( !!DL 85 ( !!DL 122 (
0x1488bc…148a50 Dummy {f00=0x0002, f01=0x0190, f02=»36 ( DATA ILLINT ) !!DL 138 ) * DATA ILLINT ) : !!DL 140 ) Z DATA ILLINT ) j !!DL 141 ) DATA ILLINT ) !!DL 142 ) DATA ILLINT ) !!DL 149 ) DATA
0x148a50…148be4 Dummy {f00=0x0002, f01=0x0190, f02=» DATA ILLINT ) !!DL 159 * DATA ILLINT * * !!EN * J ASM /S * V KPF /O * d KPF /S * r SCR * LED PFTAB * !!IL 12 * EXTRN DC15ON * !!DL 013 * !!DL 014 * !!DL 018 * !!DL 019 *
0x148be4…148d78 Dummy {f00=0x0002, f01=0x0190, f02=»DL 029 * !!DL 030 + !!DL 031 + !!DL 032 + . !!DL 034 + > !!DL 035 + N !!DL 036 + ^ !!DL 037 + n !!DL 038 + ~ !!IL 40 + DATA DC15ON + !!DL 041 + !!DL 042 + !!DL 046 + !!DL 047 + !!DL 048 +
0x148d78…148f0c Dummy {f00=0x0002, f01=0x018e, f02=»DL 058 + !!DL 059 , !!DL 060 , !!DL 062 , . !!DL 063 , > !!DL 064 , N !!DL 065 , ^ !!DL 066 , n !!EN , ~ ASM /S , KPF /O , KPF /S , SCR , LED DVTKB , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ , ( #!!CH $$MMU
0x148f0c…1490a0 Dummy {f00=0x0002, f01=0x0190, f02=» !!CH $$BCA$$8791$$ - !!CH $$ED0$$FFBA$$ - !!CH $$8000$$8002$$ - 8 !!CH $$ECH$$DVDY00$$ - T !!EN - p ASM /S - | KPF /O - KPF /S - SCR - LED DVTTP - ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ - ( #!!CH $$MMUPAG EQU 0$$MMU
0x1490a0…149234 (2, 7) Dummy {f00=0x0003, f01=0x0190, f02=»ASM /S - KPF /O . KPF /S . SCR . * LED DVTTP . 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ . H ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ . t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ . !!CH $$DVTTP$$DVTP00$$ . !!CH $$/1111$$/2000$$ .
0x149234…1493c8 Dummy {f00=0x0003, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ . ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / $ !!CH $$DVTTP$$DVTP00$$ / P !!CH $$/1111$$/2000$$ / n !!EN / ASM /S / KPF /O / KPF /S / SCR / LED DVTDY / ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ /
0x1493c8…14955c Dummy {f00=0x0003, f01=0x0190, f02=»0824$$ / !!CH $$/1111$$/C010$$ 0 !!EN 0 , ASM /S 0 8 KPF /O 0 F KPF /S 0 T SCR 0 b LED DVTKB 0 n ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 0 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 !!CH
0x14955c…1496f0 Dummy {f00=0x0003, f01=0x0190, f02=»!!EN 0 ASM /S 1 KPF /O 1 KPF /S 1 ( SCR 1 6 LED DVTKB 1 B ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 1 T ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 1 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 1 !!CH $$DVTKB$$DVKB01$$ 1 !!CH $$/1111$$/111
0x1496f0…149884 Dummy {f00=0x0003, f01=0x0190, f02=»$$ EXTRN CTAB02$$ 1 !!CH $$ECH$$DVDY01$$ 2 !!EN 2 6 ASM /S 2 B KPF /O 2 P KPF /S 2 ^ SCR 2 l LED DVTDY 2 x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 2 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2
0x149884…149a18 Dummy {f00=0x0003, f01=0x018e, f02=»F /S 2 SCR 3 LED TCLASS 3 !!IL 6 3 * EXTRN DVKB00 3 8 EXTRN DVTP00 3 X EXTRN DVDY00 3 x EXTRN DVKB01 3 EXTRN DVDY01 3 !!IL 11 3 DATA TC00 3
0x149a18…149bac Dummy {f00=0x0003, f01=0x0190, f02=» 3 v DATA /00300 4 DATA DVTP00 4 ( DATA /02310 4 H DATA DVTP00 4 h DATA /01320 4 DATA DVTP00 4 DATA /00500 4 DATA DVDY00 4
0x149bac…149d40 Dummy {f00=0x0003, f01=0x0190, f02=»ATA /00211 4 DATA DVKB01 5 DATA /00311 5 6 DATA DVDY01 5 V TC01E EQU * 5 v !!EN 5 ASM /S 5 KPF /O 5 KPF /S 5 SCR 5 LED SCLASS 5 !!IL 6 5 EXTRN DW
0x149d40…149ed4 (2, 8) Dummy {f00=0x0003, f01=0x018e, f02=» EXTRN DW1500 6 EXTRN DWREMU 6 $ EXTRN DWFD01 6 : !!IL 11 6 Z DATA TC00 6 j DATA TC01 6 DATA TC02 6 DATA TC03 6 DATA TC04 6 !!IL 12
0x149ed4…14a068 Dummy {f00=0x0003, f01=0x0190, f02=» DATA DWSO01 7 TC00E EQU * 7 $ TC01 DATA TC01E-* 7 @ DATA /00E01 7 b DATA DWII01 7 TC01E EQU * 7 TC02 DATA TC02E-* 7 DATA /00E11 7
0x14a068…14a1fc Dummy {f00=0x0003, f01=0x0190, f02=»DW1501 7 ~ TC03E EQU * 8 TC04 DATA TC04E-* 8 * DATA /00601 8 L DATA DW1500 8 l DATA /015 8 DATA DWREMU 8 DATA /00F80 8 DATA DWFD01 8 DATA /01F90 8
0x14a1fc…14a390 Dummy {f00=0x0003, f01=0x018e, f02=» EQU * 8 !!EN 9 ASM /S 9 " KPF /O 9 0 KPF /S 9 > SCR 9 L LED MONTAB 9 X !!IL 19 9 j **** 9 z EXTRN CTAB02 9 EXTRN ITAD 9 !!DL 20 9 !!DL 023 9 !!DL 024 9 !!DL 025 9 !!DL 027 9 !!DL 029
0x14a390…14a524 Dummy {f00=0x0003, f01=0x0150, f02=» 9 !!DL 48 : !!DL 051 : !!DL 052 : ( !!DL 053 : 8 !!DL 055 : H !!DL 057 : X !!DL 058 : h !!DL 059 : x !!DL 060 : !!DL 061 : !!EN : ASM /S : KPF /O : KPF /S : SCR : ASG /02,LP0F : SCR :
0x14a524…14a6b8 Dummy {f00=0x0003, f01=0x2008, f02=» ; !!DL 48 : !!DL 051 : !!DL 052 : ( !!DL 053 : 8 !!DL 055 : H !!DL 057 : X !!DL 058 : h !!DL 059 : x !!DL 060 : !!DL 061 : !!EN : ASM /S : KPF /O : KPF /S : SCR : ASG /02,LP0F : SCR :
0x14a6b8…14a84c Dummy {f00=0x0003, f01=0x0190, f02=» < P*********************************************** 78-08-15 T " P ST A1,ECBRL,A8 SET REQ LENGTH T D P T j P T r $ P LDK A7,/8B SET CURSOR AND WRITE T z P LKM T P DATA 1 T P EJECT T P T H P****************************************************
0x14a84c…14a9e0 Dummy {f00=0x0003, f01=0x0190, f02=»************************************************* T ~ P U : $ P LD A1,ECBCW,A8 CURSOR POSITION U B P ANK A1,X'FF' COLUMN NUMBER U j P SUK A1,81 LAST POSITION ??? U 4 P RF(Z) DISL10 YES!! NO FAST OUTPUT ON THIS LINE U P U " P LD A1,ECBBA,A8 BUFFER
0x14a9e0…14ab74 (2, 9) Opaque[0x194]
0x14ab74…14ad08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0078, f03=0x0000}
0x14ab74…14ad08 IdxSect {
0x14ab74…14ad08 f00 = 0x0003 // 0x14ab74 @0x0
0x14ab74…14ad08 f01 = 0x008c // 0x14ab76 @0x2
0x14ab74…14ad08 gno = [ // 0x14ab78 @0x4
0x14ab74…14ad08 [0x00]: C0x0003.0x3.0
0x14ab74…14ad08 [0x01]: C0x0004.0x1.0
0x14ab74…14ad08 [0x02]: C0x0004.0x3.0
0x14ab74…14ad08 [0x03]: C0x0005.0x1.0
0x14ab74…14ad08 [0x04]: C0x010e.0x2.0
0x14ab74…14ad08 [0x05]: C0x010e.0x3.0
0x14ab74…14ad08 [0x06]: C0x010f.0x1.0
0x14ab74…14ad08 [0x07]: C0x0008.0x0.0
0x14ab74…14ad08 [0x08]: C0x0110.0x0.0
0x14ab74…14ad08 [0x09]: C0x0058.0x0.0
0x14ab74…14ad08 [0x0a]: C0x0114.0x0.0
0x14ab74…14ad08 [0x0b]: C0x0114.0x1.0
0x14ab74…14ad08 [0x0c]: C0x0116.0x3.0
0x14ab74…14ad08 [0x0d]: C0x0117.0x0.0
0x14ab74…14ad08 [0x0e]: C0x0117.0x1.0
0x14ab74…14ad08 [0x0f]: C0x011b.0x1.0
0x14ab74…14ad08 [0x10]: C0x011b.0x2.0
0x14ab74…14ad08 [0x11]: C0x011b.0x3.0
0x14ab74…14ad08 [0x12]: C0x0102.0x0.0
0x14ab74…14ad08 [0x13]: C0x0103.0x1.0
0x14ab74…14ad08 [0x14]: C0x0103.0x3.0
0x14ab74…14ad08 [0x15]: C0x0104.0x1.0
0x14ab74…14ad08 [0x16]: C0x012e.0x2.0
0x14ab74…14ad08 [0x17]: C0x012f.0x0.0
0x14ab74…14ad08 [0x18]: C0x0130.0x0.0
0x14ab74…14ad08 [0x19]: C0x0130.0x1.0
0x14ab74…14ad08 [0x1a]: C0x0133.0x0.0
0x14ab74…14ad08 [0x1b]: C0x0133.0x1.0
0x14ab74…14ad08 [0x1c]: C0x011c.0x1.0
0x14ab74…14ad08 [0x1d]: C0x0120.0x3.0
0x14ab74…14ad08 [0x1e]: C0x0121.0x0.0
0x14ab74…14ad08 [0x1f]: C0x0122.0x1.0
0x14ab74…14ad08 [0x20]: C0x0134.0x2.0
0x14ab74…14ad08 [0x21]: C0x0134.0x3.0
0x14ab74…14ad08 [0x22]: C0x0135.0x0.0
0x14ab74…14ad08 [0x23]: C0x0128.0x0.0
0x14ab74…14ad08 [0x24]: C0x0127.0x3.0
0x14ab74…14ad08 [0x25]: C0x0136.0x1.0
0x14ab74…14ad08 [0x26]: C0x0136.0x2.0
0x14ab74…14ad08 [0x27]: C0x0136.0x3.0
0x14ab74…14ad08 [0x28]: C0x0136.0x0.0
0x14ab74…14ad08 [0x29]: C0x0137.0x1.0
0x14ab74…14ad08 [0x2a]: C0x0138.0x2.0
0x14ab74…14ad08 [0x2b]: C0x0133.0x3.0
0x14ab74…14ad08 [0x2c]: C0x0149.0x1.0
0x14ab74…14ad08 [0x2d]: C0x0138.0x0.0
0x14ab74…14ad08 [0x2e]: C0x014d.0x0.0
0x14ab74…14ad08 [0x2f]: C0x014d.0x1.0
0x14ab74…14ad08 [0x30]: C0x013b.0x0.0
0x14ab74…14ad08 [0x31]: C0x013b.0x1.0
0x14ab74…14ad08 [0x32]: C0x012b.0x0.0
0x14ab74…14ad08 [0x33]: C0x0137.0x3.0
0x14ab74…14ad08 [0x34]: C0x013b.0x2.0
0x14ab74…14ad08 [0x35]: C0x013e.0x3.0
0x14ab74…14ad08 [0x36]: C0x013f.0x2.0
0x14ab74…14ad08 [0x37]: C0x0141.0x1.0
0x14ab74…14ad08 [0x38]: C0x0142.0x0.0
0x14ab74…14ad08 [0x39]: C0x0142.0x3.0
0x14ab74…14ad08 [0x3a]: C0x014d.0x2.0
0x14ab74…14ad08 [0x3b]: C0x014d.0x3.0
0x14ab74…14ad08 [0x3c]: C0x0145.0x2.0
0x14ab74…14ad08 [0x3d]: C0x010d.0x3.0
0x14ab74…14ad08 [0x3e]: C0x0146.0x1.0
0x14ab74…14ad08 [0x3f]: C0x0146.0x3.0
0x14ab74…14ad08 [0x40]: C0x014c.0x2.0
0x14ab74…14ad08 [0x41]: C0x014e.0x0.0
0x14ab74…14ad08 [0x42]: C0x014e.0x2.0
0x14ab74…14ad08 [0x43]: C0x014f.0x0.0
0x14ab74…14ad08 [0x44]: C0x0071.0x2.0
0x14ab74…14ad08 [0x45]: C0x0071.0x3.0
0x14ab74…14ad08 ]
0x14ab74…14ad08 }
0x14ad08…14ae9c Dummy {f00=0x0003, f01=0x4162, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVTP00 , ( 0 1 2 DVDY00 DVKB01 DVDY01 & "
0x14ae9c…14b030 Dummy {f00=0x0003, f01=0xc0b0, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x14b030…14b1c4 Dummy {f00=0x0003, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x14b1c4…14b358 Dummy {f00=0x0003, f01=0x40f0, f02=» INTRT4 SYSLOD CTAB02L $ ITADN 6 * & F KBADN t TPADN DYADN SPDLCI " $ @ PAGQUE INT
0x14b358…14b4ec Dummy {f00=0x0003, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x14b4ec…14b680 Dummy {f00=0x0003, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x14b680…14b814 (2, 10) Dummy {f00=0x0004, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 CHRT3 CHRT4 , ( !
0x14b814…14b9a8 Dummy {f00=0x0004, f01=0x0190, f02=» , ( a " , ( q R HALTN SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO
0x14b9a8…14bb3c Dummy {f00=0x0004, f01=0x018e, f02=» SCTNOS SCTNOP SCTPSZ & SCTMMC : SCTLACL N SCTMMP b SCTLAP v SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCT
0x14bb3c…14bcd0 Dummy {f00=0x0004, f01=0x4082, f02=» SCTDCT _ 6 L l@ ~ v SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCT
0x14bcd0…14be64 Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT TDISP REL 9.2 79-11-16 870105040920 8 4 TDISP MEXIT DISIOE DISEND DISQUE PRUNY RETUR8 R DISQUE PRUNY RETUR8 MEXIT EXITN DISIOE TENDIO
0x14be64…14bff8 Dummy {f00=0x0004, f01=0x4130, f02=» (X0 @ P T x * & @ = M ]@ , ) A P P Y TTB:SA` F , ( W B U ( ) 5 > X TTB:PWN TTB:MT , ( q$$ > [ [ Z Z Z ? Z > W 9P O
0x14bff8…14c18c Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT LRPINT 9.2DK 1 79-11-16 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG IHLKM INTSAV PRUNN TTB:SA , ( A$ A
0x14c18c…14c320 Dummy {f00=0x0004, f01=0x0190, f02=» SWL48 , ( 5 $P c P W P A LKMAL @ , ( Q V ( U P @ V P LKMERR x HALTN LKMRQE ~ * & mD L W @ U LKMQDI QTJOB
0x14c320…14c4b4 (2, 11) Dummy {f00=0x0004, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x14c4b4…14c648 Dummy {f00=0x0004, f01=0x40f4, f02=» OA @ 0 ) A _ 6 6 A PFINIT 0 k$ > A _ B H D ! . %T 5P ;P ?W: EP, SV cP" iV qW * Q * Q b , ( , P ; ^ KQ v @ ( @ _,
0x14c648…14c7dc Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT TPROC REL 9.2 79-11-16 870105040920 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x14c7dc…14c970 Dummy {f00=0x0004, f01=0x018a, f02=» P n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x14c970…14cb04 Dummy {f00=0x0004, f01=0x4008, f02=»@ n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x14cb04…14cc98 Dummy {f00=0x0004, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x14cc98…14ce2c Dummy {f00=0x0004, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x14ce2c…14cfc0 Dummy {f00=0x0004, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x14cfc0…14d154 (2, 12) Dummy {f00=0x0005, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x14d154…14d2e8 Dummy {f00=0x0005, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x14d2e8…14d47c Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x14d47c…14d610 Dummy {f00=0x0005, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x14d610…14d7a4 Dummy {f00=0x0005, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x14d7a4…14d938 Dummy {f00=0x0005, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x14d938…14dacc Dummy {f00=0x0005, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x14dacc…14dc60 Dummy {f00=0x0005, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x14dc60…14ddf4 (2, 13) Dummy {f00=0x010e, f01=0x018e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x14ddf4…14df88 Dummy {f00=0x010e, f01=0x0190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x14df88…14e11c Dummy {f00=0x010e, f01=0x0190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x14e11c…14e2b0 Dummy {f00=0x010e, f01=0x0190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x14e2b0…14e444 Dummy {f00=0x010e, f01=0x0190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x14e444…14e5d8 Dummy {f00=0x010e, f01=0x0190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x14e5d8…14e76c Dummy {f00=0x010e, f01=0x4154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x14e76c…14e900 Dummy {f00=0x010e, f01=0x018e, f02=» J F IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDMK R SYSLDMK d SCTSFA x SYSBAS SCTEFA TCLASSV , ( I A SCLASS SAV
0x14e900…14ea94 (2, 14) Dummy {f00=0x010e, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x14ea94…14ec28 Dummy {f00=0x010e, f01=0x0190, f02=» . !TTP @ NXTBLK $ , ( T Y " !TTX" 6 SCTTCTW f , ( B$ A 9 A $ : @ $ x SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F
0x14ec28…14edbc Dummy {f00=0x010e, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x14edbc…14ef50 Dummy {f00=0x010e, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x14ef50…14f0e4 Dummy {f00=0x010e, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x14f0e4…14f278 Dummy {f00=0x010e, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x14f278…14f40c Dummy {f00=0x010e, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x14f40c…14f5a0 Dummy {f00=0x010e, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x14f5a0…14f734 (2, 15) Dummy {f00=0x010f, f01=0x0190, f02=» W , P W N SAVE14G , ( K ( W P 0 , ( g G =h G V P V < ` , ( V N P W N _B V , ( $ W V , Yr " !TTX @ , ( @ T
0x14f734…14f8c8 Dummy {f00=0x010f, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x14f8c8…14fa5c Dummy {f00=0x010f, f01=0x018e, f02=» V t , ( N _2 U V * & 8 8 8 4 D P B , ( ! L @ # P H I p , ( = K T + Y@ _`R , ( ]H @ @ R @ % P V , ( u
0x14fa5c…14fbf0 Dummy {f00=0x010f, f01=0x0190, f02=» * & V Z @ 0 V SAVE072 6 , ( P _ W ^ $ q > R H DWTECH x * & P >b W >b & 8P D P U SYSLOD , ( ` E W b V W R 9 , ( W
0x14fbf0…14fd84 Dummy {f00=0x010f, f01=0x0190, f02=» V j , ( o ^ -W H P U ` I @ % , ( P H I H T P H : , ( U V FU W j , ( F H < + + P , ( @ V : V X $ * & F !
0x14fd84…14ff18 Dummy {f00=0x010f, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x14ff18…1500ac Dummy {f00=0x010f, f01=0x0190, f02=» _ V 4P V f ] ~ , ( ; jW f P _ @ , ( U @ T N , ( o @ : N =H N 2 : N =H N ~ , ( 2 : &=H F 2 : F =H , ( F 2 : F =H F 2 :
0x1500ac…150240 Dummy {f00=0x010f, f01=0x0190, f02=» ! n , ( P (W ( : ~ F , ( = v @ : < > , ( Y CRT @ ! P ` : @ E "W n SYSLDA * & sH ` : @ E " l H D !p P # N / N G &
0x150240…1503d4 (2, 16) Dummy {f00=0x0008, f01=0x0190, f02=» g uU P0 U PJ 5P ;W CP QT kT P T H D ! PP P T P 3T [P _ g {V T P H H D !m P r P ! )Ph 1 OP$ _P T R T P T H D ! * 7 r ? CPT Y a i P T
0x1503d4…150568 Dummy {f00=0x0008, f01=0x410e, f02=» P W P P W V W R W 3P@ AT@ x H D ! GP cP sW yP PD P( U P T !WR %T /W, 3T ?W ET QW 4 H D ! cR T P P T P$ P U P W 'P 3P =W IP [T P ( $ T P P P !W [T" cP qW @
0x150568…1506fc Dummy {f00=0x0008, f01=0x0190, f02=» J F IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMPY SYSLDA dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ` SYSBUF M:REL F B SAVE01 SAVE120 SAVE03 SAVE04 S
0x1506fc…150890 Dummy {f00=0x0008, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x150890…150a24 Dummy {f00=0x0008, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x150a24…150bb8 Dummy {f00=0x0008, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x150bb8…150d4c Dummy {f00=0x0008, f01=0x0190, f02=» U R $ )_ : , ( ? W W W W W $ , ( _ Q V V v x W T , ( V V v p R W V , ( W ^< _@ V _P V , ( V : V
0x150d4c…150ee0 Dummy {f00=0x0008, f01=0x0190, f02=»:K W r t , ( ? Q R t , ( _ V > v : D , ( V W V ) : V t , ( <B W |P v v , ( : $ V |P v w , (
0x150ee0…151074 (2, 17) Dummy {f00=0x0110, f01=0x0190, f02=» , ( ? <B V x V |P v , ( _ 1 v W V z ` _f V 4 , ( : W R R P W x d , ( @ _ V : " D P , ( W V P $;A^ D E D , ( P V
0x151074…151208 Dummy {f00=0x0110, f01=0x0190, f02=» ;B " , ( _ R P |P v $ CMPADR T , ( v : V W 0 : h , ( V P 9a _ " ( ) 8 ( ) , ( : " $ V P 9A _ 0 : W , ( W W ?A
0x151208…15139c Dummy {f00=0x0110, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x15139c…151530 Dummy {f00=0x0110, f01=0x0190, f02=» , ( ` V b pP , ( ` $ $ W H 4 , ( @ - L ) P _ " = d , ( E M D 4 Q _d * L , ( P m > = G V W , ( $ V E
0x151530…1516c4 Dummy {f00=0x0110, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x1516c4…151858 Dummy {f00=0x0110, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x151858…1519ec Dummy {f00=0x0110, f01=0x0190, f02=» @ W A & TDISP & , ( k : A ( > 6 , ( @ l : R W n f , ( V pT : N V l W H V ]" , ( " . nT W v W , ( D n V ~P
0x1519ec…151b80 Dummy {f00=0x0110, f01=0x0190, f02=» v G G v U , ( i v G v : P V & , ( : V ~P W x V , ( _$ 8 V V x % V v % : V , ( V > 9k! , ( P % _ V V W W
0x151b80…151d14 (2, 18) Dummy {f00=0x0058, f01=0x018e, f02=» f v ) G v , ( g v ` " W p W ~ pP , ( @ R P _ W ~ R F , ( $ X4 _ ` @ ` W v , ( P W ~ pP V W , ( % R , , (
0x151d14…151ea8 Dummy {f00=0x0058, f01=0x0190, f02=» f , ( c P * I W z ` p , ( P H - V I 8 , ( " R E R T h , ( E D E @ v H v , ( E > #_v W | , ( ;b W
0x151ea8…15203c Dummy {f00=0x0058, f01=0x0190, f02=» , ( A 0 :C # : .=H N , ( D a : .=H N : 4 GETNUM d , ( N : d 8" x SYSLDA , ( BR _ ZY QY : $ @ , ( V H W z W | CR
0x15203c…1521d0 Dummy {f00=0x0058, f01=0x0190, f02=» !TTP N x , ( 3 :H N TBT W W 2 " T , ( S @ N =H N H , ( s : @ ) T !TTXX !CCT x , ( @ X !UUT d W , ( 2 .:H N P V , (
0x1521d0…152364 Dummy {f00=0x0058, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x152364…1524f8 Dummy {f00=0x0058, f01=0x0190, f02=» W V V >k 8 W , ( G W t V V : ( g x X H D ! W> 2 0 . 1 2 C S Y j V !W %U 1R g iQ@ R( l H D !e P z V U z V z M OQ QR ] _V V W V H D !
0x1524f8…15268c Dummy {f00=0x0058, f01=0x4152, f02=» , P H D ! P P P P| ?V CW GU6 QT WW aP iP( mP qV uW yU H D ! Q P P V P4 P 7 B W x [ R T T" P %V X H D ! 0 3P _U {P V P P P0 P Pn /P 3 B = B AW GT eP Pl H D ! T R P R 'P
0x15268c…152820 Dummy {f00=0x0058, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1
0x152820…1529b4 (2, 19) Dummy {f00=0x0114, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x1529b4…152b48 Dummy {f00=0x0114, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x152b48…152cdc Dummy {f00=0x0114, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x152cdc…152e70 Dummy {f00=0x0114, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x152e70…153004 Dummy {f00=0x0114, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x153004…153198 Dummy {f00=0x0114, f01=0x4104, f02=» J F IDENT DW1501 REL 9.2 79-11-16 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ . " . @ PDW
0x153198…15332c Dummy {f00=0x0114, f01=0x0190, f02=» J F IDENT DRKB01 9.2DK 1 79-11-16 870105040920 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ , z DWTUTQ . KBADY DWTST * & @ ( ( ? X V Y TDISP LDR
0x15332c…1534c0 Dummy {f00=0x0114, f01=0x0190, f02=» C t DWTTP , ( q " 8!@P X P y W $ SETIMPL T , ( ` Y B P T B f , ( % X . $ 4 T % W STREG , ( X ,T ! P W Y . V
0x1534c0…153654 (2, 20) Dummy {f00=0x0114, f01=0x0190, f02=»T W $ Y + v , ( C P Y )P Y (P T ! B , ( a Z W W ! * T ! F ECHEND v , ( D X P y Y C ! DISEND , ( 0 Z ! B , ( Z
0x153654…1537e8 Dummy {f00=0x0114, f01=0x0190, f02=» T ! )_ W ! T "? 9 0 R Q > DWTBC * , ( 3 4 >_ <k$ Y T #? 0R : , ( Q R * W ?W X P $ <c ,P j , ( q $ , X R ;GV X P y LDREG , ( X , $4 P X .T ,
0x1537e8…15397c Dummy {f00=0x0114, f01=0x4186, f02=» ~ H D ! h ( : V 'W@ 7U =P AP CR K Y cP o z uP$ {P W H D ! P T T W T P W V P R WV T H D ! T %P )W /P 5T 9W CPX IP OP ST W eW i kW o uT P H D ! T W P P
0x15397c…153b10 Dummy {f00=0x0114, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x153b10…153ca4 Dummy {f00=0x0114, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x153ca4…153e38 Dummy {f00=0x0114, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x153e38…153fcc Dummy {f00=0x0114, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x153fcc…154160 Dummy {f00=0x0114, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x154160…1542f4 (2, 21) Dummy {f00=0x0116, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x1542f4…154488 Dummy {f00=0x0116, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( , ( !@ ! 8! P ! P P DISIOE , ( =
0x154488…15461c Dummy {f00=0x0116, f01=0x0190, f02=» &_. 8$ T B 1 ! , ( B B U $ ! T _ 0 , ( U D ! T _ $$ X" X& ` GETCHR , ( X* C X`" E , ( P 8'0P E T ! T 9 , ( 5
0x15461c…1547b0 Dummy {f00=0x0116, f01=0x018e, f02=» X X & r , ( " X )# C V C ! , ( Y B ! Y _` C B , ( " _ " $ P X ' r , ( @ X ] ! , ( B 8! T ! ! ! , ( #
0x1547b0…154944 Dummy {f00=0x0116, f01=0x0190, f02=» , ( @ ! W Y &_ Y & B , ( Y )U X ) T T W V X ' 4 , ( Y )U P R ! _ R d , ( _ ! Y ' " ! , ( 8!0T 8 !@P ! $ P , ( D ! !
0x154944…154ad8 Dummy {f00=0x0116, f01=0x0190, f02=» X " X &" v DWTST LDREG & , ( e Y )Q Y > X Z2<BR J 6 , ( ? Y 8" P ! f , ( @ ! T 8" P d ! Y , ( !" ! *0 ! X ! * & Y &
0x154ad8…154c6c Dummy {f00=0x0116, f01=0x0190, f02=» XW H z , ( % X $ X ! _ X $ X , ( ? 8! P ! _( X & ! ! H , ( _! Y _D X " X &" Y )U x , ( { W ! ! ! , ( @ Y 4 B U , (
0x154c6c…154e00 Dummy {f00=0x0116, f01=0x0190, f02=» h , ( ! ! ! 4 , ( ' ! V ! V 8 , ( C W :h ! 4 X )" X '# R h a 4 H > H D ! ` h p " )P 5P 9P ? N E OP _P cP. iT {R H D !0
0x154e00…154f94 (2, 22) Dummy {f00=0x0117, f01=0x411c, f02=»T N H D ! _ " aW kU wR yP W U T T W V U P" R R T H D ! P P ! H +T 7T iQ yR P T> P T P f R V P V H D !. P" W 3 f CP G f S " ] yU }W U R@ V " R 1V ?V CW _R
0x154f94…155128 Dummy {f00=0x0117, f01=0x0190, f02=» J F IDENT DRRT01 9.2DK 1 79-11-16 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN * & RECHAN REMFC ECHRTN` ECHOY E
0x155128…1552bc Dummy {f00=0x0117, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU INTRT3V , (
0x1552bc…155450 Dummy {f00=0x0117, f01=0x0190, f02=» j , ( pU J1BqB CHTAB " : , ( rU L DWREMU < | , ( / 4 V x DISIOE , ( O B " P Q :A H *P P TDI
0x155450…1555e4 Dummy {f00=0x0117, f01=0x0190, f02=»T3 CHLT4 CHRT1 , ( 1 U A ? W A 0 CHRT2 ` CHRT3 r CHRT4 , ( ? W A ? W A ? W A , ( ? " U R ; V . , ( # T
0x1555e4…155778 Dummy {f00=0x0117, f01=0x0190, f02=»P P P R 4T ] DWTST & , ( _ U X "0T + Y 6 , ( { W 8Z 4 U R ] U f * & # $P > R > 8' T Y DWTADRN RECADR DWTSB2 , ( $ X
0x155778…15590c Dummy {f00=0x0117, f01=0x0190, f02=»TP , ( 8V X P y SETIMP : , ( ) W P 8R L , ( E R Y X Z ;BR 8 | DWTOCHf DWTOR , ( _ % =A Y T Z& _, X "' , ( { X
0x15590c…155aa0 Dummy {f00=0x0117, f01=0x0190, f02=» Z "X 8# T 8Z * & V X # T 8R X P y . DWTECB INTADR n , ( $ Y X "' $ X (@ , ( )@ L & ' T 4X <d$ _D $?:D" , ( G Y X P Y # P
0x155aa0…155c34 (2, 23) Dummy {f00=0x0117, f01=0x0190, f02=» R T p DWTOTQ , ( T R X ( # X > P " , ( P P X XF _H R , ( W ? T T W , ( u > > E D E , ( = E S % ;DV " U D
0x155c34…155dc8 Dummy {f00=0x0117, f01=0x0190, f02=» Y Y x DWTA4 DWTA5 ( LDREG 8 , ( * Y , Y ._8 X XB Y J LDREGF z LDREGE , ( H X . X * X , X "' GETCHRC , ( $ 4 B U B ("
0x155dc8…155f5c Dummy {f00=0x0117, f01=0x0190, f02=» ] 8 W T W T ] _ , ( E P T V W 8V T P U * , ( e 8 ~ U Q P X H Z , ( & 5 U R " ] Y > , ( > V P X P (P CHLTON , (
0x155f5c…1560f0 Dummy {f00=0x0117, f01=0x0190, f02=» ECHENDT 8 , ( W _ U 4XR XX 5 _b ECHOY < B , ( 9 H Y * Y , Y . X 9BV T DWTECH DWTWAT ECHADRG * & Q$ X 0 Y 2 X D ECHRTN` h TENDIOS
0x1560f0…156284 Dummy {f00=0x0117, f01=0x0190, f02=» PJ P RL P +P /P =PD AP< GP0 KP, OR H D !H WT e oTp }WH R P4 R0 T T P P Wh T > H D !$ W V P )W 7 L =P CR GR [R iT q R P T& H D ! V2 T R P 1T UP _P iT }P P T
0x156284…156418 Dummy {f00=0x0117, f01=0x409c, f02=»T T /W< 3Tr 5W 9T IP OV QWT n H D ! UV [P sQ2 uP R V P P W T R4 S P T W OV$ * kV v x @ P )W 7 L =P CR GR [R iT q R P T& H D ! V2 T R P 1T UP _P iT }P P T
0x156418…1565ac Dummy {f00=0x0117, f01=0x018e, f02=» J F IDENT DRSOP1 REL 9.2 79-11-16 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x1565ac…156740 Dummy {f00=0x0117, f01=0x0190, f02=» ECBCW ECBEL TENDIO $ , ( W"H X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x156740…1568d4 (2, 24) Dummy {f00=0x011b, f01=0x403e, f02=» ;W GW W ]R V p (@ : X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x1568d4…156a68 Dummy {f00=0x011b, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x156a68…156bfc Dummy {f00=0x011b, f01=0x0190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x156bfc…156d90 Dummy {f00=0x011b, f01=0x0190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x156d90…156f24 Dummy {f00=0x011b, f01=0x0190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x156f24…1570b8 Dummy {f00=0x011b, f01=0x0190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY DWTA2 , (
0x1570b8…15724c Dummy {f00=0x011b, f01=0x0190, f02=» 0B. X n , ( P y _^ _n , ( Y X P Y : ! > , ( ; ! X # P Y :A , X n , ( [B A Y @ B. X Y DWTECB , ( @ u Y Y X Y X '?
0x15724c…1573e0 Dummy {f00=0x011b, f01=0x0190, f02=» , ( @ K & E % Y B K , ( $ X ;AR ;a X P Y 4 , ( P 7P < d * & % $ <C ! 9 4 X , ( A _ W B R X X P , ( ] W
0x1573e0…157574 (2, 25) Dummy {f00=0x011b, f01=0x018e, f02=»_ 4 X # P _ 4 TASCII " , ( @(@ R D " 1_ W (@ 4 TEBCDI0 d , ( R 0 D $ ] _ ! 4 v , ( ! ;E :B 9A ! , ( 3 U P jW kQ 4 Y , (
0x157574…157708 Dummy {f00=0x011b, f01=0x0190, f02=» f , ( @ 4 ! ( 4 X " 4 , ( @ ! ) 4 X P 4 8 DWFD01 f h , ( g | , ( , (
0x157708…15789c Dummy {f00=0x011b, f01=0x0190, f02=»P ]Pv R H D !z& aPz g d m s y Z H H W Wx F , P | W< H D ! p F F J , P , P | !T ) * +W / * Z H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P
0x15789c…157a30 Dummy {f00=0x011b, f01=0x0190, f02=»PT s w { R 4 | * H D ! T . * V J j W0 W # ) b F H D ! T - 5Q 9 F ? E | I OT SWL YWP ] e R i o j s {W. P H D ! W P L N S W W f $
0x157a30…157bc4 Dummy {f00=0x011b, f01=0x410c, f02=» f R@ & P & P P IW QRZ U , [P v H D ! aW kP sQ8 wU T, R( P Q W Q T P 0 P R 2 H D !> W R ) 3U 7 4 9P ?W EQ S * W qP R ~ ( $ k r Z P y @
0x157bc4…157d58 Dummy {f00=0x011b, f01=0x0190, f02=» J F IDENT DRIC01 9.2DK 0 80-01-02 870105040920 ITADY ITABRT IT:BUF R ITADY r IT:BUF ECBCW , ( / P P P .T B Y FNDTID`
0x157d58…157eec Dummy {f00=0x011b, f01=0x0190, f02=»R ( P H z , ( " R H P ' P P W T DWTSB1A H TENDIO Z ECBBA l * & ' P ! B | TDISP , ( $ # P G W G SETIMP , (
0x157eec…158080 Dummy {f00=0x011b, f01=0x0190, f02=» U ^ 9 1_N X , ( ! T @ P ( A _ ( Y , ( D A _ _x X T @ P ( A P , ( a _ ( Y _ _ i 9 @ ITABRT , ( _ H P P $ DWTECB * &
0x158080…158214 (2, 26) Dummy {f00=0x011b, f01=0x4148, f02=» ECBEL , ( A F Z P U " C $ G $ 4 H H D ! . 3P 9 J =P AP ET OWx [P aP qR RN P P P W< f H D !Pa T6 P P W P P R: p Q P #T )P 3 0 , 8 OT U
0x158214…1583a8 Dummy {f00=0x011b, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 2 80-01-03 870105040920 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P 1P P W DISIOEC
0x1583a8…15853c Dummy {f00=0x011b, f01=0x0190, f02=» L j ECBBA ECBRL , ( @ 9 B Y B Y P * , ( @ @ ` @ P 0 Z DWTST TENDIO , ( P _ % A A Y DWTECB * & _| B Q
0x15853c…1586d0 Dummy {f00=0x011b, f01=0x0190, f02=» _R X n DISEND , ( ? @ ! X _ B Y _l SETIME P , ( [@ X P A Y b , ( w W Y @_ X X A , ( Y _& Y @ 0 A A , ( _: X P (
0x1586d0…158864 Dummy {f00=0x011b, f01=0x0190, f02=» _$ (P _ ) 1 4 DWTOR " , ( 5! X R X T X P 2 , ( O , Y L C L C b , ( T k@ > @ @ @ A X , ( _" X P y Y X , ( P T @
0x158864…1589f8 Dummy {f00=0x011b, f01=0x0190, f02=» , ( @ BHBB < ! 2B ! , ( 1 T P P 4 , ( Q ! T T A P A T ! d , ( q T ! T T ! T ! A I , ( @ A P " ! _ ! , ( T
0x1589f8…158b8c Dummy {f00=0x011b, f01=0x0190, f02=» P @ P @ 8 ! ! , ( ! 1 A _: ! X6_Z A @ @ $ , ( Q T 1 R 0 2P P P A T TEBCDI , ( q @ 8 H @ P E P * & D X R X P X T , ( P C
0x158b8c…158d20 Dummy {f00=0x011b, f01=0x0190, f02=» T ! 2 ! , ( P @ X ! X ! W A @ X $ , ( )H - A A A @ A ! T , ( $" M @ T @ P ! ! @ T * & @ m @ X W A I , ( @ @ @ @ A
0x158d20…158eb4 (2, 27) Dummy {f00=0x0102, f01=0x0190, f02=» B r , ( P* A @ T _2 _6 @ A A , ( ' @ X ! XD Y _N @ T X B , ( C ! P ! # T @ T ! r , ( @ a _ ! ! _ A A H E A , ( A 4 @ P ! ! ! @ , (
0x158eb4…159048 Dummy {f00=0x0102, f01=0x0190, f02=» A A t , ( T A A A ! ! A _^ @ , ( " ! X ! X Zp X D , ( / D Xp Xt_~ @ P X R X t , ( K P T T Y W P , ( P iH C A A 4 @ , ( $
0x159048…1591dc Dummy {f00=0x0102, f01=0x0190, f02=» , ( @ @ E ! P ! 4 , ( @ _$ ! 2_l / A T W ,W 4 , ( ( % A A W W W A A d , ( E ! @ ! @ ! ! ! , ( e B J 4 ! ! @ @ A , ( @ T @
0x1591dc…159370 Dummy {f00=0x0102, f01=0x0190, f02=» P " ! " :A *@ H , ( T 0 ! W R ! A @ @ $ , ( # U Zx Q P Q T 0 ! T , ( ! C A 0 ! A ! " ! , ( c " ! X A _" A A ! , ( ! % ! R ! ! @
0x159370…159504 Dummy {f00=0x0102, f01=0x0190, f02=» , ( ! 4 A " ? J T A IH1502 8 , ( T 2P ! H 4 ! A L , ( " ? _ I " P A < ( | , ( P 7 A 2 4 A _$" P H B , ( U P W ! _ ! ! 1
0x159504…159698 Dummy {f00=0x0102, f01=0x0190, f02=» _ @ A 2 @ T , ( )@ < @ A 2 A , ( @ a 2 4 X A P , ( I > Z A 4 A < , ( R + ! @ @ P ! 8 ! @ P a , ( @ K A 4 A A A ?a :a# P
0x159698…15982c Dummy {f00=0x0102, f01=0x0190, f02=» z " ` @ , ( M :f"? H ! d "? H ! d 4 ABC R , ( m DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST , ( UVWXYZ@,%_>?0123456789:[ '=" , (
0x15982c…1599c0 Dummy {f00=0x0102, f01=0x0190, f02=» iP mP T H D ! u 2 P Wj P P8 P P H D !j QZ P + ^ 5P G eP i p o x wWb H D ! P W P P P 'P 5 ;R2 CT* MP& P P H D !_ T T
0x1599c0…159b54 (2, 28) Dummy {f00=0x0103, f01=0x0190, f02=» T8 P v v T : @ P P 8 H D ! x @ P ~ T< 0 P P + l 1 8 ; I QT aP eP H H D !P iP P P^ RX P TJ P T W W( W" R T H D ! > WB I M @ ST YP ] D e @ kT
0x159b54…159ce8 Dummy {f00=0x0103, f01=0x0190, f02=» P v T 4 T * l x H D ! =P6 CR0 KP OT$ ST [W gP T f T2 P4 PJ PL P 4 H D ! P. W P P @ T W !W /W 3W 7W G O d H D ! W d ] R c R o u F T( d d P d L W PL
0x159ce8…159e7c Dummy {f00=0x0103, f01=0x40e6, f02=» P T d F T d H D !0 T PX P " )P MP UP WW [ P } P H D !9 P T 3P EP S W [ iP u y } U h l a h @ T( d d P d L W PL
0x159e7c…15a010 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x15a010…15a1a4 Dummy {f00=0x0103, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x15a1a4…15a338 Dummy {f00=0x0103, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x15a338…15a4cc Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x15a4cc…15a660 Dummy {f00=0x0103, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x15a660…15a7f4 (2, 29) Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TMMLKM REL 9.2 79-11-16 870105040920 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x15a7f4…15a988 Dummy {f00=0x0103, f01=0x4060, f02=»$ T %_< z O %_B P )U /U GT . R J@ MMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x15a988…15ab1c Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x15ab1c…15acb0 Dummy {f00=0x0103, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x15acb0…15ae44 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT TABORT REL 9.2 79-11-16 870105040920 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x15ae44…15afd8 Dummy {f00=0x0103, 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
0x15afd8…15b16c Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ , ( $ P B $ 9H C ">h # TTB:SA L
0x15b16c…15b300 Dummy {f00=0x0103, f01=0x40b4, f02=» P ?_" = > = > = =_D , ( R _ 00 > & <h$ P * > Z ( $ !P AP gP u yP R P r @ , ( $ P B $ 9H C ">h # TTB:SA L
0x15b300…15b494 (2, 30) Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x15b494…15b628 Dummy {f00=0x0104, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x15b628…15b7bc Dummy {f00=0x0104, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x15b7bc…15b950 Dummy {f00=0x0104, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x15b950…15bae4 Dummy {f00=0x0104, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x15bae4…15bc78 Dummy {f00=0x0104, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x15bc78…15be0c Dummy {f00=0x0104, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x15be0c…15bfa0 Dummy {f00=0x0104, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x15bfa0…15c134 (2, 31) Dummy {f00=0x012e, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x15c134…15c2c8 Dummy {f00=0x012e, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x15c2c8…15c45c Dummy {f00=0x012e, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x15c45c…15c5f0 Dummy {f00=0x012e, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x15c5f0…15c784 Dummy {f00=0x012e, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x15c784…15c918 Dummy {f00=0x012e, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x15c918…15caac Dummy {f00=0x012e, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x15caac…15cc40 Dummy {f00=0x012e, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x15cc40…15cdd4 (2, 32) Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x15cdd4…15cf68 Dummy {f00=0x012f, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x15cf68…15d0fc Dummy {f00=0x012f, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x15d0fc…15d290 Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x15d290…15d424 Dummy {f00=0x012f, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x15d424…15d5b8 Dummy {f00=0x012f, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x15d5b8…15d74c Dummy {f00=0x012f, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x15d74c…15d8e0 Dummy {f00=0x012f, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x15d8e0…15da74 (2, 33) Dummy {f00=0x0130, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x15da74…15dc08 Dummy {f00=0x0130, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ , ( (@ C > ( B ! @ , ( !$ ( F
0x15dc08…15dd9c Dummy {f00=0x0130, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROU
0x15dd9c…15df30 Dummy {f00=0x0130, f01=0x0190, f02=» l CRNGETR CRNCIF , ( '? P P $ P 0 CRNCDF ` * & HH I ^ I ^ K ` K ` r , ( ` P P & P BW D EASETB: , ( % " T$ T V T bW E
0x15df30…15e0c4 Dummy {f00=0x0130, f01=0x0190, f02=» B B B B B B v H D ! ! B # % ' 3P 5R ;W IR WP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x15e0c4…15e258 Dummy {f00=0x0130, f01=0x4058, f02=»P P( P" P P P b !W )T 1T 7W GV MT d B@ TP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x15e258…15e3ec Dummy {f00=0x0130, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x15e3ec…15e580 Dummy {f00=0x0130, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x15e580…15e714 (2, 34) Dummy {f00=0x0130, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x15e714…15e8a8 Dummy {f00=0x0130, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x15e8a8…15ea3c Dummy {f00=0x0130, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x15ea3c…15ebd0 Dummy {f00=0x0130, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x15ebd0…15ed64 Dummy {f00=0x0130, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x15ed64…15eef8 Dummy {f00=0x0130, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x15eef8…15f08c Dummy {f00=0x0130, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x15f08c…15f220 Dummy {f00=0x0130, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x15f220…15f3b4 (2, 35) Dummy {f00=0x0133, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x15f3b4…15f548 Dummy {f00=0x0133, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND : CRNQUE : ;
0x15f548…15f6dc Dummy {f00=0x0133, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x15f6dc…15f870 Dummy {f00=0x0133, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x15f870…15fa04 Dummy {f00=0x0133, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x15fa04…15fb98 Dummy {f00=0x0133, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x15fb98…15fd2c Dummy {f00=0x0133, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x15fd2c…15fec0 Dummy {f00=0x0133, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x15fec0…160054 (2, 36) Dummy {f00=0x0133, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x160054…1601e8 Dummy {f00=0x0133, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x1601e8…16037c Dummy {f00=0x0133, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x16037c…160510 Dummy {f00=0x0133, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x160510…1606a4 Dummy {f00=0x0133, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x1606a4…160838 Dummy {f00=0x0133, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x160838…1609cc Dummy {f00=0x0133, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x1609cc…160b60 Dummy {f00=0x0133, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x160b60…160cf4 (2, 37) Dummy {f00=0x011c, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x160cf4…160e88 Dummy {f00=0x011c, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x160e88…16101c Dummy {f00=0x011c, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x16101c…1611b0 Dummy {f00=0x011c, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x1611b0…161344 Dummy {f00=0x011c, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x161344…1614d8 Dummy {f00=0x011c, f01=0x40be, f02=» J F IDENT CTAB02 REL 9.2 79-11-16 870105040920 CTAB02K R CTAB02K d , ( !"#$%& () +,-./ x @ DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x1614d8…16166c Dummy {f00=0x011c, f01=0x4116, f02=» J F IDENT PFTAB REL 9.2 79-11-16 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTON FDONN DMINITA " U@
0x16166c…161800 Dummy {f00=0x011c, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x * & @ KB DVDY00 , ( %@ , ( C
0x161800…161994 (2, 38) Dummy {f00=0x0120, f01=0x4014, f02=» @ VKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x * & @ KB DVDY00 , ( %@ , ( C
0x161994…161b28 Dummy {f00=0x0120, f01=0x4108, f02=» J F IDENT DVTP00 REL 9.2 79-11-16 870105040920 DVTP00K R DVTP00K d TPADN x , ( TP " @ 4 ( 4 @
0x161b28…161cbc Dummy {f00=0x0120, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % $ @ 8 , 8 @
0x161cbc…161e50 Dummy {f00=0x0120, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBADN x CTAB02 , ( KB DVDY01 , ( %@
0x161e50…161fe4 Dummy {f00=0x0120, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBADN x CTAB02 , ( KB DVDY01 , ( %@
0x161fe4…162178 Dummy {f00=0x0120, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x162178…16230c Dummy {f00=0x0120, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 79-11-16 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x16230c…1624a0 Dummy {f00=0x0120, f01=0x404e, f02=» | " ( # ) B 8@ J SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x1624a0…162634 (2, 39) Dummy {f00=0x0121, f01=0x018e, f02=» J F IDENT SYSLOD REL 9.2 79-12-19 870105040920 & " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 SYSBAS SYSLODK SCTADA SCTPLD SCTANO * &
0x162634…1627c8 Dummy {f00=0x0121, f01=0x0190, f02=» TABBE , ( 5@ @ ! P >B @ A @ , ( O E D P _ $ % D SCTMSZ t , ( m H $P _ % A @ , ( " Q A : , ( R W A A
0x1627c8…16295c Dummy {f00=0x0121, f01=0x0190, f02=» SAVE04N , ( W F W F CRT F SCTPSZ J , ( $ A @ @ ! P @ ERROR , ( + P ;b=H F CR , ( I F W =J F CRT F SCTNOS(
0x16295c…162af0 Dummy {f00=0x0121, f01=0x0190, f02=» SAVE22A , ( $ P A Y W " @ " SAVE08 @ , ( T W $ @ R SAVE07 SAVE01` , ( V W Q & ( MMEND , ( *
0x162af0…162c84 Dummy {f00=0x0121, f01=0x0190, f02=»P , ( C :L A , W $ A . SCTNPE : , ( ] A 0W * L , ( y T F W V | , ( = V W Y* SCTMMC , ( P Z( =
0x162c84…162e18 Dummy {f00=0x0121, f01=0x0190, f02=» SCTLAC * & ( @ @ 4 A 4 , ( # 6 $ @ 6 CR > MMDDIV n * & =! T @ P @ ! P W 8 @ SAVE06 , ( U 6 V :P _ @ ! P * & o @ !RRP V :
0x162e18…162fac Dummy {f00=0x0121, f01=0x0190, f02=» @ ! T _ ~ , ( P , , ( @ :l 8 89b ) N SAVE03 ~ , ( D V 8_ @ V W < W * & - $ P T V , ( I < 0 !;;P
0x162fac…163140 Dummy {f00=0x0121, f01=0x0190, f02=» W W $ , ( W < V < 0 . , ( !;;P P V (Xb _ P ^ SAVE20 , ( !;;T X$ W < > , ( @P $XZ_V S A A , ( /!
0x163140…1632d4 (2, 40) Dummy {f00=0x0122, f01=0x0190, f02=» M:REL LDALEN , ( } B V ( $ ) H , ( D A I. : C. P , ( X C.9h! # " , ( :A K : , ( A T I T P 1 I P <
0x1632d4…163468 Dummy {f00=0x0122, f01=0x0190, f02=» 9A ! p , ( u 9B r @ r A I ! ( , ( : A A A A A ! T @ , ( A A I ! : 9E p , ( @ r s A I T ) , ( A _ I N T : , (
0x163468…1635fc Dummy {f00=0x0122, f01=0x0190, f02=» P F r , ( qA @ T X W @ : YX , ( d C !CCT B. X B , ( B.9 H Q _ 2_ !SST r SCTSWB , ( 0 U R X A H X SAVE25 , ( @ W J
0x1635fc…163790 Dummy {f00=0x0122, f01=0x0190, f02=» h , ( G@D V LT V LT W L , ( a P V & W & @ 8 , ( { $ P p W > T : A h , ( _ 0V , - P X 9A " _ : @ ! P (W ( : H D ! ;P$ [P oP Q R
0x163790…163924 Dummy {f00=0x0122, f01=0x0190, f02=»P T #W /P 9T gW {T W V V W P P W V H D !0N W Q ' 7 =T CP MP _P mP q wP P PZ B H D ! T P V 1 5 9P = A ETJ WP ]P cP$ uT T H D ! 9 W N P P T P '
0x163924…163ab8 Dummy {f00=0x0122, f01=0x40f0, f02=» . T T T r H D ! / . 9PJ CT@ IT: QTt YP _P$ uT TZ Q T& R W V W$ V . H D !! P #P ) 1W =P EV KT Q YT eP }P W T V P z P W @ P P T P '
0x163ab8…163c4c Dummy {f00=0x0122, f01=0x2008, f02=» L = KMD04 DATE = 80 08 05 1216PACK NBR = 0001 (
0x163c4c…163de0 Dummy {f00=0x0122, f01=0x0190, f02=»BUFFER WAS IN SYSTEM AREA? . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS " & P ST A1,ECBBA,A8 RESTORE IT IN ECB T P* ~ PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* *
0x163de0…163f74 (2, 41) Dummy {f00=0x0134, f01=0x0000, f02=»
[…0xf…]
0x165720…1658b4 (2, 43) Dummy {f00=0x0135, f01=0x0000, f02=»
[…0x7…]
0x1663c0…166554 (2, 44) Dummy {f00=0x0128, f01=0x0190, f02=» A3,A2 % * PGBUF10 ADKL A15,4 ADJUST STACK POINTER & P ABR* A15 RETURN TO CALLER & < P EJECT & ^ P* & l P* & v ( P* INSERT DWT IN WRITE REQUEST QUEUE & P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEU
0x166554…1666e8 Dummy {f00=0x0128, f01=0x018e, f02=»Q2 & PINSWQ3 ADR A4,A6 ' P STR A4,A2 INSERT IN QUEUE ' " " P CMR A4 INDICATE END OF QUEUE ' D P RB GBUF10 RETURN ' j P* ' P* ' * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PRE
0x1666e8…16687c Dummy {f00=0x0128, f01=0x0190, f02=» PREM10 LDR* A3,A2 ( & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( F P RF(E) REM15 ( X P LDR A2,A3 GET NEXT ( l P RB REM10 ( PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P
0x16687c…166a10 Dummy {f00=0x0128, f01=0x0190, f02=»STQ GET QUEUE ANCHOR ( P LDK A4,DWTSQ ) P RB INSWQ2 ) 2 P* ) D P* ) N " P* REMOVE DWT FROM STATUS QUEUE ) X P* ) ~ P* A2,A3,A4 DESTROYED ) P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB RE
0x166a10…166ba4 Dummy {f00=0x0128, f01=0x0190, f02=»,A3 DESTROYED ) P* * PQRBUF EQU * * P IFT MESPAS=1 * 4 ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * J P XIF * v P IFT MESPAS=0 * $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU *
0x166ba4…166d38 Dummy {f00=0x0128, f01=0x0190, f02=»E * p " P CMR A4 INDICATE END OF QUEUE + P RTN A5 + 0 P EJECT + @ P* + N P* + X 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + b P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1
0x166d38…166ecc Dummy {f00=0x0128, f01=0x018e, f02=»A8,DWTECB,A6 ECB ADDR TO A8 + * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , $ " P RF(Z) CKM200 NO READ IN QUEUE , R P , x P , , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT
0x166ecc…167060 Dummy {f00=0x0128, f01=0x0190, f02=» , . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS - P - : P LDK A1,0 RESET RETURN CODE - B & P LDR A4,A3 RECEIVE BUFFER ADDRESS - f , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCK
0x167060…1671f4 (2, 45) Dummy {f00=0x0127, f01=0x0190, f02=»BUFFER p P RB DCRTN P $ PDCRD10 CF A15,TIMERE START TIMER ( P RB DCRTN P P EJECT b P* p P* z P* SET STATUS P* P* P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,
0x1671f4…167388 Dummy {f00=0x0127, f01=0x0002, f02=»$
0x167388…16751c Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x16751c…1676b0 Dummy {f00=0x0127, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x1676b0…167844 Dummy {f00=0x0127, f01=0x2008, f02=»
0x167844…1679d8 Dummy {f00=0x0127, f01=0x0190, f02=»ITE TIMER " P* # PTOUTWR EQU * # P LDR A6,A1 FETCH DWT # 0 P CM DWTTP,A6 # L * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # ` P* # & P* THIS INSTRUCTION DOES NOT BELONG # P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 #
0x1679d8…167b6c Dummy {f00=0x0127, f01=0x0190, f02=»B TOUTR1 # P EJECT $ P* $ P* $ ( P* STOP REQUEST TIMING $ 2 P* $ P & P* REMAINING TIME IS RETURNED IN A2 $ Z P* $ P* $ PCTIME EQU * $ & P LD A2,DWTTP,A6 GET TIMER POINTER $ P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $
0x167b6c…167d00 Dummy {f00=0x0127, f01=0x0190, f02=»CT $ P* % P* GET RECEIVE BUFFER % P* % 0 $ P* CALLING SEQUENCE: CF A15,GRBUF % : P* A4=0 IF NO BUFFER IS FREE % b & P* ELSE A4 CONTAINS BUFFER ADDRESS % P* A2 AND A3 ARE DESTROYED % P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFE
0x167d00…167e94 (2, 46) Dummy {f00=0x0136, f01=0x0000, f02=»
[…0x18…]
0x16a474…16a608 Dummy {f00=0x0136, f01=0x0002, f02=»&
0x16a608…16a79c Dummy {f00=0x0136, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x16a79c…16a930 Dummy {f00=0x0136, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x16a930…16aac4 Dummy {f00=0x0136, f01=0x2008, f02=»
[…0x1…]
0x16ac58…16adec Dummy {f00=0x0136, f01=0x0000, f02=»
[…0x1…]
0x16af80…16b114 (2, 50) Dummy {f00=0x0137, f01=0x0000, f02=»
[…0x7…]
0x16bc20…16bdb4 (2, 51) Dummy {f00=0x0138, f01=0x0000, f02=»
[…0x7…]
0x16c8c0…16ca54 (2, 52) Dummy {f00=0x0133, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x16ca54…16cbe8 Dummy {f00=0x0133, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x16cbe8…16cd7c Dummy {f00=0x0133, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x16cd7c…16cf10 Dummy {f00=0x0133, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x16cf10…16d0a4 Dummy {f00=0x0133, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x16d0a4…16d238 Dummy {f00=0x0133, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x16d238…16d3cc Dummy {f00=0x0133, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x16d3cc…16d560 Dummy {f00=0x0133, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x16d560…16d6f4 (2, 53) Dummy {f00=0x0149, f01=0x0000, f02=»
[…0x7…]
0x16e200…16e394 (2, 54) Dummy {f00=0x0138, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x16e394…16e528 Dummy {f00=0x0138, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x16e528…16e6bc Dummy {f00=0x0138, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x16e6bc…16e850 Dummy {f00=0x0138, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x16e850…16e9e4 Dummy {f00=0x0138, f01=0x2008, f02=» *
0x16e9e4…16eb78 Dummy {f00=0x0138, f01=0x0190, f02=» P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 > P LD A1,4,A4 R P* f P IFT CPU852=1 p P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P*
0x16eb78…16ed0c Dummy {f00=0x0138, f01=0x0190, f02=» A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS X P* t P* EXIT PARAMETERS:- ~ P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* PFNDDWT
0x16ed0c…16eea0 Dummy {f00=0x0138, f01=0x0190, f02=»GTH v P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD FILE CODE FROM ECB , P XIF V P* b P IFT MMUPAG=0 l ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P EJECT MSUBS P* P* PFND100 SUK A1,4 ( P R
0x16eea0…16f034 (2, 55) Dummy {f00=0x014d, f01=0x0000, f02=»
[…0xf…]
0x1707e0…170974 (2, 57) Dummy {f00=0x013b, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x170974…170b08 Dummy {f00=0x013b, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x170b08…170c9c Dummy {f00=0x013b, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x170c9c…170e30 Dummy {f00=0x013b, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x170e30…170fc4 Dummy {f00=0x013b, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x170fc4…171158 Dummy {f00=0x013b, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x171158…1712ec Dummy {f00=0x013b, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x1712ec…171480 Dummy {f00=0x013b, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x171480…171614 (2, 58) Dummy {f00=0x013b, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x171614…1717a8 Dummy {f00=0x013b, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x1717a8…17193c Dummy {f00=0x013b, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x17193c…171ad0 Dummy {f00=0x013b, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x171ad0…171c64 Dummy {f00=0x013b, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x171c64…171df8 Dummy {f00=0x013b, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x171df8…171f8c Dummy {f00=0x013b, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x171f8c…172120 Dummy {f00=0x013b, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x172120…1722b4 (2, 59) Dummy {f00=0x012b, f01=0x0190, f02=»1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN $ P SUR A8,A8 NO BUFFER =3 B P ABL DMTASX b PDMT010 EQU * v P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P CF
0x1722b4…172448 Dummy {f00=0x012b, f01=0x0190, f02=»L A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 : 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) L P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA & P S
0x172448…1725dc Dummy {f00=0x012b, f01=0x0190, f02=»2 ~ P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER * P CF A14,DMTIOC I/O CHECK P LD A2,VLVER,A3 VERSION | & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERROR RE
0x1725dc…172770 Dummy {f00=0x012b, f01=0x018e, f02=»OC BASE ~ . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH B P ST A9,TASVRL l P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6,TAS
0x172770…172904 Dummy {f00=0x012b, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED , P ST A1,TASCVO UPDATE TASCVO V $ P LDK A7,7 TOO MANY FILE SECTIONS z P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x172904…172a98 Dummy {f00=0x012b, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* & P ADKL A7,'#D' 0 P LKM F P DATA -4 R P DATA DMTASS b P LKM v P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A8
0x172a98…172c2c Dummy {f00=0x012b, f01=0x0190, f02=»A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS 6 P ADKL A3,BUFSTA Z P ST A3,ECBBA,A8 r P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x172c2c…172dc0 Dummy {f00=0x012b, f01=0x0190, f02=» RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR ( PDMT135 EQU * N P ADK A3,2 SKIP CYLID b PDMT120 EQU * ~ ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4 P
0x172dc0…172f54 (2, 60) Dummy {f00=0x0137, f01=0x018e, f02=»ERE UNLOCKED BEFORE % f P* & P LDR A5,A7 & & P LDR A6,A8 SAVE & 8 P LDK A1,3 LOOP & P PDMTASY EQU * & f P LC A2,TASLFD,A1 FILE CODES & z P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK A7,
0x172f54…1730e8 Dummy {f00=0x0137, f01=0x0190, f02=» P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 0 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' : P* ' f PDMT400 EQU * ' p P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORRECT RE
0x1730e8…17327c Dummy {f00=0x0137, f01=0x018e, f02=» ' p " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( . ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( @ P SUK A2,2 ( l PDMT405 EQU * ( ~ P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4,MXI
0x17327c…173410 Dummy {f00=0x0137, f01=0x0190, f02=» PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) . P LDKL A2,/FFFE ) P " P ANRS A2,A3 CLEAR FDB USE BIT ) f P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440 NO B
0x173410…1735a4 Dummy {f00=0x0137, f01=0x0190, f02=»ELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ P CF A15,QTJOB QUEUE CALLING TASK * J P ENB * r P LKM * ~ P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 * P
0x1735a4…173738 Dummy {f00=0x0137, f01=0x0190, f02=»CT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + : < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + v P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR TO
0x173738…1738cc Dummy {f00=0x0137, f01=0x0190, f02=»C A3,TASECB+1 + " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , < P LD A3,ECBBA,A8 , ` P SUKL A3,BUFSTA , x " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD A6,FDB
0x1738cc…173a60 Dummy {f00=0x0137, f01=0x0190, f02=»A1 GET MOST SIGN BIT , P ADK A2,5 - P SRL A2,1 NO OF WORDS NEEDED - . P RF(Z) DMT570 WRONG SIZE - R P INH - r P LD A4,MXIND LENGTH MXIND - ~ P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY - P
0x173a60…173bf4 (2, 61) Dummy {f00=0x013b, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x173bf4…173d88 Dummy {f00=0x013b, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x173d88…173f1c Dummy {f00=0x013b, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x173f1c…1740b0 Dummy {f00=0x013b, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x1740b0…174244 Dummy {f00=0x013b, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x174244…1743d8 Dummy {f00=0x013b, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x1743d8…17456c Dummy {f00=0x013b, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x17456c…174700 Dummy {f00=0x013b, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x174700…174894 (2, 62) Dummy {f00=0x013e, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x174894…174a28 Dummy {f00=0x013e, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x174a28…174bbc Dummy {f00=0x013e, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x174bbc…174d50 Dummy {f00=0x013e, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x174d50…174ee4 Dummy {f00=0x013e, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x174ee4…175078 Dummy {f00=0x013e, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x175078…17520c Dummy {f00=0x013e, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x17520c…1753a0 Dummy {f00=0x013e, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x1753a0…175534 (2, 63) Dummy {f00=0x013f, f01=0x0190, f02=»ST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 " P LDK A3,8 MAX NO OF INDE*2 6 L PDMT620 EQU * 6 n P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(NZ) DMT620
0x175534…1756c8 Dummy {f00=0x013f, f01=0x0190, f02=» 6 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 ( P SUK A5,2 7 < " P RF(N) DMT635 ALL FDB UPPDATED 7 N P LDR A1,A10 FDB DATA 7 t P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF 7 P A
0x1756c8…17585c Dummy {f00=0x013f, f01=0x0190, f02=»DMT635 EQU * 7 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 , P ENB ENB 8 ` P LD A1,TASMXA 8 r ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A7,1 A7=11=
0x17585c…1759f0 Dummy {f00=0x013f, f01=0x018e, f02=»ILE 8 v & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 6 P ANKL A1,/6000 9 X P SLL A1,1 9 n $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P LDR A1,A12
0x1759f0…175b84 Dummy {f00=0x013f, f01=0x0190, f02=» P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : 2 P SUK A2,1 : L P ST A2,FDBSNR,A12 : ^ P LDR A1,A12 : x " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR A3,A1 :
0x175b84…175d18 Dummy {f00=0x013f, f01=0x414a, f02=»,FDBMRN+1,A12 : P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; P* ; X P LD A6,FDBRLE,A12 REC LENGTH ; b P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ; P ST A2
0x175d18…175eac Dummy {f00=0x013f, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x175eac…176040 Dummy {f00=0x013f, 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
0x176040…1761d4 (2, 64) Dummy {f00=0x0141, f01=0x0000, f02=»
0x1761d4…176368 Dummy {f00=0x0141, f01=0x0002, f02=»((
0x176368…1764fc Dummy {f00=0x0141, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x1764fc…176690 Dummy {f00=0x0141, f01=0x40e8, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P END @ P* P* P* LEVE
0x176690…176824 Dummy {f00=0x0141, 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*
0x176824…1769b8 Dummy {f00=0x0141, f01=0x2008, f02=» DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L P DATA 0 OUTPUT QUEUE LINK j P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P*
0x1769b8…176b4c Dummy {f00=0x0141, f01=0x0190, f02=»D A3,4,A8 REQUESTED LENGTH # P CWK A3,130 $ " " P ABL(NE) END:10 ILLEGAL LENGTH $ 6 P LD A4,2,A8 BUFFER ADDRESS $ P RB FD:045 $ ~ P XIF $ P* $ P EJECT DRFD01 $ P* $ P*************** $ P* * $ P* TEST STATUS *
0x176b4c…176ce0 Dummy {f00=0x0141, f01=0x018e, f02=» P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % ( " P ANKL A3,/200 WRITE PROTECTED? % R P ORS A3,DWTRCW,A6 % x P IFF TOSS+IBM=0 % P RF LOA:05 READ VOLUME NAME % P* % PFD:075 EQU * % P XIF % $ P LD A1,DWTRCW,A6
0x176ce0…176e74 (2, 65) Dummy {f00=0x0142, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x176e74…177008 Dummy {f00=0x0142, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x177008…17719c Dummy {f00=0x0142, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x17719c…177330 Dummy {f00=0x0142, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x177330…1774c4 Dummy {f00=0x0142, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x1774c4…177658 Dummy {f00=0x0142, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x177658…1777ec Dummy {f00=0x0142, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x1777ec…177980 Dummy {f00=0x0142, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x177980…177b14 (2, 66) Dummy {f00=0x0142, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x177b14…177ca8 Dummy {f00=0x0142, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x177ca8…177e3c Dummy {f00=0x0142, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x177e3c…177fd0 Dummy {f00=0x0142, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x177fd0…178164 Dummy {f00=0x0142, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x178164…1782f8 Dummy {f00=0x0142, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x1782f8…17848c Dummy {f00=0x0142, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x17848c…178620 Dummy {f00=0x0142, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x178620…1787b4 (2, 67) Dummy {f00=0x014d, f01=0x0000, f02=»
[…0xf…]
0x179f60…17a0f4 (2, 69) Dummy {f00=0x0145, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x17a0f4…17a288 Dummy {f00=0x0145, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x17a288…17a41c Dummy {f00=0x0145, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x17a41c…17a5b0 Dummy {f00=0x0145, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x17a5b0…17a744 Dummy {f00=0x0145, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x17a744…17a8d8 Dummy {f00=0x0145, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x17a8d8…17aa6c Dummy {f00=0x0145, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x17aa6c…17ac00 Dummy {f00=0x0145, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x17ac00…17ad94 (2, 70) Dummy {f00=0x010d, f01=0x018e, f02=»0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ PSCTANO DATA 0 APPLICATION NUMBER ( 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS P PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS $ PSCTNOS DATA 0 NUMBER O
0x17ad94…17af28 Dummy {f00=0x010d, f01=0x0190, f02=» P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY R P INDEX REL TTAB | * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM S
0x17af28…17b0bc Dummy {f00=0x010d, f01=0x018e, f02=»SCTCDT DATA 0 CDTAB ADDRESS PSCTBUG DATA BUG DEBUGGER $ & PSCTDMT DATA X:B DMTASKS IN SYSTEM D P BIT 13:D2,14:D1,15:D0 n 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE ( PSCTDML DATA X:D DM NO OF LOCAL FILES * PSCTDMC DATA X:E DM NO OF C
0x17b0bc…17b250 Dummy {f00=0x010d, f01=0x40fe, f02=» P* P* SYSTEM STACK P* $ P RES 145 . P DATA /FCC0 AND PSW > & PSTB DATA LOOP AND PC FOR IDLE LOOP Z P P P* P* IDLE LOOP P* P PLOOP RB * P P P P END @ DM NO OF C
0x17b250…17b3e4 Dummy {f00=0x010d, 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
0x17b3e4…17b578 Dummy {f00=0x010d, f01=0x0000, f02=»
[…0x2…]
0x17b8a0…17ba34 (2, 71) Dummy {f00=0x0146, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x17ba34…17bbc8 Dummy {f00=0x0146, f01=0x0004, f02=»( (
0x17bbc8…17bd5c Dummy {f00=0x0146, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 79-11-16 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x17bd5c…17bef0 Dummy {f00=0x0146, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x17bef0…17c084 Dummy {f00=0x0146, f01=0x0190, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 CHRT3 CHRT4 , ( !
0x17c084…17c218 Dummy {f00=0x0146, f01=0x0190, f02=» , ( a " , ( q R HALTN SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO
0x17c218…17c3ac Dummy {f00=0x0146, f01=0x018e, f02=» SCTNOS SCTNOP SCTPSZ & SCTMMC : SCTLACL N SCTMMP b SCTLAP v SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCT
0x17c3ac…17c540 Dummy {f00=0x0146, f01=0x4082, f02=» SCTDCT _ 6 L l@ ~ v SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBUG~ SCT
0x17c540…17c6d4 (2, 72) Dummy {f00=0x0146, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x17c6d4…17c868 Dummy {f00=0x0146, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x17c868…17c9fc Dummy {f00=0x0146, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x17c9fc…17cb90 Dummy {f00=0x0146, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x17cb90…17cd24 Dummy {f00=0x0146, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x17cd24…17ceb8 Dummy {f00=0x0146, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x17ceb8…17d04c Dummy {f00=0x0146, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x17d04c…17d1e0 Dummy {f00=0x0146, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x17d1e0…17d374 (2, 73) Dummy {f00=0x014c, f01=0x0000, f02=»
0x17d374…17d508 Dummy {f00=0x014c, f01=0x0004, f02=») )
0x17d508…17d69c Dummy {f00=0x014c, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x17d69c…17d830 Dummy {f00=0x014c, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x17d830…17d9c4 Dummy {f00=0x014c, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x17d9c4…17db58 Dummy {f00=0x014c, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x17db58…17dcec Dummy {f00=0x014c, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x17dcec…17de80 Dummy {f00=0x014c, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x17de80…17e014 (2, 74) Dummy {f00=0x014e, f01=0x0000, f02=»
[…0xf…]
0x17f7c0…17f954 (2, 76) Dummy {f00=0x014f, f01=0x0000, f02=»
[…0x7…]
0x180460…1805f4 (2, 77) Dummy {f00=0x0071, f01=0x0190, f02=» PRGSUB2 M 791030 $$$TRAS PACKCL / PACKST CYTRP EMPTYTT D K RGSUB3 N 791030 $$$TRAS ASGVOL CLSVOLC N CYLINEO CYOUT CYRDC CYTRP K CYWRT ASSGR CLEAR8T CRVO1 FRMXVO- GRASPV1 RAREAD. RAWRIT1 SPLIN8 T:DELA T:D
0x1805f4…180788 Dummy {f00=0x0071, f01=0x0006, f02=» 0 8 @
0x180788…18091c Dummy {f00=0x0071, f01=0x000c, f02=»800805 KTPLND { 800805 $$$TRAP KTPLAN SETMK KTOPR | 800805 $$$TRAO KTOPR KTPRT ADMRETO FRMXTAA KTPLAN0 RAREADF RAWRIT RESTMKX SPCLRA SPCLRN SPERR T:ATTF T:DELA T:EDWR T:WAIT WTALLY FKTOPRD
0x18091c…180ab0 Dummy {f00=0x0071, f01=0x0190, f02=» PRT 800805 PRINT I:EVA0 EMULA DC1INQ ICREAD ` REQTIM GTRBUF DCGETM UPDATE RFMDUP SNBUSYK VDUPRT 800805 DCINP LINHON LSAVON ATMASB LINHOFC SNBUSY DCGETM | REQTIM` GTRBUF !
0x180ab0…180c44 Dummy {f00=0x0071, f01=0x0190, f02=»R ' WCHAR' RFMDUP ' ( `START 800805 DCTASK P I:EVA0 GTRBUF DCGETM RLRBUFV EMULA VDUKB ERASE ICREAD DCINP DC1INQN : DC2INQ R KEYCNV REQTIM SETCUR WCHAR DISPL TASCII TRPAN TRPFN I:RT1
0x180c44…180dd8 Dummy {f00=0x0071, f01=0x0190, f02=» 800805 $$$TRAM FUNCT INITRGT TRINP TRPAGE 7 hADM BELLIhCYK DIVTR ENTER FMSTYR FRMTSP0 KORTX KVIT LSTINT MODPT PACKCLR SETDEBI SETKREP SPCA7 SPCLRA SPCLRN SPCN SPERR SPINF1K SUBTOTEhSUM T:ERAS T:TBWD0 e 6RGMND $ 800805
0x180dd8…180f6c Dummy {f00=0x0071, f01=0x0190, f02=» hADM ASGFILC ASGVOL CLBEH CLEDB CLEJ CLSVOL LAMPOFF LAMPON RAREADS RAWRITA RGA1200 RGADM RGREAD1 RSTORE2 SETMK SKIFT SOPRD SPCLRAA SPCLRNC SPLIN8E STRTWR T:ATTF T:DSC0F T:DSC1 T:GETIS T:PAUSA T:RSTR0 T:USE UPDAKK1 WRITID2 ZEROK DKSUBS 9
0x180f6c…181100 Dummy {f00=0x0071, f01=0x0190, f02=»AMPON MASKU PACKCLD PACKSTT SETDEBR SETKRER SPERR T:ASSII T:DELAB T:DSC0R T:DSC1R T:READS T:RREA, T:RWRII T:WRITA T:XSTA WRITJTP P SCREEN C 800805 $$$TRAS BELLF SCREENA ? SPCA0 / SPCLRA SPCLRN. SPCLRS SPCNR 7 SPERR * SPINF1C N
0x181100…181294 (2, 78) Dummy {f00=0x0071, f01=0x0190, f02=» T:DYKI T:EDFLA T:EDWR0 T:ERASR T:GETAC T:GETCS T:GETF T:NKI T:PRINK T:SETCK T:TBWDH T:TDOWS T:TFWDC T:THOMP T:TLDO T:TLEF T:TRIGA T:TSTC0 T:TUP T:UPDFT T:XSTAT a f TRGFRMT V 4 4800805 $$$TRAF FMSTYR FRMTSPF FRMXSP T:ATTFF
0x181294…181428 Dummy {f00=0x0071, f01=0x0190, f02=»AT FRMXVO # FMOVE M DIV461 7 7800805 $$$TRA FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTAX FRMTVO FRMXGP F FRMXJTF FRMXKTM 8 FRMXTAT FRMXVO # FMOVE M DIV167 0 0800805 $$$TRA FRMTGPV ? FRMTJTF FRMTKTM 1
0x181428…1815bc Dummy {f00=0x0071, f01=0x0190, f02=» FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTAX FRMTVO FRMXGP F FRMXJTF FRMXKTM 8 FRMXTAT FRMXVO # FMOVE M DIV525 Q 0 0800805 $$$TRA FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTAX FRMTVO FRMXGP F FRMXJTF FRMXKTM 8 FRMXT
0x1815bc…181750 Dummy {f00=0x0071, f01=0x0190, f02=»P F FRMXJTF FRMXKTM 8 FRMXTAT FRMXVO # FMOVE M DIV805 0 0800805 $$$TRA FRMTGPV ? FRMTJTF FRMTKTM 1 FRMTKV1 * FRMTTAX FRMTVO FRMXGP F FRMXJTF FRMXKTM 8 FRMXTAT FRMXVO # FMOVE M SUBAPL 800805 $$$TRAS
0x181750…1818e4 Dummy {f00=0x0071, f01=0x0190, f02=»JK KKCHS KTPLAN PACKCL T:GETCK @ ,KMDIO 800805 $$$TRA CLEAR8D CRKJA CRVO0 EDATNR 1 GRASPV. LINOPT WCHECK n WRITFDV WRITID WRITJTL p WRITVOH WTALLYF ABORThADM CYWRT FRMTJT0 FRMXJTN FRMXTAA FRMXVOL RADEL RAWRIT S
0x1818e4…181a78 Dummy {f00=0x0071, f01=0x0190, f02=»UP CLBEH H CLEDB A CLEJL LAMPOFA LAMPONS RGA120I [ RGADM SKIFT SLUTIDT SOPRD STRTID STRTWRA TCLOSEB f TR2GENB WAHEADB WALINE ZEROA ABORT ADM600A ASGFILR ASGVOLS BACKUPS CLEAR8 CLSVOL CNFWRT CONFWRA CONRDXS CRKJT CRVOBhCYK D
0x181a78…181c0c Dummy {f00=0x0071, f01=0x0190, f02=»RITM RGREADM SETDEBA SETKREA SLUTV SPCLRAP SPCLRNR SPINF1 SPLIN8K SQWRIT SUBTOTLhSUM T:ATTFK T:DELAB T:DSC0R T:DSC1R T:EDWRR T:KIM T:WAITA TCONFRA TCONFWS TRPAGES WRITFDS WRITIDS WRITJTS WTALLYL RGSUBS J 800805 $$$TRAC CYCLR hCYK Y
0x181c0c…181da0 Dummy {f00=0x0071, f01=0x0190, f02=»TYTE FLDTSTF FRMTKT FRMTKV FRMXKT} FRMXSP FRMXTAS FRMXVOF GRASPVK LINOPTO SETDEBM SETKREC SLUTY SPCHK5C SPCLRAP SPERR SPINF1F SPLIN8F T:DSC0 T:DSC1} T:EDWR T:ERASS T:TESTF T:WAITK WCHECKO WRITJTM WRITVOC WTALLYS RGSUB1 X 800805 $$$
0x181da0…181f34 (2, 79) Opaque[0x194]
0x181f34…1820c8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c8, f03=0x0000}
0x181f34…1820c8 IdxSect {
0x181f34…1820c8 f00 = 0x014e // 0x181f34 @0x0
0x181f34…1820c8 f01 = 0x0002 // 0x181f36 @0x2
0x181f34…1820c8 gno = [ // 0x181f38 @0x4
0x181f34…1820c8 [0x00]: C0x014e.0x1.0
0x181f34…1820c8 ]
0x181f34…1820c8 }
0x1820c8…18225c Dummy {f00=0x014e, f01=0x0190, f02=» 2 P IDENT TCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVTP00 P EXTRN DVDY00 P EXTRN DVKB01 P
0x18225c…1823f0 Dummy {f00=0x014e, f01=0x0190, f02=» TC01 PTCLASE EQU * PTC00 DATA TC00E-* $ P DATA /0020 F P DATA DVKB00 f P DATA /0030 P DATA DVTP00 P DATA /0231 P DATA DVTP00 P
0x1823f0…182584 Dummy {f00=0x014e, f01=0x4120, f02=»QU * PTC01 DATA TC01E-* P DATA /0021 4 P DATA DVKB01 T P DATA /0021 t P DATA DVKB01 P DATA /0031 P DATA DVDY01 PTC01E EQU *
0x182584…182718 Dummy {f00=0x014e, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x182718…1828ac Dummy {f00=0x014e, f01=0x0000, f02=»
[…0x1…]
0x182a40…182bd4 (2, 80) Opaque[0x194]
0x182bd4…182d68 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x182bd4…182d68 IdxSect {
0x182bd4…182d68 f00 = 0x0003 // 0x182bd4 @0x0
0x182bd4…182d68 f01 = 0x0002 // 0x182bd6 @0x2
0x182bd4…182d68 gno = [ // 0x182bd8 @0x4
0x182bd4…182d68 [0x00]: C0x0003.0x2.0
0x182bd4…182d68 ]
0x182bd4…182d68 }
0x182d68…182efc Dummy {f00=0x0003, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x182efc…183090 Dummy {f00=0x0003, f01=0x018e, f02=» P* PSCLASS DATA TCLASE-* P DATA TC00 * P DATA TC01 H P DATA TC02 f P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA
0x183090…183224 Dummy {f00=0x0003, f01=0x0190, f02=» PTC01 DATA TC01E-* P DATA /00E0 & P DATA DWII01 F PTC01E EQU * f PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU * PTC03
0x183224…1833b8 Dummy {f00=0x0003, f01=0x417a, f02=»TC04E-* ~ P DATA /0060 P DATA DW1500 0 P DATA /015 P P DATA DWREMU b P DATA /00F8 v P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA
0x1833b8…18354c Dummy {f00=0x0003, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x18354c…1836e0 Dummy {f00=0x0003, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x1836e0…183874 (2, 81) Opaque[0x194]
0x183874…183a08 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x183874…183a08 IdxSect {
0x183874…183a08 f00 = 0x0004 // 0x183874 @0x0
0x183874…183a08 f01 = 0x0002 // 0x183876 @0x2
0x183874…183a08 gno = [ // 0x183878 @0x4
0x183874…183a08 [0x00]: C0x0004.0x2.0
0x183874…183a08 ]
0x183874…183a08 }
0x183a08…183b9c Dummy {f00=0x0004, f01=0x0190, f02=» 2 P IDENT MONTAB REL 9.2 79-11-16 870105040920 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x183b9c…183d30 Dummy {f00=0x0004, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4 P* & P EXTRN SYSLOD 0 P**** F P EXTRN CTAB02 R P EXTRN ITAD h P EXTRN KBAD | P EXTRN TPAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA
0x183d30…183ec4 Dummy {f00=0x0004, f01=0x4102, f02=» PINTRT3 DATA 0 PINTRT4 DATA 0 P DATA SYSLOD 4 P**** H P DATA CTAB02 T P DATA ITAD j P DATA KBAD ~ P DATA TPAD P DATA DYAD P* 0 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF P END @ DATA
0x183ec4…184058 Dummy {f00=0x0004, 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
0x184058…1841ec Dummy {f00=0x0004, f01=0x018e, f02=»IO A2,1,DAF2 CIO-START FIXED DISC ; , P CIO A2,1,DAC2 CIO-START CARTRIDGE DISC < * P* < Z P EJECT DRDU01 < d P* < | P* < P WER A2,WER1 < P WER A3,WER1+1 < & P DATA 0,0,0 VOLUME NAME FIXED DISC < * P DATA 0,0,0 VOLUME NAME CARTRIDGE DI
0x1841ec…184380 Dummy {f00=0x0004, f01=0x018e, f02=» < P IFT NUNITS+TYPE2=3 = P DATA MAXCY6 MAX CYLINDER NO = $ P XIF = H P* = T P IFT NUNITS=2 = ^ P IFT MMUPAG=1 = t * P DATA 0 PAGE NUMBER (PSEUDO MMU TABLE) = * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS = PECBDU2 EQU * = P DATA 0,0,0,0,
0x184380…184514 (2, 82) Opaque[0x194]
0x184514…1846a8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28a8, f03=0x0000}
0x184514…1846a8 IdxSect {
0x184514…1846a8 f00 = 0x0145 // 0x184514 @0x0
0x184514…1846a8 f01 = 0x0006 // 0x184516 @0x2
0x184514…1846a8 gno = [ // 0x184518 @0x4
0x184514…1846a8 [0x00]: C0x0145.0x1.0
0x184514…1846a8 [0x01]: C0x0145.0x3.0
0x184514…1846a8 [0x02]: C0x0146.0x0.0
0x184514…1846a8 ]
0x184514…1846a8 }
0x1846a8…18483c Dummy {f00=0x0145, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 79-11-16 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x18483c…1849d0 Dummy {f00=0x0145, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x1849d0…184b64 Dummy {f00=0x0145, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x184b64…184cf8 Dummy {f00=0x0145, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x184cf8…184e8c Dummy {f00=0x0145, f01=0x0190, f02=»EL UNIT NO. 1 x P EXTRN IHFD FLOPPY DISCEN $ P EXTRN ILLINT ILLEGAL INTERRUPT 8 P EXTRN HALT HALT ROUTINE ` P* DEBUGGER PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE
0x184e8c…185020 Dummy {f00=0x0145, f01=0x0190, f02=»* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* : PSEG:ST EQU 0 STATUS D $ PSEG:DS EQU 2 DISC SECTOR ADDRESS ` " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD (
0x185020…1851b4 (2, 83) Dummy {f00=0x0145, f01=0x0190, f02=»NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY 2 $ PSWB:EL EQU 4 SWB LENGTH (BYTES) h & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P EJECT SYSTAB P
0x1851b4…185348 Dummy {f00=0x0145, f01=0x0190, f02=»A ILLINT 3 P DATA ILLINT 4 P DATA ILLINT 5 4 P DATA ILLINT 6 P P DATA ILLINT l P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA IH
0x185348…1854dc Dummy {f00=0x0145, f01=0x0190, f02=»CHRT2 17 P DATA CHRT3 18 P DATA CHRT4 19 2 P DATA ILLINT N P DATA ILLINT n P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT P
0x1854dc…185670 Dummy {f00=0x0145, f01=0x0190, f02=» ~ P DATA ILLINT 31 P DATA ILLINT 32 $ P DATA ILLINT 33 @ P DATA ILLINT P DATA ILLINT | P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39
0x185670…185804 Dummy {f00=0x0145, f01=0x0190, f02=»A ILLINT P DATA ILLINT 45 P DATA ILLINT 46 0 P DATA ILLINT 47 L P DATA ILLINT 48 h P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53
0x185804…185998 Dummy {f00=0x0145, f01=0x0190, f02=» 58 P DATA ILLINT 59 P DATA ILLINT 60 ( P DATA ILLINT 61 D P DATA ILLINT 62 ` P DATA TRAP TRAP ROUTINE | P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P
0x185998…185b2c Dummy {f00=0x0145, f01=0x0190, f02=» P* DEBUG RESTART ENTRY P* & P XRR A13,A13 0 P XRR A14,A14 D P LD A1,SCTBUG X P ABR(NZ) A1 n P HLT P P EJECT SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P *
0x185b2c…185cc0 Dummy {f00=0x0145, f01=0x0190, f02=» DATA 0 PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP $ $ PSCTANO DATA 0 APPLICATION NUMBER P 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS x PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTSWB DATA 0 SWBT
0x185cc0…185e54 (2, 84) Dummy {f00=0x0146, f01=0x0190, f02=»ATA 0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB * 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART D & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY x P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE E
0x185e54…185fe8 Dummy {f00=0x0146, f01=0x0190, f02=» PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS ( PSCTBUG DATA 0 DEBUGGER L ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM j P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA 00000 DM NO OF L
0x185fe8…18617c Dummy {f00=0x0146, f01=0x412c, f02=»IN SYSTEM v P EJECT SYSTAB P * P* 2 P* SYSTEM STACK < P* R P RES 145 P DATA /FCC0 AND PSW l & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP RB * P
0x18617c…186310 Dummy {f00=0x0146, 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
0x186310…1864a4 Dummy {f00=0x0146, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x1864a4…186638 Dummy {f00=0x0146, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x186638…1867cc Dummy {f00=0x0146, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x1867cc…186960 Dummy {f00=0x0146, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x186960…186af4 (2, 85) Opaque[0x194]
0x186af4…186c88 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00b0, f03=0x0000}
0x186af4…186c88 IdxSect {
0x186af4…186c88 f00 = 0x0005 // 0x186af4 @0x0
0x186af4…186c88 f01 = 0x0008 // 0x186af6 @0x2
0x186af4…186c88 gno = [ // 0x186af8 @0x4
0x186af4…186c88 [0x00]: C0x0005.0x2.0
0x186af4…186c88 [0x01]: C0x0005.0x3.0
0x186af4…186c88 [0x02]: C0x0006.0x0.0
0x186af4…186c88 [0x03]: C0x010e.0x0.0
0x186af4…186c88 ]
0x186af4…186c88 }
0x186c88…186e1c Dummy {f00=0x0005, f01=0x0190, f02=» 0 P IDENT TDISP REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* P* P*
0x186e1c…186fb0 Dummy {f00=0x0005, f01=0x0190, f02=»PATCHER IN TOSS. x > P* ENTRY POINT IS 'TDISP' WITH 8 REGISTERS ON A15 STACK. > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER Z < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. : P* - IF SO, THE RUNNING TASK IS QUEUED AND
0x186fb0…187144 Dummy {f00=0x0005, f01=0x0190, f02=»TRY 'DISEND' CALLS TENDIO BEFORE TDSIP P* . 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. 8 P* r 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. | P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS.
0x187144…1872d8 Dummy {f00=0x0005, f01=0x0190, f02=»NTRY TDISP DISPATCHER ENTRY ( P ENTRY MEXIT EXIT FOR MONITOR TASKS $ " P ENTRY DISIOE I/O ERROR ENTRY P & P ENTRY DISEND END I/O AND DISPATCH v 8 P ENTRY DISQUE POINTER TO FIRST PLACE IN DISP. QUEUE 0 P ENTRY PRUN TTAB ADDRESS OF RUNNING PROGRAM
0x1872d8…18746c Dummy {f00=0x0005, f01=0x018e, f02=» P************* P* P* ( P EXTRN TTB:SA SAVE AREA 2 P EXTRN TTB:ST STATUS R & P EXTRN TTB:PW PROGRAM STATUS WORD n P EXTRN TTB:MT MMUTAB ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS , P EXTRN SEG:PB SEGMENT PAGE BLOCK ADDRESS
0x18746c…187600 Dummy {f00=0x0005, f01=0x018e, f02=» d P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT & 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK F . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE | & P EXTRN SCTMMP MMU TABLE PAGE ENTRY ( P EXTRN SCTNPE NUMBER OF PAGE ENTRIES P EJE
0x187600…187794 (2, 86) Dummy {f00=0x0005, 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
0x187794…187928 Dummy {f00=0x0005, f01=0x0190, f02=»ISC PAGING p * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * @ PDSKPAG EQU 0 J * ^ P* h @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING r > P* APPLICATION TASKS AT DIFFERENT PRIORITY LEVELS USING THE 8 P* SAME SEGMENT I
0x187928…187abc Dummy {f00=0x0005, f01=0x018e, f02=»VERLAY f * P* IS OBTAINED BY SETTING ASSOLY EQU 1 P* < PASSOLY EQU 0 F P* Z P EJECT TDISP d P* z P* D I S Q U E P* 2 P* POINTER TO FIRST PLACE IN DISPATCHER QUEUE P* PDISQUE DATA 0 P* P*
0x187abc…187c50 Dummy {f00=0x0005, f01=0x0190, f02=» P* R E T U R 8 P* . P* LOAD 8 REGISTERS FROM STACK AND RETURN * P* PRETUR8 EQU * f P z P IFT CPU852=0 P MLR 8,A15 P XIF P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15
0x187c50…187de4 Dummy {f00=0x0005, f01=0x0190, f02=» P EJECT TDISP P P* & P* M E X I T 0 P* F 0 P* DO EXIT ON MONITOR TASK AND GO TO TDISP P P* PMEXIT INH P LD A5,PRUN P CF A15,EXIT P CM PRUN P RF TDISP P P* P* D I S I
0x187de4…187f78 Dummy {f00=0x0005, f01=0x0190, f02=»* D I S E N D P* $ P* CALL TENDIO AND GO TO TDISP " P* J PDISEND CF A15,TENDIO T P EJECT TDISP p P* P* T D I S P P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD P
0x187f78…18810c Dummy {f00=0x0005, f01=0x0190, f02=»CHER QUEUE P* PTDISCQ LDKL A2,DISQUE P LDR* A3,A2 : P RB(Z) RETUR8 QUEUE EMPTY N P p P LD A5,PRUN x $ P RF(Z) TDCQ10 IDLE LOOP RUNNING & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIOR
0x18810c…1882a0 Dummy {f00=0x0005, f01=0x0190, f02=» P P IFT DSKPAG=1 , P LD A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR " P RF(Z) TDISSW NONE R P LDR* A7,A1 l P RF(N) TDISSW SEGMENT LOADED 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF
0x1882a0…188434 (2, 87) Dummy {f00=0x0006, f01=0x0190, f02=»D RUNNING TASK ~ P RF(Z) TDISST IDLE LOOP P 6 . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY > P RF(Z) TDSW20 EMPTY QUEUE p 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6
0x188434…1885c8 Dummy {f00=0x0006, f01=0x0190, f02=» ST A14,TTB:SA+28,A5 SAVE REGISTERS P LDR A14,A5 , P @ P IFT CPU852=0 H P MLR 8,A15 ^ P MS 13,TTB:SA+2,A14 p P MLR 2,A15 P P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR
0x1885c8…18875c Dummy {f00=0x0006, f01=0x0190, f02=»B:SA+24,A14 P ST A11,TTB:SA+22,A14 P ST A10,TTB:SA+20,A14 2 P ST A9,TTB:SA+18,A14 P P ST A8,TTB:SA+16,A14 l P ST A7,TTB:SA+14,A14 P ST A6,TTB:SA+12,A14 P ST A5,TTB:SA+10,A14 P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,
0x18875c…1888f0 Dummy {f00=0x0006, f01=0x0190, f02=»TB:SA,A14 AND PC & P ST A2,TTB:PW,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 B P ^ * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR f P RF(Z) TDISST NONE P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY
0x1888f0…188a84 Dummy {f00=0x0006, f01=0x018e, f02=»AT IT WAS THIS TASK x P XIF P EJECT TDISP ( P* > P* START NEW TASK H P* ` PTDISST LD A14,PRUN j P IFT DSKPAG=1 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOC
0x188a84…188c18 Dummy {f00=0x0006, f01=0x0190, f02=» P IFT DSKPAG+DIFPRI=2 P $ ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE , P RF(NZ) TDST10 YES X " P LDR* A3,A1 NO GET SEGM STATUS r 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT
0x188c18…188dac Dummy {f00=0x0006, f01=0x018e, f02=» DSKPAG=1 P 2 PTDST10 LD A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 P P ST A3,PAG:QB,A2 b P CMR A4 z P , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS ( P LD A5,TTB:SA+26,A14 AND T:A ADDRESS P P IFT MMUPAG=1
0x188dac…188f40 Dummy {f00=0x0006, f01=0x0190, f02=» , P LD A4,SCTNPE AND GET NUMBER OF ENTRIES P 4 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE < P SUK A4,1 r P RF(Z) TDST25 P ADK A2,4 P ADK A3,2 P RB TDST22 P PTDST25 EQU * P IFT ASSOLY=0 " P TL TT
0x188f40…1890d4 (2, 88) Dummy {f00=0x010e, f01=0x0190, f02=»,T:ACSB,A5 P RF TDST35 P $ P XIF , P IFT DSKPAG-MMUPAG=1 8 4 P ST A1,T:ACSB,A5 UPDATE BASE IN T:A JUST IN CASE T P XIF P PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST
0x1890d4…189268 Dummy {f00=0x010e, f01=0x0190, f02=» n & P ML 14,TTB:SA+2,A14 LOAD REGISTERS P 2 P XIF : P IFT CPU852=1 F P P STR A1,A15 PUT PC d P STR A2,A15 AND PSW ON STACK ~ & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD
0x189268…1893fc Dummy {f00=0x010e, f01=0x4106, f02=» LD A9,TTB:SA+18,A14 P LD A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 : P LD A12,TTB:SA+24,A14 X P LD A13,TTB:SA+26,A14 v P LD A14,TTB:SA+28,A14 P P XIF P P RTN A15 START THE TASK P P END @ D
0x1893fc…189590 Dummy {f00=0x010e, 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
0x189590…189724 Dummy {f00=0x010e, f01=0x0190, f02=» IHTWN IHTCN , ( IHSOP N CHLT1 ^ IHFDN n CHRT1 ~ , ( CHRT2 CHRT3 CHRT4 IHCC1 IHCC2
0x189724…1898b8 Dummy {f00=0x010e, f01=0x018e, f02=» $ & ~ IHLPN IHCRN . IHDU1 > , ( A ( * N IHDU2 ~ IHMTN , ( Q , . 0 , ( a IHINPTI
0x1898b8…189a4c Dummy {f00=0x010e, f01=0x0190, f02=» SCTEFA SCTPLD SCTANO , SCTADA @ SCTPAGL T , ( @ h SCTSEG SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC
0x189a4c…189be0 Dummy {f00=0x010e, f01=0x414e, f02=»T SCTCDT bBUG SCTBUG~ . , ( 6 B SCTDMT r SCTDMI SCTDML SCTDMC SCTBLK SCTDCT
0x189be0…189d74 (2, 89) Opaque[0x194]
0x189d74…189f08 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2190, f03=0x0000}
0x189d74…189f08 IdxSect {
0x189d74…189f08 f00 = 0x010c // 0x189d74 @0x0
0x189d74…189f08 f01 = 0x000a // 0x189d76 @0x2
0x189d74…189f08 gno = [ // 0x189d78 @0x4
0x189d74…189f08 [0x00]: C0x010c.0x2.0
0x189d74…189f08 [0x01]: C0x010c.0x3.0
0x189d74…189f08 [0x02]: C0x012b.0x3.0
0x189d74…189f08 [0x03]: C0x0134.0x0.0
0x189d74…189f08 [0x04]: C0x0134.0x1.0
0x189d74…189f08 ]
0x189d74…189f08 }
0x189f08…18a09c Dummy {f00=0x010c, f01=0x0190, f02=» 2 P IDENT LRPINT 9.2DK 1 79-11-16 870105040920 P : P =DK1, HANGING REM. TERM. B P 80-03-11 f P* z P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P*
0x18a09c…18a230 Dummy {f00=0x010c, f01=0x0190, f02=»************************************************** P* : P* D : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS N P* FOR TOSS. THESE ARE: P* P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P*
0x18a230…18a3c4 Dummy {f00=0x010c, f01=0x0190, f02=»THESE ARE: P* 4 P* -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH P* T ( P* -LKMQDI: QUEUE JOB AND DISPATCH ^ P* P EJECT LRPINT P* P* P*********** P* ENTRIES * P*********** P* P*
0x18a3c4…18a558 Dummy {f00=0x010c, f01=0x0190, f02=»R r 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH B & P ENTRY IHRTC RTC INTERRUPT HANDLER n 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR PO
0x18a558…18a6ec Dummy {f00=0x010c, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP DISPATCHER J " P EXTRN DISQUE DISPATCHER QUEUE j ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TAB
0x18a6ec…18a880 Dummy {f00=0x010c, f01=0x0190, f02=»TCH TO LEVEL XY P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS < $ P EXTRN PFINIT RESTART OF DEVICES b P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN TTABLD LOAD TASK TTAB ( P EXTRN PQEMTY
0x18a880…18aa14 (2, 90) Dummy {f00=0x010c, f01=0x0190, f02=»KWARD t ( P EXTRN TTB:SB SEGMENT BLOCK POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD : 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB d " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT P* P* . P****************************
0x18aa14…18aba8 Dummy {f00=0x010c, f01=0x018e, f02=»PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. . P* PMMUPAG EQU 1 f P* z P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU8
0x18aba8…18ad3c Dummy {f00=0x010c, f01=0x018e, f02=» DSKPAG EQU 0 * P* & 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS 0 * P* IS OBTAINED BY SETTING MCLOCK EQU 0. l P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* P* I H
0x18ad3c…18aed0 Dummy {f00=0x010c, f01=0x0190, f02=» * P* - IF STACK OVERFLOW SYSTEM HALTS. P* 2 @ P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING < P* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. P*
0x18aed0…18b064 Dummy {f00=0x010c, f01=0x0190, f02=»KM REQUEST) h , P* A5 = TTAB ADDRESS OF CALLING PROGRAM P* A2, A3 AND A6 ARE LOST. D P* h : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING r P* PROGRAM. P* P* P* PIHLKM EQU * $ P ST P,INTSAV SAVE
0x18b064…18b1f8 Dummy {f00=0x010c, f01=0x0190, f02=» SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS P* 8 P IFT CPU852=1 B 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA X * P STR A14,A15 SAVE USER REGISTERS, -A14 P STR A13,A15 -A13 P STR A12,A15 -A12 P STR A11,A15 -A11
0x18b1f8…18b38c Dummy {f00=0x010c, f01=0x0190, f02=»5 -A5 P STR A4,A15 -A4 P STR A3,A15 -A3 & P STR A2,A15 -A2 > P STR A1,A15 -A1 V P XIF n P* z P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA P XIF P* 0 P LD A5,PRUN GET TTAB ADDRESS O
0x18b38c…18b520 Dummy {f00=0x010c, f01=0x0190, f02=» GET LKM REQUEST PARAMETERS P* $ P LDR* A3,A15 . 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER B & P ST A3,TTB:PW,A5 STORE PSW IN TTAB z P* P IFT MMUPAG=0 & P LD A3,-2,A2 GET INSTRUCTION CODE " P LDR* A6,A2 GET DATA DIREC
0x18b520…18b6b4 (2, 91) Dummy {f00=0x012b, f01=0x018e, f02=»MMU TABLE t P* PLKM015 EQU * & P EL A3,-2,A2 GET INSTRUCTION CODE 0 " P ELR A6,A2 GET DATA DIRECTIVE Z P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM? P CWK A3,/6300 P RF(E) LKM025 TRAP? P* $ P* ST
0x18b6b4…18b848 Dummy {f00=0x012b, f01=0x0190, f02=» P EJECT LRPINT P* P* & PLKM025 EQU * 0 P IFT DSKPAG=1 D . P LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS Z P RF(Z) LKM027 NO SEGMENT? " P LDR* A4,A3 GET SEGMENT STATUS 0 P ANKL A4,/1E00 CHECK IF CORE RESIDENT OR... 2 P
0x18b848…18b9dc Dummy {f00=0x012b, f01=0x0190, f02=»ET PAGE BLOCK ADDRESS ~ & P LDKL A4,PAGQUE GET PAGQUE ADDRESS P ST A4,PAG:QB,A3 H 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE ` " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,PAG:QB,A4 4 P LD A3,PQEMTY CHECK IF LOAD
0x18b9dc…18bb70 Dummy {f00=0x012b, f01=0x0190, f02=»K | P* , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY P LDR A4,A5 SAVE A5 D , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS ^ $ P CF A15,QTJOB RESTART LOAD TASK P LDR A5,A4 RESTORE A5 P LD A4,TTB:PW,A5 GET PSW & P ST A4,-2,A15 RESTOR
0x18bb70…18bd04 Dummy {f00=0x012b, f01=0x0190, f02=» ( P RF(E) LKM060 LOAD SEGMENT REQUEST? P XIF 0 P* < P EJECT LRPINT F P* ^ P* h PLKM030 EQU * r ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P CF A15,SWL48 SWITCH TO LEVEL 48 P LDK A4,0 " P LDR A3,A6 GET DATA DIRECTIV
0x18bd04…18be98 Dummy {f00=0x012b, f01=0x0190, f02=»IRECTIVE POSITIVE z P* P IFT MMUPAG=0 $ P LDR* A4,A2 GET LABEL : P XIF X P* d P IFT MMUPAG=1 n P ELR A4,A2 GET LABEL P XIF P* P EJECT LRPINT P* . P* UPDATE TTB:SA AND GO TO LKM PROCESSOR
0x18be98…18c02c Dummy {f00=0x012b, f01=0x0190, f02=»MAL v * P RF(Z) LKMQDI PROGRAM SWITCH REQUEST? P CW A3,LKMAL : * P RF(NL) LKMRQE INVALID DATA DIRECTIVE? N P INH | P LD A3,LKMAL,A3 P* P IFF MMUPAG+DSKPAG=0 P RF LKM065 P* . PLKM060 EQU * LOAD SEGMENT REQUEST (DAT
0x18c02c…18c1c0 Dummy {f00=0x012b, f01=0x018e, f02=» P* P EJECT LRPINT P* & P* 0 P* L K M E R R : P* R P* > PLKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT f P* PLKM070 EQU * P CF A15,HALT HALT SYSTEM P* P* P* L K M R Q
0x18c1c0…18c354 (2, 92) Dummy {f00=0x0134, f01=0x0190, f02=» PLKMRQE EQU * P LDKL A2,-1 . P ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 , P* ^ P* h P* L K M Q D I r P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P* PLKMQDI EQU *
0x18c354…18c4e8 Dummy {f00=0x0134, f01=0x0190, f02=»CT LRPINT P* P* I H R T C P* 4 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. > 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. x P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x18c4e8…18c67c Dummy {f00=0x0134, f01=0x0190, f02=»F A15,SAVE8 SAVE A1-A8 ON STACK P XIF ( P* 4 P IFT CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF z P* " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT . P LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB P CF A15,QMJO
0x18c67c…18c810 Dummy {f00=0x0134, f01=0x0190, f02=» * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP 2 P* D P EJECT LRPINT N P* f P* p P IFT MONCLK=1 z P* < P* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. P* PMCLOCK EQU * ( PRTC025 LDKL A4,-
0x18c810…18c9a4 Dummy {f00=0x0134, f01=0x0190, f02=»20 IM MONCLO+2,A4 INCREMENT TIME 0 P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ? ( $ P RB(NE) RTC020 GO TO DISPATCHER? ( P CM MONCLO+2,A4 RESTART TIME COUNTER P SUK A4,2 END? " P RB(N) MCLO20 MIDNIGHT CARRY? " P RB(P) MCLO10 UPDATE MINUTES
0x18c9a4…18cb38 Dummy {f00=0x0134, f01=0x0190, f02=»MONCLO EQU * P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY * P DATA 0 HOUR T P DATA 0 MINUTE h P DATA 0 SECOND ~ PSECOND DATA 0 SECOND SWITCH P XIF P* P EJECT LRPINT P* * P* CLOCK ROUTINE STARTE
0x18cb38…18cccc Dummy {f00=0x0134, f01=0x0190, f02=»0 LDR* A4,A6 GET TIMER BLOCK P ABL(Z) MEXIT END OF QUEUE $ P IM 4,A4 INCREMENT TIMER F P RB(N) CLK10 NOT TIME OUT? f P RF(Z) CLK30 TIME OUT? P LDR* A3,A4 RELEASE TIMER P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A1
0x18cccc…18ce60 Dummy {f00=0x0134, f01=0x0190, f02=» CF A15,SWL48 SWITCH TO LEVEL 48 DK1 P INH , P RB CLK10 8 P* J PCLK40 EQU * T P IFT CPU852=1 h & P CF A15,SAVE8 SAVE A1-A8 ON STACK ~ P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x18ce60…18cff4 (2, 93) Dummy {f00=0x0134, f01=0x0190, f02=»NE r P* P* PCOUNT DATA 0 100 MS SWITCH P* @ P* J P* T I M Q U E T P* l . P* POINTER TO FIRST BLOCK IN TIMER QUEUE v P* P* PTIMQUE EQU * P DATA 0 P* P EJECT LRPINT P*
0x18cff4…18d188 Dummy {f00=0x0134, f01=0x0190, f02=»ATA 0 & PTTABPF DATA 0 TTAB FOR POWER FAIL P DATA '#P' 8 P DATA 0 J PA15SAV DATA 0 Z P DATA /00C0 p P DATA POWOFF P* P* P* WORK AREAS P* P* & PPFX DATA 1 POWER ON/OFF INDICATOR P*
0x18d188…18d31c Dummy {f00=0x0134, f01=0x018e, f02=»INTERRUPT t P* P* PIHPFAR EQU * & $ P ST P,INTSAV SAVE LAST INTERRUPT < & P RIT /17 RESET INTERNAL INTERRUPT d & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON? P* P* POWER OFF P* P IFT CPU
0x18d31c…18d4b0 Dummy {f00=0x0134, f01=0x0190, f02=» P XIF ! P* ! 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING ! P LDKL A2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x18d4b0…18d644 Dummy {f00=0x0134, f01=0x4058, f02=» ! P CM PRUN " P RB T:DISP " P* " * P* " 4 P* " > P END " H@ " TA2,TTABPF ! R P STR A1,A2 ! j P ST A2,DISQUE ! | P RB T:DISP ! P* ! 2 PPOWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES ! P HLT ! P* ! P EJECT LRPIN
0x18d644…18d7d8 Dummy {f00=0x0134, 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
0x18d7d8…18d96c Dummy {f00=0x0134, f01=0x2008, f02=» ,
0x18d96c…18db00 Dummy {f00=0x0134, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x18db00…18dc94 (2, 94) Opaque[0x194]
0x18dc94…18de28 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x18dc94…18de28 IdxSect {
0x18dc94…18de28 f00 = 0x0101 // 0x18dc94 @0x0
0x18dc94…18de28 f01 = 0x0006 // 0x18dc96 @0x2
0x18dc94…18de28 gno = [ // 0x18dc98 @0x4
0x18dc94…18de28 [0x00]: C0x0101.0x3.0
0x18dc94…18de28 [0x01]: C0x0127.0x0.0
0x18dc94…18de28 [0x02]: C0x0128.0x1.0
0x18dc94…18de28 ]
0x18dc94…18de28 }
0x18de28…18dfbc Dummy {f00=0x0101, f01=0x0190, f02=» 0 P IDENT TPROC REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x18dfbc…18e150 Dummy {f00=0x0101, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TEXIT = EXIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P* - TPAUSE = PAUSE TASK P* P* - TMWAIT = MULTIPL
0x18e150…18e2e4 Dummy {f00=0x0101, f01=0x018e, f02=»* P* P ENTRY TWAIT WAIT PROCESSOR P ENTRY TEXIT EXIT PROCESSOR 8 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR " P ENTRY TPAUSE PAUSE PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR P P P P* P*
0x18e2e4…18e478 Dummy {f00=0x0101, f01=0x0190, f02=» P EXTRN TDISP DISPATCHER * P EXTRN LKMQDI QUEUE TASK AND DISPATCH $ $ P EXTRN LKMRQE LKM REQUEST ERROR R P EXTRN EXIT PROGRAM EXIT z 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXT
0x18e478…18e60c Dummy {f00=0x0101, f01=0x018e, f02=»RN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT TPROC * P* @ P* J . P***************************************** T P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VERSION
0x18e60c…18e7a0 Dummy {f00=0x0101, f01=0x0190, f02=» P* P* P******** P* WAIT * ( P******** 8 P* H P* R ( P* THIS IS THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* * P*
0x18e7a0…18e934 (2, 95) Dummy {f00=0x0127, f01=0x0190, f02=»CB ADDRESS P* P* * PTWAIT CF A15,FNDDWT SEARCH DWT ADDRESS & P ADK A6,0 SET CR T & P RF(Z) TP:RQE FILE CODE NOT FOUND? l P* P IFT MMUPAG=0 * P LDR* A1,A8 RETURN IF EVENT COMPLETED P XIF P* P IFT MMUPAG=1
0x18e934…18eac8 Dummy {f00=0x0127, f01=0x0190, f02=»SET WAIT INDICATOR IN DWT ~ P RF T:DISP GO TO DISPATCHER " P* F P EJECT TPROC P P* f P* p P******** z P* EXIT * P******** P* P* ( P* THIS IS THE EXIT LKM PROCESSOR. P* * P* THIS MODULE IS E
0x18eac8…18ec5c Dummy {f00=0x0127, f01=0x0190, f02=»D FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* H P* A5 = TTAB ADDRESS R P* p P* z PTEXIT EQU * " P CF A15,EXIT CALL PROGRAM EXIT P* & PT:DISP ABL TDISP GO TO DISPATCHER P* P EJECT TPR
0x18ec5c…18edf0 Dummy {f00=0x0127, f01=0x0190, f02=» TASK LKM PROCESSOR. p P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER & ( P* WHEN A TASK HAS TO BE ACTIVATED. ^ P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* ( P* A1 = PARAMETER WHEN A4 NOT ZERO 4 P* A4 = S
0x18edf0…18ef84 Dummy {f00=0x0127, f01=0x0190, f02=» PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 GET SEGMENT NUMBER P LDR A5,A2 P LDR A2,A4
0x18ef84…18f118 Dummy {f00=0x0127, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x18f118…18f2ac Dummy {f00=0x0127, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x18f2ac…18f440 Dummy {f00=0x0127, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x18f440…18f5d4 (2, 96) Dummy {f00=0x0128, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x18f5d4…18f768 Dummy {f00=0x0128, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x18f768…18f8fc Dummy {f00=0x0128, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x18f8fc…18fa90 Dummy {f00=0x0128, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x18fa90…18fc24 Dummy {f00=0x0128, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x18fc24…18fdb8 Dummy {f00=0x0128, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x18fdb8…18ff4c Dummy {f00=0x0128, 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
0x18ff4c…1900e0 Dummy {f00=0x0128, f01=0x0000, f02=»
0x1900e0…190274 (2, 97) Opaque[0x194]
0x190274…190408 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x190274…190408 IdxSect {
0x190274…190408 f00 = 0x0007 // 0x190274 @0x0
0x190274…190408 f01 = 0x000c // 0x190276 @0x2
0x190274…190408 gno = [ // 0x190278 @0x4
0x190274…190408 [0x00]: C0x0007.0x3.0
0x190274…190408 [0x01]: C0x0008.0x1.0
0x190274…190408 [0x02]: C0x0008.0x2.0
0x190274…190408 [0x03]: C0x0008.0x3.0
0x190274…190408 [0x04]: C0x010f.0x0.0
0x190274…190408 [0x05]: C0x010f.0x2.0
0x190274…190408 ]
0x190274…190408 }
0x190408…19059c Dummy {f00=0x0007, f01=0x0190, f02=» 0 P IDENT MSUBS REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x19059c…190730 Dummy {f00=0x0007, 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*
0x190730…1908c4 Dummy {f00=0x0007, f01=0x018e, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x1908c4…190a58 Dummy {f00=0x0007, f01=0x0190, f02=» " P ENTRY SAVE8 SAVE 8 REGISTERS P ENTRY QTJOB QUEUE TASK * " P ENTRY QMJOB QUEUE MONITOR JOB J & P ENTRY ACTOT ACTIVATE TASK (FIFO) p & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENTRY GETBLK GET BLOCK P ENT
0x190a58…190bec Dummy {f00=0x0007, f01=0x0190, f02=»CE v $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY 2 , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE Z * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT MODULE P* 2 P* ENTRIES TO RESTORE REGISTERS A8-A1
0x190bec…190d80 Dummy {f00=0x0007, f01=0x018e, f02=» A1 ~ 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS J P* ` P* j P************* t P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO 1ST PLACE IN DISPATCHER QUEUE & P
0x190d80…190f14 (2, 98) Dummy {f00=0x0008, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION P EXTRN TTB:SA SAVE AREA . * P EXTRN TTB:PP POINTER TO PENDING QUEUE N ( P EXTRN TTB:TD TERMINAL DEVICE TABLE | 6 P EXTRN FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN DWTADR -ADDRESS BLOCK $ P E
0x190f14…1910a8 Dummy {f00=0x0008, f01=0x0190, f02=»XTRN TIODM DM ENTRY P EXTRN CHKIND DM ENTRY P* : P* D " PSOP EQU /2E SOP DEVICE ADDRESS N P* t P EJECT MSUBS ~ P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P*
0x1910a8…19123c Dummy {f00=0x0008, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 1 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS D
0x19123c…1913d0 Dummy {f00=0x0008, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x1913d0…191564 Dummy {f00=0x0008, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x191564…1916f8 Dummy {f00=0x0008, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x1916f8…19188c Dummy {f00=0x0008, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x19188c…191a20 Dummy {f00=0x0008, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x191a20…191bb4 (2, 99) Dummy {f00=0x0008, f01=0x018e, f02=»B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P* N P* ENTRY PARAMETERS:- X P* v P* A1 = PARAMETER P* A2 = DISPATCH ADDRESS P* : P* A5 IS SET TO TTAB ADDRESS OF MONITOR JOBS AND THE < P*
0x191bb4…191d48 Dummy {f00=0x0008, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT MSUBS P* P*
0x191d48…191edc Dummy {f00=0x0008, f01=0x0190, f02=»* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 = SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* PUT IN DISPATCHER QUEU
0x191edc…192070 Dummy {f00=0x0008, f01=0x0190, f02=»LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x192070…192204 Dummy {f00=0x0008, f01=0x0190, f02=» P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* PACT01 LDK A6,0 IND
0x192204…192398 Dummy {f00=0x0008, f01=0x0190, f02=» " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAMETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA P*
0x192398…19252c Dummy {f00=0x0008, f01=0x0190, f02=»E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN
0x19252c…1926c0 Dummy {f00=0x0008, f01=0x0190, f02=»K GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 8 P CF A15,GETBLK J P ADKL A5,TTB:PP ` P* x " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5,A5 FOLLOW THE QUEUE THREAD P ADK A6,0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO
0x1926c0…192854 (2, 100) Dummy {f00=0x0008, f01=0x0190, f02=»E t P STR A5,A4 P RB ACT010 P* . P EJECT MSUBS 8 P* N P* X P* E X I T b P* v 8 P* SUBROUTINE TO SET A PROGRAM FREE AND QUEUE FIRST P* PENDING PROGRAM. P* P* ENTRY PARAMETER: P* P
0x192854…1929e8 Dummy {f00=0x0008, f01=0x018e, f02=»OGRAM COUNTER z 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) IHRTN NO PENDING PROGRAM J P LDR* A3,A4 GET QUEUE THREAD r 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING POINTER 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS P LDR A
0x1929e8…192b7c Dummy {f00=0x0008, f01=0x0190, f02=» P EJECT MSUBS P* P* ( P* G E T B L K 2 P* J 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR T 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FOUND P* FREE BLOCK. P* P* EXIT PARAMETER:- P*
0x192b7c…192d10 Dummy {f00=0x0008, f01=0x0190, f02=»A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 0 P LDK A1,/B HALT PARAMETER F , P CF A15,HALT HALT IF NO MORE FREE BLOCKS h P* PGBL010 LDR* A5,A4 . P ST A5,FREQUE TAKE BLOCK OUT OF FREE QUEUE $ P STR A3,A4 STORE A3-A1 IN
0x192d10…192ea4 Dummy {f00=0x0008, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P RTN A15 , P XIF < P* H P EJECT MSUBS R P* h P* r P* F R E B L K | P* : P* SUBROUTINE TO GET PARAMETERS FROM A MONITOR BLOCK P* AND SET THIS BLOCK FREE. P*
0x192ea4…193038 Dummy {f00=0x0008, f01=0x0190, f02=» PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD " " D P* l P* v PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD A1,FREQUE P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE
0x193038…1931cc Dummy {f00=0x0008, f01=0x0190, f02=» RTN A15 P XIF P* P EJECT MSUBS & P* < P* F P* F N D D W T P P* h " P* SUBROUTINE TO FIND A DWT. r P* P* ENTRY PARAMETERS:- P* P* A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED
0x1931cc…193360 Dummy {f00=0x0008, f01=0x0190, f02=»A6 = DWT ADDRESS IF FOUND, ELSE 0 P* * P* 4 PFNDDWT STR A1,A15 SAVE A1 > P LDKL A6,TTB:TD+2 ` 4 P ADR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE z " P LD A1,-2,A6 GET TABLE LENGTH P* P IFT MMUPAG=1 & P ELR A2,A8 LOAD
0x193360…1934f4 (2, 101) Dummy {f00=0x010f, f01=0x0190, f02=» EJECT MSUBS P* P* PFND100 SUK A1,4 * ( P RF(N) FND110 FILE CODE NOT IN TTAB? B & P CC A2,1,A6 SEARCH IN DEVICE TABLE n & P RF(NE) FND106 BRANCH IF NOT FOUND P STR A1,A15 P LD A1,2,A6 DWT ADDRESS " P LD A1,DWTADR,A1 A
0x1934f4…193688 Dummy {f00=0x010f, f01=0x0190, f02=» OK P LDR* A1,A15 P* PFND106 EQU * * ( P ADK A6,4 ADDRESS TO NEXT FILE CODE > P RB FND100 TRY NEXT j P* $ P* SEARCH IN COMMON DEVICE TABLE P* & PFND110 LD A6,SCTCDT CDTAB ADDRESS P LDR* A1,A6 CDTAB LENGTH
0x193688…19381c Dummy {f00=0x010f, f01=0x0190, f02=»LE CODE NOT FOUND? P CC A2,1,A6 ( P RF(NE) FND126 FILE CODE NOT FOUND? . P STR A1,A15 Z P LD A1,2,A6 n P LD A1,DWTADR,A1 P CWK A1,TIODM " P RF(NE) FND200 NOT DM REQUEST? $ P CF A15,CHKIND CHECK INDEX IN DM P RF FND200
0x19381c…1939b0 Dummy {f00=0x010f, f01=0x0190, f02=»6,0 P RF IHRET1 ! P* ! " PFND200 LDR* A1,A15 RESET STACK ! ( P LCR A2,A6 LOAD DWT INDEX ! N P LD A6,2,A6 LOAD DWT ADDRESS ! p P* ! PFND210 RF IHRET1 ! P* ! P EJECT MSUBS ! P* ! P* ! P* F N D T I D ! P* !
0x1939b0…193b44 Dummy {f00=0x010f, f01=0x0190, f02=»IDENTIFICATION ! P* " P* EXIT PARAMETER: " P* " < P* A2 = TTAB ADDRESS " F 0 P* A2 = 0 INDICATES ILLEGAL IDENTIFICATION " d P* " P* " PFNDTID STR A1,A15 SAVE A1 " P LD* A1,SCTTCT TCTAB LENGTH " P AD A1,SCTTCT " P
0x193b44…193cd8 Dummy {f00=0x010f, f01=0x0190, f02=»,TTB:ID,A2 COMPARE IDENTIFICATIONS " P RB(NE) FTI010 NO MATCH? # * P RF IHRET1 # J P* # ^ * PFTI030 LDK A2,0 ILLEGAL IDENTIFICATION # h P RF IHRET1 # P* # P EJECT MSUBS # P* # P* # , P* RESTORE REGISTERS AND RETURN WITHOUT #
0x193cd8…193e6c Dummy {f00=0x010f, f01=0x0190, f02=»DR* A6,A15 # PIHRET5 LDR* A5,A15 $ PIHRET4 LDR* A4,A15 $ , PIHRET3 LDR* A3,A15 $ F PIHRET2 LDR* A2,A15 $ ` PIHRET1 LDR* A1,A15 $ z PIHRTN INH $ $ P ADKL A15,4 ADJUST STACK POINTER $ P ABR* A15 AND RETURN $ P XIF $ P* $ P IFT CPU
0x193e6c…194000 Dummy {f00=0x010f, f01=0x0190, f02=» FROM STACK... $ r P RTN A15 ...AND RETURN % P* % 4 0 PIHRET1 LDR* A1,A15 RESTORE A1 FROM STACK... % > P* % r PIHRTN RTN A15 ...AND RETURN % | P XIF % P* % P EJECT MSUBS % P* % P* % P* P F I N I T % P* % & P* SU
0x194000…194194 (2, 102) Dummy {f00=0x010f, f01=0x0190, f02=»E AVAILABLE FOR THE RESTART ROUTINES. % z P* & . P* & 8 PPFINIT EQU * & B ( P LDK A1,2 SET INDEX TO FIRST ROUTINE & V P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & " P RF(NL) PFI110 ALL RESTARTED? & P STR A1,A15 SAVE A1 & P INH & * P CFI A
0x194194…194328 Dummy {f00=0x010f, f01=0x0190, f02=» RTN A15 RETURN WHEN ALL STARTED & P* ' ( P EJECT MSUBS ' 2 P* ' H P* ' R P* S W L 4 8 ' P* ' r & P* SWITCH TO LEVEL 48 AND ENABLE. ' | P* ' P* ' PSWL48 EQU * ' P STR A1,A15 SAVE A1 ' P* ' PSWL481 EQU * ' $ P
0x194328…1944bc Dummy {f00=0x010f, f01=0x018e, f02=» ' x P RTN A15 ( P* ( P EJECT MSUBS ( " P* ( 8 P* ( B P* S W L X Y ( L P* ( b & P* SWITCH TO LEVEL XY AND ENABLE. ( l P* ( . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 0 P* LEVEL := XY " " " " " XY < 48 ( P*
0x1944bc…194650 Dummy {f00=0x010f, f01=0x0190, f02=» ( z & P LC A1,24,A15 GET LEVEL FROM STACK ) P ANK A1,/FC ) 2 P SUK A1,/BC ) F P RB(G) SWL481 ) Z P LD A1,24,A15 ) p " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) P* ) P EJECT MSUBS ) P* ) P* ) & P* INTERRUPT SAVE AND
0x194650…1947e4 Dummy {f00=0x010f, f01=0x0190, f02=»A15,HALT ) P* * PHALT EQU * * P IFT CPU852=1 * , & P CF A15,SAVE8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x1947e4…194978 Dummy {f00=0x010f, f01=0x404e, f02=»YPE OF HALT * x P HLT + P* + P* + * P* + 4 P END + >@ + J8 SAVE A1-A8 ON STACK * B $ P STR A9,A15 SAVE A9-A14 ON STACK * l P STR A10,A15 * P STR A11,A15 * P STR A12,A15 * P STR A13,A15 * P STR A14,A15 * P XIF * P* *
0x194978…194b0c Dummy {f00=0x010f, 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. "
0x194b0c…194ca0 Dummy {f00=0x010f, f01=0x0000, f02=»
0x194ca0…194e34 (2, 103) Opaque[0x194]
0x194e34…194fc8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x194e34…194fc8 IdxSect {
0x194e34…194fc8 f00 = 0x0009 // 0x194e34 @0x0
0x194e34…194fc8 f01 = 0x0004 // 0x194e36 @0x2
0x194e34…194fc8 gno = [ // 0x194e38 @0x4
0x194e34…194fc8 [0x00]: C0x0009.0x0.0
0x194e34…194fc8 [0x01]: C0x0040.0x1.0
0x194e34…194fc8 ]
0x194e34…194fc8 }
0x194fc8…19515c Dummy {f00=0x0009, f01=0x018e, f02=» 2 P IDENT TTMJOB REL 9.2 79-11-16 870105040920 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* $ P ENTRY TTB:LA LAST LOAD ADDRESS P ENTRY TTB:M
0x19515c…1952f0 Dummy {f00=0x0009, f01=0x0190, f02=» j & P ENTRY TTB:ID TASK IDENTIFICATION P ENTRY TTB:ST TASK STATUS 2 " P ENTRY TTB:PP PENDING POINTER T & P ENTRY TTB:PW PROGRAM STATUS WORD z $ P ENTRY TTB:SA TERMINAL SAVE AREA " P ENTRY TTB:TD TERMINAL DEVICES P* P EJECT TTM
0x1952f0…195484 Dummy {f00=0x0009, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINE
0x195484…195618 Dummy {f00=0x0009, f01=0x018e, f02=» * P* IS OBTAINED BY SETTING ASSOLY EQU 1. P* 2 PASSOLY EQU 0 < P* P " P EJECT TTMJOB TTMJOB Z P* P* PLA:DUM EQU * P IFT ASSOLY=1 P DATA 0 LAST LOAD ADDRESS P XIF P* PMMUDUM EQU *
0x195618…1957ac Dummy {f00=0x0009, f01=0x0190, f02=» " P DATA /3000,/3400,/3800,/3C00 P XIF * P* 6 PSB:DUM EQU * @ P IFF MMUPAG+DSKPAG=0 T " P DATA 0 SEGMENT BLOCK ADDRESS p P XIF 6 PTTB:LA EQU LA:DUM-* LAST LOAD ADDRESS DISPLACEMENT . PTTB:MT EQU MMUDUM-* MMU TABLE DISPLACEMENT
0x1957ac…195940 Dummy {f00=0x0009, f01=0x018e, f02=»TMJOB ENTRY . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 F P* V , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION ` P DATA '#M' P* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 P* ( PTTB:PP EQU *-TTMJOB PENDIN
0x195940…195ad4 (2, 104) Dummy {f00=0x0040, f01=0x4168, f02=» P EJECT TTMJOB P* P* & * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA 0 P DATA 0 DISPATCH ADDRESS ^ 2 P DATA 0,0,0,0,0,0,0 SAVE AREA, REGISTER A1-A14 ~ P DATA 0,0,0,0,0,0,0 P* ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES P D
0x195ad4…195c68 Dummy {f00=0x0040, 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,
0x195c68…195dfc Dummy {f00=0x0040, f01=0x0190, f02=»NG MMUPAG EQU 1. z P* PMMUPAG EQU 0 " P* 6 P* @ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION J . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS D
0x195dfc…195f90 Dummy {f00=0x0040, f01=0x0190, f02=»* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS ON STACK * $ P* WITHOUT ENABLING INTERRUPTS. ^ P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS P STR A3,A15 P STR A4,A15 P STR A5,A15
0x195f90…196124 Dummy {f00=0x0040, f01=0x0190, f02=»RANCH ADDRESS v P ST A2,14,A15 P ST A1,16,A15 , P LD A3,12,A15 RESTORE A3 B & P ABL 0 THIS IS USED TO BRANCH BACK b PSAVE81 EQU *-2 P* P EJECT MSUBS P* P* P* Q T J O B P* 2 P* SUBROUTINE TO
0x196124…1962b8 Dummy {f00=0x0040, f01=0x0190, f02=» P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PRIORITY BASIS. WITHIN ONE PRIORITY LEVEL JOB IS J P* PUT LAST IN QUEUE. P* P* PQTJOB EQU * P INH P* P IFT CPU852=1 $ P STR A1,A15 SAVE
0x1962b8…19644c Dummy {f00=0x0040, f01=0x0190, f02=»CK t P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2 P LDR* A2,A1 GET ADDRESS OF FIRST TASK IN QUEUE R P RF(Z) QTJ020 DISQUE EMPTY? * P LD A3,TTB:ST+1,A5 GET PRIORITY LEVEL P* P EJECT MSUBS P* P*
0x19644c…1965e0 Dummy {f00=0x0040, f01=0x0190, f02=»1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE? ( P* P ( PQTJ020 STR A2,A5 UPDATE QUEUE LINKS Z P STR A5,A1 P* P IFT CPU852=1 P ABL IHRET3 P XIF P* P IFT CPU852=0 * P MLR 3,A15 RESTO
0x1965e0…196774 (2, 105) Opaque[0x194]
0x196774…196908 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x196774…196908 IdxSect {
0x196774…196908 f00 = 0x0057 // 0x196774 @0x0
0x196774…196908 f01 = 0x0026 // 0x196776 @0x2
0x196774…196908 gno = [ // 0x196778 @0x4
0x196774…196908 [0x00]: C0x0057.0x3.0
0x196774…196908 [0x01]: C0x0070.0x1.0
0x196774…196908 [0x02]: C0x0070.0x2.0
0x196774…196908 [0x03]: C0x00f4.0x1.0
0x196774…196908 [0x04]: C0x00f4.0x2.0
0x196774…196908 [0x05]: C0x010f.0x3.0
0x196774…196908 [0x06]: C0x0110.0x1.0
0x196774…196908 [0x07]: C0x0110.0x2.0
0x196774…196908 [0x08]: C0x0110.0x3.0
0x196774…196908 [0x09]: C0x0111.0x0.0
0x196774…196908 [0x0a]: C0x0111.0x1.0
0x196774…196908 [0x0b]: C0x0111.0x2.0
0x196774…196908 [0x0c]: C0x0111.0x3.0
0x196774…196908 [0x0d]: C0x0112.0x0.0
0x196774…196908 [0x0e]: C0x0112.0x1.0
0x196774…196908 [0x0f]: C0x0112.0x2.0
0x196774…196908 [0x10]: C0x0112.0x3.0
0x196774…196908 [0x11]: C0x0113.0x0.0
0x196774…196908 [0x12]: C0x0113.0x1.0
0x196774…196908 ]
0x196774…196908 }
0x196908…196a9c Dummy {f00=0x0057, f01=0x018e, f02=» 2 P IDENT TOSSIO REL 9.2 79-11-16 870105040920 P : P =1, DM ATTACH HANG UP B P REL 9.1 79-05-23 b P* ~ P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P
0x196a9c…196c30 Dummy {f00=0x0057, f01=0x0190, f02=» P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: B P* | P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P* P*
0x196c30…196dc4 Dummy {f00=0x0057, f01=0x0190, f02=» j P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT 8 P* VALUES FOR ECB AND DWT AREAS, AS WELL AS SPECIAL N . P* MOVE ROUTINES FOR DATA COMMUNICATION. P* P EJECT TOSSIO P* P* P*********** P*
0x196dc4…196f58 Dummy {f00=0x0057, f01=0x0190, f02=» DC:MIN MOVE ROUTINE FOR DATACOM, INPUT 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 0 , P ENTRY MONMMU MONITOR (SYSTEM) MMU TABLE f P* P ENTRY ECBFC FILE CODE P ENTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " P
0x196f58…1970ec Dummy {f00=0x0057, f01=0x0190, f02=»D (USED BY DM) p P* $ P ENTRY BUFLEN MMU BUFFER LENGTH $ P ENTRY ACTADR ACTIVATION ADDRESS H P ENTRY ABTADR ABORT ADDRESS p $ P ENTRY INTADR INTERRUPT ADDRESS 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) " P ENTRY RECADR RECOVERY
0x1970ec…197280 Dummy {f00=0x0057, f01=0x0190, f02=»NDEX DATA MANAGEMENT z 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL R , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION P* P EJECT TOSSI
0x197280…197414 (2, 106) Dummy {f00=0x0070, f01=0x0190, f02=»RY DWTECB ECB ADDRESS P ENTRY DWTOR INDEX AND ORDER ( P ENTRY DWTOCH LAST OUTPUT CHARACTER B & P ENTRY DWTADR DRIVER ADDRESS BLOCK n P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR P ENTRY DWTTQ TERMINAL QUEUE
0x197414…1975a8 Dummy {f00=0x0070, f01=0x018e, f02=»WTMEC MMU ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 @ P ENTRY DWTA4 SAVE AREA A4 b P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP T
0x1975a8…19773c Dummy {f00=0x0070, f01=0x0190, f02=» P EJECT TOSSIO P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING
0x19773c…1978d0 Dummy {f00=0x0070, f01=0x0190, f02=»SPATCHING j , P EXTRN QTJOB QUEUE TERM.PROG. FOR DISP. " P EXTRN MEXIT MONITOR TASK EXIT B P EXTRN TDISP DISPATCHER h 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN P
0x1978d0…197a64 Dummy {f00=0x0070, f01=0x0190, f02=» & P EXTRN TTB:ID TASK IDENTIFICATION ( P EXTRN TTB:ST TASK STATUS AND LEVEL . & P EXTRN TTB:PW PROGRAM STATUS WORD Z P EXTRN TTB:SA SAVE AREA P EXTRN TTB:MT MMUTAB P EXTRN TIODM ENTRY FOR DM P EXTRN REQEND ENTRY FOR DM * P EXT
0x197a64…197bf8 Dummy {f00=0x0070, f01=0x0190, f02=»* h P* P* CONDITIONAL ASSEMBLY P* 2 . P***************************************** < P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6
0x197bf8…197d8c Dummy {f00=0x0070, f01=0x0190, f02=» P* P* 0 P* A PROGRAM VERSION INCLUDING ATTACH/DETACH * P* IS OBTAINED BY SETTING ATTDET EQU 1. L P* z PX:A EQU 0 PATTDET EQU X:A P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY
0x197d8c…197f20 Dummy {f00=0x0070, f01=0x0190, f02=»***************** P* FORM STATEMENTS * P******************* 6 P* R P* PBYTES FORM 8,8 f P* | P EJECT TOSSIO P* P* P********************* P* DWT DISPLACEMENTS * P*********************
0x197f20…1980b4 (2, 107) Dummy {f00=0x0070, f01=0x0190, f02=»TBC EQU /03 BYTE COUNTER PDWTECB EQU /04 ECB ADDRESS " PDWTOR EQU /06 INDEX AND ORDER B ( PDWTOCH EQU /06 LAST OUTPUT CHARACTER h ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK PDWTTAB EQU /0A TTAB ADDRESS * PDWTWAT EQU /0C WAIT/ACTIVATE INDICAT
0x1980b4…198248 Dummy {f00=0x0070, f01=0x0190, f02=»FT MMUPAG=0 4 PDWTDRD EQU DWTTQ+2 START OF DRIVER DEFINED PART P XIF L P* X P IFT MMUPAG=1 b 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART x P XIF P* P EJECT TOSSIO P* , P* DWT DISPLACEMENTS: DRIVER DEFI
0x198248…1983dc Dummy {f00=0x0070, f01=0x0190, f02=»U DWTDRD+/02 SAVE AREA A2 & PDWTA3 EQU DWTDRD+/02 SAVE AREA A3 " & PDWTA4 EQU DWTDRD+/04 SAVE AREA A4 L & PDWTA5 EQU DWTDRD+/06 SAVE AREA A5 v . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT & PDWTT
0x1983dc…198570 Dummy {f00=0x0070, f01=0x018e, f02=»QU DWTDRD+/1C DISC VOLUME NAME P* & P EJECT TOSSIO 0 P* H P* R * P************************************** * P* DRIVER ADDRESS BLOCK DISPLACEMENTS * * P************************************** P* P* & PKEYLEN EQU -6
0x198570…198704 Dummy {f00=0x0070, f01=0x018e, f02=» n PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS * $ PPOLADR EQU 4 BUFFER POOL ADDRESS P " PRECADR EQU 6 RECOVERY ADDRESS x PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE INDEX VALUE
0x198704…198898 Dummy {f00=0x0070, f01=0x0190, f02=» H F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* R $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBO
0x198898…198a2c Dummy {f00=0x0070, f01=0x0190, f02=» z P* ECB DISPLACEMENTS * P********************* & P* D P* N PECBFC EQU /01 FILE CODE X PECBBA EQU /02 BUFFER ADDRESS x " PECBRL EQU /04 REQUESTED LENGTH " PECBEL EQU /06 EFFECTIVE LENGTH PECBRC EQU /08 RETURN CODE
0x198a2c…198bc0 Dummy {f00=0x0070, f01=0x0190, f02=» MMUPAG=1 P* P* P********** & P* TIOTAB * 8 P********** J P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TIO f P* 2 PTIOTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE . P DATA TIO:DM DATA MANAGEMENT, INPU
0x198bc0…198d54 (2, 108) Dummy {f00=0x00f4, f01=0x0190, f02=» PTINDEX EQU *-TIOTAB 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT $ , P DATA TIOPCO PROGRAMMED CHANNEL, OUTPUT X P DATA TIOMXO MUX, OUTPUT & P DATA TIOKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT P*
0x198d54…198ee8 Dummy {f00=0x00f4, f01=0x0190, f02=»DRESSES TO ROUTINES ENTERED FROM TENDIO | P* 0 2 PTENTAB EQU * DEVICE TYPE/ROUTINE ADDRESS TABLE : . P DATA TEN:DM DATA MANAGEMENT, INPUT/OUTPUT p * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT $ P DATA TENKBI KEYBOARD/CT
0x198ee8…19907c Dummy {f00=0x00f4, f01=0x0190, f02=»TPUT | & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P DATA TENITO INTERTASK COMMUNICATION, OUTPUT 6 P XIF j P* v P EJECT TOSSIO P* P* P********** P* MONMMU * P********** P* P* MONITOR (SYSTEM) MMU TABLE
0x19907c…199210 Dummy {f00=0x00f4, f01=0x0190, f02=»0,/1400,/1800,/1C00 " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 B P XIF h P* t P EJECT TOSSIO ~ P* P* P IFT ATTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P*
0x199210…1993a4 Dummy {f00=0x00f4, f01=0x0190, f02=»: A4 = BLOCK ADDRESS P* A5 = TTAB ADDRESS P* A6 = DWT ADDRESS @ " P* A1-A3 ARE DESTROYED b P* PTIMOUT LDR A6,A1 & P LDR* A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 GET TTAB ADDRESS P* P IFT M
0x1993a4…199538 Dummy {f00=0x00f4, f01=0x018e, f02=»* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK 6 P* L P EJECT TOSSIO V P* n & P* REMOVE TTAB FROM DEVICE QUEUE x P* P LDR A1,A6 & P ADK A1,DWTTQ QUEUE ANCHOR ADDRESS P* PTIM:10 LDR A2,A1 SAVE
0x199538…1996cc Dummy {f00=0x00f4, f01=0x018e, f02=» P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE * P* T P LDR* A1,A1 ^ P STR A1,A2 r P* PTIM:20 EQU * P LDK A3,4 . P ADS A3,TTB:SA,A5 UPDATE DISPATCH ADDRESS : P LD A8,TTB:SA+16,A5 GET ECB ADDRES
0x1996cc…199860 Dummy {f00=0x00f4, f01=0x0190, f02=» h P XIF P* P IFT ATTDET=1 P IFT MMUPAG=1 4 * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB J . P TL MONMMU LOAD MONITOR (SYSTEM) MMU TABLE x P XIF P* P IFT ATTDET=1 & P RF TIORTN QUEUE TASK AND DISPATCH P*
0x199860…1999f4 (2, 109) Dummy {f00=0x00f4, f01=0x018e, f02=» TTAB ADDRESS P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 Z P* ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P LDR* A4,A4 P RF(
0x1999f4…199b88 Dummy {f00=0x00f4, f01=0x0190, f02=» P ABL IHRTN RETURN P XIF P* * P IFT ATTDET=1 4 P IFT CPU852=0 J P RTN A15 RETURN ` P XIF x P* P IFT ATTDET=1 & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P* P* F D B A T T
0x199b88…199d1c Dummy {f00=0x00f4, f01=0x0190, f02=»PUT: A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 = /800 (ATTACH BIT) B P* j " P* OUTPUT: A2-A4 AREA DESTROYED t P* PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * P LDR A4,A6 FDB ADDRE
0x199d1c…199eb0 Dummy {f00=0x00f4, f01=0x0190, f02=» LDR* A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! : " P RF(N) FDB:15 DETACH REQUEST? ! N $ P ORS A10,DWTST,A2 ATTACH REQUEST ! t P ST A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH REQUEST ! P CF A15,QR
0x199eb0…19a044 Dummy {f00=0x00f4, f01=0x0190, f02=»* Q R E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) " P* " X P* INPUT: A2 = DWT ADDRESS " b P* " " P* OUTPUT: A7, A9 ARE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS) " & P LD A5,DWTTQ,A
0x19a044…19a1d8 Dummy {f00=0x00f4, f01=0x0190, f02=»QUEUE TASK " P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS # 0 P IFT CPU852=1 # X P RB FND:20 RETURN # n P XIF # P* # P IFT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* # P IFT ATTDET=1 #
0x19a1d8…19a36c Dummy {f00=0x00f4, f01=0x018e, f02=» THIS MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ , P* $ P & P* A3 /8000 (REQUEST ERROR BIT) $ Z & P* A4 I/O AND ACTIVATE INDICATOR $ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 ORDER CODE $ P* A8
0x19a36c…19a500 Dummy {f00=0x00f4, f01=0x0190, f02=» PATTACH EQU * ENTRY % P ADK A4,0 SET CR % * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR? % 6 P* % d P IFT MMUPAG=0 % n " P CM ECBRC,A8 RESET RETURN CODE % P XIF % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % & P ES A4,ECBRC,A8 RESET RETURN
0x19a500…19a694 (2, 110) Dummy {f00=0x010f, f01=0x018e, f02=» DEVICE ALREADY ATTACHED? % P LDR A13,A13 & " P RF(NN) ATT:50 DEVICE BUSY? & 6 P* & Z P* ATTACH REQUESTING TASK & d P* & P ORS A10,DWTST,A6 ATTACH & , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT & P CWK A12,TIODM & " P RF(NE) ATT:15 N
0x19a694…19a828 Dummy {f00=0x010f, f01=0x0190, f02=» P ADK A4,0 SET CR ' P RF(Z) ATTRTN NO! ' P* ' 6 P EJECT TOSSIO ' @ P* ' X & P* FREE BLOCK AND TIMER IN ATT:CH ' b P* ' P CM* 2,A4 FREE TIMER ' " P LDR* A3,A4 REMOVE FROM ATT:CH ' P STR A3,A2 ' P CF A15,FREBLK RELEASE BLOCK '
0x19a828…19a9bc Dummy {f00=0x010f, f01=0x018e, f02=»ATT:50 CF A15,FNDBLK ' P ADK A4,0 SET CR ( $ P RF(NZ) ATT:70 IS TIMER ACTIVE? ( 6 P* ( ^ P* SET TIMER ( h P* ( P IFT MMUPAG=0 ( P LD A1,ECBCW,A8 TIME ( P XIF ( P* ( P EJECT TOSSIO ( P* ( P* ( P IFT ATTDE
0x19a9bc…19ab50 Dummy {f00=0x010f, f01=0x0190, f02=» ( r P RF(Z) ATT:80 END REQUEST? ) P* ) * PATT:60 ST A1,ATTIM ) 4 P LDR A1,A5 TTAB ADDRESS ) N P LD A3,ATT:CH ANCHOR ) n P CF A15,GETBLK GET BLOCK ) P ST A4,ATT:CH UPDATE ANCHOR ) $ P ADK A4,2 TIMER POINTER ADDRESS ) P LDR A1,A6 DWT ADD
0x19ab50…19ace4 Dummy {f00=0x010f, f01=0x0190, f02=»ARAMETER ) p P RF TIOQ20 * P* * " & PATT:80 LDK A3,/40 SET TIME OUT BIT * , P RF TIOERR RETURN * V P* * p P EJECT TOSSIO * z P* * P* * P********** * P* DETACH * * P********** * P* * * P* THIS MODULE IS CALLED FROM TIO W
0x19ace4…19ae78 Dummy {f00=0x010f, f01=0x018e, f02=»E ERROR? * r P TM A10,A13 + P RF(Z) TIOERR NOT ATTACHED? + $ P CW A5,DWTTAB,A6 + H * P RF(NE) TIOERR ATTACHED TO OTHER TASK? + ` P XRS A10,DWTST,A6 DETACH + P CWK A12,TIODM + " P RF(NE) DET:05 NO DM REQUEST? + ( P CF A15,FDBDET DETACH FILE STR
0x19ae78…19b00c Dummy {f00=0x010f, f01=0x0190, f02=» P* , 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT , PDETRTN LDK A3,0 RETURN CODE , D P XIF , h P* , t P EJECT TOSSIO , ~ P* , P* , P********** , P* TIOERR * , P********** , P* , P* ERROR: FILE CODE UNKNOWN ,
0x19b00c…19b1a0 Dummy {f00=0x010f, f01=0x0190, f02=» , * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB - P XIF - 6 P* - B P IFT MMUPAG=1 - L * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB - b P XIF - P* - PTIORTN EQU * - ( P ABL LKMQDI QUEUE TASK AND DISPATCH - P* - P EJECT TOSSIO - P
0x19b1a0…19b334 (2, 111) Dummy {f00=0x0110, f01=0x0190, f02=»R QUEUEING DEVICE REQUESTS. - x > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON . $ @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING . f 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT, AND WHEN . B P* ATTACHED, WHETHER THE DEVICE IS
0x19b334…19b4c8 Dummy {f00=0x0110, f01=0x0190, f02=»CE FIRST . P* / ( PTIOQ05 ADK A6,DWTTQ GET QUEUE ANCHOR / P LDR A2,A6 / F P LDR* A6,A6 / X $ P RF TIOQ40 INSERT FIRST IN QUEUE / l P* / & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE / P* / ( PTIOQ20 ADK A6,DWTTQ GET QUEUE ANCHOR / P LD A1,TTB
0x19b4c8…19b65c Dummy {f00=0x0110, f01=0x0190, f02=» A2,A6 / $ P LDR* A6,A6 FOLLOW QUEUE TO END 0 P RF(Z) TIOQ40 END FOUND? 0 6 & P CC A1,TTB:ST+1,A6 COMPARE LEVELS 0 V P RB(NL) TIOQ30 TRY NEXT? 0 P* 0 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 0 P* 0 PTIOQ40 LDKL A3,-4 0 P STR A
0x19b65c…19b7f0 Dummy {f00=0x0110, f01=0x0190, f02=» 0 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM 1 P* 1 @ PTIOQ60 EQU * 1 J P ABL TDISP GO TO DISPATCHER 1 ^ P* 1 P EJECT TOSSIO 1 P* 1 P* 1 P******* 1 P* TIO * 1 P******* 1 P* 1 P* 1 . P* THIS MODUL
0x19b7f0…19b984 Dummy {f00=0x0110, f01=0x0190, f02=»EUED 1 d 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. 2 P* 2 B 2 P* WHEN RUNNING WITH MMU OPTION SPECIAL DEVICE 2 L * P* DEPENDENT SUBROUTINES ARE PERFORMED. 2 P* 2 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 2 & P* WITH THE FOLLOWING
0x19b984…19bb18 Dummy {f00=0x0110, f01=0x0190, f02=» NOT ZERO, I/O AND ACTIVATION 2 P* 3 ( P* A5 = TTAB ADDRESS 3 2 P* 3 N P* A7 = ORDER CODE 3 X P* 3 r P* A8 = ECB ADDRESS 3 | P* 3 P EJECT TOSSIO 3 P* 3 P* 3 < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 3
0x19bb18…19bcac Dummy {f00=0x0110, f01=0x0190, f02=»* 3 P* A7 = ORDER CODE 4 P* 4 $ P* A8 = ECB ADDRESS 4 . P* 4 J , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK 4 T P* 4 0 P* A13 = 0, IF REQUEST ISSUED IN SYSTEM MODE 4 . P* = 1, " " " " USER MODE 4 P* 4 P* 4 , P
0x19bcac…19be40 Dummy {f00=0x0110, f01=0x0190, f02=» READY AND ECHO FIELDS 4 P* -DWTTAB TTAB ADDRESS 5 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 5 > . P* -DWTUEC USER ECB ADDRESS (MMU SYSTEMS) 5 h P* 5 P* 5 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 5 P* 5 P* -BIT 0 IN THE FIRST WORD 5
0x19be40…19bfd4 (2, 112) Dummy {f00=0x0110, f01=0x0190, f02=»ECK IF REQUEST IS BUSY 5 x P* 6 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 6 ( P LDKL A3,/8000 6 T P ADK A6,0 SET CR 6 j $ P RB(Z) TIOERR FILE CODE UNKNOWN? 6 : P LD A12,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 6 $ P LD A13,DWTST,A6 GET DWT STATUS
0x19bfd4…19c168 Dummy {f00=0x0110, f01=0x0190, f02=»TTACH ATTACH ORDER? 6 P SUK A7,1 7 P RB(Z) DETACH DETACH ORDER? 7 . " P ADK A7,/BC RESTORE ORDER CODE 7 R P XIF 7 x P* END OF =1 7 " P LD A11,TTB:ID,A5 GET TASK ID 7 P ANKL A11,/FF44 7 P SUKL A11,'#D' CHECK TASK ID 7 " P RF(Z) TIO02
0x19c168…19c2fc Dummy {f00=0x0110, f01=0x0190, f02=» TOSSIO 7 P* 8 & P* CHECK IF DEVICE IS ATTACHED/BUSY 8 P* 8 F P IFT ATTDET=1 8 P P TM A10,A13 8 f P RF(Z) TIO020 NOT ATTACHED? 8 z P CW A5,DWTTAB,A6 8 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK? 8 P TM A3,A13 8 $ P RF(NZ) TIO030 DEV
0x19c2fc…19c490 Dummy {f00=0x0110, f01=0x0190, f02=»VICE BUSY? 8 P* 9 P EJECT TOSSIO 9 P* 9 4 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 9 > P* 9 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 9 P LDK A2,/40 CHECK IF ECHO 9 P ANR A2,A7 9 P RF(Z) TIO070 NOT
0x19c490…19c624 Dummy {f00=0x0110, f01=0x0190, f02=»70 9 P* : . PTIO040 LD A2,DWTECH,A6 GET ECHO DEVICE DWT : " P RF(Z) TIO070 NO ECHO DEVICE? : F & P LD A9,DEVIND,A12 GET DEVICE INDEX : l $ P CWK A9,KB:DIX CHECK IF KEYBOARD : 4 P RF(NE) TIO070 ECHO NOT ALLOWED IF NOT KEYBOARD : ( P LD A14,DWTST,A2 G
0x19c624…19c7b8 Dummy {f00=0x0110, f01=0x018e, f02=»TAB,A2 : 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK? ; P TM A3,A14 ; H ( P RF(NZ) TIO060 ECHO DEVICE NOT BUSY? ; Z & P RB TIOQ00 BUSY, QUEUE ECHO DEVICE ; P XIF ; P* ; P EJECT TOSSIO ; P* ; P* ; PTIO050 TM A3,A14 ; $
0x19c7b8…19c94c Dummy {f00=0x0110, f01=0x0190, f02=» ; X P* < P* UPDATE ECB AND DWT FIELDS < P* < 6 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS IN DWT STATUS < @ P* < P IFT MMUPAG=1 < P LD A13,TTB:PW,A5 GET PSW < ( P ANKL A13,1 GET SYSTEM/USER MODE BIT < $ P RF(NZ) TIO100 JUMP IF
0x19c94c…19cae0 Dummy {f00=0x0110, f01=0x0190, f02=» CM ECBEL,A8 RESET EFFECTIVE LENGTH < $ P CM ECBRC,A8 RESET RETURN CODE = , P RF TIO110 = T P* = f P EJECT TOSSIO = p P* = P* MOVE USER ECB TO DWT ECB = P* = PTIO100 EQU * = P LDKL A2,/4FFF = * P ELR A3,A8 LOAD FIRST WORD OF US
0x19cae0…19cc74 (2, 113) Dummy {f00=0x0110, f01=0x0190, f02=»A2,DWTECB,A6 SET ACTUAL ECB ADDRESS = P STR A3,A2 > , * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS > > P LDR A9,A8 > l P LDK A3,0 > ~ * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH > & P ES A3,ECBRC,A8 RESET RETURN CODE > P* > P LDR A10,A1 SAVE PARAM
0x19cc74…19ce08 Dummy {f00=0x0110, f01=0x0190, f02=» MVUS A3 MOVE PART OF USER ECB TO DWT ECB > " P LDR A1,A10 RESTORE PARAMETER ? 2 P XIF ? X P* ? d P IFT MMUPAG=0 ? n P LDKL A3,/7FFF ? , P ANRS A3,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH ? $ P CM ECBRC,A8 RESE
0x19ce08…19cf9c Dummy {f00=0x0110, f01=0x0190, f02=» ANK A7,/3F ? ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT @ P CWK A12,TIODM @ @ * P RF(NE) TIO120 JUMP IF NOT DM REQUEST @ V 0 P ST A5,DWTTDM,A6 SAVE TTAB ADDRESS IN DWTTDM @ P RF TIO130 @ P* @ PTIO120 EQU * @ 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRE
0x19cf9c…19d130 Dummy {f00=0x0110, f01=0x0190, f02=»* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) @ P* A 2 P LDR A2,A4 CHECK PARAMETER A < & P RF(NZ) TIO210 I/O AND ACTIVATION? A ^ 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED A P RF(Z) TIO220 NOT WAIT? A P LDK A4,1 INDICATE WAIT A P RF TIO2
0x19d130…19d2c4 Dummy {f00=0x0110, f01=0x0190, f02=»HING A f P* B 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR B P* B R P EJECT TOSSIO B P* B t P* B ~ P IFT MMUPAG=1 B * P LDR A13,A13 CHECK IF SYSTEM/USER MODE B & P RF(Z) TIO250 JUMP IF SYSTEM MODE B & P LD A3,DEVIND,A12
0x19d2c4…19d458 Dummy {f00=0x0110, f01=0x0190, f02=»K ON ORDER CODE B P* C P LDR A4,A7 GET ORDER CODE C " 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE C D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER C x P* C PTIO240 EQU * C P ENB C < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROU
0x19d458…19d5ec Dummy {f00=0x0110, f01=0x0190, f02=» ADR A5,A6 C P INH D & P ABR* A12 GO TO DRIVER ACTIVATION D P* D H P EJECT TOSSIO D R P* D j P* D t P IFT MMUPAG=1 D ~ P* D P* R D : W R D P* D @ P* THIS MODULE IS CALLED BY 'TIO' AND 'TENDIO' FOR SELECTING D @ P* THE AP
0x19d5ec…19d780 Dummy {f00=0x0110, f01=0x0190, f02=»AD/WRITE REQUEST, CONDITION REGISTER ON STACK IS D * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. E 8 P* E f P* INPUT: A3 = DEVICE INDEX E p P* A6 = DWT ADDRESS E P* E : P* OUTPUT: A3 = INDEX FOR USE IN THE INDEXED BRANCHING E . P*
0x19d780…19d914 (2, 114) Dummy {f00=0x0111, f01=0x0190, f02=»DWTOR,A6 GET ORDER CODE FROM DWT E P ANK A4,/3F F ( P* F < * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER F F $ P LC A4,ORDTAB,A4 GET ORDER INDEX F t P ANK A4,/FF F . P ABR(Z)* A15 RETURN IF NO READ/WRITE ORDER F P SUK A4,1 F $ P ADR A3,A4 ADD READ/
0x19d914…19daa8 Dummy {f00=0x0111, f01=0x0190, f02=»* ORDTAB * F P********** G P* G $ 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: G . P* G d P* =0: NO READ/WRITE ORDER G n P* =1: READ ORDER G P* =TINDEX+1: WRITE ORDER G P* G PORDTAB EQU * ORDER CONSTANTS G P BYTES 0,1 /00
0x19daa8…19dc3c Dummy {f00=0x0111, f01=0x0190, f02=»/08, /09 G ~ P BYTES 1,TINDEX+1 /0A, /0B H P BYTES 0,0 /0C, /0D H 2 P BYTES 0,0 /0E, /0F H N P BYTES 0,1 /10, /11 H j P BYTES 0,0 /12, /13 H P BYTES 0,TINDEX+1 /14, /15 H P BYTES 0,0 /16, /17 H P BYTES 0,0 /18, /19 H P BYTES 0,0 /
0x19dc3c…19ddd0 Dummy {f00=0x0111, f01=0x018e, f02=» P BYTES 0,0 /24, /25 I P BYTES 0,0 /26, /27 I P BYTES 0,0 /28, /29 I < P BYTES 0,0 /2A, /2B I X P BYTES 0,1 /2C, /2D I t P BYTES 1,TINDEX+1 /2E, /2F I P BYTES 0,0 /30, /31 I P BYTES 0,0 /32, /33 I P BYTES 0,0 /34, /35 I P B
0x19ddd0…19df64 Dummy {f00=0x0111, f01=0x0190, f02=» P* J P EJECT TOSSIO J P* J & P* T I O : D M J 0 P* J F 4 P* THIS MODULE IS CALLED BY 'TIO' WHEN A REQUEST J P * P* FOR DATA MANAGEMENT HAS BEEN ISSUED. J P* J & P* INPUT: A8 = FDB MMU ECB ADDRESS J $ P* A9 = USER ECB ADDRES
0x19df64…19e0f8 Dummy {f00=0x0111, f01=0x0190, f02=»ER BUFFER ADDRESS J z P ST A2,ECBBA,A8 K , P EL A2,ECBCW2,A9 GET SECOND CONTROL WORD K 2 P ST A2,ECBCW2,A8 K b P* K z PA15RTN EQU * K P RTN A15 K P* K P EJECT TOSSIO K P* K P* T I O P C I K P* K B P* THIS MODULE IS CAL
0x19e0f8…19e28c Dummy {f00=0x0111, f01=0x0190, f02=» AND DWT BUFFER ADDRESSES SO THAT BOTH ARE K | < P* EVEN OR UNEVEN, DEPENDING ON THE USER BUFFER ADDRESS. L 2 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT L r , P* COMPLETION OF THE REQUEST IS 'TENPCI'. L 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'
0x19e28c…19e420 Dummy {f00=0x0111, f01=0x0190, f02=»K L j P* M P* OUTPUT: A1 IS DESTROYED M P* M 6 * PTIOPCI EQU * PROGRAMMED CHANNEL, INPUT M @ ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH M n 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE M 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE? M
0x19e420…19e5b4 (2, 115) Dummy {f00=0x0111, f01=0x0190, f02=»IPI10 USER BUFFER ADDRESS EVEN? M P ORS A1,ECBBA,A8 N ( P RTN A15 N @ P* N P 0 PTIPI10 SUK A1,2 MAKE DWT BUFFER ADDRESS EVEN N Z P ANS A1,ECBBA,A8 N P RTN A15 N P* N P EJECT TOSSIO N P* N P* T I O M X I N P* N B P* THIS
0x19e5b4…19e748 Dummy {f00=0x0111, f01=0x0190, f02=»XI ASSEMBLES THE FULL 18 BIT BUFFER ADDRESS WHICH IS N , P* TRANSFERRED TO THE MUX BY THE DRIVER. O < 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT O l , P* COMPLETION OF THE REQUEST IS 'TENMXI'. O 6 P* NOTICE THAT MODULE 'TIOMXO' IS EQUAL TO TIOMXI. O
0x19e748…19e8dc Dummy {f00=0x0111, f01=0x0190, f02=»TPUT: A1-A2 ARE DESTROYED O B P* 18 BIT USER BUFFER ADDRESS IS TRANSFERRED TO DWT ECB P " P* P h PTIOMXI EQU * MUX, INPUT P r , P EL A1,ECBBA,A9 GET USER BUFFER ADDRESS P P ECR A2,A1 P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS P P SRL A2,3
0x19e8dc…19ea70 Dummy {f00=0x0111, f01=0x0190, f02=» SRL A2,2 P P ANK A2,/3F Q 4 P SCR A2,A8 STORE BITS 16-17 IN DWT ECB 1ST WORD Q & P ANK A2,/0F Q ^ P SRC A2,4 Q r P ORR A1,A2 Q 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS Q P RTN A15 Q P* Q P EJECT TOSSIO Q P* Q P
0x19ea70…19ec04 Dummy {f00=0x0111, f01=0x018e, f02=»D/CTW. TIOKBI WILL SET BUFFER ADDRESSES Q n 6 P* AND MOVE KEYTABLE (IF ANY) BY USING ENTRY TIPI05 R 0 0 P* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. R j 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT R , P* COMPLETION OF THE REQUEST IS 'TENKBI'. R P*
0x19ec04…19ed98 Dummy {f00=0x0111, f01=0x0190, f02=» , P* A12 = ADDRESS TO DRIVER ADDRESS BLOCK S P* S 4 " P* OUTPUT: A1-A4 ARE DESTROYED S > P* S d PTIOKBI EQU * KEYBOARD/CTW S n ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH S 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE S 6 P RF(G) IO:ERR REQ. LEN
0x19ed98…19ef2c Dummy {f00=0x0111, f01=0x0190, f02=»IKB20 NO KEYTABLE IF BASIC READ S . P LD A4,ECBCW,A8 GET USER KEYTABLE ADDRESS T ( P RF(Z) TIKB20 NO KEYTABLE? T Z P* T | P EJECT TOSSIO T P* T P* T P LDR A1,A9 T P ADK A1,8 T P ADKL A8,12 T * P ST A8,-2,A8 SET DWT KEYTABLE
0x19ef2c…19f0c0 Dummy {f00=0x0111, f01=0x018e, f02=»EVEN? T n , P ECR A3,A3 NO, PUT LENGTH IN RIGHT BYTE U P* U > * PTIKB10 ANK A3,/FF SKIP LEFT CHARACTER U H P ADK A3,1 U v 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE U P RF(G) IO:ERR TOO SMALL? U P CF A15,TIPO05 U & P SUKL A8,8 ADJUST DWT
0x19f0c0…19f254 (2, 116) Dummy {f00=0x0111, f01=0x0190, f02=» U 4 PTIOITI EQU A15RTN INTERTASK COMMUNICATION, INPUT V P* V @ P EJECT TOSSIO V J P* V b P* T I O P C O V l P* V B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANN
0x19f254…19f3e8 Dummy {f00=0x0111, f01=0x0190, f02=»F THE USER V Z P* BUFFER TO THE DWT BUFFER. W 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT W 6 , P* COMPLETION OF THE REQUEST IS 'TENPCO'. W n 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. W F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOK
0x19f3e8…19f57c Dummy {f00=0x0111, f01=0x0190, f02=»DDRESS W x P* X " P* OUTPUT: A1-A4 ARE DESTROYED X P* X > , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT X H 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK X x ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH X * P RF(NP) TIPO20 REQUESTED LENGTH <= 0? X
0x19f57c…19f710 Dummy {f00=0x0111, f01=0x0190, f02=»ET USER ECB ADDRESS X ~ P* Y P EJECT TOSSIO Y & P* Y > P* Y H : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' Y R P ADK A3,1 Y . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN Y , P EL A1,ECBBA,A1 GET USER BUFFER ADDRESS Y * P LD
0x19f710…19f8a4 Dummy {f00=0x0111, f01=0x0190, f02=») TIPO30 USER BUFFER ADDRESS UNEVEN? Y P ST A2,ECBBA,A8 Z , P* Z D 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Z N P* Z PTIPO20 RTN A15 Z P* Z 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Z 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER A
0x19f8a4…19fa38 Dummy {f00=0x0111, f01=0x0190, f02=» A1,1 UPDATE USER BUFFER POINTER Z ( P ADK A2,2 UPDATE DWT BUFFER POINTER [ ( ( P RB TIPO10 MOVE REMAINING CHARACTERS [ T P* [ P EJECT TOSSIO [ P* [ P* I O : E R R [ P* [ , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. [ B P* SET RETURN
0x19fa38…19fbcc Dummy {f00=0x0111, f01=0x0190, f02=» EXIT FOR MMU ROUTINES [ v P INH $ P ADKL A15,4 ADJUST STACKPOINTER * " P LD A1,DWTST,A6 GET DWT STATUS R P SLL A1,2 CHECK ECHO BIT x P RF(NN) IO:E10 NOT ECHO? P LDR A1,A6 SAVE DWT ADDRESS * P LD A6,DWTECH,A6 GET ECHO DWT ADDRESS
0x19fbcc…19fd60 Dummy {f00=0x0111, f01=0x0190, f02=»ISEND BRANCH TO DISPATCHER VIA TENDIO P* ] . P EJECT TOSSIO ] 8 P* ] P P* T I O M X O ] Z P* ] p " PTIOMXO EQU TIOMXI MUX, OUTPUT ] z P* ] P* T I O K B O ] P* ] * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT ] P* ] P* T I
0x19fd60…19fef4 (2, 117) Dummy {f00=0x0111, f01=0x0190, f02=»: D M ] P* ^ 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ^ . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ^ R P* ^ P* INPUT: A6 = FDB ADDRESS ^ $ P* A8 = USER ECB ADDRESS ^ P* ^ " P* OUTPUT: A1-A2 ARE DESTROYED ^ P
0x19fef4…1a0088 Dummy {f00=0x0111, f01=0x0190, f02=»A2,ECBCW2+1,A1 ^ P ES A2,ECBCW2,A8 _ P RTN A15 _ . P* _ > P EJECT TOSSIO _ H P* _ ` P* T E N P C I _ j P* _ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN _ @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED CH
0x1a0088…1a021c Dummy {f00=0x0111, f01=0x0190, f02=»Y 'TIO' AT _ ` & P* ISSUING THE REQUEST IS 'TIOPCI'. ` D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. ` < 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. ` P* ` P* INPUT: A6 = DWT ADDRESS ` $ P* A8 = USER ECB ADDR
0x1a021c…1a03b0 Dummy {f00=0x0111, f01=0x0190, f02=» GET DWT ECB ADDRESS ` ( P LD A4,ECBEL,A2 GET EFFECTIVE LENGTH a " P RF(NP) TEPI30 NO MOVE IF ZERO a H * P LD A1,ECBBA,A2 GET DWT BUFFER ADDRESS a n P* a . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' a , P EL A2,ECBBA,A8 GET USER BUFFER ADDRESS a $ P
0x1a03b0…1a0544 Dummy {f00=0x0111, f01=0x0190, f02=»ADDRESS a p , P RF(Z) TEPI60 USER BUFFER ADDRESS EVEN? b P* b @ P EJECT TOSSIO b J P* b b P* b l 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN b v 4 P LDR* A3,A1 GET FIRST CHARACTER FROM DWT BUFFER b P ELR A8,A2 b P* b * PTEPI15 A
0x1a0544…1a06d8 Dummy {f00=0x0111, f01=0x0190, f02=»UFFER b l $ P ADK A1,1 UPDATE BUFFER POINTERS c P ADK A2,1 c 6 P SUK A4,1 c H * P RF(P) TEPI25 MORE CHARACTERS TO MOVE? c Z P RTN A15 NO, RETURN c P* c PTEPI20 TM A3,A2 c , P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN? c & P LDR A3,A1 GET DWT
0x1a06d8…1a086c Dummy {f00=0x0111, f01=0x0190, f02=»IS CHAR. ONE BYTE TO THE RIGHT c ~ & P SUK A3,1 POINT TO NEXT CHARACTER d & 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER d P , P RB(NE) TEPI23 MORE CHARACTERS TO MOVE? d 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN d P RB TEPI10 d P* d P
0x1a086c…1a0a00 Dummy {f00=0x0111, f01=0x0190, f02=»ENGTH UNEVEN? d v 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER e P* e J PTEPI30 RTN A15 e T P* e j , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN e t ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN e . P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE? e P LDR A
0x1a0a00…1a0b94 (2, 118) Dummy {f00=0x0112, f01=0x0190, f02=»* e PTEPI50 EQU * f 2 P LDR* A8,A1 GET LAST CHARACTER FROM DWT BUFFER f P ELR A3,A2 f T P RB TEPI15 f f P* f x . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN f & P LDR A3,A1 GET DWT BUFFER ADDRESS f $ P ADR A1,A4 ADD EFFECTIVE LENGTH f P*
0x1a0b94…1a0d28 Dummy {f00=0x0112, f01=0x0190, f02=»ACTER f t * P CWR A3,A1 COMPARE WITH ENDING ADDRESS g , P RB(NE) TEPI70 MORE CHARACTERS TO MOVE? g < . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS g l * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN g P RB TEPI25 g P* g P EJECT TOSSIO g P* g
0x1a0d28…1a0ebc Dummy {f00=0x0112, f01=0x0190, f02=»RD, INPUT g x P* h P* T E N I T I h P* h 2 4 PTENITI EQU TENPCI INTERTASK COMMUNICATION, INPUT h < P* h t P* T E N P C O h ~ P* h 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT h P* h P* T E N M X O h P* h " PTENMXO EQU A
0x1a0ebc…1a1050 Dummy {f00=0x0112, f01=0x0190, f02=»SIO h P* i P* T E N I T O i P* i , F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN i 6 L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS i J P* OF THE USER BUFFER TO THE DRIVER BUFFER. THE ENTRY TIP
0x1a1050…1a11e4 Dummy {f00=0x0112, f01=0x0190, f02=»-A4, A8 ARE DESTROYED i P* j 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT j ( ( P LD A8,DWTECB,A6 GET DWT ECB ADDRESS j ( P LD A3,ECBEL,A8 GET EFFECTIVE LENGTH j P RF(NP) TEIO10 NO MOVE? j * P LD A1,DWTUEC,A6 GET USER ECB ADDRESS j ( P CF A1
0x1a11e4…1a1378 Dummy {f00=0x0112, f01=0x0190, f02=»* j < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER k < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO k J < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' k " P* IS USED FOR MOVING THE DATA. k P* k P* INPUT: A6 =
0x1a1378…1a150c Dummy {f00=0x0112, f01=0x018e, f02=» 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER l " * P TS 2,A15 SAVE MMU REGISTERS ON STACK l J & P LD A5,DWTTAB,A6 GET TTAB ADDRESS l x $ P TL TTB:MT,A5 LOAD MMU REGISTERS l ( P LD A8,DWTMEC,A6 GET DWT ECB ADDRESS l P ENB l ( P CF A1
0x1a150c…1a16a0 Dummy {f00=0x0112, f01=0x0190, f02=» $ P ADKL A15,32 ADJUST STACKPOINTER m * P MLR 8,A15 RESTORE A1-A8 FROM STACK... m , P RTN A15 ...AND RETURN m Z P XIF m x P* m P EJECT TOSSIO m P* m P* D C : M I N m P* m < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER
0x1a16a0…1a1834 (2, 119) Dummy {f00=0x0112, f01=0x0190, f02=» A4 = DRIVER BUFFER ADDRESS m P* A6 = DWT ADDRESS n * P* n L ( P* OUTPUT: NO REGISTERS ARE DESTROYED n V P* n PDC:MIN EQU * n P IFT MMUPAG=0 n P IFT CPU852=1 n & P CF A15,SAVE8 SAVE A1-A8 ON STACK n P XIF n P* n
0x1a1834…1a19c8 Dummy {f00=0x0112, f01=0x0190, f02=» TS 2,A15 SAVE MMU REGISTERS ON STACK n " P LD A5,DWTTAB,A6 TTAB ADDRESS o . $ P TL TTB:MT,A5 LOAD MMU REGISTERS o T P XIF o | P* o P EJECT TOSSIO o P* o & P* CHECK MESSAGE LENGTH AND DECIDE o $ P* IF TTMJOB IS TO BE ACTIVATED. o P*
0x1a19c8…1a1b5c Dummy {f00=0x0112, f01=0x018e, f02=»PU852=1 o P LDK A7,128 852 CPU p ( P ANK A5,1 CHECK USER BUFFER ADDRESS p , . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN p X P ADK A7,128 A7 := 256 p P XIF p P* p P IFT MMUPAG=0 p P IFT CPU852=0 p P IFT CPU857=0 p P LDK A7,
0x1a1b5c…1a1cf0 Dummy {f00=0x0112, f01=0x0190, f02=» p x P XIF q P* q P IFT MMUPAG=0 q P IFT CPU852=0 q 4 P IFT CPU857=1 q J P LDKL A7,256 857 CPU q ` ( P ANK A5,1 CHECK USER BUFFER ADDRESS q | . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN q P ADR A7,A7 A7 := 512 q P XIF q P* q
0x1a1cf0…1a1e84 Dummy {f00=0x0112, f01=0x0190, f02=»FER ADDRESS q x P LDKL A7,256 r ( P ANK A5,1 CHECK USER BUFFER ADDRESS r ( . P RF(NZ) DCMI00 USER BUFFER ADDRESS UNEVEN r T P SLL A7,3 A7 := 2048 r P XIF r P* r PDCMI00 EQU * r 8 P CW A7,ECBEL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH r 2 P
0x1a1e84…1a2018 Dummy {f00=0x0112, f01=0x018e, f02=»IVER r t P IFT CPU852=1 s ( P ABL IHRET8 RESTORE A1-A8 AND RETURN s " P XIF s N P* s Z P IFT MMUPAG=0 s d P IFT CPU852=0 s z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... s P* s PDC:MOT RTN A15 ...AND RETURN s P XIF s P* s P IFT M
0x1a2018…1a21ac Dummy {f00=0x0112, f01=0x0190, f02=» s P* INPUT: A1 = RETURN CODE t P* A3 = ECB ADDRESS t * ( P* A4 = DRIVER BUFFER ADDRESS t L P* A6 = DWT ADDRESS t x P* t & P* OUTPUT: A1-A5, A7 ARE DESTROYED t P* t " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t *
0x1a21ac…1a2340 Dummy {f00=0x0112, f01=0x0190, f02=»RL,A3 CHECK IF USER BUFFER IS LARGE ENOUGH t $ P RF(G) MIN:70 NO, REQUEST ERROR u 2 P* u Z P IFT MMUPAG=0 u d ( P LD A5,ECBBA,A3 USER BUFFER ADDRESS u z P LDR A3,A5 u ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS U
0x1a2340…1a24d4 (2, 120) Dummy {f00=0x0112, f01=0x0190, f02=» u P* v PMIN:10 EQU * v P LDR* A3,A7 MOVE ONE WORD v & P STR A3,A5 v H ( P ADK A7,2 INCREMENT BUFFER POINTERS v Z P ADK A5,2 v $ P SUK A2,2 DECREMENT LOOP COUNTER v 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v PMIN:20 E
0x1a24d4…1a2668 Dummy {f00=0x0112, f01=0x0190, f02=»3,A7 MOVE ONE CHARACTER v P SCR A3,A5 w ( P ADK A7,1 INCREMENT BUFFER POINTERS w 2 P ADK A5,1 w ^ $ P SUK A2,1 DECREMENT LOOP COUNTER w p 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE w P XIF w P* w P IFT MMUPAG=1 w * P ST A1,ECB
0x1a2668…1a27fc Dummy {f00=0x0112, f01=0x018e, f02=»B ADDRESS w x ( P CF A15,TEN:DC MOVE BUFFER CONTENTS x & P LDR A4,A7 RESTORE BUFFER ADDRESS x > P LDK A1,0 x h P XIF x z P* x P EJECT TOSSIO x P* x P* x PMIN:40 EQU * x P INH x " P CF A15,TENDIO PERFORM TENDIO x P* x
0x1a27fc…1a2990 Dummy {f00=0x0112, f01=0x0190, f02=» PMIN:50 EQU * y " P LDR A2,A1 SAVE BUFFER ADDRESS y $ P LDR* A1,A2 NEXT BUFFER ADDRESS y > , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN y f P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y " P SUK A4,6 REAL BUFFER ADDRESS y " P STR A4,A2 UPDAT
0x1a2990…1a2b24 Dummy {f00=0x0112, f01=0x0190, f02=»L A1,/8008 REQUEST ERROR/INCORRECT LENGTH y $ P RB MIN:40 RETURN VIA TENDIO ETC z 2 P* z Z P EJECT TOSSIO z d P* z | P* D C M I N T z P* z 2 P* TTMJOB WILL BE DISPATCHED HERE TO CARRY OUT z 2 P* THE MOVE OF THE DC DRIVER BUFFER CONTENTS
0x1a2b24…1a2cb8 Dummy {f00=0x0112, f01=0x018e, f02=»SS z x ( P* A4 = DRIVER BUFFER ADDRESS { P* { 6 * PDCMINT EQU * TTMJOB MOVE BUFFER ENTRY { @ P LDR A6,A3 DWT ADDRESS { n P LD A3,DWTECB,A6 ECB ADDRESS { P* { P IFT MMUPAG=1 { P INH { " P LD A5,DWTTAB,A6 TTAB ADDRESS { $ P TL TT
0x1a2cb8…1a2e4c Dummy {f00=0x0112, f01=0x0190, f02=» P* | ( P CF A15,MINMOV MOVE BUFFER CONTENTS | P ABL MEXIT EXIT TTMJOB | : P* | X P EJECT TOSSIO | b P* | z P* Q M T A S K | P* | : P* WHEN THE MOVE WILL TAKE TOO LONG TIME TTMJOB WILL BE | 6 P* ACTIVATED AT ENTRY 'DCMINT' TO PERFO
0x1a2e4c…1a2fe0 Dummy {f00=0x0112, f01=0x018e, f02=» DRIVER BUFFER ADDRESS | P* A6 = DWT ADDRESS } P* } @ PQMTASK EQU * ACTIVATE TTMJOB } J $ P LDKL A2,DCMINT DISPATCH ADDRESS } n P LDR A3,A6 DWT ADDRESS } " P CF A15,QMJOB ACTIVATE TTMJOB } P LDKL A1,/8000 NOT BUSY BIT } " P ORS A1,DW
0x1a2fe0…1a3174 (2, 121) Dummy {f00=0x0112, f01=0x0190, f02=» } P IFT CPU852=1 ~ PDC:MOT INH ~ 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS ~ 0 P XIF ~ f P* ~ r P EJECT TOSSIO ~ | P* ~ P* ~ P********** ~ P* TENDIO * ~ P********** ~ P* ~ P* ~ . P* THIS MODULE IS CALLE
0x1a3174…1a3308 Dummy {f00=0x0112, f01=0x0190, f02=»O START THE TASK ~ z P* P* -IF NORMAL I/O WITH WAIT:- " P* F * P* QTJOB IS CALLED TO QUEUE THE TASK P 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- ~ P* P* A5 = TTAB ADDRESS P* $ P* -IF NORMAL I/O WITH NO WAI
0x1a3308…1a349c Dummy {f00=0x0112, f01=0x0190, f02=»ASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. P* F P EJECT TOSSIO P P* h P* r 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- | P* P* A1 = RETURN CODE P* P* A6 = DWT ADDRESS P* P*
0x1a349c…1a3630 Dummy {f00=0x0112, f01=0x018e, f02=» j P* P EJECT TOSSIO P* * P* END I/O ENTRY 4 P* L PTENDIO EQU * V P IFT CPU852=1 j & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P
0x1a3630…1a37c4 Dummy {f00=0x0112, f01=0x018e, f02=» , P LD A5,DWTTQ,A6 GET TERMINAL QUEUE LINK " P RF(Z) TEN110 NO TASK QUEUED? 4 P LD A2,TTB:ID,A5 GET TASK ID Z P ANKL A2,/FF44 ~ P CWK A2,'#D' CHECK TASK ID " P RF(E) TEN100 DM REQUEST NEXT? P LDKL A2,/800 ATTACH BIT P ANR* A2,A4
0x1a37c4…1a3958 Dummy {f00=0x0112, f01=0x0190, f02=» j P* P EJECT TOSSIO P* * P* 4 PTEN100 EQU * > , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS R P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST P* P* UPDATE ECB AND DWT P* 4 PTEN110 LD A5
0x1a3958…1a3aec Dummy {f00=0x0112, f01=0x0190, f02=»WTTDM,A6 GET TTAB ADDRESS 4 P CF A15,REQEND RESET REQUEST BUSY FOR ALL FILES " P* Z PTEN120 LDKL A2,/8000 d , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 $ P LD A3,DWTECB,A6 GET E
0x1a3aec…1a3c80 Dummy {f00=0x0112, f01=0x0190, f02=»RRS A2,A3 SET EVENT COMPLETED IN ECB , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB , P* P IFT MMUPAG=1 f P LD A4,TTB:PW,A5 GET PSW | & P ANK A4,1 GET SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE? P* P* LOAD MMU REGISTERS
0x1a3c80…1a3e14 (2, 122) Dummy {f00=0x0113, f01=0x018e, f02=»LOAD MMU REGISTERS FROM TTAB P* $ P EJECT TOSSIO . P* F P* MOVE DWT ECB TO USER ECB P P* r * P LD A8,DWTUEC,A6 GET USER ECB ADDRESS | P ELR A4,A8 * P ORR A4,A2 SET EVENT COMPLETED IN ECB P ESR A4,A8 P LDR A1,A3
0x1a3e14…1a3fa8 Dummy {f00=0x0113, f01=0x018e, f02=» ^ P* 8 P LD A3,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK & P LD A3,DEVIND,A3 GET DEVICE INDEX N . P RF(N) TEN160 NO SPECIAL ACTION REQUIRED? x " P RF(Z) TEN140 DATA MANAGEMENT? P* " P* PERFORM CHECK ON ORDER CODE P* ,
0x1a3fa8…1a413c Dummy {f00=0x0113, f01=0x0190, f02=» < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* H P EJECT TOSSIO R P* j P* RESTORE MMU REGISTERS t P* PTEN150 EQU * P INH P* PTEN160 EQU * . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK
0x1a413c…1a42d0 Dummy {f00=0x0113, f01=0x0190, f02=» WAIT OR ACTIVATION n P* PTEN200 EQU * & 0 P LD A4,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR : * P RF(Z) TEN250 NOT WAIT OR ACTIVATION? n P SUK A4,1 P RF(Z) TEN240 WAIT? P ADK A4,1 P LDR A3,A4 P ANK A3,1 P RF(Z) T
0x1a42d0…1a4464 Dummy {f00=0x0113, f01=0x0190, f02=»BIT j P RF(Z) TEN210 SYSTEM MODE? . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS . P XIF ` P* l PTEN210 EQU * v 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $
0x1a4464…1a45f8 Dummy {f00=0x0113, f01=0x0190, f02=»TEN220 P* P EJECT TOSSIO P* 0 P* : PTEN230 EQU * D 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR X . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS P RF TEN250 P* PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x1a45f8…1a478c Dummy {f00=0x0113, f01=0x40dc, f02=» IFT CPU852=1 P ABL IHRET8 P XIF * P* 6 P IFT CPU852=0 @ * P MLR 8,A15 RESTORE A1-A8 FROM STACK... V P RTN A15 ...AND RETURN P XIF P* P* P* P END @ PTEN240 EQU * 2 P CF A15,QTJOB WAIT
0x1a478c…1a4920 Dummy {f00=0x0113, f01=0x2008, f02=» NT TOSSIO END @ &
0x1a4920…1a4ab4 (2, 123) Dummy {f00=0x0113, f01=0x0000, f02=»
[…0x7…]
0x1a55c0…1a5754 (2, 124) Opaque[0x194]
0x1a5754…1a58e8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e98, f03=0x0000}
0x1a5754…1a58e8 IdxSect {
0x1a5754…1a58e8 f00 = 0x00f4 // 0x1a5754 @0x0
0x1a5754…1a58e8 f01 = 0x0036 // 0x1a5756 @0x2
0x1a5754…1a58e8 gno = [ // 0x1a5758 @0x4
0x1a5754…1a58e8 [0x00]: C0x00f4.0x3.0
0x1a5754…1a58e8 [0x01]: C0x00f5.0x0.0
0x1a5754…1a58e8 [0x02]: C0x00f5.0x1.0
0x1a5754…1a58e8 [0x03]: C0x00f5.0x2.0
0x1a5754…1a58e8 [0x04]: C0x00f5.0x3.0
0x1a5754…1a58e8 [0x05]: C0x00f6.0x0.0
0x1a5754…1a58e8 [0x06]: C0x00f6.0x1.0
0x1a5754…1a58e8 [0x07]: C0x00f6.0x2.0
0x1a5754…1a58e8 [0x08]: C0x00f6.0x3.0
0x1a5754…1a58e8 [0x09]: C0x00f7.0x0.0
0x1a5754…1a58e8 [0x0a]: C0x00f7.0x1.0
0x1a5754…1a58e8 [0x0b]: C0x00f7.0x2.0
0x1a5754…1a58e8 [0x0c]: C0x00f7.0x3.0
0x1a5754…1a58e8 [0x0d]: C0x00f8.0x0.0
0x1a5754…1a58e8 [0x0e]: C0x00f8.0x1.0
0x1a5754…1a58e8 [0x0f]: C0x00f8.0x2.0
0x1a5754…1a58e8 [0x10]: C0x00f8.0x3.0
0x1a5754…1a58e8 [0x11]: C0x00f9.0x0.0
0x1a5754…1a58e8 [0x12]: C0x00f9.0x1.0
0x1a5754…1a58e8 [0x13]: C0x0113.0x2.0
0x1a5754…1a58e8 [0x14]: C0x0113.0x3.0
0x1a5754…1a58e8 [0x15]: C0x0114.0x2.0
0x1a5754…1a58e8 [0x16]: C0x0114.0x3.0
0x1a5754…1a58e8 [0x17]: C0x0115.0x0.0
0x1a5754…1a58e8 [0x18]: C0x0115.0x1.0
0x1a5754…1a58e8 [0x19]: C0x0115.0x2.0
0x1a5754…1a58e8 [0x1a]: C0x0115.0x3.0
0x1a5754…1a58e8 ]
0x1a5754…1a58e8 }
0x1a58e8…1a5a7c Dummy {f00=0x00f4, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 9.2 79-12-20 870105040920 P : : P =1,FAULTY LENGTH OF TEMPORARY BUFFER,USED BY XMOVE B P REL 9.2 79-12-20 ST P ENTRY SYSLDM P*************************** P* * P* ENTRIES A
0x1a5a7c…1a5c10 Dummy {f00=0x00f4, f01=0x0190, f02=» P EXTRN REL P EXTRN SCLASS P EXTRN SCTADA , P EXTRN SCTANO B P EXTRN SCTBLK X P EXTRN SCTBUG n P EXTRN SCTCDT P EXTRN SCTDCT P EXTRN SCTDMC P EXTRN SCTDMI P EXTRN SCTDML P EXTRN SCTDMT P
0x1a5c10…1a5da4 Dummy {f00=0x00f4, f01=0x0190, f02=»RN SCTPAG P EXTRN SCTPLD P EXTRN STTPSZ ( P EXTRN SCTPSZ > P EXTRN SCTSEG T P EXTRN SCTSFA j P EXTRN SCTSWB P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXT
0x1a5da4…1a5f38 Dummy {f00=0x00f4, f01=0x0190, f02=»XTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDA * P EXTRN SAVE01 @ P EXTRN SAVE02 V P EXTRN SAVE03 l P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P E
0x1a5f38…1a60cc Dummy {f00=0x00f4, f01=0x0190, f02=» SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 & P EXTRN SAVE19 < P EXTRN SAVE20 R P EXTRN SAVE21 h P EXTRN NUMSEG ~ P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN BUFSIZ P EXTRN SYSBUF P EXTRN
0x1a60cc…1a6260 Dummy {f00=0x00f4, f01=0x0190, f02=» P P , P*************************************** , P* CONDITIONAL ASSEMBLY * D , P*************************************** t P ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS $ PCREDIT
0x1a6260…1a63f4 (2, 125) Dummy {f00=0x00f5, f01=0x0190, f02=»SS l 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME > $ PWBLEN EQU -4 LENGTH OF WORKBLOCK b P P $ P******************************* $ P* SAVE01URATION FILE (SAVE01) * $ P**********************
0x1a63f4…1a6588 Dummy {f00=0x00f5, f01=0x0190, f02=» , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS 4 $ PTDBTL EQU TDBMC+6 6A TASK LEVEL d : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7
0x1a6588…1a671c Dummy {f00=0x00f5, f01=0x0190, f02=»DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: & PCDBBT EQU 0 1A BLOCK TYPE J 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES l ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK
0x1a671c…1a68b0 Dummy {f00=0x00f5, f01=0x0190, f02=» l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS ( . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH N P EJECT P**************** P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P PLMP1 EQU
0x1a68b0…1a6a44 Dummy {f00=0x00f5, f01=0x0190, f02=»QU /10 PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 2 PLMP11 EQU 1 F P Z F P***************************************************************** f F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P*
0x1a6a44…1a6bd8 Dummy {f00=0x00f5, f01=0x0190, f02=»*************************************************************** P H P T P ` PCALL FORM 16=/F697,16 l P EJECT F P***************************************************************** F P* CONSTANTS USED IN SYS
0x1a6bd8…1a6d6c Dummy {f00=0x00f5, f01=0x018e, f02=» ********** P* * TTAB * P* ********** 8 P* PTTB:MT EQU -34 f PTTB:SB EQU -2 | PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40
0x1a6d6c…1a6f00 Dummy {f00=0x00f5, f01=0x0190, f02=» " PDWTCHP EQU 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS . PDWTECB EQU 4 ECB ADDRESS H PDWTOR EQU 6 ORDER h PDWTADR EQU 8 ADDRESS BLOCK PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINA
0x1a6f00…1a7094 (2, 126) Dummy {f00=0x00f5, f01=0x0190, f02=» *********** " P* * PAGTAB * " P* *********** < P* b PPAGQF EQU 0 l PPAGQB EQU 2 PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P*
0x1a7094…1a7228 Dummy {f00=0x00f5, f01=0x0190, f02=»CT P* * P* ******************* * P* * MISCELLANOUES * B * P* ******************* p P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6
0x1a7228…1a73bc Dummy {f00=0x00f5, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * P : P* * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * :
0x1a73bc…1a7550 Dummy {f00=0x00f5, f01=0x0190, f02=»TERS: * : P* * 4 : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDA * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDA * : P*
0x1a7550…1a76e4 Dummy {f00=0x00f5, f01=0x0190, f02=»**************** j PSYSLDM EQU * ( P ST P,SCTSFA+2 SAVE LOCATION COUNTER , . P LDKL A11,SYSBAS GET SYSBAS START ADDRESS X , P ST A11,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER & P ADK A1,2 RELOCATION ROUTINE ENTRY P
0x1a76e4…1a7878 Dummy {f00=0x00f5, f01=0x0190, f02=»RESS TO SCLASS? v $ P RF(E) NO:TCL YES:DUMMY TCLASS! , P CALL CHPTRS RELOCATE POINTERS IN TCLASS @ 6 P ST A2,SAVE18,A13 SAVE RELOCATED POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS
0x1a7878…1a7a0c Dummy {f00=0x00f5, f01=0x0190, f02=»EFA P LD A2,SCTSFA PCLRSYS EQU * " P SUK A1,2 6 P CMR A1 H P CWR A1,A2 X P RB(NE) CLRSYS j P LDKL A1,CONMON P AD A1,M:REL,A13 P ABR A1 P EJECT 4 /*********************************************** 4 /*
0x1a7a0c…1a7ba0 Dummy {f00=0x00f5, f01=0x0190, f02=»POINTER TO TCLASS/SCLASS ( P* A11 - SYSLOD START ADDRESS ( #* A12 - RELOCATION CONSTANT L * x 2 .* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS * * WORK REGISTER:A1-A7 * * SUBROUTINES: *
0x1a7ba0…1a7d34 (2, 127) Dummy {f00=0x00f5, f01=0x0190, f02=» OF TCLASS/SCLASS z CHPT10 EQU * . ) SUK A4,2 MOORE ENTRIES I TCLASS/SCLASS ? . RF(Z) CHPT30 NO! ` ADK A3,2 NEXT ENTRY z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE STR A5,A3 STORE $ LDR* A6,A5 GET LENGTH
0x1a7d34…1a7ec8 Dummy {f00=0x00f5, f01=0x0190, f02=» LDR* A7,A5 GET DWT-ADDRESS P LDR A9,A7 GET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES J P RB(G) CHPT20 DWT IN DRIVER! p ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS " P LD A8,SCTOPT GET OPTION WORD P ANK
0x1a7ec8…1a805c Dummy {f00=0x00f5, f01=0x0190, f02=»SS p * P ANKL A9,1 ADDRESS ALREADY RELOCATED? P RB(NZ) CHPT20 YES! 8 P ADR A8,A12 RELOCATE T . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED p , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 CHPT30 EQU * P RTN A14 P
0x1a805c…1a81f0 Dummy {f00=0x00f5, f01=0x0190, f02=»******************************************** * 4 * REFERENCED IN: MONCON > * ^ 2 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA h P EJECT 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABL
0x1a81f0…1a8384 Dummy {f00=0x00f5, f01=0x0190, f02=» ENTRY: SAVE01 - START OF SAVE01URATION DATA * 4 " * EXIT: A6 - START OF TC:TAB > $ * A7 - LENGTH OF TC:TAB d * * WORK REGISTERS: A2,A3 * * SUBROUTINES: * . )* TASK CONTROL TABLE L
0x1a8384…1a8518 Dummy {f00=0x00f5, f01=0x0190, f02=»___________________ z . ** I TTMJOB I . )* _________________________ N . ** I MONITOR TASKS I . )* _________________________ . ** I USER TASKS
0x1a8518…1a86ac Dummy {f00=0x00f5, f01=0x0190, f02=» OF SAVE01URATION DATA t ( $ LD A7,SCTSFA GET START OF FREE AREA LDR A6,A7 SAVE J & " LDKL A2,TTMJOB GET TTMJOB ADDRESS b ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY OPTIONS AVALIABLE?
0x1a86ac…1a8840 Dummy {f00=0x00f5, f01=0x0190, f02=»PTIONS AVALIABLE * h @ P* - TO BE PROVIDED * @ P*********************************************************** ` PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? P RF(Z) BTCT30 NO! P LDR A3,A2 SAVE
0x1a8840…1a89d4 (2, 128) Dummy {f00=0x00f5, f01=0x0190, f02=» A2,A3 GET SCTDMT P ANK A2,2 DM-TASK D1? P RF(Z) BTCT25 NO! 8 * P ADK A7,2 RESERV ENTRY FOR DM-TASK D0 R PBTCT25 EQU * P LDR A2,A3 GET SCTDMT P ANK A2,4 DMTASK D2? P RF(Z) BTCT30 NO! ( P ADK A7,2 RESERV ENTRY FOR DMTAS
0x1a89d4…1a8b68 Dummy {f00=0x00f5, f01=0x0190, f02=»SK DEFINITION BLOCK z * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK ENTRY & , P ST A7,SAVE02,A13 FIRST USER TASK ENTRY LCR A2,A11 GET BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? RF(E) BTCT35 YES P LDKL A1,LMP4 FORMAT
0x1a8b68…1a8cfc Dummy {f00=0x00f5, f01=0x0190, f02=» EQU * $ CALL GETTSK GET NUMBER OF TASKS PBTCT50 EQU * 6 , P ADK A7,2 RESERV ANOTHER ENTRY IN TC:TAB J & P CW A7,SCTEFA CHECK IF MEMORY LEFT z P RF(NE) BTCT55 YES! P LDKL A1,LMP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PBTCT55
0x1a8cfc…1a8e90 Dummy {f00=0x00f5, f01=0x0190, f02=» TASK DEFINITION BLOCK? RB(E) BTCT40 YES ! * ! : 4 0* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB ! D * ! | * % ST A7,SCTSFA UPDATE END OF FREE AREA ! SUR A7,A6 LENGTH OF TC:TAB ! & ! STR A7,A6 STORE LENGTH IN TC:TAB ! * P ST A6
0x1a8e90…1a9024 Dummy {f00=0x00f5, f01=0x0190, f02=»TT - BUILD DATA MANAGEMENT TASK TABLES * ! 6 1************************************************* " 2 * " l * &* ENTRY: SCTSFA - START OF FREE AREA " v * P* SCTTCT - ADDRESS TO TC:TAB " 2 -* SCTDMT - DATA MANAGEMENT INDICATOR "
0x1a9024…1a91b8 Dummy {f00=0x00f5, f01=0x0190, f02=» EQU * " * % LD A12,SCTSFA GET START OF FREE AREA # ( P LD A7,SCTTCT GET POINTER TO TC:TAB # < " ADK A7,4 FIRST DM-TASK ENTRY # h $ LD A2,SCTDMT DATA MANAGEMENT? # RF(Z) DMTTEX NO! # . ) LDR A3,A2 SAVE DATA MANAGEMENT INDICATOR # . * LD A6
0x1a91b8…1a934c Dummy {f00=0x00f5, f01=0x0190, f02=»L DMTGEN # DMTT10 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ $ ANK A2,2 DM-TASK D1? $ T RF(Z) DMTT20 NO! $ r P LDKL A1,'#E' TASK ID $ CALL DMTGEN $ DMTT20 EQU * $ , ( LDR A2,A3 GET DATA MANAGEMENT INDICATOR $ ANK A
0x1a934c…1a94e0 Dummy {f00=0x00f5, f01=0x018e, f02=» RTN A14 % EJECT % 6 2************************************************** % " 6 2* DMTGEN - GENERATE DATA MANAGEMENT TASK TABLE * % 6 2************************************************** % * % * ENTRY: A1 - TASK ID % , (* A6
0x1a94e0…1a9674 (2, 129) Dummy {f00=0x00f6, f01=0x0190, f02=» * EXIT: & * & * WORK REGISTERS: & * & 8 * SUBROUTINES: & B * & Z PDMTGEN EQU * & d " P LD A2,SCTOPT GET OPTION WORD & x P ANK A2,1 MMU OPTION? & P RF(Z) DMTG20 NO! & P LDK A4,0 RESET PAGE POINTER & PDMTG10 EQU * &
0x1a9674…1a9808 Dummy {f00=0x00f6, f01=0x0190, f02=»ER & n , P ADKL A12,2 INCREMENT MMU ENTRY POINTER ' P RB DMTG10 ' : PDMTG20 EQU * ' L " P LD A2,SCTOPT GET OPTION WORD ' ` P ANK A2,2 DISC PAGING? ' P RF(Z) DMTG40 NO! ' PDMTG30 EQU * ' & P ADKL A12,2 SEGMENT BLOCK ADDRESS ' PDMTG40 EQU *
0x1a9808…1a999c Dummy {f00=0x00f6, f01=0x0190, f02=»N ' l P LDKL A1,/0031 TASK LEVEL ( P ST A1,TTB:ST,A12 STORE ( , & P SLL A1,10 MOVE LEVEL TO LEFT BYTE ( L " P ORKL A1,/00C0 PROGRAM STATUS ( v $ P ST A1,TTB:PW,A12 STORE IN TTAB ( " ADKL A12,40 TERMINAL DEVICES ( LDK A1,6 LENGTH ( STR A
0x1a999c…1a9b30 Dummy {f00=0x00f6, f01=0x0190, f02=»DR A12,A1 RESERV SPACE FOR BUFFERS ( P LD A2,SCTSFA ) * P SUK A2,2 ) @ PDMTG50 ADK A2,2 ) R * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW ) j P RF(NE) DMTG60 NO! ) P LDKL A1,LMP3 ) ( P CALL ERROR INDICATE MEMORY OVERFLOW ) PDMTG60 CWR A2,A12 )
0x1a9b30…1a9cc4 Dummy {f00=0x00f6, f01=0x0190, f02=» ) r " * B:TT - BUILD TASK TABLES * * " ****************************** * . * * T * REFERENCED IN: MONCON * ^ * * ~ 4 P* ENTRY: SAVE01 - START OF SAVE01URATION DATA * * * 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * *
0x1a9cc4…1a9e58 Dummy {f00=0x00f6, f01=0x0190, f02=»* TASK TABLE LAYOUT * * &* ________________________ + , * &* I MMU I + Z * &* I TABLE I + * &* I 16 I + * &* I WORDS
0x1a9e58…1a9fec Dummy {f00=0x00f6, f01=0x0190, f02=»---- + n * &* TASK ENTRY I QUEUE I , * &* ------------------------ , : * &* TTB:ID I TASK IDENTIFICATION I , h * &* ------------------------ , * &* TTB:ST I STATUS/LEVEL I , * &* --------
0x1a9fec…1aa180 Dummy {f00=0x00f6, f01=0x0190, f02=»RAM STATUS WORD I , | * &* ------------------------ - * &* TTB:SA I DISPATCH ADDRESS I - H * &* ------------------------ - v * &* I REGISTER I - * &* I SAVE I - * &*
0x1aa180…1aa314 (2, 130) Dummy {f00=0x00f6, f01=0x0190, f02=» ------------------------ - * &* TTB:TD I TASK I . ( * P* I SAVE01URATION I . V * &* I TABLE I . * &* : : . * &* : : .
0x1aa314…1aa4a8 Dummy {f00=0x00f6, f01=0x018e, f02=» ______________________________ . 0 ,* I LENGTH I / * 0 ,* ------------------------------ / ^ 0 ,* I INDEX/FILCODE I / 0 ,* ------------------------------ / 0 ,*
0x1aa4a8…1aa63c Dummy {f00=0x00f6, f01=0x0190, f02=» / b 0 ,* : : 0 0 ,* ------------------------------ 0 < 0 ,* I INDEX/FILECODE I 0 p 0 ,* ------------------------------ 0 0 ,* I DWT-ADDRESS I 0
0x1aa63c…1aa7d0 Dummy {f00=0x00f6, f01=0x0190, f02=»D A11,SAVE01,A13 GET START OF SAVE01URATION DATA 0 . P LD A2,SCTDML GET NUMBER OF LOCAL DM-FILES 1 8 P SLL A2,2 MULTIPLY BY 4 1 j 6 P ST A2,SAVE04,A13 SAVE NUMBER OF BYTES TO RESERVE 1 PBTT10 EQU * 1 $ LCR A2,A11 GET FIRST BLOCK TYPE 1 ( # CCK A2,
0x1aa7d0…1aa964 Dummy {f00=0x00f6, f01=0x0190, f02=» 1 ( $* GET NUMBER OF TASKS IN THIS CLASS 2 * 2 4 CALL GETTSK 2 > P ST A1,SAVE19,A13 SAVE 2 R * 2 p * GET TASK ID START VALUE 2 z * 2 ( P LC A5,TDBID+4,A11 GET FIRST ID CHAR 2 SLL A5,8 MOVE TO LEFT BYTE 2 * P LC A5,TDBID+5,A11
0x1aa964…1aaaf8 Dummy {f00=0x00f6, f01=0x0190, f02=» VALUE 2 v P* 3 , P LC A5,TDBMC+4,A11 GET FIRST CHAR IN TCL 3 P SLL A5,8 MOVE TO LEFT BYTE 3 H . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL 3 l $ P CALL GETTCL GET TCL START VALUE 3 P ST A5,SAVE17,A13 SAVE 3 P XIF 3 P EJECT 3 * 3
0x1aaaf8…1aac8c Dummy {f00=0x00f6, f01=0x0190, f02=»+5,A11 GET SECOND DIGIT IN LEVEL 3 " CALL CONVRT CONVERT TO BINARY 4 ( P ST A1,SAVE24,A13 SAVE 4 N * 4 l B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE 4 v * 4 $ LDKL A10,TTB:TD STANDARD LENGTH 4 " P LD A5,SCTOPT GET OPTION W
0x1aac8c…1aae20 Dummy {f00=0x00f6, f01=0x0190, f02=»V SPACE FOR EXTRA WORDS 4 z RF BTT30 5 PBTT25 EQU * 5 2 " P LD A5,SCTOPT GET OPTION WORD 5 F P ANK A5,2 DISC PAGING? 5 l RF(Z) BTT30 NO 5 2 . SUKL A10,TTB:SB ONE WORD EXTRA IF DISC PAGING 5 0 , SUKL A12,TTB:SB RESERV SPACE FOR EXTRA WORD 5
0x1aae20…1aafb4 (2, 131) Dummy {f00=0x00f6, f01=0x0190, f02=»* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART 5 " P* OF TASK SAVE01URATION TABLE 6 @ * 6 f LDK A6,0 RESET LENGTH 6 p : 5 LDR A9,A11 INIT SUB-POINTER IN TASK DEFINITION BLOCK 6 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION 6 $ CAL
0x1aafb4…1ab148 Dummy {f00=0x00f6, f01=0x0190, f02=» 6 l & " ADR A1,A1 2*(BINARY CLASS NUMBER) 7 , P LD A8,SAVE18,A13 GET POINTER TO TCLASS 7 2 P LDR* A2,A8 7 b P SUK A2,2 7 v P CWR A1,A2 7 P RF(NG) BTT37 7 P LDKL A1,LMP4 7 & P CALL ERROR INDICATE FORMAT ERROR 7 PBTT37 EQU * 7 " P ADR
0x1ab148…1ab2dc Dummy {f00=0x00f6, f01=0x0190, f02=»GTH WORD 7 z ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH 8 . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH 8 < ADKL A9,TDC+TLC NEXT CLASS 8 n ( # SUK A7,1 DECREMENT NUMBER OF TDC:S 8 RB BTT35 8 P EJECT 8 PBTT40 EQU * 8 * 8 > :* COMPUTE S
0x1ab2dc…1ab470 Dummy {f00=0x00f6, f01=0x0190, f02=»EVICE CLASSES 8 l P ADKL A9,2 FIRST SDC RECORD 9 LDR A7,A1 SAVE 9 : PBTT50 EQU * 9 R RF(Z) BTT55 NO MOORE SDC:S 9 f ( $ CALL GETCLN GET CLASS NUMBER (1-99) 9 & " ADR A1,A1 2*(BINARY CLASS NUMBER) 9 , P LD A8,SAVE11,A13 GET POINTER TO SCLASS
0x1ab470…1ab604 Dummy {f00=0x00f6, f01=0x0190, f02=»ERROR 9 t PBTT52 EQU * : " P ADR A8,A1 GET ENTRY IN SCLASS : " $ P LDR* A8,A8 GET POINTER TO CLASS : H $ P LDR* A8,A8 GET LENGTH OF CLASS : p " SUKL A8,2 EXCLUDE LENGTH WORD : ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH : . ) ADR A6,A8 ADD TO TASK CONF. T
0x1ab604…1ab798 Dummy {f00=0x00f6, f01=0x0190, f02=»D A7,SAVE04,A13 GET NUMBER OF BYTES TO RESERV : ( P ADR A10,A7 ADD TO TOTAL TTAB LENGTH ; 6 . P ADR A6,A7 ADD TO TASK CONF. TABLE LENGTH ; b " P ADK A6,2 INCLUDE LENGTH WORD ; 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB ; 8 P LD A8,SAVE19,A13 GET NU
0x1ab798…1ab92c Dummy {f00=0x00f6, f01=0x0190, f02=»B ; ^ * < ST A6,TTB:TD,A12 < * < . : 6* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD < 8 * < v $ P LD A5,SAVE24,A13 GET TASK LEVEL < $ ST A5,TTB:ST,A12 STORE IN TTAB < * < < 7* STORE TASK LEVEL IN LEFT BYTE OF PROGRAM ST
0x1ab92c…1abac0 Dummy {f00=0x00f6, f01=0x0190, f02=»2,1 MMU OPTION? < P ORR A5,A2 SET BIT 15 IF MMU = $ ST A5,TTB:PW,A12 STORE IN TTAB = < * = d ( $* STORE TASK IDENTIFICATION IN TTAB = n * = & P LD A5,SAVE16,A13 GET THIS TASK ID = $ ST A5,TTB:ID,A12 STORE IN TTAB = ADK A5,1 INCREMEN
0x1abac0…1abc54 (2, 132) Dummy {f00=0x00f6, f01=0x0190, f02=» IN TTAB = t P* > * P LD A5,SAVE17,A13 GET TCL START VALUE > " P ST A5,TTB:PP,A12 SAVE IN TTAB > H P ADK A5,1 INCREMENT TCL > n P ST A5,SAVE17,A13 SAVE > P XIF > , ' STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB > " ADK A7,2 NEXT ENTRY IN TC:TAB >
0x1abc54…1abde8 Dummy {f00=0x00f6, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS > | RB BTT60 ? & P EJECT ? 8 PBTT70 EQU * ? F * ? Z * &* RESET POINTER TO START OF FREE AREA ? d * ? " P LD A5,SCTOPT GET OPTION WORD ? P ANK A5,1 MMU PAGING? ? RF(Z) BTT80 NO ? ( # ADKL A12,TTB:MT
0x1abde8…1abf7c Dummy {f00=0x00f6, f01=0x0190, f02=»F(Z) BTT90 NO ? & " ADKL A12,TTB:SB SUBTRACT ONE WORD @ PBTT90 EQU * @ @ CALL NXTBLK GET NEXT BLOCK @ T ( # CCK A2,'TT' TASK DEFINITION BLOCK? @ x P RF(NE) BTT95 @ P LDKL A2,BTT20 @ P SUKL A2,REL @ P ADR A2,A13 @ P ABR A2 @ P
0x1abf7c…1ac110 Dummy {f00=0x00f6, f01=0x0190, f02=»,LMP3 @ ( P CALL ERROR INDICATE MEMORY OVERFLOW A PBTT105 CWR A2,A12 A : P RB(NE) BTT100 A T * & ST A12,SCTSFA SAVE START OF FREE AREA A j RTN A14 RETURN A P IFT CREDIT=1 A EJECT A ( $************************************ A ( $* SEGG
0x1ac110…1ac2a4 Dummy {f00=0x00f6, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA A , (* SCTLAC - START OF APPLICATION B , * B , (* EXIT: SCTPAG - ADDRESS TO PAGE TABLE B f * B * WORK REGISTERS: A1-A12 B * B * SUBROUTINES: GETCON B * B EJECT B PSEGG
0x1ac2a4…1ac438 Dummy {f00=0x00f6, f01=0x0190, f02=»,SCTADA APPLICATION DISC SECTOR ADDRESS B PSEG:05 EQU * C 0 0 P LD A2,SCTLAC LOGICAL ADDRESS OF COMMON PART C D P* C x " P* CHECK IF CREDIT APPLICATION C P* C P ADKL A2,PRGLG1 C P CALL GETCON C P CWK A1,'CR' C P RF(NE) SEGEX NOT CRED
0x1ac438…1ac5cc Dummy {f00=0x00f6, f01=0x0190, f02=»TABLE C p * P LDKL A1,/8400 STATUS FOR FIRST BLOCK D $ P STR A1,A12 STORE IN FIRST BLOCK D < 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART D d & P CALL GETCON GET POINTER TO P:MTAB D P LDR A2,A1 SAVE POINTER D P ADKL A2,6 ADDRESS TO P:BAS D
0x1ac5cc…1ac760 Dummy {f00=0x00f6, f01=0x0190, f02=»L ADDRESS TO COMMON PART D x * P ADKL A2,NUMSEG GET NUMBER OF SEGMENTS E CALL GETCON E N ( # LDR A4,A1 SAVE NUMBER OF SEGMENTSS E d P RF(Z) SEG:50 NO SEGMENTS! E " ADK A2,2 FIRST SEGMENT BLOCK E " P LDK A3,1 INIT SEGMENT NUMBER E PSEG:10 EQU
0x1ac760…1ac8f4 (2, 133) Dummy {f00=0x00f7, f01=0x0190, f02=»OPT GET OPTION WORD E P ANK A1,2 DISC PAGING? F P RF(NZ) SEG:35 YES! F : PSEG:30 EQU * F V * P LDKL A7,/8800 INDICATE LOADED IN CORE F j PSEG:35 EQU * F 2 P ORR A7,A3 INSERT SEGMENT NUMBER IN RIGHT BYTE F STR A7,A12 SET STATUS F $ ADKL A1
0x1ac8f4…1aca88 Dummy {f00=0x00f7, f01=0x0190, f02=»SC PAGING? F RF(Z) SEG:40 G CALL GETCON G * , ( ADR A1,A5 PHYSICAL DISC SECTOR ADDRESS G > PSEG:40 EQU * G n STR A1,A12 SAVE IN SEGBLK G $ ADKL A12,2 NEXT ENTRY IN SEGBLK G ADK A2,2 EFFECTIVE LENGTH G CALL GETCON G STR A
0x1aca88…1acc1c Dummy {f00=0x00f7, f01=0x018e, f02=» SUK A4,1 DECREMENT NUMBER OF SEGMENTS G RB(P) SEG:10 H . PSEG:50 LD A2,SCTSFA H D P SUK A2,2 H ` PSEG:60 ADK A2,2 H r P CW A2,SCTEFA H P RF(NE) SEG:70 H P LDKL A1,LMP3 H ( P CALL ERROR INDICATE MEMORY OVERFLOW H PSEG:70 CWR A2,A1
0x1acc1c…1acdb0 Dummy {f00=0x00f7, f01=0x0190, f02=» P EJECT I D P*************************************************************** I D P* * I Z D P* * I D P*
0x1acdb0…1acf44 Dummy {f00=0x00f7, f01=0x0190, f02=»============================== * I z D P* * J 2 D P* REFERENCED IN: SYSLDM * J z D P* * J D
0x1acf44…1ad0d8 Dummy {f00=0x00f7, f01=0x0190, f02=»* J R D P* EXIT: * K D P* * K R D P* WORK REGISTERS: A1-A12 * K D P*
0x1ad0d8…1ad26c Dummy {f00=0x00f7, f01=0x018e, f02=» - ADDRESS TO S:BTAB PROTOTYPE * K r D P* A10 - SWB BLOCK POINTER * L * D P* A11 - POINTER IN CONF. FILE * L r D P* A12 - ADDRESS TABLE POINTER * L D P*
0x1ad26c…1ad400 Dummy {f00=0x00f7, f01=0x0190, f02=» D P* * M D P* * M L D P*************************************************************** M P EJECT M PB:SWBT EQU * M & P LD A12,SC
0x1ad400…1ad594 (2, 134) Dummy {f00=0x00f7, f01=0x0190, f02=»IN CONF. FILE M h P* N & PBSWT10 CALL NXTBLK GET NEXT BLOCK N ( P CCK A2,'TT' TASK DEFINITION BLOCK? N J P RB(E) BSWT10 YES! N v 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? N P RF(NE) BSWT20 NO! N P ADKL A11,1 N " P CALL NXTCOM SKIP COMM
0x1ad594…1ad728 Dummy {f00=0x00f7, f01=0x0190, f02=» A6,A11 N & P CALL GETNUM NUMBER OF UWB RECORDS O P LDR A1,A5 SAVE O : $ P RF(Z) SWBERR ILLEGAL NUMBER!!! O R ( P ADKL A11,UDBFST-1 FIRST UWB RECORD O z ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD O $ P SUK A1,1 DECR. NUMBER OF TYPES O P RB(P) BSWT30
0x1ad728…1ad8bc Dummy {f00=0x00f7, f01=0x018e, f02=» O ~ ( P LDKL A1,0 NO SWB DEFINITION BLOCK! P $ P ST A1,SCTSWB CLEAR SWB POINTER P 4 P RTN A14 P & PBSWT44 ADKL A11,1 NUMBER OF TYPES P l * P ST A11,SAVE23,A13 START OF CONF. DATA P P LDR A6,A11 P P CALL GETNUM GET 3 DIGITS P P LDR A5,A5 ZER
0x1ad8bc…1ada50 Dummy {f00=0x00f7, f01=0x018e, f02=» P j P RF(NZ) BSWT48 FILE CREATED Q " PSWBERR LDKL A1,LMP6 SWB ERROR! Q , P CALL ERROR Q R 6 PBSWT48 ST A12,SCTSWB SAVE ADDRESS TO ADDRESS TABLE Q f , P ST A8,SAVE14,A13 SAVE ADDRESS TO $SWAP Q P ADKL A12,2 FIRST POINTER Q P LDR A10,A12 SAVE Q
0x1ada50…1adbe4 Dummy {f00=0x00f7, f01=0x0190, f02=» Q n P LDR A2,A1 SAVE R , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS R $ P CALL GETCON GET S:BTAB ADDRESS R P * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB R x * P RB(Z) SWBERR NO SWB:S IN APPLICATION! R P ADK A1,2 ADDRESS TO NAME R P ST A1,SAVE21,A13
0x1adbe4…1add78 Dummy {f00=0x00f7, f01=0x0190, f02=» SUK A1,2 SKIP LENGTH R . PBSWT50 ADKL A10,2 RESERV ENTRY FOR POINTER S 2 P SUK A1,6 DECREMENT LENGTH OF S:BTAB PROTOTYPE S P $ P RB(P) BSWT50 NEXT SWB-PROTOTYPE S P SUK A4,2 SKIP LENGTH WORD S " P LDKL A9,0 RESET BLOCK COUNTER S , PBSWT60 STR A10,A12
0x1add78…1adf0c Dummy {f00=0x00f7, f01=0x018e, f02=»B RECORDS S r 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. T $ P CALL GETCON GET TWO FIRST CHAR. T F ( P ADKL A11,NAMUWB NAME IN CONF. FILE T n P LCR A3,A11 GET FIRST CHAR. T P SLL A3,8 MOVE TO LEFT BYTE T " P LC A3,1,A11 GET SECOND CHAR. T & P
0x1adf0c…1ae0a0 Dummy {f00=0x00f7, f01=0x0190, f02=» T r P SRL A1,8 ISOLATE CHAR. U 0 P LC A3,2,A11 GET THIRD CHAR. FROM CONF. FILE U ( P ANK A3,/FF ISOLATE CHAR. U " P CWR A1,A3 THIRD CHAR. EQUAL? U ~ P RF(E) BSWT75 YES! U $ PBSWT70 ADKL A11,NAMUWB SKIP NAME U ( P SUK A7,1 DECREMENT NUMBER OF TYPE
0x1ae0a0…1ae234 (2, 135) Dummy {f00=0x00f7, f01=0x0190, f02=» U P STR A7,A10 1:ST WORD V P ST A7,2,A10 2:ND WORD V & P ST A7,4,A10 3:RD WORD V D P ST A7,6,A10 4:TH WORD V b P RF BSWT95 V PBSWT75 EQU * V P* V P* MATCHING NAME FOUND V P* V & P ADKL A11,NAMUWB NUMBER OF COPIES V P LDR A
0x1ae234…1ae3c8 Dummy {f00=0x00f7, f01=0x0190, f02=» RESTORE POINTER V $ P SUK A2,UPNAME PROTOTYPE ADDRESS W & P CALL GETCON GET PROTOTYPE ADDRESS W @ P LDR A2,A1 SAVE W j & P SUK A2,UPNAME LENGTH OF WORKBLOCK W P CALL GETCON W * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB W 0 P ST A8,2,A10 STORE DISC AD
0x1ae3c8…1ae55c Dummy {f00=0x00f7, f01=0x0190, f02=»REMENT SECTOR NUMBER W | & P ADK A1,1 INCREMENT SECTOR COUNTER X " P SUKL A3,400 DECREMENT LENGTH X F P RB(P) BSWT90 MOORE SECTORS? X l P SUK A5,1 MOORE COPIES? X P RB(P) BSWT85 YES! X * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH X ( P CW A8,SAVE25,A1
0x1ae55c…1ae6f0 Dummy {f00=0x00f7, f01=0x018e, f02=»OINTER X ~ & P ADKL A9,1 INCREMENT BLOCK COUNTER Y 4 P LD A2,SAVE21,A13 CURRENT RECORD IN PROT. S:BTAB Y 8 . P ADK A2,UP:REC NEXT RECORD IN PROT. S:BTAB Y p P ST A2,SAVE21,A13 SAVE Y 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB Y P SUK A4,UP:REC DECRE
0x1ae6f0…1ae884 Dummy {f00=0x00f7, f01=0x0190, f02=» Y P CALL ERROR SWB ERROR! Z 2 PBSWT99 ST* A9,SCTSWB SAVE NUMBER OF SWB TYPES Z & , P ST A10,SCTSFA UPDATE START OF FREE AREA Z P RTN A14 Z P XIF Z EJECT Z * &************************************** Z * &* MONBLK - GENERATE MONITOR BLOCKS
0x1ae884…1aea18 Dummy {f00=0x00f7, f01=0x018e, f02=»N SYSTEM) Z v $ P* WHERE N IS A SYSTEM CONSTANT [ $ P* DEFINED AT SYSTEM GENERATION [ : P* [ b * [ l * REFERENCED IN: SYSLOD [ v * [ * &* ENTRY: SCTSFA - START OF FREE AREA [ ( $* SCTEFA - END OF FREE AREA [ * [ . ** E
0x1aea18…1aebac Dummy {f00=0x00f7, f01=0x018e, f02=» * EJECT PMONBLK EQU * LDK A1,0 0 & ! LD A12,SCTSFA START OF FREE AREA B . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK l * $ * GET NUMBER OF TASKS IN SYSTEM * ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB P*
0x1aebac…1aed40 Dummy {f00=0x00f7, f01=0x0190, f02=» x RF(Z) MON:20 NO ] P CALL BLKGEN ] " RB MON:10 ] 6 PMON:20 EQU * ] H * ] * GENERATE 19 MOORE BLOCKS ] f * ] LDK A2,19 ] P CALL BLKGEN ] * ] * GENERATE END BLOCK ] * ] STR A1,A12 ] ST A1,2
0x1aed40…1aeed4 (2, 136) Dummy {f00=0x00f7, f01=0x0190, f02=» MONITOR BLOCK AS BUFFER ] | P* ^ & P LD A1,BUFSIZ,A13 GET BUFFER SIZE ^ * P CWK A1,6 >6? ^ T $ P RF(NL) MON:30 NOT LESS ANYWAY! ^ j P LDK A1,6 BUFFER SIZE ^ P ST A1,BUFSIZ,A13 STORE ^ & P ST A12,SYSBUF,A13 START OF BUFFER ^ PMON:30 EQU * ^
0x1aeed4…1af068 Dummy {f00=0x00f7, f01=0x0190, f02=»DKL A1,LMP3 ^ P CALL ERROR _ PMON:50 CWR A2,A12 _ ( P RB(NE) MON:40 _ B * & ST A12,SCTSFA UPDATE END OF FREE AREA _ X RTN A14 _ EJECT _ * %************************************* _ * %* BLKGEN - GENERATE MONITOR BLOCK * _ * %********
0x1af068…1af1fc Dummy {f00=0x00f7, f01=0x0190, f02=»ER OF BLOCKS TO BE GENERATED _ | $ * A12 - NEXT FREE ENTRY ` $ * ` L * EXIT: A1=0 ` V " * A12 - NEXT FREE ENTRY ` l * ` * WORK REGISTES: A3 ` * ` * SUBROUTINES: ` * ` 0 ,* MONITOR BLOC
0x1af1fc…1af390 Dummy {f00=0x00f7, f01=0x0190, f02=» -------------------- ` 0 ,* I DATA 0 I a $ 0 ,* -------------------- a X 0 ,* I DATA 0 I a 0 ,* -------------------- a * a EJECT a
0x1af390…1af524 Dummy {f00=0x00f7, f01=0x0190, f02=»A12 a ST A1,-2,A12 b SUK A3,1 b " RB BLK:10 b 4 PBLKEX EQU * b F RTN A14 b Z EJECT b j L J************************************************************************ b x J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK
0x1af524…1af6b8 Dummy {f00=0x00f7, f01=0x018e, f02=»* b , (* ENTRY: SCTSFA - START OF FREE ARE (X) c 2 P* SAVE01 - START OF SAVE01URATION FILE c : ( #* SCTEFA - END OF FREE AREA c p * c * EXIT: c * c * WORK REGISTERS: A1-A12 c * c < 8* SUBROUTINES: GETTSK,GETTD
0x1af6b8…1af84c Dummy {f00=0x00f7, f01=0x0190, f02=» c 2 P LD A11,SAVE01,A13 START OF SAVE01URATION FILE d & ! LD A12,SCTSFA START OF FREE AREA d > * d h 6 2* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK d r * d $ LCR A2,A11 GET FIRST CHARACTER d ( # CCK A2,'TT' TASK DEFINITION BLOCK? d
0x1af84c…1af9e0 Dummy {f00=0x00f7, f01=0x0190, f02=» * e , P LD A7,SAVE02,A13 FIRST USER TASK ENTRY e P SUK A7,2 e > EJECT e P PDWTS10 EQU * e ^ * e r . )* GET NUMBER OF TASKS IN THIS TASK CLASS e | * e CALL GETTSK e PDWTS20 EQU * e P ST A1,SAVE19,A13 SAVE e * e * &
0x1af9e0…1afb74 (2, 137) Dummy {f00=0x00f8, f01=0x0190, f02=»ADDRESS e z 6 P ADKL A10,TTB:TD+2 TASK SAVE01URATION TABLE ENTRY f * f J 0 ,* INIT SUB-POINTER IN TASK DEFINITION BLOCK f T * f . * LDR A9,A11 START OF TASK DEFINITION BLOCK f , ' ADKL A9,TDBFST START OF TDC DEFINITION f P EJECT f * f
0x1afb74…1afd08 Dummy {f00=0x00f8, f01=0x018e, f02=»WTS40 f P CALL GETCLN GET TDC ID g P ADR A1,A1 g . , P LD A8,SAVE18,A13 GET POINTER TO TCLASS g @ P ADR A8,A1 GET CLASS ENTRY g p $ P LDR* A8,A8 GET POINTER TO CLASS g $ P LDR* A8,A8 GET LENGTH OF CLASS g " P SUKL A8,2 EXCLUDE LENGTH WORD g * P
0x1afd08…1afe9c Dummy {f00=0x00f8, f01=0x0190, f02=» g j P RB DWTS30 h PDWTS40 EQU * h * h . , '* GET NUMBER OF SPECIAL DEVICE CLASSES h 8 * h h CALL GETSDC h r ADKL A9,SDCFST-CDBNC h LDR A1,A1 h PDWTS50 EQU * h P RF(Z) DWTS90 h P ST A1,SAVE17,A13 SAVE h * h * &
0x1afe9c…1b0030 Dummy {f00=0x00f8, f01=0x0190, f02=» CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS h * i 6 ADR A1,A1 i @ ( P LD A6,SAVE11,A13 POINTER TO SCLASS i R P ADR A6,A1 SELECT ENTRY i ~ $ P LDR* A6,A6 GET POINTER TO CLASS i P LDR A5,A6 SAVE i P LDR* A6,A6 GET LENGTH i " P SUK A6,2 EX
0x1b0030…1b01c4 Dummy {f00=0x00f8, f01=0x0190, f02=»ENERATION OF DWT? i ~ P RF(Z) DWTS70 NO j * j 2 * COPY DWT j < * j P LDR A2,A12 TO-ADDRESS j Z , ' ADR A12,A3 UPDATE POINTER TO FREE AREA j x CALL MOVE COPY DWT j P EJECT j P* j 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SY
0x1b01c4…1b0358 Dummy {f00=0x00f8, f01=0x0190, f02=»TOTYPE DWT-ADDRESS j ~ * P SUR A3,A2 COMPUTE RELOCATION CONSTANT k , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS k H P SUR A4,A3 RELOCATE k x $ P ANKL A4,/FFFE MAKE EVEN ADDRESS k " P ST A4,DWTMEC,A2 STORE IT BACK k PDWTS65 EQU * k $ LDR A1,A2 DT-ADDR
0x1b0358…1b04ec Dummy {f00=0x00f8, f01=0x0190, f02=»DDRESS k x $ LD A1,-2,A5 GET INDEX/FILECODE l STR A1,A10 SAVE IN TTAB l 6 2 P ADKL A10,4 UPDATE TASK SAVE01URATION POINTER l V PDWTS80 EQU * l * % SUK A6,4 DECREMENT NUMBER OF DEVICES l RB(P) DWTS60 NEXT DEVICE l P EJECT l * l 4 /
0x1b04ec…1b0680 Dummy {f00=0x00f8, f01=0x018e, f02=»DWTS50 l PDWTS90 EQU * m * m " 8 P* CHECK IF MOORE TASKS WITH THE SAME SAVE01URATION m , * m h P LD A1,SAVE19,A13 m r SUK A1,1 m RB(P) DWTS20 m * m , (* CHECK IF MOORE TASK DEFINITION BLOCKS m * m CALL NXTBLK m
0x1b0680…1b0814 (2, 138) Dummy {f00=0x00f8, f01=0x0190, f02=» P CW A2,SCTEFA n P RF(NE) DWTS99 n P LDKL A1,LMP3 n 0 ( P CALL ERROR INDICATE MEMORY OVERFLOW n F PDWTS99 CWR A2,A12 n r P RB(NE) DWTS95 n ST A12,SCTSFA n RTN A14 RETURN n EJECT n 4 0******************************************
0x1b0814…1b09a8 Dummy {f00=0x00f8, f01=0x018e, f02=»************************************** n * o . * REFERENCED IN: MONCON o 8 * o X * ENTRY: o b * o t * EXIT: o ~ * o * WORK REGISTERS: A1-A12 o * o D @* SUBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK o
0x1b09a8…1b0b3c Dummy {f00=0x00f8, f01=0x0190, f02=» o P LDK A1,0 p 0 P LDKL A11,BDWT05 GET END OF TEMP. WORK AREA p & P AD A11,M:REL,A13 RELOCATE ADDRESS p N P LDR A7,A11 SAVE p x 2 P SU A7,SCTSFA+2 COMPUTE SIZE OF TEMP WORK AREA p $ P CWK A7,1808 IS AREA BIG ENOUGH? p P RF(L) BDWT02 NO! p , P
0x1b0b3c…1b0cd0 Dummy {f00=0x00f8, f01=0x0190, f02=»NTERRUPT TABLE AT END OF FREE AREA p n * q * PBDWT02 EQU * q 4 ( P LD A11,SCTEFA GET END OF FREE AREA q H ( $ LD A9,SCTSFA GET START OF FREE AREA q t PBDWT05 EQU * q LDK A7,0 RESET WORD COUNTER q PBDWT10 EQU * q CWR A11,A9 MEMORY OVERFLOW?
0x1b0cd0…1b0e64 Dummy {f00=0x00f8, f01=0x0190, f02=»WORDS RESERVED? q RF(E) BDWT20 YES r $ SUKL A11,2 RESERV ANOTHER WORD r 2 P CMR A11 CLEAR MEMORY WORD r Z $ ADK A7,1 INCREMENT WORD COUNTER r | RB BDWT10 r PBDWT20 EQU * r * r 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES r
0x1b0e64…1b0ff8 Dummy {f00=0x00f8, f01=0x0190, f02=»2 r PBDWT30 EQU * s , ( STR A11,A7 SAVE INTERRUPT TABLE ADDRESS s & " ADK A7,2 NEXT ADDRESS TABLE ENTRY s N . * ADKL A11,224 NEXT INTERRUPT TABLE ADDRESS s x * % CW A11,SCTEFA ALL POINTERS INTIATED? s RB(NE) BDWT30 NO s * P ST A1,SCTEFA UPDATE E
0x1b0ff8…1b118c Dummy {f00=0x00f8, f01=0x0190, f02=» OF FREE AREA s x * t B >* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY t * t f 0 P LD A5,SAVE02,A13 GET FIRST USER TASK ENTRY t p 6 P ST A5,SAVE13,A13 STORE IN CURRENT USER TASK ENTRY t PBDWT40 EQU * t * t . )* GET NUMBE
0x1b118c…1b1320 Dummy {f00=0x00f8, f01=0x0190, f02=»Y VALUE t t * u @ ;* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS u * u ^ CALL GETTDC u h * u | $ * CHECK IF TASK WITHOUT DEVICES u * u $ LDR A1,A1 ANY TERMINAL DEVICES? u RF(Z) BDW100 NO u 6 P ST A1,SAVE15,A1
0x1b1320…1b14b4 (2, 139) Dummy {f00=0x00f8, f01=0x0190, f02=» u ^ * v ( #* GET TERMINAL DEVICE CLASS NUMBER v * v > . * LDR A9,A11 START OF TASK DEFINITION BLOCK v H 4 0 ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v z PBDWT55 EQU * v " CALL GETCLN GET CLASS NUMBER v ( P ST A1,SAVE14,A13 SAVE BINAR
0x1b14b4…1b1648 Dummy {f00=0x00f8, f01=0x018e, f02=»TLCN GET LINE CONNECTION NUMBER v LDR A6,A1 SAVE BINARY VALUE w ( . * ADK A1,1 INCREMENT LINE CONNECTION NUMBER w L 4 / CALL BINASC CONVERT INCREMENTED VALUE TO ASCII w ~ , ' SC A5,TDC+4,A9 STORE RIGHT ASCII DIGIT w 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI
0x1b1648…1b17dc Dummy {f00=0x00f8, f01=0x0190, f02=» * x 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF CLASS ID x ADR A2,A2 2*ID x D ( P LD A7,SAVE18,A13 POINTER TO TCLASS x P ADR A7,A2 GET ENTRY x P* x : P* CHECK IF THIS IS AN ENTRY IN TCLASS -TO BE SUPPLIED x P* x $ P LDR* A7,A7 GET PO
0x1b17dc…1b1970 Dummy {f00=0x00f8, f01=0x0190, f02=» , (* A7 - POINTER TO TERMINAL DEVICE CLASS y * y 4 . ** THE ENTRY IN TEMPORARY INTERRUPT TABLE y > . ** IS DERIVED FROM LINE CONNECTION NUMBER, y p : 6* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) y * y CALL DWTGEN y PBDWT90 EQU
0x1b1970…1b1b04 Dummy {f00=0x00f8, f01=0x0190, f02=»NO y , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER z $ ADKL A9,TDC+TLC NEXT TDC RECORD z : RB BDWT55 z b PBDW100 EQU * z t 2 P LD A1,SAVE13,A13 GET CURRENT ENTRY IN TC:TAB z & ! ADK A1,2 INCREMENT ENTRY POINTER z P ST A1,SAVE13,A13 SAVE z 8 P L
0x1b1b04…1b1c98 Dummy {f00=0x00f8, f01=0x0190, f02=»TASK DEFINITION BLOCKS z ~ * { $ CALL NXTBLK SKIP TO NEXT BLOCK { ( ( # CCK A2,'TT' TASK DEFINITION BLOCK? { P RB(E) BDWT40 YES { | * { 0 ,* ALL TERMINAL DEVICE WORK TABLES GENERATED { * { P LD A2,SCTSFA { P SUK A2,2 { PBD
0x1b1c98…1b1e2c Dummy {f00=0x00f8, f01=0x0190, f02=»B(NE) BDW105 { , P ST A12,SCTSFA UPDATE START OF FREE AREA | RTN A14 RETURN | D EJECT | , (**************************************** | l , P* B:CDT - BUILD COMMON DEVICE TABLE * | , (**************************************** | * | *
0x1b1e2c…1b1fc0 Dummy {f00=0x00f8, f01=0x018e, f02=» | ` ( $* SCTEFA - END OF FREE AREA } * } 4 4 0* EXIT: CDTAB - POINTER TO COMMON DEVICE TABLE } > * } v * WORK REGISTERS: A1-A12 } * } < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE } * } EJECT } PB:CD
0x1b1fc0…1b2154 (2, 140) Dummy {f00=0x00f8, f01=0x0190, f02=» } x * ~ * %* GET COMMON DEVICE DEFINITION BLOCK ~ * ~ @ PCDG:10 EQU * ~ J CALL NXTBLK ~ ^ ( # CCK A2,'TT' TASK DEFINITION BLOCK? ~ r RB(E) CDG:10 YES ~ ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? ~ P RF(NE) BCDTEX NO ~ P EJECT ~
0x1b2154…1b22e8 Dummy {f00=0x00f8, f01=0x0190, f02=»* ~ 0 P LDR A9,A11 START OF COMMON DEFINITION BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES > & P CALL GETCTC GET NUMBER OF C.T.C. x P LDR A6,A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-9
0x1b22e8…1b247c Dummy {f00=0x00f8, f01=0x0190, f02=»SS r P SUK A2,2 EXCLUDE LENGTH & P CWR A1,A2 MAKE SURE CLASS EXISTS * P RF(NG) B:CT20 OK! T P LDKL A1,LMP4 FORMAT ERROR! n P CALL ERROR , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS $ P LDR* A1,A
0x1b247c…1b2610 Dummy {f00=0x00f8, f01=0x0190, f02=»RD IN CONF. FILE v " P SUK A6,1 DECR. NBR OF C.T.C. P RB B:CT10 > P EJECT P PB:CT30 EQU * ^ P* r : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES | 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* CALL GE
0x1b2610…1b27a4 Dummy {f00=0x00f8, f01=0x018e, f02=» , P LD A5,SAVE11,A13 GET POINTER TO SCLASS P LDR* A2,A5 4 P SUK A2,2 H P CWR A1,A2 Z P RF(NG) BCDT15 l P LDKL A1,LMP4 P CALL ERROR PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS P
0x1b27a4…1b2938 Dummy {f00=0x00f8, f01=0x0190, f02=» P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYSICAL I/O ON DISC ` P* 6 P* ALSO RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR D
0x1b2938…1b2acc Dummy {f00=0x00f8, f01=0x0190, f02=»T DATA COMMUNICATION? " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? D " P LD A1,SCTOPT GET OPTION WORD ` $ P ANK A1,/A DISC PAGING OR SWB:S? , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! , P LD A6,SAVE11,A1
0x1b2acc…1b2c60 Dummy {f00=0x00f8, f01=0x018e, f02=»CLASS v * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS < " P SUK A6,2 EXCLUDE LENGTH WORD h & P ADR A7,A6 ADD TO LENGTH OF CD:TAB PCDG:15 EQU * , P LD A6,SCTDMC GET NUMBER OF GLOBAL FILES P SLL A6,2 MU
0x1b2c60…1b2df4 (2, 141) Dummy {f00=0x00f9, f01=0x0190, f02=» EJECT * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * Z ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT d $ P LCR A2,A11 COMMON DEVICE BLOCK? P CCK A2,'CC' P RF(E) CDG:18 * P ADKL A10,2 FIRST FREE ENTRY IN CDTAB
0x1b2df4…1b2f88 Dummy {f00=0x00f9, f01=0x0190, f02=» P* * P LDR A9,A11 START OF COMMON DEF. BLOCK 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES < & P CALL GETCTC GET NUMBER OF C.T.C. v , P LDR A1,A1 ANY COMMON TERMINAL CLASSES? PB:CT40 RF(Z) B:CT50 NO! P ST A1,SAVE15,A13 SAVE
0x1b2f88…1b311c Dummy {f00=0x00f9, f01=0x0190, f02=»A1 SAVE , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER & P ADR A2,A2 CONVERT TO DISPLACEMENT @ , P LD A7,SAVE18,A13 GET POINTER TO TCLASS j & P ADR A7,A2 SELECT ENTRY IN TCLASS $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S
0x1b311c…1b32b0 Dummy {f00=0x00f9, f01=0x0190, f02=»T COUNTER ~ P RB B:CT40 . PB:CT50 ADKL A10,2 NEXT FREE ENTRY IN CDTAB $ P EJECT V * d , '* GET NUMBER OF SPECIAL DEVICE CLASSES n * CALL GETSDC ADKL A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * P RF(NP)
0x1b32b0…1b3444 Dummy {f00=0x00f9, f01=0x0190, f02=»ASS IN SCLASS r * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS 6 PCDG:25 EQU * f P ADR A6,A1 SELECT CLASS z & P LDR* A5,A6 SAVE POINTER TO CLASS $ P LDR* A6,A6 GET POINTER TO CLASS $ P LDR* A6,A6 GET LENGTH OF CL
0x1b3444…1b35d8 Dummy {f00=0x00f9, f01=0x0190, f02=» LD A3,DWTLEN,A1 GENERATION OF DWT? RF(Z) CDG:40 NO , * D * COPY DWT N * b LDR A2,A12 TO-ADDRESS l , ' ADR A12,A3 UPDATE POINTER TO FREE AREA CALL MOVE COPY DWT P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU I
0x1b35d8…1b376c Dummy {f00=0x00f9, f01=0x0190, f02=» PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS L P ANKL A4,/FFFE MAKE IT EVEN! | P SUR A4,A3 RELOCATE " P ST A4,DWTMEC,A2 STORE IT BACK PCDG:35 EQU * " LDR A1,A2 DWT-ADD
0x1b376c…1b3900 Dummy {f00=0x00f9, f01=0x0190, f02=»RESS v LD A1,-2,A5 GET FILE CODE STR A1,A10 STORE IN TTAB . $ ADKL A10,4 NEXT ENTRY IN CD:TAB P & " SUK A6,4 DECREMENT DEVICE COUNTER x RB(P) CDG:30 NEXT DEVICE P EJECT * , (* CHECK IF MOORE SPECIAL DEVICE CLASSES
0x1b3900…1b3a94 (2, 142) Dummy {f00=0x00f9, f01=0x0190, f02=»CTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? F " P LD A5,SCTOPT GET OPTION WORD b $ P ANK A5,/A DISC PAGING OR SWB:S? , P ORR A1,A5 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:EX NO! , P LD A5,SAVE11,
0x1b3a94…1b3c28 Dummy {f00=0x00f9, f01=0x0190, f02=»Y x * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS 8 " P SUK A6,2 EXCLUDE LENGTH WORD d P RB CDG:30 PCDG:EX EQU * P LD A2,SCTSFA P SUK A2,2 PCDG:50 ADK A2,2 P CW A2,SCTEFA P R
0x1b3c28…1b3dbc Dummy {f00=0x00f9, f01=0x0190, f02=»T A12,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN . EJECT F J F********************************************************************** T H C* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS J F**************************
0x1b3dbc…1b3f50 Dummy {f00=0x00f9, f01=0x0190, f02=»INTER TO TERMINAL DEVICE CLASS IN TCLASS ~ * &* A6 - LINE CONNECTION NUMBER 0 * ^ * EXIT: h * x * WORK REGISTERS: A1-A8 * * SUBROUTINES: I:CHP,MOVE * EJECT PDWTGEN EQU * 2 P ST A6,SAVE08,
0x1b3f50…1b40e4 Dummy {f00=0x00f9, f01=0x0190, f02=»RST FILECODE PDWT10 EQU * . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT ( * Z 4 /* DERIVE CONTENT OF CHANNEL PARAMETER AND ALSO d 8 4* THE ENTRY TO BE USED IN TEMPORARY INTERRUPT TABLE 4 0* FROM LINE CONNECTION NUMBER AND PROTOTYPE DWT
0x1b40e4…1b4278 Dummy {f00=0x00f9, f01=0x0190, f02=»TS ENTRY) | * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER STORED IN BITS 12-15 P * %* OF THE GENERATED CHANNEL PARAMETER 2 P LD A4,SAVE05,A13 GET SAVED NUMBER IN BITS 4-6 , P LD A3,SCTSFA+2 FIRST INT TA
0x1b4278…1b440c Dummy {f00=0x00f9, f01=0x0190, f02=»AMETER v PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND * ADK A4,28 NEXT LINE P & " SUK A3,1 DECREMENT LINE PARAMETER l RB DWT15 EJECT PDWT17 EQU * 6 P ST A4,SAVE07,A13 SAVE INTERRUPT TABLE LINE ENTRY *
0x1b440c…1b45a0 Dummy {f00=0x00f9, f01=0x0190, f02=» DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES * 2 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT < P LDR A2,A6 SAVE p : 5 ANKL A6,/7100 GET DEVICE ADDRESS AND DEVICE TYPE BIT $ SLC A6,7 CHECK IF INPUT DEVICE P RF(N) DWT20 YES! P
0x1b45a0…1b4734 (2, 143) Dummy {f00=0x0113, f01=0x0190, f02=»WT20 NO! P SRL A6,2 P ADK A6,12 " RF DWT30 4 PDWT20 EQU * F P SRL A6,2 Z P SUK A6,2 l PDWT30 EQU * ~ ANK A6,/1E * 2 .* CHECK IF DWT ALREADY GENERATED ON THIS LINE * ADR A6,A4 TABLE ENTRY
0x1b4734…1b48c8 Dummy {f00=0x0113, f01=0x0190, f02=»T A2,DWTECH,A5 STORE REAL ECHODEVICE-DWTADDRESS , P CM DWTECB,A1 RESET POINTER TO INPUT-DWT 8 P RF DWT70 h P EJECT z P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P CWR A
0x1b48c8…1b4a5c Dummy {f00=0x0113, f01=0x0190, f02=»T70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS * D * COPY DEVICE TYPE DWT N * n LDR A2,A12 TO-ADDRESS x P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ * A1
0x1b4a5c…1b4bf0 Dummy {f00=0x0113, f01=0x0190, f02=»HECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT & ANKL A3,/0100 INPUT DEVICE? T RF(Z) DWT50 NO x * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x1b4bf0…1b4d84 Dummy {f00=0x0113, f01=0x0190, f02=»F KEYBOARD DWT IN THIRD WORD ~ . )* OF PROTOTYPE DWT OF OUTPUT ECHO DEVICE $ * V P LD A5,DWTECH,A1 ECHO? ` RF(Z) DWT40 NO ~ 6 P AD A5,M:REL,A13 RELOCATE ECHO DEVICE DWT-ADDRESS & P ST A2,4,A5 SAVE INPUT DWT-ADDRESS P EJECT P
0x1b4d84…1b4f18 Dummy {f00=0x0113, f01=0x0190, f02=»,DWTSQ DISPLACEMENT TO START OF BUFFER $ ST A5,DWTSQ-4,A2 STORE POINTER . $ ST A5,DWTSQ-2,A2 STORE POINTER V * ~ * IF DOUBLE KEYBOARD: D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING
0x1b4f18…1b50ac Dummy {f00=0x0113, f01=0x0190, f02=» DWT60 NOT DOUBLE KEYBOARD $ LDR A5,A2 GET REAL DWT-ADDRESS " ADK A5,1 ADD ONE J 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 d ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-AD
0x1b50ac…1b5240 Dummy {f00=0x0113, f01=0x0190, f02=» GET CORRESPONDING INPUT DWT-ADDRESS FROM THIRD WORD * IN THE DWT. < 8 3* SAVE ADDRESS OF THIS DWT IN WORD 18 OF INPUT DWT R $ * AND CLEAR WORD 3 OF THIS DWT. * 0 P LD A5,DWTECB,A2 GET THIRD WORD IN REAL DWT ( # RF(Z) DWT60 NOT ECH
0x1b5240…1b53d4 (2, 144) Dummy {f00=0x0113, f01=0x0190, f02=»DWT60 EQU * * * CHECK IF PAGING * 8 " P LD A5,SCTOPT GET OPTION WORD B P ANK A5,1 MMU PAGING? h RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS * P SUR
0x1b53d4…1b5568 Dummy {f00=0x0113, f01=0x0190, f02=»,DWTMEC,A2 STORE IT BACK * < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED * P* j & P LD A5,DWTADR,A2 GET ADDRESS BLOCK t 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $ P RF(Z) DWT70 ALLOCATE NO BUFFER! * L P*
0x1b5568…1b56fc Dummy {f00=0x0113, f01=0x0190, f02=» LDR A3,A12 INTERNAL BUFFER ADDRESS ADK A3,1 , , ( ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS @ P ST A3,2,A5 SAVE p P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 $ P ANKL A3,/FFFE MAKE LENGTH EVEN P EJECT
0x1b56fc…1b5890 Dummy {f00=0x0113, f01=0x018e, f02=»AN STORE THE ADDRESS AND SIZE OF THE , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. , * CW A3,BUFSIZ,A13 f RF(NG) DWT65 ST A3,BUFSIZ,A13 P ST A12,SYSBUF,A13 PDWT65 EQU * ADR A12,A3 NEXT FREE ENTRY P EJE
0x1b5890…1b5a24 Dummy {f00=0x0113, f01=0x0190, f02=» " P LDR* A5,A7 GET INDEX/FILECODE * P STR A5,A10 STORE IN TASK CONF. TABLE * " P ADKL A10,2 NEXT ENTRY IN TTAB X " P STR A2,A10 STORE DWT-ADDRESS ~ P* , '* CHECK IF MOORE DEVICES IN THIS CLASS * SUKL A8,4 RF(Z) DWTEX
0x1b5a24…1b5bb8 Dummy {f00=0x0113, f01=0x0190, f02=»DWTEX EQU * RTN A14 RETURN EJECT , * %************************************* : * %* I:CHP - INIT CHANNEL PARAMETER * h * %************************************* * * REFERENCED IN: DWTGEN * , (* ENTRY: A1 -
0x1b5bb8…1b5d4c Dummy {f00=0x0113, f01=0x0190, f02=»- POINTER TO TDC RECORD * & !* EXIT: A5 - CHANNEL PARAMETER * @ P* SAVE05 - SELECTS INTERRUPT TABLE (INTLT1-INTRT4) T 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * * WORK REGISTERS: A3,A4,A5 * * S
0x1b5d4c…1b5ee0 Dummy {f00=0x0113, f01=0x018e, f02=»E CONNECTION NUMBER | 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY P 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER | & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CH
0x1b5ee0…1b6074 (2, 145) Dummy {f00=0x0114, f01=0x0190, f02=» & " ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER . ANK A3,/18 GET BITS 11-12 SRL A3,2 MOVE TO BITS 13-14 ~ P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x1b6074…1b6208 Dummy {f00=0x0114, f01=0x0190, f02=»NZ) I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR F RF I:CH50 t PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SE
0x1b6208…1b639c Dummy {f00=0x0114, f01=0x018e, f02=»T 15 RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 " LDK A3,1 ENTRY SELECTOR L P ST A3,SAVE06,A13 SAVE l RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,
0x1b639c…1b6530 Dummy {f00=0x0114, f01=0x0190, f02=» . * SUK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 6 & " ADK A4,1 INCREMENT TABLE SELECTOR L RB I:CH60 v PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAV
0x1b6530…1b66c4 Dummy {f00=0x0114, f01=0x0190, f02=»:ITAB - BUILD REAL-TIME INTERRUPT TABLE * 2 .********************************************** 2 * h * REFERENCED IN: DWTGEN r * * &* ENTRY: SCTSFA - START OF FREE AREA * 8 4* EXIT: INTLT1-INTRT4 - REAL TIME INTERRUPT TABL
0x1b66c4…1b6858 Dummy {f00=0x0114, f01=0x0190, f02=» > P* A4 - LENGTH OF LINE SAVE01URATION TABLE * %* A5 - DEVICE COUNTER F ( #* A6 - LINE COUNTER t 2 P* A7 - DISPLACEMENT IN SAVE21 @ ;* A10- ADDRESS TO TEMPORARY INTERR
0x1b6858…1b69ec Dummy {f00=0x0114, f01=0x0190, f02=»INTERRUPT TABLE f * * SUBROUTINES " * 8 P EJECT B PB:ITAB EQU * P 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. d P LDR A11,A12 $ LDK A7,0 RESET POINTER IN IABAT PBIT10 EQU * P LDK A1,0 P ST A1,SAVE2
0x1b69ec…1b6b80 Dummy {f00=0x0114, f01=0x0190, f02=»Y INTERRUPT TABLE v * P LD A10,SCTSFA+2 $ ADR A10,A7 < LDR* A10,A10 P & P LDK A6,0 RESET LINE ENTRY POINTER f PBIT20 EQU * * 8 P* SAVE POINTER TO START OF LINE SAVE01URATION TABLE F P* IN TEMPORARY AREA AND RESET
0x1b6b80…1b6d14 (2, 146) Dummy {f00=0x0114, f01=0x018e, f02=»LENGTH OF LINE CONF.TABLE * " 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE , * &* TO POINT AT LAST INPUT DEVICE ENTRY ` * ADKL A10,12 LDK A5,7 ADKL A11,14 P EJECT * < 9* CHECK INPUT PART OF TEMPORA
0x1b6d14…1b6ea8 Dummy {f00=0x0114, f01=0x0190, f02=» RF(NZ) BIT40 YES PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY 2 RF(Z) BIT50 YES b * z < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INTERRUPT TABLE HAS BEEN OCCUPIED SO FAR * . P SUKL
0x1b6ea8…1b703c Dummy {f00=0x0114, f01=0x0190, f02=» ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) < H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY. * PBIT40 EQU * * % STR A1,A11 STORE CONTENT
0x1b703c…1b71d0 Dummy {f00=0x0114, f01=0x0190, f02=» IN T.I.T. z $ SUKL A11,2 NEXT ENTRY IN R.I.T. * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY : RB BIT40 h EJECT z PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE PART IN TEMPORARY INTERRUPT * TABLE HAS BEEN SCANNED.
0x1b71d0…1b7364 Dummy {f00=0x0114, f01=0x0190, f02=»R. z * ADKL A10,14 LDK A5,7 ( * : L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. D $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST UNOCCUPIED ENTRY (CONTENT=ZERO) IN THE LINE SAVE01URATION
0x1b7364…1b74f8 Dummy {f00=0x0114, f01=0x0190, f02=» * INCREMENT LENGTH * PBIT70 EQU * * LDR* A1,A10 OCCUPIED ENTRY? > RF(NZ) BIT90 YES b SUK A5,1 LAST ENTRY | RF(Z) BIT120 YES PBIT80 EQU * ADKL A10,2 NEXT ENTRY RB BIT70 PBIT90 EQU *
0x1b74f8…1b768c Dummy {f00=0x0114, f01=0x0190, f02=»IN LINE SAVE01URATION TABLE d * OF REAL INTERRUPT TABLE. $ * H P LDR* A2,A11 R RF(Z) BIT100 f P ADKL A11,2 | RB BIT90 EJECT PBIT100 EQU * * F P* AN UNOCCUPIED ENTRY HAS BEEN FOUND IN LINE SAVE01URATIO
0x1b768c…1b7820 Dummy {f00=0x0114, f01=0x0190, f02=»CONTENT ~ * P LD A1,SAVE23,A13 GET START OF L.C.T. " LDR A3,A11 GET CURRENT ENTRY > P SUR A3,A1 COMPUTE LENGTH d CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3 SAVE NEW LENGTH PBIT110 EQU * SUK A5,1 LAST ENT
0x1b7820…1b79b4 (2, 147) Dummy {f00=0x0115, f01=0x0190, f02=»NE J D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR R * " LDR A4,A4 ANY ENTRY OCCUPIED? RF(Z) BIT130 NO , P IM SAVE24,A13 INDICATE DEVICE
0x1b79b4…1b7b48 Dummy {f00=0x0115, f01=0x018e, f02=»ST WORD OF L.C.T. r LDR A11,A1 START OF L.C.T. . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. > ADKL A11,2 NEXT FREE ENTRY p RF BIT140 EJECT PBIT130 EQU * * * NO DEVICES ON THIS LINE. . P* -NO LINE SAVE01
0x1b7b48…1b7cdc Dummy {f00=0x0115, f01=0x0190, f02=» r PBIT140 EQU * $ ADKL A10,2 NEXT ENTRY IN T.I.T. $ ADK A6,1 INCREMENT LINE COUNTER D CWK A6,8 ALL LINES SCANNED? l RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY P RB BIT20 PBIT150 EQU * P* 6 P* STORE A
0x1b7cdc…1b7e70 Dummy {f00=0x0115, f01=0x0190, f02=»NT? n P RF(Z) BIT155 NO! 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS & P ST A1,INTLT1,A7 SAVE P RF BIT158 z PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA PBIT158 EQU * * : 6* ALL LINES OF THIS INT
0x1b7e70…1b8004 Dummy {f00=0x0115, f01=0x0190, f02=»XT ENTRY IN ITAB CWK A7,16 LAST ENTRY? RF(E) BIT160 YES 6 $ LDR A12,A11 GET NEXT FREE ENTRY P RB BIT10 x PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTERRUPT TABLE HAS BEEN SCANNED < 8* AND ALL THE REAL INTE
0x1b8004…1b8198 Dummy {f00=0x0115, f01=0x0190, f02=»CTSFA P SUK A2,2 PBIT165 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW 8 P RF(NE) BIT170 f P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW PBIT170 CWR A2,A11 P RB(NE) BIT165 ( P ST A13,SCTEFA SKIP TEMP.
0x1b8198…1b832c Dummy {f00=0x0115, f01=0x0190, f02=»*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= p 6 1* GENERAL SUBROUTINES * 8 T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= r 8 4**************************************
0x1b832c…1b84c0 Dummy {f00=0x0115, f01=0x0190, f02=»ASSES d P* 8 4**************************************************** * T " P* REFERENCED IN: B:TCT,B:CDT ^ * > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK * F A* EXIT: A1 - NUMBER OF TASKS IN THE TASK C
0x1b84c0…1b8654 (2, 148) Dummy {f00=0x0115, f01=0x0190, f02=» PGETCTC EQU * P LC A5,TDBNT,A11 SLL A5,8 0 P LC A5,TDBNT+1,A11 B CALL CONVRT RTN A14 p EJECT 8 4**************************************************** 8 4* GETTDC - GET NUMBER OF TERMINAL DEVICE CLASSES * 8 4**
0x1b8654…1b87e8 Dummy {f00=0x0115, f01=0x0190, f02=»O START OF TASK DEFINITION BLOCK v * ( D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) 2 * z * WORK REGISTERS: A5 * * SUBROUTINES: CONVRT * PGETTDC EQU * LC A5,TDBNC,A11 SLL A5,
0x1b87e8…1b897c Dummy {f00=0x0115, f01=0x018e, f02=»* ^ 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * 8 3*************************************************** F * * REFERENCED IN: B:TT * 4 /* ENTRY: A9 - POINTER TO NUMBER OF SDC RECORD * D ?* EXIT: A1 -
0x1b897c…1b8b10 Dummy {f00=0x0115, f01=0x0190, f02=» * PGETSDC EQU * LCR A5,A9 " P SLL A5,8 4 LC A5,1,A9 F CALL CONVRT Z RTN A14 n EJECT ~ 2 .********************************************** 2 .* GETCLN - GET CLASS IDENTIFICATION NUMBER * 2 .****************
0x1b8b10…1b8ca4 Dummy {f00=0x0115, f01=0x0190, f02=»CORD b * > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * X * WORK REGISTERS: A5 b * * SUBROUTINES: CONVRT * PGETCLN EQU * P LC A5,TDCDD1,A9 P SLL A5,8 P LC A5,TDCDD2,A9
0x1b8ca4…1b8e38 Dummy {f00=0x0115, f01=0x0190, f02=»CTION NUMBER * v . )***************************************** * J * REFERENCED IN: B:DWTT T * v 8 3* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD * : 5* EXIT: A1 - LINE CONNECTION NUMBER (BINARY VALUE) *
0x1b8e38…1b8fcc Dummy {f00=0x0115, f01=0x0190, f02=» A5,8 P LC A5,LCND2,A9 P CALL CONVRT & RTN A14 : P IFT CREDIT=1 J P EJECT ` : P***************************************************** n : P* * : P* GETTCL - GET TASK CLASS TO
0x1b8fcc…1b9160 Dummy {f00=0x0115, f01=0x0190, f02=» * f : P* REFERENCED IN: B:TT * : P* * R : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * : P* *
0x1b9160…1b92f4 (2, 149) Dummy {f00=0x0115, f01=0x0190, f02=»REGISTERS: A1-A7,A10 * : P* * 6 : P* SUBROUTINES: GETTSK,NXTBLK * t : P* * : P************************
0x1b92f4…1b9488 Dummy {f00=0x0115, f01=0x0190, f02=»,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? j P RF(E) TCL:60 YES! . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL P SLL A5,8 MOVE TO LEFT BYT
0x1b9488…1b961c Dummy {f00=0x0115, f01=0x0190, f02=»R OF COPIES z P ADR A7,A1 INCREMENT TCL 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK 4 P RB TCL:10 h , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL z P RTN A14 P XIF EJECT B >****************************************************
0x1b961c…1b97b0 Dummy {f00=0x0115, f01=0x018e, f02=»ONVERTED * j * " B >************************************************************** , * r * REFERENCED IN: B:DWTT | * , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED
0x1b97b0…1b9944 Dummy {f00=0x0115, f01=0x0190, f02=» P SLL A5,8 P LCK A5,'00' LDK A2,0 * LDR A1,A1 < PBIN:20 EQU * N RF(Z) BINEX b ADK A2,1 v CWK A2,10 RF(E) BIN:30 SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0
0x1b9944…1b9ad8 Dummy {f00=0x0115, f01=0x018e, f02=»***************** x . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** L * ~ * REFERENCED IN: SEGGEN * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X)
0x1b9ad8…1b9c6c Dummy {f00=0x0115, f01=0x0190, f02=» PGETCON EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION B P RF(Z) GCON10 NO MMU ^ ELR A1,A2 z P RF GCON20 PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P EJECT PCONMON E
0x1b9c6c…1b9e00 Dummy {f00=0x0115, f01=0x0190, f02=» * D P**************************************************************** " P CALL B:TCT BUILD TASK TABLES 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES & P CALL B:TT BUILD USER TASK TABLES P IFT CREDIT=1 $ P CALL SEGGEN BUI
0x1b9e00…1b9f94 (2, 150) Dummy {f00=0x0115, f01=0x0190, f02=»MONBLK GENERATE MONITOR BLOCKS 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES & 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES * P CALL B:CDT BUILD COMMON DEVICE TABLES & P CALL B:ITAB BUILD INTERRUPT TABLE P IFT CREDIT=1 P EJECT
0x1b9f94…1ba128 Dummy {f00=0x0115, f01=0x0190, f02=»1,'CR' P RF(NE) SLDM70 P* $ : P* STORE OPTION WORD (SCTOPT) IN USER AREA (P:MTAB+34) . P* l " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU OPTION? P RF(Z) SLDM50 ( P EL* A1,SCTLAC GET ADDRESS TO P:MTAB " P LD A2,SCTOP
0x1ba128…1ba2bc Dummy {f00=0x0115, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD $ P ST A2,34,A1 STORE IN USER AREA $ PSLDM70 EQU * L P XIF ` P EJECT l F P***************************************************************** z F P* END OF MONITOR SAVE01URATION PART *
0x1ba2bc…1ba450 Dummy {f00=0x0115, f01=0x40c2, f02=»********* X P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x1ba450…1ba5e4 Dummy {f00=0x0115, f01=0x403c, f02=» 0 P******************************************** @ 8 END OF FREE AREA ( P LDR A8,A13 GET BASE-ADDRESS V $ P ADKL A8,SYSLDA START OF SYSLODA z P ABR A8 P END @ P* END OF MONITOR SAVE01URATION PART *
0x1ba5e4…1ba778 Dummy {f00=0x0115, f01=0x2008, f02=» P X ` h p
0x1ba778…1ba90c Dummy {f00=0x0115, f01=0x0000, f02=»
[…0x1…]
0x1baaa0…1bac34 (2, 151) Opaque[0x194]
0x1bac34…1badc8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f30, f03=0x0000}
0x1bac34…1badc8 IdxSect {
0x1bac34…1badc8 f00 = 0x00f9 // 0x1bac34 @0x0
0x1bac34…1badc8 f01 = 0x0054 // 0x1bac36 @0x2
0x1bac34…1badc8 gno = [ // 0x1bac38 @0x4
0x1bac34…1badc8 [0x00]: C0x00f9.0x2.0
0x1bac34…1badc8 [0x01]: C0x00f9.0x3.0
0x1bac34…1badc8 [0x02]: C0x00fa.0x0.0
0x1bac34…1badc8 [0x03]: C0x00fa.0x1.0
0x1bac34…1badc8 [0x04]: C0x00fa.0x2.0
0x1bac34…1badc8 [0x05]: C0x00fa.0x3.0
0x1bac34…1badc8 [0x06]: C0x00fb.0x0.0
0x1bac34…1badc8 [0x07]: C0x00fb.0x1.0
0x1bac34…1badc8 [0x08]: C0x00fb.0x2.0
0x1bac34…1badc8 [0x09]: C0x00fb.0x3.0
0x1bac34…1badc8 [0x0a]: C0x00fc.0x0.0
0x1bac34…1badc8 [0x0b]: C0x00fc.0x1.0
0x1bac34…1badc8 [0x0c]: C0x00fc.0x2.0
0x1bac34…1badc8 [0x0d]: C0x00fc.0x3.0
0x1bac34…1badc8 [0x0e]: C0x00fd.0x0.0
0x1bac34…1badc8 [0x0f]: C0x00fd.0x1.0
0x1bac34…1badc8 [0x10]: C0x00fd.0x2.0
0x1bac34…1badc8 [0x11]: C0x00fd.0x3.0
0x1bac34…1badc8 [0x12]: C0x00fe.0x0.0
0x1bac34…1badc8 [0x13]: C0x00fe.0x1.0
0x1bac34…1badc8 [0x14]: C0x00fe.0x2.0
0x1bac34…1badc8 [0x15]: C0x00fe.0x3.0
0x1bac34…1badc8 [0x16]: C0x00ff.0x0.0
0x1bac34…1badc8 [0x17]: C0x00ff.0x1.0
0x1bac34…1badc8 [0x18]: C0x00ff.0x2.0
0x1bac34…1badc8 [0x19]: C0x00ff.0x3.0
0x1bac34…1badc8 [0x1a]: C0x0100.0x0.0
0x1bac34…1badc8 [0x1b]: C0x0116.0x0.0
0x1bac34…1badc8 [0x1c]: C0x0116.0x1.0
0x1bac34…1badc8 [0x1d]: C0x0116.0x2.0
0x1bac34…1badc8 [0x1e]: C0x0117.0x2.0
0x1bac34…1badc8 [0x1f]: C0x0117.0x3.0
0x1bac34…1badc8 [0x20]: C0x0118.0x0.0
0x1bac34…1badc8 [0x21]: C0x0118.0x1.0
0x1bac34…1badc8 [0x22]: C0x0118.0x2.0
0x1bac34…1badc8 [0x23]: C0x0118.0x3.0
0x1bac34…1badc8 [0x24]: C0x0119.0x0.0
0x1bac34…1badc8 [0x25]: C0x0119.0x1.0
0x1bac34…1badc8 [0x26]: C0x0119.0x2.0
0x1bac34…1badc8 [0x27]: C0x0119.0x3.0
0x1bac34…1badc8 [0x28]: C0x011a.0x0.0
0x1bac34…1badc8 [0x29]: C0x011a.0x1.0
0x1bac34…1badc8 ]
0x1bac34…1badc8 }
0x1badc8…1baf5c Dummy {f00=0x00f9, f01=0x0190, f02=» 2 P IDENT SYSLDA REL 9.2 79-12-21 870105040920 P : ( P =5,MOVING AREAS>32K DOES NOT WORK B P REL 9.2 79-12-21 ST n . P =4, FAULTY STACK BASE & CWB/UWB BLOCKS P REL 9.1 79-07-17 , P =3, IMPOSSIBLE TO LOAD NON MMU SYSTEM
0x1baf5c…1bb0f0 Dummy {f00=0x00f9, f01=0x0190, f02=»ILIPS TERMINAL SYSTEM PTS P* " > P* SYSLDA = SYSTEM LOAD - APPLICATION CONFIGURATION PART , P* n P* x P* P* P* P* > P********************************************************** P* P* F P* THIS
0x1bb0f0…1bb284 Dummy {f00=0x00f9, f01=0x0190, f02=»* ENTERED AFTER MONITOR CONFIGURATION (PERFORMED BY SYSLDM), AND H P* IS AT THAT TIME LOCATED AT HIGHEST FREE ADDRESS OF SYSTEM AREA. J P* P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED
0x1bb284…1bb418 Dummy {f00=0x00f9, f01=0x0190, f02=»CREDIT APPLICATION: F P* SYSLDA READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & f . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW
0x1bb418…1bb5ac Dummy {f00=0x00f9, f01=0x0190, f02=»STACK AND TABLES ARE NOW d H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF l H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P*
0x1bb5ac…1bb740 Dummy {f00=0x00f9, f01=0x0190, f02=»'S ARE FILLED. A BRANCH IS FINALLY MADE TO x . P* P F I N I T TO START APPLICATION. 2 P EJECT d P r P*************************** ~ P* * P* ENTRIES AND EXTERNALS * P* *
0x1bb740…1bb8d4 (2, 152) Dummy {f00=0x00f9, f01=0x018e, f02=»LDA P ENTRY REL START OF CODE P ENTRY LDALEN PROGRAM LENGTH , P P P* SUBROUTINE ENTRIES X P ENTRY MOVE t P ENTRY ERROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM
0x1bb8d4…1bba68 Dummy {f00=0x00f9, f01=0x0190, f02=» ` P P* SAVE AND WORK AREA ENTRIES " P ENTRY MMTAB WORK-TABLE 1 (MMU 4 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 Z 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' , P ENTRY
0x1bba68…1bbbfc Dummy {f00=0x00f9, f01=0x0190, f02=»!!! d & P ENTRY SAVE01,SAVE12,SAVE03,SAVE04 & P ENTRY SAVE05,SAVE06,SAVE07,SAVE08 6 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ` & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 . P ENTRY SAVE21,SAVE22,SAVE23,SAVE24,SAVE25
0x1bbbfc…1bbd90 Dummy {f00=0x00f9, f01=0x0190, f02=»RESS TO COMMON PART v P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE @ " P EXTRN SCTEFA END OF FREE AREA d $ P EXTRN SCTNOS NUMBER OF SEGMENTS " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =
0x1bbd90…1bbf24 Dummy {f00=0x00f9, f01=0x0190, f02=»XTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE P EXTRN SCTBUG BUGGER ADDRESS 6 P Z P* EXTERNAL LABELS b 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART | $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXT
0x1bbf24…1bc0b8 Dummy {f00=0x00f9, f01=0x0190, f02=»TCHER ENTRY ~ P P* , P EXTRN TTB:SA START OF SAVE AREA IN TTAB & P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x1bc0b8…1bc24c Dummy {f00=0x00f9, f01=0x0190, f02=»MMUSWB EQU MMUPAG+SWPBLK P PSWBMMU EQU SWPBLK-MMUPAG ( P EJECT H P V P PROGRAM STRUCTURE: ^ P | F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x1bc24c…1bc3e0 Dummy {f00=0x00f9, f01=0x0190, f02=»-------------------------! h F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! " F P* !-----------------------------------------------------! l F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM. ! F P*
0x1bc3e0…1bc574 (2, 153) Dummy {f00=0x00fa, f01=0x0190, f02=»T 2.B J F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x1bc574…1bc708 Dummy {f00=0x00fa, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !----------------------------------------------
0x1bc708…1bc89c Dummy {f00=0x00fa, f01=0x0190, f02=»O FOLLOW SYSLDA ! l F P* ! ! & F P* ! C O M D A T ! p F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & UWB'S. ! F P*
0x1bc89c…1bca30 Dummy {f00=0x00fa, f01=0x0190, f02=» N F P* ! ! F P* ! C L A D A T ! R F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* ! AND DWB'S.
0x1bca30…1bcbc4 Dummy {f00=0x00fa, f01=0x0190, f02=»D ! z F P* ! -MOVE D.T. & W.B., COPY UWB'S ! 4 F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! ~ F P* ! -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE
0x1bcbc4…1bcd58 Dummy {f00=0x00fa, f01=0x0190, f02=» ! F P* ! P R O D A T ! F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! ` F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P* ! -ALLOC
0x1bcd58…1bceec Dummy {f00=0x00fa, f01=0x0190, f02=» ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! B F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x1bceec…1bd080 Dummy {f00=0x00fa, f01=0x0190, f02=»ON: ! ASSEMBLER APPLICATION: ! r F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! , F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! v F P* ! ! -QUEUE 1:ST USER TASK ! F
0x1bd080…1bd214 (2, 154) Dummy {f00=0x00fa, f01=0x0190, f02=»-----! T F P* ! REAL TASKS' IS BUILT AT ! F P* ! THE END OF MONITOR. ! X F P* ! U:BTAB: ! F P* ! -A TABLE OF 'N
0x1bd214…1bd3a8 Dummy {f00=0x00fa, f01=0x0190, f02=» ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! : F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U:BTAB
0x1bd3a8…1bd53c Dummy {f00=0x00fa, f01=0x0190, f02=» ! b F P* ! -CONTINUE IN PART 2.A ! F P* !-----------------------------------------------------! f P EJECT P P ***************** P ***************** P **
0x1bd53c…1bd6d0 Dummy {f00=0x00fa, f01=0x0190, f02=» P********** P* P:MTAB * P********** . PT:ATAB EQU 0 @ PU:BTAB EQU 2 T PP:BAS EQU 6 SEGMENT BASE h . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P P P********** P
0x1bd6d0…1bd864 Dummy {f00=0x00fa, f01=0x0190, f02=» 4 PROTOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* V . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB ` * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P E
0x1bd864…1bd9f8 Dummy {f00=0x00fa, f01=0x0190, f02=»*********************** P P* TASK DEFINITION BLOCK: , PTDBBT EQU 0 1A BLOCK TYPE L ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS n , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBM
0x1bd9f8…1bdb8c Dummy {f00=0x00fa, f01=0x0190, f02=» $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION , ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH N P* z * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC
0x1bdb8c…1bdd20 Dummy {f00=0x00fa, f01=0x018e, f02=»PE DEF. BLOCK | PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 8 P* h ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD r PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-
0x1bdd20…1bdeb4 (2, 155) Dummy {f00=0x00fa, f01=0x0190, f02=» 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) $ PCSB EQU -12 CURRENT SEGMENT BASE > 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH f 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRE
0x1bdeb4…1be048 Dummy {f00=0x00fa, f01=0x0190, f02=»D | PPA EQU 0 STACK POINTER PSTKB EQU 2 STACK BASE ( " PWATFST EQU 4 FIRST WAT-ELEMENT F P* l P* DSCB-RECORD: v PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDRESS PRL EQU 4 REQ. LENGTH PEL EQU 6 EFF. LENGTH " PBL
0x1be048…1be1dc Dummy {f00=0x00fa, f01=0x0190, f02=»0 DISPLACEMENT TO FCB IN T:A , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) $ , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) T & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBMSK EQU 10 MASK FOR SWB'S -"-
0x1be1dc…1be370 Dummy {f00=0x00fa, f01=0x018e, f02=» l P ! . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! P ! B P ! J P**************** ! R P* SOP-HANDLING * ! j P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P ! P LAMP CODE MEANING ! P --------- ------- ! PLMP1 EQU
0x1be370…1be504 Dummy {f00=0x00fa, f01=0x0190, f02=» PLMP5 EQU /40 TID ERROR " " PLMP6 EQU /20 UWB OR SWB ERROR " " " PLMP7 EQU /10 MM-TABLE OVERFLOW " H PLMP8 EQU 8 " n PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT " P********************* " P* OTHER CONSTANTS * " P****
0x1be504…1be698 Dummy {f00=0x00fa, f01=0x0190, f02=»QU 4 DISP TO LENGTH OF SWB " P # " $ PFCBDD1 EQU 8 DISP TO FIRST DSET # . $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # V P # ~ $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID EQU 2 CREDIT IDENTIFICATION # ( PSEGREC EQU 6 RECORD LENGTH IN S:
0x1be698…1be82c Dummy {f00=0x00fa, f01=0x0190, f02=»D-ADDRESS IN TTAB # x * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ P $ H ( PNTPA EQU 4 INTERPRETER START ADDRESS $ P & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ | $ PRTCDA EQU /1B RTC DEVICE ADDRESS $ P $ F P**********************************************
0x1be82c…1be9c0 Dummy {f00=0x00fa, f01=0x0190, f02=» [REL-ADDRESS] * $ n F P* * % ( F P***************************************************************** % r P % P % P % PCALL FORM 16=/F697,16 % P EJECT %
0x1be9c0…1beb54 (2, 156) Dummy {f00=0x00fa, f01=0x0190, f02=» ** % 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & 6 6 P** ** & p 6 P************************************************** & 6 P************************************
0x1beb54…1bece8 Dummy {f00=0x00fa, f01=0x0190, f02=» & P* ADJUST FOR PSW-ROUTINE * ' P************************** ' * 6 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSWSW-ADDRESS' ' L P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE ' P* LOAD STACKBASE * ' P****************
0x1bece8…1bee7c Dummy {f00=0x00fa, f01=0x0190, f02=»*** ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( & P EJECT ( @ P ( N P ( Z P* ADDRESS TO PSW-ROUTINE * ( f P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P******************************
0x1bee7c…1bf010 Dummy {f00=0x00fa, f01=0x0190, f02=» PUT PSW IN STACK FOR CALLING SUBROUTINE * ( z D P**************************************************************** ) 2 P ) z PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 R
0x1bf010…1bf1a4 Dummy {f00=0x00fa, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x1bf1a4…1bf338 Dummy {f00=0x00fa, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x1bf338…1bf4cc Dummy {f00=0x00fa, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x1bf4cc…1bf660 Dummy {f00=0x00fa, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x1bf660…1bf7f4 (2, 157) Dummy {f00=0x00fb, f01=0x0190, f02=»TADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART - P DATA 0 . < @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . L P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRESS . P DATA 0 . * PNEWAD2 EQU *-REL SAVE FORD.T. ADDRESS .
0x1bf7f4…1bf988 Dummy {f00=0x00fb, f01=0x0190, f02=»ATA 0 . " PUWB EQU *-REL U.W.B. INDICATOR / P DATA 0 / 4 $ PSAVE01 EQU *-REL TEMPORARY SAVE / D P DATA 0 / l PSAVE02 EQU *-REL / | P DATA 0 / PSAVE03 EQU *-REL / P DATA 0 / PSAVE04 EQU *-REL / P DATA 0 / PSAVE05 EQU *-REL /
0x1bf988…1bfb1c Dummy {f00=0x00fb, f01=0x0190, f02=» PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 ( PSAVE10 EQU *-REL 0 8 P DATA 0 0 P PSAVE11 EQU *-REL 0 ` P DATA 0 0 x PSAVE12 EQU *-REL 0 P DATA 0 0 PSAVE13 EQU *-REL 0 P DATA 0 0 PSAVE22 EQU *-REL 0 P DATA 0 0 PSAVE25 E
0x1bfb1c…1bfcb0 Dummy {f00=0x00fb, f01=0x0190, f02=» DATA 0 0 & PBIT EQU *-REL SAVE FOR SUPER-LOOP 1 P DATA 0 1 : 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 1 J P DATA 0 1 * PDATEND EQU *-REL END OF DDIV PROTOTYPE 1 P DATA 0 1 ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 1 P DATA 0
0x1bfcb0…1bfe44 Dummy {f00=0x00fb, f01=0x0190, f02=» & PBUFSIZ EQU *-REL TEMP. BUFFER SIZE 2 P DATA 0 2 . " PMMTO EQU *-REL MMTABLE ADDRESS 2 > P DATA 0 2 d * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 2 t P DATA 0 2 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 2 P DATA 0 2 PFSTPAG EQU *-REL 2
0x1bfe44…1bffd8 Dummy {f00=0x00fb, f01=0x0190, f02=»ATA LDAEND-REL 2 PXMSAV EQU *-REL 3 P DATA 0,0 3 . P 3 @ P 3 H P 3 P P 3 X & P********************************* 3 ` & P* EQUATES FOR SYSLDM SAVE-WORDS * 3 & P********************************* 3 P 3 PSAVE14 EQU U:BTOD 3 PSAVE15 E
0x1bffd8…1c016c Dummy {f00=0x00fb, f01=0x0190, f02=»ED 3 PSAVE21 EQU NEWAD1 4 PSAVE23 EQU SWITCH 4 $ PSAVE24 EQU FLAG 4 > P EJECT 4 V P 4 d P* MMU TABLES * 4 l P 4 P 4 . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 4 P IFT MMUPAG=1 4 P RES 16 4 P XIF 4 P 4 $ PMMTAB EQU
0x1c016c…1c0300 Dummy {f00=0x00fb, f01=0x0190, f02=» 4 PMMEND EQU * 5 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 5 P 5 T PMMBEG EQU TABBE-* 5 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 5 v P EJECT 5 P 5 6 P*** *** 5 6 P*** S
0x1c0300…1c0494 (2, 158) Dummy {f00=0x00fb, f01=0x0190, f02=» *** 5 r 6 P************************************************* 6 6 P************************************************* 6 V P 6 P 6 , P** E R R O R ** 6 , P** ** 6 , P
0x1c0494…1c0628 Dummy {f00=0x00fb, f01=0x0190, f02=» 6 h , P** INPUT :A1=SOP-MESSAGE ** 7 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 7 8 , P** (REG-CONTENTS IS SAVED) ** 7 h , P**************************************** 7 P 7 PERROR EQU * 7 P ST A2,SAVE01,A13 SAVE A2 7 . P L
0x1c0628…1c07bc Dummy {f00=0x00fb, f01=0x0190, f02=»NG PURPOS) 7 | P EJECT 8 P 8 & P** M O V E ** 8 ( & P** ** 8 R & P** ** 8 | & P** MOVE BLOCKS INSIDE MEMORY ** 8 & P** ** 8 & P** INPUT:A1=F
0x1c07bc…1c0950 Dummy {f00=0x00fb, f01=0x0190, f02=» ** 8 x & P** WORK-REG: A4 ** 9 & P********************************* 9 < P 9 f PMOVE EQU * 9 r $ PMOVES ADR A1,A3 END OF FROM AREA 9 P ADR A2,A3 END OF TO-AREA 9 & P LD A4,SCTEFA GET END OF FREE AREA 9 P TNM A2,A4 EQUAL
0x1c0950…1c0ae4 Dummy {f00=0x00fb, f01=0x0190, f02=» SIGN 9 n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA : P LDKL A1,LMP3 : J ( P CALL ERROR INDICATE MEMORY OVERFLOW : ` PMOVE10 SUK A3,1 DEC LENGTH : P RF(N) MOVE20 ALL DONE : P SUK A1,1 : P SUK A2,1 : P LCR A4,A1 GET CHARACTER
0x1c0ae4…1c0c78 Dummy {f00=0x00fb, f01=0x0190, f02=» : 4 P** M O V I N G ** ; 4 P** ** ; D 4 P** ** ; | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** ; 4 P** ASSUMED TO BE DATA-PART
0x1c0c78…1c0e0c Dummy {f00=0x00fb, f01=0x0190, f02=» 4 P** ** < 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** < < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** < t 4 P** WORK-REG: A4 ** < 4 P************************************
0x1c0e0c…1c0fa0 Dummy {f00=0x00fb, f01=0x0190, f02=»FE MAKE EVEN ADDRESS < P ST A11,SAVE01,A13 SAVE A11 = P ST A9,SAVE12,A13 SAVE A9 = @ P LDR A11,A2 = b * P LD A9,DATEND,A13 END OF PROTOTYP AREA = v " P CALL CMPADR COMPARE ADDRESSES = P RF(NL) MOV020 = ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW =
0x1c0fa0…1c1134 (2, 159) Dummy {f00=0x00fb, f01=0x0190, f02=»A13 NEW ADDRESS = ( P LD A9,SAVE12,A13 RESTORE REGISTERS > P LD A11,SAVE01,A13 > D P RB MOVES > ^ P XIF > p P IFT CREDIT+MMUPAG=2 > | P EJECT > > 4 P** X M O V E ** > 4 P**
0x1c1134…1c12c8 Dummy {f00=0x00fb, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** > 4 P** -MOVE TO USER AREA ** ? 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** ? n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** ? 4 P**
0x1c12c8…1c145c Dummy {f00=0x00fb, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** ? 4 P** WORK.REGS:A4,A10 ** @ . 4 P************************************************ @ f P @ PXMOVE EQU * @ P ST A1,SAVE09,A13 @ P ST A1,SAVE07,A13 @ P ST A2,SAVE10,A13 @ P
0x1c145c…1c15f0 Dummy {f00=0x00fb, f01=0x018e, f02=» PXMOV05 EQU * A LDR A10,A3 SAVE LENGTH A , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER A 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE A h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE A P CALL CMPADR COMPARE A " RF(G) SPLIT NO! SEVERAL MOVE A
0x1c15f0…1c1784 Dummy {f00=0x00fb, f01=0x0190, f02=» $ P TL* MMFROM,A13 LOAD FROM-TABLE B , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER B , 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS B P LD A1,SYSBUF,A13 B 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS B LDR A3,A10 GET LENGTH B P TL* MMTO,A1
0x1c1784…1c1918 Dummy {f00=0x00fb, f01=0x0190, f02=» A2,A10 B 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS C * P LD A3,SAVE11,A13 GET REQUESTED LENGTH C D $ SUR A3,A10 SUBTRACT MOVED PART C r P ST A3,SAVE11,A13 SAVE C P CWR A3,A10 C P RB(NL) XMOV10 C P LDR A10,A3 LAST LENGTH C P RB XM
0x1c1918…1c1aac Dummy {f00=0x00fb, f01=0x0190, f02=»ND DIVIDE C 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) D & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH D H P RB XMOV10 D r D 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' D , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' D P LD A9,XMSAV,A13 RESTORE
0x1c1aac…1c1c40 Dummy {f00=0x00fb, f01=0x018e, f02=»* D b 4 P** ** E 4 P** ** E B 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** E z 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** E 4 P** IS ALWAYS ASSUMED TO BE DA
0x1c1c40…1c1dd4 (2, 160) Dummy {f00=0x00fb, f01=0x0190, f02=» 4 P** IS UPDATED AND CHECKED. ** F 4 P** ** F < 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** F t 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** F 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS
0x1c1dd4…1c1f68 Dummy {f00=0x00fb, f01=0x0190, f02=» PMOVING EQU * G P ST A11,SAVE01,A13 SAVE A11 G P ST A9,SAVE12,A13 SAVE A9 G < . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE G ^ & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS G 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB G " LDR* A9,A2 GET PAGE IN
0x1c1f68…1c20fc Dummy {f00=0x00fb, f01=0x0190, f02=»TTAB' G t $ P CALL SETTAB NEW PAGE IN TABLE! H 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS H 6 ANKL A11,/FFF H p * P LDR A9,A3 GET LENGTH OF AREA TO MOVE H 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? H P RF(NL) MOV020 YES H 0 P SUR A
0x1c20fc…1c2290 Dummy {f00=0x00fb, f01=0x0190, f02=» PHYSICAL PAGE INCREMENT H P RB MOV015 I 6 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT WITHIN PAGE I 2 PMOV025 RF(NN) MOV050 I l * PMOV030 CALL SETTAB NEW PAGE IN TABLE! I & ! ADKL A11,4096 NEW PAGE INCREMENT I ( P RB(N) MOV030 NOT ENOUGH. NEW PAGE! I
0x1c2290…1c2424 Dummy {f00=0x00fb, f01=0x0190, f02=»A2=CURRENT ENTRY IN MM-TABLE I J $ PMOV050 EQU * J , , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB J @ 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER J p 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. J & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS J & P S
0x1c2424…1c25b8 Dummy {f00=0x00fb, f01=0x0190, f02=»2,A11 GET DISPLACEM. WITHIN PAGE J P ANKL A2,/FFFE EVEN ADDRESS K ( , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS K L P* CHECK ADDRESSES * K | P K * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE K P ST A11,SAVE07,A13 SAVE A11 K P LD A11,FYSPAG,A13 K
0x1c25b8…1c274c Dummy {f00=0x00fb, f01=0x0190, f02=»,FSTADR,A13 K P CALL CMPADR L P RF(NL) MOV090 OK! L ( PMOV070 LDKL A1,LMP3 L B P CALL ERROR L ^ PMOV090 EQU * L r P CALL XMOVE MOVE L P LD A9,SAVE12,A13 L ( P LD A11,SAVE01,A13 RESTORE REGISTERS L $ P TL* MMFROM,A13 RESTORE MM-TABLE L
0x1c274c…1c28e0 Dummy {f00=0x00fb, f01=0x0190, f02=» ** L l 6 P** ** M 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** M P 6 P** OVERFLOW. ** M 6 P** ** M 6 P** INPUT
0x1c28e0…1c2a74 (2, 161) Dummy {f00=0x00fc, f01=0x0190, f02=» ** M r 6 P** WORK.REG: A9 ** N 6 P************************************************* N V P N PSETTAB EQU * N SUKL A4,/400 GET NEXT PAGE N SUK A2,2 GET NEXT ENTRY N P N " P* CHECK IF MM-TA
0x1c2a74…1c2c08 Dummy {f00=0x00fc, f01=0x0190, f02=»F(NN) SETT00 N P CWR A9,A2 O P RF SETT05 O & PSETT00 CWR A2,A9 OVERFLOW? O 8 PSETT05 RF(NL) SETT10 NO O Z P LDK A1,LMP7 O z P CALL ERROR O PSETT10 EQU * O STR A4,A2 STORE IN TABLE O RTN A14 O P XIF O P IFF CREDIT=0 O
0x1c2c08…1c2d9c Dummy {f00=0x00fc, f01=0x0190, f02=» 4 P** ** P 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** P < 4 P** MENT IN T:A ** P t 4 P** ** P 4 P** INPUT : A8= POINTER TO T:A-ADD I
0x1c2d9c…1c2f30 Dummy {f00=0x00fc, f01=0x0190, f02=» TADISP=A4 ** P 4 P** A11=W.B.-ADDRESS ** Q 4 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** Q l 4 P*********************************************** Q P Q PGETWB EQU * Q " P LD A4,BIT,A
0x1c2f30…1c30c4 Dummy {f00=0x00fc, f01=0x0190, f02=»FT CREDIT-MMUPAG=1 Q P LDR* A11,A8 GET T:A-ADDRESS R P ADR A11,A4 ADD DISPLACEMENT R > P ST A11,WBADD,A13 SAVE R b " P LDR* A11,A11 GET W.B.-ADDRESS R P XIF R P IFT CREDIT+MMUPAG=2 R 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? R P RF(Z)
0x1c30c4…1c3258 Dummy {f00=0x00fc, f01=0x0190, f02=»T A11,WBADD,A13 SAVE R " P ELR A11,A11 GET W.B.-ADDRESS S & P TL* MMFROM,A13 RELOAD FROM-TABLE S B P XIF S l P IFF CREDIT=0 S x P RTN A14 S P EJECT S P S P S 8 P** M O V W B ** S 8 P**
0x1c3258…1c33ec Dummy {f00=0x00fc, f01=0x0190, f02=».-ADDRESS IS UPDATED ** S x 8 P** ** T $ 8 P** INPUT: A11=W.B.-ADDRESS ** T ` 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** T 8 P** WORK-REGS: A1-A4
0x1c33ec…1c3580 Dummy {f00=0x00fc, f01=0x0190, f02=» ADKL A1,WBLEN FROM-ADDRESS T P IFT CREDIT-MMUPAG=1 U $ P LDR* A3,A1 LENGTH U @ P CALL MOVING U Z 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT U n 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE U P XIF U P IFT CREDIT+MMUPAG=2 U P
0x1c3580…1c3714 (2, 162) Dummy {f00=0x00fc, f01=0x0190, f02=»ROCESSING? U p P RF(Z) MOVW10 NO! V P TL* MMTO,A13 LOAD TO-TABLE V , : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P & P TL* MMFROM,A13 RELOAD FROM-TABLE V P XIF V P IFF CREDIT=0 V P RTN A14 V P EJECT V P V P
0x1c3714…1c38a8 Dummy {f00=0x00fc, f01=0x0190, f02=» ** V : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** W : : P** ** W x : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** W : P** OUTPUT: A3=POINT
0x1c38a8…1c3a3c Dummy {f00=0x00fc, f01=0x0190, f02=»********************* W p P X PMOVDT EQU * X * 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT X > & P SUK A1,2 POINTER TO D.T.-ADDRESS X x P IFT CREDIT-MMUPAG=1 X P LDR* A1,A1 D.T.-ADDRESS X * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD X
0x1c3a3c…1c3bd0 Dummy {f00=0x00fc, f01=0x018e, f02=»A1,DTLEN X 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Y P XIF Y H P IFT CREDIT+MMUPAG=2 Y T P ELR A1,A1 D.T.-ADDRESS Y p * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Y P AD A1,MOVADD,A13 RELOCATE Y P ELR A3,A1 LENGTH Y P CALL MOVING Y
0x1c3bd0…1c3d64 Dummy {f00=0x00fc, f01=0x0190, f02=» Y P IFF CREDIT=0 Z P RTN A14 Z P EJECT Z . P Z < < P** M O V D W B ** Z H < P** ** Z < P** ** Z < P
0x1c3d64…1c3ef8 Dummy {f00=0x00fc, f01=0x0190, f02=» ** Z < P** INPUT : A12=T:D-ADDRESS ** [ 8 < P** A8= POINTER TO T:A-ADDRESS ** [ x < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** [ < P** WORK.REGS: A
0x1c3ef8…1c408c Dummy {f00=0x00fc, f01=0x0190, f02=» [ P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 * ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER < " P ADK A4,1 FIRST WAT-ELEMENT =1 h P IFT CREDIT-MMUPAG=1 P LD A2,WATLEN,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A2,WATLEN,A12 P X
0x1c408c…1c4220 Dummy {f00=0x00fc, f01=0x018e, f02=» r P SUK A2,1 ALL? ] P RF(N) MOVD60 YES! ] P IFT CREDIT-MMUPAG=1 ] 8 " P CC A4,DWBFST,A6 SHARED W.B.? ] T P XIF ] z P IFT CREDIT+MMUPAG=2 ] * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ] " P SRC A6,1 RIGHT OR LEFT BYTE? ] P RF(N) MOVD30 RIGH
0x1c4220…1c43b4 (2, 163) Dummy {f00=0x00fc, f01=0x0190, f02=» P CWR A4,A10 SHARED W.B.? ^ P XIF ^ $ P IFF CREDIT=0 ^ 0 P RB(NE) MOVD20 NO! ^ F P* DWB FOUND * ^ ` , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A ^ v P IFT CREDIT-MMUPAG=1 ^ P AD A4,WATLEN,A12 ^ P XIF ^ P IFT CREDIT+MMUPAG=2 ^ P EL
0x1c43b4…1c4548 Dummy {f00=0x00fc, f01=0x0190, f02=»4,2 ^ P ADK A4,WATFST+2 _ * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS _ $ P IFT CREDIT-MMUPAG=1 _ R 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A _ n " P STR A3,A4 CHANGE W.B.-ADDRESS _ P XIF _ P IFT CREDIT+MMUPAG=2 _ . P LD A2,FLAG,A13 REAL D
0x1c4548…1c46dc Dummy {f00=0x00fc, f01=0x018e, f02=»W.B.-ADDR IN T:A _ v P ADR A4,A10 ` " P ESR A3,A4 CHANGE W.B.-ADDRESS ` , & P TL* MMFROM,A13 RELOAD FROM-TABLE ` R P XIF ` | P IFF CREDIT=0 ` P ST A4,WBADD,A13 ` . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? ` P RB(NZ) MOVD10 YES! ` P CAL
0x1c46dc…1c4870 Dummy {f00=0x00fc, f01=0x0190, f02=» P a 4 P** T W B S W B ** a 4 P** ** a D 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** a | 4 P** ** a 4 P** INPUT : A8=ACTUAL T:A-AD
0x1c4870…1c4a04 Dummy {f00=0x00fc, f01=0x0190, f02=» 4 P************************************************ b P b < PTWBSWB EQU * b D P ST A7,SAVE04,A13 SAVE A7 b X " P LD A7,TWBMSK,A12 GET TWB MASK b z P IFT CREDIT+MMUPAG=2 b " P EL A7,TWBMSK,A12 GET TWB MASK b P XIF b P IFF CREDIT=0 b P CAL
0x1c4a04…1c4b98 Dummy {f00=0x00fc, f01=0x0190, f02=» & P CALL MOVDWB CHANGE DWB-ADDRESSES c P CALL SKIFTA c . P RB TWSW10 c B PTWSW20 EQU * c T P IFT CREDIT+SWPBLK=2 c h P EJECT c P c P c P* RESERVE SPACE FOR SWB'S * c P*************************** c P XIF c P IFT CREDI
0x1c4b98…1c4d2c Dummy {f00=0x00fc, f01=0x0190, f02=»PBLK=2 c P CALL SHIFT d PTWSW30 RF(Z) TARZAN ALL DONE d " P CALL GETWB d F P CALL MOVWB RESERVE SPACE d Z ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS d | & P CALL MOVDWB CHANGE DWB- ADDRESSES d P CALL SKIFTA d P RB TWSW30 d PTARZAN EQU * d
0x1c4d2c…1c4ec0 Dummy {f00=0x00fc, f01=0x0190, f02=» A L L B U F ** d 4 P** ** e ( 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** e ` 4 P** TERMINAL STACK ** e 4 P** ** e 4 P
0x1c4ec0…1c5054 (2, 164) Dummy {f00=0x00fc, f01=0x0190, f02=»=LENGTH OF DSCB'S ** e x 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** f 4 P** CSE (IN T:A)=STACKSIZE ** f X 4 P** WORK-REGS. :A1-A4,A9,A11 ** f 4 P************************************************ f P f P
0x1c5054…1c51e8 Dummy {f00=0x00fc, f01=0x0190, f02=»D A3,CSN,A1 GET DSCB TOTAL LENGTH f P RF(Z) ALLB70 NO DSCB'S g * . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS g J " P LDR A10,A1 SAVE START ADDRESS g | P XIF g P IFT CREDIT+MMUPAG=2 g P ELR A1,A8 GET T:A-ADDRESS g ( P EL A3,CSN,A1 GET DSCB TOTAL
0x1c51e8…1c537c Dummy {f00=0x00fc, f01=0x0190, f02=»IF g P IFF CREDIT=0 h P SUR A3,A1 h P NGR A3,A3 h 2 P SUK A3,DSCBL END CONDITION h D : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS h h : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD h P CW A1,SAVE04,A13 ALL? h P RF(E)
0x1c537c…1c5510 Dummy {f00=0x00fc, f01=0x0190, f02=» NO! h P ST A9,BA,A1 BUFFER START i P LD A3,RL,A1 BUFFER LENGTH i . P ST A3,BL,A1 i P P LD A2,EL,A1 SHARED BUFFER? i d P RF(Z) NOTSH NO! i & P LDR A4,A1 RESTORE START OF DSCB'S i P XIF i P IFT CREDIT+MMUPAG=2 i $ P ELR A3,A1 GET FIRST W
0x1c5510…1c56a4 Dummy {f00=0x00fc, f01=0x0190, f02=»,EL,A1 SHARED BUFFER? i P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j 6 P XIF j ` P IFF CREDIT=0 j l P ADK A4,DSCBL FIRST WORD j PALLB20 SUK A2,1 A2=INDEX j P RF(NN) ALLB30 j P LDK A1,LMP4 FORMAT ERROR j P CALL ERROR j
0x1c56a4…1c5838 Dummy {f00=0x00fc, f01=0x018e, f02=») ALLB20 j " P LDK A1,LMP4 BUFFER NOT FOUND k P CALL ERROR k 6 P IFT CREDIT-MMUPAG=1 k J ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? k f P RF(NZ) ALLB50 YES! k P LDK A1,LMP4 FORMAT ERROR k P CALL ERROR k PALLB50 EQU * k * P ST A4,BA,A1 AND
0x1c5838…1c59cc Dummy {f00=0x00fc, f01=0x0190, f02=» k z P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l * PALLB50 EQU * l > * P ES A4,BA,A1 AND ESORE IN CURRENT ECB l R P XIF l P IFF CREDIT=0 l P RB ALLB10 l P l P IFT CREDIT-MMUPAG=1 l PNOTSH LDR A9,A9 PAGING? l P RF(NZ) NOTS10 N
0x1c59cc…1c5b60 Dummy {f00=0x00fc, f01=0x0190, f02=»LLOCATE BUFFER FROM TOP l ~ P ADKL A9,1 m P ANKL A9,/FFFE EVEN ADDRESS m 2 P* CHECK ADDRESS: m V P m n " P LD A11,LSTADR,A13 DATA START m z P CALL CMPADR m P RF(NL) ALLB60 OK! m P LDKL A1,LMP3 m P CALL ERROR m PALLB60 EQU * m
0x1c5b60…1c5cf4 (2, 165) Dummy {f00=0x00fd, f01=0x018e, f02=»TTOM' m f & P ES A2,BA,A1 STORE BUFFER ADDRESS n P XIF n 8 P IFF CREDIT=0 n D P RB ALLB10 n Z P n l , P* RESERVE STACK AND SET STACKPOINTERS * n x P n PALLB70 EQU * n P IFT CREDIT-MMUPAG=1 n P LDR* A1,A8 GET T:A-ADDRESS n P LD
0x1c5cf4…1c5e88 Dummy {f00=0x00fd, f01=0x0190, f02=» PALLB80 EQU * o P ST A4,STKB,A1 SET STACKBASE o P STR A4,A1 STACK POINTER o < P CALL MOVING ALLOCATE STACK o P ST A2,STKE,A1 SET STACK-END o P XIF o P IFT CREDIT+MMUPAG=2 o P ELR A1,A8 GET T:A-ADDRESS o P EL A3,CSE,A1 GET STACK SI
0x1c5e88…1c601c Dummy {f00=0x00fd, f01=0x0190, f02=» P CALL MOVING ALLOCATE STACK p " P ES A2,STKE,A1 STORE STACK END p ( " P EL A3,STKB,A1 GET STACK SIZE p N " P ADR A2,A3 COMPUTE STACK BASE p t $ P ES A2,STKB,A1 STORE STACK BASE p * P ESR A2,A1 STORE CURRENT STACK POINTER p P XIF p P IFF CREDIT=
0x1c601c…1c61b0 Dummy {f00=0x00fd, f01=0x0190, f02=» ** p p 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** q 4 P** FORMAT CONTROL BLOCK ** q P 4 P** ** q 4 P** INPUT : A8=T:A-ADDRESS ** q 4 P** A12=
0x1c61b0…1c6344 Dummy {f00=0x00fd, f01=0x018e, f02=» ** q h 4 P** WORKREGS: A1-A4 ** r 4 P************************************************ r H P r PMOVT:A EQU * r P IFT CREDIT-MMUPAG=1 r P LDR* A1,A8 GET T:A-ADDRESS r ( P LD A3,WATLEN,A12 GET LENGTH OF WAT r P
0x1c6344…1c64d8 Dummy {f00=0x00fd, f01=0x018e, f02=» P CALL MOVING s P LDR* A4,A8 s " P SU A2,CIA,A4 NEW T:A-ADDRESS s , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS s R P s z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * s P s P LD A3,FCD,A12 ANY FCD? s P RF(Z) MOVT10 NO! s P ADR A3,
0x1c64d8…1c666c Dummy {f00=0x00fd, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) t PMOVT05 EQU * t B P ADS A4,FCBDD1,A3 t V P ADS A4,FCBDD2,A3 t p PMOVT10 RTN A14 t P XIF t P IFT CREDIT+MMUPAG=2 t P t P ELR A1,A8 GET T:A-ADDRESS t ( P EL A3,WATLEN,A12 GET
0x1c666c…1c6800 Dummy {f00=0x00fd, f01=0x0190, f02=» P ADR A1,A10 FROM-ADDRESS u P CALL MOVING u $ P ELR A4,A8 u 8 P EL A10,CIA,A4 u J P SUR A2,A10 NEW T:A-ADDRESS u ` " P SUR A1,A10 'OLD' T:A-ADDRESS u 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * u P u P EL A3,FCD,A12 ANY FCD? u
0x1c6800…1c6994 (2, 166) Dummy {f00=0x00fd, f01=0x0190, f02=» u ~ 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) v PMOVT05 EQU * v D P ADR A3,A2 START OF FCB v X P TL* MMTO,13 LOAD TO-TABLE v x P EL A10,FCBDD1,A3 v P ADR A10,A4 v P ES A10,FCBDD1,A3 v P EL A10,FCBDD2,A3 v P ADR A10,A4
0x1c6994…1c6b28 Dummy {f00=0x00fd, f01=0x0190, f02=» P w 6 P** C M P A D R ** w 6 P** ** w F 6 P** ** w 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** w 6 P**
0x1c6b28…1c6cbc Dummy {f00=0x00fd, f01=0x0190, f02=» ** w h 6 P** OUTPUT: RESULT IN A14-STACK ** x 6 P************************************************** x L P x PCMPADR EQU * x P TNM A11,A9 x P RF(NN) CMPA10 x P CWR A9,A11 x P RF CMPA20 x PCMPA10 CWR A11,A9
0x1c6cbc…1c6e50 Dummy {f00=0x00fd, f01=0x018e, f02=»************************************* x v D P* * y . D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * y v D P* ===================================== * y D P*
0x1c6e50…1c6fe4 Dummy {f00=0x00fd, f01=0x0190, f02=» y N D P* * z D P* ENTRY: A8 - FIRST T:A POINTER * z P D P* A6 - SECOND T:A POINTER * z D P* BIT - BIT NUMBER SET IN CWB- O
0x1c6fe4…1c7178 Dummy {f00=0x00fd, f01=0x0190, f02=»URRENT STATCK POINTER * z p D P* IN T:A IS SET * { ( D P* * { p D P* WORK REGISTERS: A1,A2 * { D P*
0x1c7178…1c730c Dummy {f00=0x00fd, f01=0x018e, f02=»* * { D P*************************************************************** | H P EJECT | PICBMVD EQU * | P LDKL A1,/8000 SET BIT 0 | 6 P LD A2,BIT,A13 GET BIT NUMBER IN CWB- OR UWB-MASK |
0x1c730c…1c74a0 Dummy {f00=0x00fd, f01=0x0190, f02=» | P* } & P* UPDATE MOVED MASK IN FIRST T:A } P* } < P XIF } F P IFT CREDIT-MMUPAG=1 } R & PIBAM20 LDR* A2,A8 GET T:A POINTER } n $ P LDR* A3,A2 GET MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED } * P STR A3,A2 STORE NEW MOV
0x1c74a0…1c7634 (2, 167) Dummy {f00=0x00fd, f01=0x0190, f02=»MOVED BLOCK MASK } , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED ~ * P STR A3,A2 STORE NEW MOVED BLOCK MASK ~ H P XIF ~ v P IFT CREDIT+MMUPAG=2 ~ $ PIBAM20 ELR A2,A8 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURREN
0x1c7634…1c77c8 Dummy {f00=0x00fd, f01=0x0190, f02=»2,A6 GET T:A POINTER ~ $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED D * P ESR A3,A2 STORE NEW MOVED BLOCK MASK t P XIF P IFF CREDIT=0 P RTN A14 P EJECT J P**************************************
0x1c77c8…1c795c Dummy {f00=0x00fd, f01=0x0190, f02=»KMVD - CHECK IF BLOCK ALREADY MOVED * ~ J P* ===================================== * < J P* * J P* REFERENCED IN: MOVCOM,MOVCLA
0x1c795c…1c7af0 Dummy {f00=0x00fd, f01=0x0190, f02=»:A * t J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * 2 J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2
0x1c7af0…1c7c84 Dummy {f00=0x00fd, f01=0x0190, f02=» * j J P* * ( J P* SUBROUTINES: * v J P*
0x1c7c84…1c7e18 Dummy {f00=0x00fd, f01=0x0190, f02=»UPAG=1 P LDR* A1,A8 GET T:A POINTER $ P LDR* A1,A1 GET MOVED BLOCK MASK 2 P XIF Z P IFT CREDIT+MMUPAG=2 f P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P IFF CREDIT=0 2 P LD A2,BIT,A13 GET BIT SET
0x1c7e18…1c7fac Dummy {f00=0x00fd, f01=0x0190, f02=» A2,1 DECREMENT BIT COUNTER P RB CHKM10 $ PCHKM20 ADK A1,0 SET CR 6 * P CFI A14,PSW,A13 PUT CONDITION IN PSW T P RTN A14 P EJECT P P : P***** S * U * P * E * R * L * O * O * P **** : P**
0x1c7fac…1c8140 Dummy {f00=0x00fd, f01=0x0190, f02=» ** r : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** : P** INPUT : A7=MASK WORD ** ^ : P** OUTPUT: BIT=BIT NUMBER ** : P** CONDITION CODE IN PSW ON RETURN
0x1c8140…1c82d4 (2, 168) Dummy {f00=0x00fd, f01=0x0190, f02=»TER v P LDR A7,A7 P RF SHIF20 & PSKIFTA EQU * ENTRY: CONTINUE SHIFT 0 PSHIF10 IM BIT,A13 Z P SLL A7,1 t PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW P R
0x1c82d4…1c8468 Dummy {f00=0x00fd, f01=0x0190, f02=» ** 4 P** ** ( 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** ` 4 P** ** 4 P** INPUT : A3,A2 ** 4 P
0x1c8468…1c85fc Dummy {f00=0x00fd, f01=0x0190, f02=»,MUL,A13 " P STR A2,A14 SAVE A2 TEMPORARY P LDK A3,0 6 PADD AD A3,MUL,A13 H P SUK A2,1 b P RB(NZ) ADD t P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT P 4 P** M M E N T
0x1c85fc…1c8790 Dummy {f00=0x00fd, f01=0x0190, f02=» LAST USED ENTRY IN MM-TAB. SCAN ** 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** 0 4 P** ** h 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4 P** OUTPUT:A3=ENTRY ADDRESS **
0x1c8790…1c8924 Dummy {f00=0x00fd, f01=0x0190, f02=»NTENTS OF 1:ST USED ENTRY ** 4 P*********************************************** ( P ` PMMENT EQU * h P LDR A9,A3 GET TABLE ADDRESS | 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) P SUK A3,2 & PMMEN10 ADK A3,2 INCREMENT AD
0x1c8924…1c8ab8 Dummy {f00=0x00fd, f01=0x0190, f02=»G,A9 SAVE FIRST FREE PAGE-ADDRESS P RTN A14 * P XIF : P IFF CREDIT=0 F P EJECT P j 2 P** G E T T A B ** r 2 P** ** 2 P**
0x1c8ab8…1c8c4c Dummy {f00=0x00fd, f01=0x0190, f02=»INTER TO T:A IN T:ATAB ** 2 P** OUTPUT:A2=TTAB-ADDRESS ** & 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** P PGE
0x1c8c4c…1c8de0 Dummy {f00=0x00fd, f01=0x0190, f02=»DAD,A10 T:D-ADDRESS P XIF P IFT MMUPAG=1 ( P ELR A10,A8 T:A-ADDRESS > P EL A1,T:ATID,A10 GET TID ^ P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTA
0x1c8de0…1c8f74 (2, 169) Dummy {f00=0x00fe, f01=0x0190, f02=»DK A1,LMP5 TID ERROR P CALL ERROR " PGETT20 LDR* A2,A4 TTAB-ADDRESS 0 P CW A1,TTB:PP,A2 TCL EQUAL? V P RB(NE) GETT10 NO! z P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0 P EJECT P P 8 P**
0x1c8f74…1c9108 Dummy {f00=0x00fe, f01=0x0190, f02=» ** l 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** 8 P** 0, ENB. ** T 8 P** ** 8 P** INPUT: A10=T:A-ADDRESS ** 8 P
0x1c9108…1c929c Dummy {f00=0x00fe, f01=0x0190, f02=»*********************************** P , PQUEJOB EQU * 4 P* QUEUE THIS TASK (THIS TID) H P l 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS t P ADR A3,A13 RELOCATE P STR A3,A15 PUT ON STACK * P LDKL A3,/00C0 SET LEVEL 0 AND ENABL
0x1c929c…1c9430 Dummy {f00=0x00fe, f01=0x0190, f02=»RESS t P LDR A5,A2 GET TTAB-ADDRESS P IFT CREDIT-MMUPAG=1 0 , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS L P ADK A4,2 | P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS & P LDR* A6,A4 NUMB
0x1c9430…1c95c4 Dummy {f00=0x00fe, f01=0x0190, f02=»D A3,2,A4 SEGMENT NUMBER , P LD A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS x P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDRESS => S
0x1c95c4…1c9758 Dummy {f00=0x00fe, f01=0x0190, f02=»L! P EL A1,4,A4 DISP ADDRESS P EL A3,2,A4 SEGMENT NUMBER * , P EL A2,NTPA,A8 INTERPRETER START ADDRESS L P XIF | P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT P RB GETT30 $ PGETT40 ABL RETUR8 RELOAD 8
0x1c9758…1c98ec Dummy {f00=0x00fe, f01=0x0190, f02=»T ** v 4 P** ** 4 P** ** V 4 P** MOVE MM-TABLE ** 4 P** ** 4 P** INPUT
0x1c98ec…1c9a80 Dummy {f00=0x00fe, f01=0x0190, f02=» TTAB ** n 4 P** A9=TTAB ADDRESS ** 4 P** WORKREGS:A1,A3 ** N 4 P*********************************************** P PMOVMMT EQU * ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS " P T
0x1c9a80…1c9c14 (2, 170) Dummy {f00=0x00fe, f01=0x0190, f02=»LOAD TABLE ~ P RTN A14 P XIF " P IFF CREDIT=0 . P EJECT D @ P************************************************************ R @ P* * @ P* CHTAID - CHANGE T:A-ID AND CLEAR TCL SAVE A
0x1c9c14…1c9da8 Dummy {f00=0x00fe, f01=0x0190, f02=»=========== * b @ P* * @ P* * Z @ P* REFERENCED IN: SYSLDA PART 2 B. * @ P*
0x1c9da8…1c9f3c Dummy {f00=0x00fe, f01=0x0190, f02=»NTRY IN REAL T:ATAB * j @ P* * @ P* EXIT: * b @ P* * @ P* WORK REGISTERS: A1,A3,A6,A8
0x1c9f3c…1ca0d0 Dummy {f00=0x00fe, f01=0x0190, f02=» * r @ P* * & @ P************************************************************ j PCHTAID EQU * 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET
0x1ca0d0…1ca264 Dummy {f00=0x00fe, f01=0x0190, f02=» ( P LDR* A1,A8 GET POINTER TO REAL T:A $ P LD A1,T:ATID,A1 GET TCL IN T:A 0 . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB X , P LD A4,TTBTID,A2 GET REAL TID IN TTAB =3 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS * P ST A4,T:ATID,A3 REP
0x1ca264…1ca3f8 Dummy {f00=0x00fe, f01=0x0190, f02=» SAVE TID FOR DEBUGGER PURPOSE =3 P XIF * P IFT CREDIT+MMUPAG=2 6 & P ELR A1,A8 GET POINTER TO REAL T:A R $ P EL A1,T:ATID,A1 GET TCL IN T:A | . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL
0x1ca3f8…1ca58c Dummy {f00=0x00fe, f01=0x0190, f02=»CORRESPONDING T:A-ADDRESS x * P ES A4,T:ATID,A3 REPLACE TCL IN T:A =3 " 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB P $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 0 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE =
0x1ca58c…1ca720 Dummy {f00=0x00fe, f01=0x0190, f02=»NT ~ ( P SUK A6,1 DECREMENT NUMBER OF COPIES P RB(P) CHT:20 NEXT COPY 6 PCHT:90 RTN A14 V P EJECT l P z P 4 P************************************************ 4 P*** *** 4 P**
0x1ca720…1ca8b4 (2, 171) Dummy {f00=0x00fe, f01=0x0190, f02=»********** j P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE * R 4 P* * 4 P************************************************ P PPART2B
0x1ca8b4…1caa48 Dummy {f00=0x00fe, f01=0x0190, f02=»S h * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P ADK A7,2 8 P ST A8,SAVE03,A13 SAVE A8 J & PSYA310 LD A8,SAVE03,A13 RESTORE A8 l P ADKL A8,2 P CW A8,ENDADD,A13 ALL? P RF(E) SYA350 YES! P ST A8,SAVE03,A13 SAVE $ P ADK A5,2
0x1caa48…1cabdc Dummy {f00=0x00fe, f01=0x0190, f02=»A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR* A1,A8 GET T:A ADDRESS : $ P STR A1,A7 STORE IN REAL T:ATAB ^ P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P C
0x1cabdc…1cad70 Dummy {f00=0x00fe, f01=0x0190, f02=»L MOVT:A MOVE T:A P IM T:ATID,A2 UPDATE TID $ P STR A2,A7 STORE IN REAL T:ATAB : " P LDR A8,A7 CHANGE T:A TO COPY b 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS
0x1cad70…1caf04 Dummy {f00=0x00fe, f01=0x0190, f02=»BUFFERS z P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD 8 P f P LDR A1,A5 n * P AD* A1,SCTSFA ADD SHADOW-TABLE LENGTH $ P LDR* A1,A1 GET MM-TABLE ADDRESS P TLR A1 LOAD " P ST A1,MMFROM,A13 SAVE ADDRESS
0x1caf04…1cb098 Dummy {f00=0x00fe, f01=0x0190, f02=»LASS-LOCAL LAST ENTRY z P CALL QUEJOB QUEUE THIS TASK * P LDKL A2,MMTAB GET WORK TABLE ADDRESS B P ADR A2,A13 p " P TSR A2 SAVE CLASS-DATA TABLE , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P P SUK A2,2 START OF TABLE P LDKL
0x1cb098…1cb22c Dummy {f00=0x00fe, f01=0x0190, f02=»B SYA320 PSYA330 EQU * P ELR A1,A8 GET T:A ADDRESS $ $ P ESR A1,A7 STORE IN REAL T:ATAB F $ P EL A12,T:DAD,A1 GET T:D ADDRESS n P EL A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES
0x1cb22c…1cb3c0 Dummy {f00=0x00fe, f01=0x0190, f02=»SS x PSYA345 ADK A1,1 NEXT T:A ID ( P CALL GETTTB FIND CORRESPONDING TTAB . P CALL QUEJOB QUEUE THIS TASK Z & P CALL MOVMMT MOVE MM-TABLE TO TTAB ~ P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:
0x1cb3c0…1cb554 (2, 172) Dummy {f00=0x00fe, f01=0x0190, f02=»W ADDRESS 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE F . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE j P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1
0x1cb554…1cb6e8 Dummy {f00=0x00fe, f01=0x018e, f02=» ES A1,T:ATID,A10 RESTORE IN T:A P XIF ( P IFF CREDIT=0 4 P RB SYA340 J P XIF P EJECT h PFINISH EQU *-REL v P P* ADJUST START OF FREE AREA P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF
0x1cb6e8…1cb87c Dummy {f00=0x00fe, f01=0x0190, f02=» P XIF P IFF CREDIT=1 P LD A1,SCTLAC * P XIF @ P IFT MMUPAG-CREDIT=1 L P ANKL A1,/03FF h P SLL A1,2 ~ P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CREDIT=1 P LD A1,S
0x1cb87c…1cba10 Dummy {f00=0x00fe, f01=0x0190, f02=»MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA P RF(NZ) SYA355 < P XIF R P LD A1,SCTSFA ^ PSYA355 ST A1,SCTSFA+2 t P CM SCTSFA P IFT CREDIT=1 P EJECT D ?***************************************************************
0x1cba10…1cbba4 Dummy {f00=0x00fe, f01=0x0190, f02=» * X D ?* ========================= * D ?* * X D ?* REFERENCED IN: SYSLDA * D ?*
0x1cbba4…1cbd38 Dummy {f00=0x00fe, f01=0x0190, f02=»OF FREE AREA * x D ?* SCTNOS - NUMBER OF SEGMENTS * 0 D ?* SCTNOP - NUMBER OF PAGES * x D ?* SCTPSZ - PAGE SIZE * D ?
0x1cbd38…1cbecc Dummy {f00=0x00fe, f01=0x0190, f02=» P D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * P D ?* * D ?* WORK REGISTERS: A1-A12
0x1cbecc…1cc060 Dummy {f00=0x00fe, f01=0x0190, f02=» * p D ?* * ( D ?* * p D ?*************************************************************** PAGGEN E
0x1cc060…1cc1f4 (2, 173) Dummy {f00=0x00ff, f01=0x0190, f02=» NO! " LD A1,SCTOPT GET OPTION WORD ANK A1,3 PAGING? 2 P ABR(Z) A2 NO! L * b L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS l * , ' LD A11,SCTSFA+2 GET START OF FREE AREA " ST A11,SCTPAG STO
0x1cc1f4…1cc388 Dummy {f00=0x00ff, f01=0x0190, f02=» t PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? RF(E) PAG:30 YES! L $ LDK A1,0 RESET NUMBER OF WORDS f PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) $ ADK A1,1 IN
0x1cc388…1cc51c Dummy {f00=0x00ff, f01=0x0190, f02=»F(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 $ 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER 6 RB PAG:10 j PAG:30 EQU * | * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER
0x1cc51c…1cc6b0 Dummy {f00=0x00ff, f01=0x0190, f02=» X 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS @ & ! SRL A2,2 SKIP TWO RIGHTMOST BITS x , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2,SCTPSZ GET PAGE SIZE
0x1cc6b0…1cc844 Dummy {f00=0x00ff, f01=0x0190, f02=»00 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT B P XIF n P IFT CREDIT-MMUPAG=1 z $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT CREDIT=1 LDR A9,
0x1cc844…1cc9d8 Dummy {f00=0x00ff, f01=0x0190, f02=»F PAG:33 PPAG:32 CWR A6,A10 PPAG:33 RF(NG) PAG:40 * , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE F LDR A1,A6 GET PAGE ADDRESS v P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PAG:34 NO! . * LDR A1,
0x1cc9d8…1ccb6c Dummy {f00=0x00ff, f01=0x0190, f02=»E AREA v P XIF P IFT CREDIT=1 & "PAG:36 LDK A2,0 RESET WORD COUNTER 0 * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD Z RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE? RF(E) PAG:45 YES!
0x1ccb6c…1ccd00 Dummy {f00=0x00ff, f01=0x0190, f02=»WR A11,A1 P RF PAG384 PPAG382 CWR A1,A11 $ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! > PPAG:39 EQU * v " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP ONLY PAGES FOR CORE RESIDENT
0x1ccd00…1cce94 (2, 174) Dummy {f00=0x00ff, f01=0x0190, f02=»MOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW HLT HALT PROGRAM H , 'PAG:45 CW A7,SCTNOS MOORE PAGES WANTED? b RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE PAGE ADDRESS P RB PAG:31
0x1cce94…1cd028 Dummy {f00=0x00ff, f01=0x0190, f02=» A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE ( P XIF @ P IFT CREDIT+MMUPAG=2 L * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS h ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFT CREDIT=1 ST
0x1cd028…1cd1bc Dummy {f00=0x00ff, f01=0x0190, f02=»LOCKS h * LDK A1,0 @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. * * % LD A11,SCTSEG START OF SEGMENT TABLE n , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START OF PAGE TABLE $ LD A6,SCTNOS NUMB
0x1cd1bc…1cd350 Dummy {f00=0x00ff, f01=0x0190, f02=»OT LOADED IN CORE x * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS , ' STR A1,A12 RESET QUEUE POINTER FORWARD H . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD x $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS 0 , ADK
0x1cd350…1cd4e4 Dummy {f00=0x00ff, f01=0x0190, f02=» A6,1 DECREMENT SEGMENT BLOCK COUNTER RB(P) PAG:60 . * D < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE N * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK
0x1cd4e4…1cd678 Dummy {f00=0x00ff, f01=0x0190, f02=»2 STORE BACKWARD POINTER ~ $ ST A9,4,A12 STORE PAGE ADDRESS $ ST A2,6,A12 INDICATE PAGE FREE H * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER p CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , ' LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK
0x1cd678…1cd80c Dummy {f00=0x00ff, f01=0x0190, f02=»0 NEXT PAGE RB PAG:70 PAG:80 EQU * & & ! LDKL A1,PAGQUE POINTER TO PAGQUE : $ STR A1,A12 STORE IN LAST BLOCK d & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL P EJECT P XIF P P
0x1cd80c…1cd9a0 Dummy {f00=0x00ff, f01=0x0190, f02=»PPLICATION r P XIF P IFT CREDIT=1 , P LD A14,SAVE13,A13 TRUE START OF S:GTAB 4 P XIF d P SUKL A14,8 ADJUST FOR MAP p * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1,SCT
0x1cd9a0…1cdb34 (2, 175) Dummy {f00=0x00ff, f01=0x0190, f02=»A370 RESTORE PROGRAM BASE OINTER P* ( P* INIT A15 STACK 2 P* L P LD A15,SCTSTB V P SUKL A15,4 l P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1,IHR
0x1cdb34…1cdcc8 Dummy {f00=0x00ff, f01=0x018e, f02=»TIALIZE DEVICES ~ P CF A15,SAVE8 SAVE REGISTERS P* < F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER F P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH ( P
0x1cdcc8…1cde5c Dummy {f00=0x00ff, f01=0x0190, f02=» P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* < PIHRTCO EQU *-REL F P RIT RTCDA ^ P RTN A15 p P IFF CREDIT=0 P EJECT P 6 P************************************************* 6 P***
0x1cde5c…1cdff0 Dummy {f00=0x00ff, f01=0x0190, f02=» ^ 6 P************************************************* P B 6 P* BUILD COMMON AND TASKCLASS DATA AREAS. * J 6 P* BUILD TASKDATA PROTOTYPE AREA * 6 P* * 6 P****************
0x1cdff0…1ce184 Dummy {f00=0x00ff, f01=0x0190, f02=»* *** 0 P** S U B R O U T I N E S ** 2 0 P******************************************** f P P 4 P** T : D A D D ** 4 P**
0x1ce184…1ce318 Dummy {f00=0x00ff, f01=0x0190, f02=» ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 6 4 P** OUTPUT: A12=T:D ADDRESS ** n 4 P************************************************ PT:DADD EQU * P IFT CREDIT-MMUPAG=1
0x1ce318…1ce4ac Dummy {f00=0x00ff, f01=0x0190, f02=» EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 & P AD A12,MOVADD,A13 RELOCATE < P RTN A14 ` P EJECT p P ~ P 6 P** M O V C O M ** 6 P** ** 6
0x1ce4ac…1ce640 Dummy {f00=0x00ff, f01=0x0190, f02=»AT LEAST TWO T:A'S, AND MOVE ** ~ 6 P** TO COMMON AREA ** ( 6 P** ** b 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x1ce640…1ce7d4 (2, 176) Dummy {f00=0x00ff, f01=0x0190, f02=»S: A1-A6,A9,A11,A12 ** 6 P************************************************* . P h PMOVCOM EQU * t & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL (
0x1ce7d4…1ce968 Dummy {f00=0x00ff, f01=0x0190, f02=» P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO ( PMOVC20 RTN A14 YES! B P IFT CREDIT-MMUPAG=1 ^ PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE P ST A2,SAVE03,A13 SAVE , P LD A2,WATLEN,A2
0x1ce968…1ceafc Dummy {f00=0x00ff, f01=0x0190, f02=»,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 $ . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES : P XIF l P IFT CREDIT+MMUPAG=2 x PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS P AD A2,MOVADD,A13 RELOCATE 0 P ST A2,SAVE03,A13 SA
0x1ceafc…1cec90 Dummy {f00=0x00ff, f01=0x0190, f02=»T ELEMENTS. TAKE NEXT T:A x . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE " P ELR A11,A11 T . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES h P XIF P IFF CREDIT=0 P RB(NE) MOVC10 .NEQ. ( P LD A9,MOVED,A13 W.B. ALREADY MOVED? . P RF(
0x1cec90…1cee24 Dummy {f00=0x00ff, f01=0x0190, f02=»MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? @ P RF(Z) MOVC40 NO! b " P CALL GETPRO CREATE REAL UWB'S | 4 PMOVC40 ST A2,NEWAD2,A13 SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & PMOVC50 CALL CHADR CHANGE A
0x1cee24…1cefb8 Dummy {f00=0x00ff, f01=0x0190, f02=»S n & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS 4 P CALL MOVDWB b P LDR A8,A11 v * P LD A12,SAVE25,A13 RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P 4 P** G E T P
0x1cefb8…1cf14c Dummy {f00=0x00ff, f01=0x0190, f02=» ` 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB ** @ 4 P** ** x 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4 P** A2=LAST W.B. - ADDRE
0x1cf14c…1cf2e0 Dummy {f00=0x00ff, f01=0x0190, f02=»************************************************ P 8 PGETPRO EQU * D ( P LD A3,U:BTOD,A13 GET U:BTAB ADDRESS X P IFT CREDIT-MMUPAG=1 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENGTH FRM TABLE LENGTH P
0x1cf2e0…1cf474 (2, 177) Dummy {f00=0x0100, f01=0x0190, f02=»F(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT . P RB GETP10 J P 0 P* GET NUMBER OF COPIES * h 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P LD A4,WBLEN,A11 W.B.-LENGTH
0x1cf474…1cf608 Dummy {f00=0x0100, f01=0x0190, f02=»A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 $ " P ST A4,URLENG,A9 STORE LENGTH 6 * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P******************************************** . P SUK A5,1 ONE ALREADY
0x1cf608…1cf79c Dummy {f00=0x0100, f01=0x0190, f02=» POINTER IN REAL U:BTAB * & P********************************* " PGETP50 EQU * L 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB ` P XIF P IFT CREDIT+MMUPAG=2 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECOR
0x1cf79c…1cf930 Dummy {f00=0x0100, f01=0x0190, f02=»A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 ( , P RF(E) GETP30 YES! GET NUMBER OF COPIES < P ADK A3,UP:REC NEXT l P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB *
0x1cf930…1cfac4 Dummy {f00=0x0100, f01=0x0190, f02=»1,A3 GET NUMBER OF COPIES P ANK A5,/FF " , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT 6 . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS f P LDR A9,A3 P TL* MMTO,A13 LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:BTAB " P ES A4,URLEN
0x1cfac4…1cfc58 Dummy {f00=0x0100, f01=0x018e, f02=»**************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') $ P RF(NP) GETP50 V PGETP40 CALL MOVWB l P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P*********************************
0x1cfc58…1cfdec Dummy {f00=0x0100, f01=0x0190, f02=» P IFF CREDIT=0 P RTN A14 P EJECT . P < 2 P** M O V C L A ** H 2 P** ** ~ 2 P** ** 2 P** CHECKS IF W.B. ALREADY MOV
0x1cfdec…1cff80 Dummy {f00=0x0100, f01=0x0190, f02=» ** 2 P** A LOT OF WORKREGS. ** 2 2 P********************************************* h P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRESS TO A1
0x1cff80…1d0114 (2, 178) Dummy {f00=0x0116, f01=0x0190, f02=»CL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT " P CALL MOVWB < P LD A4,UWB,A13 UWB-SCANNING P P RF(Z) MVCL50 NO! t P CALL GETPRO DUPLICATE WB'S . PMVCL50 ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB'S P R
0x1d0114…1d02a8 Dummy {f00=0x0116, f01=0x0190, f02=» ** x 6 P** ** " 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** 6 P** BLOCKS ALREDY MOVED ** 6 P** ** 6
0x1d02a8…1d043c Dummy {f00=0x0116, f01=0x0190, f02=»= NEW W.B.-ADDRESS ** ~ 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** ( 6 P** WORK.REGS: A1,A2 ** b 6 P************************************************* P PCHADR EQU * P IFT CREDIT-MMUPAG
0x1d043c…1d05d0 Dummy {f00=0x0116, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P STR A2,A1 D P XIF V P IFT CREDIT+MMUPAG=2 b P ELR A1,A6 T:A-ADDRESS ~ . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2,A13 P ESR A2,A1 & P SUK A1,2 ADDR
0x1d05d0…1d0764 Dummy {f00=0x0116, f01=0x0190, f02=»FT CREDIT+SWPBLK=2 P EJECT B P************************************************************** ( B P* * n B P* * B P* B:RSWT - BU
0x1d0764…1d08f8 Dummy {f00=0x0116, f01=0x0190, f02=» * B P* REFERENCED IN: SYSLDA * < B P* * B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB *
0x1d08f8…1d0a8c Dummy {f00=0x0116, f01=0x0190, f02=» * T B P* EXIT: * B P* * P B P* WORK REGISTERS: A1-A7 * B P*
0x1d0a8c…1d0c20 Dummy {f00=0x0116, f01=0x0190, f02=» * h B P************************************************************** P EJECT d PB:RSWT EQU * r * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK , P LD A1,SCTSWB POINTER TO SWB BLOCK TABLE * P RF(Z) RSWBEX NO SWB:S IN APPLICATIO
0x1d0c20…1d0db4 (2, 179) Dummy {f00=0x0116, f01=0x0190, f02=» v P LDR* A4,A1 POINTER TO BLOCK P LDR* A6,A4 NUMBER OF COPIES , $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P P XIF x P IFT CREDIT+MMUSWB=3 & P ES A6,2,A2 STORE NUMBER OF COPIES , P ES A7,4,A2 STORE LENGTH OF SWB IN BYTES P XIF P I
0x1d0db4…1d0f48 Dummy {f00=0x0116, f01=0x0190, f02=»DIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLOCK > ( P SUK A3,1 DECREMENT NUMBER OF TYPES j P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT POINTERS TO TID BLOCKS FOR EACH SWB TYPE ( P* AND R
0x1d0f48…1d10dc Dummy {f00=0x0116, f01=0x0190, f02=»EMENT v P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES * P RF(Z) RSWB50 NO COPIES! N * P STR A6,A8 STORE POINTER TO TID BLOCK n PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH
0x1d10dc…1d1270 Dummy {f00=0x0116, f01=0x0190, f02=» EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! ( * P ESR A6,A8 STORE POINTER TO TID BLOCK H PRSWB40 ESR A3,A2 RESET TID v , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB ( P SUK A1,1 DECR
0x1d1270…1d1404 Dummy {f00=0x0116, f01=0x0190, f02=» P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES D P LDKL A1,LMP6 SWB ERROR! ^ P CALL ERROR ~ PRSWBEX RTN A14 P XIF P IFF CREDIT=0 P EJECT P P* ************************** " P* ST
0x1d1404…1d1598 Dummy {f00=0x0116, f01=0x0190, f02=» P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS : P* SAVE04=DDIV FROM ADDRESS Z " P* SAVE05=LENGTH OF REAL T:ATAB | " P* SAVE06=LENGTH OF REAL U:BTAB P PSTART2 EQU *-REL " P LDR A8,P LOAD TEMP. STACKBA
0x1d1598…1d172c Dummy {f00=0x0116, f01=0x0190, f02=» n $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV 0 P SUR A3,A1 => LENGTH b P XIF ~ P IFT CREDIT-MMUPAG=1 . P LD A8,SCTNOS ANY SEGMENTS IN APPLICATION? P RF(Z) NOSGMT NO! ( P LDKL A8,0 RESET FSTAD
0x1d172c…1d18c0 Dummy {f00=0x0116, f01=0x0190, f02=»XT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 6 P ADK A2,2 H P SUK A3,2 DEC LENGTH Z P RB(NN) MOVNXT v P XIF P IFT CREDIT+MMUPAG=2 P CALL XMOVE & P* REMOVE DDIV ENTRIES IN MM-TABLE P " P LDR A1,A9 GET
0x1d18c0…1d1a54 (2, 180) Dummy {f00=0x0116, f01=0x0190, f02=»3 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 8 PSYA205 CWR A1,A2 ALL? N P RF(E) SYA207 YES! l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR P SUK A1,2 P RB SYA205 PSYA207 EQU * P* CHANGE TABLE-ADDRESSES
0x1d1a54…1d1be8 Dummy {f00=0x0116, f01=0x0190, f02=» P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA ( P X P ` P h . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t P P IFT CREDIT+MMUPAG=2 ( P LDKL A3,MMTAB GET CURRENT MM-TABLE P ADR A3,A13 ,
0x1d1be8…1d1d7c Dummy {f00=0x0116, f01=0x0190, f02=»AGE n * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE : * P CALL MOVING RESERVE SPACE FOR T:ATAB R $ P TL* MMTO,A13 SET CORRECT TABLE " P ESR A5,A2 STORE T:ATAB LENGTH . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,
0x1d1d7c…1d1f10 Dummy {f00=0x0116, f01=0x0190, f02=»E r P P LDR A3,A5 GET LENGTH P CALL MOVING 0 P TL* MMTO,A13 D P LDR A3,A9 GET P:MTAB Z & P ADK A3,T:AID ADD TO ADDRESS WORD x 0 P ESR A5,A2 STORE TABLE LENGTH IN T:TID-TABLE " P ADK A2,2 ADJUST TABLE ADDRESS P ESR A2,A3 S
0x1d1f10…1d20a4 Dummy {f00=0x0116, f01=0x0190, f02=» RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDIT-MMUPAG=1 N P STR A5,A2 STORE LENGTH j P ADK A2,2 : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P
0x1d20a4…1d2238 Dummy {f00=0x0116, f01=0x018e, f02=»:ATAB ADDRESS t P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS ( P* RESERVE FOR T:AID TABLE R P t P LDR A3,A5 LENGTH | P CALL MOVING P STR A5,A2 STORE LENGTH $ P ADK A2,2 ADJUST FOR LENGTH-WORD , P ST A2,T:AID,A9 STORE
0x1d2238…1d23cc Dummy {f00=0x0116, f01=0x0190, f02=» P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB & P XIF N P IFT SWPBLK+CREDIT=2 Z P* v * P* RESERV SPACE FOR REAL S:BTAB TABLE P* , P LD A3,SAVE25,A13 LENGTH OF REAL S:BTAB P LDR A5,A3 SAVE P CALL MO
0x1d23cc…1d2560 Dummy {f00=0x0116, f01=0x018e, f02=» ES A2,S:BTAB,A9 P CALL B:RSWT P XIF , P IFT CREDIT+SWBMMU=2 8 P STR A5,A2 T P ADK A2,2 f P ST A2,S:BTAB,A9 x P CALL B:RSWT P XIF P IFT CREDIT+MMUPAG=2 " P TL* MMFROM,A13 RELOAD TABLE P XIF P IFF CREDI
0x1d2560…1d26f4 (2, 181) Dummy {f00=0x0117, f01=0x0190, f02=» ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 4 P LDR* A3,A8 GET LENGTH P P XIF n P IFT CREDIT+MMUPAG=2 z P ELR A3,A8 GET LENGTH P XIF P IFF CREDIT=0 P ADR A3,A8 0 P ST A3,ENDADD,A13 SAVE END OF T:
0x1d26f4…1d2888 Dummy {f00=0x0117, f01=0x0190, f02=» RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1 B " P LD A7,CWBMSK,A12 GET CWB-MASK ^ P XIF P IFT CREDIT+MMUPAG=2 P EL A7,CWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT SUPER-LOOPA P
0x1d2888…1d2a1c Dummy {f00=0x0117, f01=0x0190, f02=»QU * P* SEARCH UWB'S: P* $ & P IM UWB,A13 INDICATE UWB-SCANNING . P IFT CREDIT-MMUPAG=1 X P LD A7,UWBMSK,A12 t P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF P IFF CREDIT=0 P CALL SHIFT " PSY
0x1d2a1c…1d2bb0 Dummy {f00=0x0117, f01=0x0190, f02=»SK CLASS DATA CONFIGURATION PART * * P************************************** * P X PCLADAT EQU * ` 4 P LD A8,T:ATOD,A13 SET POINTER TO LENGTH INT:ATAB t P IFT CREDIT-MMUPAG=1 " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x1d2bb0…1d2d44 Dummy {f00=0x0117, f01=0x0190, f02=»LCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB & P ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS n ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST * P LDR A3,A1 GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS
0x1d2d44…1d2ed8 Dummy {f00=0x0117, f01=0x0190, f02=»' z P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS & P CALL MOVING MOVE T:D F P LDR* A1,A8 GET T:A ADDRESS d * P ST A2,T:DAD,A1 STORE NEW T:D ADDRESS " P LD A7,CWBMSK,A12 GET CWBMASK P XIF P IFT CREDIT+MMUPAG=2 ( P* IN
0x1d2ed8…1d306c Dummy {f00=0x0117, f01=0x0190, f02=»,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS > P CW A8,ENDADD,A13 j " P RF(E) SYA270 ALL T:A'S DONE! " P CALL GETTAB GET TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRES
0x1d306c…1d3200 Dummy {f00=0x0117, f01=0x0190, f02=» FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE 'OLD' T:D-ADDRESS IN TTAB @ P x P* CALCULATE LENGTH OF T:D P 2 P EL A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 P ANKL A1,/FFFE EVEN AD
0x1d3200…1d3394 (2, 182) Dummy {f00=0x0117, f01=0x0190, f02=»A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY @ P ADK A3,2 'NUMBER-WORD' ` P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE T:D P ELR A1,A8 GET T:A ADDRESS * P ES A2,T:DAD
0x1d3394…1d3528 Dummy {f00=0x0117, f01=0x0190, f02=» P P P* TASK CLASS DATA UWB'S * P************************* > & P IM UWB,A13 INDICATE UWB SCANNING ` P IFT CREDIT-MMUPAG=1 " P LD A7,UWBMSK,A12 GET UWBMASK P XIF P IFT CREDIT+MMUPAG=2 P EL A7,UWBMSK,A12
0x1d3528…1d36bc Dummy {f00=0x0117, f01=0x0190, f02=»****************************** P & PSYA260 EQU * . P IFT CREDIT-MMUPAG=1 B P LD A7,SWBMSK,A12 ^ P RF(Z) SYA265 NONE x P CALL SKRITT PSYA265 LD A7,TWBMSK,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A7,SWBMSK,A12 P
0x1d36bc…1d3850 Dummy {f00=0x0117, f01=0x0190, f02=»ALL SKRITT P RB SYA250 P $ PSYA270 RF PRODAT 0 P EJECT H P V P b 4 P** S K R I T T ** n 4 P** ** 4 P** MOVE D.T
0x1d3850…1d39e4 Dummy {f00=0x0117, f01=0x0190, f02=» * P CALL SHIFT PNO RF(NZ) NES P RTN A14 4 PNES CALL GETWB D P CALL MOVDT Z . P CM NEWAD2,A13 NO NEW W.B.-ADDRESS (YET!) n P CALL MOVDWB P CALL SKIFTA P RB NO P EJECT P & P* BUILD TASKDATA PROTOTY
0x1d39e4…1d3b78 Dummy {f00=0x0117, f01=0x018e, f02=»? j P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 $ & P CM TTB:PP,A2 CLEAR TCL SAVE AREA Z P IFT CREDIT+MMUPAG=2 =00001 P CALL MOVMMT MOVE MM-TABLE P XIF =00001 P IFF CREDIT=0 =00001 PSYA275 EQU
0x1d3b78…1d3d0c Dummy {f00=0x0117, f01=0x0190, f02=» PSYA280 ADKL A8,2 P CW A8,ENDADD,A13 P RF(E) SYA290 ALL DONE 6 P IFT CREDIT-MMUPAG=1 T " P LDR* A12,A8 GET T:D ADDRESS.. p P LD A12,T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF
0x1d3d0c…1d3ea0 Dummy {f00=0x0117, f01=0x0190, f02=» n P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 * & P ST A3,CSN,A1 SAVE LENG OF DSCB'S V ( P LD A2,FCD,A12 GET FCB-DISPLACEMENT P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA
0x1d3ea0…1d4034 (2, 183) Dummy {f00=0x0118, f01=0x0190, f02=»SE,A1 AND SAVE TEMPORARY * P LD A2,SCTLAC GET START OF COMMON PART P LD A2,P:BAS,A2 GET P:BAS N P ST A2,CSB,A1 AND SAVE p " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF
0x1d4034…1d41c8 Dummy {f00=0x0118, f01=0x0190, f02=»GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P 4 ( P TL MMBEG,A2 LOAD CLASS LOCAL TABLE < * P LDKL A3,MMTAB GET WORK TABLE ADDRESS h P ADR A3,A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GE
0x1d41c8…1d435c Dummy {f00=0x0118, f01=0x0190, f02=» r " P*** *** P . P ELR A1,A8 GET T:A-ADDRESS : & P EL A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL DSCB-LENGTH ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S ( P EL A2,FCD
0x1d435c…1d44f0 Dummy {f00=0x0118, f01=0x0190, f02=»TO FIRST WORD v 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART " P EL A2,STKB,A1 GET STACK SIZE P & P ES A2,CSE,A1 AND SAVE (TEMPORARY) v & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE P EL A2,P:BAS,A2 GET P:
0x1d44f0…1d4684 Dummy {f00=0x0118, f01=0x0190, f02=»OVE T:A * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF > P IFF CREDIT=0 J P RB SYA280 NEXT ` P EJECT x PSYA290 EQU * 4 P IM FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA P .
0x1d4684…1d4818 Dummy {f00=0x0118, f01=0x018e, f02=»A3,/F000 $ P SRL A3,2 GET NEW PHYSICALL PAGE P ST A3,FSTPAG,A13 SAVE 8 ( P ANKL A2,/FFF GET NEW PAGE INCREMENT V P ST A2,FSTADR,A13 SAVE P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS P XIF P IFT CREDIT-MMUP
0x1d4818…1d49ac Dummy {f00=0x0118, f01=0x0190, f02=» P LDR* A1,A2 REAL LENGTH $ P ADR A2,A1 END OF TABLE ADDRESS $ P ST A2,ENDADD,A13 SAVE L & P LD A1,T:ATOD,A13 GET FROM-ADDRESS j P LDR* A3,A1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL MOVE P XIF
0x1d49ac…1d4b40 Dummy {f00=0x0118, f01=0x0190, f02=»AD TABLE | P ADR A2,A1 END ADDRESS 4 P ST A2,ENDADD,A13 SAVE 'END-OF-T:ATAB-CONDITION' . * P LD A1,T:ATOD,A13 GET PROTOTYP T:ATAB f P ELR A3,A1 GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE P CALL XMOVE P XIF
0x1d4b40…1d4cd4 (2, 184) Dummy {f00=0x0118, f01=0x0190, f02=»D BASE ADDRESS P ABR A5 & PLENGT2 EQU *-REL LENGTH OF PART 2 & P EJECT P P ^ P j 2 P********************************************* v 2 P******* ******* 2 P**
0x1d4cd4…1d4e68 Dummy {f00=0x0118, f01=0x0190, f02=» ***** 2 P********************************************* * P ` 2 P* READ CONFIGURATION FILE & BUILD * l 2 P* SHADOW-TABLES * 2 P* *
0x1d4e68…1d4ffc Dummy {f00=0x0118, f01=0x0190, f02=»********* t * P*** *** * P** S U B R O U T I N E S ** @ ( P** -USED IN THIS PART ONLY * n * P************************************* P EJECT P P 6 P** C O N
0x1d4ffc…1d5190 Dummy {f00=0x0118, f01=0x0190, f02=» ** b 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** 6 P** ** F 6 P** INPUT : A5=ASCII DIGITS ** 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2
0x1d5190…1d5324 Dummy {f00=0x0118, f01=0x0190, f02=»0 CLEAR RESULT REG P LDR A3,A5 P SRL A3,8 GET TEN'S , P SUK A3,/30 H P ADR A1,A3 P LDR A2,A1 MULT BY 10 n P ADR A1,A1 . P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 P ANK A3,/F GET ONE'S P ADR A1,A3
0x1d5324…1d54b8 Dummy {f00=0x0118, f01=0x0190, f02=» ** l 6 P** ** 6 P** SKIP TO NEXT BLOCK IN CONFIGURATION FILE ** P 6 P** ** 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** 6 P** OUTPUT
0x1d54b8…1d564c Dummy {f00=0x0118, f01=0x018e, f02=» ** r 6 P************************************************** P V PNXTBLK EQU * ^ 6 P ADKL A11,TDBNC NUMBER OF TERMINAL DEVICE CLASSES r 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 P SLL A5,8 P
0x1d564c…1d57e0 Dummy {f00=0x0118, f01=0x0190, f02=» 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES P SLL A5,8 8 P LC A5,1,A11 J P CALL CONVRT ^ , P LDK A2,SDC SPEC. DEV. CL. RECORD LENGTH r P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK P ADKL A11,2 $ P LC A2,TDBBT
0x1d57e0…1d5974 (2, 185) Dummy {f00=0x0118, f01=0x0190, f02=» ** 8 P** ** 4 8 P** CONVERT 3 ASCII-DIGITS TO BINARY ** p 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST
0x1d5974…1d5b08 Dummy {f00=0x0118, f01=0x0190, f02=» ** ` 8 P**************************************************** P H PGETNUM EQU * T P LDK A4,100 FIRST INCREMENT h P LDK A5,0 CLEAR RESULT REG P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT P LCR A2,A6 GET CHAR
0x1d5b08…1d5c9c Dummy {f00=0x0118, f01=0x0190, f02=» SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 * & P ADK A4,81 NEXT INCREMENT (ONE'S) @ P RB(P) GET030 THIRD DIGIT j P RTN A14 P EJECT P P* START OF PROGRAM PART 1 * P 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-AD
0x1d5c9c…1d5e30 Dummy {f00=0x0118, f01=0x0190, f02=» P* P LD A15,SCTSTB P SUKL A15,4 $ P 8 & P LD A2,SCTLAC GET S:GTAB (IF ANY) @ P IFT MMUPAG=0 j . P LD A2,CREID,A2 GET CREDIT IDENTIFICATION P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## P EL A2,CREID,A2 P X
0x1d5e30…1d5fc4 Dummy {f00=0x0118, f01=0x0190, f02=»0 YES! START CONFIGURATE P IFF CREDIT=1 P 6 P* ASSEMBLER APPLICATION > P ^ P* SWITCH TO LEVEL 0 ENB f P ( P LDKL A4,SYA103 CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK P LDKL A4,/00C0
0x1d5fc4…1d6158 Dummy {f00=0x0118, f01=0x0190, f02=»ET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE P ST A4,MMFROM,A13 SAVE 8 ( P* FILL MM-TABLES IN USER TASK TTAB'S V P ( P LD* A5,SCTTCT GET LENGTH OF TC:TAB $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE 0 P SU A3,SCTTCT GET
0x1d6158…1d62ec Dummy {f00=0x0118, f01=0x0190, f02=»DKL A1,/FC00 P LDKL A2,MMTAB P ADR A2,A13 * P LDR A4,A2 =00002 > P SUKL A4,MMBEG X P AD A4,SCTMMC n PSYA:10 CWR A4,A2 P RF(E) SYA105 P SUK A4,2 P STR A1,A4 P RB SYA:10 PSYA105 SUK A5,2 ALL? P RF(
0x1d62ec…1d6480 Dummy {f00=0x0118, f01=0x018e, f02=»A107 EQU * P XIF P IFF CREDIT=1 2 P LD* A5,SAVE02,A13 1:ST USER TASK TTAB ADDRESS 4 . P LD A2,SAVE09,A13 EXECUTION START ADDRESS j ( P AD A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER P CF A15,ACTOT QUEUE TASK " P
0x1d6480…1d6614 (2, 186) Dummy {f00=0x0118, f01=0x018e, f02=» P , P* READ CONFIG FILE AND BUILD SHADOWTABLE P D 0 P CM SAVE02,A13 CLEAR 'BUGGER TASK INDICATOR' P P IFT CREDIT-MMUPAG=1 & P LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS & P SUKL A12,2 ADJUST FOR
0x1d6614…1d67a8 Dummy {f00=0x0118, f01=0x0190, f02=» $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA P XIF , P IFT CREDIT+SWBMMU=2 8 ( P LD A4,S:BTAB,A2 GET S:BTAB ADDRESS T $ P SUK A4,2 ADJUST FOR LENGTH WORD P ST A4,S:BTOD,A13 SAVE P XIF P IFT CREDIT-MMUPAG=1 P* T:ATAB PROCESSING:
0x1d67a8…1d693c Dummy {f00=0x0118, f01=0x0190, f02=» ~ P " P LDR A11,A3 END OF SHADOW-TAB P LDR A9,A13 START OF SYSLDA 6 P CALL CMPADR Z P RF(L) SYA110 OK! n " P LDKL A1,LMP3 MEMORY OVERFLOW P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P LDK A2,0 P* CLEAR
0x1d693c…1d6ad0 Dummy {f00=0x0118, f01=0x0190, f02=» " P STR A4,A3 STORE TABLE LENGTH ( P LD A11,SAVE01,A13 GET CONFIG START * " P LC A2,TDBBT,A11 GET BLOCKTYPE V P CCK A2,'TT' TASK DEF? | P RF(E) SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET
0x1d6ad0…1d6c64 Dummy {f00=0x0118, f01=0x0190, f02=»E02,A13 INDICATE BUGGER TASK PRESENT =00001 " P RF SYA136 SKIP TO NEXT BLOCK 4 PSYA125 LDR A8,A12 SAVE Z P LDR* A4,A12 T:ATAB LENGTH x PSYA130 ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 0 P
0x1d6c64…1d6df8 Dummy {f00=0x0118, f01=0x0190, f02=»SYA130 NO! P SUR* A4,A12 T:ATAB LENGTH P XIF 4 P IFT CREDIT+MMUPAG=2 @ & P EL* A2,SCTLAC GET START OF P:MTAB $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS $ P SUKL A12,2 INCLUDE LENGTH WORD & P ST A12,T:ATOD,A13 SAVE IN SYSLDA $ P EL A4,U
0x1d6df8…1d6f8c Dummy {f00=0x0118, f01=0x0190, f02=»MMUSWB=3 ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS $ P SUK A4,2 ADJUST FOR LENGTH WORD < P ST A4,S:BTOD,A13 SAVE d P XIF P IFT CREDIT+MMUPAG=2 P* T:ATAB PROCESSING: P P ELR A4,A12 T:ATAB-LENGTH P LDR A3,A4 SAVE
0x1d6f8c…1d7120 Dummy {f00=0x0118, f01=0x0190, f02=» LDR A11,A3 END OF SHADOW-TABLE P LDR A9,A13 START OF SYSLDA ( P CALL CMPADR L P RF(L) SYA110 OK! ` " P LDKL A1,LMP3 MEMORY OVERFLOW z P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS P* CLEAR T:ATAB SHADOW-TABLE: P
0x1d7120…1d72b4 (2, 187) Dummy {f00=0x0119, f01=0x0190, f02=»GTH v ( P LD A11,SAVE01,A13 GET CONFIG START " P LC A2,TDBBT,A11 GET BLOCKTYPE 8 P CCK A2,'TT' TASK DEF? ^ P RF(E) SYA120 OK! | P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID P SLL A2,8 .
0x1d72b4…1d7448 Dummy {f00=0x0119, f01=0x0190, f02=»PRESENT' h P RF SYA136 SKIP THIS BLOCK PSYA125 LDR A8,A12 SAVE 2 P ELR A4,A12 T:ATAB LENGTH P PSYA130 ADKL A8,2 NEXT T:A r P ELR A6,A8 GET T:A ADDRESS P SUK A4,2 P RF(NZ) SYA135 , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR)
0x1d7448…1d75dc Dummy {f00=0x0119, f01=0x018e, f02=» ELR A10,A12 P SUR A4,A10 T:ATAB LENGTH P XIF 6 P IFF CREDIT=0 B . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB X ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS P SLL A5,8 P LC A5,TDBNT+1,A11 P CALL CONVRT ( P LD A2,SCTSFA STAR
0x1d75dc…1d7770 Dummy {f00=0x0119, f01=0x0190, f02=» z P ! PSYA136 CALL NXTBLK ! PSYA137 EQU * ! . P CCK A2,'TT' ! B & P RB(E) SYA120 NEXT TASK DEF BLOCK ! V P CCK A2,'CC' ! P RF(NE) SYA140 ! * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ! P CALL NXTCOM SKIP COMMON DEF ! PSYA140 CCK A
0x1d7770…1d7904 Dummy {f00=0x0119, f01=0x0190, f02=» IN PROTOTYPE ! l PSYA141 EQU * " P XIF " * P IFT CREDIT+SWPBLK=2 " 6 P LCR A2,A11 " R P CCK A2,'SS' " f P RF(NE) SYA152 " z P LD A8,S:BTOD,A13 " P CALL USWBTP " P XIF " P IFT CREDIT=1 " P RF SYA152 " P EJECT " L P********
0x1d7904…1d7a98 Dummy {f00=0x0119, f01=0x0190, f02=» * " P L P* USWBTP - INSERT NUMBER OF COPIES IN U:BTAB/S:BTAB PROTOTYPE TABLE * # L P* ================================================================= * # ` L P* * # L P* REFER
0x1d7a98…1d7c2c Dummy {f00=0x0119, f01=0x0190, f02=» * # P L P* ENTRY: A8 - MODIFIED ADDRESS TO U:BTAB/S:BTAB PROTOTYPE TABLE * $ L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * $ ` L P* * $ L P* EXIT:
0x1d7c2c…1d7dc0 Dummy {f00=0x0119, f01=0x0190, f02=» * $ P L P* WORK REGISTERS: * % L P* * % ` L P* SUBROUTINES: GETNUM,ERROR * % L P*
0x1d7dc0…1d7f54 (2, 188) Dummy {f00=0x0119, f01=0x0190, f02=»******* % P P & PUSWBTP EQU * & P & , P XIF & 4 P IFT CREDIT-MMUPAG=1 & @ P ADKL A11,1 & P LDR A6,A11 & p * P CALL GETNUM PACK 3 DIG. RESULT IN A5 & $ P LDR A1,A5 SAVE NUMBER OF UWB'S & PSYA142 EQU * & P LDR A12,A8 & " P LDR*
0x1d7f54…1d80e8 Dummy {f00=0x0119, f01=0x0190, f02=»FIG & h P SLL A2,8 ' P LC A2,1,A11 GET 2:ND CHAR ' 6 P CW A2,UPNAME,A12 COMPARE W. 1:ST WORD IN PROTOTYP ' @ * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! ' z 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S ' P RF(NN) SYA150 ' P LDK A1,LMP6 UWB NOT F
0x1d80e8…1d827c Dummy {f00=0x0119, f01=0x0190, f02=» 3:RD CHAR ' z P CC A2,UPNAME+2,A12 ( P RB(NE) SYA147 .NEQ. ( . P EJECT ( J P ( X P* PROTOTYPE FOUND * ( d P ( 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG ( P LDR A6,A11 ( P CALL GETNUM CONVERT ( 2 P SC A5,UPNUMB,A1
0x1d827c…1d8410 Dummy {f00=0x0119, f01=0x018e, f02=» RTN A14 ( P XIF ) P IFT CREDIT+MMUPAG=2 ) P ADKL A11,1 ) 8 P LDR A6,A11 ) L * P CALL GETNUM PACK 3 DIG. RESULT IN A5 ) ` $ P LDR A1,A5 SAVE NUMBER OF UWB'S ) PSYA142 EQU * ) P LDR A12,A8 START OF TABLE ) P ELR A3,A12 LENGTH OF U:BTAB
0x1d8410…1d85a4 Dummy {f00=0x0119, f01=0x0190, f02=» ) P LC A2,1,A11 GET 2:ND CHAR * 2 P EL A10,UPNAME,A12 GET FIRST WORD IN PROTOTYPE * * P CWR A2,A10 * ` P RF(E) FRSTOK FIRST WORD OK! * t 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S * P RF(NN) SYA150 * P LDK A1,LMP6 UWB NOT FOUND * P CAL
0x1d85a4…1d8738 Dummy {f00=0x0119, f01=0x0190, f02=» CONFIG * j 0 P EL A2,UPNAME+2,A12 GET 3:RD CHAR FROM PROY + P SRL A2,8 + D P ANKL A10,/FF + V P CWR A10,A2 + l P RB(NE) SYA147 .NEQ. + P EJECT + P + P* PROTOTYPE FOUND * + P******************* + P + 8 P ADKL A11,NAMU
0x1d8738…1d88cc Dummy {f00=0x0119, f01=0x0190, f02=»-TABLE + f P ANKL A10,/FF00 , P ORR A10,A5 , & P ES A10,UPNUMB-1,A12 , : . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE , V P RB(P) SYA142 , P ADKL A11,UDBFST-1 , P RTN A14 , P XIF , P IFT CREDIT=1 , P EJECT , PSYA152 EQU * ,
0x1d88cc…1d8a60 Dummy {f00=0x0119, f01=0x0190, f02=»OF T:ATAB , r P XIF - P IFT CREDIT+MMUPAG=2 - ( P EL* A7,T:ATOD,A13 GET T:ATAB LENGTH - : * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE - f P XIF - P IFF CREDIT=0 - 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE - P ADK A7,1 - P ANKL A7,/FF
0x1d8a60…1d8bf4 (2, 189) Dummy {f00=0x0119, f01=0x0190, f02=»2,A2 - 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY . P IFT CREDIT+MMUPAG=2 . D & P* CREATE SYSLDA & DDIV MM-TABLE * . ` P . " P LDR A2,A7 TO-ADDRESS (SYSLDA) . P ANKL A2,/F000 FIRST PAGE . ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE . " P S
0x1d8bf4…1d8d88 Dummy {f00=0x0119, f01=0x0190, f02=» ( PSYA157 STR A2,A11 STORE PAGE-POINTER / P ADKL A11,2 NEXT ENTRY / 0 P ADKL A2,/400 PAGE INCREMENT / N P SUK A3,1 ALL? / r P RB(NZ) SYA157 NO! / ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE / P XIF / P IFF CREDIT=0 / 0 P ST A7,SAVE12,A13 SAVE (
0x1d8d88…1d8f1c Dummy {f00=0x0119, f01=0x0190, f02=» / $ P* CALCULATE DDIV FROM-ADDRESS * 0 P 0 2 P LD A1,SCTLAC GET S:GTAB 0 : * P ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS 0 Z & P ST A9,SCTLAC SAVE START OF P:MTAB 0 P IFT CREDIT-MMUPAG=1 0 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 0 P XIF 0 P I
0x1d8f1c…1d90b0 Dummy {f00=0x0119, f01=0x0190, f02=»ORD LENGTH 0 p P CALL MULT 1 P ADR A1,A3 1 $ & P ADK A1,NUMSEG+2 => START OF DDIV 1 6 2 P LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT 1 ` 0 P ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE 1 P IFT CREDIT+MMUPAG=2 1 P 1 . P ST A1,SAVE04,A13 SAVE DDI
0x1d90b0…1d9244 Dummy {f00=0x0119, f01=0x0190, f02=»0 1 " P SUR A6,A1 RELOCATION FOR DDIV 2 P EJECT 2 0 P 2 > P 2 F P 2 R 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 2 ^ . P* CALCULATE TOTAL (=REAL) LENGTH * 2 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 2 . P* A9=P:MTAB A6=M
0x1d9244…1d93d8 Dummy {f00=0x0119, f01=0x018e, f02=»S 2 ~ P 3 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 3 P LDR* A3,A8 GET LENGTH 3 > P ADR A3,A8 END OF T:ATAB 3 P ST A3,ENDADD,A13 SAVE 3 | 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB 3 P LDR A4,A5 2:ND POINTER 3 & P LDR A2,A8 2:ND POINTER IN
0x1d93d8…1d956c Dummy {f00=0x0119, f01=0x018e, f02=» P 4 " PSYA160 ADKL A8,2 TAKE NEXT T:A 4 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 4 2 P CW A8,ENDADD,A13 4 Z P RF(E) SYA170 ALL DONE 4 t P LDR* A1,A8 GET T:A 4 * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB 4 , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! 4
0x1d956c…1d9700 Dummy {f00=0x0119, f01=0x0190, f02=» ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 5 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 5 0 P LDR* A10,A8 GET T:A-ADDRESS 5 l P ADR A10,A6 RELOCATE 5 . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) 5 P* RELOCATE W.B.-ADDRESSES 5 P 5 $ P
0x1d9700…1d9894 (2, 190) Dummy {f00=0x0119, f01=0x0190, f02=» SUK A7,1 DEC. COUNTER 5 P RB(N) SYA160 TAKE NEXT T:A 6 P ADRS A6,A1 RELOCATE 6 B P XIF 6 ^ P IFT CREDIT+MMUPAG=2 6 j P 6 P* INITIATE POINTERS 6 P 6 P LD A8,T:ATOD,A13 T:ATAB 6 P ELR A3,A8 GET LENGTH 6 P ADR A3,A8 END OF T:ATAB
0x1d9894…1d9a28 Dummy {f00=0x0119, f01=0x0190, f02=»D POINTER IN T:ATAB 6 & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 7 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 7 F P 7 x P* SCAN T:ATAB: 7 P 7 " PSYA160 ADKL A8,2 TAKE NEXT T:A 7 $ P ADK A5,2 NEXT T:A IN SHADOW-TAB 7 P CW A8,ENDADD,A13 7 P R
0x1d9a28…1d9bbc Dummy {f00=0x0119, f01=0x018e, f02=»!!! 7 l " P ADR A11,A7 ACCUMULATE LENGTH 8 , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH 8 2 , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS 8 b ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS 8 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) 8 P ELR A10,A8 GE
0x1d9bbc…1d9d50 Dummy {f00=0x0119, f01=0x0190, f02=» 8 $ P EL A12,T:DAD,A1 GET T:D-ADDRESS 9 $ P EL A7,WATLEN,A12 LENGTH OF WAT 9 0 . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS 9 X PSYA165 SUK A7,1 DEC. COUNTER 9 P RB(N) SYA160 TAKE NEXT T:A 9 P ELR A10,A1 GET ADDRESS 9 P ADR A10,A6 RELOCATE 9
0x1d9d50…1d9ee4 Dummy {f00=0x0119, f01=0x0190, f02=»T A6,MOVADD,A13 SAVE 9 8 P ST* A3,SCTSFA STORE NEW TABLE LENGTH IN SHADOW-TAB : P IFT CREDIT+MMUPAG=2 : X $ P ES* A3,T:ATOD,A13 AND IN T:ATAB : t P XIF : P IFT CREDIT-MMUPAG=1 : $ P ST* A3,T:ATOD,A13 AND IN T:ATAB : P XIF : P IFF CREDIT=0 :
0x1d9ee4…1da078 Dummy {f00=0x0119, f01=0x018e, f02=»3 SAVE TOT. NUMBER OF T:A'S : P ; $ P EJECT ; 0 " P****************************** ; > $ P* RELOCATE ADDRESSES IN U:BTAB * ; d $ P* (REAL LENGTH=PROTOTYPE LEN.) * ; $ P******************************** ; P ; P IFT CREDIT-MMUPAG=1 ; $ P LD A5,U
0x1da078…1da20c Dummy {f00=0x0119, f01=0x018e, f02=» ; ~ " PSYA180 RF(Z) SYA185 ALL DONE! < P ADRS A6,A5 RELOCATE < . P XIF < J P IFT CREDIT+MMUPAG=2 < V $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS < r P ELR A3,A5 TABLE LENGTH < , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB < P ADK A5,2 < P SUK A3,2 SU
0x1da20c…1da3a0 Dummy {f00=0x0119, f01=0x0190, f02=» < P IFF CREDIT=0 = 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP = P SUK A3,UP:REC = Z P RB SYA180 = p P EJECT = PSYA185 EQU * = P IFT CREDIT+MMUSWB=3 = P* = $ P* COMPUTE REAL LENGTH OF S:BTAB = P* = $ P LD A5,S:BTO
0x1da3a0…1da534 (2, 191) Dummy {f00=0x011a, f01=0x0190, f02=»F(Z) SYA199 ALL RECORDS SCANNED! = $ P EL A4,2,A5 GET PROT. W.B.-ADDR. > ( P ADR A4,A6 RELOCATE > P P ES A4,2,A5 STORE IT BACK > l , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES > P ANK A4,/FF GET RIGHT BYTE > . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYP
0x1da534…1da6c8 Dummy {f00=0x011a, f01=0x0190, f02=»RD IN S:BTAB PROTOTYPE > r $ P SUK A3,UP:REC DECREMENT LENGTH ? P RB SYA190 ? F P XIF ? X P IFT CREDIT+SWBMMU=2 ? d $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS ? * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE ? P LDR A2,A3 SAVE ? " P SUK A3,2 EXCLUDE LENGTH W
0x1da6c8…1da85c Dummy {f00=0x011a, f01=0x0190, f02=»,A5 STORE IT BACK ? , P LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES @ P ANK A4,/FF @ J . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! @ ^ P ADK A2,2 INCREMENT LENGTH @ ( P SUK A4,1 DECREMENT NUMBER OF COPIES @ P RB SYA196 @ 8 PSYA198 ADK A5,UP:REC NEX
0x1da85c…1da9f0 Dummy {f00=0x011a, f01=0x0190, f02=»A199 ST A2,SAVE25,A13 SAVE COMPUTED LENGTH @ P XIF A 2 P IFT CREDIT=1 A > P EJECT A T P A b 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB A j P A P ADS A6,T:ATOD,A13 A P ADS A6,U:BTOD,A13 A P IFT CREDIT+SWPBLK=2 A P ADS A6,
0x1da9f0…1dab84 Dummy {f00=0x011a, f01=0x0190, f02=»D-START A | $ P AD A5,SAVE12,A13 ADD NEW START B P ST A5,DATEND,A13 SAVE B 8 P XIF B V P IFT CREDIT+MMUPAG=2 B b P B ~ P B P* STORE MMTABLE ADDRESSES B P B P LDK A4,MMDDIV B " P ADR A4,A13 GET TABLE ADDRESS B & P LDR A5,A13 CALC. RE
0x1dab84…1dad18 Dummy {f00=0x011a, f01=0x0190, f02=»DK A4,MMTAB B $ P ADR A4,A13 'WORK-TABLE' ADDRESS C P SUR A4,A5 RELOCATE C < P ST A4,MMFROM,A13 C X P* CALCULATE DDIV END C r P C P LDR A5,A9 DDIV END C P SU A5,SAVE04,A13 ENT-START C $ P AD A5,SAVE12,A13 ADD NEW START C P LDR A6,A5
0x1dad18…1daeac Dummy {f00=0x011a, f01=0x0190, f02=»DRESS C l P ADR A6,A13 RELOCATE D & P LDR* A6,A6 GET MM-TABLE CONTENTS D * P ST A6,FSTPAG,A13 SAVE D T " P ANKL A5,/FFF GET DISPLACEMENT D r P ST A5,FSTADR,A13 AND SAVE D P XIF D P IFF CREDIT=0 D P* CONTINUE IN PART 2 * D P D . P L
0x1daeac…1db040 Dummy {f00=0x011a, f01=0x0190, f02=»EXECUTION START ADDRESS D | P ADR A7,A2 E " P LDKL A3,LENGT2 SYSLDA LENGTH E 2 P LDR A1,A13 FROM-ADDRESS E X P E x P* MOVE SYSLDA * E P E P IFT CREDIT-MMUPAG=1 E PNXTMOV LDR* A4,A1 GET WORD E P STR A4,A2 STORE WORD E P ADK A1,2 E
0x1db040…1db1d4 (2, 192) Dummy {f00=0x011a, f01=0x40e4, f02=» E P IFF CREDIT=0 F P F * P ABR A7 HEJ SVEJS! VI SES I PART 2... F & P XIF F T P IFT CREDIT=0 F ` P LDKL A1,LMP9 F v $ P CALL ERROR INCONSISTENT MONITOR F P XIF F PLDAEND EQU * F P END F @ F
0x1db1d4…1db368 Dummy {f00=0x011a, f01=0x2008, f02=» G -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x1db368…1db4fc Dummy {f00=0x011a, f01=0x0000, f02=»
[…0x5…]
0x1dbce0…1dbe74 (2, 193) Opaque[0x194]
0x1dbe74…1dc008 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x1dbe74…1dc008 IdxSect {
0x1dbe74…1dc008 f00 = 0x0100 // 0x1dbe74 @0x0
0x1dbe74…1dc008 f01 = 0x000c // 0x1dbe76 @0x2
0x1dbe74…1dc008 gno = [ // 0x1dbe78 @0x4
0x1dbe74…1dc008 [0x00]: C0x0100.0x1.0
0x1dbe74…1dc008 [0x01]: C0x0100.0x2.0
0x1dbe74…1dc008 [0x02]: C0x0100.0x3.0
0x1dbe74…1dc008 [0x03]: C0x0101.0x0.0
0x1dbe74…1dc008 [0x04]: C0x0101.0x1.0
0x1dbe74…1dc008 [0x05]: C0x0101.0x2.0
0x1dbe74…1dc008 ]
0x1dbe74…1dc008 }
0x1dc008…1dc19c Dummy {f00=0x0100, f01=0x018e, f02=» 2 P IDENT LDTASK REL 9.2 79-12-06 870105040920 P : ( P =2, DEVICE TABLE LENGTH DATA WORD B P REL 9.2 79-11-16 n " P =1, QLTASK RETURN IN ENABLE P REL 9.1 79-05-23 P* 6 P**************************************************
0x1dc19c…1dc330 Dummy {f00=0x0100, f01=0x018e, f02=» 6 P************************************************** P* > P* H * P* THIS MODULE CONTAINS THE LOAD TASK R 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P* - LT:DSK USED IN
0x1dc330…1dc4c4 Dummy {f00=0x0100, f01=0x0190, f02=» P* P*********** P* ENTRIES * & P*********** : P* N P* X $ P ENTRY LT:DSK DISC PAGING ENTRY b , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:
0x1dc4c4…1dc658 Dummy {f00=0x0100, f01=0x0190, f02=» P* P************* P* EXTERNALS * ( P************* > P* T P* ^ " P EXTRN TLDS15 ENTRY IN TLDSEG h " P EXTRN TLDS20 ENTRY IN TLDSEG " P EXTRN MEXIT MONITOR TASK EXIT 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERR
0x1dc658…1dc7ec Dummy {f00=0x0100, f01=0x0190, f02=» PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS $ ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS F & P EXTRN SEG:DS DISC SECTOR ADDRESS r P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS 4 P EXTRN SWB:DS DISC SECTOR ADDRES
0x1dc7ec…1dc980 Dummy {f00=0x0100, f01=0x0190, f02=»S r P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD . P EXTRN TTB:SA TTAB SAVE AREA T P EXTRN TTB:MT MMU TABLE x ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EXTRN SCTPSZ PAGE SIZE
0x1dc980…1dcb14 (2, 194) Dummy {f00=0x0100, f01=0x0190, f02=» . P***************************************** P* 6 P* CONDITIONAL ASSEMBLY @ P* ^ . P***************************************** h P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P*
0x1dcb14…1dcca8 Dummy {f00=0x0100, f01=0x018e, f02=»852 EQU 0. p P* PCPU852 EQU 0 P* 0 P* : 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK D 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. ~ P* PSWPBLK EQU 0 P* * 4 P* A PROGRAM VERSION USING TOSS ASS
0x1dcca8…1dce3c Dummy {f00=0x0100, f01=0x018e, f02=» " P* LDTASK ECB AND BUFFER AREAS P* . 4 PLD:ECB DATA 0,0,410,0,0,0 ECB AREA FOR LOAD TASK 8 P* p 4 PLD:BUF RES 205 INTERMEDIATE BUFFER FOR LOAD TASK z P* & P RES 2 LOAD TASK STACK (ONE LEVEL) ( PLD:STB EQU *-2 LOAD TASK STACK BAS
0x1dce3c…1dcfd0 Dummy {f00=0x0100, f01=0x0190, f02=» t P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE ( P XIF H P* T " P DATA 0 SEGMENT BLOCK ADDRESS ^ P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRI
0x1dcfd0…1dd164 Dummy {f00=0x0100, f01=0x0190, f02=»0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,0 0 " P DATA 2 DEVICE TABLE LENGTH =2 L P* r P EJECT LDTASK | P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LO
0x1dd164…1dd2f8 Dummy {f00=0x0100, f01=0x0190, f02=»OF CALLING TASK r P* P* " * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , 4 P LD A13,TTB:SA+26,A3 GET A13 FROM TTAB SAVE AREA Z , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS " P LDR* A2,A1 GET SEGMENT STATUS . P RF(NN) LTD:05 SEGMENT NOT LOADE
0x1dd2f8…1dd48c Dummy {f00=0x0100, f01=0x0190, f02=»A3 SAVE A3 P LDR A5,A3 , P LD A1,SEG:PB,A1 GET PAGE BLOCK ADDRESS $ P CF A15,TLDS15 T 0 P LDR A5,A7 GET TTAB ADDRESS OF CALLING TASK j P ABL LTD:80 P* P EJECT LDTASK P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RE
0x1dd48c…1dd620 Dummy {f00=0x0100, f01=0x0190, f02=» LKM P DATA 5 PAUSE LDTASK P* ( P* GET ONE PAGE FROM PAGQUE 2 P* T PLTD:05 EQU * ^ P LD A2,PAGQUE+2 r P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAILABLE? P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OU
0x1dd620…1dd7b4 (2, 195) Dummy {f00=0x0100, f01=0x0190, f02=»A2 GET PAGQUE ADDRESS AND UPDATE... 4 P STR A12,A4 ...QUEUE LINK FORWARD FOR NEXT BLOCK , 4 P CMR A2 RESET QUEUE LINK FORWARD OF REMOVED BLK d , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT 2 P LD A4,PAG:SB,A2 GET OLD SEGMENT BLOCK ADDRESS P RF(Z)
0x1dd7b4…1dd948 Dummy {f00=0x0100, f01=0x0190, f02=»EG:PB,A1 SET NEW PAGE BLOCK ADDRESS 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS , P* b P IFT MMUPAG=1 l P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* P INH 2 P MS 3,TTB:SA+2,A5 SAVE A1-A3 IN TTAB SAVE AREA
0x1dd948…1ddadc Dummy {f00=0x0100, f01=0x0190, f02=»ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 STORE NEW MMU TABLE FOR CALLING TASK L P ENB P XIF P* P EJECT LDTASK P* $ P* PREPARE FOR READING OF SEGMENT P* ( P LD A6,SEG:E
0x1ddadc…1ddc70 Dummy {f00=0x0100, f01=0x0190, f02=»O WORDS v 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK 0 P LD A3,PAG:PA,A2 GET PAGE ADDRESS (PHYSICAL) D . P LD A2,SEG:DS,A1 GET SEGMENT DISC ADDRESS x * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS 0 P LDR A11,A5 INDICATE DISC PAGING (A11 <> 0)
0x1ddc70…1dde04 Dummy {f00=0x0100, f01=0x0190, f02=»BY LT:SWB x P LDK A7,/91 PHYSICAL READ P* 4 P* SET ECB PARAMETERS > P* Z & PLTD:40 EQU * ENTRY USED BY LT:SWB d , P LDKL A14,LD:STB LOAD LDTASK STACK BASE & P LDKL A8,LD:ECB GET LD:ECB ADDRESS P ST A2,ECBCW,A8 P*
0x1dde04…1ddf98 Dummy {f00=0x0100, f01=0x0190, f02=»CBBA,A8 SET BUFFER ADDRESS P RF LTD:60 " P XIF 4 P* @ P EJECT LDTASK J P* b P* l P IFT ASSOLY=1 v , P LD A2,SCTPLD GET PROGRAM DISC FILE CODE P STR A2,A8 . P LDKL A1,LD:BUF GET LDTASK BUFFER ADDRESS P ST A1,E
0x1ddf98…1de12c Dummy {f00=0x0100, f01=0x0190, f02=» A11,A11 CHECK DISC PAGING/SWB FLAG ( P RF(NZ) LTD:43 DISC PAGING REQUEST? , P* X P EJECT LDTASK b P* z P* , P LDR A12,A3 SAVE LOGICAL BUFFER ADDRESS 2 P ECR A2,A3 CONVERT LOGICAL ADDRESS TO PHYSICAL P ANKL A3,/FFF
0x1de12c…1de2c0 Dummy {f00=0x0100, f01=0x0190, f02=»RESS j P SRL A2,2 P ECR A1,A2 P ANK A2,/0F 0 P SRC A2,4 D P ORR A3,A2 V P RF(NZ) LTD:48 h P SUKL A1,/1000 ~ P RF LTD:48 P* PLTD:43 EQU * P XIF P* P IFT MMUPAG=1 P LDR A1,A3 P SRL A
0x1de2c0…1de454 (2, 196) Dummy {f00=0x0101, f01=0x0190, f02=»QU * P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP Z P* p PLTD:48 EQU * z P SUK A3,2 & P ST A3,ECBBA,A8 SET BUFFER ADDRESS P ANKL A1,/3000 , P OR A1,SCTPLD GET PROGRAM DISC FILE CODE
0x1de454…1de5e8 Dummy {f00=0x0101, f01=0x0190, f02=» P* $ P* MOVE FIRST SECTOR TO PAGE AREA P* 6 P LDKL A1,LD:BUF+2 @ P LDR A2,A12 Z P LDKL A3,376 n & P MVSU A3 MOVE FIRST SECTOR TO PAGE P SUKL A12,2 P XIF P* P EJECT LDTASK P* P* PLTD:50
0x1de5e8…1de77c Dummy {f00=0x0101, f01=0x0190, f02=»SSOLY=1 P LDK A1,188 P XIF $ P* 0 2 P SUR A6,A1 GET REMAINING LENGTH OF SEGMENT/SWB : 2 P RF(NP) LTD:75 SEGMENT/SWB HANDLING FINISHED? p , P SUR A4,A1 GET REMAINING LENGTH OF PAGE P ADR A1,A1 ( P ADR A12,A1 UPDATE PAGE AREA POI
0x1de77c…1de910 Dummy {f00=0x0101, f01=0x0190, f02=»FFER ADDRESS v P RF LTD:60 P* & PLTD:55 EQU * 0 * P ADS A1,ECBBA,A8 UPDATE BUFFER ADDRESS D P RF(N) LTD:60 NOT OVERFLOW? r & P LDKL A1,/1000 OVERFLOW CORRECTION P ADRS A1,A8 P XIF P* P IFT MMUPAG=0 * P ADS A1,
0x1de910…1deaa4 Dummy {f00=0x0101, f01=0x0190, f02=»CHECK REMAINING LENGTH OF PAGE 8 P RF(L) LTD:65 NOT ROOM FOR ONE MORE SECTOR IN PAGE? & P* b P IFT MMUPAG=1 l : P ELR A10,A12 SAVE WORD TO BE DESTROYED BY DISC CYL-ID ( P CF A14,LTD:85 READ/WRITE ONE SECTOR $ P ESR A10,A12 RESTORE SAVED W
0x1deaa4…1dec38 Dummy {f00=0x0101, f01=0x0190, f02=» CF A14,LTD:85 READ/WRITE ONE SECTOR $ P STR A10,A12 RESTORE SAVED WORD , P RB LTD:50 T P XIF f P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x1dec38…1dedcc Dummy {f00=0x0101, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA , P CF A14,LTD:85 READ ONE SECTOR TO LD:BUF & P ADK A1,2 SKIP CYLINDER ID V P LDR A2,A12 GET PAGE POINTER x P ADK A2,2 & P ADR A6,A6 CONVERT LENGTH TO BYTES P* P IFT MMUPAG=1 2 P MVSU A6 MOVE LA
0x1dedcc…1def60 Dummy {f00=0x0101, f01=0x0190, f02=» STR A10,A2 ( P ADK A1,2 INCREMENT BUFFER POINTERS P ADK A2,2 @ P SUK A6,2 DECREMENT COUNTER R P RB(P) LTD:70 v P XIF P* P EJECT LDTASK P* P* PLTD:75 EQU * P IFT SWPBLK=1 , P LDR A11,A11 CHE
0x1def60…1df0f4 (2, 197) Dummy {f00=0x0101, f01=0x0190, f02=»OADED b P XRRS A4,A9 P* " PLTD:80 EQU * , , P CF A15,QTJOB QUEUE TASK FOR DISPATCHING @ & P ABL MEXIT PERFORM EXIT ON LDTASK p P* P EJECT LDTASK P* P* READ ONE SECTOR FROM DISC P* PLTD:85 EQU * P
0x1df0f4…1df288 Dummy {f00=0x0101, f01=0x0190, f02=» P RTN A14 NO, RETURN P* ( P* ERROR: INSERT PAGE IN PAGQUE AGAIN * P* V PLTD:95 ANK A2,1 ` P NGR A2,A2 x . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 P* P IFT SWPBLK=1
0x1df288…1df41c Dummy {f00=0x0101, f01=0x0190, f02=»ENT BLOCK ADDRESS x , P LD A3,SEG:PB,A9 GET PAGE BLOCK ADDRESS & P LDKL A4,PAGQUE GET PAGQUE ADDRESS J P ST A4,PAG:QB,A3 t 4 P LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE " P STR A4,A3 UPDATE QUEUE LINKS P ST A3,PAGQUE P ST A3,P
0x1df41c…1df5b0 Dummy {f00=0x0101, f01=0x0190, f02=»* P********** ! P* QLTDSK * ! P* QLTSWB * ! . P********** ! @ P* ! R P* ! : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. ! f P* ! : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. ! B P* ACTIVATION IS AT LT:SWB
0x1df5b0…1df744 Dummy {f00=0x0101, f01=0x0190, f02=»LOCK ADDRESS (LT:SWB) ! t 2 P* A3 = TTAB ADDRESS OF CALLING TASK " P* " T $ P* OUTPUT: A2, A5 ARE DESTROYED " ^ P* " P* " 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB " ( P LDKL A2,LT:SWB GET DISPATCH ADDRESS " P RF QLTASK "
0x1df744…1df8d8 Dummy {f00=0x0101, f01=0x0190, f02=» , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS # " P ABL ACTOT ACTIVATE LDTASK =1 # 4 P* # Z P EJECT LDTASK # d P* # | P* # P IFT SWPBLK=1 # P* # P* # P********** # P* LT:SWB * # P********** # P* # P* # D P*
0x1df8d8…1dfa6c Dummy {f00=0x0101, f01=0x018e, f02=» A3 = TTAB ADDRESS OF CALLING TASK # P* $ 2 P* $ < * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY $ F P IFT MMUPAG=1 $ t P INH $ , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS $ , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK $ , P TS TTB:MT,A5 STOR
0x1dfa6c…1dfc00 Dummy {f00=0x0101, f01=0x0190, f02=» 0 P LDR A5,A3 GET TTAB ADDRESS OF CALLING TASK % 4 P LD A3,TTB:SA+16,A5 GET MEMORY ADDRESS (LOGICAL) % 8 4 P LD A4,SWB:DS,A1 GET DISC ADDRESS OF FIRST COPY % p 0 P LD A6,SWB:EL,A1 GET SWB COPY LENGTH (BYTES) % 2 P LD A2,SWB:NS,A1 GET SWB COPY LENGTH (SECTOR
0x1dfc00…1dfd94 (2, 198) Dummy {f00=0x0101, f01=0x018e, f02=»* % P* & PLTS:10 EQU * & P SUK A1,1 & ( P* & : P IFT CPU852=1 & D P RF(NP) LTS:20 & Z 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB & p P RB LTS:10 & P* & PLTS:20 EQU * & 0 P LDR A2,A4 GET DISC ADDRESS OF REQUESTED SWB &
0x1dfd94…1dff28 Dummy {f00=0x0101, f01=0x0190, f02=» & P XIF ' P* ' P IFT SWPBLK=1 ' P ADK A6,1 ' 4 * P SRL A6,1 CONVERT SWB LENGTH TO WORDS ' F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x1dff28…1e00bc Dummy {f00=0x0101, f01=0x406e, f02=» , PLT:SWB ABL LKMERR INDICATE SYSGEN ERROR ( P XIF ( 4 P* ( @ P* ( J P* ( T END ( ^@ ( j F P LDR A4,A6 ' t . P ANK A7,1 GET LOAD/STORE SWB REQUEST FLAG ' $ P ABL(Z) LTD:35 LOAD SWB REQUEST? ' : P LDKL A4,/7FFF PARAMETER TO AVOID INTERM
0x1e00bc…1e0250 Dummy {f00=0x0101, 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*
0x1e0250…1e03e4 Dummy {f00=0x0101, f01=0x0190, f02=»*** ) r & P* * * & P* SUBROUTINE-HANDLER * * 6 & P* * * ` & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14
0x1e03e4…1e0578 Dummy {f00=0x0101, f01=0x0190, f02=»N * f P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + , P ABR* A14 + P P + b P + j P + r < P******************************************************* + z < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P**************
0x1e0578…1e070c Dummy {f00=0x0101, f01=0x0190, f02=»******** + t ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , < ( P** ** , h ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , *
0x1e070c…1e08a0 Dummy {f00=0x0101, f01=0x0190, f02=»-REL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - 0 P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - l P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF B
0x1e08a0…1e0a34 (2, 199) Opaque[0x194]
0x1e0a34…1e0bc8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x1e0a34…1e0bc8 IdxSect {
0x1e0a34…1e0bc8 f00 = 0x010d // 0x1e0a34 @0x0
0x1e0a34…1e0bc8 f01 = 0x0002 // 0x1e0a36 @0x2
0x1e0a34…1e0bc8 gno = [ // 0x1e0a38 @0x4
0x1e0a34…1e0bc8 [0x00]: C0x010d.0x1.0
0x1e0a34…1e0bc8 ]
0x1e0a34…1e0bc8 }
0x1e0bc8…1e0d5c Dummy {f00=0x010d, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x1e0d5c…1e0ef0 Dummy {f00=0x010d, f01=0x415e, f02=» l P* P EXTRN FDON LINE PRINTER 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION 2 $ PPFTAB DATA PFTABE-* TABLE LENGTH f P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P DATA FDON P DATA DMINIT
0x1e0ef0…1e1084 Dummy {f00=0x010d, 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
0x1e1084…1e1218 Dummy {f00=0x010d, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IHTW TYPEWRITER X P EXTRN IHTC CASSETTE TAPE v ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x1e1218…1e13ac Dummy {f00=0x010d, f01=0x0190, f02=»ANGER NO. 1 x ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 @ * P EXTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 l * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. 2 P EXTRN CHLT3 P EXTRN CHLT4 P EXTRN IHFD FLOPPY DISCE
0x1e13ac…1e1540 Dummy {f00=0x010d, f01=0x018e, f02=» 2 v P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT ( P EXTRN HALT HALT ROUTINE P P EXTRN BUG DEBUGGER p P EXTRN IHINPT PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD
0x1e1540…1e16d4 (2, 200) Opaque[0x194]
0x1e16d4…1e1868 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2568, f03=0x0000}
0x1e16d4…1e1868 IdxSect {
0x1e16d4…1e1868 f00 = 0x012b // 0x1e16d4 @0x0
0x1e16d4…1e1868 f01 = 0x0004 // 0x1e16d6 @0x2
0x1e16d4…1e1868 gno = [ // 0x1e16d8 @0x4
0x1e16d4…1e1868 [0x00]: C0x012b.0x1.0
0x1e16d4…1e1868 [0x01]: C0x012b.0x2.0
0x1e16d4…1e1868 ]
0x1e16d4…1e1868 }
0x1e1868…1e19fc Dummy {f00=0x012b, f01=0x0190, f02=» 0 P IDENT LKMAL REL 9.2 79-11-16 870105040920 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x1e19fc…1e1b90 Dummy {f00=0x012b, f01=0x018e, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x1e1b90…1e1d24 Dummy {f00=0x012b, f01=0x0190, f02=» P EXTRN IXTASS " P EXTRN TCHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE @ P EJECT f P* t $ PLKMAL DATA LKMALE-* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P
0x1e1d24…1e1eb8 Dummy {f00=0x012b, f01=0x018e, f02=» $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x1e1eb8…1e204c Dummy {f00=0x012b, f01=0x4036, f02=» p PLKMALE EQU * P* P END &@ 2EG SEGMENT TLDSEG , P DATA TABORT ABORT FUNCTION P P DATA 0 t 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 *
0x1e204c…1e21e0 Dummy {f00=0x012b, 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
0x1e21e0…1e2374 (2, 201) Dummy {f00=0x012b, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x1e2374…1e2508 Dummy {f00=0x012b, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x1e2508…1e269c Dummy {f00=0x012b, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x1e269c…1e2830 Dummy {f00=0x012b, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x1e2830…1e29c4 Dummy {f00=0x012b, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x1e29c4…1e2b58 Dummy {f00=0x012b, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x1e2b58…1e2cec Dummy {f00=0x012b, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x1e2cec…1e2e80 Dummy {f00=0x012b, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 0 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x1e2e80…1e3014 (2, 202) Opaque[0x194]
0x1e3014…1e31a8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x1e3014…1e31a8 IdxSect {
0x1e3014…1e31a8 f00 = 0x010d // 0x1e3014 @0x0
0x1e3014…1e31a8 f01 = 0x0002 // 0x1e3016 @0x2
0x1e3014…1e31a8 gno = [ // 0x1e3018 @0x4
0x1e3014…1e31a8 [0x00]: C0x010d.0x0.0
0x1e3014…1e31a8 ]
0x1e3014…1e31a8 }
0x1e31a8…1e333c Dummy {f00=0x010d, f01=0x0190, f02=» 0 P IDENT CTABX REL 9.2 79-11-16 870105040920 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x1e333c…1e34d0 Dummy {f00=0x010d, 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
0x1e34d0…1e3664 Dummy {f00=0x010d, 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 @
0x1e3664…1e37f8 Dummy {f00=0x010d, 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
0x1e37f8…1e398c Dummy {f00=0x010d, f01=0x0190, f02=» DRFD01 P* P************* P* * 2 P* EXTERNALS * H P* * ^ P************* t P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS
0x1e398c…1e3b20 Dummy {f00=0x010d, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE 8 ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK d P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA & P EXTRN INIFLG INITIALIZATION FLAG & P EXTRN T
0x1e3b20…1e3cb4 (2, 203) Opaque[0x194]
0x1e3cb4…1e3e48 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x1e3cb4…1e3e48 IdxSect {
0x1e3cb4…1e3e48 f00 = 0x0126 // 0x1e3cb4 @0x0
0x1e3cb4…1e3e48 f01 = 0x0002 // 0x1e3cb6 @0x2
0x1e3cb4…1e3e48 gno = [ // 0x1e3cb8 @0x4
0x1e3cb4…1e3e48 [0x00]: C0x0126.0x3.0
0x1e3cb4…1e3e48 ]
0x1e3cb4…1e3e48 }
0x1e3e48…1e3fdc Dummy {f00=0x0126, f01=0x0190, f02=» 0 P IDENT DVTKB REL 9.2 79-11-16 870105040920 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x1e3fdc…1e4170 Dummy {f00=0x0126, 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
0x1e4170…1e4304 Dummy {f00=0x0126, 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
0x1e4304…1e4498 Dummy {f00=0x0126, f01=0x40de, f02=»0,0,0 P IFT MMUPAG=1 PDEVECB EQU * $ P DATA 0,0,0,0,0,0 8 P DATA 0,0,0,0,0,0,0,0 R P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ IRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x1e4498…1e462c Dummy {f00=0x0126, 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
0x1e462c…1e47c0 Dummy {f00=0x0126, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x1e47c0…1e4954 (2, 204) Opaque[0x194]
0x1e4954…1e4ae8 # DirEnt {nam=»DVTTP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x1e4954…1e4ae8 IdxSect {
0x1e4954…1e4ae8 f00 = 0x0102 // 0x1e4954 @0x0
0x1e4954…1e4ae8 f01 = 0x0002 // 0x1e4956 @0x2
0x1e4954…1e4ae8 gno = [ // 0x1e4958 @0x4
0x1e4954…1e4ae8 [0x00]: C0x0102.0x1.0
0x1e4954…1e4ae8 ]
0x1e4954…1e4ae8 }
0x1e4ae8…1e4c7c Dummy {f00=0x0102, f01=0x0190, f02=» 0 P IDENT DVTTP REL 9.2 79-11-16 870105040920 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTTP TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x1e4c7c…1e4e10 Dummy {f00=0x0102, f01=0x0190, f02=»ATA 0 ECB ADDRESS P DATA DWTEND-DVTTP ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK : P DATA 'TP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x1e4e10…1e4fa4 Dummy {f00=0x0102, f01=0x40ec, f02=»ATA 0,0,0,0 STACK P DATA 0 TIMER POINTER ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER 8 P IFT MMUPAG=1 d PDEVECB EQU * z P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ VE AREA USER ECB ADDRESS
0x1e4fa4…1e5138 Dummy {f00=0x0102, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x1e5138…1e52cc Dummy {f00=0x0102, f01=0x0190, f02=»EQUEST ERROR + P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , & P ADK A2,25 , J P SLL A2,3 BIO , P LDK A3,80 LENGTH , r P LDKL A4,BUF , P CF A5,FD:REA , P LDR A1,A3 RETURN CODE , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 N
0x1e52cc…1e5460 Dummy {f00=0x0102, f01=0x0190, f02=»,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS - " P CF A5,STDWT SAVE IN DWT - 8 P ADK A4,BOE BOE ADDRESS - X . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - x P LDK A1,DWTBOE - $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - P LDK A1,DW
0x1e5460…1e55f4 (2, 205) Opaque[0x194]
0x1e55f4…1e5788 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x1e55f4…1e5788 IdxSect {
0x1e55f4…1e5788 f00 = 0x0102 // 0x1e55f4 @0x0
0x1e55f4…1e5788 f01 = 0x0002 // 0x1e55f6 @0x2
0x1e55f4…1e5788 gno = [ // 0x1e55f8 @0x4
0x1e55f4…1e5788 [0x00]: C0x0102.0x2.0
0x1e55f4…1e5788 ]
0x1e55f4…1e5788 }
0x1e5788…1e591c Dummy {f00=0x0102, f01=0x0190, f02=» 0 P IDENT DVTDY REL 9.2 79-11-16 870105040920 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x1e591c…1e5ab0 Dummy {f00=0x0102, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA 'DY' TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x1e5ab0…1e5c44 Dummy {f00=0x0102, 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
0x1e5c44…1e5dd8 Dummy {f00=0x0102, 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
0x1e5dd8…1e5f6c Dummy {f00=0x0102, f01=0x0190, f02=» P LD A7,DWTOR,A6 L P ANK A7,/3F ORDER L P LD A8,DWTECB,A6 ECB ADDRESS L 6 P ABL FDAD REACTIVATE L Z P EJECT DRFD01 L v P* L P********************* L P* * L P* INTERRUPT HANDLER * L P* *
0x1e5f6c…1e6100 Dummy {f00=0x0102, f01=0x018e, f02=» L r P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M P XIF M L P* M X P IFT CPU852=0 M b " P MSR 8,A15 SAVE A1-A8 ON STACK M x P XIF M P* M P LDKL A6,DWFD01 DWT ADDRESS M P IFT CHAN=1 M P ENB M & P LD A1,DWTUB,A6
0x1e6100…1e6294 (2, 206) Opaque[0x194]
0x1e6294…1e6428 # DirEnt {nam=»DWII01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2090, f03=0x0000}
0x1e6294…1e6428 IdxSect {
0x1e6294…1e6428 f00 = 0x0104 // 0x1e6294 @0x0
0x1e6294…1e6428 f01 = 0x0002 // 0x1e6296 @0x2
0x1e6294…1e6428 gno = [ // 0x1e6298 @0x4
0x1e6294…1e6428 [0x00]: C0x0104.0x2.0
0x1e6294…1e6428 ]
0x1e6294…1e6428 }
0x1e6428…1e65bc Dummy {f00=0x0104, f01=0x0190, f02=» 2 P IDENT DWII01 REL 9.2 79-11-16 870105040920 P : P* B P* L ( P* INTERTASK COMMUNICATION INPUT DWT V P* P ENTRY DWII01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG E
0x1e65bc…1e6750 Dummy {f00=0x0104, f01=0x0190, f02=»I01 ORDER " P DATA ITAD+1 ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x1e6750…1e68e4 Dummy {f00=0x0104, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x1e68e4…1e6a78 Dummy {f00=0x0104, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x1e6a78…1e6c0c Dummy {f00=0x0104, f01=0x0190, f02=»INTER TO T:A IN T:ATAB ** 2 P** OUTPUT:A2=TTAB-ADDRESS ** & 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P********************************************** P PGE
0x1e6c0c…1e6da0 Dummy {f00=0x0104, f01=0x0190, f02=»DAD,A10 T:D-ADDRESS P XIF P IFT MMUPAG=1 ( P ELR A10,A8 T:A-ADDRESS > P EL A1,T:ATID,A10 GET TID ^ P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4,SCTTCT GET TC:TAB ADDRESS P LDR* A3,A4 TCTA
0x1e6da0…1e6f34 (2, 207) Opaque[0x194]
0x1e6f34…1e70c8 # DirEnt {nam=»DWIO01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2058, f03=0x0000}
0x1e6f34…1e70c8 IdxSect {
0x1e6f34…1e70c8 f00 = 0x0102 // 0x1e6f34 @0x0
0x1e6f34…1e70c8 f01 = 0x0002 // 0x1e6f36 @0x2
0x1e6f34…1e70c8 gno = [ // 0x1e6f38 @0x4
0x1e6f34…1e70c8 [0x00]: C0x0102.0x3.0
0x1e6f34…1e70c8 ]
0x1e6f34…1e70c8 }
0x1e70c8…1e725c Dummy {f00=0x0102, f01=0x0190, f02=» 2 P IDENT DWIO01 REL 9.2 79-11-16 870105040920 P : P* B P* L * P* INTERTASK COMMUNICATION OUTPUT DWT V P* P ENTRY DWIO01 TABLE ENTRY P P EXTRN ITAD DRIVER ENTRY & P EXTRN IT:BUF INTERTASK MMU BUFFER PMMUPAG
0x1e725c…1e73f0 Dummy {f00=0x0102, f01=0x0190, f02=»WIO01 ORDER P DATA ITAD ACTIVATION ENTRY P DATA 0 TTAB ADDRESS 8 $ P DATA 0 WAIT/ACTIVATE INDICATOR T P DATA 0 TERMINAL QUEUE | P* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA ITECB MMU ECB ADDRESS P XIF
0x1e73f0…1e7584 Dummy {f00=0x0102, f01=0x40e8, f02=» p P DATA 0,0 SAVE AREA P* $ P IFT MMUPAG=1 . PITECB EQU * MMU ECB D P DATA 0 ` P DATA IT:BUF p P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P* P* P END @ U ECB ADDRESS P XIF
0x1e7584…1e7718 Dummy {f00=0x0102, f01=0x2008, f02=» DATA 0 TTAB ADDRESS $ DATA 0 WAIT/ACTIVATE INDICATOR $ DATA 0 TERMINAL QUEUE L DATA 0 TIMER POINTER j DATA 0 TIME OUT DATA 0 DATA 0,0 SAVE AREA END @ & ! DATA 0 QUEUE ANCHOR OUTPUT DWT'S
0x1e7718…1e78ac Dummy {f00=0x0102, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 C z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 D & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 D H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) D r $ P DATA 0 BLOCK SENDING INDICATOR D P XIF D P EJECT D $ P******************************** D
0x1e78ac…1e7a40 Dummy {f00=0x0102, f01=0x018e, f02=»ANNEL NO. 2 D f " P* CONNECTED TO FOURTH CHRT E P* E : PCWTRT8 EQU * E D P* E X P IFT RECHAN=4 E b P DATA 0 LAST OUTPUT DWT E x P DATA 0 LAST OUTPUT WORD E P DATA INTRT4 INTERRUPT TABLE E P INR A2,0,DWA8 INR E P OTR A2,1,DWA8 OTR
0x1e7a40…1e7bd4 (2, 208) Opaque[0x194]
0x1e7bd4…1e7d68 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2060, f03=0x0000}
0x1e7bd4…1e7d68 IdxSect {
0x1e7bd4…1e7d68 f00 = 0x0103 // 0x1e7bd4 @0x0
0x1e7bd4…1e7d68 f01 = 0x0002 // 0x1e7bd6 @0x2
0x1e7bd4…1e7d68 gno = [ // 0x1e7bd8 @0x4
0x1e7bd4…1e7d68 [0x00]: C0x0103.0x0.0
0x1e7bd4…1e7d68 ]
0x1e7bd4…1e7d68 }
0x1e7d68…1e7efc Dummy {f00=0x0103, f01=0x0190, f02=» 2 P IDENT DW1501 REL 9.2 79-11-16 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x1e7efc…1e8090 Dummy {f00=0x0103, 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
0x1e8090…1e8224 Dummy {f00=0x0103, f01=0x412a, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V " P DATA 0 REQUEST TIMEOUT VALUE t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P* PDW
0x1e8224…1e83b8 Dummy {f00=0x0103, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V , P DATA 50 REQUEST TIMEOUT. DEFAULT 5 SEC. t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P*
0x1e83b8…1e854c Dummy {f00=0x0103, f01=0x0190, f02=» [ P ST A6,SAVE05,A13 SAVE A5 P LDK A6,0 * ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER < " P ADK A4,1 FIRST WAT-ELEMENT =1 h P IFT CREDIT-MMUPAG=1 P LD A2,WATLEN,A12 P XIF P IFT CREDIT+MMUPAG=2 P EL A2,WATLEN,A12 P X
0x1e854c…1e86e0 Dummy {f00=0x0103, f01=0x018e, f02=» r P SUK A2,1 ALL? ] P RF(N) MOVD60 YES! ] P IFT CREDIT-MMUPAG=1 ] 8 " P CC A4,DWBFST,A6 SHARED W.B.? ] T P XIF ] z P IFT CREDIT+MMUPAG=2 ] * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ] " P SRC A6,1 RIGHT OR LEFT BYTE? ] P RF(N) MOVD30 RIGH
0x1e86e0…1e8874 (2, 209) Opaque[0x194]
0x1e8874…1e8a08 # DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2580, f03=0x0000}
0x1e8874…1e8a08 IdxSect {
0x1e8874…1e8a08 f00 = 0x012c // 0x1e8874 @0x0
0x1e8874…1e8a08 f01 = 0x0012 // 0x1e8876 @0x2
0x1e8874…1e8a08 gno = [ // 0x1e8878 @0x4
0x1e8874…1e8a08 [0x00]: C0x012c.0x0.0
0x1e8874…1e8a08 [0x01]: C0x012c.0x1.0
0x1e8874…1e8a08 [0x02]: C0x012c.0x2.0
0x1e8874…1e8a08 [0x03]: C0x012c.0x3.0
0x1e8874…1e8a08 [0x04]: C0x012d.0x0.0
0x1e8874…1e8a08 [0x05]: C0x012d.0x1.0
0x1e8874…1e8a08 [0x06]: C0x012d.0x2.0
0x1e8874…1e8a08 [0x07]: C0x012d.0x3.0
0x1e8874…1e8a08 [0x08]: C0x012e.0x0.0
0x1e8874…1e8a08 ]
0x1e8874…1e8a08 }
0x1e8a08…1e8b9c Dummy {f00=0x012c, f01=0x018e, f02=» 2 P IDENT DRKB01 9.2DK 1 79-11-16 870105040920 P : P =DK1, TIME OUT =2400 B P 80-03-11 b P v P* ~ P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x1e8b9c…1e8d30 Dummy {f00=0x012c, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, P ( P* 6232, 6233, 6234, 6331,AND 6342 , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* , P* ONLY INPUT DATA FROM DEPRES
0x1e8d30…1e8ec4 Dummy {f00=0x012c, f01=0x018e, f02=»E RECEIVED CHARACTERS ARE ~ P* ECHOED. " P* 6 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: @ P* t " P* A C K B : ACTIVATION PART ~ P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P*
0x1e8ec4…1e9058 Dummy {f00=0x012c, f01=0x0190, f02=» P* P* ORDER 01: BASIC READ P* ORDER 02: STANDARD READ 0 P* ORDER 03: NUMERIC READ T & P* ORDER 04: RESET INPUT BUFFER x P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE &
0x1e9058…1e91ec Dummy {f00=0x012c, f01=0x0190, f02=» A5 : STACK BASE " P* A6 : DWT-ADDRESS P* A7 : ORDER @ " P* A8 : ECB-ADDRESS ` P* P EJECT P* P* P* SYSTEM ADAPTATION P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WO
0x1e91ec…1e9380 Dummy {f00=0x012c, f01=0x0190, f02=»= 0 FOR PTS 6231, 6233, 6234 0 P* BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 $ < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 X & P* BIT 11 = 1 FOR PTS 6234,6342 P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P
0x1e9380…1e9514 (2, 210) Dummy {f00=0x012c, f01=0x0190, f02=» b P* DEFINED IN DWT. 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 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANT
0x1e9514…1e96a8 Dummy {f00=0x012c, f01=0x018e, f02=» 8 P* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL @ P* DWT:S IN SYSTEM | P EJECT P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRI
0x1e96a8…1e983c Dummy {f00=0x012c, f01=0x0190, f02=» r 2 P* -----CODE CONVERSION VIA "8-BIT" SETTING $ P* AND CONVERSION TABLES > 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO f 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, P* THREE OR MORE ZEROES. P* 6 P* T
0x1e983c…1e99d0 Dummy {f00=0x012c, f01=0x018e, f02=»ED TO THE SAME p P* SELECTOR UNIT. 4 P* BY ASSEMBLING THE DRIVER CONDITIONALLY THIS 2 P* FUNCTION IS INCLUDED. j P EJECT P* P* P************** P* ENTRIES * P************** P* P ENTRY KBAD AD
0x1e99d0…1e9b64 Dummy {f00=0x012c, f01=0x0190, f02=» 2 P********************************************** 2 P* EXTERNAL TOSS MODULE ENTRIES * : 2 P********************************************** p P* $ P EXTRN DISIOE I/0 REQUEST ERROR . P EXTRN DISEND END I/O AND GO TO DISPATCHER
0x1e9b64…1e9cf8 Dummy {f00=0x012c, f01=0x0190, f02=»RN STREG STORE REGISTERS AND GO TO DISPATCHER , P EXTRN LDREGE RETURN FROM ECHO HANDLING 6 P EXTRN LDREGF f P EXTRN SETIME SET TIME | P EXTRN SETIMP SET TIME " P EXTRN SAVE8 SAVE 8 REGISTERS " P EXTRN ECHRTN RETURN FROM ECHO P EXT
0x1e9cf8…1e9e8c Dummy {f00=0x012c, f01=0x0190, f02=»WT PARAMETERS * P************************* P* > P EXTRN DWTST STATUS H EXTRN DWTBC BYTE COUNTER d & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AR
0x1e9e8c…1ea020 Dummy {f00=0x012c, f01=0x0190, f02=»*************** P* CONSTANTS * P*************** 0 P* H * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER R P* . PX:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER 2 PDWTLNG EQU 40 NUMBER OF BYTES IN DECIMAL FORM P* P* TIME BE
0x1ea020…1ea1b4 (2, 211) Dummy {f00=0x012c, f01=0x0190, f02=»********************************** , P* CONDITIONAL ASSEMBLY * * , P**************************************** Z P* . P* TIME OUT FUNCTION MAY BE EXCLUDED BY P* SETTING X:A = 0. P* PX:A EQU 0 PCTIMUT E
0x1ea1b4…1ea348 Dummy {f00=0x012c, f01=0x0190, f02=»1 P* * P* STANDARD READ MAY BE EXCLUDED BY P* SETTING X:C = 0. B P* ` PX:C EQU 1 j PCSTAND EQU 1 | P* . P* DOUBLE ZERO MAY BE INCLUDED IN SYSTEM ( P* BY SETTING X:D = 2. SETTING X:D , P* = 3 GIVES A
0x1ea348…1ea4dc Dummy {f00=0x012c, f01=0x0190, f02=» ` P* PX:D EQU 2 PCMULTZ EQU 2 $ P* 8 P EJECT B P* P 8 P* BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION Z ( P* CAN BE INCLUDED IN THE DRIVER. > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 @ P*
0x1ea4dc…1ea670 Dummy {f00=0x012c, f01=0x018e, f02=» BE COMPLETED WITH CONTROL WORD SET TO -2. P* 4 PX:E EQU 0 > PPOWOFF EQU 1 P P** d P** n 4 P* BY SETTING X:G TO 1 THE CODE CONVERSION VIA x 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS P* INCLUDED IN THE DRIVER.
0x1ea670…1ea804 Dummy {f00=0x012c, f01=0x0190, f02=» P* BY SETTING CREDIT = 1 0 P* ORDER /04 IS THEN REPLACED BY ORDER /31 & < P* BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS Z B P* IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE @ P* IS GIVEN INDEX =1, THE SECOND EOR-K
0x1ea804…1ea998 Dummy {f00=0x012c, f01=0x0190, f02=»* P* P PCREDIT EQU 1 P* 0 4 P* BY SETTING NOLJE=1 THIS DRIVER IS PREPARED : 0 P* TO HANDLE THE NORWAY-CASE WITH BETWEEN r . P* THEMSELVES DEPENDENT KEYBOARDS ON THE P* SAME SELECTOR UNIT. P* PNOLJE
0x1ea998…1eab2c Dummy {f00=0x012c, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P* P* MMU BUFFER SIZE P* P* PX:J EQU 10 PDVBLEN
0x1eab2c…1eacc0 Dummy {f00=0x012c, f01=0x0190, f02=» EJECT P* P* P*************************** " P* DWT-DISPLACEMENT * F P*************************** j P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD
0x1eacc0…1eae54 (2, 212) Dummy {f00=0x012c, f01=0x0190, f02=» j 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE D & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE P* . P****************************************
0x1eae54…1eafe8 Dummy {f00=0x012c, f01=0x0190, f02=»/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER & PKBEOF EQU START+/16 EOR-CHARACTER L , PKBMZ EQU START+/17 DOUBLE ZERO CHARACTER v P* P EJECT P* P* P************** P* TABLES * P**********
0x1eafe8…1eb17c Dummy {f00=0x012c, f01=0x0190, f02=» P DATA ACKB ACTIVATION DRIVER " P DATA 0 ABORT ROUTINE ADDRESS ( P DATA IHKB INTERRUPT HANDLER N P* r P IFF POWOFF=1 | P* P DATA 0 NO RECOVERY P* P XIF P* P* P IFT POWOFF=1 P* P DATA
0x1eb17c…1eb310 Dummy {f00=0x012c, f01=0x0190, f02=»OARD f & P* ENTERED FROM CHLT/CHRT DRIVER P* 6 PRCKB EQU * @ P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT POWOFF=1 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x1eb310…1eb4a4 Dummy {f00=0x012c, f01=0x0190, f02=»OFF OCCURED p P ABL TDISP & PRCKB10 CF A5,LDREGE LOAD REGISTERS & P RF AKB202 P P* b P XIF l P* x P EJECT P* P* P* A C K B P* P* ACTIVATION PART: P* 0 P* CHECKS VALIDITY OF ORDERS
0x1eb4a4…1eb638 Dummy {f00=0x012c, f01=0x0190, f02=»L A1,/FEFF 2 P ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG P LDK A1,0 H P LDK A3,0 START BUFFER INDEX Z P LDR A4,A7 ~ " P RF(NG) AKB100 ILLEGEAL ORDER P IFT NOLJE=1 P CWK A7,/37 SELECT KEYBOARD P RF(E) AKBSEL P XIF
0x1eb638…1eb7cc Dummy {f00=0x012c, f01=0x0190, f02=»UK A4,4 P P IFT CREDIT=1 P SUK A4,/2D . $ P RF(Z) CRE:10 SKIP INPUT BUFFER B P ADK A4,/2D j PCRE:10 EQU * ~ P XIF P RF(Z) AKB110 ORDER 4 P RF(N) AKB200 ORDER 1,2 OR 3 * PAKB100 ORKL A1,/8000 I/O REQUEST ERROR
0x1eb7cc…1eb960 Dummy {f00=0x012c, f01=0x0190, f02=»ER 4 v ( P SCR A1,A2 RESET OVERFLOW IF OCCURED ( P ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE 8 P ABL ENDI05 END I/O d P IFT NOLJE=1 P* P* " P* ORDER 37 SELECT KEYBOARD P* PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RESET AL
0x1eb960…1ebaf4 (2, 213) Dummy {f00=0x012d, f01=0x0190, f02=» PAKB200 EQU * P* P IFT POWOFF=1 " P* 8 P LD A2,DWTST,A6 B P ANKL A2,/200 POWER OFF ? Z P RF(E) AKB205 | P XRS A2,DWTST,A6 RESET BIT P XIF PAKB202 EQU * P IFT CREDIT-POWOFF=-1 " P LDKL A1,-2 INDICATE P
0x1ebaf4…1ebc88 Dummy {f00=0x012d, f01=0x0190, f02=»1 P ABL AKB380 P* P XIF ( P* 4 PAKB205 EQU * > P* R P IFT CTIMUT=1 P* r P LDR* A1,A6 | P ANK A1,/40 TIMING ? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE P LD A4,DWTTP,A6 P RF(E) AKBTIM
0x1ebc88…1ebe1c Dummy {f00=0x012d, f01=0x0190, f02=» DWT-ADDRESS P LDR A1,A6 P CF A15,SETIMP SET TIME & 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME F . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT z P* P XIF P* & PAKB210 LD A2,4,A8 REQUESTED LENGTH , PAKB220 RF(E) AKB38
0x1ebe1c…1ebfb0 Dummy {f00=0x012d, f01=0x0190, f02=» P ADR A1,A2 ADDRESS IN BUFFER ! $ PAKB230 SCR A3,A1 STORE CHARACTER ! ( " P SUK A1,1 NEXT CHAR. POSITION ! P P SUK A2,1 LAST ? ! v P RB(NE) AKB230 NO ! P EJECT ! P* ! , P* READ CHARACTER FROM INPUT BUFFER OR ! & P* WAIT FOR KEY-BOARD
0x1ebfb0…1ec144 Dummy {f00=0x012d, f01=0x0190, f02=»FLOW ? ! P RF(NE) AKB250 " " P SCR A4,A1 RESET OVERFLOW MARK " $ P LDK A1,OVMASK OVERFLOW SET " J P RF ENDIO " n . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? " P RF(NE) AKB260 " " P CF A5,STREG NOTHING IN QUEUE " P IFT CTIMUT=1 " * P LDR
0x1ec144…1ec2d8 Dummy {f00=0x012d, f01=0x018e, f02=»T=0 " P RF AKB270 # P XIF # 0 PAKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER # * & P ST A1,DWTUTQ,A6 STORE NEW POINTER # ^ PAKB270 LDR A4,A7 # P SUK A4,2 # P RF(NN) AKB310 ORDER 2 OR 3 # P EJECT # P* # P* # P* ORDER 1 BA
0x1ec2d8…1ec46c Dummy {f00=0x012d, f01=0x018e, f02=» # j P XIF $ 0 P CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? $ P RB AKB220 $ H P EJECT $ Z P* $ h P* $ r 2 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ $ | P* $ 6 P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE $ P* $ P* $ (
0x1ec46c…1ec600 Dummy {f00=0x012d, f01=0x0190, f02=» & P ADR A1,A4 LAST PLACE IN KEY-TABLE % P ADK A1,1 % . PAKB355 SUK A4,1 % @ , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE % X P SUK A1,1 NEXT KEY % P CCR A2,A1 EOR-CHARACTER? % P RB(NE) AKB355 NO % P IFT CREDIT=0 % P ADR A4,A4 YES DOUBL
0x1ec600…1ec794 (2, 214) Dummy {f00=0x012d, f01=0x0190, f02=»NTROLWORD % r ( PAKB358 CF A15,STORE STORE CHARACTER & P RF AKB370 & > P* & P P* & Z 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY & d P RB(E) AKB358 YES & P EJECT & P* & * P* CHARACTER NOT FOUND IN KEY-TABLE. & P* CHECK C
0x1ec794…1ec928 Dummy {f00=0x012d, f01=0x0190, f02=»4,/20 SHIFT BIT 9 ? & P RF(E) AKB361 YES ' P LDR A4,A2 CHARACTER ' 6 P RF AKB363 ' R PAKB361 EQU * ' d P LDR* A4,A6 ' x P ANK A4,/10 PTS 6234 ? ' P RF(E) AKB362 ' P LDR A4,A2 ' P ANK A4,/80 ' P RF(NE) AKB362 ' P LDR A4,A2 '
0x1ec928…1ecabc Dummy {f00=0x012d, f01=0x0190, f02=»0 ' " P CC A4,KBMZ,A6 MULTIPLE ZERO ? ( P RF(E) KBMZ10 YES! ( 0 P XIF ( J P CC A4,KBCLR,A6 CLEAR? ( V P RF(E) KBCL10 ( t P CC A4,KBBSP,A6 BACKSPACE? ( P RF(E) KBSP10 ( P LDR A1,A1 RETURN CODE? ( ( P RF(NE) AKB369 YES,STORE AND END I/O (
0x1ecabc…1ecc50 Dummy {f00=0x012d, f01=0x0190, f02=»RFLOW? ( z P RB(L) AKB210 NO ) $ PAKB368 LDK A1,8 SET RETURN CODE ) & P RF ENDIO AND END I/O ) N 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER ) l P RF ENDIO END I/O REQUEST ) P EJECT ) P* ) P* ) ( P* CHECK CODE OF END OF RECO
0x1ecc50…1ecde4 Dummy {f00=0x012d, f01=0x0190, f02=»F RECORD ) v P LDR A1,A1 RETURN CODE? * P RF(NE) AKB380 * 0 P CF A5,ECHO ECHO CHARACTER * F P* * h P XIF * r P* * ~ PAKB380 LDK A1,0 RETURN CODE * P EJECT * P* * P* * , P* THIS IS A COMMON END OF THE DRIVER * P* * 2 P
0x1ecde4…1ecf78 Dummy {f00=0x012d, f01=0x0190, f02=» * P IFT CTIMUT=1 + P INH + P LD A4,DWTTP,A6 + * * P RF(E) ENDI05 NO TIMING ON THIS DEVICE + B P CM* DWTTP,A6 RESET TIMER + p P CM DWTTP,A6 + P XIF + P* + , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH + PENDI10 EQU * + P* +
0x1ecf78…1ed10c Dummy {f00=0x012d, f01=0x018e, f02=» + 0 P ABL DISEND END I/O ON KEYBOARD AND DISPATCH , P EJECT , < P* , J P* MULTIPLE ZERO , T P* , n P IFF CMULTZ=0 , x PKBMZ10 EQU * , ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES , , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO , P SUK A4,1
0x1ed10c…1ed2a0 Dummy {f00=0x012d, f01=0x0190, f02=» , x P* - P IFT CECHO=1 - P* - & P CF A5,ECHO ECHO ZERO - 0 P XIF - N P* - Z P* - d P IFF CMULTZ=0 - n P* - " P CW A3,4,A8 LENGTH OVERFLOW ? - P RB(L) KBMZ20 NO - . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? - P RB(L) AKB
0x1ed2a0…1ed434 (2, 215) Dummy {f00=0x012d, f01=0x018e, f02=»KBMZ30 NO - , P LDK A1,DWTEQ GET LAST POSITION IN QUEUE . P ADR A1,A6 . B P SUK A1,1 . T P RF KBMZ40 . f 2 PKBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION . x P SUK A1,1 . , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? . P RF(E) KBMZ90 NO NOT REA
0x1ed434…1ed5c8 Dummy {f00=0x012d, f01=0x0190, f02=» P RB KBMZ25 ONCE MORE TIME !! / PKBMZ90 EQU * / ( ( P LDK A4,/FF INDICATE BUFFER OWERFLOW / < P SCR A4,A1 / h $ P ST A1,DWTUTQ,A6 UPPDATE POINTER / z ( P LDK A1,/A SET RETURN CODE FOR BOTH / * P RB ENDIO LENGTH AND THRUGHPUT ERRORS / P XIF / P
0x1ed5c8…1ed75c Dummy {f00=0x012d, f01=0x0190, f02=» P* 0 P* BACKSPACE 0 P* 0 $ & PKBSP10 LDR A3,A3 FIRST CHARACTER? 0 . P RF(Z) KBSP15 0 X $ P SUK A3,1 DECREMENT BUFFER INDEX 0 n P LDK A2,/00 CLEAR ECB-BUFFER 0 P CF A15,STORE 0 P SUK A3,1 DECREMENT INDEX 0 * PKBSP15 LDK A2,/8 CHANG
0x1ed75c…1ed8f0 Dummy {f00=0x012d, f01=0x0190, f02=» CHARACTER 0 r P* 1 P* ON ENTRY: 1 P* 1 2 P* A2 = CHARACTER 1 < P* A3 = BUFFER INDEX 1 X P* A6 = DWT-ADDRESS 1 v P* A7 = ORDER 1 P* 1 P* 1 P* ON EXIT: 1 P* 1 P* A1 = RETURN CODE 1 P* 1 P
0x1ed8f0…1eda84 Dummy {f00=0x012d, f01=0x0190, f02=» 1 P* 2 P CWK A7,2 ORDER 2? 2 P RF(NE) CHEK05 NO 2 , P ANK A1,/20 2 F ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT 2 Z P LDK A4,/20 LOWER LIMIT 2 P RF CHEK08 2 P* 2 P XIF 2 P* 2 PCHEK05 ANK A1,/10 2 P RF(NE) CHEK06 2 P
0x1eda84…1edc18 Dummy {f00=0x012d, f01=0x0190, f02=»RRO CODE CHECK ERROR 2 P SUR A4,A2 3 " P RF(P) CHERRO CODE CHECK ERROR 3 . P LDR* A1,A15 3 T PCHEK10 LDK A1,0 RETURN CODE 3 h PCHEK20 RTN A5 3 P* 3 P* 3 P* CODE CHECK ERROR 3 P* 3 . PCHERRO LDK A1,4 SET RETURN CODE AND RETURN
0x1edc18…1eddac Dummy {f00=0x012d, f01=0x0190, f02=»S IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER 3 P* 4 @ P* 4 J PIHKB EQU * 4 T P IFT NOLJE=1 4 f P LDR* A3,A6 GET ALLOW BITS 4 z P ANK A3,/C0 4 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 4 P LDK A4,1 4 P ANK A3,/80 4
0x1eddac…1edf40 Dummy {f00=0x012d, f01=0x0190, f02=» * 4 P XIF 5 P* 5 P IFT CONVER=1 5 P* 5 6 P LDR A4,A2 INPUT WORD 5 @ " P SRL A4,11 DEVICE ADDRESS * 2 5 ^ P ANK A4,/E 5 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 5 P RF(NE) IHKB03 5 P LDR A3,A2 5 P ANK A3,/3F 5 P SUK A3,/30 5
0x1edf40…1ee0d4 (2, 216) Dummy {f00=0x012d, f01=0x0190, f02=» P RF IHKB04 6 4 PIHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS 6 P RF(E) IHKB04 6 N P LDR A4,A2 6 d P ANK A4,/FF 6 v P SRL A4,3 LINE INDEX 6 P ADR A3,A4 6 $ P LDR* A3,A3 COLUMN TABLE ADDRESS 6 P RF(E) IHKB04 6 P LDR A4,A2 6 P
0x1ee0d4…1ee268 Dummy {f00=0x012d, f01=0x0190, f02=» 6 P IFT NOLJE=1 7 P* 7 P LDR A3,A2 7 & P ANK A3,/3F 7 8 P SUK A3,/22 7 L P RF(Z) IHNOL6 7 ` P SUK A3,1 7 v P RF(NZ) IHNOL8 7 P RF IHNOL7 7 PIHNOL6 ADK A2,7 7 PIHNOL7 ANKL A2,/FF3F 7 PIHNOL8 EQU * 7 P* 7 P XIF 7
0x1ee268…1ee3fc Dummy {f00=0x012d, f01=0x0190, f02=»CHARACTER IN DWT-BUFFER 7 x P* 8 P IFT CTIMUT=1 8 * P* 8 @ P LD A3,DWTTP,A6 8 J * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 8 b P LDKL A3,-TIME RESTART TIME 8 P ST* A3,DWTTP,A6 8 P* 8 P XIF 8 P* 8 , PIHKB05 ABL LDREG RETURN TO R
0x1ee3fc…1ee590 Dummy {f00=0x012d, f01=0x0190, f02=»3,A1 8 2 P CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS 9 P CW A1,DWTUTQ,A6 OVERFLOW? 9 B P RF(NE) IHKB20 NO! 9 d 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 9 ~ P RF IHKB30 9 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 9 4 PIHKB30 SCR A2,A3
0x1ee590…1ee724 Dummy {f00=0x012d, f01=0x0190, f02=» 9 P SUK A3,1 : P RF(E) IHNOL4 : P LDK A4,/80 : 0 P SUK A3,4 : D P RB(NE) IHNOL2 : V $ PIHNOL4 ORRS A4,A6 SET ALLOW BIT : l P RB IHNOL2 : P XIF : P EJECT : P* : P* : P* A K B T U T : P* : & P* THIS IS THE T
0x1ee724…1ee8b8 Dummy {f00=0x012d, f01=0x0190, f02=»TTP,A6 : P LD A1,DWTST,A6 ; P RB(N) EXIT ; & P LDK A1,/40 SET RETURN CODE ; : , P RB IHKB05 RESTORE REGISTERS AND END I/O ; ^ P* ; P XIF ; P EJECT ; P* ; 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN ; 6 P* ECB-BUF
0x1ee8b8…1eea4c Dummy {f00=0x012d, f01=0x0190, f02=»EX ; | P* < P* < PSTORE EQU * < P LD A4,2,A8 BUFFER ADDRESS < 2 P ADR A4,A3 ADD BUFFER INDEX < T ( P SCR A2,A4 STORE CHARACTER IN BUFFER < x $ P ADK A3,1 INCREMENT BUFFER INDEX < P ANK A2,/7F < P RF EOQU20 RTN A15 AND ENB < P EJECT
0x1eea4c…1eebe0 Dummy {f00=0x012d, f01=0x0190, f02=»= QUEUE POINTER < P* A6 = DWT-ADDRESS = P* = 6 P* ON EXIT: = @ P* = V P* A1 = NEW QUEUE POINTER = ` PEOQUEU EQU * = P INH = P ADK A1,1 = P SUR A1,A6 = P CWK A1,DWTEQ END OF QUEUE? = P RF(NE) EOQU10 = * P LDK A
0x1eebe0…1eed74 (2, 217) Dummy {f00=0x012e, f01=0x401e, f02=» P* > P END > @ >
0x1eed74…1eef08 Dummy {f00=0x012e, f01=0x2008, f02=» ? O 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE 1 > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 1 > 4 PRETUR ABL LDREGE RELOAD A3-A5 AND RETURN VIA A5 1 P* 1 P XIF 1 P* 1 P END 1 @ 1 RESS TO ADDRESS-BLOCK 0 2 P A
0x1eef08…1ef09c Dummy {f00=0x012e, f01=0x0000, f02=»
[…0x5…]
0x1ef880…1efa14 (2, 218) Opaque[0x194]
0x1efa14…1efba8 # DirEnt {nam=»DRTP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2070, f03=0x0000}
0x1efa14…1efba8 IdxSect {
0x1efa14…1efba8 f00 = 0x0103 // 0x1efa14 @0x0
0x1efa14…1efba8 f01 = 0x0012 // 0x1efa16 @0x2
0x1efa14…1efba8 gno = [ // 0x1efa18 @0x4
0x1efa14…1efba8 [0x00]: C0x0103.0x2.0
0x1efa14…1efba8 [0x01]: C0x0104.0x0.0
0x1efa14…1efba8 [0x02]: C0x0104.0x3.0
0x1efa14…1efba8 [0x03]: C0x0105.0x0.0
0x1efa14…1efba8 [0x04]: C0x0105.0x1.0
0x1efa14…1efba8 [0x05]: C0x0105.0x2.0
0x1efa14…1efba8 [0x06]: C0x0105.0x3.0
0x1efa14…1efba8 [0x07]: C0x0106.0x0.0
0x1efa14…1efba8 [0x08]: C0x0106.0x1.0
0x1efa14…1efba8 ]
0x1efa14…1efba8 }
0x1efba8…1efd3c Dummy {f00=0x0103, f01=0x0190, f02=» 2 P IDENT DRTP02 REL 9.2 79-11-16 870105040920 P : P =4,CUT AND PERF CORRECTED B P REL 9.1 79-05-23 f P UPDATE PRR 9.1 - REL 9.1 P PRR 9.1 79-04-25 P REL 9.1 79-04-06 & P =1-3,GEN UPDATE TO 8.2+ STATUS P
0x1efd3c…1efed0 Dummy {f00=0x0103, f01=0x0190, f02=» REL 8.2 79-03-16 P =1,IMPRROV. OF TEST ORDER P REL 8.2 78-09-15 @ < P******************************************************* < P* * < P* PHILIPS TERMINAL SYSTEM PTS
0x1efed0…1f0064 Dummy {f00=0x0103, f01=0x0190, f02=» * < P* * < P* * L P* P* P* < P* * < P******************************
0x1f0064…1f01f8 Dummy {f00=0x0103, f01=0x0190, f02=» TO CPU VIA CHLT OR CHRT v P* P* * 4 P* THIS DRIVER CONSISTS OF THE FOLLOWING PARTS: 4 P* l $ P* A C T P : ACTIVATION PART v P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P : RECOVERY ROUTINE P*
0x1f01f8…1f038c Dummy {f00=0x0103, f01=0x0190, f02=» SEND THEM P* 6 P* B C D T B Y : CONVERT TO BINARY FROM DECIMAL P* V D P* B U F C H R : SEND THE NUMBER OF CHARACTERS GIVEN IN FIRST ` $ P* CHARACTER IN OUTPUT BUFFER P* . P* G R A S P : SEND GRASP TO VOUCHER
0x1f038c…1f0520 Dummy {f00=0x0103, f01=0x0190, f02=» P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE 6 0 P* ORDER 0B : POSITION LIFT AND WRITE X $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE JOURNAL . P* ORDER 37 : GRASP VOUCHER/PASS
0x1f0520…1f06b4 (2, 219) Dummy {f00=0x0104, f01=0x0190, f02=»BIT 0 : REQUEST ERROR 4 P* BIT 8 : RECOVERY EXECUTED ON REQUEST & 8 P* BIT 10 : END OF JOURNAL TAPE, VOUCHER OUT ^ ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE P* P* P*
0x1f06b4…1f0848 Dummy {f00=0x0104, f01=0x0190, f02=» A3: BUFFER POINTER $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER D P* A6: DWT-ADDRESS j P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* P* P* SYSTEM ADAPT
0x1f0848…1f09dc Dummy {f00=0x0104, f01=0x0190, f02=»TURN CODE IS SET IF RECOVERY IS EXECUTED ON REQUEST 4 P* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) < 0 P* ACCAPTANCE OF SPECIAL CHARACTER /13,/14 t H P* COMPLETION OF REQUEST AT 'VOUCHER OUT' BEFORE MESSAGE IS WRITTEN P* P* @ P
0x1f09dc…1f0b70 Dummy {f00=0x0104, f01=0x018e, f02=» P* P EJECT P* P*********** * P* ENTRIES * > P*********** R P* f P* p P ENTRY TPAD ADDRESS BLOCK z P* P* P* P************* P* EXTERNALS * P************* P* P*
0x1f0b70…1f0d04 Dummy {f00=0x0104, f01=0x0190, f02=» P EXTRN TENDIO END I/O & P EXTRN OUTPUT OUTPUT ONE CHARACTER " " P EXTRN LDREG RESTORE REGISTERS L 8 P EXTRN STREG STORE REGISTERS AND WAIT FOR INTERRUPT r P EXTRN SAVE8 SAVE REG. A1-A8 P* P EXTRN DWTST STATUS EXTRN DWTBC BYT
0x1f0d04…1f0e98 Dummy {f00=0x0104, f01=0x0190, f02=» P* ECB DISPLACEMENTS P* $ P EXTRN ECBBA BUFFER ADDRESS . " P EXTRN ECBRL REQUESTED LENGTH R " P EXTRN ECBEL EFFECTIVE LENGTH x P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P EJECT P************************
0x1f0e98…1f102c Dummy {f00=0x0104, f01=0x0190, f02=»ODE IS SET b P* BY SETTING X:A = 1 P* 0 P* : PX:A EQU 0 D PRECOV EQU 0 V P* j P* t : P* JOURNAL TAPE MAY BE CUT/PERFORATED FOR PTS 6223 BY ~ P* SETTING X:B = 1 P* P* PX:B EQU 0 PCUTPER EQU
0x1f102c…1f11c0 Dummy {f00=0x0104, f01=0x0190, f02=»* P* PX:C EQU 0 PCHR13 EQU 0 & P* : P* D PX:D EQU 0 N PCHR14 EQU 0 ` P* t P* ~ 2 P* PRINTING VOUCHER/PASSBOOK, IS COMPLETED IF : P* PRINT OBJECT IS REMOVED UNDER PRINTING IF X:E = 1 P* P*
0x1f11c0…1f1354 (2, 220) Dummy {f00=0x0104, f01=0x0190, f02=»T X < P* IS INACTIVE,END OF REQUEST MAY BE CHOSEN BY SETTING > P* THE CONSTANT RELEND=1. RETURN CODE NOT OPERABLE IS SET J P* P* PX:F EQU 0 PRELEND EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x1f1354…1f14e8 Dummy {f00=0x0104, f01=0x0190, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 0 R P* f P* p P* MMU BUFFER SIZE z P* P* PX:H EQU 20 PDVBLEN EQU 100 P* P EJECT P* P* P**********
0x1f14e8…1f167c Dummy {f00=0x0104, f01=0x0190, f02=»/20 RETURN CODE. END OF JOURNAL TAPE P* , P* 6 0 PVOIN EQU /8 'VOUCHER IN' BIT IN DATA-REQUEST @ 2 PEOJT EQU /4 'END OF JOURNAL' BIT IN DATA-REQ. t @ PVOCHA EQU /200 BIT #6 DWTTST;VOUCHER STATUS CH. NOT ALLOWED 4 PMESS EQU /400 BIT #5 DWTTS
0x1f167c…1f1810 Dummy {f00=0x0104, f01=0x0190, f02=»UMMY ~ , PREMOT EQU /01 RESET PRINT BUFFER REMOTE * PTAB EQU /11 TABULATION CHAR IN BUFFER < PCR1 EQU /0D CR JOURNAL TAPE j PLF1 EQU /18 LF JOURNAL TAPE . PCR2 EQU /09 CR TALLY ROLL,VOUCHER/PASSBOOK PLF2 EQU /19 LF TALLY ROLL $ PLD
0x1f1810…1f19a4 Dummy {f00=0x0104, f01=0x0190, f02=»OR INSERTION OF VOUCHER/PASSBOOK ~ ( PREL EQU /1B RELEASE VOUCHER/PASSBOOK ( " PAPH EQU /1D ATTACH PRINT HEAD T " PRPH EQU /1E RETURN PRINT HEAD z 4 PTETX EQU /83 LAST DUMMY AFTER GRASP AND RELEASE P* P* P*********************
0x1f19a4…1f1b38 Dummy {f00=0x0104, f01=0x0190, f02=» P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF 6 P* B P IFT MMUPAG=1 L PSTART EQU DWTDRD+4 b P XIF | P* . PDWTRLN EQU START+/12 REQUESTED LINE NUMBER , PDWTALN EQU START+/13 ACTUAL LINE NUMBER P* P EJECT
0x1f1b38…1f1ccc Dummy {f00=0x0104, f01=0x018e, f02=» IFT CUTPER=0 PBUF2 DATA /0382 STX P XIF 2 P IFT CUTPER=1 > PBUF2 DATA /0482 STX T P XIF p $ P DATA /091D,/2000 CR2,APH,SPACE | & PBUF3 DATA /0382,/091D STX,CR2,APH 4 PBUF5 DATA /041B,/9783,/8200 REL,ETB,DUMMY,STB =2 P*
0x1f1ccc…1f1e60 Dummy {f00=0x0104, f01=0x0190, f02=» P DATA 2 DEVICE INDEX PTPAD EQU * ADDRESS BLOCK P DATA ACTP ACTIVATIONDRIVER @ " P DATA 0 ABORT ROUTINE ADDRESS d P DATA IHTP INTERRUPTHANDLER P DATA RCTP RECOVERY ROUTINE P* $ P* TABLE TO GET ROOMLESS POINT P*
0x1f1e60…1f1ff4 (2, 221) Dummy {f00=0x0105, f01=0x0190, f02=» PLFTAB EQU * , P DATA /1819 LINE FEED JOURNAL/TALLY ROLL P* L P* V P IFT CUTPER=1 ` : PCPTAB DATA /1F0F CODES FOR PERFORATE/CUT JOURNAL TAPE v P XIF PTPTAB EQU * ORDER TABLE P DATA /0002,/0607,/080D P IFT CUT
0x1f1ff4…1f2188 Dummy {f00=0x0105, f01=0x0190, f02=»P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR J P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* < P* GET DWT INDEX: 0=JOURNAL,1=TALLY,2
0x1f2188…1f231c Dummy {f00=0x0105, f01=0x0190, f02=»WTOR+1,A6 SAVE NEW ORDER IN DWT P LDK A4,0 ACTIVATION ( PACT005 LDK A3,TPLEN-1 D 2 PACT010 CC A7,TPTAB,A3 FIND OUT IF LEGAL ORDER b P RF(E) ACT020 VALID ORDER P SUK A3,1 P RB(NN) ACT010 TRY NEXT P* P ABL DISIOE ILLEGA
0x1f231c…1f24b0 Dummy {f00=0x0105, f01=0x0190, f02=»,A3 EXECUTE ORDER : PTPFUC DATA TPTEST,TPTEST,TP200,TP405,ACT055,ACT050 =1 P IFT CUTPER=1 X P DATA TP700,TP750 n P XIF P DATA TP800,TP900 P EJECT =1 P* =1 P* =1 P* ORDER 00: TEST =1 J P*
0x1f24b0…1f2644 Dummy {f00=0x0105, f01=0x0190, f02=»TPTEST LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 & P LDK A2,/02 SEND CHAR /02 =2 @ P CF A5,OUTPUT =1 d * P LDK A2,0 SEND CHAR /00=END OF TEST =1 ~ P CF A5,OUTPUT =1 P RF TPDUMY =1 P EJECT P* P* , P* ORDER
0x1f2644…1f27d8 Dummy {f00=0x0105, f01=0x0190, f02=»T050 LD A1,ECBCW,A8 GET LINE NUMBER FROM CONTROL WORD IN ECB P RF ACT085 D P* V , PACT055 LD A3,ECBBA,A8 GET BUFFER ADDRESS ` & P LC A3,1,A3 GET CONTROL CHARACTER $ P ANK A3,/FF REQUESTED LINE STEPS P SUK A3,/39 P RF(G) ACT070 > /3
0x1f27d8…1f296c Dummy {f00=0x0105, f01=0x0190, f02=»1-9 LF r P ADK A3,/5 P RF(Z) TP605 /2B = NO LF PACT070 LDK A3,1 ONE LF @ 4 PACT080 LC A1,DWTRLN,A6 GET LINE NUMBER FROM DWT ^ * P SUR A1,A3 GET REQUESTED LINE POSITION 2 PACT085 RF(NN) ACT090 LINE POSITION LESS ZERO ? * P LDK A1,0 YES;
0x1f296c…1f2b00 Dummy {f00=0x0105, f01=0x0190, f02=»LINE NUMBER p P RF TP605 P EJECT & P* 4 P* > P* H P* ORDER 06 : PRINT JOURNAL R P* v P* P* * PTP200 LDKL A3,BUF1 SEND CR1 AND ATTACH PTP210 EQU * 0 P LC A1,DWTST,A6 GET LEFT BYTE IN STATUS WORD $
0x1f2b00…1f2c94 (2, 222) Dummy {f00=0x0105, f01=0x018e, f02=»1,3 REQUESTED LENGTH 0-2 ? & P RF(N) TP230 YES; COMPLETE REQUEST " P RF(P) TP215 L P LD A1,2,A8 BUFFER ADDRESS ` P LC A2,2,A1 THIRD CHARACTER $ P CCK A2,/2020 CONTROL CHARACTER P RF(NL) TP215 P LDR A4,A2 SAVE CHAR =2 P LDK
0x1f2c94…1f2e28 Dummy {f00=0x0105, f01=0x0190, f02=» v P CF A5,OUTPUT =2 P RF TP220 " PTP215 EQU * 4 P CF A5,BUFCHR SEND BUFFER H " P CF A5,PRBUF PRINT ECB-BUFFER j PTP220 EQU * P LDK A1,0 6 PTP230 LDKL A2,/FDFF VOUCHER STATUS CHANGE ALLOWED P ANS A2,DWTST,A6 P
0x1f2e28…1f2fbc Dummy {f00=0x0105, f01=0x0190, f02=» PTPLF EQU * P LDK A2,STX SEND STX =2 P CF A5,OUTPUT =2 : P LDR A1,A1 T P RF(NE) TPLF10 f " P LDK A2,RPH DETACH PRINT HEAD | P CF A5,OUTPUT SEND PTPLF10 EQU * P SUK A7,8 ( P RF(NN) TPL010 NOT JOURNAL AND TALLY
0x1f2fbc…1f3150 Dummy {f00=0x0105, f01=0x0190, f02=»8 GET REQUESTED LENGTH | * P ST A1,ECBEL,A8 STORE EFFECTIVE LENGTH ! P EJECT ! L P* ! Z P* ! d P* COMMON END OF PRINT ! n P* ! P* ! " P* SEND LAST DUMMY CHARACTER ! P* ! PTPDUMY EQU * ! P LDK A2,ETB SEND ETB =2 ! P C
0x1f3150…1f32e4 Dummy {f00=0x0105, f01=0x0190, f02=»ARACTER ! l P* " PTPTST EQU * " . P SUK A7,2 TEST STATUS : VOUCHER/PASSBOOK ? " . P RF(NZ) TST010 NO " ` $ PTST005 ANK A2,VOIN VOUCHER OUT ? " z P RF(NZ) ENDIO NO " P RF TST015 YES " P* " PTST010 SUK A7,4 " P IFT CUTPER=0 " * P
0x1f32e4…1f3478 Dummy {f00=0x0105, f01=0x0190, f02=» * " P XIF # & P ANK A2,EOJT END OF JOURNAL TAPE? # $ P RF(NZ) ENDIO NO: PERFORM ENDIO # @ ( PTST015 ORK A1,PROUT SET RETURN CODE: # h ( P END OF JOURNAL TAPE, VOUCHER OUT # P* # P* # , P* PERFORM END I/O AND GO TO DISPATCHER # P* #
0x1f3478…1f360c Dummy {f00=0x0105, f01=0x0190, f02=» # PTST020 SUK A7,16 $ " P RB(L) ENDIO VOUCHER/PASSBOOK $ P SUK A7,4 $ F P RB(G) ENDIO GRASP,RELEASE $ X P RB TST012 CUT,PERFORATE $ z P XIF $ P EJECT $ P* $ P* $ P* $ $ P* ORDER 06 : PRINT TALLY ROLL $ P* $ P* $
0x1f360c…1f37a0 Dummy {f00=0x0105, f01=0x0190, f02=» LDKL A1,VOCHA $ @ P ORS A1,DWTST,A6 INDICATE VOUCHER STATUS CHANGE NOT ALLOWED % P RB TP210 % Z P* % l P EJECT % v P* % P* % P* % * P* ORDER 06 : WRITE VOUCHER/PASSBOOK % * P* OB : POSITION LIFT AND WRITE % P* % P
0x1f37a0…1f3934 (2, 223) Dummy {f00=0x0105, f01=0x0190, f02=» % P* & P* & * P* SEND ELEVATOR UP/DOWN UNTIL ACTUAL & & P* LINE NUMBER IS EQUAL REQUESTED & J P* & t P* & ~ . PTP610 CC A3,DWTRLN,A6 COMPARE LINE NUMBER & P RF(E) TP650 EQUAL & " P RF(G) TP630 SEND ELEVATOR UP & " P LDK A2,LDO SE
0x1f3934…1f3ac8 Dummy {f00=0x0105, f01=0x0190, f02=»3,1 DECREMENT ACTUAL LINE NUMBER & P* ' ( & PTP640 CF A5,OUTPUT SEND LIFT CHAR ' 2 P* ' , P SC A3,DWTALN,A6 SAVE ACTUAL LINE NUMBER ' f P ANK A2,VOIN VOUCHER IN ? ' P IFT COMPL=0 ' & P ABL(Z) RCTP01 NO: ERROR RECOVERY ' , P RB TP610 YES: CHE
0x1f3ac8…1f3c5c Dummy {f00=0x0105, f01=0x0190, f02=»VOUCHER OUT' ' | , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE ( P RB TPDUMY ( D P XIF ( V P EJECT ( b P* ( p P* ( z , P* ORDER 06 AND 0B: LIFT IS POSITIONED ( * P* ATTACH AND PRINT ( P* ( P* ( PTP650 EQU * ( &
0x1f3c5c…1f3df0 Dummy {f00=0x0105, f01=0x0190, f02=» AND 26 CUT AND PERFORATE JOURNAL ( P* ) , PTP700 EQU * ) 6 P LDK A3,1 SET INDEX =4 ) J P RF TP760 ) h PTP750 EQU * ) z P LDK A3,0 SET INDEX =4 ) PTP760 LDK A2,STX SEND STX =4 ) P CF A5,OUTPUT =4 ) P LC A2,CPTAB,A3 GET CHAR =4 )
0x1f3df0…1f3f84 Dummy {f00=0x0105, f01=0x0190, f02=»ASE VOUCHER/PASSBOOK ) l P* * PTP800 EQU * * & P CF A5,GRASPA * : P RB TPDUMY * P PTP900 EQU * * b P CF A5,RELEAS * v P RB TPDUMY * P * P EJECT * P* * P* P R B U F * P* * F P* SUBROUTINE TO SEND CHARACTERS FROM ECB
0x1f3f84…1f4118 Dummy {f00=0x0105, f01=0x018e, f02=»ST REQUESTED LENGTH * " P LD A3,ECBBA,A8 BUFFER ADDRESS + ( P* SKIP PRECEDING SPACES IN BUFFER + B P ADK A3,2 + n " PPRB010 LCR A1,A3 GET CHARACTER + P CCK A1,/2020 + P RF(NE) PRB050 NOT BLANK + P ADK A3,1 BLANK + P SUK A4,1 + " P R
0x1f4118…1f42ac Dummy {f00=0x0105, f01=0x0190, f02=» + n ( P ADR A1,A4 LAST CHARACTER IN BUFFER , P LC A1,-1,A1 GET CHAR , 4 * P CCK A1,/0909 CARRIAGE RETURN - CR2 ? , R P RF(E) PRB060 YES , * P CCK A1,/0D0D CARRIAGE RETURN - CR1 ? , P RF(E) PRB060 YES , P LDK A1,0 DUMMY CHARACTER , P RF
0x1f42ac…1f4440 Dummy {f00=0x0105, f01=0x0190, f02=»00 SUK A4,1 DECREMENT REQUESTED LENGTH , P RF(NN) PRB105 PRINT BUFFER - . 6 P LD A2,ECBEL,A8 GET CARRIAGE RETURN CHAR (/09,/0D) - R P RF(E) PRB101 - P CF A5,OUTPUT SEND CHAR - PPRB101 EQU * - P LDK A2,ETB - & P CF A5,OUTPUT SEND END OF MESS
0x1f4440…1f45d4 (2, 224) Dummy {f00=0x0105, f01=0x018e, f02=» ORS A1,DWTST,A6 - PPRB102 RTN A5 . P EJECT . . P* . < P* . F P* . P P* PRINT BUFFER . Z P* . r P* . | PPRB105 EQU * . 2 P ADR A3,A4 ADDRESS TO CHARACTER TO BE PRINTED . P SUK A7,7 CHECK ORDER . P RF(L) PRB200 PRINT JOURNA
0x1f45d4…1f4768 Dummy {f00=0x0105, f01=0x0190, f02=» P* / P ANK A2,VOIN VOUCHER IN ? / " P RF(Z) PRB200 NO. GO AND PRINT / 0 " P ADK A5,4 RESET STACK POINTER / V * P RB TP405 SEND LIFT TO TOP AND RELEAS / | P* / P* / P* / P* PRINT VOUCHER/PASSBOOK / P* / P* / $ PPRB110 ANK
0x1f4768…1f48fc Dummy {f00=0x0105, f01=0x018e, f02=»45 / P XIF 0 $ P LDR A1,A4 COPY REQUESTED LENGTH 0 P SUK A1,2 R.L. < 3? 0 > $ P RF(N) PRB200 YES: NO TABULATION 0 Z P LDK A1,TAB 0 P CC A1,-2,A3 TABULATION? 0 P RF(NE) PRB200 NO 0 P EJECT 0 P* 0 P* 0 4 P* IF TABULATION CHAR
0x1f48fc…1f4a90 Dummy {f00=0x0105, f01=0x0190, f02=» 0 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 P CF A5,OUTPUT SEND DETACH 1 > , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1 ` $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A2,4 1 P ANK A2,/F0 LINE DECADE 1 " P O
0x1f4a90…1f4c24 Dummy {f00=0x0105, f01=0x018e, f02=»BC,A6 COMPARE WITH ACTUAL TAB. POS. 1 P RF(NG) PRB125 PRINT 2 , P* 2 H P* 2 R P* 2 P LDK A2,/20 LOAD BLANK 2 f ( P CF A5,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2 . PPRB125 SUK A4,2 DECREMENT REQUESTED LENG
0x1f4c24…1f4db8 Dummy {f00=0x0105, f01=0x0190, f02=» 2 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHECK IF 3 P* - ROOMLESS POINT 3 H P* - ILLEGAL CHARACTER 3 d & P* - SPECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3 LOAD OUTPUT CHARACTER 3 " P CCK A7,/AEAE
0x1f4db8…1f4f4c Dummy {f00=0x0105, f01=0x0190, f02=»ACTER 3 v P ANK A7,/F MASK 4 & P LC A7,ROMTAB,A7 GET CODE IN TABLE 4 & P* 4 P P* 4 Z P* 4 d , PPRB210 CCK A7,/2020 ILLEGAL CHARACTER ? 4 n P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTER ? 4 P RF(NG) PRB230 NO 4 P* 4
0x1f4f4c…1f50e0 Dummy {f00=0x0105, f01=0x0190, f02=»FT CHR14=1 4 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 P RF(E) PRB230 YES 5 < P XIF 5 V P* 5 b " P LDK A1,CCERR CODE CHECK ERROR 5 l * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5 P RF PRB245 5 P
0x1f50e0…1f5274 (2, 225) Dummy {f00=0x0106, f01=0x018e, f02=»PUT SEND CHARACTER 5 , PPRB245 SUR A3,A4 START OF BUFFER ADDRESS 6 P RB PRB100 6 J P* 6 P* 6 f P* 6 p P EJECT 6 z P* 6 P* I H T P 6 P* 6 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT 6 P* 6 P* 6 P* 6 PIHTP E
0x1f5274…1f5408 Dummy {f00=0x0106, f01=0x018e, f02=» P RF(NG) IHTP20 YES =1 7 , P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT 7 " P =1 7 R P IFT RELEND=0 7 ` * P RF(NZ) RCTP10 YES GO TO DISPATCHER =1 7 v P XIF 7 P IFT RELEND=1 7 ( P RF(NZ) IHTP30 YES FINISH REQUEST =1 7 P XIF 7 8 PIHTP10 ABL
0x1f5408…1f559c Dummy {f00=0x0106, f01=0x0190, f02=» 7 P ABL ENDIO 8 P* 8 P* 8 $ P* 8 . P EJECT 8 8 P* 8 F P* R C T P 8 P P* 8 d > P* RECOVERY ROUTINE: REPRINTS RUNNING REQUEST AT POWER ON 8 n P* 8 PRCTP EQU * 8 P IFT CPU852=1 8 & P CF A15,SAVE8 SAVE A1-A8 ON STACK 8
0x1f559c…1f5730 Dummy {f00=0x0106, f01=0x0190, f02=»SY =3 8 t P ANS A2,DWTST,A6 =3 9 P LD A2,DWTECB,A6 =3 9 * ( P RF(Z) RCTP05 REQUEST NOT RUNNING =3 9 F P* 9 r $ PRCTP01 LDKL A5,DWTSB2 STACK BASE 9 | P ADR A5,A6 9 < P LDK A2,REMOT RESET PRINT BUFFER REMOTE AND LOCAL DUMMY 9 P CF A5,OUTPUT SEND
0x1f5730…1f58c4 Dummy {f00=0x0106, f01=0x018e, f02=» 2 P SC A2,DWTALN,A6 STORE 0 AS ACTUAL LINE NUMBER : P LDK A2,LFF LIFT TO TOP : : P CF A5,OUTPUT : Z P LD A2,DWTECB,A6 =3 : p & P RF(NZ) RCTP07 REQUEST RUNNING =3 : 0 P LDK A2,ETX SEND LAST DUMMY TO STOP TIMER =3 : P CF A5,OUTPUT =3 : P ABL
0x1f58c4…1f5a58 Dummy {f00=0x0106, f01=0x0190, f02=» P XIF ; P LDK A4,1 IND RECOVERY ; * P ABL ACT005 START RECOVERY OF PRINTER ; . & PRCTP10 ABL TDISP GO TO DISPATCHER ; P EJECT ; P* ; P* B C D T B Y ; P* ; 4 P* SUBROUTINE TO CONVERT TO BINARY FROM DECIMAL ; P* ; P* ;
0x1f5a58…1f5bec Dummy {f00=0x0106, f01=0x0190, f02=»BY 6 ; | P RB BCDTB1 < " PBCDTB2 RTN A5 RETURN TO CALLER < P* < F P* < P P* < Z P* < d P* < n P* G R A S P < x P* < 4 P* SUBROUTINE TO SEND GRASP TO VOUCHER/PASSBOOK < P* < P* < PGRASPA EQU * < P LDK A2,STX SEND
0x1f5bec…1f5d80 Dummy {f00=0x0106, f01=0x0190, f02=»DK A2,GRA GRASP < P CF A5,OUTPUT = P ANK A2,VOIN VOUCHER IN ? = . P RF(NZ) GRAS10 YES = P P LDK A2,ETB SEND ETB =2 = j P CF A5,OUTPUT =2 = " P LDK A2,TETX DUMMY AFTER GRASP = P CF A5,OUTPUT = P LDK A2,STX SEND STX =2 = P CF A5,O
0x1f5d80…1f5f14 (2, 226) Dummy {f00=0x0106, f01=0x0190, f02=» = P* > P EJECT > P* > P* > * P* R E L E A S > 4 P* > L 2 P* SUBROUTINE TO SEND LIFT TO TOP AND RELEASE > V P* > P* > P* > PRELEAS EQU * > P LDK A1,0 > 0 P SC A1,DWTALN,A6 SET ACTUAL LINE NUMBER TO 0 > ( P LDK
0x1f5f14…1f60a8 Dummy {f00=0x0106, f01=0x0190, f02=»,OUTPUT > P ANK A2,VOIN VOUCHER IN ? ? P RF(Z) BUFRTN ? 2 P* ? H P* B U F C H R ? R P* ? j < P* SUBROUTINE TO OUTPUT A NUMBER OF CHARACTERS GIVEN IN ? t ( P* FIRST CHARACTER IN OUTPUT BUFFER ? P* ? P* ? 4 PBUFCHR LCR A4,A3 GET
0x1f60a8…1f623c Dummy {f00=0x0106, f01=0x40fe, f02=»TER ? t P CF A5,OUTPUT SEND CHARACTER @ P SUK A4,1 DECREMENT COUNTER @ 0 & P RB(NZ) BUFC10 NOT LAST CHARACTER @ T PBUFRTN EQU * @ ~ P RTN A5 RETURN TO CALLER @ P* @ P* @ P* @ P* @ P* @ P* @ P END @ @ @ A4,A3 GET
0x1f623c…1f63d0 Dummy {f00=0x0106, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x1f63d0…1f6564 Dummy {f00=0x0106, f01=0x0190, f02=»* P* P* ENTRY POINTS P* * P* 4 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS > " P ENTRY IH1501 INPUT INTERRUPT t " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK
0x1f6564…1f66f8 Dummy {f00=0x0106, f01=0x0190, f02=»ON A15 STACK x $ P EXTRN TENDIO COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR < P EXTRN SETIME SET TIMER ` P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT (
0x1f66f8…1f688c Dummy {f00=0x0106, f01=0x0190, f02=» 6 P* STANDARD INTERFACE PART FOR DATA COMMUNICATION P* > P* H P* R P* P* DWT CONTENTS f P* | J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P* P* DWT DISPLACEMENTS P* . PDWTT
0x1f688c…1f6a20 Dummy {f00=0x0106, f01=0x0190, f02=»6 RECEIVE QUEUE ( PDWTBUF EQU /18 DEVICE BUFFER ADDRESS " PDWTCUR EQU /1A CURSOR ADDRESS D & PDWTDV EQU /1E DEVICE TYPE NAME D1 j P* P* ECB DISPLACEMENTS P* PECBBA EQU 2 BUFFER ADDRESS PECBRL EQU 4 REQUESTED LENGTH
0x1f6a20…1f6bb4 (2, 227) Opaque[0x194]
0x1f6bb4…1f6d48 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d0, f03=0x0000}
0x1f6bb4…1f6d48 IdxSect {
0x1f6bb4…1f6d48 f00 = 0x0106 // 0x1f6bb4 @0x0
0x1f6bb4…1f6d48 f01 = 0x0018 // 0x1f6bb6 @0x2
0x1f6bb4…1f6d48 gno = [ // 0x1f6bb8 @0x4
0x1f6bb4…1f6d48 [0x00]: C0x0106.0x2.0
0x1f6bb4…1f6d48 [0x01]: C0x0106.0x3.0
0x1f6bb4…1f6d48 [0x02]: C0x0107.0x0.0
0x1f6bb4…1f6d48 [0x03]: C0x0107.0x1.0
0x1f6bb4…1f6d48 [0x04]: C0x0107.0x2.0
0x1f6bb4…1f6d48 [0x05]: C0x0107.0x3.0
0x1f6bb4…1f6d48 [0x06]: C0x0108.0x0.0
0x1f6bb4…1f6d48 [0x07]: C0x0108.0x1.0
0x1f6bb4…1f6d48 [0x08]: C0x0108.0x2.0
0x1f6bb4…1f6d48 [0x09]: C0x012e.0x1.0
0x1f6bb4…1f6d48 [0x0a]: C0x012e.0x3.0
0x1f6bb4…1f6d48 [0x0b]: C0x012f.0x1.0
0x1f6bb4…1f6d48 ]
0x1f6bb4…1f6d48 }
0x1f6d48…1f6edc Dummy {f00=0x0106, f01=0x0190, f02=» 2 P IDENT DRDY01 9.2DK 1 80-02-12 870105040921 P : P *DK,POS 80 ON VDU B P REL 9.2 80-02-12 ^ P =4,ABORT ROUTINE INCLUDED z P REL 9.1 79-05-23 * P =3,STEADY CURSOR PROBLEM CORRECTED P PRR 9.1 79-04-06 , P =
0x1f6edc…1f7070 Dummy {f00=0x0106, f01=0x0190, f02=»01-12 P P* 6 P************************************************** P* Z $ P* PHILIPS TERMINAL SYSTEM PTS d P* 2 P* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY P* P* P* P* P* P* 6 P
0x1f7070…1f7204 Dummy {f00=0x0106, f01=0x0190, f02=» @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 H 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM b P* VIA CHLT OR CHRT. P* < P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS : P*
0x1f7204…1f7398 Dummy {f00=0x0106, f01=0x018e, f02=»BOARD DRIVER DRKB01. P* P* & 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: 0 P* d & P* A C D Y ACTIVATION PART n P* ( P* I H D Y INTERRUPT HANDLER P* ( P* R C D Y RECOVERY ROUTINE P*
0x1f7398…1f752c Dummy {f00=0x0106, f01=0x0190, f02=» P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE 0 " P* 06: STANDARD WRITE R ( P* 07: WRITE GRAPHIC DISPLAY x & P* 0B: CURSOR POSITIONING P* 31: ERASE P* P* NORMAL REGISTER
0x1f752c…1f76c0 Dummy {f00=0x0106, f01=0x0190, f02=»X r $ P* A4 = WORK REGISTER " P* A5 = STACK BASE 2 " P* A6 = DWT-ADDRESS X P* A7 = ORDER ~ " P* A8 = ECB-ADDRESS P* P EJECT P* P* P* SYSTEM ADAPTATION
0x1f76c0…1f7854 (2, 228) Dummy {f00=0x0106, f01=0x0190, f02=»* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 4 * P* 0 1 PTS 6351 & 6342 Z * P* 1 0 PTS 6386 & 6385 * P* --------------------------------- P* 6 P* BY MEANS OF CONDITION
0x1f7854…1f79e8 Dummy {f00=0x0106, f01=0x0190, f02=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER > & P* -CAN SUPPRESS TRAILING BLANKS z F P* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) P EJECT P* P*
0x1f79e8…1f7b7c Dummy {f00=0x0106, f01=0x0190, f02=»S TO ADDRESSBLOCK ~ 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* N P* X P* b P* l . P***************************************** v . P* EXTERNAL TOSS MODULE ENTRIES * . P*****************************************
0x1f7b7c…1f7d10 Dummy {f00=0x0106, f01=0x0190, f02=»R z > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O L . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK j 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO 0 P EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER P EJE
0x1f7d10…1f7ea4 Dummy {f00=0x0106, f01=0x0190, f02=»ST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER 4 P* N P EJECT X P************* f P* CONSTANTS * | P************* P* PFASTO EQU /14 FAST OUTPUT $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTAR EQU /
0x1f7ea4…1f8038 Dummy {f00=0x0106, f01=0x0190, f02=»TOP r PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED , PHOME EQU /0B CURSOR HOME H ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME h PCR EQU /0D CARRIAGE RETURN PCURRIG EQU /10 CURSOR RIGHT PSPACE EQU /20 SPACE PSTX EQU /82 START
0x1f8038…1f81cc Dummy {f00=0x0106, f01=0x018e, f02=»PE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER * 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT P PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* P******************** P* RETURN CODE
0x1f81cc…1f8360 Dummy {f00=0x0106, f01=0x0190, f02=» P EJECT P* P* . P***************************************** * . P* CONDITIONAL ASSEMBLY * . P***************************************** P* P* H P* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MO
0x1f8360…1f84f4 (2, 229) Dummy {f00=0x0107, f01=0x0190, f02=»44 Z P* PX:B EQU 1 PWHATDY EQU 0 & P* : P* D 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR N & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 0 PLOWCHA EQU 0 P* P* 8 P* BY MEANS OF CONDITION
0x1f84f4…1f8688 Dummy {f00=0x0107, f01=0x018e, f02=»ANT X:G=0 f P* PX:D EQU 0 PEORECH EQU 0 . P* B 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS L @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 PTRASPA EQU 1 P EJECT P*
0x1f8688…1f881c Dummy {f00=0x0107, f01=0x0190, f02=» < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 D P* f PMMUPAG EQU 1 p P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x1f881c…1f89b0 Dummy {f00=0x0107, f01=0x0190, f02=» CHARACTER SETS. h P P P* CODE COUNTRY ( P > P* 0 GB/NL/B F P* 1 D/A/L/CH Z P* 2 F/CH/B/L n P* 3 E P* 4 I/CH P* 5 S/SF P* 6 DK/N P* 7 P P* 8 YU P* 9 US PX:G EQU 0 PCOUNTRY EQU
0x1f89b0…1f8b44 Dummy {f00=0x0107, f01=0x0190, f02=»CT P* P* $ P******************************** $ P* DWT-DISPLACEMENT * F $ P******************************** n P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU
0x1f8b44…1f8cd8 Dummy {f00=0x0107, f01=0x0190, f02=»ION POINTER r " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES : & PDWTBIN EQU START+/16 BUFFER INDEX P* P EJECT P* P* P********** P* TABLES * P********** P* P* P DATA DVBLEN
0x1f8cd8…1f8e6c Dummy {f00=0x0107, f01=0x0190, f02=»OUTINE ADDRESS ~ P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE : . P DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE ^ P* P* , PTABSPE EQU * TABLE OF SPECIAL CHARACTERS P DATA /0712,/131E,/1F14 P EJECT P*
0x1f8e6c…1f9000 Dummy {f00=0x0107, f01=0x0190, f02=»ISPLAY AND RETURN CODE b 2 P* IS SET IF DISPLAY NOT OPERABLE P* T P* ^ > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY h 6 P* FROM ECB-BUFFER WITHOUT ANY CHECK. P* F P* ORDER 06: STANDARD WR
0x1f9000…1f9194 (2, 230) Dummy {f00=0x0107, f01=0x0190, f02=» IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER B F P* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> P* P IFT GRAFIC=1 B P* ORDER 07:
0x1f9194…1f9328 Dummy {f00=0x0107, f01=0x0190, f02=» IS SENT TO THE DISPLAY. P* " P XIF , : P* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. 8 < P* THE CURSOR IS SENT TO THE POSITION GIVEN v > P* IN CONTROL WORD. NO INFORMATION ON DISPLAY @ P* I
0x1f9328…1f94bc Dummy {f00=0x0107, f01=0x0190, f02=»RASED ON THE LINE j < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL Z @ P* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS : P* IN THE CURSOR POSITION.
0x1f94bc…1f9650 Dummy {f00=0x0107, f01=0x018e, f02=»UNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES * P LDK A2,STX START OF MESSAGE D P CF A5,OUTPUT SEND h P IFT WHATDY=0 " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/10 GRAPHIC DISPLAY P RF(E) ACDY02 NO P IFT GRAFIC=1
0x1f9650…1f97e4 Dummy {f00=0x0107, f01=0x0190, f02=» d P CF A5,OUTPUT P* P XIF ( P* 4 PACDY02 EQU * > P CWK A7,5 ORDER 5 R P RF(E) ACDY90 YES l P SUK A7,6 ORDER 6 ? P RF(E) ACDY20 YES P SUK A7,5 ORDER /B ? P ABL(E) ADY200 YES P SUK A7,/26 ORDER ERAS
0x1f97e4…1f9978 Dummy {f00=0x0107, f01=0x0190, f02=»N RIGHT BYTE IN BUFFER p P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD < " P* /30 CR, LF, LF p B P* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION P* OTHER VALUE CR, LF P* P
0x1f9978…1f9b0c Dummy {f00=0x0107, f01=0x0190, f02=»FFER ADDRESS ~ & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF > PACDY25 EQU * R * P SUK A2,/2B POSITIONING BEFORE WRITE ? f P RF(E) ACDY90 P SUK A2,6 /31 ? P RF(E) ACDY65 P LDK A4,1 INDICATE LINE FEED " P ADK A2,1 DO
0x1f9b0c…1f9ca0 Dummy {f00=0x0107, f01=0x0190, f02=»TURN t PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER $ 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS Z P* PACDY50 EQU * P CF A5,OUTPUT SEND CHARACTER PACDY52 SUK A4,1 & P RF(N) ACDY90 START SECT
0x1f9ca0…1f9e34 (2, 231) Dummy {f00=0x0107, f01=0x0190, f02=»OUNTER r P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND & P RB ACDY50 P ( PACDY65 LDK A2,CLEHOM CLEAR AND HOME b P LDK A1,1 & P SC A1,DWTAP,A6 RESET LINE COUNTER P RB ACDY35 P EJECT P* & P* GET, CHECK AND
0x1f9e34…1f9fc8 Dummy {f00=0x0107, f01=0x0190, f02=»METER t P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 " P XIF J P LD A4,2,A8 V 2 P ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER j $ P CCR A2,A4 CHAR EQU TO CURRENT? P ABL(E) CHECK YES! PACDY75 EQU * P CF A5,OUTPUT
0x1f9fc8…1fa15c Dummy {f00=0x0107, f01=0x0190, f02=»GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 H P RF(NG) SKIP30 RL < 3 ` P SUK A1,1 DECR. BA ~ P LCR A4,A1 GET CHAR P CCK A4,/2020 SPACE ? P RF(NE) SKIP20 NO PSKIP07 SUK A2,1 DECR RL
0x1fa15c…1fa2f0 Dummy {f00=0x0107, f01=0x0190, f02=»TION CHAR ? | P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! . P SUK A2,2 DECR RL ! H P RB SKIP07 GET NEXT ! b ( PSKIP25 LCR A4,A1 GET CHARACTER AGAIN ! ~ P ANK A4,/FF ! " P SUK A4,/12 UNDER LINE START? ! P RB(Z) SKIP07 YES! SKIP IT! ! P
0x1fa2f0…1fa484 Dummy {f00=0x0107, f01=0x018e, f02=»T A2,4,A8 STORE NEW RL ! P XIF " PACDY90 LDK A4,0 " * 6 PADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER " B P LDR A1,A1 LAST CHARACTER? " | P ABL(NP) ADY405 " P SUK A7,5 ORDER 5? " P RB(E) ACDY75 " P ANK A2,/7F " P LDK A1,5 SET
0x1fa484…1fa618 Dummy {f00=0x0107, f01=0x0190, f02=» " p P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # , P LDK A1,0 SET TABLE PONTER # D * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # f P RF(NE) ADY128 # " P CCK A2,/1E1E LOW INTENSITY ? # P RF(NE) ADY122 NO # P LDK A4,/80 # , PADY120 ORR
0x1fa618…1fa7ac Dummy {f00=0x0107, f01=0x0190, f02=» LDK A4,/40 SET UNDERLINE MODE # P RB ADY120 $ & & PADY125 CCK A2,/1414 FAST OUTPUT ? $ 8 P LDK A4,0 $ b P RB(NE) ACDY50 NO $ t P LDR A4,A2 $ ( P CF A15,GETCHR GET OUTPUT CHARACTER $ P LDR A1,A2 $ P LDR A2,A4 $ P LD A4,4,A8 REQ LENGTH $
0x1fa7ac…1fa940 Dummy {f00=0x0107, f01=0x018e, f02=» P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % N P LDR A3,A1 NO! % Z P CF A5,FASTER % p PADY127 EQU * % P LD A3,4,A8 REQ LENGTH % P ST A3,6,A8 EFF LENGTH % P ABL ADY405 % PADY128 EQU * % P SUK A1,1
0x1fa940…1faad4 (2, 232) Dummy {f00=0x0107, f01=0x0190, f02=» % P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & * P SUK A1,/3F GREATER THAN /5F & P P RB(NP) ACDY70 & t P IFT LOWCHA=0 & 6 P SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F & & P TO CHARACTER BETWEEN /40 TO /5F & P XIF
0x1faad4…1fac68 Dummy {f00=0x0107, f01=0x018e, f02=» P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' 2 P LC A2,DWTBC,A6 ' R P AD A2,DWTAP,A6 GET POSITION ' j P ANK A2,/FF ' $ P ADR A2,A4 ADD LENGTH OF REQUEST ' $ P LD A3,DWTPOS,A6 GET MAX-POS AND ' P ANK A3,/FF ' P S
0x1fac68…1fadfc Dummy {f00=0x0107, f01=0x0190, f02=» 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( 8 & P LDR A3,A1 SAVE CHARACTER TO SEND ( L POT010 LDR A2,A3 ( v $ P CF A5,OUTPUT SENT CHAR (IN A2) ( P SUK A4,1 DECREMENT COUNTER ( P RB(P) OT010 ( P LD A4,10,A8 GET ACT. LENG
0x1fadfc…1faf90 Dummy {f00=0x0107, f01=0x0190, f02=»27 ( P XIF ) P EJECT ) P* ) $ P* CODE CHECK ERROR ) . P* ) L PADY130 EQU * ) V P LDK A1,CCERR ) j P ORS A1,8,A8 RETURN CODE ) P RB ADY100 ) P EJECT ) P* ) P* TABULATION ) P* ) PADY140 EQU * ) , P CF A15,
0x1faf90…1fb124 Dummy {f00=0x0107, f01=0x0190, f02=» ) P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * R P RB(NE) ADY143 * d PADY144 LC A4,DWTAP+1,A6 * z . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER * P LC A4,DWTBC,A6 * , P SUR A2,A4 AND REQUESTS POSITION COU
0x1fb124…1fb2b8 Dummy {f00=0x0107, f01=0x0190, f02=»ADY146 CF A5,OUTPUT * , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + L P RB(NE) ADY145 NO + f P ABL ADY100 + P EJECT + P* + P* ERASE ORDER /31 + P* + 2 PADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE +
0x1fb2b8…1fb44c Dummy {f00=0x0107, f01=0x0190, f02=» & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , . P CF A5,FASTER FAST OUTPUT , B PADY165 LDK A2,ETB , d P CF A5,OUTPUT , ~ P ABL ADY410 END OF REQUEST , P IFT WHATDY=0 , PADY166 EQU * YES =2 , & P CF A5,ERA GET LENGTH TO ERASE =
0x1fb44c…1fb5e0 Dummy {f00=0x0107, f01=0x0190, f02=»ND IT , P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - : P LDR A3,A3 OVER EDGE =2 - d P RF(NN) ADY186 NO =2 - P SUK A4,1 ADJUST LENGTH - PADY186 EQU * - P SUK A4,1 DECREMENT =2 - , P RB(N) ADY165 CURSOR I
0x1fb5e0…1fb774 (2, 233) Dummy {f00=0x0108, f01=0x0190, f02=» P* . * P* ORDER /B CURSOR POSITIONING PART . P* . < PADY200 EQU * . F P* . Z P IFT WHATDY=0 . d " P LDR* A1,A6 CHANNEL PARAMETER . z P ANK A1,/10 GRAFIC DISPLAY? . P RF(NE) ADY205 YES . 2 P* IF VIDEO (6344) SET CURSOR ADDRESS DI
0x1fb774…1fb908 Dummy {f00=0x0108, f01=0x0190, f02=»T CURSOR . P RF ADY380 / P IFT WHATDY=0 / " P* GET LINE / 8 * PADY205 LC A4,10,A8 GET REQUESTED LINE / N $ P CC A4,DWTLIN,A6 OUTSIDE SCREEN? / | P RF(NG) ADY207 NO! / 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE / PADY207 EQU * / $
0x1fb908…1fba9c Dummy {f00=0x0108, f01=0x018e, f02=»INE / | P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 ( PADY230 CF A5,OUTPUT SEND 0 V P LDR A4,A4 REQUESTED LINE 0 v " P RB(NZ) ADY210 NOT EQUAL ZERO 0 P LDK A4,1 0 P RF ADY300 0 PADY250 LDK A2,HOME HOME 0 & P LDK A
0x1fba9c…1fbc30 Dummy {f00=0x0108, f01=0x0190, f02=» 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 : $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 f P RF(NG) ADY303 NO! 1 " P LC A4,DWTPOS,A6 SET LAST LINE 1 PADY303 EQU * 1 P CWK A4,1 FIRST POSITION ? 1 P RF(
0x1fbc30…1fbdc4 Dummy {f00=0x0108, f01=0x0190, f02=»Y305 RF(NL) ADY307 REQ. POS NOT ZERO 1 P LDK A4,1 2 , 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 > P CC A3,DWTPOS,A6 MAX-POS? 2 r P RF(NG) ADY310 NO! 2 P SUK A3,1 2 * PADY310 CWR A4,A3 FORWARDS OR BACKWARDS 2 P RF(E) ADY370 POSITION FOU
0x1fbdc4…1fbf58 Dummy {f00=0x0108, f01=0x0190, f02=»ND 2 z P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 N P RF(L) ADY345 BACKSPACE WAY 3 ~ P LDK A2,CR CARRIAGE RETURN 3 & P LDK A3,1 INDICATE FIRST POSITION 3 P RB ADY330 3 " PADY345 L
0x1fbf58…1fc0ec Dummy {f00=0x0108, f01=0x0190, f02=»UPDATE HEAD POSITION POINTER 3 x P XIF 4 $ & PADY380 LDK A3,2 START BUFFER INDEX 4 0 P ABL ACDY90 4 Z P IFT WHATDY=0 4 n P* 4 & PADY400 LDK A2,/22 START CHARACTER 4 P CF A5,OUTPUT 4 P* 4 P XIF 4 P* 4 P EJECT 4 P* 4 P*
0x1fc0ec…1fc280 Dummy {f00=0x0108, f01=0x018e, f02=»Y405 EQU * 4 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 < P RF(NE) ADY407 NO 5 V P LDR* A1,A6 5 p P LDR A4,A1 5 P ANK A1,/40 UNDERLINE MODE ? 5 P RF(E) ADY406 NO 5 " P LDK A2,ULSTOP UNDERLINE STOP 5 P CF A5,OUTPUT 5
0x1fc280…1fc414 (2, 234) Dummy {f00=0x0108, f01=0x018e, f02=» PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 @ 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 6 d PADY410 LDK A2,ETX LAST DUMMY 6 P CF A5,OUTPUT SEND DUMMY 6 PADY415 EQU * 6 P SUK A7,5 ORDER 5 ? 6
0x1fc414…1fc5a8 Dummy {f00=0x0108, f01=0x0190, f02=» P RF(NE) ENDIO NO *DK 7 , P LD A4,DWTAP,A6 GET CURSOR POSITION. *DK 7 " P ST A4,10,A8 PUT IN ECBCW *DK 7 P PENDIO CF A15,TENDIO END I/O 7 v $ PEXIT ABL TDISP GO TO DISPATCHER 7 P* 7 P IFT GRAFIC=1 7 P* 7 P EJECT 7 P* 7 P*
0x1fc5a8…1fc73c Dummy {f00=0x0108, f01=0x018e, f02=» GET CHARACTER 7 | P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 6 P LDR A4,A2 8 L & P CF A15,GETCHR GET NEXT CHARACTER 8 ^ P LDR A1,A4 8 P ANK A4,/80 ADDRESS OR DATA 8 P RF(E) ADY530 DATA MESSAGE 8 P* 8 P* ADDRESS MESSAGE 8 P*
0x1fc73c…1fc8d0 Dummy {f00=0x0108, f01=0x0190, f02=» P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 ( P ORK A2,/20 9 < , PADY515 CF A5,OUTPUT SEND FIRST CHARACTER 9 P $ P LDR A2,A4 GET SECOND CHARACTER 9 ( P CF A5,OUTPUT SEND SECOND CHARACTER 9 P RB ADY510 9 P EJECT 9 P* 9 P* DATA
0x1fc8d0…1fca64 Dummy {f00=0x0108, f01=0x018e, f02=»A2 9 P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : . P LDK A2,0 : @ PADY540 SLL A1,1 : R P RF(NN) ADY550 : j P ORKL A2,/200 : PADY550 SUK A7,1 : P RF(E) ADY560 : P SRL A2,1 : P RB ADY540 : PADY560 LDR A4,A2 : P SRL A4,
0x1fca64…1fcbf8 Dummy {f00=0x0108, f01=0x0190, f02=» : , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINTER WHEN END ; 8 ( P* OF REQUEST IS REACHED ; h PUPDAPP EQU * ; ( P LC A3,DWTBC,A6 GET POSITION COUNTER ; 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER ;
0x1fcbf8…1fcd8c Dummy {f00=0x0108, f01=0x0190, f02=»POSITION ; f 0 P* POINTER WHEN REQUEST RUNNING. < > P* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE < D P* < PPOSUPD EQU * < ( P LC A2,DWTBC,A6 GET POSITION POINTER < P ANK A2,/FF < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITIO
0x1fcd8c…1fcf20 Dummy {f00=0x0108, f01=0x0190, f02=»R < j PPOSU10 RTN A15 = P EJECT = P* = . P* I H D Y = 8 P* = L P* INTERRUPT = V P* = l PIHDY EQU * = v P LD A4,DWTST,A6 BUSY? = P RB(N) EXIT NO = P SLL A4,2 ECHO MODE ? = P RF(N) IHDY10 = . P LDR A1,A1 RETURN CODE F
0x1fcf20…1fd0b4 (2, 235) Dummy {f00=0x0108, f01=0x0190, f02=» R C D Y = P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > F P* > P ( P* RECOVERY IS CARRIED OUT ONLY IF > Z P* ORDER 6 IS RUNNING > P* > P* AT ENTRY: > P* > P* A6 = DWT-ADDRESS > P* A7 = ORDER > P*
0x1fd0b4…1fd248 Dummy {f00=0x0108, f01=0x018e, f02=» CPU852=0 > " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? 8 P* ? D P =3 ? N P LDKL A2,/7FFF ? P ANS A2,DWTST,A6 SET BUSY ? r P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P =1 ? P* ?
0x1fd248…1fd3dc Dummy {f00=0x0108, f01=0x0190, f02=» . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ 6 P* @ L P XIF @ V P* @ b P EJECT @ l PRCDY10 EQU * @ z P LDK A2,/00 DUMMY TO SEND @ P CF A5,OUTPUT @ $ P LDR A4,A4 LRC-ERROR IN BLOCK ? @ P RF(NE) RCDY20 @ P IFT
0x1fd3dc…1fd570 Dummy {f00=0x0108, f01=0x0190, f02=» P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 A N , P ADK A2,STEADY ADJUST TO STEADY IF SO =3 A $ P CF A5,OUTPUT SEND CURSOR INF =3 A & P SUK A3,1 DEC TRANSFER COUNTER =3 A , P
0x1fd570…1fd704 Dummy {f00=0x0108, f01=0x018e, f02=»TRY SEND 'COUNTRY CODE' =1 A P ORK A2,/30 =1 B " P CF A5,OUTPUT =1 B : P =3 B T P =3 B b PRCDY14 EQU * =3 B p P XIF =1 B ( P LD A3,DWTST,A6 SAVE STATUS WORD =3 B " P LDK A2,CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND B P L
0x1fd704…1fd898 Dummy {f00=0x0108, f01=0x018e, f02=» B x " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C . P EJECT C H P* C V ( P* LRC-ERROR IN BLOCK SENT REMOTE C ` P* C PRCDY20 EQU * C P SUK A7,5 ORDER 5 ? C P RF(NE) RCDY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR C
0x1fd898…1fda2c Dummy {f00=0x0108, f01=0x0190, f02=» C ^ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OUT D 2 P LDK A3,2 START BUFFER INDEX D d PRCDY30 ABL ACDY90 D P EJECT D P* D P* E C H O D Y D P* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE
0x1fda2c…1fdbc0 Dummy {f00=0x0108, f01=0x018e, f02=» EORECH=0 D P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E 0 P ADK A2,/80 E X P* E l P XIF E v P* E P SUK A3,/8 E P RF(E) ECDY40 BACKSPACE E P SUK A3,/10 E P RF(E) ECDY50 CLEAR E & PECDY10 CF A5,OUTPUT SEND C
0x1fdbc0…1fdd54 (2, 236) Dummy {f00=0x012e, f01=0x0190, f02=» ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F 0 P* BACKSPACE F : P* F P PECDY40 EQU * F Z ( P LC A4,DWTBC,A6 GET POSITION COUNTER F n P ANK A4,/FF F P RB(E) ECDY20 FIRST POSITION F $ P LDK A4,1 INDICATE ONE BACKSTEP F P CF A5,BACCAN
0x1fdd54…1fdee8 Dummy {f00=0x012e, f01=0x0190, f02=»ER F n P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G B & P LDR* A1,A6 GET CHANNEL PARAMETER G X P ANK A1,/10 GRAFIC DISPLAY G P RF(E) ECDY60 N G P CF A5,BACCAN BACK G P RB ECDY20 G P XIF G * PECDY60 LDR A3,A4 SAV
0x1fdee8…1fe07c Dummy {f00=0x012e, f01=0x0190, f02=»OUNTER G | P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H 2 P CF A5,FASTER FAST OUTPUT H F P LDK A2,0 H h * P SC A2,DWTBC,A6 RESET POSITION COUNTER H z P RB ECDY20 H P EJECT H P* H P* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR
0x1fe07c…1fe210 Dummy {f00=0x012e, f01=0x0190, f02=» H x P* I PBACCAN EQU * I P LDR A3,A4 I & ( P LC A2,DWTBC,A6 GET POSITION COUNTER I 8 P ANK A2,/FF I d . P AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER I x P ANK A2,/FF I " P CC A2,DWTPOS,A6 LAST POSITION I P RF(NP) BACA10 NO I $ P LDK A2,SP
0x1fe210…1fe3a4 Dummy {f00=0x012e, f01=0x0190, f02=»E SPACE I x P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J * PBACA20 CF A5,OUTPUT SEND J J P SUK A4,1 J j P RB(NE) BACA10 J | P NGR A3,A3 NEGATE REGISTER J , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER J P RTN A5 J P EJECT J 4 P******
0x1fe3a4…1fe538 Dummy {f00=0x012e, f01=0x0190, f02=»SON FOR USING * J r 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P* AND 6386 * K R 4 P*********************************************** K PCHECK EQU * K P* K P* K P LD A1,4,A8 K P SUR A1,A3
0x1fe538…1fe6cc Dummy {f00=0x012e, f01=0x0190, f02=» K l P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L ( P SUK A1,1 END OF BUFFER? L P P RF(NP) OUT YES! L p P ADK A2,1 INCREMENT POINTER L $ P CCR A7,A2 CHAR EQU TO PREVIUS? L P RB(E) NEXT YES! L POUT EQU * L 6 P CWK A4,EQ
0x1fe6cc…1fe860 Dummy {f00=0x012e, f01=0x0190, f02=»TION POINTER * L | , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M F P ANK A2,/FF M ^ " P ADR A3,A4 UPDATE BUFFER-INDEX M r P ST A3,DWTBIN,A6 SAVE INDEX M 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE M P SUR A3,A2 AND COMPARE M
0x1fe860…1fe9f4 (2, 237) Dummy {f00=0x012e, f01=0x0190, f02=»*********** M P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N 4 P CF A5,FASTER N X P************** N n P* SET CURSOR * N " P LD A4,DWTST,A6 GET ACTUAL POS N P ANK A4,/FF N ( P AD A4,DWTAP,A6 INC HEAD POS POINTER N P CF A5,C
0x1fe9f4…1feb88 Dummy {f00=0x012e, f01=0x018e, f02=» SUK A3,1 N P ABL ACDY90 READ NEXT CHAR O P* O 4 . PNOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER O > P ABL ACDY75 O p P EJECT O P* O P* O < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT O 4 P* AT ENTRY A4 = NUMBER
0x1feb88…1fed1c Dummy {f00=0x012e, f01=0x0190, f02=» O PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P < P CF A5,OUTPUT SEND P ^ P LDR A2,A4 NO OF CHAR P x P CF A5,OUTPUT SEND P P LDR A2,A3 P P CF A5,OUTPUT SEND P P RTN A5 P P EJECT P P* P P* P
0x1fed1c…1feeb0 Dummy {f00=0x012e, f01=0x0190, f02=»QU * P P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q * P CF A5,OUTPUT SEND Q J P ECR A2,A4 POS. X < /80? Q d P LDR A2,A2 Q P RF(NN) CURR05 YES! Q P LCK A4,/7F00 Q PCURR05 EQU * Q P LDR A2,A4 Q & P CF A5,OUTPUT OUTPUT POSIT
0x1feeb0…1ff044 Dummy {f00=0x012e, f01=0x0190, f02=»IFT RIGHT Q PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R & P RTN A5 R J P EJECT R Z P* =2 R h P* =2 R v P* =2 R 8 P* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 R P* =2 R P* =2 R 0 P* AT ENTRY A4 = CHAR TO ERASE
0x1ff044…1ff1d8 Dummy {f00=0x012e, f01=0x0190, f02=»2 R t P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 S . P ANK A3,/FF =2 S b 2 P SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x1ff1d8…1ff36c Dummy {f00=0x012e, f01=0x40a2, f02=» RTN A5 RETURN =2 S PABDY EQU * ABORT ROUTINE =4 T , P CF A15,UPDAPP UPDATE CURSOR POSITION =4 T > P RTN A15 RETURN TO CALLER =4 T n P END T @ T EEN =2 S z P ADK A2,1 ADJUST LENGTH =2 S P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO
0x1ff36c…1ff500 Dummy {f00=0x012e, f01=0x2008, f02=» U PP UPDATE CURSOR POSITION =4 S P RTN A15 RETURN TO CALLER =4 T , P END T P@ T EEN =2 S 8 P ADK A2,1 ADJUST LENGTH =2 S n P CWR A4,A2 OUTSIDE SCREEN =2 S P RF(L) ERAEND NO =2 S . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 S P LDK
0x1ff500…1ff694 (2, 238) Dummy {f00=0x012f, f01=0x0000, f02=»
[…0x7…]
0x2001a0…200334 (2, 239) Opaque[0x194]
0x200334…2004c8 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x200334…2004c8 IdxSect {
0x200334…2004c8 f00 = 0x0108 // 0x200334 @0x0
0x200334…2004c8 f01 = 0x002c // 0x200336 @0x2
0x200334…2004c8 gno = [ // 0x200338 @0x4
0x200334…2004c8 [0x00]: C0x0108.0x3.0
0x200334…2004c8 [0x01]: C0x0109.0x0.0
0x200334…2004c8 [0x02]: C0x0109.0x1.0
0x200334…2004c8 [0x03]: C0x0109.0x2.0
0x200334…2004c8 [0x04]: C0x0109.0x3.0
0x200334…2004c8 [0x05]: C0x010a.0x0.0
0x200334…2004c8 [0x06]: C0x010a.0x1.0
0x200334…2004c8 [0x07]: C0x010a.0x2.0
0x200334…2004c8 [0x08]: C0x010a.0x3.0
0x200334…2004c8 [0x09]: C0x010b.0x0.0
0x200334…2004c8 [0x0a]: C0x010b.0x1.0
0x200334…2004c8 [0x0b]: C0x010b.0x2.0
0x200334…2004c8 [0x0c]: C0x012f.0x2.0
0x200334…2004c8 [0x0d]: C0x012f.0x3.0
0x200334…2004c8 [0x0e]: C0x0130.0x2.0
0x200334…2004c8 [0x0f]: C0x0130.0x3.0
0x200334…2004c8 [0x10]: C0x0131.0x0.0
0x200334…2004c8 [0x11]: C0x0131.0x1.0
0x200334…2004c8 [0x12]: C0x0131.0x2.0
0x200334…2004c8 [0x13]: C0x0131.0x3.0
0x200334…2004c8 [0x14]: C0x0132.0x0.0
0x200334…2004c8 [0x15]: C0x0132.0x1.0
0x200334…2004c8 ]
0x200334…2004c8 }
0x2004c8…20065c Dummy {f00=0x0108, f01=0x0190, f02=» 2 P IDENT DRRT01 9.2DK 1 79-11-16 870105040920 P : P =DK1, BLOCK - LOGGBUFFER B P 80-03-11 f ( P =9,TIMER RESET,TEST ORDER,INH-A15 z P REL 9.1 79-06-26 * P =8, INTERRUPT ADDRESS DISPLACEMENT P REL 9.1 79-05-23
0x20065c…2007f0 Dummy {f00=0x0108, f01=0x0190, f02=»6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03-20 " P =5,HANG UP PREVENT > P REL 8.2 79-03-19 P =4,TIME OUT ROUTINE ERROR x P REL 8.2 79-03-18 P =3,DISPL. RECOVERY P REL 8.2 79-03-17 P =2,LOOP TEST ERROR
0x2007f0…200984 Dummy {f00=0x0108, f01=0x0190, f02=»********************** v P* $ P* PHILIPS TERMINAL SYSTEM PTS ( P* P . P* DRRT01 = DRIVER CHANNEL UNIT FOR LOCAL Z & P* AND REMOTE TERMINALS P* P* P* P* P* 4 P********************************
0x200984…200b18 Dummy {f00=0x0108, f01=0x0190, f02=»PUT WORD IS READ TO REGISTER A2. IF DATA z D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER 0 P* FOR ACTUAL DEVICE. x D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* P*
0x200b18…200cac Dummy {f00=0x0108, f01=0x0190, f02=» < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P* D 4 P* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER N P* 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P* P*
0x200cac…200e40 Dummy {f00=0x0108, f01=0x0190, f02=»-A5 AND RETURN TO DISPATCHER f P* $ 6 P* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER . P* h D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN r " P* TO USER VIA A5 P* : P* - LDREGE RESTORE A3-A5 A
0x200e40…200fd4 (2, 240) Dummy {f00=0x0109, f01=0x0190, f02=»N CODE P* A2 = INPUT WORD P* A3 = LINE NUMBER * 2 * P* A4 = DEVICE NUMBER * 2 J P* A5 = CWT-ADDRESS l P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x200fd4…201168 Dummy {f00=0x0109, f01=0x0190, f02=»L UNIT h : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 2 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANEL LOCAL L 4 P ENTRY CHLT4 INTERRUPT FROM FOURtH CHANEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INT
0x201168…2012fc Dummy {f00=0x0109, f01=0x0190, f02=»HANEL REMOTE l $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT < 0 P ENTRY OUTPUT SAVE REGISTERS, SEND CHARACTER ` P ENTRY CHTAB CHANNEL TABLE P AND GO TO DISPATCHER , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P E
0x2012fc…201490 Dummy {f00=0x0109, f01=0x018e, f02=»RY GETCHR GET ONE CHARACTER FROM ECB-BUFFER P 4 @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS < 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC REMOTE TEST FILE CO
0x201490…201624 Dummy {f00=0x0109, f01=0x0190, f02=» P* * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * < * P************************************** j P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER P EXTRN RETUR4 REST
0x201624…2017b8 Dummy {f00=0x0109, f01=0x0190, f02=»UPT TABLE FOR LOCAL TERMINALS | , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 & & P EXTRN INTLT3 INTERRUPT FROM CHLT3 V & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT TABLE FOR REMOTE TERMINALS 2 P EXTRN INTRT2 INTERRUPT TABLE REMOTE
0x2017b8…20194c Dummy {f00=0x0109, f01=0x0190, f02=»XTRN DISIOE I/O REQUEST ERROR & P EXTRN DISEND END I/O AND DISPATCH & * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P P EXTRN TENDIO ~ . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P* P* P* P* P***********************
0x20194c…201ae0 Dummy {f00=0x0109, f01=0x0190, f02=»ACTER r P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK 0 P EXTRN DWTST STATUS ^ P EXTRN DWTWAT z P EXTRN DWTOTQ OUTPUT QUEUE P EXTRN DWTA3 SAVE AREA A3 P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE
0x201ae0…201c74 (2, 241) Dummy {f00=0x0109, f01=0x0190, f02=» INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT . , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT b P* P EJECT P* P* P******************** P* CONSTANTS * P******************
0x201c74…201e08 Dummy {f00=0x0109, f01=0x0190, f02=»SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY * 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS V P EJECT P* , P*************************************** , P* CONDITIONAL ASSEMBLY * , P******
0x201e08…201f9c Dummy {f00=0x0109, f01=0x0190, f02=» INCLUDED TO THE DRIVER BY SETTING X:A=1 P* 2 PX:A EQU 1 < PLOGING EQU 0 N P* b P* l > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE v & P* OR UP TO FOUR LOCAL CHANNELS. P* PX:B EQU 1 PLOCHAN EQU
0x201f9c…202130 Dummy {f00=0x0109, f01=0x0190, f02=»IN b 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. F P* n PX:C EQU 1 x PACKMUL EQU 0 P* P* > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR R
0x202130…2022c4 Dummy {f00=0x0109, f01=0x0190, f02=»LE CODE " r P* STANDARD IS /15 P* . PX:E EQU /15 8 PREMFC EQU /15 L P* b * P* ECHO FUNCTION CAN BE EXCLUDED BY l P* SETTING X:F = 0 P* PX:F EQU 1 PCECHO EQU 01 P* P* 6 P* A PROGRAM
0x2022c4…202458 Dummy {f00=0x0109, f01=0x018e, f02=» DB P* 8 P* BY SETTING BLOCK=1 BLOCKSENDING IS PERMITTED < P* BY SETTING BLOCK=0 BLOCKSENDING IS NOT PERMITTED T P* PBLOCK EQU 0 DK1 P* P DE P EJECT : P********************************************
0x202458…2025ec Dummy {f00=0x0109, f01=0x0190, f02=» X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* J PDWA1 EQU /03 DEVICEADDRESS T P* v PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUT
0x2025ec…202780 Dummy {f00=0x0109, f01=0x0190, f02=»NR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR & PCWTCIS EQU *-CWTLT1 @ P CIO A2,1,DWA1 CIO-START PCWTRTC EQU *-CWTLT1 | " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCW
0x202780…202914 (2, 242) Dummy {f00=0x0109, f01=0x0190, f02=» , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P P* | P XIF P* P EJECT P* P* : P***************************************************** : P* C W T L
0x202914…202aa8 Dummy {f00=0x0109, f01=0x018e, f02=»ORK TABLE FOR LOCAL CHANNEL NO. 2 P* * PCWTLT2 EQU * 4 P* H P IFT LOCHAN=2 R P* h P* r P* | PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRU
0x202aa8…202c3c Dummy {f00=0x0109, f01=0x0190, f02=» P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P*
0x202c3c…202dd0 Dummy {f00=0x0109, f01=0x0190, f02=»ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P*
0x202dd0…202f64 Dummy {f00=0x0109, f01=0x0190, f02=»RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P XIF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x202f64…2030f8 Dummy {f00=0x0109, f01=0x0190, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x2030f8…20328c Dummy {f00=0x0109, f01=0x0190, f02=» : P* C W T L T 3 * : P***************************************************** B P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P*
0x20328c…203420 Dummy {f00=0x0109, f01=0x0190, f02=»A INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR : P CIO A2,1,DWA3 CIO-START T " P DATA 0 RETRANSMISSION COUNTER t P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMU
0x203420…2035b4 (2, 243) Dummy {f00=0x0109, f01=0x0190, f02=»R n P* P XIF P* P IFT LOCHAN=4 * P* @ P* J P* T PDWA3 EQU /23 DEVICE ADDRESS ^ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR
0x2035b4…203748 Dummy {f00=0x0109, f01=0x0190, f02=»UEUE P* P IFT ACKMUL=1 P* , P DATA 0 NAK-ACKUMULATOR 6 $ P DATA 0 RETR. FAULT-ACKUMULATOR V , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P
0x203748…2038dc Dummy {f00=0x0109, f01=0x0190, f02=» Z : P***************************************************** P* F 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P P* PCWTLT4 EQU * P* P IFT LOCHAN=4 P* P* P* PDWA4 EQU /33 P* P DATA
0x2038dc…203a70 Dummy {f00=0x0109, f01=0x0190, f02=»TR P CIO A2,1,DWA4 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER ! * P DATA 0 QUEUE ! P P DATA 0 SECOND QUEUE ! f P* ! P IFT ACKMUL=1 ! P* ! P DATA 0 NAK-ACKUMULATOR ! $ P DATA 0 RETR. FAULT-ACKUMULATOR ! , P DATA 0 UNDEFINED- I
0x203a70…203c04 Dummy {f00=0x0109, f01=0x0190, f02=»************* ! ~ $ P* C W T R T 1 * " $ P******************************* " > 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 " f P* CONNECTED TO FIRST CHRT " P* " PDWA5 EQU /1 DEVICE ADDRESS " PCWTRT1 EQU * " P DATA
0x203c04…203d98 Dummy {f00=0x0109, f01=0x0190, f02=»TR " P CIO A2,1,DWA5 CIO-START # " P DATA 0 RETRANSMISSION COUNTER # * P DATA 0 QUEUE TERMINAL 1 # P P DATA 0 QUEUE TERMINAL 2 # p P* # P IFT ACKMUL=1 # P* # P DATA 0 NAK-ACKUMULATOR # $ P DATA 0 BLOCK ERROR ACKUMULATOR # , P DATA
0x203d98…203f2c Dummy {f00=0x0109, f01=0x0190, f02=» # ~ P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ & P DATA /7055 SYNC CHARACTER $ B PLRCDWT EQU *-CWTRT1 $ d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $ & P DAT
0x203f2c…2040c0 Dummy {f00=0x0109, f01=0x0190, f02=»(LOOP-TESTS) $ t 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % H $ P BIT 15: BLOCKSENDING ALLOWED % t P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P**************
0x2040c0…204254 (2, 244) Dummy {f00=0x010a, f01=0x0190, f02=»TRT2 EQU * % P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & 2 P & R P DATA INTRT1 INTERRUPT TABLE & Z P INR A2,0,DWA5 INR & ~ P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TE
0x204254…2043e8 Dummy {f00=0x010a, f01=0x018e, f02=»ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' J P* ' v P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ' 0
0x2043e8…20457c Dummy {f00=0x010a, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( 4 P EJECT ( $ P******************************** ( j $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT WORK TABLE
0x20457c…204710 Dummy {f00=0x010a, f01=0x0190, f02=» ( PDWA6 EQU /11 DEVICE ADDRESS ) P* ) , P DATA 0 LAST OUTPUT DWT ) 6 P DATA 0 LAST OUTPUT WORD ) V P DATA INTRT2 INTERRUPT TABLE ) v P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSMISSION COU
0x204710…2048a4 Dummy {f00=0x010a, f01=0x0190, f02=» $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT * P DATA
0x2048a4…204a38 Dummy {f00=0x010a, f01=0x0190, f02=»RT * z " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + 0 P DATA 0 QUEUE TERMINAL 2 + P P* + p P IFT ACKMUL=1 + z P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P
0x204a38…204bcc Dummy {f00=0x010a, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD , P DATA INTRT2 INTERRUPT TABLE , > P INR A2,0,DWA6 INR , b P OTR A2,0,DWA6 OTR , | P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEU
0x204bcc…204d60 Dummy {f00=0x010a, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - $ P* - P P XIF - Z P IFT RECHAN=2 - f P DATA 0 TIMER POINTER - | P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC
0x204d60…204ef4 (2, 245) Dummy {f00=0x010a, f01=0x0190, f02=»ORD (LOOP-TESTS) - x $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . @ P IFT RECHAN=3 . L P DATA 0 TIMER POINTER . b P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 . &
0x204ef4…205088 Dummy {f00=0x010a, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR . P XIF / & P IFT RECHAN=4 / 2 P DATA 0 TIMER POINTER / H P DATA /7055 SYNC-CHARACTER / f 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-ACKUMULATOR
0x205088…20521c Dummy {f00=0x010a, f01=0x0190, f02=»TOR / t P XIF 0 P EJECT 0 $ P******************************** 0 & $ P* C W T R T 4 * 0 N $ P******************************** 0 v P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND CHRT 0
0x20521c…2053b0 Dummy {f00=0x010a, f01=0x0190, f02=»INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 1 P OTR A2,1,DWA6 OTR 1 8 P CIO A2,1,DWA6 CIO-START 1 R " P DATA 0 RETRANSMISSION COUNTER 1 r P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKU
0x2053b0…205544 Dummy {f00=0x010a, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x205544…2056d8 Dummy {f00=0x010a, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P I
0x2056d8…20586c Dummy {f00=0x010a, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT REC
0x20586c…205a00 Dummy {f00=0x010a, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT
0x205a00…205b94 (2, 246) Dummy {f00=0x010a, f01=0x0190, f02=»ATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6 P IFT RECHA
0x205b94…205d28 Dummy {f00=0x010a, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJECT 7 $ P**
0x205d28…205ebc Dummy {f00=0x010a, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 8 6 P 8 Z P* 8 b PCWTRT5 EQU * 8 l P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DATA 0 LAST OUT
0x205ebc…206050 Dummy {f00=0x010a, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 9 & P DATA 0 QUEUE TERMINAL 2 9 F P* 9 f P IFT ACKMUL=1 9 p P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 ( P DATA 0 PR
0x206050…2061e4 Dummy {f00=0x010a, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD : P DATA INTRT3 INTERRUPT TABLE : > P INR A2,0,DWA7 INR : b P OTR A2,0,DWA7 OTR : | P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P DATA 0 QUEU
0x2061e4…206378 Dummy {f00=0x010a, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; $ P* ; P P XIF ; Z P IFT RECHAN=3 ; f P DATA 0 TIMER POINTER ; | P DATA /7055 SYNC-CHARACTER ; 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ; 0 P DATA 0 DWT OF GOING LRC
0x206378…20650c Dummy {f00=0x010a, f01=0x0190, f02=»ORD (LOOP-TESTS) ; x $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < @ P IFT RECHAN=4 < L P DATA 0 TIMER POINTER < b P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 < &
0x20650c…2066a0 Dummy {f00=0x010a, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR < P XIF = & P EJECT = 2 $ P******************************** = @ $ P* C W T R T 6 * = h $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 = P* CON
0x2066a0…206834 (2, 247) Dummy {f00=0x010a, f01=0x0190, f02=»UTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > 6 P OTR A2,1,DWA7 OTR > P P CIO A2,1,DWA7 CIO-START > j " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P IFT ACKMUL=1
0x206834…2069c8 Dummy {f00=0x010a, f01=0x0190, f02=»PRINTER TIMEOUT ACKUMULATOR > P XIF ? $ P IFT RECHAN=4 ? 0 P DATA 0 LAST OUTPUT DWT ? F P DATA 0 LAST OUTPUT WORD ? f P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? " P DATA 0 RE
0x2069c8…206b5c Dummy {f00=0x010a, f01=0x018e, f02=»ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ l P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER @ 0 P DAT
0x206b5c…206cf0 Dummy {f00=0x010a, f01=0x0190, f02=» @ l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A 2 $ P DATA 0 BLOCK SENDING INDICATOR A b P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARACTER A 0
0x206cf0…206e84 Dummy {f00=0x010a, f01=0x0190, f02=»AL 1 A r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B 6 $ P DATA 0 BLOCK SENDING INDICATOR B f P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7 * B
0x206e84…207018 Dummy {f00=0x010a, f01=0x0190, f02=»URTH CHRT B | P* C PCWTRT7 EQU * C P* C 0 P IFT RECHAN=4 C : P* C P PDWA8 EQU /31 DEVICE ADDRESS C Z P* C ~ P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P O
0x207018…2071ac Dummy {f00=0x010a, f01=0x0190, f02=»EUE TERMINAL 2 C P* D P IFT ACKMUL=1 D P DATA 0 NAK-ACKUMULATOR D 6 $ P DATA 0 BLOCK ERROR ACKUMULATOR D V , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4 D P D
0x2071ac…207340 Dummy {f00=0x010a, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 D z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E r $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P******************************** E
0x207340…2074d4 (2, 248) Dummy {f00=0x010b, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR
0x2074d4…207668 Dummy {f00=0x010b, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER PO
0x207668…2077fc Dummy {f00=0x010b, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P******************************
0x2077fc…207990 Dummy {f00=0x010b, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I
0x207990…207b24 Dummy {f00=0x010b, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J
0x207b24…207cb8 Dummy {f00=0x010b, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA
0x207cb8…207e4c Dummy {f00=0x010b, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWRE
0x207e4c…207fe0 Dummy {f00=0x010b, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH
0x207fe0…208174 (2, 249) Dummy {f00=0x010b, f01=0x0190, f02=» M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N : 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N D PAREM DATA LOPTST N x " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 GET CHANNEL
0x208174…208308 Dummy {f00=0x010b, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(
0x208308…20849c Dummy {f00=0x010b, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC
0x20849c…208630 Dummy {f00=0x010b, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS
0x208630…2087c4 Dummy {f00=0x010b, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0
0x2087c4…208958 Dummy {f00=0x010b, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC E
0x208958…208aec Dummy {f00=0x010b, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T
0x208aec…208c80 Dummy {f00=0x010b, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT F
0x208c80…208e14 (2, 250) Dummy {f00=0x010b, f01=0x018e, f02=»SAVE A1-A8 ON STACK U P XIF V P* V ( P IFT LOCHAN=2 V 2 P IFT CPU852=0 V H " P MSR 8,A15 SAVE A1-A8 ON STACK V ^ P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V P* V P XIF V P* V P IFT L
0x208e14…208fa8 Dummy {f00=0x010b, f01=0x018e, f02=» V P* W P IFT LOCHAN=3 W P IFT CPU852=0 W ( " P MSR 8,A15 SAVE A1-A8 ON STACK W > P XIF W d P* W p P IFT LOCHAN=3 W z P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W P IFT LOCHAN=4 W $ P ST P,INTSAV SAV
0x208fa8…20913c Dummy {f00=0x010b, f01=0x0190, f02=» W P IFT CPU852=0 X " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P LDK A7,4 INDICATE CHLT2 X p P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P* X P* X P* C H L T 3 X
0x20913c…2092d0 Dummy {f00=0x010b, f01=0x0190, f02=»852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y P XIF Y 8 P* Y D P IFT LOCHAN=4 Y N P IFT CPU852=0 Y d " P MSR 8,A15 SAVE A1-A8 ON STACK Y z P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE CHLT3 Y P RF CLT010 Y P XIF Y
0x2092d0…209464 Dummy {f00=0x010b, f01=0x0190, f02=»1-A8 ON STACK Y | P XIF Z P* Z " P IFT LOCHAN=3 Z , P IFT CPU852=0 Z B " P MSR 8,A15 SAVE A1-A8 ON STACK Z X P XIF Z ~ P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z P XIF Z P* Z PCHLT4 EQU *
0x209464…2095f8 Dummy {f00=0x010b, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT Z P* [ ( P IFT CPU852=1 [ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ H P XIF [ r P* [ ~ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT LOCHAN=4 [ P L
0x2095f8…20978c Dummy {f00=0x010b, f01=0x0190, f02=»* INTERRUPT FROM CHRT1 [ P* " PCHRT1 EQU * , P ST P,INTSAV @ P* T P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK t P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P L
0x20978c…209920 Dummy {f00=0x010b, f01=0x0190, f02=»CHRT2 EQU * P IFT RECHAN=2 ] $ P ST P,INTSAV SAVE LAST INTERRUPT ] * P* ] R P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] r P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF
0x209920…209ab4 (2, 251) Dummy {f00=0x012f, f01=0x0190, f02=» ST P,INTSAV STORE LAST INTERRUPT ] P* ^ * P IFT CPU852=1 ^ 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ J P XIF ^ t P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF ^ P* ^ P IFT RECHAN=3 ^ P
0x209ab4…209c48 Dummy {f00=0x012f, f01=0x018e, f02=»* ^ P IFT CPU852=1 _ & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ P XIF _ J P* _ V P IFT RECHAN=4 _ ` P IFT CPU852=0 _ v " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P LDK A7,14 INDICATE CHRT2 _ P RF CLT0
0x209c48…209ddc Dummy {f00=0x012f, f01=0x0190, f02=» P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` P* ` B P IFT CPU852=1 ` L & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` b P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF ` P* `
0x209ddc…209f70 Dummy {f00=0x012f, f01=0x018e, f02=»E LAST INTERRUPT ` P* a P IFT CPU852=1 a " & P CF A15,SAVE8 SAVE A1-A8 ON STACK a 8 P XIF a b P* a n P IFT RECHAN=4 a x P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A7,18 INDICAT
0x209f70…20a104 Dummy {f00=0x012f, f01=0x0190, f02=» a PCHRT4 EQU * b P IFT RECHAN=4 b $ P ST P,INTSAV SAVE LAST INTERRUPT b 2 P* b Z P IFT CPU852=1 b d & P CF A15,SAVE8 SAVE A1-A8 ON STACK b z P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON STACK b
0x20a104…20a298 Dummy {f00=0x012f, f01=0x0190, f02=»DRESS b p P* c P XIF c P* c $ * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c . P* c P IFT LOGING=1 c f P* c | 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYPE OF INTER
0x20a298…20a42c Dummy {f00=0x012f, f01=0x0190, f02=»UK A7,10 c " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d 6 . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d H P RF(NN) CLT015 FIRST d z > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER
0x20a42c…20a5c0 Dummy {f00=0x012f, f01=0x0190, f02=»(N) CLT170 YES d & PCLT018 LDK A1,0 RESET RETURN CODE e ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e @ P RF(N) CLT050 e l $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P* DETERMINE T
0x20a5c0…20a754 (2, 252) Dummy {f00=0x012f, f01=0x018e, f02=» SUK A3,7 e P RF(E) CLT050 ACK f P ADK A3,2 f , P ABL(E) CLT080 NAK f > P ADK A3,2 f X P ABL(E) CLT100 POWER ON f j P LDR A7,A7 LOCAL ? f P RF(N) CLTQUE YES f P LC A4,LRCACK,A7 f $ P LDK A6,/80 ABC-ANSWER ALLOWED ? f P TM A6,A4
0x20a754…20a8e8 Dummy {f00=0x012f, f01=0x0190, f02=» P RF(E) EXIIT g P ANK A4,/7F g P RF(Z) CLT046 YES g , * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g F ( P LDK A4,1 RESET BLOCKSENDING RUNNING g t P ANS A4,CWTBLK,A5 g P SUK A3,5 g & P RF(E) CLT043 ABC+ , GO TO DRIVER g P IFT ACKMUL=1 g
0x20a8e8…20aa7c Dummy {f00=0x012f, f01=0x0190, f02=» P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h ( P ADK A3,4 h > P RF(E) CLT033 h P P EJECT h f P* h t 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. h ~ . P* ONE RECOVERY ATTEMPT IS MADE AND THEN h , P* RETURN CODE NOT OPERABLE IS SEN
0x20aa7c…20ac10 Dummy {f00=0x012f, f01=0x0190, f02=»C-DEVICE ? h P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i ( P LDK A4,1 i V 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING i h & PCLTQUE CF A15,QUEUE RESOLVE QUEUE i 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD i P LDR A
0x20ac10…20ada4 Dummy {f00=0x012f, f01=0x0190, f02=»,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER j P* ERR
0x20ada4…20af38 Dummy {f00=0x012f, f01=0x0190, f02=»DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT k P*
0x20af38…20b0cc Dummy {f00=0x012f, f01=0x0190, f02=»T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REMOTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l P LDK A7,1 l 0 P A
0x20b0cc…20b260 Dummy {f00=0x012f, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/
0x20b260…20b3f4 (2, 253) Dummy {f00=0x0130, f01=0x0190, f02=» 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n 8 : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 n R 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 n P RF(E) CPO030 n P LDKL A5,DWTSB2 STACK BASE n P ADR A
0x20b3f4…20b588 Dummy {f00=0x0130, f01=0x0190, f02=»EXT n x PEXIIT RF EXIT o P EJECT o " P* o 0 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER o : P* o t PCLT045 EQU * o ~ ( P LDK A1,NOERR INDICATE NOT OPERABLE o PCLT046 EQU * o P ABL CLT110 o P EJECT o P* o P* A C K
0x20b588…20b71c Dummy {f00=0x0130, f01=0x0190, f02=»OR AND GO TO DISPATCHER. IF SYNC-ACK o P* DROP IT. p , 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF p B 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA p ~ < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED p < P* OUT. FOR
0x20b71c…20b8b0 Dummy {f00=0x0130, f01=0x018e, f02=»MADE TO THE DATA REQUEST SECTION. p x * P* IF ACK WE HAVE TO WAIT FOR A DRD. q * PCLT050 EQU * q X & P LC A3,CWTLOW,A5 LAST OUTPUT WORD q l " P ANK A3,/F0 KEEP DEVICE NUMBER q P CF A15,QUEUE RESOLVE QUEUE q P LDKL A4,/EFFF q 6 P ANS A4,DWTST,A6 R
0x20b8b0…20ba44 Dummy {f00=0x0130, f01=0x018e, f02=» q z P RF(NE) CLT052 r P LDKL A3,/8000 r * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED r 4 P RF CLT055 r b PCLT052 EQU * r t . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? r P RF(NN) CLT055 r P CW A6,LRCDWT,A7 r P ABL(NE) CLT110 r P EJECT r
0x20ba44…20bbd8 Dummy {f00=0x0130, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP T
0x20bbd8…20bd6c Dummy {f00=0x0130, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YE
0x20bd6c…20bf00 Dummy {f00=0x0130, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TI
0x20bf00…20c094 (2, 254) Dummy {f00=0x0130, f01=0x018e, f02=»L PARAMETER u ~ P ANK A5,/F v P SLL A5,1 2 * INDEX v & P LDK A2,/83 v B P CC A2,DWTOCH,A6 v V P RF(NE) DRQT10 v n P SUK A5,8 LOCAL DEVICE ? =4 v P RB(N) EXIT v P CF A15,OUTLIN v P RB EXIT v PDRQT10 EQU * v P* v P IFT ACK
0x20c094…20c228 Dummy {f00=0x0130, f01=0x0190, f02=» v $ P LD A7,DWTOR,A6 TEST ORDER ? =1 w P ANK A7,/FE U =9(=1) w 0 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 w L , P ABL CLT032 NO, EXECUTE DEV. RECOVERY =1 w P EJECT w P* w P* N A K w P* w 8 P* ERROR ACKUMULATOR AND RETRANS
0x20c228…20c3bc Dummy {f00=0x0130, f01=0x0190, f02=»UCCESS w ^ < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. x P* x N PCLT080 EQU * x X $ P LDR* A6,A5 GET LAST OUTPUT DWT x l P RB(E) EXIT x P* x P IFT ACKMUL=1 x P* x * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR x P* x
0x20c3bc…20c550 Dummy {f00=0x0130, f01=0x0190, f02=» LD A4,CWTRTC,A5 GET COUNTER x P SUK A4,7 SEVEN TIMES ? y $ P ABL(E) CLT030 y D * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD y Z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. y P IFT LOGING=1 y 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** y P XIF y P
0x20c550…20c6e4 Dummy {f00=0x0130, f01=0x018e, f02=» A2,/FF y , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR z . P CF A15,RESTSY START OR RESTART SYNC-TIMER z @ PCLT090 ABL TDISP z r P EJECT z P* z P* z $ P* DATA INPUT AND DATA REQUEST z P* z 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET O
0x20c6e4…20c878 Dummy {f00=0x0130, f01=0x0190, f02=» P* { > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES { : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH { P 8 P* STATUS FROM CHANNEL PARAMETER. { : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL { @ P
0x20c878…20ca0c Dummy {f00=0x0130, f01=0x0190, f02=» WAITING FOR A STATUS CHANGE. IF SO { > P* GET ORDER AND ECB-ADDRESS AND GO TO | < < P* DEVICE WITH THE NEW STATUS. IF NO | ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN | ( P*
0x20ca0c…20cba0 Dummy {f00=0x0130, f01=0x0190, f02=»3,/E 2 * LINE NUMBER | P SRL A4,3 } P ANK A4,/E 2 * DEVICE NUMBER } . P CWK A4,/E SYNC-INPUT ? } R P RF(E) CLT150 YES } r P LOOP SWITCH SET } 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE } P RB(Z) EXIT =7 } P ADR A8,A3 } , P LDR
0x20cba0…20cd34 (2, 255) Dummy {f00=0x0131, f01=0x0190, f02=»T UNDEFINED INTERRUPT } " P LDR A4,A4 NO DEVICE NUMBER ? ~ P ABL(E) CHPOWO POWER ON ~ D & P ADR A8,A4 ADDRESS TO DWT-ADDRESS ~ d P LDR* A6,A8 GET DWT-ADDRESS ~ P RB(E) EXIT ~ P ANKL A6,/FFFE ~ 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMET
0x20cd34…20cec8 Dummy {f00=0x0131, f01=0x0190, f02=»A7 REMOTE ? ~ P RF(NN) CLT120 YES PCLT105 LC A3,DWTOCH,A6 . P ANK A3,/7F L P SUK A3,DUMMSP ` P RF(NE) CLT110 v . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 P* P********
0x20cec8…20d05c Dummy {f00=0x0131, f01=0x0190, f02=»Y RESET v P* P************************* P* < P CM* DWTTP,A6 F P CM DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB * P
0x20d05c…20d1f0 Dummy {f00=0x0131, f01=0x0190, f02=» $ P CWR* A6,A5 DRD BEFORE ANSWER ? P RB(E) EXIT YES 0 PCLT125 SRL A4,4 H P ANK A4,/C ` P ORR A2,A4 STATUS IN A2 r P RB CLT105 PCLT130 EQU * P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS P SLL A2,4
0x20d1f0…20d384 Dummy {f00=0x0131, f01=0x0190, f02=»A4,/200 STATUS CHANGE ALLOWED ? P RF(E) CLT154 EG. EXIT ( P XRS A4,DWTST,A6 RESET BIT F ( P XRR A3,A2 VOUCHER STATUS CHANGED ? h P ANK A3,/80 P RF(E) CLT154 EG. EXIT P ABL CLT033 P EJECT P* P* P* TFU IN
0x20d384…20d518 Dummy {f00=0x0131, f01=0x0190, f02=»NDICATE LOOP MODE AND SYNC-ACK RECEIVED PCLT152 EQU * 0 P ORS A4,CWTRST,A5 D PCLT154 ABL EXIT ^ P EJECT v P* P* LOOP MODE P* PCLT170 EQU * P LDR A3,A2 P ANK A3,/FF P SUK A3,3 POWER ON ? P RF(
0x20d518…20d6ac Dummy {f00=0x0131, f01=0x018e, f02=» A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 ( PCLT178 EQU * @ P SUK A3,4 ACK ? T P RF(NE) EXITA NO l $ P LDK A4,2 INDICATE ACK RECEIVED P RB CLT152 P EJECT P* P* POWER ON P* PCLT179 EQU *
0x20d6ac…20d840 Dummy {f00=0x0131, f01=0x018e, f02=» 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND : P* IF SOMETHING THERE. r 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I
0x20d840…20d9d4 (2, 256) Dummy {f00=0x0131, f01=0x0190, f02=» P STR A2,A15 SAVE A2 $ P LDR* A4,A5 GET LAST OUTPUT DWT $ . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER L P CMR A5 SET CHANNEL FREE ~ P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL "
0x20d9d4…20db68 Dummy {f00=0x0131, f01=0x0190, f02=»WT-TABLE-ADDRESS z PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? , P RF(E) QUEU10 YES N P LDR A7,A7 =5 h $ P RF(N) QUEU06 PREVENT HANG UP =5 ~ P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06
0x20db68…20dcfc Dummy {f00=0x0131, f01=0x0190, f02=»OUTPUT CHARACTER v P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 6 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? Z P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWE
0x20dcfc…20de90 Dummy {f00=0x0131, f01=0x0190, f02=»1,0 " P CWR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO 2 & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE J P RB QUEU03 t PQUEU30 ADKL A15,4 P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P
0x20de90…20e024 Dummy {f00=0x0131, f01=0x0190, f02=» P RF(NE) RESY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER , P ADR A4,A5 ADD CWT-ADDRESS P P CF A15,SETIMP SET TIMER r P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 L
0x20e024…20e1b8 Dummy {f00=0x0131, f01=0x0190, f02=»DING n 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. @ P* d PSYNCUT EQU * n $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NU
0x20e1b8…20e34c Dummy {f00=0x0131, f01=0x0190, f02=» OUTPUT DWT t P* P IFT LOGING=1 P* 4 * P CF A15,LOGG LOGG OF OUTPUT CHARACTER > P XIF l P* x P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A5
0x20e34c…20e4e0 Dummy {f00=0x0131, f01=0x0190, f02=»/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 , P RF(NE) SYNC10 FIRST SYNC @ P LDK A3,/20 SECOND SYNC b * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH * PSYNC20 LDKL A6,DWREMU SET DWT-ADDRESS P RB CLT177
0x20e4e0…20e674 (2, 257) Dummy {f00=0x0131, f01=0x018e, f02=»LOWED AND SAVE A3-A5 IN DWT. P* $ POUTPUT EQU * . P ANK A2,/FF B P LDR A1,A2 V P SUK A1,/82 STX ? h P RF(E) OUTP05 P SUK A1,/15 ETB ? P RF(NE) OUTP10 ( POUTP05 LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C REMOTE ?
0x20e674…20e808 Dummy {f00=0x0131, f01=0x0190, f02=» P* : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* P PSTREG EQU * Z P INH n P LDKL A1,/100 z 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWTA3,A6 SAVE REGISTER A3 $ P ST A4,DWTA4,A6
0x20e808…20e99c Dummy {f00=0x0131, f01=0x018e, f02=»NTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN & P* VIA A5. ELSE GO TO DISPATCHER. : P* d P* n PLDREG EQU * x P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXITA P XRS A3,DWTST,A6 P* P* P* L D R E G
0x20e99c…20eb30 Dummy {f00=0x0131, f01=0x018e, f02=» l PLDREGE EQU * & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 F $ PLDRE10 LD A7,DWTOR,A6 GET ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 P RTN A5 RETURN VIA A5-STACK P EJECT P* P*
0x20eb30…20ecc4 Dummy {f00=0x0131, f01=0x0190, f02=» P* A3 = BUFFER INDEX P* A8 = ECB-ADDRESS " P* @ P* ON EXIT: J P* ` P* A2 = CHARACTER j * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
0x20ecc4…20ee58 Dummy {f00=0x0131, f01=0x0190, f02=» j " P LD A2,2,A8 GET BUFFER ADDRESS P ADR A2,A3 . P LCR A2,A2 CHAR. TO A2 @ P ANK A2,/FF ^ $ P ADK A3,1 INCREMENT BUFFER INDEX r P RF GCH020 , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH PGCH020 EQU * ( PRTNA15 ADKL A15,2 RETURN
0x20ee58…20efec Dummy {f00=0x0131, f01=0x0190, f02=» ^ P* CHANNEL UNIT P* * P* 4 B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. > 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE O
0x20efec…20f180 Dummy {f00=0x0131, f01=0x0190, f02=»PU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 6 P* B P ANK A2,/FF L " P LDR* A7,A6 CHANNEL PARAMETER ` P ANK A7,/F P SLL A7,1 DOUBLE INDEX & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS P SUK A7,8 REMOTE ? P RF(N) OUL100
0x20f180…20f314 (2, 258) Dummy {f00=0x0131, f01=0x0190, f02=»ET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT F POUL100 INH T P* f ( P* IF UNIT NOT FREE QUEUE OUTPUT. p 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, 0 P*
0x20f314…20f4a8 Dummy {f00=0x0131, f01=0x0190, f02=»NEL UNIT FREE ? P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? 2 P RF(N) OUL500 N P LDR A3,A2 d P SUK A3,/82 STX ? v P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ?
0x20f4a8…20f63c Dummy {f00=0x0131, f01=0x0190, f02=» INDICATE FIRST OBC , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO N P RF OUL510 ~ & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ?
0x20f63c…20f7d0 Dummy {f00=0x0131, f01=0x0190, f02=»RCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 & P* 8 P* OTHER OUTPUT B P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC f P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF
0x20f7d0…20f964 Dummy {f00=0x0131, f01=0x0190, f02=» P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING 2 P LDK A3,/80 ^ 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING r P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER
0x20f964…20faf8 Dummy {f00=0x0131, f01=0x0190, f02=»ERS FOR f . P* DWT AND ACKUMULATOR IS UPDATED. P B POUL500 EQU * J " P LDR* A3,A6 CHANNEL PARAMETER ^ P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R)
0x20faf8…20fc8c Dummy {f00=0x0131, f01=0x0190, f02=»ESSBLOCK p . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * B P* V P IFT LOGING=1 ` P* v 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5
0x20fc8c…20fe20 Dummy {f00=0x0131, f01=0x018e, f02=»ULATOR n . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER @ POUL700 EQU * x P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RES
0x20fe20…20ffb4 (2, 259) Dummy {f00=0x0132, f01=0x0190, f02=» P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* Z POUL800 EQU * d P LDR A7,A7 REMOTE ? x P RF(NN) OUL805 YES P LDR A7,A5 CWT-ADDRESS , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL82
0x20ffb4…210148 Dummy {f00=0x0132, f01=0x0190, f02=»LOW THE THREAD P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT ( P RF OUL840 P $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT b P LDK A4,0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK P RB OUL600 P EJECT P* P*
0x210148…2102dc Dummy {f00=0x0132, f01=0x0190, f02=»TINE IS ENTERED FROM 'PFINIT' r P* & P* 0 P* : PCHLTON EQU * D P LD A4,CHTAB X " PCON010 SUK A4,2 ALL TREATED ? l P RF(NZ) CON020 NO TAKE NEXT P ABL RTNA15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRE
0x2102dc…210470 Dummy {f00=0x0132, f01=0x0190, f02=» BUSY p $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 6 $ P LDK A3,0 INDICATE CHANNEL BUSY L . P CF A15,RESTSY START OR RESTART SYNC-TIMER t PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5
0x210470…210604 Dummy {f00=0x0132, f01=0x0190, f02=»OWED n . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED > 8 PCON028 LDK A2,BLOCK INDICATE BLOCKSENDING OR NOT DK1 r PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICAT
0x210604…210798 Dummy {f00=0x0132, f01=0x018e, f02=»ST DWT ~ P RB(Z) CON010 P CWK A6,1 SYNC ? $ P RB(E) CON010 < P CMR A5 RESET LAST OUTPUT R P LDK A2,/00 DUMMY t P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CON
0x210798…21092c Dummy {f00=0x0132, f01=0x0190, f02=» P* PLOGG STR A1,A15 P LD A1,POINT * P ADK A1,2 > & P CWK A1,BUFE BUFE IS MAX LOGG AREA P P RF(NE) L1 z ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15
0x21092c…210ac0 Dummy {f00=0x0132, f01=0x0190, f02=»EA (500) DK1 | PBUFE EQU * P* & P XIF 0 P* < P EJECT F P* T P* ^ P* E C H O , E C H E N D h P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P*
0x210ac0…210c54 (2, 260) Dummy {f00=0x0132, f01=0x0190, f02=»DEVICE-DEPENDENT ECHO-ROUTINE ~ P* & . P* PART TWO: ECHO ONE OR MORE CHARACTERS 0 2 P* CORRESPONDING TO ONE CHARACTER b 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P* PART ONE FOLLOWS AND PART TWO C
0x210c54…210de8 Dummy {f00=0x0132, f01=0x0190, f02=»ICE DEPENDENT ECHO DRIVER x P* " " P* A7 MUST NOT BE DESTROYED , 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A R P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE
0x210de8…210f7c Dummy {f00=0x0132, f01=0x0190, f02=»A5,DWTA5,A6 P LD A1,DWTST,A6 STATUS P SLL A1,2 2 $ P RF(NN) RETUR NO ECHO REQUESTED D 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE l 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE
0x210f7c…211110 Dummy {f00=0x0132, f01=0x414a, f02=»A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF . PECHRTN EQU * : P IFT CECHO=1 N P LDR A7,A7 END? b P RF(NN) ERETUR NO z ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 4 PRETUR
0x211110…2112a4 Dummy {f00=0x0132, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x2112a4…211438 Dummy {f00=0x0132, f01=0x0000, f02=»
[…0x2…]
0x211760…2118f4 (2, 261) Opaque[0x194]
0x2118f4…211a88 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x2118f4…211a88 IdxSect {
0x2118f4…211a88 f00 = 0x010b // 0x2118f4 @0x0
0x2118f4…211a88 f01 = 0x000a // 0x2118f6 @0x2
0x2118f4…211a88 gno = [ // 0x2118f8 @0x4
0x2118f4…211a88 [0x00]: C0x010b.0x3.0
0x2118f4…211a88 [0x01]: C0x010c.0x0.0
0x2118f4…211a88 [0x02]: C0x011a.0x2.0
0x2118f4…211a88 [0x03]: C0x011a.0x3.0
0x2118f4…211a88 [0x04]: C0x011b.0x0.0
0x2118f4…211a88 ]
0x2118f4…211a88 }
0x211a88…211c1c Dummy {f00=0x010b, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 9.2 79-11-16 870105040920 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x211c1c…211db0 Dummy {f00=0x010b, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x211db0…211f44 Dummy {f00=0x010b, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x211f44…2120d8 Dummy {f00=0x010b, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x2120d8…21226c Dummy {f00=0x010b, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x21226c…212400 Dummy {f00=0x010b, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x212400…212594 (2, 262) Dummy {f00=0x010c, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x212594…212728 Dummy {f00=0x010c, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x212728…2128bc Dummy {f00=0x010c, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x2128bc…212a50 Dummy {f00=0x010c, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY
0x212a50…212be4 Dummy {f00=0x010c, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x212be4…212d78 Dummy {f00=0x010c, f01=0x0190, f02=» EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x212d78…212f0c Dummy {f00=0x010c, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x212f0c…2130a0 Dummy {f00=0x010c, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x2130a0…213234 (2, 263) Dummy {f00=0x011a, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x213234…2133c8 Dummy {f00=0x011a, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x2133c8…21355c Dummy {f00=0x011a, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=
0x21355c…2136f0 Dummy {f00=0x011a, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(
0x2136f0…213884 Dummy {f00=0x011a, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x213884…213a18 Dummy {f00=0x011a, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x213a18…213bac Dummy {f00=0x011a, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME R
0x213bac…213d40 Dummy {f00=0x011a, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF
0x213d40…213ed4 (2, 264) Dummy {f00=0x011a, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS
0x213ed4…214068 Dummy {f00=0x011a, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x214068…2141fc Dummy {f00=0x011a, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x2141fc…214390 Dummy {f00=0x011a, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x214390…214524 Dummy {f00=0x011a, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P******
0x214524…2146b8 Dummy {f00=0x011a, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILUR
0x2146b8…21484c Dummy {f00=0x011a, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x21484c…2149e0 Dummy {f00=0x011a, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER U
0x2149e0…214b74 (2, 265) Dummy {f00=0x011b, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB AD
0x214b74…214d08 Dummy {f00=0x011b, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P
0x214d08…214e9c Dummy {f00=0x011b, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAV
0x214e9c…215030 Dummy {f00=0x011b, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x215030…2151c4 Dummy {f00=0x011b, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x2151c4…215358 Dummy {f00=0x011b, f01=0x2008, f02=» # -ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE @ P* ^ P END h@ t P* z P* P* D W S O P U : OUTPUT DWT P* P* PDWSOPU EQU * P DATA 0 CHANNEL PARAMETER , P DATA /8000
0x215358…2154ec Dummy {f00=0x011b, f01=0x0190, f02=»*-CWTRT1 # P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ . P DATA /7055 SYNC CHARACTER $ J PLRCDWT EQU *-CWTRT1 $ l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $
0x2154ec…215680 Dummy {f00=0x011b, f01=0x018e, f02=»US WORD (LOOP-TESTS) $ | 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % P $ P BIT 15: BLOCKSENDING ALLOWED % | P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P******
0x215680…215814 (2, 266) Opaque[0x194]
0x215814…2159a8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2380, f03=0x0000}
0x215814…2159a8 IdxSect {
0x215814…2159a8 f00 = 0x011c // 0x215814 @0x0
0x215814…2159a8 f01 = 0x0020 // 0x215816 @0x2
0x215814…2159a8 gno = [ // 0x215818 @0x4
0x215814…2159a8 [0x00]: C0x011c.0x0.0
0x215814…2159a8 [0x01]: C0x011c.0x2.0
0x215814…2159a8 [0x02]: C0x011c.0x3.0
0x215814…2159a8 [0x03]: C0x011d.0x0.0
0x215814…2159a8 [0x04]: C0x011d.0x1.0
0x215814…2159a8 [0x05]: C0x011d.0x2.0
0x215814…2159a8 [0x06]: C0x011d.0x3.0
0x215814…2159a8 [0x07]: C0x011e.0x0.0
0x215814…2159a8 [0x08]: C0x011e.0x1.0
0x215814…2159a8 [0x09]: C0x011e.0x2.0
0x215814…2159a8 [0x0a]: C0x011e.0x3.0
0x215814…2159a8 [0x0b]: C0x011f.0x0.0
0x215814…2159a8 [0x0c]: C0x011f.0x1.0
0x215814…2159a8 [0x0d]: C0x011f.0x2.0
0x215814…2159a8 [0x0e]: C0x011f.0x3.0
0x215814…2159a8 [0x0f]: C0x0120.0x0.0
0x215814…2159a8 ]
0x215814…2159a8 }
0x2159a8…215b3c Dummy {f00=0x011c, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 79-12-05 870105040920 P : * P =2,TIMING PROBLEMS IN INT. HANDLER B P REL 9.2 79-11-16 p $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P**********************************************
0x215b3c…215cd0 Dummy {f00=0x011c, f01=0x0190, f02=» P* P* P* 2 P********************************************* " 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY X . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON & P* MULTIPLEX OR PROGRA
0x215cd0…215e64 Dummy {f00=0x011c, f01=0x0190, f02=»L READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRITE T D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- p P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1A SEARCH KE
0x215e64…215ff8 Dummy {f00=0x011c, f01=0x0190, f02=» -IBM DISC ONLY- t P* /37 LOAD , P* /38 UNLOAD B P* Z P* ENTRY PARAMETERS: d P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8 ECB-ADDRESS P EJECT DRFD01
0x215ff8…21618c Dummy {f00=0x011c, f01=0x0190, f02=»R ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE B P ENTRY DWFD01 DWT-ADDRESS f P EJECT DRFD01 P* P************* P* * P* EXTERNALS * P* * P******
0x21618c…216320 Dummy {f00=0x011c, f01=0x0190, f02=»TATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER 0 EXTRN DWTA2 SAVE AREA A2 X EXTRN DWTA5 SAVE AREA A5 z & ! EXTRN DWTSB2 STACK BASE 2 IN DWT ( P EXTRN SCTPLD PROGRAM LOADING DEVICE ( P EXTRN SAVE8 SAVE A1-A
0x216320…2164b4 (2, 267) Dummy {f00=0x011c, f01=0x0190, f02=»XTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB ( 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE R $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN
0x2164b4…216648 Dummy {f00=0x011c, f01=0x0190, f02=» * P* CONDITIONAL ASSEMBLY * P* * > P************************ ^ P* ~ . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P* PX:A EQU 1 PCHAN EQU 1
0x216648…2167dc Dummy {f00=0x011c, f01=0x0190, f02=» PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. V P* PX:C EQU 0 PIBM EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMU
0x2167dc…216970 Dummy {f00=0x011c, f01=0x0190, f02=»BTAINED BY SETTING CPU852 EQU 0. P* ( PCPU852 EQU 0 2 P* F P EJECT DRFD01 P P* h * r . ** A PROGRAM VERSION USING TOSS DISC PAGING | * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P*
0x216970…216b04 Dummy {f00=0x011c, f01=0x0190, f02=»QU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 d P* PX:D EQU 0 POPCLOS EQU 1 P* P EJECT DRFD01 P* P
0x216b04…216c98 Dummy {f00=0x011c, f01=0x018e, f02=»CE INDEX P* P* P IFT CHAN=1 $ PDEVIND EQU 2 8 P XIF L P* X P IFT CHAN=0 b PDEVIND EQU 4-IBM-IBM v P XIF P* P EJECT DRFD01 P* P************* P* * P* CONSTANTS *
0x216c98…216e2c Dummy {f00=0x011c, f01=0x0190, f02=» l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. 4 ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH b " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITION $
0x216e2c…216fc0 Dummy {f00=0x011c, f01=0x018e, f02=»************** P* * P* DWT-DISPLACEMENTS* 2 P* * N P******************** j P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P
0x216fc0…217154 (2, 268) Dummy {f00=0x011c, f01=0x018e, f02=» ~ P* P********** P* * $ P* TABLES * 6 P* * H P********** Z P* l P IFT DEVIND=2 v ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P XIF P* P IFT DEVIND=4 " P DATA 0 INDICATE NO MMU BUFFER
0x217154…2172e8 Dummy {f00=0x011c, f01=0x0190, f02=» P* P EJECT DRFD01 P* & P************** 0 P* * F P* ACTIVATION * P* * r P************** P* PFDAD EQU * ACTIVATION ENTRY P* P IFT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE
0x2172e8…21747c Dummy {f00=0x011c, f01=0x0190, f02=»* P EJECT P XIF P* $ P LDK A3,0 . P LC A3,DWTOR,A6 INDEX @ P LDR A2,A3 SAVE FOR FDIX ^ P* ~ & P* PUT DRIVE NO IN CIO-INSTRUCTION P* P CF A5,SETCIO A3,A4 AFFECTED ( P CM DWTRCW,A6 SAVE RETURN CODE WORD
0x21747c…217610 Dummy {f00=0x011c, f01=0x0190, f02=»WTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 & P RF(NZ) FD:ORD LOCKED 8 P LDR A1,A7 V P SUK A1,/26 h P ABL(Z) LOAD LOCK ORDER | P SUK A1,/11 P ABL(Z) LOAD LOAD ORDER P LDKL A1,/8001 RETURN CODE P ABL END:IO ENDIO
0x217610…2177a4 Dummy {f00=0x011c, f01=0x0190, f02=» DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB B 4 P ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS l . P RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? P LDR A3,A2 P RF(NN) FD:005 6 P ADKL A3,T
0x2177a4…217938 Dummy {f00=0x011c, f01=0x018e, f02=» LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 ( P SLL A1,2 : P ORR A1,A2 L P ANKL A3,/FFF ^ 2 P ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS t , P ADKL A1,/400 CREATE ONE MORE MMU ENTRY P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P O
0x217938…217acc Dummy {f00=0x011c, f01=0x0190, f02=» ` P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* N P EJECT DRFD01 X P XIF p P* | P LDR A1,A7 P ABL(Z) FD:070 TEST STATUS P SUK A1,1 P RF(Z) FD:040 PHYSICAL READ P SUK A1,4 P RF(Z)
0x217acc…217c60 Dummy {f00=0x011c, f01=0x018e, f02=» SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 : P ABL(Z) UNLOAD UNLOAD ORDER N P IFT IBM=1 r P ADK A1,/36 " P ABL(Z) SQREAD SEQUENTIAL READ P SUK A1,4 $ P ABL(Z) SQWRIT SEQUENTIAL WRITE P SUK A1,/2B
0x217c60…217df4 (2, 269) Dummy {f00=0x011d, f01=0x0190, f02=» v P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR 0 P* R P IFT OPCLOS=1 P EJECT r P* P******** P* * P* OPEN * P* * P******** P* 4 P* OPEN IS PERFORMED BY WRITING A
0x217df4…217f88 Dummy {f00=0x011d, f01=0x0190, f02=» ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA 0 " P OTR A1,0,SOPDA OPEN FD DRIVE d P* * P* WAIT FOR DRIVE TO BECOME OPERABLE ( P LDK A4,DWTTP2 TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINT
0x217f88…21811c Dummy {f00=0x011d, f01=0x0190, f02=»SP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED . P LDR A6,A1 GET DWT-ADDR L , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING l & P RF OCLEXI COMMON OPEN/CLOSE EXIT P* P EJECT P* P********* P* *
0x21811c…2182b0 Dummy {f00=0x011d, f01=0x0190, f02=» THE SOP LIGHTS EXTERNAL REGISTER P* * PCLOSE EQU * 4 " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA CLOSE FD DRIVE P* POCLEXI EQU *
0x2182b0…218444 Dummy {f00=0x011d, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* BASIC WRITE * P P* * h P*************** P* PFD:010 CF A5,BIO P ORK A2,1 PFD:015 EQU * P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6
0x218444…2185d8 Dummy {f00=0x011d, f01=0x0190, f02=» P CF A5,EBCDIC PFD:018 EQU * P XIF . P* : P IFT CHAN+TOSS=2 D P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS x ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P
0x2185d8…21876c Dummy {f00=0x011d, f01=0x0190, f02=»MMU TABLE v 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK H P LDR A2,A8 RESTORE A2 r P* P EJECT DRFD01 P* P* PFD:019 EQU * P XIF P* " P CF A5,FD:WRITE PERFORME
0x21876c…218900 Dummy {f00=0x011d, f01=0x0190, f02=» WAS IN SYSTEM AREA? | . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB N P* x PFD:025 EQU * P XIF P* P RF FD:048 GOTO FD:RC P* P****************** P* * P
0x218900…218a94 (2, 270) Dummy {f00=0x011d, f01=0x018e, f02=»S 13-15 x P RB FD:015 P EJECT DRFD01 " P* : P********************** D P* * b P* WRITE DELETED DATA * P* * P********************** P* PFD:030 CF A5,BIO P ORK A2,6
0x218a94…218c28 Dummy {f00=0x011d, f01=0x0190, f02=» P***************** P* PFD:040 CF A5,BIO:RE ( P IFT TOSS+IBM=2 D P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 t P RF(Z) FD:042 TOSS DISC P XIF P IFT IBM=1 P LDKL A4,BUF PFD:042 EQU * P XIF $ PFD:045 CF
0x218c28…218dbc Dummy {f00=0x011d, f01=0x0190, f02=»SKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? N ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH z * P LDKL A1,FD:BUF GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA
0x218dbc…218f50 Dummy {f00=0x011d, f01=0x0190, f02=»,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! , P RF FD:048 ! V P* ! h PFD:046 EQU * ! r P XIF ! P* ! P IFT TOSS+IBM=2 ! P LD A1,DWTLAB,A6 ! P AN A1,DWTA3,A6 ! P RF(Z) FD:047 NOT IBM ! P XIF !
0x218f50…2190e4 Dummy {f00=0x011d, f01=0x0190, f02=» P XIF " PFD:048 EQU * " P ABL FD:RC " $ P* " 6 P EJECT DRFD01 " @ P* " X P IFT TOSS+IBM=0 " b P IFT MMUPAG=0 " z P* " P************** " P* * " P* SEARCH KEY * " P* * " P************** " P
0x2190e4…219278 Dummy {f00=0x011d, f01=0x018e, f02=»0 ILLEGAL LENGTH " P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH # , P LDR A3,A2 # R P* # d * P* IF ODD CHANGE TO EVEN NO OF BYTES # n P* # P ADK A3,1 # P SRL A3,1 # P SLL A3,1 # P* # P SLL A2,3 # P ORK A2,7 BIO #
0x219278…21940c Dummy {f00=0x011d, f01=0x0190, f02=» P* $ P EJECT DRFD01 $ P* $ & $ P* READ RECORD WITH KEY COMMAND $ 0 P* $ X PFD:060 EQU * $ b P LDK A2,4 BIO $ v P LD A3,4,A8 REQUESTED LENGTH $ P CWK A3,130 $ " P ABL(NE) END:10 ILLEGAL LENGTH $ P LD A4,2,A8 BUFFER ADDRESS $
0x21940c…2195a0 Dummy {f00=0x011d, f01=0x0190, f02=»TUS * $ P* * % P*************** % & P* % > PFD:070 EQU * % H P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % | P LDR A1,A3 % P ANK A1,1 % & P RF(NZ) FD:090 DISC NOT OPERABEL? % " P ANKL A3,/200 WRITE PROTECTED? % P O
0x2195a0…219734 (2, 271) Dummy {f00=0x011d, f01=0x018e, f02=»RCW,A6 GET RETURN CODE % PFD:090 ABL END:IO & P* & 8 P EJECT DRFD01 & B P* & Z P******** & d P* * & t P* LOAD * & P* * & P******** & P* & PLOAD EQU * & P LDK A2,/14 LOCK & P CF A5,FD:REA & P ANK A3,1
0x219734…2198c8 Dummy {f00=0x011d, f01=0x0190, f02=» & P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' 2 P CF A5,FD:REA ' P P CF A5,LD:RC ' f P ADK A4,34 ' z P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(NE) LOA:10 IBM LABEL PREASSUMED ' P ADK A4,2 ' P LDR* A2,A4 ' P C
0x2198c8…219a5c Dummy {f00=0x011d, f01=0x0190, f02=»* ' P* READ VOLUME NAME ( P* ( & P LDK A3,8 LENGTH ( 0 P LDK A2,0 BIO ( H * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( ^ * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P RF LOA:15 ( P XIF ( P IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH (
0x219a5c…219bf0 Dummy {f00=0x011d, f01=0x018e, f02=»BIT 10 ( x P ORS A1,DWTRCW,A6 ) P XIF ) ( P IFF TOSS+IBM=0 ) 4 PLOA:15 EQU * ) L P LDKL A4,BUF BUFFER ADDRESS ) ` P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 ) P XIF ) P IFT IBM=1 ) P LD A7,DWTRCW,A6 ) $ P ANK A7,/20 CHECK
0x219bf0…219d84 Dummy {f00=0x011d, f01=0x0190, f02=» ) P XIF * P* * P EJECT DRFD01 * P* * 6 P* * @ P IFF TOSS+IBM=0 * J P* * b P* GET DWT VOL NAME ADDRESS * l P* * P CF A5,VOLADR ADDRESS TO A2 * P* * P* STORE NAME IN DWT * P* * P LDK A3,3 * PLOA:40 L
0x219d84…219f18 Dummy {f00=0x011d, f01=0x018e, f02=»50 EQU * * P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + 4 & P RB(Z) FD:075 JUMP IF TEST STATUS + H P XIF + r P IFT IBM=1 + ~ P* + P* DATA SET OPENING WANTED? + P* + " P ANK A1,/2 A1: TOSS=6, IBM=8 + P RF(NZ) LOA:70 TOSS LABEL +
0x219f18…21a0ac Dummy {f00=0x011d, f01=0x0190, f02=» + P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , * P ABL(N) FD:DIS REQUEST ERROR , < P SUK A2,18 , ` P ABL(P) FD:DIS REQUEST ERROR , r P ADK A2,25 , P SLL A2,3 BIO , P LDK A3,80 LENGTH , P LDKL A4,BUF , P CF A5,FD:REA , P LDR A
0x21a0ac…21a240 Dummy {f00=0x011d, f01=0x0190, f02=»ABEL , f PLOA:60 EQU * - P CF A5,LD:RC - P ENB - 4 * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - @ P LDK A1,DWTDSS - n P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - . P CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR - P LDK A1,DWTBOE -
0x21a240…21a3d4 (2, 272) Dummy {f00=0x011d, f01=0x0190, f02=» - t P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN DWT . 4 P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD . $ P CF A5,STDWT STORE EOD NO IN DWT . P* . PLOA:70 EQU *
0x21a3d4…21a568 Dummy {f00=0x011d, f01=0x0190, f02=»D:RC . P* / P EJECT DRFD01 / P* / . P* / 8 P IFF TOSS+IBM=0 / B P* / Z P* ERROR , UNLOCK / d P* / ~ PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:
0x21a568…21a6fc Dummy {f00=0x011d, f01=0x0190, f02=»WTRCW,A6 / P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 2 & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 H P RTN A5 0 r P XIF 0 P EJECT DRFD01 0 P* 0 P********** 0 P* * 0 P* UNLOAD * 0 P* * 0 P********** 0
0x21a6fc…21a890 Dummy {f00=0x011d, f01=0x0190, f02=» A7,A7 EOD 0 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 0 P* 1 h , P* READ DATA SET LABEL TO DRIVER BUFFER 1 r P* 1 P CF A5,DSLIO PREPARE FOR I/O 1 & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC
0x21a890…21aa24 Dummy {f00=0x011d, f01=0x0190, f02=»C-CODED) 1 ` P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 < P* DIVIDE EOD BY 26 2 F P* 2 b P LDK A1,0 2 l PUNL:10 SUK A7,26 2 ~ P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK
0x21aa24…21abb8 Dummy {f00=0x011d, f01=0x0190, f02=» TO POS 79 2 v P SCR A3,A4 3 P SUK A4,1 3 $ P SRL A3,8 LEFT BYTE 3 6 P SCR A3,A4 STORE IN BUFFER 3 R P LDR A7,A1 TRACK 3 t ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 P CF A5,SETINH INHIBIT 3
0x21abb8…21ad4c Dummy {f00=0x011d, f01=0x0190, f02=»E WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 F P CMR A2 INDICATE NOT OPEN 4 P* 4 ~ P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P CF A5,FD:REA 4 P ORS A3,DWTRCW,A6
0x21ad4c…21aee0 Dummy {f00=0x011d, f01=0x018e, f02=»LOCK IN DWT 4 t PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 ( P IFF TOSS+IBM=0 5 B P* 5 Z P* UNLOAD RETURN CODE CHECK 5 d P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR? 5 P RB(NZ) UNL:80 ENDIO 5 P RTN A5 5 P XIF 5
0x21aee0…21b074 (2, 273) Dummy {f00=0x011e, f01=0x0190, f02=» P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 " P LDR A7,A7 EOD 6 P " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 f . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6 P ADK A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+
0x21b074…21b208 Dummy {f00=0x011e, f01=0x0190, f02=»REA READ SECTOR POINTED AT BY CRN+1 6 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 , $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 X $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7 P RF SQW:10 UPDATE CRN 7 P* 7 P* END OF DA
0x21b208…21b39c Dummy {f00=0x011e, f01=0x0190, f02=» P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 < PSQWRIT EQU * 8 F P CF A5,DSOPCH GET EOD 8 Z P ADK A7,0 EOD-NO (SET CR) 8 x P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END OF EXTENT 8 P* 8 P LDK A1,DWTEOE 8 & P CF
0x21b39c…21b530 Dummy {f00=0x011e, f01=0x018e, f02=»F A5,BIO 8 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 $ P ORK A2,5 PHYS. WRITE 9 T P CF A5,FD:WRI 9 r P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P RF(NZ) SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+
0x21b530…21b6c4 Dummy {f00=0x011e, f01=0x0190, f02=» P RF END:IO : P EJECT DRFD01 : P* : . P********** : 8 P* REWIND * : J P********** : P* : n PREWIND EQU * : x P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT OPEN : P LDR A3,A2 SAVE EOD ADDRESS :
0x21b6c4…21b858 Dummy {f00=0x011e, f01=0x0190, f02=» P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE ; > P RF END:IO ; P XIF ; n P EJECT DRFD01 ; z P* ; P***************** ; P* * ; P* PERFORM ORDER * ; P* * ; P****
0x21b858…21b9ec Dummy {f00=0x011e, f01=0x018e, f02=» A4 BUFFER ADDRESS ; P* < PFD:WRI EQU * < * P IFT CHAN=0 < > P LDKL A1,/C000 WORDS,WRITE < R P XIF < t P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P* < PFD:REA EQU * < P IFT CHAN=1
0x21b9ec…21bb80 Dummy {f00=0x011e, f01=0x0190, f02=» PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = , P* = R P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = r * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P IFT CHAN=0 = P ORR A3,A1 = PWE
0x21bb80…21bd14 (2, 274) Dummy {f00=0x011e, f01=0x0190, f02=» P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > @ P ST A4,DWTUB,A6 > J P ADR A3,A4 > b " P ST A3,DWTUBE,A6 END ADDRESS+2 > t P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > $ PFD:CIO CIO A2,1,CUADR CIO-START >
0x21bd14…21bea8 Dummy {f00=0x011e, f01=0x0190, f02=» > P* ? * P************************************* ? * P* * ? @ * P* FD:RC - STORE EFF LEN, END:IO * ? n * P* * ? * P************************************* ? P* ? P* INP
0x21bea8…21c03c Dummy {f00=0x011e, f01=0x0190, f02=»D A2,ECBRL,A8 REQ LENGTH ? P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ B P* @ Z P********** @ d P* * @ v P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ PT:DISP ABL TDISP @
0x21c03c…21c1d0 Dummy {f00=0x011e, f01=0x018e, f02=»END:10 LDK A1,8 RETURN CODE @ P RB END:IO A $ P EJECT DRFD01 A 6 P* A N P******************** A X P* * A t P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU * A P IFT CPU
0x21c1d0…21c364 Dummy {f00=0x011e, f01=0x0190, f02=» P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P* B > PFDON05 EQU * B H P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B ~ P ADR A5,A6 GET STACK BASE B P* B P IFF DSKPAG+SWPBLK=0 B , P LD A2,INIFLG CHECK INITIALIZATION FLAG B
0x21c364…21c4f8 Dummy {f00=0x011e, f01=0x0190, f02=»T FLEXIBLE DISC? B P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C * ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED C P* C P EJECT DRFD01 C P* C P* C P C1R A3,A3 C * P ANS A3,DW
0x21c4f8…21c68c Dummy {f00=0x011e, f01=0x0190, f02=» P CF A5,FD:REA D P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D 0 P LDK A1,2 D d P LDK A3,3 D v P* D P* MOVE VOLUME NAME TO DWT D P* D PFDON06 LD A4,BUF,A1 D P STR A4,A2 D P ADK A1,2 D P ADK A2,2
0x21c68c…21c820 Dummy {f00=0x011e, f01=0x0190, f02=» SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. D P* DWTST IS SET BUSY E 2 P* E P P LD A2,DWTST2,A6 E Z P CWK A2,-1 E r P RF(NE) FDON08 ALREADY SAVED E P LD A2,DWTST,A6 E P ST A2,DWTST2,A6 E PFDON08 CM DWTST,A6 SET BUSY E P* E P I
0x21c820…21c9b4 (2, 275) Dummy {f00=0x011e, f01=0x0190, f02=»ER POINTER E | P RF(Z) FDON09 NOT RUNNING F P CMR A4 STOP TIMER F 4 $ P CM DWTTP2,A6 INDICATE NO TIMER F N PFDON09 EQU * F v P* F 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE F 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS F P* F
0x21c9b4…21cb48 Dummy {f00=0x011e, f01=0x0190, f02=»ATUS WORD TO OPEN F ~ P* G P LDR* A2,A4 G $ & P OTR A2,0,SOPDA SET DRIVE TO OPEN G 8 P* G b P XIF G l P* G x P EJECT G P* G P* DELAY 2 SEC G P* G P LD A4,DWTTP,A6 G P RF(Z) FDON10 NO TIMER SET G P LDKL A4,-TIME G "
0x21cb48…21ccdc Dummy {f00=0x011e, f01=0x018e, f02=»5,SETIMP G P DATA FDON20,TIME H P RB T:DISP H * P* H < P* TIME OUT ROUTINE H F P* H b PFDON20 LDR A6,A1 H l P CM DWTTP,A6 H P LDKL A5,DWTSB2 H P ADR A5,A6 STACK BASE H P* H P* LOCK DOORS H P* H P LDK A2,1 H
0x21ccdc…21ce70 Dummy {f00=0x011e, f01=0x0190, f02=» P* I P EJECT I P* I P* PUT DRIVE NO IN CIO INSTR I & P* I J P SRN A2,A3 DRIVE NO IN A3 I T * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I v P LDK A2,/14 LOCK I P CF A5,FD:REA I P LD A2,DWTA3,A6 DRIVE IND. I P ANK A3,1 I P R
0x21ce70…21d004 Dummy {f00=0x011e, f01=0x018e, f02=» I P* J P IFT OPCLOS=1 J P* J ( D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J 2 $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J z " P ORS A2,SPDLCI TO STATUS WORD J P CM DWTOCF,A6 CLEAR FLAG J P* J $ P LD A2,SPDLCI OPEN/CLO
0x21d004…21d198 Dummy {f00=0x011e, f01=0x018e, f02=» P* K P* ANY REQUEST? K P* K & . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K 0 P* SET DWTST2 TO -1 K b " P LD A2,DWTST2,A6 SAVED STATUS K ~ * P ST A2,DWTST,A6 PUT IN CUURENT STATUS K P LDKL A2,-1 K ( P ST A2,DWTST2,A6 INDICATE NOT SAVE
0x21d198…21d32c Dummy {f00=0x011e, f01=0x0190, f02=» K b P* L P* RETRY REQUEST L P* L * P IM DWTRTY,A6 INDICATE RETRY L 4 P LD A7,DWTOR,A6 L X P ANK A7,/3F ORDER L p P LD A8,DWTECB,A6 ECB ADDRESS L P ABL FDAD REACTIVATE L P EJECT DRFD01 L P* L P********************* L
0x21d32c…21d4c0 Dummy {f00=0x011e, f01=0x0190, f02=» EQU * L $ P ST P,INTSAV SAVE LAST INTERRUPT M " P******************** =1 START M 6 P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M r P XIF M P* M P IFT CPU852=0 M " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M P* M P
0x21d4c0…21d654 (2, 276) Dummy {f00=0x011e, f01=0x0190, f02=»FFER M v P SUR A2,A1 LENGTH N PIH005 EQU * N & P SST A3,CUADR GET STATUS N : " P RF(A) IH:000 READY INTERRUPT N Z ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR N P RF(NZ) IH050 READ N P* N P EJECT DRFD01 N P* N P* N PIH010 EQU * N
0x21d654…21d7e8 Dummy {f00=0x011e, f01=0x0190, f02=»WRITE N P RB(NA) IH005 O $ P ADK A1,2 UPDATE BUFFER POINTER O $ P SUK A2,2 O L P RB(P) IH010 O ^ P CIO A2,0,CUADR CIO HALT O r P ABL TDISP GOTO DISPATCHER O P* O PIH050 EQU * O P INR A3,0,CUADR READ O P RB(NA) IH005 O $ P SC
0x21d7e8…21d97c Dummy {f00=0x011e, f01=0x0190, f02=» A2,2 O P RB(P) IH050 P P CIO A2,0,CUADR CIO HALT P " P SST A3,CUADR STATUS =2 P B P RB(NA) *-2 =2 P b PIH:000 EQU * =1 P z P XIF P P* P P EJECT DRFD01 P P* P P* P P******************** =1 END P P IFT CHAN=0 =2 P
0x21d97c…21db10 Dummy {f00=0x011e, f01=0x0190, f02=»,A6 STACK POINTER P P SLL A3,1 Q P RF(N) FDRE READY INTERRUPT Q , P SRL A3,1 Q P P LD A2,DWTRTY,A6 RETRY? Q b P RF(Z) IH:10 NO Q " P CM DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 Q P ANKL A1,/0405 Q P RF(Z) IH:10 RETURN CODE OK Q
0x21db10…21dca4 Dummy {f00=0x011e, f01=0x0190, f02=» CU - ECB Q x P* R P ANKL A3,/FF37 R P RF(Z) IH:80 R 2 P LDR A1,A3 R F " P ANKL A3,/0A05 UNCHANGED BITS R X P LDR A4,A1 R ~ P ANKL A4,/0400 BIT 5 R P SLC A4,7 TO BIT 14 R P ORR A3,A4 R P IFT TOSS+IBM=0 R P LDR A4,A1 R P ANK
0x21dca4…21de38 Dummy {f00=0x011e, f01=0x0190, f02=» BIT 7 R P ORR A3,A4 S P ANK A1,/10 BIT 11 S P SRC A1,5 TO BIT 0 S : P ORR A3,A1 S T PIH:80 EQU * S f P IFT CHAN=1 =1 S z P INH =1 S P XIF =1 S P RTN A5 S P EJECT DRFD01 S P* S P******************** S P*
0x21de38…21dfcc Dummy {f00=0x011e, f01=0x0190, f02=»,DWTA2,A6 S , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE T P LDKL A5,DWTSB2 T B P ADR A5,A6 STACK BASE T Z P RB FDON60 T x P EJECT DRFD01 T P* T 0 P******************************************* T 0 P*
0x21dfcc…21e160 Dummy {f00=0x011e, f01=0x0190, f02=»*********************** T | P* U P******* U * P* * U : P* BIO * U J P* * U Z P******* U j P* U z P* U P* INPUT: A8 ECB ADDRESS U P* U > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START U 0 P* A
0x21e160…21e2f4 (2, 277) Dummy {f00=0x011f, f01=0x0190, f02=»10 U PBIO:RE LDK A4,1 V PBIO010 EQU * V " P LD A3,ECBRL,A8 REQ LEN V 6 P RF(N) BIOERR ILLEGAL LENGTH V V P IFT TOSS+IBM=2 V z P LD A2,DWTLAB,A6 V P AN A2,DWTA3,A6 V P RF(Z) BIO020 TOSS DISC V P XIF V P IFT IBM=1 V P LDK A7,
0x21e2f4…21e488 Dummy {f00=0x011f, f01=0x0190, f02=»LEN V ~ P LDK A2,3 W PBIO030 EQU * W P XIF W 2 P IFF TOSS+IBM=0 W > P ADK A4,0 SET CR W V P RF(Z) BIO060 WRITE W n P LDK A2,0 W P LDR A1,A3 REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE W P RF(G) BIOERR NO W PBIO040 SUK A1,12
0x21e488…21e61c Dummy {f00=0x011f, f01=0x018e, f02=»* W PBIO060 CWR A3,A7 X " P RF(NE) BIOERR ILLEGAL REQ LEN X " P XIF X H P IFT TOSS+IBM=0 X T P* X l > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH X v P* X P LDR A1,A3 REQ LENGTH X P LDK A2,0 NO OF SECTORS-1 X $ PBIO015
0x21e61c…21e7b0 Dummy {f00=0x011f, f01=0x0190, f02=» P* Y PBIO035 SUK A1,128 Y & P RF(NP) BIO100 REQ LENGTH ACCEPTED Y ( PBIO045 ADK A2,1 Y R P CWK A2,3 Y j P RB(NG) BIO015 Y | $ P RF BIOERR REQ LEN OUTSIDE RANGE Y P XIF Y P* Y 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Y
0x21e7b0…21e944 Dummy {f00=0x011f, f01=0x0190, f02=»SECTOR NO Y P RF(N) BIOER2 OUTSIDE RANGE Z P IFT TOSS+IBM=2 Z 6 P ANK A7,/A Z N P RF(Z) BIO110 IBM DISC Z ` P XIF Z ~ P IFT TOSS=1 Z P CWK A1,499 Z P RF(G) BIOER2 OUT OF RANGE Z , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR Z P XIF
0x21e944…21ead8 Dummy {f00=0x011f, f01=0x0190, f02=» P XIF [ P IFT TOSS+IBM=0 [ ( P CWK A1,2001 SECTOR NO OUT OF RANGE [ ( P RF(G) BIOER2 YES! [ T P XIF [ n PBIO120 EQU * [ z P SLL A1,3 [ P ORR A2,A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS [ P LDR A1,A3 REQ LENGTH [ P ANK A1,1 [ $ P
0x21ead8…21ec6c Dummy {f00=0x011f, f01=0x0190, f02=» PBIOERR ABL END:10 P* ILLEGAL SECTOR NO PBIOER2 ABL FD:DIS < P* V P EJECT DRFD01 ` P* x P********* P* * P* FDIX * P* * P********* P* P* INPUT: A2 X P*
0x21ec6c…21ee00 Dummy {f00=0x011f, f01=0x018e, f02=»LL A3,1 P SUK A2,1 ] P RB FDIX10 ] " PFDIX20 RTN A5 ] 4 P EJECT DRFD01 ] J P IFF TOSS+IBM=0 ] b P****************** ] z P* * ] P* VOLADR * ] P* * ] P****************** ] P* ] P*
0x21ee00…21ef94 (2, 278) Dummy {f00=0x011f, f01=0x0190, f02=» ] P LC A3,DWTOR,A6 DRIVE NO ^ PVOLA05 EQU * ^ ( P LDK A2,DWTVO0 ^ < P ADR A2,A6 ^ R P ANK A3,/3 ^ d PVOLA10 EQU * ^ v P RF(Z) VOLA20 ^ P ADK A2,6 UPDATE ADDRESS ^ P SUK A3,1 ^ P RB VOLA10 ^ PVOLA20 RTN A5 ^ P XIF ^ P ^
0x21ef94…21f128 Dummy {f00=0x011f, f01=0x0190, f02=»ASCII TRANSFORMS A STRING FROM EBCDIC TO ^ P* ASCII CODE _ 0 . P* INPUT STRING ADDRESS IS BUF _ P & P* INPUT: A7 NO OF CHARACTERS _ , P* A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED _ P*
0x21f128…21f2bc Dummy {f00=0x011f, f01=0x0190, f02=»C:10 SUK A7,1 _ P RF(N) ASC:20 ` P SUK A4,1 ` , " P LC A1,BUF,A7 GET EBCDIC CHAR ` > ( P LC A1,TASCII,A1 TRANSFORM TO ASCII ` d 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER ` P RB ASC:10 ` PASC:20 EQU * ` " P RF EBC:90 SET INH AND RETURN
0x21f2bc…21f450 Dummy {f00=0x011f, f01=0x018e, f02=»ES A STRING FROM ASCII TO ` r P* EBCDIC CODE a " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER a D P* a & P* INPUT: A7 NO OF CHARACTERS a * P* A4 INPUT STRING ADDRESS a P* a P* OUTPUT: A1 CHANGED a
0x21f450…21f5e4 Dummy {f00=0x011f, f01=0x0190, f02=» P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N) EBC:80 b . P SUK A4,1 b D P LCR A1,A4 GET ASCII CHAR. b V P LC A1,TEBCDIC,A1 b x P SC A1,BUF,A7 b P RB EBC:10 b PEBC:80 EQU * b P LDKL A4,BUF b PEBC:90 EQU * b P CF A5,SETINH b
0x21f5e4…21f778 Dummy {f00=0x011f, f01=0x0190, f02=»EC TRANSFORMS PHYSICAL SECTOR TO STANDARD b ~ , P* LOGICAL SECTOR (BINARY). c 2 < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) c b * P* TT = TRACK, SS=SECTOR c P* c , P* INPUT: A4 ADDRESS TO PHYS. SECTOR c
0x21f778…21f90c Dummy {f00=0x011f, f01=0x0190, f02=»F A5,DECBIN c P LDR A3,A1 SAVE d P ADK A4,2 d , P* d > P* MULTIPLY BY 26 d H P* d b P SLL A3,5 *32 d l P LDR A2,A1 d P SLL A2,2 d P SUR A3,A2 *28 d P SLL A1,1 d P SUR A3,A1 *26 d P CF A5,DECBIN d P SUK A1,1 d
0x21f90c…21faa0 Dummy {f00=0x011f, f01=0x0190, f02=»F+EOD+4 EOD? d P RF(E) LOG:02 YES! e P SUKL A1,1898 e . P RF LOG:04 e D P* e V " P* CHECK EOD LESS/EQUAL 74001 e ` P* e PLOG:02 SUKL A1,1899 e PLOG:04 EQU * e " P RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER e
0x21faa0…21fc34 (2, 279) Dummy {f00=0x011f, f01=0x0190, f02=»DE e r P ORS A1,DWTRCW,A6 f P CF A5,SETINH f $ P ABL LOA:90 ERROR ROUTINE f : P* f P EJECT DRFD01 f f P* f ~ P********** f P* DECBIN* f P********** f P* f > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO f D
0x21fc34…21fdc8 Dummy {f00=0x011f, f01=0x0190, f02=» BINARY f P* WORKING REG: A2,A7 g P* g 0 PDECBIN LDK A1,0 g : P LDK A7,2 g R PDEC:10 LCR A2,A4 DIGIT g d P ANK A2,/FF g P SUK A2,/F0 g P RB(N) LOG:05 g P SUK A2,9 g P RB(P) LOG:05 NOT DIGIT g P ADK A2,9 g P SUK
0x21fdc8…21ff5c Dummy {f00=0x011f, f01=0x0190, f02=»DK A1,/A MULTIPLY BY 10 g P RB DEC:20 h PDEC:30 ADR A1,A2 h 2 P RTN A5 h J P XIF h Z P EJECT DRFD01 h f P* h ~ P********** h P* SETCIO * h P********** h P* h 2 P* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* h 8 P
0x21ff5c…2200f0 Dummy {f00=0x011f, f01=0x0190, f02=» PSETCIO LDKL A4,/FFCF i P ANS A4,FD:CIO i P SLL A3,4 i 6 P ORS A3,FD:CIO i H P RTN A5 i ^ P IFT IBM=1 i n P EJECT DRFD01 i P* i P********** i P* BINDEC * i P********** i P* i : P* FUNCTION: BINDEC TRANSFORMS A BINA
0x2200f0…220284 Dummy {f00=0x011f, f01=0x0190, f02=»UTPUT: A3 EBCDIC CODED DECIMAL DIGITS i P* A7 CHANGED j . P* j L PBINDEC LDK A3,0 j V PBIN:10 SUK A7,10 j n P RF(N) BIN:20 j P ADK A3,1 j P RB BIN:10 j PBIN:20 ADK A7,10 j P SLL A3,8 j * P ORR A3,A7 DECIMAL CONVERTED N
0x220284…220418 Dummy {f00=0x011f, f01=0x0190, f02=»* j P* k 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL k P* k L P* INPUT: A6 DWT ADDRESS k V P* k x : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES k P* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS k P
0x220418…2205ac Dummy {f00=0x011f, f01=0x018e, f02=»2 k P SLL A2,3 l P LDK A3,128 l P LDKL A4,BUF l 0 P RTN A5 l D P EJECT DRFD01 l T P* l l P********** l v P* DSOPCH * l P********** l P* l 6 P* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* l P* INPUT: A6
0x2205ac…220740 Dummy {f00=0x011f, f01=0x0190, f02=» l x PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m $ P LDR* A7,A2 EOD-NO m 8 P RTN A5 m R P EJECT DRFD01 m b P* m z P********* m P* DSPAD * m P********* m P* m 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* T
0x220740…2208d4 (2, 280) Dummy {f00=0x011f, f01=0x0190, f02=»UTPUT: A2 ADDRESS TO DATA m P* A6 DWT ADDRESS n " P* n D " PDSPAD LC A2,DWTOR,A6 DRIVE NO n N P ANK A2,/3 n t P ADR A2,A2 n P ADR A2,A6 n P ADR A2,A1 n P RTN A5 n P EJECT DRFD01 n P* n P********* n P* STDWT
0x2208d4…220a68 Dummy {f00=0x011f, f01=0x018e, f02=» ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WORD TO BE STORED IN DWT o 0 P* A6 DWT ADDRESS o b P* o P* OUTPUT: A1 UNCHANGED o 0 P* A2 ADDRESS TO WORD IN DWT AREA o P* A3 UNCHANGED o P
0x220a68…220bfc Dummy {f00=0x011f, f01=0x018e, f02=» o ~ P* p P********** p P* SETINH * p $ P********** p 6 P* p H @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE p R > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND p P* RETURN p P* p " P* INPUT:
0x220bfc…220d90 Dummy {f00=0x011f, f01=0x0190, f02=» p | PSET:10 RTN A5 q P XIF q P* q * " P* D R I V E R B U F F E R q 4 PBUF DATA 0,0,0,0 q Z P* q r P IFT IBM=1 q | P RES 60 q P XIF q P* q P EJECT DRFD01 q P* q P********************* q P*
0x220d90…220f24 Dummy {f00=0x011f, f01=0x0190, f02=»0 q P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r ( P DATA 0 ORDER r D " P DATA FDADR ACTIVATION ADDRESS r Z P DATA 0 TTAB-ADDRESS r $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE r P* r IFT MMUPAG=1 r & " DATA
0x220f24…2210b8 Dummy {f00=0x011f, f01=0x0190, f02=» DATA 0 r P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD s < P DATA -1 s h * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG s x P DATA 0 s $ PDWTTP EQU *-DWFD01 TIMER POINTER s P DATA 0 s ( PDWTRCW EQU *-DWFD01 TEMP R
0x2210b8…22124c Dummy {f00=0x011f, f01=0x0190, f02=»R s j P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,0,0 t F ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 t Z P DATA 0,0,0 t ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 t P DATA 0,0,0 t ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 t P D
0x22124c…2213e0 Dummy {f00=0x011f, f01=0x0190, f02=» FLAG AT POWER ON t r P DATA 0 u P XIF u * P* u 6 P IFT CHAN=1 u @ 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER u T P DATA 0 u , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 u P DATA 0 u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR u
0x2213e0…221574 (2, 281) Dummy {f00=0x0120, f01=0x0190, f02=»OD EQU *-DWFD01 END OF DATA u P DATA 0,0,0,0 v $ & PDWTEOE EQU *-DWFD01 END OF EXTENT v : P DATA 0,0,0,0 v d * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO v z P DATA 0,0,0,0 v . PDWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR v P DATA 0,0,0,0 v P X
0x221574…221708 Dummy {f00=0x0120, f01=0x0190, f02=»PHYSICAL BUFFER ADDRESS v P DATA 0 SECOND MMU ENTRY w P* w @ PDWT:LA EQU *-DWFD01 w J * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS w f P* w PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x221708…22189c Dummy {f00=0x0120, f01=0x4098, f02=» w | P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x 4 PFD:BUF EQU 0 x J P XIF x ^ P* x j P* x t P* x ~ P END x @ x PDWT:BF EQU *-DWFD01 w $ P DATA 0 SAVE AREA BUFFER ADDRESS w P XIF w P* w P IFT MMUPAG=1 w
0x22189c…221a30 Dummy {f00=0x0120, f01=0x2008, f02=» y END @
0x221a30…221bc4 Dummy {f00=0x0120, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x221bc4…221d58 Dummy {f00=0x0120, f01=0x0190, f02=» ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E R 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 S 8 F P* LOCAL CHAR. MAY BE DIFFERENT FROM ZERO S t 8 P* STD STATUS MESSAGE D # 0 C # 0 S 2 P* DIN
0x221d58…221eec Dummy {f00=0x0120, f01=0x0190, f02=» PCHLT1 EQU * T P* T $ P ST P,INTSAV SAVE LAST INTERRUPT T " P* T J P IFT CPU852=1 T T & P CF A15,SAVE8 SAVE A1-A8 ON STACK T j P XIF T P* T P IFT CPU852=0 T " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF T P* T P LDK A7,2 IN
0x221eec…222080 Dummy {f00=0x0120, f01=0x0190, f02=» P* INTERRUPT FROM CHLT2 U P* U & P IFT LOCHAN=2 U 0 $ P ST P,INTSAV SAVE LAST INTERRUPT U F P* U n P IFT CPU852=1 U x & P CF A15,SAVE8 SAVE A1-A8 ON STACK U P XIF U P* U P IFT LOCHAN=2 U P IFT CPU852=0 U " P MSR 8,A15 SAV
0x222080…222214 (2, 282) Opaque[0x194]
0x222214…2223a8 # DirEnt {nam=»DRIC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2408, f03=0x0000}
0x222214…2223a8 IdxSect {
0x222214…2223a8 f00 = 0x0120 // 0x222214 @0x0
0x222214…2223a8 f01 = 0x000a // 0x222216 @0x2
0x222214…2223a8 gno = [ // 0x222218 @0x4
0x222214…2223a8 [0x00]: C0x0120.0x1.0
0x222214…2223a8 [0x01]: C0x0120.0x2.0
0x222214…2223a8 [0x02]: C0x0121.0x1.0
0x222214…2223a8 [0x03]: C0x0121.0x2.0
0x222214…2223a8 [0x04]: C0x0121.0x3.0
0x222214…2223a8 ]
0x222214…2223a8 }
0x2223a8…22253c Dummy {f00=0x0120, f01=0x0190, f02=» 2 P IDENT DRIC01 9.2DK 0 80-01-02 870105040920 P : P =DK0, MMU BUF SIZE B P 80-03-11 ` P* t P* ~ 2 P********************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DRIC01 = I
0x22253c…2226d0 Dummy {f00=0x0120, f01=0x0190, f02=»******** j P* 8 P* THIS MODULE HANDLES THE INTERTASK COMMUNICATION P* V P EJECT DRIC01 ` P* x P* ORDERS: P* P* /02 READ, NOT ADDRESSED " P* /06 WRITE, NOT ADDRESSED P* /0A READ, ADDRESSED
0x2226d0…222864 Dummy {f00=0x0120, f01=0x018e, f02=» z P* A6 DWT ADDRESS P* A7 ORDER CODE $ P* A8 ECB ADDRESS @ , P* A12 ADDRESS TO DRIVER ADDRESS BLOCK P* P EJECT DRIC01 P* P* P*********** P* ENTRIES * P*********** P* P
0x222864…2229f8 Dummy {f00=0x0120, f01=0x0190, f02=» b P EJECT DRIC01 P* P* * P************* 4 P* EXTERNALS * J P************* ` P* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR & P EXTRN DISEND TENDIO AND DISPA
0x2229f8…222b8c Dummy {f00=0x0120, f01=0x0190, f02=»T TTAB ADDRESS & P EXTRN DWTSB1 STACK BASE 1 IN DWT & P EXTRN BUFLEN DRIVER BUFFER LENGTH @ P EXTRN SETIMP TIMER j , P EXTRN FNDTID FIND TTAB ADDRESS FROM TID P EXTRN TTB:ST TASK STATUS " P EXTRN TTB:TD TERMINAL DEVICES 4 P EXTRN IHR
0x222b8c…222d20 Dummy {f00=0x0120, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE " " P EXTRN ECBCW ECB CONTROL WORD F P EJECT DRIC01 TOSSIO l P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P****
0x222d20…222eb4 (2, 283) Dummy {f00=0x0120, f01=0x018e, f02=»G EQU 1. r P* PMMUPAG EQU 1 P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:A EQU 50 PX:Q EQ
0x222eb4…223048 Dummy {f00=0x0120, f01=0x0190, f02=» P* P EJECT DRIC01 P* * P* 4 P********************* > P* DWT DISPLACEMENTS * P********************* z P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQ
0x223048…2231dc Dummy {f00=0x0120, f01=0x0190, f02=»INTER t PDWTIME EQU START+/02 TIME 6 PDWTANC EQU START+/04 POINTER TO FIRST DWT IN QUEUE 0 . PDWTQUE EQU START+/06 QUEUE ANCHOR ADDRESS j P* P EJECT DRIC01 P* P* P***************** P* ADDRESS BLOCK * P**
0x2231dc…223370 Dummy {f00=0x0120, f01=0x018e, f02=» DATA ICAD ACTIVATION ADDRESS P DATA ITABRT ABORT ADDRESS & P* H P* R 6 PRD:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED READ REQ. 8 PWR:QUE DATA 0 QUEUE ANCHOR NOT ADDRESSED WRITE REQ. P* $ P* INTERTASK DRIVER BUFFER (MMU) P*
0x223370…223504 Dummy {f00=0x0120, f01=0x0190, f02=» P* A C T I V A T I O N P* " PICAD EQU * , P LDR A1,A7 ORDER CODE TO A1 > P SUK A1,2 b & P RF(Z) RD:NAD READ NOT ADDRESSED? t P SUK A1,4 ( P ABL(Z) WR:NAD WRITE NOT ADDRESSED? P SUK A1,4 " P RF(Z) RD:ADR READ ADDRESS
0x223504…223698 Dummy {f00=0x0120, f01=0x0190, f02=»* S E T T I M E O U T P* " P LD A2,ECBCW,A8 GET TIME , P ST A2,DWTIME,A6 L P RF END:IO d P* v P EJECT DRIC01 P* P* R E A D, A D D R E S S E D P* " P* W R I T E, A D D R E S S E D P* PRD:ADR E
0x223698…22382c Dummy {f00=0x0120, f01=0x0190, f02=»CW,A8 TID & P CF A15,FNDTID TTAB ADDRESS TO A2 P ADK A2,0 SET CR < P RF(Z) DIS:OE NOT FOUND? T P CW A2,DWTTAB,A6 t P RF(E) DIS:OE ILLEGAL TID? 4 P ADKL A2,TTB:TD ADDRESS TO TERMINAL DEVICE TABLE P LDR* A1,A2 TABLE LENGTH $ P L
0x22382c…2239c0 Dummy {f00=0x0120, f01=0x0190, f02=» $ P* FIND DWT OF ADDRESSED TASK P* , 0 PADR:20 ADK A2,4 ADDRESS TO NEXT DWT ADDRESS 6 P SUK A1,4 j P RF(N) DIS:OE NOT FOUND? | P* P LDR* A4,A2 DWT ADDRESS " P CW A7,DWTADR,A4 SEARCHED DWT? P RB(NE) ADR:20 NO, TRY NEXT
0x2239c0…223b54 (2, 284) Dummy {f00=0x0121, f01=0x0190, f02=»NCHOR ADDRESS t " P CWR A1,A6 CHECK QUEUE ANCHOR 0 P RF(E) ADR:30 REQUEST ISSUED FOR THIS TASK? < P* p P ANK A7,1 z P RF(Z) ADR:25 READ? P CWK A1,RD:QUE ( P RF(E) ADR:30 COMPLEMENTARY REQUEST? P RF ADR:50 NO P*
0x223b54…223ce8 Dummy {f00=0x0121, f01=0x0190, f02=» ABORT TIMER IF ANY P* > PADR:30 CF A15,ITAB05 ABORT TIMER AND REMOVE DWT FROM QUEUE & P ANK A7,1 h P RF(Z) RD:N05 READ? z P* P* MOVE BUFFER P* PADR:35 EQU * " P LDKL A5,DWTSB1 GET STACK BASE P ADR A5,A6
0x223ce8…223e7c Dummy {f00=0x0121, f01=0x0190, f02=»G BUFFER ADDRESS v P ANK A3,1 & P RF(Z) ADR:38 BUFFER ADDRESS EVEN? * : P ORS A3,ECBBA,A9 MAKE RECEIVING BUFFER ADDRESS UNEVEN T P RF END:IO P* PADR:38 EQU * P SUK A3,2 A3 := /FFFE 8 P ANS A3,ECBBA,A9 MAKE RECEIVING BUFFER A
0x223e7c…224010 Dummy {f00=0x0121, f01=0x0190, f02=»C01 P* P* OUEUE REQUEST P* . . PADR:40 LDK A7,0 INDICATE ADDRESSED REQUEST 8 P* j PADR:50 EQU * t P LD A3,DWTIME,A6 TIME P RF(Z) TWR:30 P ADK A3,1 $ P RF(Z) ADR:70 NO TIMING WANTED? P SUK A3,1 P
0x224010…2241a4 Dummy {f00=0x0121, f01=0x0190, f02=»NTER | P ST A3,TIME P CF A15,SETIMP SET TIMER P DATA TIMOUT TIMEOUT ADDRESS @ PTIME DATA 0 d P* x P EJECT DRIC01 P* ( P* INSERT IN QUEUE WITHIN PRIORITY P* PADR:70 EQU * . P ST A2,DWTQUE,A6 STORE QUE
0x2241a4…224338 Dummy {f00=0x0121, f01=0x0190, f02=»SED REQUEST? x : P ADK A2,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* R PADR:80 LDR A4,A2 SAVE P LDR* A2,A2 NEXT IN QUEUE z P RF(Z) ADR:90 END FOUND? " P LD A5,DWTTAB,A2 TTAB ADDRESS & P CC A1,TTB:ST+1,A5 COMPARE LEVELS
0x224338…2244cc Dummy {f00=0x0121, f01=0x0190, f02=»IOE REQUEST ERROR P* P EJECT DRIC01 $ P* < ( P* R E A D, N O T A D D R E S S E D F P* r $ PRD:NAD EQU * READ, NOT ADDRESSED | < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED WRITE REQUESTS & P RF(NZ) RD:N10 ANYTHING IN QUEUE?
0x2244cc…224660 Dummy {f00=0x0121, f01=0x0190, f02=» n & P ST A3,WR:QUE UPDATE QUEUE ANCHOR P* 2 PRD:N00 EQU * < & P CF A15,ABTIM2 ABORT TIMER IF ANY P P* z PRD:N05 EQU * " P LDR A4,A6 EXCHANGE A2 AND A6 P LDR A6,A2 P LDR A2,A4 P RB ADR:35 P* ( PRD:N10 LDR
0x224660…2247f4 (2, 285) Dummy {f00=0x0121, f01=0x0190, f02=»UE ADDRESS r P RB ADR:50 INSERT IN QUEUE P* 4 P EJECT DRIC01 > P* V * P* W R I T E, N O T A D D R E S S E D ` P* & PWR:NAD EQU * WRITE, NOT ADDRESSED < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS & P RF(NZ
0x2247f4…224988 Dummy {f00=0x0121, f01=0x0190, f02=»A3,A2 NO, REMOVE FROM QUEUE & P ST A3,RD:QUE UPDATE QUEUE ANCHOR $ P* N , PWR:N05 CF A15,ABTIM2 ABORT TIMER IF ANY X P RB ADR:35 P* ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB WR:N05
0x224988…224b1c Dummy {f00=0x0121, f01=0x0190, f02=»O U T P* PTIMOUT LDR A6,A1 DWT ADDRESS " P CM* 0,A2 RESET TIMER POINTER < P LDR A2,A6 b $ P CF A15,ITAB10 REMOVE FROM QUEUE t P* PTWR:30 EQU * P CMR A6 RESET QUEUE LINK P LDK A1,/40 RETURN CODE P RB END:IO
0x224b1c…224cb0 Dummy {f00=0x0121, f01=0x0190, f02=»WILL UPDATE QUEUE AND ABORT TIMER (IF ANY). P* 4 P* INPUT: A6 = DWT ADDRESS > P* b " P* OUTPUT: A1-A4 ARE DESTROYED l P* PITABRT EQU * P LDR A2,A6 P* PITAB05 EQU * P CF A15,ABTIM ABORT TIMER P*
0x224cb0…224e44 Dummy {f00=0x0121, f01=0x0190, f02=» ITAB20 NOT-ADDRESSED READ REQUEST? P CWK A1,WR:QUE , . P RF(E) ITAB20 NOT-ADDRESSED WRITE REQUEST? B : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE t P* P EJECT DRIC01 P* P* PITAB20 LDR A4,A1 SAVE P L
0x224e44…224fd8 Dummy {f00=0x0121, f01=0x0190, f02=»A4 UPDATE QUEUE LINKS P CMR A2 RESET QUEUE LINK P* > P IFT CPU852=1 H P RF IH:RTN ^ P XIF p P* | P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DRIC01 P* P* A B T I M P* . P* SUB
0x224fd8…22516c Dummy {f00=0x0121, f01=0x0190, f02=» P* PABTIM2 EQU * P CMR A2 RESET QUEUE LINK " P* B PABTIM LDK A1,DWTTP L $ P ADR A1,A2 TIMER POINTER ADDRESS f P LDR* A3,A1 " P RF(Z) IH:RTN NO TIMER ACTIVE? P CM* 0,A1 " P CMR A1 INDICATE NO TIMER SET P*
0x22516c…225300 Dummy {f00=0x0121, f01=0x018e, f02=» EJECT DRIC01 P* P* M O V B U F " P* 8 4 P* SUBROUTINE TO MOVE BUFFER FROM SENDING TASK B P* TO ADDRESSED TASK. z > P* EFFECTIVE LENGTH IN BOTH INPUT AND OUTPUT ECB ARE SET. B P* A1 WILL CONTAIN RETURN CODE /8 IF SENDING
0x225300…225494 (2, 286) Dummy {f00=0x0121, f01=0x0190, f02=» X P* P* INPUT PARAMETERS: P* A2 RECEIVING DWT 0 P* A5 STACK POINTER N P* A6 SENDING DWT l P* P* REGISTER USAGE: P* A1 RETURN CODE P* A2 DWT RECEIVING TASK P* A3 WORKING REGISTER
0x225494…225628 Dummy {f00=0x0121, f01=0x0190, f02=» A8 ECB ADDRESS SENDING TASK & P* A9 ECB ADDRESS RECEIVING TASK & P* P PMOVBUF EQU * Z P LD A8,DWTECB,A6 SENDING ECB n $ P ENB GIVE OTHER TASKS A CHANCE P* P EJECT DRIC01 P* P* P LDK A1,0 " P LD A9
0x225628…2257bc Dummy {f00=0x0121, f01=0x0190, f02=»V:05 , P LDK A1,8 RETURN CODE (INCORRECT LENGTH) P LD A3,ECBRL,A9 < P RB(N) DIS:OE T P* j PMOV:05 EQU * t P IFT MMUPAG=1 6 P LDKL A4,ITAD GET ADDRESS TO DRIVER ADDRESS BLOCK * P CW A3,BUFLEN,A4 CHECK MMU BUFFER SIZE , P R
0x2257bc…225950 Dummy {f00=0x0121, f01=0x018e, f02=» P* ! PMOV:10 EQU * ! P XIF ! " P* ! . P ! 8 $ P ST A3,ECBEL,A8 EFFECTIVE LENGTH ! @ $ P ST A3,ECBEL,A9 EFFECTIVE LENGTH ! h P* ! P EJECT DRIC01 ! P* ! P* ! P IFT MMUPAG=0 ! * P LD A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x225950…225ae4 Dummy {f00=0x0121, f01=0x40e0, f02=» ! j P LCR A9,A4 " P SCR A9,A7 " P ADK A4,1 " , P ADK A7,1 " > P RB MOV:15 " P P* " b PMOV:20 EQU * " l P XIF " P* " P INH " P RTN A5 " P* " P* " P* " P END " @ " A4,ECBBA,A8 SENDING BUFFER ADDRESS ! ,
0x225ae4…225c78 Dummy {f00=0x0121, f01=0x2008, f02=» # A5 END @ ODE LD A3,4,A1 0 D MOV:10 EQU * L & " LD A4,2,A8 SENDING BUFFER ADDRESS ` " LD A7,2,A2 REC. BUFFER ADDR. ADR A3,A4 END OF BUFFER CWR A4,A3 " RF(E) MOV:20 ALL CHAR. MOVED
0x225c78…225e0c Dummy {f00=0x0121, f01=0x018e, f02=»-ADDRESS v ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. < ( PTOSLEN EQU 410 MAX TOSS SEC. LENGTH j " PIBMLEN EQU 128 IBM SEC. LENGTH ( PBOE EQU 28 BEGIN OF EXTENT POSITION & PEOE EQU 34 END OF EXTENT POSITIO
0x225e0c…225fa0 Dummy {f00=0x0121, f01=0x0190, f02=» P******************** P* * P* DWT-DISPLACEMENTS* < P* * X P******************** t P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P X
0x225fa0…226134 (2, 287) Opaque[0x194]
0x226134…2262c8 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2440, f03=0x0000}
0x226134…2262c8 IdxSect {
0x226134…2262c8 f00 = 0x0122 // 0x226134 @0x0
0x226134…2262c8 f01 = 0x002a // 0x226136 @0x2
0x226134…2262c8 gno = [ // 0x226138 @0x4
0x226134…2262c8 [0x00]: C0x0122.0x0.0
0x226134…2262c8 [0x01]: C0x0122.0x2.0
0x226134…2262c8 [0x02]: C0x0122.0x3.0
0x226134…2262c8 [0x03]: C0x0123.0x0.0
0x226134…2262c8 [0x04]: C0x0123.0x1.0
0x226134…2262c8 [0x05]: C0x0123.0x2.0
0x226134…2262c8 [0x06]: C0x0123.0x3.0
0x226134…2262c8 [0x07]: C0x0124.0x0.0
0x226134…2262c8 [0x08]: C0x0124.0x1.0
0x226134…2262c8 [0x09]: C0x0124.0x2.0
0x226134…2262c8 [0x0a]: C0x0124.0x3.0
0x226134…2262c8 [0x0b]: C0x0125.0x0.0
0x226134…2262c8 [0x0c]: C0x0125.0x1.0
0x226134…2262c8 [0x0d]: C0x0125.0x2.0
0x226134…2262c8 [0x0e]: C0x0125.0x3.0
0x226134…2262c8 [0x0f]: C0x0126.0x0.0
0x226134…2262c8 [0x10]: C0x0126.0x1.0
0x226134…2262c8 [0x11]: C0x0126.0x2.0
0x226134…2262c8 [0x12]: C0x0132.0x2.0
0x226134…2262c8 [0x13]: C0x0132.0x3.0
0x226134…2262c8 [0x14]: C0x0133.0x2.0
0x226134…2262c8 ]
0x226134…2262c8 }
0x2262c8…22645c Dummy {f00=0x0122, f01=0x0190, f02=» 2 P IDENT DRDC15 9.2DK 2 80-01-03 870105040920 P : P DK2, TBUFL B P 80-03-11 X 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. l P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SALCUZ P REL 9.1 79-07-19
0x22645c…2265f0 Dummy {f00=0x0122, f01=0x0190, f02=»9-05-23 $ P =5, INCOMPLETE POLL SEQUENCE P REL 9.1 79-05-23 8 P =3, TRANSFER PARAMETER T P PRR 9.1 79-04-06 v P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING P PRR 9.1 78-11-29 P
0x2265f0…226784 Dummy {f00=0x0122, f01=0x0190, f02=»*********************** z P* $ P* PHILIPS TERMINAL SYSTEM PTS * P* R * P* DRDC15: DRIVER DATA COMMUNICATION . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P* P* P* P* P
0x226784…226918 Dummy {f00=0x0122, f01=0x0190, f02=» ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT 6 " P ENTRY IH1502 OUTPUT INTERRUPT " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTERNAL REFERENCES P*
0x226918…226aac Dummy {f00=0x0122, f01=0x0190, f02=»XTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER " P EXTRN DWTST DWT STATUS B P EXTRN DWTOR DWT ORDER b P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC TABLE ( P EXTRN TASCII EB
0x226aac…226c40 Dummy {f00=0x0122, f01=0x0190, f02=» LENGTH v P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD 4 * P EXTRN DC:MIN MOVE DATA TO USER BUFFER Z , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH P EJECT P* P*
0x226c40…226dd4 (2, 288) Dummy {f00=0x0122, f01=0x0190, f02=»TS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) P* b P EJECT l < P******************************************************* z P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P* ( PXRVI EQU /5C
0x226dd4…226f68 Dummy {f00=0x0122, f01=0x0190, f02=» BUFFER LENGTH | PRBUFL EQU 400+X:X DK PX:B EQU /60 DCTASK FILE CODE 4 PDC15FC EQU /60 X $ PX:C EQU 1 IF 1 INTERRUPT LOGGING n PLOGG EQU 0 P* * PTIMPOL EQU 600 POLL TIMEOUT VALUE DK * PX:E EQU 1 STATUS AND RVI HANDLING IF=1
0x226f68…2270fc Dummy {f00=0x0122, f01=0x0190, f02=»U 252 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 : * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING L PSPECP EQU 0 z , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU 1 * PX:K EQU 0
0x2270fc…227290 Dummy {f00=0x0122, f01=0x0190, f02=» = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 & PX:N EQU /02 : P IFT P6805=0 N , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER b P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O EQU 0 , PIBMCHR E
0x227290…227424 Dummy {f00=0x0122, f01=0x0190, f02=»ON PACKAGE, IF NOT = 0 v PEM3270 EQU 1 PX:R EQU 1000 2 P DK2 F * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION V , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKING WITH A MAI
0x227424…2275b8 Dummy {f00=0x0122, f01=0x0190, f02=»ING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ $ < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ @ P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ P*
0x2275b8…22774c Dummy {f00=0x0122, f01=0x018e, f02=»***************************************** P* 2 . P* A PROGRAM VERSION USING TOSS MMU PAGING < * P* IS OBTAINED BY SETTING MMUPAG EQU 1. n P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2 P XIF
0x22774c…2278e0 Dummy {f00=0x0122, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. > P* p PCPU852 EQU 0 z P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P E
0x2278e0…227a74 (2, 289) Dummy {f00=0x0122, f01=0x018e, f02=» PSTART EQU DWTDRD P XIF P* , P IFT MMUPAG=1 6 PSTART EQU DWTDRD+4 L P XIF f P* r 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS | . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE
0x227a74…227c08 Dummy {f00=0x0122, f01=0x0190, f02=» j , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* 8 P EJECT B P* P P* REQUEST HANDLING Z P* t P* ~ P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATU
0x227c08…227d9c Dummy {f00=0x0122, f01=0x0190, f02=»0 ON- / OFFLINESWITCH * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS L $ PDCWRQ DATA 0 WRITE REQUEST QUEUE p , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P EJECT P* P* DC TASK ADDRESS BLOCK P* $
0x227d9c…227f30 Dummy {f00=0x0122, f01=0x0190, f02=»ORT ROUTINE ADDRESS $ P DATA DCRBUF REC. BUFFER ANCHOR P* D P* DRIVER ADDRESS BLOCK N P* l P DATA BUFLEN MMU BUFFER SIZE v P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT
0x227f30…2280c4 Dummy {f00=0x0122, f01=0x018e, f02=» " P RES 1 AND FOR TRANSFER PARAM PSTB2 RES 1 * P < P IFT SPEED=1 D PLSPEED EQU /0200 X P XIF p P IFT SPEED=0 | PLSPEED EQU 0 P XIF P EJECT P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCAC
0x2280c4…228258 Dummy {f00=0x0122, f01=0x0190, f02=» l P XIF P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC ( P SUK A7,/06-/02 J P RF(Z) DCWR b P SUK A7,/37-/06 v $ P RF(Z) DCTP TRANSFER PARAMETERS P IFF STAT=0 P SUK A7,/38-/37 P RF(Z) DCSS SET STATUS P SUK A7,
0x228258…2283ec Dummy {f00=0x0122, f01=0x0190, f02=»T REQUEST TIMER P XIF P RF DCA100 $ P EJECT 6 P* D P* N P* ACTIVATION FROM DCTASK X P* x P* PDCACTD EQU * $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG AN
0x2283ec…228580 Dummy {f00=0x0122, f01=0x0190, f02=»ERS t P PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER 6 P* X P* b P* READ FROM DCTASK l P* P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS
0x228580…228714 (2, 290) Dummy {f00=0x0123, f01=0x0190, f02=»O TO DISPATCHER P IFT EM3270=1 =4 P EJECT 2 . P***************************************** @ P* r P* ANY MESSAGE ORDER | P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P
0x228714…2288a8 Dummy {f00=0x0123, f01=0x0190, f02=»ETERS P* P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS " : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES d P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT COD
0x2288a8…228a3c Dummy {f00=0x0123, f01=0x0190, f02=» P SLL A2,8 PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV * P ANK A3,/FF R ( P LC A2,TASCII,A3 TRANSLATE TO ASCII f P XIF ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDR
0x228a3c…228bd0 Dummy {f00=0x0123, f01=0x0190, f02=»K DWT ??? | 2 P RF(E) DCTP30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER H * P CWK A1,DC:END TABLE ALREADY FULL ???? v & P ABL(E) DISIOE YES!! REQUEST ERROR P EJECT P P PDCTP20 EQU * " P LD A4,D
0x228bd0…228d64 Dummy {f00=0x0123, f01=0x0190, f02=»RIES CHECKED?? =3 | * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 H P RF(E) DCTP30 YES!! =3 j " P RB DCTP22 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P
0x228d64…228ef8 Dummy {f00=0x0123, f01=0x0190, f02=» END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE $ P XIF P PDCTP30 EQU * P SUR A1,A1 RETURN CODE ::= 0 p PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P* P* P* WR
0x228ef8…22908c Dummy {f00=0x0123, f01=0x0190, f02=»QU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH " " P CWK A1,BUFLEN ILLEGAL LENGTH? J P RF(G) IL:LEN YES!! p P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P*
0x22908c…229220 Dummy {f00=0x0123, f01=0x0190, f02=»QU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE , " P RF(Z) DCRD10 NOTHING IN QUEUE ^ P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE
0x229220…2293b4 (2, 291) Dummy {f00=0x0123, f01=0x0190, f02=»RTN P $ PDCRD10 CF A15,TIMERE START TIMER P RB DCRTN < P EJECT N P* P* f P* SET STATUS p P* P* P IFF STAT=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P
0x2293b4…229548 Dummy {f00=0x0123, f01=0x0190, f02=»A1,DWTST,A6 P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT & PDCSS30 EQU * R , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE f P LDK A1,4 SET DE P RB DCSS10 P XIF P EJECT P P* " P* SET REQUEST TIMEOUT VALU
0x229548…2296dc Dummy {f00=0x0123, f01=0x0190, f02=» RB DCTP30 TENDIO & DISPATCH P $ P* , ( P* ILLEGAL APPLICATION BUFFER SIZE 6 P* b P l 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH t P ABL DISEND COMPLETE REQUEST P EJECT P* P* P* P* TIMER
0x2296dc…229870 Dummy {f00=0x0123, f01=0x0190, f02=»WTTIM,A6 GET REQUEST TIMEOUT VALUE P RF(Z) TIME10 NO TIMING ! * P ST A2,TIMERR ! J P CF A15,SETIME ! ` P DATA TOUTRE ! v PTIMERR DATA 0 ! ( P ST A4,DWTTP,A6 STORE TIMER POINTER ! PTIME10 EQU * ! P RF GBUF10 RETURN ! P* ! P* TI
0x229870…229a04 Dummy {f00=0x0123, f01=0x018e, f02=»DICATE TIME OUT ! $ PTOUTR2 RB ENDIO COMPLETE REQUEST " P* " @ P* WRITE TIMER=TIMWR " J P* " f PTIMEWR LDR A1,A6 " p . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE " P RB(Z) TIME10 NO TIMING " P ST A2,TIMWR " P CF A15,SETIME " P DAT
0x229a04…229b98 Dummy {f00=0x0123, f01=0x0190, f02=» " PTOUTWR EQU * # P LDR A6,A1 FETCH DWT # P CM DWTTP,A6 # 8 * P CF A15,REMOVW REMOVE FROM WRITE QUEUE # L P* # z & P* THIS INSTRUCTION DOES NOT BELONG # P* TO THE STANDARD INTERFACE # P LD A2,FDWTUT # P CWR A2,A6 # * P RB(NE) TOUTR1
0x229b98…229d2c Dummy {f00=0x0123, f01=0x0190, f02=»CT # P* $ P* $ P* STOP REQUEST TIMING $ P* $ < & P* REMAINING TIME IS RETURNED IN A2 $ F P* $ p P* $ z PCTIME EQU * $ & P LD A2,DWTTP,A6 GET TIMER POINTER $ P RF(Z) CTIM10 NOT RUNNING $ P LDR* A2,A2 $ " P NGR A2,A2 GET R
0x229d2c…229ec0 Dummy {f00=0x0123, f01=0x0190, f02=»* GET RECEIVE BUFFER $ P* % $ P* CALLING SEQUENCE: CF A15,GRBUF % & P* A4=0 IF NO BUFFER IS FREE % N & P* ELSE A4 CONTAINS BUFFER ADDRESS % r P* A2 AND A3 ARE DESTROYED % P* % P* % ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS % PGBUF INH %
0x229ec0…22a054 (2, 292) Dummy {f00=0x0123, f01=0x0190, f02=» ADKL A15,4 ADJUST STACK POINTER % P ABR* A15 RETURN TO CALLER & ( P EJECT & J P* & X P* & b ( P* INSERT DWT IN WRITE REQUEST QUEUE & l P* & P* A2,A3,A4 DESTROYED & P* A6=DWT & P* & ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR & PINSW
0x22a054…22a1e8 Dummy {f00=0x0123, f01=0x018e, f02=» A4,A6 & P STR A4,A2 INSERT IN QUEUE ' " P CMR A4 INDICATE END OF QUEUE ' 0 P RB GBUF10 RETURN ' V P* ' p P* ' z * P* REMOVE DWT FROM WRITE REQUEST QUEUE ' P* ' P* A2,A3,A4 DESTROYED ' P* A6=DWT ' P* ' * PREMOVW LDKL A2,DCWRQ G
0x22a1e8…22a37c Dummy {f00=0x0123, f01=0x0190, f02=» ' ~ & P RB(Z) GBUF10 NOT ON QUEUE: RETURN ( P CWR A3,A4 ( 2 P RF(E) REM15 ( D P LDR A2,A3 GET NEXT ( X P RB REM10 ( t PREM15 LDR* A3,A4 REMOVE ( P STR A3,A2 ( P RB GBUF10 RETURN ( P EJECT ( P* ( P* ( P* INSERT DWT IN STAT
0x22a37c…22a510 Dummy {f00=0x0123, f01=0x018e, f02=» ( l P LDK A4,DWTSQ ) P RB INSWQ2 ) P* ) 0 P* ) : " P* REMOVE DWT FROM STATUS QUEUE ) D P* ) j P* A2,A3,A4 DESTROYED ) t P* A6=DWT ) P* ) * PREMOVS LDKL A2,DCSTQ GET QUEUE ANCHOR ) P LDK A4,DWTSQ ) P RB REM06 ) P XIF )
0x22a510…22a6a4 Dummy {f00=0x0123, f01=0x0190, f02=» P* * PQRBUF EQU * * P IFT MESPAS=1 * " ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT * 8 P XIF * d P IFT MESPAS=0 * p $ P LDR A2,A6 QUEUE ON TERMINAL DWT * P XIF * , P ADK A2,DWTRQ BEGINNING OF RECEIVE QUEUE * PQR100 EQU * * P LDR* A3,A
0x22a6a4…22a838 Dummy {f00=0x0123, f01=0x0190, f02=»INDICATE END OF QUEUE * P RTN A5 + P EJECT + . P* + < P* + F 2 P* CHECK IF UNEXPECTED MESSAGE OR STATUS CHANGE + P P* + 4 P* REGISTERS A1,A2,A3,A4,A6 AND A8 ARE DESTROYED + P* + PCKMESS LDKL A6,DW1500 + P LD A1,DWTST,A6 + P
0x22a838…22a9cc Dummy {f00=0x0123, f01=0x0190, f02=»DDR TO A8 + z * P LD A3,DWTRQ,A6 A3=ADDR TO READ QUEUE , " P RF(Z) CKM200 NO READ IN QUEUE , @ P , f P , n , P LDR* A2,A3 A2=ADDR TO NEXT READ BUFFER , v . P ST A2,DWTRQ,A6 STORE THIS ADDR INTO QUEUE , " P ADK A3,6 MOVE POINTER TO TEXT , & P DONT DE
0x22a9cc…22ab60 Dummy {f00=0x0123, f01=0x0190, f02=»,A8 STORE LINE DEVICE ADDRESS , P - & P LDK A1,0 RESET RETURN CODE - . & P LDR A4,A3 RECEIVE BUFFER ADDRESS - R , P CF A15,DC:MIN MOVE DATA TO USER BUFFER - | * PCKM110 ADKL A15,4 ADJUST STACK POINTER - P ABR* A15 RETURN - 8 PCKM200 LD A1,DCSTCU NO
0x22ab60…22acf4 (2, 293) Dummy {f00=0x0123, f01=0x0190, f02=» CKM110 NO CHANGE OF STATUS - * P ORKL A1,/2000 INDICATE STATUS CHANGE . $ 0 P CF A15,TENDIO COMPLETE READ GENERAL REQUEST . R P RB CKM110 . P EJECT . P . @ P************************************************************ . P* . P* ABORT R
0x22acf4…22ae88 Dummy {f00=0x0123, f01=0x0190, f02=» . r P CM* DWTTP,A6 KILL TIMER / P CM DWTTP,A6 / ( P / < $ PAB:10 LD A1,DWTOR,A6 ORDER CODE / D P SUK A1,2 / l * P RF(Z) AB:RTN READ REQUEST. NO ACTION / ~ P SUK A1,4 / . P RF(NZ) AB:RTN NO ACTION IF NOT READ/WRITE / P / . P CF A15,REMOVW R
0x22ae88…22b01c Dummy {f00=0x0123, f01=0x0190, f02=»CK RESET ACK EXPECTED / P CM FDWTUT RESET WRITING DWT 0 P 0 B PAB:RTN EQU * 0 J P IFT CPU852=1 0 ^ P ADKL A15,4 0 t $ P ABR* A15 RETURN IN INHIBIT MODE 0 P XIF 0 P IFF CPU852=1 0 P RTN A15 0 P XIF 0 P EJECT 0 P 0 P EJE
0x22b01c…22b1b0 Dummy {f00=0x0123, f01=0x0190, f02=»G SEQUENCE: CF A15,LDREG 0 P* 1 P* 1 * PSTREG ST A3,LCA3 1 4 P ST A4,LCA4 1 L P ST A5,LCA5 1 ` P ST A6,LCA6 1 t P ST A7,LCA7 1 P ST A8,LCA8 1 P RF RTNA15 RETURN 1 P EJECT 1 PLDREG LDKL A3,0 1 PLCA3 EQU *-2 1 P LDK
0x22b1b0…22b344 Dummy {f00=0x0123, f01=0x0190, f02=» *-2 1 P LDKL A8,0 2 PLCA8 EQU *-2 2 PRTNA15 EQU * 2 2 P ADKL A15,4 2 F P ABR* A15 2 Z P EJECT 2 l P* 2 z P* 2 P* TIMER VALUES 2 P* 2 P* 2 * PTIMPRO EQU 90 PROCEDURE TIMER 9 SEC DK 2 " PTIMNAK EQU 3 DELAY FOR NAK DK 2
0x22b344…22b4d8 Dummy {f00=0x0123, f01=0x0190, f02=» 2 PETX EQU /03 3 PETB EQU /17 3 PITB EQU /1F 3 0 PSOH EQU /01 3 D PENQ EQU /05 3 X PDLE EQU /10 3 l PEOT EQU /04 3 PNAK EQU /15 3 PESC EQU /1B 3 PSBA EQU /11 3 PGP EQU /22 3 PRDBCOM EQU /32 3 PRDMCOM EQU /36 3
0x22b4d8…22b66c Dummy {f00=0x0123, f01=0x0190, f02=»0 3 PWACK EQU /3B 4 P XIF 4 P IFT CODE=0 4 * P IFT MSV1=1 4 > 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE 4 R P XIF 4 P IFT CODE=1 4 PPAR EQU /00 4 PWACK EQU /2C 4 PRVI EQU XRVI DK 4 PACK0 EQU /18 4 PACK1 EQU /2F 4
0x22b66c…22b800 Dummy {f00=0x0123, f01=0x0190, f02=» CURRENT DWT FOR RECEPTION 4 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 5 " PXACK DATA 0 ACK EXPECTED 5 T PXSEL DATA 0 SELECTED 5 t PXETX DATA 0 ETX SENT 5 2 PXSTA DATA 0 STATUS SENT / MESSAGE INPUT RESULT 5 " PXRB DATA 0 READ BUFFER SWITCH 5 P
0x22b800…22b994 (2, 294) Dummy {f00=0x0124, f01=0x0190, f02=»NG BUFFER ADDRESS 5 ~ & PFECBRL RES 1 WRITING BUFFER LENGTH 6 PFBAX DATA 0 BUFFER INDEX 6 D 0 PFBLST DATA 0 START OF LAST TRANSMITTED BLOCK 6 d $ PDCSTQ DATA 0 STATUS QUEUE ANCHOR 6 . PDCTPP DATA 0 POINTER FOR PROCEDURE TIMING 6 , PRESEND DATA 0 CONTROL
0x22b994…22bb28 Dummy {f00=0x0124, f01=0x0190, f02=» P* 7 P IFF STAT=0 7 . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 7 " P* 7 T P* 7 ^ P DATA /4248 7 h P DATA /4242 7 | P* 7 2 PNOIR EQU /20 S/S 1 : NO INTERVENTION REQUIRED 7 , PIR EQU /26 S/S 1 : INTERVENTION REQUIRED 7 P XIF 7
0x22bb28…22bcbc Dummy {f00=0x0124, f01=0x0190, f02=» MASTER SIDE 7 z P* 8 P* 8 P IFT P6805=1 SALCUZ 8 ( , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ 8 D P XIF SALCUZ 8 t PBRM EQU * 8 P LDKL A5,STB LOAD STACKBASE 8 P IFT P6805=0 SALCUZ 8 2 P CF A5,HALTIN HALT RECEIVER AND UPDATE STATU
0x22bcbc…22be50 Dummy {f00=0x0124, f01=0x0190, f02=»M010 EQU * 8 P IFT CODE+P6805=0 SALCUZ 9 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN 9 4 P XIF SALCUZ 9 h P IFT P6805=0 SALCUZ 9 ~ P IFT CODE=1 9 4 P LDKL A2,/100+LSPEED+SYNEBC SPECIFY SYN PATTERN 9 P XIF SALCUZ 9 P IFT P6805=0
0x22be50…22bfe4 Dummy {f00=0x0124, f01=0x0190, f02=» A2,/0C SALCUZ 9 * P CIO A2,1,LCUIN START RECEIVER SALCUZ : P LDK A2,SYN SALCUZ : F 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ : b P RB(NA) BRMHLT SALCUZ : P XIF SALCUZ : P IFT CODE+P6805=2 SALCUZ : P LDK A2,0 SALCUZ : * P
0x22bfe4…22c178 Dummy {f00=0x0124, f01=0x0190, f02=») BRMHLT SALCUZ : P XIF SALCUZ ; PBRM100 EQU * ; . $ P CF A5,READP READ ONE CHARACTER ; B P RF(NZ) BRM150 PARITY ERROR ; j P LDR A1,A2 ; P SUK A1,STX ; P RF(Z) BRM300 STX RECEIVED ; P SUK A1,EOT-STX ; P RF(Z) BRM200 EOT RECEIVED
0x22c178…22c30c Dummy {f00=0x0124, f01=0x018e, f02=»NAK-DLE ; P ABL(Z) BRM500 NAK RECEIVED < P IFT MSV1=0 < 4 P LDR A8,A2 < H $ P CF A5,READP READ ONE CHARACTER < Z P RF(NZ) BRM150 PARITY ERROR < P CWR A2,A8 < & P RF(NE) BRM150 INVALID ADDRESSING < P XIF < P LDK A3,0 < P CC A2,D
0x22c30c…22c4a0 Dummy {f00=0x0124, f01=0x0190, f02=» < P CF A5,READP READ 1:ST STA = P RF(NZ) BRM150 PARITY ERROR = * P LDR A8,A2 = N P IFT MSV1=0 = ` P CF A5,READP READ 2:ND STA = t P RF(NZ) BRM150 PARITY ERROR = P CWR A2,A8 = , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE = P XIF = " P
0x22c4a0…22c634 (2, 295) Dummy {f00=0x0124, f01=0x018e, f02=» P SUK A2,ENQ SALCUZ > P XIF SALCUZ > P RF(NZ) BRM150 NOT ENQ > 6 P IFT P6805=0 SALCUZ > T $ P CF A5,READ READ LAST CHARACTER > p P > " P* TRAILING PAD CAN BE CHECKED > P > P CIO A1,0,LCUIN HALT INPUT > P SST A1,LCUIN > P X
0x22c634…22c7c8 Dummy {f00=0x0124, f01=0x0190, f02=» P XIF SALCUZ ? P LDK A1,1 ? P ST A1,CACK LOAD ACK COUNTER ? , P LDR A2,A8 ? P P SUK A3,2 ? b P RF(Z) BRM120 SELECTING ? t P CWK A8,GP ? P ABL(E) GPOLL GENERAL POLL ? P IFT MSV1=1 ? 6 P CF A5,FINTEP CHECK IF STA PRESENT (POLL ADD
0x22c7c8…22c95c Dummy {f00=0x0124, f01=0x0190, f02=»BL(NZ) SPOLL SPECIFIC POLL ? P RB BRM INVALID POLL @ " PBRM120 EQU * @ > & P CF A5,FINTER CHECK IF STA PRESENT @ R P LDR A6,A3 LOAD DWT TO A6 @ | P RF(NZ) BRM130 STA FOUND @ P IFT MSV1=0 @ $ P LDKL A6,DW1500 SELECT TO DCTASK @ PBRM130 EQU *
0x22c95c…22caf0 Dummy {f00=0x0124, f01=0x0190, f02=» MARK HOLD TO RESYNCHRONIZE @ P* A $ PBRM150 EQU * A . P ANK A2,/7F A B P SUK A2,/7F A V P RB(Z) BRM RESYNCHRONIZE A j & P CF A5,READ READ ANOTHER CHARACTER A P RB BRM150 A P EJECT A P* A P* A P* EOT HAS BEEN RECEIVED A P
0x22caf0…22cc84 Dummy {f00=0x0124, f01=0x0190, f02=» XIF A P LD A1,XACK B & P RF(Z) BRM220 ACK IS NOT EXPECTED B " P LD A6,FDWTUT GET WRITING DWT B J P RF(Z) BRM210 NO ONE WRITING B p P LDK A1,2 SET RC=2 B ( P CF A5,CWRITE COMPLETE WRITE REQUEST B PBRM210 EQU * B " P CM XACK RESET 'ACK EXPECT
0x22cc84…22ce18 Dummy {f00=0x0124, f01=0x0190, f02=»VED B | P* C P* C PBRM300 EQU * C P CF A5,HPTIM C 4 P LD A1,XSEL C H P RF(Z) BRM315 NOT SELECTED C P LD A1,DCRBUF C ~ ( P*********************CHAINED COMMAND C & P RB(Z) BRM150 NO BUFFER AVAILABLE C P********************* C P
0x22ce18…22cfac Dummy {f00=0x0124, f01=0x0190, f02=»NDICATE 'INVALID MESSAGE' C PBRM312 EQU * D " P CF A5,TRNAK SEND NAK D 6 P ABL BRM D T PBRM315 EQU * D d P IFT RCOM=1 D x P LD A1,XACK D & P RF(Z) BRM316 ACK IS NOT EXPECTED D P LD A1,DCRBUF D & P RF(Z) BRM316 NO BUFFER AVAILABLE D "
0x22cfac…22d140 Dummy {f00=0x0124, f01=0x0190, f02=» RCOM=1 D , 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 Z P CM CACK PRESET ACK-1 =7 E P RB BRM305 READ THE MESSAGE E P XIF E ( PBRM316 CF A5,READ READ ONE CHARACTER E P IFF P
0x22d140…22d2d4 (2, 296) Dummy {f00=0x0124, f01=0x0190, f02=»312 FORWARD ABORT SEQUENCE E P RB BRM220 F " PBRM320 EQU * F 4 P IM XSTA INDICATE MESSAGE OK F H $ P LD A4,DCRBUF GET BUFFER ADDRESS F l P ADK A4,6 F P CW A4,FBLST F " P RF(NE) BRM325 NOT FIRST BLOCK F P IFF RCOM=0 F P LDK A1,ESC F P
0x22d2d4…22d468 Dummy {f00=0x0124, f01=0x0190, f02=»BCOM F ( P RF(Z) RDBUF READ MODIFIED RECEIVED G P SUK A1,RDMCOM-RDBCOM G 8 & P RF(Z) RDMOD READ BUFFER RECEIVED G V P XIF G PBRM325 EQU * G P SUK A7,1 G & P RF(Z) BRM340 MESSAGE ENDED BY ETB G P CM FBAX G * P CF A15,GRBUF ALLOCATE RECEI
0x22d468…22d5fc Dummy {f00=0x0124, f01=0x0190, f02=»COM=1 G P LDR* A2,A6 H P LC A2,TEBCDIC,A2 H " P LD A1,DCRBUF H < P RF(Z) BRM326 H R P ST A2,+4,A1 H h P XIF H | PBRM326 EQU * H P CWK A6,DW1500 H , P RF(E) BRM330 MESSAGE IS MENT FOR DCTASK H P LD A2,DWTST,A6 GET STATUS H P RF(
0x22d5fc…22d790 Dummy {f00=0x0124, f01=0x0190, f02=»4 H P LDK A2,2 I P CW A2,DWTOR,A6 I " P RF(NE) BRM330 NO READ REQUEST I 4 PBRM327 EQU * I Z P LDK A1,0 SET RC=0 I n $ P LD A8,DWTECB,A6 GET ECB ADDRESS I P LD A3,-4,A4 GET LENGTH I * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH I & P CF A15,CT
0x22d790…22d924 Dummy {f00=0x0124, f01=0x018e, f02=»IT SET IN CCC/WCC I v P* J P* J $ P IFT STAT=1 J . P LC A2,+2,A4 GET WCC/CCC J B P ANK A2,/FF J b P LC A2,TEBCDI,A2 TRANSLATE J v P ANK A2,8 J P RF(Z) BRM328 J P LD A2,DWTST,A6 GET STATUS J P ORK A2,/A J P ST A2,DWTST,A6 J
0x22d924…22dab8 Dummy {f00=0x0124, f01=0x0190, f02=» J f & P SUK A4,6 ADJUST BUFFER ADDRESS =4 K ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 K 2 P RF BRM32A =4 K ^ P XIF =4 K t PBRM329 EQU * =4 K P K P LDK A1,0 RESET RETURN CODE K & P CF A15,DC:MIN MOVE TO USER BUFFER K P RF BRM345 K PBRM3
0x22dab8…22dc4c Dummy {f00=0x0124, f01=0x0190, f02=»4 K P LD A1,DWTST,A6 STATUS =4 L P RF(N) BRM335 NO REQUEST =4 L , P LD A1,DWTOR,A6 ORDER =4 L P , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 L p & P CF A15,TENDIO COMPLETE REQUEST =4 L PBRM335 EQU * =4 L P XIF =4 L P SUK A4,6 GET BUFFER
0x22dc4c…22dde0 Dummy {f00=0x0124, f01=0x0190, f02=»RACK SEND ACK 0/1 L P ABL BRM M PBRM345 EQU * M * P IFT STAT=1 M > P LD A1,DWTST,A6 M R P ANK A1,8 M j $ P RB(Z) BRM340 ACK SHOULD BE SENT M | P CF A5,TRWACK SEND WACK M P RF BRM410 M P XIF M P IFF STAT=1 M P RB BRM340 M P
0x22dde0…22df74 (2, 297) Dummy {f00=0x0124, f01=0x0190, f02=»BUF EQU * READ BUFFER COMMAND M PRDMOD EQU * N & " P CM XSEL RESET SELECT EXPECTED N : 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL N ` $ P LD A4,DWTBUF,A6 BUFFER ADDRESS N $ P SUK A4,2 SDJUST BUFFER ADDRESS N " P LDKL A3,1922 REQUESTED LENGTH N
0x22df74…22e108 Dummy {f00=0x0124, f01=0x018e, f02=» LD A1,CRDBUF INCREMENT READ BUFFER DK N P ADK A1,1 COUNTER DK O . P ST A1,CRDBUF DK O J P DE O d P ABL POL127 O r P XIF O P* O P* O P* ENQ HAS BEEN RECEIVED O P* O P* O PBRM400 EQU * O & P CF A5,HPTIM STOP PROCEDUR
0x22e108…22e29c Dummy {f00=0x0124, f01=0x0190, f02=» O p . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE P PBRM410 EQU * P : P ABL BRM P N P EJECT P ^ P* P l P* P v 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 R
0x22e29c…22e430 Dummy {f00=0x0124, f01=0x0190, f02=» P P LDK A1,0 Q P CIO A1,0,LCUIN DK Q P SST A1,LCUIN DK Q 6 P CF A15,STREG DK Q P P CF A15,SETIME DK Q j P DATA BRM520,TIMNAK DK Q P ABL TDISP DK Q PBRM520 EQU * DK Q P CF A15,LDREG DK Q P DE Q " P LD A6,FDWTUT
0x22e430…22e5c4 Dummy {f00=0x0124, f01=0x0190, f02=»BLST GET START POINT FOR LAST BLOCK Q & P SU A1,FECBBA COMPUTE BUFFER INDEX R , P ST A1,FBAX R V P ABL POL130 R j P* R ~ P* R P* DLE HAS BEEN RECEIVED R P* R P* R PBRM600 EQU * R & P CF A5,HPTIM STOP PROCEDURE TIMER R P LD
0x22e5c4…22e758 Dummy {f00=0x0124, f01=0x018e, f02=» R P XIF =8 S P IFT P6805=1 =8 S P CWK A2,ACK0 =8 S 2 P XIF =8 S J P RF(NE) BRM620 S P* S r P* ACK , 0 RECEIVED S | P* S P LD A1,CACK GET ACKCOUNTER S P RF(Z) BRM630 ACK,0 EXPECTED S PBRM610 EQU * S P CF A5,TRENQ S
0x22e758…22e8ec Dummy {f00=0x0124, f01=0x0190, f02=» P* T P* ACK , 1 RECEIVED T P* T ( P LD A1,CACK GET ACK COUNTER T 2 $ P RB(Z) BRM610 ACK,1 NOT EXPECTED T V PBRM630 EQU * T ~ P LD A1,XETX T P RF(Z) BRM640 ETX NOT SENT T P EJECT T P* T , P* ACK HAS BEEN RECEIVED TO AN ETX BLOCK
0x22e8ec…22ea80 Dummy {f00=0x0124, f01=0x018e, f02=»RANSMITTED T p P XIF U ( P CF A5,CWRITE COMPLETE WRITE REQUEST U PBRM636 EQU * U J P CF A5,TREOT SEND EOT U ^ P IFT RCOM=1 U | P U P CM XRB RESET READ BUFFER U P XIF U P RB BRM410 U PBRM640 EQU * U P LDK A1,1 U & P XRS A1,CA
0x22ea80…22ec14 (2, 298) Dummy {f00=0x0125, f01=0x0190, f02=» P IFT P6805=1 =8 V P CWK A2,RVI =8 V P XIF =8 V 4 ( P RB(NE) BRM610 INVALID DLE SEQUENCE V F " P CM XACK RESET 'EXPECTING ACK' V r P LD A1,XETX V $ P RF(NZ) BRM660 ETX HAS BEEN SENT V P LDK A1,2 SET RC=2 V P RB BRM635 V PBRM660 E
0x22ec14…22eda8 Dummy {f00=0x0125, f01=0x018e, f02=»TED V v P* W P* W PBRM670 EQU * W " P LD A6,FDWTUT GET DWT ADDRESS W 4 , P CF A15,REMOVS REMOVE FROM STATUS QUEUE W Z P CM XSTA CLEAR 'STATUS SENT' W " P CM XACK CLEAR 'ACK EXPECTED' W P LD A1,DWTST,A6 GET STATUS W P ANK A1,4 W P
0x22eda8…22ef3c Dummy {f00=0x0125, f01=0x0190, f02=» W P* X P* SELECT HAS BEEN RECEIVED X P* X 4 P* X > PSELECT EQU * X H P LD A1,XACK =5 X * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 X t P IFF STAT=0 X P LD A1,DWTST,A6 GET STATUS X P LDR A3,A1 X P ANK A1,1 X $ P RF(Z) SEL11
0x22ef3c…22f0d0 Dummy {f00=0x0125, f01=0x0190, f02=» P ABL BRM Y PSEL110 EQU * Y P IFT STAT+NOWACK=1 Y ( P ANK A3,8 Y B P RF(NZ) SEL115 BUSY Y T P XIF Y p P IFT STAT+NOWACK=2 Y | P ANK A3,8 Y " P RF(Z) SEL111 DEVICE NOT BUSY Y P CF A5,TRWACK TRANSMIT WACK Y P ABL BRM Y PSEL111
0x22f0d0…22f264 Dummy {f00=0x0125, f01=0x0190, f02=»F A5,TRWACK SEND WACK Y P XIF Z P RB SEL100 Z * PSEL120 EQU * Z < , P CF A5,PRREC PREPARE FOR TEXT RECEPTION Z P P CF A5,TRACK SEND ACK,0 Z P RB SEL100 Z P EJECT Z P* Z P* Z P* PREPARE FOR TEXT RECEPTION Z P* Z P* Z
0x22f264…22f3f8 Dummy {f00=0x0125, f01=0x0190, f02=»ATE STA TO EBCDIC Z x P XIF [ $ P ST A2,+4,A1 SAVE STA IN BUFFER [ & P IM XSTA [ N " P ST A6,FDWTIN STORE INPUT DWT [ ^ P RTN A5 [ P EJECT [ P* [ P* [ $ P* GENERAL POLL HAS BEEN RECEIVED [ P* [ P* [ PGPOLL EQU * [ P L
0x22f3f8…22f58c Dummy {f00=0x0125, f01=0x0190, f02=» =5 [ n " P ABL BRM WAIT FOR RESPONSE =5 PPOL020 EQU * =5 2 " P CF A5,CPTIM CHECK POLL TIMER J P IFF STAT=0 p P LD A6,DCSTQ & P RF(Z) POL110 NO STATUS TO BE SENT " P SUK A6,DWTSQ GET DWT ADDRESS PPOL050 EQU * P CF A5,TRS
0x22f58c…22f720 Dummy {f00=0x0125, f01=0x0190, f02=»POL110 P XIF ] PPOL100 EQU * ] P ABL BRM ] . PPOL110 EQU * ] > P LD A6,DCWRQ ] R " P RF(NZ) POL120 WRITE ON QUEUE ] f PPOL115 EQU * ] P CF A5,TREOT SEND EOT ] P RB POL100 ] PPOL120 EQU * ] " P SUK A6,DWTWQ GET DWT ADDRESS ]
0x22f720…22f8b4 (2, 299) Dummy {f00=0x0125, f01=0x0190, f02=» ] P ST A8,FECB SAVE ECB ADDRESS ^ P ST A6,FDWTUT SAVE A6 ^ , P ^ J P IFF MMUPAG=0 ^ R $ P LDKL A4,MMUBUF MMU WORK BUFFER ^ h P ST A4,ECBBA,A8 ^ . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ^ P XIF ^ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS
0x22f8b4…22fa48 Dummy {f00=0x0125, f01=0x0190, f02=»FER ^ p P ST A3,FECBRL SAVE LENGTH _ P CM FBAX RESET BUFFER INDEX _ . PPOL130 EQU * _ R P CM XETX RESET 'ETX SENT' _ f P CM XSTA _ P CF A5,TRTEXT SEND ONE BLOCK _ & P CF A5,SPTIM START PROCEDURE TIMER _ P IM XACK SET 'ACK EXPECTED' _
0x22fa48…22fbdc Dummy {f00=0x0125, f01=0x0190, f02=» IFF STAT+SPECP=0 _ P LD A1,XACK =5 ` " P RB(NZ) POL010 ACK EXPECTED =5 ` 2 P LDR A7,A6 SAVE A6 ` X P CF A5,CPTIM CHECK POLLTIMER ` r P LDR A6,A7 RESTORE A6 ` P IFT STAT=1 ` P LD A1,DWTST,A6 GET STATUS ` P ANK A1,7 ` " P RB(NZ) POL0
0x22fbdc…22fd70 Dummy {f00=0x0125, f01=0x0190, f02=»GET ORDER ` P SUK A1,6 a P RB(Z) POL125 WRITE REQUEST a $ P SUK A1,2 a H " P RB(Z) POL125 EXCHANGE REQUEST a Z P XIF a P RB POL115 SEND EOT a P EJECT a P* a P* a 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETED a P*
0x22fd70…22ff04 Dummy {f00=0x0125, f01=0x0190, f02=»,DWTST,A6 a P RF(N) CWR900 NO REQUEST b P LD A2,DWTOR,A6 GET ORDER b 2 P SUK A2,6 b T P RF(Z) CWR100 WRITE REQUEST b f P SUK A2,2 b ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST b P LDR A1,A1 b 2 P RF(NZ) CWR100 TRANSMISSION ERROR, RC NOT ZERO
0x22ff04…230098 Dummy {f00=0x0125, f01=0x0190, f02=» b n P CF A15,CTIME STOP TIMING c P LDR A8,A8 c * P RF(Z) CWR150 c < P ST A2,ECBCW,A8 c R $ P CF A15,TENDIO COMPLETE REQUEST c j PCWR150 EQU * c * P CF A15,REMOVW REMOVE FROM WRITE QUEUE c PCWR200 EQU * c PCWR900 EQU * c " P CM XACK RES
0x230098…23022c Dummy {f00=0x0125, f01=0x0190, f02=»ON EXIT A3 CONTAINS : c ( P* 0 : IF CORRECT ETX BLOCK RECEIVED d 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW d J ( P* 2 : IF CORRECT ETB BLOCK RECEIVED d P* d PRDMESS EQU * d $ P LD A4,DCRBUF GET BUFFER ADDRESS d P ADK A4,6 RESERVE HEAD
0x23022c…2303c0 Dummy {f00=0x0125, f01=0x0190, f02=» d P ST A1,FBAX e PRDM050 EQU * e P AD A4,FBAX ADD BUFFER INDEX e 0 ( P ST A4,FBLST REMEMBER START OF BLOCK e T PRDM075 EQU * e P CM XSTA e P LDK A7,0 RESET LRC e P e P IFT IBMCHR=1 e P LD A1,FBAX e " P RF(NZ) RDM100 NOT FIR
0x2303c0…230554 (2, 300) Dummy {f00=0x0125, f01=0x0190, f02=» TWO CHARACTERS e z P CF A5,READP f P XIF f , PRDM100 EQU * f 8 $ P CF A5,READP READ ONE CHARACTER f L P RF(NZ) RDM120 PARITY ERROR f t PRDM110 EQU * f P CWK A2,ETX f P RF(E) RDM130 ETX RECEIVED f P CWK A2,ETB f P RF(E) RDM160 ETB
0x230554…2306e8 Dummy {f00=0x0125, f01=0x0190, f02=» f b P CWK A2,/FF g $ P RF(E) RDM140 MARK HOLD RECEIVED g P g D P IFT CODE=0 g L P IFT BINTRM=1 g ` P g v P LDR A1,A2 g ~ P SUK A1,DC1+3 g P RF(P) RDM115 NOT DC1-DC3 g P ADK A1,3 g P RF(N) RDM115 NOT DC1-DC3 g P SLL A1,6 g
0x2306e8…23087c Dummy {f00=0x0125, f01=0x018e, f02=»ARACTER g r P ORR A2,A8 h PRDM115 EQU * h " P XIF h 6 P h B P SCR A2,A4 STORE CHARACTER h J P ADK A4,1 INCREMENT POINTER h l $ P IM FBAX INCREMENT BUFFER INDEX h P LD A1,FBAX h P CWK A1,RBUFL+RBUFL h P RB(NG) RDM100 NOT OVERFLOW h
0x23087c…230a10 Dummy {f00=0x0125, f01=0x0190, f02=» h l P SUK A2,/7F i $ P RF(Z) RDM150 MARK HOLD RECEIVED i P RB RDM100 i D P* i V P* ETX RECEIVED i ` P* i v PRDM130 EQU * i $ P LD A1,DCRBUF GET BUFFER ADDRESS i P LD A2,FBAX GET BUFFER INDEX i 2 P ST A2,+2,A1 STORE EFFECTIVE LENGTH IN H
0x230a10…230ba4 Dummy {f00=0x0125, f01=0x0190, f02=»CRC AND CHECK IT i ~ P RF(E) RDM150 CRC WAS OK j P XIF j 8 PRDM140 EQU * j D & P LDK A3,1 INDICATE INVALID MESSAGE j X PRDM150 EQU * j $ P LDR A7,A3 SAVE RESULT REGISTER j P CF A5,HALTIN HALT INPUT j P IFT P6805=1 j " P ORR A7,A1 PARITY ERRO
0x230ba4…230d38 Dummy {f00=0x0125, f01=0x0190, f02=»B(NZ) RDM130 ALREADY INVALID j " P LDK A3,2 INDICATE CORRECT ETB k $ P RB RDM130 k J P* k P* ITB RECEIVED k f P* k | PRDM170 EQU * k P IFF CODE=1 k P CF A5,RDLRC k " P RB(NZ) RDM120 LRC WAS NOT OK k P XIF k P IFT CODE=1 k & P
0x230d38…230ecc Dummy {f00=0x0125, f01=0x0190, f02=»TRANSMIT ACK 0 OR 1 k P* l PTRACK LDK A2,1 l & P LDK A3,ACK1 PRELOAD ACK1 l < & P XRS A2,CACK INCREMENT ACK COUNTER l ^ P RF(NZ) TRDLE l P LDK A3,ACK0 LOAD ACK0 l P RF TRDLE l P* l P* TRANSMIT WACK l P* l PTRWACK LDK A3,
0x230ecc…231060 Dummy {f00=0x0125, f01=0x018e, f02=» XIF l P* m P* TRANSMIT DLE m P* m , PTRDLE LDK A2,DLE LOAD DLE m 6 " P SC A2,RESEND PUT INSAVE AREA m X P SC A3,RESEND+1 m ~ P RF TRREP m P EJECT m P* m P* TRANSMIT NAK m P* m PTRNAK LDK A3,NAK LOAD NAK m P RF TR
0x231060…2311f4 (2, 301) Dummy {f00=0x0125, f01=0x018e, f02=» P* n PTRENQ LDK A3,ENQ LOAD ENQ n P* n 0 ( PTREN10 SC A3,RESEND PUT IN SAVE AREA n : P LDK A2,/FF n f P SC A2,RESEND+1 n z $ PTRREP CF A5,TRSYNC START OUTPUT n & P LC A2,RESEND GET FIRST CHARACTER n P CF A5,WRITEP SEND IT n & P LC A2
0x2311f4…231388 Dummy {f00=0x0125, f01=0x0190, f02=» n P CF A5,WRIT05 o P LDK A2,0 SALCUZ o $ P CIO A2,0,LCUUT STOP TRANSMITTER o 8 P IFT P6805=1 SALCUZ o ` $ P CF A5,READ WAIT FOR END SALCUZ o | P XIF SALCUZ o & P SST A2,LCUUT PERFORM SST AT ONCE o P IFF LOGG=0 o ( P CF A5,LOGSST LO
0x231388…23151c Dummy {f00=0x0125, f01=0x0190, f02=» o PTRTEXT EQU * p P CF A5,TRSYNC START OUTPUT p P IFT TSTREQ=1 p > P* p T P* p ^ P* TEST REQUEST HANDLING p h P* p P* p P LD A4,FBAX p ( P RF(NZ) TRT050 NOT START OF MESSAGE p P p 2 P LD A1,XRB READ BUFFER COMMAND IN PR
0x23151c…2316b0 Dummy {f00=0x0125, f01=0x018e, f02=» RF(NZ) TRT050 NOT TEST REQUEST p P LDK A2,SOH q ( P CF A5,WRITE SEND SOH q < P LDK A7,0 RESET BCC q Z P LDK A2,'%' q v P CF A5,WRITE SEND % q P LDK A2,'/' q P CF A5,WRITE SEND / q P LDK A2,STX q P CF A5,WRITE SEND STX q ( P
0x2316b0…231844 Dummy {f00=0x0125, f01=0x0190, f02=» P ST A2,FBAX r P RF TRT100 r PTRT050 EQU * r * P* r > P* r H P* r R P XIF r P LDK A2,STX r h P CF A5,WRITE SEND STX r | P LDK A7,0 RESET LRC r $ P LD A4,FECBBA GET BUFFER ADDRESS r P AD A4,FBAX ADD BUFFER INDEX r ( P ST A4
0x231844…2319d8 Dummy {f00=0x0125, f01=0x0190, f02=»GET BUFFER INDEX r " P RF(NZ) TRT100 NOT FIRST BLOCK s P LC A2,DW1500+1 GET TCA s > P CF A5,WRITEP SEND TCA s ^ P LDR* A2,A6 GET STA s | P CF A5,WRITEP SEND STA s P IFT IBMCHR=1 s P IFF RCOM=1 s " P LDK A2,/27 SEND ENTER AS AID s P C
0x2319d8…231b6c Dummy {f00=0x0125, f01=0x0190, f02=»FT RCOM=1 s P t & P LD A1,XRB READ BUFFER COMMAND ??? t P RF(Z) TRT070 NO!! t D P t ^ P ******************** t f " P LDK A2,X'2D' AID FOR DISPLAY t PTRT060 CF A5,WRITEP SEND AID t P t $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS t . P CF A5,L
0x231b6c…231d00 Dummy {f00=0x0125, f01=0x0190, f02=»DK A3,2 t PTRT100 EQU * u P LCR A2,A4 GET ONE CHARACTER u $ P ADK A4,1 INCREMENT POINTER u H P ANK A2,/7F u l P IFT RCOM=1 u & P LD A1,XRB READ BUFFER COMMAND ??? u P RF(Z) TRT105 NO!! u P u @ P****************************************
0x231d00…231e94 (2, 302) Dummy {f00=0x0126, f01=0x018e, f02=»******* u h P v & P CWK A2,X'20' ATTRIBUTE CHARACTER v P RF(L) TRT101 YES!!! v B P XIF v ^ P IFT DMRK=1 v j P CWK A2,/7E LINE FEED ? v ~ " P RF(NE) TRT102 NO,GO TO TRT102 v P LDK A2,/0A v PTRT102 EQU * v P CWK A2,/7D END OF MESSAGE ?
0x231e94…232028 Dummy {f00=0x0126, f01=0x0190, f02=» P SUK A2,1 w P XIF w P IFT RCOM=1 w " P RF TRT105 w 6 P w H PTRT101 EQU * w P P w d P LDK A2,SF w l " P CF A5,WRITEP SEND START FIELD w ~ P w ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER w P ANK A2,X'7F' w ( P LDR A1,A2 CONVERT TO IBM
0x232028…2321bc Dummy {f00=0x0126, f01=0x0190, f02=»ALWAYS SET ONE w P LC A2,TASCII,A2 x & P CWK A2,/18 CHECK SPECIAL ATTRIBUT x . P RF(NE) TRT104 x X P LDK A2,/30 x n PTRT104 EQU * x P CF A5,WRITEP SEND ATTRIBUTE x P ADK A3,1 x P RF TRT110 x PTRT105 EQU * x P XIF x P EJECT x
0x2321bc…232350 Dummy {f00=0x0126, f01=0x0190, f02=»REMENT BUFFER INDEX x & P LD A1,FECBRL GET REQUESTED LENGTH y P CW A1,FBAX y F " P RF(NG) TRT130 END OF MESSAGE y Z * P ADK A3,1 INCREMENT CHARACTER COUNTER y P CWK A3,TBLEN y P RB(L) TRT100 NOT FULL BLOCK y P IFT RCOM=1 y , P LDK A1,SBA
0x232350…2324e4 Dummy {f00=0x0126, f01=0x0190, f02=» LCR A2,A4 GET FIRST BYTE AFTER SBA y P ADK A4,1 INREMENT POINTER z , P CF A5,WRITEP SEND IT z N P IM FBAX INCREMENT INDEX z l . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA z P CF A5,WRITEP SEND IT z P IM FBAX INCREMENT INDEX z P XIF z P
0x2324e4…232678 Dummy {f00=0x0126, f01=0x018e, f02=» z ~ P CF A5,WRITEP SEND LRC { P XIF { & P IFT CODE=1 { 2 P LDR A8,A7 SAVE CURRENT CRC { F P LDR A2,A7 { j 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 BYTE 2 { P XIF {
0x232678…23280c Dummy {f00=0x0126, f01=0x018e, f02=» { z P RB TRT120 SEND ETX AND LRC | P EJECT | , P* | : P* | D P* TRANSMIT STATUS MESSAGE | N P* | p P* | z P IFF STAT=0 | PTRSTA EQU * | $ P IM XSTA INDICATE 'STATUS SENT' | P ST A6,FDWTUT SAVE A6 | P CF A5,TRSYNC START OU
0x23280c…2329a0 Dummy {f00=0x0126, f01=0x0190, f02=» P LDK A2,'R' } P CF A5,WRITEP SEND 'R' } P LDK A2,STX } 6 P CF A5,WRITE SEND STX } J P LC A2,DW1500+1 } h P CF A5,WRITEP SEND TCA } P LDR* A2,A6 } P CF A5,WRITEP SEND STA } P LD A1,DWTST,A6 GET STATUS } P ANK A1,/06 MASK FOR S
0x2329a0…232b34 (2, 303) Dummy {f00=0x0126, f01=0x0190, f02=» LD A1,DWTST,A6 GET STATUS } P ANK A1,5 ~ " P RF(Z) TRST10 NOT 'IR' ~ 4 P ANK A1,4 ~ R P RF(NZ) TRST10 NO IR IF DE ~ d P LDK A2,IR ~ PTRST10 EQU * ~ P CF A5,WRITEP SEND S/S 1 ~ P RB TRT130 SEND ETX AND LRC ~ P XIF ~ P EJECT ~
0x232b34…232cc8 Dummy {f00=0x0126, f01=0x0190, f02=»HALT INPUT IF NOT DONE ~ P SST A2,LCUIN PERFORM SST P IFT P6805=0 SALCUZ @ & P CIO A2,1,LCUUT START TRANSMITTER P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , P CIO A2,1,LCUUT START TRAN
0x232cc8…232e5c Dummy {f00=0x0126, f01=0x018e, f02=»TRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * SALCUZ & P LDK A2,SYNEBC SALCUZ B 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ ` P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ P CIO A2,
0x232e5c…232ff0 Dummy {f00=0x0126, f01=0x0190, f02=» " PTRS005 CIO A2,1,LCUUT SALCUZ PTRS010 EQU * * P LDK A2,SYN SALCUZ > 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ Z P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTRS100 LDK A2,SYN P C
0x232ff0…233184 Dummy {f00=0x0126, f01=0x0190, f02=»RUPT ~ P* P* PIH1501 EQU * P ST P,INTSAV 4 P IFT CPU852=1 H 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 RESTORE DC REGS A3 - A8 P INR A
0x233184…233318 Dummy {f00=0x0126, f01=0x0190, f02=» P XIF P IFF CODE=1 P C2 SYNSW $ P RF(NZ) IHLCI2 6 P CWK A2,SYN SKIP SYNS L P RF(E) READ j " PIHLCI2 XRR A7,A2 CALCULATE LRC ~ P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME
0x233318…2334ac Dummy {f00=0x0126, f01=0x018e, f02=»RANSLATE TO ASCII ~ P XIF PIHIN10 RTN A5 & P IFT P6805=0 SALCUZ < PIHIN20 CF A5,SST PERFORM SST X P ABL BRM | P XIF SALCUZ P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P EJECT
0x2334ac…233640 Dummy {f00=0x0126, f01=0x0190, f02=» P CF A15,SAVE8 SAVE A1 - A8 P XIF & P 2 P IFF CPU852=1 : P MSR 8,A15 SAVE A1-A8 =1 P P XIF p * P CF A15,LDREG RESTORE DC REGS A3 - A8 | P RB IHIN10 P EJECT P* P* & P* SST INSTRUCTION AND STATUS CHECK P
0x233640…2337d4 (2, 304) Dummy {f00=0x0126, f01=0x0190, f02=»UT ERROR p , P* BIT 15=MODEM NOT READY P* @ PSST SST A1,LCUIN J P IFT P6805=1 SALCUZ b 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ ~ P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST IN
0x2337d4…233968 Dummy {f00=0x0126, f01=0x0190, f02=»LCUZ P ANK A2,6 SALCUZ P RF(Z) SST100 SALCUZ & P ANK A2,2 SALCUZ D & P RF(NZ) SST050 THROUGH PUT SALCUZ ^ & P LDK A1,1 SET PARITY ERROR SALCUZ P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA T
0x233968…233afc Dummy {f00=0x0126, f01=0x0190, f02=»A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 * P XIF SALCUZ : P IFT P6805=1 SALCUZ P P ANK A1,/21 SALCUZ l P RF(Z) SST200 LSALCUZ 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2
0x233afc…233c90 Dummy {f00=0x0126, f01=0x018e, f02=» CR SALCUZ P ABR* A5 RETURN SALCUZ P XIF SALCUZ 0 P* F P* P P* HALT INPUT Z P* n P* x PHALTIN LDK A1,0 SALCUZ P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK
0x233c90…233e24 Dummy {f00=0x0126, f01=0x0190, f02=» P* P* , P* WRITE FROM OR READ ONE CHARACTER TO A2 P* H P* R PWRITE EQU * P IFT CODE=1 p P ANK A2,/FF P CWK A2,/FF 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC
0x233e24…233fb8 Dummy {f00=0x0126, f01=0x0190, f02=» CODE=1 $ PWRIT10 XRR A7,A2 ACCUMULATE BCC P XIF 8 P IFT CODE=1 D & PWRIT10 CF A5,CRCCAL CALCULATE CRC X P XIF P IFF LOGG=0 & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP
0x233fb8…23414c Dummy {f00=0x0126, f01=0x018e, f02=»0 SALCUZ PWRITEP ANK A2,/FF P ECR A1,A2 , P ORK A2,/80 > PWRI100 SLL A1,1 R P RB(P) WRI100 j P RB(Z) WRITE WRITE P XRK A2,/80 P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P X
0x23414c…2342e0 Dummy {f00=0x0126, f01=0x0190, f02=» PREADP CF A5,READ P IFT CODE+P6805=0 SALCUZ P ECR A1,A2 > PRE100 SLL A1,1 P P RF(Z) RE110 f P RB(NN) RE100 z P XRK A2,/80 P RB RE100 PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ
0x2342e0…234474 (2, 305) Dummy {f00=0x0132, f01=0x018e, f02=»JECT P* < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 P* V $ P* CALLING SEQUENCE: CF A5,FINTER ` P* A2=SUBTERMINAL ADDRESS P* A4 DESTROYED " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 -
0x234474…234608 Dummy {f00=0x0132, f01=0x0190, f02=» P* . PRBYTE DATA 0 IF 1 COMPARE WITH RIGTH BYTE P* @ P* J PFINTEP EQU * T P IFT MSV1=0 h PFINTER EQU * | P XIF P IM RBYTE P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB
0x234608…23479c Dummy {f00=0x0132, f01=0x018e, f02=» ( P RF(E) FINT20 SUBTERMINAL NOT FOUND P LDR* A3,A4 LOAD DWT ADDRESS 0 P IFT MSV1=1 T $ P AD A3,RBYTE CHOOSE ADDRESS TYPE h * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS
0x23479c…234930 Dummy {f00=0x0132, f01=0x0190, f02=» P* P* P* POWER ON FUNCTIONS P* 4 P* > PDC15ON EQU * H P IFT CPU852=1 P CF A15,SAVE8 SAVE A1-A8 r P XIF P P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SE
0x234930…234ac4 Dummy {f00=0x0132, f01=0x018e, f02=»F(E) DRDC06 END OF TABLE P LDR* A6,A1 GET DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE D ( P CF A15,INSSQ INSERT IN STATUS QUEUE x P RB DRDC05 PDRDC06 EQU * P XIF P LDK A2,/40 P ORS A2,DCONOF P CF A15,
0x234ac4…234c58 Dummy {f00=0x0132, f01=0x0190, f02=» h PDRDC20 ABL BRM P EJECT P* , P* POLL TIME OUT 6 P* N ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE X P LDK A2,/40 ( P ST A2,DCONOF INDICATE POLL TIME OUT * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START P
0x234c58…234dec Dummy {f00=0x0132, f01=0x0190, f02=» POLLING x P LDKL A2,-TIMPOL P ST* A2,DCTPGP RESTART TIMER ( * P CF A15,CKMESS CHECK IF STATUS CHANGE L P RTN A5 z P* P* START POLL TIMER P* $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP
0x234dec…234f80 Dummy {f00=0x0132, f01=0x0190, f02=»M EQU * $ P LDR A1,A6 LOAD DWT AS PARAMETER P CF A15,SETIME 8 P DATA PRTOUT,TIMPRO N $ P ST A4,DCTPP SAVE TIMER POINTER j P RTN A5 P* P* PROCEDURE TIMEOUT P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P L
0x234f80…235114 (2, 306) Dummy {f00=0x0132, f01=0x0190, f02=» P CF A5,TRENQ SEND ENQ & P CF A5,SPTIM START PROCEDURE TIMER " PPRT10 ABL BRM L P EJECT b P* p P* STOP PROCEDURE TIMER z P* ( PHPTIM LD A1,DCTPP GET TIMER POINTER P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER
0x235114…2352a8 Dummy {f00=0x0132, f01=0x0190, f02=»A2 = CHARACTER P* A7 = ACCUMULATED CRC P* 4 P* > PCRCCAL EQU * H P ST A1,CRCSAV P ST A2,CRCSAV+2 r P ST A3,CRCSAV+4 P LDK A1,8 PCRC100 LDR A3,A7 P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A
0x2352a8…23543c Dummy {f00=0x0132, f01=0x0190, f02=»V+2 P LD A3,CRCSAV+4 P RTN A5 $ PCRCSAV RES 3 4 P EJECT H P* V P* ` ( P* READ CRC CHARACTERS AND CHECK THEM j P* CR = (E) IF CRC WAS OK P* P* $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP
0x23543c…2355d0 Dummy {f00=0x0132, f01=0x018e, f02=» SKIPPED AGAIN z P LD A2,CRCSAV+2 SAVE IT P SLL A2,8 6 P XRR A2,A8 H P ADK A5,4 Z . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED l P ABR* A5 P XIF P IFT CODE=0 P* & P* RDLRC READ LRC CHARACTER " P*
0x2355d0…235764 Dummy {f00=0x0132, f01=0x0190, f02=» P ANK A7,/7F PLRCEND EQU * P CM SYNSW 0 P ABR* A5 B P R P XIF Z P EJECT f P* t P* ~ " P* DEVICE WORK TABLE FOR DCTASK P* P* PDW1500 EQU * TABLE ENTRY P DATA 0 CU LINE ADDRESS P DATA
0x235764…2358f8 Dummy {f00=0x0132, f01=0x018e, f02=» | $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TASK QUEUE 0 P* J P IFT MMUPAG=1 T P DATA 0 USER ECB ADDRESS j P DATA DC:ECB MMU ECB ADDRESS P XIF P* P DATA 0 TIMER POINTER ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE
0x2358f8…235a8c Dummy {f00=0x0132, f01=0x018e, f02=» f P DATA 0 CURSOR ADDRESS " P DATA 0 REQUEST TIMEOUT VALUE & P* L P IFT MMUPAG=1 V PDC:ECB EQU * MMU ECB l P DATA 0,0,0,0,0,0 P XIF P* P EJECT P* P* P* DC RECEIVE BUFFER POOL P* PRLIN
0x235a8c…235c20 Dummy {f00=0x0132, f01=0x0190, f02=» P RES RBUFL+3 P IFF RBUFNR=3 P DATA *+RLINK . P RES RBUFL+3 D P IFF RBUFNR=4 X P DATA *+RLINK n P RES RBUFL+3 P XIF P DATA *+RLINK P RES RBUFL+3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P I
0x235c20…235db4 (2, 307) Dummy {f00=0x0133, f01=0x0190, f02=» t P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 0 P ORKL A2,/F000 J P RF LOG10 ` PLOGOUT ST A2,SAVE2 r P ORKL A2,/0F00 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3
0x235db4…235f48 Dummy {f00=0x0133, f01=0x0190, f02=»GEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 . PLOGE10 RTN A5 B P EJECT X P* f P* p PLOGPNT DATA LOGSTA z PLOGSTA EQU * P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P*
0x235f48…2360dc Dummy {f00=0x0133, f01=0x0190, f02=» L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* ^ > P********************************************************** h P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'
0x2360dc…236270 Dummy {f00=0x0133, f01=0x0190, f02=» ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER 0 P RTN A5 RETURN X P* n P* x P* P EJECT P P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /0
0x236270…236404 Dummy {f00=0x0133, f01=0x0190, f02=»/18-/1F r * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F > ( P DATA /3031,/3233,/3435,/3637 /30-37 l ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P EJECT P PDC:IN DATA DC:TAB+2
0x236404…236598 Dummy {f00=0x0133, f01=0x4054, f02=»0,0,0,0,0,0,0,0,0,0 ~ PDC:END EQU * P* 0 P* : P END D@ PF,/3E3F /28-/2F > ( P DATA /3031,/3233,/3435,/3637 /30-37 l ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P DE P XIF P EJECT P PDC:IN DATA DC:TAB+2
0x236598…23672c Dummy {f00=0x0133, f01=0x2008, f02=» H P X ` h p x
0x23672c…2368c0 Dummy {f00=0x0133, f01=0x0000, f02=»
0x2368c0…236a54 (2, 308) Opaque[0x194]
0x236a54…236be8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24e8, f03=0x0000}
0x236a54…236be8 IdxSect {
0x236a54…236be8 f00 = 0x0127 // 0x236a54 @0x0
0x236a54…236be8 f01 = 0x0004 // 0x236a56 @0x2
0x236a54…236be8 gno = [ // 0x236a58 @0x4
0x236a54…236be8 [0x00]: C0x0127.0x1.0
0x236a54…236be8 [0x01]: C0x0127.0x2.0
0x236a54…236be8 ]
0x236a54…236be8 }
0x236be8…236d7c Dummy {f00=0x0127, f01=0x018e, f02=» 0 P IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 P 8 P* @ 4 P************************************************ J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x236d7c…236f10 Dummy {f00=0x0127, f01=0x018e, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P* : P* VERSION FOR SCAND
0x236f10…2370a4 Dummy {f00=0x0127, f01=0x0190, f02=» P* 7C 5C P* 00 7C P* 5A 24 $ P* 6A 40 4 P EJECT D P* R P* 2 P* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII f P* P* PTASCII EQU * P IFT CODE=1 ( P DATA /7F01,/0203,/0009,/0000 00-07 ( P DAT
0x2370a4…237238 Dummy {f00=0x0127, f01=0x0190, f02=»000,/0000,/0000,/171B 20-27 ( P DATA /0000,/0000,/0005,/0000 28-2F $ ( P DATA /0000,/1600,/0000,/0004 30-37 P ( P DATA /0000,/0000,/1415,/001A 38-3F | ( P DATA /2041,/4243,/4445,/4647 40-47 ( P DATA /4849,/232E,/3C28,/2B21 48-4F ( P DATA /2
0x237238…2373cc Dummy {f00=0x0127, f01=0x0190, f02=»/402C,/255F,/3E3F 68-6F ( P DATA /1831,/3233,/3435,/3637 70-77 ( P DATA /3839,/3A5B,/5C27,/3D22 78-7F L ( P DATA /2061,/6263,/6465,/6667 80-87 x ( P DATA /6869,/5B2E,/3C28,/2B21 88-8F ( P DATA /266A,/6B6C,/6D6E,/6F70 90-97 ( P DATA /7172,
0x2373cc…237560 Dummy {f00=0x0127, f01=0x0190, f02=»3,/3435,/3637 B0-B7 ( P DATA /3839,/3A23,/4027,/3D22 B8-BF ( P DATA /2041,/4243,/4445,/4647 C0-C7 H ( P DATA /4849,/5B2E,/3C28,/2B21 C8-CF t ( P DATA /264A,/4B4C,/4D4E,/4F50 D0-D7 ( P DATA /5152,/5D24,/2A29,/3B5E D8-DF ( P DATA /7F2F,/535
0x237560…2376f4 (2, 309) Dummy {f00=0x0127, f01=0x0190, f02=»027,/3DFF F8-FF | P XIF P EJECT $ P* 2 P* < 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC F P* | P* PTEBCDIC EQU * P IFF CODE+RCOM=0 ( P DATA /0001,/0203,/372D,/0000 00-07 ( P DATA /0005,/1500,/0C00,/0000
0x2376f4…237888 Dummy {f00=0x0127, f01=0x018e, f02=»7 n ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 6 ( P DATA /F8F9,/7A5E,/4C7E,/6E6F 38-3F b ( P DATA /6AC1,/C2C3,/C4C5,/C6C7 40-47 ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x237888…237a1c Dummy {f00=0x0127, f01=0x40b4, f02=» j ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F 4 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 ` P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,/E3E4,/E5E6 50-5
0x237a1c…237bb0 Dummy {f00=0x0127, f01=0x2008, f02=» 68-6F z ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/0000,/00E0 78-7F B 4 P DATA /544F,/5353 SPEC. FLEX CHAR. 'TOSS' 80-84 n P XIF P END @ ( P DATA /C8C9,/D1D2,/D3D4,/D5D6 48-4F ( P DATA /D7D8,/D9E2,
0x237bb0…237d44 Dummy {f00=0x0127, f01=0x0190, f02=» CW A4,DCTAB ALL ENTRIES CHECKED?? =3 * P RF(E) DCTP25 YES.DWT NOT IN TABLE =3 . P CWR* A6,A4 IN TABLE ?? =3 P RF(E) DCTP30 YES!! =3 ~ " P RB DCTP22 CHECK NEXT ENTRY =3 PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB
0x237d44…237ed8 Dummy {f00=0x0127, f01=0x0190, f02=» P LDK A1,4 DEVICE END P ORS A1,DWTST,A6 ( P CF A15,INSSQ INSERT IN STATUS QUEUE 8 P XIF d PDCTP30 EQU * p P SUR A1,A1 RETURN CODE ::= 0 PENDIO EQU * $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P EJECT P*
0x237ed8…23806c Dummy {f00=0x0127, f01=0x0190, f02=» P* PDCWR EQU * P IFT MMUPAG=1 $ P LD A1,ECBRL,A8 REQUESTED LENGTH 6 " P CWK A1,BUFLEN ILLEGAL LENGTH? ^ P RF(G) IL:LEN YES!! P XIF P CF A15,TIMEWR SET TIMER P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P*
0x23806c…238200 Dummy {f00=0x0127, f01=0x0190, f02=» P* PDCRD EQU * P LD A8,DWTECB,A6 GET ECB . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE @ " P RF(Z) DCRD10 NOTHING IN QUEUE r P P P ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE P ST A2,DWTRQ,A6 P ADK A4,6 " P L
0x238200…238394 (2, 310) Opaque[0x194]
0x238394…238528 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a8, f03=0x0000}
0x238394…238528 IdxSect {
0x238394…238528 f00 = 0x0135 // 0x238394 @0x0
0x238394…238528 f01 = 0x0006 // 0x238396 @0x2
0x238394…238528 gno = [ // 0x238398 @0x4
0x238394…238528 [0x00]: C0x0135.0x1.0
0x238394…238528 [0x01]: C0x0135.0x2.0
0x238394…238528 [0x02]: C0x0135.0x3.0
0x238394…238528 ]
0x238394…238528 }
0x238528…2386bc Dummy {f00=0x0135, f01=0x0190, f02=» 0 P IDENT TIMER REL 9.2 79-11-16 870105040920 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x2386bc…238850 Dummy {f00=0x0135, 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
0x238850…2389e4 Dummy {f00=0x0135, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P 6 P > P F P* N P* X P*********** b P* EXTRNALS * v P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXT
0x2389e4…238b78 Dummy {f00=0x0135, f01=0x018e, f02=»ADDRESS x $ P EXTRN ACTOT ACTIVATE A TERMINAL * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK 8 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE f 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P********
0x238b78…238d0c Dummy {f00=0x0135, f01=0x0190, f02=» d P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIMER LK
0x238d0c…238ea0 Dummy {f00=0x0135, f01=0x018e, f02=»ELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS ( P* A8 = DELAY F P* P* f P* 2. TIMING AND ACTIVATION p P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB ADDRES
0x238ea0…239034 (2, 311) Dummy {f00=0x0135, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR * P RF(NZ) TIM010 TIMING AND ACTIVATION? 0 P* ^ P EJECT TIMER h P* ~ P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 DAT
0x239034…2391c8 Dummy {f00=0x0135, f01=0x0190, f02=» PTIM010 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR D " P ABL(Z) LKMRQE TTAB NOT FOUND? ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER .
0x2391c8…23935c Dummy {f00=0x0135, f01=0x0190, f02=» PQUEDIS EQU * P ABL LKMQDI P* , P EJECT TIMER 6 P* L P* V P* RETURN AFTER TIME OUT ` P* P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISP
0x23935c…2394f0 Dummy {f00=0x0135, f01=0x0190, f02=»FREBLK AND SET IT FREE P LDR A5,A3 SET TTAB ADDRESS * P LDK A7,0 MONITOR ACTIVATION PARAMETER B ( P CF A15,ACTOT AND ACTIVATE TERMINAL p P RB TTDIS P* P EJECT TIMER P* P* " P* S E T I M E , S E T I M P P
0x2394f0…239684 Dummy {f00=0x0135, f01=0x0190, f02=»RS:- ~ P* P* A1 = PARAMETER . P* A4 = IF SETIMP: TIMER POINTER ADDRESS 0 , P* P1 = DISPATCH ADDRESS AFTER TIME OUT b P* P2 = DELAY P* : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. P* P* EXIT PARAM
0x239684…239818 Dummy {f00=0x0135, f01=0x018e, f02=» * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF J P* V P IFT CPU852=0 ` P INH v " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P EJECT TIMER P* P* * P LDR A6,A4 SAVE TIMER POINTER AD
0x239818…2399ac Dummy {f00=0x0135, f01=0x0190, f02=» P LDR* A8,A5 TIME IN A8 P ADK A5,2 & ( P ST A5,20,A15 ADJUST PROGRAM COUNTER 8 $ P CF A15,GETBLK GET A FREE BLOCK d P LDR A2,A4 P C1R A1,A8 " P CF A15,GETBLK GET TIMER BLOCK P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEU
0x2399ac…239b40 Dummy {f00=0x0135, f01=0x417a, f02=»ETIME? , P STR A4,A6 -SETIMP. STORE TIMER POINTER P* > P EJECT TIMER H P* ^ P* h PSETEND EQU * r P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A
0x239b40…239cd4 (2, 312) Dummy {f00=0x0135, 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
0x239cd4…239e68 Dummy {f00=0x0135, f01=0x0000, f02=»
[…0x6…]
0x23a7e0…23a974 (2, 313) Opaque[0x194]
0x23a974…23ab08 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x23a974…23ab08 IdxSect {
0x23a974…23ab08 f00 = 0x0128 // 0x23a974 @0x0
0x23a974…23ab08 f01 = 0x0006 // 0x23a976 @0x2
0x23a974…23ab08 gno = [ // 0x23a978 @0x4
0x23a974…23ab08 [0x00]: C0x0128.0x2.0
0x23a974…23ab08 [0x01]: C0x0128.0x3.0
0x23a974…23ab08 [0x02]: C0x0129.0x0.0
0x23a974…23ab08 ]
0x23a974…23ab08 }
0x23ab08…23ac9c Dummy {f00=0x0128, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x23ac9c…23ae30 Dummy {f00=0x0128, 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**
0x23ae30…23afc4 Dummy {f00=0x0128, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P < P D P L P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID , P EXTRN LKMQDI QUEUE TA
0x23afc4…23b158 Dummy {f00=0x0128, f01=0x0190, f02=»AB ADDRESS ~ $ P EXTRN SCTNOS NUMBER OF SEGMENTS P EJECT TMMLKM : P* R P* P********** f P* TCHPAG * x P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR. P* B P* TCHPAG WILL CHANGE T
0x23b158…23b2ec Dummy {f00=0x0128, f01=0x0190, f02=»TERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: " P* L P* A5 = TTAB ADDRESS V ( P* A7 = PAGE TO BE CHANGED, 0 - 15 t * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT RETURNS TO CALLING TASK WITH A7 AND A8 UN
0x23b2ec…23b480 Dummy {f00=0x0128, f01=0x0190, f02=»XING IN MMU TABLE v P ADR A7,A5 ADD TTAB ADDRESS P LDR A2,A8 NEW PAGE LOCATION > . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) b P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE P* 0 PT:DISP ABL LKMQDI QUEUE
0x23b480…23b614 (2, 314) Dummy {f00=0x0128, f01=0x018e, f02=»* P* 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. P* L D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK V 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P* * P* IT IS ENTERED FROM THE LKM HANDLER
0x23b614…23b7a8 Dummy {f00=0x0128, f01=0x0190, f02=» ` P* ( P* IT RETURNS TO CALLING TASK WITH P* THE FOLLOWING PARAMETER: > P* b 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE l & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU EQU * CHANGE MMU TABLE * P CF A15,FNDT
0x23b7a8…23b93c Dummy {f00=0x0128, f01=0x0190, f02=»NTENTS h 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK * P RB T:DISP QUEUE TASK FOR DISPATCHING F P* t P EJECT TMMLKM ~ P* P* P********** P* TLUSEG * P********** P* P* 6 P* THIS IS THE LOCK
0x23b93c…23bad0 Dummy {f00=0x0128, f01=0x0190, f02=»OCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* 8 * P* IT IS ENTERED FROM THE LKM HANDLER B & P* WITH THE FOLLOWING PARAMETERS: p P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER & P* A8 = 0 IF LOCK SEGMENT REQUEST
0x23bad0…23bc64 Dummy {f00=0x0128, f01=0x0190, f02=» P* > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE P P* z P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0
0x23bc64…23bdf8 Dummy {f00=0x0128, f01=0x0190, f02=»TLCERR EQU * , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR P* D PTLUS00 EQU * N , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB b $ P AD A1,SCTSEG ADD SEGTAB ADDRESS " P LCR A4,A1 GET SEGMENT STATUS P ANK A4,/8 " P RB(NZ) TLCERR CORE RE
0x23bdf8…23bf8c Dummy {f00=0x0128, f01=0x4164, f02=» P EJECT TMMLKM P* P* LOCK SEGMENT & P* < 4 P ORRS A4,A1 INDICATE SEGMENT TO BE CORE RESIDENT F P RB T:DISP ~ P* P* UNLOCK SEGMENT P* PTLUS10 EQU * P C1R A4,A4 A4 := /FDFF 2 P ANRS A4,A1 INDICATE SEGME
0x23bf8c…23c120 Dummy {f00=0x0128, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x23c120…23c2b4 (2, 315) Dummy {f00=0x0129, f01=0x0190, f02=» n P LDK A3,0 P* P IFT MMUPAG=0 $ * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK : P XIF h P* t P IFT MMUPAG=1 ~ ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 P*
0x23c2b4…23c448 Dummy {f00=0x0129, f01=0x0190, f02=»S v & P LDR* A2,A8 GET FIRST WORD OF ECB P XIF 4 P* @ P IFT MMUPAG=1 J P ELR A8,A7 GET ECB ADDRESS ` $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED? 8 P CF A15,FNDDWT NO, SEARCH DW
0x23c448…23c5dc Dummy {f00=0x0129, f01=0x0190, f02=» " P LD A2,DWTST,A6 GET DWT STATUS P RF(N) TP:RQE NOT BUSY? * P CW A5,DWTTAB,A6 J 4 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK? b 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT? P ORK A6,1
0x23c5dc…23c770 Dummy {f00=0x0129, f01=0x0190, f02=»AVE FIRST DWT ADDRESS P LDR A3,A6 P* 0 PTMW:20 EQU * : 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE N $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 ( P RB(P) TMW:10 MORE ECB:S IN ECBBLK? : P ST A3,DWTWAT,A9 NO, SET
0x23c770…23c904 Dummy {f00=0x0129, f01=0x0190, f02=» TTAB SAVE AREA p 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR & P RF(Z) TP:QDI FIRST ECB IN ECBBLK? N P* x : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x23c904…23ca98 Dummy {f00=0x0129, f01=0x40aa, f02=»QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END @ VATE INDICATOR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S?
0x23ca98…23cc2c Dummy {f00=0x0129, 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
0x23cc2c…23cdc0 Dummy {f00=0x0129, f01=0x0000, f02=»
0x23cdc0…23cf54 (2, 316) Opaque[0x194]
0x23cf54…23d0e8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x23cf54…23d0e8 IdxSect {
0x23cf54…23d0e8 f00 = 0x0007 // 0x23cf54 @0x0
0x23cf54…23d0e8 f01 = 0x0006 // 0x23cf56 @0x2
0x23cf54…23d0e8 gno = [ // 0x23cf58 @0x4
0x23cf54…23d0e8 [0x00]: C0x0007.0x0.0
0x23cf54…23d0e8 [0x01]: C0x0007.0x1.0
0x23cf54…23d0e8 [0x02]: C0x0007.0x2.0
0x23cf54…23d0e8 ]
0x23cf54…23d0e8 }
0x23d0e8…23d27c Dummy {f00=0x0007, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x23d27c…23d410 Dummy {f00=0x0007, 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
0x23d410…23d5a4 Dummy {f00=0x0007, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN PAG:PA PAGE ADDRESS & P
0x23d5a4…23d738 Dummy {f00=0x0007, f01=0x018e, f02=»A TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 8 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK d P EXTRN SCTSEG SEGTAB ADDRESS $ P EXTRN SCTNOS NUMBER OF SEGMENTS & P EXTRN SCTMMP MMU TABLE PAGE ENTRY
0x23d738…23d8cc Dummy {f00=0x0007, f01=0x0190, f02=» . P***************************************** P* : P* CONDITIONAL ASSEMBLY D P* b . P***************************************** l P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P
0x23d8cc…23da60 Dummy {f00=0x0007, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 * > . ** A PROGRAM VERSION USING TOSS DISC PAGING H * &* IS OBTAINED BY SETTING DSKPAG EQU 1. z * PDSKPAG EQU 0 * P* 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER OVERL
0x23da60…23dbf4 (2, 317) Dummy {f00=0x0007, f01=0x0190, f02=» P********** P* TLDSEG * P********** ( P* : P* D 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. N P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* 4 P* A2 = DISPATCH ADDRESS
0x23dbf4…23dd88 Dummy {f00=0x0007, f01=0x0190, f02=»S) d P* ( P* IT RETURNS TO CALLING TASK WITH " P* THE FOLLOWING PARAMETERS: @ P* f > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE p & P* A7 = -1 IF REQUEST ERROR, ELSE ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P
0x23dd88…23df1c Dummy {f00=0x0007, f01=0x018e, f02=»UGH THE DISPATCHER AFTER p > P* COMPLETION, THUS NO TASK SWITCHING WILL BE PERFORMED, < P* IN PURPOSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. b P* : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL : P* ACTIVATE LDTASK WHICH WILL
0x23df1c…23e0b0 Dummy {f00=0x0007, f01=0x018e, f02=» PTLDSEG EQU * LOAD SEGMENT * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 & P RF(N) TLDERR REQUEST ERROR? T 2 P CW A1,SCTNOS CHECK IF SEGMENT NUMBER TOO BIG x P RF(NG) TLDS00 OK? P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BR
0x23e0b0…23e244 Dummy {f00=0x0007, f01=0x0190, f02=» P LDR A3,A5 GET TTAB ADDRESS , P SLL A1,3 ADJUST FOR INDEXING IN SEGTAB , $ P AD A1,SCTSEG ADD SEGTAB ADDRESS & P ADK A2,2 UPDATE DISPATCH ADDRESS P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET D
0x23e244…23e3d8 Dummy {f00=0x0007, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x23e3d8…23e56c Dummy {f00=0x0007, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x23e56c…23e700 Dummy {f00=0x0007, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x23e700…23e894 (2, 318) Dummy {f00=0x0007, f01=0x0190, f02=»F REMOVED BLK n " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2 < P XIF T P* ` P EJECT TLDSEG j P* , P* GET PAGE ADDRESS OF REQUESTED SEGMENT P* & PTLDS20 EQU * ENTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAG
0x23e894…23ea28 Dummy {f00=0x0007, f01=0x0190, f02=»MMU TABLE j P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY , P LD A4,SCTNPE GET NUMBER OF PAGE ENTRIES P P* P* UPDATE PAGE ENTRY/ENTRIES P* PTLDS25 EQU * P SCR A2,A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP
0x23ea28…23ebbc Dummy {f00=0x0007, f01=0x0190, f02=»* P EJECT TLDSEG P* " P* , 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE 6 P SLL A1,2 n P OR A1,SCTLAP $ P TL TTB:MT,A5 LOAD MMU REGISTERS P* PTLDS40 EQU * P IFT ASSOLY=0 2 P ES A1,T:ACSB,A13 UPDA
0x23ebbc…23ed50 Dummy {f00=0x0007, f01=0x0190, f02=» BASE h P XIF P* P IFT CPU852=0 $ P LDR A6,A5 : $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x23ed50…23eee4 Dummy {f00=0x0007, f01=0x4048, f02=» TASK v P XIF P* P* $ P* . END 8@ D $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 L $ P RTN A15 RETURN TO CALLING TASK t P XIF P* P IFT CPU852=1 $ P LD A1,TTB:SA+2,A5 RESTORE A1-A6 P LD A2,TTB:SA+4,A5
0x23eee4…23f078 Dummy {f00=0x0007, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x23f078…23f20c Dummy {f00=0x0007, f01=0x0190, f02=»D OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT? 2 P RF(Z) CLK30 TIME OUT? T P LDR* A3,A4 RELEASE TIMER r P STR A3,A6 P CF A15,FREBLK P LDR A4,A2 P CF A15,FREBLK P RB CLK20 P* P EJECT
0x23f20c…23f3a0 Dummy {f00=0x0007, f01=0x018e, f02=» P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF H P* T P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK t P XIF P* $ P CF A15,SWL48 SWITCH TO LEVEL 48 P INH P LD A2,2,A4 LOAD DISP BLOCK P
0x23f3a0…23f534 (2, 319) Opaque[0x194]
0x23f534…23f6c8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2528, f03=0x0000}
0x23f534…23f6c8 IdxSect {
0x23f534…23f6c8 f00 = 0x0129 // 0x23f534 @0x0
0x23f534…23f6c8 f01 = 0x0004 // 0x23f536 @0x2
0x23f534…23f6c8 gno = [ // 0x23f538 @0x4
0x23f534…23f6c8 [0x00]: C0x0129.0x1.0
0x23f534…23f6c8 [0x01]: C0x0129.0x2.0
0x23f534…23f6c8 ]
0x23f534…23f6c8 }
0x23f6c8…23f85c Dummy {f00=0x0129, f01=0x0190, f02=» 2 P IDENT TABORT REL 9.2 79-11-16 870105040920 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x23f85c…23f9f0 Dummy {f00=0x0129, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P P P P* P*
0x23f9f0…23fb84 Dummy {f00=0x0129, 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/
0x23fb84…23fd18 Dummy {f00=0x0129, 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
0x23fd18…23feac Dummy {f00=0x0129, 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
0x23feac…240040 Dummy {f00=0x0129, 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
0x240040…2401d4 (2, 320) Dummy {f00=0x0129, 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?
0x2401d4…240368 Dummy {f00=0x0129, 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
0x240368…2404fc Dummy {f00=0x0129, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x2404fc…240690 Dummy {f00=0x0129, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x240690…240824 Dummy {f00=0x0129, f01=0x2008, f02=»
0x240824…2409b8 Dummy {f00=0x0129, f01=0x0190, f02=»,TTB:SB,A3 RESET SEGMENT BLOCK ADDRESS 6 P LD A1,SEG:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 . P* h P IFT DSKPAG=1 r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* P RF TLDS40
0x2409b8…240b4c Dummy {f00=0x0129, f01=0x0190, f02=»ADDRESS j " P LDR* A4,A1 GET SEGMENT STATUS * P RF(N) TLDS10 SEGMENT LOADED IN CORE? 6 P ST A2,TTB:SA,A3 d P CM PRUN | P* P* ACTIVATE LOAD TASK P* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO D
0x240b4c…240ce0 Dummy {f00=0x0129, f01=0x0190, f02=»4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P* P ( P* REMOVE PAGE BLOCK FROM PAGE QUEUE Z P* P XIF P* & PTLDS15 EQU * ENTRY USED BY LDTASK P IFT DSKPAG=1 & P LDR* A2,A1 GET QUEUE LINK FORWARD
0x240ce0…240e74 (2, 321) Opaque[0x194]
0x240e74…241008 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x240e74…241008 IdxSect {
0x240e74…241008 f00 = 0x0129 // 0x240e74 @0x0
0x240e74…241008 f01 = 0x0006 // 0x240e76 @0x2
0x240e74…241008 gno = [ // 0x240e78 @0x4
0x240e74…241008 [0x00]: C0x0129.0x3.0
0x240e74…241008 [0x01]: C0x012a.0x0.0
0x240e74…241008 [0x02]: C0x012a.0x1.0
0x240e74…241008 ]
0x240e74…241008 }
0x241008…24119c Dummy {f00=0x0129, f01=0x0190, f02=» 2 P IDENT MONTIM REL 9.2 79-11-16 870105040920 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x24119c…241330 Dummy {f00=0x0129, 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
0x241330…2414c4 Dummy {f00=0x0129, f01=0x0190, f02=»TOR CLOCK r P P P " P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x2414c4…241658 Dummy {f00=0x0129, 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
0x241658…2417ec Dummy {f00=0x0129, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P INH
0x2417ec…241980 Dummy {f00=0x0129, f01=0x018e, f02=» v P SUK A7,2 P LDR* A6,A7 HOURS P ENB 4 P* @ * PGETT10 CF A15,BYTASC CONVERT TO ASCII J P IFT MMUPAG=0 x * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P*
0x241980…241b14 (2, 322) Dummy {f00=0x012a, f01=0x0190, f02=» $ P RF(Z) GETT15 TCB ADDRESS EVEN? P LDR A1,A6 0 P EL A4,1,A8 B P ANK A4,/FF V P SLL A1,8 j P ORR A1,A4 | P ES A1,1,A8 P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8
0x241b14…241ca8 Dummy {f00=0x012a, f01=0x0190, f02=»ET ACTUAL TIME FROM STACK P RB GETT10 " P* 4 P EJECT MONTIM > P* V P* ` PGETT20 SUK A7,2 j . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY
0x241ca8…241e3c Dummy {f00=0x012a, f01=0x0190, f02=»S IS THE SET TIME LKM PROCESSOR. P* ( 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH 2 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK f 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P*
0x241e3c…241fd0 Dummy {f00=0x012a, f01=0x0190, f02=»QU * P IFT MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER " P ECR A6,A6 L ( P LC A6,1,A8 GET RIGHTHAND CHARACTER ^ P XIF P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL
0x241fd0…242164 Dummy {f00=0x012a, f01=0x0190, f02=»LL A6,8 P SRL A4,8 P ORR A6,A4 " P* 4 PSETT15 EQU * > P XIF R P* ^ P EJECT MONTIM h P* P* $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END ? P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15
0x242164…2422f8 Dummy {f00=0x012a, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MON
0x2422f8…24248c Dummy {f00=0x012a, f01=0x0190, f02=» RESULT IN A6. P* P* ( PBYTASC EQU * 2 P LDK A4,0 F P* X PBYTA10 SUK A6,/A b P RF(N) BYTA20 z P ADKL A4,/100 P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A
0x24248c…242620 Dummy {f00=0x012a, f01=0x415c, f02=» ASCII TO BINARY. ~ P* RESULT IN A6. P* > P* H PASCTBY EQU * R P LDR A4,A6 f P ANK A6,/F x P SRL A4,8 P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10
0x242620…2427b4 (2, 323) Dummy {f00=0x012a, 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
0x2427b4…242948 Dummy {f00=0x012a, 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
0x242948…242adc Dummy {f00=0x012a, f01=0x0190, f02=» n : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT F P* l PTABO30 EQU * v 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x242adc…242c70 Dummy {f00=0x012a, f01=0x40c8, f02=»CODE z P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ( P* 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR f P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) , P RF(Z)
0x242c70…242e04 Dummy {f00=0x012a, f01=0x2008, f02=»
0x242e04…242f98 Dummy {f00=0x012a, f01=0x0190, f02=» EJECT TPROC P* P* P********** * P* TPAUSE * < P********** N P* ` P* j ( P* THIS IS THE PAUSE LKM PROCESSOR. t P* : P* THIS MODULE IS ENTERED FROM THE LKM HANDLER WHEN A : P* TASK WANTS TO (TEMPORARILY)
0x242f98…24312c Dummy {f00=0x012a, f01=0x0190, f02=» P********** P* TMWAIT * P********** , P* > P* H 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. R P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS
0x24312c…2432c0 Dummy {f00=0x012a, f01=0x018e, f02=»LLING TASK VIA TENDIO t & P* WITH THE FOLLOWING PARAMETERS: P* H , P* A8 = ECB ADDRESS OF COMPLETED EVENT R P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO). P* ( P* NOTICE THAT ALL EVENTS MUST HAVE ( P*
0x2432c0…243454 (2, 324) Opaque[0x194]
0x243454…2435e8 # DirEnt {nam=»TASS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2758, f03=0x0000}
0x243454…2435e8 IdxSect {
0x243454…2435e8 f00 = 0x013a // 0x243454 @0x0
0x243454…2435e8 f01 = 0x000c // 0x243456 @0x2
0x243454…2435e8 gno = [ // 0x243458 @0x4
0x243454…2435e8 [0x00]: C0x013a.0x3.0
0x243454…2435e8 [0x01]: C0x013b.0x3.0
0x243454…2435e8 [0x02]: C0x013c.0x0.0
0x243454…2435e8 [0x03]: C0x013c.0x1.0
0x243454…2435e8 [0x04]: C0x013c.0x2.0
0x243454…2435e8 [0x05]: C0x013c.0x3.0
0x243454…2435e8 ]
0x243454…2435e8 }
0x2435e8…24377c Dummy {f00=0x013a, f01=0x0190, f02=» 0 P IDENT TASS REL 9.2 79-11-16 870105040920 P 8 P =1, PR 4313 @ P* REL 9.1 78-10-25 V P r P* z P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P*
0x24377c…243910 Dummy {f00=0x013a, f01=0x0190, f02=»**************************** x P* $ " P* THIS MODULE IS ENTERED VIA . $ P* ASSIGN REQUEST (DATA 15) OR T ( P* ASSIGN INDEX REQUEST (DATA 16). | P* P* LDK A7,TC P* LDKL A8,ASBLK P* LKM P* DATA 15 P
0x243910…243aa4 Dummy {f00=0x013a, f01=0x018e, f02=»K IS A PARAMETER BLOCK z D P* AND TC = 1 WHEN TASK LOCAL ASSIGN IN TTAB IS WANTED B P* TC = 0 WHEN GLOBAL ASSIGN IN SCTCDT IS WANETED f P* P EJECT P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I
0x243aa4…243c38 Dummy {f00=0x013a, f01=0x0190, f02=» t . P* I I P* +---------------------+ : P* I I P* I VOL NAME I ~ P* I I P* +---------------------+ P* I I P*
0x243c38…243dcc Dummy {f00=0x013a, f01=0x018e, f02=»* CREATED IN TTAB/CD:TAB. P* $ F P* THE FDB IS INITIALIZED WITH INFORMATION FROM THE VTOC:S OF THE . $ P* VOLUMES MENTIONED IN ASBLK. x P* J P* UPON COMPLETION OF THE ASSIGN REQUEST REG A7 WILL HAVE ONE OF THE P* FOLLOWING RE
0x243dcc…243f60 Dummy {f00=0x013a, f01=0x0190, f02=» x " P* 2 = NO FREE ENTRY IN TABLE P* 3 = NO FDB AVAILABLE . ( P* 4 = ONE OR MORE VOLUMES UNKNOWN N " P* 5 = FILE CODE ALREADY USED z P* 6 = FILE NAME UNKNOWN 0 P* 7 = FILE SECTION MISSING OR FOUND TWICE P* 8 = FAULTY DIS
0x243f60…2440f4 (2, 325) Dummy {f00=0x013b, f01=0x0190, f02=»K P* LKM P* DATA 16 P* 0 " P* INPUT A5 = TTAB ADDRESS : " P* A8 = ASBLK ADDRESS ` 0 P* WHERE ASBLK IS A PARAMETER BLOCK P* +----------+----------+ $ P* ASBLK I NO OF VOL FC I P* +
0x2440f4…244288 Dummy {f00=0x013b, f01=0x0190, f02=»---------------------+ P* I I P* I VOL NAME I @ P* I I b P* +---------------------+ $ P* I MASTER INDEX " P* I FILE NAME P* D P* UPON C
0x244288…24441c Dummy {f00=0x013b, f01=0x0190, f02=»ORMED j P* -1 = REQUEST ERROR P* 1 = DISC I/O ERROR , " P* 2 = NO FREE ENTRY IN TABLE J 8 P* 3 = NO FDB AVAILABLE OR MASTER INDEX CORE AVAIL p ( P* 4 = ONE OR MORE VOLUMES UNKNOWN " P* 5 = FILE CODE ALREADY USED P* 6 = FI
0x24441c…2445b0 Dummy {f00=0x013b, f01=0x0190, f02=»S EXIST v " P* 10= NO DATA FILE ASSIGNED * P* 11= 4 INDEX FILES ALREADY ASSIGNED 6 $ P* 12= MAX KEY LENGTH TOO SMALL d 0 P* 13= REQUEST BUSY. REPEAT ASSIGN REQUEST P EJECT P* P*************** P* ENTRIES * P
0x2445b0…244744 Dummy {f00=0x013b, f01=0x0190, f02=»TTA P ENTRY TASASB P ENTRY TASCVO " P ENTRY TASVOL 8 P ENTRY TASCXO N P ENTRY TASSEX d P ENTRY TASXLB z P ENTRY TASFDB P ENTRY TASVRL P ENTRY TASVLE P ENTRY TASVRN P ENTRY TASECB & P ENTRY TAS
0x244744…2448d8 Dummy {f00=0x013b, f01=0x0190, f02=»HLT HALT SYSTEM DUE TO DM (SYSGEN) ERROR P EJECT 0 P* > P***************** H P* EXTERNALS * b P***************** | P* P EXTRN DFTAB P EXTRN DFTABE P EXTRN SCTCDT P EXTRN DWTVOL P EXTRN FNDTID
0x2448d8…244a6c Dummy {f00=0x013b, f01=0x0190, f02=» TTB:TD,DMTASX P EXTRN ECBFC,ECBRC 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA 0 $ P EXTRN HALT HALT SYSTEM ROUTINE d P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMB
0x244a6c…244c00 Dummy {f00=0x013b, f01=0x018e, f02=»BTAINED BY SETTING MMUPAG EQU 1. P* ( PMMUPAG EQU 1 2 P* F P EJECT P P* ^ P******************* h P* DATA AREAS * P******************* P* PTASBLK DATA 0 USE INDICATOR $ PTASQUE DATA 0 ASSIGN QUEUE ANC
0x244c00…244d94 (2, 326) Dummy {f00=0x013c, f01=0x018e, f02=» 0 PTASVOL DATA 0 VOLUME IDENTIFICATION (DMI,FC) " P DATA 0,0,0 THREE MORE ENTRIES 8 6 PTASCXO DATA 0 CURRENT OFFSET IN TASSEX AND TASXLB ^ 0 PTASSEX DATA 0 SECTION NUMBER, EXTENT NUMBER * P DATA 0 OFFSET IN TASVOL FOR THIS EXT ( P DATA 0,0,0,0,
0x244d94…244f28 Dummy {f00=0x013c, f01=0x0190, f02=» PTASFDB DATA 0 FDB ADDRESS $ PTASVRL DATA 0 VTOC RECORD LENGTH & PTASVLE DATA 0 VTOC LENGTH N PTASVRN DATA 0 VTOC RECORD NO p PTASECB DATA 0,0 ECBFC,ECBBA P DATA 410 ECBRL P DATA 0,0,0 ECBEL,-RC,-CW P DATA 0 CW2 0 PTA
0x244f28…2450bc Dummy {f00=0x013c, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x2450bc…245250 Dummy {f00=0x013c, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x245250…2453e4 Dummy {f00=0x013c, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x2453e4…245578 Dummy {f00=0x013c, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x245578…24570c Dummy {f00=0x013c, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x24570c…2458a0 Dummy {f00=0x013c, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x2458a0…245a34 (2, 327) Dummy {f00=0x013c, f01=0x0190, f02=» ADDRESS IN CD:TAB AND COMPARE DWTVOL P* . P LD* A6,SCTCDT 8 PTAS130 SUK A6,4 N 2 P RF(N) TASHLT FC NOT FOUND? SHOULD NOT OCCUR. f P LD A5,SCTCDT P ADR A5,A6 P CC A1,1,A5 P RB(NE) TAS130 NOT THIS FC P LDR A11,A11
0x245a34…245bc8 Dummy {f00=0x013c, f01=0x0190, f02=» P* LOCK FLEXDISC P* P LDKL A8,TASECB ( " P ST A1,ECBFC,A8 FLEX FILE CODE @ P SUR A12,A12 f P LDK A7,/A6 LOCK,WAIT z P LKM P DATA 1 P LD A7,ECBRC,A8 P RF(Z) TAS131 P ANKL A7,/7FFF " P RF(NZ) TASF10 N
0x245bc8…245d5c Dummy {f00=0x013c, f01=0x0190, f02=»NZ) TAS150 GRAVE ERR PTAS131 EQU * P ST A1,TASVOL,A2 SAVE FC 0 P P P AD A6,SCTCDT X P LDR* A5,A6 INDEX n $ P LDK A1,0 DISC NAME DISPLACEMENT P SRL A5,8 P RF(Z) TAS135 , P* DECIDE DISC DISPL FOR THIS FILE CODE $ P
0x245d5c…245ef0 Dummy {f00=0x013c, f01=0x0190, f02=»AS132 PTAS135 EQU * P LD A6,2,A6 DWT ADDR " & P RF(Z) TASHLT NO DWT ADDRESS FOUND > & P ADR A6,A1 POINTER TO VOLUME NAME h P LDK A1,3 VOL NAMES 3 WORDS & P LDR A5,A4 POINTER ASBLK VOL NAME P* , P* CHECK VOLUME NAMES IN DWT
0x245ef0…246084 Dummy {f00=0x013c, f01=0x0190, f02=»2 P SUK A1,1 . P RB(P) TAS140 CHECK NEXT WORD IN VOL NAME P* N P* VOL NAME MATCH X P* STORE DMI , FC IN TASVOL r P* P LD A1,TASVOL,A2 P ANK A1,/0F P CWK A1,/8 $ P RF(L) TAS143 NOT FLEXIBLE DISC P L
0x246084…246218 Dummy {f00=0x013c, f01=0x0190, f02=» t P* 1 FOR DRIVE 2 " P* 2 FOR FLEXDISC , P* R P SC A1,TASVOL,A2 P* t 6 P* SAVE FILE CODES FOR NEWLY LOCKED FLEXDISCS =1 ~ 2 P* (ONLY SIGNIFICANT WHEN A11 = 1 ) =1 START P* P SUK A1,2
0x246218…2463ac Dummy {f00=0x013c, f01=0x0190, f02=»,TASVOL+1,A2 FILE CODE P SC A3,TASLFD,A1 SAVE PTAS147 EQU * =1 END < P* X P* CHECK NEXT VOL IN ASBLK b P* P LDK A1,0 RET CODE P ADK A4,6 P SUK A2,2 ( P RB(NN) TAS110 MORE VOLUMES TO CHECK * P RF TAS155 OK
0x2463ac…246540 Dummy {f00=0x013c, f01=0x0190, f02=» P ANK A1,/F8 P SUK A1,/F8 P RF(NZ) TAS150 NO FLEXDISC , P LDR A12,A12 LFLAG N P RF(NZ) TAS150 LOCKED BEFORE h P* P* UNLOCK P* P LDK A7,/B8 UNLOAD,WAIT P LKM P DATA 1 P* & P* NO MATCH TRY
0x246540…2466d4 (2, 328) Dummy {f00=0x013c, f01=0x0190, f02=» LDK A1,1 PTAS155 EQU * P RTN A14 & P* 6 ( PTASHLT LDK A1,/11 INDICATE DM ERROR @ P CF A15,HALT HALT SYSTEM l P* P EJECT P* P************ P* TASS * P************ P* PIXTASS EQU * P
0x2466d4…246868 Dummy {f00=0x013c, f01=0x0190, f02=» A7,A8 GET FIRST WORD OF USER ASSIGN BLOCK $ P ANK A7,/FF SKIP LEFT CHARACTER 2 0 P ORKL A7,/8100 BIT 0+7 IND. ASSIGN ONE INDEX Z ( P ESR A7,A8 SET WORD IN ASSIGN BLOCK P XIF P*~ ( P LDK A7,0 ONLY GLOBAL ASSIGN ALLOWED P* PTA
0x246868…2469fc Dummy {f00=0x013c, f01=0x0190, f02=»NOT COMPLETED t 4 P* AND IF SO QUEUE THIS REQUEST VIA THE TASQUE P* N P LD A1,TASBLK X & P RF(Z) TAS050 NO CONCURRENT ASSIGN n * P LDKL A1,TASQUE START OF ASSIGN QUEUE ( PTAS020 EQU * QUEUE AS FOR GETBUFFER P LDR A2,A1 P LDR
0x2469fc…246b90 Dummy {f00=0x013c, f01=0x0190, f02=»QU * & P IM TASBLK INDICATE ASSIGN STARTED ! " P CM TASFDD FDB ADDR DATA FILE ! 6 P* ! 6 P ST A5,TASTTA SAVE TTAB ADDRESS OF REQUESTING TASK ! f P* ! P IFT MMUPAG=1 ! P* ! 2 P* MOVE USER ASSIGN BLOCK TO SYSTEM AREA MASBLK ! P* ! ,
0x246b90…246d24 Dummy {f00=0x013c, f01=0x0190, f02=»BLOCK ADDRESS ! p , P LDK A3,34 ASSIGN BLOCK LENGTH IN BYTES " $ P CF A14,MOV:US MOVE ASSIGN BLOCK " F P XIF " n P* " z $ P ST A8,TASASB SAVE ASBLK ADDRESS " P* " P LDK A1,16 " : P ST A1,TASCXO INIT. TASCXO TO LAST ENTRY IN TASSEXXLB " P*
0x246d24…246eb8 Dummy {f00=0x013c, f01=0x0190, f02=» " P LCR A2,A8 NO OF VOLUMES # . P ANK A2,/1F REMOVE INDEX BIT +DELAY+BASIC # ( P RF(Z) TAS090 NO VOL # Z P CWK A2,4 # v P RF(NG) TAS100 <=4 # PTAS090 RF TASSEM # P EJECT # P* # $ P* CHECK IF VOLUMES ARE ON LINE # P* # PTAS1
0x246eb8…24704c Dummy {f00=0x013c, f01=0x0190, f02=»1,0 SET CR # $ P RF(Z) TAS160 ALL VOLUMES FOUND $ P* $ : , P* ALL VOL NOT FOUND. ACT FLEXDISCTASK $ D P* $ t P LD A1,TASCVO $ ~ P LDK A2,2 ID DMTASK FLEXDISC $ P SC A2,TASVOL,A1 SEE TAS195 $ P EJECT $ P* $ , P* CHECK IF FILE CO
0x24704c…2471e0 Dummy {f00=0x013c, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x2471e0…247374 (2, 329) Dummy {f00=0x013c, f01=0x0190, f02=»S170 NO MATCH % P* & P* FILE CODE USED & . P* OK WHEN REQ = ASS INDEX AND INDEX = 1 & : P* & l P LDR* A2,A8 ASBLK 1ST WORD & v P RF(NN) TASSE5 NORMAL ASSIGN & P LDK A2,1 & P CC A2,-1,A1 INDEX & * P RF(NE) TASSE5 FILE CODE ALREADY
0x247374…247508 Dummy {f00=0x013c, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x247508…24769c Dummy {f00=0x013c, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x24769c…247830 Dummy {f00=0x013c, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x247830…2479c4 Dummy {f00=0x013c, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x2479c4…247b58 Dummy {f00=0x013c, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x247b58…247cec Dummy {f00=0x013c, f01=0x2008, f02=» ,
0x247cec…247e80 Dummy {f00=0x013c, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x247e80…248014 (2, 330) Opaque[0x194]
0x248014…2481a8 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e8, f03=0x0000}
0x248014…2481a8 IdxSect {
0x248014…2481a8 f00 = 0x0147 // 0x248014 @0x0
0x248014…2481a8 f01 = 0x000c // 0x248016 @0x2
0x248014…2481a8 gno = [ // 0x248018 @0x4
0x248014…2481a8 [0x00]: C0x0147.0x1.0
0x248014…2481a8 [0x01]: C0x0147.0x2.0
0x248014…2481a8 [0x02]: C0x0147.0x3.0
0x248014…2481a8 [0x03]: C0x0148.0x0.0
0x248014…2481a8 [0x04]: C0x0148.0x1.0
0x248014…2481a8 [0x05]: C0x0148.0x2.0
0x248014…2481a8 ]
0x248014…2481a8 }
0x2481a8…24833c Dummy {f00=0x0147, f01=0x0190, f02=» 0 P IDENT TIODM REL 9.2 79-11-16 870105040920 P 8 P =1, PR 5649 @ P REL 9.1 79-05-23 V P* r 8 P**************************************************** | P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MA
0x24833c…2484d0 Dummy {f00=0x0147, f01=0x018e, f02=»******** d P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE ` P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED
0x2484d0…248664 Dummy {f00=0x0147, f01=0x0190, f02=» P* A7 = ORDER P* A8 = ECB ADDRESS " P* F P* USED REGISTERS A1 - A10 P P* t D P* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 ~ P* AS THE ONLY PARAMETER P* 4 P* THE FOLLOWING WORD
0x248664…2487f8 Dummy {f00=0x0147, f01=0x0190, f02=» FOR CALLING TASK x . P* FDBCEX CURRENT EXTENT BLOCK POINTER P* L P* V D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: ` P* LDKL A1,/<RETURN CODE> P* ABL DISEND P* P* P EJECT P
0x2487f8…24898c Dummy {f00=0x0147, f01=0x0190, f02=»DBLNK P ENTRY FDBECB P ENTRY FDBSNR $ P ENTRY FDBRRO : P ENTRY FDBRLE P P ENTRY FDBBLF f P ENTRY FDBTNR | P ENTRY FDBVTO P ENTRY FDBCEX P ENTRY FDBEXT P ENTRY EXTDMI P ENTRY EXTFC P ENTRY EXT
0x24898c…248b20 Dummy {f00=0x0147, f01=0x0190, f02=»NTRY FDBAI1,CRNTID,CRNCDF,CRNCIF P ENTRY FDBMRN,FDBDBR,FDBMRO ( & P ENTRY FDBMEC MMU ECB DISPLACEMENT L 6 P ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS v P EJECT P* P***************** P* EXTERNALS * P************
0x248b20…248cb4 (2, 331) Dummy {f00=0x0147, f01=0x0190, f02=» P EXTRN DISEND EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER < & P EXTRN DWTTDM DM TASK TTAB ADDRESS d P EXTRN TTB:ID TASK ID 0 P EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA " P EXTRN DMTGCA GET CRN ADDRESS , P E
0x248cb4…248e48 Dummy {f00=0x0147, f01=0x0190, f02=» ECBRL P EXTRN ECBEL P EXTRN ECBRC " P EXTRN ECBCW 6 & P EXTRN ECBCW2 SECOND CONTROL WORD J P EXTRN FDBLEN t " P EXTRN SQR SEQ READ ORDER CODE & P EXTRN EARELB,DWTST,CRNGET,EATEST & P EXTRN TASHLT HALT SYSTEM ROUTINE P EJE
0x248e48…248fdc Dummy {f00=0x0147, f01=0x0190, f02=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 D * P* INDXAC EQU 0 OTHRERWISE h PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x248fdc…249170 Dummy {f00=0x0147, f01=0x0190, f02=»TA DEFINITIONS * P************************ P* : P* D P DATA 0,0 4 WORDS N P DATA 0,0 h " PTIOD14 EQU *-2 TIODM A14 STACK z P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA CLOSE CLOSE " P DATA REVTOC REA
0x249170…249304 Dummy {f00=0x0147, f01=0x0190, f02=»DELETE | P DATA IXREWR INDEXED REWRITE $ P DATA IXRARE INDEXED RANDOM READ 2 P XIF Z P IFF INDXAC=1 f P DATA TIODME | P DATA TIODME P DATA TIODME P DATA TIODME P DATA TIODME P XIF P DATA RANDEL RANDOM DELETE
0x249304…249498 Dummy {f00=0x0147, f01=0x0190, f02=» SEQUENTIAL WRITE " P DATA SEQREAD SEQUENTIAL READ P DATA GETCUR GET CURRENCY @ P IFT INDXAC=1 b $ P DATA INSIXR INSERT INDEX RECORD x $ P DATA DELIXR DELETE INDEX RECORD P XIF P IFF INDXAC=1 P DATA TIODME P DATA TIOD
0x249498…24962c Dummy {f00=0x0147, f01=0x0190, f02=»LETE r $ P DATA RANREB RAND READ REL BUFF P DATA SETLRN SET LRN 4 P* P P* Z PTIODMO EQU * DM ORDERS d $ P DATA /221E CLOSE,IND READ NEXT & P DATA /1D1C IND INSERT,IND DELETE . P DATA /1B1A INDEXED REWRITE,IND RAND READ $ P D
0x24962c…2497c0 Dummy {f00=0x0147, f01=0x0190, f02=»SEQ WR. , BASIC WRITE $ P DATA /0302 READ VTOC, SEQ READ ( P DATA /0123 BASIC READ,GET CURRENCY F * P DATA /1F20 INS INDEXREC,DEL INDEXREC r . P DATA /240D GET CURR INDEX,DELAYED RAND WR 0 P DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF P D
0x2497c0…249954 (2, 332) Dummy {f00=0x0147, f01=0x0190, f02=»ATA /0E10 P DATA /1214 P DATA /1616 & P DATA /1616 : P DATA /0218 N P DATA /181A b P DATA /1C1E v P DATA /2022 P DATA /2426 P DATA /281A SET LRN P* $ PNOOFOR EQU 25 NO OF ORDER CODES P*
0x249954…249ae8 Dummy {f00=0x0147, f01=0x0190, f02=»RD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 6 P XIF P P* P* f P* FDB OFFSET DEFINITIONS p P* " PFDBLNK EQU 0 LINK TO NEXT FDB PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER
0x249ae8…249c7c Dummy {f00=0x0147, f01=0x0190, f02=» l 0 PFDBTNR EQU START+23 TASK NUMBER CALLING TASK & PFDBVTO EQU START+24 VTOC RECORD NO < 4 PFDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER f 0 PFDBEXT EQU START+28 FIRST EXTENT BLOCK START PEXTDMI EQU 0 DMTAST IDENT PEXTFC EQU 1 VOLUME F
0x249c7c…249e10 Dummy {f00=0x0147, f01=0x0190, f02=»+53 LAST RECORD NUMBER * PFDBNIF EQU START+52 NO OF INDEX FILES $ PFDBEAL EQU START+56 EA LINK ROOT L & PFDBCRL EQU START+58 CRN LINK ROOT t 0 PFDBKA EQU START+60 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START+62 ADDRESS OF MASTER INDEX 0 PFD
0x249e10…249fa4 Dummy {f00=0x0147, f01=0x0190, f02=»AND REL BUFFER FLAGS p , PFDBMRN EQU START+75 LAST REC NR IN FILE " PFDBMRO EQU START+78 MAX FDBRRO L , PFDBMEC EQU START+80 MMU ECB DISPLACEMENT r < PFDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS P* & P* CRN BUFFER OFFSET DEFINI
0x249fa4…24a138 Dummy {f00=0x0147, f01=0x0190, f02=» P EJECT P* P************* P* TIODM * 2 P************* H P* ^ P* h ( P DATA 0 DATA MANAGEMENT DEVICE INDEX r & PTIODM DATA *+2 TIODM START ADDRESS P* P* SET UP A14 STACK P* P LDKL A14,TIOD14
0x24a138…24a2cc Dummy {f00=0x0147, f01=0x018e, f02=» A1,A2 P LD A3,2,A1 P CW A3,DWTTDM,A6 " P RF(E) TIOD10 THIS TASK : P ADK A2,2 NO Z P RB TIOD05 TRY NEXT n PTIOD10 EQU * P LC A1,TTB:ID,A3 GET TASK ID P CCK A1,'##' ( P RF(E) TIO13 JUMP IF DMTASK CALLING P*
0x24a2cc…24a460 Dummy {f00=0x0147, f01=0x0190, f02=» P LDKL A4,/4000 REQ BUSY BIT PTIO11 EQU * ( P SUK A3,2 < P RF(N) TIO13 ALL FDB READY N P LDR* A5,A1 FDB ADDR p P RF(E) TIO12 NO FDB P SC A2,FDBTNR,A5 TASK ID " P ORS A4,DWTST,A5 REQ BUSY BIT PTIO12 EQU * P ADK A
0x24a460…24a5f4 (2, 333) Dummy {f00=0x0148, f01=0x0190, f02=»R IN A7 , P* PUT ORDER INDEX IN DWTOR RIGHT BYTE P* @ P LDKL A1,/8000 REQUEST ERROR J & P LDK A2,NOOFOR-1 NO OF ORDERS - 1 n 2 PTIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO P RF(E) TIOD20 MATCH P SUK A2,1 P RB(NN) TIOD
0x24a5f4…24a788 Dummy {f00=0x0148, f01=0x0190, f02=»BI TIODMF,A2 BRANCH TO DM FUNCTION P EJECT * P* 8 $ PIXRARE EQU * INDEXED RANDOM READ B P LD A3,ECBCW2,A8 =1 j P ANK A3,/FF REQ KEY LGTH =1 P LD A4,FDBRLE,A6 =1 P SUK A4,6 MAX LGTH =1 P CWR A3,A4 =1 P RF(NG) IXRAR1
0x24a788…24a91c Dummy {f00=0x0148, f01=0x0190, f02=»GET USER KEY ADDRESS 0 P LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT P ADR A2,A6 ADD FDB ADDRESS P P* =1 r 2 P CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA P XIF P* $ PDELIXR EQU * DELETE INDEX RECORD P* $ PINSIXR E
0x24a91c…24aab0 Dummy {f00=0x0148, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x24aab0…24ac44 Dummy {f00=0x0148, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x24ac44…24add8 Dummy {f00=0x0148, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x24add8…24af6c Dummy {f00=0x0148, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x24af6c…24b100 Dummy {f00=0x0148, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x24b100…24b294 (2, 334) Dummy {f00=0x0148, f01=0x0190, f02=» P LDK A2,0 P LC A2,ECBCW+3,A8 REC NO P LD A3,ECBCW,A8 6 P LDK A1,/8 INCORRECT LENGTH N P LD A4,ECBRL,A8 r * P RF(NP) TIODME ERROR RETURN IF RL <= 0 P* * P* EA MUST NOT BE SET FOR OTHER TASK P* P LDR A1,A6 FDB
0x24b294…24b428 Dummy {f00=0x0148, f01=0x018e, f02=»EQU * INDEXED INSRERT P IFT MMUPAG=1 P* 4 " P* MOVE KEYS TO FDB KEY AREAS > P* d P LDK A5,8 n PIXINS3 EQU * P LDR A2,A6 FDB DATA P ADR A2,A5 P LD A3,FDBADF,A2 FDB INDEX P RF(Z) IXINS4 NO INDEX P LD A1
0x24b428…24b5bc Dummy {f00=0x0148, f01=0x0190, f02=» P LD A3,FDBRLE,A3 REC LGTH P SUK A3,6 KEY LGTH & " P CF A14,MOV:US KEY TO FDB AREA @ PIXINS4 EQU * f P SUK A5,2 z P RB(NZ) IXINS3 MORE INDEXS P XIF P* $ PSEQWRITE EQU * SEQUENTIAL WRITE P* 2 P* GET LRN+1 INTO
0x24b5bc…24b750 Dummy {f00=0x0148, f01=0x0190, f02=» x P LDK A1,0 ! P LC A1,FDBMRN,A6 LAST REC NR ! P LD A2,FDBMRN+1,A6 ! > P LDK A6,0 ! X P LC A6,FDBLRN,A5 ! j P LD A7,FDBLRN+1,A5 LRN ! P CF A14,DSUMOD SUBTRACT ! P SUK A2,1 ! P LDR A1,A1 ! P RF(Z) SEQ005 NOT MANY ! P LDKL
0x24b750…24b8e4 Dummy {f00=0x0148, f01=0x0190, f02=»,FDBLRN+1,A6 LRN ! P IFT INDXAC=1 " P RF IXR020 STORE LOG REC NO " . P EJECT " R $ PIXRDNX EQU * INDEXED EREAD NEXT " ` P* " P* GET CRN " P* " P LD A1,FDBADF,A6 FDB ADDR " " P CF A14,CRNGET GET CRN BUFFER " P LDR A4,A2 BUFFA
0x24b8e4…24ba78 Dummy {f00=0x0148, f01=0x0190, f02=»C A5,CRNCIF,A4 " . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT # P LC A1,CRNCIF+1,A4 # H " P LD A2,CRNCIF+2,A4 LOG REC NO # b PIXR020 EQU * # P XIF # P ADK A2,1 # P RF(O) IXR030 OVERFLOW # P RF IXR040 # , PIXR030 ANKL A2,/7FFF REMOVE OV
0x24ba78…24bc0c Dummy {f00=0x0148, f01=0x0190, f02=»NOT CHECK EOF CONDITION # P EJECT $ P* $ . PIXREWR EQU * INDEXED REWRITE $ 8 P* $ PIXDEL EQU * INDEXED DELETE $ f P* $ PRANWRITE EQU * RANDOM WRITE $ P* $ & PRANWRD EQU * DELAYED RANDOM WRITE $ P* $ & PRANDLD EQU * DELAYED
0x24bc0c…24bda0 Dummy {f00=0x0148, f01=0x018e, f02=» $ P************************* % P* DMTASK ACTIVATION * % * P************************* % L P* % n PTIODMA EQU * % x P* % P* SET EOF IF CRN > LRN % P* % P LDK A1,0 % P LC A1,ECBCW+3,A8 REC NO % P LD A2,ECBCW,A8 DITTO
0x24bda0…24bf34 (2, 335) Dummy {f00=0x0148, f01=0x0190, f02=» % t P RF(NG) TIOD25 CRN <= LRN & PTIOD23 EQU * & * P LDKL A3,/1000 END OF FILE & > P ORS A3,ECBRC,A8 & ` P ANK A7,/3F & x P SUKL A7,SQR SEQ READ & P RF(NE) TIOD25 NOT SR & P LDR A1,A3 & P RF TIODME & PTIOD25 EQU * & 6 P CF A14,
0x24bf34…24c0c8 Dummy {f00=0x0148, f01=0x0190, f02=»TE DMTASK WITH FDB ADDRESS IN A1 & P* ' ( PTIOD68 EQU * ' 2 P ENB ' F P ENB ' R P INH ' ^ P LDR A1,A6 FDB ADDRESS ' j P LDK A7,0 ' $ P LC A7,EXTDMI,A4 TID FOR DMTASK ' P ADKL A7,'#D' ' P CF A15,FNDTID A2:=TTAB ADDR ' P LDR A5,A2 '
0x24c0c8…24c25c Dummy {f00=0x0148, f01=0x0190, f02=»TE DMTASK ' | P* ( P* EXIT TO TDISP ( P* ( 6 P ABL TDISP ( @ P* ( R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x24c25c…24c3f0 Dummy {f00=0x0148, f01=0x4056, f02=»RESS ( , P ABL DISEND CALL TENDIO GOTO DISPATCHER ) P* ) < P END ) F@ ) R R P EJECT ( P* ( j P************** ( t P* TIODME * ( P************** ( P* ( J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER (
0x24c3f0…24c584 Dummy {f00=0x0148, f01=0x2008, f02=» *
0x24c584…24c718 Dummy {f00=0x0148, f01=0x0000, f02=»
[…0x2…]
0x24ca40…24cbd4 (2, 336) Opaque[0x194]
0x24cbd4…24cd68 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21c8, f03=0x0000}
0x24cbd4…24cd68 IdxSect {
0x24cbd4…24cd68 f00 = 0x010e // 0x24cbd4 @0x0
0x24cbd4…24cd68 f01 = 0x0026 // 0x24cbd6 @0x2
0x24cbd4…24cd68 gno = [ // 0x24cbd8 @0x4
0x24cbd4…24cd68 [0x00]: C0x010e.0x1.0
0x24cbd4…24cd68 [0x01]: C0x013f.0x3.0
0x24cbd4…24cd68 [0x02]: C0x0140.0x0.0
0x24cbd4…24cd68 [0x03]: C0x0140.0x1.0
0x24cbd4…24cd68 [0x04]: C0x0140.0x2.0
0x24cbd4…24cd68 [0x05]: C0x0148.0x3.0
0x24cbd4…24cd68 [0x06]: C0x0149.0x0.0
0x24cbd4…24cd68 [0x07]: C0x0149.0x2.0
0x24cbd4…24cd68 [0x08]: C0x0149.0x3.0
0x24cbd4…24cd68 [0x09]: C0x014a.0x0.0
0x24cbd4…24cd68 [0x0a]: C0x014a.0x1.0
0x24cbd4…24cd68 [0x0b]: C0x014a.0x2.0
0x24cbd4…24cd68 [0x0c]: C0x014a.0x3.0
0x24cbd4…24cd68 [0x0d]: C0x014b.0x0.0
0x24cbd4…24cd68 [0x0e]: C0x014b.0x1.0
0x24cbd4…24cd68 [0x0f]: C0x014b.0x2.0
0x24cbd4…24cd68 [0x10]: C0x014b.0x3.0
0x24cbd4…24cd68 [0x11]: C0x014c.0x0.0
0x24cbd4…24cd68 [0x12]: C0x014c.0x1.0
0x24cbd4…24cd68 ]
0x24cbd4…24cd68 }
0x24cd68…24cefc Dummy {f00=0x010e, f01=0x0190, f02=» 2 P IDENT DMTASK REL 9.2 79-11-16 870105040920 P : P =5, PR5649 B P REL 9.1 79-11-01 X P =4,CURRENCY INSERT t P REL 9.1 79-07-02 P =3,TEST KEY P REL 9.1 79-07-02 P =2,CH REQ P REL 8.2 P
0x24cefc…24d090 Dummy {f00=0x010e, f01=0x0190, f02=»M PTS v P* 0 P* DMTASK = HANDLES DATAMANAGEMENT DISC I/O P* L P* V P* ` P* j P* t 8 P**************************************************** ~ P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT
0x24d090…24d224 Dummy {f00=0x010e, f01=0x0190, f02=» TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR > F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET | D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT
0x24d224…24d3b8 Dummy {f00=0x010e, f01=0x0190, f02=»N AND ARE V ( P* FOLLOWED BY AN EXIT LKM REQUEST. : P* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE > & P* ALL I/O ARE MADE IN WAIT MODE | P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK 6 P* FOR INDEXED
0x24d3b8…24d54c Dummy {f00=0x010e, f01=0x018e, f02=»SIVE ACCESS CHECK INCLUDED | 2 P* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED " P EJECT X P* f P*************** p P* ENTRIES * P*************** P* P* P ENTRY DMTASK & P ENTRY SQR EXTERNAL CODE SEQ READ
0x24d54c…24d6e0 Dummy {f00=0x010e, f01=0x0190, f02=» | P***************** P* " P* , P EXTRN SCTTCT,SCTCDT 6 & P EXTRN TTB:ID TASK IDENTIFICATION R P EXTRN TTB:TD,FDBSTA | P EXTRN FNDTID P EXTRN TENDIO P EXTRN FDBECB P EXTRN FDBSNR P EXTRN FDBRRO P E
0x24d6e0…24d874 (2, 337) Dummy {f00=0x013f, f01=0x0190, f02=» EXTDMI P EXTRN EXTFC P EXTRN EXTLEN $ P EXTRN EXTBAS : P EXTRN EXTELE P P EXTRN FDBLRN f P EXTRN FDBMIA | P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDBAI1 P EXTRN FDBCRL P EXTRN FDBDBR,FDBMRN,FDBMRO
0x24d874…24da08 Dummy {f00=0x013f, f01=0x0190, f02=»BUF P EXTRN BUFLNK P EXTRN BUFDMI " P EXTRN BUFFC 8 P EXTRN BUFSNR L P EXTRN BUFOR b P EXTRN BUFSTA v P EXTRN CURBUF P EXTRN DWTECB P EXTRN DWTUEC P EXTRN DWTOR P EXTRN DWTST,DWTTDM,DWTTQ P EXT
0x24da08…24db9c Dummy {f00=0x013f, f01=0x0190, f02=»DIVMOD P EXTRN MPYMOD,CHKKEY P EXTRN CALSNO * P EXTRN DSUMOD @ . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU V P EXTRN QTJOB,GTLGRN P EXTRN FNDKEY P EXTRN CRNCIF,CRNCDF,CRNQUE P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RD
0x24db9c…24dd30 Dummy {f00=0x013f, f01=0x0190, f02=»VE FROM USER TO SYSTEM AREA 0 P EXTRN MOV:SU MOVE FROM SYSTEM TO USER AREA $ P EXTRN MONMMU X , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK n P EXTRN TTB:MT MMU TABLE ( P EXTRN SCTPLD PROGRAM LOADING DEVICE P EJECT P* P*
0x24dd30…24dec4 Dummy {f00=0x013f, f01=0x0190, f02=»LUSIVE ACCESS BIT CAN BE EXCLUDED AT 8 P* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. , P* h P* r PX:A EQU 1 | PX:B EQU 0 PX:C EQU 0 PX:D EQU 1 PX:E EQU 0 P* PQNOEXA EQU 00001 6 P* INDEXED ACCE
0x24dec4…24e058 Dummy {f00=0x013f, f01=0x018e, f02=»TED b PINDXAC EQU 00000 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS $ 4 PFLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 ^ 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 P* P EJECT DMTASK P* P* . P* A PROG
0x24e058…24e1ec Dummy {f00=0x013f, f01=0x0190, f02=» . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. 6 * d DSKPAG EQU 0 n * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P*
0x24e1ec…24e380 Dummy {f00=0x013f, f01=0x0190, f02=»************** P* P* , PEABIT EQU /20 EA-BIT IN DWT STATUS BYTE * P* Z & PVTOBLK EQU 9 VTOC BLOCKING FACTOR d P* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF P*
0x24e380…24e514 (2, 338) Dummy {f00=0x0140, f01=0x0190, f02=»XAC=1 " P DATA DMIRN INDEXED READ NEXT PQINS EQU 6 4 P DATA DMINS INDEXED INSERT F PQDEL EQU 8 h P DATA DMDEL INDEXED DELETE z PQIRW EQU 10 P DATA DMIRW INDEXED REWRITE $ P DATA DMIRR INDEXED RANDOM RESAD P XIF P
0x24e514…24e6a8 Dummy {f00=0x0140, f01=0x0190, f02=»DOM DELETE PQRW EQU 16 P DATA DMRDWR RANDOM WRITE $ PQRR EQU 18 F P DATA DMRDRE RANDOM READ X PQREA EQU 20 x * P DATA DMTERR RELEASE EXCLUSIVE ACCESS PQSW EQU 22 " P DATA DMSQWR SEQUENTIAL WRITE * PSQR EQU 2 EXTERNAL ORD
0x24e6a8…24e83c Dummy {f00=0x0140, f01=0x0190, f02=» INDXAC=1 PQINIX EQU 28 P DATA DMINIX INSERT INDEX & PQDELX EQU 30 H P DATA DMDELX DELETE INDEX P XIF ~ P IFF INDXAC=1 P DATA DMTERR,DMTERR P XIF PQGCURX EQU 32 " P DATA DMTERR GET CURRENT INDEX PQRWD
0x24e83c…24e9d0 Dummy {f00=0x0140, f01=0x0190, f02=» $ P DATA DMRRRB RAND READ REL BUFF P* , $ PVTOCRL DATA 0 VTOC RECORD LENGTH 6 P EJECT ^ P* l P************** v P* DMTFRL * P************** P* , P* ENTRY DMTFRL FIND RECORD LENGTH P* 4 P* INPUT
0x24e9d0…24eb64 Dummy {f00=0x0140, f01=0x0190, f02=»OUTPUT A2 = RECORD LENGTH TO BE USED < P* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH . & P* A2 IS STORED IN ECBEL n P* PDMTFRL EQU * P LD A2,ECBRL,A9 P CW A2,FDBRLE,A6 $ P RF(E) DMTF20 ECBRL = REC LENGTH
0x24eb64…24ecf8 Dummy {f00=0x0140, f01=0x0190, f02=»ETURN CODE t . PDMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH P RTN A14 D P EJECT T P* b P************ l P* DMTWM * P************ P* " P* ENTRY DMTWM WORD MOVE P* " P* INPUT A1 = FROM ADDRESS , P
0x24ecf8…24ee8c Dummy {f00=0x0140, f01=0x0190, f02=» P* PDMTWM EQU * P SUK A2,2 & " P RF(N) DMTW10 LAST WORD MOVED 8 P LDR* A4,A1 ^ P STR A4,A3 r P ADK A1,2 P ADK A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 P LCR A4,A1 MOVE LAST CHAR
0x24ee8c…24f020 Dummy {f00=0x0140, f01=0x0190, f02=» " P* ENTRY DMTBM BYTE MOVE P* . " P* INPUT A1 = FROM ADDRESS 8 , P* A2 = NO OF BYTES TO BE MOVED ^ P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* OUTPUT A3 = NEXT CHAR
0x24f020…24f1b4 (2, 339) Dummy {f00=0x0140, f01=0x0190, f02=» P ADK A1,1 P ADK A3,1 P RB DMTBM ( PDMTB10 RTN A14 : P* P 2 P* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT Z P* MOVES FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 PDMTB20 SUK A2,1 P RB(N) DMTB10
0x24f1b4…24f348 Dummy {f00=0x0140, f01=0x0190, f02=»**************************** x P* $ : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE . P* l 8 P****ENTRY PARAMETERS******************************** v P* P* A1 = TTAB ADDR $ P* A2 = FILE CODE TO SEARCH FOR 4 P* A5 NOT
0x24f348…24f4dc Dummy {f00=0x0140, f01=0x0190, f02=»NCHANGED 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 P* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND F 2 P* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB P* 8 P****USED REGISTERS********************************** P* P*
0x24f4dc…24f670 Dummy {f00=0x0140, f01=0x0190, f02=»* PFNDFDB EQU * & P LD A3,TTB:TD,A1 LENGTH DEV DESCR PFND030 EQU * H P SUK A3,4 ( P RF(NP) FND040 FILE CODE NOT IN TTAB n P LDR A4,A1 P ADKL A4,TTB:TD =1 P ADR A4,A3 P CWR* A2,A4 =1 P RB(NE) FND030 P
0x24f670…24f804 Dummy {f00=0x0140, f01=0x0190, f02=» EQU * P LDR A5,A5 ( P RF(NZ) FND060 ONLY TTAB IS SEACHED P LD* A4,SCTCDT L PFND050 EQU * b P SUK A4,4 v ( P RF(NP) FND060 CODE NOT FOUND AT ALL P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 =1 P RB(NE) FND050
0x24f804…24f998 Dummy {f00=0x0140, f01=0x0190, f02=» EJECT P* P************** P* DMTREM * . P************** D P* Z D P* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA d P* 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN
0x24f998…24fb2c Dummy {f00=0x0140, f01=0x0190, f02=»HE RECORD > P* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE B P* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE T > P* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE
0x24fb2c…24fcc0 Dummy {f00=0x0140, f01=0x0190, f02=» LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRESS P XRR A4,A3 4 P ANK A4,/01 F ( P RF(Z) DMT210 BOTH ODD OR BOTH EVEN Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P RF DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 P RF(E) DMT220 BO
0x24fcc0…24fe54 (2, 340) Dummy {f00=0x0140, f01=0x0190, f02=»RD MOVE z PDMT225 EQU * P XIF $ P* 0 P IFT MMUPAG=1 : & P LD A4,DWTTDM,A6 GET TTAB ADDRESS P $ P LC A3,TTB:ID,A4 ID CALLING TASK z P CCK A3,'##' P RF(NE) DMTREN NOT DMTASK P LDK A3,QRR P CC A3,DWTOR+1,A6 " P R
0x24fe54…24ffe8 Dummy {f00=0x0140, f01=0x0190, f02=»SER TTAB ~ PDMTREN EQU * P INH $ $ P TL TTB:MT,A4 LOAD MMU REGISTERS 0 PDMTREP EQU * X $ P LD A4,PRUN GET DM TTAB ADDRESS l 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE P ENB P LDR A3,A2 GET LENGTH 0 P LD A2,ECBBA,A9 GET RE
0x24ffe8…25017c Dummy {f00=0x0140, f01=0x018e, f02=»PAG=1 PDMTREQ INH P TL MONMMU SYSTEM MMU P RB DMTREP > P XIF P P EJECT P* j P* SET UP A14 STACK t P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14 LENGTH DEVICE DESCR P ADK
0x25017c…250310 Dummy {f00=0x0140, f01=0x0190, f02=» P************** ! P* ! P* ! ( PDMTASK EQU * ! 2 P* ! F P* SET UP A14 STACK ! P P* ! l P CF A15,GETA14 ! v P LDR A6,A1 FDB ADDR ! P LDKL A5,-1 ! * P CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 ! 2 P RF(E) DMT090 FOR ORDERS XR,DX
0x250310…2504a4 Dummy {f00=0x0140, f01=0x0190, f02=»1 ! P ANK A2,/3F " P CWK A2,QCL " P RF(E) DMT024 CLOSE " 2 P CWK A2,QRV " N P RF(E) DMT024 READ VTOC " b P SUK A2,QRRRB " & P RF(E) DMT024 RAND READ REL BUFFER " P ORKL A4,/100 " PDMT024 EQU * " P ST A4,FDBDBR,A1 " PDMT0
0x2504a4…250638 Dummy {f00=0x0140, f01=0x0190, f02=»80 BUFFER WAS BEFORE " P* # ( P* READ SECTOR INTO BUFFER AND EXIT # & P* # R P SUK A5,QCL # P RF(Z) DMT030 CLOSE # p P LDK A7,/11 PHYSICAL READ # P LKM # P DATA -1 I/O AND ACTIVATION # " P DATA DMTAR1 DMTASK RESTART #1 # P LKM
0x250638…2507cc Dummy {f00=0x0140, f01=0x0190, f02=»T050 CHECK RETURN CODES # P EJECT $ P************** $ . P* DMTAR1 * $ D P************** $ Z P* RESTART POINT AFTER READ $ p P* $ PDMTAR1 EQU * $ P* $ P* SET UP A14 STACK $ P* $ P CF A15,GETA14 $ PDMT050 EQU * $
0x2507cc…250960 Dummy {f00=0x0140, f01=0x0190, f02=» $ 0 PDMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER % P LDR A5,A3 % < P ADK A5,8 SKIP BUFFER HEADER % N * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB % r PDMT090 EQU * % P* % 4 P* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR % P* % P ADK A5,
0x250960…250af4 (2, 341) Dummy {f00=0x0148, f01=0x0190, f02=» TABLE % r P EJECT & $ PDMRRRB EQU * RAND READ REL BUFF & P* & D PDMSQRE EQU * SEQUENTIAL READ & N P* & r PDMRDRE EQU * RANDOM READ & | P* & 4 P* CHECK STATUS IF NOT USED THEN ERROR RETURN & P* & P LD A2,FDBRRO,A6 & P AD A2,F
0x250af4…250c88 Dummy {f00=0x0148, f01=0x018e, f02=»A & | P ABL DMTERR ' & PDMT200 LDK A1,/8 INCORRECT LENGTH ' & P CF A14,DMTFRL A2 := RECORD LENGTH ' H P* ' r P* MOVE THE RECORD ' | P* ' P CF A14,DMTREM ' P* ' 0 P* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT ' P* ' PDMT230 E
0x250c88…250e1c Dummy {f00=0x0148, f01=0x0190, f02=» ' t P* ( P LD A2,FDBSNR,A6 ( ( P RF(NZ) DMT270 VTOC SECTOR IN BUFFER ( * P* ( V P* VOLUME LABEL IN BUFFER ( ` H P* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR ( 8 P* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER (
0x250e1c…250fb0 Dummy {f00=0x0148, f01=0x0190, f02=»OBLK VTOC BLOCKING FACTIOR ( ( P LD A2,FDBVTO,A10 VTOC RECORD NUMBER ) " P LDK A1,0 ) N , P CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER ) ` P LDR A3,A2 QUOTIENT ) P LDR A6,A10 FDB ADDR ) P LDR A2,A1 REST ) P RF(Z) DMT240 REST = 0 ) $ P ADK A3,1
0x250fb0…251144 Dummy {f00=0x0148, f01=0x0190, f02=» P ST A3,FDBSNR,A6 * P LDK A3,0 * PDMT255 SUK A2,1 * . P RF(Z) DMT260 * F P AD A3,VLVRL-2,A5 * P ADK A3,1 SKIP STATUS BYTE * v P RB DMT255 * PDMT260 ST A3,FDBRRO,A6 * P* * P* RELEASE BUFFER * P* * P LD A3,ECBBA,A9 *
0x251144…2512d8 Dummy {f00=0x0148, f01=0x0190, f02=» ADDR * P RB DMT020 READ VTOC SECTOR + P EJECT + 2 PDMT270 EQU * + @ P SUK A7,QRV + T $ P ABL(Z) DMT500 READ VTOC RECORD + h P* CLOSE FILE + & P* UPDATE VTOC LAST RECORD NUMBER + & P* AND WRITE SECTOR BACK ON DISC + P AD A5,FDBRRO,
0x2512d8…25146c Dummy {f00=0x0148, f01=0x0190, f02=»E FILE. WRITE VTOC + P* , P LDK A7,/95 , $ P LKM , 8 P DATA 1 , D P* , T P LDR A1,A6 FDBADDRESS IN A1 , ^ & P CF A14,DMTIOT CHECK RETURN CODES , P LDR A1,A1 , P RF(NZ) DMT724 ERROR , PDMT720 EQU * , P LD A1,DWTTDM,A6 TTAB ADDR
0x25146c…251600 Dummy {f00=0x0148, f01=0x0190, f02=» A2,1 0 OR 1 , P ECR A2,A2 =1 END - P LC A2,ECBFC,A9 FILE CODE - . " P LDK A5,0 TRY LOCAL AND GLOBAL - P . P CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB - v & P LDR A13,A5 LOCAL/GLOBAL INDICATOR - P LDR A2,A2 - P RF(NZ) DMT725 FC FOUND - P LDK
0x251600…251794 (2, 342) Dummy {f00=0x0149, f01=0x0190, f02=»R - p P LDR A12,A1 SAVE TTEAB ADDR . 4 P SUR A10,A10 MARK THAT FDB NOT SHALL BE RELEASED . . P EJECT . f 0 P* CHECK IF THIS FDB ADDR IS USED ELEWHERE . t P* . P* SEARCH ALL TTABS . P* . P LD* A2,SCTTCT . PDMT730 EQU * . P SUK A
0x251794…251928 Dummy {f00=0x0149, f01=0x018e, f02=»K ID . | P CCK A3,'##' / & P RB(E) DMT730 JUMP IF MONITOR TASK / P LD A3,TTB:TD,A1 / J ( P ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 / b PDMT770 EQU * / P SUK A3,4 / $ P RB(NP) DMT730 NOT IN THIS TTAB / P LDR A4,A1 / P ADR A4,A3 / P CWR* A5
0x251928…251abc Dummy {f00=0x0149, f01=0x0190, f02=» / v & P RF DMT895 MORE USERS ON THIS FDB 0 P* 0 2 P* NOW SEARCH SCTCDT 0 < P* 0 Z PDMT780 EQU * 0 d P LD* A4,SCTCDT 0 x PDMT790 EQU * 0 P SUK A4,4 0 . P RF(NP) DMT800 THIS FDB HAS NO OTHER USER 0 P LD A2,SCTCDT 0 P ADR A2,A4 0
0x251abc…251c50 Dummy {f00=0x0149, f01=0x018e, f02=» & P RF DMT895 THIS FDB HAS MORE USERS 1 P EJECT 1 . P* 1 < P* NOW RELEASE THIS FDB 1 F P* 1 f PDMT800 EQU * 1 p P* 1 P* RELEASE EA-BUFFERS 1 P* 1 . P LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED 1 P LDR A1,A6 FDB ADDR 1 P CF
0x251c50…251de4 Dummy {f00=0x0149, f01=0x0190, f02=» 1 P CMR A5 CLEAR FDB 2 P RF DMT830 2 " PDMT820 EQU * 2 4 P LDR A4,A5 BUFFER ADDRESS 2 H PDMT830 EQU * 2 j & P RF(Z) DMT840 ALL BUFFER S REMOVED 2 ~ $ P LDR* A5,A4 NEXT BUFFER ADDRESS 2 P* 2 P* RETIURN BUFFER TO POOL 2 P* 2 P I
0x251de4…251f78 Dummy {f00=0x0149, f01=0x0190, f02=» 2 P* 3 < P* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON 3 > P* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME 3 R P* 3 P LDK A1,4 EXTENT COUNTER 3 P LDR A5,A6 FDB ADDR 3 . P ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE 3
0x251f78…25210c Dummy {f00=0x0149, f01=0x0190, f02=»1 LOOP 3 & P ABL(NN) DMT900 CHECK THIS EXTENT 4 P XIF 4 8 P IFT INDXAC=1 4 D P EJECT 4 Z P* 4 h P* ALL EXTENTS CHECKED 4 r P* RELEASE MASRTER INDEX 4 P* 4 P INH 4 & P LD A1,FDBMIA,A6 MASTER INDEX ADDR 4 P RF(Z) DMT894 NO MAT
0x25210c…2522a0 Dummy {f00=0x0149, f01=0x018e, f02=» DMT894 NO MATER IX 4 P CW A1,MXIND+2,A5 5 P RB(NE) DMT885 5 6 P LD A4,MXIND,A5 5 L & P RF(N) DMT890 PREVIOUS ENTRY USED 5 d " P LD A4,MXIND+4,A5 NO OF WORDS 5 P ANKL A4,/7FFF REMOV USE BIT 5 P ADS A4,MXIND,A5 NR OF WORDS 5 P* 5 P*
0x2522a0…252434 (2, 343) Dummy {f00=0x0149, f01=0x0190, f02=» P LD A2,MXIND 6 P SUR A2,A5 6 P SUK A2,2 NO OF CHAR 6 * P CF A14,DMTWM MOVE UOP 6 F P RF DMT894 6 d PDMT890 EQU * 6 v P LDKL A4,/7FFF 6 & P ANS A4,MXIND+4,A5 REMOVE USE BIT 6 P XIF 6 P EJECT 6 PDMT894 EQU * 6 0 P LDKL A10,1 MARK
0x252434…2525c8 Dummy {f00=0x0149, f01=0x0190, f02=»11 FILE CODE 6 P CM 2,A11 FDB ADDR 7 P* 7 . * P* RELEASE DWT-QUEUQ IN THIS FDB-DWT 7 8 P* 7 f P LDR A1,A6 FDBADDR 7 p $ P ADKL A1,DWTTQ ADDR QUEUE START 7 P LDR* A5,A1 NEXT TTAB ADDR 7 P RF(Z) DMTA20 NO Q 7 P CMR A1 KILL ROOT 7 $ P
0x2525c8…25275c Dummy {f00=0x0149, f01=0x0190, f02=» 7 P* 8 " P* NEXT ENTRY IN TTAB/CDATAB 8 P* 8 8 P LDR A1,A12 TTAB ADDR 8 B P LDK A2,0 8 ` ( P LC A2,ECBFC,A9 FILE CODE USERT ECB 8 r & P LDR A5,A13 LOCAL/GLOBAL INDICATOR 8 & P CF A14,FNDFDB SEARCH TTAB SCTCDT 8 P LDK A7,0 INDICATES A2
0x25275c…2528f0 Dummy {f00=0x0149, f01=0x018e, f02=»ALL ALSO BE RELEASED 8 | P* 9 & P LD A7,2,A4 NEXT FDB ADDR TO CLOSE 9 & P LDK A1,2 9 P P ADR A1,A6 FROM ADDR 9 b P LDK A3,2 9 ~ P ADR A3,A7 TO ADDR 9 P LDK A2,12 NO OF BYTES 9 P CF A14,DMTWM MOVE DWT 9 P IFT MMUPAG=1 9 P LD A3,DWTUE
0x2528f0…252a84 Dummy {f00=0x0149, f01=0x018e, f02=» 9 x P CM FDBSNR,A7 SECTOR NR : P LDKL A3,FDBEXT : ( P ADR A3,A7 : @ P ST A3,FDBCEX,A7 1ST EXTENT : R P LDR A10,A10 =1 : v P RF(Z) DMTA30 NO RELEASE =1 : P LDKL A3,/8000 : P ST A3,DWTST,A6 NOT BUSY : PDMTA30 EQU * : P XIF : P
0x252a84…252c18 Dummy {f00=0x0149, f01=0x0190, f02=» P* RELEASE FDB ; P* ; P LDR A10,A10 ; & P RF(Z) DMTA40 NO RELEASE ; : P IFT INDXAC=1 ; Z P* ; p 0 P* REMOVE ALL OTHER REFERAENCES TO THIS FDB ; z P* ; P LDK A1,10 2*MAX NR OF FDBS ; PDMTA50 SUK A1,2 ; " P RF(N) DMTA70 ALL FD
0x252c18…252dac Dummy {f00=0x0149, f01=0x0190, f02=»OF FDBS ; | PDMTA60 SUK A4,2 < 0 P RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB < ( P LDR A5,A3 < P ADR A5,A4 < n P CW A6,FDBADF,A5 < P RB(NE) DMTA60 < P* < @ P* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED < P* < P C
0x252dac…252f40 Dummy {f00=0x0149, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x252f40…2530d4 (2, 344) Dummy {f00=0x0149, f01=0x0190, f02=» P LKM > P DATA 3 EXIT > P XIF > $ P IFT FLXDSC=1 > 0 P EJECT > F PDMT900 EQU * > T $ P* UNLOCK FLEXDISC IN THIS LOOP > h P* > P* REGISTERS > P* A1 = EXTENT COUNTER > 6 P* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR >
0x2530d4…253268 Dummy {f00=0x0149, f01=0x0190, f02=»NGTH IN FDB > z P LCR A7,A5 VOLUME CODE ? P ANK A7,/FF ? 2 P ABL(Z) DMT880 NO CODE ? F P* ? d & P* FLEXDICSC IF BIT 8-13 = 111110 ? n P* ? P ANK A7,/F8 ? P SUK A7,/F8 ? P ABL(NE) DMT880 NO FLEXDISC ? P* ? 6 P* IF SAME FLEX
0x253268…2533fc Dummy {f00=0x0149, f01=0x0190, f02=»THOIS FLEXIBLE DISC VOL CODE ? t P* @ $ PDMT910 EQU * @ . P LCR A4,A5 SAVE VOL CODE @ B " P LDKL A3,FDBSTA FDB LINK ROOT @ b P INH INH @ P RF DMT925 @ PDMT920 EQU * @ P LDR* A3,A3 FDB ADDR @ PDMT925 EQU * @ P ANKL A3,/FFFE FDB ADD
0x2533fc…253590 Dummy {f00=0x0149, f01=0x018e, f02=» DMT920 CURRENT FDB @ P LDK A7,4 EXTENT COUNTER A P LDR A2,A3 FDB ADDR A < P ADKL A2,FDBEXT+1 A X P* ADDR OF 1ST VOL CODE A r & P SUKL A2,EXTELE EXT LENGTH IN FDB A PDMT930 EQU * A P SUK A7,1 A & P RB(N) DMT920 ALL EXTENTS CHECKED A
0x253590…253724 Dummy {f00=0x0149, f01=0x018e, f02=» A & P* ALL FSDBS CHECKED. MAKE UNLOAD B P* B 2 PDMT980 EQU * B < P ENB ENB B P P* B b 6 P* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED B l P* WITH THIS REQUEST B P* B P SC A4,ECBFC,A8 VOL CODE B P* B P IFF DSKPAG+SWPB
0x253724…2538b8 Dummy {f00=0x0149, f01=0x0190, f02=» P IFT FLXDSC=1 C P LDK A7,/B8 UNLOAD WAIT C P LKM C : P DATA 1 C F P LD A1,ECBRC,A8 C V P ANK A1,1 INOPER C n P ABL(NZ) DMTERR C P ABL DMT880 CHECK NEXT EXT C P XIF C P EJECT C " PDMT500 EQU * READ VTOC RECORD C P* C "
0x2538b8…253a4c Dummy {f00=0x0149, f01=0x0190, f02=»H C v ( P ORS A1,ECBRC,A9 SET RC BUT CONTINUE D , P LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU D 6 PDMT510 EQU * D f P ST A2,ECBEL,A9 D z P CF A14,DMTREM MOVE RECORD D PDMAEX EQU * D P ABL DMTAEX EXIT D P EJECT D " PDMSQWR EQU * SEQUENTIAL WR
0x253a4c…253be0 Dummy {f00=0x0149, f01=0x0190, f02=» D v P* E PDMDEL EQU * INDEXED DELETE E P* E 4 PDMIRW EQU * INDEXED REWRITE E > P* E b & PDMRDWD EQU * DELAYED RANDOM WRITE E l P* E & PDMRDDD EQU * DELAYED RANDOM DELETE E P* E P* TEST STATUS E P LD A10,FDBRRO,A6 E P A
0x253be0…253d74 (2, 345) Dummy {f00=0x014a, f01=0x0190, f02=»+2,A9 E P ANK A2,/FF F P LD A3,ECBCW,A9 LOG REC NR F " P LDK A4,0 F D P CCR A4,A10 F V P RF(E) DMS010 FREE F j P IFT INDXAC=1 F P LDR A4,A7 F P SUK A4,QINS F P RF(E) DMEAER INDEXED INSERT F P XIF F P LDR A4,A7 F P SUK A
0x253d74…253f08 Dummy {f00=0x014a, f01=0x0190, f02=» P ANK A4,EABIT G " P RF(NZ) DMS020 EA=1, NO CHECK G P* EA MUST BE SET G @ P* G Z P CF A14,EATEST G d P LDR A4,A4 RTN CODE G z " P RF(NP) DMEAER NO EA THIS TASK G P XIF G P RF DMS100 G PDMS010 EQU * G P IFT INDXAC=1 G P LDR
0x253f08…25409c Dummy {f00=0x014a, f01=0x0190, f02=»TE G v P XIF H PDMS020 EQU * H P CF A14,EATEST H * P LDR A4,A4 RTN CODE H @ P RF(N) DMEAER EA OTHER TASK H PDMS100 EQU * H P LDK A1,0 SET STATUS FREE H P IFT INDXAC=1 H P LDR A2,A7 H P SUK A2,QIRW H " P RF(E) CHK010 INDEXED
0x25409c…254230 Dummy {f00=0x014a, f01=0x0190, f02=»HK010 INDEXED DELETE H P XIF I P LDR A2,A7 I ( P SUK A2,QRD I : P RF(E) DMT350 RANDOM DELETE I N P LDR A2,A7 I r P SUK A2,QRDD I ( P RF(E) DMT350 DELAYED RANDOM DELETE I P RF DMT310 RW,RWD,SW I P IFT INDXAC=1 I P EJECT I PCHK0
0x254230…2543c4 Dummy {f00=0x014a, f01=0x0190, f02=»* COMPARE KEYS IN FILE AND USER BUFFER I P* J 0 P LDR A1,A6 FDB ADDR J : P LDK A5,8 MAX 4 INDEX J V P SUR A12,A12 INDEX COUNTER J t PCHK040 EQU * J P SUK A5,2 J $ P RF(N) CHK100 ALL INDEX CHECKED J P LDR A2,A1 FDB ADD J P ADR A2,A5
0x2543c4…254558 Dummy {f00=0x014a, f01=0x0190, f02=»ORDER =3 J P ANK A2,/3F ORDER INDEX K P SUK A2,QIRW K 0 & P RB(NE) CHK040 NOT INDEXED REWRITE K D P* K n P IFT MMUPAG=1 K x P LDR A7,A1 SAVE A1 K * P LD A1,FDBKA,A6 GET KEY START ADDRESS K P AD A1,ECBBA,A9 K 2 P LDKL A2,FDBKEY GET KEY SA
0x254558…2546ec Dummy {f00=0x014a, f01=0x0190, f02=»6 KEY LENGTH K P INH L & P LD A4,DWTTDM,A7 GET TTAB ADDRESS L $ P TL TTB:MT,A4 LOAD MMU REGISTERS L J $ P LD A4,PRUN GET DM TTAB ADDRESS L r 0 P TS TTB:MT,A4 STORE USER MMU IN DM MMU TABLE L P ENB L , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA L
0x2546ec…254880 Dummy {f00=0x014a, f01=0x0190, f02=»NDXAC=1 L P IFT MMUPAG=0 M " P LD A2,FDBKA,A6 KEY START ADDR M & P LDR A3,A2 M L " P AD A2,ECBBA,A9 KEY IN BUFFER M ^ P XIF M P* M P IFT INDXAC=1 M P AD A3,FDBRRO,A1 M P ADR A3,A11 KEY IN FILE M P LDK A7,0 M " P LD A6,FDBRLE,
0x254880…254a14 (2, 346) Dummy {f00=0x014a, f01=0x0190, f02=»ECK NEXT M r P LDR A6,A1 FDB ADDR N P LDKL A1,/4000 KEY NOT FOUND N , P RF DMERR N P PCHK100 EQU * N b P LDR A6,A1 FDB ADDR N v P LD A7,DWTOR,A6 N P ANK A7,/3F ORDER INDEX N P LDK A2,0 N P LC A2,FDBNIF,A6 N P CWR A2,A12 N ( P
0x254a14…254ba8 Dummy {f00=0x014a, f01=0x0190, f02=»R N P XIF O $ PDMEAER LDKL A1,/2000 EA PROTECT O PDMERR ABL DMTERR O > P EJECT O V P* O d P* MOVE RECORD O n P* O PDMT310 EQU * O P IFT INDXAC=1 O P LDR A2,A7 O P SUK A2,QDEL O " P ABL(E) DMXDEL INDEXED DELETE O P X
0x254ba8…254d3c Dummy {f00=0x014a, f01=0x0190, f02=»FROM ADDRESS O P* P P IFT MMUPAG=0 P P XRR A4,A1 P 4 P ANK A4,/01 P F ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN P Z & P CF A14,DMTBM ONE ODD AND ONE EVEN P P RF DMT340 P P* P PDMT320 LDR A4,A3 P P ANK A4,/01 P P RF(E) DMT330 BO
0x254d3c…254ed0 Dummy {f00=0x014a, f01=0x018e, f02=»RD MOVE P z P* Q P XIF Q P* Q & P IFT MMUPAG=1 Q 0 P LDR A3,A2 GET LENGTH Q F , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS Q d P INH Q & P LD A4,DWTTDM,A6 GET TTAB ADDRESS Q $ P TL TTB:MT,A4 LOAD MMU REGISTERS Q $ P LD A4,PRUN GET DM TTA
0x254ed0…255064 Dummy {f00=0x014a, f01=0x0190, f02=» Q Z P XIF R P* R PDMT340 EQU * R P* R 2 P* SET STATUS USED R < P* R X P LDK A1,/FF R b PDMT350 SCR A1,A10 R v P LD A3,FDBDBR,A6 R P RF(NN) DMT394 NO DELAY R P LDR A2,A7 R P SUK A2,QSW R " P RF(E) DMT360 SEQUENTIAL W
0x255064…2551f8 Dummy {f00=0x014a, f01=0x0190, f02=»NDOM DELETE R x P RF DMT390 S $ P* WRITE IF LAST REC IN SECTOR S & P* S N PDMT360 LD A4,FDBRRO,A6 S X P CW A4,FDBMRO,A6 S v " P RF(NE) DMT400 NOT LAST RECORD S " PDMT390 LDK A7,/05 BASIC WRITE S P SLL A3,1 S P RF(N) DMT395 BASIC WANTED S
0x2551f8…25538c Dummy {f00=0x014a, f01=0x0190, f02=»1,A6 FDB ADDRESS AS PARAMETER S P LKM T & P DATA -1 I/O AND ACTIVATION T 2 " P DATA DMTAR2 DMTASK RESTART #2 T V P LKM T | P DATA 3 EXIT T P EJECT T P* T P************** T P* DMTAR2 * T P************** T P* T P* T ,
0x25538c…255520 Dummy {f00=0x014a, f01=0x0190, f02=»4,DMTIOT CHECK DISC I/O T P LDR A1,A1 U P RF(NZ) DMTERR U 2 P LDKL A1,/C0FF U H $ P ANS A1,FDBDBR,A6 RELEASE BUFFER U ^ PDMT400 EQU * U " P LDR A1,A6 FDB ADDR DATA FILE U P LD A2,ECBCW+2,A9 U P ANK A2,/FF U P LD A3,ECBCW,A9 LOG REC NR
0x255520…2556b4 (2, 347) Dummy {f00=0x014a, f01=0x0190, f02=» RF(E) DMT460 SEQ WRITE U P LDK A4,QRD V P CWR A7,A4 V 4 P RF(E) DMT420 RAND DEL V F P LDK A4,QRDD V d P CWR A7,A4 V x ( P RF(E) DMT420 DELAYED RANDEOM DELETE V P IFT INDXAC=1 V P LDK A4,QDEL V P CWR A7,A4 V P RF(E) DMT420 INDEXED
0x2556b4…255848 Dummy {f00=0x014a, f01=0x0190, f02=»ET GET CRN BUFFER V P LDR A10,A2 BUFFER ADDR W P IFT INDXAC=1 =2 START W : P LDK A3,QIRW W Z P CWR A7,A3 W n " P RF(E) DMT410 INDEXED REWRITE W P XIF =2 END W P CM CRNCIF,A2 W P* CLEAR INDEX CRN W P CM CRNCIF+2,A2 W PDM
0x255848…2559dc Dummy {f00=0x014a, f01=0x018e, f02=»NCDF,A10 CRN FIL E CODE W P IFT INDXAC=1 X P LDK A4,QINS X 6 P CWR A7,A4 X J P RF(E) DMT460 INDEXED INSERT X P XIF X PDMT420 EQU * X P LDK A4,QSR X P CWR A7,A4 X P RF(E) DMT450 SEQ READ X P LDK A4,QRR X P CWR A7,A4 X
0x2559dc…255b70 Dummy {f00=0x014a, f01=0x018e, f02=» P* Y P* RELEASE EA Y P* Y $ P CF A14,EARELB REL EA Y . P RF DMTAEX Y L PDMT450 EQU * Y ^ P LC A4,DWTST,A1 DWTSTATUS Y r P ANK A4,EABIT EA-BIT Y & P RF(NZ) DMTAEX EA=1. NO EA WANTED Y P* Y " P* CHECK IF EA IS SET ALREADY Y
0x255b70…255d04 Dummy {f00=0x014a, f01=0x0190, f02=» P CF A14,EASETB Z P RF DMTAEX Z PDMT460 EQU * Z , P* Z @ P* UPDATE LRN Z J P* Z ` P SC A2,FDBLRN,A1 Z j P ST A3,FDBLRN+1,A1 Z P IFT INDXAC=1 Z P LDK A4,QINS Z P CWR A7,A4 Z " P ABL(E) DMINS2 INDEXED INSERT Z P XIF Z
0x255d04…255e98 Dummy {f00=0x014a, f01=0x0190, f02=»3F00 Z ( P RF(NZ) DMTERX NO RELEASE OF BUFFER [ PDMTEX1 LD A3,ECBBA,A8 [ 8 P SUK A3,8 [ V PDMTEX2 EQU * [ h ( P CF A14,DMTRBU RELEASE BUFFER AT A3 [ | PDMTERX EQU * [ P INH [ P* A1 = RET CODE [ P* A6 = DWT ADDR [ P CF A15,TEND
0x255e98…25602c Dummy {f00=0x014a, f01=0x0190, f02=»RANDOM READ [ 2 P********************************************* " P LD A9,DWTECB,A1 USER ECB ADDR J P IFT MMUPAG=0 p P LD A8,ECBCW,A9 ADDR OF KEY P XIF P IFT INDXAC=1 P IFT MMUPAG=1 P LDR A8,A1 FDB ADDR " P ADKL A8,F
0x25602c…2561c0 Dummy {f00=0x014a, f01=0x018e, f02=» LDR A13,A1 P ADKL A13,FDBECB ECB ADDR ] $ P CF A14,FNDKEY GET INDEX RECORD ] 6 ( PDMR006 EQU * FROM INDEXED READ NEXT ] ^ P LD A9,DWTECB,A1 ] P LDR A6,A1 FDB ADR ] P LDKL A8,FDBECB ] P ADR A8,A6 ECB ADDRESS ] P LDR A2,A2 RETURN CODE
0x2561c0…256354 (2, 348) Dummy {f00=0x014a, f01=0x018e, f02=» ] " P LD A2,FDBRRO,A1 RECORD OFFSET ^ P ADK A2,10 BUFFER HEADER ^ . P ADR A2,A3 REC ADDR ^ N P LD A4,FDBRLE,A1 REC LENGTH ^ j P SUK A4,6 KEY LENGTH ^ P ADR A2,A4 ^ " P CC A4,2,A2 DUPLICATE KEY CHAR ^ $ P RF(NE) DMR020 NEXT KEY NOT SAME ^
0x256354…2564e8 Dummy {f00=0x014a, f01=0x0190, f02=» ^ P LDK A5,0 _ P LC A5,3,A2 _ P SC A5,ECBCW+3,A8 _ . P LC A5,4,A2 _ H P ECR A5,A5 _ P LC A5,5,A2 _ n P ST A5,ECBCW,A8 _ P* _ P* RELEASE BLOCK BUFFER _ P* _ P CF A14,DMTRBU _ P EJECT _ P* _ 0 P* PERFORM
0x2564e8…25667c Dummy {f00=0x014a, f01=0x018e, f02=» BIT _ | P SLL A2,1 ` " P LDK A7,/A RANDOM READ NO WAIT ` P ORR A7,A2 EA BIT ` D P* ` ^ P* MOVE USER ECB ` h P* ` P LDR A1,A9 FROM ECB ADDR ` P LDR A3,A8 TO ECB ADDR ` P LDK A2,6 NO OF CHAR ` P CF A14,DMTWM MOVE ECB ` P LDR
0x25667c…256810 Dummy {f00=0x014a, f01=0x0190, f02=» P DATA 3 EXIT a PDMTAR4 EQU * a P* a , P* SET UP A14 STACK a 6 P* a R P CF A15,GETA14 a P LDR A6,A1 a r P LDKL A8,FDBECB a P ADR A8,A6 RR ECB a P LD A9,DWTECB,A6 USER ECB a P LD A1,ECBRC,A8 a & P ORS A1,ECBRC,A9 RET COD
0x256810…2569a4 Dummy {f00=0x014a, f01=0x0190, f02=»LE a x P* b ( P LD A1,FDBADF,A6 FDB ADDR DATA FILEP b & P CF A14,CRNGET GET CRN BUFFER ADDR b @ P LDR A10,A2 CRN BUFFER ADDR b j " P LDR A1,A6 FDB ADDR INDEX FILE b ( P CF A14,GTLGRN GET INDE X LOG REC NO b P SC A2,CRNCIF+1,A10 b & P ST A3,CRNCI
0x2569a4…256b38 Dummy {f00=0x014a, f01=0x0190, f02=»URN CODEXS b P* c $ P LD A2,ECBEL,A8 EFFECTIVE LENGTH c P ST A2,ECBEL,A9 c D P LDK A1,0 RETURN CODE c P ABL DMTERX TENDIO c z P EJECT c " PDMIRN EQU * INDEXED READ NEXT c 2 P********************************************* c P LDR A1,A6
0x256b38…256ccc Dummy {f00=0x014a, f01=0x0190, f02=»UFFADR c P ADK A2,10 RECORD ADDR d ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR d , P LDK A5,/FF USED MARK d X P CCR A5,A2 STATUS d v P RF(E) DMI120 USED d P LD A4,FDBMRO,A1 d & P ST A4,FDBRRO,A1 LAST REC IN SECT d P* d P* CHECK IF END O
0x256ccc…256e60 Dummy {f00=0x014a, f01=0x0190, f02=» RF(G) DMI105 EOF d P CW A3,FDBLRN+1,A1 e P RF(L) DMI106 NOT EOF e 4 PDMI105 LDR A3,A9 e R P RF DMI030 EOF e j PDMI106 LDR A3,A9 RESTORE e P RF DMI010 NEXT REC e PDMI120 EQU * e P* INDEX RECORD IS FOUND e P* e P LDK A2,0
0x256e60…256ff4 (2, 349) Dummy {f00=0x014b, f01=0x0190, f02=»DMI100 RECORD FOUND e P LDR A6,A1 FDB ADDR f & PDMI030 LDKL A1,/4000 KEY NOT FOUND f 8 PDMI035 EQU * f b P LDR A3,A3 BUFFER ADDR f v P ABL(Z) DMTERX NO BUFFER f P ABL DMTERR ERROR AND BUFFER f P EJECT f P* f & PDMINS2 EQU * INDEXED INS
0x256ff4…257188 Dummy {f00=0x014b, f01=0x0190, f02=»FSTA f " P CF A14,DMTRBU RELEASE BUFFER g PDMXDEL EQU * INDEXED DELETE g 2 6 P************************************************* g V P LDR A11,A7 ORDER CODE g P LDR A12,A8 PHYS ECB ADDR g P LDK A5,0 g . P SC A5,FDBDBR,A1 ZEROE INDEX FILE COUN
0x257188…25731c Dummy {f00=0x014b, f01=0x0190, f02=» A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P RB(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P ADR A7,A6 h P CW A1
0x25731c…2574b0 Dummy {f00=0x014b, f01=0x0190, f02=»CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ADDR DATA REC i P A
0x2574b0…257644 Dummy {f00=0x014b, f01=0x0190, f02=» ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j PDXI090 EQU * j P* j
0x257644…2577d8 Dummy {f00=0x014b, f01=0x0190, f02=» DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DXI020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU * k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P LDKL A8,FDBECB k P
0x2577d8…25796c Dummy {f00=0x014b, f01=0x0190, f02=»A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l P SUK A7,QINS INDEXED I
0x25796c…257b00 Dummy {f00=0x014b, f01=0x0190, f02=» P ADKL A10,2 CYLID m P AD A10,FDBRRO,A6 m & P AD A10,FDBRLE,A6 ADDR STATUS CHAR m 8 P LDK A1,0 STATUS FREE m b . P ABL DMT350 CONTINUE AS FOR RANDOM DELETE m PDXI200 EQU * m P SC A2,FDBDBR,A6 m P LKM m " P DATA 3 EXIT. MORE INDEX LEFT
0x257b00…257c94 (2, 350) Dummy {f00=0x014b, f01=0x0190, f02=»*************** m r " P LD A9,DWTECB,A1 USER ECB ADDR n $ P LD A8,ECBBA,A9 BUFFER ADDR USER n > P LDR A12,A8 n f $ P LD A11,FDBRLE,A1 RECORD LENGTH n z P SUKL A11,6 KEY LENGTH n P LDR A13,A14 n 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS n $ P
0x257c94…257e28 Dummy {f00=0x014b, f01=0x0190, f02=»OR FOUND n z P LDR A13,A3 BUFFER ADDR o " P LD A4,FDBADF,A6 FDB DATA FILE o 0 P LD A5,DWTECB,A4 USER ECB o V P LD A1,DWTOR,A6 o x P ANK A1,/3F o P SUK A1,QDELX o & P ABL(E) DEL000 DELETE INDEX RECORD o P* o ( P* SET RC BIT 6 TO USER I
0x257e28…257fbc Dummy {f00=0x014b, f01=0x018e, f02=»EY NOT ALLOWED IN FILE) o P* p P LC A4,ECBFC,A5 FILE CODE p * P CC A4,FDBECB+1,A6 p L * P RF(NE) INS049 NOT REQUESTED FILE CODE p f P LDKL A4,/200 BIT 6 p " P ORS A4,ECBRC,A5 NEXT KEY SAME p PINS049 EQU * p P IFT INSLAS=1 p P* p
0x257fbc…258150 Dummy {f00=0x014b, f01=0x018e, f02=» P CF A14,RDNXTR GET NEXT REC q P RF INS100 OK q ( P ABL DEL045 ERROR q > PINS100 EQU * q X P ADR A2,A3 q l P ADK A2,10 REC ADDR q ~ P AD A2,FDBRLE,A1 ADDR STATUS q P LDK A5,/FF q P CCR A5,A2 q P RF(E) INS150 USED q P LD A5,FDB
0x258150…2582e4 Dummy {f00=0x014b, f01=0x0190, f02=» P CWR A5,A11 KEY LENGTH r $ P RB(E) INS080 NEXT SAME GET NEXT r " P* r J P* UPDATE LAST SAME RECORD r T P* r x P SC A11,-4,A2 NEXT SAME r P LD A7,FDBRRO,A1 r P CW A7,FDBMRO,A1 r & P RF(NE) INS160 SECT WRITTEN LATER r P* r P*
0x2582e4…258478 Dummy {f00=0x014b, f01=0x018e, f02=» P ABL(NZ) DMTERR s P* s P* GET NEXT RECORD s & P* s B PINS160 EQU * s L " P LDR A7,A5 NR OF SAME IN NEXT s ` P LDR A1,A6 FDB s P CF A14,RDNXTR GET NEXT RC s P RF INS170 OK s P ABL DEL045 ERROR s PINS170 EQU * s P LDR A
0x258478…25860c Dummy {f00=0x014b, f01=0x0190, f02=» s P* t ( P* CREATE AN INDE XRECORD IN AREA 1 t P* t > P LDR A1,A12 FROM ADDR t H P* t f P LDR A3,A14 t p P ADK A3,2 TO ADDR t P LDR A2,A11 KEY LENGTH t P CF A14,DMTBM MOVE KEY t P LDK A2,0 t P SCR A2,A3 DUMMY t P ADK
0x25860c…2587a0 Dummy {f00=0x014b, f01=0x0190, f02=»R t t P LD A2,ECBCW+2,A5 u ( P LD A3,ECBCW,A5 REC NR DATA FILE REC u $ P SCR A2,A7 u P P ADK A7,2 u b P SCR A3,A7 u t P ECR A3,A3 u P SUK A7,1 u P SCR A3,A7 LOG REC NR u P ADK A7,2 u P LDK A1,/FF USED u P SCR A1,A7 STATUS CHAR
0x2587a0…258934 (2, 351) Dummy {f00=0x014b, f01=0x0190, f02=» u P ST A2,-28,A14 v P ST A3,-26,A14 v P EJECT v 4 P* v B : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING v L $ P* USED RECORDS ROLLED FORWARD v $ P* A6,A11,A13 IS USED AT ENTRY v $ P ADKL A11,7 RECORD LENGTH TOTAL v P* v
0x258934…258ac8 Dummy {f00=0x014b, f01=0x0190, f02=»A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 v $ P* A13 = BUFFER ADDRESS SECTOR w , P* w T PINS190 EQU * w ^ P LDKL A12,1 BUFADR2 w r PINS200 EQU * w P LDK A1,0 w P LDR A12,A12 w P RF(Z) INS210 BUFAR1 w ( P LDKL A1,RECBFZ RECORD BUUFFER SIZE
0x258ac8…258c5c Dummy {f00=0x014b, f01=0x0190, f02=» LAST RECORD w P* x P LDR A1,A13 x P ADK A1,10 BUFSTA+2 x 2 . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT x N P LDR A2,A11 x P LDR A3,A10 x " P CF A14,DMTBM SAVE LAST RECORD x P* MOVE REST OF SECTOR x P* x P LDR A1,A13 x
0x258c5c…258df0 Dummy {f00=0x014b, f01=0x0190, f02=» x t P LDR A3,A1 y P ADR A3,A11 TO ADDR y P CF A14,DMTBMR MOVE y 6 P* INSERT NEW RECORD y R P* y p P LDKL A1,RECBFZ BUFFER SIZE y z P SLL A1,1 BYTE NO y P LDR A12,A12 y P RF(Z) INS250 BUFAR1 y " P LDK A1,0 SELECT OTHER BUFFER y
0x258df0…258f84 Dummy {f00=0x014b, f01=0x0190, f02=» P CF A14,DMTBM MOVE z P* WRITE BUFFER z P* z 6 P LDR A8,A14 USE STACK AS ECB z @ P SUKL A8,24 z d $ P LC A2,FDBEXT+1,A6 VOL DEV CODE z x P ANK A2,/FF z P STR A2,A8 z P LDR A2,A13 z P ADK A2,8 BUFSTA z P ST A2,ECBBA,A8 SECT
0x258f84…259118 Dummy {f00=0x014b, f01=0x0190, f02=» z v P LDK A7,/95 WRITE , WAIT { P LKM { ( P DATA 1 { 4 P LDR A1,A6 FDB INDEX { D P CF A14,DMTIOZ IO CHECK { ` P LDR A1,A1 { P ABL(NZ) DMTERR { P* { 6 P* IF SPILLED RECORD IS FREE, OPERATION IS READY { P* { P LDR A2,A10 RECO
0x259118…2592ac Dummy {f00=0x014b, f01=0x0190, f02=»T IN SECT { v P CCR A1,A2 | P RF(Z) INS400 FREE RECORD | $ P* | F P* GET NEXT SECTOR | P P* | l P LDR A1,A6 FDB ADDR | v P LDR A3,A13 BUFFER ADDR | 2 P CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR | P RF INS260 OK | P LDR A1,A5
0x2592ac…259440 Dummy {f00=0x014b, f01=0x0190, f02=»D BUFFERS | v P SUR A12,A12 } P RB INS200 } & P EJECT } 8 PINS400 EQU * } F P* } Z ( P* UPDATE LRN IF EOF IS ENCOUNTERED } d P* } P LDR A1,A6 FDB INDEX } P CF A14,GTLGRN } P CC A2,FDBLRN,A1 } P RF(L) INS430 NO EOF } P RF(G)
0x259440…2595d4 (2, 352) Dummy {f00=0x014b, f01=0x0190, f02=»T A3,FDBLRN+1,A6 } P LDKL A1,/1000 EOF ~ P ORS A1,ECBRC,A9 EOF TO USER ~ 4 PINS430 EQU * ~ X P* ~ l 0 P* UPDATE CRN-LINK FOR MOVED INDEX RECORDS ~ v P* ~ P LDKL A12,1 ADD ON E TO CRN ~ P LDR A8,A2 ~ P LDR A9,A3 LAST REC NR MOVED ~
0x2595d4…259768 Dummy {f00=0x014b, f01=0x0190, f02=»TE CRN IF SAME FILE CODE ~ P* P LD A1,FDBADF,A5 FDB DATA F * " P CF A14,CRNGET GET CRN BUFFER N & P LD A9,DWTECB,A1 USER ECB ADDR =4 t " P LC A4,ECBFC,A9 USER FILE CODE P CC A4,FDBECB+1,A5 P RF(NE) INS440 OTHRER FILE P ST A10,
0x259768…2598fc Dummy {f00=0x014b, f01=0x0190, f02=»DK A1,0 OK RET CODE P LDR A3,A13 BUFFER ADDR P ABL DMTEX2 < P EJECT P * PDEL000 EQU * DELETE INDEX RECORD CONT ^ P LDR A12,A5 USER ECB ADDR P LDR A2,A2 PDEL010 EQU * " P ABL(NZ) DMI030 KEY NOT FOUND P* P*
0x2598fc…259a90 Dummy {f00=0x014b, f01=0x0190, f02=»7 BUFSTA+2-3=ADDR REC NR P LCR A2,A1 P CC A2,ECBCW+3,A12 REC NR 2 P RF(NE) DEL030 WRONG RECORD T P LC A2,1,A1 x P ECR A2,A2 P LC A2,2,A1 REC NR P CW A2,ECBCW,A12 P RF(E) DEL200 RECORD FOUND PDEL030 EQU * P*
0x259a90…259c24 Dummy {f00=0x014b, f01=0x018e, f02=»DB INDEX PDEL040 EQU * ( P CF A14,RDNXTR GET NEXT INDEX RECORD $ P RF DEL050 OK P PDEL045 LDR A1,A5 ERROR CODE f P ABL DMI035 ERROR PDEL050 EQU * P* P* CHECK IF RECORD IS USED P* P LDR A13,A3 NEW BUFFER A
0x259c24…259db8 Dummy {f00=0x014b, f01=0x0190, f02=» P RB(E) DEL020 USED P LD A4,FDBMRO,A1 ( P ST A4,FDBRRO,A1 LAST REC IN SECTOR 6 P RB DEL040 NEXT REC b P EJECT ~ PDEL200 EQU * RECORD FOUND P* & P* SET RC BIT 6 IF NEXT KEY SAME P* $ P LC A2,ECBFC,A12 USER FILE C
0x259db8…259f4c Dummy {f00=0x014b, f01=0x0190, f02=»A6 * P RF(NE) DEL220 NOT REQUESTED FILE CODE P CWR A11,A7 KEY LENGTH : $ P RF(NE) DEL220 NEXT KEY NOT SAME X P LDKL A4,/200 $ P ORS A4,ECBRC,A12 NEXT KEY SAME PDEL220 EQU * P* $ P* MOVE UP RECORDS OVER DELETED P*
0x259f4c…25a0e0 Dummy {f00=0x014b, f01=0x0190, f02=» P ADR A1,A11 FROM ADDR P LD A2,FDBMRO,A6 & P SU A2,FDBRRO,A6 NR OF CHAR > P CF A14,DMTBM MOVE b P* | P* SET LAST RECORD FREE P* P ADR A3,A11 P SUK A3,1 P LDK A1,0 P SCR A1,A3 STATUS FREE P*
0x25a0e0…25a274 (2, 353) Dummy {f00=0x014c, f01=0x018e, f02=» " P LDR A11,A3 FIRST REC NR MOVED P LD A12,FDBRRO,A6 OLD OFFSET * P LD A4,FDBMRO,A6 N P ST A4,FDBRRO,A6 MAX OFFSET f $ P CF A14,GTLGRN LAST REC NR MOVED P LDR A8,A2 P LDR A9,A3 REC NR " P ST A12,FDBRRO,A6 RESET OFFSET P LDK
0x25a274…25a408 Dummy {f00=0x014c, f01=0x0190, f02=» ~ $ P RF(NZ) DEL290 NOT FIRST RECORD P LDR A1,A5 FDB 0 P CF A14,GTLGRN GET REC NR F P LDR A1,A2 h P LDR A2,A3 z P LDK A6,0 P LDK A7,1 $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 P RF(Z) DEL600 FILE START P LDR A6,A5 FDB A
0x25a408…25a59c Dummy {f00=0x014c, f01=0x0190, f02=»A14 P ADKL A8,2 ECB ADDR P LDR A12,A12 ( $ P RF(Z) DEL245 BUFFER NOT CHANGED < P* d P* WRITE SECTOR n P* P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A1,A5 FDB P CF A14,DMTIOZ IO CHECK P LDR A1,
0x25a59c…25a730 Dummy {f00=0x014c, f01=0x018e, f02=»EASE BUFFER ~ P* P* GET PREVIOUS SECTOR P* > P LDR A1,A5 FDB ADDR H P LDK A3,0 d P CF A14,RDNXTR GET SECTOR v P RF DEL250 OK P LDR A6,A1 FDB ADDR P RB DEL045 PDEL250 EQU * P LDR A5,A1 FDB P L
0x25a730…25a8c4 Dummy {f00=0x014c, f01=0x018e, f02=» PDEL300 EQU * * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET P ADK A4,10 BUFSTA+2 F P ADR A4,A13 RECORD ADDR b & P AD A4,FDBRLE,A5 STATUS CHAR ADDR P LDK A2,/FF P CCR A2,A4 P RB(NE) DEL240 FREE . P LC A2,17,A14 NR OF SAME I
0x25a8c4…25aa58 Dummy {f00=0x014c, f01=0x0190, f02=» v PDEL600 EQU * P LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x25aa58…25abec Dummy {f00=0x014c, f01=0x401c, f02=» XIF P END @ LDR A12,A12 $ P RF(Z) DEL900 BUFFER NOT CHANGED 0 P* X P* WRITE SECTOR b P* z PDEL700 EQU * P LDR A8,A14 P ADKL A8,2 ECB ADDR P LDK A7,/95 WRITE WAIT P LKM P DATA 1 P LDR A
0x25abec…25ad80 Dummy {f00=0x014c, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x25ad80…25af14 (2, 354) Dummy {f00=0x014c, f01=0x0000, f02=»
[…0x7…]
0x25ba20…25bbb4 (2, 355) Opaque[0x194]
0x25bbb4…25bd48 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26f0, f03=0x0000}
0x25bbb4…25bd48 IdxSect {
0x25bbb4…25bd48 f00 = 0x0137 // 0x25bbb4 @0x0
0x25bbb4…25bd48 f01 = 0x0004 // 0x25bbb6 @0x2
0x25bbb4…25bd48 gno = [ // 0x25bbb8 @0x4
0x25bbb4…25bd48 [0x00]: C0x0137.0x2.0
0x25bbb4…25bd48 [0x01]: C0x013a.0x2.0
0x25bbb4…25bd48 ]
0x25bbb4…25bd48 }
0x25bd48…25bedc Dummy {f00=0x0137, f01=0x0190, f02=» 2 P IDENT DMINIT REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P*
0x25bedc…25c070 Dummy {f00=0x0137, f01=0x018e, f02=»FDB:S IN THE FDB AREA z > P* CLEAR THE USE BIT AND THE BUFFER HEADER IN DM BUFFERS 0 P* CLEAR USE BIT AND QUEUE ANCHOR IN TASBLK ` , P* CLEAR DM FILE CODE ENTRIES IN CD:TAB P* , P* DMINIT IS CALLED AS A PFINIT ROUTINE P* " P
0x25c070…25c204 Dummy {f00=0x0137, f01=0x0190, f02=» P EXTRN FDBSTA P EXTRN FDBEND P EXTRN CURBUF 0 P EXTRN BUFDMI F P EXTRN BUFSNR P EXTRN BUFOR r P EXTRN TASBLK P EXTRN TASQUE P EXTRN CRNQUE,CRNEND P EXTRN CRBUFL P EJECT P* P* P*
0x25c204…25c398 Dummy {f00=0x0137, f01=0x0190, f02=» P* DIV W. 2 FOR 16 K LIMIT P* ( P LDR A5,A4 2 P SRL A5,1 D P LDR A1,A6 V P SRL A1,1 h P CWR A5,A1 z " P RF(G) DMIN40 END OF FDB AREA P STR A4,A3 CHAIN P LDR A3,A4 P RB DMIN30 PDMIN40 EQU * P SUR A
0x25c398…25c52c Dummy {f00=0x0137, f01=0x0190, f02=»ALIZATIONS IF POWER FAIL RESTART P* ( P LD A1,INIFLG 2 P RF(Z) DMINEX H P LDKL A2,QFDBFL FDB LENGTH ^ P* $ P* CHAIN FDB:S IN THE FDB AREA P* P LDKL A3,FDBSTA P LDKL A6,FDBEND P CF A15,DMIN30 P*
0x25c52c…25c6c0 Dummy {f00=0x0137, f01=0x0190, f02=» P CF A15,DMIN30 P* < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS $ P* d P LDKL A2,/FFFE n P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 P CM BU
0x25c6c0…25c854 (2, 356) Dummy {f00=0x013a, f01=0x405a, f02=»LK P CM TASQUE P* PDMINEX EQU * & P RTN A15 : P END J@ V
0x25c854…25c9e8 Dummy {f00=0x013a, f01=0x2008, f02=» PDMINEX EQU * P RTN A15 " P END 2@ >TASBLK P CM TASBLK P P CM TASQUE b P* t , P* CLEAR DM FILE CODE ENTRIES IN CDTAB ~ P* P LD A2,CDTAB PDMIN60 SUK A2,4 P LDR A3,A2 P ADKL A3,CDTAB
0x25c9e8…25cb7c Dummy {f00=0x013a, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x25cb7c…25cd10 Dummy {f00=0x013a, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x25cd10…25cea4 Dummy {f00=0x013a, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x25cea4…25d038 Dummy {f00=0x013a, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x25d038…25d1cc Dummy {f00=0x013a, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x25d1cc…25d360 Dummy {f00=0x013a, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x25d360…25d4f4 (2, 357) Opaque[0x194]
0x25d4f4…25d688 # DirEnt {nam=»DMTASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2708, f03=0x0000}
0x25d4f4…25d688 IdxSect {
0x25d4f4…25d688 f00 = 0x0138 // 0x25d4f4 @0x0
0x25d4f4…25d688 f01 = 0x0010 // 0x25d4f6 @0x2
0x25d4f4…25d688 gno = [ // 0x25d4f8 @0x4
0x25d4f4…25d688 [0x00]: C0x0138.0x1.0
0x25d4f4…25d688 [0x01]: C0x0138.0x3.0
0x25d4f4…25d688 [0x02]: C0x0139.0x0.0
0x25d4f4…25d688 [0x03]: C0x0139.0x1.0
0x25d4f4…25d688 [0x04]: C0x0139.0x2.0
0x25d4f4…25d688 [0x05]: C0x0139.0x3.0
0x25d4f4…25d688 [0x06]: C0x013a.0x0.0
0x25d4f4…25d688 [0x07]: C0x013a.0x1.0
0x25d4f4…25d688 ]
0x25d4f4…25d688 }
0x25d688…25d81c Dummy {f00=0x0138, f01=0x0190, f02=» 2 P IDENT DMTASS REL 9.2 79-11-16 870105040920 P : P* =3 PR 5141 B P* = 79-04-06 X P* =2 WAIT AT VTOC READ n P* REL 9.1 79-04-06 P* =1, PR 3413 P* REL 9.1 78-10-25 P P P* P* 8 P******
0x25d81c…25d9b0 Dummy {f00=0x0138, f01=0x0190, f02=»LE CODE DISC I/O HANDLING z P* " P* , P* 6 P* @ P* J P* T 8 P**************************************************** ^ P* * P* THIS MODULE IS ACTIVATED FROM TASS P* B P* INPUT A2 = TID TASK IDENT OF DMTASK AT
0x25d9b0…25db44 Dummy {f00=0x0138, f01=0x0190, f02=» ASSIGNED CAN X L P* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND D P* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS f > P* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND . P* FILE-EXTENT-BASE ARE
0x25db44…25dcd8 Dummy {f00=0x0138, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x25dcd8…25de6c Dummy {f00=0x0138, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x25de6c…25e000 Dummy {f00=0x0138, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x25e000…25e194 (2, 358) Dummy {f00=0x0138, f01=0x0190, f02=» P EXTRN ECBRL P EXTRN ECBRC P EXTRN ECBCW , P* @ P EXTRN TIODM J P EXTRN DMTGBU ^ P EXTRN DMTRBU t P EXTRN CLRBUF P EXTRN BUFSTA P EXTRN BUFSNR P EXTRN BUFDMI P* P EXTRN QFDBFL P EXTRN
0x25e194…25e328 Dummy {f00=0x0138, f01=0x0190, f02=»BAS P EXTRN FDBRLE P EXTRN FDBBLF " P EXTRN FDBVTO 8 P EXTRN FDBLRN N P EXTRN FDBNIF,FDBKA d & P EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL . P EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX P EXTRN FDBDBR,FDBMRO . P EXTRN FDBMEC MM
0x25e328…25e4bc Dummy {f00=0x0138, f01=0x0190, f02=» P EXTRN TASCXO P EXTRN TASSEX P EXTRN TASXLB 0 P EXTRN TASFDB F P EXTRN TASVRL P EXTRN TASVLE r P EXTRN TASVRN P EXTRN TASECB P EXTRN TASFIL,TASTID,TASMXA P EXTRN TASSPW,TASFDD,TASTBE P EXTRN TASCA
0x25e4bc…25e650 Dummy {f00=0x0138, f01=0x018e, f02=» PX:B EQU 0 4 PINDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1 P* N . P* A PROGRAM VERSION USING TOSS MMU PAGING X * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT P* P************
0x25e650…25e7e4 Dummy {f00=0x0138, f01=0x0190, f02=» PVLVRL EQU 14 PVLVER EQU 34 P* , PVTFSNO EQU 8 6 PVTFXNO EQU 10 J PVTFXLE EQU 14 ` PVTFXBA EQU 18 v PVTLRN EQU 21 PVTRLE EQU 24 PVTBLF EQU 26 PVTFIOR EQU 27 PVTNIF EQU 37 PVTKA EQU 38 P*
0x25e7e4…25e978 Dummy {f00=0x0138, f01=0x0190, f02=»RDS P DATA 0,0 STACK PDMTA14 EQU *-2 $ P EJECT : P* H P************** R P* DMTIOC * h P************** ~ P* : P* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O > P* RETURN TO DMTASX WITH A
0x25e978…25eb0c Dummy {f00=0x0138, f01=0x0190, f02=»FF BIT 7 ONLY RETRIES P RF(Z) DMTIOX P ADKL A14,4 4 P ANK A1,/80 H $ P RF(NZ) DMT060 NEW VOLUME LOADED P SUKL A3,BUFSTA , P CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER P LDK A7,1 P ABL DMTASX DISC I/O ERROR PDMTIOX E
0x25eb0c…25eca0 Dummy {f00=0x0138, f01=0x0190, f02=»QU * 8 P LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER P ST A2,TASTID TASK IDENT H P CM TASMXA MASTER INDEX ADDR h P ANK A2,/2 P RF(Z) DMT010 NOT FLEXTASC P* & P* PERFORM VOLUME CHECK WITH LOCK P* P LD A8,TAS
0x25eca0…25ee34 (2, 359) Dummy {f00=0x0139, f01=0x0190, f02=»DR A1,A1 P RF(Z) DMT010 OK P LDK A7,4 VOL UNKNOWN ( P SUR A8,A8 NO BUFFER =3 F P ABL DMTASX f PDMT010 EQU * z P* P LDKL A8,TASECB P* 6 P LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME PDMT050 EQU * , P
0x25ee34…25efc8 Dummy {f00=0x0139, f01=0x0190, f02=» LDKL A2,SECTLE " P ST A2,ECBRL,A8 SECTOR LENGTH P LDK A2,0 > 0 P ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) P P* P* 2 P CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 P DATA /5700 NOP. READ ALWAYS P ADKL A3,BUFSTA &
0x25efc8…25f15c Dummy {f00=0x0139, f01=0x0190, f02=»IT =2 P LKM P DATA 1 =2 . P LDKL A14,DMTA14 SET UP A14 STACK POINTER . P CF A14,DMTIOC I/O CHECK ` P LD A2,VLVER,A3 VERSION & P CWK A2,'TO' DTOSS FORMATED DISC? P RF(E) DMT100 YES P LDK A7,8 NO P ABL DMTASX ERRO
0x25f15c…25f2f0 Dummy {f00=0x0139, f01=0x018e, f02=»3 VTOC BASE . P ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT & P LD A9,VLVRL,A3 VTOC RECORD LENGTH F P ST A9,TASVRL p P EJECT P* P* SEARCH ALL VTOC:S P* PDMT110 EQU * P LD A6,TASVLE P SUK A6,1 P ST A6
0x25f2f0…25f484 Dummy {f00=0x0139, f01=0x018e, f02=» P LD A1,TASCVO P SUK A1,2 & P ABL(N) DMT300 ALL VOLUMES CHECKED 0 P ST A1,TASCVO UPDATE TASCVO Z $ P LDK A7,7 TOO MANY FILE SECTIONS ~ P LD A3,TASFIL " P ABL(NZ) DMTASX NOT DATA FILE P LD A3,ECBBA,A8 P SUKL A3,BUFST
0x25f484…25f618 Dummy {f00=0x0139, f01=0x0190, f02=» P* ACTIVATE NEXT DM TASK P* * P ADKL A7,'#D' 4 P LKM J P DATA -4 V P DATA DMTASS f P LKM z P DATA 3 EXIT P EJECT P* & P* READ NEXT VTOC SECTOR AND EXIT P* PDMT115 EQU * P LD A3,ECBBA,A
0x25f618…25f7ac Dummy {f00=0x0139, f01=0x0190, f02=» LD A1,TASVOL,A1 P CF A14,DMTGBU GET BUFFER P DATA /5700 NOP. READ ALWAYS : P ADKL A3,BUFSTA ^ P ST A3,ECBBA,A8 v P ST A2,ECBCW,A8 P LDK A7,/91 WAIT =2 P LKM P DATA 1 =2 P LDKL A14,DMTA14 P CF A14,DMTIOC
0x25f7ac…25f940 Dummy {f00=0x0139, f01=0x0190, f02=» $ P RF(NE) DMT135 NOT MASTER INDEX " P ADKL A11,14 MX FILE NAME ADDR , PDMT135 EQU * R P ADK A3,2 SKIP CYLID f PDMT120 EQU * ( P IM TASVRN INCREMENT VTOC RECORD NO P LDR A4,A3 " P ADR A4,A9 ADDRESS STATUS BYTE P LCR A2,A4
0x25f940…25fad4 (2, 360) Dummy {f00=0x0139, f01=0x0190, f02=»AME MAX 4 WORDS PDMT150 EQU * P LDR* A10,A4 , P CWR* A10,A7 @ P ABL(NE) DMT250 NO MATCH T P SUK A2,1 t . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P
0x25fad4…25fc68 Dummy {f00=0x0139, f01=0x0190, f02=»F(E) DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO < P LDK A2,0 FILE EXTENT NUMBER V P RF DMT167 z . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAV
0x25fc68…25fdfc Dummy {f00=0x0139, f01=0x0190, f02=»1,4 P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS " P LDK A7,9 F * P ABL DMTASX MORE THAN 4 EXTENTS EXIST X PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x25fdfc…25ff90 Dummy {f00=0x0139, f01=0x0190, f02=» P LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 ( P LD A2,TASSEX,A1 B $ P RF(NZ) DMT250 NOT FIRST EXTENT Z P EJECT P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB
0x25ff90…260124 Dummy {f00=0x0139, f01=0x0190, f02=»A12,FDBSTA PDMT200 EQU * P LDR* A5,A12 & P ANK A5,/01 : P RF(Z) DMT210 FREE N P LD A2,FDBEXT,A12 h P CW A2,TASVOL,A6 " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME
0x260124…2602b8 Dummy {f00=0x0139, f01=0x0190, f02=»DB FOUND n PDMT205 EQU * P LDK A7,5 FILE CODE USED $ P ABL DMTASX D P* X $ PDMT210 LDR* A12,A12 GET NEXT FDB b P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB
0x2602b8…26044c Dummy {f00=0x0139, f01=0x0190, f02=» v P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 J P ABL DMTASX NO FDB AVAILABLE ( P* INITIALIZE FDB ZERO FROM FDB+2 P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL
0x26044c…2605e0 Dummy {f00=0x0139, f01=0x0190, f02=» RB DMT233 PDMT237 EQU * P LDKL A2,/8000 & P* DEV NOT BUSY < P ST A2,DWTST,A12 T P LDKL A2,TIODM l P ST A2,DWTADR,A12 P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01
0x2605e0…260774 (2, 361) Dummy {f00=0x0139, f01=0x0190, f02=» P LD A2,VTRLE,A4 P ST A2,FDBRLE,A12 P LC A2,VTBLF,A4 6 P SC A2,FDBBLF,A12 N P LC A2,VTNIF,A4 h P SC A2,FDBNIF,A12 P LD A2,VTKA,A4 P ST A2,FDBKA,A12 P LD A2,TASVRN P ST A2,FDBVTO,A12 P* P IFT M
0x260774…260908 Dummy {f00=0x0139, f01=0x0190, f02=» ECB IN FDB l P XIF P* P EJECT * P* 8 P* CHECK NEXT VTOC RECORD B P* d PDMT250 EQU * n P* A3 = ADR 1ST REC P* A9 = VTOC REC LGTH P ADR A3,A9 P ADK A3,1 SKIP STATUS BYTE P LDR A2,A3 P SU A2
0x260908…260a9c Dummy {f00=0x0139, f01=0x0190, f02=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT P* @ PDMT300 EQU * J P LDK A3,16 ^ P SU A3,TASCXO p P RF(NZ) DMT310 P LDK A7,6 P RF DMTASX FILE NAME UNKNOWN PDMT310 EQU * P LD A12,TASFDB P RF(NZ) DMT3
0x260a9c…260c30 Dummy {f00=0x0139, f01=0x0190, f02=»ENDING ORDER f 8 P* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO ! P* ! P PDMT320 EQU * ! Z P* ! n @ P* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE ! x P* ! P LD A6,TASFIL ! P RF(Z) DMT330 DATA FILE ASS ! $ P LD A6,F
0x260c30…260dc4 Dummy {f00=0x0139, f01=0x0190, f02=» OK ! P LDK A7,12 " * P RF DMTASX RECORD BUFFER IS TOO SMALL " PDMT330 EQU * " L P LDR A6,A12 " ` P* FDB ADDR " t P ADKL A6,FDBEXT " P LDK A2,0 " P LDR A5,A3 " P SRL A5,2 NUMBER OF EXTENTS " PDMT340 EQU * " P LDK A4,16 "
0x260dc4…260f58 Dummy {f00=0x0139, f01=0x0190, f02=»E EXTENTS TO CHECK " ~ P* # , P* THE EXTENT SEARCHED FOR IS NOT FOUND # $ 2 P* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) # T P* # P LDR A1,A2 # P ANK A1,/FF # $ P RF(NZ) DMT370 TRY NEXT SECTION # P* # PDMT355 EQU * # P LDK A7,
0x260f58…2610ec Dummy {f00=0x0139, f01=0x0190, f02=» LD A1,TASSEX+2,A4 # P LD A1,TASVOL,A1 $ P ST A1,EXTDMI,A6 $ 2 P LD A1,TASXLB,A4 $ J P ST A1,EXTLEN,A6 $ b P LD A1,TASXLB+2,A4 $ z P ST A1,EXTBAS,A6 $ P ADK A6,6 $ P SUK A5,1 $ & P RF(NP) DMT500 ALL EXTENTS HANDLED $ P* $ : P*
0x2610ec…261280 Dummy {f00=0x0139, f01=0x0190, f02=» A1,3 $ " P RF(NE) DMT380 NOT EXT-NO = 3 % PDMT370 EQU * % 4 P ECR A1,A2 % H P ANK A1,/FF % Z P SUK A1,3 % n P RB(E) DMT355 SECTION-NO = 3 % " P ADK A1,4 INCREMENT SECTION-NO % P ECR A2,A1 EXT-NO = 0 % P RB DMT340 % $ PDMT380 ADK A2,
0x261280…261414 (2, 362) Dummy {f00=0x0139, f01=0x018e, f02=»CH WERE UNLOCKED BEFORE % j P* & P LDR A5,A7 & * P LDR A6,A8 SAVE & < P LDK A1,3 LOOP & T PDMTASY EQU * & j P LC A2,TASLFD,A1 FILE CODES & ~ P ANK A2,/FF & P RF(Z) DMTASZ NO CODE & P LDKL A8,TASECB & P SC A2,TASECB+1 & P LDK
0x261414…2615a8 Dummy {f00=0x0139, f01=0x0190, f02=» & P LDR A8,A6 ' P RF DMT401 =1 END ' P* ' 4 ( P* PUT FDB ADDRESS INTO TTAB/CD:TAB ' > P* ' j PDMT400 EQU * ' t P LDK A7,0 ' PDMT401 EQU * =1 ' , P LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR ' P LDR A7,A7 ' P RF(Z) DMT420 CORREC
0x2615a8…26173c Dummy {f00=0x0139, f01=0x018e, f02=»DDR ' t " P RF(Z) DMT410 NO MASTER INDEX ( P INH INH ( 2 ( P LD A2,MXIND SIEZE MASTERINDEXINDEX ( D P SUK A2,2 ( p PDMT405 EQU * ( P SUK A2,4 NEXT OFFSET ( P RF(NN) DMT407 OK ( * P RF DMT408 MASTER INDEX MUST BE FOUND ( PDMT407 CW A4
0x26173c…2618d0 Dummy {f00=0x0139, f01=0x0190, f02=» ( ~ PDMT410 EQU * ) P LD A3,TASFDB ) P RF(Z) DMT430 NO FDB USED ) 2 P LDKL A2,/FFFE ) T " P ANRS A2,A3 CLEAR FDB USE BIT ) j P RF DMT430 ) PDMT420 EQU * ) P ST A12,1,A2 FDB ADDR ) PDMT430 EQU * ) P LDR A8,A8 ) P RF(Z) DMT440
0x2618d0…261a64 Dummy {f00=0x0139, f01=0x0190, f02=»UF RELEASE ALL FREE BUFFERS ) & P CF A14,TASCAQ CHECK ASSIGN QUEUE * $ $ P CF A15,QTJOB QUEUE CALLING TASK * N P ENB * v P LKM * P DATA 3 * P EJECT * PDMT500 EQU * * P LD A6,TASFIL * P ABL(Z) DMT700 DATA FILE * P IFF INDXAC=1 *
0x261a64…261bf8 Dummy {f00=0x0139, f01=0x018e, f02=» EJECT * P* + " P* THIS IS MASTER INDEX LOOP. + 8 P* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ + > < P* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE + z P* + P LD A7,TASTID DMTASK ID + P INH + " P CF A15,FNDTID TTAB ADDR
0x261bf8…261d8c Dummy {f00=0x0139, f01=0x0190, f02=» P SC A3,TASECB+1 , " P ST A3,TTB:TD+2,A2 TTAB ENTRY , P ST A12,TTB:TD+4,A2 FDB ADR , B P LD A3,ECBBA,A8 , f P SUKL A3,BUFSTA , ~ " P CF A14,DMTRBU RELEASE BUFFER , P* , 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX , P* , P LD
0x261d8c…261f20 Dummy {f00=0x0139, f01=0x018e, f02=»RR A2,A1 GET MOST SIGN BIT , P ADK A2,5 - " P SRL A2,1 NO OF WORDS NEEDED - 4 P RF(Z) DMT570 WRONG SIZE - X P INH - x P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - P LDKL A5,-2 OFFSET - PDMT540 EQU * - P ADK A5,4 GET ENTRY -
0x261f20…2620b4 (2, 363) Dummy {f00=0x013a, f01=0x0190, f02=» - | P RB(N) DMT540 ENTRY USED . P SUR A6,A2 NO OF SPARE WORDS . ( & P RB(N) DMT540 LARGER ENTRY NEEDED . L P* . v P* SUFFICIENT SPACE FOUND . P* . P LDKL A1,/8000 USED BIT . & P ORS A1,MXIND+2,A5 MARK ENTRY USED . $ P ST A3,TASMXA MAST
0x2620b4…262248 Dummy {f00=0x013a, f01=0x0190, f02=»T A1,2,A3 ENTRY LENGTH . P ADK A3,4 SKIP MX HEADRER / P ST A3,ECBBA,A8 BUFFER ADDR / @ P ST A1,ECBRL,A8 REQ LGTH / d . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / P CWR A1,A4 MXIND ENTRY / P RF(NL) DMT590 LAST ENTRY / P LD A3,MXIND+6,A1
0x262248…2623dc Dummy {f00=0x013a, f01=0x0190, f02=»NKL A2,/7FFF REMOVE USE BIT / P SUR A2,A6 0 $ P ORKL A2,/8000 USE BIT 0 6 P ST A2,MXIND+2,A1 0 T . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 n $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A
0x2623dc…262570 Dummy {f00=0x013a, f01=0x0190, f02=» 0 8 P* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE 1 < P* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON 1 D P* 1 PDMT550 EQU * 1 & P LDK A7,/42 SEQ READ,NOWAIT,NO EA 1 P LKM 1 P DATA -1 1 P DATA DMTAR5 1 P LKM 1 P
0x262570…262704 Dummy {f00=0x013a, f01=0x0190, f02=»NKL A2,/FEFF BIT 7 ONLY RETRIES 1 P RF(Z) DMT560 NO ERROR 2 ( P* 2 F " P* REMOVE THE ONLY CRN BUFFER 2 P P* 2 v P LD A4,TASFDB FDB ADDR 2 P LD A5,FDBCRL,A4 CRN BUF ADR 2 P RF(Z) DMT553 NO CRN 2 P CM FDBCRL,A4 2 P INH 2 P LD A6,C
0x262704…262898 Dummy {f00=0x013a, f01=0x018e, f02=»EADY ,WHOLIE MXINDEX IS READ 2 P LDK A7,7 3 $ PDMT555 SUR A8,A8 NO BUFFER 3 6 P ABL DMTASX DISC IO ERR 3 X PDMT560 EQU * 3 x P* 3 P* RECORD READ,READ NEXRT 3 P* 3 P LD A2,ECBRL,A8 3 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB DMT550
0x262898…262a2c Dummy {f00=0x013a, f01=0x0190, f02=» 3 P* 4 2 P* MASTER INDE X READUY. RERUN FOR INDEX FILE 4 P* 4 H P LDK A1,1 4 R P ST A1,TASFIL INDEX FILE 4 d " P LD A3,TASSPW TTAB ADR DMTASK 4 P CM TTB:TD+2,A3 DELETE ENTRY 4 P CM TTB:TD+4,A3 4 P LD A3,TASFDB FDB ADDR 4 P LDK
0x262a2c…262bc0 Dummy {f00=0x013a, f01=0x0190, f02=» ENTRY POSSIBLE 4 ~ P LDK A1,0 5 2 P* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP 5 * P ABL DMT050 ASSIGN INDEX 5 ` P EJECT 5 PDMT600 EQU * 5 P* 5 P* INDEX FILE ASSIGN 5 P* 5 P LDK A7,10 RET CODE 5 & P LD A10,TASFDD FDB ADDR
0x262bc0…262d54 (2, 364) Dummy {f00=0x013a, f01=0x0190, f02=» LC A3,DWTST,A10 5 P ANK A3,/40 6 & P RF(NZ) DMT639 OTHER REQUEST BUSY 6 , P LDK A3,8 MAX NO OF INDE*2 6 V PDMT620 EQU * 6 x P SUK A3,2 6 $ P RF(N) DMT640 MORE THAN 4 INDEX 6 P LDR A6,A10 6 P ADR A6,A3 6 P LD A2,FDBAI1,A6 6 P RB(
0x262d54…262ee8 Dummy {f00=0x013a, f01=0x0190, f02=» 6 X P* 7 P LDK A5,8 NR OF INDEX *2 7 PDMT625 EQU * 7 2 P SUK A5,2 7 F " P RF(N) DMT635 ALL FDB UPPDATED 7 X P LDR A1,A10 FDB DATA 7 ~ P ADR A1,A5 7 $ P LD A3,FDBAI1,A1 FDB ADDR INDEX 7 P RB(Z) DMT625 NO INDEX FILE 7 P LDKL A1,FDBADF
0x262ee8…26307c Dummy {f00=0x013a, f01=0x0190, f02=»25 7 PDMT635 EQU * 8 P LC A1,DWTST,A10 8 0 P SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE 8 6 P ENB ENB 8 j P LD A1,TASMXA 8 | ( P ST A1,FDBMIA,A12 MASTER INDEX ADDR 8 P RF DMT720 8 ( PDMT639 ADK A7,2 A7=13=OTHER REQ BUSY 8 * PDMT640 ADK A
0x26307c…263210 Dummy {f00=0x013a, f01=0x0190, f02=»IGN DATA FILE 8 & P ST A12,FDBADF,A12 FDB ADDR TO FDB 9 P LD* A1,TASASB ASBLK ADDR 9 @ P ANKL A1,/6000 9 b P SLL A1,1 9 x $ P ORS A1,FDBDBR,A12 DELAY + BASIC 9 PDMT720 EQU * 9 P* 9 ( P* SET FDBMRN TO MAX REC NO IN FILE 9 P* 9 P L
0x263210…2633a4 Dummy {f00=0x013a, f01=0x018e, f02=»750 9 P AD A2,-2,A1 : P SUKL A1,EXTELE-2 : P ST A1,FDBCEX,A12 : : P SUK A2,1 : T P ST A2,FDBSNR,A12 : f P LDR A1,A12 : " P CF A14,GTLGRN GET LOG REC NO : P LDK A1,0 : " P LC A1,FDBBLF,A12 BLOCK FACTOR : P SUK A1,1 : P ADR
0x2633a4…263538 Dummy {f00=0x013a, f01=0x4154, f02=» P ST A3,FDBMRN+1,A12 ; P* ; 4 P* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE ; * P* ; b P LD A6,FDBRLE,A12 REC LENGTH ; l P ADK A6,1 ; P LDK A7,0 ; P LC A7,FDBBLF,A12 BLOCK FACT ; P SUK A7,1 ; P CF A14,MPYMOD A1,A2=A6*A7 ;
0x263538…2636cc Dummy {f00=0x013a, f01=0x2008, f02=» < EXIT P* P ENB P LKM * P DATA 3 6 P END F@ RA2,/FFFE P " P ANRS A2,A3 CLEAR FDB USE BIT f P RF DMT430 PDMT420 EQU * P ST A12,CDTAB+2,A2 PDMT430 EQU * P LD A3,ECBBA,A8 P SUKL A3,BUFSTA
0x2636cc…263860 Dummy {f00=0x013a, f01=0x0190, f02=»SET FDB FREE < PDMTA40 EQU * = * P CF A14,CLRBUF REMOVE ALL FREE BUFFERS = ( P LDR A1,A7 NEW FDB ADDR = V P ABL(Z) DMTERX NO MORE FDBS = v P IFT INDXAC=1 = P ENB ENB = P* = 4 P* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT = P* =
0x263860…2639f4 (2, 365) Opaque[0x194]
0x2639f4…263b88 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x2639f4…263b88 IdxSect {
0x2639f4…263b88 f00 = 0x0004 // 0x2639f4 @0x0
0x2639f4…263b88 f01 = 0x0008 // 0x2639f6 @0x2
0x2639f4…263b88 gno = [ // 0x2639f8 @0x4
0x2639f4…263b88 [0x00]: C0x0004.0x0.0
0x2639f4…263b88 [0x01]: C0x0006.0x1.0
0x2639f4…263b88 [0x02]: C0x0006.0x2.0
0x2639f4…263b88 [0x03]: C0x0006.0x3.0
0x2639f4…263b88 ]
0x2639f4…263b88 }
0x263b88…263d1c Dummy {f00=0x0004, f01=0x0190, f02=» 0 P IDENT DMBUF REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P
0x263d1c…263eb0 Dummy {f00=0x0004, f01=0x018e, f02=»FOR DMTASK v P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* N L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL X P* P* MAX VALUE OF QNBUF IS 16 P* > P* AT LEAST TWO BUFFERS PER DISC DRIVE
0x263eb0…264044 Dummy {f00=0x0004, f01=0x018e, f02=» ( P ENTRY CURBUF CURRENT BUFFER POINTER P ENTRY BUFLNK BUFFER LINK 4 P ENTRY BUFDMI DMTASK IDENT V P ENTRY BUFFC FILE CODE x P ENTRY BUFSNR SECTOR NO P ENTRY BUFOR ORDER * P ENTRY BUFSTA DATA AREA START ADDRESS P ENTRY DMT
0x264044…2641d8 Dummy {f00=0x0004, f01=0x0190, f02=» P EJECT $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 : P* R P* PCURBUF DATA BUF1 f PNEWBUF DATA 0 ~ P* P* PBUFLNK EQU 0 2 PBUF1 DATA BUF2 BUFFER LINK STATUS IN BIT 15 PBUFDMI EQU *-BUF1 DMI
0x2641d8…26436c Dummy {f00=0x0004, f01=0x0190, f02=» LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ( PBUFSTA EQU *-BUF1 DATA BUFFER START 8 P RES 205 d P* t P* ~ P IFT QNBUF=1 PBUF2 EQU BUF1 P XIF P* P* P IFF QNBUF=1 PBUF2 DATA BUF3 P DATA 0,0,0
0x26436c…264500 Dummy {f00=0x0004, f01=0x018e, f02=»NBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 " P DATA 0,0,0 8 P RES 205 L P XIF P* h P* r P IFT QNBUF=3 | PBUF4 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 PBUF4 D
0x264500…264694 (2, 366) Dummy {f00=0x0006, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T PBUF5 DATA BUF6 h P DATA 0,0,0 ~ P RES 205 P XIF P* P* P IFT QNBUF=5 PBUF6 EQU BUF1 P XIF P* P*
0x264694…264828 Dummy {f00=0x0006, f01=0x018e, f02=»0 P RES 205 P XIF P* & P* 0 P IFT QNBUF=6 : PBUF7 EQU BUF1 N P XIF d P* p P* z P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 PBUF7 DATA BU
0x264828…2649bc Dummy {f00=0x0006, f01=0x018e, f02=» P* P IFF QNBUF=1 P IFF QNBUF=2 & P IFF QNBUF=3 : P IFF QNBUF=4 N P IFF QNBUF=5 b P IFF QNBUF=6 v P IFF QNBUF=7 PBUF8 DATA BUF9 P DATA 0,0,0 P RES 205 P XIF P* P* P IFT QNBUF=8
0x2649bc…264b50 Dummy {f00=0x0006, f01=0x0190, f02=» P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 , P IFF QNBUF=8 @ PBUF9 DATA BUF10 T P DATA 0,0,0 l P RES 205 P XIF P* P* P IFT QNBUF=9 PBUF10 EQU BUF1 P XIF P* P* P IFF QNBUF=1
0x264b50…264ce4 Dummy {f00=0x0006, f01=0x0190, f02=»=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0 6 P RES 205 J P XIF Z P IFT QNBUF=10 f PBUF11 EQU BUF1 | P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF Q
0x264ce4…264e78 Dummy {f00=0x0006, f01=0x0190, f02=» P DATA 0,0,0 P RES 205 P XIF ( P IFT QNBUF=11 4 PBUF12 EQU BUF1 J P XIF ` P* l P* v P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7
0x264e78…26500c Dummy {f00=0x0006, f01=0x018e, f02=» 205 P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 . P XIF D P* P P* Z P IFF QNBUF=1 d P IFF QNBUF=2 x P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF
0x26500c…2651a0 Dummy {f00=0x0006, f01=0x0190, f02=» P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 * P XIF @ P* L P* V P IFF QNBUF=1 ` P IFF QNBUF=2 t P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNB
0x2651a0…265334 (2, 367) Dummy {f00=0x0006, f01=0x018e, f02=» P RES 205 P XIF P IFT QNBUF=14 $ PBUF15 EQU BUF1 : P XIF P P* P* f P IFF QNBUF=1 p P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8
0x265334…2654c8 Dummy {f00=0x0006, f01=0x0190, f02=» PBUF15 DATA BUF16 P DATA 0,0,0 P RES 205 0 P XIF @ P IFT QNBUF=15 L PBUF16 EQU BUF1 b P XIF x P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6
0x2654c8…26565c Dummy {f00=0x0006, f01=0x0190, f02=»FF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15 * PBUF16 DATA BUF1 @ P DATA 0,0,0 X P RES 205 l P XIF | P EJECT P* P************** P* DMTGBU * P************** P* * P* ENTRY DMTGBU GET A D
0x26565c…2657f0 Dummy {f00=0x0006, f01=0x0190, f02=»ER t P* $ P* OUTPUT A3 = BUFFER ADDRESS J P* SKIP RETURN (+2) IF SECTOR MUST BE READ INTO BUFFER AT A3 < , P* A5 AND A7 WILL BE DESTROYED P* 8 P* CURBUF, BUFDMI, -FC AND -SNR WILL BE SET < P*
0x2657f0…265984 Dummy {f00=0x0006, f01=0x0190, f02=»* SEARCHED FOR IS ALREADY PRESENT IN ANY FREE BUFFER. F P* IF THIS SECTOR IS NOT FOUND A FREE SECTOR MUS BE FOUND AND IN @ P* P* P* PDMTGBU EQU * P INH INH P* 4 P* CHECK IF THIS SECTOR IS FOUND IN ANY BUFFER
0x265984…265b18 Dummy {f00=0x0006, f01=0x0190, f02=») DMT020 WRONG VOLUME P CW A2,BUFSNR,A3 P RF(E) DMT050 SAME SECTOR NO 6 PDMT020 EQU * Z P LDK A7,/01 n & P AN A7,BUFLNK,A3 STATUS IN BIT 15 P RF(NZ) DMT041 USED P IM BUFOR,A3 MAKE OLDER P RF(P) DMT030 P LDK A7,/F
0x265b18…265cac Dummy {f00=0x0006, f01=0x0190, f02=»T A3,NEWBUF PDMT041 EQU * P CW A3,CURBUF ( * P RB(NE) DMT010 MORE BUFFERS TO SERARCH > P LDR A5,A5 l P RF(NZ) DMT043 BUFFER FOUND ~ P LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PDMT043 LD A3,NEWBUF P*
0x265cac…265e40 Dummy {f00=0x0006, f01=0x0190, f02=» t " P ST A2,BUFSNR,A3 SECTOR NUMBER PDMT050 EQU * . " P CM BUFOR,A3 RESET OLD-COUNTER B P ST A3,CURBUF h P LDK A7,/01 ~ ( P ORRS A7,A3 SET STATUS USED BIT 15 P ENB ENB P RTN A14 P EJECT P* P**************
0x265e40…265fd4 (2, 368) Dummy {f00=0x0006, f01=0x0190, f02=» BUFFER ADDRESS P* A2 IS DESTROYED P* < P* F PDMTRBU EQU * P P LDKL A2,/FFFE d P ANRS A2,A3 SET OFF BIT 15 z P RTN A14 P* P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x265fd4…266168 Dummy {f00=0x0006, f01=0x40b4, f02=» P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE 8 PDMT750 CW A3,CURBUF T P RB(NE) DMT700 MORE BUFFERS p P RTN A14 P END @ P* ( PCLRBUF EQU * CLEAR ALL FREE BUFFERS @ P****************************
0x266168…2662fc Dummy {f00=0x0006, f01=0x2008, f02=» P* DMTRBU * P************** " P* 8 . P* ENTRY DMTRBU RELEASE A DISC BUFFER B P* t $ P* INPUT A3 = BUFFER ADDRESS ~ P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2,/FFFE P
0x2662fc…266490 Dummy {f00=0x0006, f01=0x018e, f02=»U * CLOSE A FILE P LDK A4,0 PTIOC10 EQU * * $ P ST A4,FDBRRO,A6 MARK ORDER TYPE > P LDK A2,0 f , P ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE x P* ( P* LET FDBCEX POINT TO FIRST EXTENT P* P LDR A4,A6 P ADK A4,FDBEXT
0x266490…266624 Dummy {f00=0x0006, f01=0x0190, f02=» P LDR A1,A6 FDB ADDR 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK P CF A14,EARELB T PREL090 EQU * j P LDK A1,0 CORRECT RETURN ~ P ABL TIODME P EJECT ( PSETLRN EQU * SET LAST RECORD NUMBER P LC A1,ECBCW+3,A8 P S
0x266624…2667b8 Dummy {f00=0x0006, f01=0x0190, f02=»DATA REC p P RF GET010 . PGETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC " PGET010 LDR A1,A6 FDB ADDR T " P CF A14,CRNGET GET CRN BUFFER v P ADR A7,A2 ADDR CURR REC NO P LDK A2,0 P LC A3,-1,A7 FILE CODE P CC A3,ECBFC,A8 P
0x2667b8…26694c Dummy {f00=0x0006, f01=0x0190, f02=»REC NO ~ P LD A2,1,A7 PGET030 EQU * " P ST A2,ECBCW,A8 6 P RB REL090 N P EJECT ` " PSEQREAD EQU * SEQUENTIAL READ n P* $ P* FIND CRN+1 AND TEST IF > LRN P* P LDR A1,A6 FDB ADDR " P CF A14,CRNGET GET CRN-BUFFE
0x26694c…266ae0 Dummy {f00=0x0006, f01=0x018e, f02=»ERFLOW P RF SEQR20 PSEQR10 EQU * " P ANKL A2,/7FFF REMOVE OVERFLOW 4 P ADK A1,1 ADD CARRY Z PSEQR20 EQU * v P SC A1,ECBCW+3,A8 REC NO P ST A2,ECBCW,A8 P* $ P* CONTINUE AS FOR RANDOM READ P* P EJECT
0x266ae0…266c74 (2, 369) Opaque[0x194]
0x266c74…266e08 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2558, f03=0x0000}
0x266c74…266e08 IdxSect {
0x266c74…266e08 f00 = 0x012a // 0x266c74 @0x0
0x266c74…266e08 f01 = 0x0004 // 0x266c76 @0x2
0x266c74…266e08 gno = [ // 0x266c78 @0x4
0x266c74…266e08 [0x00]: C0x012a.0x3.0
0x266c74…266e08 [0x01]: C0x0137.0x0.0
0x266c74…266e08 ]
0x266c74…266e08 }
0x266e08…266f9c Dummy {f00=0x012a, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x266f9c…267130 Dummy {f00=0x012a, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x267130…2672c4 Dummy {f00=0x012a, f01=0x0190, f02=»REA r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 2 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS < 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER | P* PX:B EQU 50 " PCRNBAR EQU 00300 CURRENCY AREA P* P*
0x2672c4…267458 Dummy {f00=0x012a, f01=0x0190, f02=» P* PQFDBAR EQU 00285 P* & PX:D EQU 96 0 ( PQFDBFL EQU 00114 FDB FIX PART LENGTH B P* n P EJECT x P* PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNE
0x267458…2675ec Dummy {f00=0x012a, f01=0x410a, f02=» IFF MXSIZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 B P XIF p PMXINDE EQU * END INDEX INDEX | 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @
0x2675ec…267780 Dummy {f00=0x012a, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x267780…267914 (2, 370) Dummy {f00=0x0137, f01=0x0190, f02=»MAX 4 WORDS | PDMT150 EQU * P LDR* A10,A4 ( P CWR* A10,A7 < P ABL(NE) DMT250 NO MATCH P P SUK A2,1 p . P RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH P ADK A4,2 P ADK A7,2 P RB DMT150 CHECK NEXT WORD P* ( P*
0x267914…267aa8 Dummy {f00=0x0137, f01=0x0190, f02=» DMT165 YES P CCK A2,'LL' LIBRARY FILE ? P ABL(NZ) DMT250 NO 8 P LDK A2,0 FILE EXTENT NUMBER R P RF DMT167 v . PDMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER P EJECT PDMT167 EQU * P* . P* GET INFO FROM VTOC AND SAVE IN
0x267aa8…267c3c Dummy {f00=0x0137, f01=0x0190, f02=» P ST A1,TASCXO P RF(NN) DMT170 <= 4 EXTENTS P LDK A7,9 B * P ABL DMTASX MORE THAN 4 EXTENTS EXIST T PDMT170 EQU * " P ECR A2,A2 TO LEFT HALF OF A2 4 P LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 P ST A2,TASSEX,A1
0x267c3c…267dd0 Dummy {f00=0x0137, f01=0x0190, f02=» LD A2,VTFXBA,A4 EXTENT BASE P ST A2,TASXLB+2,A1 $ P LD A2,TASSEX,A1 > $ P RF(NZ) DMT250 NOT FIRST EXTENT V P EJECT ~ P* FIRST FILE EXTENT < P* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. P* P LD A12,TASFDB *
0x267dd0…267f64 Dummy {f00=0x0137, f01=0x0190, f02=»FDBSTA PDMT200 EQU * P LDR* A5,A12 " P ANK A5,/01 6 P RF(Z) DMT210 FREE J P LD A2,FDBEXT,A12 d P CW A2,TASVOL,A6 ~ " P RF(NE) DMT210 NOT SAME VOLUME P LD A2,FDBVTO,A12 P CW A2,TASVRN $ P RF(NE) DMT210 NOT SAME VTOC
0x267f64…2680f8 Dummy {f00=0x0137, f01=0x0190, f02=»OUND j PDMT205 EQU * P LDK A7,5 FILE CODE USED P ABL DMTASX @ P* T $ PDMT210 LDR* A12,A12 GET NEXT FDB ^ P ANKL A12,/FFFE ( P RB(NE) DMT200 MORE FDB:S TO SEARCH P* 0 P* NO MATCHING FDB EXIST FIND A FREE FDB P
0x2680f8…26828c Dummy {f00=0x0137, f01=0x0190, f02=» P ANKL A12,/FFFE & P RB(NE) DMT220 MORE FDB:S TO CHECK P LDK A7,3 F P ABL DMTASX NO FDB AVAILABLE X ( P* INITIALIZE FDB ZERO FROM FDB+2 | P* PDMT230 EQU * P ST A12,TASFDB P LDR A10,A12 P ADKL A10,QFDBFL P
0x26828c…268420 Dummy {f00=0x0137, f01=0x0190, f02=»DMT233 PDMT237 EQU * P LDKL A2,/8000 " P* DEV NOT BUSY 8 P ST A2,DWTST,A12 P P LDKL A2,TIODM h P ST A2,DWTADR,A12 ~ P LDKL A2,SECTLE P LDR A1,A12 P ADKL A1,FDBECB P ST A2,ECBRL,A1 P LDK A2,/01 P
0x268420…2685b4 (2, 371) Opaque[0x194]
0x2685b4…268748 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2550, f03=0x0000}
0x2685b4…268748 IdxSect {
0x2685b4…268748 f00 = 0x012a // 0x2685b4 @0x0
0x2685b4…268748 f01 = 0x0002 // 0x2685b6 @0x2
0x2685b4…268748 gno = [ // 0x2685b8 @0x4
0x2685b4…268748 [0x00]: C0x012a.0x2.0
0x2685b4…268748 ]
0x2685b4…268748 }
0x268748…2688dc Dummy {f00=0x012a, f01=0x0190, f02=» 0 P IDENT DFTAB REL 9.2 79-11-16 870105040920 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* LEVE
0x2688dc…268a70 Dummy {f00=0x012a, f01=0x40ce, f02=»** ^ P* P* DISC FILE CODE TABLE P* 4 P ENTRY DFTAB > P ENTRY DFTABE R P* h P* r PDFTAB EQU * | P DATA /F8F9,/FAFB PDFTABE EQU * P END @ DISC FILE CODE TABLE P* P* P* LEVE
0x268a70…268c04 Dummy {f00=0x012a, 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*
0x268c04…268d98 Dummy {f00=0x012a, f01=0x0190, f02=»-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO r P* ARE SAVED TOO. 0 L P* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED J L P* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO L P* ANOTHER FILE CODE. IF SO T
0x268d98…268f2c Dummy {f00=0x012a, f01=0x0190, f02=»EN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE 4 P* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS < P* t 2 P* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. ~ 4 P* DURING THE FIRST LOOP A MASTERINDEX IS READ. . P* FC 13 IN TTAB FOR DMTASK
0x268f2c…2690c0 Dummy {f00=0x012a, f01=0x018e, f02=»MTASS P ENTRY VTLRN P ENTRY VLVBA " P ENTRY VLVRL 6 P ENTRY SECTLE J P EJECT ` P* n P***************** x P* EXTERNALS * P***************** P* P EXTRN QTJOB P EXTRN FNDTID,TTB:TD P*
0x2690c0…269254 (2, 372) Opaque[0x194]
0x269254…2693e8 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27a0, f03=0x0000}
0x269254…2693e8 IdxSect {
0x269254…2693e8 f00 = 0x013d // 0x269254 @0x0
0x269254…2693e8 f01 = 0x000c // 0x269256 @0x2
0x269254…2693e8 gno = [ // 0x269258 @0x4
0x269254…2693e8 [0x00]: C0x013d.0x0.0
0x269254…2693e8 [0x01]: C0x013d.0x1.0
0x269254…2693e8 [0x02]: C0x013d.0x2.0
0x269254…2693e8 [0x03]: C0x013d.0x3.0
0x269254…2693e8 [0x04]: C0x013e.0x0.0
0x269254…2693e8 [0x05]: C0x013e.0x1.0
0x269254…2693e8 ]
0x269254…2693e8 }
0x2693e8…26957c Dummy {f00=0x013d, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 9.2 79-11-16 870105040920 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* P*
0x26957c…269710 Dummy {f00=0x013d, f01=0x0190, f02=»ROM :***************** r P* P* DMTASK ( P* : P*************** D P* ENTRIES * P*************** t P* P ENTRY FNDKMX,CHKKEY P ENTRY RDNXTR P ENTRY FNDKEY P ENTRY CRNUPD P* P**********
0x269710…2698a4 Dummy {f00=0x013d, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x2698a4…269a38 Dummy {f00=0x013d, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x269a38…269bcc Dummy {f00=0x013d, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x269bcc…269d60 Dummy {f00=0x013d, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x269d60…269ef4 (2, 373) Dummy {f00=0x013d, f01=0x0190, f02=»25 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 P ADK A2,2 ENTRY KEY ADR 6 P LDR A1,A2 SAVE ENTRY ADR V P LDR A3,A8 SEARCH KEY ADR x P LDR A6,A11 MAX KEY LENGTH P LDK A7,0 CHAR ADR P CF A14,CHKKEY COMPARE KEYS P LDR A7,A10 M
0x269ef4…26a088 Dummy {f00=0x013d, f01=0x0190, f02=» v . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL P* : P* SEARCHED KEY GREATER D P* d P LDR A10,A10 M n P RF(Z) FND050 SEARCH READY P ADR A9,A6 I=I+(M/2 CEIL) PFND030 EQU * P LDR A10,A7 M=M/2 FLOOR P RB FND020
0x26a088…26a21c Dummy {f00=0x013d, f01=0x0190, f02=»D045 EQU * NO MASTER INDEX P LDK A1,0 " P LDK A2,1 REC NR 1 4 P RF FND070 N PFND050 EQU * ` P ADR* A1,A5 ARDR NEXT ENTRY t PFND060 EQU * P LDR A3,A1 ENTRY ADR P SUK A3,3 P ADR* A3,A5 ADR REC NO P* P* MO
0x26a21c…26a3b0 Dummy {f00=0x013d, f01=0x0190, f02=»2,A2 P LCR A2,A3 PFND070 EQU * P RTN A14 2 P EJECT B 8 P****DESCRIPTION************************************* P P* D P* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE P* TERMINATED WITH A /EE. P* 8
0x26a3b0…26a544 Dummy {f00=0x013d, f01=0x0190, f02=» * P* A6 = MAX NO OF CAHARACTERS IN KEY 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY 2 P* h P* CF A14,CHKKEY r P* 8 P****EXIT PARAMETERS********************************* P* : P* A3 = 0 WHEN SEARCED KEY IS CONTAINED I
0x26a544…26a6d8 Dummy {f00=0x013d, f01=0x0190, f02=»CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY x " P* A6 = MAX NO OF CHAR IN KEY : P* ` 8 P****USED REGISTERS********************************** j P* P* A2-A4,A6-A7 < P******************************************************** P
0x26a6d8…26a86c Dummy {f00=0x013d, f01=0x0190, f02=»CR A4,A3 SEARCED KEY CHAR P CCK A4,/EE00 " " P RF(E) CHK060 END OF KEY CHAR 8 P CCR A4,A2 SC=EC? ^ P RF(G) CHK100 SC GT TH EC x " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL)
0x26a86c…26aa00 Dummy {f00=0x013d, f01=0x0190, f02=» LDK A3,0 FOUND P RF CHK140 PCHK120 EQU * * $ P LDKL A3,-1 SEARCHED KEY SMALLER > P RF CHK140 f PCHK100 EQU * x $ P LDK A3,1 SEARCHED KEY SGREATER PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*******************
0x26aa00…26ab94 (2, 374) Dummy {f00=0x013d, f01=0x0190, f02=»WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED & P* SECTOR WILL BE MADE AVAILABLE D P* n 8 P****ENTRY PARAMETERS******************************** x P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDB
0x26ab94…26ad28 Dummy {f00=0x013d, f01=0x0190, f02=»NTED ` : P* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED J P* A8 = ECB ADDRESS P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT AD
0x26ad28…26aebc Dummy {f00=0x013d, f01=0x018e, f02=»DE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED r $ P* A2 = FDBRRO = RECORD OFFSET 4 P* A3 = BUFFER ADDRESS * P* = 0 WHEN NO BUFFER IS ALLOCATED | P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS**********************************
0x26aebc…26b050 Dummy {f00=0x013d, f01=0x0190, f02=» X P EJECT PRDNXTR EQU * P LDR A10,A3 SAVE BUFFER ADDR * P RF(NZ) RDN200 BUFFER EXIST N P STR A7,A14 r P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU * & P CF A14,GTBKBU GET BLOCKBU
0x26b050…26b1e4 Dummy {f00=0x013d, f01=0x0190, f02=»DR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT P LKM F P DATA 1 R & P CF A14,DMTIOZ CHECK RETURN CODES b P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR PRDN080 EQU * P LDR A6,A1 FDB ADDR P L
0x26b1e4…26b378 Dummy {f00=0x013d, f01=0x0190, f02=»RDN200 EQU * $ P LD A2,FDBRRO,A1 REC ORD OFFSET P RF(NN) RDN220 NOT FIRST REC < P STR A7,A14 ` P SUKL A14,4 t P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER P
0x26b378…26b50c Dummy {f00=0x013d, f01=0x0190, f02=»EC IN CURRENT BLOCKBUFFER P* " $ P AD A2,FDBRLE,A1 RECOR D LENGTH , P ADK A2,1 STATUS CHAR T P ST A2,FDBRRO,A1 NEW OFFSET r P RF RDN950 RETURN P* 4 P* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT P* PRDN300 EQU *
0x26b50c…26b6a0 Dummy {f00=0x013d, f01=0x0190, f02=» AD A5,EXTLEN,A3 EXTENT LENGTH P SUK A5,1 & $ P CW A5,FDBSNR,A1 SECT NO CURRENT 8 , P RF(NG) RDN400 IT WAS LAST REC IN EXTENT ` P* P* NEW SECTOR P* P IM FDBSNR,A1 SECT NO P LDR A6,A1 FDB ADDR P RF RDN500 P*
0x26b6a0…26b834 (2, 375) Dummy {f00=0x013d, f01=0x0190, f02=» NO v P LDR A1,A2 P LDR A2,A3 P LDK A6,0 0 P LDK A7,1 B P CF A14,ADDMOD NEXT REC NO T P LDR A6,A5 RESTORE FDB ADDR v * P CF A14,CALSNO GET NEXT REC ADDR PHYS P LDR A8,A13 $ P LDR A1,A1 CHECK EN D OF MEDIUM P RF(
0x26b834…26b9c8 Dummy {f00=0x013d, f01=0x0190, f02=» x " P CF A14,DMTRBU RELEASE BUFFER P LDR A1,A6 FDB ADDR . P RB RDN040 NEXT SECTOR J P* h P* EXIT r P* PRDN900 EQU * P LDR A5,A1 RET CODE P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO
0x26b9c8…26bb5c Dummy {f00=0x013d, f01=0x0190, f02=»ER ADDR PRDN940 EQU * P LD A6,2,A14 $ P ADKL A14,4 8 P LDR* A7,A14 L PRDN950 EQU * ` P RTN A14 t P EJECT 8 P****DESCRIPTION************************************* P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD
0x26bb5c…26bcf0 Dummy {f00=0x013d, f01=0x0190, f02=»ENTRY PARAMETERS******************************** P* 8 P* A1 = FDB ADDRESS B P* A8 = SEARCH KEY ADDR ^ & P* A11 = NO OF CHARACTERS IN KEY ~ " P* A13= PHYSICAL ECB ADDRESS P* 8 P****EXIT PARAMETERS*****************************
0x26bcf0…26be84 Dummy {f00=0x013d, f01=0x0190, f02=» 2 P* = /4000 WHEN NEXT HIGHER KEY IS FOUND . P* = RETURN CODE WHEN KEY IS NOT FOUND : 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER l P* A3 = BUFFER ADDRESS & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARAC
0x26be84…26c018 Dummy {f00=0x013d, f01=0x0190, f02=»**** ` P* , P* A1 - A11,A13 + 4 WORDS ON A14 STACK P* F : P****************************************************** P P EJECT PFNDKEY EQU * P* & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF M
0x26c018…26c1ac Dummy {f00=0x013d, f01=0x0190, f02=» GET KEY ENTRY IN MASTER INDEX P LD A6,8,A14 FDB ADDR & P CF A14,CALSNO GET PHYS ADDR D P LDR A1,A1 h P RF(NZ) FKY900 ERROR z P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9
0x26c1ac…26c340 Dummy {f00=0x013d, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x26c340…26c4d4 (2, 376) Dummy {f00=0x013e, f01=0x0190, f02=» P RF(E) FKY200 USED RECORD P* & & P* NO MORE RECORDS IN THIS SECTOR 0 P* Z * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET d P LD A4,FDBMRO,A1 & P ST A4,FDBRRO,A1 LAST REC IN SECT P* P* *CHECK IF EOF P* P LDR
0x26c4d4…26c668 Dummy {f00=0x013e, f01=0x0190, f02=»N,A1 P RB(L) FKY100 NOT EOF P RF(G) FKY180 EOF * P CW A3,FDBLRN+1,A1 D P RB(L) FKY100 NOT EOF ^ PFKY180 EQU * | P* P* EOF IS IN THIS SECTOR P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR
0x26c668…26c7fc Dummy {f00=0x013e, f01=0x0190, f02=» P LD A3,6,A14 SEARCH KEY ADDR P CF A14,CHKKEY COMPARE KEYS , P LDR A3,A3 P & P RF(P) FKY840 SEARCHED KEY GREATER b " P RF(N) FKY850 SEARCH KEY LESS P RF FKY870 KEY FOUNFD PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P
0x26c7fc…26c990 Dummy {f00=0x013e, f01=0x0190, f02=» THAT HAS BEEN CHECKED FOR THIS KEY . P LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS ! 0 P RB FKY100 NEXT KEY ! b PFKY850 EQU * ! ~ P LDKL A2,/4000 KEY NOT FOUND ! P RF FKY950 ! PFKY870 EQU * ! P LDK A2,0 KEY FOUND ! P RF FKY950 !
0x26c990…26cb24 Dummy {f00=0x013e, f01=0x0190, f02=» P ADKL A14,8 RESTORE STACK " P LDR* A1,A14 FDB ADDR " & P LDR A3,A9 BUFFER ADDR " D P RTN A14 " b P EJECT " r P* " J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX " P* RECORDS ARE UPDATED " P* " P* IN
0x26cb24…26ccb8 Dummy {f00=0x013e, f01=0x0190, f02=»2 = ADD PARAMETER +1, -1 " P* # $ P* USED REGISTERS: # . P* A1 -A12 # J P* # ^ P* OUT: # h P* A5 = FDB ADDR INDEX # x P* A10,A11 = UNCHANGED # P* # PCRNUPD EQU * # P STR A12,A14 # P SUKL A14,2 # $ P LD A12,FD
0x26ccb8…26ce4c Dummy {f00=0x013e, f01=0x0190, f02=»F(Z) CRU900 END OF LINK # P LC A7,FDBECB+1,A5 FILE CODE $ P CC A7,CRNCIF,A12 $ D P RB(NE) CRU100 WRONG FC $ ^ P CC A10,CRNCIF+1,A12 $ ~ P RB(G) CRU100 $ P RF(L) CRU200 $ P CW A11,CRNCIF+2,A12 $ P RB(G) CRU100 $ PCRU200 EQU * $
0x26ce4c…26cfe0 Dummy {f00=0x013e, f01=0x018e, f02=» * $ P* % P* UPDATE CRN % P* % * P LD A7,2,A14 ADD PARAM % 4 P LDR A6,A7 % R P RF(N) CRU230 -1 % d P LDK A6,0 % | PCRU230 EQU * % P ANKL A7,/7FFF % P LDK A1,0 % P LC A1,CRNCIF+1,A12 % P LD A2,CRNCIF+2,A12 % P CF A1
0x26cfe0…26d174 (2, 377) Dummy {f00=0x013e, f01=0x4028, f02=» % P RTN A14 & P END & @ & $
0x26d174…26d308 Dummy {f00=0x013e, f01=0x2008, f02=» ' + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x26d308…26d49c Dummy {f00=0x013e, f01=0x0190, f02=»TASSPW DATA 0 TTAB ADDRESS DMTASK $ PTASFDD DATA 0 FDB ADDR DATA FILE * ( PTASTBE DATA 0 TTAB/SCTCDT ENTRY ADDR R 2 PTASLFD DATA 0,0 LOCKED FLEXDISC FILE CODES =1 ~ P DATA 0,0 P DATA 0,0 " PTASS14 EQU *-2 TASS A14 STACK P* P
0x26d49c…26d630 Dummy {f00=0x013e, f01=0x0190, f02=» * P************** P* , P* ENTRY TASCAQ CHECK ASSIGN QUEUE * P* Z P* A7= RETURN CODE d P* * P* SET OFF USE BIT IN TASBLK H P* IF TASQUE = 0 THEN RETURN ELSE QUEUE FIRST IN CHAIN AND 2 P
0x26d630…26d7c4 Dummy {f00=0x013e, f01=0x0190, f02=»QUE P RF(Z) TASCEX EMPTY QUEUE " P LDR* A1,A5 GET NEXT IN CHAIN . , P ST A1,TASQUE AND PUT IT FIRST IN QUEUE T P LDKL A1,-4 ( P ADS A1,TTB:SA,A5 UPD DISPATCH ADDR P CF A15,QTJOB NEXT ASSIGN P RF TASC05 & PTASCEX CM TASQUE
0x26d7c4…26d958 Dummy {f00=0x013e, f01=0x0190, f02=» CODE IN SAVED A7 r P RTN A14 P EJECT * 8 P****DESCRIPTION************************************* 8 P* t : P* VOLCHE WILL COMPARE EACH VOLUME NAME IN ASBLK WITH ~ & P* VOLUME NAMES IN DWT FOR DISCS P* 8 P****ENTRY PARAMETERS****
0x26d958…26daec Dummy {f00=0x013e, f01=0x0190, f02=»S WANTED. v : P* 1 LOCK WANTED. ONLY FROM DMTASS FOR FLEXDISC P* P 8 P****EXIT PARAMETERS********************************* Z P* P* A1 = 0 OK P* 1 VOLUME UNKNOWN P* A5 = TTAB ADDR P* 8 P****USED REG
0x26daec…26dc80 Dummy {f00=0x013e, f01=0x0190, f02=»************** h PVOLCHE EQU * P CM TASLFD =1 * $ P CM TASLFD+2 LOCKED FLEXDISCS =1 @ P SLL A2,1 h P SUK A2,2 z P ST A2,TASCVO INIT. TASCVO P LDR A4,A8 2 P ADK A4,10 POINTER TO FIRST VOL NAME IN ASBLK PTAS110 EQU * 2
0x26dc80…26de14 (2, 378) Opaque[0x194]
0x26de14…26dfa8 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27d0, f03=0x0000}
0x26de14…26dfa8 IdxSect {
0x26de14…26dfa8 f00 = 0x013e // 0x26de14 @0x0
0x26de14…26dfa8 f01 = 0x0004 // 0x26de16 @0x2
0x26de14…26dfa8 gno = [ // 0x26de18 @0x4
0x26de14…26dfa8 [0x00]: C0x013e.0x2.0
0x26de14…26dfa8 [0x01]: C0x013f.0x0.0
0x26de14…26dfa8 ]
0x26de14…26dfa8 }
0x26dfa8…26e13c Dummy {f00=0x013e, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x26e13c…26e2d0 Dummy {f00=0x013e, f01=0x0190, f02=»CTION ON THE ALPHA ^ P* COMPUTER P*CALLING SEQUENCE: , $ P* A1-A2 = ARG1 F $ P* AG-A7 = ARG2 n P* CF A14,ADDMOD & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 A
0x26e2d0…26e464 Dummy {f00=0x013e, f01=0x0190, f02=»NDITIONAL ASSEMBLY P* . P***************************************** $ P* V 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PADDMOD
0x26e464…26e5f8 Dummy {f00=0x013e, f01=0x0190, f02=».L A7,/7FFF P ANK.L A2,/7FFF P ADR A2,A7 8 P RF(3) OVER1 X 0 PNOVER ADR A1,A6 * NO OVERFLOW x P RF(1) END1 P RF(2) END2 P RF(3) END3 PNO
0x26e5f8…26e78c Dummy {f00=0x013e, f01=0x018e, f02=» A1,1 P RF(3) OVER3 P RB(7) NOVER 0 POVER3 ADR A1,A6 P P RF(2) END3 p P ADK A1,0 P RF(1) END1 P RB(7) NOVER1 P XIF =1 P IFT CPU852=
0x26e78c…26e920 Dummy {f00=0x013e, f01=0x4184, f02=» t PEND2 ADK A3,/80 PEND1 ADK A3,/80 * B PEND0 SLL A3,1 ********************************** L P ANK.L A3,/0300 P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S
0x26e920…26eab4 (2, 379) Dummy {f00=0x013f, f01=0x2008, f02=» ANK.L A3,/0300 P LDK.L A4,/FCFF * P AN.S A4,2,A14 L B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM n P RTN A14 P END @ D1 P RB(7) NO
0x26eab4…26ec48 Dummy {f00=0x013f, f01=0x0190, f02=»* & P* ' > P* FIND A FREE ENTRY IN TTAB/CD:TAB (FC AND DWTADR = 0 ) ' P* ' V PTAS180 EQU * ' ` P LDK A1,0 ' t P LDR A10,A10 TC ' P RF(Z) TAS185 GLOBAL ASSIGN ' P LD A2,TASTTA TTAB ADDR ' P LDR A4,A2 ' P LD A2,TTB:TD,A4 '
0x26ec48…26eddc Dummy {f00=0x013f, f01=0x0190, f02=»UK A2,4 ' ( P RF(L) TASSE2 NO FREE ENTRY IN TABLE ( P LDR A9,A4 ( < P ADR A9,A2 ( N P CCR A1,A9 FILE CODE ( ` " P RB(NE) TAS190 FC NOT EQUAL 0 ( | P CW A1,1,A9 ( & P RB(NE) TAS190 DWTADR NOT EQUAL 0 ( P LDR* A1,A8 ASBLK 1ST WORD ( P RF(N)
0x26eddc…26ef70 Dummy {f00=0x013f, f01=0x0190, f02=»Y ( f P ST A9,TASTBE SAVE ENTRY ) P* ) * 0 P* GET FIRST VOLUME AND ACTIVATE ITS DMTASK ) 4 P* ) h P LD A1,TASCVO ) r P LDK A7,0 ) P LC A7,TASVOL,A1 ) P ADKL A7,'#D' TID DMTASK ) P CF A15,FNDTID ) " P LDR A5,A2 TTAB ADDRESS DMTASK )
0x26ef70…26f104 Dummy {f00=0x013f, f01=0x0190, f02=»RY ) | P LDK A7,4 VOL UNKNOWN * P RF TASSEM * ( PTAS200 EQU * * : P LDK A2,2 * N 4 P ST A2,TASFIL MASTER INDEX LOOP IDENT IN DMTSAK * ` & P LDKL A2,DMTASS ASSIGN INDEX ENTRY * P LDR* A6,A8 * P RF(N) TAS210 INDEX ASSIGN * P CM TASFIL *
0x26f104…26f298 Dummy {f00=0x013f, f01=0x4182, f02=»F A15,ACTOT ACTIVATE DMTASK * P ABL TDISP GO TO DISPATCHER + $ P EJECT + H P* + V P* ERROR RETURNS + ` P* + z PTASSE5 ADK A7,1 + PTASSE4 ADK A7,1 + PTASSE3 ADK A7,1 + PTASSE2 ADK A7,1 + PTASSE1 ADK A7,1 + P ADK A7,1 +
0x26f298…26f42c Dummy {f00=0x013f, f01=0x2008, f02=» ,
0x26f42c…26f5c0 Dummy {f00=0x013f, f01=0x0190, f02=»****************************************** T 6 P* * U 2 6 P* RDBLK - READ ONE CASSETTE BLOCK * U l 6 P* =============================== * U 6 P*
0x26f5c0…26f754 (2, 380) Opaque[0x194]
0x26f754…26f8e8 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27e8, f03=0x0000}
0x26f754…26f8e8 IdxSect {
0x26f754…26f8e8 f00 = 0x013f // 0x26f754 @0x0
0x26f754…26f8e8 f01 = 0x0004 // 0x26f756 @0x2
0x26f754…26f8e8 gno = [ // 0x26f758 @0x4
0x26f754…26f8e8 [0x00]: C0x013f.0x1.0
0x26f754…26f8e8 [0x01]: C0x0140.0x3.0
0x26f754…26f8e8 ]
0x26f754…26f8e8 }
0x26f8e8…26fa7c Dummy {f00=0x013f, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITION B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x26fa7c…26fc10 Dummy {f00=0x013f, f01=0x0190, f02=»STRUCTION ON THE ALPHA ^ P*COMPUTER P*CALLING SEQUENCE 0 $ P* A1-A2 = ARG1 J $ P* A6-A7 = ARG2 r P* CF A14,DSUMOD & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A
0x26fc10…26fda4 Dummy {f00=0x013f, f01=0x0190, f02=»* CONDITIONAL ASSEMBLY P* . P***************************************** ( P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDS
0x26fda4…26ff38 Dummy {f00=0x013f, f01=0x0190, f02=» C1R A6,A6 P C1R A7,A7 P ANK.L A7,X'7FFF' 8 P ANK.L A2,/7FFF P ADK A7,1 ~ P RF(1) NOVER1 P ADK A6,1 P RF(3) OVER4 P RF(7)
0x26ff38…2700cc Dummy {f00=0x013f, f01=0x0190, f02=» z P RF(2) END2 P RF(3) END3 & P ADK A2,0 D P RF(0) END0 b P RF(7) END1 POVER1 ANK.L A2,X'7FFF' P ADK A1,1 P RF(3) OVER4 P
0x2700cc…270260 Dummy {f00=0x013f, f01=0x0190, f02=»VER2 | P XIF =1 P IFT CPU852=0 6813 =1 P RF(0) END0 =1 < P RF(1) END1 =1 T P RF(2) END2 =1 l P XIF =1 PEND3 ADK A3,/80 PEND2 ADK A3,/80 PEND1 ADK A3,/80 F PEND0 SLL
0x270260…2703f4 (2, 381) Dummy {f00=0x0140, f01=0x40a8, f02=» AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P* =1 b P RTN A14 r P END @
0x2703f4…270588 Dummy {f00=0x0140, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x270588…27071c Dummy {f00=0x0140, f01=0x0190, f02=» 0 P IDENT DMFDB REL 9.2 79-11-16 870105040920 P 8 P @ P* H P* R 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* , P* DMFDB = FILE DESCRIPTOR BLOCKS FDB P*
0x27071c…2708b0 Dummy {f00=0x0140, f01=0x0190, f02=»TE FDB AREA H P* BY MEANS OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED P* ` P ENTRY FDBSTA j P ENTRY FDBEND P ENTRY QFDBFL P ENTRY CRNQUE,CRBUFL P ENTRY CRNEND P ENTRY MXIND P EJECT P* 6
0x2708b0…270a44 Dummy {f00=0x0140, f01=0x0190, f02=»A r " PCRBUFL EQU 12 SIZE CRN BUFFER P* 0 < P* CRNBAR IS THE SIZE OF THE CRN BUFFER ARERA IN WORDS : 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER z P* PX:B EQU 50 PCRNBAR EQU X:B CURRENCY AREA P* P* PX:
0x270a44…270bd8 Dummy {f00=0x0140, f01=0x0190, f02=»* PQFDBAR EQU X:A P* PX:D EQU 96 * & PQFDBFL EQU X:D FDB FIX PART LENGTH < P* f P EJECT p P* ~ PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * PCRNQUE DATA 0 CRN LINK ROOT P RES CRNBAR PCRNEND EQU *
0x270bd8…270d6c Dummy {f00=0x0140, f01=0x4102, f02=»IZ=0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : P XIF h PMXINDE EQU * END INDEX INDEX t 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * P RES MXSIZ P END @ EQU *
0x270d6c…270f00 Dummy {f00=0x0140, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x270f00…271094 (2, 382) Opaque[0x194]
0x271094…271228 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2820, f03=0x0000}
0x271094…271228 IdxSect {
0x271094…271228 f00 = 0x0141 // 0x271094 @0x0
0x271094…271228 f01 = 0x0004 // 0x271096 @0x2
0x271094…271228 gno = [ // 0x271098 @0x4
0x271094…271228 [0x00]: C0x0141.0x0.0
0x271094…271228 [0x01]: C0x0141.0x2.0
0x271094…271228 ]
0x271094…271228 }
0x271228…2713bc Dummy {f00=0x0141, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 9.2 79-11-16 870105040920 P : P* =1 RETURN CONDITIONS B P* b 8 P**************************************************** l P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P*
0x2713bc…271550 Dummy {f00=0x0141, f01=0x0190, f02=»N THE ALPLA COMPUTER ^ P* CALLING SEQUENCE: ( P* LD A6,ARG1 8 ( P* LD A7,ARG1 d P* CF A14,MPYMOD ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRU
0x271550…2716e4 Dummy {f00=0x0141, f01=0x0190, f02=»L ASSEMBLY P* . P***************************************** P* N 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION X . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU *
0x2716e4…271878 Dummy {f00=0x0141, f01=0x0190, f02=»A3,/8000 IF A6=A7=/8000 RETURN IN ERROR EXIT ~ P CWR A3,A6 8 P RF(4) SUITE X P CWR A3,A7 x P RF(0) END3 < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR
0x271878…271a0c Dummy {f00=0x0141, f01=0x0190, f02=»A3,0 ~ P LDK A4,15 P ADK A6,0 , P RF(0) END0 J P RF(6) ARG1PS h 0 P ADK A3,1 *ARG1 NEGATIVE P C1R A6,A6 P ADK A6,1 PARG1PS ADK
0x271a0c…271ba0 Dummy {f00=0x0141, f01=0x0190, f02=» C1R A7,A7 P ADK A7,1 P RF(3) CASSPE 8 PARG2PS SRC A7,1 X P RF(6) NOVER1 v P ADR A1,A6 PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVE
0x271ba0…271d34 (2, 383) Dummy {f00=0x0141, f01=0x0190, f02=» 4 PNOVER3 ADK A3,0 *END* RESTORE SI=N P RF(0) END1 < P C1R A1,A1 Z P C1R A2,A2 z P ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN T
0x271d34…271ec8 Dummy {f00=0x0141, f01=0x0190, f02=»A1,1 ~ PNOVER4 ANK.L A2,/7FFF P RF(7) END2 . P XIF =1 L P IFT CPU852=0 6813 =1 ^ P RF(0) END0 =1 | P RF(1) END1 =1 P RF(2) END2 =1 P XIF =1 PEND3 ADK A3,/81 PEND2 ADK
0x271ec8…27205c Dummy {f00=0x0141, f01=0x4168, f02=» v P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM * P* =1 p P RTN A14 P IFT CPU852=1 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P*
0x27205c…2721f0 Dummy {f00=0x0141, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x2721f0…272384 Dummy {f00=0x0141, f01=0x0190, f02=»DBRLE,FDBSNR,ECBCW l . P EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR . P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF L 4 P EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU ~ P EXTRN DMTIOZ P EJECT 8 P****DESCRIPTION*******************************
0x272384…272518 Dummy {f00=0x0141, f01=0x0190, f02=»1 ALG. U. ` 4 P* THE SEARCH KEY MAY BE TERMINATED WITH A /EE. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : J P* - NO OF ENTRIES N ~ $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS********************************
0x272518…2726ac Dummy {f00=0x0141, f01=0x0190, f02=»CF A14,FNDKMX P* 8 P****EXIT PARAMETERS********************************* " P* ^ 0 P* A1,A2 = LODGICAL RECORD NO IN INDEX FILE h P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P*
0x2726ac…272840 Dummy {f00=0x0141, f01=0x0190, f02=»9,A2 P ANKL A9,/1 GET BIT 15 P SRA A2,1 * P LDR A10,A2 M=N/2 FLOOR < P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 | PFND020 EQU * P LDK A2,0 P LDR* A7,A5 ENTRY LENGTH P LDR A6,A9 I P SUK A6,1 $ P
0x272840…2729d4 (2, 384) Opaque[0x194]
0x2729d4…272b68 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2838, f03=0x0000}
0x2729d4…272b68 IdxSect {
0x2729d4…272b68 f00 = 0x0141 // 0x2729d4 @0x0
0x2729d4…272b68 f01 = 0x0004 // 0x2729d6 @0x2
0x2729d4…272b68 gno = [ // 0x2729d8 @0x4
0x2729d4…272b68 [0x00]: C0x0141.0x3.0
0x2729d4…272b68 [0x01]: C0x0142.0x1.0
0x2729d4…272b68 ]
0x2729d4…272b68 }
0x272b68…272cfc Dummy {f00=0x0141, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 9.2 79-11-16 870105040920 P : P* =1 RET COND B P* Z 8 P**************************************************** d P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P*
0x272cfc…272e90 Dummy {f00=0x0141, f01=0x018e, f02=»A COMPUTER V P* CALLING SEQUENCE & P* A1-A2= DIVIDEND , $ P* A6 = DIVISOR V P* CF A14,DIVMOD ~ B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A
0x272e90…273024 Dummy {f00=0x0141, f01=0x0190, f02=» P* CONDITIONAL ASSEMBLY P* " . P***************************************** , P* ^ 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT
0x273024…2731b8 Dummy {f00=0x0141, f01=0x0190, f02=»,A1 SAVE DIVIDEND SIGN | P* =1 $ P ADK A6,0 4 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW R P ADK A1,0 P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0)
0x2731b8…27334c Dummy {f00=0x0141, f01=0x018e, f02=» P LDK A4,16 4 P ADK A1,0 *SIGN OF DIVIDEND $ P RF(6) DIVENP 8 P ADK A3,1 * DIVIDEND IS NEGATIVE | P C1R A1,A1 P C1R A2,A2 P ANK.L
0x27334c…2734e0 Dummy {f00=0x0141, f01=0x018e, f02=» x 2 PDIVENP ADK A6,0 *SIGN OF DIVISOR P RF(6) DIVORP > 4 P SUK A3,1 *NEGATIVE DIVISOR ^ P C1R A6,A6 P ADK A6,1 < P ADK A6,0 RESET IF OVER
0x2734e0…273674 (2, 385) Dummy {f00=0x0142, f01=0x0190, f02=» 2 PSHIFT SUK A4,1 *A1 LESS THAN A6 P RF(0) END : P SLL A1,1 X P SLL A7,1 v P SLL A2,1 P RF(6) *+4 P ADK A1,1 P ADK A1,0
0x273674…273808 Dummy {f00=0x0142, f01=0x0190, f02=» ADK A7,1 P RB(7) SHIFT 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS : PEND LDR A2,A7 r P ADK A3,0 P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR +
0x273808…27399c Dummy {f00=0x0142, f01=0x018e, f02=» ADK A2,1 D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) ` P ADK A2,0 P XIF =1 P IFT CPU852=0 6813 =1 P RF(1) END1 =1 P
0x27399c…273b30 Dummy {f00=0x0142, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x273b30…273cc4 Dummy {f00=0x0142, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x273cc4…273e58 Dummy {f00=0x0142, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x273e58…273fec Dummy {f00=0x0142, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x273fec…274180 Dummy {f00=0x0142, f01=0x018e, f02=»ECORD v P RF FKY150 P LDR A1,A5 RET CODE P RF FKY900 ERROR EXIT < P* Z " P* BUFFER AND ADATA IS FOUND d P* PFKY150 EQU * P LDR A9,A3 BUFFER ADDR P ADR A2,A3 BUFFER ADR P ADK A2,10 REC ADDR P LDR A10
0x274180…274314 (2, 386) Opaque[0x194]
0x274314…2744a8 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2850, f03=0x0000}
0x274314…2744a8 IdxSect {
0x274314…2744a8 f00 = 0x0142 // 0x274314 @0x0
0x274314…2744a8 f01 = 0x0012 // 0x274316 @0x2
0x274314…2744a8 gno = [ // 0x274318 @0x4
0x274314…2744a8 [0x00]: C0x0142.0x2.0
0x274314…2744a8 [0x01]: C0x0143.0x0.0
0x274314…2744a8 [0x02]: C0x0143.0x1.0
0x274314…2744a8 [0x03]: C0x0143.0x2.0
0x274314…2744a8 [0x04]: C0x0143.0x3.0
0x274314…2744a8 [0x05]: C0x0144.0x0.0
0x274314…2744a8 [0x06]: C0x0144.0x1.0
0x274314…2744a8 [0x07]: C0x0144.0x2.0
0x274314…2744a8 [0x08]: C0x0144.0x3.0
0x274314…2744a8 ]
0x274314…2744a8 }
0x2744a8…27463c Dummy {f00=0x0142, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 9.2 79-11-16 870105040920 P : P =1 CLEAR ECB B P REL 9.1 79-04-06 Z P* v 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DMSUBR = COM
0x27463c…2747d0 Dummy {f00=0x0142, f01=0x0190, f02=» 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* D P* DMTASK,TIODM,DMTASS N P* n P*************** x P* ENTRIES * P*************** P* P* & P ENTRY EATEST,EASETB,EARELB,CRNGET P ENTRY CAL
0x2747d0…274964 Dummy {f00=0x0142, f01=0x0190, f02=»USER TO SYSTEM AREA x 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P* P P***************** Z P* EXTERNALS * t P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO P EXTRN FDBCEX,FDBBLF
0x274964…274af8 Dummy {f00=0x0142, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x274af8…274c8c Dummy {f00=0x0142, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x274c8c…274e20 Dummy {f00=0x0142, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x274e20…274fb4 (2, 387) Dummy {f00=0x0143, f01=0x0190, f02=»AD x P ANK A1,/3E REMOVE BIT 15 P SUK A1,/1E , 4 P RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT @ P RF FND340 x ( PFND320 LDK A2,0 INDEX FOR INDEX FILE PFND340 EQU * P CCR A2,A6 INDEX P RF(E) FND390 ENTRY FOUND P LDK
0x274fb4…275148 Dummy {f00=0x0143, f01=0x0190, f02=»ED IN TENDIO TO RESET REQUEST BUSY BIT P* FOR ALL FILES . " P* AND TO RESOLVE ALL QUEUES H P* n PREQEND EQU * x P LC A2,TTB:ID,A5 GET TASK ID P CCK A2,'##' ( P RF(E) TEN117 JUMP IF DMTASK CALLING P* , P* RESET REQU
0x275148…2752dc Dummy {f00=0x0143, f01=0x0190, f02=»QU * P SUK A2,2 P RF(N) TEN115 NO MORE FILES P LDR A3,A6 B P ADR A3,A2 T P LD A3,FDBADF,A3 FDB ADDR f P RB(Z) TEN112 P CWR A3,A6 DWT ADDR P RF(E) TEN114 MASTER DWT P LD A5,DWTTQ,A3 P RF(Z) TEN113 NO QUEUE
0x2752dc…275470 Dummy {f00=0x0143, f01=0x0190, f02=»TEN114 EQU * $ P LDKL A4,/BFFF REQUEST BUSY BIT P ANS A4,DWTST,A3 RESET < P LDKL A4,/8000 Z $ P ORS A4,DWTST,A3 DEVICE NOT BUSY r P RB TEN112 PTEN115 EQU * P LDR* A4,A15 RESTORE A4 P* PTEN117 EQU * P ABL IHRTN
0x275470…275604 Dummy {f00=0x0143, f01=0x0190, f02=» FOR A LOG RECORD NO. n P* 8 P****ENTRY PARAMETERS******************************** ( P* d P* A1 = FDB ADRESS n P* A2,A3 = LOG RECORD NO P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*************************
0x275604…275798 Dummy {f00=0x0143, f01=0x018e, f02=»* = -1 EA FOUND FO R OTHER TASK P* . 8 P****USED REGISTERS********************************** 8 P* t P* A1 - A4 ~ P EJECT DMSUBR PEATEST EQU * " P LD A4,FDBEAL,A1 BUFFER QUEUE P RF EAT030 PEAT020 EQU *
0x275798…27592c Dummy {f00=0x0143, f01=0x018e, f02=» P* P CC A2,3,A4 FIRST CHAR P RB(NE) EAT020 , P CW A3,4,A4 2 AND 3 CHAR B P RB(NE) EAT020 b P* x P* RECORD NO FOUND P* P LC A4,2,A4 P CC A4,FDBTNR,A1 TASK ID P RF(E) EAT060 P LDKL A4,-1 EA OTHER T
0x27592c…275ac0 Dummy {f00=0x0143, f01=0x0190, f02=» ~ 8 P****DESCRIPTION************************************* P* D B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK N L P* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS P* 8 P****ENTRY PARAMETERS******
0x275ac0…275c54 (2, 388) Dummy {f00=0x0143, f01=0x018e, f02=»B ~ P* 8 P****EXIT PARAMETERS********************************* P* P P* A6 = FDB ADDR Z P* t 8 P****USED REGISTERS********************************** ~ P* P* A1-A4,A6 P* < P**************************************
0x275c54…275de8 Dummy {f00=0x0143, f01=0x0190, f02=» P LDR A1,A3 LOG REC NO P INH " , P CF A15,GETBLK GET BUFF AND STORE A1,A2 . P* ^ P* LINK BUFFER TO FDB h P* P LD A2,FDBEAL,A6 LINK ROOT P STR A2,A4 THREAD P ST A4,FDBEAL,A6 NEW ROOT P RTN A14 P EJECT D
0x275de8…275f7c Dummy {f00=0x0143, f01=0x0190, f02=» P* TIO THE FREE LINK. P* & 8 P****ENTRY PARAMETERS******************************** 0 P* l P* A1 = FDB-ADDRESS v " P* A2,A3 = LOGICAL RECORD NO B P* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB ( P*
0x275f7c…276110 Dummy {f00=0x0143, f01=0x0190, f02=»FER WITH TASK ID AND LOG REC NO j 0 P* AS SPEC IS REMOVED. ( P* 8 P****EXIT PARAMETERS********************************* f P* P* A1 = UNCHANGED P* 8 P****USED REGISTERS**********************************
0x276110…2762a4 Dummy {f00=0x0143, f01=0x0190, f02=»,A5 EA ROOT P RF EAR030 PEAR020 EQU * & P LDR A5,A4 SAVE OLD ROOT : P LDR* A4,A4 NEXT BUFFER ADR Z PEAR030 EQU * ~ P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P* SE
0x2762a4…276438 Dummy {f00=0x0143, f01=0x018e, f02=»EAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED 6 PEAR060 EQU * j P* ~ P* SEARCH TASK IDENT P* P LC A3,FDBTNR,A1 TAK ID P CC A3,2,A4 P RB(NE) EAR020 P* P*
0x276438…2765cc Dummy {f00=0x0143, f01=0x0190, f02=» P* RETURN BUFFER TO POOL P* & P INH 0 P LD A3,FREQUE < P STR A3,A4 NEXT FREE R P ST A4,FREQUE NEW ROOT n P LDR A4,A5 BUFFER ROOT P LDR A2,A2 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * P RTN A14 P EJECT
0x2765cc…276760 Dummy {f00=0x0143, f01=0x0190, f02=» IF NO BUFFER IS ` D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ` 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER
0x276760…2768f4 (2, 389) Dummy {f00=0x0143, f01=0x0190, f02=»EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHANGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR PCRNG
0x2768f4…276a88 Dummy {f00=0x0143, f01=0x0190, f02=» P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER P* PCRN100 EQU *
0x276a88…276c1c Dummy {f00=0x0143, f01=0x018e, f02=»RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD ROOT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N P RF(NP) CRN160 B
0x276c1c…276db0 Dummy {f00=0x0143, f01=0x0190, f02=» " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * P RTN A14 P E
0x276db0…276f44 Dummy {f00=0x0143, f01=0x018e, f02=»TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS******************************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT PARAMETERS*************
0x276f44…2770d8 Dummy {f00=0x0143, f01=0x0190, f02=» P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v P* 8 P****USED REGISTERS********************************** P* P* A1 - A9 P
0x2770d8…27726c Dummy {f00=0x0143, f01=0x0190, f02=»DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0 $ P ADK A3,1 RECORD
0x27726c…277400 Dummy {f00=0x0143, f01=0x018e, f02=» PTIOD40 EQU * P LDR A4,A6 & P ADKL A4,FDBEXT FIRST FILE EXTENT * , P LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT T P LDK A5,4 NUMBER OF EXTENTS PTIOD45 CWR A3,A9 ( P RF(NG) TIOD55 SECTOR IN THIS EXTENT P SUK A5,1 NO & P RF(NP)
0x277400…277594 (2, 390) Dummy {f00=0x0143, f01=0x0190, f02=» P* * P* SAVE CURRENT EXTENT BLOCK POINTER P* < PTIOD55 ST A4,FDBCEX,A6 F P* d * P* FIND LOGICAL SECTOR NUMBER ON DISC n P* 6 P SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS $ P SUR A3,A9 SECTOR NO WITHIN EXT P
0x277594…277728 Dummy {f00=0x0143, f01=0x0190, f02=»GICAL SECTOR NUMBER x 2 P* FIND RELATIVE RECORD OFFSET WITHIN SECTOR P* R P LDK A3,0 & PTIOD60 SUK A2,1 A2=RELATIVE REC NO n ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * P AD A3,FDBRLE,A6 NO ADD RECORD LENGTH P ADK A3,1 SKIP STATUS
0x277728…2778bc Dummy {f00=0x0143, f01=0x0190, f02=»RELATIVE REC OFFSET IN FBDRRO P* & PTIOD65 EQU * 0 P LDK A1,0 OK D P ST A3,FDBRRO,A6 X PTIODMF EQU * p P RTN A14 P EJECT DMSUBR P* P************** P* DMTIOT P************** P* > P* ENTRY
0x2778bc…277a50 Dummy {f00=0x0143, f01=0x0190, f02=»RESS x P* A1 = 0 WHEN OK ! $ P* = ERROR CODE ELSE ! . $ P* A9 = DM ECB ADDRESS ! V * P* A8 = PHYS I/O ECB ADDRESS ! ~ $ P* A2 WILL BE DESTROYED ! P* ! ( P* USED REGISTERS : A1,A2,A6,A8,A9 !
0x277a50…277be4 Dummy {f00=0x0143, f01=0x0190, f02=»B ADDRESS ! z PDMTIT0 EQU * " P LD A1,ECBRC,A8 " & P RF(Z) DMTIOX DISC I/O OK " > P ANKL A1,/FEFF " ` $ P RF(NZ) DMTIT1 NOT ONLY RETRIES " v P LDKL A2,/100 " P ORS A2,ECBRC,A9 USER RC " P RF DMTIOX " PDMTIT1 EQU * " P LD A2,FDBDBR,
0x277be4…277d78 Dummy {f00=0x0143, f01=0x0190, f02=» A2,8 BUFSTA " , P CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER # P LDK A1,/02 DISC IO ERROR # D " P LDKL A2,/FF7E NOT BIT 8 OR 15 # f P AN A2,ECBRC,A8 # P RF(NZ) DMTIOX # P LD A1,ECBRC,A8 BIT 8 OR 15 # PDMTIOX RTN A14 # P EJECT # P* #
0x277d78…277f0c Dummy {f00=0x0143, f01=0x0190, f02=» P* A8 = ECB ADDR $ P* OUT: $ P* A1 = RET CODE $ . P* A2 = DESTROYED $ H P* A6 = FDB ADDR $ b P* A8 = ECB ADDR $ | P* A9 == USER ECB $ P* $ PDMTIOZ LDR A6,A1 $ P LD A2,DWTOR,A6 ORDER $ P ANK A2,/3F $ P CWK
0x277f0c…2780a0 Dummy {f00=0x0143, f01=0x0190, f02=»DB DATA FILE $ ~ PDMTIZ1 EQU * % P LD A9,DWTECB,A1 USER ECB % ( P RB DMTIT0 % J P EJECT DMSUBR % 8 P****DESCRIPTION************************************* % t P* % 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND % 2 P* PREPARE IT. EC
0x2780a0…278234 (2, 391) Dummy {f00=0x0144, f01=0x0190, f02=» % | , P* FDB-CEX,ECB,SNR,RRO & 8 P* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI & 8 P* A8 = ECB ADDR & t P* & 8 P****EXIT PARAMETERS********************************* & P* & P* A1 = A6 = FDB ADDR & 0 P* A2 = FDB
0x278234…2783c8 Dummy {f00=0x0144, f01=0x0190, f02=» THE FOUND CORE BUFFER & v P* A3 = BUFFER ADDRESS ' & P* A5 = ORDE R CODE ' F P* A8 = ECB ADDR ' b P* A9 = DM ECB ADDR ' | P* ' 8 P****USED REGISTERS********************************** ' P* ' P* A1 - A9 ' P* ' : P**
0x2783c8…27855c Dummy {f00=0x0144, f01=0x0190, f02=»RENT EXTENT BLOCK POINTER ' | P LD A1,EXTDMI,A4 DMIDENT, FC ( " " P LD A2,FDBSNR,A6 SECTOR NUMBER ( F P LD A9,DWTECB,A6 DM ECB ( l P ANK A1,/FF =1 ( $ P STR A1,A8 DISC VOL FILE CODE =1 ( P LDR A4,A2 SAVE ( P LDKL A5,SECTLE ( " P ST A5,ECBRL
0x27855c…2786f0 Dummy {f00=0x0144, f01=0x0190, f02=»SECTOR MUST BE READ FROM DISC ( P LDKL A2,-1 RET CODE ) & PGTB040 EQU * ) B P ST A4,ECBCW,A8 SECTOR NR ) V P LDR A5,A3 ) x 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ) P ST A5,ECBBA,A8 ) P LD A5,DWTOR,A6 ) P ANK A5,/3F ) ( P LDR
0x2786f0…278884 Dummy {f00=0x0144, f01=0x018e, f02=» ORDER CODE ) P EJECT DMSUBR * 8 P****DESCRIPTION************************************* * , P* * h D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * r P* * 8 P****ENTRY PARAMETERS******************************** * P* *
0x278884…278a18 Dummy {f00=0x0144, f01=0x0190, f02=» * Z P* + P* A1=A5=A6= FDB ADDRESS + P* A2,A3 = LOG RECORD NO + 4 P* + V 8 P****USED REGISTERS********************************** + ` P* + P* A1 - A7 + P* + : P****************************************************** + P EJECT
0x278a18…278bac Dummy {f00=0x0144, f01=0x0190, f02=» + p P LD A7,FDBCEX,A1 EXT ADDR , ( P ADKL A7,EXTLEN ADDR TO LAST LENGTH , * PGTL050 EQU * , V P CWR A3,A7 , j . P RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED , | ( P* NOTE THAT ONLY (E) CAN BE TESTED , $ P ADR* A6,A3 NO OF SECT IN EXTENT , $ P ADKL
0x278bac…278d40 Dummy {f00=0x0144, f01=0x0190, f02=»OTAL NO OF SECTORS , ~ ( P AD A6,FDBSNR,A1 TOTAL NR OF SECTORS - P* - F ( P* CONVERT FDBRRO TO NO OF RECORDS - P P* - | P LDK A7,0 - " P LC A7,FDBBLF,A1 BLOCK FACTOR - P LDR A5,A1 SAVE FDB ADDR - P CF A14,MPYMOD A1,A2=A6*A7 - P LD A4,F
0x278d40…278ed4 (2, 392) Dummy {f00=0x0144, f01=0x0190, f02=» PGTL150 EQU * . P ADK A7,1 RECORD COUNTER . P SUR A6,A4 . 8 * P RB(NN) GTL150 COUNT RECORDS IN SECTOR . J P* . x , P* ADD SECT*BLOCFACT AND RECINCURRSECT . P* . P ADR A2,A7 . P RF(O) GTL160 OVERFLOW . P RF GTL170 . PGTL160 EQU
0x278ed4…279068 Dummy {f00=0x0144, f01=0x0190, f02=» LDR A1,A5 FDB ADDR . P LDR A6,A5 / P RTN A14 / . P EJECT DMSUBR / > P* / V P* / ` P IFT MMUPAG=1 / j P* / P* M O V : U S / P* / D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO / L P* THE SYSTEM AREA (REC
0x279068…2791fc Dummy {f00=0x0144, f01=0x0190, f02=»* / 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) 0 < P* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 0 F . P* A3 = NUMBER OF BYTES TO BE MOVED 0 P* 0 " P* OUTPUT: A1-A4 ARE DESTROYED 0 P* 0 , PMOV:US LDR A3,A3 CHECK
0x2791fc…279390 Dummy {f00=0x0144, f01=0x0190, f02=»ER ADDRESS 0 v P ANK A4,1 1 . P RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? 1 $ . P LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS 1 V P ANK A4,1 1 0 P RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? 1 P* 1 , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 1 P
0x279390…279524 Dummy {f00=0x0144, f01=0x0190, f02=»5 1 t P* 2 PMVUS35 RTN A14 2 P* 2 * P EJECT DMSUBR 2 4 P* 2 L P* 2 V 0 PMVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN 2 ` * P LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS 2 P ANK A4,1 2 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 2 4 P
0x279524…2796b8 Dummy {f00=0x0144, f01=0x0190, f02=» SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,A4 3 0 P SCR A5,A2 STO
0x2796b8…27984c Dummy {f00=0x0144, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x27984c…2799e0 Dummy {f00=0x0144, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x2799e0…279b74 (2, 393) Dummy {f00=0x0144, f01=0x0190, f02=»UPDATE BUFFER ADDRESSES 5 P ADK A2,1 6 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 6 2 & P RB(P) MVUS10 MORE CHAR. TO MOVE? 6 ^ P RB MVUS30 NO, RETURN 6 P* 6 P EJECT DMSUBR 6 P* 6 P* M O V : S U 6 P* 6 F P* THIS ROUTINE MOVES D
0x279b74…279d08 Dummy {f00=0x0144, f01=0x0190, f02=»USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. 6 P* 7 H : P* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) 7 R : P* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) 7 . P* A3 = NUMBER OF BYTES TO BE MOVED 7 P* 7 "
0x279d08…279e9c Dummy {f00=0x0144, f01=0x0190, f02=»F REQUESTED LENGTH <= 0 7 x P STR A5,A14 SAVE A5 8 ( P LDR A4,A2 CHECK USER BUFFER ADDRESS 8 < P ANK A4,1 8 h . P RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? 8 z . P LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS 8 P ANK A4,1 8 0 P RF(NZ) MVSU60 SYSTEM BU
0x279e9c…27a030 Dummy {f00=0x0144, f01=0x018e, f02=»UNEVEN? 8 p P* 9 PMVSU20 MVSU A3 9 P* 9 0 " PMVSU30 LDR* A5,A14 RESTORE A5 9 : P* 9 ` PMVSU35 RTN A14 9 j P* 9 P EJECT DMSUBR 9 P* 9 P* 9 0 PMVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN 9 * P LDR A4,A1 CHECK SYSTEM BUFFER
0x27a030…27a1c4 Dummy {f00=0x0144, f01=0x0190, f02=» 9 ^ P RF MVSU65 : P* : 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN : $ 0 P LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER : Z P ECR A4,A4 : * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS : ( P SUK A3,1 DECREMENT REQUESTED LENGTH : * P RF(NP) MVSU70
0x27a1c4…27a358 Dummy {f00=0x0144, f01=0x0190, f02=»ER BUFFER : p & P ADK A1,1 UPDATE BUFFER ADDRESSES ; P ADK A2,2 ; < ( P SUK A3,1 DECREMENT REQUESTED LENGTH ; N & P RB(P) MVSU60 MORE CHAR. TO MOVE? ; z P RB MVSU30 NO, RETURN ; P* ; 4 PMVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ; $ P ANK
0x27a358…27a4ec Dummy {f00=0x0144, f01=0x018e, f02=»FFER ; j P RB MVSU30 RETURN < P* < & P EJECT DMSUBR < 0 P* < H P* < R 2 PMVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN < 2 P LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER < 0 P ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER < $ P ANK A4,/FF
0x27a4ec…27a680 Dummy {f00=0x0144, f01=0x0190, f02=» < b & P ADK A1,1 UPDATE BUFFER ADDRESSES = P ADK A2,1 = 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH = D * P RB(P) MVSU10 MORE CHARACTERS TO MOVE? = p P RB MVSU30 NO, RETURN = P* = , PMVSU90 EQU * REQUESTED LENGTH WAS UNEVEN = ( P SUK A3,1 MAKE REQ
0x27a680…27a814 (2, 394) Dummy {f00=0x0144, f01=0x0190, f02=» = & P ADR A4,A5 UPDATE BUFFER ADDRESSES > P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x27a814…27a9a8 Dummy {f00=0x0144, f01=0x402e, f02=»IF > P* ? P* ? P END ? @ ? * P ADR A2,A5 > 2 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER > D P RB MVSU70 > z P* > 8 PMVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER > P RB MVSU70 > P XIF > P* > P IFT MMUPAG=0
0x27a9a8…27ab3c Dummy {f00=0x0144, f01=0x2008, f02=» @ + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x27ab3c…27acd0 Dummy {f00=0x0144, f01=0x0190, f02=» v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ********************************** ( P ANK.L A3,/0300 n P LDK.L A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLI
0x27acd0…27ae64 Dummy {f00=0x0144, f01=0x0190, f02=»N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .DIVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x27ae64…27aff8 Dummy {f00=0x0144, f01=0x4056, f02=» LDK A1,0 P RB(7) END P XIF 2 P END >@ R - & . P ADK A1,1 REMAINDER - ` PBB ADK A2,0 P RB(0) END0 P RB(2) END2 P RB(7) END1
0x27aff8…27b18c Dummy {f00=0x0144, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x27b18c…27b320 Dummy {f00=0x0144, f01=0x018e, f02=» 4 | P XIF 5 P IFT CHR14=1 5 & P CCK A7,/1414 SPECIAL CHARACTER ? 5 ( P RF(E) PRB230 YES 5 R P XIF 5 l P* 5 x " P LDK A1,CCERR CODE CHECK ERROR 5 * P ORS A1,ECBRC,A8 STORE IN RETURN CODE 5 P LD A7,DWTOR,A6 GET ORDER 5 P ANK A7,/FF 5
0x27b320…27b4b4 (2, 395) Opaque[0x194]
0x27b4b4…27b648 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28a0, f03=0x0000}
0x27b4b4…27b648 IdxSect {
0x27b4b4…27b648 f00 = 0x0145 // 0x27b4b4 @0x0
0x27b4b4…27b648 f01 = 0x0002 // 0x27b4b6 @0x2
0x27b4b4…27b648 gno = [ // 0x27b4b8 @0x4
0x27b4b4…27b648 [0x00]: C0x0145.0x0.0
0x27b4b4…27b648 ]
0x27b4b4…27b648 }
0x27b648…27b7dc Dummy {f00=0x0145, f01=0x0190, f02=» 2 P IDENT CTAB02 REL 9.2 79-11-16 870105040920 P : P* B P* CODE CONVERSION TABLE L P* n P* x P ENTRY CTAB02 P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 < PC2
0x27b7dc…27b970 Dummy {f00=0x0145, f01=0x415a, f02=» 4 r ( PC5 EQU 0 5 ( PC6 EQU 0 6 : ( PC7 EQU 0 7 f P* P* P* PCTAB02 DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P D
0x27b970…27bb04 Dummy {f00=0x0145, 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 @
0x27bb04…27bc98 Dummy {f00=0x0145, f01=0x0190, f02=»D | P EXTRN DWTTDM,DWTTQ P EXTRN QTJOB & P EXTRN ECBRL,SECTLE : P EXTRN DIVMOD,MPYMOD V P EXTRN EXTELE r P EXTRN CRNTID P EXTRN DMTGBU P EXTRN EXTLEN,EXTBAS P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN HALT P
0x27bc98…27be2c Dummy {f00=0x0145, f01=0x0190, f02=»UTINE t P EJECT DMSUBR TOSSIO P* . P* 8 . P***************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAG
0x27be2c…27bfc0 Dummy {f00=0x0145, f01=0x0190, f02=»CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT 2 P* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR 4 ( P* DX,IX,XR,XN, DATA FILE OTHERWISE j P* PCHKIND EQU * P STR A1,A15 P STR A2,A15 " P LDK A2,1 INDEX FOR DATA FILE P LDR A
0x27bfc0…27c154 (2, 396) Opaque[0x194]
0x27c154…27c2e8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2188, f03=0x0000}
0x27c154…27c2e8 IdxSect {
0x27c154…27c2e8 f00 = 0x010c // 0x27c154 @0x0
0x27c154…27c2e8 f01 = 0x0002 // 0x27c156 @0x2
0x27c154…27c2e8 gno = [ // 0x27c158 @0x4
0x27c154…27c2e8 [0x00]: C0x010c.0x1.0
0x27c154…27c2e8 ]
0x27c154…27c2e8 }
0x27c2e8…27c47c Dummy {f00=0x010c, f01=0x018e, f02=» 2 P IDENT DVKB00 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P* PDVKB00 E
0x27c47c…27c610 Dummy {f00=0x010c, f01=0x0190, f02=» z P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK * P DATA 'KB' TTAB-ADDRESS V $ P DATA 0 WAIT/ACTIVATE INDICATOR v P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB
0x27c610…27c7a4 Dummy {f00=0x010c, f01=0x0190, f02=»A4 z P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK * P DATA 0 TIMER POINTER B P DATA DVDY00 DVDY00O DEVICE ` $ P DATA /8791 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE IN QUEUE
0x27c7a4…27c938 Dummy {f00=0x010c, f01=0x40f4, f02=»0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 $ PDEVECB EQU * : P DATA 0,0,0,0,0,0 N P DATA 0,0,0,0,0,0,0,0 h P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLACE IN QUEUE
0x27c938…27cacc Dummy {f00=0x010c, 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
0x27cacc…27cc60 Dummy {f00=0x010c, f01=0x0190, f02=» ORDER v EXTRN DWTA2 SAVE AREA A2 EXTRN DWTA5 SAVE AREA A5 0 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT R ( P EXTRN SCTPLD PROGRAM LOADING DEVICE | ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT
0x27cc60…27cdf4 (2, 397) Opaque[0x194]
0x27cdf4…27cf88 # DirEnt {nam=»DVTP00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b0, f03=0x0000}
0x27cdf4…27cf88 IdxSect {
0x27cdf4…27cf88 f00 = 0x010d // 0x27cdf4 @0x0
0x27cdf4…27cf88 f01 = 0x0002 // 0x27cdf6 @0x2
0x27cdf4…27cf88 gno = [ // 0x27cdf8 @0x4
0x27cdf4…27cf88 [0x00]: C0x010d.0x2.0
0x27cdf4…27cf88 ]
0x27cdf4…27cf88 }
0x27cf88…27d11c Dummy {f00=0x010d, f01=0x018e, f02=» 2 P IDENT DVTP00 REL 9.2 79-11-16 870105040920 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVTP00 TABLE ENTRY P* P* ( P EXTRN TPAD POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x27d11c…27d2b0 Dummy {f00=0x010d, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTP00 ORDER ( P DATA TPAD POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADD
0x27d2b0…27d444 Dummy {f00=0x010d, f01=0x40f6, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ ( P DATA 0 REQUESTED,ACTUAL LINE NUMBER B P IFT MMUPAG=1 n PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ AREA USER ECB ADD
0x27d444…27d5d8 Dummy {f00=0x010d, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x27d5d8…27d76c Dummy {f00=0x010d, f01=0x0190, f02=»A ILLINT 60 P DATA ILLINT 61 P DATA ILLINT 62 4 P DATA IHINPT IHINPT ROUTINE P P EJECT SYSTAB t P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP
0x27d76c…27d900 Dummy {f00=0x010d, f01=0x0190, f02=» P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG 0 P ABR(NZ) A1 F P HLT Z P f P EJECT SYSTAB n P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES
0x27d900…27da94 (2, 398) Opaque[0x194]
0x27da94…27dc28 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28d0, f03=0x0000}
0x27da94…27dc28 IdxSect {
0x27da94…27dc28 f00 = 0x0146 // 0x27da94 @0x0
0x27da94…27dc28 f01 = 0x0002 // 0x27da96 @0x2
0x27da94…27dc28 gno = [ // 0x27da98 @0x4
0x27da94…27dc28 [0x00]: C0x0146.0x2.0
0x27da94…27dc28 ]
0x27da94…27dc28 }
0x27dc28…27ddbc Dummy {f00=0x0146, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x27ddbc…27df50 Dummy {f00=0x0146, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x27df50…27e0e4 Dummy {f00=0x0146, 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 /0824 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,
0x27e0e4…27e278 Dummy {f00=0x0146, 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
0x27e278…27e40c Dummy {f00=0x0146, f01=0x0190, f02=»VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4 v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? 4 P LDR A4,
0x27e40c…27e5a0 Dummy {f00=0x0146, f01=0x0190, f02=»FROM USER BUFFER 4 v P* 5 PMVUS65 ECR A5,A5 5 " 0 P SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER 5 : P RB MVUS30 RETURN 5 n P* 5 4 PMVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER 5 P RB MVUS65 5 P* 5 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES
0x27e5a0…27e734 (2, 399) Opaque[0x194]
0x27e734…27e8c8 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2998, f03=0x0000}
0x27e734…27e8c8 IdxSect {
0x27e734…27e8c8 f00 = 0x014c // 0x27e734 @0x0
0x27e734…27e8c8 f01 = 0x0002 // 0x27e736 @0x2
0x27e734…27e8c8 gno = [ // 0x27e738 @0x4
0x27e734…27e8c8 [0x00]: C0x014c.0x3.0
0x27e734…27e8c8 ]
0x27e734…27e8c8 }
0x27e8c8…27ea5c Dummy {f00=0x014c, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 9.2 79-11-16 870105040920 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 1 P*
0x27ea5c…27ebf0 Dummy {f00=0x014c, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD 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
0x27ebf0…27ed84 Dummy {f00=0x014c, f01=0x0190, f02=»REA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 2 P DATA 0 TIMER POINTER J P DATA DVDY01 DVDY01O DEVICE h $ P DATA /95A3 BACKSPACE AND CANCEL $ P DATA /FFBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE IN
0x27ed84…27ef18 Dummy {f00=0x014c, f01=0x40fc, f02=»0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 , PDEVECB EQU * B P DATA 0,0,0,0,0,0 V P DATA 0,0,0,0,0,0,0,0 p P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P XIF PDWTEND EQU * P* P END @ RST PLACE IN
0x27ef18…27f0ac Dummy {f00=0x014c, 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
0x27f0ac…27f240 Dummy {f00=0x014c, f01=0x0000, f02=»
0x27f240…27f3d4 (2, 400) Opaque[0x194]
0x27f3d4…27f568 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x28e0, f03=0x0000}
0x27f3d4…27f568 IdxSect {
0x27f3d4…27f568 f00 = 0x0147 // 0x27f3d4 @0x0
0x27f3d4…27f568 f01 = 0x0002 // 0x27f3d6 @0x2
0x27f3d4…27f568 gno = [ // 0x27f3d8 @0x4
0x27f3d4…27f568 [0x00]: C0x0147.0x0.0
0x27f3d4…27f568 ]
0x27f3d4…27f568 }
0x27f568…27f6fc Dummy {f00=0x0147, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 9.2 79-11-16 870105040920 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x27f6fc…27f890 Dummy {f00=0x0147, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA 'DY' TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x27f890…27fa24 Dummy {f00=0x0147, 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,
0x27fa24…27fbb8 Dummy {f00=0x0147, 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
0x27fbb8…27fd4c Dummy {f00=0x0147, 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
0x27fd4c…27fee0 Dummy {f00=0x0147, f01=0x0190, f02=»D $ j P LDR A10,A10 TC % P RF(Z) TAS165 GLOBAL ASSIGN % " P LD A2,TASTTA TTAB ADDR % F P LDR A4,A2 % f P LD A2,TTB:TD,A4 % x P ADKL A4,TTB:TD+1 % P RF TAS170 % PTAS165 EQU * % P LD A4,SCTCDT % P LDR* A2,A4 % P ADK A4,1 %
0x27fee0…280074 (2, 401) Opaque[0x194]
0x280074…280208 # DirEnt {nam=»M:92OD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x29e8, f03=0x0000}
0x280074…280208 IdxSect {
0x280074…280208 f00 = 0x014f // 0x280074 @0x0
0x280074…280208 f01 = 0x001a // 0x280076 @0x2
0x280074…280208 gno = [ // 0x280078 @0x4
0x280074…280208 [0x00]: C0x014f.0x1.0
0x280074…280208 [0x01]: C0x014f.0x2.0
0x280074…280208 [0x02]: C0x014f.0x3.0
0x280074…280208 [0x03]: C0x0150.0x0.0
0x280074…280208 [0x04]: C0x0150.0x1.0
0x280074…280208 [0x05]: C0x0150.0x2.0
0x280074…280208 [0x06]: C0x0150.0x3.0
0x280074…280208 [0x07]: C0x0151.0x0.0
0x280074…280208 [0x08]: C0x0151.0x1.0
0x280074…280208 [0x09]: C0x0151.0x2.0
0x280074…280208 [0x0a]: C0x0151.0x3.0
0x280074…280208 [0x0b]: C0x0152.0x0.0
0x280074…280208 [0x0c]: C0x0152.0x1.0
0x280074…280208 ]
0x280074…280208 }
0x280208…28039c Dummy {f00=0x014f, f01=0x0190, f02=»i, c J h h h h h h h h'@'l h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x28039c…280530 Dummy {f00=0x014f, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " J _ @J > > U # T @ H ( ( P c P W: P, AJ @ V ( U P" @5VV L5VW @5h
0x280530…2806c4 Dummy {f00=0x014f, f01=0x0190, f02=» 6 8 J Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @J : ) AJ _ @ @ A H ( AJ _ ? ? ? ? ? ^ A _ _ ^ J $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x2806c4…280858 Dummy {f00=0x014f, f01=0x0190, f02=» Q Q > > 0 @J 1 AJ P P > ? * X " R" Y T ? X D 5 T> F W8 > _& @ 8 R" Y T ? X D 5 T F W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @J V ? J > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x280858…2809ec Dummy {f00=0x014f, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U J XH D #DP @ R XV Y @ P, 5 T W X &P T X I Y T # C C W4 O " # X Y ) C
0x2809ec…280b80 Dummy {f00=0x014f, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x280b80…280d14 (2, 402) Dummy {f00=0x014f, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x280d14…280ea8 Dummy {f00=0x014f, f01=0x0190, f02=» 0P X T 4 Y X 5 X T X G 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > J J B B J J B B pU
0x280ea8…28103c Dummy {f00=0x014f, f01=0x0190, f02=»B!B pU J J!BaB rU J J1B1B pU J J1BqB rU 0 R t j p B " P Q :A H HP P J H !@T I J T ! 1 U J A d ? W& A d ? W
0x28103c…2811d0 Dummy {f00=0x014f, f01=0x0190, f02=» P 4 ] P $ P ] U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z & 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh 6 T # Y U T ] W 8V 6 X $P
0x2811d0…281364 Dummy {f00=0x014f, f01=0x0190, f02=» j T U 5 U R " ] J ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P 4T U f # P 4 4 P _r T _$ U _
0x281364…2814f8 Dummy {f00=0x014f, f01=0x0190, f02=» 5 H W u > > E D E E S( % ;DV " U D $ P #`P T E J Z_ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A B R 8;b# 4T RT
0x2814f8…28168c Dummy {f00=0x014f, f01=0x0190, f02=» 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ @ T P @X R4 @ U S U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V & X
0x28168c…281820 Dummy {f00=0x014f, f01=0x0190, f02=» $ X V 9_: 8 @ p !Pp P X ! Y * X . ! Y T & | P Pb P Pv Pz 6 J + J AJ @J A. H 5 J Y HW AJ @J A. Wx
0x281820…2819b4 (2, 403) Dummy {f00=0x014f, f01=0x0190, f02=» *W X * ! # N & ! ! " 0 TOT 0 SST X Y ,W 0 X Y , Y * N ! ! X *' P ! > ! * D N ) P _ X " X ! Tr X !& Ph B :C P N ! 9DV ! (@ B r ! 8 ! z R ! 8 j ! 8 ! z b ! 8 ( ! z ! @
0x2819b4…281b48 Dummy {f00=0x014f, f01=0x0190, f02=» ! 1 ! @ ! * ! ! @ ! ) ! Y *# T X Y ._ Y *# 4 ! J ( C V ! N ! B B ! > j ! *W0 W ! X@ b ! * C (Q ! ! X* ! ! ! T )WL WP ! Xz R ! * ( - j ! * ) W. Y PW Y P Y L Y N Y B S W W B C
0x281b48…281cdc Dummy {f00=0x014f, f01=0x0190, f02=» _n Y ( " X . P Y : ! ! X # P Y .:A , X J AJ Y J @J B. X $ Y Y $ Y X Y & X '? p A d ? (@ X L X N K P6 X PT $ D C Y B J K & E % Y B K X ;AR@;a X &P Y & P 7P
0x281cdc…281e70 Dummy {f00=0x014f, f01=0x0190, f02=»Q 9BW Q 9C B ! T 4 P ;A _ 4 X 0 # P _ 4(@ R N D3D 1_ W (@ R 0 D4D ] N_ N ! @ 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! @ 0" Z Y" P Z _ 4 A ;D A 4 R
0x281e70…282004 Dummy {f00=0x014f, f01=0x0190, f02=» _n Y " X P Y : ! ! X # P Y :A , X A Y @ B. X Y Y l H T P Y P 7P
0x282004…282198 Dummy {f00=0x014f, f01=0x0190, f02=»Q 9BW Q 9C B ! T 4 P ;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R
0x282198…28232c Dummy {f00=0x014f, f01=0x0190, f02=» ). ). P Y : ! ! X # P Y :A P2 P P 1P. P W P P 5P J J X P Wj B " P H3D:H B # L3D 9 B Y B Y ) P8 @2 3D J @3 `3 @3 P 0P _ % A2 A3 Y f &_| B QZ 6_ X P 0
0x28232c…2824c0 Dummy {f00=0x014f, f01=0x0190, f02=» X X A 5 Y _& Y L @ P 0 A R A P_: X P ( y Y W ). (P 0 ) > (P _ ) 1_ (X( P _ 0 )_6 j _2 j _$ (P _ ) 1 4 ) X R2 X T* X P& , Y L C L C x > @ Z @ V @ X A XX
0x2824c0…282654 (2, 404) Dummy {f00=0x0150, f01=0x0190, f02=» BHBB !' 2B !' T P P " # " !' Tf Tb A) P A) TR !' TL !' TD T@ !' T8 !' A I A P " # !' $d_ !' T ) # " X !' _ !( A Z @ RP @ PP !$ A R A T_ !( @ TP @).X@ !$
0x282654…2827e8 Dummy {f00=0x0150, f01=0x0190, f02=» @ N 8 H4D @).P E ) P^ X RX X P X TJ P C C P " H4D" P X * Y X T ! vW xW( &W" X R X T & ! v !%f v X ! X !%tWB A T @ N X A Z A P A @ p A p $@ !( @ RT @ TP !% v !( @ RT @ TX Wx A I
0x2827e8…28297c Dummy {f00=0x0150, f01=0x0190, f02=»$ !% A Z_ A $N B A R @ VT _2 _6 @ P n A X A R X ! XD Y _N @ RTL X ! P !%x v# T @).T !%t_ !# !%f_ A T A f H4D E A X A N 4 @ RP !% !(f v !(B @ jP !& !(f A R v @ T !% _ T L_ ` A P / C P B B A b A
0x28297c…282b10 Dummy {f00=0x0150, f01=0x0190, f02=» P C & L A R A P 4 @). @ XT @ h A f @ f A h A X !' T2 P4 PJ PL P P. 1 A f @ f ]6W P _@ @). @ f E !( P !' 4 _$ !( 2_l / A T W ,W A n A oW W W A n A o !'& @ n !' @ o !' !' !' B J
0x282b10…282ca4 Dummy {f00=0x0150, f01=0x0190, f02=» T0 W, !' P " ! " :A *@ H3D T 0 !' W R !' A f @ d @ fUH Zx Q P Q T 0 !' A f 0 !' A f !' " !' " !' % A V _" A X A P !'& !' % !' R !' !' @) !' 8 !' X ! 9a D r !' X ! P ! T & !' _b B J B !' !
0x282ca4…282e38 Dummy {f00=0x0150, f01=0x0190, f02=»B P W !( J _ !' ! 1 4 A' @3 `3 @3 P 0 M A' 4 ? @3 `3 @3 P $ Y f_ @ A V @ ^T (T v @ A V (T J A V a ^ 4 5 (, X A ^ > 5 (v Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A( A( A
0x282e38…282fcc Dummy {f00=0x0150, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ fU Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x282fcc…283160 Dummy {f00=0x0150, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x283160…2832f4 (2, 405) Dummy {f00=0x0150, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x2832f4…283488 Dummy {f00=0x0150, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x283488…28361c Dummy {f00=0x0150, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x28361c…2837b0 Dummy {f00=0x0150, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x2837b0…283944 Dummy {f00=0x0150, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % :f"? H2 !' "? H2 !' 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789
0x283944…283ad8 Dummy {f00=0x0150, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] N
0x283ad8…283c6c Dummy {f00=0x0150, f01=0x0190, f02=» P 4 5 5 _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & DKTKfKnKj4 K ]R ] ^ ` ` 6z6z7 7 7 7 7 7 7 7 6 7L6 6 7 7 6 7 7 7 6 " # $ % "$&( 5
0x283c6c…283e00 Dummy {f00=0x0150, f01=0x0190, f02=» ( U 7 B r I W Y & Y $ 0 Y . 7 G 7 B Y I B Y J_ W G C P C W < C C _H G H H S W C C B B B U GV R Wp H TP L P B r L ( I $ X _ X ` T I T
0x283e00…283f94 (2, 406) Dummy {f00=0x0150, f01=0x0190, f02=» P #D ` 9 J J 9 9 =>=>=>=>=>; ; 9 =>; 9 =>=>=>=>; ; 9 F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P
0x283f94…284128 Dummy {f00=0x0150, f01=0x0190, f02=» I V, P ( 9l( ( W 9 H => B W C X '? 7 X & X ( )T => 8& 8 < X $TT T A8$ J , F P W T Y $ P T _ Y & F h^ hf(@ _ ; X & X I U X J U ( H T$ X X RP
0x284128…2842bc Dummy {f00=0x0150, f01=0x0190, f02=» @ X WF G N 4 5W P 0 @D 1 AD (@_ 1 (@ ;` / O $P % 4 F 8| (@ B h^ P 9 hf =T 4' ; ' ; 5 ; 4 A W , P& ,' X X 1 Z" ) ; _ (@ C ( B ! =>
0x2842bc…284450 Dummy {f00=0x0150, f01=0x0190, f02=»W => X ( X & F X P @J Q (@ I + X ^V" P "P8 $P4W X & X bT( ;AR ( < ( 9 H T Y ^ F " F D '? P P( $ P" G I I K K P P & P G W D $ T GV T G W E I E J X
0x284450…2845e4 Dummy {f00=0x0150, f01=0x0190, f02=»_ P @ ^ @^v hf(@ D^x C C C g W C ( =f =h L " TOP @ A^ L A^ L C ^ @^ A^ Q< @^v @4 A^v @^ @ B h^ D^x E^zX #D( = ( B h^ B @^v D^x g W C C ( =f =h ^ ^t
0x2845e4…284778 Dummy {f00=0x0150, f01=0x0190, f02=»^v E^ P E^ P E^ D^ T ^ P @ A 2% P( R 0 X^xT R , @^ T R RT @^ @ @ 6 A 2% P @ ^ r P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @^ S , d S B | >
0x284778…28490c Dummy {f00=0x0150, f01=0x0190, f02=» Y U ! T ! X6 _R _V D^ " P ^ A^ ( ^ W @^ P6 I @^ P @Fd V W HFf IFh(@ @^ P -W P B h^ hf ^ (@( @^ A^ _ T `^t ` 9A S ^ H $X D S . S $ IP R * S W
0x28490c…284aa0 Dummy {f00=0x0150, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | >
0x284aa0…284c34 (2, 407) Dummy {f00=0x0150, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I @ P -W P B (@( @ A^ _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x284c34…284dc8 Dummy {f00=0x0150, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | >
0x284dc8…284f5c Dummy {f00=0x0150, f01=0x0190, f02=» [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X +
0x284f5c…2850f0 Dummy {f00=0x0150, f01=0x0190, f02=» W6 @D T n ( AD U 1_ D + I D N ) E N : T * F SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X
0x2850f0…285284 Dummy {f00=0x0150, f01=0x0190, f02=» D . D $ D * F T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ )
0x285284…285418 Dummy {f00=0x0150, f01=0x0190, f02=»! Z( J (X0 @J P T M ]@ , ) AJ P* P Y U ( ) 5 & > > [ [ J Z Z Z ? Z > P "R Y W 0 J Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( (
0x285418…2855ac Dummy {f00=0x0150, f01=0x0190, f02=» X $P y $W $ 5 N ` Y $ B P T B % X . $ 4 T % W X ,T ! P W N Y . V N ! Z B _T B P $$ R % C N WV Y *X !M 8$ P W 8$ P $ T W $ Y +PX Y )P Y (P T N ! Z B Z W N W !M * T ! Z
0x2855ac…285740 Dummy {f00=0x0150, f01=0x0190, f02=»_t _ P N _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X $P y $ X , $4 P N X .T * W Y , - J Y $ X Z @_8 B 1 " W XT 0 (@ >
0x285740…2858d4 (2, 408) Dummy {f00=0x0151, f01=0x0190, f02=» ! W B W$ B L # 9Q T W Q P X & V T Y &W N X ! T6 B R0Q$ B D ! V ! ! ! W !R !Pt Y ! T ! V O ! B C ! ! T " T W Q " T ) J !R N Y _ ! !Q Y &P Q W ! Y
0x2858d4…285a68 Dummy {f00=0x0151, f01=0x0190, f02=» Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !Q Y Y U ! _$ W4 , ! T ,' N ! R !__U C X ' W Y ! _ X RT U TJ X P ? Y X P " ! Y ' ! X T ! J O J R _ 4 !
0x285a68…285bfc Dummy {f00=0x0151, f01=0x0190, f02=» UP ! 8! P ! P P T| & T4 J B P B H " +P P. T Y ' ! R X ( Y &R Y & _ Y &_. 8$ T B 1 V ! U B B U4 $ ! T _ U D ! T _ $$ X" X& X* C U( X`" ER<P(
0x285bfc…285d90 Dummy {f00=0x0151, f01=0x0190, f02=» X &" X )# C V C ! Y B ! Y _` C _ " $ P X ' X ] ! U S. B 8! T !Wz !W2 ! UP !Wz R ! _ B !Wz V Z, ! _ 8! T B Y & !WPW B Y (U X ( X & R P ! W Y &
0x285d90…285f24 Dummy {f00=0x0151, f01=0x0190, f02=» !@P ! $ P ! ! Uv ! T Y & T X & C & J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T> 8" P d ! Y ! *0 ! X ! Y & Z Ub T _ ! X $ P !V S, R V
0x285f24…2860b8 Dummy {f00=0x0151, f01=0x0190, f02=» W ! ! ! Y 4 B R U )X R@ X X &" Y * X ) V Y !W2 X $ X & !WP X * S, R `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 Uv > Z Y &
0x2860b8…28624c Dummy {f00=0x0151, f01=0x0190, f02=» !@P ! $ P ! ! ! T Y & T X & C & J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T 8" P d ! Y ! *0 ! X ! Y & Z Ub T _ ! X $ P ! S, R V
0x28624c…2863e0 Dummy {f00=0x0151, f01=0x0190, f02=» W ! ! ! Y 4 B R U )X R@ X X &" Y * X ) V Y !W2 X $ X & !WP X * S, R `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 Uv > Y &
0x2863e0…286574 (2, 409) Dummy {f00=0x0151, f01=0x0190, f02=» P H RN H P ' P W P W< W T6 ' P ! X & B # P G W G & J X P P R: A[ 5 Y X T Q (P H U ^ 9 1_N J X T @W P ( AW F _ ( Y _ W _x X T @W P ( AW F_ ( Y _ W _ i $
0x286574…286708 Dummy {f00=0x0151, f01=0x0190, f02=»J C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y
0x286708…28689c Dummy {f00=0x0151, f01=0x0190, f02=» = (@ " $ P B >H<h ^ P ?_" = > = > = =_D R _ 00 > & <h$ P > W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x28689c…286a30 Dummy {f00=0x0151, f01=0x0190, f02=» W ' T| I^x @ 8 =hP Y X Pl 0T< Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( h : n "' # ^ @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P U W _ ^t
0x286a30…286bc4 Dummy {f00=0x0151, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ af c W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x286bc4…286d58 Dummy {f00=0x0151, f01=0x0190, f02=» W ' T I^x @ 8 =hP Y X P 0T Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( : n "' #d @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P U W _ ^t
0x286d58…286eec Dummy {f00=0x0151, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ fL W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x286eec…287080 Dummy {f00=0x0151, f01=0x0190, f02=» W ' T I^x @ 8 =hP Y X P 0T Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( : n "' # @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P af _ ^t
0x287080…287214 (2, 410) Dummy {f00=0x0151, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x287214…2873a8 Dummy {f00=0x0151, f01=0x0190, f02=» M M Aab -(@ : - : @ab , L T M @ab : =a 9a Q - _ - > @ HPJ r A D h D AD Fd h @ab , - M M M @ab A^n A^p > !"#$%& () +,-./ h ($SWAP A A A A. q UU @
0x2873a8…28753c Dummy {f00=0x0151, f01=0x0190, f02=»W2 A o Aq o P. n _ " :c* A o o W " :d2 * A oN ot & W F ` W F W F CRT F A @ @ ! P2 @ P r ;b=H F CR k F k W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W
0x28753c…2876d0 Dummy {f00=0x0151, f01=0x0190, f02=»T W - r P _ T <B :L A W A A W r T F W V r = V W Y* P Z( = :L < P W <9B @ V W Q r W @r @ A
0x2876d0…287864 Dummy {f00=0x0151, f01=0x0190, f02=» q q V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W o o P n o TJ V 0 !;;P P V P$ _ P !;;T X$ W r _J r o T
0x287864…2879f8 Dummy {f00=0x0151, f01=0x0190, f02=» nP XZ_V S Apg Ap p. @ R @ ! T Ap Ap V @ R V V I r W V $ ) H A I. : n C. n X C.9h! n n # " n n :A K : A T.I T P 1 I P
0x2879f8…287b8c Dummy {f00=0x0151, f01=0x0190, f02=»A I ! ( : o Aq Am Ap4 ApJ Ap ! T Ap Ap I ! : 9E @i r s A I T ) A _ I N T : r p4 pJ 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P ~" @ T X W n : YX
0x287b8c…287d20 Dummy {f00=0x0151, f01=0x0190, f02=»' R xW V W$ V P P q W P V V T q V T W P V W @ $ P p W r T : Aq q _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z
0x287d20…287eb4 (2, 411) Dummy {f00=0x0151, f01=0x0190, f02=» j Am A A A ! T A W Z A. c @ V W U r R $ )_ : W W W W W vvQ@ V V v x W V V v p R( W V W ^< _@ V
0x287eb4…288048 Dummy {f00=0x0151, f01=0x0190, f02=» W W :K W r vvQ R t vvV r s& v : V W V r ) : V <B W |P v v : $ s V |P v w v : V $ V l $ s V M : W V R RR
0x288048…2881dc Dummy {f00=0x0151, f01=0x0190, f02=»t W x t v _ V : " D Pd W V PL $;A^ D E D P. V r P r P T r E _J s E _T " D T E s E D E % : " R ;B s " R P( |P v v : V W 0 :
0x2881dc…288370 Dummy {f00=0x0151, f01=0x0190, f02=» X G : J @ 0 V @ r 0 H W : ? ? R 0 R P P B _ J : V ) v v : 4P: " D w , H H $ M v b - I Y0 : @ ` V b pP `
0x288370…288504 Dummy {f00=0x0151, f01=0x0190, f02=» $ u V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A.
0x288504…288698 Dummy {f00=0x0151, f01=0x0190, f02=» S P 3 _ J 3 J B A. @ D @ W x A ( : A J > l : v R t W n V pT : N V l W H V ]" . nT" t W v t W n V ~P { W x t { v
0x288698…28882c Dummy {f00=0x0151, f01=0x0190, f02=»v P t v V v : t t V ~P { W x t _$ 8 V V x % V v % : V V s& 9k! P % _ V V W W r v W V s v ) W b G s v ) - V s W f v ) G v ` " W p W ~
0x28882c…2889c0 Dummy {f00=0x0151, f01=0x0190, f02=» , v s " E R {^ W ~ R {^ R P }* R Xv }*_|W v T : t t W x t v _ V P w I w| W z ` pPl w H - V v I uh " R v E R T E D E @ v H v E u v& #_v W |
0x2889c0…288b54 (2, 412) Dummy {f00=0x0152, f01=0x0190, f02=» v .=H N ~" v N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ vvR r - @ - N !TTP r N :H N TBT W W8 2 " T @ r N =H N
0x288b54…288ce8 Dummy {f00=0x0152, f01=0x0190, f02=»:h " ~z YV : v `?A @ W W :b / W : W @ W D v V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W
0x288ce8…288e7c Dummy {f00=0x0152, f01=0x0190, f02=» : x A i " P W r W @ @ % x V , P@ , - 4 ] 4 vvY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP r @ T
0x288e7c…289010 Dummy {f00=0x0152, f01=0x0190, f02=»@ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T r : @ :B W . !TTP r W t N =H N W l N =H N W p N =H N ~" W | ( @ % P W @ % P P0 r
0x289010…2891a4 Dummy {f00=0x0152, f01=0x0190, f02=» tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P ~< !TTT B q @ @ T r : @ ! P @ @ h CRT 3 @ h h S @ h PP h !RRP
0x2891a4…289338 Dummy {f00=0x0152, f01=0x0190, f02=» P _ 3 S S V V W @ @ T r : P S S _ : . !TTP r V W t * P r _ Ph W p W V 8 8 4 D P$ r @ #
0x289338…2894cc Dummy {f00=0x0152, f01=0x0190, f02=» @ R @ T r P / _ T @ A V W W t PT W f ( W d > G =h G V d V r < V f P W f _B V W V t Yr ~< !TTX @ @ T r :
0x2894cc…289660 Dummy {f00=0x0152, f01=0x0190, f02=» r $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ r @ # P H I K T +
0x289660…2897f4 (2, 413) Dummy {f00=0x0152, f01=0x0190, f02=» 0 V P _ W $ q > R P >b W >b & 8P D P U & E W i, V W R 9 W D r ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H U V U W
0x2897f4…289988 Dummy {f00=0x0152, f01=0x0190, f02=» W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]J W
0x289988…289b1c Dummy {f00=0x0152, f01=0x0190, f02=» : F =H F ~" : P N =H N T ~<_ : 00=H 00 P P _ _ : @ ! P (W ( : l & @ h CRT" @ ! P ` @ E "W ` @ E " $ D L x a
0x289b1c…289cb0 Dummy {f00=0x0152, f01=0x0190, f02=» ,W W . nDC @ K KB * P 4N TP
0x289cb0…289e44 Dummy {f00=0x0152, f01=0x0190, f02=» V 8R2DY P h CRT" @ ! P ` @ E "W ` @ E " $ D a
0x289e44…289fd8 Dummy {f00=0x0152, f01=0x0000, f02=»
[…0x2…]
0x28a300…28a494 (2, 414) Opaque[0x194]
0x28a494…28a628 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a0, f03=0x0000}
0x28a494…28a628 IdxSect {
0x28a494…28a628 f00 = 0x0005 // 0x28a494 @0x0
0x28a494…28a628 f01 = 0x0024 // 0x28a496 @0x2
0x28a494…28a628 gno = [ // 0x28a498 @0x4
0x28a494…28a628 [0x00]: C0x0005.0x0.0
0x28a494…28a628 [0x01]: C0x003b.0x2.0
0x28a494…28a628 [0x02]: C0x003b.0x3.0
0x28a494…28a628 [0x03]: C0x003c.0x0.0
0x28a494…28a628 [0x04]: C0x003c.0x1.0
0x28a494…28a628 [0x05]: C0x003c.0x2.0
0x28a494…28a628 [0x06]: C0x003c.0x3.0
0x28a494…28a628 [0x07]: C0x003d.0x0.0
0x28a494…28a628 [0x08]: C0x003d.0x1.0
0x28a494…28a628 [0x09]: C0x003d.0x2.0
0x28a494…28a628 [0x0a]: C0x003d.0x3.0
0x28a494…28a628 [0x0b]: C0x003e.0x0.0
0x28a494…28a628 [0x0c]: C0x003e.0x1.0
0x28a494…28a628 [0x0d]: C0x003e.0x2.0
0x28a494…28a628 [0x0e]: C0x003e.0x3.0
0x28a494…28a628 [0x0f]: C0x003f.0x0.0
0x28a494…28a628 [0x10]: C0x003f.0x1.0
0x28a494…28a628 [0x11]: C0x003f.0x2.0
0x28a494…28a628 ]
0x28a494…28a628 }
0x28a628…28a7bc Dummy {f00=0x0005, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 9.2 79-12-19 870105040920 P : " P =1,LRN ONE SECTOR TOO GREAT B P REL 9.2 79-12-19 ST h P P ENTRY SYSLOD P ENTRY SYSBAS P ENTRY NUMSEG P ENTRY PRGLG1 P***************************
0x28a7bc…28a950 Dummy {f00=0x0005, f01=0x018e, f02=»* v P EXTRN CONVRT P EXTRN LDALEN P EXTRN FREQUE 6 P EXTRN INTLT1 L P EXTRN PAGQUE b P EXTRN REL x P EXTRN SCLASS P EXTRN SCTADA P EXTRN SCTANO P EXTRN SCTBLK P EXTRN SCTBUG P EXTRN SCTCDT
0x28a950…28aae4 Dummy {f00=0x0005, f01=0x0190, f02=» P EXTRN SCTLAC P EXTRN SCTLAP P EXTRN SCTMMC 0 P EXTRN SCTMMP F P EXTRN SCTMSZ P EXTRN SCTNOS r P EXTRN SCTNOP P EXTRN SCTNPE P EXTRN SCTOPT P EXTRN SCTPAG P EXTRN SCTPLD P EXTRN SCTPSZ
0x28aae4…28ac78 Dummy {f00=0x0005, f01=0x0190, f02=» EJECT $ P EXTRN M:REL RELOCATION CONSTANT P EXTRN SAVE01 6 P EXTRN SAVE02 L P EXTRN SAVE03 b P EXTRN SAVE04 x P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09 P EXTRN SAVE1
0x28ac78…28ae0c Dummy {f00=0x0005, f01=0x0190, f02=» P EXTRN MMDDIV P EXTRN TABBE P EXTRN MMEND . P EXTRN MOVE B P V P ^ P* f P* CONDITIONAL ASSEMBLY p P* TEST=1 GIVES TEST VERSION P* PTEST EQU 0 P EJECT P P $ P********************
0x28ae0c…28afa0 Dummy {f00=0x0005, f01=0x0190, f02=» x PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS * . PTDBID EQU TDBNT+2 6A TASK ID SAVE09 VALUE V , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL
0x28afa0…28b134 (2, 415) Dummy {f00=0x003b, f01=0x0190, f02=»ION z ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* 8 * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD B P* p P* COMMON DEVICE DEF. BLOCK: z PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDB
0x28b134…28b2c8 Dummy {f00=0x003b, f01=0x0190, f02=»UDBBT+1 3A NUMBER OF UWB TYPES P* & ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD 0 PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS | . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P**************** P* SOP-HANDLING * P****
0x28b2c8…28b45c Dummy {f00=0x003b, f01=0x0190, f02=» PLMP4 EQU /80 PLMP5 EQU /40 PLMP6 EQU /20 , PLMP7 EQU /10 @ PLMP8 EQU 8 T PLMP9 EQU 4 f PLMP10 EQU 2 x PLMP11 EQU 1 P EJECT P********************* P* OTHER CONSTANTS * P********************* P
0x28b45c…28b5f0 Dummy {f00=0x003b, f01=0x0190, f02=»ICAL PAGE SIZE z ( PCBLEN EQU 256 CASSETTE BUFFER LENGTH & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH B & PPAGLG EQU 8 PAGE LENGTH IN S:GTAB l PPRGLG1 EQU 2 , PNCHTID EQU 5 NBR OF CHAR. IN TID RECORD $ PSWPFEL EQU 14 FILE EXTENT LENGTH P EJECT
0x28b5f0…28b784 Dummy {f00=0x003b, f01=0x0190, f02=»ASSETTE p PLOCK EQU /2 LOCK CASSETTE ( PSBOT EQU 8 SEARCH BEGINNING OF TAPE 2 ( PSTMF EQU /C SEARCH TAPEMARK FORWARD ^ P* " P* DISC/FLEXIBLE DISC HANDLING P* 4 PBUFLEN EQU 402 DISC/FLEXIBLE DISC BUFFER LENGTH 2 PRECLEN EQU 9
0x28b784…28b918 Dummy {f00=0x003b, f01=0x0190, f02=»U /80CD 1:ST MUX WORD PQBLFAC EQU 9 BLOCKING FACTOR P* B P* DATA AREA DEFINITION L P* l PSYSBAS EQU * v 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS " PDEVTAB DATA /1909,/1101,/0828 $ PSWPTAB DATA '$S','WA','P ',' '
0x28b918…28baac Dummy {f00=0x003b, f01=0x0190, f02=» A14,A13 * r F P* DATA [REL-ADDRESS] * , F P* * v F P*****************************************************************
0x28baac…28bc40 Dummy {f00=0x003b, f01=0x0190, f02=» Z : P* * : P* APPLICATION LOAD PART OF SYSLOD * F : P* =============================== * : P* * : P* ENTRY
0x28bc40…28bdd4 (2, 416) Dummy {f00=0x003b, f01=0x0190, f02=»ICATION NUMBER * | < P* A9 - SAVE09 OF FREE AREA * * < P* A13 - MONITOR SAVE09 ADDRESS * j : P* * : P* EXIT:
0x28bdd4…28bf68 Dummy {f00=0x003b, f01=0x0190, f02=» * d : P* LODSEG,REBUF,MOVBUF,RDBLK, * : P* CONLOD,CONEX,MOVREV * P : P* * : P******************************************************
0x28bf68…28c0fc Dummy {f00=0x003b, f01=0x0190, f02=»VE PROGRAM LOAD DEVICE $ P ST A3,SCTANO APPLICATION NUMBER * P ST A9,SCTSFA SAVE SAVE09 OF FREE AREA F P IFT TEST=1 t P LDKL A14,SYSBAS P LDR A13,P P ADKL A13,10 P LD A1,SCTBUG P ABR(NZ) A1 P XIF P EJECT
0x28c0fc…28c290 Dummy {f00=0x003b, f01=0x0190, f02=»E HANDLER (A13), STACK BASE (A14) t $ P* AND ADDRESS TO GETPSW-ROUTINE * P* R P LDR A8,P RETURN ADDRESS & P LDKL A3,REL+2 RELOCATION ROUTINE | P CFR A8,A3 $ P LDKL A5,/5555 LOAD TEST PATTERN P LDK A6,64 INIT PAGE COUNTER " P LD
0x28c290…28c424 Dummy {f00=0x003b, f01=0x0190, f02=»R SYSTEMS WITH MMU OPTION EXCLUSIVELY | P* . " P SLL A6,2 UPPER SAVE20=256 KB 8 P LDK A1,0 MMU ENTRY POINTER ^ PAP:010 EQU * " P LD A2,TABBE GET PAGE ADDRESS 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS P ST A2,TABBE STORE IT
0x28c424…28c5b8 Dummy {f00=0x003b, f01=0x0190, f02=» ( P CWR A2,A5 COMPARE WITH TEST PATTERN P RF(E) AP:200 0 ( P SUK A6,4 DECREMENT NUMBER OF PAGES F P RB AP:010 r P* D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY P* P EJECT PAP:100 EQU * P*
0x28c5b8…28c74c Dummy {f00=0x003b, f01=0x0190, f02=» & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT 2 " P STR A5,A1 STORE TEST PATTERN ^ P CWR* A5,A1 CHECK IF MEMORY " P RF(E) AP:120 MEMORY END FOUND 0 P SUK A6,4 DECREMENT NUMBER OF PHYSICAL PAGES P RB AP
0x28c74c…28c8e0 Dummy {f00=0x003b, f01=0x0190, f02=» OPTION EXCLUSIVELY ` P* P EJECT & P* 4 P* COMMON EXECUTION PATH > P* ^ PAP:200 EQU * h 0 P ST A6,SCTMSZ SAVE NUMBER OF PHYSICAL PAGES | P* $ P* GET APPLICATION DISC ADDRESS P* P LD A11,SCTADA P*
0x28c8e0…28ca74 (2, 417) Dummy {f00=0x003c, f01=0x0190, f02=»AVE * P LD A2,SCTPLD GET PROGRAM LOAD DEVICE P LDR A1,A2 SAVE : P* R P* CHECK PROGRAM LOAD MEDIUM P* " P ANK A2,/C0 CHECK IF CASSETTE P RF(P) AP:210 YES! , P ADKL A3,BUFLEN+8 NEW START OF FREE AREA P ST A3,SCTSFA
0x28ca74…28cc08 Dummy {f00=0x003c, f01=0x0190, f02=» P SRC A2,1 CHECK BIT 15 P RF(N) AP:220 FLEXIBLE DISC " P RF AP:230 DISC F PAP:210 EQU * ^ P* r & P* PROGRAM LOAD DEVICE = CASSETTE | P* * P ADKL A3,CBLEN NEW START OF FREE AREA P ST A3,SCTSFA SAVE * P LDKL A1,RDBLK G
0x28cc08…28cd9c Dummy {f00=0x003c, f01=0x0190, f02=»OCK n P LDR A1,A1 TAPE MARK? P RF(Z) AP:235 NO! * , P CF A14,CASSIN INIT APPLICATION CASSETTE D P RB AP:215 t P EJECT PAP:220 EQU * P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTPLD: /F
0x28cd9c…28cf30 Dummy {f00=0x003c, f01=0x0190, f02=»NIT FLEXIBLE DISC P* P CF A14,FDINIT $ P* : , P* READ FIRST SECTOR FROM FLEXIBLE DISC D P* t P CF A14,FRDSEC ~ P RF AP:235 P EJECT PAP:230 EQU * P* " P* PROGRAM LOAD DEVICE = DISC P* P*
0x28cf30…28d0c4 Dummy {f00=0x003c, f01=0x0190, f02=» A2,/F0 P ST A2,SCTPLD P* & P* INITIALIZE DISC COMMANDS 0 P* T P CF A14,DUINIT ^ P* t " P* READ FIRST SECTOR FROM DISC ~ P* P CF A14,RDSEC P EJECT PAP:235 EQU * P* P* COMMON EXECUTION PATH
0x28d0c4…28d258 Dummy {f00=0x003c, f01=0x0190, f02=».) ` P ST A6,SAVE09,A13 SAVE , P LD A6,2,A9 GET TOTAL NUMBER OF SECTORS ( P AD* A6,SCTADA X . P ST A6,SAVE11,A13 SAVE LAST SECTOR NUMBER n . P LD A6,COMLG,A9 GET LENGTH OF COMMON PART P ST A6,SAVE04,A13 SAVE ( P LD A3,PRGLG1+8,A9 GET P
0x28d258…28d3ec Dummy {f00=0x003c, f01=0x018e, f02=»,SCTPSZ SAVE 4 PAP2350 LD A5,SCTMSZ GET NUMBER OF PHYSICAL PAGES " P LD A1,SCTOPT GET OPTION WORD L P ANK A1,1 MMU IN SYSTEM? r P RF(Z) AP:240 NO! P EJECT P* 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION P* P LD
0x28d3ec…28d580 Dummy {f00=0x003c, f01=0x0190, f02=» ( P CALL ERROR INDICATE PAGE SIZE ERROR PAP:236 EQU * 4 P SRL A3,2 LOGICAL PAGE SIZE H P SLL A5,8 MAP IT ON MMU l 2 P ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS P LDR A1,A5 SAVE P* " P* CHECK IF CREDIT APPLICATION
0x28d580…28d714 (2, 418) Dummy {f00=0x003c, f01=0x0190, f02=»ENTS f P ABL(Z) AP:330 NO SEGMENTS! P RF AP:245 0 P* B D P* END OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION L P* P EJECT PAP:240 EQU * P* @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION
0x28d714…28d8a8 Dummy {f00=0x003c, f01=0x0190, f02=»CATION x P* P LD A2,PRGLG1+8,A9 P CWK A2,'CR' 2 P RF(NE) AP:275 NOT CREDIT F * P LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS h P RF(Z) AP:275 NO SEGMENTS! P EJECT PAP:245 EQU * P* P* COMMON EXECUTION PATH P*
0x28d8a8…28da3c Dummy {f00=0x003c, f01=0x0190, f02=»! * P LD A4,SCTPLD GET PROGRAM LOAD DEVICE " P SUK A4,/F0 CHECK IF CASSETTE 8 0 P RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! ^ P* , P* COMPUTE NUMBER OF CORE RESIDENT PAGES P* P CM SAVE05,A13 RESET COUNTER $ P LDR A6,A9 STA
0x28da3c…28dbd0 Dummy {f00=0x003c, f01=0x0190, f02=»GET SEGMENT TYPE ( P CCK A4,'RR' CORE RESIDENT SEGMENT? ! P RF(NE) AP:255 NO! ! D 6 P IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER ! ^ PAP:255 EQU * ! P SUK A2,1 MOORE SEGMENTS? ! P RB(NZ) AP:250 YES! ! 2 P LD A2,SAVE05,A13 NUMBER OF RE
0x28dbd0…28dd64 Dummy {f00=0x003c, f01=0x0190, f02=» EQU * ! 0 P SUR A5,A3 DECREMENT PHYSICAL MEMORY ADDRESS " ( P SUK A2,1 DECREMENT NUMBER OF PAGES " B P RB(P) AP:265 " n 8 P ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT " PAP:270 EQU * " " P LD A2,SCTOPT GET OPTION WORD " P ANK A2,1 MMU
0x28dd64…28def8 Dummy {f00=0x003c, f01=0x0190, f02=»CUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION " P* # > P ST A5,SAVE08,A13 # H PAP:275 EQU * # b P LDR A8,A5 # v . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART # & P ADKL A10,3 RESERV ONE EXTRA WORD # P ANKL A10,/FFFE # $ P SUR A8,A10
0x28def8…28e08c Dummy {f00=0x003c, f01=0x0190, f02=»:285 # PAP:280 CWR A8,A1 $ PAP:285 RF(G) AP:290 $ $ P LDKL A1,LMP3 $ @ P CALL ERROR MEMORY OVERFLOW! $ V PAP:290 EQU * $ z 4 P ST A8,SAVE07,A13 SAVE APPLLICATION LOAD-ADDRESS $ 4 P ST A8,SAVE01,A13 SAVE APPLICATION LOAD-ADDRESS $ P LDR A12,A
0x28e08c…28e220 Dummy {f00=0x003c, f01=0x0190, f02=» 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION % P* % : P LDR A4,A5 SAVE % D & P ANKL A5,/FC00 GET 6 LEFTMOST BITS % P LDR A6,A5 SAVE % , P SUR A4,A5 COMPUTE PHYSICAL DISPLACEMENT % P EJECT % P* % 4 P* STORE ADDRES(ES) TO PHYSICAL PA
0x28e220…28e3b4 (2, 419) Dummy {f00=0x003c, f01=0x0190, f02=» POINTER % v PAP:295 EQU * & * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS & $ * P SUKL A8,1 DECREMENT MMU ENTRY POINTER & R 2 P SUKL A3,/400 DECREMENT PHYSICAL PAGE ADDRESS & P RB(P) AP:295 & & P RF(Z) AP:300 EVEN 4K-BYTES PAGES & P* & 0 P* RESER
0x28e3b4…28e548 Dummy {f00=0x003c, f01=0x0190, f02=» EQU * & . P LD A3,SCTNOP ANY CORE RESIDENT SEGMENTS? ' P RF(NZ) AP:302 YES! ' @ , P LDR A5,A1 GET ADDRESS TO END OF MEMORY ' P LDK A4,0 RESET PAGE SIZE ' P RF AP:310 ' < PAP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE ' PAP:305 E
0x28e548…28e6dc Dummy {f00=0x003c, f01=0x018e, f02=»LE? ' t P RF(E) AP:310 YES! ( 2 P ADKL A6,/400 INCREMENT PHYSICAL PAGE ADDRESS ( & P RB AP:305 ( PAP:310 EQU * ( n * P LDR A4,A4 ANY PHYSICAL DISPLACEMENT? ( P RF(NZ) AP:315 YES! ( , P SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS ( P* ( PAP
0x28e6dc…28e870 Dummy {f00=0x003c, f01=0x018e, f02=» P* ) P LDR A2,A8 GET MMU ENTRY ) & P SLL A2,12 MOVE TO 4 LEFTMOST BITS ) . , P ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE ) X P ST A2,SCTLAP SAVE ) P ADR A2,A4 ADD DISPLACEMENT ) P ST A2,SAVE08,A13 SAVE ) , P LDR A2,A8 GET MMU ENTRY FOR FIRST P
0x28e870…28ea04 Dummy {f00=0x003c, f01=0x0190, f02=» & P* COMPUTE NUMBER OF PAGE ENTRIES * P* * . P LDKL A2,16 * 8 P SUR A2,A8 * L P ST A2,SCTNPE * ^ P RF AP:335 * t PAP:330 EQU * * P* * 8 P* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT * > P* THE APPLICATION LOADED WAS UNSEGMENTE
0x28ea04…28eb98 Dummy {f00=0x003c, f01=0x0190, f02=»MEND END OF MMU TABLE * " P LDKL A8,16 MMU ENTRY POINTER + P EJECT + D PAP:335 EQU * + R P LDR A4,A4 ANY DISPLACEMENT? + f P RF(NZ) AP:337 + P LDKL A4,PAGSIZ + PAP:337 EQU * + P* + ( P* COMPUTE APPLICATION SAVE09 ADDRESS + P* +
0x28eb98…28ed2c Dummy {f00=0x003c, f01=0x0190, f02=»Y ADDRESS + P* A8 - CURRENT MMU ENTRY , P* , 4 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART , > $ P ADK A2,3 RESERV ONE EXTRA WORD , r $ P ANKL A2,/FFFE MAKE EVEN LENGTH , P RF AP:344 , PAP:340 EQU * , L P* RESERV ENTRIES IN MMU TABLE F
0x28ed2c…28eec0 Dummy {f00=0x003c, f01=0x018e, f02=» , n * P SUKL A8,1 DECREMENT MMU ENTRY POINTER - P RF(NN) AP:342 - 6 PAP:341 EQU * - L * P LDKL A1,LMP7 INDICATE TABBE OVERFLOW! - ` P CALL ERROR - PAP:342 EQU * - $ P SUK A1,1 DECREMENT PAGE POINTER - * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS -
0x28eec0…28f054 (2, 420) Dummy {f00=0x003c, f01=0x0190, f02=» - l P RF(NN) AP:345 NO! . P CWR A4,A2 . " P RF AP:348 . 4 PAP:345 EQU * . F P CWR A2,A4 . Z PAP:348 EQU * . l P RB(G) AP:340 . PAP:350 EQU * . P LDR A2,A2 . P RF(Z) AP:351 . P SUKL A8,1 . " P RB(N) AP:341 TABBE OVERFLOW! .
0x28f054…28f1e8 Dummy {f00=0x003c, f01=0x0190, f02=» A2,A8 GET MMU ENTRY . P SUKL A8,17 / P ADR A8,A8 BYTE DISPLACEMENT / 0 P ST A8,SCTMMC SAVE IN SYSTAB / T & P SLL A2,12 MOVE TO 4 LEFTMOST BITS / x P LDR A8,A2 / & P ADR A8,A4 COMPUTE LOGICAL ADDRESS / , P ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA
0x28f1e8…28f37c Dummy {f00=0x003c, f01=0x0190, f02=» RF(Z) AP:353 NO! / P LDKL A1,0 UPPER LIMIT 64 KB 0 P RF AP:354 0 > PAP:353 EQU * 0 P $ P LDR* A1,A7 GET PHYSICAL ADDRESS 0 d P SLL A1,2 0 P ADR A1,A4 ADD DISPLACEMENT 0 ( P LD A2,SCTSFA GET START OF FREE AREA 0 ( P TNM A1,A2 ON SAME SIDE OF
0x28f37c…28f510 Dummy {f00=0x003c, f01=0x018e, f02=»DKL A1,LMP3 0 P CALL ERROR MEMORY OVERFLOW 1 PAP:354 EQU * 1 8 P ST A1,SAVE01,A13 SAVE 1 L . P LD A10,COMLG,A9 LOAD COMLG OF COMMON PART 1 j P TL TABBE LOAD MMU REGISTERS 1 P* 1 : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION 1 P
0x28f510…28f6a4 Dummy {f00=0x003c, f01=0x0190, f02=» PAP:355 EQU * 2 & P LD A1,SCTEFA GET END OF FREE AREA 2 P SUK A1,1 MODIFY 2 B P ST A1,SCTEFA STORE 2 Z P ST A8,SCTLAC 2 v * P CF A14,LODCOM LOAD CORE RESIDENT PART 2 8 P LD A8,SAVE08,A13 GET LOGICAL ADDRESS TO FIRST PAGE 2 P* 2 " P* CHECK
0x28f6a4…28f838 Dummy {f00=0x003c, f01=0x018e, f02=» CALL GETCON GET CONTENT 2 P CWK A1,'CR' CREDIT? 3 P RF(NE) CONLOD NOT CREDIT! 3 < $ P LD A1,SCTNOS NUMBER OF SEGMENTS 3 ^ P RF(Z) CONLOD NO SEGMENTS! 3 6 P SUR A12,A12 RELOCATION BASE = ZERO FOR SEGMENTS 3 " P LD A1,SCTOPT GET OPTION WORD 3 P
0x28f838…28f9cc Dummy {f00=0x003c, f01=0x0190, f02=» & P* READ AND RELOCATE THE SEGMENTS 4 P* 4 . . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT 4 8 P* A10 - SEGMENT LENGTH 4 j P* A12 - RELOCATION BASE 4 P* 4 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION 4 P ADKL A2,BLKLEN+BLKLEN 4 *
0x28f9cc…28fb60 Dummy {f00=0x003c, f01=0x0190, f02=»CREMENT BLOCK COUNTER 4 P RB AP:365 5 PAP:370 EQU * 5 0 P* 5 D P* CHECK IF DISC PAGING 5 N P* 5 n " P LD A1,SCTOPT GET OPTION WORD 5 x P ANK A1,2 DISC PAGING? 5 P RF(Z) AP:376 NO! 5 P* 5 & P* CHECK IF CORE RESIDENT SEGMENT 5
0x28fb60…28fcf4 (2, 421) Dummy {f00=0x003d, f01=0x0190, f02=» P* 6 * P* BYPASS THIS SEGMENT AND CHECK NEXT 6 P* 6 < * P LD A1,SAVE06,A13 GET SEGMENT COUNTER 6 F . P LD A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS 6 t P ADK A1,1 INCREMENT 6 P CWR A1,A2 LAST SEGMENT? 6 P RF(E) CONLOD YES! 6 2 P ST A1,SAVE0
0x28fcf4…28fe88 Dummy {f00=0x003d, f01=0x0190, f02=»L GETCON GET DISC SECTOR ADDRESS 6 P LDR A11,A1 SAVE 7 ( . P AD A11,SCTADA ADD START ADDRESS #79-01-03 7 @ PAP:378 EQU * 7 r P ADK A2,2 SEGMENT LENGTH 7 $ P CALL GETCON GET SEGMENT LENGTH 7 P LDR A10,A1 SAVE 7 P ADKL A10,1 7 $ P ANKL A10,/FFF
0x28fe88…29001c Dummy {f00=0x003d, f01=0x0190, f02=»D A2,SCTNOS GET TOTAL NUMBER OF SEGMENTS 7 ( P ADK A1,1 INCREMENT SEGMENT COUNTER 8 0 $ P CWR A1,A2 ALL SEGMENTS LOADED? 8 P RF(E) CONLOD YES! 8 , P ST A1,SAVE06,A13 STORE SEGMENT COUNTER 8 " P LD A4,SCTPSZ GET PAGE LENGTH 8 " P LD A1,SCTOPT GET OP
0x29001c…2901b0 Dummy {f00=0x003d, f01=0x0190, f02=» 8 P EJECT 9 PAP:379 EQU * 9 P LDR A1,A4 SAVE 9 * . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT 9 B " P RF(Z) AP:380 NO DISCRIMINANT! 9 t 4 P ADR A1,A8 COMPUTE LOGICAL ADDRESS TO NEXT PAGE 9 P LDR A4,A1 SAVE 9 . P ANKL A4,/0C00 GET MODULO 4K D
0x2901b0…290344 Dummy {f00=0x003d, f01=0x018e, f02=» COMPUTE PHYSICAL INCREMENT 9 PAP:380 EQU * : $ , P LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE : 8 $ P ANKL A8,/F000 SKIP DISPLACEMENT : h P LDR A2,A8 SAVE : 4 P ADR A8,A4 COMPUTE LOGICAL ADDRESS TO NEXT PAGE : ( P SRL A2,12 MOVE TO 4 RIGHTMOST BITS :
0x290344…2904d8 Dummy {f00=0x003d, f01=0x0190, f02=» : | * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU ; PAP:385 EQU * ; 6 , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE ; J P ADK A2,2 NEXT MMU ENTRY ; z P CWR A2,A3 ; P RB(NE) AP:385 ; & P TL MMDDIV,A13 LOAD MMU REGISTERS ; P RB AP:360 ; P EJECT ;
0x2904d8…29066c Dummy {f00=0x003d, f01=0x0190, f02=»* LOAD CONFIGURATION PART OF SYSLOD * ; > P* ================================= * < B > P* * < > P* ENTRY: A9 - BUFFER ADDRESS * < > P
0x29066c…290800 Dummy {f00=0x003d, f01=0x0190, f02=» * < > P* SUBROUTINES: CASSIN,RDBLK,MOVBUF * = > > P* * = > P********************************************************** = PCONL
0x290800…290994 (2, 422) Dummy {f00=0x003d, f01=0x0190, f02=»* = & P* PROGRAM LOAD DEVICE = CASSETTE > P* > 4 PCON:30 EQU * > > P LDR A1,A9 START OF BUFFER > R P ADKL A1,CBLEN > t 4 P ST A1,SAVE03,A13 SAVE POINTER TO END OF BUFFER > P ST A1,SAVE08,A13 > P CF A14,RDBLK READ ONE BLOCK > " P CF A14,
0x290994…290b28 Dummy {f00=0x003d, f01=0x0190, f02=»N:40 EQU * > " P CF A14,RDBLK READ NEXT BLOCK ? P LDR A1,A1 TAPEMARK? ? 8 P RF(NZ) CONEX YES! ? T PCON:50 EQU * ? n P* ? 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK ? P* ? 4 P LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER ? P LDR
0x290b28…290cbc Dummy {f00=0x003d, f01=0x0190, f02=» CHARACTER IN BUFFER ? P CCK A5,';;' CHECK IF SPACE @ & P RF(E) CON:70 NO MOORE CHARACTERS @ @ PCON:65 EQU * @ j P CWK A3,CBLEN END OF BUFFER? @ ~ P RF(E) CON:75 YES! @ & P CW A1,SAVE01,A13 MEMORY OVERFLOW? @ P RF(E) MEMOFL YES! @ , P ADK A1,
0x290cbc…290e50 Dummy {f00=0x003d, f01=0x0190, f02=»60 @ PCON:70 EQU * A " P LC A5,1,A4 GET NEXT CHARACTER A " P CCK A5,';;' TWO SEMI-COLONS? A D P RF(NE) CON:75 NO! A j * P CWK A3,NCHTID CHECK IF END OF RECORD A 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD A PCON:75 EQU * A . P ST A1,SAV
0x290e50…290fe4 Dummy {f00=0x003d, f01=0x0190, f02=» LDKL A1,LMP3 INDICATE MEMORY OVERFLOW A P CALL ERROR B . PCONEX EQU * B B P* B V > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE B ` P* B " P CF A14,RDBLK READ NEXT BLOCK B P LDR A1,A1 APPLICATION DATA? B P RF(NZ) CON:80 NO!
0x290fe4…291178 Dummy {f00=0x003d, f01=0x0190, f02=»QU * B P LDK A1,/F C " P CF A14,CHCRIO UNLOAD CASSETTE C PCON:90 EQU * C D P ABL CONMOV C X P EJECT C l PCONRAD EQU * C z P* C 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC C P* C * P CF A14,GETFIL GET CONFIGURATION FILE C "
0x291178…29130c Dummy {f00=0x003d, f01=0x0190, f02=»ART OF SAVE BUFFER =2 C P ST A1,SAVE03,A13 SAVE =2 D $ P LDKL A10,0 RESET RECORD COUNTER D @ PCOR:10 EQU * D h P* D | 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE D P* D P CF A14,READS READ SECTOR D PREADS EQU *-2 D " P LDR A8,A9 G
0x29130c…2914a0 Dummy {f00=0x003d, f01=0x0190, f02=»3 GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE E ( & P LDK A3,0 RESET CHARACTER COUNTER E @ P LDR A4,A8 START OF RECORD E j PCOR:30 EQU * E P LCR A5,A4 GET CHARACTER E P CCK A5,';;' END OF RECORD? E P RF(E) COR:40 YES! E PCOR:35 EQU
0x2914a0…291634 (2, 423) Dummy {f00=0x003d, f01=0x0190, f02=»L YES! E & P ADK A1,1 INCREMENT BUFFER POINTER F * P ADK A3,1 INCREMENT CHARACTER COUNTER F 8 & P ADK A4,1 INCREMENT RECORD POINTER F f P RB COR:30 LOOP F PCOR:40 EQU * F " P LC A5,1,A4 GET NEXT CHARACTER F P CCK A5,';;' TWO SEMICOLONS? F P R
0x291634…2917c8 Dummy {f00=0x003d, f01=0x0190, f02=» * F . P ST A1,SAVE03,A13 SAVE CURRENT DESTINATION G P LDR A1,A8 START OF RECORD G < P CALL MOVE G ^ ( P ADKL A10,1 INCREMENT RECORD COUNTER G p " P CW A10,SAVE20,A13 LAST RECORD G P RF(E) COR:50 YES! G . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER G
0x2917c8…29195c Dummy {f00=0x003d, f01=0x0190, f02=»3,'S' G & P SC A3,GET:25+1 MODIFY INSTRUCTION H & P SC A3,GET:60+1 MODIFY INSTRUCTION H 8 P CF A14,GETFIL H b P* H x P* UNLOCK FLEXIBLE DISC H P* H " P LD A1,SCTPLD GET LOAD DEVICE H P SUK A1,/F8 CHECK TYPE H $ P RF(N) COR:60 NOT FLEXIB
0x29195c…291af0 Dummy {f00=0x003d, f01=0x0190, f02=»NLOCK ORDER H P EX FRD:10 EXECUTE COMMAND I $ P RB(NA) *-4 LOOP UNTIL ACCEPTED I 6 P EX FRD:40 SENSE STATUS I ^ $ P RB(NA) *-4 LOOP UNTIL ACCEPTED I ~ PCOR:60 EQU * I P EJECT I PCONMOV EQU * I P* I 4 P* MOVE CONFIGURATION DATA TO END
0x291af0…291c84 Dummy {f00=0x003d, f01=0x0190, f02=» SUK A3,/F0 CASSETTE? I P RF(N) CMOV10 YES! J " P ADK A1,8 START OF SAVE BUFFER J 8 : PCMOV10 LD A3,SAVE03,A13 GET END OF CONFIGURATION DATA J ^ , P LD A2,SAVE01,A13 GET END OF SYSTEM AREA J * P CM -2,A2 MAKE SURE CONFIGURATION FILE J " P SUK A2,1 IS F
0x291c84…291e18 Dummy {f00=0x003d, f01=0x0190, f02=»AKE EVEN ADDRESS J P CALL MOVE K 6 P ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA K * & P LDR A1,A9 GET START OF FREE AREA K d P LDR A12,A2 END OF FREE AREA K $ P SUR A12,A1 SUBTRACT MONITOR END K . P ST A12,M:REL,A13 SAVE RELOCATION CONSTANT K
0x291e18…291fac Dummy {f00=0x003d, f01=0x0190, f02=»O SUK A1,2 K P SUK A2,2 L P LDR* A4,A1 L $ P STR A4,A2 L 8 P CWR A1,A13 L J P RB(NE) MOPRO L ^ * P LDR A1,A2 SAVE NEW LOCATION OF SYSLDA L t " P AD A2,LDALEN,A2 BYPASS SYSLDA L ( P ABR A2 CONTINUE EXECUTION IN SYSLDM L P EJECT L L P******
0x291fac…292140 Dummy {f00=0x003d, f01=0x0190, f02=»NG PHASE O L R L P************************************************************************ M $ P******************************* M b $ P* SOPIN - READ SOP SWITCHES * M $ P* ========================= * M $ P* * M $ P* ENT
0x292140…2922d4 (2, 424) Dummy {f00=0x003d, f01=0x0190, f02=»CH 1 * M z $ P* BIT 15 - SWITCH 10 * N $ P* * N : $ P* WORK REGISTERS: A1 * N b $ P* * N $ P* SUBROUTINES: * N $ P* * N $ P******
0x2922d4…292468 Dummy {f00=0x003d, f01=0x0190, f02=»JECT N < P******************************************************* O < P* CASSIN - CASSETTE INITIATING ROUTINE * O L < P* ==================================== * O < P* * O
0x292468…2925fc Dummy {f00=0x003d, f01=0x0190, f02=»NTRY: * O < P* * P < < P* EXIT: * P | < P* * P < P* WORK REGI
0x2925fc…292790 Dummy {f00=0x003d, f01=0x0190, f02=»IN,CHCRIO * P | < P* * Q , < P******************************************************* Q l PCASSIN EQU * Q P LDK A1,/F Q " P CF A14,CHCRIO UNLOAD CASSETTE Q 2 P LDKL A3,LMP1+LM
0x292790…292924 Dummy {f00=0x003d, f01=0x018e, f02=»TCHES? Q v P RB(Z) CAS:10 NO! R & P LDKL A3,LMP1 SWITCH ON LOAD LAMP R ( P OTR A3,0,SOP R R P SRL A1,8 RIGHT ALIGN R h P ANK A1,1 SELECT UNIT R P CF A14,CHCRIO SELECT UNIT R P LDK A1,LOCK R P CF A14,CHCRIO LOCK CASSETTE R P ANK A3,1
0x292924…292ab8 Dummy {f00=0x003d, f01=0x0190, f02=» R * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD S P RTN A14 S 6 P EJECT S F 2 P********************************************* S T 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * S 2 P* ======================================= * S 2 P*
0x292ab8…292c4c Dummy {f00=0x003d, f01=0x0190, f02=» S b 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * T 2 P* * T > 2 P* EXIT: * T t 2 P* * T 2 P* WORK REGISTERS: A1,A3
0x292c4c…292de0 Dummy {f00=0x003d, f01=0x0190, f02=» * T 2 P********************************************* U ( PCHCRIO EQU * U ^ P CIO A1,1,CHCR U r P SST A3,CHCR U P RB(NA) CHCRIO U P RTN A14 U P EJECT U 6 P************************************************** U 6
0x292de0…292f74 (2, 425) Dummy {f00=0x003e, f01=0x0190, f02=»====================== * U ~ 6 P* * V ( 6 P* REFERENCED IN: SYSLOD * V b 6 P* * V 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER *
0x292f74…293108 Dummy {f00=0x003e, f01=0x0190, f02=» * V : P* WORK REGISTERS: A1,A2,A3,A4,A5 * W . 6 P* * W l 6 P* SUBROUTINES: * W 6 P****************************************
0x293108…29329c Dummy {f00=0x003e, f01=0x0190, f02=»R COUNTER W x $ P LDR A4,A3 SAVE SAVE09 OF BUFFER X P ADKL A3,CBLEN END OF BUFFER X : P LDK A1,/A X ^ P CIO A1,1,CHCR READ BLOCK X p P RF(NA) RDERR3 X PRDB:20 EQU * X P INR A1,0,CHCR X P RF(NA) RDB:30 X P CWR A4,A3 END OF BUFFER? X
0x29329c…293430 Dummy {f00=0x003e, f01=0x0190, f02=»OINTER X t PRDB:30 EQU * Y P SST A1,CHCR Y " P RB(NA) RDB:20 Y 8 P ANKL A1,/FCFF CHECK STATUS Y N P LDR A4,A1 SAVE STATUS Y r P RF(Z) RDBEX OK Y P SLC A4,3 CHECK IF TAPEMARK Y P RF(N) RDBEX OK IF TAPEMARK Y PRDERR EQU * Y P* Y
0x293430…2935c4 Dummy {f00=0x003e, f01=0x0190, f02=»* Y P ADK A5,1 NEXT ATTEMPT Z P CWK A5,3 THIRD ATTEMPT? Z ( P RF(E) RDERR3 YES - GIVE UP! Z H P LDK A1,/E REVERSE ONE BLOCK Z l P CIO A1,1,CHCR EXECUTE ORDER Z $ P RB(NA) *-2 LOOP UNTIL ACCEPTED Z P RB RDB:10 Z PRDERR3 EQU * Z P LDKL
0x2935c4…293758 Dummy {f00=0x003e, f01=0x0190, f02=» * Z ( #* DUINIT - INITIALIZE DISC UNIT * [ & ( #* ============================= * [ R ( #* * [ ~ ( #* REFERENCED IN: SYSLOD,GETFIL * [ ( #* * [ ( #* ENT
0x293758…2938ec Dummy {f00=0x003e, f01=0x0190, f02=» * [ ( #* WORK REGISTERS: A2 * " ( #* * N ( #* SUBROUTINES: * z ( #* * ( #*********************************** DUINIT EQU
0x2938ec…293a80 Dummy {f00=0x003e, f01=0x0190, f02=» x ( $ ST A2,READS READ CONFIGURATION DATA ] $ ST A2,READVL READ VOLUME LABEL ] 4 * % ST A2,READCF READ CONFIGURATION DATA ] * ] * INIT DISC COMMANDS ] * ] ADS A1,RDS:10 ] ADS A1,RDS:20 ] ADS A1,RDS:60 ] ADS A1,RD
0x293a80…293c14 (2, 426) Dummy {f00=0x003e, f01=0x0190, f02=» * ] j 4 /* RDSEC - READ ONE SECTOR FROM DISC * ^ 4 /* ================================= * ^ J 4 /* * ^ 4 /* REFERENCED IN: SYSLOD * ^ 4 /*
0x293c14…293da8 Dummy {f00=0x003e, f01=0x018e, f02=»* ^ b 4 /* A11 - SECTOR NUMBER * _ 4 /* * _ B 4 /* EXIT: * _ z 4 /* * _ 4 /* WORK REGISTERS: A1,A2
0x293da8…293f3c Dummy {f00=0x003e, f01=0x0190, f02=» 4 /* * ` 4 /*********************************************** ` < RDSEC EQU * ` t * ` 0 ,* DERIVE CYLINDER NUMBER FROM SECTOR NUMBER ` * ` " LDR A1,A11 GET SECTOR NUMBER ` * & SRL A1,5 CYLINDER
0x293f3c…2940d0 Dummy {f00=0x003e, f01=0x0190, f02=»SEEK COMMAND ` ~ $ RB(NA) *-2 LOOP UNTIL ACCEPTED a P* a < P* CHECK STATUS a F P* a ^ PRDS:20 SST A1,0 SENSE STATUS a h & P RB(NA) RDS:20 LOOP UNTIL ACCEPTED a * a & !* COMPUTE PHYSICAL SECTOR NUMBER a * a ( #RDS:30 LDR A2,A11 GE
0x2940d0…294264 Dummy {f00=0x003e, f01=0x0190, f02=»1,/F a ADR A1,A2 b SLL A1,2 b * b 0 * INIT MUX WORDS b : * b T & " LDKL A2,MUXCC LOAD FIRST MUX WORD b ^ RDS:40 WER A2,/10 WRITE b & ! LD A2,MXBUF LOAD SECOND MUX WORD b RDS:50 WER A2,/10+1 WRITE b " RDS:60 CIO A1,1,0 RE
0x294264…2943f8 Dummy {f00=0x003e, f01=0x0190, f02=» ANK A1,/1F GET 5 RIGHTMOST BITS b * & RB(NZ) RDS:30 LOOP UNTIL CORRECT READ c ( ( $ ADKL A11,1 INCREMENT SECTOR COUNTER c V RTN A14 c EJECT c 4 0************************************************ c 4 0* *
0x2943f8…29458c Dummy {f00=0x003e, f01=0x0190, f02=» * c 4 0* REFERENCED IN: SYSLOD,GETFIL * d ( 4 0* * d ` 4 0* ENTRY: A1 - DEVICE ADDRESS * d 4 0* * d 4 0
0x29458c…294720 Dummy {f00=0x003e, f01=0x0190, f02=» * d x 4 0* * e 4 0* SUBROUTINES: * e X 4 0* * e 4 0************************************************ e FDINIT E
0x294720…2948b4 (2, 427) Dummy {f00=0x003e, f01=0x0190, f02=»DCF e * f " * INIT FLEXIBLE DISC COMMANDS f * f < , ' ORS A1,FRD:10 MODIFY READ SECTOR ORDER f F ANK A1,8 PROGRAMMED CHANNEL f v RF(NZ) FDI:10 YES! f * % LDKL A1,/0511 NOT PROGRAMMED CHANNEL f ( $ ST A1,FRD:20 MODIFY INR INSTRUCTION
0x2948b4…294a48 Dummy {f00=0x003e, f01=0x0190, f02=»1,FDCU SENSE STATUS f RB(NA) *-2 g & ! ANK A1,1 FLEXIBLE DISC OPERABLE? g 0 RB(NZ) FDI:10 NO! g Z RTN A14 g t EJECT g @ ;*********************************************************** g @ ;*
0x294a48…294bdc Dummy {f00=0x003e, f01=0x0190, f02=» * g ^ @ ;* * h @ ;* REFERENCED IN: SYSLOD * h V @ ;* * h @ ;* ENTRY: A9 - BUFFER ADDRESS
0x294bdc…294d70 Dummy {f00=0x003e, f01=0x0190, f02=» * h f @ ;* EXIT: * i @ ;* * i ^ @ ;* WORK REGISTERS: A1,A2,A3 * i @ ;*
0x294d70…294f04 Dummy {f00=0x003e, f01=0x0190, f02=» * i n @ ;*********************************************************** j " FRDSEC EQU * j f " LDR A1,A11 GET SECTOR NUMBER j z SLL A1,5 j ORKL A1,/C000 j & ! LDKL A2,MUXCC LOAD 1:ST MUX WORD j $ LD A3,MXBUF LOAD 2:ND
0x294f04…295098 Dummy {f00=0x003e, f01=0x0190, f02=» ADKL A3,BUFLEN BUFFER END j $ FRD:10 CIO A1,1,FDCU START READ k " & " RB(NA) FRD:10 LOOP UNTIL ACCEPTED k J 4 /FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX k t & " RF(NA) FRD:40 LOOP UNTIL ACCEPTED k STR A1,A2 STORE CHARACTER k & " ADK A2,2 INCREM
0x295098…29522c Dummy {f00=0x003e, f01=0x0190, f02=»20 k $ FRD:40 SST A1,FDCU SENSE STATUS l & " RB(NA) FRD:20 LOOP UNTIL ACCEPTED l 2 P ANKL A1,/4E15 FATAL ERROR? l RF(NZ) FRD:50 YES! l ( P ADKL A11,1 INCREMENT SECTOR ADDRESS l RTN A14 l FRD:50 LDKL A1,LMP2 l CALL ERROR l
0x29522c…2953c0 Dummy {f00=0x003e, f01=0x0190, f02=» GETFIL - GET CONFIGURATION FILE * l 8 3* =============================== * m : 8 3* * m v 8 3* REFERENCED IN: SYSLOD * m 8 3*
0x2953c0…295554 (2, 428) Dummy {f00=0x003e, f01=0x0190, f02=» * m f 8 3* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * n 8 3* * n N 8 3* WORK REGISTERS: A1,A4,A5,A6,A7,A8,A10 * n 8 3* * n 8 3* SUB
0x295554…2956e8 Dummy {f00=0x003e, f01=0x0190, f02=»***************************** n z GETFIL EQU * o & LDKL A11,0 VOLUME LABEL o : $ CF A14,READVL GET VOLUME LABEL o Z READVL EQU *-2 o LD A10,10,A9 GET VTOC BASE o LDR A11,A10 SAVE o " AD A10,6,A9 LAST VTOC SECTOR o ( # LD A8,12,A9
0x2956e8…29587c Dummy {f00=0x003e, f01=0x0190, f02=»CF EQU *-2 o " LDK A7,QBLFAC BLOCKING FACTOR p " LDR A6,A9 GET START OF BUFFER p 8 GET:20 EQU * p ^ P LDK A5,/20 LOAD SPACE p r P CCR A5,A6 UNUSED FILE? p P RF(E) GET:50 YES! p LDR A4,A6 START OF RECORD p ( P LDK A5,'S' STANDARD FILE CH
0x29587c…295a10 Dummy {f00=0x003e, f01=0x0190, f02=»ONFIGURATION FILE? p RF(NE) GET:50 NO! q 2 PGET:25 LDK A3,'C' THIS INSTRUCTION IS MODIFIED q 4 ( P CCK A3,'CC' LOOKING FOR CONF. FILE? q j P RF(NE) GET:85 NO! q ADK A4,5 SIXTH CHARACTER q , P LDK A5,':' CHARACTER TO PRECEED NUMBER q ( $GET:30
0x295a10…295ba4 Dummy {f00=0x003e, f01=0x0190, f02=»F(E) GET:50 YES! q RB GET:30 r GET:40 EQU * r * * r > * CHECK APPLICATION NUMBER r H * r l LC A5,1,A4 GET LEFT DIGIT r v SLL A5,8 SHIFT TO LEFT BYTE r LC A5,2,A4 GET RIGHT DIGIT r " CALL CONVRT CONVERT TO BINARY r , ( C
0x295ba4…295d38 Dummy {f00=0x003e, f01=0x0190, f02=» LAST RECORD NUMBER r ST A1,SAVE20,A13 SAVE s LD A11,18,A6 SECTOR ADDRESS s : RTN A14 s ^ GET:50 EQU * s n ADR A6,A8 NEXT VTOC RECORD s & ! ADK A6,1 BYPASS STATUS CHARACTER s , ' SUK A7,1 MOORE RECORDS IN THIS SECTOR? s RB(P) G
0x295d38…295ecc Dummy {f00=0x003e, f01=0x0190, f02=» CCK A3,'CC' LOOKING FOR CONF. FILE? s P RF(NE) GET:99 NO! t , * t F : 6* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT t P * %* LOAD MEDIUM FOR CONFIGURATION FILE t * t LDKL A2,/01F8 t & ! OTR A2,0,SOP SWITCH ON SOP LAMPS t GE
0x295ecc…296060 Dummy {f00=0x003e, f01=0x018e, f02=»SOP SWITCH ON LOAD LAMP t SRN A1,A2 u ( # LD A1,DEVTAB,A2 GET DEVICE ADDRESS u 2 CWK A2,5 DISC? u ^ RF(G) GET:80 YES! u v & ! CF A14,FDINIT INIT FLEXIBLE DISC u RB GETFIL u GET:80 EQU * u CF A14,DUINIT INIT DISC u RB GETF
0x296060…2961f4 (2, 429) Dummy {f00=0x003f, f01=0x018e, f02=» * PGET:90 LCR A1,A4 GET CHAR IN FILENAME v . P CC A1,SWPTAB,A5 CHECK IF PRESCIBED CHAR. v 2 P RB(NE) GET:50 NO! v d P ADK A4,1 NEXT CHARACTER v ~ * P ADK A5,1 INCREMENT CHARACTER COUNTER v & P CWK A5,8 ALL CHARACTERS CHECKED? v P RB(NE) GET:90 NO!
0x2961f4…296388 Dummy {f00=0x003f, f01=0x0190, f02=» v l P ST A1,SCTSWB SAVE IN SYSTAB w * P LD A3,SWPFEL,A6 GET LENGTH IN SECTORS w , ( P ADR A3,A1 LAST SECTOR IN SWAPP-FILE w Z P ST A3,SAVE25,A13 SAVE w PGET:99 RTN A14 w P EJECT w : P***************************************************** w : P*
0x296388…29651c Dummy {f00=0x003f, f01=0x0190, f02=»==================================== * w : P* * x 0 : P* LODSEG - LOAD ONE SEGMENT * x n : P* ========================= * x : P*
0x29651c…2966b0 Dummy {f00=0x003f, f01=0x0190, f02=» * x f : P* A12 - RELOCATION BASE * y : P* * y R : P* EXIT: * y : P* * y
0x2966b0…296844 Dummy {f00=0x003f, f01=0x0190, f02=»UTINES: MOVE,READ * y : P* * z 6 : P***************************************************** z t PLODCOM EQU * z $ P LDR A3,A9 GET SAVE09 OF BUFFER z P LDR A2,A3 SAVE z * P L
0x296844…2969d8 Dummy {f00=0x003f, f01=0x018e, f02=» & P LDKL A7,376 NUMBER OF CODE WORDS { PLOD:10 EQU *-2 { . P RF LOD:30 { D PLOD:20 EQU * { V & P LDKL A7,240 NUMBER OF CODE WORDS { j PLOD:30 EQU * { P LDR A10,A10 APP >32 KB? { P RF(NN) LOD:40 NO! { P SUR A10,A7 DEC. LENGTH { P RF LO
0x2969d8…296b6c Dummy {f00=0x003f, f01=0x0190, f02=» { x P RF(E) LOD:45 YES! | " P CWK A7,400 200 WORDS/SECTOR? | " P RF(E) LOD:42 YES! | H ( P ADR A2,A7 START OF RELOCATION TABLE | b P CF A14,REBUF RELOCATE CODE | PLOD:42 EQU * | , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS | ( P LDKL A10,0 INDICA
0x296b6c…296d00 Dummy {f00=0x003f, f01=0x0190, f02=»TE END OF SEGMENT | ~ PLOD:50 EQU * } " P CWK A7,400 200 WORDS/SECTOR? } . P RF(E) LOD:52 YES! } T ( P ADR A2,A7 START OF RELOCATION BITS } n 0 P CWK A7,240 APPLICATION<ONE CASSETTE BLOCK? } P RF(NL) LOD:51 NO } * P LD A4,SAVE12,A13 FIRST CASSETTE
0x296d00…296e94 (2, 430) Dummy {f00=0x003f, f01=0x0190, f02=»52 EQU * } " P LDR A1,A9 START OF CODE PART ~ * P LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? ~ 6 P RF(NZ) LOD:55 NO! ~ d 2 P IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK ~ ~ 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK ~ 0 P CWK A10,0 COMMON PART <= ONE SE
0x296e94…297028 Dummy {f00=0x003f, f01=0x0190, f02=»DR A3,A7 NUMBER OF CHARACTERS TO MOVE ~ $ P LD A2,SAVE07,A13 GET TO-ADDRESS . , P ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS V " P LD A4,SCTOPT GET OPTION WORD P ANK A4,1 MMU IN SYSTEM? P RF(Z) LOD:60 NO! $ P MVSU A3 MOVE TABLE FROM SYSTEM
0x297028…2971bc Dummy {f00=0x003f, f01=0x0190, f02=» P RTN A14 EXIT PLODSEG EQU * ( P LDKL A1,400 NUMBER OF WORDS/SECTOR . $ P ST A1,LOD:10 MODIFY INSTRUCTION Z PLOD:70 EQU * P CF A14,READ PREAD EQU *-2 P RB LODCOM P EJECT 6 P******************************************
0x2971bc…297350 Dummy {f00=0x003f, f01=0x018e, f02=» =============================== * 6 P* * 6 6 P* REFERENCED IN: LODCOM/LODSEG * p 6 P* * 6 P* ENTRY: A3 - SAVE09 OF BUFFER
0x297350…2974e4 Dummy {f00=0x003f, f01=0x0190, f02=» 6 P* EXIT: * 6 P* * > 6 P* WORK REGISTERS: A1,A4,A5,A6 * x 6 P* * 6 P* SUBROUTINES:
0x2974e4…297678 Dummy {f00=0x003f, f01=0x018e, f02=»* ` PREBUF EQU * . P LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE P SUK A4,2 P PREB:10 EQU * b " P ADK A4,2 NEXT RELOCATION WORD v ( P LDK A6,16 NUMBER OF RELOCATION BITS $ P LDR* A1,A4 GET RELOCATION WORD PREB:20 EQU * , P RF(
0x297678…29780c Dummy {f00=0x003f, f01=0x0190, f02=» PREB:30 EQU * P ADK A3,2 NEXT CODE WORD & P CWR A3,A2 END OF CODE WORD PART? 8 P RF(E) EXREL YES! b $ P SUK A6,1 MOORE RELOCATION BITS? | P RB(Z) REB:10 NO! " P SLL A1,1 NEXT RELOCATION BIT P RB REB:20 PEXREL EQU *
0x29780c…2979a0 Dummy {f00=0x003f, f01=0x0190, f02=»************************************* * . * REFERENCED IN: SEGGEN 8 * Z " * ENTRY: A2 - MEMORY ADDRESS d . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK
0x2979a0…297b34 (2, 431) Dummy {f00=0x003f, f01=0x40b8, f02=»TION P RF(Z) GCON10 NO MMU ELR A1,A2 ( P RF GCON20 : PGCON10 EQU * L LDR* A1,A2 ` PGCON20 EQU * t RTN A14 RETURN P END SYSLOD @
0x297b34…297cc8 Dummy {f00=0x003f, f01=0x4060, f02=» T P S @
0x297cc8…297e5c Dummy {f00=0x003f, f01=0x2008, f02=» P X ` h p
0x297e5c…297ff0 Dummy {f00=0x003f, f01=0x0190, f02=» 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR 9 ( P SLL A2,1 CALC. REAL LENGTH (BYTES) 9 8 P ADK A2,2 9 d 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S 9 v P 9 P EJECT 9 " P****************************** 9 $ P* RELOCATE ADDRESSES IN U:BTAB
0x297ff0…298184 Dummy {f00=0x003f, f01=0x0190, f02=»TOD,A13 U:BTAB ADDRESS 9 P LDR* A3,A5 LENGTH : P ST A3,SAVE06,A13 : 8 P ADK A5,2 SKIP LENGTH WORD : R P SUK A3,2 -"- : t " PSYA180 RF(Z) SYA185 ALL DONE! : P ADRS A6,A5 RELOCATE : P XIF : P IFT CREDIT+MMUPAG=2 : $ P LD A5,U:BTOD,A13
0x298184…298318 Dummy {f00=0x003f, f01=0x0190, f02=»NGTH-WORD : PSYA180 RF(Z) SYA185 ; P ELR A10,A5 GET ADDRESS ; . P ADR A10,A6 RELOCATE ; N P ESR A10,A5 ; j P XIF ; ~ P IFF CREDIT=0 ; 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ; P SUK A3,UP:REC ; P RB SYA180 ; P EJE
0x298318…2984ac Dummy {f00=0x003f, f01=0x0190, f02=»S:BTAB ADDRESS ; ~ " P ELR A3,A5 LENGTH OF PROTOTYPE < P LDR A2,A3 SAVE < < " P SUK A3,2 EXCLUDE LENGTH WORD < T , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED! < z $ P EL A4,2,A5 GET PROT. W.B.-ADDR. < P ADR A4,A6 RELOCATE < P ES A4,2,A5 STORE IT BACK
0x2984ac…298640 Dummy {f00=0x003f, f01=0x018e, f02=» P ADK A2,2 INCREMENT LENGTH = ( P SUK A4,1 DECREMENT NUMBER OF COPIES = & P RB SYA192 = R 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE = d $ P SUK A3,UP:REC DECREMENT LENGTH = P RB SYA190 = P XIF = P IFT CREDIT+SWBMMU=2 = $ P LD A5
0x298640…2987d4 (2, 432) Opaque[0x194]
0x2987d4…298968 # DirEnt {nam=»M:92BD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0198, f03=0x0000}
0x2987d4…298968 IdxSect {
0x2987d4…298968 f00 = 0x000c // 0x2987d4 @0x0
0x2987d4…298968 f01 = 0x0002 // 0x2987d6 @0x2
0x2987d4…298968 gno = [ // 0x2987d8 @0x4
0x2987d4…298968 [0x00]: C0x000c.0x3.0
0x2987d4…298968 ]
0x2987d4…298968 }
0x298968…298afc Dummy {f00=0x000c, f01=0x0116, f02=» SCR LED DRRT01,/S 2 .!!CH $$BLOCK EQU 0 $$BLOCK EQU 1 $$ BLOCK MODE & !!EN ASM /S,NL h KPF /O z SCR INC SYSTAB LKE M KPF /L,M:92BD SCR ASM DRRT01,NL KPF /O SCR AS
0x298afc…298c90 Dummy {f00=0x000c, f01=0x2008, f02=» LED DRRT01,/S 2 .!!CH $$BLOCK EQU 0 $$BLOCK EQU 1 $$ BLOCK MODE & !!EN ASM /S,NL h KPF /O z SCR INC SYSTAB LKE M KPF /L,M:92BD SCR ASM DRRT01,NL KPF /O SCR AS
0x298c90…298e24 Dummy {f00=0x000c, f01=0x018e, f02=»DISCFEJL J F " D @4 L0X Q P R I 0X @ 4 R ! L&! L"! L ) LH ^ " n ~ 0 0 0 0 J F " D @ RA A
0x298e24…298fb8 Dummy {f00=0x000c, f01=0x0190, f02=» J F " D " I 0X 0X Q P R P 4 4 I 0X 0X g V 0 f x % g , ; J F " D Q P R LP 4 4 0X P Q R I 0X 4 I 0X Q
0x298fb8…29914c Dummy {f00=0x000c, f01=0x0190, f02=» # 9 V B 0 $ 6 4 F 0 V h x J F " D R T ! L I R T _$ R L X+W* RLA'I R _; L_ I' I 0X
0x29914c…2992e0 Dummy {f00=0x000c, f01=0x0190, f02=»'@ 4 A R TlI R T j ( 8 0 H % B Z /0 j 4 | 60 < J F " D _W 0X R L # . I R T ! L W R L T R D
0x2992e0…299474 (2, 433) Opaque[0x194]
0x299474…299608 # DirEnt {nam=»M:92BD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a8, f03=0x0000}
0x299474…299608 IdxSect {
0x299474…299608 f00 = 0x000d // 0x299474 @0x0
0x299474…299608 f01 = 0x001a // 0x299476 @0x2
0x299474…299608 gno = [ // 0x299478 @0x4
0x299474…299608 [0x00]: C0x000d.0x1.0
0x299474…299608 [0x01]: C0x000d.0x2.0
0x299474…299608 [0x02]: C0x000d.0x3.0
0x299474…299608 [0x03]: C0x000e.0x0.0
0x299474…299608 [0x04]: C0x000e.0x1.0
0x299474…299608 [0x05]: C0x002a.0x0.0
0x299474…299608 [0x06]: C0x003f.0x3.0
0x299474…299608 [0x07]: C0x0155.0x2.0
0x299474…299608 [0x08]: C0x0155.0x3.0
0x299474…299608 [0x09]: C0x0156.0x0.0
0x299474…299608 [0x0a]: C0x0156.0x1.0
0x299474…299608 [0x0b]: C0x0156.0x2.0
0x299474…299608 [0x0c]: C0x0156.0x3.0
0x299474…299608 ]
0x299474…299608 }
0x299608…29979c Dummy {f00=0x000d, f01=0x0190, f02=»i, c J h h h h h h h h'@'l h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x29979c…299930 Dummy {f00=0x000d, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " J _ @J > > U # T @ H ( ( P c P W: P, AJ @ V ( U P" @5VV L5VW @5h
0x299930…299ac4 Dummy {f00=0x000d, f01=0x0190, f02=» 6 8 J Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @J : ) AJ _ @ @ A H ( AJ _ ? ? ? ? ? ^ A _ _ ^ J $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x299ac4…299c58 Dummy {f00=0x000d, f01=0x0190, f02=» Q Q > > 0 @J 1 AJ P P > ? * X " R" Y T ? X D 5 T> F W8 > _& @ 8 R" Y T ? X D 5 T F W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @J V ? J > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x299c58…299dec Dummy {f00=0x000d, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U J XH D #DP @ R XV Y @ P, 5 T W X &P T X I Y T # C C W4 O " # X Y ) C
0x299dec…299f80 Dummy {f00=0x000d, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x299f80…29a114 (2, 434) Dummy {f00=0x000d, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x29a114…29a2a8 Dummy {f00=0x000d, f01=0x0190, f02=» 0P X T 4 Y X 5 X T X G 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > J J B B J J B B pU
0x29a2a8…29a43c Dummy {f00=0x000d, f01=0x0190, f02=»B!B pU J J!BaB rU J J1B1B pU J J1BqB rU 0 R t j p B " P Q :A H HP P J H !@T I J T ! 1 U J A d ? W& A d ? W
0x29a43c…29a5d0 Dummy {f00=0x000d, f01=0x0190, f02=» P 4 ] P $ P ] U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z & 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh 6 T # Y U T ] W 8V 6 X $P
0x29a5d0…29a764 Dummy {f00=0x000d, f01=0x0190, f02=» j T U 5 U R " ] J ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P 4T U f # P 4 4 P _r T _$ U _
0x29a764…29a8f8 Dummy {f00=0x000d, f01=0x0190, f02=» 5 H W u > > E D E E S( % ;DV " U D $ P #`P T E J Z_ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A B R 8;b# 4T RT
0x29a8f8…29aa8c Dummy {f00=0x000d, f01=0x0190, f02=» 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ @ T P @X R4 @ U S U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V & X
0x29aa8c…29ac20 Dummy {f00=0x000d, f01=0x0190, f02=» $ X V 9_: 8 @ p !Pp P X ! Y * X . ! Y T & | P Pb P Pv Pz 6 J + J AJ @J A. H 5 J Y HW AJ @J A. Wx
0x29ac20…29adb4 (2, 435) Dummy {f00=0x000d, f01=0x0190, f02=» *W X * ! # N & ! ! " 0 TOT 0 SST X Y ,W 0 X Y , Y * N ! ! X *' P ! > ! * D N ) P _ X " X ! Tr X !& Ph B :C P N ! 9DV ! (@ B r ! 8 ! z R ! 8 j ! 8 ! z b ! 8 ( ! z ! @
0x29adb4…29af48 Dummy {f00=0x000d, f01=0x0190, f02=» ! 1 ! @ ! * ! ! @ ! ) ! Y *# T X Y ._ Y *# 4 ! J ( C V ! N ! B B ! > j ! *W0 W ! X@ b ! * C (Q ! ! X* ! ! ! T )WL WP ! Xz R ! * ( - j ! * ) W. Y PW Y P Y L Y N Y B S W W B C
0x29af48…29b0dc Dummy {f00=0x000d, f01=0x0190, f02=» _n Y ( " X . P Y : ! ! X # P Y .:A , X J AJ Y J @J B. X $ Y Y $ Y X Y & X '? p A d ? (@ X L X N K P6 X PT $ D C Y B J K & E % Y B K X ;AR@;a X &P Y & P 7P
0x29b0dc…29b270 Dummy {f00=0x000d, f01=0x0190, f02=»Q 9BW Q 9C B ! T 4 P ;A _ 4 X 0 # P _ 4(@ R N D3D 1_ W (@ R 0 D4D ] N_ N ! @ 4 ! ;E :B 9A ! U P jW kQ 4 Y * ! @ 0" Z Y" P Z _ 4 A ;D A 4 R
0x29b270…29b404 Dummy {f00=0x000d, f01=0x0190, f02=» _n Y " X P Y : ! ! X # P Y :A , X A Y @ B. X Y Y l H T P Y P 7P
0x29b404…29b598 Dummy {f00=0x000d, f01=0x0190, f02=»Q 9BW Q 9C B ! T 4 P ;A _ 4 X # P _ 4(@ R D 1_ W (@ R 0 D ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! 0" Z Y" P Z _ 4 A ;D A 4 R
0x29b598…29b72c Dummy {f00=0x000d, f01=0x0190, f02=» ). ). P Y : ! ! X # P Y :A P2 P P 1P. P W P P 5P J J X P Wj B " P H3D:H B # L3D 9 B Y B Y ) P8 @2 3D J @3 `3 @3 P 0P _ % A2 A3 Y f &_| B QZ 6_ X P 0
0x29b72c…29b8c0 Dummy {f00=0x000d, f01=0x0190, f02=» X X A 5 Y _& Y L @ P 0 A R A P_: X P ( y Y W ). (P 0 ) > (P _ ) 1_ (X( P _ 0 )_6 j _2 j _$ (P _ ) 1 4 ) X R2 X T* X P& , Y L C L C x > @ Z @ V @ X A XX
0x29b8c0…29ba54 (2, 436) Dummy {f00=0x000e, f01=0x0190, f02=» BHBB !' 2B !' T P P " # " !' Tf Tb A) P A) TR !' TL !' TD T@ !' T8 !' A I A P " # !' $d_ !' T ) # " X !' _ !( A Z @ RP @ PP !$ A R A T_ !( @ TP @).X@ !$
0x29ba54…29bbe8 Dummy {f00=0x000e, f01=0x0190, f02=» @ N 8 H4D @).P E ) P^ X RX X P X TJ P C C P " H4D" P X * Y X T ! vW xW( &W" X R X T & ! v !%f v X ! X !%tWB A T @ N X A Z A P A @ p A p $@ !( @ RT @ TP !% v !( @ RT @ TX Wx A I
0x29bbe8…29bd7c Dummy {f00=0x000e, f01=0x0190, f02=»$ !% A Z_ A $N B A R @ VT _2 _6 @ P n A X A R X ! XD Y _N @ RTL X ! P !%x v# T @).T !%t_ !# !%f_ A T A f H4D E A X A N 4 @ RP !% !(f v !(B @ jP !& !(f A R v @ T !% _ T L_ ` A P / C P B B A b A
0x29bd7c…29bf10 Dummy {f00=0x000e, f01=0x0190, f02=» P C & L A R A P 4 @). @ XT @ h A f @ f A h A X !' T2 P4 PJ PL P P. 1 A f @ f ]6W P _@ @). @ f E !( P !' 4 _$ !( 2_l / A T W ,W A n A oW W W A n A o !'& @ n !' @ o !' !' !' B J
0x29bf10…29c0a4 Dummy {f00=0x000e, f01=0x0190, f02=» T0 W, !' P " ! " :A *@ H3D T 0 !' W R !' A f @ d @ fUH Zx Q P Q T 0 !' A f 0 !' A f !' " !' " !' % A V _" A X A P !'& !' % !' R !' !' @) !' 8 !' X ! 9a D r !' X ! P ! T & !' _b B J B !' !
0x29c0a4…29c238 Dummy {f00=0x000e, f01=0x0190, f02=»B P W !( J _ !' ! 1 4 A' @3 `3 @3 P 0 M A' 4 ? @3 `3 @3 P $ Y f_ @ A V @ ^T (T v @ A V (T J A V a ^ 4 5 (, X A ^ > 5 (v Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A( A( A
0x29c238…29c3cc Dummy {f00=0x000e, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ fU Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x29c3cc…29c560 Dummy {f00=0x000e, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x29c560…29c6f4 (2, 437) Dummy {f00=0x000e, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x29c6f4…29c888 Dummy {f00=0x000e, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x29c888…29ca1c Dummy {f00=0x000e, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % ! R ! ! @ ! 8 ! X ! 9a D r ! X ! P ! T & ! _b B J B ! !
0x29ca1c…29cbb0 Dummy {f00=0x000e, f01=0x0190, f02=»B P W ! _ !' ! 1 4 A' @ ` @ P 0 M A' 4 ? @ ` @ P $ Y f_ @ A V @ ^T v @ A V A V a ^ 4 (, X A ^ > Z A l 4 A l !' @ RP !% !(f v @ lP a l A l 4 A A A
0x29cbb0…29cd44 Dummy {f00=0x000e, f01=0x0190, f02=» )0,X" ! " :A *@ H T 0 ! W R ! A f @ d @ U Zx Q P Q T 0 ! A f 0 ! A f ! " ! " ! % A V _" A X A P ! ! % :f"? H2 !' "? H2 !' 4 ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789
0x29cd44…29ced8 Dummy {f00=0x000e, f01=0x0190, f02=» ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789:#@'=" ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ /STUVWXYZ|,%_>?0123456789:#@'= 7- <=2&p ?' @O JZlP}M] N
0x29ced8…29d06c Dummy {f00=0x000e, f01=0x0190, f02=» P 4 5 5 _ t _< ? ^ 4 _ P P @ 6 1 A 6 _ P 9 > > & DKTKfKnKj4 K ]R ] ^ ` ` 6z6z7 7 7 7 7 7 7 7 6 7L6 6 7 7 6 7 7 7 6 " # $ % "$&( 5
0x29d06c…29d200 Dummy {f00=0x000e, f01=0x0190, f02=» ( U 7 B r I W Y & Y $ 0 Y . 7 G 7 B Y I B Y J_ W G C P C W < C C _H G H H S W C C B B B U GV R Wp H TP L P B r L ( I $ X _ X ` T I T
0x29d200…29d394 (2, 438) Dummy {f00=0x002a, f01=0x0190, f02=» P #D ` 9 J J 9 9 =>=>=>=>=>; ; 9 =>; 9 =>=>=>=>; ; 9 F X (P R X (W G G : R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X & X P !##T Y T( X P
0x29d394…29d528 Dummy {f00=0x002a, f01=0x0190, f02=» I V, P ( 9l( ( W 9 H => B W C X '? 7 X & X ( )T => 8& 8 < X $TT T A8$ J , F P W T Y $ P T _ Y & F h^ hf(@ _ ; X & X I U X J U ( H T$ X X RP
0x29d528…29d6bc Dummy {f00=0x002a, f01=0x0190, f02=» @ X WF G N 4 5W P 0 @D 1 AD (@_ 1 (@ ;` / O $P % 4 F 8| (@ B h^ P 9 hf =T 4' ; ' ; 5 ; 4 A W , P& ,' X X 1 Z" ) ; _ (@ C ( B ! =>
0x29d6bc…29d850 Dummy {f00=0x002a, f01=0x0190, f02=»W => X ( X & F X P @J Q (@ I + X ^V" P "P8 $P4W X & X bT( ;AR ( < ( 9 H T Y ^ F " F D '? P P( $ P" G I I K K P P & P G W D $ T GV T G W E I E J X
0x29d850…29d9e4 Dummy {f00=0x002a, f01=0x0190, f02=»_ P @ ^ @^v hf(@ D^x C C C g W C ( =f =h L " TOP @ A^ L A^ L C ^ @^ A^ Q< @^v @4 A^v @^ @ B h^ D^x E^zX #D( = ( B h^ B @^v D^x g W C C ( =f =h ^ ^t
0x29d9e4…29db78 Dummy {f00=0x002a, f01=0x0190, f02=»^v E^ P E^ P E^ D^ T ^ P @ A 2% P( R 0 X^xT R , @^ T R RT @^ @ @ 6 A 2% P @ ^ r P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @^ S , d S B | >
0x29db78…29dd0c Dummy {f00=0x002a, f01=0x0190, f02=» Y U ! T ! X6 _R _V D^ " P ^ A^ ( ^ W @^ P6 I @^ P @Fd V W HFf IFh(@ @^ P -W P B h^ hf ^ (@( @^ A^ _ T `^t ` 9A S ^ H $X D S . S $ IP R * S W
0x29dd0c…29dea0 Dummy {f00=0x002a, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | >
0x29dea0…29e034 (2, 439) Dummy {f00=0x003f, f01=0x0190, f02=» Y U ! T ! X6 _R _V D " P A ( ^ W @ P6 I @ P @ V W H I @ P -W P B (@( @ A^ _ T ` ` 9A S ^ H $X D S . S $ R * S W
0x29e034…29e1c8 Dummy {f00=0x003f, f01=0x0190, f02=» E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6 2% P P %_ S 5 S E 3 P S I P S J P S ( P S * P % S H P & S P @ S , d S B | >
0x29e1c8…29e35c Dummy {f00=0x003f, f01=0x0190, f02=» [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ? !? P P !> P W 9P _ T !##P> ? R4 L TX P L P 4 M X M M _8 > & D LW 0P Q P P E +P W : X +
0x29e35c…29e4f0 Dummy {f00=0x003f, f01=0x0190, f02=» W6 @D T n ( AD U 1_ D + I D N ) E N : T * F SP P W X * 0 U U. _ Y . R P Y $ P X ( _ W Y & : B P6 T G W& X ^ Y ^ B I ~ B T B : X "? P P X
0x29e4f0…29e684 Dummy {f00=0x003f, f01=0x0190, f02=» D . D $ D * F T ( T & ^ S W : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ )
0x29e684…29e818 Dummy {f00=0x003f, f01=0x0190, f02=»! Z( J (X0 @J P T M ]@ , ) AJ P* P Y U ( ) 5 & > > [ [ J Z Z Z ? Z > P "R Y W 0 J Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,P - _ ( (
0x29e818…29e9ac Dummy {f00=0x003f, f01=0x0190, f02=» X $P y $W $ 5 N ` Y $ B P T B % X . $ 4 T % W X ,T ! P W N Y . V N ! Z B _T B P $$ R % C N WV Y *X !M 8$ P W 8$ P $ T W $ Y +PX Y )P Y (P T N ! Z B Z W N W !M * T ! Z
0x29e9ac…29eb40 Dummy {f00=0x003f, f01=0x0190, f02=»_t _ P N _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X $P y $ X , $4 P N X .T * W Y , - J Y $ X Z @_8 B 1 " W XT 0 (@ >
0x29eb40…29ecd4 (2, 440) Dummy {f00=0x0155, f01=0x0190, f02=» ! W B W$ B L # 9Q T W Q P X & V T Y &W N X ! T6 B R0Q$ B D ! V ! ! ! W !R !Pt Y ! T ! V O ! B C ! ! T " T W Q " T ) J !R N Y _ ! !Q Y &P Q W ! Y
0x29ecd4…29ee68 Dummy {f00=0x0155, f01=0x0190, f02=» Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !Q Y Y U ! _$ W4 , ! T ,' N ! R !__U C X ' W Y ! _ X RT U TJ X P ? Y X P " ! Y ' ! X T ! J O J R _ 4 !
0x29ee68…29effc Dummy {f00=0x0155, f01=0x0190, f02=» UP ! 8! P ! P P T| & T4 J B P B H " +P P. T Y ' ! R X ( Y &R Y & _ Y &_. 8$ T B 1 V ! U B B U4 $ ! T _ U D ! T _ $$ X" X& X* C U( X`" ER<P(
0x29effc…29f190 Dummy {f00=0x0155, f01=0x0190, f02=» X &" X )# C V C ! Y B ! Y _` C _ " $ P X ' X ] ! U S. B 8! T !Wz !W2 ! UP !Wz R ! _ B !Wz V Z, ! _ 8! T B Y & !WPW B Y (U X ( X & R P ! W Y &
0x29f190…29f324 Dummy {f00=0x0155, f01=0x0190, f02=» !@P ! $ P ! ! Uv ! T Y & T X & C & J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T> 8" P d ! Y ! *0 ! X ! Y & Z Ub T _ ! X $ P !V S, R V
0x29f324…29f4b8 Dummy {f00=0x0155, f01=0x0190, f02=» W ! ! ! Y 4 B R U )X R@ X X &" Y * X ) V Y !W2 X $ X & !WP X * S, R `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 Uv > Z Y &
0x29f4b8…29f64c Dummy {f00=0x0155, f01=0x0190, f02=» !@P ! $ P ! ! ! T Y & T X & C & J X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T 8" P d ! Y ! *0 ! X ! Y & Z Ub T _ ! X $ P ! S, R V
0x29f64c…29f7e0 Dummy {f00=0x0155, f01=0x0190, f02=» W ! ! ! Y 4 B R U )X R@ X X &" Y * X ) V Y !W2 X $ X & !WP X * S, R `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 Uv > Y &
0x29f7e0…29f974 (2, 441) Dummy {f00=0x0155, f01=0x0190, f02=» P H RN H P ' P W P W< W T6 ' P ! X & B # P G W G & J X P P R: A[ 5 Y X T Q (P H U ^ 9 1_N J X T @W P ( AW F _ ( Y _ W _x X T @W P ( AW F_ ( Y _ W _ i $
0x29f974…29fb08 Dummy {f00=0x0155, f01=0x0190, f02=»J C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H P & X P t Y
0x29fb08…29fc9c Dummy {f00=0x0155, f01=0x0190, f02=» = (@ " $ P B >H<h ^ P ?_" = > = > = =_D R _ 00 > & <h$ P > W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x29fc9c…29fe30 Dummy {f00=0x0155, f01=0x0190, f02=» W ' T| I^x @ 8 =hP Y X Pl 0T< Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( h : n "' # ^ @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P U W _ ^t
0x29fe30…29ffc4 Dummy {f00=0x0155, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ af c W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x29ffc4…2a0158 Dummy {f00=0x0155, f01=0x0190, f02=» W ' T I^x @ 8 =hP Y X P 0T Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( : n "' #d @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P U W _ ^t
0x2a0158…2a02ec Dummy {f00=0x0155, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ fL W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x2a02ec…2a0480 Dummy {f00=0x0155, f01=0x0190, f02=» W ' T I^x @ 8 =hP Y X P 0T Y H^x! R W 9a I^x T T 9a H^y E^ ^ W P ,! T T ( : n "' # @^nP ^p $ ) 5 J A^n A^ A^r ^ " I ^t A^ "" P af _ ^t
0x2a0480…2a0614 (2, 442) Dummy {f00=0x0156, f01=0x0190, f02=»Rb ' F "R G ^ @^v D^x #D T G W, A^ = "R A^ A^ J ^ W _x X T @W P ( AW _ ( Y @^pP 4 A^p U
0x2a0614…2a07a8 Dummy {f00=0x0156, f01=0x0190, f02=» M M Aab -(@ : - : @ab , L T M @ab : =a 9a Q - _ - > @ HPJ r A D h D AD Fd h @ab , - M M M @ab A^n A^p > !"#$%& () +,-./ h ($SWAP A A A A. q UU @
0x2a07a8…2a093c Dummy {f00=0x0156, f01=0x0190, f02=»W2 A o Aq o P. n _ " :c* A o o W " :d2 * A oN ot & W F ` W F W F CRT F A @ @ ! P2 @ P r ;b=H F CR k F k W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W
0x2a093c…2a0ad0 Dummy {f00=0x0156, f01=0x0190, f02=»T W - r P _ T <B :L A W A A W r T F W V r = V W Y* P Z( = :L < P W <9B @ V W Q r W @r @ A
0x2a0ad0…2a0c64 Dummy {f00=0x0156, f01=0x0190, f02=» q q V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W o o P n o TJ V 0 !;;P P V P$ _ P !;;T X$ W r _J r o T
0x2a0c64…2a0df8 Dummy {f00=0x0156, f01=0x0190, f02=» nP XZ_V S Apg Ap p. @ R @ ! T Ap Ap V @ R V V I r W V $ ) H A I. : n C. n X C.9h! n n # " n n :A K : A T.I T P 1 I P
0x2a0df8…2a0f8c Dummy {f00=0x0156, f01=0x0190, f02=»A I ! ( : o Aq Am Ap4 ApJ Ap ! T Ap Ap I ! : 9E @i r s A I T ) A _ I N T : r p4 pJ 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P ~" @ T X W n : YX
0x2a0f8c…2a1120 Dummy {f00=0x0156, f01=0x0190, f02=»' R xW V W$ V P P q W P V V T q V T W P V W @ $ P p W r T : Aq q _ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T P 1 I 2 ; Z
0x2a1120…2a12b4 (2, 443) Dummy {f00=0x0156, f01=0x0190, f02=» j Am A A A ! T A W Z A. c @ V W U r R $ )_ : W W W W W vvQ@ V V v x W V V v p R( W V W ^< _@ V
0x2a12b4…2a1448 Dummy {f00=0x0156, f01=0x0190, f02=» W W :K W r vvQ R t vvV r s& v : V W V r ) : V <B W |P v v : $ s V |P v w v : V $ V l $ s V M : W V R RR
0x2a1448…2a15dc Dummy {f00=0x0156, f01=0x0190, f02=»t W x t v _ V : " D Pd W V PL $;A^ D E D P. V r P r P T r E _J s E _T " D T E s E D E % : " R ;B s " R P( |P v v : V W 0 :
0x2a15dc…2a1770 Dummy {f00=0x0156, f01=0x0190, f02=» X G : J @ 0 V @ r 0 H W : ? ? R 0 R P P B _ J : V ) v v : 4P: " D w , H H $ M v b - I Y0 : @ ` V b pP `
0x2a1770…2a1904 Dummy {f00=0x0156, f01=0x0190, f02=» $ u V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U " @ Q @ P A.
0x2a1904…2a1a98 Dummy {f00=0x0156, f01=0x0190, f02=» S P 3 _ J 3 J B A. @ D @ W x A ( : A J > l : v R t W n V pT : N V l W H V ]" . nT" t W v t W n V ~P { W x t { v
0x2a1a98…2a1c2c Dummy {f00=0x0156, f01=0x0190, f02=»v P t v V v : t t V ~P { W x t _$ 8 V V x % V v % : V V s& 9k! P % _ V V W W r v W V s v ) W b G s v ) - V s W f v ) G v ` " W p W ~
0x2a1c2c…2a1dc0 Dummy {f00=0x0156, f01=0x0190, f02=» , v s " E R {^ W ~ R {^ R P }* R Xv }*_|W v T : t t W x t v _ V P w I w| W z ` pPl w H - V v I uh " R v E R T E D E @ v H v E u v& #_v W |
0x2a1dc0…2a1f54 (2, 444) Dummy {f00=0x0156, f01=0x0190, f02=» v .=H N ~" v N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ vvR r - @ - N !TTP r N :H N TBT W W8 2 " T @ r N =H N
0x2a1f54…2a20e8 Dummy {f00=0x0156, f01=0x0190, f02=»:h " ~z YV : v `?A @ W W :b / W : W @ W D v V W W ` " W p @ pP. " 4X 1 R Z0 _ W l a w ` :A W
0x2a20e8…2a227c Dummy {f00=0x0156, f01=0x0190, f02=» : x A i " P W r W @ @ % x V , P@ , - 4 ] 4 vvY 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TTP r @ T
0x2a227c…2a2410 Dummy {f00=0x0156, f01=0x0190, f02=»@ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T r : @ :B W . !TTP r W t N =H N W l N =H N W p N =H N ~" W | ( @ % P W @ % P P0 r
0x2a2410…2a25a4 Dummy {f00=0x0156, f01=0x0190, f02=» tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P ~< !TTT B q @ @ T r : @ ! P @ @ h CRT 3 @ h h S @ h PP h !RRP
0x2a25a4…2a2738 Dummy {f00=0x0156, f01=0x0190, f02=» P _ 3 S S V V W @ @ T r : P S S _ : . !TTP r V W t * P r _ Ph W p W V 8 8 4 D P$ r @ #
0x2a2738…2a28cc Dummy {f00=0x0156, f01=0x0190, f02=» @ R @ T r P / _ T @ A V W W t PT W f ( W d > G =h G V d V r < V f P W f _B V W V t Yr ~< !TTX @ @ T r :
0x2a28cc…2a2a60 Dummy {f00=0x0156, f01=0x0190, f02=» r $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W P0 W f W d V d V r < V f _2 U^ V 8 8 8 4 D P$ r @ # P H I K T +
0x2a2a60…2a2bf4 (2, 445) Dummy {f00=0x0156, f01=0x0190, f02=» 0 V P _ W $ q > R P >b W >b & 8P D P U & E W i, V W R 9 W D r ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H U V U W
0x2a2bf4…2a2d88 Dummy {f00=0x0156, f01=0x0190, f02=» W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]J W
0x2a2d88…2a2f1c Dummy {f00=0x0156, f01=0x0190, f02=» : F =H F ~" : P N =H N T ~<_ : 00=H 00 P P _ _ : @ ! P (W ( : l & @ h CRT" @ ! P ` @ E "W ` @ E " $ D L x a
0x2a2f1c…2a30b0 Dummy {f00=0x0156, f01=0x0190, f02=» ,W W . nDC @ K KB * P 4N TP
0x2a30b0…2a3244 Dummy {f00=0x0156, f01=0x0190, f02=» V 8R2DY P h CRT" @ ! P ` @ E "W ` @ E " $ D a
0x2a3244…2a33d8 Dummy {f00=0x0156, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP T
0x2a33d8…2a356c Dummy {f00=0x0156, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YE
0x2a356c…2a3700 Dummy {f00=0x0156, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TI
0x2a3700…2a3894 (2, 446) Opaque[0x194]
0x2a3894…2a3a28 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x2a3894…2a3a28 IdxSect {
0x2a3894…2a3a28 f00 = 0x000b // 0x2a3894 @0x0
0x2a3894…2a3a28 f01 = 0x0002 // 0x2a3896 @0x2
0x2a3894…2a3a28 gno = [ // 0x2a3898 @0x4
0x2a3894…2a3a28 [0x00]: C0x000b.0x1.0
0x2a3894…2a3a28 ]
0x2a3894…2a3a28 }
0x2a3a28…2a3bbc Dummy {f00=0x000b, f01=0x00d8, f02=» ASM MONTAB ASM SYSTAB ASM LRPINT ( ASM PFTAB : ASM DRFD01 L ASM TASS ^ ASM TIODM n ASM DMTASK ASM DMINIT ASM DMFDB ASM DMBUF ASG /EO,TY10
0x2a3bbc…2a3d50 Dummy {f00=0x000b, f01=0x2008, f02=» MONTAB ASM SYSTAB ASM LRPINT ( ASM PFTAB : ASM DRFD01 L ASM TASS ^ ASM TIODM n ASM DMTASK ASM DMINIT ASM DMFDB ASM DMBUF ASG /EO,TY10
0x2a3d50…2a3ee4 Dummy {f00=0x000b, f01=0x2008, f02=» G COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT * " HMES 2 C,C+CU,C+COUT,C+CU+COUT P " HMES 3 M,M+MU,M+MOUT,M+MU+MOUT v HMES 4 FC : HMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST ONE OF THEM M
0x2a3ee4…2a4078 Dummy {f00=0x000b, f01=0x0190, f02=»EGSET v & PDK03 DSET FC=C3 FD999003 CYCLE SET $ PDK04 DSET FC=C4 FD999004 KT PLAN 8 PDSSOPI DSET FC=10 ` PDSSOPO DSET FC=11 z PDCOMM DSET FC=61 * PFD03 DSET FC=FA SECOND REGSET (999004) " P FMTCTL INDS=KEYB,OUTDS=SCREEN P*
0x2a4078…2a420c Dummy {f00=0x000b, f01=0x0190, f02=»****************************** f P* & F P* D A T D I V : DATA DIVISION FOR IBM-3270 EMULATION PACKAGE. 0 B P* THIS MODULE ALSO CONTAINS THE CREDIT CODED z * P* START-UP ROUTINES. P* H P****************
0x2a420c…2a43a0 Dummy {f00=0x000b, f01=0x0190, f02=»M D0 P* P CWB CB9 P START DC1GO & PDSDC DSET FC=60 : P* R P EJECT P j P************** r P* ( P* COMMON WORK BLOCK FOR ALL TASKS P* . P***************************************** P PCB9 BL
0x2a43a0…2a5040 (3, 0) DirGranule ((3, 0)) {
0x2a43a0…2a5040 DirEnt {nam=»M:FD2 «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0560, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ce8, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0960, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2df8, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»ASM «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2dc8, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»M:FD2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1cf0, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»BUGGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cf0, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0570, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»M:FD2B«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ec8, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x2a43a0…2a5040 DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1490, f03=0x0000}
0x2a43a0…2a5040 }
0x2a5040…2a51d4 (3, 1) Opaque[0x194]
0x2a51d4…2a5368 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0560, f03=0x0000}
0x2a51d4…2a5368 IdxSect {
0x2a51d4…2a5368 f00 = 0x002b // 0x2a51d4 @0x0
0x2a51d4…2a5368 f01 = 0x0002 // 0x2a51d6 @0x2
0x2a51d4…2a5368 gno = [ // 0x2a51d8 @0x4
0x2a51d4…2a5368 [0x00]: C0x002b.0x0.0
0x2a51d4…2a5368 ]
0x2a51d4…2a5368 }
0x2a5368…2a54fc Dummy {f00=0x002b, f01=0x0044, f02=» $MOV MOV @N=,/S,M:92OD PKPF /S,@N= * END <
0x2a54fc…2a5690 Dummy {f00=0x002b, f01=0x2008, f02=» MOV @N=,/S,M:92OD PKPF /S,@N= * END <
0x2a5690…2a5824 Dummy {f00=0x002b, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x2a5824…2a59b8 Dummy {f00=0x002b, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x2a59b8…2a5b4c Dummy {f00=0x002b, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x2a5b4c…2a5ce0 Dummy {f00=0x002b, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x2a5ce0…2a5e74 (3, 2) Opaque[0x194]
0x2a5e74…2a6008 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0190, f03=0x0000}
0x2a5e74…2a6008 IdxSect {
0x2a5e74…2a6008 f00 = 0x000c // 0x2a5e74 @0x0
0x2a5e74…2a6008 f01 = 0x0006 // 0x2a5e76 @0x2
0x2a5e74…2a6008 gno = [ // 0x2a5e78 @0x4
0x2a5e74…2a6008 [0x00]: C0x000c.0x2.0
0x2a5e74…2a6008 [0x01]: C0x0044.0x3.0
0x2a5e74…2a6008 [0x02]: C0x0045.0x0.0
0x2a5e74…2a6008 ]
0x2a5e74…2a6008 }
0x2a6008…2a619c Dummy {f00=0x000c, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 80-11-12 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x2a619c…2a6330 Dummy {f00=0x000c, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P EJECT SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD
0x2a6330…2a64c4 Dummy {f00=0x000c, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x2a64c4…2a6658 Dummy {f00=0x000c, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x2a6658…2a67ec Dummy {f00=0x000c, f01=0x0190, f02=»EL UNIT NO. 1 x P EXTRN IHFD FLOPPY DISCEN P EXTRN IHFD2 KST 8 $ P EXTRN ILLINT ILLEGAL INTERRUPT R P EXTRN HALT HALT ROUTINE z P* DEBUGGER PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM IND
0x2a67ec…2a6980 Dummy {f00=0x000c, f01=0x0190, f02=» SYSTEM | P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* T PSEG:ST EQU 0 STATUS ^ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS z " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 Q
0x2a6980…2a6b14 (3, 3) Dummy {f00=0x0044, f01=0x0190, f02=»RESS r P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY L $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE
0x2a6b14…2a6ca8 Dummy {f00=0x0044, f01=0x0190, f02=»IHRTC 2 P DATA ILLINT 3 P DATA ILLINT 4 2 P DATA ILLINT 5 N P DATA ILLINT 6 j P DATA ILLINT P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLI
0x2a6ca8…2a6e3c Dummy {f00=0x0044, f01=0x0190, f02=»RT1 16 P DATA CHRT2 17 P DATA CHRT3 18 0 P DATA CHRT4 19 L P DATA ILLINT h P DATA ILLINT P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P
0x2a6e3c…2a6fd0 Dummy {f00=0x0044, f01=0x0190, f02=» | P DATA IHFD 30 P DATA IHFD2 31 " P DATA ILLINT 32 > P DATA ILLINT 33 Z P DATA ILLINT v P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38
0x2a6fd0…2a7164 Dummy {f00=0x0044, f01=0x0190, f02=» 43 P DATA ILLINT P DATA ILLINT 45 . P DATA ILLINT 46 J P DATA ILLINT 47 f P DATA ILLINT 48 P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52
0x2a7164…2a72f8 Dummy {f00=0x0044, f01=0x0190, f02=»57 ~ P DATA ILLINT 58 P DATA ILLINT 59 & P DATA ILLINT 60 B P DATA ILLINT 61 ^ P DATA ILLINT 62 z P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P*
0x2a72f8…2a748c Dummy {f00=0x0044, f01=0x0190, f02=» P HLT P P* P* DEBUG RESTART ENTRY " P* @ P XRR A13,A13 J P XRR A14,A14 ^ P LD A1,SCTBUG r P ABR(NZ) A1 P HLT P P EJECT SYSTAB P P* P* SYSTEM CONTROL TABLE P* P
0x2a748c…2a7620 Dummy {f00=0x0044, f01=0x0190, f02=»OF FREE AREA | & PSCTPLD DATA 0 PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP > $ PSCTANO DATA 0 APPLICATION NUMBER j 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS
0x2a7620…2a77b4 (3, 4) Dummy {f00=0x0045, f01=0x0190, f02=»PAGE SIZE . PSCTMMC DATA 0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB D 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART ^ & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTN
0x2a77b4…2a7948 Dummy {f00=0x0045, f01=0x0190, f02=»LY,14:DSKPAG,15:MMUPAG PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS B PSCTBUG DATA 0 DEBUGGER f ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSC
0x2a7948…2a7adc Dummy {f00=0x0045, f01=0x4146, f02=»SCTDCT DATA 00001 DC-TASK IN SYSTEM P EJECT SYSTAB , P D P* L P* SYSTEM STACK V P* l P RES 145 v P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P
0x2a7adc…2a7c70 Dummy {f00=0x0045, 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
0x2a7c70…2a7e04 Dummy {f00=0x0045, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x2a7e04…2a7f98 Dummy {f00=0x0045, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x2a7f98…2a812c Dummy {f00=0x0045, f01=0x0190, f02=»EL UNIT NO. 1 x P EXTRN IHFD FLOPPY DISCEN $ P EXTRN ILLINT ILLEGAL INTERRUPT 8 P EXTRN HALT HALT ROUTINE ` P* DEBUGGER PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE
0x2a812c…2a82c0 Dummy {f00=0x0045, f01=0x0190, f02=»* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* : PSEG:ST EQU 0 STATUS D $ PSEG:DS EQU 2 DISC SECTOR ADDRESS ` " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD (
0x2a82c0…2a8454 (3, 5) Opaque[0x194]
0x2a8454…2a85e8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ce8, f03=0x0000}
0x2a8454…2a85e8 IdxSect {
0x2a8454…2a85e8 f00 = 0x0167 // 0x2a8454 @0x0
0x2a8454…2a85e8 f01 = 0x0002 // 0x2a8456 @0x2
0x2a8454…2a85e8 gno = [ // 0x2a8458 @0x4
0x2a8454…2a85e8 [0x00]: C0x0167.0x1.0
0x2a8454…2a85e8 ]
0x2a8454…2a85e8 }
0x2a85e8…2a877c Dummy {f00=0x0167, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 80-11-12 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x2a877c…2a8910 Dummy {f00=0x0167, f01=0x4190, f02=»TON LOCAL/REMOTE TERMINALS P* " P EXTRN FDON LINE PRINTER , 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION L $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P DATA
0x2a8910…2a8aa4 Dummy {f00=0x0167, 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
0x2a8aa4…2a8c38 Dummy {f00=0x0167, f01=0x0190, f02=» 0B. X z n , ( P y _^ _n { , ( Y X P Y : ! { > , ( ; ! X # P Y :A , X { n , ( [B A Y @ B. X Y { DWTECB { , ( @ u Y Y X Y X '?
0x2a8c38…2a8dcc Dummy {f00=0x0167, f01=0x0190, f02=» , ( @ K & E % Y B K | , ( $ X ;AR ;a X P Y | 4 , ( P 7P < | d * & % $ <C ! 9 4 X | , ( A _ W B R X X P | , ( ] W
0x2a8dcc…2a8f60 Dummy {f00=0x0167, f01=0x018e, f02=»_ 4 X # P _ 4 | TASCII } " , ( @(@ R D " 1_ W (@ } 4 TEBCDI0 } d , ( R 0 D $ ] _ ! 4 } v , ( ! ;E :B 9A ! } , ( 3 U P jW kQ 4 Y } , (
0x2a8f60…2a90f4 (3, 6) Opaque[0x194]
0x2a90f4…2a9288 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0960, f03=0x0000}
0x2a90f4…2a9288 IdxSect {
0x2a90f4…2a9288 f00 = 0x004b // 0x2a90f4 @0x0
0x2a90f4…2a9288 f01 = 0x0004 // 0x2a90f6 @0x2
0x2a90f4…2a9288 gno = [ // 0x2a90f8 @0x4
0x2a90f4…2a9288 [0x00]: C0x004b.0x0.0
0x2a90f4…2a9288 [0x01]: C0x004c.0x2.0
0x2a90f4…2a9288 ]
0x2a90f4…2a9288 }
0x2a9288…2a941c Dummy {f00=0x004b, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 80-11-12 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x2a941c…2a95b0 Dummy {f00=0x004b, f01=0x0190, f02=»* P* P* P* PSCLASS DATA TCLASE-* ( P DATA TC00 D P DATA TC01 b P DATA TC02 P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-*
0x2a95b0…2a9744 Dummy {f00=0x004b, f01=0x018e, f02=»TC00E EQU * PTC01 DATA TC01E-* P DATA /00E0 > P DATA DWII01 ^ PTC01E EQU * ~ PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU
0x2a9744…2a98d8 Dummy {f00=0x004b, f01=0x0190, f02=» z PTC04 DATA TC04E-* P DATA /0060 * P DATA DW1500 J P DATA /015 j P DATA DWREMU | P DATA /00F8 P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DAT
0x2a98d8…2a9a6c Dummy {f00=0x004b, f01=0x400c, f02=» @ DATA TC04E-* P DATA /0060 * P DATA DW1500 J P DATA /015 j P DATA DWREMU | P DATA /00F8 P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DAT
0x2a9a6c…2a9c00 Dummy {f00=0x004b, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2a9c00…2a9d94 (3, 7) Dummy {f00=0x004c, f01=0x0190, f02=» T ! )_ W ! T "? 9 0 R Q > DWTBC * , ( 3 4 >_ <k$ Y T #? 0R : , ( Q R * W ?W X P $ <c ,P j , ( q $ , X R ;GV X P y LDREG , ( X , $4 P X .T ,
0x2a9d94…2a9f28 Dummy {f00=0x004c, f01=0x0002, f02=»
0x2a9f28…2aa0bc Dummy {f00=0x004c, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 79-11-16 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x2aa0bc…2aa250 Dummy {f00=0x004c, f01=0x018e, f02=» P* PSCLASS DATA TCLASE-* P DATA TC00 * P DATA TC01 H P DATA TC02 f P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-* P DATA
0x2aa250…2aa3e4 Dummy {f00=0x004c, f01=0x0190, f02=» PTC01 DATA TC01E-* P DATA /00E0 & P DATA DWII01 F PTC01E EQU * f PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU * PTC03
0x2aa3e4…2aa578 Dummy {f00=0x004c, f01=0x417a, f02=»TC04E-* ~ P DATA /0060 P DATA DW1500 0 P DATA /015 P P DATA DWREMU b P DATA /00F8 v P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA
0x2aa578…2aa70c Dummy {f00=0x004c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2aa70c…2aa8a0 Dummy {f00=0x004c, f01=0x0190, f02=» P ST P,INTSAV * P CF A15,IHSAV8 SAVE A1-A8 ON A15 STACK $ P LDKL A6,DW1701 LOAD DWT ADDRESS F , P INR A2,0,DAMI01 GET CHARACTER FROM LINR n PIHI100 EQU * P ABL(NA) SSTIN P**LOGG P IFF LOGG=0 P LD A5,DWTSAV+4,A6 & P CF
0x2aa8a0…2aaa34 (3, 8) Opaque[0x194]
0x2aaa34…2aabc8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2df8, f03=0x0000}
0x2aaa34…2aabc8 IdxSect {
0x2aaa34…2aabc8 f00 = 0x016f // 0x2aaa34 @0x0
0x2aaa34…2aabc8 f01 = 0x0022 // 0x2aaa36 @0x2
0x2aaa34…2aabc8 gno = [ // 0x2aaa38 @0x4
0x2aaa34…2aabc8 [0x00]: C0x016f.0x3.0
0x2aaa34…2aabc8 [0x01]: C0x0170.0x0.0
0x2aaa34…2aabc8 [0x02]: C0x0170.0x1.0
0x2aaa34…2aabc8 [0x03]: C0x0170.0x2.0
0x2aaa34…2aabc8 [0x04]: C0x0170.0x3.0
0x2aaa34…2aabc8 [0x05]: C0x0171.0x0.0
0x2aaa34…2aabc8 [0x06]: C0x0171.0x1.0
0x2aaa34…2aabc8 [0x07]: C0x0171.0x2.0
0x2aaa34…2aabc8 [0x08]: C0x0171.0x3.0
0x2aaa34…2aabc8 [0x09]: C0x0172.0x0.0
0x2aaa34…2aabc8 [0x0a]: C0x0172.0x1.0
0x2aaa34…2aabc8 [0x0b]: C0x0172.0x2.0
0x2aaa34…2aabc8 [0x0c]: C0x0172.0x3.0
0x2aaa34…2aabc8 [0x0d]: C0x0173.0x0.0
0x2aaa34…2aabc8 [0x0e]: C0x0173.0x1.0
0x2aaa34…2aabc8 [0x0f]: C0x0173.0x2.0
0x2aaa34…2aabc8 [0x10]: C0x0173.0x3.0
0x2aaa34…2aabc8 ]
0x2aaa34…2aabc8 }
0x2aabc8…2aad5c Dummy {f00=0x016f, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 9.2 80-11-12 870105040920 P : . P KST,MODIFICATION FOR DUAL CONTR. UNITS B * P =2,TIMING PROBLEMS IN INT. HANDLER t P REL 9.2 79-11-16 $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P*
0x2aad5c…2aaef0 Dummy {f00=0x016f, f01=0x018e, f02=»OR FLEXIBLE DISK | P* P* " P* , P* 6 P* @ P* J 2 P********************************************* T 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA
0x2aaef0…2ab084 Dummy {f00=0x016f, f01=0x018e, f02=» P* /00 TEST STATUS P* /01 PHYSICAL READ $ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- B P* /05 BASIC WRITE D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ
0x2ab084…2ab218 Dummy {f00=0x016f, f01=0x0190, f02=» P* /26 LOCK D P* /31 REWIND -IBM DISC ONLY- P* /37 LOAD b P* /38 UNLOAD x P* P* ENTRY PARAMETERS: P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER
0x2ab218…2ab3ac Dummy {f00=0x016f, f01=0x0190, f02=» * P*********** P* $ P ENTRY FDADR ACTIVATION ADDRESS * " P ENTRY IHFD INTERRUPT HANDLER R P ENTRY FDON RECOVERY ROUTINE x P ENTRY DWFD01 DWT-ADDRESS & P ENTRY IHFD2 INTERRUPT HANDLER KST P ENTRY DWFD02 DWT KST P E
0x2ab3ac…2ab540 Dummy {f00=0x016f, f01=0x0190, f02=»* P************* P* P EXTRN TDISP DISPATCHER * P EXTRN TENDIO ENDIO J P EXTRN DISIOE REQUEST ERROR f EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA2 SAVE AREA A
0x2ab540…2ab6d4 (3, 9) Dummy {f00=0x0170, f01=0x0190, f02=» SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER & & P EXTRN INTSAV INTERRUPT SAVE AREA B & P EXTRN INIFLG INITIALIZATION FLAG l & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/CLOSE STATU
0x2ab6d4…2ab868 Dummy {f00=0x0170, f01=0x018e, f02=»H p P EXTRN ECBRC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD . P EJECT DRFD01 T P* l P************************ v P* * P* CONDITIONAL ASSEMBLY * P* * P******************
0x2ab868…2ab9fc Dummy {f00=0x0170, f01=0x0190, f02=» PCHAN EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT ( P* IS OBTAINED BY SETTING TOSS EQU 1. V P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING
0x2ab9fc…2abb90 Dummy {f00=0x0170, f01=0x0190, f02=»NED BY SETTING MMUPAG EQU 1. P* $ PMMUPAG EQU 1 . P* B P* L 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION V . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT DRFD01 P*
0x2abb90…2abd24 Dummy {f00=0x0170, f01=0x0190, f02=» * P* 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. R P* PSWPBLK EQU 0 P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO TH
0x2abd24…2abeb8 Dummy {f00=0x0170, f01=0x0190, f02=» P* P* P* MMU BUFFER SIZE P* 8 P* B PX:E EQU 256 L PDVBLEN EQU 256 b P* z P* P* MMU DEVICE INDEX P* P* P IFT CHAN=1 PDEVIND EQU 2 P XIF P* P IFT CHAN=0
0x2abeb8…2ac04c Dummy {f00=0x0170, f01=0x0190, f02=»* CONSTANTS * P* * P************* , P* B & PCUADR EQU 09 CONTROL UNIT ADDRESS L PCUADR2 EQU /0A SECOND CU ADR v & PMUXADR EQU CUADR+CUADR MUX-ADDRESS ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STAND
0x2ac04c…2ac1e0 Dummy {f00=0x0170, f01=0x0190, f02=»ION p & PEOE EQU 34 END OF EXTENT POSITION $ PEOD EQU 74 END OF DATA POSITION 6 PTIME EQU 20 DELAY - POWER ON ^ & POPENTI EQU 10 DELAY AT OPEN ORDERS P* P******************** P* * P* DWT-DISPLACEMENTS*
0x2ac1e0…2ac374 (3, 10) Dummy {f00=0x0170, f01=0x0190, f02=»MUPAG=0 PSTART EQU DWTDRD P XIF ( P* 4 P IFT MMUPAG=1 > PSTART EQU DWTDRD+4 T P XIF n P* z PDWTA3 EQU START+/04 P* P EJECT DRFD01 P* P********** P* * P* TABLES * P*
0x2ac374…2ac508 Dummy {f00=0x0170, f01=0x0190, f02=»IND=4 " P DATA 0 INDICATE NO MMU BUFFER P XIF 4 P* @ P DATA DEVIND DEVICE INDEX J & PFDADR DATA FDAD ACTIVATION ADDRESS l " P DATA 0 ABORT ROUTINE ADDRESS P* P EJECT DRFD01 P* P************** P*
0x2ac508…2ac69c Dummy {f00=0x0170, f01=0x0190, f02=»FT OPCLOS=1 & P* CHECK IF OPEN OR CLOSE ORDER P* > P LDR A1,A7 ORDER H P SUK A1,/21 ` P RF(Z) OPEN OPEN t P SUK A1,1 P RF(Z) CLOSE CLOSE P* P EJECT P XIF P* P LDK A3,0 P LC A3,DWTOR,A6
0x2ac69c…2ac830 Dummy {f00=0x0170, f01=0x0190, f02=» t ( P CM DWTRCW,A6 SAVE RETURN CODE WORD P* 4 P* CHECK IF LOCKED > P* X $ P LD A1,DWTLC,A6 LOCK INDICATOR b " P CF A5,FDIX GET BIT MASK IN A3 * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 P RF(NZ) FD:ORD LOCKED
0x2ac830…2ac9c4 Dummy {f00=0x0170, f01=0x0190, f02=»,/8001 RETURN CODE P ABL END:IO ENDIO P* 4 P EJECT > P* L P* ORDER? V P* h PFD:ORD EQU * r P IFT CHAN+TOSS=2 P IFT MMUPAG=1 P IFF DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GE
0x2ac9c4…2acb58 Dummy {f00=0x0170, f01=0x018e, f02=»DR A3,A2 P RF(NN) FD:005 6 P ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED & P RF(N) FD:005 NO? ` P* z PFD:000 EQU * P ST A2,DWT:BF,A6 SAVE IT P LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 P SLL A1,2 P ORR
0x2acb58…2accec Dummy {f00=0x0170, f01=0x0190, f02=» P ST A1,DWT:PA+2,A6 P LDR A1,A3 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO 0 * P LDKL A2,FD:BUF GET DWT BUFFER ADDRESS 2 P ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P*
0x2accec…2ace80 Dummy {f00=0x0170, f01=0x0190, f02=»0 PHYSICAL READ P SUK A1,4 P RF(Z) FD:010 BASIC WRITE * P SUK A1,12 L P RF(Z) FD:040 PHYSICAL READ ^ P SUK A1,4 P RF(Z) FD:028 PHYSICAL WRITE P SUK A1,15 $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 P A
0x2ace80…2ad014 (3, 11) Dummy {f00=0x0170, f01=0x0190, f02=»SQWRIT SEQUENTIAL WRITE P SUK A1,/2B P ABL(Z) REWIND REWIND 4 P XIF R P IFT TOSS+IBM=0 ^ P IFT MMUPAG=0 v P ADK A1,30 P RF(Z) FD:050 SEARCH KEY P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR P
0x2ad014…2ad1a8 Dummy {f00=0x0170, f01=0x0190, f02=»* 4 P* OPEN IS PERFORMED BY WRITING A ZERO TO BIT 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER. B P* x POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/
0x2ad1a8…2ad33c Dummy {f00=0x0170, f01=0x0190, f02=»NTER OFFSET x ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR @ P CF A15,SETIMP WAIT ` . P DATA OPENRE,OPENTI START ADDR, WAIT TIME | P ABL TDISP EXIT P* POPENRE EQU * P* TIME HAS EXPIRED P LDR A
0x2ad33c…2ad4d0 Dummy {f00=0x0170, f01=0x0190, f02=» P* P********* P* * P* CLOSE * 2 P* * D P********* V P* h 4 P* CLOSE IS PERFORMED BY WRITING A ONE TO BIT r 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* PCLOSE EQU * " P LDKL A1,/
0x2ad4d0…2ad664 Dummy {f00=0x0170, f01=0x018e, f02=»A CLOSE FD DRIVE P* POCLEXI EQU * " $ P* COMMON EXIT FOR OPEN/CLOSE 6 P LDK A1,0 RETURN CODE ^ P RF FD:090 ENDIO | P* P XIF P* P EJECT DRFD01 P* P*************** P* * P*
0x2ad664…2ad7f8 Dummy {f00=0x0170, f01=0x0190, f02=» P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 8 P RF(Z) FD:018 NOT IBM P P XIF n P IFT IBM=1 z , P LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED P CF A5,EBCDIC PFD:018 EQU * P XIF P* P IFT CHAN+TO
0x2ad7f8…2ad98c Dummy {f00=0x0170, f01=0x018e, f02=» ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH P LDR A8,A2 SAVE A2 0 & P LDR A2,A4 GET DWT BUFFER ADDRESS J & P TS -30,A15 SAVE RUNNING TASK MMU t ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,
0x2ad98c…2adb20 Dummy {f00=0x0170, f01=0x0190, f02=» P XIF P* " P CF A5,FD:WRITE PERFORME WRITE P* @ P IFT CHAN+TOSS=2 J P IFT MMUPAG+SWPBLK=2 b $ P LD A1,DWT:LA,A6 GET BUFFER FLAG ~ , P RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA? . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P
0x2adb20…2adcb4 (3, 12) Dummy {f00=0x0170, f01=0x0190, f02=»**************** P* * P* PHYSICAL WRITE * 2 P* * L P****************** f P* PFD:028 CF A5,BIO $ P ORK A2,5 INSERT BIO BITS 13-15 P RB FD:015 P EJECT DRFD01 P* P**********
0x2adcb4…2ade48 Dummy {f00=0x0170, f01=0x018e, f02=» P* PFD:030 CF A5,BIO P ORK A2,6 & P RB FD:015 8 P* J P***************** T P* * n P* PHYSICAL READ * P* * P***************** P* PFD:040 CF A5,BIO:RE P IFT TOSS+IB
0x2ade48…2adfdc Dummy {f00=0x0170, f01=0x0190, f02=» PFD:042 EQU * P XIF $ PFD:045 CF A5,FD:REA PERFORM READ ( P* P P EJECT DRFD01 Z P* r P* | P IFT CHAN+TOSS=2 P IFT MMUPAG=1 P IFF DSKPAG+SWPBLK=0 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P
0x2adfdc…2ae170 Dummy {f00=0x0170, f01=0x0190, f02=»S -30,A15 SAVE RUNNING TASK MMU ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE ! ( 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ! T & P TL -30,A15 RESTORE MMU FROM STACK ! . P LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS ! & P ST A2,ECBBA,A8 RESTORE IT IN ECB
0x2ae170…2ae304 Dummy {f00=0x0170, f01=0x018e, f02=»A3,A6 ! P RF(Z) FD:047 NOT IBM " P XIF " , P IFT IBM=1 " 8 P LD A7,ECBRL,A8 REQ LEN " J ( P LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS " j P CF A5,ASCII " PFD:047 EQU * " P XIF " PFD:048 EQU * " P ABL FD:RC " P* " P EJECT DRFD0
0x2ae304…2ae498 Dummy {f00=0x0170, f01=0x0190, f02=» " P* * # P************** # P* # 4 PFD:050 EQU * # > " P LD A4,10,A8 KEY AREA ADDRESS # R P LDR* A2,A4 KEY AREA LENGTH # x P LDR A1,A2 # " P ABL(NP) END:10 ILLEGAL LENGTH # P SUK A1,128 # " P ABL(P) END:10 ILLEGAL LENGTH #
0x2ae498…2ae62c Dummy {f00=0x0170, f01=0x0190, f02=» # P* $ P SLL A2,3 $ P ORK A2,7 BIO $ $ P ADK A3,4 $ : P ADK A4,2 KEY ADDRESS $ L P CF A5,FD:WRI SEARCH KEY $ j P LDR A3,A3 RETURN CODE $ P RB(NZ) FD:048 $ P* $ P EJECT DRFD01 $ P* $ $ P* READ RECORD WITH KEY COMMAN
0x2ae62c…2ae7c0 Dummy {f00=0x0170, f01=0x0190, f02=»LEGAL LENGTH $ ~ P LD A4,2,A8 BUFFER ADDRESS % P RB FD:045 % 6 P XIF % H P* % T P EJECT DRFD01 % ^ P* % v P*************** % P* * % P* TEST STATUS * % P* * % P*************** % P* % PFD:070
0x2ae7c0…2ae954 (3, 13) Dummy {f00=0x0171, f01=0x0190, f02=»? % p " P ANKL A3,/200 WRITE PROTECTED? & P ORS A3,DWTRCW,A6 & 0 P IFF TOSS+IBM=0 & J P RF LOA:05 READ VOLUME NAME & b P* & PFD:075 EQU * & P XIF & $ P LD A1,DWTRCW,A6 GET RETURN CODE & PFD:090 ABL END:IO & P* & P EJECT DRF
0x2ae954…2aeae8 Dummy {f00=0x0171, f01=0x0190, f02=»2,/14 LOCK & P CF A5,FD:REA ' P ANK A3,1 ' ( P ABL(NZ) FD:RC NOT OPERABEL ' : PLOA:05 EQU * ' ^ P IFT TOSS+IBM=2 ' r P* ' P* CHECK IF TOSS/IBM LABEL ' P* ' P LDK A2,0 BIO ' P LDKL A4,BUF ' P LDK A3,38 NO OF BYTES ' P
0x2aeae8…2aec7c Dummy {f00=0x0171, f01=0x0190, f02=» ' l P ADK A4,2 ( P LDR* A2,A4 ( P CWK A2,'SS' ( . P RF(NE) LOA:10 IBM LABEL ( B P XIF ( b P* ( n P EJECT DRFD01 ( x P* ( P* ( P IFT TOSS=1 ( P* ( P* READ VOLUME NAME ( P* ( P LDK A3,8 LENGTH ( P LDK A2,
0x2aec7c…2aee10 Dummy {f00=0x0171, f01=0x018e, f02=» IFT IBM=1 ( PLOA:10 LDK A3,10 LENGTH ) P LDK A2,/30 BIO ) 2 & P LD A1,DWTA3,A6 DRIVE NO BIT MASK ) J ( P ORS A1,DWTLAB,A6 INDICATE IBM DISC ) t " P LDK A1,/20 RETURN CODE BIT 10 ) P ORS A1,DWTRCW,A6 ) P XIF ) P IFF TOSS+IBM=0 ) PLOA:
0x2aee10…2aefa4 Dummy {f00=0x0171, f01=0x0190, f02=» ) P LD A7,DWTRCW,A6 * $ P ANK A7,/20 CHECK TYPE OF LABEL * P RF(Z) LOA:30 TOSS LABEL * H P LDK A7,10 NO OF CHAR. * h P CF A5,ASCII * P LDK A1,4 * PLOA:30 EQU * * P XIF * P* * P EJECT DRFD01 * P* * P* * P IFF T
0x2aefa4…2af138 Dummy {f00=0x0171, f01=0x0190, f02=» DWT * P* + P LDK A3,3 + PLOA:40 LD A4,BUF,A1 + ( P STR A4,A2 + D P SUK A3,1 + V P RF(Z) LOA:50 + h P ADK A1,2 + ~ P ADK A2,2 + P RB LOA:40 + PLOA:50 EQU * + P LC A2,DWTOR+1,A6 GET ORDER + P ANK A2,/FF + & P RB(Z) F
0x2af138…2af2cc Dummy {f00=0x0171, f01=0x0190, f02=»SS=6, IBM=8 + ~ P RF(NZ) LOA:70 TOSS LABEL , P LC A1,DWTOR+1,A6 ORDER , 6 P CCK A1,/2600 , V P RF(E) LOA:70 LOCK ORDER , l P* , P* READ DATA SET LABEL , P* , P LD A2,ECBCW,A8 SECTOR NO , P SUK A2,7 , P ABL(N) FD:DIS REQUEST
0x2af2cc…2af460 Dummy {f00=0x0171, f01=0x0190, f02=»DKL A4,BUF , P CF A5,FD:REA - P LDR A1,A3 RETURN CODE - ( P SLL A1,4 CHECK NO DATA BIT - F P RF(NN) LOA:60 NOT NO DATA - j 2 P ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL - PLOA:60 EQU * - P CF A5,LD:RC - P ENB - * P LD A3,ECBCW,A8 DA
0x2af460…2af5f4 (3, 14) Dummy {f00=0x0171, f01=0x0190, f02=»M TO LOGICAL SECTOR - z P LDK A1,DWTBOE . $ P CF A5,STDWT STORE BOE NO IN DWT . 2 P SUK A3,1 CRN . Z P LDK A1,DWTCRN . p P CF A5,STDWT . P ADK A4,EOE-BOE EOE ADDRESS . P CF A5,LOGSEC . P LDK A1,DWTEOE . $ P CF A5,STDWT STORE EOE NO IN D
0x2af5f4…2af788 Dummy {f00=0x0171, f01=0x0190, f02=»RE EOD NO IN DWT . P* / PLOA:70 EQU * / " P XIF / 6 P LD A2,DWTA3,A6 / B " P ORS A2,DWTLC,A6 INDICATE LOCK / Z & PLOA:75 LD A3,DWTRCW,A6 RETURN CODE / PLOA:80 ABL FD:RC / P* / P EJECT DRFD01 / P* / P* / P IFF TOSS+IBM=0
0x2af788…2af91c Dummy {f00=0x0171, f01=0x0190, f02=» UNLOCK / P CF A5,FD:REA 0 P RB LOA:75 0 & P* 0 8 : P*---------------------------------------------------- 0 B P* LD:RC SUBROUTINE 0 P* 0 PLD:RC ORS A3,DWTRCW,A6 0 P ANKL A3,/2007 FATAL ERROR 0 P RB(NZ) LOA:90 0 & P LDKL A4,B
0x2af91c…2afab0 Dummy {f00=0x0171, f01=0x0190, f02=»AD * 0 P* * 1 P********** 1 P* 1 0 PUNLOAD EQU * 1 : P IFT IBM=1 1 N P* 1 ` P* DATA SET OPEN? 1 j P* 1 P CF A5,DSOPCH A1,AFFECTED 1 P LDR A7,A7 EOD 1 P RF(Z) UNL:70 NOT OPEN 1 4 P ST A7,10,A8 STORE EOD-NO IN CONTR
0x2afab0…2afc44 Dummy {f00=0x0171, f01=0x0190, f02=»REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 2 P ENB 2 H P** 2 T $ P*------------------------------ 2 ^ < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 2 P* 2 P CF A5,DSOPCH EOD-NO TO A7 2 P* 2 P* DIVIDE EO
0x2afc44…2afdd8 Dummy {f00=0x0171, f01=0x0190, f02=» A7,27 2 P* 3 P* A1 = BINARY TRACK NO 3 * P* A7 = SECTOR NO WITHIN TRACK (0-25) 3 8 P* 3 f ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3 3 p ( P LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 3 P SCR A3,A4 3 P SUK A4,1 3 P SRL A3,8 LEFT BYTE 3 P
0x2afdd8…2aff6c Dummy {f00=0x0171, f01=0x018e, f02=» INTO BUF 3 P CF A5,SETINH INHIBIT 4 P* 4 0 P* WRITE DATA SET LABEL 4 : P* 4 Z P CF A5,DSLIO PREPARE FOR I/O 4 d P ORK A2,5 PHYSICAL WRITE 4 ( P CF A5,FD:WRITE WRITE DATA SET LEBEL 4 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPC
0x2aff6c…2b0100 Dummy {f00=0x0171, f01=0x0190, f02=» 4 | P CF A5,FD:REA 5 P ORS A3,DWTRCW,A6 5 P ANK A3,1 5 8 , P RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED 5 J P LD A2,DWTA3,A6 INDEX MASK 5 z , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 PUNL:80 EQU * 5 P RB LOA:75 END:IO 5 P IFF TOSS+IBM=
0x2b0100…2b0294 (3, 15) Dummy {f00=0x0171, f01=0x0190, f02=») UNL:80 ENDIO 5 P RTN A5 6 P XIF 6 & P IFT IBM=1 6 2 P EJECT DRFD01 6 D P* 6 P******************* 6 f P* SEQUENTIAL READ * 6 P******************* 6 P* 6 PSQREAD EQU * 6 * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 P L
0x2b0294…2b0428 Dummy {f00=0x0171, f01=0x0190, f02=» A3,1 CRN+1 6 & P ST A3,ECBCW,A8 STORE CRN+1 IN ECB 7 P CWR A3,A7 7 > P RF(NL) SQR:10 END OF DATA 7 P P CF A5,BIO:RE 7 r P LDKL A4,BUF BUFFER ADDRESS 7 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 7 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7
0x2b0428…2b05bc Dummy {f00=0x0171, f01=0x0190, f02=»10 UPDATE CRN 7 P* 8 P* END OF DATA 8 P* 8 8 $ PSQR:10 LDKL A1,/1000 RETURN CODE 8 B P RF END:IO 8 j P EJECT DRFD01 8 | P* 8 P******************* 8 P* SEQUENTIAL WRITE * 8 P******************* 8 P* 8 PSQWRIT EQU *
0x2b05bc…2b0750 Dummy {f00=0x0171, f01=0x0190, f02=»NT 8 x P* 9 P LDK A1,DWTEOE 9 & P CF A5,DSPAD EOE-NO ADDRESS TO A2 9 * * P ST A7,ECBCW,A8 STORE EOD IN ECB C. W. 9 T P CWR* A7,A2 9 P RF(G) SQW:20 YES,EOE 9 P CF A5,BIO 9 P LDK A7,128 9 , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9
0x2b0750…2b08e4 Dummy {f00=0x0171, f01=0x0190, f02=») SQW:15 NOT OPERABLE 9 * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT : PSQW:15 RF FD:RC : L P* : d P* : n P* END OF EXTENT : x $ PSQW:20 LDKL A1,/400 RETURN CODE : P RF END:IO : P EJECT DRFD01 : P* : P********** : P* REWIND *
0x2b08e4…2b0a78 Dummy {f00=0x0171, f01=0x0190, f02=»PEN : t P LDR A3,A2 SAVE EOD ADDRESS ; P LDK A1,DWTBOE ; 0 P CF A5,DSPAD ; F P LDR* A4,A2 BOE ; Z P STR A4,A3 EOD = BOE ; r P LDK A1,DWTCRN ; P CF A5,DSPAD ; P SUK A4,1 BOE - 1 ; P STR A4,A2 CRN = BOE -1 ; P LDK A1,0 RETURN CODE
0x2b0a78…2b0c0c Dummy {f00=0x0171, f01=0x018e, f02=»DER * ; P* * < P***************** < ( P* < B P* < L P* INPUT: A2 BIO CONTENTS < V 0 P* A3 NO OF BYTES TO BE TRANSFERED < z " P* A4 BUFFER ADDRESS < P* < PFD:WRI EQU * < P IFT CHAN=0 < P L
0x2b0c0c…2b0da0 Dummy {f00=0x0171, f01=0x0190, f02=» P* = PFD:REA EQU * = P IFT CHAN=1 = " P LDK A1,1 = 6 P ST A1,DWTRW,A6 READ MODE = H P XIF = j P IFT CHAN=0 = v P LDKL A1,/8000 WORDS READ = P XIF = PFD:800 EQU * = P IFT CHAN=0 = " P SRL A3,1 FROM BYTES TO WORDS = P*
0x2b0da0…2b0f34 (3, 16) Dummy {f00=0x0171, f01=0x0190, f02=» P IFT CHAN=0 > P ORR A3,A1 > PWER1 WER A3,MUXADR FIRST WER > * $ PWER2 WER A4,MUXADR+1 SECOND WER > N P XIF > v P IFT CHAN=1 > P* > P EJECT DRFD01 > P* > . P* PUT BUFFER START AND END ADDRESS IN DWT > P* > P ST A4,DWT
0x2b0f34…2b10c8 Dummy {f00=0x0171, f01=0x0190, f02=» > n P EX FDCIO,A6 CIO-START KST ? ( P RF(3) FD:840 DEVICE ADDRESS UNKNOWN ? * P RF T:DISP ? V PFD:840 LDK A1,1 NOT OPERABLE ? h P RF END:IO ? P EJECT DRFD01 ? P* ? * P************************************* ? * P*
0x2b10c8…2b125c Dummy {f00=0x0171, f01=0x0190, f02=»************* ? x P* @ P* INPUT: A3 RETURN CODE @ P* @ B PFD:RC EQU * @ L P LDR A1,A3 @ ` P* @ r " P* PUT EFFECTIVE LENGTH IN ECB @ | P* @ P LD A2,ECBRL,A8 REQ LENGTH @ P ST A2,ECBEL,A8 EFF LENGTH @ P EJECT DRFD01 @ P
0x2b125c…2b13f0 Dummy {f00=0x0171, f01=0x018e, f02=»5,TENDIO @ PT:DISP ABL TDISP A P* A ( P* A 2 " P* ENTRY FROM RECOVERY ROUTINE A < P* A b PEND:05 EQU * A l P* A P* ILLEGAL LENGTH A P* A PEND:10 LDK A1,8 RETURN CODE A P RB END:IO A P EJECT DRFD01 A P* A P**
0x2b13f0…2b1584 Dummy {f00=0x0171, f01=0x0190, f02=» P* B PFDON EQU * B P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK B 6 P XIF B ` P* B l P IFT CPU852=0 B v " P MSR 8,A15 SAVE A1-A8 ON STACK B P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B P RF FDON05 KST B PFDON
0x2b1584…2b1718 Dummy {f00=0x0171, f01=0x0190, f02=» LDKL A5,DWTSB2 B P ADR A5,A6 GET STACK BASE C P* C : P IFF DSKPAG+SWPBLK=0 C D , P LD A2,INIFLG CHECK INITIALIZATION FLAG C ` P RF(Z) FDON07 POWER UP? C : P LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE C P SUK A2,/F8 C $ P RF(N)
0x2b1718…2b18ac Dummy {f00=0x0171, f01=0x0190, f02=»R C n * P ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED D P* D 8 P EJECT DRFD01 D B P* D Z P* D d P C1R A3,A3 D n * P ANS A3,DWTLAB,A6 INDICATE TOSS LABEL D P* D * P* READ VOLUME NAME (A2 = 0 FROM FDIX) D P* D P LDK A3,8 D P LDKL
0x2b18ac…2b1a40 Dummy {f00=0x0171, f01=0x018e, f02=»3 D P* E P* MOVE VOLUME NAME TO DWT E P* E 6 PFDON06 LD A4,BUF,A1 E @ P STR A4,A2 E P ADK A1,2 E n P ADK A2,2 E P SUK A3,1 E P RB(P) FDON06 E P* E PFDON07 EQU * E P XIF E P* E P EJECT DRFD01 E P*
0x2b1a40…2b1bd4 (3, 17) Dummy {f00=0x0172, f01=0x0190, f02=» E P RF(NE) FDON08 ALREADY SAVED F P LD A2,DWTST,A6 F , P ST A2,DWTST2,A6 F D PFDON08 CM DWTST,A6 SET BUSY F P* F P IFT OPCLOS=1 F P* F P EJECT F P* F : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING F " P LD A4,D
0x2b1bd4…2b1d68 Dummy {f00=0x0172, f01=0x018e, f02=» EQU * F P* G 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE G 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS G R P* G & P LDKL A2,/8000 OPEN/CLOSE BIT MASK G $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG G P ORS A2,DWTOCF,A6 SAVE G ( P XRRS
0x2b1d68…2b1efc Dummy {f00=0x0172, f01=0x0190, f02=» G P EJECT H P* H P* DELAY 2 SEC H P* H 6 P LD A4,DWTTP,A6 H @ P RF(Z) FDON10 NO TIMER SET H X P LDKL A4,-TIME H z " P ST* A4,DWTTP,A6 RESTART TIMER H P RB T:DISP H PFDON10 LDK A4,DWTTP H P ADR A4,A6 H P LDR A1,A6 SAVE A6
0x2b1efc…2b2090 Dummy {f00=0x0172, f01=0x0190, f02=»A1 H P CM DWTTP,A6 I P LDKL A5,DWTSB2 I P ADR A5,A6 STACK BASE I 6 P* I T P* LOCK DOORS I ^ P* I t P LDK A2,1 I ~ PFDON25 EQU * I " P LD A1,DWTLC,A6 LOCK INDICATOR I P ANR A1,A2 I P RF(Z) FDON30 NOT LOCKED I P ST A2,DWTA3
0x2b2090…2b2224 Dummy {f00=0x0172, f01=0x0190, f02=»,SETCIO PUT DRVE NO IN CIO-INSTR I P LDK A2,/14 LOCK J ( P CF A5,FD:REA J @ P LD A2,DWTA3,A6 DRIVE IND. J V P ANK A3,1 J x P RF(Z) FDON30 OK J $ P XRS A2,DWTLC,A6 INDICATE UNLOCK J PFDON30 EQU * J P SLL A2,1 J P CWK A2,/0010 J P R
0x2b2224…2b23b8 Dummy {f00=0x0172, f01=0x0190, f02=»D A2,DWTOCF,A6 OPEN/CLOSE FLAG J " P ORS A2,SPDLCI TO STATUS WORD K & P CM DWTOCF,A6 CLEAR FLAG K L P* K l $ P LD A2,SPDLCI OPEN/CLOSE STATUS K v 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED K P* BEFORE THE POWER OFF K P XIF K P* K P
0x2b23b8…2b254c Dummy {f00=0x0172, f01=0x0190, f02=» LD A2,DWTST2,A6 SAVED STATUS K * P ST A2,DWTST,A6 PUT IN CUURENT STATUS L & P LDKL A2,-1 L T ( P ST A2,DWTST2,A6 INDICATE NOT SAVED L h P CM DWTA2,A6 RESET FDON FLAG L PFDON60 EQU * L P LD A2,DWTST,A6 L 0 P ABL(N) END:05 NO REQUEST, RETURN VI
0x2b254c…2b26e0 Dummy {f00=0x0172, f01=0x0190, f02=»R L P LD A8,DWTECB,A6 ECB ADDRESS M P ABL FDAD REACTIVATE M . P EJECT DRFD01 M J P* M b P********************* M l P* * M P* INTERRUPT HANDLER * M P* * M P********************* M P* M
0x2b26e0…2b2874 (3, 18) Dummy {f00=0x0172, f01=0x0190, f02=»SAVE REGISTERS ON STACK M P XIF N P* N , P IFT CPU852=0 N 6 " P MSR 8,A15 SAVE A1-A8 ON STACK N L P XIF N r P* N ~ P LDKL A6,DWFD01 DWT ADDRESS N P RF IH000 KST N PIHFD2 EQU * KST N P ST P,INTSAV KST N P MSR 8,A15 KST N
0x2b2874…2b2a08 Dummy {f00=0x0172, f01=0x0190, f02=»,DWTUBE,A6 END OF BUFFER N P SUR A2,A1 LENGTH O PIH005 EQU * O : P EX FDSST,A6 KST O N " P RF(A) IH:000 READY INTERRUPT O h ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR O P RF(NZ) IH050 READ O P* O P EJECT DRFD01 O P* O P* O P
0x2b2a08…2b2b9c Dummy {f00=0x0172, f01=0x0190, f02=»X FDOTR,A6 WRITE KST O P RB(NA) IH005 P $ P ADK A1,2 UPDATE BUFFER POINTER P 2 P SUK A2,2 P Z P RB(P) IH010 P l P EX FDHLT,A6 CIO-HALT KST P P ABL TDISP GOTO DISPATCHER P P* P PIH050 EQU * P P EX FDINR,A6 READ KST P P RB(NA)
0x2b2b9c…2b2d30 Dummy {f00=0x0172, f01=0x0190, f02=»INTER P v P SUK A2,2 Q P RB(P) IH050 Q P EX FDHLT,A6 CIO-HALT KST Q 4 P EX FDSST,A6 STATUS KST Q V P RB(NA) *-2 =2 Q v PIH:000 EQU * =1 Q P XIF Q P* Q P EJECT DRFD01 Q P* Q P* Q P******************** =1 END Q
0x2b2d30…2b2ec4 Dummy {f00=0x0172, f01=0x0190, f02=» ECB ADDRESS Q " P LD A5,DWTA5,A6 STACK POINTER R P SLL A3,1 R : P RF(N) FDRE READY INTERRUPT R L P SRL A3,1 R p P LD A2,DWTRTY,A6 RETRY? R P RF(Z) IH:10 NO R " P CM DWTRTY,A6 RESET RETRY FLAG R P LDR A1,A3 R P ANKL A1,/0405 R P
0x2b2ec4…2b3058 Dummy {f00=0x0172, f01=0x0190, f02=» R & P* TRANSFORM RETURN CODE, CU - ECB S P* S 2 P ANKL A3,/FF37 S < P RF(Z) IH:80 S R P LDR A1,A3 S f " P ANKL A3,/0A05 UNCHANGED BITS S x P LDR A4,A1 S P ANKL A4,/0400 BIT 5 S P SLC A4,7 TO BIT 14 S P ORR A3,A4 S P IFT TOSS+IBM=
0x2b3058…2b31ec Dummy {f00=0x0172, f01=0x0190, f02=»4,/20 BIT 10 S P SLL A4,3 TO BIT 7 T P ORR A3,A4 T . P ANK A1,/10 BIT 11 T @ P SRC A1,5 TO BIT 0 T Z P ORR A3,A1 T t PIH:80 EQU * T P IFT CHAN=1 =1 T P INH =1 T P XIF =1 T P RTN A5 T P EJECT DRFD01 T P* T P******
0x2b31ec…2b3380 Dummy {f00=0x0172, f01=0x0190, f02=» T PFDRE EQU * U P LD A2,DWTA2,A6 U , P ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE U 2 P LDKL A5,DWTSB2 U b P ADR A5,A6 STACK BASE U z P RB FDON60 U P EJECT DRFD01 U P* U 0 P******************************************* U 0 P*
0x2b3380…2b3514 (3, 19) Dummy {f00=0x0172, f01=0x018e, f02=» * U h 0 P******************************************* V P* V @ P******* V J P* * V Z P* BIO * V j P* * V z P******* V P* V P* V P* INPUT: A8 ECB ADDRESS V P* V > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED
0x2b3514…2b36a8 Dummy {f00=0x0172, f01=0x0190, f02=» P LDK A4,0 FLAG W P RF BIO010 W PBIO:RE LDK A4,1 W , PBIO010 EQU * W D P LD A3,ECBRL,A8 REQ LEN W X P RF(N) BIOERR ILLEGAL LENGTH W x P IFT TOSS+IBM=2 W P LD A2,DWTLAB,A6 W P AN A2,DWTA3,A6 W P RF(Z) BIO020 TOSS DISC W P XIF
0x2b36a8…2b383c Dummy {f00=0x0172, f01=0x0190, f02=» TOSS=1 W PBIO020 LDKL A7,TOSLEN X P LDK A2,3 X . PBIO030 EQU * X @ P XIF X T P IFF TOSS+IBM=0 X ` P ADK A4,0 SET CR X x P RF(Z) BIO060 WRITE X P LDK A2,0 X P LDR A1,A3 REQ LEN X & P CWR A3,A7 REQ LENGTH WITHIN RANGE X P RF(G)
0x2b383c…2b39d0 Dummy {f00=0x0172, f01=0x0190, f02=»* WRITE, CHECK REQ LENGTH X P* Y " PBIO060 CWR A3,A7 Y , " P RF(NE) BIOERR ILLEGAL REQ LEN Y D P XIF Y j P IFT TOSS+IBM=0 Y v P* Y > P* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH Y P* Y P LDR A1,A3 REQ LENGTH Y P LDK A
0x2b39d0…2b3b64 Dummy {f00=0x0172, f01=0x018e, f02=»N ACCEPTED Y | P RF BIO045 Z P* Z $ PBIO035 SUK A1,128 Z . & P RF(NP) BIO100 REQ LENGTH ACCEPTED Z H PBIO045 ADK A2,1 Z r P CWK A2,3 Z P RB(NG) BIO015 Z $ P RF BIOERR REQ LEN OUTSIDE RANGE Z P XIF Z P* Z 6 PBIO100 SRC A2,2 SHIFT NO
0x2b3b64…2b3cf8 Dummy {f00=0x0172, f01=0x0190, f02=» Z j P* [ P LD A1,ECBCW,A8 SECTOR NO [ P RF(N) BIOER2 OUTSIDE RANGE [ 4 P IFT TOSS+IBM=2 [ X P ANK A7,/A [ p P RF(Z) BIO110 IBM DISC [ P XIF [ P IFT TOSS=1 [ P CWK A1,499 [ P RF(G) BIOER2 OUT OF RANGE [ , P SLL A1,2 MULTIPLY
0x2b3cf8…2b3e8c Dummy {f00=0x0172, f01=0x0190, f02=» P RF(P) BIOER2 OUT OF RANGE P XIF & P IFT TOSS+IBM=0 2 ( P CWK A1,2001 SECTOR NO OUT OF RANGE J P RF(G) BIOER2 YES! v P XIF PBIO120 EQU * P SLL A1,3 P ORR A2,A1 " P LD A4,ECBBA,A8 BUFFER ADDRESS P LDR A1,A3 REQ
0x2b3e8c…2b4020 Dummy {f00=0x0172, f01=0x0190, f02=»H, RETURN VIA TENDIO v P* ] PBIOERR ABL END:10 ] & P* ILLEGAL SECTOR NO ] @ PBIOER2 ABL FD:DIS ] ^ P* ] x P EJECT DRFD01 ] P* ] P********* ] P* * ] P* FDIX * ] P* * ] P********* ] P* ] P
0x2b4020…2b41b4 (3, 20) Dummy {f00=0x0172, f01=0x0190, f02=» * ] P RF(Z) FDIX20 ^ P SLL A3,1 ^ P SUK A2,1 ^ 2 P RB FDIX10 ^ D PFDIX20 RTN A5 ^ V P EJECT DRFD01 ^ l P IFF TOSS+IBM=0 ^ P****************** ^ P* * ^ P* VOLADR * ^ P* * ^ P****
0x2b41b4…2b4348 Dummy {f00=0x0172, f01=0x0190, f02=»O ^ ~ P* _ PVOLADR EQU * _ P LC A3,DWTOR,A6 DRIVE NO _ ( PVOLA05 EQU * _ H P LDK A2,DWTVO0 _ P ADR A2,A6 _ r P ANK A3,/3 _ PVOLA10 EQU * _ P RF(Z) VOLA20 _ P ADK A2,6 UPDATE ADDRESS _ P SUK A3,1 _ P RB VOLA10 _ PVOLA
0x2b4348…2b44dc Dummy {f00=0x0172, f01=0x0190, f02=» _ P* ` : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO ` P* ASCII CODE ` P . P* INPUT STRING ADDRESS IS BUF ` p & P* INPUT: A7 NO OF CHARACTERS ` , P* A4 OUTPUT STRING ADDRESS ` P* OUTPUT:
0x2b44dc…2b4670 Dummy {f00=0x0172, f01=0x018e, f02=»1,0 ` P ADR A4,A7 a PASC:10 SUK A7,1 a P RF(N) ASC:20 a 6 P SUK A4,1 a L " P LC A1,BUF,A7 GET EBCDIC CHAR a ^ ( P LC A1,TASCII,A1 TRANSFORM TO ASCII a 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER a P RB ASC:10 a PASC:20 EQU * a "
0x2b4670…2b4804 Dummy {f00=0x0172, f01=0x018e, f02=» < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO b P* EBCDIC CODE b D 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER b f P* b & P* INPUT: A7 NO OF CHARACTERS b * P* A4 INPUT STRING ADDRESS b P* b
0x2b4804…2b4998 Dummy {f00=0x0172, f01=0x018e, f02=» b P ENB c P ADR A4,A7 c P LDK A1,0 c & PEBC:10 SUK A7,1 c 8 P RF(N) EBC:80 c P P SUK A4,1 c f P LCR A1,A4 GET ASCII CHAR. c x P LC A1,TEBCDIC,A1 c P SC A1,BUF,A7 c P RB EBC:10 c PEBC:80 EQU * c P LDKL A4,BUF c PEBC:
0x2b4998…2b4b2c Dummy {f00=0x0172, f01=0x0190, f02=» c P* d @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD d , P* LOGICAL SECTOR (BINARY). d V < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) d * P* TT = TRACK, SS=SECTOR d P* d , P* INPUT:
0x2b4b2c…2b4cc0 Dummy {f00=0x0172, f01=0x0190, f02=» P* e PLOGSEC EQU * e P CF A5,DECBIN e " P LDR A3,A1 SAVE e 8 P ADK A4,2 e P P* e b P* MULTIPLY BY 26 e l P* e P SLL A3,5 *32 e P LDR A2,A1 e P SLL A2,2 e P SUR A3,A2 *28 e P SLL A1,1 e P SUR A3,A1 *26 e P
0x2b4cc0…2b4e54 (3, 21) Dummy {f00=0x0173, f01=0x018e, f02=» P RF(NP) LOG:10 f P CWK A4,BUF+EOD+4 EOD? f P RF(E) LOG:02 YES! f 8 P SUKL A1,1898 f R P RF LOG:04 f h P* f z " P* CHECK EOD LESS/EQUAL 74001 f P* f PLOG:02 SUKL A1,1899 f PLOG:04 EQU * f " P RF(P) LOG:10 NOT ACC SEC. NO f "
0x2b4e54…2b4fe8 Dummy {f00=0x0173, f01=0x0190, f02=» f j $ PLOG:10 LDKL A1,/2000 RETURN CODE g P ORS A1,DWTRCW,A6 g 0 P CF A5,SETINH g J P ABL LOA:90 ERROR ROUTINE g ` P* g P EJECT DRFD01 g P* g P********** g P* DECBIN* g P********** g P* g > P* FUNCTION: DECBIN TRANS
0x2b4fe8…2b517c Dummy {f00=0x0173, f01=0x0190, f02=»S TO FIRST DIGIT g x P* OUTPUT: A1 BINARY h P* WORKING REG: A2,A7 h 6 P* h V PDECBIN LDK A1,0 h ` P LDK A7,2 h x PDEC:10 LCR A2,A4 DIGIT h P ANK A2,/FF h P SUK A2,/F0 h P RB(N) LOG:05 h P SUK A2,9 h P RB(P) LOG:05 NO
0x2b517c…2b5310 Dummy {f00=0x0173, f01=0x018e, f02=» P RB(N) DEC:10 NEXT DIGIT i P ADK A1,/A MULTIPLY BY 10 i $ P RB DEC:20 i F PDEC:30 ADR A1,A2 i X P RTN A5 i p P XIF i P EJECT DRFD01 i P* i P********** i P* SETCIO * i P********** i P* i 2 P* FUNCTION: PUT DRIVE NO
0x2b5310…2b54a4 Dummy {f00=0x0173, f01=0x018e, f02=» P* A4 CHANGED j P* j " PSETCIO LDKL A4,/FFCF j , P ANS A4,FDCIO,A6 KST j H P SLL A3,4 j f P ORS A3,FDCIO,A6 KST j x P RTN A5 j P IFT IBM=1 j P EJECT DRFD01 j P* j P********** j P* BINDEC * j P**********
0x2b54a4…2b5638 Dummy {f00=0x0173, f01=0x0190, f02=» j P* INPUT: A7 BINARY NUMBER k P* k , . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS k 6 P* A7 CHANGED k h P* k PBINDEC LDK A3,0 k PBIN:10 SUK A7,10 k P RF(N) BIN:20 k P ADK A3,1 k P RB BIN:10 k PBIN:20 ADK A7,
0x2b5638…2b57cc Dummy {f00=0x0173, f01=0x0190, f02=»RFD01 k P********* l P* DSLIO * l P********* l 2 P* l D 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL l N P* l P* INPUT: A6 DWT ADDRESS l P* l : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES l P* A3
0x2b57cc…2b5960 Dummy {f00=0x0173, f01=0x0190, f02=»DSLIO LDK A1,DWTDSS l P CF A5,DSPAD m P LDR* A2,A2 m 0 P SLL A2,3 m D P LDK A3,128 m V P LDKL A4,BUF m j P RTN A5 m ~ P EJECT DRFD01 m P* m P********** m P* DSOPCH * m P********** m P* m 6 P* FUNCTION: GET EOD-NO
0x2b5960…2b5af4 (3, 22) Dummy {f00=0x0173, f01=0x0190, f02=» EOD-NO (0=NOT OPEN) m P* A1 CHANGED n " PDSOPCH LDK A1,DWTEOD n @ P CF A5,DSPAD n P LDR* A7,A2 EOD-NO n p P RTN A5 n P EJECT DRFD01 n P* n P********* n P* DSPAD * n P********* n P* n 2 P* FUNCTION:
0x2b5af4…2b5c88 Dummy {f00=0x0173, f01=0x0190, f02=» n v P* A6 DWT ADDRESS o P* o * " P* OUTPUT: A2 ADDRESS TO DATA o 4 P* A6 DWT ADDRESS o Z P* o | " PDSPAD LC A2,DWTOR,A6 DRIVE NO o P ANK A2,/3 o P ADR A2,A2 o P ADR A2,A6 o P ADR A2,A1 o P RTN A5 o P EJE
0x2b5c88…2b5e1c Dummy {f00=0x0173, f01=0x0190, f02=»DEPENDING OF o f P* DRIVE NO p P* p 2 ( P* INPUT: A1 OFFSET TO DWT AREA p < . P* A3 WORD TO BE STORED IN DWT p h P* A6 DWT ADDRESS p P* p P* OUTPUT: A1 UNCHANGED p 0 P* A2 ADDRESS TO WO
0x2b5e1c…2b5fb0 Dummy {f00=0x0173, f01=0x018e, f02=» P STR A3,A2 q P RTN A5 q P EJECT DRFD01 q & P* q > P********** q H P* SETINH * q Z P********** q l P* q ~ @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE q > P* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND q
0x2b5fb0…2b6144 Dummy {f00=0x0173, f01=0x0190, f02=» P RF(Z) SET:10 NOT ACTIVE r P ABL T:DISP ESCAPE r $ PSET:10 RTN A5 r > P XIF r T P* r ` " P* D R I V E R B U F F E R r j PBUF DATA 0,0,0,0 r P* r P IFT IBM=1 r P RES 60 r P XIF r P* r P EJECT DRFD01 r P* r
0x2b6144…2b62d8 Dummy {f00=0x0173, f01=0x018e, f02=»********* r P* s PDWFD01 EQU * s P DATA 0 s 0 P DATA /8000 DWT STATUS s @ P DATA 0 ECB ADDRESS s ^ P DATA 0 ORDER s z " P DATA FDADR ACTIVATION ADDRESS s P DATA 0 TTAB-ADDRESS s $ P DATA 0 WAIT/ACTIVATE INDICATOR s P DATA 0 TERMIN
0x2b62d8…2b646c Dummy {f00=0x0173, f01=0x018e, f02=» P* t P DATA 0 t P DATA 0 SAVE AREA t P DATA 0 t 8 P DATA 0 t H P DATA 0,0,0,0 STACK t X ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD t t P DATA -1 t * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG t P DATA 0 t $ PDWTTP EQU *-DWFD01 TIMER P
0x2b646c…2b6600 Dummy {f00=0x0173, f01=0x0190, f02=» P DATA 0 u , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR u P DATA 0 u D ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 u T P DATA 0,0,0 u ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 u P DATA 0,0,0 u ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 u P DATA 0,
0x2b6600…2b6794 (3, 23) Dummy {f00=0x0173, f01=0x0190, f02=»OPEN u j P DATA 0 v 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON v P DATA 0 v T P XIF v d P* v p P IFT CHAN=1 v z 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER v P DATA 0 v , PDWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 v P
0x2b6794…2b6928 Dummy {f00=0x0173, f01=0x0190, f02=»D01 BEGINNING OF EXTENT v P DATA 0,0,0,0 w $ PDWTEOD EQU *-DWFD01 END OF DATA w 6 P DATA 0,0,0,0 w ^ & PDWTEOE EQU *-DWFD01 END OF EXTENT w t P DATA 0,0,0,0 w * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO w P DATA 0,0,0,0 w . PDWTDSS EQU *-DWF
0x2b6928…2b6abc Dummy {f00=0x0173, f01=0x018e, f02=»SWPBLK=0 w PDWT:PA EQU *-DWFD01 x * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS x , P DATA 0 SECOND MMU ENTRY x Z P* x z PDWT:LA EQU *-DWFD01 x * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS x P* x PDWT:BF EQU *-DWFD01 x $ P DATA 0 SAVE AREA BU
0x2b6abc…2b6c50 Dummy {f00=0x0173, f01=0x0190, f02=» x P* y P IFT DEVIND=2 y PFD:BUF RES DVBLEN+1 y ( P XIF y D P* y P P IFT MMUPAG=1 y Z P IFT DEVIND=4 y p PFD:BUF EQU 0 y P XIF y P* y PFDCIO EQU *-DWFD01 KST y P CIO A2,1,CUADR KST y PFDSST EQU *-DWFD01 KST y
0x2b6c50…2b6de4 Dummy {f00=0x0173, f01=0x0190, f02=»ST y ~ PFDINR EQU *-DWFD01 KST z P INR A3,0,CUADR KST z * P* z F P* z P 6 P* NEXT DWT INTRODUCED BY KST 80-11-12 z Z P* z PDWFD02 EQU * z P DATA 0 z P DATA /8000 DWT STATUS z P DATA 0 ECB ADDRESS z P DATA 0 ORDE
0x2b6de4…2b6f78 Dummy {f00=0x0173, f01=0x0190, f02=»UE z | P* { IFT MMUPAG=1 { & " DATA 0 SAVE AREA USER ECB ADDRESS { * P DATA DVECB2 MMU ECB ADDRESS { T XIF { x P* { P DATA 0 { P DATA 0 SAVE AREA { P DATA 0 { P DATA 0 { P DATA 0,0,0,0 STACK { P DATA -1 { P DAT
0x2b6f78…2b710c Dummy {f00=0x0173, f01=0x0190, f02=» DATA 0,0,0 { P IFT OPCLOS=1 | P DATA 0 | * P DATA 0 | : P XIF | J P* | V P IFT CHAN=1 | ` P DATA 0 | t P DATA 0 | P DATA 0 | P XIF | P* | P IFT IBM=1 | P DATA 0,0,0,0 | P DATA 0,0,0,0 | P DATA 0,0,0,0 |
0x2b710c…2b72a0 Dummy {f00=0x0173, f01=0x0190, f02=»=0 | ~ * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS } P DATA 0 SECOND MMU ENTRY } 8 P* } X * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS } b P* } $ P DATA 0 SAVE AREA BUFFER ADDRESS } P XIF } P* } P IFT MMUPAG=1 } PDVECB2 EQU * } P DATA
0x2b72a0…2b7434 (3, 24) Dummy {f00=0x0173, f01=0x40f2, f02=»FT MMUPAG=1 } P IFT DEVIND=4 ~ PFDBUF2 EQU 0 ~ * P XIF ~ > " P CIO A2,1,CUADR2 CIO-START KST ~ J P SST A3,CUADR2 ~ p P OTR A3,0,CUADR2 ~ P CIO A2,0,CUADR2 ~ P INR A3,0,CUADR2 ~ P* ~ P* ~ P END ~ @ ~
0x2b7434…2b75c8 Dummy {f00=0x0173, f01=0x2008, f02=» END @
0x2b75c8…2b775c Dummy {f00=0x0173, f01=0x0190, f02=»T I T P 1 I 2 ; Z [ : : [ [ : j A} A A A ! T A W Z A. c @ V W
0x2b775c…2b78f0 Dummy {f00=0x0173, f01=0x0190, f02=» W V W ^< _@ V _P V V : V J P r V U _ V Z K W W :K W r Q R t V & b v : V W V & ) :
0x2b78f0…2b7a84 Dummy {f00=0x0173, f01=0x0190, f02=» : W V R RR > R W > <B V x V |P v 1 v W V z ` _f V : W R R P W x 2 _ V : " D Pd W V PL $;A^ D E D P. V &P & P T & E _J
0x2b7a84…2b7c18 Dummy {f00=0x0173, f01=0x0190, f02=» v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ & 0 H W : ? ? R 0 R P P B X
0x2b7c18…2b7dac Dummy {f00=0x0173, f01=0x0190, f02=» pP ` $ $ W D $ H p ) P _ " = D 4 Q _d N p b = G $ V W $ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P
0x2b7dac…2b7f40 Dummy {f00=0x0173, f01=0x0190, f02=»W U " @ Q @ P A. @ P _b A 9n A :B A @ .V 3 S Y& P4 Y Y S P 3 _ Y 3 Y B A. @ D @ W x A : A
0x2b7f40…2b80d4 (3, 25) Opaque[0x194]
0x2b80d4…2b8268 # DirEnt {nam=»ASM «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x2b80d4…2b8268 IdxSect {
0x2b80d4…2b8268 f00 = 0x015e // 0x2b80d4 @0x0
0x2b80d4…2b8268 f01 = 0x0002 // 0x2b80d6 @0x2
0x2b80d4…2b8268 gno = [ // 0x2b80d8 @0x4
0x2b80d4…2b8268 [0x00]: C0x015e.0x2.0
0x2b80d4…2b8268 ]
0x2b80d4…2b8268 }
0x2b8268…2b83fc Dummy {f00=0x015e, f01=0x0094, f02=» ASM SYSTAB PKPF /O ASM PFTAB $ PKPF /O 6 ASM SCLASS D PKPF /O V ASM DRFD01 d PKPF /O v ASG /E0,TY10
0x2b83fc…2b8590 Dummy {f00=0x015e, f01=0x2008, f02=» SYSTAB PKPF /O ASM PFTAB $ PKPF /O 6 ASM SCLASS D PKPF /O V ASM DRFD01 d PKPF /O v ASG /E0,TY10
0x2b8590…2b8724 Dummy {f00=0x015e, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 CHRT3 CHRT4 , ( !
0x2b8724…2b88b8 Dummy {f00=0x015e, f01=0x0190, f02=» , ( Q , ( a 4 , ( q d HALTN SCTMSZK SCTSFA SCTEFA SCTPLD
0x2b88b8…2b8a4c Dummy {f00=0x015e, f01=0x0190, f02=»CTSWB SCTNOS SCTNOP $ SCTPSZ 8 SCTMMC L SCTLACL ` SCTMMP t SCTLAP SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBU
0x2b8a4c…2b8be0 Dummy {f00=0x015e, f01=0x4092, f02=» SCTBLK SCTDCT , _ F |@ SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBU
0x2b8be0…2b8d74 (3, 26) Opaque[0x194]
0x2b8d74…2b8f08 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x2dc8, f03=0x0000}
0x2b8d74…2b8f08 IdxSect {
0x2b8d74…2b8f08 f00 = 0x016e // 0x2b8d74 @0x0
0x2b8d74…2b8f08 f01 = 0x004c // 0x2b8d76 @0x2
0x2b8d74…2b8f08 gno = [ // 0x2b8d78 @0x4
0x2b8d74…2b8f08 [0x00]: C0x016e.0x1.0
0x2b8d74…2b8f08 [0x01]: C0x016e.0x2.0
0x2b8d74…2b8f08 [0x02]: C0x0177.0x2.0
0x2b8d74…2b8f08 [0x03]: C0x0177.0x3.0
0x2b8d74…2b8f08 [0x04]: C0x0178.0x0.0
0x2b8d74…2b8f08 [0x05]: C0x0178.0x1.0
0x2b8d74…2b8f08 [0x06]: C0x0178.0x2.0
0x2b8d74…2b8f08 [0x07]: C0x0178.0x3.0
0x2b8d74…2b8f08 [0x08]: C0x0179.0x0.0
0x2b8d74…2b8f08 [0x09]: C0x0179.0x1.0
0x2b8d74…2b8f08 [0x0a]: C0x0179.0x2.0
0x2b8d74…2b8f08 [0x0b]: C0x0179.0x3.0
0x2b8d74…2b8f08 [0x0c]: C0x017a.0x0.0
0x2b8d74…2b8f08 [0x0d]: C0x017a.0x1.0
0x2b8d74…2b8f08 [0x0e]: C0x017a.0x2.0
0x2b8d74…2b8f08 [0x0f]: C0x017a.0x3.0
0x2b8d74…2b8f08 [0x10]: C0x017b.0x0.0
0x2b8d74…2b8f08 [0x11]: C0x017b.0x1.0
0x2b8d74…2b8f08 [0x12]: C0x017b.0x2.0
0x2b8d74…2b8f08 [0x13]: C0x017b.0x3.0
0x2b8d74…2b8f08 [0x14]: C0x017c.0x0.0
0x2b8d74…2b8f08 [0x15]: C0x017c.0x1.0
0x2b8d74…2b8f08 [0x16]: C0x017c.0x2.0
0x2b8d74…2b8f08 [0x17]: C0x017c.0x3.0
0x2b8d74…2b8f08 [0x18]: C0x017d.0x0.0
0x2b8d74…2b8f08 [0x19]: C0x017d.0x1.0
0x2b8d74…2b8f08 [0x1a]: C0x017d.0x2.0
0x2b8d74…2b8f08 [0x1b]: C0x017d.0x3.0
0x2b8d74…2b8f08 [0x1c]: C0x017e.0x0.0
0x2b8d74…2b8f08 [0x1d]: C0x017e.0x1.0
0x2b8d74…2b8f08 [0x1e]: C0x017e.0x2.0
0x2b8d74…2b8f08 [0x1f]: C0x017e.0x3.0
0x2b8d74…2b8f08 [0x20]: C0x017f.0x0.0
0x2b8d74…2b8f08 [0x21]: C0x015f.0x0.0
0x2b8d74…2b8f08 [0x22]: C0x015f.0x2.0
0x2b8d74…2b8f08 [0x23]: C0x0166.0x2.0
0x2b8d74…2b8f08 [0x24]: C0x0166.0x3.0
0x2b8d74…2b8f08 [0x25]: C0x0167.0x0.0
0x2b8d74…2b8f08 ]
0x2b8d74…2b8f08 }
0x2b8f08…2b909c Dummy {f00=0x016e, f01=0x4162, f02=» J F IDENT TCLASS REL 9.2 79-11-16 870105040920 TCLASSK R TCLASSK d DVKB00 x DVTP00 , ( 0 1 2 DVDY00 DVKB01 DVDY01 & "
0x2b909c…2b9230 Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT MONTAB REL 9.2 79-11-16 870105040920 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R & " INTRT1 INTRT2 INTRT3 INTRT4 MONTABK FREQUE PAGQUE INT
0x2b9230…2b93c4 Dummy {f00=0x016e, f01=0x40f0, f02=» INTRT4 SYSLOD CTAB02L $ ITADN 6 * & F KBADN t TPADN DYADN SPDLCI " $ @ PAGQUE INT
0x2b93c4…2b9558 Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT SYSTAB REL 9.2 80-11-12 870105040920 F B SCTMSZK SCTSFA SCTEFA SCTPLD SCTANO SCTADA SCTPAGL SCTSEG R F B SCTSWB SCTNOS SCTNOP SCTPSZ SCTMMC SCTLACL SCTMMP SCTLAP F B SCTNPE SCTSTB SCTOPT SCTTCT
0x2b9558…2b96ec Dummy {f00=0x016e, f01=0x0190, f02=»:PA PAG:SB SWB:NC SWB:DS SWB:ELS SWB:NS0 z T:ACSB 4 SEG:ST F SEG:DSL Z SEG:EL n SEG:PBI PAG:QF PAG:QBV PAG:PA PAG:SB SWB:NC SWB:DS
0x2b96ec…2b9880 Dummy {f00=0x016e, f01=0x018e, f02=» IHSOP . IH1501W > IH1502 P CHLT1 b IHFDN r CHRT1 , ( CHRT2 CHRT3 CHRT4 , ( !
0x2b9880…2b9a14 (3, 27) Dummy {f00=0x016e, f01=0x0190, f02=» , ( Q , ( a 4 , ( q d HALTN SCTMSZK SCTSFA SCTEFA SCTPLD
0x2b9a14…2b9ba8 Dummy {f00=0x016e, f01=0x0190, f02=»CTSWB SCTNOS SCTNOP $ SCTPSZ 8 SCTMMC L SCTLACL ` SCTMMP t SCTLAP SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBU
0x2b9ba8…2b9d3c Dummy {f00=0x016e, f01=0x4092, f02=» SCTBLK SCTDCT , _ F |@ SCTNPE SCTSTB SCTOPT SCTTCT SCTCDT SCTBU
0x2b9d3c…2b9ed0 Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT TDISP REL 9.2 79-11-16 870105040920 8 4 TDISP MEXIT DISIOE DISEND DISQUE PRUNY RETUR8 R DISQUE PRUNY RETUR8 MEXIT EXITN DISIOE TENDIO
0x2b9ed0…2ba064 Dummy {f00=0x016e, f01=0x4130, f02=» (X0 @ P T x * & @ = M ]@ , ) A P P Y TTB:SA` F , ( W B U ( ) 5 > X TTB:PWN TTB:MT , ( q$$ > [ [ Z Z Z ? Z > W 9P O
0x2ba064…2ba1f8 Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT LRPINT 9.2DK 1 79-11-16 870105040920 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG IHLKM INTSAV PRUNN TTB:SA , ( A$ A
0x2ba1f8…2ba38c Dummy {f00=0x016e, f01=0x0190, f02=» SWL48 , ( 5 $P c P W P A LKMAL @ , ( Q V ( U P @ V P LKMERR x HALTN LKMRQE ~ * & mD L W @ U LKMQDI QTJOB
0x2ba38c…2ba520 Dummy {f00=0x016e, f01=0x0190, f02=» A Q | , ( _0 A < Q P Q Z MONCLO L MEXIT ` , ( Y _ 8 p FREBLK0 , ( Q Z P 0 9 _ TIMQUE@ , , ( @ _,
0x2ba520…2ba6b4 (3, 28) Dummy {f00=0x0177, f01=0x40f4, f02=» OA @ 0 ) A _ 6 6 A PFINIT 0 k$ > A _ B H D ! . %T 5P ;P ?W: EP, SV cP" iV qW * Q * Q b , ( , P ; ^ KQ v @ ( @ _,
0x2ba6b4…2ba848 Dummy {f00=0x0177, f01=0x0190, f02=» J F IDENT TPROC REL 9.2 79-11-16 870105040920 * & TWAIT TEXIT TACTOT TPAUSE TMWAIT R FNDDWT TWAIT DWTWAT TEXIT EXITN TDISP * & @ P "R Y W
0x2ba848…2ba9dc Dummy {f00=0x0177, f01=0x018a, f02=» P n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x2ba9dc…2bab70 Dummy {f00=0x0177, f01=0x4008, f02=»@ n TPAUSE TMWAIT 6 " DWTST 6 , ( 1@ _ <U "R P F DWTTAB v , ( MD@ X R X T X T . T , ( g G Y6 G _b P LKMRQE LKMQDI
0x2bab70…2bad04 Dummy {f00=0x0177, f01=0x0190, f02=» J F IDENT MSUBS REL 9.2 79-11-16 870105040920 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDTID PFINIT SWL48 SWLXY ILLINT INTSAV@ HALTY IHRET8 IHRET2 IHRET1 IHRTN SAVE8
0x2bad04…2bae98 Dummy {f00=0x0177, f01=0x0190, f02=»P T I v QMJOB J TTMJOB ( ACTOTP T : , ( ; R $ 5 % > ? W ? N ACTOT ~ TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SB, , ( s H U
0x2bae98…2bb02c Dummy {f00=0x0177, f01=0x0190, f02=» T P 0 U z GETBLK FREQUE . , ( _t ? @ T @ FREBLKL p * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P P > ?
0x2bb02c…2bb1c0 Dummy {f00=0x0177, f01=0x0190, f02=»W > _& @ 8 | * & K R Y T ? X D T FNDTID | J SCTTCTD ^ * & e W > _& W > 8 X W ? ` p , ( @ @ P $ H W IHRET8 IHRET2 IHRET1
0x2bb1c0…2bb354 (3, 29) Dummy {f00=0x0177, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x2bb354…2bb4e8 Dummy {f00=0x0177, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x2bb4e8…2bb67c Dummy {f00=0x0177, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x2bb67c…2bb810 Dummy {f00=0x0177, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x2bb810…2bb9a4 Dummy {f00=0x0177, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x2bb9a4…2bbb38 Dummy {f00=0x0177, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x2bbb38…2bbccc Dummy {f00=0x0177, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x2bbccc…2bbe60 Dummy {f00=0x0177, f01=0x018e, f02=»P l TDISP FNDDWT |TIO . , ( yI U XH > TTB:ID n , ( D #DP @ R XV Y TIODM , ( @ P T W X &P TTB:PW , (
0x2bbe60…2bbff4 (3, 30) Dummy {f00=0x0178, f01=0x0190, f02=» , ( - x '? Y T Y GETBLKP 4 QTJOB F , ( K W Y T # P W V , ( g Y P R R P P (@ (@ , ( " 2 X $? P $ > > , (
0x2bbff4…2bc188 Dummy {f00=0x0178, f01=0x0190, f02=» F :c" v TTB:MTE , ( ' H :b"? #" : C > B R ( , ( E Q P B P X , ( e 0$ T # R Q > , ( X B U H Q X D B , ( $ T C x > C
0x2bc188…2bc31c Dummy {f00=0x0178, f01=0x0190, f02=» U H B P P $ # , ( # Q > P * , ( C _0 # T p > P p (_H Z , ( c _2 B U DC:MOT , ( X > ? _ X T DC:MIN
0x2bc31c…2bc4b0 Dummy {f00=0x0178, f01=0x0190, f02=» Q M r , ( X D ( * & ) 1 > _" X X T B TTMJOBP p MEXIT QMJOB , ( B = U . TENDIO b , ( U@ Y _| ?(@
0x2bc4b0…2bc644 Dummy {f00=0x0178, f01=0x0190, f02=» 1 1 X P - M T , ( @ $ P _ T " # ( , ( p X L R P P (@ X , ( @ ^ X P P # P , ( ' @ T P 0P 1 FREBLK ACTOTPN
0x2bc644…2bc7d8 Dummy {f00=0x0178, f01=0x4154, f02=» x UW cP uP P P, T W P T T W4 GT MW UT H D ! YP ]W mP sR uP { }P Q P GQ~ QP0 WP* mT yQL } B H D ! U( Q2 T V b UJ P PL +Q 1P KT SP U T Rl H D ! U Q0 b sP& P P T T P PD
0x2bc7d8…2bc96c Dummy {f00=0x0178, f01=0x018e, f02=» J F IDENT SYSLDM REL 9.2 79-12-20 870105040920 SYSLDMK R SYSLDMK d SCTSFA x SYSBAS SCTEFA TCLASSV , ( I A SCLASS SAV
0x2bc96c…2bcb00 Dummy {f00=0x0178, f01=0x0190, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT: J , ( i @ 4 Y 5 X SAVE01f * & * _6 : @ TTMJOB SCTDMT , ( " ]
0x2bcb00…2bcc94 (3, 31) Dummy {f00=0x0178, f01=0x0190, f02=» . !TTP @ NXTBLK $ , ( T Y " !TTX" 6 SCTTCTW f , ( B$ A 9 A $ : @ $ x SCTDMI , ( %B @ P @ &" P #D " , ( A P #E " P #F
0x2bcc94…2bce28 Dummy {f00=0x0178, f01=0x0190, f02=»9B @ @ z * & T : SCTDML@ F SAVE04 X , ( @ (:B W * . !TTP j SAVE19E SAVE16E , ( W , N =H N W SAVE17T , (
0x2bce28…2bcfbc Dummy {f00=0x0178, f01=0x0190, f02=»W @ % P , ( Y P " U $ , ( w _2 T , ( P " U , ( _2 , ( A V * V ,P S
0x2bcfbc…2bd150 Dummy {f00=0x0178, f01=0x0190, f02=» % P p , ( 7 W @ % P " !TTT bREL @ , ( @ S 6 @ @ T N , ( m : @ ! ~ SCTADA SCTLAC PRGLG1 , ( $ P @ 8 @ : < CR
0x2bd150…2bd2e4 Dummy {f00=0x0178, f01=0x0190, f02=» h , ( @ !RRP @ ! T , ( 3 @ & P 3 8 , ( 3 YL @ @ h , ( 1 T : FREQUE SCTBLK , ( K @ B ` $ @
0x2bd2e4…2bd478 Dummy {f00=0x0178, f01=0x0190, f02=» @ T p , ( : P , ( H S S _ : . ! @ , ( TTP V W , p * & * P , ( _ SAVE03N
0x2bd478…2bd60c Dummy {f00=0x0178, f01=0x0190, f02=» H I K T , ( } + Y@ V 0 _j V , , ( Y " !TTX @ @ T P * & : , ( $ @ R @ , ( T P
0x2bd60c…2bd7a0 Dummy {f00=0x0178, f01=0x0190, f02=» W , P W N SAVE14G , ( K ( W P 0 , ( g G =h G V P V < ` , ( V N P W N _B V , ( $ W V , Yr " !TTX @ , ( @ T
0x2bd7a0…2bd934 (3, 32) Dummy {f00=0x0178, f01=0x0190, f02=» $ $ , ( % _. P V 4 SCTDCTN P , ( C U $ $ _. b , ( aH @ R @ @ ! P V SCTDMC SCTCDT * & y 8 8 8 @ T>B
0x2bd934…2bdac8 Dummy {f00=0x0178, f01=0x018e, f02=» V t , ( N _2 U V * & 8 8 8 4 D P B , ( ! L @ # P H I p , ( = K T + Y@ _`R , ( ]H @ @ R @ % P V , ( u
0x2bdac8…2bdc5c Dummy {f00=0x0178, f01=0x0190, f02=» * & V Z @ 0 V SAVE072 6 , ( P _ W ^ $ q > R H DWTECH x * & P >b W >b & 8P D P U SYSLOD , ( ` E W b V W R 9 , ( W
0x2bdc5c…2bddf0 Dummy {f00=0x0178, f01=0x0190, f02=» V j , ( o ^ -W H P U ` I @ % , ( P H I H T P H : , ( U V FU W j , ( F H < + + P , ( @ V : V X $ * & F !
0x2bddf0…2bdf84 Dummy {f00=0x0178, f01=0x0190, f02=» W R _ $ SAVE21S ( , ( qD W Z : W 4 f : SAVE23I j , ( @ h | , ( *T P _ / P , ( *_ *T P _ .P
0x2bdf84…2be118 Dummy {f00=0x0178, f01=0x0190, f02=» _ V 4P V f ] ~ , ( ; jW f P _ @ , ( U @ T N , ( o @ : N =H N 2 : N =H N ~ , ( 2 : &=H F 2 : F =H , ( F 2 : F =H F 2 :
0x2be118…2be2ac Dummy {f00=0x0178, f01=0x0190, f02=» ! n , ( P (W ( : ~ F , ( = v @ : < > , ( Y CRT @ ! P ` : @ E "W n SYSLDA * & sH ` : @ E " l H D !p P # N / N G &
0x2be2ac…2be440 Dummy {f00=0x0178, f01=0x0190, f02=» g uU P0 U PJ 5P ;W CP QT kT P T H D ! PP P T P 3T [P _ g {V T P H H D !m P r P ! )Ph 1 OP$ _P T R T P T H D ! * 7 r ? CPT Y a i P T
0x2be440…2be5d4 (3, 33) Dummy {f00=0x0178, f01=0x410e, f02=» P W P P W V W R W 3P@ AT@ x H D ! GP cP sW yP PD P( U P T !WR %T /W, 3T ?W ET QW 4 H D ! cR T P P T P$ P U P W 'P 3P =W IP [T P ( $ T P P P !W [T" cP qW @
0x2be5d4…2be768 Dummy {f00=0x0178, f01=0x0190, f02=» J F IDENT SYSLDA REL 9.2 79-12-21 870105040920 D @ JUMPY SYSLDA dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MMTAB TABBE MMEND MMDDIV BUFSIZ` SYSBUF M:REL F B SAVE01 SAVE120 SAVE03 SAVE04 S
0x2be768…2be8fc Dummy {f00=0x0178, f01=0x0190, f02=»9( SAVE20 SAVE21 SAVE22 SAVE23F SAVE24V x SAVE25 2 |REL D $ W W " T , ( 1 ; Z [ : : [ [ | SYSLDMP JUMPY , ( Q : SAVE0
0x2be8fc…2bea90 Dummy {f00=0x0178, f01=0x0190, f02=»AVE08 , ( o SAVE09 @ SAVE10 T SAVE11 h SAVE120 | SAVE13D SAVE22 SAVE25 M:REL SYSBUF BUFSIZ` , (
0x2bea90…2bec24 Dummy {f00=0x0178, f01=0x0190, f02=» p SAVE18 r SAVE19( t SAVE20 n 2 SAVE21 v F SAVE23F z Z SAVE24V | n MMDDIV MMTAB TABBE MMEND , (
0x2bec24…2bedb8 Dummy {f00=0x0178, f01=0x0190, f02=» U R $ )_ : , ( ? W W W W W $ , ( _ Q V V v x W T , ( V V v p R W V , ( W ^< _@ V _P V , ( V : V
0x2bedb8…2bef4c Dummy {f00=0x0178, f01=0x0190, f02=»:K W r t , ( ? Q R t , ( _ V > v : D , ( V W V ) : V t , ( <B W |P v v , ( : $ V |P v w , (
0x2bef4c…2bf0e0 Dummy {f00=0x0178, f01=0x0190, f02=» , ( ? <B V x V |P v , ( _ 1 v W V z ` _f V 4 , ( : W R R P W x d , ( @ _ V : " D P , ( W V P $;A^ D E D , ( P V
0x2bf0e0…2bf274 (3, 34) Dummy {f00=0x0179, f01=0x0190, f02=» ;B " , ( _ R P |P v $ CMPADR T , ( v : V W 0 : h , ( V P 9a _ " ( ) 8 ( ) , ( : " $ V P 9A _ 0 : W , ( W W ?A
0x2bf274…2bf408 Dummy {f00=0x0179, f01=0x018e, f02=» j SAVE8 , ( = 0 H W : ? ? SCTLAC J , ( ] R 0 ACTOT RETUR8P , ( y R P P B _ : , ( V ) v : 4P
0x2bf408…2bf59c Dummy {f00=0x0179, f01=0x0190, f02=» , ( ` V b pP , ( ` $ $ W H 4 , ( @ - L ) P _ " = d , ( E M D 4 Q _d * L , ( P m > = G V W , ( $ V E
0x2bf59c…2bf730 Dummy {f00=0x0179, f01=0x0190, f02=» @ @ x SCTPAG SCTNOPN * * & ! @ < , ( P P P P _ _ j SCTPSZ , ( D @ 9N @ :b @ :b , ( / V W U
0x2bf730…2bf8c4 Dummy {f00=0x0179, f01=0x0190, f02=» l SCTSEG , ( A A 9n A :B A , ( D @ .V N PAGQUE ~ , ( 3 S Y& P , ( S P , ( 3 _
0x2bf8c4…2bfa58 Dummy {f00=0x0179, f01=0x0190, f02=» @ W A & TDISP & , ( k : A ( > 6 , ( @ l : R W n f , ( V pT : N V l W H V ]" , ( " . nT W v W , ( D n V ~P
0x2bfa58…2bfbec Dummy {f00=0x0179, f01=0x0190, f02=» v G G v U , ( i v G v : P V & , ( : V ~P W x V , ( _$ 8 V V x % V v % : V , ( V > 9k! , ( P % _ V V W W
0x2bfbec…2bfd80 Dummy {f00=0x0179, f01=0x018e, f02=» f v ) G v , ( g v ` " W p W ~ pP , ( @ R P _ W ~ R F , ( $ X4 _ ` @ ` W v , ( P W ~ pP V W , ( % R , , (
0x2bfd80…2bff14 (3, 35) Dummy {f00=0x0179, f01=0x0190, f02=» f , ( c P * I W z ` p , ( P H - V I 8 , ( " R E R T h , ( E D E @ v H v , ( E > #_v W | , ( ;b W
0x2bff14…2c00a8 Dummy {f00=0x0179, f01=0x0190, f02=» , ( A 0 :C # : .=H N , ( D a : .=H N : 4 GETNUM d , ( N : d 8" x SYSLDA , ( BR _ ZY QY : $ @ , ( V H W z W | CR
0x2c00a8…2c023c Dummy {f00=0x0179, f01=0x0190, f02=» !TTP N x , ( 3 :H N TBT W W 2 " T , ( S @ N =H N H , ( s : @ ) T !TTXX !CCT x , ( @ X !UUT d W , ( 2 .:H N P V , (
0x2c023c…2c03d0 Dummy {f00=0x0179, f01=0x0190, f02=» h , ( / :b / W , ( O : W @ W D 8 , ( k V W W ` " h , ( W p @ pP " , ( 4X 1 R , ( @Z0
0x2c03d0…2c0564 Dummy {f00=0x0179, f01=0x0190, f02=» W V V >k 8 W , ( G W t V V : ( g x X H D ! W> 2 0 . 1 2 C S Y j V !W %U 1R g iQ@ R( l H D !e P z V U z V z M OQ QR ] _V V W V H D !
0x2c0564…2c06f8 Dummy {f00=0x0179, f01=0x4152, f02=» , P H D ! P P P P| ?V CW GU6 QT WW aP iP( mP qV uW yU H D ! Q P P V P4 P 7 B W x [ R T T" P %V X H D ! 0 3P _U {P V P P P0 P Pn /P 3 B = B AW GT eP Pl H D ! T R P R 'P
0x2c06f8…2c088c Dummy {f00=0x0179, f01=0x0190, f02=» J F IDENT LDTASK REL 9.2 79-12-06 870105040920 6 2 LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB PQEMTY R PQEMTY TTABLD , ( #L 1
0x2c088c…2c0a20 Dummy {f00=0x0179, f01=0x0190, f02=»AGQUEA , ( @ A ( @ PAG:QB > PAG:SB P * & % X H A ) @ H b TTB:MT , ( = D P 1 % E I L TLDS20 SEG:EL * & U U
0x2c0a20…2c0bb4 (3, 36) Dummy {f00=0x0179, f01=0x0190, f02=»CW , ( ( C 9b;BT SCTLAP : ECBBA L SCTPLDT , ( " C 0 @ # n * & W C U R C , ( W C R # R , ( _8
0x2c0bb4…2c0d48 Dummy {f00=0x0179, f01=0x4152, f02=»TB:SBH * & ) HT :" U U ( F QLTSWB X < , ( A M 0 - A Q '_D P QLTDSK ^ ACTOT LKMERR LT:SWB j & " Y W * , D @ @4 V ?P T
0x2c0d48…2c0edc Dummy {f00=0x0179, f01=0x4114, f02=» J F IDENT DWII01 REL 9.2 79-11-16 870105040920 DWII01K R DWII01K d ITADN x , ( IT:BUF @ , ,
0x2c0edc…2c1070 Dummy {f00=0x0179, f01=0x4114, f02=» J F IDENT DWIO01 REL 9.2 79-11-16 870105040920 DWIO01K R DWIO01K d ITADN x , ( IT:BUF @ , ,
0x2c1070…2c1204 Dummy {f00=0x0179, f01=0x4106, f02=» J F IDENT DW1501 REL 9.2 820414DK 870105040920 DW1501K R DW1501K d DC15AD x , ( DC @ 0 $ 0 @
0x2c1204…2c1398 Dummy {f00=0x0179, f01=0x0190, f02=» J F IDENT DRKB01 9.2DK 1 79-11-16 870105040920 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ , z DWTUTQ . KBADY DWTST * & @ ( ( ? X V Y TDISP LDR
0x2c1398…2c152c Dummy {f00=0x0179, f01=0x0190, f02=» C t DWTTP , ( q " 8!@P X P y W $ SETIMPL T , ( ` Y B P T B f , ( % X . $ 4 T % W STREG , ( X ,T ! P W Y . V
0x2c152c…2c16c0 Dummy {f00=0x0179, f01=0x0190, f02=»T W $ Y + v , ( C P Y )P Y (P T ! B , ( a Z W W ! * T ! F ECHEND v , ( D X P y Y C ! DISEND , ( 0 Z ! B , ( Z
0x2c16c0…2c1854 (3, 37) Dummy {f00=0x0179, f01=0x0190, f02=» T ! )_ W ! T "? 9 0 R Q > DWTBC * , ( 3 4 >_ <k$ Y T #? 0R : , ( Q R * W ?W X P $ <c ,P j , ( q $ , X R ;GV X P y LDREG , ( X , $4 P X .T ,
0x2c1854…2c19e8 Dummy {f00=0x0179, f01=0x4186, f02=» ~ H D ! h ( : V 'W@ 7U =P AP CR K Y cP o z uP$ {P W H D ! P T T W T P W V P R WV T H D ! T %P )W /P 5T 9W CPX IP OP ST W eW i kW o uT P H D ! T W P P
0x2c19e8…2c1b7c Dummy {f00=0x0179, f01=0x0190, f02=» J F IDENT DRTP02 REL 9.2 79-11-16 870105040920 TPADY R TPADY b , ( d t DWTOR , ( ! !"&';<>@^_ 9: X ! Y DISIOE DWTBC , (
0x2c1b7c…2c1d10 Dummy {f00=0x0179, f01=0x0190, f02=» , ( w ! W B W B L , ( # 9Q T W Q P X & V 8 DWTST h ECBRL x , ( T Y &W X ! T B , ( R Q B D ! V ! ! * & ! W ! !
0x2c1d10…2c1ea4 Dummy {f00=0x0179, f01=0x0190, f02=» , ( 5 T " T W Q " T ) ! , ( Q Y _ ! ! Y 8 , ( m @ &P Q W ! Y '" h * & _" _< ! _n ! _t B B , ( , ! T _ D ! , ( P ! P
0x2c1ea4…2c2038 Dummy {f00=0x0179, f01=0x0190, f02=»T ! L ,! :D" ! Y , ( 7 Y U ! _$ W , & ECBRC V , ( Q ! T ,' ! R !__U f , ( qHD C X ' W Y ! LDREG , ( _ X R U T X
0x2c2038…2c21cc Dummy {f00=0x0179, f01=0x0190, f02=»SP , ( @ B R _ , ( 4 ! ! ! " T : , ( "" ! ! ! ! j * & % 4 X ' 4 Y ' ! ! ( $ A @ " P ,$ , ! 4 H D ! 4 IP
0x2c21cc…2c2360 Dummy {f00=0x0179, f01=0x40d6, f02=» 9T =T ?W CQ GT Q , i oP qQ wW , T P P H D ! @ W V P RN Q PH P R: T2 3 =U MW4 UT gR mU {W H ( $ RT U TJ P T R T EP X @ P ,$ , ! 4 H D ! 4 IP
0x2c2360…2c24f4 (3, 38) Dummy {f00=0x017a, f01=0x0190, f02=» J F IDENT DRDY01 9.2DK 1 80-02-12 870105040921 DYADY ECHODY R DYADY j OUTPUT | , ( , ( !@ ! 8! P ! P P DISIOE , ( =
0x2c24f4…2c2688 Dummy {f00=0x017a, f01=0x0190, f02=» &_. 8$ T B 1 ! , ( B B U $ ! T _ 0 , ( U D ! T _ $$ X" X& ` GETCHR , ( X* C X`" E , ( P 8'0P E T ! T 9 , ( 5
0x2c2688…2c281c Dummy {f00=0x017a, f01=0x018e, f02=» X X & r , ( " X )# C V C ! , ( Y B ! Y _` C B , ( " _ " $ P X ' r , ( @ X ] ! , ( B 8! T ! ! ! , ( #
0x2c281c…2c29b0 Dummy {f00=0x017a, f01=0x0190, f02=» , ( @ ! W Y &_ Y & B , ( Y )U X ) T T W V X ' 4 , ( Y )U P R ! _ R d , ( _ ! Y ' " ! , ( 8!0T 8 !@P ! $ P , ( D ! !
0x2c29b0…2c2b44 Dummy {f00=0x017a, f01=0x0190, f02=» X " X &" v DWTST LDREG & , ( e Y )Q Y > X Z2<BR J 6 , ( ? Y 8" P ! f , ( @ ! T 8" P d ! Y , ( !" ! *0 ! X ! * & Y &
0x2c2b44…2c2cd8 Dummy {f00=0x017a, f01=0x0190, f02=» XW H z , ( % X $ X ! _ X $ X , ( ? 8! P ! _( X & ! ! H , ( _! Y _D X " X &" Y )U x , ( { W ! ! ! , ( @ Y 4 B U , (
0x2c2cd8…2c2e6c Dummy {f00=0x017a, f01=0x0190, f02=» h , ( ! ! ! 4 , ( ' ! V ! V 8 , ( C W :h ! 4 X )" X '# R h a 4 H > H D ! ` h p " )P 5P 9P ? N E OP _P cP. iT {R H D !0
0x2c2e6c…2c3000 Dummy {f00=0x017a, f01=0x411c, f02=»T N H D ! _ " aW kU wR yP W U T T W V U P" R R T H D ! P P ! H +T 7T iQ yR P T> P T P f R V P V H D !. P" W 3 f CP G f S " ] yU }W U R@ V " R 1V ?V CW _R
0x2c3000…2c3194 (3, 39) Dummy {f00=0x017a, f01=0x0190, f02=» J F IDENT DRRT01 9.2DK 1 79-11-16 870105040920 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLIN` CHLTON R H D ! OUTPUTN CHTAB LDREG LDREGE LDREGF STREG GETCHRC DWREMU LOCHAN * & RECHAN REMFC ECHRTN` ECHOY E
0x2c3194…2c3328 Dummy {f00=0x017a, f01=0x0190, f02=» J B t , ( B pU INTRT2 D , ( ; J BAB rU V , ( [ J B B pU , ( y J BQB rU INTRT3V , (
0x2c3328…2c34bc Dummy {f00=0x017a, f01=0x0190, f02=» j , ( pU J1BqB CHTAB " : , ( rU L DWREMU < | , ( / 4 V x DISIOE , ( O B " P Q :A H *P P TDI
0x2c34bc…2c3650 Dummy {f00=0x017a, f01=0x0190, f02=»T3 CHLT4 CHRT1 , ( 1 U A ? W A 0 CHRT2 ` CHRT3 r CHRT4 , ( ? W A ? W A ? W A , ( ? " U R ; V . , ( # T
0x2c3650…2c37e4 Dummy {f00=0x017a, f01=0x0190, f02=»P P P R 4T ] DWTST & , ( _ U X "0T + Y 6 , ( { W 8Z 4 U R ] U f * & # $P > R > 8' T Y DWTADRN RECADR DWTSB2 , ( $ X
0x2c37e4…2c3978 Dummy {f00=0x017a, f01=0x0190, f02=»TP , ( 8V X P y SETIMP : , ( ) W P 8R L , ( E R Y X Z ;BR 8 | DWTOCHf DWTOR , ( _ % =A Y T Z& _, X "' , ( { X
0x2c3978…2c3b0c Dummy {f00=0x017a, f01=0x0190, f02=» Z "X 8# T 8Z * & V X # T 8R X P y . DWTECB INTADR n , ( $ Y X "' $ X (@ , ( )@ L & ' T 4X <d$ _D $?:D" , ( G Y X P Y # P
0x2c3b0c…2c3ca0 Dummy {f00=0x017a, f01=0x0190, f02=» R T p DWTOTQ , ( T R X ( # X > P " , ( P P X XF _H R , ( W ? T T W , ( u > > E D E , ( = E S % ;DV " U D
0x2c3ca0…2c3e34 (3, 40) Dummy {f00=0x017a, f01=0x0190, f02=» Y Y x DWTA4 DWTA5 ( LDREG 8 , ( * Y , Y ._8 X XB Y J LDREGF z LDREGE , ( H X . X * X , X "' GETCHRC , ( $ 4 B U B ("
0x2c3e34…2c3fc8 Dummy {f00=0x017a, f01=0x0190, f02=» ] 8 W T W T ] _ , ( E P T V W 8V T P U * , ( e 8 ~ U Q P X H Z , ( & 5 U R " ] Y > , ( > V P X P (P CHLTON , (
0x2c3fc8…2c415c Dummy {f00=0x017a, f01=0x0190, f02=» ECHENDT 8 , ( W _ U 4XR XX 5 _b ECHOY < B , ( 9 H Y * Y , Y . X 9BV T DWTECH DWTWAT ECHADRG * & Q$ X 0 Y 2 X D ECHRTN` h TENDIOS
0x2c415c…2c42f0 Dummy {f00=0x017a, f01=0x0190, f02=» PJ P RL P +P /P =PD AP< GP0 KP, OR H D !H WT e oTp }WH R P4 R0 T T P P Wh T > H D !$ W V P )W 7 L =P CR GR [R iT q R P T& H D ! V2 T R P 1T UP _P iT }P P T
0x2c42f0…2c4484 Dummy {f00=0x017a, f01=0x409c, f02=»T T /W< 3Tr 5W 9T IP OV QWT n H D ! UV [P sQ2 uP R V P P W T R4 S P T W OV$ * kV v x @ P )W 7 L =P CR GR [R iT q R P T& H D ! V2 T R P 1T UP _P iT }P P T
0x2c4484…2c4618 Dummy {f00=0x017a, f01=0x018e, f02=» J F IDENT DRSOP1 REL 9.2 79-11-16 870105040920 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x2c4618…2c47ac Dummy {f00=0x017a, f01=0x0190, f02=» ECBCW ECBEL TENDIO $ , ( W"H X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x2c47ac…2c4940 Dummy {f00=0x017a, f01=0x403e, f02=» ;W GW W ]R V p (@ : X R C C 6 TDISP f SOPRY t v * & o ?A @ A. X DWSI01 , ( @ V 9_: DWSO01A
0x2c4940…2c4ad4 (3, 41) Dummy {f00=0x017a, f01=0x8190, f02=» J F IDENT DRFD01 REL 9.2 79-12-05 870105040920 FDADR IHFDY FDONY DWFD01 R FDADR v DWTOR , ( !P P X ! , ( Y X ! Y T & , ( ?
0x2c4ad4…2c4c68 Dummy {f00=0x017a, f01=0x8190, f02=» } A @ A. TDISP * , ( Y W A : , ( @ @ A. W ! * X X P ! j , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X P ! X X
0x2c4c68…2c4dfc Dummy {f00=0x017a, f01=0x8190, f02=»TOT 0 SST z , ( i X Y W 0 X Y Y , ( ! ! X ' P ! ! J , ( @ D ) P _ X " X ! T X z ECBCW , ( $ !& P B z z :C , ( P ! 9DV !
0x2c4dfc…2c4f90 Dummy {f00=0x017a, f01=0x8190, f02=» A ! _ Y , ( _ 4 ! P C ! ! ! (@ , , ( ! R _ ! 1 ;h 1 , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , ( 4 ! (
0x2c4f90…2c5124 Dummy {f00=0x017a, f01=0x8190, f02=»* ! ! ! T )W | , ( U W ! Xz ! ( - ! DWTA5 L , ( u ) W Y W Y Y Y Y ECBEL TENDIO * & H B S W W B C FDONY DWTA2 , (
0x2c5124…2c52b8 Dummy {f00=0x017a, f01=0x8190, f02=» 0B. X n , ( P y _^ _n , ( Y X P Y : ! > , ( ; ! X # P Y :A , X n , ( [B A Y @ B. X Y DWTECB , ( @ u Y Y X Y X '?
0x2c52b8…2c544c Dummy {f00=0x017a, f01=0x8190, f02=» , ( @ K & E % Y B K , ( $ X ;AR ;a X P Y 4 , ( P 7P < d * & % $ <C ! 9 4 X , ( A _ W B R X X P , ( ] W
0x2c544c…2c55e0 Dummy {f00=0x017a, f01=0x818e, f02=»_ 4 X # P _ 4 TASCII " , ( @(@ R D " 1_ W (@ 4 TEBCDI0 d , ( R 0 D $ ] _ ! 4 v , ( ! ;E :B 9A ! , ( 3 U P jW kQ 4 Y , (
0x2c55e0…2c5774 (3, 42) Dummy {f00=0x017b, f01=0x8190, f02=» f , ( @ 4 ! ( 4 X " 4 , ( @ ! ) 4 X P 4 8 DWFD01 f h , ( g | , ( , (
0x2c5774…2c5908 Dummy {f00=0x017b, f01=0x8190, f02=»P ]Pv R H D !z& aPz g d m s y Z H H W Wx F , P | W< H D ! p F F J , P , P | !T ) * +W / * Z H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P
0x2c5908…2c5a9c Dummy {f00=0x017b, f01=0x8190, f02=»PT s w { R 4 | * H D ! T . * V J j W0 W # ) b F H D ! T - 5Q 9 F ? E | I OT SWL YWP ] e R i o j s {W. P H D ! W P L N S W W f $
0x2c5a9c…2c5c30 Dummy {f00=0x017b, f01=0xc10c, f02=» f R@ & P & P P IW QRZ U , [P v H D ! aW kP sQ8 wU T, R( P Q W Q T P 0 P R 2 H D !> W R ) 3U 7 4 9P ?W EQ S * W qP R ~ ( $ k r Z P y @
0x2c5c30…2c5dc4 Dummy {f00=0x017b, f01=0x0190, f02=» J F IDENT DRIC01 9.2DK 0 80-01-02 870105040920 ITADY ITABRT IT:BUF R ITADY r IT:BUF ECBCW , ( / P P P .T B Y FNDTID`
0x2c5dc4…2c5f58 Dummy {f00=0x017b, f01=0x0190, f02=»R ( P H z , ( " R H P ' P P W T DWTSB1A H TENDIO Z ECBBA l * & ' P ! B | TDISP , ( $ # P G W G SETIMP , (
0x2c5f58…2c60ec Dummy {f00=0x017b, f01=0x0190, f02=» U ^ 9 1_N X , ( ! T @ P ( A _ ( Y , ( D A _ _x X T @ P ( A P , ( a _ ( Y _ _ i 9 @ ITABRT , ( _ H P P $ DWTECB * &
0x2c60ec…2c6280 Dummy {f00=0x017b, f01=0x4148, f02=» ECBEL , ( A F Z P U " C $ G $ 4 H H D ! . 3P 9 J =P AP ET OWx [P aP qR RN P P P W< f H D !Pa T6 P P W P P R: p Q P #T )P 3 0 , 8 OT U
0x2c6280…2c6414 (3, 43) Dummy {f00=0x017b, f01=0x0190, f02=» J F IDENT DRDC15 9.2DK 4 81-05-26 870105040924 . * DC15ADK IH1501 IH1502 DC15ON DW1500 R DC15ADK * & , ( C P P P 1P P W P DISIOEC
0x2c6414…2c65a8 Dummy {f00=0x017b, f01=0x0190, f02=» Y j SETIME , ( @ P P $_ ECBBA L ECBRL , ( _H _$ X 9 B Y B Y l , ( @ P @ @ ` TENDIO , ( @ P 0P _ % A A
0x2c65a8…2c673c Dummy {f00=0x017b, f01=0x0190, f02=» _ r DISEND , ( E _ B Y _N X $ , ( a P A Y W Y @ T , ( _x X X A Y _& , ( Y @ 0 A A _: X P , ( ( y Y W (P 0 )
0x2c673c…2c68d0 Dummy {f00=0x017b, f01=0x0190, f02=» , ( " 1 4 X R X T * & 7 X P , Y L C L C 4 , ( S > @ @ @ b , ( @ o A X _" X P y Y , ( @ X P T @ T A A , ( > A A A
0x2c68d0…2c6a64 Dummy {f00=0x017b, f01=0x0190, f02=» T l , ( P P ! , ( ? T T A P A T ! T < , ( _ ! T T ! T ! A I A l , ( P " ! _ ! , ( T " X ! _ ! A @ , ( P P
0x2c6a64…2c6bf8 Dummy {f00=0x017b, f01=0x0190, f02=» _: ! X6_Z A @ @ T , ( ? 1 R 0 2P P P A , TEBCDI * & @ _ @ 8 H @ P E P X n , ( { B R X P X T , ( P C C X T ! , ( W
0x2c6bf8…2c6d8c Dummy {f00=0x017b, f01=0x0190, f02=» @ A ! @ T @ P ! , ( "@ # ! @ T @ X W A I , , ( * C! @ @ @ , ( _ A ! @ XN ! T @ , ( P ! ! _h /T @ X @ P , ( ! ! A _ A
0x2c6d8c…2c6f20 Dummy {f00=0x017b, f01=0x0190, f02=» 4 @ P ! ! z * & B ! W @ T ! _ DC:MOT, H , ( @ 9 T _ A C Z , ( J U B B A A A A * & o A ! ! A _^_V @ P X , ( R X P T T
0x2c6f20…2c70b4 (3, 44) Dummy {f00=0x017b, f01=0x0190, f02=» T P P x , ( P P P 1 A @ , ( # ]6W P _@ @ @ E ! P H , ( C ! 4 _$ ! 2_l / A x , ( c T W ,W A A W W W , ( $D A A ! @ ! @ ! , (
0x2c70b4…2c7248 Dummy {f00=0x017b, f01=0x0190, f02=» h , ( " @ P R ~T }T , ( # T W ! P " ! " :A 8 , ( C *@ H T 0 ! W R ! h , ( * a A @ @ U Zx Q P , ( Q T 0 ! A 0 ! A ! , ( "
0x2c7248…2c73dc Dummy {f00=0x017b, f01=0x0190, f02=» A T 2P ! H ~ IH1502 , ( 4 ! A " ? _ I " P 2 , ( U@ A < A 4 A _$" b , ( ; P H B P W ! _ , ( @@ W ! L ! 1 4 A d @ ` DC15ON , (
0x2c73dc…2c7570 Dummy {f00=0x017b, f01=0x0190, f02=» , ( $ A > Z A , ( 4 A < ! 0 @ P ! ! 4 , ( R @ P a A 4 A A A d , ( / ?a :a# P @ @ @ O 4 , ( * Y A ! L T ! L A @ T:H
0x2c7570…2c7704 Dummy {f00=0x017b, f01=0x0190, f02=»"? H ! T "? H ! T 4 ABC , ( ? DEFGHI#.<(+!&JKLMNOPQR$]*);^-/ST $ , ( _ UVWXYZ@,%_>?0123456789:[ '=" T , ( , ( H D ! Z ~
0x2c7704…2c7898 Dummy {f00=0x017b, f01=0x0190, f02=» z ~ Q< +P G cP g n m v uWb H D ! P W P P P P # | )R2 1T* ;P& P P T J H D ! T W 0 V T #P 'P - H D ! R 3 h 9 ( ? V ATf ETb K } MP S | U
0x2c7898…2c7a2c Dummy {f00=0x017b, f01=0x0190, f02=»P P % L 3 ;T KP OP SP k z H D !@ mP u | wPF }R@ P T2 T W W( W" R T ^ T 6 H D !g P # + 1T 9Wj I P g l k u L {T P T& P H D ! ~ l T T< W T j P !
0x2c7a2c…2c7bc0 Dummy {f00=0x017b, f01=0x4190, f02=»P I 0 W X eT iW mW yW f H D !? }W W T T B B 6 T( } T T P T " H D ! H W PL R T T 'T0 +W, 1 T MT S T WW ]R a T oUH P T n H D ! 0 T T T B B L 6 T T PX " P =P EP GW H D !
0x2c7bc0…2c7d54 (3, 45) Dummy {f00=0x017b, f01=0x8190, f02=» P v T 4 T * l x H D ! =P6 CR0 KP OT$ ST [W gP T f T2 P4 PJ PL P 4 H D ! P. W P P @ T W !W /W 3W 7W G O d H D ! W d ] R c R o u F T( d d P d L W PL
0x2c7d54…2c7ee8 Dummy {f00=0x017b, f01=0xc0e6, f02=» P T d F T d H D !0 T PX P " )P MP UP WW [ P } P H D !9 P T 3P EP S W [ iP u y } U h l a h @ T( d d P d L W PL
0x2c7ee8…2c807c Dummy {f00=0x017b, f01=0x0190, f02=» J F IDENT EBCDIC 9.2DK 1 79-11-16 870105040920 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^
0x2c807c…2c8210 Dummy {f00=0x017b, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( /STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O JZlP}M] Nk`Ka z^L~no , ( A j {
0x2c8210…2c83a4 Dummy {f00=0x017b, f01=0x4140, f02=» J F IDENT DVTKB REL 9.2 79-11-16 870105040920 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ " ?
0x2c83a4…2c8538 Dummy {f00=0x017b, f01=0x0190, f02=» J F IDENT TIMER REL 9.2 79-11-16 870105040920 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x2c8538…2c86cc Dummy {f00=0x017b, f01=0x40ee, f02=» _ _< , ( S ? ^ 4 _ & TIMQUE V , ( qH @ 1 A _ P 9 h > > ( $ ~ T N : - 4 1 N 3 > P @ BLK@ LKMQDI
0x2c86cc…2c8860 Dummy {f00=0x017b, f01=0x0190, f02=» J F IDENT TMMLKM REL 9.2 79-11-16 870105040920 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x2c8860…2c89f4 (3, 46) Dummy {f00=0x017c, f01=0x4060, f02=»$ T %_< z O %_B P )U /U GT . R J@ MMU TLUSEG R TCHPAGK t TTB:MTL LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x2c89f4…2c8b88 Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT TLDSEG REL 9.2 79-11-16 870105040920 TLDSEGK TLDS15 TLDS20 R TLDSEGK t SCTNOS LKM030 SCTSEG , ( R @ U 9C @ TTB:SB@ SEG:D
0x2c8b88…2c8d1c Dummy {f00=0x017c, f01=0x4114, f02=» SCTMMP SCTNPE , ( 5B@ D " @ @ - U " SCTLAP` R TTB:MT d T:ACSBN v TTB:SA * & O _ 9B @ T W X g > R U %T /W. IU j
0x2c8d1c…2c8eb0 Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT TABORT REL 9.2 79-11-16 870105040920 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x2c8eb0…2c9044 Dummy {f00=0x017c, 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
0x2c9044…2c91d8 Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT MONTIM REL 9.2 79-11-16 870105040920 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ , ( $ P B $ 9H C ">h # TTB:SA L
0x2c91d8…2c936c Dummy {f00=0x017c, f01=0x40b4, f02=» P ?_" = > = > = =_D , ( R _ 00 > & <h$ P * > Z ( $ !P AP gP u yP R P r @ , ( $ P B $ 9H C ">h # TTB:SA L
0x2c936c…2c9500 Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT TASS REL 9.2 79-11-16 870105040920 D @ TASSY VOLCHE IXTASS TASBLK TASQUE TASTTA TASASB TASCVOC R F B TASVOL TASCXO TASSEX TASXLB TASFDB TASVRL TASVLEC TASVRN F B TASECB TASFIL TASTID TASMXAP T
0x2c9500…2c9694 (3, 47) Dummy {f00=0x017c, f01=0x0190, f02=» TASCVOC TASVOL TASCXO 0 TASSEX D , ( X TASXLB $ TASFDB 4 TASVRL 6 TASVLEC 8 TASVRN : TASECB < , ( !
0x2c9694…2c9828 Dummy {f00=0x017c, f01=0x0190, f02=» TASTBE T TASLFD# V , ( A , a TASCAQT n TTB:SA QTJOB , ( D H @ P 4 A U W A VOLCHE , ( ( A @ U : A V A
0x2c9828…2c99bc Dummy {f00=0x017c, f01=0x0190, f02=»% T < C z ECBRC , ( ( B P T W ' T I * , ( @ 8 =hP Y X P Z DWTVOL , ( 3 T Y H ! R , ( Q W 9a I T T 9a H E V DFTABE(
0x2c99bc…2c9b50 Dummy {f00=0x017c, f01=0x0190, f02=» : "' # TDISP ( , ( I ` @ P $ ) 5 8 MOV:US h , ( T A A R A b " z , ( A "" P U W , ( A P @ E "# P P
0x2c9b50…2c9ce4 Dummy {f00=0x017c, f01=0x0190, f02=» P W @ | , ( } 0 R ' F "R G FNDTID L , ( ) T @ D #D T G ^ DMTASSV ACTOT , ( W A J "R A J A 4 LKMQDI * & H
0x2c9ce4…2c9e78 Dummy {f00=0x017c, f01=0x4076, f02=» T P P U W P #P 'P 7W CR OV WT gP wW Rb R T W, R < `@ r
0x2c9e78…2ca00c Dummy {f00=0x017c, f01=0x018e, f02=» J F IDENT LKMAL REL 9.2 79-11-16 870105040920 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x2ca00c…2ca1a0 Dummy {f00=0x017c, f01=0x4096, f02=» TCHPAG , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x2ca1a0…2ca334 (3, 48) Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT TIODM REL 9.2 79-11-16 870105040920 D @ TIODM FDBLNK FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNRC R D @ FDBVTO FDBCEX FDBEXT EXTDMI EXTFC EXTLEN@ EXTBAS EXTELE D @ FDBLRN FDBNIF FDBEAL FDBCRL` FDB
0x2ca334…2ca4c8 Dummy {f00=0x017c, f01=0x0190, f02=» t , ( ! " , ( A # $ % D FDBLNK t FDBECB FDBSNR $ FDBRRO & FDBRLE ( FDBBLF * FDBTNRC + FDBVT
0x2ca4c8…2ca65c Dummy {f00=0x017c, f01=0x0190, f02=»ELE FDBLRN I FDBNIF H " FDBEAL L 6 FDBCRL` N J FDBKA P ^ FDBMIAT R p FDBADFN T FDBAI1 V FDBDBR ^ FDBMRN _ FDBMROV b FDBMEC d FDBKEY r
0x2ca65c…2ca7f0 Dummy {f00=0x017c, f01=0x0190, f02=» j @ D X TTB:ID , ( } P _ L !##P T 2 DWTST b , ( @ R $P U + U _ (@(@ r DWTOR ECBCW2 , ( ! I 2P ^ H L Y H ECBCW , (
0x2ca7f0…2ca984 Dummy {f00=0x017c, f01=0x0190, f02=» Y . B CRNGET ( , ( + Y I B Y J_ W : ECBFC j , ( G C P C W < C z , ( a! C _H H H S * & } W C C B B
0x2ca984…2cab18 Dummy {f00=0x017c, f01=0x0190, f02=» j DSUMOD , ( $ X _ X ` T I T J ECBEL J , ( P C X I X J Z * & S W C C W B ECBRC * & B Y IR Q X JU C bSQR C
0x2cab18…2cacac Dummy {f00=0x017c, f01=0x418a, f02=»#D ( * | ACTOT TDISP * DISEND : ( $ m , . 0 2 L H D ! | | | | | ! h # 8 % | ' | x H D ! + ) < + - / 1 & P P R P P | U | W N % |
0x2cacac…2cae40 Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT DMBUF REL 9.2 79-11-16 870105040920 J F " CURBUFK BUFLNK BUFDMI BUFFC BUFSNR BUFOR BUFSTA@ DMTGBU DMTRBUC R CLRBUF CURBUFK BUFLNK BUFDMI BUFFC BUFSN
0x2cae40…2cafd4 (3, 49) Dummy {f00=0x017c, f01=0x018e, f02=» DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x2cafd4…2cb168 Dummy {f00=0x017c, f01=0x4008, f02=»@ DMTGBU , ( @ , L T L P L " , ( T M Q M L V L A @ R HALTN , ( : T @ [ [ M M DMTRBUC CLRBUF , ( M A -(@ :
0x2cb168…2cb2fc Dummy {f00=0x017c, f01=0x0190, f02=» J F IDENT DMTASK REL 9.2 79-11-16 870105040920 ( $ DMTASKKdSQRdQSW DMTWM QIRNY QIRR R QIRNY ~ QIRR tQSW tSQR , ( ECBRL FDB
0x2cb2fc…2cb490 Dummy {f00=0x017c, f01=0x0190, f02=»R $ - _ " v , ( W P $ - : R $ - _ : Z TTB:TDC F , ( w $ -_ D U 0 X SCTCDT@ , ( W T ` U @ , FDBRRO DWTTDM TTB:ID , ( A
0x2cb490…2cb624 Dummy {f00=0x017c, f01=0x018e, f02=» PRUNN ECBBA MOV:SU $ , ( $ P @ Q (@ F 6 MONMMU f * & H : @ _ x DMTASKK FDBDBR , ( D > X P D "V , ( )
0x2cb624…2cb7b8 Dummy {f00=0x017c, f01=0x0190, f02=» , ( @ a ( ( W ( , ( A B W C X '? 4 , ( H X X )T d FDBSNR@ VLVRL , ( * X *T T , A ( FDBVTO DIVMOD
0x2cb7b8…2cb94c Dummy {f00=0x017c, f01=0x0190, f02=»LRBUFV , ( D F 4 6(@ _ FDBLRN > VTLRN P , ( D X X 8 U : X 8 U : ` FDBMIA , ( 5 $ ( ( T X X <P ECBFC , ( O F > T
0x2cb94c…2cbae0 Dummy {f00=0x017c, f01=0x0190, f02=» X W ` U @ H EARELB $ FDBCRL 6 , ( @ X W B H CRNQUE x * & D 4 5W P 0 @ F 1 A FDBEXT: EXTELER , ( F(@_ H J (@
0x2cbae0…2cbc74 (3, 50) Dummy {f00=0x017d, f01=0x0190, f02=» 4 P 9 6 , ( a J 4' ' 5 * FDBSTA Z , ( 4 P W , P ,' X X l , ( $ H J Z" J ) _ , ( (@ C > ( B ! @ , ( !$ ( F
0x2cbc74…2cbe08 Dummy {f00=0x017d, f01=0x0190, f02=» @ F R +P P X T$ T , ( V U W V R P $ , * & ; P W X X F * & U H X P @ Q MOV:USX , ( k @ (@ X + X "V P FDBMROU
0x2cbe08…2cbf9c Dummy {f00=0x017d, f01=0x0190, f02=» l CRNGETR CRNCIF , ( '? P P $ P 0 CRNCDF ` * & HH I ^ I ^ K ` K ` r , ( ` P P & P BW D EASETB: , ( % " T$ T V T bW E
0x2cbf9c…2cc130 Dummy {f00=0x017d, f01=0x0190, f02=» B B B B B B v H D ! ! B # % ' 3P 5R ;W IR WP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x2cc130…2cc2c4 Dummy {f00=0x017d, f01=0x4058, f02=»P P( P" P P P b !W )T 1T 7W GV MT d B@ TP aR U W T U W T 2 H D ! T( !Pj 'V" 7P =P AP WV, [P c p oW } B W T B TT ~ H D ! P W P CT$ MP cT k B }U0 Wf U WF W P
0x2cc2c4…2cc458 Dummy {f00=0x017d, f01=0x0190, f02=» J F IDENT DMTASS REL 9.2 79-11-16 870105040920 ( $ DMTASSK VTLRN VLVBA VLVRL SECTLEA R VLVBA ~ VLVRL VTLRN SECTLEA TASECB ECBBA ECBRC , (
0x2cc458…2cc5ec Dummy {f00=0x017d, f01=0x018e, f02=» : t TASMXAE TASASB & VOLCHE 8 , ( 7H@ A A " P "" J TASCVO z CLRBUF * & Q H P @ TASVOL ECBFC ECBRL ECBCW
0x2cc5ec…2cc780 Dummy {f00=0x017d, f01=0x0190, f02=» TASVLEP , ( L " TOP A " L TASVRL F , ( B A $ L C & @ $ X TASFIL , ( " A $Q @ A @ DMTRBU , ( ( B * D
0x2cc780…2cc914 (3, 51) Dummy {f00=0x017d, f01=0x018e, f02=» j , ( G & @ (T , ( a A " 0" : , ( U _ L !SSP !LL j TASCXOS , ( W L @ , A ,V TASSEXR TASXLBP , (
0x2cc914…2ccaa8 Dummy {f00=0x017d, f01=0x0190, f02=» FDBVTO , ( H 4 2% P R 6 X T R FDBMIA# J , ( 8 @ "T R :T @ ( , ( 6 4 2% P QFDBFL , ( = 2 < P % DWTST
0x2ccaa8…2ccc3c Dummy {f00=0x017d, f01=0x0190, f02=» E 3 P S F P S FDBRLE " FDBBLF 4 FDBNIF F * & F P S H P S J P % S X FDBKA FDBMEC * & L P & S N @ " S 8 DWTMEC , ( @ P S R B
0x2ccc3c…2ccdd0 Dummy {f00=0x017d, f01=0x0190, f02=»P @ , t EXTDMIH EXTLENT & , ( ! ! T W P . D Y T P 0 8 EXTBAS h , ( 9I Y V P 0 Y X U ! T z TASLFD , ( S ! X6 _R _V D Z" TASTBE , ( q$ P
0x2ccdd0…2ccf64 Dummy {f00=0x017d, f01=0x0190, f02=» @ 2 n , ( $P -W P B TASCAQ > QTJOB P * & @ * ` b(@( @ ` FDBADF& FDBDBR , ( ( _ d ` ` 9A EXTELE , ( D S f
0x2ccf64…2cd0f8 Dummy {f00=0x017d, f01=0x0190, f02=»MRN , ( =@ R J S W S p S p MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x2cd0f8…2cd28c Dummy {f00=0x017d, f01=0x4038, f02=»W P W P ES GW p "@ 4 MPYMODW < FDBMRO N , ( WB$ R H R J r S t ` o H D !%l P !Tn / d AP UP ] d P d Q< d _T u U P H D ! W V d T
0x2cd28c…2cd420 Dummy {f00=0x017d, f01=0x40ba, f02=» J F IDENT DFTAB REL 9.2 79-11-16 870105040920 DFTAB DFTABE R DFTAB j DFTABE | @ B PDFTABE EQU * P END @ P* P* P* LEVE
0x2cd420…2cd5b4 (3, 52) Dummy {f00=0x017d, f01=0x4172, f02=» J F IDENT DMFDB REL 9.2 79-11-16 870105040920 < 8 FDBSTAK FDBEND QFDBFL CRNQUE CRBUFL CRNEND MXIND R CRBUFL QFDBFL r FDBSTAK FDBEND : CRNQUE : ;
0x2cd5b4…2cd748 Dummy {f00=0x017d, f01=0x0190, f02=» J F IDENT DMINIT REL 9.2 79-11-16 870105040920 DMINITK R DMINITK d INIFLG x , ( =a 9a Q - _ - > QFDBFL FDBSTA FDBEND CRNQUE , ( !
0x2cd748…2cd8dc Dummy {f00=0x017d, f01=0x40da, f02=» h BUFDMIL BUFSNR BUFOR , , ( Q , - M M M @ < TASBLK l TASQUE ~ g$ A A > Q %PJ r @ FDBEND CRNQUE , ( !
0x2cd8dc…2cda70 Dummy {f00=0x017d, f01=0x0190, f02=» J F IDENT DMSUBX REL 9.2 79-11-16 870105040920 . * FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD R FNDKMXK MPYMOD * & 4U :! 4 U , ( 9 & ?! , (
0x2cda70…2cdc04 Dummy {f00=0x017d, f01=0x0190, f02=»V _ W W | RDNXTR GTBKBU 0 , ( @ : T ; [ V ( B DMTIOZ r FDBRRO , ( " T E W D FDBMROP FDBRLE , ( V ; [ _ D V
0x2cdc04…2cdd98 Dummy {f00=0x017d, f01=0x0190, f02=» GTLGRN# , ( D U E W ADDMODH B CALSNOT T DMTRBU f , ( ! @ P W x , ( =@ _ P [ FNDKEY d FDBMIA , ( Y Z
0x2cdd98…2cdf2c Dummy {f00=0x017d, f01=0x0190, f02=» FDBLRN , ( E E Z:Q , ( D D ZB W Z r @ , ( Q R W K ]d J _j @ W W p CRNUPD FDBADF FDBCRL , ( " : : " $
0x2cdf2c…2ce0c0 Dummy {f00=0x017d, f01=0x412a, f02=» U R ( R ( S ( m@ S (_P (@ : , H D ! UP U 3 r AU EP OP YW }P Q R V W W T. V T L H D ! W V V Wn U W 7P 9W KP T~ W Wh P0 Q W, Q , ( R W W W !W %PL 7R CQ
0x2ce0c0…2ce254 (3, 53) Dummy {f00=0x017d, f01=0x40ea, f02=» J F IDENT ADDMOD REL 9.2 79-11-16 870105040920 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ ,2,A14 B P OR.S
0x2ce254…2ce3e8 Dummy {f00=0x017d, f01=0x40ea, f02=» J F IDENT DSUMOD REL 9.2 79-11-16 870105040920 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x2ce3e8…2ce57c Dummy {f00=0x017d, f01=0x40ec, f02=» J F IDENT MPYMOD REL 9.2 79-11-16 870105040920 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ . P*
0x2ce57c…2ce710 Dummy {f00=0x017d, f01=0x40ea, f02=» J F IDENT DIVMOD REL 9.2 79-11-16 870105040920 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P RB(7) END1
0x2ce710…2ce8a4 Dummy {f00=0x017d, f01=0x0190, f02=» J F IDENT DMSUBR REL 9.2 79-11-16 870105040920 F B EATESTK EASETB EARELB CRNGET CALSNO GTBKBU GTLGRNL DMTIOT R . * CHKIND REQEND DMTIOZ MOV:US MOV:SU CHKIND , ( ? ? !? P P !> P W
0x2ce8a4…2cea38 Dummy {f00=0x017d, f01=0x0190, f02=»WTTQ , ( = R L X P L P 4 M QTJOB < DWTTDM L DWTST ^ , ( Y X M M n IHRTN EATESTK z FDBEALL , ( q _8 > D W 0P Q F
0x2cea38…2cebcc Dummy {f00=0x017d, f01=0x0190, f02=» X 1 Y : , ( 4W 0P R Q P FREQUEW P * & W R D Q ( 0 5 @ b CRNGET FDBCRL , ( 1 A Z> : D W (P CRNTID CRNQUE
0x2cebcc…2ced60 Dummy {f00=0x017d, f01=0x018e, f02=»SNO X FDBBLF , ( G I D ) E : T DIVMOD P FDBEXT~ b , ( _ $ &S P W X $ t EXTLEN FDBCEX , ( yH ( * U U *_ EXTBAS
0x2ced60…2ceef4 (3, 54) Dummy {f00=0x017e, f01=0x0190, f02=» , ( P X 2 _ W Y 4 : DWTECB 8 ECBRC J , ( D 6 8 B :P T Z FDBDBR ECBBA BUFDMIT , ( D$ G :W X < Y < B > DMTIOZ DWT
0x2ceef4…2cf088 Dummy {f00=0x017e, f01=0x0190, f02=» GTBKBU , EXTDMI , ( ) 8_ X , P H X 0 8 & SECTLE V ECBRL h DMTGBU x ECBCW , ( ? ! # J C L NW C BUFSTAH , ( Y P R C > X B%? : X
0x2cf088…2cf21c Dummy {f00=0x017e, f01=0x0190, f02=» MPYMODF , ( 0 D $ V T 2 T , ( 4 ^ S W B MOV:US r , ( : U ; $ T $ T $ T x : : , ( $ T $ ) ] $ ) Y _$ , ( U x 0 )_8 $_ $
0x2cf21c…2cf3b0 Dummy {f00=0x017e, f01=0x418e, f02=» Y _& (# )_4 $ ($ , ( ) YR_L U p 0_8 $ * _< Z H D ! P P P W #P 7P> ?R4 MP SP W P P W W P8 R l H D ! W R W P W6 'T ;U eSP mP qW U U. R P W P6 H D !
0x2cf3b0…2cf544 Dummy {f00=0x017e, f01=0x40be, f02=» J F IDENT CTAB02 REL 9.2 79-11-16 870105040920 CTAB02K R CTAB02K d , ( !"#$%& () +,-./ x @ DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x2cf544…2cf6d8 Dummy {f00=0x017e, f01=0x412a, f02=» J F IDENT PFTAB REL 9.2 80-11-12 870105040920 PFTAB R PFTAB b DC15ON t SOPRN CHLTONA FDONN FDON2 DMINITL & " UP
0x2cf6d8…2cf86c Dummy {f00=0x017e, f01=0x0190, f02=» J F IDENT DVKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x * & @ KB DVDY00 , ( %@ , ( C
0x2cf86c…2cfa00 Dummy {f00=0x017e, f01=0x4014, f02=» @ VKB00 REL 9.2 79-11-16 870105040920 DVKB00K R DVKB00K d KBADN x * & @ KB DVDY00 , ( %@ , ( C
0x2cfa00…2cfb94 (3, 55) Dummy {f00=0x017e, f01=0x4108, f02=» J F IDENT DVTP00 REL 9.2 79-11-16 870105040920 DVTP00K R DVTP00K d TPADN x , ( TP " @ 4 ( 4 @
0x2cfb94…2cfd28 Dummy {f00=0x017e, f01=0x4104, f02=» J F IDENT DVDY00 REL 9.2 79-11-16 870105040920 DVDY00K R DVDY00K d DYADN x * & DY % $ @ 8 , 8 @
0x2cfd28…2cfebc Dummy {f00=0x017e, f01=0x0190, f02=» J F IDENT DVKB01 REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBADN x CTAB02 , ( KB DVDY01 , ( %@
0x2cfebc…2d0050 Dummy {f00=0x017e, f01=0x4028, f02=» X - 0 / 0 @ $ REL 9.2 79-11-16 870105040920 DVKB01K R DVKB01K d KBADN x CTAB02 , ( KB DVDY01 , ( %@
0x2d0050…2d01e4 Dummy {f00=0x017e, f01=0x4104, f02=» J F IDENT DVDY01 REL 9.2 79-11-16 870105040920 DVDY01K R DVDY01K d DYADN x * & DY % P @ 8 , 8 @
0x2d01e4…2d0378 Dummy {f00=0x017e, f01=0x0190, f02=» J F IDENT SCLASS REL 9.2 80-11-12 870105040920 SCLASSK R SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x2d0378…2d050c Dummy {f00=0x017e, f01=0x4060, f02=» v 4 0 | " ( # ) B J@ SCLASSK d DWSI01 x DWSO01 DWII01 * & DWIO01 DW1501 DW150
0x2d050c…2d06a0 Dummy {f00=0x017e, f01=0x018e, f02=» J F IDENT SYSLOD REL 9.2 79-12-19 870105040920 & " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 SYSBAS SYSLODK SCTADA SCTPLD SCTANO * &
0x2d06a0…2d0834 (3, 56) Dummy {f00=0x017e, f01=0x0190, f02=» TABBE , ( 5@ @ ! P >B @ A @ , ( O E D P _ $ % D SCTMSZ t , ( m H $P _ % A @ , ( " Q A : , ( R W A A
0x2d0834…2d09c8 Dummy {f00=0x017e, f01=0x0190, f02=» SAVE04N , ( W F W F CRT F SCTPSZ J , ( $ A @ @ ! P @ ERROR , ( + P ;b=H F CR , ( I F W =J F CRT F SCTNOS(
0x2d09c8…2d0b5c Dummy {f00=0x017e, f01=0x0190, f02=» SAVE22A , ( $ P A Y W " @ " SAVE08 @ , ( T W $ @ R SAVE07 SAVE01` , ( V W Q & ( MMEND , ( *
0x2d0b5c…2d0cf0 Dummy {f00=0x017e, f01=0x0190, f02=»P , ( C :L A , W $ A . SCTNPE : , ( ] A 0W * L , ( y T F W V | , ( = V W Y* SCTMMC , ( P Z( =
0x2d0cf0…2d0e84 Dummy {f00=0x017e, f01=0x0190, f02=» SCTLAC * & ( @ @ 4 A 4 , ( # 6 $ @ 6 CR > MMDDIV n * & =! T @ P @ ! P W 8 @ SAVE06 , ( U 6 V :P _ @ ! P * & o @ !RRP V :
0x2d0e84…2d1018 Dummy {f00=0x017e, f01=0x0190, f02=» @ ! T _ ~ , ( P , , ( @ :l 8 89b ) N SAVE03 ~ , ( D V 8_ @ V W < W * & - $ P T V , ( I < 0 !;;P
0x2d1018…2d11ac Dummy {f00=0x017e, f01=0x0190, f02=» W W $ , ( W < V < 0 . , ( !;;P P V (Xb _ P ^ SAVE20 , ( !;;T X$ W < > , ( @P $XZ_V S A A , ( /!
0x2d11ac…2d1340 Dummy {f00=0x017e, f01=0x0190, f02=» M:REL LDALEN , ( } B V ( $ ) H , ( D A I. : C. P , ( X C.9h! # " , ( :A K : , ( A T I T P 1 I P <
0x2d1340…2d14d4 (3, 57) Dummy {f00=0x017e, f01=0x0190, f02=» 9A ! p , ( u 9B r @ r A I ! ( , ( : A A A A A ! T @ , ( A A I ! : 9E p , ( @ r s A I T ) , ( A _ I N T : , (
0x2d14d4…2d1668 Dummy {f00=0x017e, f01=0x0190, f02=» P F r , ( qA @ T X W @ : YX , ( d C !CCT B. X B , ( B.9 H Q _ 2_ !SST r SCTSWB , ( 0 U R X A H X SAVE25 , ( @ W J
0x2d1668…2d17fc Dummy {f00=0x017e, f01=0x0190, f02=» h , ( G@D V LT V LT W L , ( a P V & W & @ 8 , ( { $ P p W > T : A h , ( _ 0V , - P X 9A " _ : @ ! P (W ( : H D ! ;P$ [P oP Q R
0x2d17fc…2d1990 Dummy {f00=0x017e, f01=0x0190, f02=»P T #W /P 9T gW {T W V V W P P W V H D !0N W Q ' 7 =T CP MP _P mP q wP P PZ B H D ! T P V 1 5 9P = A ETJ WP ]P cP$ uT T H D ! 9 W N P P T P '
0x2d1990…2d1b24 Dummy {f00=0x017e, f01=0x40f0, f02=» . T T T r H D ! / . 9PJ CT@ IT: QTt YP _P$ uT TZ Q T& R W V W$ V . H D !! P #P ) 1W =P EV KT Q YT eP }P W T V P z P W @ P P T P '
0x2d1b24…2d1cb8 Dummy {f00=0x017e, f01=0x0190, f02=» J F IDENT DRFD01 REL 9.2 80-11-12 870105040920 4 0 FDADR IHFDY FDONY DWFD01 IHFD2 DWFD02 FDON2 R FDADR DWTOR , ( !P P X ! , ( Y X ! Y T &
0x2d1cb8…2d1e4c Dummy {f00=0x017e, f01=0x0190, f02=» SETIMP * & } A @ A. TDISP > , ( Y W A N , ( @ @ A. W ! * X X P ! ~ , ( ! W ! * _ ! * _& ! X ECBRL ECBBA , ( X
0x2d1e4c…2d1fe0 Dummy {f00=0x017e, f01=0x0190, f02=» I ! ! " 0 TOT 0 SST , ( i X Y W 0 X Y Y . , ( ! ! X ' P ! ! ^ , ( @ D ) P _ X " X ! T X ECBCW , ( $ !& P B z z :C , ( P
0x2d1fe0…2d2174 (3, 58) Dummy {f00=0x017f, f01=0x0190, f02=» DWTSB2L , ( A ! _ Y , ( _ 4 ! P C ! ! ! (@ @ , ( ! R _ ! 1 ;h 1 p , ( ! 1 ! ! * ! ! ! , ( ) ! Y # T X Y _ Y # , (
0x2d2174…2d2308 Dummy {f00=0x017f, f01=0x0190, f02=» 5 Q ! ! * ! ! ! T )W , ( U W ! Xz ! ( - ! 0 DWTA5 ` , ( u ) W Y W Y Y Y Y p ECBEL TENDIOC , ( $ Y S W W B C FDONY F
0x2d2308…2d249c Dummy {f00=0x017f, f01=0x0190, f02=» , ( @ Y X P 1 Y 0 Y , ( 1 0B. X P y _f 4 , ( @ _v Y X d , ( ; P Y : ! ! X # P Y :A , ( [ , X A Y @ B. X , ( w@ Y Y
0x2d249c…2d2630 Dummy {f00=0x017f, f01=0x0190, f02=»D2 , ( W A ? (@ X X Y P , ( X T $ D Y Y Y < , ( Y . E % Y Y Y l , ( $ X ;AR ;a X P Y , ( # P 7P < * & C $
0x2d2630…2d27c4 Dummy {f00=0x017f, f01=0x0190, f02=» T : B R ' P Q 9BW , ( Q 9C B ! T 4 z * , ( P ;A _ 4 X # P _ 4 Z TASCIIP , ( @(@ R D " 1_ W (@ TEBCDI , ( R 0 D $ ] _ ! 4
0x2d27c4…2d2958 Dummy {f00=0x017f, f01=0x0190, f02=» P n , ( Z _ 4 Y ;D Y 4 , ( R _ ;H 4 ! (:C > , ( @ 4 ! ( 4 X " 4 n , ( @ ! ) 4 X P 4 DWFD01 , (
0x2d2958…2d2aec Dummy {f00=0x017f, f01=0x0190, f02=» r DWFD02 ( , ( @ B K C B K < , ( - l , ( M , ( m
0x2d2aec…2d2c80 Dummy {f00=0x017f, f01=0x0190, f02=» s y Z H H W Wx d , P | W< H D ! p d d h , P , P | !T ) * +W / * > H D ! 3 9 ? E K O T YT cT o , qW } , * T * H D !q P P Tr Ph V T
0x2d2c80…2d2e14 (3, 59) Dummy {f00=0x015f, f01=0x0190, f02=» R | * n H D ! T . * V h j W0 W # ) b * H D ! T - 5Q 9 d ? E | I OT SWN YWR ] e R i o j s {W0 P v H D ! W P L N S W W W $ T $ H P
0x2d2e14…2d2fa8 Dummy {f00=0x015f, f01=0x4134, f02=» Z H D ! R@ & P & 'P 1P gW oRZ s , yP W P Q8 U T, R( H D ! O P Q W Q T P 0 P R W R # ) - 3 z b H D ! G z QU U R WP ]W cQ q * u P R r Z P
0x2d2fa8…2d313c Dummy {f00=0x015f, f01=0x018e, f02=» > @ IDENT DEBUGM REL 9.2 79-11-16 870105040920 dBUG F |BUG T , ( A U A @ * A d , ( ! A " @ ~ A A ~ @ , ( A A A @ A A @ , ( a A A
0x2d313c…2d32d0 Dummy {f00=0x015f, f01=0x0190, f02=» f , ( , ( $ ( , 0 4 8 , ( # 8 < h , ( C , ( c , (
0x2d32d0…2d3464 Dummy {f00=0x015f, f01=0x0190, f02=» T :a R T <a Z _ = , ( :A , >a @ ( , ( " # A P UW B X , ( C @ = / M Q , ( c R S T Y G P H L , ( V I U _v
0x2d3464…2d35f8 Dummy {f00=0x015f, f01=0x0190, f02=» P A A x , ( . , + - ; : , ( # X " H W X " H H H , ( C A A A _T @ P A 1+ x , ( !T c X A _ @ A @ A _ , ( ! A UP " , (
0x2d35f8…2d378c Dummy {f00=0x015f, f01=0x0190, f02=» h , ( 0 _, W , ( ! # W P @ & 0 8 , ( C T A P P h , ( c _b _J A , ( $T @ W @ , ( % T @ W
0x2d378c…2d3920 Dummy {f00=0x015f, f01=0x0190, f02=» _L W @ $ 0 , ( # W $ A W @ A ( , ( C P 3P X , ( c C @ P @ @ P @ Q , ( A $ @ A " T @ W @ , ( ( A A
0x2d3920…2d3ab4 (3, 60) Dummy {f00=0x015f, f01=0x0190, f02=» @ P x , ( # & @ A 9 Y , ( $ C *>a Y j c A A " H , ( P c & A *<a P j A x , ( @ ) " A H , ( U A @ & @ @ , (
0x2d3ab4…2d3c48 Dummy {f00=0x015f, f01=0x0190, f02=» h , ( # RE RN ME MN W R , ( C ( T ( W P T $ ; V 8 , ( c ; W &~ P &`P 6 P @ h , ( $ P $W $ T P , ( #~ > V . >A P Y X , ( W ^ ?
0x2d3c48…2d3ddc Dummy {f00=0x015f, f01=0x0190, f02=» ^ P _ " ^ , ( $ C T @ 9J A T _ 1@ _ ( , ( c ^ 9 V >! D A X , ( A > > > > > , ( > > > ^ _ ^ _ ? ? ? ? ? , ( A ^ @ ?
0x2d3ddc…2d3f70 Dummy {f00=0x015f, f01=0x0190, f02=» A > A x , ( C > A A ^ " , , ( c , A A :B A Q (P _ # # H , ( H A " A 0R x , ( 9U AR FQ 0:D A , ( _* A " A A , (
0x2d3f70…2d4104 Dummy {f00=0x015f, f01=0x0190, f02=» h , ( C $ T ! " A @ T , ( c 0W 0W A @ T 1W 1 8 , ( @ " P A UT @ W T h " @ W T @ W @ " , ( @ D H L P T X ` d h l p t x | , (
0x2d4104…2d4298 Dummy {f00=0x015f, f01=0x0190, f02=» /W : A W ! A A ~ , ( y P _ @ _ , ( I T " T N , ( A P I T ! A A A A A A ~ , ( A A @ A A @ , ( B A @ > @ _ $
0x2d4298…2d442c Dummy {f00=0x015f, f01=0x0190, f02=»V A n @ y H D ! ' 3 7 C G S W c g s w " H D ! P h L R h h : F # + P 1P 5W ; h ? L n H D ! C G Z I P M S W [ _ c g k o s w { H D !
0x2d442c…2d45c0 Dummy {f00=0x015f, f01=0x0190, f02=» p R H D !+^ T P T W 6 W Z W P F b W H D !5 #W +PP = b C IT M SP W f ] h a 0 i Z m F s : y h 8 P Z H D ! T W T W P F F 8 F F H D ! p Z W b %
0x2d45c0…2d4754 (3, 61) Dummy {f00=0x0166, f01=0x0190, f02=» ` Z P ) Z 7 8 = X U n c Z m } 8 n Z T P@ H D !x PB p p Z $ T AR, GT KW UT ]V mW~ uP yP }P P F H D ! < W TR PJ V P W P W P W & " W 3P H D ! 9 h IT UT ] kV o w {
0x2d4754…2d48e8 Dummy {f00=0x0166, f01=0x412c, f02=»U h # 4 + : / 4 9 P = T C X GT [ _ 8 v H D !, aT eW i mW q u 8 wT {W P& T W T 2 H D !)B W T W ?R EW" K h OW U h YW ]W aW eW k oW ~ H D ! u yPL } T T P T$ 'R> /P6 7T. =P EW ]T k
0x2d48e8…2d4a7c Dummy {f00=0x0166, f01=0x2008, f02=» L = KMD04 DATE = 80 08 05 1216PACK NBR = 0001 D C
0x2d4a7c…2d4c10 Dummy {f00=0x0166, f01=0x0190, f02=» $P y $W $ I8 6 ` Y $ B P T B % X . $ 4 T % W X ,T !) P W T Y . V F !+n B _T B P $$ R % C FWV Y *X ! 8$ P W 8$ P $ T W $ Y +PX Y )P Y (P T F !+n B Z W FW ! * T !+n X
0x2d4c10…2d4da4 Dummy {f00=0x0166, f01=0x0190, f02=» _ P F _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X $P y $ ) X , $4 P T X .T * W Y , - Y $ X Z @_8 B 1 " W XT 0 (@ >
0x2d4da4…2d4f38 Dummy {f00=0x0166, f01=0x0190, f02=») W B W$ B L # 9Q T W Q P X & V T Y &W l X ! T6 B R0Q$ B D ! V !) !) !) W ! ! Y !) T !) V !) B C !) !) T " T W Q " T ) ! v Y _ !) ! l Y &P Q W !) Y '
0x2d4f38…2d50cc Dummy {f00=0x0166, f01=0x0190, f02=» Y 4 RNQ " PH _ " P R: M T2 !) L ,! :D" ! T Y Y U !) _$ W4 , ! T ,' ! R !__U C X ' W Y !) _ X RT U TJ ) X ? Y X P " !) Y ' !) X T !) R _ 4 !)
0x2d50cc…2d5260 Dummy {f00=0x0166, f01=0x0190, f02=» ! !) 8! P !) P P ! & B P B H " +P P. T Y ' !) R X ( Y &R Y & _ Y &_. 8$ T B 1 #` !) " B B U4 $ ! T _ U D ! T _ $$ X" X& X* C ) ! X`" E P( 8
0x2d5260…2d53f4 (3, 62) Dummy {f00=0x0166, f01=0x0190, f02=» X &" X )# C V C !) Y B !) Y _` C _ ) ) " $ P X ' X ] !) " B 8! T !$ !# !) ! !$ R !) _ B !$ V Z, !) _ 8! T B Y & !# W B Y (U X ( X & R P !) W Y &_
0x2d53f4…2d5588 Dummy {f00=0x0166, f01=0x0190, f02=»!@P !) $ P !) !) " !) T Y & T X & C X Y & Y > X " X &" Y )Q Y > X Z2<BR J ) ? Y 8" P !) !) T> 8" P d !) Y !) *0 !) X !) Y & Z ! T _ !) X $ P !#* R V
0x2d5588…2d571c Dummy {f00=0x0166, f01=0x0190, f02=»W !) !) !) Y 4 B r U )X R@ X X &" Y * X ) V Y !# X $ X & !# X * r `R Y !) !) !) 4 !) V !) V W :h !) 4 X )" X '# R 4 " > J B B
0x2d571c…2d58b0 Dummy {f00=0x0166, f01=0x0190, f02=» rU J!B!B pU J!BaB rU J1B1B pU J1BqB rU $2 $D$f$ $ $ $ % %2 %~ % % B " P Q :A H% P P H !@T I T ! 1
0x2d58b0…2d5a44 Dummy {f00=0x0166, f01=0x0190, f02=»# PJ P ' ' RL P 4 ] P $ P ] U PD P< P0 P, R 4T ] U ( X "0Tp+ Y WH 8Z (: 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh (J T # ( Y U T
0x2d5a44…2d5bd8 Dummy {f00=0x0166, f01=0x0190, f02=» ' X & 4X< XB U T &~ T U 5 U R " ] )4 ;h # <c$ P X X " Z & "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P & 4T U 'z # P
0x2d5bd8…2d5d6c Dummy {f00=0x0166, f01=0x0190, f02=»X XF _H Wj ? T T I8) W u > > E D E E S( % ;DV " U D $ P #`P T E %n_ " P T 8! P6 * Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A
0x2d5d6c…2d5f00 Dummy {f00=0x0166, f01=0x0190, f02=» 8 ~ U Q2P X H 5 U R " ] )4 Y > > V P X P P _ ] W Q Y _: @%T T * P%TX R4 @ U S )4 U t " D P D T U W _ U 4XR XX 5 * _b Y Y Y X 9BV$ X & Y " X D V
0x2d5f00…2d6094 (3, 63) Dummy {f00=0x0167, f01=0x0190, f02=» C ?A @ A. ,8 X V 9_: + ,L @ + ,p / 0 E %n_ " P T 8! P Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A
0x2d6094…2d6228 Dummy {f00=0x0167, f01=0x0190, f02=» 8 ~ U Q2P X H 5 U R " ] )4 Y > > V P X P P _ ] W Q Y _: @%T T * P%TX R4 @ U S )4 U t " D P D T U W _ U 4XR XX 5 * _b Y Y Y X 9BV$ X & Y " X D V
0x2d6228…2d63bc Dummy {f00=0x0167, f01=0x0190, f02=» C ?A @ A. ,8 X V 9_: + ,L @ + ,p E %n_ " P T 8! P Y Y P 0 P P .T B Y Wx B ^ P X P ( ( 7 R ( P H RN H P '
0x2d63bc…2d6550 Dummy {f00=0x0167, f01=0x0190, f02=» Q (P H U ^ 9 1_N X T @, P ( A, 1& _ ( Y _ , _x X T @, P ( A, 1&_ ( Y _ , _ i 1 9 @_ 1( H , P , P $ $ 1 ) > ) $P e % > (@ B Z F U F Z , P U C G 4
0x2d6550…2d66e4 Dummy {f00=0x0167, f01=0x0190, f02=» X P Wj B " P HGd:H B # LGd 9 B Y B Y = P8 @G Gd @G `G @G P 0P _ % AG AG" Y 3 _| B QZ 2 3V_ X P 0 Y P C _ 2 _ B ! P Y _R X ! X 3 _ B Y _l X P A2 I62 Y Wb Y @_
0x2d66e4…2d6878 Dummy {f00=0x0167, f01=0x0190, f02=» 1_ 1| (X( P _ 0 )_6 4 _2 4 _$ (P _ ) 1 4 = X R2 X T* X P& , Y L C L C > @1z @1v @1x A1xX _" X P y Y X P T 3l @4p T A4r A4p > A4R A4V A4Z A4^ A4b 4fW >
0x2d6878…2d6a0c Dummy {f00=0x0167, f01=0x0190, f02=»TR !; TL !; TD T@ !; T8 !; A I A4| P " 7 !; 8 _ !; T = 7 " X !; _ !< A4z @4rP @4pP !8 A4r A4t_ !< @4tP @=NX@ !8 T< A4x !9 4 @4rP @=NP @4p 54 8 !7 !8 A4|_: !; X6_Z A4x @=N @4 T 1 R 0 2P P P A4 3B
0x2d6a0c…2d6ba0 Dummy {f00=0x0167, f01=0x0190, f02=» W( W" X R X T !3 3 !9 4 X ! X !9 WB A4t @4n X A4z A4p A4| @4 A4 8` !< @4rT @4tP !9 4 !< @4rT @4tX Wx A I 46 I67 4P @4p @4x 8 @4 @4 A4 8n !< @4rXV !; T @4|P !9 !< _p /T, @4|X @4vP @4xT0 !
0x2d6ba0…2d6d34 (3, 64) Opaque[0x194]
0x2d6d34…2d6ec8 # DirEnt {nam=»M:FD2 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1cf0, f03=0x0000}
0x2d6d34…2d6ec8 IdxSect {
0x2d6d34…2d6ec8 f00 = 0x00e7 // 0x2d6d34 @0x0
0x2d6d34…2d6ec8 f01 = 0x001a // 0x2d6d36 @0x2
0x2d6d34…2d6ec8 gno = [ // 0x2d6d38 @0x4
0x2d6d34…2d6ec8 [0x00]: C0x00e7.0x2.0
0x2d6d34…2d6ec8 [0x01]: C0x00e7.0x3.0
0x2d6d34…2d6ec8 [0x02]: C0x00e8.0x0.0
0x2d6d34…2d6ec8 [0x03]: C0x00e8.0x1.0
0x2d6d34…2d6ec8 [0x04]: C0x00e8.0x2.0
0x2d6d34…2d6ec8 [0x05]: C0x00e8.0x3.0
0x2d6d34…2d6ec8 [0x06]: C0x00e9.0x0.0
0x2d6d34…2d6ec8 [0x07]: C0x00e9.0x1.0
0x2d6d34…2d6ec8 [0x08]: C0x00e9.0x2.0
0x2d6d34…2d6ec8 [0x09]: C0x00ee.0x0.0
0x2d6d34…2d6ec8 [0x0a]: C0x0153.0x0.0
0x2d6d34…2d6ec8 [0x0b]: C0x0153.0x1.0
0x2d6d34…2d6ec8 [0x0c]: C0x0153.0x2.0
0x2d6d34…2d6ec8 ]
0x2d6d34…2d6ec8 }
0x2d6ec8…2d705c Dummy {f00=0x00e7, f01=0x0190, f02=»j d J h h h h h h h h B n D$ h h h h h h h h hD$D0 h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h h n c @ Tg t z ^ b bLPL H b2 Z ` z
0x2d705c…2d71f0 Dummy {f00=0x00e7, f01=0x0190, f02=» 4c @S{ D d 2Z $"z y B % y D Dbf d * F :P }B W [~ ? d j% L "~ T &b ICn 1 d _ A d " LR _ @LR > > U # T @ H ( ( P c P W: P, ALR @ V ( U P" @*:V L*:W @*L
0x2d71f0…2d7384 Dummy {f00=0x00e7, f01=0x0190, f02=» 6 8 LX Q Z P 0 9 t t_ $ @ _, ? P H H #P h A d A FQ ? @LP : ) ALP_ @ @ A H ( ALR_ ? ? ? ? ? ^ A _ _ ^ LP $P T I R $ 5 % > ? W ? W ? T T$ U U U U
0x2d7384…2d7518 Dummy {f00=0x00e7, f01=0x0190, f02=» Q Q > > 0 @L, 1 AL, P P > ? * X " R" Y T ? X D * T> ; W8 > _& @ 8 R" Y T ? X D * T ; W > _& W2 > 8 X W( ? ` @ @ P $ H W W > > > > > > @?vV ? ?v > _ > ? _ > > ? ^ ! Y ^ _ n ?
0x2d7518…2d76ac Dummy {f00=0x00e7, f01=0x0190, f02=» < $ ( , 0 4 8 < C 8W T 8P Y ^ 5 ) P U Lp XH D #DP @ R XV Y @ P, * T W X &P T X I Y T # C C W4 O " # X Y ) C
0x2d76ac…2d7840 Dummy {f00=0x00e7, f01=0x0190, f02=» P j$ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X
0x2d7840…2d79d4 (3, 65) Dummy {f00=0x00e7, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ H ^ > > ? _ X T X X T % T ?C L Rl _@(@ L U L Q0 M & X
0x2d79d4…2d7b68 Dummy {f00=0x00e7, f01=0x0190, f02=» 0P X T 4 Y X * X T X ; 1 1 X P - M T $ PD _ T " # p X L R P RP (@ ^ X P8 P0 # P T P 0P 1 _ t W Y > > L2J B B L:J B B pU
0x2d7b68…2d7cfc Dummy {f00=0x00e7, f01=0x0190, f02=»B!B pU L>J!BaB rU L@J1B1B pU L@J1BqB rU 0 R t j p B " P Q :A H HP P Lh H !@T I Lp T ! 1 U Ll A d ? W& A d ? W
0x2d7cfc…2d7e90 Dummy {f00=0x00e7, f01=0x0190, f02=» P 4 ] P $ P ] U PD P< P0 P, R 4T ] U X "0Tp+ Y WH 8Z & 4 U R ] U # $P4> R0> 8' T Y X ' T P X P " >Wh 6 T # Y U T ] W 8V 6 X $P
0x2d7e90…2d8024 Dummy {f00=0x00e7, f01=0x0190, f02=» j T U 5 U R " ] Lp ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X $P y $ Y $ X ' X (@ L ' T 4X <d$ _D $?:D" Y X P Y # P 4T U f # P 4 4 P _r T _$ U _
0x2d8024…2d81b8 Dummy {f00=0x00e7, f01=0x0190, f02=» ) H W u > > E D E E S( % ;DV " U D $ P #`P T E Lp Z_ " P T 8! P6 Y Y Y Y _8 X XB Y X X X X ' 4 B U B (" W C (@ > ?" 8' ?A B R 8;b# 4T RT
0x2d81b8…2d834c Dummy {f00=0x00e7, f01=0x0190, f02=» 5 U R " ] Y > > V P X P P _ ] W Q Y _: @ @ T P @X R4 @ U S U t " D P D T U W _ U 4XR XX 5 _b Y Y Y X 9BV$ X & Y " X D V & X
0x2d834c…2d84e0 Dummy {f00=0x00e7, f01=0x0190, f02=» $ X V 9_: 8 @ P T 8! P Y Y Y P, P P 1P( P W P P 5P Lh Lp X P W B " P H((:H B # L(( Y @ jP P $_ ) _H
0x2d84e0…2d8674 (3, 66) Dummy {f00=0x00e8, f01=0x0190, f02=» P 0 Y P C x_ _ B Y _N Ll X P A ) Y Wb Y @_x X X A ) Y _& Y @ P 0 A R A P_: X P ( y Y W (P 0 ) > n (P _ ) 1_ n (X( P _ 0 )_6 (P _ ) 1 4 X R2 X
0x2d8674…2d8808 Dummy {f00=0x00e8, f01=0x0190, f02=» T A R A P > A 2 A 6 A : A > A B FW > ! 2B ! T P P x ! Tf Tb A P A TR ! TL ! TD T@ ! T8 ! A I A P " t ! _ ! T 8
0x2d8808…2d899c Dummy {f00=0x00e8, f01=0x0190, f02=» ! A _: ! X6_Z A X @ @ hT 1 R 0 2P P P A f 2 @ N 8 H)( @ P E PF X R@ X P X T2 P C C X T ! vW xW( &W" X R X T & ! v ! r_ A T @ N X A Z A P A @ p A p ! z @ RT @ TP
0x2d899c…2d8b30 Dummy {f00=0x00e8, f01=0x0190, f02=»T& @ X @ VP ! ! A Z_ A < A R @ VT _, _0 @ RT<W r @ T ! _ ! Z ! _ A T A f H)( E A X A N 4 @ RP ! ! J r ! &W r @ nT ! _ T _ ` A P $d C P B B A b A d A f A V A X ! ! J A R_^_V @ PP6 X R0 X P
0x2d8b30…2d8cc4 Dummy {f00=0x00e8, f01=0x0190, f02=» P P. 1 A f @ f ]6W P _@ @ @ f E ! P ! 4 _$ ! 2_l / A T W ,W A n A oW W W A n A o ! ( @ n ! @ o ! ! ! B J 4 ! ( ! @ b @ f A h @ fT( @ ! 8 ! @ ZP - ! x !' W 0 " @ ZPL
0x2d8cc4…2d8e58 Dummy {f00=0x00e8, f01=0x0190, f02=» Q T 0 ! A f 0 ! A f ! " ! " ! A V _" B J B ! ! 4 A d ? 0J T A ^T 2PX ! H(( 4 ! z r A d ? 0_ I " P A X z A l 4 A _$" P H)(B P W ! Lp_ ! ! 1 4 A @' `' @' P 0 M A
0x2d8e58…2d8fec Dummy {f00=0x00e8, f01=0x0190, f02=» ! @ RP ! ! J r @ lP a l A l 4 A A A ?a :a# P @ @ @ 4 T A ^ ! ! A ^ @ :H 4 v !< @ b @ f A h @ fT @ ! 8 ! @ ZP - ! x ! W 0 " @ ZP
0x2d8fec…2d9180 Dummy {f00=0x00e8, f01=0x0190, f02=» Q T 0 ! A f 0 ! A f ! " ! " ! A V _" B J B ! ! 4 A d ? 0J T A ^T 2P ! H 4 ! r A d ? 0_ I " P A X z A l 4 A _$" P H B P W ! _ ! ! 1 4 A @ ` @ P 0 M A
0x2d9180…2d9314 (3, 67) Dummy {f00=0x00e8, f01=0x0190, f02=» ! @ RP ! ! J r @ lP a l A l 4 A A A ?a :a# P @ @ @ 4 T A ^ ! ! A ^ @ :H 4 v !< @ b @ f A h @ fT @ ! 8 ! @ ZP - ! x ! W 0 " @ ZP
0x2d9314…2d94a8 Dummy {f00=0x00e8, f01=0x0190, f02=» Q T 0 ! A f 0 ! A f ! " ! " ! A V _" B J B ! ! 4 A d ? 0J T A ^T 2P ! H 4 ! r A d ? 0_ I " P A X z A l 4 A _$" P H B P W ! _ ! ! 1 4 A @ ` @ P 0 M A
0x2d94a8…2d963c Dummy {f00=0x00e8, f01=0x0190, f02=» ! @ RP ! ! J r @ lP a l A l 4 A A A ?a :a# P @ @ @ 4 T A ^ ! ! A ^ @ :H 4 v !< @ b @ f A h @ fT @ ! 8 ! @ ZP - ! x ! W 0 " @ ZP
0x2d963c…2d97d0 Dummy {f00=0x00e8, f01=0x0190, f02=» Q T 0 ! A f 0 ! A f ! " ! " ! A V _" B J B ! ! 4 A d ? 0J T A ^T 2P ! H 4 ! r A d ? 0_ I " P A X z A l 4 A _$" P H B P W ! _ ! ! 1 4 A @ ` @ P 0 M A
0x2d97d0…2d9964 Dummy {f00=0x00e8, f01=0x0190, f02=» ! @ RP ! ! J r @ lP a l A l 4 A A A ?a :a# P @ @ @ 4 T A ^ ! ! A ^ @ :H 4 v !< @ b @ f A h @ fT @ ! 8 ! @ ZP - ! x ! W 0 " @ ZP
0x2d9964…2d9af8 Dummy {f00=0x00e8, f01=0x0190, f02=»FGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>?0123456789:[ '="' ' ABCDEFGHI#.<(+!&JKLMNOPQR$]*);^-/STUVWXYZ@,%_>? 123456789:[ '=" abcdefg
0x2d9af8…2d9c8c Dummy {f00=0x00e8, f01=0x0190, f02=»89:#@'= 7- <=2&p ?' @O JZlP}M] Nk`Ka z^L~noj {|[_m TOSS T ) ) ) Lp P ) ) ) _ t _< ? ^ 4 _ P P @ 6 1 A
0x2d9c8c…2d9e20 Dummy {f00=0x00e8, f01=0x0190, f02=» # $ % "$&( * *f @ D X P _ L !##P T @ R $P U + U _ (@(@ I* P ^ , H* Y H*h B # X ( U , B r > W Y & Y $ 0 Y . , < , B Y I B Y J_ W
0x2d9e20…2d9fb4 (3, 68) Dummy {f00=0x00e8, f01=0x0190, f02=» H TP L P B r L ( > $ X _ X ` T I T J ;R P C X I X J S W C C W, B B Y IR Q X JU C '? T W6 = T.(@(@ P #D a - Lp Ll. . 2"2"2"2"2"0 0 .x2"0 .x2"2"2"2"0 0 .x F X (P R X
0x2d9fb4…2da148 Dummy {f00=0x00e8, f01=0x0190, f02=» , @ W : X & X P !##T Y T( X P P P @LR Q (@ F > : @ _ LR ( H > - X &Pj D ^V" D "? P P &P E ^ = V, P ( .P( ( W - = 2" B W C X '? , X & X ( )T 2"
0x2da148…2da2dc Dummy {f00=0x00e8, f01=0x0190, f02=» & X I U X J U ( = T$ X X RP F -` T 2" P ` U0 @ , D !##X D ( * ]" 0 X Wf ` U @ H @ X WF < N 4 5W P 0 @8 1 A8 (@_ 1 (@ 0D / O $P %
0x2da2dc…2da470 Dummy {f00=0x00e8, f01=0x0190, f02=»X 1 Z" ) / _ (@ C ( B ! 2" / @- F U G F G - 2 & ( F " F +P P* X $ T <: U W <: R P> $P8W 2" X ( X & F X P @LR Q (@ > + X ^V" P "P8 $P4W X & X bT( ;AR
0x2da470…2da604 Dummy {f00=0x00e8, f01=0x0190, f02=» P & P < W D $ T <: T <dW E I E J X ^V ? T B i &(@( `8 B B P ! Tn M 5 : 2J A`H A`J" P ` "" ` P 5 `8 @` i (@ D` C C C i|W C ( 2J 2L L " TOP 5 A`6 L
0x2da604…2da798 Dummy {f00=0x00e8, f01=0x0190, f02=» @` D` i|W C C ( 2J 2L `2 ` @`FT A`6 0" 5 5 U _ L !SSP !LL 5 W L @` A` V 5 P E` @` E` P E` P E`" D` T `0P 5 6 2% P( R 0 X` T R , @`6T R RT @`F 5 5 6
0x2da798…2da92c Dummy {f00=0x00e8, f01=0x0190, f02=» P % S H P & S P @`6 S , d S B | 3 3 @` T W `0T Wz @`FP R ( >a U Wb 0 =b P` P @` ! T. W< P` D` Y P` Y P`" Y U ! T ! X6 _R _V D`R" P `8 A`9 ( ^ W @`P P6 I @`JP @;H
0x2da92c…2daac0 Dummy {f00=0x00e8, f01=0x0190, f02=» H $X D S . S $ >4 R * S W S _ S ` R ( R * ;v S b 5 U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6
0x2daac0…2dac54 (3, 69) Dummy {f00=0x00e8, f01=0x0190, f02=» P % S H P & S P @ S , d S B | 3 3 @ T W T W @ P R ( >a U W 0 =b P P @ ! T W P D Y P Y P Y U ! T ! X6 _R _V D " P A ( ^ W @ P I @ P @
0x2dac54…2dade8 Dummy {f00=0x00e8, f01=0x0190, f02=» H $X D S . S $ R * S W S _ S ` R ( R * S b 5 U _ L !SSP !LL W L @ A V P E @ E P E P E D T P 2% P R 0 X T R , @ T R RT @ 6
0x2dade8…2daf7c Dummy {f00=0x00e8, f01=0x0190, f02=» P % S H P & S P @ S , d S B | 3 3 @ T W T W @ P R ( >a U W 0 =b P P @ ! T ;R P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A [ [ : ? ?
0x2daf7c…2db110 Dummy {f00=0x00e8, f01=0x0190, f02=» & D LW 0P Q P P E +P W : X + P X L 1 Y L : L 4W 0P8 R Q P W R D + Q ( 0 5 @L, 1 AL, Z> : D NW (P D + I W6 @8 T n ( A8 U 1_ D + I D N ) E N : T * ; SP P W X * 0
0x2db110…2db2a4 Dummy {f00=0x00e8, f01=0x0190, f02=» ^ B I ~ B T B : X "? P P X T _ X . P X $ ! # C i|W C C X %? : X &_ 0 D . P , _ D . D $ D * ;v T ( T & ^ S W : U ; $ T $ T $ T&x : : $
0x2db2a4…2db438 Dummy {f00=0x00e8, f01=0x0190, f02=» U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $_< C<CDj8 ? !Pp P X !F" Y * X . !EV Y T & @ @ C0 @ P Pb P Pv Pz A 6 Bf B + B Lh ALN @LNA. H ) @" Lp Y HW A
0x2db438…2db5cc Dummy {f00=0x00e8, f01=0x0190, f02=» ! T Y *W X * C0 !C # C& F & !C !A " 0 TOT 0 SST X Y ,W 0 X Y , Y * F !C !A X *' P !Ex !Ed DF ) P _ X " X ! Tr X !& Ph B ? ? :C P F !C 9DV !A (@ B r !Fr !E R !Fr j !Fr !E b !
0x2db5cc…2db760 Dummy {f00=0x00e8, f01=0x0190, f02=»F 1 ;h 1 !F2 1 !Fz !FH* !C !B !FZ ) !C Y *# T X Y ._ Y *# 4 !FZ Lh ( C V !D F !C B B !Ex j !FdW0 W !FZ X@ b !Fd C (Q !D !E * !C !FZ ! T )WN WR !FZ Xz R !Fd ( - j !Fd ) W0 Y PW Y P Y L Y N Y Y S
0x2db760…2db8f4 (3, 70) Dummy {f00=0x00e9, f01=0x0190, f02=» y (_f ( ) C _v Y ( " X . P Y : !F" !C X # P Y .:A , X J ALN Y J @LNB. X $ Y Y $ Y X C8 Y & X '? ? A d ? G W A d ? I (@ X L X N Y P@ X PT $ D Y Y Y Lp Y . E % Y Y Y X ;AR@
0x2db8f4…2dba88 Dummy {f00=0x00e9, f01=0x0190, f02=» P Q8 U _ T,: B R(' P Q 9BW Q 9C B ! T 4 C8 ? P ;A _ 4 X 0 # P _ 4(@ R F D(( 1_ W (@ R 0 D)( ]F _ F !Fz 4 !E ;E :B 9A !E U F P jW kQ 4 Y * !Fz A 0" Z Y"
0x2dba88…2dbc1c Dummy {f00=0x00e9, f01=0x0190, f02=»P C4 4 ) _v Y " X P Y : ! !C X # P Y :A , X A Y @ B. X Y Y Y X C8 Y X ? G G
0x2dbc1c…2dbdb0 Dummy {f00=0x00e9, f01=0x0190, f02=» P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 C8 ? P ;A _ 4 X # P _ 4(@ R D(( 1_ W (@ R 0 D)( ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! A 0" Z Y"
0x2dbdb0…2dbf44 Dummy {f00=0x00e9, f01=0x0190, f02=»P C4 4 ) _v Y B K C B K ? J J
0x2dbf44…2dc0d8 Dummy {f00=0x00e9, f01=0x0190, f02=» P Q U _ T : B R ' P Q 9BW Q 9C B ! T 4 C8 ? P ;A _ 4 X # P _ 4(@ R D(( 1_ W (@ R 0 D)( ] _ ! 4 ! ;E :B 9A ! U P jW kQ 4 Y ! A 0" Z Y"
0x2dc0d8…2dc26c Dummy {f00=0x00e9, f01=0x0190, f02=» 0 ALRW & ^ ! Z( LP (X0 @LRP T M ]@ , ) ALR P* P Y U ( ) 5 & > > [ [ LR Z Z Z ? Z > P "R Y W 0 Lp Pl T Pb _ <UR "R4 PB X R< X T6 X T0. T G Y6 G _b P ,
0x2dc26c…2dc400 Dummy {f00=0x00e9, f01=0x0190, f02=» P Y C N 8!@P$ X $P y $W $ ) P. ` Y $ B P T B % X . $ 4 T % W X ,T ! P W PL Y . V P> ! Z B _T B P $$ R % C P>WV Y *X !O 8$ P W 8$ P $ T W $ Y +PX Y )P Y (P T P> ! Z B Z W
0x2dc400…2dc594 (3, 71) Dummy {f00=0x00e9, f01=0x0190, f02=»P Y . 0 %_. % Y . _t _ P P> _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV X $P y $ X , $4 P PL X .T * W Y , - Lp Y $ X Z @_8 B 1 " W XT
0x2dc594…2dc728 Dummy {f00=0x00e9, f01=0x0190, f02=»P P Q Q ! ! ! W B W$ B L # 9Q T W Q P X & V T Y &W Pd X ! T6 B R0Q$ B D ! V ! ! ! W !S !R Y ! T ! V P ! B C ! ! T " T W Q " T ) Ll !S Pn Y _ ! !Sd Y
0x2dc728…2dc8bc Dummy {f00=0x00e9, f01=0x0190, f02=» P ! ! ! Y 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !SL Y Y U ! _$ W4 , ! T ,' P ! R !__U C X ' W Y ! _ X RT U TJ X Q ? Y X P " ! Y ' ! X T ! Ll P
0x2dc8bc…2dca50 Dummy {f00=0x00e9, f01=0x0190, f02=» 4 S Y$W,W>W V ! 8! P ! P P V & U Lh B P B H " +P P. T Y ' ! R X ( Y &R Y & _ Y &_. 8$ T B 1 XX ! W B B U4 $ ! T _ U D ! T _ $$ X" X& X* C
0x2dca50…2dcbe4 Dummy {f00=0x00e9, f01=0x0190, f02=»^T PR RF ?] _ X X &" X )# C V C ! Y B ! Y _` C _ " $ P X ' X ] ! W T B 8! T !Y !X ! V !Y R ! _ B !Y V Z, ! _ 8! T B Y & !X W B Y (U X ( X & R P
0x2dcbe4…2dcd78 Dummy {f00=0x00e9, f01=0x0190, f02=» ' T " ! 8!0T 8 !@P ! $ P ! ! W ! T Y & T X & C & Lp X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T> 8" P d ! Y ! *0 ! X ! Y & Z V T _ ! X $
0x2dcd78…2dcf0c Dummy {f00=0x00e9, f01=0x0190, f02=»_D X " X &" Y )U W ! ! ! Y 4 B Tj U )X R@ X X &" Y * X ) V Y !X X $ X & !X X * T Tj `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 W
0x2dcf0c…2dd0a0 Dummy {f00=0x00e9, f01=0x0190, f02=» ' T " ! 8!0T 8 !@P ! $ P ! ! ! T Y & T X & C & Lp X Y & Y > X " X &" Y )Q Y > X Z2<BR J ? Y 8" P ! ! T 8" P d ! Y ! *0 ! X ! Y & Z V T _ ! X $
0x2dd0a0…2dd234 (3, 72) Dummy {f00=0x00e9, f01=0x0190, f02=»_D X " X &" Y )U W ! ! ! Y 4 B Tj U )X R@ X X &" Y * X ) V Y !X X $ X & !X X * T Tj `R Y ! ! ! 4 ! V ! V W :h ! 4 X )" X '# R 4 W
0x2dd234…2dd3c8 Dummy {f00=0x00e9, f01=0x0190, f02=» P ( ( 7 R ( P H RN H P ' P Y2P W< Y4T6 ] ' P !] & B # P G W G & Lp X P P R: A] ) ] Y X T Q (P H U ^ 9 1_N Lh X T @Y4P ( AY4 ] _ ( Y _ Y2_x X T @Y2P ( AY2 ] _ ( Y
0x2dd3c8…2dd55c Dummy {f00=0x00e9, f01=0x0190, f02=» F Z Y. P U Ll C G 4' "?:B ] P H U _ U @ U 9C @ $$ T %_< %_B R @ U P 9C @ _ T M D W. D D " @ @ - U _ 9B @ T W X > "RT PL X TF X R@? V X & X H
0x2dd55c…2dd6f0 Dummy {f00=0x00e9, f01=0x0190, f02=» # P >_2 < U = (@ " $ P B >H<h _ P ?_" = > = > = =_D R _ 00 > & <h$ P > Y2_x X T @Y2P ( AY2 _ ( Y
0x2dd6f0…2dd884 Dummy {f00=0x00e9, f01=0x0190, f02=» ( B P T W ' T| I` @ 8 =hP Y X Pl 0T< Y H` ! R W 9a I` T T 9a H` E`R ^ W P ,! T T ( j : n "' # ` @_ P _ $ ) 5 Lp A_ A`N A` `^ " > ` A` "" P
0x2dd884…2dda18 Dummy {f00=0x00e9, f01=0x0190, f02=» P ( )W @ 0 Rb ' F "R G `P @` D` #D T G W, A`F 2v "R A`F A`0 Lp ` b d Y2_x X T @Y2P ( AY2 _ ( Y
0x2dda18…2ddbac Dummy {f00=0x00e9, f01=0x0190, f02=» ( B P T W ' T I` @ 8 =hP Y X P 0T Y H` ! R W 9a I` T T 9a H` E`R ^ W P ,! T T ( : n "' #f8 @_ P _ $ ) 5 Lp A_ A`N A` `^ " > ` A` "" P
0x2ddbac…2ddd40 Dummy {f00=0x00e9, f01=0x0190, f02=» P ( )W @ 0 Rb ' F "R G `P @` D` #D T G W, A`F 2v "R A`F A`0 Lp ` g Y2_x X T @Y2P ( AY2 _ ( Y
0x2ddd40…2dded4 (3, 73) Dummy {f00=0x00ee, f01=0x0190, f02=» ( B P T W ' T I` @ 8 =hP Y X P 0T Y H` ! R W 9a I` T T 9a H` E`R ^ W P ,! T T ( : n "' # @_ P _ $ ) 5 Lp A_ A`N A` `^ " > ` A` "" P
0x2dded4…2de068 Dummy {f00=0x00ee, f01=0x0190, f02=» P ( )W @ 0 Rb ' F "R G `P @` D` #D T G W, A`F 2v "R A`F A`0 Lp ` Y2_x X T @Y2P ( AY2 _ ( Y
0x2de068…2de1fc Dummy {f00=0x00ee, f01=0x0190, f02=»T n @b [ [ M M M Ab -(@ : - : @b , L T M @b : =a 9a Q - _ - > @ HPJ r 6 8 j 8 A8 ;H j @b , - M M M @b A_ A_ > !"#$%& () +,-./ j ($SWAP A A A
0x2de1fc…2de390 Dummy {f00=0x00ee, f01=0x0190, f02=» A j : R W2 A p As@ p P. pN_ " :c* A q@ qvW " :d2 * A p q & W F ` W F W F CRT F A @ @ ! P2 @ P tx;b=H F CR m F m W =J F CRTT F PN A @ $ P( @ R W 8 !RRT W
0x2de390…2de524 Dummy {f00=0x00ee, f01=0x0190, f02=» Y P @ T W - tvP _ T <B :L A W A A W tv T F W V tx = V W Y* P Z( = :L < P W <9B @ V W Q tx W
0x2de524…2de6b8 Dummy {f00=0x00ee, f01=0x0190, f02=» P W _: sf sf s6 V @ PZ W @ @ ! T _ P :l 9b ) V _ @ V W W p p P pN p TJ V 0 !;;P P V P$ _ P !;;T X$ W t
0x2de6b8…2de84c Dummy {f00=0x00ee, f01=0x0190, f02=» !;;T X$ W t nP XZ_V S Aq Ar; q @ R @ ! T Aq Aq V @ R V V I t W V $ ) H A I. : p C. pF X C.9h! p p # " p p :A K : A T.I T
0x2de84c…2de9e0 Dummy {f00=0x00ee, f01=0x0190, f02=»9A ! 9B r @j r A I ! ( : qv As@ Aor Aq Aq Aq ! T Aq Aq I ! : 9E @j r s A I T ) A _ I N T : tx q q 9PJ S Y T@ $ 1T: C !CCTt : 1P P$_ P =H P @ T
0x2de9e0…2deb74 (3, 74) Dummy {f00=0x0153, f01=0x0190, f02=» X W : @ ' R xW V W$ V P P sD W P V V T sD V T W P V W @ $ P p W t T : Ar s@_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A T I T
0x2deb74…2ded08 Dummy {f00=0x0153, f01=0x0190, f02=» j Aor A A A ! T A W Z A. c @ V W U tx R $ )_ : W W W W W x Q@ V V v x W V V v p R( W V
0x2ded08…2dee9c Dummy {f00=0x0153, f01=0x0190, f02=» _ V u Z K W W :K W r x Q R t x V tx t v : V W V tx ) : V <B W |P v v : $ uB V |P v w v : V $ V l $ uB V M : W
0x2dee9c…2df030 Dummy {f00=0x0153, f01=0x0190, f02=» R R xNP v v8 W x v xV_ V : " D Pd W V PL $;A^ D E D P. V txP tx P T tx E _J uB E _T " D T E uB E D E % : " R ;B uB " R P( |P v v
0x2df030…2df1c4 Dummy {f00=0x0153, f01=0x0190, f02=» : : , X G : J @ 0 V @ tx 0 H W : ? ? R 0 R P P B _ LT : V ) xz v : 4P: " D x , H H $ M v b - I Y0 : @ ` V b
0x2df1c4…2df358 Dummy {f00=0x0153, f01=0x0190, f02=»w = G $ v V W $ w$ V E J K _N V r V :B A V 9n A @ A A , @ @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P P( P V W U
0x2df358…2df4ec Dummy {f00=0x0153, f01=0x0190, f02=» Y& P4 L. L. S P 3 _ L. 3 L0 B A. @ D @ W x A ( : A Lp > l : x6R v W n V pT : N V l W H V ]" . nT" v W v v8 W n V ~P
0x2df4ec…2df680 Dummy {f00=0x0153, f01=0x0190, f02=»v8 v G v : xNP v x6V xV : v v8 V ~P | W x v _$ 8 V V x % V v % : V V t 9k! P % _ V V W W r xz W V uB v ) W b G uB v ) - V uB W f v ) G v
0x2df680…2df814 (3, 75) Dummy {f00=0x0153, f01=0x0190, f02=» V W % { R , xf uB " E R | W ~ R | R P ~ R Xv ~ _|W xNT : v v W x v xV_ V P x I y W z ` pPl x H - V xz I v " R xf E R T E D E @ v H v E
0x2df814…2df9a8 Dummy {f00=0x0153, f01=0x0190, f02=» : .=H N xf .=H N xf N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ x R tx - @ - N !TTP tx N :H N TBT W W8 2 " T @ tx
0x2df9a8…2dfb3c Dummy {f00=0x0153, f01=0x0190, f02=»V tx _ R :h " YV : v `?A @ W W :b / W : W @ W D xf V W W ` " W p @ pP. " 4X 1 R Z0
0x2dfb3c…2dfcd0 Dummy {f00=0x0153, f01=0x0190, f02=» 8 W W t V V : x A j nP . W r n . W @ @ % V , P@ , - 4 ] 4 x Y 5 X * _6 : @ ] @ P @ P " P " P " P W W . !TT
0x2dfcd0…2dfe64 Dummy {f00=0x0153, f01=0x0190, f02=» #F : : @ " P @ P 3 _ @ " P S 1 S 9J S ( 3 ( 9B @ @ T tx : @ :B W . !TTP tx R W t N =H N W l N =H N W p N =H N W | ( @ % P W @ % P
0x2dfe64…2dfff8 Dummy {f00=0x0153, f01=0x0190, f02=» _2 V V tPJ S ( V | S =J @ " S V l S W l V p S W p W _L @ % P W @ % P !TTT sv @ @ T tx : @ ! P @ @ CRT 3 @ S @
0x2dfff8…2e018c Dummy {f00=0x0153, f01=0x0190, f02=» : L, ` @ P _ 3 S S V V W @ @ T tx : P S S _ : . !TTP tx V R W t * b P r _ r Ph W p W V 8 8
0x2e018c…2e0320 Dummy {f00=0x0153, f01=0x0190, f02=»tx : @ R @ T tx P / _ T @ A V W R W t b PT W f ( W d G =h G V d V r < V f P W f _B V W V t Yr !TTX @ @
0x2e0320…2e04b4 (3, 76) Dummy {f00=0x0153, f01=0x0190, f02=» P, V 4 U tx $ $ _. @ @ @ ! P V 8 8 8 @ >B 3 . !CCP W R P0 W f W d V d V r < V f _2 r U^ V 8 8 8 4 D P$ t @ # P H
0x2e04b4…2e0648 Dummy {f00=0x0153, f01=0x0190, f02=» V @ 0 V P _ W $ q > R P >b W >b & 8P D P U & E W j V W R 9 W D t ) $ P@ D L T@ D &P V U 0 I , I . $# P V -W H P U & I @ % PD H I H T P( H
0x2e0648…2e07dc Dummy {f00=0x0153, f01=0x0190, f02=»WR# T W W,# T W W # T W W W R _ $ W : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P
0x2e07dc…2e0970 Dummy {f00=0x0153, f01=0x0190, f02=» : F =H F : F =H F : P N =H N T R _ : 00=H 00 P P _ _ : @ ! P (W ( : z ^ & V @ CRT" @ ! P ` @ E "W ` @ E " z $
0x2e0970…2e0b04 Dummy {f00=0x0153, f01=0x0190, f02=» Y6 ,Y. & Y6 0 DC V @ M~KB " 4P|
0x2e0b04…2e0c98 Dummy {f00=0x0153, f01=0x0190, f02=» j F 8S DY ^ & P CRT" @ ! P ` @ E "W ` @ E " z $
0x2e0c98…2e0e2c Dummy {f00=0x0153, f01=0x0190, f02=»K 0 C Es_ bM % tMCT6I * 0 C Es & CT$$CR @ @! ) 4 @!@ 4 C0 0 E A*@ A 4 @ # } Fs# { ) | A 4 # Fu_ # Fw_ # Fv_ Ft_"4 0 0 I $ " 'W ( I 0 0 P A 4 0 4 0 0 0 4 1 4 1 4 I } @ #
0x2e0e2c…2e0fc0 Dummy {f00=0x0153, f01=0x0190, f02=» )T 4 I A 0 0 t% v 4 I 0 0 A 0 0 A 4 0 0 4 I 0 T$0 ! ) 8# 4 # : ! ' W10 % W W 0 0 4 _6 4 0 6 W& FW! W nW jW W W 0 : M # 0
0x2e0fc0…2e1154 (3, 77) Opaque[0x194]
0x2e1154…2e12e8 # DirEnt {nam=»BUGGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cf0, f03=0x0000}
0x2e1154…2e12e8 IdxSect {
0x2e1154…2e12e8 f00 = 0x0167 // 0x2e1154 @0x0
0x2e1154…2e12e8 f01 = 0x0002 // 0x2e1156 @0x2
0x2e1154…2e12e8 gno = [ // 0x2e1158 @0x4
0x2e1154…2e12e8 [0x00]: C0x0167.0x2.0
0x2e1154…2e12e8 ]
0x2e1154…2e12e8 }
0x2e12e8…2e147c Dummy {f00=0x0167, f01=0x00b6, f02=» LED SYSTAB !!DL 74 EXTRN BUG & !!RE 226,$$0$$BUG$$ 8 !!EN T ASM /S,NL ` PINC DEBUGM r LKE M KPF /L,M:BUG ASG /E0,TY10
0x2e147c…2e1610 Dummy {f00=0x0167, f01=0x2008, f02=» SYSTAB !!DL 74 EXTRN BUG & !!RE 226,$$0$$BUG$$ 8 !!EN T ASM /S,NL ` PINC DEBUGM r LKE M KPF /L,M:BUG ASG /E0,TY10
0x2e1610…2e17a4 Dummy {f00=0x0167, f01=0x0190, f02=» ! A4 ! " ! " ! 9 A4v _" A4x A4p ! ! % ! R ! ! @ ! 8 ! X ! 9a D4 ! X ! P ! T & ! _b B J B ! ! 4 A ? 4PJ T A4~T 2P ! H 4 ! 4 A ? 4P_ I " P A4x 1 4 A1z 3 4 A _$" P H
0x2e17a4…2e1938 Dummy {f00=0x0167, f01=0x0190, f02=»1v 3 @1~T 4 1 @ A1v 3 A1v a1~ 3 4 <L X A1~ > Z A4 4 A4 1 !; @4rP !9 !< 4 @4 P a4 A4 4 A A A ?a :a# P @ @ @ 4 ! A4~ !; < !; A4~ @< :H 4 1
0x2e1938…2e1acc Dummy {f00=0x0167, f01=0x0190, f02=» ! A4 ! " ! " ! 9 A4v _" A4x A4p ! ! % ! R ! ! @ ! 8 ! X ! 9a D4 ! X ! P ! T & ! _b B J B ! ! 4 A ? 4PJ T A4~T 2P ! H 4 ! 4 A ? 4P_ I " P A4x 1 4 A1z 3 4 A _$" P H
0x2e1acc…2e1c60 Dummy {f00=0x0167, f01=0x0190, f02=»1v 3 @1~T 4 1 @ A1v 3 A1v a1~ 3 4 <L X A1~ > Z A4 4 A4 1 !; @4rP !9 !< 4 @4 P a4 A4 4 A A A ?a :a# P @ @ @ 4 ! A4~ !; < !; A4~ @< :H 4 1
0x2e1c60…2e1df4 (3, 78) Opaque[0x194]
0x2e1df4…2e1f88 # DirEnt {nam=»DRDC15«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x2e1df4…2e1f88 IdxSect {
0x2e1df4…2e1f88 f00 = 0x002a // 0x2e1df4 @0x0
0x2e1df4…2e1f88 f01 = 0x002c // 0x2e1df6 @0x2
0x2e1df4…2e1f88 gno = [ // 0x2e1df8 @0x4
0x2e1df4…2e1f88 [0x00]: C0x002a.0x1.0
0x2e1df4…2e1f88 [0x01]: C0x0031.0x3.0
0x2e1df4…2e1f88 [0x02]: C0x0033.0x0.0
0x2e1df4…2e1f88 [0x03]: C0x0033.0x1.0
0x2e1df4…2e1f88 [0x04]: C0x0033.0x3.0
0x2e1df4…2e1f88 [0x05]: C0x0034.0x0.0
0x2e1df4…2e1f88 [0x06]: C0x0039.0x2.0
0x2e1df4…2e1f88 [0x07]: C0x0045.0x3.0
0x2e1df4…2e1f88 [0x08]: C0x0047.0x0.0
0x2e1df4…2e1f88 [0x09]: C0x0047.0x3.0
0x2e1df4…2e1f88 [0x0a]: C0x0048.0x0.0
0x2e1df4…2e1f88 [0x0b]: C0x0048.0x2.0
0x2e1df4…2e1f88 [0x0c]: C0x0048.0x3.0
0x2e1df4…2e1f88 [0x0d]: C0x0049.0x0.0
0x2e1df4…2e1f88 [0x0e]: C0x004b.0x2.0
0x2e1df4…2e1f88 [0x0f]: C0x0050.0x0.0
0x2e1df4…2e1f88 [0x10]: C0x0050.0x1.0
0x2e1df4…2e1f88 [0x11]: C0x0050.0x3.0
0x2e1df4…2e1f88 [0x12]: C0x0052.0x1.0
0x2e1df4…2e1f88 [0x13]: C0x0058.0x2.0
0x2e1df4…2e1f88 [0x14]: C0x005a.0x0.0
0x2e1df4…2e1f88 [0x15]: C0x005a.0x1.0
0x2e1df4…2e1f88 ]
0x2e1df4…2e1f88 }
0x2e1f88…2e211c Dummy {f00=0x002a, f01=0x0190, f02=» 0 P IDENT DRDC15 9.2DK 4 81-05-26 870105040924 P 8 P DK3, RBUFNR=1 ALLOWED @ P DK2, TBUFL ` P 80-03-11 v 0 P DK, COND.ASM., TIMPRO, TIMNAK, READ BUF. P 80-03-11 P REL 9.1 79-08-16 P =8, ASCII-MODE FOR SALC
0x2e211c…2e22b0 Dummy {f00=0x002a, f01=0x0190, f02=» DESTROYED t P REL 9.1 79-05-23 $ P =5, INCOMPLETE POLL SEQUENCE . P REL 9.1 79-05-23 V P =3, TRANSFER PARAMETER r P PRR 9.1 79-04-06 P =4, ANY MESSAGE ORDER P PRR 9.1 79-04-06 P =2, ABORT HANDLING
0x2e22b0…2e2444 Dummy {f00=0x002a, f01=0x0190, f02=» 2 P********************************************* P* > $ P* PHILIPS TERMINAL SYSTEM PTS H P* p * P* DRDC15: DRIVER DATA COMMUNICATION z . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P* P
0x2e2444…2e25d8 Dummy {f00=0x002a, f01=0x0190, f02=»Y POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT P " P ENTRY IH1502 OUTPUT INTERRUPT v " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTERNAL R
0x2e25d8…2e276c Dummy {f00=0x002a, f01=0x0190, f02=»MPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER < P EXTRN DWTST DWT STATUS P EXTRN DWTOR DWT ORDER | P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC TAB
0x2e276c…2e2900 Dummy {f00=0x002a, f01=0x0190, f02=» EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE * " P EXTRN ECBCW ECB CONTROL WORD N * P EXTRN DC:MIN MOVE DATA TO USER BUFFER t , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH P
0x2e2900…2e2a94 (3, 79) Dummy {f00=0x0031, f01=0x0190, f02=»* P* DWT CONTENTS P* J P* DWTCHP TERMINAL ADDRESS AS GIVEN AT PARAMETER TRANSFER (BIT #08-#15) * P* x P < P******************************************************* P* * P* PARAMETERS FOR CONDITIONAL ASSEMBLY P*
0x2e2a94…2e2c28 Dummy {f00=0x0031, f01=0x018e, f02=»A EQU 2000 RECEIVE BUFFER LENGTH PRBUFL EQU 400 ( PX:B EQU /60 DCTASK FILE CODE > PDC15FC EQU /60 b $ PX:C EQU 1 IF 1 INTERRUPT LOGGING x PLOGG EQU 0 P* * PTIMPOL EQU 900 POLL TIMEOUT VALUE DK * PX:E EQU 1 STATUS AND RVI HANDL
0x2e2c28…2e2dbc Dummy {f00=0x0031, f01=0x0190, f02=» PTBLEN EQU 252 ( PX:H EQU 1 CODE , 0=ASCII , 1=EBCDIC PCODE EQU 1 F * PX:I EQU 0 IF 1 SPECIFIC POLL HANDLING X PSPECP EQU 0 , PX:J EQU 1 IF = 1 LINE SPEED SET TO HIGH ( P IF = 0 LINE SPEED IS SET TO LOW PSPEED EQU 1 *
0x2e2dbc…2e2f50 Dummy {f00=0x0031, f01=0x0190, f02=»X:M EQU 0 IF = 1 PTS 6805 ADAPTION SALCUZ PP6805 EQU 00 2 PX:N EQU /02 F P IFT P6805=0 Z , PLCUIN EQU 02 DEVICE ADDRESS OF RECEIVER n P XIF P IFT P6805=1 , PLCUIN EQU /0A DEVICE ADDRESS OF RECEIVER P XIF PX:O EQU 0
0x2e2f50…2e30e4 Dummy {f00=0x0031, f01=0x0190, f02=»3270 EMULATION PACKAGE, IF NOT = 0 PEM3270 EQU 1 * PX:R EQU 1000 > P DK2 R * PBINTRM EQU 0 IF 1 BINARY TRANSMISSION b , PTSTREQ EQU 0 IF 1 TEST REQUEST HANDLING , PDMRK EQU 1 SPECIAL CONDITION FOR DENMARK 4 PNOWACK EQU 0 WHEN WORKIN
0x2e30e4…2e3278 Dummy {f00=0x0031, f01=0x0190, f02=» ONLY WORKING IF STAT IS SET TO "ONE". P IFT P6805=0 SALCUZ 0 < PLCUUT EQU LCUIN+/10 DEVICE ADDRESS OF TRANSMITTER SALCUZ L P XIF SALCUZ P IFT P6805=1 < PLCUUT EQU LCUIN+/01 DEVICE ADDRESS OF TRANSMITTER SALCUZ P XIF SALCUZ
0x2e3278…2e340c Dummy {f00=0x0031, f01=0x0190, f02=» . P***************************************** P* : . P* A PROGRAM VERSION USING TOSS MMU PAGING D * P* IS OBTAINED BY SETTING MMUPAG EQU 1. v P* PMMUPAG EQU 1 P* P DB P IFT MMUPAG=0 DK2 PTBUFL EQU 0 DK2
0x2e340c…2e35a0 Dummy {f00=0x0031, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. > P* p PCPU852 EQU 0 z P* 2 PDEVIND EQU -2 DEVICE INDEX DATA COMMUNICATION * PBUFLEN EQU TBUFL+TBUFL MMU BUFFER SIZE P* P
0x2e35a0…2e3734 (3, 80) Dummy {f00=0x0033, f01=0x018e, f02=» PSTART EQU DWTDRD P XIF P* ( P IFT MMUPAG=1 2 PSTART EQU DWTDRD+4 H P XIF b P* n 4 PDWTTP EQU START+/00 TIMER POINTER ORDER PROCESS x . PDWTWQ EQU START+/02 WRITE/GET BUFFER QUEUE $ PDWTSQ EQU START+/04 STATUS QUEUE &
0x2e3734…2e38c8 Dummy {f00=0x0033, f01=0x0190, f02=» , PDWTTIM EQU START+/0C REQUEST TIMER VALUE P* 4 P > P* H P* REQUEST HANDLING R P* l P* v P* P* A7=ORDER P* P* /02: READ P* /06: WRITE P* /37: TRANSFER PARAMETERS P* /38: SET STATUS $
0x2e38c8…2e3a5c Dummy {f00=0x0033, f01=0x0190, f02=»OFFLINESWITCH | * PDCSTOL DATA 0 OLD DC EQUIPMENT STATUS PDCSTCU DATA 0 CURRENT STATUS D $ PDCWRQ DATA 0 WRITE REQUEST QUEUE h , PDCTPGP DATA 0 TIMER POINTER GENERAL POLL P P* P* DC TASK ADDRESS BLOCK P* $ P DATA 0 IN
0x2e3a5c…2e3bf0 Dummy {f00=0x0033, f01=0x0190, f02=»ADDRESS v $ P DATA DCRBUF REC. BUFFER ANCHOR P* 8 P* DRIVER ADDRESS BLOCK B P* ` P DATA BUFLEN MMU BUFFER SIZE j P DATA DEVIND DEVICE INDEX ( PDC15AD DATA DCACT ACTIVATION ADDRESS 4 P DATA ABORT ABORT ROUTINE ABORT ROUTINE ADDR
0x2e3bf0…2e3d84 Dummy {f00=0x0033, f01=0x018e, f02=»ND FOR TRANSFER PARAM PSTB2 RES 1 P 0 P IFT SPEED=1 8 PLSPEED EQU /0200 L P XIF d P IFT SPEED=0 p PLSPEED EQU 0 P XIF P P* P* $ P* ACTIVATION FROM TERMINAL TASKS P* PDCACT EQU * P
0x2e3d84…2e3f18 Dummy {f00=0x0033, f01=0x0190, f02=» P SUK A7,/02 P RF(Z) DCRD READ SPECIFIC P SUK A7,/06-/02 : P RF(Z) DCWR R P SUK A7,/37-/06 f $ P RF(Z) DCTP TRANSFER PARAMETERS ~ P IFF STAT=0 P SUK A7,/38-/37 P ABL(Z) DCSS SET STATUS DK4 P SUK A7,/39-/38
0x2e3f18…2e40ac Dummy {f00=0x0033, f01=0x018e, f02=»TIMER v P XIF P RF DCA100 P , P* 6 P* @ P* ACTIVATION FROM DCTASK J P* j P* t PDCACTD EQU * ~ $ P SUR A1,A1 PRESET RETURN CODE =4 P IFT EM3270=1 =4 P LDR A7,A7 =4 & P RF(Z) ANYMSG ANY MESSAGE ORDE
0x2e40ac…2e4240 Dummy {f00=0x0033, f01=0x0190, f02=» PDCA100 EQU * REQUEST ERROR P ABL DISIOE INVALID ORDER * P* L P* V P* READ FROM DCTASK ` P* z P* P* REQUEST FROM DC-TASK P* COMPLETE WHEN: & P* STATUS CHANGE ON DC EQUIPMENT $ P* SPONTANOUS MESSAGE REC
0x2e4240…2e43d4 (3, 81) Dummy {f00=0x0033, f01=0x0190, f02=»HER x P IFT EM3270=1 =4 P & . P***************************************** 0 P* b P* ANY MESSAGE ORDER l P* " P***************************** P 2 PANYMSG LD A4,DWTRQ,A6 ANY QUEUED MESSAGE ?? =4 P RF(Z) DCRD10 NO
0x2e43d4…2e4568 Dummy {f00=0x0033, f01=0x018e, f02=» P* > P* REQUEST FROM DC-TASK: TRANSFER TERMINAL COMPUTER ADDRESS : P* FROM TERMINALS: TRANSFER TERMINAL ADDRESSES P P* P* P IFF CODE=1 & PDCTP LD A2,ECBCW,A8 GET PARAMETER P XIF P IFT CODE=1 & PDCTP LC
0x2e4568…2e46fc Dummy {f00=0x0033, f01=0x018e, f02=» PDCTP10 EQU * $ P LC A3,ECBCW+1,A8 GET TCP OR DV P ANK A3,/FF @ ( P LC A2,TASCII,A3 TRANSLATE TO ASCII T P XIF * P ST A2,DWTBUF,A6 SAVE TERM. ADDR. DK4 PDCTP12 EQU * 2 P LD A1,DCSTQ CHECK IF THIS DWT IS IN QUEUE DK4 PDC
0x2e46fc…2e4890 Dummy {f00=0x0033, f01=0x0190, f02=» , P CWR A1,A3 SOMETHING QUEUED OUR DWT? DK4 4 P RF(E) DCTP16 YES, WAIT BEFORE TRANS. PARAM. DK4 4 & P LDR* A1,A1 NOT OURS, GET NEXT DK4 l P RB DCTP14 DK4 PDCTP16 EQU * ( P LDR A1,A6 SAVE DWT AS PARAMETER DK4 0 P CF A15,SETIME WAIT UNTI
0x2e4890…2e4a24 Dummy {f00=0x0033, f01=0x0190, f02=»WT DK4 | * P RB DCTP12 LOOK IN THE QUEUE AGAIN DK4 PDCTP18 EQU * < , P LD A2,DWTBUF,A6 RESTORE TERM ADDR. DK4 R ( P STR A2,A6 SAVE IN FIRST WORD OF DWT P P IFT RCOM=1 * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS P ST A3,DWTBUF,A6
0x2e4a24…2e4bb8 Dummy {f00=0x0033, f01=0x0190, f02=»P30 YES!!! SHOULD NOT BE IN DC:TAB * P LD A1,DC:IN GET DC:TAB INPUT POINTER , * P CWK A1,DC:END TABLE ALREADY FULL ???? Z & P ABL(E) DISIOE YES!! REQUEST ERROR P P P PDCTP20 EQU * " P LD A4,DCTAB DC:TAB ADDRESS =3 $ P A
0x2e4bb8…2e4d4c Dummy {f00=0x0033, f01=0x0190, f02=» DCTP25 YES.DWT NOT IN TABLE =3 P CWR* A6,A4 IN TABLE ?? =3 ( P RF(E) DCTP30 YES!! =3 J " P RB DCTP22 CHECK NEXT ENTRY =3 h PDCTP25 EQU * =3 P $ P STR A6,A1 INSERT DWT IN DC:TAB P LDK A1,2 * P ADS A1,DC:IN UPDATE DC:TAB IN P
0x2e4d4c…2e4ee0 Dummy {f00=0x0033, f01=0x0190, f02=» ( P CF A15,INSSQ INSERT IN STATUS QUEUE P XIF 0 PDCTP30 EQU * < P SUR A1,A1 RETURN CODE ::= 0 P PENDIO EQU * t $ P CF A15,TENDIO COMPLETE REQUEST P RB DCRTN P P* P* P* WRITE P* P* P* CO
0x2e4ee0…2e5074 (3, 82) Dummy {f00=0x0033, f01=0x0190, f02=»D A1,ECBRL,A8 REQUESTED LENGTH " P CWK A1,BUFLEN ILLEGAL LENGTH? & P RF(G) IL:LEN YES!! L P XIF h P CF A15,TIMEWR SET TIMER t P CF A15,INSWQ QUEUE REQUEST P RB DCRTN P* P* P* P* READ P* P*
0x2e5074…2e5208 Dummy {f00=0x0033, f01=0x0190, f02=» x . P LD A4,DWTRQ,A6 AND RECEIVE MESSAGE QUEUE " P RF(Z) DCRD10 NOTHING IN QUEUE : P ` P h P p ( P LDR* A2,A4 TAKE THE FIRST IN QUEUE x P ST A2,DWTRQ,A6 P ADK A4,6 " P LD A3,-4,A4 EFFECTIVE LENGTH P ST A3,ECBEL,A8
0x2e5208…2e539c Dummy {f00=0x0033, f01=0x0190, f02=»MERE START TIMER P RB DCRTN P * P* 4 P* > P* SET STATUS H P* P* f P IFF STAT=0 p PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 E
0x2e539c…2e5530 Dummy {f00=0x0033, f01=0x0190, f02=»B(Z) DCSS10 WACK HAS NOT BEEN SENT PDCSS30 EQU * ! * , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE ! > P LDK A1,4 SET DE ! n P RB DCSS10 ! P XIF ! P ! P ! P* ! " P* SET REQUEST TIMEOUT VALUE ! P* ! P* ! P ! PREQTIM
0x2e5530…2e56c4 Dummy {f00=0x0033, f01=0x0190, f02=»* ! ( P* ILLEGAL APPLICATION BUFFER SIZE " P* " 6 P " @ 8 PIL:LEN LDKL A1,/8008 REQUEST ERROR + ILLEGAL LENGTH " H P ABL DISEND COMPLETE REQUEST " P " P* " P* " P* " P* TIMER HANDLING PART " P* " P* " P* "
0x2e56c4…2e5858 Dummy {f00=0x0033, f01=0x0190, f02=» TIME10 NO TIMING " P ST A2,TIMERR # P CF A15,SETIME # 0 P DATA TOUTRE # F PTIMERR DATA 0 # Z ( P ST A4,DWTTP,A6 STORE TIMER POINTER # p PTIME10 EQU * # P RF GBUF10 RETURN # P* # P* TIMEOUT READ TIMER # P* # PTOUTRE EQU * #
0x2e5858…2e59ec Dummy {f00=0x0033, f01=0x018e, f02=» REQUEST # x P* $ P* WRITE TIMER=TIMWR $ P* $ 6 PTIMEWR LDR A1,A6 $ @ . P LD A2,DWTTIM,A6 GET REQUEST TIMEOUT VALUE $ X P RB(Z) TIME10 NO TIMING $ P ST A2,TIMWR $ P CF A15,SETIME $ P DATA TOUTWR $ PTIMWR DATA 0 $ P ST A4,DWTTP
0x2e59ec…2e5b80 Dummy {f00=0x0033, f01=0x0190, f02=» P CM DWTTP,A6 % * P CF A15,REMOVW REMOVE FROM WRITE QUEUE % P* % F & P* THIS INSTRUCTION DOES NOT BELONG % P P* TO THE STANDARD INTERFACE % z P LD A2,FDWTUT % P CWR A2,A6 % * P RB(NE) TOUTR1 THIS DWT IS NOT WRITING % ( P CM XACK INDICATE 'A
0x2e5b80…2e5d14 (3, 83) Dummy {f00=0x0034, f01=0x0190, f02=» P* & & P* REMAINING TIME IS RETURNED IN A2 & P* & 8 P* & B PCTIME EQU * & L & P LD A2,DWTTP,A6 GET TIMER POINTER & ` P RF(Z) CTIM10 NOT RUNNING & P LDR* A2,A2 & " P NGR A2,A2 GET REMAINING TIME & P CM* DWTTP,A6 STOP TIMER & P C
0x2e5d14…2e5ea8 Dummy {f00=0x0034, f01=0x0190, f02=» A15,GRBUF & z P* A4=0 IF NO BUFFER IS FREE ' & P* ELSE A4 CONTAINS BUFFER ADDRESS ' 6 P* A2 AND A3 ARE DESTROYED ' ` P* ' P* ' ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS ' PGBUF INH ' P LDR* A4,A2 ' P RF(Z) GBUF10 NO BUFFER FREE ' .
0x2e5ea8…2e603c Dummy {f00=0x0034, f01=0x0190, f02=»CALLER ' | P ( P* ( P* ( " ( P* INSERT DWT IN WRITE REQUEST QUEUE ( , P* ( X P* A2,A3,A4 DESTROYED ( b P* A6=DWT ( ~ P* ( ( PINSWQ LDKL A2,DCWRQ GET QUEUE ANCHOR ( PINSWQ1 LDK A4,DWTWQ ( PINSWQ2 LDR* A3,A2 ( $ P RF(Z) INSWQ3
0x2e603c…2e61d0 Dummy {f00=0x0034, f01=0x018e, f02=» END OF QUEUE ( P RB GBUF10 RETURN ) P* ) 0 P* ) : * P* REMOVE DWT FROM WRITE REQUEST QUEUE ) D P* ) r P* A2,A3,A4 DESTROYED ) | P* A6=DWT ) P* ) * PREMOVW LDKL A2,DCWRQ GET QUEUE ANCHOR ) 2 PREM05 LDK A4,DWTWQ GET DWT-LINK TO BE RE
0x2e61d0…2e6364 Dummy {f00=0x0034, f01=0x018e, f02=» P RF(E) REM15 * P LDR A2,A3 GET NEXT * P RB REM10 * 4 PREM15 LDR* A3,A4 REMOVE * F P STR A3,A2 * f P RB GBUF10 RETURN * x P * P* * P* * P* INSERT DWT IN STATUS QUEUE * P* * P IFF STAT=0 * P* A2,A3,A4 DESTROYED *
0x2e6364…2e64f8 Dummy {f00=0x0034, f01=0x0190, f02=» * h ( P RB(Z) GBUF10 DONT PUT IN STATUS DK4 + , P SUK A2,/7F QUEUE, TERMINAL HAS BEEN DK4 + 4 $ P RB(Z) GBUF10 MADE INACTIVE DK4 + d $ P LDKL A2,DCSTQ GET QUEUE ANCHOR + P LDK A4,DWTSQ + P RB INSWQ2 + P* + P* + " P* REMOVE DWT FROM STATUS
0x2e64f8…2e668c Dummy {f00=0x0034, f01=0x0190, f02=»Q + P RB REM06 , P XIF , P , ( P* , 2 P* , < $ P* QUEUE ALLOCATED RECEIVE BUFFER , F P* , n P* A4=BUFFER ADDR , x P* A2,A3 DESTROYED , P* , PQRBUF EQU * , P IFT MESPAS=1 , ( P LDKL A2,DW1500 QUEUE ON DC-TASK DWT ,
0x2e668c…2e6820 Dummy {f00=0x0034, f01=0x018e, f02=»QR100 EQU * , P LDR* A3,A2 - $ P RF(Z) QR200 END OF QUEUE FOUND - ( P LDR A2,A3 - P P RB QR100 - b & PQR200 STR A4,A2 INSERT INTO QUEUE - t " P CMR A4 INDICATE END OF QUEUE - P RTN A5 - P - P* - P* - 2 P* CHECK IF UNEXPECTED
0x2e6820…2e69b4 (3, 84) Dummy {f00=0x0039, f01=0x0190, f02=» P LD A1,DWTST,A6 . P RF(N) CKM110 NO REQUEST . P LDK A1,2 READ REQUEST ? . < P CW A1,DWTOR,A6 . P RF(NE) CKM110 NO . t $ 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 .
0x2e69b4…2e6b48 Dummy {f00=0x0039, f01=0x018e, f02=»ER TO TEXT . | & P DONT DESTROY BUFFER ADDRESS =6 / P LD A4,-4,A3 / < 0 P ST A4,ECBEL,A8 STORE NUMBERS OF CHARACTERS / P P LD A4,-2,A3 / . P ST A4,ECBCW,A8 STORE LINE DEVICE ADDRESS / P / P LDK A1,0 RESET RETURN CODE / & P LDR A4,A3 RECEIVE
0x2e6b48…2e6cdc Dummy {f00=0x0039, f01=0x0190, f02=» / ~ 8 PCKM200 LD A1,DCSTCU NO MESSAGE RECEIVED,CHECK STATUS 0 , P OR A1,DCONOF TAKE CARE OF POLL TIME OUT 0 D P CW A1,DCSTOL 0 t P ST A1,DCSTOL 0 & P RB(E) CKM110 NO CHANGE OF STATUS 0 * P ORKL A1,/2000 INDICATE STATUS CHANGE 0 0 P CF A15,TENDIO C
0x2e6cdc…2e6e70 Dummy {f00=0x0039, f01=0x018e, f02=» P* 1 P* ABORT ROUTINE 1 P* 1 ( P************************ 1 2 P 1 R & PABORT LD A1,DWTTP,A6 TIMER POINTER 1 Z " P RF(Z) AB:10 NO TIMER RUNNING 1 P CM* DWTTP,A6 KILL TIMER 1 P CM DWTTP,A6 1 P 1 $ PAB:10 LD A1,DWTOR,A6 ORDER CODE 1
0x2e6e70…2e7004 Dummy {f00=0x0039, f01=0x018e, f02=» P 2 . P CF A15,REMOVW REMOVE DWT FROM WRITE QUEUE 2 & P LD A2,FDWTUT WRITING DWT ADDRESS 2 > P CWR A2,A6 2 h P RF(NE) AB:RTN NOT THIS DWT 2 z P CM XACK RESET ACK EXPECTED 2 P CM FDWTUT RESET WRITING DWT 2 P 2 PAB:RTN EQU * 2 P IFT C
0x2e7004…2e7198 Dummy {f00=0x0039, f01=0x0190, f02=» P 3 P 3 P 3 P* 3 P* 3 * P* STORE REGISTER A3-A8 3 4 $ P* CALLING SEQUENSE: CF A15,STREG 3 R P* 3 z P* RESTORE 3 $ P* CALLING SEQUENCE: CF A15,LDREG 3 P* 3 P* 3 PSTREG ST A3,LCA3 3 P ST A4,LCA4 3 P ST A5,LCA
0x2e7198…2e732c Dummy {f00=0x0039, f01=0x0190, f02=»QU *-2 3 P LDKL A4,0 4 PLCA4 EQU *-2 4 P LDKL A5,0 4 4 PLCA5 EQU *-2 4 F P LDKL A6,0 4 Z PLCA6 EQU *-2 4 l P LDKL A7,0 4 PLCA7 EQU *-2 4 P LDKL A8,0 4 PLCA8 EQU *-2 4 PRTNA15 EQU * 4 P ADKL A15,4 4 P ABR* A15 4 P
0x2e732c…2e74c0 Dummy {f00=0x0039, f01=0x0190, f02=»OR NAK DK 4 | P* 5 P* 5 P* CHARACTER EQUATES 5 & P* 5 B & PSF EQU X'1D' START FIELD CHARACTER 5 L PSYN EQU /16 5 v PSTX EQU /02 5 PETX EQU /03 5 PETB EQU /17 5 PITB EQU /1F 5 PSOH EQU /01 5 PENQ EQU /05 5 PDLE EQ
0x2e74c0…2e7654 (3, 85) Dummy {f00=0x0045, f01=0x0190, f02=»MCOM EQU /36 5 P IFT CODE=0 6 PPAR EQU /80 6 ( PRVI EQU /3C 6 < PACK0 EQU /30 6 P PACK1 EQU /31 6 d PDC1 EQU /11 6 x P IFT MSV1=0 6 PWACK EQU /3B 6 P XIF 6 P IFT CODE=0 6 P IFT MSV1=1 6 0 PWACK EQU /BF =WABT - SIEMENS MSV
0x2e7654…2e77e8 Dummy {f00=0x0045, f01=0x0190, f02=»ACK1 EQU /2F 6 PSYNEBC EQU /32 7 P XIF 7 * P 7 6 P* 7 @ P* 7 J P* PROCEDURE WORK AREAS 7 T P* 7 r P* 7 | * PFDWTIN RES 1 CURRENT DWT FOR RECEPTION 7 . PFDWTUT RES 1 CURRENT DWT FOR TRANSMISSION 7 PXACK DATA 0 ACK EXPECTED 7 PXS
0x2e77e8…2e797c Dummy {f00=0x0045, f01=0x0190, f02=»H 7 t PCACK DATA 0 ACK COUNTER 8 * PSYNSW DATA 0 0=SKIP SYNS, 1=DON'T SKIP 8 * P* 8 X PFECB RES 1 WRITING ECB 8 b ( PFECBBA RES 1 WRITING BUFFER ADDRESS 8 & PFECBRL RES 1 WRITING BUFFER LENGTH 8 PFBAX DATA 0 BUFFER INDEX 8 0 PFBLST DATA 0 START
0x2e797c…2e7b10 Dummy {f00=0x0045, f01=0x018e, f02=»0 CONTROL SEQUENCE SAVE AREA 8 ( PCRDBUF DATA 0 READ BUFFER COUNTER DK 9 $ P* 9 P P* 9 Z $ P* 3270 SENSE/STATUS INFORMATION 9 d P* 9 P* 9 P IFF STAT=0 9 . PSSTAB EQU * S/S 0 : NO STATUS,DB,DE,DB+DE 9 P* 9 P* 9 P DATA /4248 9
0x2e7b10…2e7ca4 Dummy {f00=0x0045, f01=0x0190, f02=» P XIF : P : P* : P* : $ P* BASIC RECEIVE MODE : . P* : J " P* ENTERED EVERY TIME A MESSAGE : T & P* IS EXPECTED FROM THE MASTER SIDE : z P* : P* : P IFT P6805=1 SALCUZ : , PBRMHLT CF A5,HALTIN HALT RECEIVER SALCUZ : P XIF
0x2e7ca4…2e7e38 Dummy {f00=0x0045, f01=0x0190, f02=»TE STATUS : l P XIF SALCUZ ; P IFT P6805=1 SALCUZ ; ( 0 P CF A15,CKMESS CHECK IF STATUS CHANGE SALCUZ ; D P XIF SALCUZ ; x PBRM010 EQU * ; P IFT CODE+P6805=0 SALCUZ ; 0 P LDKL A2,/100+LSPEED+SYN SPECIFY SYN PATTERN ; P XIF SALCUZ ;
0x2e7e38…2e7fcc Dummy {f00=0x0045, f01=0x0190, f02=» P6805=0 SALCUZ ; " P CIO A2,1,LCUIN START RECEIVER < P XIF SALCUZ < > P IFT P6805=1 SALCUZ < T P IFF CODE=1 SALCUZ < p P LDK A2,/0C SALCUZ < * P CIO A2,1,LCUIN START RECEIVER SALCUZ < P LDK A2,SYN SALCUZ < 2 P OTR A2,1,LCUIN SPECIF
0x2e7fcc…2e8160 Dummy {f00=0x0045, f01=0x0190, f02=» < ~ * P CIO A2,1,LCUIN START RECEIVER SALCUZ = P LDK A2,SYNEBC SALCUZ = 6 2 P OTR A2,1,LCUIN SPECIFY SYNC CHARACTER SALCUZ = T P RB(NA) BRMHLT SALCUZ = P XIF SALCUZ = PBRM100 EQU * = $ P CF A5,READP READ ONE CHARACTER = P RF(NZ) BRM150
0x2e8160…2e82f4 (3, 86) Dummy {f00=0x0047, f01=0x0190, f02=»RECEIVED = ~ P SUK A1,ENQ-EOT > P ABL(Z) BRM400 ENQ RECEIVED > ( P SUK A1,DLE-ENQ > L P ABL(Z) BRM600 DLE RECEIVED > d P SUK A1,NAK-DLE > P ABL(Z) BRM500 NAK RECEIVED > P IFT MSV1=0 > P LDR A8,A2 > $ P CF A5,READP READ ONE CHARACTE
0x2e82f4…2e8488 Dummy {f00=0x0047, f01=0x018e, f02=» CC A2,DW1500+1 > P RF(E) BRM110 POLLING ? P LDK A3,2 ? 6 P CC A2,DW1500 ? H P RF(NE) BRM150 NOT THIS TCU ? ^ PBRM110 EQU * ? P CF A5,READP READ 1:ST STA ? P RF(NZ) BRM150 PARITY ERROR ? P LDR A8,A2 ? P IFT MSV1=0 ? P CF A5
0x2e8488…2e861c Dummy {f00=0x0047, f01=0x018e, f02=» ? " P CF A5,READ READ ONE CHARACTER @ P IFT P6805=0 SALCUZ @ . P SUK A2,ENQ+PAR @ J P XIF SALCUZ @ b P IFT P6805=1 SALCUZ @ x P SUK A2,ENQ SALCUZ @ P XIF SALCUZ @ P RF(NZ) BRM150 NOT ENQ @ P IFT P6805=0 SALCUZ @ $ P CF A5,R
0x2e861c…2e87b0 Dummy {f00=0x0047, f01=0x0190, f02=» @ P XIF SALCUZ A P IFT P6805=1 SALCUZ A $ P CF A5,HALTIN HALT INPUT SALCUZ A : . P RB(NZ) BRM010 PARITY ERROR SALCUZ SALCUZ A b P XIF SALCUZ A P LDK A1,1 A P ST A1,CACK LOAD ACK COUNTER A P LDR A2,A8 A P SUK A3,2 A P RF(
0x2e87b0…2e8944 Dummy {f00=0x0047, f01=0x0190, f02=»POLL ADDRESS) A l P XIF B P IFT MSV1=0 B " & P CF A5,FINTER CHECK IF STA PRESENT B 6 P XIF B ` P LDR A6,A3 LOAD DWT TO A6 B l P ABL(NZ) SPOLL SPECIFIC POLL B P RB BRM INVALID POLL B PBRM120 EQU * B & P CF A5,FINTER CHECK IF STA PRESENT B
0x2e8944…2e8ad8 Dummy {f00=0x0047, f01=0x0190, f02=»30 EQU * B P ABL SELECT C P XIF C $ P IFT MSV1=1 C 4 P ABL BRM INVALID ADDRESS C J P XIF C j P* C z , P* WAIT FOR MARK HOLD TO RESYNCHRONIZE C P* C PBRM150 EQU * C P ANK A2,/7F C P SUK A2,/7F C P RB(Z) BRM RES
0x2e8ad8…2e8c6c Dummy {f00=0x0047, f01=0x0190, f02=» P* D P* D PBRM200 EQU * D & P CF A5,HPTIM STOP PROCEDURE TIMER D , P IFT RCOM=1 D V P CM XRB RESET READ BUFFER D j P XIF D P LD A1,XACK D & P RF(Z) BRM220 ACK IS NOT EXPECTED D " P LD A6,FDWTUT GET WRITING DWT D P RF(Z) BRM21
0x2e8c6c…2e8e00 Dummy {f00=0x0047, f01=0x0190, f02=»PECTED' D z PBRM220 EQU * E P CM XSEL RESET 'SELECTED' E $ P RB BRM E F P E V P* E ` P* E j P* STX HAS BEEN RECEIVED E t P* E P* E PBRM300 EQU * E P CF A5,HPTIM E P LD A1,XSEL E P RF(Z) BRM315 NOT SELECTED E P L
0x2e8e00…2e8f94 (3, 87) Dummy {f00=0x0047, f01=0x0190, f02=»F(NZ) BRM320 MESSAGE OK E PBRM310 EQU * F ( P CM XSTA INDICATE 'INVALID MESSAGE' F 4 PBRM312 EQU * F ` P CF A5,TRNAK SEND NAK F t P ABL BRM F PBRM315 EQU * F P IFT RCOM=1 F P LD A1,XACK F & P RF(Z) BRM316 ACK IS NOT EXPECTED F P
0x2e8f94…2e9128 Dummy {f00=0x0047, f01=0x0190, f02=»YNCHRONIZE F n P LDR* A2,A6 GET STA G P XIF G . P IFT RCOM=1 G : , P CF A5,PRREC PREPARE FOR TEXT RECEPTION G N P LDK A1,0 SET RC=0 G ~ ( P CF A5,CWRITE COMPLETE WRITE REQUEST G P CM CACK PRESET ACK-1 =7 G P RB BRM305 READ THE MESSAGE G P
0x2e9128…2e92bc Dummy {f00=0x0047, f01=0x0190, f02=»=8 G P SUK A2,ENQ =8 H P XIF =8 H " ( P RB(Z) BRM312 FORWARD ABORT SEQUENCE H 4 P RB BRM220 H ` PBRM320 EQU * H r P IM XSTA INDICATE MESSAGE OK H $ P LD A4,DCRBUF GET BUFFER ADDRESS H P ADK A4,6 H P CW A4,FBLST H " P RF(NE) BRM325 N
0x2e92bc…2e9450 Dummy {f00=0x0047, f01=0x0190, f02=»CR A1,A4 GET COMMAND CODE H P SUK A4,1 I " P SUK A1,RDBCOM I 4 ( P RF(Z) RDBUF READ MODIFIED RECEIVED I J P SUK A1,RDMCOM-RDBCOM I v & P RF(Z) RDMOD READ BUFFER RECEIVED I P XIF I PBRM325 EQU * I P SUK A7,1 I & P RF(Z) BRM340 MESSAGE EN
0x2e9450…2e95e4 Dummy {f00=0x0047, f01=0x0190, f02=» I " P* PREPARE FOR CHAINED COMMAND J P* J . P IFT RCOM=1 J 8 P LDR* A2,A6 J L P LC A2,TEBCDIC,A2 J ` P LD A1,DCRBUF J z P RF(Z) BRM326 J P ST A2,+4,A1 J P XIF J PBRM326 EQU * J P CWK A6,DW1500 J , P RF(E) BRM330 MESSAGE IS
0x2e95e4…2e9778 Dummy {f00=0x0047, f01=0x018e, f02=»R =4 J | & P RF(Z) BRM327 ANY MESSAGE ORDER =4 K P XIF =4 K 6 P LDK A2,2 K H P CW A2,DWTOR,A6 K Z " P RF(NE) BRM330 NO READ REQUEST K r PBRM327 EQU * K P LDK A1,0 SET RC=0 K $ P LD A8,DWTECB,A6 GET ECB ADDRESS K P LD A3,-4,A4 GET LENGTH K
0x2e9778…2e990c Dummy {f00=0x0047, f01=0x0190, f02=» P L P* L P* L 0 P* CHECK IF START PRINTER BIT SET IN CCC/WCC L " P* L V P* L ` P IFT STAT=1 L j P LC A2,+2,A4 GET WCC/CCC L ~ P ANK A2,/FF L P LC A2,TEBCDI,A2 TRANSLATE L P ANK A2,8 L P RF(Z) BRM328 L P LD A2,DWTST
0x2e990c…2e9aa0 Dummy {f00=0x0047, f01=0x0190, f02=»6 ORDER =4 L , P RF(NZ) BRM329 NOT ANY MESSAGE ORDER =4 M & P SUK A4,6 ADJUST BUFFER ADDRESS =4 M B ( P CF A5,QRBUF QUEUE MESSAGE ON DWT =4 M l P RF BRM32A =4 M P XIF =4 M PBRM329 EQU * =4 M P M P LDK A1,0 RESET RETURN CODE M & P CF A1
0x2e9aa0…2e9c34 (3, 88) Dummy {f00=0x0048, f01=0x0190, f02=» M P N PBRM330 EQU * N P IFT EM3270=1 =4 N & P LD A1,DWTST,A6 STATUS =4 N @ P RF(N) BRM335 NO REQUEST =4 N b P LD A1,DWTOR,A6 ORDER =4 N , P RF(NZ) BRM335 NOT ANY MESSAGE ORDER =4 N & P CF A15,TENDIO COMPLETE REQUEST =4 N PBRM335 E
0x2e9c34…2e9dc8 Dummy {f00=0x0048, f01=0x0190, f02=»DCTASK READ IF ANY N x PBRM340 EQU * O P CF A5,TRACK SEND ACK 0/1 O . P ABL BRM O P PBRM345 EQU * O ` P IFT STAT=1 O t P LD A1,DWTST,A6 O P ANK A1,8 O $ P RB(Z) BRM340 ACK SHOULD BE SENT O P CF A5,TRWACK SEND WACK O P RF BRM410 O
0x2e9dc8…2e9f5c Dummy {f00=0x0048, f01=0x0190, f02=» O h P* P P* P P IFF RCOM=0 P $ PRDBUF EQU * READ BUFFER COMMAND P 0 PRDMOD EQU * P X " P CM XSEL RESET SELECT EXPECTED P l 4 P LD A6,FDWTIN DWT-ADDRESS FOR ADDRESSED TERMINAL P $ P LD A4,DWTBUF,A6 BUFFER ADDRESS P $ P SUK A4,2 SDJUST BUFFE
0x2e9f5c…2ea0f0 Dummy {f00=0x0048, f01=0x0190, f02=»1,CACK INCREMENT ACK COUNTER P P DB Q $ * P LD A1,CRDBUF INCREMENT READ BUFFER DK Q 2 P ADK A1,1 COUNTER DK Q ` P ST A1,CRDBUF DK Q | P DE Q P ABL POL127 Q P XIF Q P* Q P* Q P* ENQ HAS BEEN RECEIVED Q P* Q P* Q
0x2ea0f0…2ea284 Dummy {f00=0x0048, f01=0x0190, f02=»R A1,XSEL Q " P RF(Z) BRM410 IN CONTROL STATE R . P CF A5,TRREP REPEAT LAST CONTROL SEQUENCE R 8 PBRM410 EQU * R j P ABL BRM R ~ P R P* R P* R P* NAK HAS BEEN RECEIVED R P* R P* R PBRM500 EQU * R & P CF A5,HPTIM STOP PR
0x2ea284…2ea418 Dummy {f00=0x0048, f01=0x0190, f02=» RF BRM636 R PBRM510 EQU * S P DB S & P LDK A1,0 S 4 P CIO A1,0,LCUIN DK S F P SST A1,LCUIN DK S b P CF A15,STREG DK S | P CF A15,SETIME DK S P DATA BRM520,TIMNAK DK S P ABL TDISP DK S PBRM520 EQU * DK S P CF A15,LD
0x2ea418…2ea5ac Dummy {f00=0x0048, f01=0x0190, f02=»EEN TRANSMITTED S t P XIF T 0 P LD A1,FBLST GET START POINT FOR LAST BLOCK T $ & P SU A1,FECBBA COMPUTE BUFFER INDEX T X P ST A1,FBAX T P ABL POL130 T P* T P* T P* DLE HAS BEEN RECEIVED T P* T P* T PBRM600 EQU * T & P C
0x2ea5ac…2ea740 Dummy {f00=0x0048, f01=0x0190, f02=» P IFF P6805=1 =8 U P CWK A2,ACK0+PAR U P XIF =8 U 4 P IFT P6805=1 =8 U F P CWK A2,ACK0 =8 U ^ P XIF =8 U v P RF(NE) BRM620 U P* U P* ACK , 0 RECEIVED U P* U P LD A1,CACK GET ACKCOUNTER U P RF(Z) BRM630 ACK,0 EXPECT
0x2ea740…2ea8d4 (3, 89) Dummy {f00=0x0048, f01=0x018e, f02=» P CWK A2,ACK1 V P RF(NE) BRM650 V P* V . P* ACK , 1 RECEIVED V 8 P* V R P LD A1,CACK GET ACK COUNTER V $ P RB(Z) BRM610 ACK,1 NOT EXPECTED V PBRM630 EQU * V P LD A1,XETX V P RF(Z) BRM640 ETX NOT SENT V P V P* V , P*
0x2ea8d4…2eaa68 Dummy {f00=0x0048, f01=0x0190, f02=» V . P RF(NZ) BRM670 STATUS HAS BEEN TRANSMITTED W P XIF W : ( P CF A5,CWRITE COMPLETE WRITE REQUEST W F PBRM636 EQU * W r P CF A5,TREOT SEND EOT W P IFT RCOM=1 W P W P CM XRB RESET READ BUFFER W P XIF W P RB BRM410 W PBRM640 E
0x2eaa68…2eabfc Dummy {f00=0x0048, f01=0x0190, f02=» CWK A2,RVI+PAR W P XIF =8 X P IFT P6805=1 =8 X * P CWK A2,RVI =8 X B P XIF =8 X Z ( P RB(NE) BRM610 INVALID DLE SEQUENCE X l " P CM XACK RESET 'EXPECTING ACK' X P LD A1,XETX X $ P RF(NZ) BRM660 ETX HAS BEEN SENT X P LDK A1,2 SET
0x2eabfc…2ead90 Dummy {f00=0x0048, f01=0x0190, f02=» X " P* STATUS HAS BEEN TRANSMITTED Y P* Y . P* Y 8 PBRM670 EQU * Y B " P LD A6,FDWTUT GET DWT ADDRESS Y V , P CF A15,REMOVS REMOVE FROM STATUS QUEUE Y | P CM XSTA CLEAR 'STATUS SENT' Y " P CM XACK CLEAR 'ACK EXPECTED' Y P LD A1,DWTST,A6 GE
0x2ead90…2eaf24 Dummy {f00=0x0048, f01=0x0190, f02=» P XIF Z P Z P* Z P* Z $ P* SELECT HAS BEEN RECEIVED Z . P* Z P P* Z Z PSELECT EQU * Z d P LD A1,XACK =5 Z x * P RF(NZ) POL010 ERROR. ACK EXPECTED =5 Z P IFF STAT=0 Z P LD A1,DWTST,A6 GET STATUS Z P LDR A3,A1 Z P A
0x2eaf24…2eb0b8 Dummy {f00=0x0048, f01=0x0190, f02=» XIF Z PSEL100 EQU * [ P ABL BRM [ PSEL110 EQU * [ 0 P IFT STAT+NOWACK=1 [ D P ANK A3,8 [ ^ P RF(NZ) SEL115 BUSY [ p P XIF [ P IFT STAT+NOWACK=2 [ P ANK A3,8 [ " P RF(Z) SEL111 DEVICE NOT BUSY [ P CF A5,TRWACK TRANSMIT WACK [
0x2eb0b8…2eb24c Dummy {f00=0x0048, f01=0x0190, f02=» IFF STAT+NOWACK=2 [ P CF A5,TRWACK SEND WACK P XIF : P RB SEL100 F PSEL120 EQU * X , P CF A5,PRREC PREPARE FOR TEXT RECEPTION l P CF A5,TRACK SEND ACK,0 P RB SEL100 P P* P* P* PREPARE FOR TEXT RECEPTION
0x2eb24c…2eb3e0 Dummy {f00=0x0048, f01=0x0190, f02=» LC A2,TEBCDIC,A2 TRANSLATE STA TO EBCDIC P XIF ] 2 $ P ST A2,+4,A1 SAVE STA IN BUFFER ] > P IM XSTA ] f " P ST A6,FDWTIN STORE INPUT DWT ] v P RTN A5 ] P ] P* ] P* ] $ P* GENERAL POLL HAS BEEN RECEIVED ] P* ] P* ] PGP
0x2eb3e0…2eb574 (3, 90) Dummy {f00=0x0048, f01=0x0190, f02=»TART PROCEDURE TIMER =5 ] " P ABL BRM WAIT FOR RESPONSE =5 ^ PPOL020 EQU * =5 ^ F " P CF A5,CPTIM CHECK POLL TIMER ^ ^ P IFF STAT=0 ^ P LD A6,DCSTQ ^ & P RF(Z) POL110 NO STATUS TO BE SENT ^ " P SUK A6,DWTSQ GET DWT ADDRESS ^ PPOL050 EQU
0x2eb574…2eb708 Dummy {f00=0x0048, f01=0x0190, f02=» STAT=1 ^ P RF POL110 _ P XIF _ " PPOL100 EQU * _ . P ABL BRM _ B PPOL110 EQU * _ R P LD A6,DCWRQ _ f " P RF(NZ) POL120 WRITE ON QUEUE _ z PPOL115 EQU * _ P CF A5,TREOT SEND EOT _ P RB POL100 _ PPOL120 EQU * _ " P SUK A6,DWTWQ GE
0x2eb708…2eb89c Dummy {f00=0x0048, f01=0x0190, f02=» _ PPOL126 EQU * ` P ST A8,FECB SAVE ECB ADDRESS ` P ST A6,FDWTUT SAVE A6 ` @ P ` ^ P IFF MMUPAG=0 ` f $ P LDKL A4,MMUBUF MMU WORK BUFFER ` | P ST A4,ECBBA,A8 ` . P CF A15,DC:MOT MOVE DATA FROM USER BUFFER ` P XIF ` & P LD A4,ECBBA,A
0x2eb89c…2eba30 Dummy {f00=0x0048, f01=0x0190, f02=»IP FIRST WORD OF BUFFER ` P ST A3,FECBRL SAVE LENGTH a P CM FBAX RESET BUFFER INDEX a B PPOL130 EQU * a f P CM XETX RESET 'ETX SENT' a z P CM XSTA a P CF A5,TRTEXT SEND ONE BLOCK a & P CF A5,SPTIM START PROCEDURE TIMER a P IM XACK SET '
0x2eba30…2ebbc4 Dummy {f00=0x0048, f01=0x0190, f02=»L EQU * a P IFF STAT+SPECP=0 b P LD A1,XACK =5 b * " P RB(NZ) POL010 ACK EXPECTED =5 b B P LDR A7,A6 SAVE A6 b h P CF A5,CPTIM CHECK POLLTIMER b P LDR A6,A7 RESTORE A6 b P IFT STAT=1 b P LD A1,DWTST,A6 GET STATUS b P ANK A1,7 b
0x2ebbc4…2ebd58 Dummy {f00=0x0048, f01=0x018e, f02=» LD A1,DWTOR,A6 GET ORDER b P SUK A1,6 c " P RB(Z) POL125 WRITE REQUEST c 4 P SUK A1,2 c X " P RB(Z) POL125 EXCHANGE REQUEST c j P XIF c P RB POL115 SEND EOT c P c P* c P* c 8 P* CHECK IF THERE IS A WRITE REQUEST TO BE COMPLETE
0x2ebd58…2ebeec Dummy {f00=0x0048, f01=0x0190, f02=» c n P LD A2,DWTST,A6 d P RF(N) CWR900 NO REQUEST d P LD A2,DWTOR,A6 GET ORDER d @ P SUK A2,6 d b P RF(Z) CWR100 WRITE REQUEST d t P SUK A2,2 d ( P RF(NZ) CWR900 NOT EXCHANGE REQUEST d P LDR A1,A1 d 2 P RF(NZ) CWR100 TRANSMISSION ERRO
0x2ebeec…2ec080 Dummy {f00=0x0048, f01=0x0190, f02=»T ECB ADDRESS d | P CF A15,CTIME STOP TIMING e P LDR A8,A8 e 8 P RF(Z) CWR150 e J P ST A2,ECBCW,A8 e ` $ P CF A15,TENDIO COMPLETE REQUEST e x PCWR150 EQU * e * P CF A15,REMOVW REMOVE FROM WRITE QUEUE e PCWR200 EQU * e PCWR900 EQU * e "
0x2ec080…2ec214 (3, 91) Dummy {f00=0x0049, f01=0x0190, f02=» e P* ON EXIT A3 CONTAINS : f ( P* 0 : IF CORRECT ETX BLOCK RECEIVED f ( 2 P* 1 : IF LRC OR PARITY ERROR , BUFFER OVERFLOW f T ( P* 2 : IF CORRECT ETB BLOCK RECEIVED f P* f PRDMESS EQU * f $ P LD A4,DCRBUF GET BUFFER ADDRESS f P ADK A4,6 RE
0x2ec214…2ec3a8 Dummy {f00=0x0049, f01=0x0190, f02=» SUR A1,A4 f P ST A1,FBAX g PRDM050 EQU * g & P AD A4,FBAX ADD BUFFER INDEX g : ( P ST A4,FBLST REMEMBER START OF BLOCK g ^ PRDM075 EQU * g P CM XSTA g P LDK A7,0 RESET LRC g P g P IFT IBMCHR=1 g P LD A1,FBAX g " P RF(NZ) RDM1
0x2ec3a8…2ec53c Dummy {f00=0x0049, f01=0x0190, f02=» SKIP NEXT TWO CHARACTERS g P CF A5,READP h " P XIF h 6 PRDM100 EQU * h B $ P CF A5,READP READ ONE CHARACTER h V P RF(NZ) RDM120 PARITY ERROR h ~ PRDM110 EQU * h P CWK A2,ETX h P RF(E) RDM130 ETX RECEIVED h P CWK A2,ETB h P RF(E) R
0x2ec53c…2ec6d0 Dummy {f00=0x0049, f01=0x0190, f02=»N MESSAGE h l P CWK A2,/FF i $ P RF(E) RDM140 MARK HOLD RECEIVED i & P i N P IFT CODE=0 i V P IFT BINTRM=1 i j P i P LDR A1,A2 i P SUK A1,DC1+3 i P RF(P) RDM115 NOT DC1-DC3 i P ADK A1,3 i P RF(N) RDM115 NOT DC1-DC3 i P S
0x2ec6d0…2ec864 Dummy {f00=0x0049, f01=0x0190, f02=» TO ONE CHARACTER i | P ORR A2,A8 j PRDM115 EQU * j , P XIF j @ P j L P SCR A2,A4 STORE CHARACTER j T P ADK A4,1 INCREMENT POINTER j v $ P IM FBAX INCREMENT BUFFER INDEX j P LD A1,FBAX j P CWK A1,RBUFL+RBUFL j P RB(NG) RDM100 NOT OVE
0x2ec864…2ec9f8 Dummy {f00=0x0049, f01=0x0190, f02=» MESSAGE j v P SUK A2,/7F k $ P RF(Z) RDM150 MARK HOLD RECEIVED k $ P RB RDM100 k L P* k ^ P* ETX RECEIVED k h P* k ~ PRDM130 EQU * k $ P LD A1,DCRBUF GET BUFFER ADDRESS k P LD A2,FBAX GET BUFFER INDEX k 2 P ST A2,+2,A1 STORE EFFECTIVE LEN
0x2ec9f8…2ecb8c Dummy {f00=0x0049, f01=0x018e, f02=»RC READ CRC AND CHECK IT k P RF(E) RDM150 CRC WAS OK l P XIF l @ PRDM140 EQU * l L & P LDK A3,1 INDICATE INVALID MESSAGE l ` PRDM150 EQU * l $ P LDR A7,A3 SAVE RESULT REGISTER l P CF A5,HALTIN HALT INPUT l P IFT P6805=1 l " P ORR A7,A1 PAR
0x2ecb8c…2ecd20 Dummy {f00=0x0049, f01=0x0190, f02=» l " P RB(NZ) RDM130 ALREADY INVALID m " P LDK A3,2 INDICATE CORRECT ETB m . P RB RDM130 m T P* m f P* ITB RECEIVED m p P* m PRDM170 EQU * m P IFF CODE=1 m P CF A5,RDLRC m " P RB(NZ) RDM120 LRC WAS NOT OK m P XIF m P IFT CODE=
0x2ecd20…2eceb4 (3, 92) Dummy {f00=0x004b, f01=0x018e, f02=» P* TRANSMIT ACK 0 OR 1 n P* n " PTRACK LDK A2,1 n , P LDK A3,ACK1 PRELOAD ACK1 n B & P XRS A2,CACK INCREMENT ACK COUNTER n d P RF(NZ) TRDLE n P LDK A3,ACK0 LOAD ACK0 n P RF TRDLE n P* n P* TRANSMIT WACK n P* n PTRWACK L
0x2eceb4…2ed048 Dummy {f00=0x004b, f01=0x018e, f02=» n t P XIF o P* o P* TRANSMIT DLE o P* o 4 PTRDLE LDK A2,DLE LOAD DLE o > " P SC A2,RESEND PUT INSAVE AREA o ` P SC A3,RESEND+1 o P RF TRREP o P o P* o P* TRANSMIT NAK o P* o PTRNAK LDK A3,NAK LOAD NAK o P R
0x2ed048…2ed1dc Dummy {f00=0x004b, f01=0x0190, f02=» o P* p PTRENQ LDK A3,ENQ LOAD ENQ p P* p 4 ( PTREN10 SC A3,RESEND PUT IN SAVE AREA p > P LDK A2,/FF p j P SC A2,RESEND+1 p ~ $ PTRREP CF A5,TRSYNC START OUTPUT p & P LC A2,RESEND GET FIRST CHARACTER p P CF A5,WRITEP SEND IT p & P L
0x2ed1dc…2ed370 Dummy {f00=0x004b, f01=0x018e, f02=»F p P CF A5,WRIT05 q P LDK A2,0 SALCUZ q $ P CIO A2,0,LCUUT STOP TRANSMITTER q : P IFT P6805=1 SALCUZ q b $ P CF A5,READ WAIT FOR END SALCUZ q ~ P XIF SALCUZ q & P SST A2,LCUUT PERFORM SST AT ONCE q P IFF LOGG=0 q ( P CF A5,LOGSST
0x2ed370…2ed504 Dummy {f00=0x004b, f01=0x0190, f02=» q PTRTEXT EQU * r P CF A5,TRSYNC START OUTPUT r P IFT TSTREQ=1 r > P* r T P* r ^ P* TEST REQUEST HANDLING r h P* r P* r P LD A4,FBAX r ( P RF(NZ) TRT050 NOT START OF MESSAGE r P r 2 P LD A1,XRB READ BUFFER COMMAND IN PR
0x2ed504…2ed698 Dummy {f00=0x004b, f01=0x018e, f02=» RF(NZ) TRT050 NOT TEST REQUEST r P LDK A2,SOH s ( P CF A5,WRITE SEND SOH s < P LDK A7,0 RESET BCC s Z P LDK A2,'%' s v P CF A5,WRITE SEND % s P LDK A2,'/' s P CF A5,WRITE SEND / s P LDK A2,STX s P CF A5,WRITE SEND STX s ( P
0x2ed698…2ed82c Dummy {f00=0x004b, f01=0x0190, f02=» P ST A2,FBAX t P RF TRT100 t PTRT050 EQU * t * P* t > P* t H P* t R P XIF t P LDK A2,STX t h P CF A5,WRITE SEND STX t | P LDK A7,0 RESET LRC t $ P LD A4,FECBBA GET BUFFER ADDRESS t P AD A4,FBAX ADD BUFFER INDEX t ( P ST A4
0x2ed82c…2ed9c0 Dummy {f00=0x004b, f01=0x0190, f02=»GET BUFFER INDEX t " P RF(NZ) TRT100 NOT FIRST BLOCK u P LC A2,DW1500+1 GET TCA u > P CF A5,WRITEP SEND TCA u ^ P LDR* A2,A6 GET STA u | P CF A5,WRITEP SEND STA u P IFT IBMCHR=1 u P IFF RCOM=1 u " P LDK A2,/27 SEND ENTER AS AID u P C
0x2ed9c0…2edb54 (3, 93) Dummy {f00=0x0050, f01=0x0190, f02=»FT RCOM=1 u P v & P LD A1,XRB READ BUFFER COMMAND ??? v P RF(Z) TRT070 NO!! v D P v ^ P ******************** v f " P LDK A2,X'2D' AID FOR DISPLAY v PTRT060 CF A5,WRITEP SEND AID v P v $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS v . P CF A5,L
0x2edb54…2edce8 Dummy {f00=0x0050, f01=0x0190, f02=»DK A3,2 v PTRT100 EQU * w P LCR A2,A4 GET ONE CHARACTER w $ P ADK A4,1 INCREMENT POINTER w H P ANK A2,/7F w l P IFT RCOM=1 w & P LD A1,XRB READ BUFFER COMMAND ??? w P RF(Z) TRT105 NO!! w P w @ P****************************************
0x2edce8…2ede7c Dummy {f00=0x0050, f01=0x018e, f02=»******* w h P x & P CWK A2,X'20' ATTRIBUTE CHARACTER x P RF(L) TRT101 YES!!! x B P XIF x ^ P IFT DMRK=1 x j P CWK A2,/7E LINE FEED ? x ~ " P RF(NE) TRT102 NO,GO TO TRT102 x P LDK A2,/0A x PTRT102 EQU * x P CWK A2,/7D END OF MESSAGE ?
0x2ede7c…2ee010 Dummy {f00=0x0050, f01=0x0190, f02=» P SUK A2,1 y P XIF y P IFT RCOM=1 y " P RF TRT105 y 6 P y H PTRT101 EQU * y P P y d P LDK A2,SF y l " P CF A5,WRITEP SEND START FIELD y ~ P y ( P LC A2,-1,A4 GET ATTRIBUTE CHARACTER y P ANK A2,X'7F' y ( P LDR A1,A2 CONVERT TO IBM
0x2ee010…2ee1a4 Dummy {f00=0x0050, f01=0x0190, f02=»ALWAYS SET ONE y P LC A2,TASCII,A2 z & P CWK A2,/18 CHECK SPECIAL ATTRIBUT z . P RF(NE) TRT104 z X P LDK A2,/30 z n PTRT104 EQU * z P CF A5,WRITEP SEND ATTRIBUTE z P ADK A3,1 z P RF TRT110 z PTRT105 EQU * z P XIF z P z P
0x2ee1a4…2ee338 Dummy {f00=0x0050, f01=0x0190, f02=»NT BUFFER INDEX z & P LD A1,FECBRL GET REQUESTED LENGTH { P CW A1,FBAX { B " P RF(NG) TRT130 END OF MESSAGE { V * P ADK A3,1 INCREMENT CHARACTER COUNTER { | P CWK A3,TBLEN { P RB(L) TRT100 NOT FULL BLOCK { P IFT RCOM=1 { , P LDK A1,SBA CHEC
0x2ee338…2ee4cc Dummy {f00=0x0050, f01=0x0190, f02=» A2,A4 GET FIRST BYTE AFTER SBA { P ADK A4,1 INREMENT POINTER | ( P CF A5,WRITEP SEND IT | J P IM FBAX INCREMENT INDEX | h . PTRT115 LCR A2,A4 GET SECOND BYTE AFTER SBA | P CF A5,WRITEP SEND IT | P IM FBAX INCREMENT INDEX | P XIF | PTRT1
0x2ee4cc…2ee660 Dummy {f00=0x0050, f01=0x018e, f02=» P CF A5,WRITEP SEND LRC } P XIF } " P IFT CODE=1 } . P LDR A8,A7 SAVE CURRENT CRC } B P LDR A2,A7 } f P ANK A2,/FF } x " P CF A5,WRIT05 SEND CRC BYTE 1 } P ECR A2,A8 } P ANK A2,/FF } " P CF A5,WRIT05 SEND CRC BYTE 2 } P XIF }
0x2ee660…2ee7f4 (3, 94) Dummy {f00=0x0050, f01=0x0190, f02=» P RB TRT120 SEND ETX AND LRC ~ P ~ ( P* ~ 2 P* ~ < P* TRANSMIT STATUS MESSAGE ~ F P* ~ h P* ~ r P IFF STAT=0 ~ | PTRSTA EQU * ~ $ P IM XSTA INDICATE 'STATUS SENT' ~ P ST A6,FDWTUT SAVE A6 ~ P CF A5,TRSYNC START OUTPUT ~
0x2ee7f4…2ee988 Dummy {f00=0x0050, f01=0x0190, f02=»2,'R' ~ 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 v P LDR* A2,A6 P CF A5,WRITEP SEND STA P LD A1,DWTST,A6 GET STATUS P ANK A1,/06 MASK FOR S/S 0
0x2ee988…2eeb1c Dummy {f00=0x0050, f01=0x0190, f02=»ST,A6 GET STATUS P ANK A1,5 P RF(Z) TRST10 NOT 'IR' * P ANK A1,4 H P RF(NZ) TRST10 NO IR IF DE Z P LDK A2,IR | PTRST10 EQU * P CF A5,WRITEP SEND S/S 1 P RB TRT130 SEND ETX AND LRC P XIF P P* P*
0x2eeb1c…2eecb0 Dummy {f00=0x0050, f01=0x0190, f02=»NOT DONE r P SST A2,LCUIN PERFORM SST P IFT P6805=0 SALCUZ 2 & P CIO A2,1,LCUUT START TRANSMITTER N P XIF SALCUZ x P IFT P6805=1 SALCUZ P IFT CODE=1 SALCUZ P LDK A2,0 SALCUZ , P CIO A2,1,LCUUT START TRANSMITTER SALCUZ
0x2eecb0…2eee44 Dummy {f00=0x0050, f01=0x0190, f02=»1,LCUUT SALCUZ PTRS010 EQU * SALCUZ P LDK A2,SYNEBC SALCUZ 4 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ R P XIF SALCUZ P IFT P6805=1 SALCUZ P IFT CODE=0 SALCUZ P LDK A2,/0C SALCUZ P CIO A2,1,LCUUT SALCU
0x2eee44…2eefd8 Dummy {f00=0x0050, f01=0x018e, f02=»2,1,LCUUT SALCUZ PTRS010 EQU * P LDK A2,SYN SALCUZ . 2 P OTR A2,1,LCUUT SPECIFY SYNC CHARACTER SALCUZ J P XIF SALCUZ * P CF A5,READ WAIT FOR OUTPUT INTERRUPT P LDK A3,4 4 SYNS PTRS100 LDK A2,SYN P CF A5,WRITE SEND
0x2eefd8…2ef16c Dummy {f00=0x0050, f01=0x0190, f02=» P* PIH1501 EQU * P ST P,INTSAV " P IFT CPU852=1 6 P CF A15,SAVE8 SAVE A1-A8 L P XIF l P x P IFF CPU852=1 P MSR 8,A15 SAVE A1-A8 =1 P XIF * P CF A15,LDREG RESTORE DC REGS A3 - A8 P INR A2,0,LCUIN READ CHA
0x2ef16c…2ef300 Dummy {f00=0x0050, f01=0x0190, f02=»FF CODE=1 P C2 SYNSW P RF(NZ) IHLCI2 $ P CWK A2,SYN SKIP SYNS : P RF(E) READ X " PIHLCI2 XRR A7,A2 CALCULATE LRC l P XIF P IFT CODE=1 P C2 SYNSW 2 P RF(NZ) IHLCI1 DO NOT SKIP SYNCS IN BCC FRAME P CWK A2,SYNEBC
0x2ef300…2ef494 (3, 95) Dummy {f00=0x0050, f01=0x0190, f02=» l P XIF PIHIN10 RTN A5 P IFT P6805=0 SALCUZ * PIHIN20 CF A5,SST PERFORM SST F P ABL BRM j P XIF SALCUZ z P IFT P6805=1 SALCUZ $ PIHIN20 RF SST PERFORM SST SALCUZ P XIF SALCUZ P P* P* P
0x2ef494…2ef628 Dummy {f00=0x0050, f01=0x0190, f02=»1 - A8 | P XIF P P IFF CPU852=1 " P MSR 8,A15 SAVE A1-A8 =1 8 P XIF X * P CF A15,LDREG RESTORE DC REGS A3 - A8 d P RB IHIN10 P P* P* & P* SST INSTRUCTION AND STATUS CHECK P* ( P* LCU STATUS : B
0x2ef628…2ef7bc Dummy {f00=0x0050, f01=0x0190, f02=» BIT 15=MODEM NOT READY P* $ PSST SST A1,LCUIN . P IFT P6805=1 SALCUZ F 2 P RF(NA) SST200 ALREADY INACTIVE SALCUZ SALCUZ b P XIF SALCUZ P LDR A2,A1 P IFF LOGG=0 & P CF A5,LOGSST LOG SST INFORMATION P XIF
0x2ef7bc…2ef950 Dummy {f00=0x0050, f01=0x0190, f02=»Z P RF(Z) SST100 SALCUZ P ANK A2,2 SALCUZ ( & P RF(NZ) SST050 THROUGH PUT SALCUZ B & P LDK A1,1 SET PARITY ERROR SALCUZ l P RF SSTRET SALCUZ P XIF SALCUZ PSST050 EQU * SALCUZ P CM XSTA TROUHHPUT ERROR P LDKL
0x2ef950…2efae4 Dummy {f00=0x0050, f01=0x0190, f02=»HANGE p P RTN A5 P XIF SALCUZ P IFT P6805=1 SALCUZ 4 P ANK A1,/21 SALCUZ P P RF(Z) SST200 LSALCUZ l 6 P CF A15,SETIME LINE ERROR, WAIT 0.2 SECONDS SALCUZ P DATA BRM RESTART SALCUZ P DATA 2 WAIT TIME SALCUZ P RF
0x2efae4…2efc78 Dummy {f00=0x0050, f01=0x0190, f02=»ETURN SALCUZ P XIF SALCUZ P* * P* 4 P* HALT INPUT > P* R P* PHALTIN LDK A1,0 SALCUZ f P CIO A1,0,LCUIN P IFT P6805=0 SALCUZ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK P XIF SALCUZ P
0x2efc78…2efe0c Dummy {f00=0x0050, f01=0x0190, f02=»OM OR READ ONE CHARACTER TO A2 P* & P* 0 PWRITE EQU * : P IFT CODE=1 N P ANK A2,/FF b P CWK A2,/FF v 0 P RF(E) WRIT05 NO TRANSLATION OF TRAILING PAD * P LC A2,TEBCDIC,A2 TRANSLATE TO EBCDIC P XIF PWRIT05 EQU *
0x2efe0c…2effa0 Dummy {f00=0x0050, f01=0x018e, f02=»CCUMULATE BCC ~ P XIF P IFT CODE=1 " & PWRIT10 CF A5,CRCCAL CALCULATE CRC 6 P XIF ` P IFF LOGG=0 l & P CF A5,LOGOUT LOG OUTPUT CHARACTER P XIF P* PREAD CF A15,STREG P ABL TDISP P P* P*
0x2effa0…2f0134 (3, 96) Dummy {f00=0x0052, f01=0x0190, f02=» | P ECR A1,A2 P ORK A2,/80 PWRI100 SLL A1,1 . P RB(P) WRI100 F P RB(Z) WRITE WRITE P XRK A2,/80 v P RB WRI100 P XIF P IFF CODE+P6805=0 SALCUZ PWRITEP RB WRITE P XIF P* P* P*
0x2f0134…2f02c8 Dummy {f00=0x0052, f01=0x0190, f02=»P6805=0 SALCUZ P ECR A1,A2 PRE100 SLL A1,1 * P RF(Z) RE110 @ P RB(NN) RE100 T P XRK A2,/80 j P RB RE100 ~ PRE110 LDR A1,A2 P ANK A2,/7F P XIF P IFF CODE+P6805=0 SALCUZ P LDK A1,/80 P XIF
0x2f02c8…2f045c Dummy {f00=0x0052, f01=0x0190, f02=»G SUBTERMINAL ADDRESS AS GIVEN IN A2 | P* , $ P* CALLING SEQUENCE: CF A5,FINTER 6 P* A2=SUBTERMINAL ADDRESS ^ P* A4 DESTROYED ~ " P* A3#0: DWT TO FOUND TERMINAL P* B P* NOTE: FOR SIEMENS MSV1 - SEPARATE SELECT AND POLL ADDRESSES *
0x2f045c…2f05f0 Dummy {f00=0x0052, f01=0x0190, f02=» RIGTH BYTE r P* P* PFINTEP EQU * ( P IFT MSV1=0 < PFINTER EQU * P P XIF d P IM RBYTE p P IFT MSV1=1 PFINTER EQU * P XIF & P LD A4,DCTAB GET ADDRESS TO DC:TAB * P AD* A4,DCTAB ADDRESS TO END OF DC:TAB
0x2f05f0…2f0784 Dummy {f00=0x0052, f01=0x018e, f02=» P LDR* A3,A4 LOAD DWT ADDRESS P IFT MSV1=1 ( $ P AD A3,RBYTE CHOOSE ADDRESS TYPE < * P CCR A2,A3 COMPARE SUBTERMINAL ADDRESS d P XIF P IFT MSV1=0 . P CC A2,1,A3 COMPARE TO SUBTERMINAL ADDRESS P XIF & P RB(NE) FINT10 TAKE NEXT
0x2f0784…2f0918 Dummy {f00=0x0052, f01=0x0190, f02=» P* P* PDC15ON EQU * P IFT CPU852=1 , P CF A15,SAVE8 SAVE A1-A8 B P XIF b P n P IFF CPU852=1 v P MSR 8,A15 SAVE A1-A8 =1 P XIF P IFT STAT=1 P LDK A5,4 SET DEVICE END P LD A1,DCTAB . P AD* A1,
0x2f0918…2f0aac Dummy {f00=0x0052, f01=0x0190, f02=»DWT ADDRESS 0 P ORS A5,DWTST,A6 STORE DEVICE END FOR DEVICE ( P CF A15,INSSQ INSERT IN STATUS QUEUE H P RB DRDC05 t PDRDC06 EQU * P XIF P LDK A2,/40 P ORS A2,DCONOF P CF A15,CKMESS ( P LD A2,DCTPGP GET POLL TIMER POINT
0x2f0aac…2f0c40 Dummy {f00=0x0052, f01=0x0190, f02=»* POLL TIME OUT P* ( PPTOUT LDKL A5,STB LOAD A5 STACK BASE " P LDK A2,/40 N ( P ST A2,DCONOF INDICATE POLL TIME OUT b * P CF A15,CKMESS CHECK IF STATUS CHANGE $ P CF A15,SPOTIM START POLL TIMER P ABL TDISP P* 4 P* RESTAR
0x2f0c40…2f0dd4 (3, 97) Dummy {f00=0x0058, f01=0x0190, f02=» RESTART TIMER * P CF A15,CKMESS CHECK IF STATUS CHANGE P RTN A5 D P* T P* START POLL TIMER ^ P* x $ PSPOTIM CF A15,SETIME START TIMER P DATA PTOUT,TIMPOL & P ST A4,DCTPGP STORE TIMER POINTER P ADKL A15,4 P ABR*
0x2f0dd4…2f0f68 Dummy {f00=0x0058, f01=0x0190, f02=»F A15,SETIME P DATA PRTOUT,TIMPRO $ P ST A4,DCTPP SAVE TIMER POINTER 0 P RTN A5 X P* h P* PROCEDURE TIMEOUT r P* PPRTOUT CM DCTPP P LDR A6,A1 RELOAD A6 P LDKL A5,STB LOAD STACK BASE , P CF A5,HALTIN HALT INPUT
0x2f0f68…2f10fc Dummy {f00=0x0058, f01=0x018e, f02=»DURE TIMER x PPRT10 ABL BRM P ( P* 2 P* STOP PROCEDURE TIMER < P* Z ( PHPTIM LD A1,DCTPP GET TIMER POINTER d P RF(Z) HPT10 NOT RUNNING P CM* DCTPP STOP TIMER P CM DCTPP PHPT10 RTN A5 P P IFT CODE=
0x2f10fc…2f1290 Dummy {f00=0x0058, f01=0x0190, f02=» PCRCCAL EQU * P ST A1,CRCSAV P ST A2,CRCSAV+2 2 P ST A3,CRCSAV+4 J P LDK A1,8 b PCRC100 LDR A3,A7 t P SRL A7,1 P XRR A3,A2 P SRL A2,1 P ANK A3,1 P RF(Z) CRC110 P XRKL A7,/A001 PCRC110 S
0x2f1290…2f1424 Dummy {f00=0x0058, f01=0x0190, f02=» P P* P* ( P* READ CRC CHARACTERS AND CHECK THEM & P* CR = (E) IF CRC WAS OK R P* r P* | $ PRDCRC LDR A6,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ READ BYTE 1 P LD A8,CRCSAV+2 SA
0x2f1424…2f15b8 Dummy {f00=0x0058, f01=0x0190, f02=» P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 COMPARE RECEIVED WITH COMPUTED ( P ABR* A5 Z P XIF j P IFT CODE=0 v P* & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK P* PRDLRC IM SYNSW P CF
0x2f15b8…2f174c Dummy {f00=0x0058, f01=0x0190, f02=»* A5 P P XIF P P* * P* 4 " P* DEVICE WORK TABLE FOR DCTASK > P* d P* n PDW1500 EQU * TABLE ENTRY x P DATA 0 CU LINE ADDRESS P DATA /8000 STATUS P DATA 0 ECB ADDRESS P DATA 0 ORDER * P DAT
0x2f174c…2f18e0 Dummy {f00=0x0058, f01=0x0190, f02=»* P IFT MMUPAG=1 P DATA 0 USER ECB ADDRESS P DATA DC:ECB MMU ECB ADDRESS @ P XIF d P* p P DATA 0 TIMER POINTER z ( P DATA 0 WRITE QUEUE OR BUFFER QUEUE . P DATA 0 STATUS QUEUE (NOT USED BY DC-TASK) " P DATA 0 RECEIVE ME
0x2f18e0…2f1a74 (3, 98) Dummy {f00=0x005a, f01=0x0190, f02=»* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 < P XIF V P* b P l P* v P* P* DC RECEIVE BUFFER POOL P* PRLINK EQU RBUFL+RBUFL+8 P* PDCRBUF EQU * P DATA *+2 FREE BUFFER
0x2f1a74…2f1c08 Dummy {f00=0x005a, f01=0x018e, f02=»INK P RES RBUFL+3 P IFF RBUFNR=4 P DATA *+RLINK 6 P RES RBUFL+3 L P XIF ` P IFF RBUFNR=1 DK3 l P DATA *+RLINK P RES RBUFL+3 P XIF DK3 P DATA 0 END OF CHAIN P RES RBUFL+3 P P IFF MMUPAG=0
0x2f1c08…2f1d9c Dummy {f00=0x005a, f01=0x0190, f02=» P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 " P ORKL A2,/F000 < P RF LOG10 R PLOGOUT ST A2,SAVE2 d P ORKL A2,/0F00 ~ P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 PLOG10 ST A3,SAVE3 P LD A3
0x2f1d9c…2f1f30 Dummy {f00=0x005a, f01=0x0190, f02=»PNT P LD A2,SAVE2 P LD A3,SAVE3 PLOGE10 RTN A5 4 P J P* T P* ^ PLOGPNT DATA LOGSTA h PLOGSTA EQU * P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 P XIF P* P* P*
0x2f1f30…2f20c4 Dummy {f00=0x005a, f01=0x0190, f02=»* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER P* H > P********************************************************** R P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL A2,6 P ANK A2,X'3F' & P LC A2,LIC
0x2f20c4…2f2258 Dummy {f00=0x005a, f01=0x0190, f02=»SCII COLUMN NUMBER ~ $ P CF A5,WRITEP SEND COLUMN NUMBER P RTN A5 RETURN B P* X P* b P* l P v P P* SCANDINAVIAN ALPHABET P DB PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DATA /4849,
0x2f2258…2f23ec Dummy {f00=0x005a, f01=0x0190, f02=»F,/5354,/5556,/5758 /20-/27 * P DATA /595A,/402C,/255F,/3E3F /28-/2F $ ( P DATA /3031,/3233,/3435,/3637 /30-37 R ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F ~ P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB
0x2f23ec…2f2580 Dummy {f00=0x005a, f01=0x4036, f02=»:END EQU * P* P* P END &@ 2/255F,/3E3F /28-/2F $ ( P DATA /3031,/3233,/3435,/3637 /30-37 R ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F ~ P DE P XIF P P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB
0x2f2580…2f2714 (3, 99) Dummy {f00=0x005a, f01=0x2008, f02=» H P X ` h p x
0x2f2714…2f28a8 Dummy {f00=0x005a, f01=0x4154, f02=» , ( > _ > ? _ > > ? ^ INTSAV@ 4 ILLINT H HALTY , ( ! Y ^ _ ? n A. H D ! 4 $ 1P ;R SW [W gT$ T P T R" #T < 8 3T> 9
0x2f28a8…2f2a3c Dummy {f00=0x005a, f01=0x0190, f02=» J F IDENT TTMJOB REL 9.2 79-11-16 870105040920 F B TTB:LAK TTB:MT TTB:SB TTMJOB TTB:QL TTB:ID TTB:STL TTB:PP R TTB:PW TTB:SA TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x2f2a3c…2f2bd0 Dummy {f00=0x005a, f01=0x40ac, f02=» TTB:PW TTB:SA , ( ! #M 1 & TTB:TD ( V A j K L @ A TTB:TD , ( $ ( , 0 4 8 < TTB:LAK TTB
0x2f2bd0…2f2d64 Dummy {f00=0x005a, f01=0x0190, f02=» J F IDENT TOSSIO REL 9.2 79-11-16 870105040920 H D !dTIO TENDIO DC:MIN DC:MOT MONMMU ECBFC ECBBA ECBRL ECBEL ECBRC R D @ ECBCW ECBCW2 BUFLENA ACTADRA ABTADR INTADR` POLADR RECADR F B ECHADR DC:DIXV DM:DIX PC:DIX8
0x2f2d64…2f2ef8 Dummy {f00=0x005a, f01=0x018e, f02=»UEC# DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 z * & DWTSB2f DWTTP DWTECHj DWTSQ DWTVOLW 4 DWTCHP b DWTST v DWTBC DWTECB DWTOR DWTOCH DWTADR DWTTAB DWTWAT
0x2f2ef8…2f308c Dummy {f00=0x005a, f01=0x0190, f02=» DWTA4 DWTA5 DWTSB1 , DWTSB2f " @ DWTTP $ T DWTECHj & f DWTSQ 0 z DWTVOLW 0 BUFLENA ACTADRA ABTADR INTADR` POLADR R
0x2f308c…2f3220 Dummy {f00=0x005a, f01=0x0190, f02=» IT:DIX ECBFC ECBBA & ECBRL 8 ECBEL J ECBRC ECBCW n ECBCW2 , ( MONMMU $ , ( ! $ ( , 0 4
0x2f3220…2f33b4 (3, 100) Opaque[0x194]
0x2f33b4…2f3548 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0570, f03=0x0000}
0x2f33b4…2f3548 IdxSect {
0x2f33b4…2f3548 f00 = 0x002b // 0x2f33b4 @0x0
0x2f33b4…2f3548 f01 = 0x002c // 0x2f33b6 @0x2
0x2f33b4…2f3548 gno = [ // 0x2f33b8 @0x4
0x2f33b4…2f3548 [0x00]: C0x002b.0x2.0
0x2f33b4…2f3548 [0x01]: C0x002b.0x3.0
0x2f33b4…2f3548 [0x02]: C0x002e.0x0.0
0x2f33b4…2f3548 [0x03]: C0x0036.0x3.0
0x2f33b4…2f3548 [0x04]: C0x0037.0x0.0
0x2f33b4…2f3548 [0x05]: C0x0037.0x1.0
0x2f33b4…2f3548 [0x06]: C0x0040.0x2.0
0x2f33b4…2f3548 [0x07]: C0x0041.0x3.0
0x2f33b4…2f3548 [0x08]: C0x004f.0x3.0
0x2f33b4…2f3548 [0x09]: C0x0155.0x0.0
0x2f33b4…2f3548 [0x0a]: C0x0155.0x1.0
0x2f33b4…2f3548 [0x0b]: C0x0159.0x0.0
0x2f33b4…2f3548 [0x0c]: C0x0159.0x1.0
0x2f33b4…2f3548 [0x0d]: C0x0159.0x2.0
0x2f33b4…2f3548 [0x0e]: C0x0159.0x3.0
0x2f33b4…2f3548 [0x0f]: C0x015a.0x0.0
0x2f33b4…2f3548 [0x10]: C0x015a.0x1.0
0x2f33b4…2f3548 [0x11]: C0x015a.0x2.0
0x2f33b4…2f3548 [0x12]: C0x015a.0x3.0
0x2f33b4…2f3548 [0x13]: C0x015b.0x0.0
0x2f33b4…2f3548 [0x14]: C0x0163.0x3.0
0x2f33b4…2f3548 [0x15]: C0x0175.0x3.0
0x2f33b4…2f3548 ]
0x2f33b4…2f3548 }
0x2f3548…2f36dc Dummy {f00=0x002b, f01=0x0190, f02=» 2 P IDENT DRRT01 9.2DK 1 79-11-16 870105040920 P : P =DK1, BLOCK - LOGGBUFFER B P 80-03-11 f ( P =9,TIMER RESET,TEST ORDER,INH-A15 z P REL 9.1 79-06-26 * P =8, INTERRUPT ADDRESS DISPLACEMENT P REL 9.1 79-05-23
0x2f36dc…2f3870 Dummy {f00=0x002b, f01=0x0190, f02=»6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03-20 " P =5,HANG UP PREVENT > P REL 8.2 79-03-19 P =4,TIME OUT ROUTINE ERROR x P REL 8.2 79-03-18 P =3,DISPL. RECOVERY P REL 8.2 79-03-17 P =2,LOOP TEST ERROR
0x2f3870…2f3a04 Dummy {f00=0x002b, f01=0x0190, f02=»********************** v P* $ P* PHILIPS TERMINAL SYSTEM PTS ( P* P . P* DRRT01 = DRIVER CHANNEL UNIT FOR LOCAL Z & P* AND REMOTE TERMINALS P* P* P* P* P* 4 P********************************
0x2f3a04…2f3b98 Dummy {f00=0x002b, f01=0x0190, f02=»PUT WORD IS READ TO REGISTER A2. IF DATA z D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER 0 P* FOR ACTUAL DEVICE. x D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* P*
0x2f3b98…2f3d2c Dummy {f00=0x002b, f01=0x0190, f02=» < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P* D 4 P* - GETCHR GET ONE CHARACTER FROM ECB-BUFFER N P* 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE P* INCLUDED IN THE DRIVER. P EJECT P* P*
0x2f3d2c…2f3ec0 Dummy {f00=0x002b, f01=0x0190, f02=»-A5 AND RETURN TO DISPATCHER f P* $ 6 P* - STREG SAVE A3-A5 AND RETURN TO DISPATCHER . P* h D P* - LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN r " P* TO USER VIA A5 P* : P* - LDREGE RESTORE A3-A5 A
0x2f3ec0…2f4054 (3, 101) Dummy {f00=0x002b, f01=0x0190, f02=»N CODE P* A2 = INPUT WORD P* A3 = LINE NUMBER * 2 * P* A4 = DEVICE NUMBER * 2 J P* A5 = CWT-ADDRESS l P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x2f4054…2f41e8 Dummy {f00=0x002b, f01=0x0190, f02=»L UNIT h : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 2 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANEL LOCAL L 4 P ENTRY CHLT4 INTERRUPT FROM FOURtH CHANEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENTRY CHRT2 INT
0x2f41e8…2f437c Dummy {f00=0x002b, f01=0x0190, f02=»HANEL REMOTE l $ P ENTRY OUTLIN SEND ONE CHARACTER P ENTRY CHLTON START OF CHLT < 0 P ENTRY OUTPUT SAVE REGISTERS, SEND CHARACTER ` P ENTRY CHTAB CHANNEL TABLE P AND GO TO DISPATCHER , P ENTRY LDREG RELOAD REGISTERS AND RETURN , P E
0x2f437c…2f4510 Dummy {f00=0x002b, f01=0x018e, f02=»RY GETCHR GET ONE CHARACTER FROM ECB-BUFFER P 4 @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS < 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS & P ENTRY REMFC REMOTE TEST FILE CO
0x2f4510…2f46a4 Dummy {f00=0x002b, f01=0x0190, f02=» P* * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * < * P************************************** j P* P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER P EXTRN RETUR4 REST
0x2f46a4…2f4838 Dummy {f00=0x002b, f01=0x0190, f02=»UPT TABLE FOR LOCAL TERMINALS | , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 & & P EXTRN INTLT3 INTERRUPT FROM CHLT3 V & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT TABLE FOR REMOTE TERMINALS 2 P EXTRN INTRT2 INTERRUPT TABLE REMOTE
0x2f4838…2f49cc Dummy {f00=0x002b, f01=0x0190, f02=»XTRN DISIOE I/O REQUEST ERROR & P EXTRN DISEND END I/O AND DISPATCH & * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P P EXTRN TENDIO ~ . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P* P* P* P* P***********************
0x2f49cc…2f4b60 Dummy {f00=0x002b, f01=0x0190, f02=»ACTER r P EXTRN DWTECB ECB-ADDRESS * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK 0 P EXTRN DWTST STATUS ^ P EXTRN DWTWAT z P EXTRN DWTOTQ OUTPUT QUEUE P EXTRN DWTA3 SAVE AREA A3 P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE
0x2f4b60…2f4cf4 (3, 102) Dummy {f00=0x002e, f01=0x0190, f02=» INTADR INTERRUPT ADDRESS DISPLACEMENT 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT . , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT b P* P EJECT P* P* P******************** P* CONSTANTS * P******************
0x2f4cf4…2f4e88 Dummy {f00=0x002e, f01=0x0190, f02=»SPECIAL DUMMY TO GET DATA REQUEST ( P FIRST WHEN PRINTERBUFFER IS EMPTY * 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS V P EJECT P* , P*************************************** , P* CONDITIONAL ASSEMBLY * , P******
0x2f4e88…2f501c Dummy {f00=0x002e, f01=0x0190, f02=» INCLUDED TO THE DRIVER BY SETTING X:A=1 P* 2 PX:A EQU 1 < PLOGING EQU 0 N P* b P* l > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE v & P* OR UP TO FOUR LOCAL CHANNELS. P* PX:B EQU 1 PLOCHAN EQU
0x2f501c…2f51b0 Dummy {f00=0x002e, f01=0x0190, f02=»IN b 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM $ P* DRIVER BY SETTING X:C = 0. F P* n PX:C EQU 1 x PACKMUL EQU 0 P* P* > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE , P* OR UP TO FOUR R
0x2f51b0…2f5344 Dummy {f00=0x002e, f01=0x0190, f02=»LE CODE " r P* STANDARD IS /15 P* . PX:E EQU /15 8 PREMFC EQU /15 L P* b * P* ECHO FUNCTION CAN BE EXCLUDED BY l P* SETTING X:F = 0 P* PX:F EQU 1 PCECHO EQU 01 P* P* 6 P* A PROGRAM
0x2f5344…2f54d8 Dummy {f00=0x002e, f01=0x018e, f02=» DB P* 8 P* BY SETTING BLOCK=1 BLOCKSENDING IS PERMITTED < P* BY SETTING BLOCK=0 BLOCKSENDING IS NOT PERMITTED T P* PBLOCK EQU 0 DK1 P* P DE P EJECT : P********************************************
0x2f54d8…2f566c Dummy {f00=0x002e, f01=0x0190, f02=» X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 1 P* J PDWA1 EQU /03 DEVICEADDRESS T P* v PCWTLT1 EQU * TABLE ENTRY PCWTLDW EQU *-CWTLT1 P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUT
0x2f566c…2f5800 Dummy {f00=0x002e, f01=0x0190, f02=»NR PCWTOTR EQU *-CWTLT1 P OTR A2,0,DWA1 OTR & PCWTCIS EQU *-CWTLT1 @ P CIO A2,1,DWA1 CIO-START PCWTRTC EQU *-CWTLT1 | " P DATA 0 RETRANSMISSION COUNTER PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCW
0x2f5800…2f5994 (3, 103) Dummy {f00=0x0036, f01=0x0190, f02=» , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P P* | P XIF P* P EJECT P* P* : P***************************************************** : P* C W T L
0x2f5994…2f5b28 Dummy {f00=0x0036, f01=0x018e, f02=»ORK TABLE FOR LOCAL CHANNEL NO. 2 P* * PCWTLT2 EQU * 4 P* H P IFT LOCHAN=2 R P* h P* r P* | PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRU
0x2f5b28…2f5cbc Dummy {f00=0x0036, f01=0x0190, f02=» P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* 6 P IFT ACKMUL=1 @ P* V P DATA 0 NAK-ACKUMULATOR ` $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P*
0x2f5cbc…2f5e50 Dummy {f00=0x0036, f01=0x0190, f02=»ST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 6 P INR A2,0,DWA2 INR Z P OTR A2,0,DWA2 OTR t P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE P*
0x2f5e50…2f5fe4 Dummy {f00=0x0036, f01=0x0190, f02=»RUPT-ACKUMULATOR x ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* D P XIF N P* Z P IFT LOCHAN=4 d P* z P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P D
0x2f5fe4…2f6178 Dummy {f00=0x0036, f01=0x0190, f02=»SION COUNTER ~ P DATA 0 QUEUE P DATA 0 SECOND QUEUE * P* F P IFT ACKMUL=1 P P* f P DATA 0 NAK-ACKUMULATOR p $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULA
0x2f6178…2f630c Dummy {f00=0x0036, f01=0x0190, f02=» : P* C W T L T 3 * : P***************************************************** B P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P*
0x2f630c…2f64a0 Dummy {f00=0x0036, f01=0x0190, f02=»A INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR : P CIO A2,1,DWA3 CIO-START T " P DATA 0 RETRANSMISSION COUNTER t P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMU
0x2f64a0…2f6634 (3, 104) Dummy {f00=0x0037, f01=0x0190, f02=»R n P* P XIF P* P IFT LOCHAN=4 * P* @ P* J P* T PDWA3 EQU /23 DEVICE ADDRESS ^ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR
0x2f6634…2f67c8 Dummy {f00=0x0037, f01=0x0190, f02=»UEUE P* P IFT ACKMUL=1 P* , P DATA 0 NAK-ACKUMULATOR 6 $ P DATA 0 RETR. FAULT-ACKUMULATOR V , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT P
0x2f67c8…2f695c Dummy {f00=0x0037, f01=0x0190, f02=» Z : P***************************************************** P* F 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P P* PCWTLT4 EQU * P* P IFT LOCHAN=4 P* P* P* PDWA4 EQU /33 P* P DATA
0x2f695c…2f6af0 Dummy {f00=0x0037, f01=0x0190, f02=»TR P CIO A2,1,DWA4 CIO-START ! " P DATA 0 RETRANSMISSION COUNTER ! * P DATA 0 QUEUE ! P P DATA 0 SECOND QUEUE ! f P* ! P IFT ACKMUL=1 ! P* ! P DATA 0 NAK-ACKUMULATOR ! $ P DATA 0 RETR. FAULT-ACKUMULATOR ! , P DATA 0 UNDEFINED- I
0x2f6af0…2f6c84 Dummy {f00=0x0037, f01=0x0190, f02=»************* ! ~ $ P* C W T R T 1 * " $ P******************************* " > 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 " f P* CONNECTED TO FIRST CHRT " P* " PDWA5 EQU /1 DEVICE ADDRESS " PCWTRT1 EQU * " P DATA
0x2f6c84…2f6e18 Dummy {f00=0x0037, f01=0x0190, f02=»TR " P CIO A2,1,DWA5 CIO-START # " P DATA 0 RETRANSMISSION COUNTER # * P DATA 0 QUEUE TERMINAL 1 # P P DATA 0 QUEUE TERMINAL 2 # p P* # P IFT ACKMUL=1 # P* # P DATA 0 NAK-ACKUMULATOR # $ P DATA 0 BLOCK ERROR ACKUMULATOR # , P DATA
0x2f6e18…2f6fac Dummy {f00=0x0037, f01=0x0190, f02=» # ~ P DATA 0 TIMER POINTER $ PCWSYNC EQU *-CWTRT1 $ & P DATA /7055 SYNC CHARACTER $ B PLRCDWT EQU *-CWTRT1 $ d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ PLRCACK EQU *-CWTRT1 $ & P DAT
0x2f6fac…2f7140 Dummy {f00=0x0037, f01=0x0190, f02=»(LOOP-TESTS) $ t 0 PCWTBLK EQU *-CWTRT1 BLOCK SENDING INDICATOR % ( P DATA 0 BIT 0: BLOCKSENDING RUNNING % H $ P BIT 15: BLOCKSENDING ALLOWED % t P EJECT % $ P******************************** % $ P* C W T R T 2 * % $ P**************
0x2f7140…2f72d4 (3, 105) Dummy {f00=0x0037, f01=0x0190, f02=»TRT2 EQU * % P DATA 0 LAST OUTPUT DWT & P DATA 0 LAST OUTPUT WORD & 2 P & R P DATA INTRT1 INTERRUPT TABLE & Z P INR A2,0,DWA5 INR & ~ P OTR A2,1,DWA5 OTR & P CIO A2,1,DWA5 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TE
0x2f72d4…2f7468 Dummy {f00=0x0037, f01=0x018e, f02=»ERROR ACKUMULATOR & , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ' ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' J P* ' v P XIF ' P* ' P DATA 0 TIMER POINTER ' P DATA /7255 SYNC-CHARACTER ' 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ' 0
0x2f7468…2f75fc Dummy {f00=0x0037, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ( $ P DATA 0 BLOCK SENDING INDICATOR ( 4 P EJECT ( $ P******************************** ( j $ P* C W T R T 3 * ( $ P******************************** ( P* ( : P* CHANNEL UNIT WORK TABLE
0x2f75fc…2f7790 Dummy {f00=0x0037, f01=0x0190, f02=» ( PDWA6 EQU /11 DEVICE ADDRESS ) P* ) , P DATA 0 LAST OUTPUT DWT ) 6 P DATA 0 LAST OUTPUT WORD ) V P DATA INTRT2 INTERRUPT TABLE ) v P INR A2,0,DWA6 INR ) P OTR A2,0,DWA6 OTR ) P CIO A2,1,DWA6 CIO-START ) " P DATA 0 RETRANSMISSION COU
0x2f7790…2f7924 Dummy {f00=0x0037, f01=0x0190, f02=» $ P DATA 0 BLOCK ERROR ACKUMULATOR * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR * , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR * P* * P XIF * P IFT RECHAN=3 * PDWA6 EQU /11 DEVICE ADDRESS * P* * P DATA 0 LAST OUTPUT DWT * P DATA
0x2f7924…2f7ab8 Dummy {f00=0x0037, f01=0x0190, f02=»RT * z " P DATA 0 RETRANSMISSION COUNTER + P DATA 0 QUEUE TERMINAL 1 + 0 P DATA 0 QUEUE TERMINAL 2 + P P* + p P IFT ACKMUL=1 + z P DATA 0 NAK-ACKUMULATOR + $ P DATA 0 BLOCK ERROR ACKUMULATOR + , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR + ( P
0x2f7ab8…2f7c4c Dummy {f00=0x0037, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT + P DATA 0 LAST OUTPUT WORD , P DATA INTRT2 INTERRUPT TABLE , > P INR A2,0,DWA6 INR , b P OTR A2,0,DWA6 OTR , | P CIO A2,1,DWA6 CIO-START , " P DATA 0 RETRANSMISSION COUNTER , P DATA 0 QUEUE TERMINAL 1 , P DATA 0 QUEU
0x2f7c4c…2f7de0 Dummy {f00=0x0037, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR , ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR - $ P* - P P XIF - Z P IFT RECHAN=2 - f P DATA 0 TIMER POINTER - | P DATA /7055 SYNC-CHARACTER - 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 - 0 P DATA 0 DWT OF GOING LRC
0x2f7de0…2f7f74 (3, 106) Dummy {f00=0x0040, f01=0x0190, f02=»ORD (LOOP-TESTS) - x $ P DATA 0 BLOCK SENDING INDICATOR . P XIF . @ P IFT RECHAN=3 . L P DATA 0 TIMER POINTER . b P DATA /7055 SYNC-CHARACTER . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 . &
0x2f7f74…2f8108 Dummy {f00=0x0040, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR . P XIF / & P IFT RECHAN=4 / 2 P DATA 0 TIMER POINTER / H P DATA /7055 SYNC-CHARACTER / f 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 / 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 / & P DATA 0 LRC-ACKUMULATOR
0x2f8108…2f829c Dummy {f00=0x0040, f01=0x0190, f02=»TOR / t P XIF 0 P EJECT 0 $ P******************************** 0 & $ P* C W T R T 4 * 0 N $ P******************************** 0 v P* 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 0 " P* CONNECTED TO SECOND CHRT 0
0x2f829c…2f8430 Dummy {f00=0x0040, f01=0x0190, f02=»INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 1 P OTR A2,1,DWA6 OTR 1 8 P CIO A2,1,DWA6 CIO-START 1 R " P DATA 0 RETRANSMISSION COUNTER 1 r P DATA 0 QUEUE TERMINAL 1 1 P DATA 0 QUEUE TERMINAL 2 1 P* 1 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKU
0x2f8430…2f85c4 Dummy {f00=0x0040, f01=0x0190, f02=»TOR 1 p P XIF 2 P IFT RECHAN=3 2 P DATA 0 LAST OUTPUT DWT 2 . P DATA 0 LAST OUTPUT WORD 2 N P DATA INTRT2 INTERRUPT TABLE 2 n P INR A2,0,DWA6 INR 2 P OTR A2,1,DWA6 OTR 2 P CIO A2,1,DWA6 CIO-START 2 " P DATA 0 RETRANSMISSION COUNTER 2
0x2f85c4…2f8758 Dummy {f00=0x0040, f01=0x0190, f02=»A 0 BLOCK ERROR ACKUMULATOR 2 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 3 $ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 3 T P XIF 3 P IFT RECHAN=4 3 P DATA 0 LAST OUTPUT DWT 3 P DATA 0 LAST OUTPUT WORD 3 P DATA INTRT2 INTERRUPT TABLE 3 P I
0x2f8758…2f88ec Dummy {f00=0x0040, f01=0x0190, f02=»RMINAL 1 3 P DATA 0 QUEUE TERMINAL 2 4 P* 4 0 P IFT ACKMUL=1 4 : P DATA 0 NAK-ACKUMULATOR 4 P $ P DATA 0 BLOCK ERROR ACKUMULATOR 4 p , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 4 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 4 P XIF 4 P IFT REC
0x2f88ec…2f8a80 Dummy {f00=0x0040, f01=0x0190, f02=» 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 5 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 5 b , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 5 $ P DATA 0 BLOCK SENDING INDICATOR 5 P* 5 P XIF 5 P* 5 P IFT
0x2f8a80…2f8c14 (3, 107) Dummy {f00=0x0041, f01=0x0190, f02=»ATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 5 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 0 BLOCK SENDING INDICATOR 6 P* 6 P XIF 6 P* 6 P IFT RECHA
0x2f8c14…2f8da8 Dummy {f00=0x0041, f01=0x0190, f02=»DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 7 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 7 V , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 7 $ P DATA 0 BLOCK SENDING INDICATOR 7 P* 7 P XIF 7 P* 7 P EJECT 7 $ P**
0x2f8da8…2f8f3c Dummy {f00=0x0041, f01=0x0190, f02=»NNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 7 P* CONNECTED TO THIRD CHRT 8 6 P 8 Z P* 8 b PCWTRT5 EQU * 8 l P* 8 P IFT RECHAN=3 8 P* 8 PDWA7 EQU /21 DEVICE ADDRESS 8 P* 8 P DATA 0 LAST OUTPUT DWT 8 P DATA 0 LAST OUT
0x2f8f3c…2f90d0 Dummy {f00=0x0041, f01=0x0190, f02=» DATA 0 RETRANSMISSION COUNTER 8 P DATA 0 QUEUE TERMINAL 1 9 & P DATA 0 QUEUE TERMINAL 2 9 F P* 9 f P IFT ACKMUL=1 9 p P DATA 0 NAK-ACKUMULATOR 9 $ P DATA 0 BLOCK ERROR ACKUMULATOR 9 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 9 ( P DATA 0 PR
0x2f90d0…2f9264 Dummy {f00=0x0041, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT 9 P DATA 0 LAST OUTPUT WORD : P DATA INTRT3 INTERRUPT TABLE : > P INR A2,0,DWA7 INR : b P OTR A2,0,DWA7 OTR : | P CIO A2,1,DWA7 CIO-START : " P DATA 0 RETRANSMISSION COUNTER : P DATA 0 QUEUE TERMINAL 1 : P DATA 0 QUEU
0x2f9264…2f93f8 Dummy {f00=0x0041, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR : ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ; $ P* ; P P XIF ; Z P IFT RECHAN=3 ; f P DATA 0 TIMER POINTER ; | P DATA /7055 SYNC-CHARACTER ; 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ; 0 P DATA 0 DWT OF GOING LRC
0x2f93f8…2f958c Dummy {f00=0x0041, f01=0x0190, f02=»ORD (LOOP-TESTS) ; x $ P DATA 0 BLOCK SENDING INDICATOR < P XIF < @ P IFT RECHAN=4 < L P DATA 0 TIMER POINTER < b P DATA /7055 SYNC-CHARACTER < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 < 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 < &
0x2f958c…2f9720 Dummy {f00=0x0041, f01=0x0190, f02=»ATA 0 BLOCK SENDING INDICATOR < P XIF = & P EJECT = 2 $ P******************************** = @ $ P* C W T R T 6 * = h $ P******************************** = P* = : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 = P* CON
0x2f9720…2f98b4 (3, 108) Dummy {f00=0x004f, f01=0x0190, f02=»UTPUT WORD = P DATA INTRT3 INTERRUPT TABLE > P INR A2,0,DWA7 INR > 6 P OTR A2,1,DWA7 OTR > P P CIO A2,1,DWA7 CIO-START > j " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE TERMINAL 1 > P DATA 0 QUEUE TERMINAL 2 > P* > P IFT ACKMUL=1
0x2f98b4…2f9a48 Dummy {f00=0x004f, f01=0x0190, f02=»PRINTER TIMEOUT ACKUMULATOR > P XIF ? $ P IFT RECHAN=4 ? 0 P DATA 0 LAST OUTPUT DWT ? F P DATA 0 LAST OUTPUT WORD ? f P DATA INTRT3 INTERRUPT TABLE ? P INR A2,0,DWA7 INR ? P OTR A2,1,DWA7 OTR ? P CIO A2,1,DWA7 CIO-START ? " P DATA 0 RE
0x2f9a48…2f9bdc Dummy {f00=0x004f, f01=0x018e, f02=»ACKUMULATOR ? $ P DATA 0 BLOCK ERROR ACKUMULATOR @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR @ < ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR @ l P XIF @ P* @ P IFT RECHAN=3 @ P DATA 0 TIMER POINTER @ P DATA /7255 SYNC-CHARACTER @ 0 P DAT
0x2f9bdc…2f9d70 Dummy {f00=0x004f, f01=0x0190, f02=» @ l & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 A , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) A 2 $ P DATA 0 BLOCK SENDING INDICATOR A b P* A P XIF A P* A P IFT RECHAN=4 A P* A P DATA 0 TIMER POINTER A P DATA /7255 SYNC-CHARACTER A 0
0x2f9d70…2f9f04 Dummy {f00=0x004f, f01=0x0190, f02=»AL 1 A r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B 6 $ P DATA 0 BLOCK SENDING INDICATOR B f P* B P XIF B P* B P EJECT B $ P******************************** B $ P* C W T R T 7 * B
0x2f9f04…2fa098 Dummy {f00=0x004f, f01=0x0190, f02=»URTH CHRT B | P* C PCWTRT7 EQU * C P* C 0 P IFT RECHAN=4 C : P* C P PDWA8 EQU /31 DEVICE ADDRESS C Z P* C ~ P DATA 0 LAST OUTPUT DWT C P DATA 0 LAST OUTPUT WORD C P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P O
0x2fa098…2fa22c Dummy {f00=0x004f, f01=0x0190, f02=»EUE TERMINAL 2 C P* D P IFT ACKMUL=1 D P DATA 0 NAK-ACKUMULATOR D 6 $ P DATA 0 BLOCK ERROR ACKUMULATOR D V , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D ~ ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D P* D P XIF D P IFT RECHAN=4 D P D
0x2fa22c…2fa3c0 Dummy {f00=0x004f, f01=0x0190, f02=»RC-PROCESS TERMINAL 2 D z & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 E & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E H , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E r $ P DATA 0 BLOCK SENDING INDICATOR E P XIF E P EJECT E $ P******************************** E
0x2fa3c0…2fa554 (3, 109) Dummy {f00=0x0155, f01=0x018e, f02=»ANNEL NO. 2 E f " P* CONNECTED TO FOURTH CHRT F P* F : PCWTRT8 EQU * F D P* F X P IFT RECHAN=4 F b P DATA 0 LAST OUTPUT DWT F x P DATA 0 LAST OUTPUT WORD F P DATA INTRT4 INTERRUPT TABLE F P INR A2,0,DWA8 INR F P OTR A2,1,DWA8 OTR
0x2fa554…2fa6e8 Dummy {f00=0x0155, f01=0x0190, f02=» F v P* G P IFT ACKMUL=1 G P DATA 0 NAK-ACKUMULATOR G ( $ P DATA 0 BLOCK ERROR ACKUMULATOR G H , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR G p ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR G P XIF G P IFT RECHAN=4 G P* G P DATA 0 TIMER PO
0x2fa6e8…2fa87c Dummy {f00=0x0155, f01=0x0190, f02=»MINAL 2 G l & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 H & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 H : , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) H d $ P DATA 0 BLOCK SENDING INDICATOR H P* H P XIF H P* H P EJECT H 6 P******************************
0x2fa87c…2faa10 Dummy {f00=0x0155, f01=0x0190, f02=» H ^ P* I 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK I 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE I L P* TERMINALS. I P* I P* I P* I PCHTAB EQU * I P DATA CHTABE-* TABLE LENGTH I P IFT LOCHAN=1 I
0x2faa10…2faba4 Dummy {f00=0x0155, f01=0x0190, f02=» DATA CWTLT2 I P DATA 0 J P DATA 0 J $ P XIF J 4 P* J @ P IFT LOCHAN=3 J J P DATA CWTLT1 J ` P DATA CWTLT2 J t P DATA CWTLT3 J P DATA 0 J P XIF J P IFT LOCHAN=4 J P DATA CWTLT1 J P DATA CWTLT2 J P DATA CWTLT3 J
0x2faba4…2fad38 Dummy {f00=0x0155, f01=0x0190, f02=» DATA CWTRT4 J P DATA CWTRT5 K P DATA CWTRT6 K ( P* K < P XIF K F P* K R P IFT RECHAN=2 K P DATA CWTRT3 K r P DATA CWTRT4 K P XIF K P* K P IFT RECHAN=4 K P DATA CWTRT3 K P DATA CWTRT4 K P DATA CWTRT5 K P DATA
0x2fad38…2faecc Dummy {f00=0x0155, f01=0x0190, f02=» K P* L ( P************************************ L ( P* D W R E M U * L > ( P************************************ L j P* L . P* DUMMY TABLE USED WHEN LOOP-TESTING OF L $ P* REMOTE CHANNELS ARE NEEDED. L P* L PDWRE
0x2faecc…2fb060 Dummy {f00=0x0155, f01=0x0190, f02=» P EJECT M P* M P* M * P* L O O P - T E S T S E C T I O N M & P* M T P* M ^ 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION M h P* M : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. M 6 P* THE REQUEST IS COMPLETED WITH
0x2fb060…2fb1f4 (3, 110) Dummy {f00=0x0155, f01=0x0190, f02=» M . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT N P* N : 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT N D PAREM DATA LOPTST N x " P DATA 0 ABORT ROUTINE ADDRESS N " P DATA IHLOP INTERRUPT HANDLER N PLOPTST EQU * N $ P LD A2,10,A8 GET CHANNEL
0x2fb1f4…2fb388 Dummy {f00=0x0155, f01=0x0190, f02=» N & P LD A2,CHTAB+8,A2 GET CWT-ADDRESS O P RF(E) DISIIE O 2 P LDR A7,A7 WRONG ORDER ? O H P RF(E) LOPT10 NO O h ( PDISIIE ABL DISIOE I/O REQUEST ERROR O PLOPT10 EQU * O , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS O P ANK A1,/40 O ( P RF(
0x2fb388…2fb51c Dummy {f00=0x0155, f01=0x0190, f02=»SP O P EJECT P P* P P* P " P* END OF LOOP-TEST P , P* P J PIHLOP EQU * P T P LDR A5,A1 GET CWT-ADDRESS P h , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS P P ANK A1,3 P P XRK A1,3 P PIHLP10 EQU * P P LDK A2,0 P : P SC
0x2fb51c…2fb6b0 Dummy {f00=0x0155, f01=0x0190, f02=» 2 P x P* Q P* C H R T 1 / C H R T 2 Q P* Q 6 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT Q @ P* Q | 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS Q 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. Q 0 P* THEN DRIVER GETS
0x2fb6b0…2fb844 Dummy {f00=0x0155, f01=0x0190, f02=»* INTERRUPT. Q P* R 2 P* FOLLOWING TYPES OF INTERRUPT ARE RELEVANT R " P* R X . P* D = DEVICE ADDRESS C = CHARACTER R b P* R 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 R 8 P* NAK OUTPUT ERROR D = 0
0x2fb844…2fb9d8 Dummy {f00=0x0155, f01=0x0190, f02=» DRI DATA REQUEST IMMEDIATE SIGN BIT SET R 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 S : 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A S v 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C S 8 P* ABC-LV LRC O VRC E
0x2fb9d8…2fbb6c Dummy {f00=0x0155, f01=0x018e, f02=» BE DIFFERENT FROM ZERO S f 8 P* STD STATUS MESSAGE D # 0 C # 0 T 2 P* DIN DATA INPUT D # 0 T P EJECT T P* T P* C H L T 1 T P* T P* INTERRUPT FROM CHLT1 T P* T PCHLT1 EQU * T
0x2fbb6c…2fbd00 Dummy {f00=0x0155, f01=0x0190, f02=» P* U P IFT CPU852=0 U " P MSR 8,A15 SAVE A1-A8 ON STACK U $ P XIF U J P* U V P LDK A7,2 INDICATE CHLT1 U ` P RF CLT010 U P* U PCHLT2 EQU * U P* U P* U P* U P* U P* C H L T 2 U P* U P* INTERRUPT F
0x2fbd00…2fbe94 (3, 111) Dummy {f00=0x0159, f01=0x018e, f02=»SAVE A1-A8 ON STACK U P XIF V P* V ( P IFT LOCHAN=2 V 2 P IFT CPU852=0 V H " P MSR 8,A15 SAVE A1-A8 ON STACK V ^ P XIF V P* V P IFT LOCHAN=2 V P LDK A7,4 INDICATE CHLT2 V P RF CLT010 V P* V P XIF V P* V P IFT L
0x2fbe94…2fc028 Dummy {f00=0x0159, f01=0x018e, f02=» V P* W P IFT LOCHAN=3 W P IFT CPU852=0 W ( " P MSR 8,A15 SAVE A1-A8 ON STACK W > P XIF W d P* W p P IFT LOCHAN=3 W z P LDK A7,4 INDICATE CHLT2 W P RF CLT010 W P* W P XIF W P* W P IFT LOCHAN=4 W $ P ST P,INTSAV SAV
0x2fc028…2fc1bc Dummy {f00=0x0159, f01=0x0190, f02=» W P IFT CPU852=0 X " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P LDK A7,4 INDICATE CHLT2 X p P RF CLT010 X P* X P XIF X P* X PCHLT3 EQU * X P* X P* X P* X P* C H L T 3 X
0x2fc1bc…2fc350 Dummy {f00=0x0159, f01=0x0190, f02=»852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y P XIF Y 8 P* Y D P IFT LOCHAN=4 Y N P IFT CPU852=0 Y d " P MSR 8,A15 SAVE A1-A8 ON STACK Y z P XIF Y P* Y P IFT LOCHAN=4 Y P LDK A7,6 INDICATE CHLT3 Y P RF CLT010 Y P XIF Y
0x2fc350…2fc4e4 Dummy {f00=0x0159, f01=0x0190, f02=»1-A8 ON STACK Y | P XIF Z P* Z " P IFT LOCHAN=3 Z , P IFT CPU852=0 Z B " P MSR 8,A15 SAVE A1-A8 ON STACK Z X P XIF Z ~ P* Z P IFT LOCHAN=3 Z P LDK A7,6 INDICATE CHLT3 Z P RF CLT010 Z P* Z P XIF Z P* Z PCHLT4 EQU *
0x2fc4e4…2fc678 Dummy {f00=0x0159, f01=0x0190, f02=» ST P,INTSAV SAVE LAST INTERRUPT Z P* [ ( P IFT CPU852=1 [ 2 & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ H P XIF [ r P* [ ~ P IFT LOCHAN=4 [ P IFT CPU852=0 [ " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT LOCHAN=4 [ P L
0x2fc678…2fc80c Dummy {f00=0x0159, f01=0x0190, f02=»* INTERRUPT FROM CHRT1 [ P* " PCHRT1 EQU * , P ST P,INTSAV @ P* T P IFT CPU852=1 ^ & P CF A15,SAVE8 SAVE A1-A8 ON STACK t P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P L
0x2fc80c…2fc9a0 Dummy {f00=0x0159, f01=0x0190, f02=»CHRT2 EQU * P IFT RECHAN=2 ] $ P ST P,INTSAV SAVE LAST INTERRUPT ] * P* ] R P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] r P XIF ] P* ] P IFT RECHAN=2 ] P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF
0x2fc9a0…2fcb34 (3, 112) Dummy {f00=0x0159, f01=0x0190, f02=» ST P,INTSAV STORE LAST INTERRUPT ] P* ^ * P IFT CPU852=1 ^ 4 & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ J P XIF ^ t P* ^ P IFT RECHAN=3 ^ P IFT CPU852=0 ^ " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF ^ P* ^ P IFT RECHAN=3 ^ P
0x2fcb34…2fccc8 Dummy {f00=0x0159, f01=0x018e, f02=»* ^ P IFT CPU852=1 _ & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ P XIF _ J P* _ V P IFT RECHAN=4 _ ` P IFT CPU852=0 _ v " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _ P LDK A7,14 INDICATE CHRT2 _ P RF CLT0
0x2fccc8…2fce5c Dummy {f00=0x0159, f01=0x0190, f02=» P IFT RECHAN=3 ` $ P ST P,INTSAV SAVE LAST INTERRUPT ` P* ` B P IFT CPU852=1 ` L & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` b P XIF ` P* ` P IFT RECHAN=3 ` P IFT CPU852=0 ` " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF ` P* `
0x2fce5c…2fcff0 Dummy {f00=0x0159, f01=0x018e, f02=»E LAST INTERRUPT ` P* a P IFT CPU852=1 a " & P CF A15,SAVE8 SAVE A1-A8 ON STACK a 8 P XIF a b P* a n P IFT RECHAN=4 a x P IFT CPU852=0 a " P MSR 8,A15 SAVE A1-A8 ON STACK a P XIF a P* a P IFT RECHAN=4 a P LDK A7,18 INDICAT
0x2fcff0…2fd184 Dummy {f00=0x0159, f01=0x0190, f02=» a PCHRT4 EQU * b P IFT RECHAN=4 b $ P ST P,INTSAV SAVE LAST INTERRUPT b 2 P* b Z P IFT CPU852=1 b d & P CF A15,SAVE8 SAVE A1-A8 ON STACK b z P XIF b P* b P IFT RECHAN=4 b P IFT CPU852=0 b " P MSR 8,A15 SAVE A1-A8 ON STACK b
0x2fd184…2fd318 Dummy {f00=0x0159, f01=0x0190, f02=»DRESS b p P* c P XIF c P* c $ * P EX CWTINR,A5 EXECUTE INR-INSTRUCTION c . P* c P IFT LOGING=1 c f P* c | 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** c P* c P XIF c P EJECT c P* c & P* DETERMINE TYPE OF INTER
0x2fd318…2fd4ac Dummy {f00=0x0159, f01=0x0190, f02=»UK A7,10 c " P RF(N) CLT018 LOCAL INTERRUPT d P LDR A3,A2 d 6 . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? d H P RF(NN) CLT015 FIRST d z > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT d 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER
0x2fd4ac…2fd640 Dummy {f00=0x0159, f01=0x0190, f02=»(N) CLT170 YES d & PCLT018 LDK A1,0 RESET RETURN CODE e ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? e @ P RF(N) CLT050 e l $ P ANKL A3,/7000 DEVICE ADDRESS ? e ( P ABL(NE) CLT100 YES, DIN, STD OR DRD e P EJECT e P* e P* e , P* DETERMINE T
0x2fd640…2fd7d4 (3, 113) Dummy {f00=0x0159, f01=0x018e, f02=» SUK A3,7 e P RF(E) CLT050 ACK f P ADK A3,2 f , P ABL(E) CLT080 NAK f > P ADK A3,2 f X P ABL(E) CLT100 POWER ON f j P LDR A7,A7 LOCAL ? f P RF(N) CLTQUE YES f P LC A4,LRCACK,A7 f $ P LDK A6,/80 ABC-ANSWER ALLOWED ? f P TM A6,A4
0x2fd7d4…2fd968 Dummy {f00=0x0159, f01=0x0190, f02=» P RF(E) EXIIT g P ANK A4,/7F g P RF(Z) CLT046 YES g , * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER g F ( P LDK A4,1 RESET BLOCKSENDING RUNNING g t P ANS A4,CWTBLK,A5 g P SUK A3,5 g & P RF(E) CLT043 ABC+ , GO TO DRIVER g P IFT ACKMUL=1 g
0x2fd968…2fdafc Dummy {f00=0x0159, f01=0x0190, f02=» P LDK A4,1 h P SUK A3,2 h P RF(E) CLT033 h ( P ADK A3,4 h > P RF(E) CLT033 h P P EJECT h f P* h t 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. h ~ . P* ONE RECOVERY ATTEMPT IS MADE AND THEN h , P* RETURN CODE NOT OPERABLE IS SEN
0x2fdafc…2fdc90 Dummy {f00=0x0159, f01=0x0190, f02=»C-DEVICE ? h P RF(NE) CLTQUE i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i ( P LDK A4,1 i V 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING i h & PCLTQUE CF A15,QUEUE RESOLVE QUEUE i 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD i P LDR A
0x2fdc90…2fde24 Dummy {f00=0x0159, f01=0x0190, f02=»,A6 STORE i PCLT032 LDK A4,0 j 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE j * P LDK A4,1 =3 j ^ P RF CPO025 j t P EJECT j P* j P* ABC- VRC-ERROR j P* j 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER j P* ERR
0x2fde24…2fdfb8 Dummy {f00=0x0159, f01=0x0190, f02=»DR* A4,A6 BLOCK SENDING ? j P RB(N) CLT031 k " PCLT043 ABL CLT107 k 8 P EJECT k R P* k ` P* POWER ON k j P* k 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE k < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT k P*
0x2fdfb8…2fe14c Dummy {f00=0x0159, f01=0x0190, f02=»T-ADDRESS k P* l PCHPOWO EQU * l , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE l 0 . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER l ` P LDR A7,A7 REMOTE ? l P RF(N) CPO010 NO l * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER l P LDK A7,1 l 0 P A
0x2fe14c…2fe2e0 Dummy {f00=0x0159, f01=0x018e, f02=»NTER l v PCPO020 ADK A1,2 m P LDR* A6,A1 GET DWT-ADDRESS m $ P RF(E) CPO030 m H P SRC A6,1 m ^ P RF(N) CPO030 m p P SLC A6,1 m ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. m P ANK A7,1 INPUT DEVICE ? m P RF(NE) CPO025 YES m & P LDKL A7,/
0x2fe2e0…2fe474 (3, 114) Dummy {f00=0x0159, f01=0x0190, f02=» 0 P CWR A6,A2 DEVICE WAITING FOR CHANNEL ANSWER n P RF(E) CPO030 YES n 8 : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 n R 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 n P RF(E) CPO030 n P LDKL A5,DWTSB2 STACK BASE n P ADR A
0x2fe474…2fe608 Dummy {f00=0x0159, f01=0x0190, f02=»EXT n x PEXIIT RF EXIT o P EJECT o " P* o 0 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER o : P* o t PCLT045 EQU * o ~ ( P LDK A1,NOERR INDICATE NOT OPERABLE o PCLT046 EQU * o P ABL CLT110 o P EJECT o P* o P* A C K
0x2fe608…2fe79c Dummy {f00=0x0159, f01=0x0190, f02=»OR AND GO TO DISPATCHER. IF SYNC-ACK o P* DROP IT. p , 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF p B 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA p ~ < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED p < P* OUT. FOR
0x2fe79c…2fe930 Dummy {f00=0x0159, f01=0x018e, f02=»MADE TO THE DATA REQUEST SECTION. p x * P* IF ACK WE HAVE TO WAIT FOR A DRD. q * PCLT050 EQU * q X & P LC A3,CWTLOW,A5 LAST OUTPUT WORD q l " P ANK A3,/F0 KEEP DEVICE NUMBER q P CF A15,QUEUE RESOLVE QUEUE q P LDKL A4,/EFFF q 6 P ANS A4,DWTST,A6 R
0x2fe930…2feac4 Dummy {f00=0x0159, f01=0x018e, f02=» q z P RF(NE) CLT052 r P LDKL A3,/8000 r * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED r 4 P RF CLT055 r b PCLT052 EQU * r t . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? r P RF(NN) CLT055 r P CW A6,LRCDWT,A7 r P ABL(NE) CLT110 r P EJECT r
0x2feac4…2fec58 Dummy {f00=0x0159, f01=0x0190, f02=» r h P RF(E) CLT060 s P* s P* RESTART TIMER s ( P* s B " P LDKL A3,-DRQTIM RESTART TIMER s L P ST* A3,DWTTP,A6 s r P RF CLT068 s P* s P* START TIMER s P* s PCLT060 EQU * s P LDR A1,A6 PARAMETER s P LDKL A4,DWTTP T
0x2fec58…2fedec Dummy {f00=0x0159, f01=0x0190, f02=»INE AND DELAY s d PCLT068 EQU * t P LDR A8,A8 OBC-ACK ? t * P RF(E) EXIT YES t F P LDK A1,0 t ^ & P LDR* A4,A6 GET CHANNEL PARAMETER t p . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST t ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? t P RF(N) CLT125 YE
0x2fedec…2fef80 Dummy {f00=0x0159, f01=0x0190, f02=» FROM PRINTERS AND , FOR REMOTLY CONNECTED DEVICES t 8 P* USING THE LRC-FUNCTION , MISSING BLOCK CONTROL u : . P* CHARACTERS (ABC) FROM SELECTOR UNIT. u v P* u PDRQTUT EQU * u P LDR A6,A1 GET DWT-ADDRESS u . P CM DWTTP,A6 RESET POINTER TO TI
0x2fef80…2ff114 (3, 115) Dummy {f00=0x015a, f01=0x018e, f02=»L PARAMETER u ~ P ANK A5,/F v P SLL A5,1 2 * INDEX v & P LDK A2,/83 v B P CC A2,DWTOCH,A6 v V P RF(NE) DRQT10 v n P SUK A5,8 LOCAL DEVICE ? =4 v P RB(N) EXIT v P CF A15,OUTLIN v P RB EXIT v PDRQT10 EQU * v P* v P IFT ACK
0x2ff114…2ff2a8 Dummy {f00=0x015a, f01=0x0190, f02=» v $ P LD A7,DWTOR,A6 TEST ORDER ? =1 w P ANK A7,/FE U =9(=1) w 0 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 w L , P ABL CLT032 NO, EXECUTE DEV. RECOVERY =1 w P EJECT w P* w P* N A K w P* w 8 P* ERROR ACKUMULATOR AND RETRANS
0x2ff2a8…2ff43c Dummy {f00=0x015a, f01=0x0190, f02=»UCCESS w ^ < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. x P* x N PCLT080 EQU * x X $ P LDR* A6,A5 GET LAST OUTPUT DWT x l P RB(E) EXIT x P* x P IFT ACKMUL=1 x P* x * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR x P* x
0x2ff43c…2ff5d0 Dummy {f00=0x015a, f01=0x0190, f02=» LD A4,CWTRTC,A5 GET COUNTER x P SUK A4,7 SEVEN TIMES ? y $ P ABL(E) CLT030 y D * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD y Z $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. y P IFT LOGING=1 y 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** y P XIF y P
0x2ff5d0…2ff764 Dummy {f00=0x015a, f01=0x018e, f02=» A2,/FF y , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR z . P CF A15,RESTSY START OR RESTART SYNC-TIMER z @ PCLT090 ABL TDISP z r P EJECT z P* z P* z $ P* DATA INPUT AND DATA REQUEST z P* z 6 P* LOCAL DEVICES: GET DWT-ADDRESS, GET O
0x2ff764…2ff8f8 Dummy {f00=0x015a, f01=0x0190, f02=» P* { > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES { : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH { P 8 P* STATUS FROM CHANNEL PARAMETER. { : P* STATUS MESSAGE: NEW STATUS IS STORED IN CHANNEL { @ P
0x2ff8f8…2ffa8c Dummy {f00=0x015a, f01=0x0190, f02=» WAITING FOR A STATUS CHANGE. IF SO { > P* GET ORDER AND ECB-ADDRESS AND GO TO | < < P* DEVICE WITH THE NEW STATUS. IF NO | ~ > P* WAITING FOR STATUS, CONTROL IS GIVEN | ( P*
0x2ffa8c…2ffc20 Dummy {f00=0x015a, f01=0x0190, f02=»3,/E 2 * LINE NUMBER | P SRL A4,3 } P ANK A4,/E 2 * DEVICE NUMBER } . P CWK A4,/E SYNC-INPUT ? } R P RF(E) CLT150 YES } r P LOOP SWITCH SET } 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE } P RB(Z) EXIT =7 } P ADR A8,A3 } , P LDR
0x2ffc20…2ffdb4 (3, 116) Dummy {f00=0x015a, f01=0x0190, f02=»T UNDEFINED INTERRUPT } " P LDR A4,A4 NO DEVICE NUMBER ? ~ P ABL(E) CHPOWO POWER ON ~ D & P ADR A8,A4 ADDRESS TO DWT-ADDRESS ~ d P LDR* A6,A8 GET DWT-ADDRESS ~ P RB(E) EXIT ~ P ANKL A6,/FFFE ~ 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMET
0x2ffdb4…2fff48 Dummy {f00=0x015a, f01=0x0190, f02=»A7 REMOTE ? ~ P RF(NN) CLT120 YES PCLT105 LC A3,DWTOCH,A6 . P ANK A3,/7F L P SUK A3,DUMMSP ` P RF(NE) CLT110 v . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST =9 4 P RF(N) CLT110 YES, DO NOT TOUCH TIMER POINTER =9 P* P********
0x2fff48…3000dc Dummy {f00=0x015a, f01=0x0190, f02=»Y RESET v P* P************************* P* < P CM* DWTTP,A6 F P CM DWTTP,A6 PCLT110 LD A7,DWTOR,A6 ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK P ENB * P
0x3000dc…300270 Dummy {f00=0x015a, f01=0x0190, f02=» $ P CWR* A6,A5 DRD BEFORE ANSWER ? P RB(E) EXIT YES 0 PCLT125 SRL A4,4 H P ANK A4,/C ` P ORR A2,A4 STATUS IN A2 r P RB CLT105 PCLT130 EQU * P LDR A3,A4 SAVE OLD STATUS P ANK A4,/3F RESET OLD STATUS P SLL A2,4
0x300270…300404 Dummy {f00=0x015a, f01=0x0190, f02=»A4,/200 STATUS CHANGE ALLOWED ? P RF(E) CLT154 EG. EXIT ( P XRS A4,DWTST,A6 RESET BIT F ( P XRR A3,A2 VOUCHER STATUS CHANGED ? h P ANK A3,/80 P RF(E) CLT154 EG. EXIT P ABL CLT033 P EJECT P* P* P* TFU IN
0x300404…300598 Dummy {f00=0x015a, f01=0x0190, f02=»NDICATE LOOP MODE AND SYNC-ACK RECEIVED PCLT152 EQU * 0 P ORS A4,CWTRST,A5 D PCLT154 ABL EXIT ^ P EJECT v P* P* LOOP MODE P* PCLT170 EQU * P LDR A3,A2 P ANK A3,/FF P SUK A3,3 POWER ON ? P RF(
0x300598…30072c Dummy {f00=0x015a, f01=0x018e, f02=» A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 ( PCLT178 EQU * @ P SUK A3,4 ACK ? T P RF(NE) EXITA NO l $ P LDK A4,2 INDICATE ACK RECEIVED P RB CLT152 P EJECT P* P* POWER ON P* PCLT179 EQU *
0x30072c…3008c0 Dummy {f00=0x015a, f01=0x018e, f02=» 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND : P* IF SOMETHING THERE. r 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I
0x3008c0…300a54 (3, 117) Dummy {f00=0x015a, f01=0x0190, f02=» P STR A2,A15 SAVE A2 $ P LDR* A4,A5 GET LAST OUTPUT DWT $ . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER L P CMR A5 SET CHANNEL FREE ~ P LDK A1,0 P LDR A7,A7 LOCAL ? P RF(N) QUEU01 YES " P LDK A1,1 INDICATE FIRST TRIAL "
0x300a54…300be8 Dummy {f00=0x015a, f01=0x0190, f02=»WT-TABLE-ADDRESS z PQUEU04 EQU * P LDR* A6,A8 QUEUE EMPTY ? , P RF(E) QUEU10 YES N P LDR A7,A7 =5 h $ P RF(N) QUEU06 PREVENT HANG UP =5 ~ P LD A2,CWTBLK,A5 P LD A2,CWTBLK,A5 ( P RF(N) QUEU05 BLOCK SENDING RUNNING PQUEU06
0x300be8…300d7c Dummy {f00=0x015a, f01=0x0190, f02=»OUTPUT CHARACTER v P CF A15,OUTLIN SEND IT PQUEU05 LDR* A2,A15 RELOAD A2 6 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? Z P RF(E) QUEU30 " P LDR A6,A4 GET LAST OUTPUT DWT & P RF(E) QUEU30 UNDEFINED INTERRUPT P CWK A6,1 SYNC ANSWE
0x300d7c…300f10 Dummy {f00=0x015a, f01=0x0190, f02=»1,0 " P CWR A7,A5 TERMINAL 2 REMOTE ? P RB(E) QUEU01 NO 2 & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE J P RB QUEU03 t PQUEU30 ADKL A15,4 P RF EXITA P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR RESTART * P
0x300f10…3010a4 Dummy {f00=0x015a, f01=0x0190, f02=» P RF(NE) RESY20 P LDR A1,A5 P LDK A4,CWTTP TIMER POINTER , P ADR A4,A5 ADD CWT-ADDRESS P P CF A15,SETIMP SET TIMER r P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME PRESY30 L
0x3010a4…301238 Dummy {f00=0x015a, f01=0x0190, f02=»DING n 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. @ P* d PSYNCUT EQU * n $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHANGE TERMINAL NU
0x301238…3013cc Dummy {f00=0x015a, f01=0x0190, f02=» OUTPUT DWT t P* P IFT LOGING=1 P* 4 * P CF A15,LOGG LOGG OF OUTPUT CHARACTER > P XIF l P* x P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A5
0x3013cc…301560 Dummy {f00=0x015a, f01=0x0190, f02=»/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 , P RF(NE) SYNC10 FIRST SYNC @ P LDK A3,/20 SECOND SYNC b * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNTER PEXITA ABL TDISP DISPATCH * PSYNC20 LDKL A6,DWREMU SET DWT-ADDRESS P RB CLT177
0x301560…3016f4 (3, 118) Dummy {f00=0x015a, f01=0x018e, f02=»LOWED AND SAVE A3-A5 IN DWT. P* $ POUTPUT EQU * . P ANK A2,/FF B P LDR A1,A2 V P SUK A1,/82 STX ? h P RF(E) OUTP05 P SUK A1,/15 ETB ? P RF(NE) OUTP10 ( POUTP05 LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C REMOTE ?
0x3016f4…301888 Dummy {f00=0x015a, f01=0x0190, f02=» P* : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT P* P PSTREG EQU * Z P INH n P LDKL A1,/100 z 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWTA3,A6 SAVE REGISTER A3 $ P ST A4,DWTA4,A6
0x301888…301a1c Dummy {f00=0x015a, f01=0x018e, f02=»NTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN & P* VIA A5. ELSE GO TO DISPATCHER. : P* d P* n PLDREG EQU * x P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXITA P XRS A3,DWTST,A6 P* P* P* L D R E G
0x301a1c…301bb0 Dummy {f00=0x015a, f01=0x018e, f02=» l PLDREGE EQU * & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & P LD A4,DWTA4,A6 A4 F $ PLDRE10 LD A7,DWTOR,A6 GET ORDER p P ANK A7,/FF P LD A8,DWTECB,A6 P RTN A5 RETURN VIA A5-STACK P EJECT P* P*
0x301bb0…301d44 Dummy {f00=0x015a, f01=0x0190, f02=» P* A3 = BUFFER INDEX P* A8 = ECB-ADDRESS " P* @ P* ON EXIT: J P* ` P* A2 = CHARACTER j * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J P* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH
0x301d44…301ed8 Dummy {f00=0x015a, f01=0x0190, f02=» j " P LD A2,2,A8 GET BUFFER ADDRESS P ADR A2,A3 . P LCR A2,A2 CHAR. TO A2 @ P ANK A2,/FF ^ $ P ADK A3,1 INCREMENT BUFFER INDEX r P RF GCH020 , PGCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH PGCH020 EQU * ( PRTNA15 ADKL A15,2 RETURN
0x301ed8…30206c Dummy {f00=0x015a, f01=0x0190, f02=» ^ P* CHANNEL UNIT P* * P* 4 B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. > 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE O
0x30206c…302200 Dummy {f00=0x015a, f01=0x0190, f02=»PU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF 6 P* B P ANK A2,/FF L " P LDR* A7,A6 CHANNEL PARAMETER ` P ANK A7,/F P SLL A7,1 DOUBLE INDEX & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS P SUK A7,8 REMOTE ? P RF(N) OUL100
0x302200…302394 (3, 119) Dummy {f00=0x015b, f01=0x0190, f02=»ET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS P EJECT F POUL100 INH T P* f ( P* IF UNIT NOT FREE QUEUE OUTPUT. p 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, 0 P*
0x302394…302528 Dummy {f00=0x015b, f01=0x0190, f02=»NEL UNIT FREE ? P RF(NE) OUL800 NO P LDR A7,A7 REMOTE ? 2 P RF(N) OUL500 N P LDR A3,A2 d P SUK A3,/82 STX ? v P RF(NE) OUL200 NO P EJECT P* P* S T X P* * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ?
0x302528…3026bc Dummy {f00=0x015b, f01=0x0190, f02=» INDICATE FIRST OBC , POUL150 LDR* A3,A6 GET CHANNEL PARAMETER , P ANKL A3,/E00 SET DEVICE NUMBER TO ZERO N P RF OUL510 ~ & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ?
0x3026bc…302850 Dummy {f00=0x015b, f01=0x0190, f02=»RCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 & P* 8 P* OTHER OUTPUT B P* 8 POUL300 CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC f P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING * P RF
0x302850…3029e4 Dummy {f00=0x015b, f01=0x0190, f02=» P LD A3,CWTBLK,A5 P RF(Z) OUL500 ( P ORKL A2,/8000 INDICATE BLOCKSENDING 2 P LDK A3,/80 ^ 2 P SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING r P EJECT P* P* & P* SEND CHARACTER SECTION. 2 P* CHARACTER
0x3029e4…302b78 Dummy {f00=0x015b, f01=0x0190, f02=»ERS FOR f . P* DWT AND ACKUMULATOR IS UPDATED. P B POUL500 EQU * J " P LDR* A3,A6 CHANNEL PARAMETER ^ P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 P* P* P* POUL515 EX CWTOTR,A5 OTR P RF(R)
0x302b78…302d0c Dummy {f00=0x015b, f01=0x0190, f02=»ESSBLOCK p . P ABI INTADR,A2 GO TO INTERRUPT HANDLER =8 POUL520 EQU * B P* V P IFT LOGING=1 ` P* v 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* P XIF P* P STR A6,A5 SET CHANNEL BUSY , P ST A2,CWTLOW,A5
0x302d0c…302ea0 Dummy {f00=0x015b, f01=0x018e, f02=»ULATOR n . P CF A15,RESTSY START OR RESTART SYNC-TIMER 4 POUL600 SC A2,DWTOCH,A6 SET LAST OUTPUT CHARACTER @ POUL700 EQU * x P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 RES
0x302ea0…303034 (3, 120) Dummy {f00=0x0163, f01=0x0190, f02=» P EJECT P* : P* NORMALLY DWT-ADDRESS IS PUT LAST IN OUTPUT QUEUE P* Z POUL800 EQU * d P LDR A7,A7 REMOTE ? x P RF(NN) OUL805 YES P LDR A7,A5 CWT-ADDRESS , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL82
0x303034…3031c8 Dummy {f00=0x0163, f01=0x0190, f02=»LOW THE THREAD P RB OUL810 $ POUL820 ST A6,CWTEQ,A7 QUEUE DWT ( P RF OUL840 P $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT b P LDK A4,0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK P RB OUL600 P EJECT P* P*
0x3031c8…30335c Dummy {f00=0x0163, f01=0x0190, f02=»TINE IS ENTERED FROM 'PFINIT' r P* & P* 0 P* : PCHLTON EQU * D P LD A4,CHTAB X " PCON010 SUK A4,2 ALL TREATED ? l P RF(NZ) CON020 NO TAKE NEXT P ABL RTNA15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRE
0x30335c…3034f0 Dummy {f00=0x0163, f01=0x0190, f02=» BUSY p $ P EX CWTCIS,A5 EXECUTE CIO-START P RF(U) CON027 6 $ P LDK A3,0 INDICATE CHANNEL BUSY L . P CF A15,RESTSY START OR RESTART SYNC-TIMER t PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5
0x3034f0…303684 Dummy {f00=0x0163, f01=0x0190, f02=»OWED n . P LD A2,10,A1 ANY DEVICE ON SECOND TERMONAL 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED > 8 PCON028 LDK A2,BLOCK INDICATE BLOCKSENDING OR NOT DK1 r PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICAT
0x303684…303818 Dummy {f00=0x0163, f01=0x018e, f02=»ST DWT ~ P RB(Z) CON010 P CWK A6,1 SYNC ? $ P RB(E) CON010 < P CMR A5 RESET LAST OUTPUT R P LDK A2,/00 DUMMY t P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CON
0x303818…3039ac Dummy {f00=0x0163, f01=0x0190, f02=» P* PLOGG STR A1,A15 P LD A1,POINT * P ADK A1,2 > & P CWK A1,BUFE BUFE IS MAX LOGG AREA P P RF(NE) L1 z ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15
0x3039ac…303b40 Dummy {f00=0x0163, f01=0x0190, f02=»EA (500) DK1 | PBUFE EQU * P* & P XIF 0 P* < P EJECT F P* T P* ^ P* E C H O , E C H E N D h P* < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P*
0x303b40…303cd4 (3, 121) Dummy {f00=0x0175, f01=0x0190, f02=»DEVICE-DEPENDENT ECHO-ROUTINE ~ P* & . P* PART TWO: ECHO ONE OR MORE CHARACTERS 0 2 P* CORRESPONDING TO ONE CHARACTER b 4 P* TO BE STORED IN INPUT ECB-BUFFER P* P* 4 P* PART ONE FOLLOWS AND PART TWO C
0x303cd4…303e68 Dummy {f00=0x0175, f01=0x0190, f02=»ICE DEPENDENT ECHO DRIVER x P* " " P* A7 MUST NOT BE DESTROYED , 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A R P* JUMP TO 'ECHRTN'. P* PECHEND EQU * P* P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE
0x303e68…303ffc Dummy {f00=0x0175, f01=0x0190, f02=»A5,DWTA5,A6 P LD A1,DWTST,A6 STATUS P SLL A1,2 2 $ P RF(NN) RETUR NO ECHO REQUESTED D 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE l 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE
0x303ffc…304190 Dummy {f00=0x0175, f01=0x414a, f02=»A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT P XIF . PECHRTN EQU * : P IFT CECHO=1 N P LDR A7,A7 END? b P RF(NN) ERETUR NO z ( P CF A15,TENDIO END I/O OUTPUT DEVICE > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE 4 PRETUR
0x304190…304324 Dummy {f00=0x0175, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x304324…3044b8 Dummy {f00=0x0175, f01=0x0000, f02=»
[…0x2…]
0x3047e0…304974 (3, 122) Opaque[0x194]
0x304974…304b08 # DirEnt {nam=»M:FD2B«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2ec8, f03=0x0000}
0x304974…304b08 IdxSect {
0x304974…304b08 f00 = 0x0176 // 0x304974 @0x0
0x304974…304b08 f01 = 0x0002 // 0x304976 @0x2
0x304974…304b08 gno = [ // 0x304978 @0x4
0x304974…304b08 [0x00]: C0x0176.0x1.0
0x304974…304b08 ]
0x304974…304b08 }
0x304b08…304c9c Dummy {f00=0x0176, f01=0x0116, f02=» SCR LED DRRT01,/S 2 .!!CH $$BLOCK EQU 0 $$BLOCK EQU 1 $$ BLOCK MODE & !!EN ASM /S,NL h KPF /O z SCR INC SYSTAB LKE M PKPF /L,M:FD2B SCR ASM DRRT01,NL KPF /O SCR AS
0x304c9c…304e30 Dummy {f00=0x0176, f01=0x2008, f02=» LED DRRT01,/S 2 .!!CH $$BLOCK EQU 0 $$BLOCK EQU 1 $$ BLOCK MODE & !!EN ASM /S,NL h KPF /O z SCR INC SYSTAB LKE M PKPF /L,M:FD2B SCR ASM DRRT01,NL KPF /O SCR AS
0x304e30…304fc4 Dummy {f00=0x0176, f01=0x0190, f02=»A " T6 S S ( sM ST ! u I h M P vMSX* S @ 0 W _ , ( > u"X( _ , " T T xr <P xr W 4 4 .Zn> EbV Z Z [ E Y^WxZ(Y L LXL K M VTL HXK J LLLPL@L6L:LDLHL KDE Z Z,W W X(X YzX ZZZ6Z q Y Y G V l
0x304fc4…305158 Dummy {f00=0x0176, f01=0x0190, f02=» ` x V % 8 < @ D P T Y n ( 4 ? * * ' E d 6 P , : D
0x305158…3052ec Dummy {f00=0x0176, f01=0x0190, f02=» ( 2 3 @ *-DKSTNR&04BEL DEB KRE SUMKVITTRP ADM ARKIVBILAGDEBETFEJL KLAR SALD0SALDOSLUTDZ300 KVITDAG NREJ EDBKREDITLBNR T[LLERKONTONRKORREKT DIVERSETOTAL EKS.LBNRBEREGNINGDAGS-DATOKONTOKO
0x3052ec…305480 Dummy {f00=0x0176, f01=0x0190, f02=» START TESTEDB-T[LLERE KASSE-KONTO KASSELUKNING ]BNE KASSERKONVERTERING REGNEFUNKTIONSLET PERIODE EJ-EDB T[LLER DISKETTE SKIFT BEHOLDNINGST[LLEREVERSUR KONTONR REMIT VERSURKONTONR KASSEKONTONR PRIMO KASSE %9BX**999BBZXBXXZZ**B99999BB**B9BBB
0x305480…305614 (3, 123) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0628, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x0031 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0002 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x0031.0x1.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x0031, f01=0x0086, f02=» ASM DRDC15 KPF /O SCR $ ASG 2,LP0F 0 INC SYSTAB B LKE M T KPF /L,M:FD2 b ASG /E0,TY10 vSERT INTO QUEUE - t " P CMR A4 INDICATE END OF QUEUE - P RTN A5 - P - P* - P* - 2 P* CHECK IF UNEXPECTED
0x30593c…305ad0 Dummy {f00=0x0031, f01=0x2008, f02=» DRDC15 KPF /O SCR $ ASG 2,LP0F 0 INC SYSTAB B LKE M T KPF /L,M:FD2 b ASG /E0,TY10 vSERT INTO QUEUE - t " P CMR A4 INDICATE END OF QUEUE - P RTN A5 - P - P* - P* - 2 P* CHECK IF UNEXPECTED
0x305ad0…305c64 Dummy {f00=0x0031, f01=0x0190, f02=» 2 P********************************************* P* > $ P* PHILIPS TERMINAL SYSTEM PTS H P* p * P* DRDC15: DRIVER DATA COMMUNICATION z . P* BSC MULTIPOINT LINE PROCEDURE P* OR SIEMENS MSV1 P* P
0x305c64…305df8 Dummy {f00=0x0031, f01=0x0190, f02=»ENTRY POINTS P* 2 P ENTRY DC15AD ADDRESS BLOCK TERMINAL REQUESTS " P ENTRY IH1501 INPUT INTERRUPT T " P ENTRY IH1502 OUTPUT INTERRUPT z " P ENTRY DC15ON POWER ON ROUTINE " P ENTRY DW1500 DWT FOR DC TASK P* P* P* EXTERN
0x305df8…305f8c Dummy {f00=0x0031, f01=0x0190, f02=»O COMPLETE I/O EVENT P EXTRN DISIOE REQUEST ERROR P EXTRN SETIME SET TIMER @ P EXTRN DWTST DWT STATUS ` P EXTRN DWTOR DWT ORDER P EXTRN DWTECB DWT ECB * P EXTRN INTSAV SAVE AREA LAST INTERRUPT ( P EXTRN TEBCDIC ASCII TO EBCDIC
0x305f8c…306120 Dummy {f00=0x0031, f01=0x0190, f02=» & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE . " P EXTRN ECBCW ECB CONTROL WORD R * P EXTRN DC:MIN MOVE DATA TO USER BUFFER x , P EXTRN DC:MOT MOVE DATA FROM USER BUFFER 0 P EXTRN DISEND COMPLETE REQUEST AND DISPATCH
0x306120…3062b4 (3, 124) Opaque[0x194]
0x3062b4…306448 # DirEnt {nam=»DW1501«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1490, f03=0x0000}
0x3062b4…306448 IdxSect {
0x3062b4…306448 f00 = 0x00a4 // 0x3062b4 @0x0
0x3062b4…306448 f01 = 0x0002 // 0x3062b6 @0x2
0x3062b4…306448 gno = [ // 0x3062b8 @0x4
0x3062b4…306448 [0x00]: C0x00a4.0x2.0
0x3062b4…306448 ]
0x3062b4…306448 }
0x306448…3065dc Dummy {f00=0x00a4, f01=0x0190, f02=» 2 P IDENT DW1501 REL 9.2 820414DK 870105040920 P : P* B : P* DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 L P* P ENTRY DW1501 TABLE ENTRY * P EXTRN DC15AD POINTER TO ADDRESS-BLOCK P* PMMUPAG EQU 1 P*
0x3065dc…306770 Dummy {f00=0x00a4, 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
0x306770…306904 Dummy {f00=0x00a4, f01=0x4156, f02=»ATA 0 STATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V " P DATA 0 REQUEST TIMEOUT VALUE t ( P DATA 0 USED BY RESET PRINTERBIT DK P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA
0x306904…306a98 Dummy {f00=0x00a4, f01=0x2008, f02=» ATUS QUEUE P DATA 0 RECEIVE QUEUE P DATA 0 BUFFER ADDRESS 8 P DATA 0 CURSOR ADDRESS V , P DATA 50 REQUEST TIMEOUT. DEFAULT 5 SEC. t P* P IFT MMUPAG=1 PDC:ECB EQU * MMU ECB P DATA 0,0,0,0,0,0 P XIF P*
0x306a98…306c2c Dummy {f00=0x00a4, f01=0x0190, f02=»R?RH % L L?R?R % L ! L L?R?R # L % L ~ < L ^ 0 9 n 0 Q
0x306c2c…306dc0 Dummy {f00=0x00a4, f01=0x0190, f02=» L?R # L % L ?R L?R L?R L L:R?R L % L L:R D V f x 0 0 0
0x306dc0…307a60 (4, 0) DirGranule ((4, 0)) {
0x306dc0…307a60 DirEnt {nam=»FDMOD «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0558, f03=0x0000}
0x306dc0…307a60 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c40, f03=0x0000}
0x306dc0…307a60 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c58, f03=0x0000}
0x306dc0…307a60 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x306dc0…307a60 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c60, f03=0x0000}
0x306dc0…307a60 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x306dc0…307a60 }
0x307a60…307bf4 (4, 1) Opaque[0x194]
0x307bf4…307d88 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c40, f03=0x0000}
0x307bf4…307d88 IdxSect {
0x307bf4…307d88 f00 = 0x0162 // 0x307bf4 @0x0
0x307bf4…307d88 f01 = 0x0006 // 0x307bf6 @0x2
0x307bf4…307d88 gno = [ // 0x307bf8 @0x4
0x307bf4…307d88 [0x00]: C0x0162.0x0.0
0x307bf4…307d88 [0x01]: C0x0162.0x1.0
0x307bf4…307d88 [0x02]: C0x0162.0x2.0
0x307bf4…307d88 ]
0x307bf4…307d88 }
0x307d88…307f1c Dummy {f00=0x0162, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 9.2 80-11-12 870105040920 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x307f1c…3080b0 Dummy {f00=0x0162, f01=0x0190, f02=»*************** l P* P* " P , P 4 P < P D P L P T P P d P l P t P | P P P SYSTAB P P 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTPLD P E
0x3080b0…308244 Dummy {f00=0x0162, f01=0x0190, f02=»MMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 0 P ENTRY SCTTCT,SCTCDT F P ENTRY SCTBUG b & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC x P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:
0x308244…3083d8 Dummy {f00=0x0162, f01=0x0190, f02=»START n P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 0 P EXTRN IH1501 T P EXTRN IH1502 t ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE CHAN
0x3083d8…30856c Dummy {f00=0x0162, f01=0x0190, f02=»NIT NO. 1 t P EXTRN IHFD FLOPPY DISCEN P EXTRN IHFD2 KST 4 $ P EXTRN ILLINT ILLEGAL INTERRUPT N P EXTRN HALT HALT ROUTINE v P* DEBUGGER PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX R
0x30856c…308700 Dummy {f00=0x0162, f01=0x0190, f02=»TEM x P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* P PSEG:ST EQU 0 STATUS Z $ PSEG:DS EQU 2 DISC SECTOR ADDRESS v " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE
0x308700…308894 (4, 2) Dummy {f00=0x0162, f01=0x0190, f02=» n P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY H $ PSWB:EL EQU 4 SWB LENGTH (BYTES) ~ & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* ( PT:ACSB EQU -12 CURRENT SEGMENT BASE P
0x308894…308a28 Dummy {f00=0x0162, f01=0x0190, f02=» 2 P DATA ILLINT 3 P DATA ILLINT 4 * P DATA ILLINT 5 F P DATA ILLINT 6 b P DATA ILLINT ~ P DATA ILLINT P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT
0x308a28…308bbc Dummy {f00=0x0162, f01=0x0190, f02=» 16 P DATA CHRT2 17 P DATA CHRT3 18 ( P DATA CHRT4 19 D P DATA ILLINT ` P DATA ILLINT P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA
0x308bbc…308d50 Dummy {f00=0x0162, f01=0x018e, f02=» DATA IHFD 30 P DATA IHFD2 31 P DATA ILLINT 32 6 P DATA ILLINT 33 R P DATA ILLINT n P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA
0x308d50…308ee4 Dummy {f00=0x0162, f01=0x0190, f02=» z P DATA ILLINT P DATA ILLINT 45 ( P DATA ILLINT 46 D P DATA ILLINT 47 ` P DATA ILLINT 48 | P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P
0x308ee4…309078 Dummy {f00=0x0162, f01=0x018e, f02=» P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 < P DATA ILLINT 61 X P DATA ILLINT 62 t P DATA TRAP TRAP ROUTINE P SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P D
0x309078…30920c Dummy {f00=0x0162, f01=0x0190, f02=» P P* P* DEBUG RESTART ENTRY P* 8 P XRR A13,A13 B P XRR A14,A14 V P LD A1,SCTBUG j P ABR(NZ) A1 P HLT P P SYSTAB P P* P* SYSTEM CONTROL TABLE P* P PSCT EQU *
0x30920c…3093a0 Dummy {f00=0x0162, f01=0x018e, f02=» p & PSCTPLD DATA 0 PROGRAM LOAD DEVICE ( P C0,C1 CAS F0,F1 DISC F8,F9 FLOPP 2 $ PSCTANO DATA 0 APPLICATION NUMBER ^ 2 PSCTADA DATA 0 APPLICATION DISC SECTOR ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSEG DATA 0 SEGTAB ADDRESS PSCTS
0x3093a0…309534 (4, 3) Dummy {f00=0x0162, f01=0x0190, f02=» v . PSCTMMC DATA 0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB : 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART T & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0
0x309534…3096c8 Dummy {f00=0x0162, f01=0x0190, f02=»AG,15:MMUPAG x PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS 8 PSCTBUG DATA 0 DEBUGGER ( PSCTDMT DATA 00004 DMTASKS IN SYSTEM z P BIT 13:D2,14:D1,15:D0 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE * PSCTDML DATA
0x3096c8…30985c Dummy {f00=0x0162, f01=0x4138, f02=»A 00001 DC-TASK IN SYSTEM P SYSTAB " P 6 P* > P* SYSTEM STACK H P* ^ P RES 145 h P DATA /FCC0 AND PSW x & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP RB *
0x30985c…3099f0 Dummy {f00=0x0162, 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
0x3099f0…309b84 Dummy {f00=0x0162, f01=0x0190, f02=» 0 1 ! 4! R 6 0" W 0" W 0" $2 _, 4 6 0"V W 0"V W 0"V 4 0 1 4 4 % D% : q I ! q* rb { { ! q 4 r b # | % r b # % r W
0x309b84…309d18 Dummy {f00=0x0162, f01=0x0190, f02=»q 4 4 0 ! #! 0! @! _ 6 6 1? 4 WFK WAJ W<J, ! 4% /# *_*! #_1 t =W " t _MJ PW 4 # *H @ , W H @ , ( , ? 2 r !"#$ %&%%'%%(%%%%%%%%%%)*+%,$%%%%%$%%%%%%-$./%%$$0$$$$$$$$%12%3 45
0x309d18…309eac Dummy {f00=0x0162, f01=0x0190, f02=» ! _ A R A 9%@ ?%@ ?% ?% "8 8 I # "# W # % W I O O x ? ! ! ! ? # W A A @ + A ? @ ) A ) ! j! f b N L + " :hN b N ) , Lb N ! q %
0x309eac…30a040 Dummy {f00=0x0162, f01=0x0190, f02=» sb s" ?% ? :R! ! ? ?%! ! ? ?% ! r ! s ? ?% % ? ? % s ? ?%H % ? ?% % t ! u ? ?% # v % q ?% ? # % ?% ? ?$ :R?% r % q |: ?R :R " t % r t !
0x30a040…30a1d4 (4, 4) Opaque[0x194]
0x30a1d4…30a368 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c58, f03=0x0000}
0x30a1d4…30a368 IdxSect {
0x30a1d4…30a368 f00 = 0x0162 // 0x30a1d4 @0x0
0x30a1d4…30a368 f01 = 0x0002 // 0x30a1d6 @0x2
0x30a1d4…30a368 gno = [ // 0x30a1d8 @0x4
0x30a1d4…30a368 [0x00]: C0x0162.0x3.0
0x30a1d4…30a368 ]
0x30a1d4…30a368 }
0x30a368…30a4fc Dummy {f00=0x0162, f01=0x0190, f02=» 0 P IDENT PFTAB REL 9.2 80-11-12 870105040920 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x30a4fc…30a690 Dummy {f00=0x0162, f01=0x4190, f02=»TON LOCAL/REMOTE TERMINALS P* " P EXTRN FDON LINE PRINTER , 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION L $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA DC15ON P DATA SOPR P* P DATA CHLTON P* P DATA
0x30a690…30a824 Dummy {f00=0x0162, 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
0x30a824…30a9b8 Dummy {f00=0x0162, f01=0x0190, f02=» n b f j1 4 1 4 1 4 BE]RADRBFOBKOMTBOMRTXTTYPVALDATOKODEP]L-RATETNR A-ADRANTALFORF.LINIEOPKR.[NDR- POST. PRIMO SIDE ADM-NR BRILLE REF-NRADM-KODBET-ARTDEBITORRTE/GEBHOVEDBOGLBNR ARTLEVKONTOLINIE NROPK-KODERET.IND.LEVERAND RATE-[NDRRENTEFRIT NORMALPOST
0x30a9b8…30ab4c Dummy {f00=0x0162, f01=0x0190, f02=»XXXTTTTVTTX,XX-ZZZZZVZZ9,99+ R L B RATE Z C ' } ' B | 1 / d . % % - * { * , ) { ) + ( { ( ) & & ( { ' d $ @ { R S $ $ 0
0x30ab4c…30ace0 Dummy {f00=0x0162, f01=0x0190, f02=» R @ { { d R S # 2 ~ % & { & & ' { ' ! z ! { H ^ FAST SALDOOVERF ^
0x30ace0…30ae74 (4, 5) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x000d // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x0022 // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x000d.0x0.0
0x30ae74…30b008 [0x01]: C0x002f.0x1.0
0x30ae74…30b008 [0x02]: C0x002f.0x2.0
0x30ae74…30b008 [0x03]: C0x002f.0x3.0
0x30ae74…30b008 [0x04]: C0x004c.0x3.0
0x30ae74…30b008 [0x05]: C0x004d.0x0.0
0x30ae74…30b008 [0x06]: C0x004d.0x1.0
0x30ae74…30b008 [0x07]: C0x0071.0x0.0
0x30ae74…30b008 [0x08]: C0x0157.0x0.0
0x30ae74…30b008 [0x09]: C0x015b.0x3.0
0x30ae74…30b008 [0x0a]: C0x015c.0x0.0
0x30ae74…30b008 [0x0b]: C0x015c.0x1.0
0x30ae74…30b008 [0x0c]: C0x015c.0x2.0
0x30ae74…30b008 [0x0d]: C0x015c.0x3.0
0x30ae74…30b008 [0x0e]: C0x015d.0x0.0
0x30ae74…30b008 [0x0f]: C0x015d.0x1.0
0x30ae74…30b008 [0x10]: C0x0160.0x2.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x000d, f01=0x0190, f02=» . P IDENT DRFD01 REL 9.2 DUAL CHFD'S 80.11.12 P 6 . P KST,MODIFICATION FOR DUAL CONTR. UNITS > * P =2,TIMING PROBLEMS IN INT. HANDLER p P REL 9.2 79-11-16 $ P =1,CHANGED INTERRUPT HANDLER P REL 9.1 79-05-23 P* 2 P
0x30b19c…30b330 Dummy {f00=0x000d, f01=0x0190, f02=»LEXIBLE DISK x P* P* P* ( P* 2 P* < P* F 2 P********************************************* P 0 P* THIS DISK DRIVER HANDLES UP TO FOUR DAISY . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHAN
0x30b330…30b4c4 Dummy {f00=0x000d, f01=0x0190, f02=» /00 TEST STATUS P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- 8 P* /05 BASIC WRITE ~ D P* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ P* /15
0x30b4c4…30b658 Dummy {f00=0x000d, f01=0x0190, f02=» LOCK D P* /31 REWIND -IBM DISC ONLY- P* /37 LOAD V P* /38 UNLOAD l P* P* ENTRY PARAMETERS: P* P* A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER P* A8
0x30b658…30b7ec Dummy {f00=0x000d, f01=0x0190, f02=»******* P* $ P ENTRY FDADR ACTIVATION ADDRESS " P ENTRY IHFD INTERRUPT HANDLER B P ENTRY FDON RECOVERY ROUTINE h P ENTRY DWFD01 DWT-ADDRESS & P ENTRY IHFD2 INTERRUPT HANDLER KST P ENTRY DWFD02 DWT KST P ENTRY FDON2 KST
0x30b7ec…30b980 Dummy {f00=0x000d, f01=0x0190, f02=»*** P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO 6 P EXTRN DISIOE REQUEST ERROR R EXTRN DWTST STATUS v EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA2 SAVE AREA A2 EXTRN DWT
0x30b980…30bb14 (4, 6) Dummy {f00=0x002f, f01=0x0190, f02=» A15 STACK v P EXTRN SETIMP TIMER & P EXTRN INTSAV INTERRUPT SAVE AREA . & P EXTRN INIFLG INITIALIZATION FLAG X & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE $
0x30bb14…30bca8 Dummy {f00=0x002f, f01=0x018e, f02=»RC ECB RETURN CODE " P EXTRN ECBCW ECB CONTROL WORD P DRFD01 @ P* T P************************ ^ P* * ~ P* CONDITIONAL ASSEMBLY * P* * P************************ P* . P
0x30bca8…30be3c Dummy {f00=0x002f, f01=0x0190, f02=» 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT ( P* IS OBTAINED BY SETTING TOSS EQU 1. > P* j PX:B EQU 0 t PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAINED BY SETTING IBM EQU 1. P*
0x30be3c…30bfd0 Dummy {f00=0x002f, f01=0x0190, f02=»U 1. n P* PMMUPAG EQU 1 P* * P* 4 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION > . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. x P* PCPU852 EQU 0 P* P DRFD01 P* * . ** A PROGRAM VE
0x30bfd0…30c164 Dummy {f00=0x002f, f01=0x0190, f02=»PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 6 P* l PSWPBLK EQU 0 v P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CAN BE INC
0x30c164…30c2f8 Dummy {f00=0x002f, f01=0x0190, f02=»MMU BUFFER SIZE P* P* " PX:E EQU 256 , PDVBLEN EQU 256 B P* Z P* d P* MMU DEVICE INDEX n P* P* P IFT CHAN=1 PDEVIND EQU 2 P XIF P* P IFT CHAN=0 PDEVIND EQU 4-IBM-IBM
0x30c2f8…30c48c Dummy {f00=0x002f, f01=0x0190, f02=» P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS ( PCUADR2 EQU /0A SECOND CU ADR R & PMUXADR EQU CUADR+CUADR MUX-ADDRESS v ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS * PSTALEN EQU 512 MAX STANDARD SEC. LEN. ( PTOSLEN EQU 410
0x30c48c…30c620 Dummy {f00=0x002f, f01=0x0190, f02=» POSITION x $ PEOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON : & POPENTI EQU 10 DELAY AT OPEN ORDERS ^ P* P******************** P* * P* DWT-DISPLACEMENTS* P* * P******
0x30c620…30c7b4 (4, 7) Dummy {f00=0x002f, f01=0x0190, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 0 P XIF J P* V PDWTA3 EQU START+/04 ` P* | P DRFD01 P* P********** P* * P* TABLES * P* * P********** P* P
0x30c7b4…30c948 Dummy {f00=0x002f, f01=0x0190, f02=»FFER v P XIF P* P DATA DEVIND DEVICE INDEX " & PFDADR DATA FDAD ACTIVATION ADDRESS D " P DATA 0 ABORT ROUTINE ADDRESS n P* P DRFD01 P* P************** P* * P* ACTIVATION * P*
0x30c948…30cadc Dummy {f00=0x002f, f01=0x0190, f02=»OSE ORDER x P* P LDR A1,A7 ORDER P SUK A1,/21 4 P RF(Z) OPEN OPEN H P SUK A1,1 ` P RF(Z) CLOSE CLOSE r P* P P XIF P* P LDK A3,0 P LC A3,DWTOR,A6 INDEX P LDR A2,A3 SAVE FOR FDIX P*
0x30cadc…30cc70 Dummy {f00=0x002f, f01=0x0190, f02=» P* P* CHECK IF LOCKED P* ( $ P LD A1,DWTLC,A6 LOCK INDICATOR 2 " P CF A5,FDIX GET BIT MASK IN A3 Z * P ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK P ANR A1,A3 P RF(NZ) FD:ORD LOCKED P LDR A1,A7 P SUK A1,/26 P ABL
0x30cc70…30ce04 Dummy {f00=0x002f, f01=0x0190, f02=» P* P P* P* ORDER? " P* 4 PFD:ORD EQU * > P IFT CHAN+TOSS=2 R P IFT MMUPAG=1 j P IFF DSKPAG+SWPBLK=0 & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LDR* A1,A8 GET FIRST WORD OF ECB 4 P ANKL A1,/3000 GET BITS
0x30ce04…30cf98 Dummy {f00=0x002f, f01=0x0190, f02=»N CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:005 NO? , P* F PFD:000 EQU * P P ST A2,DWT:BF,A6 SAVE IT d P LDR A3,A2 P ANKL A2,/F000 P SRL A2,2 P SLL A1,2 P ORR A1,A2 P ANKL A3,/FFF 2 P ST A1,DWT:PA,A6
0x30cf98…30d12c Dummy {f00=0x002f, f01=0x0190, f02=»1,1 INDICATE ADDRESS NOT ZERO * P LDKL A2,FD:BUF GET DWT BUFFER ADDRESS & 2 P ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB T P* 8 PFD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS P* P DRFD01 P XIF P* P LDR
0x30d12c…30d2c0 Dummy {f00=0x002f, f01=0x0190, f02=»SIC WRITE P SUK A1,12 P RF(Z) FD:040 PHYSICAL READ $ P SUK A1,4 H P RF(Z) FD:028 PHYSICAL WRITE Z P SUK A1,15 ~ $ P RF(Z) FD:030 WRITE DELETED DATA P SUK A1,/14 P ABL(Z) UNLOAD UNLOAD ORDER P IFT IBM=1 P ADK A
0x30d2c0…30d454 (4, 8) Dummy {f00=0x002f, f01=0x0190, f02=») REWIND REWIND P XIF P IFT TOSS+IBM=0 $ P IFT MMUPAG=0 < P ADK A1,30 R P RF(Z) FD:050 SEARCH KEY d P XIF P PFD:DIS EQU * P ABL DISIOE REQUEST ERROR P* P IFT OPCLOS=1 P P* P******
0x30d454…30d5e8 Dummy {f00=0x002f, f01=0x018e, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER. P* : POPEN EQU * D " P LDKL A1,/7FFF MASK FOR BIT 0 V ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT | 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P*
0x30d5e8…30d77c Dummy {f00=0x002f, f01=0x0190, f02=» P LDR A1,A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT $ . P DATA OPENRE,OPENTI START ADDR, WAIT TIME @ P ABL TDISP EXIT r P* POPENRE EQU * P* TIME HAS EXPIRED P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RU
0x30d77c…30d910 Dummy {f00=0x002f, f01=0x0190, f02=» P* * P********* P* ( 4 P* CLOSE IS PERFORMED BY WRITING A ONE TO BIT 2 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER j P* PCLOSE EQU * " P LDKL A1,/8000 MASK FOR BIT 0 & P ORS A1,SPDLCI SET OPEN/CLOSE BIT
0x30d910…30daa4 Dummy {f00=0x002f, f01=0x0190, f02=»N EXIT FOR OPEN/CLOSE P LDK A1,0 RETURN CODE P RF FD:090 ENDIO < P* T P XIF ^ P* j P DRFD01 t P* P*************** P* * P* BASIC WRITE * P* * P***************
0x30daa4…30dc38 Dummy {f00=0x002f, f01=0x0190, f02=»6 P RF(Z) FD:018 NOT IBM P XIF ( P IFT IBM=1 4 , P LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED F P CF A5,EBCDIC v PFD:018 EQU * P XIF P* P IFT CHAN+TOSS=2 P IFT MMUPAG+SWPBLK=2 4 P LD A1,DWT:LA,A6 GET FLAG/LOGI
0x30dc38…30ddcc Dummy {f00=0x002f, f01=0x0190, f02=» & P LDR A2,A4 GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU . ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE X 2 P MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK P LDR A2,A8 RESTORE A2 P*
0x30ddcc…30df60 Dummy {f00=0x002f, f01=0x0190, f02=»FT CHAN+TOSS=2 P IFT MMUPAG+SWPBLK=2 $ P LD A1,DWT:LA,A6 GET BUFFER FLAG 2 , P RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA? Z . P LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS & P ST A1,ECBBA,A8 RESTORE IT IN ECB P* PFD:025 EQU * P XIF
0x30df60…30e0f4 (4, 9) Dummy {f00=0x004c, f01=0x0190, f02=»* * P****************** P* 4 PFD:028 CF A5,BIO > $ P ORK A2,5 INSERT BIO BITS 13-15 V P RB FD:015 ~ P DRFD01 P* P********************** P* * P* WRITE DELETED DATA * P
0x30e0f4…30e288 Dummy {f00=0x004c, f01=0x0190, f02=» P***************** P* * P* PHYSICAL READ * 8 P* * R P***************** l P* PFD:040 CF A5,BIO:RE P IFT TOSS+IBM=2 P LD A1,DWTLAB,A6 P AN A1,DWTA3,A6 P RF(Z) FD:042 TOSS D
0x30e288…30e41c Dummy {f00=0x004c, f01=0x0190, f02=» P DRFD01 P* P* & P IFT CHAN+TOSS=2 0 P IFT MMUPAG=1 H P IFF DSKPAG+SWPBLK=0 ^ 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS z ( P RF(Z) FD:046 BUFFER IN SYSTEM AREA? ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH *
0x30e41c…30e5b0 Dummy {f00=0x004c, f01=0x0190, f02=»VSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA & P TL -30,A15 RESTORE MMU FROM STACK ! 4 . P LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS ! ^ & P ST A2,ECBBA,A8 RESTORE IT IN ECB ! P RF FD:048 ! P* ! PFD:046 EQU * ! P XIF ! P* ! P IFT TOS
0x30e5b0…30e744 Dummy {f00=0x004c, f01=0x0190, f02=»,A8 REQ LEN ! ( P LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS " P CF A5,ASCII " @ PFD:047 EQU * " T P XIF " h PFD:048 EQU * " t P ABL FD:RC " P* " P DRFD01 " P* " P IFT TOSS+IBM=0 " P IFT MMUPAG=0 " P* " P**************
0x30e744…30e8d8 Dummy {f00=0x004c, f01=0x0190, f02=»A8 KEY AREA ADDRESS " P LDR* A2,A4 KEY AREA LENGTH # P LDR A1,A2 # @ " P ABL(NP) END:10 ILLEGAL LENGTH # R P SUK A1,128 # x " P ABL(P) END:10 ILLEGAL LENGTH # P LDR A3,A2 # P* # * P* IF ODD CHANGE TO EVEN NO OF BYTES # P* # P A
0x30e8d8…30ea6c Dummy {f00=0x004c, f01=0x0190, f02=»DRESS # P CF A5,FD:WRI SEARCH KEY $ P LDR A3,A3 RETURN CODE $ . P RB(NZ) FD:048 $ L P* $ b P DRFD01 $ l P* $ $ P* READ RECORD WITH KEY COMMAND $ P* $ PFD:060 EQU * $ P LDK A2,4 BIO $ P LD A3,4,A8 REQUESTED LENGTH $
0x30ea6c…30ec00 Dummy {f00=0x004c, f01=0x0190, f02=» DRFD01 $ P* % P*************** % P* * % 4 P* TEST STATUS * % L P* * % d P*************** % | P* % PFD:070 EQU * % P LDKL A2,/FFF9 BIO DUMMY % P CF A5,FD:WRI % P LDR A1,A3 % P ANK A1,1 %
0x30ec00…30ed94 (4, 10) Dummy {f00=0x004d, f01=0x0190, f02=»F LOA:05 READ VOLUME NAME % P* & " PFD:075 EQU * & , P XIF & @ $ P LD A1,DWTRCW,A6 GET RETURN CODE & L PFD:090 ABL END:IO & t P* & P DRFD01 & P* & P******** & P* * & P* LOAD * & P* * & P******** & P*
0x30ed94…30ef28 Dummy {f00=0x004d, f01=0x018e, f02=» * & P IFT TOSS+IBM=2 ' P* ' " P* CHECK IF TOSS/IBM LABEL ' , P* ' N P LDK A2,0 BIO ' X P LDKL A4,BUF ' n P LDK A3,38 NO OF BYTES ' P CF A5,FD:REA ' P CF A5,LD:RC ' P ADK A4,34 ' P LDR* A2,A4 ' P CWK A2,'TO' ' ( P RF(
0x30ef28…30f0bc Dummy {f00=0x004d, f01=0x0190, f02=» ' P* ( P DRFD01 ( P* ( & P* ( 0 P IFT TOSS=1 ( : P* ( N P* READ VOLUME NAME ( X P* ( t P LDK A3,8 LENGTH ( ~ P LDK A2,0 BIO ( * P C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ( * P ANS A1,DWTLAB,A6 INDICATE TOSS LABEL ( P
0x30f0bc…30f250 Dummy {f00=0x004d, f01=0x0190, f02=»K ( p ( P ORS A1,DWTLAB,A6 INDICATE IBM DISC ) " P LDK A1,/20 RETURN CODE BIT 10 ) 6 P ORS A1,DWTRCW,A6 ) P XIF ) v P IFF TOSS+IBM=0 ) PLOA:15 EQU * ) P LDKL A4,BUF BUFFER ADDRESS ) P CF A5,FD:REA ) P CF A5,LD:RC ) P LDK A1,2 )
0x30f250…30f3e4 Dummy {f00=0x004d, f01=0x0190, f02=» A7,10 NO OF CHAR. ) P CF A5,ASCII * P LDK A1,4 * . PLOA:30 EQU * * @ P XIF * T P* * ` P DRFD01 * j P* * ~ P* * P IFF TOSS+IBM=0 * P* * P* GET DWT VOL NAME ADDRESS * P* * P CF A5,VOLADR ADDRESS TO A2 * P*
0x30f3e4…30f578 Dummy {f00=0x004d, f01=0x0190, f02=»OA:50 * P ADK A1,2 + P ADK A2,2 + P RB LOA:40 + 2 PLOA:50 EQU * + D P LC A2,DWTOR+1,A6 GET ORDER + X P ANK A2,/FF + | & P RB(Z) FD:075 JUMP IF TEST STATUS + P XIF + P IFT IBM=1 + P* + P* DATA SET OPENING WANTED? + P* +
0x30f578…30f70c Dummy {f00=0x004d, f01=0x0190, f02=»E) LOA:70 LOCK ORDER + P* , P* READ DATA SET LABEL , & P* , D P LD A2,ECBCW,A8 SECTOR NO , N P SUK A2,7 , p P ABL(N) FD:DIS REQUEST ERROR , P SUK A2,18 , P ABL(P) FD:DIS REQUEST ERROR , P ADK A2,25 , P SLL A2,3 BIO , P LDK
0x30f70c…30f8a0 Dummy {f00=0x004d, f01=0x0190, f02=») LOA:60 NOT NO DATA , 2 P ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL - PLOA:60 EQU * - R P CF A5,LD:RC - f P ENB - z * P LD A3,ECBCW,A8 DATA SET LABEL SECTOR - P LDK A1,DWTDSS - P CF A5,STDWT SAVE IN DWT - P ADK A4,BOE BOE ADDRESS - .
0x30f8a0…30fa34 (4, 11) Dummy {f00=0x004d, f01=0x0190, f02=» LDK A1,DWTCRN - P CF A5,STDWT . P ADK A4,EOE-BOE EOE ADDRESS . * P CF A5,LOGSEC . N P LDK A1,DWTEOE . d $ P CF A5,STDWT STORE EOE NO IN DWT . z P ADK A4,EOD-EOE EOD ADDRESS . P CF A5,LOGSEC . P CF A5,SETINH INHIBIT . P LDK A1,DWTEOD
0x30fa34…30fbc8 Dummy {f00=0x004d, f01=0x0190, f02=»ATE LOCK . z & PLOA:75 LD A3,DWTRCW,A6 RETURN CODE / PLOA:80 ABL FD:RC / : P* / R P DRFD01 / P* / p P* / z P IFF TOSS+IBM=0 / P* / P* ERROR , UNLOCK / P* / PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BA
0x30fbc8…30fd5c Dummy {f00=0x004d, f01=0x0190, f02=»--- / ^ P* LD:RC SUBROUTINE 0 P* 0 * PLD:RC ORS A3,DWTRCW,A6 0 4 P ANKL A3,/2007 FATAL ERROR 0 R P RB(NZ) LOA:90 0 t & P LDKL A4,BUF DRIVER BUFFER ADDRESS 0 P RTN A5 0 P XIF 0 P DRFD01 0 P* 0 P********** 0 P*
0x30fd5c…30fef0 Dummy {f00=0x004d, f01=0x0190, f02=»OPEN? 0 P* 1 P CF A5,DSOPCH A1,AFFECTED 1 P LDR A7,A7 EOD 1 : P RF(Z) UNL:70 NOT OPEN 1 P 4 P ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB 1 n P* 1 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 P* 1 P CF A5,DSLIO PREPARE FOR I/O 1
0x30fef0…310084 Dummy {f00=0x004d, f01=0x0190, f02=»----- 1 v < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 2 P* 2 N P CF A5,DSOPCH EOD-NO TO A7 2 X P* 2 z P* DIVIDE EOD BY 26 2 P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 P ADK A1,1 2 P RB UNL:10 2
0x310084…310218 Dummy {f00=0x004d, f01=0x0190, f02=»INDEC TRANSFORM SEC.NO TO A3 2 ( P LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 3 $ P SCR A3,A4 3 P P SUK A4,1 3 b P SRL A3,8 LEFT BYTE 3 t P SCR A3,A4 STORE IN BUFFER 3 P LDR A7,A1 TRACK 3 ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 P SUK A4,3 3 P
0x310218…3103ac Dummy {f00=0x004d, f01=0x0190, f02=» FOR I/O 3 | P ORK A2,5 PHYSICAL WRITE 4 ( P CF A5,FD:WRITE WRITE DATA SET LEBEL 4 0 $ P CF A5,UNL:RC CHECK RETURN CODE 4 P CF A5,DSOPCH 4 P CMR A2 INDICATE NOT OPEN 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK
0x3103ac…310540 Dummy {f00=0x004d, f01=0x0190, f02=» LD A2,DWTA3,A6 INDEX MASK 4 , P XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT 5 " PUNL:80 EQU * 5 R P RB LOA:75 END:IO 5 f P IFF TOSS+IBM=0 5 P* 5 P* UNLOAD RETURN CODE CHECK 5 P* 5 PUNL:RC ORS A3,DWTRCW,A6 5 P ANK A3,/7 FATAL ERROR?
0x310540…3106d4 (4, 12) Dummy {f00=0x0071, f01=0x0190, f02=» P* SEQUENTIAL READ * 6 P******************* 6 P* 6 < PSQREAD EQU * 6 F * P CF A5,DSOPCH GET EOD AND EOD ADDRESS 6 Z P LDR A7,A7 EOD 6 " PSQR:05 ABL(Z) DISIOE NOT OPEN 6 . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 6 P LDR* A3,A2 CRN 6
0x3106d4…310868 Dummy {f00=0x0071, f01=0x0190, f02=»E 6 P LDKL A4,BUF BUFFER ADDRESS 7 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 7 . ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 7 d $ P LD A7,ECBRL,A8 REQUESTED LENGTH 7 $ P CF A5,ASCII TRANSFORM TO ASCII 7 P LDK A1,DWTCRN 7 P CF A5,DSPAD 7
0x310868…3109fc Dummy {f00=0x0071, f01=0x0190, f02=» DRFD01 7 P* 8 P******************* 8 P* SEQUENTIAL WRITE * 8 8 P******************* 8 T P* 8 p PSQWRIT EQU * 8 z P CF A5,DSOPCH GET EOD 8 P ADK A7,0 EOD-NO (SET CR) 8 P RB(Z) SQR:05 NOT OPEN 8 P* 8 P* CHECK IF END O
0x3109fc…310b90 Dummy {f00=0x0071, f01=0x0190, f02=» CWR* A7,A2 8 P RF(G) SQW:20 YES,EOE 9 P CF A5,BIO 9 2 P LDK A7,128 9 D , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF 9 X P ORK A2,5 PHYS. WRITE 9 P CF A5,FD:WRI 9 P CF A5,DSOPCH 9 PSQW:10 LDR A1,A3 RETURN CODE 9 P ANK A1,/1 9 P
0x310b90…310d24 Dummy {f00=0x0071, f01=0x0190, f02=»EXTENT 9 $ PSQW:20 LDKL A1,/400 RETURN CODE : P RF END:IO : 6 P DRFD01 : H P* : P********** : f P* REWIND * : x P********** : P* : PREWIND EQU * : P CF A5,DSOPCH : P ADK A7,0 EOD (SET CR) : $ P RB(Z) SQR:05 DATA SET NOT
0x310d24…310eb8 Dummy {f00=0x0071, f01=0x0190, f02=» : | P LDK A1,DWTCRN ; P CF A5,DSPAD ; P SUK A4,1 BOE - 1 ; 2 P STR A4,A2 CRN = BOE -1 ; L P LDK A1,0 RETURN CODE ; l P RF END:IO ; P XIF ; P DRFD01 ; P* ; P***************** ; P* * ; P* PERFORM ORDE
0x310eb8…31104c Dummy {f00=0x0071, f01=0x0190, f02=»O OF BYTES TO BE TRANSFERED ; " P* A4 BUFFER ADDRESS < $ P* < J PFD:WRI EQU * < T P IFT CHAN=0 < h P LDKL A1,/C000 WORDS,WRITE < | P XIF < P IFT CHAN=1 < ( P CM DWTRW,A6 INDICATOR TO WRITE MODE < P XIF < P RF FD:800 < P
0x31104c…3111e0 Dummy {f00=0x0071, f01=0x0190, f02=»DKL A1,/8000 WORDS READ < P XIF = PFD:800 EQU * = , P IFT CHAN=0 = @ " P SRL A3,1 FROM BYTES TO WORDS = T P* = z P IFT MMUPAG=1 = & P ORR* A1,A8 GET FIRST WORD OF ECB = * P ANKL A1,/F000 KEEP FOUR LEFTMOST BITS = P XIF = P* = P
0x3111e0…311374 (4, 13) Dummy {f00=0x0157, f01=0x0190, f02=»1 = P* > P DRFD01 > P* > ( . P* PUT BUFFER START AND END ADDRESS IN DWT > 2 P* > d P ST A4,DWTUB,A6 > n P ADR A3,A4 > " P ST A3,DWTUBE,A6 END ADDRESS+2 > P XIF > PFD:820 EQU * > & P ST A5,DWTA5,A6 SAVE STACK POINTER > P
0x311374…311508 Dummy {f00=0x0157, f01=0x0190, f02=»END:IO > P DRFD01 ? P* ? " * P************************************* ? , * P* * ? Z * P* FD:RC - STORE EFF LEN, END:IO * ? * P* * ? * P************************************
0x311508…31169c Dummy {f00=0x0157, f01=0x0190, f02=»IN ECB ? x P* @ P LD A2,ECBRL,A8 REQ LENGTH @ P ST A2,ECBEL,A8 EFF LENGTH @ : P DRFD01 @ P* @ p P********** @ z P* * @ P* END:IO * @ P* * @ P********** @ P* @ PEND:IO EQU * @ P CF A15,TENDIO @ P
0x31169c…311830 Dummy {f00=0x0157, f01=0x0190, f02=»GTH @ P* A PEND:10 LDK A1,8 RETURN CODE A P RB END:IO A : P DRFD01 A L P* A ` P******************** A j P* * A P* RECOVERY ROUTINE * A P* * A P******************** A P* A PFDON EQU
0x311830…3119c4 Dummy {f00=0x0157, f01=0x0190, f02=»-A8 ON STACK A ~ P XIF B P* B P LDKL A6,DWFD01 DWT ADDRESS B * P RF FDON05 KST B N PFDON2 EQU * KST B f P MSR 8,A15 KST B ~ P LDKL A6,DWFD02 KST B P* B PFDON05 EQU * B P IM DWTA2,A6 SET FDON FLAG B P LDKL A5,DWTSB2 B
0x3119c4…311b58 Dummy {f00=0x0157, f01=0x0190, f02=»POWER UP? B : P LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE C P SUK A2,/F8 C P $ P RF(N) FDON07 NOT FLEXIBLE DISC? C d P LDR A3,A2 C . P CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION C ( P CF A5,FDIX GET DRIVE BIT INDICATOR C * P ORS A3,DWTL
0x311b58…311cec Dummy {f00=0x0157, f01=0x018e, f02=»BEL C n P* D * P* READ VOLUME NAME (A2 = 0 FROM FDIX) D P* D D P LDK A3,8 D N P LDKL A4,BUF D ` P CF A5,FD:REA D t P LD A3,SCTPLD D 0 P CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT D P LDK A1,2 D P LDK A3,3 D P* D P* MOVE
0x311cec…311e80 Dummy {f00=0x0157, f01=0x0190, f02=» P RB(P) FDON06 E P* E PFDON07 EQU * E $ P XIF E 8 P* E D P DRFD01 E N P* E b 0 P* SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. E l P* DWTST IS SET BUSY E P* E P LD A2,DWTST2,A6 E P CWK A2,-1 E P RF(NE) FDON08 ALREADY
0x311e80…312014 (4, 14) Dummy {f00=0x015b, f01=0x0190, f02=» P F P* F : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING F " P LD A4,DWTTP2,A6 TIMER POINTER F V P RF(Z) FDON09 NOT RUNNING F | P CMR A4 STOP TIMER F $ P CM DWTTP2,A6 INDICATE NO TIMER F PFDON09 EQU * F P* F 6 P* OPEN
0x312014…3121a8 Dummy {f00=0x015b, f01=0x018e, f02=»E BIT MASK F x $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG G P ORS A2,DWTOCF,A6 SAVE G : ( P XRRS A2,A4 SET STATUS WORD TO OPEN G X P* G P LDR* A2,A4 G & P OTR A2,0,SOPDA SET DRIVE TO OPEN G P* G P XIF G P* G P G P* G P* DELAY
0x3121a8…31233c Dummy {f00=0x015b, f01=0x0190, f02=» G p P RB T:DISP H PFDON10 LDK A4,DWTTP H P ADR A4,A6 H 6 P LDR A1,A6 SAVE A6 H H P CF A15,SETIMP H b P DATA FDON20,TIME H x P RB T:DISP H P* H P* TIME OUT ROUTINE H P* H PFDON20 LDR A6,A1 H P CM DWTTP,A6 H P LDKL A5
0x31233c…3124d0 Dummy {f00=0x015b, f01=0x0190, f02=»LC,A6 LOCK INDICATOR H P ANR A1,A2 I P RF(Z) FDON30 NOT LOCKED I . P ST A2,DWTA3,A6 SAVE I N P* I j P I t P* I ~ P* PUT DRIVE NO IN CIO INSTR I P* I P SRN A2,A3 DRIVE NO IN A3 I * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR I P L
0x3124d0…312664 Dummy {f00=0x015b, f01=0x0190, f02=» INDICATE UNLOCK I PFDON30 EQU * J P SLL A2,1 J , P CWK A2,/0010 J > P RB(NE) FDON25 J T P* J j P IFT OPCLOS=1 J t P* J D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF J $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG J " P ORS
0x312664…3127f8 Dummy {f00=0x015b, f01=0x018e, f02=»E DRIVE IF IT WAS CLOSED J | P* BEFORE THE POWER OFF K P XIF K @ P* K L P K V P* K ` P* ANY REQUEST? K j P* K . P* RESTORE STATUS SAVED IN DWST2 TO DWTST. K P* SET DWTST2 TO -1 K " P LD A2,DWTST2,A6 SAVED STATUS K * P ST A2,D
0x3127f8…31298c Dummy {f00=0x015b, f01=0x0190, f02=» PFDON60 EQU * L P LD A2,DWTST,A6 L 0 P ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO L 0 P* L d P* RETRY REQUEST L n P* L P IM DWTRTY,A6 INDICATE RETRY L P LD A7,DWTOR,A6 L P ANK A7,/3F ORDER L P LD A8,DWTECB,A6 ECB ADDRESS L
0x31298c…312b20 Dummy {f00=0x015b, f01=0x0190, f02=»LER * L P* * M P********************* M , P* M J PIHFD EQU * M T $ P ST P,INTSAV SAVE LAST INTERRUPT M f " P******************** =1 START M P IFT CPU852=1 M * P CF A15,SAVE8 SAVE REGISTERS ON STACK M P XIF M P* M
0x312b20…312cb4 (4, 15) Dummy {f00=0x015c, f01=0x018e, f02=»ST M PIHFD2 EQU * KST N P ST P,INTSAV KST N " P MSR 8,A15 KST N < P LDKL A6,DWFD02 KST N T PIH000 EQU * KST N p P IFT CHAN=1 N P ENB N & P LD A1,DWTUB,A6 GET BUFFER POINTER N " P LD A2,DWTUBE,A6 END OF BUFFER N P SUR A2,A1 LENGT
0x312cb4…312e48 Dummy {f00=0x015c, f01=0x0190, f02=» P RF(NZ) IH050 READ O P* O P DRFD01 O ( P* O : P* O D PIH010 EQU * O N $ P LCR A3,A1 ONE BYTE FROM BUFFER O b P ECR A3,A3 LEFT POSITION O & P LC A3,1,A1 RIGHT BYTE FROM BUFFER O P EX FDOTR,A6 WRITE KST O P RB(NA) IH005 O $ P
0x312e48…312fdc Dummy {f00=0x015c, f01=0x018e, f02=»ER O x P* P PIH050 EQU * P P EX FDINR,A6 READ KST P ( P RB(NA) IH005 P F $ P SC A3,1,A1 RIGHT BYTE TO BUFFER P P ECR A3,A3 P " P SCR A3,A1 LEFT BYTE TO BUFFER P $ P ADK A1,2 UPDATE BUFFER POINTER P P SUK A2,2 P P RB(P) IH050 P
0x312fdc…313170 Dummy {f00=0x015c, f01=0x0190, f02=» P DRFD01 Q P* Q P* Q P******************** =1 END Q * P IFT CHAN=0 =2 Q N P EX FDSST,A6 STATUS KST Q f P XIF =2 Q ( P* LDKL A6,DWFD01 DWT ADRESS KST Q P LD A8,DWTECB,A6 ECB ADDRESS Q " P LD A5,DWTA5,A6 STACK POINTER Q
0x313170…313304 Dummy {f00=0x015c, f01=0x0190, f02=»M DWTRTY,A6 RESET RETRY FLAG Q P LDR A1,A3 R $ P ANKL A1,/0405 R 6 P RF(Z) IH:10 RETURN CODE OK R L P LDK A1,/4 R p P ORR A3,A1 CRC ERROR R PIH:10 EQU * R P* R P DRFD01 R P* R & P* TRANSFORM RETURN CODE, CU - ECB R P* R
0x313304…313498 Dummy {f00=0x015c, f01=0x0190, f02=»IT 5 R P SLC A4,7 TO BIT 14 S P ORR A3,A4 S ( P IFT TOSS+IBM=0 S : P LDR A4,A1 S R P ANKL A4,/2000 BIT 2 S d P SLL A4,1 TO BIT 1 S P ORR A3,A4 S P XIF S P LDR A4,A1 S P ANK A4,/20 BIT 10 S P SLL A4,3 TO BIT 7 S P ORR A3,A4
0x313498…31362c Dummy {f00=0x015c, f01=0x0190, f02=» XIF =1 S P RTN A5 T P DRFD01 T P* T 4 P******************** T > P* * T Z P* READY INTERRUPT * T v P* * T P******************** T P* T PFDRE EQU * T P LD A2,DWTA2,A6 T , P ABL(NZ) T
0x31362c…3137c0 Dummy {f00=0x015c, f01=0x0190, f02=» 0 P******************************************* U 0 P* * U 8 0 P* S U B R O U T I N E S * U l 0 P* * U 0 P******************************************* U P
0x3137c0…313954 (4, 16) Dummy {f00=0x015c, f01=0x018e, f02=» U v P* V > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START V 0 P* A3 NO OF BYTES TO BE TRANSFERED V T " P* A4 BUFFER ADDRESS V P* V PBIO EQU * V P LDK A4,0 FLAG V P RF BIO010 V PBIO:RE LDK A4,1 V
0x313954…313ae8 Dummy {f00=0x015c, f01=0x0190, f02=» P AN A2,DWTA3,A6 W P RF(Z) BIO020 TOSS DISC W P XIF W < P IFT IBM=1 W H P LDK A7,IBMLEN W Z P LDK A2,0 W p P XIF W P IFT TOSS+IBM=2 W P RF BIO030 W P XIF W P IFT TOSS=1 W PBIO020 LDKL A7,TOSLEN W P LDK A2,3 W P
0x313ae8…313c7c Dummy {f00=0x015c, f01=0x0190, f02=» REQ LEN W & P CWR A3,A7 REQ LENGTH WITHIN RANGE X P RF(G) BIOERR NO X : PBIO040 SUK A1,128 X R P RF(NP) BIO100 X l & P ADK A2,1 INCREMENT NO OF SECTORS X P RB BIO040 X P* X P* WRITE, CHECK REQ LENGTH X P* X PBIO060 CWR A3,A7 X
0x313c7c…313e10 Dummy {f00=0x015c, f01=0x0190, f02=»REQ LENGTH X ` P* Y P LDR A1,A3 REQ LENGTH Y P LDK A2,0 NO OF SECTORS-1 Y : $ PBIO015 LDR A4,A4 READ OR WRITE? Y P RF(NZ) BIO035 READ! Y P SUK A1,128 Y " P RF(Z) BIO100 REQ LEN ACCEPTED Y P RF BIO045 Y P* Y PBIO035 SUK A1,128
0x313e10…313fa4 Dummy {f00=0x015c, f01=0x0190, f02=»SIDE RANGE Y z P XIF Z P* Z 6 PBIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 Z ( P* Z b 2 P* CHECK SECTOR NO FROM CONTROL WORD OF ECB IS Z l ( P* WITHIN RANGE, PUT IT IN POS 2-12 Z P* Z P LD A1,ECBCW,A8 SECTOR NO Z P RF(N) BIOER2
0x313fa4…314138 Dummy {f00=0x015c, f01=0x0190, f02=»9 Z P RF(G) BIOER2 OUT OF RANGE [ , P SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR [ , P XIF [ P IFT TOSS+IBM=2 [ h P RF BIO120 [ P XIF [ P IFT IBM=1 [ PBIO110 CWK A1,1923 [ P RF(P) BIOER2 OUT OF RANGE [ P XIF [ P IFT TOSS+IBM=0
0x314138…3142cc Dummy {f00=0x015c, f01=0x0190, f02=»A1 [ " P LD A4,ECBBA,A8 BUFFER ADDRESS P LDR A1,A3 REQ LENGTH 0 P ANK A1,1 N $ P RF(NZ) BIOERR REQ LEN. NOT EVEN ` P RTN A5 P* P* 2 P* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO P* PBIOERR ABL END:10 P*
0x3142cc…314460 Dummy {f00=0x015c, f01=0x0190, f02=» * P* * ] P********* ] P* ] 0 P* INPUT: A2 X ] : P* ] T P* OUTPUT: A3 2 POWER(X) ] ^ P* ] PFDIX LDK A3,1 ] P ADK A2,0 SET CR ] PFDIX10 EQU * ] P RF(Z) FDIX20 ] P SLL A3,1 ] P SUK A2,1 ] P R
0x314460…3145f4 (4, 17) Dummy {f00=0x015c, f01=0x0190, f02=» VOLADR * ] P* * ^ P****************** ^ 2 P* ^ L P* INPUT: A6 DWT ADDRESS ^ V P* ^ x & P* OUTPUT: A2 VOLUME NAME ADDRESS ^ P* A3 ZERO ^ P* ^ PVOLADR EQU * ^ P LC A3,DWTOR,A6 DRIVE NO ^ PVO
0x3145f4…314788 Dummy {f00=0x015c, f01=0x0190, f02=»DDRESS ^ ~ P SUK A3,1 _ P RB VOLA10 _ PVOLA20 RTN A5 _ 2 P XIF _ H P _ T P IFT IBM=1 _ P DRFD01 _ n P* _ P********* _ P* ASCII * _ P********* _ P* _ : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO _
0x314788…31491c Dummy {f00=0x015c, f01=0x0190, f02=» A4 OUTPUT STRING ADDRESS _ P* OUTPUT: A1 CHANGED ` & P* A4 CHANGED ` H P* A7 CHANGED ` h P* ` PASCII EQU * ` P ENB ` P LDK A1,0 ` P ADR A4,A7 ` PASC:10 SUK A7,1 ` P RF(N) ASC:20 ` P S
0x31491c…314ab0 Dummy {f00=0x015c, f01=0x0190, f02=»UFFER ` j P RB ASC:10 a PASC:20 EQU * a " P RF EBC:90 SET INH AND RETURN a 4 P DRFD01 a Z P* a n P********** a x P* EBCDIC * a P********** a P* a < P* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO a P* EB
0x314ab0…314c44 Dummy {f00=0x015c, f01=0x0190, f02=» A4 INPUT STRING ADDRESS a P* b ( P* OUTPUT: A1 CHANGED b 2 , P* A4 DRIVER BUFFER ADDRESS b T P* A7 CHANGED b PEBCDIC EQU * b P ENB b P ADR A4,A7 b P LDK A1,0 b PEBC:10 SUK A7,1 b P RF(N)
0x314c44…314dd8 Dummy {f00=0x015c, f01=0x0190, f02=»C:80 EQU * b P LDKL A4,BUF c PEBC:90 EQU * c & P CF A5,SETINH c : P RTN A5 c P P DRFD01 c ` P* c t P********** c ~ P* LOGSEC * c P********* c P* c @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD c , P*
0x314dd8…314f6c Dummy {f00=0x015c, f01=0x0190, f02=»=SECTOR c r P* d , P* INPUT: A4 ADDRESS TO PHYS. SECTOR d P* d J & P* OUTPUT: A3 BINARY SECTOR NO d T . P* A4 ADDRESS TO PHYS. SEC. + 4 d ~ P* d PLOGSEC EQU * d P CF A5,DECBIN d P LDR A3,A1 SAVE d P ADK A4,2 d
0x314f6c…315100 Dummy {f00=0x015c, f01=0x0190, f02=» A1,1 d P SUR A3,A1 *26 e P CF A5,DECBIN e $ P SUK A1,1 e : P ADR A3,A1 e L P* e ^ P* CHECK SECTOR NO e h P* e P LDR A1,A3 e P SUK A1,25 e P RF(NP) LOG:10 e P CWK A4,BUF+EOD+4 EOD? e P RF(E) LOG:02 YES! e P SUKL A1,1
0x315100…315294 (4, 18) Dummy {f00=0x015c, f01=0x0190, f02=» RF(P) LOG:10 NOT ACC SEC. NO e " P SUK A4,4 RESET BUFFER POINTER f & P RTN A5 f L P* f P* FATAL ERROR f f P* f | ( PLOG:05 ADK A5,4 ADJUST STACK POINTER f $ PLOG:10 LDKL A1,/2000 RETURN CODE f P ORS A1,DWTRCW,A6 f P CF A5,SETINH f
0x315294…315428 Dummy {f00=0x015c, f01=0x0190, f02=» > P* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO g D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED g F , P* INPUT: A4 ADDRESS TO FIRST DIGIT g P* OUTPUT: A1 BINARY g P* WORKING REG: A2,A7 g P* g PDE
0x315428…3155bc Dummy {f00=0x015c, f01=0x0190, f02=» A2,9 g P RB(P) LOG:05 NOT DIGIT h P ADK A2,9 h . P SUK A7,1 h @ P RF(Z) DEC:30 h R & P ADK A4,1 ADDRESS TO SECOND DIGIT h h PDEC:20 SUK A2,1 h P RB(N) DEC:10 NEXT DIGIT h P ADK A1,/A MULTIPLY BY 10 h P RB DEC:20 h PDEC:30 ADR
0x3155bc…315750 Dummy {f00=0x015c, f01=0x0190, f02=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION h P* i 6 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES i @ P* i | P* OUTPUT: A3 CHANGED i P* A4 CHANGED i P* i PSETCIO LDKL A4,/FFCF i P ANS A4,FDCIO,A6 KST i P S
0x315750…3158e4 Dummy {f00=0x015c, f01=0x0190, f02=» * i P********** j P* j : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO j & 0 P* EBCDIC-CODED DIGITS (DECIMAL) j d P* j P* INPUT: A7 BINARY NUMBER j P* j . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS j P*
0x3158e4…315a78 Dummy {f00=0x015c, f01=0x0190, f02=» PBIN:20 ADK A7,10 k P SLL A3,8 k * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 k . P ORKL A3,/F0F0 EBCDIC CODED k P RTN A5 k P DRFD01 k P********* k P* DSLIO * k P********* k P* k 4 P* FUNCTION: PREPARE FOR READING DA
0x315a78…315c0c Dummy {f00=0x015c, f01=0x0190, f02=»* A3 128 k ( P* A4 DRIVER BUFFER ADDRESS l P* A6 DWT ADDRESS l H P* A1 IS CHANGED l j P* l PDSLIO LDK A1,DWTDSS l P CF A5,DSPAD l P LDR* A2,A2 l P SLL A2,3 l P LDK A3,128 l P LDKL A4
0x315c0c…315da0 Dummy {f00=0x015c, f01=0x0190, f02=»GET EOD-NO AND EOD-NO ADDRESS IN DWT l P* m , P* INPUT: A6 DWT ADDRESS m 6 P* m X P* OUTPUT: A2 EOD ADDRESS m b , P* A7 EOD-NO (0=NOT OPEN) m P* A1 CHANGED m PDSOPCH LDK A1,DWTEOD m P CF A5,DSPAD m P LDR*
0x315da0…315f34 (4, 19) Dummy {f00=0x015d, f01=0x018e, f02=»CTION: GET ABSOLUTE ADDRESS OF SPECIFIED m 6 P* TYPE OF DATA FOR COORESSPONDING DRIVE n 0 P* n j P* INPUT: A1 DWT OFFSET n t P* A6 DWT ADDRESS n P* n " P* OUTPUT: A2 ADDRESS TO DATA n P* A6 DWT ADDRESS n
0x315f34…3160c8 Dummy {f00=0x015d, f01=0x0190, f02=» P DRFD01 o P* o P********* o " P* STDWT * o 4 P********* o F P* o X : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF o b P* DRIVE NO o P* o ( P* INPUT: A1 OFFSET TO DWT AREA o . P* A3 WOR
0x3160c8…31625c Dummy {f00=0x015d, f01=0x018e, f02=»O WORD IN DWT AREA o v P* A3 UNCHANGED p P* A6 UNCHANGED p < P* p ^ PSTDWT EQU * p h P CF A5,DSPAD p | P STR A3,A2 p P RTN A5 p P DRFD01 p P* p P********** p P* SETINH * p P********** p P*
0x31625c…3163f0 Dummy {f00=0x015d, f01=0x0190, f02=» p T P* RETURN q P* q $ " P* INPUT: A6 DWT ADDRESS q . P* q T PSETINH INH q ^ P LD A1,DWTA2,A6 FDON q p P RF(Z) SET:10 NOT ACTIVE q P ABL T:DISP ESCAPE q PSET:10 RTN A5 q P XIF q P* q " P* D R I V E R B U
0x3163f0…316584 Dummy {f00=0x015d, f01=0x0190, f02=»********************* q P* * r P* DEVICE WORK TABLE * r < P* * r Z P********************* r x P* r PDWFD01 EQU * r P DATA 0 r P DATA /8000 DWT STATUS r P DATA 0 ECB ADDRESS r P DATA 0 OR
0x316584…316718 Dummy {f00=0x015d, f01=0x0190, f02=»UEUE r ~ P* s IFT MMUPAG=1 s & " DATA 0 SAVE AREA USER ECB ADDRESS s , DATA DEVECB MMU ECB ADDRESS s V XIF s z P* s P DATA 0 s P DATA 0 SAVE AREA s P DATA 0 s P DATA 0 s P DATA 0,0,0,0 STACK s ( PDWTST2 EQU *-DWFD0
0x316718…3168ac Dummy {f00=0x015d, f01=0x0190, f02=» s p P DATA 0 t ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE t P DATA 0 t D , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR t T P DATA 0 t , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR t P DATA 0 t ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 t P DATA 0,
0x3168ac…316a40 Dummy {f00=0x015d, f01=0x0190, f02=» ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 u P DATA 0,0,0 u 0 P IFT OPCLOS=1 u D . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN u Z P DATA 0 u 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON u P DATA 0 u P XIF u P* u P IFT CHAN=1 u
0x316a40…316bd4 (4, 20) Dummy {f00=0x015d, f01=0x0190, f02=» u , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR v P DATA 0 v 8 P XIF v H P* v T P IFT IBM=1 v ^ , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT v p P DATA 0,0,0,0 v $ PDWTEOD EQU *-DWFD01 END OF DATA v P DATA 0,0,0,0 v & PDWTEOE EQU *-DWFD01
0x316bd4…316d68 Dummy {f00=0x015d, f01=0x0190, f02=» SET LABEL SECTOR v x P DATA 0,0,0,0 w P XIF w 0 P* w < P IFT CHAN+TOSS=2 w F P IFT MMUPAG=1 w ^ P IFF DSKPAG+SWPBLK=0 w t PDWT:PA EQU *-DWFD01 w * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS w P DATA 0 SECOND MMU ENTRY w P* w PDWT:
0x316d68…316efc Dummy {f00=0x015d, f01=0x0190, f02=»RESS w t P XIF x P* x P IFT MMUPAG=1 x " PDEVECB EQU * x 8 P DATA 0 x L P DATA FD:BUF x P DATA 0,0,0,0 x p P* x P IFT DEVIND=2 x PFD:BUF RES DVBLEN+1 x P XIF x P* x P IFT MMUPAG=1 x P IFT DEVIND=4 x PFD:B
0x316efc…317090 Dummy {f00=0x015d, f01=0x0190, f02=»3,CUADR KST x PFDOTR EQU *-DWFD01 KST y P OTR A3,0,CUADR y 4 PFDHLT EQU *-DWFD01 KST y L P CIO A2,0,CUADR KST y l PFDINR EQU *-DWFD01 KST y P INR A3,0,CUADR KST y P* y P* y 6 P* NEXT DWT INTRODUCED BY KST 80-11-
0x317090…317224 Dummy {f00=0x015d, f01=0x018e, f02=» DATA FDADR ACTIVATION ADDRESS y P DATA 0 TTAB-ADDRESS z & $ P DATA 0 WAIT/ACTIVATE INDICATOR z B P DATA 0 TERMINAL QUEUE z j P* z IFT MMUPAG=1 z & " DATA 0 SAVE AREA USER ECB ADDRESS z P DATA DVECB2 MMU ECB ADDRESS z XIF z P* z
0x317224…3173b8 Dummy {f00=0x015d, f01=0x0190, f02=» P DATA 0 { P DATA 0 { P DATA 0 { $ P DATA 0 { 4 P DATA 0,0,0 { D P DATA 0,0,0 { X P DATA 0,0,0 { l P DATA 0,0,0 { P IFT OPCLOS=1 { P DATA 0 { P DATA 0 { P XIF { P* { P IFT CHAN=1 { P DATA 0 { P DAT
0x3173b8…31754c Dummy {f00=0x015d, f01=0x018e, f02=»ATA 0,0,0,0 { P DATA 0,0,0,0 | P XIF | * P* | 6 P IFT CHAN+TOSS=2 | @ P IFT MMUPAG=1 | X P IFF DSKPAG+SWPBLK=0 | n * P DATA 0 6 BIT PHYSICAL BUFFER ADDRESS | P DATA 0 SECOND MMU ENTRY | P* | * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS
0x31754c…3176e0 Dummy {f00=0x015d, f01=0x4174, f02=» P DATA FDBUF2 } P DATA 0,0,0,0 } P* } . P IFT DEVIND=2 } 8 PFDBUF2 RES DVBLEN+1 } N P XIF } j P* } v P IFT MMUPAG=1 } P IFT DEVIND=4 } PFDBUF2 EQU 0 } P XIF } " P CIO A2,1,CUADR2 CIO-START KST } P SST A3,CUADR2 } P
0x3176e0…317874 (4, 21) Dummy {f00=0x0160, f01=0x2008, f02=» ~ END @
0x317874…317a08 Dummy {f00=0x0160, f01=0x018e, f02=»* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12 ^ P* _ 4 P* _ > PPFEX EQU * _ H P LDKL A1,PFEXA _ Z P RF PFNXT _ p PPFEXA EQU * _ P CM RDMORE,TCABAS _ P SUK A2,/30 LEGAL CHAR ? _ , P RF(L) PFERR ILLEGAL,GO TO ERR.HANDLING _ & P RF(Z) P
0x317a08…317b9c Dummy {f00=0x0160, f01=0x0190, f02=» _ PPF1A EQU * ` P CM RDMORE,TCABAS ` P SUK A2,/30 LEGAL NUM.? ` 4 , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING ` T P SUK A2,/2 LEGAL NUM ? ` , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING ` P ADK A2,/3C PF10-12 POS ` P RB ENT100 ` P `
0x317b9c…317d30 Dummy {f00=0x0160, f01=0x0190, f02=»,TCABAS ` P SUK A2,/31 LEGAL NUM ? a , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING a 0 P SUK A2,/8 LEGAL NUM ? a ` , P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING a ~ P ADK A2,/39 PF1-9 POS a P RB ENT100 a P XIF a PPFERR EQU * a * P CF A14,ER
0x317d30…317ec4 Dummy {f00=0x0160, f01=0x0190, f02=»00 a P DB1 b P* b 6 P************************************************* b $ P* b ^ P* LOGRUT b h * P* SPECIAL RUTINE FOR DANISH PTT b P* b 6 P************************************************* b P* b PLOGRUT EQU *
0x317ec4…318058 Dummy {f00=0x0160, f01=0x0190, f02=»******************************** b t P* c ( P* OFLINE c 2 < P* THE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND c B 8 P* A BRANCH IS MADE BACK TO CREDIT PROGRAM c P* c B P************************************************************* c
0x318058…3181ec Dummy {f00=0x0160, f01=0x0190, f02=» XRK A7,1 c P ST A7,MAIN,TCABAS d 0 P CF A14,DCABOR ABORT REQUEST NOT CURRENT MF d , P XIF d ` P IFT OFLIN=1 d l 6 P LDK A1,0 DV ADDRESS ::= 0MESSAGES TO VDU IGNORED d P LDKL A8,ECBDC MF # 1 d & P CF A14,EMULA TRANSFER PARAMETERS d P IFT D
0x3181ec…318380 Dummy {f00=0x0160, f01=0x0190, f02=» P CF A14,LMF2OF e P CF A14,LSAVOF e ( P CF A14,LIOLON TURN ON OFFLINE LAMP e 0 & P IM OFFFLG,TCABAS SET OFFLINE FLAG e $ P ADKL A14,4 SKIP ONE STACK LEVEL e * P LD A13,2,A14 RELOAD REGISTERS A12-A13 e P LD A12,4,A14 e $ P ADKL A14,4 UPDATE STA
0x318380…318514 (4, 22) Opaque[0x194]
0x318514…3186a8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c60, f03=0x0000}
0x318514…3186a8 IdxSect {
0x318514…3186a8 f00 = 0x0163 // 0x318514 @0x0
0x318514…3186a8 f01 = 0x0004 // 0x318516 @0x2
0x318514…3186a8 gno = [ // 0x318518 @0x4
0x318514…3186a8 [0x00]: C0x0163.0x0.0
0x318514…3186a8 [0x01]: C0x0163.0x1.0
0x318514…3186a8 ]
0x318514…3186a8 }
0x3186a8…31883c Dummy {f00=0x0163, f01=0x0190, f02=» 2 P IDENT SCLASS REL 9.2 80-11-12 870105040920 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWII01 P EXTRN DWIO01 P
0x31883c…3189d0 Dummy {f00=0x0163, f01=0x0190, f02=»* P* P* P* PSCLASS DATA TCLASE-* ( P DATA TC00 D P DATA TC01 b P DATA TC02 P DATA TC03 P DATA TC04 PTCLASE EQU * PTC00 DATA TC00E-*
0x3189d0…318b64 Dummy {f00=0x0163, f01=0x018e, f02=»TC00E EQU * PTC01 DATA TC01E-* P DATA /00E0 > P DATA DWII01 ^ PTC01E EQU * ~ PTC02 DATA TC02E-* P DATA /00E1 P DATA DWIO01 PTC02E EQU
0x318b64…318cf8 Dummy {f00=0x0163, f01=0x0190, f02=» z PTC04 DATA TC04E-* P DATA /0060 * P DATA DW1500 J P DATA /015 j P DATA DWREMU | P DATA /00F8 P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DAT
0x318cf8…318e8c Dummy {f00=0x0163, f01=0x400c, f02=» @ DATA TC04E-* P DATA /0060 * P DATA DW1500 J P DATA /015 j P DATA DWREMU | P DATA /00F8 P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DAT
0x318e8c…319020 Dummy {f00=0x0163, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x319020…3191b4 (4, 23) Dummy {f00=0x0163, f01=0x0190, f02=» , hW , 4 , ' ( sM T-! u) $ LbM ( >2a> T T 4 4 C C ( sM CT uP I h M Pb (hM P _ + C W# ! ( 1 (dM ( ( m> _i C0 1 TF TB_ T5 T1 >2m> & T
0x3191b4…319348 Dummy {f00=0x0163, f01=0x0190, f02=»$ > P ) 4 4 ( > 0 4 h> T >2 4 4 0 $ # X h> PK h> T: $ - M1h> T bM > 1 )W W+4 % " "h> L T M1 bM > 1 M1% bM > 1 4 .
0x319348…3194dc Dummy {f00=0x0163, f01=0x0190, f02=» e 4 x , !5 ' BFODFH0002CSSF DATAS[TDFH3504DISCFEJL TRANSMIT TERMINATE DATATRANSMISSION `BBZ9TTT9ZZZZZ9AAAAAAAAAAAAAAAAAAA9 M M 1 1Q w M ANTAL RECORDS:y Q j A ^ Q CSSN PS=&
0x3194dc…319670 Dummy {f00=0x0163, f01=0x0190, f02=» " ' . 5 > G Q0 b0 d0 f # 7 N e + ` > T: $ - M1h> T bM > 1 )W W+4 % " "h> L T M1 bM > 1 M1% bM > 1 4 .
0x319670…319804 Dummy {f00=0x0163, f01=0x0190, f02=» Z x N R VI , 6 5H I !) q # k# #! ! ! H r r T2 H H A 6 @ A @ @ 4 r 4 % s H A _AH H I W 4 ) | W{# w
0x319804…319998 Dummy {f00=0x0163, f01=0x0190, f02=» W 4 t i e 4 2 ) q W ) r W ) s C 8 # < R : 8 # #r? I 8 ? ! < < ? C 8 % < % %r? 6 W T W T P W ! W ! W )
0x319998…319b2c Dummy {f00=0x0163, f01=0x0190, f02=» L) # LWE ) @ # # 6) ) $ @ ! A _ ! ) # W 4 4 ! ,! ! ! ! ! ! ! 4 0 P W W yH y +*4 + 2 2@ @ 4 Iv H{ I! q H! q 0 0% I HP
0x319b2c…319cc0 Dummy {f00=0x0163, f01=0x0190, f02=» 0' T s r r 4 " I 0& 0( Q P P 4 4 I 0& 0 Q P sP 4 4 0) P Q I 0 4 I 0* Q P 4 @'A TuI ThW 0 0 # 9 T ! u I T _$ | X+W*
0x319cc0…319e54 (4, 24) Opaque[0x194]
0x319e54…319fe8 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x319e54…319fe8 IdxSect {
0x319e54…319fe8 f00 = 0x002c // 0x319e54 @0x0
0x319e54…319fe8 f01 = 0x0002 // 0x319e56 @0x2
0x319e54…319fe8 gno = [ // 0x319e58 @0x4
0x319e54…319fe8 [0x00]: C0x002c.0x0.0
0x319e54…319fe8 ]
0x319e54…319fe8 }
0x319fe8…31a17c Dummy {f00=0x002c, f01=0x0068, f02=» SCR ASM SYSTAB ASM PFTAB " ASM DRFD01 4 ASM SCLASS F ASG /E0,TY10 X
0x31a17c…31a310 Dummy {f00=0x002c, f01=0x2008, f02=» ASM SYSTAB ASM PFTAB " ASM DRFD01 4 ASM SCLASS F ASG /E0,TY10 X
0x31a310…31a4a4 Dummy {f00=0x002c, f01=0x0190, f02=» SCTMMP,SCTLAP,SCTNPE P ENTRY SCTSTB P ENTRY SCTOPT 4 P ENTRY SCTTCT,SCTCDT J P ENTRY SCTBUG f & P ENTRY SCTDMT,SCTDMI,SCTDML,SCTDMC | P ENTRY SCTBLK,SCTDCT & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:QF,PAG:QB,PAG:PA,
0x31a4a4…31a638 Dummy {f00=0x002c, f01=0x0190, f02=»O RESTART r P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK 4 P EXTRN IH1501 X P EXTRN IH1502 x ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P P P P P P * P EXTRN CHRT1 REMOTE
0x31a638…31a7cc Dummy {f00=0x002c, f01=0x0190, f02=»EL UNIT NO. 1 x P EXTRN IHFD FLOPPY DISCEN P EXTRN IHFD2 KST 8 $ P EXTRN ILLINT ILLEGAL INTERRUPT R P EXTRN HALT HALT ROUTINE z P* DEBUGGER PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM IND
0x31a7cc…31a960 Dummy {f00=0x002c, f01=0x0190, f02=» SYSTEM | P* 6 P* DISPLACEMENTS IN SEGTAB, PAGTAB, SWBTAB AND T:A P* T PSEG:ST EQU 0 STATUS ^ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS z " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 Q