|
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 G H I L M N O P Q R S T X Z p ½
Length: 4760736 (0x48a4a0)
Description: Bits:30009678 Philips computer tape "600219"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| DEMO | «none» |
| DEMO//OBJCT.OB | ⟦ad8daa58f⟧ pts_type |
| DEMO/CON11.UF | ⟦4f6deffce⟧ pts_type |
| DEMO/CTAB01.SC | ⟦eca12d85c⟧ pts_type |
| DEMO/DEMO.LM | ⟦27760498f⟧ pts_type |
| DEMO/DEMODD.SC | ⟦b50dae9b5⟧ pts_type |
| DEMO/ENGDEF.LM | ⟦8e70ddc8b⟧ pts_type |
| DEMO/MONGEN.LM | ⟦8c36d8062⟧ pts_type |
| DEMO/OBDIR.UF | ⟦d24842119⟧ pts_type |
| FORMAT | «none» |
| FORMAT//OBJCT.OB | ⟦25db9fa5d⟧ pts_type |
| FORMAT/DEMODD.SC | ⟦b50dae9b5⟧ pts_type |
| FORMAT/ENGDEF.LM | ⟦8e70ddc8b⟧ pts_type |
| FORMAT/ENGDEF.SC | ⟦9e042ba59⟧ pts_type |
| FORMAT/FMTDEF.SC | ⟦9e042ba59⟧ pts_type |
| FORMAT/FMTPIC.SC | ⟦0dc0250b7⟧ pts_type |
| FORMAT/FORMAT.SC | ⟦e7892f070⟧ pts_type |
| FORMAT/FORMDK.LM | ⟦95d943754⟧ pts_type |
| FORMAT/FORMIO.SC | ⟦b32314908⟧ pts_type |
| FORMAT/GERDEF.SC | ⟦df46e1c0b⟧ pts_type |
| FORMAT/LSTFMT.SC | ⟦f75153ed8⟧ pts_type |
| FORMAT/OBDIR.UF | ⟦e159dcd7a⟧ pts_type |
| FORMAT/TEMP.SC | ⟦be822990e⟧ pts_type |
| MONGEN | «none» |
| MONGEN//OBJCT.OB | ⟦35a343428⟧ pts_type |
| MONGEN/ARITMS.SC | ⟦6b8401847⟧ pts_type |
| MONGEN/CTAB01.SC | ⟦eca12d85c⟧ pts_type |
| MONGEN/DCADDR.SC | ⟦4f91c3907⟧ pts_type |
| MONGEN/DCSTAT.SC | ⟦add471f6c⟧ pts_type |
| MONGEN/DFTAB.SC | ⟦b5450b1dc⟧ pts_type |
| MONGEN/DRDI01.SC | ⟦c46c38aa6⟧ pts_type |
| MONGEN/DRDU01.SC | ⟦759ef6ea4⟧ pts_type |
| MONGEN/DRDY02.SC | ⟦91f7c274e⟧ pts_type |
| MONGEN/DRFD01.SC | ⟦215b2789f⟧ pts_type |
| MONGEN/DRGP03.SC | ⟦feaa4f822⟧ pts_type |
| MONGEN/DRGP04.SC | ⟦bb0cb1dd2⟧ pts_type |
| MONGEN/DRKB04.SC | ⟦4e628fcc0⟧ pts_type |
| MONGEN/DRND01.SC | ⟦4ad8c9f57⟧ pts_type |
| MONGEN/DRSU01.SC | ⟦a8d7ff3ed⟧ pts_type |
| MONGEN/DRTP03.SC | ⟦9c3287ef7⟧ pts_type |
| MONGEN/DRTW01.SC | ⟦1a23e597f⟧ pts_type |
| MONGEN/DSKSUB.SC | ⟦adb780fb6⟧ pts_type |
| MONGEN/DTTP03.SC | ⟦95e9029e1⟧ pts_type |
| MONGEN/DVDI00.SC | ⟦d9d04b278⟧ pts_type |
| MONGEN/DVDI02.SC | ⟦6b7dfd59a⟧ pts_type |
| MONGEN/DVDY00.SC | ⟦cb991dc95⟧ pts_type |
| MONGEN/DVDY02.SC | ⟦97620ffec⟧ pts_type |
| MONGEN/DVG200.SC | ⟦95c4be1dc⟧ pts_type |
| MONGEN/DVG301.SC | ⟦0a04d9f71⟧ pts_type |
| MONGEN/DVKB00.SC | ⟦00ea5f898⟧ pts_type |
| MONGEN/DVKB02.SC | ⟦04eeb18ea⟧ pts_type |
| MONGEN/DVT102.SC | ⟦ebb73d9b5⟧ pts_type |
| MONGEN/DVTDI.SC | ⟦5ef172779⟧ pts_type |
| MONGEN/DVTDY.SC | ⟦c73e6c9c4⟧ pts_type |
| MONGEN/DVTG2.SC | ⟦fdce1b646⟧ pts_type |
| MONGEN/DVTG3.SC | ⟦db7be8ca7⟧ pts_type |
| MONGEN/DVTKB.SC | ⟦39a68f43f⟧ pts_type |
| MONGEN/DVTT1.SC | ⟦09d068d88⟧ pts_type |
| MONGEN/EBCDIC.SC | ⟦640ca99ea⟧ pts_type |
| MONGEN/FMCDEF.SC | ⟦4834cd46d⟧ pts_type |
| MONGEN/FMTASK.SC | ⟦cca2cf3c1⟧ pts_type |
| MONGEN/HCP.UF | ⟦3e8b8484b⟧ pts_type |
| MONGEN/LDTASK.SC | ⟦34150bdd5⟧ pts_type |
| MONGEN/LKMAL.SC | ⟦9b6d45c76⟧ pts_type |
| MONGEN/LRPINT.SC | ⟦9504787f4⟧ pts_type |
| MONGEN/MONGEN.LM | ⟦8c36d8062⟧ pts_type |
| MONGEN/MONGEN.UF | ⟦5286c8f36⟧ pts_type |
| MONGEN/MONTAB.SC | ⟦e327c5540⟧ pts_type |
| MONGEN/MONTIM.SC | ⟦ad4b5c90a⟧ pts_type |
| MONGEN/MSUBS.SC | ⟦c83a3a893⟧ pts_type |
| MONGEN/PFTAB.SC | ⟦1c1582725⟧ pts_type |
| MONGEN/SCLASS.SC | ⟦d2afeb0ba⟧ pts_type |
| MONGEN/SDMBUF.SC | ⟦18b4efce0⟧ pts_type |
| MONGEN/SDMOCR.SC | ⟦c56c25535⟧ pts_type |
| MONGEN/SDMSUB.SC | ⟦7ee260c7a⟧ pts_type |
| MONGEN/SDMTSK.SC | ⟦916894934⟧ pts_type |
| MONGEN/ST8000.SC | ⟦6718eb81d⟧ pts_type |
| MONGEN/SYSINI.SC | ⟦2e938b596⟧ pts_type |
| MONGEN/SYSLCR.SC | ⟦5744a2e8f⟧ pts_type |
| MONGEN/SYSLDM.SC | ⟦c4bc44428⟧ pts_type |
| MONGEN/SYSLOD.SC | ⟦2b7a1d0bf⟧ pts_type |
| MONGEN/SYSTAB.SC | ⟦5b7ed93df⟧ pts_type |
| MONGEN/TABORT.SC | ⟦8e6a01f10⟧ pts_type |
| MONGEN/TCLASS.SC | ⟦24b002bbe⟧ pts_type |
| MONGEN/TDISP.SC | ⟦2a6358067⟧ pts_type |
| MONGEN/TIMER.SC | ⟦65177cf41⟧ pts_type |
| MONGEN/TIODM.SC | ⟦810646d05⟧ pts_type |
| MONGEN/TIOFM.SC | ⟦b0afa3a87⟧ pts_type |
| MONGEN/TIOSDM.SC | ⟦6bfc83276⟧ pts_type |
| MONGEN/TLDSEG.SC | ⟦009a2dede⟧ pts_type |
| MONGEN/TMMLKM.SC | ⟦ca2f5a8bb⟧ pts_type |
| MONGEN/TMOVE.SC | ⟦635fb603a⟧ pts_type |
| MONGEN/TOSSIO.SC | ⟦fd7e538ae⟧ pts_type |
| MONGEN/TPROC.SC | ⟦93f0f3473⟧ pts_type |
| MONGEN/TTMJOB.SC | ⟦d99f95a49⟧ pts_type |
| PTSDEMO | «none» |
| PTSDEMO//OBJCT.OB | ⟦d11f63d30⟧ pts_type |
| PTSDEMO/A:DEMO.LM | ⟦6c21ae619⟧ pts_type |
| PTSDEMO/AADEMO.SC | ⟦5d167f01b⟧ pts_type |
| PTSDEMO/BASPCT.SC | ⟦6068f39ad⟧ pts_type |
| PTSDEMO/BCSTTO.SC | ⟦d71af9946⟧ pts_type |
| PTSDEMO/BESELF.SC | ⟦505d92920⟧ pts_type |
| PTSDEMO/BOOK.UF | ⟦a3b704296⟧ pts_type |
| PTSDEMO/CASTTS.SC | ⟦278e0be35⟧ pts_type |
| PTSDEMO/CDCHKY.SC | ⟦d911e98fb⟧ pts_type |
| PTSDEMO/CEGACT.SC | ⟦6180ba670⟧ pts_type |
| PTSDEMO/CF11.UF | ⟦bf77d6f4f⟧ pts_type |
| PTSDEMO/CFCHKH.SC | ⟦3afa8baca⟧ pts_type |
| PTSDEMO/CGCSYS.SC | ⟦dbfeb82e5⟧ pts_type |
| PTSDEMO/CON11.UF | ⟦4f6deffce⟧ pts_type |
| PTSDEMO/CONDK.UF | ⟦785379d2d⟧ pts_type |
| PTSDEMO/CONOLE.UF | ⟦e9eb20843⟧ pts_type |
| PTSDEMO/CTAB01.SC | ⟦eca12d85c⟧ pts_type |
| PTSDEMO/CTAB02.SC | ⟦fbf5c6abc⟧ pts_type |
| PTSDEMO/CTAB03.SC | ⟦67b21e581⟧ pts_type |
| PTSDEMO/CTAB04.SC | ⟦0aec78180⟧ pts_type |
| PTSDEMO/CTAB05.SC | ⟦91db9b9fe⟧ pts_type |
| PTSDEMO/DAUCCY.SC | ⟦29f4ed10b⟧ pts_type |
| PTSDEMO/DBUOPR.SC | ⟦9861496a8⟧ pts_type |
| PTSDEMO/DCVDU.SC | ⟦3e1bfc09f⟧ pts_type |
| PTSDEMO/DDTP71.SC | ⟦83932b2b2⟧ pts_type |
| PTSDEMO/DEFDOC.SC | ⟦18718055b⟧ pts_type |
| PTSDEMO/DELACT.SC | ⟦43fb597bc⟧ pts_type |
| PTSDEMO/DEMMON.LM | ⟦e211b0615⟧ pts_type |
| PTSDEMO/DEMO.LM | ⟦27760498f⟧ pts_type |
| PTSDEMO/DEMO3.LM | ⟦116515520⟧ pts_type |
| PTSDEMO/DEMODD.SC | ⟦b50dae9b5⟧ pts_type |
| PTSDEMO/DEMSCR.SC | ⟦f301ab0f8⟧ pts_type |
| PTSDEMO/DFOACT.SC | ⟦4cd8afe7e⟧ pts_type |
| PTSDEMO/DGCACT.SC | ⟦5f0af97e5⟧ pts_type |
| PTSDEMO/DHBACT.SC | ⟦69e1f6bb1⟧ pts_type |
| PTSDEMO/DIQACT.SC | ⟦59293064f⟧ pts_type |
| PTSDEMO/DJUACT.SC | ⟦2195a20f2⟧ pts_type |
| PTSDEMO/DKDSTM.SC | ⟦8532f7d0e⟧ pts_type |
| PTSDEMO/DLDEP.SC | ⟦bf5bc434a⟧ pts_type |
| PTSDEMO/DMWDR.SC | ⟦1e44771d2⟧ pts_type |
| PTSDEMO/DNTRF.SC | ⟦c3a07b775⟧ pts_type |
| PTSDEMO/DOQCCY.SC | ⟦1c2b0c18b⟧ pts_type |
| PTSDEMO/DPECCY.SC | ⟦9f584d57e⟧ pts_type |
| PTSDEMO/DQCOPR.SC | ⟦248240f35⟧ pts_type |
| PTSDEMO/EINIT.SC | ⟦919ed0d4a⟧ pts_type |
| PTSDEMO/FILES.SC | ⟦cde056d3e⟧ pts_type |
| PTSDEMO/FMTPIC.SC | ⟦0dc0250b7⟧ pts_type |
| PTSDEMO/GETLRN.SC | ⟦51511afac⟧ pts_type |
| PTSDEMO/IOTND.SC | ⟦d4507cb36⟧ pts_type |
| PTSDEMO/LINDEM.UF | ⟦6692d967f⟧ pts_type |
| PTSDEMO/LINPRO.UF | ⟦05a9b615d⟧ pts_type |
| PTSDEMO/MMU.UF | ⟦27b79cfb1⟧ pts_type |
| PTSDEMO/MMUPRD.UF | ⟦ad96a80d5⟧ pts_type |
| PTSDEMO/NDERR.SC | ⟦254b882e8⟧ pts_type |
| PTSDEMO/OBDIR.UF | ⟦805cc2deb⟧ pts_type |
| PTSDEMO/PBBOOK.SC | ⟦e307c097d⟧ pts_type |
| PTSDEMO/PRINT.SC | ⟦0f8bd53e8⟧ pts_type |
| PTSDEMO/QEMOVE.SC | ⟦b0da655e2⟧ pts_type |
| PTSDEMO/QIRDBS.SC | ⟦11634d90f⟧ pts_type |
| PTSDEMO/QMISC.SC | ⟦1003b7938⟧ pts_type |
| PTSDEMO/RESTAR.UF | ⟦ceca48a57⟧ pts_type |
| PTSDEMO/SPACHQ.SC | ⟦a9136c0c5⟧ pts_type |
| PTSDEMO/TNDCAB.SC | ⟦fe02e51ed⟧ pts_type |
| PTSDEMO/TNDOPN.SC | ⟦53722803f⟧ pts_type |
| PTSDEMO/TNDPAY.SC | ⟦d53fda716⟧ pts_type |
| PTSDEMO/TNDREM.SC | ⟦f1fa6131e⟧ pts_type |
| PTSDEMO/TRANSL.UF | ⟦bcbad7ee7⟧ pts_type |
| PTSDEMO/TRNLKO.UF | ⟦866651fc1⟧ pts_type |
| PTSDEMO/XBFMT.SC | ⟦7c1592f24⟧ pts_type |
| PTSDEMO/XMESG.SC | ⟦889402240⟧ pts_type |
| PTSDEMO/XOPINP.SC | ⟦1af6878a6⟧ pts_type |
| PTSDEMO/ZDSCIO.SC | ⟦9f5dfb988⟧ pts_type |
| PTSDEMO/ZFMTIO.SC | ⟦daa41c94d⟧ pts_type |
| PTSDEMO/ZMRDF.SC | ⟦dae59b544⟧ 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=»PTSDEM«, typ=»O «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x26a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0180, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»XOPINP«, typ=»SC«, f00=0x0002, f01=0xa020, f02=0x0268, f03=0x0808}
0x000ca0…001940 DirEnt {nam=»XMESG «, typ=»SC«, f00=0x0000, f01=0x0010, f02=0x02a8, f03=0x0808}
0x000ca0…001940 DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0x0000, f01=0x5438, f02=0x02d0, f03=0x05b8}
0x000ca0…001940 DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x8157, f02=0x0300, f03=0x8156}
0x000ca0…001940 DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0x8156, f01=0x05b8, f02=0x0318, f03=0x9920}
0x000ca0…001940 DirEnt {nam=»QMISC «, typ=»SC«, f00=0x05ba, f01=0x8157, f02=0x0338, f03=0xbd56}
0x000ca0…001940 DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0xb957, f01=0x05b8, f02=0x0378, f03=0x8156}
0x000ca0…001940 DirEnt {nam=»DFOACT«, typ=»SC«, f00=0x0610, f01=0xf6d3, f02=0x03c8, f03=0x0703}
0x000ca0…001940 DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0x5212, f01=0x0703, f02=0x03e0, f03=0x00f0}
0x000ca0…001940 DirEnt {nam=»AADEMO«, typ=»SC«, f00=0x8186, f01=0x5012, f02=0x0400, f03=0xe346}
0x000ca0…001940 DirEnt {nam=»EINIT «, typ=»SC«, f00=0xe747, f01=0x0002, f02=0x0410, f03=0x0300}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0612, f01=0xbc56, f02=0x0430, f03=0xf03a}
0x000ca0…001940 DirEnt {nam=»BESELF«, typ=»SC«, f00=0x7f00, f01=0xe920, f02=0x0448, f03=0x8820}
0x000ca0…001940 DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x8208, f01=0x5206, f02=0x0480, f03=0x00ff}
0x000ca0…001940 DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x5420, f02=0x04b0, f03=0x000a}
0x000ca0…001940 DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x000c, f01=0xe8c8, f02=0x04d0, f03=0x540c}
0x000ca0…001940 DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x8820, f01=0x8024, f02=0x04f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x81fc, f01=0x0032, f02=0x0510, f03=0x0703}
0x000ca0…001940 DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x8820, f01=0x803a, f02=0x0558, f03=0x0058}
0x000ca0…001940 DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0032, f01=0x8347, f02=0x0578, f03=0x80cc}
0x000ca0…001940 DirEnt {nam=»DMWDR «, typ=»SC«, f00=0xffee, f01=0xa047, f02=0x0588, f03=0x81d7}
0x000ca0…001940 DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x8347, f01=0x0002, f02=0x05a8, f03=0x002c}
0x000ca0…001940 DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0700, f01=0x8410, f02=0x05b0, f03=0x8128}
0x000ca0…001940 DirEnt {nam=»DELACT«, typ=»SC«, f00=0x9320, f01=0x4000, f02=0x05e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x874c, f01=0x0004, f02=0x0608, f03=0x8a20}
0x000ca0…001940 DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x821c, f01=0xf6d3, f02=0x0618, f03=0x8708}
0x000ca0…001940 DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x3d43, f01=0x5220, f02=0x0630, f03=0x520e}
0x000ca0…001940 DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x8720, f01=0x816c, f02=0x0640, f03=0x8720}
0x000ca0…001940 DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x8178, f01=0x5734, f02=0x0658, f03=0x8184}
0x000ca0…001940 DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x818a, f01=0x5724, f02=0x0660, f03=0x0010}
0x000ca0…001940 DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0005, f01=0x0027, f02=0x06a0, f03=0x0005}
0x000ca0…001940 DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0001, f01=0x0001, f02=0x06e8, f03=0x004a}
0x000ca0…001940 DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x8547, f01=0x000e, f02=0x06f0, f03=0x0002}
0x000ca0…001940 DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x8547, f01=0x0012, f02=0x0728, f03=0x0004}
0x000ca0…001940 DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0508, f01=0x8547, f02=0x0738, f03=0xa047}
0x000ca0…001940 DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x8024, f01=0x0507, f02=0x0740, f03=0xfff2}
0x000ca0…001940 DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x9096, f01=0xe74c, f02=0x0768, f03=0x8723}
0x000ca0…001940 DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0002, f01=0x8720, f02=0x0778, f03=0x8743}
0x000ca0…001940 DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x81fe, f01=0x8f52, f02=0x0788, f03=0x573a}
0x000ca0…001940 DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0002, f01=0x8542, f02=0x07b8, f03=0x5700}
0x000ca0…001940 DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0001, f01=0x8723, f02=0x07d8, f03=0x0034}
0x000ca0…001940 DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x019a, f01=0x8743, f02=0x07f0, f03=0x8543}
0x000ca0…001940 DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0006, f01=0x5708, f02=0x0810, f03=0x5f02}
0x000ca0…001940 DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x8128, f01=0x0100, f02=0x0830, f03=0x0002}
0x000ca0…001940 DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x00ff, f01=0x521e, f02=0x0858, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB04«, typ=»SC«, f00=0x0002, f01=0xed48, f02=0x0868, f03=0x540a}
0x000ca0…001940 DirEnt {nam=»MMU «, typ=»UF«, f00=0x5010, f01=0x1101, f02=0x0878, f03=0x853c}
0x000ca0…001940 DirEnt {nam=»CTAB05«, typ=»SC«, f00=0x8128, f01=0x855c, f02=0x0880, f03=0x8547}
0x000ca0…001940 DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x000a, f01=0x855c, f02=0x0890, f03=0x8547}
0x000ca0…001940 DirEnt {nam=»CON11 «, typ=»UF«, f00=0x8547, f01=0x000e, f02=0x0898, f03=0xe55c}
0x000ca0…001940 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0008, f01=0x8547, f02=0x08a0, f03=0x855c}
0x000ca0…001940 DirEnt {nam=»FILES «, typ=»SC«, f00=0x000c, f01=0x8547, f02=0x08b0, f03=0x855c}
0x000ca0…001940 DirEnt {nam=»LINPRO«, typ=»UF«, f00=0x001a, f01=0xe147, f02=0x08f0, f03=0x8f20}
0x000ca0…001940 DirEnt {nam=»GETLRN«, typ=»SC«, f00=0x00ff, f01=0x5106, f02=0x08f8, f03=0xf6d3}
0x000ca0…001940 DirEnt {nam=»BOOK «, typ=»UF«, f00=0x0002, f01=0x1f01, f02=0x0920, f03=0x0002}
0x000ca0…001940 DirEnt {nam=»TNDREM«, typ=»SC«, f00=0x0006, f01=0x501c, f02=0x0928, f03=0x0006}
0x000ca0…001940 DirEnt {nam=»IOTND «, typ=»SC«, f00=0x8722, f01=0x500c, f02=0x0930, f03=0x5004}
0x000ca0…001940 DirEnt {nam=»TNDPAY«, typ=»SC«, f00=0x8740, f01=0x0082, f02=0x0988, f03=0x0032}
0x000ca0…001940 DirEnt {nam=»TNDOPN«, typ=»SC«, f00=0x8702, f01=0x5f0c, f02=0x09a0, f03=0x80a7}
0x000ca0…001940 DirEnt {nam=»NDERR «, typ=»SC«, f00=0x8741, f01=0x837c, f02=0x09b8, f03=0x0082}
0x000ca0…001940 DirEnt {nam=»TNDCAB«, typ=»SC«, f00=0x500a, f01=0x8f40, f02=0x09c8, f03=0x875c}
0x000ca0…001940 DirEnt {nam=»RESTAR«, typ=»UF«, f00=0x5208, f01=0xa720, f02=0x09d8, f03=0x909c}
0x000ca0…001940 DirEnt {nam=»MMUPRD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEMO3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONDK «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEMMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x14c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONOLE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1508, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CF11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cc0, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x007e // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 [0x02]: C0x0001.0x1.0
0x001ad4…001c68 [0x03]: C0x0001.0x2.0
0x001ad4…001c68 [0x04]: C0x0001.0x3.0
0x001ad4…001c68 [0x05]: C0x0002.0x0.0
0x001ad4…001c68 [0x06]: C0x0002.0x1.0
0x001ad4…001c68 [0x07]: C0x0002.0x2.0
0x001ad4…001c68 [0x08]: C0x0002.0x3.0
0x001ad4…001c68 [0x09]: C0x0003.0x0.0
0x001ad4…001c68 [0x0a]: C0x0003.0x1.0
0x001ad4…001c68 [0x0b]: C0x0003.0x2.0
0x001ad4…001c68 [0x0c]: C0x0003.0x3.0
0x001ad4…001c68 [0x0d]: C0x0004.0x0.0
0x001ad4…001c68 [0x0e]: C0x0004.0x1.0
0x001ad4…001c68 [0x0f]: C0x0004.0x2.0
0x001ad4…001c68 [0x10]: C0x0004.0x3.0
0x001ad4…001c68 [0x11]: C0x0005.0x0.0
0x001ad4…001c68 [0x12]: C0x0005.0x1.0
0x001ad4…001c68 [0x13]: C0x0005.0x2.0
0x001ad4…001c68 [0x14]: C0x0005.0x3.0
0x001ad4…001c68 [0x15]: C0x0006.0x0.0
0x001ad4…001c68 [0x16]: C0x0006.0x1.0
0x001ad4…001c68 [0x17]: C0x0006.0x2.0
0x001ad4…001c68 [0x18]: C0x0006.0x3.0
0x001ad4…001c68 [0x19]: C0x0007.0x0.0
0x001ad4…001c68 [0x1a]: C0x0007.0x1.0
0x001ad4…001c68 [0x1b]: C0x0007.0x2.0
0x001ad4…001c68 [0x1c]: C0x0007.0x3.0
0x001ad4…001c68 [0x1d]: C0x0008.0x0.0
0x001ad4…001c68 [0x1e]: C0x0008.0x1.0
0x001ad4…001c68 [0x1f]: C0x0008.0x2.0
0x001ad4…001c68 [0x20]: C0x0008.0x3.0
0x001ad4…001c68 [0x21]: C0x0009.0x0.0
0x001ad4…001c68 [0x22]: C0x0009.0x1.0
0x001ad4…001c68 [0x23]: C0x0009.0x2.0
0x001ad4…001c68 [0x24]: C0x0009.0x3.0
0x001ad4…001c68 [0x25]: C0x000a.0x0.0
0x001ad4…001c68 [0x26]: C0x000a.0x1.0
0x001ad4…001c68 [0x27]: C0x00ac.0x2.0
0x001ad4…001c68 [0x28]: C0x00ac.0x3.0
0x001ad4…001c68 [0x29]: C0x00ad.0x0.0
0x001ad4…001c68 [0x2a]: C0x00ad.0x1.0
0x001ad4…001c68 [0x2b]: C0x00ad.0x2.0
0x001ad4…001c68 [0x2c]: C0x00ad.0x3.0
0x001ad4…001c68 [0x2d]: C0x00d5.0x0.0
0x001ad4…001c68 [0x2e]: C0x00d5.0x1.0
0x001ad4…001c68 [0x2f]: C0x00d5.0x2.0
0x001ad4…001c68 [0x30]: C0x00d6.0x3.0
0x001ad4…001c68 [0x31]: C0x00d7.0x0.0
0x001ad4…001c68 [0x32]: C0x00d7.0x1.0
0x001ad4…001c68 [0x33]: C0x00d7.0x2.0
0x001ad4…001c68 [0x34]: C0x00d7.0x3.0
0x001ad4…001c68 [0x35]: C0x00d8.0x0.0
0x001ad4…001c68 [0x36]: C0x0131.0x1.0
0x001ad4…001c68 [0x37]: C0x0131.0x2.0
0x001ad4…001c68 [0x38]: C0x0131.0x3.0
0x001ad4…001c68 [0x39]: C0x0132.0x0.0
0x001ad4…001c68 [0x3a]: C0x0132.0x1.0
0x001ad4…001c68 [0x3b]: C0x0132.0x2.0
0x001ad4…001c68 [0x3c]: C0x0132.0x3.0
0x001ad4…001c68 [0x3d]: C0x0133.0x0.0
0x001ad4…001c68 [0x3e]: C0x0133.0x1.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» : H IDENT AADEMO TRA 11.0 - - F1 O1111 MAIN MODULE AAMAIN B $$$TRAD T AAMAIN f > : BASPCTD BCSTTOA BESELF CGCSYSF QCGUWB QDFUWBO T:EDWR z T:EXIT XAKBIN ZGREA
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=» - 40 = & J F " D 1X F RLI5 J1 W @2 R1X F RLW "L !"L9 A " A R 0 #)6L I5 H1 RW 6 A D0 F G L0 F R U0 F Z ^
0x001f90…002124 Dummy {f00=0x0000, f01=0x40ba, f02=» x & :2 ( $ 1 4 $ 2 F & *2 V ( f . ) ' @ R)6L RW "L?J1B R!"L _J R_N1X F0X r c @ L0 F R U0 F Z ^
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=» F H IDENT BASPCT TRA 11.0 - - F1 O1111 TERMINAL SPECIFICATION BASPCT SPAP15 SPAP31 N $$$TRAS p $ BASPCT SPAP15S SPAP31 D @ CASTTSS CBSTTSA T:DISP T:ERASF TNDOPN XBFMT ZAOPNDC ZBCLSDO ZKOPNF ZLCLSF1
0x0022b8…00244c Dummy {f00=0x0000, f01=0x0190, f02=» %0 *0 -0 , 00 > 3 P 8 ` = p J F " D H5% "L ML 7L 8L :L ;L RI2y RI2t 1% eLW2 7L ML!"L RI2u RI2X RI2 F0 H I U
0x00244c…0025e0 Dummy {f00=0x0000, f01=0x0190, f02=» 0 J F " D @S 1% eL RLI2G Me 7e!7L 7L L 2 32 3 I58 RLI2% 6L);L A6)>L A9)? ` 0 % p 0 % 0 % D 0 D
0x0025e0…002774 (1, 2) Dummy {f00=0x0001, f01=0x4150, f02=» 6LW 6L4 !eL !eL !eL !eL d 0 " 0 $ 4 F X 0 j | 0 @ < : !eL !eL L
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=» L H IDENT BCSTTO TRA 11.0 - - F1 O1111 START OPERATOR . * BCSTTO CCSTTT SPAP07 SPAP08 SPAP09 T $$$TRAS 8 4 BCSTTO CCSTTTS SPAP07A SPAP080 SPAP09 > : PAJRN T:DISPT T:GETT XAKBIN XBFMT XCLAMPA XEERR
0x002908…002a9c Dummy {f00=0x0001, f01=0x018e, f02=» ! % & & 6 ) H * X / j 3 z > ? E J F " D 1%!6L RI2 A` RL fL RL 1 I2kH4 R RL RLJ1 R R @4_)H5 RL C
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=» u * J F " D @W RLI2@ 6L L =e 2 R I2- L +L + l# RL ` `L l#` ` < 0 0 I 0 I
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=» ! L ! L %7L 0X W ^ . @ R d 0 v 0 0 J F " D CLW CLW CL LW L4 I5 I1 (j W
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x4048, f02=» & " L RLI2 6L L4 e CL L4 2@ D @ R d 0 v 0 0 J F " D CLW CLW CL LW L4 I5 I1 (j W
0x002f58…0030ec Dummy {f00=0x0001, f01=0x0190, f02=» > H IDENT BESELF TRA 11.0 - - F1 O1111 SELECT FUNCTION BESELF F $$$TRAS X BESELF j D @ CDCHKYS CEGACTA CFCHKH DAUCCYF DCVDU DDTP71C DELACTI DFOACT ~ @ < DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF D
0x0030ec…003280 Dummy {f00=0x0001, f01=0x018e, f02=» : 4 . > 2 P ` ) r - 1 4 6 5 ; ? J F " D R R@W@2@Q SL@R@S@T@
0x003280…003414 (1, 3) Dummy {f00=0x0001, f01=0x018e, f02=» J F " D @ AL6A _3 SA_8AQ_<AR_@AS_DAT_HAU_Lb_ @L #@L AV RI2 RI2 ! R d v ( 0 8 0 0 & J F " D RL7!
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» " & $ 8 6371 H l | J F " D f!SL )RL RWZ)RL RWR!RL )RL RWF6R $(,0!_L RW0 RW, RW(
0x0035a8…00373c Dummy {f00=0x0001, f01=0x40d8, f02=» , , - 00 40 0 = . B J F " D RW$ RW RW RW RW RW RW RW RW RW !RL RL!"L ) L IB HU 0X R A @?R4 A D @ 0 RW, RW(
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=» < H IDENT CASTTS TRA 11.0 - - F1 O1111 SYSTEM START CASTTS CBSTTS SPAP32 D $$$TRAS f $ CASTTS CBSTTSS $ SPAP32 x @ < DAUCCYS DBUOPRA EHISYS FMOVE QIRDBS1 T:SETTE XBFMT XEERR 2 . ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRI
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x018e, f02=» !0 2 ( D & T ( $ &" FORMAT FILE VOLUME NAME ? DSC b & M & ( E & & SYSTEM LANGUAGE ?E & ! @
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=» &0 + 6 & 8 6 ? F J F " D "L L0R^F RLI2 0R^F RLI2 1%W "L4 L R I2`I R R I2T R V D L0 P0 R X0 ]
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=» RLI20 R I2) L Z b Z 0X RI2 RI n 0 , > N ^ p 0 0 0 0 y 0 0
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x4098, f02=» 0 0 0 2 $ 6 H $ JL #JL KL%KL %KL L CL4 Z @ 0 0 0 0 y 0 0
0x003f20…0040b4 (1, 4) Dummy {f00=0x0001, f01=0x0190, f02=» L H IDENT CDCHKY TRA 11.0 - - F1 O1111 CHECK FUNCTIONKEY-COMBINATION CDCHKY T $$$TRAC f CDCHKY x XEERR 0 C 0 +0 60 J F
0x0040b4…004248 Dummy {f00=0x0001, f01=0x418c, f02=» v0 0 J F " D @ IU IT HV ) R L IR W ) R L HR IUwITtHVq) R L IShW ) R L IT]W ) R 0 n 0 0 0 J F " D L HT IROIQLHVI) R L HT HQ=) R L HV4 DL) RDL IU(W*) RDL HU
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=» : H IDENT CEGACT TRA 11.0 - - F1 O1111 GET ACCOUNT CEGACT B $$$TRAG T CEGACT f B > DKDSTMG PBBOOKA QENTRS QGATYPF SPAP10 SPAP11C XBFMT XEERR z XFERR1 XGBCR ZCRDD ZGREA
0x0043dc…004570 Dummy {f00=0x0001, f01=0x018e, f02=» = J F " D @B)RL IT IU ?RIU HT RLH2 ?RH6 G RI6 (A RL _ HQ ?R RLH2 ?RHB E j I0 | M0 Q0 U0 X Z b f
0x004570…004704 Dummy {f00=0x0001, f01=0x0190, f02=» 0 L 0 L 0 L 0 0 L D 0 X 0 l J F " D I2 AB@U_S?R%aL %aL %aL %aL %aL %aL W )RL (a= AW?R a R W a
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=» J F " D R I2 H _q a a Ra% L(H1 !RL!! L !RL !:L !:L I IR RW RI2 0 j | "0 & *0
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=» H K!RL !R T D L $ T0 4 X0 F a X e h j x t u ! z { 8 J F " D @L !RL W) J RJ( J !:
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x410c, f02=» " 4 D " V f v J E " C RL W1 RL W+ RL W% RL W RL W RL W H6 HT G G ?R RL I2 R?R4 R @
0x004bc0…004d54 (1, 5) Dummy {f00=0x0001, f01=0x0190, f02=» H H IDENT CFCHKH TRA 11.0 - - F1 O1111 CHECK AVAILABLE HARDWARE CFCHKH P $$$TRAC b CFCHKH t XEERR 6371 6344 6346 0 3 0 3
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»L !_L !_L !_L W !:L ):L W %7L~)RL %7Lv)RL !8LnHU W ):LeHT !;L^ F0 F J X Q0 j U | Y ]0 a0 k r v }
0x004ee8…00507c Dummy {f00=0x0001, f01=0x409c, f02=» 2 ! B . * ( RL !SL IV I5 H1 W RL W RL W RL 4 T @ ]0 a0 k r v }
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=» < H IDENT CGCSYS TRA 11.0 - - F1 O1111 CLOSE SYSTEM CGCSYS D $$$TRAC V CGCSYS h @ < MASKR PAJRN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA | > : XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG
0x005210…0053a4 Dummy {f00=0x0001, f01=0x018e, f02=» # 2 &0 , * > + N .0 ` 5 r >0 E J F " D 0L 0L0X 0R JP R!0L RL ?R R#0L ?R "LAj RL L A R I2 L C G0
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=» b0 d g * i < q L v H x n ~ ~ J F " D @ R JL KL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL 0
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=» a b c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x0056cc…005860 Dummy {f00=0x0001, f01=0x400c, f02=» @ c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x005860…0059f4 (1, 6) Dummy {f00=0x0002, f01=0x018e, f02=» > H IDENT DAUCCY TRA 11.0 - - F1 O1111 CURRENCY UPDATE > : DAUCCY EPPCCY SPAP21 SPAP23 SPAP24 SPAP25 SPAP28 F SPAP29U $$$TRA B > DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPAP25 SPAP28 ( SPAP29S J
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x018e, f02=» 0 $ & % 6 ' H ( X 1 j 60 z : = J F " D )"L SL pS pL p Rp I21I R!"L Af RL RLI2 #Ss Rp )"L SL SL8W B M
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=» q z { * 0 < J F " D @ R +L +@f4 kr RL ct du RL cv dw RL l#S y RL l# x RL4 %y N 0 L 0
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x0190, f02=» J F " D L #yL LW L CL4 !uL $tu L CLW%#uL #wL xLW>#xL xL%7L 0X V f 0 x 0 0 0 0 0
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=»L4 L 0 0 0 . @ R 0 d v % *0 . 1 60 90
0x006044…0061d8 Dummy {f00=0x0002, f01=0x40d2, f02=» P S X0 , [0 > ^ P c ` i p 6 2 0 @0X L4 #vL CL LW wL%7L 0X 0X L4 i l @ 1 60 90
0x0061d8…00636c Dummy {f00=0x0002, f01=0x0190, f02=» > H IDENT DBUOPR TRA 11.0 - - F1 O1111 UPDATE OPERATOR DBUOPR SPAP06 F $$$TRAU ` DBUOPR SPAP06 r B > EAIOPRU EBZACCA MASK QEMOVE T:IREA1 T:XREAT T:XSTAT XBFMT 0 , XEERR ZCRDD ZDRWRD ZGREA ZHWRID ZYRLNG
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» + 0 2 & 8 6 9 F > X J F " D )"Lh L A R I2 L R R DL0X D P 0X DL0R DT5 RL W^0R h J0 N0 R0 T [
0x006500…006694 (1, 7) Dummy {f00=0x0002, f01=0x0190, f02=» J F " D @ e e eL/#eL L R I2A0X _E R I21_O eL RLI2&!eL" eL RLI 0 e X j z 0 0 0 0 0
0x006694…006828 Dummy {f00=0x0002, f01=0x40aa, f02=» 0 e 0 B T * & $ !8L CLW RW CL LW LW A 4 f @ 0 0 0 0
0x006828…0069bc Dummy {f00=0x0002, f01=0x40e4, f02=» L H IDENT DCVDU TRA 11.0 - - F1 O1111 DEMONSTRATE VIDEO DCVDU T $$$TRAV d DCVDU v XBFMT RL4 @ L P B S06999 PS06990
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» H H IDENT DDTP71 TRA 11.0 - - F1 O1111 DEMONSTRATE 6371-PRINTER DDTP71 P $$$TRAT b DDTP71 t D @ FMOVE PVATTPT PWDETP T:DSC0 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x018e, f02=» & f ( . A " 0 4 5 A D 7 V 8 f 90 x :0 < = >0 ?0 J F " D R R RL R I2 DL VL0X VD0
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x0190, f02=» J K0 L0 , N > O N P0 ` Q0 r S T U0 V0 X 4 Y0 & B ^
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» o 4 p0 0 r & t 6 w D,A,L,CH F y " ^ z n } GB,NL,B " J F " D @ RLLL iL RLLL RLLL RLLL RL DL RD RL RL0R^F RL RL0R^F kL RL kL R
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=» " S,SF " 0 @ DK,N R " f v P " US " YU
0x0071a0…007334 (1, 8) Dummy {f00=0x0002, f01=0x0190, f02=» J F " D L kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL DL RD R A ` r 0 D 0 D 0 E 0 E
0x007334…0074c8 Dummy {f00=0x0002, f01=0x0190, f02=» P 0 P , 0 S > 0 S P b r 4 J F " D L DL RD RLLL RLLL RLLL iL RLLL RLLL0X R 4 E D E0X D R D 6 *
0x0074c8…00765c Dummy {f00=0x0002, f01=0x018c, f02=» z & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x4008, f02=»@ & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x0077f0…007984 Dummy {f00=0x0002, f01=0x0190, f02=» L H IDENT DELACT TRA 11.0 - - F1 O1111 LIST ACCOUNTS DELACT T $$$TRAL f DELACT x D @ PAJRN QAFNKYT QEMOVE QGATYP T:EDWR1 T:IREA T:TESTS T:WAIT $ XAKBIN XHERAS ZMRDF ZYRLNG
0x007984…007b18 Dummy {f00=0x0002, f01=0x018e, f02=» 7 ! * & : + J < Z = j J F " D Am R L RLA RL aL eL DL RD 0X ^0X T*0X T RA A o A c(A RL A | M N S d0
0x007b18…007cac Dummy {f00=0x0002, f01=0x0190, f02=» $ 0 A 4 F V 0 A f x & 999999 " a & 9999 " & &
0x007cac…007e40 Dummy {f00=0x0002, f01=0x407a, f02=» 9 " ( " 2 . , 0X D T R 0R # L 1X F_z +L +W A2@m4 . d@ v x & 999999 " a & 9999 " & &
0x007e40…007fd4 (1, 9) Dummy {f00=0x0002, f01=0x0190, f02=» < H IDENT DFOACT TRA 11.0 - - F1 O1111 OPEN ACCOUNT DFOACT SPAP13 D $$$TRAO ^ DFOACT SPAP13 X p , ( PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 0 X 0 0 0
0x007fd4…008168 Dummy {f00=0x0002, f01=0x018e, f02=» : J F " D IQ (L#(LF a(W )L#)L: a)Aa RL L RL RLI2*IU HQ LIU HT R a D0 b L t Q R0 ) Z0 L ^0 L f t w |
0x008168…0082fc Dummy {f00=0x0002, f01=0x400c, f02=» @ J F " D IQ (L#(LF a(W )L#)L: a)Aa RL L RL RLI2*IU HQ LIU HT R a D0 b L t Q R0 ) Z0 L ^0 L f t w |
0x0082fc…008490 Dummy {f00=0x0002, f01=0x018e, f02=» < H IDENT DGCACT TRA 11.0 - - F1 O1111 CLOSE ACCOUNT DGCACT D $$$TRAC V DGCACT h 0 , DKDSTMC PAJRN PBBOOK XBFMT ZCRDD ZDRWRDC | 0
0x008490…008624 Dummy {f00=0x0002, f01=0x40c8, f02=» :0 ( = J F " D Ab RL L RL RLI2< +L + @b LH ( L R I2 ! L !:L #:L R & H t L @ I2 I RW R4 O L O @ 0
0x008624…0087b8 Dummy {f00=0x0002, f01=0x0190, f02=» L H IDENT DHBACT TRA 11.0 - - F1 O1111 BLOCK / DEBLOCK ACCOUNT DHBACT T $$$TRAB f DHBACT x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x0087b8…00894c Dummy {f00=0x0002, f01=0x4080, f02=» 30 0 5 H D ! B ! L Ac LW Ad L RL RL L RLI2 +L + +! L LW L R @d@c4 5 > j@ |
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x0190, f02=» L H IDENT DIQACT TRA 11.0 - - F1 O1111 INQUIRE ACCOUNT DIQACT T $$$TRAQ f DIQACT x 6 2 PAJRN QFLTRST T:DSC0 XBFMT XEERR ZCRDD ZDRWRDE 0 p
0x008ae0…008c74 (1, 10) Dummy {f00=0x0003, f01=0x4156, f02=» 1 40 6 ( 7 / 8 =0 / J @ J F " D Ag RL L RL eL RLI2D!eL3 L R I2,H RL eL RLI2 !eL l E F & M0 & U
0x008c74…008e08 Dummy {f00=0x0003, f01=0x0190, f02=» > H IDENT DJUACT TRA 11.0 - - F1 O1111 UPDATE ACCOUNT DJUACT SPAP30 F $$$TRAU ` DJUACT SPAP30 r * & PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 0
0x008e08…008f9c Dummy {f00=0x0003, f01=0x0190, f02=» # $ 5 *0 5 30 5 0 < B J F " D AeI1 L RL RL RLI2 W L RL RL RLI2k +L + + LH1 ( R W R B P0 1 ^0 1 i s {0 1 J F "
0x008f9c…009130 Dummy {f00=0x0003, f01=0x4060, f02=» < 8 6 W @e4 J RJ( J L CLW L4 J@ RL RL RLI2 W L RL RL RLI2k +L + + LH1 ( R W R B P0 1 ^0 1 i s {0 1 J F "
0x009130…0092c4 Dummy {f00=0x0003, f01=0x018e, f02=» @ H IDENT DKDSTM TRA 11.0 - - F1 O1111 DAILY STATEMENTS DKDSTM EQPDS H $$$TRAD ` DKDSTM EQPDS " r D @ PAJRN PVATTPT PWDETP PXSKIP PZPOSD1 QENTRSY QGATYPE T:DSC0 @ < T:DSC1 T:DSC2S T:EDWR XCLAMP XEERR ZCRDD ZDR
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=» 0 " # 1010313801100030000000 ( % N , ^ 2 f n 4 9 : ? @0 ? J F " D Ah L RL ba R !bL+ R !:L ):L DL VL0X VD0X DL0X D RL W
0x009458…0095ec Dummy {f00=0x0003, f01=0x0190, f02=»0 j v0 } . J F " D @L R W R RL R I2 #bL# aL aL"a) a R I2 J L RaI > 0 0
0x0095ec…009780 Dummy {f00=0x0003, f01=0x018e, f02=» J F " D S RLW @S RLAS k #bL )&L 1X FW R 1X FW TL RT1X F TLA U R f " v 0 R 0 R 0 R 0 R 0 R 0
0x009780…009914 (1, 11) Dummy {f00=0x0003, f01=0x0190, f02=» 0 & 6 & 01 F & V 999999 d " a1 z & & k & & ( ,0 00 40
0x009914…009aa8 Dummy {f00=0x0003, f01=0x418e, f02=» 0 V0 0 Z0 0 ^0 . m0 @ r0 R x = d z v 0 = J F " D @L W A W A W A - L A ! L ! L ! L I W H c dLW cL d CL RC #bL 0
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x0190, f02=» 6 H IDENT DLDEP TRA 11.0 - - F1 O1111 DEPOSIT $ DLDEP SPAP10 SPAP11 SPAP12 > $$$TRAD f , ( DLDEP SPAP10S z SPAP11A SPAP12 x > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x0190, f02=» $ & 00 90 2 J F " D IR H5 ARW LW L RL L RLI2Z l# RL R +L +HS L D D K ]0 H a0 H j r v
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x4108, f02=» 0 0 0 B T 0 f 0 x D @ > c CL L4 L eL e CL L4 HS L %7L 0X 0X 4 @
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x0190, f02=» : H IDENT DMWDR TRA 11.0 - - F1 O1111 WITHDRAWAL DMWDR SPAP14 B $$$TRAW Z DMWDR SPAP14 l @ < PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST TNDCAB XBFMT ZCRDD ZDRWRD1 ZHWRID 0 Z 0
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x018e, f02=» ' ) 30 * <0 < J F " D AnIQ LW L RL LH5 RLW RLI2m l# RL R +L +HS LH N J Q Y0 Q ^ s0 Q w0 Q }
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x413a, f02=» 0 0 ( 8 0 H Z j J F " D I2 RW HQ RL@n4 IS L In %7L 0X 0X W %7L 0X 0X z 0 # " J H
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0003, f01=0x018e, f02=» L H IDENT DNTRF TRA 11.0 - - F1 O1111 TRANSFER DNTRF SPAP19 SPAP20 T $$$TRAT t " DNTRF SPAP19S SPAP20 U B > DKDSTMT PAJRN PBBOOK PCVCH QENTRS1 QGATYPA T:DISP T:ERAS ( $ XBFMT ZCRDD ZDRWRDS
0x00a5b4…00a748 Dummy {f00=0x0003, f01=0x0190, f02=» 0 ! * ' < ( L +0 ^ - p . 0 70 @0 J F " D aLH5 RLW RLH2 RLW a a L RL l# RL L RL R HS L
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x0190, f02=»R I2- R T 0 + " 0 + 4 F V f v 0 0 J F " D I2& R I2 !:L #:L I R
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x0190, f02=» 0 , 0 > P J F " D W a R I2}H t! Lp! Ll! L L CLWf Ra J RJ( J !:LG!:L I ` 0 0
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x018e, f02=»0X 0X L0X 0X I 0X W 0X LW v D 4 I F L X W0 j [0 ~ a d m p $ z J F " D @CL LW CL L A` La4 %bL
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x40ca, f02=» 8 & 8 J B = ; 4H +! L'! L#! L L CLW J RJ( J L CLW LW CL L4 n @ p $ z J F " D @CL LW CL L A` La4 %bL
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x8190, f02=» < H IDENT T:AA00 TRA 10.0 - - F1 O1111 DATA DIVISION T:AA00 D T:AA00A T V > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x8190, f02=» * & * & 2 * & = e ` * & [ n * & y ` * & 2 p
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0003, f01=0xc15c, f02=» A t * & * & - P R @ , ( K@ A0 n , ( a , ( q " $ & ( * , (
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x40e0, f02=» < H IDENT T:DA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & vA0 0 * | , @ , (
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 11.0 - - F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ , @ , (
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x4156, f02=» < H IDENT U:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION U:BTAB D U:BTABB V > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x4092, f02=» < H IDENT S:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION S:BTAB D S:BTABB V j :B |@ 0 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=» < H IDENT C:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x4028, f02=» ( ( @ $O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x40f2, f02=» < H IDENT D:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION D:CW10 D D:CW10C V * & B 0 f j * & B t 0 0 = 0 ! B @ *
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0004, f01=0x4102, f02=» < H IDENT C:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION C:CSY0 D C:CSY0C V & j * & = N = N @ *
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x40d2, f02=» < H IDENT D:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:CSY0 D D:CSY0C V * & 20 0 0 0 0 j 0 50 ;0 A0 D 2 @ N = N @ *
0x00c088…00c21c Dummy {f00=0x0004, f01=0x40dc, f02=» < H IDENT Z:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TRM0 D Z:TRM0T V & j " * 4 4 @ N = N @ *
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x40f2, f02=» < H IDENT D:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TRM0 D D:TRM0T V * & B 0 0 0 0 0 " j * & 0 #0 %0 &0 '0 (0 )0 *0 = -0 . B @
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x40f2, f02=» < H IDENT Z:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TSP0 D Z:TSP0T V * & j & = F = F @
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x40da, f02=» < H IDENT D:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TSP0 D D:TSP0T V * & : j ( $ 0 0 0 @ : @ = F @
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=» < H IDENT U:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UBF0 D U:UBF0U V & j & & = & [ & y & & & &
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» & & ; & Y . & w > & N & ^ & n & ~ & & + & I & g & & & &
0x00ca00…00cb94 (1, 15) Dummy {f00=0x0004, f01=0x40de, f02=» & & ) & G . & e > & N & ^ & n & ~ & * @ & &
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x40f2, f02=» < H IDENT D:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UBF0 D D:UBF0U V * & B 0 0 j * & & , 4 < H a = B @ &
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x4132, f02=» < H IDENT U:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UIF0 D U:UIF0U V * & j ( & & = & [ y *
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x40ee, f02=» < H IDENT D:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UIF0 D D:UIF0U V * & > 0 0 0 0 0 0 $ j * & 0 *0 0 6 7 = V Z ( = _ > @
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x40f2, f02=» < H IDENT U:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UCY0 D U:UCY0U V & j * & = > = > @
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x40ca, f02=» < H IDENT D:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UCY0 D D:UCY0U V * & *0 0 0 !0 %0 ) j 0 -0 10 7 * @ > = > @
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=» < H IDENT U:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UOP0 D U:UOP0U V & j * & * & = * & [
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x4054, f02=» n * * >@ P U:UOP0U V & j * & * & = * & [
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0004, f01=0x40f6, f02=» < H IDENT D:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UOP0 D D:UOP0U V * & F0 0 0 !0 "0 $ j * & % = F @
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x4136, f02=» < H IDENT U:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA10 D U:UA10U V & j & * & = * & [ y *
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x40f2, f02=» < H IDENT D:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA10 D D:UA10U V * & B0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r x B @ y *
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x4132, f02=» < H IDENT U:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA20 D U:UA20U V & j & * & = * & [ y
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x40ee, f02=» < H IDENT D:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA20 D D:UA20U V * & >0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r > @ y
0x00de84…00e018 Dummy {f00=0x0004, f01=0x4114, f02=» < H IDENT U:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UT10 D U:UT10U V * & j * & = * P = P
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x40d2, f02=» < H IDENT D:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION ! D:UT10 ! D D:UT10U ! V * & 20 0 0 0 0 0 0 ! j 0 !0 '0 -0 3 7 ! 2 ! @ ! * P = P
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x4114, f02=» < H IDENT U:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION " U:UT20 " D U:UT20U " V * & " j * & " = * " P " = P
0x00e340…00e4d4 (1, 17) Dummy {f00=0x0004, f01=0x40d2, f02=» < H IDENT D:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION # D:UT20 # D D:UT20U # V * & 20 0 0 0 0 0 0 # j 0 !0 '0 -0 3 7 # 2 # @ # * " P " = P
0x00e4d4…00e668 Dummy {f00=0x0004, f01=0x40d6, f02=» < H IDENT C:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION $ C:CK10 $ D C:CK10C $ V * & d $ j $ ( $ ( $ @ $ * " P " = P
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x40ee, f02=» < H IDENT D:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION % D:CK10 % D D:CK10C % V * & > % j * & 0 0 0 0 0 % = % > % @ % P " = P
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x410c, f02=» < H IDENT C:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION & C:CK20 & D C:CK20C & V * & & j * & f f f f f f f f f f f f U D D & = D U U f D f & H & = H & @
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x40ee, f02=» < H IDENT D:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION ' D:CK20 ' D D:CK20C ' V * & > ' j * & ' = ' > ' @ ' & = H & @
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x40de, f02=» < H IDENT U:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ( U:UQQ0 ( D U:UQQ0U ( V * & 2 ( j U5* ( * ( * ( @ ( > ' @ ' & = H & @
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x40d2, f02=» < H IDENT D:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ) D:UQQ0 ) D D:UQQ0U ) V * & 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x416a, f02=» @ H IDENT DOQCCY TRA 11.0 - - F1 O1111 CURRENCY INQUIRY 6 DOQCCY 6 H $$$TRAQ 6 Z DOQCCY 6 l EPPCCYQ PAJRN XBFMT 6 6 6 6 H 6 6 9 6
0x00efe0…00f174 (1, 18) Dummy {f00=0x0005, f01=0x0190, f02=» L H IDENT DPECCY TRA 11.0 - - F1 O1111 EXCHANGE CURRENCY 7 DPECCY SPAP26 7 T $$$TRAE 7 n DPECCY SPAP26 7 ( $ PAJRN PCVCH T:DISP. T:ERAS- XBFMT 7 7 7 7 7
0x00f174…00f308 Dummy {f00=0x0005, f01=0x0190, f02=» 7 8 : 8 >0 : 8 J F " D Ak RLIV RLI2 !RL L ev fwW A L et fu hL jL kL dLA RLI2f hL 8 , B0 R 8 z M 8 N 8 V 8 W 8 J F " D @ +L + lj c RL lk d RLI Jc cd dJHV0I c
0x00f308…00f49c Dummy {f00=0x0005, f01=0x4120, f02=»4 ge@ *A / A js k# dc d 8 d 0 9 " 0 9 4 0 9 F 0 9 X 0 9 j J F " D e dy dL!fL:*dx6 gf dc df dy dLW%A j# ks dc dy dL!fL *cx gf df 9 | 9 9 W de0X 0X 4 c 9
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» L H IDENT DQCOPR TRA 11.0 - - F1 O1111 CLOSE OPERATOR : DQCOPR : T $$$TRAC : f DQCOPR : x PAJRN XBFMT ZHWRID. : 0 : 0 : 0 : : :
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=»@WAi L JL KL RLH5 RLW RLI2q J J J K K H5 RLW : N ; H O ; X Z ; j [ ; z f ; g ; r ; s ; v0 ; x ; 0 ; J F " D
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x4030, f02=» + L 6LW L@i4 ; < @ < , K H5 RLW : N ; H O ; X Z ; j [ ; z f ; g ; r ; s ; v0 ; x ; 0 ; J F " D
0x00f958…00faec Dummy {f00=0x0005, f01=0x0190, f02=» > H IDENT EINIT TRA 11.0 - - F1 O1111 INITIALISATIONS = > : EAIOPR EBZACC ECICCY EDIAC1 EEITR1 EFIAC2 EGITR2 = F EHISYSN EZIBUFA = $$$TRA = B > EAIOPRN EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 = $ EGITR2 E
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=» = 0 > > " % > 0 ' > @ * > R - > d 0 > v 50 > 8 > < > J F " D L L L L L % EL EL EL EL R4 DL EL DL EL DEL EL DL 4 >
0x00fc80…00fe14 (1, 19) Dummy {f00=0x0005, f01=0x0190, f02=» > Z0 ? ]0 ? ` ? , c ? < f ? L i ? l0 ? l o0 ? ~ r0 ? u0 ? x0 ? {0 ? ~0 ? 0 ? J F " D @ qL rL
0x00fe14…00ffa8 Dummy {f00=0x0005, f01=0x0190, f02=» ? @ 0 @ 0 @ 0 0 @ B 0 @ T 0 @ f 0 @ x 0 @ 0 @ 0 @ 0 @ 0 @ J F " D L L4 L L L L L L L
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x018e, f02=» @ 0 A 0 A 0 A 0 0 A B 0 A T 0 A f 0 A x A [ A A A A J F " D = L L L L L L4 L L 2 = L
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x4044, f02=» A " R4 !L 'L (L )L +L "L4 B B .@ B @ 0 A B 0 A T 0 A f 0 A x A [ A A A A J F " D = L L L L L L4 L L 2 = L
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» F H IDENT IOTND TRA 11.0 - - F1 O1111 REL=9.2 VER=ND 81-01-21 IOTND IOTNDS N $$$TRAT f IOTND IOTNDS x 2 . MASKR NDERR T:DELA. T:DSC0- T:DSC21 T:XSTAL < % 4 5
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» B K ~ N U ~ . X > ^ ~ P a @A ` j ~ r m q ~ t x ~ { ~ J F " D @L R
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» 1 d , < L 1 l d | J F " D LW R LW 6 0 L0R P _ 2
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=» ~ , < L ^ n ~ J F " D W 2 RRRRRRR R LW W R W{Wy R L R 0X R
0x010920…010ab4 (1, 20) Dummy {f00=0x0005, f01=0x0190, f02=» A J J F " D _ R W _* R W 0X L R I I 4 4 2 RRRRR C I 1 l Y | [ ^ 1 k u 1 v 1 w x 1
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=» ( . > N J F " D R2 RRRK + R _14 _ L L0X $ Lb 4 0X ^ 0 & &
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=» J F " D 4 L " m F _ 0X 4 0X 4 A R 4 L0X & 8 2 l J F " D ( 4 , 4 L .6 ))b ) L ~ C L 6 T J F " D @ R
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x4106, f02=» _! _/ * : J l ~ > 9 7 L0X 0X L0R P L0X 0R P R 4 @ R
0x010f70…011104 Dummy {f00=0x0005, f01=0x40e8, f02=» B H IDENT NDERR TRA 11.0 - - F1 O1111 TND ERROR REPORTING NDERR J $$$TRAE Z NDERR l XFERR1E ~ R D F FL RF D 4 @ R REJECT P ( P DSC2 TND,X'17',
0x011104…011298 Dummy {f00=0x0005, f01=0x018e, f02=» : H IDENT PBBOOK TRA 11.0 - - F1 O1111 PRINT BOOK PBBOOK PYPOSB B $$$TRAB PBBOOK PYPOSB n > : PVATTPB PWDETPA PZPOSD QENTRSF T:DSC0 T:DSC1B T:DSC2 8 4 T:EDWR XCLAMPS XEERR XKZEKO ZCRDD ZDRWRD ZMRDF
0x011298…01142c Dummy {f00=0x0005, f01=0x0190, f02=» " f $ 2 * 6 : 7 1 J : J F " D R !:L ):L IU DL VL0X VD0X DL0X D U T IU R RL R I2d l E N Y Z & _
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x018e, f02=» RL WB RI2= d ! L ! L ! L W dL1X F T t 0 B 2 D 3 T f v 0 3 & ZZZZZZ
0x0115c0…011754 (1, 21) Dummy {f00=0x0005, f01=0x0190, f02=» F*ZVZZZVZZ9,99- " d $ & 4 F*ZVZZZVZZ9,99- B " b ( r 0 ~ 0 % 0 % 0 $ J F " D U_F% L RI2 CL RC 0X T L R HU R0X R 4 TL%TL TL
0x011754…0118e8 Dummy {f00=0x0005, f01=0x403e, f02=» 0X RL R I2 JL JT JJ RJ4 2 (@ : F*ZVZZZVZZ9,99- B " b ( r 0 ~ 0 % 0 % 0 $ J F " D U_F% L RI2 CL RC 0X T L R HU R0X R 4 TL%TL TL
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x018e, f02=» F H IDENT PRINT TRA 11.0 - - F1 O1111 PRINT JOURNAL - VOUCHER 2 . PAJRN PCVCH PVATTP PWDETP PXSKIP PZPOSD N $$$TRAI > : PAJRN PCVCH q PVATTPD [ PWDETPI g PXSKIP n PZPOSD t B > T:DSC0I T:DSC1A T:DSC2 T:EDWRF T:GETT XCLAM
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x0190, f02=» , . 2 ( 90 8 < , J > J F " D !:L ):L DL0X D G 6G ,28>D CL RC 0X W=1X FW70X L CL RC l B F n K M Q
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» m n u [ z ~ , 6 < J F " D @ 0X R W 1X FW 1X FW 1X FW 1X FW 1X FW ):L R 4 I5 R AZ R RL N 0 0 " 1010313801100033000000
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=»D0X DL0X D G 6G z TLW TLAY k' n t , < L 0 t n ~ 0 t 0
0x011f38…0120cc Dummy {f00=0x0005, f01=0x0190, f02=»GL @YAX k RT1X F!GL TL@X k h & 6 0 F t X h x 0 #0 % t ( * /0 D 1
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=»RT1X F P B0 4 D t G 0 I @ M P Q g ` ] d p _ h o q & & ( y0
0x012260…0123f4 (1, 22) Dummy {f00=0x0006, f01=0x018e, f02=» 0 0 0 0 0 $ 6 - F & V & Z d & t Z " 9 & 999999 " a & S & & (R)
0x0123f4…012588 Dummy {f00=0x0006, f01=0x018e, f02=» & ( & . & Z < & L Z Z " 9 l & | & l & ZZVZZZVZZ9,99- " & ( &
0x012588…01271c Dummy {f00=0x0006, f01=0x018e, f02=» & & & $ & 2 ( @ L & & Z j & z Z " 9 & ZZVZZ9,999 " c & ZZVZZZ,ZZ9
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» & & l & F*ZVZZZVZZ9,99-R . " N & ^ & X l & Y | & & & ( & & Z & Z
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» & 999999 " bR $ ( 4 @ & P & ^ & k l & z & ( & 99E-99E-99 " & 99E:99
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x018e, f02=» 999 " 2 & ( ( 6 B & R & ` & n ZZZZZZZZ9,99-9 ~ " d & & s & & & ZZZZZZZZ9,99
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x404c, f02=» ( " :L JL JL JLW JL0X J4 6@ H B & R & ` & n ZZZZZZZZ9,99-9 ~ " d & & s & & & ZZZZZZZZ9,99
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x018e, f02=» @ H IDENT QIRDBS TRA 11.0 - - F1 O1111 DATABASE RECOVERY QIRDBS H $$$TRAR Z QIRDBS l B > GETLRNR MASKT PUTLRN T:DREA T:XSTA1 ZAOPNDB ZBCLSDO ZCRDD ZDRWRD ZGREA DATABA DSC000
0x012f00…013094 (1, 23) Dummy {f00=0x0006, f01=0x0190, f02=» 0 2 < & J F " D XL WLjW 0RX WD D L EL IL R L0X E 0X DL0R DX (I R D 6 D K N Q 2 W0 y Z0 y ]0 `
0x013094…013228 Dummy {f00=0x0006, f01=0x4130, f02=» IL#IL _6 (L )L +L IL@ aL R aL a R I2FI IL# ~ < 0 N 0 ` r 0 y 0 % J F " D IL/_ ILI $a( (aW $a) )a$ + + % L L R I2 _LI A aL IL_Y
0x013228…0133bc Dummy {f00=0x0006, f01=0x0190, f02=» H H IDENT QMISC TRA 11.0 - - F1 O1111 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI $$$TRA B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP
0x0133bc…013550 Dummy {f00=0x0006, f01=0x0190, f02=»3" I0 A0@1W I1 A1@0W 4 D DL6 p a . d @ f R t b y r ~ J F " D @D W A0W A1W @0W @1 4 0L 0L0X 0R1HP _ AP0X 00X 00X
0x013550…0136e4 Dummy {f00=0x0006, f01=0x413a, f02=»0 0 J F " D 00X 00X 00X 00X 00X 0W 0L4 @P4 L% L L4 L# L L4 @ 0 X l 0 X ~ 9 8 4 2 J JL JL(J A 4 R L%
0x0136e4…013878 Dummy {f00=0x0006, f01=0x0190, f02=» H H IDENT DEMSCR TRA 11.0 - - F1 O1111 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=» T:TBWDR T:TDOWC T:TFWDS T:THOM T:TLDO T:TLEF 4 0 T:TRIGM T:TSTCA T:TUP T:UPDFT XCLAMPT XFERR1T 8 p %
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x0190, f02=»L 4 A AL8R @LI@ 6A %1X @LW 1X @L p I " . L > P " P S ` U r X Z $ _ ( m . o w y J F "
0x013ba0…013d34 (1, 24) Dummy {f00=0x0006, f01=0x0190, f02=» $ 4 D T d t ` m &
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=» & * < J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL C RRRRRRR2B RRR CLW 0X B)BL _S N & l B
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=» . > 9 N ^ n ~ B 4 J F " D CL0X B!BL) R2B RRRW 0X LAA2A RRRRRRRRRRRRRRRRR A
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x018e, f02=» " % > " @ 4 B D J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ H9 BL1 T D , G L0 P0 S U
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» v x z l $ | 4 J F " D @X F1X BL_ !:L :L 1X F BL1X BL_ AL0XLX CLWZ0X B)BL 1X F?R0XL @ D
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» AL )@L AA?R CL @L AL0X ABS 0X P 0R Q AL4 0X BAW ALR! @ R F d . t *
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=»RRRRR_& R R Z " ! ! ( ! : 1 ! L $ ! ^ " ! n ' ! ~ / ! ! ! $ ! ) ! . l ! 1 ! 7 $ !
0x0146ac…014840 Dummy {f00=0x0006, f01=0x405c, f02=» & ! ( " " & 00 " * ( " : @ @ " F@ " X $ ! ^ " ! n ' ! ~ / ! ! ! $ ! ) ! . l ! 1 ! 7 $ !
0x014840…0149d4 (1, 25) Dummy {f00=0x0006, f01=0x0190, f02=» > H IDENT SPACHQ TRA 11.0 - - F1 O1111 APPL-XX CONTROL # > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 # F > : SPCHK2A SPCHK3A SPCHK4 SPCHK5F SPCHK6 SPCHK7X SPTCHKL # $$$TRA # B > SPAP16A SPAP17S SPAP18C - SPAP22K D S
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10c SPAP11 SPAP12K # > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP20D SPAP21X SPAP23P $ 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29c SPAP30 SPAP31K $ z & " SPAP32A SPAP33H SPAP34A T:UPDFS $ 2 $ $
0x014b68…014cfc Dummy {f00=0x0006, f01=0x0190, f02=» R $ V % [ % ` % . e % > j % N o % ^ t % n y % ~ ~ % J F " D @LW JL%JL ,J W CLW R W R W R W R W} R Wx R Ws R Wn R Wi R % % %
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x018e, f02=» % " & I & J F " D Wd R W_ R WZ R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R & , $ & z & & ( & * & , & . & 0 & & &
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=» ' ' 0 ' ( !0 ' : ' ' L * ' ^ / ' p 8 ' > ' A ' J F " D L4 JL%JL #JL W L CL4 JL%JL #JL W L CL4 [Lb[ @L ![L W L ' N
0x015024…0151b8 Dummy {f00=0x0006, f01=0x400c, f02=» ' @ ( ' ' 0 ' ( !0 ' : ' ' L * ' ^ / ' p 8 ' > ' A ' J F " D L4 JL%JL #JL W L CL4 JL%JL #JL W L CL4 [Lb[ @L ![L W L ' N
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=» J H IDENT TNDCAB TRA 11.0 - - F1 O1111 TND DISPENSE MAIN PROCEDURE SPAP34 TNDCAB R $$$TRAD l SPAP34 TNDCAB ~ " T:GETAD TNDPAYA XBFMT XEERR 0 D 0 D 0 *
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x0190, f02=» T0 [0 y0 J F " D @ _ I2m KJ J JK D KL"D !JL cJ c D Dc K D Kc JK D _" KL D E 2 M Q J F " D F nL RJ DEFK
0x0154e0…015674 (1, 26) Dummy {f00=0x0007, f01=0x4060, f02=» : 5 3 JL KL"D K D K D KL JK D _ "J 4 CL L4 J@
0x015674…015808 Dummy {f00=0x0007, f01=0x0190, f02=» J H IDENT TNDOPN TRA 11.0 - - F1 O1111 OPEN TELLER NOTE DISPENSER SPAP33 TNDINI TNDOPN R $$$TRAD t $ SPAP33 TNDINIT TNDOPN IOTND T:GETAT XBFMT XEERR K
0x015808…01599c Dummy {f00=0x0007, f01=0x018e, f02=» D bW nD JW V F G N $ Z 6 i0 N F J F " D @ J P RL I2r_. " 7 WL D bW nD JW JLX E E X% E F hWF X 0 L 0 J F " D E @ E EW_> D "D
0x01599c…015b30 Dummy {f00=0x0007, f01=0x4090, f02=» 0 J F " D D "D " (D D L D L _ D _# L4 0X JL!JL L 4 C 4 d z@ E X% E F hWF X 0 L 0 J F " D E @ E EW_> D "D
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x018e, f02=» H H IDENT TNDPAY TRA 11.0 - - F1 O1111 REL=9.2 VER=ND 80-004-14 TNDPAY P $$$TRAD b TNDPAY t IOTND NDERR TNDREM. *0 N 10 N J F " D I I I I 4 @ @ " ] LX LT A _
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x411c, f02=» ( 8 0 H Z 0 j J F " D & R 2 RRR R 6 55 A _ " LX R | ( $ " LY R _!I 4 I 4 I 4 4
0x015e58…015fec Dummy {f00=0x0007, f01=0x4100, f02=» F H IDENT TNDREM TRA 11.0 - - F1 O1111 TND REMAINDER IN CASS. TNDREM N $$$TRAD ` TNDREM r 0 0 0 * & $ L LP V L4 @ THING PA
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» > H IDENT XBFMT TRA 11.0 - - F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP XEERR ZMRDF z '
0x016180…016314 (1, 27) Dummy {f00=0x0007, f01=0x0190, f02=» P PD0R]F#MLs)ML 0R]F D7 WL Q j Z ( g : s J | J F " D @GP GQ Q h^QGW T Q 9 I #QL& ID!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=» ( 8 H X h x " < " < "
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x4046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x0167d0…016964 Dummy {f00=0x0007, f01=0x018e, f02=» H H IDENT XMESG TRA 11.0 - - F1 O1111 ERROR- AND MESSAGECONTROL " XDMSG XEERR XFERR1 XHERAS P $$$TRAE v * & XDMSG XEERR XFERR1E XHERAS { 4 0 T:DSC1E T:EDWRA T:ERAS XAKBINF XCLAMP ZMRDF {
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=» 4 9 = $ J F " D R D RD 0X 4 C RC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x016af8…016c8c Dummy {f00=0x0007, f01=0x404e, f02=» 1 $ ( ( 8@ JC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» @ H IDENT XOPINP TRA 11.0 - - F1 O1111 KEYBOARD,BCR,ODR * & XAKBIN XCLAMP XGBCR XHMSU XKZEKO H $$$TRAP v 4 0 XAKBIN XCLAMPX XGBCR J XHMSU XKZEKO N B > QAFNKYP T:DSC0A T:DSC1 T:DSC2F T:KI1 T:NKI T:WRITC T:XSTA
0x016e20…016fb4 (1, 28) Dummy {f00=0x0007, f01=0x0190, f02=» * & < - N 1 ` 9 r @ C J F " D @ @L R I 20X LK@A R @L)AL H8 AL@8W )AL ALA5A8W RA W 0 Q V
0x016fb4…017148 Dummy {f00=0x0007, f01=0x018e, f02=»313801100033000000 ~ J F " D @X LK@A@ 4 IU I6 0X @L0X LK@A aLW HUy0X 0X D DL0X 0X VL0X * x 0
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» ( J F " D JZ cZjW L aW WL DLjW LD eWW'0X 0X E 0X GLE(E G G _ 8 1 0 1
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=»W Z WL E jW EZ 0X ` A E . I > P N R ` W p [ " ` 1010313801100033000000 b i o q w0
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=» 999999 " a 2 & i B 99999999999 P " l 9999 | " & 0 ( ? 0 ? 0 ?
0x017604…017798 Dummy {f00=0x0007, f01=0x4122, f02=»Lg!8L I3`) L!I3Y DL0X D0X D# L I3 DLW% DLW I3 EL ~ < N ` r B = ; E W E EL DL!EL DL EL_ E 6E 0X DW 0X DW 0X D4 L
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» L H IDENT ZDSCIO TRA 11.0 - - F1 O1111 DISC I/O OPERATIONS B > ZAOPND ZBCLSD ZCRDD ZDRWRD ZEINSD ZGREA ZHWRID ZYRLNG T ZZERR $$$TRA > : ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 " ZHWRID
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=»EERR l 0 B DATABA T j DSC001 | ) 2 B 5 > L J F " D L DLj D DL EL XLj DEX DL WLj D W
0x017ac0…017c54 (1, 29) Dummy {f00=0x0007, f01=0x0190, f02=» v J F " D @ D DLj D DLj D DLj D DLj D DLj D DL0X DT 0X $ r 1 $ & FILE OPEN UN
0x017c54…017de8 Dummy {f00=0x0007, f01=0x018e, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L K KL ELj EK 0X 2 V V 0
0x017de8…017f7c Dummy {f00=0x0007, f01=0x018e, f02=» V $ 4 ! F & 7 V ( f , v 2 8 ? J F " D P 0X DL0R D P R4 I R L0R R0X 0X P R@ 4 0X 4 A R
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» s v0 J F " D @ I2 I R W R @ 4 J J L%JL* L%JL# L%JL L%JL K J K * 0 I x x K +
0x018110…0182a4 Dummy {f00=0x0007, f01=0x4028, f02=»0R DT A 4 X @ $ F " D @ I2 I R W R @ 4 J J L%JL* L%JL# L%JL L%JL K J K * 0 I x x K +
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=» B H IDENT ZFMTIO TRA 11.0 - - F1 O1111 FORMAT I/O CONTROL ZKOPNF ZLCLSF J $$$TRAM d ZKOPNF ZLCLSF F v . * T:CLOSM T:EDWRA T:OPEN T:RSTAF XAKBIN M FORM
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=» : < = J F " D L DL EL XLj DEX DL WLj D W DLj D DL0X DP 0X 1X F RL A 2 ! 1 $ ( # &! FORMATFILE OPEN UNSUCCESSFULL ( G L
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=» " e 9999 " e $ 99999 4 " e J 999999 Z " e p 99999999999E " e PP999 " e Z " e ZZ
0x018760…0188f4 (1, 30) Dummy {f00=0x0008, f01=0x0190, f02=»ZZ " e Z9 " e , Z9,99 < " e R ZZZZ9 b " e x ZZZ9,999 " e ZZZ9,99- " e ZZZZ,ZZ- " e
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x018e, f02=» " e ZZZZZ9,99- " e . ZZZZZZ,ZZ- > " e X ZZZZZZZZ9,99 h " e ZZZZZZZZ9,99- " e ZZZZZZZZZ,ZZ " e ZZZZZZZZZ,ZZ-
0x018a88…018c1c Dummy {f00=0x0008, f01=0x417c, f02=» $ ZZVZZZ,ZZ, " $e % 99E-99E-99 . " %e H & ZZE-ZZE-ZZ X " &e r ' ZZVZZZVZZ9,99- " 'e ( ZZZVZZZVZZ9,99 " (e ) ZZZVZZZVZZZ,ZZ " )e
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=» : H IDENT ZMRDF TRA 11.0 - - F1 O1111 SCREEN I/O ZMRDF B $$$TRAR R ZMRDF d $ MASKR T:DREAT T:EDWR T:XSTA v & * 6 < @
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» D @RGHT E E j^ E] I jI ]E I E JI0X ]EJ0X G0RGHT E E j^EE] L l | J F " D jI ]E I E JI0X ]EJ0X G0RGHTo E E @E @Ej^@E] Wa E JI0X E
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x40f0, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( " E E ILj EI] W 1X FA24 @
0x0190d8…01926c Dummy {f00=0x0008, f01=0x406c, f02=» < H IDENT DEMODD TRA 11.0 - - F1 O1111 DATA DIVISION * $$$TRA * D * V@ * h 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=» < F IDENT GETLRN READ LRN IN VTOC GETLRNK PUTLRN D GETLRNK ^ I:EVA0 r PUTLRN , ( T P ' W T , ( @ & Q W P W @ , ( = T
0x019400…019594 (1, 31) Dummy {f00=0x0008, f01=0x0190, f02=» h , ( A A A : A , ( A : A @ P T 8 , ( T : @ A _( : W W h , ( ( B P X A : @ A , ( P R _ : , ( 9 0 E
0x019594…019728 Dummy {f00=0x0008, f01=0x018e, f02=» A : : , ( 2 & , ( : @ P ( _ A : 9A V , ( 9A : A $ R P Q _ : 7 H D ! C r
0x019728…0198bc Dummy {f00=0x0008, f01=0x40ea, f02=» J H D ! | T T D W W 6 P D 8 > 0 ! 2 %P +R H D !~ AT Q F U 8 Y P _ L g ( o F yP F B T P D T 0 , " P " ( R % F ' F F @ H D ! C r
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x40e2, f02=» > F IDENT DEFDOC DEFINE DOCUMENT 6371-PRINTER DEFDOCK F DEFDOCK X T:FDSP l I:EVA0 ~ I:RT1 ( $ H ( @ L P END
0x019a50…019be4 Dummy {f00=0x0008, f01=0x40f0, f02=» > F IDENT QEMOVE DATATRANSP. BUFFER <--> UWB QEMOVEK F QEMOVEK X I:EVA0 l , ( D@ F 8 1 ~ I:RT1 Y $ @
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» J F IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL & " CTAB01K CTAB02 CTAB03 CTAB04 R CTAB01K | CTAB02 CTAB03 CTAB04 , ( , ( !
0x019d78…019f0c Dummy {f00=0x0008, f01=0x411a, f02=» <=>?=!"#$%&/() ;<=>?'ABCDEFGHIJK , ( LMNO^ABCDEFGHIJKLMNOPQRSTUVWXYZ[ , , ( ]+ PQRSTUVWXYZ{|}* H D ! & 4 D T t 4 D d ! # %
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x0190, f02=» < H IDENT T:AA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:AA00 D T:AA00A V > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0008, f01=0x0190, f02=» * & * & 2 * & = ` * & [ n * & y * & p
0x01a234…01a3c8 Dummy {f00=0x0008, f01=0x0190, f02=» t * & * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x4022, f02=» > @ * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x01aa18…01abac Dummy {f00=0x0008, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0008, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x01aed4…01b068 Dummy {f00=0x0008, f01=0x402e, f02=» V P @ *
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x01b390…01b524 Dummy {f00=0x0008, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x0009, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x01bb74…01bd08 Dummy {f00=0x0009, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x01c680…01c814 (1, 35) Dummy {f00=0x0009, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x01d320…01d4b4 (1, 36) Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810128,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x01d4b4…01d648 Dummy {f00=0x0009, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x4146, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : X 0 T:WRDY 8 , ( % :H* : X 2T Y 2 : J T:EDIO z $ C @ C 1 B ] : H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x01d970…01db04 Dummy {f00=0x0009, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x4160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810128,870136941100 $ . * T:TABC T:TABD T:TABE T:TABN T:SCR2 $ F I:EVNO $ x I:ESKI $ I:EVA0 $ I:EBRI $ I:EBRB $ I:EBR $ , (
0x01dfc0…01e154 (1, 37) Dummy {f00=0x0009, f01=0x0190, f02=» $ z T:DSL % I:RET % * T:TABC * % : T:TABD . % N T:TABE 2 % b , ( ! W W X % v T:EDWI % , ( 7 0Q Y ( Y *P % I:EVT % I:EDSK % *
0x01e154…01e2e8 Dummy {f00=0x0009, f01=0x0190, f02=» X 0P V _` " P T & % T:LOPS & , , ( (W " P Y 0] Y & > T:EDWF & n , ( (_t " X _. * X *# P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x40a4, f02=» y 6 Y ( : X (;n . & H D ! -W 1W 9Q = A MP Qp P P: Vp P4 T WT P P W ' " P P -W 5T 9W ' n V ' @ ' P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810128,870136941100 ( T:DNL T:DSL ( F I:EVNO ( I:ECPY ( n I:EPIC ( I:ETXT ( I:ETAB ( I:EBRI ( I:EBRB ( I:EBR ( * &
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» ( I:ESKI ) . I:EXPY ) @ I:RET ) R T:DSL * ) b T:GRFC ) t , ( ! " $ & Y . Y , ) T:DNL 8 ) , ( 7 W & Y . X ( X ." P X 0R ) T:WRDY ) ,
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x417a, f02=»CTR ) , ( @ X 2Q Y *T . : " P X * , ( 0U X *# P P T " * < T:ENIN * l , ( T : Y . 0 Y ( * ~ , ( & Y *T " T ! 1 W ! ) * . : * H D ! 8 # * 7W
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810128,870136941100 + " T:PKI T:PINP T:TKI T:TINP + F T:PKI + l T:PINP + ~ T:GRFC + I:ETAB + I:EVIN + , ( I P & + , ( Y *T
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x0190, f02=»Q X &P V D ! P + | T:TINP , T:TKI , 0 * & u $ ! P %_ : , B , ( V Y " X .9H $ , p , ( P & X ( " Q Y +Q R , , ( " P W " U Y , " Q X . , , (
0x01ec60…01edf4 (1, 38) Dummy {f00=0x000a, f01=0x0190, f02=» M X (# P X # :! R W , T:ENIN - 0 T:ENI - B * & m T @ Y (W Y , W - R I:EXIT - , ( Y ( : X *:h X (! - , ( # P X & V L T W X , X 0 - , ( P T X *
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ . , ( E@ W _ " P X ( T X & V . 4 , ( c H "@T P V Y . d , ( X (P X ( . T:CLMI . , ( P 8 Y 0 X 2P X . , (
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» P : : . x , ( "0P $ T W %T / , ( ; : : Y ( X $ Y X " Y X & / H , ( [ Y X < Y > : Y : X : / x , ( y X ( T X & V H " V / T:CLDY / ( $ Y : X $ X :
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x4110, f02=»Pl Pf %P +P / 3P< / b H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ 0 H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h 0 j @ < A P P V T P P #P )T -W 1T T V 0 0
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x01f900…01fa94 (1, 39) Dummy {f00=0x000a, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810128,870136941100 6 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 6 F T:CLDY T:PRKB T:PRDY 6 T:DETF 6 T:ATTF 6 I:EVA6 6 I:FFSN 6 , (
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=» Y Y Y < V E B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x4020, f02=»W 7 8 @ 8 B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x0200e4…020278 Dummy {f00=0x000a, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x020278…02040c Dummy {f00=0x000a, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x0205a0…020734 (1, 40) Dummy {f00=0x00ac, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x020734…0208c8 Dummy {f00=0x00ac, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x0208c8…020a5c Dummy {f00=0x00ac, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x020a5c…020bf0 Dummy {f00=0x00ac, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x020bf0…020d84 Dummy {f00=0x00ac, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x020d84…020f18 Dummy {f00=0x00ac, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x020f18…0210ac Dummy {f00=0x00ac, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x0210ac…021240 Dummy {f00=0x00ac, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x021240…0213d4 (1, 41) Dummy {f00=0x00ac, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x0213d4…021568 Dummy {f00=0x00ac, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x021568…0216fc Dummy {f00=0x00ac, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x0216fc…021890 Dummy {f00=0x00ac, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x021890…021a24 Dummy {f00=0x00ac, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x021a24…021bb8 Dummy {f00=0x00ac, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x021bb8…021d4c Dummy {f00=0x00ac, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x021d4c…021ee0 Dummy {f00=0x00ac, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x021ee0…022074 (1, 42) Dummy {f00=0x00ad, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x022074…022208 Dummy {f00=0x00ad, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x022208…02239c Dummy {f00=0x00ad, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x02239c…022530 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x022530…0226c4 Dummy {f00=0x00ad, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x0226c4…022858 Dummy {f00=0x00ad, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x022858…0229ec Dummy {f00=0x00ad, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x0229ec…022b80 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x022b80…022d14 (1, 43) Dummy {f00=0x00ad, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x022d14…022ea8 Dummy {f00=0x00ad, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x022ea8…02303c Dummy {f00=0x00ad, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x02303c…0231d0 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x0231d0…023364 Dummy {f00=0x00ad, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x023364…0234f8 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x0234f8…02368c Dummy {f00=0x00ad, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x02368c…023820 Dummy {f00=0x00ad, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810713,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x023820…0239b4 (1, 44) Dummy {f00=0x00ad, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x0239b4…023b48 Dummy {f00=0x00ad, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x023b48…023cdc Dummy {f00=0x00ad, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x023cdc…023e70 Dummy {f00=0x00ad, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x023e70…024004 Dummy {f00=0x00ad, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x024004…024198 Dummy {f00=0x00ad, f01=0x0190, f02=» , ( : _: L C L C T:DSB ( 8 T:FDSP 2 J , ( B C : : : ^ T:GTBY L , ( ? C : : ( T:SCW2 T:DSCX j I:EVA2 ,
0x024198…02432c Dummy {f00=0x00ad, f01=0x413a, f02=» W 6 d " % ( - < 1P G L K ` O ( S < _P eV u ( y L H D !V W X R W X < P W W| L [W sP0 H H D ! w }P& V W P z P P P )P - z @ < 9 ( = < cR iV T T T W T
0x02432c…0244c0 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x0244c0…024654 (1, 45) Dummy {f00=0x00ad, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x024654…0247e8 Dummy {f00=0x00ad, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x0247e8…02497c Dummy {f00=0x00ad, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x02497c…024b10 Dummy {f00=0x00ad, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x024b10…024ca4 Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x024ca4…024e38 Dummy {f00=0x00ad, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x024e38…024fcc Dummy {f00=0x00ad, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x024fcc…025160 Dummy {f00=0x00ad, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x025160…0252f4 (1, 46) Dummy {f00=0x00d5, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x0252f4…025488 Dummy {f00=0x00d5, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x025488…02561c Dummy {f00=0x00d5, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x02561c…0257b0 Dummy {f00=0x00d5, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810630,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x0257b0…025944 Dummy {f00=0x00d5, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x025944…025ad8 Dummy {f00=0x00d5, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x025ad8…025c6c Dummy {f00=0x00d5, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x025c6c…025e00 Dummy {f00=0x00d5, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x025e00…025f94 (1, 47) Dummy {f00=0x00d5, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=11.0,810128,870136941100 y J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI y F I:FML I:EVTO y P:MTAB y , ( :l:d:h y I:EVA2 y I:E
0x025f94…026128 Dummy {f00=0x00d5, f01=0x0190, f02=» y f , ( 9 # W @ $ E " T ; [ z , ( W # :H 2 T Z L z 8 , ( @ w L D V W # z h , ( L D V $ W D V z I:EVA0 z , ( @ L , W 6 2 W " z
0x026128…0262bc Dummy {f00=0x00d5, f01=0x0190, f02=» Z Z z , ( 3 : R ; { 0 , ( S 6 : F _v :B , { ` , ( s (V ; H [ [ [ { , ( z ;AV Z H # { , ( ;
0x0262bc…026450 Dummy {f00=0x00d5, f01=0x0190, f02=» & @ $ ! P { , ( 1 [ 6 [ Z 7 . Z | I:FML ^ | P , ( Q 7 : T # ( | b I:EVTO | , ( H q : " T # :A ( | , ( @ @ & " P ! P [ :;H 2 | , (
0x026450…0265e4 Dummy {f00=0x00d5, f01=0x40f4, f02=» " # ^;b ; | : ;f" #?_" } * H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W } J D @ W$ P& Pd ^ Wv yVv V$ P P P R W& } } @ } :;H 2 | , (
0x0265e4…026778 Dummy {f00=0x00d5, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x026778…02690c Dummy {f00=0x00d5, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x02690c…026aa0 Dummy {f00=0x00d5, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x026aa0…026c34 (1, 48) Dummy {f00=0x00d5, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x026c34…026dc8 Dummy {f00=0x00d5, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x026dc8…026f5c Dummy {f00=0x00d5, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810209,870136941100 I:MOV I:MVC F I:MOV I:MVC n , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P ) P ! P ! P
0x026f5c…0270f0 Dummy {f00=0x00d5, f01=0x0190, f02=» p , ( _ ' d V W V , ( 4! P < X 4 @ , ( 9d $ & ! R + : p , ( ! V W R 4 0R Y 7 Y& , ( A P Z,;D 9_8 8 _< V , ( a
0x0270f0…027284 Dummy {f00=0x00d5, f01=0x4112, f02=» Q V V 7 Y P _& & Q , ( 9d! )0 + P 7 Y Z $ 0 _ : ` H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q x 4 0 R +R 1R CP P( T WJ V P. P
0x027284…027418 Dummy {f00=0x00d5, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x027418…0275ac Dummy {f00=0x00d5, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x0275ac…027740 Dummy {f00=0x00d5, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x027740…0278d4 (1, 49) Dummy {f00=0x00d6, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x0278d4…027a68 Dummy {f00=0x00d6, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x027a68…027bfc Dummy {f00=0x00d6, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x027bfc…027d90 Dummy {f00=0x00d6, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x027d90…027f24 Dummy {f00=0x00d6, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x027f24…0280b8 Dummy {f00=0x00d6, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x0280b8…02824c Dummy {f00=0x00d6, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810128,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY I:RET , ( !!
0x02824c…0283e0 Dummy {f00=0x00d6, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB I:EVI 2 I:EVA3 B I:EVA0 T * & AUT f I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x0283e0…028574 (1, 50) Dummy {f00=0x00d7, f01=0x018e, f02=» , ( { 6 K K I:EDT 4 I:ED1 F I:EDW X , ( K K V K : j I:EVA6 , ( @ R B " V , ( V Z P 2 " T W
0x028574…028708 Dummy {f00=0x00d7, f01=0x0190, f02=» , ( 7 Z [ Z P I:RET p 4 , ( W $ [ V 7_ F I:EXIT v v P:MTAB , ( u BW Z @ " &! P $ , ( Z 7 Z Z P $ I:FFSN
0x028708…02889c Dummy {f00=0x00d7, f01=0x018e, f02=» , ( P v I < : J I:ECPY 4 I:ETXT & H I:EXPY & , ( Q : P 4 ! T _ p I:ECTR 8 I:ESL B , ( + P 4 W K W W + I:ENL L
0x02889c…028a30 Dummy {f00=0x00d7, f01=0x4166, f02=» I:EFIL , ( i *W X & , J K : I:SCB H V : 1 Z H D ! U Y & [ e b g v i l k 6 m L s u B y & { p > > x H D ! @ P T W T W = SP uW P P R Q P Qx
0x028a30…028bc4 Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x028bc4…028d58 Dummy {f00=0x00d7, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x028d58…028eec Dummy {f00=0x00d7, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x028eec…029080 Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x029080…029214 (1, 51) Dummy {f00=0x00d7, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x029214…0293a8 Dummy {f00=0x00d7, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x0293a8…02953c Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x02953c…0296d0 Dummy {f00=0x00d7, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x0296d0…029864 Dummy {f00=0x00d7, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x029864…0299f8 Dummy {f00=0x00d7, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x0299f8…029b8c Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x029b8c…029d20 Dummy {f00=0x00d7, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x029d20…029eb4 (1, 52) Dummy {f00=0x00d7, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x029eb4…02a048 Dummy {f00=0x00d7, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x02a048…02a1dc Dummy {f00=0x00d7, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x02a1dc…02a370 Dummy {f00=0x00d7, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x02a370…02a504 Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x02a504…02a698 Dummy {f00=0x00d7, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x02a698…02a82c Dummy {f00=0x00d7, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x02a82c…02a9c0 Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810209,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x00d7, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x02ab54…02ace8 Dummy {f00=0x00d7, f01=0x4092, f02=» T:OPCH T:STCH T:IXCH & & " $ _` C / : ;T {R R d |@ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x02ace8…02ae7c Dummy {f00=0x00d7, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x02ae7c…02b010 Dummy {f00=0x00d7, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x02b010…02b1a4 Dummy {f00=0x00d7, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x02b1a4…02b338 Dummy {f00=0x00d7, f01=0x2008, f02=» L = DEMO68 DATE = 81-09-25 6876PACK NBR = 0000
0x02b338…02b4cc Dummy {f00=0x00d7, f01=0x0190, f02=»0 DD 4 1 4 @ @ I 20 L @A @ )Av H8 A @8W )A& A A5A8W A W 0 L @A@ 4 IU I6 0 @ 0 L @A aLW HUy0 0 D D"0 0 V 0 VD0 D 0 D E&0 LE E D jZ DLEji L !i i W i~jZ i JZ cZjW L aW W} D"jW LD eWW'0 0 E 0 GLE(
0x02b4cc…02b660 Dummy {f00=0x00d7, f01=0x0190, f02=» VD0 D 0 D- i W i a[ 0 [4 !" g!8` I3`) !I3Y DE0 D0 D# I3 DwW% D W I3 E E W E E D !E D E _ E 6E 0 DW 0 DW 0 D4 3 i E " w } ~ +-01
0x02b660…02b7f4 (1, 54) Dummy {f00=0x00d8, f01=0x0190, f02=» &0 <0 =0 >0 ?0 @0 A0 C0 G <
0x02b7f4…02b988 Dummy {f00=0x00d8, f01=0x0004, f02=» &x
0x02b988…02bb1c Dummy {f00=0x00d8, f01=0x404c, f02=» @ < : ) A n U h n w ^ T T ^ ^ ^ ^ @ H J F " D H7 W LI2 DEFJWn L I2 DEFJWn_' WL D bW nD JW R J F " D N J P L I2r_. " 7 WL D bW nD JW JLX E E X% E F hWF J F " D E @ E EW_> D "D
0x02bb1c…02bcb0 Dummy {f00=0x00d8, f01=0x4024, f02=» ? ^ F ^ ^ ^ @ F1 O1111 REL=9.2 VER=ND 80-004-14 J F " D I I I I 4 @ @ " ] LX LT A _ P J F " D U " V Q A _N _d J F " D & 2
0x02bcb0…02be44 Dummy {f00=0x00d8, f01=0x4020, f02=» ^ ^ ^ @ - F1 O1111 TND REMAINDER IN CASS. * & $ L LP V L4 N |@ P J F " D U " V Q A _N _d J F " D & 2
0x02be44…02bfd8 Dummy {f00=0x00d8, f01=0x4090, f02=» J F D ! S a F k t ( 2 < f P 4 P l n 6 2 0 n 9 n K _ n f " R@ L0 0 L0 P L0 0 P 4 @
0x02bfd8…02c16c Dummy {f00=0x00d8, f01=0x4018, f02=» @ 1.0 - - F1 O1111 TND ERROR REPORTING D F FL F D 4 J j@ | " R@ L0 0 L0 P L0 0 P 4 @
0x02c16c…02c300 Dummy {f00=0x00d8, f01=0x2008, f02=» @ 1.0 - - F1 O1111 TND ERROR REPORTING D F FL F D 4 J j@ | " R@ L0 0 L0 P L0 0 P 4 @
0x02c300…02c494 (1, 55) Dummy {f00=0x0131, f01=0x0190, f02=» & " 3210 * " ( L ( ` < H IDENT D:CW10 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION r D:CW10 D:CW10C * & B 0 f * &
0x02c494…02c628 Dummy {f00=0x0131, f01=0x0190, f02=»SION C:CSY0 C:CSY0C & 2 * & P = ~ N = N < H IDENT D:CSY0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION
0x02c628…02c7bc Dummy {f00=0x0131, f01=0x018e, f02=» IDENT Z:TRM0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION Z:TRM0 @ Z:TRM0T R & f " * 4 4 < H IDENT D:TRM0 TRA 11.0 81-09-26 F1 O1111 DATA DIVI
0x02c7bc…02c950 Dummy {f00=0x0131, f01=0x0190, f02=» h = -0 . B < H IDENT Z:TSP0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION 0 Z:TSP0 p Z:TSP0T * & & = F
0x02c950…02cae4 Dummy {f00=0x0131, f01=0x018e, f02=» ( $ 0 0 0 @ : J < H IDENT U:UBF0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION U:UBF0 U:UBF0U & & & = &
0x02cae4…02cc78 Dummy {f00=0x0131, f01=0x0190, f02=» & i & & ( & 8 & H & X & h & ; x & Y & w & & & & & & + &
0x02cc78…02ce0c Dummy {f00=0x0131, f01=0x0190, f02=» & W & u & ( & 8 & H & X & h & ) x & G & e & & & & & *
0x02ce0c…02cfa0 Dummy {f00=0x0131, f01=0x018e, f02=» * & B 0 0 * & & , 4 < H a 8 = f B | < H IDENT U:UIF0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION U:UIF0 U:UIF0U * &
0x02cfa0…02d134 (1, 56) Dummy {f00=0x0131, f01=0x0190, f02=» y < H IDENT D:UIF0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION * D:UIF0 j D:UIF0U | * & > 0 0 0 0 0 0 $ * & 0 *0 0 6 7 = V Z ( = _ >
0x02d134…02d2c8 Dummy {f00=0x0131, f01=0x018e, f02=» * & = 2 > D = > X < H IDENT D:UCY0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION j D:UCY0 D:UCY0U * & *0 0 0 !0 %0 ) 0
0x02d2c8…02d45c Dummy {f00=0x0131, f01=0x0190, f02=» & * & " * & = P * & [ ~ * & y P * & * &
0x02d45c…02d5f0 Dummy {f00=0x0131, f01=0x0190, f02=»0 81-09-26 F1 O1111 DATA DIVISION z D:UOP0 * D:UOP0U < * & F0 0 0 !0 "0 $ P * & % ~ = F < H IDENT U:UA10 TRA 11.0 81-09-26 F1 O1111 DATA
0x02d5f0…02d784 Dummy {f00=0x0131, f01=0x0190, f02=» l * & [ y * 8 P y d < H IDENT D:UA10 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION v D:UA10 D:UA10U * & B0 0 1 E0 K *
0x02d784…02d918 Dummy {f00=0x0131, f01=0x0190, f02=»DIVISION ` U:UA20 U:UA20U " & 6 & T * & = d * & [ y | y | < H IDENT D:UA20
0x02d918…02daac Dummy {f00=0x0131, f01=0x0190, f02=» 0 L0 R0 X0 ^0 d0 f0 l0 = r , > > < H IDENT U:UT10 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION P U:UT10 U:UT10U * & * &
0x02daac…02dc40 Dummy {f00=0x0131, f01=0x0190, f02=»SION D:UT10 D:UT10U * & 20 0 0 0 0 0 0 2 0 !0 '0 -0 3 7 ` 2 < H IDENT U:UT20 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION U:UT20 U:UT20U * &
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x0131, f01=0x0190, f02=» = P < H IDENT D:UT20 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION D:UT20 R D:UT20U d * & 20 0 0 0 0 0 0 x 0 !0 '0 -0 3 7 2 < H IDENT C:CK10 TRA 11.0 81-09-26 F1 O1111 D
0x02ddd4…02df68 Dummy {f00=0x0131, f01=0x0190, f02=» ( < H IDENT D:CK10 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION D:CK10 Z D:CK10C l * & > * & 0 0 0 0 0 = > < H IDENT C
0x02df68…02e0fc Dummy {f00=0x0131, f01=0x0190, f02=» * & f f f f f f f f f f f f U D D = D U U f D f 2 H N = H b < H IDENT D:CK20 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION t D:CK20 D:CK20C * & > * &
0x02e0fc…02e290 Dummy {f00=0x0131, f01=0x416e, f02=»ON Z U:UQQ0 U:UQQ0U * & 2 0 U5* ^ * z * < H IDENT D:UQQ0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION D:UQQ0 D:UQQ0U * &
0x02e290…02e424 Dummy {f00=0x0131, f01=0x0190, f02=» IDENT P:PIL < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` * & D E X_j DEX D' W^j D W r * & D*j D DF0 DP 0 1 = A A24 0 4 1 P T:CAT P T
0x02e424…02e5b8 Dummy {f00=0x0131, f01=0x018e, f02=» FMOVE T:SETT 0 T:USE B T:XREA R T:XSTA d MASK v QEMOVE T:IREA , ( a GETLRN T:DREA PUTLRN
0x02e5b8…02e74c Dummy {f00=0x0131, f01=0x0190, f02=» f T:DSC2 T:WRIT T:COMM , T:IREW > T:IWRI P T:GETT b T:UPDF t T:TEST , ( 0 2 4 6 8 : < > T:WAIT T:GETA T:GETF T:SETC
0x02e74c…02e8e0 Dummy {f00=0x0131, f01=0x0190, f02=»M T:TLDO T:TLEF T:TRIG . T:TDOW @ T:TUP R T:PRIN b T:DUPL t , ( P R T V X Z ^ T:EDFL T:TSTC EMPTYT T:DELA
0x02e8e0…02ea74 (1, 58) Dummy {f00=0x0132, f01=0x0190, f02=» O c s w z P$ P P )T - 6 /WB | H D !I$ 5T 9 > ;W6 AT E F GW* MT Q N SW YT ] V _W eP q ~ PV P 8 H D ! P d PV Tp P %T OP6 W ]W( a d cW" iV oT PD H D ! 3 P( U P P: P W [QP aRJ Q( R" F P
0x02ea74…02ec08 Dummy {f00=0x0132, f01=0x407a, f02=» )W ;P CP ]W oP yP P h < 8 P T P T R R T 5P CR qP u T R $ d@ vP 8 H D ! P d PV Tp P %T OP6 W ]W( a d cW" iV oT PD H D ! 3 P( U P P: P W [QP aRJ Q( R" F P
0x02ec08…02ed9c Dummy {f00=0x0132, f01=0x2008, f02=»
0x02ed9c…02ef30 Dummy {f00=0x0132, f01=0x0000, f02=» H 15 @ a S (R) X Y M Z 9 l 4 ^ $ Z 9 k X Y ~ D Z 9 'c (d ! Z 9 l 7 X Y f Z 9 S (R) b9 k , =
0x02ef30…02f0c4 Dummy {f00=0x0132, f01=0x0000, f02=»99 999998 d s d . g 7 c ZZZZZZZZ9,99-R ZZZZ9,99- ZZZZZ9,99-9999 999N Z 9 l . ZZVZZZVZZ9,99- F Z 9 k X Y / f Z 9 c d E ZZVZZ9,99 ZZVZZZ,ZZX ! Z 9 l
0x02f0c4…02f258 Dummy {f00=0x0132, f01=0x0000, f02=»
[…0x4…]
0x02f8a8…02fa3c Dummy {f00=0x0132, f01=0x0190, f02=»x 4 @ 0 3 f n h ( l R X C W 9" & N L z $ v v 8 8 3 . @
0x02fa3c…02fbd0 Dummy {f00=0x0132, f01=0x0190, f02=» w P v L v v * l X @ @ z 1 / $ X 2 @ @ F X D f @ 3 6 @ G @ @ @ @ @ &@ ,@ 2@ 8@ >@ D@ J@ P@
0x02fbd0…02fd64 Dummy {f00=0x0132, f01=0x0190, f02=» : H n k X t m @ @ @ @ F "@ (@ .@ m :@ y 4@ F 2 l 0 $ 0 % V * v n | v v 3 } 0 b ~ 0 @ 0 n x f X { 10 <
0x02fd64…02fef8 Dummy {f00=0x0132, f01=0x0190, f02=» t 0 x 0 h . ~ R b L ! ] Q 7 F* 6 x ZZ 5 o ZZ 4 f ZZ x - _ ZZ , X 99 ( Q ZZ ' J ZZ E ZZ 2 @ 99 3 7 ZZ Z 1 / ZZ F 2 & ZZ P 0 ZZ + ZZ
0x02fef8…03008c Dummy {f00=0x0132, f01=0x0190, f02=» ZZ J ZZ T ZZ ^ Z PP d / 99 < ~ 99 " y 99 u 99 q 99 99 9 ] 1 = : 6 | N 4 * + 0 ) h F B ^ l DS | _ f FO f r M @
0x03008c…030220 Dummy {f00=0x0132, f01=0x0190, f02=» z @ TNDREM 6 TNDREM L NDERR @ TNDPAY < R O Q N F O L N K h zIOTND TNDINI @ TNDOPN F T [ 2 S Q P M f TNDPAY @ TNDCAB P 2 t 1 z 0 / .
0x030220…0303b4 (1, 60) Dummy {f00=0x0132, f01=0x0190, f02=» T:TLEF ( T:TLDO ( : T:THOM : L T:TFWD ^ T:TDOW ^ p T:TBWD T:SETC H T:PRIN T:GETF T:GETC T:GETA l T:EDFL T:DYKI T:DUPL ~ t
0x0303b4…030548 Dummy {f00=0x0132, f01=0x0190, f02=» L I > DQCOPR @ : - DPECCY K H ? 9 DOQCCY R n X b f j I F 4 * bTNDCAB DMWDR 3 ) < DLDEP D ? j C > T EQPDS X 2 DKDSTM ( <
0x030548…0306dc Dummy {f00=0x0132, f01=0x0190, f02=» 0 l p 0 9 v n 0 ) DFOACT R ~ T b b r v z v j j v T:WAIT L p T:TEST D H DELACT r C DCVDU > 8 0 % / " ` - * ) CEGACT CDCHKY = 6 T
0x0306dc…030870 Dummy {f00=0x0132, f01=0x0190, f02=» SPAP30 SPAP26 4 <SPAP14 f DSPAP13 o XSPAP12 ] XSPAP11 K XSPAP10 2SPTCHK H 2SPCHK7 H 2SPCHK6 Z 2SPCHK5 l 2SPCHK4 ~ 2SPCHK3 2SPCHK2 2SP
0x030870…030a04 Dummy {f00=0x0132, f01=0x0190, f02=» H 0 S D t 0 P N s 0 F X r 0 E b q 0 D 0 o 0 0 : m 0 ( l 0 & k 0 j 0 i 0 h 0 g 0 f 0 e 0 d 0 c 0 b 0 a 0 ` 0 E @ $ D v u VPWDETP * i VPVATTP
0x030a04…030b98 Dummy {f00=0x0132, f01=0x0190, f02=» R XDLDEP DJUACT DIQACT DHBACT DGCACT DDFOACT 2 H DELACT D NDDTP71 V C DCVDU R tCFCHKH z CEGACT CDCHKY t D BESELF hR @ 4 8 <
0x030b98…030d2c Dummy {f00=0x0132, f01=0x0190, f02=» ` z DNTRF H E ' | & % # | T:GETT $ SPAP09 v SPAP08 SPAP07 CCSTTT ` u BCSTTO r ZMRDF N < ` B r 8 < N T:IWRI N B
0x030d2c…030ec0 Dummy {f00=0x0132, f01=0x0190, f02=» H J & 8 H /. T:WRIT Z & T:NKI & 8 T:KI J T:DSC2 T:DSC0 | XKZEKO n XHMSU XGBCR c } XOPINP J T:DSC1 w XHERAS XFERR1
0x030ec0…031054 (1, 61) Dummy {f00=0x0132, f01=0x0190, f02=» x r ZMRDF XCLAMP ~ T:ATTF $ ZSPCLRS [ % XBFMT 4 fQHSPKY fQGATYP fQFLTRS fQENTRS " fQBSTKY B fQAFNKY X QMISC
0x031054…0311e8 Dummy {f00=0x0132, f01=0x0190, f02=» C2 ,EEITR1 i ,EDIAC1 O EINIT R f t t " R ! ZDRWRD ` p T:IREA 3 ,EBZACC ,EAIOPR SPAP06 , J DBUOPR f N
0x0311e8…03137c Dummy {f00=0x0132, f01=0x0190, f02=» D w l DAUCCY t B < A ; | 2 p : ^ ( d ZYRLNG * T:XSTA T:XREA v ( T:USE 0 : QEMOVE VPAJRN ^ MASK ? A 6 CGCSYS
0x03137c…031510 Dummy {f00=0x0132, f01=0x0190, f02=» YS h DBUOPR w DAUCCY VSPAP32 p : g CASTTS r G D ZBCLSD ZAOPND XBFMT P TNDOPN p T:ERAS T:DISP VCBSTTS g VCASTTS
0x031510…0316a4 Dummy {f00=0x0132, f01=0x0190, f02=» X A pCGCSYS BESELF BCSTTO q FBASPCT F 3 c AADEMO >R j ^ b f X ~ l $ H * Z } XAKBIN * H T:RSTA 0 Z T:OPEN $ l T:EDWR r ~ T:CLOS F ZLCLSF
[…0x1…]
0x031838…0319cc Dummy {f00=0x0132, f01=0x4016, f02=» l $ H * Z } XAKBIN * H T:RSTA 0 Z T:OPEN $ l T:EDWR r ~ T:CLOS F ZLCLSF ZKOPNF , O ZFMTIO + DEMODD C @ O 0 4 < AAMAIN p T:EXIT : fQDFUWB H f
0x0319cc…031b60 Dummy {f00=0x0132, f01=0x0000, f02=»
0x031b60…031cf4 (1, 62) Dummy {f00=0x0133, f01=0x0190, f02=» * & ! " % & ( ) * - . / 0 1 * & 2 4 5 6 8 9 : ; < > ? @ B D E N * & 1 F G H I J K L M N O Q [ | * & O @A 1DSC001FORMFILE * & m & ( ) 0 9 D E F P * &
0x031cf4…031e88 Dummy {f00=0x0133, f01=0x0190, f02=» 9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99 * & ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZ . * & ! ZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZ * & ? Z9,99-99999999999ZZZZZZZZ9,99Z * & ] ZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZ * & { ZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZ
0x031e88…03201c Dummy {f00=0x0133, f01=0x0190, f02=» p * & < * & < < < * & / . j * & M ] FORMATFI * & k LE OPEN UNSUCCESSFULL e e e e * & e e/e e e e
0x03201c…0321b0 Dummy {f00=0x0133, f01=0x0190, f02=» ~ * & " $ ! * & & ( * , . 0 2 4 ! J * & = 6 8 : < > @ B ! x * & [ D F H J L N P R ! * & y T V X Z ^ ` ! * &
0x0321b0…032344 Dummy {f00=0x0133, f01=0x0190, f02=» ! * & 0 0 0 0 0 0 0 " * * & - 0 0 0 0 0 0 0 0 " X * & K 0 0 0 0 0 0 0 " * & i " * & % * /
0x032344…0324d8 Dummy {f00=0x0133, f01=0x411c, f02=» " l * & 3 # I _ / u ! Q ! # 8 T:LIT 0 # 1 # n T:PIC 4 # 5 h # T:KEY 8 # 9 # T:FMT < # = ( ^ # P:END @ #
0x0324d8…03266c Dummy {f00=0x0133, f01=0x4016, f02=» HNOD R $ @ $ 3 # I _ / u ! Q ! # 8 T:LIT 0 # 1 # n T:PIC 4 # 5 h # T:KEY 8 # 9 # T:FMT < # = ( ^ # P:END @ #
0x03266c…032800 Dummy {f00=0x0133, f01=0x018e, f02=» IDENT P:S001 % * & 1 I5 J1 W @2 1 W " % " * & - ` !"b9 A " A 0 #)6{ I5 H1 % P * & K W )6b W "a?J1B !"b _J % ~ * & i _N1 0 H5% "a Ma 7` 8{ :` ; % * & ` I2y I2t 1% eeW2 7` M`!"a % * &
0x032800…032994 (1, 63) Dummy {f00=0x0133, f01=0x0000, f02=»
[…0x2…]
0x032cbc…032e50 Dummy {f00=0x0133, f01=0x0000, f02=» 1010313801100033000000 L ! !a 7d 7 v 00 l a k = 2 k Z 9 S (R) b ! Z 9 l 7 X Y ( Z 9 'c (d Z 9 k X Y Z 9 l 4
0x032e50…032fe4 Dummy {f00=0x0133, f01=0x0000, f02=» "5 15 @ 1100033000000 2d s 2d .)g 7.c , = 2 k Z 9 S (R) b ! Z 9 l 7 X Y ( Z 9 'c (d Z 9 k X Y Z 9 l 4
0x032fe4…033178 Dummy {f00=0x0133, f01=0x0000, f02=»
[…0x2…]
0x0334a0…033634 (1, 64) Opaque[0x194]
0x033634…0337c8 # DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x033634…0337c8 IdxSect {
0x033634…0337c8 f00 = 0x000a // 0x33634 @0x0
0x033634…0337c8 f01 = 0x0004 // 0x33636 @0x2
0x033634…0337c8 gno = [ // 0x33638 @0x4
0x033634…0337c8 [0x00]: C0x000a.0x2.0
0x033634…0337c8 [0x01]: C0x000a.0x3.0
0x033634…0337c8 ]
0x033634…0337c8 }
0x0337c8…03395c Dummy {f00=0x000a, f01=0x0190, f02=» < 8 IDENT DJUACT UPDATE ACCOUNT DDUM DEMODD D PDIV X P EXPROC PAJRN f P EXPROC QENTRS | P EXPROC XBFMT P EXPROC ZDRWRD P EXPROC ZHWRID ENTRY DJUACT ENTRY SPAP30 L J********
0x03395c…033af0 Dummy {f00=0x000a, f01=0x0190, f02=»****************************************************** ~ PDJUACT PROC > DJ000 R SET SBUACT ` TBT SBKEY2,DJ500 t MOVE TDTRSCDE,=D'88' $ PERF PAJRN,=W'1' JOURNAL LINE 1 $ PERF PAJRN,=W'2' JOURNAL LINE 2 . * PERF XBFMT,
0x033af0…033c84 Dummy {f00=0x000a, f01=0x018e, f02=»N,=W'1' JOURNAL LINE 1 $ PERF PAJRN,=W'2' JOURNAL LINE 2 4 P MOVE TDNEWBAL,ADBAL TO DISPLAY CURRENT BALANCE F PERF XBFMT,=W'53' ~ TBT SBCANCEL,DJ999 P* . P* UPDATE LAST TRANSACTION SEQUENCE NUMBER P* PDJ520 P
0x033c84…033e18 Dummy {f00=0x000a, f01=0x0190, f02=» n " P* TDNEWBAL IS MULTIPLIED BY 1 P* . P MUL TDNEWBAL,=D'1' 8 P* T P* MAKE A TRANSACTION RECORD ^ F P* IF KEY 2 IS ON AND THE BALANCE HAS BEEN CHANGED BY THE OPERATOR P* " P TBF SBKEY2,DJ550 KEY 2 IS OFF . P CBNE ADBAL,
0x033e18…033fac Dummy {f00=0x000a, f01=0x0190, f02=» P PERF ZDRWRD,ADACTRNR,NDLRN1 P B DJ999 , * < 4 0* BALANCE IS UPDATED, MAKE A TRANSACTION RECORD F * ~ PDJ570 PERF QENTRS,ADLASTRS , ( MOVE TDTRSRNR,ADACTRNR COMPUTE TDTRSRNR ADD TDTRSRNR,ADLASTRS *
0x033fac…034140 Dummy {f00=0x000a, f01=0x0190, f02=»IT * P MOVE TDTRSCDE,=D'7' * 0 . P* COMPUTE TDAMOUNT FOR INCREASED BALANCE : * l P MOVE TDAMOUNT,TDNEWBAL v P SUB TDAMOUNT,ADBAL P ADD ADDEPCUM,TDAMOUNT B DJ800 DJ600 * * WITHDRAWAL
0x034140…0342d4 (1, 65) Dummy {f00=0x000a, f01=0x0190, f02=» P SUB TDAMOUNT,TDNEWBAL P ADD ADWDRCUM,TDAMOUNT " * @ * &* WRITE TRANSACTIONRECORD TO DATABASE J * x PDJ800 PERF ZHWRID,TDTRSRNR,NDLRN2 TBT SBCANCEL,DJ999 * * REWRITE ACCOUNTRECORD P* P MOV
0x0342d4…034468 Dummy {f00=0x000a, f01=0x0190, f02=» t * 4 P CBE TDTRSCDE,=D'2',DJ850 WITHDRAWAL TRANSACTION P* DEPOSIT J . * ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE,CASH 6 2 ADD ODCASH(KW2,KW3),TDAMOUNT ACCUMULATED DEPOSITS P B DJ999 P* WITHDRAWAL DJ850 . P SUB ODCASH(KW
0x034468…0345fc Dummy {f00=0x000a, f01=0x0190, f02=» PEND H P******************************************************************** PSPAP30 PROC XWRET d P PBIN XWRET ~ PS30000 P CBE ADBAL,TDNEWBAL,S30990 P* 0 P* SPACE AVAILABLE FOR TRANSACTIONRECORDS ? P*
0x0345fc…034790 Dummy {f00=0x000a, f01=0x4102, f02=»'1' 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' P B S30999 D PS30990 V P MOVE XWRET,=W'0' d PS30999 ~ P RET P PEND H P******************************************************************* P END @
0x034790…034924 Dummy {f00=0x000a, f01=0x2008, f02=» ODCASH(KW2,KW4),TDAMOUNT ACCUMULTED WITHDRAWALS DJ900 @ * N * REWRITE ACCOUNTRECORD X PERF ZDRWRD,ADACTRNR,NDLRN1 x DJ999 RET PEND @
0x034924…034ab8 Dummy {f00=0x000a, f01=0x0190, f02=» Y + ? ApWZ T R( ? ? WJ Q W Y + U Q f< Y Q P W W Y ( Al C H X *! P V L ! H R X 0 Y 8 ? P H Y 0 X 0 X 2] X 8 Y 0 ? : X 0 :H* H : X 2T Y 2 : C 1 B ] Nv : @: X +!
0x034ab8…034c4c Dummy {f00=0x000a, f01=0x0190, f02=» C B _ _ N @ @ P @ B _F ( N D D : K + Q 2 P* P4 S _ ( B N # V : T* _j_, U _:b(b&T*b&b&b&a b b _ _L_ _ B D D b&B W W X 0Q Bl Bj Y ( Y *P NR ^H Y , Y .
0x034c4c…034de0 Dummy {f00=0x000a, f01=0x0190, f02=»P T0 " X _8 " P" N: X *# P B 1 N:W fD " P X X( C : X *! P P T fD P NR H C W @ X (T W X y 6 Y ( : X (;n H b(_j_ _j_4C a b b _ _L_ _ B C C _ B H Y .W H Y . X ( X ." PV X 0RzT$ Y *P
0x034de0…034f74 (1, 66) Opaque[0x194]
0x034f74…035108 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x26a0, f03=0x0000}
0x034f74…035108 IdxSect {
0x034f74…035108 f00 = 0x0135 // 0x34f74 @0x0
0x034f74…035108 f01 = 0x000e // 0x34f76 @0x2
0x034f74…035108 gno = [ // 0x34f78 @0x4
0x034f74…035108 [0x00]: C0x0135.0x0.0
0x034f74…035108 [0x01]: C0x0135.0x1.0
0x034f74…035108 [0x02]: C0x0135.0x2.0
0x034f74…035108 [0x03]: C0x0135.0x3.0
0x034f74…035108 [0x04]: C0x0136.0x0.0
0x034f74…035108 [0x05]: C0x0136.0x1.0
0x034f74…035108 [0x06]: C0x0136.0x2.0
0x034f74…035108 ]
0x034f74…035108 }
0x035108…03529c Dummy {f00=0x0135, f01=0x000c, f02=»810926 0 T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 810926 T:USE I:EVA0 P:MTAB T:UER
0x03529c…035430 Dummy {f00=0x0135, f01=0x0190, f02=» AADEMO 810926 $$$TRAD AAMAIN BASPCTD BCSTTOA BESELF CGCSYSF QCGUWB QDFUWBO T:EDWR T:EXIT XAKBIN ZGREA c BASPCT 810926 $$$TRAS BASPCT SPAP15S SPAP31 CASTTSS CBSTTSA T:DISP T:ERASF TNDOPN XBFMT ZAOPNDC ZBC
0x035430…0355c4 Dummy {f00=0x0135, f01=0x0190, f02=»:GETT XAKBIN XBFMT XCLAMPA XEERR ZCRDD ZDRWRD ZGREA BESELF 810926 $$$TRAS BESELF CDCHKYS CEGACTA CFCHKH DAUCCYF DCVDU DDTP71C DELACTI DFOACT DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF DOQCCYS DPECCYA DQCOPR E
0x0355c4…035758 Dummy {f00=0x0135, f01=0x0190, f02=» SPAP32 DAUCCYS DBUOPRA EHISYS FMOVE QIRDBS1 T:SETTE XBFMT XEERR ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRID ZLCLSF >CDCHKY 810926 $$$TRAC CDCHKY XEERR CEGACT 810926 $$$TRAG CEGACT DKDSTMG PBBOOKA QENTRS Q
0x035758…0358ec Dummy {f00=0x0135, f01=0x0190, f02=» CGCSYS ! 810926 $$$TRAC CGCSYS MASKR PAJRN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG 1 6 DAUCCY & 810926 $$$TRA DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPA
0x0358ec…035a80 Dummy {f00=0x0135, f01=0x0190, f02=» SPAP06 EAIOPRU EBZACCA MASK QEMOVE T:IREA1 T:XREAT T:XSTAT XBFMT XEERR ZCRDD ZDRWRD ZGREA ZHWRID ZYRLNG <DCVDU 0 810926 $$$TRAV DCVDU XBFMT DDTP71 1 810926 $$$TRAT DDTP71 FMOVE PVATTPT PWDETP T:DSC
0x035a80…035c14 (1, 67) Dummy {f00=0x0135, f01=0x0190, f02=» T:EDWR1 T:IREA T:TESTS T:WAIT XAKBIN XHERAS ZMRDF ZYRLNG hDFOACT > 810926 $$$TRAO DFOACT SPAP13 X PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 @ bDGCACT A 810926 $$$TRAC DGCACT DKDSTMC PAJRN PBBOOK XBFMT ZCRDD Z
0x035c14…035da8 Dummy {f00=0x0135, f01=0x0190, f02=»T PAJRN QFLTRST T:DSC0 XBFMT XEERR ZCRDD ZDRWRDE c fDJUACT G 810926 $$$TRAU DJUACT SPAP30 PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 DKDSTM J 810926 $$$TRAD DKDSTM EQPDS " PAJRN PVATTPT PWDETP PXSKIP PZPOSD1 Q
0x035da8…035f3c Dummy {f00=0x0135, f01=0x0190, f02=» SPAP10S z SPAP11A SPAP12 PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS DMWDR S 810926 $$$TRAW DMWDR SPAP14 PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST TNDCAB XBFMT ZCRDD ZDRWRD1 ZHWRID
0x035f3c…0360d0 Dummy {f00=0x0135, f01=0x0190, f02=»CRDD ZDRWRDS ZGREA ZHWRID 6T:DA00 _ 810926 T:DA00D AAMAIN , 6T:ATAB ` 810926 T:ATABA T:AA00 :A xU:BTAB a 810926 U:BTABB U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 U:UT20B U:UQQ0A
0x0360d0…036264 Dummy {f00=0x0135, f01=0x0190, f02=» B ,C:CSY0 f 810926 C:CSY0C = N ,D:CSY0 g 810926 D:CSY0C 2 ,Z:TRM0 h 810926 Z:TRM0T 4 ,D:TRM0 i 810926 D:TRM0T B ,Z:TSP0 j 810926 Z:TSP0T = F ,D:TSP0 k 810926
0x036264…0363f8 Dummy {f00=0x0135, f01=0x0190, f02=» U:UIF0U y ,D:UIF0 q 810926 D:UIF0U > ,U:UCY0 r 810926 U:UCY0U = > ,D:UCY0 s 810926 D:UCY0U * ,U:UOP0 t 810926 U:UOP0U ,D:UOP0 v 810926 D:UOP0U F ,U:UA10 w
0x0363f8…03658c Dummy {f00=0x0135, f01=0x0190, f02=» 810926 D:UA20U > ,U:UT10 { 810926 U:UT10U = P ,D:UT10 | 810926 D:UT10U 2 ,U:UT20 } 810926 U:UT20U = P ,D:UT20 ~ 810926 D:UT20U 2 ,C:CK10 810926 C:CK10C (
0x03658c…036720 Dummy {f00=0x0135, f01=0x0190, f02=» > ,U:UQQ0 810926 U:UQQ0U * ,D:UQQ0 810926 D:UQQ0U 2 LDOQCCY 810926 $$$TRAQ DOQCCY EPPCCYQ PAJRN XBFMT dDPECCY 810926 $$$TRAE DPECCY SPAP26 PAJRN PCVCH T:DISP. T:ERAS- XBF
0x036720…0368b4 (1, 68) Dummy {f00=0x0135, f01=0x0190, f02=» EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 EGITR2 EHISYSE EZIBUFI lIOTND 810926 $$$TRAT IOTND IOTNDS MASKR NDERR T:DELA. T:DSC0- T:DSC21 T:XSTAL >NDERR 810926 $$$TRAE NDERR XFERR1E
0x0368b4…036a48 Dummy {f00=0x0135, f01=0x0190, f02=»EERR XKZEKO ZCRDD ZDRWRD ZMRDF PRINT 810926 $$$TRAI PAJRN PCVCH q PVATTPD [ PWDETPI g PXSKIP n PZPOSD t T:DSC0I T:DSC1A T:DSC2 T:EDWRF T:GETT XCLAMPJ XEERR ZMRDF QIRDBS 810926 $$$TRAR QIRDBS GETLRNR M
0x036a48…036bdc Dummy {f00=0x0135, f01=0x0190, f02=»UWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP QHSPKYQ T:USE pDEMSCR 810926 $$$TRAM SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTM QHSPKYA SPAPPL SPCHK1F SPCHK2 SPCHK3O SPCHK4 SPCHK5 SPCHK6R SPCHK7C SPTCHKS T:DISP T:DUPL T:DYK
0x036bdc…036d70 Dummy {f00=0x0135, f01=0x0190, f02=»:TSTCA T:TUP T:UPDFT XCLAMPT XFERR1T @ @ SPACHQ 810926 $$$TRA SPAP16A SPAP17S SPAP18C - SPAP22K D SPAP27X I SPAPPL SPCHK1 ] SPCHK2S _ SPCHK3A a SPCHK42 c SPCHK5 e SPCHK6 g SPCHK7A i SPTCHKS k SPAP06 SPAP07K SPAP08C SPAP09S SPA
0x036d70…036f04 Dummy {f00=0x0135, f01=0x0190, f02=» SPAP32A SPAP33H SPAP34A T:UPDFS Z m ^TNDCAB 810926 $$$TRAD SPAP34 TNDCAB T:GETAD TNDPAYA XBFMT XEERR fTNDOPN 810926 $$$TRAD SPAP33 TNDINIT TNDOPN IOTND T:GETAT XBFMT XEERR LTNDPAY 810926
0x036f04…037098 Dummy {f00=0x0135, f01=0x0190, f02=» $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP XEERR ZMRDF % XMESG 810926 $$$TRAE XDMSG XEERR XFERR1E XHERAS { T:DSC1E T:EDWRA T:ERAS XAKBINF XCLAMP ZMRDF XOPINP 810926 $$$TRAP XAKBIN XCLAMPX X
0x037098…03722c Dummy {f00=0x0135, f01=0x0190, f02=»A ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 ZHWRID < ZYRLNGZ V ZZERR MASKN QEMOVEC T:CLOSZ T:COMMZ T:EDWR T:IREA T:IREWA T:IWRI T:OPEN T:RSTAN T:XSTAE XAKBINZ XEERR jZFMTIO 810926 $$$TRAM ZKOPNF ZLCLSF F T
0x03722c…0373c0 Dummy {f00=0x0135, f01=0x0190, f02=»DEMODD 810926 $$$TRA JGETLRN 810926 GETLRNK I:EVA0 PUTLRN I:RT1 F HDEFDOC 810926 DEFDOCK T:FDSP I:EVA0 I:RT1 >QEMOVE 810926 QEMOVEK I:EVA0 I:RT1 $ PCTAB01
0x0373c0…037554 (1, 69) Dummy {f00=0x0135, f01=0x0190, f02=» D:CSY0 C:CSY0 D:TRM0 Z:TRM0 D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT20 U:UT20F D:CK10 C:CK10I D:CK20 C:CK20 D:UQQ0 U:UQQ0 FFMOVE 810926
0x037554…0376e8 Dummy {f00=0x0135, f01=0x0190, f02=» ICLEAR I:EVA0 I:RT1 $ >EMPTYT 810926 EMPTYT I:EVA0 I:RT1 < T:STIN 810926 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T:GRFC T:ROK zT:STOU 810926 S
0x0376e8…03787c Dummy {f00=0x0135, f01=0x0190, f02=»:GRFC I:EVA0 & T:EDFL 810926 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:SCUW T:CLRD T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY T:DYKI 810926 T:DYKI T:PRKB
0x03787c…037a10 Dummy {f00=0x0135, f01=0x0190, f02=»T : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF 810926 T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DUPL 810926 T:DUPL T:GRFC I:EVA0
0x037a10…037ba4 Dummy {f00=0x0135, f01=0x0190, f02=» < ZT:GETA 810926 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC 810926 T:TSTC T:GRFC T:RTES 4 T:TFWD 810926 T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBW
0x037ba4…037d38 Dummy {f00=0x0135, f01=0x0190, f02=»:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO X T:GETF 810926 T:GETF T:PRDY T:TABC T:TABN T:GTIT ( T:GRFC T:GTIP 8 I:EVA
0x037d38…037ecc Dummy {f00=0x0135, f01=0x0190, f02=» I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 4T:DEDT 810926 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:RET T:TABC * T:TABD . T:TABE 2 T:EDWI I:E
0x037ecc…038060 Dummy {f00=0x0135, f01=0x0190, f02=»O I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA T:PINP T:PKI I:EFIL I:ESKI I:EXPY I:RET T:DSL * T:GRFC T:DNL 8 T:WRDY I:ENL I:ESL I:ECTR T:ENIN T:EINP $ 81
0x038060…0381f4 (1, 70) Dummy {f00=0x0136, f01=0x0190, f02=»RDY T:CLMI I:EVA0 T:CLDY T:ENIN * 810926 T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC - 810926 T:SETC T:PRDY T:GRFC T:EDW
0x0381f4…038388 Dummy {f00=0x0136, f01=0x0190, f02=» I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY T:PRKB l T:PRDY T:DSM XT:LSEG 2 810926 T:LSEG T:CSEG I:RT1 T:LOFS F T:LOPS R f
0x038388…03851c Dummy {f00=0x0136, f01=0x0190, f02=» T:SWIT SWITCH JT:TEI0 6 810926 T:TEST TESTIO T:ABOR ABORT LT:CLO0 7 810926 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 8 810926 T:DELA DELAY 6T:GTI0 9 810926
0x03851c…0386b0 Dummy {f00=0x0136, f01=0x0190, f02=»CEX & T:DCE1 * I:EVA0 4T:SWI < 810926 T:SWIT I:RT1 ^T:TEI = 810926 T:TEST T:GDSP I:RT1 T:ABOR T:KIAA T:KIAC B bT:CLO > 810926 T:SETT I:EVA0 I:RT1 T:GETT T:SETD
0x0386b0…038844 Dummy {f00=0x0136, f01=0x0190, f02=»:RT1 pT:SCD A 810926 T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAUS f I:RT1 PT:UNUS C 810926 T:UNUS P:MTAB T:UER I:RT1 T:UERR ,T:EXIT E 810926 T:EXIT ZT:GTCW
0x038844…0389d8 Dummy {f00=0x0136, f01=0x0190, f02=»T1 vT:DMR H 810926 T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:IXID I:EVA2 , T:DMW I 810926 T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI T:SCW2 T:IO2 T:DREW $ T:IWRI 0 T:CREW >
0x0389d8…038b6c Dummy {f00=0x0136, f01=0x0190, f02=» pT:DMPO L 810926 T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID . .T:DCC M 810926 T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO " T:CCL1 & T:CCL2 * T:ACON P T:ACO1 T T:A
0x038b6c…038d00 Dummy {f00=0x0136, f01=0x0190, f02=» I:EVA0 ~T:DCR Q 810926 T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS S 810926 T:SEND T:SEN1 T:WRIX T:OPT T:IO1 T:ASEN " T:ASE1 & T:STCW T:SCW2
0x038d00…038e94 (1, 71) Dummy {f00=0x0136, f01=0x0190, f02=» T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 T:IO2 ` T:IO3 d T:IO5 p T:IORE t T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE T:EDWF T:EDWI T:EDIO T:KIP
0x038e94…039028 Dummy {f00=0x0136, f01=0x0190, f02=» T:SCW2 T:DSCX j I:EVA2 T:SCW0 T:DSR T:CW ] 810926 T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW T:BINB T:KIAA T:KIAC T:GCW2 T:SCW2 >T:LEN a 810926 GETLEN I:EVA0 I:R
0x039028…0391bc Dummy {f00=0x0136, f01=0x0190, f02=» rT:KIA d 810926 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIAC ,T:ABUF g 810926 T:ABUF PWRITEL h 810926 WRITEL T:FDS0 T:DSM I:EVA0 T:IO2 8 DI:NTP i 8109
0x0391bc…039350 Dummy {f00=0x0136, f01=0x0190, f02=»ST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:RT2 I:RT1 I:RT0 T:BAT T:PAT T:CAT I:EVB I v I:EVA n 810926 P:MTAB I:EVA2 I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5
0x039350…0394e4 Dummy {f00=0x0136, f01=0x0190, f02=»:SUB I:CPA X 2I:CMP v 810926 I:CMP I:CPA n *I:CPA w 810926 I:CPA | 4I:MOV x 810926 I:MOV I:MVC HI:MMOV { 810926 I:MMOV I:EVA2 I:EVA0 I:MOV T VI:MUL | 81
0x0394e4…039678 Dummy {f00=0x0136, f01=0x0190, f02=»PA I:SH1L I:ADD I:SH1R ,I:NTF 810926 I:NTFA 8 I:EDT 810926 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR I:EIN
0x039678…03980c Dummy {f00=0x0136, f01=0x0190, f02=»AS I:ETAB I:ECPY I:ETXT & I:EXPY & I:ECTR 8 I:ESL B I:ENL L I:EOR b T:EDWF I:ECW l T:EDWE I:ECWC v I:EFIL I:SCB >I:EPIC 810926 I:EPIC I:EVA0 I:SCB I:EDTE 810926 I:EKIH
0x03980c…0399a0 Dummy {f00=0x0136, f01=0x0190, f02=» <I:EDS 810926 I:EDS I:EVS2 I:ED1 & nI:STR 810926 I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS 810926 I:EVA0 I:EVS1 8 I:EVA2 I:EVS2 J
0x0399a0…039b34 (1, 72) Dummy {f00=0x0136, f01=0x0190, f02=»2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK I:RT1 I:EVIN T:EVOU B STRIN2 810926 STRIN2 I:EXIT I:EVA0 T:CLMI I:MOV T:GRFC RSTROU2 810926 S
0x039b34…039cc8 Dummy {f00=0x0136, f01=0x412a, f02=» T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 810926 T:USE I:EVA0 P:MTAB T:UER
0x039cc8…039e5c Dummy {f00=0x0136, f01=0x40f2, f02=» < H IDENT Z:TSP0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION Z:TSP0 D Z:TSP0T V * & j & = F = F @
0x039e5c…039ff0 Dummy {f00=0x0136, f01=0x40da, f02=» < H IDENT D:TSP0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION D:TSP0 D D:TSP0T V * & : j ( $ 0 0 0 @ : @ = F @
0x039ff0…03a184 Dummy {f00=0x0136, f01=0x0190, f02=» < H IDENT U:UBF0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION U:UBF0 D U:UBF0U V & j & & = & [ & y & & & &
0x03a184…03a318 Dummy {f00=0x0136, f01=0x0190, f02=» & & ; & Y . & w > & N & ^ & n & ~ & & + & I & g & & & &
0x03a318…03a4ac Dummy {f00=0x0136, f01=0x40de, f02=» & & ) & G . & e > & N & ^ & n & ~ & * @ & &
0x03a4ac…03a640 Dummy {f00=0x0136, f01=0x40f2, f02=» < H IDENT D:UBF0 TRA 11.0 81-09-26 F1 O1111 DATA DIVISION D:UBF0 D D:UBF0U V * & B 0 0 j * & & , 4 < H a = B @ &
0x03a640…03a7d4 (1, 73) Opaque[0x194]
0x03a7d4…03a968 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0180, f03=0x0000}
0x03a7d4…03a968 IdxSect {
0x03a7d4…03a968 f00 = 0x000c // 0x3a7d4 @0x0
0x03a7d4…03a968 f01 = 0x001a // 0x3a7d6 @0x2
0x03a7d4…03a968 gno = [ // 0x3a7d8 @0x4
0x03a7d4…03a968 [0x00]: C0x000c.0x0.0
0x03a7d4…03a968 [0x01]: C0x000c.0x1.0
0x03a7d4…03a968 [0x02]: C0x000c.0x2.0
0x03a7d4…03a968 [0x03]: C0x000c.0x3.0
0x03a7d4…03a968 [0x04]: C0x000d.0x0.0
0x03a7d4…03a968 [0x05]: C0x000d.0x1.0
0x03a7d4…03a968 [0x06]: C0x000d.0x2.0
0x03a7d4…03a968 [0x07]: C0x000d.0x3.0
0x03a7d4…03a968 [0x08]: C0x000e.0x0.0
0x03a7d4…03a968 [0x09]: C0x000e.0x1.0
0x03a7d4…03a968 [0x0a]: C0x000e.0x2.0
0x03a7d4…03a968 [0x0b]: C0x000e.0x3.0
0x03a7d4…03a968 [0x0c]: C0x000f.0x0.0
0x03a7d4…03a968 ]
0x03a7d4…03a968 }
0x03a968…03aafc Dummy {f00=0x000c, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION P DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x03aafc…03ac90 Dummy {f00=0x000c, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x03ac90…03ae24 Dummy {f00=0x000c, f01=0x0190, f02=»* TYPE OF THE VARIABLE AS FOLLOWS: * L P* * P L P* FIRST LETTER: VARIABLE USAGE; THE VARIABLE BELONGS TO THE * L P* FOLLO
0x03ae24…03afb8 Dummy {f00=0x000c, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x03afb8…03b14c Dummy {f00=0x000c, f01=0x0190, f02=»* B: ACCOUNT RECORD IN UWB UA2 * L P* T: TRANSACTION RECORD IN UWB UT1 * P L P* U: TRANSACTION RECORD IN UWB UT2 * L P* SP: SCREEN MANAG
0x03b14c…03b2e0 Dummy {f00=0x000c, f01=0x0190, f02=»* I: INTERFACE BETWEEN FUNCTION MODULE, FORMATS AND * L P* SPAPXX-ROUTINES, MAY NOT BE USED BY OTHER ROUTINES * P L P* K: CONSTANTS * L P* N: NUMERIC VARI
0x03b2e0…03b474 (1, 74) Dummy {f00=0x000c, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x03b474…03b608 Dummy {f00=0x000c, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x03b608…03b79c Dummy {f00=0x000c, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x03b79c…03b930 Dummy {f00=0x000c, f01=0x0190, f02=»* ALF: ALPHANUMERIC AVB: AVAILABLE * L P* BAL: BALANCE BCK: BACK * P L P* BLK: BLOCK BOK: BOOK * L P* BUY: BUY(ING)
0x03b930…03bac4 Dummy {f00=0x000c, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x03bac4…03bc58 Dummy {f00=0x000c, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x03bc58…03bdec Dummy {f00=0x000c, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x03bdec…03bf80 Dummy {f00=0x000c, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x03bf80…03c114 (1, 75) Dummy {f00=0x000c, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x03c114…03c2a8 Dummy {f00=0x000c, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x03c2a8…03c43c Dummy {f00=0x000c, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x03c43c…03c5d0 Dummy {f00=0x000c, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x03c5d0…03c764 Dummy {f00=0x000c, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x03c764…03c8f8 Dummy {f00=0x000c, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x03c8f8…03ca8c Dummy {f00=0x000c, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J P************************************************************
0x03ca8c…03cc20 Dummy {f00=0x000c, f01=0x0190, f02=»OP P UWB UA1 P UWB UA2 P UWB UT1 * P UWB UT2 : P CWB CK1 J P CWB CK2 Z P UWB UQQ j * PSPDSSCRN DSET FC=X'50',DEV=DY,BUFL=82 z " PSPDSDYKB DSET FC=X'20',DEV=KA PDSDI DSET FC=X'41',DEV=DI * PSPDSPRT DSET FC=X'30',DE
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x000c, f01=0x0190, f02=»C=X'22',DEV=BC * PSPDSCPY DSET FC=X'32',DEV=GP,BUFL=112 PDSDBS DSET FC=X'C0',DEV=DL D 0 PDSEKOSA DSET FC=X'60',DEV=MS ZEKOSA MSU-UNIT f " PDSFMTFLE DSET FC=X'CA',DEV=DL 8 PDSLNEPRT DSET FC=X'80',DEV=LP,BUFL=110,BUFDS=SPDSPRT PTNDSET DSET
0x03cdb4…03cf48 Dummy {f00=0x000c, f01=0x0190, f02=»BLK P* P* P* P* TND INDICATORS * P* B P* L PNOPF BOOL F V PTNDBAD BOOL F j PTNDNDU BOOL F PTNDRCF BOOL F PTNDTRY BOOL F PTNDOPF BOOL F PCASEMP BOOL F PPAYOK BOOL F PTNDBLK
0x03cf48…03d0dc Dummy {f00=0x000c, f01=0x0190, f02=»S x P* P* PVCVOLNR1 STRG 3 DBS-VOLNR PVCVOLNR2 STRG 3 FMT-VOLNR @ . PNDLASTRM BCD 4D'100' LAST TERMINAL NUMBER b PFCPARAM STRG 102 PFCPARAM1 STRG 66 8 P* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY) PKDCHECKS
0x03d0dc…03d270 Dummy {f00=0x000c, f01=0x0190, f02=»', 2:LIST C t P P '1','0','1','1','3','1','3', 3:OPEN C P P '1','1','1','1','0','1','0', 4:CLOSE C n P P '1','1','1','1','0','1','0', 5:BLOCK C
0x03d270…03d404 Dummy {f00=0x000c, f01=0x0190, f02=»INQUIRY C j N P '1','1','1','1','0','1','0', 8:DAILY STATEMENTS ( ) C . P P '2','1','2','0','2','0','2', 9:IN C P P '2','2','1','0','2','0','2', 10:OUT C
0x03d404…03d598 Dummy {f00=0x000c, f01=0x0190, f02=»* TND VARIABLES " PDELAMT BCD 8 AMOUNT TO DELIVER PTNDDVS STRG 4C DEVICE STATUS > ( PTNDREJ STRG 16C REASONS FOR LAST 16 b " P ..REJECTS, FOLLOWED BY '0' $ PNDMAP STRG '3210' CASSETTE ORDER * PNDDUMP BCD 4D NUMBER OF REJECTED NOTES $
0x03d598…03d72c Dummy {f00=0x000c, f01=0x0190, f02=»UMN 1: CHECK CURRENCY OFF * L P* COLUMN 2: CHECK CHEQUE OFF * B L P* COLUMN 3: CHECK NOBOOK OFF * L P* COLUMN 4: CHECK
0x03d72c…03d8c0 Dummy {f00=0x000c, f01=0x0190, f02=» COLUMN 6: CHECK INPUT-FIELD EMPTY * > P* COLUMN 7: CHECK ZEKOSA B L P* IF KDCHECKS(I,J) = 1 * L P* THEN FOR FUNCTION I, CHECK J WILL BE PERFORME
0x03d8c0…03da54 (1, 77) Dummy {f00=0x000d, f01=0x0190, f02=»BE PERFORMED L P************************************************************************ L PCSY BLK d L P* * L P****
0x03da54…03dbe8 Dummy {f00=0x000d, f01=0x0190, f02=» * T L P* SYSTEM RECORD * L P* * d L P************************************************************************ L PYDSY
0x03dbe8…03dd7c Dummy {f00=0x000d, f01=0x0190, f02=» T PYDSTATUS BCD 2 L P* 0 = SYSTEM NOT STARTED * * . P* 1 = SYSTEM START OR CLOSE PROGRESSING z L P* 2 = SYSTEM STARTED * P* 3 = SYST
0x03dd7c…03df10 Dummy {f00=0x000d, f01=0x0190, f02=» j L PYDMLPINT BCD 2 LINE PRINTER INTEGRATED ! * L PYCTEXT STRG 25 DEMO TEXT ! z L PYDLASSAV BCD 12 LAST SAVINGS ACCOUNT NUMBER
0x03df10…03e0a4 Dummy {f00=0x000d, f01=0x018e, f02=» ! j L PYDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. " * L P************************************************************************ " z P* " P* TWB VARIABLES " P* " L P******************
0x03e0a4…03e238 Dummy {f00=0x000d, f01=0x0190, f02=» " F L P* * # L PSBKEY1 BOOL TRUE # X L PSBKEY2 BOOL FALSE # L PSBCANCEL BOOL FA
0x03e238…03e3cc Dummy {f00=0x000d, f01=0x0190, f02=» # H ( PSBTRMBLK BOOL FALSE TERMINAL BLOCKED $ PSBFT80 BOOL FALSE $ 4 * PSBMSU BOOL FALSE MAGNETIC STRIPE UNIT $ N " PSBTND BOOL FALSE TND AVAILABLE $ | * PSBFT80OP BOOL F FT80OP OPEN INDICATOR $ . PSBCP80 BOOL F COPY80 (HP75) PRESENT (.T.) $ L PNWUWBN
0x03e3cc…03e560 Dummy {f00=0x000d, f01=0x0190, f02=» NUMBER $ z L P************************************************************************ % L P* * % ` L P* TERMINAL RECORD * % L P*
0x03e560…03e6f4 (1, 78) Dummy {f00=0x000d, f01=0x0190, f02=»******** % P L PRDTRMRNR BCD 12 RECORD NUMBER & L PRDUMMY BCD 6 & ` L PRCTRMNME STRG 20 TERMINAL NAME & L PRDSTATUS
0x03e6f4…03e888 Dummy {f00=0x000d, f01=0x0190, f02=» * & P L P* 1 = TERMINAL SPECIFIED * ' L P* 2 = TERMINAL STARTED * ' ` L P* 3 = OPERATOR LOGGED ON * ' 0 PRDSCRLNS
0x03e888…03ea1c Dummy {f00=0x000d, f01=0x0190, f02=» 2D'0' SHARED PRINTER ' L PRDPRTTYP BCD 2D'0' PRINTER TYPE ( D L PRDBCR BCD 2D'0' BADGE CARD READER ( L PRDODR BCD 2D'0' OPTICAL DOCUMENT REA
0x03ea1c…03ebb0 Dummy {f00=0x000d, f01=0x0190, f02=»'0' TELLER NOTE DISPENSER ( L P************************************************************************ ) " P* ) r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES ) | P* ) L P************************************************************************ )
0x03ebb0…03ed44 Dummy {f00=0x000d, f01=0x0190, f02=»L FALSE USED IF ERROR IN ZEKOSA ) P ...USAGE * ( PSPBINW1 BIN W'0' * < PSPBINW2 BIN W'0' * T PSPBINW3 BIN W'0' * l PSPBINW4 BIN W'0' * . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES * PWW1 BIN * PWW2 BIN * PWW3 BIN * PWWINDEX1 B
0x03ed44…03eed8 Dummy {f00=0x000d, f01=0x0190, f02=»PUT STRG 32 * . PSPLSTLNE BCD 4D'1' LAST LINE ON THE SCREEN + L P************************************************************************ + F L P* * + 6 P* MISCELANEOUS RESERVED VARIABLES
0x03eed8…03f06c Dummy {f00=0x000d, f01=0x018e, f02=»**************************************** + p PUBF BLK , 0 P* , @ PSBUSEDWB BOOL FALSE UWB USED , J " P* RESERVED VARIABLES FOR XBFMT , n 0 PNWTOTBYT BIN BYTES TO BE PROCESSED (XBFMT) , $ PNWPTR BIN MATCH POINTER (XBFMT) , $ P* RESERVED VARIABLES FOR
0x03f06c…03f200 Dummy {f00=0x000d, f01=0x0190, f02=» PSBCHEQUE BOOL FALSE - PSBNOBOOK BOOL FALSE - . PSBRVS BOOL FALSE REVERSAL SWITCH (BESELF) - < PSBCARD BOOL FALSE - n " PSBZEK BOOL FALSE ZEKOSA SWITCH - 2 PSBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF) - 0 PSBOPRCLS BOOL FALSE OPERATOR CLOSE (
0x03f200…03f394 (1, 79) Dummy {f00=0x000d, f01=0x0190, f02=» ) PRINT LINES ON - ~ & PSBVCH BOOL FALSE ) VOUCHER (PCVCH) . 0 PNDNEWLNE BCD 4 NEXT FREE LINE (PRINT ROUT'S) . D 2 PNDPRTTRS BCD 12 NEXT TRS. FOR PRINT (PRT RT'S) . x , PVCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER . ( PSBFIL1 BOOL FALSE ***************** . $
0x03f394…03f528 Dummy {f00=0x000d, f01=0x0190, f02=»L FALSE ***************** . . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES / " PWCSTRG6 STRG 6 / T PWC1STRG8 STRG 8 / j PWC2STRG8 STRG 8 / PWCSTRG12 STRG 12 / PWCSTRG25 STRG 25 / L P**************************************************************
0x03f528…03f6bc Dummy {f00=0x000d, f01=0x0190, f02=» L P* * 0 L P* BUFFER USAGE: * 0 T L P* IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE * 0 L P* BUFFER 'FCFORMAT
0x03f6bc…03f850 Dummy {f00=0x000d, f01=0x0190, f02=» L P* AGAIN. * 1 L P* SO WHEN IN SCREEN MANAGEMENT THESE TWO BUFFERS MAY NOT BE USED!!! * 1 T L P* 'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE, * 1 L P* TO READ ERRORS A
0x03f850…03f9e4 Dummy {f00=0x000d, f01=0x0190, f02=» L P* * 2 4 PFCBUFFER STRG 399 BUFFER FOR DATABASE AND MSG'S 2 T $ PFCFMTBUF STRG 255 FORMAT BUFFER 2 $ PFCFORMAT STRG 800 FORMAT STORAGE 2 2 PFCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOI
0x03f9e4…03fb78 Dummy {f00=0x000d, f01=0x0190, f02=» 2 b L P* * 3 " L P************************************************************************ 3 r L P*
0x03fb78…03fd0c Dummy {f00=0x000d, f01=0x0190, f02=» * 3 b L P************************************************************************ 4 " L PSBSTTO BOOL FALSE START OPERATOR 4 r L PSBOACT BOOL FALSE OPEN ACCOUNT
0x03fd0c…03fea0 Dummy {f00=0x000d, f01=0x0190, f02=» 4 b L PSBDACT BOOL FALSE DEBLOCK ACCOUNT 5 " L PSBUACT BOOL FALSE UPDATE ACCOUNT 5 r L PSBUCCY BOOL FALSE UPDATE CURRENCY
0x03fea0…040034 (1, 80) Dummy {f00=0x000d, f01=0x0190, f02=» 5 b L PSBCOPR BOOL FALSE OPERATOR CLOSE 6 " L PSBCSYS BOOL FALSE SYSTEM CLOSE 6 r L PSBECCY BOOL FALSE CURRENCY EXCHANGE
0x040034…0401c8 Dummy {f00=0x000d, f01=0x0190, f02=» 6 b PSBWDR BOOL FALSE 7 " L PIWINDEX1 BIN 7 : L PIDACTNR1 BCD 12 7 L PIDACTNR2 BCD 12
0x0401c8…04035c Dummy {f00=0x000d, f01=0x018e, f02=» 7 z L PIDNR1 BCD 12 8 : PIDNR2 BCD 12 8 PIDNR3 BCD 12 8 PIDNR4 BCD 12 8 PICSTRG1 STRG 1 8 PICTEXT1 STRG 6 8 PICTEXT2 STRG 25 8
0x04035c…0404f0 Dummy {f00=0x000d, f01=0x0190, f02=» 8 p L P************************************************************************ 9 PUCY BLK 9 X P* 9 h L P************************************************************************ 9 r L P*
0x0404f0…040684 Dummy {f00=0x000d, f01=0x0190, f02=» * 9 b L P************************************************************************ : " " PCDCCYRNR BCD 12 RECORD NUMBER : r PCDUMMY BCD 6 : " PCCCCYNME STRG 20 CURRENCY NAME : " PCCCCYCDE STRG 4 CURRENCY CODE : PCDBUY1 BCD 8 BUY
0x040684…040818 Dummy {f00=0x000d, f01=0x0190, f02=»12 LIMIT OF RATE 1 : PCDRELAT BCD 6 RELATION ; L P************************************************************************ ; 8 L PUOP BLK ; L P*
0x040818…0409ac Dummy {f00=0x000d, f01=0x0190, f02=» * ; x L P* OPERATOR RECORD * < 8 L P* * < L P************************************************
0x0409ac…040b40 Dummy {f00=0x000d, f01=0x0190, f02=» < x L POCPASS STRG 6 PASSWORD = 8 L POCNAME STRG 18 OPERATOR NAME = L PODSTATUS BCD 2
0x040b40…040cd4 (1, 81) Dummy {f00=0x000e, f01=0x0190, f02=»ISED * = x L P* 2 = OPERATOR LOGGED ON * > 8 L PODTRMNR BCD 4 TERMINAL NUMBER > L PODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR
0x040cd4…040e68 Dummy {f00=0x000e, f01=0x0190, f02=» * > x L P* 1,1 : BALANCE CURRENCY 1 * ? 8 L P* 1,2 : BALANCE CURRENCY 2 * ? L P* 1,3 : BALANCE CURRENCY 3
0x040e68…040ffc Dummy {f00=0x000e, f01=0x0190, f02=» * ? x L P* 2,1 : ACCUMULATED CHEQUES * @ 8 L P* 2,2 : ACCUMULATED TRANSFERS * @ L P* 2,3 : ACCUMULATED DEPOSITS
0x040ffc…041190 Dummy {f00=0x000e, f01=0x0190, f02=» * @ x L P* 3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD * A 8 L P* 3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD * A L P* 3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SO
0x041190…041324 Dummy {f00=0x000e, f01=0x0190, f02=»RRENCY BOUGHT - LOCAL VALUE * A x P* B 8 P* B B P* B L P* T N D REGISTERS: B V P* - - - ---------- B r P* B 8 PNOTES BCDI (4),5D'10000',5D'5000',5D'2000',5D'1000' B * PTNDREG BCDI (4),5D NUMBER OF NOTEST TO B P ..D
0x041324…0414b8 Dummy {f00=0x000e, f01=0x0190, f02=» B v L P************************************************************************ C L PUA1 BLK C X L P* * C 0 PSBCHQACT BOOL FA
0x0414b8…04164c Dummy {f00=0x000e, f01=0x0190, f02=» * C | L P* ACCOUNT RECORD 1 * D < L P* * D L P********************************************
0x04164c…0417e0 Dummy {f00=0x000e, f01=0x0190, f02=»NUMBER D | L PACNAME STRG 20 E < L PACADDRES STRG 20 E L PACTOWN STRG 20
0x0417e0…041974 (1, 82) Dummy {f00=0x000e, f01=0x0190, f02=» E | L P* 0 = DEBLOCKED * F < L P* 1 = BLOCKED * F L P* 2 = CLOSED WITHOUT STATEMENT
0x041974…041b08 Dummy {f00=0x000e, f01=0x0190, f02=»E F | L PADLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE G < L PADLASTRS BCD 12 LAST TRANSACTION G L PADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED
0x041b08…041c9c Dummy {f00=0x000e, f01=0x0190, f02=» G X L PADWDRCUM BCD 12 ACCUMULATED WITHDRAWALS H 2 PADLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. H h ( PACRECNR STRG 3 INDEX 2 FOR DATABASE H L P**************************************************************
0x041c9c…041e30 Dummy {f00=0x000e, f01=0x0190, f02=» * H j L P************************************************************************ I * L P* * I z L P* ACCOUNT RECORD 2
0x041e30…041fc4 Dummy {f00=0x000e, f01=0x0190, f02=»********************************** I j L PBDACTRNR BCD 12 RECORD NUMBER J * L PBDCARDNR BCD 6 CARD NUMBER J z L PBCNAME STRG 20
0x041fc4…042158 Dummy {f00=0x000e, f01=0x0190, f02=» J j L PBCPASS STRG 6 PASSWORD K * L PBDSTATUS BCD 2 K z L P* 0 = DEBLOCKED
0x042158…0422ec Dummy {f00=0x000e, f01=0x0190, f02=» * K j L P* 3 = CLOSED WITH STATEMENT * L * L PBDBAL BCD 12 BALANCE L z L PBDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE
0x0422ec…042480 Dummy {f00=0x000e, f01=0x0190, f02=»MENTED L j L PBDLNENR BCD 4 FIRST FREE LINE IN BOOK M * L PBDDEPCUM BCD 12 ACCUMULATED DEPOSITS M z L PBDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS
0x042480…042614 (1, 83) Dummy {f00=0x000e, f01=0x0190, f02=»******** M P L PUT1 BLK N L P* * N ` L P************************************************************************ N L P*
0x042614…0427a8 Dummy {f00=0x000e, f01=0x0190, f02=» * N P L P* * O L P************************************************************************ O ` L PTDTRSRNR BCD 12 RECORD NUMBER O L PTDUMMY B
0x0427a8…04293c Dummy {f00=0x000e, f01=0x0190, f02=» O P L PTDDATE BCD 8 TRANSACTION DATE P L PTDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE P ` L PTDOPRNR BCD 12 OPERATOR NUMBER P L PTDTRSSEQ
0x04293c…042ad0 Dummy {f00=0x000e, f01=0x0190, f02=» P P L PTDNEWBAL BCD 12 NEW BALANCE Q L PTDACTFRM BCD 12 ACCOUNT FROM Q ` L PTDCHQNR BCD 8 CHEQUE NUMBER Q L PTCTEXT S
0x042ad0…042c64 Dummy {f00=0x000e, f01=0x0190, f02=»******** Q P L PUT2 BLK R L P* * R ` L P************************************************************************ R L P*
0x042c64…042df8 Dummy {f00=0x000e, f01=0x0190, f02=» * R P L P* * S L P************************************************************************ S ` L PUDTRSRNR BCD 12 RECORD NUMBER S L PUDUMMY B
0x042df8…042f8c Dummy {f00=0x000e, f01=0x0190, f02=» S P L PUDDATE BCD 8 TRANSACTION DATE T L PUDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE T ` L PUDOPRNR BCD 12 OPERATOR NUMBER T L PUDTRSSEQ
0x042f8c…043120 Dummy {f00=0x000e, f01=0x0190, f02=» T P L PUDNEWBAL BCD 12 NEW BALANCE U L PUDACTFRM BCD 12 ACCOUNT FROM U ` L PUDCHQNR BCD 8 CHEQUE NUMBER U L PUCTEXT S
0x043120…0432b4 (1, 84) Dummy {f00=0x000e, f01=0x0190, f02=»******** U P P* V , P* COMMON WORK-BLOCK CONTAINING CONSTANTS V P* V J L P************************************************************************ V T PCK1 BLK V P* V PKW0 BIN W'0' V PKW1 BIN W'1' V PKW2 BIN W'2' V PKW3 BIN W'3' V
0x0432b4…043448 Dummy {f00=0x000e, f01=0x0190, f02=»BER OF FORMATS V z PKD1 BCD 2D'1' W * PKDMAXLGG BCD 2D'4' NUMBER OF LANGUAGES W , 2 PKDSHIFT BCD D'100' SHIFT TO GET RECORD NUMBER W Z PNDDATE BCD 8 W PNDTIME BCD 8 W PVCTIME STRG 6 W L P**********************************************************
0x043448…0435dc Dummy {f00=0x000e, f01=0x0190, f02=»************************** W b PCK2 BLK X " P* X 2 0 P* INDICES IN THE FUNCTION KEYTABLE 'FNCKTB' X < PKWSTART BIN W'3' X p PKWEND BIN W'4' X PKWEOI BIN W'1' X PKWCONT BIN W'20' X PKWCANCEL BIN W'19' X PKWCLEAR BIN W'21' X . P* LENGTH
0x0435dc…043770 Dummy {f00=0x000e, f01=0x0190, f02=»BLES X h PKWSPEOI BIN W'3' Y PKWSPCANC BIN W'4' Y $ PKWSPCONT BIN W'17' Y > PKWSPCLR BIN W'1' Y X 0 P* LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES Y p * PKWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 Y ( PKWSPKTB3 BIN W'12' LENGTH OF SPKTAB3 Y , P* 6371 PRI
0x043770…043904 Dummy {f00=0x000e, f01=0x018e, f02=»6',4X'9766',4X'9966',4X'9866',4X'8066', C Y 6 P 4X'9166',4X'8066',4X'8055',4X'8044',4X'8044', C Z 2 6 P 4X'9044',4X'9055',4X'9055',4X'9066',4X'9044', C Z l P 4X'9A66' Z L P************************************************************************ Z P
0x043904…043a98 Dummy {f00=0x000e, f01=0x0190, f02=» Z F PUQQ BLK [ P* [ $ P* VARIABLES RESERVED FOR SPAPPL [ " * PNWRETCDE BIN W'0' RETURN CODE (SPAPPL) [ J P* SWITCHES USED BY XAKBIN [ x . PSBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN) [ P* SWITCHES USED BY DPECCY [ 4 PSBEOI BOOL FALSE AMT. QUOT
0x043a98…043c2c Dummy {f00=0x000e, f01=0x0190, f02=»* SWITCHES USED BY DKDSTM [ 4 PSBFIRST BOOL FALSE DISPLAY TRANS. DATE (DKDSTM) " 4 PSBDSDEP BOOL FALSE TRANS. IS A DEPOSIT (DKDSTM) Z 6 PSBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) 4 PSBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM) 4 PSBDS
0x043c2c…043dc0 Dummy {f00=0x000e, f01=0x0190, f02=» BIN RECORD LENGTH (ZDSCIO) PMAXOUT BIN W'50' ] $ ( PCASMAX BIN W'4' MAX NO. OF CASSETTES ] < PKW7 BIN W'7' ] h P ] | PKW8 BIN W'8' ] PKW9 BIN W'9' ] 0 PNDLRN1 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO) ] 0 PNDLRN2 BCD 12 LOGICAL RECORD NUMBER (ZDS
0x043dc0…043f54 (1, 85) Dummy {f00=0x000f, f01=0x40c4, f02=» ] ^ 6 PSBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO) ^ L P************************************************************************ ^ B P PDIV ^ P* ^ P* ^ P END ^ @ ^
0x043f54…0440e8 Dummy {f00=0x000f, f01=0x2008, f02=» _ NT DEMODDIV DDIV TERM A0 * CWB CW1 : TWB TW1 J UWB UW1 Z & "SPDSSCRN DSET FC=50,DEV=DY,BUFL=86 j SPDSDYKB DSET FC=20,DEV=KA DSDI DSET FC=40,DEV=DI & "SPDSPRT DSET FC=30,DEV=GP,BUFL=100 DSFMTFLE D
0x0440e8…04427c Dummy {f00=0x000f, f01=0x0190, f02=»SECTOR NUMBER:; POSITION:;HEX.VALUE:; FILE ORG:;VOLUME NAME DEST. DISC:;***INPUT DEFINITION***; ***OUTPUT DEFINITION***;PACK:;OUTPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE
0x04427c…044410 Dummy {f00=0x000f, f01=0x0190, f02=»:;START SWITCH ON SOP:; MORE THAN ONE APPLICATION :;DATA SET NAME:; BOE-SECTOR:;EOE-SECTOR:;EXPIRATION DATE:; VOLUME INITIALIZATION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD
0x044410…0445a4 Dummy {f00=0x000f, f01=0x0190, f02=»DEX FILE:;SUB-KEY ADDRESSES IN RECORD:; SUB-KEY LENGTHS IN RECORD:; ***WORK FILE DEFINITION***; WORK FILE NAME:;SORTING IN ASCENDING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; CO
0x0445a4…044738 Dummy {f00=0x000f, f01=0x0190, f02=»PTION ***;TESTING METHOD (I/A/Q):;CALCULATIONS OF NO. OF USED RECORDS AND FILLING DEGREE:;NEW FILE NAME:; DISC DEVICE : ;TAPE DEVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIM
0x044738…0448cc Dummy {f00=0x000f, f01=0x0190, f02=»OT USABLE;DISC I/O ERROR.;PRINTER NOT OPERABLE; TOO MANY SECTORS IN FILE; DISC OVERFLOW;TOO MANY EXTENTS NEEDED;ILLEGAL BLOCK LENGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EM
0x0448cc…044a60 Dummy {f00=0x000f, f01=0x0190, f02=»ECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TAPE MARK MISSING AFTER LABEL RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPU
0x044a60…044bf4 (1, 86) Opaque[0x194]
0x044bf4…044d88 # DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01e8, f03=0x0000}
0x044bf4…044d88 IdxSect {
0x044bf4…044d88 f00 = 0x000f // 0x44bf4 @0x0
0x044bf4…044d88 f01 = 0x0020 // 0x44bf6 @0x2
0x044bf4…044d88 gno = [ // 0x44bf8 @0x4
0x044bf4…044d88 [0x00]: C0x000f.0x1.0
0x044bf4…044d88 [0x01]: C0x000f.0x2.0
0x044bf4…044d88 [0x02]: C0x000f.0x3.0
0x044bf4…044d88 [0x03]: C0x0010.0x0.0
0x044bf4…044d88 [0x04]: C0x0010.0x1.0
0x044bf4…044d88 [0x05]: C0x0010.0x2.0
0x044bf4…044d88 [0x06]: C0x0010.0x3.0
0x044bf4…044d88 [0x07]: C0x0011.0x0.0
0x044bf4…044d88 [0x08]: C0x0011.0x1.0
0x044bf4…044d88 [0x09]: C0x0011.0x2.0
0x044bf4…044d88 [0x0a]: C0x0011.0x3.0
0x044bf4…044d88 [0x0b]: C0x0012.0x0.0
0x044bf4…044d88 [0x0c]: C0x0012.0x1.0
0x044bf4…044d88 [0x0d]: C0x0012.0x2.0
0x044bf4…044d88 [0x0e]: C0x0012.0x3.0
0x044bf4…044d88 [0x0f]: C0x0013.0x0.0
0x044bf4…044d88 ]
0x044bf4…044d88 }
0x044d88…044f1c Dummy {f00=0x000f, f01=0x0190, f02=»`< wn CR> L D K fD Q D V VD [ D a D g D m D s n p
0x044f1c…0450b0 Dummy {f00=0x000f, f01=0x0190, f02=» R P R A 0 p 1 b p + " 2 p ` n e A0 | 2 f x F P ` @ vA0 0 * 8 UBF UIF UCY UOP UA1 UA2 UT1 UT2 UQQ (
0x0450b0…045244 Dummy {f00=0x000f, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N
0x045244…0453d8 Dummy {f00=0x000f, f01=0x0190, f02=» * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F : 0 0 0 @
0x0453d8…04556c Dummy {f00=0x000f, f01=0x0190, f02=»
[…0x3…]
0x045a28…045bbc Dummy {f00=0x000f, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x045bbc…045d50 Dummy {f00=0x000f, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x045d50…045ee4 Dummy {f00=0x000f, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x045ee4…046078 Dummy {f00=0x000f, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x046078…04620c Dummy {f00=0x000f, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @`< < v D @ 8 H L x`8 D E X_j DEX D' W^j D W D*j D DF0 DP 0 1 A A24 0 4 1 P 3V W Y W@3 % % 1 Xt 1r2(3 X 2 3 X X 1$X L3 b$ 0 X X X W`4&4 1 &j/ #
0x04620c…0463a0 Dummy {f00=0x000f, f01=0x0190, f02=» / 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-
0x0463a0…046534 (1, 88) Dummy {f00=0x000f, f01=0x0190, f02=»ZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- ? < < < < . ] FORMATFILE OPEN UNSUCCESSFULL e e e e e e
0x046534…0466c8 Dummy {f00=0x000f, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D F H J L N P R T V X Z ^ ` b d f h j l n p r t v x z | ~
0x0466c8…04685c Dummy {f00=0x000f, f01=0x0190, f02=» % * / 5 ; A G N U ] e m v 3 I _ / u ! Q ! t 4 j T& P 4 ' W T 4 & Q <W P W @
0x04685c…0469f0 Dummy {f00=0x000f, f01=0x0190, f02=» : A A : A @ P 8 T Z T : @ A _( : W W ( B P X A : @ A | ~ P R _ : 0 E T : : A @ @ : t A ~ P * Z : A 8 T P A : : $
0x0469f0…046b84 Dummy {f00=0x000f, f01=0x0190, f02=»
0x046b84…046d18 Dummy {f00=0x000f, f01=0x0190, f02=» 4 4 4 F 8 1 Y ` 4 #0 = 4h & + P _ =d ` 4
0x046d18…046eac Dummy {f00=0x000f, f01=0x0190, f02=» Q Y W X " X X . 8 #j 0J X 0P X T 5 ! Y * y X V. X ' X ( '$ x C ( Y * X Y , ' X X C & C C ( B Ph9 R^9 !> X !@PP X X * b ) Y * Y , X , '
0x046eac…047040 Dummy {f00=0x000f, f01=0x0190, f02=» X * _R X !@XX y X # x V y X X * '$ P P 1 _ 1 X * X X * $" X D % " X # X * '$ y _< X # X * y '$ X 1 1 X !@T X $ " P y _ x T ". ! X H X X * , )$ P _ : X
0x047040…0471d4 (1, 89) Dummy {f00=0x0010, f01=0x0190, f02=» x Tf B !~9 R 9 !> X ! T ! _ y C Q " T 'L '$ X ! "N X X ! x Y~ Y _ X "@P B R y C B P 9 V ! _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c 04 C _$ _ " y _6
0x0471d4…047368 Dummy {f00=0x0010, f01=0x0190, f02=» x X X # '$_ " O C C ( # B P B " C & : + 'L X ' '$ ( 1 4 ( 1 / : B "^ C _J + . 0J X 9 V ! P @ Y 4 #0 = Y Y . X ! = : 4l 4 " 4 " " 4
0x047368…0474fc Dummy {f00=0x0010, f01=0x0190, f02=»04 '* 0@ 0J 4 !0 = X 0F #j 02 1 ' 4 ! Y 0T V 1 7 : 0J 2' =T 4 " P # P = R P P X ' ' ` X _ X ' _ X '?_ 0J 4 ! P # P = X ' 0F X ! 02 04 0J X " 9b! X
0x0474fc…047690 Dummy {f00=0x0010, f01=0x0190, f02=»9h Q X :h Y 0 ' W U X Q ( W Y 0 ' )N Z [B [ Z 0J 9H Y * & W W & 0 Z X 0T =X X 2Z X +" X *9h P: R Y ?_ P R P R =T Y +Wl &N Y + &@ ' WZ T R( &@ & WJ Q W Y + U Q =T Y
0x047690…047824 Dummy {f00=0x0010, f01=0x0190, f02=» X 0 :H* 0R : X 2T Y 2 : C 1 B ] ZB : 0 & X +! =T X +! U 9K Y ( Y + ' )N 0J9H Y * 2 Y ( Y ? Y + 4 & 4 0 4R & 6 2 X 0 =X : ! P # T : = C ( C : C B _( _ 0 X '
0x047824…0479b8 Dummy {f00=0x0010, f01=0x0190, f02=»# V : 4 ; _0 7`_>< < 4 < < < < < < <@;@<@: ) * * < ) < < ;: W W X 0Q ( ( Y ( Y *P Z : ' X <' X X :: 0J X *# X ( " Q " P X 0PR V _` " PL T " Ph .2 1 Wp " P Y 0] Y (_z P P T0
0x0479b8…047b4c Dummy {f00=0x0010, f01=0x0190, f02=» Z / C W @ X (T W X y 6 Y ( : X (;n 04< ; ^(; ; *F< < < <,;@<6: ) *j*j<J) < ; ;: 0J Y . Y ,W 0J Y . X ( X ." PV X 0RzT$ Y *P U :H 0R )X K T < W < X . X 2QP Y *T2 < : " P$ X 0U X *# P P T " T :
0x047b4c…047ce0 Dummy {f00=0x0010, f01=0x0190, f02=»T X &P V H " P < / 0J X ?! P* R Q$ X &P V D ! P $ ! P %_ < : 0J V Y " X .9H $ <p P & X ( " Q Y +Q R " P W " U -F Y , " Q " = X . X 0R P" X *:h P PD = ) Y (W X *:h Pt Pn P
0x047ce0…047e74 (1, 90) Dummy {f00=0x0010, f01=0x0190, f02=» ( ;@ : X *:h X (! # P X & V L TbW X , X 0P@ -z T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l - _r X ( P Y (_ P* - P| Y 8 * X 8 X $ 0RWh_ " P X ( T X & V H "@TF - P6 V Y X (P / -
0x047e74…048008 Dummy {f00=0x0010, f01=0x0190, f02=» ( P - : : -^ "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : 0J X : X ( T X & V H " V Y : X $ 0R X : 0f : X Y " X Y $ X Y & X >W X < Y = " 1 ! T W < ! P =H <
0x048008…04819c Dummy {f00=0x0010, f01=0x0190, f02=» X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 4 W Y ! P 4ZW V Y / V Y : 4 ; : 2' " P T 7`W 4^ ^( : / : 0 0J Z / C 0@ X 0R : "0P ' Q W ' Y
0x04819c…048330 Dummy {f00=0x0010, f01=0x0190, f02=»0J X @ ; [ [FW 0J X B ; [ [B [ Z : :( R : V E V D ' $ =t W 0 P ` X =' V W V Y =P 0 : Z "Q V I ` Z ( T _, @] X2 @] _< 4 1
0x048330…0484c4 Dummy {f00=0x0010, f01=0x0190, f02=» ( ` 4 #0 T 4 #0 T V ` = 2 & = >A >A 2 $ 4 & V D 9a 9 V @ W @ T 3 X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X ( R 9 8 ?
0x0484c4…048658 Dummy {f00=0x0010, f01=0x0190, f02=» 9T I Y ` 9 _ ( XN W ] Yl XN W 3 Yl _ 4R &:K : X$ W / Yh W( X$/ W W ] Yl X$/ _ X$ W / Yh X$/ Yh X$ W Yh :l:d:h 4 W W P W 6
0x048658…0487ec Dummy {f00=0x0010, f01=0x0190, f02=» W D V L4B , W 6 2 7 W$ " P& Pd" # 6 ;b Wv " ;d# _ [ v [ 1 4 1 Z Z : R ; 4 6 : F _v =(:B , (V ; H [ [ [ 4 Z (
0x0487ec…048980 Dummy {f00=0x0010, f01=0x0190, f02=» 7P : Z 4 " 2@P : [ [ 4 & @ ! P = Z = [ 6 [ Z 7 4h Z 7 : T # ( 5t 54 " T # :A ( @ " P ! P [ :;H 2 ;h R # # XR : ; V Y :
0x048980…048b14 (1, 91) Dummy {f00=0x0010, f01=0x0190, f02=» 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q 8n ,^ , < 8v # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V
0x048b14…048ca8 Dummy {f00=0x0010, f01=0x0190, f02=»9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : !! gg++ L 33 < 4R4h7r< 7`4^4 < ; ^(; ; < < < < <,;@<6: < <f<f<J< < ; ;: :N 6 : K
0x048ca8…048e3c Dummy {f00=0x0010, f01=0x0190, f02=» '?W "? H9 " K :e J J " J _Z Z ; [ Z P 0 [ V =( 7_ W Z ; @ ! P 0 Z 7 Z Z P 0 : V R (Q V : : : J P v I < :
0x048e3c…048fd0 Dummy {f00=0x0010, f01=0x0190, f02=»X & Z J K : V : J T =8 1 ; <p : ! P ! P ! P ! P 4 ! P 4ZW : ! )P9H " = # T &W &" :I : < : P & _ &X _ : =H : : : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP
0x048fd0…049164 Dummy {f00=0x0010, f01=0x0190, f02=» lJ ** Ak Ak ER Ak R Ak k A >r R 4 A 4 $ Ak k U 4 1 _ "T @ % W T, @ % 1 X & A Ak m k @k B ` ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT
0x049164…0492f8 Dummy {f00=0x0010, f01=0x0190, f02=»ITHM OVERFLOW STACK OVERFLOW &IX OVFL,ARRAY: ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER
0x0492f8…04948c Dummy {f00=0x0010, f01=0x0190, f02=» ERROR DATASET BUSY ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE FILE ORGANIZATION UNDEFINED SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE:
0x04948c…049620 Dummy {f00=0x0010, f01=0x0190, f02=» $ $T$ D BR V T D P T D @PL E @W . @C P$ B C $ $P BT , D E @ : @A P AA H ADlW TW V AA Dr Dp V ADt @ ( E ( AA Dp @Dt V P ( R W A @ ( E : @ ( F : ADv ADx E AA Dr V ADt @ # P (
0x049620…0497b4 (1, 92) Dummy {f00=0x0010, f01=0x0190, f02=»
0x0497b4…049948 Dummy {f00=0x0010, f01=0x0190, f02=» Dz Vn( ( Vn( EB U D "! AE U U @Dp @Dt @E P (
0x049948…049adc Dummy {f00=0x0010, f01=0x0190, f02=» U U U Dr UZ @DvP U @Dx UZ ADv AE V AE "V # ( EB U AE P UW T U U AE P V G| S F @Gh GF =H WH QI MJZ /K SL IL JM TN YN( GN^ LN PN HN RN VN KO U U _ G UZ_ NO! AG` AGb AGd
0x049adc…049c70 Dummy {f00=0x0010, f01=0x0190, f02=»" , AGx L AGt L @ AGp AGv_T P X ,T P X ) AGl AGn U S HL H ;Hp :H H @GvP AGz1+X AGz_ H @Gh AG` @Gj AGb @Gl AGd @Gn AGf_ S. AGt @GpV SJ H " @GvT " @Gx @GzP AGj AGh " GF @Gj Uz F T @E AGj @E AGt @E AGp @E AGr @
0x049c70…049e04 Dummy {f00=0x0010, f01=0x0190, f02=» ATx @Tx Uz W U @E AGp @E AGt_x ED AE PZ @Gj& U 0 Uz P P U UZ P @R U U K^_ U U U U _T U U J F 4 Uz T P U UZW T @R U U W U U U B "T" @E AGj @E AGt @E AGp @E
0x049e04…049f98 Dummy {f00=0x0010, f01=0x0190, f02=» @V F @Tx AE U Uz U S U U T UZ AUX F @GpR V ;a Q U _ U 1 F U @Tx AE _ 0 Uz U AK G| P 3P GF C @GhP @Gj 1 @E P @Gp Q @ @Gt Q P " F T @E AGj @E AGt @E AGp @E AGr @Gj ATx @Gp AE @Gr AE @Gt
0x049f98…04a12c Dummy {f00=0x0010, f01=0x0190, f02=»U @E AGp @E AGt_ @E P @GpV @Dt( GF V " @GtT @Dr R TP @GhP @Gj ATx AE AE I< U 0! U U G| T @GhP @Gj" 1 F GFPx @Gj @Gl @Gn @GtT @Dr Q RX ATx *9l! P2 I< Mv &9d! ) M W P$ &9d M & M _ Mv & M
0x04a12c…04a2c0 Dummy {f00=0x0010, f01=0x0190, f02=» % < < U ! U U G| T @GhP @Gj! 5 = F GF GF P8 F P @Gj GF P W" Cb P Cb $ B % AC` F T @DpW @Gj AE GP @GpR ADt AE ADp @Dr( F AE GP @Dp P GF @Gj @GhT I @_:P P8 @Dp P _ AE GP ADl @Gt ADn F
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0011, f01=0x0190, f02=» )W C P AC F C , AO AO :B AO Q (P _ H B @GtT @Dr H AO " GF EQ GT LT NE NG NL P2 @E R* U S O @GjP Q O ( F GF L U Cb ( R ( @GpV @Dt H B W # + C " Cb B APb APb:B APb
0x04a454…04a5e8 Dummy {f00=0x0011, f01=0x0190, f02=» B ) I B " GF $ % " U # C C C C *T W #T AGr U T P PR (T P Pl ,T P P^ )TX U S. AGt T @Dr Q R: ?aP *:l" T* & W T C B B B B B " GF AR~ AR AR AR AR AR AR R R
0x04a5e8…04a77c Dummy {f00=0x0011, f01=0x0190, f02=»$ QV L % QL R R W C " _* Q P Q V _ W " AR < V " F <P W* @E " P ( GF $ C " :T U U U "
0x04a77c…04a910 Dummy {f00=0x0011, f01=0x0190, f02=» AUV AUX 4 U Uz 4 @UV IT T AUX ATx ATxT AUX T T& @GpR Lt AUV N @Tx " @E ! PD @GtT @Dr S Tz Q";H @Tx;d Td ( @Tx "( GF @Tx " :S :X :Y :Z U $P WH U AT AT 0R 9Q 0 AT
0x04a910…04aaa4 Dummy {f00=0x0011, f01=0x0190, f02=» AUV AUX 4 U Uz T AUX AUV " , Uh "! R _U .WV AU : U AU " 9d U ! R :W& U W U W W ?W :W .W / aV AV T V< " @V:T V< AV V Vn( @V AV: " V< V2 Vn( A( V0( AV:
0x04aaa4…04ac38 Dummy {f00=0x0011, f01=0x0190, f02=» [ 2 2 ! <e X(/ V ,!? B H ! T )@) - Yh [ C -/ Yh [ <H _ ( 4 R ' ` 4 [ Z ,# ; (
0x04ac38…04adcc Dummy {f00=0x0011, f01=0x0190, f02=» _ [ C [ P 4 <H : XN Yl [ [ 4 &P B V C / <H : [ [ C C W [ C 9HR X ' W 781"&$ 39#$;< '()*+,-! [ [ 4 P _J Z B 4 'W Z ( W 4 [ 6 =( Z 1
0x04adcc…04af60 Dummy {f00=0x0011, f01=0x0190, f02=» ] W B % P C + ` Z I B P B P B 5 : Z [B [ Z :t Z C C Y C B B P C ZB : B T = V I C B : ( ' P Z I : [ [ % Y 4l C 4 & = = C 4
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0011, f01=0x0190, f02=» =l W ,"? :D;B D V : _B W "!@ =x T B =L D =| " T E "* # " T "*@ # : L C L C B C : Z [F [ : Z [ : 4 C : : [ [ ,V ] : 4R P C W $0 P = C . : ($
0x04b0f4…04b288 Dummy {f00=0x0011, f01=0x0190, f02=»:AV X R _ S W 4 _T :#0 T B 'W = B B " : P] ] PR L] R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@
0x04b288…04b41c Dummy {f00=0x0011, f01=0x0190, f02=»#0 T & C C : = N C C : : + 4 [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I_ * B Z 9 ! ; *Xt 8 ! D_ 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J =8 1 ^ !00T ; <V
0x04b41c…04b5b0 Dummy {f00=0x0011, f01=0x0190, f02=»X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ ^ 8 8 !++P !-- z ;$# + ^$ _* |`. PT*AXYZ9` ` ` a b a b 7 b b dFe g:g:e:b b b$` bv` b$b$:nj jLi i j i a b b b b a a a a 0 V T P T T P ] Y V 7 @ ! P 0 P W
0x04b5b0…04b744 Dummy {f00=0x0011, f01=0x0190, f02=» @`6]f md @`6]p m = 2 P V W< _ 2 # ;B bp V T W V P L , V 2P " 2 P V D ! R T V P V 0 W V P _ 8^t D` V| @ 2 ! 9BP V T W V P D $ V 6 V % V E W 2 %
0x04b744…04b8d8 Dummy {f00=0x0011, f01=0x0190, f02=» _ W a 6 D " 7 $ V P 0 W a _ ` 7r V & a$ H`6 'W 'W '_8 W = # = " T & T + : * & !@P `1` P d Q [ ; 8 V W Q P [ ! X # P
0x04b8d8…04ba6c Dummy {f00=0x0011, f01=0x0190, f02=» Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 = P8" T * & : * & !`P :J +_ +Q d _0 , T T XD W 1 L P X _& R W ( V W
0x04ba6c…04bc00 Dummy {f00=0x0011, f01=0x0190, f02=» [ [ 4 Z Z 7 : V ) 0 = !0 = " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 =( [ [ [ [ $ [ [ >h [ [ ip7
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0011, f01=0x0190, f02=» z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 = !0 = " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V
0x04bd94…04bf28 Dummy {f00=0x0011, f01=0x0190, f02=» z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z ipd Q ipg P _ T { [ ipiR [ Q@ [ ipb { R [ _ ipb ipg Z ! Z $ Z %_N [ Q* ipb ipd R [ Z { ipb z 9e! W Z : V I
0x04bf28…04c0bc Dummy {f00=0x0011, f01=0x0190, f02=» : { : k $0T k Pb 9 _ k $0T [ k $0T Z : R$ P $ 1T Y TdW 5 _& : k $0TH $ R W R # P W ) V E k $0T Wr W W = k [ k : Z
0x04c0bc…04c250 Dummy {f00=0x0011, f01=0x0190, f02=»P kT T : & 9! " : $ : T W V 9! R W Q< R W Q4 R W Q$ : k 4R#03 T $_X k _^ W !W = k p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 11.0 TRACE
0x04c250…04c3e4 Dummy {f00=0x0011, f01=0x0190, f02=» k p Ak ) Y V Ak k V V A . 1 V A v A Ak : lJW lJ 2 k A @ # T R A 4 A & A lFQ k Ak W> lJ k V D ! )0 1 @ # T 6 V ^ A Ak m ` k (
0x04c3e4…04c578 Dummy {f00=0x0011, f01=0x0190, f02=» f q Z ^ b1 I5 J1 W @2 1 W "` !"b9 A " A 0 #)6{ I5 H1 W )6b W "a?J1B !"b _J _N1 0 H5% "a Ma 7` 8{ :` ;` I2y I2t 1% eeW2 7` M`!"a I2u I2X I2S 1% ee I2G Me 7e!7` 7` ` 2 32 3 I58 I2% 6`);a A6)>` A9)?` A7 I2 !"a" I2 W )"`
0x04c578…04c70c Dummy {f00=0x0011, f01=0x0190, f02=» f{ % 1 I2kH4 ' J1 @4_)H5 HW &I2@ 6b a =e 2 I2- +` + l# ` ` l#` ` ` W 6a @`4 %e 2#e . e I2(H ! { ! a %7b 0 W CwW CvW C W 4 I5 I1 (j W f`!fb Cx W A4 A 4 0 #I2 6a 4 e C$
0x04c70c…04c8a0 Dummy {f00=0x0011, f01=0x0190, f02=»L #@ AV I2 I2 !R 7!R 3!R /!S IV s_W! pS pg p p I2 W I2 IU e{ c{HW Wf!S )R WZ)R WR!R )R WF6R $(,0!_z !W0 "W, #W( $W$ %W &W 'W (W )W *W +W ,W W !R !"b ) a IB HU 0 ? 4 "` 0 ^ I2 0 ^ I2 1%W "{4 ` I2
0x04c8a0…04ca34 (1, 96) Dummy {f00=0x0011, f01=0x0190, f02=»JK J J JK%J " K JK J J JK%J` #Jh K %K` %K C 4 ) R ` )S W ) R a !S IQ IR IT IS W HV ) R ` IQ W ) R a HQ IS IR IU IT HV ) R ` IR W ) R a HR IUwITtHVq) R ` IShW ) R ` IT]W ) R a HT IROIQLHVI) R b HT HQ=) R ` HV4 D ) RD` IU(W*) RDa HU!IT IR IQ HV ) RDb HU
0x04ca34…04cbc8 Dummy {f00=0x0011, f01=0x0190, f02=» ' N % L v f g > J 6371 $ 2 y ] * FORMAT FILE VOLUME NAME ? DSC ] DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA BAS
0x04cbc8…04cd5c Dummy {f00=0x0011, f01=0x0190, f02=» V H J k J k
0x04cd5c…04cef0 Dummy {f00=0x0011, f01=0x0190, f02=» @B)R IT IU ? IU HT (H2 ? H6 G I6 (A - _ HQ ? (H2 ? HB AU)R )a~ !:c !:a !&` ? ? W.HUn#R j%R f D C D D D D R C I2 AB@U_S? %a %a %a %a %a %a W )R (a= AW? a W a I2 H _q a a a% a(H1 !R !! b !R !:c !:a I IR
0x04cef0…04d084 Dummy {f00=0x0011, f01=0x0190, f02=» I2LWJ . W= W7 > W1 / W+ 0 W% $ W - W ) W H6 HT G G ? * I2 ? 4 )R !_} !_{ !_| W !:b ):~ W %7k~)R %7kv)R !8~nHU W ):beHT !;~^(R !;`V)R HQ !<~K%R #R %:a !:b I5 H1/)R H1()R !S H1 )R #)R !S IV I5 H1 W W , W . 4 0 0 0 0R JP
0x04d084…04d218 Dummy {f00=0x0011, f01=0x0190, f02=» W 0 /# G `7 J J J K K e f g h a b c d _z e f g h a b c d A BI2 +` + "b I2 I2 W "a @j4 )"` S pS pg p p I21I !"` Af I2 #Ss p )"` S S 8W +` +@f4 kr
0x04d218…04d3ac Dummy {f00=0x0011, f01=0x0190, f02=» 4 !w~ "vw C$W%#u~ #w~ x~W #x~ x %7d 0 0 4 !u~ W !w~ #x~ C W !x~ C W 4 #t~ C W u %7b 0 0 4 #v~ C W w %7c 0 0 4 )"`h ` A I2 Dw0 D P 0 Dy0 DT5 W^0 e e e /#e ~ I2A0
0x04d3ac…04d540 Dummy {f00=0x0011, f01=0x0190, f02=» C W W A 4 4 0 6 ' 9 ? % E d J F N 3 H 634463466371 0 0 0 0 0 0 0 "0 %
0x04d540…04d6d4 (1, 97) Dummy {f00=0x0012, f01=0x0190, f02=» V J N R E I2 D" V 0 VD0 Dz0 D Dw D i{ f` ga hc i| ib jd ke l DF D m0 ^ # o0 ^ k} k k k k k k~ k k k k % Dx D Dw D qe !rd #sb i{ $tc "ua0 4 E D E0 D
0x04d6d4…04d868 Dummy {f00=0x0012, f01=0x0190, f02=»A A o A c(A A ` A T A A ae aI *a( W *a) eaW ae ea_ a Dy E j E 0 D T 0 # ` 1 _z +` +W A2@m4 IQ (a#( F a(W )a#) : a)Aa pI2*IU HQ `IU HT a +` + W n @a4 % # A I2 I W C* W C 4 Ab
0x04d868…04d9fc Dummy {f00=0x0012, f01=0x0190, f02=» `W @d@c4 Ag e` 6I2D!e 3 I2,H e` 7I2 !e _& 1 I2 +` + HU 0 @g4 AeI1 ;I2 W <I2k +` + + `H1 ( WR " f W a I2$ I2 ! a W
0x04d9fc…04db90 Dummy {f00=0x0012, f01=0x0190, f02=» % J 7 A C f D,A,L,CHDK,N DK,N (2)E F,CH,B,LGB,NL,B I,CH P S,SF US YU 1012561475710058000000 p q y a "5 15 @ k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>?
0x04db90…04dd24 Dummy {f00=0x0012, f01=0x0190, f02=» $ , 4 < D L T d0 z0 {0 }0 0 0 0 0 0 0 0 0 0 y 1 z > >
0x04dd24…04deb8 Dummy {f00=0x0012, f01=0x0190, f02=» Ah ba !b|+ !:b ):| D" V{0 VD0 Dy0 D D W !&| W C I2 #b|# a aa"a) a I2 J b aIS W @S AS k #b| )&` 1 W 1 W Ts T1 T A U U U J I20H U_ #b| !&` H ) a ( b I2 #
0x04deb8…04e04c Dummy {f00=0x0012, f01=0x0190, f02=» d|W c| d Cx C #b| )&` 0 W 0 W Ta T0 @ 4 IR H5 ARW `W f | 3I2Z l# +` +HS } I2. I2' !:a !:c IR I I2 W 4 ` c` c C$ 4 ` e` e C$ 4 HS } %7c 0 0 4 AnIQ aW |H5 I
0x04e04c…04e1e0 Dummy {f00=0x0012, f01=0x0190, f02=»Q @n4 IS } In %7c 0 0 W %7d 0 0 J H J J -J| Cv 4 a|H5 JW 5H2 W a a h l# ~ HS } +` + a I24 I2- I2& I2 !:b #:` I I2 W 4 `A%a #a W
0x04e1e0…04e374 (1, 98) Dummy {f00=0x0012, f01=0x0190, f02=» I 0 W 0 W C> W C* A` La4 %b #b W C WN(ab CwWB b I24H +! a'! b#! | C)W J J( J C>W W C* 4 Al H5 KW ?I2 +` + @l4 Ak IV I2 !R ev fwW A et fu h` jz kz d|A @I2f h` +` + lj c lk d I
0x04e374…04e508 Dummy {f00=0x0012, f01=0x0190, f02=»dx6 gf dc df dy d W%A j# ks dc dy d !f| *cx gf dfW de0 0 4 @WAi J| K| H5 LW AI2q J J J K K H5 MW B@2 l# l# l# l# ` I2 +` + | 6aW a@i4 2 a 6 t z 0
0x04e508…04e69c Dummy {f00=0x0012, f01=0x0190, f02=» 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 10 50 9 K K
0x04e69c…04e830 Dummy {f00=0x0012, f01=0x0190, f02=» B P P | | % E E E E 4 D E D E DE E D 4 q r| s| t u v w x y` | | | | 4 | | | | 4 2 = |4 2 = |4
0x04e830…04e9c4 Dummy {f00=0x0012, f01=0x0190, f02=»2KI 1 WB I2= d ! a ! h ! W d 1 T U_F% a I2 Cx C 0 T b HU 0 4 T`%T T`) 0 : I2 J JT JJ J4 !:b ): D{0 D G 6G ,28>D Cv C 0 W=1 W70 Cw C 0 W 1 W 1 W 1 W 1 W 1 W ):e 4 I5 AZ
0x04e9c4…04eb58 Dummy {f00=0x0012, f01=0x0190, f02=»k T1 !G Tc@X k T1 @Y@X T l# T1 Tc0 T1 W Tq0 T1 T T1 W 0 @Y@X@Z4 Dy0 D 4 0 4 1 4 J !:a !:c !:` Ja J JoW J`0 J4 X~ W}jW 0 X WD D ` Ez I `0 E 0 DW0 DX (I D D 0 X WD I #I: _6 ( )
0x04eb58…04ecec Dummy {f00=0x0012, f01=0x0190, f02=» , D D " D"" H3 A3" I0 A0@1W I1 A1@0W 4 D D 6D W A0W A1W @0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 `% `4 `# 4 @ J Ja Ja(J A 4 % " ! W 4 3 i a 2
0x04ecec…04ee80 Dummy {f00=0x0012, f01=0x0190, f02=» $ % 2 4 6 y y k Z 9 'c (d Z 9 l 4 ! !a 7d 7 , = 2 Z 9 S (R) b Z 9 k X Y 2d s 2d .)g 7.c Z 9 l 7 X Y Z
0x04ee80…04f014 (1, 99) Dummy {f00=0x0012, f01=0x0190, f02=»0 =0 ?0 A0 C0 E0 G0 K ( = S k ! - t t
0x04f014…04f1a8 Dummy {f00=0x0012, f01=0x0190, f02=» H7 D "D D D _ J D "D D D _ T( J D "D D D _ I2m KJ J JK D K "D !J cJ c D Dc K D Kc JK D _" K D E F n} J DEFKWnW!W W c JW c J P cW S c@24 0 L D J K "D K D K D K JK D _ "J 4 Cw 4 H7 W NI2
0x04f1a8…04f33c Dummy {f00=0x0012, f01=0x0190, f02=» hWF E @ E EW_> D "D D D _ O D "D D D _ I2 A @ @ 4 D "D " (D D D _ D _# 4 0 JL!J ` 4 C 4 I I I I 4 @ @ " ] X T A _ " V Q A _N
0x04f33c…04f4d0 Dummy {f00=0x0012, f01=0x0190, f02=» V 4 D !D D I2 I D| W P h^PDW P PD0 ] #Mks)M` 0 ] D7 W Q GP GQ Q h^QGW T Q 9 I #Qy& ID!d] Q^ f^ Q PQWZ#Qy d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#P{ D d^PD] 0 ^ P W D W Q _ I2 A A I P W A24 W j] W 0 ]
0x04f4d0…04f664 Dummy {f00=0x0012, f01=0x0190, f02=» 5 6 A _ A A _ A A _#A2 DM0 DD 4 1 4 @ @ I 20 L @A @ )Av H8 A @8W )A& A A5A8W A W 0 L @A@ 4 IU I6 0 @ 0 L @A aLW HUy0 0 D D"0 0 V 0 VD0 D 0 D E&0 LE E D jZ DLEji L !i i W i~jZ i JZ cZjW
0x04f664…04f7f8 Dummy {f00=0x0012, f01=0x0190, f02=»EZ 0 0 0 W0 4 D"0 0 0 V 0 VD0 D 0 D- i W i a[ 0 [4 !" g!8` I3`) !I3Y DE0 D0 D# I3 DxW% D W I3 E E W E E D !E D E _ E 6E 0 DW 0 DW 0 D4 6 2 ?
0x04f7f8…04f98c Dummy {f00=0x0012, f01=0x0190, f02=» 0 .0 / @ ! !
0x04f98c…04fb20 Dummy {f00=0x0012, f01=0x0190, f02=» & D j D D E X j DEX D' W^j D W D*j D DF E'j D E DOj D Dxj D Dyj D Dzj D D{j D D|j D D}0 DT 0 W 0 1 A A24 0 P 4 ` D K K E j EK 0 D 0 W j 0 D 0 I2 H I 0 @ 4 0
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x0012, f01=0x0190, f02=» ~%J %J K J KJ)K ~W N4 @ D 0 DP W D 0 DP W D 0 DT A 4 I1$I I I I H E JI0 ]EJP 0 G0 GHP J E 0 ]EJ0 G0 GHT E E j^ E] I jI ]E I E JI0 ]EJ0 G0 GHT E E j^EE] jI ]E I E JI0 ]EJ0 G0 GHTo E E @E @Ej^@E] Wa
0x04fcb4…04fe48 Dummy {f00=0x0012, f01=0x0190, f02=»B6 I I $ A 4 4 UW> [W;A ZW+@ W YW XW WW VW 6 0 0 P _ 2 @ @ W 2 H W 2 -W W W{Wy 0 _ W _*
0x04fe48…04ffdc Dummy {f00=0x0012, f01=0x0190, f02=» K + _14 _ 20 $ b 4 0 4 " m _ 0 4 0 4 A 4 v0 ( 4 , 4 .6 ))b ) W ) A b 6 _o 0 P 4 4
0x04ffdc…050170 Dummy {f00=0x0012, f01=0x0190, f02=»F D 4 F t a 1 $ , r 6 d E % y ` p ? # R U X a b d f x + 026 DATABA 0 ] FILE OPEN UNSUCCESFULL FAILURE ON FORM
0x050170…050304 Dummy {f00=0x0012, f01=0x0190, f02=» " # $ %0 -0 .0 00 30 7 : ' t | |
0x050304…050498 Dummy {f00=0x0012, f01=0x0190, f02=» 2 4 4 4 4 A A 8 @ I@ 6A %1 @ W 1 @ W 6A 1 @ W 1 @ 1 @ 0 CR 0" CBP R CB_ 0#0$L @AC: A +A p2A !@ B0% C!C C 2B C W 0% B)B _S C 0% B!B ) 2B W 0& LAA2A A 4 C #0&
0x050498…05062c Dummy {f00=0x0012, f01=0x0190, f02=» WZ0% B)B 1 ? 01L @ACR7 A A )@ AA? C @ A 0" ABS 02 P 03 Q A 4 0" BAW A R!A G!A C!C b C 0# B 0 L BA B B AB A 2A _& BM0 BB A !@ L w0 C0 CC2A A 4 !@ AA? !@ L0 C0 CC? 0& L 6B" ).38=BGLQV[`ejoty~ W JL
0x05062c…0507c0 Dummy {f00=0x0012, f01=0x0190, f02=» WA W< W7 W2 ! W- " W( # W# $ W % W & W ' W ( W ) W * W I2 6 W B W A B W B 4 JL%J` #Jz W C 4 JL%J` #Jy W C 4 [vb[ @L ![v W C 4 A 4 JL#Jx C W 4 4 4 4 4 4 4 4 4 D n { z |
0x0507c0…050954 (1, 101) Dummy {f00=0x0013, f01=0x0190, f02=» w > ' 9 K L " Q f { % : q B d 1 $ 00 0 0 0
0x050954…050ae8 Dummy {f00=0x0013, f01=0x0190, f02=» 0 F * & 6 ' 9 ? G ( , ( 5 % E d G V , ( U J B N 3 G * & u H 634463466371 G * &
0x050ae8…050c7c Dummy {f00=0x0013, f01=0x018e, f02=»x 4 d h 0 3 f f ( F R X C Z 9 ( N ) z J a K v v 8 8 3 ; a @
0x050c7c…050e10 Dummy {f00=0x0013, f01=0x018e, f02=» B x w R B 6 2 v # 0 @ r @ @ @ p @ , @ $ @ 1 @ @ 2@ 8@ >@ D@ J@ P@ a V@ t @ F b@ ,@ ` n@ " t@ @ @ @ y # : z
0x050e10…050fa4 Dummy {f00=0x0013, f01=0x018e, f02=» B . 0 @ L@ % | V R@ X ] { ^@ E O " 0 d d v@ d @ p ~ | j 0 p H 2 ( r U x ; 6 k } B @ 8 } f ( | d b 7
0x050fa4…051138 Dummy {f00=0x0013, f01=0x018e, f02=» D & D D B P P D D V J N R D P ! ] Q 7 F* Z 6 x ZZ d 5 o ZZ n 4 f ZZ - _ ZZ , X 99 ( Q ZZ ' J ZZ ^ E ZZ @ 99 x 3 7 ZZ 1 / ZZ
0x051138…0512cc Dummy {f00=0x0013, f01=0x018e, f02=» Z Z9 6 ! ZZ ZZ ZZ ZZ ZZ Z J PP / 99 ~ 99 y 99 r u 99 | q 99 T 99 9 4 ] 1 = : F 6 N P 4 * + 0 ( ) h F B . > 4 J ^ l DS D V T J _ f FO Z 6 `
0x0512cc…051460 Dummy {f00=0x0013, f01=0x018e, f02=» l 1 D 0 h / . Z - , ~ + * ) ( ' $ & H * % 2 0 $ V 6 # < " r * H T:UPDF H Z T:TUP Z l T:TSTC l ~ T:TRIG ~ T:TLEF T:TLDO T:THOM $ T:TFWD $ T:TDOW
0x051460…0515f4 (1, 102) Opaque[0x194]
0x0515f4…051788 # DirEnt {nam=»XOPINP«, typ=»SC«, f00=0x0002, f01=0xa020, f02=0x0268, f03=0x0808}
0x0515f4…051788 IdxSect {
0x0515f4…051788 f00 = 0x0013 // 0x515f4 @0x0
0x0515f4…051788 f01 = 0x0010 // 0x515f6 @0x2
0x0515f4…051788 gno = [ // 0x515f8 @0x4
0x0515f4…051788 [0x00]: C0x0013.0x1.0
0x0515f4…051788 [0x01]: C0x0013.0x2.0
0x0515f4…051788 [0x02]: C0x0013.0x3.0
0x0515f4…051788 [0x03]: C0x0014.0x0.0
0x0515f4…051788 [0x04]: C0x0014.0x1.0
0x0515f4…051788 [0x05]: C0x0014.0x2.0
0x0515f4…051788 [0x06]: C0x0014.0x3.0
0x0515f4…051788 [0x07]: C0x0015.0x0.0
0x0515f4…051788 ]
0x0515f4…051788 }
0x051788…05191c Dummy {f00=0x0013, f01=0x0190, f02=» < P IDENT XOPINP KEYBOARD,BCR,ODR P DDUM DEMODD D P PDIV X P EXPROC XBFMT f P EXPROC QAFNKY | P ENTRY XAKBIN P ENTRY XCLAMP P ENTRY XGBCR P ENTRY XHMSU P ENTRY XKZEKO L P************
0x05191c…051ab0 Dummy {f00=0x0013, f01=0x0190, f02=» * L L P* 6236/71/72-CODES AND 6234/31-CODES WITH KEY1 ON * L P* * L PFNCKTB KTAB X'90',X'8A',X'A1',X'A0',X'87', C L P X'82',X'84
0x051ab0…051c44 Dummy {f00=0x0013, f01=0x0190, f02=» L L P X'83',X'95',X'8B',X'A2',X'92', C P X'A3',X'AB',X'98',X'99' C L P* * L P* 6234/31-CODES WITH KEY 2 ON
0x051c44…051dd8 Dummy {f00=0x0013, f01=0x0190, f02=» C p L P X'C2',X'C4',X'C1',X'C5',X'C6', C 0 L P X'C8',X'C0',X'D3',X'D4',X'C9', C P P X'C3',X'D5',X'CB',X'E2',X'D2', C
0x051dd8…051f6c Dummy {f00=0x0013, f01=0x0190, f02=»****** N L P************************************************************************ L P* * ^ L P* PROCEDURE: XAKBIN * L P* PARAME
0x051f6c…052100 Dummy {f00=0x0013, f01=0x0190, f02=» * N L P* FUNCTIONAL DESCRIPION: * L P* REQUEST INPUT FROM THE OPERATOR BY A KI-INSTRUCTION. * ^ L P* THE NUMBER OF NON-EOI CHARACTERS REQUESTED IS GIVEN BY PKWLNG * L P* AND
0x052100…052294 (1, 103) Dummy {f00=0x0013, f01=0x0190, f02=» * N L P* BY THE 6234/31-KEYBOARDS WHEN KEY 1 IS ON AND BY THE * L P* 6236/71/72-KEYBOARDS. * ^ L P* N.B. SEE TO IT THAT THE CONVERSION TABLES INCLUDED IN THE * L P* MON
0x052294…052428 Dummy {f00=0x0013, f01=0x0190, f02=» BY * N L P* THE 6234/31-KEYBOARDS WHEN KEY 2 IS ON. * L P* THE NUMBER OF KEYS IN ONE HALF OF THE KEYTABLE IS GIVEN BY THE * ^ L P* VARIABLE 'KWAPLKTB'. * L P* CHE
0x052428…0525bc Dummy {f00=0x0013, f01=0x0190, f02=» * N L P* AFTER THIS CHECK: 0 =< SPBINW2 =< KWAPLKTB; * L P* WHERE THE VALUE OF SPBINW2 HAS THE FOLLOWING MEANING: * ^ L P* 0: KEY ENTERED IS NOT LISTED IN 'FNCKTB' * L P*
0x0525bc…052750 Dummy {f00=0x0013, f01=0x0190, f02=» * N L P* 3: OPEN/START 13: CURRENCY 2 * L P* 4: CLOSE/STOP 14: CURRENCY 3 * ^ L P* 5: BLOCK 15: CHEQUE * L P*
0x052750…0528e4 Dummy {f00=0x0013, f01=0x0190, f02=» * N L P* 8: D(AILY)-S(TATEMENT) 18 CARD * L P* 9: IN 19: CANCEL * ^ L P* 10: OUT 20: CONTINUE * L P* 1
0x0528e4…052a78 Dummy {f00=0x0013, f01=0x0190, f02=» 23: ZEKOSA 4 P* 24: OPEN TND , L P* * d L P* VARIABLES USED: * L P*
0x052a78…052c0c Dummy {f00=0x0013, f01=0x0190, f02=» * T L P* SPBINW1: REQUESTED LENGTH (BEFORE KI) AND ACTUAL LENGTH * L P* (AFTER KI) INCLUDING EOI-CHARACTER. * d L P* SPBINW2: INDEX IN FNCKTB RETURNED BY KI AND ADAPTED BY * L P*
0x052c0c…052da0 Dummy {f00=0x0013, f01=0x0190, f02=»ST BE * T L P* ISSUED. CHECKS ON THE VALUE ENTERED MUST BE DONE * L P* BY THE CALLING ROUTINE ITSELF. * d L P* * L P****
0x052da0…052f34 (1, 104) Dummy {f00=0x0013, f01=0x018e, f02=» T P PLIT PKWLNG L PXA000 & J P MOVE SPBINW1,PKWLNG v * P ADD SPBINW1,=W'1' ADJUST FOR EOI-KEY L P*
0x052f34…0530c8 Dummy {f00=0x0013, f01=0x018e, f02=» L P* * $ P PERF XCLAMP,KW1,KW1 READY LAMP T P TBT SBNOWAIT,XA500 | L P KI SPDSDYKB,SPINPUT,FNCKTB,SPBINW1,SPBINW2 P BNOK XA000 RETRY T P PERF
0x0530c8…05325c Dummy {f00=0x0013, f01=0x0190, f02=» L P* * L P* CHECK KEYLOCK TURNED * T L P* * P CBNE SPBINW2,=W'23'
0x05325c…0533f0 Dummy {f00=0x0013, f01=0x0190, f02=»2,=W'22',XA100 P MOVE SPBINW2,=W'3' P SET SBFT80 COMPACT TERMINAL 2 P SET SBFT80OP V P B XA999 l PXA100 | & P PERF QAFNKY,SPBINW2,KW0,KWAPLKTB P B XA999 PXA500 8 P KI .NW,.NE,SPDSDYKB,SPINPUT,FNCKTB,SPBINW1,SPBINW2
0x0533f0…053584 Dummy {f00=0x0013, f01=0x0190, f02=»****** N L P* * T P* GET INPUT FROM A BADGE CARD READER OR MAGNETIC STRIPE UNIT ^ L P* * L P**
0x053584…053718 Dummy {f00=0x0013, f01=0x0190, f02=» V L PXD000 , P TBT SBZEK,XD100 JUMP IF ZEK-KEY IS USED f P TBT SBMSU,XD100 P DSC0 DSBCR,02 SKIP BUFFER P* P* NOW START READING P* L P MOVE SP
0x053718…0538ac Dummy {f00=0x0013, f01=0x0190, f02=» P L P MOVE IDACTNR1,SPINPUT ACCOUNT NUMBER P B XD999 f PXD100 v ( P TBF SBZEK,XD105 READ STRIPE ROUTINE , P DSC1 DSEKOSA,24,KW1 OPEN MSU (AM. SYS) P XSTAT DSEKOSA,WW1 P MOVE WW1,=W'1
0x0538ac…053a40 Dummy {f00=0x0013, f01=0x0190, f02=»RT,X'11',KW0,VCDOCPAR,WW1 SET DOC. PARAMETERS 2 P DSC1 DSVCHPRT,X'00',KW0 MOVE DOC. PARAMETERS 6 ( P MOVE WW1,=W'13' LINE 13 IS 'STRIP' l . P DSC1 DSVCHPRT,X'06',WW1 POSITION PASSBOOK P MOVE WW2,=W'22' & P DSC DSEKOSA,X'1A',KW3,SPINPUT,WW2
0x053a40…053bd4 (1, 105) Dummy {f00=0x0014, f01=0x0190, f02=»COPY ICSTRG1,KW0,KW1,SPINPUT,KW6 ....ANND SIGN P CBE ICSTRG1,='0',XD102 8 * P MOVE ICSTRG1,='-' SIGN BYTE NEGATIVE X P B XD103 PXD102 * P MOVE ICSTRG1,='+' SIGN BYTE POSITIVE PXD103 ( P XCOPY WCSTRG12,KW0,KW1,ICSTRG1,KW0
0x053bd4…053d68 Dummy {f00=0x0014, f01=0x0190, f02=»OVE IDACTNR1,WCSTRG6 CONVERT ACOUNTNR. P MOVE WCSTRG6,=C' ' . P MOVE WW1,=W'18' J 8 P XCOPY WCSTRG6,KW2,KW4,SPINPUT,WW1 PULL OUT LINENO. b P * P MOVE IDNR1,WCSTRG6 CONVERT TO DECIMAL P B XD999 PXD105 P DSC1 DSBCR,24,KW0 OPE
0x053d68…053efc Dummy {f00=0x0014, f01=0x0190, f02=» j P CBNE WW2,KW0,XD120 P CBE WWINDEX1,KW3,XD120 $ P MOVE WWINDEX1,KW3 D P B XD110 ^ PXD120 n . P MOVE IDACTNR1,SPINPUT CONVERT TO DECIMAL | P DSC0 DSBCR,4 RELEASE BADGE L PXD999
0x053efc…054090 Dummy {f00=0x0014, f01=0x0190, f02=» r L P************************************************************************ 2 P* PROCEDURE : XHMSU P* PARAMETERS : ADCARDNR : P* DESCRIPTION: WRITE ON TRACK 3 OF BADGE CARD WITH MSU L P************
0x054090…054224 Dummy {f00=0x0014, f01=0x0190, f02=» ZEKOSA x ( P PERF XBFMT,=W'27' 'PUT CARD IN MSU' P B XH110 < PXH100 L " P PERF XCLAMP,KW4,KW1 LAMP 4 ON Z ( P PERF XBFMT,=W'49' 'MOUNT PASSBOOK' P TBT SBCANCEL,XH200 $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF * P MOVE ADLIMBOK,=D'0' BOO
0x054224…0543b8 Dummy {f00=0x0014, f01=0x0190, f02=»K p P B XH200 PXH110 P MOVE WCSTRG12,XCARD ( P MOVE WCSTRG6,='00' D & P MOVE WW2,KW4 SET REQUESTED LENGTH ` ( P XCOPY WCSTRG6,KW0,WW2,WCSTRG12,KW2 P DSC1 DSBCR,24,KW0 OPEN MSU P DSC0 DSBCR,0 GET CARD P WRITE DSBCR,WCS
0x0543b8…05454c Dummy {f00=0x0014, f01=0x0190, f02=»*********** R P* 2 P* WRITE INFO ON MAGNETIC STRIP OF PASSBOOK P* T P P*************************************************************************** ^ PXKZEKO PROC P MOVE WW1,=W'18' , P DSC1 DSEKOSA,24,KW1 OPEN MSU (AM. SYS)
0x05454c…0546e0 Dummy {f00=0x0014, f01=0x0190, f02=»'11',KW0,VCDOCPAR,WW1 MOVE DOC. PARAMETERS 0 P DSC1 DSVCHPRT,X'00',KW0 SET DOC. PARAMETERS 2 ( P MOVE WW1,=W'13' LINE 13 IS 'STRIP' f . P DSC1 DSVCHPRT,X'06',WW1 POSITION PASSBOOK P CBNL ADLIMBOK,=D'0',XKZE10 * P MOVE ICSTRG1,=C'1' SIGN BYTE NE
0x0546e0…054874 (1, 106) Dummy {f00=0x0014, f01=0x0190, f02=» WRITE DSEKOSA,WCSTRG25 WRITE MAG. STRIPE P RET 2 P PEND > N P************************************************************************** L P* P* 8 P* EDIT BUFFER FORMAT FOR MAG.STRIPE RECORD PFRMZEK FRMT P FMEL
0x054874…054a08 Dummy {f00=0x0014, f01=0x0190, f02=»ND L P************************************************************************ L P* * Z L P* KEYTABLE FOR BADGE CARD READER * L P*
0x054a08…054b9c Dummy {f00=0x0014, f01=0x0190, f02=»** J L PBCRKTB KTAB X'3F',X'09' L P* * Z L P* '3F': END OF DOCUMENT * L P* '09': READ
0x054b9c…054d30 Dummy {f00=0x0014, f01=0x0190, f02=» * J L P* * ! J P********************************************************************** ! Z L P************************************************************************ ! L P*
0x054d30…054ec4 Dummy {f00=0x0014, f01=0x0190, f02=» ! H L P* PARAMETERS: XWINDEX (INPUT) * " L P* XWON (INPUT) * " X L P* FUNCTIONAL DESCRIPTION: * " L P* CONTROL T
0x054ec4…055058 Dummy {f00=0x0014, f01=0x0190, f02=» " H L P* XWON = 0: TURN LAMP(S) OFF * # L P* XWON = 1: TURN LAMP ON * # X L P* XWON = 2: SET LAMP FLASHING * # L P* - XWINDEX
0x055058…0551ec Dummy {f00=0x0014, f01=0x0190, f02=» # H L P* XWINDEX = 1,2,3 OR 4: LAMP 1,2,3 OR 4 * $ L P* XWINDEX = 5: LAMP 5, SOUND BELL ON 6236 KEYBOARD * $ X L P* AS WELL * $ L P* USE OF WORKV
0x0551ec…055380 Dummy {f00=0x0014, f01=0x0190, f02=» $ H L P* WW2: WORKFIELD * % L P* * % X L P************************************************************************ % T PXCLAMP PROC XWIN
0x055380…055514 (1, 107) Dummy {f00=0x0014, f01=0x0190, f02=» % j T P CBE YDSTATUS,=D'0',XC999 KEYBOARD TYPE NOT KNOWN YET & 2 L P* * & L P* THE NUMERIC VERSION OF THE 6234-KEYBOARD (=6
0x055514…0556a8 Dummy {f00=0x0014, f01=0x0190, f02=» * & z T P CBE RDALFKB,=D'1',XC050 ALPHANUMERIC KEYBOARD ' : T P TBT SB34KB,XC999 6331-KEYBOARD ' L P*
0x0556a8…05583c Dummy {f00=0x0014, f01=0x0190, f02=»-KEYBOARD * ' L P* * ( J T PXC050 ( T P CBNE XWINDEX,=W'5',XC
0x05583c…0559d0 Dummy {f00=0x0014, f01=0x0190, f02=» ( J L P* * ) L P* 6236-KEYBOARD AND LAMP 5, SOUND BELL AND CONTINUE * ) b L P* * ) T P MOVE
0x0559d0…055b64 Dummy {f00=0x0014, f01=0x0190, f02=» ) Z * P DSC1 DSDI,01,WW1 TURN BELL OFF AGAIN * " L P* * * P L P* REQUESTED LAMP(S) AVAILABLE, CALCULATE THE DSC1-PARAMTER * * L P* IF XWINDEX = 0 THEN AL
0x055b64…055cf8 Dummy {f00=0x0014, f01=0x0190, f02=» CBG XWINDEX,=W'0',XC100 * T P TBT SB34KB,XC080 + X T P MOVE WW1,=W'126' 6236-KEYBOARD + T P
0x055cf8…055e8c Dummy {f00=0x0014, f01=0x0190, f02=» + ` T P MOVE WW1,=W'15' 6234-KEYBOARD , ( T P B XC600 , L P*
0x055e8c…056020 Dummy {f00=0x0014, f01=0x0190, f02=»TIATION) * , x L P* 6234-KEYBOARD: 2**(XWINDEX-1) * - 8 L P* 6236-KEYBOARD: 2**(6-XWINDEX) * - L P* FIRST CALCULATE THE EXPONENT OF 2 IN WW2
0x056020…0561b4 (1, 108) Dummy {f00=0x0014, f01=0x0190, f02=» - x T P TBT SB34KB,XC150 . @ L P* 6236-KEYBOARD * . T P MOVE WW2,=W'6'
0x0561b4…056348 Dummy {f00=0x0014, f01=0x0190, f02=» . @ T P B XC200 / T PXC150 / ` L P* 6234-KEYBOARD * / T P
0x056348…0564dc Dummy {f00=0x0014, f01=0x0190, f02=» / ` L P* * 0 ( L P* NOW CALCULATE THE DSC1-PARAMETER * 0 x L P*
0x0564dc…056670 Dummy {f00=0x0014, f01=0x0190, f02=» 0 p T PXC210 1 8 T P CBE WW2,=W'0',XC600 1 T P MUL WW1,=W'2'
0x056670…056804 Dummy {f00=0x0014, f01=0x0190, f02=» 1 @ T P B XC210 2 L P* * 2 ` L P* PERFORM THE DSC1 DEPENDING ON XWON * 2 L P*
0x056804…056998 Dummy {f00=0x0014, f01=0x0190, f02=» 2 P T P MOVE WW2,XWON 3 P IB WW2,XC710,XC720 3 p L P* * 3 L P* TURN LAMP(S) OFF
0x056998…056b2c Dummy {f00=0x0014, f01=0x0190, f02=» 3 | T P B XC999 4 D L P* * 4 L P* TURN LAMP ON
0x056b2c…056cc0 Dummy {f00=0x0014, f01=0x0190, f02=»0 4 T P DSC1 DSDI,00,WW1 5 T T P B XC999 5 L P*
0x056cc0…056e54 (1, 109) Dummy {f00=0x0015, f01=0x0190, f02=» * 5 T L P* * 6 T PXC720 6 d T P DSC1 DSDI,X'0B',WW1
0x056e54…056fe8 Dummy {f00=0x0015, f01=0x40ec, f02=» 6 l T P PEND 7 4 L P************************************************************************ 7 P END 7 @ 7
0x056fe8…05717c Dummy {f00=0x0015, f01=0x2008, f02=» 8 NT XINTER DDUM DEMODDIV PDIV 0 EXT QAEOI > ENTRY XAKBIN P * f * p XAKBIN PROC z . ) KI SPDSDYKB,SPINPUT,KEYTABEL,KW1,SPBINW2 BERR XA000 RETRY PERF QAEOI XA999 RET
0x05717c…057310 Dummy {f00=0x0015, f01=0x0190, f02=» 8 p L P************************************************************************ 9 PUCY BLK 9 X P* 9 h L P************************************************************************ 9 r L P*
0x057310…0574a4 Dummy {f00=0x0015, f01=0x0190, f02=» * 9 b L P************************************************************************ : " " PCDCCYRNR BCD 12 RECORD NUMBER : r PCDUMMY BCD 6 : " PCCCCYNME STRG 20 CURRENCY NAME : " PCCCCYCDE STRG 4 CURRENCY CODE : PCDBUY1 BCD 8 BUY
0x0574a4…057638 Dummy {f00=0x0015, f01=0x0190, f02=»12 LIMIT OF RATE 1 : PCDRELAT BCD 6 RELATION ; L P************************************************************************ ; 8 L PUOP BLK ; L P*
0x057638…0577cc Dummy {f00=0x0015, f01=0x0190, f02=» * ; x L P* OPERATOR RECORD * < 8 L P* * < L P************************************************
0x0577cc…057960 Dummy {f00=0x0015, f01=0x0190, f02=» < x L POCPASS STRG 6 PASSWORD = 8 L POCNAME STRG 18 OPERATOR NAME = L PODSTATUS BCD 2
0x057960…057af4 (1, 110) Opaque[0x194]
0x057af4…057c88 # DirEnt {nam=»XMESG «, typ=»SC«, f00=0x0000, f01=0x0010, f02=0x02a8, f03=0x0808}
0x057af4…057c88 IdxSect {
0x057af4…057c88 f00 = 0x0015 // 0x57af4 @0x0
0x057af4…057c88 f01 = 0x000a // 0x57af6 @0x2
0x057af4…057c88 gno = [ // 0x57af8 @0x4
0x057af4…057c88 [0x00]: C0x0015.0x1.0
0x057af4…057c88 [0x01]: C0x0015.0x2.0
0x057af4…057c88 [0x02]: C0x0015.0x3.0
0x057af4…057c88 [0x03]: C0x0016.0x0.0
0x057af4…057c88 [0x04]: C0x0016.0x1.0
0x057af4…057c88 ]
0x057af4…057c88 }
0x057c88…057e1c Dummy {f00=0x0015, f01=0x0190, f02=» F P IDENT XMESG ERROR- AND MESSAGECONTROL P DDUM DEMODD N P PDIV b P EXPROC XAKBIN p P EXPROC XCLAMP P EXPROC ZMRDF P ENTRY XDMSG P ENTRY XEERR P ENTRY XFERR1 P ENTRY XHERAS
0x057e1c…057fb0 Dummy {f00=0x0015, f01=0x0190, f02=» * ` L P* PROCEDURE: XDMSG * L P* PARAMETER: * p L P* PWMSGNR (INPUT): NUMBER OF THE MESSAGE TO BE DISPLAYED. *
0x057fb0…058144 Dummy {f00=0x0015, f01=0x0190, f02=»FROM THE FORMAT * ` L P* FILE AND DISPLAYED ON THE FIRST LINE OF THE DISPLAY. * L P* WORKVARIABLE: * p L P* WW1 *
0x058144…0582d8 Dummy {f00=0x0015, f01=0x0190, f02=»************************ ` L PXDMSG PROC PWMSGNR P PLIT PWMSGNR p L PXD000 L P*
0x0582d8…05846c Dummy {f00=0x0015, f01=0x018e, f02=» * v P PERF XHERAS ERASE SCREEN 6 L P MOVE WW1,PWMSGNR X * P PERF ZMRDF,WW1,KW1 READ INTO FCBUFFER P EDWRT SPDSSCRN,FCBUFFER L PXD999
0x05846c…058600 Dummy {f00=0x0015, f01=0x0190, f02=» F L P PEND L P************************************************************************ X L P* * L P* PROCEDURE:
0x058600…058794 (1, 111) Dummy {f00=0x0015, f01=0x0190, f02=» H L P* PWERRNR (INPUT): NUMBER OF THE ERROR OR MESSAGE TO BE DISPLAYED * L P* XWANSWER (INP): WHAT KIND OF ANSWER MUST BE REQUESTED. * X L P* FUNCTIONAL DESCRIPTION: * L P* THIS IS A
0x058794…058928 Dummy {f00=0x0015, f01=0x0190, f02=» H L P* CONTROL IS IMMEDIATELY PASSED TO XFERR1. * L P* VARIABLE USED: * X L P* SPBINW4: USED TO CONTAIN THE ERROR (MESS) NUMBER HELD IN * L P*
0x058928…058abc Dummy {f00=0x0015, f01=0x0190, f02=» H L P************************************************************************ L PXEERR PROC PWERRNR,XWANSWER X P PLIT PWERRNR P PBIN XWANSWER L PXE000
0x058abc…058c50 Dummy {f00=0x0015, f01=0x0190, f02=»R t L PXE999 4 L P RET L P PEND
0x058c50…058de4 Dummy {f00=0x0015, f01=0x0190, f02=» * t L P* PROCEDURE: XFERR1 * 4 L P* PARAMETERS: * L P* PWERRNR (INPUT): NUMBER OF THE ERROR OR MESSA
0x058de4…058f78 Dummy {f00=0x0015, f01=0x0190, f02=» GIVE TO THE ERROR (MESS) DISPLAYED. * t L P* FUNCTIONAL DESCRIPTION: * 4 L P* BASICALLY AN ERROR OR MESSAGE IS READ FROM THE FORMAT-FILE * L P* AND DISPLAYED ON THE LAST LINE OF THE SCREEN.
0x058f78…05910c Dummy {f00=0x0015, f01=0x0190, f02=» ACTION TO BE TAKEN: * t L P* 0: ERROR LAMP IS LIT; * 4 L P* REQUEST NO ANSWER FROM THE OPERATOR. * L P* 1: ERROR LAMP IS LIT;
0x05910c…0592a0 Dummy {f00=0x0015, f01=0x0190, f02=» IS LIT; * t L P* THE OPERATOR MAY ONLY ANSWER 'CANCEL' OR 'CLEAR' * 4 L P* 3: MESSAGE LAMP IS LIT; * L P* THE OPERATOR MAY ONLY ANSWER 'CANC
0x0592a0…059434 (1, 112) Dummy {f00=0x0015, f01=0x0190, f02=»RO THEN THE MESSAGE OR ERROR IS ERASED * t L P* FROM THE SCREEN AND THE ERROR/MESSAGE LAMP IS EXTINGUISHED * 4 L P* AFTER A SATISFACTORY ANSWER HAS BEEN GIVEN BY THE OPERATOR. * L P* IF XWANSWER = 0 THEN THE CALLING ROUTINE MUST
0x059434…0595c8 Dummy {f00=0x0015, f01=0x018e, f02=» * t L P************************************************************************ 4 L PXFERR1 PROC XWERRNR,XWANSWER P PBIN XWERRNR,XWANSWER L PXF000
0x0595c8…05975c Dummy {f00=0x0015, f01=0x0190, f02=» P* 8 P* IF XWANSWER = 3, MESSAGE-LAMP SHOULD BE BURNING, P* DO NOT LIGHT ERROR-LAMP J P* n P CBE XWANSWER,KW3,XF010 x & P PERF XCLAMP,KW3,KW1 ERROR LAMP ON P B XF020 PXF010 ( P PERF XCLAMP,KW2,KW1 MESSAGE LAMP ON
0x05975c…0598f0 Dummy {f00=0x0015, f01=0x0190, f02=» ROW j L P ADD WW1,=W'1' COLUMN 1 * L P DSC1 SPDSSCRN,6,WW1 SET CURSOR z P* 0 P* READ ERROR OR MESSAGE FROM THE FORMATFILE P
0x0598f0…059a84 Dummy {f00=0x0015, f01=0x0190, f02=» d L P* * $ L P* ANSWER EXPECTED * t L P*
0x059a84…059c18 Dummy {f00=0x0015, f01=0x0190, f02=» d " P IB XWANSWER,XF100,XF200,XF300 $ L P* * J L P* CANCEL EXPECTED * L P*
0x059c18…059dac Dummy {f00=0x0015, f01=0x0190, f02=» H L P B XF050 L P* * X P* CANCEL OR CLEAR EXPECTED L P*
0x059dac…059f40 Dummy {f00=0x0015, f01=0x0190, f02=» j N P CBE SPBINW2,KWCLEAR,XF995 * L P B XF050 | P* P* CANCEL OR CONT EXPECTED P* PXF300
0x059f40…05a0d4 (1, 113) Dummy {f00=0x0016, f01=0x0190, f02=» * f L P* CANCEL PRESSED * & L P* * v L PXF990
0x05a0d4…05a268 Dummy {f00=0x0016, f01=0x0190, f02=»RASE 0,WW1,WW1 ERASE LAST LINE ( P PERF XCLAMP,KW3,KW0 ERROR LAMP OFF & * P PERF XCLAMP,KW2,KW0 MESSAGE LAMP OFF R L PXF999 L P RET
0x05a268…05a3fc Dummy {f00=0x0016, f01=0x0190, f02=»**************************************** p L P* * 0 P* SOUND BELL L P* * L P************************************
0x05a3fc…05a590 Dummy {f00=0x0016, f01=0x0190, f02=» L P FILLR X'07',1 BELL D L P FMEND L P************************************
0x05a590…05a724 Dummy {f00=0x0016, f01=0x0190, f02=»E: XHERAS * L P* FUNCTIONAL DESCRIPTION: * D L P* ERASE THE SCREEN. * L P*
0x05a724…05a8b8 Dummy {f00=0x0016, f01=0x0190, f02=»C PXH000 & P EDWRT SPDSSCRN,FMTERASE PXH999 B P RET P P PEND d L P************************************************************************ z L P*
0x05a8b8…05aa4c Dummy {f00=0x0016, f01=0x0188, f02=»******************************************************** L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x05aa4c…05abe0 Dummy {f00=0x0016, f01=0x2008, f02=» ************************************************ L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x05abe0…05ad74 (1, 114) Dummy {f00=0x0016, f01=0x0190, f02=» L P CBL WDEC1,=D'1',S16500 L P CBG WDEC1,=D'24',S16500 T L P B S16900 L PS16500
0x05ad74…05af08 Dummy {f00=0x0016, f01=0x0190, f02=» L P MOVE SPBINW4,=W'1' L PS16900 T L P RET L P PEND
0x05af08…05b09c Dummy {f00=0x0016, f01=0x0190, f02=» L P* * L P* CHECK POINTER TO TRANSACTION-RECORD ( BETWEEN 1 AND 8 ) * T L P* * L P********************
0x05b09c…05b230 Dummy {f00=0x0016, f01=0x0190, f02=» L PS17000 ! L P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL ! T L P CBL WDEC1,=D'1',S17500 ! L P CBG WDEC1,=D'8',S17
0x05b230…05b3c4 Dummy {f00=0x0016, f01=0x0190, f02=» L PS17500 " L P MOVE XWRET,=W'1' " T L P MOVE SPBINW4,=W'1' " L PS17900
0x05b3c4…05b558 Dummy {f00=0x0016, f01=0x0190, f02=» L P PEND # L P************************************************************************ # T L P* * # L P* INPUT-FIELD MUST
0x05b558…05b6ec Dummy {f00=0x0016, f01=0x0190, f02=» L P************************************************************************ $ L PSPAP18 PROC XWRET $ T L PS18000 $ L P MOVE WCSTRG25,=C' '
0x05b6ec…05b880 Dummy {f00=0x0016, f01=0x0190, f02=» L P CBE WCSTRG25,=C' ',S18500 % L P B S18900 % T L PS18500 % L P MOVE XWRET,=W'1'
0x05b880…05ba14 (1, 115) Opaque[0x194]
0x05ba14…05bba8 # DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0x0000, f01=0x5438, f02=0x02d0, f03=0x05b8}
0x05ba14…05bba8 IdxSect {
0x05ba14…05bba8 f00 = 0x0016 // 0x5ba14 @0x0
0x05ba14…05bba8 f01 = 0x000c // 0x5ba16 @0x2
0x05ba14…05bba8 gno = [ // 0x5ba18 @0x4
0x05ba14…05bba8 [0x00]: C0x0016.0x2.0
0x05ba14…05bba8 [0x01]: C0x0016.0x3.0
0x05ba14…05bba8 [0x02]: C0x0017.0x0.0
0x05ba14…05bba8 [0x03]: C0x0017.0x1.0
0x05ba14…05bba8 [0x04]: C0x0017.0x2.0
0x05ba14…05bba8 [0x05]: C0x0017.0x3.0
0x05ba14…05bba8 ]
0x05ba14…05bba8 }
0x05bba8…05bd3c Dummy {f00=0x0016, f01=0x0190, f02=» < P IDENT SPACHQ APPL-XX CONTROL DDUM DEMODD D PDIV X P EXPROC SPAP06 f P EXPROC SPAP07 | P EXPROC SPAP08 P EXPROC SPAP09 P EXPROC SPAP10 P EXPROC SPAP11 P EXPROC SPAP12 P EXPROC
0x05bd3c…05bed0 Dummy {f00=0x0016, f01=0x0190, f02=»19 P P EXPROC SPAP20 H T P EXPROC SPAP21 T P EXPROC SPAP23
0x05bed0…05c064 Dummy {f00=0x0016, f01=0x0190, f02=» L T P EXPROC SPAP25 P EXPROC SPAP26 l P EXPROC SPAP28 P EXPROC SPAP29 P EXPROC SPAP30 P EXPROC SPAP31 P EXPROC SPAP32 P EXPROC SPAP33 P E
0x05c064…05c1f8 Dummy {f00=0x0016, f01=0x0190, f02=» ENTRY SPAP27 P ENTRY SPCHK1 P ENTRY SPCHK2 0 P ENTRY SPCHK3 F P ENTRY SPCHK4 P ENTRY SPCHK5 r P ENTRY SPCHK6 P ENTRY SPCHK7 P ENTRY SPTCHK L P**************************************************************
0x05c1f8…05c38c Dummy {f00=0x0016, f01=0x0190, f02=» * j L P* FUNCTIONAL DESCRIPTION: * * L P* PERFORM CHECKS ON VALUE ENTERED WHILE IN SCREEN MANAGEMENT * z L P* AFTER THE OPERATOR HAS ENTERED A VALUE IN A FIELD WHICH
0x05c38c…05c520 Dummy {f00=0x0016, f01=0x0190, f02=» * j L P* SPAPPL WILL THEN PERFORM CHECKS ON THE VALUE ENTERED AND * * L P* TELL SCREEN-MANAGEMENT WHAT TO DO FURTHER. * z L P* - THE VALUE ENTERED IS FIRST MOVED TO THE CORRESPONDING
0x05c520…05c6b4 (1, 116) Dummy {f00=0x0016, f01=0x0190, f02=» (= THE SCREEN MANAGEMENT * j L P* INPUT BUFFER). * * L P* - IN MOST CASES THE ACTUAL CHECKING IS DONE BY A SPAPXX-ROUTINE * z L P* WHERE XX IS THE VALUE OF THE APPL-PARAMETER IN THE FOR
0x05c6b4…05c848 Dummy {f00=0x0016, f01=0x0190, f02=»N SPAPXX-ROUTINE IS DONE * j L P* BY THE VARIABLE NWRETCDE, AS FOLLOWS: * * L P* VALUE OF NWRETCDE: MEANS: * z L P* 0 CHECK OKE (DEFAULT)
0x05c848…05c9dc Dummy {f00=0x0016, f01=0x0190, f02=»NCEL OCCURRED OR NECESSARY * j L P* USE OF VARIABLES: * * L P* SPBINW2 (UPDATE): INDEX IN THE SCREEN-MANAGEMENT KEYTABLE * z L P* SPBINW3 (INPUT): APPL-PARAMETER FROM FORMAT DEFINITION
0x05c9dc…05cb70 Dummy {f00=0x0016, f01=0x0190, f02=» ACCORDING TO INDEX IN SPBINW2 * j L P* IF VALUE = 3 : ERROR DETECTED, DISPLAY ERRORMESSAGE * * L P* SPBINW4 (OUTPUT): CONTAINS THE NUMBER OF THE ERROR MESSAGE * z L P* TO BE DISPLAYED BY SCREEN-MANAGEMENT
0x05cb70…05cd04 Dummy {f00=0x0016, f01=0x0190, f02=»H SPAPXX-ROUTINES. * j L P* * * L P************************************************************************ z L PSPAPPL PROC
0x05cd04…05ce98 Dummy {f00=0x0016, f01=0x0190, f02=»CHECK j P* $ P* DEFAULT RETURNCODE = 0 (OKE) P* @ P MOVE NWRETCDE,=W'0' J L P IB SPBINW3,SP010,SP010,SP010,SP010,SP050 C f P P SP060,SP070,SP080,SP090,SP100, C L
0x05ce98…05d02c Dummy {f00=0x0016, f01=0x018e, f02=» Z T P SP210,SP220,SP230,SP240,SP250, C ( P SP260,SP270,SP280,SP290,SP300, C v P SP310,SP320,SP330,SP340 P B SP999 L P****************************************************
0x05d02c…05d1c0 Dummy {f00=0x0016, f01=0x0190, f02=» P* L P************************************************************************ L PSP010 ^ * P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL , P MOVE WDEC2,SPBINW3 STORE APPL PARAMETER
0x05d1c0…05d354 (1, 117) Dummy {f00=0x0017, f01=0x0190, f02=» P* P B SP990 N PS01200 L P MOVE SPBINW4,=W'1' RANGE ERROR p P B SP850 L P********************************************************
0x05d354…05d4e8 Dummy {f00=0x0017, f01=0x0190, f02=» p L P* * L P************************************************************************ X L PSP050 * P MOVE WDEC1,SPIN
0x05d4e8…05d67c Dummy {f00=0x0017, f01=0x018e, f02=»NGUAGE NUMBER OK P* P B SP990 " PS05800 2 $ P MOVE SPBINW4,=W'1' RANGE ERROR @ P B SP850 ERROR EXIT h L P************************************************************************ PSP060 P PERF SPAP06,NWRETCDE P B SP700
0x05d67c…05d810 Dummy {f00=0x0017, f01=0x0190, f02=» P PERF SPAP09,NWRETCDE P B SP700 & PSP100 6 P PERF SPAP10,NWRETCDE D P B SP700 b PSP110 r P PERF SPAP11,NWRETCDE P B SP700 PSP120 P PERF SPAP12,NWRETCDE P B SP700 PSP130 P PERF SPAP13,NWR
0x05d810…05d9a4 Dummy {f00=0x0017, f01=0x0190, f02=» SP700 PSP160 P PERF SPAP16,NWRETCDE P B SP700 : L PSP170 J L P PERF SPAP17,NWRETCDE L P B SP700
0x05d9a4…05db38 Dummy {f00=0x0017, f01=0x0190, f02=»SPAP18,NWRETCDE L P B SP700 J L PSP190 L P PERF SPAP19,NWRETCDE
0x05db38…05dccc Dummy {f00=0x0017, f01=0x0190, f02=» L P PERF SPAP20,NWRETCDE J L P B SP700 T PSP210
0x05dccc…05de60 Dummy {f00=0x0017, f01=0x0190, f02=» B T P B SP700 T PSP220 b T P PERF SPAP22,NWRETCDE
0x05de60…05dff4 (1, 118) Dummy {f00=0x0017, f01=0x018e, f02=» j T P PERF SPAP23,NWRETCDE 2 T P B SP700 T PSP240
0x05dff4…05e188 Dummy {f00=0x0017, f01=0x0190, f02=» T P B SP700 T PSP250 T P PERF SPAP25,NWRETCDE
0x05e188…05e31c Dummy {f00=0x0017, f01=0x0190, f02=» B SP700 PSP270 P PERF SPAP27,NWRETCDE P B SP700 < PSP280 L P PERF SPAP28,NWRETCDE Z P B SP700 x PSP290 P PERF SPAP29,NWRETCDE P B SP700 PSP300 P PERF SPAP30,NWRETCDE P B SP700 PSP310
0x05e31c…05e4b0 Dummy {f00=0x0017, f01=0x0190, f02=»33,NWRETCDE P B SP700 PSP340 $ P PERF SPAP34,NWRETCDE 2 P B SP700 P L P************************************************************************ ` P* 4 P* JUMP TO SPAPPL EXIT, DEPENDING ON RETURN CODE P* L P************
0x05e4b0…05e644 Dummy {f00=0x0017, f01=0x0190, f02=»P900 v P B SP990 OKE EXIT L P************************************************************************ & P* v ( P* ERROR EXIT, NO CLEARING PERFORMED P* L P************************************************************************ PSP
0x05e644…05e7d8 Dummy {f00=0x0017, f01=0x0190, f02=»****** N P* P* CANCEL EXIT P* . L P************************************************************************ 8 PSP900 P MOVE SPBINW2,KWSPCANC P MOVE SPBINW3,=W'0' P B SP999 L P****************************************
0x05e7d8…05e96c Dummy {f00=0x0017, f01=0x0190, f02=»************** V PSP990 P MOVE SPBINW3,=W'0' $ L PSP999 @ L P RET L P PEND
0x05e96c…05eb00 Dummy {f00=0x0017, f01=0x0190, f02=»******************************************************** L P* * @ L P* CHECK LINENUMBER (PASSBOOK) KEYED IN BY OPERATOR * L P*
0x05eb00…05ec94 (1, 119) Dummy {f00=0x0017, f01=0x0190, f02=»T P PBIN XWRET @ L PS16000 T L P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL L P CBL WDEC1,=D'1',S16
0x05ec94…05ee28 Dummy {f00=0x0017, f01=0x0190, f02=» L P B S16900 L PS16500 T L P MOVE XWRET,=W'1' L P MOVE SPBINW4,=W'1'
0x05ee28…05efbc Dummy {f00=0x0017, f01=0x0190, f02=» L P RET L P PEND T L P************************************************************************ L P*
0x05efbc…05f150 Dummy {f00=0x0017, f01=0x0190, f02=» L P* * ! L P************************************************************************ ! T L PSPAP17 PROC XWRET ! P PBIN XWRET ! L P
0x05f150…05f2e4 Dummy {f00=0x0017, f01=0x0190, f02=» ! X L P CBL WDEC1,=D'1',S17500 " L P CBG WDEC1,=D'8',S17500 " h L P B S17900 " L P
0x05f2e4…05f478 Dummy {f00=0x0017, f01=0x0190, f02=» " X L P MOVE SPBINW4,=W'1' # L PS17900 # h L P RET # L P
0x05f478…05f60c Dummy {f00=0x0017, f01=0x0190, f02=»**************** # X L P* * $ L P* INPUT-FIELD MUST NOT BE SPACES * $ h L P* * $ L P
0x05f60c…05f7a0 Dummy {f00=0x0017, f01=0x0190, f02=» $ X P PBIN XWRET % L PS18000 % , L P MOVE WCSTRG25,=C' ' % | L P COPY WCSTRG25,KW0,SPBINW1,SPINPUT,KW0
0x05f7a0…05f934 (1, 120) Dummy {f00=0x0017, f01=0x0190, f02=» % l L PS18500 & , L P MOVE XWRET,=W'1' & | L P MOVE SPBINW4,=W'1'
0x05f934…05fac8 Dummy {f00=0x0017, f01=0x0190, f02=» & l L P PEND ' , L P************************************************************************ ' | L P*
0x05fac8…05fc5c Dummy {f00=0x0017, f01=0x0190, f02=» L P************************************************************************ ( PSPAP22 PROC XWRET ( T P PBIN XWRET ( n PS22000 ( P MOVE SPBINW2,KWSPCONT ( PS22999 ( P RET ( P PEND ( J P**************************************************
0x05fc5c…05fdf0 Dummy {f00=0x0017, f01=0x0190, f02=»********************************* ( l PSPAP27 PROC XWRET ) * P PBIN XWRET ) H PS27000 ) " P MOVE WDEC1,SPINPUT ) j ( P CBG WDEC1,=D'0',S27500 ) P MOVE XWRET,=W'1' ) @ P MOVE SPBINW4,=W'1' '
0x05fdf0…05ff84 Dummy {f00=0x0017, f01=0x018e, f02=» ) P PEND * L P************************************************************************ * PSPCHK1 PROC * n RET * PEND * PSPCHK2 PROC * RET * PEND * PSPCHK3 PROC * RET * PEND * PSPCHK4 PROC *
0x05ff84…060118 Dummy {f00=0x0017, f01=0x4060, f02=» * P RET + P PEND + PSPTCHK PROC + " P RET + 6 P PEND + B END + P@ + ****** * PSPCHK1 PROC * n RET * PEND * PSPCHK2 PROC * RET * PEND * PSPCHK3 PROC * RET * PEND * PSPCHK4 PROC *
0x060118…0602ac Dummy {f00=0x0017, f01=0x2008, f02=» , SCHK3 PROC RET PEND & SCHK4 PROC 4 RET F PEND R * ` * j SCHK5 PROC t RET PEND * * END @ * SPAPPL PROC RET PEND *
0x0602ac…060440 Dummy {f00=0x0017, f01=0x0190, f02=» L P FNL U L P FBT SBCHQACT,F04130 U T L P FBT SBNOBOOK,F04130 U L P*
0x060440…0605d4 (1, 121) Opaque[0x194]
0x0605d4…060768 # DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x8157, f02=0x0300, f03=0x8156}
0x0605d4…060768 IdxSect {
0x0605d4…060768 f00 = 0x0018 // 0x605d4 @0x0
0x0605d4…060768 f01 = 0x0006 // 0x605d6 @0x2
0x0605d4…060768 gno = [ // 0x605d8 @0x4
0x0605d4…060768 [0x00]: C0x0018.0x0.0
0x0605d4…060768 [0x01]: C0x0018.0x1.0
0x0605d4…060768 [0x02]: C0x0018.0x2.0
0x0605d4…060768 ]
0x0605d4…060768 }
0x060768…0608fc Dummy {f00=0x0018, f01=0x0190, f02=» B P IDENT BASPCT TERMINAL SPECIFICATION DDUM DEMODD J PDIV ^ P EXPROC CASTTS l P EXPROC CBSTTS P EXPROC XBFMT P EXPROC ZBCLSD P EXPROC ZKOPNF P EXPROC ZAOPND P EXPROC ZLCLSF P E
0x0608fc…060a90 Dummy {f00=0x0018, f01=0x0190, f02=»******************* ^ P* P* TERMINAL SPECIFICATION & P* H L P************************************************************************ R BASPCT PROC P* P* KEY 2 IS ON ( P* RDSTATUS = 0 AND YDSTATUS = 0 OR 2 P*
0x060a90…060c24 Dummy {f00=0x0018, f01=0x0190, f02=»2' ~ P MOVE RDSCRLNS,=D'1' P MOVE RDALFKB,=D'0' & P MOVE RDPRTTYP,=D'1' B P MOVE RDBCR,=D'1' ^ P PERF ZKOPNF OPEN FORMATFILE x P TBT SBCANCEL,BA800 P PERF ZAOPND OPEN DATABASE P TBT SBCANCEL,BA800 * P MOVE NDTRMLGG,YDS
0x060c24…060db8 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* INITIALISE SCREEN PARAMETERS * L P* * l T P MOVE RDSCRLNS,=D'1'
0x060db8…060f4c Dummy {f00=0x0018, f01=0x0190, f02=»RTED l P* P* SYSTEM START - PART 1 P* 6 , P PERF CASTTS GET LANGUAGE + VOLUME NAMES @ P TBT SBCANCEL,BA900 p BA100 P* P* TERMINAL SPECIFICATION P* P PERF ZKOPNF OPEN FORMATFILE P TBT SBCANCEL,BA800
0x060f4c…0610e0 Dummy {f00=0x0018, f01=0x0190, f02=»,=D'6' z $ P PERF XBFMT,=W'11' DISPLAY TYPE P TBT SBCANCEL,BA800 6 P* R 8 P* CALCULATE NUMBER OF AVAILABLE LINES ON THE SCREEN P* $ P MOVE SPLSTLNE,IDNR1 P MOVE RDSCRLNS,IDNR1 , P CBE RDSCRLNS,=D'1',BA200 SCREEN I
0x0610e0…061274 (1, 122) Dummy {f00=0x0018, f01=0x018e, f02=» z & P MUL RDTRMRNR,KDSHIFT SHIFT NUMBER P TBT SBFT80,BA850 2 . P PERF XBFMT,=W'13' TERMINAL SPECIFICATION L P TBT SBCANCEL,BA800 ~ , P MOVE RDSTATUS,=D'1' TERMINAL SPECIFIED PBA250 P* P CBNE RDBCR,=D'2',BA300 $ P SET S
0x061274…061408 Dummy {f00=0x0018, f01=0x0190, f02=» P CBNE RDTND,=D'1',BA500 P SET SBTND TND PRESENT $ P B P* J B P* TND START - LOAD CASSETTES AND GET AMOUNT PER DENOMINATION T P* P PERF TNDOPN P TBT SBCANCEL,BA800 PBA500 P* END OF TERMINAL SPEC P* ,
0x061408…06159c Dummy {f00=0x0018, f01=0x0190, f02=»BA900 L P B BA999 B P* : P* CANCEL EXIT, IF THIS TERMINAL IS STARTING THE SYSTEM 4 P* RESTORE SYSTEM STATUS AND CLOSE FILES AGA
0x06159c…061730 Dummy {f00=0x0018, f01=0x018e, f02=»LOSE FORMATFILE $ P MOVE YDSTATUS,=D'0' NOT STARTED P B BA900 @ PBA850 P P PERF XBFMT,=W'68' ^ P TBT SBCANCEL,BA999 x , P MOVE RDSTATUS,=D'1' TERMINAL SPECIFIED P B BA999 P* L P* CANCEL EXIT, RESTORE STATUS FIELD
0x061730…0618c4 Dummy {f00=0x0018, f01=0x0190, f02=» F BA999 RET PEND " L P************************************************************************ 0 L P************************************************************************ L P*
0x0618c4…061a58 Dummy {f00=0x0018, f01=0x0190, f02=» * p L P************************************************************************ 0 T PSPAP15 PROC XWRET P PBIN XWRET T PS15000
0x061a58…061bec Dummy {f00=0x0018, f01=0x0190, f02=» D P CBE IDNR1,=D'2',S15900 R P CBE IDNR1,=D'6',S15900 * R P CBE IDNR1,=D'8',S15900 R P CBE IDNR1,=D'20',S15900
0x061bec…061d80 Dummy {f00=0x0018, f01=0x018e, f02=» * L P* SCREEN PARAMETER IS NOT VALID * B L P* * T P MOVE XWRET,=W'1' INDICATE ERROR
0x061d80…061f14 (1, 123) Dummy {f00=0x0018, f01=0x0190, f02=» T PS15900 T P RET P PEND L P**********************************************************************
0x061f14…0620a8 Dummy {f00=0x0018, f01=0x0190, f02=»**************************** d PSPAP31 PROC XWRET $ P PBIN XWRET > PS31000 R P MOVE WDEC1,SPINPUT ` P CBG RDALFKB,=D'1',S31900 | P* , P* VALUE ENTERED IS OKE, REDISPLAY LINE 7 P* 0 P MOVE RCTRMNME,=X'00' MAKE FIELD MUST-
0x0620a8…06223c Dummy {f00=0x0018, f01=0x4108, f02=»W1,WW1 REDISPLAY P B S31999 PS31900 * P MOVE XWRET,=W'1' 8 * P MOVE SPBINW4,=W'1' VALUE NOT IN RANGE R PS31999 P RET P PEND L P************************************************************************ END @
0x06223c…0623d0 Dummy {f00=0x0018, f01=0x2008, f02=» NT SPEC DDUM DEMODD PDIV , ENTRY BASPCT : END P@ K) D 6 2 PSBCLSLNE BOOL FALSE PRINT CLOSE LINE (PBBOOK) D j * PNDLRN3 BCD 12 LOGICAL REC.NR. (ZDSCIO) D 4 PSBNOCOPY BOOL FALSE NO COPY FROM/TO UWB (ZDSCIO) D . PSB
0x0623d0…062564 Dummy {f00=0x0018, f01=0x0190, f02=» A t * & * & - P R @ , ( K@ A0 n , ( a , ( q " $ & ( * , (
0x062564…0626f8 Dummy {f00=0x0018, f01=0x0190, f02=» X T:DA00 T:DA00D AAMAIN . * & A0 0 * @ n * < H IDENT T:ATAB TRA 10.0 - - F1 O1111 DATA DIVISION T:ATAB T:ATABA T
0x0626f8…06288c Dummy {f00=0x0018, f01=0x0190, f02=» U:BTABB > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 U:UT20B U:UQQ0A V * & DD 8 UBF UIF UCY p , ( ""UOP UA1 UA2 UT1 / UT2 UQQ 8 < H IDENT S:BTA
0x06288c…062a20 Dummy {f00=0x0018, f01=0x0190, f02=»W10 TRA 10.0 - - F1 O1111 DATA DIVISION C:CW10 6 C:CW10C H & & ~ & = & [ & y & * & * &
0x062a20…062bb4 (1, 124) Opaque[0x194]
0x062bb4…062d48 # DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0x8156, f01=0x05b8, f02=0x0318, f03=0x9920}
0x062bb4…062d48 IdxSect {
0x062bb4…062d48 f00 = 0x0018 // 0x62bb4 @0x0
0x062bb4…062d48 f01 = 0x0008 // 0x62bb6 @0x2
0x062bb4…062d48 gno = [ // 0x62bb8 @0x4
0x062bb4…062d48 [0x00]: C0x0018.0x3.0
0x062bb4…062d48 [0x01]: C0x0019.0x0.0
0x062bb4…062d48 [0x02]: C0x0019.0x1.0
0x062bb4…062d48 [0x03]: C0x0019.0x2.0
0x062bb4…062d48 ]
0x062bb4…062d48 }
0x062d48…062edc Dummy {f00=0x0018, f01=0x0190, f02=» > P IDENT QIRDBS DATABASE RECOVERY L P DDUM DEMODD F L P PDIV P EXPROC ZAOPND P EXPROC ZBCL
0x062edc…063070 Dummy {f00=0x0018, f01=0x0190, f02=» f P P EXPROC ZEINSD * P EXPROC ZGREA ~ P P EXPROC MASK P EXT GETLRN $ P EXT PUTLRN
0x063070…063204 Dummy {f00=0x0018, f01=0x0190, f02=»******************************************** t L P* * 4 L P* DATABASE RECOVERY * L P* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE
0x063204…063398 Dummy {f00=0x0018, f01=0x0190, f02=» YDLASSEQ * t L P* - RESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED * 4 L P* * L P****************************************************
0x063398…06352c Dummy {f00=0x0018, f01=0x0190, f02=» t L P* * 4 L P* UPDATE THE LAST RECORD NUMBER OF THE DATABASE * L P*
0x06352c…0636c0 Dummy {f00=0x0018, f01=0x0190, f02=»WITH NO DATA t , P* THEN THE NEW LRN IS WRITTEN TO DISK P* D , P MOVE WC1STRG8,='DATABA ' DATABASE NAME N 2 P MOVE WCSTRG6,='DSC000' ARBITRARY VOLUM E NAME ~ 6 P XCOPY WCSTRG6,KW3,KW3,VCVOLNR1,KW0 CURRENT VOLNR 0 P CALL GETLRN,WC1STRG8,1,WC
0x0636c0…063854 (1, 125) Dummy {f00=0x0019, f01=0x0190, f02=» * N T P SUB NDLRN2,=D'1' L P* * f L P* NDLRN2 NOW CONTAINS THE LAST RECORD NUMBER OF THE DATABASE * L P*
0x063854…0639e8 Dummy {f00=0x0019, f01=0x0190, f02=» * V L P* * T P MOVE WW2,=W'127' SET RECORD LENGTH f T P MOVE WWCOUNT,=W'0' INIT 'NO DATA' COUNT
0x0639e8…063b7c Dummy {f00=0x0019, f01=0x018e, f02=» * f L P* IF THERE ARE MORE THEN 50 CONSECUTIVE RECORDS * & L P* CONTAINING NO DATA, RECOVERY IS ASSUMED TO BE COMPLETED * v L P*
0x063b7c…063d10 Dummy {f00=0x0019, f01=0x0190, f02=» n T P ADD NDLRN2,=D'1' ( P READ .DIR,DSDBS,FCBUFFER,WW2,NDLRN2 ` T P XSTAT DSDBS,NWXSTAT T P MOVE WW1,=X'0800' SET BIT 4: NO DAT
0x063d10…063ea4 Dummy {f00=0x0019, f01=0x0190, f02=» T P BOK QI050 RECORD IS USED 2 P CBNE WWCOUNT,KW0,QI060 NOT FIRST EMPTY RECORD P PERF ZBCLSD CLOSE DATABASE & P MOVE WW1,NDLRN2 CONVERT TO BINARY & P SUB WW1,KW1 LAST RECORD WITH DATA 0
0x063ea4…064038 Dummy {f00=0x0019, f01=0x0190, f02=» * ^ PQI060 T P ADD WWCOUNT,=W'1' ONE MORE FREE RECORD , T P CBG WWCOUNT,=W'50',QI100 RECOVERY COMPLETED T P B QI050 READ NEXT RECORD
0x064038…0641cc Dummy {f00=0x0019, f01=0x0190, f02=»TEM RECORD VARIABLES * L P* TO REFLECT THE CURRENT SITUATION OF THE DATABASE * D L P* ACCOUNT RECORDS ARE SCANNED UNTIL 50 CONSECUTIVE * L P* UNUSED ACCOUNT NUMBERS HAVE BEE
0x0641cc…064360 Dummy {f00=0x0019, f01=0x0190, f02=» R P MOVE YDLASSAV,=D'167999' LAST SAVINGS-ACT. NUMBER D R P MOVE YDLASCHQ,=D'167998' LAST CHEQUE-ACT. NUMBER L P MOVE YDLASSEQ,=D'0' LAS
0x064360…0644f4 (1, 126) Dummy {f00=0x0019, f01=0x0190, f02=»* START WITH SAVINGS ACCOUNTS * P CLEAR SBCHQACT P N P MOVE IDACTNR1,=D'167999' h L PQI150 $
0x0644f4…064688 Dummy {f00=0x0019, f01=0x0190, f02=»,IDACTNR1 L P MUL ADACTRNR,KDSHIFT B L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,QI980
0x064688…06481c Dummy {f00=0x0019, f01=0x0190, f02=»NT NUMBER * L P ADD WWCOUNT,=W'1' B L P CBG WWCOUNT,=W'50',QI700 READY, STOP L P B QI150 NEXT ACCOUNT
0x06481c…0649b0 Dummy {f00=0x0019, f01=0x0190, f02=»RECORD IS AVAILABLE, * L P* UPDATE SYSTEM RECORD VARIABLES * B L P* * L PQI200
0x0649b0…064b44 Dummy {f00=0x0019, f01=0x0190, f02=» * L P* UPDATE LAST SAVINGS/CHEQUE ACCOUNT NUMBER * B L P* * L P TBT SBCHQACT,QI300
0x064b44…064cd8 Dummy {f00=0x0019, f01=0x0190, f02=»UNT * L P* * B L P CBL IDACTNR1,YDLASSAV,QI400 L P MOVE YDLASSAV,IDACTNR1 UPDATE
0x064cd8…064e6c Dummy {f00=0x0019, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT * B L P* * L PQI300
0x064e6c…065000 Dummy {f00=0x0019, f01=0x0190, f02=»,IDACTNR1 UPDATE L P* * B L P* UPDATE LAST TRANSACTION SEQUENCE NUMBER * L P*
0x065000…065194 (1, 127) Dummy {f00=0x0019, f01=0x0190, f02=»YDLASSEQ,QI500 L P MOVE YDLASSEQ,ADLASSEQ UPDATE B L P* * L P* RESET ACCOUNT STATUS TO DEBLOCKED,
0x065194…065328 Dummy {f00=0x0019, f01=0x0190, f02=» * L PQI500 B L P CBL ADSTATUS,=D'2',QI600 ACCOUNT NOT CLOSED L P MOVE ADSTATUS,=D'0' DEBLOCKED
0x065328…0654bc Dummy {f00=0x0019, f01=0x0190, f02=»QI980 L PQI600 B L P B QI150 L P*
0x0654bc…065650 Dummy {f00=0x0019, f01=0x0190, f02=»E CHEQUE ACCOUNTS MUST STILL BE DONE * L P* * B L PQI700 L P TBT SBCHQACT,QI980 READY
0x065650…0657e4 Dummy {f00=0x0019, f01=0x0190, f02=» N P MOVE IDACTNR1,=D'167998' START WITH CHEQUE ACCOUNTS B $ P MOVE WWCOUNT,=W'0' RESET COUNT L P B QI150
0x0657e4…065978 Dummy {f00=0x0019, f01=0x4144, f02=» RET L P PEND P L P************************************************************************ L P END
0x065978…065b0c Dummy {f00=0x0019, f01=0x2008, f02=» x L P RET 8 L P PEND L P************************************************
0x065b0c…065ca0 Dummy {f00=0x0019, f01=0x2008, f02=» % x L P RET 8 L P PEND L P************************************************
0x065ca0…065e34 (1, 128) Opaque[0x194]
0x065e34…065fc8 # DirEnt {nam=»QMISC «, typ=»SC«, f00=0x05ba, f01=0x8157, f02=0x0338, f03=0xbd56}
0x065e34…065fc8 IdxSect {
0x065e34…065fc8 f00 = 0x0019 // 0x65e34 @0x0
0x065e34…065fc8 f01 = 0x0010 // 0x65e36 @0x2
0x065e34…065fc8 gno = [ // 0x65e38 @0x4
0x065e34…065fc8 [0x00]: C0x0019.0x3.0
0x065e34…065fc8 [0x01]: C0x001a.0x0.0
0x065e34…065fc8 [0x02]: C0x001a.0x1.0
0x065e34…065fc8 [0x03]: C0x001a.0x2.0
0x065e34…065fc8 [0x04]: C0x001a.0x3.0
0x065e34…065fc8 [0x05]: C0x001b.0x0.0
0x065e34…065fc8 [0x06]: C0x001b.0x1.0
0x065e34…065fc8 [0x07]: C0x001b.0x2.0
0x065e34…065fc8 ]
0x065e34…065fc8 }
0x065fc8…06615c Dummy {f00=0x0019, f01=0x0190, f02=» D P IDENT QMISC MISCELANEOUS SUBROUTINES DDUM DEMODDIV L PDIV b P ENTRY QAFNKY p P ENTRY QBSTKY P ENTRY QCGUWB P ENTRY QDFUWB P ENTRY QENTRS P ENTRY QFLTRS P ENTRY QGATYP
0x06615c…0662f0 Dummy {f00=0x0019, f01=0x0190, f02=» * L P* PROCEDURE: QAFNKY * F L P* PARAMETERS: * L P* XWINDEX (UPDATE): INDEX IN
0x0662f0…066484 Dummy {f00=0x0019, f01=0x0190, f02=»TBLNG (INPUT): LENGTH OF ONE HALF OF THE KEYTABLE * L P* FUNCTIONAL DESCRIPTION: * F L P* QAFNKY CHECKS THE EOI-KEY ENTERED BY THE OPERATOR AFTER A * L P* KI-INSTRUCTION.
0x066484…066618 Dummy {f00=0x0019, f01=0x0190, f02=»: VALUE OF XWINDEX MEANS: * L P* -8 =< V =< -1 KEYLOCK TURNED ON 6236/71/72-KB * F L P* V = 0 POWER FAILURE * L P* 1 =< V =< XWKTBLNG
0x066618…0667ac Dummy {f00=0x0019, f01=0x0190, f02=»G+1 =< V =< 2*XWKTBLNG 6234/31-KEYBOARD AND KEY 2 ON * L P* OTHER VALUES UNDEFINED KEY * F L P* * L P* THE ROUTINE QBSTKY CHECKS W
0x0667ac…066940 Dummy {f00=0x0019, f01=0x0190, f02=» SBKEY2 ACCORDINGLY AND SET XWINDEX TO XWADAPT. * L P* IF XWINDEX IS NOT IN THE RANGE 1....2*XWKTBLNG THEN * F L P* XWINDEX IS SET TO XWADAPT AND CONTROL IS RETURNED. * L P* ELSE IF A 6234-TYPE KEYBOAR
0x066940…066ad4 (1, 129) Dummy {f00=0x001a, f01=0x0190, f02=»EY1 AND SBKEY2 ARE SET TO THE RIGHT VALUES. * L P* * F L P* VARIABLES USED: * L P* SB34KB: 6234/31-KEYBOARD
0x066ad4…066c68 Dummy {f00=0x001a, f01=0x0190, f02=»EY2: IS KEY 2 ON ? * L P* WORKVARIABLE: * F L P* WW1 * L P*
0x066c68…066dfc Dummy {f00=0x001a, f01=0x0190, f02=»C XWINDEX,XWADAPT,XWKTBLNG " P PBIN XWINDEX,XWADAPT,XWKTBLNG F L PQA000 l L P* *
0x066dfc…066f90 Dummy {f00=0x001a, f01=0x0190, f02=» * L P PERF QBSTKY,XWINDEX,XWADAPT L P* * l L P* CHECK IF INDEX POINTS INTO THE KEYTABLE *
0x066f90…067124 Dummy {f00=0x001a, f01=0x0190, f02=» L P MOVE WW1,XWKTBLNG L P MUL WW1,=W'2' FULL KEYTABLE LENGTH l L P CBG XWINDEX,WW1,QA900 INDEX NOT IN RANGE
0x067124…0672b8 Dummy {f00=0x001a, f01=0x0190, f02=» * L P* CHECK KEYBOARD TYPE * L P* * l L P CBG XWINDEX,XWKTBLNG,QA300 6231/34 KEYBOARD WITH KEY 2 ON
0x0672b8…06744c Dummy {f00=0x001a, f01=0x0190, f02=»/34 KEYBOARD, * L P* CHECK KEYLOCK TURNED * J P* QA300 & P SET SB34KB SET KB TYPE AT TRMSTT * P CBG XWINDEX,XWKTBLNG,QA500 KEY2 IS ON
0x06744c…0675e0 Dummy {f00=0x001a, f01=0x0190, f02=» P B QA999 P* P* KEY2 IS ON " P* 6 PQA500 @ 2 P SUB XWINDEX,XWKTBLNG ADJUST INDEX IN KEYTABLE N * P TBT SBKEY2,QA999 KEY2 WAS ALREADY ON SET SBKEY2 P CLEAR SBKEY1 P B QA999 P* $ P* IF A KEYLOCK HAS
0x0675e0…067774 (1, 130) Dummy {f00=0x001a, f01=0x0190, f02=» b QA999 RET PEND " L P************************************************************************ 0 L P* * L P* PROCEDURE: QBSTKY
0x067774…067908 Dummy {f00=0x001a, f01=0x0190, f02=»RETURNED BY KI-INSTRUCTION. * p L P* XWADAPT (INPUT): ADAPT VALUE FOR XWINDEX. * 0 L P* FUNCTIONAL DESCRIPTION: * L P* IF KEYLOCK HAS BEEN TURNED ON 6236/71/72-KEYBOARD
0x067908…067a9c Dummy {f00=0x001a, f01=0x0190, f02=» -4: KEY 1 TURNED OFF * p L P* -7: KEY 2 TURNED ON -3: KEY 2 TURNED OFF * 0 L P* -6: KEY 3 TURNED ON -2: KEY 3 TURNED OFF * L P* -5: KEY 4 TURNED ON -1: KEY 4 TURNED OF
0x067a9c…067c30 Dummy {f00=0x001a, f01=0x0190, f02=» TURNED XWINDEX MUST BE SET TO XWADAPT * p L P* * 0 L P* VARIABLES USED: * L P* SB34KB: 6234/31-KEYBOARD ?
0x067c30…067dc4 Dummy {f00=0x001a, f01=0x0190, f02=» * p L P* WORKVARIABLE: * 0 L P* WW1 * L P*
0x067dc4…067f58 Dummy {f00=0x001a, f01=0x0190, f02=» p P PBIN XWINDEX,XWADAPT 0 ( P MOVE WW1,XWINDEX CONVERT TO BINARY N P ADD WW1,=W'9' z " P IB WW1,QB100,QB200,QB900, C $ P QB900,QB500,QB600,QB900,QB900 P* P* NO KEYLOCK TURNED P*
0x067f58…0680ec Dummy {f00=0x001a, f01=0x0190, f02=» CLEAR SBKEY1 P B QB900 PQB600 & P CLEAR SBKEY2 4 L P* * J L P* IF A KEYLOCK HAS BEEN TURNED, * L P* ADAPT THE INDEX IN THE KE
0x0680ec…068280 Dummy {f00=0x001a, f01=0x0190, f02=» L P MOVE XWINDEX,XWADAPT J L PQB999 P RET P PEND L P****
0x068280…068414 (1, 131) Dummy {f00=0x001a, f01=0x0190, f02=» * T L P* PROCEDURE: QCGUWB * L P* FUNCTIONAL DESCRIPTION: * d L P* TRY TO GET A SET OF FREE USER WORKBLOCKS. * L P*
0x068414…0685a8 Dummy {f00=0x001a, f01=0x0190, f02=» * T L P* NWUWBNR WILL THEN CONTAIN THE NUMBER OF THE UWB'S GRABBED. * L P* IF NO UWB'S ARE AVAILABLE, NWUWBNR IS SET TO ZERO. * d L P* * L P*
0x0685a8…06873c Dummy {f00=0x001a, f01=0x0190, f02=»ED. * T L P* SBUSEDUWB: BOOLEAN TO INDICATE WHETHER OR NOT THE UWB'S * L P* WITH A CERTAIN NUMBER ARE USED OR NOT. * d L P* * L P****
0x06873c…0688d0 Dummy {f00=0x001a, f01=0x0190, f02=» T L PQC000 L P MOVE NWUWBNR,=W'0' d L P* * L P* TR
0x0688d0…068a64 Dummy {f00=0x001a, f01=0x0190, f02=» * T L PQC100 L P ADD NWUWBNR,=W'1' d L P USE UBF,NWUWBNR L P BER
0x068a64…068bf8 Dummy {f00=0x001a, f01=0x0190, f02=» T L P B QC100 TRY NEXT UWB L P* * d L P* GET OTHER USER WORK BLOCKS AS WELL * L P*
0x068bf8…068d8c Dummy {f00=0x001a, f01=0x0190, f02=» T L P SET SBUSEDWB L P USE UCY,NWUWBNR d P USE UIF,NWUWBNR L P USE UOP,NWUWBNR
0x068d8c…068f20 Dummy {f00=0x001a, f01=0x0190, f02=» l L P USE UT1,NWUWBNR , L P USE UT2,NWUWBNR | P USE UQQ,NWUWBNR L P B QC999
0x068f20…0690b4 (1, 132) Dummy {f00=0x001a, f01=0x0190, f02=»B'S * L P* * D L PQC500 L P MOVE NWUWBNR,=W'0' INDICATE NO F
0x0690b4…069248 Dummy {f00=0x001a, f01=0x0190, f02=» L P PEND D L P************************************************************************ L P*
0x069248…0693dc Dummy {f00=0x001a, f01=0x0190, f02=»AL DESCRIPTION: * L P* FREE TGHE UWB'S RESERVED BEFORE BY CLEARING SBUSEDWB. * D L P* * L P************************************
0x0693dc…069570 Dummy {f00=0x001a, f01=0x0190, f02=» L P CLEAR SBUSEDWB ! D L PQD999 ! L P RET
0x069570…069704 Dummy {f00=0x001a, f01=0x0190, f02=»************************************************************ ! L P* * " D L P* PROCEDURE: QENTRS * " L P* PARAMETER:
0x069704…069898 Dummy {f00=0x001a, f01=0x0190, f02=»AL DESCRIPTION: * " L P* CALCULATE THE NEXT TRANSACTION NUMBER. * # D L P* THE TRANSACTIONS BELONGING TO AN ACCOUNT ARE NUMBERED FROM * # L P* 1 TO 8 AND ARE USED CIRCULARL
0x069898…069a2c Dummy {f00=0x001a, f01=0x0190, f02=» = 9, RESET XDTRS TO 1. * # L P* * $ D L P************************************************************************ $ L PQENTRS PROC XDTRS
0x069a2c…069bc0 Dummy {f00=0x001a, f01=0x0190, f02=» $ H L P ADD XDTRS,=D'1' % L P CBL XDTRS,=D'9',QE999 OKE % X L P MOVE XDTRS,=D'1' NEXT SEQ NR. IS 1 % L PQE999
0x069bc0…069d54 (1, 133) Dummy {f00=0x001b, f01=0x0190, f02=» % H L P PEND & L P************************************************************************ & X L P* * & L P* PROCEDURE:
0x069d54…069ee8 Dummy {f00=0x001b, f01=0x0190, f02=» & H L P* XDTRS (UPDATE): A TRANSACTION NUMBER BETWEEN 1 AND 8. * ' L P* FUNCTIONAL DESCRIPTION: * ' X L P* CALCULATE THE LAST TRANSACTION NUMBER. * ' L P* TO GET TH
0x069ee8…06a07c Dummy {f00=0x001b, f01=0x0190, f02=» ' H L P* * ( L P************************************************************************ ( X L PQFLTRS PROC XDTRS ( P PBCD XDTRS (
0x06a07c…06a210 Dummy {f00=0x001b, f01=0x0190, f02=» ( L P CBG XDTRS,=D'0',QF999 OKE ) L P MOVE XDTRS,=D'8' LAST SEQ NR. IS 8 ) l L PQF999 )
0x06a210…06a3a4 Dummy {f00=0x001b, f01=0x0190, f02=» ) L P************************************************************************ * L P* * * l L P* PROCEDURE: QGATYP * *
0x06a3a4…06a538 Dummy {f00=0x001b, f01=0x0190, f02=» * * L P* FUNCTIONAL DESCRIPTION: * + L P* IF THE UNSHIFTED ACCOUNT NUMBER IN XDACTNR IS EVEN THEN IT * + l L P* IS A CHEQUE ACCOUNT NUMBER AND SBCHQACT IS SET TO TRUE * +
0x06a538…06a6cc Dummy {f00=0x001b, f01=0x0190, f02=» * + L P* VARIABLES USED: * , L P* SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * , l L P* WORKVARIABLE: * ,
0x06a6cc…06a860 Dummy {f00=0x001b, f01=0x0190, f02=» * , L P************************************************************************ - L PQGATYP PROC XDACTNR - l P PBCD XDACTNR - L PQG000
0x06a860…06a9f4 (1, 134) Dummy {f00=0x001b, f01=0x0190, f02=» * - r L P* TEST ACCOUNTNUMBER IS ODD/EVEN * . 2 L P* * . L P MOVE WDEC1,XDACTNR
0x06a9f4…06ab88 Dummy {f00=0x001b, f01=0x0190, f02=» . r L P CBNE WDEC1,XDACTNR,QG200 NUMBER IS ODD / 2 L P SET SBCHQACT EVEN NUMBER - CHEQUE ACCOUNT / L PQG200
0x06ab88…06ad1c Dummy {f00=0x001b, f01=0x0190, f02=» / r L P************************************************************************ 0 2 L P* * 0 L P* PROCEDURE: QHSPKY
0x06ad1c…06aeb0 Dummy {f00=0x001b, f01=0x0190, f02=»X IN THE SCREEN-MANAGEMENT KEYTABLE. * 0 r L P* XWADAPT (INPUT): ADAPT-VALUE FOR XWINDEX. * 1 2 L P* XWKTBLNG (INPUT): FULL SCREEN-MANAGEMENT KEYTABLE LENGTH. * 1 L P* FUNCTIONAL DESCRIPTION:
0x06aeb0…06b044 Dummy {f00=0x001b, f01=0x0190, f02=» KEYLOCK TURNED ON 6236-TYPE KEYBOARD. * 1 r L P* THIS WILL BE HANDLED BY 'QBSTKY'. * 2 2 L P* V = 0 POWER FAILURE * 2 L P* 0 =< V =< XWKTBLNG-1 KEY LISTED IN THE KEYT
0x06b044…06b1d8 Dummy {f00=0x001b, f01=0x0190, f02=» * 2 r L P************************************************************************ 3 2 L PQHSPKY PROC XWINDEX,XWADAPT,XWKTBLNG 3 " P PBIN XWINDEX,XWADAPT,XWKTBLNG 3 L PQH000
0x06b1d8…06b36c Dummy {f00=0x001b, f01=0x0190, f02=» 3 H L P* CHECK KEYLOCK TURNED FOR 6236/71/72 * 4 L P* * 4 X L P PERF QBSTKY,XWINDEX,XWADAPT 4 L P*
0x06b36c…06b500 Dummy {f00=0x001b, f01=0x0190, f02=» 4 H 8 P* FIRST ADAPT THE INDEX FOR CALCULATION PURPOSES 5 L P* (THE DYKI INDEX IS DIFFERENT FROM THE KI INDEX) * 5 D L P* * 5 L P ADD XWINDEX,=W'1'
0x06b500…06b694 (1, 135) Dummy {f00=0x001b, f01=0x0190, f02=»H900 INDEX NOT IN KEYTABLE 5 | 6 P CBG XWINDEX,XWKTBLNG,QH900 INDEX NOT IN KEYTABLE 6 " 2 P CBE XWINDEX,=W'1',QH900 BACKSPACE KEY ENTERED 6 L P* * 6 L P* READJUST INDEX FOR SCREEN MANAGEMENT
0x06b694…06b828 Dummy {f00=0x001b, f01=0x0190, f02=»W'1' 6 P B QH999 7 B P* 7 R $ P* ADAPT INDEX IN THE KEYTABLE 7 P* 7 PQH900 7 P MOVE XWINDEX,XWADAPT 7 L PQH999 7 L
0x06b828…06b9bc Dummy {f00=0x001b, f01=0x407a, f02=» 7 Z L P************************************************************************ 8 P END 8 j@ 8 vE 7 P* 7 PQH900 7 P MOVE XWINDEX,XWADAPT 7 L PQH999 7 L
0x06b9bc…06bb50 Dummy {f00=0x001b, f01=0x2008, f02=» 9 NG2 QA999 RET " PEND . * < * F QBSETKEY PROC,XPBINDEX P ADD n@ zON ( # CBG SPBINW2,QKTBLNG1,QA400,KEY1 ON * " * ERROR, NO 8-BITSETTING USED EXIT * QA400
0x06bb50…06bce4 Dummy {f00=0x001b, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x06bce4…06be78 Dummy {f00=0x001b, f01=0x0190, f02=»IFT SYSTEM RECORD KEY ~ * P SET SBNOCOPY DON'T COPY RECORD TO UWB $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 L T P TBT SBCANCEL,CG390 t P* : P* NOW SET NWRECLNG TO THE LENGTH OF AN OPERATOR RE
0x06be78…06c00c Dummy {f00=0x001b, f01=0x0190, f02=»PRRNR RECORD LENGTH IN NWRECLNG P* ( P* INITIALISE TOTAL FIELDS 2 P* T P MOVE WDEC1,=D'0' ^ P MOVE WDEC2,=D'0' x P MOVE IDNR1,=D'0' P MOVE IDNR2,=D'0' P MOVE IDNR3,=D'0' P MOVE IDNR4,=D'0' P MOVE IDACTNR1
0x06c00c…06c1a0 Dummy {f00=0x001b, f01=0x0190, f02=»IDAMT2,=D'0' P* R F P* READ NEXT RECORD IN THE DATABASE AND CHECK WHETHER OR NOT IT IS P* AN OPERATOR RECORD P* T PCG250
0x06c1a0…06c334 (1, 136) Opaque[0x194]
0x06c334…06c4c8 # DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0xb957, f01=0x05b8, f02=0x0378, f03=0x8156}
0x06c334…06c4c8 IdxSect {
0x06c334…06c4c8 f00 = 0x001b // 0x6c334 @0x0
0x06c334…06c4c8 f01 = 0x0014 // 0x6c336 @0x2
0x06c334…06c4c8 gno = [ // 0x6c338 @0x4
0x06c334…06c4c8 [0x00]: C0x001b.0x3.0
0x06c334…06c4c8 [0x01]: C0x001c.0x0.0
0x06c334…06c4c8 [0x02]: C0x001c.0x1.0
0x06c334…06c4c8 [0x03]: C0x001c.0x2.0
0x06c334…06c4c8 [0x04]: C0x001c.0x3.0
0x06c334…06c4c8 [0x05]: C0x001d.0x0.0
0x06c334…06c4c8 [0x06]: C0x001d.0x1.0
0x06c334…06c4c8 [0x07]: C0x001d.0x2.0
0x06c334…06c4c8 [0x08]: C0x001d.0x3.0
0x06c334…06c4c8 [0x09]: C0x001e.0x0.0
0x06c334…06c4c8 ]
0x06c334…06c4c8 }
0x06c4c8…06c65c Dummy {f00=0x001b, f01=0x0190, f02=» 0 P IDENT ZDSCIO DISC I/O OPERATIONS L P DDUM DEMODD 8 L P PDIV L P ENTRY ZAOPND
0x06c65c…06c7f0 Dummy {f00=0x001b, f01=0x0190, f02=» x L P ENTRY ZDRWRD 8 L P ENTRY ZEINSD P ENTRY ZGREA P ENTRY ZHWRID P
0x06c7f0…06c984 Dummy {f00=0x001b, f01=0x0190, f02=» P EXPROC MASK P EXPROC XAKBIN P EXPROC XEERR . L P EJECT D L P************************************************************************ L P*
0x06c984…06cb18 Dummy {f00=0x001b, f01=0x0190, f02=»IONAL DESCRIPTION: * L P* ASSIGN DATABASE AS A COMMON FILE FOR BOTH INDEXFILES * D L P* USE OF VARIABLES: * L P* VCDBSVOL : DATABASE V
0x06cb18…06ccac Dummy {f00=0x001b, f01=0x0190, f02=» WC2STRG8 : INDEXFILE-NAME-2 * L P* WW1 : CONTAINS THE ERROR-CODE IF AN ERROR * D L P* OCCURED DURING ASSIGNMENT * L P*
0x06ccac…06ce40 Dummy {f00=0x001b, f01=0x0190, f02=» L PZA000 D P MOVE FCPARAM,=X'0' P MOVE WW1,=W'11' 2 P XCOPY FCPARAM,WW1,KW1,KW1,KW1 SET INDEX FILE P MOVE WW1,
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x001c, f01=0x0190, f02=»=W'26' P MOVE WCSTRG6,='DSC001' 2 P XCOPY FCPARAM,WW1,KW3,WCSTRG6,KW0 SET VOLNAME . P MOVE WW1,=W'29' d ( P XCOPY FCPARAM,WW1,KW3,VCVOLNR1,KW0 | P MOVE WW1,=W'66' P MOVE WW2,=W'26' 6 P XCOPY FCPARAM,WW1,KW6,FCPARAM,WW2 SET INDEX VOL
0x06cfd4…06d168 Dummy {f00=0x001c, f01=0x018e, f02=»,KW1,KW1 z P MOVE WW1,=W'88' . P XCOPY FCPARAM,WW1,KW1,KW6,KW1 KEY LENGTH ( P MOVE WW1,=W'97' Z 6 P XCOPY FCPARAM,WW1,KW1,KW1,KW1 NUMBER OF KEY ITEMS r P MOVE WW1,=W'98' 0 P XCOPY FCPARAM,WW1,KW2,KW6,KW0 DISPLACEMENT P MOVE WW1,=W'100
0x06d168…06d2fc Dummy {f00=0x001c, f01=0x0190, f02=» P COMMIT NWXSTAT P B ZA999 L PZA900 0 P RSTAT DSDBS,NWXSTAT 4 P EDWRT SPDSSCRN,ERROPN 'OPEN FILE UNSUCCESFULL' PZA910 " P PERF XAKBIN,=W'0' GET ANSWER 0 P
0x06d2fc…06d490 Dummy {f00=0x001c, f01=0x0190, f02=» R L P RET L P PEND b P* P* PERROPN FRMT P FCOPY =X'2031' $ P FTEXT 'FILE OPEN UNSU
0x06d490…06d624 Dummy {f00=0x001c, f01=0x0190, f02=»************************************************ x L P* PROCEDURE: ZBCLSD * 8 L P* FUNCTIONAL DESCRIPTION: * L P* CLOSE DATABASE FOR BOTH INDEXFILES
0x06d624…06d7b8 Dummy {f00=0x001c, f01=0x0190, f02=»************************************************ x PZBCLSD PROC 8 L PZB000 N P CLOSE DSDBS P BOK ZB900 L PZB500
0x06d7b8…06d94c Dummy {f00=0x001c, f01=0x0190, f02=» l L P RET , L P PEND | L P EJECT
0x06d94c…06dae0 Dummy {f00=0x001c, f01=0x0190, f02=» * l L P* PARAMETERS: XDRECNR (INPUT) * , L P* XDLOGRNR (OUTPUT) * | L P* XWINDFLE (INPUT)
0x06dae0…06dc74 (1, 138) Dummy {f00=0x001c, f01=0x0190, f02=»N RECORD-KEY * l L P* - IF XWINDFLE = 1, A READ IS PERFORMED VIA INDEXFILE-1 * , L P* - IF XWINDFLE = 2, A READ IS PERFORMED VIA INDEXFILE-2 * | L P* USE OF VARIABLES:
0x06dc74…06de08 Dummy {f00=0x001c, f01=0x0190, f02=» FOR DATABASE-RECORDS * l L P* NWXSTAT : EXTENDED STATUS CODE * , L P* NWRECLNG : UWB-RECORDLENGTH * | L P* SBRECAVB : RECORD AVAILABLE AFTER READ
0x06de08…06df9c Dummy {f00=0x001c, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x06df9c…06e130 Dummy {f00=0x001c, f01=0x0190, f02=»************************************ l 6 PZCRDD PROC XDRECNR,XDLOGRNR,XWINDFLE READ DATABASE , P PBCD XDRECNR,XDLOGRNR f P PBIN XWINDFLE L PZCOOO P* 4 P* THE NEXT STATEMENT
0x06e130…06e2c4 Dummy {f00=0x001c, f01=0x0190, f02=»1' . P MOVE WW1,=W'127' SET SIZE TO RECORDLENGTH P MOVE FCBUFFER,=' ' < L P* * X L P* DECIDE WHICH INDEXFILE SHOULD BE USED TO READ DATABASE * L P*
0x06e2c4…06e458 Dummy {f00=0x001c, f01=0x0190, f02=» * h L P* READ DATABASE VIA INDEXFILE-2 * ( L P* * x P MOVE WDEC2,XDRECNR , P MUL WDEC2,=D'1000000' SHIFT CARD NU
0x06e458…06e5ec Dummy {f00=0x001c, f01=0x0190, f02=» ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW2 6 P XSTAT DSDBS,NWXSTAT EXTENDED ST,CODE-->WORKFIELD 0 * P MUL XDRECNR,KDSHIFT SHIFT FOR ZYRLNG j P B ZC500 L PZC300 L P*
0x06e5ec…06e780 Dummy {f00=0x001c, f01=0x0190, f02=» H L P* * P* GET SYMBOLIC KEY X ( P XCOPY FCBUFFER,KW0,KW6,XDRECNR,KW0 r ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P XSTAT DSDBS,NWXSTAT EXT STATUSCODE -->
0x06e780…06e914 (1, 139) Dummy {f00=0x001c, f01=0x0190, f02=» * j " P* CHECK EXTENDED STATUS CODE * L P* * P L P PERF ZZERR I/O ERROR-HANDLING > P TBT SBCAN
0x06e914…06eaa8 Dummy {f00=0x001c, f01=0x0190, f02=»FFER TO USER WORKBLOCK * J P* * > , P TBF SBRECAVB,ZC900 RECORD NOT AVAILABLE $ P TBT SBNOCOPY,ZC900 DO NOT COPY * P PERF ZYRLNG,XDRECNR FIX RECORD LENG
0x06eaa8…06ec3c Dummy {f00=0x001c, f01=0x0190, f02=» CLEAR SBNOCOPY L P RET L P PEND h L P EJECT L P
0x06ec3c…06edd0 Dummy {f00=0x001c, f01=0x0190, f02=» * X L P* PROCEDURE: ZDRWRD * L P* PARAMETERS: XDRECNR (INPUT) * h L P* XDLOGRNR (INPUT) * L P
0x06edd0…06ef64 Dummy {f00=0x001c, f01=0x0190, f02=» * X L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTFIELD FOR DATABASE-RECORDS * h L P* NWRECLNG : UWB-RECORDLENGTH * L P
0x06ef64…06f0f8 Dummy {f00=0x001c, f01=0x0190, f02=» * X L P************************************************************************ 2 PZDRWRD PROC XDRECNR,XDLOGRNR REWRITE DATABASE h P PBCD XDRECNR,XDLOGRNR L PZD000
0x06f0f8…06f28c Dummy {f00=0x001c, f01=0x0190, f02=»* * L P* REWRITE DATABASE VIA INDEXFILE-1 * P L P* * PZD100 " P REWRITE .
0x06f28c…06f420 Dummy {f00=0x001c, f01=0x0190, f02=»UST BE DONE TWICE FOR THE PHYSICAL LAST RECORD ( P MOVE WW1,=X'2000' END OF MEDIUM BIT 6 P CALL MASK,NWXSTAT,WW1 b P BNOK ZD100 L P BOK ZD900 L PZD500
0x06f420…06f5b4 (1, 140) Dummy {f00=0x001c, f01=0x0190, f02=»TENDED STATUS CODE, SET SBRECAVB AS REQUIRED L P* * 4 L P PERF ZZERR L PZD900
0x06f5b4…06f748 Dummy {f00=0x001c, f01=0x0190, f02=» t P EJECT 4 J P********************************************************************* J L P* * L P* PROCEDURE: ZEINSD
0x06f748…06f8dc Dummy {f00=0x001c, f01=0x0190, f02=»UNCTIONAL DESCRIPTION: * L P* INSERT RECORD IN DATABASE * H L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTF
0x06f8dc…06fa70 Dummy {f00=0x001c, f01=0x0190, f02=» NWXSTAT : EXTENDED STATUS CODE * L P* SBNOPY : DON'T COPY RECORD INTO UWB * ! H L P* * ! J P********************************
0x06fa70…06fc04 Dummy {f00=0x001c, f01=0x0190, f02=» ! | * P PERF ZYRLNG,XDRECNR FIX RECORD LENGTH " $ P MOVE FCBUFFER,=X'FF' INITIALISE " 6 * P CALL QEMOVE,FCBUFFER,XDRECNR,NWRECLNG " ^ J P* * " J P* INDEXED INSERT VIA INDEXFILE-1
0x06fc04…06fd98 Dummy {f00=0x001c, f01=0x0190, f02=» " P WRITE .IXDIR,DSDBS,FCBUFFER # $ P XSTAT DSDBS,NWXSTAT # , P BOK ZE900 # T PZE500 # t J P* * # J P* CHECK CONDITION REGISTER AND EXTENDED STATUS CODE
0x06fd98…06ff2c Dummy {f00=0x001c, f01=0x0190, f02=»0 # P CLEAR SBNOCOPY $ P RET $ " P PEND $ 6 P EJECT $ L J P********************************************************************* $ Z J P* RELEASE EXCLUSIVE ACCESS * $ J P******************
0x06ff2c…0700c0 Dummy {f00=0x001c, f01=0x0190, f02=» RET $ P PEND % P EJECT % ( J P********************************************************************* % 6 L P* * % L P* PROCEDURE: ZHWRID
0x0700c0…070254 (1, 141) Dummy {f00=0x001d, f01=0x0190, f02=»(INPUT) * % t L P* FUNCTIONAL DESCRIPTION: * & 4 L P* REWRITE OR INSERT RECORD IN DATABASE DEPENDING ON THE * & L P* EXISTANCE OF THE RECORD BEFORE THIS TRANS
0x070254…0703e8 Dummy {f00=0x001d, f01=0x0190, f02=» * & t L P* SBNOPY : DON'T COPY RECORD INTO UWB * ' 4 L P* SBRECAVB : RECORD AVAILABLE AFTER READ * ' J P****************************************************
0x0703e8…07057c Dummy {f00=0x001d, f01=0x0190, f02=»ZH000 ' L P* * ( P L P* TEST RECORD IN DATABASE AND SET SBRECAVB ACCORDINGLY * ( L P*
0x07057c…070710 Dummy {f00=0x001d, f01=0x0190, f02=» ( h L P TBT SBCANCEL,ZH999 ) ( L PZH100 ) x L P TBT SBRECAVB,ZH200
0x070710…0708a4 Dummy {f00=0x001d, f01=0x0190, f02=»NSERTED IN THE DATABASE * ) h L P* * * ( L P PERF ZEINSD,XDRECNR * x L P B ZH999
0x0708a4…070a38 Dummy {f00=0x001d, f01=0x0190, f02=»MUST BE * * h L P* REWRITTEN TO THE DATABASE * + ( L P* * + x L PZH200
0x070a38…070bcc Dummy {f00=0x001d, f01=0x0190, f02=»LEAR SBNOCOPY + L P RET , L P PEND , f L P EJECT , L P**
0x070bcc…070d60 Dummy {f00=0x001d, f01=0x018e, f02=» * , V L P* PROCEDURE: ZYRLNG * - L P* PARAMETERS: XDRECNR (INPUT) * - f < P* - CONTAINS THE SHIFTED RECORD NUMBER - L P* FUNCTIONAL
0x070d60…070ef4 (1, 142) Dummy {f00=0x001d, f01=0x0190, f02=» - F L P* ON RECORD-NUMBER. * . L P* SYSTEMRECORD : 74 BYTES * . X L P* CURRENCYRECORD : 58 BYTES * . L P*
0x070ef4…071088 Dummy {f00=0x001d, f01=0x0190, f02=» . H L P* TRANSACTIONRECORD : 75 BYTES * / L P* USE OF VARIABLES: * / X L P* WDEC1 : NON-SHIFTED RECORDNUMBER * / L P* WD
0x071088…07121c Dummy {f00=0x001d, f01=0x0190, f02=» / H L P* * 0 L P************************************************************************ 0 X PZYRLNG PROC XDRECNR 0 P PBCD XDRECNR 0 L PZY000
0x07121c…0713b0 Dummy {f00=0x001d, f01=0x0190, f02=»FT TO THE RIGHT 0 z L P* * 1 L P* RECNR BELONGS TO SYSTEMRECORD ? * 1 h L P* * 1 J P
0x0713b0…071544 Dummy {f00=0x001d, f01=0x0190, f02=» 1 V L P* * 2 L P* RECNR BELONGS TO CURRENCYRECORD ? * 2 f L P* * 2 0 P M
0x071544…0716d8 Dummy {f00=0x001d, f01=0x0190, f02=» . P* ACCES VIA CARDNUMBER --> ACCOUNTRECORD 3 P* 3 6 4 P MOVE NWRECLNG,=W'120' SET RECORD LENGTH TO 120 3 @ P CBL WDEC1,=D'10000',ZY900 3 x L P* * 3 L P* RECNR BELONGS TO OPERATORR
0x0716d8…07186c Dummy {f00=0x001d, f01=0x0190, f02=»NWRECLNG,=W'127' SET RECORDLENGTH TO 127 3 L P CBL WDEC1,=D'100000',ZY900 4 J L P* * 4 L P* RECNR BELONGS TO ACCOUNTRE
0x07186c…071a00 Dummy {f00=0x001d, f01=0x0190, f02=» * 4 . P* CALCULATE THE LAST TWO DIGITS OF XDRECNR 5 J P* 5 | P MOVE WDEC2,XDRECNR 5 0 P MUL WDEC1,KDSHIFT TO GET ACCOUNT-KEY AGAIN 5 $ P SUB WDEC2,WDEC1 LAST TWO DIGITS 5 L P*
0x071a00…071b94 (1, 143) Dummy {f00=0x001d, f01=0x0190, f02=» * 5 N L P* * 6 N P CBNE WDEC2,=D'0',ZY500 6 ^ L P MOVE NWRECLNG,=W'120' SET RECORDLENGTH TO 120 6 P B ZY90
0x071b94…071d28 Dummy {f00=0x001d, f01=0x0190, f02=» TO ZERO --> TRANSACTIONRECORD * 6 p L P* * 7 0 J P MOVE NWRECLNG,=W'75' SET RECORDLENGTH TO 75 7 L PZY900
0x071d28…071ebc Dummy {f00=0x001d, f01=0x0190, f02=» 7 n L P EJECT 8 . L P************************************************************************ 8 ~ L P*
0x071ebc…072050 Dummy {f00=0x001d, f01=0x0190, f02=» * 8 n L P* ERROR-HANDLING FOR I/O OPERATIONS ON DATABASE. * 9 . L P* THE EXTENDED STATUS CODE (INPUT) IS COMPARED WITH * 9 ~ L P* A MASKFIELD (WW1), AND DEPENDING ON THE RESULT
0x072050…0721e4 Dummy {f00=0x001d, f01=0x0190, f02=» * 9 n L P* * : . L P* BIT ERROR MESSAGE * : ~ L P* 2 RECORD PROTECTED RECORD PROTECTED
0x0721e4…072378 Dummy {f00=0x001d, f01=0x0190, f02=» DISK-ERROR * : n L P* 7 RETRIES PERFORMED DISK-ERROR * ; . L P* 8 NEW VOLUMES LOADED DISK-ERROR * ; ~ L P* 10 END OF MEDIUM DISK-ERROR
0x072378…07250c Dummy {f00=0x001d, f01=0x0190, f02=» DISK-ERROR * ; n L P* 15 DISK NOT OPERABLE DISK-ERROR * < . L P* USE OF VARIABLES: * < ~ L P* NWXSTAT : EXTENDED STATUS CODE
0x07250c…0726a0 Dummy {f00=0x001d, f01=0x0190, f02=»E CHECKED * < n L P* * = . L P************************************************************************ = ~ L P
0x0726a0…072834 (1, 144) Dummy {f00=0x001d, f01=0x0190, f02=» = n L P CLEAR SBRECAVB > . L PZZ100 > ~ L P MOVE WW1,=X'0010' SET BIT 2 IN WORKFIELD
0x072834…0729c8 Dummy {f00=0x001d, f01=0x0190, f02=» * > L P* BIT 2 IN EXTENDED STATUS CODE IS SET --> RECORD PROTECTED * ? D L P* * ? L P PERF XEERR,=W'2',KW1
0x0729c8…072b5c Dummy {f00=0x001d, f01=0x0190, f02=» * ? L P* CHECK ON DISK ERRORS * @ D L P* * @ L PZZ200
0x072b5c…072cf0 Dummy {f00=0x001d, f01=0x0190, f02=»KED ALSO @ f 8 P* BUT BECAUSE OF ERROR IN DM REL 10.0 IT IS NOT A & P CALL MASK,NWXSTAT,WW1 CHECK BITS A L L P BOK ZZ400 A v L P PERF XEERR,=W'6',KW1 DISK ERROR
0x072cf0…072e84 Dummy {f00=0x001d, f01=0x0190, f02=» P* B L PZZ400 B . P MOVE WW1,=X'0400' SET BIT 5 IN WORKFIELD B ^ P P CALL MASK,NWXSTAT,WW1 CHECK BIT 1 IN EXT STATUS CODE B L P BNOK ZZ900
0x072e84…073018 Dummy {f00=0x001d, f01=0x0190, f02=» B L P RET C D L P PEND C L P*
0x073018…0731ac Dummy {f00=0x001d, f01=0x4048, f02=» C @ D D C D L P PEND C L P*
0x0731ac…073340 Dummy {f00=0x001d, f01=0x2008, f02=» E & x L P PEND ' 8 L P END ' @ ' SBIOERR I/O ERROR OCCURED
0x073340…0734d4 (1, 145) Dummy {f00=0x001e, f01=0x0190, f02=» | S @S @S T I @_:P @P ] _ AR S AP @S AP S$ @S ! A3r S$Pd @S @S PL @S P bV bV _ R @S T @P [ V _ PZRt ) I I @ I B APXW P [ RV )W PZ ]N APX S$ PZ , A A :B A Q (P _ H B @S T @P H A "
0x0734d4…073668 Dummy {f00=0x001e, f01=0x0190, f02=» ( @S V @P H B W # + C " O B A A :B A S (P _ B @S @S @S P | S @S V @P Q B 1 @S Q Q @ AO " O ( R$ ( @S V @P H B ) I B " S $ % " bV # C C C C *T W #T AS
0x073668…0737fc Dummy {f00=0x001e, f01=0x0190, f02=» B B B B B " S A^ A^ A^ A^ A_ A_ A_ _VR Q ! 9D# 9hP Q " ;B 2 Pl L ?b _ P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL _: _: W C
0x0737fc…073990 Dummy {f00=0x001e, f01=0x0190, f02=»P ( S * $ C " :T bV bV bV " " A_ AS .T @R P aPP " AS " aPX X S " , , A`& A`&:B A`&Q (P _ # # H A`& " Aa Aa 4 b a 4 @a I` T Aa A` A` T Aa T ` @S R X Aa
0x073990…073b24 Dummy {f00=0x001e, f01=0x0190, f02=»:S :X :Y :Z bV $P WH bV AaN AaF 0R 9Q 0 AaN :B bV_" AaN " bV Aa 0R$ 9U AR FQ 0:D Aa bV_* 'T bV:H_ Aa " Aa Aa 4 b a T Aa Aa " , a "! R _U .WV Ab :
0x073b24…073cb8 Dummy {f00=0x001e, f01=0x0190, f02=» b ( @b Ab " b b b ( A( b ( Ab " Ab b @b b P Ab b ( b Ab " !b 1b b Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ 6
0x073cb8…073e4c Dummy {f00=0x001e, f01=0x0190, f02=» 1 I5 J1 W @2 1 W "R !"T<I5 A " A 0 &)6m I5 H1 W )6T W "SBJ1E !"T _M _Q1 0 H5 "S LS 7R 8m :R ;RW( 7R LR!"S I2Z 1% eW I26 Le 7e!7R 7R R 2 32 3 I5' I2 6R);S A6!"S" I2 W )"R "mW GI2 6RW 6m4 !eR !eS !eW !e
0x073e4c…073fe0 Dummy {f00=0x001e, f01=0x0190, f02=»)H5 HW &I2@ 6T S =e 2 I2- t +R + l# ` ` l#` ` ` W 6S @`4 %ew2#ex. e I2(H ! m ! S %7T 0 W CiW ChW C W 4 I5 I1 (j W fR!fT Cj W A4 A 4 0 s #I2 6S u4 e C$ 4 @V@2@Q S @R@S@T@U _k + RA R %
0x073fe0…074174 (1, 146) Opaque[0x194]
0x074174…074308 # DirEnt {nam=»DFOACT«, typ=»SC«, f00=0x0610, f01=0xf6d3, f02=0x03c8, f03=0x0703}
0x074174…074308 IdxSect {
0x074174…074308 f00 = 0x001e // 0x74174 @0x0
0x074174…074308 f01 = 0x0006 // 0x74176 @0x2
0x074174…074308 gno = [ // 0x74178 @0x4
0x074174…074308 [0x00]: C0x001e.0x1.0
0x074174…074308 [0x01]: C0x001e.0x2.0
0x074174…074308 [0x02]: C0x001e.0x3.0
0x074174…074308 ]
0x074174…074308 }
0x074308…07449c Dummy {f00=0x001e, f01=0x0190, f02=» * P IDENT DFOACT OPEN ACCOUNT L P************************************************************************ 2 L P* MODULE-NAME : * L P* DFOACT OPEN ACCOUNT-NUMBER
0x07449c…074630 Dummy {f00=0x001e, f01=0x0190, f02=»RITE JOURNAL * r L P* XBFMT SCREEN-CONTROL * 2 L P* XEERR ERROR-ROUTINE * L P* ZEINSD WRITE ACCOUNT-RECORD
0x074630…0747c4 Dummy {f00=0x001e, f01=0x0190, f02=»EAD ACCOUNT-RECORD * r L P* * 2 L P************************************************************************ L P DDUM DEMODD
0x0747c4…074958 Dummy {f00=0x001e, f01=0x018e, f02=» r P ENTRY SPAP13 2 " P EXPROC XHMSU WRITE BADGE CARD H P P EXPROC PAJRN n P P EXPROC XBFMT
0x074958…074aec Dummy {f00=0x001e, f01=0x0190, f02=» B L P EJECT L P************************************************************************ X P* & P* OPEN ACCOUNT (CHEQUE OR SAVINGS) P* L P**********************************
0x074aec…074c80 Dummy {f00=0x001e, f01=0x0190, f02=» L P TBT SBCHEQUE,DF100 F L P ADD YDLASSAV,=D'2' J P CBG YDLASSAV,=D'168999',DF900
0x074c80…074e14 (1, 147) Dummy {f00=0x001e, f01=0x0190, f02=» L PDF100 D J P ADD YDLASCHQ,=D'2' J P CBG YDLASCHQ,=D'168999',DF900
0x074e14…074fa8 Dummy {f00=0x001e, f01=0x0190, f02=» L P* PRINT JOURNAL-ROLL * @ P SET SBOACT " P PERF PAJRN,=W'1' LINE TYPE 1 L P MOVE TDTRSCDE,=D'080'
0x074fa8…07513c Dummy {f00=0x001e, f01=0x0190, f02=» SCREEN v P* L PDF300 L P PERF XBFMT,=D'39' j L P TBT SBCANCEL,DF999 .
0x07513c…0752d0 Dummy {f00=0x001e, f01=0x0190, f02=» WITH ZEKOSA: p : P* TO GET A CARDNUMBER-KEY WITHOUT BCD 'F' CHARACTERS, " P* ADCARDNR IS MULTIPLIED BY 1. T . P* IN THIS WAY EACH 'F' IS REPLACED BY '0' z P* P MUL ADCARDNR,=D'1' P TBT SBZEK,DF340 P TBF SBCARD,DF350 NO 'CARD'
0x0752d0…075464 Dummy {f00=0x001e, f01=0x0190, f02=» * T P* PDF350 P MOVE ADACTRNR,IDACTNR1 , P MUL ADACTRNR,KDSHIFT L N P ADD YDLASSEQ,=D'1' j L P MOVE ADLASSEQ,YDLASSEQ
0x075464…0755f8 Dummy {f00=0x001e, f01=0x0190, f02=» L P* WRITE ACCOUNT-RECORD * L P PERF ZEINSD,ADACTRNR l L P B DF999
0x0755f8…07578c Dummy {f00=0x001e, f01=0x0190, f02=» L P* BE "CANCEL" * L PDF999 l P CLEAR SBOACT L P RET
0x07578c…075920 Dummy {f00=0x001e, f01=0x0190, f02=»******************************************************** P* @ P* PROCEDURE NAME: SPAP13 J H P* THIS ROUTINE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE- l , P* ACCOUNT ( DFOACT ) AS FOLLOWS : 2 P* - CARD-NUMBER IN THE RA
0x075920…075ab4 (1, 148) Dummy {f00=0x001e, f01=0x0190, f02=»********** R PSPAP13 PROC XWRET P PBIN XWRET , PS13000 @ " P CBL ADCARDNR,=D'1001',S13200 N " P CBG ADCARDNR,=D'9999',S13200 t ( P MOVE ADACTRNR,ADCARDNR P* ( P* SEE IF RECORD IS AVAILABLE ALREADY 0 P* THE RECORD
0x075ab4…075c48 Dummy {f00=0x001e, f01=0x0190, f02=»F ZCRDD,ADACTRNR,NDLRN1,KW2 READ VIA INDEX 2 P TBT SBCANCEL,S13999 @ P TBT SBRECAVB,S13100 P B S13999 x PS13100 P MOVE SPBINW4,=W'29' P MOVE XWRET,=W'1' P B S13999 PS13200 * P MOVE SPBINW4,=W'1' VALUE
0x075c48…075ddc Dummy {f00=0x001e, f01=0x4072, f02=»********************** ^ L P END @ n P B S13999 x PS13100 P MOVE SPBINW4,=W'29' P MOVE XWRET,=W'1' P B S13999 PS13200 * P MOVE SPBINW4,=W'1' VALUE
0x075ddc…075f70 Dummy {f00=0x001e, f01=0x2008, f02=» x L P PEND 8 L P END @ BE "CANCE
0x075f70…076104 Dummy {f00=0x001e, f01=0x0000, f02=»
[…0x3…]
0x0765c0…076754 (1, 149) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0x5212, f01=0x0703, f02=0x03e0, f03=0x00f0}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x001f // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0008 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x001f.0x0.0
0x076754…0768e8 [0x01]: C0x001f.0x1.0
0x076754…0768e8 [0x02]: C0x001f.0x2.0
0x076754…0768e8 [0x03]: C0x001f.0x3.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x001f, f01=0x0190, f02=» 0 P IDENT BCSTTO START OPERATOR L P DDUM DEMODD 8 L P PDIV P EXPROC PAJRN P P EXPROC XBFMT
0x076a7c…076c10 Dummy {f00=0x001f, f01=0x0190, f02=»D P EXPROC ZGREA P EXPROC ZDRWRD P ENTRY BCSTTO 6 P ENTRY CCSTTT L P ENTRY SPAP07 b P ENTRY SPAP08 x P ENTRY SPAP09 L P************************************************************************ P* L P* S
0x076c10…076da4 Dummy {f00=0x001f, f01=0x0190, f02=»**************** X L PBCSTTO PROC L PBCOOO h 0 P MOVE NDTRMLGG,YDSYSLGG INITIALISE LANGUAGE L P CBE RDSTATUS,=D'2',BC100 TE
0x076da4…076f38 Dummy {f00=0x001f, f01=0x0190, f02=» SBCANCEL,BC999 IF CANCELED, RETURN L PBC100 , P SET SBSTTO | P* ( P* PRINT LINE TYPE 1: IDENTIFICATION P* P PERF PAJRN,=W'1' PBC150 & P MOVE IDNR2,=D'0
0x076f38…0770cc Dummy {f00=0x001f, f01=0x0190, f02=»NGUAGE r L P TBT SBCANCEL,BC900 IF CANCELED, RETURN L P TBF SBTRMBLK,BC400 TERMINAL BLOCKED? ^ P* L P* TERMINAL IS BLOCKED * P
0x0770cc…077260 Dummy {f00=0x001f, f01=0x0190, f02=»NSWER t L P TBF SBKEY2,BC200 WAIT FOR KEY2 L P* * ^ L P* KEY2 ON * L P*
0x077260…0773f4 (1, 150) Dummy {f00=0x001f, f01=0x0190, f02=»AMP 5 OFF z P CLEAR SBTRMBLK P B BC150 * L PBC400 : * P TBF SBFT80,BC410 NO COMPACT TERMINAL P PERF XBFMT,=W'69' P B BC420 PBC410 L P PERF XBFMT,=W'22' DISPL
0x0773f4…077588 Dummy {f00=0x001f, f01=0x0190, f02=» N L P MOVE RDSTATUS,=D'3' OPERATOR LOGGED ON (TWB) L P MOVE ODSTATUS,=D'2' " " " (UWB) ^ 4 P MOVE RDOPRNR,IDNR1 SAVE OPERATOR NUMBER IN TWB N P MOVE ODTRMNR,NDTRMNR SAVE TERMINA
0x077588…07771c Dummy {f00=0x001f, f01=0x0190, f02=»OVE TDTRSCDE,=D'901' L P ADD YDLASSEQ,=D'1' N L P MOVE TDTRSSEQ,YDLASSEQ L P*
0x07771c…0778b0 Dummy {f00=0x001f, f01=0x0190, f02=» * : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY N H P MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE L P PERF PAJRN,=W'7'
0x0778b0…077a44 Dummy {f00=0x001f, f01=0x0190, f02=» x L PBC500 8 L P ADD IWINDEX1,=W'1' , P MOVE ICTEXT3,YCCCY(IWINDEX1) L P
0x077a44…077bd8 Dummy {f00=0x001f, f01=0x0190, f02=» X L P CBL IWINDEX1,=W'3',BC500 P B BC990 h P* x P* CANCEL EXIT P* L PBC900 & P MOVE RDSTATUS,=D'2' R
0x077bd8…077d6c Dummy {f00=0x001f, f01=0x0190, f02=» SBSTTO L P RET L P PEND ` L P************************************************************************ L P*
0x077d6c…077f00 Dummy {f00=0x001f, f01=0x0190, f02=» * P L P* * L P************************************************************************ ` PSPAP08 PROC XWRET P PBIN XWRET N PS08000
0x077f00…078094 (1, 151) Dummy {f00=0x001f, f01=0x0190, f02=» MOVE ODOPRRNR,IDNR1 SAVE OPERATOR NUMBER L P MUL ODOPRRNR,KDSHIFT GET RECORD NUMBER 2 T P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 READ OPERATOR RECORD P TBT SBCANCEL,S08900 . P TBF SBRECAVB,S085
0x078094…078228 Dummy {f00=0x001f, f01=0x0190, f02=»8400 OPERATOR ALREADY LOGGED ON z P* < 6 P* REDISPLAY LANGUAGE FIELD, IF IT IS ON THE SCREEN F P* , P CBL RDSCRLNS,=D'3',S08999 NOT ON SCREEN P DISPLAY 4,KW3,KW3 P B S08999 N PS08400
0x078228…0783bc Dummy {f00=0x001f, f01=0x0190, f02=»0 ERROR, CLEAR DATA-ITEM PS08500 * P MOVE SPBINW4,=W'23' OPERATOR UNKNOWN . $ P B S08800 ERROR, CLEAR DATA-ITEM N PS08600 $ P MOVE SPBINW4,=W'1' RANGE ERROR PS08800
0x0783bc…078550 Dummy {f00=0x001f, f01=0x0190, f02=»ET P PEND L P************************************************************************ L P* * h L P* CHECK OPERATOR PASSWORD IN OPERATOR START * L P
0x078550…0786e4 Dummy {f00=0x001f, f01=0x0190, f02=»**************** X PSPAP09 PROC XWRET P PBIN XWRET 2 N PS09000 F P TBT SBFT80,S09999 N P TBT SBKEY2,S09999 NO CHECK N P CBN
0x0786e4…078878 Dummy {f00=0x001f, f01=0x0190, f02=» * h L P* PASSWORD NOT OK * ( L P* * x N PS09200
0x078878…078a0c Dummy {f00=0x001f, f01=0x0190, f02=» j L P MOVE SPBINW4,=W'25' INVALID PASSWORD , & P MOVE XWRET,=W'1' INDICATE ERROR1 | P B S09999 L P* * L P
0x078a0c…078ba0 Dummy {f00=0x001f, f01=0x0190, f02=» * X N PS09400 L P SET SBTRMBLK j N P MOVE SPBINW2,KWSPCONT RETURN TO APPLICATION
0x078ba0…078d34 (1, 152) Dummy {f00=0x001f, f01=0x0190, f02=» START TERMINAL PROCEDURE * P* N L P************************************************************************ X L PCCSTTT PROC L PCC000
0x078d34…078ec8 Dummy {f00=0x001f, f01=0x0190, f02=» H L P MOVE NDTIME,VCTIME SYSTEM TIME * P DIV NDTIME,=D'100' GET RID OF SECONDS X L P PERF XBFMT,=W'19' DISPLAY TERMINAL START-SCREEN L P TBT SBCANCEL,CC900
0x078ec8…07905c Dummy {f00=0x001f, f01=0x0190, f02=» v L PCC900 6 L P RET L P PEND
0x07905c…0791f0 Dummy {f00=0x001f, f01=0x0190, f02=» * v L P* TERMINAL START, CHECK DATE * 6 L P* * L P**************************************************
0x0791f0…079384 Dummy {f00=0x001f, f01=0x4114, f02=» T $ P CBE NDDATE,IDNR1,S07999 DATE OK , P MOVE SPBINW4,=W'20' INVALID COMPARISON > & P MOVE XWRET,=W'1' INDICATE ERROR1 n PS07999 P RET P PEND L P END
0x079384…079518 Dummy {f00=0x001f, f01=0x2008, f02=» x L P END 8@ F ZZOUTP L PCC900
0x079518…0796ac Dummy {f00=0x001f, f01=0x0190, f02=» D D D $ & 01 D 4 & D D 999999 D R " a1 D h & D x & k D & D & D ( D +0 D /0 D 30 D 70 D
0x0796ac…079840 Dummy {f00=0x001f, f01=0x417a, f02=» X D Y0 X E ]0 E l0 E . q0 E @ w = E R y E d ~0 = E t J F " D @ W A W A W A - L A ! L ! L ! L I W H c dLW cL d CL RC #bL E 0 A E E E
0x079840…0799d4 (1, 153) Opaque[0x194]
0x0799d4…079b68 # DirEnt {nam=»AADEMO«, typ=»SC«, f00=0x8186, f01=0x5012, f02=0x0400, f03=0xe346}
0x0799d4…079b68 IdxSect {
0x0799d4…079b68 f00 = 0x0020 // 0x799d4 @0x0
0x0799d4…079b68 f01 = 0x0004 // 0x799d6 @0x2
0x0799d4…079b68 gno = [ // 0x799d8 @0x4
0x0799d4…079b68 [0x00]: C0x0020.0x0.0
0x0799d4…079b68 [0x01]: C0x0020.0x1.0
0x0799d4…079b68 ]
0x0799d4…079b68 }
0x079b68…079cfc Dummy {f00=0x0020, f01=0x0190, f02=» 8 P IDENT AADEMO MAIN MODULE DDUM DEMODD @ P PDIV T P EXPROC BASPCT b P EXPROC BCSTTO x P EXPROC BESELF P EXPROC CGCSYS P EXPROC XAKBIN P EXPROC PAJRN P EXPROC QCGUWB P EXPROC QDFU
0x079cfc…079e90 Dummy {f00=0x0020, f01=0x018e, f02=»******************************************************** P* @ P* COMMON ENTRY POINT J P* f L P************************************************************************ p PAAMAIN PAA000 P EDWRT SPDSSCRN,FMTSTT P PERF XAKBIN,=
0x079e90…07a024 Dummy {f00=0x0020, f01=0x018e, f02=» P* WAITING ROOM P* PAA050 ( P CLEAR SBCANCEL 6 P PERF ZGREA N P EDWRT SPDSSCRN,FMTSTT b P PERF XAKBIN,=W'0' P B AA060 PAA060 8 P CBE YDSTATUS,=D'1',AA050 SYSTEM START/CLOSE PROGR. , P CBE YDSTATUS,=D'3',
0x07a024…07a1b8 Dummy {f00=0x0020, f01=0x018e, f02=» P* YDSTATUS = 0 OR 2 AND P* START HAS BEEN PRESSED ( P* L PAA100 V P PERF QCGUWB GET UWB'S d 4 P CBE NWUWBNR,KW0,AA050 NO FREE USER WORK BLOCKS P* P* START HAS BEEN DEPRESSED P* : P CBNE RDSTATUS,=D'0',AA3
0x07a1b8…07a34c Dummy {f00=0x0020, f01=0x0190, f02=» P* RDSTATUS = 0 P* YDSTATUS = 0,2 P* 2 PAA200 < P TBT SBFT80,AA250 J ( P TBF SBKEY2,AA900 KEY2 SHOULD BE ON d PAA250 " P PERF BASPCT SPECIFY TERMINAL $ P B AA900 WAIT FOR START OF DEMO P* P* START DEMONSTRAT
0x07a34c…07a4e0 Dummy {f00=0x0020, f01=0x0190, f02=» P PERF BCSTTO : P CBNE RDSTATUS,=D'3',AA900 OPERATOR START UNSUCCESFULL PAA400 Z P* h P* SELECT FUNCTION r P* RDSTATUS = 3 P* YDSTATUS = 2 P* ODSTATUS = 2 P* PAA500 P PERF BESELF P B AA900
0x07a4e0…07a674 (1, 154) Dummy {f00=0x0020, f01=0x0190, f02=»Y 2 MUST BE ON | P* P* YDSTATUS = 2 P* KEY 2 IS ON 6 P* NO UWB'S ARE IN USE L P* j P PERF CGCSYS CLOSE SYSTEM t . P CBE YDSTATUS,=D'3',AA999 CLOSE SUCCEEDED ( P B AA050 UWB'S ARE RELEASED ALREADY PAA900 P PERF
0x07a674…07a808 Dummy {f00=0x0020, f01=0x411c, f02=» P FCOPY =X'2031' ERASE SCREEN P FTEXT 'DEMO PTS 6800 ' ( P FTEXT '12NC=870155040100 ' H P FTEXT ':' l P FMEND ~ P* P* PFMTEND FRMT P FCOPY =X'2031' ERASE SCREEN P FTEXT '*' P FMEND P* P*
0x07a808…07a99c Dummy {f00=0x0020, f01=0x2008, f02=» NT AADEMO DDUM DEMODD @ .$ ( 0 & PRESS THE START KEYH ( @ ( ( b B = ; 1X FRJQ f W 1X FR f BL R P )VL HQ RW R)VL RR@R_'0X ( n 7 ( @ ( ' ' ' '
0x07a99c…07ab30 Dummy {f00=0x0020, f01=0x0000, f02=»
[…0x4…]
0x07b180…07b314 (1, 155) Opaque[0x194]
0x07b314…07b4a8 # DirEnt {nam=»EINIT «, typ=»SC«, f00=0xe747, f01=0x0002, f02=0x0410, f03=0x0300}
0x07b314…07b4a8 IdxSect {
0x07b314…07b4a8 f00 = 0x0020 // 0x7b314 @0x0
0x07b314…07b4a8 f01 = 0x0008 // 0x7b316 @0x2
0x07b314…07b4a8 gno = [ // 0x7b318 @0x4
0x07b314…07b4a8 [0x00]: C0x0020.0x2.0
0x07b314…07b4a8 [0x01]: C0x0020.0x3.0
0x07b314…07b4a8 [0x02]: C0x0021.0x0.0
0x07b314…07b4a8 [0x03]: C0x0021.0x1.0
0x07b314…07b4a8 ]
0x07b314…07b4a8 }
0x07b4a8…07b63c Dummy {f00=0x0020, f01=0x0190, f02=» < P IDENT EINIT INITIALISATIONS DDUM DEMODD D PDIV X P ENTRY EAIOPR f P ENTRY EBZACC | P ENTRY ECICCY P ENTRY EDIAC1 P ENTRY EFIAC2 P ENTRY EEITR1 P ENTRY EGITR2 P ENTRY E
0x07b63c…07b7d0 Dummy {f00=0x0020, f01=0x0190, f02=»SE AN OPERATOR RECORD IN UWB UOP L P* * ( L P************************************************************************ x L PEAIOPR PROC
0x07b7d0…07b964 Dummy {f00=0x0020, f01=0x0190, f02=»,=C' ' L P MOVE OCNAME,=C' ' D L P MOVE ODSTATUS,=D'0' N P MOVE ODTRMNR,=X'FF'
0x07b964…07baf8 Dummy {f00=0x0020, f01=0x0190, f02=» V L PEA100 L P ADD WW2,=W'1' f L P MOVE ODCASH(KW1,WW2),=D'0' L P C
0x07baf8…07bc8c Dummy {f00=0x0020, f01=0x0190, f02=» j L P RET * L P PEND z L P**************************************************************
0x07bc8c…07be20 Dummy {f00=0x0020, f01=0x0190, f02=»********************** ^ L PEBZACC PROC L PEB000 n L P MOVE WW1,=W'1'
0x07be20…07bfb4 (1, 156) Dummy {f00=0x0020, f01=0x0190, f02=» l L PEB200 , L P ADD WW2,=W'1' NEXT COLUMN | L P MOVE ODCASH(WW1,WW2),=D'0'
0x07bfb4…07c148 Dummy {f00=0x0020, f01=0x0190, f02=» l L PEB999 , L P RET | L P PEND
0x07c148…07c2dc Dummy {f00=0x0020, f01=0x018e, f02=»CORD IN UWB UCY v P* L P********************************************************************** * " PECICCY PROC r L PEC000 P MOVE CDUMMY,=X'FF' L P MOVE CCCCYNME,=C' '
0x07c2dc…07c470 Dummy {f00=0x0020, f01=0x0190, f02=» N P MOVE CDBUY1,=X'0F' L P MOVE CDBUY2,=D'0' V N P MOVE CDSEL1,=X'0F' L P MOVE CDSEL2,=D
0x07c470…07c604 Dummy {f00=0x0020, f01=0x0190, f02=» H L P MOVE CDRELAT,=D'1' L P PEND X L P************************************************************************ L P*
0x07c604…07c798 Dummy {f00=0x0020, f01=0x0190, f02=» * z L P************************************************************************ : L PEDIAC1 PROC L PED000
0x07c798…07c92c Dummy {f00=0x0020, f01=0x0190, f02=» H L P MOVE ACADDRES,=C' ' L P MOVE ACTOWN,=C' ' X L P MOVE ACPASS,=C' ' L P MOVE ADSTATUS,
0x07c92c…07cac0 Dummy {f00=0x0020, f01=0x0190, f02=» H L P MOVE ADLIMBOK,=D'0' L P MOVE ADLASTRS,=D'8' X L P MOVE ADSTMTRS,=D'8' L P MOVE ADLNENR,=D
0x07cac0…07cc54 (1, 157) Dummy {f00=0x0021, f01=0x0190, f02=» H L P MOVE ADWDRCUM,=D'0' L P MOVE ADLASSEQ,=D'0' X P RET L P PEND L P****
0x07cc54…07cde8 Dummy {f00=0x0021, f01=0x0190, f02=» * T . P* INITIALISE AN ACCOUNT RECORD IN UWB UA2 L P* * F L P************************************************************************ L PEFIAC2 PROC
0x07cde8…07cf7c Dummy {f00=0x0021, f01=0x0190, f02=» b L P MOVE BCADDRES,=C' ' " L P MOVE BCTOWN,=C' ' r L P MOVE BCPASS,=C' '
0x07cf7c…07d110 Dummy {f00=0x0021, f01=0x0190, f02=» b L P MOVE BDLIMBOK,=D'0' " L P MOVE BDLASTRS,=D'8' r L P MOVE BDSTMTRS,=D'8'
0x07d110…07d2a4 Dummy {f00=0x0021, f01=0x0190, f02=» b L P MOVE BDWDRCUM,=D'0' " L P MOVE BDLASSEQ,=D'0' r P RET L P PEND
0x07d2a4…07d438 Dummy {f00=0x0021, f01=0x0190, f02=» * n 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT1 . L P* * b L P************************************************************************ L PEEITR1
0x07d438…07d5cc Dummy {f00=0x0021, f01=0x0190, f02=» | P MOVE TDDATE,NDDATE < P MOVE TDTRMNR,NDTRMNR X P MOVE TDOPRNR,RDOPRNR v L P MOVE TDTRSSEQ,=D'0' L P MOVE TDAMOUNT,=D'0'
0x07d5cc…07d760 Dummy {f00=0x0021, f01=0x0190, f02=»RM,=D'0' L P MOVE TDCHQNR,=D'0' D L P MOVE TCTEXT,=C' ' P RET L P PEND
0x07d760…07d8f4 (1, 158) Dummy {f00=0x0021, f01=0x0190, f02=»* * 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT2 P L P* * L P****************************************************
0x07d8f4…07da88 Dummy {f00=0x0021, f01=0x0190, f02=»X'FF' L P MOVE UDTRSCDE,=D'0' P MOVE UDDATE,NDDATE ^ P MOVE UDTRMNR,NDTRMNR z P MOVE UDOPRNR,RDOPRNR L P MOVE UDTRSSEQ,=D'0' L P M
0x07da88…07dc1c Dummy {f00=0x0021, f01=0x0190, f02=» V L P MOVE UDACTFRM,=D'0' L P MOVE UDCHQNR,=D'0' f L P MOVE UCTEXT,=C' ' P R
0x07dc1c…07ddb0 Dummy {f00=0x0021, f01=0x0190, f02=»************************** b L P* * " B P* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S r L P* * L P
0x07ddb0…07df44 Dummy {f00=0x0021, f01=0x0190, f02=» X P PERF EDIAC1 P PERF EFIAC2 , P PERF EEITR1 @ P PERF EGITR2 T P RET h L P PEND t L P********************************************************************
0x07df44…07e0d8 Dummy {f00=0x0021, f01=0x416a, f02=»****** N PEHISYS PROC PEH000 " P MOVE YDUMMY,=X'FF' 0 P MOVE YCTEXT,=C' ' L P MOVE YDLASSAV,=D'167999' f P MOVE YDLASCHQ,=D'167998' P MOVE YDLASSEQ,=D'0' P MOVE YDSTATUS,=D'1' PEH999 P RET P PEND L
0x07e0d8…07e26c Dummy {f00=0x0021, f01=0x2008, f02=» NT EINIT DDUM DEMODD PDIV , ENTRY EAIOPR : ENTRY EBZACC P ENTRY ECICCY f ENTRY EDIACT | ENTRY EFITRS ENTRY EZINIT * * ECICCY PROC RET PEND EZINIT P
0x07e26c…07e400 Dummy {f00=0x0021, f01=0x0190, f02=» * , X L P* 2,5 : UNUSED * - L P* 3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD * - h L P* 3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD * - L P
0x07e400…07e594 (1, 159) Opaque[0x194]
0x07e594…07e728 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0612, f01=0xbc56, f02=0x0430, f03=0xf03a}
0x07e594…07e728 IdxSect {
0x07e594…07e728 f00 = 0x0021 // 0x7e594 @0x0
0x07e594…07e728 f01 = 0x0006 // 0x7e596 @0x2
0x07e594…07e728 gno = [ // 0x7e598 @0x4
0x07e594…07e728 [0x00]: C0x0021.0x2.0
0x07e594…07e728 [0x01]: C0x0021.0x3.0
0x07e594…07e728 [0x02]: C0x0022.0x0.0
0x07e594…07e728 ]
0x07e594…07e728 }
0x07e728…07e8bc Dummy {f00=0x0021, f01=0x0190, f02=» 6 P IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL 11.0 P > P F P N P ENTRY CTAB01 V P ENTRY CTAB02 l P ENTRY CTAB03 P ENTRY CTAB04 P P P P* < P* THIS IS THE KEY-CODE CONVERSION TABLE FOR THE PTS 6800
0x07e8bc…07ea50 Dummy {f00=0x0021, f01=0x018e, f02=» DEPRESSED. n F P* THEN IN THE "UNSHIFT" TABLE, THE FIRST DIGIT OF THE KEY-CODE, H P* SO "3" IS TAKEN AS A DISPLACEMENT. WITH DISPLACEMENT 3 WE FIND ^ H P* A POINTER, CALLED "UNSH3". THIS POINTS TO ANOTHER TABLE, CALLED H P* "UNSH3". THEN
0x07ea50…07ebe4 Dummy {f00=0x0021, f01=0x018e, f02=» H P* FIND THE HEXADECIMAL VALUE GENERATED BY THE KEY-CODE '30'. THIS P* APPEARS TO BE '30'. P P* p P EJECT z PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * PCTAB04 EQU * P DATA UNSHFT P DATA SHIFT P DATA CT
0x07ebe4…07ed78 Dummy {f00=0x0021, f01=0x0190, f02=» PCTRL EQU * PUNSHFT EQU * 6 P DATA FUNCT0 FUNCTION CLUSTER,KEYS STARTING WITH 0 * 6 P DATA FUNCT1 " " " " " 1 d 6 P DATA UNSH2 ALPHANUMERIC PART," " " 2 6 P DATA UNSH3 " " " " "
0x07ed78…07ef0c Dummy {f00=0x0021, f01=0x0190, f02=»T6 FUNCTION CLUSTER, " " " 6 P* 0 B P* COLUMN TABLE FOR SHIFTED KEYS, AND FOR CONTROL-SHIFTED KEYS : P* PCTRLSH EQU * PSHIFT EQU * P DATA FUNCT0 P DATA FUNCT1 P DATA SHIFT2 P DATA SHIFT3 P DATA
0x07ef0c…07f0a0 Dummy {f00=0x0021, f01=0x0190, f02=» PSPECI EQU * P DATA 0,0,0,0,0,0,0 NOT USED P EJECT @ P* N 8 P* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 0 X P* PFUNCT0 EQU * P DATA /AB83 P DATA /878B P DATA /8188 P DATA /8A84 P DATA
0x07f0a0…07f234 (1, 160) Dummy {f00=0x0021, f01=0x0190, f02=» P* PFUNCT1 EQU * P DATA /3031 & P DATA /3233 : P DATA /3435 N P DATA /3637 b P DATA /3839 v P DATA /1A1B P DATA /9096 P DATA /91A2 P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH
0x07f234…07f3c8 Dummy {f00=0x0021, f01=0x0190, f02=» P DATA /FF40 P DATA /2C2D P DATA /2EFF , P* @ < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 2 J P* PSHIFT2 EQU * P DATA /20FF P DATA /FFFF P DATA /FFFF P DATA /FF7E P DATA /3D3D
0x07f3c8…07f55c Dummy {f00=0x0021, f01=0x0190, f02=» P* PUNSH3 EQU * P DATA /3031 " P DATA /3233 6 P DATA /3435 J P DATA /3637 ^ P DATA /3839 r P DATA /903B P DATA /3C3D P DATA /3E3F P* < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 3
0x07f55c…07f6f0 Dummy {f00=0x0021, f01=0x0190, f02=» P DATA /3C3D P DATA /3E3F P* 0 @ P* CHARACTERS TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 4 : P* ~ PUNSH4 EQU * P DATA /2741 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4
0x07f6f0…07f884 Dummy {f00=0x0021, f01=0x018e, f02=»SHIFT4 EQU * P DATA /5E41 P DATA /4243 ( P DATA /4445 < P DATA /4647 P P DATA /4849 d P DATA /4A4B x P DATA /4C4D P DATA /4E4F P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 5 P*
0x07f884…07fa18 Dummy {f00=0x0021, f01=0x018e, f02=» P DATA /5C5D P DATA /2BFF P* 0 < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 5 : P* z PSHIFT5 EQU * P DATA /5051 P DATA /5253 P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x07fa18…07fbac Dummy {f00=0x0021, f01=0x40b8, f02=» PFUNCT6 EQU * P DATA /A1A0 P DATA /9980 , P DATA /9394 @ P DATA /959A T P DATA 0 h P DATA 0 x P DATA 0 P DATA 0 P END @ P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x07fbac…07fd40 Dummy {f00=0x0021, f01=0x2008, f02=» * * 8 3* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 6 " * ^ FUNCT6 EQU * h DATA /A1A0 | DATA /9980 DATA /9394 DATA /959A DATA 0 DATA 0 DATA 0 DATA 0
0x07fd40…07fed4 (1, 161) Dummy {f00=0x0022, f01=0x0190, f02=»
[…0x1…]
0x080068…0801fc Dummy {f00=0x0022, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x0801fc…080390 Dummy {f00=0x0022, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x080390…080524 Dummy {f00=0x0022, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x080524…0806b8 Dummy {f00=0x0022, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x0806b8…08084c Dummy {f00=0x0022, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @: X : v B > 8 F J x: D E X_j DEX D' W^j D W D*j D DF0 DP 1 A A24 0 4 1 4m 5 mZ3 % % 1 4 1p2&3 5 1 3 4 4 1"5 J3 `$ 0 484<: 4Fmzm 4$4 1 &h/ # "
0x08084c…0809e0 Dummy {f00=0x0022, f01=0x0190, f02=» 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZ
0x0809e0…080b74 (1, 162) Opaque[0x194]
0x080b74…080d08 # DirEnt {nam=»BESELF«, typ=»SC«, f00=0x7f00, f01=0xe920, f02=0x0448, f03=0x8820}
0x080b74…080d08 IdxSect {
0x080b74…080d08 f00 = 0x0022 // 0x80b74 @0x0
0x080b74…080d08 f01 = 0x000e // 0x80b76 @0x2
0x080b74…080d08 gno = [ // 0x80b78 @0x4
0x080b74…080d08 [0x00]: C0x0022.0x1.0
0x080b74…080d08 [0x01]: C0x0022.0x2.0
0x080b74…080d08 [0x02]: C0x0022.0x3.0
0x080b74…080d08 [0x03]: C0x0023.0x0.0
0x080b74…080d08 [0x04]: C0x0023.0x1.0
0x080b74…080d08 [0x05]: C0x0023.0x2.0
0x080b74…080d08 [0x06]: C0x0023.0x3.0
0x080b74…080d08 ]
0x080b74…080d08 }
0x080d08…080e9c Dummy {f00=0x0022, f01=0x0190, f02=» < P IDENT BESELF SELECT FUNCTION L P DDUM DEMODD D P PDIV P EXPROC XAKBIN P EXPROC XDMSG P EXPROC XEERR P EXPROC CDCHKY P EXPROC CEGACT
0x080e9c…081030 Dummy {f00=0x0022, f01=0x0190, f02=» F P P EXPROC DOQCCY P P EXPROC DPECCY ^ P P EXPROC DCVDU P P E
0x081030…0811c4 Dummy {f00=0x0022, f01=0x0190, f02=» Z P P EXPROC DFOACT P P EXPROC DGCACT r P P EXPROC DHBACT
0x0811c4…081358 Dummy {f00=0x0022, f01=0x0190, f02=» n P P EXPROC DKDSTM 2 P P EXPROC DLDEP P P EXPROC DMWDR
0x081358…0814ec Dummy {f00=0x0022, f01=0x018e, f02=» P EXPROC ECICCY P EXPROC PAJRN P EXPROC ZCRDD 4 P EXPROC ZGREA J P EXPROC TNDOPN ` P ENTRY BESELF v P* P* P* L PBESELF PROC L PBE000
0x0814ec…081680 Dummy {f00=0x0022, f01=0x0190, f02=» $ P PERF ZGREA RELEASE EXCL. ACCES L P* * , L P* RESET ALL SWITCHES * | L P*
0x081680…081814 (1, 163) Dummy {f00=0x0022, f01=0x0190, f02=» b L P MOVE SWCCY,=W'0' CURRENCY SWITCH " L P CLEAR SBNOBOOK r L P CLEAR SBRVS REVERSAL SWITCH
0x081814…0819a8 Dummy {f00=0x0022, f01=0x018e, f02=» SBFLDEMP * P MOVE FCFIELD,=C' ' CLEAR INPUT FIELD L P* * @ L P* ACCEPT A FUNCTION KEY * L P*
0x0819a8…081b3c Dummy {f00=0x0022, f01=0x0190, f02=» L P MOVE NWKTBIX,SPBINW2 SAVE FUNCTION KEY INDEX 2 P CBE NWKTBIX,KWCANCEL,BE000 CANCEL KEY PRESSED T . P* KEYLOCK TURN, POWER OFF OR UNDEFINED KEY 8 P CBNG NWKTBIX,=W'0',BE006 KEYLOCK TURN OR POWER OFF L P CBL NWKTBIX,=W'
0x081b3c…081cd0 Dummy {f00=0x0022, f01=0x018e, f02=» H L P* PREFIX KEY, SET CORRESPONDING SWITCHES * , P* HOWEVER, THE INPUT FIELD MUST BE EMPTY X L P* * 2 P CBE SPBINW1,=W'0',BE008 INPUT FIELD IS EMPTY
0x081cd0…081e64 Dummy {f00=0x0022, f01=0x0190, f02=» & P CBE SPBINW2,=W'24',BE820 OPEN TND L P SUB SPBINW2,=W'11' ADJUST INDEX . 8 P IB SPBINW2,BE010,BE010,BE010, CURRENCY 1,2 OR 3 C ~ L P BE020,BE030,BE040,BE050
0x081e64…081ff8 Dummy {f00=0x0022, f01=0x0190, f02=» * t P* 4 L P MOVE SWCCY,SPBINW2 CURRENCY NUMBER > L P B BE006 ACCEPT NEXT FUNCTION KEY L PBE020
0x081ff8…08218c Dummy {f00=0x0022, f01=0x0190, f02=»XT FUNCTION KEY ~ L PBE030 > L P SET SBNOBOOK L P B BE006 ACCEPT NEXT FUNCTION KEY
0x08218c…082320 Dummy {f00=0x0022, f01=0x018e, f02=»SAL ~ L P B BE006 ACCEPT NEXT FUNCTION KEY > PBE050 L P SET SBCARD L P B BE006 ACCEPT NEXT FUNCTIO
0x082320…0824b4 (1, 164) Dummy {f00=0x0022, f01=0x0190, f02=» L P* * L P* NON PREFIX KEY PRESSED * T L P* * L PBE100
0x0824b4…082648 Dummy {f00=0x0022, f01=0x0190, f02=»PBINW1,=W'0',BE110 FIELD NOT EMPTY L P SET SBFLDEMP INDICATE FIELD EMPTY * L P************************************************************************ z P* & P* CHECK FUNCTION-KEY COMBINATIONS P* L P
0x082648…0827dc Dummy {f00=0x0022, f01=0x0190, f02=»ROR DETECTED z L P************************************************************************ L P* * d 6 P* CHECK HARDWARE AVAILABILITY AND KEYHOLE SETTING L P*
0x0827dc…082970 Dummy {f00=0x0022, f01=0x0190, f02=»ERF CFCHKH P TBT SBCANCEL,BE990 L P************************************************************************ . L P* * ~ L P* GET ADDITIONAL INPUT
0x082970…082b04 Dummy {f00=0x0022, f01=0x0190, f02=»************************************** n L PBE500 . L P CBE NWKTBIX,=W'1',BE600 'EOI' ~ L P CBE NWKTBIX,=W'2',BE600 'LIST'
0x082b04…082c98 Dummy {f00=0x0022, f01=0x0190, f02=» n L P* * . L P* CURRENCY IS ON * ~ L P*
0x082c98…082e2c Dummy {f00=0x0022, f01=0x0190, f02=» * n L P* CURRENCY IS ON AND THE FIELD IS NOT EMPTY * . L P* INITIALISE A CURRENCY RECORD IN THE UWB * ~ L P*
0x082e2c…082fc0 Dummy {f00=0x0022, f01=0x0190, f02=»CY CODE n L P B BE600 SELECT FUNCTION . L P* * ~ L P* CURRENCY IS ON AND FIELD IS EMPTY
0x082fc0…083154 (1, 165) Dummy {f00=0x0023, f01=0x018e, f02=» * n L PBE520 . L P MOVE CDCCYRNR,SWCCY CURRENCY NUMBER ~ L P ADD CDCCYRNR,=D'10'
0x083154…0832e8 Dummy {f00=0x0023, f01=0x0190, f02=» n P TBT SBCANCEL,BE990 L P B BE600 SELECT FUNCTION $ L P* * t L P* CURRENCY IS OFF
0x0832e8…08347c Dummy {f00=0x0023, f01=0x0190, f02=» * d L PBE550 $ L P PERF CEGACT GET ACCOUNT NUMBER t L P TBT SBCANCEL,BE990 ERROR DETECTED OR CANCEL
0x08347c…083610 Dummy {f00=0x0023, f01=0x0190, f02=» * L P* AT THIS POINT, WHEN THE FUNCTION SELECTED IS NOT 'CARD TRANSFER', * H 6 P* 'OPERATOR CLOSE' OR 'D-S (ALL ACCOUNT OPTION)' L P* - THE REQUIRED ACCOUNT RECORD HAS BEEN READ INTO UW
0x083610…0837a4 Dummy {f00=0x0023, f01=0x0190, f02=»AINS THE PASSBOOK LINE NUMBER r L P* - THE VARIABLE 'NDLRN1' CONTAINS THE LOGICAL RECORD NUMBER OF THE * & L P* ACCOUNT RECORD, * v L P* - THE BOOLEAN 'SBCHQACT' INDICATES WHETHER THE ACCOUNT
0x0837a4…083938 Dummy {f00=0x0023, f01=0x0190, f02=» * f L P************************************************************************ & L P* * v L P* SELECT FUNCTION
0x083938…083acc Dummy {f00=0x0023, f01=0x0190, f02=»****************************** f L PBE600 & L P TBF SBOPRCLS,BE610 v P PERF DQCOPR OPERATOR CLOSE L P B BE900
0x083acc…083c60 Dummy {f00=0x0023, f01=0x0190, f02=»ENCY SWITCH ? * L P* * J L PBE610 L P CBE SWCCY,=W'0',BE700
0x083c60…083df4 (1, 166) Dummy {f00=0x0023, f01=0x0190, f02=»ENCY IS ON * L P* * J L P CBNE NWKTBIX,=W'6',BE620 NOT 'UPDATE' P PERF DAUCCY CURRENCY UPDATE
0x083df4…083f88 Dummy {f00=0x0023, f01=0x0190, f02=» ^ L P CBNE NWKTBIX,=W'7',BE630 NOT 'INQUIRY' " P PERF DOQCCY CURRENCY INQUIRY n L P B BE900 L PBE630
0x083f88…08411c Dummy {f00=0x0023, f01=0x0190, f02=» Z PBE640 " P PERF DPECCY CURRENCY EXCHANGE ( L P B BE900 N L P* * L P* BRANCH TO SEVERAL FUNCTI
0x08411c…0842b0 Dummy {f00=0x0023, f01=0x0190, f02=»700 2 P IB NWKTBIX,BE710,BE720,BE730,BE740,BE750, C ! N ( P BE760,BE770,BE780,BE790,BE800, C ! P BE810 ! L PBE710
0x0842b0…084444 Dummy {f00=0x0023, f01=0x0190, f02=» ! L PBE712 " F L P PERF DDTP71 DEMONSTRATE TP71 " L P B BE900
0x084444…0845d8 Dummy {f00=0x0023, f01=0x0190, f02=»CT LIST ACCOUNT " L P B BE900 # F L PBE730 # L P PERF DFOACT OPEN ACCOUNT
0x0845d8…08476c Dummy {f00=0x0023, f01=0x0190, f02=» # L P PERF DGCACT CLOSE ACCOUNT $ F L P B BE900 $ L PBE750
0x08476c…084900 Dummy {f00=0x0023, f01=0x0190, f02=» $ L PBE760 % F L P PERF DJUACT UPDATE ACCOUNT % L P B BE900
0x084900…084a94 (1, 167) Dummy {f00=0x0023, f01=0x0190, f02=»CT INQUIRY ACCOUNT % L P B BE900 & F L PBE780 & L P PERF DKDSTM DAILY STATEMENT
0x084a94…084c28 Dummy {f00=0x0023, f01=0x0190, f02=» & L P PERF DLDEP DEPOSIT ' F L P B BE900 ' L PBE800
0x084c28…084dbc Dummy {f00=0x0023, f01=0x0190, f02=» ' L PBE810 ( F L P PERF DNTRF TRANSFER ( P B BE900 ( PBE820 ( P PER
0x084dbc…084f50 Dummy {f00=0x0023, f01=0x0190, f02=»FROM FUNCTION MODULE * ( L P* * ) B L PBE900 ) 4 P CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-
0x084f50…0850e4 Dummy {f00=0x0023, f01=0x0190, f02=» ) P* * PBE910 * 4 P CBE YDSTATUS,=D'3',BE999 SYSTEM HAS BEEN CLOSED * L P CBNE ODSTATUS,=D'2',BE999 OPERATOR CLOSE HAS SUCCEEDED * X L P* * * P* RE-EXECUTE FUN
0x0850e4…085278 Dummy {f00=0x0023, f01=0x0190, f02=» * l P TBT SBZEKERR,BE991 + , P TBF SBZEK,BE992 + H PBE991 + ` * P DSC0 DSVCHPRT,1 RESET VOUCHER-PRINTER + n PBE992 + L P B BE000 + L P*
0x085278…08540c Dummy {f00=0x0023, f01=0x0190, f02=» * + J L P* * , L PBE999 , Z L P RET , L P PEND
0x08540c…0855a0 Dummy {f00=0x0023, f01=0x4022, f02=» , ^@ - * , L PBE999 , Z L P RET , L P PEND
0x0855a0…085734 (1, 168) Dummy {f00=0x0023, f01=0x2008, f02=» . x L P SET SBCHEQUE 8 L P B BE050 ACCEPT NEXT FUNCTION KEY L PBE030
0x085734…0858c8 Dummy {f00=0x0023, f01=0x018e, f02=» & CLOSE ACCOUNTT & c L & BLOCK ACCOUNTT 0 & d L L & DEBLOCK ACCOUNT & e E z & UPDATE ACCOUNT & f P & UPDATE CURRENCY & g P & INQUIRY ACCOUNT & h
0x0858c8…085a5c Dummy {f00=0x0023, f01=0x0190, f02=» & CURRENCY EXCH. & l U $ & CURRENCY INQ.. 4 & m U P & LIST ACCOUNTS. ` & | & ` I & i I & Z I & & X ZZZZZZ " X I & X I
0x085a5c…085bf0 Dummy {f00=0x0023, f01=0x0190, f02=» Z ZT " Z9 & & 2 . & CANCEL > & R [ 999999 ` " [ A v & 99999C " =A & ] 999L " ]2A & ^ 99E:99
0x085bf0…085d84 Dummy {f00=0x0023, f01=0x0190, f02=» " & TRANSFER FROM ACCOUNT : & T R * & U R : & J ` ZZZZZZ " `a r & & a 999999 " aa & a & 5 & BOOK BALANCE: &
0x085d84…085f18 Dummy {f00=0x0023, f01=0x018e, f02=» " c ZZ " ce & 0 & CREDIT LIMIT: > & Z d ZZZZZZZZ9,99 h " d R & d & AMOUNT : & e ZZZZZZZZZ,ZZ " e & e
0x085f18…0860ac Dummy {f00=0x0023, f01=0x018e, f02=» p & g ZZZZZZ " gb 0 ( @ h L & g & ! j & # &! INQUIRY SAVINGS ACCOUNT NR : z & " & INQUIRY CHEQUE ACCOUNT : & i 999999 " iaN
0x0860ac…086240 Dummy {f00=0x0023, f01=0x0190, f02=» & BOOK BALANCE : & " & CREDIT LIMIT : 0 & N k ZZZZZZZZ9,99- " k R z & k & STATUS : & l 9T " l T & l ( $ &" LAST TRANS. RE
0x086240…0863d4 (1, 169) Opaque[0x194]
0x0863d4…086568 # DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x8208, f01=0x5206, f02=0x0480, f03=0x00ff}
0x0863d4…086568 IdxSect {
0x0863d4…086568 f00 = 0x0024 // 0x863d4 @0x0
0x0863d4…086568 f01 = 0x000c // 0x863d6 @0x2
0x0863d4…086568 gno = [ // 0x863d8 @0x4
0x0863d4…086568 [0x00]: C0x0024.0x0.0
0x0863d4…086568 [0x01]: C0x0024.0x1.0
0x0863d4…086568 [0x02]: C0x0024.0x2.0
0x0863d4…086568 [0x03]: C0x0024.0x3.0
0x0863d4…086568 [0x04]: C0x0025.0x0.0
0x0863d4…086568 [0x05]: C0x0025.0x1.0
0x0863d4…086568 ]
0x0863d4…086568 }
0x086568…0866fc Dummy {f00=0x0024, f01=0x0190, f02=» 8 P IDENT CEGACT GET ACCOUNT L P DDUM DEMODD @ L P PDIV P EXPROC DKDSTM P EXPROC PBBOOK
0x0866fc…086890 Dummy {f00=0x0024, f01=0x0190, f02=»ROC XEERR P EXPROC XGBCR P P EXPROC ZCRDD ( P EXPROC ZGREA | P EXPROC SPAP10 P EXPROC SPAP11 P EXPROC XFERR1 L P ENTRY CEGACT
0x086890…086a24 Dummy {f00=0x0024, f01=0x0190, f02=» * t P* GET ACCOUNT 4 L P* * J L P************************************************************************ L PCEGACT PROC
0x086a24…086bb8 Dummy {f00=0x0024, f01=0x0190, f02=» SBZEKERR NO ERROR YET . P CBNE NWKTBIX,=W'11',CE100 NOT 'TRANSFER' , P TBT SBCARD,CE100 'TRANSFER' AND 'CARD' P * P TBT SBZEK,CE110 'TRANSFER' AND ZEKOSA & P B CE999 'TRANSFER' AND NOT 'CARD' L P*
0x086bb8…086d4c Dummy {f00=0x0024, f01=0x0190, f02=» * x L PCE100 8 P TBT SBZEK,CE110 L P TBF SBCARD,CE120 L P*
0x086d4c…086ee0 Dummy {f00=0x0024, f01=0x0190, f02=»* * L PCE110 P 0 P PERF XBFMT,=W'27' GET ACCOUNTNUMBER SCREEN P TBF SBCANCEL,CE115 P B CE999 PCE115
0x086ee0…087074 (1, 170) Dummy {f00=0x0024, f01=0x0190, f02=» P TBT SBMSU,CE140 * P CBNE SPBINW2,KW2,CE140 NO READ ERROR 4 P PERF XEERR,=W'32',KW2 b P B CE110 L PCE120 L P TBF SBCHEQUE,CE130
0x087074…087208 Dummy {f00=0x0024, f01=0x0190, f02=»NT READER INPUT * L P* * @ L P B CE970 READ ACCOUNT RECORD P* L P* KEYBOARD INPUT
0x087208…08739c Dummy {f00=0x0024, f01=0x0190, f02=» L P PERF XBFMT,=W'27' GET ACCOUNT NUMBER J P TBF SBCANCEL,CE140 P B CE999 CANCEL L P**********************************************************
0x08739c…087530 Dummy {f00=0x0024, f01=0x018e, f02=» * n L P* * . L P********************************************************************** * ~ PCE140 , P TBF SBZEKERR,CE141 JUMP IF NO ZEK ERROR
0x087530…0876c4 Dummy {f00=0x0024, f01=0x0190, f02=» L P* * L P* NUMBER ENTERED = 0 AND 'D-S' * T L P* A GTP OR LP MUST BE AVAILABLE * L P*
0x0876c4…087858 Dummy {f00=0x0024, f01=0x0190, f02=»P AVAILABLE t L P CBE YDMLPINT,=D'1',CE149 LINE PRINTER AVAILABLE 4 P B CE990 PCE149 P B CE999 LONGBRANCH L PCE150
0x087858…0879ec Dummy {f00=0x0024, f01=0x0190, f02=»,CE310 HANDLE ONLY 'IN' AND 'OUT' ~ P MOVE WW1,KW0 * P MOVE SPBINW4,KW0 @ ( P PERF SPAP10,WW1 CHECK BOOK BALANCE Z P CBE WW1,KW1,CE154 ERROR? , P PERF SPAP11,WW1 NOT YET, CHECK LINE NO. & P CBE WW1,KW0,CE310 STILL NO ERROR? PCE154
0x0879ec…087b80 Dummy {f00=0x0024, f01=0x0190, f02=» CANCELED | * P CLEAR SBZEK RESET ZEKOSA SWITCH TEMP. P B CE130 BRANCH TO MANUAL @ PCE155 b P B CE999 p PCE156 L P CBL IDACTNR1,=D'1001',CE920 ERROR N P CBL IDACTNR1,=D'10000',CE200 READ ACCO
0x087b80…087d14 (1, 171) Dummy {f00=0x0024, f01=0x018e, f02=»OSE b L P CBL IDACTNR1,=D'168000',CE920 ERROR H P CBL IDACTNR1,=D'169000',CE210 READ ACCOUNT RECORD L P B CE920 ERROR P* P* POSS
0x087d14…087ea8 Dummy {f00=0x0024, f01=0x0190, f02=» f P* 8 P* NUMBER ENTERED IS THE CURRENT OPERATOR NUMBER AND P* CLOSE HAS BEEN REQUESTED N P* p ( P SET SBOPRCLS SET OPR. CLOSE SWITCH z P B CE999 RETURN L P* *
0x087ea8…08803c Dummy {f00=0x0024, f01=0x0190, f02=» * ^ L PCE200 P* n P* READ VIA INDEX 2 x P* P MOVE ADACTRNR,IDACTNR1 $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW2 P B CE250 P* P* READ VIA
0x08803c…0881d0 Dummy {f00=0x0024, f01=0x018e, f02=»SHIFT P P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 @ PCE250 L P TBT SBCANCEL,CE999 L P TBF SBRECAVB,CE990 RE
0x0881d0…088364 Dummy {f00=0x0024, f01=0x0190, f02=» L P* * L P* ACCOUNT RECORD AVAILABLE * T ( P* PERFORM CHECKS ON THE RECORD READ L P*
0x088364…0884f8 Dummy {f00=0x0024, f01=0x0190, f02=» p P B CE152 0 PCE310 @ P MOVE IDACTNR1,ADACTRNR N . P DIV IDACTNR1,KDSHIFT SAVE ACCOUNT NUMBER n P* 0 P* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE P* P PERF QGATYP,IDACTNR1 L P C
0x0884f8…08868c Dummy {f00=0x0024, f01=0x0190, f02=» * V L P* ACCOUNT CLOSED * $ P* IF MASTER KEY UPDATE, CONTINUE f L P* * L P TBF SBKEY2,CE340
0x08868c…088820 Dummy {f00=0x0024, f01=0x0190, f02=»EMENT f L P* * L P* ACCOUNT CLOSED WITHOUT STATEMENT * ^ 6 P* IF FUNCTION CHOISE IS DAILY STATEMENTS, CONTINUE L P* PERFORM DAILY STATEMENTS OR
0x088820…0889b4 (1, 172) Dummy {f00=0x0024, f01=0x0190, f02=» * * P CBE NWKTBIX,=W'8',CE400 SKIP IF 'D-S' H P CBE RDPRTTYP,=D'4',CE990 v 2 P CBE RDPRTTYP,=D'2',CE990 'RECORD KEY INVALID L P TBT SBCHQACT,CE360
0x0889b4…088b48 Dummy {f00=0x0024, f01=0x0190, f02=» * n < P* PRINT ALL UNSTATEMENTED TRANSACTIONS AND A CLOSE LINE . L P* * n P TBT SBNOBOOK,CE990 P PERF PBBOOK P B CE370 L P*
0x088b48…088cdc Dummy {f00=0x0024, f01=0x0190, f02=» * N L P* * L PCE360 ^ P PERF DKDSTM PCE370 P TBT SBCANCEL,CE999 L P B CE990
0x088cdc…088e70 Dummy {f00=0x0024, f01=0x0190, f02=» ADSTATUS,=D'0',CE500 DEBLOCKED L P* * L L P* ACCOUNT BLOCKED * L P*
0x088e70…089004 Dummy {f00=0x0024, f01=0x0190, f02=» NWKTBIX,=W'8',CE500 'D-S' ALLOWED L P TBF SBKEY2,CE980 ELSE KEY 2 MUST BE ON * L P CBE NWKTBIX,=W'6',CE500 AND 'UPDATE' z L P CBE NWKTBIX,=W'5',CE500 OR 'BLOCK'
0x089004…089198 Dummy {f00=0x0024, f01=0x0190, f02=»******************************** * j P* * P* ADDITONAL CHECKS 4 L P* * P L P********************************************************************** * P* P* CHECK CLOSE
0x089198…08932c Dummy {f00=0x0024, f01=0x0190, f02=» ` P CBNE NWKTBIX,=W'4',CE505 " P CBNE ADBAL,=D'0',CE950 ERROR B P* h P* CHECK D-S r P* PCE505 P CBNE NWKTBIX,=W'8',CE510 P P CBE RDPRTTYP,=D'3',CE510 , P CBG RDPRTTYP,=D'1',CE910 NO T
0x08932c…0894c0 Dummy {f00=0x0024, f01=0x0190, f02=»NOT 'CHEQUE' | P* P* CHEQUE/OUT P* 2 . P TBF SBCHQACT,CE940 MUST BE CHEQUE ACCOUNT < P* n 2 P* CHECK IF THERE IS ENOUGH SPACE FOR ONE MORE x P* TRANSACTION RECORD 0 P* IN CASE OF DEPOSIT, WITHDRAWAL OR TRANSFER P* P
0x0894c0…089654 (1, 173) Dummy {f00=0x0025, f01=0x0190, f02=» B CE600 PCE525 P MOVE WDEC1,ADLASTRS , P PERF QENTRS,WDEC1 NEXT TRANSACTION NR. : " P CBNE ADSTMTRS,WDEC1,CE600 OKE j P* @ P* NO MORE FREE RECORDS AVAILABLE, PRINT UNST. TRANSACTIONS P* P CBE RDPRTTYP,=D'4',CE930 2
0x089654…0897e8 Dummy {f00=0x0025, f01=0x018e, f02=»NSACTIONS f P* & P TBT SBNOBOOK,CE930 'NOBOOK' IS ON P PERF PBBOOK F P B CE560 Z P* j , P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS t P* PCE550 " P PERF DKDSTM DAILY-STATEMENTS PCE560 P TBT SBCANCEL,CE999
0x0897e8…08997c Dummy {f00=0x0025, f01=0x0190, f02=» $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 P TBT SBCANCEL,CE999 0 PCE600 L L P B CE999 Z L P************************************************************************ P* 8 P* DI
0x08997c…089b10 Dummy {f00=0x0025, f01=0x0190, f02=»** J PCE910 ! P PERF XEERR,=W'33',KW2 ! P B CE998 ! 6 L P************************************************************************ ! F P* ! ( P* DISPLAY ERROR: VALUE NOT IN RANGE ! P* ! L P**************************************************
0x089b10…089ca4 Dummy {f00=0x0025, f01=0x0190, f02=»************************** ! b P* " " . P* DISPLAY ERROR: NO TRANSACTIONS POSSIBLE " , P* " ^ L P************************************************************************ " h PCE930 " P PERF XEERR,=W'56',KW2 " P B CE998 " L P********************
0x089ca4…089e38 Dummy {f00=0x0025, f01=0x018e, f02=»******************************************************** " PCE940 # @ P PERF XEERR,=W'34',KW2 # N P B CE998 # l L P************************************************************************ # | P* # & P* DISPLAY ERROR: BALANCE NOT ZERO # P* # L
0x089e38…089fcc Dummy {f00=0x0025, f01=0x0190, f02=» # L P************************************************************************ $ P* $ X * P* DISPLAY ERROR: UNSERVICEABEL REQUEST $ b P* $ L P************************************************************************ $ PCE960 $ P PERF XEERR,=W'2
0x089fcc…08a160 Dummy {f00=0x0025, f01=0x0190, f02=» INPUT DEVICE FAILURE $ P* % L P************************************************************************ % ( PCE970 % x P PERF XEERR,=W'32',KW2 % P B CE998 % L P************************************************************************ % L P*
0x08a160…08a2f4 (1, 174) Dummy {f00=0x0025, f01=0x0190, f02=» * % T L P* * & L P************************************************************************ & d L PCE980 & P PER
0x08a2f4…08a488 Dummy {f00=0x0025, f01=0x018e, f02=» * & L P* DISPLAY ERROR: RECORD KEY INVALID * ' B L P* * ' L P**************************************
0x08a488…08a61c Dummy {f00=0x0025, f01=0x0190, f02=» & P MOVE WWINDEX1,KW3 TO READ TRACK 3 ( P B CE116 ( . PCE992 ( > P PERF XEERR,=W'29',KW2 ( L PCE998 ( j P TBT SBCANCEL,CE999 ( x ( P PERF ZGREA RELEASE EXCLUSIVE ACCES ( P B CE100 RESTART INPUT ( L PCE999
0x08a61c…08a7b0 Dummy {f00=0x0025, f01=0x40e2, f02=» ( ~ L P************************************************************************ ) > L P END ) @ ) 9
0x08a7b0…08a944 Dummy {f00=0x0025, f01=0x2008, f02=» * x@ 8 8 L P PEND L P*
0x08a944…08aad8 Dummy {f00=0x0025, f01=0x0190, f02=» W u %7b 0 0 4 #v C W w %7c 0 0 4 )"`h ` A I2 8 Dy0 D P 0 D{0 DT5 W^0 e e e /#e I2A0 _E I21_O e I2&!e " e !I2 !e` "I2 W : ` . "`/4 e`)e !"`3%e "#e e I2 I !8` CvW ;
0x08aad8…08ac6c Dummy {f00=0x0025, f01=0x0190, f02=» ( B ` S a R > / d L v f q H J 1 C j d e H 634463466371 $ 2 y ] *
0x08ac6c…08ae00 Dummy {f00=0x0025, f01=0x0190, f02=»A BASE VOLUME NAME ? DSC E 0 0 0 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 20 50 80 ;0 >0 B ( ) - E V z !I2 !e` "I2 W : ` . "`/4 e`)e !"`3%e "#e e I2 I !8` CvW ;
0x08ae00…08af94 (1, 175) Opaque[0x194]
0x08af94…08b128 # DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x5420, f02=0x04b0, f03=0x000a}
0x08af94…08b128 IdxSect {
0x08af94…08b128 f00 = 0x0025 // 0x8af94 @0x0
0x08af94…08b128 f01 = 0x0008 // 0x8af96 @0x2
0x08af94…08b128 gno = [ // 0x8af98 @0x4
0x08af94…08b128 [0x00]: C0x0025.0x2.0
0x08af94…08b128 [0x01]: C0x0025.0x3.0
0x08af94…08b128 [0x02]: C0x0026.0x0.0
0x08af94…08b128 [0x03]: C0x0026.0x1.0
0x08af94…08b128 ]
0x08af94…08b128 }
0x08b128…08b2bc Dummy {f00=0x0025, f01=0x0190, f02=» J P IDENT CDCHKY CHECK FUNCTIONKEY-COMBINATION DDUM DEMODD R PDIV f P EXPROC XEERR t ENTRY CDCHKY L P************************************************************************ P* 6 P* CHECK THE VA
0x08b2bc…08b450 Dummy {f00=0x0025, f01=0x0190, f02=»CHKY PROC PCD000 L P************************************************************************ L P* * p L P* CHECKS ON CURRENCY *
0x08b450…08b5e4 Dummy {f00=0x0025, f01=0x0190, f02=»************************ ` L PCD110 L P CBNE KDCHECKS(NWKTBIX,KW1),=D'1',CD112 p L P CBNE SWCCY,=W'0',CD990 ERROR
0x08b5e4…08b778 Dummy {f00=0x0025, f01=0x0190, f02=» * ` L P* SPECIFIC CURRENCY CHECKS * L P* * p L PCD112
0x08b778…08b90c Dummy {f00=0x0025, f01=0x0190, f02=» T L P* * L P* CURRENCY IS ON * d L P* * L P TBT
0x08b90c…08baa0 Dummy {f00=0x0025, f01=0x0190, f02=» T L P TBT SBCARD,CD990 L P TBT SBRVS,CD990 ERRORS d L P B CD120 NEXT CHECK L P*
0x08baa0…08bc34 (1, 176) Dummy {f00=0x0025, f01=0x0190, f02=» * T L P* * L PCD115 d L P TBF SBFLDEMP,CD990 FIELD NOT EMPTY L P****
0x08bc34…08bdc8 Dummy {f00=0x0025, f01=0x0190, f02=» * T L P* CHECKS ON CHEQUE * L P* * d L P************************************************************************ L PCD12
0x08bdc8…08bf5c Dummy {f00=0x0025, f01=0x0190, f02=» T L P TBT SBCHEQUE,CD990 ERROR L P B CD130 NEXT CHECK d L P* * L P* SP
0x08bf5c…08c0f0 Dummy {f00=0x0025, f01=0x0190, f02=» * T L PCD122 @ P CBNE KDCHECKS(NWKTBIX,KW2),=D'2',CD130 NO SPECIFIC CHECK d L P TBF SBCHEQUE,CD130 ONLY IF CHEQUE IS ON L P*
0x08c0f0…08c284 Dummy {f00=0x0025, f01=0x0190, f02=» H L P* * J P TBT SBRVS,CD990 'REVERSAL' MUST BE OFF X J P TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF * P TBT SBZEK,CD990 'ZE
0x08c284…08c418 Dummy {f00=0x0025, f01=0x0190, f02=»****************************************************** ~ L P* * > L P* CHECKS ON NOBOOK * L P*
0x08c418…08c5ac Dummy {f00=0x0025, f01=0x0190, f02=»E KDCHECKS(NWKTBIX,KW3),=D'1',CD132 L P TBT SBNOBOOK,CD990 ERROR L L P B CD140 NEXT CHECK L P*
0x08c5ac…08c740 Dummy {f00=0x0025, f01=0x0190, f02=» * L PCD132 L L P CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140 L P TBF SBNOBOOK,CD140 OK, NEXT
0x08c740…08c8d4 (1, 177) Dummy {f00=0x0026, f01=0x0190, f02=» j , P TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY ( L P************************************************************************ X L P* * L P* CHECKS ON REVE
0x08c8d4…08ca68 Dummy {f00=0x0026, f01=0x0190, f02=» H L P************************************************************************ L PCD140 X L P CBNE KDCHECKS(NWKTBIX,KW4),=D'1',CD142 L P TBT SBRVS,CD990
0x08ca68…08cbfc Dummy {f00=0x0026, f01=0x0190, f02=» H L PCD142 L P************************************************************************ X L P* * L P* CHECKS ON CARD
0x08cbfc…08cd90 Dummy {f00=0x0026, f01=0x0190, f02=» H L P************************************************************************ L PCD150 X L P CBNE KDCHECKS(NWKTBIX,KW5),=D'1',CD152 L P TBT SBCARD,CD99
0x08cd90…08cf24 Dummy {f00=0x0026, f01=0x0190, f02=» H L P* * L P* SPECIFIC CARD CHECKS * X L P* * L PCD152
0x08cf24…08d0b8 Dummy {f00=0x0026, f01=0x0190, f02=» H L P TBF SBCARD,CD160 OK, NEXT CHECK J P TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF X J P TBT SBCHEQUE,CD990 'CHEQUE' MUST BE OFF , P TBF SBFLDEMP,CD990
0x08d0b8…08d24c Dummy {f00=0x0026, f01=0x0190, f02=» | L P************************************************************************ L P* * X L P* CHECKS ON THE INPUT-FIELD * L P*
0x08d24c…08d3e0 Dummy {f00=0x0026, f01=0x0190, f02=» H L PCD160 L P CBNE KDCHECKS(NWKTBIX,KW6),=D'1',CD170 X L P TBF SBFLDEMP,CD990 FIELD NOT EMPTY, ERROR L P****************
0x08d3e0…08d574 (1, 178) Dummy {f00=0x0026, f01=0x0190, f02=»***************************************************************** PCD170 J P X P MOVE WW1,='7' ` , P CBNE KDCHECKS(NWKTBIX,WW1),=D'1',CD172 v . P TBT SBZEK,CD990 ERROR, ZEKOSA ALREADY ON P B CD999 L P********************************
0x08d574…08d708 Dummy {f00=0x0026, f01=0x0190, f02=»*************************************** n PCD172 0 , P CBNE KDCHECKS(NWKTBIX,WW1),=D'2',CD174 > $ P TBF SBZEK,CD999 OK, NEXT CHECK n P TBT SBCARD,CD990 'CARD' OFF $ P TBT SBNOBOOK,CD990 'NOBOOK' OFF $ P TBT SBCHEQUE,CD990 'CHEQUE' OFF ,
0x08d708…08d89c Dummy {f00=0x0026, f01=0x40f4, f02=»ISHED x P TBT SBCARD,CD990 P TBT SBCHEQUE,CD990 ( P B CD999 OK TOO, FINISHED D CD990 f 0 P PERF XEERR,=W'10',KW1 UNSERVICEABLE REQUEST t CD999 RET PEND * * END @ 0 'CHEQUE' OFF ,
0x08d89c…08da30 Dummy {f00=0x0026, f01=0x2008, f02=» NT CDCHKY DDUM DEMODD PDIV . ENTRY CDCHKY < B CD999 R CD990 b SET SBCANCEL p CD999 RET PEND * * END @ 6 L PUDBCTFRM BCD 12 ACCOUNT
0x08da30…08dbc4 Dummy {f00=0x0026, f01=0x2008, f02=» * L = HANNOVER MESSE-0 DATE = 810327 6876PACK NBR = 0116 q @
0x08dbc4…08dd58 Dummy {f00=0x0026, f01=0x0190, f02=»0 -0 . F : 0 0 0 @
0x08dd58…08deec Dummy {f00=0x0026, f01=0x0190, f02=»
[…0x1…]
0x08e080…08e214 (1, 179) Opaque[0x194]
0x08e214…08e3a8 # DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x000c, f01=0xe8c8, f02=0x04d0, f03=0x540c}
0x08e214…08e3a8 IdxSect {
0x08e214…08e3a8 f00 = 0x0026 // 0x8e214 @0x0
0x08e214…08e3a8 f01 = 0x0008 // 0x8e216 @0x2
0x08e214…08e3a8 gno = [ // 0x8e218 @0x4
0x08e214…08e3a8 [0x00]: C0x0026.0x2.0
0x08e214…08e3a8 [0x01]: C0x0026.0x3.0
0x08e214…08e3a8 [0x02]: C0x0027.0x0.0
0x08e214…08e3a8 [0x03]: C0x0027.0x1.0
0x08e214…08e3a8 ]
0x08e214…08e3a8 }
0x08e3a8…08e53c Dummy {f00=0x0026, f01=0x0190, f02=» D P IDENT CFCHKH CHECK AVAILABLE HARDWARE DDUM DEMODD L PDIV ` P EXPROC XEERR n ENTRY CFCHKH L P************************************************************************ L P*
0x08e53c…08e6d0 Dummy {f00=0x0026, f01=0x0190, f02=» * x L P************************************************************************ 8 CFCHKH PROC CF000 L P************************************************************************ L P*
0x08e6d0…08e864 Dummy {f00=0x0026, f01=0x0190, f02=» * J L P* * L P************************************************************************ Z L P* * L P* FOR EOI, DEM
0x08e864…08e9f8 Dummy {f00=0x0026, f01=0x0190, f02=» * J L PCF300 L P CBNE NWKTBIX,=W'1',CF320 NOT 'EOI' Z L PCF310 L P CBE FCFIELD,
0x08e9f8…08eb8c Dummy {f00=0x0026, f01=0x0190, f02=» J P CBE FCFIELD,=C'6346',CF314 P B CF970 . L PCF312 > . P CBE RDPRTTYP,=D'3',CF320 TP71 WITH ZEKOSA L P CBNE RDPRTTYP,=D'0',CF990 NO TP71 AVAILABLE
0x08eb8c…08ed20 Dummy {f00=0x0026, f01=0x0190, f02=» ` L P CBL RDSCRLNS,=D'19',CF990 NO VDU AVAILABLE L P************************************************************************ p L P* *
0x08ed20…08eeb4 (1, 180) Dummy {f00=0x0026, f01=0x0190, f02=» * ` L PCF320 L P CBNE NWKTBIX,=W'2',CF330 NOT 'LIST' p L P CBL RDSCRLNS,=D'19',CF990 NO VDU AVAILABLE
0x08eeb4…08f048 Dummy {f00=0x0026, f01=0x018e, f02=» * ` L P* FOR OPEN, AN ALPHANUMERIC KEYBOARD MUST BE AVAILABLE * L P* * p L PCF330
0x08f048…08f1dc Dummy {f00=0x0026, f01=0x0190, f02=» L P************************************************************************ P* T 6 P* IF 'CARD', A BADGE CARD READER MUST BE AVAILABLE ^ 0 P* IF 'ZEKOSA', A TP71-ZEKOSA MUST BE PRESENT P* PCF350 P TBF SBZEK,CF355 " P* TEMP. CHAN
0x08f1dc…08f370 Dummy {f00=0x0026, f01=0x0190, f02=»ARD' x " P CBE RDBCR,=D'0',CF990 NO BCR . P* IF CARD AND 'OPEN' MSU MUST BE AVAILABLE 2 & P CBNE NWKTBIX,KW3,CF360 NOT 'OPEN' d P CBE RDBCR,=D'1',CF990 P* P* IF 'CHEQUE' AND 'OUT', 6 P* AN OPTICAL DOCUMENT READER MUST BE AVAILABLE
0x08f370…08f504 Dummy {f00=0x0026, f01=0x0190, f02=»DR,=D'0',CF990 NO ODR L P************************************************************************ L P* * n L P* FOR 'IN', 'OUT' AND 'TRANSFER', *
0x08f504…08f698 Dummy {f00=0x0026, f01=0x0190, f02=» * ^ L P* * PCF380 n L P CBL NWKTBIX,=W'9',CF400 | L P CBG NWKTBIX,=W'11',CF400
0x08f698…08f82c Dummy {f00=0x0026, f01=0x0190, f02=»AL n & P TBF SBKEY2,CF980 KEY 2 MUST BE ON PCF400 4 L P************************************************************************ B L P* * L P* CHECK KEYHOLE SETTING
0x08f82c…08f9c0 Dummy {f00=0x0026, f01=0x0190, f02=»********************************************************** L P* FOR BLOCK * B L PCF410 L P CBNE NWKTBIX,=W'5',CF420 NOT 'BLOCK'
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x0027, f01=0x0190, f02=» * L P* FOR UPDATE * B L P* * L PCF420
0x08fb54…08fce8 Dummy {f00=0x0027, f01=0x0190, f02=»0',CF430 CURRENCY IS OFF L P TBF SBKEY2,CF980 KEY 2 MUST BE ON B L P* * L P* FOR IN AND OUT
0x08fce8…08fe7c Dummy {f00=0x0027, f01=0x0190, f02=» L P CBNE NWKTBIX,=W'9',CF999 NOT 'IN' B L P CBNE NWKTBIX,=W'10',CF999 NOT 'OUT' L P CBE SWCCY,=W'0',CF999 CURRENCY IS OFF
0x08fe7c…090010 Dummy {f00=0x0027, f01=0x0190, f02=» * L P* CURRENCY IS ON AND FIELD IS NOT EMPTY * B L P* * ( P TBT SBFT80,CF999 FINANCIAL TERMINAL
0x090010…0901a4 Dummy {f00=0x0027, f01=0x0190, f02=»************************************** n P* . * P* DISPLAY ERROR: UNSERVICABLE REQUEST 8 P* f L P************************************************************************ p PCF970 P PERF XEERR,=W'10',KW1 P B CF999 L P************
0x0901a4…090338 Dummy {f00=0x0027, f01=0x0190, f02=» L P************************************************************************ CF980 T PERF XEERR,=W'31',KW1 b B CF999 L P************************************************************************ * 8 3* DISPLAY ERROR: REQUIRED DEVI
0x090338…0904cc Dummy {f00=0x0027, f01=0x40a4, f02=»ERF XEERR,=W'33',KW1 CF999 RET * PEND 6 L P************************************************************************ D P END @ **************************************************** * 8 3* DISPLAY ERROR: REQUIRED DEVI
0x0904cc…090660 Dummy {f00=0x0027, f01=0x2008, f02=» CF999 RET PEND $ * 2 * < END F@ RFCHKH N * d * n CFCHKH PROC x CF000 * 0 +* DISPLAY ERROR: MASTER KEYSETTING REQUIRED * CF980 PERF XEERR,=W'31',KW1
0x090660…0907f4 (1, 182) Dummy {f00=0x0027, f01=0x0190, f02=» r C. r X C.9h! r r # " r r :A K : A T.I T P 1 I P < R P A _> x : @ " P P j st As As As As W s Aj At" At& AtN AtR Aw8 AqZ Au Au : 9e :e Q P
0x0907f4…090988 Dummy {f00=0x0027, f01=0x0190, f02=» Aj U <e @j P Aj <C, D L " @j $ P " :B Aj" t w B J " r R,Q$ @ ( = @j Q @j" "| _@ _$ : At At Au Au t Aw8 AqZ Au Au : h:B* Aj" @j P Aj B J 4R 4 :B 4 @j : V V 49B @j" 4R @
0x090988…090b1c Dummy {f00=0x0027, f01=0x0190, f02=»A I T - A _ I N T V S : x u u 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P @ T X W n : YX d C !CCTx xB. r <X B.9 Hj$ Q u(_ s _ !SSTF 0 Uj* P A
0x090b1c…090cb0 Dummy {f00=0x0027, f01=0x0190, f02=» F P P V W @ $ P p W x T : Av w8_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " 2 ; Z [ : : [ [ : 4
0x090cb0…090e44 Dummy {f00=0x0027, f01=0x0190, f02=» W Z A. c @ V W U x R $ )_ : W W W W W | QF V V v x W V V v p R0 W V W | ^B _F 9o V _X V V : V J P z
0x090e44…090fd8 Dummy {f00=0x0027, f01=0x0190, f02=» x x v : V W V x ) : V <B W |P v v : $ yR V |P v w v : V $ V l $ yR V M : W V R RR > R W > <B V x V |P v 1 v
0x090fd8…09116c Dummy {f00=0x0027, f01=0x0190, f02=» D P. V x P x P T x E _J yR E _T " D T E yR E D E % : " R ;B yR " R P( |P v v : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W
0x09116c…091300 Dummy {f00=0x0027, f01=0x0190, f02=» ? ? R 0 R P P B _ + : V ) | v : 4P: " D | , H H $ M v b - I Y0 : @ ` V b pP ` $ $ W | $ I H | ) P _ " =
0x091300…091494 (1, 183) Opaque[0x194]
0x091494…091628 # DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x8820, f01=0x8024, f02=0x04f0, f03=0x0000}
0x091494…091628 IdxSect {
0x091494…091628 f00 = 0x0027 // 0x91494 @0x0
0x091494…091628 f01 = 0x0008 // 0x91496 @0x2
0x091494…091628 gno = [ // 0x91498 @0x4
0x091494…091628 [0x00]: C0x0027.0x2.0
0x091494…091628 [0x01]: C0x0027.0x3.0
0x091494…091628 [0x02]: C0x0028.0x0.0
0x091494…091628 [0x03]: C0x0028.0x1.0
0x091494…091628 ]
0x091494…091628 }
0x091628…0917bc Dummy {f00=0x0027, f01=0x0190, f02=» 6 P IDENT PBBOOK PRINT BOOK DDUM DEMODD > PDIV R P EXPROC PVATTP ` P EXPROC PWDETP v P EXPROC PZPOSD P EXPROC DEFDOC P EXPROC QENTRS P EXPROC XCLAMP P EXPROC XEERR P EXPROC ZCRDD
0x0917bc…091950 Dummy {f00=0x0027, f01=0x0190, f02=»****************************************************** ~ L P* * > L P* PROCEDURE: PBBOOK * L P* FUNCTIONAL DESCRIPTION:
0x091950…091ae4 Dummy {f00=0x0027, f01=0x0190, f02=»A PASSBOOK. * ~ L P* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE * > L P* IN UWB 'UA1'. * L P* THE TRANSACTION RECORDS ARE READ IN
0x091ae4…091c78 Dummy {f00=0x0027, f01=0x0190, f02=»IS THE ONLY BUFFER USED BY THIS ROUTINE. * ~ L P* THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED * > L P* ARE UPDATED IN THE ACCOUNT RECORD. * L P* IF ANY OF THESE VALUES HAVE BEEN UP
0x091c78…091e0c Dummy {f00=0x0027, f01=0x0190, f02=»UNT IS CLOSED THEN A CLOSE LINE MUST BE PRINTED * ~ L P* AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.' * > L P* USE OF VARIABLES: * L P* NDPRTTRS: POINTS TO THE NEXT TRAN
0x091e0c…091fa0 Dummy {f00=0x0027, f01=0x0190, f02=» CONTAINS THE ACCOUNT RECORD. * ~ L P* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS. * > L P* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. * L P* WORKVARIABLE USED:
0x091fa0…092134 (1, 184) Dummy {f00=0x0027, f01=0x0190, f02=» * ~ L P************************************************************************ > PPBBOOK PROC PRINT PASSBOOK L PPB000 ( P PERF
0x092134…0922c8 Dummy {f00=0x0027, f01=0x0190, f02=» P* P* 6371-PRINTER CONTROL P* 0 P MOVE WW1,=W'18' : . P MOVE VCDOCPAR,=C'1010313801100033000000' R * P DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 P DSC1 DSVCHPRT,X'00',KW0 PPB003 P MOVE WW1,=X'8066' P DSC1 DSVCHPRT
0x0922c8…09245c Dummy {f00=0x0027, f01=0x0190, f02=»PRTTRS WILL POINT TO THE NEXT TRANSACTION TO BE PRINTED * T P MOVE NDPRTTRS,ADSTMTRS L L P* NDNEWLNE WILL POINT TO THE FIRST FREE LINE IN THE BOOK * T P MOVE NDNEWLNE,ADLNE
0x09245c…0925f0 Dummy {f00=0x0027, f01=0x0190, f02=» PERF XCLAMP,KW4,KW1 LAMP 4 ON 6 P PERF XEERR,=W'49',KW3 'MOUNT PASSBOOK IN PRINTER' & $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF ` P TBT SBCANCEL,PB990 L P* * P* START OF THE MAIN
0x0925f0…092784 Dummy {f00=0x0027, f01=0x0190, f02=»RANSACTIONS j P* L P* UPDATE NEXT TRANSACTION TO BE PRINTED * " P* AND READ TRANSACTION RECORD n L P* * T P PERF QENTRS,NDPRTTRS
0x092784…092918 Dummy {f00=0x0027, f01=0x0190, f02=» UDTRSRNR,NDPRTTRS TRANS. RECORD KEY L P* * , L P* READ TRANSACTION RECORD AND STORE IT IN UWB UT2 * | L P*
0x092918…092aac Dummy {f00=0x0027, f01=0x0190, f02=» l & P TBT SBRECAVB,PB400 PRINT IN BOOK 4 , P PERF XEERR,=W'38',KW1 'NO TRANSACTIONS' ^ P B PB980 L P* * " P* POSITION AND PRINT PASSB
0x092aac…092c40 Dummy {f00=0x0027, f01=0x0190, f02=») d L P* * L PPB400 Z P PERF PYPOSB P TBT SBCANCEL,PB980 T P MOVE IDAMT2,UDAMOUNT
0x092c40…092dd4 (1, 185) Dummy {f00=0x0028, f01=0x0190, f02=»TING h P* ( P CBE UDTRSCDE,=D'2',PB420 WITHDRAWAL . P CBE UDTRSCDE,=D'12',PB420 TRANSFER (FROM) B 0 P CBE UDTRSCDE,=D'16',PB420 CHEQUE WITHDRAWAL t P B PB450 PPB420 $ P MUL IDAMT2,=D'-1' NEGATE AMOUNT PPB450 & P EDWRT DSVCH
0x092dd4…092f68 Dummy {f00=0x0028, f01=0x0190, f02=»ADSTMTRS,NDPRTTRS UPDATE LAST TRANS. STATEMENTED L P* * R , P* NEXT TRANSACTION, END OF THE MAIN LOOP L P*
0x092f68…0930fc Dummy {f00=0x0028, f01=0x0190, f02=» STATUS AND n P* PRINT A CLOSE LINE P* 0 PPB600 : ( P CBL ADSTATUS,=D'2',PB980 NOT CLOSED H P* t P* PRINT A CLOSE LINE ~ P* P PERF PYPOSB P TBT SBCANCEL,PB980 P MOVE SPBINW4,=W'51' . P PERF ZMRDF,SPBINW4,KW1
0x0930fc…093290 Dummy {f00=0x0028, f01=0x0190, f02=»ATUS,=D'3' CLOSED WITH STATEMENTING P* , 0 P* REWRITE THE ACCOUNT RECORD TO THE DATABASE 6 P* j PPB980 t T P PERF ZDRWRD,ADACTRNR,NDLRN1 P* : P* REWRITE MAG.STRIPE (IF ZEKOSA) AND
0x093290…093424 Dummy {f00=0x0028, f01=0x0190, f02=»F PWDETP,DSVCHPRT DETACH PRINTER L P RET ( L P PEND x L P****************************************************************
0x093424…0935b8 Dummy {f00=0x0028, f01=0x0190, f02=» * h L P* * ( L P************************************************************************ x L PPRT014 FRMT
0x0935b8…09374c Dummy {f00=0x0028, f01=0x0190, f02=» | H P FMEL '999999',UDTRSSEQ < L P FILLR ' ',4 L P FMEL 'ZZZZZZ',IDACTNR1
0x09374c…0938e0 Dummy {f00=0x0028, f01=0x0190, f02=»IDAMT2 x P FILLR ' ',2 $ P FMEL 'F*ZVZZZVZZ9,99-',UDNEWBAL " T P FMEND J L P************************************************************************ PPYPOSB PROC PPY
0x0938e0…093a74 (1, 186) Dummy {f00=0x0028, f01=0x0190, f02=» * d L P* 0: NEW ACCOUNT, NO LINES PRINTED YET * $ L P* 1-24: LAST LINE PRINTED IN THE BOOK * t L P*
0x093a74…093c08 Dummy {f00=0x0028, f01=0x0190, f02=» * d L P ADD NDNEWLNE,=D'1' $ L P CBL NDNEWLNE,=D'25',PY300 t L P MOVE NDNEWLNE,=D'1' START ON NEW PAGE
0x093c08…093d9c Dummy {f00=0x0028, f01=0x0190, f02=» * r L P* * 2 N P CBNE ADLNENR,=D'24',PY500 NO ACTION ( P PERF XCLAMP,KW4,KW2 LAMP 4 FLASHING L P DSC0 DS
0x093d9c…093f30 Dummy {f00=0x0028, f01=0x0190, f02=»F XCLAMP,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,PY999 $ L P* * @ L P* GET NUMBER OF LINE FEEDS, POSITION PASSBOOK * L P*
0x093f30…0940c4 Dummy {f00=0x0028, f01=0x4154, f02=»UB WDEC1,NDNEWLNE GET NUMBER OF LINE STEPS L P ADD WDEC1,WDEC1 GET NUMBER OF LINE FEEDS P ( P PERF PZPOSD,WDEC1 POSITION PASSBOOK PPY999 P RET P PEND L P********************
0x0940c4…094258 Dummy {f00=0x0028, f01=0x2008, f02=» NT PBBOOK DDUM DEMODD PDIV . EXT DEFDOC < EXT DEFPRT P EXT QEMOVE d EXT QENTRS x EXT XCLAMP EXT XBFMT EXT XEERR EXT ZCRDD EXT ZDRWRD EXT ZMRDF ENTRY PBBOO
0x094258…0943ec Dummy {f00=0x0028, f01=0x0190, f02=»BER OF CHARACTERS GIVEN IN FIRST p $ P* CHARACTER IN OUTPUT BUFFER ( P* P . P* G R A S P : SEND GRASP TO VOUCHER Z P* 4 P* R E L E A S : SEND LIFT TO TOP AND RELEASE P EJECT P* * P* THE FOLLOWING ORDERS ARE TREAT
0x0943ec…094580 Dummy {f00=0x0028, f01=0x0190, f02=»ITE h $ P* ORDER 22 : CUT JOURNAL * P* ORDER 26 : PERFORATE JOURNAL 4 . P* ORDER 37 : GRASP VOUCHER/PASSBOOK b 0 P* ORDER 38 : RELEASE VOUCHER/PASSBOOK P* , P* THE FOLLOWING RETURN CODES ARE USED: P*
0x094580…094714 (1, 187) Opaque[0x194]
0x094714…0948a8 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x81fc, f01=0x0032, f02=0x0510, f03=0x0703}
0x094714…0948a8 IdxSect {
0x094714…0948a8 f00 = 0x0028 // 0x94714 @0x0
0x094714…0948a8 f01 = 0x0012 // 0x94716 @0x2
0x094714…0948a8 gno = [ // 0x94718 @0x4
0x094714…0948a8 [0x00]: C0x0028.0x2.0
0x094714…0948a8 [0x01]: C0x0028.0x3.0
0x094714…0948a8 [0x02]: C0x0029.0x0.0
0x094714…0948a8 [0x03]: C0x0029.0x1.0
0x094714…0948a8 [0x04]: C0x0029.0x2.0
0x094714…0948a8 [0x05]: C0x0029.0x3.0
0x094714…0948a8 [0x06]: C0x002a.0x0.0
0x094714…0948a8 [0x07]: C0x002a.0x1.0
0x094714…0948a8 [0x08]: C0x002a.0x2.0
0x094714…0948a8 ]
0x094714…0948a8 }
0x0948a8…094a3c Dummy {f00=0x0028, f01=0x0190, f02=» D P IDENT PRINT PRINT JOURNAL - VOUCHER L P DDUM DEMODD L L P PDIV P EXPROC DEFDOC P EXPRO
0x094a3c…094bd0 Dummy {f00=0x0028, f01=0x0190, f02=» L P ENTRY PCVCH P ENTRY PVATTP T P ENTRY PWDETP j P ENTRY PXSKIP P ENTRY PZPOSD L P************************************************************************ L P*
0x094bd0…094d64 Dummy {f00=0x0028, f01=0x0190, f02=» * L L P* * L P************************************************************************ PPAJRN PROC PWLNETYP P PLIT PWLNETYP L PPA000
0x094d64…094ef8 Dummy {f00=0x0028, f01=0x0190, f02=»-PRINTER P* P MOVE WW1,=X'8066' 0 P DSC1 SPDSPRT,X'0D',WW1 SET PRINT PARAMETER 4 PPA050 h P MOVE WWINDEX1,PWLNETYP v 2 P IB WWINDEX1,PA100,PA200,PA300,PA400,PA500, C L P PA600,PA700,PA800
0x094ef8…09508c Dummy {f00=0x0028, f01=0x0190, f02=» * l L P* * , L PPA100 | P MOVE SPBINW4,=W'43' . P PERF ZMRDF,SPBINW4,KW1 READ INT
0x09508c…095220 Dummy {f00=0x0028, f01=0x0190, f02=» * L P* PRINT LINE TYPE 2: ACCOUNT NUMBER 1 * J L P* * L PPA200
0x095220…0953b4 (1, 188) Dummy {f00=0x0028, f01=0x0190, f02=»90 L P* * J L P* PRINT LINE TYPE 3: END OF FUNCTION * L P*
0x0953b4…095548 Dummy {f00=0x0028, f01=0x0190, f02=»ME VCTIME L P MOVE NDTIME,VCTIME J L P DIV NDTIME,=D'100' GET RID OF SECONDS P MOVE SPBINW4,=W'44' . P P
0x095548…0956dc Dummy {f00=0x0028, f01=0x0190, f02=»SKIP,SPDSPRT L P B PA990 L P* * d L P* PRINT LINE TYPE 4: AMOUNT * L P*
0x0956dc…095870 Dummy {f00=0x0028, f01=0x0190, f02=» T T P EDWRT SPDSPRT,PRT004 L P B PA990 l L P* *
0x095870…095a04 Dummy {f00=0x0028, f01=0x0190, f02=» * L PPA500 P EDWRT SPDSPRT,PRT005 l L P B PA990 L P*
0x095a04…095b98 Dummy {f00=0x0028, f01=0x0190, f02=» * z L PPA600 : " P EDWRT SPDSPRT,PRT006 L P B PA990 L P*
0x095b98…095d2c Dummy {f00=0x0028, f01=0x0190, f02=» * P L P* * L PPA700 ` L P EDWRT SPDSPRT,PRT007 L P B PA990
0x095d2c…095ec0 Dummy {f00=0x0028, f01=0x0190, f02=» * P L P* PRINT LINE TYPE 8: ACCOUNT NUMBER 2 * L P* * ` L PPA800 T P EDWRT S
0x095ec0…096054 (1, 189) Dummy {f00=0x0029, f01=0x0190, f02=» X L PPA990 P* h 4 P* FOR A GTP AR A TEP, A LINE FEED MUST BE GIVEN r P* * P CBNE RDPRTTYP,=D'6',PA999 SKIP ALWAYS P PERF PXSKIP,SPDSPRT PPA999
0x096054…0961e8 Dummy {f00=0x0029, f01=0x0190, f02=» L P************************************************************************ L P* * l L P* PRINT VOUCHER *
0x0961e8…09637c Dummy {f00=0x0029, f01=0x0190, f02=»******************** L PPCVCH PROC PWVCHTYP P PLIT PWVCHTYP l L PPC000 ( P TBT SBFT80,PC9999 NO VOUCHER ONFT80 ( P PERF PVAT
0x09637c…096510 Dummy {f00=0x0029, f01=0x0190, f02=»ER' b $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,PC900 4 P CBE RDPRTTYP,=D'3',PC001 P P CBNE RDPRTTYP,=D'0',PC050 r P* P* 6371-PRINTER CONTROL P* PPC001 P MOVE WW1,=W'18' . P MOVE VCDOCPAR,=C'1010313801
0x096510…0966a4 Dummy {f00=0x0029, f01=0x018e, f02=»HPRT,X'0D',WW1 PPC050 P MOVE WWINDEX1,PWVCHTYP $ " P IB WWINDEX1,PC100,PC200,PC300 D P* j P* PRINT DEPOSIT VOUCHER t P* L PPC100 $ P MOVE NDNEWLNE,=D'32' FIRS
0x0966a4…096838 Dummy {f00=0x0029, f01=0x0190, f02=» P* L PPC200 L P* * ^ L P* POSITION VOUCHER AT START LINE * L P*
0x096838…0969cc Dummy {f00=0x0029, f01=0x0190, f02=» L P MOVE ICTEXT2,YCTEXT L P PERF PZPOSD,NDNEWLNE L P EDWRT DSVCHPRT,PRT010 DEMO TEXT $
0x0969cc…096b60 Dummy {f00=0x0029, f01=0x0190, f02=» ` $ P SUB NDNEWLNE,=D'4' SKIP 2 LINES L P MOVE ICTEXT2,ACNAME H * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT005 NAME
0x096b60…096cf4 (1, 190) Dummy {f00=0x0029, f01=0x0190, f02=» * $ P* CHANGE TABULATION FOR DEPOSIT N L P* * v L P CLEAR SBFIL20
0x096cf4…096e88 Dummy {f00=0x0029, f01=0x0190, f02=» f L P MOVE ICTEXT2,ACADDRES & * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER v L P EDWRT DSVCHPRT,PRT005 ADDRESS P CBE WWINDEX1,=W'1',
0x096e88…09701c Dummy {f00=0x0029, f01=0x0190, f02=» ` L P MOVE ICTEXT2,ACTOWN * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER p L P EDWRT DSVCHPRT,PRT005 TOWN L P*
0x09701c…0971b0 Dummy {f00=0x0029, f01=0x0190, f02=» * P CLEAR SBFIL20 N P CLEAR SBFIL24 d P MOVE NDNEWLNE,=D'14' z P MOVE ICTEXT3,YCCCY(KW4) * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT007 AMOUNT
0x0971b0…097344 Dummy {f00=0x0029, f01=0x0190, f02=» ^ L P MOVE NDTIME,VCTIME L P DIV NDTIME,=D'100' GET RID OF SECONDS n * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER & P EDWRT DSVCHPRT,PRT011 PRINT
0x097344…0974d8 Dummy {f00=0x0029, f01=0x0190, f02=»R p P* L PPC300 R P MOVE NDNEWLNE,=D'44' d L P GETTIME VCTIME L
0x0974d8…09766c Dummy {f00=0x0029, f01=0x0190, f02=» Z * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT011 CODE LINE H R P MOVE NDNEWLNE,=D'34' R P PERF PZPOSD,NDNEWLNE POSI
0x09766c…097800 Dummy {f00=0x0029, f01=0x0190, f02=» L P B PC900 L PPC900 T L P DSC0 DSVCHPRT,1 RELEASE VOUCHER L PPC999
0x097800…097994 (1, 191) Dummy {f00=0x0029, f01=0x0190, f02=» P CLEAR SBFIL24 P CLEAR SBVCH L P RET . L P PEND ~ L P**********************************************************
0x097994…097b28 Dummy {f00=0x0029, f01=0x018e, f02=»************************** b PPVATTP PROC DATASET " P PDSET DATASET > PPV000 T 2 P MOVE WW1,=W'100' TIME OUT VALUE (IN 0.1 SEC) b * P DSC1 DATASET,X'0E',WW1 ATTACH PRINTER P BNOK PV000 RETRY PPV999 P RET P PEND L P
0x097b28…097cbc Dummy {f00=0x0029, f01=0x0190, f02=» L P************************************************************************ PPWDETP PROC DATASET X P PDSET DATASET t PPW000 * P DSC1 DATASET,X'0F',KW0 DETACH PRINTER PPW999 P RET P PEND L P**************************
0x097cbc…097e50 Dummy {f00=0x0029, f01=0x0190, f02=»**************************************************************** PPXSKIP PROC DATASET ! H P PDSET DATASET ! d PPX000 ! z P EDWRT DATASET,PRT111 ! PPX999 ! P RET ! P PEND ! L P**********************************************************
0x097e50…097fe4 Dummy {f00=0x0029, f01=0x0190, f02=» FTEXT ' ' ! L P FMEND " L P************************************************************************ " b P* " 8 P* POSITION DOCUMENT ON THE LINE-STEP GIVEN BY XDLINE " L P* NUMBERING S
0x097fe4…098178 Dummy {f00=0x0029, f01=0x0190, f02=» " H L P********************************************************************** * # PPZPOSD PROC XDLINE # X P PBCD XDLINE # r L PPZ000 # P MOVE WDEC1,XDLINE # P CBE RDPRTTYP,=D'2',PZ99
0x098178…09830c Dummy {f00=0x0029, f01=0x0190, f02=» THE TOP OF THE VOUCHER AND IS # v @ P* IN THE RANGE [0,30], FURTHERMORE THE CONTROL CHARACTER IN $ & , P* THE PRINT FORMAT MUST BE COMPENSATED. $ j 2 P* SO SET DSC1-PARAMETER TO (30 - (XDLINE/2) ) $ P* $ P DIV WDEC1,=D'2' $ P MUL WDEC1,=D'-1' $
0x09830c…0984a0 Dummy {f00=0x0029, f01=0x018e, f02=»ARACTER $ ^ " P* INCLUDED IN THE PRINT FORMAT % P* % 6 PPZ100 % @ P ADD WDEC1,=D'1' % N P* % f P* POSITION DOCUMENT % p P* % PPZ500 % N P DSC1 DSVCHPRT,6,WDEC1 % L PPZ999
0x0984a0…098634 (1, 192) Dummy {f00=0x0029, f01=0x0190, f02=» % F L P PEND & L P************************************************************************ & X P* & D P* PRINT, LINE TYPE 2 * & L P*
0x098634…0987c8 Dummy {f00=0x0029, f01=0x0190, f02=»** & J L PPRT002 FRMT ' R P FTEXT ' ' ' Z T P FBT SBVCH,P02010 ' T P
0x0987c8…09895c Dummy {f00=0x0029, f01=0x0190, f02=» ' ` T PP02010 ( T P FTAB 5 ( x L P FMEL '999999',IDACTNR1
0x09895c…098af0 Dummy {f00=0x0029, f01=0x0190, f02=» ( p L P FTEXT '(R)' ) 8 L PP02100 ) T P FTAB 16
0x098af0…098c84 Dummy {f00=0x0029, f01=0x0190, f02=» P FBT SBFIL24,P02600 * P FBT SBFIL20,P02700 * P FILLR ' ',2 * < P FB P02999 * P PP02600 * b P FILLR ' ',4 * p PP02700 * P FILLR ' ',20 * PP02999 * L P FMEND * L P**
0x098c84…098e18 Dummy {f00=0x0029, f01=0x0190, f02=»************************************************************************ * L PPRT004 FRMT + P L P FTEXT ' ' + T P FBT SBVCH,P04010
0x098e18…098fac Dummy {f00=0x0029, f01=0x0190, f02=» + H L P FMEL 'Z',RDSHRPRT , T PP04010 , ` T P FTAB 5
0x098fac…099140 Dummy {f00=0x0029, f01=0x0190, f02=»99-',TDAMOUNT , ~ P FILLR ' ',4 - > L P FMEND - R L P************************************************************************ - P* - P* PRINT, LI
0x099140…0992d4 (1, 193) Dummy {f00=0x002a, f01=0x0190, f02=»TEXT ' ' - T P FBT SBVCH,P05010 . T P FTAB 3 . j P FMEL 'Z',RDSHRPRT . T PP05010
0x0992d4…099468 Dummy {f00=0x002a, f01=0x0190, f02=» . j T P FBT SBFIL20,P05700 / 2 P FILLR ' ',2 / L P FB P05999 / T PP05600
0x099468…0995fc Dummy {f00=0x002a, f01=0x018e, f02=» / Z P FILLR ' ',20 0 " PP05999 0 8 P FMEND 0 F J P********************************************************************** 0 T P* 0 4 P* PRINT, LINE TYPE 6: BUYING OR SELLING RATES 0 P* 0 J P**************************
0x0995fc…099790 Dummy {f00=0x002a, f01=0x0190, f02=» P FTAB 3 1 P FMEL 'Z',RDSHRPRT 1 PP06010 1 @ P FTAB 5 1 N & P FMEL 'ZZVZZ9,99',IDAMT1 1 f P FTAB 16 1 & P FMEL 'ZZVZZZ,ZZ',IDAMT2 1 P FILLR ' ',2 1 P FMEND 1 L P**********
0x099790…099924 Dummy {f00=0x002a, f01=0x0190, f02=» * 1 N < P* PRINT, LINE TYPE 7: AMOUNT PRECEDED BY AN ASTERISK (*) 2 L P* * 2 N L P************************************************************************ 2 L PPRT007 FRMT
0x099924…099ab8 Dummy {f00=0x002a, f01=0x0190, f02=» T P FBT SBVCH,P07010 3 T P FTAB 3 3 L P FMEL 'Z',RDSHRPRT 3 T PP070
0x099ab8…099c4c Dummy {f00=0x002a, f01=0x0190, f02=» 3 P FCOPY ICTEXT3 4 $ T P FTAB 9 4 : $ P FMEL 'F*ZVZZZVZZ9,99-',TDAMOUNT 4 P FILLR ' ',4 4 P FBT SBFIL24,P07600 4 P FBT SBFIL20,P07700 4 P F
0x099c4c…099de0 Dummy {f00=0x002a, f01=0x0190, f02=» 4 l L P************************************************************************ 5 , P* 5 | 4 P* PRINT, LINE TYPE 8: SPECIFICATION OF ACCOUNT 2 5 P* 5 L P****************************************************************
0x099de0…099f74 (1, 194) Dummy {f00=0x002a, f01=0x0190, f02=» 5 h T P FBT SBVCH,P08010 6 ( T P FTAB 3 6 L P FMEL 'Z',RDSHRPRT
0x099f74…09a108 Dummy {f00=0x002a, f01=0x0190, f02=» 6 L P FBF SBRVS,P08100 7 H T P FTAB 12 7 L P FTEXT '(R)'
0x09a108…09a29c Dummy {f00=0x002a, f01=0x0190, f02=» FTAB 16 7 L P FMEL '999',UDTRSCDE 8 X T P FTAB 21 8 L P FMEL '9
0x09a29c…09a430 Dummy {f00=0x002a, f01=0x0190, f02=» 8 P L P************************************************************************ 9 L P* * 9 ` : P* PRINT, LINE TYPE 10: TEXT ON VOUCHER, 25 CHAR. LONG 9 L P*
0x09a430…09a5c4 Dummy {f00=0x002a, f01=0x0190, f02=»T010 FRMT 9 P FTEXT ' ' : P FTAB 5 : & P FCOPY ICTEXT2 : 6 P FTAB 30 : L P FILLR ' ',15 : P FMEND : r L P************************************************************************ : L P*
0x09a5c4…09a758 Dummy {f00=0x002a, f01=0x0190, f02=» * : p L P********************************************************************** * ; 0 PPRT011 FRMT ; L P FTEXT ' ' ; L P FMEL '99E-99E-99',NDDATE
0x09a758…09a8ec Dummy {f00=0x002a, f01=0x0190, f02=»9',NDTIME ; L P FILLR ' ',2 < D L P FMEL '999999',TDTRSSEQ < L P FILLR ' ',2
0x09a8ec…09aa80 Dummy {f00=0x002a, f01=0x0190, f02=» < L P FMEL '999',NDTRMNR = D L P FILLR ' ',5 = L P FMEND
0x09aa80…09ac14 (1, 195) Dummy {f00=0x002a, f01=0x0190, f02=» * = L P* LINE TYPE 12: CURRENCY EXCHANGE LINE * > D L P* * > L P************************************
0x09ac14…09ada8 Dummy {f00=0x002a, f01=0x0190, f02=» > L P FTAB 3 ? D L P FBF SBCCYIN,P12100 ? L P* CURRENCY BUYING, AMOUNT IN FOREIGN
0x09ada8…09af3c Dummy {f00=0x002a, f01=0x0190, f02=» ? L P FTAB 23 @ D L P FCOPY CCCCYCDE @ L P FTAB 27
0x09af3c…09b0d0 Dummy {f00=0x002a, f01=0x0190, f02=»,P12400 @ L P* CURRENCY SELLING, AMOUNT IN FOREIGN CURRENCY * A D L P FMEL 'ZZZZZZZZ9,99-',IDAMT2 A L PP12400
0x09b0d0…09b264 Dummy {f00=0x002a, f01=0x0190, f02=»,99-',IDNR3 EXCHANGE RATE ACTUALLY USED A L P FTAB 55 B D L P FMEL 'ZZZZZ9,99-',IDAMT1 AMOUNT IN SYSTEM CURRENCY B L P FMEND
0x09b264…09b3f8 Dummy {f00=0x002a, f01=0x4048, f02=» B @ C DB 55 B D L P FMEL 'ZZZZZ9,99-',IDAMT1 AMOUNT IN SYSTEM CURRENCY B L P FMEND
0x09b3f8…09b58c Dummy {f00=0x002a, f01=0x2008, f02=» D x L P FMEL '999',ADTRSCDE 8 L P FMEND L P************************************************
0x09b58c…09b720 Dummy {f00=0x002a, f01=0x0190, f02=» 4 MULTIPLEX CHANNEL PKB:DIX EQU 6 KEYBOARD/CTW ( PIT:DIX EQU 8 INTERTASK COMMUNICATION > PDK:DIX EQU 10 DISC j P* P EJECT TOSSIO P* P* P********************* P* ECB DISPLACEMENTS * P******************
0x09b720…09b8b4 (1, 196) Opaque[0x194]
0x09b8b4…09ba48 # DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x8820, f01=0x803a, f02=0x0558, f03=0x0058}
0x09b8b4…09ba48 IdxSect {
0x09b8b4…09ba48 f00 = 0x002a // 0x9b8b4 @0x0
0x09b8b4…09ba48 f01 = 0x0008 // 0x9b8b6 @0x2
0x09b8b4…09ba48 gno = [ // 0x9b8b8 @0x4
0x09b8b4…09ba48 [0x00]: C0x002a.0x3.0
0x09b8b4…09ba48 [0x01]: C0x002b.0x0.0
0x09b8b4…09ba48 [0x02]: C0x002b.0x1.0
0x09b8b4…09ba48 [0x03]: C0x002b.0x2.0
0x09b8b4…09ba48 ]
0x09b8b4…09ba48 }
0x09ba48…09bbdc Dummy {f00=0x002a, f01=0x0190, f02=» 4 P IDENT DLDEP DEPOSIT L P DDUM DEMODD < L P PDIV P P EXPROC PAJRN
0x09bbdc…09bd70 Dummy {f00=0x002a, f01=0x0190, f02=»H P P EXPROC QENTRS H P P EXPROC XBFMT P EXPROC ZCRDD P E
0x09bd70…09bf04 Dummy {f00=0x002a, f01=0x0190, f02=» P ENTRY SPAP11 P ENTRY SPAP12 L P************************************************************************ 4 P* P* DEPOSIT L P* * L P************************
0x09bf04…09c098 Dummy {f00=0x002a, f01=0x0190, f02=»DL000 L P TBT SBNOBOOK,DL100 P * P TBF SBFT80,DL010 NO COMPACT TERMINAL P SET SBNOBOOK P B DL100 PDL010 L P*
0x09c098…09c22c Dummy {f00=0x002a, f01=0x0190, f02=» * R L P* * L P MOVE TDTRSCDE,=D'1' b L P B DL200 L P*
0x09c22c…09c3c0 Dummy {f00=0x002a, f01=0x0190, f02=» * R L P* * L PDL100 b L P MOVE TDTRSCDE,=D'7' L P*
0x09c3c0…09c554 (1, 197) Dummy {f00=0x002b, f01=0x0190, f02=» * R L P* * L PDL200 b J P PERF PAJRN,=W'2' N P MOVE TD
0x09c554…09c6e8 Dummy {f00=0x002b, f01=0x0190, f02=» R L P TBT SBCANCEL,DL999 L P* * b L P* PRINT LINE TYPE 7 * L P*
0x09c6e8…09c87c Dummy {f00=0x002b, f01=0x0190, f02=» PERF PAJRN,=W'7' L P* * L L P* FILL TRANSACTION RECORD * L P* GET NEXT TRANSACTION-RE
0x09c87c…09ca10 Dummy {f00=0x002b, f01=0x0190, f02=»F QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR . P MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR. 4 , P ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY f 4 P ADD YDLASSEQ,=D'1' UPDATE LAST TRANS. SEQ. NR. L P MOVE TDTRSSEQ,YDLASSEQ MOVE TO TRANS. RECORD
0x09ca10…09cba4 Dummy {f00=0x002b, f01=0x0190, f02=» p L P MUL TDAMOUNT,=D'-1' REVERSAL 0 L PDL300 L P*
0x09cba4…09cd38 Dummy {f00=0x002b, f01=0x0190, f02=» * p $ P MOVE ADBAL,TDNEWBAL NEW BALANCE 0 L P ADD ADDEPCUM,TDAMOUNT ACCUMULATED DEPOSITS X L P MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQUENCE NR. L P*
0x09cd38…09cecc Dummy {f00=0x002b, f01=0x0190, f02=» H L P* * L P PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD X L P TBT SBCANCEL,DL999 0 P PERF ZDRWRD,ADA
0x09cecc…09d060 Dummy {f00=0x002b, f01=0x0190, f02=» H L P* UPDATE OPERATOR ACCUMULATORS * L P* * X PDL400 L P ADD ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH L P A
0x09d060…09d1f4 (1, 198) Dummy {f00=0x002b, f01=0x018e, f02=» * V L P* PRINT VOUCHER OR BOOK * 0 P* IF A TELLER TERMINAL PRINTER IS AVAILABLE f L P* * P CBE RDPRTTYP,=D'2',DL999
0x09d1f4…09d388 Dummy {f00=0x002b, f01=0x0190, f02=» F L P TBT SBCHQACT,DL600 L P* * X L P* SAVINGS ACCOUNT WITH BOOK * L P*
0x09d388…09d51c Dummy {f00=0x002b, f01=0x0190, f02=»ANCEL,DL999 P PERF PBBOOK PRINT IN BOOK P B DL999 6 L P* * F L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * L P*
0x09d51c…09d6b0 Dummy {f00=0x002b, f01=0x0190, f02=» D L P* * P* CANCEL AND NORMAL EXIT Z L P* * z L PDL999
0x09d6b0…09d844 Dummy {f00=0x002b, f01=0x0190, f02=» j L P************************************************************************ * L P* * z T P* CHECK BOOK BALANCE ENTERED (DLDEP + DMWDR)
0x09d844…09d9d8 Dummy {f00=0x002b, f01=0x0190, f02=»****************************************** r PSPAP10 PROC XWRET 2 P PBIN XWRET L L PS10000 ` P MUL ADLIMBOK,=D'1' ( P MUL IDAMT1,=D'1' TRICK FOR COMPARE N P CBE ADLIMBOK,ID
0x09d9d8…09db6c Dummy {f00=0x002b, f01=0x0190, f02=» * J L P* ERROR: INVALID COMPARISON * L P* * Z L P MOVE SPBINW4,=W'20' & P MOVE XWRET,=W
0x09db6c…09dd00 Dummy {f00=0x002b, f01=0x0190, f02=»**** L L P* * T P* CHECK LINE NUMBER ENTERED (DLDEP + DMWDR) * L P* * L P****
0x09dd00…09de94 (1, 199) Dummy {f00=0x002b, f01=0x0190, f02=» $ P MUL ADLNENR,=D'1' CMPARE TRICK B P MUL IDNR1,=D'1' j N P CBE ADLNENR,IDNR1,S11999 CHECK OKE L P*
0x09de94…09e028 Dummy {f00=0x002b, f01=0x0190, f02=» * t L P MOVE SPBINW4,=W'20' 4 & P MOVE XWRET,=W'1' INDICATE ERROR1 PS11999 P RET P PEND L P**************************************************
0x09e028…09e1bc Dummy {f00=0x002b, f01=0x0190, f02=» * L P************************************************************************ @ PSPAP12 PROC XWRET P PBIN XWRET L PS12000
0x09e1bc…09e350 Dummy {f00=0x002b, f01=0x0190, f02=» ` N P MUL TDNEWBAL,=D'-1' REVERSAL L PS12100 r N P ADD TDNEWBAL,ADBAL NEW BALANCE
0x09e350…09e4e4 Dummy {f00=0x002b, f01=0x0190, f02=» * d L P* * $ P CBL RDSCRLNS,=D'4',S12999 t ( P ERASE 0,KW4,KW4 FIRST ERASE LINE 4 ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 PS12999 P RET P
0x09e4e4…09e678 Dummy {f00=0x002b, f01=0x407a, f02=» * f L P END &@ vDSCRLNS,=D'4',S12999 t ( P ERASE 0,KW4,KW4 FIRST ERASE LINE 4 ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 PS12999 P RET P
0x09e678…09e80c Dummy {f00=0x002b, f01=0x2008, f02=» x L P* * 8 L P************************************************************************ L P*
0x09e80c…09e9a0 Dummy {f00=0x002b, f01=0x0190, f02=» W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W nX T }x : ~ {~ : }z : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 A} P.=H_, !11R T$ 0 !LL
0x09e9a0…09eb34 (1, 200) Opaque[0x194]
0x09eb34…09ecc8 # DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0032, f01=0x8347, f02=0x0578, f03=0x80cc}
0x09eb34…09ecc8 IdxSect {
0x09eb34…09ecc8 f00 = 0x002b // 0x9eb34 @0x0
0x09eb34…09ecc8 f01 = 0x0004 // 0x9eb36 @0x2
0x09eb34…09ecc8 gno = [ // 0x9eb38 @0x4
0x09eb34…09ecc8 [0x00]: C0x002b.0x3.0
0x09eb34…09ecc8 [0x01]: C0x002c.0x0.0
0x09eb34…09ecc8 ]
0x09eb34…09ecc8 }
0x09ecc8…09ee5c Dummy {f00=0x002b, f01=0x0190, f02=» > P IDENT QEMOVE DATATRANSP. BUFFER <--> UWB L P* * F L P* CALLING SEQUENCE: CALL QEMOVE,OUTPUT-ITEM,INPUT-ITEM,LENGTH(BYTES) * L P*
0x09ee5c…09eff0 Dummy {f00=0x002b, f01=0x0190, f02=»VA0 L P EXTRN I:RT1 F L PQEMOVE EQU * L P*
0x09eff0…09f184 Dummy {f00=0x002b, f01=0x0190, f02=» * N P CF A14,I:EVA0 GET ADDRES OUTPUT-ITEM F L P LDR A4,A9 A4 <-- PTR1 L P CF A14,I:EVA0 GET ADDRES INPUT-
0x09f184…09f318 Dummy {f00=0x002b, f01=0x0190, f02=»I:EVA0 GET ADDRES OF LENGTH-PARAMETER L P LD A7,0,A9 A7 <-- LENGTH (BYTES) H L P* * L P* COPY CHARACTERS FROM LEFT TO
0x09f318…09f4ac Dummy {f00=0x002b, f01=0x0190, f02=»U * L P LCR A5,A6 GET CHAR INPUT-ITEM H L P SCR A5,A4 STORE CHAR OUTPUT-ITEM L P ADK A4,1 PTR1 + 1
0x09f4ac…09f640 Dummy {f00=0x002b, f01=0x413c, f02=»1 LENGTH - 1 L P RB(G) QE100 JUMP IF NOT ALL COPIED YET H L P ABL I:RT1 L P END
0x09f640…09f7d4 (1, 201) Dummy {f00=0x002c, f01=0x2008, f02=»
0x09f7d4…09f968 Dummy {f00=0x002c, f01=0x0190, f02=»****************** Z L PUIF BLK L P* * j L P************************************************************************ L
0x09f968…09fafc Dummy {f00=0x002c, f01=0x0190, f02=»L * Z L P* * L P************************************************************************ j L PSBSTTO BOOL FALSE START OPERATOR L
0x09fafc…09fc90 Dummy {f00=0x002c, f01=0x0190, f02=» Z L PSBBACT BOOL FALSE BLOCK ACCOUNT ! L PSBDACT BOOL FALSE DEBLOCK ACCOUNT ! j L PSBUACT BOOL FALSE UPDATE ACCOUNT ! L
0x09fc90…09fe24 Dummy {f00=0x002c, f01=0x0190, f02=» ! Z L PSBDSTM BOOL FALSE DAYLY STATEMENTS " L PSBCOPR BOOL FALSE OPERATOR CLOSE " j L PSBCSYS BOOL FALSE SYSTEM CLOSE " L
0x09fe24…09ffb8 Dummy {f00=0x002c, f01=0x0190, f02=» " Z L PSBLACT BOOL FALSE LIST ACCOUNTS # PSBWDR BOOL FALSE # j L PIWINDEX1 BIN # L PIDACTNR1 BCD 12
0x09ffb8…0a014c Dummy {f00=0x002c, f01=0x0190, f02=» # r L PIDAMT2 BCD 12 $ 2 L PIDNR1 BCD 12 $ PIDNR2 BCD 12 $ PICTEXT1 STRG 6 $ PICTEXT2 STRG
0x0a014c…0a02e0 Dummy {f00=0x002c, f01=0x0190, f02=»**************************** $ d PUCY BLK % $ P* % 4 L P************************************************************************ % > L P* * % L P* CURRENCY RECORD
0x0a02e0…0a0474 (1, 202) Opaque[0x194]
0x0a0474…0a0608 # DirEnt {nam=»DMWDR «, typ=»SC«, f00=0xffee, f01=0xa047, f02=0x0588, f03=0x81d7}
0x0a0474…0a0608 IdxSect {
0x0a0474…0a0608 f00 = 0x002c // 0xa0474 @0x0
0x0a0474…0a0608 f01 = 0x0008 // 0xa0476 @0x2
0x0a0474…0a0608 gno = [ // 0xa0478 @0x4
0x0a0474…0a0608 [0x00]: C0x002c.0x1.0
0x0a0474…0a0608 [0x01]: C0x002c.0x2.0
0x0a0474…0a0608 [0x02]: C0x002c.0x3.0
0x0a0474…0a0608 [0x03]: C0x002d.0x0.0
0x0a0474…0a0608 ]
0x0a0474…0a0608 }
0x0a0608…0a079c Dummy {f00=0x002c, f01=0x0190, f02=» 6 P IDENT DMWDR WITHDRAWAL L P DDUM DEMODD > L P PDIV P P EXPROC PAJRN
0x0a079c…0a0930 Dummy {f00=0x002c, f01=0x0190, f02=»VCH P P EXPROC QENTRS J P P EXPROC XBFMT P EXPROC ZCRDD P
0x0a0930…0a0ac4 Dummy {f00=0x002c, f01=0x0190, f02=»MWDR P ENTRY SPAP14 H L P************************************************************************ ^ L P* * L P* WITHDRAW
0x0a0ac4…0a0c58 Dummy {f00=0x002c, f01=0x0190, f02=» * N L P************************************************************************ L PDMWDR PROC ^ L PDM000 P SET SBWDR
0x0a0c58…0a0dec Dummy {f00=0x002c, f01=0x0190, f02=» ` L P B DM200 L PDM100 p L P MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON
0x0a0dec…0a0f80 Dummy {f00=0x002c, f01=0x0190, f02=» * ` L P* PRINT LINE TYPE 2 * L P* * p L P PERF PAJRN,=W'2'
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x002c, f01=0x0190, f02=»ERF XBFMT,=W'70' P B DM220 PDM210 ( L P PERF XBFMT,=W'42' WITHDRAWAL FORMAT 6 PDM220 L P TBT SBCANCEL,DM999 L P*
0x0a1114…0a12a8 Dummy {f00=0x002c, f01=0x0190, f02=» * : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY D H P PERF PAJRN,=W'7' L P*
0x0a12a8…0a143c Dummy {f00=0x002c, f01=0x0190, f02=»EY * n L P* * . 4 P PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR ~ . P MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR. , P ADD TDTRSRNR,ADLASTRS TRANS. RE
0x0a143c…0a15d0 Dummy {f00=0x002c, f01=0x0190, f02=» P P* < P* TDAMOUNT CONTAINS THE AMOUNT KEYED IN BY THE OPERATOR P* Z L P TBF SBRVS,DM250 d L P MUL TDAMOUNT,=D'-1' UPDATE AMOUNT L PDM25
0x0a15d0…0a1764 Dummy {f00=0x002c, f01=0x0190, f02=» T L P*** MOVE TDCHQNR,FCFIELD * L PDM300 d L P* * L P* FI
0x0a1764…0a18f8 Dummy {f00=0x002c, f01=0x0190, f02=» * T L P MOVE ADBAL,TDNEWBAL NEW BALANCE L P ADD ADWDRCUM,TDAMOUNT ACCUMULATED WITHDR. d L P MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQ. NR. L P*
0x0a18f8…0a1a8c Dummy {f00=0x002c, f01=0x0190, f02=» * T L P* * L PDM700 d L P PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD P TBT
0x0a1a8c…0a1c20 Dummy {f00=0x002c, f01=0x0190, f02=» * L P* UPDATE OPERATOR BALANCES * L L P* * PDM750 P* P*
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x002c, f01=0x0190, f02=» B DM780 PDM760 P PERF TNDCAB PAY IF > 0 PDM780 > L P SUB ODCASH(KW1,KW4),TDAMOUNT BALANCE CASH L L P ADD ODCASH(KW2,KW4),TDAMOUNT ACCUMULATED WITHDRAWALS L P TBF SBCHEQUE,DM800
0x0a1db4…0a1f48 Dummy {f00=0x002c, f01=0x0190, f02=» * L P* PRINT VOUCHER OR PASSBOOK * L L P* IF A TERMINAL PRINTER IS AVAILABLE * L P*
0x0a1f48…0a20dc Dummy {f00=0x002c, f01=0x018e, f02=»E PRINTER l L P TBT SBCHQACT,DM820 L P* * b L P* SAVINGS ACCOUNT, PRINT BOOK * L P*
0x0a20dc…0a2270 Dummy {f00=0x002c, f01=0x018e, f02=» P TBT SBCANCEL,DM999 P PERF PBBOOK P B DM999 4 L P* * D L P* CHEQUE ACCOUNT, PRINT VOUCHER(S) * L P*
0x0a2270…0a2404 Dummy {f00=0x002c, f01=0x0190, f02=» L P*** PRINT CHEQUE * PDM850 T R P PERF PCVCH,=W'2' b L PDM999 P
0x0a2404…0a2598 Dummy {f00=0x002c, f01=0x0190, f02=» l L P************************************************************************ , L P* * | F P* CALCULATE NEW BALANCE (FMT042(WITHDRAWAL) AND FMT045(TRANS
0x0a2598…0a272c Dummy {f00=0x002c, f01=0x0190, f02=»****************************** f PSPAP14 PROC XWRET & P PBIN XWRET @ L PS14000 T L P MOVE TDNEWBAL,TDAMOUNT L P TBT SBRVS,S14100
0x0a272c…0a28c0 Dummy {f00=0x002c, f01=0x0190, f02=» D L PS14100 J P ADD TDNEWBAL,ADBAL NEW BALANCE X L P* * & P* REDISPLAY NEXT
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x002d, f01=0x0190, f02=»DSCRLNS,=D'4',S14150 P ERASE 0,KW4,KW4 * P DISPLAY 4,KW4,KW4 DISPLAY NEW BALANCE 4 P B S14150 b PS14125 t P CBL RDSCRLNS,=D'5',S14150 P ERASE 0,KW5,KW5 P DISPLAY 4,KW5,KW5 P* L P* CHECK SUFFICIENT FUNDS
0x0a2a54…0a2be8 Dummy {f00=0x002d, f01=0x0190, f02=»OVE WDEC1,TDNEWBAL L P TBF SBCHQACT,S14200 SAVINGS ACCOUNT N L P* * L P* CHEQUE ACCOUNT
0x0a2be8…0a2d7c Dummy {f00=0x002d, f01=0x0190, f02=»OVE WDEC1,TDNEWBAL L P ADD WDEC1,ADLIMBOK CREDIT LIMIT N L P* * L P* SAVINGS AND CHEQUE ACCOU
0x0a2d7c…0a2f10 Dummy {f00=0x002d, f01=0x0190, f02=»4200 L P CBNL WDEC1,=D'0',S14990 FUNDS ARE SUFFICIENT N L P* * L P* ERROR: INSUFFICIENT FUND
0x0a2f10…0a30a4 Dummy {f00=0x002d, f01=0x0190, f02=»OVE SPBINW4,=W'35' L P MOVE XWRET,=W'1' INDICATE ERROR N L PS14990 L P RET
0x0a30a4…0a3238 Dummy {f00=0x002d, f01=0x40a2, f02=»********************************************************************** L P END N@ 90 L P RET
0x0a3238…0a33cc Dummy {f00=0x002d, f01=0x2008, f02=» x@ 890 8 L P RET L P PEND
0x0a33cc…0a3560 Dummy {f00=0x002d, f01=0x0190, f02=»**** L L P* * L P* DEMONSTRATE VIDEO SCREEN * L P* * L P************
0x0a3560…0a36f4 (1, 206) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x8347, f01=0x0002, f02=0x05a8, f03=0x002c}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x002d // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x0002 // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x002d.0x1.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x002d, f01=0x0190, f02=» 0 P IDENT DCVDU DEMONSTRATE VIDEO L P DDUM DEMODD 8 L P PDIV P P EXPROC XBFMT
0x0a3a1c…0a3bb0 Dummy {f00=0x002d, f01=0x0190, f02=»**************************************************** | L P* * < L P* DEMONSTRATE VIDEO * L P*
0x0a3bb0…0a3d44 Dummy {f00=0x002d, f01=0x0190, f02=» | L PDC000 < L P PERF XBFMT,=W'12' DEMONSTRATE VIDEO L PDC999
0x0a3d44…0a3ed8 Dummy {f00=0x002d, f01=0x40e0, f02=» | L P************************************************************************ < L P END @ 9
0x0a3ed8…0a406c Dummy {f00=0x002d, f01=0x2008, f02=» x L P************************************************************************ 8 L P END @ 9
0x0a406c…0a4200 Dummy {f00=0x002d, f01=0x0190, f02=»,CF990 NO VDU AVAILABLE | L P************************************************************************ < L P* * L P* FOR LIST, A VIDEO SCREEN MUST BE AVAILABLE
0x0a4200…0a4394 (1, 207) Opaque[0x194]
0x0a4394…0a4528 # DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0700, f01=0x8410, f02=0x05b0, f03=0x8128}
0x0a4394…0a4528 IdxSect {
0x0a4394…0a4528 f00 = 0x002d // 0xa4394 @0x0
0x0a4394…0a4528 f01 = 0x000c // 0xa4396 @0x2
0x0a4394…0a4528 gno = [ // 0xa4398 @0x4
0x0a4394…0a4528 [0x00]: C0x002d.0x2.0
0x0a4394…0a4528 [0x01]: C0x002d.0x3.0
0x0a4394…0a4528 [0x02]: C0x002e.0x0.0
0x0a4394…0a4528 [0x03]: C0x002e.0x1.0
0x0a4394…0a4528 [0x04]: C0x002e.0x2.0
0x0a4394…0a4528 [0x05]: C0x002e.0x3.0
0x0a4394…0a4528 ]
0x0a4394…0a4528 }
0x0a4528…0a46bc Dummy {f00=0x002d, f01=0x0190, f02=» * P IDENT DDTP71 DEMONSTRATE 6371-PRINTER L P DDUM DEMODD 2 L P PDIV P P EXPROC PVATTP
0x0a46bc…0a4850 Dummy {f00=0x002d, f01=0x0190, f02=» z P P EXPROC XEERR > P P EXPROC ZMRDF P P EXPROC DEFDOC
0x0a4850…0a49e4 Dummy {f00=0x002d, f01=0x0190, f02=» P L P************************************************************************ L P* * ` L P* DEMONSTRATE THE 6371-PRINTER * L P*
0x0a49e4…0a4b78 Dummy {f00=0x002d, f01=0x0190, f02=»******** P L PDDTP71 PROC L PDD000 ` N P PERF PVATTP,DSVCHPRT ATTACH PRINTER L P*
0x0a4b78…0a4d0c Dummy {f00=0x002d, f01=0x0190, f02=» * R L P* * L P PERF XCLAMP,KW4,KW1 LAMP 4 ON b L P PERF XEERR,=W'64',KW3 L P PERF
0x0a4d0c…0a4ea0 Dummy {f00=0x002d, f01=0x0190, f02=» R L P* * L P* DEFINE THE DOCUMENT * b L P* * P MOVE
0x0a4ea0…0a5034 (1, 208) Dummy {f00=0x002d, f01=0x0190, f02=»VCHPRT,X'00',KW0 P MOVE WW1,=X'8066' P DSC1 DSVCHPRT,X'0D',WW1 2 L P* * R L P* WRITE TITLE LINES * L P*
0x0a5034…0a51c8 Dummy {f00=0x002d, f01=0x0190, f02=» h L P MOVE ICSTRG1,=X'19' START WITH DOUBLE COLUMN & L P PERF PTITLE,=W'10',=D'7',=D'1' v L P PERF PTITLE,=W'13',=D'10',=D'2'
0x0a51c8…0a535c Dummy {f00=0x002d, f01=0x0190, f02=» f L P PERF PTITLE,=W'10',=D'17',=D'3' & L P PERF PTITLE,=W'13',=D'18',=D'5' v L P PERF PTITLE,=W'14',=D'19',=D'6'
0x0a535c…0a54f0 Dummy {f00=0x002d, f01=0x0190, f02=» * f L P* * & L P PERF PUPOSA,=D'26' v " P MOVE WW1,=W'66' FORMAT NUMBER J P PERF ZMRDF,WW1,KW0 READ INT
0x0a54f0…0a5684 Dummy {f00=0x002d, f01=0x0190, f02=»PUPOSA,=D'28' L P CALL FMOVE,FCFORMAT,FMTCSET J L P PERF PSWFMT,=W'19' L P*
0x0a5684…0a5818 Dummy {f00=0x002d, f01=0x0190, f02=» * L P PERF PUPOSA,=D'30' J L P CALL FMOVE,FCFORMAT,FMTNCV L P MOVE ICTEXT2,=C'D,A,L,CH'
0x0a5818…0a59ac Dummy {f00=0x002d, f01=0x0190, f02=»ICTEXT2,=C'GB,NL,B ' L P PERF PSWFMT,=W'1' J L P MOVE ICTEXT2,=C'F,CH,B,L' L P PERF PSWFMT,=W'2'
0x0a59ac…0a5b40 Dummy {f00=0x002d, f01=0x0190, f02=»PSWFMT,=W'3' L P MOVE ICTEXT2,=C'I,CH ' J L P PERF PSWFMT,=W'4' L P MOVE ICTEXT2,=C'S,SF '
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x002e, f01=0x0190, f02=»ICTEXT2,=C'DK,N ' L P PERF PSWFMT,=W'6' J L P MOVE ICTEXT2,=C'P ' L P PERF PSWFMT,=W'7'
0x0a5cd4…0a5e68 Dummy {f00=0x002e, f01=0x0190, f02=»PSWFMT,=W'8' L P MOVE ICTEXT2,=C'YU ' J L P PERF PSWFMT,=W'9' P MOVE ICTEXT2,=C'DK,N (2)'
0x0a5e68…0a5ffc Dummy {f00=0x002e, f01=0x0190, f02=»RS * x L P* * 8 " P MOVE WW1,=W'67' FORMAT NUMBER J P PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT L P PERF PSWFMT
0x0a5ffc…0a6190 Dummy {f00=0x002e, f01=0x0190, f02=» * L L P* WRITE TITLE LINES AGAIN * L P* * " P MOVE WW1,=W'65' FORMAT NUMBER J P PERF ZMRDF,WW1,KW0 READ INTO FCFORMAT
0x0a6190…0a6324 Dummy {f00=0x002e, f01=0x0190, f02=» p L P PERF PTITLE,=W'19',=D'46',=D'3' 0 L P MOVE ICSTRG1,=X'19' START DOUBLE COLUMN AGAIN L P PERF PTITLE,=W'20',=D'50',=D'4'
0x0a6324…0a64b8 Dummy {f00=0x002e, f01=0x0190, f02=» * p L P* RELEASE A4-SHEET AND DETACH PRINTER * 0 L P* * N P DSC0 DSVCHPRT,01 RELEASE DOCUMENT
0x0a64b8…0a664c Dummy {f00=0x002e, f01=0x0190, f02=» t L P RET 4 L P PEND L P****************************************************
0x0a664c…0a67e0 Dummy {f00=0x002e, f01=0x0190, f02=» * t L P* PARAMETERS: * 4 L P* PWPRT: INDEX IN THE PRINTER PARAMETERS-ARRAY * L P* PDPOS: LINE NUMBER WHERE THE LINE MUST BE PR
0x0a67e0…0a6974 (1, 210) Dummy {f00=0x002e, f01=0x0190, f02=» * t L P* THE FORMAT CONTAINED IN FCFORMAT IS PRINTED IN THE LINE GIVEN * 4 L P* BY PDPOS USING THE PRINTER PARAMETERS POINTED TO BY PWPRT AND * L P* AND PRECEDED BY THE NUMBER OF SPACES GIVEN BY
0x0a6974…0a6b08 Dummy {f00=0x002e, f01=0x0190, f02=»******************************************** t " PPTITLE PROC PWPRT,PDPOS,PDFILL 4 P PLIT PWPRT Z P PLIT PDPOS n P PLIT PDFILL L PPT000 L P*
0x0a6b08…0a6c9c Dummy {f00=0x002e, f01=0x0190, f02=» * P MOVE WW2,PWPRT F P MOVE WW1,KCPRTPAR(WW2) ^ N P DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMTERS ~ L P*
0x0a6c9c…0a6e30 Dummy {f00=0x002e, f01=0x0190, f02=» * p L P PERF PUPOSA,PDPOS 0 L P* * L P* WRITE THE LINE
0x0a6e30…0a6fc4 Dummy {f00=0x002e, f01=0x0190, f02=» p 0 P IB WW1,PT001,PT002,PT003,PT004,PT005,PT006 . PPT001 b P SET SBFIL1 p PPT002 P SET SBFIL2 PPT003 P SET SBFIL3 PPT004 P SET SBFIL4 PPT005 P SET SBFIL5
0x0a6fc4…0a7158 Dummy {f00=0x002e, f01=0x0190, f02=» P CLEAR SBFIL3 P CLEAR SBFIL4 P CLEAR SBFIL5 4 L PPT999 J L P RET L P PEND
0x0a7158…0a72ec Dummy {f00=0x002e, f01=0x0190, f02=» * L P* PROCEDURE: PSWFMT * J L P* FUNCTIONAL DESCRIPTION: * L P* WRITE THE FORMAT CONTAI
0x0a72ec…0a7480 Dummy {f00=0x002e, f01=0x0190, f02=» * L P************************************************************************ J L PPSWFMT PROC PWPRT P PLIT PWPRT L PPS000
0x0a7480…0a7614 (1, 211) Dummy {f00=0x002e, f01=0x0190, f02=»HPRT,5,WW1 SEND PRINTER PARAMETERS N P EDWRT DSVCHPRT,FCFORMAT H L PPS999 L P RET
0x0a7614…0a77a8 Dummy {f00=0x002e, f01=0x0190, f02=»****************************************************************** L P* * J L P* PROCEDURE: PUPOSA * L P* FUNCTIONAL DESCRIPTION:
0x0a77a8…0a793c Dummy {f00=0x002e, f01=0x0190, f02=» * L P************************************************************************ J L PPUPOSA PROC PDLINE P PLIT PDLINE L PPU000
0x0a793c…0a7ad0 Dummy {f00=0x002e, f01=0x0190, f02=» L P RET ! F L P PEND ! L P**********************************
0x0a7ad0…0a7c64 Dummy {f00=0x002e, f01=0x0190, f02=» * ! L P* DEMO TP71: AVAILABLE CHARACTER SET * " F L P* * " L P**********************************
0x0a7c64…0a7df8 Dummy {f00=0x002e, f01=0x0190, f02=»' " L P FILLR ' ',15 # F L P FTEXT =X'202122232425262728292A2B2C2D2E2F' # L P FTEXT =X'303132333435363738393A3B
0x0a7df8…0a7f8c Dummy {f00=0x002e, f01=0x0190, f02=» # L P FTEXT ' ' $ F L P FILLR ' ',15 $ L P FTEXT =X'505152535455565758595A5B
0x0a7f8c…0a8120 Dummy {f00=0x002e, f01=0x0190, f02=»707172737475767778797A7B7C7D7E7F' $ L P FMEND % F L P************************************************************************ % L P*
0x0a8120…0a82b4 (1, 212) Dummy {f00=0x002e, f01=0x0190, f02=» * % L P************************************************************************ & F L PFMTNCV FRMT & L P FTEXT ' '
0x0a82b4…0a8448 Dummy {f00=0x002e, f01=0x0190, f02=»EXT2 & L P FTAB 17 ' F L P FTEXT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x0a8448…0a85dc Dummy {f00=0x002e, f01=0x409a, f02=»************************************************************** ' L P END ( F@ ( XT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x0a85dc…0a8770 Dummy {f00=0x002e, f01=0x2008, f02=» ) x L P PEND 8 L P************************************************************************ L P END
0x0a8770…0a8904 Dummy {f00=0x002e, f01=0x018e, f02=»RM,=D'100' TERM NUMBERING P* " 6 P* THE NEXT FORMAT IS INCLUDED IN THE APPLICATION. , > P* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0' f P* IS PASSED TO XBFMT P* * P CALL FMOVE,FCFORMAT,FMTVOL P PER
0x0a8904…0a8a98 Dummy {f00=0x002e, f01=0x0190, f02=» < P PERF ZKOPNF OPEN FORMAT FILE $ P TBT SBCANCEL,CA900 D P CALL FMOVE,FCFORMAT,FMTSYS l . P PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME P TBT SBCANCEL,CA900 ( P MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE :
0x0a8a98…0a8c2c Dummy {f00=0x002e, f01=0x0190, f02=» * R P* P PERF ZAOPND P TBF SBCANCEL,CA999 0 PCA900 L T P PERF ZLCLSF CLOSE FORMATFILE AGAIN Z 4 P MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED PCA999 P RET P PEN
0x0a8c2c…0a8dc0 Dummy {f00=0x002e, f01=0x0190, f02=»* J P********************************************************************* PFMTVOL FRMT X P FSL n 6 P FTEXT 'FORMAT FILE VOLUME NAME ? DSC' . P FKI 31,MINL=1,MAXL=3,NUM,NEOI P FCOPY VCVOLNR2
0x0a8dc0…0a8f54 (1, 213) Opaque[0x194]
0x0a8f54…0a90e8 # DirEnt {nam=»DELACT«, typ=»SC«, f00=0x9320, f01=0x4000, f02=0x05e0, f03=0x0000}
0x0a8f54…0a90e8 IdxSect {
0x0a8f54…0a90e8 f00 = 0x002f // 0xa8f54 @0x0
0x0a8f54…0a90e8 f01 = 0x000a // 0xa8f56 @0x2
0x0a8f54…0a90e8 gno = [ // 0xa8f58 @0x4
0x0a8f54…0a90e8 [0x00]: C0x002f.0x0.0
0x0a8f54…0a90e8 [0x01]: C0x002f.0x1.0
0x0a8f54…0a90e8 [0x02]: C0x002f.0x2.0
0x0a8f54…0a90e8 [0x03]: C0x002f.0x3.0
0x0a8f54…0a90e8 [0x04]: C0x0030.0x0.0
0x0a8f54…0a90e8 ]
0x0a8f54…0a90e8 }
0x0a90e8…0a927c Dummy {f00=0x002f, f01=0x018e, f02=» 0 P IDENT DELACT LIST ACCOUNTS L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x0a927c…0a9410 Dummy {f00=0x002f, f01=0x0190, f02=» B P P EXPROC XAKBIN P P EXPROC XCLAMP P EXPROC XHERAS P P EXPROC ZMRDF
0x0a9410…0a95a4 Dummy {f00=0x002f, f01=0x0190, f02=» z P ENTRY DELACT > L P************************************************************************ T L P* * L P* LIST ACCOUNTS
0x0a95a4…0a9738 Dummy {f00=0x002f, f01=0x0190, f02=» L P************************************************************************ L PDELACT PROC T L PDE000 L P SET SBLACT
0x0a9738…0a98cc Dummy {f00=0x002f, f01=0x0190, f02=»D'30' L P PERF PAJRN,=W'1' PRINT FUNCTION IDENTIFICATION @ L P* * L P* ISSUE AN INITIAL KEYBOARD INPUT (NOWAI
0x0a98cc…0a9a60 Dummy {f00=0x002f, f01=0x0190, f02=»ANSWER GIVEN BY THE OPERATOR * L P* * @ P SET SBNOWAIT P PERF XAKBIN,=W'0' L P* *
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x002f, f01=0x0190, f02=»TED * ` L P* IDNR1 WILL CONTAIN THE INCREMENT USED TO GET THE * L P* NEXT ACCOUNT NUMBER (INITIALLY 1) * p L P* *
0x0a9bf4…0a9d88 Dummy {f00=0x002f, f01=0x0190, f02=» ` L P MOVE IDNR1,=D'1' L P MOVE WW1,=W'55' p L P PERF ZMRDF,WW1,KW0 READ FORMAT INTO FCFORMAT
0x0a9d88…0a9f1c Dummy {f00=0x002f, f01=0x0190, f02=» * ` L P* GET THE NEXT ACCOUNT TO BE DISPLAYED * L P* * p L PDE200
0x0a9f1c…0aa0b0 Dummy {f00=0x002f, f01=0x0190, f02=»RD INPUT * ` L P* * L P TESTIO SPDSDYKB p L P BNOK DE400
0x0aa0b0…0aa244 Dummy {f00=0x002f, f01=0x0190, f02=» * ` L P* * P* p 4 P* IF I/O WAS UNSUCCESSFULL ISSUE A NEW KI-NOWAIT z P* P WAIT SPDSDYKB P BNOK DE350 & P PERF QAFNKY,SPBINW2,KW0,KWAPLKTB
0x0aa244…0aa3d8 Dummy {f00=0x002f, f01=0x0190, f02=» b L P CBNE SPBINW2,KWEND,DE350 INVALID ANSWER, GO ON " L P* STOP HAS BEEN DEPRESSED * r L PDE340
0x0aa3d8…0aa56c Dummy {f00=0x002f, f01=0x0190, f02=» b L P CBE SPBINW2,KWCONT,DE900 CONTINUE $ L P CBNE SPBINW2,KWSTART,DE340 INVALID ANSWER, ASK AGAIN t L P* START HAS BEEN DEPRESSED
0x0aa56c…0aa700 Dummy {f00=0x002f, f01=0x0190, f02=» L P* * L P* CALCULATE NEXT ACCOUNT NUMBER * T L P* * L PDE400
0x0aa700…0aa894 (1, 215) Dummy {f00=0x002f, f01=0x0190, f02=» L PDE440 L P* SET SBCHQACT ACCORDING TO THE ACCOUNT TYPE * T L P PERF QGATYP,IDACTNR1 L P TBT SBCHQACT,DE450
0x0aa894…0aaa28 Dummy {f00=0x002f, f01=0x0190, f02=» L P CBNG IDACTNR1,YDLASSAV,DE600 VALID ACCOUNT NUMBER L P B DE460 T L P* CHEQUE ACCOUNT * L PDE450
0x0aaa28…0aabbc Dummy {f00=0x002f, f01=0x0190, f02=» L P* * L P* ACCOUNT NUMBER IS NOT VALID * T L P* IF INCREMENT IS ALREADY 2, THEN RESTART LISTING * L P* OTHERWISE TRY THE
0x0aabbc…0aad50 Dummy {f00=0x002f, f01=0x0190, f02=» L PDE460 L P CBE IDNR1,=D'2',DE100 T L P ADD IDACTNR1,IDNR1 L P* DON'T TRY THIS ACC
0x0aad50…0aaee4 Dummy {f00=0x002f, f01=0x0190, f02=» L P B DE440 L P* * T L P* THE ACCOUNT NUMBER IS A VALID ONE * L P* NOW READ THE ACCOU
0x0aaee4…0ab078 Dummy {f00=0x002f, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x0ab078…0ab20c Dummy {f00=0x002f, f01=0x0190, f02=» L P* GET SYMBOLIC KEY * N P XCOPY FCBUFFER,KW0,WW2,ADACTRNR,KW0 T ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P BNOK DE800 READ FAILED, NEXT
0x0ab20c…0ab3a0 Dummy {f00=0x002f, f01=0x0190, f02=». LENGTH IN NWRECLNG r L P CALL QEMOVE,ADACTRNR,FCBUFFER,NWRECLNG 2 L P CBG ADSTATUS,=D'1',DE800 ACCOUNT CLOSED L P*
0x0ab3a0…0ab534 (1, 216) Dummy {f00=0x002f, f01=0x0190, f02=» * r L PDE700 2 L P EDWRT SPDSSCRN,FMTLACT ACCOUNT LINE L PDE800
0x0ab534…0ab6c8 Dummy {f00=0x002f, f01=0x0190, f02=»'1' P MOVE TDTRSSEQ,YDLASSEQ P B DE999 , P* < P* CANCEL EXIT F P* ^ PDE980 h P SET SBCANCEL v PDE999 L P CLEAR SBLACT L P RET
0x0ab6c8…0ab85c Dummy {f00=0x002f, f01=0x0190, f02=»****************************************************************** L P* * J L P* LIST ACCOUNTS, ACCOUNT LINE (DELACT) * L P*
0x0ab85c…0ab9f0 Dummy {f00=0x002f, f01=0x0190, f02=»T FRMT L P FNL L L P FMEL '999999',IDACTNR1 L P FTAB 8
0x0ab9f0…0abb84 Dummy {f00=0x002f, f01=0x0190, f02=»B 13 L P FCOPY ACNAME L L P FTAB 34 L P FMEL 'ZZZVZZZVZZ9,99',ADDEP
0x0abb84…0abd18 Dummy {f00=0x002f, f01=0x0190, f02=»L 'ZZZVZZZVZZ9,99',ADWDRCUM L P FTAB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x0abd18…0abeac Dummy {f00=0x002f, f01=0x4050, f02=» @ LB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x0abeac…0ac040 Dummy {f00=0x002f, f01=0x2008, f02=» # x L P************************************************************************ $ 8 L P END $ @ $ E TDAMOUNT,ODCASH(KW1,IWINDEX1)
0x0ac040…0ac1d4 (1, 217) Dummy {f00=0x0030, f01=0x0190, f02=»9^Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T
0x0ac1d4…0ac368 Dummy {f00=0x0030, f01=0x0190, f02=» W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b ;. P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q :|
0x0ac368…0ac4fc Dummy {f00=0x0030, f01=0x0190, f02=» & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V )
0x0ac4fc…0ac690 Dummy {f00=0x0030, f01=0x0190, f02=» [ [ [ $ [ [ >h [ [ ?`9 ?`9 ?`7 Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P ?`7 V H )_ ?`= _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [
0x0ac690…0ac824 Dummy {f00=0x0030, f01=0x0190, f02=»V T W V E + : V & [ [ [ [ $ [ [ &! P ?6 ?`9 ?`9 ?`7 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z ?`9^ Q ?`= P _ T { [ ?`?B [ Q@ [ ?`7
0x0ac824…0ac9b8 Dummy {f00=0x0030, f01=0x0190, f02=» Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 DXH^HtK DZK HjI DVA B$A A DTD DBD>A A A @ A C C B A DTA @& 6 @ K K
0x0ac9b8…0acb4c Dummy {f00=0x0030, f01=0x0190, f02=» "? H? " K :e J J " J _Z Z AL [ Z P .h [ V 7_ Z Ar @ ! P .h Z 7 Z Z P .h : V R (Q V : : ? J P v I < : J Qx :
0x0acb4c…0acce0 Dummy {f00=0x0030, f01=0x0190, f02=»V : 1 : + I [ [ < !AAP !TTT W !**T * [ R !FFP !EET W IC 6 * B Z 9 ! ; *Xt 8 ! DC 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 B !00T ; B _ 9P F " X6# ; W )0_: J
0x0acce0…0ace74 (1, 218) Opaque[0x194]
0x0ace74…0ad008 # DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x874c, f01=0x0004, f02=0x0608, f03=0x8a20}
0x0ace74…0ad008 IdxSect {
0x0ace74…0ad008 f00 = 0x0030 // 0xace74 @0x0
0x0ace74…0ad008 f01 = 0x0004 // 0xace76 @0x2
0x0ace74…0ad008 gno = [ // 0xace78 @0x4
0x0ace74…0ad008 [0x00]: C0x0030.0x1.0
0x0ace74…0ad008 [0x01]: C0x0030.0x2.0
0x0ace74…0ad008 ]
0x0ace74…0ad008 }
0x0ad008…0ad19c Dummy {f00=0x0030, f01=0x0190, f02=» L P EDWRT SPDSSCRN,FMTPIC L P************************************************************************ T L P* * L P* DUMMY FORMAT TO IN
0x0ad19c…0ad330 Dummy {f00=0x0030, f01=0x0190, f02=» L P************************************************************************ L PFMTPIC FRMT T L P FSL L P FMEL '9',IDNR1
0x0ad330…0ad4c4 Dummy {f00=0x0030, f01=0x0190, f02=» L P FMEL '999',IDNR1 L P FMEL '9999',IDNR1 T L P FMEL '99999',IDNR1 L P FMEL '999999',IDNR1
0x0ad4c4…0ad658 Dummy {f00=0x0030, f01=0x0190, f02=»1 L P FMEL 'ZZ',IDNR1 B P FMEL 'ZZZ',IDNR1 P FMEL 'ZZZZ',IDNR1 L P FMEL 'ZZZZZ',IDNR1
0x0ad658…0ad7ec Dummy {f00=0x0030, f01=0x0190, f02=» f P FMEL 'Z9,99',IDNR1 & L P FMEL 'ZZZZ9',IDNR1 B L P FMEL 'ZZZ9,99',IDNR1 L P FMEL 'ZZZ9,99-',IDNR1
0x0ad7ec…0ad980 Dummy {f00=0x0030, f01=0x0190, f02=» n P FMEL 'ZZZZ9,99-',IDNR1 . L P FMEL 'ZZZZZ9,99',IDNR1 N P FMEL 'ZZZZZ9,99-',IDNR1 P FMEL 'ZZZZZZ,ZZ',IDNR1 L P FMEL 'ZZZZZZZZ9,99',IDNR1
0x0ad980…0adb14 (1, 219) Dummy {f00=0x0030, f01=0x0190, f02=»Z',IDNR1 ~ P FMEL 'ZZZZZZZZZ,ZZ-',IDNR1 L P FMEL '99E:99',IDNR1 4 P FMEL 'ZZE:ZZ',IDNR1 & P FMEL 'ZZVZZ9,99',IDNR1 & P FMEL 'ZZVZZZ,ZZ',IDNR1 L P FMEL '99E-99E-99',I
0x0adb14…0adca8 Dummy {f00=0x0030, f01=0x4134, f02=»ZZVZZZVZZ9,99',IDNR1 P FMEL 'ZZZVZZZVZZZ,ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1 @ L P FMEND L P****************************************
0x0adca8…0ade3c Dummy {f00=0x0030, f01=0x2008, f02=» **************************************** x L P END 8@ L 'ZZE:ZZE:ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1
0x0ade3c…0adfd0 Dummy {f00=0x0030, f01=0x0190, f02=» * F0 0 0 !0 "0 $ % *
0x0adfd0…0ae164 Dummy {f00=0x0030, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0 0 0 0 !0 '0 -0
0x0ae164…0ae2f8 Dummy {f00=0x0030, f01=0x0190, f02=»0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D D D U U f D f > *
0x0ae2f8…0ae48c Dummy {f00=0x0030, f01=0x0190, f02=» 7 ( ] D E X`j DEX D' W_j D W D*j D DF0 DP 1 A A24 0 4 1 4 f
0x0ae48c…0ae620 Dummy {f00=0x0030, f01=0x0190, f02=»001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ
0x0ae620…0ae7b4 (1, 220) Opaque[0x194]
0x0ae7b4…0ae948 # DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x821c, f01=0xf6d3, f02=0x0618, f03=0x8708}
0x0ae7b4…0ae948 IdxSect {
0x0ae7b4…0ae948 f00 = 0x0030 // 0xae7b4 @0x0
0x0ae7b4…0ae948 f01 = 0x0006 // 0xae7b6 @0x2
0x0ae7b4…0ae948 gno = [ // 0xae7b8 @0x4
0x0ae7b4…0ae948 [0x00]: C0x0030.0x3.0
0x0ae7b4…0ae948 [0x01]: C0x0031.0x0.0
0x0ae7b4…0ae948 [0x02]: C0x0031.0x1.0
0x0ae7b4…0ae948 ]
0x0ae7b4…0ae948 }
0x0ae948…0aeadc Dummy {f00=0x0030, f01=0x0190, f02=» 8 P IDENT DGCACT CLOSE ACCOUNT L P*********************************************************************** @ L P* PROCEDURE NAME : * L P* DGCACT CLOSE ACC
0x0aeadc…0aec70 Dummy {f00=0x0030, f01=0x0190, f02=» - PRINT JOURNAL-ROLL * L P* - DISPLAY FORMAT 40 ON SCREEN * @ L P* - UPDATE ACCOUNTRECORD * L P* - SAVINGS ACCOUNT: PR
0x0aec70…0aee04 Dummy {f00=0x0030, f01=0x0190, f02=» RECORDSTATUS BECOMES 2 * L P* - CHEQUE ACCOUNT : IF LAST-TRANSACTION = LAST-TRANS* @ L P* ACTION-STATEMENTED: RECORDSTATUS* L P* BE
0x0aee04…0aef98 Dummy {f00=0x0030, f01=0x0190, f02=» FORMED IF TERMINALPRINTER IS * L P* PRESENT * @ L P* - REWRITE ACCOUNTRECORD * L P* PROCEDURES USED :
0x0aef98…0af12c Dummy {f00=0x0030, f01=0x0190, f02=» PBBOOK PRINT BOOK * L P* ZZDRWRD WRITE DATABASE-RECORD * @ L P* XBFMT SCREEN-CONTROL * L P****************************************
0x0af12c…0af2c0 Dummy {f00=0x0030, f01=0x0190, f02=»C DKDSTM P EXT PAJRN P EXT PBBOOK 0 P EXPROC XBFMT R P EXPROC ZCRDD h P EXPROC ZDRWRD ~ P PDGCACT PROC PDG000 P* PRINT JOURNAL-ROLL P SET SBCACT " P
0x0af2c0…0af454 (1, 221) Dummy {f00=0x0031, f01=0x0190, f02=» DISPLAY FORMAT ON SCREEN $ P PERF XBFMT,=W'40' & & P TBT SBCANCEL,DG999 N 4 P* UPDATE ACCOUNT- AND TRANSACTION-RECORD x & P ADD YDLASSEQ,=D'1' ( P MOVE ADLASSEQ,YDLASSEQ ( P
0x0af454…0af5e8 Dummy {f00=0x0031, f01=0x0190, f02=» * L P* SET ACCOUNT STATUS * B L P* * L P MOVE ADSTATUS,=D'2' CLOSED W/O STATEM
0x0af5e8…0af77c Dummy {f00=0x0031, f01=0x0190, f02=»NT * L P CBNE ADLASTRS,ADSTMTRS,DG600 TRANS. TO BE STATEMENTED B L P MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING L P*
0x0af77c…0af910 Dummy {f00=0x0031, f01=0x0190, f02=» * L PDG600 B L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P TBT SBCANCEL,DG999
0x0af910…0afaa4 Dummy {f00=0x0031, f01=0x0190, f02=»EMENTED TRANSACTIONS * L P* * B L P CBE ADSTATUS,=D'3',DG999 NO STATEMENTING NECESSARY P CBE RDPRTTYP,=D'3',DG650 L P CBG
0x0afaa4…0afc38 Dummy {f00=0x0031, f01=0x0190, f02=» * T L P* READ THE ACCOUNT RECORD FOR PBBOOK OR DKDSTM * L P* * d PDG650 L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1
0x0afc38…0afdcc Dummy {f00=0x0031, f01=0x0190, f02=» b L P* SAVINGS ACCOUNT, PRINT BOOK * " L P PERF PBBOOK r L P B DG999
0x0afdcc…0aff60 Dummy {f00=0x0031, f01=0x4104, f02=» b L P PERF DKDSTM " L PDG999 r P RET P PEND P END @
0x0aff60…0b00f4 (1, 222) Dummy {f00=0x0031, f01=0x2008, f02=» @ . P FMEL 'ZZZZZZZZ9,99',ADLIMBOK P FNL H & P TBT SBCHQACT,F04050 , P FTEXT 'PASSWORD : ' P FCOPY ACPASS P FB F04060 PF04050 , P
0x0b00f4…0b0288 Dummy {f00=0x0031, f01=0x0190, f02=» Z L P FBT SBCHQACT,F07010 J P FTEXT 'WITHDRAWAL - SAVINGS ACC.:' j L P FB F07020 L P
0x0b0288…0b041c Dummy {f00=0x0031, f01=0x0190, f02=» X L PF07020 L P FTAB 27 f L P FMEL '999999',IDACTNR1 L P F
0x0b041c…0b05b0 Dummy {f00=0x0031, f01=0x0190, f02=» V L P* * L P* SAVINGS ACCOUNT * f L P* * L P F
0x0b05b0…0b0744 Dummy {f00=0x0031, f01=0x0190, f02=» V L P FTAB 27 L P FCOPY ACPASS b L P FB F07050 L PF07030
0x0b0744…0b08d8 Dummy {f00=0x0031, f01=0x0190, f02=» R L P* * L P* CHEQUE ACCOUNT, NO ODR * b L P* * L P FTEXT
0x0b08d8…0b0a6c Dummy {f00=0x0031, f01=0x0190, f02=» R L P FCOPY ACNAME L P FB F07050 b L P* * L P* CHEQ
0x0b0a6c…0b0c00 Dummy {f00=0x0031, f01=0x0190, f02=» * R L PF07040 L P FTAB 12 b H P FTEXT '- CHEQUE NR. :' L P FTAB 27
0x0b0c00…0b0d94 (1, 223) Opaque[0x194]
0x0b0d94…0b0f28 # DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x3d43, f01=0x5220, f02=0x0630, f03=0x520e}
0x0b0d94…0b0f28 IdxSect {
0x0b0d94…0b0f28 f00 = 0x0031 // 0xb0d94 @0x0
0x0b0d94…0b0f28 f01 = 0x0004 // 0xb0d96 @0x2
0x0b0d94…0b0f28 gno = [ // 0xb0d98 @0x4
0x0b0d94…0b0f28 [0x00]: C0x0031.0x2.0
0x0b0d94…0b0f28 [0x01]: C0x0031.0x3.0
0x0b0d94…0b0f28 ]
0x0b0d94…0b0f28 }
0x0b0f28…0b10bc Dummy {f00=0x0031, f01=0x0190, f02=» 0 P IDENT DHBACT BLOCK / DEBLOCK ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DHBACT
0x0b10bc…0b1250 Dummy {f00=0x0031, f01=0x0190, f02=» | P P EXPROC ZDRWRD @ L PDHBACT PROC (DE-)BLOCK ACCOUNT L PDH000
0x0b1250…0b13e4 Dummy {f00=0x0031, f01=0x0190, f02=»BLOCKED ACCOUNTRECORD L P MOVE TDTRSCDE,=D'82' UPDATE TO DEBLOCKED D L P B DH200 L PDH100 SET SBDACT DEBLOCKED ACCOUNTR
0x0b13e4…0b1578 Dummy {f00=0x0031, f01=0x0190, f02=» L P* * D L P* PRINT LINE TYPE 1 AND 2 * L P*
0x0b1578…0b170c Dummy {f00=0x0031, f01=0x0190, f02=» h L P* * ( L P* DISPLAY (DE-)BLOCK ACCOUNT SCREEN * x L P* IF ALPHA-KEYBOARD IS AVAILABLE, THE REASON FOR THE ACTION
0x0b170c…0b18a0 Dummy {f00=0x0031, f01=0x0190, f02=» * h L P MOVE TCTEXT,=C' ' ( L P PERF XBFMT,=W'48' x L P TBT SBCANCEL,DH900
0x0b18a0…0b1a34 (1, 224) Dummy {f00=0x0031, f01=0x0190, f02=» h L P MOVE ADLASSEQ,YDLASSEQ ( L P MOVE TDTRSSEQ,YDLASSEQ x L P*
0x0b1a34…0b1bc8 Dummy {f00=0x0031, f01=0x0190, f02=» * h P CBE ADSTATUS,=D'1',DH500 ( L P MOVE ADSTATUS,=D'1' J P B DH600 L PDH500 L P MOVE ADSTATUS
0x0b1bc8…0b1d5c Dummy {f00=0x0031, f01=0x0190, f02=» * J L P* REWRITE ACCOUNTRECORD * L P* * Z PDH600 L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P
0x0b1d5c…0b1ef0 Dummy {f00=0x0031, f01=0x412c, f02=» X L P CLEAR SBBACT L P RET h L P PEND P
0x0b1ef0…0b2084 Dummy {f00=0x0031, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DHBACT
0x0b2084…0b2218 Dummy {f00=0x0031, f01=0x0190, f02=»FOR PBBOOK OR DKDSTM * v L P* * 6 L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,DG999
0x0b2218…0b23ac Dummy {f00=0x0031, f01=0x0190, f02=»OOK * v L P PERF PBBOOK 6 L P B DG999 L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x0b23ac…0b2540 Dummy {f00=0x0031, f01=0x40c8, f02=» v L PDG999 6 P RET P PEND P END @ L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x0b2540…0b26d4 (1, 225) Opaque[0x194]
0x0b26d4…0b2868 # DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x8720, f01=0x816c, f02=0x0640, f03=0x8720}
0x0b26d4…0b2868 IdxSect {
0x0b26d4…0b2868 f00 = 0x0032 // 0xb26d4 @0x0
0x0b26d4…0b2868 f01 = 0x0006 // 0xb26d6 @0x2
0x0b26d4…0b2868 gno = [ // 0xb26d8 @0x4
0x0b26d4…0b2868 [0x00]: C0x0032.0x0.0
0x0b26d4…0b2868 [0x01]: C0x0032.0x1.0
0x0b26d4…0b2868 [0x02]: C0x0032.0x2.0
0x0b26d4…0b2868 ]
0x0b26d4…0b2868 }
0x0b2868…0b29fc Dummy {f00=0x0032, f01=0x018e, f02=» 0 P IDENT DIQACT INQUIRE ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DIQACT INQUIRE ACCOUNT
0x0b29fc…0b2b90 Dummy {f00=0x0032, f01=0x0190, f02=» P P EXPROC XBFMT P P EXPROC XEERR X P P EXPROC ZCRDD P P EXPROC
0x0b2b90…0b2d24 Dummy {f00=0x0032, f01=0x0190, f02=»********** * T L P* PROCEDURE NAME : * L P* DIQACT * d L P* FUNCTIONAL DESCRIPTION : * L P*
0x0b2d24…0b2eb8 Dummy {f00=0x0032, f01=0x0190, f02=»CTIONS * T L P* ACTIONS : * L P* - PRINT JOURNAL-ROLL * f L P* - UPDATE LAST TRANSACTION SEQUENCE NUMBER * L P*
0x0b2eb8…0b304c Dummy {f00=0x0032, f01=0x0190, f02=» THE OPERATOR CAN REQUEST TRANSACTION INQUIRY; ~ L P* TRS.INQ. : READ LAST OR PREVIOUS TRANSACTION- * 8 L P* RECORD INTO UT2 * L P* DISPLAY TRANSAC
0x0b304c…0b31e0 Dummy {f00=0x0032, f01=0x0190, f02=» END-OF-ITEM OR CANCEL * x N P* NO TRS. INQ. : REWRITE ACCOUNTRECORD * 8 L P* RETURN * , P* CANCEL : RETURN L
0x0b31e0…0b3374 (1, 226) Dummy {f00=0x0032, f01=0x0190, f02=» * Z L P* QFLTRS PREVIOUS TRANSACTIONNUMBER * L P* XBFMT SCREEN-CONTROL * j L P* XEERR DISPLAY ERRORR-MESSAGE * L
0x0b3374…0b3508 Dummy {f00=0x0032, f01=0x0190, f02=» * Z L P************************************************************************ L PDIQACT PROC j L PDI000 L
0x0b3508…0b369c Dummy {f00=0x0032, f01=0x0190, f02=» Z L P L P MOVE TDTRSCDE,=D'70' j L P PERF PAJRN,=W'2' L
0x0b369c…0b3830 Dummy {f00=0x0032, f01=0x0190, f02=»FMT,=W'46' INQUIRE ACCOUNT FORMAT L P TBT SBCANCEL,DI900 CANCEL P P* > P* IF IDNR1 = 1 THEN LAST TRANSACTION INQUIRY IS REQUESTED P* " P CBE IDNR1,=D'0',D
0x0b3830…0b39c4 Dummy {f00=0x0032, f01=0x0190, f02=» N L P MOVE TDTRSCDE,=D'71' P* ^ ( P* TDUMMY IS USED AS A WORKFIELD HERE h P* L P MOVE TDUMMY,ADLASTRS L PDI300
0x0b39c4…0b3b58 Dummy {f00=0x0032, f01=0x0190, f02=»DD UDTRSRNR,TDUMMY L P PERF ZCRDD,UDTRSRNR,NDLRN2,KW1 N P TBT SBCANCEL,DI900 L P TBF SBRECAVB,DI700 L
0x0b3b58…0b3cec Dummy {f00=0x0032, f01=0x0190, f02=»' INIT OPERATOR ANSWER L P PERF XBFMT,=W'47' L P TBT SBCANCEL,DI900 CANCEL n P* < P* IF IDNR1 = 1, THEN INQUIRY OF THE PREVIOUS TRANSACTION P
0x0b3cec…0b3e80 Dummy {f00=0x0032, f01=0x0190, f02=» ~ L P PERF XEERR,=W'38',KW1 > L P* ( ERROR-MESSAGE ; NO (MORE) TRANSACTIONS , ANSWER MUST BE * L P* "CANCEL" )
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x0032, f01=0x0190, f02=» J P* END OF INQUIRY P* REWRITE ACCOUNT-RECORD & N P ADD YDLASSEQ,=D'1' J L P MOVE ADLASSEQ,YDLASSEQ L P MOVE TDTRSSEQ,ADLASSEQ
0x0b4014…0b41a8 Dummy {f00=0x0032, f01=0x0190, f02=»0 $ P TBF SBZEK,DI910 RELEASE BOOK IF L $ P DSC0 DSVCHPRT,1 ...ZEKOSA USED t PDI910 P CLEAR SBQACT L P RET
0x0b41a8…0b433c Dummy {f00=0x0032, f01=0x4074, f02=»************************ ` L P END @ p DSC0 DSVCHPRT,1 ...ZEKOSA USED t PDI910 P CLEAR SBQACT L P RET
0x0b433c…0b44d0 Dummy {f00=0x0032, f01=0x2008, f02=» H
0x0b44d0…0b4664 Dummy {f00=0x0032, f01=0x0190, f02=» 9_8 8 _< V W YL T 9 : K &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) 0 K !0 K " TV *V &V : V S W
0x0b4664…0b47f8 Dummy {f00=0x0032, f01=0x0190, f02=» [ >h [ [ BT< BT< BT:& Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P BT: V H )_ BT? _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 K !0
0x0b47f8…0b498c Dummy {f00=0x0032, f01=0x0190, f02=» W V E + : V & 6 K [ [ [ [ $ [ [ &! P B* BT< BT< BT:& z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z BT< Q BT? P _ T { [ BTB6 [ Q@ [ BT
0x0b498c…0b4b20 Dummy {f00=0x0032, f01=0x0190, f02=»! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 G|d d g G~g d etGvD E.D D GtG2GbG^D D D C D F F E D GtD C 6 C K K
0x0b4b20…0b4cb4 (1, 228) Opaque[0x194]
0x0b4cb4…0b4e48 # DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x8178, f01=0x5734, f02=0x0658, f03=0x8184}
0x0b4cb4…0b4e48 IdxSect {
0x0b4cb4…0b4e48 f00 = 0x0032 // 0xb4cb4 @0x0
0x0b4cb4…0b4e48 f01 = 0x0002 // 0xb4cb6 @0x2
0x0b4cb4…0b4e48 gno = [ // 0xb4cb8 @0x4
0x0b4cb4…0b4e48 [0x00]: C0x0032.0x3.0
0x0b4cb4…0b4e48 ]
0x0b4cb4…0b4e48 }
0x0b4e48…0b4fdc Dummy {f00=0x0032, f01=0x018a, f02=» > P IDENT DEFDOC DEFINE DOCUMENT 6371-PRINTER **** F ENTRY DEFDOC R **** h EXTRN T:FDSP,I:EVA0,I:RT1 t **** * * CALL DEFDOC,DSET,ITEM * DEFDOC EQU * CF A14,T:FDSP CF A14,
0x0b4fdc…0b5170 Dummy {f00=0x0032, f01=0x4008, f02=»@ IDENT DEFDOC DEFINE DOCUMENT 6371-PRINTER **** F ENTRY DEFDOC R **** h EXTRN T:FDSP,I:EVA0,I:RT1 t **** * * CALL DEFDOC,DSET,ITEM * DEFDOC EQU * CF A14,T:FDSP CF A14,
0x0b5170…0b5304 Dummy {f00=0x0032, f01=0x2008, f02=» RNT,DSET,ITEM * DFPRNT EQU * ( CF A14,T:FDSP < CF A14,I:EVA0 R LDR* A1,A9 h ST A1,10,A8 | ( $ LDK A7,/24+/80 SET PRINT PAR + WAIT LKM DATA 1 ABL I:RT1 END @ 4,I:EVA0
0x0b5304…0b5498 Dummy {f00=0x0032, f01=0x0190, f02=»ENR BCD 4 LAST USED LINE IN BOOK 2 L PADDEPCUM BCD 12 ACCUMULATED DEPOSITS 3 ( L PADWDRCUM BCD 12 ACCUMULATED WITHDRAWALS 3 x 2 PADLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. 3 L P**********
0x0b5498…0b562c Dummy {f00=0x0032, f01=0x0190, f02=» 3 N L P* * 4 L P************************************************************************ 4 ^ L P* * 4 L P* ACCOUNT
0x0b562c…0b57c0 Dummy {f00=0x0032, f01=0x0190, f02=» * 4 N L P************************************************************************ 5 L PBDACTRNR BCD 12 RECORD NUMBER 5 ^ L PBDCARDNR BCD 6 CARD NUMBER 5 L PBCNAME STR
0x0b57c0…0b5954 (1, 229) Opaque[0x194]
0x0b5954…0b5ae8 # DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x818a, f01=0x5724, f02=0x0660, f03=0x0010}
0x0b5954…0b5ae8 IdxSect {
0x0b5954…0b5ae8 f00 = 0x0033 // 0xb5954 @0x0
0x0b5954…0b5ae8 f01 = 0x0010 // 0xb5956 @0x2
0x0b5954…0b5ae8 gno = [ // 0xb5958 @0x4
0x0b5954…0b5ae8 [0x00]: C0x0033.0x0.0
0x0b5954…0b5ae8 [0x01]: C0x0033.0x1.0
0x0b5954…0b5ae8 [0x02]: C0x0033.0x2.0
0x0b5954…0b5ae8 [0x03]: C0x0033.0x3.0
0x0b5954…0b5ae8 [0x04]: C0x0034.0x0.0
0x0b5954…0b5ae8 [0x05]: C0x0034.0x1.0
0x0b5954…0b5ae8 [0x06]: C0x0034.0x2.0
0x0b5954…0b5ae8 [0x07]: C0x0034.0x3.0
0x0b5954…0b5ae8 ]
0x0b5954…0b5ae8 }
0x0b5ae8…0b5c7c Dummy {f00=0x0033, f01=0x0190, f02=» < P IDENT DKDSTM DAILY STATEMENTS L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x0b5c7c…0b5e10 Dummy {f00=0x0033, f01=0x018e, f02=» EXPROC QENTRS P P EXPROC QGATYP T P EXPROC XCLAMP P EXPROC XEERR P P EXPROC ZCRDD
0x0b5e10…0b5fa4 Dummy {f00=0x0033, f01=0x0190, f02=» P ENTRY DKDSTM P ENTRY EQPDS L P************************************************************************ . L P* * ~ L P* PROCEDURE: DKDSTM
0x0b5fa4…0b6138 Dummy {f00=0x0033, f01=0x0190, f02=» * n L P* 1. AN INDIVIDUAL (CHEQUE OR SAVINGS) ACCOUNT ON A TTP/TEP * . L P* 2. ALL CHEQUE ACCOUNTS ON A GTP OR LP. * ~ L P* CHECKS ON THE PRINTER TYPE HAVE BEEN DONE IN CEGACT
0x0b6138…0b62cc Dummy {f00=0x0033, f01=0x0190, f02=»D HAS BEEN READ IN CEGACT. * n 4 P* (THE LOGICAL RECORD NUMBER IS IN NDLRN1) . L P* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE * f L P* IN UWB 'UA1'. * L P*
0x0b62cc…0b6460 Dummy {f00=0x0033, f01=0x0190, f02=» * V L P* 'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE. * L P* FOR EACH UNSTATEMENTED TRANSACTION OF AN ACCOUNT A * f L P* DAILY-STATEMENT LINE IS PRINTED. * L P*
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x0033, f01=0x0190, f02=» * V . P* AND THE ACCOUNT RECORD IS REWRITTEN L P* USE OF VARIABLES: * H L P* IDACTNR1: CONTAINS THE NUMBER OF THE ACCOUNT FOR WHICH * L P* STATEMENTING MU
0x0b65f4…0b6788 Dummy {f00=0x0033, f01=0x0190, f02=»DACTNR2: USED TO SAVE THE INITIAL VALUE OF IDACTNR1. * L P* SBCHQACT: IS THE ACCOUNT A CHEQUE ACCOUNT ? * H L P* IDAMT1: DEBIT AMOUNT IN PRINT LINE * L P* IDAMT2: CREDIT AMOUNT I
0x0b6788…0b691c Dummy {f00=0x0033, f01=0x0190, f02=» EACH ACCOUNT. * L P* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED. * H L P* NDNEWLINE: POINTS TO THE LINE ON WHICH MUST BE PRINTED. * L P* UA1 (UWB): CONTAINS THE
0x0b691c…0b6ab0 Dummy {f00=0x0033, f01=0x0190, f02=»CBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. * L P* * H L P************************************************************************ L PDKDSTM PROC
0x0b6ab0…0b6c44 Dummy {f00=0x0033, f01=0x0190, f02=»STM L P MOVE TDTRSCDE,=D'72' H L P PERF PAJRN,=W'1' IDENTIFICATION PRINT L P*
0x0b6c44…0b6dd8 Dummy {f00=0x0033, f01=0x0190, f02=»TS, ELSE IDACTNR1 CONTAINS THE NUMBER OF THE ACCOUNT TO BE * L P* HANDLED AND THE ACCOUNT RECORD IS AVAILABLE IN UWB UA1 * H L P* * L P MOVE IDACTNR2,IDACTNR1 SAVE IDA
0x0b6dd8…0b6f6c Dummy {f00=0x0033, f01=0x0190, f02=»Y MESSAGE TO MOUNT THE APROPRIATE STATIONARY IN/ON PRINTER * L P* * H " P PERF XCLAMP,KW4,KW1 LAMP 4 ON 0 P CBE IDACTNR2,=D'0',DK050 ALL ACCOUNT OPTION L P* TELLER PRINTER
0x0b6f6c…0b7100 Dummy {f00=0x0033, f01=0x0190, f02=» CBNE RDPRTTYP,=D'0',DK010 PDK005 " P* 0 P* 6371-PRINTER CONTROL : P* X P MOVE WW1,=W'18' b . P MOVE VCDOCPAR,=C'1010313801100030000000' z * P DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 P DSC1 DSVCHPRT,X'00',KW0 P MOVE WW1,=X'8
0x0b7100…0b7294 (1, 231) Dummy {f00=0x0033, f01=0x0190, f02=» L P B DK100 L PDK050 T P CBE YDMLPINT,=D'0',DK060 P* LINE PRINTER P PERF PVATTP,DSLNEPRT P B DK090
0x0b7294…0b7428 Dummy {f00=0x0033, f01=0x0190, f02=» PDK100 $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF * P TBT SBCANCEL,DK980 R L P CBG IDACTNR2,=D'0',DK300 SINGLE ACCOUNT n L P* *
0x0b7428…0b75bc Dummy {f00=0x0033, f01=0x0190, f02=» * ^ N P MOVE IDACTNR1,=D'167998' INITIALISE L P* * p L P* NEXT CHEQUE ACCOUNT *
0x0b75bc…0b7750 Dummy {f00=0x0033, f01=0x0190, f02=» ` L P ADD IDACTNR1,=D'2' 8 P CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS p L P* * L P* READ THE A
0x0b7750…0b78e4 Dummy {f00=0x0033, f01=0x0190, f02=» * L L P MOVE ADACTRNR,IDACTNR1 L P MUL ADACTRNR,KDSHIFT L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCE
0x0b78e4…0b7a78 Dummy {f00=0x0033, f01=0x0190, f02=» L L P* * L P* THE ACCOUNT RECORD HAS BEEN READ * L P* * L P CBE ADSTATU
0x0b7a78…0b7c0c Dummy {f00=0x0033, f01=0x0190, f02=» * L P* A NON CLOSED ACCOUNT HAS BEEN READ * H L P* * L PDK300
0x0b7c0c…0b7da0 Dummy {f00=0x0033, f01=0x0190, f02=»JRN,=W'2' ACCOUNT NR. AND TRANS. CODE P B DK308 H P* X B P* IF THE REVERSAL SWITCH IS ON, IT MUST BE TEMPORARILY CLEARED b & P* FOR THE PRINTING OF LINE TYPE 2 P* PDK304 P CLEAR SBRVS P PERF PAJR
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x0033, f01=0x0190, f02=»THE HEADER LINE * L P* * H L P MOVE ICTEXT2,ACNAME 8 P CBG IDACTNR2,=D'0',DK320 SINGLE
0x0b7f34…0b80c8 Dummy {f00=0x0033, f01=0x0190, f02=» PDK310 P* PRINT ON THE GTP $ P PERF PXSKIP,SPDSPRT SKIP A LINE 0 L P EDWRT SPDSPRT,PRT013 X P B DK350 P* PRINT ON THE TTP/TEP PDK320 P MOVE NDNEWLNE,=D'46' * P PERF
0x0b80c8…0b825c Dummy {f00=0x0033, f01=0x0190, f02=» PRINT STATM. DATE ONLY ONCE L P MOVE NDPRTTRS,ADSTMTRS WORKFIELD D L P* * L P* NEXT TRANSACTION TO BE STATEMENTED
0x0b825c…0b83f0 Dummy {f00=0x0033, f01=0x0190, f02=» L P CBE ADSTMTRS,ADLASTRS,DK700 NO MORE TRANSACTIONS D L P PERF QENTRS,NDPRTTRS NEXT TRANS. TO BE STATEMENTED L P*
0x0b83f0…0b8584 Dummy {f00=0x0033, f01=0x0190, f02=» * L P MOVE UDTRSRNR,ADACTRNR D L P ADD UDTRSRNR,NDPRTTRS TRANS. RECORD KEY L P PERF ZCRDD,UDTRSRNR,WDEC1,KW1
0x0b8584…0b8718 Dummy {f00=0x0033, f01=0x0190, f02=»B,DK700 TRANS. RECORD NOT FOUND L P* * D L P* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE * L P*
0x0b8718…0b88ac Dummy {f00=0x0033, f01=0x0190, f02=»PRINT A DAILY STATEMENT LINE L P* * $ L P* UPDATE LAST TRANSACTION STATEMENTED, FOR A SAVINGS ACCOUNT THE * t L P* ACCOUNT RECORD WILL NOT BE REWRITTEN, SO UPDATING OF THIS FIELD IN
0x0b88ac…0b8a40 Dummy {f00=0x0033, f01=0x0190, f02=» * d L P MOVE ADSTMTRS,NDPRTTRS $ L P B DK400 NEXT TRANSACTION t L P*
0x0b8a40…0b8bd4 (1, 233) Dummy {f00=0x0034, f01=0x0190, f02=» CHEQUE ACCOUNTS ONLY). * d L P* * $ L PDK700 t , P CBG IDACTNR2,=D'0',DK705 SINGLE ACCOUNT * P CBE YDMLPINT,=D'1',
0x0b8bd4…0b8d68 Dummy {f00=0x0034, f01=0x0190, f02=» ` L P CBNE ADSTATUS,=D'2',DK710 L P CBNE ADSTMTRS,ADLASTRS,DK710 ALL TRANS. STATEMENTED ? p L P MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING
0x0b8d68…0b8efc Dummy {f00=0x0034, f01=0x0190, f02=» H L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P TBT SBCANCEL,DK980 X L PDK750 , P CBG IDACTNR2,=D
0x0b8efc…0b9090 Dummy {f00=0x0034, f01=0x0190, f02=» * L L P* ALL ACCOUNTS HAVE BEEN DONE * ! L P* * ! L PDK800 ! L PDK980
0x0b9090…0b9224 Dummy {f00=0x0034, f01=0x0190, f02=»P/TEP ! x P* " P DSC0 DSVCHPRT,1 " P PERF PWDETP,DSVCHPRT " 0 P B DK990 " N P* " ^ < P* ALL ACCOUNT OPTION, GIVE A TRANSACTION SEQUENCE NUMBER " h P* " PDK984 " P ADD YDLASSEQ,=D'1' " P MOVE TDTRSSEQ,YDLASSEQ " P CBE YDMLPIN
0x0b9224…0b93b8 Dummy {f00=0x0034, f01=0x0190, f02=»986 " P PERF PWDETP,SPDSPRT # P* # ( P* EXIT FROM D-S # 2 P* # J PDK990 # T P CLEAR SBDSTM # b L P RET # x L P PEND
0x0b93b8…0b954c Dummy {f00=0x0034, f01=0x0190, f02=» * # h L P* DAILY-STATEMENT ACCOUNT HEADER LINE * $ ( L P* * $ x L P****************************************************************
0x0b954c…0b96e0 Dummy {f00=0x0034, f01=0x0190, f02=» $ h L P FTAB 3 % ( L P FMEL '999999',IDACTNR1 % x L P FTAB 12
0x0b96e0…0b9874 (1, 234) Dummy {f00=0x0034, f01=0x0190, f02=» % h L P FILLR ' ',8 & ( L P FMEND & x L P****************************************************************
0x0b9874…0b9a08 Dummy {f00=0x0034, f01=0x0190, f02=»******************************************** & t PEQPDS PROC ' 4 PEQ000 ' F L P* CLEAR SWITCHES USED * ' T N P CLEAR SBDSDEP ' N P CLEAR SBDSWDR
0x0b9a08…0b9b9c Dummy {f00=0x0034, f01=0x0190, f02=» ' H L P CLEAR SBDSRVS ( 4 P* SET SWITCHES DEPENDING ON THE TRANSACTION CODE ( Z L P CBE UDTRSCDE,=D'1',EQ100 IN ( L P CBE UDTRSCDE,=D'7',EQ100 NOBOOK IN
0x0b9b9c…0b9d30 Dummy {f00=0x0034, f01=0x0190, f02=»=D'16',EQ120 CHEQUE OUT ( L P CBE UDTRSCDE,=D'12',EQ140 TRANSFER (FROM) ) B L P CBE UDTRSCDE,=D'11',EQ140 TRANSFER (TO) ) L P B EQ180
0x0b9d30…0b9ec4 Dummy {f00=0x0034, f01=0x0190, f02=» ) L P B EQ180 * D L PEQ120 * N P SET SBDSWDR
0x0b9ec4…0ba058 Dummy {f00=0x0034, f01=0x018e, f02=» * N P SET SBDSTRF + F L PEQ180 + L P CBNL UDAMOUNT,=D'0',EQ200
0x0ba058…0ba1ec Dummy {f00=0x0034, f01=0x0190, f02=» : P* MUST AMOUNT BE PRINTED AS A DEBIT OR CREDIT AMOUNT ? , P* , B L PEQ200 , L L P CBE UDTRSCDE,=D'1',EQ250 IN , L P CBE UDTRSCDE,=D'7',EQ250 NO
0x0ba1ec…0ba380 Dummy {f00=0x0034, f01=0x0190, f02=»ANSACTION CODE IS 2, 16 OR 12 * , L P TBT SBDSRVS,EQ290 REVERSAL - L L P B EQ270 - L P* TRANSACTION CODE IS 1, 7 O
0x0ba380…0ba514 (1, 235) Dummy {f00=0x0034, f01=0x0190, f02=» SBDSRVS,EQ290 NOT REVERSAL - L P* * . L L P* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT * . L P*
0x0ba514…0ba6a8 Dummy {f00=0x0034, f01=0x0190, f02=»E IDAMT1,UDAMOUNT . L P MOVE IDAMT2,=D'0' / L L P B EQ300 / L P*
0x0ba6a8…0ba83c Dummy {f00=0x0034, f01=0x0190, f02=» * / L PEQ290 0 L L P MOVE IDAMT1,=D'0' 0 L P MOVE IDAMT2,UDAMOUNT
0x0ba83c…0ba9d0 Dummy {f00=0x0034, f01=0x0190, f02=»INT A LINE ON LP, GTP OR TTP/TEP * 0 L P* * 1 L L PEQ300 1 P MOVE SPBINW4,=W'61' 1 . P
0x0ba9d0…0bab64 Dummy {f00=0x0034, f01=0x0190, f02=» 1 j L P* PRINT ON LINE PRINTER * 2 * P EDWRT DSLNEPRT,FCBUFFER 2 z P B EQ990 2 L PEQ310 2 L P* PRINT ON A G
0x0bab64…0bacf8 Dummy {f00=0x0034, f01=0x0190, f02=» 2 J L P B EQ990 3 L PEQ320 3 Z L P* PRINT ON A TTP/TEP * 3 " P SUB NDNEWLNE,
0x0bacf8…0bae8c Dummy {f00=0x0034, f01=0x416c, f02=» 3 N L PEQ990 4 L P CLEAR SBFIRST PRINT STATEMENT DATE ONLY ONCE 4 ^ P RET 4 P PEND 4 L P****************************************************************
0x0bae8c…0bb020 Dummy {f00=0x0034, f01=0x2008, f02=» 5 2 x L P FILLR ' ',8 3 8 L P FMEND 3 L P************************************************
0x0bb020…0bb1b4 (1, 236) Dummy {f00=0x0034, f01=0x018e, f02=»CHANNEL UNIT ? t P IFT RECEND=0 P RB(NZ) EXIT , P XIF @ P IFT RECEND=1 L P RB(NZ) AGP430 b P XIF x P 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 PIHGP20 LDR A1,A1 * P RB(Z) IHGP10 TEST ORDER AND TIME OUT
0x0bb1b4…0bb348 Dummy {f00=0x0034, f01=0x018e, f02=» P* ( P* RECOVERY IS CARRIED OUT ONLY IF P* ORDER 6 IS RUNNING : P* Z P* ON ENTRY: d P* z P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS PRCGP EQU * P IFT CPU852=1 & P CF A15,
0x0bb348…0bb4dc Dummy {f00=0x0034, f01=0x0190, f02=» P LD A2,DWTST,A6 BUSY ? P RB(N) EXIT NO " P LD A7,DWTOR,A6 GET ORDER 8 P ANK A7,/FF Z P LD A8,DWTECB,A6 n P CWK A7,6 ORDER 6? P RF(E) RCGP05 YES P CWK A7,0 ORDER 0? P ABL(E) ENDIO P ABL EXIT PRCGP05 EQU *
0x0bb4dc…0bb670 Dummy {f00=0x0034, f01=0x4038, f02=» POS LTR.TO 0 P ABL ACGP P END (@ 4 LD A7,DWTOR,A6 GET ORDER 8 P ANK A7,/FF Z P LD A8,DWTECB,A6 n P CWK A7,6 ORDER 6? P RF(E) RCGP05 YES P CWK A7,0 ORDER 0? P ABL(E) ENDIO P ABL EXIT PRCGP05 EQU *
0x0bb670…0bb804 Dummy {f00=0x0034, f01=0x2008, f02=» .TO 0 P ABL ACGP P END (@ 4 LD A7,DWTOR,A6 GET ORDER 8 P ANK A7,/FF Z P LD A8,DWTECB,A6 n P CWK A7,6 ORDER 6? P RF(E) RCGP05 YES P CWK A7,0 ORDER 0? P ABL(E) ENDIO P ABL EXIT PRCGP05 EQU *
0x0bb804…0bb998 Dummy {f00=0x0034, f01=0x0190, f02=» F >f H 4 5W P 0 @L 1 AL (@_ N PD @M| P2R8 TM~ TM|R$ TM UM| M @M| 2W UM * N ?B N G : N G < RN ' P C Cf( & G VX @ > > 4UP :! 4 U Zf9 W & ?! U P
0x0bb998…0bbb2c Dummy {f00=0x0034, f01=0x0190, f02=» , Td E <Wl D <V ; [ _ D ZV D > E <WR ; [ D : D S W E 8 E : W C^ _| P C^ [ Z : : D L ; Wj Z T X W Wj > +P0 < D Z E < Y E CZ<Q D DZD < W, Z
0x0bbb2c…0bbcc0 Dummy {f00=0x0034, f01=0x0190, f02=» R R R Z S S _P (@ : T 8 T : ZB T Z T @ Zf T > T < ^ S W : P Q R ;A [ [ : P Q R ;A [ [ : P Q R ;A [ [ : Q R P ;A
0x0bbcc0…0bbe54 (1, 237) Opaque[0x194]
0x0bbe54…0bbfe8 # DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0005, f01=0x0027, f02=0x06a0, f03=0x0005}
0x0bbe54…0bbfe8 IdxSect {
0x0bbe54…0bbfe8 f00 = 0x0035 // 0xbbe54 @0x0
0x0bbe54…0bbfe8 f01 = 0x0012 // 0xbbe56 @0x2
0x0bbe54…0bbfe8 gno = [ // 0xbbe58 @0x4
0x0bbe54…0bbfe8 [0x00]: C0x0035.0x0.0
0x0bbe54…0bbfe8 [0x01]: C0x0035.0x1.0
0x0bbe54…0bbfe8 [0x02]: C0x0035.0x2.0
0x0bbe54…0bbfe8 [0x03]: C0x0035.0x3.0
0x0bbe54…0bbfe8 [0x04]: C0x0036.0x0.0
0x0bbe54…0bbfe8 [0x05]: C0x0036.0x1.0
0x0bbe54…0bbfe8 [0x06]: C0x0036.0x2.0
0x0bbe54…0bbfe8 [0x07]: C0x0036.0x3.0
0x0bbe54…0bbfe8 [0x08]: C0x0037.0x0.0
0x0bbe54…0bbfe8 ]
0x0bbe54…0bbfe8 }
0x0bbfe8…0bc17c Dummy {f00=0x0035, f01=0x0190, f02=» 0 P IDENT DNTRF TRANSFER L P DDUM DEMODD 8 L P PDIV L P ENTRY DNTRF
0x0bc17c…0bc310 Dummy {f00=0x0035, f01=0x0190, f02=» j P P EXPROC PBBOOK . P P EXPROC PCVCH P EXPROC QENTRS P EXPROC QGATYP P P EXPRO
0x0bc310…0bc4a4 Dummy {f00=0x0035, f01=0x0190, f02=» l P P EXPROC ZHWRID 0 P EXPROC ZGREA L P************************************************************************ L P* PROCEDURE NAME:
0x0bc4a4…0bc638 Dummy {f00=0x0035, f01=0x0190, f02=» FUNCTIONAL DESCRIPTION: * L P* THE PROCEDURE TRANSFERS AN AMOUNT FROM ONE ACCOUNT- * J L P* RECORD TO ANOTHER. * L P* THE ACCOUNT-R
0x0bc638…0bc7cc Dummy {f00=0x0035, f01=0x0190, f02=» THE TWO ACOUNT-RECORDS ARE UPDATED. * L P* UT1-WORKBLOCK, TRANSACTION-RECORD FOR THE * J L P* ACCOUNT-RECORD(FROM), IS FILLED WITH THE USUAL DATA. * L P* UT2-WORKBLOCK
0x0bc7cc…0bc960 Dummy {f00=0x0035, f01=0x0190, f02=» BOTH TRANSACTION AND BOTH ACCOUNT-RECORDS ARE * L P* REWRITTEN TO THE DATABASE. * J L P* * L P* THE OPERATOR-
0x0bc960…0bcaf4 (1, 238) Dummy {f00=0x0035, f01=0x0190, f02=» IN CASE OF A TERMINAL-PRINTER AND A SAVINGS-ACCOUNT, * L P* MODULE PBBOOK IS PERFORMED FOR ACCOUNT-RECORD(FROM). * J L P* * L P* IN CASE OF A
0x0bcaf4…0bcc88 Dummy {f00=0x0035, f01=0x0190, f02=» * L P* PROCEDURES USED: * J L P* * L P* PAJRN PR
0x0bcc88…0bce1c Dummy {f00=0x0035, f01=0x0190, f02=» PCVCH PRINT VOUCHER * L P* XBFMT SCREEN-CONTROL * J . P* ZCRDD READ DATABASE L P* ZDRWRD WRITE DATABASE
0x0bce1c…0bcfb0 Dummy {f00=0x0035, f01=0x0190, f02=»OR INSERT RECORD ON DATABASE * l L P* * , L P************************************************************************ | L PDNTRF PROC
0x0bcfb0…0bd144 Dummy {f00=0x0035, f01=0x0190, f02=» l P* , D P* THE INPUTFIELDS IN LINE 2 OF THE TRANSFERSCREEN ARE CLEARED 6 > P* IF THE ACCOUNTNR. KEYED-IN IS A CHEQUE-ACCOUNT, LINE 2 ~ * P* IS REDISPLAYED IN ANOTHER FORMAT P* P* 2 P* DIS
0x0bd144…0bd2d8 Dummy {f00=0x0035, f01=0x0190, f02=» L P PERF XBFMT,=W'45' PDN020 T L P TBF SBCANCEL,DN050 b L P PERF PAJRN,=W'2' L P B DN9
0x0bd2d8…0bd46c Dummy {f00=0x0035, f01=0x0190, f02=» * R L P* UA1-WORKBLOCK CONTAINS ACCOUNT-RECORD(FROM); ADNEWBAL IS UPDATED * L P* UA2-WORKBLOCK CONTAINS ACCOUNT-RECORD(TO); TDAMOUNT CONTAINS * b L P* THE AMOUNT OF THE TRANSFER * L P*
0x0bd46c…0bd600 Dummy {f00=0x0035, f01=0x0190, f02=» R L P* * L P* PRINT JOURNAL-ROLL * b L P* * L P MOVE
0x0bd600…0bd794 (1, 239) Dummy {f00=0x0035, f01=0x0190, f02=» R L P MOVE TDTRSCDE,=D'12' L P PERF PAJRN,=W'2' b : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY L P PERF PAJRN,=W'4'
0x0bd794…0bd928 Dummy {f00=0x0035, f01=0x0190, f02=» PERF PAJRN,=W'8' L PDN100 P L P* * L P* UPDATE ACCOUNT-RECOR
0x0bd928…0bdabc Dummy {f00=0x0035, f01=0x0190, f02=» PERF QENTRS,ADLASTRS UPDATE LAST TRANSACTION P* 6 : P* TDAMOUNT CONTAINS AMOUNT KEYED IN BY THE OPERATOR @ P* ~ P TBF SBRVS,DN110 P MUL TDAMOUNT,=D'-1' PDN110 P SUB ADBAL,TDAMOUNT P L P ADD ADWDRCUM,TDAMOUNT
0x0bdabc…0bdc50 Dummy {f00=0x0035, f01=0x0190, f02=»OVE ADLASSEQ,YDLASSEQ L PDN200 N L P* * L P* UPDATE ACCOUNT-RECORD(
0x0bdc50…0bdde4 Dummy {f00=0x0035, f01=0x0190, f02=»DD BDBAL,TDAMOUNT , P PERF QENTRS,BDLASTRS UPDATE LAST TRANS. N L PDN210 ~ L P ADD BDDEPCUM,TDAMOUNT
0x0bdde4…0bdf78 Dummy {f00=0x0035, f01=0x0190, f02=» n L P* * . L P* UPDATE TRANSACTION-RECORD(FROM) * ~ L P*
0x0bdf78…0be10c Dummy {f00=0x0035, f01=0x0190, f02=» n L P MOVE TDTRSSEQ,ADLASSEQ . L P MOVE TDNEWBAL,ADBAL ~ PDN400 P* & P* UPDATE TRANSACTION-RECORD(TO)
0x0be10c…0be2a0 Dummy {f00=0x0035, f01=0x0190, f02=» x P MOVE UDNEWBAL,BDBAL P MOVE UDACTFRM,IDACTNR1 $ PDN500 D L P* * R L P* (RE)WRITE ACCOUNT- AND TRANSACTIONRECORDS * L P*
0x0be2a0…0be434 (1, 240) Dummy {f00=0x0035, f01=0x0190, f02=»DTRSRNR,NDLRN3 P TBT SBCANCEL,DN999 L P PERF ZDRWRD,ADACTRNR,NDLRN1 2 P TBT SBCANCEL,DN999 L P PERF ZDRWRD,BDACTRNR,NDLRN2 P TBT SBCANCEL,DN999
0x0be434…0be5c8 Dummy {f00=0x0035, f01=0x0190, f02=» P* PDN700 P CBE RDPRTTYP,=D'3',DN705 P CBG RDPRTTYP,=D'1',DN999 > PDN705 ` P TBT SBCHQACT,DN710 n < P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK P TBT SBCANCEL,DN999 P PERF PBBOOK P B DN999
0x0be5c8…0be75c Dummy {f00=0x0035, f01=0x018e, f02=» L P PEND B L P************************************************************************ L PSPAP19 PROC XWRET
0x0be75c…0be8f0 Dummy {f00=0x0035, f01=0x0190, f02=» F P* $ P* RELEASE EXCLUSIVE ACCES FIRST P* : P PERF ZGREA D P* X 8 P* THE VALUES OF SPBINW2 AND SPINPUT ARE DESTROYED BY b < P* THE KI-INSTRUCTIONS IN PBBOOK OR DKDSTM, SO SAVE THEM " P* SPBINW2 IS SAVED IN IWINDEX1 * P* SP
0x0be8f0…0bea84 Dummy {f00=0x0035, f01=0x0190, f02=» * Z L P* ACCOUNTRECORD IN RANGE ? * L P* * j L P CBL IDACTNR1,=D'168000',S19100 L
0x0bea84…0bec18 Dummy {f00=0x0035, f01=0x0190, f02=» Z L PS19100 L P MOVE XWRET,=W'1' j L P MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' L
0x0bec18…0bedac Dummy {f00=0x0035, f01=0x0190, f02=»1 d P* PS19300 T P MOVE ADACTRNR,IDACTNR1 " T P MUL ADACTRNR,KDSHIFT z $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 T P TBT SBCANCEL,
0x0bedac…0bef40 Dummy {f00=0x0035, f01=0x0190, f02=» * n L P* ACCOUNTRECORD NOT CLOSED ? * . L P* * ~ L P CBE ADSTATUS,=D'2',S19950
0x0bef40…0bf0d4 (1, 241) Dummy {f00=0x0036, f01=0x0190, f02=» n L P* * . L P* STATUS DEBLOCKED ? * ~ L P*
0x0bf0d4…0bf268 Dummy {f00=0x0036, f01=0x0190, f02=» n L P MOVE SPBINW4,=W'28' 'ACCOUNT BLOCKED' . L P B S19999 ~ L PS19900
0x0bf268…0bf3fc Dummy {f00=0x0036, f01=0x0190, f02=»SPACE FOR TRANSACTIONRECORD? * L P* * L T P MOVE WDEC1,ADLASTRS T P PERF QENTRS,WDEC1
0x0bf3fc…0bf590 Dummy {f00=0x0036, f01=0x0190, f02=» L L P* * ! L P* NO SPACE AVAILABLE FOR TRANSACTIONRECORDS * ! d L P* * ! T P CBE
0x0bf590…0bf724 Dummy {f00=0x0036, f01=0x0190, f02=»05 ! ~ L P* * " F L P* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS * " L P*
0x0bf724…0bf8b8 Dummy {f00=0x0036, f01=0x018e, f02=» SBCANCEL,S19999 " P* # @ P* THE ACCOUNT RECORD HAS BEEN REWRITTEN BY PBBOOK OR DKDSTM # " . P* SO READ IT AGAIN TO GET EXCLUSIVE ACCESS # f P* # $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 # P TBT SBCANCEL,S19999 # T PS19910
0x0bf8b8…0bfa4c Dummy {f00=0x0036, f01=0x0190, f02=» P MOVE TDNEWBAL,=D'0' $ P ERASE 0,KW4,KW4 $ P DISPLAY 4,KW4,KW4 $ 8 P TBT SBCHQACT,S19920 $ R L P* SAVINGS-ACCOUNT * $ n P ERASE 2,KW2,KW5 $ P B S19930 $ L P* CHEQUE-ACCOUNT
0x0bfa4c…0bfbe0 Dummy {f00=0x0036, f01=0x0190, f02=» $ T PS19940 % 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' % ` T P MOVE XWRET,=W'1' % T P B S19999
0x0bfbe0…0bfd74 (1, 242) Dummy {f00=0x0036, f01=0x0190, f02=»RET,=W'1' % L PS19999 & P* & b " P* RESTORE SPBINW2 AND SPINPUT & l P* & P MOVE SPBINW2,IWINDEX1 & P MOVE SPINPUT,IDACTNR1 & L P RET
0x0bfd74…0bff08 Dummy {f00=0x0036, f01=0x0190, f02=»************************************************ & x L PSPAP20 PROC XWRET ' 8 P PBIN XWRET ' L PS20000 ' L P*
0x0bff08…0c009c Dummy {f00=0x0036, f01=0x0190, f02=» * ' L P CBL IDACTNR2,=D'168000',S20100 ( L L P CBG IDACTNR2,=D'168999',S20100 ( L P B S20200
0x0c009c…0c0230 Dummy {f00=0x0036, f01=0x0190, f02=»E XWRET,=W'1' ( L P MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' ) L L P B S20999 ) L PS20200
0x0c0230…0c03c4 Dummy {f00=0x0036, f01=0x0190, f02=»ACCOUNT (TO) EQUAL TO ACCOUNT (FROM) * ) L P* * * L T P CBNE IDACTNR1,IDACTNR2,S20300 * L P MOVE XWRET,=W'1'
0x0c03c4…0c0558 Dummy {f00=0x0036, f01=0x0190, f02=» L P B S20999 + L PS20300 + T L P* * + L P* READ ACCOUNT(TO)
0x0c0558…0c06ec Dummy {f00=0x0036, f01=0x0190, f02=» T P MOVE BDACTRNR,IDACTNR2 , T P MUL BDACTRNR,KDSHIFT , J P PERF ZCRDD,BDACTRNR,NDLRN2,KW1 , T P TBT S
0x0c06ec…0c0880 Dummy {f00=0x0036, f01=0x0190, f02=» , Z L PS20400 - L P* * - j L P* ACCOUNT NOT CLOSED ? * - L
0x0c0880…0c0a14 (1, 243) Dummy {f00=0x0036, f01=0x0190, f02=» - Z L P CBE BDSTATUS,=D'3',S20950 . L PS20600 . j L P* * . L
0x0c0a14…0c0ba8 Dummy {f00=0x0036, f01=0x0190, f02=» * . Z L P CBE BDSTATUS,=D'0',S20700 / L P MOVE XWRET,=W'1' / j L P MOVE SPBINW4,=W'28' 'ACCOUNT BLOCKED' / L
0x0c0ba8…0c0d3c Dummy {f00=0x0036, f01=0x0190, f02=» / Z L P* * 0 " L P* SPACE AVAILABLE FOR TRANSACTION-RECORDS? * 0 r L P*
0x0c0d3c…0c0ed0 Dummy {f00=0x0036, f01=0x0190, f02=» 0 j T P CBNE BDSTMTRS,WDEC1,S20900 SPACE AVAILABLE 1 2 P MOVE XWRET,=W'1' 1 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' 1 P B S20999 1 L PS20900
0x0c0ed0…0c1064 Dummy {f00=0x0036, f01=0x0190, f02=» S20999 1 PS20950 2 . P MOVE SPBINW4,=W'29' 'RECORD KEY INVALID' 2 P MOVE XWRET,=W'1' 2 P L PS20999 2 j L P RET 2 L
0x0c1064…0c11f8 Dummy {f00=0x0036, f01=0x0190, f02=»****************** 2 Z L P END 3 L PPRT004 FRMT 3 j L P FTEXT '0+' 3 L
0x0c11f8…0c138c Dummy {f00=0x0036, f01=0x0190, f02=» 3 Z L P FCOPY CCCCYCDE 4 L P FTAB 7 4 j L P FMEL 'ZZ.ZZZ.ZZ9,99-',TDAMOUNT 4 L
0x0c138c…0c1520 Dummy {f00=0x0036, f01=0x0190, f02=» 4 Z L P FTEXT '0+' 5 L P FMEL '9',RDSHRPRT 5 j L P FBF SBRVS,P08100 5 L
0x0c1520…0c16b4 (1, 244) Dummy {f00=0x0036, f01=0x0190, f02=» 5 Z L PP08100 6 L P FTAB 14 6 j L P FMEL '999',TDTRSCDE 6 L
0x0c16b4…0c1848 Dummy {f00=0x0036, f01=0x0190, f02=» 6 Z L P FMEND 7 L P************************************************************************ 7 j L P* * 7 L
0x0c1848…0c19dc Dummy {f00=0x0036, f01=0x0190, f02=» * 7 Z L P************************************************************************ 8 L PFMT045 FRMT 8 j L P FSL 8 L
0x0c19dc…0c1b70 Dummy {f00=0x0036, f01=0x0190, f02=» 8 Z L P FKI 27,MINL=6,MAXL=6,NUM,ME,APPL=00 9 L P FMEL 'ZZZZZZ',ADATRNR 9 j L P FB F04520 9 L
0x0c1b70…0c1d04 Dummy {f00=0x0036, f01=0x0190, f02=» 9 Z L PF04520 : L P FNL : j L P FBT SBCHQACT,F04530 : L
0x0c1d04…0c1e98 Dummy {f00=0x0036, f01=0x0190, f02=» : Z L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 ; L P FTEXT ' LINE: ' ; j L P FKI 35,MINL=1,MAXL=2,NUM,ME,APPL=11 ; L
0x0c1e98…0c202c Dummy {f00=0x0036, f01=0x0190, f02=» ; Z L PF04530 < L P FTEXT 'CREDIT LIMIT : ' < j L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK < L
0x0c202c…0c21c0 Dummy {f00=0x0036, f01=0x0190, f02=» < Z L P FTEXT 'AMOUNT : ' = L P FKI 24,MINL=1,MAXL=11,NUM,ME,APPL=14 = j L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT = L
0x0c21c0…0c2354 (1, 245) Dummy {f00=0x0037, f01=0x0190, f02=» = Z L P FMEL 'ZZZZZZZZZ,ZZ',TDNEWBAL > L P FNL > j L P FTEXT 'TRANSFER TO ACCOUNT : ' > L
0x0c2354…0c24e8 Dummy {f00=0x0037, f01=0x40be, f02=» > Z L P FMEND ? L P END ? j@ ? XT 'TRANSFER TO ACCOUNT : ' > L
0x0c24e8…0c267c Dummy {f00=0x0037, f01=0x2008, f02=» @ & x L P FKI 24,MINL=6,MAXL=6,NUM,ME,APPL=00 ' 8 L P FMEL 'ZZZZZZ',BDACTRNR ' L P FMEND
0x0c267c…0c2810 Dummy {f00=0x0037, f01=0x0190, f02=» L PDE460 L P CBE IDNR1,=D'2',DE100 T L P ADD IDACTNR1,IDNR1 L P* DON'T TRY THIS ACC
0x0c2810…0c29a4 Dummy {f00=0x0037, f01=0x0190, f02=» L P B DE440 L P* * T L P* THE ACCOUNT NUMBER IS A VALID ONE * L P* NOW READ THE ACCOU
0x0c29a4…0c2b38 Dummy {f00=0x0037, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x0c2b38…0c2ccc Dummy {f00=0x0037, f01=0x0190, f02=» L P* GET SYMBOLIC KEY * J P XCOPY WDEC1,KW0,WW2,ADACTRNR,KW0 T ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P BNOK DE800 READ FAILED, NEXT
0x0c2ccc…0c2e60 Dummy {f00=0x0037, f01=0x0190, f02=»NGTH IN NWRECLNG n L P CALL QEMOVE,ADACTRNR,FCBUFFER,NWRECLNG . L P CBG ADSTATUS,=D'1',DE800 ACCOUNT CLOSED ~ L P*
0x0c2e60…0c2ff4 (1, 246) Opaque[0x194]
0x0c2ff4…0c3188 # DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0001, f01=0x0001, f02=0x06e8, f03=0x004a}
0x0c2ff4…0c3188 IdxSect {
0x0c2ff4…0c3188 f00 = 0x0037 // 0xc2ff4 @0x0
0x0c2ff4…0c3188 f01 = 0x0002 // 0xc2ff6 @0x2
0x0c2ff4…0c3188 gno = [ // 0xc2ff8 @0x4
0x0c2ff4…0c3188 [0x00]: C0x0037.0x1.0
0x0c2ff4…0c3188 ]
0x0c2ff4…0c3188 }
0x0c3188…0c331c Dummy {f00=0x0037, f01=0x0190, f02=» > : IDENT DOQCCY CURRENCY INQUIRY DDIV DEMODD F PDIV Z P EXPROC EPPCCY h P EXPROC PAJRN ~ P EXPROC XBFMT ENTRY DOQCCY J F**********************************************************************
0x0c331c…0c34b0 Dummy {f00=0x0037, f01=0x0190, f02=» PROC SET SBQCCY " P PERF PAJRN,=W'1' " ( P TBF SBFT80,DO100 NOCOMPACT TERMINAL H P PERF XBFMT,=W'72' t P B DO200 PDO100 PERF XBFMT,=W'57' PDO200 TBT SBCANCEL,DO999 * * PRINT LINE
0x0c34b0…0c3644 Dummy {f00=0x0037, f01=0x4084, f02=»CCY RET PEND J F********************************************************************** & END t@ 2' t P B DO200 PDO100 PERF XBFMT,=W'57' PDO200 TBT SBCANCEL,DO999 * * PRINT LINE
0x0c3644…0c37d8 Dummy {f00=0x0037, f01=0x2008, f02=» Q,=D'1' MOVE TDLASSEQ,YDLASSEQ DO999 8 CLEAR SBQCCY F RET PEND h J F********************************************************************** v END *EOF *EOF @ '57' TBT SBCANCEL,DO
0x0c37d8…0c396c Dummy {f00=0x0037, f01=0x0190, f02=» d T P BOK QI070 RECORD IS USED , L P* NO DATA * T P ADD WWCOUNT,=W'1' ONE MORE FREE RECORD
0x0c396c…0c3b00 Dummy {f00=0x0037, f01=0x0190, f02=»D NEXT RECORD L P* * L . P* 'NO DATA' IS OFF, CHECK FOR DISK-ERRORS L P*
0x0c3b00…0c3c94 (1, 247) Opaque[0x194]
0x0c3c94…0c3e28 # DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x8547, f01=0x000e, f02=0x06f0, f03=0x0002}
0x0c3c94…0c3e28 IdxSect {
0x0c3c94…0c3e28 f00 = 0x0037 // 0xc3c94 @0x0
0x0c3c94…0c3e28 f01 = 0x000e // 0xc3c96 @0x2
0x0c3c94…0c3e28 gno = [ // 0xc3c98 @0x4
0x0c3c94…0c3e28 [0x00]: C0x0037.0x2.0
0x0c3c94…0c3e28 [0x01]: C0x0037.0x3.0
0x0c3c94…0c3e28 [0x02]: C0x0038.0x0.0
0x0c3c94…0c3e28 [0x03]: C0x0038.0x1.0
0x0c3c94…0c3e28 [0x04]: C0x0038.0x2.0
0x0c3c94…0c3e28 [0x05]: C0x0038.0x3.0
0x0c3c94…0c3e28 [0x06]: C0x0039.0x0.0
0x0c3c94…0c3e28 ]
0x0c3c94…0c3e28 }
0x0c3e28…0c3fbc Dummy {f00=0x0037, f01=0x0190, f02=» 0 P IDENT DPECCY EXCHANGE CURRENCY L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x0c3fbc…0c4150 Dummy {f00=0x0037, f01=0x0190, f02=» P EXPROC TNDCAB D L P ENTRY DPECCY Z L P ENTRY SPAP26 L P**************
0x0c4150…0c42e4 Dummy {f00=0x0037, f01=0x0190, f02=» * J L P* PROCEDURE: DPECCY * L P* FUNCTIONAL DESCRIPTION: * Z L P* EXCHANGE CURRENCY (BUYING OR SELLING) * L P* - IF TH
0x0c42e4…0c4478 Dummy {f00=0x0037, f01=0x0190, f02=» * J L P* OTHERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND * L P* CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD. * Z L P* - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED * L P* BY DI
0x0c4478…0c460c Dummy {f00=0x0037, f01=0x0190, f02=» * J L P* (THE COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED * L P* IN SPAP26). * Z L P* - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED * L P* AND T
0x0c460c…0c47a0 Dummy {f00=0x0037, f01=0x0190, f02=» * J L P* NWKTBIX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF) * L P* SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF) * Z L P* IDNR1: RATE 1 (BUYING OR SELLING) * L P* IDNR2:
0x0c47a0…0c4934 (1, 248) Dummy {f00=0x0037, f01=0x0190, f02=» * J L P* IDAMT1: AMOUNT QUOTED * L P* IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1) * Z L P* ICTEXT1: CURRENCY CODE FOR IDAMT1 * L P* ICTEXT2
0x0c4934…0c4ac8 Dummy {f00=0x0037, f01=0x0190, f02=» * J L P************************************************************************ L PDPECCY PROC Z L PDP000 L P SET SBECCY
0x0c4ac8…0c4c5c Dummy {f00=0x0037, f01=0x0190, f02=» J L P* * L P* IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY * Z L P* UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD * L P* CURRENCY REC
0x0c4c5c…0c4df0 Dummy {f00=0x0037, f01=0x0190, f02=» * J L P TBT SBFLDEMP,DP100 FIELD EMPTY L P PERF XBFMT,=W'15' CURRENCY UPDATE Z L P TBT SBCANCEL,DP980 PDP100 L P
0x0c4df0…0c4f84 Dummy {f00=0x0037, f01=0x0190, f02=» * X L P* 'OUT': CURRENCY SELLING * L P* * h L P MOVE TDTRSCDE,=D'91' L P
0x0c4f84…0c5118 Dummy {f00=0x0037, f01=0x0190, f02=» X L P B DP300 L P* * h L P* 'IN': CURRENCY BUYING * L P
0x0c5118…0c52ac Dummy {f00=0x0037, f01=0x0190, f02=»T f L P MOVE TDTRSCDE,=D'92' & L P MOVE IDNR1,CDBUY1 RATE 1 v L P MOVE IDNR2,CDBUY2 RATE 2
0x0c52ac…0c5440 Dummy {f00=0x0037, f01=0x0190, f02=» * f L P* * & L PDP300 v L P MOVE IDNR4,=D'1' INIT CONTINUATION FIELD
0x0c5440…0c55d4 (1, 249) Dummy {f00=0x0038, f01=0x0190, f02=» f L P MOVE IDAMT2,=D'0' INIT COUNTER VALUE & . P SET SBCCYKTB USE KTAB WITH CURRENCY KEYS v , P PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN L P TBT SBCANCEL,DP980
0x0c55d4…0c5768 Dummy {f00=0x0038, f01=0x0190, f02=»XCHANGE * x L P ADD YDLASSEQ,=D'1' 8 L P MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. L P*
0x0c5768…0c58fc Dummy {f00=0x0038, f01=0x0190, f02=» * x L P MOVE ICTEXT3,ICTEXT1 CURRENCY CODE 8 L P MOVE TDAMOUNT,IDAMT1 L P PERF PAJRN,=W'4' AMOUNT QUOTED
0x0c58fc…0c5a90 Dummy {f00=0x0038, f01=0x0190, f02=» x L P PERF PAJRN,=W'7' AMOUNT CALCULATED 8 L P* * L P* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY
0x0c5a90…0c5c24 Dummy {f00=0x0038, f01=0x0190, f02=»HE AMOUNT IN THE SYSTEM CURRENCY * x L P* AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY * 8 L P* * L P TBT SBEOI,DP700
0x0c5c24…0c5db8 Dummy {f00=0x0038, f01=0x0190, f02=» x L P MOVE IDAMT1,IDAMT2 8 L P MOVE IDAMT2,WDEC1 L P*
0x0c5db8…0c5f4c Dummy {f00=0x0038, f01=0x0190, f02=» * x L PDP700 8 L P TBF SBFLDEMP,DP800 L P TBT SBCCYIN,DP750
0x0c5f4c…0c60e0 Dummy {f00=0x0038, f01=0x0190, f02=»G * x L P* * 8 L P ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE L P SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <
0x0c60e0…0c6274 (1, 250) Dummy {f00=0x0038, f01=0x0190, f02=»DAMT2 ACC.CCY BOUGHT & SOLD x L P B DP800 $ L P* * t L P* 'IN': CURRENCY BUYING
0x0c6274…0c6408 Dummy {f00=0x0038, f01=0x0190, f02=» d P MOVE TDAMOUNT,IDAMT1 $ L P SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE B L P ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> L P ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY
0x0c6408…0c659c Dummy {f00=0x0038, f01=0x0190, f02=» * n L P* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE * . L P* * ~ L PDP800
0x0c659c…0c6730 Dummy {f00=0x0038, f01=0x0190, f02=» PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER L PDP980 P L PDP999 L P CLEAR SBECCY
0x0c6730…0c68c4 Dummy {f00=0x0038, f01=0x0190, f02=» RET L P PEND P L P************************************************************************ L P*
0x0c68c4…0c6a58 Dummy {f00=0x0038, f01=0x0190, f02=»* PARAMETERS: * L P* XWRET: RETURN CODE FOR SPAPPL * P L P* FUNCTIONAL DESCRIPTION: * L P* CALCULATE CURRENC
0x0c6a58…0c6bec Dummy {f00=0x0038, f01=0x0190, f02=»* FILL THE CURRENCY CODES ON THE SCREEN. * > P* IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE P : P* IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, 6 P* THEN RATE 2 MUST BE USED FOR THE EXCHANGE. L
0x0c6bec…0c6d80 Dummy {f00=0x0038, f01=0x0190, f02=» * Z L P* IDNR2: RATE 2 (BUYING OR SELLING) * L P* IDNR3: WILL CONTAIN THE RATE ACTUALLY USED * j L P* IDAMT1: AMOUNT QUOTED * L
0x0c6d80…0c6f14 (1, 251) Dummy {f00=0x0038, f01=0x018e, f02=»REIGN CCY USED * Z L P* SBEOI: WILL INDICATE WHETHER THE AMOUNT QUOTED IS CLOSED WITH $ P* AN EOI OR NOT j L P* * L P**************************************
0x0c6f14…0c70a8 Dummy {f00=0x0038, f01=0x0190, f02=» L PS26000 L P MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 X P CLEAR SBEOI P* 8 P* KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY 0 P* KEYS
0x0c70a8…0c723c Dummy {f00=0x0038, f01=0x018e, f02=» * f L P* AMOUNT IS CLOSED WITH A CURRENCY KEY, * & L P* THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY * v L P*
0x0c723c…0c73d0 Dummy {f00=0x0038, f01=0x0190, f02=» L P MOVE ICTEXT1,CCCCYCDE FOREIGN CURRENCY ! L P MOVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY ! T L P* * ! 4 P* COUNTER VALUE = ID
0x0c73d0…0c7564 Dummy {f00=0x0038, f01=0x0190, f02=»OT ZERO, USE RATE 2 FOR THE EXCHANGE * ! | L P* * " < L P* START THE CALCULATION WITH RATE 1 * " L P*
0x0c7564…0c76f8 Dummy {f00=0x0038, f01=0x0190, f02=» " | L P DVR IDAMT2,CDRELAT # < P DVR IDAMT2,=D'100' # L P CBE IDNR2,=D'0',S26800 RATE 2 = 0 # L P CBNG IDAMT2,CDL
0x0c76f8…0c788c Dummy {f00=0x0038, f01=0x0190, f02=» # H L P MOVE IDNR3,IDNR2 SAVE RATE 2 $ L P MOVE IDAMT2,IDAMT1 $ X L P MUL IDAMT2,IDNR2 $ L P DVR IDAMT2,CDRE
0x0c788c…0c7a20 Dummy {f00=0x0038, f01=0x0190, f02=» $ d L P* * % $ L P* AMOUNT IS CLOSED WITH EOI, * % t L P* THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY
0x0c7a20…0c7bb4 (1, 252) Dummy {f00=0x0038, f01=0x0190, f02=» % d L P SET SBEOI INDICATE EOI & $ L P MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY & t L P MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY
0x0c7bb4…0c7d48 Dummy {f00=0x0038, f01=0x0190, f02=» RATE) & d L P* * ' L P MOVE IDAMT2,IDAMT1 ' ^ L P MUL IDAMT2,CDRELAT ' P MUL IDAMT
0x0c7d48…0c7edc Dummy {f00=0x0038, f01=0x0190, f02=»IT THEN RATE 1 MUST BE USED * ' j L P* ELSE USE RATE 2 * ( * L P* * ( z L P CBE IDNR2,=D'0',S26600 RATE 2 = 0
0x0c7edc…0c8070 Dummy {f00=0x0038, f01=0x0190, f02=» * ( j L P MOVE IDNR3,IDNR2 SAVE RATE 2 ) * L P DVR IDAMT2,IDNR2 ) z L P B S26800
0x0c8070…0c8204 Dummy {f00=0x0038, f01=0x0190, f02=» ) j L P DVR IDAMT2,IDNR1 * * L P* * * z L P* REDISPLAY THE CURRENT LINE AND THE NEXT ONE
0x0c8204…0c8398 Dummy {f00=0x0038, f01=0x0190, f02=» * j L P ERASE 0,KW3,KW4 + * L P DISPLAY 4,KW3,KW4 + z L PS26999
0x0c8398…0c852c Dummy {f00=0x0038, f01=0x40ce, f02=» + j L P************************************************************************ , * L P END , z@ , 99
0x0c852c…0c86c0 Dummy {f00=0x0038, f01=0x2008, f02=» - x@ 8AR SBCCYIN 8 L P RET L P PEND
0x0c86c0…0c8854 (1, 253) Dummy {f00=0x0039, f01=0x0190, f02=» ( F F & F & KASSENBESTAND: F . & F J & # A F X & F h ZZZZZZZZ9,99- F v " S F & F & KASSENBESTAND : F & F & # A F & F ZZ
0x0c8854…0c89e8 Dummy {f00=0x0039, f01=0x0190, f02=»ZZZZZZ9,99- F " S G & G & & KASSENBESTAND : G 4 & G R & # A G ` & G p ZZZZZZZZ9,99- G ~ " S G & G & SCHECK SALDO : G & G & # C G & G
0x0c89e8…0c8b7c Dummy {f00=0x0039, f01=0x0190, f02=» & GESAMTUMSATZ: H & H & # E H . & H > ZZZZZZZZ9,99- H L " JE H j & H z & GESAMTUMSATZ: H & H & # E H & H ZZZZZZZZ9,99- H " A H & H
0x0c8b7c…0c8d10 Dummy {f00=0x0039, f01=0x0190, f02=» & GESAMTUMSATZ: I & I & # E I . & I > ZZZZZZZZ9,99- I L " A I j & I | & WAEHRUNGSUMSATZ: I & I & # A I & I ZZZZZZZZ9,99-: I " KA I ( I
0x0c8d10…0c8ea4 Dummy {f00=0x0039, f01=0x0190, f02=» I t ( J J & J $ & I/O ERRORT J 2 ( J J J V & J f & EOI-KEY UNZULAESSIGA J t ( J J & J & FELD EINGEBENA J ( J J & J
0x0c8ea4…0c9038 Dummy {f00=0x0039, f01=0x0190, f02=» J & SCHALTER TERMINALO K ( K ( K 4 & K D & WERT MUSS NULL SEINA K R ( K t K & K & BEDIENUNGSFEHLER K ( K K & K & UNGUELTIGER VERGLEICHZ K
0x0c9038…0c91cc Dummy {f00=0x0039, f01=0x0190, f02=»EITS ANGEMELDETR K ~ ( L L $ & L 4 & FALSCHES KENNWORTA L B ( L b " L n & L ~ * % &# TERM. GESPERRT, REVISION VERST,E L ( L L & L & KONTO GESPERRT L ( L
0x0c91cc…0c9360 Dummy {f00=0x0039, f01=0x0190, f02=»RLANGT L v ( M M & M * & AUSFALL EINGABEGERAETL M 8 ( M % M h & M x , ( && "VERLANGTES GERAET NICHT SPEZIFIERT M ( M M & " M & SPARKONTOS M ( M
0x0c9360…0c94f4 (1, 254) Opaque[0x194]
0x0c94f4…0c9688 # DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x8547, f01=0x0012, f02=0x0728, f03=0x0004}
0x0c94f4…0c9688 IdxSect {
0x0c94f4…0c9688 f00 = 0x0039 // 0xc94f4 @0x0
0x0c94f4…0c9688 f01 = 0x0004 // 0xc94f6 @0x2
0x0c94f4…0c9688 gno = [ // 0xc94f8 @0x4
0x0c94f4…0c9688 [0x00]: C0x0039.0x1.0
0x0c94f4…0c9688 [0x01]: C0x0039.0x2.0
0x0c94f4…0c9688 ]
0x0c94f4…0c9688 }
0x0c9688…0c981c Dummy {f00=0x0039, f01=0x0190, f02=» 0 P IDENT DQCOPR CLOSE OPERATOR L P DDUM DEMODD 8 L P PDIV P EXPROC PAJRN P EXPROC XBFMT P EXP
0x0c981c…0c99b0 Dummy {f00=0x0039, f01=0x0190, f02=»********************************** j P* * P* CLOSE OPERATOR 4 P* L L P************************************************************************ V L PDQCOPR PROC P CLEAR SBOPRCLS
0x0c99b0…0c9b44 Dummy {f00=0x0039, f01=0x0190, f02=» P MOVE WDEC2,=D'0' P* P* PRINT LINE TYPE 1 ( P* D P PERF PAJRN,=W'1' N P TBF SBFT80,DQ100 h P PERF XBFMT,=W'73' P B DQ110 PDQ100 P PERF XBFMT,=W'59' PDQ110 T P TBT SBCANCEL,DQ999
0x0c9b44…0c9cd8 Dummy {f00=0x0039, f01=0x0190, f02=»KW2,KW4) ~ P ADD WDEC2,ODCASH(KW3,KW4) P ADD WDEC2,ODCASH(KW3,KW5) 2 * P TBF SBFT80,DQ200 NO COMPACT TERMINAL T P PERF XBFMT,=W'74' P B DQ210 PDQ200 P PERF XBFMT,=W'60' PDQ210 T P CLEAR SBCANCEL IGNORE CANCEL-KEY
0x0c9cd8…0c9e6c Dummy {f00=0x0039, f01=0x018e, f02=» * L P* PRINT CURRENCY CODES AND OPERATOR BALANCES * J L P* * L P******************************
0x0c9e6c…0ca000 Dummy {f00=0x0039, f01=0x0190, f02=» T P MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE T P PERF PAJRN,=W'7' L P* * T P MOV
0x0ca000…0ca194 (1, 255) Dummy {f00=0x0039, f01=0x0190, f02=»1 T P PERF PAJRN,=W'7' $ L P* * | T P MOVE ICTEXT3,YCCCY(KW2) CURRENCY CODE 2
0x0ca194…0ca328 Dummy {f00=0x0039, f01=0x0190, f02=» | L P* * D T P MOVE ICTEXT3,YCCCY(KW3) CURRENCY CODE 3 T P MOVE TDAMOUNT,ODCASH(KW1,KW
0x0ca328…0ca4bc Dummy {f00=0x0039, f01=0x018e, f02=» D P MOVE ODSTATUS,=D'1' P PERF ZHWRID,ODOPRRNR,NDLRN1 ( P TBT SBCANCEL,DQ980 L P* h , P* UPDATE LAST TANSACTION SEQUENCE NUMBER r P* P ADD YDLASSEQ,=D'1' P MOVE TDTRSSEQ,YDLASSEQ P MOVE ODSTATUS,=D'0' P MOV
0x0ca4bc…0ca650 Dummy {f00=0x0039, f01=0x4148, f02=» L P RET L P PEND T L P************************************************************************ L P END
0x0ca650…0ca7e4 Dummy {f00=0x0039, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x0ca7e4…0ca978 Dummy {f00=0x0039, f01=0x0190, f02=»CESS " j P* # $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 # P TBT SBCANCEL,S19999 # > T PS19910 # Z P CBL RDSCRLNS,=D'4',S19930 # P ERASE 0,KW2,KW2 # P DISPLAY 4,KW2,KW2 # P M
0x0ca978…0cab0c Dummy {f00=0x0039, f01=0x0190, f02=» * # p P ERASE 2,KW2,KW5 $ 0 P B S19930 $ H L P* CHEQUE-ACCOUNT * $ Z PS19920 $ P ERASE 2,KW2,KW3 $ PS19930 $ P MOVE XWRET,=W'0' $ P B S19999 $ T
0x0cab0c…0caca0 Dummy {f00=0x0039, f01=0x0190, f02=»' $ b T P MOVE XWRET,=W'1' % T P B S19999 % b PS19950 % . P MOVE SPBINW4,=W'29' 'RECORD KEY INVALID' % P MOVE XWRET,=W
0x0caca0…0cae34 (1, 256) Opaque[0x194]
0x0cae34…0cafc8 # DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0508, f01=0x8547, f02=0x0738, f03=0xa047}
0x0cae34…0cafc8 IdxSect {
0x0cae34…0cafc8 f00 = 0x0039 // 0xcae34 @0x0
0x0cae34…0cafc8 f01 = 0x0002 // 0xcae36 @0x2
0x0cae34…0cafc8 gno = [ // 0xcae38 @0x4
0x0cae34…0cafc8 [0x00]: C0x0039.0x3.0
0x0cae34…0cafc8 ]
0x0cae34…0cafc8 }
0x0cafc8…0cb15c Dummy {f00=0x0039, f01=0x0190, f02=» > P IDENT ZFMTIO FORMAT I/O CONTROL P DDUM DEMODD F P PDIV Z P EXPROC XAKBIN h P ENTRY ZKOPNF ~ P ENTRY ZLCLSF PZKOPNF PROC PZK000 P MOVE FCPARAM1,=X'0' P MOVE WW1,=W'16' P MOVE WW
0x0cb15c…0cb2f0 Dummy {f00=0x0039, f01=0x0190, f02=»WCSTRG6,='DSC001' 4 P XCOPY FCPARAM1,WW1,KW6,WCSTRG6,KW0 SET VOLNMAE P MOVE WW1,=W'29' R ( P XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0 j P MOVE WW1,=W'66' $ P OPEN DSFMTFLE,1,0,FCPARAM1,WW1 P BOK ZK999 P RSTAT DSFMTFLE,NWXSTAT P
0x0cb2f0…0cb484 Dummy {f00=0x0039, f01=0x4178, f02=»ET SBCANCEL PZK999 P RET " P PEND . P* < P* F PERROPF FRMT P P FCOPY =X'2031' d * P FTEXT 'FORMATFILE OPEN UNSUCCESSFULL' | P FMEND P* P* PZLCLSF PROC PZL000 P CLOSE DSFMTFLE PZL
0x0cb484…0cb618 Dummy {f00=0x0039, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x0cb618…0cb7ac Dummy {f00=0x0039, f01=0x0190, f02=» C p * & /# G `7 J J J D * & K K e f g h D < * & 9 a b c d _z e D j * & W f g h a b c D * & u d A BI2 +` + "b I2 I D * & 2 W "a
0x0cb7ac…0cb940 Dummy {f00=0x0039, f01=0x0190, f02=»r ct du cv dw D ~ * & l#S y l# x 4 %y` E * & ) #y W C 4 !u~ $tu E J * & G C$W%#u~ #w~ x~W>#x~ x %7d 0 E x * & e 0 4 !w~ "vw C$W%# E * & u~ #w~ x~W #x~ x %7d 0 0 E * &
0x0cb940…0cbad4 (1, 257) Opaque[0x194]
0x0cbad4…0cbc68 # DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x8024, f01=0x0507, f02=0x0740, f03=0xfff2}
0x0cbad4…0cbc68 IdxSect {
0x0cbad4…0cbc68 f00 = 0x003a // 0xcbad4 @0x0
0x0cbad4…0cbc68 f01 = 0x000a // 0xcbad6 @0x2
0x0cbad4…0cbc68 gno = [ // 0xcbad8 @0x4
0x0cbad4…0cbc68 [0x00]: C0x003a.0x0.0
0x0cbad4…0cbc68 [0x01]: C0x003a.0x1.0
0x0cbad4…0cbc68 [0x02]: C0x003a.0x2.0
0x0cbad4…0cbc68 [0x03]: C0x003a.0x3.0
0x0cbad4…0cbc68 [0x04]: C0x003b.0x0.0
0x0cbad4…0cbc68 ]
0x0cbad4…0cbc68 }
0x0cbc68…0cbdfc Dummy {f00=0x003a, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x0cbdfc…0cbf90 Dummy {f00=0x003a, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x0cbf90…0cc124 Dummy {f00=0x003a, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x0cc124…0cc2b8 Dummy {f00=0x003a, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x0cc2b8…0cc44c Dummy {f00=0x003a, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x0cc44c…0cc5e0 Dummy {f00=0x003a, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x0cc5e0…0cc774 (1, 258) Dummy {f00=0x003a, f01=0x0190, f02=» j L P USE UBF,NWUWBNR * L P BERR CG150 NO MORE UWB'S z N P TBF SBUSEDWB,CG100 UWB NOT IN USE
0x0cc774…0cc908 Dummy {f00=0x003a, f01=0x0190, f02=» * l L P* DISPLAY ERROR: UNSERVICABLE REQUEST * , 6 P* FIRST GET UWB'S TO BE ABLE TO DISPLAY THE ERROR | L P* * P P
0x0cc908…0cca9c Dummy {f00=0x003a, f01=0x0190, f02=» X PCG110 L P B CG990 & L P* * v L P* ALL UWB'S ARE NOT USED
0x0cca9c…0ccc30 Dummy {f00=0x003a, f01=0x0190, f02=» * f PCG150 & P* 4 P* FIRST GET UWB'S > P* X P PERF QCGUWB b , P CBG NWUWBNR,=W'0',CG160 UWB'S AVAILABLE v P B CG999 PCG160 , P MOVE YDSTATUS,=D'1' SYSTEM CLOSE PROGR. L P*
0x0ccc30…0ccdc4 Dummy {f00=0x003a, f01=0x0190, f02=» L P* * L P SET SBCSYS T L P PERF PAJRN,=W'1' P* F P* START SE
0x0ccdc4…0ccf58 Dummy {f00=0x003a, f01=0x0190, f02=»NR,=D'1' , P MUL ODOPRRNR,KDSHIFT SYSTEM RECORD KEY * P SET SBNOCOPY DON'T COPY RECORD TO UWB @ $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 n T P TBT SBCANCEL,CG390 P* : P* NOW SET NWRECL
0x0ccf58…0cd0ec Dummy {f00=0x003a, f01=0x0190, f02=»RECORD KEY z 4 P PERF ZYRLNG,ODOPRRNR RECORD LENGTH IN NWRECLNG P* J P* INITIALISE TOTAL FIELDS T P* v P MOVE WDEC1,=D'0' P MOVE WDEC2,=D'0' P MOVE IDNR1,=D'0' P MOVE IDNR2,=D'0' P MOVE IDNR3,=D'0' P MOVE
0x0cd0ec…0cd280 Dummy {f00=0x003a, f01=0x0190, f02=» T T P MOVE IDAMT2,=D'0' P* t F P* READ NEXT RECORD IN THE DATABASE AND CHECK WHETHER OR NOT IT IS ~ P* AN OPERATOR RECORD P* T PCG250
0x0cd280…0cd414 (1, 259) Dummy {f00=0x003a, f01=0x0190, f02=»TH l ( P READ .IXSEQ,DSDBS,FCBUFFER,WW1,KW1 , P BOK CG300 X P XSTAT DSDBS,NWXSTAT j * P MOVE WW1,=X'4800' EOF / KEY NOT FOUND & P CALL MASK,NWXSTAT,WW1 CHECK BITS . P BNOK CG350 EOF / KEY NOT FOUND --> READY
0x0cd414…0cd5a8 Dummy {f00=0x003a, f01=0x0190, f02=»PERATOR RECORD LENGTH IS IN NWRECLNG l P* , PCG300 6 , P CALL QEMOVE,ODOPRRNR,FCBUFFER,NWRECLNG D P MOVE TDOPRNR,ODOPRRNR t 0 P DIV TDOPRNR,KDSHIFT TO GET OPERATOR NUMBER 0 P CBL TDOPRNR,=D'10001',CG250 TRY NEXT RECORD & P CBG TDOPRNR,=
0x0cd5a8…0cd73c Dummy {f00=0x003a, f01=0x0190, f02=» T P CBNE ODSTATUS,=D'1',CG250 NOT INITIALIZED, READ NEXT L P* * ` L P* SAVE OPERATOR BALANCES AND ACCUMULATORS. * L P* F
0x0cd73c…0cd8d0 Dummy {f00=0x003a, f01=0x0190, f02=» * P L P* BALANCES AND ACCUMULATORS : * L P* WDEC1 : ODCASH(2,2)+ODCASH(2,3)+ODCASH(2,4) * ` L P* WDEC2 : ODCASH(3,4)+ODCASH(3,5) * L P* IDNR1
0x0cd8d0…0cda64 Dummy {f00=0x003a, f01=0x0190, f02=» * P L P* IDNR3 : ODCASH(1,3) IDAMT1 : ODCASH(3,2) * L P* IDNR4 : ODCASH(1,4) IDAMT2 : ODCASH(3,3) * ` L P* * T P ADD WDE
0x0cda64…0cdbf8 Dummy {f00=0x003a, f01=0x0190, f02=» X T P ADD WDEC1,ODCASH(KW2,KW4) T P ADD WDEC2,ODCASH(KW3,KW4) x T P ADD WDEC2,ODCASH(KW3,KW5)
0x0cdbf8…0cdd8c Dummy {f00=0x003a, f01=0x0190, f02=»H(KW1,KW2) T P ADD IDNR3,ODCASH(KW1,KW3) H T P ADD IDNR4,ODCASH(KW1,KW4) T P ADD IDACTNR1,OD
0x0cdd8c…0cdf20 Dummy {f00=0x003a, f01=0x018e, f02=» P T P ADD IDAMT1,ODCASH(KW3,KW2) T P ADD IDAMT2,ODCASH(KW3,KW3) p & P B CG250 TRY NEXT OPERATOR RECORD L P*
0x0cdf20…0ce0b4 (1, 260) Dummy {f00=0x003a, f01=0x0190, f02=» L P* * T PCG350 T T P MOVE ODCASH(KW1,KW1),IDNR1 T P MOV
0x0ce0b4…0ce248 Dummy {f00=0x003a, f01=0x0190, f02=» T P MOVE ODCASH(KW1,KW4),IDNR4 $ T P MOVE ODCASH(KW2,KW1),IDACTNR1 | T P MOVE ODCASH(KW3,KW1),IDACTNR2
0x0ce248…0ce3dc Dummy {f00=0x003a, f01=0x0190, f02=»(KW3,KW3),IDAMT2 L P* * L L P* DISPLAY OPERATOR CLOSE SCREENS * L P*
0x0ce3dc…0ce570 Dummy {f00=0x003a, f01=0x0190, f02=» T P PERF XBFMT,=W'60' PCG390 T P TBT SBCANCEL,CG980 j L PCG500
0x0ce570…0ce704 Dummy {f00=0x003a, f01=0x0190, f02=» b & P MOVE YDSTATUS,=D'3' SYSTEM CLOSED " L P* * L L P* WRITE THE SYSTEM RECORD * L P*
0x0ce704…0ce898 Dummy {f00=0x003a, f01=0x0190, f02=» SBCANCEL,CG980 L P PERF ZBCLSD CLOSE DATABASE P TBT SBCANCEL,CG980 h P PERF PAJRN,=W'3' L P PERF ZLCLSF CLOSE FORMATFILE N P B CG990
0x0ce898…0cea2c Dummy {f00=0x003a, f01=0x0190, f02=»* CANCEL EXIT, RESTORE STATUS * L P* * P L PCG980 L P MOVE YDSTATUS,=D'2' SYS
0x0cea2c…0cebc0 Dummy {f00=0x003a, f01=0x0190, f02=»CG990 P* 2 P* UWB'S HAVE BEEN GRABBED, SO NOW RELEASE THEM P* N P PERF QDFUWB X L PCG999 l P CLEAR SBCSYS L P RET
0x0cebc0…0ced54 (1, 261) Dummy {f00=0x003b, f01=0x4086, f02=»****************************************** r L P END 2@
0x0ced54…0ceee8 Dummy {f00=0x003b, f01=0x2008, f02=» IDENT CGCSYS CLOSE SYSTEM @ D
0x0ceee8…0cf07c Dummy {f00=0x003b, f01=0x0190, f02=» l 6 P PERF ZCRDD,YDSYSRNR,NDLRN1,KW1 READ SYSTEM RECORD P TBT SBCANCEL,CB900 B P TBT SBRECAVB,CB050 ^ P* z 4 P* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS P* P PERF EHISYS P* . P* WRITE THE SYSTEM RECORD TO THE DAT
0x0cf07c…0cf210 Dummy {f00=0x003b, f01=0x0190, f02=»DSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 . P PERF ZBCLSD CLOSE DATABASE TO UPDATE LRN 2 P TBT SBCANCEL,CB900 d ( P PERF ZAOPND AND OPEN DATABASE AGAIN P TBT SBCANCEL,CB900 P B CB500 CONTINUE PCB050 P* 4 P* CHECK WETHER
0x0cf210…0cf3a4 Dummy {f00=0x003b, f01=0x0190, f02=»LAST TIME h P* 0 , P* SYSTEM NOT CLOSED PROPERLY LAST TIME, : ( P* ENSURE THE DATABASE CONSISTENCY j P* 0 P MOVE YDSTATUS,=D'1' FIRST RESTORE YDSTATUS " P PERF QIRDBS RESTORE DATABASE P TBT SBCANCEL,
0x0cf3a4…0cf538 Dummy {f00=0x003b, f01=0x0190, f02=»T,=W'14' SYSTEM START 2 P TBT SBCANCEL,CB900 P* < 4 P* REWRITE SYSTEM RECORD, TO COVER THE SITUATION F 6 P* WHERE A BREAKDOWN OCCURS IN DAUCCY OR DBUOPR ~ P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 T P MUL N
0x0cf538…0cf6cc Dummy {f00=0x003b, f01=0x0190, f02=»VCTIME,KW0,KW6,WCSTRG12,KW2 GET RID OF SIGN AND FIRST 0 P SETTIME VCTIME P P* h " P* INITIALISE CURRENCY RECORDS r P* PCB600 P PERF DAUCCY P TBT SBCANCEL,CB900 P* " P* INITIALISE OPERA
0x0cf6cc…0cf860 Dummy {f00=0x003b, f01=0x0190, f02=» NOW d P* P* WRITE SYSTEM RECORD P* 4 P PERF ZHWRID,YDSYSRNR,NDLRN1 > P TBT SBCANCEL,CB900 b P B CB999 ~ L P* * L P* DISPLAY ERROR: DISK ERROR
0x0cf860…0cf9f4 (1, 262) Opaque[0x194]
0x0cf9f4…0cfb88 # DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x9096, f01=0xe74c, f02=0x0768, f03=0x8723}
0x0cf9f4…0cfb88 IdxSect {
0x0cf9f4…0cfb88 f00 = 0x003b // 0xcf9f4 @0x0
0x0cf9f4…0cfb88 f01 = 0x0004 // 0xcf9f6 @0x2
0x0cf9f4…0cfb88 gno = [ // 0xcf9f8 @0x4
0x0cf9f4…0cfb88 [0x00]: C0x003b.0x1.0
0x0cf9f4…0cfb88 [0x01]: C0x003b.0x2.0
0x0cf9f4…0cfb88 ]
0x0cf9f4…0cfb88 }
0x0cfb88…0cfd1c Dummy {f00=0x003b, f01=0x0190, f02=» PASG /2,NO J PTRA AADEMO,NL J PTRA BASPCT,NL d J PTRA BCSTTO,NL J PTRA BESE
0x0cfd1c…0cfeb0 Dummy {f00=0x003b, f01=0x0190, f02=» d J PTRA CEGACT,NL " PKPF /O p PSCR ~ J PTRA CFCHKH,NL J PTRA CGCSYS,NL
0x0cfeb0…0d0044 Dummy {f00=0x003b, f01=0x0190, f02=» R J PTRA DDTP71,NL J PTRA DELACT,NL ^ PKPF /O PSCR J PTRA DFOACT,NL
0x0d0044…0d01d8 Dummy {f00=0x003b, f01=0x0190, f02=» b J PTRA DIQACT,NL J PTRA DJUACT,NL n PTRA DKDSTM,NL PKPF /O PSCR J PTRA DLDEP,NL
0x0d01d8…0d036c Dummy {f00=0x003b, f01=0x0190, f02=»F,NL J PTRA DOQCCY,NL F J PTRA DPECCY,NL J PTRA DQCOPR,NL
0x0d036c…0d0500 Dummy {f00=0x003b, f01=0x018e, f02=» PTRA PBBOOK,NL J PTRA PRINT,NL PTRA QIRDBS,NL l J PTRA QMISC,NL PTRA DEMSCR,NL J PTRA SPACHQ,NL
0x0d0500…0d0694 (1, 263) Dummy {f00=0x003b, f01=0x018e, f02=» PTRA TNDPAY PTRA TNDREM PKPF /O , PSCR : PTRA XBFMT,NL F J PTRA XMESG,NL Z J PTRA XOPINP,NL J PTRA ZDSCIO,NL
0x0d0694…0d0828 Dummy {f00=0x003b, f01=0x0082, f02=» PTRA ZMRDF,NL PASM QEMOVE,NL PASM DEFDOC,NL . PKPF /O D PSCR R PASG /2,LP0F ^ PASG /E0,TY10 r Z J PTRA XOPINP,NL J PTRA ZDSCIO,NL
0x0d0828…0d09bc Dummy {f00=0x003b, f01=0x2008, f02=» ZMRDF,NL PASM QEMOVE,NL PASM DEFDOC,NL . PKPF /O D PSCR R PASG /2,LP0F ^ PASG /E0,TY10 r Z J PTRA XOPINP,NL J PTRA ZDSCIO,NL
0x0d09bc…0d0b50 Dummy {f00=0x003b, f01=0x0190, f02=» t T Z d * n v ( R , @ A0 0 * h 8 UBF TUIF UCY UOP UA1 nUA2 (UT1 UT2 UQQ (
0x0d0b50…0d0ce4 Dummy {f00=0x003b, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N 20 0 0 0 0 0 50 ;0 A0
0x0d0ce4…0d0e78 Dummy {f00=0x003b, f01=0x0190, f02=»0 -0 . F : 0 0 0 @
0x0d0e78…0d100c Dummy {f00=0x003b, f01=0x0190, f02=»
[…0x1…]
0x0d11a0…0d1334 (1, 264) Opaque[0x194]
0x0d1334…0d14c8 # DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0002, f01=0x8720, f02=0x0778, f03=0x8743}
0x0d1334…0d14c8 IdxSect {
0x0d1334…0d14c8 f00 = 0x003b // 0xd1334 @0x0
0x0d1334…0d14c8 f01 = 0x0004 // 0xd1336 @0x2
0x0d1334…0d14c8 gno = [ // 0xd1338 @0x4
0x0d1334…0d14c8 [0x00]: C0x003b.0x3.0
0x0d1334…0d14c8 [0x01]: C0x003c.0x0.0
0x0d1334…0d14c8 ]
0x0d1334…0d14c8 }
0x0d14c8…0d165c Dummy {f00=0x003b, f01=0x018e, f02=» H PTRA AADEMO H PTRA BASPCT P H PTRA BCSTTO H PTRA BESELF
0x0d165c…0d17f0 Dummy {f00=0x003b, f01=0x0190, f02=» H PTRA CEGACT H PTRA CFCHKH P H PTRA CGCSYS PTRA DAUCCY PTRA DBUOPR
0x0d17f0…0d1984 Dummy {f00=0x003b, f01=0x0190, f02=» | PTRA DGCACT 8 H PTRA DHBACT J PTRA DIQACT H PTRA DJUACT PTRA DKDSTM H PTR
0x0d1984…0d1b18 Dummy {f00=0x003b, f01=0x0190, f02=» R PTRA DNTRF PTRA DOQCCY PTRA DPECCY 2 H PTRA DQCOPR D H PTRA EINIT PTRA IOTND PTRA NDERR PTRA PBBO
0x0d1b18…0d1cac Dummy {f00=0x003b, f01=0x0190, f02=» p PTRA DEMSCR , H PTRA SPACHQ > PTRA TNDCAB PTRA TNDOPN PTRA TNDPAY PTRA TNDREM PTRA XBFMT PTRA XMESG PTRA XOPINP H P
0x0d1cac…0d1e40 Dummy {f00=0x003b, f01=0x0032, f02=» T PTRA ZMRDF PASG /E0,TY10 "MSCR , H PTRA SPACHQ > PTRA TNDCAB PTRA TNDOPN PTRA TNDPAY PTRA TNDREM PTRA XBFMT PTRA XMESG PTRA XOPINP H P
0x0d1e40…0d1fd4 (1, 265) Dummy {f00=0x003c, f01=0x2008, f02=»
0x0d1fd4…0d2168 Dummy {f00=0x003c, f01=0x0190, f02=» ] @ Y : : : _ _ S : 1RW @1P A P : @ @ j MT f @ l !11T A P : @ !22 f A P : @ j EXT A P : RE f A P : A C C ( B P A : 0CC: TRY AGAIN!! vCRV CRF DLF PVC PDS UDS CDD CFF CFT CTF PRF SCT
0x0d2168…0d22fc Dummy {f00=0x003c, f01=0x0190, f02=»8 8 # ~!}g # " - D 6 87 67 - 4.5/0123 - <= 8 GHF@ 8J KLMVQRSTO 8 lm nog og j#g kqpc[ ]^_d`ah tuvscr[ ]^_d`ah w{xh )*+h h 9:h Zc[ ]^_d`abh Z c[ ]^_d`abh NP B AI k wx yz |
0x0d22fc…0d2490 Dummy {f00=0x003c, f01=0x0190, f02=» V!VAVA A A E E AV!E A V!V! AV!V!W! AW! A AT V/V/T @ ! AV! A AWA A A AV! V!WAT T QT A A A A " A
0x0d2490…0d2624 Dummy {f00=0x003c, f01=0x0190, f02=» | c
0x0d2624…0d27b8 Dummy {f00=0x003c, f01=0x0190, f02=» @ | * j t t t D R j t ^ d
0x0d27b8…0d294c Dummy {f00=0x003c, f01=0x0190, f02=» ( p t t j @ v t t t ( . 1 2 4 6 4 5 " ( . 5 : 8 * H
0x0d294c…0d2ae0 Dummy {f00=0x003c, f01=0x0190, f02=» n "d" " " " " " " " # #,#@#P#Z#f"r#p# # # % # # # # # $ $*$D$D$T$d$r$ "d $ $ $ $ " $ $ % " % %&%># $ # %N%f% %f% % # % % % % % & & " &:&X#$&t & % & & & # # & " & & & ' ' ' '4'H'Z'l' ' ' ' & " ( ( ("(2(D(P
0x0d2ae0…0d2c74 (1, 266) Opaque[0x194]
0x0d2c74…0d2e08 # DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x81fe, f01=0x8f52, f02=0x0788, f03=0x573a}
0x0d2c74…0d2e08 IdxSect {
0x0d2c74…0d2e08 f00 = 0x003c // 0xd2c74 @0x0
0x0d2c74…0d2e08 f01 = 0x000c // 0xd2c76 @0x2
0x0d2c74…0d2e08 gno = [ // 0xd2c78 @0x4
0x0d2c74…0d2e08 [0x00]: C0x003c.0x1.0
0x0d2c74…0d2e08 [0x01]: C0x003c.0x2.0
0x0d2c74…0d2e08 [0x02]: C0x003c.0x3.0
0x0d2c74…0d2e08 [0x03]: C0x003d.0x0.0
0x0d2c74…0d2e08 [0x04]: C0x003d.0x1.0
0x0d2c74…0d2e08 [0x05]: C0x003d.0x2.0
0x0d2c74…0d2e08 ]
0x0d2c74…0d2e08 }
0x0d2e08…0d2f9c Dummy {f00=0x003c, f01=0x0190, f02=» * P IDENT XBFMT SCREEN-CONTROL L P DDUM DEMODD 2 L P PDIV L P ENTRY XBFMT
0x0d2f9c…0d3130 Dummy {f00=0x003c, f01=0x0190, f02=»ROC ZMRDF P EXPROC XCLAMP P P EXPROC XEERR f L P************************************************************************ | L P*
0x0d3130…0d32c4 Dummy {f00=0x003c, f01=0x0190, f02=» * l L P* FUNCTIONAL DESCRIPTION: * , L P* THE PROCEDURE TAKES CARE OF SCREEN-CONTROL * | L P* - CALLS SCREEN-I/O ( PROCEDURE-NAME IS ZMRD
0x0d32c4…0d3458 Dummy {f00=0x003c, f01=0x0190, f02=» * P L P* THE SIZE OF A PART DEPENDS ON THE NUMBER OF LINES * L P* DISPOSED ON THE SCREEN ( E.G. 1 LINE FOR AN AD85 ) * ` L P* A PART IS ASCERTAINED BY COUNTING THE STATEMENTS * L P*
0x0d3458…0d35ec Dummy {f00=0x003c, f01=0x0190, f02=» * P L P* FOR AN AD85 SCREEN : FKI 37 * L P* FCOPY DUMMY * ` L P* FOR OTHER SCREENS : FNL * L P*
0x0d35ec…0d3780 Dummy {f00=0x003c, f01=0x0190, f02=» * P L P* - AFTER A PART IS COMPLETED , CONTROL IS GIVEN TO * L P* SCREEN-MANAGEMENT WHICH DISPLAYS THE PART ON THE * ` L P* SCREEN AND CONTROLS THE KEYBOARD-INPUT * L P*
0x0d3780…0d3914 (1, 267) Dummy {f00=0x003c, f01=0x0190, f02=» * P L P* AFTER "CONTINUE" : COMPOSE NEXT PART ; * L P* AFTER LAST PART , RETURN CONTROL * ` L P* TO THE CALLING MODULE * L P*
0x0d3914…0d3aa8 Dummy {f00=0x003c, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x0d3aa8…0d3c3c Dummy {f00=0x003c, f01=0x0190, f02=» * P L P* WORKVARIABLES : * L P* LINE-COUNTER : COUNT "FNL"-COMMANDS * ` L P* FORMAT-BUFFER : CONTAINS ( PART OF ) FORMAT WHICH * L P*
0x0d3c3c…0d3dd0 Dummy {f00=0x003c, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x0d3dd0…0d3f64 Dummy {f00=0x003c, f01=0x0190, f02=»050 L P MOVE WWCOUNT,KW0 LINE-COUNTER = 0 T P MOVE WW1,=W'796' MAXIMUM AMOUNT OF BYTES T P MOVE WCSTRG6,=X'E9' FORMAT-END CHARACTER
0x0d3f64…0d40f8 Dummy {f00=0x003c, f01=0x0190, f02=» 4 P* TOTAL AMOUNT OF BYTES IN THE FORMAT THAT 4 P* MUST BE MOVED IS NOW PRESENT IN NWTOTBYT J L P BE XB100 T P MOVE NWTOTBYT,WW1 DEFAULT-VALUE
0x0d40f8…0d428c Dummy {f00=0x003c, f01=0x0190, f02=»FMTA z , P CBG SPLSTLNE,=D'19',XB300 VIDEO SCREEN : N P CBNE SPLSTLNE,=D'1',XB200 AD85-SCREEN ? j L P CALL FMOVE,FCFMTBUF,FMTB
0x0d428c…0d4420 Dummy {f00=0x003c, f01=0x0190, f02=» L P MOVE WCSTRG6,=X'E1' = FNL P MOVE NWPTR,KW0 POINTER l PXB210 , P MOVE WWINDEX1,NWTOTBYT AMOUNT OF BYTES & P SUB WWINDEX1,NWPTR ,, ,, ,, P ADD NWPTR,KW1 SET P
0x0d4420…0d45b4 (1, 268) Dummy {f00=0x003c, f01=0x0190, f02=»E-COUNTER | 4 P CBG NWPTR,=W'245',XB230 AMOUNT OF BYTES > 245 ? 8 P CBL WWCOUNT,WW1,XB210 LINE-COUNTER < SCREEN-LINES ? J * P INSRT FCFMTBUF,KW0,NWPTR,FCFORMAT,KW0 P PERF XB900 P DLETE FCFORMAT,KW0,NWPTR P SUB NWTOTBYT,NWPTR L P B
0x0d45b4…0d4748 Dummy {f00=0x003c, f01=0x0190, f02=»45 ? d : P INSRT FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,KW0 P PERF XB900 J P MOVE NWTOTBYT,KW0 ^ P B XB400 x PXB230 D P SUB WW1,KW1 SUBTRACT 1 FROM NUMBER OF F P CBL WW1,KW1
0x0d4748…0d48dc Dummy {f00=0x003c, f01=0x0190, f02=» IF THE FIRST AND THE SECOND BYTE OF THE BUFFER CONTAIN > P* "FSL FNL" OR "FNL FNL" , THE FIRST BYTE IS DELETED @ P DLETE FCFORMAT,KW0,NWPTR P SUB NWTOTBYT,NWPTR P CBG NWTOTBYT,KW0,XB200 P B XB499 PXB290 P PERF XEER
0x0d48dc…0d4a70 Dummy {f00=0x003c, f01=0x018e, f02=»FORMAT TOO LARGE t P MOVE WW1,=W'8' . P INSRT FCFORMAT,NWTOTBYT,WW1,FCFMTBUF,KW0 0 P PERF XCLAMP,KW1,KW1 b P ATTFMT FCFORMAT ~ P PERF SQSCRN ( P PERF XCLAMP,KW1,KW0 READY LAMP OFF P MOVE NWTOTBYT,KW0 P B XB400
0x0d4a70…0d4c04 Dummy {f00=0x003c, f01=0x018e, f02=» D P* CONTROL RETURNED FROM SCREEN-MANAGEMENT WITH @ P* MESSAGE "CANCEL" ( SPBINW2 = 1 OR 2 ) P @ P* OR "CONTINUE" ( SPBINW2 = 0 OR >2 ) < P* OR SBCANCEL HAS BEEN SET BY SOME LOWER LEVEL P
0x0d4c04…0d4d98 Dummy {f00=0x003c, f01=0x0190, f02=» j < P MOVE WWCOUNT,KW0 LINE-COUNTER = 0 F P CBG NWTOTBYT,KW0,XB100 FORMAT NOT COMPLETELY MOVED H B P B XB499 FORMAT COMPLETELY MOVED PXB410 P SET SBCANCEL
0x0d4d98…0d4f2c Dummy {f00=0x003c, f01=0x0190, f02=»NL P FKI 1 P FCOPY ICDUMMY & P FMEND H PFMTB FRMT ^ P FKI 37 t P FCOPY ICDUMMY P FMEND L P************************************************************************
0x0d4f2c…0d50c0 Dummy {f00=0x003c, f01=0x0190, f02=» P PERF XCLAMP,KW1,KW1 P ATTFMT FCFMTBUF P PERF SQSCRN 8 P PERF XCLAMP,KW1,KW0 L PXB990 h P RET v P PEND L P************************************************************************ L P*
0x0d50c0…0d5254 (1, 269) Dummy {f00=0x003d, f01=0x0190, f02=»ESCRIPTION: * L P* SELECT THE KEYTABLES TO BE USED FOR SCREEN MANAGEMENT * @ L P* AND PERFORM SPCLRS WITH THE SELECTED KEYTABLES AS PARAMETERS * L P* - IF THE KEYBOARD IS A 6234/6231
0x0d5254…0d53e8 Dummy {f00=0x003d, f01=0x0190, f02=»SWITCH SBCCYKTB IS ON THEN USE THE A-VERSION OF THE * L P* KEYTABLES WHICH INCLUDE THE CURRENCY KEYS * @ L P* USE OF VARIABLES: * L P* SB34KB,(INPUT): 6234/6231 TYPE
0x0d53e8…0d557c Dummy {f00=0x003d, f01=0x0190, f02=» * L P************************************************************************ @ PSQSCRN PROC T PSQ000 T P TBF SB34KB,
0x0d557c…0d5710 Dummy {f00=0x003d, f01=0x0190, f02=» T L P* * L P* USE KEYTABLES-2 * l L P* *
0x0d5710…0d58a4 Dummy {f00=0x003d, f01=0x0190, f02=» * d T P PERF SPCLRS,SPKTAB2,SPKTAB2,SPEDIT2 $ T P B SQ999 | L P* USE THE CURRENCY KEYTABLE
0x0d58a4…0d5a38 Dummy {f00=0x003d, f01=0x0190, f02=»A,SPKTAB2A,SPEDIT2 | T P B SQ999 D L P* * L P* USE KEYTABLES-1
0x0d5a38…0d5bcc Dummy {f00=0x003d, f01=0x0190, f02=»0 T P TBT SBCCYKTB,SQ600 T L P* USE THE NORMAL SCREEN MANAGEMENT KEYTABLE * T P PERF SPCLRS
0x0d5bcc…0d5d60 Dummy {f00=0x003d, f01=0x0190, f02=» T L P* USE THE CURRENCY KEYTABLE * T PSQ600 l T P PERF SPCLRS,SPKTAB1A,SPKTAB1A,SPEDIT1
0x0d5d60…0d5ef4 (1, 270) Dummy {f00=0x003d, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x0d5ef4…0d6088 Dummy {f00=0x003d, f01=0x0190, f02=»REEN MANAGEMENT KEYTABLES * L P* * L L P************************************************************************ 2 PSPKTAB1 KTAB X'98',X'A3',X'F
0x0d6088…0d621c Dummy {f00=0x003d, f01=0x0190, f02=»FF',X'FF', C z T P X'FF' B L P* * T PSPKTAB2 KTAB X'D8',X'E3',X'FF'
0x0d621c…0d63b0 Dummy {f00=0x003d, f01=0x0190, f02=»C n T P X'FF',X'3C',X'D2',X'FF',X'FF', C ! T P X'FF' ! b P* ! P* ! 4 PSPKTAB1A KTAB X'98',X'A3',X'FF',X'90',X'A2', C ! ( P
0x0d63b0…0d6544 Dummy {f00=0x003d, f01=0x0190, f02=» ! ^ T P X'94' " & L P* * " ~ T PSPKTAB2A KTAB X'D8',X'E3',X'FF',X'D0',X'E2', C
0x0d6544…0d66d8 Dummy {f00=0x003d, f01=0x0190, f02=»',X'C0',X'D3', C " ~ T P X'D4' # F P* # P* # 2 PSPEDIT1 KTAB X'82',X'84',X'88',X'81',X'A3', C # ( P X'FF',X'FF',X'90',X'A2',X'FF',
0x0d66d8…0d686c Dummy {f00=0x003d, f01=0x416a, f02=» * # l T PSPEDIT2 KTAB X'C2',X'C4',X'C8',X'C1',X'E3', C $ , ( P X'FF',X'FF',X'D0',X'E2',X'FF', C $ P X'D6',X'D7' $ L P******************************************************************
0x0d686c…0d6a00 Dummy {f00=0x003d, f01=0x2008, f02=» %
0x0d6a00…0d6b94 (1, 271) Dummy {f00=0x003d, f01=0x0190, f02=» & & Z 4 8 : Z 4 " 2@P : [ [ 6 & @ N! P Z [ 6 [ Z 7 6 Z 7 : ( :A ( @ P" P ! P [ :;H 2 6 7 ;h 8 : ; V Y
0x0d6b94…0d6d28 Dummy {f00=0x003d, f01=0x0190, f02=» & T + : * & !@P `1` P Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R
0x0d6d28…0d6ebc Dummy {f00=0x003d, f01=0x0190, f02=»P :J +_ +Q _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b < P P PF P 0 - P0 _ 4 V W
0x0d6ebc…0d7050 Dummy {f00=0x003d, f01=0x0190, f02=» W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y
0x0d7050…0d71e4 Dummy {f00=0x003d, f01=0x0190, f02=»V S W P 9 S W _ V P W T V E + : & 6 [ [ [ [ $ [ [ >h [ [ ; ; 9, Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 9& V H )_ > _X z
0x0d71e4…0d7378 Dummy {f00=0x003d, f01=0x0190, f02=» 0 !0 " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 [ [ [ [ $ [ [ &! P A0 ; ; 9,
0x0d7378…0d750c Dummy {f00=0x003d, f01=0x0190, f02=» [ Q@ [ 9, { R [ _ 9& > Z ! Z $ Z %_N [ Q* 9& ; R [ Z { 9& z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x0d750c…0d76a0 Dummy {f00=0x003d, f01=0x0190, f02=» 6 B K K K K V K : 6 A A B 6 V CR B Cx V Z P 2 " T W "@T '?W "? HA " K :e J J " J _Z Z CR [ Z P )l [ V 7_ Z Cx @ L!
0x0d76a0…0d7834 (1, 272) Opaque[0x194]
0x0d7834…0d79c8 # DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0002, f01=0x8542, f02=0x07b8, f03=0x5700}
0x0d7834…0d79c8 IdxSect {
0x0d7834…0d79c8 f00 = 0x003d // 0xd7834 @0x0
0x0d7834…0d79c8 f01 = 0x0008 // 0xd7836 @0x2
0x0d7834…0d79c8 gno = [ // 0xd7838 @0x4
0x0d7834…0d79c8 [0x00]: C0x003d.0x3.0
0x0d7834…0d79c8 [0x01]: C0x003e.0x0.0
0x0d7834…0d79c8 [0x02]: C0x003e.0x1.0
0x0d7834…0d79c8 [0x03]: C0x003e.0x2.0
0x0d7834…0d79c8 ]
0x0d7834…0d79c8 }
0x0d79c8…0d7b5c Dummy {f00=0x003d, f01=0x0190, f02=» ( P IDENT ZMRDF SCREEN I/O DDUM DEMODD 0 PDIV D ENTRY ZMRDF R P EXPROC MASK f L P************************************************************************ z L P*
0x0d7b5c…0d7cf0 Dummy {f00=0x003d, f01=0x0190, f02=» * j L P* FUNCTIONAL DESCRIPTION : * * L P* THE PROCEDURE READS A FORMAT FROM THE FORMAT-FILE * z L P* THERE ARE MESSAGE-FORMATS ( MAXIMUM LENGTH 39
0x0d7cf0…0d7e84 Dummy {f00=0x003d, f01=0x0190, f02=» BE PLACED IN FCBUFFER , WHILE * j L P* FCFMTBUF AND FCFORMAT MAY NOT BE USED * * L P* A NORMAL FORMAT MUST BE PLACED IN FCFORMAT * z L P* AS A RECORD OF THE FORMAT-FILE IS ONLY 400 BY
0x0d7e84…0d8018 Dummy {f00=0x003d, f01=0x0190, f02=»HE FORMAT-FILE * j L P* * * L P* FIRST THE PROCEDURE TRIES TO READ A RECORD IN THE * z L P* DESIRED LANGUAGE , IF NOT OK THE PROCEDURE TR
0x0d8018…0d81ac Dummy {f00=0x003d, f01=0x0190, f02=» OK AN ERROR-MESSAGE WILL BE * j L P* DISPLAYED AND ABEND OCCURS * * L P* IF READING OF THE SECOND RECORD OF A FORMAT IS NOT OK * z L P* AN ERROR-MESSAGE WILL BE DISPLAYED AND ABEND
0x0d81ac…0d8340 Dummy {f00=0x003d, f01=0x0190, f02=»RMAT NUMBER (INPUT ) * j L P* XWMSG : MESSAGE-FLAG ( INPUT ) * * L P* 0 = NORMAL FORMAT , 1 = MESSAGE-FORMAT * z L P* USE OF VARIABLES :
0x0d8340…0d84d4 (1, 273) Dummy {f00=0x003e, f01=0x0190, f02=» * j P P* WWCOUNT : RELATIVE RECORD NUMBER * * L P* WW2 : AMOUNT OF BYTES TO BE MOVED , * ~ L P* POINTER IN XCOPY-STATEMENTS
0x0d84d4…0d8668 Dummy {f00=0x003e, f01=0x0190, f02=»BIN XWFMTNR,XWMSG L PZM000 P P MOVE WWCOUNT,NDTRMLGG j P CBL WWCOUNT,KW4,ZM050 P MOVE WWCOUNT,KW0 PZM050 P P MUL
0x0d8668…0d87fc Dummy {f00=0x003e, f01=0x0190, f02=» X P MOVE WWINDEX2,=X'8800' : P* USED IN CALL MASK - INSTRUCTIONS, TEST FOR 'NO DATA' < ( P CBE XWMSG,KW1,ZM500 MESSAGE FORMAT z L P L PZM100
0x0d87fc…0d8990 Dummy {f00=0x003e, f01=0x0190, f02=» $ P MOVE WDEC1,WWCOUNT RECNR TO BCD * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 , P BE ZM200 Z P XSTAT DSFMTFLE,WWINDEX1 l P CALL MASK,WWINDEX1,WWINDEX2 L P BOK ZM200 N P MOVE WD
0x0d8990…0d8b24 Dummy {f00=0x003e, f01=0x0190, f02=»NGUAGE-NR = 0 ) l * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 P XSTAT DSFMTFLE,WWINDEX1 F P CALL MASK,WWINDEX1,WWINDEX2 f L P BNOK ZM900 L P
0x0d8b24…0d8cb8 Dummy {f00=0x003e, f01=0x0190, f02=» z L P SUB WW2,KW2 : L P XCOPY FCFORMAT,KW0,WW2,FCFMTBUF,KW0 P CBE WWCOUNT,KW1,ZM999 J P* ( FIRST FOR
0x0d8cb8…0d8e4c Dummy {f00=0x003e, f01=0x0190, f02=» F P P CBE WWCOUNT,KW0,ZM999 CHECK IF FORMAT IS CONTAINED L P* IN A SINGLE RECORD * ^ P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,WWCOUNT RECNR TO BCD * P READ .DIR,DSFMTFLE,
0x0d8e4c…0d8fe0 Dummy {f00=0x003e, f01=0x0190, f02=» f P MOVE WW2,KWFMTLNG & P SUB WW2,KW2 @ L P XCOPY FCFORMAT,WW2,WW2,FCFMTBUF,KW0 T ( P XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 P CBE WWCOUNT,KW0,ZM999 P MOVE WW2,KWFMTLNG
0x0d8fe0…0d9174 (1, 274) Dummy {f00=0x003e, f01=0x018e, f02=»NDEX1,WWINDEX2 L P BNOK ZM900 P MOVE WW2,KWFMTLNG f P SUB WW2,KW2 P MOVE SPBINW1,WW2 P ADD SPBINW1,WW2 , P XCOPY FCFORMAT,SPBINW1,WW2,FCFMTBUF,KW0 L P B ZM999
0x0d9174…0d9308 Dummy {f00=0x003e, f01=0x0190, f02=» F L PZM500 L P* READ MESSAGE-FORMAT * X N P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,WW
0x0d9308…0d949c Dummy {f00=0x003e, f01=0x0190, f02=» L P BOK ZM600 P MOVE WDEC1,XWFMTNR T P MOVE WW2,KWFMTLNG p * P READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1 P XSTAT DSFMTFLE,WWINDEX1 P CALL MASK,WWINDEX1,WWINDEX2 P BNOK ZM900
0x0d949c…0d9630 Dummy {f00=0x003e, f01=0x0190, f02=» x P CBE WWCOUNT,KW0,ZM999 P MOVE WW2,KWFMTLNG & P MOVE WDEC1,WWCOUNT @ * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 P BNOK ZM900 P MOVE WW2,KWFMTLNG P SUB WW2,KW2 P MOVE WWCOUNT,=W'146' , P XCOPY FCBUFFER,WW2,WWCOUNT,FC
0x0d9630…0d97c4 Dummy {f00=0x003e, f01=0x018e, f02=» z L P EDWRT SPDSSCRN,FMTA WRITE ERROR-MESSAGE : P SET SBCANCEL ABEND L P L PZM999
0x0d97c4…0d9958 Dummy {f00=0x003e, f01=0x0190, f02=» F L P PEND L P X L PFMTA FRMT P FSL L P FTE
0x0d9958…0d9aec Dummy {f00=0x003e, f01=0x409e, f02=» T & P FTEXT 'FUNCTION ABENDED BY ZMRDF' L P FMEND > P END @ X L PFMTA FRMT P FSL L P FTE
0x0d9aec…0d9c80 Dummy {f00=0x003e, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x0d9c80…0d9e14 (1, 275) Dummy {f00=0x003e, f01=0x0190, f02=» ( ) X D D : K + Q 2 P. P8 6 D4 ( ) B X # V : 6 C _0 8 _>F|Fz6 FzFzFzF8FhFdD C D B " # # Fz" FzC W W X 0Q ! ! Y ( Y *P /& A X <' X X B )@ X *# X ( " Q " P
0x0d9e14…0d9fa8 Dummy {f00=0x003e, f01=0x0190, f02=» P B 1 / W K " P X X( C : X *! P P T K P /& ( C W @ X (T W X y 6 Y ( : X (;n )*F|C D4C C #FF8FhFdC C D B " #j#jD " FzC )@ Y . Y ,W )@ Y . X ( X ." PV X 0RzT$ Y *P U :H )H "Z K
0x0d9fa8…0da13c Dummy {f00=0x003e, f01=0x0190, f02=» ( C )@ Y *T " T ! 1 W ! ) C : )@ C E P & Y *T # : X > T X & V D ! T W C ( )@ X >P( R Q" X & V D ! P $ ! P %_ C : )@ V Y " X .9H $ E P & X ( " Q Y +Q R " P W " U &@ Y ,
0x0da13c…0da2d0 Dummy {f00=0x003e, f01=0x0190, f02=» ! X $" P<Q X (# P2 X # :! R$W & &t T$ @ Y (W Y , ',W 'J Y ( C : X *:h X (! # P X & V L TbW X , X 0P@ &t T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l & _r X ( P Y (_ P* & P| Y 8 # X 8 X $
0x0da2d0…0da464 Dummy {f00=0x003e, f01=0x0190, f02=» 0 X 2P X 0V _z Y ( " T Y ( : 8 ( 6 8 V Y 8 : " P X & V ( P & : : &X "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : )@ X : X ( T X & V H " V Y : X $ )H X : ) : X Y " X
0x0da464…0da5f8 Dummy {f00=0x003e, f01=0x0190, f02=»T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X )HW Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 6 W Y ! P 5 W V Y ( V Y : 6 C : 2' " P T 8 W 6 D4 : (z
0x0da5f8…0da78c Dummy {f00=0x003e, f01=0x0190, f02=» Y Y < V E 4 B X _ v : C C /J : C /J :( R : V E V D ' $ K$ W )l P 4 X =' V W V Y =P )l : / "R V I 4 / ( T _& @2DX, @2F _6 6 #0 T 6 #0 T
0x0da78c…0da920 Dummy {f00=0x003e, f01=0x0190, f02=» 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 4 ( / # 9 2! P
0x0da920…0daab4 (1, 276) Opaque[0x194]
0x0daab4…0dac48 # DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0001, f01=0x8723, f02=0x07d8, f03=0x0034}
0x0daab4…0dac48 IdxSect {
0x0daab4…0dac48 f00 = 0x003e // 0xdaab4 @0x0
0x0daab4…0dac48 f01 = 0x0006 // 0xdaab6 @0x2
0x0daab4…0dac48 gno = [ // 0xdaab8 @0x4
0x0daab4…0dac48 [0x00]: C0x003e.0x3.0
0x0daab4…0dac48 [0x01]: C0x003f.0x0.0
0x0daab4…0dac48 [0x02]: C0x003f.0x1.0
0x0daab4…0dac48 ]
0x0daab4…0dac48 }
0x0dac48…0daddc Dummy {f00=0x003e, f01=0x0190, f02=» 8 P IDENT CASTTS SYSTEM START DDUM DEMODDIV @ PDIV V P EXPROC DAUCCY d P EXPROC DBUOPR z P EXPROC EHISYS P EXPROC QIRDBS P EXPROC XBFMT P EXPROC XEERR P EXPROC ZAOPND P EXPROC ZB
0x0daddc…0daf70 Dummy {f00=0x003e, f01=0x0190, f02=» P ENTRY CASTTS P ENTRY CBSTTS P ENTRY SPAP32 4 J P********************************************************************* J P* P* SYSTEM START - PART 1 P* L P************************************************************
0x0daf70…0db104 Dummy {f00=0x003e, f01=0x018e, f02=»SATIONS ~ P* * P MOVE NDLASTRM,=D'100' TERM NUMBERING P* H 6 P* THE NEXT FORMAT IS INCLUDED IN THE APPLICATION. R > P* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0' P* IS PASSED TO XBFMT P* * P CALL FMO
0x0db104…0db298 Dummy {f00=0x003e, f01=0x0190, f02=» . P PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME P TBT SBCANCEL,CA900 6 ( P MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE R P B CA999 ~ PCA900 4 P MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED PCA999 P RET P PEND J P************
0x0db298…0db42c Dummy {f00=0x003e, f01=0x0190, f02=»********************************************************* PFMTVOL FRMT B P FSL X 6 P FTEXT 'FORMAT FILE VOLUME NAME ? DSC' l 2 P FKI 31,MINL=1,MAXL=3,NUM,NEOI,ME P FCOPY VCVOLNR2 P F
0x0db42c…0db5c0 Dummy {f00=0x003e, f01=0x0190, f02=»UMBERS n P* L P************************************************************************ PFMTSYS FRMT h P FSL | P FTEXT 'SYSTEM LANGUAGE ?' . P FKI 33,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=5 P FMEL '9',YDSYSLGG P FNL , P FTEXT
0x0db5c0…0db754 (1, 277) Dummy {f00=0x003f, f01=0x0190, f02=»****************************************************************** P* J P* SYSTEM START - PART 2 T * t L P************************************************************************ ~ PCBSTTS PROC PCB000 P* P* READ SYSTEM
0x0db754…0db8e8 Dummy {f00=0x003f, f01=0x0190, f02=»M RECORD f P TBT SBCANCEL,CB900 P TBT SBRECAVB,CB050 , P* H 4 P* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS R P* P PERF EHISYS P* . P* WRITE THE SYSTEM RECORD TO THE DATABASE : P* AND UPDATE THE LRN ON DISK, SO NEX
0x0db8e8…0dba7c Dummy {f00=0x003f, f01=0x0190, f02=» PERF ZBCLSD CLOSE DATABASE TO UPDATE LRN P TBT SBCANCEL,CB900 2 ( P PERF ZAOPND AND OPEN DATABASE AGAIN N P TBT SBCANCEL,CB900 z P B CB500 CONTINUE PCB050 P* 4 P* CHECK WETHER OR NOT THE SYSTEM HAS BEEN CLOSED ( P* PROPER
0x0dba7c…0dbc10 Dummy {f00=0x003f, f01=0x0190, f02=» , P* SYSTEM NOT CLOSED PROPERLY LAST TIME, ( P* ENSURE THE DATABASE CONSISTENCY 8 P* d 0 P MOVE YDSTATUS,=D'1' FIRST RESTORE YDSTATUS n " P PERF QIRDBS RESTORE DATABASE P TBT SBCANCEL,CB900 PCB500 * P MOVE YDSTATUS,=D'1' R
0x0dbc10…0dbda4 Dummy {f00=0x003f, f01=0x0190, f02=»0 ~ P* 4 P* REWRITE SYSTEM RECORD, TO COVER THE SITUATION 6 P* WHERE A BREAKDOWN OCCURS IN DAUCCY OR DBUOPR L P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 T P MUL NDTIME,=D'100' ADD SECONDS
0x0dbda4…0dbf38 Dummy {f00=0x003f, f01=0x018e, f02=»RST 0 X P SETTIME VCTIME P* 6 " P* INITIALISE CURRENCY RECORDS @ P* f PCB600 p P PERF DAUCCY ~ P TBT SBCANCEL,CB900 P* " P* INITIALISE OPERATOR RECORDS P* PCB700 P PERF
0x0dbf38…0dc0cc Dummy {f00=0x003f, f01=0x0190, f02=» P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 2 P B CB999 N L P* * ^ L P* DISPLAY ERROR: DISK ERROR * L P*
0x0dc0cc…0dc260 Dummy {f00=0x003f, f01=0x0190, f02=» N T P PERF XEERR,=W'6',KW1 ANSWER MUST BE CANCEL PCB900 n $ P PERF ZGREA RELEASE EXCL. ACCES | P* P* CLOSE FILES P* P PERF ZBCLSD P PERF ZLCLSF L P MOVE YDSTATUS,=D'
0x0dc260…0dc3f4 (1, 278) Dummy {f00=0x003f, f01=0x0190, f02=»************************************** n P* . ( P* CHECK DATE ENTERED IN SYSTEM START 8 P* d L P************************************************************************ n PSPAP32 PROC XWRET P PBIN XWRET PS32000 P* B P* ND
0x0dc3f4…0dc588 Dummy {f00=0x003f, f01=0x0190, f02=» P MOVE WDEC1,WDEC2 & P DIV WDEC1,=D'100' GET RID OF YEAR P MUL WDEC1,=D'-100' H * P ADD WDEC1,WDEC2 TO GET 'YY' IN WDEC1 d * P CBL WDEC1,=D'79',S32900 NOT IN RANGE P* CHECK MONTH * P DIV WDEC2,=D'100' NOW IN WDEC2: DDMM P MOV
0x0dc588…0dc71c Dummy {f00=0x003f, f01=0x0190, f02=» ( P CBL WDEC1,=D'1',S32900 NOT IN RANGE * P CBG WDEC1,=D'12',S32900 NOT IN RANGE 0 P* CHECK DAY ^ * P DIV WDEC2,=D'100' TO GET DAY IN WDEC2 r ( P CBL WDEC2,=D'1',S32900 NOT IN RANGE P CBL WDEC2,=D'32',S32999 OKE PS32900 P MOVE XWRE
0x0dc71c…0dc8b0 Dummy {f00=0x003f, f01=0x4044, f02=»******************************************** t P END 4@ @2900 NOT IN RANGE 0 P* CHECK DAY ^ * P DIV WDEC2,=D'100' TO GET DAY IN WDEC2 r ( P CBL WDEC2,=D'1',S32900 NOT IN RANGE P CBL WDEC2,=D'32',S32999 OKE PS32900 P MOVE XWRE
0x0dc8b0…0dca44 Dummy {f00=0x003f, f01=0x2008, f02=» CA400 SET SBSYSSTD CLEAR SBSYSPRO 0 CA999 H RET V PEND b * p * z@ * MOVE MDRATE1,CDSELRT1 *PERF CACCY,2/3 MOVE NWBLKNR,KW0 CA300 ADD NWBLKNR,KW1 USE U
0x0dca44…0dcbd8 Dummy {f00=0x003f, f01=0x0190, f02=» OPEN FORMAT FILE n $ P TBT SBCANCEL,CA900 P CALL FMOVE,FCFORMAT,FMTSYS F . P PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME j P TBT SBCANCEL,CA900 ( P MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE P* L P* OPEN DATABASE
0x0dcbd8…0dcd6c Dummy {f00=0x003f, f01=0x0190, f02=»SF CLOSE FORMATFILE AGAIN 4 P MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED N PCA999 P RET P PEND J P********************************************************************* P* " P*
0x0dcd6c…0dcf00 Dummy {f00=0x003f, f01=0x0190, f02=»T P FSL 6 P FTEXT 'FORMAT FILE VOLUME NAME ? DSC' . P FKI 31,MINL=1,MAXL=3,NUM,NEOI X P FCOPY VCVOLNR2 P FMEND L P**********************************************************************
0x0dcf00…0dd094 (1, 279) Opaque[0x194]
0x0dd094…0dd228 # DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x019a, f01=0x8743, f02=0x07f0, f03=0x8543}
0x0dd094…0dd228 IdxSect {
0x0dd094…0dd228 f00 = 0x003f // 0xdd094 @0x0
0x0dd094…0dd228 f01 = 0x0008 // 0xdd096 @0x2
0x0dd094…0dd228 gno = [ // 0xdd098 @0x4
0x0dd094…0dd228 [0x00]: C0x003f.0x2.0
0x0dd094…0dd228 [0x01]: C0x003f.0x3.0
0x0dd094…0dd228 [0x02]: C0x0040.0x0.0
0x0dd094…0dd228 [0x03]: C0x0040.0x1.0
0x0dd094…0dd228 ]
0x0dd094…0dd228 }
0x0dd228…0dd3bc Dummy {f00=0x003f, f01=0x0190, f02=» < P IDENT DBUOPR UPDATE OPERATOR DDUM DEMODD D PDIV X P EXPROC EAIOPR f P EXPROC EBZACC | P EXPROC QEMOVE P EXPROC XBFMT P EXPROC XEERR P EXPROC ZCRDD P EXPROC ZDRWRD P EXPROC
0x0dd3bc…0dd550 Dummy {f00=0x003f, f01=0x0190, f02=»********************************************************** * B P* UPDATE OPERATOR L * f L P************************************************************************ p L PDBUOPR PROC
0x0dd550…0dd6e4 Dummy {f00=0x003f, f01=0x0190, f02=» ` L P* * " L P* SYSTEM START PROGRESSING, * r L P* READ ALL OPERATOR RECORDS AND RESET STATUS TO
0x0dd6e4…0dd878 Dummy {f00=0x003f, f01=0x0190, f02=»S BY READING THE SYSTEM RECORD l . P* AND THEN CONTINUE BY INDEXED READ NEXT. & P* X P MOVE ODOPRRNR,=D'1' b , P MUL ODOPRRNR,KDSHIFT SYSTEM RECORD KEY ~ * P SET SBNOCOPY DON'T COPY RECORD TO UWB $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 P TBT
0x0dd878…0dda0c Dummy {f00=0x003f, f01=0x0190, f02=»RARY OPERATOR NUMBER r $ P MUL ODOPRRNR,KDSHIFT RECORD KEY 4 P PERF ZYRLNG,ODOPRRNR RECORD LENGTH IN NWRECLNG D P* | F P* READ NEXT RECORD IN THE DATABASE AND CHECK WHETHER OR NOT IT IS P* AN OPERATOR RECORD P* PDB100 " P PER
0x0dda0c…0ddba0 Dummy {f00=0x003f, f01=0x018e, f02=»UFFER,WW1,KW1 z P BOK DB110 P XSTAT DSDBS,NWXSTAT ( * P MOVE WW1,=X'1400' EOF / KEY NOT FOUND D & P CALL MASK,NWXSTAT,WW1 CHECK BITS r . P BNOK DB200 EOF / KEY NOT FOUND --> READY P* DISK ERROR FOUND $ P PERF XEERR,=W'6',KW1 DISK ERROR
0x0ddba0…0ddd34 (1, 280) Dummy {f00=0x003f, f01=0x018e, f02=» , P CALL QEMOVE,ODOPRRNR,FCBUFFER,NWRECLNG P MOVE IDNR1,ODOPRRNR 4 . P DIV IDNR1,KDSHIFT TO GET OPERATOR NUMBER P . P CBL IDNR1,=D'10001',DB100 TRY NEXT RECORD $ P CBG IDNR1,=D'19999',DB200 READY P* , P* NUMBER IS IN THE RANGE [10001,19
0x0ddd34…0ddec8 Dummy {f00=0x003f, f01=0x0190, f02=» L P MOVE ODSTATUS,=D'0' L P PERF ZDRWRD,ODOPRRNR,NDLRN1 X L P TBT SBCANCEL,DB900 P* 2 P* T
0x0ddec8…0de05c Dummy {f00=0x003f, f01=0x0190, f02=»B100 L P* READ THE NEXT OPERATOR RECORD * > P* BECAUSE IRWRITE RESETS THE CURRENT RECORD NUMBER OF THE 4 P* INDEX-FILE TO ZERO, (AT LEAST IN RELEASE 3.2) 2 P* THE RECORD JUST REWRITTEN MUST BE READ AGAIN
0x0de05c…0de1f0 Dummy {f00=0x003f, f01=0x0190, f02=» * ` L P* UPDATE OPERATOR RECORDS DONE * L P* * p L PDB200
0x0de1f0…0de384 Dummy {f00=0x003f, f01=0x0190, f02=» z L P* * : L P* CHECKS HAVE BEEN PERFORMED AS FOLLOWS: * J P* IDNR1 CAN ONLY BE ZERO IF YDSTATUS = 1 (EX
0x0de384…0de518 Dummy {f00=0x003f, f01=0x0190, f02=» BEEN READ OR A NEW OPERATOR n 2 P* RECORD HAS BEEN INITIALISED IN THE UWB $ L P* * Z 2 P CBE IDNR1,=D'0',DB999 EXIT FROM OPERATOR INIT L PDB300
0x0de518…0de6ac Dummy {f00=0x003f, f01=0x0190, f02=» 0 P MOVE IDNR1,=D'0' INIT ZEROISE ACCUM. FIELD L P PERF XBFMT,=W'17' OPERATOR SPECIFICATION 8 L P TBT SBCANCEL,DB900 N P CBE IDNR1,=D'1',DB400 ZEROISE ACCUMULATORS
0x0de6ac…0de840 Dummy {f00=0x003f, f01=0x0190, f02=»UMULATORS * z L P* * : L P PERF XBFMT,=W'18' OPERATOR ACCUMULATORS L P TBT SBCANCEL,DB900
0x0de840…0de9d4 (1, 281) Dummy {f00=0x0040, f01=0x0190, f02=» * z L P* ZEROISE ACCUMULATORS * : L P* * L PDB400
0x0de9d4…0deb68 Dummy {f00=0x0040, f01=0x0190, f02=» z L P MOVE ODSTATUS,=D'1' OPERATOR INITIALISED : 6 P PERF ZHWRID,ODOPRRNR,NDLRN1 WRITE OPERATOR RECORD < P CBE YDSTATUS,=D'1',DB200 NEXT OPERATOR IF SYSTEM START L PDB90
0x0deb68…0decfc Dummy {f00=0x0040, f01=0x0190, f02=» T L P RET L P PEND d L P************************************************************************ L P*
0x0decfc…0dee90 Dummy {f00=0x0040, f01=0x0190, f02=» * T L P* * L P************************************************************************ d PSPAP06 PROC XWRET P PBIN XWRET N PS06000
0x0dee90…0df024 Dummy {f00=0x0040, f01=0x0190, f02=»S,=D'1',S06990 SYSTEM START EXIT PS06050 ( P P CBL IDNR1,=D'10001',S06400 RANGE ERROR 6 P P CBG IDNR1,=D'19999',S06400 RANGE ERROR L P*
0x0df024…0df1b8 Dummy {f00=0x0040, f01=0x0190, f02=» * ~ . P MOVE ODOPRRNR,IDNR1 SAVE OPERATOR NUMBER > L P MUL ODOPRRNR,KDSHIFT SHIFT TO GET RECORDNUMBER p T P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 READ OPERATOR RECORD
0x0df1b8…0df34c Dummy {f00=0x0040, f01=0x0190, f02=»KB,=D'1',S06100 4 P MOVE SPBINW4,=W'23' INSERT OPR REC NOT ALLOWED H $ P B S06800 ERROR, CLEAR DATA-ITEM L P* * L P* INITIALISE A N
0x0df34c…0df4e0 Dummy {f00=0x0040, f01=0x0190, f02=» H N PS06100 L P PERF EAIOPR INITIALISE OPERATOR RECORD Z P B S06990 L P* *
0x0df4e0…0df674 (1, 282) Dummy {f00=0x0040, f01=0x0190, f02=» $ P MOVE SPBINW4,=W'1' RANGE ERROR D PS06800 l & P MOVE XWRET,=W'1' INDICATE ERROR1 z P B S06999 PS06900 & P MOVE XWRET,=W'3' INDICATE CANCEL P B S06999 PS06990
0x0df674…0df808 Dummy {f00=0x0040, f01=0x403a, f02=»********************************** j END *@ 6 $ P MOVE SPBINW4,=W'1' RANGE ERROR D PS06800 l & P MOVE XWRET,=W'1' INDICATE ERROR1 z P B S06999 PS06900 & P MOVE XWRET,=W'3' INDICATE CANCEL P B S06999 PS06990
0x0df808…0df99c Dummy {f00=0x0040, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x0df99c…0dfb30 Dummy {f00=0x0040, f01=0x0190, f02=»P. P8 :2 Hf ( - B X # V : : G _0 = _>J J : J J J JjJ J H>G>H>F & ($($J & J G W W X 0Q &. &, Y ( Y *P 3X F % X <' X X F> -r X *# X ( " Q " P X 0PR V _` " PL T " Ph +^ - Wp " P
0x0dfb30…0dfcc4 Dummy {f00=0x0040, f01=0x0190, f02=» *! P P T O> P 3X , C W @ X (T W X y 6 Y ( : X (;n - J G HfG G 'xJjJ J H*G>H4F & ' ' HH& J G -r Y . Y ,W -r Y . X ( X ." PV X 0RzT$ Y *P U :H -z & K T H W H X . X 2QP Y *T2 H : " P$ X 0
0x0dfcc4…0dfe58 Dummy {f00=0x0040, f01=0x0190, f02=» P & Y *T ' : X > T X & V D ! T W H , -r X >P( R Q" X & V D ! P $ ! P %_ H : -r V Y " X .9H $ J. P & X ( " Q Y +Q R " P W " U *r Y , " Q " O> X . X 0R P" X *:h P PD O>) Y
0x0dfe58…0dffec Dummy {f00=0x0040, f01=0x0190, f02=» Y (W Y , +^W +| Y ( G> : X *:h X (! # P X & V L TbW X , X 0P@ * T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l * _r X ( P Y (_ P* * P| Y 8 ' X 8 X $ -zWh_ " P X ( T X & V H "@TF * P6 V
0x0dffec…0e0180 Dummy {f00=0x0040, f01=0x0190, f02=» 8 V Y 8 : " P X & V ( P * : : * "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : -r X : X ( T X & V H " V Y : X $ -z X : - : X Y " X Y $ X Y & X @W X < Y = " - !
0x0e0180…0e0314 (1, 283) Opaque[0x194]
0x0e0314…0e04a8 # DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0006, f01=0x5708, f02=0x0810, f03=0x5f02}
0x0e0314…0e04a8 IdxSect {
0x0e0314…0e04a8 f00 = 0x0040 // 0xe0314 @0x0
0x0e0314…0e04a8 f01 = 0x0008 // 0xe0316 @0x2
0x0e0314…0e04a8 gno = [ // 0xe0318 @0x4
0x0e0314…0e04a8 [0x00]: C0x0040.0x2.0
0x0e0314…0e04a8 [0x01]: C0x0040.0x3.0
0x0e0314…0e04a8 [0x02]: C0x0041.0x0.0
0x0e0314…0e04a8 [0x03]: C0x0041.0x1.0
0x0e0314…0e04a8 ]
0x0e0314…0e04a8 }
0x0e04a8…0e063c Dummy {f00=0x0040, f01=0x0190, f02=» < P IDENT DAUCCY CURRENCY UPDATE DDUM DEMODD D PDIV X P EXPROC ECICCY f P EXPROC PAJRN | P EXPROC XBFMT P EXPROC ZCRDD P EXPROC ZHWRID ENTRY DAUCCY P ENTRY EPPCCY
0x0e063c…0e07d0 Dummy {f00=0x0040, f01=0x0190, f02=» SPAP28 P ENTRY SPAP29 L P************************************************************************ & P* v P* UPDATE CURRENCY * L P************************************************************************ PDAUCCY PROC P
0x0e07d0…0e0964 Dummy {f00=0x0040, f01=0x0190, f02=» | & P MUL CDCCYRNR,KDSHIFT SHIFT NUMBER 8 P PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 READ CURRENCY RECORD 2 P TBT SBCANCEL,DA999 n P TBT SBRECAVB,DA100 CONTINUE P* & P* INITIALISE A NEW CURRENCY RECORD P* P PERF ECICCY PDA100
0x0e0964…0e0af8 Dummy {f00=0x0040, f01=0x018e, f02=»=W'15' INITIALISE CURRENCY P TBT SBCANCEL,DA999 " : P MOVE YCCCY(SWCCY),CCCCYCDE MOVE CURRENCY CODE TO CWB > 6 P PERF ZHWRID,CDCCYRNR,NDLRN1 WRITE CURRENCY RECORD | P CBNE YDSTATUS,=D'1',DA200 P ADD SWCCY,=W'1' P CBL SWCCY,=W'4',DA050
0x0e0af8…0e0c8c Dummy {f00=0x0040, f01=0x0190, f02=» z P MOVE TDTRSSEQ,YDLASSEQ PDA999 ( P CLEAR SBUCCY 6 P RET L P PEND ` J P********************************************************************** n P* 6 P* PRINT CURRENCY LINE TYPES (UPDATE AND INQUIRY) P* J
0x0e0c8c…0e0e20 Dummy {f00=0x0040, f01=0x0190, f02=» P* $ P MOVE ICTEXT2,CCCCYNME P PERF PAJRN,=W'5' : P* P* LINE 6: BUYING RATES f P* P MOVE IDAMT1,CDBUY1 P MOVE IDAMT2,CDBUY2 P PERF PAJRN,=W'6' P* P* L
0x0e0e20…0e0fb4 (1, 284) Dummy {f00=0x0040, f01=0x0190, f02=» v P* * P* LINE 4: CURRENCY CODE AND RELATION P* @ 6 P MOVE ICTEXT3,YCCCY(SWCCY) CURRENCY CODE J $ P MOVE TDAMOUNT,CDRELAT $ P MUL TDAMOUNT,KDSHIFT P PERF PAJRN,=W'4' P* . P* LINE
0x0e0fb4…0e1148 Dummy {f00=0x0040, f01=0x0190, f02=»T,CDLIMIT LIMIT RATE z P PERF PAJRN,=W'4' $ P RET F P PEND Z L P************************************************************************ h P* " P* VALUE BETWEEN 1 AND 10000 P* J P**********************
0x0e1148…0e12dc Dummy {f00=0x0040, f01=0x0190, f02=»RELAT,=D'1',S21500 | . P CBG CDRELAT,=D'10000',S21500 " P MOVE XWRET,=W'0' L P B S21999 r PS21500 " P MOVE XWRET,=W'1' : P MOVE SPBINW4,=W'1' 'RANGE ERROR' PS219
0x0e12dc…0e1470 Dummy {f00=0x0040, f01=0x0190, f02=» < P* IF VALUE 2 NOT ZERO, IT MUST BE GREATER THEN VALUE 1 P* D J P********************************************************************* N PSPAP23 PROC XWRET P PBIN XWRET PS23000 * P CBE CDBUY2,=D'0',S23200 * P
0x0e1470…0e1604 Dummy {f00=0x0040, f01=0x0190, f02=»RISION' Z P B S23999 PS23200 0 P CBG CDBUY2,=D'0',S23500 > P CBG CDSEL2,=D'0',S23500 ^ P* ~ 4 P* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO P* P MOVE CDLIMIT,=D'0' P B S24800 P* , P* AT
0x0e1604…0e1798 Dummy {f00=0x0040, f01=0x0190, f02=»* PS23500 P CBG CDLIMIT,=D'0',S23900 0 P MOVE CDLIMIT,=X'0F' ACTIVATE THE ME0OPTION : P* n < P* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES x P* PS23800 P CBL RDSCRLNS,=D'5',S23900 P ERASE 0,KW5,KW5
0x0e1798…0e192c Dummy {f00=0x0040, f01=0x0190, f02=»********************************************************************* P* N D P* VALUE 2 MAY BE ZERO, OTHERWISE IT MUST BE LESS THEN VALUE 1 X P* J P********************************************************************* PSPAP24 PROC XWRE
0x0e192c…0e1ac0 Dummy {f00=0x0040, f01=0x0190, f02=» XWRET,=W'1' B P MOVE SPBINW4,=W'20' 'INVALID COMPARISION' P B S24999 ^ PS24200 ~ P CBG CDBUY2,=D'0',S24500 P CBG CDSEL2,=D'0',S24500 P* 4 P* BOTH RATES ARE ZERO, SET LIMIT RATE-2 TO ZERO
0x0e1ac0…0e1c54 (1, 285) Dummy {f00=0x0041, f01=0x0190, f02=»IF CDLIMIT = 0, ACTIVATE TH ME-OPTION FOR THIS P* FIELD BY CLEARING CDLIMIT 6 P* Z PS24500 d P CBG CDLIMIT,=D'0',S24900 r , P MOVE CDLIMIT,=X'0F' ACTIVATE ME-OPTION P* < P* REDISPLAY LIMIT RATE, IF SCREEN CONTAINS ENOUGH LINES
0x0e1c54…0e1de8 Dummy {f00=0x0041, f01=0x0190, f02=» MOVE XWRET,=W'0' PS24999 P RET , P PEND @ J P********************************************************************* V P* F P* CHECK LIMIT RATE IF BOTH CDSEL2 AND CDBUY2 ARE EQUAL TO ZERO , B P* CDLIMIT MUST
0x0e1de8…0e1f7c Dummy {f00=0x0041, f01=0x018e, f02=»***************************** h PSPAP25 PROC XWRET & P PBIN XWRET @ PS25000 T * P CBE CDBUY2,=D'0',S25100 b P B S25200 PS25100 * P CBE CDSEL2,=D'0',S25500 P* , P* CDBUY2 OR CDSEL
0x0e1f7c…0e2110 Dummy {f00=0x0041, f01=0x0190, f02=» @ P MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' P B S25999 H PS25500 h P* v 0 P* BOTH CDBUY2 AND CDSEL2 ARE EQUAL TO ZERO P* * P CBE CDLIMIT,=D'0',S25900 " P MOVE XWRET,=W'1
0x0e2110…0e22a4 Dummy {f00=0x0041, f01=0x0190, f02=»5999 P RET P PEND B P************************************************************* 6 B P* * | B P* CDBUY1 MUST BE GREATER THEN ZERO * : P
0x0e22a4…0e2438 Dummy {f00=0x0041, f01=0x0190, f02=» * B P************************************************************* B PSPAP28 PROC XWRET P PBIN XWRET PS28000 P CBG CDBUY1,=D'0',S28200 , P MOVE SPBINW4,=W'1' 'VALUE NOT IN RA
0x0e2438…0e25cc Dummy {f00=0x0041, f01=0x0190, f02=»S28900 | P ERASE 0,KW3,KW3 P DISPLAY 4,KW3,KW3 & PS28900 @ P MOVE XWRET,=W'0' N PS28999 h P RET v P PEND @ P*********************************************************** @ P*
0x0e25cc…0e2760 Dummy {f00=0x0041, f01=0x018e, f02=» * @ P* CDSEL2 AND REDISPLAY THE WHOLE LINE * @ P* * R @ P*********************************************************** PSPAP29 PROC XWRET P PBIN XWRET P
0x0e2760…0e28f4 (1, 286) Dummy {f00=0x0041, f01=0x4142, f02=» PS29200 * P MOVE CDSEL2,=X'0F' ACTIVATE ME-OPTION P CBL RDSCRLNS,=D'4',S29900 @ P ERASE 0,KW4,KW4 b P DISPLAY 4,KW4,KW4 z PS29900 P MOVE XWRET,=W'0' PS29999 P RET P PEND J P************************************
0x0e28f4…0e2a88 Dummy {f00=0x0041, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x0e2a88…0e2c1c Dummy {f00=0x0041, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x0e2c1c…0e2db0 Dummy {f00=0x0041, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x0e2db0…0e2f44 Dummy {f00=0x0041, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x0e2f44…0e30d8 Dummy {f00=0x0041, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x0e30d8…0e326c Dummy {f00=0x0041, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x0e326c…0e3400 Dummy {f00=0x0041, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x0e3400…0e3594 (1, 287) Opaque[0x194]
0x0e3594…0e3728 # DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x8128, f01=0x0100, f02=0x0830, f03=0x0002}
0x0e3594…0e3728 IdxSect {
0x0e3594…0e3728 f00 = 0x0041 // 0xe3594 @0x0
0x0e3594…0e3728 f01 = 0x000a // 0xe3596 @0x2
0x0e3594…0e3728 gno = [ // 0xe3598 @0x4
0x0e3594…0e3728 [0x00]: C0x0041.0x2.0
0x0e3594…0e3728 [0x01]: C0x0041.0x3.0
0x0e3594…0e3728 [0x02]: C0x0042.0x0.0
0x0e3594…0e3728 [0x03]: C0x0042.0x1.0
0x0e3594…0e3728 [0x04]: C0x0042.0x2.0
0x0e3594…0e3728 ]
0x0e3594…0e3728 }
0x0e3728…0e38bc Dummy {f00=0x0041, f01=0x0190, f02=» , P IDENT DEMSCR PTSDEMO SCREEN MANAGEMENT P* 4 , P* SPECIAL PTS6800 DEMONSTRATION VERSION > P* n 8 P* CHANGES HAVE BEEN INDICATED BY: 'PTSDEMO SPECIAL' x @ P* FURTHERMORE THE KEYTABLES USED HAVE BEEN PARAMETERIZED !! P* , P* A
0x0e38bc…0e3a50 Dummy {f00=0x0041, f01=0x0190, f02=»3.1 p ( P* TOSS REL 8.1 P* 8 P DDUM DEMODD B P PDIV V P* d , P ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS n , P ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS * P ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ( P ENTRY SPERR
0x0e3a50…0e3be4 Dummy {f00=0x0041, f01=0x0190, f02=»ANDARD CHECK ROUTINE NO. 2 , P EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3 " , P EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4 R , P EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 , P EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6 , P EXT SPCHK7 STANDARD CHECK ROUTINE NO.
0x0e3be4…0e3d78 Dummy {f00=0x0041, f01=0x0190, f02=»ULATION ~ P* . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY L L P************************************************************************ r P* PTSDEMO SPECIAL P EXT XCLAMP P EXT XFERR1 P EXT
0x0e3d78…0e3f0c Dummy {f00=0x0041, f01=0x0190, f02=»****** N P EJECT P* > P* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE & P* h * PSPCLRA PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 r P PKTAB PSPKTAB1 P PKTAB PSPKTAB2 P PKTAB PSPKTAB3 2 P PERF SCREEN,=W'1',PSPKTAB1,PSPK
0x0e3f0c…0e40a0 Dummy {f00=0x0041, f01=0x018e, f02=»SPCLRS PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 P PKTAB PSPKTAB1 . P PKTAB PSPKTAB2 F P PKTAB PSPKTAB3 ^ 2 P PERF SCREEN,=W'2',PSPKTAB1,PSPKTAB2,PSPKTAB3 v P RET P PEND P* > P* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTUR
0x0e40a0…0e4234 (1, 288) Dummy {f00=0x0041, f01=0x0190, f02=» 2 P PERF SCREEN,=W'3',PSPKTAB1,PSPKTAB2,PSPKTAB3 P RET : P PEND F P* T 4 P* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE ^ P* * PSPERR PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 P PKTAB PSPKTAB1 P PKTAB PSPKTAB2 P PKTAB PSP
0x0e4234…0e43c8 Dummy {f00=0x0041, f01=0x0190, f02=»SPKTAB1,PSPKTAB2,PSPKTAB3 ~ P PLIT POPT OPTIO SELECTOR " P PKTAB PSPKTAB1 D P PKTAB PSPKTAB2 P PKTAB PSPKTAB3 t P ( P MOVE SPBINW2,POPT MOVE TO VARIABLE " P TO ALLOW INSTR.S CMP AND IB & P CMP SPBINW2,='0' "SPERR" ENTRY ?
0x0e43c8…0e455c Dummy {f00=0x0041, f01=0x0190, f02=» SHOULD BE DISPLAYED P* P* ONLY VARIABLE FIELDS ( P* J 8 P IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX T P* PCLEARA 2 P ERASE 2,SPBINW1,='0' ERASE ALL FROM 1 AND UP P B CONT P* PCLEARS 2 P E
0x0e455c…0e46f0 Dummy {f00=0x0041, f01=0x0190, f02=»ENTIRE 8 P IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX P* J P* CLEAR ALL VARIABLES T P* t PECLRA ~ 2 P ERASE 3,SPBINW1,='0' CLEAR ALL FROM 1 AND UP P IN MEMORY P B ECLRN CONTINUE P* P* CLEAR SOM
0x0e46f0…0e4884 Dummy {f00=0x0041, f01=0x0190, f02=»* CLEAR NO VARIABLES IN MEMORY P* * PECLRN 4 0 P DISPLAY 0,SPBINW1,='0' DISPLAY ENTIRE FORM B P EJECT v P* PCONT & P GETABX SPBINW4 GET CURRENT INDEX ( P BL KTHOME JUMP IF NO CURRENT FIELD PCONT5 6 P GETFLD 0,
0x0e4884…0e4a18 Dummy {f00=0x0041, f01=0x0190, f02=»OMPULSORY FIELD FOUND P* & P MOVE SPBINW4,SPBINW3 CHANGE INDEX ( P B CONT5 SEARCH AGAIN R P* p P EJECT z P* & P* SET CURSOR AND READ KEYBOARD P* PSETCREAD ( P SETCUR SET CURSOR ON CURRENT FIELD P
0x0e4a18…0e4bac Dummy {f00=0x0041, f01=0x0190, f02=»SPBINW2,SPBINW4 P BL ERRPRT ERROR L P************************************************************************ 0 P* PTSDEMO SPECIAL 8 P PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB ADAPT SPBINW2 L P**************************************************
0x0e4bac…0e4d40 Dummy {f00=0x0041, f01=0x0190, f02=»D300,CLEA20 JUMP ON C P UPDATE,CANC,CANC, C . P UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C < 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C n P UPDATE,KDUPL,KEDIT P EJECT P* 4 P* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRS
0x0e4d40…0e4ed4 (1, 289) Dummy {f00=0x0042, f01=0x0190, f02=»INW4,='0',UPD050 JUMP IF NOT STANDARD CHECK * P PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C 4 " P SPCHK4,SPCHK5,SPCHK6,SPCHK7 b & P IB SPBINW3,UPD100,UPD070,ERRPRINT P* P* CONDITIONAL DISPLAYING P* PUPD050 , P MOVE SPBINW4,='
0x0e4ed4…0e5068 Dummy {f00=0x0042, f01=0x0190, f02=»F APPL VALUE p P B SETCREAD P* ( " P* UNCONDITIONAL DISPLAYING 2 P* X PUPD100 b 6 P MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY p PUPD200 $ P GETCTL 0,SPBINW3 GET APPL-VALUE 2 P CBE SPBINW3,='0',UPD400 JUMP IF NO APPL
0x0e5068…0e51fc Dummy {f00=0x0042, f01=0x0190, f02=»EAD,ERRPRINT x P B UPD400 P* & P* OK AFTER APPL CONTROL 0 " P* UNCONDITIONAL DISPLAYING R P* x PUPD260 2 P UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING . PUPD300 SET SPCHANGE INDICATE CHANGED ITEM PUPD350 $ P*
0x0e51fc…0e5390 Dummy {f00=0x0042, f01=0x0190, f02=»EFT,KTRIGHT, C v * P KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER , P SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX F PDUMMY v PRETUR P RET P* PUPD400 8 P CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL 0 P UPDFLD 0,SPINPUT UPDA
0x0e5390…0e5524 Dummy {f00=0x0042, f01=0x0190, f02=»P v P TFWD P B TSTTAB P* * $ PKTBWD TABULATION 1 STEP BACKW. 4 P TBWD P B TSTTAB j P* | " PKTHOME TAB. TO HOME POSITION P THOME P B TSTTAB P* ( PKTLDOWN TAB. TO FIRST ON NEXT LINE P TLDOW
0x0e5524…0e56b8 Dummy {f00=0x0042, f01=0x0190, f02=»TMOST z P TRIGHT P B TSTTAB P* 0 PKTDOWN TAB 1 DOWN : P TDOWN V P B TSTTAB d P* v PKTUP TAB 1 UP P TUP P PTSTTAB TEST TAB OUTPUT P BE READIN OK P BL SETCREAD NOT FOUND * P BOFL SE
0x0e56b8…0e584c Dummy {f00=0x0042, f01=0x0190, f02=»,='0',SETCREAD P IB SPBINW2,DUMMY,DUMMY, C " P KTFWD,DUMMY,DUMMY,KTFWD, C : " P KTBWD,KTFWD,KTFWD,KTFWD, C ` P KTBWD,KTFWD,KTBWD < P* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK P P B SETCREAD P P
0x0e584c…0e59e0 Dummy {f00=0x0042, f01=0x0190, f02=»SPECIAL P TBF SBCP80,KCOP10 P MOVE SPBINW3,='1' * P EDWRT SPDSCPY,FMTSKIP D P PRINT SPDSCPY,SPBINW3,='0' b P B SETCREAD PKCOP10 P CBE RDPRTTYP,=D'4',KCOP20 8 P CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP PKC
0x0e59e0…0e5b74 (1, 290) Dummy {f00=0x0042, f01=0x018e, f02=»='1' P PRINT SPDSPRT,SPBINW3,='0' $ P B SETCREAD SET CURSOR AND READ 0 P* X PKDUPL DUPLICATION b . P MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY ~ P DUPL SPINPUT DUPLICATION P BZ UPD260 DUPL ALLOWED 0 P MOVE SPBINW4,='4' IND
0x0e5b74…0e5d08 Dummy {f00=0x0042, f01=0x0190, f02=» P GETCTL 1,SPBINW3 GET MAXL P CBNE SPBINW3,='0',KED100 & ( P EDWRT SPDSSCRN,BELL ACOUSTIC ALARM H P B SETCREAD t PKED100 ( P EDFLD SPINPUT,PSPKTAB3,SPBINW1, C P SPBINW2,SPBINW4 P BL ERRPRT ERROR L P********************
0x0e5d08…0e5e9c Dummy {f00=0x0042, f01=0x0190, f02=»NW2 FOR KB34 ^ L P************************************************************************ 4 P CBNG SPBINW2,='0',RETUR POWER OFF OR KEY SWITCH d . P CBNE SPBINW1,='0',KED110 LENGTH NOT ZERO ( P SET SPCHANGE ITEM CLEARED BY EDFLD PKED110 " P
0x0e5e9c…0e6030 Dummy {f00=0x0042, f01=0x0190, f02=»ND f , P MOVE SPBINW1,='0' INDICATE NO CLEARING 2 P MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD : < P GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS p ( P BOFL KENT10 EMPTY COMP. FIELD FOUND & P TSTCTL 2 LOOK IF COMPULSORY FIELD P B
0x0e6030…0e61c4 Dummy {f00=0x0042, f01=0x0190, f02=»ENTER KEY DEPRESSED t P RET P* ( & P* EMPTY COMPULSORY FIELD FOUND 2 P* PKENT10 f 6 P GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD t P B ERRPRINT P EJECT PERRPRT * P CBE SPBINW2,='16',KEDIT JUMP IF EDIT
0x0e61c4…0e6358 Dummy {f00=0x0042, f01=0x0190, f02=» PERRPRINT 0 P CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT L P************************************************************************ L P* PTSDEMO SPECIAL * P PERF XFERR1,SPBINW4,KW0 DISPLAY ERROR L P************************************
0x0e6358…0e64ec Dummy {f00=0x0042, f01=0x0190, f02=»EGINNING t P OF THE CURRENT FIELD PERR100 0 * P MOVE SPBINW3,=W'14' REQUESTED LENGTH > 6 P NKI .NE,SPDSDYKB,SPINPUT,PSPKTAB1,SPBINW3,SPBINW2 l P BNZ ERR100 JUMP IF NOT OK L P****************************************************************
0x0e64ec…0e6680 Dummy {f00=0x0042, f01=0x0190, f02=»INW3,KWSPKTB ADAPT SPBINW2 FOR KB34 x L P************************************************************************ . . P CBE SPBINW2,='0',RETUR JUMP IF POWER OFF ~ " P IB SPBINW2,ERR100,ERRCONT C $ P ERRCONT,ERR100,ERRCONT,ERRCONT P B ERR100
0x0e6680…0e6814 (1, 291) Dummy {f00=0x0042, f01=0x0190, f02=»********************** ^ P* PTSDEMO SPECIAL ( P PERF XCLAMP,KW3,KW0 ERROR LAMP OFF 8 & P PERF XCLAMP,KW1,KW1 READY LAMP ON d . P MOVE SPBINW3,SPLSTLNE INDICATE LAST LINE F P****************************************************************** ,
0x0e6814…0e69a8 Dummy {f00=0x0042, f01=0x0190, f02=» LENGTH = 0 p 0 P MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS 4 P MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD H & P GETABX SPBINW4 GET CURRENT INDEX * P ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD PERRC10 $ P IB SPBINW2,CLEAR1,CLEAR2,DUMMY
0x0e69a8…0e6b3c Dummy {f00=0x0042, f01=0x0190, f02=» SET SPCHANGE INDICATE CHANGED FIELD PERRC20 , P B SETCREAD CONTINUE : P* V PCLEAR2 ` . P CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 n 4 P MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS PCLEA20 * P GETABX SPBINW4 GET CURRENT TAB IN
0x0e6b3c…0e6cd0 Dummy {f00=0x0042, f01=0x4146, f02=»'07',1 P FMEND ! P ! L P************************************************************************ ! $ P* PTSDEMO SPECIAL ! t PFMTSKIP FRMT ! P FTEXT '00' SKIP 2 LINES ! P FMEND ! L P********************************************************
0x0e6cd0…0e6e64 Dummy {f00=0x0042, f01=0x2008, f02=» " ,SPBINW4 DISPLAY FIELD P B SETCREAD CONTINUE & P* B PBELL FRMT L P FSL ^ P FILLR X'07',1 j P FMEND P P PEND P P END @ INUE P* PCLEAR2 . P CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH
0x0e6e64…0e6ff8 Dummy {f00=0x0042, f01=0x0190, f02=»L 'ZZZVZZZVZZZ,ZZ',IDAMT2 L P FMEND L L P************************************************************************ T PMSG062 FRMT
0x0e6ff8…0e718c Dummy {f00=0x0042, f01=0x0190, f02=» D T P FBNZ YDMLPINT,M062100 T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON GTP' d T P FB M062999
0x0e718c…0e7320 Dummy {f00=0x0042, f01=0x0190, f02=»ON LP' l T PM062999 4 T P FMEND L P************************************
0x0e7320…0e74b4 (1, 292) Opaque[0x194]
0x0e74b4…0e7648 # DirEnt {nam=»CTAB03«, typ=»SC«, f00=0x00ff, f01=0x521e, f02=0x0858, f03=0x0000}
0x0e74b4…0e7648 IdxSect {
0x0e74b4…0e7648 f00 = 0x0042 // 0xe74b4 @0x0
0x0e74b4…0e7648 f01 = 0x0004 // 0xe74b6 @0x2
0x0e74b4…0e7648 gno = [ // 0xe74b8 @0x4
0x0e74b4…0e7648 [0x00]: C0x0042.0x3.0
0x0e74b4…0e7648 [0x01]: C0x0043.0x0.0
0x0e74b4…0e7648 ]
0x0e74b4…0e7648 }
0x0e7648…0e77dc Dummy {f00=0x0042, f01=0x0190, f02=» ( P IDENT CTAB03 FT80 CONVERSION TABLSE P ENTRY CTAB03 0 L P************************************************************************ F P* 0 P* CONVERSION TABLES FOR 6236/71/72 KEYBOARDS 0 P* USED FOR THE PTS6000 DEMONSTRATION PROGRAM P
0x0e77dc…0e7970 Dummy {f00=0x0042, f01=0x0190, f02=»SHIFT b L P************************************************************************ " L P* * r L P* CONVERSION TABLE FOR THE FUNCTION CLUSTER
0x0e7970…0e7b04 Dummy {f00=0x0042, f01=0x0190, f02=»************************** b L PFUNCTN DATA /AB83,/878B,/8188,/8A84,/8289,/8586,/9297,/98A3 " L P DATA /3031,/3233,/3435,/3637,/3839,/BABB,/9096,/91A2 r L P DATA /A1A0,/9980,/9394,/959A
0x0e7b04…0e7c98 Dummy {f00=0x0042, f01=0x0190, f02=» * b L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * " L P* * r L P**********************************************************************
0x0e7c98…0e7e2c Dummy {f00=0x0042, f01=0x0190, f02=» L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF T L P************************************************************************ L P*
0x0e7e2c…0e7fc0 Dummy {f00=0x0042, f01=0x0190, f02=» L P* * L P************************************************************************ T L PSHIFT DATA /20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2
0x0e7fc0…0e8154 (1, 293) Dummy {f00=0x0043, f01=0x40f8, f02=» L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0e8154…0e82e8 Dummy {f00=0x0043, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0e82e8…0e847c Dummy {f00=0x0043, f01=0x0190, f02=» 2 P IDENT DVKB01 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P EXTRN CTAB02 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 0 P*
0x0e847c…0e8610 Dummy {f00=0x0043, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x0e8610…0e87a4 Dummy {f00=0x0043, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY01 DVDY01O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x0e87a4…0e8938 Dummy {f00=0x0043, f01=0x40bc, f02=»A 0,0,0,0,0,0,0,0 P DATA 0,0,0,0 P IFT MMUPAG=1 0 PDEVECB EQU * F P DATA 0,0,0,0,0,0 Z P DATA t P XIF PDWTEND EQU * P* P END @ A /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLAC
0x0e8938…0e8acc Dummy {f00=0x0043, 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
0x0e8acc…0e8c60 Dummy {f00=0x0043, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x0e8c60…0e8df4 (1, 294) Opaque[0x194]
0x0e8df4…0e8f88 # DirEnt {nam=»CTAB04«, typ=»SC«, f00=0x0002, f01=0xed48, f02=0x0868, f03=0x540a}
0x0e8df4…0e8f88 IdxSect {
0x0e8df4…0e8f88 f00 = 0x0043 // 0xe8df4 @0x0
0x0e8df4…0e8f88 f01 = 0x0004 // 0xe8df6 @0x2
0x0e8df4…0e8f88 gno = [ // 0xe8df8 @0x4
0x0e8df4…0e8f88 [0x00]: C0x0043.0x1.0
0x0e8df4…0e8f88 [0x01]: C0x0043.0x2.0
0x0e8df4…0e8f88 ]
0x0e8df4…0e8f88 }
0x0e8f88…0e911c Dummy {f00=0x0043, f01=0x0190, f02=» ( P IDENT CTAB04 FT80 CONVERSION TABLSE P ENTRY CTAB04 0 L P************************************************************************ F P* 0 P* CONVERSION TABLES FOR 6236/71/72 KEYBOARDS 0 P* USED FOR THE PTS6000 DEMONSTRATION PROGRAM P
0x0e911c…0e92b0 Dummy {f00=0x0043, f01=0x0190, f02=»SHIFT b L P************************************************************************ " L P* * r L P* CONVERSION TABLE FOR THE FUNCTION CLUSTER
0x0e92b0…0e9444 Dummy {f00=0x0043, f01=0x0190, f02=»************************** b L PFUNCTN DATA /8C83,/878B,/8188,/8A84,/8289,/8586,/9297,/98A3 " L P DATA /3031,/3233,/3435,/3637,/3839,/BABB,/9096,/91A2 r L P DATA /A1A0,/9980,/9394,/959A
0x0e9444…0e95d8 Dummy {f00=0x0043, f01=0x0190, f02=» * b L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * " L P* * r L P**********************************************************************
0x0e95d8…0e976c Dummy {f00=0x0043, f01=0x0190, f02=» L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF T L P************************************************************************ L P*
0x0e976c…0e9900 Dummy {f00=0x0043, f01=0x0190, f02=» L P* * L P************************************************************************ T L PSHIFT DATA /20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2
0x0e9900…0e9a94 (1, 295) Dummy {f00=0x0043, f01=0x40f8, f02=» L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0e9a94…0e9c28 Dummy {f00=0x0043, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0e9c28…0e9dbc Dummy {f00=0x0043, f01=0x018e, f02=» O & HORS LIMITES P ( P " P . & P > " & ENREGISTREMENT PROTEGEE. P L ( P r P ~ & P & ERREUR E/S P ( P P & P & TOUCHE INTERDITE P ( P
0x0e9dbc…0e9f50 Dummy {f00=0x0043, f01=0x0190, f02=» P Q & Q " & ERREUR OUVERTURE FICHIER Q & ( Q L Q X & Q h & GUICHETO Q v ( Q Q & Q & DOIT ETRE NULU Q ( Q Q & Q & FONCTI
0x0e9f50…0ea0e4 Dummy {f00=0x0043, f01=0x0190, f02=» & OPERATEUR INCONNUL R ( R $ R 0 & R @ $ & OPERATEUR DEJA ENREGISTRE R N ( R v R & R & MOT DE PASSE ERRONEG R ( R ' R & R . * &( $TERMINAL BLOQUE - APPE
0x0ea0e4…0ea278 Dummy {f00=0x0043, f01=0x0190, f02=»& CLE DE ENREG. INVALIDE R ( S " S . & S > " & ENTRER LA CLE PRINCIPALE S L ( S r S ~ & S " & INCIDENT DISP. D ENTREEE S ( S S & S " & DISPOSITIF NON-SPECIFI
0x0ea278…0ea40c Dummy {f00=0x0043, f01=0x0190, f02=» & T & PROVISION INSUFFISANTE T ( T 6 T B & T R & CLES IDENTIQUESF T ` ( T ~ T & T & SOLDE NON NULE T & T ZZZZZZZZ9,99-F T " O T ( T
0x0ea40c…0ea5a0 Dummy {f00=0x0043, f01=0x0190, f02=»OSSIBLEH T v ( U U & U , & ! & VOLUME-NAME ? : DSCH U : ( U d % U p & U , ( && "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): U ( U # U & " U * & &$ OPEN FORMAT-FILE NOT SUCCE
0x0ea5a0…0ea734 (1, 296) Opaque[0x194]
0x0ea734…0ea8c8 # DirEnt {nam=»MMU «, typ=»UF«, f00=0x5010, f01=0x1101, f02=0x0878, f03=0x853c}
0x0ea734…0ea8c8 IdxSect {
0x0ea734…0ea8c8 f00 = 0x0043 // 0xea734 @0x0
0x0ea734…0ea8c8 f01 = 0x0002 // 0xea736 @0x2
0x0ea734…0ea8c8 gno = [ // 0xea738 @0x4
0x0ea734…0ea8c8 [0x00]: C0x0043.0x3.0
0x0ea734…0ea8c8 ]
0x0ea734…0ea8c8 }
0x0ea8c8…0eaa5c Dummy {f00=0x0043, f01=0x018e, f02=» NOD C TRA DEMODD,NL PINC ZFMTIO ( NOD R : INC AADEMO H INC BASPCT Z INC CASTTS l INC CGCSYS ~ INC DAUCCY INC DBUOPR NOD R INC EINIT INC QIRDBS INC QMISC INC XBFMT
0x0eaa5c…0eabf0 Dummy {f00=0x0043, f01=0x018e, f02=» INC BESELF INC CFCHKH INC DDTP71 ( INC SPACHQ : NOD R L INC PRINT Z INC CDCHKY l INC CEGACT ~ INC DCVDU INC DELACT NOD R INC DFOACT INC DGCACT INC DHBACT INC DIQACT
0x0eabf0…0ead84 Dummy {f00=0x0043, f01=0x006e, f02=» INC PBBOOK INC DEMSCR PTLK U,2K , LKE M < PKPF /L,DEMO3 J ASG /E0,TY10 ^C CDCHKY l INC CEGACT ~ INC DCVDU INC DELACT NOD R INC DFOACT INC DGCACT INC DHBACT INC DIQACT
0x0ead84…0eaf18 Dummy {f00=0x0043, f01=0x2008, f02=» INC PBBOOK INC DEMSCR PTLK U,2K , LKE M < PKPF /L,DEMO3 J ASG /E0,TY10 ^C CDCHKY l INC CEGACT ~ INC DCVDU INC DELACT NOD R INC DFOACT INC DGCACT INC DHBACT INC DIQACT
0x0eaf18…0eb0ac Dummy {f00=0x0043, f01=0x40de, f02=» < H IDENT T:DF00 TRA 4.2 80-02-06 F1 O1112 DATA DIVISION T:DF00 D T:DF00D V AAMAIN j * & F0 0 * | * @ 4 6 8 : < > m l
0x0eb0ac…0eb240 Dummy {f00=0x0043, f01=0x0190, f02=» < H IDENT T:AG00 TRA 4.2 80-02-06 F1 O1112 DATA DIVISION T:AG00 D T:AG00A , V > : T:DG00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0I Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x0eb240…0eb3d4 (1, 297) Opaque[0x194]
0x0eb3d4…0eb568 # DirEnt {nam=»CTAB05«, typ=»SC«, f00=0x8128, f01=0x855c, f02=0x0880, f03=0x8547}
0x0eb3d4…0eb568 IdxSect {
0x0eb3d4…0eb568 f00 = 0x0044 // 0xeb3d4 @0x0
0x0eb3d4…0eb568 f01 = 0x0004 // 0xeb3d6 @0x2
0x0eb3d4…0eb568 gno = [ // 0xeb3d8 @0x4
0x0eb3d4…0eb568 [0x00]: C0x0044.0x0.0
0x0eb3d4…0eb568 [0x01]: C0x0044.0x1.0
0x0eb3d4…0eb568 ]
0x0eb3d4…0eb568 }
0x0eb568…0eb6fc Dummy {f00=0x0044, f01=0x0190, f02=» ( P IDENT CTAB05 FT80 CONVERSION TABLSE P ENTRY CTAB05 0 L P************************************************************************ F P* 0 P* CONVERSION TABLES FOR 6236/71/72 KEYBOARDS 0 P* USED FOR THE PTS6000 DEMONSTRATION PROGRAM P
0x0eb6fc…0eb890 Dummy {f00=0x0044, f01=0x0190, f02=»SHIFT b L P************************************************************************ " L P* * r L P* CONVERSION TABLE FOR THE FUNCTION CLUSTER
0x0eb890…0eba24 Dummy {f00=0x0044, f01=0x0190, f02=»************************** b L PFUNCTN DATA /8C83,/878B,/8188,/8A84,/8289,/8586,/9297,/98A3 " L P DATA /3031,/3233,/3435,/3637,/3839,/BABB,/9096,/91A2 r L P DATA /A1A0,/9980,/9394,/959A
0x0eba24…0ebbb8 Dummy {f00=0x0044, f01=0x0190, f02=» * b L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * " L P* * r L P**********************************************************************
0x0ebbb8…0ebd4c Dummy {f00=0x0044, f01=0x0190, f02=» L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF T L P************************************************************************ L P*
0x0ebd4c…0ebee0 Dummy {f00=0x0044, f01=0x0190, f02=» L P* * L P************************************************************************ T L PSHIFT DATA /20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2
0x0ebee0…0ec074 (1, 298) Dummy {f00=0x0044, f01=0x40f8, f02=» L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0ec074…0ec208 Dummy {f00=0x0044, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0ec208…0ec39c Dummy {f00=0x0044, f01=0x0190, f02=» o 4 8 p0 0 8 r 8 & t 8 6 w D,A,L,CH 8 F y " 8 ^ z 8 n } GB,NL,B 8 " 8 8 J F " D @ RLLL iL RLLL RLLL RLLL RL DL RD RL RL0R^F RL RL0R^F kL RL kL R 8
0x0ec39c…0ec530 Dummy {f00=0x0044, f01=0x0190, f02=» " 8 9 S,SF 9 " 9 0 9 @ DK,N 9 R " 9 f 9 v P 9 " 9 9 US 9 " 9 9 YU 9
0x0ec530…0ec6c4 Dummy {f00=0x0044, f01=0x0190, f02=» 9 J F " D L kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL DL RD R : A : ` : r : : 0 D : 0 D : : : 0 E : 0 E :
0x0ec6c4…0ec858 Dummy {f00=0x0044, f01=0x0190, f02=» P : 0 P ; ; ; , 0 S ; > 0 S ; P ; b ; r ; 4 ; J F " D L DL RD RLLL RLLL RLLL iL RLLL RLLL0X R 4 E D E0X D R D 6 ; ; *
0x0ec858…0ec9ec Dummy {f00=0x0044, f01=0x018c, f02=» ; z & @ABCDEFGHIJKLMNO < & < & & < 4 & < B & PQRSTUVWXYZ[ ]^_ < P & `abcdefghijklmno < n & pqrstuvwxyz{|}~ < ( < < & < & < & k < & < & : <
0x0ec9ec…0ecb80 Dummy {f00=0x0044, f01=0x4008, f02=»@ = & @ABCDEFGHIJKLMNO < & < & & < 4 & < B & PQRSTUVWXYZ[ ]^_ < P & `abcdefghijklmno < n & pqrstuvwxyz{|}~ < ( < < & < & < & k < & < & : <
0x0ecb80…0ecd14 (1, 299) Opaque[0x194]
0x0ecd14…0ecea8 # DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x000a, f01=0x855c, f02=0x0890, f03=0x8547}
0x0ecd14…0ecea8 IdxSect {
0x0ecd14…0ecea8 f00 = 0x0044 // 0xecd14 @0x0
0x0ecd14…0ecea8 f01 = 0x0002 // 0xecd16 @0x2
0x0ecd14…0ecea8 gno = [ // 0xecd18 @0x4
0x0ecd14…0ecea8 [0x00]: C0x0044.0x2.0
0x0ecd14…0ecea8 ]
0x0ecd14…0ecea8 }
0x0ecea8…0ed03c Dummy {f00=0x0044, f01=0x0096, f02=» SCR PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,4K R LKE M d PKPF /L,DEMO r ASG /E0,TY10
0x0ed03c…0ed1d0 Dummy {f00=0x0044, f01=0x2008, f02=» PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,4K R LKE M d PKPF /L,DEMO r ASG /E0,TY10
0x0ed1d0…0ed364 Dummy {f00=0x0044, f01=0x0190, f02=» * & * & 2 * & = e ` * & [ n * & y ` * & 2 p
0x0ed364…0ed4f8 Dummy {f00=0x0044, f01=0x415c, f02=» A t * & * & - P R @ , ( K@ A0 n , ( a , ( q " $ & ( * , (
0x0ed4f8…0ed68c Dummy {f00=0x0044, f01=0x40de, f02=» < H IDENT T:DA00 TRA 10.0 - - F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & A0 0 * | * @ " $ & ( * , (
0x0ed68c…0ed820 Dummy {f00=0x0044, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 10.0 - - F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ * @ " $ & ( * , (
0x0ed820…0ed9b4 (1, 300) Opaque[0x194]
0x0ed9b4…0edb48 # DirEnt {nam=»CON11 «, typ=»UF«, f00=0x8547, f01=0x000e, f02=0x0898, f03=0xe55c}
0x0ed9b4…0edb48 IdxSect {
0x0ed9b4…0edb48 f00 = 0x0044 // 0xed9b4 @0x0
0x0ed9b4…0edb48 f01 = 0x0002 // 0xed9b6 @0x2
0x0ed9b4…0edb48 gno = [ // 0xed9b8 @0x4
0x0ed9b4…0edb48 [0x00]: C0x0044.0x3.0
0x0ed9b4…0edb48 ]
0x0ed9b4…0edb48 }
0x0edb48…0edcdc Dummy {f00=0x0044, f01=0x0190, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S01; b PT; r P01; | PTID=A0; PTCL=A0; PLEV=60; P01; PTDC=T01; PLC=001L; P02; PSDC=S02; PSDC=S03;
0x0edcdc…0ede70 Dummy {f00=0x0044, f01=0x0190, f02=»C=S02; PSDC=S03; PT; P01; ( PTID=C0; 4 PTCL=A0; D PLEV=60; T P01; d PTDC=T03; p PLC=003L; P02; PSDC=S02; PSDC=S03; PT; P01; PTID=D0; PTCL=A0; PLEV=60; P02;
0x0ede70…0ee004 Dummy {f00=0x0044, f01=0x0172, f02=»TID=E0; PTCL=A0; PLEV=60; P01; 0 PTDC=T05; < PLC=005L; L P02; PSDC=S02; h PSDC=S03; x PU; P009; PUBF; P002; PUIF; P002; PUCY; P002; PUOP; P002; PUA1;
0x0ee004…0ee198 Dummy {f00=0x0044, f01=0x2008, f02=» PTCL=A0; PLEV=60; P01; 0 PTDC=T05; < PLC=005L; L P02; PSDC=S02; h PSDC=S03; x PU; P009; PUBF; P002; PUIF; P002; PUCY; P002; PUOP; P002; PUA1;
0x0ee198…0ee32c Dummy {f00=0x0044, f01=0x018e, f02=» " e ZZZZZ9,99- " e . ZZZZZZ,ZZ- > " e X ZZZZZZZZ9,99 h " e ZZZZZZZZ9,99- " e ZZZZZZZZZ,ZZ " e ZZZZZZZZZ,ZZ-
0x0ee32c…0ee4c0 Dummy {f00=0x0044, f01=0x417c, f02=» $ ZZVZZZ,ZZ, " $e % 99E-99E-99 . " %e H & ZZE-ZZE-ZZ X " &e r ' ZZVZZZVZZ9,99- " 'e ( ZZZVZZZVZZ9,99 " (e ) ZZZVZZZVZZZ,ZZ " )e
0x0ee4c0…0ee654 (1, 301) Opaque[0x194]
0x0ee654…0ee7e8 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0008, f01=0x8547, f02=0x08a0, f03=0x855c}
0x0ee654…0ee7e8 IdxSect {
0x0ee654…0ee7e8 f00 = 0x0045 // 0xee654 @0x0
0x0ee654…0ee7e8 f01 = 0x0004 // 0xee656 @0x2
0x0ee654…0ee7e8 gno = [ // 0xee658 @0x4
0x0ee654…0ee7e8 [0x00]: C0x0045.0x0.0
0x0ee654…0ee7e8 [0x01]: C0x0045.0x1.0
0x0ee654…0ee7e8 ]
0x0ee654…0ee7e8 }
0x0ee7e8…0ee97c Dummy {f00=0x0045, f01=0x0190, f02=» ( P IDENT CTAB02 FT80 CONVERSION TABLSE P ENTRY CTAB02 0 L P************************************************************************ F P* 0 P* CONVERSION TABLES FOR 6236/71/72 KEYBOARDS 0 P* USED FOR THE PTS6000 DEMONSTRATION PROGRAM P
0x0ee97c…0eeb10 Dummy {f00=0x0045, f01=0x0190, f02=»SHIFT b L P************************************************************************ " L P* * r L P* CONVERSION TABLE FOR THE FUNCTION CLUSTER
0x0eeb10…0eeca4 Dummy {f00=0x0045, f01=0x0190, f02=»************************** b L PFUNCTN DATA /8C83,/878B,/8188,/8A84,/8289,/8586,/9297,/98A3 " L P DATA /3031,/3233,/3435,/3637,/3839,/BABB,/9096,/91A2 r L P DATA /A1A0,/9980,/9394,/959A
0x0eeca4…0eee38 Dummy {f00=0x0045, f01=0x0190, f02=» * b L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * " L P* * r L P**********************************************************************
0x0eee38…0eefcc Dummy {f00=0x0045, f01=0x0190, f02=» L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF T L P************************************************************************ L P*
0x0eefcc…0ef160 Dummy {f00=0x0045, f01=0x0190, f02=» L P* * L P************************************************************************ T L PSHIFT DATA /20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2
0x0ef160…0ef2f4 (1, 302) Dummy {f00=0x0045, f01=0x40f8, f02=» L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0ef2f4…0ef488 Dummy {f00=0x0045, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x0ef488…0ef61c Dummy {f00=0x0045, f01=0x0190, f02=»ESET TO NOT SPECIFIED z BA999 : RET H PEND T L P************************************************************************ b L P************************************************************************ L P*
0x0ef61c…0ef7b0 Dummy {f00=0x0045, f01=0x0190, f02=» * R L P* * L P************************************************************************ b T PSPAP15 PROC XWRET T
0x0ef7b0…0ef944 Dummy {f00=0x0045, f01=0x0190, f02=» b P CBE IDNR1,=D'2',S15900 ( R P CBE IDNR1,=D'6',S15900 H R P CBE IDNR1,=D'8',S15900 R P CBE IDNR1,=D'20',S1
0x0ef944…0efad8 Dummy {f00=0x0045, f01=0x0190, f02=» J L P* * L P* SCREEN PARAMETER IS NOT VALID * ` L P* * T P MOVE XW
0x0efad8…0efc6c Dummy {f00=0x0045, f01=0x0190, f02=» X T PS15900 T P RET x P PEND L P******************************************
0x0efc6c…0efe00 Dummy {f00=0x0045, f01=0x0190, f02=»******************************************************** PSPAP31 PROC XWRET @ PS31000 Z P MOVE WDEC1,SPINPUT h P CBG RDALFKB,=D'1',S31900 P* , P* VALUE ENTERED IS OKE, REDISPLAY LINE 7 P* 0 P MOVE RCTRMNME,=X'00' MAKE FIE
0x0efe00…0eff94 (1, 303) Opaque[0x194]
0x0eff94…0f0128 # DirEnt {nam=»FILES «, typ=»SC«, f00=0x000c, f01=0x8547, f02=0x08b0, f03=0x855c}
0x0eff94…0f0128 IdxSect {
0x0eff94…0f0128 f00 = 0x0045 // 0xeff94 @0x0
0x0eff94…0f0128 f01 = 0x0010 // 0xeff96 @0x2
0x0eff94…0f0128 gno = [ // 0xeff98 @0x4
0x0eff94…0f0128 [0x00]: C0x0045.0x2.0
0x0eff94…0f0128 [0x01]: C0x0045.0x3.0
0x0eff94…0f0128 [0x02]: C0x0046.0x0.0
0x0eff94…0f0128 [0x03]: C0x0046.0x1.0
0x0eff94…0f0128 [0x04]: C0x0046.0x2.0
0x0eff94…0f0128 [0x05]: C0x0046.0x3.0
0x0eff94…0f0128 [0x06]: C0x0047.0x0.0
0x0eff94…0f0128 [0x07]: C0x0047.0x1.0
0x0eff94…0f0128 ]
0x0eff94…0f0128 }
0x0f0128…0f02bc Dummy {f00=0x0045, f01=0x0190, f02=» 6 P IDENT FILES SEP 80,SEBE,BSO APELDOORN * > P* H P* R P* L G*********************************************************************** f P* . P* F I L E S 0 P*
0x0f02bc…0f0450 Dummy {f00=0x0045, f01=0x0190, f02=»INES ARE IN ASSEMBLER. v * < P* THE INTERFACE IS CALLED UPON THE FOLLOWING MANNERS : ( * h P* r $ * 1) TO CREATE A STANDARD FILE | * D P* CALL CRFS,DATAITEM1,VAL1,VOL1(,VOL2,..),DATE,RECL,NOREC, 2 P*
0x0f0450…0f05e4 Dummy {f00=0x0045, f01=0x0190, f02=»HE NUMBER OF VOLUMES. v @ <* VOL(1-4) REPRESENTS DATAITEMS IN WICH THE VOLUMENAMES : 5* ARE PLACED (EACH ONE MUST BE 6 CHAR.) b 8 P* DATE A STRING ITEM WITH THE SYSTEM DATE. B P* BF REPRESENTS THE BLOCKINGS FAC
0x0f05e4…0f0778 Dummy {f00=0x0045, f01=0x0190, f02=»CORDS. ^ : P* NOIND REPRESENTS THE NUMBER OF INDEX FILES. J E* KEY REPRESENTS A DATAITEM IN WICH THE KEYADRES IS PLACED. L : P* ERROR THIS FIELD CONTAINS THE ERROR NUMBER. * P* $ * 2) TO DELETE A STANDARD F
0x0f0778…0f090c Dummy {f00=0x0045, f01=0x0190, f02=»S WITH A CREATE FILE. d * P* ( L P*********************************************************************** 2 P* P* SEE NEXT PAGE. P* P EJECT P* L P****************************************************************
0x0f090c…0f0aa0 Dummy {f00=0x0045, f01=0x0190, f02=»2,..),LRN,ERROR f P* > P* LRN CONTAINS THE LAST RECORD NUMBER OF A FILE " B P* AFTER THE CALL GETLRN IS PERFORMED SUCCESFULL. d P* > P* THE CONTENS OF THE OTHER ITEMS IS THE SAME AS WITH A P* CREATE FILE.
0x0f0aa0…0f0c34 (1, 304) Dummy {f00=0x0045, f01=0x0190, f02=»),LRN,ERROR b P* 8 P* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A : P* CALL GETLRN, BUT IN THIS CASE THE LRN IS UPDATED Z , P* AT THE RIGTH PLACE IN THE -VTOC-. P* P* < P* 5) SOME ROUTINES TO GET THE SPECIALITIES
0x0f0c34…0f0dc8 Dummy {f00=0x0045, f01=0x0190, f02=»),...,ERROR b P* & P* GETRL RECORD LENGTH. . P* GETEL FILE EXTENSION LENGTH. H ( P* GETBF BLOCKINGS FACTOR. z . P* GETNIF NUMBER OF INDEX FILES. $ P* GETKA KEY ADDRESS. P*
0x0f0dc8…0f0f5c Dummy {f00=0x0045, f01=0x018e, f02=»NTAINS THE NAME OF THE INPUT FILE. ~ : P* FILEOUT CONTAINS THE NAME OF THE OUTPUT FILE. * : P* VOL1 CONTAINS THE VOLUME NAME OF INPUTFILE. h < P* VOL2 CONTAINS THE VOLUME NAME OF OUTPUTFILE. P* P* H D*
0x0f0f5c…0f10f0 Dummy {f00=0x0045, f01=0x0190, f02=» F P* P EJECT P* 6 P************************************************* * 6 P* E N T R I E S A N D E X T E R N A L S * d 6 P************************************************* P* P ENTRY CRFS P ENTRY DLFS
0x0f10f0…0f1284 Dummy {f00=0x0045, f01=0x018e, f02=»RL P ENTRY GETEL P ENTRY GETBF P ENTRY GETNIF 2 P ENTRY GETKA H P* P* f P EXTRN I:EVA0 p P EXTRN I:RT1 P EXTRN CRFILE P EXTRN DLFILE P EXTRN COPFIL P EJECT P* > P************
0x0f1284…0f1418 Dummy {f00=0x0045, f01=0x0190, f02=» PCRFS EQU * * P CF A14,STANDRD -STANDARD FILE BLOCK. * P CF A14,TEKST -FILL DATE RET. PERIOD. D P CF A14,A:EVA r $ P ST A3,BLOCK+50 -RECORD LENGTH. P CF A14,A:EVA $ P ST A3,BLOCK+56 -NO OF RECORDS. ( P CF A14,A:EVA -HAAL BLOCKI
0x0f1418…0f15ac Dummy {f00=0x0045, f01=0x0190, f02=»A:EVA -GET KEYADRES. P ST A3,BLOCK+52 $ P CF A14,STORE -SAVE REG 11 .. 13 4 " P LDKL A12,BLOCK -BLOCK ADRES. P CF A14,CRFILE -THE CREATE " P RF CFFEND -TO COMMON SEGMENT P* P* D P******************************************
0x0f15ac…0f1740 Dummy {f00=0x0045, f01=0x0190, f02=»A14,STANDRD STANDARD PARAM. " P CF A14,STORE STORE REGISTERS. $ P LDKL A12,BLOCK J $ P CF A14,DLFILE -DELETE THE FILE. b P RF CFFEND P* P* D P*************************************************************** P EJECT P*
0x0f1740…0f18d4 (1, 305) Dummy {f00=0x0046, f01=0x0190, f02=»RECORD NUMBER FROM l P* THE -VTOC-. P* 2 D P*************************************************************** < P* PGETLRN EQU * P CF A14,LRN P LDR A1,A1 P RF(NZ) AFHAND P LD A4,22,A4 -GET LRN NR. PGETAF EQ
0x0f18d4…0f1a68 Dummy {f00=0x0046, f01=0x0190, f02=»2 P ADS A2,REG12 -NIEUWE A12 P LDR A1,A1 -IS IT OKE.? , P RF(Z) COMSEG L P RF GETRC b P* t P* ~ B P************************************************************** P* & P* THIS ROUTINE IS THE PUTLRN. P*
0x0f1a68…0f1bfc Dummy {f00=0x0046, f01=0x0190, f02=» P RB(NZ) AFHAND P CF A14,A:EVA & P ST A3,22,A4 -STORE RECORD NUMBER. 4 " P CF A14,WRITE -WRITE THE LRN. ^ P* P RB AFHAND P* P EJECT P* 8 P*************************************************** P* GET T
0x0f1bfc…0f1d90 Dummy {f00=0x0046, f01=0x0190, f02=»ANDARDS. | P LDR A1,A1 P RB(NZ) AFHAND -OKE ?? " $ P LD A4,24,A4 -THE RECORD LENGTH. @ P RB GETAF h P* z . P***************************************** " P* GET THE EXTENSION LENGTH. . P*****************************************
0x0f1d90…0f1f24 Dummy {f00=0x0046, f01=0x0190, f02=»TH. p P RB GETAF P* , P**************************************** ( P* GET THE BLOCKINGS FACTOR. X , P**************************************** | P* PGETBF EQU * P CF A14,LRN -STANDARDS. P LDR A1,A1 P RB(NZ) AFHA
0x0f1f24…0f20b8 Dummy {f00=0x0046, f01=0x018e, f02=»***************** x ( P* GET THE NUMBER OF INDEX FILES. . P***************************************** F P* x PGETNIF EQU * P CF A14,LRN P LDR A1,A1 -OKE ?? P RB(NZ) AFHAND P LD A4,36,A4 -THE NUMBER. P SLL A4,8
0x0f20b8…0f224c Dummy {f00=0x0046, f01=0x018e, f02=» d P* GET THE KEY ADDRESS. . P****************************************** * P* PGETKA EQU * f P CF A14,LRN z P LDR A1,A1 -OKE ?? P RB(NZ) AFHAND " P LD A4,38,A4 -THE KEY ADDRESS. P RB GETAF P* P* .
0x0f224c…0f23e0 Dummy {f00=0x0046, f01=0x0190, f02=» PCFF EQU * P CF A14,QUEUE -SYSTEM FREE. P CF A14,INIT > " P CF A14,ASROUT -ASSIGN FILES. R P CF A14,ASROUT x P LD A1,FC1 -FC1 := C0. P SUK A1,2 P ST A1,FC1 P LDK A2,0 P ST A2,BLOCK+4 INIT BLOCK. P ADK
0x0f23e0…0f2574 (1, 306) Dummy {f00=0x0046, f01=0x0190, f02=»DKL A12,BLOCK -BLOCK ADDRESS. " P CF A14,COPFIL -COPY ROUTINE. & PCFFEND EQU * L P RF COMSEG ` P* r P EJECT | P* P* 0 P******************************************** P* THE ASSIGN ROUTINE. $ P* THE FILE CODE IS I
0x0f2574…0f2708 Dummy {f00=0x0046, f01=0x018e, f02=» LDK A4,8 -BYTES TO MOVE. P LDK A3,6 -FROM BYTE 6. " P CF A14,A:MOVE B " P CF A14,I:EVA0 -A VOLUME NAME. X P LDK A4,6 ~ P LDK A3,14 P CF A14,A:MOVE $ P LDKL A8,ASSBLK -ADDRESS BLOCK. P LDK A7,0 -NORMAL ASSIGN. P LD A1
0x0f2708…0f289c Dummy {f00=0x0046, f01=0x0190, f02=» P* P EJECT P* , P*************************************** & " P* G E T R E T U R N C O D E V , P*************************************** | P* PGETRC EQU * P LD A2,RETCOD " P LDR A1,A2 -RETURN CODE IN A1 P A
0x0f289c…0f2a30 Dummy {f00=0x0046, f01=0x018e, f02=» RF(NZ) COMSEG -IN A1 AL WRONG. P LDR A1,A2 ( " P ANK A1,1 -DISK NOT OPERABLE. : P RF(NZ) COMSEG ` $ P LDR A1,A2 -VOLUME NAME UNKNOWN. v P RF COMSEG P* P* 2 P********************************************* P* C O M S E
0x0f2a30…0f2bc4 Dummy {f00=0x0046, f01=0x0190, f02=» PCOMSEG EQU * P LDR A4,A1 & P CF A14,RESTOR -RESTORE A11,..A13 . P CF A14,I:EVA0 X P STR A4,A9 n P LDK A1,0 -PRESET COND. REG. P LDR A4,A4 -TJEK ON STATUS. P RF(Z) CON0 P LDK A1,2 -ERROR. PCON0 EQU * P
0x0f2bc4…0f2d58 Dummy {f00=0x0046, f01=0x0190, f02=»********* ` P* * P* STANDARD ROUTINES FOR THE GETLRN. P* J P* T PLRN EQU * ^ 0 P CF A14,STANDRD -GET FILENAME + VOLUME NAME p P CF A14,STORE . P CF A14,INIT1 -FC--> E9, REC LENGTH--> 410 ( PVOLG CF A14,INIT2 -BUFADRES
0x0f2d58…0f2eec Dummy {f00=0x0046, f01=0x0190, f02=». r " P CF A14,VTOC -SEARCH THE VTOC. P LDR A1,A1 0 P RF(NZ) ENDLRN -I/O ERROR B " P LDR A8,A8 -FILE NOT IN VTOC. d P RB(Z) VOLG PENDLRN EQU * P RTN A14 P* P* PINIT1 EQU * P LDK A1,0 $ P ST A1,RETCO
0x0f2eec…0f3080 Dummy {f00=0x0046, f01=0x0190, f02=» P* PINIT2 EQU * P LDK A2,0 " P ST A2,SECNR -SECTOR NUMBER. 4 P LDKL A2,BUFFER X P ST A2,ECB+2 -BUFFER ADRES p P LDK A1,1 P RTN A14 P EJECT P* , P*************************************** P* GET THE
0x0f3080…0f3214 (1, 307) Dummy {f00=0x0046, f01=0x0190, f02=» t P LC A1,ECB+1 P SUK A1,/F4 -IS IT F4 ? P RF(Z) VOLABSEN < P CF A14,READ T P LDR A1,A1 h P RF(NZ) NEXTVOL z & P CF A14,CHKVLN -CHECK VOLUME NAME. P LDR A1,A1 P RF(NZ) NXVOL -NEXT VOLUME P RTN A14 PNXVOL EQ
0x0f3214…0f33a8 Dummy {f00=0x0046, f01=0x0190, f02=»E. | PVOLABSEN LDK A1,2 P RTN A14 $ P* 4 P* > P* H P EJECT R P* ` P* j < P******************************************************** t " P* I / O R O U T I N E S . < P**********************************************
0x0f33a8…0f353c Dummy {f00=0x0046, f01=0x0190, f02=»EQU * P LDK A7,/95 -PHYSICAL WRITE. P RF IODISC 2 P* D P* N P* X & P* CHECK THE RETURN CODE. b P* PIODISC EQU * P LDK A2,1 -INDICATION RETRY. P LDKL A8,ECB PRETRY LKM P DATA 1 P LD
0x0f353c…0f36d0 Dummy {f00=0x0046, f01=0x0190, f02=»ODE l PEOREAD EQU * ! P RTN A14 ! P* ! 0 P* ! : B P************************************************************** ! D & P* CHECK CONDITION REGISTER. ! B P************************************************************** ! P* ! PKOND
0x0f36d0…0f3864 Dummy {f00=0x0046, f01=0x018e, f02=» ! P LDR* A3,A9 " P RTN A14 " P* " , P EJECT " 6 P* " D P* " N . P***************************************** " X P* CHECK VOLUME NAME. " . P***************************************** " P* " PCHKVLN EQU * " P LD A2,ECB+2 -
0x0f3864…0f39f8 Dummy {f00=0x0046, f01=0x0190, f02=» ( P LDKL A4,BLOCK+16 -BASIC VOLUME NAME # PLABEL EQU * # 0 P LDK A1,6 # D " P CF A14,COMPAR -CHECK THE NAME # V P LDR A1,A1 # | P RF(Z) EINDE # P ADK A3,1 -NEXT NAME # " P CWR A6,A3 -ALL VOLUMES HAD ?? # P RF(N) EINDE # P ADK A4,6 -ADJUS
0x0f39f8…0f3b8c Dummy {f00=0x0046, f01=0x0190, f02=»ECT POINTER ? # | PC:LOOP SUK A1,1 $ P SUK A4,1 $ . P LCR A5,A4 -CHAR IN A5. $ @ P CC A5,0,A1 -COMPARE CHAR. $ ` $ PC:STOR EQU *-2 -SAVE ADRES ITEM $ P RF(NZ) NOTSAME -NOT EQUAL $ P LDR A1,A1 $ P RB(NZ) C:LOOP $ P RTN A14 $ PNOTS
0x0f3b8c…0f3d20 Dummy {f00=0x0046, f01=0x0190, f02=»******************* $ P* GET NEXT ECB. % & P********************************* % 6 P* % ` P* % j PNXTECB EQU * % t P LDKL A2,BUFFE2 % & P ST A2,ECB+2 -SAVE BUFFER2 ADRES. % & P LD A6,BUFFER+12 -FREE SPACE TABLE % P ADK A6,1 % & P L
0x0f3d20…0f3eb4 (1, 308) Dummy {f00=0x0046, f01=0x0190, f02=»********************************** % ( P* SEARCH FILENAME IN THE -VTOC-. & * 2 P********************************************** & V P* & P* & PSEARCH EQU * & & P LDKL A4,BLOCK+8 -ADRES FILE NAME. & * P ST A4,C:STOR STORE IN ROUTINE COMPAR &
0x0f3eb4…0f4048 Dummy {f00=0x0046, f01=0x0190, f02=»Z) OKE -SAME ?? & " P ADK A4,42 -NEXT VTOC RECORD. ' & P CWK A4,BUFFE2+420 -END OF SECTOR. ' > P RB(2) LABEL2 -NO GET BACK. ' h POKE RTN A14 ' P* ' P EJECT ' P* ' P* ' ( P************************************ ' P* READ SECTOR
0x0f4048…0f41dc Dummy {f00=0x0046, f01=0x0190, f02=» ' n P CF A14,READ -READ SECTOR ( P LDR A1,A1 ( * P RF(NZ) ERRREAD -ERROR ? ( < & P CF A14,SEARCH -SEARCH FILE NAME. ( P LDR A1,A1 ( P RF(Z) FOUND -FOUND ?? ( P ADK A6,1 -NO NEXT ONE ( P CWR A3,A6 -END OF SECTOR ? ( & P RB(NZ) VTOC -NO
0x0f41dc…0f4370 Dummy {f00=0x0046, f01=0x0190, f02=»NOT PRESENT. ( PERRREAD RTN A14 ) P* ) , P* ) 6 PFOUND EQU * ) @ P LDK A1,0 ) T P RTN A14 ) f P* ) v P* ) P EJECT ) P* ) P* ) * P************************************* ) P* STANDARD SUB ROUTINE. ) * P************
0x0f4370…0f4504 Dummy {f00=0x0046, f01=0x0190, f02=» P CF A14,A:PPC * P LDR A7,A3 -SAVE REGISTER. * P LDK A6,0 * < PST:01 EQU * * N P CF A14,VOLNAM * b P ADK A6,1 * x P SUK A7,1 * P RB(NZ) ST:01 * P LDKL A1,/5353 * * P SC A1,BLOCK+6 -STORE IN PARAM BLOCK. * P RTN A14 * P*
0x0f4504…0f4698 Dummy {f00=0x0046, f01=0x0190, f02=»LE THE TASK UNTILL * | P* THE ENTRY IS OMITTED. + , P*************************************** + < P* + l P* + v PQUEUE EQU * + P LD A1,FREE -IS OMITTED ?? + P RF(Z) Q:RTN -OKAY IF ZERO. + P LKM + P DATA 0 + P RB QUEUE + P
0x0f4698…0f482c Dummy {f00=0x0046, f01=0x0190, f02=»*************************** + ( P* THIS ROUTINE IS TO COPY THE USER , $ ( P* FILENAME TO THE DISCRIPTOR BLOCK. , P . P****************************************** , | P* , P* , PFILNAM EQU * , P CF A14,I:EVA0 , P LDK A4,8 -BYTES TO MOVE. ,
0x0f482c…0f49c0 Dummy {f00=0x0046, f01=0x0190, f02=»********** , p * P* THIS ROUTINE IS TO MOVE THE VOLUME - $ P* NAME TO THE DISCRIPTOR BLOCK. - @ P* - h 6 P* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME. - r . P****************************************** - P* - P* - PVOLNAM EQU * - P C
0x0f49c0…0f4b54 (1, 309) Dummy {f00=0x0047, f01=0x0190, f02=» - t P LDK A3,16 -VOLUME ENTRY. . P ADR A3,A1 -ADD INDEX. . * P LDK A4,6 -LENGTH . H P CF A14,A:MOVE -MOVE VOLUME . b P RTN A14 . P* . P* . 6 P************************************************* . 0 P* ROUTINE TO GET A CONSTANT VALUE
0x0f4b54…0f4ce8 Dummy {f00=0x0047, f01=0x018e, f02=»***** . d P* / P* / PA:PPC EQU * / " P LDK A3,0 / 6 P LCR A3,A12 / H P ADKL A12,1 / P RTN A14 / p P EJECT / P* / P* / 8 P**************************************************** / . P* ROUTINE TO MOVE CORE FROM USER TO THE
0x0f4ce8…0f4e7c Dummy {f00=0x0047, f01=0x0190, f02=» 2 P* REG. A3 CONTAINS THE ENTRY IN THE BLOCK. 0 : P***************************************************** 0 : P* 0 x P* 0 PA:MOVE EQU * 0 $ P LDKL A1,BLOCK -DISCRIPTOR BLOCK 0 P ADR A1,A3 -ENTRY IN BLOCK 0 P ST A1,DISCRIPT 0 P ST A9
0x0f4e7c…0f5010 Dummy {f00=0x0047, f01=0x0190, f02=»4 0 PADRES EQU *-2 1 P SC A1,0,A4 1 PDISCRIPT EQU *-2 1 4 P RB M:LOOP 1 L PM:END EQU * 1 ^ P RTN A14 1 r P* 1 P* 1 : P****************************************************** 1 2 P* ROUTINE TO MOVE DATE AND RETENTION PERIOD 1 .
0x0f5010…0f51a4 Dummy {f00=0x0047, f01=0x018e, f02=»TEKST EQU * 1 P CF A14,I:EVA0 2 P LDK A4,15 LENGTH TEXT. 2 * P LDK A3,40 ENTRY IN BLOCK. 2 J P CF A14,A:MOVE 2 l P RTN A14 2 P* 2 P* 2 P EJECT 2 P* 2 P* 2 : P****************************************************** 2 4 P*
0x0f51a4…0f5338 Dummy {f00=0x0047, f01=0x0190, f02=» 2 X P* 3 PINIT EQU * 3 P LDKL A1,/2020 -SPACES. 3 $ P LDK A2,50 3 D PI:LOOP EQU * 3 V P ST A1,BLOCK+6,A2 3 j P SUK A2,2 3 $ P RB(NN) I:LOOP -END OF BUFFER ?? 3 P LDK A1,0 3 0 P ST A1,BLOCK+54 -NUMBER OF INDEX FILES --> 0 3 P RTN
0x0f5338…0f54cc Dummy {f00=0x0047, f01=0x0190, f02=»******************** 3 t " P* ROUTINE TO SAVE REGISTERS. 4 4 P************************************************ 4 B P* 4 z PSTORE EQU * 4 P ST A11,REG11 4 P ST A12,REG12 4 P ST A13,REG13 4 P RTN A14 4 P* 4 P* 4 4 P**********
0x0f54cc…0f5660 Dummy {f00=0x0047, f01=0x0190, f02=»********** 4 j P* 5 PRESTOR EQU * 5 P LDKL A11,0 5 0 PREG11 EQU *-2 5 D P LDKL A12,0 5 Z PREG12 EQU *-2 5 n P LDKL A13,0 5 PREG13 EQU *-2 5 P RTN A14 5 P* 5 P DATA 'TM','P-' 5 P EJECT 5 P* 5 P* 5 L P******
0x0f5660…0f57f4 (1, 310) Dummy {f00=0x0047, f01=0x0190, f02=» P* 6 P* 6 PBLOCK EQU * 6 P DATA BUFFER 6 , P DATA BUFFE2 6 @ PASSBLK DATA 0 6 T P RES 16 6 j PECB DATA 0 6 z P DATA 0 6 P DATA 0 6 P DATA 0 6 P DATA 0 -RETURN CODE. 6 PSECNR DATA 0 -SECTOR NUMBER. 6 PRETCOD DAT
0x0f57f4…0f5988 Dummy {f00=0x0047, f01=0x411e, f02=»**************** 6 X P* 7 @ P* C R E A T E A N D D E L E T E B U F F E R 7 " P* 7 f P* 7 p P* 7 z P DATA 0 7 P DATA /4141 7 PBUFFER EQU * 7 P RES 205 7 PBUFFE2 EQU * 7 P RES 205 7 P* 7 P* 7 P* 7
0x0f5988…0f5b1c Dummy {f00=0x0047, f01=0x2008, f02=» 8 ******** 6 X P* 7 @ P* C R E A T E A N D D E L E T E B U F F E R 7 " P* 7 f P* 7 p P* 7 z P DATA 0 7 P DATA /4141 7 PBUFFER EQU * 7 P RES 205 7 PBUFFE2 EQU * 7 P RES 205 7 P* 7 P* 7 P* 7
0x0f5b1c…0f5cb0 Dummy {f00=0x0047, f01=0x4148, f02=»FF DN=7 P IFF DN=8 P IFF DN=9 " P IFF DN=10 4 P IFF DN=11 F P IFF DN=12 X P IFF DN=13 j P IFF DN=14 | P* DOCUMENT TABLE 15 P , P DOCPAR 1,0,10,67,14,2,2,0,0,0,58,0,0,0 P XIF PETTP03 EQU * 0 PTLTP
0x0f5cb0…0f5e44 Dummy {f00=0x0047, f01=0x2008, f02=» IFF DN=8 IFF DN=9 IFF DN=10 0 IFF DN=11 B IFF DN=12 T IFF DN=13 f IFF DN=14 x * DOCUMENT TABLE 15 D15 XIF END @ F DN=12 IFF DN=13 * DOCUMENT T
0x0f5e44…0f5fd8 Dummy {f00=0x0047, 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. "
0x0f5fd8…0f616c Dummy {f00=0x0047, f01=0x0190, f02=»T @f TH Af 0 Af Af T g DV Af T Af @f Af @f Q T f f 4^ fl Af T T @f PB @[h @qLP8 Af fn f AfT Aff f f fR _ h. fl x @f Q PN Q P E Af. Q Af f f f f 00 AfP AfT Aff Afn Q P
0x0f616c…0f6300 Dummy {f00=0x0047, f01=0x0190, f02=»f fR i fl x Q _ : 0715178182 22 ASM DC:TABLED TCLASS!!IL 11 DATA TC00TC00 DATA
0x0f6300…0f6494 (1, 311) Opaque[0x194]
0x0f6494…0f6628 # DirEnt {nam=»LINPRO«, typ=»UF«, f00=0x001a, f01=0xe147, f02=0x08f0, f03=0x8f20}
0x0f6494…0f6628 IdxSect {
0x0f6494…0f6628 f00 = 0x0047 // 0xf6494 @0x0
0x0f6494…0f6628 f01 = 0x0002 // 0xf6496 @0x2
0x0f6494…0f6628 gno = [ // 0xf6498 @0x4
0x0f6494…0f6628 [0x00]: C0x0047.0x2.0
0x0f6494…0f6628 ]
0x0f6494…0f6628 }
0x0f6628…0f67bc Dummy {f00=0x0047, f01=0x00c4, f02=» SCR PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,4K R PINC /OBJCT,INT:PROD,/F0 d PKPF /O PLKE M PKPF /L,DEMOP ASG /E0,TY10
0x0f67bc…0f6950 Dummy {f00=0x0047, f01=0x2008, f02=» PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,4K R PINC /OBJCT,INT:PROD,/F0 d PKPF /O PLKE M PKPF /L,DEMOP ASG /E0,TY10
0x0f6950…0f6ae4 Dummy {f00=0x0047, f01=0x0190, f02=» * & * & 2 * & = e ` * & [ n * & y ` * & 2 p
0x0f6ae4…0f6c78 Dummy {f00=0x0047, f01=0x415c, f02=» A t * & * & - P R @ , ( K@ A0 n , ( a , ( q " $ & ( * , (
0x0f6c78…0f6e0c Dummy {f00=0x0047, f01=0x40de, f02=» < H IDENT T:DA00 TRA 10.0 - - F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & A0 0 * | * @ " $ & ( * , (
0x0f6e0c…0f6fa0 Dummy {f00=0x0047, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 10.0 - - F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ * @ " $ & ( * , (
0x0f6fa0…0f7134 (1, 312) Opaque[0x194]
0x0f7134…0f72c8 # DirEnt {nam=»GETLRN«, typ=»SC«, f00=0x00ff, f01=0x5106, f02=0x08f8, f03=0xf6d3}
0x0f7134…0f72c8 IdxSect {
0x0f7134…0f72c8 f00 = 0x0047 // 0xf7134 @0x0
0x0f7134…0f72c8 f01 = 0x000a // 0xf7136 @0x2
0x0f7134…0f72c8 gno = [ // 0xf7138 @0x4
0x0f7134…0f72c8 [0x00]: C0x0047.0x3.0
0x0f7134…0f72c8 [0x01]: C0x0048.0x0.0
0x0f7134…0f72c8 [0x02]: C0x0048.0x1.0
0x0f7134…0f72c8 [0x03]: C0x0048.0x2.0
0x0f7134…0f72c8 [0x04]: C0x0048.0x3.0
0x0f7134…0f72c8 ]
0x0f7134…0f72c8 }
0x0f72c8…0f745c Dummy {f00=0x0047, f01=0x018e, f02=» " P IDENT GETLRN READ LRN IN VTOC P* * L P*********************************************************************** 4 P* , P* TO GET THE LRN OF A STANDARD FILE P* 2 P* CALL GETLRN,FILENAME,1,VOLNAME,LRN,ERCOD P* 0 P
0x0f745c…0f75f0 Dummy {f00=0x0047, f01=0x0190, f02=» ( P* THE CONTENTS OF THE ITEMS IS: P* DATAITEM1 : FILE NAME 0 $ P* VAL1 : NR OF VOLUMES T P* | L G*********************************************************************** P* P* 6 P******************************
0x0f75f0…0f7784 Dummy {f00=0x0047, f01=0x018e, f02=» ^ P* P ENTRY GETLRN P ENTRY PUTLRN ( P* > P EXTRN I:EVA0 H P EXTRN I:RT1 ^ P EJECT r N P************************************************************************** P* ( P* THIS ROUTINE IS TO GET THE LRN P
0x0f7784…0f7918 Dummy {f00=0x0047, f01=0x0190, f02=» P LDR A1,A1 ERROR CODE P RF(NZ) WRONG & P LD A4,22,A4 GET LRN < ( P CF A14,I:EVA0 ADRESS LRN IN CRDEIT X P STR A4,A9 STORE LRN P LDK A1,0 OK P RF AFHAND P EJECT B P****************************************************
0x0f7918…0f7aac Dummy {f00=0x0047, f01=0x0190, f02=»******* X P* PPUTLRN EQU * P CF A14,LRN . P LDR A1,A1 B P RF(NZ) WRONG T P CF A14,I:EVA0 j P LDR* A3,A9 & P ST A3,22,A4 -STORE RECORD NUMBER. " P CF A14,WRITE -WRITE THE LRN. P RF AFHAND PWRONG EQU * &
0x0f7aac…0f7c40 Dummy {f00=0x0047, f01=0x0190, f02=»C P* P EJECT , P*************************************** " " P* G E T R E T U R N C O D E R , P*************************************** x PGETRC EQU * P LD A2,RETCOD " P LDR A1,A2 -RETURN CODE IN A1 P ANKL A1,/028E -
0x0f7c40…0f7dd4 (1, 313) Dummy {f00=0x0048, f01=0x018e, f02=» -IN A1 AL WRONG. P LDR A1,A2 " P ANK A1,1 -DISK NOT OPERABLE. , P RF(NZ) COMSEG R $ P LDR A1,A2 -VOLUME NAME UNKNOWN. h 2 P********************************************* P* C O M S E G , P* COMMON EXIT PART FOR ALL FUNCTIONS.
0x0f7dd4…0f7f68 Dummy {f00=0x0048, f01=0x0190, f02=» P LDK A1,0 -PRESET COND. REG. P LDR A4,A4 -TJEK ON STATUS. ( P RF(Z) CON0 L P LDK A1,2 -ERROR. ` PCON0 EQU * z * P LD A2,2,A13 CHECK CONDITION REGISTER P SC A1,-2,A2 P CM FREE -FREE. P ABL I:RT1 P EJECT P*
0x0f7f68…0f80fc Dummy {f00=0x0048, f01=0x0190, f02=» P* PLRN EQU * 0 P CF A14,STANDRD -GET FILENAME + VOLUME NAME . P CF A14,INIT1 -FC--> E9, REC LENGTH--> 410 T ( PVOLG CF A14,INIT2 -BUFADRES + SECNR. P CF A14,GETVOL -GET VOLUME. P LDR A1,A1 P RF(NZ) ENDLRN -NOT OPERABLE
0x0f80fc…0f8290 Dummy {f00=0x0048, f01=0x0190, f02=»DR A8,A8 -FILE NOT IN VTOC. P RB(Z) VOLG $ PENDLRN EQU * 8 P RTN A14 L P* P EJECT f P* t PINIT1 EQU * ~ P LDK A1,0 $ P ST A1,RETCOD -INIT RETURN CODE P LDK A1,/E8 FIRST FILE CODE P ST A1,ECB STORE IN ECB
0x0f8290…0f8424 Dummy {f00=0x0048, f01=0x0190, f02=»SECTOR 0 ~ " P ST A2,SECNR+2 -SECTOR NUMBER. P LDKL A2,BUFFER 6 P ST A2,ECB+2 -BUFFER ADRES N P LDK A1,1 p P RTN A14 P EJECT P* , P*************************************** P* GET THE VOLUME NAME. , P**************
0x0f8424…0f85b8 Dummy {f00=0x0048, f01=0x018e, f02=»1,/FA -IS IT FA ? P RF(Z) VOLABSEN P CF A14,READ 2 P LDR A1,A1 F P RF(NZ) NEXTVOL X & P CF A14,CHKVLN -CHECK VOLUME NAME. p P LDR A1,A1 P RF(NZ) NXVOL -NEXT VOLUME P RTN A14 PNXVOL EQU * & P LDK A1,/40 -VOLUME NA
0x0f85b8…0f874c Dummy {f00=0x0048, f01=0x0190, f02=» P RTN A14 P* P* P* ( P EJECT 2 P* @ P* J < P******************************************************** T " P* I / O R O U T I N E S . < P******************************************************** P* P*
0x0f874c…0f88e0 Dummy {f00=0x0048, f01=0x0190, f02=»CAL WRITE. ~ P RF IODISC P* $ P* . P* 8 & P* CHECK THE RETURN CODE. B P* l PIODISC EQU * v P LDK A2,1 -INDICATION RETRY. P LDKL A8,ECB PRETRY LKM P DATA 1 P LD A1,8,A8 -RETURN CODE. P R
0x0f88e0…0f8a74 (1, 314) Dummy {f00=0x0048, f01=0x018e, f02=» RTN A14 P* P* P EJECT $ . P***************************************** 2 P* CHECK VOLUME NAME. d . P***************************************** P* PCHKVLN EQU * P LD A2,ECB+2 -BUFFER ADRS. " P ST A2,C:STOR -ROU
0x0f8a74…0f8c08 Dummy {f00=0x0048, f01=0x0190, f02=» " P CF A14,COMPAR -CHECK THE NAME P LDR A1,A1 . P RF(Z) EINDE @ P ADK A3,1 -NEXT NAME T " P CWR A6,A3 -ALL VOLUMES HAD ?? p P RF(N) EINDE P ADK A4,6 -ADJUST POINTER. P RB LABEL PEINDE RTN A14 P* P EJECT
0x0f8c08…0f8d9c Dummy {f00=0x0048, f01=0x0190, f02=» LCR A5,A4 -CHAR IN A5. P CC A5,0,A1 -COMPARE CHAR. $ PC:STOR EQU *-2 -SAVE ADRES ITEM B P RF(NZ) NOTSAME -NOT EQUAL j P LDR A1,A1 P RB(NZ) C:LOOP P RTN A14 PNOTSAME EQU * P SUR A4,A1 -GET POINTER BACK P LDK A1,2
0x0f8d9c…0f8f30 Dummy {f00=0x0048, f01=0x018e, f02=» P* PNXTECB EQU * P LDKL A2,BUFFE2 & & P ST A2,ECB+2 -SAVE BUFFER2 ADRES. > & P LD A6,BUFFER+10 -FREE SPACE TABLE h P ADK A6,1 & P LD A3,BUFFER+6 -GET VTOC SECTORS. " P ADR A3,A6 -LAST VTOC SECTOR. P RTN A14 P*
0x0f8f30…0f90c4 Dummy {f00=0x0048, f01=0x0190, f02=» 2 P********************************************** P* : P* D PSEARCH EQU * N $ P LDKL A4,WORK -ADRES FILE NAME. b * P ST A4,C:STOR STORE IN ROUTINE COMPAR ( P LDKL A4,BUFFE2 -BEGIN VTOC RECORD. PLABEL2 LDK A1,8 $ P CF A14,COMP
0x0f90c4…0f9258 Dummy {f00=0x0048, f01=0x0190, f02=»OF SECTOR. x P RB(2) LABEL2 -NO GET BACK. POKE RTN A14 6 P* J P EJECT T P* b P* l ( P************************************ v P* READ SECTOR OF THE VTOC. ( P************************************ P* P* PVT
0x0f9258…0f93ec Dummy {f00=0x0048, f01=0x0190, f02=» x & P CF A14,SEARCH -SEARCH FILE NAME. P LDR A1,A1 2 P RF(Z) FOUND -FOUND ?? D P ADK A6,1 -NO NEXT ONE b P CWR A3,A6 -END OF SECTOR ? & P RB(NZ) VTOC -NO NEXT VTOC SECTOR. " P LDK A1,/20 -FILENAME UNKNOWN & P ORS A1,RETCOD -STOR
0x0f93ec…0f9580 Dummy {f00=0x0048, f01=0x0190, f02=» LDK A1,0 P RTN A14 P* " P* , P EJECT 6 P* D P* N * P************************************* X P* STANDARD SUB ROUTINE. * P************************************* P* P* PSTANDRD EQU * P CF A14,
0x0f9580…0f9714 (1, 315) Dummy {f00=0x0048, f01=0x0190, f02=»VE MOVE FILENAME TO WORK P LDK A3,0 CLEAR A3 ( P LCR A3,A12 FETCH NUMBER OF VOLUMES : ( P ADKL A12,1 INCREASE PROGRAMPOINTER f P LDR A7,A3 -SAVE REGISTER. P LDK A6,0 PST:01 EQU * P CF A14,VOLNAM P ADK A6,1 P SUK A
0x0f9714…0f98a8 Dummy {f00=0x0048, f01=0x0190, f02=» P* SUB ROUTINE : QUEUE. P* $ * P* THIS IS TO SHEDULE THE TASK UNTILL . P* THE ENTRY IS OMITTED. , P*************************************** ~ PQUEUE EQU * P LD A1,FREE -IS OMITTED ?? P RF(Z) Q:RTN -OKAY IF ZERO. P
0x0f98a8…0f9a3c Dummy {f00=0x0048, f01=0x0190, f02=»******************** z * P* THIS ROUTINE IS TO MOVE THE VOLUME $ P* NAME TO THE DISCRIPTOR BLOCK. J P* r 6 P* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME. | . P****************************************** PVOLNAM EQU * P CF A14,I:EV
0x0f9a3c…0f9bd0 Dummy {f00=0x0048, f01=0x0190, f02=»DK A3,8 -VOLUME ENTRY. P ADR A3,A1 -ADD INDEX. P LDK A4,6 -LENGTH < P CF A14,A:MOVE -MOVE VOLUME V P RTN A14 z P EJECT P* P* 8 P**************************************************** . P* ROUTINE TO MOVE CORE FROM U
0x0f9bd0…0f9d64 Dummy {f00=0x0048, f01=0x0190, f02=»NGTH t 0 P* REG. A3 CONTAINS THE ENTRY IN THE WORK. : P***************************************************** @ P* ~ P* PA:MOVE EQU * $ P LDKL A1,WORK ADDRESS WORKFIELD P ADR A1,A3 -ENTRY IN BLOCK P ST A1,DISCRIPT P
0x0f9d64…0f9ef8 Dummy {f00=0x0048, f01=0x0190, f02=»A1,0,A4 PADRES EQU *-2 P SC A1,0,A4 & PDISCRIPT EQU *-2 : P RB M:LOOP R PM:END EQU * d P RTN A14 x P EJECT P* P* L P************************************************************************ P* 4 P*
0x0f9ef8…0fa08c Dummy {f00=0x0048, f01=0x4160, f02=»A BUFFE2 PWORK DATA 0 P RES 6 $ PECB DATA 0 2 P DATA 0 D P DATA 0 T P DATA 0 d P DATA 0 -RETURN CODE. t PSECNR DATA 0 -SECTOR NUMBER. P DATA 0 CONTROL WORD 2 PRETCOD DATA 0 PBUFFER EQU * P RES 128
0x0fa08c…0fa220 Dummy {f00=0x0048, f01=0x2008, f02=» ******** 6 X P* 7 @ P* C R E A T E A N D D E L E T E B U F F E R 7 " P* 7 f P* 7 p P* 7 z P DATA 0 7 P DATA /4141 7 PBUFFER EQU * 7 P RES 205 7 PBUFFE2 EQU * 7 P RES 205 7 P* 7 P* 7 P* 7
0x0fa220…0fa3b4 (1, 316) Dummy {f00=0x0048, f01=0x0190, f02=» )"R "mW GI2 6RW 5 * & 6m4 !eR !eS !eW !en !eo !ep 6 * & C 4 IK#8R 5N%7X D 0 DD 6 N * & ; 0 DDW C 4 1%!6S I2 A` 6 | * & Y fm % 1 I2kH4 ' J1 6 * & w @4_)H5 HW &I2@ 6T 6 * &
0x0fa3b4…0fa548 Dummy {f00=0x0048, f01=0x0190, f02=» I2(H ! m ! S %7T 0 W Ci 6 * & W ChW C W 4 I5 I1 (j 7 . * & + W fR!fT Cj W A4 A 4 0 7 * & I s #I2 6S u4 e C$ 4 7 * & g @V@2@Q S @R@S@T@U _k + 7 * & RA R % R %R .!@ _7 A
0x0fa548…0fa6dc Dummy {f00=0x0048, f01=0x0190, f02=» p p 7 p * & I2}W I2vHV W`!S )R W 8 * & T)R WL!R )R W@6R 8 < * & 9 $(,0!_l W* !W& "W" #W $W 8 j * & W %W &W 'W (W )W *W +!R 8 * & u !"T ) S ? 4 "R s0 ^ I2 8 * & 0 ^ I2 1
0x0fa6dc…0fa870 Dummy {f00=0x0048, f01=0x0190, f02=» 0 I2 /I2 "S - 8 ~ * & I2 W "m4 J IJ Is 9 * & ) Iv IJ%Ir" Js IJ Is Iv IJ%IR # 9 J * & G IZ Js%JR %Jq C 4 ) R R )S 9 x * & e W ) R S !S IQ IR IT IS~W HU 9 * & y) R R IQpW ) R S HQ ISbIR_IT 9 * &
0x0fa870…0faa04 Dummy {f00=0x0048, f01=0x0190, f02=» W 4 9 e : * & / t I e : * * & ' ) j D : X * & E B B ) O : , ( c ~ N G : , ( L p
0x0faa04…0fab98 Dummy {f00=0x0048, f01=0x018e, f02=»T FILE V : r * & OLUME NAME ? DSC O DE ; * & MO PTS 6800 12NC=87015504010 ; > * & ; 0 : SYSTEM LANGUAGE ? ! ; l * & Y @ % DATA BASE VOLUME NAME ? ; * & w DSC ; * & 0 0
0x0fab98…0fad2c Dummy {f00=0x0048, f01=0x401e, f02=» ; < @ < NAME ? DSC O DE ; * & MO PTS 6800 12NC=87015504010 ; > * & ; 0 : SYSTEM LANGUAGE ? ! ; l * & Y @ % DATA BASE VOLUME NAME ? ; * & w DSC ; * & 0 0
0x0fad2c…0faec0 Dummy {f00=0x0048, f01=0x4014, f02=» HNOD = @ = NAME ? + * & w DSC , $ * & 0 0 0 0 0 0 0 , R * & 0 0 0 0 0 ( , ) - E V , , , , @ ,
0x0faec0…0fb054 (1, 317) Opaque[0x194]
0x0fb054…0fb1e8 # DirEnt {nam=»BOOK «, typ=»UF«, f00=0x0002, f01=0x1f01, f02=0x0920, f03=0x0002}
0x0fb054…0fb1e8 IdxSect {
0x0fb054…0fb1e8 f00 = 0x0049 // 0xfb054 @0x0
0x0fb054…0fb1e8 f01 = 0x0002 // 0xfb056 @0x2
0x0fb054…0fb1e8 gno = [ // 0xfb058 @0x4
0x0fb054…0fb1e8 [0x00]: C0x0049.0x0.0
0x0fb054…0fb1e8 ]
0x0fb054…0fb1e8 }
0x0fb1e8…0fb37c Dummy {f00=0x0049, f01=0x0190, f02=» PT; P01; PTID=A0; PTCL=A0; * PLEV=60; : P01; J PTDC=T01; V PLC=001L; f P00; v PT; P01; PTID=B0; PTCL=A0; PLEV=60; P01; PTDC=T02; PLC=002L; P00; PT;
0x0fb37c…0fb510 Dummy {f00=0x0049, f01=0x018e, f02=» PTID=D0; PTCL=A0; PLEV=60; $ P02; 4 PTDC=T04; @ PLC=004L; P PTDC=T06; ` PLC=004L; p P00; PT; P01; PTID=E0; PTCL=A0; PLEV=60; P01; PTDC=T05; PLC=005L; P00;
0x0fb510…0fb6a4 Dummy {f00=0x0049, f01=0x00a8, f02=» PUCY; P002; PUOP; P002; ( PUA1; 4 P002; @ PUA2; L P002; X PUT1; d P002; p PUT2; | P002; PUQQ; P002; ; PTCL=A0; PLEV=60; P01; PTDC=T05; PLC=005L; P00;
0x0fb6a4…0fb838 Dummy {f00=0x0049, f01=0x2008, f02=» P002; PUOP; P002; ( PUA1; 4 P002; @ PUA2; L P002; X PUT1; d P002; p PUT2; | P002; PUQQ; P002; ; PTCL=A0; PLEV=60; P01; PTDC=T05; PLC=005L; P00;
0x0fb838…0fb9cc Dummy {f00=0x0049, f01=0x0190, f02=» D:UA20U > ,U:UT10 { U:UT10U = P ,D:UT10 | D:UT10U 2 ,U:UT20 } U:UT20U = P ,D:UT20 ~ D:UT20U 2 ,C:CK10 C:CK10C (
0x0fb9cc…0fbb60 Dummy {f00=0x0049, f01=0x0190, f02=» > ,U:UQQ0 U:UQQ0U * ,D:UQQ0 D:UQQ0U 2 LDOQCCY $$$TRAQ DOQCCY EPPCCYQ PAJRN XBFMT dDPECCY $$$TRAE DPECCY SPAP26 PAJRN PCVCH T:DISP. T:ERAS- XBF
0x0fbb60…0fbcf4 (1, 318) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»TNDREM«, typ=»SC«, f00=0x0006, f01=0x501c, f02=0x0928, f03=0x0006}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x0049 // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x0002 // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x0049.0x1.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x0049, f01=0x0190, f02=» ( $ IDENT TNDREM TND REMAINDER IN CASS. * 0 * : * NAME: TNDREM D D @* PURPOSE: CALCULATE NUMBER OF NOTES LEFT IN TND CASSETTES d 0 +* CALL: PERF TNDREM,TNDCIX,TNDNO * PARAMETERS: B >* IN: T
0x0fc01c…0fc1b0 Dummy {f00=0x0049, f01=0x0190, f02=» LEFT IN TND CASSETTE * * * 4 DDUM DEMODD > PDIV R ENTRY TNDREM ` TNDREM PROC TNDIX,TNDNO v PBIN TNDIX PBCD TNDNO MOVE TNDNO,=D'0' 0 , SUB NDDATA2(KW2,TNDIX),='0' TEST IF BLOCKED
0x0fc1b0…0fc344 Dummy {f00=0x0049, f01=0x40c0, f02=»ADY PAID h 6 1 SUB TNDNO,NDDATA1(KW5,TNDIX) MINUS APROX. DUMPED BNN TNDREM10 J " MOVE TNDNO,=D'0' NOTHING LEFT ` TNDREM10 RET PEND END @ OVE TNDNO,=D'0' 0 , SUB NDDATA2(KW2,TNDIX),='0' TEST IF BLOCKED
0x0fc344…0fc4d8 Dummy {f00=0x0049, f01=0x2008, f02=» f 6 1 SUB TNDNO,NDDATA1(KW5,TNDIX) MINUS APROX. DUMPED BNN TNDREM10 H " MOVE TNDNO,=D'0' NOTHING LEFT ^ TNDREM10 RET PEND END @ OVE TNDNO,=D'0' 0 , SUB NDDATA2(KW2,TNDIX),='0' TEST IF BLOCKED
0x0fc4d8…0fc66c Dummy {f00=0x0049, f01=0x0000, f02=»
[…0x1…]
0x0fc800…0fc994 (1, 319) Opaque[0x194]
0x0fc994…0fcb28 # DirEnt {nam=»IOTND «, typ=»SC«, f00=0x8722, f01=0x500c, f02=0x0930, f03=0x5004}
0x0fc994…0fcb28 IdxSect {
0x0fc994…0fcb28 f00 = 0x0049 // 0xfc994 @0x0
0x0fc994…0fcb28 f01 = 0x0016 // 0xfc996 @0x2
0x0fc994…0fcb28 gno = [ // 0xfc998 @0x4
0x0fc994…0fcb28 [0x00]: C0x0049.0x2.0
0x0fc994…0fcb28 [0x01]: C0x0049.0x3.0
0x0fc994…0fcb28 [0x02]: C0x004a.0x0.0
0x0fc994…0fcb28 [0x03]: C0x004a.0x1.0
0x0fc994…0fcb28 [0x04]: C0x004a.0x2.0
0x0fc994…0fcb28 [0x05]: C0x004a.0x3.0
0x0fc994…0fcb28 [0x06]: C0x004b.0x0.0
0x0fc994…0fcb28 [0x07]: C0x004b.0x1.0
0x0fc994…0fcb28 [0x08]: C0x004b.0x2.0
0x0fc994…0fcb28 [0x09]: C0x004b.0x3.0
0x0fc994…0fcb28 [0x0a]: C0x004c.0x0.0
0x0fc994…0fcb28 ]
0x0fc994…0fcb28 }
0x0fcb28…0fccbc Dummy {f00=0x0049, f01=0x018e, f02=» ( P IDENT IOTND REL=9.2 VER=ND 81-01-21 P UPD 11 80-16-12 / BORO 0 P ADD "IOTNDS" SUBROUTINE R P UPD 10 80-04-16 / BORO t " P RECOVERY PF BEFORE DISPENSE P UPD 9 80-04-14 / BORO P IGNORE MICRO REJECT FULL P UPD 8
0x0fccbc…0fce50 Dummy {f00=0x0049, f01=0x018e, f02=» " P DELV ERROR CAUSES TND BLOCK P UPD 7 80-02-26 / BORO * P DON'T REPEAT TIMEOUTS J P UPD 6 80-02-11 / BORO j P ADD TNDELVPF & TNDNDU P UPD 5 80-02-04 / BORO P ADD RETCODE 3 FOR DELIVER P UPD 4 80-02-04 / BORO
0x0fce50…0fcfe4 Dummy {f00=0x0049, f01=0x0190, f02=» P ADD UNKNOWN REJ NOTES P UPD 1 80-01-11 / BORO $ P TAKE OUT DELIVER & DUMP D P EJECT f J F********************************************************************** t F A* SUBROUTINE TO PERFORM TELLER NOTE DISPENSER (TND) I/O FUNCTIONS
0x0fcfe4…0fd178 Dummy {f00=0x0049, f01=0x018e, f02=»2,TNDWB3,TNDWD1,TNDWS1,TNDBUF ` * PARAMETERS & 6 1* IN: OP - OPERATION CODE - INDEX TO FUNCTION : 6 2* 1 INITND: RESET TND,OPEN TND (LIFTS UP) t 0 +* 2 CLOSND: CLOSE TND (LIFTS DOWN) 2 .* 3 DISPND: DISPENSE NOTES TO
0x0fd178…0fd30c Dummy {f00=0x0049, f01=0x0190, f02=» P* TNDWB3 " F P* TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR 8 P* TNDWS1 STRG WORK REGISTER, MINIMUM 5 CHAR j 6 P* TNDBUF STRG I/O BUFFER, MINIMUM 40 CHAR * &* VARIABLES - COMMON FOR ALL FUNCTIONS
0x0fd30c…0fd4a0 Dummy {f00=0x0049, f01=0x0190, f02=»TATUS AFTER I/O, 0=OK, OPERATION SUCCESSFUL B =* 1=ERROR, OPERATION NOT DONE, 4 L P* DISPENSE, DELIVER BLOCKED UNTIL OPEN z 0 P* PERFORMED < P*
0x0fd4a0…0fd634 (1, 320) Dummy {f00=0x0049, f01=0x0190, f02=»-FLAG INDICATING IRRECOVERABLE ERROR OCCURRED 0 P* T=DISPENSE, DELIVER BLOCKED 6 * P* F=ALL TND I/O ALLOWED j 8 P* TNDRCF-FLAG INDICATING REJECT CASSETTE FULL 0 P* T=DISPENSE, DELIVER BLOCKED * P
0x0fd634…0fd7c8 Dummy {f00=0x0049, f01=0x0190, f02=»RND * NDERR * TNDMSK $ * DESCRIPTION < D P* TND FUNCTIONS IF PERFORMED SUCCESSFULLY,RETURN WITH TNDST=0 R J E* IF PROGRAM ERROR OR HARDWARE ERROR, THE ERROR(S) ARE REPORTED TO F B* THE APPLICATION VIA SUBROUTI
0x0fd7c8…0fd95c Dummy {f00=0x0049, f01=0x0190, f02=»,INDEX z * > P* INDEX: 0=COMMAND, RETURN STATUS (& REJECT TRACE) B P* IF OTHER THAN CASS. LOW, REJECT CASS FULL, Z < P* SEQUENCE ERROR, OR DELIVERY UNIT BUSY R P* 1=E1-NO CASS., T.O. OR
0x0fd95c…0fdaf0 Dummy {f00=0x0049, f01=0x0190, f02=»3-T.O. ON NOTES IN DELIVERY UNIT, CALL SERVICE | @ P* 4=E4-BAD NOTES OR JAM, FIX OR CALL SERVICE 6 8 4* 5=E5-REJECT CASSETTE FULL, EMPTY IT z 4 /* 7=E7-PROGRAM ERROR, DEBUG HELP J P* 8=E8-NDDA
0x0fdaf0…0fdc84 Dummy {f00=0x0049, f01=0x0190, f02=»D VIA "NDERR". DISPENSE NOT DONE, NO REGISTERS AFFECTED $ * PERF NDERR,INDEX @ * h 4 P* INDEX= 6=E6, NDDATA1(KW4,TNDWB1) EMPTY r * * &* SEE RESPECTIVE FUNCTION FOR DETAILS * * P DDUM DEMODD
0x0fdc84…0fde18 Dummy {f00=0x0049, f01=0x0190, f02=»R j & P EXPROC MASK CREDIT ASSEMB ROUTINE EJECT 4 * B H P* ROOT: INITIALIZE PARAMETERS, TEST FOR BLOCK, PERFORM I/O AND GO TO L H D* RESPECTIVE I/O ROUTINE FOR HANDLING OF I/O OPERATION RESULTS * PIOTND PROC OP, C
0x0fde18…0fdfac Dummy {f00=0x0049, f01=0x0190, f02=»BIN OP P PDSET TND P PBIN TNDWB1 P PBIN TNDWB2 4 P PBIN TNDWB3 H P PBCD TNDWD1 P PSTRG TNDWS1 p P PSTRG TNDBUF . P CBL OP,KW1,IOTND01 MINIMUM OPERATION CODE . P CBG OP,KW4,IOTND01 MAXIMUM OPERATION CODE & " CLEAR T
0x0fdfac…0fe140 Dummy {f00=0x0049, f01=0x0190, f02=» P* TEST IF DISPENSED BLOCKED P ( & P IB OP,IO,IO OPEN/RESET & CLOSE OK 0 6 P TBT TNDRCF,IOTND00 I/O OK IF REJ. CASS. NOT FULL Z 4 P TBT TNDBAD,IOTND00 I/O OK IF NOT ERROR BLOCKED P 8 P* NO PREVIOUS ERRORS, TEST IF REJECT CASSETTE FULL
0x0fe140…0fe2d4 (1, 321) Dummy {f00=0x004a, f01=0x018e, f02=»SPENSE | 0 P PERF NDERR,KW5 REPORT ERROR TO APPLICATION PIOTND00 B P MOVE TNDST,KW2 RETURN CODE R RET v PIOTND01 P MOVE TNDST,KW1 ERROR RETURN P RET * & "* PERFORM RESPECTIVE OPERATION I/O * , PIO PERFI
0x0fe2d4…0fe468 Dummy {f00=0x004a, f01=0x0190, f02=» TNDBUF P* H P* GET COMMAND AND TND RETURN STATUS, REPORT TO APPLICATIONS IF ERROR " P* n < P* TEST IF ERROR SHOULD BE REPORTED, IGNORE BITS 2,4,5,11 x H P* CORRESPONDING TO DELIVERY UNIT BUSY, REJECT CASS. FULL,CASS. LOW, P* SE
0x0fe468…0fe5fc Dummy {f00=0x004a, f01=0x0190, f02=»T,KW0 ZERO INDEX , P PERF TNDMSK,TNDWB1,TNDWB2,=W'128' BIT 8 B IOTND10 POWERFAIL H P MOVE TNDST,KW0 d 4 P PERF TNDMSK,TNDWB1,TNDWB2,=W'-32752' BITS 0, 11 | P B IOTND20 PROGRAM ERROR SET NOPF 6 P PERF TNDMSK,TNDWB1,TNDWB2,=W'1644
0x0fe5fc…0fe790 Dummy {f00=0x004a, f01=0x0190, f02=»' BITS 12,14 p $ P B IOTND10 COMM. OR HARDWARE ERR . P PERF TNDMSK,TNDWB1,TNDWB2,=W'8192' BIT 2 < B IOTND10 BUSY n 0 P PERF TNDMSK,TNDWB1,TNDWB2,=W'4352' BITS 3,7 B IOTND10 BAD NOTES OR JAM . P PERF TNDMSK,TNDWB1,TNDWB2,=W'2048' BIT 4
0x0fe790…0fe924 Dummy {f00=0x004a, f01=0x0190, f02=»T,KW0 OK,CASS. LOW OR REJ. NOTES * ( 8 3* RESULT IN TNDST, BRANCH TO RESPECTIVE I/O ROUTINE 2 * n IOTND10 x & P IB OP,INITND,CLOSND,DISPND,DELVND P " P* PROGRAM ERROR? INDEX CODE=7 P PIOTND20 P MOVE TNDST,KW7
0x0fe924…0feab8 Dummy {f00=0x004a, f01=0x0190, f02=» EJECT J F********************************************************************** * d * 1.INITND n * 4 P* PURPOSE: RESET TND, OPEN TND (LIFTS UP) * * VARIABLES * IN: " * OUT: TNDBUF-CASSETT
0x0feab8…0fec4c Dummy {f00=0x004a, f01=0x0190, f02=»OK z P* TNDRCF=F-IF OK * * J F********************************************************************** 4 P EJECT * J F* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TNDST * J E* 0- IO OK, CASSETTE
0x0fec4c…0fede0 Dummy {f00=0x004a, f01=0x0190, f02=»RDWARE, NOP....TRY TWICE, REPORT, BLOCK TND 1 z J E* 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT, BLOCK TND 1 8 J P* 4- BAD NOTES OR JAM..............REPORT, BLOCK TND 1 J P* 5- REJECT CASSETTE FULL..........WARNING
0x0fede0…0fef74 (1, 322) Dummy {f00=0x004a, f01=0x0190, f02=».....REPORT, BLOCK TND 1 p * . INITND 8 P IB TNDST, C F . P IO,IOTRY,IOPERR,IOER,INIT10,INIT10,IOER * $ * RESET OK, UNBLOCK TND,TNDST=0 * PINIT10 CLEAR TNDBAD ( P CLEAR TNDRCF UNBLOCK REJ
0x0fef74…0ff108 Dummy {f00=0x004a, f01=0x0190, f02=» * J F* 2.CLOSND * D J F* * J P* PURPOSE: CLOSE TND(LIFTS DOWN)
0x0ff108…0ff29c Dummy {f00=0x004a, f01=0x0190, f02=» * | J F* IN: * : J F* OUT: TNDBUF-CASSETTE ID'S * J F* TNDST =0-OK
0x0ff29c…0ff430 Dummy {f00=0x004a, f01=0x0190, f02=» * v J F* * 4 J F********************************************************************** P EJECT * J F* TNDST- INDEX INDICATING RESULT
0x0ff430…0ff5c4 Dummy {f00=0x004a, f01=0x0190, f02=» 1- POWERFAIL.....................REPEAT CLOSI0 J P* 2- T.O., COMM., HARDWARE,NOP.....TRY TWICE,REPORT 1 8 J E* 3- BUSY, NOTES IN DELIVERY UNIT..IMPOSSIBLE, REPORT 1 J P* 4- BAD NOTES OR JAM..............REPORT, BLOCK T
0x0ff5c4…0ff758 Dummy {f00=0x004a, f01=0x0190, f02=».....IGNORE 0 p J P* 7- SEQ ERR.......................REPORT, BLOCK TND 1 . * | CLOSND P IB TNDST, C . P IO,IOTRY,IOPERR,IOER,CLOS10,CLOS10,IOER * * CLOSE OK,TNDST=0 *
0x0ff758…0ff8ec Dummy {f00=0x004a, f01=0x0190, f02=» IOOK EJECT J F********************************************************************** J F* * j J F* 3.DISPND * J F*
0x0ff8ec…0ffa80 Dummy {f00=0x004a, f01=0x0190, f02=» * T J F* * J F* VARIABLES * ` P P* IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES TO DISPENSE/CASS* L P*
0x0ffa80…0ffc14 (1, 323) Dummy {f00=0x004a, f01=0x0190, f02=»E OPEN * R P P* NDDATA2(KW2,X)-BCD ARRAY, EL=O IF CASSETTE BECAME EMPTY * J F* TNDST=0-OK * j H P* =1-ERROR (E1,E2,E3,E4,E7,E8). BLOCKED, NO DISPENSE * J F*
0x0ffc14…0ffda8 Dummy {f00=0x004a, f01=0x0190, f02=» * R J F* * J F********************************************************************** ^ P EJECT * J F* TNDST- INDEX INDICATING RESULT OF IO....ACTION.............RET-TND
0x0ffda8…0fff3c Dummy {f00=0x004a, f01=0x018e, f02=»ESET TND, REPEAT DISPENSE j D ?* 2-T.O., COMM., HARDWARE, NOP.....CALC. REJECTED NOTES,RESET " F P* OR NO CASS......TND, TRY TWICE, THEN REPORT, j J E* .....BLOCK TND 1 > P* 3-
0x0fff3c…1000d0 Dummy {f00=0x004a, f01=0x0190, f02=» J E* 4-BAD NOTES OR JAM...............SAME AS 2. 1 ! J P* 5-REJECT CASSETTE FULL...........WARNING 0 ! R J E* 6-CASSETTE EMPTY.................REPORT 3 ! 4 P* 7-SEQ. ERROR DUE TO PF
0x1000d0…100264 Dummy {f00=0x004a, f01=0x0190, f02=» ! * &* DISPENSE OK, TEST FOR REJECTED NOTES " * " 6 PDISPOK " @ , P PERF TNDMSK,TNDWB1,TNDWB2,=W'32' BIT 10 " N " B DISP10 CALC REJECTED NOTES " ~ & P B IOOK NO REJECTED NOTES, RET OK " PDISP10 " 6 P* CALCULATE REJECTED NOTES & ADD TO NDDATA1(
0x100264…1003f8 Dummy {f00=0x004a, f01=0x0190, f02=» TNDBUF # P B IOOK NO REJECT # P B IOOK SUCCESSFUL # . P EJECT # H * # V 2 .* POWER FAILURE, RESET DISPENSER AND TRY AGAIN # ` * # PDISPPF # P PERF INITIO,TND, C # P TNDWB1, C # P TNDWB2, C # TNDWD1, C #
0x1003f8…10058c Dummy {f00=0x004a, f01=0x0190, f02=» # l ( P PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST $ ( P DSC0 TND,2 DUMP NOTES, DISPENSE MAY $ 4 P HAVE BEEN SUCCESSFUL $ ` P ALSO 2 DISPENSE IN ROW $ P NOT ALLOWED $ ( P PERF IOTNDS,TND,TNDWB1,TNDWB2,TNDST $ B IO REPEAT DISPENSE $ P EJECT
0x10058c…100720 Dummy {f00=0x004a, f01=0x0190, f02=»T FAILURE, SEE IF REJECTED NOTES $ * % ( 0 P* UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED % 2 P PERF GETREJ,KW2, C % f TND, C % TNDWB1, C % TNDWB2, C % TNDWD1, C % TNDWS1, C % TNDBUF % " P B DISPTR20 NO NOTES
0x100720…1008b4 (1, 324) Dummy {f00=0x004a, f01=0x0190, f02=»CASSETTE EMPTY OR CASSETTE % d . ** DOES NOT FEED, CALCULATE REJECTED NOTES & " * & T DISPMT & ^ H P* UPDATE NDDATA1(KW5,X) BY NUMBER DISPENSED AND REPORT CASS. STATUS & l P PERF GETREJ,KW3, C & TND, C & TNDWB1, C & TNDWB2, C &
0x1008b4…100a48 Dummy {f00=0x004a, f01=0x0190, f02=»D OR ONLY CASSETTE EMPTY & v * ' DISPMT40 ' * & P DSC0 TND,2 DUMP NOTES, OTHERWISE ' : " P ...NEXT DISPENSE WON'T WORK ' d @ P* REPORT ERRORS, EXCEPT REJ CASS FULL, CASS LOW, CASS EMPTY ' , P MOVE TNDST,=W'-3585' BITS TO REPORT ON ' ( P PERF IOTN
0x100a48…100bdc Dummy {f00=0x004a, f01=0x0190, f02=»TNDST,KW3 INDICATE CASSETTE EMPTY ' P RET ( * DISPMT50 ( 6 * P MOVE TNDST,KW1 SET ERROR RETURN CODE ( F RET ( t EJECT ( J F********************************************************************** ( J F*
0x100bdc…100d70 Dummy {f00=0x004a, f01=0x0190, f02=» * ( v J F* VARIABLES * ) 4 N P* IN: NDDATA1(KW2,X)-BCD ARRAY, LOADED WITH NO. NOTES DISPENSED/CASS* ) P* TNDREG(X) ) P ) L P* CASMAX
0x100d70…100f04 Dummy {f00=0x004a, f01=0x0190, f02=» * ) H P* OR * @ P* NDDATA1(KW1,X)-BCD ARRAY INCR. BY AMOUNT DELIVERED * P* AND * d @ P* TNDREG(X) -BCD ARRAY DECR. BY AMOUNT DELIVERRED * z F P* NDATA1(KW2,X)-BCD ARRAY, CONTAINING AMT DELIVERED-ZEROED * D P
0x100f04…101098 Dummy {f00=0x004a, f01=0x0190, f02=» * P J P* =2-TND WAS ALREADY BLOCKED, NO DELIVER * + J F* * + V J F********************************************************************** + P EJECT + * + J
0x101098…10122c Dummy {f00=0x004a, f01=0x018e, f02=»D REGISTERS 0 + b 8 P* 1-POWERFAIL......................REPEAT DELIVER , J P* 2-T.O., COMM., HARDWARE, NOP.....REPORT, BLOCK TND 1 , L P* 3-BUSY, NOTES IN DELIVERY UNIT...DELAY, REPEAT I/O UNTIL SEQ ERR OR , J E*
0x10122c…1013c0 Dummy {f00=0x004a, f01=0x0190, f02=» , H J P* 5-REJECT CASSETTE FULL...........WARNING 0 - J P* 6-CASSETTE EMPTY.................IMPOSSIBLE, REPORT, BLOCK TND 1 - V > P* 7-SEQ. ERR, NOTES TAKEN?.........OK IF NOTES DELIVERED - * - PDELVND - P IB TNDST,
0x1013c0…101554 (1, 325) Dummy {f00=0x004b, f01=0x0190, f02=»ENSED TO TELLER - l 8 P* NDDATA1(KW1,X), TNDREG(X) AND ZERO NDDATA1(KW2,X) . PDELVOK . T P PERF PDDUMP,KW0,TNDWB1 . b & P SET TNDNDU NOTES IN DELIVERY UNIT . & P B IO WAIT TILL TAKEN BY OPERATOR . P . P EJECT . P . D P* SEQUENCE ERROR: IF
0x101554…1016e8 Dummy {f00=0x004b, f01=0x0190, f02=»ED THAT NOTES WERE IN DELIVERY UNIT, THEN . x B P* SITUATION IS UNCLEAR, POWERFAIL MAY HAVE CAUSED NOTES / 2 F P* DISPENSED TO BE DUMPED BEFORE DELIVERY COMMAND ARRIVED OR / x H P* DELIVER COMMMAND ARRIVED, BUT DUE TO COMM. ERR OR POWERFAIL /
0x1016e8…10187c Dummy {f00=0x004b, f01=0x0190, f02=»ERE IN DELIVERY UNIT- / ` @ P* HOPEFULLY PROBABILITY IS LOW THAT THIS COULD HAPPEN 0 P 0 b PDELVSEQ 0 j 0 P TBT TNDNDU,IOOK BR. IF NOTES WERE DELIVERED 0 z P B IOER 0 P EJECT 0 * 0 D ?* TELLER HAS NOT TAKEN NOTES FROM STACKER, DELAY A
0x10187c…101a10 Dummy {f00=0x004b, f01=0x018e, f02=» 0 IOBZY 1 P TBF TNDNDU,DELVOK 1 . P SUB TNDWB3,KW1 DECREMENT TIMEOUT COUNTER 1 0 & P BNP IOER T.O., REPORT & BLOCK TND 1 b & P MOVE TNDWB1,=W'10' DELAY 1 SECOND 1 P DELAY TNDWB1 DELAY 1 P B IO REPEAT I/O 1 EJECT 1 * 1 2 P* COMM
0x101a10…101ba4 Dummy {f00=0x004b, f01=0x018e, f02=» * 2 IOOK 2 $ P MOVE TNDST,KW0 SET RETURN CODE 2 RET 2 B P EJECT 2 N * 2 F B* SERIOUS ERROR, TRY TWICE, IF FAIL 2ND TRY, REPORT, BLOCK TND AND 2 f * SET RETURN CODE = 1 2 * 2 IOTRY 2 . * TBT TNDTRY,IOTRY10 BRANCH IF TH
0x101ba4…101d38 Dummy {f00=0x004b, f01=0x018e, f02=» 2 r PIOTRY05 3 SET TNDTRY INDICATE 2ND TRY 3 & P IB OP,IO,IO,DISPTRY,IO REPEAT I/O 3 < * 3 f 0 P* FAILED TWICE, REPORT & BLOCK TND DISPENSE 3 p * 3 IOTRY10 3 * P TBF NOPF,IOER BRANCH IF NOT T.O., NOP 3 ( P MOVE TNDST,KW1 T.O., NOP MS
0x101d38…101ecc Dummy {f00=0x004b, f01=0x0190, f02=» 3 IOER 4 PERF ERRND 4 6 P IB OP,IOEND,IOEND,DISPMT NEXT INSTRUCTION-DELIVER 4 ( & P TBT TNDNDU,IOOK NOTES DELIVERED? 4 b , P PERF PDDUMP,KW0,TNDWB1 ASSUME DELIVERED 4 * P B IOOK TELL OPERATOR NOTES DELIVERED 4 PIOEND 4 RET 4 * 4
0x101ecc…102060 Dummy {f00=0x004b, f01=0x0190, f02=»OER 4 PEND 5 EJECT 5 * I/O SUBROUTINES 5 ( * 5 B 4 0* OPEN (LIFTS UP) AND RESET (AFTER LIFTS UP) I/O 5 L * 5 PINITIO PROC TND, C 5 TNDWB1, C 5 TNDWB2, C 5 TNDWD1, C 5 TNDWS1, C 5 TNDBUF 5
0x102060…1021f4 (1, 326) Dummy {f00=0x004b, f01=0x0190, f02=»,=C' ' 5 P MOVE TNDWB1,=W'40' 6 ( P DSC2 TND,X'18',TNDST,TNDBUF,TNDWB1 6 * 0 P CBL TNDWB1,KW5,INITIO10 NO REJECTED NOTES? 6 V * P MOVE TNDWS1,=C' ' INIT REJECTED NOTES 6 @ P COPY TNDWS1,KW0,KW3,TNDBUF,KW2 GET REJ NOTES OF UNKNOWN VAL 6 & P MOVE TNDWD1
0x1021f4…102388 Dummy {f00=0x004b, f01=0x0190, f02=»OSE (LIFTS DOWN) I/O 6 * 7 PCLOSIO PROC TND, C 7 & TNDWB1, C 7 B TNDWB2, C 7 V TNDWD1, C 7 j TNDWS1, C 7 ~ TNDBUF 7 P PDSET TND 7 P PBIN TNDWB1 7 P PBIN TNDWB2 7 P PBCD TNDWD1 7 P PSTRG TNDWS1 7 P P
0x102388…10251c Dummy {f00=0x004b, f01=0x0190, f02=»R 7 v * 8 PDISPIO PROC TND, C 8 TNDWB1, C 8 0 TNDWB2, C 8 D TNDWD1, C 8 X TNDWS1, C 8 l TNDBUF 8 P PDSET TND 8 P PBIN TNDWB1 8 P PBIN TNDWB2 8 P PBCD TNDWD1 8 P PSTRG TNDWS1 8 P PSTRG TNDBUF 8
0x10251c…1026b0 Dummy {f00=0x004b, f01=0x0190, f02=»ED LENGTH 8 x " P MOVE TNDWB2,KW1 CASSETT INDEX 9 PDISPI10 9 8 , P CBG TNDWB2,CASMAX,DISPI20 DONE EDITING 9 H 6 P MOVE TNDST,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX 9 x 4 P EDSUB TNDBUF,TNDWB1,DISPFMT EDIT DATA TO BUFFER 9 , P ADD TNDWB2,KW1 INCREMENT CASS
0x1026b0…102844 Dummy {f00=0x004b, f01=0x0190, f02=»SUB EDIT FORMAT FOR DISPINSE 9 , P* MOVES NDDATA1(KW2,X) TO OUTPUT BUFFER : $ * : T PDISPFMT FRMT : ^ FILLR ' ',2 : r , P FBNZ TNDST,FMT10 BRANCH IF DISPENSE OK : P FILLR '0',3 DON'T DISPENSE : P FB FMT20 : PFMT10 : $ P FMEL 'PP999',
0x102844…1029d8 Dummy {f00=0x004b, f01=0x0190, f02=»DELVIO PROC TND, C : TNDWB1, C ; TNDWB2, C ; 0 TNDWD1, C ; D TNDWS1, C ; X TNDBUF ; l P PDSET TND ; | P PBIN TNDWB1 ; P PBIN TNDWB2 ; P PBCD TNDWD1 ; P PSTRG TNDWS1 ; P PSTRG TNDBUF ; P DSC0 TND,1 ;
0x1029d8…102b6c Dummy {f00=0x004b, f01=0x018e, f02=»RPOSE: REPORT ERROR TO APPLICATION, BLOCK TND, SET ERROR RETURN ; * CODE < N " P* CALL: PERF NDERR < f P* < * PARAMETERS < * IN: < * OUT: < * VARIABLES < ( $* IN: TNDST-CONTAINS ERROR INDEX < (
0x102b6c…102d00 Dummy {f00=0x004b, f01=0x0190, f02=» < ERRND PROC = * & SET TNDBAD BLOCK DISP'NS,DEL'R & DUMP = " PERF NDERR,TNDST REPORT ERROR = H P MOVE TNDST,KW1 RETURN CODE = n RET = PEND = EJECT = H D******************************************************************** = P*
0x102d00…102e94 (1, 327) Dummy {f00=0x004b, f01=0x0190, f02=»CALL: PERF GETREJ,TYPE,TND,TNDWB1,TNDWB2,TNDWD1,TNDWS1,TNDBUF = . P* RET 0 NO DISPENSE WAS DONE > J , P* RET 2 ALL UPDATING DONE > | P* > P* PARAMETERS > . P* IN: TYPE-BIN, INDICATING UPDATE TYPE > J P*
0x102e94…103028 Dummy {f00=0x004b, f01=0x0190, f02=» =3, SAME AS 2, PLUS REPORT CASSETTE ERRORS > P* TND TND DATA SET ? 8 8 P* TNDWB1 BIN WORK REGISTER & CASSETTE INDEX ? & P* TNDWB2 BIN WORK REGISTER ? F P* TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR ?
0x103028…1031bc Dummy {f00=0x004b, f01=0x0190, f02=»RIABLES ? : P* IN: CASMAX-BIN, MAX POSSIBLE CASSETTE POSITIONS @ & P* TNDST -BIN WORK REGISTER @ N P* @ x H D******************************************************************** @ PGETREJ PROC TYPE, C @ TND, C @ TNDWB1, C
0x1031bc…103350 Dummy {f00=0x004b, f01=0x018e, f02=» P PBIN TNDWB2 A P PBCD TNDWD1 A P PSTRG TNDWS1 A , P PSTRG TNDBUF A B * A X 0 P* READ STATUS AND NUMBER OF NOTES DISPENSED A b * A ( P MOVE TNDST,=W'35' REQUESTED LENGTH A ( P DSC2 TND,X'14',TNDWB1,TNDBUF,TNDST A * A & !* ANAL
0x103350…1034e4 Dummy {f00=0x004b, f01=0x0190, f02=» A 0 P MOVE TNDWB2,TNDST GET PHYSICAL POSITION OF B 2 P DIV TNDWB2,KW5 ...CASS. FROM EFFECTIVE LENGTH B < & P ADD TNDST,KW2 INIT BUFFER POINTER B r PGET20 B . P SUB TNDST,KW6 POINT AT NEXT CASS. STATUS B 2 P CBNL TNDST,KW5,GET25 BRANCH NOT END OF BUFF
0x1034e4…103678 Dummy {f00=0x004b, f01=0x0190, f02=»DWB1,NDDATA2(KW1,TNDWB2) GET LOGICAL INDEX B P MOVE TNDWS1,=C' ' C 2 . P CBE TNDWB1,KW0,GET35 CASSETTE NOT MAPPED C L P IB TYPE,GET35,GET35 C ~ P* C P* GET STATUS C P* C & P COPY TNDWS1,KW0,KW1,TNDBUF,TNDST C 6 P CBNE TNDWS1,=C'2',GET30 BRA
0x103678…10380c Dummy {f00=0x004b, f01=0x0190, f02=» P MOVE TNDWB1,TNDCIX D " P B GET35 CALC. REJECTED NOTES D * D F B =* TEST FOR CASSETTE DOES NOT FEED, REPORT, BLOCK TND, TNDST=1 D P * D PGET30 D 0 P CBNE TNDWS1,=C'6',GET35 NO ERROR, CALC REJ. D P SET TNDBAD BLOCK DISPENSING D P M
0x10380c…1039a0 Dummy {f00=0x004b, f01=0x0190, f02=»EJECT ACCUMULATORS D z * E PGET35 E $ * P ADD TNDST,KW1 OFFSET TO AMT DISPENSED E 2 & P COPY TNDWS1,KW0,KW3,TNDBUF,TNDST E ` P MOVE TNDWD1,TNDWS1 E . P CBE TNDWB1,KW0,GET50 CASSETTE NOT MAPPED E P IB TYPE,GET40,GET45,GET45 E PGET40 E 8 P
0x1039a0…103b34 (1, 328) Dummy {f00=0x004b, f01=0x018e, f02=» E 2 P ADD NDDUMP,TNDWD1 ADD REJ. TO TOTAL REJECTED F P B GET20 F > P PEND F N P EJECT F * F j * F t * NAME: TNDMSK F ~ * F B >* PURPOSE: LOGICAL PRODUKT OF RETURN CODE AND GIVEN MASK F * F 2 P* CALL:
0x103b34…103cc8 Dummy {f00=0x004b, f01=0x0190, f02=» * PARAMETERS G , (* IN: LIT-BINARY LITERAL, GIVEN MASK G & P* TNDWB1 BIN WORK REGISTER G H P* TNDWB2 " G r * OUT: G * G * VARIABLES G 0 P* IN: TNDWB1-LOADED WITH TND RETURN CODE G * OUT: G * G
0x103cc8…103e5c Dummy {f00=0x004b, f01=0x0190, f02=»T LIT G * P ADD TNDST,KW1 INCREMENT INDEX COUNTER H P MOVE TNDWB2,LIT H < P CALL MASK,TNDWB1,TNDWB2 H T BZ TNDMSK10 H t RET H TNDMSK10 H RET 2 H PEND H EJECT H H D**********************************************************
0x103e5c…103ff0 Dummy {f00=0x004b, f01=0x0190, f02=»* CALL: PERF PDDUMP,PORD,TNDWB1 H P* I 0 P* PARAMETERS: I : 4 P* IN: PORD BIN ELEMENT=0=>NOTES DELIVERED I P 8 P* =1=>NOTES NOT DELIVERED I & P* TNDWB1 BIN WORK REGISTER I P* I P* OUT: I P
0x103ff0…104184 Dummy {f00=0x004b, f01=0x0190, f02=»1,X) BCD ARRAY, NUMBER OF NOTES PAID/CASS. I | H P* TNDREG(X) BCD ARRAY, TOTAL TO DISPENSE-NDDATA1(KW2,X) J 2 P* OR J ~ D P* NDDATA1(KW5,X) BCD ARRAY, TOTAL DUMPED+NDDATA1(KW2,X) J . P* NDDATA1(KW2,X) BCD ARRAY ZEROED J
0x104184…104318 Dummy {f00=0x004b, f01=0x0190, f02=» P PBIN TNDWB1 K $ P MOVE TNDWB1,KW0 CASSETTE INDEX K PPDD10 K @ P ADD TNDWB1,KW1 NEXT CASETTE K N P CBNG TNDWB1,CASMAX,PDD20 K r P RET DONE K PPDD20 K . P CBE PORD,KW1,PDD30 BRANCH IF NOTES DUMPED K P K 8 P* NOTES DELIVERED: UPDATED
0x104318…1044ac Dummy {f00=0x004b, f01=0x0190, f02=»ATA1(KW2,TNDWB1) TOTAL PAID K t @ P SUB TNDREG(TNDWB1),NDDATA1(KW2,TNDWB1) AMT LEFT TO DISPENSE L $ 8 P MOVE NDDATA1(KW2,TNDWB1),KW0 ZERO AMOUNT DISPENSED L h P B PDD10 L P L 6 P* NOTES NOT DELIVERED: UPDATE AMOUNT DUMPED/CASS. L P L PPDD30 L
0x1044ac…104640 Dummy {f00=0x004b, f01=0x0190, f02=»10 L P PEND M EJECT M H D******************************************************************** M & P* M r P* NAME: IOTNDS M | P* M H P* PURPOSE: GET COMMANDS TO & RETURN STATUS FROM TND OF LAST I/O M : P* ALSO REP
0x104640…1047d4 (1, 329) Dummy {f00=0x004c, f01=0x0190, f02=» IN: TND - TND DATA SET M , P* TNDWB1 - BINARY REGISTER N ( , P* TNDWB2 - BINARY REGISTER N X F P* TNDWB3 - BITS SET IN RETURN CODE TO REPORT AS ERROR N P* N 0 P* OUT: TNDWB1 - RETURN CODE OF I/O
0x1047d4…104968 Dummy {f00=0x004c, f01=0x0190, f02=»G WITH REASON FOR LAST 15 REJECTS N t P* O * H D******************************************************************** O 4 P EJECT O ( PIOTNDS PROC TND,TNDWB1,TNDWB2,TNDWB3 O P PDSET TND O P PBIN TNDWB1 O P PBIN TNDWB2 O P PBIN TNDWB3 O 2 P
0x104968…104afc Dummy {f00=0x004c, f01=0x0190, f02=»ATUS O h ( P DSC2 TND,X'16',TNDWB2,TNDDVS,TNDIOL P P CBE TNDIOL,KW0,IOS100 P 8 P MOVE TNDWB2,=W'32' BIT 10 P V $ P CALL MASK,TNDWB1,TNDWB2 BIT 0N? P x & P BZ IOS100 BR IF NO NOTES REJECTED P * P MOVE TNDWB2,=W'16' REASONS FOR REJECT P ( P DSC2 TND,X'17',
0x104afc…104c90 Dummy {f00=0x004c, f01=0x40cc, f02=» PIOS100 Q , P CALL MASK,TNDWB1,TNDWB3 OTHER BITS ON? Q P BZ IOS200 NO, DON'T REPORT Q B * P PERF NDERR,KW0 REPORT TO APPLICATIONS Q f PIOS200 Q P RET Q P PEND Q END Q @ Q OVE TNDWB2,=W'16' REASONS FOR REJECT P ( P DSC2 TND,X'17',
0x104c90…104e24 Dummy {f00=0x004c, f01=0x2008, f02=» R J * K * SCRATCH W0RKB1 K * K 2 DETTND PROC TND K < DSC1 TND,DETACH,WORKB1 K T RET K t PEND K EJECT K * K " * SUB EDIT FORMAT FOR DISPINSE K & "* MOVES DISPNS)X( TO OUTPUT BUFFER K * K DISPIMT
0x104e24…104fb8 Dummy {f00=0x004c, f01=0x0190, f02=»Q^ f^ Q PQWZ#Ql d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pm D d^PD] 0 ^ P W D Wq Q _ I2 A A H P W A24 Wpj] W 0 ] 4 H3 H1 I W W I W @ 4 1 I5 J1 W @2 1 W "R !"T<I5 A " A 0 &)6u I5 H1 W )
0x104fb8…10514c Dummy {f00=0x004c, f01=0x0190, f02=» 32 3 I5' I2 6R);S A6!"S" I2 W )"R "uW GI2 6RW 6u4 !eR !eS !eW !ev !ew !ex C 4 IK#8R 5N%7X D 0 DD0 DDW C 4 1%!6S I2 A` fu % 1 I2kH4 ' J1 @4_)H5 HW &I2@ 6T S =e 2 I2- z +R + l# ` ` l#` `
0x10514c…1052e0 Dummy {f00=0x004c, f01=0x0190, f02=»4 A 4 0 y #I2 6S {4 e C$ 4 @V@2@Q S @R@S@T@U _o + RA R % R %R .!@ _7 A 6A _+ SA_0AQ_4AR_8AS_<AT_@b_ @K #@ AU I2 I2 !R .!R *!R &!S IU s_W pS pY p p I2}W I2vHV !W`!S )R "WT)R #WL!R )R $W@6R $(,0!_t %W
0x1052e0…105474 (1, 330) Opaque[0x194]
0x105474…105608 # DirEnt {nam=»TNDPAY«, typ=»SC«, f00=0x8740, f01=0x0082, f02=0x0988, f03=0x0032}
0x105474…105608 IdxSect {
0x105474…105608 f00 = 0x004c // 0x105474 @0x0
0x105474…105608 f01 = 0x0006 // 0x105476 @0x2
0x105474…105608 gno = [ // 0x105478 @0x4
0x105474…105608 [0x00]: C0x004c.0x1.0
0x105474…105608 [0x01]: C0x004c.0x2.0
0x105474…105608 [0x02]: C0x004c.0x3.0
0x105474…105608 ]
0x105474…105608 }
0x105608…10579c Dummy {f00=0x004c, f01=0x0190, f02=» * P IDENT TNDPAY REL=9.2 VER=ND 80-004-14 P UPD 3 80-04-14 / BORO 2 P TND BLOCKED TEST CHANGED R " P & TND RELEASED AFTER REPORT v P UPD 2 80-02-07 / BORO P REPEAT LAST DISPENSE P UPD 1 80-02-05 / BORO $ P ADD SEPAR
0x10579c…105930 Dummy {f00=0x004c, f01=0x0190, f02=»D V < 8* OPEN-NORMALLY USED FOR BANK TRANSACTIONS * J L P* CALL: PERF TNDPAY,AMT,TND,TNDWB1,TNDWB2,TNDWB3,TNDWD1,TNDWS1,TNDBUF T : 5* RET 0 UNABLE TO PAY J P* RET 2
0x105930…105ac4 Dummy {f00=0x004c, f01=0x0190, f02=»RS: 8 4* IN: TND-TND DATA SET, INDICATING TELLER TO PAY & P* TNDWB1 BIN WORK REGISTER H P* TNDWB2 " r P* TNDWB3 " F P* TNDWD1 BCD WORK REGISTER, MINIMUM 7 CHAR PLUS SIGN CHAR 8 P* TNDWS1 STR
0x105ac4…105c58 Dummy {f00=0x004c, f01=0x0190, f02=»ADDING THE AMOUNT DELIVERED j * $ * VARIABLES . H P* IN: TNDREG(X)-BCD ARRAY, EACH ELEMENT REPRESENTING A CASSETTE B @ <* AND CONTAINING NUMBER OF NOTES TO DELIVER P* TNDBAD P* TNDRCF P*
0x105c58…105dec Dummy {f00=0x004c, f01=0x0190, f02=» P* TNDWB2 P* TNDWD1 * DELAMT 4 P* TNDWB3 L * TNDST d P* NDDATA1(KW2,X) | * CASEMP * PAYOK * P DDUM DEMODD PDIV ENTRY TNDPAY
0x105dec…105f80 Dummy {f00=0x004c, f01=0x0190, f02=»PTY h EJECT PTNDPAY PROC AMT, C P TND, C 6 TNDWB1, C H TNDWB2, C TNDWB3, C p TNDWD1, C TNDWS1, C TNDBUF P PBCD AMT P PDSET TND P PBIN TNDWB1 P PBIN TNDWB2 P
0x105f80…106114 (1, 331) Dummy {f00=0x004c, f01=0x018e, f02=»F,TNDP00 RET. IF REJECT CASS FULL 4 P TBT TNDBLK,TNDP00 RET. IF TNDADM FUNC. RUNNING * & P TBT TNDOPF,TNDP10 RET. IF CLOSED b PTNDP00 $ P RET TND BLOCKED FROM DISPENSE * $ * DISPENSING ALLOWED, INITIALIZE * PTNDP10
0x106114…1062a8 Dummy {f00=0x004c, f01=0x0190, f02=» P MOVE DELAMT,KW0 P MOVE TNDWB1,KW0 * 4 & P* TEST IF LOOPED THROUGH CASSETTES > * h TNDP25 r P ADD TNDWB1,KW1 P CBG TNDWB1,CASMAX,TNDP45 " P MOVE NDDATA1(KW2,TNDWB1),KW0 * 2 .* TEST IF DISPENSE REQUESTED F
0x1062a8…10643c Dummy {f00=0x004c, f01=0x0190, f02=»ETTE f " P SUB NDDATA2(KW2,TNDWB1),='0' BNZ TNDP30 2 SET CASEMP F B TNDP25 Z * l @ <* DETERMINE NOTES TO DISPENSE FROM THIS CASSETTE, THIS TIME v * TNDP30 $ P MOVE NDDATA1(KW2,TNDWB1),TNDWB3 P MOVE TNDWB2,T
0x10643c…1065d0 Dummy {f00=0x004c, f01=0x0190, f02=»ST IF ENOUGH LEFT IN CASSETTE * & TNDP35 0 8 P PERF TNDREM,TNDWB1,TNDWD1 CALC. NOTES LEFT IN CASS. > $ P SUB TNDWD1,NDDATA1(KW2,TNDWB1) z BNN TNDP40 0 P ADD NDDATA1(KW2,TNDWB1),TNDWD1 SUB OVERFLOW P BP TNDP40 STILL SOME LEFT
0x1065d0…106764 Dummy {f00=0x004c, f01=0x0190, f02=»5 NEXT CASSETTE * 6 2* UPDATE NO. OF NOTES LEFT TO DISPENSE, THIS TIME " * TNDP40 f $ P MOVE TNDWB2,NDDATA1(KW2,TNDWB1) t P SUB TNDWB3,TNDWB2 * , '* CALCULATE AMOUNT FROM NUMBER OF NOTES P MOVE TNDWD1,NOTES(TNDWB
0x106764…1068f8 Dummy {f00=0x004c, f01=0x0190, f02=» TO DISPENSE ~ * TNDP45 P CBE TNDWB3,MAXOUT,TNDP50 , * N B >* DISPENSE, IF CASSETTE EMPTY, TRY AGAIN WITHOUT THAT CASSETTE X * P PERF IOTND,KW3, C TND, C TNDWB1, C TNDWB2, C TNDWB3,
0x1068f8…106a8c Dummy {f00=0x004c, f01=0x0190, f02=»MPTY l " IB TNDST,TNDPER,TNDPER,TNDP20 P 2 ( P* DISPENSE SUCCESSFUL, DELIVER NOTES : P f P PERF IOTND,KW4, C n TND, C TNDWB1, C TNDWB2, C TNDWB3, C TNDWD1, C TNDWS1, C TNDBUF
0x106a8c…106c20 Dummy {f00=0x004c, f01=0x0190, f02=»DST,TNDPER,TNDPER ADD AMT,DELAMT SET PAYOK 2 B TNDP20 D EJECT V * d @ ;*DELIVERED WHAT WE COULD, DETACH TND, TEST IF ANYTHING PAID n * TNDP50 P* : P* REPORT ANY CASSETTES THAT ARE EMPTY BUT NOT REPORT
0x106c20…106db4 (1, 332) Dummy {f00=0x004c, f01=0x0190, f02=»WB1,KW1 NEXT CASSETTE , P CBG TNDWB1,CASMAX,TNDP53 BRANCH IF DONE " P SUB NDDATA2(KW2,TNDWB1),='0' N & P BZ TNDP52 ALREADY REPORTED EMPTY? t 4 P PERF TNDREM,TNDWB1,TNDWD1 GET AMOUNT REMAINING & P SUB TNDWD1,=D'0' AMOUNT REMAINING P BP TNDP
0x106db4…106f48 Dummy {f00=0x004c, f01=0x018e, f02=»NEXT CASSETTE PTNDP53 P TBT PAYOK,TNDP55 $ RET > * J * PAID SOMETHING T * l TNDP55 v P TBT CASEMP,TNDPER1 * * PAID ALL * RET 4 EJECT * " P* ERROR TEST IF ANYTHING PA
0x106f48…1070dc Dummy {f00=0x004c, f01=0x4030, f02=» RET 2 PEND END @ ,NDP55 $ RET > * J * PAID SOMETHING T * l TNDP55 v P TBT CASEMP,TNDPER1 * * PAID ALL * RET 4 EJECT * " P* ERROR TEST IF ANYTHING PA
0x1070dc…107270 Dummy {f00=0x004c, f01=0x2008, f02=» EJECT * 2 -* ERROR, DETACH TND AND TEST IF ANYTHING PAID " * X TNDPER b PERF DET,TND p TBT PAYOK,TNDPER1 RET * * ERROR BUT PAID PART * TNDPER1 RET 2 PEND
0x107270…107404 Dummy {f00=0x004c, f01=0x0000, f02=»
[…0x3…]
0x1078c0…107a54 (1, 333) Opaque[0x194]
0x107a54…107be8 # DirEnt {nam=»TNDOPN«, typ=»SC«, f00=0x8702, f01=0x5f0c, f02=0x09a0, f03=0x80a7}
0x107a54…107be8 IdxSect {
0x107a54…107be8 f00 = 0x004d // 0x107a54 @0x0
0x107a54…107be8 f01 = 0x0006 // 0x107a56 @0x2
0x107a54…107be8 gno = [ // 0x107a58 @0x4
0x107a54…107be8 [0x00]: C0x004d.0x0.0
0x107a54…107be8 [0x01]: C0x004d.0x1.0
0x107a54…107be8 [0x02]: C0x004d.0x2.0
0x107a54…107be8 ]
0x107a54…107be8 }
0x107be8…107d7c Dummy {f00=0x004d, f01=0x0190, f02=» , ( IDENT TNDOPN OPEN TELLER NOTE DISPENSER DDUM DEMODD 4 **************** H * ` * PROCEDURE-NAME j * TNDOPN * $ * FUNCTIONAL DESCRIPTION @ <* THIS ROUTINE PERFORMS THE OPEN
0x107d7c…107f10 Dummy {f00=0x004d, f01=0x0190, f02=» GETS THE LOADED NUMBER OF NOTES PER CASSETTE L K* CHECKS THE CASSETTE SERIAL NUMBERS AFTER LOAD @ * D @* BOOLEAN TNDOPF IS SET TO INDICATE THAT THE OPEN 2 .* HAS BEEN EXECUTED SUC
0x107f10…1080a4 Dummy {f00=0x004d, f01=0x0190, f02=»ISPLAY ERROR-MESSAGE v * VARIABLES USED: * > P* H . P* SB CANCEL CANCEL SWITCH R @ P* NDDUMP NO. OF REJECTED NOTES PER CASSETTE * P* TNDST ERROR-STATUS 6 P* CASMAX
0x1080a4…108238 Dummy {f00=0x004d, f01=0x0190, f02=»A DIV.) d 4 P* TNDRCF REJECT CASSETTE EMPTY > P* TNDBAD UNCONTROLLED (=BAD ) TND STATUS H 6 P* TND OPF OPEN INDICATOR FOR TND L P********************************************************************
0x108238…1083cc Dummy {f00=0x004d, f01=0x0190, f02=» ENTRY TNDINI PTNDOPN PROC P TBF SBTND,TO999 * P B TO035 B PTO010 R ( P PERF XBFMT,=W'75' 'MOUNT CASSETTES' ` P TBT SBCANCEL,TO999 P SEND LIFTS UP < P PERF IOTND,KW1,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF . P CBE TND
0x1083cc…108560 Dummy {f00=0x004d, f01=0x0190, f02=»999 STOP IF CANCELED, ELSE RETRY PTO035 ( < P PERF IOTND,KW2,TNDSET,WW1,WW2,WW3,WDEC1,WCSTRG6,TNDBFF 6 P TND LIFTS DOWN, RETRY v P B TO010 PTO040 P MOVE TNDCIX,KW1 TND OPEN OK PTO050 $ P PERF TNDINI INIT TND REGISTERS
0x108560…1086f4 (1, 334) Dummy {f00=0x004d, f01=0x0190, f02=»IT CASSETTE ID z . P MOVE WW1,KW5 POINT TO REJECT CASS. SERIAL $ P COPY WCSTRG6,KW1,KW5,TNDBFF,WW1 H P p * P MOVE WDEC1,WCSTRG6 CONVERT TO DECIMAL x 4 P SUB WDEC1,NDRCID CHECK IF SAME REJECT CASSETTE P BZ TO070 IF EQUAL,CONTINUE PTO065
0x1086f4…108888 Dummy {f00=0x004d, f01=0x0190, f02=»070 P MOVE TNDCIX,KW0 PTO080 $ P ADD TNDCIX,KW1 2 4 P CBG TNDCIX,CASMAX,TO100 HANDLED ALL CASSETTES? J P MOVE WCSTRG6,=C' ' * P ADD WW1,KW5 POINT OT NEXT SERIAL NO. $ P COPY WCSTRG6,KW1,KW5,TNDBFF,WW1 . P MOVE WDEC1,WCSTRG6
0x108888…108a1c Dummy {f00=0x004d, f01=0x0190, f02=»KW1,TNDCIX) GET LOGICAL POINTER ~ P SUB WW2,KW0 IS IT ZERO ( P BZ TO080 ....THEN LOOP BACK H ( P SUB WW2,KW1 SET TO INDEX EQUIVALENT l P MOVE WW3,KW5 6 P MATCH WCSTRG6,WW3,KW1,NDMAP,WW2,KW1 CHECK 1 DIGIT * P BNE TO065 IF NOT SAME, CASSETTE
0x108a1c…108bb0 Dummy {f00=0x004d, f01=0x0190, f02=» P* $ PTO100 GET NUMBER OF NOTES AND P MOVE WW1,KW1 6 PT110 L P CBG WW1,KW4,T120 X P DIV NOTES(WW1),=D'100' r P ADD WW1,KW1 P B T110 PT120 , P MOVE TNDCIX,KW1 THEIR DENOMINATIONS P PERF XBFMT,=W'76'
0x108bb0…108d44 Dummy {f00=0x004d, f01=0x0190, f02=» " P TBT SBCANCEL,TO999 CANCELED? P SET TNDOPF TNDOPENED . & P CLEAR TNDRCF REJECT CASSETTE FULL L P CLEAR TNDBAD TND-STATUS OK v PTO999 P RET P PEND P* P**************************** P* P* < P*
0x108d44…108ed8 Dummy {f00=0x004d, f01=0x0190, f02=»1,KW1 INIT TND REGISTERS PINI010 & P CBG WW1,KW5,INI999 5 ROWS TO INIT . P MOVE TNDCIX,KW1 X PINI020 p 6 P CBG TNDCIX,KW4,INI040 ..... AND 4 COLUMNS PER ROW ~ P CBNE WW1,KW2,INI030 $ P MOVE NDDATA2(WW1,TNDCIX),=D'0' PINI030 $
0x108ed8…10906c Dummy {f00=0x004d, f01=0x0190, f02=»ASE ROW NO. ~ P B INI010 PINI999 & P MOVE NDDUMP,=D'0' 4 P RET N P PEND Z P* h ( P************************************ r P* 6 P* KEYBOARD INPUT ATTRIBUTE ROUTINE, USED > P* WHEN ENTERING THE NUMBER OF
0x10906c…109200 Dummy {f00=0x004d, f01=0x0190, f02=»RET P PBIN XWRET ( P GETABX TNDCIX GET INDEX (FIELDNO.) P MOVE WDEC1,SPINPUT L P CBE WDEC1,=D'0',SP33001 h : P MOVE NDDATA2(KW2,TNDCIX),=D'1' NOTES HAVE BEEN LOADED * P ADD TNDCIX,KW1 .... FOR THIS CASSETTE " P RET INCREASE REGIS
0x109200…109394 (1, 335) Dummy {f00=0x004d, f01=0x402a, f02=» RET P PEND P END @ &
0x109394…109528 Dummy {f00=0x004d, f01=0x2008, f02=» 2 .* XEERR DISPLAY ERROR-MESSAGE * VARIABLES USED: F * h@ rETTE SERIAL NUMBERS AFTER LOAD L * D @* BOOLEAN TNDOPF IS SET TO INDICATE THAT THE OPEN 2 .* HAS BEEN
0x109528…1096bc Dummy {f00=0x004d, f01=0x000c, f02=» HEND =FORM HSCR /A,A=FORM HMOV FORM,/L 0 HRUN PDISC,0 A=FORM D & HOPT OUT=ENGDEF,FC=F4,FT=A,INP=FORM ^ H$PDISCE P=FORM * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A
0x1096bc…109850 Dummy {f00=0x004d, f01=0x2008, f02=» =FORM HSCR /A,A=FORM HMOV FORM,/L 0 HRUN PDISC,0 A=FORM D & HOPT OUT=ENGDEF,FC=F4,FT=A,INP=FORM ^ H$PDISCE P=FORM * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A
0x109850…1099e4 Dummy {f00=0x004d, f01=0x2008, f02=» NATIVE 1,2 AND 3 IS VALID, | 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN * 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED ^ HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A
0x1099e4…109b78 Dummy {f00=0x004d, f01=0x0190, f02=» * & = * & [ 2 y ` | t y | < H IDENT D:UA20 TRA 10.0 - - F1 O1111 DATA DIVISION D:UA20 D:UA20U * &
0x109b78…109d0c Dummy {f00=0x004d, f01=0x0190, f02=»RA 10.0 - - F1 O1111 DATA DIVISION U:UT10 0 U:UT10U B * & V * & = * P = P < H IDENT D:UT1
0x109d0c…109ea0 Dummy {f00=0x004d, f01=0x0190, f02=» 0 !0 '0 -0 3 7 2 $ < H IDENT U:UT20 TRA 10.0 - - F1 O1111 DATA DIVISION 6 U:UT20 v U:UT20U * & * & =
0x109ea0…10a034 (1, 336) Opaque[0x194]
0x10a034…10a1c8 # DirEnt {nam=»NDERR «, typ=»SC«, f00=0x8741, f01=0x837c, f02=0x09b8, f03=0x0082}
0x10a034…10a1c8 IdxSect {
0x10a034…10a1c8 f00 = 0x004d // 0x10a034 @0x0
0x10a034…10a1c8 f01 = 0x0004 // 0x10a036 @0x2
0x10a034…10a1c8 gno = [ // 0x10a038 @0x4
0x10a034…10a1c8 [0x00]: C0x004d.0x3.0
0x10a034…10a1c8 [0x01]: C0x004e.0x0.0
0x10a034…10a1c8 ]
0x10a034…10a1c8 }
0x10a1c8…10a35c Dummy {f00=0x004d, f01=0x0190, f02=» $ IDENT NDERR TND ERROR REPORTING DDUM DEMODD , L H************************************************************************ @ * * PROCEDURE NAME: H C* OUTPUTS AN ERROR MESSAGE CORRESPONDING THE ERROR 8 4
0x10a35c…10a4f0 Dummy {f00=0x004d, f01=0x0190, f02=» REPLACED BY A MORE SOPHISTICATED ONE IN A @ P* DEFENITE IMPLEMENTATION OF THE TND IN THE > $ P* DEMO-PACKAGE P* P* PARAMETERS: > P* ERRNUM CONTAINS THE ERRORC
0x10a4f0…10a684 Dummy {f00=0x004d, f01=0x0190, f02=»THE X 4 P* DEMO PACKAGE ( P* =0 REQUEST ERROR D , P* =1 TND NOT OPERABLE p < P* =2 COMMUNICATIONS OR HARDWARE ERROR , P* =3 DELIVERY TIMEOUT
0x10a684…10a818 Dummy {f00=0x004d, f01=0x0190, f02=»ETTE 'ZZZZ' EMPTY t 4 P* =7 PROGRAM ERROR-DEBUG HELP : P* =8 CASSETTE 'ZZZZ' FAILS TO FEED R P* P* RPOCEDURES USED P* P* XEERR L P**********************************
0x10a818…10a9ac Dummy {f00=0x004d, f01=0x40ee, f02=»RNUM P MOVE NWXSTAT,WW1 P MOVE WW3,ERRNUM & 0 P ADD WW3,=W'82' SET DEMO-PACKAGE EQUIVALENT > 4 P PERF XFERR1,WW3,KW2 OUTPUT ERROR-MESSAGE, THEN r P MOVE WW1,NWXSTAT P RET P PEND P END @ **************************
0x10a9ac…10ab40 Dummy {f00=0x004d, f01=0x2008, f02=» NT NDERR TND ERROR REPORTING DDUM DEMODD , L H************************************************************************ @ * * PROCEDURE NAME: H C* OUTPUTS AN ERROR MESSAGE CORRESPONDING THE ERROR 8 4
0x10ab40…10acd4 (1, 337) Dummy {f00=0x004e, f01=0x0000, f02=»L BLOCKED - CALL SUPERVISOR" ACCOUNT BLOCKED RECORD KEY INVALIDR MASTER KEYSETTING REQUIREDL & INPUT DEVICE FAILUREF 8 % "REQUIRED DEVICE TYPE NOT SPECIFIED J SAVINGS ACCOUNT INSUFFICIENT FUNDSr n SAME KEY VALUES BALANCE
0x10acd4…10ae68 Dummy {f00=0x004e, f01=0x0000, f02=» CANCELE 1 TND OPEN FAILURE CONT FOR RETRY, ELSE CANCELR CONT FOR RETRY, ELSE CANCEL E "FATAL TND-ERROR, DISPENSE CANCELED DO TRANSACTION TND-OPEN AGAIN REQUEST ERROR - NO CASSETTE,T.O. OR NOP TND NOT OPERABLE 0 COMM. OR HARDWARE
0x10ae68…10affc Dummy {f00=0x004e, f01=0x0000, f02=» HELPE CASSETTE $ FAILS TO FEED ) &DISPENSE AMOUNT OVERDRAWN BY QUOTATIONS VOLUME-NAME ? : DSC % "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): # OPEN FORMAT-FILE NOT SUCCESSFULLS G "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE
0x10affc…10b190 Dummy {f00=0x004e, f01=0x0000, f02=»ORMAT-FILE Z % "PGM "FORMAT" SUCCESSFULLY EXECUTEDSPENSE AMOUNT OVERDRAWN BY QUOTATIONS VOLUME-NAME ? : DSC % "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): # OPEN FORMAT-FILE NOT SUCCESSFULLS G "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE
0x10b190…10b324 Dummy {f00=0x004e, f01=0x0190, f02=»GET DEVICE INDEX " P ANK A3,/C0 TEST DEVICE INDEX $ P RF(NZ) TSST40 DEVICE INDEX > 0 > $ P ANK A1,/20 TEST PRINTER STATUS f P RF(Z) TSST80 NO ERRORS P LDKL A1,ENDJ END OF JOURNAL P RF TSST80 PTSST40 EQU * " P ANK A3,/80 TEST
0x10b324…10b4b8 Dummy {f00=0x004e, f01=0x0190, f02=»DK A1,DOCOUT DOCUMENT OUT P RF TSST80 " 2 PTSST70 LDK A1,0 RECEIPT, NO ERRORS DETECTABLE 4 " PTSST80 ABL DISEND END REQUEST j P EJECT P* P* P* ORDER 06 : WRITE JOURNAL P* P* PWRTJRL EQU * ( P LD A1,E
0x10b4b8…10b64c Dummy {f00=0x004e, f01=0x0190, f02=»TROL CHARACTER x P ANK A2,/FF P LDK A4,0 SET UP 0 LF * P SUK A2,/2B TEST CTRL CHAR H P RF(Z) WRJL10 CTRL CHAR =/2B j P LDK A4,2 SET UP 2 LF P SUK A2,5 P RF(Z) WRJL10 CTRL CHAR =/30 P LDK A4,1 SET UP 1 LF PWRJL10 E
0x10b64c…10b7e0 Dummy {f00=0x004e, f01=0x018e, f02=» SEND $ P LDK A3,2 SET UP BUFFER POINTER 6 PWRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER 6 P LDR A1,A1 p " P RF(Z) WRJL50 BUFFER FINISHED P LDR A1,A2 GET CHAR IN A1 P P* EXAMINE CHARACTER P P SUK A1,/10
0x10b7e0…10b974 (1, 338) Opaque[0x194]
0x10b974…10bb08 # DirEnt {nam=»TNDCAB«, typ=»SC«, f00=0x500a, f01=0x8f40, f02=0x09c8, f03=0x875c}
0x10b974…10bb08 IdxSect {
0x10b974…10bb08 f00 = 0x004e // 0x10b974 @0x0
0x10b974…10bb08 f01 = 0x0004 // 0x10b976 @0x2
0x10b974…10bb08 gno = [ // 0x10b978 @0x4
0x10b974…10bb08 [0x00]: C0x004e.0x1.0
0x10b974…10bb08 [0x01]: C0x004e.0x2.0
0x10b974…10bb08 ]
0x10b974…10bb08 }
0x10bb08…10bc9c Dummy {f00=0x004e, f01=0x0190, f02=» . ) IDENT TNDCAB TND DISPENSE MAIN PROCEDURE P DDUM DEMODD 6 L P************************************************************************ J P* P* PROCEDURE-NAME: P* TNDCAB P* & P* FUNCTIONAL
0x10bc9c…10be30 Dummy {f00=0x004e, f01=0x0190, f02=»D THE TND CONTROL ROUTINES j B P* FROM THE SVENSKA HANDELSBANKEN TND-PACKAGE " P* h P* IT: r F P* -COMPUTES THE NUMBER OF NOTES TO DELIVER PER @ P* CASSETTE IN MAXIMUM SIZE
0x10be30…10bfc4 Dummy {f00=0x004e, f01=0x0190, f02=» < P* -PASSES CONTROL TO THE TND ROUTINES P* D P* PROCEDURES USED: N P* p P z B P* XBFMT DISPLAY SCREEN FORMAT AND GET INPUT 6 P* XEERR DISPLAY ERROR/GET REPLY < P*
0x10bfc4…10c158 Dummy {f00=0x004e, f01=0x0190, f02=»**** L P PDIV P ENTRY TNDCAB P EXPROC XBFMT 0 P EXPROC XEERR F P EXPROC TNDPAY P ENTRY SPAP34 r PTNDCAB PROC P TBF SBTND,CAB999 P MOVE WW1,KW1 PCAB010 $ P CBG WW1,KW4,CAB020 END-OF-LOOP 0 P MOVE
0x10c158…10c2ec Dummy {f00=0x004e, f01=0x018e, f02=»=D'0' P MOVE WW1,KW1 PCAB021 $ P CBG WW1,KW4,CAB025 2 P DIV NOTES(WW1),=D'100' N P ADD WW1,KW1 n P B CAB021 PCAB025 P MOVE TNDCIX,KW0 0 P PERF XBFMT,=W'91' DISPLAY SELECTION FORMAT P CBNE TNDCIX,KW0,CAB026
0x10c2ec…10c480 Dummy {f00=0x004e, f01=0x0190, f02=» v P ADD WW1,KW1 P B CAB027 PCAB029 . * P TBT SBCANCEL,CAB999 ...AND GET INPUT < , P MOVE WDEC2,WDEC1 TOTAL AMOUNT SELECTED j 0 P MOVE WDEC1,TDAMOUNT ...IS IN WDEC1, COMPUTE & P SUB WDEC1,WDEC2 ...THE DIFFERENCE P MOVE WW1,KW1
0x10c480…10c614 (1, 339) Dummy {f00=0x004e, f01=0x018e, f02=»AMOUNT ZERO? n & P MOVE IDAMT1,WDEC1 ...NO, CONTINUE 6 P DIV IDAMT1,NOTES(WW1) COMPUTE NUMBER OF NOTES OF > 6 P ADD TNDREG(WW1),IDAMT1 UPDATE DISPENSE QUANTITIES x 2 P MOVE WDEC2,NOTES(WW1) ...CURRENT DENOMINATION , P MUL WDEC2,IDAMT1 COMPUTE REMAIN
0x10c614…10c7a8 Dummy {f00=0x004e, f01=0x0190, f02=» * P MOVE WDEC2,=D'0' INIT PARAMATERS FOR P MOVE WW1,KW0 ...TND CALL 6 P MOVE WW2,KW0 X P MOVE WW3,KW0 n PCAB050 " P MOVE TNDBFF,=C' ' INIT BUFFER > P PERF TNDPAY,WDEC1,TNDSET,WW1,WW2,WW3,WDEC2,WCSTRG6,TNDBFF P B CAB999 STOP
0x10c7a8…10c93c Dummy {f00=0x004e, f01=0x0190, f02=»ET=2) z P B CAB070 ...REJECTED NOTES PCAB065 2 ( P MOVE IDAMT1,TDAMOUNT SAVE TDAMOUNT @ P SUB TDAMOUNT,WDEC1 (RET=4) l 4 P PERF XBFMT,=W'77' ...OK, MESSAGE 'REMAINING...' * P MOVE TDAMOUNT,IDAMT1 RESTORE TDAMOUNT P B CAB999 EXIT
0x10c93c…10cad0 Dummy {f00=0x004e, f01=0x018e, f02=»BCANCEL P RET P PEND " P***************************** * P* P @ P* PROCEDURE USED BY KEYBOARD INPUT (SCREEN MANAGEMANT) Z @ P* CHECKS IF NUMBER OF NOTEST ENTERED DON7T EXCEED TOTAL P* AMOUT TO DELEIVER " P******
0x10cad0…10cc64 Dummy {f00=0x004e, f01=0x018e, f02=» f 4 P MOVE TNDREG(TNDCIX),SPINPUT CONVERT TO DECIMAL P MOVE WW1,KW1 @ P MOVE WDEC1,=D'0' V P MOVE WDEC2,=D'0' p PSP34010 . P CBG WW1,TNDCIX,SP34020 LC > CURRENT INDEX P MOVE WDEC2,TNDREG(WW1) 2 P MUL WDEC2,NOTES(WW1) COMPUT
0x10cc64…10cdf8 Dummy {f00=0x004e, f01=0x011a, f02=» l P B SP34010 PSP34020 8 P CBG WDEC1,TDAMOUNT,SP34030 DISPENSE EXCEEDS LIMIT? * P ADD TNDCIX,KW1 f P RET ~ PSP34030 4 P MOVE SPBINW4,=W'92' 'DISPENSE AMOUNT OVERDRAWN' " P MOVE XWRET,=W'1' BY QUOTATION P RET P PEN
0x10cdf8…10cf8c Dummy {f00=0x004e, f01=0x2008, f02=» B SP34010 PSP34020 8 P CBG WDEC1,TDAMOUNT,SP34030 DISPENSE EXCEEDS LIMIT? * P ADD TNDCIX,KW1 f P RET ~ PSP34030 4 P MOVE SPBINW4,=W'92' 'DISPENSE AMOUNT OVERDRAWN' " P MOVE XWRET,=W'1' BY QUOTATION P RET P PEN
0x10cf8c…10d120 Dummy {f00=0x004e, f01=0x0190, f02=»
0x10d120…10d2b4 (1, 340) Opaque[0x194]
0x10d2b4…10d448 # DirEnt {nam=»RESTAR«, typ=»UF«, f00=0x5208, f01=0xa720, f02=0x09d8, f03=0x909c}
0x10d2b4…10d448 IdxSect {
0x10d2b4…10d448 f00 = 0x004e // 0x10d2b4 @0x0
0x10d2b4…10d448 f01 = 0x0002 // 0x10d2b6 @0x2
0x10d2b4…10d448 gno = [ // 0x10d2b8 @0x4
0x10d2b4…10d448 [0x00]: C0x004e.0x3.0
0x10d2b4…10d448 ]
0x10d2b4…10d448 }
0x10d448…10d5dc Dummy {f00=0x004e, f01=0x0094, f02=» SCR PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,2K R LKE M b PKPF /L,DEMO p ASG /E0,TY10
0x10d5dc…10d770 Dummy {f00=0x004e, f01=0x2008, f02=» PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,2K R LKE M b PKPF /L,DEMO p ASG /E0,TY10
0x10d770…10d904 Dummy {f00=0x004e, f01=0x0190, f02=»Q0 R W Q$ : I d #03 T $_X I _^ W L" I p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 5.0 TRACE @I P ( _ AI AI I ( @I ' $ * AI T( I (
0x10d904…10da98 Dummy {f00=0x004e, f01=0x0190, f02=»J( 2 I N @ # T R N et N & N J$Q I AI W> J( I V D ! )0 1 @ # T 6 V ^ N AI K 7 I ( ( AI : Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4
0x10da98…10dc2c Dummy {f00=0x004e, f01=0x0190, f02=»R 4 N 4 $ AI I U 4 - _ K I @I Pd 7 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 DIV BY
0x10dc2c…10ddc0 Dummy {f00=0x004e, f01=0x0190, f02=» 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 DISC ERROR
0x10ddc0…10df54 (1, 341) Opaque[0x194]
0x10df54…10e0e8 # DirEnt {nam=»MMUPRD«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0168, f03=0x0000}
0x10df54…10e0e8 IdxSect {
0x10df54…10e0e8 f00 = 0x000b // 0x10df54 @0x0
0x10df54…10e0e8 f01 = 0x0002 // 0x10df56 @0x2
0x10df54…10e0e8 gno = [ // 0x10df58 @0x4
0x10df54…10e0e8 [0x00]: C0x000b.0x1.0
0x10df54…10e0e8 ]
0x10df54…10e0e8 }
0x10e0e8…10e27c Dummy {f00=0x000b, f01=0x018e, f02=» PNOD C PTRA DEMODD,NL PINC ZFMTIO ( PNOD R : PINC AADEMO H PINC BASPCT Z PINC CASTTS l PINC CGCSYS ~ PINC DAUCCY PINC DBUOPR PNOD R PINC EINIT PINC QIRDBS PINC QMISC PINC XBFMT
0x10e27c…10e410 Dummy {f00=0x000b, f01=0x018e, f02=» PINC BESELF PINC CFCHKH PINC DDTP71 ( PINC SPACHQ : PNOD R L PINC PRINT Z PINC CDCHKY l PINC CEGACT ~ PINC DCVDU PINC DELACT PNOD R PINC DFOACT PINC DGCACT PINC DHBACT PINC DIQACT
0x10e410…10e5a4 Dummy {f00=0x000b, f01=0x0070, f02=» PINC PBBOOK PINC DEMSCR PTLK U,2K , PLKE U,M < PKPF /L,DEMO3 L PASG /E0,TY10 `CDCHKY l PINC CEGACT ~ PINC DCVDU PINC DELACT PNOD R PINC DFOACT PINC DGCACT PINC DHBACT PINC DIQACT
0x10e5a4…10e738 Dummy {f00=0x000b, f01=0x2008, f02=» INC PBBOOK PINC DEMSCR PTLK U,2K , PLKE U,M < PKPF /L,DEMO3 L PASG /E0,TY10 `CDCHKY l PINC CEGACT ~ PINC DCVDU PINC DELACT PNOD R PINC DFOACT PINC DGCACT PINC DHBACT PINC DIQACT
0x10e738…10e8cc Dummy {f00=0x000b, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x10e8cc…10ea60 Dummy {f00=0x000b, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x10ea60…10ebf4 (1, 342) Opaque[0x194]
0x10ebf4…10ed88 # DirEnt {nam=»DEMO3 «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x10ebf4…10ed88 IdxSect {
0x10ebf4…10ed88 f00 = 0x000b // 0x10ebf4 @0x0
0x10ebf4…10ed88 f01 = 0x001a // 0x10ebf6 @0x2
0x10ebf4…10ed88 gno = [ // 0x10ebf8 @0x4
0x10ebf4…10ed88 [0x00]: C0x000b.0x0.0
0x10ebf4…10ed88 [0x01]: C0x000b.0x2.0
0x10ebf4…10ed88 [0x02]: C0x000b.0x3.0
0x10ebf4…10ed88 [0x03]: C0x00a3.0x3.0
0x10ebf4…10ed88 [0x04]: C0x00a4.0x0.0
0x10ebf4…10ed88 [0x05]: C0x00a4.0x1.0
0x10ebf4…10ed88 [0x06]: C0x00a4.0x2.0
0x10ebf4…10ed88 [0x07]: C0x00a4.0x3.0
0x10ebf4…10ed88 [0x08]: C0x00a5.0x0.0
0x10ebf4…10ed88 [0x09]: C0x00a5.0x1.0
0x10ebf4…10ed88 [0x0a]: C0x00a5.0x2.0
0x10ebf4…10ed88 [0x0b]: C0x00a5.0x3.0
0x10ebf4…10ed88 [0x0c]: C0x00a6.0x0.0
0x10ebf4…10ed88 ]
0x10ebf4…10ed88 }
0x10ed88…10ef1c Dummy {f00=0x000b, f01=0x0190, f02=»6 `Mf CR? L R 5 jR ; R A 6R F @R K NR P ~R U nD [ n p
0x10ef1c…10f0b0 Dummy {f00=0x000b, f01=0x0190, f02=» R P R A 0 p 1 b p + " 2 p ` n e A0 | 2 f x F P ` @ vA0 0 * 8 UBF UIF UCY UOP UA1 UA2 UT1 UT2 UQQ (
0x10f0b0…10f244 Dummy {f00=0x000b, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N
0x10f244…10f3d8 Dummy {f00=0x000b, f01=0x0190, f02=» * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F : 0 0 0 @
0x10f3d8…10f56c Dummy {f00=0x000b, f01=0x0190, f02=»
[…0x3…]
0x10fa28…10fbbc Dummy {f00=0x000b, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x10fbbc…10fd50 Dummy {f00=0x000b, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x10fd50…10fee4 Dummy {f00=0x000b, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x10fee4…110078 Dummy {f00=0x000b, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x110078…11020c Dummy {f00=0x000b, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @6 < v D @ 8 H L x6 D E X_j DEX D' W^j D W D*j D DF0 DP 0 1 A A24 0 4 1 P 3K&K 2 Kl0 $ $ 06L 0 2 0 0 L0 b. 1 181 1<1 1FK 1(1 0N" / 2 # % . #^
0x11020c…1103a0 Dummy {f00=0x000b, f01=0x0190, f02=» / 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-
0x1103a0…110534 (1, 344) Dummy {f00=0x000b, f01=0x0190, f02=»ZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- ? < < < < . ] FORMATFILE OPEN UNSUCCESSFULL e e e e e e
0x110534…1106c8 Dummy {f00=0x000b, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D F H J L N P R T V X Z ^ ` b d f h j l n p r t v x z | ~
0x1106c8…11085c Dummy {f00=0x000b, f01=0x0190, f02=» % * / 5 ; A G N U ] e m v 3 I _ / u ! Q ! t 4 j T& P 9 ' W T 9 & Q <W P W @
0x11085c…1109f0 Dummy {f00=0x000b, f01=0x0190, f02=» : A A : A @ P 8 T Z T : @ A _( : W W ( B P X A : @ A | ~ P R _ : 0 E T : : A @ @ : t A ~ P * Z : A 8 T P A : : $
0x1109f0…110b84 Dummy {f00=0x000b, f01=0x0190, f02=»
0x110b84…110d18 Dummy {f00=0x000b, f01=0x0190, f02=» 9 9 9 F 8 1 Y 7p 9 9Z & + P _ 7p 9 #0 0T &
0x110d18…110eac Dummy {f00=0x000b, f01=0x0190, f02=»W X " X X . 8 # / X 0P X T 5 ! Y * y X V. X &@ X ( &R x C ( Y * X Y , &@ X X C & C C ( B Ph9 R^9 !2 X !@PP X X * b ) Y * Y , X , &@ x X *YrP
0x110eac…111040 Dummy {f00=0x000b, f01=0x0190, f02=»_R X !@XX y X # x V y X X * &R P P 1 _ 1 X * X X * $" X D % " X # X * &R y _< X # X * y &R X 1 1 X !@T X $ " P y _ x T "" ! X H X X * , )$ P _ : X " X )
0x111040…1111d4 (1, 345) Dummy {f00=0x00a3, f01=0x0190, f02=»!r9 R 9 !2 X ! T ! _ y C Q " T &z &R X ! "B X X ! x Y~ Y _ X "@P B R y C B P 9 V ! _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c / C _$ _ " y _6 x X@ X
0x1111d4…111368 Dummy {f00=0x00a3, f01=0x0190, f02=» &R_ " O C C ( # B P B " C &( : + &z X &@ &R ( / 9 ( / . : B "R C _J + . / X 9 V ! P @ Y 9 Y Y . : 9^ 9 9 " 9 $ : / 2! Y " / 9
0x111368…1114fc Dummy {f00=0x00a3, f01=0x0190, f02=»T V / > : / 2' 9 R P P X ' ' 7p X _ X ' _ X '?_ / 9 X ' / X ! / / / X " 9b! X :c 2" H# / @ W W W W W W W /f / Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0
0x1114fc…111690 Dummy {f00=0x00a3, f01=0x0190, f02=» R Y ?_ P P Y +W^ % Y + % '&WL T % % W> Q W Y + U Q P W W Y ( '" C / X *! P V L ! / 7p X 0 Y 8 % P /< Y 0 X 0 X 2] X 8 Y 0 % : X 0 :H* /( : X 2T Y 2 : C 1 B ]
0x111690…111824 Dummy {f00=0x00a3, f01=0x0190, f02=» ( C : C B _( _ /f X &@ &z P &R B _R ( / X D D : K + Q 2 P. P8 9P GR ( / B X # V : 9 F _0 ; _>I I 9 I I I IJIrInG4F4G4E ( ) ) I (xI I F. W W X 0Q (
0x111824…1119b8 Dummy {f00=0x00a3, f01=0x0190, f02=»/ WT " P Y 0] Y (_t " X _. 3" X *# P B 1 3"W " P X X$ C : X *! P 3: . C W @ X (T W X y 6 Y ( : X (;n / I F GRF F )4IJIrInG F4G*E ( )X)XG>(xI F F. / Y . Y ,W / Y . X ( X ." PV X 0RzT$ Y *P
0x1119b8…111b4c Dummy {f00=0x00a3, f01=0x0190, f02=» Y . - Y ( F4 / Y *T " T ! 1 W ! ) F : / F I P & Y *T )~ : X ?! T X &P V H " P F .` / X ?! P* R Q$ X &P V D ! P $ ! P %_ F : / V Y " X .9H $ I P & X ( " Qv Y +Q R "
0x111b4c…111ce0 Dummy {f00=0x00a3, f01=0x0190, f02=» X $" P<Q X (# P2 X # :! R$W , ,P T$ @ Y (W Y , - W -& Y ( F4 : X *:h X (! # P X & V L TbW X , X 0P@ ,P T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l , _r X ( P Y (_ P* ,p P| Y 8 )~ X 8 X $ /(
0x111ce0…111e74 (1, 346) Dummy {f00=0x00a4, f01=0x0190, f02=» 2P X 0V _z Y ( " T Y ( : 8 .` 9 8 V Y 8 : " P X & V ( P ,p : : ,4 "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : / X : X ( T X & V H " V Y : X $ /( X : /< : X Y " X Y $
0x111e74…112008 Dummy {f00=0x00a4, f01=0x0190, f02=» y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X /(W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 9 W Y ! P 9LW V Y .` V Y : 9 F : 2' " P T ; W 9P GR : .V :
0x112008…11219c Dummy {f00=0x00a4, f01=0x0190, f02=» Y Y < V E 7p B X _ v : C C 3R : C 3R : / X @ ; [ W / X B ; [ 4F Z : :( R : V E V D ' $ T ( W / P 7p X =' V W V Y =P / : 3 "Q V I
0x11219c…112330 Dummy {f00=0x00a4, f01=0x0190, f02=»_0 _ 9 ( 7p 9 9 V 7p( 1 6~ 2 1 0 2 _ 9D &:K : 1Z/ 2 W 1Z/ 6~ 2 1Z/ _ 1Z/ 2 1Z/ 2 1Z 2 W 3n 2 1Z/ 2 _ 4` C 4t P 9 <H : 1
0x112330…1124c4 Dummy {f00=0x00a4, f01=0x0190, f02=»! 4 4t 9 P _J 3 B 9 'W 3 ( W| 9 4 3 1 ( 0 W : 1W C C ( ' P0 2 P& V ,V 6RW B % P C + 5V 7p 3 I B P B P B
0x1124c4…112658 Dummy {f00=0x00a4, f01=0x0190, f02=» I : 4` 4t % Y 9^ C 9 & R V C 9 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D ; W<' #? ; ;B V D W ,"? :D;B D V : _: L C L C B C : 3 4F : 3
0x112658…1127ec Dummy {f00=0x00a4, f01=0x0190, f02=» : 4 C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " 5t : P68 6NPR L6$ R R _ R _ # Q R V > _V X^ ' h
0x1127ec…112980 Dummy {f00=0x00a4, f01=0x0190, f02=» 9D #0 T B ' : B B 5t : V C 9D P C #0 T & C C : 4 C C :7D7D7D7 9 7v8 > <J<P= @ BrBr@ 8t8t8 7p8 7p8 8 EnJtJ,I I JtI 9"9 9(9* / V 7 @ ! P / P W 7( 8 9c D6 9a1 P 9 9D Q
0x112980…112b14 (1, 347) Dummy {f00=0x00a4, f01=0x0190, f02=» D ! R T V P V / W V _ 8^n D6 Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 9 2# &X 3Y $! 2P R P _ 9B 7 _ 6 D " 7 $
0x112b14…112ca8 Dummy {f00=0x00a4, f01=0x0190, f02=» 9 W W P W 6 2# ; W4 @ E9<" T> ; [ # ; :H 2 T Z L L9, D V, W # ; L9, D V $ W D V L94 , W 6 2 ; W$ " P& Pd" # ; ;b Wv " ;d# _ [ v [ / 9
0x112ca8…112e3c Dummy {f00=0x00a4, f01=0x0190, f02=» 9 z ;AV$ Z H # ; ; 9 : & Z 4 ; : Z 4 " 2@P : [ [ 9 & @ ! P [ 6 [ Z 7 9Z Z 7 : T # ( :f :& " T # :A ( @ " P !
0x112e3c…112fd0 Dummy {f00=0x00a4, f01=0x0190, f02=» : ;f" #?_" W " T & T + : * & !@P `1` P > Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z
0x112fd0…113164 Dummy {f00=0x00a4, f01=0x0190, f02=»T * & : * & !`P :J +_ +Q > _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b @ P ? Pd P 0 -
0x113164…1132f8 Dummy {f00=0x00a4, f01=0x0190, f02=» < ?V # ; [ _ ' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V
0x1132f8…11348c Dummy {f00=0x00a4, f01=0x0190, f02=» 9D [ [ 9 Z Z > : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ D > D > D <P
0x11348c…113620 Dummy {f00=0x00a4, f01=0x0190, f02=» (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & [ [ [ [
0x113620…1137b4 (1, 348) Dummy {f00=0x00a4, f01=0x0190, f02=» [ Z D > Q D B@ P _ T { [ D Dh [ Q@ [ D <P { R [ _ D <J D B@ Z ! Z $ Z %_N [ Q* D <J D > R [ Z { D <J z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D
0x1137b4…113948 Dummy {f00=0x00a4, f01=0x0190, f02=»I ; 9P9 I F GRF F I IJIrInG F4G*E G I I G>G I F F. EN 6 E K K K K V K : 9 E E EN 9T V Fz E F V Z P 2 " T W "@T '?W "? HD " K :e J J " J _Z Z Fz [ Z
0x113948…113adc Dummy {f00=0x00a4, f01=0x0190, f02=» R (Q V : : E J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K GHWJ G W +_ G G K W. _& X 3"W X & 3 J K : V : 1 : + 9 [ [ < !AAP !TTT W !**T *
0x113adc…113c70 Dummy {f00=0x00a4, f01=0x0190, f02=» Z ! XBW *X& FW@ :P # U 1 G !00T ; GJ _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ G 8 8 !++P !-- z ;$# + ^$ _* T tX. PT*A
0x113c70…113e04 Dummy {f00=0x00a4, f01=0x0190, f02=» : P & _ &X _ : : : : J Er : { : K J PX 9 _ K [ K Z : R" P $ 1T Y W 5 _$ : K $ R W R # P W ) V E J WX K
0x113e04…113f98 Dummy {f00=0x00a4, f01=0x0190, f02=»9 jP kT T : & 9! " : $ : J 9D $ : 4` 2 2 ! <e 1^/ V ,!? B H ! T )@) - 2 4` C -/ 2 4` <H _ ( 9 R ' 7p 9 4 3 ,# ; ( R 1 7p _`
0x113f98…11412c Dummy {f00=0x00a4, f01=0x0190, f02=» P , _ =B R ?H 8R<;AV ( _ X @ 9 X ( R 9 8 ? X Q" , V ( Rf - 4T V 5 ( R<W, V P& W$ U V X 9T I Y 7p 9 _
0x11412c…1142c0 Dummy {f00=0x00a4, f01=0x0190, f02=» j ^ b f1 I5 J1 W @2 1 W "` !"b9 A " A 0 #)6{ I5 H1 W )6b W "a?J1B !"b _J _N1 0 H5% "a Ma 7` 8{ :` ;` I2y I2t 1% eeW2 7` M`!"a I2u I2X I2S 1% ee I2G Me 7e!7` 7` ` 2 32 3 I58 I2% 6`);a A6)>` A9)?` A7 I2 !"a" I2 W )"`
0x1142c0…114454 (1, 349) Dummy {f00=0x00a4, f01=0x0190, f02=» ^ I2 1%W "{4 ` I2`I I2T I2O I2JW !"b "` I2< "` %1 I20 I2) Z b Z 0 I2 I2 "a I2 W "{4 K JK J J JK%J " K JK J J JK%J` #Jh K %K` %K C 4 0 0 0 0R JP !0 ? #0 ? "`Aj ` A I2
0x114454…1145e8 Dummy {f00=0x00a4, f01=0x0190, f02=»K e f g h a b c d _z e f g h a b c d A BI2 +` + "b I2 I2 W "a @j4 )"` S pS pg p p I21I !"` Af I2 #Ss p )"` S S 8W +` +@f4 kr ct du cv dw l#S y l# x 4 %y`
0x1145e8…11477c Dummy {f00=0x00a4, f01=0x0190, f02=» 0 0 4 !u{ W !w{ #x{ C W !x{ C W 4 #t{ C W u|%7b 0 0 4 #v{ C W w|%7c 0 0 4 )"`h ` A I2 Dw0 D P 0 Dy0 DT5 W^0 e e e /#e { I2A0 _E I21_O e~ I2&!e{" e{ !I2 !e` "I2 W
0x11477c…114910 Dummy {f00=0x00a4, f01=0x0190, f02=» A g F J % w d N 3 H $ 2 y ] * FORMAT FILE VOLUME NAME ? DSC ] DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA BAS
0x114910…114aa4 Dummy {f00=0x00a4, f01=0x0190, f02=» - E V H N k N k
0x114aa4…114c38 Dummy {f00=0x00a4, f01=0x0190, f02=» f t t } } % E E E E 4 D E D E DE E D 4 q r} s} t u v w x y` } } } } 4 } } } } 4 2 = }4 2 = }4
0x114c38…114dcc Dummy {f00=0x00a4, f01=0x0190, f02=»_6 ( ) + I @ a aa a I2FI I #I:/_ I I $a( (aW $a) )a$ + + % a I2 _LI A a I _Y + 4 % , D D " D"" H3 A3" I0 A0@1W I1 A1@0W 4 D D 6D W A0W A1W @0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00
0x114dcc…114f60 Dummy {f00=0x00a4, f01=0x0190, f02=» h^PDW P PD0 ] #Mks)M` 0 ] D7 W Q GP GQ Q h^QGW T Q 9 I #Qy& ID!d] Q^ f^ Q PQWZ#Qy d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#P{ D d^PD] 0 ^ P W D W Q _ I2 A A I P W A24 W j] W 0 ] 4 H3 H1 I W W I W
0x114f60…1150f4 (1, 350) Dummy {f00=0x00a5, f01=0x0190, f02=»0 DD 4 1 4 @ @ I 20 L @A @ )Av H8 A @8W )A& A A5A8W A W 0 L @A@ 4 IU I6 0 @ 0 L @A aLW HUy0 0 D D"0 0 V 0 VD0 D 0 D E&0 LE E D jZ DLEji L !i i W i~jZ i JZ cZjW L aW W} D"jW LD eWW'0 0 E 0 GLE(
0x1150f4…115288 Dummy {f00=0x00a5, f01=0x0190, f02=» VD0 D 0 D- i W i a[ 0 [4 !" g!8` I3`) !I3Y DE0 D0 D# I3 DwW% D W I3 E E W E E D !E D E _ E 6E 0 DW 0 DW 0 D4 3 i E " w } ~ +-01
0x115288…11541c Dummy {f00=0x00a5, f01=0x0190, f02=» &0 <0 =0 >0 ?0 @0 A0 C0 G <
0x11541c…1155b0 Dummy {f00=0x00a5, f01=0x0190, f02=» 6 * . 2 D j D D E X j DEX D' W^j D W D*j D DF E'j D E DOj D Dzj D D{j D D|j D D}j D D~j D D 0 DT 0 W 0 1 A A24 0 P 4 ` D K K E j EK 0 D 0 W j 0 D 0 I2 H I 0 @ 4 0
0x1155b0…115744 Dummy {f00=0x00a5, f01=0x0190, f02=» %J %J K J KJ)K W N4 @ D 0 DP W D 0 DP W D 0 DT A 4 I1$I I I I H E JI0 ]EJP 0 G0 GHP J E 0 ]EJ0 G0 GHT E E j^ E] I jI ]E I E JI0 ]EJ0 G0 GHT E E j^EE] jI ]E I E JI0 ]EJ0 G0 GHTo E E @E @Ej^@E] Wa
0x115744…1158d8 Dummy {f00=0x00a5, f01=0x0190, f02=» f % 1 I2kH4 ' J1 @4_)H5 HW &I2@ 6b a =e 2 I2- +` + l# ` ` l#` ` ` W 6a @`4 %e 2#e . e I2(H ! ! a %7b 0 W CwW CvW C W 4 I5 I1 (j W f`!fb Cx W A4 A 4 0 #I2 6a 4 e C
0x1158d8…115a6c Dummy {f00=0x00a5, f01=0x0190, f02=» a I24 I2- I2& I2 !:b #:` I I2 W 4 `A%a #a W C W a I2}H t! ap! bl! C)Wf a J J( J !:aG!:c I W I2E I2=%7c&0 0 0 0 I 0 W 0 W C> W C* A` La4 %b #b W C WN(ab CyW
0x115a6c…115c00 Dummy {f00=0x00a5, f01=0x0190, f02=» J 2 $ U X a b d f x + DATABA ] FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDFS
0x115c00…115d94 (1, 351) Dummy {f00=0x00a5, f01=0x0190, f02=» @ 4 8 < @W@2@Q S @R@S@T@U@V _| + RA R ' R %R :!@ _9!Av(!Aw A 6A _3 SA_8AQ_<AR_@AS_DAT_HAU_Lb_ @L #@ AV I2 I2 !R 7!R 3!R /!S IV s_W! pS pg p p I2 W I2 IU e c HW Wf!S )R WZ)R WR!R )R WF6R $(,0!_ W0 W
0x115d94…115f28 Dummy {f00=0x00a5, f01=0x0190, f02=»kv)R !8 nHU W ):beHT !; ^(R !;`V)R HQ !< K%R #R %:a !:b I5 H1/)R H1()R !S H1 )R #)R !S IV I5 H1 W W , W . 4 E I2 D" V 0 VD0 Dz0 D Dx D i{ f` ga hc i| ib jd ke !l DF D " !m0 ^ "# !o0 ^ k " k " k " k
0x115f28…1160bc Dummy {f00=0x00a5, f01=0x0190, f02=»! D 6D A[A A]A^A_0 ^@[@ @]@^@_4 E D E0 D0 ^4 J 0 J4 0 L 6B" ).38=BGLQV[`ejoty~ W JL KB%J "JK W C W JL%J ,J W C W $ W % W & W ' W} ( Wx ) Ws * Wn + Wi , Wd - W_ . WZ / WU 0 WP 1 WK 2 WF 3 WA 4 W< 5 W7 6 W2 7 W- 8 W( 9 W#
0x1160bc…116250 Dummy {f00=0x00a5, f01=0x0190, f02=»L ![| W C 4 A 4 JL#J C W 4 4 4 4 4 4 4 4 4 @ E } R N > w - C H 2 i * u v K ] o f " 7 L a
0x116250…1163e4 Dummy {f00=0x00a5, f01=0x0190, f02=» F,CH,B,LGB,NL,B I,CH P S,SF US YU 1012561475710058000000 $ k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ d
0x1163e4…116578 Dummy {f00=0x00a5, f01=0x0190, f02=» N B F J!:b ):} D{0 D G 6G ,28>D Cv C 0 W=1 W70 Cw C 0 W 1 W 1 W 1 W 1 W 1 W ):e 4 I5 AZ = I2 !:b ):} D" V|0 VD0 D{0 D G 6G z T W T AY k' T1 Tc T1 Tc k T1 Tc!G @YAX k T1 !G Tc
0x116578…11670c Dummy {f00=0x00a5, f01=0x0190, f02=» 4 1 4 J !:a !:c !:` Ja J~ JoW J`0 J4 ) R ` )S W ) R a !S IQ IR IT IS W HV ) R ` IQ W ) R a HQ IS IR IU IT HV ) R ` IR W ) R a HR IUwITtHVq) R ` IShW ) R ` IT]W ) R a HT IROIQLHVI) R b HT HQ=) R ` HV4 D ) RD` IU(W*) RDa HU!IT IR IQ HV ) RDb HU IT IQ W
0x11670c…1168a0 Dummy {f00=0x00a5, f01=0x0190, f02=»C D D D D R C I2 AB@U_S? %a %a %a %a %a %a W )R (a= AW? a W a I2 H _q a a a% a(H1 !R !! b !R !:c !:a I IR W I2 W ! } !R !R H1 !R !R W )R ) }g)R !:b #:`C)R HQ H K!R !R !R W) J J( J !:c)!:a%I IR W I2T I2LWJ
0x1168a0…116a34 (1, 352) Dummy {f00=0x00a5, f01=0x0190, f02=»0 T*0 T A A o A c(A A ` A T A A ae aI *a( W *a) eaW ae ea_ a Dz E j E 0 D T 0 # ` 1 _z +` +W A2@m4 A ' | i u K ] 2 E w } d + , 7 d f
0x116a34…116bc8 Dummy {f00=0x00a5, f01=0x0190, f02=»l 4 a "5 15 @ , = 2 Z 9 S (R) b Z 9 k X Y 2d s 2d .)g 7.c Z 9 l 7 X Y Z 9 a S (R) X Y 0 "0 #0
0x116bc8…116d5c Dummy {f00=0x00a5, f01=0x0190, f02=» ~ T b b r v zIQ (a#( F a(W )a#) : a)Aa pI2*IU HQ `IU HT a +` + W n @a4 % # A I2 I W C* W C 4 Ab 2I2< +` + @b aH ( b I2 ! b !:b #:` I2 I W 4 ! ` Ac W Ad y 8I2 +` + +!
0x116d5c…116ef0 Dummy {f00=0x00a5, f01=0x0190, f02=»0 @g4 AeI1 ;I2 W <I2k +` + + `H1 ( WR " f W a I2$ I2 ! a W @e4 J J( J C>W 4 Ah ba !b{+ !:b ):{ D" Vz0 VD0 Dx0 D D W !&{ W C
0x116ef0…117084 Dummy {f00=0x00a5, f01=0x0190, f02=» U U J I20H U_ #b{ !&` H ) a ( b I2 #b{ _ !b{ 0 W +` +!&{ W @h4 @ @ @ @ ! ` ! f ! a ! ! h ! } W A W A W A - { A ! ` ! f ! } I W H c d{W c{ d Cw C #b{ )&` 0 W 0 W Ta T0 @ 4 IR H5 ARW `W f { 3I2Z l#
0x117084…117218 Dummy {f00=0x00a5, f01=0x0190, f02=»C$ 4 HS | %7c 0 0 4 AnIQ aW {H5 IW 4I2m l# +` +HS |H I2> I27# { W HQ !:c !:a I I2 W HQ @n4 IS | In %7c 0 0 W %7d 0 0 J H J J -J{ Cv 4
0x117218…1173ac Dummy {f00=0x00a5, f01=0x0190, f02=» p q r y 01 a k 0 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 10 30 50 70 :0 =0 A n n
0x1173ac…117540 Dummy {f00=0x00a5, f01=0x0190, f02=» n X b f jAl H5 KW ?I2 +` + @l4 Ak IV I2 !R ev fwW A et fu h` jy ky d|A @I2f h` +` + lj c lk d I Jc cd dJHV0I c Sd c SdW c c Sd c Sd!:a !:c @k@ 4 ge@ *A / A js k# dc de dy d !f|:*dx6 gf dc df dy
0x117540…1176d4 (1, 353) Dummy {f00=0x00a5, f01=0x0190, f02=» MW B@2 l# l# l# l# ` I2 +` + | 6aW a@i4 !:b ):| IU D" V{0 VD0 Dx0 D U T IU 9 I2d B U U J I2KI 1 WB I2= d ! a ! h ! ~ W d}1 T U_F% a I2 Cv C 0 T b HU 0
0x1176d4…117868 Dummy {f00=0x00a5, f01=0x0190, f02=»@ W 6A 1 @ W 1 @ 1 @ 0!CR 0" CBP R CB_ 0#0$L @AC: A +A p2A !@ B0% C!C C 2B C W 0% B)B _S C 0% B!B ) 2B W 0 LAA2A A 4 C #0 L_%0&W 0'W 0(W 0)W 0*W 0+W 0,W 0-X Z [ B 7A FF:FF:6:::6:6_ H9 B 1 1.
0x117868…1179fc Dummy {f00=0x00a5, f01=0x0190, f02=» BAW A R!A G!A C!C b C 0# B 0 L BA B B AB A 2A _& BM0 BB A !@ L z0!C0 CC2A A 4 !@ AA? !@ L0!C0 CC? H7 D "D D| D _ J| D "D D D _ T( J| D "D D D _ I2m KJ J JK D K|"D !J| cJ c D Dc K D Kc JK D _" K| D
0x1179fc…117b90 Dummy {f00=0x00a5, f01=0x0190, f02=» y m F q g G 3 J i u 4 3 f 1101031380110003300
0x117b90…117d24 Dummy {f00=0x00a5, f01=0x0190, f02=» V V
0x117d24…117eb8 Dummy {f00=0x00a5, f01=0x0190, f02=» ^ H7 W NI2 DEFJWn R I2 DEFJWn_' Wz D bW nD JW J P Q I2r_. " 7 Wz D bW nD JW J~X E E X% E F hWF E @ E EW_> D "D D D _ O D "D D D _ I2 A @ @ 4 D "D " (D D ~ D ~ _ D _# ~4 0! JL!J~ `
0x117eb8…11804c Dummy {f00=0x00a5, f01=0x0190, f02=» A _N _d & 2 6 55 A _ " ~X ~Y _!I 4 I 4 I 4 4 ~ ~P V ~4 $ (" $@ @ B6 I I $ A 4 4 x UW> [W;A ZW+@
0x11804c…1181e0 Dummy {f00=0x00a5, f01=0x0190, f02=» W{Wy y 0 _ W _* W 0 y I I 4 4 2 A ? I W0J U( 03 ? 4 I H 0 P A 2 H 2 K + _14 _ z 20 $ zb 4 0 4 { " m _ 0 4
0x1181e0…118374 (1, 354) Dummy {f00=0x00a6, f01=0x0190, f02=» b 6 _o 0 P 4 4 * 4 _! _/ z0 0 -0 P 0 0 P 4 D F Fw F D 4 ' D w : # b U ]
0x118374…118508 Dummy {f00=0x00a6, f01=0x0190, f02=»0
0x118508…11869c Dummy {f00=0x00a6, f01=0x018e, f02=» H H IDENT XMESG TRA 11.0 - - F1 O1111 ERROR- AND MESSAGECONTROL " XDMSG XEERR XFERR1 XHERAS P $$$TRAE v * & XDMSG XEERR XFERR1E XHERAS { 4 0 T:DSC1E T:EDWRA T:ERAS XAKBINF XCLAMP ZMRDF {
0x11869c…118830 Dummy {f00=0x00a6, f01=0x0190, f02=» 4 9 = $ J F " D R D RD 0X 4 C RC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x118830…1189c4 Dummy {f00=0x00a6, f01=0x404e, f02=» 1 $ ( ( 8@ JC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x1189c4…118b58 Dummy {f00=0x00a6, f01=0x0190, f02=» @ H IDENT XOPINP TRA 11.0 - - F1 O1111 KEYBOARD,BCR,ODR * & XAKBIN XCLAMP XGBCR XHMSU XKZEKO H $$$TRAP v 4 0 XAKBIN XCLAMPX XGBCR J XHMSU XKZEKO N B > QAFNKYP T:DSC0A T:DSC1 T:DSC2F T:KI1 T:NKI T:WRITC T:XSTA
0x118b58…118cec Dummy {f00=0x00a6, f01=0x0190, f02=» * & < - N 1 ` 9 r @ C J F " D @ @L R I 20X LK@A R @L)AL H8 AL@8W )AL ALA5A8W RA W 0 Q V
0x118cec…118e80 Dummy {f00=0x00a6, f01=0x018e, f02=»313801100033000000 ~ J F " D @X LK@A@ 4 IU I6 0X @L0X LK@A aLW HUy0X 0X D DL0X 0X VL0X * x 0
0x118e80…119014 (1, 355) Opaque[0x194]
0x119014…1191a8 # DirEnt {nam=»CONDK «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x119014…1191a8 IdxSect {
0x119014…1191a8 f00 = 0x00aa // 0x119014 @0x0
0x119014…1191a8 f01 = 0x0002 // 0x119016 @0x2
0x119014…1191a8 gno = [ // 0x119018 @0x4
0x119014…1191a8 [0x00]: C0x00aa.0x1.0
0x119014…1191a8 ]
0x119014…1191a8 }
0x1191a8…11933c Dummy {f00=0x00aa, f01=0x0190, f02=» PT; P01; PTID=A0; PTCL=A0; * PLEV=60; : P02; J PTDC=T01; V PLC=001L; f PTDC=T03; v PLC=003L; P02; PSDC=S02; PSDC=S03; PT; P01; PTID=B0; PTCL=A0; PLEV=60; P
0x11933c…1194d0 Dummy {f00=0x00aa, f01=0x00fa, f02=»SDC=S03; PU; P009; PUBF; & P002; 2 PUIF; > P002; J PUCY; V P002; b PUOP; n P002; z PUA1; P002; PUA2; P002; PUT1; P002; PUT2; P002; PUQQ; P002; V=60; P
0x1194d0…119664 Dummy {f00=0x00aa, f01=0x2008, f02=» PU; P009; PUBF; & P002; 2 PUIF; > P002; J PUCY; V P002; b PUOP; n P002; z PUA1; P002; PUA2; P002; PUT1; P002; PUT2; P002; PUQQ; P002; V=60; P
0x119664…1197f8 Dummy {f00=0x00aa, f01=0x0190, f02=» D @RGHT E E j^ E] I jI ]E I E JI0X ]EJ0X G0RGHT E E j^EE] L l | J F " D jI ]E I E JI0X ]EJ0X G0RGHTo E E @E @Ej^@E] Wa E JI0X E
0x1197f8…11998c Dummy {f00=0x00aa, f01=0x40f0, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( " E E ILj EI] W 1X FA24 @
0x11998c…119b20 Dummy {f00=0x00aa, f01=0x0190, f02=» L H IDENT BCSTTO TRA 11.0 - - F1 O1111 START OPERATOR . * BCSTTO CCSTTT SPAP07 SPAP08 SPAP09 T $$$TRAS 8 4 BCSTTO CCSTTTS SPAP07A SPAP080 SPAP09 > : PAJRN T:DISPT T:GETT XAKBIN XBFMT XCLAMPA XEERR
0x119b20…119cb4 (1, 356) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»DEMMON«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x14c8, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x00a6 // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x001e // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x00a6.0x1.0
0x119cb4…119e48 [0x01]: C0x00aa.0x2.0
0x119cb4…119e48 [0x02]: C0x00aa.0x3.0
0x119cb4…119e48 [0x03]: C0x00ab.0x0.0
0x119cb4…119e48 [0x04]: C0x00ab.0x1.0
0x119cb4…119e48 [0x05]: C0x00ab.0x2.0
0x119cb4…119e48 [0x06]: C0x00ab.0x3.0
0x119cb4…119e48 [0x07]: C0x00ac.0x0.0
0x119cb4…119e48 [0x08]: C0x00ac.0x1.0
0x119cb4…119e48 [0x09]: C0x00ae.0x0.0
0x119cb4…119e48 [0x0a]: C0x00ae.0x1.0
0x119cb4…119e48 [0x0b]: C0x00ae.0x2.0
0x119cb4…119e48 [0x0c]: C0x00d4.0x3.0
0x119cb4…119e48 [0x0d]: C0x0133.0x2.0
0x119cb4…119e48 [0x0e]: C0x0133.0x3.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x00a6, f01=0x0190, f02=»qr r X 6 6 @ ~
0x119fdc…11a170 Dummy {f00=0x00a6, f01=0x0190, f02=» _ ? ? ? ? ? ^ A . _ _ ^ $P T I R $ 5 % > ? W ? W ? T T U T U U
0x11a170…11a304 Dummy {f00=0x00a6, f01=0x0190, f02=» > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ ? A. , $ ( , 0 4 8 < #M 1
0x11a304…11a498 Dummy {f00=0x00a6, f01=0x0190, f02=» T W PV X TJ+ Y f 4 U $P(> R$> Y X '@T X ' T P J 2W( Y f p Y X # P _ 4X U T p T U ;h # <c$ X4 B ^: X@ B ]H "XT" X #` @P Q X # j Y /W W Y
0x11a498…11a62c Dummy {f00=0x00a6, f01=0x0190, f02=» . > ? " 4TH ( X ( # ; < TR U P Q" 5 U T Y > > P X P P _ ] W Q Y _4 X Y $ b D P XP Y E Y Y _ @ , T (@ > P ,X U 4X 5 _& T 8TV 9WD B
0x11a62c…11a7c0 Dummy {f00=0x00a6, f01=0x0190, f02=» f @
0x11a7c0…11a954 (1, 357) Dummy {f00=0x00aa, f01=0x0190, f02=» Y " Y < X Qj V "9 ! :a ! 4 T8 C Y Y : ! T X $ Y Y : P~ Pz Pv Pr P B ! T 9 Y B ! 9EV0 X B y ! $+
0x11a954…11aae8 Dummy {f00=0x00aa, f01=0x0190, f02=» Y Z ! W" ! H R T ! WJ ! @WB ! U ! ! _ P Q R" ! W ! ! @W ! ! X ' T: X XP Q C X Z 8 9 ! @ 9 C B C 8;e X BPd Y B ! 9 R ! 9 R Y " Y B W, X B;E Y ! $ Y < ! X !
0x11aae8…11ac7c Dummy {f00=0x00aa, f01=0x0190, f02=» n X H I ^ W :A H I Y Y Y < ! H ! rW2 ! ~WF t R Y < ! l t 9A ! 9D ! W Y < ! l 9 t " :A C :a X j ! 4 U 4 ! ! ! ! PP Y " ! r 4 X ;F 8 X PV ! ! ! ! PP Y " X <T$ X jP _ X n X L ^ W :A H W @
0x11ac7c…11ae10 Dummy {f00=0x00aa, f01=0x0190, f02=»8 9 Y n Y p:c Y 4 8 X <P T X :F Y 4 X P* X X jP _ X n X I ^ W :A I Y 4 X B;C+ W( W$ W X <T X j:AW 9 q r Y @ VT Q > Y Y ? V Y Y : @ TT Y ! ! TJ Y ! ! P Y Y Y
0x11ae10…11afa4 Dummy {f00=0x00aa, f01=0x0190, f02=»ZT9a P D ) X :V # T> X X X 4 Y W( x T?AR X $' T C C X "P J ! ! T 9 Y B Y < ! ! ! PTr X :P L @ TOT2 @ 1T( @ # " Q H P R P Q D X X X Y ! W 4
0x11afa4…11b138 Dummy {f00=0x00aa, f01=0x0190, f02=» x 6 X X 6 X " 0 6 0 0 " 6 6 6 " $ ( , 0 4 8 < ( H 0 ) $P" $ ) U @ T C @ NW 0P P > ? P q 0 ) >_ Tv C T V Y W^ X PZ B RTP" A & @ A z n WJ @W,
0x11b138…11b2cc Dummy {f00=0x00aa, f01=0x0190, f02=» XT ! X ! X P X T _l Xf Y @ P. R T& X 0P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W 0 Y P R R P
0x11b2cc…11b460 Dummy {f00=0x00aa, f01=0x0190, f02=» F C F C > B R Q F ! P C > C > F 8D D ! 9b8d9D # C > B R Q~ B P0 B P* 0$ T # R QL > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X 0 J
0x11b460…11b5f4 (1, 358) Dummy {f00=0x00aa, f01=0x0190, f02=» (_H _2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M > J X L P ( L ) 1_f _& ?(@ X P 0P X T 4 Y 0 X 1 1 X P - M
0x11b5f4…11b788 Dummy {f00=0x00aa, f01=0x0190, f02=» 0 1 0 Y > > ^_ T > x h J 2 b x l : _ ? ^ 4 _ @ 1 A _ P 9 > > A _ @ > > U # T @ N H ( ( P c P W6 :Z A V
0x11b788…11b91c Dummy {f00=0x00aa, f01=0x0190, f02=» ) A A V_N A V A T v A _` A A Q > ? A H T A FQ _ A F < Q @ P @ Q @ R Y _ A > : < ) $ ( P P JW P ) % X % A 8_` & P Y _l Z _r 8 Q Z P 0 9 _ z _, ? _ P
0x11b91c…11bab0 Dummy {f00=0x00aa, f01=0x0190, f02=» $ ^ WD X Y $:g H & I & ? P& X P ,P 9A _ H &P I & > P Y X"; [&;! P &Z.?AZ2 @ Q & X " $XJ ( I T E _ (X _ X $ _t; > > 0 @ A W fW J ^ ! Z2 (X:
0x11bab0…11bc44 Dummy {f00=0x00aa, f01=0x0190, f02=» X ! X ! W X Pf X 0 Y " " X L X WF B U B (" W C (@ > Y > J W 4 W 4(@ 4 Y Y Y Y $ & > X X X X $ & > ?(@ " X '? X D X T
0x11bc44…11bdd8 Dummy {f00=0x00aa, f01=0x0190, f02=»_* B B % X < $ 4 T %(@ X :P h Y <(@W ! n(@" X8 VP R P P 9 _ X 2 X Y 2W X 2 Xf Y 2 R p< R <A<a C W X 2X !| T W. !} X P P P P _ Y 4W Y 4 X 2 X 6P X 4 $P <c $P $
0x11bdd8…11bf6c Dummy {f00=0x00aa, f01=0x0190, f02=» > ! P B W8 > ! B T ! Xd C ! " X : $4 P h X <Tt 1 pRr p Y / X : h X <P 1 WL X : X <P z $$ P< T W Z %W, X /$ X : z ^ Y . $ ! P % " _L Y : 1 " ! 4 B % >
0x11bf6c…11c100 Dummy {f00=0x00aa, f01=0x0190, f02=»(@ X Y :_( X J< X 0 P L X " " ! P B X .R $ # ;D !99P 7P P Y 6 X 8T x Y 8 X 6 Y . X .P Y 0W Y 0W X V$ Y X 6P " y 8_B Y 8W y 8 P <d R Q 1_
0x11c100…11c294 (1, 359) Dummy {f00=0x00ab, f01=0x0190, f02=» . ! T$ X .R $ T T P _N ! T 9 R 9 W 9 _ Y ! r X 0_ Z 'J ' $p Y 4 ! rT P P, P| #( & $ ! ! T X 0 C # & U. ! T< & Y 4 X 4Y ! T$ ! rT Y 4_6 & Y 0 Y 4 # Y 4W, B P B H "
0x11c294…11c428 Dummy {f00=0x00ab, f01=0x0190, f02=» X 0$ %T Y 3V B V _ X 0 X /! R* Y /; _U !% ;h X /$ X 0 !# _ _U ! " & X . T ] B H " _0_ PT " P& PB X . 0 T P8 P4 P0 P, C _ B C B U !% B WJ ._ ! TF ! " $ P
0x11c428…11c5bc Dummy {f00=0x00ab, f01=0x0190, f02=» X 0 R P ! T W Y 0_ Y 0 B Y 3U X 3 T T W V X 1 Y 3U P&R ! TL_ R _ ! T6 Y 1W B Y 0 !# ! ! T Y 3U X 3 ! T :h Y 2U X 2 ! T 4 B X . PL X 3" X 1# R R ! T|_ !
0x11c5bc…11c750 Dummy {f00=0x00ab, f01=0x0190, f02=» 4 ! Tf & P ! TX Y 4 X /# X ! TB ! rT: Y / X 0 Y 3R Y, ! T ! T _P ! T ! rT X /# Xh X . P !%X_x X 0 !# !% Y /_ Y 4 X /" X 0" Y 3U W4 Y 4 X 4Q ! T ! rT Y 4 ! T ! T ! T > Y / 4 X .
0x11c750…11c8e4 Dummy {f00=0x00ab, f01=0x0190, f02=»T ! T 4 X ? 9 R 9 X ' P P +P 9 R 9 9 V 9 P C " # X . P X /$ P !%X ! X 0 !# X ' X /" Y 0 Y / > X / X 0" Y 3Q Y / > B B U$ $$ P P P U D T _* B C C > Y ! r !
0x11c8e4…11ca78 Dummy {f00=0x00ab, f01=0x0190, f02=» Y . X .! 9e D'^ ( P _ H C !,L !,^ ! P !,L !,^ C W X .# T !"P ! & W !@P X .! TD B R B H " +P. P T !,L !, !,^" T Y 2 Y . B X 3 Y 2 Pj !,L !, P: Z P$ T W R _X"
0x11ca78…11cc0c Dummy {f00=0x00ab, f01=0x0190, f02=»P T X 8 E Q Y 4 Y 6 P B !,L !, P: Z P$ T W R _R X$ /P C _0 W Y 4 ! , _B !,^ !EP ! T*" T* x 8!x W X 6 X 4 Y 7 Y 5# C X 5# C B PF X 8 E Q< Y 6 !,L !, !,^ !EP ! T " T x 8!xX< Y 7
0x11cc0c…11cda0 Dummy {f00=0x00ab, f01=0x0190, f02=» Y 0 # T # # P Y 2 # T # # P Y 4 Y 1 !,L X 0 !, X 1 !, !,^ ! B <C Q B !+ Q QH` !+ :K QH` !+ Q !+ P !+ R !+ P PQ !+ P Q QH` !+ Q :C QH` !+ Qx:E QH` !+ Qj:F QH` b ! PD !+ RT CQP !+ P
0x11cda0…11cf34 (1, 360) Dummy {f00=0x00ab, f01=0x0190, f02=» !, " QH` 4" 0Z@ YD 9 4 !,L !,^ ! T Y 6 Y 4 ! rTH ! T@ W4 ! T4 ! T. ! n P -P ! X Y . 4" U ! T 4 P ! T X T Y Y " X 8T H` Y 8 @' Y 0 !,L !,^ !,L X 0 !, !, X 3 !, X 5 "? !, "@ !
0x11cf34…11d0c8 Dummy {f00=0x00ab, f01=0x0190, f02=» B H " 0T Y 0W U Q4 T Y 2 Y 0 X 0Q ! T Y 0 ! rT ! T _@ R _Q Y 0_ /T _ V Q Q P P C _r " $ P X 0 ] ! Tp Y _ R ! T^ Y 2 ! TR ! TL P X .V@ x. Y 4 X 2: 1 ! n y 4 X ' $
0x11d0c8…11d25c Dummy {f00=0x00ab, f01=0x0190, f02=»000` [0g H [00d [00{ [20h [20l [4m [0m d /L 4 %(9 $' X " Y . $P X /# P 5 X ." X /# Y / P Y M/@P ^ L/ / / 1 2 2 3 / / 2 2 1r1r !4 4 !5h B ! rT X .! Tj +P Y H P@ TD WB ! Tt X
0x11d25c…11d3f0 Dummy {f00=0x00ab, f01=0x0190, f02=» T ! rT Q X .$ P ! T Y . ! T !4 W VH P T /(W T /. !6D _f j ]@ KP TV ! Tb ! TZ_ ~U PD #R8 ]U W2 X .$ P4 Y . W X .$ T Y . ! T W C _ . " ! TH Y H_ 4 !5h Y L ! rT
0x11d3f0…11d584 Dummy {f00=0x00ab, f01=0x0190, f02=» 5 !4 T X < Y : Y H 4 !5h B X " P $ L6 W $ L6 9d P _$ 5 !4 4 !5h P6 Y 4_6 QV,0 Y N_D P6n Y 6_P Q<,0 Y O_R P6 Y 2_j Q",0 Y P_x P6n Y 8_ Q ,0 Y Q_ B " P 1r Pf ! r 5 B
0x11d584…11d718 Dummy {f00=0x00ab, f01=0x0190, f02=»P@ !58 Y X Y Z<h Y Y . X !5 / !5 _6 3 Y X / X !5 ! 5 / !4 T: ! rT / 8 !5 ! T ! T !4 Y : Y < Y H 4 !5h Y " X JPL Y J !58 Y 2 Y 4 - !58 Y 6 < !58 Y 8 ,0 Y P Y N ,0 Y Q Y O !4 5
0x11d718…11d8ac Dummy {f00=0x00ab, f01=0x0190, f02=» X T2 ! n" ! ^0 6 0 : P T @6 R C W Y ? _Z X ? Y X 0P y 0 Y 0 4 dR d R _ 00,0: " 4 X . P Y . 4 Y 0W ! 4 Y B Y @ X @ ," :HR( 0 P :h ! 2 Y @_ X B , ! F Y B_ 4 ! r V X ." T. /" !
0x11d8ac…11da40 Dummy {f00=0x00ab, f01=0x0190, f02=» 4 :h 0 :C ! 4151824253033353648505160667072010203040506070809101111131415 2 2~2p2d2 2 2 2 0304060812162448 _ 72 : 6 7 7 7. 7f 7 $9| 7f 8L $9| 7f 8 "9H &9b $9| X " :F X . Y . X .! 9e D6 ( P
0x11da40…11dbd4 (1, 361) Dummy {f00=0x00ab, f01=0x0190, f02=» P B !9 !9 P" Z oX R /P C _ ! 9 _* !9 T !9 !9 !9 !%P ! T " T B RV B !9 !9 P" Z oR X /P C _ ! 9 _* !9 !EP ! T " T _Z B R B H " +P P P P
0x11dbd4…11dd68 Dummy {f00=0x00ab, f01=0x0190, f02=» !9 !9 !9 ! !9 !9 !9 ! B V Y 0 !9 X 0 !9 X 1 !9 !9 ! ! rT8 ! T0 W$ ! T$ ! T ! n Y . 4" U ! T 4! P " W X T Y X 0R @70 Y 0 !9 !9 !9 X 0 !9 !9 !9 X
0x11dd68…11defc Dummy {f00=0x00ab, f01=0x0190, f02=» X > , F F .F6H :ZH I I0I I D HjH~ F #A 1 ;F >
0x11defc…11e090 Dummy {f00=0x00ab, f01=0x0190, f02=» Lr > C A;p ; A;n ;f ; T M ! P= ?z= > @j ;t Px ;j (P, P& R{ R~P4 0 A
0x11e090…11e224 Dummy {f00=0x00ab, f01=0x0190, f02=»P X P @;pT" @;p Y X !? ? > W W @ A;n @Z X & A A;h @;p Ar T P ?L V V " LP V :F V V P W V ($ A;h X Y Y " V V X T Y " Y $ A;hP, A _| (@ - $T 1 %_$ Y (_ A;r @;r ;nP
0x11e224…11e3b8 Dummy {f00=0x00ab, f01=0x0190, f02=» A X "? J ># K >:hQ 9 X P (@ Y Y W ! Y Kr @Z =z ;t AD T K & 0 V K : + K V V % V & A X P K @ X 9AV K 9 !? K > F A & G A N 9 ! ^ R A A N !
0x11e3b8…11e54c Dummy {f00=0x00ab, f01=0x0190, f02=» C C A TB B P: <a "9 :a :A9 # P V ! T U V ! _P A;n _ W C ( B A;n : &(@ X ! T ( _ ^ ( : K*(@T X " # X A T V P A _ A;n : C @ T4 @; @; ; @ T ; V )! T B *
0x11e54c…11e6e0 Dummy {f00=0x00ab, f01=0x0190, f02=» #D 1 $ ( , 0 4 8 < #E 1 C
0x11e6e0…11e874 (1, 362) Dummy {f00=0x00ab, f01=0x0190, f02=» > T V H $ C C S X "' MR{ LR} D P" T P LR ' D P f B _ @ A _ # T( @ , @ ;a DJ U U 0 _ _X D ( U ( Q W T ` U @ M @ W : P
0x11e874…11ea08 Dummy {f00=0x00ab, f01=0x0190, f02=»R P U T R P U S d U S P U P Uv _ W E N R d U ; U <a:a9 V @ Y U S : 6 V U S Y : _ E 6 V N _& U [$ N ' U 7 W Y, : P "R Y
0x11ea08…11eb9c Dummy {f00=0x00ab, f01=0x0190, f02=» ,P - _ 2 :(@ B B " #MP" J PH B #MP* J P6 H^W( B #MP J P G W GrW G( : 2 U ; [ [ W Z Z : : U ? ? ? P& P& $ ) Ud P x TX $ ) WN X $ ) Y W< UN ? ? _ T
0x11eb9c…11ed30 Dummy {f00=0x00ab, f01=0x0190, f02=» P P@ P6 ( $ ) ]^ P p r $ ($ ) _ (W X2 $ ]$ $ ) Y _ > D : ' "?:B ] : J P H U _ T U P U 2;C ,$ T -_> - _H "Rf P^ X TX X PJ X RD< V X 0 X L T J
0x11ed30…11eec4 Dummy {f00=0x00ab, f01=0x0190, f02=» >_2 < U = : D (@ " $ P B >H<h I P ?_" = > = > = _D < X _F R _ 00 > & <h$ P > " 2 PX PD PP PL PH P2 P, P T K(T Kr T W K(T$ Y < ; K(P @ & . x B B
0x11eec4…11f058 Dummy {f00=0x00ab, f01=0x0190, f02=» X v _6 _6 _ & $ P2 @ Q, 8 Y X P X R :AV ' X > T > > P X .P 4 0 Y . Y > ; @Ld 0 P T" P P ?A Q P T P T Q W P T P T Q Q P Q P A
0x11f058…11f1ec Dummy {f00=0x00ab, f01=0x0190, f02=»(@ :Lh Mr @ AC P AP Qj L @Ld , - M M M M @Ld > =a 9a Q - _ - >
0x11f1ec…11f380 Dummy {f00=0x00ab, f01=0x0190, f02=» O
0x11f380…11f514 (1, 363) Dummy {f00=0x00ac, f01=0x0190, f02=» Lh
0x11f514…11f6a8 Dummy {f00=0x00ac, f01=0x0190, f02=» FQ d
0x11f6a8…11f83c Dummy {f00=0x00ac, f01=0x0190, f02=» T T T T T T T T T T T TL U T&U U U S U U U S T~TXT S U S U S U S > > > ? ? ! ! !9!:!R! !2! " " @ S N UfR ;A 09kP U UfR ;A N ^! P N
0x11f83c…11f9d0 Dummy {f00=0x00ac, f01=0x0190, f02=» Q P P @ JR N j U W U X v P 1 Y B d U Gr >T ( )! T Y W H hP H d H P B v Gr $ N M" N NW U S* N Q T P P UzW UzW B B B U W| C P Q W B B Q W C C
0x11f9d0…11fb64 Dummy {f00=0x00ac, f01=0x0190, f02=» R V T ` C C N ]# U N h _ :a *P ^ : Q : N ?j jP N ] N ] : : : : : C .! P VT(@ : : : ; Z $ )_ N `W ,P M L L O ]P W :
0x11fb64…11fcf8 Dummy {f00=0x00ac, f01=0x0190, f02=» N ] I W6 @P T ( AP U %_ N ] I N b ) O b(@ : [ N U SB P W N U0 N _ U S W O V O X P N P _ W O Z Z W` W W W W W W W ( N V C N X C N B P T I W B I
0x11fcf8…11fe8c Dummy {f00=0x00ac, f01=0x0190, f02=» : N P % : 4UP :! 4 U U 9 X & ?! U P _: P _ W 4 4 , , , V , %Q R V _ W W W T W V Wt TB O ZWD N ZZ N tV N P O ZW, N X N _ S W O V O
0x11fe8c…120020 Dummy {f00=0x00ac, f01=0x0190, f02=»W X P R U ]V T _ W W W N h b ,PH N M Y R Y M Q Z$ L Z* R L L U M M _L(@ : [ N V N X U N _ U N U N P N Z ^ S W Z : N Z N P H G H H G :
0x120020…1201b4 (1, 364) Dummy {f00=0x00ac, f01=0x0190, f02=» A ,P 00T ( ;F J C J D G % G & ` T & G : T ] @;r 4' = Wd P G ^ Wh ` T X "? P @ ?hW: A;j A;l 8 X Q D;m# P E;m 8 " ^ ?H F : A;n Z X @Z_ =z_ =l_ ` t H
0x1201b4…120348 Dummy {f00=0x00ac, f01=0x0190, f02=» @Z =f T;j ;j A;r ? AZ = _ _ T F 6 G 6 G 8 _ ] G * _ F * G * _ P `^T G G `@T ; F * 6P R T. F 6V&W W P F 6U 6 G R F 0ZP F T ^T `HTN% T F _ P F G W F * G ; _ T ` W T; F
0x120348…1204dc Dummy {f00=0x00ac, f01=0x0190, f02=»_f F LT J A J B G G & * A ` G * _ PD F LP F ? W F Y T;j! X _ F 6 F * G 6 F <T F . 2 F : AX T F W ( ` ] A;h _ P" `^T F : 2 F . A G . P P A;n G F Z< : 7 W W W W ) V T V (
0x1204dc…120670 Dummy {f00=0x00ac, f01=0x0190, f02=» ; _ P F 0] A;nW F 3 ` T A;h ^ ^ 9A ! :b P> Y W6 9B 9A D $W , 8 - T : F H;j _ A WN U; U; U; U; : K*(@ < MZ ^ Z Z G : G (W " T " F 4 @ : C @ ; H G 4 H H .
0x120670…120804 Dummy {f00=0x00ac, f01=0x0190, f02=» H > N % R4 P 2=b T` O N ZR N h Q d hT c d N '? ip ` h T c0 TD N # T<W6 P2 F N P U G N Z F N P ' T G W D cz Q G G F F V c6 N $? "X0 V c N r# T L4_ PF h e Zh
0x120804…120998 Dummy {f00=0x00ac, f01=0x0190, f02=» V R P P N dT P P Wn Rb H jX N "? X P N " $ X d F v X P N D d Z X P X XdW6 N '? TH L hP H d N Z H P v G & e, @W W N ]# U W N P N Z F N D + N rV O
0x120998…120b2c Dummy {f00=0x00ac, f01=0x0190, f02=» P T V T V8 e, N r$ T L4 N h J(@( h N "? "T N " P P T Zh h V %? V Z "T " V K K F K F K N K O O r a N Z X&P" N t O Z Z O MR Q` N NVZ X &W0 N Z N P
0x120b2c…120cc0 Dummy {f00=0x00ac, f01=0x0190, f02=» E O d P W h N d_: d a. v P YB X N "? g TN jX G N ZW X X X&P N t O Z_ D X N Z N tT WR c X X6 G ) ) ) N G ) Z P N t G
0x120cc0…120e54 (1, 365) Dummy {f00=0x00ae, f01=0x0190, f02=» t O Z )P X X 5 _ Z O MR Q N NU O M O N G Y L: ej e N Z N P $ G T D D F P . X Xp X&X6 N t O Z_ D ' [ T G N Z N t N Z G ) Z N Z N t O Z Z O Z Y N ZT4 Z U Pl
0x120e54…120fe8 Dummy {f00=0x00ae, f01=0x0190, f02=» WR c g N '? T F F O MR Q N NU WV O r W R, P ' P8 Q ' T( P C P C WRT L:_b WtT B W O r W : Z P F F + : v P YB I1M1I2M2I3M3I4M4
0x120fe8…12117c Dummy {f00=0x00ae, f01=0x0190, f02=» N ^" Aih R P hP L <a Qi _ Ii ^ N D u N D : ij G R % =N Aif R % PN N k N T L k R D Aii N % R H k H Mi ( MiR _$ R % S S @ C T W`
0x12117c…121310 Dummy {f00=0x00ae, f01=0x0190, f02=» Tr S S Tf R > Pp J N TTT O LTN N ^ @ihT. @ifR O r lp P.>DR >AR W W W W V I W G pf 0 > R ] >_ @if O r R O P R O @ih O ^ R ; O M R < O N O V O X Vi4 O fP R D ViR O d R ;H O r N " YR| X
0x121310…1214a4 Dummy {f00=0x00ae, f01=0x0190, f02=» Vi k R < U 9 :aP @Qj Q TQjX TQlZ Z UQl ' ]i4 R < - R M C C V( DQpR" DQl EQl EQp DQj:A EQn N T O T ( O T B P$ N bP O b @P 5 AP (@ T k B C _J k S < ?a i C LB WV
0x1214a4…121638 Dummy {f00=0x00ae, f01=0x0190, f02=» N _& U k S @ S B : G Wj N ^" P S S @i S N r:n S E : J P U Q P J D U Ub C TF @i* D !>P ?A i S ij G R i G _ ?a i Aif Aih j i* C Td
0x121638…1217cc Dummy {f00=0x00ae, f01=0x0190, f02=»;C<B F J X B U B Y X B J D d N rV WR G N TT O L4 V I I I I I F RD P hP L f L M N Ui4 Ui* <a Qi Qi$<B i> i@_H Ai$ N d V d Fi$" P N DN P C Q ?A
0x1217cc…121960 Dummy {f00=0x00ae, f01=0x0190, f02=»Qp @Qj G W UQn ?B i> S : i@ S < Fi ' P C LB WV N I pv A A A A A A | - M qr @ " A. N UU @>B @ A @ D E D E P _( W l V l W l V lP A A
0x121960…121af4 (1, 366) Dummy {f00=0x00ae, f01=0x0190, f02=» @ E E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T A ASP F @ U A AS s P F s u ;j Y P F P @ P - P _ :L E A W F D
0x121af4…121c88 Dummy {f00=0x00ae, f01=0x0190, f02=» P :L AST A A E E A A 8 P W 89B @ V W Zb A @ @ A A} } @ D AS u @ u A W l @ L @ P _ @ ! P0 ~F 9h !RRP @ @ u A _H ~F S
0x121c88…121e1c Dummy {f00=0x00ae, f01=0x0190, f02=» l 9b ) V l_ @ A v A ~ r A A E @ < V4 @ R, U vz 8 !RRT A " @ Pf A A @ > V T P T ;a=a?j V Y R W t ?J E =A;A E vz : ~
0x121e1c…121fb0 Dummy {f00=0x00ae, f01=0x0190, f02=» A r yH yR x y x y z$ y x y z$ y x z z$ y x y x @ 00P& z4 z z$ y x z z$ yj x _0 y x @ 00P z4 z z$ y x _ 0 !TTX Aw !CCT CC AyV yR_ 0 !;; z !AAP !DDT @ @ r A x 0_ ; # @
0x121fb0…122144 Dummy {f00=0x00ae, f01=0x0190, f02=» @ R x~A @ r @ @ I A p A r @ p A p @ P @ A @ r $ ) @ 0 !;;P P @ P@ _ P !;;T X$ A xD T yH : : 0 !TT z 0 !;; z : zD z 0
0x122144…1222d8 Dummy {f00=0x00ae, f01=0x0190, f02=» 0 !;;T : zd : zh : zl : zp : zv : zz : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0 A I. : A A " Q :d @ # R P R.W H A { @ :
0x1222d8…12246c Dummy {f00=0x00ae, f01=0x0190, f02=» A|8 A|< A|d A|h A~ A : 9e :e Q P 9e @ P A 9C) A I " @ ! P " :B A t q B J " T : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A t w B
0x12246c…122600 Dummy {f00=0x00ae, f01=0x0190, f02=»Tp : 1P P(_ P =H P @ T X A : Y h C !CCTr B. z X B.9 H A z _ !SSTF 0 U J X X A t A v X X S W A x A z A : V W, Q( T W& @ T R P
0x122600…122794 (1, 367) Dummy {f00=0x00ae, f01=0x0190, f02=»W ( : | @ | 0 A;T ~ P T _* @ z @ | ` | P A * : z T 0 !;;P 0 !;; z z - a | =! 0 - Y : 8 0 ! P P Y
0x122794…122928 Dummy {f00=0x00ae, f01=0x0190, f02=» 7 ( W $SWAP N @ qr : P A A WL , P@ , - 4 ] 4 Y 5 X * _6 : @ % @ @qr qt R6 r . !TTP @ Y !TTX _:
0x122928…122abc Dummy {f00=0x00ae, f01=0x0190, f02=» ` @ A P _ @ @ 3 S S @ ~ V A ~ : P( T S S _* : 6 A A A @ A N =H N A @ T CRT N =H N A N =H N A , @ %!5!T W @ =
0x122abc…122c50 Dummy {f00=0x00ae, f01=0x0190, f02=» U _2 @ P V S ( @ S =J @ " S @ S A @ S T CRT @ S A A _ !TTT @ LP @ @ a : 6 LT ` @ W H
0x122c50…122de4 Dummy {f00=0x00ae, f01=0x0190, f02=» BAT8 @ @ A @ ) @ P S _ S A @ 3 3 J S J Rh # 9h !RRP @ ! T W* J S W J U 3 S S S _p P " I _ @ P
0x122de4…122f78 Dummy {f00=0x00ae, f01=0x0190, f02=» 8 8 4 D P$ @ # P H I K T + Y@ @ _f @ Y !TTX LY % @ : A @ T @ A A 6 H A @ A P P~ A ( n A @ @ < ~ F !AAT T B YP
0x122f78…12310c Dummy {f00=0x00ae, f01=0x0190, f02=»Tr @ P, n @ 4 U $ $ _. ` P, n @ 4 U $ $ _. LY 6 !TTX @ @ @ ! P @ 8 8 8 3 U . !TTT _ !CCP R LY W @ P0 A
0x12310c…1232a0 Dummy {f00=0x00ae, f01=0x0190, f02=» H I K T K YB _b @ @ @ % P @ 4 4 4 _r : A @ F !SST WB !AAT $W6 !VVT ,W* !PPT 4W !LLT <W !RRP d A A A @ 0 PV @ P P _ P H (&? @ #? H & D #
0x1232a0…123434 (1, 368) Dummy {f00=0x00d4, f01=0x0190, f02=» @ 1 Q a > I : I < D .# P6 W( JW" D V ` T @ 1 Q a : @ % PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a
0x123434…1235c8 Dummy {f00=0x00d4, f01=0x0190, f02=»& >b : A A A A , @ @ P A @ E ^ A Q _8 A A A A , @ @ P A @ E f A Q _8 : N =H N : N =H N : &=H F : F =H F : ? ? > > >
0x1235c8…12375c Dummy {f00=0x00d4, f01=0x0190, f02=» P A P _ Q @ Q 1 a : @ * P@ J # P _ :d Y @ Z A T _4 @ 2T P _ / : .P W P A .X @ T :D * J TT J & P T
0x12375c…1238f0 Dummy {f00=0x00d4, f01=0x0190, f02=» 9 _ (T P _ 3 _ : @ @ T : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @qr A qt A r : @ A P t @ A @ @ : . ! T
0x1238f0…123a84 Dummy {f00=0x00d4, f01=0x0190, f02=» @ A R A V A CR zT @ T BW @ $ @ A 6 @ A 8 d H d H K 2 ;A @ R V R - @ R - $ N !TTP N :H N TBT K W8 2 " T @ X 2 N =H N @ R ) !TT
0x123a84…123c18 Dummy {f00=0x00d4, f01=0x0190, f02=» N R :h$ > R S YT : @ R @ A > A ::b l / A R A D A F @ p A & A @ CR z @ D G " F * E H K @ & " A ( J (P6 " 4X
0x123c18…123dac Dummy {f00=0x00d4, f01=0x0190, f02=» @ @ R @ : @ D @ @ F @ > A b @ r @ p A r b A CR zT @ 6 A @ 8 A B @ A < D J @ & >k l 8 A A 6 Q R 8 V ;k , @ 6T A , @ 8P( U
0x123dac…123f40 Dummy {f00=0x00d4, f01=0x0190, f02=» A A A J D ` ) K @ < G D ` ) - J ` 4 D K ` ) G ` " A ( A N (P0 R P _ A N R X4 _ J j A X A N (Pn @ X A X % R
0x123f40…1240d4 (1, 369) Dummy {f00=0x0133, f01=0x0190, f02=» I D B C C C $ @ < D ` E , D B I ` A L (P H - V l I ` " R E R R T E D E @ < H ` H ` E #_ A * @ & 9k l $ A A J ` ( `
0x1240d4…124268 Dummy {f00=0x0133, f01=0x0190, f02=» P _ " = D 4 Q _l 1 = G $ ` @ A $ @ E " L M _V P* & &X ' $ @ < H T H _4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A 0 @ @ ,P J
0x124268…1243fc Dummy {f00=0x0133, f01=0x0190, f02=» $ @ @ $ D @ P M : 4 A 0 @ " R RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 _j @ 0 4 : A . R R P p A J _ @ . : " D PH A . @ .P. D X D P H
0x1243fc…124590 Dummy {f00=0x0133, f01=0x0190, f02=»P ` @ @ B B ` 4 : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D , H H $ M j - I Y0 : @ : R p 2 A B @ (T : N @ @ A Z
0x124590…124724 Dummy {f00=0x0133, f01=0x0190, f02=» P _ N L % J J ` G G ` U ` G ` : P p V : @ NP A J _$ 8 @ T @ J % @ H % : @ WN B W @ > " B ; Z [ : : [ [ :
0x124724…1248b8 Dummy {f00=0x0133, f01=0x0190, f02=»_ : A A A ~ QF @ @ ` x A @ @ ` p R0 A @ A ^B _F 9o @ ~ ~_X : @ J P ^ V U ^ _ V ^ Z K A A :K A Q R
0x1248b8…124a4c Dummy {f00=0x0133, f01=0x0190, f02=» : : , X G : " L @ V @ 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l
0x124a4c…124be0 Dummy {f00=0x0133, f01=0x0190, f02=» .=H N N : d 8" R _ ZY QY : L ? ? R 0 R P P f _ : V ) ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b
0x124be0…124d74 (1, 370) Dummy {f00=0x0133, f01=0x0190, f02=» 9n A :B A @ | < | P: N P4 9b .V 3 S S :b Y* AST" ? ? > | f T ] ] W 9l ] 9A ] 9k! ] Y P: P4 S @ P 3 _ 3 |
0x124d74…124f08 Dummy {f00=0x0133, f01=0x0190, f02=» " , C C R r 6 D V d n x A P L 0 A ^ P 0 P 1 P @ KB L F
0x124f08…12509c Dummy {f00=0x0133, f01=0x0190, f02=» B-H P @ KB . F DI
0x12509c…125230 Dummy {f00=0x0133, f01=0x0190, f02=» D 3 N'VTP
0x125230…1253c4 Dummy {f00=0x0133, f01=0x0190, f02=»T START OF S:GTAB | * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK H P SUK A6,1 ANY MORE SEGMENTS? t P RF(N) BST300 NO P LDK A7,0 INIT STATUS BYTE 2 P ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK . P
0x1253c4…125558 Dummy {f00=0x0133, f01=0x0190, f02=»ENT TYPE z ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES < " P LD A1,SCTOPT GET OPTION WORD V P ANK A1,2 DISC PAGING? | P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR DISC ADDRESS 4 P LDKL A7,/8800 INDICATE CORE RESIDENT AND LOAD
0x125558…1256ec Dummy {f00=0x0133, f01=0x018e, f02=»ED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 * P CALL GETCON GET SEGMENT DISC ADDRESS 8 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. f P RF(O) BST250 CARRY P RF BST260 * PBST250 ADK A3,1 INCR. PART 1 OF D. A. . P ANKL A1,/7FFF RES
0x1256ec…125880 Dummy {f00=0x0133, f01=0x0190, f02=» P RF(NG) BST270 NO! ( P LDKL A1,LMP10 INDICATE DEVICE ERROR P CALL ERROR J 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS ^ P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 $ P ADK A2,2 ADDRESS SEGMENT LENGTH $ P C
0x125880…125a14 (1, 371) Opaque[0x194]
0x125a14…125ba8 # DirEnt {nam=»CONOLE«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x125a14…125ba8 IdxSect {
0x125a14…125ba8 f00 = 0x00a8 // 0x125a14 @0x0
0x125a14…125ba8 f01 = 0x0002 // 0x125a16 @0x2
0x125a14…125ba8 gno = [ // 0x125a18 @0x4
0x125a14…125ba8 [0x00]: C0x00a8.0x0.0
0x125a14…125ba8 ]
0x125a14…125ba8 }
0x125ba8…125d3c Dummy {f00=0x00a8, f01=0x0190, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S01; b PT; r P01; | PTID=A0; PTCL=A0; PLEV=60; P01; PTDC=T01; PLC=001L; P02; PSDC=S02; PSDC=S03;
0x125d3c…125ed0 Dummy {f00=0x00a8, f01=0x018e, f02=»C=S02; PSDC=S03; PT; P01; ( PTID=C0; 4 PTCL=A0; D PLEV=60; T P01; d PTDC=T03; p PLC=003L; P02; PSDC=S02; PSDC=S03; PU; P009; PUBF; P002; PUIF; P002; PUCY;
0x125ed0…126064 Dummy {f00=0x00a8, f01=0x0018, f02=» PUQQ; P002; PT; P01; ( PTID=C0; 4 PTCL=A0; D PLEV=60; T P01; d PTDC=T03; p PLC=003L; P02; PSDC=S02; PSDC=S03; PU; P009; PUBF; P002; PUIF; P002; PUCY;
0x126064…1261f8 Dummy {f00=0x00a8, f01=0x2008, f02=» P002; PT; P01; ( PTID=C0; 4 PTCL=A0; D PLEV=60; T P01; d PTDC=T03; p PLC=003L; P02; PSDC=S02; PSDC=S03; PU; P009; PUBF; P002; PUIF; P002; PUCY;
0x1261f8…12638c Dummy {f00=0x00a8, f01=0x0190, f02=» SCTMSZK SCTSFA , SCTEFA @ SCTIPL T SCTANO h SCTTCT | SCTCDTL , ( @ SCTPAG SCTNOP SCTPSZ
0x12638c…126520 Dummy {f00=0x00a8, f01=0x4180, f02=»F SCTNFT SCTFWL SCTBLK 4 SCTDCT H SCTNOS SCTMXS@ p , ( ~ SCTMOXS STKEND2 STKMOVW Z STK
0x126520…1266b4 (1, 372) Opaque[0x194]
0x1266b4…126848 # DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1508, f03=0x0000}
0x1266b4…126848 IdxSect {
0x1266b4…126848 f00 = 0x00a8 // 0x1266b4 @0x0
0x1266b4…126848 f01 = 0x001a // 0x1266b6 @0x2
0x1266b4…126848 gno = [ // 0x1266b8 @0x4
0x1266b4…126848 [0x00]: C0x00a8.0x1.0
0x1266b4…126848 [0x01]: C0x00a8.0x2.0
0x1266b4…126848 [0x02]: C0x00a8.0x3.0
0x1266b4…126848 [0x03]: C0x00a9.0x0.0
0x1266b4…126848 [0x04]: C0x00a9.0x1.0
0x1266b4…126848 [0x05]: C0x00a9.0x2.0
0x1266b4…126848 [0x06]: C0x00a9.0x3.0
0x1266b4…126848 [0x07]: C0x00aa.0x0.0
0x1266b4…126848 [0x08]: C0x00ae.0x3.0
0x1266b4…126848 [0x09]: C0x00af.0x0.0
0x1266b4…126848 [0x0a]: C0x00b3.0x1.0
0x1266b4…126848 [0x0b]: C0x00b3.0x2.0
0x1266b4…126848 [0x0c]: C0x00b3.0x3.0
0x1266b4…126848 ]
0x1266b4…126848 }
0x126848…1269dc Dummy {f00=0x00a8, f01=0x0190, f02=»4F bJ CR@2 D 3 D 5 vD ; D @ D E D K bD Q `D V ~D [ D ` n p
0x1269dc…126b70 Dummy {f00=0x00a8, f01=0x0190, f02=» R P R A 0 p 1 b p + " 2 p ` n e A0 > r , h R l L vA0 0 * 8 hUBF UIF UCY UOP UA1 UA2 UT1 UT2 UQ
0x126b70…126d04 Dummy {f00=0x00a8, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N
0x126d04…126e98 Dummy {f00=0x00a8, f01=0x0190, f02=» A0 D 4 * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F : 0 0 0 @
0x126e98…12702c Dummy {f00=0x00a8, f01=0x0190, f02=»
[…0x3…]
0x1274e8…12767c Dummy {f00=0x00a8, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ >
0x12767c…127810 Dummy {f00=0x00a8, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x127810…1279a4 Dummy {f00=0x00a8, f01=0x0190, f02=» 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x1279a4…127b38 Dummy {f00=0x00a8, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f
0x127b38…127ccc Dummy {f00=0x00a8, f01=0x0190, f02=» U5* 2 0 0 0 0 " H L4F q 4B 3HnI60DH - ! ! - . -~IH. /V- . /</ -</f - ,0. . . H .p.T- # + 0 !N!R!Z!B!8!<!F!J! F b! &
0x127ccc…127e60 Dummy {f00=0x00a8, f01=0x0190, f02=» & ( ) 0 9 D E F P S ? < < < < .
0x127e60…127ff4 (1, 374) Dummy {f00=0x00a8, f01=0x0190, f02=» X Z ^ ` b d f h j l n p r t v x z | ~ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 I _ / u d ; d ;
0x127ff4…128188 Dummy {f00=0x00a8, f01=0x0190, f02=» D , B T T T X : A A A : A A : A @ P T T : @ A _( : W W ( B P X A : @ A P R _ : 0 E T : : A @ @ : A P *
0x128188…12831c Dummy {f00=0x00a8, f01=0x0190, f02=»76 9A 9A : A R P Q _ :
0x12831c…1284b0 Dummy {f00=0x00a8, f01=0x0190, f02=» 76 76 76 F 8 1 Y 4
0x1284b0…128644 Dummy {f00=0x00a8, f01=0x0190, f02=» # Y ( x P* Y * x y Q W Q Y W X " X X . 8 ^ ,h X 0P X T 5 ! Y * y X V. X # X ( # x C ( Y * X Y , # X X C & C C ( B Ph9 R^9
0x128644…1287d8 Dummy {f00=0x00a8, f01=0x0190, f02=» C D " n X X * $" ~_> @ Y X * ,_R X !@XX y X # x V y X X * # P P 1 _ 1 X * X X * $" X D % " X # X * # y _< X # X * y # X 1 1 X !@T X $ " P y _ x T j L
0x1287d8…12896c Dummy {f00=0x00a8, f01=0x0190, f02=» C y X C C X ( x Tf B 9 R 9 z X ! T _ y C Q " T # # X ! X X ! x Y~ Y _ X "@P B R y C B P 9 V _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B
0x12896c…128b00 Dummy {f00=0x00a8, f01=0x0190, f02=» Y c C y XR X x # x X X # # _ " O C C ( # B P B V C #p : + # X # # ( - 76 ( -( , : B C _J + . ,h X 9 V ! P @ Y 76 Y Y . : 6 76
0x128b00…128c94 (1, 375) Dummy {f00=0x00a9, f01=0x0190, f02=» ,d ^ ,P - ' 76 ! Y 0T V -( ; : ,h 2' 76 R P P X ' ' 4 X _ X ' _ X '?_ ,h 76 X ' ,d X ! ,P ,R ,h X " 9b! X :c 2" H!0 ,b@ W W W W W W
0x128c94…128e28 Dummy {f00=0x00a9, f01=0x0190, f02=»9H Y * #DW W #4 , 0 X 0 X +" X *9h P2 R Y ?_ P P Y +W^ " Y + " $nWL T " " W> Q W Y + U Q P W W Y ( $j C ,h X *! P V L ! ,d 4 X 0 Y 8 " P , Y 0 X 0 X 2] X 8 Y 0 "
0x128e28…128fbc Dummy {f00=0x00a9, f01=0x0190, f02=» Y ( Y ? Y + 76 4 0 6 6 2 : C ( C : C B _( _ , X # # P # B _R ( - X D D : K + Q 2 P. P8 6 D ( -( B X # V : 76 D _0 9F_>F F 76F
0x128fbc…129150 Dummy {f00=0x00a9, f01=0x0190, f02=» *# X ( " Qp " P X 0P: Vp_` " P4 T *P -(WT " P Y 0] Y (_t " X _. 0j X *# P B 1 0jW " P X X$ C : X *! P 0 + C W @ X (T W X y 6 Y ( : X (;n ,RF D D D,C &|F F F DhC|DrC<% & & D % F D,Cv
0x129150…1292e4 Dummy {f00=0x00a9, f01=0x0190, f02=»T2 D> : " P$ X 0U X *# P P T " T : Y . *P Y ( C| ,h Y *T " T ! 1 W ! ) D> : ,h C FV P & Y *T & : X ?! T X &P V H " P D> + ,h X ?! P* R Q$ X &P V D ! P $ ! P %_ D> : ,h V
0x1292e4…129478 Dummy {f00=0x00a9, f01=0x0190, f02=» Y (W X *:h Pl Pf P P ) P< ) WZ X ! X $" P<Q X (# P2 X # :! R$W ) ) T$ @ Y (W Y , *PW *n Y ( C| : X *:h X (! # P X & V L TbW X , X 0P@ ) T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l ) _r X (
0x129478…12960c Dummy {f00=0x00a9, f01=0x0190, f02=» X (P + * X (P )| , 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 + 76 8 V Y 8 : " P X & V ( P ) : : )| "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : ,h X : X ( T X &
0x12960c…1297a0 Dummy {f00=0x00a9, f01=0x0190, f02=»W F ! P =H F + X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X ,pW Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 76W Y ! P 6 W V Y + V Y :
0x1297a0…129934 (1, 376) Dummy {f00=0x00a9, f01=0x0190, f02=» Q W ' Y : W 6 V C ,h Y Y Y < V E 4 B X _ v : C C 0 : C 0 : ,h X @ ; [ W ,h X B ; [ 1 Z : :( R : V E V D ' $ T ( W , P
0x129934…129ac8 Dummy {f00=0x00a9, f01=0x0190, f02=» ( 4 76 ( _ 76 ( _0 _ 76 ( 4 76 76 V 4 ( . 3 / . . / _ 6 &:K : . / / W . / 3 / . / _ . / / . / / . / W 0 /
0x129ac8…129c5c Dummy {f00=0x00a9, f01=0x0190, f02=» W 1 C 9HR / ' W 781"&$ 39#$;< '()*+,-! 1 1 76 P _J 1, B 76 'W 1, ( W| 76 1 1, 1 ( 0 W : 1W C C ( ' P0 0( P& V ,V
0x129c5c…129df0 Dummy {f00=0x00a9, f01=0x0190, f02=» 0 : V I C B : ( ' P 0 I : 1 1 % Y 6 C 76 & R V C 76 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D 9 W<' #? 8 ;B V D W ,"? :D;B D V
0x129df0…129f84 Dummy {f00=0x00a9, f01=0x0190, f02=» P C W $0 P C 2 : 6 #0 T & C C : 28 C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " 2 : P3 3 PR L3l R R _
0x129f84…12a118 Dummy {f00=0x00a9, f01=0x0190, f02=» :J a B@ ' d w5 1 3 6 #0 T B ' : B B 2 : V C 6 P C #0 T & C C : 28 C C :4 4 4 5F6J4 6B; 9 9 : >0? ? = 5 5 5 4 6 4 5 5 B G GtG G"G F 6j6f6p6r , V 7 @ ! P , P W 4p
0x12a118…12a2ac Dummy {f00=0x00a9, f01=0x0190, f02=» # ;B V T W V P L , V 2P " 2 P V D ! R T V P V , W V _ 8^n D4, Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L 76 2# &X 3
0x12a2ac…12a440 Dummy {f00=0x00a9, f01=0x0190, f02=» 4 H4J 'W 'W '_8 :l:d:h 76 W W P W 6 2# 9 W4 @ E6 " T> ; [ # 8 :H 2 T Z L L6t D V, W # 8 L6t D V $ W D V L6| , W 6 2 9 W$ " P& Pd" # 8 ;b
0x12a440…12a5d4 (1, 377) Dummy {f00=0x00a9, f01=0x0190, f02=» : F _v :B , (Vv ; H [ [ [ 76 z ;AV$ Z H # 96 ; 76 : & Z 4 96 : Z 4 " 2@P : [ [ 76 & @ ! P [ 6 [ Z 7 6 Z 7 : T #
0x12a5d4…12a768 Dummy {f00=0x00a9, f01=0x0190, f02=»! : 6 2 9 W& " # 8 ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P ;XQ [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R
0x12a768…12a8fc Dummy {f00=0x00a9, f01=0x0190, f02=» * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q ;X_0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T
0x12a8fc…12aa90 Dummy {f00=0x00a9, f01=0x0190, f02=»_. &" ! ! P $ T 9 : & P Q < ,^ , < < # ; [ _ ' 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
0x12aa90…12ac24 Dummy {f00=0x00a9, f01=0x0190, f02=» Q 9d! )0 + P 7 Y Z $ _ : 2' 6 [ [ 76 Z Z ; : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [
0x12ac24…12adb8 Dummy {f00=0x00a9, f01=0x0190, f02=»P A 9 V H )_ A ? _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V
0x12adb8…12af4c Dummy {f00=0x00a9, f01=0x0190, f02=»A 9 z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z A ;X Q A ? P _ T { [ A A [ Q@ [ A 9 { R [ _ A 9 A ? Z ! Z $ Z %_N [ Q* A 9 A ;X R [ Z { A 9 z 9e! W Z : V
0x12af4c…12b0e0 Dummy {f00=0x00a9, f01=0x0190, f02=» gg++ L 33 F 6 6 9XF 9F6 76F D D D,C F F F F DhC|DrC<DRFLFLD DHF D,Cv B 6 CD K K K K V K : 76 BX BH B 6 V C CD C V Z P 2 " T W "@T '?W "? HB " K
0x12b0e0…12b274 (1, 378) Dummy {f00=0x00a9, f01=0x0190, f02=»P , Z 7 Z Z P , : V R (Q V : : BX J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K D WJ DNW +_ Dh Dd K W. _& X 0jW X & 0f J K : V : 1
0x12b274…12b408 Dummy {f00=0x00a9, f01=0x0190, f02=» *Xt 8 ! DF4 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 E !00T ; D _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ E
0x12b408…12b59c Dummy {f00=0x00a9, f01=0x0190, f02=»! P 6 W : ! )P9H # T &W &" :I : F : P & _ &X _ : : : : H$ B : { : H H PX 9 _ H [ H Z : R" P $ 1T Y W 5 _$ : H $
0x12b59c…12b730 Dummy {f00=0x00a9, f01=0x0190, f02=»W ! 9 R R _. : ; : 76 76 jP kT T : & 9! " : $ : H$ 6 $ : 1 2 2 ! <e . / V ,!? B H ! T )@) - / 1 C -/ / 1 <H _ ( 76 R ' 4 76 1
0x12b730…12b8c4 Dummy {f00=0x00a9, f01=0x0190, f02=» D 9a 9 V @ W @ T J X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X ( R 9 8 ? X Q" , V ( Rf - 4T V 5 ( R<W, V P& W$
0x12b8c4…12ba58 Dummy {f00=0x00a9, f01=0x0190, f02=» O ^ ^ r D E Xuj DEX D' Wtj D W D*j D Dq0 DP 0 1 A A24 0 4 1 P B 1DSC001FORMFILE9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99
0x12ba58…12bbec Dummy {f00=0x00a9, f01=0x0190, f02=»9-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- s FORMATFILE OPEN UNSUCCESSFULL e e e e e e/e e e e e e e!e e e e"e$e#e%e&e)e*e.e+e0e2e1e3e e e'e(e,e-e4e5e6e7e+ % * / 5 ; A G N U
0x12bbec…12bd80 Dummy {f00=0x00a9, f01=0x0190, f02=» v q j n r1 I5 J1 W @2 1 W "[ !"]9 A " A 0 #)6x I5 H1 W )6] W " ?J1B !"] _J _N1 0 H5% " M 7[ 8x :[ ;[ I2y I2t 1% e`W2 7[ M[!" I2u I2X I2S 1% e` I2G Me 7e!7[ 7[ [ 2 32 3 I58 I2% 6[); A6)>[ A9)?[ A7 I2 !" " I2 W )"[
0x12bd80…12bf14 (1, 379) Dummy {f00=0x00aa, f01=0x0190, f02=» fx % 1 I2kH4 ' J1 @4_)H5 GW &I2@ 6] =e 2 I2- +[ + l# ` ` l#` ` ` W 6 @`4 %e 2#e . e I2(H ! x ! %7] 0 W CrW CqW C W 4 I5 I1 (j W f[!f] Cs W A4 A 4 0 ~ #I2 6 4 e C$
0x12bf14…12c0a8 Dummy {f00=0x00aa, f01=0x0190, f02=»L #@ AV I2 I2 !R 7!R 3!R /!S IV s_W! pS pb p p I2 W I2 IU ex cxHW Wf!S )R WZ)R WR!R )R WF6R $(,0!_w !W0 "W, #W( $W$ %W &W 'W (W )W *W +W ,W W !R !"] ) IB HU 0 ? 4 "[ ~0 ^ I2 0 ^ I2 1%W "x4 [ I2
0x12c0a8…12c23c Dummy {f00=0x00aa, f01=0x0190, f02=»JK J~ J JK%J}" K~ JK J~ J JK%J[ #Jc K~%K[ %K| C 4 ) R [ )S W ) R !S IQ IR IT IS W HV ) R [ IQ W ) R HQ IS IR IU IT HV ) R [ IR W ) R HR IUwITtHVq) R [ IShW ) R [ IT]W ) R HT IROIQLHVI) R ] HT HQ=) R [ HV4 D ) RD[ IU(W*) RD HU!IT IR IQ HV ) RD] HU
0x12c23c…12c3d0 Dummy {f00=0x00aa, f01=0x0190, f02=» N % L v f g > A 16371 $ 2 y 9 v * FORMAT FILE VOLUME NAME ? DSC v DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA
0x12c3d0…12c564 Dummy {f00=0x00aa, f01=0x0190, f02=» ( ) - E V H V n Z o
0x12c564…12c6f8 Dummy {f00=0x00aa, f01=0x0190, f02=» @B)R IT IU ? IU HT (H2 ? H6 G I6 (A - _ HQ ? (H2 ? HB AU)R )ay !:^ !: !&[ ? ? W.HUn#R j%R f D C D D D D R C I2 AB@U_S? %a| %a} %a~ %a %a %a W )R (a= AW? a W a I2 H _q a a a% (H1 !R !! ] !R !:^ !: I IR
0x12c6f8…12c88c Dummy {f00=0x00aa, f01=0x0190, f02=» I2LWJ . W= W7 > W1 / W+ 0 W% $ W - W ) W H6 HT G G ? * I2 ? 4 )R !_x !_v !_w W !:] ):y W %7f~)R %7fv)R !8ynHU W ):]eHT !;y^(R !;[V)R HQ !<yK%R #R %: !:] I5 H1/)R H1()R !S H1 )R #)R !S IV I5 H1 W W , W . 4 0 0 0 0R JP
0x12c88c…12ca20 Dummy {f00=0x00aa, f01=0x0190, f02=» W 0 ~/# G [7 J J J K K e f g h a b c d _z e f g h a b c d A BI2 +[ + "] I2 I2 W " @j4 )"[ S pS pb p p I21I !"[ Af I2 #Ss p )"[ S S 8W +[ +@f4 kr
0x12ca20…12cbb4 (1, 380) Dummy {f00=0x00ae, f01=0x0190, f02=» 4 !wy "vw C$W%#uy #wy xyW #xy xz%7_ 0 0 4 !uy W !wy #xy C W !xy C W 4 #ty C W uz%7] 0 0 4 #vy C W wz%7^ 0 0 4 )"[h [ A I2 ~ Dr0 D P 0 Dt0 DT5 W^0 e e e~/#e y I2A0
0x12cbb4…12cd48 Dummy {f00=0x00ae, f01=0x0190, f02=» C W W A 4 4 0 X $ ' 9 - % < m [ A T N 3 H 634463466371 0 0 0 0 0 0 0 "0 %
0x12cd48…12cedc Dummy {f00=0x00ae, f01=0x0190, f02=» x | E I2 D" V 0 VD0 Dv0 D Dr D iw a[ b c^ ix d] e_ f` g Ds D h0 ^ # j0 ^ ky k~ k} k| k k kz k k k k{ % Dt D Dr D l` !m_ #n] iw $o^ "p 0 4 E D E0 D
0x12cedc…12d070 Dummy {f00=0x00ae, f01=0x0190, f02=»A A o A c(A A ` A T A A ae aI *a( W *a) e W ae e _ a Du E j E 0 D T 0 # [ 1 _z +[ +W A2@m4 IQ ( #( F a(W ) #) : a)Aa kI2*IU HQ [IU HT a +[ + W i @a4 % # A I2 I W C* W C 4 Ab
0x12d070…12d204 Dummy {f00=0x00ae, f01=0x0190, f02=» [W @d@c4 Ag e[ 6I2D!e 3 I2,H e[ 7I2 !e _& 1 I2 +[ + HU 0 @g4 AeI1 ;I2 W <I2k +[ + + [H1 ( WR " a W I2$ I2 ! W
0x12d204…12d398 Dummy {f00=0x00ae, f01=0x0190, f02=» % A 7 A B C f D,A,L,CHDK,N DK,N (2)E F,CH,B,LGB,NL,B I,CH P S,SF US YU 1012561475710058000000 p q y 99999999999ZZZVZZZVZZ9,99 a " 1 @ k : #@[ ]`{|}~ !"#$%&'(
0x12d398…12d52c Dummy {f00=0x00ae, f01=0x0190, f02=» & . 6 > F N V ^ f0 |0 }0 0 0 0 0 0 0 0 0 0 0 y 1 z l .
0x12d52c…12d6c0 Dummy {f00=0x00ae, f01=0x0190, f02=» Ah | ba !bw+ !:] ):w D" Vv0 VD0 Dt0 D D W !&w W C I2 #bw# a a "a) a I2 J ] aIS W @S AS k #bw )&[ 1 W 1 W Tn T1 TzA U U U J I20H U_ #bw !&[ H ) ( ] I2 #
0x12d6c0…12d854 (1, 381) Dummy {f00=0x00af, f01=0x0190, f02=» dwW cw d Cs C #bw )&[ 0 W 0 W T T0 @ 4 IR H5 ARW [W a w 3I2Z l# +[ +HS x I2. I2' !: !:^ IR I I2 W 4 [ c[ c C$ 4 [ e[ e C$ 4 HS x %7^ 0 0 4 AnIQ W { wH5 H
0x12d854…12d9e8 Dummy {f00=0x00af, f01=0x0190, f02=»Q @n4 IS x In %7^ 0 0 W %7_ 0 0 J H J J -Jw Cq 4 awH5 IW 5H2 W a a c l# y HS x +[ + a I24 I2- I2& I2 !:] #:[ I I2 W 4 `A%a #a W
0x12d9e8…12db7c Dummy {f00=0x00af, f01=0x0190, f02=» I 0 W 0 W C> W C* A` La4 %b #b W C WN(ab CrWB b I24H +! '! ]#! w C)W J J( J C>W W C* 4 Al H5 JW ?I2 +[ + @l4 Ak IV I2 !R } ev fwW A ~ et fu h[ ju ku dwA @I2f h[ +[ + lj c lk d I
0x12db7c…12dd10 Dummy {f00=0x00af, f01=0x0190, f02=»dx6 gf dc df dy d W%A j# ks dc dy d !fw *cx gf dfW de0 0 4 @WAi Jw Kw H5 KW AI2q J J J K K H5 LW B@2 l# l# l# l# [ I2 +[ + w 6 W @i4 a $ t z 0
0x12dd10…12dea4 Dummy {f00=0x00af, f01=0x0190, f02=»a k 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 10 50 9 b K Q
0x12dea4…12e038 Dummy {f00=0x00af, f01=0x0190, f02=» b T b b V Z ^ w w { % E E E{ E 4 D E D E DE{ E D 4 q rw sw t| u{ v| w{ x{ y[ w w w w { { { } } { { { {4 w w w w { { { } } { { { {4 { 2 = { { { { { w4 { 2 = { { { { { w4
0x12e038…12e1cc Dummy {f00=0x00af, f01=0x0190, f02=»2KI 1 WB I2= d ! ! c ! W d~1 T U_F% I2 Cs C 0 T ] HU 0 4 T[%T T[) 0 : I2 J JT JJ J4 !:] ):{ Dv0 D G 6G ,28>D Cq C 0 W=1 W70 Cr C 0 W 1 W 1 W 1 W 1 W 1 W ):` 4 I5 AZ
0x12e1cc…12e360 Dummy {f00=0x00af, f01=0x0190, f02=»k T1 !G T^@X k T1 @Y@X T l# T1 T^0 T1 W Tl0 T1 T T1 W 0 @Y@X@Z4 Dt0 D 4 0 4 1 4 J !: !:^ !:[ J J~ JjW J[0 J4 Xy WxjW 0 X WD D [ Eu I [0 E 0 DV0 DX (I D D 0 X WD I #I: _6 ( )
0x12e360…12e4f4 (1, 382) Dummy {f00=0x00b3, f01=0x0190, f02=» i a $ m z t < + , 3 d f DSC000DATABA 1010313801100033000000 $ % 2 4 6 y y Z9999999999999999E:99ZZZZZZZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-99E-99E-99ZZZZZ9,99-ZZZZZZZZ9,99-ZZVZZZVZZ9,99-F*ZVZZZVZ
0x12e4f4…12e688 Dummy {f00=0x00b3, f01=0x0190, f02=» Z 9 S (R) b Z 9 k X Y d s d . g 7 c Z 9 l X Y Z 9 a S (R) X Y 0 10 20 30 40 50 60 80 :0 <0 >0 @0 B0
0x12e688…12e81c Dummy {f00=0x00b3, f01=0x0190, f02=» * v
0x12e81c…12e9b0 Dummy {f00=0x00b3, f01=0x0190, f02=» ` T X % , D D " D"" H3 A3" I0 A0@1W I1 A1@0W 4 D D 6D W A0W A1W @0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 [% } [4 [# { |4 @ J J J (J A 4 % " ! W 4 H7 D "D
0x12e9b0…12eb44 Dummy {f00=0x00b3, f01=0x0190, f02=» E F nv J DEFKWnW!W W c JW c J O cW R c@24 0 L D J{ K{"D K D K D K~ JK D _ "J 4 Cq 4 H7 W MI2 DEFJWn Q I2 DEFJWn_' Wv D bW nD JW J P P I2r_. " 7 Wv D bW nD JW J{X E E X% E F hWF E @ E EW_> D "D
0x12eb44…12ecd8 Dummy {f00=0x00b3, f01=0x0190, f02=»4 I I I I 4 @ @ " ] {X {T A _ " V Q A _N _d & 2 6 55 A _ " {X {Y _!I 4 I 4 I 4 4 { {P V {4 D !D
0x12ecd8…12ee6c Dummy {f00=0x00b3, f01=0x0190, f02=»P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pt D d^PD] 0 ^ P W D Wx Q _ I2 A A I P W A24 Wwj] W 0 ] 4 H3 H1 I W W I W @ 4 D D 0 4 C C 4 1 W DM Ds D 0 D 0 5 6 A _ A A
0x12ee6c…12f000 Dummy {f00=0x00b3, f01=0x0190, f02=» 1 z % m m 0 0 0 0 D D
0x12f000…12f194 (1, 383) Dummy {f00=0x00b3, f01=0x0190, f02=» ~ r v z @ @ I 20 L @A @ )Aq H8 A @8W )A& A A5A8W A W 0 L @A@ 4 IU I6 0 @ 0 L @A aLW HUy0 0 D D"0 0 V 0 VD0 D 0 D E&0 LE E D jZ DLEji L !i i W i jZ i JZ cZjW L aW W D"jW LD eWW'0 0 E 0 GLE(E G
0x12f194…12f328 Dummy {f00=0x00b3, f01=0x0190, f02=» D 0 D- i W i a[ 0 [4 !" g!8[ I3`) !I3Y DE0 D0 D# I3 DzW% D W I3 E E W E E D !E D E _ E 6E 0 DW 0 DW 0 D4 D j D D E X j DEX D' W j D W D*j D Dr E'j D E DNj D Dsj D Dtj D Duj D Dvj D Dwj D Dx0
0x12f328…12f4bc Dummy {f00=0x00b3, f01=0x0190, f02=» @ 4 0 0 P 0 DX0 D P 4 I 0 0 0 P @ 4 0 4 A I2 I W @ 4 J J L%Jb* @%J # y%J {%J K J KJ)K yW M4 @ D 0 DP W D}0 DP W D~0 DT A 4 I1$I I I I H E JI0 ]EJP 0 G0 GHP J E 0
0x12f4bc…12f650 Dummy {f00=0x00b3, f01=0x0190, f02=» @E @Ej^@E] Wa E JI0 EJ0 G0 GHP J E 0 EJ0 G0 GHT/ E E jI E I % E JI0 ]EJT E E I|j EI] W 1 A24 ] $ [ < B U X a b d f x ~ + +-01 100DSC001DATABA 1010313801100033000000 999999999
0x12f650…12f7e4 Dummy {f00=0x00b3, f01=0x0190, f02=» ! " # $ % ' ) / 70 M0 N0 P0 S0 W : $ Z g f |
0x12f7e4…12f978 Dummy {f00=0x00b3, f01=0x0190, f02=» E T $ (" $@ @ B6 I I $ A 4 4 s TW> ZW;A YW+@ W XW WW VW UW 6 0 0 P _ 2 @ @ W 2 H W 2 -W W W{Wy t 0
0x12f978…12fb0c Dummy {f00=0x00b3, f01=0x0190, f02=»0 P A 2 H 2 K + _14 _ u 20 $ ub 4 0 4 v " m _ 0 4 0 4 A 4 q0 ( 4 , 4 u .6 ))b ) x W ) y A b 6
0x12fb0c…12fca0 Dummy {f00=0x00b3, f01=0x0190, f02=» 0 P 4 D F Fr F D 4 4 4 4 4 A A 8 @ I@ 6A %1 @ W 1 @ W 6A 1 @ W 1 @ 1 @ 0 CR 0" CBP R CB_ 0#0$L @AC: A +A p2A !@ B0% C!C C 2B C W 0% B)B _S C 0% B!B ) 2B W 0& LAA2A
0x12fca0…12fe34 (1, 384) Dummy {f00=0x00b3, f01=0x0190, f02=» B 1/ B _ A 00LX C WZ0% B)B 1 ? 01L @ACR7 A A )@ AA?( C @ A 0" ABS 02 P 03 Q A 4 0" BAW A R!A G!A C!C b C 0# B 0 L BA B B AB A 2A )**)**_& BM0 BB A !@ L w0 C0 CC2A +, A 4 !@ AA? !@ L0 C0 CC? , ? r
0x12fe34…12ffc8 Dummy {f00=0x00b3, f01=0x0190, f02=» $ ( , L : B - 3 k m o q s u w y # R 0126PP999 00 0 d q v
0x12ffc8…13015c Dummy {f00=0x00b3, f01=0x0190, f02=» m | | 0& L 6B" ).38=BGLQV[`ejoty~ W JL KB%Jr "JK W C W JL%Jr ,J W C W W W W W} Wx Ws Wn Wi Wd W_ WZ WU WP WK WF WA W< W7 W2 W- W( W# W W W W W W W I2 6 W B W A
0x13015c…1302f0 Dummy {f00=0x00b3, f01=0x0190, f02=» 4 w > ' 9 K L " & ; % R : q W B d $ 0 0 0
0x1302f0…130484 Dummy {f00=0x00b3, f01=0x0190, f02=» l * & [ y * 8 P y d < H IDENT D:UA10 TRA 11.0 81-09-29 F1 O1111 DATA DIVISION v D:UA10 D:UA10U * & B0 0 1 E0 K *
0x130484…130618 Dummy {f00=0x00b3, f01=0x0190, f02=»DIVISION ` U:UA20 U:UA20U " & 6 & T * & = d * & [ y | y | < H IDENT D:UA20
0x130618…1307ac Dummy {f00=0x00b3, f01=0x0190, f02=» 0 L0 R0 X0 ^0 d0 f0 l0 = r , > > < H IDENT U:UT10 TRA 11.0 81-09-29 F1 O1111 DATA DIVISION P U:UT10 U:UT10U * & * &
0x1307ac…130940 Dummy {f00=0x00b3, f01=0x0190, f02=»SION D:UT10 D:UT10U * & 20 0 0 0 0 0 0 2 0 !0 '0 -0 3 7 ` 2 < H IDENT U:UT20 TRA 11.0 81-09-29 F1 O1111 DATA DIVISION U:UT20 U:UT20U * &
0x130940…130ad4 (1, 385) Opaque[0x194]
0x130ad4…130c68 # DirEnt {nam=»CF11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2cc0, f03=0x0000}
0x130ad4…130c68 IdxSect {
0x130ad4…130c68 f00 = 0x0166 // 0x130ad4 @0x0
0x130ad4…130c68 f01 = 0x0002 // 0x130ad6 @0x2
0x130ad4…130c68 gno = [ // 0x130ad8 @0x4
0x130ad4…130c68 [0x00]: C0x0166.0x0.0
0x130ad4…130c68 ]
0x130ad4…130c68 }
0x130c68…130dfc Dummy {f00=0x0166, f01=0x018e, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T04; V PLC=008L; f P00; v PT; P01; PTID=A0; PTCL=A0; PLEV=60; P02; PTDC=T01; PLC=001L; PTDC=T02; PLC=0
0x130dfc…130f90 Dummy {f00=0x0166, f01=0x013a, f02=» PTDC=T03; PLC=002L; P02; $ PSDC=S01; 0 PSDC=S02; @ PU; P P009; Z PUBF; f P002; r PUIF; ~ P002; PUCY; P002; PUOP; P002; PUA1; P002; PUA2; P002; PUT1; P002;
0x130f90…131124 Dummy {f00=0x0166, f01=0x2008, f02=» T03; PLC=002L; P02; $ PSDC=S01; 0 PSDC=S02; @ PU; P P009; Z PUBF; f P002; r PUIF; ~ P002; PUCY; P002; PUOP; P002; PUA1; P002; PUA2; P002; PUT1; P002;
0x131124…1312b8 Dummy {f00=0x0166, f01=0x0190, f02=» ~ P LDKL A1,LMP4 FORMAT ERROR! P CALL ERROR , , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS @ $ P LDR* A1,A1 GET POINTER TO CLASS p $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK A1,2 EXCLUDE LENGTH WORD & P ADR A7,A1 INCREMENT CDTAB LENGTH
0x1312b8…13144c Dummy {f00=0x0166, f01=0x018e, f02=»QU * P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES T P* P CALL GETSDC P ADKL A9,SDCFST-CDBNC P LDR A6,A1 PBCDT10 EQU * P RF(Z) BCDTEX P
0x13144c…1315e0 Dummy {f00=0x0166, f01=0x0190, f02=» P RF(NG) BCDT15 P LDKL A1,LMP4 P CALL ERROR 4 PBCDT15 EQU * H P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS | P LDR* A1,A1 GET LENGTH P SUK A1,2 P ADKL A9,SDC P ADR A7,A1 P SUK A6,1
0x1315e0…132280 (2, 0) DirGranule ((2, 0)) {
0x1315e0…132280 DirEnt {nam=»FORMAT«, typ=» «, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»ENGDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e8, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»LSTFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b38, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»FORMIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba0, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»FORMAT«, typ=»SC«, f00=0x0002, f01=0xa020, f02=0x0bb8, f03=0x0808}
0x1315e0…132280 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0010, f02=0x0be0, f03=0x0808}
0x1315e0…132280 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2880, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»GERDEF«, typ=»SC«, f00=0x0000, f01=0x8157, f02=0x0e30, f03=0x8156}
0x1315e0…132280 DirEnt {nam=»TEMP «, typ=»SC«, f00=0x8156, f01=0x05b8, f02=0x0f78, f03=0x9920}
0x1315e0…132280 DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0x05ba, f01=0x8157, f02=0x10b0, f03=0xbd56}
0x1315e0…132280 DirEnt {nam=»FORMDK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x1315e0…132280 DirEnt {nam=»FMTDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cc8, f03=0x0000}
0x1315e0…132280 }
0x132280…132414 (2, 1) Opaque[0x194]
0x132414…1325a8 # DirEnt {nam=»ENGDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e8, f03=0x0000}
0x132414…1325a8 IdxSect {
0x132414…1325a8 f00 = 0x004f // 0x132414 @0x0
0x132414…1325a8 f01 = 0x0052 // 0x132416 @0x2
0x132414…1325a8 gno = [ // 0x132418 @0x4
0x132414…1325a8 [0x00]: C0x004f.0x1.0
0x132414…1325a8 [0x01]: C0x004f.0x2.0
0x132414…1325a8 [0x02]: C0x004f.0x3.0
0x132414…1325a8 [0x03]: C0x0050.0x0.0
0x132414…1325a8 [0x04]: C0x0050.0x1.0
0x132414…1325a8 [0x05]: C0x0050.0x2.0
0x132414…1325a8 [0x06]: C0x0050.0x3.0
0x132414…1325a8 [0x07]: C0x0051.0x0.0
0x132414…1325a8 [0x08]: C0x0051.0x1.0
0x132414…1325a8 [0x09]: C0x0051.0x2.0
0x132414…1325a8 [0x0a]: C0x0051.0x3.0
0x132414…1325a8 [0x0b]: C0x0052.0x0.0
0x132414…1325a8 [0x0c]: C0x0052.0x1.0
0x132414…1325a8 [0x0d]: C0x0052.0x2.0
0x132414…1325a8 [0x0e]: C0x0052.0x3.0
0x132414…1325a8 [0x0f]: C0x0053.0x0.0
0x132414…1325a8 [0x10]: C0x0053.0x1.0
0x132414…1325a8 [0x11]: C0x0053.0x2.0
0x132414…1325a8 [0x12]: C0x0053.0x3.0
0x132414…1325a8 [0x13]: C0x0054.0x0.0
0x132414…1325a8 [0x14]: C0x0054.0x1.0
0x132414…1325a8 [0x15]: C0x0054.0x2.0
0x132414…1325a8 [0x16]: C0x0054.0x3.0
0x132414…1325a8 [0x17]: C0x0055.0x0.0
0x132414…1325a8 [0x18]: C0x0055.0x1.0
0x132414…1325a8 [0x19]: C0x0055.0x2.0
0x132414…1325a8 [0x1a]: C0x0055.0x3.0
0x132414…1325a8 [0x1b]: C0x0056.0x0.0
0x132414…1325a8 [0x1c]: C0x0056.0x1.0
0x132414…1325a8 [0x1d]: C0x0056.0x2.0
0x132414…1325a8 [0x1e]: C0x0056.0x3.0
0x132414…1325a8 [0x1f]: C0x0057.0x0.0
0x132414…1325a8 [0x20]: C0x0057.0x1.0
0x132414…1325a8 [0x21]: C0x0057.0x2.0
0x132414…1325a8 [0x22]: C0x0057.0x3.0
0x132414…1325a8 [0x23]: C0x0058.0x0.0
0x132414…1325a8 [0x24]: C0x0058.0x1.0
0x132414…1325a8 [0x25]: C0x0058.0x2.0
0x132414…1325a8 [0x26]: C0x0058.0x3.0
0x132414…1325a8 [0x27]: C0x0059.0x0.0
0x132414…1325a8 [0x28]: C0x0059.0x1.0
0x132414…1325a8 ]
0x132414…1325a8 }
0x1325a8…13273c Dummy {f00=0x004f, f01=0x0190, f02=» * L P************************************************************************ L PFMTTAB FTABLE ERR001,ERR002,ERR003,ERR004,ERR005, C ^ , P ERR006,ERR007,ERR008,ERR009,ERR010, C L P FMT011,FMT012,FMT013,FMT014,FMT015, C
0x13273c…1328d0 Dummy {f00=0x004f, f01=0x0190, f02=»R023,ERR024,ERR025, C ~ L P ERR026,FMT027,ERR028,ERR029,MSG030, C > T P ERR031,ERR032,ERR033,ERR034,ERR035, C , P ERR036,ERR037,ERR038,FMT039,FMT0
0x1328d0…132a64 Dummy {f00=0x004f, f01=0x0190, f02=»054,FMT055, C v , P ERR056,FMT057,FMT058,FMT059,FMT060, C T P PRT061,MSG062,MSG063,MSG064,FMT065, C F , P FMT066,FMT067,FMT068,FMT069,FMT070, C , P FMT071,FMT072,FMT073,FMT074,FMT075, C , P FMT076,F
0x132a64…132bf8 Dummy {f00=0x004f, f01=0x0190, f02=»FMT091,ERR092,FMTDUM,FMTDUM,FMTDUM, C ( P FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM . P* Z P* d PFMTDUM FRMT n P FSL P FTEXT 'NOT YET IMPLEMENTED' P FKI 25 P FCOPY ICDUMMY P FMEND L P**********************************
0x132bf8…132d8c Dummy {f00=0x004f, f01=0x0190, f02=»EN PARAMETER * * F L P************************************************************************ P PFMT011 FRMT FSL & ! FTEXT 'DISPLAY 01/06/08/20/24 ?' 8 P FKI 32,ME,MINL=1,MAXL=2,NUM,N
0x132d8c…132f20 Dummy {f00=0x004f, f01=0x0190, f02=»**** L L P* * L P* DEMONSTRATE VIDEO SCREEN * L P* * L P************
0x132f20…1330b4 (2, 2) Dummy {f00=0x004f, f01=0x0190, f02=»***' z B P FTEXT 'DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT' P FTEXT '*****' R FNL t FNL P FLOW FTAB 12 2 P FTEXT 'PHILIPS PTS 6344 VISUAL DISPLAY UNIT' P FNL P FNL P FHIGH
0x1330b4…133248 Dummy {f00=0x004f, f01=0x0190, f02=»NUL P FTAB 12 P FUL > P FTEXT 'PHILIPS PTS 6344 VISUAL DISPLAY UNIT' ( P FNUL j FNL x FNL & P FTEXT 'AVAILABLE CHARACTER SET :' P FNL P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2
0x133248…1333dc Dummy {f00=0x004f, f01=0x0190, f02=»B 10 P FHIGH : P FTEXT X'505152535455565758595A5B5C5D5E5F' . P FTEXT X'606162636465666768696A6B6C6D6E6F' X . P FTEXT X'707172737475767778797A7B7C7D7E7F' P FNL P FLOW P FTEXT 'NATIONAL VERSION :' P FHIGH
0x1333dc…133570 Dummy {f00=0x004f, f01=0x0190, f02=» FHIGH : P FTEXT '20 LINES / 64 CHARACTERS PER LINE' P FNL N P FLOW b P FTEXT 'OPTIONAL : ' x P FHIGH : P FTEXT '24 LINES / 80 CHARACTERS PER LINE' P FLOW P
0x133570…133704 Dummy {f00=0x004f, f01=0x0190, f02=» FCOPY ACNAME P FTAB 32 P FTEXT 'ADDRESS :' : * P FKI 44,MAXL=15,ALPHA,NEOI V P FCOPY ACADDRES P FNL P FTAB 5 P FTEXT 'ZIP-CODE :' 0 P FKI 16,MINL
0x133704…133898 Dummy {f00=0x004f, f01=0x0190, f02=»4,MAXL=15,ALPHA,NEOI ~ P FCOPY ACTOWN P FNL < P FTAB 5 H P FTEXT 'BRANCHNR :' X " P FKI 16,MINL=4,MAXL=4,ME,NEOI t P FMEL 'ZZZZ',IDNR2 P FTAB 32 P FTEXT 'ACCOUNTNR :' P FKI 44,MAXL=6,ME,NEOI P FMEL 'ZZZ
0x133898…133a2c Dummy {f00=0x004f, f01=0x0190, f02=» * x L P* TERMINAL SPECIFICATION * 8 L P* * L P************************************************
0x133a2c…133bc0 Dummy {f00=0x004f, f01=0x0190, f02=»,NCLR,NEOI,APPL=31 t P FMEL '9',RDALFKB P FNL 4 , P FTEXT 'SHARED PRINTING (N=0,L=1,R=2) ?' @ 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 p P FMEL '9',RDSHRPRT P FNL $ P FTEXT 'TEP(=0) TTP(=1) GTP(=2)' P FNL $ P FTEXT '
0x133bc0…133d54 (2, 3) Dummy {f00=0x004f, f01=0x018e, f02=»0),BCR(=1),MSU(=2) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDBCR T P FNL l P FTEXT 'ODR (N=0,Y=1) ?' x 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL & P FTEXT 'HARDCOPY HP75
0x133d54…133ee8 Dummy {f00=0x004f, f01=0x0190, f02=» v 2 P FKI 33,MINL=1,MAXL=1,ME,NCLR,NUM,APPL=1,NEOI P FMEL '9',RDTND > P FNL V P FTEXT 'TERMINAL I.D. :' b P FTAB 31 P FMEL '999',NDTRMNR P FNL P FBZ RDALFKB,F01310 P FTEXT 'TERMINAL NAME ?' ( P FKI 17,ME,MINL=1,
0x133ee8…13407c Dummy {f00=0x004f, f01=0x0190, f02=» 'FRONT OFFICE(' P FMEL '999',NDTRMNR P FTEXT ')' 4 PF01390 F P FMEND T L P************************************************************************ b L P* * L P* SYST
0x13407c…134210 Dummy {f00=0x004f, f01=0x0190, f02=» * R L P************************************************************************ & PFMT014 FRMT SYSTEM START - PART 2 b L P FSL ***************************** 0 P FTEXT 'MLP INTEGRATED (N=0,Y=1) '
0x134210…1343a4 Dummy {f00=0x004f, f01=0x0190, f02=» FTEXT 'SYSTEM CURRENCY CODE ? ' T P FTAB 33 . P FBZ RDALFKB,F01410 8 P FKI 33,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01410 P FCOPY YCCCY(KW4)
0x1343a4…134538 Dummy {f00=0x004f, f01=0x0190, f02=» F P FBZ RDALFKB,F01420 : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR * PF01420 h P FCOPY YCTEXT v P FNL & P FTEXT 'TIME (HHMM) ? ' T P FKI 22,ME,MINL=4,MAXL=4,NUM,NEOI,REWRT
0x134538…1346cc Dummy {f00=0x004f, f01=0x0190, f02=» ( P FTEXT 'DATE (DDMMYY) ? ' @ P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,APPL=32,REWRT 4 ( P FMEL 'ZZE-ZZE-ZZ',NDDATE x P FMEND L P************************************************************************ L
0x1346cc…134860 Dummy {f00=0x004f, f01=0x0190, f02=» * Z L P* * L P************************************************************************ j ( PFMT015 FRMT CURRENCY INITIALISATION L P FSL
0x134860…1349f4 (2, 4) Dummy {f00=0x0050, f01=0x0190, f02=»7,ME,MINL=1,MAXL=20,ALPHA,NEOI,NCLR ~ PF01510 , P FCOPY CCCCYNME : P FNL ( P FTEXT 'CURRENCY CODE : ' p P FBZ RDALFKB,F01520 8 P FKI 17,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01520 P
0x1349f4…134b88 Dummy {f00=0x0050, f01=0x0190, f02=»NCLR,APPL=21,REWRT b $ P FMEL 'ZZZZ9',CDRELAT P FNL B P FTEXT 'BUYING RATES :(1)' V D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=28 z & P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 P
0x134b88…134d1c Dummy {f00=0x0050, f01=0x0190, f02=» FNL * P FTEXT 'SELLING RATES :(1)' D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 > & P FMEL 'ZZZ9,99-',CDSEL1 P FTAB 27 P FTEXT '(2)' D P FKI 30,ME,MINL=1,
0x134d1c…134eb0 Dummy {f00=0x0050, f01=0x0190, f02=» 28,ME,MINL=1,MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT P FMEL 'ZZZZZZ,ZZ',CDLIMIT < P FMEND ^ L P************************************************************************ t L P*
0x134eb0…135044 Dummy {f00=0x0050, f01=0x0190, f02=» * d L P************************************************************************ $ L PFMT016 FRMT OPERATOR IDENTIFICATION t L P FSL
0x135044…1351d8 Dummy {f00=0x0050, f01=0x018e, f02=» J P FMEL 'ZZZZZ',IDNR1 L P FMEND R L P************************************************************************ L P*
0x1351d8…13536c Dummy {f00=0x0050, f01=0x0190, f02=» L P* * L P************************************************************************ T ( PFMT017 FRMT OPERATOR SPECIFICATION L P FSL
0x13536c…135500 Dummy {f00=0x0050, f01=0x0190, f02=» 17,ME,MINL=1,MAXL=18,NCLR,NEOI,ALPHA PF01710 R L P FCOPY OCNAME ` L P FNL L P FTEXT '
0x135500…135694 (2, 5) Dummy {f00=0x0050, f01=0x0190, f02=» P L P FCOPY OCPASS L P FNL f L P FTEXT 'LANGUAGE :' R P F
0x135694…135828 Dummy {f00=0x0050, f01=0x0190, f02=» L P FNL L P FNL l P FNL L P FNL
0x135828…1359bc Dummy {f00=0x0050, f01=0x018e, f02=» h P FTAB 20 ( L P FCOPY YCCCY(KW4) 8 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x1359bc…135b50 Dummy {f00=0x0050, f01=0x0190, f02=» L P FCOPY YCCCY(KW1) ! P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ! T R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) ! L P FNL
0x135b50…135ce4 Dummy {f00=0x0050, f01=0x0190, f02=» ! ^ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT " R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) " r L P FNL
0x135ce4…135e78 Dummy {f00=0x0050, f01=0x0190, f02=»1,NCLR,NEOI,NUM,REWRT " x R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) # < L P FNL # L P FTEXT 'ZEROISE ACCUMULATORS (N=0,Y=1)
0x135e78…13600c Dummy {f00=0x0050, f01=0x0190, f02=»',IDNR1 # L P FMEND $ J L P************************************************************************ $ L P*
0x13600c…1361a0 Dummy {f00=0x0050, f01=0x0190, f02=» * $ L P************************************************************************ % J L PFMT018 FRMT % L P FSL
0x1361a0…136334 (2, 6) Dummy {f00=0x0050, f01=0x0190, f02=»20 % T P FCOPY YCCCY(KW4) & R P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT & L P FMEL 'ZZZ
0x136334…1364c8 Dummy {f00=0x0050, f01=0x0190, f02=» & N L P FTEXT 'CASH WITHDRAWALS :' ' T P FTAB 20 ' ^ T P FCOPY YCCCY(KW4) '
0x1364c8…13665c Dummy {f00=0x0050, f01=0x0190, f02=» ' b L P FNL ( " L P FTEXT 'ACCUM. CHEQUES :' ( r T P FTAB 20
0x13665c…1367f0 Dummy {f00=0x0050, f01=0x0190, f02=»,NEOI,NUM,REWRT ( r L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) ) 6 L P FNL ) L P FTEXT 'ACCUM. TRANSFERS :'
0x1367f0…136984 Dummy {f00=0x0050, f01=0x0190, f02=» ) ~ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT * F L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW2) * L P FNL
0x136984…136b18 Dummy {f00=0x0050, f01=0x0190, f02=» * L P FNL + J L P FTEXT 'CURRENCY SOLD : ' + L P FCOPY YCCCY(KW4)
0x136b18…136cac Dummy {f00=0x0050, f01=0x018e, f02=»MEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) + L P FNL , N L P FTEXT 'CURRENCY BOUGHT : ' , L P FCOPY YCCCY(KW4)
0x136cac…136e40 Dummy {f00=0x0050, f01=0x0190, f02=» L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) - L P FNL - T L P FTEXT 'CURRENCY ACCUM. : ' - L P FCOPY YCCCY(KW1)
0x136e40…136fd4 (2, 7) Dummy {f00=0x0050, f01=0x0190, f02=» - D L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) . L P FNL . X L P FTAB 20 . L P FCOPY YCCCY(KW2
0x136fd4…137168 Dummy {f00=0x0050, f01=0x0190, f02=» . H L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) / L P FNL / L P FTAB 20 / L P FCOPY YCCCY
0x137168…1372fc Dummy {f00=0x0050, f01=0x0190, f02=» / L L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) 0 L P FMEND 0 ` L P************************************************************************ 0 L P*
0x1372fc…137490 Dummy {f00=0x0050, f01=0x0190, f02=» * 0 P L P* * 1 L P************************************************************************ 1 ` L PFMT019 FRMT 1 L P FSL
0x137490…137624 Dummy {f00=0x0050, f01=0x0190, f02=» 1 P L P FNL 2 T P FTEXT 'TERMINAL :' 2 ` T P FTAB 13
0x137624…1377b8 Dummy {f00=0x0050, f01=0x0190, f02=»TRMNR 2 P FTEXT ')' 3 B P FB FB01930 3 T PF01920 3 h T P FTAB 34 3 v T P FMEL '999',NDTRMNR
0x1377b8…13794c Dummy {f00=0x0050, f01=0x018e, f02=»ME (HHMM) : ' 3 P FTAB 20 4 T P FMEL 'ZZE:ZZ',NDTIME 4 ( L P FNL 4 P FTEXT 'DATE (DDMMYY) : ' 4 L P FKI 17,ME,MINL=6,MAXL
0x13794c…137ae0 Dummy {f00=0x0050, f01=0x0190, f02=» L P FMEND 5 L P************************************************************************ 5 T L P* * 5 L P* OPERATOR START SCR
0x137ae0…137c74 (2, 8) Dummy {f00=0x0051, f01=0x0190, f02=» L P************************************************************************ 6 L PFMT021 FRMT 6 T L P FSL 6 L P FTEXT 'OPERATOR I.D
0x137c74…137e08 Dummy {f00=0x0051, f01=0x0190, f02=»MEL 'ZZZZZ',IDNR1 6 L P FNL 7 L L P FTEXT 'PASSWORD : ' 7 L P FKI 17,ME,MINL=1,MAXL=6,ALP
0x137e08…137f9c Dummy {f00=0x0051, f01=0x0190, f02=»NL 7 L P FTEXT 'LANGUAGE : ' 8 N 2 P FKI 17,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=5 8 L P FMEL '9',ODOPRLGG
0x137f9c…138130 Dummy {f00=0x0051, f01=0x0190, f02=»******************************************** 8 t L P* * 9 4 L P* OPERATOR BALANCES, USED BY BCSTTO * 9 L P*
0x138130…1382c4 Dummy {f00=0x0051, f01=0x0190, f02=» 9 t L P FSL : 4 L P FTEXT 'OPERATOR NAME : ' : L P FCOPY OCNAME
0x1382c4…138458 Dummy {f00=0x0051, f01=0x0190, f02=» : t P FTAB 20 ; 4 L P FCOPY YCCCY(KW4) ; D P FTAB 24 ; L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) ; P FNL ; L P FTAB 2
0x138458…1385ec Dummy {f00=0x0051, f01=0x0190, f02=» ; P P FTAB 24 < L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) < P FNL < p L P FTAB 20 < | L P FCOPY YCCCY(KW2)
0x1385ec…138780 Dummy {f00=0x0051, f01=0x0190, f02=»0 < L P FCOPY YCCCY(KW3) = H P FTAB 24 = L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) = P FNL = 0 P FTE
0x138780…138914 (2, 9) Dummy {f00=0x0051, f01=0x0190, f02=» = ^ L P************************************************************************ > L P* * > n L P* GET ACCOUNT NUMBER (CEGACT) * >
0x138914…138aa8 Dummy {f00=0x0051, f01=0x0190, f02=»********************** > ^ L PFMT027 FRMT ? L P FSL ? n P FBT SBZEK,F27050 ? L P FBF SBCARD,F27200
0x138aa8…138c3c Dummy {f00=0x0051, f01=0x0190, f02=»XT 'MOUNT PASSBOOK IN VOUCHER-PRINTER' ? P FKI 36 @ . P FCOPY ICDUMMY @ > P FB F27999 @ T P* @ f P* MAGNETIC STRIPE UNIT @ p P* @ PF27005 @ P FTEXT 'PUT CARD IN MSU' @ P FB F27999 @ PF27100 @ L P*
0x138c3c…138dd0 Dummy {f00=0x0051, f01=0x0190, f02=» * @ L P FTEXT 'DRAW CARD THROUGH BCR' A F L P FB F27999 A L PF27200
0x138dd0…138f64 Dummy {f00=0x0051, f01=0x0190, f02=» * A L P* OPTICAL DOCUMENT READER INPUT * B F L P* * B L P FTEXT 'DRAW CHEQUE THROUGH ODR'
0x138f64…1390f8 Dummy {f00=0x0051, f01=0x0190, f02=» B H L P* KEYBOARD INPUT * C L P* * C X L PF27300 C L P FTEXT 'ACCOUNT
0x1390f8…13928c Dummy {f00=0x0051, f01=0x0190, f02=» C H L P FMEL 'ZZZZZZ',IDACTNR1 D PF27999 D ` L P FMEND D n L P************************************************************************ D
0x13928c…139420 Dummy {f00=0x0051, f01=0x0190, f02=» * D ^ L P* * E L P************************************************************************ E n PMSG030 FRMT E P FSL E P FLOW E . P FTEXT 'PLEASE ENTER REQUIRE
0x139420…1395b4 (2, 10) Dummy {f00=0x0051, f01=0x0190, f02=» * E | L P* OPEN ACCOUNT (DFOACT) * F < L P* * F L P********************************************
0x1395b4…139748 Dummy {f00=0x0051, f01=0x0190, f02=» F N L P FBT SBCHEQUE,F03910 G L P FTEXT 'OPEN SAVINGS ACCOUNT NUMBER : ' G ^ L P FB F03920 G L PF03910
0x139748…1398dc Dummy {f00=0x0051, f01=0x0190, f02=» G N L PF03920 H L P FMEL '999999',IDACTNR1 H ^ L P FNL H L P FTEXT 'NA
0x1398dc…139a70 Dummy {f00=0x0051, f01=0x0190, f02=» H N L P FCOPY ACNAME I L P FNL I f L P FTEXT 'ADDRESS :' I T P F
0x139a70…139c04 Dummy {f00=0x0051, f01=0x0190, f02=» I ^ L P FNL J L P FTEXT 'TOWN :' J n T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18
0x139c04…139d98 Dummy {f00=0x0051, f01=0x0190, f02=» J f L P FBT SBCHEQUE,F03930 K & L P FTEXT 'PASSWORD:' K v T P FKI 11,MAXL=6,ME,NCLR,ALPHA
0x139d98…139f2c Dummy {f00=0x0051, f01=0x0190, f02=» K n L PF03930 L . T P FTEXT 'CARD:' L ~ , P FKI 7,APPL=13,MINL=4,MAXL=4,NUM,ME,NEOI L L P F
0x139f2c…13a0c0 Dummy {f00=0x0051, f01=0x018e, f02=» L V T P FKI 25,MAXL=11,ME,NCLR,NUM,NEOI,REWRT M T P FMEL 'ZZZZZZZZ9,99',ADLIMBOK M n PF03940 M P FMEND M L P********************************
0x13a0c0…13a254 (2, 11) Dummy {f00=0x0051, f01=0x0190, f02=» P* N L P************************************************************************ N 8 PFMT040 FRMT CLOSE ACCOUNT N ^ P FSL N & P FBT SBCHQACT,F04010 N 4 P FTEXT 'CLOSE SAVINGS ACCOUNT NR : '
0x13a254…13a3e8 Dummy {f00=0x0051, f01=0x0190, f02=» N ( P FMEL '999999',IDACTNR1 O N P FNL O z " P FTEXT 'NAME : ' O P FCOPY ACNAME O P FNL O , P FTEXT 'CURRENT BA
0x13a3e8…13a57c Dummy {f00=0x0051, f01=0x0190, f02=»99-',ADBAL O r P FNL P & P FBT SBCHQACT,F04030 P & , P FTEXT 'BOOK BALANCE : ' P P P FB F04040 P PF04030 P , P FTEXT 'CREDIT LIMIT : ' P PF04040 P T P FTAB 24
0x13a57c…13a710 Dummy {f00=0x0051, f01=0x0190, f02=» FBT SBCHQACT,F04050 P , P FTEXT 'PASSWORD : ' Q ( T P FTAB 24 Q X P FCOPY ACPASS Q P FB F04060 Q PF04050 Q , P
0x13a710…13a8a4 Dummy {f00=0x0051, f01=0x0190, f02=» FMEL '9999',ADCARDNR Q PF04060 R $ P FMEND R 2 L P************************************************************************ R H L P* * R L P* DEPOSIT (DLDEP)
0x13a8a4…13aa38 Dummy {f00=0x0051, f01=0x0190, f02=»**************************************************************** R L PFMT041 FRMT S H L P FSL S L P FBT SBCHQACT,F04110
0x13aa38…13abcc Dummy {f00=0x0051, f01=0x0190, f02=» S L PF04110 T F J P FTEXT 'DEPOSIT - CHEQUE ACCOUNT:' T L PF04120
0x13abcc…13ad60 Dummy {f00=0x0051, f01=0x0190, f02=»9',IDACTNR1 T L P FNL U D L P FBT SBCHQACT,F04130 U L P FBT SBNOBOOK,F04130
0x13ad60…13aef4 (2, 12) Dummy {f00=0x0052, f01=0x0190, f02=»COUNT WITH BOOK * U L P* * V D L P FTEXT 'BOOK BALANCE:' V P FTAB 15 V P FBT SBZEK,F04121 V
0x13aef4…13b088 Dummy {f00=0x0052, f01=0x0190, f02=» V p L P FTAB 29 W 0 L P FTEXT 'LINE:' W P FTAB 35 W P FBT SBZEK,F04124 W J P FKI 35,ME,MIN
0x13b088…13b21c Dummy {f00=0x0052, f01=0x0190, f02=» W V L P FB F04140 X L P* * X f L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * X L P*
0x13b21c…13b3b0 Dummy {f00=0x0052, f01=0x0190, f02=» X V L P FTEXT 'NAME :' Y L P FTAB 16 Y f L P FCOPY ACNAME Y L PF0
0x13b3b0…13b544 Dummy {f00=0x0052, f01=0x0190, f02=» Y b P P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT Z " L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT Z v L P FNL
0x13b544…13b6d8 Dummy {f00=0x0052, f01=0x0190, f02=» Z f P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL [ & L P FMEND [ z L P**************************************************************
0x13b6d8…13b86c Dummy {f00=0x0052, f01=0x0190, f02=» * [ j L P* * * L P************************************************************************ z L PFMT042 FRMT
0x13b86c…13ba00 Dummy {f00=0x0052, f01=0x0190, f02=»HQACT,F04210 P FTEXT 'SAVINGS' ] P FB F04220 ] , L PF04210 ] > P FTEXT ' CHEQUE' ] L PF04220 ] P FTEXT ' ACCOUNT:'
0x13ba00…13bb94 (2, 13) Dummy {f00=0x0052, f01=0x0190, f02=» ] ` L P FNL ^ L P FBT SBCHQACT,F04230 ^ p L P* *
0x13bb94…13bd28 Dummy {f00=0x0052, f01=0x0190, f02=» * ^ ` L P FTAB 12 _ L P FTEXT '- PASSWORD :' _ p L P FTAB 31
0x13bd28…13bebc Dummy {f00=0x0052, f01=0x0190, f02=» _ ` L PF04230 ` L P FBT SBCHEQUE,F04240 ` p L P* *
0x13bebc…13c050 Dummy {f00=0x0052, f01=0x0190, f02=» * ` ` L P FTEXT 'NAME :' a L P FTAB 17 a p L P FCOPY ACNAME
0x13c050…13c1e4 Dummy {f00=0x0052, f01=0x0190, f02=» * a ` L P* CHEQUE ACCOUNT, CHEQUE INPUT * b L P* * b p L PF04240
0x13c1e4…13c378 Dummy {f00=0x0052, f01=0x0190, f02=» b ` L P FTAB 31 c L P FCOPY FCFIELD c p L PF04250
0x13c378…13c50c Dummy {f00=0x0052, f01=0x0190, f02=» c ` L P* * d L P* SAVINGS ACCOUNT * d p L P* *
0x13c50c…13c6a0 Dummy {f00=0x0052, f01=0x0190, f02=»5,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT d PF04251 e J L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 e X L P FTAB 29 e L P FTEXT 'LINE:'
0x13c6a0…13c834 (2, 14) Dummy {f00=0x0052, f01=0x0190, f02=»EOI,APPL=11 e r PF04254 f 2 L P FMEL 'ZZ',IDNR1 f @ L P FB F04270 f L P*
0x13c834…13c9c8 Dummy {f00=0x0052, f01=0x0190, f02=» * f L PF04260 g @ L P FTEXT 'CREDIT LIMIT:' g P FTAB 24 g L P FMEL 'ZZZZZZZZ9,99',ADL
0x13c9c8…13cb5c Dummy {f00=0x0052, f01=0x0190, f02=» FNL g L P FTEXT 'AMOUNT :' h L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT h L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT h L P FNL
0x13cb5c…13ccf0 Dummy {f00=0x0052, f01=0x0190, f02=» h L L P FTAB 24 i P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL i L P FMEND i L P********
0x13ccf0…13ce84 Dummy {f00=0x0052, f01=0x0190, f02=» * i P L P* PRINT, LINE TYPE 1: FUNCTION IDENTIFICATION * j L P* * j ` L P************************************************************************ j L PPRT043 F
0x13ce84…13d018 Dummy {f00=0x0052, f01=0x0190, f02=» j P T P FBT SBVCH,P043005 k T P FTAB 3 k p L P FMEL 'Z',RDSHRPRT
0x13d018…13d1ac Dummy {f00=0x0052, f01=0x0190, f02=» k p L P FBF SBSTTO,P043020 l 8 L P FTEXT 'OPERATOR START' l L PP043020
0x13d1ac…13d340 Dummy {f00=0x0052, f01=0x0190, f02=» l x L PP043030 m 8 L P FBF SBCACT,P043040 m L P FTEXT 'CLOSE ACCOUNT'
0x13d340…13d4d4 (2, 15) Dummy {f00=0x0052, f01=0x0190, f02=» m x L P FTEXT 'BLOCK ACCOUNT' n 8 L PP043050 n L P FBF SBDACT,P043060
0x13d4d4…13d668 Dummy {f00=0x0052, f01=0x0190, f02=» n x L P FBF SBUACT,P043070 o 8 L P FTEXT 'UPDATE ACCOUNT' o L PP043070
0x13d668…13d7fc Dummy {f00=0x0052, f01=0x0190, f02=» o x L PP043080 p 8 L P FBF SBQACT,P043090 p L P FTEXT 'INQUIRY ACCOUNT'
0x13d7fc…13d990 Dummy {f00=0x0052, f01=0x0190, f02=» p x L P FTEXT 'DAILY STATEMENT' q 8 L PP043100 q L P FBF SBCOPR,P043110
0x13d990…13db24 Dummy {f00=0x0052, f01=0x0190, f02=» q x L P FBF SBCSYS,P043120 r 8 L P FTEXT 'SYSTEM CLOSE' r L PP043120
0x13db24…13dcb8 Dummy {f00=0x0052, f01=0x0190, f02=» r x L PP043130 s 8 L P FBF SBQCCY,P043140 s L P FTEXT 'CURRENCY INQ.'
0x13dcb8…13de4c Dummy {f00=0x0052, f01=0x018e, f02=» s x L P FTEXT 'LIST ACCOUNTS' t 8 L PP043300 t T P FTAB 21
0x13de4c…13dfe0 Dummy {f00=0x0052, f01=0x0190, f02=» t P FB P043500 u PP043400 u L P FMEL 'ZZZZZZ',NDDATE u , PP043500 u | P FBT SBFIL24,P043600 u P FBT SBFIL20,P043700 u P FB P043999 u PP043600 u P FILLR ' ',4 u PP043700 u
0x13dfe0…13e174 (2, 16) Dummy {f00=0x0053, f01=0x0190, f02=»* * u L P* PRINT, LINE TYPE 3: END OF FUNCTION * v P L P* * v L P************************
0x13e174…13e308 Dummy {f00=0x0053, f01=0x0190, f02=» FTEXT ' ' v T P FBT SBVCH,P044010 w X T P FTAB 3 w L P
0x13e308…13e49c Dummy {f00=0x0053, f01=0x0190, f02=» w X T P FTAB 5 x N P FBF SBCANCEL,P044100 x x L P FTEXT 'CANCEL'
0x13e49c…13e630 Dummy {f00=0x0053, f01=0x0190, f02=» x l L P FMEL '999999',TDTRSSEQ y . N PP044200 y ~ L P FTAB 12
0x13e630…13e7c4 Dummy {f00=0x0053, f01=0x0190, f02=» y p L P FMEL '999',NDTRMNR z 0 L P FTAB 22 z L P FMEL '99E:99',NDTIME
0x13e7c4…13e958 Dummy {f00=0x0053, f01=0x0190, f02=»P044700 z P FILLR ' ',20 { PP044999 { & L P FMEND { 6 L P************************************************************************ { L P*
0x13e958…13eaec Dummy {f00=0x0053, f01=0x0190, f02=» * { v L P************************************************************************ | 6 L PFMT045 FRMT | L P FSL
0x13eaec…13ec80 Dummy {f00=0x0053, f01=0x0190, f02=» | v P FBT SBZEK,F04510 } 6 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT } P L P FMEL 'ZZZZZZ',IDACTNR1 } L P FB F04520
0x13ec80…13ee14 (2, 17) Dummy {f00=0x0053, f01=0x0190, f02=»99999',IDACTNR1 } L PF04520 ~ H L P FNL ~ L P FBT SBCHQACT,F04530
0x13ee14…13efa8 Dummy {f00=0x0053, f01=0x0190, f02=» ~ P FBT SBZEK,F04521 T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT " PF04521 z L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 L P FTEXT ' LINE: '
0x13efa8…13f13c Dummy {f00=0x0053, f01=0x018e, f02=» R PF04525 L P FMEL 'ZZ',IDNR1 ( L P FB F04540 x L PF04530
0x13f13c…13f2d0 Dummy {f00=0x0053, f01=0x0190, f02=» F L PF04540 L P FNL X P FTEXT 'AMOUNT :' T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT
0x13f2d0…13f464 Dummy {f00=0x0053, f01=0x0190, f02=» n P FTEXT 'NEW BALANCE :' . P FTAB 24 L N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL L P FNL $ P FTEXT 'TR
0x13f464…13f5f8 Dummy {f00=0x0053, f01=0x0190, f02=»NR2 | L P FMEND < L P************************************************************************ L P*
0x13f5f8…13f78c Dummy {f00=0x0053, f01=0x0190, f02=» * | L P************************************************************************ < L PFMT046 FRMT INQUIRE ACCOUNT L P FSL
0x13f78c…13f920 Dummy {f00=0x0053, f01=0x0190, f02=»NGS ACCOUNT NR : ' | L P FB F04620 < L PF04610 H P FTEXT 'INQUIRY CHEQUE ACCOUNT :'
0x13f920…13fab4 (2, 18) Dummy {f00=0x0053, f01=0x0190, f02=» x L P FMEL '999999',IDACTNR1 @ L P FNL H P FTEXT 'BALANCE : '
0x13fab4…13fc48 Dummy {f00=0x0053, f01=0x0190, f02=»ZZZ9,99-',ADBAL L P FNL D L P FBT SBCHQACT,F04630 H P FTEXT 'BOOK BALANCE : '
0x13fc48…13fddc Dummy {f00=0x0053, f01=0x0190, f02=» L P FTEXT 'CREDIT LIMIT : ' @ L PF04640 T P FTAB 20
0x13fddc…13ff70 Dummy {f00=0x0053, f01=0x0190, f02=» H P FTEXT 'STATUS : ' H T P FTAB 20 L P FMEL '9',ADSTATUS
0x13ff70…140104 Dummy {f00=0x0053, f01=0x0190, f02=»XT 'LAST TRANS. REQ. (NO=0,YES=1)?' T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 , T P FMEL '9',IDNR1 L P FMEND
0x140104…140298 Dummy {f00=0x0053, f01=0x0190, f02=» * | L P* TRANSACTION INQUIRY (DIQACT) * < L P* * L P********************************************
0x140298…14042c Dummy {f00=0x0053, f01=0x0190, f02=» | H P FTEXT 'TRANSACTION INQUIRY-A/C :' < T P FTAB 26 L P FMEL '999999',IDACTNR1
0x14042c…1405c0 Dummy {f00=0x0053, f01=0x0190, f02=» T P FTAB 7 < L P FMEL '999',UDTRSCDE L P FTEXT '/'
0x1405c0…140754 (2, 19) Dummy {f00=0x0053, f01=0x0190, f02=» L P FMEL '999999',UDTRSSEQ D L P FTEXT '/' L P FMEL '99E-99E-99',UDDATE
0x140754…1408e8 Dummy {f00=0x0053, f01=0x0190, f02=»NT : ' T P FTAB 20 @ L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT L P FNL
0x1408e8…140a7c Dummy {f00=0x0053, f01=0x0190, f02=» T P FMEL 'ZZZZZZZZ9,99-',UDNEWBAL L L P FNL , P FTEXT 'LAST TRANS.
0x140a7c…140c10 Dummy {f00=0x0053, f01=0x0190, f02=» | L P FMEND D L P************************************************************************ L P*
0x140c10…140da4 Dummy {f00=0x0053, f01=0x0190, f02=» * L P************************************************************************ D L PFMT048 FRMT (DE-)BLOCK SCREEN L P FSL
0x140da4…140f38 Dummy {f00=0x0053, f01=0x0190, f02=» * L P* SAVINGS ACCOUNT * D L P* * L P FBF SBBACT,F04810
0x140f38…1410cc Dummy {f00=0x0053, f01=0x0190, f02=» L PF04810 FTEXT 'DEBLOCK SAVINGS ACCOUNT NR.:' D L P FB F04840 L PF04820 FBF SBBACT,F04830
0x1410cc…141260 Dummy {f00=0x0053, f01=0x0190, f02=» L PF04830 FTEXT 'DEBLOCK CHEQUE ACCOUNT NR. :' D PF04840 P FTAB 30 L P FMEL '999999',IDACTNR1 P FNL
0x141260…1413f4 (2, 20) Dummy {f00=0x0054, f01=0x0190, f02=» Z L P FCOPY ACNAME " L P FNL r L P FTEXT 'CURRENT BALANCE :'
0x1413f4…141588 Dummy {f00=0x0054, f01=0x0190, f02=» j P FNL * L P FBT SBCHQACT,F04860 6 PF04850 L P FTEXT 'BOOK BALANCE :' T P FTAB 24
0x141588…14171c Dummy {f00=0x0054, f01=0x0190, f02=»F04865 PF04860 T L P FTEXT 'CREDIT LIMIT :' b T P FTAB 24 L
0x14171c…1418b0 Dummy {f00=0x0054, f01=0x0190, f02=» Z P FNL " L P FBZ RDALFKB,F04870 . L P FTEXT 'COMMENT :' ~ $ P FKI 16,MAXL=20,ALPHA,NCLR,NEOI P FCOPY TCTEXT
0x1418b0…141a44 Dummy {f00=0x0054, f01=0x018e, f02=» L PF04899 FMEND L P************************************************************************ j PMSG049 FRMT P FSL 0 P FTEXT 'MOUNT PASS-BOOK IN VOUCHER-PRINTER'
0x141a44…141bd8 Dummy {f00=0x0054, f01=0x0190, f02=» PMSG050 FRMT P FSL ( P FTEXT 'CHECK PASS-BOOK ON NEW PAGE' $ P FKI 29 P P FCOPY ICDUMMY ` P FMEND v L P************************************************************************ L P*
0x141bd8…141d6c Dummy {f00=0x0054, f01=0x0190, f02=» H L P************************************************************************ L PPRT051 FRMT X P FTEXT ' ' L P FMEL 'ZZZZZZ',NDDATE
0x141d6c…141f00 Dummy {f00=0x0054, f01=0x0190, f02=» ^ N P FILLR ' ',18 T P FTEXT '** CLOSED **' p T P FMEND
0x141f00…142094 (2, 21) Dummy {f00=0x0054, f01=0x0190, f02=» * p L P* UPDATE ACCOUNT, MASTER KEYSETTING OFF (DJUACT) * 0 L P* * L P********************************************************
0x142094…142228 Dummy {f00=0x0054, f01=0x0190, f02=» n L P FBT SBCHQACT,F05210 . L P FTEXT 'UPDATE SAVINGS ACCOUNT NR. : ' ~ L P FB F05220
0x142228…1423bc Dummy {f00=0x0054, f01=0x0190, f02=» : ' n L PF05220 . P FTAB 30 ~ P FMEL '999999',IDACTNR1 L P FNL L P FTEXT 'NA
0x1423bc…142550 Dummy {f00=0x0054, f01=0x0190, f02=» N L P FBZ RDALFKB,F05230 T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 f L PF05230
0x142550…1426e4 Dummy {f00=0x0054, f01=0x0190, f02=» ^ L P FTEXT 'ADDRESS :' T P FTAB 16 n L P FBZ RDALFKB,F05240
0x1426e4…142878 Dummy {f00=0x0054, f01=0x0190, f02=» n L P FCOPY ACADDRES . L P FNL ~ L P FTEXT 'TOWN :'
0x142878…142a0c Dummy {f00=0x0054, f01=0x0190, f02=» v T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 6 L PF05250 L P FCOPY ACTOWN
0x142a0c…142ba0 Dummy {f00=0x0054, f01=0x0190, f02=»70 ~ P* > P* SAVINGS ACCOUNT H P* d L P FTEXT 'PASSWORD:' n T P FTAB 30
0x142ba0…142d34 (2, 22) Dummy {f00=0x0054, f01=0x0190, f02=»60 L P FCOPY ACPASS L P FB F05299 L PF05270 L P FTEXT 'CR
0x142d34…142ec8 Dummy {f00=0x0054, f01=0x0190, f02=» N L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK PF05299 f L P FMEND t L P********************************************************************
0x142ec8…14305c Dummy {f00=0x0054, f01=0x0190, f02=»CT) * d L P* * $ L P************************************************************************ t L PFMT053 FRMT
0x14305c…1431f0 Dummy {f00=0x0054, f01=0x0190, f02=» d L P FTEXT 'UPDATE SAVINGS ACCOUNT NR. : ' $ L P FB F05320 t L PF05310
0x1431f0…143384 Dummy {f00=0x0054, f01=0x0190, f02=»,IDACTNR1 P FNL L P FBT SBCHQACT,F05330 L P FTEXT 'BOOK BALANCE: ' n R P FKI 15,MAXL=11,NUM,ME,NEOI,NCLR,REWRT
0x143384…143518 Dummy {f00=0x0054, f01=0x0190, f02=» d R P FKI 34,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=16 $ L P FMEL '99',ADLNENR z L P FB F05340
0x143518…1436ac Dummy {f00=0x0054, f01=0x0190, f02=» j R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT * N P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK L PF05340
0x1436ac…143840 Dummy {f00=0x0054, f01=0x0190, f02=» r L P 2 T P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT,APPL=30 P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x143840…1439d4 (2, 23) Dummy {f00=0x0054, f01=0x0190, f02=» :' ~ R P FKI 35,MAXL=1,NUM,ME,NEOI,NCLR,REWRT,APPL=3 > L P FMEL '9',ADSTATUS P FNL L P FNL
0x1439d4…143b68 Dummy {f00=0x0054, f01=0x0190, f02=»PL=17 h L P FMEL '99',ADLASTRS . L P FNL ~ $ P FTEXT 'LAST PRINTED :' R P FKI 24,MAXL=2,NUM
0x143b68…143cfc Dummy {f00=0x0054, f01=0x0190, f02=» L L P FNL L P FTEXT 'ACCUM. DEPOSITS :' R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT L P FMEL
0x143cfc…143e90 Dummy {f00=0x0054, f01=0x0190, f02=» R L P FTEXT 'ACCUM. WITHDRAWALS :' * P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT b L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM L P FMEND
0x143e90…144024 Dummy {f00=0x0054, f01=0x0190, f02=» L P FSL L P FTEXT 'MOUNT VOUCHER IN VOUCHER-PRINTER' T L P FKI 34 L P FCOPY ICDUMMY
0x144024…1441b8 Dummy {f00=0x0054, f01=0x0190, f02=»********** R L P* * L P* LIST ACCOUNTS, HEADER LINE (DELACT) * b L P* * L P******
0x1441b8…14434c Dummy {f00=0x0054, f01=0x0190, f02=» R L P FNL L P FNL b L P FTEXT 'ACC.' L P FTAB
0x14434c…1444e0 Dummy {f00=0x0054, f01=0x0190, f02=» R L P FTAB 13 L P FTEXT 'NAME' b L P FTAB 34 L P FTEXT
0x1444e0…144674 (2, 24) Dummy {f00=0x0055, f01=0x0190, f02=» R L P FTEXT 'ACCUM.WITHD.' L P FTAB 63 b L P FTEXT 'ST' L P FMEND
0x144674…144808 Dummy {f00=0x0055, f01=0x0190, f02=»******** R P* P* CURRENCY INQUIRY (DQCCY) P* > J P********************************************************************** H PFMT057 FRMT P FSL P FTEXT 'CURRENCY NAME : ' P FTAB 17 P FCOPY CCCCYNME P FNL
0x144808…14499c Dummy {f00=0x0055, f01=0x0190, f02=»MEL 'ZZZZ9',CDRELAT P FNL P FTEXT 'BUYING RATES :(1)' ( P FTAB 19 L P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 | P FTEXT '(2)' P FTAB 30 P FMEL 'ZZZ9,99',CDBUY2 P FNL P FTEXT 'SELLING RATES :(1)' P FTAB 19
0x14499c…144b30 Dummy {f00=0x0055, f01=0x0190, f02=»TEXT 'LIMIT RATE 1 :' P FTAB 28 P FMEL 'ZZZZZ9,99',CDLIMIT . P FMEND P L P************************************************************************ ^ L P* * L P* CURRENCY
0x144b30…144cc4 Dummy {f00=0x0055, f01=0x0190, f02=» * N L P************************************************************************ L PFMT058 FRMT ^ L P FSL L P FTEXT 'CU
0x144cc4…144e58 Dummy {f00=0x0055, f01=0x0190, f02=» N L P FTEXT '(SELLING)' L P FB F058200 ^ L PF058100 L P FTEXT '(B
0x144e58…144fec Dummy {f00=0x0055, f01=0x0190, f02=» N L P FNL L P FTEXT 'RATE:' ^ L P FTAB 6 L P FCOPY YCC
0x144fec…145180 Dummy {f00=0x0055, f01=0x0190, f02=» N L P FBT SBCCYIN,F058220 L P* CURRENCY SELLING * ^ L P FMEL 'ZZZZ9,99',CDSEL1 L P FB F05824
0x145180…145314 (2, 25) Dummy {f00=0x0055, f01=0x0190, f02=» * N L PF058220 L P FMEL 'ZZZZ9,99',CDBUY1 ^ L PF058240 L P FTEXT '
0x145314…1454a8 Dummy {f00=0x0055, f01=0x0190, f02=» N L P FCOPY CCCCYCDE L P FTAB 25 ^ L P FMEL 'ZZZZ9,00',CDRELAT L P FNL
0x1454a8…14563c Dummy {f00=0x0055, f01=0x0190, f02=» N L P FTAB 16 L P FCOPY ICTEXT1 CURRENCY CODE 1 L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI,APPL=26,REWRT L P FMEL 'ZZZZZ
0x14563c…1457d0 Dummy {f00=0x0055, f01=0x0190, f02=» L J P FTEXT 'AMOUNT CALCUL.:' L P FTAB 16 Z L P FCOPY ICTEXT2 CURRENCY CODE 2 L P FTAB 20
0x1457d0…145964 Dummy {f00=0x0055, f01=0x0190, f02=» J L P FNL L P FTEXT 'CONTINUE EXCHANGE (NO=0,YES=1) ?' Z L P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 L P FMEL '9',IDNR
0x145964…145af8 Dummy {f00=0x0055, f01=0x0190, f02=» J L P************************************************************************ L P* * Z L P* CLOSE OPERATOR (PART1) * L P*
0x145af8…145c8c Dummy {f00=0x0055, f01=0x0190, f02=»** J T PFMT059 FRMT T P FSL b T P FTEXT 'CASH BALANCES :'
0x145c8c…145e20 Dummy {f00=0x0055, f01=0x018e, f02=» j T P FTAB 24 2 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) T P FNL
0x145e20…145fb4 (2, 26) Dummy {f00=0x0055, f01=0x0190, f02=» T P FCOPY YCCCY(KW1) T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1)
0x145fb4…146148 Dummy {f00=0x0055, f01=0x0190, f02=» d T P FCOPY YCCCY(KW2) , T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2)
0x146148…1462dc Dummy {f00=0x0055, f01=0x0190, f02=»B 20 T P FCOPY YCCCY(KW3) T T P FTAB 24 T P FME
0x1462dc…146470 Dummy {f00=0x0055, f01=0x0190, f02=» T P FTEXT 'CHEQUE BALANCE :' $ T P FTAB 20 | T P FCOPY YCCCY(KW4)
0x146470…146604 Dummy {f00=0x0055, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW2,KW1) T P FNL L T P FTEXT 'PRESS CONT TO CONFIRM ELSE CANCEL' T P FMEND
0x146604…146798 Dummy {f00=0x0055, f01=0x0190, f02=»************ T L P* * N P* OPERATOR TURNOVER SCREEN * d L P* * L P**
0x146798…14692c Dummy {f00=0x0055, f01=0x018e, f02=»' v P FTAB 20 P FCOPY YCCCY(KW4) P FTAB 24 4 P FMEL 'ZZZZZZZZ9,99-',WDEC1 D P FNL h P FTAB 20 t P FCOPY YCCCY(KW1) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) P FNL P FTAB 20 P FCOPY YCCCY(KW2
0x14692c…146ac0 Dummy {f00=0x0055, f01=0x0190, f02=» * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL 6 P FTEXT 'CURR. TURNOVER :' B P FTAB 20 f P FCOPY YCCCY(KW4) v T P FTAB 24 P FMEL 'ZZZZZZZZ9,99-',WDEC2
0x146ac0…146c54 (2, 27) Dummy {f00=0x0055, f01=0x0190, f02=» * j L P* DAILY-STATEMENT LINE * * L P* * z L P**************************************************************
0x146c54…146de8 Dummy {f00=0x0055, f01=0x0190, f02=» j P FTAB 3 * L P FMEL '999999',UDTRSSEQ : P FTAB 10 L P FBF SBFIRST,P061050 L P FMEL '99E-99E-99',NDDATE
0x146de8…146f7c Dummy {f00=0x0055, f01=0x0190, f02=» J P FBF SBDSRVS,P061100 P FTEXT 'REVERSAL' & ( P FB P061400 SKIP FURTHER INDICATIONS @ PP061100 l N P FBF SBDSDEP,P061200 | L P FTEXT 'DEPOSIT'
0x146f7c…147110 Dummy {f00=0x0055, f01=0x0190, f02=» n L P FTEXT 'WITHDRAWAL' 0 L PP061300 N P FBF SBDSTRF,P061400
0x147110…1472a4 Dummy {f00=0x0055, f01=0x0190, f02=» r L P FTAB 32 2 L P FMEL '99E-99E-99',UDDATE L P FTAB 42
0x1472a4…147438 Dummy {f00=0x0055, f01=0x0190, f02=» r L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT2 2 L P FMEND L P******************************************************
0x147438…1475cc Dummy {f00=0x0055, f01=0x0190, f02=» z T P FBNZ YDMLPINT,M062100 B T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON GTP' T P FB M062999
0x1475cc…147760 Dummy {f00=0x0055, f01=0x0190, f02=» J T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON LP' T PM062999 j T P FMEND
0x147760…1478f4 (2, 28) Dummy {f00=0x0056, f01=0x0190, f02=» j T P FSL 2 T P FTEXT 'MOUNT DAILY-STATEMENT-VOUCHER' T P FMEND
0x1478f4…147a88 Dummy {f00=0x0056, f01=0x018e, f02=» FRMT P FSL & P FTEXT 'MOUNT A4-SHEET IN PRINTER' P FMEND D L P************************************************************************ R L P* * L P* DEMO TP71: TITLE LIN
0x147a88…147c1c Dummy {f00=0x0056, f01=0x0190, f02=» L P************************************************************************ L PFMT065 FRMT T P FILLR ' ',6 P FBT SBFIL1,FMT65A P FILLR ' ',9 P FBT SBFIL2,FMT65A P FILLR '
0x147c1c…147db0 Dummy {f00=0x0056, f01=0x0190, f02=» ' ',12 PFMT65A L P FCOPY ICSTRG1 L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' n L P FCOPY ICSTRG1
0x147db0…147f44 Dummy {f00=0x0056, f01=0x0190, f02=»********************** ^ L P* * L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * n L P* *
0x147f44…1480d8 Dummy {f00=0x0056, f01=0x0190, f02=» ^ L P FTEXT ' ' L P FILLR ' ',6 n L P FTEXT 'AVAILABLE CHARACTER SETS: '
0x1480d8…14826c Dummy {f00=0x0056, f01=0x0190, f02=»********************** ^ L P* * L P* DEMO TP71: SPECIAL CHARACTERS * n L P* *
0x14826c…148400 Dummy {f00=0x0056, f01=0x0190, f02=» ^ L P FTEXT ' ' L P FILLR ' ',6 n L P FTEXT 'SPECIAL CHARACTERS : '
0x148400…148594 (2, 29) Dummy {f00=0x0056, f01=0x0190, f02=»' ^ P* OCR CHARACTERS > P FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' $ P* ROOMLESS POINT f P FTEXT =X'AE37AE38AE39' ~ L P FMEND L P**************************
0x148594…148728 Dummy {f00=0x0056, f01=0x0190, f02=»FORMATS FOR COMPACT TERMINAL L P* * $ L P************************************************************************ t PFMT068 FRMT P FSL P FTEXT 'ODR (N=0,Y=1) ?' 2 P FKI
0x148728…1488bc Dummy {f00=0x0056, f01=0x018e, f02=»MEL '999',NDTRMNR P FNL P FTEXT 'TERM.NAME :' & P FTAB 12 B P FTEXT 'FRONT OFFICE(' R P FMEL '999',NDTRMNR p P FTEXT ')' P FMEND L P************************************************************************ L P*
0x1488bc…148a50 Dummy {f00=0x0056, f01=0x0190, f02=» L L P* * L P************************************************************************ X L PFMT069 FRMT L P FSL
0x148a50…148be4 Dummy {f00=0x0056, f01=0x0190, f02=» L P FCOPY OCNAME L P FNL T L P FTEXT 'CASH BALANCE : ' P FTAB 16 L P FCO
0x148be4…148d78 Dummy {f00=0x0056, f01=0x0190, f02=» d P FNL $ P FTEXT 'CASH BALANCE : ' 0 L P FTAB 16 P L P FCOPY YCCCY(KW1) P FTAB 20 L P FMEL 'Z
0x148d78…148f0c Dummy {f00=0x0056, f01=0x0190, f02=» | L P FCOPY YCCCY(KW2) < P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) P FNL P FTEXT 'CASH BAL
0x148f0c…1490a0 Dummy {f00=0x0056, f01=0x0190, f02=» h P FTAB 20 ( L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) 8 P FNL , P FTEXT 'PRESS CONT TO CONFIRM ELSE CANC' P FKI 32 P FCOPY WCSTRG6 L P FMEND
0x1490a0…149234 (2, 30) Dummy {f00=0x0056, f01=0x018e, f02=» * T P* WITHDRAWAL (DMWDR) FOR FT80 J L P* * L P**********************
0x149234…1493c8 Dummy {f00=0x0056, f01=0x018e, f02=» L P FSL L P FBT SBCHQACT,F07010 T J P FTEXT 'WITHDRAWAL - SAVINGS ACC.:' L P FB F07020
0x1493c8…14955c Dummy {f00=0x0056, f01=0x018e, f02=» J P FTEXT 'WITHDRAWAL - CHEQUE ACC. :' L PF07020 R L P FTAB 27 L P FMEL '999999',IDACTNR
0x14955c…1496f0 Dummy {f00=0x0056, f01=0x0190, f02=» L P FBT SBCHQACT,F07030 L P* * T L P* SAVINGS ACCOUNT * L P*
0x1496f0…149884 Dummy {f00=0x0056, f01=0x0190, f02=» H P FTEXT '- PASSWORD :' L P FTAB 27 P L P FCOPY ACPASS L P FB F07050
0x149884…149a18 Dummy {f00=0x0056, f01=0x0190, f02=» FBT SBCHEQUE,F07040 L P* * P L P* CHEQUE ACCOUNT, NO ODR * L P*
0x149a18…149bac Dummy {f00=0x0056, f01=0x0190, f02=» FTAB 13 L P FCOPY ACNAME P L P FB F07050 L P*
0x149bac…149d40 Dummy {f00=0x0056, f01=0x0190, f02=»* * L PF07040 P L P FTAB 12 H P FTEXT '- CHEQUE NR. :'
0x149d40…149ed4 (2, 31) Dummy {f00=0x0056, f01=0x0190, f02=»PY FCFIELD L PF07050 L L P FNL L P FBT SBCHQACT,F07060
0x149ed4…14a068 Dummy {f00=0x0056, f01=0x0190, f02=»VINGS ACCOUNT * L P* * L L P FTEXT 'BOOK BALANCE:' L P FKI 15,ME,MINL=1,MAXL=10,NU
0x14a068…14a1fc Dummy {f00=0x0056, f01=0x0190, f02=» L P FTEXT 'LINE:' L P FKI 10,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 X L P FMEL 'ZZ',IDNR1 L P FB F07070
0x14a1fc…14a390 Dummy {f00=0x0056, f01=0x0190, f02=» H L P* CHEQUE ACCOUNT * L P* * X L PF07060 L P FTEXT 'CREDIT L
0x14a390…14a524 Dummy {f00=0x0056, f01=0x0190, f02=» X L PF07070 P FNL h L P FTEXT 'AMOUNT :' t L P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT
0x14a524…14a6b8 Dummy {f00=0x0056, f01=0x0190, f02=» d L P FTEXT 'NEW BALANCE :' $ L P FTAB 20 t P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x14a6b8…14a84c Dummy {f00=0x0056, f01=0x0190, f02=»******************************** h L P* * ( T P* TRANSFER (DNTRF) FOR FT80 x L P*
0x14a84c…14a9e0 Dummy {f00=0x0056, f01=0x0190, f02=» p L P FSL 0 L P FTEXT 'TRANSFER FROM ACCOUNT : ' L P FBT SBCARD,F07110
0x14a9e0…14ab74 (2, 32) Dummy {f00=0x0057, f01=0x0190, f02=» X L P FB F07120 L PF07110 h P FTAB 26 L P FMEL '999999',IDACTNR1
0x14ab74…14ad08 Dummy {f00=0x0057, f01=0x0190, f02=» h L P FBT SBCHQACT,F07130 ( L P FTEXT 'BOOK BALANCE: ' x T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT
0x14ad08…14ae9c Dummy {f00=0x0057, f01=0x0190, f02=» | T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT < L P FMEL 'ZZ',IDNR1 L P FB F07140
0x14ae9c…14b030 Dummy {f00=0x0057, f01=0x0190, f02=»IT LIMIT:' P FTAB 20 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK " L PF07140 r L P FNL
0x14b030…14b1c4 Dummy {f00=0x0057, f01=0x0190, f02=»ZZZZZZZZ,ZZ',TDAMOUNT L P FNL H P FTEXT 'NEW BALANCE :' P FTAB 20 N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x14b1c4…14b358 Dummy {f00=0x0057, f01=0x0190, f02=» FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 L P FMEL 'ZZZZZZ',IDACTNR2 V L P FMEND J P******************
0x14b358…14b4ec Dummy {f00=0x0057, f01=0x018e, f02=»********************************************************** PFMT072 FRMT B P FSL V P FTEXT 'CURRENCY NAME : ' b P FTAB 17 P FCOPY CCCCYNME P FNL P FTEXT 'CURRENCY CODE : ' P FTAB 17 P FCOPY CCCCYCDE P FTAB
0x14b4ec…14b680 Dummy {f00=0x0057, f01=0x0190, f02=» P FMEL 'ZZZ9,99-',CDBUY1 P FNL ( P FTEXT 'BUYING RATE :(2)' 4 P FTAB 19 V P FTAB 26 f P FMEL 'ZZZ9,99',CDBUY2 v P FNL P FTEXT 'SELLING RATES:(1)' P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 P FNL P FTEXT '
0x14b680…14b814 (2, 33) Dummy {f00=0x0057, f01=0x0190, f02=»L 'ZZZZZ9,99',CDLIMIT P FMEND L P************************************************************************ , L P* * | T P* CLOSE OPERATOR (PART1) FOR FT80
0x14b814…14b9a8 Dummy {f00=0x0057, f01=0x0190, f02=»******************************************** t T PFMT073 FRMT 4 T P FSL T P FTEXT 'CASH BALANCE :'
0x14b9a8…14bb3c Dummy {f00=0x0057, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x14bb3c…14bcd0 Dummy {f00=0x0057, f01=0x0190, f02=» T P FCOPY YCCCY(KW1) L T P FTAB 20 T P FMEL 'ZZZZZ
0x14bcd0…14be64 Dummy {f00=0x0057, f01=0x0190, f02=» T P FTEXT 'CASH BALANCE : ' T P FTAB 16 < T P FCOPY YCCCY(KW2) T P FTAB 20
0x14be64…14bff8 Dummy {f00=0x0057, f01=0x0190, f02=» D T P FNL P FTEXT 'CASH BALANCE : ' d T P FTAB 16 T P FCOPY YCCCY(KW3)
0x14bff8…14c18c Dummy {f00=0x0057, f01=0x0190, f02=»L 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) T P FNL T R P FTEXT 'CHEQUE BALANCE:' T P FTAB
0x14c18c…14c320 Dummy {f00=0x0057, f01=0x0190, f02=» Z T P FTAB 20 " T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) z T P FNL
0x14c320…14c4b4 (2, 34) Dummy {f00=0x0057, f01=0x0190, f02=» L P************************************************************************ H L P* * T P* OPERATOR TURNOVER SCREEN FOR
0x14c4b4…14c648 Dummy {f00=0x0057, f01=0x0190, f02=»************************************************************************ PFMT074 FRMT P P FSL d P FTEXT 'GROSS TURNOVER:' p P FTAB 16 P FCOPY YCCCY(KW4) P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL P FTEXT 'GROSS
0x14c648…14c7dc Dummy {f00=0x0057, f01=0x0190, f02=»TEXT 'GROSS TURNOVER:' P FTAB 16 P FCOPY YCCCY(KW2) . P FTAB 20 H * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) X P FNL P FTEXT 'GROSS TURNOVER:' P FTAB 16 P FCOPY YCCCY(KW3) P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH
0x14c7dc…14c970 Dummy {f00=0x0057, f01=0x0190, f02=»,99-',WDEC2 P FMEND L P*********************************************************************** " P* r P* | 4 P* FORMATS FOR THE TELLER NOTE DISPENSER P* P* P* L P********************************************
0x14c970…14cb04 Dummy {f00=0x0057, f01=0x0190, f02=»TEXT 'PRESS CONT WHEN READY ELSE CANCEL' P FMEND 0 L P*********************************************************************** > P* P* OPEN TND SCREEN P* L P********************************************************************
0x14cb04…14cc98 Dummy {f00=0x0057, f01=0x0190, f02=»99',NDDATA1(KW4,KW1) P FTAB 14 P FMEL 'ZZZZ',NOTES(KW1) , . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 L " P FMEL 'ZZZZ',NDDATA1(KW3,KW1) ~ P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW2) P FTAB 14 P FMEL 'ZZZZ',NOTES
0x14cc98…14ce2c Dummy {f00=0x0057, f01=0x0190, f02=»'99999',NDDATA1(KW4,KW3) P FTAB 14 P FMEL 'ZZZZ',NOTES(KW3) 0 . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 P " P FMEL 'ZZZZ',NDDATA1(KW3,KW3) P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW4) P FTAB 14 P FMEL 'ZZZZ',N
0x14ce2c…14cfc0 Dummy {f00=0x0057, f01=0x0190, f02=»***************************************************** P* > 8 P* DISPLAY FORMAT FOR THE REMAINING SMALL CHANGE H P* L P************************************************************************ PFMT077 FRMT P FSL ( P FTEXT 'RE
0x14cfc0…14d154 (2, 35) Dummy {f00=0x0057, f01=0x018e, f02=»************************************************ | P* 8 H P* DISPENSE QUANTITY PER CASSETTE SELECTION SCRREN * B P* H P******************************************************************** PFMT091 FRMT P FSL , P FTE
0x14d154…14d2e8 Dummy {f00=0x0057, f01=0x0190, f02=» , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW1) 4 P FNL V P FTAB 19 b P FMEL 'ZZZZ',NOTES(KW2) r , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW2) P FNL P FTAB 19 P FMEL 'Z
0x14d2e8…14d47c Dummy {f00=0x0057, f01=0x0190, f02=» FMEL 'ZZZZ',NOTES(KW4) , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW4) P P FMEND r L P************************************************************************ L P*
0x14d47c…14d610 Dummy {f00=0x0057, f01=0x0190, f02=» * p L P************************************************************************ 0 PERR001 FRMT P FSL P FTEXT 'VALUE NOT IN RANGE' P FMEND PERR002 FRMT P FSL P FTEXT 'RECORD PROTECT
0x14d610…14d7a4 Dummy {f00=0x0057, f01=0x0190, f02=» 'ILLEGAL END-OF-ITEM KEY' P FMEND " PERR005 FRMT 0 P FSL D " P FTEXT 'FIELD MUST BE ENTERED' P P FMEND v L PERR006 FRMT L P FSL
0x14d7a4…14d938 Dummy {f00=0x0057, f01=0x0190, f02=» t L PERR007 FRMT 4 L P FSL L P FTEXT 'FILE OPEN UNSUCCESSFULL'
0x14d938…14dacc Dummy {f00=0x0057, f01=0x0190, f02=» t L P FSL 4 L P FTEXT 'FRONT OFFICE' L P FMEND
0x14dacc…14dc60 Dummy {f00=0x0057, f01=0x0190, f02=» t L P FTEXT 'VALUE MUST BE ZERO' 4 L P FMEND L PERR010 FRMT
0x14dc60…14ddf4 (2, 36) Dummy {f00=0x0058, f01=0x0190, f02=»T' t L P FMEND 6 L PERR020 FRMT L P FSL
0x14ddf4…14df88 Dummy {f00=0x0058, f01=0x0190, f02=» J L PERR023 FRMT L P FSL Z L P FTEXT 'OPERATOR UNKNOWN' L P FMEND
0x14df88…14e11c Dummy {f00=0x0058, f01=0x0190, f02=» J L P FSL L P FTEXT 'OPERATOR ALREADY LOGGED ON' Z L P FMEND L PERR025 FRMT
0x14e11c…14e2b0 Dummy {f00=0x0058, f01=0x0190, f02=» J L P FTEXT 'WRONG PASSWORD' L P FMEND Z L PERR026 FRMT L P FSL
0x14e2b0…14e444 Dummy {f00=0x0058, f01=0x0190, f02=» J L P FMEND L PERR028 FRMT L P FSL L P FTEXT 'ACCO
0x14e444…14e5d8 Dummy {f00=0x0058, f01=0x0190, f02=» L L PERR029 FRMT L P FSL L P FTEXT 'RECORD KEY INVALID' L P FMEND
0x14e5d8…14e76c Dummy {f00=0x0058, f01=0x0190, f02=» L L P FSL L P FTEXT 'MASTER KEYSETTING REQUIRED' L P FMEND L PERR032 FRMT
0x14e76c…14e900 Dummy {f00=0x0058, f01=0x0190, f02=» L L P FTEXT 'INPUT DEVICE FAILURE' L P FMEND L PERR033 FRMT L P FSL
0x14e900…14ea94 (2, 37) Dummy {f00=0x0058, f01=0x0190, f02=» L L P FMEND L PERR034 FRMT L P FSL P FTEXT 'SAVI
0x14ea94…14ec28 Dummy {f00=0x0058, f01=0x0190, f02=»XT 'INSUFFICIENT FUNDS' P FMEND PERR036 FRMT . P FSL B P FTEXT 'SAME KEY VALUES' N P FMEND n PERR037 FRMT | P FSL P FTEXT 'BALANCE NOT ZERO' P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',ADBAL P FMEND PERR038 F
0x14ec28…14edbc Dummy {f00=0x0058, f01=0x018e, f02=» n P FMEND PERR078 FRMT P FSL * * P FTEXT 'WRONG CASSETTE SEQUENCE ORDER' 6 P FNL d 2 P FTEXT 'PRESS CONT AFTER RELOAD, ELSE CANCEL' p P FMEND PERR079 FRMT P FSL P FTEXT 'TND OPEN FAILURE' P FNL ( P FTEXT
0x14edbc…14ef50 Dummy {f00=0x0058, f01=0x0190, f02=» PERR081 FRMT ! P FSL ! 0 P FTEXT 'FATAL TND-ERROR, DISPENSE CANCELED' ! ( P FNL ! * P FTEXT 'DO TRANSACTION TND-OPEN AGAIN' ! h P FMEND ! PERR082 FRMT ! P FSL ! P FTEXT 'REQUEST ERROR' ! P FMEND ! PERR083 FRMT ! P FSL
0x14ef50…14f0e4 Dummy {f00=0x0058, f01=0x018e, f02=» $ P FTEXT 'COMM. OR HARDWARE ERROR' " P FMEND " , PERR085 FRMT " : P FSL " N P FTEXT 'DELIVERY TIME-OUT' " Z P FMEND " | PERR086 FRMT " P FSL " P FTEXT 'BAD NOTES OR JAM' " P FMEND " PERR087 FRMT " P FSL " " P FTEXT 'REJECT
0x14f0e4…14f278 Dummy {f00=0x0058, f01=0x0190, f02=» P FTEXT ' EMPTY' # P FMEND # PERR089 FRMT # * P FSL # > & P FTEXT 'PROGRAM ERROR-DEBUG HELP' # J P FMEND # t PERR090 FRMT # P FSL # P FTEXT 'CASSETTE ' # & P FMEL '99999',NDDATA1(KW4,TNDCIX) # P FTEXT ' FAILS TO FEED' # P F
0x14f278…14f40c Dummy {f00=0x0058, f01=0x403e, f02=»************************************************** # z@ $ : FSL # > & P FTEXT 'PROGRAM ERROR-DEBUG HELP' # J P FMEND # t PERR090 FRMT # P FSL # P FTEXT 'CASSETTE ' # & P FMEL '99999',NDDATA1(KW4,TNDCIX) # P FTEXT ' FAILS TO FEED' # P F
0x14f40c…14f5a0 Dummy {f00=0x0058, f01=0x0190, f02=» L PFMT016 FRMT OPERATOR IDENTIFICATION % L P FSL % T L P FTEXT 'OPERATOR I.D. :' % L P FKI 17,ME,MINL=4,MA
0x14f5a0…14f734 (2, 38) Dummy {f00=0x0058, f01=0x0190, f02=» L P FMEND & L P* * & T L P* * & L P*
0x14f734…14f8c8 Dummy {f00=0x0058, f01=0x0190, f02=» L P FSL ' L P FTEXT 'PASSWORD :' ' T P P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,NUM ' L P FCOPY OCPASS
0x14f8c8…14fa5c Dummy {f00=0x0058, f01=0x0190, f02=» ' H L P FTEXT 'OPERATOR NAME :' ( P P FKI 17,ME,MINL=1,MAXL=20,NCLR,NEOI,NUM ( X L P FCOPY OCNAME ( L P FNL
0x14fa5c…14fbf0 Dummy {f00=0x0058, f01=0x0190, f02=» ( L P P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM ) L P FMEL '9',ODOPRLGG ) ` L P FNL ) L P FNL
0x14fbf0…14fd84 Dummy {f00=0x0058, f01=0x0190, f02=» ) P L P FNL * L P FTEXT 'CASH BALANCES :' * ` L P FCOPY YCCCY(KW4) * P P FKI 24,
0x14fd84…14ff18 Dummy {f00=0x0058, f01=0x0190, f02=» * T L P FNL + L P FCOPY YCCCY(KW1) + f P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + N
0x14ff18…1500ac Dummy {f00=0x0058, f01=0x0190, f02=» + L P FCOPY YCCCY(KW2) , P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT , l N P FMEL 'ZZZZZZZ9,99-',ODCASH(KW2)
0x1500ac…150240 Dummy {f00=0x0058, f01=0x0190, f02=» , b P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - " N P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3) - v L P FNL
0x150240…1503d4 (2, 39) Dummy {f00=0x0058, f01=0x0190, f02=» - h L P FMEL '9',WD1 . , L P FMEND . | L P*
0x1503d4…150568 Dummy {f00=0x0058, f01=0x0190, f02=» * . l L PFMT018 FRMT OPERATOR ACCUMULATORS / , L P FSL / | L P FTEXT 'CASH DEPOSITS :'
0x150568…1506fc Dummy {f00=0x0058, f01=0x0190, f02=») / p L P FNL 0 0 L P FMEND 0 L P*
0x1506fc…150890 Dummy {f00=0x0058, f01=0x0190, f02=» * 0 p PERR001 FRMT 1 0 P FSL 1 D P FTEXT 'ERR0R 1' 1 P P FMEND 1 h P* 1 v P* 1 PERR002 FRMT 1 P FSL 1 P FTEXT 'ERR0R 2' 1 P FMEND 1 P* 1 P* 1 PERR003 FRMT 1 P FSL 1 P FTE
0x150890…150a24 Dummy {f00=0x0058, f01=0x0190, f02=» 1 PERR005 FRMT 2 P FSL 2 P FTEXT 'ERR0R 5' 2 ( P FMEND 2 @ L P************************************************************************ 2 N L P* * 2 L P* ERR0R 10
0x150a24…150bb8 Dummy {f00=0x0058, f01=0x0190, f02=»********************************************************************** 2 PERR010 FRMT 3 N P FSL 3 b P FTEXT 'VALUE NOT IN RANGE' 3 n P FMEND 3 L P************************************************************************ 3 L P*
0x150bb8…150d4c Dummy {f00=0x0058, f01=0x0190, f02=»* * 3 L P************************************************************************ 4 P L PERR020 FRMT 4 L P FSL
0x150d4c…150ee0 Dummy {f00=0x0058, f01=0x0190, f02=» FMEND 4 L P************************************************************************ 5 P L P* * 5 L P* ERR0R 23
0x150ee0…151074 (2, 40) Dummy {f00=0x0059, f01=0x0190, f02=»************************************************************************ 5 L PERR023 FRMT 6 P L P FSL 6 L P FTEXT 'OPERATOR UNKNOWN
0x151074…151208 Dummy {f00=0x0059, f01=0x0190, f02=»************************************************************************ 6 L P* * 7 P L P* ERR0R 24 * 7 L P*
0x151208…15139c Dummy {f00=0x0059, f01=0x0190, f02=»ERR024 FRMT 7 L P FSL 8 P L P FTEXT 'OPERATOR ALREADY LOGGED ON' 8 L P FMEND
0x15139c…151530 Dummy {f00=0x0059, f01=0x0190, f02=»* * 8 L P* ERR0R 25 * 9 P L P* * 9 L P************************
0x151530…1516c4 Dummy {f00=0x0059, f01=0x0190, f02=» FSL 9 L P FTEXT 'WRONG PASSWORD' : P L P FMEND : L P************************
0x1516c4…151858 Dummy {f00=0x0059, f01=0x0190, f02=»* ERR0R 26 * : L P* * ; P L P************************************************************************ ; L PERR026 FRMT
0x151858…1519ec Dummy {f00=0x0059, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR ; L P FMEND < P L P************************************************************************ < L P*
0x1519ec…151b80 Dummy {f00=0x0059, f01=0x0190, f02=»* * < L P************************************************************************ = P L PERR027 FRMT = L P FSL
0x151b80…151d14 (2, 41) Dummy {f00=0x0059, f01=0x009c, f02=» FMEND = L P************************************************************************ > P
0x151d14…151ea8 Dummy {f00=0x0059, f01=0x2008, f02=» ? = L P************************************************************************ > P
0x151ea8…15203c Dummy {f00=0x0059, f01=0x0190, f02=» :' _ ~ L P FTAB 31 ` F L P FCOPY ACPASS ` L P FB F04250
0x15203c…1521d0 Dummy {f00=0x0059, f01=0x0190, f02=»QUE,F04240 ` L P* * a F L P* CHEQUE ACCOUNT, NO ODR * a L P*
0x1521d0…152364 Dummy {f00=0x0059, f01=0x0190, f02=» a L P FCOPY ACNAME b F L P FB F04250 b L P*
0x152364…1524f8 Dummy {f00=0x0059, f01=0x0190, f02=» * b L PF04240 c F L P FTAB 12 c T P FTEXT '- SCHECK NR. :'
0x1524f8…15268c Dummy {f00=0x0059, f01=0x0190, f02=»COPY FCFIELD c L PF04250 d N L P FNL d L P FBT SBCHQACT,F04260
0x15268c…152820 Dummy {f00=0x0059, f01=0x0190, f02=»SAVINGS ACCOUNT * d L P* * e N T P FTEXT 'BUCH SALDO :' e P FTAB 15 e P F
0x152820…1529b4 (2, 42) Opaque[0x194]
0x1529b4…152b48 # DirEnt {nam=»LSTFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x1529b4…152b48 IdxSect {
0x1529b4…152b48 f00 = 0x0059 // 0x1529b4 @0x0
0x1529b4…152b48 f01 = 0x0002 // 0x1529b6 @0x2
0x1529b4…152b48 gno = [ // 0x1529b8 @0x4
0x1529b4…152b48 [0x00]: C0x0059.0x2.0
0x1529b4…152b48 ]
0x1529b4…152b48 }
0x152b48…152cdc Dummy {f00=0x0059, f01=0x4164, f02=» ( P IDENT LSTFMT LIST FORMATS IN FMTDEF L P DDUM DEMODD 0 L P PDIV P ENTRY LSTFMT PLSTFMT P INCLUDE GERDEF,LIST
0x152cdc…152e70 Dummy {f00=0x0059, f01=0x2008, f02=» H
0x152e70…153004 Dummy {f00=0x0059, f01=0x018e, f02=» m " v " { " | & " } 4 " B " P " ^ " l " z " " " " " " " " "
0x153004…153198 Dummy {f00=0x0059, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " " # " " % " "
0x153198…15332c Dummy {f00=0x0059, f01=0x0190, f02=» NOCH NICHT IMPLEMENTIERT & H " & m 4 ( B & N & m ^ & ! & BILDSCHIRM 01/06/08/20/24 ? l & 99 " e ( z & & &
0x15332c…1534c0 Dummy {f00=0x0059, f01=0x0190, f02=» & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! F & ! T & ! b & p & ~ , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! & ! & ! & ! & &
0x1534c0…153654 (2, 43) Opaque[0x194]
0x153654…1537e8 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b38, f03=0x0000}
0x153654…1537e8 IdxSect {
0x153654…1537e8 f00 = 0x0059 // 0x153654 @0x0
0x153654…1537e8 f01 = 0x001a // 0x153656 @0x2
0x153654…1537e8 gno = [ // 0x153658 @0x4
0x153654…1537e8 [0x00]: C0x0059.0x3.0
0x153654…1537e8 [0x01]: C0x005a.0x0.0
0x153654…1537e8 [0x02]: C0x005a.0x1.0
0x153654…1537e8 [0x03]: C0x005a.0x2.0
0x153654…1537e8 [0x04]: C0x005a.0x3.0
0x153654…1537e8 [0x05]: C0x005b.0x0.0
0x153654…1537e8 [0x06]: C0x005b.0x1.0
0x153654…1537e8 [0x07]: C0x005b.0x2.0
0x153654…1537e8 [0x08]: C0x005b.0x3.0
0x153654…1537e8 [0x09]: C0x005c.0x0.0
0x153654…1537e8 [0x0a]: C0x005c.0x1.0
0x153654…1537e8 [0x0b]: C0x005c.0x2.0
0x153654…1537e8 [0x0c]: C0x005c.0x3.0
0x153654…1537e8 ]
0x153654…1537e8 }
0x1537e8…15397c Dummy {f00=0x0059, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION P DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x15397c…153b10 Dummy {f00=0x0059, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x153b10…153ca4 Dummy {f00=0x0059, f01=0x0190, f02=»* TYPE OF THE VARIABLE AS FOLLOWS: * L P* * P L P* FIRST LETTER: VARIABLE USAGE; THE VARIABLE BELONGS TO THE * L P* FOLLO
0x153ca4…153e38 Dummy {f00=0x0059, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x153e38…153fcc Dummy {f00=0x0059, f01=0x0190, f02=»* B: ACCOUNT RECORD IN UWB UA2 * L P* T: TRANSACTION RECORD IN UWB UT1 * P L P* U: TRANSACTION RECORD IN UWB UT2 * L P* SP: SCREEN MANAG
0x153fcc…154160 Dummy {f00=0x0059, f01=0x0190, f02=»* I: INTERFACE BETWEEN FUNCTION MODULE, FORMATS AND * L P* SPAPXX-ROUTINES, MAY NOT BE USED BY OTHER ROUTINES * P L P* K: CONSTANTS * L P* N: NUMERIC VARI
0x154160…1542f4 (2, 44) Dummy {f00=0x005a, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x1542f4…154488 Dummy {f00=0x005a, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x154488…15461c Dummy {f00=0x005a, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x15461c…1547b0 Dummy {f00=0x005a, f01=0x0190, f02=»* ALF: ALPHANUMERIC AVB: AVAILABLE * L P* BAL: BALANCE BCK: BACK * P L P* BLK: BLOCK BOK: BOOK * L P* BUY: BUY(ING)
0x1547b0…154944 Dummy {f00=0x005a, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x154944…154ad8 Dummy {f00=0x005a, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x154ad8…154c6c Dummy {f00=0x005a, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x154c6c…154e00 Dummy {f00=0x005a, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x154e00…154f94 (2, 45) Dummy {f00=0x005a, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x154f94…155128 Dummy {f00=0x005a, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x155128…1552bc Dummy {f00=0x005a, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x1552bc…155450 Dummy {f00=0x005a, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x155450…1555e4 Dummy {f00=0x005a, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x1555e4…155778 Dummy {f00=0x005a, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x155778…15590c Dummy {f00=0x005a, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J P************************************************************
0x15590c…155aa0 Dummy {f00=0x005a, f01=0x0190, f02=»OP P UWB UA1 P UWB UA2 P UWB UT1 * P UWB UT2 : P CWB CK1 J P CWB CK2 Z P UWB UQQ j * PSPDSSCRN DSET FC=X'50',DEV=DY,BUFL=82 z " PSPDSDYKB DSET FC=X'20',DEV=KA PDSDI DSET FC=X'41',DEV=DI * PSPDSPRT DSET FC=X'30',DE
0x155aa0…155c34 (2, 46) Dummy {f00=0x005a, f01=0x0190, f02=»C=X'22',DEV=BC * PSPDSCPY DSET FC=X'32',DEV=GP,BUFL=112 PDSDBS DSET FC=X'C0',DEV=DL D 0 PDSEKOSA DSET FC=X'60',DEV=MS ZEKOSA MSU-UNIT f " PDSFMTFLE DSET FC=X'CA',DEV=DL 8 PDSLNEPRT DSET FC=X'80',DEV=LP,BUFL=110,BUFDS=SPDSPRT PTNDSET DSET
0x155c34…155dc8 Dummy {f00=0x005a, f01=0x0190, f02=»BLK P* P* P* P* TND INDICATORS * P* B P* L PNOPF BOOL F V PTNDBAD BOOL F j PTNDNDU BOOL F PTNDRCF BOOL F PTNDTRY BOOL F PTNDOPF BOOL F PCASEMP BOOL F PPAYOK BOOL F PTNDBLK
0x155dc8…155f5c Dummy {f00=0x005a, f01=0x0190, f02=»S x P* P* PVCVOLNR1 STRG 3 DBS-VOLNR PVCVOLNR2 STRG 3 FMT-VOLNR @ . PNDLASTRM BCD 4D'100' LAST TERMINAL NUMBER b PFCPARAM STRG 102 PFCPARAM1 STRG 66 8 P* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY) PKDCHECKS
0x155f5c…1560f0 Dummy {f00=0x005a, f01=0x0190, f02=»', 2:LIST C t P P '1','0','1','1','3','1','3', 3:OPEN C P P '1','1','1','1','0','1','0', 4:CLOSE C n P P '1','1','1','1','0','1','0', 5:BLOCK C
0x1560f0…156284 Dummy {f00=0x005a, f01=0x0190, f02=»INQUIRY C j N P '1','1','1','1','0','1','0', 8:DAILY STATEMENTS ( ) C . P P '2','1','2','0','2','0','2', 9:IN C P P '2','2','1','0','2','0','2', 10:OUT C
0x156284…156418 Dummy {f00=0x005a, f01=0x0190, f02=»* TND VARIABLES " PDELAMT BCD 8 AMOUNT TO DELIVER PTNDDVS STRG 4C DEVICE STATUS > ( PTNDREJ STRG 16C REASONS FOR LAST 16 b " P ..REJECTS, FOLLOWED BY '0' $ PNDMAP STRG '3210' CASSETTE ORDER * PNDDUMP BCD 4D NUMBER OF REJECTED NOTES $
0x156418…1565ac Dummy {f00=0x005a, f01=0x0190, f02=»UMN 1: CHECK CURRENCY OFF * L P* COLUMN 2: CHECK CHEQUE OFF * B L P* COLUMN 3: CHECK NOBOOK OFF * L P* COLUMN 4: CHECK
0x1565ac…156740 Dummy {f00=0x005a, f01=0x0190, f02=» COLUMN 6: CHECK INPUT-FIELD EMPTY * > P* COLUMN 7: CHECK ZEKOSA B L P* IF KDCHECKS(I,J) = 1 * L P* THEN FOR FUNCTION I, CHECK J WILL BE PERFORME
0x156740…1568d4 (2, 47) Dummy {f00=0x005a, f01=0x0190, f02=»BE PERFORMED L P************************************************************************ L PCSY BLK d L P* * L P****
0x1568d4…156a68 Dummy {f00=0x005a, f01=0x0190, f02=» * T L P* SYSTEM RECORD * L P* * d L P************************************************************************ L PYDSY
0x156a68…156bfc Dummy {f00=0x005a, f01=0x0190, f02=» T PYDSTATUS BCD 2 L P* 0 = SYSTEM NOT STARTED * * . P* 1 = SYSTEM START OR CLOSE PROGRESSING z L P* 2 = SYSTEM STARTED * P* 3 = SYST
0x156bfc…156d90 Dummy {f00=0x005a, f01=0x0190, f02=» j L PYDMLPINT BCD 2 LINE PRINTER INTEGRATED ! * L PYCTEXT STRG 25 DEMO TEXT ! z L PYDLASSAV BCD 12 LAST SAVINGS ACCOUNT NUMBER
0x156d90…156f24 Dummy {f00=0x005a, f01=0x018e, f02=» ! j L PYDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. " * L P************************************************************************ " z P* " P* TWB VARIABLES " P* " L P******************
0x156f24…1570b8 Dummy {f00=0x005a, f01=0x0190, f02=» " F L P* * # L PSBKEY1 BOOL TRUE # X L PSBKEY2 BOOL FALSE # L PSBCANCEL BOOL FA
0x1570b8…15724c Dummy {f00=0x005a, f01=0x0190, f02=» # H ( PSBTRMBLK BOOL FALSE TERMINAL BLOCKED $ PSBFT80 BOOL FALSE $ 4 * PSBMSU BOOL FALSE MAGNETIC STRIPE UNIT $ N " PSBTND BOOL FALSE TND AVAILABLE $ | * PSBFT80OP BOOL F FT80OP OPEN INDICATOR $ . PSBCP80 BOOL F COPY80 (HP75) PRESENT (.T.) $ L PNWUWBN
0x15724c…1573e0 Dummy {f00=0x005a, f01=0x0190, f02=» NUMBER $ z L P************************************************************************ % L P* * % ` L P* TERMINAL RECORD * % L P*
0x1573e0…157574 (2, 48) Dummy {f00=0x005b, f01=0x0190, f02=»******** % P L PRDTRMRNR BCD 12 RECORD NUMBER & L PRDUMMY BCD 6 & ` L PRCTRMNME STRG 20 TERMINAL NAME & L PRDSTATUS
0x157574…157708 Dummy {f00=0x005b, f01=0x0190, f02=» * & P L P* 1 = TERMINAL SPECIFIED * ' L P* 2 = TERMINAL STARTED * ' ` L P* 3 = OPERATOR LOGGED ON * ' 0 PRDSCRLNS
0x157708…15789c Dummy {f00=0x005b, f01=0x0190, f02=» 2D'0' SHARED PRINTER ' L PRDPRTTYP BCD 2D'0' PRINTER TYPE ( D L PRDBCR BCD 2D'0' BADGE CARD READER ( L PRDODR BCD 2D'0' OPTICAL DOCUMENT REA
0x15789c…157a30 Dummy {f00=0x005b, f01=0x0190, f02=»'0' TELLER NOTE DISPENSER ( L P************************************************************************ ) " P* ) r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES ) | P* ) L P************************************************************************ )
0x157a30…157bc4 Dummy {f00=0x005b, f01=0x0190, f02=»L FALSE USED IF ERROR IN ZEKOSA ) P ...USAGE * ( PSPBINW1 BIN W'0' * < PSPBINW2 BIN W'0' * T PSPBINW3 BIN W'0' * l PSPBINW4 BIN W'0' * . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES * PWW1 BIN * PWW2 BIN * PWW3 BIN * PWWINDEX1 B
0x157bc4…157d58 Dummy {f00=0x005b, f01=0x0190, f02=»PUT STRG 32 * . PSPLSTLNE BCD 4D'1' LAST LINE ON THE SCREEN + L P************************************************************************ + F L P* * + 6 P* MISCELANEOUS RESERVED VARIABLES
0x157d58…157eec Dummy {f00=0x005b, f01=0x018e, f02=»**************************************** + p PUBF BLK , 0 P* , @ PSBUSEDWB BOOL FALSE UWB USED , J " P* RESERVED VARIABLES FOR XBFMT , n 0 PNWTOTBYT BIN BYTES TO BE PROCESSED (XBFMT) , $ PNWPTR BIN MATCH POINTER (XBFMT) , $ P* RESERVED VARIABLES FOR
0x157eec…158080 Dummy {f00=0x005b, f01=0x0190, f02=» PSBCHEQUE BOOL FALSE - PSBNOBOOK BOOL FALSE - . PSBRVS BOOL FALSE REVERSAL SWITCH (BESELF) - < PSBCARD BOOL FALSE - n " PSBZEK BOOL FALSE ZEKOSA SWITCH - 2 PSBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF) - 0 PSBOPRCLS BOOL FALSE OPERATOR CLOSE (
0x158080…158214 (2, 49) Dummy {f00=0x005b, f01=0x0190, f02=» ) PRINT LINES ON - ~ & PSBVCH BOOL FALSE ) VOUCHER (PCVCH) . 0 PNDNEWLNE BCD 4 NEXT FREE LINE (PRINT ROUT'S) . D 2 PNDPRTTRS BCD 12 NEXT TRS. FOR PRINT (PRT RT'S) . x , PVCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER . ( PSBFIL1 BOOL FALSE ***************** . $
0x158214…1583a8 Dummy {f00=0x005b, f01=0x0190, f02=»L FALSE ***************** . . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES / " PWCSTRG6 STRG 6 / T PWC1STRG8 STRG 8 / j PWC2STRG8 STRG 8 / PWCSTRG12 STRG 12 / PWCSTRG25 STRG 25 / L P**************************************************************
0x1583a8…15853c Dummy {f00=0x005b, f01=0x0190, f02=» L P* * 0 L P* BUFFER USAGE: * 0 T L P* IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE * 0 L P* BUFFER 'FCFORMAT
0x15853c…1586d0 Dummy {f00=0x005b, f01=0x0190, f02=» L P* AGAIN. * 1 L P* SO WHEN IN SCREEN MANAGEMENT THESE TWO BUFFERS MAY NOT BE USED!!! * 1 T L P* 'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE, * 1 L P* TO READ ERRORS A
0x1586d0…158864 Dummy {f00=0x005b, f01=0x0190, f02=» L P* * 2 4 PFCBUFFER STRG 399 BUFFER FOR DATABASE AND MSG'S 2 T $ PFCFMTBUF STRG 255 FORMAT BUFFER 2 $ PFCFORMAT STRG 800 FORMAT STORAGE 2 2 PFCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOI
0x158864…1589f8 Dummy {f00=0x005b, f01=0x0190, f02=» 2 b L P* * 3 " L P************************************************************************ 3 r L P*
0x1589f8…158b8c Dummy {f00=0x005b, f01=0x0190, f02=» * 3 b L P************************************************************************ 4 " L PSBSTTO BOOL FALSE START OPERATOR 4 r L PSBOACT BOOL FALSE OPEN ACCOUNT
0x158b8c…158d20 Dummy {f00=0x005b, f01=0x0190, f02=» 4 b L PSBDACT BOOL FALSE DEBLOCK ACCOUNT 5 " L PSBUACT BOOL FALSE UPDATE ACCOUNT 5 r L PSBUCCY BOOL FALSE UPDATE CURRENCY
0x158d20…158eb4 (2, 50) Dummy {f00=0x005b, f01=0x0190, f02=» 5 b L PSBCOPR BOOL FALSE OPERATOR CLOSE 6 " L PSBCSYS BOOL FALSE SYSTEM CLOSE 6 r L PSBECCY BOOL FALSE CURRENCY EXCHANGE
0x158eb4…159048 Dummy {f00=0x005b, f01=0x0190, f02=» 6 b PSBWDR BOOL FALSE 7 " L PIWINDEX1 BIN 7 : L PIDACTNR1 BCD 12 7 L PIDACTNR2 BCD 12
0x159048…1591dc Dummy {f00=0x005b, f01=0x018e, f02=» 7 z L PIDNR1 BCD 12 8 : PIDNR2 BCD 12 8 PIDNR3 BCD 12 8 PIDNR4 BCD 12 8 PICSTRG1 STRG 1 8 PICTEXT1 STRG 6 8 PICTEXT2 STRG 25 8
0x1591dc…159370 Dummy {f00=0x005b, f01=0x0190, f02=» 8 p L P************************************************************************ 9 PUCY BLK 9 X P* 9 h L P************************************************************************ 9 r L P*
0x159370…159504 Dummy {f00=0x005b, f01=0x0190, f02=» * 9 b L P************************************************************************ : " " PCDCCYRNR BCD 12 RECORD NUMBER : r PCDUMMY BCD 6 : " PCCCCYNME STRG 20 CURRENCY NAME : " PCCCCYCDE STRG 4 CURRENCY CODE : PCDBUY1 BCD 8 BUY
0x159504…159698 Dummy {f00=0x005b, f01=0x0190, f02=»12 LIMIT OF RATE 1 : PCDRELAT BCD 6 RELATION ; L P************************************************************************ ; 8 L PUOP BLK ; L P*
0x159698…15982c Dummy {f00=0x005b, f01=0x0190, f02=» * ; x L P* OPERATOR RECORD * < 8 L P* * < L P************************************************
0x15982c…1599c0 Dummy {f00=0x005b, f01=0x0190, f02=» < x L POCPASS STRG 6 PASSWORD = 8 L POCNAME STRG 18 OPERATOR NAME = L PODSTATUS BCD 2
0x1599c0…159b54 (2, 51) Dummy {f00=0x005b, f01=0x0190, f02=»ISED * = x L P* 2 = OPERATOR LOGGED ON * > 8 L PODTRMNR BCD 4 TERMINAL NUMBER > L PODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR
0x159b54…159ce8 Dummy {f00=0x005b, f01=0x0190, f02=» * > x L P* 1,1 : BALANCE CURRENCY 1 * ? 8 L P* 1,2 : BALANCE CURRENCY 2 * ? L P* 1,3 : BALANCE CURRENCY 3
0x159ce8…159e7c Dummy {f00=0x005b, f01=0x0190, f02=» * ? x L P* 2,1 : ACCUMULATED CHEQUES * @ 8 L P* 2,2 : ACCUMULATED TRANSFERS * @ L P* 2,3 : ACCUMULATED DEPOSITS
0x159e7c…15a010 Dummy {f00=0x005b, f01=0x0190, f02=» * @ x L P* 3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD * A 8 L P* 3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD * A L P* 3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SO
0x15a010…15a1a4 Dummy {f00=0x005b, f01=0x0190, f02=»RRENCY BOUGHT - LOCAL VALUE * A x P* B 8 P* B B P* B L P* T N D REGISTERS: B V P* - - - ---------- B r P* B 8 PNOTES BCDI (4),5D'10000',5D'5000',5D'2000',5D'1000' B * PTNDREG BCDI (4),5D NUMBER OF NOTEST TO B P ..D
0x15a1a4…15a338 Dummy {f00=0x005b, f01=0x0190, f02=» B v L P************************************************************************ C L PUA1 BLK C X L P* * C 0 PSBCHQACT BOOL FA
0x15a338…15a4cc Dummy {f00=0x005b, f01=0x0190, f02=» * C | L P* ACCOUNT RECORD 1 * D < L P* * D L P********************************************
0x15a4cc…15a660 Dummy {f00=0x005b, f01=0x0190, f02=»NUMBER D | L PACNAME STRG 20 E < L PACADDRES STRG 20 E L PACTOWN STRG 20
0x15a660…15a7f4 (2, 52) Dummy {f00=0x005c, f01=0x0190, f02=» E | L P* 0 = DEBLOCKED * F < L P* 1 = BLOCKED * F L P* 2 = CLOSED WITHOUT STATEMENT
0x15a7f4…15a988 Dummy {f00=0x005c, f01=0x0190, f02=»E F | L PADLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE G < L PADLASTRS BCD 12 LAST TRANSACTION G L PADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED
0x15a988…15ab1c Dummy {f00=0x005c, f01=0x0190, f02=» G X L PADWDRCUM BCD 12 ACCUMULATED WITHDRAWALS H 2 PADLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. H h ( PACRECNR STRG 3 INDEX 2 FOR DATABASE H L P**************************************************************
0x15ab1c…15acb0 Dummy {f00=0x005c, f01=0x0190, f02=» * H j L P************************************************************************ I * L P* * I z L P* ACCOUNT RECORD 2
0x15acb0…15ae44 Dummy {f00=0x005c, f01=0x0190, f02=»********************************** I j L PBDACTRNR BCD 12 RECORD NUMBER J * L PBDCARDNR BCD 6 CARD NUMBER J z L PBCNAME STRG 20
0x15ae44…15afd8 Dummy {f00=0x005c, f01=0x0190, f02=» J j L PBCPASS STRG 6 PASSWORD K * L PBDSTATUS BCD 2 K z L P* 0 = DEBLOCKED
0x15afd8…15b16c Dummy {f00=0x005c, f01=0x0190, f02=» * K j L P* 3 = CLOSED WITH STATEMENT * L * L PBDBAL BCD 12 BALANCE L z L PBDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE
0x15b16c…15b300 Dummy {f00=0x005c, f01=0x0190, f02=»MENTED L j L PBDLNENR BCD 4 FIRST FREE LINE IN BOOK M * L PBDDEPCUM BCD 12 ACCUMULATED DEPOSITS M z L PBDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS
0x15b300…15b494 (2, 53) Dummy {f00=0x005c, f01=0x0190, f02=»******** M P L PUT1 BLK N L P* * N ` L P************************************************************************ N L P*
0x15b494…15b628 Dummy {f00=0x005c, f01=0x0190, f02=» * N P L P* * O L P************************************************************************ O ` L PTDTRSRNR BCD 12 RECORD NUMBER O L PTDUMMY B
0x15b628…15b7bc Dummy {f00=0x005c, f01=0x0190, f02=» O P L PTDDATE BCD 8 TRANSACTION DATE P L PTDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE P ` L PTDOPRNR BCD 12 OPERATOR NUMBER P L PTDTRSSEQ
0x15b7bc…15b950 Dummy {f00=0x005c, f01=0x0190, f02=» P P L PTDNEWBAL BCD 12 NEW BALANCE Q L PTDACTFRM BCD 12 ACCOUNT FROM Q ` L PTDCHQNR BCD 8 CHEQUE NUMBER Q L PTCTEXT S
0x15b950…15bae4 Dummy {f00=0x005c, f01=0x0190, f02=»******** Q P L PUT2 BLK R L P* * R ` L P************************************************************************ R L P*
0x15bae4…15bc78 Dummy {f00=0x005c, f01=0x0190, f02=» * R P L P* * S L P************************************************************************ S ` L PUDTRSRNR BCD 12 RECORD NUMBER S L PUDUMMY B
0x15bc78…15be0c Dummy {f00=0x005c, f01=0x0190, f02=» S P L PUDDATE BCD 8 TRANSACTION DATE T L PUDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE T ` L PUDOPRNR BCD 12 OPERATOR NUMBER T L PUDTRSSEQ
0x15be0c…15bfa0 Dummy {f00=0x005c, f01=0x0190, f02=» T P L PUDNEWBAL BCD 12 NEW BALANCE U L PUDACTFRM BCD 12 ACCOUNT FROM U ` L PUDCHQNR BCD 8 CHEQUE NUMBER U L PUCTEXT S
0x15bfa0…15c134 (2, 54) Dummy {f00=0x005c, f01=0x0190, f02=»******** U P P* V , P* COMMON WORK-BLOCK CONTAINING CONSTANTS V P* V J L P************************************************************************ V T PCK1 BLK V P* V PKW0 BIN W'0' V PKW1 BIN W'1' V PKW2 BIN W'2' V PKW3 BIN W'3' V
0x15c134…15c2c8 Dummy {f00=0x005c, f01=0x0190, f02=»BER OF FORMATS V z PKD1 BCD 2D'1' W * PKDMAXLGG BCD 2D'4' NUMBER OF LANGUAGES W , 2 PKDSHIFT BCD D'100' SHIFT TO GET RECORD NUMBER W Z PNDDATE BCD 8 W PNDTIME BCD 8 W PVCTIME STRG 6 W L P**********************************************************
0x15c2c8…15c45c Dummy {f00=0x005c, f01=0x0190, f02=»************************** W b PCK2 BLK X " P* X 2 0 P* INDICES IN THE FUNCTION KEYTABLE 'FNCKTB' X < PKWSTART BIN W'3' X p PKWEND BIN W'4' X PKWEOI BIN W'1' X PKWCONT BIN W'20' X PKWCANCEL BIN W'19' X PKWCLEAR BIN W'21' X . P* LENGTH
0x15c45c…15c5f0 Dummy {f00=0x005c, f01=0x0190, f02=»BLES X h PKWSPEOI BIN W'3' Y PKWSPCANC BIN W'4' Y $ PKWSPCONT BIN W'17' Y > PKWSPCLR BIN W'1' Y X 0 P* LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES Y p * PKWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 Y ( PKWSPKTB3 BIN W'12' LENGTH OF SPKTAB3 Y , P* 6371 PRI
0x15c5f0…15c784 Dummy {f00=0x005c, f01=0x018e, f02=»6',4X'9766',4X'9966',4X'9866',4X'8066', C Y 6 P 4X'9166',4X'8066',4X'8055',4X'8044',4X'8044', C Z 2 6 P 4X'9044',4X'9055',4X'9055',4X'9066',4X'9044', C Z l P 4X'9A66' Z L P************************************************************************ Z P
0x15c784…15c918 Dummy {f00=0x005c, f01=0x0190, f02=» Z F PUQQ BLK [ P* [ $ P* VARIABLES RESERVED FOR SPAPPL [ " * PNWRETCDE BIN W'0' RETURN CODE (SPAPPL) [ J P* SWITCHES USED BY XAKBIN [ x . PSBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN) [ P* SWITCHES USED BY DPECCY [ 4 PSBEOI BOOL FALSE AMT. QUOT
0x15c918…15caac Dummy {f00=0x005c, f01=0x0190, f02=»* SWITCHES USED BY DKDSTM [ 4 PSBFIRST BOOL FALSE DISPLAY TRANS. DATE (DKDSTM) " 4 PSBDSDEP BOOL FALSE TRANS. IS A DEPOSIT (DKDSTM) Z 6 PSBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) 4 PSBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM) 4 PSBDS
0x15caac…15cc40 Dummy {f00=0x005c, f01=0x0190, f02=» BIN RECORD LENGTH (ZDSCIO) PMAXOUT BIN W'50' ] $ ( PCASMAX BIN W'4' MAX NO. OF CASSETTES ] < PKW7 BIN W'7' ] h P ] | PKW8 BIN W'8' ] PKW9 BIN W'9' ] 0 PNDLRN1 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO) ] 0 PNDLRN2 BCD 12 LOGICAL RECORD NUMBER (ZDS
0x15cc40…15cdd4 (2, 55) Dummy {f00=0x005c, f01=0x40c4, f02=» ] ^ 6 PSBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO) ^ L P************************************************************************ ^ B P PDIV ^ P* ^ P* ^ P END ^ @ ^
0x15cdd4…15cf68 Dummy {f00=0x005c, f01=0x2008, f02=» _ NT DEMODDIV DDIV TERM A0 * CWB CW1 : TWB TW1 J UWB UW1 Z & "SPDSSCRN DSET FC=50,DEV=DY,BUFL=86 j SPDSDYKB DSET FC=20,DEV=KA DSDI DSET FC=40,DEV=DI & "SPDSPRT DSET FC=30,DEV=GP,BUFL=100 DSFMTFLE D
0x15cf68…15d0fc Dummy {f00=0x005c, f01=0x0190, f02=»SECTOR NUMBER:; POSITION:;HEX.VALUE:; FILE ORG:;VOLUME NAME DEST. DISC:;***INPUT DEFINITION***; ***OUTPUT DEFINITION***;PACK:;OUTPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE
0x15d0fc…15d290 Dummy {f00=0x005c, f01=0x0190, f02=»:;START SWITCH ON SOP:; MORE THAN ONE APPLICATION :;DATA SET NAME:; BOE-SECTOR:;EOE-SECTOR:;EXPIRATION DATE:; VOLUME INITIALIZATION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD
0x15d290…15d424 Dummy {f00=0x005c, f01=0x0190, f02=»DEX FILE:;SUB-KEY ADDRESSES IN RECORD:; SUB-KEY LENGTHS IN RECORD:; ***WORK FILE DEFINITION***; WORK FILE NAME:;SORTING IN ASCENDING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; CO
0x15d424…15d5b8 Dummy {f00=0x005c, f01=0x0190, f02=»PTION ***;TESTING METHOD (I/A/Q):;CALCULATIONS OF NO. OF USED RECORDS AND FILLING DEGREE:;NEW FILE NAME:; DISC DEVICE : ;TAPE DEVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIM
0x15d5b8…15d74c Dummy {f00=0x005c, f01=0x0190, f02=»OT USABLE;DISC I/O ERROR.;PRINTER NOT OPERABLE; TOO MANY SECTORS IN FILE; DISC OVERFLOW;TOO MANY EXTENTS NEEDED;ILLEGAL BLOCK LENGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EM
0x15d74c…15d8e0 Dummy {f00=0x005c, f01=0x0190, f02=»ECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TAPE MARK MISSING AFTER LABEL RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPU
0x15d8e0…15da74 (2, 56) Opaque[0x194]
0x15da74…15dc08 # DirEnt {nam=»FORMIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba0, f03=0x0000}
0x15da74…15dc08 IdxSect {
0x15da74…15dc08 f00 = 0x005d // 0x15da74 @0x0
0x15da74…15dc08 f01 = 0x0002 // 0x15da76 @0x2
0x15da74…15dc08 gno = [ // 0x15da78 @0x4
0x15da74…15dc08 [0x00]: C0x005d.0x0.0
0x15da74…15dc08 ]
0x15da74…15dc08 }
0x15dc08…15dd9c Dummy {f00=0x005d, f01=0x0190, f02=» P IDENT FORMIO DDUM DEMODD PDIV . ENTRY ZKOPNF < ENTRY ZLCLSF R PZKOPNF PROC h PZK000 | 4 P MOVE FCPARAM1,=X'00' FILL PAR BLOCK WITH ZEROES P MOVE WW1,=W'16' POINTER P MOVE WWINDEX1,=W'8' LENGTH ( P M
0x15dd9c…15df30 Dummy {f00=0x005d, f01=0x0190, f02=»01' DSNAME | ( P XCOPY FCPARAM1,WW1,KW3,WCSTRG6,KW0 P MOVE WW1,=W'29' POINTER > ( P XCOPY FCPARAM1,WW1,KW3,VCVOLNR2,KW0 ^ P MOVE WW1,=W'66' $ P OPEN DSFMTFLE,7,1,FCPARAM1,WW1 P COMMIT NWXSTAT PZK999 P RET P PEND
0x15df30…15e0c4 Dummy {f00=0x005d, f01=0x4064, f02=» RET P PEND P* P* $ P INCLUDE FMTPIC,LIST . P* J P END T@ ` FCPARAM1,WW1,KW3,VCVOLNR2,KW0 ^ P MOVE WW1,=W'66' $ P OPEN DSFMTFLE,7,1,FCPARAM1,WW1 P COMMIT NWXSTAT PZK999 P RET P PEND
0x15e0c4…15e258 Dummy {f00=0x005d, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x15e258…15e3ec Dummy {f00=0x005d, f01=0x0190, f02=»ZZZZ9,99 3 " 4 & LINE: 4 & " 4 4 99 4 F " 4 X & 4 h & CREDIT LIMIT: 4 v & D 4 ZZZZZZZZ9,99-C 4 " 4 & 4 & BALANCE : 4 & 4
0x15e3ec…15e580 Dummy {f00=0x005d, f01=0x0190, f02=» 4 & 5 & 5 & LAST TRANSACTION : 5 & & 5 J 99 5 " 5 n & 5 ~ & LAST PRINTED : 5 & 5 99 5 " 5 & 5 & ACCUM. DEPOSITS
0x15e580…15e714 (2, 57) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x005d // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x0004 // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x005d.0x1.0
0x15e714…15e8a8 [0x01]: C0x005d.0x2.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x005d, f01=0x0190, f02=» L P EDWRT SPDSSCRN,FMTPIC L P************************************************************************ T L P* * L P* DUMMY FORMAT TO IN
0x15ea3c…15ebd0 Dummy {f00=0x005d, f01=0x0190, f02=» L P************************************************************************ L PFMTPIC FRMT T L P FSL L P FMEL '9',IDNR1
0x15ebd0…15ed64 Dummy {f00=0x005d, f01=0x0190, f02=» L P FMEL '999',IDNR1 L P FMEL '9999',IDNR1 T L P FMEL '99999',IDNR1 L P FMEL '999999',IDNR1
0x15ed64…15eef8 Dummy {f00=0x005d, f01=0x0190, f02=»1 L P FMEL 'ZZ',IDNR1 B P FMEL 'ZZZ',IDNR1 P FMEL 'ZZZZ',IDNR1 L P FMEL 'ZZZZZ',IDNR1
0x15eef8…15f08c Dummy {f00=0x005d, f01=0x0190, f02=» f P FMEL 'Z9,99',IDNR1 & L P FMEL 'ZZZZ9',IDNR1 B L P FMEL 'ZZZ9,99',IDNR1 L P FMEL 'ZZZ9,99-',IDNR1
0x15f08c…15f220 Dummy {f00=0x005d, f01=0x0190, f02=» n P FMEL 'ZZZZ9,99-',IDNR1 . L P FMEL 'ZZZZZ9,99',IDNR1 N P FMEL 'ZZZZZ9,99-',IDNR1 P FMEL 'ZZZZZZ,ZZ',IDNR1 L P FMEL 'ZZZZZZZZ9,99',IDNR1
0x15f220…15f3b4 (2, 58) Dummy {f00=0x005d, f01=0x0190, f02=»Z',IDNR1 ~ P FMEL 'ZZZZZZZZZ,ZZ-',IDNR1 L P FMEL '99E:99',IDNR1 4 P FMEL 'ZZE:ZZ',IDNR1 & P FMEL 'ZZVZZ9,99',IDNR1 & P FMEL 'ZZVZZZ,ZZ',IDNR1 L P FMEL '99E-99E-99',I
0x15f3b4…15f548 Dummy {f00=0x005d, f01=0x4134, f02=»ZZVZZZVZZ9,99',IDNR1 P FMEL 'ZZZVZZZVZZZ,ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1 @ L P FMEND L P****************************************
0x15f548…15f6dc Dummy {f00=0x005d, f01=0x2008, f02=» **************************************** x L P END 8@ L 'ZZE:ZZE:ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1
0x15f6dc…15f870 Dummy {f00=0x005d, f01=0x0190, f02=» * F0 0 0 !0 "0 $ % *
0x15f870…15fa04 Dummy {f00=0x005d, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0 0 0 0 !0 '0 -0
0x15fa04…15fb98 Dummy {f00=0x005d, f01=0x0190, f02=»0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D D D U U f D f > *
0x15fb98…15fd2c Dummy {f00=0x005d, f01=0x0190, f02=» 7 ( ] D E X`j DEX D' W_j D W D*j D DF0 DP 1 A A24 0 4 1 4 f
0x15fd2c…15fec0 Dummy {f00=0x005d, f01=0x0190, f02=»001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ
0x15fec0…160054 (2, 59) Opaque[0x194]
0x160054…1601e8 # DirEnt {nam=»FORMAT«, typ=»SC«, f00=0x0002, f01=0xa020, f02=0x0bb8, f03=0x0808}
0x160054…1601e8 IdxSect {
0x160054…1601e8 f00 = 0x005d // 0x160054 @0x0
0x160054…1601e8 f01 = 0x000a // 0x160056 @0x2
0x160054…1601e8 gno = [ // 0x160058 @0x4
0x160054…1601e8 [0x00]: C0x005d.0x3.0
0x160054…1601e8 [0x01]: C0x005e.0x0.0
0x160054…1601e8 [0x02]: C0x005e.0x1.0
0x160054…1601e8 [0x03]: C0x005e.0x2.0
0x160054…1601e8 [0x04]: C0x005e.0x3.0
0x160054…1601e8 ]
0x160054…1601e8 }
0x1601e8…16037c Dummy {f00=0x005d, f01=0x0190, f02=» P IDENT FORMAT L P************************************************************************ " L P* FUNCTIONAL DESCRIPTION : * r L P* BUILDING 100 FORMATS OF THE FORMAT-FILE IN A
0x16037c…160510 Dummy {f00=0x005d, f01=0x0190, f02=» 2 RECORDS MAXIMAL * b L P* A MAXIMUM OF 4 LANGUAGES IS ALLOWED * " L P* THE 100 FORMATS ARE GROUPED TOGETHER IN A FORMAT- * r L P* TABEL AND HAVE THE NAMES FMT01 - - - FMT100
0x160510…1606a4 Dummy {f00=0x005d, f01=0x0190, f02=»NTS OF THE 100 FORMATS IN* b L P* THE DESIRED LANGUAGE AND EXECUTE THIS MODULE. * " L P* AFTER CREATION OF A ( EMPTY ) FORMAT-FILE , THE * r L P* FIRST LANGUAGE-NUMBER ( AFTER EXECUTING THIS MODU
0x1606a4…160838 Dummy {f00=0x005d, f01=0x0190, f02=»IN ANY ORDER * b L P* THIS FORMAT-FILE WILL BE USED BY PROGRAM 'DEMODD' * " L P* IF A FORMAT-RECORD CONTAINS MORE BYTES THAN A * r L P* RECORD , THE REMAINING PART OF THE FORMAT-
0x160838…1609cc Dummy {f00=0x005d, f01=0x0190, f02=»E RECORD-NUMBER OF THE * b L P* OVERFLOW-RECORD WILL BE WRITTEN IN THE LAST * " L P* TWO BYTES OF THE CONCERNING FORMAT-RECORD * r L P* PROCEDURES USED : BALGG (LOOKS FOR A FREE LANGUAGE-NUMBER )
0x1609cc…160b60 Dummy {f00=0x005d, f01=0x0190, f02=»T-FILE ) * b L P************************************************************************ " P DDUM DEMODD r P PDIV L P************************************************************************ L P* FUNCTIONAL DESCRIPTION
0x160b60…160cf4 (2, 60) Dummy {f00=0x005e, f01=0x0190, f02=» INITIALIZATION * L P* ASKS VOLUME-NUMBER OF FORMAT-FILE * J L P* READS FIRST RECORD OF FORMAT-FILE * L P* IF N
0x160cf4…160e88 Dummy {f00=0x005e, f01=0x0190, f02=» WILL BE TOTAL AMOUNT OF LANG * L P* UAGES X TOTAL AMOUNT OF FORMATS* J L P* +1 ( IN THIS CASE 4X100+1=401 * R P*
0x160e88…16101c Dummy {f00=0x005e, f01=0x0190, f02=»* -ASKS LANGUAGE-NUMBER * L P* WRITES FORMATS ON FORMAT-FILE ; THE RELATIVE * P L P* RECORDNUMBER OF A FORMAT ON THE FORMAT-FILE * L P*
0x16101c…1611b0 Dummy {f00=0x005e, f01=0x018e, f02=»* ( IF E.G. LANGUAGE-NUMBER = 3 AND * L P* FORMAT-NUMBER = 17 , THE RELATIVE RECORD- * P L P* NUMBER WILL BE 3X100 + 17 = 317 ) * L P************************
0x1611b0…161344 Dummy {f00=0x005e, f01=0x0190, f02=» P ENTRY AAMAIN PKTB KTAB X'FF',X'90',X'92' & P EJECT H PAAMAIN V PAA000 d " P DSC0 SPDSDYKB,02 CLEAR BUFFER r P EDWRT SPDSSCRN,FMTI P EDWRT SPDSSCRN,FMTF P MOVE KWCONT,=W'6' , P KI SPDSDYKB,WCSTRG6,K
0x161344…1614d8 Dummy {f00=0x005e, f01=0x0190, f02=» MOVE WW2,KDMAXLGG ) H P MUL WW2,KWNRFMT ) COMPUTE FIRST OVERFLOW-REC 0 P ADD WW2,KW1 | PAA200 P EDWRT SPDSSCRN,FMTI < P EDWRT SPDSSCRN,FMTA ASK VOLUME-NAME P DSC0 SPDSDYKB
0x1614d8…16166c Dummy {f00=0x005e, f01=0x0190, f02=»W1 ACCESS USERWORKBLOCK P PERF ZKOPNF P BNOK AA900 > P MOVE NWTOTBYT,KWFMTLNG R P SUB NWTOTBYT,KW2 r P MOVE KWCONT,KWFMTLNG , P READ .DIR,DSFMTFLE,FCFMTBUF,KWCONT,KD1 P XSTAT DSFMTFLE,WW1 $ P MOVE WWINDEX1,=X'
0x16166c…161800 Dummy {f00=0x005e, f01=0x0190, f02=»W2,FCFMTBUF,NWTOTBYT FIRST FREE OVERFLOW-RECORD x P PERF BALGG 8 PAA400 T * P MOVE WWINDEX1,KW0 INITIATE FORMAT-NR b PAA500 P COMMIT NWXSTAT D P ADD WWINDEX2,KW1 GIVES RELATIVE-RECORD-NR < P ADD
0x161800…161994 (2, 61) Dummy {f00=0x005e, f01=0x018e, f02=»E,FCFORMAT,FMTTAB(WWINDEX1) " P MOVE FCFMTBUF,=D'0' $ 6 P XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,KW0 J 4 P XCOPY SPBINW3,KW0,KW2,FCFORMAT,NWTOTBYT $ P MOVE SPBINW4,=X'E9E9' P MOVE WDEC1,WWINDEX2 ( P C
0x161994…161b28 Dummy {f00=0x005e, f01=0x0190, f02=» x P B AA910 PAA600 $ J P* FORMATS ARE LONGER THAN 1 RECORD ; 1 RECORD + 1 OVERFLOW-RECORD 2 0 P* HAVE TO BE WRITTEN ON THE FORMAT-FILE 0 P XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0 ( P WRITE .DIR,DSFMTFLE,FCFMTBUF,WD
0x161b28…161cbc Dummy {f00=0x005e, f01=0x0190, f02=» MOVE SPBINW1,NWTOTBYT P ADD SPBINW1,NWTOTBYT , P XCOPY SPBINW3,KW0,KW2,FCFORMAT,SPBINW1 < P CBNE SPBINW3,SPBINW4,AA650 l ( P WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 6 P ADD WW2,KW1 NEXT OVERFLOW-RECORDNUMBER P B AA5
0x161cbc…161e50 Dummy {f00=0x005e, f01=0x0190, f02=»,KW2,WW2,KW0 x ( P WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 P MOVE FCFMTBUF,=D'0' @ 2 P XCOPY FCFMTBUF,KW0,NWTOTBYT,FCFORMAT,SPBINW1 P MOVE WDEC2,WW2 ( P WRITE .DIR,DSFMTFLE,FCFMTBUF,WDEC2 P XSTAT DSFMTFLE,NWXSTAT P ADD WW2,KW1
0x161e50…161fe4 Dummy {f00=0x005e, f01=0x0190, f02=»WW1,KWFMTLNG P MOVE WDEC1,KW1 * P READ .DIR,DSFMTFLE,FCFMTBUF,WW1,WDEC1 , 0 P XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0 Z P DISCARD .DIR,DSFMTFLE,KD1 & P WRITE .DIR,DSFMTFLE,FCFMTBUF,KD1 P XSTAT DSFMTFLE,NWXSTAT P B AA920
0x161fe4…162178 Dummy {f00=0x005e, f01=0x0190, f02=» B AA999 PAA910 P EDWRT SPDSSCRN,FMTI " P EDWRT SPDSSCRN,FMTG I/O ERROR : P B AA999 ` PAA920 p P EDWRT SPDSSCRN,FMTI ~ ( P EDWRT SPDSSCRN,FMTH SUCCESSFULL END P B AA999 PAA930 P EDWRT SPDSSCRN,FMTI " P EDWRT S
0x162178…16230c Dummy {f00=0x005e, f01=0x0190, f02=»AA999 P PERF ZLCLSF P EXIT " P EJECT 6 PBALGG PROC J L P************************************************************************ ^ L P* FUNCTIONAL DESCRIPTION : * L P*
0x16230c…1624a0 Dummy {f00=0x005e, f01=0x0190, f02=» * N L P* THE PROCEDURE "BALGG" READS THE FIRST FORMAT- * < P* RECORD OF THE CONCERNED LANGUAGE, ^ L P* THE PROCEDURE "MASK" GIVES A CONDITION-CODE EQUAL L P* 1 W
0x1624a0…162634 (2, 62) Dummy {f00=0x005e, f01=0x0190, f02=»********************************************************************** PBA000 N D P MOVE WWCOUNT,KW0 INITIATE AMOUNT OF TRIES PBA100 P MOVE WW1,KDMAXLGG P EDWRT SPDSSCRN,FMTI P EDWRT SPDSSCRN,FMTB
0x162634…1627c8 Dummy {f00=0x005e, f01=0x0190, f02=»00 | $ P MOVE NDTRMLGG,VCVOLNR1 P MOVE WWINDEX2,NDTRMLGG 2 & P CBE WWINDEX2,KW0,BA200 R & P CBNL WWINDEX2,WW1,BA200 | H P MUL WWINDEX2,KWNRFMT COUNT RELATIVE-RECORD-NUMBER H P ADD WWINDEX
0x1627c8…16295c Dummy {f00=0x005e, f01=0x0190, f02=»,KWCONT,WDEC1 t P XSTAT DSFMTFLE,WW1 $ P MOVE WWINDEX1,=X'8800' NO DATA 2 P CALL MASK,WW1,WWINDEX1 Z P BNOK BA900 z PBA200 P COMMIT NWXSTAT P ADD WWCOUNT,KW1 & P CBNG WWCOUNT,=W'6',BA100 $ P* TO
0x16295c…162af0 Dummy {f00=0x005e, f01=0x0190, f02=» P PEND P EJECT & P INCLUDE ENGDEF FORMAT DEFINITIONS * L P************************************************************************ T P* P* PFMTA FRMT P FSL 0 P FTEXT ' VOLUME-NAME ? : DSC'
0x162af0…162c84 Dummy {f00=0x005e, f01=0x0190, f02=»RMT P FSL . P FTEXT 'OPEN FORMAT-FILE NOT SUCCESSFULL' P FMEND J PFMTD FRMT ^ P FSL r 0 P FTEXT 'MORE THAN 6 LANGUAGE-NUMBERS TRIED' ~ P FNL , P FTEXT 'PERHAPS NO FREE LANGUAGE-NUMBER' P FMEND P
0x162c84…162e18 Dummy {f00=0x005e, f01=0x0190, f02=» n P FMEND PFMTF FRMT P FNL 0 $ P FTEXT 'PRESS CONTINUE' B P FMEND j PFMTG FRMT ~ P FNL ( P FTEXT 'I/O ERROR WHILE READING OR ' P FSL P FTEXT 'WRITING FORMAT-FILE' P
0x162e18…162fac Dummy {f00=0x005e, f01=0x4056, f02=»RMT CLEARS SCREEN P FCOPY =X'2031' P FMEND 2 P END @@ RS CONTINUE' B P FMEND j PFMTG FRMT ~ P FNL ( P FTEXT 'I/O ERROR WHILE READING OR ' P FSL P FTEXT 'WRITING FORMAT-FILE' P
0x162fac…163140 Dummy {f00=0x005e, f01=0x2008, f02=» PFMT97 FRMT * P FMEND * PFMT98 FRMT * 2 P FMEND * F PFMT99 FRMT * Z P FMEND * n PFMT100 FRMT * P FMEND * P END * @ * FMEND ) PFMT92 FRMT ) P FMEND ) PFMT93 FRMT )
0x163140…1632d4 (2, 63) Dummy {f00=0x005e, f01=0x0190, f02=» V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 D G #0 T B ' : B B C6 : V C G P C #0 T & C C : B C C :ERERERF4GDE G<M@J J
0x1632d4…163468 Dummy {f00=0x005e, f01=0x0190, f02=»! P x` P W E, @D R a F@ pVV 9c DD 9a1 P H0 G Q D W LL :aW* @D YZP & @D ]f @D ]p ]z 2 P V W< _ 2 # ;B G V T W V P L , V 2P " 2 P V D !
0x163468…1635fc Dummy {f00=0x005e, f01=0x0190, f02=» V E W 2 % ^ 6 E 7_ 2 # PL L PF H0 2# &] 3Y $! 2P R P _ 9BP E _ W E 6 D " 7 $ V P x` W F2 DR E~ J V & E HD 'W 'W '_8 :l:d:h
0x1635fc…163790 Dummy {f00=0x005e, f01=0x0190, f02=» # J LGn D V $ W D V LGv , W 6 2 JRW$ " P& Pd" # J ;b Wv " ;d# _ [ v [ x H0 x Z Z : R ; H0 6 : F _v ] :B , (V ; H [ [
0x163790…163924 Dummy {f00=0x005e, f01=0x0190, f02=» ] ] & Z 4 J : Z 4 " 2@P : [ [ H0 & @ ! P ]v Z ]v [ 6 [ Z 7 G Z 7 : T # ( H Hh " T # :A ( @ " P ! P [ :;H 2 ;h
0x163924…163ab8 Dummy {f00=0x005e, f01=0x0190, f02=» # " T & T + : * & !@P `1` P L Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _
0x163ab8…163c4c Dummy {f00=0x005e, f01=0x0190, f02=»P8" T * & : * & !`P :J +_ +Q L _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b N P NZ Pd P 0
0x163c4c…163de0 Dummy {f00=0x005e, f01=0x0190, f02=»^ , < N # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : ] &9d! + P( & T 9d!
0x163de0…163f74 (2, 64) Opaque[0x194]
0x163f74…164108 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0010, f02=0x0be0, f03=0x0808}
0x163f74…164108 IdxSect {
0x163f74…164108 f00 = 0x005f // 0x163f74 @0x0
0x163f74…164108 f01 = 0x00c0 // 0x163f76 @0x2
0x163f74…164108 gno = [ // 0x163f78 @0x4
0x163f74…164108 [0x00]: C0x005f.0x0.0
0x163f74…164108 [0x01]: C0x005f.0x1.0
0x163f74…164108 [0x02]: C0x005f.0x2.0
0x163f74…164108 [0x03]: C0x005f.0x3.0
0x163f74…164108 [0x04]: C0x0060.0x0.0
0x163f74…164108 [0x05]: C0x0060.0x1.0
0x163f74…164108 [0x06]: C0x0060.0x2.0
0x163f74…164108 [0x07]: C0x0060.0x3.0
0x163f74…164108 [0x08]: C0x0061.0x0.0
0x163f74…164108 [0x09]: C0x0061.0x1.0
0x163f74…164108 [0x0a]: C0x0061.0x2.0
0x163f74…164108 [0x0b]: C0x0061.0x3.0
0x163f74…164108 [0x0c]: C0x0062.0x0.0
0x163f74…164108 [0x0d]: C0x0062.0x1.0
0x163f74…164108 [0x0e]: C0x0062.0x2.0
0x163f74…164108 [0x0f]: C0x0062.0x3.0
0x163f74…164108 [0x10]: C0x0063.0x0.0
0x163f74…164108 [0x11]: C0x0063.0x1.0
0x163f74…164108 [0x12]: C0x0063.0x2.0
0x163f74…164108 [0x13]: C0x0063.0x3.0
0x163f74…164108 [0x14]: C0x0064.0x0.0
0x163f74…164108 [0x15]: C0x0064.0x1.0
0x163f74…164108 [0x16]: C0x0064.0x2.0
0x163f74…164108 [0x17]: C0x0064.0x3.0
0x163f74…164108 [0x18]: C0x0065.0x0.0
0x163f74…164108 [0x19]: C0x0065.0x1.0
0x163f74…164108 [0x1a]: C0x0065.0x2.0
0x163f74…164108 [0x1b]: C0x0065.0x3.0
0x163f74…164108 [0x1c]: C0x0066.0x0.0
0x163f74…164108 [0x1d]: C0x0066.0x1.0
0x163f74…164108 [0x1e]: C0x0066.0x2.0
0x163f74…164108 [0x1f]: C0x0066.0x3.0
0x163f74…164108 [0x20]: C0x0067.0x0.0
0x163f74…164108 [0x21]: C0x0067.0x1.0
0x163f74…164108 [0x22]: C0x0067.0x2.0
0x163f74…164108 [0x23]: C0x0067.0x3.0
0x163f74…164108 [0x24]: C0x0068.0x0.0
0x163f74…164108 [0x25]: C0x0068.0x1.0
0x163f74…164108 [0x26]: C0x0068.0x2.0
0x163f74…164108 [0x27]: C0x0068.0x3.0
0x163f74…164108 [0x28]: C0x0069.0x0.0
0x163f74…164108 [0x29]: C0x0069.0x1.0
0x163f74…164108 [0x2a]: C0x0069.0x2.0
0x163f74…164108 [0x2b]: C0x0069.0x3.0
0x163f74…164108 [0x2c]: C0x006a.0x0.0
0x163f74…164108 [0x2d]: C0x006a.0x1.0
0x163f74…164108 [0x2e]: C0x006a.0x2.0
0x163f74…164108 [0x2f]: C0x006a.0x3.0
0x163f74…164108 [0x30]: C0x006b.0x0.0
0x163f74…164108 [0x31]: C0x006b.0x1.0
0x163f74…164108 [0x32]: C0x006b.0x2.0
0x163f74…164108 [0x33]: C0x006b.0x3.0
0x163f74…164108 [0x34]: C0x006c.0x0.0
0x163f74…164108 [0x35]: C0x006c.0x1.0
0x163f74…164108 [0x36]: C0x006c.0x2.0
0x163f74…164108 [0x37]: C0x006c.0x3.0
0x163f74…164108 [0x38]: C0x006d.0x0.0
0x163f74…164108 [0x39]: C0x006d.0x1.0
0x163f74…164108 [0x3a]: C0x006d.0x2.0
0x163f74…164108 [0x3b]: C0x006d.0x3.0
0x163f74…164108 [0x3c]: C0x006e.0x0.0
0x163f74…164108 [0x3d]: C0x006e.0x1.0
0x163f74…164108 [0x3e]: C0x006e.0x2.0
0x163f74…164108 [0x3f]: C0x006e.0x3.0
0x163f74…164108 [0x40]: C0x006f.0x0.0
0x163f74…164108 [0x41]: C0x006f.0x1.0
0x163f74…164108 [0x42]: C0x006f.0x2.0
0x163f74…164108 [0x43]: C0x006f.0x3.0
0x163f74…164108 [0x44]: C0x0070.0x0.0
0x163f74…164108 [0x45]: C0x0070.0x1.0
0x163f74…164108 [0x46]: C0x0070.0x2.0
0x163f74…164108 [0x47]: C0x0070.0x3.0
0x163f74…164108 [0x48]: C0x013e.0x0.0
0x163f74…164108 [0x49]: C0x013e.0x1.0
0x163f74…164108 [0x4a]: C0x013e.0x2.0
0x163f74…164108 [0x4b]: C0x013e.0x3.0
0x163f74…164108 [0x4c]: C0x013f.0x0.0
0x163f74…164108 [0x4d]: C0x013f.0x1.0
0x163f74…164108 [0x4e]: C0x013f.0x2.0
0x163f74…164108 [0x4f]: C0x013f.0x3.0
0x163f74…164108 [0x50]: C0x0140.0x0.0
0x163f74…164108 [0x51]: C0x0140.0x1.0
0x163f74…164108 [0x52]: C0x0140.0x2.0
0x163f74…164108 [0x53]: C0x0140.0x3.0
0x163f74…164108 [0x54]: C0x0141.0x0.0
0x163f74…164108 [0x55]: C0x0141.0x1.0
0x163f74…164108 [0x56]: C0x0141.0x2.0
0x163f74…164108 [0x57]: C0x0141.0x3.0
0x163f74…164108 [0x58]: C0x0142.0x0.0
0x163f74…164108 [0x59]: C0x0142.0x1.0
0x163f74…164108 [0x5a]: C0x0142.0x2.0
0x163f74…164108 [0x5b]: C0x0142.0x3.0
0x163f74…164108 [0x5c]: C0x0143.0x0.0
0x163f74…164108 [0x5d]: C0x0143.0x1.0
0x163f74…164108 [0x5e]: C0x0143.0x2.0
0x163f74…164108 [0x5f]: C0x0143.0x3.0
0x163f74…164108 ]
0x163f74…164108 }
0x164108…16429c Dummy {f00=0x005f, f01=0x8190, f02=» . H IDENT FORMAT TRA 10.0 81-03-27 F1 O1111 V AAMAIN V 6 $$$TRAR V H AAMAIN V Z B > FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR V n @ < T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKOPNF ZLCLSF V V
0x16429c…164430 Dummy {f00=0x005f, f01=0x8190, f02=» 0 V 0 W + W " - W 2 / W B 1 W R 3 W b : W r = W J F " D 0X 1X F1X F L0X WK "L "L E E E 1X F1X F0X 0X K W E W J W W
0x164430…1645c4 Dummy {f00=0x005f, f01=0x8190, f02=» ] 0X D GL0RDGT 0X jE ]P R G 0X H G W r X 0 X @ X P X b X t X X X J F " D "G 0R^FG ]Lj] P^ jB ^P CL JH(BC 0X ]J0X ^6W|j]P E 0X ]J ]Lj] X
0x1645c4…164758 Dummy {f00=0x005f, f01=0x818e, f02=»P^@ KE0X ]K0 X V Y Y $ Y 4 Y D " Y T $ Y d & Y t ( Y , Y . Y 0 Y 2 Y 6 Y 8 Y : Y
0x164758…1648ec Dummy {f00=0x005f, f01=0x818e, f02=» F Z J Z L Z $ N Z 4 P Z D R Z T T Z d Z t ^ Z ` Z b Z d Z k Z n Z J F " D @X F1X FW 1X F1X F R0X I D 1X
0x1648ec…164a80 Dummy {f00=0x005f, f01=0x8190, f02=» Z [ * d [ " [ ( " [ 6 " [ D " [ R " [ ` " [ n " [ | " [ " [ " [ " [ " [ " [ " [ " [ " [
0x164a80…164c14 (2, 65) Dummy {f00=0x005f, f01=0x8190, f02=» " ; " " " = . " < " J " X " f " t " " " " > " B " G " M " T " W " ]
0x164c14…164da8 Dummy {f00=0x005f, f01=0x818e, f02=» " ] " ] " ] & " ] 4 " ] B " ] P " ] ^ " ] l " ] z " ] " ] " ] " ] " ] " ] " ] " ] " ]
0x164da8…164f3c Dummy {f00=0x005f, f01=0x8190, f02=» " ^ " ^ " ^ " ^ . " ^ < " ^ J " ^ X " ^ f " ^ t " ^ " ^ " ^ " ^ " ^ " ^ " ^ " ^ ( ^ " ^
0x164f3c…1650d0 Dummy {f00=0x005f, f01=0x8190, f02=» BILDSCHIRM 01/06/08/20/24 ? ^ & _ & 99 _ 8 " e _ J ( _ Z z _ f & _ v & _ & *********M _ 8 3 &1 -VORFUEHRUNG PHILIPS PTS 6344 BILDSCHIRMGERAET _ & *********N _ & _
0x1650d0…165264 Dummy {f00=0x005f, f01=0x8190, f02=» & _ & ` , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS ` & ! ` L & ! ` Z & ! ` h & ! ` v & ` & ` , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS ` & ! ` & ! ` & ! ` & ! & VORHANDE
0x165264…1653f8 Dummy {f00=0x005f, f01=0x818e, f02=»@ABCDEFGHIJKLMNO ` & a & a & & a 4 & PQRSTUVWXYZ[ ]^_ a B & `abcdefghijklmno a ` & pqrstuvwxyz{|}~ a ~ & a & a & a & NATIONALER VERSION : a & a & #@[ ]`{|}~ a
0x1653f8…16558c Dummy {f00=0x005f, f01=0x8190, f02=» a & b & OPTION : b & b 2 , ' &% !24 LINES / 80 CHARACTERS PER LINES b @ & ! b p & ! b ~ & ! b & NAME :H b & @ E b & b & b & ADRESSE : b & ,@
0x16558c…165720 Dummy {f00=0x005f, f01=0x8190, f02=» & ,@ c & c & c $ & ZWEIGSTELLENR :H c 2 & I c P ZZZZ c b " e c v & c & KONTO NR. :N c & , T c ZZZZZZZZZZZZ c " e c ( c c
0x165720…1658b4 (2, 66) Dummy {f00=0x005f, f01=0x8190, f02=»S. DRUCKEN (N=0,L=1,R=2) ? c & ! @ d " 9@ d 4 " 9 d F & d V $ & TEP(=0) TTP(=1) GTP(=2) ?, d d & ! @ d 9@ d " : d & d $ & NEIN(=0),BCR=(1),MSU(=2) ? d & ! @ d
0x1658b4…165a48 Dummy {f00=0x005f, f01=0x8190, f02=» d & TERMINAL NR. :) e & e & 999N e 4 " 2E e H & e X & 8 E e f & NAME TERMINAL ?) e v & E e & 5 e & ' e & NAME TERMINAL :) e & e & SCHALTER TRM( e
0x165a48…165bdc Dummy {f00=0x005f, f01=0x8190, f02=»& $ @ e 9@ f " & f " & f 2 & SYSTEM WAEHRUNG ? f @ & ! f ` & 8 Y f n & ! @T f ~ & # f & # f & TEXT ? f & f & 8 E f & @T f & ' f & ' f
0x165bdc…165d70 Dummy {f00=0x005f, f01=0x818e, f02=»& f ZZE-ZZE-ZZ g " g * ( g : g F & g V & WAEHRUNGSNAME : g d & 8 A g & @H g & r g & r g & WAEHRUNGSCODE : g & 8 A g & @H g & s g
0x165d70…165f04 Dummy {f00=0x005f, f01=0x8190, f02=» g v & h ZZZ9,99- h " t h 2 & h B & (2) h P & h b ZZZZ,ZZR h t " u h & h & VERKAUFSKURSE :(1) h & h ZZZ9,99- h " v h &
0x165f04…166098 Dummy {f00=0x005f, f01=0x8190, f02=» h ZZZZZZ,ZZM i " x i & ( i 6 i B & i R & BEDIENER NR. :( i ` & i ~ ZZZZZR i " e i ( i i & i & NAME BEDIENER :( i & 8 A i
0x166098…16622c Dummy {f00=0x005f, f01=0x8190, f02=»RACHE :( i & @ j 9@ j ( " j : & j J & j X & j f & j t & j & KASSENBESTAND :( j & j & # A j & S j ZZZZZZZZ9,99-( j " S j
0x16622c…1663c0 Dummy {f00=0x005f, f01=0x8190, f02=» j & # k & S k ! ZZZZZZZZ9,99-( k * " ! S k H & ! k Z & k h & # k v & S k " ZZZZZZZZ9,99-( k " " S k & " k , ' &% !AKK. AUF NULL STELLEN (N=0,J=1) ?S k
0x1663c0…166554 (2, 67) Dummy {f00=0x005f, f01=0x8190, f02=» & # I l & Z l % ZZZZZZZZ9,99- l & " % Z l D & % l V & AUSZAHLUNGEN :E l d & l & # U l & Z l & ZZZZZZZZ9,99- l " & Z l & & l & AKKUM. SCHECKS
0x166554…1666e8 Dummy {f00=0x005f, f01=0x818e, f02=» UEBERWEIS. :E l & m & # K m $ & U m 4 ( ZZZZZZZZ9,99-S m F " ( U m d & ( m v & ( m & ( m & ( m & WAEHRUNGSVERKAEUFE:E m & # A m & H m ) ZZZZZZZZ9,99-U
0x1666e8…16687c Dummy {f00=0x005f, f01=0x8190, f02=» " * H n & * n & WAEHRUNGS AKKUM. :E n $ & # A n F & H n V + ZZZZZZZZ9,99-. n h " + H n & + n & n & # n & H n , ZZZZZZZZ9,99-. n " , H n
0x16687c…166a10 Dummy {f00=0x005f, f01=0x8190, f02=» & - n & ' o & ' o & TERMINAL :K o * & o D & 8 T o R & 5 o b & o p & SCHALTER NR.(U o ~ / 999T o " /2C o & )C o & " o 0 999T o " 02C o & 0 o
0x166a10…166ba4 Dummy {f00=0x005f, f01=0x8190, f02=» o 2 ZZE-ZZE-ZZ p " 2e p ( ( p 8 3 Q p D & 2 p T & BEDIENER NR. : p b & p 4 ZZZZZR p " 4e p & 4 p & KENNWORT : p & p & j p &
0x166ba4…166d38 Dummy {f00=0x005f, f01=0x8190, f02=»& NAME BEDIENER : p & q & q * & KASSENBESTAND : q 8 & q V & # A q d & q t 7 ZZZZZZZZ9,99- q " 7 S q & 7 q & q & # q & q 8 ZZZZZZZZ9,99- q
0x166d38…166ecc Dummy {f00=0x005f, f01=0x8190, f02=» & r & # r & r " : ZZZZZZZZ9,99- r 0 " : S r N & : r ` & " & TASTE CONT ODER TASTE CANCEL r n & $ T r & W r ( r ; x r & W r & T3 r & 6 r &
0x166ecc…167060 Dummy {f00=0x005f, f01=0x818e, f02=» r t & $ s $ & KONTO ODER KARTENNUMMER : s & s > < ZZZZZZ s P " <a s f ( s v = s & < s & < s $ & BITTE FUNKTION EINGEBEN : s ( s > s & s & Q s
0x167060…1671f4 (2, 68) Dummy {f00=0x0060, f01=0x8190, f02=» s & ? t & NAME :G t & t . & t @ & t N & ADRESSE :G t & t t & t & t & ORT :G t & t & t & t & Q t & KENNWORT:G
0x1671f4…167388 Dummy {f00=0x0060, f01=0x8190, f02=»REDIT LIMIT: t & E u A ZZZZZZZ9,99: u & " A u B ( u R B u ^ & A u n & u | $ ! & ABSCHLUSS SPARKONTO NR. : u & u $ ! & ABSCHLUSS GIROKONTO NR. : u & u C 999999 u
0x167388…16751c Dummy {f00=0x0060, f01=0x8190, f02=» D ZZZZZZZZ9,99 u " D K v & D v ( & K v 6 & BUCH SALDO : v F & v f & KREDIT LIMIT : v t & v E ZZZZZZZZ9,99 v " E R v & E v & R v & KENNWORT : v
0x16751c…1676b0 Dummy {f00=0x0060, f01=0x818e, f02=» G w & F w & A w " $ & EINZAHLUNG - SPARKONTO: w 2 & w Z $ & EINZAHLUNG - GIROKONTO: w h & w H 999999 w " HaI w & H w & .I w & R+I w & BUCH SALDO :- w
0x1676b0…167844 Dummy {f00=0x0060, f01=0x8190, f02=» " Je x & x & NAME :- x " & x > & x L & x Z & BETRAG :- x h & x K ZZZZZZZZZ,ZZ x " K x & K x & NEUER SALDO :- x & x L ZZZZZZ
0x167844…1679d8 Dummy {f00=0x0060, f01=0x818e, f02=» x & GIRO y & KONTO : y & y 2 N 999999 y @ " NaO y V & N y f & O y t & y & - KENNWORT :O y & y & y & , y & Q y & NAME : y &
0x1679d8…167b6c Dummy {f00=0x0060, f01=0x818e, f02=» y & BUCH SALDO : z & z $ O ZZZZZZZZZ,ZZ z 6 " Oc z R & z b & ZEILE: z p & # z P ZZ z " Pe z & z & KREDIT LIMIT: z & z Q ZZZZZZZZ9,99 z
0x167b6c…167d00 Dummy {f00=0x0060, f01=0x8190, f02=» & NEUER SALDO : { & { S ZZZZZZZZ9,99- { . " S E { L ( { T . { h & { x & Z { U ZE { " U9 { & { & { & ` { & BEDIENER START { & a E
0x167d00…167e94 (2, 69) Dummy {f00=0x0060, f01=0x8190, f02=» { & K. ENTSPERRENS | & e . | $ & KONTO AENDERNS | 4 & f O | P & WAEHR. AENDERN | ` & g A | | & KONTO ABFRAGEN | & h O | & TAGESAUSZUGG | & i A | & BED. ABSCHLUSS | & j E |
0x167e94…168028 Dummy {f00=0x0060, f01=0x818e, f02=» & KONTEN LISTENE } & } & ` O } . & i O } > & Z O } N & } ^ & } l V ZZZZZZ } z " V O } & X O } & Y O } & } & } & } ( } W 5 }
0x168028…1681bc Dummy {f00=0x0060, f01=0x8190, f02=» } Y 999999 ~ " Y B ~ & ~ . Z 99999L ~ < " Z=B ~ R & ~ b [ 999C ~ p " [2B ~ & ~ 99E:99 ~ " B ~ & X B ~ & Y B ~ & ~ & ~ &
0x1681bc…168350 Dummy {f00=0x0060, f01=0x8190, f02=»ZZ ~ " ^a & & ( _ 999999 6 " _a L & _ & + j & BUCH SALDO : z & ` ZZZZZZZZZ,ZZ " `c & ZEILE: & " a ZZ
0x168350…1684e4 Dummy {f00=0x0060, f01=0x8190, f02=»& BETRAG : & c ZZZZZZZZZ,ZZ , " c H & c X & NEUER SALDO : f & d ZZZZZZZZ9,99- " d E & d " & UEBERWEISUNG AUF KONTO: &
0x1684e4…168678 Dummy {f00=0x0060, f01=0x8190, f02=» $ ! & ABFRAGE GIROKONTO NUMMER : & 2 g 999999 @ " gaB V & g f & SALDO : t & h ZZZZZZZZ9,99- " h A & h & A & BUCH SALDO :
0x168678…16880c Dummy {f00=0x0060, f01=0x8190, f02=» : & j 9T " j T . & j > ( $ &" LETZTE TRANS.VERLANGT(N=0,J=1) L & @ x k 9@ " ke ( l & k & # &! TRANSAKTION ABFRAGE-KONTONR: &
0x16880c…1689a0 Dummy {f00=0x0060, f01=0x8190, f02=»/R o 99999: " o R & /R 0 p 999999 @ " p R V & /R f q 99E-99E-99 v " q R & q & BETRAG : & r ZZZZZZZZ9,99- " r E &
0x1689a0…168b34 (2, 70) Dummy {f00=0x0060, f01=0x8190, f02=»T (N=0,J=1) v & @ t 9@ & " te 8 ( H u ' T & t d & C r & c & " & SPERREN SPARKONTO NUMMER : & a & " & ENTSPERREN SPARKONTO NUMMER: & A & c
0x168b34…168cc8 Dummy {f00=0x0060, f01=0x8190, f02=» " vaN & v & NAME : " & : & H & V & AKTUELLER SALDO :N d & w ZZZZZZZZ9,99- " w K & w & K & BUCH SALDO :N &
0x168cc8…168e5c Dummy {f00=0x0060, f01=0x8190, f02=»ZZZZ9,99- " y R & y " & 8 R 0 & BEMERKUNG :T @ & @ @E Z & l & z & " & TASTE CONT ODER TASTE CANCEL ( z & & & " & SPARBUCH IN DRUCKER EINLEGEN
0x168e5c…168ff0 Dummy {f00=0x0060, f01=0x818e, f02=» m ( | & & } ZZZZZZ 4 " } J & Z ~ ZZZZZZ h " ~a ~ & & ** ABGESCHL.** ( & & !* & # &! AENDERN SPARKONT
0x168ff0…169184 Dummy {f00=0x0060, f01=0x8190, f02=» & NAME :I & & 8 A . & @ > & P & ^ & ADRESSE :I l & & 8 D & @ & & & ORT :I & 8 R & @
0x169184…169318 Dummy {f00=0x0060, f01=0x8190, f02=» & KREDIT LIMIT : & D & ZZZZZZZZ9,99-T 8 " V ( f > r & & ! & # &! AENDERN SPARKONTO NUMMER : & & # &! AENDERN GIROKONTO NUMMER : &
0x169318…1694ac Dummy {f00=0x0060, f01=0x818e, f02=»ZZ9,99 " & ZEILE: & " 2 99 D " V & f & KREDIT LIMIT: t & D ZZZZZZZZ9,99 " & & SALDO : &
0x1694ac…169640 Dummy {f00=0x0060, f01=0x818e, f02=» & & & LETZTER TRANSAKTION : $ & H 99 Z " l & | & LETZTER GEDRUCKT : & 99 " & & AKKUM. EINZAHLUNGE
0x169640…1697d4 (2, 71) Dummy {f00=0x0060, f01=0x818e, f02=» ZZZZZZZZ9,99 " $ ( 4 # @ & P $ & BELEG IN DRUCKER EINLEGEN ^ & " E & m ( @ & m & m & KONTO & & KA
0x1697d4…169968 Dummy {f00=0x0060, f01=0x8190, f02=» & ST ( & 0 & WAEHRUNGSNAME : > & & r j & r x & WAEHRUNGSCODE : & & s & & REL.: & ZZZZ9G
0x169968…169afc Dummy {f00=0x0060, f01=0x8190, f02=»)A & ZZZ9,99R " u2 0 & @ & VERKAUFSKURSE :(1) N & n ZZZ9,99- | " vE & & (2)K & ZZZ9,99U " w2 &
0x169afc…169c90 Dummy {f00=0x0060, f01=0x8190, f02=»LDWECHSEL & E & (VERKAUF)E " & : & (ANKAUF) H & ^ & KURS:U l & & # U & & U ZZZZ9,99 " vU & ZZZZ9,99
0x169c90…169e24 Dummy {f00=0x0060, f01=0x8190, f02=»BETRAG : & & j $ & 2 ZZZZZZZZZ,ZZ D " c ` & p & UMGER. BETRAG: ~ & & k & ZZZZZZZZZ,ZZ " dM & * % &# WEIT
0x169e24…169fb8 Dummy {f00=0x0060, f01=0x8190, f02=»KASSENBESTAND : & & # A ( & 8 ZZZZZZZZ9,99- F " S d & v & & # & ZZZZZZZZ9,99- " S & & & #
0x169fb8…16a14c Dummy {f00=0x0060, f01=0x8190, f02=»ZZZZ9,99- " S & $ & SCHECK SALDO : 2 & R & # C ` & p ZZZZZZZZ9,99- ~ " E & & " & TASTE CONT ODER TASTE CANCEL ( ` &
0x16a14c…16a2e0 Dummy {f00=0x0060, f01=0x818e, f02=» & & # E & & ZZZZZZZZ9,99- 4 " A R & d & r & # & ZZZZZZZZ9,99- " A & & & # &
0x16a2e0…16a474 (2, 72) Dummy {f00=0x0061, f01=0x818e, f02=» ZZZZZZZZ9,99- " KA " ( 2 > & N & 999999 j " & & 99E-99E-99 " & & & UMGEKEHRTU
0x16a474…16a608 Dummy {f00=0x0061, f01=0x8190, f02=» | & 99E-99E-99 " E 0 & * @ ZZZVZZZVZZZ,ZZ N " cE l & = | ZZZVZZZVZZZ,ZZ " dE ( E & & &"E ( $ &" ENDLOSFORMULAR I
0x16a608…16a79c Dummy {f00=0x0061, f01=0x8190, f02=»ZUG EINLEGEN ( " & 0 * % &# A4-FORMULAR IN DRUCKER EINLEGEN > ( l B x & & [ 4 & & 4 & & ] 4 & & ^ 4 &
0x16a79c…16a930 Dummy {f00=0x0061, f01=0x8190, f02=» & & $ & VORHANDENER ZEICHENVORRAT: ( H W T & d & r & SPEZIELLER ZEICHEN : & & 0 1 2 3 4 5 6 7 8 9 " & : ; < 0 1 2 3 4 5 6A & 7 8 9
0x16a930…16aac4 Dummy {f00=0x0061, f01=0x8190, f02=» & TERMINAL NR. : & $ 999N 2 " 2E F & V & NAME TERM.:. d & ~ & SCHALTER TRM.( 999T " 2C & )C ( &
0x16aac4…16ac58 Dummy {f00=0x0061, f01=0x8190, f02=»ZZ9,99- " S & " & KASSENBESTAND: 0 & L & # A Z & j ZZZZZZZZ9,99- x " S & & KASSENBESTAND: & & # A & ZZ
0x16ac58…16adec Dummy {f00=0x0061, f01=0x8190, f02=»ZZZZ9,99- " S & $ $ & TASTE CONT ODER TASTE CANC 2 & T Z & W l ( z & W & " & AUSZAHLUNG - SPARKONTO: & " & AUSZAHLUNG - GIROKONTO:
0x16adec…16af80 Dummy {f00=0x0061, f01=0x818e, f02=» & & ' & Q $ & NAME : 4 & H & V & d & r & - CHEQUE NR. : & & _ & _ & * & BUCH SALDO : &
0x16af80…16b114 (2, 73) Dummy {f00=0x0061, f01=0x818e, f02=» & KREDIT LIMIT:: & ZZZZZZZZ9,99 . " R J & Z & BETRAG :: h & ZZZZZZZZZ,ZZ " & & NEUER SALDO: & ZZZZZZZZ
0x16b114…16b2a8 Dummy {f00=0x0061, f01=0x8190, f02=» ZZZZZZ " a & . & < 999999 J " a ` & p & + ~ & BUCH SALDO : & ZZZZZZZZZ,ZZ " c & & ZEILE:
0x16b2a8…16b43c Dummy {f00=0x0061, f01=0x8190, f02=» " R & & BETRAG :A & : ZZZZZZZZZ,ZZ L " h & x & NEUER SALDO: & ZZZZZZZZ9,99- " E & " & UEBERWEISUNG AUF KONTO:
0x16b43c…16b5d0 Dummy {f00=0x0061, f01=0x8190, f02=»& & r & r & WAEHRUNGSCODE: ( & D & s R & ` & REL.: n & ZZZZ9G " yE & & ANKAUFSKURSE :(1)K & ZZZ9,99-
0x16b5d0…16b764 Dummy {f00=0x0061, f01=0x8190, f02=» & VERKAUFSKURSE:(1)K & * ZZZ9,99- 8 " vE P & ` & VERKAUFSKURSE:(2)K n & ZZZ9,99U " wE & & WAEHRUNGSLIMIT: & ZZ
0x16b764…16b8f8 Dummy {f00=0x0061, f01=0x8190, f02=» ZZZZZZZZ9,99- " S ( & : & KASSENBESTAND : H & f & # A t & ZZZZZZZZ9,99- " S & & KASSENBESTAND : & & # A
0x16b8f8…16ba8c Dummy {f00=0x0061, f01=0x8190, f02=» & ZZZZZZZZ9,99- " S 0 & B & SCHECK SALDO : P & l & # C z & ZZZZZZZZ9,99- " E & $ & TASTE CONT ODER TASTE CANC (
0x16ba8c…16bc20 Dummy {f00=0x0061, f01=0x8190, f02=»" JE & & GESAMTUMSATZ: & 8 & # E F & V ZZZZZZZZ9,99- d " A & & GESAMTUMSATZ: & & # E & ZZZZZZZZ9,99-
0x16bc20…16bdb4 (2, 74) Dummy {f00=0x0061, f01=0x8190, f02=»" A & & WAEHRUNGSUMSATZ: & < & # A J & Z ZZZZZZZZ9,99-: h " KA ( & & UNGUELTIGER WERT ( &
0x16bdb4…16bf48 Dummy {f00=0x0061, f01=0x8190, f02=» & EOI-KEY UNZULAESSIGA ( * 6 & F & FELD EINGEBENA T ( p | & & PLATTEN-FEHLER ( & & FILE-OPEN ERFOLGLOSA (
0x16bf48…16c0dc Dummy {f00=0x0061, f01=0x818e, f02=» v ( & $ & BEDIENUNGSFEHLER 2 ( P & l & UNGUELTIGER VERGLEICHZ z ( & & BEDIENER UNBEKANNT ( &
0x16c0dc…16c270 Dummy {f00=0x0061, f01=0x8190, f02=» " & * % &# TERM. GESPERRT, REVISION VERST,E " ( P & l & KONTO GESPERRT z ( & & RECORD KEY UNGUELTIG ( &
0x16c270…16c404 Dummy {f00=0x0061, f01=0x818e, f02=» % & , ( && "VERLANGTES GERAET NICHT SPEZIFIERT ( L X & " h & SPARKONTOS v ( & & UNGENUEGENDE DECKUNG ( & &
0x16c404…16c598 Dummy {f00=0x0061, f01=0x8190, f02=» x " A ( $ & 4 & KEINE TRANSAKTIONENG B ( d p & $ & KEINE TRANSAKTION MOEGLICH ( & & ! & VOLUME-NAME ? : DSCZ
0x16c598…16c72c Dummy {f00=0x0061, f01=0x8190, f02=»&$ OPEN FORMAT-FILE NOT SUCCESSFULL ( , G 8 & H , ( && "MORE THAN 6 LANGUAGE-NUMBERS TRIED V & " * % &# PERHAPS NO FREE LANGUAGE-NUMBERI ( 0 & $ & OVERFLOW OF OVERFLOW-A
0x16c72c…16c8c0 Dummy {f00=0x0061, f01=0xc178, f02=» 4 & $ ! & I/O ERROR WHILE READING OR " & J & WRITING FORMAT-FILED X ( z % & , ( && "PGM "FORMAT" SUCCESSFULLY EXECUTED ( 1 $
0x16c8c0…16ca54 (2, 75) Dummy {f00=0x0061, f01=0x0190, f02=» . H IDENT FORMIO TRA 11.0 - - F1 O1111 ZKOPNF ZLCLSF 6 $$$TRAR P ZKOPNF ZLCLSF 6 b . * T:CLOSR T:COMMA T:EDWR T:OPENF T:XSTA R FORMFILE
0x16ca54…16cbe8 Dummy {f00=0x0061, f01=0x0190, f02=» @ B J F " D L DL GL XLj DGX DL WLj D W DLj D DL0X D0X 4 0X 0X 4 1 Q j & z 9 " e 99 " e 999 " e 9999 "
0x16cbe8…16cd7c Dummy {f00=0x0061, f01=0x0190, f02=» PP999 " e Z " " e 4 ZZ D " e V ZZZ f " e z ZZZZ " e ZZZZZ " e ZZZZZZ " e Z9
0x16cd7c…16cf10 Dummy {f00=0x0061, f01=0x018e, f02=» ZZZ9,99- " e ZZZZ,ZZ- ( " e @ ZZZZ9,00 P " e h ZZZZ9,99 x " e ZZZZ9,99-9 " e ZZZZZ9,999 " e ZZZZZ9,99-
0x16cf10…16d0a4 Dummy {f00=0x0061, f01=0x0190, f02=» " e ZZZZZZZZZ,ZZ " e 0 ZZZZZZZZZ,ZZ-G @ " e ^ 99E:99 n " e ZZE:ZZ " e ! ZZVZZ9,99, " !e " ZZVZZZ,ZZ, " "e
0x16d0a4…16d238 Dummy {f00=0x0061, f01=0x40c0, f02=» & ZZZVZZZVZZ9,99 " &e ' ZZZVZZZVZZZ,ZZ . " 'e L ( F*ZVZZZVZZ9,99- " (e | ( @X FB C @ ZZVZZ9,99, " !e " ZZVZZZ,ZZ, " "e
0x16d238…16d3cc Dummy {f00=0x0061, f01=0x8190, f02=» . H IDENT FORMAT TRA 10.0 - - F1 O1111 AAMAIN 6 $$$TRAR H AAMAIN Z B > FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR n @ < T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKOPNF ZLCLSF
0x16d3cc…16d560 Dummy {f00=0x0061, f01=0x8190, f02=» 0 0 + " - / 2 / B 1 ' R 3 b : r = J F " D 0X 1X F1X F L0X WK "L "L E E E 1X F1X F0X 0X K E J W
0x16d560…16d6f4 (2, 76) Dummy {f00=0x0062, f01=0x8190, f02=» ] 0X D GL0RDGT 0X jE ]P R G 0X H G r 0 @ P b t J F " D "G 0R^FG ]Lj] P^ jB ^P CL JH(BC 0X ]J0X ^6W|j]P E 0X ]J ]Lj]
0x16d6f4…16d888 Dummy {f00=0x0062, f01=0x818e, f02=»P^@ KE0X ]K0 V $ 4 D " T $ / d & t ( ) , . / 0 2 - 6 8 / :
0x16d888…16da1c Dummy {f00=0x0062, f01=0x818e, f02=» F + J L / $ N 4 P * D R T T d t ^ / ` b ( d k n J F " D @X F1X FW 1X F1X F R0X I D 1X
0x16da1c…16dbb0 Dummy {f00=0x0062, f01=0x8190, f02=» * d " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x16dbb0…16dd44 Dummy {f00=0x0062, f01=0x8190, f02=» " = " " " ? . " < " J " X " f " t " " " " @ " D " I " O " V " Y " _
0x16dd44…16ded8 Dummy {f00=0x0062, f01=0x818e, f02=» " " " & " 4 " B " P " ^ " l " z " " " " " " " " "
0x16ded8…16e06c Dummy {f00=0x0062, f01=0x8190, f02=» " " " " . " ! < " # J " $ X " f " & t " " " " " " " " ( "
0x16e06c…16e200 Dummy {f00=0x0062, f01=0x8190, f02=» BILDSCHIRM 01/06/08/20/24 ? & & 99 8 " e J ( Z z f & v & & *********M 8 3 &1 -VORFUEHRUNG PHILIPS PTS 6344 BILDSCHIRMGERAET & *********N &
0x16e200…16e394 (2, 77) Dummy {f00=0x0062, f01=0x8190, f02=» & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! L & ! Z & ! h & ! v & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! & ! & ! & ! & VORHANDE
0x16e394…16e528 Dummy {f00=0x0062, f01=0x818e, f02=»@ABCDEFGHIJKLMNO & & & & 4 & PQRSTUVWXYZ[ ]^_ B & `abcdefghijklmno ` & pqrstuvwxyz{|}~ ~ & & & & NATIONALER VERSION : & & #@[ ]`{|}~
0x16e528…16e6bc Dummy {f00=0x0062, f01=0x8190, f02=» & & OPTION : & 2 , ' &% !24 LINES / 80 CHARACTERS PER LINES @ & ! p & ! ~ & ! & NAME :H & @ E & & & ADRESSE : & ,@
0x16e6bc…16e850 Dummy {f00=0x0062, f01=0x8190, f02=» & ,@ & & $ & ZWEIGSTELLENR :H 2 & I P ZZZZ b " e v & & KONTO NR. :N & , T ZZZZZZZZZZZZ " e ( m
0x16e850…16e9e4 Dummy {f00=0x0062, f01=0x8190, f02=»S. DRUCKEN (N=0,L=1,R=2) ? & ! @ " 9@ 4 " 9 F & V $ & TEP (=0) TTP (=1) GTP (=2) d & & ! & TEP-ZEK (=3) GP74 (=4) ?= & ! @ 9@ " : & $
0x16e9e4…16eb78 Dummy {f00=0x0062, f01=0x818e, f02=»& ! @ 9@ " < " & 2 " & HARDCOPY HP75 (N=0,J=1)? @ & ! @ f 9@ x " > & & TND (N=0,J=1)? & ! @ 9@ " ? &
0x16eb78…16ed0c Dummy {f00=0x0062, f01=0x8190, f02=» & E & 5 & ' $ & NAME TERMINAL :N 2 & P & SCHALTER TRM( ^ 999T z " 2C & )C ( & " & MLP INTEGRIERT (N=0,J=1) & $ @
0x16ed0c…16eea0 Dummy {f00=0x0062, f01=0x818e, f02=» & # & # & TEXT ? & 2 & 8 E @ & @T P & ' b & ' p & ZEIT (SSMM) ? ~ & T ZZE:ZZ " & & DATUM (TTMMJJ) ? &
0x16eea0…16f034 (2, 78) Dummy {f00=0x0062, f01=0x8190, f02=» & @H & r & r $ & WAEHRUNGSCODE : 2 & 8 A P & @H ` & s r & & REL.: & ZZZZ9G " y & & ANKAUFSKURSE :(1)
0x16f034…16f1c8 Dummy {f00=0x0062, f01=0x8190, f02=» u & & VERKAUFSKURSE :(1) & : ZZZ9,99- L " v d & t & (2) & ZZZZ,ZZU " w & & WAEHRUNGSLIMIT:( &
0x16f1c8…16f35c Dummy {f00=0x0062, f01=0x8190, f02=» ZZZZZR " e ( & 2 & B & NAME BEDIENER :( P & 8 A n & @E ~ & & & KENNWORT :( & @N & & & SPRACHE
0x16f35c…16f4f0 Dummy {f00=0x0062, f01=0x8190, f02=» & KASSENBESTAND :( & & # A , & S < ! ZZZZZZZZ9,99-( N " ! S l & ! ~ & & # & S " ZZZZZZZZ9,99-( " " S & " &
0x16f4f0…16f684 Dummy {f00=0x0062, f01=0x8190, f02=» $ ZZZZZZZZ9,99-( " $ S & & $ 8 , ' &% !AKK. AUF NULL STELLEN (N=0,J=1) ?S F & # @ v % 9@ " %e ( & & % & EINZAHLUNGEN :E & &
0x16f684…16f818 Dummy {f00=0x0062, f01=0x818e, f02=» & # U & Z ( ZZZZZZZZ9,99- & " ( Z D & ( V & AKKUM. SCHECKS :E d & & # K & U ) ZZZZZZZZ9,99- " ) U & ) & AKKUM. UEBERWE
0x16f818…16f9ac Dummy {f00=0x0062, f01=0x8190, f02=» & * & * & WAEHRUNGSVERKAEUFE:E & # A B & H R + ZZZZZZZZ9,99-U d " + H & + & WAEHRUNGSANKAEUFE :E & # A & H , ZZZZZZZZ9,99-F "
0x16f9ac…16fb40 Dummy {f00=0x0062, f01=0x8190, f02=» & - & & # $ & H 4 . ZZZZZZZZ9,99-. F " . H d & . v & & # & H / ZZZZZZZZ9,99-. " / H ( 0 d & /
0x16fb40…16fcd4 (2, 79) Dummy {f00=0x0062, f01=0x818e, f02=»(U ~ 1 999T " 12C & )C . & " > 2 999T L " 22C ` & 2 p & ZEIT (SSMM) : ~ & 3 ZZE:ZZ " 3 E & 3 & DATUM (TTMMJJ): &
0x16fcd4…16fe68 Dummy {f00=0x0062, f01=0x8190, f02=» 6 ZZZZZR " 6e & 6 * & KENNWORT : 8 & V & j h & j v & SPRACHE : & @ 7 9@ " 7 ( 8 } & 7 & NA
0x16fe68…16fffc Dummy {f00=0x0062, f01=0x8190, f02=»ZZZZ9,99- " 9 S & 9 $ & 2 & # @ & P : ZZZZZZZZ9,99- ^ " : S | & : & & # & ; ZZZZZZZZ9,99- " ; S & ;
0x16fffc…170190 Dummy {f00=0x0062, f01=0x8190, f02=»EL p & $ T & W ( * = 6 & W F & U T & T d & 6@ t & ' & " & SPARBUCH IN DRUCKER EINLEGEN & $ R & m & q & STECHE KARTE IN MSU
0x170190…170324 Dummy {f00=0x0062, f01=0x8190, f02=»& KONTO ODER KARTENNUMMER : & & > ZZZZZZ 8 " >a N ( ^ ? j & > z & > $ & BITTE FUNKTION EINGEBEN : ( @ & & Q & " & EROEFFNE SPA
0x170324…1704b8 Dummy {f00=0x0062, f01=0x8190, f02=» NAME :G & & & & 4 & ADRESSE :G B & Z & l & z & ORT :G & & & & Q & KENNWORT:G & @N
0x1704b8…17064c Dummy {f00=0x0062, f01=0x8190, f02=» E C ZZZZZZZ9,99: " C ( ( 8 D D & C T & b $ ! & ABSCHLUSS SPARKONTO NR. : r & $ ! & ABSCHLUSS GIROKONTO NR. : & E 999999 " EaB &
0x17064c…1707e0 Dummy {f00=0x0062, f01=0x8190, f02=»" F K & F ! & K ! & BUCH SALDO : ! , & ! L & KREDIT LIMIT : ! Z & ! z G ZZZZZZZZ9,99 ! " G R ! & G ! & R ! & KENNWORT : ! & ! & !
0x1707e0…170974 (2, 80) Dummy {f00=0x0063, f01=0x8190, f02=» ! & A " $ & EINZAHLUNG - SPARKONTO: " & " @ $ & EINZAHLUNG - GIROKONTO: " N & " v J 999999 " " JaI " & J " & 8I " & R5I " & BUCH SALDO :- " & " & U
0x170974…170b08 Dummy {f00=0x0063, f01=0x8190, f02=» & # " L ZZ # " Le # $ & # 4 & NAME :- # B & # ^ & # l & # z & BETRAG :- # & # M ZZZZZZZZZ,ZZ # " M # & M # & NEUER SALDO :- #
0x170b08…170c9c Dummy {f00=0x0063, f01=0x8190, f02=» U # & SPAR $ & $ & GIRO $ * & KONTO : $ < & $ R P 999999 $ ` " PaO $ v & P $ & O $ & $ & - KENNWORT :O $ & $ & $ & , $ & Q $
0x170c9c…170e30 Dummy {f00=0x0063, f01=0x8190, f02=» $ & _ % & 5 % & BUCH SALDO : % & & % B & U U % P & % ` Q ZZZZZZZZZ,ZZ % r " Qc % & % & ZEILE: % & # % & U E % & # % R ZZ % " R
0x170e30…170fc4 Dummy {f00=0x0063, f01=0x818e, f02=» : % & & T ZZZZZZZZZ,ZZ & " " T & > & T & N & NEUER SALDO : & & & x U ZZZZZZZZ9,99- & " U E & ( & V . & & & & Z & W ZE & " W9
0x170fc4…171158 Dummy {f00=0x0063, f01=0x818e, f02=» & & KONTO ABSCHLUSS ' & c O ' & & KONTO SPERRENS ' 6 & d O ' R & K. ENTSPERRENS ' b & e . ' ~ & KONTO AENDERNS ' & f O ' & WAEHR. AENDERN ' & g A ' & KONTO ABFRAGEN ' & h
0x171158…1712ec Dummy {f00=0x0063, f01=0x8190, f02=» ' & TAGESWAEHRUNGS ( & l A ( $ & WAEHR. ABFRAGE ( 4 & m A ( P & KONTEN LISTENE ( ` & ( | & ` O ( & i O ( & Z O ( & ( & ( X ZZZZZZ ( " X O ( & X O (
0x1712ec…171480 Dummy {f00=0x0063, f01=0x818e, f02=» Z ZT ( " Z9 ) & ) & 2 ) . & ABBRUCHL ) > & ) T [ 999999 ) b " [ B ) x & ) 99999L ) " =B ) & ) ] 999C ) " ]2B ) & ) ^ 99E:
0x171480…171614 (2, 81) Dummy {f00=0x0063, f01=0x8190, f02=» ) " & UEBERWEISUNG AB KONTO : * & T E * . & U E * > & * N ` ZZZZZZ * ` " `a * v & * & * a 999999 * " aa * & a * & 5 * & BUCH SALDO : * &
0x171614…1717a8 Dummy {f00=0x0063, f01=0x8190, f02=» & " * c ZZ + " ce + $ & + 4 & KREDIT LIMIT: + B & + ^ d ZZZZZZZZ9,99 + l " d R + & d + & BETRAG : + & + e ZZZZZZZZZ,ZZ + " e + & e +
0x1717a8…17193c Dummy {f00=0x0063, f01=0x8190, f02=»: + t & , g ZZZZZZ , " gb , 2 ( , B h , N & g , ^ & , l $ ! & ABFRAGE SPARKONTO NUMMER : , | & , $ ! & ABFRAGE GIROKONTO NUMMER : , & , i 999999 , " iaB ,
0x17193c…171ad0 Dummy {f00=0x0063, f01=0x8190, f02=» & BUCH SALDO : - & - " & KREDIT LIMIT : - 0 & - N k ZZZZZZZZ9,99- - " k R - z & k - & STATUS : - & - l 9T - " l T - & l - ( $ &" LETZTE TRANS.V
0x171ad0…171c64 Dummy {f00=0x0063, f01=0x8190, f02=»ABFRAGE-KONTONR: - ~ & . o 999999 . & " oaR . < & o . L & TRANS. : . Z & . p p 999. . ~ " p R . & /R . q 99999: . " q R . & /R . r 999999 . " r R .
0x171c64…171df8 Dummy {f00=0x0063, f01=0x8190, f02=»99- . ~ " t E / & t / & NEUER SALDO: / * & / D u ZZZZZZZZ9,99- / R " u E / p & u / * % &# VORH. TRANS. VERLANGT (N=0,J=1) / & @ / v 9@ / " ve / ( / w ' /
0x171df8…171f8c Dummy {f00=0x0063, f01=0x8190, f02=»R: / p & A 0 & c 0 & " & SPERREN GIROKONTO NUMMER : 0 & & 0 P & " & ENTSPERREN GIROKONTO NUMMER: 0 ^ & 0 x 999999 0 " xaN 0 & x 0 & NAME : 0 & 0 & 0 & 0
0x171f8c…172120 Dummy {f00=0x0063, f01=0x8190, f02=» SALDO :N 0 & 1 z ZZZZZZZZ9,99- 1 $ " z U 1 B & 1 R & 1 ` & KREDIT LIMIT :N 1 n & 1 { ZZZZZZZZ9,99- 1 " { R 1 & { 1 & 8 R 1 & BEMERKUNG :T 1 &
0x172120…1722b4 (2, 82) Dummy {f00=0x0063, f01=0x8190, f02=»CH IN DRUCKER EINLEGEN 1 & $ R 2 & m 2 0 ( 2 > } & 2 J & m 2 Z & " & PRUEFUNG NEUER SPARBUCHSEITE 2 h & E 2 & m 2 ( 2 ~ 2 & 2 ZZZZZZ 2 " 2 &
0x1722b4…172448 Dummy {f00=0x0063, f01=0x8190, f02=»!* 2 & # &! AENDERN SPARKONTO NUMMER : 3 & 3 4 & # &! AENDERN GIROKONTO NUMMER : 3 B & 3 l 999999 3 z " aE 3 & 3 & NAME :I 3 & 3 & 8 A 3 & @ 3 & 3 &
0x172448…1725dc Dummy {f00=0x0063, f01=0x8190, f02=»& 8 R 3 & @ 4 & 4 & 4 . & 4 < & KENNWORT:I 4 L & 4 d & 8 E 4 r & @ @N 4 & 4 & 4 & KREDIT LIMIT : 4 & D 4 ZZZZZZZZ9,99-T 4 " 4
0x1725dc…172770 Dummy {f00=0x0063, f01=0x8190, f02=»KONTO NUMMER : 4 ~ & 5 999999 5 & " aE 5 < & 5 L & )E 5 Z & BUCH SALDO : 5 j & H 5 ZZZZZZZZ9,99 5 " 5 & ZEILE: 5 & " 5 99 5 " 5
0x172770…172904 Dummy {f00=0x0063, f01=0x8190, f02=» : 5 & 6 ZZZZZZZZ9,99-T 6 " 6 > & 6 N & STATUS : 6 & # 6 x 9 6 " 6 & 6 & 6 & LETZTER TRANSAKTION : 6 & 6 99
0x172904…172a98 Dummy {f00=0x0063, f01=0x8190, f02=» & AKKUM. EINZAHLUNGEN : 7 & U 7 ( ZZZZZZZZ9,99 7 : " 7 V & 7 f & AKKUM. AUSZAHLUNGEN : 7 t & U 7 ZZZZZZZZ9,99 7 " 7 ( 7 # 7 & 7 $ & BE
0x172a98…172c2c Dummy {f00=0x0063, f01=0x8190, f02=» & 8 & KARTE 8 & 8 & & NAME 8 4 & " 8 F & EINZAHLUNGEN 8 T & 1 8 n & AUSZAHLUNGEN 8 | & ? 8 & ST 8 ( 8 8 & 8 & WAEHRUNGSNAME : 8 & 8
0x172c2c…172dc0 Dummy {f00=0x0063, f01=0x8190, f02=» ZZZZ9G 8 " yE 9 & 9 & & ANKAUFSKURSE :(1) 9 4 & 9 T ZZZ9,99- 9 b " tN 9 z & 9 & (2)A 9 & 9 ZZZ9,99R 9 " u2 9 & 9 & VERKAUFSKURSE :(1) 9
0x172dc0…172f54 (2, 83) Dummy {f00=0x0063, f01=0x818e, f02=»w2 9 & : & WAEHRUNGSLIMIT:( : & : 6 ZZZZZ9,99M : D " xA : ^ ( : n : z & : & GELDWECHSEL : & E : & (VERKAUF)E : & : & (ANKAUF) : & :
0x172f54…1730e8 Dummy {f00=0x0063, f01=0x818e, f02=» ZZZZ9,99 ; " tU ; & / ; , & ; < & s ; J & ; X ZZZZ9,00 ; f " y/ ; ~ & ; & BETRAG : ; & ; & j ; & ; ZZZZZZZZZ,ZZ ; "
0x1730e8…17327c Dummy {f00=0x0063, f01=0x818e, f02=» & < * % &# WEITERER GELDWECHSEL (N=0,J=1)? < & @ < @ 9@ < R " h < d ( < t < & < & KASSENBESTAND : < & < & # A < & < ZZZZZZZZ9,99- <
0x17327c…173410 Dummy {f00=0x0063, f01=0x8190, f02=» & = & # = & = " ZZZZZZZZ9,99- = 0 " S = N & = ` & = n & # = | & = ZZZZZZZZ9,99- = " S = & = & SCHECK SALDO : = & =
0x173410…1735a4 Dummy {f00=0x0063, f01=0x8190, f02=» = ` > & > & GESAMTUMSATZ : > & & > F & # E > T & > d ZZZZZZZZ9,99- > r " JE > & > & > & # E > & > ZZZZZZZZ9,99- > " A >
0x1735a4…173738 Dummy {f00=0x0063, f01=0x8190, f02=» & # > & ? ZZZZZZZZ9,99- ? " A ? < & ? N & WAEHRUNGSUMSATZ : ? & ? | & # A ? & ? ZZZZZZZZ9,99- ? " KA ? ( ? ? & ? & ?
0x173738…1738cc Dummy {f00=0x0063, f01=0x8190, f02=» ? & UMGEKEHRTU @ & / @ " & M @ 0 & EINZAHLUNG @ @ & I @ X & AUSZAHLUNG @ h & U @ & UEBERWEISUNG @ & @ 99E-99E-99 @ " E @ & * @ ZZZVZZZVZZZ,ZZ @
0x1738cc…173a60 Dummy {f00=0x0063, f01=0x818e, f02=» ( $ &" ENDLOSFORMULAR IN GTP EINLEGEN A & A 0 ( # &! ENDLOSFORMULAR IN LP EINLEGENN A > ( A j A v & A & TAGESAUSZUG EINLEGEN A ( A " A & A * % &# A4-FORMULAR IN DRUCKER EINLEGEN A
0x173a60…173bf4 (2, 84) Dummy {f00=0x0064, f01=0x8190, f02=» & ^ 4 B & B & _ 4 B " & B 2 & i B @ , ' &% !PHILIPS PTS 6371 TERMINAL PRINTERS B N & i B ~ ( B " B & B & B $ & VORHANDENER ZEICHENVORRAT: B ( B W B
0x173bf4…173d88 Dummy {f00=0x0064, f01=0x8190, f02=»4 5 6A B x & 7 8 9 C ( C " T C . & C > & ODR (N=0,Y=1) ? C L & @ C j 9@ C | " < C & C & TERMINAL NR. : C & C 999N C " 2E C & C
0x173d88…173f1c Dummy {f00=0x0064, f01=0x8190, f02=» C & D & BEDIENER : D & D 2 & D @ & KASSENBESTAND: D N & D j & # A D x & D ZZZZZZZZ9,99- D " S D & D & KASSENBESTAND: D & D & # A D
0x173f1c…1740b0 Dummy {f00=0x0064, f01=0x8190, f02=» & E ZZZZZZZZ9,99- E " S E 0 & E B & KASSENBESTAND: E P & E l & # A E z & E ZZZZZZZZ9,99- E " S E & E $ & TASTE CONT ODER TASTE CANC E & T
0x1740b0…174244 Dummy {f00=0x0064, f01=0x8190, f02=» AUSZAHLUNG - GIROKONTO: E & F " 999999 F 0 " aU F F & F V & U F d & F t & - KENNWORT : F & F & F & ' F & Q F & NAME : F & F & F
0x174244…1743d8 Dummy {f00=0x0064, f01=0x8190, f02=» & G ZZZZZZZZZ,ZZ G " c G 2 & G B & ZEILE: G P & G d ZZ G v " e G & G & KREDIT LIMIT:: G & G ZZZZZZZZ9,99 G " R G & G
0x1743d8…17456c Dummy {f00=0x0064, f01=0x8190, f02=» G ZZZZZZZZ9,99-R H " E H ( ( H 8 H D & H T & UEBERWEISUNG AB KONTO: H b & T E H & H ZZZZZZ H " a H & H & H 999999 H " a
0x17456c…174700 Dummy {f00=0x0064, f01=0x8190, f02=» & ZEILE: I & I ZZ I * " e I < & I L & KREDIT LIMIT:A I Z & I v ZZZZZZZZ9,99 I " R I & I & BETRAG :A I & I ZZZZZZZZZ,ZZ I
0x174700…174894 (2, 85) Dummy {f00=0x0064, f01=0x818e, f02=»UEBERWEISUNG AUF KONTO: I & J ZZZZZZ J 2 " b J H ( J X J d & J t & WAEHRUNGSNAME: J & J & r J & r J & WAEHRUNGSCODE: J & J & s J & J
0x174894…174a28 Dummy {f00=0x0064, f01=0x818e, f02=» ZZZ9,99- K " tN K & K , & ANKAUFSKURSE :(2)K K : & K Z & K h ZZZ9,99R K v " uN K & K & VERKAUFSKURSE:(1)K K & K ZZZ9,99- K " vE K &
0x174a28…174bbc Dummy {f00=0x0064, f01=0x818e, f02=» & L ZZZZZ9,99M L " xA L , ( L < L H & L X & KASSENBESTAND: L f & L & # A L & L ZZZZZZZZ9,99- L " S L & L & KASSENBESTAND : L
0x174bbc…174d50 Dummy {f00=0x0064, f01=0x8190, f02=» & M & # A M & M " ZZZZZZZZ9,99- M 0 " S M N & M ` & KASSENBESTAND : M n & M & # A M & M ZZZZZZZZ9,99- M " S M & M & SCHECK SALDO
0x174d50…174ee4 Dummy {f00=0x0064, f01=0x8190, f02=»R TASTE CANC M | ( N N & N 0 & GESAMTUMSATZ: N > & N Z & # E N h & N x ZZZZZZZZ9,99- N " JE N & N & GESAMTUMSATZ: N & N & # E N & N
0x174ee4…175078 Dummy {f00=0x0064, f01=0x8190, f02=» ZZZZZZZZ9,99- N " A O & O 0 & GESAMTUMSATZ: O > & O Z & # E O h & O x ZZZZZZZZ9,99- O " A O & O & WAEHRUNGSUMSATZ: O & O & # A O & O
0x175078…17520c Dummy {f00=0x0064, f01=0x8190, f02=»( O P & P . * &( $KASSETTE NOTENWERT ANZAHL NOTEN P ( & $ P Z & P h ZZZZ9E P v " S P & P ZZZZ P " P & ! P ZZZZ P " P
0x17520c…1753a0 Dummy {f00=0x0064, f01=0x8190, f02=» ZZZZ P " Q & Q & & Q 4 99999E Q B " Q X & Q j ZZZZ Q x " Q & ! Q ZZZZ Q " Q & Q & Q 99999E Q
0x1753a0…175534 (2, 86) Dummy {f00=0x0064, f01=0x8190, f02=» # Q & R & RESTBETRAG IN MUENZEN: R Z9,99R R @ " E R V & T R f & m R x ( R e R & m R " & EINGABE DER STUECKELUNG R & R & NOTENWERT:T R & R
0x175534…1756c8 Dummy {f00=0x0064, f01=0x818e, f02=»ZZ R " S & " S ZZZZZZ S , " S B & S R & S ` ZZZZ S n " S & " S 999999 S " S & S & S ZZZZ S " S
0x1756c8…17585c Dummy {f00=0x0064, f01=0x8190, f02=» S T & T & GESCHUETZTER DATENSATZ T & ( T J T V & T f & I/O ERRORT T t ( T T & T & EOI-KEY UNZULAESSIGA T ( T T & T &
0x17585c…1759f0 Dummy {f00=0x0064, f01=0x818e, f02=»& FILE-OPEN ERFOLGLOSA T ( U U , & U < & SCHALTER TERMINALO U J ( U j U v & U & WERT MUSS NULL SEINA U ( U U & U & BEDIENUNGSFEHLER U ( U
0x1759f0…175b84 Dummy {f00=0x0064, f01=0x8190, f02=» U v ( V V & V $ & ! & BEDIENER BEREITS ANGEMELDETA V 2 ( V V h & V x & FALSCHES KENNWORTA V ( V " V & V * % &# TERM. GESPERRT, REVISION VERST,N V ( V
0x175b84…175d18 Dummy {f00=0x0064, f01=0x8190, f02=» ( V W & W $ & MASTER KEYSETTING VERLANGT W * ( W R W ^ & W n & AUSFALL EINGABEGERAETL W | ( W % W & W , ( && "VERLANGTES GERAET NICHT SPEZIFIERT W ( W
0x175d18…175eac Dummy {f00=0x0064, f01=0x8190, f02=» X & X & GLEICHE KEYWERTE X " ( X @ X L & X & SALDO NICHT NULL X j & X ZZZZZZZZ9,99-L X " A X ( X X & X & KEINE TRANSAKTIONENG
0x175eac…176040 Dummy {f00=0x0064, f01=0x8190, f02=» FALSCHE KASSETTENFOLGE X ( Y Y , & Y < & AKT FALSCH EROEFFNET Y J ( Y l ( Y x & Y 0 + &) %CONT FUER WIEDERHOLUNG, SONST ABBRUCHR Y ( Y " Y & % Y * % &# AKT-FEHLER, AU
0x176040…1761d4 (2, 87) Dummy {f00=0x0064, f01=0x8190, f02=»& Y " & AKT NICHT BETRIEBSBEREIT Z ( Z 2 Z > & Z N & AKT SYSTEMFEHLER Z ( Z z Z & Z & ! & ENTNAHMEZEIT UEBERSCHRITTENC Z ( Z Z & Z & SCHLECHTE
0x1761d4…176368 Dummy {f00=0x0064, f01=0x8190, f02=» & KASSETTE [ " 99999E [ " " S [ 0 & LEERT [ B ( [ V # [ b & [ r & " & PROGRAMM-FEHLER, DEBUG-HILFE [ ( [ $ + [ & [ & KASSETTE [ % 99999E [ " %
0x176368…1764fc Dummy {f00=0x0064, f01=0x8190, f02=» ( ' & " & ! & VOLUME-NAME ? : DSCC . ( X ( % d & t , ( && "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): ( ) # & " * & &$ OPEN FORMAT-FILE NOT SUCCESSFULL
0x1764fc…176690 Dummy {f00=0x0064, f01=0x8190, f02=»-NUMBERI r ( ] + 0 ] & ] , $ & OVERFLOW OF OVERFLOW-AREAN ] : & ] b & ** JOB ABENDED **L ] p ( ] , ] & ] & PRESS CONTINUE ] ( ] - 4 ] & ] $ ! & I/
0x176690…176824 Dummy {f00=0x0064, f01=0xc0c6, f02=»MAT" SUCCESSFULLY EXECUTED ] ( ^ " / ^ . 0 1 ^ > $ 0G ^ P ( ^ ` @ < : HD H H JH0X ] J0X D GL0RDGT 0X I ILT_e0X H 4 ^ l ^ @ ^
0x176824…1769b8 Dummy {f00=0x0064, f01=0x8190, f02=» < H IDENT T:AA00 TRA 10.0 - - F1 O1111 DATA DIVISION T:AA00 D T:AA00A T V > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x1769b8…176b4c Dummy {f00=0x0064, f01=0x8190, f02=» * & * & 2 * & = e ` * & [ n * & y ` * & 2 p
0x176b4c…176ce0 Dummy {f00=0x0064, f01=0xc15c, f02=» A t * & * & - P R @ , ( K@ A0 n , ( a , ( q " $ & ( * , (
0x176ce0…176e74 (2, 88) Dummy {f00=0x0065, f01=0x40e0, f02=» < H IDENT T:DA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & vA0 0 * | , @ , (
0x176e74…177008 Dummy {f00=0x0065, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 11.0 - - F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ , @ , (
0x177008…17719c Dummy {f00=0x0065, f01=0x4156, f02=» < H IDENT U:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION U:BTAB D U:BTABB V > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x17719c…177330 Dummy {f00=0x0065, f01=0x4092, f02=» < H IDENT S:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION S:BTAB D S:BTABB V j :B |@ 0 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x177330…1774c4 Dummy {f00=0x0065, f01=0x0190, f02=» < H IDENT C:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x1774c4…177658 Dummy {f00=0x0065, f01=0x4028, f02=» ( ( @ $O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x177658…1777ec Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT D:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION D:CW10 D D:CW10C V * & B 0 f j * & B t 0 0 = 0 ! B @ *
0x1777ec…177980 Dummy {f00=0x0065, f01=0x4102, f02=» < H IDENT C:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION C:CSY0 D C:CSY0C V & j * & = N = N @ *
0x177980…177b14 (2, 89) Dummy {f00=0x0065, f01=0x40d2, f02=» < H IDENT D:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:CSY0 D D:CSY0C V * & 20 0 0 0 0 j 0 50 ;0 A0 D 2 @ N = N @ *
0x177b14…177ca8 Dummy {f00=0x0065, f01=0x40dc, f02=» < H IDENT Z:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TRM0 D Z:TRM0T V & j " * 4 4 @ N = N @ *
0x177ca8…177e3c Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT D:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TRM0 D D:TRM0T V * & B 0 0 0 0 0 " j * & 0 #0 %0 &0 '0 (0 )0 *0 = -0 . B @
0x177e3c…177fd0 Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT Z:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TSP0 D Z:TSP0T V * & j & = F = F @
0x177fd0…178164 Dummy {f00=0x0065, f01=0x40da, f02=» < H IDENT D:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TSP0 D D:TSP0T V * & : j ( $ 0 0 0 @ : @ = F @
0x178164…1782f8 Dummy {f00=0x0065, f01=0x0190, f02=» < H IDENT U:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UBF0 D U:UBF0U V & j & & = & [ & y & & & &
0x1782f8…17848c Dummy {f00=0x0065, f01=0x0190, f02=» & & ; & Y . & w > & N & ^ & n & ~ & & + & I & g & & & &
0x17848c…178620 Dummy {f00=0x0065, f01=0x40de, f02=» & & ) & G . & e > & N & ^ & n & ~ & * @ & &
0x178620…1787b4 (2, 90) Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT D:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UBF0 D D:UBF0U V * & B 0 0 j * & & , 4 < H a = B @ &
0x1787b4…178948 Dummy {f00=0x0065, f01=0x4132, f02=» < H IDENT U:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UIF0 D U:UIF0U V * & j ( & & = & [ y *
0x178948…178adc Dummy {f00=0x0065, f01=0x40ee, f02=» < H IDENT D:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UIF0 D D:UIF0U V * & > 0 0 0 0 0 0 $ j * & 0 *0 0 6 7 = V Z ( = _ > @
0x178adc…178c70 Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT U:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UCY0 D U:UCY0U V & j * & = > = > @
0x178c70…178e04 Dummy {f00=0x0065, f01=0x40ca, f02=» < H IDENT D:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UCY0 D D:UCY0U V * & *0 0 0 !0 %0 ) j 0 -0 10 7 * @ > = > @
0x178e04…178f98 Dummy {f00=0x0065, f01=0x0190, f02=» < H IDENT U:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UOP0 D U:UOP0U V & j * & * & = * & [
0x178f98…17912c Dummy {f00=0x0065, f01=0x4054, f02=» n * * >@ P U:UOP0U V & j * & * & = * & [
0x17912c…1792c0 Dummy {f00=0x0065, f01=0x40f6, f02=» < H IDENT D:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UOP0 D D:UOP0U V * & F0 0 0 !0 "0 $ j * & % = F @
0x1792c0…179454 (2, 91) Dummy {f00=0x0065, f01=0x4136, f02=» < H IDENT U:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA10 D U:UA10U V & j & * & = * & [ y *
0x179454…1795e8 Dummy {f00=0x0065, f01=0x40f2, f02=» < H IDENT D:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA10 D D:UA10U V * & B0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r x B @ y *
0x1795e8…17977c Dummy {f00=0x0065, f01=0x4132, f02=» < H IDENT U:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA20 D U:UA20U V & j & * & = * & [ y
0x17977c…179910 Dummy {f00=0x0065, f01=0x40ee, f02=» < H IDENT D:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA20 D D:UA20U V * & >0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r > @ y
0x179910…179aa4 Dummy {f00=0x0065, f01=0x4114, f02=» < H IDENT U:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UT10 D U:UT10U V * & j * & = * P = P
0x179aa4…179c38 Dummy {f00=0x0065, f01=0x40d2, f02=» < H IDENT D:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION ! D:UT10 ! D D:UT10U ! V * & 20 0 0 0 0 0 0 ! j 0 !0 '0 -0 3 7 ! 2 ! @ ! * P = P
0x179c38…179dcc Dummy {f00=0x0065, f01=0x4114, f02=» < H IDENT U:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION " U:UT20 " D U:UT20U " V * & " j * & " = * " P " = P
0x179dcc…179f60 Dummy {f00=0x0065, f01=0x40d2, f02=» < H IDENT D:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION # D:UT20 # D D:UT20U # V * & 20 0 0 0 0 0 0 # j 0 !0 '0 -0 3 7 # 2 # @ # * " P " = P
0x179f60…17a0f4 (2, 92) Dummy {f00=0x0066, f01=0x40d6, f02=» < H IDENT C:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION $ C:CK10 $ D C:CK10C $ V * & d $ j $ ( $ ( $ @ $ * " P " = P
0x17a0f4…17a288 Dummy {f00=0x0066, f01=0x40ee, f02=» < H IDENT D:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION % D:CK10 % D D:CK10C % V * & > % j * & 0 0 0 0 0 % = % > % @ % P " = P
0x17a288…17a41c Dummy {f00=0x0066, f01=0x410c, f02=» < H IDENT C:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION & C:CK20 & D C:CK20C & V * & & j * & f f f f f f f f f f f f U D D & = D U U f D f & H & = H & @
0x17a41c…17a5b0 Dummy {f00=0x0066, f01=0x40ee, f02=» < H IDENT D:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION ' D:CK20 ' D D:CK20C ' V * & > ' j * & ' = ' > ' @ ' & = H & @
0x17a5b0…17a744 Dummy {f00=0x0066, f01=0x40de, f02=» < H IDENT U:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ( U:UQQ0 ( D U:UQQ0U ( V * & 2 ( j U5* ( * ( * ( @ ( > ' @ ' & = H & @
0x17a744…17a8d8 Dummy {f00=0x0066, f01=0x40d2, f02=» < H IDENT D:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ) D:UQQ0 ) D D:UQQ0U ) V * & 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x17a8d8…17aa6c Dummy {f00=0x0066, f01=0xc06c, f02=» < H IDENT DEMODD TRA 10.0 - - F1 O1111 DATA DIVISION ) $$$TRA ) D ) V@ ) h 2 ( j 0 0 0 0 " ( 2 ( @ ( ' @ ' > & @ &
0x17aa6c…17ac00 Dummy {f00=0x0066, f01=0x8190, f02=» . H IDENT FORMAT TRA 10.0 - - F1 O1111 AAMAIN 6 $$$TRAR H AAMAIN Z B > FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR n @ < T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKOPNF ZLCLSF
0x17ac00…17ad94 (2, 93) Dummy {f00=0x0066, f01=0x8190, f02=» 0 0 + " - / 2 / B 1 ' R 3 b : r = J F " D 0X 1X F1X F L0X WK "L "L E E E 1X F1X F0X 0X K E J W
0x17ad94…17af28 Dummy {f00=0x0066, f01=0x8190, f02=» ] 0X D GL0RDGT 0X jE ]P R G 0X H G r 0 @ P b t J F " D "G 0R^FG ]Lj] P^ jB ^P CL JH(BC 0X ]J0X ^6W|j]P E 0X ]J ]Lj]
0x17af28…17b0bc Dummy {f00=0x0066, f01=0x818e, f02=»P^@ KE0X ]K0 V $ 4 D " T $ / d & t ( ) , . / 0 2 - 6 8 / :
0x17b0bc…17b250 Dummy {f00=0x0066, f01=0x818e, f02=» F + J L / $ N 4 P * D R T T d t ^ / ` b ( d k n J F " D @X F1X FW 1X F1X F R0X I D 1X
0x17b250…17b3e4 Dummy {f00=0x0066, f01=0x8190, f02=» * d " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x17b3e4…17b578 Dummy {f00=0x0066, f01=0x8190, f02=» " = " " " ? . " < " J " X " f " t " " " " @ " D " I " O " V " Y " _
0x17b578…17b70c Dummy {f00=0x0066, f01=0x818e, f02=» " " " & " 4 " B " P " ^ " l " z " " " " " " " " "
0x17b70c…17b8a0 Dummy {f00=0x0066, f01=0x8190, f02=» " " " " . " ! < " # J " $ X " f " & t " " " " " " " " ( "
0x17b8a0…17ba34 (2, 94) Dummy {f00=0x0066, f01=0x8190, f02=» BILDSCHIRM 01/06/08/20/24 ? & & 99 8 " e J ( Z z f & v & & *********M 8 3 &1 -VORFUEHRUNG PHILIPS PTS 6344 BILDSCHIRMGERAET & *********N &
0x17ba34…17bbc8 Dummy {f00=0x0066, f01=0x8190, f02=» & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! L & ! Z & ! h & ! v & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! & ! & ! & ! & VORHANDE
0x17bbc8…17bd5c Dummy {f00=0x0066, f01=0x818e, f02=»@ABCDEFGHIJKLMNO & & & & 4 & PQRSTUVWXYZ[ ]^_ B & `abcdefghijklmno ` & pqrstuvwxyz{|}~ ~ & & & & NATIONALER VERSION : & & #@[ ]`{|}~
0x17bd5c…17bef0 Dummy {f00=0x0066, f01=0x8190, f02=» & & OPTION : & 2 , ' &% !24 LINES / 80 CHARACTERS PER LINES @ & ! p & ! ~ & ! & NAME :H & @ E & & & ADRESSE : & ,@
0x17bef0…17c084 Dummy {f00=0x0066, f01=0x8190, f02=» & ,@ & & $ & ZWEIGSTELLENR :H 2 & I P ZZZZ b " e v & & KONTO NR. :N & , T ZZZZZZZZZZZZ " e ( m
0x17c084…17c218 Dummy {f00=0x0066, f01=0x8190, f02=»S. DRUCKEN (N=0,L=1,R=2) ? & ! @ " 9@ 4 " 9 F & V $ & TEP (=0) TTP (=1) GTP (=2) d & & ! & TEP-ZEK (=3) GP74 (=4) ?= & ! @ 9@ " : & $
0x17c218…17c3ac Dummy {f00=0x0066, f01=0x818e, f02=»& ! @ 9@ " < " & 2 " & HARDCOPY HP75 (N=0,J=1)? @ & ! @ f 9@ x " > & & AKT (N=0,J=1)? & ! @ 9@ " ? &
0x17c3ac…17c540 Dummy {f00=0x0066, f01=0x8190, f02=» & E & 5 & ' $ & NAME TERMINAL :N 2 & P & SCHALTER TRM( ^ 999T z " 2C & )C ( & " & MLP INTEGRIERT (N=0,J=1) & $ @
0x17c540…17c6d4 (2, 95) Dummy {f00=0x0066, f01=0x818e, f02=» & # & # & TEXT ? & 2 & 8 E @ & @T P & ' b & ' p & ZEIT (SSMM) ? ~ & T ZZE:ZZ " & & DATUM (TTMMJJ) ? &
0x17c6d4…17c868 Dummy {f00=0x0066, f01=0x8190, f02=» & @H & r & r $ & WAEHRUNGSCODE : 2 & 8 A P & @H ` & s r & & REL.: & ZZZZ9G " y & & ANKAUFSKURSE :(1)
0x17c868…17c9fc Dummy {f00=0x0066, f01=0x8190, f02=» u & & VERKAUFSKURSE :(1) & : ZZZ9,99- L " v d & t & (2) & ZZZZ,ZZU " w & & WAEHRUNGSLIMIT:( &
0x17c9fc…17cb90 Dummy {f00=0x0066, f01=0x8190, f02=» ZZZZZR " e ( & 2 & B & NAME BEDIENER :( P & 8 A n & @E ~ & & & KENNWORT :( & @N & & & SPRACHE
0x17cb90…17cd24 Dummy {f00=0x0066, f01=0x8190, f02=» & KASSENBESTAND :( & & # A , & S < ! ZZZZZZZZ9,99-( N " ! S l & ! ~ & & # & S " ZZZZZZZZ9,99-( " " S & " &
0x17cd24…17ceb8 Dummy {f00=0x0066, f01=0x8190, f02=» $ ZZZZZZZZ9,99-( " $ S & & $ 8 , ' &% !AKK. AUF NULL STELLEN (N=0,J=1) ?S F & # @ v % 9@ " %e ( & & % & EINZAHLUNGEN :E & &
0x17ceb8…17d04c Dummy {f00=0x0066, f01=0x818e, f02=» & # U & Z ( ZZZZZZZZ9,99- & " ( Z D & ( V & AKKUM. SCHECKS :E d & & # K & U ) ZZZZZZZZ9,99- " ) U & ) & AKKUM. UEBERWE
0x17d04c…17d1e0 Dummy {f00=0x0066, f01=0x8190, f02=» & * & * & WAEHRUNGSVERKAEUFE:E & # A B & H R + ZZZZZZZZ9,99-U d " + H & + & WAEHRUNGSANKAEUFE :E & # A & H , ZZZZZZZZ9,99-F "
0x17d1e0…17d374 (2, 96) Dummy {f00=0x0067, f01=0x8190, f02=» & - & & # $ & H 4 . ZZZZZZZZ9,99-. F " . H d & . v & & # & H / ZZZZZZZZ9,99-. " / H ( 0 d & /
0x17d374…17d508 Dummy {f00=0x0067, f01=0x818e, f02=»(U ~ 1 999T " 12C & )C . & " > 2 999T L " 22C ` & 2 p & ZEIT (SSMM) : ~ & 3 ZZE:ZZ " 3 E & 3 & DATUM (TTMMJJ): &
0x17d508…17d69c Dummy {f00=0x0067, f01=0x8190, f02=» 6 ZZZZZR " 6e & 6 * & KENNWORT : 8 & V & j h & j v & SPRACHE : & @ 7 9@ " 7 ( 8 } & 7 & NA
0x17d69c…17d830 Dummy {f00=0x0067, f01=0x8190, f02=»ZZZZ9,99- " 9 S & 9 $ & 2 & # @ & P : ZZZZZZZZ9,99- ^ " : S | & : & & # & ; ZZZZZZZZ9,99- " ; S & ;
0x17d830…17d9c4 Dummy {f00=0x0067, f01=0x8190, f02=»EL p & $ T & W ( * = 6 & W F & U T & T d & 6@ t & ' & " & SPARBUCH IN DRUCKER EINLEGEN & $ R & m & q & STECHE KARTE IN MSU
0x17d9c4…17db58 Dummy {f00=0x0067, f01=0x8190, f02=»& KONTO ODER KARTENNUMMER : & & > ZZZZZZ 8 " >a N ( ^ ? j & > z & > $ & BITTE FUNKTION EINGEBEN : ( @ & & Q & " & EROEFFNE SPA
0x17db58…17dcec Dummy {f00=0x0067, f01=0x8190, f02=» NAME :G & & & & 4 & ADRESSE :G B & Z & l & z & ORT :G & & & & Q & KENNWORT:G & @N
0x17dcec…17de80 Dummy {f00=0x0067, f01=0x8190, f02=» E C ZZZZZZZ9,99: " C ( ( 8 D D & C T & b $ ! & ABSCHLUSS SPARKONTO NR. : r & $ ! & ABSCHLUSS GIROKONTO NR. : & E 999999 " EaB &
0x17de80…17e014 (2, 97) Dummy {f00=0x0067, f01=0x8190, f02=»" F K & F ! & K ! & BUCH SALDO : ! , & ! L & KREDIT LIMIT : ! Z & ! z G ZZZZZZZZ9,99 ! " G R ! & G ! & R ! & KENNWORT : ! & ! & !
0x17e014…17e1a8 Dummy {f00=0x0067, f01=0x8190, f02=» ! & A " $ & EINZAHLUNG - SPARKONTO: " & " @ $ & EINZAHLUNG - GIROKONTO: " N & " v J 999999 " " JaI " & J " & 8I " & R5I " & BUCH SALDO :- " & " & U
0x17e1a8…17e33c Dummy {f00=0x0067, f01=0x8190, f02=» & # " L ZZ # " Le # $ & # 4 & NAME :- # B & # ^ & # l & # z & BETRAG :- # & # M ZZZZZZZZZ,ZZ # " M # & M # & NEUER SALDO :- #
0x17e33c…17e4d0 Dummy {f00=0x0067, f01=0x8190, f02=» U # & SPAR $ & $ & GIRO $ * & KONTO : $ < & $ R P 999999 $ ` " PaO $ v & P $ & O $ & $ & - KENNWORT :O $ & $ & $ & , $ & Q $
0x17e4d0…17e664 Dummy {f00=0x0067, f01=0x8190, f02=» $ & _ % & 5 % & BUCH SALDO : % & & % B & U U % P & % ` Q ZZZZZZZZZ,ZZ % r " Qc % & % & ZEILE: % & # % & U E % & # % R ZZ % " R
0x17e664…17e7f8 Dummy {f00=0x0067, f01=0x818e, f02=» : % & & T ZZZZZZZZZ,ZZ & " " T & > & T & N & NEUER SALDO : & & & x U ZZZZZZZZ9,99- & " U E & ( & V . & & & & Z & W ZE & " W9
0x17e7f8…17e98c Dummy {f00=0x0067, f01=0x818e, f02=» & & KONTO ABSCHLUSS ' & c O ' & & KONTO SPERRENS ' 6 & d O ' R & K. ENTSPERRENS ' b & e . ' ~ & KONTO AENDERNS ' & f O ' & WAEHR. AENDERN ' & g A ' & KONTO ABFRAGEN ' & h
0x17e98c…17eb20 Dummy {f00=0x0067, f01=0x8190, f02=» ' & TAGESWAEHRUNGS ( & l A ( $ & WAEHR. ABFRAGE ( 4 & m A ( P & KONTEN LISTENE ( ` & ( | & ` O ( & i O ( & Z O ( & ( & ( X ZZZZZZ ( " X O ( & X O (
0x17eb20…17ecb4 (2, 98) Dummy {f00=0x0067, f01=0x818e, f02=» Z ZT ( " Z9 ) & ) & 2 ) . & ABBRUCHL ) > & ) T [ 999999 ) b " [ B ) x & ) 99999L ) " =B ) & ) ] 999C ) " ]2B ) & ) ^ 99E:
0x17ecb4…17ee48 Dummy {f00=0x0067, f01=0x8190, f02=» ) " & UEBERWEISUNG AB KONTO : * & T E * . & U E * > & * N ` ZZZZZZ * ` " `a * v & * & * a 999999 * " aa * & a * & 5 * & BUCH SALDO : * &
0x17ee48…17efdc Dummy {f00=0x0067, f01=0x8190, f02=» & " * c ZZ + " ce + $ & + 4 & KREDIT LIMIT: + B & + ^ d ZZZZZZZZ9,99 + l " d R + & d + & BETRAG : + & + e ZZZZZZZZZ,ZZ + " e + & e +
0x17efdc…17f170 Dummy {f00=0x0067, f01=0x8190, f02=»: + t & , g ZZZZZZ , " gb , 2 ( , B h , N & g , ^ & , l $ ! & ABFRAGE SPARKONTO NUMMER : , | & , $ ! & ABFRAGE GIROKONTO NUMMER : , & , i 999999 , " iaB ,
0x17f170…17f304 Dummy {f00=0x0067, f01=0x8190, f02=» & BUCH SALDO : - & - " & KREDIT LIMIT : - 0 & - N k ZZZZZZZZ9,99- - " k R - z & k - & STATUS : - & - l 9T - " l T - & l - ( $ &" LETZTE TRANS.V
0x17f304…17f498 Dummy {f00=0x0067, f01=0x8190, f02=»ABFRAGE-KONTONR: - ~ & . o 999999 . & " oaR . < & o . L & TRANS. : . Z & . p p 999. . ~ " p R . & /R . q 99999: . " q R . & /R . r 999999 . " r R .
0x17f498…17f62c Dummy {f00=0x0067, f01=0x8190, f02=»99- . ~ " t E / & t / & NEUER SALDO: / * & / D u ZZZZZZZZ9,99- / R " u E / p & u / * % &# VORH. TRANS. VERLANGT (N=0,J=1) / & @ / v 9@ / " ve / ( / w ' /
0x17f62c…17f7c0 Dummy {f00=0x0067, f01=0x8190, f02=»R: / p & A 0 & c 0 & " & SPERREN GIROKONTO NUMMER : 0 & & 0 P & " & ENTSPERREN GIROKONTO NUMMER: 0 ^ & 0 x 999999 0 " xaN 0 & x 0 & NAME : 0 & 0 & 0 & 0
0x17f7c0…17f954 (2, 99) Dummy {f00=0x0067, f01=0x8190, f02=» SALDO :N 0 & 1 z ZZZZZZZZ9,99- 1 $ " z U 1 B & 1 R & 1 ` & KREDIT LIMIT :N 1 n & 1 { ZZZZZZZZ9,99- 1 " { R 1 & { 1 & 8 R 1 & BEMERKUNG :T 1 &
0x17f954…17fae8 Dummy {f00=0x0067, f01=0x8190, f02=»CH IN DRUCKER EINLEGEN 1 & $ R 2 & m 2 0 ( 2 > } & 2 J & m 2 Z & " & PRUEFUNG NEUER SPARBUCHSEITE 2 h & E 2 & m 2 ( 2 ~ 2 & 2 ZZZZZZ 2 " 2 &
0x17fae8…17fc7c Dummy {f00=0x0067, f01=0x8190, f02=»!* 2 & # &! AENDERN SPARKONTO NUMMER : 3 & 3 4 & # &! AENDERN GIROKONTO NUMMER : 3 B & 3 l 999999 3 z " aE 3 & 3 & NAME :I 3 & 3 & 8 A 3 & @ 3 & 3 &
0x17fc7c…17fe10 Dummy {f00=0x0067, f01=0x8190, f02=»& 8 R 3 & @ 4 & 4 & 4 . & 4 < & KENNWORT:I 4 L & 4 d & 8 E 4 r & @ @N 4 & 4 & 4 & KREDIT LIMIT : 4 & D 4 ZZZZZZZZ9,99-T 4 " 4
0x17fe10…17ffa4 Dummy {f00=0x0067, f01=0x8190, f02=»KONTO NUMMER : 4 ~ & 5 999999 5 & " aE 5 < & 5 L & )E 5 Z & BUCH SALDO : 5 j & H 5 ZZZZZZZZ9,99 5 " 5 & ZEILE: 5 & " 5 99 5 " 5
0x17ffa4…180138 Dummy {f00=0x0067, f01=0x8190, f02=» : 5 & 6 ZZZZZZZZ9,99-T 6 " 6 > & 6 N & STATUS : 6 & # 6 x 9 6 " 6 & 6 & 6 & LETZTER TRANSAKTION : 6 & 6 99
0x180138…1802cc Dummy {f00=0x0067, f01=0x8190, f02=» & AKKUM. EINZAHLUNGEN : 7 & U 7 ( ZZZZZZZZ9,99 7 : " 7 V & 7 f & AKKUM. AUSZAHLUNGEN : 7 t & U 7 ZZZZZZZZ9,99 7 " 7 ( 7 # 7 & 7 $ & BE
0x1802cc…180460 Dummy {f00=0x0067, f01=0x8190, f02=» & 8 & KARTE 8 & 8 & & NAME 8 4 & " 8 F & EINZAHLUNGEN 8 T & 1 8 n & AUSZAHLUNGEN 8 | & ? 8 & ST 8 ( 8 8 & 8 & WAEHRUNGSNAME : 8 & 8
0x180460…1805f4 (2, 100) Dummy {f00=0x0068, f01=0x8190, f02=» ZZZZ9G 8 " yE 9 & 9 & & ANKAUFSKURSE :(1) 9 4 & 9 T ZZZ9,99- 9 b " tN 9 z & 9 & (2)A 9 & 9 ZZZ9,99R 9 " u2 9 & 9 & VERKAUFSKURSE :(1) 9
0x1805f4…180788 Dummy {f00=0x0068, f01=0x818e, f02=»w2 9 & : & WAEHRUNGSLIMIT:( : & : 6 ZZZZZ9,99M : D " xA : ^ ( : n : z & : & GELDWECHSEL : & E : & (VERKAUF)E : & : & (ANKAUF) : & :
0x180788…18091c Dummy {f00=0x0068, f01=0x818e, f02=» ZZZZ9,99 ; " tU ; & / ; , & ; < & s ; J & ; X ZZZZ9,00 ; f " y/ ; ~ & ; & BETRAG : ; & ; & j ; & ; ZZZZZZZZZ,ZZ ; "
0x18091c…180ab0 Dummy {f00=0x0068, f01=0x818e, f02=» & < * % &# WEITERER GELDWECHSEL (N=0,J=1)? < & @ < @ 9@ < R " h < d ( < t < & < & KASSENBESTAND : < & < & # A < & < ZZZZZZZZ9,99- <
0x180ab0…180c44 Dummy {f00=0x0068, f01=0x8190, f02=» & = & # = & = " ZZZZZZZZ9,99- = 0 " S = N & = ` & = n & # = | & = ZZZZZZZZ9,99- = " S = & = & SCHECK SALDO : = & =
0x180c44…180dd8 Dummy {f00=0x0068, f01=0x8190, f02=» = ` > & > & GESAMTUMSATZ : > & & > F & # E > T & > d ZZZZZZZZ9,99- > r " JE > & > & > & # E > & > ZZZZZZZZ9,99- > " A >
0x180dd8…180f6c Dummy {f00=0x0068, f01=0x8190, f02=» & # > & ? ZZZZZZZZ9,99- ? " A ? < & ? N & WAEHRUNGSUMSATZ : ? & ? | & # A ? & ? ZZZZZZZZ9,99- ? " KA ? ( ? ? & ? & ?
0x180f6c…181100 Dummy {f00=0x0068, f01=0x8190, f02=» ? & UMGEKEHRTU @ & / @ " & M @ 0 & EINZAHLUNG @ @ & I @ X & AUSZAHLUNG @ h & U @ & UEBERWEISUNG @ & @ 99E-99E-99 @ " E @ & * @ ZZZVZZZVZZZ,ZZ @
0x181100…181294 (2, 101) Dummy {f00=0x0068, f01=0x818e, f02=» ( $ &" ENDLOSFORMULAR IN GTP EINLEGEN A & A 0 ( # &! ENDLOSFORMULAR IN LP EINLEGENN A > ( A j A v & A & TAGESAUSZUG EINLEGEN A ( A " A & A * % &# A4-FORMULAR IN DRUCKER EINLEGEN A
0x181294…181428 Dummy {f00=0x0068, f01=0x8190, f02=» & ^ 4 B & B & _ 4 B " & B 2 & i B @ , ' &% !PHILIPS PTS 6371 TERMINAL PRINTERS B N & i B ~ ( B " B & B & B $ & VORHANDENER ZEICHENVORRAT: B ( B W B
0x181428…1815bc Dummy {f00=0x0068, f01=0x8190, f02=»4 5 6A B x & 7 8 9 C ( C " T C . & C > & ODR (N=0,Y=1) ? C L & @ C j 9@ C | " < C & C & TERMINAL NR. : C & C 999N C " 2E C & C
0x1815bc…181750 Dummy {f00=0x0068, f01=0x8190, f02=» C & D & BEDIENER : D & D 2 & D @ & KASSENBESTAND: D N & D j & # A D x & D ZZZZZZZZ9,99- D " S D & D & KASSENBESTAND: D & D & # A D
0x181750…1818e4 Dummy {f00=0x0068, f01=0x8190, f02=» & E ZZZZZZZZ9,99- E " S E 0 & E B & KASSENBESTAND: E P & E l & # A E z & E ZZZZZZZZ9,99- E " S E & E $ & TASTE CONT ODER TASTE CANC E & T
0x1818e4…181a78 Dummy {f00=0x0068, f01=0x8190, f02=» AUSZAHLUNG - GIROKONTO: E & F " 999999 F 0 " aU F F & F V & U F d & F t & - KENNWORT : F & F & F & ' F & Q F & NAME : F & F & F
0x181a78…181c0c Dummy {f00=0x0068, f01=0x8190, f02=» & G ZZZZZZZZZ,ZZ G " c G 2 & G B & ZEILE: G P & G d ZZ G v " e G & G & KREDIT LIMIT:: G & G ZZZZZZZZ9,99 G " R G & G
0x181c0c…181da0 Dummy {f00=0x0068, f01=0x8190, f02=» G ZZZZZZZZ9,99-R H " E H ( ( H 8 H D & H T & UEBERWEISUNG AB KONTO: H b & T E H & H ZZZZZZ H " a H & H & H 999999 H " a
0x181da0…181f34 (2, 102) Dummy {f00=0x0068, f01=0x8190, f02=» & ZEILE: I & I ZZ I * " e I < & I L & KREDIT LIMIT:A I Z & I v ZZZZZZZZ9,99 I " R I & I & BETRAG :A I & I ZZZZZZZZZ,ZZ I
0x181f34…1820c8 Dummy {f00=0x0068, f01=0x818e, f02=»UEBERWEISUNG AUF KONTO: I & J ZZZZZZ J 2 " b J H ( J X J d & J t & WAEHRUNGSNAME: J & J & r J & r J & WAEHRUNGSCODE: J & J & s J & J
0x1820c8…18225c Dummy {f00=0x0068, f01=0x818e, f02=» ZZZ9,99- K " tN K & K , & ANKAUFSKURSE :(2)K K : & K Z & K h ZZZ9,99R K v " uN K & K & VERKAUFSKURSE:(1)K K & K ZZZ9,99- K " vE K &
0x18225c…1823f0 Dummy {f00=0x0068, f01=0x818e, f02=» & L ZZZZZ9,99M L " xA L , ( L < L H & L X & KASSENBESTAND: L f & L & # A L & L ZZZZZZZZ9,99- L " S L & L & KASSENBESTAND : L
0x1823f0…182584 Dummy {f00=0x0068, f01=0x8190, f02=» & M & # A M & M " ZZZZZZZZ9,99- M 0 " S M N & M ` & KASSENBESTAND : M n & M & # A M & M ZZZZZZZZ9,99- M " S M & M & SCHECK SALDO
0x182584…182718 Dummy {f00=0x0068, f01=0x8190, f02=»R TASTE CANC M | ( N N & N 0 & GESAMTUMSATZ: N > & N Z & # E N h & N x ZZZZZZZZ9,99- N " JE N & N & GESAMTUMSATZ: N & N & # E N & N
0x182718…1828ac Dummy {f00=0x0068, f01=0x8190, f02=» ZZZZZZZZ9,99- N " A O & O 0 & GESAMTUMSATZ: O > & O Z & # E O h & O x ZZZZZZZZ9,99- O " A O & O & WAEHRUNGSUMSATZ: O & O & # A O & O
0x1828ac…182a40 Dummy {f00=0x0068, f01=0x8190, f02=»( O P & P . * &( $KASSETTE NOTENWERT ANZAHL NOTEN P ( & $ P Z & P h ZZZZ9E P v " S P & P ZZZZ P " P & ! P ZZZZ P " P
0x182a40…182bd4 (2, 103) Dummy {f00=0x0068, f01=0x8190, f02=» ZZZZ P " Q & Q & & Q 4 99999E Q B " Q X & Q j ZZZZ Q x " Q & ! Q ZZZZ Q " Q & Q & Q 99999E Q
0x182bd4…182d68 Dummy {f00=0x0068, f01=0x8190, f02=» # Q & R & RESTBETRAG IN MUENZEN: R Z9,99R R @ " E R V & T R f & m R x ( R e R & m R " & EINGABE DER STUECKELUNG R & R & NOTENWERT:T R & R
0x182d68…182efc Dummy {f00=0x0068, f01=0x818e, f02=»ZZ R " S & " S ZZZZZZ S , " S B & S R & S ` ZZZZ S n " S & " S ZZZZZZ S " S & S & S ZZZZ S " S
0x182efc…183090 Dummy {f00=0x0068, f01=0x8190, f02=» S T & T & GESCHUETZTER DATENSATZ T & ( T J T V & T f & I/O ERRORT T t ( T T & T & EOI-KEY UNZULAESSIGA T ( T T & T &
0x183090…183224 Dummy {f00=0x0068, f01=0x818e, f02=»& FILE-OPEN ERFOLGLOSA T ( U U , & U < & SCHALTER TERMINALO U J ( U j U v & U & WERT MUSS NULL SEINA U ( U U & U & BEDIENUNGSFEHLER U ( U
0x183224…1833b8 Dummy {f00=0x0068, f01=0x8190, f02=» U v ( V V & V $ & ! & BEDIENER BEREITS ANGEMELDETA V 2 ( V V h & V x & FALSCHES KENNWORTA V ( V " V & V * % &# TERM. GESPERRT, REVISION VERST,N V ( V
0x1833b8…18354c Dummy {f00=0x0068, f01=0x8190, f02=» ( V W & W $ & MASTER KEYSETTING VERLANGT W * ( W R W ^ & W n & AUSFALL EINGABEGERAETL W | ( W % W & W , ( && "VERLANGTES GERAET NICHT SPEZIFIERT W ( W
0x18354c…1836e0 Dummy {f00=0x0068, f01=0x8190, f02=» X & X & GLEICHE KEYWERTE X " ( X @ X L & X & SALDO NICHT NULL X j & X ZZZZZZZZ9,99-L X " A X ( X X & X & KEINE TRANSAKTIONENG
0x1836e0…183874 (2, 104) Dummy {f00=0x0069, f01=0x8190, f02=» FALSCHE KASSETTENFOLGE X ( Y Y , & Y < & AKT FALSCH EROEFFNET Y J ( Y l ( Y x & Y 0 + &) %CONT FUER WIEDERHOLUNG, SONST ABBRUCHR Y ( Y " Y & % Y * % &# AKT-FEHLER, AU
0x183874…183a08 Dummy {f00=0x0069, f01=0x8190, f02=»& Y " & AKT NICHT BETRIEBSBEREIT Z ( Z 2 Z > & Z N & AKT SYSTEMFEHLER Z ( Z z Z & Z & ! & ENTNAHMEZEIT UEBERSCHRITTENC Z ( Z Z & Z & SCHLECHTE
0x183a08…183b9c Dummy {f00=0x0069, f01=0x8190, f02=» & KASSETTE [ " 99999E [ " " S [ 0 & LEERT [ B ( [ V # [ b & [ r & " & PROGRAMM-FEHLER, DEBUG-HILFE [ ( [ $ + [ & [ & KASSETTE [ % 99999E [ " %
0x183b9c…183d30 Dummy {f00=0x0069, f01=0x8190, f02=» ( ' & " & ! & VOLUME-NAME ? : DSCC . ( X ( % d & t , ( && "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): ( ) # & " * & &$ OPEN FORMAT-FILE NOT SUCCESSFULL
0x183d30…183ec4 Dummy {f00=0x0069, f01=0x8190, f02=»-NUMBERI r ( ] + 0 ] & ] , $ & OVERFLOW OF OVERFLOW-AREAN ] : & ] b & ** JOB ABENDED **L ] p ( ] , ] & ] & PRESS CONTINUE ] ( ] - 4 ] & ] $ ! & I/
0x183ec4…184058 Dummy {f00=0x0069, f01=0xc0c6, f02=»MAT" SUCCESSFULLY EXECUTED ] ( ^ " / ^ . 0 1 ^ > $ 0G ^ P ( ^ ` @ < : HD H H JH0X ] J0X D GL0RDGT 0X I ILT_e0X H 4 ^ l ^ @ ^
0x184058…1841ec Dummy {f00=0x0069, f01=0xc076, f02=» $ 0G ^ ( _ @ < : HD H H JH0X ] J0X D GL0RDGT 0X I ILT_e0X H 4 _ _ `@ _ rCONTINUE ^ j ( ^ - 4 ^ & ^ $ ! & I/O ERROR WHILE READING OR ^ & ^ & WRITING FORMAT-FILED ^
0x1841ec…184380 Dummy {f00=0x0069, f01=0x8190, f02=» . H IDENT FORMAT TRA 10.0 - - F1 O1111 AAMAIN 6 $$$TRAR H AAMAIN Z B > FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR n @ < T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKOPNF ZLCLSF
0x184380…184514 (2, 105) Dummy {f00=0x0069, f01=0x8190, f02=» 0 0 + " - / 2 / B 1 ' R 3 b : r = J F " D 0X 1X F1X F L0X WK "L "L E E E 1X F1X F0X 0X K E J W
0x184514…1846a8 Dummy {f00=0x0069, f01=0x8190, f02=» ] 0X D GL0RDGT 0X jE ]P R G 0X H G r 0 @ P b t J F " D "G 0R^FG ]Lj] P^ jB ^P CL JH(BC 0X ]J0X ^6W|j]P E 0X ]J ]Lj]
0x1846a8…18483c Dummy {f00=0x0069, f01=0x818e, f02=»P^@ KE0X ]K0 V $ 4 D " T $ / d & t ( ) , . / 0 2 - 6 8 / :
0x18483c…1849d0 Dummy {f00=0x0069, f01=0x818e, f02=» F + J L / $ N 4 P * D R T T d t ^ / ` b ( d k n J F " D @X F1X FW 1X F1X F R0X I D 1X
0x1849d0…184b64 Dummy {f00=0x0069, f01=0x8190, f02=» * d " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x184b64…184cf8 Dummy {f00=0x0069, f01=0x8190, f02=» " = " " " ? . " < " J " X " f " t " " " " @ " D " I " O " V " Y " _
0x184cf8…184e8c Dummy {f00=0x0069, f01=0x818e, f02=» " " " & " 4 " B " P " ^ " l " z " " " " " " " " "
0x184e8c…185020 Dummy {f00=0x0069, f01=0x8190, f02=» " " " " . " ! < " # J " $ X " f " & t " " " " " " " " ( "
0x185020…1851b4 (2, 106) Dummy {f00=0x0069, f01=0x8190, f02=» BILDSCHIRM 01/06/08/20/24 ? & & 99 8 " e J ( Z z f & v & & *********M 8 3 &1 -VORFUEHRUNG PHILIPS PTS 6344 BILDSCHIRMGERAET & *********N &
0x1851b4…185348 Dummy {f00=0x0069, f01=0x8190, f02=» & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! L & ! Z & ! h & ! v & & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! & ! & ! & ! & VORHANDE
0x185348…1854dc Dummy {f00=0x0069, f01=0x818e, f02=»@ABCDEFGHIJKLMNO & & & & 4 & PQRSTUVWXYZ[ ]^_ B & `abcdefghijklmno ` & pqrstuvwxyz{|}~ ~ & & & & NATIONALER VERSION : & & #@[ ]`{|}~
0x1854dc…185670 Dummy {f00=0x0069, f01=0x8190, f02=» & & OPTION : & 2 , ' &% !24 LINES / 80 CHARACTERS PER LINES @ & ! p & ! ~ & ! & NAME :H & @ E & & & ADRESSE : & ,@
0x185670…185804 Dummy {f00=0x0069, f01=0x8190, f02=» & ,@ & & $ & ZWEIGSTELLENR :H 2 & I P ZZZZ b " e v & & KONTO NR. :N & , T ZZZZZZZZZZZZ " e ( m
0x185804…185998 Dummy {f00=0x0069, f01=0x8190, f02=»S. DRUCKEN (N=0,L=1,R=2) ? & ! @ " 9@ 4 " 9 F & V $ & TEP (=0) TTP (=1) GTP (=2) d & & ! & TEP-ZEK (=3) GP74 (=4) ?= & ! @ 9@ " : & $
0x185998…185b2c Dummy {f00=0x0069, f01=0x818e, f02=»& ! @ 9@ " < " & 2 " & HARDCOPY HP75 (N=0,J=1)? @ & ! @ f 9@ x " > & & AKT (N=0,J=1)? & ! @ 9@ " ? &
0x185b2c…185cc0 Dummy {f00=0x0069, f01=0x8190, f02=» & E & 5 & ' $ & NAME TERMINAL :N 2 & P & SCHALTER TRM( ^ 999T z " 2C & )C ( & " & MLP INTEGRIERT (N=0,J=1) & $ @
0x185cc0…185e54 (2, 107) Dummy {f00=0x0069, f01=0x818e, f02=» & # & # & TEXT ? & 2 & 8 E @ & @T P & ' b & ' p & ZEIT (SSMM) ? ~ & T ZZE:ZZ " & & DATUM (TTMMJJ) ? &
0x185e54…185fe8 Dummy {f00=0x0069, f01=0x8190, f02=» & @H & r & r $ & WAEHRUNGSCODE : 2 & 8 A P & @H ` & s r & & REL.: & ZZZZ9G " y & & ANKAUFSKURSE :(1)
0x185fe8…18617c Dummy {f00=0x0069, f01=0x8190, f02=» u & & VERKAUFSKURSE :(1) & : ZZZ9,99- L " v d & t & (2) & ZZZZ,ZZU " w & & WAEHRUNGSLIMIT:( &
0x18617c…186310 Dummy {f00=0x0069, f01=0x8190, f02=» ZZZZZR " e ( & 2 & B & NAME BEDIENER :( P & 8 A n & @E ~ & & & KENNWORT :( & @N & & & SPRACHE
0x186310…1864a4 Dummy {f00=0x0069, f01=0x8190, f02=» & KASSENBESTAND :( & & # A , & S < ! ZZZZZZZZ9,99-( N " ! S l & ! ~ & & # & S " ZZZZZZZZ9,99-( " " S & " &
0x1864a4…186638 Dummy {f00=0x0069, f01=0x8190, f02=» $ ZZZZZZZZ9,99-( " $ S & & $ 8 , ' &% !AKK. AUF NULL STELLEN (N=0,J=1) ?S F & # @ v % 9@ " %e ( & & % & EINZAHLUNGEN :E & &
0x186638…1867cc Dummy {f00=0x0069, f01=0x818e, f02=» & # U & Z ( ZZZZZZZZ9,99- & " ( Z D & ( V & AKKUM. SCHECKS :E d & & # K & U ) ZZZZZZZZ9,99- " ) U & ) & AKKUM. UEBERWE
0x1867cc…186960 Dummy {f00=0x0069, f01=0x8190, f02=» & * & * & WAEHRUNGSVERKAEUFE:E & # A B & H R + ZZZZZZZZ9,99-U d " + H & + & WAEHRUNGSANKAEUFE :E & # A & H , ZZZZZZZZ9,99-F "
0x186960…186af4 (2, 108) Dummy {f00=0x006a, f01=0x8190, f02=» & - & & # $ & H 4 . ZZZZZZZZ9,99-. F " . H d & . v & & # & H / ZZZZZZZZ9,99-. " / H ( 0 d & /
0x186af4…186c88 Dummy {f00=0x006a, f01=0x818e, f02=»(U ~ 1 999T " 12C & )C . & " > 2 999T L " 22C ` & 2 p & ZEIT (SSMM) : ~ & 3 ZZE:ZZ " 3 E & 3 & DATUM (TTMMJJ): &
0x186c88…186e1c Dummy {f00=0x006a, f01=0x8190, f02=» 6 ZZZZZR " 6e & 6 * & KENNWORT : 8 & V & j h & j v & SPRACHE : & @ 7 9@ " 7 ( 8 } & 7 & NA
0x186e1c…186fb0 Dummy {f00=0x006a, f01=0x8190, f02=»ZZZZ9,99- " 9 S & 9 $ & 2 & # @ & P : ZZZZZZZZ9,99- ^ " : S | & : & & # & ; ZZZZZZZZ9,99- " ; S & ;
0x186fb0…187144 Dummy {f00=0x006a, f01=0x8190, f02=»EL p & $ T & W ( * = 6 & W F & U T & T d & 6@ t & ' & " & SPARBUCH IN DRUCKER EINLEGEN & $ R & m & q & STECHE KARTE IN MSU
0x187144…1872d8 Dummy {f00=0x006a, f01=0x8190, f02=»& KONTO ODER KARTENNUMMER : & & > ZZZZZZ 8 " >a N ( ^ ? j & > z & > $ & BITTE FUNKTION EINGEBEN : ( @ & & Q & " & EROEFFNE SPA
0x1872d8…18746c Dummy {f00=0x006a, f01=0x8190, f02=» NAME :G & & & & 4 & ADRESSE :G B & Z & l & z & ORT :G & & & & Q & KENNWORT:G & @N
0x18746c…187600 Dummy {f00=0x006a, f01=0x8190, f02=» E C ZZZZZZZ9,99: " C ( ( 8 D D & C T & b $ ! & ABSCHLUSS SPARKONTO NR. : r & $ ! & ABSCHLUSS GIROKONTO NR. : & E 999999 " EaB &
0x187600…187794 (2, 109) Dummy {f00=0x006a, f01=0x8190, f02=»" F K & F ! & K ! & BUCH SALDO : ! , & ! L & KREDIT LIMIT : ! Z & ! z G ZZZZZZZZ9,99 ! " G R ! & G ! & R ! & KENNWORT : ! & ! & !
0x187794…187928 Dummy {f00=0x006a, f01=0x8190, f02=» ! & A " $ & EINZAHLUNG - SPARKONTO: " & " @ $ & EINZAHLUNG - GIROKONTO: " N & " v J 999999 " " JaI " & J " & 8I " & R5I " & BUCH SALDO :- " & " & U
0x187928…187abc Dummy {f00=0x006a, f01=0x8190, f02=» & # " L ZZ # " Le # $ & # 4 & NAME :- # B & # ^ & # l & # z & BETRAG :- # & # M ZZZZZZZZZ,ZZ # " M # & M # & NEUER SALDO :- #
0x187abc…187c50 Dummy {f00=0x006a, f01=0x8190, f02=» U # & SPAR $ & $ & GIRO $ * & KONTO : $ < & $ R P 999999 $ ` " PaO $ v & P $ & O $ & $ & - KENNWORT :O $ & $ & $ & , $ & Q $
0x187c50…187de4 Dummy {f00=0x006a, f01=0x8190, f02=» $ & _ % & 5 % & BUCH SALDO : % & & % B & U U % P & % ` Q ZZZZZZZZZ,ZZ % r " Qc % & % & ZEILE: % & # % & U E % & # % R ZZ % " R
0x187de4…187f78 Dummy {f00=0x006a, f01=0x818e, f02=» : % & & T ZZZZZZZZZ,ZZ & " " T & > & T & N & NEUER SALDO : & & & x U ZZZZZZZZ9,99- & " U E & ( & V . & & & & Z & W ZE & " W9
0x187f78…18810c Dummy {f00=0x006a, f01=0x818e, f02=» & & KONTO ABSCHLUSS ' & c O ' & & KONTO SPERRENS ' 6 & d O ' R & K. ENTSPERRENS ' b & e . ' ~ & KONTO AENDERNS ' & f O ' & WAEHR. AENDERN ' & g A ' & KONTO ABFRAGEN ' & h
0x18810c…1882a0 Dummy {f00=0x006a, f01=0x8190, f02=» ' & TAGESWAEHRUNGS ( & l A ( $ & WAEHR. ABFRAGE ( 4 & m A ( P & KONTEN LISTENE ( ` & ( | & ` O ( & i O ( & Z O ( & ( & ( X ZZZZZZ ( " X O ( & X O (
0x1882a0…188434 (2, 110) Dummy {f00=0x006a, f01=0x818e, f02=» Z ZT ( " Z9 ) & ) & 2 ) . & ABBRUCHL ) > & ) T [ 999999 ) b " [ B ) x & ) 99999L ) " =B ) & ) ] 999C ) " ]2B ) & ) ^ 99E:
0x188434…1885c8 Dummy {f00=0x006a, f01=0x8190, f02=» ) " & UEBERWEISUNG AB KONTO : * & T E * . & U E * > & * N ` ZZZZZZ * ` " `a * v & * & * a 999999 * " aa * & a * & 5 * & BUCH SALDO : * &
0x1885c8…18875c Dummy {f00=0x006a, f01=0x8190, f02=» & " * c ZZ + " ce + $ & + 4 & KREDIT LIMIT: + B & + ^ d ZZZZZZZZ9,99 + l " d R + & d + & BETRAG : + & + e ZZZZZZZZZ,ZZ + " e + & e +
0x18875c…1888f0 Dummy {f00=0x006a, f01=0x8190, f02=»: + t & , g ZZZZZZ , " gb , 2 ( , B h , N & g , ^ & , l $ ! & ABFRAGE SPARKONTO NUMMER : , | & , $ ! & ABFRAGE GIROKONTO NUMMER : , & , i 999999 , " iaB ,
0x1888f0…188a84 Dummy {f00=0x006a, f01=0x8190, f02=» & BUCH SALDO : - & - " & KREDIT LIMIT : - 0 & - N k ZZZZZZZZ9,99- - " k R - z & k - & STATUS : - & - l 9T - " l T - & l - ( $ &" LETZTE TRANS.V
0x188a84…188c18 Dummy {f00=0x006a, f01=0x8190, f02=»ABFRAGE-KONTONR: - ~ & . o 999999 . & " oaR . < & o . L & TRANS. : . Z & . p p 999. . ~ " p R . & /R . q 99999: . " q R . & /R . r 999999 . " r R .
0x188c18…188dac Dummy {f00=0x006a, f01=0x8190, f02=»99- . ~ " t E / & t / & NEUER SALDO: / * & / D u ZZZZZZZZ9,99- / R " u E / p & u / * % &# VORH. TRANS. VERLANGT (N=0,J=1) / & @ / v 9@ / " ve / ( / w ' /
0x188dac…188f40 Dummy {f00=0x006a, f01=0x8190, f02=»R: / p & A 0 & c 0 & " & SPERREN GIROKONTO NUMMER : 0 & & 0 P & " & ENTSPERREN GIROKONTO NUMMER: 0 ^ & 0 x 999999 0 " xaN 0 & x 0 & NAME : 0 & 0 & 0 & 0
0x188f40…1890d4 (2, 111) Dummy {f00=0x006a, f01=0x8190, f02=» SALDO :N 0 & 1 z ZZZZZZZZ9,99- 1 $ " z U 1 B & 1 R & 1 ` & KREDIT LIMIT :N 1 n & 1 { ZZZZZZZZ9,99- 1 " { R 1 & { 1 & 8 R 1 & BEMERKUNG :T 1 &
0x1890d4…189268 Dummy {f00=0x006a, f01=0x8190, f02=»CH IN DRUCKER EINLEGEN 1 & $ R 2 & m 2 0 ( 2 > } & 2 J & m 2 Z & " & PRUEFUNG NEUER SPARBUCHSEITE 2 h & E 2 & m 2 ( 2 ~ 2 & 2 ZZZZZZ 2 " 2 &
0x189268…1893fc Dummy {f00=0x006a, f01=0x8190, f02=»!* 2 & # &! AENDERN SPARKONTO NUMMER : 3 & 3 4 & # &! AENDERN GIROKONTO NUMMER : 3 B & 3 l 999999 3 z " aE 3 & 3 & NAME :I 3 & 3 & 8 A 3 & @ 3 & 3 &
0x1893fc…189590 Dummy {f00=0x006a, f01=0x8190, f02=»& 8 R 3 & @ 4 & 4 & 4 . & 4 < & KENNWORT:I 4 L & 4 d & 8 E 4 r & @ @N 4 & 4 & 4 & KREDIT LIMIT : 4 & D 4 ZZZZZZZZ9,99-T 4 " 4
0x189590…189724 Dummy {f00=0x006a, f01=0x8190, f02=»KONTO NUMMER : 4 ~ & 5 999999 5 & " aE 5 < & 5 L & )E 5 Z & BUCH SALDO : 5 j & H 5 ZZZZZZZZ9,99 5 " 5 & ZEILE: 5 & " 5 99 5 " 5
0x189724…1898b8 Dummy {f00=0x006a, f01=0x8190, f02=» : 5 & 6 ZZZZZZZZ9,99-T 6 " 6 > & 6 N & STATUS : 6 & # 6 x 9 6 " 6 & 6 & 6 & LETZTER TRANSAKTION : 6 & 6 99
0x1898b8…189a4c Dummy {f00=0x006a, f01=0x8190, f02=» & AKKUM. EINZAHLUNGEN : 7 & U 7 ( ZZZZZZZZ9,99 7 : " 7 V & 7 f & AKKUM. AUSZAHLUNGEN : 7 t & U 7 ZZZZZZZZ9,99 7 " 7 ( 7 # 7 & 7 $ & BE
0x189a4c…189be0 Dummy {f00=0x006a, f01=0x8190, f02=» & 8 & KARTE 8 & 8 & & NAME 8 4 & " 8 F & EINZAHLUNGEN 8 T & 1 8 n & AUSZAHLUNGEN 8 | & ? 8 & ST 8 ( 8 8 & 8 & WAEHRUNGSNAME : 8 & 8
0x189be0…189d74 (2, 112) Dummy {f00=0x006b, f01=0x8190, f02=» ZZZZ9G 8 " yE 9 & 9 & & ANKAUFSKURSE :(1) 9 4 & 9 T ZZZ9,99- 9 b " tN 9 z & 9 & (2)A 9 & 9 ZZZ9,99R 9 " u2 9 & 9 & VERKAUFSKURSE :(1) 9
0x189d74…189f08 Dummy {f00=0x006b, f01=0x818e, f02=»w2 9 & : & WAEHRUNGSLIMIT:( : & : 6 ZZZZZ9,99M : D " xA : ^ ( : n : z & : & GELDWECHSEL : & E : & (VERKAUF)E : & : & (ANKAUF) : & :
0x189f08…18a09c Dummy {f00=0x006b, f01=0x818e, f02=» ZZZZ9,99 ; " tU ; & / ; , & ; < & s ; J & ; X ZZZZ9,00 ; f " y/ ; ~ & ; & BETRAG : ; & ; & j ; & ; ZZZZZZZZZ,ZZ ; "
0x18a09c…18a230 Dummy {f00=0x006b, f01=0x818e, f02=» & < * % &# WEITERER GELDWECHSEL (N=0,J=1)? < & @ < @ 9@ < R " h < d ( < t < & < & KASSENBESTAND : < & < & # A < & < ZZZZZZZZ9,99- <
0x18a230…18a3c4 Dummy {f00=0x006b, f01=0x8190, f02=» & = & # = & = " ZZZZZZZZ9,99- = 0 " S = N & = ` & = n & # = | & = ZZZZZZZZ9,99- = " S = & = & SCHECK SALDO : = & =
0x18a3c4…18a558 Dummy {f00=0x006b, f01=0x8190, f02=» = ` > & > & GESAMTUMSATZ : > & & > F & # E > T & > d ZZZZZZZZ9,99- > r " JE > & > & > & # E > & > ZZZZZZZZ9,99- > " A >
0x18a558…18a6ec Dummy {f00=0x006b, f01=0x8190, f02=» & # > & ? ZZZZZZZZ9,99- ? " A ? < & ? N & WAEHRUNGSUMSATZ : ? & ? | & # A ? & ? ZZZZZZZZ9,99- ? " KA ? ( ? ? & ? & ?
0x18a6ec…18a880 Dummy {f00=0x006b, f01=0x8190, f02=» ? & UMGEKEHRTU @ & / @ " & M @ 0 & EINZAHLUNG @ @ & I @ X & AUSZAHLUNG @ h & U @ & UEBERWEISUNG @ & @ 99E-99E-99 @ " E @ & * @ ZZZVZZZVZZZ,ZZ @
0x18a880…18aa14 (2, 113) Dummy {f00=0x006b, f01=0x818e, f02=» ( $ &" ENDLOSFORMULAR IN GTP EINLEGEN A & A 0 ( # &! ENDLOSFORMULAR IN LP EINLEGENN A > ( A j A v & A & TAGESAUSZUG EINLEGEN A ( A " A & A * % &# A4-FORMULAR IN DRUCKER EINLEGEN A
0x18aa14…18aba8 Dummy {f00=0x006b, f01=0x8190, f02=» & ^ 4 B & B & _ 4 B " & B 2 & i B @ , ' &% !PHILIPS PTS 6371 TERMINAL PRINTERS B N & i B ~ ( B " B & B & B $ & VORHANDENER ZEICHENVORRAT: B ( B W B
0x18aba8…18ad3c Dummy {f00=0x006b, f01=0x8190, f02=»4 5 6A B x & 7 8 9 C ( C " T C . & C > & ODR (N=0,Y=1) ? C L & @ C j 9@ C | " < C & C & TERMINAL NR. : C & C 999N C " 2E C & C
0x18ad3c…18aed0 Dummy {f00=0x006b, f01=0x8190, f02=» C & D & BEDIENER : D & D 2 & D @ & KASSENBESTAND: D N & D j & # A D x & D ZZZZZZZZ9,99- D " S D & D & KASSENBESTAND: D & D & # A D
0x18aed0…18b064 Dummy {f00=0x006b, f01=0x8190, f02=» & E ZZZZZZZZ9,99- E " S E 0 & E B & KASSENBESTAND: E P & E l & # A E z & E ZZZZZZZZ9,99- E " S E & E $ & TASTE CONT ODER TASTE CANC E & T
0x18b064…18b1f8 Dummy {f00=0x006b, f01=0x8190, f02=» AUSZAHLUNG - GIROKONTO: E & F " 999999 F 0 " aU F F & F V & U F d & F t & - KENNWORT : F & F & F & ' F & Q F & NAME : F & F & F
0x18b1f8…18b38c Dummy {f00=0x006b, f01=0x8190, f02=» & G ZZZZZZZZZ,ZZ G " c G 2 & G B & ZEILE: G P & G d ZZ G v " e G & G & KREDIT LIMIT:: G & G ZZZZZZZZ9,99 G " R G & G
0x18b38c…18b520 Dummy {f00=0x006b, f01=0x8190, f02=» G ZZZZZZZZ9,99-R H " E H ( ( H 8 H D & H T & UEBERWEISUNG AB KONTO: H b & T E H & H ZZZZZZ H " a H & H & H 999999 H " a
0x18b520…18b6b4 (2, 114) Dummy {f00=0x006b, f01=0x8190, f02=» & ZEILE: I & I ZZ I * " e I < & I L & KREDIT LIMIT:A I Z & I v ZZZZZZZZ9,99 I " R I & I & BETRAG :A I & I ZZZZZZZZZ,ZZ I
0x18b6b4…18b848 Dummy {f00=0x006b, f01=0x818e, f02=»UEBERWEISUNG AUF KONTO: I & J ZZZZZZ J 2 " b J H ( J X J d & J t & WAEHRUNGSNAME: J & J & r J & r J & WAEHRUNGSCODE: J & J & s J & J
0x18b848…18b9dc Dummy {f00=0x006b, f01=0x818e, f02=» ZZZ9,99- K " tN K & K , & ANKAUFSKURSE :(2)K K : & K Z & K h ZZZ9,99R K v " uN K & K & VERKAUFSKURSE:(1)K K & K ZZZ9,99- K " vE K &
0x18b9dc…18bb70 Dummy {f00=0x006b, f01=0x818e, f02=» & L ZZZZZ9,99M L " xA L , ( L < L H & L X & KASSENBESTAND: L f & L & # A L & L ZZZZZZZZ9,99- L " S L & L & KASSENBESTAND : L
0x18bb70…18bd04 Dummy {f00=0x006b, f01=0x8190, f02=» & M & # A M & M " ZZZZZZZZ9,99- M 0 " S M N & M ` & KASSENBESTAND : M n & M & # A M & M ZZZZZZZZ9,99- M " S M & M & SCHECK SALDO
0x18bd04…18be98 Dummy {f00=0x006b, f01=0x8190, f02=»R TASTE CANC M | ( N N & N 0 & GESAMTUMSATZ: N > & N Z & # E N h & N x ZZZZZZZZ9,99- N " JE N & N & GESAMTUMSATZ: N & N & # E N & N
0x18be98…18c02c Dummy {f00=0x006b, f01=0x8190, f02=» ZZZZZZZZ9,99- N " A O & O 0 & GESAMTUMSATZ: O > & O Z & # E O h & O x ZZZZZZZZ9,99- O " A O & O & WAEHRUNGSUMSATZ: O & O & # A O & O
0x18c02c…18c1c0 Dummy {f00=0x006b, f01=0x8190, f02=»( O P & P . * &( $KASSETTE NOTENWERT ANZAHL NOTEN P ( & $ P Z & P h ZZZZ9E P v " S P & P ZZZZ P " P & ! P ZZZZ P " P
0x18c1c0…18c354 (2, 115) Dummy {f00=0x006b, f01=0x8190, f02=» ZZZZ P " Q & Q & & Q 4 99999E Q B " Q X & Q j ZZZZ Q x " Q & ! Q ZZZZ Q " Q & Q & Q 99999E Q
0x18c354…18c4e8 Dummy {f00=0x006b, f01=0x8190, f02=» # Q & R & RESTBETRAG IN MUENZEN: R Z9,99R R @ " E R V & T R f & m R x ( R e R & m R " & EINGABE DER STUECKELUNG R & R & NOTENWERT:T R & R
0x18c4e8…18c67c Dummy {f00=0x006b, f01=0x818e, f02=»ZZ R " S & " S ZZZZZZ S , " S B & S R & S ` ZZZZ S n " S & " S ZZZZZZ S " S & S & S ZZZZ S " S
0x18c67c…18c810 Dummy {f00=0x006b, f01=0x8190, f02=» S T & T & GESCHUETZTER DATENSATZ T & ( T J T V & T f & I/O ERRORT T t ( T T & T & EOI-KEY UNZULAESSIGA T ( T T & T &
0x18c810…18c9a4 Dummy {f00=0x006b, f01=0x818e, f02=»& FILE-OPEN ERFOLGLOSA T ( U U , & U < & SCHALTER TERMINALO U J ( U j U v & U & WERT MUSS NULL SEINA U ( U U & U & BEDIENUNGSFEHLER U ( U
0x18c9a4…18cb38 Dummy {f00=0x006b, f01=0x8190, f02=» U v ( V V & V $ & ! & BEDIENER BEREITS ANGEMELDETA V 2 ( V V h & V x & FALSCHES KENNWORTA V ( V " V & V * % &# TERM. GESPERRT, REVISION VERST,N V ( V
0x18cb38…18cccc Dummy {f00=0x006b, f01=0x8190, f02=» ( V W & W $ & MASTER KEYSETTING VERLANGT W * ( W R W ^ & W n & AUSFALL EINGABEGERAETL W | ( W % W & W , ( && "VERLANGTES GERAET NICHT SPEZIFIERT W ( W
0x18cccc…18ce60 Dummy {f00=0x006b, f01=0x8190, f02=» X & X & GLEICHE KEYWERTE X " ( X @ X L & X & SALDO NICHT NULL X j & X ZZZZZZZZ9,99-L X " A X ( X X & X & KEINE TRANSAKTIONENG
0x18ce60…18cff4 (2, 116) Dummy {f00=0x006c, f01=0x8190, f02=» FALSCHE KASSETTENFOLGE X ( Y Y , & Y < & AKT FALSCH EROEFFNET Y J ( Y l ( Y x & Y 0 + &) %CONT FUER WIEDERHOLUNG, SONST ABBRUCHR Y ( Y " Y & % Y * % &# AKT-FEHLER, AU
0x18cff4…18d188 Dummy {f00=0x006c, f01=0x8190, f02=»& Y " & AKT NICHT BETRIEBSBEREIT Z ( Z 2 Z > & Z N & AKT SYSTEMFEHLER Z ( Z z Z & Z & ! & ENTNAHMEZEIT UEBERSCHRITTENC Z ( Z Z & Z & SCHLECHTE
0x18d188…18d31c Dummy {f00=0x006c, f01=0x8190, f02=» & KASSETTE [ " 99999E [ " " S [ 0 & LEERT [ B ( [ V # [ b & [ r & " & PROGRAMM-FEHLER, DEBUG-HILFE [ ( [ $ + [ & [ & KASSETTE [ % 99999E [ " %
0x18d31c…18d4b0 Dummy {f00=0x006c, f01=0x8190, f02=» ( ' & " & ! & VOLUME-NAME ? : DSCC . ( X ( % d & t , ( && "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): ( ) # & " * & &$ OPEN FORMAT-FILE NOT SUCCESSFULL
0x18d4b0…18d644 Dummy {f00=0x006c, f01=0x8190, f02=»-NUMBERI r ( ] + 0 ] & ] , $ & OVERFLOW OF OVERFLOW-AREAN ] : & ] b & ** JOB ABENDED **L ] p ( ] , ] & ] & PRESS CONTINUE ] ( ] - 4 ] & ] $ ! & I/
0x18d644…18d7d8 Dummy {f00=0x006c, f01=0xc0c6, f02=»MAT" SUCCESSFULLY EXECUTED ] ( ^ " / ^ . 0 1 ^ > $ 0G ^ P ( ^ ` @ < : HD H H JH0X ] J0X D GL0RDGT 0X I ILT_e0X H 4 ^ l ^ @ ^
0x18d7d8…18d96c Dummy {f00=0x006c, f01=0x0190, f02=» . H IDENT FORMAT TRA 11.0 - - F1 O1111 AAMAIN 6 $$$TRAR H AAMAIN Z B > FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR n @ < T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKOPNF ZLCLSF
0x18d96c…18db00 Dummy {f00=0x006c, f01=0x0190, f02=» 0 0 + " - / 2 / B 1 ' R 3 b : r = J F " D 0X 1X F1X F L0X WK "L "L E E E 1X F1X F0X 0X K E J W
0x18db00…18dc94 (2, 117) Dummy {f00=0x006c, f01=0x0190, f02=» ] 0X D GL0RDGT 0X jE ]P R G 0X H G r 0 @ P b t J F " D "G 0R^FG ]Lj] P^ jB ^P CL JH(BC 0X ]J0X ^6W j]P E 0X ]J ]Lj]
0x18dc94…18de28 Dummy {f00=0x006c, f01=0x018e, f02=»P^@ KE0X ]K0 V $ 4 $ D * T . d 0 / t 2 4 ) 8 : / < > - J F " D X E _ D J 0X ]DJj]P E 0X
0x18de28…18dfbc Dummy {f00=0x006c, f01=0x0190, f02=» P R + V $ X / 4 Z D * T ^ d ` t h j / l n ( p w z J F " D @ 1X F1X FW 1X
0x18dfbc…18e150 Dummy {f00=0x006c, f01=0x0190, f02=» J F " D - 1 H1 H #,HD H H JD0X ] J0X D GL0RDGT 0X I ILT_e0X H & * d t " " " " " " " " " "
0x18e150…18e2e4 Dummy {f00=0x006c, f01=0x0190, f02=»" " 5 " 8 " ( " 6 " D " R " = ` " n " | " ? " " " " " " " "
0x18e2e4…18e478 Dummy {f00=0x006c, f01=0x0190, f02=» " | " } " ~ " . " < " J " X " f " t " " " " " " " " " "
0x18e478…18e60c Dummy {f00=0x006c, f01=0x0190, f02=» " " " & " 4 " B " P " ^ " l " z " " ! " # " $ " " & " " "
0x18e60c…18e7a0 Dummy {f00=0x006c, f01=0x0190, f02=» v & & m ( ( # 4 & m D " & DISPLAY 01/06/08/20/24 ? R & x 99 " e ( q & & & *****A @ ; &9 5DEMONSTRAT
0x18e7a0…18e934 (2, 118) Dummy {f00=0x006c, f01=0x018e, f02=»ILIPS PTS 6344 VISUAL DISPLAY UNIT & $ * & $ 8 & $ F & T & b . * &( $PHILIPS PTS 6344 VISUAL DISPLAY UNIT p & $ & $ & $ & $ & & . * &( $PHILIPS PTS
0x18e934…18eac8 Dummy {f00=0x006c, f01=0x0190, f02=» & & !#$%&'()*+,-./C & 0123456789:;<=>? 4 & @ABCDEFGHIJKLMNO R & p & ~ & & PQRSTUVWXYZ[ ]^_ & `abcdefghijklmno & pqrstuvwxyz{|}~ & &
0x18eac8…18ec5c Dummy {f00=0x006c, f01=0x0190, f02=»& , ' &% !20 LINES / 64 CHARACTERS PER LINEN & ! < & ! J & OPTIONAL : X & t , ' &% !24 LINES / 80 CHARACTERS PER LINEN & ! & ! & ! & & NAME : &
0x18ec5c…18edf0 Dummy {f00=0x006c, f01=0x018e, f02=»CODE : & D - & Z & . & CITY :8 < & ,@ Y V & h & v & & BRANCHNR : & N ZZZZ " f & & ACCOUNTNR :8
0x18edf0…18ef84 Dummy {f00=0x006c, f01=0x0190, f02=» & ! @ 9@ " 8 ( & 8 * % &# SHARED PRINTING (N=0,L=1,R=2) ?N F & ! @ t 9@ " 9 & " & TEP(=0) TTP(=1) GTP(=2)1 & & TEP-ZEK(=3) GP74(=4) ?
0x18ef84…18f118 Dummy {f00=0x006c, f01=0x0190, f02=»9@ " ; & & ODR (N=0,Y=1) ?M ( & ! @ F 9@ X " < j & z " & HARDCOPY HP75 (N=0,Y=1)? & ! @ 9@ " > & & TND (N=0,Y=1)?
0x18f118…18f2ac Dummy {f00=0x006c, f01=0x0190, f02=»" 2E & & 8 E & TERMINAL NAME ?N , & M J & 5 & ' j & TERMINAL NAME :N x & & FRONT OFFICE( 999 " 2R & )R (
0x18f2ac…18f440 Dummy {f00=0x006c, f01=0x0190, f02=»EM CURRENCY CODE ? & ! & 8 Y ( & ! @T 8 & # J & # Z & TEXT ? h & | & 8 E & @T & ' & ' & TIME (HHMM) ? & E ZZE:ZZ
0x18f440…18f5d4 (2, 119) Dummy {f00=0x006c, f01=0x0190, f02=» & & CURRENCY NAME : & 8 U < & @R L & r ^ & r l & CURRENCY CODE : z & 8 U & @R & s & & REL.: & ZZZZ
0x18f5d4…18f768 Dummy {f00=0x006c, f01=0x0190, f02=» & (2) & ZZZZ,ZZT , " u D & T & SELLING RATES :(1) b & ZZZ9,99- " v & & (2) & ZZZZ,ZZA
0x18f768…18f8fc Dummy {f00=0x006c, f01=0x018e, f02=» & & OPERATOR I.D. :( & 6 ZZZZZR H " e ^ ( n z & & OPERATOR NAME :( & 8 P & @R & & & PASSWORD
0x18f8fc…18fa90 Dummy {f00=0x006c, f01=0x018e, f02=» & & & & . & < & CASH BALANCES :( J & h & # A v & H ! ZZZZZZZZ9,99-( " ! H & ! & & # & H
0x18fa90…18fc24 Dummy {f00=0x006c, f01=0x0190, f02=» " # H & # & $ & # 2 & H B $ ZZZZZZZZ9,99-( T " $ H r & $ * & &$ ZEROISE ACCUMULATORS (N=0,Y=1) ? & # @ % 9@ " %e ( &
0x18fc24…18fdb8 Dummy {f00=0x006c, f01=0x0190, f02=» ' H & ' & CASH WITHDRAWALS : & < & # A J & H Z ( ZZZZZZZZ9,99-S l " ( H & ( & ACCUM. CHEQUES : & & # C & U ) ZZZZZZ
0x18fdb8…18ff4c Dummy {f00=0x006c, f01=0x0190, f02=»ZZZZZZZZ9,99-S " * U & * ( & * 6 & * D & * R & CURRENCY SOLD : ` & # U & R + ZZZZZZZZ9,99- " + R & + & CURRENCY BOUGHT : & # U
0x18ff4c…1900e0 Dummy {f00=0x006c, f01=0x0190, f02=» & R - ZZZZZZZZ9,99- " - R 0 & - B & P & # ^ & R n . ZZZZZZZZ9,99- " . R & . & & # & R / ZZZZZZZZ9,99-
0x1900e0…190274 (2, 120) Dummy {f00=0x006d, f01=0x0190, f02=» 8 E & 5 & & FRONT OFFICE(M ( 1 999 D " 12R X & )R h & x & " 2 999 " 22R & 2 & TIME (HHMM) : & 3 ZZE:ZZ
0x190274…190408 Dummy {f00=0x006d, f01=0x0190, f02=» 5 Q & 4 & OPERATOR I.D. : & 8 6 ZZZZZR J " 6e ` & 6 p & PASSWORD : ~ & & j & j & LANGUAGE : & @ 7 9@
0x190408…19059c Dummy {f00=0x006d, f01=0x018e, f02=»CES : & & # A & , 9 ZZZZZZZZ9,99- : " 9 H X & 9 j & x & # & : ZZZZZZZZ9,99- " : H & : & & # &
0x19059c…190730 Dummy {f00=0x006d, f01=0x0190, f02=» x " < H & < . ) &' #PRESS CONT. TO CONFIRM, ELSE CANCELT ( & $ S Z & W l ( z = & W & U & T] & 6A & , , ' &% !MOUNT PASSBOOK IN VOUCHER-PRINTE
0x190730…1908c4 Dummy {f00=0x006d, f01=0x0190, f02=» & A & Q R " & DRAW CHEQUE THROUGH ODRE & # D " & ACCOUNT OR CARD NUMBER : R & x > ZZZZZZ " >a ( ? $ & > & > * & &$ PLEASE ENTER REQUIRED FUNC
0x1908c4…190a58 Dummy {f00=0x006d, f01=0x018e, f02=»OPEN CHEQUE ACCOUNT NUMBER : A 999999 & " AaP < & A L & NAME :U Z & r & & & ADDRESS :U & & & & TOWN :U &
0x190a58…190bec Dummy {f00=0x006d, f01=0x018e, f02=» & B ZZZZ " B . & CREDIT LIMIT: > & E Z C ZZZZZZZZ9,99 l " C ( D & C & $ ! & CLOSE SAVINGS ACCOUNT NR : & $ !
0x190bec…190d80 Dummy {f00=0x006d, f01=0x0190, f02=» & ! & CURRENT BALANCE : ! & ! 6 F ZZZZZZZZ9,99- ! D " F U ! b & F ! r & U ! & BOOK BALANCE : ! & ! & CREDIT LIMIT : ! & ! G ZZZZZZZZ9,99- !
0x190d80…190f14 (2, 121) Dummy {f00=0x006d, f01=0x0190, f02=»BER : ! & " H 9999 " " H A " 4 ( " D I " P & H " ` & A " n $ & DEPOSIT - SAVINGS ACCOUNT: " ~ & " $ & DEPOSIT - CHEQUE ACCOUNT:: " & " J 999999 " " JaE
0x190f14…1910a8 Dummy {f00=0x006d, f01=0x0190, f02=» ZZZZZZZZZ,ZZ " " Kc # & # & & LINE:B # 4 & # # H & U I # V & # # f L ZZ # x " Le # & # & NAME :Q # & # & # & # & AMOUNT :Q #
0x1910a8…19123c Dummy {f00=0x006d, f01=0x018e, f02=»9,99-E # " N E $ ( $ O $ * & N $ : & WITHDRAWAL - $ H & I $ b & SAVINGSW $ r & $ & CHEQUEW $ & ACCOUNT:L $ & $ P 999999 $ " PaA $ & P $
0x19123c…1913d0 Dummy {f00=0x006d, f01=0x0190, f02=» & % & % & % & % . & - CHEQUE NR. : % < & % & _ % j & _ % x & 4 % & BOOK BALANCE: % & % & U O % & % Q ZZZZZZZZZ,ZZ % " Qc %
0x1913d0…191564 Dummy {f00=0x006d, f01=0x0190, f02=» & CREDIT LIMIT: % & & S ZZZZZZZZ9,99 & * " S R & F & S & V & AMOUNT : & d & & T ZZZZZZZZZ,ZZ & " T & & T & & NEW BALANCE : & & & U ZZZZZZZZ9,
0x191564…1916f8 Dummy {f00=0x006d, f01=0x0190, f02=»& & & ` ' & OPERATOR START ' & a P ' 8 & OPEN ACCOUNT ' H & b P ' b & CLOSE ACCOUNTT ' r & c L ' & BLOCK ACCOUNTT ' & d L ' & DEBLOCK ACCOUNT ' & e E ' & UPDATE ACC
0x1916f8…19188c Dummy {f00=0x006d, f01=0x018e, f02=»EMENT ' & i A ( & OPERATOR CLOSE ( & j P ( : & SYSTEM CLOSE ( J & k Y ( d & CURRENCY EXCH. ( t & l U ( & CURRENCY INQ.. ( & m U ( & LIST ACCOUNTS. ( & ( & ` I (
0x19188c…191a20 Dummy {f00=0x006d, f01=0x0190, f02=» ( & ) & ) ( ) $ Y 4 ) 0 & ) @ & Z ) N & ) ^ Z ZT ) l " Z9 ) ~ & ) & 2 ) & CANCEL ) & ) [ 999999 ) " [ A ) & )
0x191a20…191bb4 (2, 122) Dummy {f00=0x006d, f01=0x0190, f02=»& X A ) & Y A * & * & * , & * : ( * H _ * T & * d " & TRANSFER FROM ACCOUNT : * r & T R * & U R * & * ` ZZZZZZ * " `a * & * & *
0x191bb4…191d48 Dummy {f00=0x006d, f01=0x0190, f02=» * b ZZZZZZZZZ,ZZ + " bc + ( & LINE: + 8 & " + L & U L + Z & " + j c ZZ + | " ce + & + & CREDIT LIMIT: + & + d ZZZZZZZZ9,99 + " d R + & d
0x191d48…191edc Dummy {f00=0x006d, f01=0x0190, f02=» & , f ZZZZZZZZ9,99-C , " f E , 0 & f , @ " & TRANSFER TO ACCOUNT : , N & , t g ZZZZZZ , " gb , ( , h , & g , & ! , & # &! INQUIRY SAVINGS ACCOUNT NR :
0x191edc…192070 Dummy {f00=0x006d, f01=0x0190, f02=»NCE : , & - j ZZZZZZZZ9,99- - " " j A - @ & j - P & A - ^ & BOOK BALANCE : - n & - & CREDIT LIMIT : - & - k ZZZZZZZZ9,99- - " k R - & k - &
0x192070…192204 Dummy {f00=0x006d, f01=0x0190, f02=» @ - m 9@ . " me . ( . . n . : & m . J $ & TRANSACTION INQUIRY-A/C :S . X & . o 999999 . " oaR . & o . & TRANS: . & . p 999: . " p R .
0x192204…192398 Dummy {f00=0x006d, f01=0x0190, f02=»99E-99 . " s R / & s / & AMOUNT : / , & / F t ZZZZZZZZ9,99- / T " t M / r & t / & NEW BALANCE: / & / u ZZZZZZZZ9,99- / " u E / & u / ( $ &" LAST TRANS. RE
0x192398…19252c Dummy {f00=0x006d, f01=0x0190, f02=»& c / & " & BLOCK SAVINGS ACCOUNT NR. : 0 & a 0 6 & " & DEBLOCK SAVINGS ACCOUNT NR.: 0 D & A 0 n & c 0 | & " & BLOCK CHEQUE ACCOUNT NR. : 0 & 0 & " & DEBLOCK CHEQUE ACCOUNT NR. : 0 & 0 x 999999
0x19252c…1926c0 Dummy {f00=0x006d, f01=0x0190, f02=» & 0 y ZZZZZZZZ9,99- 1 " y U 1 , & y 1 < & U 1 J & BOOK BALANCE :C 1 Z & 1 z z ZZZZZZZZ9,99- 1 " z O 1 & 1 & CREDIT LIMIT :C 1 & 1 { ZZZZZZZZ9,99-
0x1926c0…192854 (2, 123) Dummy {f00=0x006d, f01=0x0190, f02=»CONT TO CONFIRM ELSE CANC 1 ( 2 " | , 2 . & 2 > , ( && "MOUNT PASS-BOOK IN VOUCHER-PRINTER 2 L & $ N 2 | & m 2 ( 2 } % 2 & m 2 & ! & CHECK PASS-BOOK ON NEW PAGEP 2 & C 2 & m
0x192854…1929e8 Dummy {f00=0x006d, f01=0x018e, f02=» & 3 & ** CLOSED ** 3 ( 3 . 3 : & 3 J & !* 3 X & # &! UPDATE SAVINGS ACCOUNT NR. : 3 h & 3 & # &! UPDATE CHEQUE ACCOUNT NR. : 3 & 3 999999 3 " aP 3 & 3
0x1929e8…192b7c Dummy {f00=0x006d, f01=0x018e, f02=» 3 & 8 D 4 & @ 4 & 4 * & 4 8 & TOWN :E 4 F & 4 ^ & 8 O 4 l & @ 4 | & 4 & 4 & 4 & PASSWORD:E 4 & 4 & 8 A 4 & @ @S 4 &
0x192b7c…192d10 Dummy {f00=0x006d, f01=0x0190, f02=» 4 & 5 & ! 5 & # &! UPDATE SAVINGS ACCOUNT NR. : 5 & & 5 P & # &! UPDATE CHEQUE ACCOUNT NR. : 5 ^ & 5 999999 5 " aP 5 & 5 & )P 5 & BOOK BALANCE: 5 & K 5
0x192d10…192ea4 Dummy {f00=0x006d, f01=0x018e, f02=»CREDIT LIMIT: 5 & D 6 ZZZZZZZZ9,99-C 6 ( " 6 F & 6 V & BALANCE : 6 d & 6 ZZZZZZZZ9,99-C 6 " 6 & 6 & STATUS : 6 & # 6 9 6
0x192ea4…193038 Dummy {f00=0x006d, f01=0x0190, f02=» & 7 & LAST PRINTED : 7 & 7 6 99 7 H " 7 Z & 7 j & ACCUM. DEPOSITS : 7 x & U 7 ZZZZZZZZ9,99 7 " 7 & 7 & ACCUM. WITHDRAWALS : 7
0x193038…1931cc Dummy {f00=0x006d, f01=0x0190, f02=»ER-PRINTER 7 t & " N 8 & m 8 $ ( 8 2 < 8 > & m 8 N & m 8 & ACC. 8 j & 8 | & CARD 8 & 8 & NAME 8 & " 8 & ACCUM.DEP. 8 & 1 8 & ACCUM.WITHD. 8
0x1931cc…193360 Dummy {f00=0x006d, f01=0x0190, f02=» r 8 & CURRENCY CODE : 9 & 9 ( & s 9 6 & 9 D & REL.: 9 R & 9 f ZZZZ9Y 9 t " yE 9 & 9 & BUYING RATES :(1) 9 & 9 ZZZ9,99- 9 " tU 9 & 9
0x193360…1934f4 (2, 124) Dummy {f00=0x006e, f01=0x0190, f02=» ZZZ9,99- 9 " vE : & : ( & (2)L : 6 & : H ZZZ9,99A : V " w2 : n & : ~ & LIMIT RATE 1 :( : & : ZZZZZ9,991 : " xI : ( : : & :
0x1934f4…193688 Dummy {f00=0x006e, f01=0x0190, f02=»:N : & ; & # A ; & ; ( & A ; 6 ZZZZ9,99 ; F " vA ; ^ & ; n ZZZZ9,99 ; | " tA ; & / ; & ; & s ; & ; ZZZZ9,00 ; " y/ ;
0x193688…19381c Dummy {f00=0x006e, f01=0x0190, f02=» ; & AMOUNT CALCUL.:G < & < ( & k < 6 & < D ZZZZZZZZZ,ZZ < R " dM < n & < ~ * & &$ CONTINUE EXCHANGE (NO=0,YES=1) ? < & @ < 9@ < " h < ( < <
0x19381c…1939b0 Dummy {f00=0x006e, f01=0x0190, f02=» & = & = & # = & = 0 ZZZZZZZZ9,99- = > " H = & = n & = | & # = & = ZZZZZZZZ9,99- = " H = & = & = & # = &
0x1939b0…193b44 Dummy {f00=0x006e, f01=0x018e, f02=»& = ZZZZZZZZ9,99- > " Q > * & > < , ' &% !PRESS CONT TO CONFIRM ELSE CANCELR > J ( > z ` > & ! > & GROSS TURNOVER : > & > & # R > & > ZZZZZZZZ9,99- >
0x193b44…193cd8 Dummy {f00=0x006e, f01=0x0190, f02=» > & ? & # ? & ? & ZZZZZZZZ9,99- ? 4 " S ? R & ? d & ? r & # ? & ? ZZZZZZZZ9,99- ? " S ? & ? & CURR. TURNOVER : ? & ?
0x193cd8…193e6c Dummy {f00=0x006e, f01=0x018e, f02=» 999999 ? " @ & @ $ & @ 2 99E-99E-99 @ B " @ & @ l & @ z & REVERSAL @ & ( @ & E @ & DEPOSITL @ & E @ & WITHDRAWAL @ & I @
0x193e6c…194000 Dummy {f00=0x006e, f01=0x0190, f02=» @ & = A ZZZVZZZVZZZ,ZZ A " dR A 4 ( A D M A P & A ` & &&R A n , ( && "MOUNT CONTINUOUS STATIONARY ON GTP A ~ & # A , ' &% !MOUNT CONTINUOUS STATIONARY ON LPP A ( A A
0x194000…194194 (2, 125) Dummy {f00=0x006e, f01=0x0190, f02=» ( B B B & B & [ O B . & B > & O B L & B & ] O B j & B z & ^ O B & B & _ O B & B & i B , ' &% !PHILIPS PTS 6371 TERMINAL PRINTERP B & i
0x194194…194328 Dummy {f00=0x006e, f01=0x0190, f02=» B & C & SPECIAL CHARACTERS : C & C : & 0 1 2 3 4 5 6 7 8 9 C H " & : ; < 0 1 2 3 4 5 6S C j & 7 8 9 C ( C T C & C & ODR (N=0,Y=1) ? C & @ C 9@
0x194328…1944bc Dummy {f00=0x006e, f01=0x0190, f02=» TERM.NAME :D C & D & FRONT OFFICE( D $ 999 D @ " 2R D T & )R D d ( D t D & D & OPERATOR : D & D & D & CASH BALANCE : D & D & # A D
0x1944bc…194650 Dummy {f00=0x006e, f01=0x0190, f02=» & E ZZZZZZZZ9,99- E " H E 0 & E B & CASH BALANCE : E P & E l & # A E z & E ZZZZZZZZ9,99- E " H E & E & CASH BALANCE : E & E & # A
0x194650…1947e4 Dummy {f00=0x006e, f01=0x0190, f02=» S E & W F ( F F & & W F 6 & F D $ & WITHDRAWAL - SAVINGS ACC.: F T & F | $ & WITHDRAWAL - CHEQUE ACC. : F & F 999999 F " aI F & F & I F &
0x1947e4…194978 Dummy {f00=0x006e, f01=0x0190, f02=» F & G & G & - CHEQUE NR. : G $ & G @ & _ G N & _ G & ) G j & BOOK BALANCE:: G z & G ZZZZZZZZZ,ZZ G " c G & G & LINE:B G & G
0x194978…194b0c Dummy {f00=0x006e, f01=0x018e, f02=»& G & AMOUNT :: H & H ( ZZZZZZZZZ,ZZ H : " H V & H f & NEW BALANCE :: H t & H ZZZZZZZZ9,99-E H " E H ( H H & H " & TRANSFER FRO
0x194b0c…194ca0 Dummy {f00=0x006e, f01=0x0190, f02=» H " a I & I & , I & & BOOK BALANCE: I 6 & I R ZZZZZZZZZ,ZZ I d " c I & I & LINE: I & I ZZ I " e I & I & CREDIT LIMIT:
0x194ca0…194e34 (2, 126) Dummy {f00=0x006e, f01=0x018e, f02=»ZZZZZZZ,ZZ I " J & J " & NEW BALANCE : J 0 & J L ZZZZZZZZ9,99-C J Z " E J x & J " & TRANSFER TO ACCOUNT : J & J ZZZZZZ J " b J ( J
0x194e34…194fc8 Dummy {f00=0x006e, f01=0x018e, f02=» & s K & K & REL.: K & K 4 ZZZZ9Y K B " yE K X & K h & BUYING RATES :(1)N K v & K ZZZ9,99- K " tU K & K & BUYING RATE :(2)N K & K
0x194fc8…19515c Dummy {f00=0x006e, f01=0x0190, f02=» " vE L & L & SELLING RATE :(2)N L " & L B ZZZ9,99A L P " wE L h & L x & LIMIT RATE 1 :2 L & L ZZZZZ9,991 L " xI L ( L L & L
0x19515c…1952f0 Dummy {f00=0x006e, f01=0x018e, f02=» & CASH BALANCE : L & M & # A M * & M : ZZZZZZZZ9,99- M H " H M f & M x & CASH BALANCE : M & M & # A M & M ZZZZZZZZ9,99- M " H M & M
0x1952f0…195484 Dummy {f00=0x006e, f01=0x018e, f02=» & CHEQUE BALANCE: N & N " & # H N 0 & N @ ZZZZZZZZ9,99- N N " Q N l & N ~ * % &# PRESS CONT TO CONFIRM ELSE CANCE N ( N N & N & GROSS TURNOVER:O N &
0x195484…195618 Dummy {f00=0x006e, f01=0x018e, f02=» N & # R O & O ZZZZZZZZ9,99-O O & " S O D & O V & GROSS TURNOVER:O O d & O & # R O & O ZZZZZZZZ9,99-O O " S O & O & GROSS TURNOVER:O O
0x195618…1957ac Dummy {f00=0x006e, f01=0x0190, f02=» & P & # U P & P " ZZZZZZZZ9,99-O P 0 " KU P N ( P ^ C P j & P z & " & MOUNT CASSETTES IN DISPENSER P & P , ' &% !PRESS CONT WHEN READY ELSE CANCELP P ( P P
0x1957ac…195940 Dummy {f00=0x006e, f01=0x0190, f02=» & P ZZZZ Q " Q " & ! Q 2 ZZZZ Q D " Q X & Q j & Q x 99999E Q " Q & Q ZZZZ Q " Q & ! Q ZZZZ Q
0x195940…195ad4 (2, 127) Dummy {f00=0x006e, f01=0x0190, f02=»& ! Q ZZZZ R " R $ & R 6 & R D 99999E R R " R h & R z ZZZZ R " R & ! R ZZZZ R " R ( R ' R & R
0x195ad4…195c68 Dummy {f00=0x006e, f01=0x018e, f02=» R & m S * % &# DISPENSE QUANTITY SPECIFICATIONN S & S D & DENOMINATION: S R & S p ZZZZ S ~ " S & " S ZZZZZZ S " S & S & S ZZZZ S
0x195c68…195dfc Dummy {f00=0x006e, f01=0x0190, f02=» & " T ZZZZZZ T " T , & T < & T J ZZZZ T X " T l & " T | ZZZZZZ T " T ( T T & T & VALUE NOT IN RANGE T ( T
0x195dfc…195f90 Dummy {f00=0x006e, f01=0x018e, f02=» U & U " & ILLEGAL END-OF-ITEM KEYF U " ( U H U T & U d & FIELD MUST BE ENTEREDE U r ( U U & U & DISK ERROR U ( U U & U " &
0x195f90…196124 Dummy {f00=0x006e, f01=0x0190, f02=» U & VALUE MUST BE ZERO V ( V ( V 4 & V D & UNSERVICEABLE REQUESTL V R ( V v V & V & INVALID COMPARISON V ( V V & V & OPERATOR UNKNOWN V
0x196124…1962b8 Dummy {f00=0x006e, f01=0x0190, f02=»PASSWORD V ( W % W & W , , ( && "TERMINAL BLOCKED - CALL SUPERVISOR W : ( W j W v & " W & ACCOUNT BLOCKEDD W ( W W & W & RECORD KEY INVALID W ( W
0x1962b8…19644c Dummy {f00=0x006e, f01=0x0190, f02=»RE W x ( X % X & X & , ( && "REQUIRED DEVICE TYPE NOT SPECIFIED X 4 ( X d X p & " X & SAVINGS ACCOUNT X ( X X & X & INSUFFICIENT FUNDS X ( X
0x19644c…1965e0 Dummy {f00=0x006e, f01=0x0190, f02=» ZZZZZZZZ9,99-O Y " A Y " ( Y 2 Y > & Y N & NO TRANSACTIONSO Y ( Y z Y & Y " & NO TRANSACTIONS POSSIBLE Y ( Y G Y & Y ( # &! WRONG CASSETTE
0x1965e0…196774 (2, 128) Dummy {f00=0x006f, f01=0x0190, f02=»TND OPEN FAILURE Y & Z & ! & CONT FOR RETRY, ELSE CANCELS Z & ( Z P Z & Z l & ! & CONT FOR RETRY, ELSE CANCELS Z z ( Z E Z & Z , ( && "FATAL TND-ERROR, DISPENSE CANCELED Z & " Z
0x196774…196908 Dummy {f00=0x006f, f01=0x0190, f02=» - Z & [ " & NO CASSETTE,T.O. OR NOP [ & [ > & TND NOT OPERABLE [ L ( [ j [ v & [ " & COMM. OR HARDWARE ERROR [ ( [ [ & [ & DELIVERY TIME-OUT [ (
0x196908…196a9c Dummy {f00=0x006f, f01=0x0190, f02=» [ v ( ! & $ & CASSETTE 2 " 99999E H " " S ^ & EMPTY p ( # & " & PROGRAM ERROR-DEBUG HELP ( $ & & CASS
0x196a9c…196c30 Dummy {f00=0x006f, f01=0x0190, f02=» AMOUNT OVERDRAWN BY QUOTATION ( ] & ' ] 2 & & ] B & ! & VOLUME-NAME ? : DSCY ] P ( ] z ( % ] & ] , ( && "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): ] ( ] ) # ] & " ] * & &$ OPEN
0x196c30…196dc4 Dummy {f00=0x006f, f01=0x018e, f02=» * % &# PERHAPS NO FREE LANGUAGE-NUMBERI ^ ( ^ 2 + 0 ^ > & ^ N $ & OVERFLOW OF OVERFLOW-AREAN ^ & ^ & ** JOB ABENDED **L ^ ( ^ , ^ & ^ & PRESS CONTINUE ^ ( ^
0x196dc4…196f58 Dummy {f00=0x006f, f01=0x40b6, f02=» ^ & _ , ( && "PGM "FORMAT" SUCCESSFULLY EXECUTED _ ( _ F / _ R 0 1 _ b $ 0G _ t ( _ 4 _ _ @ _ ^ , ^ & ^ & PRESS CONTINUE ^ ( ^
0x196f58…1970ec Dummy {f00=0x006f, f01=0x0190, f02=» < H IDENT T:AA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:AA00 D T:AA00A V > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x1970ec…197280 Dummy {f00=0x006f, f01=0x0190, f02=» * & * & 2 * & = ` * & [ n * & y * & p
0x197280…197414 (2, 129) Dummy {f00=0x006f, f01=0x0190, f02=» t * & * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x197414…1975a8 Dummy {f00=0x006f, f01=0x4022, f02=» > @ * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x1975a8…19773c Dummy {f00=0x006f, f01=0x406c, f02=» < H IDENT DEMODD TRA 11.0 - - F1 O1111 DATA DIVISION * $$$TRA * D * V@ * h 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x19773c…1978d0 Dummy {f00=0x006f, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x1978d0…197a64 Dummy {f00=0x006f, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x197a64…197bf8 Dummy {f00=0x006f, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x197bf8…197d8c Dummy {f00=0x006f, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x197d8c…197f20 Dummy {f00=0x006f, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x197f20…1980b4 (2, 130) Dummy {f00=0x006f, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x1980b4…198248 Dummy {f00=0x006f, f01=0x402e, f02=» V P @ *
0x198248…1983dc Dummy {f00=0x006f, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x1983dc…198570 Dummy {f00=0x006f, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x198570…198704 Dummy {f00=0x006f, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x198704…198898 Dummy {f00=0x006f, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x198898…198a2c Dummy {f00=0x006f, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x198a2c…198bc0 Dummy {f00=0x006f, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x198bc0…198d54 (2, 131) Dummy {f00=0x006f, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x198d54…198ee8 Dummy {f00=0x006f, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x198ee8…19907c Dummy {f00=0x006f, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x19907c…199210 Dummy {f00=0x006f, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x199210…1993a4 Dummy {f00=0x006f, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x1993a4…199538 Dummy {f00=0x006f, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x199538…1996cc Dummy {f00=0x006f, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x1996cc…199860 Dummy {f00=0x006f, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x199860…1999f4 (2, 132) Dummy {f00=0x0070, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x1999f4…199b88 Dummy {f00=0x0070, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x199b88…199d1c Dummy {f00=0x0070, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x199d1c…199eb0 Dummy {f00=0x0070, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x199eb0…19a044 Dummy {f00=0x0070, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x19a044…19a1d8 Dummy {f00=0x0070, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x19a1d8…19a36c Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x19a36c…19a500 Dummy {f00=0x0070, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x19a500…19a694 (2, 133) Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810128,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x19a694…19a828 Dummy {f00=0x0070, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x19a828…19a9bc Dummy {f00=0x0070, f01=0x4146, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : X 0 T:WRDY 8 , ( % :H* : X 2T Y 2 : J T:EDIO z $ C @ C 1 B ] : H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U
0x19a9bc…19ab50 Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x19ab50…19ace4 Dummy {f00=0x0070, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x19ace4…19ae78 Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x19ae78…19b00c Dummy {f00=0x0070, f01=0x4160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x19b00c…19b1a0 Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810128,870136941100 $ . * T:TABC T:TABD T:TABE T:TABN T:SCR2 $ F I:EVNO $ x I:ESKI $ I:EVA0 $ I:EBRI $ I:EBRB $ I:EBR $ , (
0x19b1a0…19b334 (2, 134) Dummy {f00=0x0070, f01=0x0190, f02=» $ z T:DSL % I:RET % * T:TABC * % : T:TABD . % N T:TABE 2 % b , ( ! W W X % v T:EDWI % , ( 7 0Q Y ( Y *P % I:EVT % I:EDSK % *
0x19b334…19b4c8 Dummy {f00=0x0070, f01=0x0190, f02=» X 0P V _` " P T & % T:LOPS & , , ( (W " P Y 0] Y & > T:EDWF & n , ( (_t " X _. * X *# P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x19b4c8…19b65c Dummy {f00=0x0070, f01=0x40a4, f02=» y 6 Y ( : X (;n . & H D ! -W 1W 9Q = A MP Qp P P: Vp P4 T WT P P W ' " P P -W 5T 9W ' n V ' @ ' P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x19b65c…19b7f0 Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810128,870136941100 ( T:DNL T:DSL ( F I:EVNO ( I:ECPY ( n I:EPIC ( I:ETXT ( I:ETAB ( I:EBRI ( I:EBRB ( I:EBR ( * &
0x19b7f0…19b984 Dummy {f00=0x0070, f01=0x0190, f02=» ( I:ESKI ) . I:EXPY ) @ I:RET ) R T:DSL * ) b T:GRFC ) t , ( ! " $ & Y . Y , ) T:DNL 8 ) , ( 7 W & Y . X ( X ." P X 0R ) T:WRDY ) ,
0x19b984…19bb18 Dummy {f00=0x0070, f01=0x417a, f02=»CTR ) , ( @ X 2Q Y *T . : " P X * , ( 0U X *# P P T " * < T:ENIN * l , ( T : Y . 0 Y ( * ~ , ( & Y *T " T ! 1 W ! ) * . : * H D ! 8 # * 7W
0x19bb18…19bcac Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810128,870136941100 + " T:PKI T:PINP T:TKI T:TINP + F T:PKI + l T:PINP + ~ T:GRFC + I:ETAB + I:EVIN + , ( I P & + , ( Y *T
0x19bcac…19be40 Dummy {f00=0x0070, f01=0x0190, f02=»Q X &P V D ! P + | T:TINP , T:TKI , 0 * & u $ ! P %_ : , B , ( V Y " X .9H $ , p , ( P & X ( " Q Y +Q R , , ( " P W " U Y , " Q X . , , (
0x19be40…19bfd4 (2, 135) Dummy {f00=0x0070, f01=0x0190, f02=» M X (# P X # :! R W , T:ENIN - 0 T:ENI - B * & m T @ Y (W Y , W - R I:EXIT - , ( Y ( : X *:h X (! - , ( # P X & V L T W X , X 0 - , ( P T X *
0x19bfd4…19c168 Dummy {f00=0x0070, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ . , ( E@ W _ " P X ( T X & V . 4 , ( c H "@T P V Y . d , ( X (P X ( . T:CLMI . , ( P 8 Y 0 X 2P X . , (
0x19c168…19c2fc Dummy {f00=0x0070, f01=0x0190, f02=» P : : . x , ( "0P $ T W %T / , ( ; : : Y ( X $ Y X " Y X & / H , ( [ Y X < Y > : Y : X : / x , ( y X ( T X & V H " V / T:CLDY / ( $ Y : X $ X :
0x19c2fc…19c490 Dummy {f00=0x0070, f01=0x4110, f02=»Pl Pf %P +P / 3P< / b H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ 0 H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h 0 j @ < A P P V T P P #P )T -W 1T T V 0 0
0x19c490…19c624 Dummy {f00=0x0070, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x19c624…19c7b8 Dummy {f00=0x0070, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x19c7b8…19c94c Dummy {f00=0x0070, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x19c94c…19cae0 Dummy {f00=0x0070, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x19cae0…19cc74 (2, 136) Dummy {f00=0x013e, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x19cc74…19ce08 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810128,870136941100 6 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 6 F T:CLDY T:PRKB T:PRDY 6 T:DETF 6 T:ATTF 6 I:EVA6 6 I:FFSN 6 , (
0x19ce08…19cf9c Dummy {f00=0x013e, f01=0x0190, f02=» Y Y Y < V E B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x19cf9c…19d130 Dummy {f00=0x013e, f01=0x4020, f02=»W 7 8 @ 8 B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x19d130…19d2c4 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x19d2c4…19d458 Dummy {f00=0x013e, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x19d458…19d5ec Dummy {f00=0x013e, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x19d5ec…19d780 Dummy {f00=0x013e, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x19d780…19d914 (2, 137) Dummy {f00=0x013e, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x19d914…19daa8 Dummy {f00=0x013e, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x19daa8…19dc3c Dummy {f00=0x013e, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x19dc3c…19ddd0 Dummy {f00=0x013e, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x19ddd0…19df64 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x19df64…19e0f8 Dummy {f00=0x013e, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x19e0f8…19e28c Dummy {f00=0x013e, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x19e28c…19e420 Dummy {f00=0x013e, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x19e420…19e5b4 (2, 138) Dummy {f00=0x013e, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x19e5b4…19e748 Dummy {f00=0x013e, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x19e748…19e8dc Dummy {f00=0x013e, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x19e8dc…19ea70 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x19ea70…19ec04 Dummy {f00=0x013e, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x19ec04…19ed98 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x19ed98…19ef2c Dummy {f00=0x013e, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x19ef2c…19f0c0 Dummy {f00=0x013e, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x19f0c0…19f254 (2, 139) Dummy {f00=0x013e, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x19f254…19f3e8 Dummy {f00=0x013e, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x19f3e8…19f57c Dummy {f00=0x013e, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x19f57c…19f710 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x19f710…19f8a4 Dummy {f00=0x013e, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x19f8a4…19fa38 Dummy {f00=0x013e, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x19fa38…19fbcc Dummy {f00=0x013e, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x19fbcc…19fd60 Dummy {f00=0x013e, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x19fd60…19fef4 (2, 140) Dummy {f00=0x013f, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x19fef4…1a0088 Dummy {f00=0x013f, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x1a0088…1a021c Dummy {f00=0x013f, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x1a021c…1a03b0 Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x1a03b0…1a0544 Dummy {f00=0x013f, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x1a0544…1a06d8 Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x1a06d8…1a086c Dummy {f00=0x013f, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x1a086c…1a0a00 Dummy {f00=0x013f, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810713,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x1a0a00…1a0b94 (2, 141) Dummy {f00=0x013f, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x1a0b94…1a0d28 Dummy {f00=0x013f, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x1a0d28…1a0ebc Dummy {f00=0x013f, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x1a0ebc…1a1050 Dummy {f00=0x013f, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x1a1050…1a11e4 Dummy {f00=0x013f, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x1a11e4…1a1378 Dummy {f00=0x013f, f01=0x0190, f02=» , ( : _: L C L C T:DSB ( 8 T:FDSP 2 J , ( B C : : : ^ T:GTBY L , ( ? C : : ( T:SCW2 T:DSCX j I:EVA2 ,
0x1a1378…1a150c Dummy {f00=0x013f, f01=0x413a, f02=» W 6 d " % ( - < 1P G L K ` O ( S < _P eV u ( y L H D !V W X R W X < P W W| L [W sP0 H H D ! w }P& V W P z P P P )P - z @ < 9 ( = < cR iV T T T W T
0x1a150c…1a16a0 Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x1a16a0…1a1834 (2, 142) Dummy {f00=0x013f, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x1a1834…1a19c8 Dummy {f00=0x013f, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x1a19c8…1a1b5c Dummy {f00=0x013f, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x1a1b5c…1a1cf0 Dummy {f00=0x013f, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x1a1cf0…1a1e84 Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x1a1e84…1a2018 Dummy {f00=0x013f, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x1a2018…1a21ac Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x1a21ac…1a2340 Dummy {f00=0x013f, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x1a2340…1a24d4 (2, 143) Dummy {f00=0x013f, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x1a24d4…1a2668 Dummy {f00=0x013f, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x1a2668…1a27fc Dummy {f00=0x013f, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x1a27fc…1a2990 Dummy {f00=0x013f, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810630,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x1a2990…1a2b24 Dummy {f00=0x013f, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x1a2b24…1a2cb8 Dummy {f00=0x013f, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x1a2cb8…1a2e4c Dummy {f00=0x013f, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x1a2e4c…1a2fe0 Dummy {f00=0x013f, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x1a2fe0…1a3174 (2, 144) Dummy {f00=0x0140, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=11.0,810128,870136941100 y J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI y F I:FML I:EVTO y P:MTAB y , ( :l:d:h y I:EVA2 y I:E
0x1a3174…1a3308 Dummy {f00=0x0140, f01=0x0190, f02=» y f , ( 9 # W @ $ E " T ; [ z , ( W # :H 2 T Z L z 8 , ( @ w L D V W # z h , ( L D V $ W D V z I:EVA0 z , ( @ L , W 6 2 W " z
0x1a3308…1a349c Dummy {f00=0x0140, f01=0x0190, f02=» Z Z z , ( 3 : R ; { 0 , ( S 6 : F _v :B , { ` , ( s (V ; H [ [ [ { , ( z ;AV Z H # { , ( ;
0x1a349c…1a3630 Dummy {f00=0x0140, f01=0x0190, f02=» & @ $ ! P { , ( 1 [ 6 [ Z 7 . Z | I:FML ^ | P , ( Q 7 : T # ( | b I:EVTO | , ( H q : " T # :A ( | , ( @ @ & " P ! P [ :;H 2 | , (
0x1a3630…1a37c4 Dummy {f00=0x0140, f01=0x40f4, f02=» " # ^;b ; | : ;f" #?_" } * H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W } J D @ W$ P& Pd ^ Wv yVv V$ P P P R W& } } @ } :;H 2 | , (
0x1a37c4…1a3958 Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x1a3958…1a3aec Dummy {f00=0x0140, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x1a3aec…1a3c80 Dummy {f00=0x0140, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x1a3c80…1a3e14 (2, 145) Dummy {f00=0x0140, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x1a3e14…1a3fa8 Dummy {f00=0x0140, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x1a3fa8…1a413c Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810209,870136941100 I:MOV I:MVC F I:MOV I:MVC n , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P ) P ! P ! P
0x1a413c…1a42d0 Dummy {f00=0x0140, f01=0x0190, f02=» p , ( _ ' d V W V , ( 4! P < X 4 @ , ( 9d $ & ! R + : p , ( ! V W R 4 0R Y 7 Y& , ( A P Z,;D 9_8 8 _< V , ( a
0x1a42d0…1a4464 Dummy {f00=0x0140, f01=0x4112, f02=» Q V V 7 Y P _& & Q , ( 9d! )0 + P 7 Y Z $ 0 _ : ` H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q x 4 0 R +R 1R CP P( T WJ V P. P
0x1a4464…1a45f8 Dummy {f00=0x0140, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x1a45f8…1a478c Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x1a478c…1a4920 Dummy {f00=0x0140, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x1a4920…1a4ab4 (2, 146) Dummy {f00=0x0140, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x1a4ab4…1a4c48 Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x1a4c48…1a4ddc Dummy {f00=0x0140, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x1a4ddc…1a4f70 Dummy {f00=0x0140, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x1a4f70…1a5104 Dummy {f00=0x0140, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x1a5104…1a5298 Dummy {f00=0x0140, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x1a5298…1a542c Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810128,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY I:RET , ( !!
0x1a542c…1a55c0 Dummy {f00=0x0140, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB I:EVI 2 I:EVA3 B I:EVA0 T * & AUT f I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x1a55c0…1a5754 (2, 147) Dummy {f00=0x0140, f01=0x018e, f02=» , ( { 6 K K I:EDT 4 I:ED1 F I:EDW X , ( K K V K : j I:EVA6 , ( @ R B " V , ( V Z P 2 " T W
0x1a5754…1a58e8 Dummy {f00=0x0140, f01=0x0190, f02=» , ( 7 Z [ Z P I:RET p 4 , ( W $ [ V 7_ F I:EXIT v v P:MTAB , ( u BW Z @ " &! P $ , ( Z 7 Z Z P $ I:FFSN
0x1a58e8…1a5a7c Dummy {f00=0x0140, f01=0x018e, f02=» , ( P v I < : J I:ECPY 4 I:ETXT & H I:EXPY & , ( Q : P 4 ! T _ p I:ECTR 8 I:ESL B , ( + P 4 W K W W + I:ENL L
0x1a5a7c…1a5c10 Dummy {f00=0x0140, f01=0x4166, f02=» I:EFIL , ( i *W X & , J K : I:SCB H V : 1 Z H D ! U Y & [ e b g v i l k 6 m L s u B y & { p > > x H D ! @ P T W T W = SP uW P P R Q P Qx
0x1a5c10…1a5da4 Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x1a5da4…1a5f38 Dummy {f00=0x0140, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x1a5f38…1a60cc Dummy {f00=0x0140, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x1a60cc…1a6260 Dummy {f00=0x0140, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x1a6260…1a63f4 (2, 148) Dummy {f00=0x0141, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x1a63f4…1a6588 Dummy {f00=0x0141, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x1a6588…1a671c Dummy {f00=0x0141, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x1a671c…1a68b0 Dummy {f00=0x0141, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x1a68b0…1a6a44 Dummy {f00=0x0141, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x1a6a44…1a6bd8 Dummy {f00=0x0141, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x1a6bd8…1a6d6c Dummy {f00=0x0141, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x1a6d6c…1a6f00 Dummy {f00=0x0141, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x1a6f00…1a7094 (2, 149) Dummy {f00=0x0141, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x1a7094…1a7228 Dummy {f00=0x0141, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x1a7228…1a73bc Dummy {f00=0x0141, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x1a73bc…1a7550 Dummy {f00=0x0141, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x1a7550…1a76e4 Dummy {f00=0x0141, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x1a76e4…1a7878 Dummy {f00=0x0141, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x1a7878…1a7a0c Dummy {f00=0x0141, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x1a7a0c…1a7ba0 Dummy {f00=0x0141, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810209,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x1a7ba0…1a7d34 (2, 150) Dummy {f00=0x0141, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x1a7d34…1a7ec8 Dummy {f00=0x0141, f01=0x4092, f02=» T:OPCH T:STCH T:IXCH & & " $ _` C / : ;T {R R d |@ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x1a7ec8…1a805c Dummy {f00=0x0141, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x1a805c…1a81f0 Dummy {f00=0x0141, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x1a81f0…1a8384 Dummy {f00=0x0141, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x1a8384…1a8518 Dummy {f00=0x0141, f01=0x2008, f02=» L = DEMO68 DATE = 81-09-25 6876PACK NBR = 0000
0x1a8518…1a86ac Dummy {f00=0x0141, f01=0x0000, f02=»
[…0x9…]
0x1a94e0…1a9674 (2, 152) Dummy {f00=0x0142, f01=0x0000, f02=»
[…0x1f…]
0x1ac760…1ac8f4 (2, 156) Dummy {f00=0x0143, f01=0x0000, f02=»
[…0x1f…]
0x1af9e0…1afb74 (2, 160) Opaque[0x194]
0x1afb74…1afd08 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2880, f03=0x0000}
0x1afb74…1afd08 IdxSect {
0x1afb74…1afd08 f00 = 0x0144 // 0x1afb74 @0x0
0x1afb74…1afd08 f01 = 0x000a // 0x1afb76 @0x2
0x1afb74…1afd08 gno = [ // 0x1afb78 @0x4
0x1afb74…1afd08 [0x00]: C0x0144.0x0.0
0x1afb74…1afd08 [0x01]: C0x0144.0x1.0
0x1afb74…1afd08 [0x02]: C0x0144.0x2.0
0x1afb74…1afd08 [0x03]: C0x0144.0x3.0
0x1afb74…1afd08 [0x04]: C0x0145.0x0.0
0x1afb74…1afd08 ]
0x1afb74…1afd08 }
0x1afd08…1afe9c Dummy {f00=0x0144, f01=0x000c, f02=» ^ ^ T:DM T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE
0x1afe9c…1b0030 Dummy {f00=0x0144, f01=0x0190, f02=» jFORMIO V h $$$TRAR ZKOPNF ZLCLSF 6 T:CLOSR T:COMMA T:EDWR T:OPENF T:XSTA C 6T:DA00 T:DA00D AAMAIN , 6T:ATAB T:ATABA T:AA00 :A xU:BTAB U:BTABB U:UBF
0x1b0030…1b01c4 Dummy {f00=0x0144, f01=0x0190, f02=» C:CW10C ( ,D:CW10 D:CW10C B ,C:CSY0 C:CSY0C = N ,D:CSY0 D:CSY0C 2 ,Z:TRM0 Z:TRM0T 4 ,D:TRM0 D:TRM0T B
0x1b01c4…1b0358 Dummy {f00=0x0144, f01=0x0190, f02=» ,D:UBF0 D:UBF0U B ,U:UIF0 U:UIF0U y ,D:UIF0 D:UIF0U > ,U:UCY0 U:UCY0U = > ,D:UCY0 D:UCY0U * ,U:UOP0 U:UOP
0x1b0358…1b04ec Dummy {f00=0x0144, f01=0x0190, f02=»A10U B ,U:UA20 U:UA20U y | ,D:UA20 D:UA20U > ,U:UT10 U:UT10U = P ,D:UT10 D:UT10U 2 ,U:UT20 U:UT20U = P ,D:UT20
0x1b04ec…1b0680 Dummy {f00=0x0144, f01=0x0190, f02=» C:CK20C = H ,D:CK20 D:CK20C > ,U:UQQ0 U:UQQ0U * ,D:UQQ0 D:UQQ0U 2 FORMAT ` ` $$$TRAR AAMAIN FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:D
0x1b0680…1b0814 (2, 161) Dummy {f00=0x0144, f01=0x0190, f02=» C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT20 U:UT20F D:CK10 C:CK10I D:CK20 C:CK20 D:UQQ0 U:UQQ0 *DEMODD
0x1b0814…1b09a8 Dummy {f00=0x0144, f01=0x0190, f02=» I:EVA0 I:RT1 >ICLEAR ICLEAR I:EVA0 I:RT1 $ >EMPTYT EMPTYT I:EVA0 I:RT1 < T:STIN STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T
0x1b09a8…1b0b3c Dummy {f00=0x0144, f01=0x0190, f02=»K @T:STEV T:STEV T:GRFC I:EVA0 & T:EDFL T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:SCUW T:CLRD T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY
0x1b0b3c…1b0cd0 Dummy {f00=0x0144, f01=0x0190, f02=» T:CLR2 f T:SCUW T:BELL T:IOWR T:CLIT : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DU
0x1b0cd0…1b0e64 Dummy {f00=0x0144, f01=0x0190, f02=» T:GETC T:GRFC I:EVA0 I:RT1 < ZT:GETA " T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC # T:TSTC T:GRFC T:RTES 4 T:TFWD $ T:TLEF T:TRIG
0x1b0e64…1b0ff8 Dummy {f00=0x0144, f01=0x0190, f02=» T:DISP & T:PRIN T:GDSP T:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO X T:GETF ) T:GETF T:PRDY T:TABC
0x1b0ff8…1b118c Dummy {f00=0x0144, f01=0x0190, f02=» T:REWR 0 T:PRDY T:CASP R T:LOFS I:EVA3 I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 4T:DEDT - I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:RET
0x1b118c…1b1320 Dummy {f00=0x0144, f01=0x0190, f02=» L T:RCR V T:ENLI 1 I:EVNO I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA T:PINP T:PKI I:EFIL I:ESKI I:EXPY I:RET T:DSL * T:GRFC T:DNL 8 T:WRDY I:ENL
0x1b1320…1b14b4 (2, 162) Dummy {f00=0x0144, f01=0x0190, f02=»:TINP T:TKI T:ENIN T:ENI I:EXIT T:WRDY T:CLMI I:EVA0 T:CLDY T:ENIN : T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC =
0x1b14b4…1b1648 Dummy {f00=0x0144, f01=0x0190, f02=» ( T:ATTF ? T:DETF T:ATTF I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY T:PRKB l T:PRDY T:DSM XT:LSEG B T:LSEG
0x1b1648…1b17dc Dummy {f00=0x0144, f01=0x0190, f02=»XCH T:DCE1 6T:SWI0 E T:SWIT SWITCH JT:TEI0 F T:TEST TESTIO T:ABOR ABORT LT:CLO0 G T:SETT SETTIM T:GETT GETTIM 4T:DEL0 H T
0x1b17dc…1b1970 Dummy {f00=0x0144, f01=0x0190, f02=»1 T:DCWR T:DCW1 T:EDIO T:IO2 T:DCEX & T:DCE1 * I:EVA0 4T:SWI L T:SWIT I:RT1 ^T:TEI M T:TEST T:GDSP I:RT1 T:ABOR T:KIAA T:KIAC B bT:CLO N
0x1b1970…1b1b04 Dummy {f00=0x0144, f01=0x0190, f02=» <T:MSK0 P MASK I:EVA0 I:RT1 pT:SCD Q T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAUS f I:RT1 PT:UNUS S T:UNUS P:MTAB T:UER I:RT1 T:UERR ,
0x1b1b04…1b1c98 Dummy {f00=0x0144, f01=0x0190, f02=» >T:GTID W T:GETI I:EVA0 I:RT1 vT:DMR X T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:IXID I:EVA2 , T:DMW Y T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI
0x1b1c98…1b1e2c Dummy {f00=0x0144, f01=0x0190, f02=» T:CDIS T:IDIS T:WRIX T:IO1 0 pT:DMPO T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID . .T:DCC ] T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO "
0x1b1e2c…1b1fc0 Dummy {f00=0x0144, f01=0x0190, f02=»IS2 T:DIS3 T:DIS4 T:STCW T:OPT I:EVA0 ~T:DCR a T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS c T:SEND T:SEN1 T:WRIX T:OPT
0x1b1fc0…1b2154 (2, 163) Dummy {f00=0x0144, f01=0x0190, f02=»WRI T:WRIX " T:WRIO & I:EVA0 T:SREA B T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 T:IO2 ` T:IO3 d T:IO5 p T:IORE t T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T
0x1b2154…1b22e8 Dummy {f00=0x0144, f01=0x0190, f02=»S25 T:DSM T:DSB ( T:FDSP 2 T:GTBY L T:SCW2 T:DSCX j I:EVA2 T:SCW0 T:DSR T:CW m T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW T:BINB T:KIAA T:KIAC T:GCW2 T:SCW2
0x1b22e8…1b247c Dummy {f00=0x0144, f01=0x0190, f02=»TCW T:IO2 T:RWRI $ T:RWR1 ( T:IO1 F rT:KIA t T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIAC ,T:ABUF w T:ABUF PWRITEL x WRITEL T:FDS0
0x1b247c…1b2610 Dummy {f00=0x0144, f01=0x0190, f02=»:INS I:DLT I:MCH I:XCP I:EDS I:TRC I:RST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:RT2 I:RT1 I:RT0 T:BAT T:PAT T:CAT I:EVB I v I:EVA ~ P:MTAB I:E
0x1b2610…1b27a4 Dummy {f00=0x0144, f01=0x0190, f02=»VB <I:ADS I:ADD I:SUB I:CPA X 2I:CMP I:CMP I:CPA n *I:CPA I:CPA | 4I:MOV I:MOV I:MVC HI:MMOV I:MMOV
0x1b27a4…1b2938 Dummy {f00=0x0144, f01=0x0190, f02=» I:DIV I:MOV I:NTFA I:SUB I:CPA I:SH1L I:ADD I:SH1R ,I:NTF I:NTFA 8 I:EDT I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I
0x1b2938…1b2acc Dummy {f00=0x0144, f01=0x0190, f02=»G I:RET p I:EXIT v P:MTAB I:FFSN P:BAS I:ETAB I:ECPY I:ETXT & I:EXPY & I:ECTR 8 I:ESL B I:ENL L I:EOR b T:EDWF I:ECW l T:EDWE I:ECWC v I:EFIL I:SCB >I:EPIC I:EPIC I:EVA0
0x1b2acc…1b2c60 Dummy {f00=0x0144, f01=0x0190, f02=»BRB n I:ESKI I:EVNO I:EGTD I:EGTB <I:EDS I:EDS I:EVS2 I:ED1 & nI:STR I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS
0x1b2c60…1b2df4 (2, 164) Dummy {f00=0x0145, f01=0x0190, f02=» I:ECWC I:EXIT I:EFLA T:DNL T:DSL STROU2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK I:RT1 I:EVIN T:EVOU B STRIN2 STRIN2 I:EXIT I:EVA0 T:CLMI I
0x1b2df4…1b2f88 Dummy {f00=0x0145, f01=0x415e, f02=»SRFLD T:DM T:OPEN T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE
0x1b2f88…1b311c Dummy {f00=0x0145, f01=0x4016, f02=»x 4 p v R X K : N +
0x1b311c…1b32b0 Dummy {f00=0x0145, f01=0x4016, f02=» ( T:OPEN j T:CLOS @V C FORMIO " ( X . " 4 : j @ | F L F R X ^ d j 4 6 ZLCLSF ZKOPNF L T:XSTA X T:USE ( T:RSTA ^
0x1b32b0…1b3444 Dummy {f00=0x0145, f01=0x4016, f02=» f IS X @ j T:COMM F | MASK | : FMOVE A FORMAT R + DEMODD C : " " * . 6 AAMAIN PP 4 6 ZLCLSF ZKOPNF L T:XSTA X T:USE ( T:RSTA ^
0x1b3444…1b35d8 Dummy {f00=0x0145, f01=0x4016, f02=» IS X @ j T:COMM F | MASK | : FMOVE A FORMAT R + DEMODD C : " " * . 6 AAMAIN PP 4 6 ZLCLSF ZKOPNF L T:XSTA X T:USE ( T:RSTA ^
0x1b35d8…1b376c Dummy {f00=0x0145, f01=0x0000, f02=»TOR NAME : CASH BALANCES : # # # # #PRESS CONT. TO CONFIRM, ELSE CANCEL $ W $ Q OPERATOR I.D. : e PASSWORD : j LANGUAGE : @ U f ' TERMINAL : 8 5 FRONT OFFICE( 2 ) "
0x1b376c…1b3900 Dummy {f00=0x0145, f01=0x0000, f02=»CHEQUES : # ACCUM. TRANSFERS : # CURRENCY SOLD : # CURRENCY BOUGHT : # CURRENCY ACCUM. : # # # OPERATOR NAME : 8 @ PASSWORD : @ LANGUAGE
0x1b3900…1b3a94 (2, 165) Opaque[0x194]
0x1b3a94…1b3c28 # DirEnt {nam=»GERDEF«, typ=»SC«, f00=0x0000, f01=0x8157, f02=0x0e30, f03=0x8156}
0x1b3a94…1b3c28 IdxSect {
0x1b3a94…1b3c28 f00 = 0x0071 // 0x1b3a94 @0x0
0x1b3a94…1b3c28 f01 = 0x0052 // 0x1b3a96 @0x2
0x1b3a94…1b3c28 gno = [ // 0x1b3a98 @0x4
0x1b3a94…1b3c28 [0x00]: C0x0071.0x2.0
0x1b3a94…1b3c28 [0x01]: C0x0071.0x3.0
0x1b3a94…1b3c28 [0x02]: C0x0072.0x0.0
0x1b3a94…1b3c28 [0x03]: C0x0072.0x1.0
0x1b3a94…1b3c28 [0x04]: C0x0072.0x2.0
0x1b3a94…1b3c28 [0x05]: C0x0072.0x3.0
0x1b3a94…1b3c28 [0x06]: C0x0073.0x0.0
0x1b3a94…1b3c28 [0x07]: C0x0073.0x1.0
0x1b3a94…1b3c28 [0x08]: C0x0073.0x2.0
0x1b3a94…1b3c28 [0x09]: C0x0073.0x3.0
0x1b3a94…1b3c28 [0x0a]: C0x0074.0x0.0
0x1b3a94…1b3c28 [0x0b]: C0x0074.0x1.0
0x1b3a94…1b3c28 [0x0c]: C0x0074.0x2.0
0x1b3a94…1b3c28 [0x0d]: C0x0074.0x3.0
0x1b3a94…1b3c28 [0x0e]: C0x0075.0x0.0
0x1b3a94…1b3c28 [0x0f]: C0x0075.0x1.0
0x1b3a94…1b3c28 [0x10]: C0x0075.0x2.0
0x1b3a94…1b3c28 [0x11]: C0x0075.0x3.0
0x1b3a94…1b3c28 [0x12]: C0x0076.0x0.0
0x1b3a94…1b3c28 [0x13]: C0x0076.0x1.0
0x1b3a94…1b3c28 [0x14]: C0x0076.0x2.0
0x1b3a94…1b3c28 [0x15]: C0x0076.0x3.0
0x1b3a94…1b3c28 [0x16]: C0x0077.0x0.0
0x1b3a94…1b3c28 [0x17]: C0x0077.0x1.0
0x1b3a94…1b3c28 [0x18]: C0x0077.0x2.0
0x1b3a94…1b3c28 [0x19]: C0x0077.0x3.0
0x1b3a94…1b3c28 [0x1a]: C0x0078.0x0.0
0x1b3a94…1b3c28 [0x1b]: C0x0078.0x1.0
0x1b3a94…1b3c28 [0x1c]: C0x0078.0x2.0
0x1b3a94…1b3c28 [0x1d]: C0x0078.0x3.0
0x1b3a94…1b3c28 [0x1e]: C0x0079.0x0.0
0x1b3a94…1b3c28 [0x1f]: C0x0079.0x1.0
0x1b3a94…1b3c28 [0x20]: C0x0079.0x2.0
0x1b3a94…1b3c28 [0x21]: C0x0079.0x3.0
0x1b3a94…1b3c28 [0x22]: C0x007a.0x0.0
0x1b3a94…1b3c28 [0x23]: C0x007a.0x1.0
0x1b3a94…1b3c28 [0x24]: C0x007a.0x2.0
0x1b3a94…1b3c28 [0x25]: C0x007a.0x3.0
0x1b3a94…1b3c28 [0x26]: C0x007b.0x0.0
0x1b3a94…1b3c28 [0x27]: C0x007b.0x1.0
0x1b3a94…1b3c28 [0x28]: C0x007b.0x2.0
0x1b3a94…1b3c28 ]
0x1b3a94…1b3c28 }
0x1b3c28…1b3dbc Dummy {f00=0x0071, f01=0x0190, f02=» * L P************************************************************************ L PFMTTAB FTABLE ERR001,ERR002,ERR003,ERR004,ERR005, C ^ , P ERR006,ERR007,ERR008,ERR009,ERR010, C L P FMT011,FMT012,FMT013,FMT014,FMT015, C
0x1b3dbc…1b3f50 Dummy {f00=0x0071, f01=0x0190, f02=»R023,ERR024,ERR025, C ~ L P ERR026,FMT027,ERR028,ERR029,MSG030, C > T P ERR031,ERR032,ERR033,ERR034,ERR035, C , P ERR036,ERR037,ERR038,FMT039,FMT0
0x1b3f50…1b40e4 Dummy {f00=0x0071, f01=0x0190, f02=»054,FMT055, C v , P ERR056,FMT057,FMT058,FMT059,FMT060, C T P PRT061,MSG062,MSG063,MSG064,FMT065, C F , P FMT066,FMT067,FMT068,FMT069,FMT070, C , P FMT071,FMT072,FMT073,FMT074,FMT075, C , P FMT076,F
0x1b40e4…1b4278 Dummy {f00=0x0071, f01=0x018e, f02=»FMT091,ERR092,FMTDUM,FMTDUM,FMTDUM, C ( P FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM . P* Z P* d PFMTDUM FRMT n P FSL T P FTEXT 'NOCH NICHT IMPLEMENTIERT' P FKI 25 P FCOPY ICDUMMY
0x1b4278…1b440c Dummy {f00=0x0071, f01=0x0190, f02=» FSL T P FTEXT 'BILDSCHIRM 01/06/08/20/24 ?' 8 P FKI 32,ME,MINL=1,MAXL=2,NUM,NCLR,NEOI,REWRT,APPL=15 h P FMEL '99',IDNR1 FMEND L P**************************************************************
0x1b440c…1b45a0 Dummy {f00=0x0071, f01=0x0190, f02=» * j L P* * * L P************************************************************************ z PFMT012 FRMT FSL P FHIGH P FTEXT '********
0x1b45a0…1b4734 (2, 166) Dummy {f00=0x0071, f01=0x0190, f02=» FNL P FLOW T P FTAB 13 T P FTEXT 'PHILIPS PTS 6344 BILDSCHIRMGERAET' r P FNL P FNL P FHIGH T P FTAB 13
0x1b4734…1b48c8 Dummy {f00=0x0071, f01=0x018e, f02=» T P FNL P FNL 0 P FLOW < P FNUL J T P FTAB 13 X P FUL T P FTEXT 'PHILIPS PTS 6344 BILDSCHIRMGERAET'
0x1b48c8…1b4a5c Dummy {f00=0x0071, f01=0x018e, f02=» P FNL P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2E2F' . . P FTEXT X'303132333435363738393A3B3C3D3E3F' ^ . P FTEXT X'404142434445464748494A4B4C4D4E4F' P FNL P FTAB 10 P FHIGH : P FTEXT X
0x1b4a5c…1b4bf0 Dummy {f00=0x0071, f01=0x0190, f02=» d P FNL P FNL P FLOW 0 T P FTEXT 'NATIONALER VERSION :' > P FHIGH " P FTEXT X'23405B5C5D607B7C7D7E' P FNL P FNL T P FTEXT 'BILDSCHIRMGROE
0x1b4bf0…1b4d84 Dummy {f00=0x0071, f01=0x0190, f02=» ` P FNL ( P FLOW < P FTEXT 'OPTION : ' R P FHIGH r : P FTEXT '24 LINES / 80 CHARACTERS PER LINE' P FLOW P FNL P FNL T P FTE
0x1b4d84…1b4f18 Dummy {f00=0x0071, f01=0x0190, f02=» FCOPY ACNAME P FTAB 32 T P FTEXT 'ADRESSE :' 6 * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACADDRES P FNL T P FTEXT 'POSTLEITZAHL
0x1b4f18…1b50ac Dummy {f00=0x0071, f01=0x0190, f02=»CSTRG12 ~ P FTAB 32 T P FTEXT 'ORT :' , * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACTOWN P FNL T P FTEXT 'ZWEIGSTELLENR :'
0x1b50ac…1b5240 Dummy {f00=0x0071, f01=0x0190, f02=»NTO NR. :' P FKI 44,MAXL=6,ME,NEOI N P FMEL 'ZZZZZZZZZZZZ',IDNR1 l P FMEND L P************************************************************************ L P*
0x1b5240…1b53d4 (2, 167) Dummy {f00=0x0072, f01=0x0190, f02=» * L P************************************************************************ L PFMT013 FRMT P FSL T P FTEXT 'ALPHANUM. TASTATUR (N=0,J=1) ?'
0x1b53d4…1b5568 Dummy {f00=0x0072, f01=0x0190, f02=»1,R=2) ?' p 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 8 P FMEL '9',RDSHRPRT n P FNL ( P FTEXT 'TEP (=0) TTP (=1) GTP (=2)' P FNL ( P FTEXT 'TEP-ZEK (=3) GP74 (=4) ?' 2 P FKI 33,ME,MINL=
0x1b5568…1b56fc Dummy {f00=0x0072, f01=0x0190, f02=»1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDBCR & P FNL > T P FTEXT 'ODR (N=0,J=1) ?' J 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL & P FTEXT 'HARD
0x1b56fc…1b5890 Dummy {f00=0x0072, f01=0x0190, f02=»,J=1)?' 2 P FKI 33,ME,NCLR,MINL=1,MAXL=1,NUM,APPL=1,NEOI P FMEL '9',RDTND F P FNL ^ T P FTEXT 'TERMINAL NR. :' j P FTAB 31 P FMEL '999',NDTRMNR P FNL P FBZ RDALFKB,F
0x1b5890…1b5a24 Dummy {f00=0x0072, f01=0x0190, f02=»OI n P FCOPY RCTRMNME P FB F01390 " PF01310 4 T P FTEXT 'NAME TERMINAL :' B P FTAB 17 P FTEXT 'SCHALTER TRM(' P FMEL '999',NDTRMNR P FTEXT ')' PF01390 P FME
0x1b5a24…1b5bb8 Dummy {f00=0x0072, f01=0x0190, f02=» * b L P* SYSTEM START - PART 2 * " L P* * r L P**********************************************************************
0x1b5bb8…1b5d4c Dummy {f00=0x0072, f01=0x0190, f02=»XT 'MLP INTEGRIERT (N=0,J=1) ' > P FKI 36,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=1 T " P FMEL '9',YDMLPINT P FNL T P FTEXT 'SYSTEM WAEHRUNG ? '
0x1b5d4c…1b5ee0 Dummy {f00=0x0072, f01=0x0190, f02=»F01410 P FCOPY YCCCY(KW4) P FNL 2 P FTEXT 'TEXT ? ' F P FTAB 12 h P FBZ RDALFKB,F01420 x : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR PF01420 P FCOPY YCTEXT P
0x1b5ee0…1b6074 (2, 168) Dummy {f00=0x0072, f01=0x0190, f02=»T j P FMEL 'ZZE:ZZ',NDTIME P FNL ( P FTEXT 'DATUM (TTMMJJ) ? ' 4 4 P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,REWRT,APPL=32 V P FMEL 'ZZE-ZZE-ZZ',NDDATE P FMEND L P******************************************************************
0x1b6074…1b6208 Dummy {f00=0x0072, f01=0x0190, f02=» * f L P************************************************************************ & ( PFMT015 FRMT CURRENCY INITIALISATION v L P FSL ***************************** T P FTEXT 'WAEHRUNGSNAME
0x1b6208…1b639c Dummy {f00=0x0072, f01=0x0190, f02=»A,NEOI,NCLR f PF01510 P FCOPY CCCCYNME " P FNL D T P FTEXT 'WAEHRUNGSCODE : ' X P FBZ RDALFKB,F01520 8 P FKI 17,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR P
0x1b639c…1b6530 Dummy {f00=0x0072, f01=0x0190, f02=»L=1,MAXL=5,NUM,NEOI,NCLR,APPL=21,REWRT v $ P FMEL 'ZZZZ9',CDRELAT . P FNL V T P FTEXT 'ANKAUFSKURSE :(1)' j D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=28 &
0x1b6530…1b66c4 Dummy {f00=0x0072, f01=0x0190, f02=»=6,NUM,NEOI,NCLR,REWRT,APPL=23 n & P FMEL 'ZZZZ,ZZ',CDBUY2 & P FNL P T P FTEXT 'VERKAUFSKURSE :(1)' d D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 & P
0x1b66c4…1b6858 Dummy {f00=0x0072, f01=0x0190, f02=»,NEOI,NCLR,REWRT,APPL=24 h & P FMEL 'ZZZZ,ZZ',CDSEL2 P FNL J T P FTEXT 'WAEHRUNGSLIMIT:' ^ D P FKI 28,ME,MINL=1,MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT ( P F
0x1b6858…1b69ec Dummy {f00=0x0072, f01=0x0190, f02=»* * L P* GET OPERATOR IDENTIFICATION (DBUOPR) * P L P* * L P************************
0x1b69ec…1b6b80 Dummy {f00=0x0072, f01=0x0190, f02=» FSL T P FTEXT 'BEDIENER NR. :' P , P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=6 J P FMEL 'ZZZZZ',IDNR1
0x1b6b80…1b6d14 (2, 169) Dummy {f00=0x0072, f01=0x0190, f02=»********************************************** v L P* * 6 L P* OPERATOR UPDATE (DBUOPR) * L P*
0x1b6d14…1b6ea8 Dummy {f00=0x0072, f01=0x0190, f02=»IFICATION v L P FSL T P FTEXT 'NAME BEDIENER :' b P FBZ RDALFKB,F01710 R P FKI 17,ME,MINL=1,MAXL=18,NCLR,NEOI,ALPHA
0x1b6ea8…1b703c Dummy {f00=0x0072, f01=0x0190, f02=» T P FTEXT 'KENNWORT :' J R P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,ALPHA L P FCOPY OCPASS
0x1b703c…1b71d0 Dummy {f00=0x0072, f01=0x0190, f02=» H T P FTEXT 'SPRACHE :' ! R P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=5 ! ` L P FMEL '9',ODOPRLGG ! L P F
0x1b71d0…1b7364 Dummy {f00=0x0072, f01=0x0190, f02=» ! V P FNL " L P FNL " " L P FNL " r T P FTEXT 'KASSENBESTAND :'
0x1b7364…1b74f8 Dummy {f00=0x0072, f01=0x0190, f02=»=11,NCLR,NEOI,NUM,REWRT " z R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) # > L P FNL # P FTAB 20 # L P FCOPY YCCCY(KW1)
0x1b74f8…1b768c Dummy {f00=0x0072, f01=0x0190, f02=» # D R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) $ L P FNL $ ^ P FTAB 20 $ L P FCOPY YCCCY(KW2) $
0x1b768c…1b7820 Dummy {f00=0x0072, f01=0x0190, f02=» $ b L P FNL % ( P FTAB 20 % x L P FCOPY YCCCY(KW3) % P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT
0x1b7820…1b79b4 (2, 170) Dummy {f00=0x0072, f01=0x018e, f02=» % T P FTEXT 'AKK. AUF NULL STELLEN (N=0,J=1) ?' & B R P FKI 35,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=1 & N P FMEL '9',IDNR1
0x1b79b4…1b7b48 Dummy {f00=0x0072, f01=0x0190, f02=» L P************************************************************************ ' L P* * ' T L P* OPERATOR ACCUMULATORS, USED BY DBUOPR * ' L P*
0x1b7b48…1b7cdc Dummy {f00=0x0072, f01=0x0190, f02=» L PFMT018 FRMT ( L P FSL ( T T P FTEXT 'EINZAHLUNGEN :' ( P FTAB 20 (
0x1b7cdc…1b7e70 Dummy {f00=0x0072, f01=0x0190, f02=»ODCASH(KW2,KW3) ( z L P FNL ) : T P FTEXT 'AUSZAHLUNGEN :' ) P FTAB 20 ) P FCOPY YCCCY(KW4) )
0x1b7e70…1b8004 Dummy {f00=0x0072, f01=0x018e, f02=» ) ` L P FNL * T P FTEXT 'AKKUM. SCHECKS :' * p P FTAB 20 * P FCOPY YCCCY(KW4) * P P FKI 24,ME,MINL=1,MAXL
0x1b8004…1b8198 Dummy {f00=0x0072, f01=0x0190, f02=» * F L P FNL + T P FTEXT 'AKKUM. UEBERWEIS. :' + X P FTAB 20 + P FCOPY YCCCY(KW4) + P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT
0x1b8198…1b832c Dummy {f00=0x0072, f01=0x0190, f02=» + ~ L P FNL , > L P FNL , L P FNL
0x1b832c…1b84c0 Dummy {f00=0x0072, f01=0x018e, f02=»CY(KW4) , P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - F L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) - L P FNL
0x1b84c0…1b8654 (2, 171) Dummy {f00=0x0073, f01=0x0190, f02=» L P FCOPY YCCCY(KW4) . P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT . T L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) . L P FNL
0x1b8654…1b87e8 Dummy {f00=0x0073, f01=0x0190, f02=» . H L P FCOPY YCCCY(KW1) / P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT / ` L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) / L P FNL
0x1b87e8…1b897c Dummy {f00=0x0073, f01=0x0190, f02=» / T L P FCOPY YCCCY(KW2) 0 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 0 d L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) 0 L P
0x1b897c…1b8b10 Dummy {f00=0x0073, f01=0x0190, f02=» 0 X L P FCOPY YCCCY(KW3) 1 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 1 h L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) 1
0x1b8b10…1b8ca4 Dummy {f00=0x0073, f01=0x0190, f02=»******************** 1 L P* * 2 L P* TERMINAL START, USED BY CCSTTT * 2 l L P* * 2
0x1b8ca4…1b8e38 Dummy {f00=0x0073, f01=0x0190, f02=» 2 L P FSL 3 L P FCOPY YCTEXT 3 l L P FNL 3
0x1b8e38…1b8fcc Dummy {f00=0x0073, f01=0x0190, f02=»PY RCTRMNME 3 P FB F01920 4 PF01910 4 & T P FTEXT 'SCHALTER NR.(' 4 4 L P FMEL '999',NDTRMNR 4 P FTEXT ')' 4 PF01920 4 P FTAB 34 4
0x1b8fcc…1b9160 Dummy {f00=0x0073, f01=0x0190, f02=»' 4 x P FTAB 20 5 @ P FMEL 'ZZE:ZZ',NDTIME 5 P L P FNL 5 n T P FTEXT 'DATUM (TTMMJJ): '
0x1b9160…1b92f4 (2, 172) Dummy {f00=0x0073, f01=0x0190, f02=» 5 f L P FMEND 6 & L P************************************************************************ 6 v L P*
0x1b92f4…1b9488 Dummy {f00=0x0073, f01=0x0190, f02=» * 6 f L P************************************************************************ 7 & L PFMT021 FRMT 7 v L P FSL
0x1b9488…1b961c Dummy {f00=0x0073, f01=0x0190, f02=»APPL=8 7 n J P FMEL 'ZZZZZ',IDNR1 8 ( L P FNL 8 v T P FTEXT 'KENNWORT : '
0x1b961c…1b97b0 Dummy {f00=0x0073, f01=0x0190, f02=» 8 n L P FNL 9 0 T P FTEXT 'SPRACHE : ' 9 2 P FKI 17,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=5 9
0x1b97b0…1b9944 Dummy {f00=0x0073, f01=0x0190, f02=» 9 ^ L P************************************************************************ : L P* * : n L P* OPERATOR BALANCES, USED BY BCSTTO * :
0x1b9944…1b9ad8 Dummy {f00=0x0073, f01=0x0190, f02=»********************** : ^ L PFMT022 FRMT ; L P FSL ; n T P FTEXT 'NAME BEDIENER : '
0x1b9ad8…1b9c6c Dummy {f00=0x0073, f01=0x0190, f02=» ; f T P FTEXT 'KASSENBESTAND : ' < & P FTAB 20 < ~ L P FCOPY YCCCY(KW4) < P FTAB 24 < L P FMEL 'ZZZZZZZZ9,99-',ODCA
0x1b9c6c…1b9e00 Dummy {f00=0x0073, f01=0x0190, f02=» < J L P FCOPY YCCCY(KW1) = P FTAB 24 = Z L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) = j P FNL = L P FTAB 20
0x1b9e00…1b9f94 (2, 173) Dummy {f00=0x0073, f01=0x0190, f02=»SH(KW1,KW2) = v P FNL > 6 L P FTAB 20 > B L P FCOPY YCCCY(KW3) > P FTAB 24 > L P FMEL 'ZZZZZZZZ9,99-',
0x1b9f94…1ba128 Dummy {f00=0x0073, f01=0x0190, f02=» > N T P FKI 36 ? P FCOPY WCSTRG6 ? n L P FMEND ? L P****************************************************
0x1ba128…1ba2bc Dummy {f00=0x0073, f01=0x0190, f02=» ? t P FBT SBZEK,F27050 @ 4 L P FBF SBCARD,F27200 @ N P FBF SBMSU,F27100 @ P FB F27005 @ P* @ P* MAGNETIC STRIP UNIT @ P* @ PF27050 @ *
0x1ba2bc…1ba450 Dummy {f00=0x0073, f01=0x0190, f02=»TE IN MSU' @ ~ P FB F27999 A PF27100 A $ L P* * A 2 L P* BADGE CARD READER INPUT * A L P*
0x1ba450…1ba5e4 Dummy {f00=0x0073, f01=0x0190, f02=» A z L PF27200 B : L P FBF SBCHEQUE,F27300 B L P*
0x1ba5e4…1ba778 Dummy {f00=0x0073, f01=0x0190, f02=» * B z T P FTEXT 'ZIEHE SCHECK DURCH OCR' C : L P FB F27999 C L P*
0x1ba778…1ba90c Dummy {f00=0x0073, f01=0x018e, f02=» * C L PF27300 D B T P FTEXT 'KONTO ODER KARTENNUMMER : ' D T P FKI 27,ME,MINL=4,MAXL=6,NUM,N
0x1ba90c…1baaa0 Dummy {f00=0x0073, f01=0x0190, f02=» PF27999 E L P FMEND E L P************************************************************************ E b L P* * E L P* ENT
0x1baaa0…1bac34 (2, 174) Dummy {f00=0x0073, f01=0x018e, f02=» * E R L P************************************************************************ F PMSG030 FRMT F b P FSL F v P FLOW F T P FTEXT 'BITTE FUNKTION EINGEBEN : ' F P FMEND F L P******************
0x1bac34…1badc8 Dummy {f00=0x0073, f01=0x0190, f02=» F F L P* * G L P************************************************************************ G X PFMT039 FRMT OPEN ACCOUNT G L P FSL
0x1badc8…1baf5c Dummy {f00=0x0073, f01=0x0190, f02=» G j L P FB F03920 H 2 L PF03910 H T P FTEXT 'EROEFNNE GIROKONTO NUMMER : '
0x1baf5c…1bb0f0 Dummy {f00=0x0073, f01=0x0190, f02=»1 H z L P FNL I : L P FTEXT 'NAME :' I T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18
0x1bb0f0…1bb284 Dummy {f00=0x0073, f01=0x018e, f02=» I T P FTEXT 'ADRESSE :' J B T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 J L P FCOPY ACADDRES
0x1bb284…1bb418 Dummy {f00=0x0073, f01=0x0190, f02=» T P FTEXT 'ORT :' K T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 K L P FCOPY ACTOWN K L P FNL
0x1bb418…1bb5ac Dummy {f00=0x0073, f01=0x0190, f02=» K T T P FTEXT 'KENNWORT:' L T P FKI 11,MAXL=6,ALPHA,ME,NCLR L l L P FCOPY ACPASS
0x1bb5ac…1bb740 Dummy {f00=0x0073, f01=0x018e, f02=» L d P FTEXT 'KART.:' M $ , P FKI 7,APPL=13,MINL=4,MAXL=4,NUM,ME,NEOI M < L P FMEL 'ZZZZ',ADCARDNR M l T P FTEXT ' KREDIT LIMIT:'
0x1bb740…1bb8d4 (2, 175) Dummy {f00=0x0074, f01=0x0190, f02=» PF03940 N P FMEND N L P************************************************************************ N & P* N v L P* CLOSE ACCOUNT (DGCACT) * N P* N L P**********************************************
0x1bb8d4…1bba68 Dummy {f00=0x0074, f01=0x0190, f02=»HQACT,F04010 N z T P FTEXT 'ABSCHLUSS SPARKONTO NR. : ' O P FB F04020 O l PF04010 O T P FTEXT 'ABSCHLUSS GIROKONTO NR. : ' O PF04020 O P FTAB
0x1bba68…1bbbfc Dummy {f00=0x0074, f01=0x0190, f02=»E O x P FNL P T P FTEXT 'AKTUELLER SALDO : ' P P FTAB 24 P v , P FMEL 'ZZZZZZZZ9,99',ADBAL P P FNL P & P FBT SBCHQACT,F04030 P T P FTEXT 'BUCH SALDO
0x1bbbfc…1bbd90 Dummy {f00=0x0074, f01=0x0190, f02=» : ' P | PF04040 Q D P FTAB 24 Q R . P FMEL 'ZZZZZZZZ9,99',ADLIMBOK Q b P FNL Q & P FBT SBCHQACT,F04050 Q T P FTEXT 'KENNWORT : '
0x1bbd90…1bbf24 Dummy {f00=0x0074, f01=0x0190, f02=»XT 'KARTENNUMMER : ' Q P FTAB 24 R T & P FMEL '9999',ADCARDNR R d PF04060 R P FMEND R L P************************************************************************ R L P*
0x1bbf24…1bc0b8 Dummy {f00=0x0074, f01=0x0190, f02=» * R R L P* * S L P************************************************************************ S b L PFMT041 FRMT S L P FSL
0x1bc0b8…1bc24c Dummy {f00=0x0074, f01=0x0190, f02=» S R R P FTEXT 'EINZAHLUNG - SPARKONTO:' T L P FB F04120 T h L PF04110 T R P
0x1bc24c…1bc3e0 Dummy {f00=0x0074, f01=0x0190, f02=» T ^ L P FTAB 31 U L P FMEL '999999',IDACTNR1 U n L P FNL U
0x1bc3e0…1bc574 (2, 176) Dummy {f00=0x0074, f01=0x0190, f02=» U ^ L P* * V L P* SAVINGS ACCOUNT WITH BOOK * V n L P* * V
0x1bc574…1bc708 Dummy {f00=0x0074, f01=0x0190, f02=» FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT V PF04121 W T L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 W b T P FTAB 28 W T
0x1bc708…1bc89c Dummy {f00=0x0074, f01=0x0190, f02=» 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 W PF04124 X J L P FMEL 'ZZ',IDNR1 X X L P FB F04140 X L P*
0x1bc89c…1bca30 Dummy {f00=0x0074, f01=0x0190, f02=» X H L P* * Y L PF04130 Y X L P FTEXT 'NAME :' Y L P FTAB 16
0x1bca30…1bcbc4 Dummy {f00=0x0074, f01=0x0190, f02=» Y H L PF04140 Z P FNL Z X T P FTEXT 'BETRAG :' Z d P P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT
0x1bcbc4…1bcd58 Dummy {f00=0x0074, f01=0x0190, f02=» Z ` T P FTEXT 'NEUER SALDO :' [ L P FTAB 20 [ x P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x1bcd58…1bceec Dummy {f00=0x0074, f01=0x0190, f02=»************************************ [ l L P* * , L P* WITHDRAWAL * | L P*
0x1bceec…1bd080 Dummy {f00=0x0074, f01=0x0190, f02=» l L P FSL ] , P FTEXT 'AUSZAHLUNG ' ] | L P FBT SBCHQACT,F04210 ] P FTEXT 'SPAR' ] L P FB F04220
0x1bd080…1bd214 (2, 177) Dummy {f00=0x0074, f01=0x0190, f02=» ] N P FTEXT 'GIRO' ^ L PF04220 ^ $ P FTEXT 'KONTO : ' ^ t L P FTAB 31 ^ L P FMEL '999999',IDACTNR1
0x1bd214…1bd3a8 Dummy {f00=0x0074, f01=0x0190, f02=»30 ^ ~ L P* * _ > L P* SAVINGS ACCOUNT * _ L P*
0x1bd3a8…1bd53c Dummy {f00=0x0074, f01=0x0190, f02=» :' _ ~ L P FTAB 31 ` F L P FCOPY ACPASS ` L P FB F04250
0x1bd53c…1bd6d0 Dummy {f00=0x0074, f01=0x0190, f02=»QUE,F04240 ` L P* * a F L P* CHEQUE ACCOUNT, NO ODR * a L P*
0x1bd6d0…1bd864 Dummy {f00=0x0074, f01=0x0190, f02=» a L P FCOPY ACNAME b F L P FB F04250 b L P*
0x1bd864…1bd9f8 Dummy {f00=0x0074, f01=0x0190, f02=» * b L PF04240 c F L P FTAB 12 c T P FTEXT '- SCHECK NR. :'
0x1bd9f8…1bdb8c Dummy {f00=0x0074, f01=0x0190, f02=»COPY FCFIELD c L PF04250 d N L P FNL d L P FBT SBCHQACT,F04260
0x1bdb8c…1bdd20 Dummy {f00=0x0074, f01=0x0190, f02=»SAVINGS ACCOUNT * d L P* * e N T P FTEXT 'BUCH SALDO :' e P FTAB 15 e P F
0x1bdd20…1bdeb4 (2, 178) Dummy {f00=0x0074, f01=0x0190, f02=»Z',IDAMT1 e ~ T P FTAB 28 f > T P FTEXT 'ZEILE:' f P FTAB 35 f P FBT SBZEK
0x1bdeb4…1be048 Dummy {f00=0x0074, f01=0x0190, f02=» f v L P FB F04270 g 6 L P* * g L P* CHEQUE ACCOUNT
0x1be048…1be1dc Dummy {f00=0x0074, f01=0x0190, f02=» g v T P FTEXT 'KREDIT LIMIT:' h 6 P FTAB 24 h L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK h L PF04270
0x1be1dc…1be370 Dummy {f00=0x0074, f01=0x0190, f02=» h J L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT i L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT i b L P FNL i T P FTEXT
0x1be370…1be504 Dummy {f00=0x0074, f01=0x0190, f02=» i Z P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL j L P FMEND j n L P************************************************************************ j
0x1be504…1be698 Dummy {f00=0x0074, f01=0x0190, f02=» * j ^ L P* * k L P************************************************************************ k f L PPRT043 FRMT k R P F
0x1be698…1be82c Dummy {f00=0x0074, f01=0x0190, f02=» k v L P FTAB 3 l 6 PP043005 l P FTAB 5 l L P FBF SBSTTO,P043020 l T P FTEXT 'BEDIENER S
0x1be82c…1be9c0 Dummy {f00=0x0074, f01=0x0190, f02=» l N L P FBF SBOACT,P043030 m T P FTEXT 'KONTO EROEFFNEN' m ^ L PP043030 m L P F
0x1be9c0…1beb54 (2, 179) Dummy {f00=0x0075, f01=0x0190, f02=» m V L PP043040 n L P FBF SBBACT,P043050 n n T P FTEXT 'KONTO SPERREN'
0x1beb54…1bece8 Dummy {f00=0x0075, f01=0x0190, f02=» n f T P FTEXT 'K. ENTSPERREN' o & L PP043060 o ~ L P FBF SBUACT,P043070
0x1bece8…1bee7c Dummy {f00=0x0075, f01=0x0190, f02=» o v L P FBF SBUCCY,P043080 p 6 T P FTEXT 'WAEHR. AENDERN' p L PP043080
0x1bee7c…1bf010 Dummy {f00=0x0075, f01=0x0190, f02=»AGE' p ~ L PP043090 q F L P FBF SBDSTM,P043100 q T P FTEXT 'TAGESAUSZUG'
0x1bf010…1bf1a4 Dummy {f00=0x0075, f01=0x0190, f02=»BF SBCOPR,P043110 q T P FTEXT 'BED. ABSCHLUSS' r N L PP043110 r L P FBF SBCSYS,P04312
0x1bf1a4…1bf338 Dummy {f00=0x0075, f01=0x0190, f02=» r F L PP043120 s L P FBF SBECCY,P043130 s ^ T P FTEXT 'TAGESWAEHRUNG' s L PP0
0x1bf338…1bf4cc Dummy {f00=0x0075, f01=0x0190, f02=» s V T P FTEXT 'WAEHR. ABFRAGE' t L PP043140 t n L P FBF SBLACT,P043300 t
0x1bf4cc…1bf660 Dummy {f00=0x0075, f01=0x0190, f02=» t f P FTAB 21 u & P FBT SBSTTO,P043400 u 6 P FBT SBCOPR,P043400 u R P FBT SBVCH,P043400 u n P FILLR ' ',6 u P FB P043500 u PP043400 u L P FMEL 'ZZZZZZ',NDDATE
0x1bf660…1bf7f4 (2, 180) Dummy {f00=0x0075, f01=0x0190, f02=»P043700 u P FILLR ' ',20 v PP043999 v & P FMEND v 6 L P************************************************************************ v D L P* * v L P* PRINT, LINE TYPE 3: END OF FUNCTI
0x1bf7f4…1bf988 Dummy {f00=0x0075, f01=0x0190, f02=»************************************************************ v L PPRT044 FRMT w D R P FTEXT ' ' w P FBT SBVCH,P044010 w P FTA
0x1bf988…1bfb1c Dummy {f00=0x0075, f01=0x0190, f02=» w t N P FBF SBCANCEL,P044100 x 4 T P FTEXT 'ABBRUCH' x N P FB P044200
0x1bfb1c…1bfcb0 Dummy {f00=0x0075, f01=0x0190, f02=»,TDTRSSEQ x N PP044200 y B L P FTAB 12 y L P FMEL '99999',RDOPRNR
0x1bfcb0…1bfe44 Dummy {f00=0x0075, f01=0x0190, f02=»NDTRMNR y L P FTAB 22 z D L P FMEL '99E:99',NDTIME z P FBT SBFIL24,P044600 z P FBT SBF
0x1bfe44…1bffd8 Dummy {f00=0x0075, f01=0x0190, f02=» z L P************************************************************************ { J L P* * { L P* TRANSFER (DNTRF)
0x1bffd8…1c016c Dummy {f00=0x0075, f01=0x018e, f02=»****************************************************************** { L PFMT045 FRMT | J L P FSL | T P FTEXT 'UEBERWEISUNG AB KONT
0x1c016c…1c0300 Dummy {f00=0x0075, f01=0x0190, f02=» P FBT SBZEK,F04510 } 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT } L P FMEL 'ZZZZZZ',IDACTNR1 } V L P FB F04520 } L PF04510
0x1c0300…1c0494 (2, 181) Dummy {f00=0x0075, f01=0x0190, f02=» } V L PF04520 ~ L P FNL ~ f L P FBT SBCHQACT,F04530 ~ T P F
0x1c0494…1c0628 Dummy {f00=0x0075, f01=0x018e, f02=»MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT ~ PF04521 P L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 ^ T P FTEXT 'ZEILE: ' P F
0x1c0628…1c07bc Dummy {f00=0x0075, f01=0x0190, f02=» L P FMEL 'ZZ',IDNR1 L P FB F04540 X L PF04530 P FTEXT 'KREDIT L
0x1c07bc…1c0950 Dummy {f00=0x0075, f01=0x0190, f02=» v L P FNL 6 P FTEXT 'BETRAG :' T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT L P FMEL 'ZZZZZ
0x1c0950…1c0ae4 Dummy {f00=0x0075, f01=0x0190, f02=» L T P FTEXT 'NEUER SALDO :' P FTAB 24 d N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL t P FNL T P FTEXT 'UEBERWEISUNG AUF KONTO: '
0x1c0ae4…1c0c78 Dummy {f00=0x0075, f01=0x0190, f02=»DACTNR2 L P FMEND @ L P************************************************************************ L P*
0x1c0c78…1c0e0c Dummy {f00=0x0075, f01=0x0190, f02=» * L P************************************************************************ @ L PFMT046 FRMT INQUIRE ACCOUNT L P FSL
0x1c0e0c…1c0fa0 Dummy {f00=0x0075, f01=0x0190, f02=»SPARKONTO NUMMER : ' L P FB F04620 H L PF04610 T P FTEXT 'ABFRAGE GIROKONTO NUMMER
0x1c0fa0…1c1134 (2, 182) Dummy {f00=0x0075, f01=0x0190, f02=» FTAB 26 L P FMEL '999999',IDACTNR1 L P FNL ` T P FTEXT 'SALDO : ' P
0x1c1134…1c12c8 Dummy {f00=0x0075, f01=0x0190, f02=» h L P FBT SBCHQACT,F04630 ( T P FTEXT 'BUCH SALDO : ' x L P FB F04640
0x1c12c8…1c145c Dummy {f00=0x0075, f01=0x0190, f02=» p L PF04640 4 P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK L P FNL
0x1c145c…1c15f0 Dummy {f00=0x0075, f01=0x0190, f02=» L P FMEL '9',ADSTATUS H L P FNL , P FTEXT 'LETZTE TRANS.VERLANGT(N=
0x1c15f0…1c1784 Dummy {f00=0x0075, f01=0x0190, f02=» ^ L P************************************************************************ L P* * n L P* TRANSACTION INQUIRY (DIQACT) *
0x1c1784…1c1918 Dummy {f00=0x0075, f01=0x0190, f02=»********************** ^ L PFMT047 FRMT INQUIRY TRANSACTION L P FSL n * P FTEXT 'TRANSAKTION ABFRAGE-KONTONR: ' P FTAB 26 L P FMEL '99999
0x1c1918…1c1aac Dummy {f00=0x0075, f01=0x0190, f02=» L L P FTEXT 'TRANS. : ' P FTAB 7 L P FMEL '999',UDTRSCDE l L P FTEXT '/'
0x1c1aac…1c1c40 Dummy {f00=0x0075, f01=0x0190, f02=» L P FMEL '999999',UDTRSSEQ L P FTEXT '/' l L P FMEL '99E-99E-99',UDDATE
0x1c1c40…1c1dd4 (2, 183) Dummy {f00=0x0076, f01=0x0190, f02=» P FTAB 20 $ L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT 4 L P FNL P P FTEXT 'NEUER SALDO: '
0x1c1dd4…1c1f68 Dummy {f00=0x0076, f01=0x0190, f02=» FNL , P FTEXT 'VORH. TRANS. VERLANGT (N=0,J=1)' P * P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',IDNR1 L P FMEND
0x1c1f68…1c20fc Dummy {f00=0x0076, f01=0x0190, f02=» * f L P* BLOCK / DEBLOCK SCREEN (DHBACT) * & L P* * v L P******************************************************************
0x1c20fc…1c2290 Dummy {f00=0x0076, f01=0x0190, f02=» f L P FBF SBCHQACT,F04820 & L P* * v L P* SAVINGS ACCOUNT
0x1c2290…1c2424 Dummy {f00=0x0076, f01=0x0190, f02=» f T P FTEXT 'SPERREN SPARKONTO NUMMER :' & L P FB F04840 ~ 0 PF04810 FTEXT 'ENTSPERREN SPARKONTO NUMMER:' L P FB F0
0x1c2424…1c25b8 Dummy {f00=0x0076, f01=0x0190, f02=» R T P FTEXT 'SPERREN GIROKONTO NUMMER :' L P FB F04840 j 0 PF04830 FTEXT 'ENTSPERREN GIROKONTO NUMMER:' PF04840 P FTAB 30
0x1c25b8…1c274c Dummy {f00=0x0076, f01=0x0190, f02=» h P FTAB 16 ( L P FCOPY ACNAME 8 L P FNL T P FTEXT 'AKTUELLER SALDO :'
0x1c274c…1c28e0 Dummy {f00=0x0076, f01=0x0190, f02=» FNL L P FBF SBCHQACT,F04860 PF04850 T P FTEXT 'BUCH SALDO :' j P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x1c28e0…1c2a74 (2, 184) Dummy {f00=0x0076, f01=0x0190, f02=» N P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK & PF04865 v P FNL L P FBZ RDALFKB,F04870 T P FTEXT 'BEMERKUNG :'
0x1c2a74…1c2c08 Dummy {f00=0x0076, f01=0x0190, f02=» ` L P FB F04899 0 PF04870 FTEXT 'TASTE CONT ODER TASTE CANCEL' p L PF04899 FMEND L P********************
0x1c2c08…1c2d9c Dummy {f00=0x0076, f01=0x018e, f02=» d P FKI 36 , P FCOPY ICDUMMY < P FMEND R L P************************************************************************ ` PMSG050 FRMT P FSL T P FTEXT 'PRUEFUNG NEUER SPARBUCHSEITE'
0x1c2d9c…1c2f30 Dummy {f00=0x0076, f01=0x0190, f02=» P FMEND L P************************************************************************ L P* * f L P* PRINT: PASSBOOK CLOSE LINE * L P*
0x1c2f30…1c30c4 Dummy {f00=0x0076, f01=0x0190, f02=»************** V L PPRT051 FRMT P FTEXT ' ' f L P FMEL 'ZZZZZZ',NDDATE z N P FILLR ' ',13
0x1c30c4…1c3258 Dummy {f00=0x0076, f01=0x0190, f02=» l " PP05110 FTEXT '** ABGESCHL.**' . PP05120 FMEND T L P************************************************************************ h L P* * L P
0x1c3258…1c33ec Dummy {f00=0x0076, f01=0x0190, f02=» * X L P************************************************************************ J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1 h L P FSL L P F
0x1c33ec…1c3580 Dummy {f00=0x0076, f01=0x018e, f02=» V L P FB F05220 L PF05210 n T P FTEXT 'AENDERN GIROKONTO NUMMER : '
0x1c3580…1c3714 (2, 185) Dummy {f00=0x0076, f01=0x0190, f02=» v L P FNL L P FTEXT 'NAME :' X P FTAB 16 L P FBZ RDALFKB,F05230 T P
0x1c3714…1c38a8 Dummy {f00=0x0076, f01=0x0190, f02=» ` L P FCOPY ACNAME L P FNL p T P FTEXT 'ADRESSE :'
0x1c38a8…1c3a3c Dummy {f00=0x0076, f01=0x0190, f02=»,NCLR,NEOI,APPL=18 x L PF05240 @ L P FCOPY ACADDRES L P FNL
0x1c3a3c…1c3bd0 Dummy {f00=0x0076, f01=0x0190, f02=»LFKB,F05250 T P FKI 16,MAXL=20,ALPHA,ME,NCLR,NEOI,APPL=18 H L PF05250 L P FCOPY ACTOWN
0x1c3bd0…1c3d64 Dummy {f00=0x0076, f01=0x0190, f02=» FBT SBCHQACT,F05270 L P* * P L P* SAVINGS ACCOUNT * L P*
0x1c3d64…1c3ef8 Dummy {f00=0x0076, f01=0x0190, f02=» @ P FTAB 30 L P FBZ RDALFKB,F05260 N P FKI 30,MAXL=6,ALPHA,NEOI,NCLR h L PF05260 L
0x1c3ef8…1c408c Dummy {f00=0x0076, f01=0x0190, f02=» l T P FTEXT 'KREDIT LIMIT :' , T P FKI 24,MAXL=11,NUM,NCLR,REWRT,ME,NEOI L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x1c408c…1c4220 Dummy {f00=0x0076, f01=0x0190, f02=»****************************************************************** L P* * J L P* UPDATE ACCOUNT, MASTER KEYSETTING ON (DJUACT) * L P*
0x1c4220…1c43b4 (2, 186) Dummy {f00=0x0076, f01=0x018e, f02=» FRMT L P FSL J L P FBT SBCHQACT,F05310 T P FTEXT 'AENDERN SPARKONTO NUM
0x1c43b4…1c4548 Dummy {f00=0x0076, f01=0x0190, f02=» L PF05310 T P FTEXT 'AENDERN GIROKONTO NUMMER : ' T PF05320 P FTAB 30 P FMEL '999999',IDACTNR1 P FNL L P FBT SBCHQACT,F053
0x1c4548…1c46dc Dummy {f00=0x0076, f01=0x0190, f02=» F R P FKI 15,MAXL=11,NUM,ME,NCLR,REWRT,NEOI L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK d T P FTEXT 'ZEILE:'
0x1c46dc…1c4870 Dummy {f00=0x0076, f01=0x0190, f02=» b L P FB F05340 " L PF05330 r T P FTEXT 'KREDIT LIMIT:'
0x1c4870…1c4a04 Dummy {f00=0x0076, f01=0x0190, f02=» p L PF05340 0 L P FNL T P FTEXT 'SALDO :'
0x1c4a04…1c4b98 Dummy {f00=0x0076, f01=0x0190, f02=»CLR,REWRT,NEOI,APPL=30 x L P FMEL 'ZZZZZZZZ9,99-',ADBAL @ L P FNL L P FTEXT 'STATUS :'
0x1c4b98…1c4d2c Dummy {f00=0x0076, f01=0x0190, f02=»ADSTATUS L P FNL F P FNL T P FTEXT 'LETZTER TRANSAKTION :' R P FKI 24,NEOI,M
0x1c4d2c…1c4ec0 Dummy {f00=0x0076, f01=0x0190, f02=» P L P FNL T P FTEXT 'LETZTER GEDRUCKT :' ` R P FKI 24,NEOI,MAXL=2,NUM,ME,NCLR,REWRT,APPL=17
0x1c4ec0…1c5054 (2, 187) Dummy {f00=0x0077, f01=0x0190, f02=» ^ T P FTEXT 'AKKUM. EINZAHLUNGEN :' R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT v L P FMEL 'ZZZZZZZZ9,99',ADDEPCUM
0x1c5054…1c51e8 Dummy {f00=0x0077, f01=0x0190, f02=» l R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT 4 L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM L P FMEND
0x1c51e8…1c537c Dummy {f00=0x0077, f01=0x0190, f02=»SL & P FTEXT 'BELEG IN DRUCKER EINLEGEN' P FKI 34 4 P FCOPY ICDUMMY D P FMEND Z L P*********************************************************************** h L P* * L P
0x1c537c…1c5510 Dummy {f00=0x0077, f01=0x0190, f02=» * X L P************************************************************************ L PFMT055 FRMT h L P FNL L P
0x1c5510…1c56a4 Dummy {f00=0x0077, f01=0x0190, f02=» X L P FTAB 8 T P FTEXT 'KARTE' p L P FTAB 13
0x1c56a4…1c5838 Dummy {f00=0x0077, f01=0x0190, f02=» h T P FTEXT 'EINZAHLUNGEN' ( L P FTAB 49 T P FTEXT 'AUSZAHLUNGEN'
0x1c5838…1c59cc Dummy {f00=0x0077, f01=0x0190, f02=» x L P FMEND 8 J P********************************************************************** P* P* CURRENCY INQUIRY (DQCCY) P*
0x1c59cc…1c5b60 Dummy {f00=0x0077, f01=0x0190, f02=»E : ' | P FTAB 17 D P FCOPY CCCCYNME T P FNL l T P FTEXT 'WAEHRUNGSCODE : ' x P FTAB 17 P FCOPY CCCCYCDE P FTAB 26 P
0x1c5b60…1c5cf4 (2, 188) Dummy {f00=0x0077, f01=0x0190, f02=» Z P FTAB 19 " P FMEL 'ZZZ9,99-',CDBUY1 2 P FTAB 27 R P FTEXT '(2)' b P FTAB 30 v P FMEL 'ZZZ9,99',CDBUY2 P FNL T P FTEXT 'VERKAUFSKURSE :(1)'
0x1c5cf4…1c5e88 Dummy {f00=0x0077, f01=0x0190, f02=» T P FTEXT 'WAEHRUNGSLIMIT:' P FTAB 28 ` P FMEL 'ZZZZZ9,99',CDLIMIT p P FMEND L P************************************************************************ L P*
0x1c5e88…1c601c Dummy {f00=0x0077, f01=0x0190, f02=»* * L P************************************************************************ P L PFMT058 FRMT L P FSL
0x1c601c…1c61b0 Dummy {f00=0x0077, f01=0x0190, f02=» @ L P FBT SBCCYIN,F058100 T P FTEXT '(VERKAUF)' X L P FB F058200 L PF058100
0x1c61b0…1c6344 Dummy {f00=0x0077, f01=0x0190, f02=» P L PF058200 L P FNL h T P FTEXT 'KURS:'
0x1c6344…1c64d8 Dummy {f00=0x0077, f01=0x0190, f02=» ` L P FTAB 10 L P FBT SBCCYIN,F058220 p L P* CURRENCY SELLING *
0x1c64d8…1c666c Dummy {f00=0x0077, f01=0x0190, f02=» ` L P* CURRENCY BUYING * L PF058220 p L P FMEL 'ZZZZ9,99',CDBUY1
0x1c666c…1c6800 Dummy {f00=0x0077, f01=0x0190, f02=» ` L P FTAB 21 L P FCOPY CCCCYCDE p L P FTAB 25
0x1c6800…1c6994 (2, 189) Dummy {f00=0x0077, f01=0x0190, f02=» ` P P FTEXT 'BETRAG :' L P FTAB 16 t L P FCOPY ICTEXT1 CURRENCY CODE 1
0x1c6994…1c6b28 Dummy {f00=0x0077, f01=0x0190, f02=» d L P FNL $ P P FTEXT 'UMGER. BETRAG:' t L P FTAB 16
0x1c6b28…1c6cbc Dummy {f00=0x0077, f01=0x0190, f02=» h L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT2 ( L P FNL x T P FTEXT 'WEITERER GELDWECHSEL (N=0,J=1)?'
0x1c6cbc…1c6e50 Dummy {f00=0x0077, f01=0x0190, f02=» p L P FMEND 0 L P************************************************************************ L P*
0x1c6e50…1c6fe4 Dummy {f00=0x0077, f01=0x0190, f02=» * p L P************************************************************************ 0 T PFMT059 FRMT T P FSL
0x1c6fe4…1c7178 Dummy {f00=0x0077, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) P T P FTAB 24 T P FMEL 'Z
0x1c7178…1c730c Dummy {f00=0x0077, f01=0x0190, f02=» X T P FTAB 20 T P FCOPY YCCCY(KW1) x T P FTAB 24
0x1c730c…1c74a0 Dummy {f00=0x0077, f01=0x0190, f02=» T P FTAB 20 H T P FCOPY YCCCY(KW2) T P FTAB 24
0x1c74a0…1c7634 (2, 190) Dummy {f00=0x0077, f01=0x0190, f02=» P T P FNL T P FTAB 20 p T P FCOPY YCCCY(KW3)
0x1c7634…1c77c8 Dummy {f00=0x0077, f01=0x0190, f02=»CASH(KW1,KW3) x T P FNL @ T P FTEXT 'SCHECK SALDO :' T P FTAB 20
0x1c77c8…1c795c Dummy {f00=0x0077, f01=0x0190, f02=» H T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) h T P FNL
0x1c795c…1c7af0 Dummy {f00=0x0077, f01=0x0190, f02=» p L P************************************************************************ 8 L P* * N P* OPERATOR TURNOVER SCREEN
0x1c7af0…1c7c84 Dummy {f00=0x0077, f01=0x0190, f02=»************************************************** z PFMT060 FRMT : P FSL N T P FTEXT 'GESAMTUMSATZ :' Z P FTAB 20 P FCOPY YCCCY(KW4) P FTAB 24 P FMEL 'ZZZZZZZZ9,99-',WDEC1
0x1c7c84…1c7e18 Dummy {f00=0x0077, f01=0x0190, f02=» FTAB 20 P FCOPY YCCCY(KW2) P FTAB 24 * * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) : P FNL h P FTAB 20 t P FCOPY YCCCY(KW3) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL T P FTEXT 'WAEHRUNGSUMSATZ :'
0x1c7e18…1c7fac Dummy {f00=0x0077, f01=0x0190, f02=» j P FMEL 'ZZZZZZZZ9,99-',WDEC2 2 P FMEND V L P************************************************************************ d L P* * L P* DA
0x1c7fac…1c8140 Dummy {f00=0x0077, f01=0x0190, f02=» * T L P************************************************************************ L PPRT061 FRMT d L P FTEXT ' ' P FTA
0x1c8140…1c82d4 (2, 191) Dummy {f00=0x0078, f01=0x0190, f02=» t L P FMEL '99E-99E-99',NDDATE 4 PP061050 L P FTAB 19 P FBF SBDSRVS,P061100 T P FTEXT '
0x1c82d4…1c8468 Dummy {f00=0x0078, f01=0x0190, f02=» N P FBF SBDSDEP,P061200 T P FTEXT 'EINZAHLUNG' V L PP061200 N P FBF SBDSW
0x1c8468…1c85fc Dummy {f00=0x0078, f01=0x0190, f02=» P L PP061300 N P FBF SBDSTRF,P061400 h T P FTEXT 'UEBERWEISUNG'
0x1c85fc…1c8790 Dummy {f00=0x0078, f01=0x0190, f02=» b L P FMEL '99E-99E-99',UDDATE " L P FTAB 42 r L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT1
0x1c8790…1c8924 Dummy {f00=0x0078, f01=0x0190, f02=» b L P FMEND " L P************************************************************************ r T PMSG062 FRMT
0x1c8924…1c8ab8 Dummy {f00=0x0078, f01=0x0190, f02=» r T P FTEXT 'ENDLOSFORMULAR IN GTP EINLEGEN' : T P FB M062999 T PM062100
0x1c8ab8…1c8c4c Dummy {f00=0x0078, f01=0x0190, f02=» B T PM062999 T P FMEND b L P************************************************************************ T
0x1c8c4c…1c8de0 Dummy {f00=0x0078, f01=0x0190, f02=» b T P FTEXT 'TAGESAUSZUG EINLEGEN' * T P FMEND L P**********************************************
0x1c8de0…1c8f74 (2, 192) Dummy {f00=0x0078, f01=0x0190, f02=» J P FMEND L P************************************************************************ L P* * p L P* DEMO TP71: TITLE LINE *
0x1c8f74…1c9108 Dummy {f00=0x0078, f01=0x0190, f02=»************************ ` L PFMT065 FRMT P FILLR ' ',6 p P FBT SBFIL1,FMT65A P FILLR ' ',9 P FBT SBFIL2,FMT65A P FILLR ' ',8 P FBT SBFIL3,FMT65A P FILLR ' ',3
0x1c9108…1c929c Dummy {f00=0x0078, f01=0x0190, f02=» z L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' : L P FCOPY ICSTRG1 L P FMEND
0x1c929c…1c9430 Dummy {f00=0x0078, f01=0x0190, f02=» * z L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * : L P* * L P**********************************************
0x1c9430…1c95c4 Dummy {f00=0x0078, f01=0x0190, f02=» z L P FILLR ' ',6 : T P FTEXT 'VORHANDENER ZEICHENVORRAT:' L P FMEND
0x1c95c4…1c9758 Dummy {f00=0x0078, f01=0x0190, f02=» * L P* DEMO TP71: SPECIAL CHARACTERS * B L P* * L P**************************************
0x1c9758…1c98ec Dummy {f00=0x0078, f01=0x0190, f02=» L P FILLR ' ',6 B T P FTEXT 'SPEZIELLER ZEICHEN : ' L P FILLR ' ',6
0x1c98ec…1c9a80 Dummy {f00=0x0078, f01=0x0190, f02=» FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' P* ROOMLESS POINT B P FTEXT =X'AE37AE38AE39' Z L P FMEND z L P**************************************************************
0x1c9a80…1c9c14 (2, 193) Dummy {f00=0x0078, f01=0x0190, f02=» * j L P* * * L P************************************************************************ z L P*
0x1c9c14…1c9da8 Dummy {f00=0x0078, f01=0x0190, f02=»************************************************************************ PFMT068 FRMT P P FSL d P FTEXT 'ODR (N=0,Y=1) ?' p 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL P FTEXT 'TERMINAL NR. :'
0x1c9da8…1c9f3c Dummy {f00=0x0078, f01=0x0190, f02=»MEL '999',NDTRMNR P FTEXT ')' P FMEND , L P************************************************************************ : L P* * F P* OPERATOR BALANCES, FOR FT80
0x1c9f3c…1ca0d0 Dummy {f00=0x0078, f01=0x0190, f02=»******************************************** t L PFMT069 FRMT 4 L P FSL H P FTEXT 'BEDIENER : '
0x1ca0d0…1ca264 Dummy {f00=0x0078, f01=0x0190, f02=» p P FTEXT 'KASSENBESTAND: ' 0 P FTAB 16 P L P FCOPY YCCCY(KW4) ` P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x1ca264…1ca3f8 Dummy {f00=0x0078, f01=0x0190, f02=»PY YCCCY(KW1) P FTAB 20 L L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) P FNL P FTEXT 'KASSENBESTAND: ' L P FTAB 16
0x1ca3f8…1ca58c Dummy {f00=0x0078, f01=0x0190, f02=»ZZZZZZZ9,99-',ODCASH(KW1,KW2) P FNL H P FTEXT 'KASSENBESTAND: ' T L P FTAB 16 t L P FCOPY YCCCY(KW3)
0x1ca58c…1ca720 Dummy {f00=0x0078, f01=0x0190, f02=»NT ODER TASTE CANC' P FKI 32 P FCOPY WCSTRG6 , L P FMEND B L P************************************************************************ L P*
0x1ca720…1ca8b4 (2, 194) Dummy {f00=0x0078, f01=0x0190, f02=» * L P************************************************************************ J L PFMT070 FRMT L P FSL
0x1ca8b4…1caa48 Dummy {f00=0x0078, f01=0x0190, f02=» 'AUSZAHLUNG - SPARKONTO: ' L P FB F07020 $ L PF07010 t & P FTEXT 'AUSZAHLUNG - GIROKONTO: ' L PF07020
0x1caa48…1cabdc Dummy {f00=0x0078, f01=0x0190, f02=»MEL '999999',IDACTNR1 L P FNL N L P FBT SBCHQACT,F07030 L P*
0x1cabdc…1cad70 Dummy {f00=0x0078, f01=0x0190, f02=» * L P FTAB 12 N H P FTEXT '- KENNWORT :' L P FTAB 27
0x1cad70…1caf04 Dummy {f00=0x0078, f01=0x0190, f02=»7050 L PF07030 J L P FBT SBCHEQUE,F07040 L P*
0x1caf04…1cb098 Dummy {f00=0x0078, f01=0x0190, f02=» * L P FTEXT 'NAME :' J L P FTAB 13 L P FCOPY ACNAME
0x1cb098…1cb22c Dummy {f00=0x0078, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT, CHEQUE INPUT * J L P* * L PF07040
0x1cb22c…1cb3c0 Dummy {f00=0x0078, f01=0x0190, f02=» '- CHEQUE NR. :' L P FTAB 27 F L P FCOPY FCFIELD L PF07050
0x1cb3c0…1cb554 (2, 195) Dummy {f00=0x0079, f01=0x0190, f02=»ACT,F07060 L P* * F L P* SAVINGS ACCOUNT * L P*
0x1cb554…1cb6e8 Dummy {f00=0x0079, f01=0x0190, f02=» T L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 P FNL d N P FTEXT 'ZEILE:' p L P FKI 10,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11
0x1cb6e8…1cb87c Dummy {f00=0x0079, f01=0x0190, f02=» b L P* * " L P* CHEQUE ACCOUNT * r L P*
0x1cb87c…1cba10 Dummy {f00=0x0079, f01=0x0190, f02=» b P FTAB 20 " L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK 2 L PF07070 P FNL L P FTEXT 'BETRAG :'
0x1cba10…1cbba4 Dummy {f00=0x0079, f01=0x0190, f02=»Z',TDAMOUNT ~ L P FNL > P FTEXT 'NEUER SALDO: ' L P FTAB 20 P P FMEL 'ZZZZZ
0x1cbba4…1cbd38 Dummy {f00=0x0079, f01=0x0190, f02=» P L P************************************************************************ L P* * ` T P* TRANSFER (DNTRF) FOR FT80 L P
0x1cbd38…1cbecc Dummy {f00=0x0079, f01=0x0190, f02=»**************** X L PFMT071 FRMT L P FSL h $ P FTEXT 'UEBERWEISUNG AB KONTO: ' L P FBT SBCARD,F07110
0x1cbecc…1cc060 Dummy {f00=0x0079, f01=0x0190, f02=» h L P FB F07120 ( L PF07110 x P FTAB 26 L P FMEL '999999',IDACTNR1
0x1cc060…1cc1f4 (2, 196) Dummy {f00=0x0079, f01=0x0190, f02=» x L P FBT SBCHQACT,F07130 8 P FTEXT 'BUCH SALDO : ' T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT L P FMEL 'ZZ
0x1cc1f4…1cc388 Dummy {f00=0x0079, f01=0x0190, f02=» Z T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT L P FMEL 'ZZ',IDNR1 r L P FB F07140
0x1cc388…1cc51c Dummy {f00=0x0079, f01=0x0190, f02=» FMEL 'ZZZZZZZZ9,99',ADLIMBOK L PF07140 P L P FNL P FTEXT 'BETRAG :'
0x1cc51c…1cc6b0 Dummy {f00=0x0079, f01=0x0190, f02=» f L P FNL & P FTEXT 'NEUER SALDO: ' v P FTAB 20 N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL L P FNL
0x1cc6b0…1cc844 Dummy {f00=0x0079, f01=0x0190, f02=»I,APPL=20 p L P FMEL 'ZZZZZZ',IDACTNR2 6 L P FMEND J P**************************************************
0x1cc844…1cc9d8 Dummy {f00=0x0079, f01=0x018e, f02=»************************** d PFMT072 FRMT " P FSL 6 P FTEXT 'WAEHRUNGSNAME: ' B P FTAB 17 b P FCOPY CCCCYNME r P FNL P FTEXT 'WAEHRUNGSCODE: ' P FTAB 17 P FCOPY CCCCYCDE P FTAB 22 P FTEXT 'REL.: ' P F
0x1cc9d8…1ccb6c Dummy {f00=0x0079, f01=0x0190, f02=» P FNL P FTEXT 'ANKAUFSKURSE :(2)' P FTAB 19 2 P FTAB 26 B P FMEL 'ZZZ9,99',CDBUY2 R P FNL p P FTEXT 'VERKAUFSKURSE:(1)' ~ P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 P FNL P FTEXT 'VERKAUFSKURSE:(2)' P FTAB 19
0x1ccb6c…1ccd00 Dummy {f00=0x0079, f01=0x0190, f02=»ND L P************************************************************************ L P* * Z T P* CLOSE OPERATOR (PART1) FOR FT80 L P*
0x1ccd00…1cce94 (2, 197) Dummy {f00=0x0079, f01=0x018e, f02=»********** R T PFMT073 FRMT T P FSL j P FTEXT 'KASSENBESTAND: ' T P FTAB 16
0x1cce94…1cd028 Dummy {f00=0x0079, f01=0x0190, f02=» T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) T P FNL
0x1cd028…1cd1bc Dummy {f00=0x0079, f01=0x0190, f02=»CY(KW1) T P FTAB 20 N T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL
0x1cd1bc…1cd350 Dummy {f00=0x0079, f01=0x0190, f02=» x T P FCOPY YCCCY(KW2) @ T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',OD
0x1cd350…1cd4e4 Dummy {f00=0x0079, f01=0x018e, f02=» H P FTEXT 'KASSENBESTAND : ' T P FTAB 16 2 T P FCOPY YCCCY(KW3) T P FTAB 20
0x1cd4e4…1cd678 Dummy {f00=0x0079, f01=0x0190, f02=» T P FNL P FTEXT 'SCHECK SALDO : ' T P FTAB 16 | T P FCOPY YCCCY(KW4)
0x1cd678…1cd80c Dummy {f00=0x0079, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW2,KW1) T P FNL L ( P FTEXT 'TASTE CONT ODER TASTE CANC' T P FMEND
0x1cd80c…1cd9a0 Dummy {f00=0x0079, f01=0x0190, f02=» * x T P* OPERATOR TURNOVER SCREEN FOR FT80 8 L P* * L P****************************************
0x1cd9a0…1cdb34 (2, 198) Dummy {f00=0x0079, f01=0x018e, f02=») P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL > P FTEXT 'GESAMTUMSATZ: ' J P FTAB 16 j P FCOPY YCCCY(KW1) z P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) P FNL P FTEXT 'GESAMTUMSATZ: ' P FTAB 16
0x1cdb34…1cdcc8 Dummy {f00=0x0079, f01=0x0190, f02=» P FTAB 16 P FCOPY YCCCY(KW3) P FTAB 20 . * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) > P FNL l P FTEXT 'WAEHRUNGSUMSATZ: ' x P FTAB 16 P FCOPY YCCCY(KW4) T P FTAB 20
0x1cdcc8…1cde5c Dummy {f00=0x0079, f01=0x0190, f02=»****** N P* P P* P* * P* 4 & P* TELLER NOTE DISPENSER FORMATS > P* h P* r P* | PFMT075 FRMT P FSL & P FTEXT 'KASSETTEN IN AKT EINLEGEN' P FMEND P* P* P* OPEN SCREEN
0x1cde5c…1cdff0 Dummy {f00=0x0079, f01=0x0190, f02=» FMEL 'ZZZZ9',NDDATA1(KW4,KW1) P FTAB 14 & P FMEL 'ZZZZ',NOTES(KW1) 6 . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 V " P FMEL 'ZZZZ',NDDATA1(KW3,KW1) P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW2) P FTAB 14 P FMEL 'Z
0x1cdff0…1ce184 Dummy {f00=0x0079, f01=0x0190, f02=» " P FMEL '99999',NDDATA1(KW4,KW3) P FTAB 14 * P FMEL 'ZZZZ',NOTES(KW3) : . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 Z " P FMEL 'ZZZZ',NDDATA1(KW3,KW3) P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW4) P FTAB 14 P FME
0x1ce184…1ce318 Dummy {f00=0x0079, f01=0x0190, f02=»*************************************************************** P* H 8 P* DISPLAY FORMAT FOR THE REMAINING SMALL CHANGE R P* L P************************************************************************ PFMT077 FRMT P FSL $ P
0x1ce318…1ce4ac Dummy {f00=0x0079, f01=0x0190, f02=»****************************************************** P* > H P* DISPENSE QUANTITY PER CASSETTE SELECTION SCRREN * H P* H P******************************************************************** PFMT091 FRMT P FSL $
0x1ce4ac…1ce640 Dummy {f00=0x0079, f01=0x0190, f02=» 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW1) , P FNL N P FTAB 19 Z P FMEL 'ZZZZ',NOTES(KW2) j , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW2) P FNL P FTAB 19 P FMEL 'ZZZZ',NOT
0x1ce640…1ce7d4 (2, 199) Dummy {f00=0x007a, f01=0x0190, f02=»ZZZ',NOTES(KW4) , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW4) H P FMEND j PERR001 FRMT x P FSL T P FTEXT 'UNGUELTIGER WERT' P FMEND PERR002 FRM
0x1ce7d4…1ce968 Dummy {f00=0x007a, f01=0x0190, f02=» P FSL P FTEXT 'I/O ERROR' P FMEND . PERR004 FRMT < P FSL P T P FTEXT 'EOI-KEY UNZULAESSIG' P FMEND PERR005 FRMT P FSL T P FTEXT 'FELD EINGEBEN'
0x1ce968…1ceafc Dummy {f00=0x007a, f01=0x0190, f02=» H L P FSL T P FTEXT 'PLATTEN-FEHLER' X L P FMEND L PERR007 F
0x1ceafc…1cec90 Dummy {f00=0x007a, f01=0x0190, f02=» P T P FTEXT 'FILE-OPEN ERFOLGLOS' L P FMEND h L PERR008 FRMT L P
0x1cec90…1cee24 Dummy {f00=0x007a, f01=0x0190, f02=» X L P FMEND L PERR009 FRMT p L P FSL
0x1cee24…1cefb8 Dummy {f00=0x007a, f01=0x0190, f02=» h L PERR010 FRMT ( L P FSL x T P FTEXT 'BEDIENUNGSFEHLER'
0x1cefb8…1cf14c Dummy {f00=0x007a, f01=0x0190, f02=» p L P FSL 0 T P FTEXT 'UNGUELTIGER VERGLEICH' L P FMEND
0x1cf14c…1cf2e0 Dummy {f00=0x007a, f01=0x0190, f02=» x T P FTEXT 'BEDIENER UNBEKANNT' 8 L P FMEND L PERR024 FRMT
0x1cf2e0…1cf474 (2, 200) Dummy {f00=0x007a, f01=0x0190, f02=» BEREITS ANGEMELDET' L P FMEND H L PERR025 FRMT L P FSL
0x1cf474…1cf608 Dummy {f00=0x007a, f01=0x0190, f02=» FMEND L PERR026 FRMT P L P FSL T P FTEXT 'TERM. GESPERRT,
0x1cf608…1cf79c Dummy {f00=0x007a, f01=0x0190, f02=» H L PERR028 FRMT L P FSL X T P FTEXT 'KONTO GESPERRT' L P FMEND
0x1cf79c…1cf930 Dummy {f00=0x007a, f01=0x0190, f02=» P L P FSL T P FTEXT 'RECORD KEY UNGUELTIG' ` L P FMEND L P
0x1cf930…1cfac4 Dummy {f00=0x007a, f01=0x0190, f02=» X T P FTEXT 'MASTER KEYSETTING VERLANGT' L P FMEND p L PERR032 FRMT
0x1cfac4…1cfc58 Dummy {f00=0x007a, f01=0x0190, f02=» ` L P FMEND ( L PERR033 FRMT x L P FSL
0x1cfc58…1cfdec Dummy {f00=0x007a, f01=0x0190, f02=» p L PERR034 FRMT 0 L P FSL T P FTEXT 'SPARKONTO'
0x1cfdec…1cff80 Dummy {f00=0x007a, f01=0x0190, f02=» T P FTEXT 'UNGENUEGENDE DECKUNG' P FMEND ` PERR036 FRMT n P FSL T P FTEXT 'GLEICHE KEYWERTE' P FMEND PERR037 FRMT P
0x1cff80…1d0114 (2, 201) Dummy {f00=0x007a, f01=0x0190, f02=»',ADBAL | P FMEND PERR038 FRMT P FSL 2 T P FTEXT 'KEINE TRANSAKTIONEN' > P FMEND PERR056 FRMT P FSL ( P FTEXT 'KEINE TRANSAKTION MOEGLICH' P FMEND PERR078 FRM
0x1d0114…1d02a8 Dummy {f00=0x007a, f01=0x0190, f02=»' t P FMEND PERR080 FRMT P FSL , 2 P FTEXT 'CONT FUER WIEDERHOLUNG, SONST ABBRUCH' 8 P FMEND n PERR081 FRMT | P FSL , P FTEXT 'AKT-FEHLER, AUSGABE ABGEBROCHEN' P FMEND PERR082 FRMT P FSL $ P FTEXT 'FEHLER
0x1d02a8…1d043c Dummy {f00=0x007a, f01=0x0190, f02=»RMT P FSL P FTEXT 'AKT SYSTEMFEHLER' P FMEND : PERR085 FRMT H P FSL ( P FTEXT 'ENTNAHMEZEIT UEBERSCHRITTEN' h P FMEND PERR086 FRMT P FSL " P FTEXT 'SCHLECHTE NOTEN/STAU' P FMEND PERR087 FRMT
0x1d043c…1d05d0 Dummy {f00=0x007a, f01=0x018e, f02=»9999',NDDATA1(KW4,TNDCIX) P FTEXT ' LEER' ! " P FMEND ! 8 PERR089 FRMT ! F P FSL ! Z * P FTEXT 'PROGRAMM-FEHLER, DEBUG-HILFE' ! f P FMEND ! PERR090 FRMT ! P FSL ! P FTEXT 'KASSETTE ' ! & P FMEL '99999',NDDATA1(KW4,TNDCIX) ! & P F
0x1d05d0…1d0764 Dummy {f00=0x007a, f01=0x4066, f02=» P FMEND " L P************************************************************************ " @ " b FTEXT 'PROGRAMM-FEHLER, DEBUG-HILFE' ! f P FMEND ! PERR090 FRMT ! P FSL ! P FTEXT 'KASSETTE ' ! & P FMEL '99999',NDDATA1(KW4,TNDCIX) ! & P F
0x1d0764…1d08f8 Dummy {f00=0x007a, f01=0x0190, f02=» L PFMT016 FRMT OPERATOR IDENTIFICATION # L P FSL # T L P FTEXT 'OPERATOR I.D. :' # L P FKI 17,ME,MINL=4,MA
0x1d08f8…1d0a8c Dummy {f00=0x007a, f01=0x0190, f02=» L P FMEND $ L P* * $ T L P* * $ L P*
0x1d0a8c…1d0c20 Dummy {f00=0x007a, f01=0x0190, f02=» L P FSL % L P FTEXT 'PASSWORD :' % T P P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,NUM % L P FCOPY OCPASS
0x1d0c20…1d0db4 (2, 202) Dummy {f00=0x007a, f01=0x0190, f02=» % H L P FTEXT 'OPERATOR NAME :' & P P FKI 17,ME,MINL=1,MAXL=20,NCLR,NEOI,NUM & X L P FCOPY OCNAME & L P FNL
0x1d0db4…1d0f48 Dummy {f00=0x007a, f01=0x0190, f02=» & L P P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM ' L P FMEL '9',ODOPRLGG ' ` L P FNL ' L P FNL
0x1d0f48…1d10dc Dummy {f00=0x007a, f01=0x0190, f02=» ' P L P FNL ( L P FTEXT 'CASH BALANCES :' ( ` L P FCOPY YCCCY(KW4) ( P P FKI 24,
0x1d10dc…1d1270 Dummy {f00=0x007a, f01=0x0190, f02=» ( T L P FNL ) L P FCOPY YCCCY(KW1) ) f P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ) N
0x1d1270…1d1404 Dummy {f00=0x007a, f01=0x0190, f02=» ) L P FCOPY YCCCY(KW2) * P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT * l N P FMEL 'ZZZZZZZ9,99-',ODCASH(KW2)
0x1d1404…1d1598 Dummy {f00=0x007a, f01=0x0190, f02=» * b P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + " N P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3) + v L P FNL
0x1d1598…1d172c Dummy {f00=0x007a, f01=0x0190, f02=» + h L P FMEL '9',WD1 , , L P FMEND , | L P*
0x1d172c…1d18c0 Dummy {f00=0x007a, f01=0x0190, f02=» * , l L PFMT018 FRMT OPERATOR ACCUMULATORS - , L P FSL - | L P FTEXT 'CASH DEPOSITS :'
0x1d18c0…1d1a54 (2, 203) Dummy {f00=0x007b, f01=0x0190, f02=») - p L P FNL . 0 L P FMEND . L P*
0x1d1a54…1d1be8 Dummy {f00=0x007b, f01=0x0190, f02=» * . p PERR001 FRMT / 0 P FSL / D P FTEXT 'ERR0R 1' / P P FMEND / h P* / v P* / PERR002 FRMT / P FSL / P FTEXT 'ERR0R 2' / P FMEND / P* / P* / PERR003 FRMT / P FSL / P FTE
0x1d1be8…1d1d7c Dummy {f00=0x007b, f01=0x0190, f02=» / PERR005 FRMT 0 P FSL 0 P FTEXT 'ERR0R 5' 0 ( P FMEND 0 @ L P************************************************************************ 0 N L P* * 0 L P* ERR0R 10
0x1d1d7c…1d1f10 Dummy {f00=0x007b, f01=0x0190, f02=»********************************************************************** 0 PERR010 FRMT 1 N P FSL 1 b P FTEXT 'VALUE NOT IN RANGE' 1 n P FMEND 1 L P************************************************************************ 1 L P*
0x1d1f10…1d20a4 Dummy {f00=0x007b, f01=0x0190, f02=»* * 1 L P************************************************************************ 2 P L PERR020 FRMT 2 L P FSL
0x1d20a4…1d2238 Dummy {f00=0x007b, f01=0x0190, f02=» FMEND 2 L P************************************************************************ 3 P L P* * 3 L P* ERR0R 23
0x1d2238…1d23cc Dummy {f00=0x007b, f01=0x0190, f02=»************************************************************************ 3 L PERR023 FRMT 4 P L P FSL 4 L P FTEXT 'OPERATOR UNKNOWN
0x1d23cc…1d2560 Dummy {f00=0x007b, f01=0x0190, f02=»************************************************************************ 4 L P* * 5 P L P* ERR0R 24 * 5 L P*
0x1d2560…1d26f4 (2, 204) Dummy {f00=0x007b, f01=0x0190, f02=»ERR024 FRMT 5 L P FSL 6 P L P FTEXT 'OPERATOR ALREADY LOGGED ON' 6 L P FMEND
0x1d26f4…1d2888 Dummy {f00=0x007b, f01=0x0190, f02=»* * 6 L P* ERR0R 25 * 7 P L P* * 7 L P************************
0x1d2888…1d2a1c Dummy {f00=0x007b, f01=0x0190, f02=» FSL 7 L P FTEXT 'WRONG PASSWORD' 8 P L P FMEND 8 L P************************
0x1d2a1c…1d2bb0 Dummy {f00=0x007b, f01=0x0190, f02=»* ERR0R 26 * 8 L P* * 9 P L P************************************************************************ 9 L PERR026 FRMT
0x1d2bb0…1d2d44 Dummy {f00=0x007b, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR 9 L P FMEND : P L P************************************************************************ : L P*
0x1d2d44…1d2ed8 Dummy {f00=0x007b, f01=0x0190, f02=»* * : L P************************************************************************ ; P L PERR027 FRMT ; L P FSL
0x1d2ed8…1d306c Dummy {f00=0x007b, f01=0x009c, f02=» FMEND ; L P************************************************************************ < P L PERR027 FRMT ; L P FSL
0x1d306c…1d3200 Dummy {f00=0x007b, f01=0x2008, f02=» = ; L P************************************************************************ < P L PERR027 FRMT ; L P FSL
0x1d3200…1d3394 (2, 205) Dummy {f00=0x007b, f01=0x0190, f02=» * & )} 4 4 = < q B C E 2 G w G V * & ) M Q R Q T T H V ` V 2 * & ) f R p ( + @ V ` * & ) m Z z V * & ) 5 t ; V * & * | m e # x 0
0x1d3394…1d3528 Dummy {f00=0x007b, f01=0x4060, f02=» *A ( { V T:FMT*D W *E ( W $ P:END*H W 8 *H W J@ W ) f R p ( + @ V ` * & ) m Z z V * & ) 5 t ; V * & * | m e # x 0
0x1d3528…1d36bc Dummy {f00=0x007b, f01=0x2008, f02=» X
0x1d36bc…1d3850 Dummy {f00=0x007b, f01=0x0190, f02=»,TDTRSSEQ x N PP044200 y B L P FTAB 12 y L P FMEL '99999',RDOPRNR
0x1d3850…1d39e4 Dummy {f00=0x007b, f01=0x0190, f02=»NDTRMNR y L P FTAB 22 z D L P FMEL '99E:99',NDTIME z P FBT SBFIL24,P044600 z P FBT SBF
0x1d39e4…1d3b78 Dummy {f00=0x007b, f01=0x0190, f02=» z L P************************************************************************ { J L P* * { L P* TRANSFER (DNTRF)
0x1d3b78…1d3d0c Dummy {f00=0x007b, f01=0x018e, f02=»****************************************************************** { L PFMT045 FRMT | J L P FSL | T P FTEXT 'UEBERWEISUNG AB KONT
0x1d3d0c…1d3ea0 Dummy {f00=0x007b, f01=0x0190, f02=» P FBT SBZEK,F04510 } 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT } L P FMEL 'ZZZZZZ',IDACTNR1 } V L P FB F04520 } L PF04510
0x1d3ea0…1d4034 (2, 206) Opaque[0x194]
0x1d4034…1d41c8 # DirEnt {nam=»TEMP «, typ=»SC«, f00=0x8156, f01=0x05b8, f02=0x0f78, f03=0x9920}
0x1d4034…1d41c8 IdxSect {
0x1d4034…1d41c8 f00 = 0x007b // 0x1d4034 @0x0
0x1d4034…1d41c8 f01 = 0x004e // 0x1d4036 @0x2
0x1d4034…1d41c8 gno = [ // 0x1d4038 @0x4
0x1d4034…1d41c8 [0x00]: C0x007b.0x3.0
0x1d4034…1d41c8 [0x01]: C0x007c.0x0.0
0x1d4034…1d41c8 [0x02]: C0x007c.0x1.0
0x1d4034…1d41c8 [0x03]: C0x007c.0x2.0
0x1d4034…1d41c8 [0x04]: C0x007c.0x3.0
0x1d4034…1d41c8 [0x05]: C0x007d.0x0.0
0x1d4034…1d41c8 [0x06]: C0x007d.0x1.0
0x1d4034…1d41c8 [0x07]: C0x007d.0x2.0
0x1d4034…1d41c8 [0x08]: C0x007d.0x3.0
0x1d4034…1d41c8 [0x09]: C0x007e.0x0.0
0x1d4034…1d41c8 [0x0a]: C0x007e.0x1.0
0x1d4034…1d41c8 [0x0b]: C0x007e.0x2.0
0x1d4034…1d41c8 [0x0c]: C0x007e.0x3.0
0x1d4034…1d41c8 [0x0d]: C0x007f.0x0.0
0x1d4034…1d41c8 [0x0e]: C0x007f.0x1.0
0x1d4034…1d41c8 [0x0f]: C0x007f.0x2.0
0x1d4034…1d41c8 [0x10]: C0x007f.0x3.0
0x1d4034…1d41c8 [0x11]: C0x0080.0x0.0
0x1d4034…1d41c8 [0x12]: C0x0080.0x1.0
0x1d4034…1d41c8 [0x13]: C0x0080.0x2.0
0x1d4034…1d41c8 [0x14]: C0x0080.0x3.0
0x1d4034…1d41c8 [0x15]: C0x0081.0x0.0
0x1d4034…1d41c8 [0x16]: C0x0081.0x1.0
0x1d4034…1d41c8 [0x17]: C0x0081.0x2.0
0x1d4034…1d41c8 [0x18]: C0x0081.0x3.0
0x1d4034…1d41c8 [0x19]: C0x0082.0x0.0
0x1d4034…1d41c8 [0x1a]: C0x0082.0x1.0
0x1d4034…1d41c8 [0x1b]: C0x0082.0x2.0
0x1d4034…1d41c8 [0x1c]: C0x0082.0x3.0
0x1d4034…1d41c8 [0x1d]: C0x0083.0x0.0
0x1d4034…1d41c8 [0x1e]: C0x0083.0x1.0
0x1d4034…1d41c8 [0x1f]: C0x0083.0x2.0
0x1d4034…1d41c8 [0x20]: C0x0083.0x3.0
0x1d4034…1d41c8 [0x21]: C0x0084.0x0.0
0x1d4034…1d41c8 [0x22]: C0x0084.0x1.0
0x1d4034…1d41c8 [0x23]: C0x0084.0x2.0
0x1d4034…1d41c8 [0x24]: C0x0084.0x3.0
0x1d4034…1d41c8 [0x25]: C0x0085.0x0.0
0x1d4034…1d41c8 [0x26]: C0x0085.0x1.0
0x1d4034…1d41c8 ]
0x1d4034…1d41c8 }
0x1d41c8…1d435c Dummy {f00=0x007b, f01=0x0190, f02=» * L P************************************************************************ L PFMTTAB FTABLE ERR001,ERR002,ERR003,ERR004,ERR005, C ^ , P ERR006,ERR007,ERR008,ERR009,ERR010, C L P FMT011,FMT012,FMT013,FMT014,FMT015, C
0x1d435c…1d44f0 Dummy {f00=0x007b, f01=0x0190, f02=»R023,ERR024,ERR025, C ~ L P ERR026,FMT027,ERR028,ERR029,MSG030, C > T P ERR031,ERR032,ERR033,ERR034,ERR035, C , P ERR036,ERR037,ERR038,FMT039,FMT0
0x1d44f0…1d4684 Dummy {f00=0x007b, f01=0x0190, f02=»054,FMT055, C v , P ERR056,FMT057,FMT058,FMT059,FMT060, C T P PRT061,MSG062,MSG063,MSG064,FMT065, C F , P FMT066,FMT067,FMT068,FMT069,FMT070, C , P FMT071,FMT072,FMT073,FMT074,FMT075, C , P FMT076,F
0x1d4684…1d4818 Dummy {f00=0x007b, f01=0x018e, f02=»FMT091,ERR092,FMTDUM,FMTDUM,FMTDUM, C ( P FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM . P* Z P* d PFMTDUM FRMT n P FSL T P FTEXT 'NOCH NICHT IMPLEMENTIERT' P FKI 25 P FCOPY ICDUMMY
0x1d4818…1d49ac Dummy {f00=0x007b, f01=0x0190, f02=» FSL T P FTEXT 'BILDSCHIRM 01/06/08/20/24 ?' 8 P FKI 32,ME,MINL=1,MAXL=2,NUM,NCLR,NEOI,REWRT,APPL=15 h P FMEL '99',IDNR1 FMEND L P**************************************************************
0x1d49ac…1d4b40 Dummy {f00=0x007b, f01=0x0190, f02=» * j L P* * * L P************************************************************************ z PFMT012 FRMT FSL P FHIGH P FTEXT '********
0x1d4b40…1d4cd4 (2, 207) Dummy {f00=0x007c, f01=0x0190, f02=» FNL P FLOW T P FTAB 13 T P FTEXT 'PHILIPS PTS 6344 BILDSCHIRMGERAET' r P FNL P FNL P FHIGH T P FTAB 13
0x1d4cd4…1d4e68 Dummy {f00=0x007c, f01=0x018e, f02=» T P FNL P FNL 0 P FLOW < P FNUL J T P FTAB 13 X P FUL T P FTEXT 'PHILIPS PTS 6344 BILDSCHIRMGERAET'
0x1d4e68…1d4ffc Dummy {f00=0x007c, f01=0x018e, f02=» P FNL P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2E2F' . . P FTEXT X'303132333435363738393A3B3C3D3E3F' ^ . P FTEXT X'404142434445464748494A4B4C4D4E4F' P FNL P FTAB 10 P FHIGH : P FTEXT X
0x1d4ffc…1d5190 Dummy {f00=0x007c, f01=0x0190, f02=» d P FNL P FNL P FLOW 0 T P FTEXT 'NATIONALER VERSION :' > P FHIGH " P FTEXT X'23405B5C5D607B7C7D7E' P FNL P FNL T P FTEXT 'BILDSCHIRMGROE
0x1d5190…1d5324 Dummy {f00=0x007c, f01=0x0190, f02=» ` P FNL ( P FLOW < P FTEXT 'OPTION : ' R P FHIGH r : P FTEXT '24 LINES / 80 CHARACTERS PER LINE' P FLOW P FNL P FNL T P FTE
0x1d5324…1d54b8 Dummy {f00=0x007c, f01=0x0190, f02=» FCOPY ACNAME P FTAB 32 T P FTEXT 'ADRESSE :' 6 * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACADDRES P FNL T P FTEXT 'POSTLEITZAHL
0x1d54b8…1d564c Dummy {f00=0x007c, f01=0x0190, f02=»CSTRG12 ~ P FTAB 32 T P FTEXT 'ORT :' , * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACTOWN P FNL T P FTEXT 'ZWEIGSTELLENR :'
0x1d564c…1d57e0 Dummy {f00=0x007c, f01=0x0190, f02=»NTO NR. :' P FKI 44,MAXL=6,ME,NEOI N P FMEL 'ZZZZZZZZZZZZ',IDNR1 l P FMEND L P************************************************************************ L P*
0x1d57e0…1d5974 (2, 208) Dummy {f00=0x007c, f01=0x0190, f02=» * L P************************************************************************ L PFMT013 FRMT P FSL T P FTEXT 'ALPHANUM. TASTATUR (N=0,J=1) ?'
0x1d5974…1d5b08 Dummy {f00=0x007c, f01=0x0190, f02=»1,R=2) ?' p 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 8 P FMEL '9',RDSHRPRT n P FNL ( P FTEXT 'TEP (=0) TTP (=1) GTP (=2)' P FNL ( P FTEXT 'TEP-ZEK (=3) GP74 (=4) ?' 2 P FKI 33,ME,MINL=
0x1d5b08…1d5c9c Dummy {f00=0x007c, f01=0x0190, f02=»1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDBCR & P FNL > T P FTEXT 'ODR (N=0,J=1) ?' J 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL & P FTEXT 'HARD
0x1d5c9c…1d5e30 Dummy {f00=0x007c, f01=0x0190, f02=»,J=1)?' 2 P FKI 33,ME,NCLR,MINL=1,MAXL=1,NUM,APPL=1,NEOI P FMEL '9',RDTND F P FNL ^ T P FTEXT 'TERMINAL NR. :' j P FTAB 31 P FMEL '999',NDTRMNR P FNL P FBZ RDALFKB,F
0x1d5e30…1d5fc4 Dummy {f00=0x007c, f01=0x0190, f02=»OI n P FCOPY RCTRMNME P FB F01390 " PF01310 4 T P FTEXT 'NAME TERMINAL :' B P FTAB 17 P FTEXT 'SCHALTER TRM(' P FMEL '999',NDTRMNR P FTEXT ')' PF01390 P FME
0x1d5fc4…1d6158 Dummy {f00=0x007c, f01=0x0190, f02=» * b L P* SYSTEM START - PART 2 * " L P* * r L P**********************************************************************
0x1d6158…1d62ec Dummy {f00=0x007c, f01=0x0190, f02=»XT 'MLP INTEGRIERT (N=0,J=1) ' > P FKI 36,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=1 T " P FMEL '9',YDMLPINT P FNL T P FTEXT 'SYSTEM WAEHRUNG ? '
0x1d62ec…1d6480 Dummy {f00=0x007c, f01=0x0190, f02=»F01410 P FCOPY YCCCY(KW4) P FNL 2 P FTEXT 'TEXT ? ' F P FTAB 12 h P FBZ RDALFKB,F01420 x : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR PF01420 P FCOPY YCTEXT P
0x1d6480…1d6614 (2, 209) Dummy {f00=0x007c, f01=0x0190, f02=»T j P FMEL 'ZZE:ZZ',NDTIME P FNL ( P FTEXT 'DATUM (TTMMJJ) ? ' 4 4 P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,REWRT,APPL=32 V P FMEL 'ZZE-ZZE-ZZ',NDDATE P FMEND L P******************************************************************
0x1d6614…1d67a8 Dummy {f00=0x007c, f01=0x0190, f02=» * f L P************************************************************************ & ( PFMT015 FRMT CURRENCY INITIALISATION v L P FSL ***************************** T P FTEXT 'WAEHRUNGSNAME
0x1d67a8…1d693c Dummy {f00=0x007c, f01=0x0190, f02=»A,NEOI,NCLR f PF01510 P FCOPY CCCCYNME " P FNL D T P FTEXT 'WAEHRUNGSCODE : ' X P FBZ RDALFKB,F01520 8 P FKI 17,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR P
0x1d693c…1d6ad0 Dummy {f00=0x007c, f01=0x0190, f02=»L=1,MAXL=5,NUM,NEOI,NCLR,APPL=21,REWRT v $ P FMEL 'ZZZZ9',CDRELAT . P FNL V T P FTEXT 'ANKAUFSKURSE :(1)' j D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=28 &
0x1d6ad0…1d6c64 Dummy {f00=0x007c, f01=0x0190, f02=»=6,NUM,NEOI,NCLR,REWRT,APPL=23 n & P FMEL 'ZZZZ,ZZ',CDBUY2 & P FNL P T P FTEXT 'VERKAUFSKURSE :(1)' d D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 & P
0x1d6c64…1d6df8 Dummy {f00=0x007c, f01=0x0190, f02=»,NEOI,NCLR,REWRT,APPL=24 h & P FMEL 'ZZZZ,ZZ',CDSEL2 P FNL J T P FTEXT 'WAEHRUNGSLIMIT:' ^ D P FKI 28,ME,MINL=1,MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT ( P F
0x1d6df8…1d6f8c Dummy {f00=0x007c, f01=0x0190, f02=»* * L P* GET OPERATOR IDENTIFICATION (DBUOPR) * P L P* * L P************************
0x1d6f8c…1d7120 Dummy {f00=0x007c, f01=0x0190, f02=» FSL T P FTEXT 'BEDIENER NR. :' P , P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=6 J P FMEL 'ZZZZZ',IDNR1
0x1d7120…1d72b4 (2, 210) Dummy {f00=0x007c, f01=0x0190, f02=»********************************************** v L P* * 6 L P* OPERATOR UPDATE (DBUOPR) * L P*
0x1d72b4…1d7448 Dummy {f00=0x007c, f01=0x0190, f02=»IFICATION v L P FSL T P FTEXT 'NAME BEDIENER :' b P FBZ RDALFKB,F01710 R P FKI 17,ME,MINL=1,MAXL=18,NCLR,NEOI,ALPHA
0x1d7448…1d75dc Dummy {f00=0x007c, f01=0x0190, f02=» T P FTEXT 'KENNWORT :' J R P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,ALPHA L P FCOPY OCPASS
0x1d75dc…1d7770 Dummy {f00=0x007c, f01=0x0190, f02=» H T P FTEXT 'SPRACHE :' ! R P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=5 ! ` L P FMEL '9',ODOPRLGG ! L P F
0x1d7770…1d7904 Dummy {f00=0x007c, f01=0x0190, f02=» ! V P FNL " L P FNL " " L P FNL " r T P FTEXT 'KASSENBESTAND :'
0x1d7904…1d7a98 Dummy {f00=0x007c, f01=0x0190, f02=»=11,NCLR,NEOI,NUM,REWRT " z R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) # > L P FNL # P FTAB 20 # L P FCOPY YCCCY(KW1)
0x1d7a98…1d7c2c Dummy {f00=0x007c, f01=0x0190, f02=» # D R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) $ L P FNL $ ^ P FTAB 20 $ L P FCOPY YCCCY(KW2) $
0x1d7c2c…1d7dc0 Dummy {f00=0x007c, f01=0x0190, f02=» $ b L P FNL % ( P FTAB 20 % x L P FCOPY YCCCY(KW3) % P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT
0x1d7dc0…1d7f54 (2, 211) Dummy {f00=0x007d, f01=0x018e, f02=» % T P FTEXT 'AKK. AUF NULL STELLEN (N=0,J=1) ?' & B R P FKI 35,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=1 & N P FMEL '9',IDNR1
0x1d7f54…1d80e8 Dummy {f00=0x007d, f01=0x0190, f02=» L P************************************************************************ ' L P* * ' T L P* OPERATOR ACCUMULATORS, USED BY DBUOPR * ' L P*
0x1d80e8…1d827c Dummy {f00=0x007d, f01=0x0190, f02=» L PFMT018 FRMT ( L P FSL ( T T P FTEXT 'EINZAHLUNGEN :' ( P FTAB 20 (
0x1d827c…1d8410 Dummy {f00=0x007d, f01=0x0190, f02=»ODCASH(KW2,KW3) ( z L P FNL ) : T P FTEXT 'AUSZAHLUNGEN :' ) P FTAB 20 ) P FCOPY YCCCY(KW4) )
0x1d8410…1d85a4 Dummy {f00=0x007d, f01=0x018e, f02=» ) ` L P FNL * T P FTEXT 'AKKUM. SCHECKS :' * p P FTAB 20 * P FCOPY YCCCY(KW4) * P P FKI 24,ME,MINL=1,MAXL
0x1d85a4…1d8738 Dummy {f00=0x007d, f01=0x0190, f02=» * F L P FNL + T P FTEXT 'AKKUM. UEBERWEIS. :' + X P FTAB 20 + P FCOPY YCCCY(KW4) + P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT
0x1d8738…1d88cc Dummy {f00=0x007d, f01=0x0190, f02=» + ~ L P FNL , > L P FNL , L P FNL
0x1d88cc…1d8a60 Dummy {f00=0x007d, f01=0x018e, f02=»CY(KW4) , P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - F L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) - L P FNL
0x1d8a60…1d8bf4 (2, 212) Dummy {f00=0x007d, f01=0x0190, f02=» L P FCOPY YCCCY(KW4) . P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT . T L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) . L P FNL
0x1d8bf4…1d8d88 Dummy {f00=0x007d, f01=0x0190, f02=» . H L P FCOPY YCCCY(KW1) / P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT / ` L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) / L P FNL
0x1d8d88…1d8f1c Dummy {f00=0x007d, f01=0x0190, f02=» / T L P FCOPY YCCCY(KW2) 0 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 0 d L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) 0 L P
0x1d8f1c…1d90b0 Dummy {f00=0x007d, f01=0x0190, f02=» 0 X L P FCOPY YCCCY(KW3) 1 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 1 h L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) 1
0x1d90b0…1d9244 Dummy {f00=0x007d, f01=0x0190, f02=»******************** 1 L P* * 2 L P* TERMINAL START, USED BY CCSTTT * 2 l L P* * 2
0x1d9244…1d93d8 Dummy {f00=0x007d, f01=0x0190, f02=» 2 L P FSL 3 L P FCOPY YCTEXT 3 l L P FNL 3
0x1d93d8…1d956c Dummy {f00=0x007d, f01=0x0190, f02=»PY RCTRMNME 3 P FB F01920 4 PF01910 4 & T P FTEXT 'SCHALTER NR.(' 4 4 L P FMEL '999',NDTRMNR 4 P FTEXT ')' 4 PF01920 4 P FTAB 34 4
0x1d956c…1d9700 Dummy {f00=0x007d, f01=0x0190, f02=»' 4 x P FTAB 20 5 @ P FMEL 'ZZE:ZZ',NDTIME 5 P L P FNL 5 n T P FTEXT 'DATUM (TTMMJJ): '
0x1d9700…1d9894 (2, 213) Dummy {f00=0x007d, f01=0x0190, f02=» 5 f L P FMEND 6 & L P************************************************************************ 6 v L P*
0x1d9894…1d9a28 Dummy {f00=0x007d, f01=0x0190, f02=» * 6 f L P************************************************************************ 7 & L PFMT021 FRMT 7 v L P FSL
0x1d9a28…1d9bbc Dummy {f00=0x007d, f01=0x0190, f02=»APPL=8 7 n J P FMEL 'ZZZZZ',IDNR1 8 ( L P FNL 8 v T P FTEXT 'KENNWORT : '
0x1d9bbc…1d9d50 Dummy {f00=0x007d, f01=0x0190, f02=» 8 n L P FNL 9 0 T P FTEXT 'SPRACHE : ' 9 2 P FKI 17,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=5 9
0x1d9d50…1d9ee4 Dummy {f00=0x007d, f01=0x0190, f02=» 9 ^ L P************************************************************************ : L P* * : n L P* OPERATOR BALANCES, USED BY BCSTTO * :
0x1d9ee4…1da078 Dummy {f00=0x007d, f01=0x0190, f02=»********************** : ^ L PFMT022 FRMT ; L P FSL ; n T P FTEXT 'NAME BEDIENER : '
0x1da078…1da20c Dummy {f00=0x007d, f01=0x0190, f02=» ; f T P FTEXT 'KASSENBESTAND : ' < & P FTAB 20 < ~ L P FCOPY YCCCY(KW4) < P FTAB 24 < L P FMEL 'ZZZZZZZZ9,99-',ODCA
0x1da20c…1da3a0 Dummy {f00=0x007d, f01=0x0190, f02=» < J L P FCOPY YCCCY(KW1) = P FTAB 24 = Z L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) = j P FNL = L P FTAB 20
0x1da3a0…1da534 (2, 214) Dummy {f00=0x007d, f01=0x0190, f02=»SH(KW1,KW2) = v P FNL > 6 L P FTAB 20 > B L P FCOPY YCCCY(KW3) > P FTAB 24 > L P FMEL 'ZZZZZZZZ9,99-',
0x1da534…1da6c8 Dummy {f00=0x007d, f01=0x0190, f02=» > N T P FKI 36 ? P FCOPY WCSTRG6 ? n L P FMEND ? L P****************************************************
0x1da6c8…1da85c Dummy {f00=0x007d, f01=0x0190, f02=» ? t P FBT SBZEK,F27050 @ 4 L P FBF SBCARD,F27200 @ N P FBF SBMSU,F27100 @ P B F27005 @ P* @ P* MAGNETIC STRIP UNIT @ P* @ PF27050 @ *
0x1da85c…1da9f0 Dummy {f00=0x007d, f01=0x0190, f02=»TE IN MSU' @ ~ P FB F27999 A PF27100 A $ L P* * A 2 L P* BADGE CARD READER INPUT * A L P*
0x1da9f0…1dab84 Dummy {f00=0x007d, f01=0x0190, f02=» A z L PF27200 B : L P FBF SBCHEQUE,F27300 B L P*
0x1dab84…1dad18 Dummy {f00=0x007d, f01=0x0190, f02=» * B z T P FTEXT 'ZIEHE SCHECK DURCH OCR' C : L P FB F27999 C L P*
0x1dad18…1daeac Dummy {f00=0x007d, f01=0x018e, f02=» * C L PF27300 D B T P FTEXT 'KONTO ODER KARTENNUMMER : ' D T P FKI 27,ME,MINL=4,MAXL=6,NUM,N
0x1daeac…1db040 Dummy {f00=0x007d, f01=0x0190, f02=» PF27999 E L P FMEND E L P************************************************************************ E b L P* * E L P* ENT
0x1db040…1db1d4 (2, 215) Dummy {f00=0x007e, f01=0x018e, f02=» * E R L P************************************************************************ F PMSG030 FRMT F b P FSL F v P FLOW F T P FTEXT 'BITTE FUNKTION EINGEBEN : ' F P FMEND F L P******************
0x1db1d4…1db368 Dummy {f00=0x007e, f01=0x0190, f02=» F F L P* * G L P************************************************************************ G X PFMT039 FRMT OPEN ACCOUNT G L P FSL
0x1db368…1db4fc Dummy {f00=0x007e, f01=0x0190, f02=» G j L P FB F03920 H 2 L PF03910 H T P FTEXT 'EROEFNNE GIROKONTO NUMMER : '
0x1db4fc…1db690 Dummy {f00=0x007e, f01=0x0190, f02=»1 H z L P FNL I : L P FTEXT 'NAME :' I T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18
0x1db690…1db824 Dummy {f00=0x007e, f01=0x018e, f02=» I T P FTEXT 'ADRESSE :' J B T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 J L P FCOPY ACADDRES
0x1db824…1db9b8 Dummy {f00=0x007e, f01=0x0190, f02=» T P FTEXT 'ORT :' K T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 K L P FCOPY ACTOWN K L P FNL
0x1db9b8…1dbb4c Dummy {f00=0x007e, f01=0x0190, f02=» K T T P FTEXT 'KENNWORT:' L T P FKI 11,MAXL=6,ALPHA,ME,NCLR L l L P FCOPY ACPASS
0x1dbb4c…1dbce0 Dummy {f00=0x007e, f01=0x018e, f02=» L d P FTEXT 'KART.:' M $ , P FKI 7,APPL=13,MINL=4,MAXL=4,NUM,ME,NEOI M < L P FMEL 'ZZZZ',ADCARDNR M l T P FTEXT ' KREDIT LIMIT:'
0x1dbce0…1dbe74 (2, 216) Dummy {f00=0x007e, f01=0x0190, f02=» PF03940 N P FMEND N L P************************************************************************ N & P* N v L P* CLOSE ACCOUNT (DGCACT) * N P* N L P**********************************************
0x1dbe74…1dc008 Dummy {f00=0x007e, f01=0x0190, f02=»HQACT,F04010 N z T P FTEXT 'ABSCHLUSS SPARKONTO NR. : ' O P FB F04020 O l PF04010 O T P FTEXT 'ABSCHLUSS GIROKONTO NR. : ' O PF04020 O P FTAB
0x1dc008…1dc19c Dummy {f00=0x007e, f01=0x0190, f02=»E O x P FNL P T P FTEXT 'AKTUELLER SALDO : ' P P FTAB 24 P v , P FMEL 'ZZZZZZZZ9,99',ADBAL P P FNL P & P FBT SBCHQACT,F04030 P T P FTEXT 'BUCH SALDO
0x1dc19c…1dc330 Dummy {f00=0x007e, f01=0x0190, f02=» : ' P | PF04040 Q D P FTAB 24 Q R . P FMEL 'ZZZZZZZZ9,99',ADLIMBOK Q b P FNL Q & P FBT SBCHQACT,F04050 Q T P FTEXT 'KENNWORT : '
0x1dc330…1dc4c4 Dummy {f00=0x007e, f01=0x0190, f02=»XT 'KARTENNUMMER : ' Q P FTAB 24 R T & P FMEL '9999',ADCARDNR R d PF04060 R P FMEND R L P************************************************************************ R L P*
0x1dc4c4…1dc658 Dummy {f00=0x007e, f01=0x0190, f02=» * R R L P* * S L P************************************************************************ S b L PFMT041 FRMT S L P FSL
0x1dc658…1dc7ec Dummy {f00=0x007e, f01=0x0190, f02=» S R R P FTEXT 'EINZAHLUNG - SPARKONTO:' T L P FB F04120 T h L PF04110 T R P
0x1dc7ec…1dc980 Dummy {f00=0x007e, f01=0x0190, f02=» T ^ L P FTAB 31 U L P FMEL '999999',IDACTNR1 U n L P FNL U
0x1dc980…1dcb14 (2, 217) Dummy {f00=0x007e, f01=0x0190, f02=» U ^ L P* * V L P* SAVINGS ACCOUNT WITH BOOK * V n L P* * V
0x1dcb14…1dcca8 Dummy {f00=0x007e, f01=0x0190, f02=» FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT V PF04121 W T L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 W b T P FTAB 28 W T
0x1dcca8…1dce3c Dummy {f00=0x007e, f01=0x0190, f02=» 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 W PF04124 X J L P FMEL 'ZZ',IDNR1 X X L P FB F04140 X L P*
0x1dce3c…1dcfd0 Dummy {f00=0x007e, f01=0x0190, f02=» X H L P* * Y L PF04130 Y X L P FTEXT 'NAME :' Y L P FTAB 16
0x1dcfd0…1dd164 Dummy {f00=0x007e, f01=0x0190, f02=» Y H L PF04140 Z P FNL Z X T P FTEXT 'BETRAG :' Z d P P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT
0x1dd164…1dd2f8 Dummy {f00=0x007e, f01=0x0190, f02=» Z ` T P FTEXT 'NEUER SALDO :' [ L P FTAB 20 [ x P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x1dd2f8…1dd48c Dummy {f00=0x007e, f01=0x0190, f02=»************************************ [ l L P* * , L P* WITHDRAWAL * | L P*
0x1dd48c…1dd620 Dummy {f00=0x007e, f01=0x0190, f02=» l L P FSL ] , P FTEXT 'AUSZAHLUNG ' ] | L P FBT SBCHQACT,F04210 ] P FTEXT 'SPAR' ] L P FB F04220
0x1dd620…1dd7b4 (2, 218) Dummy {f00=0x007e, f01=0x0190, f02=» ] N P FTEXT 'GIRO' ^ L PF04220 ^ $ P FTEXT 'KONTO : ' ^ t L P FTAB 31 ^ L P FMEL '999999',IDACTNR1
0x1dd7b4…1dd948 Dummy {f00=0x007e, f01=0x0190, f02=»30 ^ ~ L P* * _ > L P* SAVINGS ACCOUNT * _ L P*
0x1dd948…1ddadc Dummy {f00=0x007e, f01=0x0190, f02=» :' _ ~ L P FTAB 31 ` F L P FCOPY ACPASS ` L P FB F04250
0x1ddadc…1ddc70 Dummy {f00=0x007e, f01=0x0190, f02=»QUE,F04240 ` L P* * a F L P* CHEQUE ACCOUNT, NO ODR * a L P*
0x1ddc70…1dde04 Dummy {f00=0x007e, f01=0x0190, f02=» a L P FCOPY ACNAME b F L P FB F04250 b L P*
0x1dde04…1ddf98 Dummy {f00=0x007e, f01=0x0190, f02=» * b L PF04240 c F L P FTAB 12 c T P FTEXT '- SCHECK NR. :'
0x1ddf98…1de12c Dummy {f00=0x007e, f01=0x0190, f02=»COPY FCFIELD c L PF04250 d N L P FNL d L P FBT SBCHQACT,F04260
0x1de12c…1de2c0 Dummy {f00=0x007e, f01=0x0190, f02=»SAVINGS ACCOUNT * d L P* * e N T P FTEXT 'BUCH SALDO :' e P FTAB 15 e P T
0x1de2c0…1de454 (2, 219) Dummy {f00=0x007f, f01=0x0190, f02=»Z',IDAMT1 e ~ T P FTAB 28 f > T P FTEXT 'ZEILE:' f P FTAB 35 f P FBT SBZEK
0x1de454…1de5e8 Dummy {f00=0x007f, f01=0x0190, f02=» f v L P FB F04270 g 6 L P* * g L P* CHEQUE ACCOUNT
0x1de5e8…1de77c Dummy {f00=0x007f, f01=0x0190, f02=» g v T P FTEXT 'KREDIT LIMIT:' h 6 P FTAB 24 h L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK h L PF04270
0x1de77c…1de910 Dummy {f00=0x007f, f01=0x0190, f02=» h J L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT i L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT i b L P FNL i T P FTEXT
0x1de910…1deaa4 Dummy {f00=0x007f, f01=0x0190, f02=» i Z P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL j L P FMEND j n L P************************************************************************ j
0x1deaa4…1dec38 Dummy {f00=0x007f, f01=0x0190, f02=» * j ^ L P* * k L P************************************************************************ k f L PPRT043 FRMT k R P F
0x1dec38…1dedcc Dummy {f00=0x007f, f01=0x0190, f02=» k v L P FTAB 3 l 6 PP043005 l P FTAB 5 l L P FBF SBSTTO,P043020 l T P FTEXT 'BEDIENER S
0x1dedcc…1def60 Dummy {f00=0x007f, f01=0x0190, f02=» l N L P FBF SBOACT,P043030 m T P FTEXT 'KONTO EROEFFNEN' m ^ L PP043030 m L P F
0x1def60…1df0f4 (2, 220) Dummy {f00=0x007f, f01=0x0190, f02=» m V L PP043040 n L P FBF SBBACT,P043050 n n T P FTEXT 'KONTO SPERREN'
0x1df0f4…1df288 Dummy {f00=0x007f, f01=0x0190, f02=» n f T P FTEXT 'K. ENTSPERREN' o & L PP043060 o ~ L P FBF SBUACT,P043070
0x1df288…1df41c Dummy {f00=0x007f, f01=0x0190, f02=» o v L P FBF SBUCCY,P043080 p 6 T P FTEXT 'WAEHR. AENDERN' p L PP043080
0x1df41c…1df5b0 Dummy {f00=0x007f, f01=0x0190, f02=»AGE' p ~ L PP043090 q F L P FBF SBDSTM,P043100 q T P FTEXT 'TAGESAUSZUG'
0x1df5b0…1df744 Dummy {f00=0x007f, f01=0x0190, f02=»BF SBCOPR,P043110 q T P FTEXT 'BED. ABSCHLUSS' r N L PP043110 r L P FBF SBCSYS,P04312
0x1df744…1df8d8 Dummy {f00=0x007f, f01=0x0190, f02=» r F L PP043120 s L P FBF SBECCY,P043130 s ^ T P FTEXT 'TAGESWAEHRUNG' s L PP0
0x1df8d8…1dfa6c Dummy {f00=0x007f, f01=0x0190, f02=» s V T P FTEXT 'WAEHR. ABFRAGE' t L PP043140 t n L P FBF SBLACT,P043300 t
0x1dfa6c…1dfc00 Dummy {f00=0x007f, f01=0x0190, f02=» t f P FTAB 21 u & P FBT SBSTTO,P043400 u 6 P FBT SBCOPR,P043400 u R P FBT SBVCH,P043400 u n P FILLR ' ',6 u P FB P043500 u PP043400 u L P FMEL 'ZZZZZZ',NDDATE
0x1dfc00…1dfd94 (2, 221) Dummy {f00=0x007f, f01=0x0190, f02=»P043700 u P FILLR ' ',20 v PP043999 v & P FMEND v 6 L P************************************************************************ v D L P* * v L P* PRINT, LINE TYPE 3: END OF FUNCTI
0x1dfd94…1dff28 Dummy {f00=0x007f, f01=0x0190, f02=»************************************************************ v L PPRT044 FRMT w D R P FTEXT ' ' w P FBT SBVCH,P044010 w P FTA
0x1dff28…1e00bc Dummy {f00=0x007f, f01=0x0190, f02=» w t N P FBF SBCANCEL,P044100 x 4 T P FTEXT 'ABBRUCH' x N P FB P044200
0x1e00bc…1e0250 Dummy {f00=0x007f, f01=0x0190, f02=»,TDTRSSEQ x N PP044200 y B L P FTAB 12 y L P FMEL '99999',RDOPRNR
0x1e0250…1e03e4 Dummy {f00=0x007f, f01=0x0190, f02=»NDTRMNR y L P FTAB 22 z D L P FMEL '99E:99',NDTIME z P FBT SBFIL24,P044600 z P FBT SBF
0x1e03e4…1e0578 Dummy {f00=0x007f, f01=0x0190, f02=» z L P************************************************************************ { J L P* * { L P* TRANSFER (DNTRF)
0x1e0578…1e070c Dummy {f00=0x007f, f01=0x018e, f02=»****************************************************************** { L PFMT045 FRMT | J L P FSL | T P FTEXT 'UEBERWEISUNG AB KONT
0x1e070c…1e08a0 Dummy {f00=0x007f, f01=0x0190, f02=» P FBT SBZEK,F04510 } 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT } L P FMEL 'ZZZZZZ',IDACTNR1 } V L P FB F04520 } L PF04510
0x1e08a0…1e0a34 (2, 222) Dummy {f00=0x007f, f01=0x0190, f02=» } V L PF04520 ~ L P FNL ~ f L P FBT SBCHQACT,F04530 ~ T P F
0x1e0a34…1e0bc8 Dummy {f00=0x007f, f01=0x018e, f02=»MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT ~ PF04521 P L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 ^ T P FTEXT 'ZEILE: ' P F
0x1e0bc8…1e0d5c Dummy {f00=0x007f, f01=0x0190, f02=» L P FMEL 'ZZ',IDNR1 L P FB F04540 X L PF04530 P FTEXT 'KREDIT L
0x1e0d5c…1e0ef0 Dummy {f00=0x007f, f01=0x0190, f02=» v L P FNL 6 P FTEXT 'BETRAG :' T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT L P FMEL 'ZZZZZ
0x1e0ef0…1e1084 Dummy {f00=0x007f, f01=0x0190, f02=» L T P FTEXT 'NEUER SALDO :' P FTAB 24 d N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL t P FNL T P FTEXT 'UEBERWEISUNG AUF KONTO: '
0x1e1084…1e1218 Dummy {f00=0x007f, f01=0x0190, f02=»DACTNR2 L P FMEND @ L P************************************************************************ L P*
0x1e1218…1e13ac Dummy {f00=0x007f, f01=0x0190, f02=» * L P************************************************************************ @ L PFMT046 FRMT INQUIRE ACCOUNT L P FSL
0x1e13ac…1e1540 Dummy {f00=0x007f, f01=0x0190, f02=»SPARKONTO NUMMER : ' L P FB F04620 H L PF04610 T P FTEXT 'ABFRAGE GIROKONTO NUMMER
0x1e1540…1e16d4 (2, 223) Dummy {f00=0x0080, f01=0x0190, f02=» FTAB 26 L P FMEL '999999',IDACTNR1 L P FNL ` T P FTEXT 'SALDO : ' P
0x1e16d4…1e1868 Dummy {f00=0x0080, f01=0x0190, f02=» h L P FBT SBCHQACT,F04630 ( T P FTEXT 'BUCH SALDO : ' x L P FB F04640
0x1e1868…1e19fc Dummy {f00=0x0080, f01=0x0190, f02=» p L PF04640 4 P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK L P FNL
0x1e19fc…1e1b90 Dummy {f00=0x0080, f01=0x0190, f02=» L P FMEL '9',ADSTATUS H L P FNL , P FTEXT 'LETZTE TRANS.VERLANGT(N=
0x1e1b90…1e1d24 Dummy {f00=0x0080, f01=0x0190, f02=» ^ L P************************************************************************ L P* * n L P* TRANSACTION INQUIRY (DIQACT) *
0x1e1d24…1e1eb8 Dummy {f00=0x0080, f01=0x0190, f02=»********************** ^ L PFMT047 FRMT INQUIRY TRANSACTION L P FSL n * P FTEXT 'TRANSAKTION ABFRAGE-KONTONR: ' P FTAB 26 L P FMEL '99999
0x1e1eb8…1e204c Dummy {f00=0x0080, f01=0x0190, f02=» L L P FTEXT 'TRANS. : ' P FTAB 7 L P FMEL '999',UDTRSCDE l L P FTEXT '/'
0x1e204c…1e21e0 Dummy {f00=0x0080, f01=0x0190, f02=» L P FMEL '999999',UDTRSSEQ L P FTEXT '/' l L P FMEL '99E-99E-99',UDDATE
0x1e21e0…1e2374 (2, 224) Dummy {f00=0x0080, f01=0x0190, f02=» P FTAB 20 $ L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT 4 L P FNL P P FTEXT 'NEUER SALDO: '
0x1e2374…1e2508 Dummy {f00=0x0080, f01=0x0190, f02=» FNL , P FTEXT 'VORH. TRANS. VERLANGT (N=0,J=1)' P * P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',IDNR1 L P FMEND
0x1e2508…1e269c Dummy {f00=0x0080, f01=0x0190, f02=» * f L P* BLOCK / DEBLOCK SCREEN (DHBACT) * & L P* * v L P******************************************************************
0x1e269c…1e2830 Dummy {f00=0x0080, f01=0x0190, f02=» f L P FBF SBCHQACT,F04820 & L P* * v L P* SAVINGS ACCOUNT
0x1e2830…1e29c4 Dummy {f00=0x0080, f01=0x0190, f02=» f T P FTEXT 'SPERREN SPARKONTO NUMMER :' & L P FB F04840 ~ 0 PF04810 FTEXT 'ENTSPERREN SPARKONTO NUMMER:' L P FB F0
0x1e29c4…1e2b58 Dummy {f00=0x0080, f01=0x0190, f02=» R T P FTEXT 'SPERREN GIROKONTO NUMMER :' L P FB F04840 j 0 PF04830 FTEXT 'ENTSPERREN GIROKONTO NUMMER:' PF04840 P FTAB 30
0x1e2b58…1e2cec Dummy {f00=0x0080, f01=0x0190, f02=» h P FTAB 16 ( L P FCOPY ACNAME 8 L P FNL T P FTEXT 'AKTUELLER SALDO :'
0x1e2cec…1e2e80 Dummy {f00=0x0080, f01=0x0190, f02=» FNL L P FBF SBCHQACT,F04860 PF04850 T P FTEXT 'BUCH SALDO :' j P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x1e2e80…1e3014 (2, 225) Dummy {f00=0x0080, f01=0x0190, f02=» N P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK & PF04865 v P FNL L P FBZ RDALFKB,F04870 T P FTEXT 'BEMERKUNG :'
0x1e3014…1e31a8 Dummy {f00=0x0080, f01=0x0190, f02=» ` L P FB F04899 0 PF04870 FTEXT 'TASTE CONT ODER TASTE CANCEL' p L PF04899 FMEND L P********************
0x1e31a8…1e333c Dummy {f00=0x0080, f01=0x018e, f02=» d P FKI 36 , P FCOPY ICDUMMY < P FMEND R L P************************************************************************ ` PMSG050 FRMT P FSL T P FTEXT 'PRUEFUNG NEUER SPARBUCHSEITE'
0x1e333c…1e34d0 Dummy {f00=0x0080, f01=0x0190, f02=» P FMEND L P************************************************************************ L P* * f L P* PRINT: PASSBOOK CLOSE LINE * L P*
0x1e34d0…1e3664 Dummy {f00=0x0080, f01=0x0190, f02=»************** V L PPRT051 FRMT P FTEXT ' ' f L P FMEL 'ZZZZZZ',NDDATE z N P FILLR ' ',13
0x1e3664…1e37f8 Dummy {f00=0x0080, f01=0x0190, f02=» l " PP05110 FTEXT '** ABGESCHL.**' . PP05120 FMEND T L P************************************************************************ h L P* * L P
0x1e37f8…1e398c Dummy {f00=0x0080, f01=0x0190, f02=» * X L P************************************************************************ J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1 h L P FSL L P F
0x1e398c…1e3b20 Dummy {f00=0x0080, f01=0x018e, f02=» V L P FB F05220 L PF05210 n T P FTEXT 'AENDERN GIROKONTO NUMMER : '
0x1e3b20…1e3cb4 (2, 226) Dummy {f00=0x0080, f01=0x0190, f02=» v L P FNL L P FTEXT 'NAME :' X P FTAB 16 L P FBZ RDALFKB,F05230 T P
0x1e3cb4…1e3e48 Dummy {f00=0x0080, f01=0x0190, f02=» ` L P FCOPY ACNAME L P FNL p T P FTEXT 'ADRESSE :'
0x1e3e48…1e3fdc Dummy {f00=0x0080, f01=0x0190, f02=»,NCLR,NEOI,APPL=18 x L PF05240 @ L P FCOPY ACADDRES L P FNL
0x1e3fdc…1e4170 Dummy {f00=0x0080, f01=0x0190, f02=»LFKB,F05250 T P FKI 16,MAXL=20,ALPHA,ME,NCLR,NEOI,APPL=18 H L PF05250 L P FCOPY ACTOWN
0x1e4170…1e4304 Dummy {f00=0x0080, f01=0x0190, f02=» FBT SBCHQACT,F05270 L P* * P L P* SAVINGS ACCOUNT * L P*
0x1e4304…1e4498 Dummy {f00=0x0080, f01=0x0190, f02=» @ P FTAB 30 L P FBZ RDALFKB,F05260 N P FKI 30,MAXL=6,ALPHA,NEOI,NCLR h L PF05260 L
0x1e4498…1e462c Dummy {f00=0x0080, f01=0x0190, f02=» l T P FTEXT 'KREDIT LIMIT :' , T P FKI 24,MAXL=11,NUM,NCLR,REWRT,ME,NEOI L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x1e462c…1e47c0 Dummy {f00=0x0080, f01=0x0190, f02=»****************************************************************** L P* * J L P* UPDATE ACCOUNT, MASTER KEYSETTING ON (DJUACT) * L P*
0x1e47c0…1e4954 (2, 227) Dummy {f00=0x0081, f01=0x018e, f02=» FRMT L P FSL J L P FBT SBCHQACT,F05310 T P FTEXT 'AENDERN SPARKONTO NUM
0x1e4954…1e4ae8 Dummy {f00=0x0081, f01=0x0190, f02=» L PF05310 T P FTEXT 'AENDERN GIROKONTO NUMMER : ' T PF05320 P FTAB 30 P FMEL '999999',IDACTNR1 P FNL L P FBT SBCHQACT,F053
0x1e4ae8…1e4c7c Dummy {f00=0x0081, f01=0x0190, f02=» F R P FKI 15,MAXL=11,NUM,ME,NCLR,REWRT,NEOI L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK d T P FTEXT 'ZEILE:'
0x1e4c7c…1e4e10 Dummy {f00=0x0081, f01=0x0190, f02=» b L P FB F05340 " L PF05330 r T P FTEXT 'KREDIT LIMIT:'
0x1e4e10…1e4fa4 Dummy {f00=0x0081, f01=0x0190, f02=» p L PF05340 0 L P FNL T P FTEXT 'SALDO :'
0x1e4fa4…1e5138 Dummy {f00=0x0081, f01=0x0190, f02=»CLR,REWRT,NEOI,APPL=30 x L P FMEL 'ZZZZZZZZ9,99-',ADBAL @ L P FNL L P FTEXT 'STATUS :'
0x1e5138…1e52cc Dummy {f00=0x0081, f01=0x0190, f02=»ADSTATUS L P FNL F P FNL T P FTEXT 'LETZTER TRANSAKTION :' R P FKI 24,NEOI,M
0x1e52cc…1e5460 Dummy {f00=0x0081, f01=0x0190, f02=» P L P FNL T P FTEXT 'LETZTER GEDRUCKT :' ` R P FKI 24,NEOI,MAXL=2,NUM,ME,NCLR,REWRT,APPL=17
0x1e5460…1e55f4 (2, 228) Dummy {f00=0x0081, f01=0x0190, f02=» ^ T P FTEXT 'AKKUM. EINZAHLUNGEN :' R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT v L P FMEL 'ZZZZZZZZ9,99',ADDEPCUM
0x1e55f4…1e5788 Dummy {f00=0x0081, f01=0x0190, f02=» l R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT 4 L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM L P FMEND
0x1e5788…1e591c Dummy {f00=0x0081, f01=0x0190, f02=»SL & P FTEXT 'BELEG IN DRUCKER EINLEGEN' P FKI 34 4 P FCOPY ICDUMMY D P FMEND Z L P*********************************************************************** h L P* * L P
0x1e591c…1e5ab0 Dummy {f00=0x0081, f01=0x0190, f02=» * X L P************************************************************************ L PFMT055 FRMT h L P FNL L P
0x1e5ab0…1e5c44 Dummy {f00=0x0081, f01=0x0190, f02=» X L P FTAB 8 T P FTEXT 'KARTE' p L P FTAB 13
0x1e5c44…1e5dd8 Dummy {f00=0x0081, f01=0x0190, f02=» h T P FTEXT 'EINZAHLUNGEN' ( L P FTAB 49 T P FTEXT 'AUSZAHLUNGEN'
0x1e5dd8…1e5f6c Dummy {f00=0x0081, f01=0x0190, f02=» x L P FMEND 8 J P********************************************************************** P* P* CURRENCY INQUIRY (DQCCY) P*
0x1e5f6c…1e6100 Dummy {f00=0x0081, f01=0x0190, f02=»E : ' | P FTAB 17 D P FCOPY CCCCYNME T P FNL l T P FTEXT 'WAEHRUNGSCODE : ' x P FTAB 17 P FCOPY CCCCYCDE P FTAB 26 P
0x1e6100…1e6294 (2, 229) Dummy {f00=0x0081, f01=0x0190, f02=» Z P FTAB 19 " P FMEL 'ZZZ9,99-',CDBUY1 2 P FTAB 27 R P FTEXT '(2)' b P FTAB 30 v P FMEL 'ZZZ9,99',CDBUY2 P FNL T P FTEXT 'VERKAUFSKURSE :(1)'
0x1e6294…1e6428 Dummy {f00=0x0081, f01=0x0190, f02=» T P FTEXT 'WAEHRUNGSLIMIT:' P FTAB 28 ` P FMEL 'ZZZZZ9,99',CDLIMIT p P FMEND L P************************************************************************ L P*
0x1e6428…1e65bc Dummy {f00=0x0081, f01=0x0190, f02=»* * L P************************************************************************ P L PFMT058 FRMT L P FSL
0x1e65bc…1e6750 Dummy {f00=0x0081, f01=0x0190, f02=» @ L P FBT SBCCYIN,F058100 T P FTEXT '(VERKAUF)' X L P FB F058200 L PF058100
0x1e6750…1e68e4 Dummy {f00=0x0081, f01=0x0190, f02=» P L PF058200 L P FNL h T P FTEXT 'KURS:'
0x1e68e4…1e6a78 Dummy {f00=0x0081, f01=0x0190, f02=» ` L P FTAB 10 L P FBT SBCCYIN,F058220 p L P* CURRENCY SELLING *
0x1e6a78…1e6c0c Dummy {f00=0x0081, f01=0x0190, f02=» ` L P* CURRENCY BUYING * L PF058220 p L P FMEL 'ZZZZ9,99',CDBUY1
0x1e6c0c…1e6da0 Dummy {f00=0x0081, f01=0x0190, f02=» ` L P FTAB 21 L P FCOPY CCCCYCDE p L P FTAB 25
0x1e6da0…1e6f34 (2, 230) Dummy {f00=0x0081, f01=0x0190, f02=» ` P P FTEXT 'BETRAG :' L P FTAB 16 t L P FCOPY ICTEXT1 CURRENCY CODE 1
0x1e6f34…1e70c8 Dummy {f00=0x0081, f01=0x0190, f02=» d L P FNL $ P P FTEXT 'UMGER. BETRAG:' t L P FTAB 16
0x1e70c8…1e725c Dummy {f00=0x0081, f01=0x0190, f02=» h L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT2 ( L P FNL x T P FTEXT 'WEITERER GELDWECHSEL (N=0,J=1)?'
0x1e725c…1e73f0 Dummy {f00=0x0081, f01=0x0190, f02=» p L P FMEND 0 L P************************************************************************ L P*
0x1e73f0…1e7584 Dummy {f00=0x0081, f01=0x0190, f02=» * p L P************************************************************************ 0 T PFMT059 FRMT T P FSL
0x1e7584…1e7718 Dummy {f00=0x0081, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) P T P FTAB 24 T P FMEL 'Z
0x1e7718…1e78ac Dummy {f00=0x0081, f01=0x0190, f02=» X T P FTAB 20 T P FCOPY YCCCY(KW1) x T P FTAB 24
0x1e78ac…1e7a40 Dummy {f00=0x0081, f01=0x0190, f02=» T P FTAB 20 H T P FCOPY YCCCY(KW2) T P FTAB 24
0x1e7a40…1e7bd4 (2, 231) Dummy {f00=0x0082, f01=0x0190, f02=» P T P FNL T P FTAB 20 p T P FCOPY YCCCY(KW3)
0x1e7bd4…1e7d68 Dummy {f00=0x0082, f01=0x0190, f02=»CASH(KW1,KW3) x T P FNL @ T P FTEXT 'SCHECK SALDO :' T P FTAB 20
0x1e7d68…1e7efc Dummy {f00=0x0082, f01=0x0190, f02=» H T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) h T P FNL
0x1e7efc…1e8090 Dummy {f00=0x0082, f01=0x0190, f02=» p L P************************************************************************ 8 L P* * N P* OPERATOR TURNOVER SCREEN
0x1e8090…1e8224 Dummy {f00=0x0082, f01=0x0190, f02=»************************************************** z PFMT060 FRMT : P FSL N T P FTEXT 'GESAMTUMSATZ :' Z P FTAB 20 P FCOPY YCCCY(KW4) P FTAB 24 P FMEL 'ZZZZZZZZ9,99-',WDEC1
0x1e8224…1e83b8 Dummy {f00=0x0082, f01=0x0190, f02=» FTAB 20 P FCOPY YCCCY(KW2) P FTAB 24 * * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) : P FNL h P FTAB 20 t P FCOPY YCCCY(KW3) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL T P FTEXT 'WAEHRUNGSUMSATZ :'
0x1e83b8…1e854c Dummy {f00=0x0082, f01=0x0190, f02=» j P FMEL 'ZZZZZZZZ9,99-',WDEC2 2 P FMEND V L P************************************************************************ d L P* * L P* DA
0x1e854c…1e86e0 Dummy {f00=0x0082, f01=0x0190, f02=» * T L P************************************************************************ L PPRT061 FRMT d L P FTEXT ' ' P FTA
0x1e86e0…1e8874 (2, 232) Dummy {f00=0x0082, f01=0x0190, f02=» t L P FMEL '99E-99E-99',NDDATE 4 PP061050 L P FTAB 19 P FBF SBDSRVS,P061100 T P FTEXT '
0x1e8874…1e8a08 Dummy {f00=0x0082, f01=0x0190, f02=» N P FBF SBDSDEP,P061200 T P FTEXT 'EINZAHLUNG' V L PP061200 N P FBF SBDSW
0x1e8a08…1e8b9c Dummy {f00=0x0082, f01=0x0190, f02=» P L PP061300 N P FBF SBDSTRF,P061400 h T P FTEXT 'UEBERWEISUNG'
0x1e8b9c…1e8d30 Dummy {f00=0x0082, f01=0x0190, f02=» b L P FMEL '99E-99E-99',UDDATE " L P FTAB 42 r L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT1
0x1e8d30…1e8ec4 Dummy {f00=0x0082, f01=0x0190, f02=» b L P FMEND " L P************************************************************************ r T PMSG062 FRMT
0x1e8ec4…1e9058 Dummy {f00=0x0082, f01=0x0190, f02=» r T P FTEXT 'ENDLOSFORMULAR IN GTP EINLEGEN' : T P FB M062999 T PM062100
0x1e9058…1e91ec Dummy {f00=0x0082, f01=0x0190, f02=» B T PM062999 T P FMEND b L P************************************************************************ T
0x1e91ec…1e9380 Dummy {f00=0x0082, f01=0x0190, f02=» b T P FTEXT 'TAGESAUSZUG EINLEGEN' * T P FMEND L P**********************************************
0x1e9380…1e9514 (2, 233) Dummy {f00=0x0082, f01=0x0190, f02=» J P FMEND L P************************************************************************ L P* * p L P* DEMO TP71: TITLE LINE *
0x1e9514…1e96a8 Dummy {f00=0x0082, f01=0x0190, f02=»************************ ` L PFMT065 FRMT P FILLR ' ',6 p P FBT SBFIL1,FMT65A P FILLR ' ',9 P FBT SBFIL2,FMT65A P FILLR ' ',8 P FBT SBFIL3,FMT65A P FILLR ' ',3
0x1e96a8…1e983c Dummy {f00=0x0082, f01=0x0190, f02=» z L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' : L P FCOPY ICSTRG1 L P FMEND
0x1e983c…1e99d0 Dummy {f00=0x0082, f01=0x0190, f02=» * z L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * : L P* * L P**********************************************
0x1e99d0…1e9b64 Dummy {f00=0x0082, f01=0x0190, f02=» z L P FILLR ' ',6 : T P FTEXT 'VORHANDENER ZEICHENVORRAT:' L P FMEND
0x1e9b64…1e9cf8 Dummy {f00=0x0082, f01=0x0190, f02=» * L P* DEMO TP71: SPECIAL CHARACTERS * B L P* * L P**************************************
0x1e9cf8…1e9e8c Dummy {f00=0x0082, f01=0x0190, f02=» L P FILLR ' ',6 B T P FTEXT 'SPEZIELLER ZEICHEN : ' L P FILLR ' ',6
0x1e9e8c…1ea020 Dummy {f00=0x0082, f01=0x0190, f02=» FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' P* ROOMLESS POINT B P FTEXT =X'AE37AE38AE39' Z L P FMEND z L P**************************************************************
0x1ea020…1ea1b4 (2, 234) Dummy {f00=0x0082, f01=0x0190, f02=» * j L P* * * L P************************************************************************ z L P*
0x1ea1b4…1ea348 Dummy {f00=0x0082, f01=0x0190, f02=»************************************************************************ PFMT068 FRMT P P FSL d P FTEXT 'ODR (N=0,Y=1) ?' p 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL P FTEXT 'TERMINAL NR. :'
0x1ea348…1ea4dc Dummy {f00=0x0082, f01=0x0190, f02=»MEL '999',NDTRMNR P FTEXT ')' P FMEND , L P************************************************************************ : L P* * F P* OPERATOR BALANCES, FOR FT80
0x1ea4dc…1ea670 Dummy {f00=0x0082, f01=0x0190, f02=»******************************************** t L PFMT069 FRMT 4 L P FSL H P FTEXT 'BEDIENER : '
0x1ea670…1ea804 Dummy {f00=0x0082, f01=0x0190, f02=» p P FTEXT 'KASSENBESTAND: ' 0 P FTAB 16 P L P FCOPY YCCCY(KW4) ` P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x1ea804…1ea998 Dummy {f00=0x0082, f01=0x0190, f02=»PY YCCCY(KW1) P FTAB 20 L L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) P FNL P FTEXT 'KASSENBESTAND: ' L P FTAB 16
0x1ea998…1eab2c Dummy {f00=0x0082, f01=0x0190, f02=»ZZZZZZZ9,99-',ODCASH(KW1,KW2) P FNL H P FTEXT 'KASSENBESTAND: ' T L P FTAB 16 t L P FCOPY YCCCY(KW3)
0x1eab2c…1eacc0 Dummy {f00=0x0082, f01=0x0190, f02=»NT ODER TASTE CANC' P FKI 32 P FCOPY WCSTRG6 , L P FMEND B L P************************************************************************ L P*
0x1eacc0…1eae54 (2, 235) Dummy {f00=0x0083, f01=0x0190, f02=» * L P************************************************************************ J L PFMT070 FRMT L P FSL
0x1eae54…1eafe8 Dummy {f00=0x0083, f01=0x0190, f02=» 'AUSZAHLUNG - SPARKONTO: ' L P FB F07020 $ L PF07010 t & P FTEXT 'AUSZAHLUNG - GIROKONTO: ' L PF07020
0x1eafe8…1eb17c Dummy {f00=0x0083, f01=0x0190, f02=»MEL '999999',IDACTNR1 L P FNL N L P FBT SBCHQACT,F07030 L P*
0x1eb17c…1eb310 Dummy {f00=0x0083, f01=0x0190, f02=» * L P FTAB 12 N H P FTEXT '- KENNWORT :' L P FTAB 27
0x1eb310…1eb4a4 Dummy {f00=0x0083, f01=0x0190, f02=»7050 L PF07030 J L P FBT SBCHEQUE,F07040 L P*
0x1eb4a4…1eb638 Dummy {f00=0x0083, f01=0x0190, f02=» * L P FTEXT 'NAME :' J L P FTAB 13 L P FCOPY ACNAME
0x1eb638…1eb7cc Dummy {f00=0x0083, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT, CHEQUE INPUT * J L P* * L PF07040
0x1eb7cc…1eb960 Dummy {f00=0x0083, f01=0x0190, f02=» '- CHEQUE NR. :' L P FTAB 27 F L P FCOPY FCFIELD L PF07050
0x1eb960…1ebaf4 (2, 236) Dummy {f00=0x0083, f01=0x0190, f02=»ACT,F07060 L P* * F L P* SAVINGS ACCOUNT * L P*
0x1ebaf4…1ebc88 Dummy {f00=0x0083, f01=0x0190, f02=» T L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 P FNL d N P FTEXT 'ZEILE:' p L P FKI 10,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11
0x1ebc88…1ebe1c Dummy {f00=0x0083, f01=0x0190, f02=» b L P* * " L P* CHEQUE ACCOUNT * r L P*
0x1ebe1c…1ebfb0 Dummy {f00=0x0083, f01=0x0190, f02=» b P FTAB 20 " L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK 2 L PF07070 P FNL L P FTEXT 'BETRAG :'
0x1ebfb0…1ec144 Dummy {f00=0x0083, f01=0x0190, f02=»Z',TDAMOUNT ~ L P FNL > P FTEXT 'NEUER SALDO: ' L P FTAB 20 P P FMEL 'ZZZZZ
0x1ec144…1ec2d8 Dummy {f00=0x0083, f01=0x0190, f02=» P L P************************************************************************ L P* * ` T P* TRANSFER (DNTRF) FOR FT80 L P
0x1ec2d8…1ec46c Dummy {f00=0x0083, f01=0x0190, f02=»**************** X L PFMT071 FRMT L P FSL h $ P FTEXT 'UEBERWEISUNG AB KONTO: ' L P FBT SBCARD,F07110
0x1ec46c…1ec600 Dummy {f00=0x0083, f01=0x0190, f02=» h L P FB F07120 ( L PF07110 x P FTAB 26 L P FMEL '999999',IDACTNR1
0x1ec600…1ec794 (2, 237) Dummy {f00=0x0083, f01=0x0190, f02=» x L P FBT SBCHQACT,F07130 8 P FTEXT 'BUCH SALDO : ' T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT L P FMEL 'ZZ
0x1ec794…1ec928 Dummy {f00=0x0083, f01=0x0190, f02=» Z T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT L P FMEL 'ZZ',IDNR1 r L P FB F07140
0x1ec928…1ecabc Dummy {f00=0x0083, f01=0x0190, f02=» FMEL 'ZZZZZZZZ9,99',ADLIMBOK L PF07140 P L P FNL P FTEXT 'BETRAG :'
0x1ecabc…1ecc50 Dummy {f00=0x0083, f01=0x0190, f02=» f L P FNL & P FTEXT 'NEUER SALDO: ' v P FTAB 20 N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL L P FNL
0x1ecc50…1ecde4 Dummy {f00=0x0083, f01=0x0190, f02=»I,APPL=20 p L P FMEL 'ZZZZZZ',IDACTNR2 6 L P FMEND J P**************************************************
0x1ecde4…1ecf78 Dummy {f00=0x0083, f01=0x018e, f02=»************************** d PFMT072 FRMT " P FSL 6 P FTEXT 'WAEHRUNGSNAME: ' B P FTAB 17 b P FCOPY CCCCYNME r P FNL P FTEXT 'WAEHRUNGSCODE: ' P FTAB 17 P FCOPY CCCCYCDE P FTAB 22 P FTEXT 'REL.: ' P F
0x1ecf78…1ed10c Dummy {f00=0x0083, f01=0x0190, f02=» P FNL P FTEXT 'ANKAUFSKURSE :(2)' P FTAB 19 2 P FTAB 26 B P FMEL 'ZZZ9,99',CDBUY2 R P FNL p P FTEXT 'VERKAUFSKURSE:(1)' ~ P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 P FNL P FTEXT 'VERKAUFSKURSE:(2)' P FTAB 19
0x1ed10c…1ed2a0 Dummy {f00=0x0083, f01=0x0190, f02=»ND L P************************************************************************ L P* * Z T P* CLOSE OPERATOR (PART1) FOR FT80 L P*
0x1ed2a0…1ed434 (2, 238) Dummy {f00=0x0083, f01=0x018e, f02=»********** R T PFMT073 FRMT T P FSL j P FTEXT 'KASSENBESTAND: ' T P FTAB 16
0x1ed434…1ed5c8 Dummy {f00=0x0083, f01=0x0190, f02=» T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) T P FNL
0x1ed5c8…1ed75c Dummy {f00=0x0083, f01=0x0190, f02=»CY(KW1) T P FTAB 20 N T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL
0x1ed75c…1ed8f0 Dummy {f00=0x0083, f01=0x0190, f02=» x T P FCOPY YCCCY(KW2) @ T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',OD
0x1ed8f0…1eda84 Dummy {f00=0x0083, f01=0x018e, f02=» H P FTEXT 'KASSENBESTAND : ' T P FTAB 16 2 T P FCOPY YCCCY(KW3) T P FTAB 20
0x1eda84…1edc18 Dummy {f00=0x0083, f01=0x0190, f02=» T P FNL P FTEXT 'SCHECK SALDO : ' T P FTAB 16 | T P FCOPY YCCCY(KW4)
0x1edc18…1eddac Dummy {f00=0x0083, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW2,KW1) T P FNL L ( P FTEXT 'TASTE CONT ODER TASTE CANC' T P FMEND
0x1eddac…1edf40 Dummy {f00=0x0083, f01=0x0190, f02=» * x T P* OPERATOR TURNOVER SCREEN FOR FT80 8 L P* * L P****************************************
0x1edf40…1ee0d4 (2, 239) Dummy {f00=0x0084, f01=0x018e, f02=») P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL > P FTEXT 'GESAMTUMSATZ: ' J P FTAB 16 j P FCOPY YCCCY(KW1) z P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) P FNL P FTEXT 'GESAMTUMSATZ: ' P FTAB 16
0x1ee0d4…1ee268 Dummy {f00=0x0084, f01=0x0190, f02=» P FTAB 16 P FCOPY YCCCY(KW3) P FTAB 20 . * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) > P FNL l P FTEXT 'WAEHRUNGSUMSATZ: ' x P FTAB 16 P FCOPY YCCCY(KW4) T P FTAB 20
0x1ee268…1ee3fc Dummy {f00=0x0084, f01=0x0190, f02=»****** N P* P P* P* * P* 4 P* > P* H P* R P PFMT075 FRMT d P FSL x P FTEXT ' ' P FMEND PFMT076 FRMT P FSL P FMEND PFMT077 FRMT P FSL P FTECT '1' PFMT0
0x1ee3fc…1ee590 Dummy {f00=0x0084, f01=0x0190, f02=» d P FMEND , PERR002 FRMT : P FSL N T P FTEXT 'GESCHUETZTER DATENSATZ' Z P FMEND PERR003 FRMT P FSL P FTEXT 'I/O ERROR' P FMEND P
0x1ee590…1ee724 Dummy {f00=0x0084, f01=0x0190, f02=»R005 FRMT P FSL T P FTEXT 'FELD EINGEBEN' P FMEND v L PERR006 FRMT L P FSL
0x1ee724…1ee8b8 Dummy {f00=0x0084, f01=0x0190, f02=» | L PERR007 FRMT < L P FSL T P FTEXT 'FILE-OPEN ERFOLGLOS'
0x1ee8b8…1eea4c Dummy {f00=0x0084, f01=0x0190, f02=» L P FSL D T P FTEXT 'SCHALTER TERMINAL' L P FMEND
0x1eea4c…1eebe0 Dummy {f00=0x0084, f01=0x0190, f02=» T P FTEXT 'WERT MUSS NULL SEIN' L L P FMEND L PERR010 FRMT
0x1eebe0…1eed74 (2, 240) Dummy {f00=0x0084, f01=0x0190, f02=» T P FTEXT 'BEDIENUNGSFEHLER' L P FMEND L PERR020 FRMT L P FSL
0x1eed74…1eef08 Dummy {f00=0x0084, f01=0x0190, f02=» L L P FMEND L PERR023 FRMT d L P FSL T P FTE
0x1eef08…1ef09c Dummy {f00=0x0084, f01=0x0190, f02=» L PERR024 FRMT L P FSL l T P FTEXT 'BEDIENER BEREITS ANGEMELDET'
0x1ef09c…1ef230 Dummy {f00=0x0084, f01=0x0190, f02=» d L P FSL $ T P FTEXT 'FALSCHES KENNWORT' t L P FMEND
0x1ef230…1ef3c4 Dummy {f00=0x0084, f01=0x0190, f02=» l T P FTEXT 'TERM. GESPERRT, REVISION VERST,' , L P FMEND L PERR028 FRMT
0x1ef3c4…1ef558 Dummy {f00=0x0084, f01=0x0190, f02=» t L P FMEND < L PERR029 FRMT L P FSL
0x1ef558…1ef6ec Dummy {f00=0x0084, f01=0x0190, f02=» L PERR031 FRMT D L P FSL T P FTEXT 'MASTER KEYSETTING VERLANGT'
0x1ef6ec…1ef880 Dummy {f00=0x0084, f01=0x0190, f02=»32 FRMT L P FSL L T P FTEXT 'AUSFALL EINGABEGERAET' L P FMEND
0x1ef880…1efa14 (2, 241) Dummy {f00=0x0084, f01=0x0190, f02=» L P FSL T P FTEXT 'VERLANGTES GERAET NICHT SPEZIFIERT' T L P FMEND L PERR034 FRMT
0x1efa14…1efba8 Dummy {f00=0x0084, f01=0x0190, f02=» L T P FTEXT 'SPARKONTO' L P FMEND d PERR035 FRMT P FSL T P FTEXT 'UNGENUEGENDE DECKUNG'
0x1efba8…1efd3c Dummy {f00=0x0084, f01=0x0190, f02=» Z P FMEND " PERR037 FRMT 0 P FSL D T P FTEXT 'SALDO NICHT NULL' P P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',ADBAL P FMEND PERR038 FRMT P FSL T
0x1efd3c…1efed0 Dummy {f00=0x0084, f01=0x40e2, f02=» FTEXT 'KEINE TRANSAKTION MOEGLICH' P FMEND , PERR079 FRMT : P FSL N P FTEXT'79' Z P FMEND l PERR080 FMRT z L P************************************************************************ @ PERR038 FRMT P FSL T
0x1efed0…1f0064 Dummy {f00=0x0084, f01=0x0190, f02=» L PFMT016 FRMT OPERATOR IDENTIFICATION L P FSL T L P FTEXT 'OPERATOR I.D. :' L P FKI 17,ME,MINL=4,MA
0x1f0064…1f01f8 Dummy {f00=0x0084, f01=0x0190, f02=» L P FMEND L P* * T L P* * L P*
0x1f01f8…1f038c Dummy {f00=0x0084, f01=0x0190, f02=» L P FSL L P FTEXT 'PASSWORD :' T P P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,NUM L P FCOPY OCPASS
0x1f038c…1f0520 Dummy {f00=0x0084, f01=0x0190, f02=» H L P FTEXT 'OPERATOR NAME :' P P FKI 17,ME,MINL=1,MAXL=20,NCLR,NEOI,NUM X L P FCOPY OCNAME L P FNL
0x1f0520…1f06b4 (2, 242) Dummy {f00=0x0084, f01=0x0190, f02=» L P P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM L P FMEL '9',ODOPRLGG ` L P FNL L P FNL
0x1f06b4…1f0848 Dummy {f00=0x0084, f01=0x0190, f02=» P L P FNL L P FTEXT 'CASH BALANCES :' ` L P FCOPY YCCCY(KW4) P P FKI 24,
0x1f0848…1f09dc Dummy {f00=0x0084, f01=0x0190, f02=» T L P FNL L P FCOPY YCCCY(KW1) f P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT N
0x1f09dc…1f0b70 Dummy {f00=0x0084, f01=0x0190, f02=» L P FCOPY YCCCY(KW2) ! P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ! l N P FMEL 'ZZZZZZZ9,99-',ODCASH(KW2)
0x1f0b70…1f0d04 Dummy {f00=0x0084, f01=0x0190, f02=» ! b P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT " " N P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3) " v L P FNL
0x1f0d04…1f0e98 Dummy {f00=0x0084, f01=0x0190, f02=» " h L P FMEL '9',WD1 # , L P FMEND # | L P*
0x1f0e98…1f102c Dummy {f00=0x0084, f01=0x0190, f02=» * # l L PFMT018 FRMT OPERATOR ACCUMULATORS $ , L P FSL $ | L P FTEXT 'CASH DEPOSITS :'
0x1f102c…1f11c0 Dummy {f00=0x0084, f01=0x0190, f02=») $ p L P FNL % 0 L P FMEND % L P*
0x1f11c0…1f1354 (2, 243) Dummy {f00=0x0085, f01=0x0190, f02=» * % p PERR001 FRMT & 0 P FSL & D P FTEXT 'ERR0R 1' & P P FMEND & h P* & v P* & PERR002 FRMT & P FSL & P FTEXT 'ERR0R 2' & P FMEND & P* & P* & PERR003 FRMT & P FSL & P FTE
0x1f1354…1f14e8 Dummy {f00=0x0085, f01=0x0190, f02=» & PERR005 FRMT ' P FSL ' P FTEXT 'ERR0R 5' ' ( P FMEND ' @ L P************************************************************************ ' N L P* * ' L P* ERR0R 10
0x1f14e8…1f167c Dummy {f00=0x0085, f01=0x0190, f02=»********************************************************************** ' PERR010 FRMT ( N P FSL ( b P FTEXT 'VALUE NOT IN RANGE' ( n P FMEND ( L P************************************************************************ ( L P*
0x1f167c…1f1810 Dummy {f00=0x0085, f01=0x0190, f02=»* * ( L P************************************************************************ ) P L PERR020 FRMT ) L P FSL
0x1f1810…1f19a4 Dummy {f00=0x0085, f01=0x0190, f02=» FMEND ) L P************************************************************************ * P L P* * * L P* ERR0R 23
0x1f19a4…1f1b38 Dummy {f00=0x0085, f01=0x0190, f02=»************************************************************************ * L PERR023 FRMT + P L P FSL + L P FTEXT 'OPERATOR UNKNOWN
0x1f1b38…1f1ccc Dummy {f00=0x0085, f01=0x0190, f02=»************************************************************************ + L P* * , P L P* ERR0R 24 * , L P*
0x1f1ccc…1f1e60 Dummy {f00=0x0085, f01=0x0190, f02=»ERR024 FRMT , L P FSL - P L P FTEXT 'OPERATOR ALREADY LOGGED ON' - L P FMEND
0x1f1e60…1f1ff4 (2, 244) Dummy {f00=0x0085, f01=0x0190, f02=»* * - L P* ERR0R 25 * . P L P* * . L P************************
0x1f1ff4…1f2188 Dummy {f00=0x0085, f01=0x0190, f02=» FSL . L P FTEXT 'WRONG PASSWORD' / P L P FMEND / L P************************
0x1f2188…1f231c Dummy {f00=0x0085, f01=0x0190, f02=»* ERR0R 26 * / L P* * 0 P L P************************************************************************ 0 L PERR026 FRMT
0x1f231c…1f24b0 Dummy {f00=0x0085, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR 0 L P FMEND 1 P L P************************************************************************ 1 L P*
0x1f24b0…1f2644 Dummy {f00=0x0085, f01=0x0190, f02=»* * 1 L P************************************************************************ 2 P L PERR027 FRMT 2 L P FSL
0x1f2644…1f27d8 Dummy {f00=0x0085, f01=0x009c, f02=» FMEND 2 L P************************************************************************ 3 P L PERR027 FRMT 2 L P FSL
0x1f27d8…1f296c Dummy {f00=0x0085, f01=0x2008, f02=» 4 2 L P************************************************************************ 3 P L PERR027 FRMT 2 L P FSL
0x1f296c…1f2b00 Dummy {f00=0x0085, f01=0x0000, f02=»
0x1f2b00…1f2c94 (2, 245) Opaque[0x194]
0x1f2c94…1f2e28 # DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0x05ba, f01=0x8157, f02=0x10b0, f03=0xbd56}
0x1f2c94…1f2e28 IdxSect {
0x1f2c94…1f2e28 f00 = 0x0085 // 0x1f2c94 @0x0
0x1f2c94…1f2e28 f01 = 0x0016 // 0x1f2c96 @0x2
0x1f2c94…1f2e28 gno = [ // 0x1f2c98 @0x4
0x1f2c94…1f2e28 [0x00]: C0x0085.0x2.0
0x1f2c94…1f2e28 [0x01]: C0x0085.0x3.0
0x1f2c94…1f2e28 [0x02]: C0x0086.0x0.0
0x1f2c94…1f2e28 [0x03]: C0x0086.0x1.0
0x1f2c94…1f2e28 [0x04]: C0x0086.0x2.0
0x1f2c94…1f2e28 [0x05]: C0x0086.0x3.0
0x1f2c94…1f2e28 [0x06]: C0x0087.0x0.0
0x1f2c94…1f2e28 [0x07]: C0x0087.0x1.0
0x1f2c94…1f2e28 [0x08]: C0x0087.0x2.0
0x1f2c94…1f2e28 [0x09]: C0x0087.0x3.0
0x1f2c94…1f2e28 [0x0a]: C0x0088.0x0.0
0x1f2c94…1f2e28 ]
0x1f2c94…1f2e28 }
0x1f2e28…1f2fbc Dummy {f00=0x0085, f01=0x0190, f02=»D Sx CR*T<0 j 8 VUBF tUIF UCY >UOP UA1 UA2 UT1 jUT2 UQQ
0x1f2fbc…1f3150 Dummy {f00=0x0085, f01=0x0190, f02=»
[…0x2…]
0x1f3478…1f360c Dummy {f00=0x0085, f01=0x0190, f02=» *
0x1f360c…1f37a0 Dummy {f00=0x0085, f01=0x0190, f02=» P *
0x1f37a0…1f3934 (2, 246) Dummy {f00=0x0085, f01=0x0190, f02=» P * P * * 2
0x1f3934…1f3ac8 Dummy {f00=0x0085, f01=0x0190, f02=» p + b p R P R A 0 p 1 b p + " 2 p `
0x1f3ac8…1f3c5c Dummy {f00=0x0085, f01=0x0190, f02=» (
0x1f3c5c…1f3df0 Dummy {f00=0x0085, f01=0x0190, f02=»0 0 ! N 20 0 0 0 0 0 50 ;0 A0 D 4 * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F
0x1f3df0…1f3f84 Dummy {f00=0x0085, f01=0x0190, f02=» 0 @ B 0 0 & , 4 < H a > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ *0 0 0 !0 %0 )0 -0 10 7 F0 0 0 !0 "0 $ % B0 0
0x1f3f84…1f4118 Dummy {f00=0x0085, f01=0x0190, f02=»0 0 0 0 0 0 0 0 !0 '0 -0 3 7 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D D D U
0x1f4118…1f42ac Dummy {f00=0x0085, f01=0x0190, f02=»0 0 " D < <( <$ 8<, x<0 RD D G X j DGX D W j D W D j D D 0 D0 4 0 0 4 1 R0 1 1 0 W " " E E E 1 1 50 0 0 T P P 0 ] 0 D G 0 DGT 0 jE ]P G 0 H G "G 0 ^wG
0x1f42ac…1f4440 Dummy {f00=0x0085, f01=0x0190, f02=»E0 ]K0 E _ D J 0 ]DJj]P E 0 0 ] 0 W 0 1 1 :W&1 1 JW 1 1 AW 1 1 GW 1 1 O 0 I D 1 1 =0 0 ( - 1 H1 H #,HD H H JD0 ] J0 D G 0 DGT 0 I I T_e0 H 4 D w w wb?h@>? > > < = <d<0>Dx$w = 6 B
0x1f4440…1f45d4 (2, 247) Dummy {f00=0x0086, f01=0x0190, f02=»9-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-99999999999ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- I/O ERROR DISK ERROR FRONT OFFICE REQU
0x1f45d4…1f4768 Dummy {f00=0x0086, f01=0x0190, f02=»KED BAD NOTES OR JAM OPERATOR UNKNOWN RECORD PROTECTED DELIVERY TIME-OUT INSUFFICIENT FUNDS RECORD KEY INVALID INVALID COMPARISON VALUE MUST BE ZERO VALUE NOT IN RANGE REJECT CASSETTE FULL BALANCE NOT ZERO 2 INPUT DEVICE FAILURE CASSETT
0x1f4768…1f48fc Dummy {f00=0x0086, f01=0x0190, f02=»LL ILLEGAL END-OF-ITEM KEY OPERATOR I.D. : e PROGRAM ERROR-DEBUG HELP NO TRANSACTIONS POSSIBLE ! !a ** CLOSED ** MOUNT A4-SHEET IN PRINTER MASTER KEYSETTING REQUIRED OPERATOR ALREADY LOGGED ON NOT YET IMPLEMENTED m VOLUME-N
0x1f48fc…1f4a90 Dummy {f00=0x0086, f01=0x0190, f02=» AVAILABLE CHARACTER SETS: OPEN FORMAT-FILE NOT SUCCESSFULL DISPLAY 01/06/08/20/24 ? e PLEASE ENTER REQUIRED FUNCTION: "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): "REQUIRED DEVICE TYPE NOT SPECIFIED "TERMINAL BLOCKED - CALL SUPERVISOR CHECK PASS-
0x1f4a90…1f4c24 Dummy {f00=0x0086, f01=0x0190, f02=»MOUNT OVERDRAWN BY QUOTATION MOUNT VOUCHER IN VOUCHER-PRINTER " m "MOUNT PASS-BOOK IN VOUCHER-PRINTER $ m NO CASSETTE,T.O. OR NOP TND NOT OPERABLE OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** TND OPEN FAILURE CONT FOR RETRY, ELSE CANCEL Z
0x1f4c24…1f4db8 Dummy {f00=0x0086, f01=0x0190, f02=» NAME " ACCUM.DEP. 1 ACCUM.WITHD. ? ST [ ] ^ _ i !PHILIPS PTS 6371 TERMINAL PRINTER i MOUNT CASSETTES IN DISPENSER !PRESS CONT WHEN READY ELSE CANCEL "FATAL TND-ERROR, DISPENSE CANCELED DO TRANSACTION TND-OPEN AGAIN "MORE THAN 6 LAN
0x1f4db8…1f4f4c Dummy {f00=0x0086, f01=0x0190, f02=» ELSE CANCEL && "MOUNT CONTINUOUS STATIONARY ON GTP # !MOUNT CONTINUOUS STATIONARY ON LP e e e e e e/e e e e e e e!e e e e"e$e#e%e&e)e*e.e+e0e2e1e3e e e'e(e,e-e4e5e6e7e OPERATOR I.D. : e PASSWORD : j LANGUAGE : @
0x1f4f4c…1f50e0 Dummy {f00=0x0086, f01=0x0190, f02=». : 2 TERM.NAME : FRONT OFFICE( 2 ) SPECIAL CHARACTERS : 0 1 2 3 4 5 6 7 8 9 : ; < 0 1 2 3 4 5 6 7 8 9 GROSS TURNOVER : # 2J # 2 # 2 # 2 CURR. TURNOVER : # 2K ' TERMINAL : 8 5 FRONT OFFIC
0x1f50e0…1f5274 (2, 248) Dummy {f00=0x0086, f01=0x0190, f02=»ION: " ! " ! " ! " ! $CASSETTE DENOMINATION NO. OF NOTES ! ! ! ! OPERATOR NAME : CASH BALANCES : # 2 # 2 # 2
0x1f5274…1f5408 Dummy {f00=0x0086, f01=0x0190, f02=» # 2 CHEQUE BALANCE : # 2 !PRESS CONT TO CONFIRM ELSE CANCEL GROSS TURNOVER: # 2J GROSS TURNOVER: # 2 GROSS TURNOVER: # 2 GROSS TURNOVER: # 2 CURR. TURNOVER: # 2K MLP INTEGRATED (N=0,Y=1) $ @ & SY
0x1f5408…1f559c Dummy {f00=0x0086, f01=0x0190, f02=»ANSACTION INQUIRY-A/C : a TRANS: / / /, AMOUNT : 2 NEW BALANCE: 2 LAST TRANS. REQ. (NO=0,YES=1)? @ e CURRENCY NAME : r CURRENCY CODE : s REL.: y BUYING RATES :(1) $t (2) "u SELLING RATES :(1
0x1f559c…1f5730 Dummy {f00=0x0086, f01=0x0190, f02=»Z DRAW CARD THROUGH BCR A Q DRAW CHEQUE THROUGH ODR # ACCOUNT OR CARD NUMBER : !a OPERATOR : CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 PRESS CONT TO CONFIRM ELSE CANC
0x1f5730…1f58c4 Dummy {f00=0x0086, f01=0x0190, f02=» SELLING RATES:(1) $v SELLING RATE :(2) "w LIMIT RATE 1 : *x CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CHEQUE BALANCE: # 2 PRESS CONT TO CONFIRM ELSE CANC CURRENCY EX
0x1f58c4…1f5a58 Dummy {f00=0x0086, f01=0x0190, f02=»LCUL.: k 1d CONTINUE EXCHANGE (NO=0,YES=1) ? @ h DEPOSIT - SAVINGS ACCOUNT: DEPOSIT - CHEQUE ACCOUNT: a 7 R4 BOOK BALANCE: U 1c LINE: # U # e NAME : AMOUNT : 1 NEW BALANCE : 2 CURRENCY NAME :
0x1f5a58…1f5bec Dummy {f00=0x0086, f01=0x0190, f02=»ATES :(1) $v (2) #w LIMIT RATE 1 : +x TRANSFER FROM ACCOUNT : T !a a , BOOK BALANCE: 1c LINE: e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 TRANSFER TO ACCOUNT : !b Q" OPEN SAVI
0x1f5bec…1f5d80 Dummy {f00=0x0086, f01=0x0190, f02=» Q PASSWORD: @ & CARD: CREDIT LIMIT: 0 ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT :
0x1f5d80…1f5f14 (2, 249) Dummy {f00=0x0086, f01=0x0190, f02=»EDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 TRANSFER TO ACCOUNT : !b OPERATOR NAME : 8 @ PASSWORD : @ LANGUAGE : @ CASH BALANCES : # 2 # 2 # 2 # 2 ZEROISE
0x1f5f14…1f60a8 Dummy {f00=0x0086, f01=0x0190, f02=» CURRENT BALANCE : 2 BOOK BALANCE : CREDIT LIMIT : 2 PASSWORD : CARD NUMBER : ! INQUIRY SAVINGS ACCOUNT NR : INQUIRY CHEQUE ACCOUNT : a BALANCE : 2 BOOK BALANCE : CREDIT LIMI
0x1f60a8…1f623c Dummy {f00=0x0086, f01=0x0190, f02=»C.: WITHDRAWAL - CHEQUE ACC. : a - PASSWORD : ' Q NAME : - CHEQUE NR. : _ ) BOOK BALANCE: 1c LINE: e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 WITHDRAWAL - SAVINGS CHEQUE ACCOUNT:
0x1f623c…1f63d0 Dummy {f00=0x0086, f01=0x0190, f02=» LINE: # U # e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 CASH DEPOSITS : # 2 CASH WITHDRAWALS : # 2 ACCUM. CHEQUES : # 2 ACCUM. TRANSFERS : # 2 CURRENCY SOLD : # 2
0x1f63d0…1f6564 Dummy {f00=0x0086, f01=0x0190, f02=»VINGS ACCOUNT NR. : a DEBLOCK SAVINGS ACCOUNT NR.: A c BLOCK CHEQUE ACCOUNT NR. : DEBLOCK CHEQUE ACCOUNT NR. : a NAME : CURRENT BALANCE : 2 BOOK BALANCE : 2 CREDIT LIMIT : 2 8 COMMENT : @ @ ! PRESS CONT TO CONFIRM
0x1f6564…1f66f8 Dummy {f00=0x0086, f01=0x0190, f02=»UNT e UPDATE ACCOUNT f UPDATE CURRENCY g INQUIRY ACCOUNT h DAILY STATEMENT i OPERATOR CLOSE j SYSTEM CLOSE k CURRENCY EXCH. l CURRENCY INQ. m LIST ACCOUNTS ` i Z ! X Y ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT N
0x1f66f8…1f688c Dummy {f00=0x0086, f01=0x0190, f02=» : # LAST TRANSACTION : LAST PRINTED : ACCUM. DEPOSITS : 0 ACCUM. WITHDRAWALS : 0 ALPHA KEYBOARD (N=0,Y=1) ? ! @ 8 SHARED PRINTING (N=0,L=1,R=2) ? ! @ 9 TEP(=0) TTP(=1) GTP(=2) TEP-ZEK(=3)
0x1f688c…1f6a20 Dummy {f00=0x0086, f01=0x0190, f02=» > TND (N=0,Y=1)? ! @ ? TERMINAL I.D. : 2 8 TERMINAL NAME ? 5 ' TERMINAL NAME : FRONT OFFICE( 2 ) ***** 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT ***** $PHILIPS PTS 6344 VISUAL DISPLAY UNIT $PHILIPS PTS 6344 VISUAL
0x1f6a20…1f6bb4 (2, 250) Dummy {f00=0x0086, f01=0x0190, f02=»23456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONAL VERSION : #@[ ]`{|}~ SCREEN-SIZE : !20 LINES / 64 CHARACTERS PER LINE OPTIONAL : !24 LINES / 80 CHARACTERS PER LINE NAME : @ ADD
0x1f6bb4…1f6d48 Dummy {f00=0x0086, f01=0x0190, f02=»(;vu^g-lqX!S[ 3 ?a <2&> % imfpsIkn_rE@0jtDK/`e WTQ81L9VUbohcd]MZBPH6N F* $'.7YC44444444h 0 !0 " % * / 5 ; A G N U ] e m v
0x1f6d48…1f6edc Dummy {f00=0x0086, f01=0x0190, f02=» 0 E Z q 5 O j 2 P p " # # $ % % A % f % % ' ) * % , O - { 0 1 4 4 = < q B C E 2 G w G M Q R Q T T H V ` f R p ( + @ m
0x1f6edc…1f7070 Dummy {f00=0x0086, f01=0x0190, f02=» G & + P _ ]N E H0#0 T H0#0 T V E ]z 2 & >A >A 2 $ H0 & V D 9a 9 V @ W @ T = X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X (
0x1f7070…1f7204 Dummy {f00=0x0086, f01=0x0190, f02=» R<W, V P& W$ U V X 9T I Y E 9 _ ( > w DF ? > x >" ? _ G &:K : > x / ? W( > / x w DF ? > / _ > x / ? > / ? > x ? W @ ? > /
0x1f7204…1f7398 Dummy {f00=0x0086, f01=0x0190, f02=» J?2 ' W 781"&$ 39#$;< '()*+,-! B2 B H0 P _@ A: B H0 'W A: ( W^ H0 B& A: ( 1W C C " ]R ( ' P6 @" P& V ,V D W B % P C + C Bt E A I B P
0x1f7398…1f752c Dummy {f00=0x0086, f01=0x0190, f02=» : ( ' P A I : A B % Y G C H0 & ] ] C H0 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D JRWD' #? J ;B V D ]V W ,"? :D;B D V : _B W
0x1f752c…1f76c0 Dummy {f00=0x0086, f01=0x0190, f02=»H0 C : : A B& ,V DF : G P C W $0 P C B : ($ $ P 3 H Q ) : G #0 T & C C : B C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W
0x1f76c0…1f7854 (2, 251) Dummy {f00=0x0087, f01=0x0190, f02=» V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 D G #0 T B ' : B B C6 : V C G P C #0 T & C C : B C C :ERERERF4GDE G<M@J J
0x1f7854…1f79e8 Dummy {f00=0x0087, f01=0x0190, f02=»! P x` P W E, @D R a F@ pVV 9c DD 9a1 P H0 G Q D W LL :aW* @D YZP & @D ]f @D ]p ]z 2 P V W< _ 2 # ;B G V T W V P L , V 2P " 2 P V D !
0x1f79e8…1f7b7c Dummy {f00=0x0087, f01=0x0190, f02=» V E W 2 % ^ 6 E 7_ 2 # PL L PF H0 2# &] 3Y $! 2P R P _ 9BP E _ W E 6 D " 7 $ V P x` W F2 DR E~ J V & E HD 'W 'W '_8 :l:d:h
0x1f7b7c…1f7d10 Dummy {f00=0x0087, f01=0x0190, f02=» # J LGn D V $ W D V LGv , W 6 2 JRW$ " P& Pd" # J ;b Wv " ;d# _ [ v [ x H0 x Z Z : R ; H0 6 : F _v ] :B , (V ; H [ [
0x1f7d10…1f7ea4 Dummy {f00=0x0087, f01=0x0190, f02=» ] ] & Z 4 J : Z 4 " 2@P : [ [ H0 & @ ! P ]v Z ]v [ 6 [ Z 7 G Z 7 : T # ( H Hh " T # :A ( @ " P ! P [ :;H 2 ;h
0x1f7ea4…1f8038 Dummy {f00=0x0087, f01=0x0190, f02=» # " T & T + : * & !@P `1` P L Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _
0x1f8038…1f81cc Dummy {f00=0x0087, f01=0x0190, f02=»P8" T * & : * & !`P :J +_ +Q L _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b N P NZ Pd P 0
0x1f81cc…1f8360 Dummy {f00=0x0087, f01=0x0190, f02=»^ , < N # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : ] &9d! + P( & T 9d!
0x1f8360…1f84f4 (2, 252) Dummy {f00=0x0087, f01=0x0190, f02=» : 2' G [ [ H0 Z Z M@ : V ) 0 !0 " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 ] [ [ [ [ $
0x1f84f4…1f8688 Dummy {f00=0x0087, f01=0x0190, f02=» V H )_ S Q _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 !0 " Tz *V &V PP= ;@ R P W ;a=a P " R & R V
0x1f8688…1f881c Dummy {f00=0x0087, f01=0x0190, f02=»P S^ S M@ S M@ S J z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z S L Q S Q P _ T { [ S Sj [ Q@ [ S J { R [ _ S J S Q Z ! Z $ Z %_N [ Q* S J S L R [ Z { S J z
0x1f881c…1f89b0 Dummy {f00=0x0087, f01=0x0190, f02=» [ ( !! gg++ L 33 X G G J X J G H0X U VjU U X XnX X V.UBV8T V X(X(VLV X U U< TP 6 T K K K K V K : H0 T T TP G V U T U V Z P 2 " T W "@
0x1f89b0…1f8b44 Dummy {f00=0x0087, f01=0x0190, f02=» ] 7_ W Z U @ ! P x` Z 7 Z Z P x` : V R (Q V : : T J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K VVWJ V W +_ V. V* K W. _& X @hW
0x1f8b44…1f8cd8 Dummy {f00=0x0087, f01=0x0190, f02=»P !EET W R IX * B Z 9 ! ; *Xt 8 ! DX 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J ]" 1 V !00T ; VX _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? ]& Z ] 49d_4
0x1f8cd8…1f8e6c Dummy {f00=0x0087, f01=0x0190, f02=»PT*AXYZ9 U X2 : ! P ! P ! P ! P H0 ! P G W : ! )P9H " # T &W &" :I : X : P & _ &X _ : ]2 : : : Z Tt : { : Z $0T Z4 Pb 9 _ Z $0T [ Z
0x1f8e6c…1f9000 Dummy {f00=0x0087, f01=0x0190, f02=» V E Z $0T Wr W W ]z Z [ Z : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : M` : H0 H0#03 T jP kT T : & 9! " : $ : T W V 9! R W
0x1f9000…1f9194 (2, 253) Dummy {f00=0x0087, f01=0x0190, f02=»L MODIFIED OPERAND CREDIT 11.0 TRACE @Z P ( _ AZ AZ Z ( @Z ' $ * AZ T( Z ( AZ AZ ( Z p AZ ) Y V AZ Z V V a . 1 V a v a
0x1f9194…1f9328 Dummy {f00=0x0087, f01=0x0190, f02=»[ V D ! )0 1 @ # T 6 V ^ a AZ E, Z ( ( AZ : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W !W "W V H P H Bt
0x1f9328…1f94bc Dummy {f00=0x0087, f01=0x0190, f02=» "T @ % W T, @ % 1 X & a AZ [ @Z c E, ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT OPENED MISSING ENTRY ILLEGAL REQUESTED LENGTH FILE OPENED AS INDEX FILE FILE OPENED AS STANDAR
0x1f94bc…1f9650 Dummy {f00=0x0087, f01=0x0190, f02=»IT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETE
0x1f9650…1f97e4 Dummy {f00=0x0087, f01=0x0190, f02=»ER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE FILE ORGANIZATION UNDEFINED SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE: W 9 " R 0 1 Y : ;a V P V P W <0<a R 9a V b
0x1f97e4…1f9978 Dummy {f00=0x0087, f01=0x0190, f02=» . @d P$ b d $ $P BT , D E @ : @b P Ab H Ad W TW V Ab d d V Ad @ ( e ( Ab d @d V P ( R W b @ ( e : @ ( f : Ad Ad E Ab d V Ad @ # P ( R4 d @ ( e ( Ab d @d V P
0x1f9978…1f9b0c Dummy {f00=0x0087, f01=0x0190, f02=»
0x1f9b0c…1f9ca0 Dummy {f00=0x0087, f01=0x0190, f02=» d v ( ( v ( ed u D "! Ae u u @d @d @e P ( ef V u R ef V W Z Te
0x1f9ca0…1f9e34 (2, 254) Dummy {f00=0x0087, f01=0x0190, f02=» Ae w Ae "V # ( ed u Ae P UW T u u Ae P v4 g s g @g gh =h Wh Qi Mj| /k Sl Im Jm Tn> YnJ Gn Ln Pn Hn Ro Vo Ko u u _ g~ u|_ NO! Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag A
0x1f9e34…1f9fc8 Dummy {f00=0x0087, f01=0x0190, f02=» ,T q X ) Ag Ag v s hn h ;h :h h @g P Ag 1+X Ag _ h @g Ag @g Ag @g Ag @g Ag _ sP Ag @g V sl h " @g T " @g @g P Ag Ag " gh @g u f T @e Ag @e Ag @e Ag @e Ag @g At @g Ae @g Ae @g Ae P tH W @
0x1f9fc8…1fa15c Dummy {f00=0x0087, f01=0x0190, f02=» PZ @g & u 0 u P P u u| P @R u u k _ u u u u _T u u j8 f 4 u T P u u|W T @R u u W u u u B "T" @e Ag @e Ag @e Ag @e Ag W @g T @g W @g @g @g R l >a
0x1fa15c…1fa2f0 Dummy {f00=0x0087, f01=0x0190, f02=» t8 u| Auz f @g R V ;a Q u _ v 1 f u @t Ae _ 0 u u Ak g P 3P gh C @g P @g 1 @e P @g Q @ @g Q P " f T @e Ag @e Ag @e Ag @e Ag @g At @g Ae @g Ae @g Ae P tH W @g T l @g V @t Ae 0
0x1fa2f0…1fa484 Dummy {f00=0x0087, f01=0x0190, f02=» V " @g T @d s TP @g P @g At Ae Ae i^ u 0! u u g T @g P @g " 1 f ghPx @g @g @g @g T @d q RX At *9l! P2 i^ m &9d! ) m W P$ &9d m & m _ m & m f gh Am Am u @w Z u "
0x1fa484…1fa618 Dummy {f00=0x0087, f01=0x0190, f02=»! 5 = f gh gh pZ f P @g gh p W" c p c $ B % Ac f T @d W @g Ae gr @g R Ad Ae Ad @d ( f Ae gr @d p, gh @g @g T I @_:P pZ @d p _ Ae gr Ad @g Ad f @g ! AD f Pd @g @g PL @g P v v
0x1fa618…1fa7ac Dummy {f00=0x0087, f01=0x0190, f02=»P _ H B @g T @d H Ao " gh EQ GT LT NE NG NL P2 @e R* v s p @g P Q p ( f gh L U c ( R ( @g V @d H B W # + C " c B Ap Ap :B Ap gh (P _ B @g @g @g P p, gr
0x1fa7ac…1fa940 Dummy {f00=0x0087, f01=0x0190, f02=» C C *T W #T Ag v t P PR (T q Pl ,T q P^ )TX v sP Ag T @d q R: ?aP *:l" T* & W T C B B B B B " gh Ar Ar Ar Ar Ar Ar Ar s R Q ! 9D# 9hP Q " ;B 2
0x1fa940…1faad4 (2, 255) Dummy {f00=0x0088, f01=0x0190, f02=» C " _* Q P Q V _ W " As < V " F <P W* @e " P ( gh $ C " :T v v v " " As Ag .T @e P u P " Ag "
0x1faad4…1fac68 Dummy {f00=0x0088, f01=0x0190, f02=» At T Auz T tH @g R l Aux N @t " @e ! PD @g T @d s t Q";H @t ;d t ( @t "( gh @t " :S :X :Y :Z v $P WH v At At 0R 9Q 0 At :B v _" At " v AuP
0x1fac68…1fadfc Dummy {f00=0x0088, f01=0x0190, f02=»u "! R _U .WV Au : u Au " 9d u ! R :W& u W u W W ?W :W .W / av Av T v^ " @v T v^ Av$ v( v ( @v Av " v^ vT v ( A( vR( Av " Av v @v v P Av v ( v Av
0x1fadfc…1faf90 Dummy {f00=0x0088, f01=0x0190, f02=» A 2 2 ! <e > / V ,!? B H ! T )@) - ? A C -/ ? A <H _ ( H0 R ' E H0 B& A: ,# ; ( R 1 E _` A w DF C / ? V ,
0x1faf90…1fb124 Dummy {f00=0x0088, f01=0x0190, f02=» E V D ' $ ]^ W x` P E X =' V W V Y =P x` :
0x1fb124…1fb2b8 Dummy {f00=0x0088, f01=0x0000, f02=» ! INQUIRY SAVINGS ACCOUNT NR : INQUIRY CHEQUE ACCOUNT : a BALANCE : + BOOK BALANCE : CREDIT LIMIT : + STATUS : LAST TRANS. REQ. (NO=0,YES=1)? @ e ` TRANSACTION INQUIRY-A/C : a TRANS:
0x1fb2b8…1fb44c Dummy {f00=0x0088, f01=0x0000, f02=»CCOUNT NR. : a DEBLOCK SAVINGS ACCOUNT NR.: A c BLOCK CHEQUE ACCOUNT NR. : DEBLOCK CHEQUE ACCOUNT NR. : a NAME : CURRENT BALANCE : + BOOK BALANCE : + CREDIT LIMIT : + 8 COMMENT : @ @ ! PRESS CONT TO CONFIRM ELSE C
0x1fb44c…1fb5e0 Dummy {f00=0x0088, f01=0x0000, f02=»UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT : + I > ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR.
0x1fb5e0…1fb774 (2, 256) Opaque[0x194]
0x1fb774…1fb908 # DirEnt {nam=»FORMDK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x1fb774…1fb908 IdxSect {
0x1fb774…1fb908 f00 = 0x0071 // 0x1fb774 @0x0
0x1fb774…1fb908 f01 = 0x0012 // 0x1fb776 @0x2
0x1fb774…1fb908 gno = [ // 0x1fb778 @0x4
0x1fb774…1fb908 [0x00]: C0x0071.0x0.0
0x1fb774…1fb908 [0x01]: C0x0071.0x1.0
0x1fb774…1fb908 [0x02]: C0x0137.0x1.0
0x1fb774…1fb908 [0x03]: C0x0137.0x2.0
0x1fb774…1fb908 [0x04]: C0x0137.0x3.0
0x1fb774…1fb908 [0x05]: C0x0139.0x1.0
0x1fb774…1fb908 [0x06]: C0x013a.0x0.0
0x1fb774…1fb908 [0x07]: C0x013a.0x1.0
0x1fb774…1fb908 [0x08]: C0x013a.0x2.0
0x1fb774…1fb908 ]
0x1fb774…1fb908 }
0x1fb908…1fba9c Dummy {f00=0x0071, f01=0x0190, f02=»A ?XT CR*n: R = n p + b
0x1fba9c…1fbc30 Dummy {f00=0x0071, f01=0x0190, f02=» + " 2 p ` n e A0 x R n < N 2 h & f 6 j ~ V vA0 0 * 8 2UBF UIF UCY UOP UA1 UA2 fUT1 UT2 VUQQ (
0x1fbc30…1fbdc4 Dummy {f00=0x0071, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N
0x1fbdc4…1fbf58 Dummy {f00=0x0071, f01=0x0190, f02=» * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F : 0 0 0 @
0x1fbf58…1fc0ec Dummy {f00=0x0071, f01=0x0190, f02=»
[…0x2…]
0x1fc414…1fc5a8 Dummy {f00=0x0071, f01=0x0190, f02=» * B
0x1fc5a8…1fc73c Dummy {f00=0x0071, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0 0 !0 %0 )0 -0 10 7
0x1fc73c…1fc8d0 Dummy {f00=0x0071, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x1fc8d0…1fca64 Dummy {f00=0x0071, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20
0x1fca64…1fcbf8 Dummy {f00=0x0071, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D D D U U f D f >
0x1fcbf8…1fcd8c Dummy {f00=0x0071, f01=0x0190, f02=» 0 0 0 " A : : : ,: w: NA 0 1 1 0 W " " E E E 1 1 50 0 0 T P P 0 ] 0 D G 0 DGT 0 jE ]P G 0 H G "G 0 ^vG ] j] P^ jB ^P C JH(BC 0 ]J0 ^6W j]P E 0 ]J ] j] P^P KE
0x1fcd8c…1fcf20 Dummy {f00=0x0071, f01=0x0190, f02=»&1 1 JW 1 1 AW 1 1 GW 1 1 O 0 I D 1 1 =0 0 ( - 1 H1 H #,HD H H JD0 ] J0 D G 0 DGT 0 I I T_e0 H 4 <2= ; ; V ; < : V : ;F; Vv; U U a D 1 9Z99ZZ9999999ZZZZ99999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9
0x1fcf20…1fd0b4 (2, 258) Dummy {f00=0x0137, f01=0x0190, f02=»VZZZVZZZ,ZZ I/O ERROR DISK ERROR FRONT OFFICE REQUEST ERROR WRONG PASSWORD PRESS CONTINUE NO TRANSACTIONS SAME KEY VALUES SAVINGS ACCOUNT ACCOUNT BLOCKED BAD NOTES OR JAM OPERATOR UNKNOWN RECORD PROTECTED DELIVERY TIME-OUT INSUF
0x1fd0b4…1fd248 Dummy {f00=0x0137, f01=0x0190, f02=»TTE FULL BALANCE NOT ZERO * INPUT DEVICE FAILURE CASSETTE EMPTY UNSERVICEABLE REQUEST FIELD MUST BE ENTERED COMM. OR HARDWARE ERROR FILE OPEN UNSUCCESSFULL ILLEGAL END-OF-ITEM KEY OPERATOR I.D. : e PROGRAM ERROR-DEBUG HELP NO T
0x1fd248…1fd3dc Dummy {f00=0x0137, f01=0x0190, f02=»ATOR ALREADY LOGGED ON NOT YET IMPLEMENTED m VOLUME-NAME ? : DSC CONT FOR RETRY, ELSE CANCEL CASSETTE FAILS TO FEED MOUNT DAILY-STATEMENT-VOUCHER AVAILABLE CHARACTER SETS: OPEN FORMAT-FILE NOT SUCCESSFULL DISPLAY 01/06/08/
0x1fd3dc…1fd570 Dummy {f00=0x0137, f01=0x0190, f02=»NOT SPECIFIED "TERMINAL BLOCKED - CALL SUPERVISOR CHECK PASS-BOOK ON NEW PAGE m "PGM "FORMAT" SUCCESSFULLY EXECUTED REMAINING AMOUNT IN COINS: m &DISPENSE AMOUNT OVERDRAWN BY QUOTATION MOUNT VOUCHER IN VOUCHER-PRINTER " m "MOUNT PASS-BOOK
0x1fd570…1fd704 Dummy {f00=0x0137, f01=0x0190, f02=»NDED ** TND OPEN FAILURE CONT FOR RETRY, ELSE CANCEL Z 9 2 CANCEL = 2 X Y I/O ERROR WHILE READING OR WRITING FORMAT-FILE ACC. CARD NAME " ACCUM.DEP. 1 ACCUM.WITHD. ? ST [ ] ^ _ i !PHILIPS PTS 6
0x1fd704…1fd898 Dummy {f00=0x0137, f01=0x0190, f02=»PENSE CANCELED DO TRANSACTION TND-OPEN AGAIN "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER WRONG CASSETTE SEQUENCE ORDER $PRESS CONT AFTER RELOAD, ELSE CANCEL && "MOUNT CONTINUOUS STATIONARY ON GTP # !MOUNT CONTINUOUS STATIONARY ON L
0x1fd898…1fda2c Dummy {f00=0x0137, f01=0x0190, f02=» ( DEPOSIT WITHDRAWAL TRANSFER & *+c =+d ODR (N=0,Y=1) ? @ < TERMINAL I.D. : 2 TERM.NAME : FRONT OFFICE( 2 ) SPECIAL CHARACTERS : 0 1 2 3 4 5 6 7 8 9 : ; < 0 1 2 3 4 5 6 7 8 9 GROSS TURNOVER : # *J # *
0x1fda2c…1fdbc0 Dummy {f00=0x0137, f01=0x0190, f02=»IME (HHMM) : DATE (DDMMYY) : 'e DISPENSE QUANTITY SPECIFICATION DENOMINATION: " " " " $CASSETTE DENOMINATION NO. OF NOTES ! ! !
0x1fdbc0…1fdd54 (2, 259) Dummy {f00=0x0137, f01=0x0190, f02=»RESS CONT. TO CONFIRM, ELSE CANCEL $ W CASH BALANCES : # * # * # * # * CHEQUE BALANCE : # * !PRESS CONT TO CONFIRM ELSE CANCEL GROSS TURNOVER: # *J GROSS TURNOVER: # * GROSS TURNOVER: # *
0x1fdd54…1fdee8 Dummy {f00=0x0137, f01=0x0190, f02=»E ? ! 8 ! @ # TEXT ? 8 @ ' TIME (HHMM) ? DATE (DDMMYY) ? ' TRANSACTION INQUIRY-A/C : a TRANS: / / /& AMOUNT : * NEW BALANCE: * LAST TRANS. REQ. (NO=0,YES=1)? @ e CURRENCY NAME :
0x1fdee8…1fe07c Dummy {f00=0x0137, f01=0x0190, f02=» LIMIT RATE 1 : $x U T] 6A , !MOUNT PASSBOOK IN VOUCHER-PRINTER $ m m PUT CARD IN MSU Z DRAW CARD THROUGH BCR A Q DRAW CHEQUE THROUGH ODR # ACCOUNT OR CARD NUMBER : a OPERATOR : CASH BALANCE : # * CASH BALANCE : # *
0x1fe07c…1fe210 Dummy {f00=0x0137, f01=0x0190, f02=» : r CURRENCY CODE : s REL.: y BUYING RATES :(1) !t BUYING RATE :(2) u SELLING RATES:(1) !v SELLING RATE :(2) w LIMIT RATE 1 : $x CASH BALANCE : # * CASH BALANCE : # * CASH BALANCE : # * CASH BAL
0x1fe210…1fe3a4 Dummy {f00=0x0137, f01=0x0190, f02=»ING) (BUYING) RATE: # #v #t / s "y AMOUNT QUOTED : j )c AMOUNT CALCUL.: k )d CONTINUE EXCHANGE (NO=0,YES=1) ? @ h DEPOSIT - SAVINGS ACCOUNT: DEPOSIT - CHEQUE ACCOUNT: a 7 R4 BOOK BALANCE: U )c LINE: #
0x1fe3a4…1fe538 Dummy {f00=0x0137, f01=0x0190, f02=»NCY CODE : 8 @ s REL.: y BUYING RATES :(1) !t (2) u SELLING RATES :(1) !v (2) w LIMIT RATE 1 : %x TRANSFER FROM ACCOUNT : T a a , BOOK BALANCE: )c LINE: e CREDIT LIMIT:
0x1fe538…1fe6cc Dummy {f00=0x0137, f01=0x0190, f02=»R : OPEN CHEQUE ACCOUNT NUMBER : a NAME : ADDRESS : TOWN : Q PASSWORD: @ & CARD: CREDIT LIMIT: ( ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ AD
0x1fe6cc…1fe860 Dummy {f00=0x0137, f01=0x0190, f02=»M ACCOUNT : T U a a 5 BOOK BALANCE: U )c LINE: " U " e CREDIT LIMIT: ( AMOUNT : ) NEW BALANCE : * TRANSFER TO ACCOUNT : b OPERATOR NAME : 8 @ PASSWORD : @ LANGUAGE :
0x1fe860…1fe9f4 (2, 260) Dummy {f00=0x0137, f01=0x0190, f02=»,Y=1) ? # @ e CLOSE SAVINGS ACCOUNT NR : CLOSE CHEQUE ACCOUNT NR : a NAME : CURRENT BALANCE : * BOOK BALANCE : CREDIT LIMIT : * PASSWORD : CARD NUMBER : ! INQUIRY SAVINGS ACCOUNT NR :
0x1fe9f4…1feb88 Dummy {f00=0x0137, f01=0x0190, f02=» STATUS : LAST TRANS. REQ. (NO=0,YES=1)? @ e WITHDRAWAL - SAVINGS ACC.: WITHDRAWAL - CHEQUE ACC. : a - PASSWORD : ' Q NAME : - CHEQUE NR. : _ ) BOOK BALANCE: )c LINE: e CREDIT LIMIT: (
0x1feb88…1fed1c Dummy {f00=0x0137, f01=0x0190, f02=»ORD : + Q NAME : - CHEQUE NR. : _ 4 BOOK BALANCE: U )c LINE: # U # e CREDIT LIMIT: ( AMOUNT : ) NEW BALANCE : * CASH DEPOSITS : # * CASH WITHDRAWALS : # * ACCUM. CHEQU
0x1fed1c…1feeb0 Dummy {f00=0x0137, f01=0x0190, f02=»: # * CURRENCY ACCUM. : # * # * # * C c BLOCK SAVINGS ACCOUNT NR. : a DEBLOCK SAVINGS ACCOUNT NR.: A c BLOCK CHEQUE ACCOUNT NR. : DEBLOCK CHEQUE ACCOUNT NR. : a NAME : CURRENT BALANCE : *
0x1feeb0…1ff044 Dummy {f00=0x0137, f01=0x0190, f02=» 9 ` OPERATOR START a OPEN ACCOUNT b CLOSE ACCOUNT c BLOCK ACCOUNT d DEBLOCK ACCOUNT e UPDATE ACCOUNT f UPDATE CURRENCY g INQUIRY ACCOUNT h DAILY STATEMENT i OPERATOR CLOSE j SYSTEM CLOSE k CURRENCY EXCH. l CURRENCY INQ. m LIST ACCO
0x1ff044…1ff1d8 Dummy {f00=0x0137, f01=0x0190, f02=»OOK BALANCE: ( LINE: " CREDIT LIMIT: * BALANCE : * STATUS : # LAST TRANSACTION : LAST PRINTED : ACCUM. DEPOSITS : ( ACCUM. WITHDRAWALS : ( ALPHA KEYBOARD (N=0,Y=
0x1ff1d8…1ff36c Dummy {f00=0x0137, f01=0x0190, f02=»: NO(=0),BCR(=1),MSU(=2) ? ! @ ; ODR (N=0,Y=1) ? ! @ < HARDCOPY HP75 (N=0,Y=1)? ! @ > TND (N=0,Y=1)? ! @ ? TERMINAL I.D. : 2 8 TERMINAL NAME ? 5 ' TERMINAL NAME : FRONT OFFICE( 2 ) ***** 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL
0x1ff36c…1ff500 Dummy {f00=0x0137, f01=0x0190, f02=» $PHILIPS PTS 6344 VISUAL DISPLAY UNIT AVAILABLE CHARACTER SET : !#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONAL VERSION : #@[ ]`{|}~ SCREEN-SIZE : !20 LINES / 64 CHARACTER
0x1ff500…1ff694 (2, 261) Dummy {f00=0x0139, f01=0x0190, f02=» ZIP-CODE : D Z CITY : ,@ BRANCHNR : f ACCOUNTNR : , e# ,) + "(;ut]f-kpW!RZ 3 ?` <2&> % hleorIjm^qE@0isDK/_d[VSQ81L9UTangbc MYBPH6N F* $'.7XC44444444 0 0 %
0x1ff694…1ff828 Dummy {f00=0x0139, f01=0x0190, f02=» 0 E Z q 5 O j 2 P p " # # $ % % A % f % % ' ) * % , O - { 0 1 4 4 = < q B C E 2 G w G M Q R T T V K ` f p g V b
0x1ff828…1ff9bc Dummy {f00=0x0139, f01=0x0190, f02=» 9 Dv C & + P _ A Dv Dv V A ( < A = < ;( = _ C &:K : ; / = W ; / A = ; / _ ; / = ; / = ; = > A C <H / = > _ ; = W
0x1ff9bc…1ffb50 Dummy {f00=0x0139, f01=0x0190, f02=»? C C W ? C 9HR <` ' W 781"&$ 39#$;< '()*+,-! ? > Dv P _J >l B Dv 'W >l ( W| Dv ? >l 1 ( 0 W : 1W C C ( ' P0 =h P& V
0x1ffb50…1ffce4 Dummy {f00=0x0139, f01=0x0190, f02=» B P C = : V I C B : ( ' P >: I : > > % Y C C Dv & R V C Dv : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D FDW<' #? F ;B V D W ,"? :D;B D
0x1ffce4…1ffe78 Dummy {f00=0x0139, f01=0x0190, f02=» : C P C W $0 P C ?X : C #0 T & C C : ?x C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " ? : P@ @ PR L@ R R
0x1ffe78…20000c Dummy {f00=0x0139, f01=0x0190, f02=» U :J a B@ ' d w5 1 @ C #0 T B ' : B B ? : V C C P C #0 T & C C : ?x C C :A A A B C A C I F F H*KpL L K B B C A CPA C C O T T TDTbT T C C C C W V 7 @ ! P W P
0x20000c…2001a0 Dummy {f00=0x0139, f01=0x0190, f02=» _ 2 # ;B V T W V P L , V 2P " 2 P V D ! R T V P V W W V _ 8^n DAl Vt @ 2 ! 9B V T W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # L Dv 2# &X
0x2001a0…200334 (2, 262) Dummy {f00=0x013a, f01=0x0190, f02=» V & B HA 'W 'W '_8 :l:d:h Dv W W P W 6 2# FDW4 @ EC " T> ; [ # F :H 2 T Z L LC D V, W # F LC D V $ W D V LC , W 6 2 FDW$ " P& Pd" #
0x200334…2004c8 Dummy {f00=0x013a, f01=0x0190, f02=» 6 : F _v :B , (Vv ; H [ [ [ Dv z ;AV$ Z H # Fv ; Dv : & Z 4 Fv : Z 4 " 2@P : [ [ Dv & @ ! P [ 6 [ Z 7 C Z 7
0x2004c8…20065c Dummy {f00=0x013a, f01=0x0190, f02=» Y : 2! : 6 2 FDW& " # F ;b ; : ;f" #?_" W " T & T + : * & !@P `1` P H Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF
0x20065c…2007f0 Dummy {f00=0x013a, f01=0x0190, f02=» :" P * U P 1`! T "# 9e! # K : P8" T * & : * & !`P :J +_ +Q H _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P
0x2007f0…200984 Dummy {f00=0x013a, f01=0x0190, f02=» P 9_. &" ! ! P $ T 9 : & P Q I ,^ , < I # ; [ _ ' 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
0x200984…200b18 Dummy {f00=0x013a, f01=0x0190, f02=» P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' C [ [ Dv Z Z I : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [
0x200b18…200cac Dummy {f00=0x013a, f01=0x0190, f02=» w [ P O F V H )_ O L _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T
0x200cac…200e40 Dummy {f00=0x013a, f01=0x0190, f02=»O I O F z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z O H Q O L P _ T { [ O N [ Q@ [ O F { R [ _ O F O L Z ! Z $ Z %_N [ Q* O F O H R [ Z { O F z 9e! W Z
0x200e40…200fd4 (2, 263) Dummy {f00=0x013a, f01=0x0190, f02=» gg++ L 33 T C C F T F C DvT QVQ QlQ>T S S S Q P Q P|Q S S Q Q T QlP O 6 P K K K K V K : Dv O O O C V Q P Q( V Z P 2 " T W "@T '?W "?
0x200fd4…201168 Dummy {f00=0x013a, f01=0x0190, f02=»Q( @ ! P W Z 7 Z Z P W : V R (Q V : : O J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K Q WJ Q W +_ Q Q K W. _& X = W X & = J K : V
0x201168…2012fc Dummy {f00=0x013a, f01=0x0190, f02=»! ; *Xt 8 ! DSt 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 RH !00T ; Q _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K
0x2012fc…201490 Dummy {f00=0x013a, f01=0x0190, f02=»P Dv ! P C W : ! )P9H # T &W &" :I : T : P & _ &X _ : : : : Ud O : { : U U PX 9 _ U [ U Z : R" P $ 1T Y W 5 _$ : U
0x201490…201624 Dummy {f00=0x013a, f01=0x0190, f02=» R ! :DW ! 9 R R _. : I4 : Dv Dv jP kT T : & 9! " : $ : Ud C $ : > 2 2 ! <e ; / V ,!? B H ! T )@) - = > C -/ = > <H _ ( Dv R ' A Dv
0x201624…2017b8 Dummy {f00=0x013a, f01=0x0190, f02=» & V D 9a 9 V @ W @ T W X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X ( R 9 8 ? X Q" , V ( Rf - 4T V 5 ( R<W, V
0x2017b8…20194c Dummy {f00=0x013a, f01=0x0190, f02=» W P A X =' V W V Y =P W :
0x20194c…201ae0 Dummy {f00=0x013a, f01=0x0190, f02=» C R R ~ D G X j DGX D W j D W D j D D 0 D0 4 0 0 4 1 w BDSC001FORMFILEZ9ZZZPP999ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99-99999999999ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99F*ZVZZZVZZ9,99- e e e e e e3e.e e e-e e e e,e e e e!e e"e#
0x201ae0…201c74 (2, 264) Dummy {f00=0x013a, f01=0x0190, f02=» c Q . R J j z
0x201c74…201e08 Dummy {f00=0x013a, f01=0x0190, f02=» & (2) & ZZZZ,ZZT , " u D & T & SELLING RATES :(1) b & ZZZ9,99- " v & & (2) & ZZZZ,ZZA
0x201e08…201f9c Dummy {f00=0x013a, f01=0x018e, f02=» & & OPERATOR I.D. :( & 6 ZZZZZR H " e ^ ( n z & & OPERATOR NAME :( & 8 P & @R & & & PASSWORD
0x201f9c…202130 Dummy {f00=0x013a, f01=0x018e, f02=» & & & & . & < & CASH BALANCES :( J & h & # A v & H ! ZZZZZZZZ9,99-( " ! H & ! & & # & H
0x202130…2022c4 Dummy {f00=0x013a, f01=0x0190, f02=» " # H & # & $ & # 2 & H B $ ZZZZZZZZ9,99-( T " $ H r & $ * & &$ ZEROISE ACCUMULATORS (N=0,Y=1) ? & # @ % 9@ " %e ( &
0x2022c4…202458 Dummy {f00=0x013a, f01=0x0190, f02=» ' H & ' & CASH WITHDRAWALS : & < & # A J & H Z ( ZZZZZZZZ9,99-S l " ( H & ( & ACCUM. CHEQUES : & & # C & U ) ZZZZZZ
0x202458…2025ec Dummy {f00=0x013a, f01=0x0190, f02=»ZZZZZZZZ9,99-S " * U & * ( & * 6 & * D & * R & CURRENCY SOLD : ` & # U & R + ZZZZZZZZ9,99- " + R & + & CURRENCY BOUGHT : & # U
0x2025ec…202780 Dummy {f00=0x013a, f01=0x0190, f02=» & R - ZZZZZZZZ9,99- " - R 0 & - B & P & # ^ & R n . ZZZZZZZZ9,99- " . R & . & & # & R / ZZZZZZZZ9,99-
0x202780…202914 (2, 265) Opaque[0x194]
0x202914…202aa8 # DirEnt {nam=»FMTDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cc8, f03=0x0000}
0x202914…202aa8 IdxSect {
0x202914…202aa8 f00 = 0x0166 // 0x202914 @0x0
0x202914…202aa8 f01 = 0x0052 // 0x202916 @0x2
0x202914…202aa8 gno = [ // 0x202918 @0x4
0x202914…202aa8 [0x00]: C0x0166.0x1.0
0x202914…202aa8 [0x01]: C0x0166.0x2.0
0x202914…202aa8 [0x02]: C0x0166.0x3.0
0x202914…202aa8 [0x03]: C0x0167.0x0.0
0x202914…202aa8 [0x04]: C0x0167.0x1.0
0x202914…202aa8 [0x05]: C0x0167.0x2.0
0x202914…202aa8 [0x06]: C0x0167.0x3.0
0x202914…202aa8 [0x07]: C0x0168.0x0.0
0x202914…202aa8 [0x08]: C0x0168.0x1.0
0x202914…202aa8 [0x09]: C0x0168.0x2.0
0x202914…202aa8 [0x0a]: C0x0168.0x3.0
0x202914…202aa8 [0x0b]: C0x0169.0x0.0
0x202914…202aa8 [0x0c]: C0x0169.0x1.0
0x202914…202aa8 [0x0d]: C0x0169.0x2.0
0x202914…202aa8 [0x0e]: C0x0169.0x3.0
0x202914…202aa8 [0x0f]: C0x016a.0x0.0
0x202914…202aa8 [0x10]: C0x016a.0x1.0
0x202914…202aa8 [0x11]: C0x016a.0x2.0
0x202914…202aa8 [0x12]: C0x016a.0x3.0
0x202914…202aa8 [0x13]: C0x016b.0x0.0
0x202914…202aa8 [0x14]: C0x016b.0x1.0
0x202914…202aa8 [0x15]: C0x016b.0x2.0
0x202914…202aa8 [0x16]: C0x016b.0x3.0
0x202914…202aa8 [0x17]: C0x016c.0x0.0
0x202914…202aa8 [0x18]: C0x016c.0x1.0
0x202914…202aa8 [0x19]: C0x016c.0x2.0
0x202914…202aa8 [0x1a]: C0x016c.0x3.0
0x202914…202aa8 [0x1b]: C0x016d.0x0.0
0x202914…202aa8 [0x1c]: C0x016d.0x1.0
0x202914…202aa8 [0x1d]: C0x016d.0x2.0
0x202914…202aa8 [0x1e]: C0x016d.0x3.0
0x202914…202aa8 [0x1f]: C0x016e.0x0.0
0x202914…202aa8 [0x20]: C0x016e.0x1.0
0x202914…202aa8 [0x21]: C0x016e.0x2.0
0x202914…202aa8 [0x22]: C0x016e.0x3.0
0x202914…202aa8 [0x23]: C0x016f.0x0.0
0x202914…202aa8 [0x24]: C0x016f.0x1.0
0x202914…202aa8 [0x25]: C0x016f.0x2.0
0x202914…202aa8 [0x26]: C0x016f.0x3.0
0x202914…202aa8 [0x27]: C0x0170.0x0.0
0x202914…202aa8 [0x28]: C0x0170.0x1.0
0x202914…202aa8 ]
0x202914…202aa8 }
0x202aa8…202c3c Dummy {f00=0x0166, f01=0x0190, f02=» * L P************************************************************************ L PFMTTAB FTABLE ERR001,ERR002,ERR003,ERR004,ERR005, C ^ , P ERR006,ERR007,ERR008,ERR009,ERR010, C L P FMT011,FMT012,FMT013,FMT014,FMT015, C
0x202c3c…202dd0 Dummy {f00=0x0166, f01=0x0190, f02=»R023,ERR024,ERR025, C ~ L P ERR026,FMT027,ERR028,ERR029,MSG030, C > T P ERR031,ERR032,ERR033,ERR034,ERR035, C , P ERR036,ERR037,ERR038,FMT039,FMT0
0x202dd0…202f64 Dummy {f00=0x0166, f01=0x0190, f02=»054,FMT055, C v , P ERR056,FMT057,FMT058,FMT059,FMT060, C T P PRT061,MSG062,MSG063,MSG064,FMT065, C F , P FMT066,FMT067,FMT068,FMT069,FMT070, C , P FMT071,FMT072,FMT073,FMT074,FMT075, C , P FMT076,F
0x202f64…2030f8 Dummy {f00=0x0166, f01=0x0190, f02=»FMT091,ERR092,FMTDUM,FMTDUM,FMTDUM, C ( P FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM . P* Z P* d PFMTDUM FRMT n P FSL P FTEXT 'NOT YET IMPLEMENTED' P FKI 25 P FCOPY ICDUMMY P FMEND L P**********************************
0x2030f8…20328c Dummy {f00=0x0166, f01=0x0190, f02=»EN PARAMETER * * F L P************************************************************************ P PFMT011 FRMT FSL & ! FTEXT 'DISPLAY 01/06/08/20/24 ?' 8 P FKI 32,ME,MINL=1,MAXL=2,NUM,N
0x20328c…203420 Dummy {f00=0x0166, f01=0x0190, f02=»**** L L P* * L P* DEMONSTRATE VIDEO SCREEN * L P* * L P************
0x203420…2035b4 (2, 266) Dummy {f00=0x0166, f01=0x0190, f02=»***' z B P FTEXT 'DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT' P FTEXT '*****' R FNL t FNL P FLOW FTAB 12 2 P FTEXT 'PHILIPS PTS 6344 VISUAL DISPLAY UNIT' P FNL P FNL P FHIGH
0x2035b4…203748 Dummy {f00=0x0166, f01=0x0190, f02=»NUL P FTAB 12 P FUL > P FTEXT 'PHILIPS PTS 6344 VISUAL DISPLAY UNIT' ( P FNUL j FNL x FNL & P FTEXT 'AVAILABLE CHARACTER SET :' P FNL P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2
0x203748…2038dc Dummy {f00=0x0166, f01=0x0190, f02=»B 10 P FHIGH : P FTEXT X'505152535455565758595A5B5C5D5E5F' . P FTEXT X'606162636465666768696A6B6C6D6E6F' X . P FTEXT X'707172737475767778797A7B7C7D7E7F' P FNL P FLOW P FTEXT 'NATIONAL VERSION :' P FHIGH
0x2038dc…203a70 Dummy {f00=0x0166, f01=0x0190, f02=» FHIGH : P FTEXT '20 LINES / 64 CHARACTERS PER LINE' P FNL N P FLOW b P FTEXT 'OPTIONAL : ' x P FHIGH : P FTEXT '24 LINES / 80 CHARACTERS PER LINE' P FLOW P
0x203a70…203c04 Dummy {f00=0x0166, f01=0x0190, f02=» FCOPY ACNAME P FTAB 32 P FTEXT 'ADDRESS :' : * P FKI 44,MAXL=15,ALPHA,NEOI V P FCOPY ACADDRES P FNL P FTAB 5 P FTEXT 'ZIP-CODE :' 0 P FKI 16,MINL
0x203c04…203d98 Dummy {f00=0x0166, f01=0x0190, f02=»4,MAXL=15,ALPHA,NEOI ~ P FCOPY ACTOWN P FNL < P FTAB 5 H P FTEXT 'BRANCHNR :' X " P FKI 16,MINL=4,MAXL=4,ME,NEOI t P FMEL 'ZZZZ',IDNR2 P FTAB 32 P FTEXT 'ACCOUNTNR :' P FKI 44,MAXL=6,ME,NEOI P FMEL 'ZZZ
0x203d98…203f2c Dummy {f00=0x0166, f01=0x0190, f02=» * x L P* TERMINAL SPECIFICATION * 8 L P* * L P************************************************
0x203f2c…2040c0 Dummy {f00=0x0166, f01=0x0190, f02=»,NCLR,NEOI,APPL=31 t P FMEL '9',RDALFKB P FNL 4 , P FTEXT 'SHARED PRINTING (N=0,L=1,R=2) ?' @ 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 p P FMEL '9',RDSHRPRT P FNL $ P FTEXT 'TEP(=0) TTP(=1) GTP(=2)' P FNL $ P FTEXT '
0x2040c0…204254 (2, 267) Dummy {f00=0x0166, f01=0x018e, f02=»0),BCR(=1),MSU(=2) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDBCR T P FNL l P FTEXT 'ODR (N=0,Y=1) ?' x 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL & P FTEXT 'HARDCOPY HP75
0x204254…2043e8 Dummy {f00=0x0166, f01=0x0190, f02=» v 2 P FKI 33,MINL=1,MAXL=1,ME,NCLR,NUM,APPL=1,NEOI P FMEL '9',RDTND > P FNL V P FTEXT 'TERMINAL I.D. :' b P FTAB 31 P FMEL '999',NDTRMNR P FNL P FBZ RDALFKB,F01310 P FTEXT 'TERMINAL NAME ?' ( P FKI 17,ME,MINL=1,
0x2043e8…20457c Dummy {f00=0x0166, f01=0x0190, f02=» 'FRONT OFFICE(' P FMEL '999',NDTRMNR P FTEXT ')' 4 PF01390 F P FMEND T L P************************************************************************ b L P* * L P* SYST
0x20457c…204710 Dummy {f00=0x0166, f01=0x0190, f02=» * R L P************************************************************************ & PFMT014 FRMT SYSTEM START - PART 2 b L P FSL ***************************** 0 P FTEXT 'MLP INTEGRATED (N=0,Y=1) '
0x204710…2048a4 Dummy {f00=0x0166, f01=0x0190, f02=» FTEXT 'SYSTEM CURRENCY CODE ? ' T P FTAB 33 . P FBZ RDALFKB,F01410 8 P FKI 33,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01410 P FCOPY YCCCY(KW4)
0x2048a4…204a38 Dummy {f00=0x0166, f01=0x0190, f02=» F P FBZ RDALFKB,F01420 : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR * PF01420 h P FCOPY YCTEXT v P FNL & P FTEXT 'TIME (HHMM) ? ' T P FKI 22,ME,MINL=4,MAXL=4,NUM,NEOI,REWRT
0x204a38…204bcc Dummy {f00=0x0166, f01=0x0190, f02=» ( P FTEXT 'DATE (DDMMYY) ? ' @ P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,APPL=32,REWRT 4 ( P FMEL 'ZZE-ZZE-ZZ',NDDATE x P FMEND L P************************************************************************ L
0x204bcc…204d60 Dummy {f00=0x0166, f01=0x0190, f02=» * Z L P* * L P************************************************************************ j ( PFMT015 FRMT CURRENCY INITIALISATION L P FSL
0x204d60…204ef4 (2, 268) Dummy {f00=0x0167, f01=0x0190, f02=»7,ME,MINL=1,MAXL=20,ALPHA,NEOI,NCLR ~ PF01510 , P FCOPY CCCCYNME : P FNL ( P FTEXT 'CURRENCY CODE : ' p P FBZ RDALFKB,F01520 8 P FKI 17,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01520 P
0x204ef4…205088 Dummy {f00=0x0167, f01=0x0190, f02=»NCLR,APPL=21,REWRT b $ P FMEL 'ZZZZ9',CDRELAT P FNL B P FTEXT 'BUYING RATES :(1)' V D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=28 z & P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 P
0x205088…20521c Dummy {f00=0x0167, f01=0x0190, f02=» FNL * P FTEXT 'SELLING RATES :(1)' D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 > & P FMEL 'ZZZ9,99-',CDSEL1 P FTAB 27 P FTEXT '(2)' D P FKI 30,ME,MINL=1,
0x20521c…2053b0 Dummy {f00=0x0167, f01=0x0190, f02=» 28,ME,MINL=1,MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT P FMEL 'ZZZZZZ,ZZ',CDLIMIT < P FMEND ^ L P************************************************************************ t L P*
0x2053b0…205544 Dummy {f00=0x0167, f01=0x0190, f02=» * d L P************************************************************************ $ L PFMT016 FRMT OPERATOR IDENTIFICATION t L P FSL
0x205544…2056d8 Dummy {f00=0x0167, f01=0x018e, f02=» J P FMEL 'ZZZZZ',IDNR1 L P FMEND R L P************************************************************************ L P*
0x2056d8…20586c Dummy {f00=0x0167, f01=0x0190, f02=» L P* * L P************************************************************************ T ( PFMT017 FRMT OPERATOR SPECIFICATION L P FSL
0x20586c…205a00 Dummy {f00=0x0167, f01=0x0190, f02=» 17,ME,MINL=1,MAXL=18,NCLR,NEOI,ALPHA PF01710 R L P FCOPY OCNAME ` L P FNL L P FTEXT '
0x205a00…205b94 (2, 269) Dummy {f00=0x0167, f01=0x0190, f02=» P L P FCOPY OCPASS L P FNL f L P FTEXT 'LANGUAGE :' R P F
0x205b94…205d28 Dummy {f00=0x0167, f01=0x0190, f02=» L P FNL L P FNL l P FNL L P FNL
0x205d28…205ebc Dummy {f00=0x0167, f01=0x018e, f02=» h P FTAB 20 ( L P FCOPY YCCCY(KW4) 8 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x205ebc…206050 Dummy {f00=0x0167, f01=0x0190, f02=» L P FCOPY YCCCY(KW1) ! P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ! T R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) ! L P FNL
0x206050…2061e4 Dummy {f00=0x0167, f01=0x0190, f02=» ! ^ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT " R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) " r L P FNL
0x2061e4…206378 Dummy {f00=0x0167, f01=0x0190, f02=»1,NCLR,NEOI,NUM,REWRT " x R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) # < L P FNL # L P FTEXT 'ZEROISE ACCUMULATORS (N=0,Y=1)
0x206378…20650c Dummy {f00=0x0167, f01=0x0190, f02=»',IDNR1 # L P FMEND $ J L P************************************************************************ $ L P*
0x20650c…2066a0 Dummy {f00=0x0167, f01=0x0190, f02=» * $ L P************************************************************************ % J L PFMT018 FRMT % L P FSL
0x2066a0…206834 (2, 270) Dummy {f00=0x0167, f01=0x0190, f02=»20 % T P FCOPY YCCCY(KW4) & R P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT & L P FMEL 'ZZZ
0x206834…2069c8 Dummy {f00=0x0167, f01=0x0190, f02=» & N L P FTEXT 'CASH WITHDRAWALS :' ' T P FTAB 20 ' ^ T P FCOPY YCCCY(KW4) '
0x2069c8…206b5c Dummy {f00=0x0167, f01=0x0190, f02=» ' b L P FNL ( " L P FTEXT 'ACCUM. CHEQUES :' ( r T P FTAB 20
0x206b5c…206cf0 Dummy {f00=0x0167, f01=0x0190, f02=»,NEOI,NUM,REWRT ( r L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) ) 6 L P FNL ) L P FTEXT 'ACCUM. TRANSFERS :'
0x206cf0…206e84 Dummy {f00=0x0167, f01=0x0190, f02=» ) ~ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT * F L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW2) * L P FNL
0x206e84…207018 Dummy {f00=0x0167, f01=0x0190, f02=» * L P FNL + J L P FTEXT 'CURRENCY SOLD : ' + L P FCOPY YCCCY(KW4)
0x207018…2071ac Dummy {f00=0x0167, f01=0x018e, f02=»MEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) + L P FNL , N L P FTEXT 'CURRENCY BOUGHT : ' , L P FCOPY YCCCY(KW4)
0x2071ac…207340 Dummy {f00=0x0167, f01=0x0190, f02=» L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) - L P FNL - T L P FTEXT 'CURRENCY ACCUM. : ' - L P FCOPY YCCCY(KW1)
0x207340…2074d4 (2, 271) Dummy {f00=0x0167, f01=0x0190, f02=» - D L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) . L P FNL . X L P FTAB 20 . L P FCOPY YCCCY(KW2
0x2074d4…207668 Dummy {f00=0x0167, f01=0x0190, f02=» . H L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) / L P FNL / L P FTAB 20 / L P FCOPY YCCCY
0x207668…2077fc Dummy {f00=0x0167, f01=0x0190, f02=» / L L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) 0 L P FMEND 0 ` L P************************************************************************ 0 L P*
0x2077fc…207990 Dummy {f00=0x0167, f01=0x0190, f02=» * 0 P L P* * 1 L P************************************************************************ 1 ` L PFMT019 FRMT 1 L P FSL
0x207990…207b24 Dummy {f00=0x0167, f01=0x0190, f02=» 1 P L P FNL 2 T P FTEXT 'TERMINAL :' 2 ` T P FTAB 13
0x207b24…207cb8 Dummy {f00=0x0167, f01=0x0190, f02=»TRMNR 2 P FTEXT ')' 3 B P FB FB01930 3 T PF01920 3 h T P FTAB 34 3 v T P FMEL '999',NDTRMNR
0x207cb8…207e4c Dummy {f00=0x0167, f01=0x018e, f02=»ME (HHMM) : ' 3 P FTAB 20 4 T P FMEL 'ZZE:ZZ',NDTIME 4 ( L P FNL 4 P FTEXT 'DATE (DDMMYY) : ' 4 L P FKI 17,ME,MINL=6,MAXL
0x207e4c…207fe0 Dummy {f00=0x0167, f01=0x0190, f02=» L P FMEND 5 L P************************************************************************ 5 T L P* * 5 L P* OPERATOR START SCR
0x207fe0…208174 (2, 272) Dummy {f00=0x0168, f01=0x0190, f02=» L P************************************************************************ 6 L PFMT021 FRMT 6 T L P FSL 6 L P FTEXT 'OPERATOR I.D
0x208174…208308 Dummy {f00=0x0168, f01=0x0190, f02=»MEL 'ZZZZZ',IDNR1 6 L P FNL 7 L L P FTEXT 'PASSWORD : ' 7 L P FKI 17,ME,MINL=1,MAXL=6,ALP
0x208308…20849c Dummy {f00=0x0168, f01=0x0190, f02=»NL 7 L P FTEXT 'LANGUAGE : ' 8 N 2 P FKI 17,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=5 8 L P FMEL '9',ODOPRLGG
0x20849c…208630 Dummy {f00=0x0168, f01=0x0190, f02=»******************************************** 8 t L P* * 9 4 L P* OPERATOR BALANCES, USED BY BCSTTO * 9 L P*
0x208630…2087c4 Dummy {f00=0x0168, f01=0x0190, f02=» 9 t L P FSL : 4 L P FTEXT 'OPERATOR NAME : ' : L P FCOPY OCNAME
0x2087c4…208958 Dummy {f00=0x0168, f01=0x0190, f02=» : t P FTAB 20 ; 4 L P FCOPY YCCCY(KW4) ; D P FTAB 24 ; L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) ; P FNL ; L P FTAB 2
0x208958…208aec Dummy {f00=0x0168, f01=0x0190, f02=» ; P P FTAB 24 < L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) < P FNL < p L P FTAB 20 < | L P FCOPY YCCCY(KW2)
0x208aec…208c80 Dummy {f00=0x0168, f01=0x0190, f02=»0 < L P FCOPY YCCCY(KW3) = H P FTAB 24 = L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) = P FNL = 0 P FTE
0x208c80…208e14 (2, 273) Dummy {f00=0x0168, f01=0x0190, f02=» = ^ L P************************************************************************ > L P* * > n L P* GET ACCOUNT NUMBER (CEGACT) * >
0x208e14…208fa8 Dummy {f00=0x0168, f01=0x0190, f02=»********************** > ^ L PFMT027 FRMT ? L P FSL ? n P FBT SBZEK,F27050 ? L P FBF SBCARD,F27200
0x208fa8…20913c Dummy {f00=0x0168, f01=0x0190, f02=»XT 'MOUNT PASSBOOK IN VOUCHER-PRINTER' ? P FKI 36 @ . P FCOPY ICDUMMY @ > P FB F27999 @ T P* @ f P* MAGNETIC STRIPE UNIT @ p P* @ PF27005 @ P FTEXT 'PUT CARD IN MSU' @ P FB F27999 @ PF27100 @ L P*
0x20913c…2092d0 Dummy {f00=0x0168, f01=0x0190, f02=» * @ L P FTEXT 'DRAW CARD THROUGH BCR' A F L P FB F27999 A L PF27200
0x2092d0…209464 Dummy {f00=0x0168, f01=0x0190, f02=» * A L P* OPTICAL DOCUMENT READER INPUT * B F L P* * B L P FTEXT 'DRAW CHEQUE THROUGH ODR'
0x209464…2095f8 Dummy {f00=0x0168, f01=0x0190, f02=» B H L P* KEYBOARD INPUT * C L P* * C X L PF27300 C L P FTEXT 'ACCOUNT
0x2095f8…20978c Dummy {f00=0x0168, f01=0x0190, f02=» C H L P FMEL 'ZZZZZZ',IDACTNR1 D PF27999 D ` L P FMEND D n L P************************************************************************ D
0x20978c…209920 Dummy {f00=0x0168, f01=0x0190, f02=» * D ^ L P* * E L P************************************************************************ E n PMSG030 FRMT E P FSL E P FLOW E . P FTEXT 'PLEASE ENTER REQUIRE
0x209920…209ab4 (2, 274) Dummy {f00=0x0168, f01=0x0190, f02=» * E | L P* OPEN ACCOUNT (DFOACT) * F < L P* * F L P********************************************
0x209ab4…209c48 Dummy {f00=0x0168, f01=0x0190, f02=» F N L P FBT SBCHEQUE,F03910 G L P FTEXT 'OPEN SAVINGS ACCOUNT NUMBER : ' G ^ L P FB F03920 G L PF03910
0x209c48…209ddc Dummy {f00=0x0168, f01=0x0190, f02=» G N L PF03920 H L P FMEL '999999',IDACTNR1 H ^ L P FNL H L P FTEXT 'NA
0x209ddc…209f70 Dummy {f00=0x0168, f01=0x0190, f02=» H N L P FCOPY ACNAME I L P FNL I f L P FTEXT 'ADDRESS :' I T P F
0x209f70…20a104 Dummy {f00=0x0168, f01=0x0190, f02=» I ^ L P FNL J L P FTEXT 'TOWN :' J n T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18
0x20a104…20a298 Dummy {f00=0x0168, f01=0x0190, f02=» J f L P FBT SBCHEQUE,F03930 K & L P FTEXT 'PASSWORD:' K v T P FKI 11,MAXL=6,ME,NCLR,ALPHA
0x20a298…20a42c Dummy {f00=0x0168, f01=0x0190, f02=» K n L PF03930 L . T P FTEXT 'CARD:' L ~ , P FKI 7,APPL=13,MINL=4,MAXL=4,NUM,ME,NEOI L L P F
0x20a42c…20a5c0 Dummy {f00=0x0168, f01=0x018e, f02=» L V T P FKI 25,MAXL=11,ME,NCLR,NUM,NEOI,REWRT M T P FMEL 'ZZZZZZZZ9,99',ADLIMBOK M n PF03940 M P FMEND M L P********************************
0x20a5c0…20a754 (2, 275) Dummy {f00=0x0168, f01=0x0190, f02=» P* N L P************************************************************************ N 8 PFMT040 FRMT CLOSE ACCOUNT N ^ P FSL N & P FBT SBCHQACT,F04010 N 4 P FTEXT 'CLOSE SAVINGS ACCOUNT NR : '
0x20a754…20a8e8 Dummy {f00=0x0168, f01=0x0190, f02=» N ( P FMEL '999999',IDACTNR1 O N P FNL O z " P FTEXT 'NAME : ' O P FCOPY ACNAME O P FNL O , P FTEXT 'CURRENT BA
0x20a8e8…20aa7c Dummy {f00=0x0168, f01=0x0190, f02=»99-',ADBAL O r P FNL P & P FBT SBCHQACT,F04030 P & , P FTEXT 'BOOK BALANCE : ' P P P FB F04040 P PF04030 P , P FTEXT 'CREDIT LIMIT : ' P PF04040 P T P FTAB 24
0x20aa7c…20ac10 Dummy {f00=0x0168, f01=0x0190, f02=» FBT SBCHQACT,F04050 P , P FTEXT 'PASSWORD : ' Q ( T P FTAB 24 Q X P FCOPY ACPASS Q P FB F04060 Q PF04050 Q , P
0x20ac10…20ada4 Dummy {f00=0x0168, f01=0x0190, f02=» FMEL '9999',ADCARDNR Q PF04060 R $ P FMEND R 2 L P************************************************************************ R H L P* * R L P* DEPOSIT (DLDEP)
0x20ada4…20af38 Dummy {f00=0x0168, f01=0x0190, f02=»**************************************************************** R L PFMT041 FRMT S H L P FSL S L P FBT SBCHQACT,F04110
0x20af38…20b0cc Dummy {f00=0x0168, f01=0x0190, f02=» S L PF04110 T F J P FTEXT 'DEPOSIT - CHEQUE ACCOUNT:' T L PF04120
0x20b0cc…20b260 Dummy {f00=0x0168, f01=0x0190, f02=»9',IDACTNR1 T L P FNL U D L P FBT SBCHQACT,F04130 U L P FBT SBNOBOOK,F04130
0x20b260…20b3f4 (2, 276) Dummy {f00=0x0169, f01=0x0190, f02=»COUNT WITH BOOK * U L P* * V D L P FTEXT 'BOOK BALANCE:' V P FTAB 15 V P FBT SBZEK,F04121 V
0x20b3f4…20b588 Dummy {f00=0x0169, f01=0x0190, f02=» V p L P FTAB 29 W 0 L P FTEXT 'LINE:' W P FTAB 35 W P FBT SBZEK,F04124 W J P FKI 35,ME,MIN
0x20b588…20b71c Dummy {f00=0x0169, f01=0x0190, f02=» W V L P FB F04140 X L P* * X f L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * X L P*
0x20b71c…20b8b0 Dummy {f00=0x0169, f01=0x0190, f02=» X V L P FTEXT 'NAME :' Y L P FTAB 16 Y f L P FCOPY ACNAME Y L PF0
0x20b8b0…20ba44 Dummy {f00=0x0169, f01=0x0190, f02=» Y b P P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT Z " L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT Z v L P FNL
0x20ba44…20bbd8 Dummy {f00=0x0169, f01=0x0190, f02=» Z f P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL [ & L P FMEND [ z L P**************************************************************
0x20bbd8…20bd6c Dummy {f00=0x0169, f01=0x0190, f02=» * [ j L P* * * L P************************************************************************ z L PFMT042 FRMT
0x20bd6c…20bf00 Dummy {f00=0x0169, f01=0x0190, f02=»HQACT,F04210 P FTEXT 'SAVINGS' ] P FB F04220 ] , L PF04210 ] > P FTEXT ' CHEQUE' ] L PF04220 ] P FTEXT ' ACCOUNT:'
0x20bf00…20c094 (2, 277) Dummy {f00=0x0169, f01=0x0190, f02=» ] ` L P FNL ^ L P FBT SBCHQACT,F04230 ^ p L P* *
0x20c094…20c228 Dummy {f00=0x0169, f01=0x0190, f02=» * ^ ` L P FTAB 12 _ L P FTEXT '- PASSWORD :' _ p L P FTAB 31
0x20c228…20c3bc Dummy {f00=0x0169, f01=0x0190, f02=» _ ` L PF04230 ` L P FBT SBCHEQUE,F04240 ` p L P* *
0x20c3bc…20c550 Dummy {f00=0x0169, f01=0x0190, f02=» * ` ` L P FTEXT 'NAME :' a L P FTAB 17 a p L P FCOPY ACNAME
0x20c550…20c6e4 Dummy {f00=0x0169, f01=0x0190, f02=» * a ` L P* CHEQUE ACCOUNT, CHEQUE INPUT * b L P* * b p L PF04240
0x20c6e4…20c878 Dummy {f00=0x0169, f01=0x0190, f02=» b ` L P FTAB 31 c L P FCOPY FCFIELD c p L PF04250
0x20c878…20ca0c Dummy {f00=0x0169, f01=0x0190, f02=» c ` L P* * d L P* SAVINGS ACCOUNT * d p L P* *
0x20ca0c…20cba0 Dummy {f00=0x0169, f01=0x0190, f02=»5,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT d PF04251 e J L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 e X L P FTAB 29 e L P FTEXT 'LINE:'
0x20cba0…20cd34 (2, 278) Dummy {f00=0x0169, f01=0x0190, f02=»EOI,APPL=11 e r PF04254 f 2 L P FMEL 'ZZ',IDNR1 f @ L P FB F04270 f L P*
0x20cd34…20cec8 Dummy {f00=0x0169, f01=0x0190, f02=» * f L PF04260 g @ L P FTEXT 'CREDIT LIMIT:' g P FTAB 24 g L P FMEL 'ZZZZZZZZ9,99',ADL
0x20cec8…20d05c Dummy {f00=0x0169, f01=0x0190, f02=» FNL g L P FTEXT 'AMOUNT :' h L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT h L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT h L P FNL
0x20d05c…20d1f0 Dummy {f00=0x0169, f01=0x0190, f02=» h L L P FTAB 24 i P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL i L P FMEND i L P********
0x20d1f0…20d384 Dummy {f00=0x0169, f01=0x0190, f02=» * i P L P* PRINT, LINE TYPE 1: FUNCTION IDENTIFICATION * j L P* * j ` L P************************************************************************ j L PPRT043 F
0x20d384…20d518 Dummy {f00=0x0169, f01=0x0190, f02=» j P T P FBT SBVCH,P043005 k T P FTAB 3 k p L P FMEL 'Z',RDSHRPRT
0x20d518…20d6ac Dummy {f00=0x0169, f01=0x0190, f02=» k p L P FBF SBSTTO,P043020 l 8 L P FTEXT 'OPERATOR START' l L PP043020
0x20d6ac…20d840 Dummy {f00=0x0169, f01=0x0190, f02=» l x L PP043030 m 8 L P FBF SBCACT,P043040 m L P FTEXT 'CLOSE ACCOUNT'
0x20d840…20d9d4 (2, 279) Dummy {f00=0x0169, f01=0x0190, f02=» m x L P FTEXT 'BLOCK ACCOUNT' n 8 L PP043050 n L P FBF SBDACT,P043060
0x20d9d4…20db68 Dummy {f00=0x0169, f01=0x0190, f02=» n x L P FBF SBUACT,P043070 o 8 L P FTEXT 'UPDATE ACCOUNT' o L PP043070
0x20db68…20dcfc Dummy {f00=0x0169, f01=0x0190, f02=» o x L PP043080 p 8 L P FBF SBQACT,P043090 p L P FTEXT 'INQUIRY ACCOUNT'
0x20dcfc…20de90 Dummy {f00=0x0169, f01=0x0190, f02=» p x L P FTEXT 'DAILY STATEMENT' q 8 L PP043100 q L P FBF SBCOPR,P043110
0x20de90…20e024 Dummy {f00=0x0169, f01=0x0190, f02=» q x L P FBF SBCSYS,P043120 r 8 L P FTEXT 'SYSTEM CLOSE' r L PP043120
0x20e024…20e1b8 Dummy {f00=0x0169, f01=0x0190, f02=» r x L PP043130 s 8 L P FBF SBQCCY,P043140 s L P FTEXT 'CURRENCY INQ.'
0x20e1b8…20e34c Dummy {f00=0x0169, f01=0x018e, f02=» s x L P FTEXT 'LIST ACCOUNTS' t 8 L PP043300 t T P FTAB 21
0x20e34c…20e4e0 Dummy {f00=0x0169, f01=0x0190, f02=» t P FB P043500 u PP043400 u L P FMEL 'ZZZZZZ',NDDATE u , PP043500 u | P FBT SBFIL24,P043600 u P FBT SBFIL20,P043700 u P FB P043999 u PP043600 u P FILLR ' ',4 u PP043700 u
0x20e4e0…20e674 (2, 280) Dummy {f00=0x016a, f01=0x0190, f02=»* * u L P* PRINT, LINE TYPE 3: END OF FUNCTION * v P L P* * v L P************************
0x20e674…20e808 Dummy {f00=0x016a, f01=0x0190, f02=» FTEXT ' ' v T P FBT SBVCH,P044010 w X T P FTAB 3 w L P
0x20e808…20e99c Dummy {f00=0x016a, f01=0x0190, f02=» w X T P FTAB 5 x N P FBF SBCANCEL,P044100 x x L P FTEXT 'CANCEL'
0x20e99c…20eb30 Dummy {f00=0x016a, f01=0x0190, f02=» x l L P FMEL '999999',TDTRSSEQ y . N PP044200 y ~ L P FTAB 12
0x20eb30…20ecc4 Dummy {f00=0x016a, f01=0x0190, f02=» y p L P FMEL '999',NDTRMNR z 0 L P FTAB 22 z L P FMEL '99E:99',NDTIME
0x20ecc4…20ee58 Dummy {f00=0x016a, f01=0x0190, f02=»P044700 z P FILLR ' ',20 { PP044999 { & L P FMEND { 6 L P************************************************************************ { L P*
0x20ee58…20efec Dummy {f00=0x016a, f01=0x0190, f02=» * { v L P************************************************************************ | 6 L PFMT045 FRMT | L P FSL
0x20efec…20f180 Dummy {f00=0x016a, f01=0x0190, f02=» | v P FBT SBZEK,F04510 } 6 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT } P L P FMEL 'ZZZZZZ',IDACTNR1 } L P FB F04520
0x20f180…20f314 (2, 281) Dummy {f00=0x016a, f01=0x0190, f02=»99999',IDACTNR1 } L PF04520 ~ H L P FNL ~ L P FBT SBCHQACT,F04530
0x20f314…20f4a8 Dummy {f00=0x016a, f01=0x0190, f02=» ~ P FBT SBZEK,F04521 T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT " PF04521 z L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 L P FTEXT ' LINE: '
0x20f4a8…20f63c Dummy {f00=0x016a, f01=0x018e, f02=» R PF04525 L P FMEL 'ZZ',IDNR1 ( L P FB F04540 x L PF04530
0x20f63c…20f7d0 Dummy {f00=0x016a, f01=0x0190, f02=» F L PF04540 L P FNL X P FTEXT 'AMOUNT :' T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT
0x20f7d0…20f964 Dummy {f00=0x016a, f01=0x0190, f02=» n P FTEXT 'NEW BALANCE :' . P FTAB 24 L N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL L P FNL $ P FTEXT 'TR
0x20f964…20faf8 Dummy {f00=0x016a, f01=0x0190, f02=»NR2 | L P FMEND < L P************************************************************************ L P*
0x20faf8…20fc8c Dummy {f00=0x016a, f01=0x0190, f02=» * | L P************************************************************************ < L PFMT046 FRMT INQUIRE ACCOUNT L P FSL
0x20fc8c…20fe20 Dummy {f00=0x016a, f01=0x0190, f02=»NGS ACCOUNT NR : ' | L P FB F04620 < L PF04610 H P FTEXT 'INQUIRY CHEQUE ACCOUNT :'
0x20fe20…20ffb4 (2, 282) Dummy {f00=0x016a, f01=0x0190, f02=» x L P FMEL '999999',IDACTNR1 @ L P FNL H P FTEXT 'BALANCE : '
0x20ffb4…210148 Dummy {f00=0x016a, f01=0x0190, f02=»ZZZ9,99-',ADBAL L P FNL D L P FBT SBCHQACT,F04630 H P FTEXT 'BOOK BALANCE : '
0x210148…2102dc Dummy {f00=0x016a, f01=0x0190, f02=» L P FTEXT 'CREDIT LIMIT : ' @ L PF04640 T P FTAB 20
0x2102dc…210470 Dummy {f00=0x016a, f01=0x0190, f02=» H P FTEXT 'STATUS : ' H T P FTAB 20 L P FMEL '9',ADSTATUS
0x210470…210604 Dummy {f00=0x016a, f01=0x0190, f02=»XT 'LAST TRANS. REQ. (NO=0,YES=1)?' T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 , T P FMEL '9',IDNR1 L P FMEND
0x210604…210798 Dummy {f00=0x016a, f01=0x0190, f02=» * | L P* TRANSACTION INQUIRY (DIQACT) * < L P* * L P********************************************
0x210798…21092c Dummy {f00=0x016a, f01=0x0190, f02=» | H P FTEXT 'TRANSACTION INQUIRY-A/C :' < T P FTAB 26 L P FMEL '999999',IDACTNR1
0x21092c…210ac0 Dummy {f00=0x016a, f01=0x0190, f02=» T P FTAB 7 < L P FMEL '999',UDTRSCDE L P FTEXT '/'
0x210ac0…210c54 (2, 283) Dummy {f00=0x016a, f01=0x0190, f02=» L P FMEL '999999',UDTRSSEQ D L P FTEXT '/' L P FMEL '99E-99E-99',UDDATE
0x210c54…210de8 Dummy {f00=0x016a, f01=0x0190, f02=»NT : ' T P FTAB 20 @ L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT L P FNL
0x210de8…210f7c Dummy {f00=0x016a, f01=0x0190, f02=» T P FMEL 'ZZZZZZZZ9,99-',UDNEWBAL L L P FNL , P FTEXT 'LAST TRANS.
0x210f7c…211110 Dummy {f00=0x016a, f01=0x0190, f02=» | L P FMEND D L P************************************************************************ L P*
0x211110…2112a4 Dummy {f00=0x016a, f01=0x0190, f02=» * L P************************************************************************ D L PFMT048 FRMT (DE-)BLOCK SCREEN L P FSL
0x2112a4…211438 Dummy {f00=0x016a, f01=0x0190, f02=» * L P* SAVINGS ACCOUNT * D L P* * L P FBF SBBACT,F04810
0x211438…2115cc Dummy {f00=0x016a, f01=0x0190, f02=» L PF04810 FTEXT 'DEBLOCK SAVINGS ACCOUNT NR.:' D L P FB F04840 L PF04820 FBF SBBACT,F04830
0x2115cc…211760 Dummy {f00=0x016a, f01=0x0190, f02=» L PF04830 FTEXT 'DEBLOCK CHEQUE ACCOUNT NR. :' D PF04840 P FTAB 30 L P FMEL '999999',IDACTNR1 P FNL
0x211760…2118f4 (2, 284) Dummy {f00=0x016b, f01=0x0190, f02=» Z L P FCOPY ACNAME " L P FNL r L P FTEXT 'CURRENT BALANCE :'
0x2118f4…211a88 Dummy {f00=0x016b, f01=0x0190, f02=» j P FNL * L P FBT SBCHQACT,F04860 6 PF04850 L P FTEXT 'BOOK BALANCE :' T P FTAB 24
0x211a88…211c1c Dummy {f00=0x016b, f01=0x0190, f02=»F04865 PF04860 T L P FTEXT 'CREDIT LIMIT :' b T P FTAB 24 L
0x211c1c…211db0 Dummy {f00=0x016b, f01=0x0190, f02=» Z P FNL " L P FBZ RDALFKB,F04870 . L P FTEXT 'COMMENT :' ~ $ P FKI 16,MAXL=20,ALPHA,NCLR,NEOI P FCOPY TCTEXT
0x211db0…211f44 Dummy {f00=0x016b, f01=0x018e, f02=» L PF04899 FMEND L P************************************************************************ j PMSG049 FRMT P FSL 0 P FTEXT 'MOUNT PASS-BOOK IN VOUCHER-PRINTER'
0x211f44…2120d8 Dummy {f00=0x016b, f01=0x0190, f02=» PMSG050 FRMT P FSL ( P FTEXT 'CHECK PASS-BOOK ON NEW PAGE' $ P FKI 29 P P FCOPY ICDUMMY ` P FMEND v L P************************************************************************ L P*
0x2120d8…21226c Dummy {f00=0x016b, f01=0x0190, f02=» H L P************************************************************************ L PPRT051 FRMT X P FTEXT ' ' L P FMEL 'ZZZZZZ',NDDATE
0x21226c…212400 Dummy {f00=0x016b, f01=0x0190, f02=» ^ N P FILLR ' ',18 T P FTEXT '** CLOSED **' p T P FMEND
0x212400…212594 (2, 285) Dummy {f00=0x016b, f01=0x0190, f02=» * p L P* UPDATE ACCOUNT, MASTER KEYSETTING OFF (DJUACT) * 0 L P* * L P********************************************************
0x212594…212728 Dummy {f00=0x016b, f01=0x0190, f02=» n L P FBT SBCHQACT,F05210 . L P FTEXT 'UPDATE SAVINGS ACCOUNT NR. : ' ~ L P FB F05220
0x212728…2128bc Dummy {f00=0x016b, f01=0x0190, f02=» : ' n L PF05220 . P FTAB 30 ~ P FMEL '999999',IDACTNR1 L P FNL L P FTEXT 'NA
0x2128bc…212a50 Dummy {f00=0x016b, f01=0x0190, f02=» N L P FBZ RDALFKB,F05230 T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 f L PF05230
0x212a50…212be4 Dummy {f00=0x016b, f01=0x0190, f02=» ^ L P FTEXT 'ADDRESS :' T P FTAB 16 n L P FBZ RDALFKB,F05240
0x212be4…212d78 Dummy {f00=0x016b, f01=0x0190, f02=» n L P FCOPY ACADDRES . L P FNL ~ L P FTEXT 'TOWN :'
0x212d78…212f0c Dummy {f00=0x016b, f01=0x0190, f02=» v T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 6 L PF05250 L P FCOPY ACTOWN
0x212f0c…2130a0 Dummy {f00=0x016b, f01=0x0190, f02=»70 ~ P* > P* SAVINGS ACCOUNT H P* d L P FTEXT 'PASSWORD:' n T P FTAB 30
0x2130a0…213234 (2, 286) Dummy {f00=0x016b, f01=0x0190, f02=»60 L P FCOPY ACPASS L P FB F05299 L PF05270 L P FTEXT 'CR
0x213234…2133c8 Dummy {f00=0x016b, f01=0x0190, f02=» N L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK PF05299 f L P FMEND t L P********************************************************************
0x2133c8…21355c Dummy {f00=0x016b, f01=0x0190, f02=»CT) * d L P* * $ L P************************************************************************ t L PFMT053 FRMT
0x21355c…2136f0 Dummy {f00=0x016b, f01=0x0190, f02=» d L P FTEXT 'UPDATE SAVINGS ACCOUNT NR. : ' $ L P FB F05320 t L PF05310
0x2136f0…213884 Dummy {f00=0x016b, f01=0x0190, f02=»,IDACTNR1 P FNL L P FBT SBCHQACT,F05330 L P FTEXT 'BOOK BALANCE: ' n R P FKI 15,MAXL=11,NUM,ME,NEOI,NCLR,REWRT
0x213884…213a18 Dummy {f00=0x016b, f01=0x0190, f02=» d R P FKI 34,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=16 $ L P FMEL '99',ADLNENR z L P FB F05340
0x213a18…213bac Dummy {f00=0x016b, f01=0x0190, f02=» j R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT * N P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK L PF05340
0x213bac…213d40 Dummy {f00=0x016b, f01=0x0190, f02=» r L P 2 T P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT,APPL=30 P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x213d40…213ed4 (2, 287) Dummy {f00=0x016b, f01=0x0190, f02=» :' ~ R P FKI 35,MAXL=1,NUM,ME,NEOI,NCLR,REWRT,APPL=3 > L P FMEL '9',ADSTATUS P FNL L P FNL
0x213ed4…214068 Dummy {f00=0x016b, f01=0x0190, f02=»PL=17 h L P FMEL '99',ADLASTRS . L P FNL ~ $ P FTEXT 'LAST PRINTED :' R P FKI 24,MAXL=2,NUM
0x214068…2141fc Dummy {f00=0x016b, f01=0x0190, f02=» L L P FNL L P FTEXT 'ACCUM. DEPOSITS :' R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT L P FMEL
0x2141fc…214390 Dummy {f00=0x016b, f01=0x0190, f02=» R L P FTEXT 'ACCUM. WITHDRAWALS :' * P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT b L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM L P FMEND
0x214390…214524 Dummy {f00=0x016b, f01=0x0190, f02=» L P FSL L P FTEXT 'MOUNT VOUCHER IN VOUCHER-PRINTER' T L P FKI 34 L P FCOPY ICDUMMY
0x214524…2146b8 Dummy {f00=0x016b, f01=0x0190, f02=»********** R L P* * L P* LIST ACCOUNTS, HEADER LINE (DELACT) * b L P* * L P******
0x2146b8…21484c Dummy {f00=0x016b, f01=0x0190, f02=» R L P FNL L P FNL b L P FTEXT 'ACC.' L P FTAB
0x21484c…2149e0 Dummy {f00=0x016b, f01=0x0190, f02=» R L P FTAB 13 L P FTEXT 'NAME' b L P FTAB 34 L P FTEXT
0x2149e0…214b74 (2, 288) Dummy {f00=0x016c, f01=0x0190, f02=» R L P FTEXT 'ACCUM.WITHD.' L P FTAB 63 b L P FTEXT 'ST' L P FMEND
0x214b74…214d08 Dummy {f00=0x016c, f01=0x0190, f02=»******** R P* P* CURRENCY INQUIRY (DQCCY) P* > J P********************************************************************** H PFMT057 FRMT P FSL P FTEXT 'CURRENCY NAME : ' P FTAB 17 P FCOPY CCCCYNME P FNL
0x214d08…214e9c Dummy {f00=0x016c, f01=0x0190, f02=»MEL 'ZZZZ9',CDRELAT P FNL P FTEXT 'BUYING RATES :(1)' ( P FTAB 19 L P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 | P FTEXT '(2)' P FTAB 30 P FMEL 'ZZZ9,99',CDBUY2 P FNL P FTEXT 'SELLING RATES :(1)' P FTAB 19
0x214e9c…215030 Dummy {f00=0x016c, f01=0x0190, f02=»TEXT 'LIMIT RATE 1 :' P FTAB 28 P FMEL 'ZZZZZ9,99',CDLIMIT . P FMEND P L P************************************************************************ ^ L P* * L P* CURRENCY
0x215030…2151c4 Dummy {f00=0x016c, f01=0x0190, f02=» * N L P************************************************************************ L PFMT058 FRMT ^ L P FSL L P FTEXT 'CU
0x2151c4…215358 Dummy {f00=0x016c, f01=0x0190, f02=» N L P FTEXT '(SELLING)' L P FB F058200 ^ L PF058100 L P FTEXT '(B
0x215358…2154ec Dummy {f00=0x016c, f01=0x0190, f02=» N L P FNL L P FTEXT 'RATE:' ^ L P FTAB 6 L P FCOPY YCC
0x2154ec…215680 Dummy {f00=0x016c, f01=0x0190, f02=» N L P FBT SBCCYIN,F058220 L P* CURRENCY SELLING * ^ L P FMEL 'ZZZZ9,99',CDSEL1 L P FB F05824
0x215680…215814 (2, 289) Dummy {f00=0x016c, f01=0x0190, f02=» * N L PF058220 L P FMEL 'ZZZZ9,99',CDBUY1 ^ L PF058240 L P FTEXT '
0x215814…2159a8 Dummy {f00=0x016c, f01=0x0190, f02=» N L P FCOPY CCCCYCDE L P FTAB 25 ^ L P FMEL 'ZZZZ9,00',CDRELAT L P FNL
0x2159a8…215b3c Dummy {f00=0x016c, f01=0x0190, f02=» N L P FTAB 16 L P FCOPY ICTEXT1 CURRENCY CODE 1 L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI,APPL=26,REWRT L P FMEL 'ZZZZZ
0x215b3c…215cd0 Dummy {f00=0x016c, f01=0x0190, f02=» L J P FTEXT 'AMOUNT CALCUL.:' L P FTAB 16 Z L P FCOPY ICTEXT2 CURRENCY CODE 2 L P FTAB 20
0x215cd0…215e64 Dummy {f00=0x016c, f01=0x0190, f02=» J L P FNL L P FTEXT 'CONTINUE EXCHANGE (NO=0,YES=1) ?' Z L P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 L P FMEL '9',IDNR
0x215e64…215ff8 Dummy {f00=0x016c, f01=0x0190, f02=» J L P************************************************************************ L P* * Z L P* CLOSE OPERATOR (PART1) * L P*
0x215ff8…21618c Dummy {f00=0x016c, f01=0x0190, f02=»** J T PFMT059 FRMT T P FSL b T P FTEXT 'CASH BALANCES :'
0x21618c…216320 Dummy {f00=0x016c, f01=0x018e, f02=» j T P FTAB 24 2 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) T P FNL
0x216320…2164b4 (2, 290) Dummy {f00=0x016c, f01=0x0190, f02=» T P FCOPY YCCCY(KW1) T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1)
0x2164b4…216648 Dummy {f00=0x016c, f01=0x0190, f02=» d T P FCOPY YCCCY(KW2) , T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2)
0x216648…2167dc Dummy {f00=0x016c, f01=0x0190, f02=»B 20 T P FCOPY YCCCY(KW3) T T P FTAB 24 T P FME
0x2167dc…216970 Dummy {f00=0x016c, f01=0x0190, f02=» T P FTEXT 'CHEQUE BALANCE :' $ T P FTAB 20 | T P FCOPY YCCCY(KW4)
0x216970…216b04 Dummy {f00=0x016c, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW2,KW1) T P FNL L T P FTEXT 'PRESS CONT TO CONFIRM ELSE CANCEL' T P FMEND
0x216b04…216c98 Dummy {f00=0x016c, f01=0x0190, f02=»************ T L P* * N P* OPERATOR TURNOVER SCREEN * d L P* * L P**
0x216c98…216e2c Dummy {f00=0x016c, f01=0x018e, f02=»' v P FTAB 20 P FCOPY YCCCY(KW4) P FTAB 24 4 P FMEL 'ZZZZZZZZ9,99-',WDEC1 D P FNL h P FTAB 20 t P FCOPY YCCCY(KW1) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) P FNL P FTAB 20 P FCOPY YCCCY(KW2
0x216e2c…216fc0 Dummy {f00=0x016c, f01=0x0190, f02=» * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL 6 P FTEXT 'CURR. TURNOVER :' B P FTAB 20 f P FCOPY YCCCY(KW4) v T P FTAB 24 P FMEL 'ZZZZZZZZ9,99-',WDEC2
0x216fc0…217154 (2, 291) Dummy {f00=0x016c, f01=0x0190, f02=» * j L P* DAILY-STATEMENT LINE * * L P* * z L P**************************************************************
0x217154…2172e8 Dummy {f00=0x016c, f01=0x0190, f02=» j P FTAB 3 * L P FMEL '999999',UDTRSSEQ : P FTAB 10 L P FBF SBFIRST,P061050 L P FMEL '99E-99E-99',NDDATE
0x2172e8…21747c Dummy {f00=0x016c, f01=0x0190, f02=» J P FBF SBDSRVS,P061100 P FTEXT 'REVERSAL' & ( P FB P061400 SKIP FURTHER INDICATIONS @ PP061100 l N P FBF SBDSDEP,P061200 | L P FTEXT 'DEPOSIT'
0x21747c…217610 Dummy {f00=0x016c, f01=0x0190, f02=» n L P FTEXT 'WITHDRAWAL' 0 L PP061300 N P FBF SBDSTRF,P061400
0x217610…2177a4 Dummy {f00=0x016c, f01=0x0190, f02=» r L P FTAB 32 2 L P FMEL '99E-99E-99',UDDATE L P FTAB 42
0x2177a4…217938 Dummy {f00=0x016c, f01=0x0190, f02=» r L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT2 2 L P FMEND L P******************************************************
0x217938…217acc Dummy {f00=0x016c, f01=0x0190, f02=» z T P FBNZ YDMLPINT,M062100 B T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON GTP' T P FB M062999
0x217acc…217c60 Dummy {f00=0x016c, f01=0x0190, f02=» J T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON LP' T PM062999 j T P FMEND
0x217c60…217df4 (2, 292) Dummy {f00=0x016d, f01=0x0190, f02=» j T P FSL 2 T P FTEXT 'MOUNT DAILY-STATEMENT-VOUCHER' T P FMEND
0x217df4…217f88 Dummy {f00=0x016d, f01=0x018e, f02=» FRMT P FSL & P FTEXT 'MOUNT A4-SHEET IN PRINTER' P FMEND D L P************************************************************************ R L P* * L P* DEMO TP71: TITLE LIN
0x217f88…21811c Dummy {f00=0x016d, f01=0x0190, f02=» L P************************************************************************ L PFMT065 FRMT T P FILLR ' ',6 P FBT SBFIL1,FMT65A P FILLR ' ',9 P FBT SBFIL2,FMT65A P FILLR '
0x21811c…2182b0 Dummy {f00=0x016d, f01=0x0190, f02=» ' ',12 PFMT65A L P FCOPY ICSTRG1 L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' n L P FCOPY ICSTRG1
0x2182b0…218444 Dummy {f00=0x016d, f01=0x0190, f02=»********************** ^ L P* * L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * n L P* *
0x218444…2185d8 Dummy {f00=0x016d, f01=0x0190, f02=» ^ L P FTEXT ' ' L P FILLR ' ',6 n L P FTEXT 'AVAILABLE CHARACTER SETS: '
0x2185d8…21876c Dummy {f00=0x016d, f01=0x0190, f02=»********************** ^ L P* * L P* DEMO TP71: SPECIAL CHARACTERS * n L P* *
0x21876c…218900 Dummy {f00=0x016d, f01=0x0190, f02=» ^ L P FTEXT ' ' L P FILLR ' ',6 n L P FTEXT 'SPECIAL CHARACTERS : '
0x218900…218a94 (2, 293) Dummy {f00=0x016d, f01=0x0190, f02=»' ^ P* OCR CHARACTERS > P FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' $ P* ROOMLESS POINT f P FTEXT =X'AE37AE38AE39' ~ L P FMEND L P**************************
0x218a94…218c28 Dummy {f00=0x016d, f01=0x0190, f02=»FORMATS FOR COMPACT TERMINAL L P* * $ L P************************************************************************ t PFMT068 FRMT P FSL P FTEXT 'ODR (N=0,Y=1) ?' 2 P FKI
0x218c28…218dbc Dummy {f00=0x016d, f01=0x018e, f02=»MEL '999',NDTRMNR P FNL P FTEXT 'TERM.NAME :' & P FTAB 12 B P FTEXT 'FRONT OFFICE(' R P FMEL '999',NDTRMNR p P FTEXT ')' P FMEND L P************************************************************************ L P*
0x218dbc…218f50 Dummy {f00=0x016d, f01=0x0190, f02=» L L P* * L P************************************************************************ X L PFMT069 FRMT L P FSL
0x218f50…2190e4 Dummy {f00=0x016d, f01=0x0190, f02=» L P FCOPY OCNAME L P FNL T L P FTEXT 'CASH BALANCE : ' P FTAB 16 L P FCO
0x2190e4…219278 Dummy {f00=0x016d, f01=0x0190, f02=» d P FNL $ P FTEXT 'CASH BALANCE : ' 0 L P FTAB 16 P L P FCOPY YCCCY(KW1) P FTAB 20 L P FMEL 'Z
0x219278…21940c Dummy {f00=0x016d, f01=0x0190, f02=» | L P FCOPY YCCCY(KW2) < P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) P FNL P FTEXT 'CASH BAL
0x21940c…2195a0 Dummy {f00=0x016d, f01=0x0190, f02=» h P FTAB 20 ( L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) 8 P FNL , P FTEXT 'PRESS CONT TO CONFIRM ELSE CANC' P FKI 32 P FCOPY WCSTRG6 L P FMEND
0x2195a0…219734 (2, 294) Dummy {f00=0x016d, f01=0x018e, f02=» * T P* WITHDRAWAL (DMWDR) FOR FT80 J L P* * L P**********************
0x219734…2198c8 Dummy {f00=0x016d, f01=0x018e, f02=» L P FSL L P FBT SBCHQACT,F07010 T J P FTEXT 'WITHDRAWAL - SAVINGS ACC.:' L P FB F07020
0x2198c8…219a5c Dummy {f00=0x016d, f01=0x018e, f02=» J P FTEXT 'WITHDRAWAL - CHEQUE ACC. :' L PF07020 R L P FTAB 27 L P FMEL '999999',IDACTNR
0x219a5c…219bf0 Dummy {f00=0x016d, f01=0x0190, f02=» L P FBT SBCHQACT,F07030 L P* * T L P* SAVINGS ACCOUNT * L P*
0x219bf0…219d84 Dummy {f00=0x016d, f01=0x0190, f02=» H P FTEXT '- PASSWORD :' L P FTAB 27 P L P FCOPY ACPASS L P FB F07050
0x219d84…219f18 Dummy {f00=0x016d, f01=0x0190, f02=» FBT SBCHEQUE,F07040 L P* * P L P* CHEQUE ACCOUNT, NO ODR * L P*
0x219f18…21a0ac Dummy {f00=0x016d, f01=0x0190, f02=» FTAB 13 L P FCOPY ACNAME P L P FB F07050 L P*
0x21a0ac…21a240 Dummy {f00=0x016d, f01=0x0190, f02=»* * L PF07040 P L P FTAB 12 H P FTEXT '- CHEQUE NR. :'
0x21a240…21a3d4 (2, 295) Dummy {f00=0x016d, f01=0x0190, f02=»PY FCFIELD L PF07050 L L P FNL L P FBT SBCHQACT,F07060
0x21a3d4…21a568 Dummy {f00=0x016d, f01=0x0190, f02=»VINGS ACCOUNT * L P* * L L P FTEXT 'BOOK BALANCE:' L P FKI 15,ME,MINL=1,MAXL=10,NU
0x21a568…21a6fc Dummy {f00=0x016d, f01=0x0190, f02=» L P FTEXT 'LINE:' L P FKI 10,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 X L P FMEL 'ZZ',IDNR1 L P FB F07070
0x21a6fc…21a890 Dummy {f00=0x016d, f01=0x0190, f02=» H L P* CHEQUE ACCOUNT * L P* * X L PF07060 L P FTEXT 'CREDIT L
0x21a890…21aa24 Dummy {f00=0x016d, f01=0x0190, f02=» X L PF07070 P FNL h L P FTEXT 'AMOUNT :' t L P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT
0x21aa24…21abb8 Dummy {f00=0x016d, f01=0x0190, f02=» d L P FTEXT 'NEW BALANCE :' $ L P FTAB 20 t P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x21abb8…21ad4c Dummy {f00=0x016d, f01=0x0190, f02=»******************************** h L P* * ( T P* TRANSFER (DNTRF) FOR FT80 x L P*
0x21ad4c…21aee0 Dummy {f00=0x016d, f01=0x0190, f02=» p L P FSL 0 L P FTEXT 'TRANSFER FROM ACCOUNT : ' L P FBT SBCARD,F07110
0x21aee0…21b074 (2, 296) Dummy {f00=0x016e, f01=0x0190, f02=» X L P FB F07120 L PF07110 h P FTAB 26 L P FMEL '999999',IDACTNR1
0x21b074…21b208 Dummy {f00=0x016e, f01=0x0190, f02=» h L P FBT SBCHQACT,F07130 ( L P FTEXT 'BOOK BALANCE: ' x T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT
0x21b208…21b39c Dummy {f00=0x016e, f01=0x0190, f02=» | T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT < L P FMEL 'ZZ',IDNR1 L P FB F07140
0x21b39c…21b530 Dummy {f00=0x016e, f01=0x0190, f02=»IT LIMIT:' P FTAB 20 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK " L PF07140 r L P FNL
0x21b530…21b6c4 Dummy {f00=0x016e, f01=0x0190, f02=»ZZZZZZZZ,ZZ',TDAMOUNT L P FNL H P FTEXT 'NEW BALANCE :' P FTAB 20 N P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x21b6c4…21b858 Dummy {f00=0x016e, f01=0x0190, f02=» FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 L P FMEL 'ZZZZZZ',IDACTNR2 V L P FMEND J P******************
0x21b858…21b9ec Dummy {f00=0x016e, f01=0x018e, f02=»********************************************************** PFMT072 FRMT B P FSL V P FTEXT 'CURRENCY NAME : ' b P FTAB 17 P FCOPY CCCCYNME P FNL P FTEXT 'CURRENCY CODE : ' P FTAB 17 P FCOPY CCCCYCDE P FTAB
0x21b9ec…21bb80 Dummy {f00=0x016e, f01=0x0190, f02=» P FMEL 'ZZZ9,99-',CDBUY1 P FNL ( P FTEXT 'BUYING RATE :(2)' 4 P FTAB 19 V P FTAB 26 f P FMEL 'ZZZ9,99',CDBUY2 v P FNL P FTEXT 'SELLING RATES:(1)' P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 P FNL P FTEXT '
0x21bb80…21bd14 (2, 297) Dummy {f00=0x016e, f01=0x0190, f02=»L 'ZZZZZ9,99',CDLIMIT P FMEND L P************************************************************************ , L P* * | T P* CLOSE OPERATOR (PART1) FOR FT80
0x21bd14…21bea8 Dummy {f00=0x016e, f01=0x0190, f02=»******************************************** t T PFMT073 FRMT 4 T P FSL T P FTEXT 'CASH BALANCE :'
0x21bea8…21c03c Dummy {f00=0x016e, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x21c03c…21c1d0 Dummy {f00=0x016e, f01=0x0190, f02=» T P FCOPY YCCCY(KW1) L T P FTAB 20 T P FMEL 'ZZZZZ
0x21c1d0…21c364 Dummy {f00=0x016e, f01=0x0190, f02=» T P FTEXT 'CASH BALANCE : ' T P FTAB 16 < T P FCOPY YCCCY(KW2) T P FTAB 20
0x21c364…21c4f8 Dummy {f00=0x016e, f01=0x0190, f02=» D T P FNL P FTEXT 'CASH BALANCE : ' d T P FTAB 16 T P FCOPY YCCCY(KW3)
0x21c4f8…21c68c Dummy {f00=0x016e, f01=0x0190, f02=»L 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) T P FNL T R P FTEXT 'CHEQUE BALANCE:' T P FTAB
0x21c68c…21c820 Dummy {f00=0x016e, f01=0x0190, f02=» Z T P FTAB 20 " T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) z T P FNL
0x21c820…21c9b4 (2, 298) Dummy {f00=0x016e, f01=0x0190, f02=» L P************************************************************************ H L P* * T P* OPERATOR TURNOVER SCREEN FOR
0x21c9b4…21cb48 Dummy {f00=0x016e, f01=0x0190, f02=»************************************************************************ PFMT074 FRMT P P FSL d P FTEXT 'GROSS TURNOVER:' p P FTAB 16 P FCOPY YCCCY(KW4) P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL P FTEXT 'GROSS
0x21cb48…21ccdc Dummy {f00=0x016e, f01=0x0190, f02=»TEXT 'GROSS TURNOVER:' P FTAB 16 P FCOPY YCCCY(KW2) . P FTAB 20 H * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) X P FNL P FTEXT 'GROSS TURNOVER:' P FTAB 16 P FCOPY YCCCY(KW3) P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH
0x21ccdc…21ce70 Dummy {f00=0x016e, f01=0x0190, f02=»,99-',WDEC2 P FMEND L P*********************************************************************** " P* r P* | 4 P* FORMATS FOR THE TELLER NOTE DISPENSER P* P* P* L P********************************************
0x21ce70…21d004 Dummy {f00=0x016e, f01=0x0190, f02=»TEXT 'PRESS CONT WHEN READY ELSE CANCEL' P FMEND 0 L P*********************************************************************** > P* P* OPEN TND SCREEN P* L P********************************************************************
0x21d004…21d198 Dummy {f00=0x016e, f01=0x0190, f02=»99',NDDATA1(KW4,KW1) P FTAB 14 P FMEL 'ZZZZ',NOTES(KW1) , . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 L " P FMEL 'ZZZZ',NDDATA1(KW3,KW1) ~ P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW2) P FTAB 14 P FMEL 'ZZZZ',NOTES
0x21d198…21d32c Dummy {f00=0x016e, f01=0x0190, f02=»'99999',NDDATA1(KW4,KW3) P FTAB 14 P FMEL 'ZZZZ',NOTES(KW3) 0 . P FKI 28,MINL=1,MAXL=4,NUM,ME,REWRT,APPL=33 P " P FMEL 'ZZZZ',NDDATA1(KW3,KW3) P FNL P FTAB 4 " P FMEL '99999',NDDATA1(KW4,KW4) P FTAB 14 P FMEL 'ZZZZ',N
0x21d32c…21d4c0 Dummy {f00=0x016e, f01=0x0190, f02=»***************************************************** P* > 8 P* DISPLAY FORMAT FOR THE REMAINING SMALL CHANGE H P* L P************************************************************************ PFMT077 FRMT P FSL ( P FTEXT 'RE
0x21d4c0…21d654 (2, 299) Dummy {f00=0x016e, f01=0x018e, f02=»************************************************ | P* 8 H P* DISPENSE QUANTITY PER CASSETTE SELECTION SCRREN * B P* H P******************************************************************** PFMT091 FRMT P FSL , P FTE
0x21d654…21d7e8 Dummy {f00=0x016e, f01=0x0190, f02=» , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW1) 4 P FNL V P FTAB 19 b P FMEL 'ZZZZ',NOTES(KW2) r , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW2) P FNL P FTAB 19 P FMEL 'Z
0x21d7e8…21d97c Dummy {f00=0x016e, f01=0x0190, f02=» FMEL 'ZZZZ',NOTES(KW4) , P FKI 24,MINL=1,MAXL=6,NUM,REWRT,APPL=34 P FMEL 'ZZZZZZ',TNDREG(KW4) P P FMEND r L P************************************************************************ L P*
0x21d97c…21db10 Dummy {f00=0x016e, f01=0x0190, f02=» * p L P************************************************************************ 0 PERR001 FRMT P FSL P FTEXT 'VALUE NOT IN RANGE' P FMEND PERR002 FRMT P FSL P FTEXT 'RECORD PROTECT
0x21db10…21dca4 Dummy {f00=0x016e, f01=0x0190, f02=» 'ILLEGAL END-OF-ITEM KEY' P FMEND " PERR005 FRMT 0 P FSL D " P FTEXT 'FIELD MUST BE ENTERED' P P FMEND v L PERR006 FRMT L P FSL
0x21dca4…21de38 Dummy {f00=0x016e, f01=0x0190, f02=» t L PERR007 FRMT 4 L P FSL L P FTEXT 'FILE OPEN UNSUCCESSFULL'
0x21de38…21dfcc Dummy {f00=0x016e, f01=0x0190, f02=» t L P FSL 4 L P FTEXT 'FRONT OFFICE' L P FMEND
0x21dfcc…21e160 Dummy {f00=0x016e, f01=0x0190, f02=» t L P FTEXT 'VALUE MUST BE ZERO' 4 L P FMEND L PERR010 FRMT
0x21e160…21e2f4 (2, 300) Dummy {f00=0x016f, f01=0x0190, f02=»T' t L P FMEND 6 L PERR020 FRMT L P FSL
0x21e2f4…21e488 Dummy {f00=0x016f, f01=0x0190, f02=» J L PERR023 FRMT L P FSL Z L P FTEXT 'OPERATOR UNKNOWN' L P FMEND
0x21e488…21e61c Dummy {f00=0x016f, f01=0x0190, f02=» J L P FSL L P FTEXT 'OPERATOR ALREADY LOGGED ON' Z L P FMEND L PERR025 FRMT
0x21e61c…21e7b0 Dummy {f00=0x016f, f01=0x0190, f02=» J L P FTEXT 'WRONG PASSWORD' L P FMEND Z L PERR026 FRMT L P FSL
0x21e7b0…21e944 Dummy {f00=0x016f, f01=0x0190, f02=» J L P FMEND L PERR028 FRMT L P FSL L P FTEXT 'ACCO
0x21e944…21ead8 Dummy {f00=0x016f, f01=0x0190, f02=» L L PERR029 FRMT L P FSL L P FTEXT 'RECORD KEY INVALID' L P FMEND
0x21ead8…21ec6c Dummy {f00=0x016f, f01=0x0190, f02=» L L P FSL L P FTEXT 'MASTER KEYSETTING REQUIRED' L P FMEND L PERR032 FRMT
0x21ec6c…21ee00 Dummy {f00=0x016f, f01=0x0190, f02=» L L P FTEXT 'INPUT DEVICE FAILURE' L P FMEND L PERR033 FRMT L P FSL
0x21ee00…21ef94 (2, 301) Dummy {f00=0x016f, f01=0x0190, f02=» L L P FMEND L PERR034 FRMT L P FSL P FTEXT 'SAVI
0x21ef94…21f128 Dummy {f00=0x016f, f01=0x0190, f02=»XT 'INSUFFICIENT FUNDS' P FMEND PERR036 FRMT . P FSL B P FTEXT 'SAME KEY VALUES' N P FMEND n PERR037 FRMT | P FSL P FTEXT 'BALANCE NOT ZERO' P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',ADBAL P FMEND PERR038 F
0x21f128…21f2bc Dummy {f00=0x016f, f01=0x018e, f02=» n P FMEND PERR078 FRMT P FSL * * P FTEXT 'WRONG CASSETTE SEQUENCE ORDER' 6 P FNL d 2 P FTEXT 'PRESS CONT AFTER RELOAD, ELSE CANCEL' p P FMEND PERR079 FRMT P FSL P FTEXT 'TND OPEN FAILURE' P FNL ( P FTEXT
0x21f2bc…21f450 Dummy {f00=0x016f, f01=0x0190, f02=» PERR081 FRMT ! P FSL ! 0 P FTEXT 'FATAL TND-ERROR, DISPENSE CANCELED' ! ( P FNL ! * P FTEXT 'DO TRANSACTION TND-OPEN AGAIN' ! h P FMEND ! PERR082 FRMT ! P FSL ! P FTEXT 'REQUEST ERROR' ! P FMEND ! PERR083 FRMT ! P FSL
0x21f450…21f5e4 Dummy {f00=0x016f, f01=0x018e, f02=» $ P FTEXT 'COMM. OR HARDWARE ERROR' " P FMEND " , PERR085 FRMT " : P FSL " N P FTEXT 'DELIVERY TIME-OUT' " Z P FMEND " | PERR086 FRMT " P FSL " P FTEXT 'BAD NOTES OR JAM' " P FMEND " PERR087 FRMT " P FSL " " P FTEXT 'REJECT
0x21f5e4…21f778 Dummy {f00=0x016f, f01=0x0190, f02=» P FTEXT ' EMPTY' # P FMEND # PERR089 FRMT # * P FSL # > & P FTEXT 'PROGRAM ERROR-DEBUG HELP' # J P FMEND # t PERR090 FRMT # P FSL # P FTEXT 'CASSETTE ' # & P FMEL '99999',NDDATA1(KW4,TNDCIX) # P FTEXT ' FAILS TO FEED' # P F
0x21f778…21f90c Dummy {f00=0x016f, f01=0x403e, f02=»************************************************** # z@ $ : FSL # > & P FTEXT 'PROGRAM ERROR-DEBUG HELP' # J P FMEND # t PERR090 FRMT # P FSL # P FTEXT 'CASSETTE ' # & P FMEL '99999',NDDATA1(KW4,TNDCIX) # P FTEXT ' FAILS TO FEED' # P F
0x21f90c…21faa0 Dummy {f00=0x016f, f01=0x0190, f02=» L PFMT016 FRMT OPERATOR IDENTIFICATION % L P FSL % T L P FTEXT 'OPERATOR I.D. :' % L P FKI 17,ME,MINL=4,MA
0x21faa0…21fc34 (2, 302) Dummy {f00=0x016f, f01=0x0190, f02=» L P FMEND & L P* * & T L P* * & L P*
0x21fc34…21fdc8 Dummy {f00=0x016f, f01=0x0190, f02=» L P FSL ' L P FTEXT 'PASSWORD :' ' T P P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,NUM ' L P FCOPY OCPASS
0x21fdc8…21ff5c Dummy {f00=0x016f, f01=0x0190, f02=» ' H L P FTEXT 'OPERATOR NAME :' ( P P FKI 17,ME,MINL=1,MAXL=20,NCLR,NEOI,NUM ( X L P FCOPY OCNAME ( L P FNL
0x21ff5c…2200f0 Dummy {f00=0x016f, f01=0x0190, f02=» ( L P P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM ) L P FMEL '9',ODOPRLGG ) ` L P FNL ) L P FNL
0x2200f0…220284 Dummy {f00=0x016f, f01=0x0190, f02=» ) P L P FNL * L P FTEXT 'CASH BALANCES :' * ` L P FCOPY YCCCY(KW4) * P P FKI 24,
0x220284…220418 Dummy {f00=0x016f, f01=0x0190, f02=» * T L P FNL + L P FCOPY YCCCY(KW1) + f P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + N
0x220418…2205ac Dummy {f00=0x016f, f01=0x0190, f02=» + L P FCOPY YCCCY(KW2) , P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT , l N P FMEL 'ZZZZZZZ9,99-',ODCASH(KW2)
0x2205ac…220740 Dummy {f00=0x016f, f01=0x0190, f02=» , b P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - " N P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3) - v L P FNL
0x220740…2208d4 (2, 303) Dummy {f00=0x016f, f01=0x0190, f02=» - h L P FMEL '9',WD1 . , L P FMEND . | L P*
0x2208d4…220a68 Dummy {f00=0x016f, f01=0x0190, f02=» * . l L PFMT018 FRMT OPERATOR ACCUMULATORS / , L P FSL / | L P FTEXT 'CASH DEPOSITS :'
0x220a68…220bfc Dummy {f00=0x016f, f01=0x0190, f02=») / p L P FNL 0 0 L P FMEND 0 L P*
0x220bfc…220d90 Dummy {f00=0x016f, f01=0x0190, f02=» * 0 p PERR001 FRMT 1 0 P FSL 1 D P FTEXT 'ERR0R 1' 1 P P FMEND 1 h P* 1 v P* 1 PERR002 FRMT 1 P FSL 1 P FTEXT 'ERR0R 2' 1 P FMEND 1 P* 1 P* 1 PERR003 FRMT 1 P FSL 1 P FTE
0x220d90…220f24 Dummy {f00=0x016f, f01=0x0190, f02=» 1 PERR005 FRMT 2 P FSL 2 P FTEXT 'ERR0R 5' 2 ( P FMEND 2 @ L P************************************************************************ 2 N L P* * 2 L P* ERR0R 10
0x220f24…2210b8 Dummy {f00=0x016f, f01=0x0190, f02=»********************************************************************** 2 PERR010 FRMT 3 N P FSL 3 b P FTEXT 'VALUE NOT IN RANGE' 3 n P FMEND 3 L P************************************************************************ 3 L P*
0x2210b8…22124c Dummy {f00=0x016f, f01=0x0190, f02=»* * 3 L P************************************************************************ 4 P L PERR020 FRMT 4 L P FSL
0x22124c…2213e0 Dummy {f00=0x016f, f01=0x0190, f02=» FMEND 4 L P************************************************************************ 5 P L P* * 5 L P* ERR0R 23
0x2213e0…221574 (2, 304) Dummy {f00=0x0170, f01=0x0190, f02=»************************************************************************ 5 L PERR023 FRMT 6 P L P FSL 6 L P FTEXT 'OPERATOR UNKNOWN
0x221574…221708 Dummy {f00=0x0170, f01=0x0190, f02=»************************************************************************ 6 L P* * 7 P L P* ERR0R 24 * 7 L P*
0x221708…22189c Dummy {f00=0x0170, f01=0x0190, f02=»ERR024 FRMT 7 L P FSL 8 P L P FTEXT 'OPERATOR ALREADY LOGGED ON' 8 L P FMEND
0x22189c…221a30 Dummy {f00=0x0170, f01=0x0190, f02=»* * 8 L P* ERR0R 25 * 9 P L P* * 9 L P************************
0x221a30…221bc4 Dummy {f00=0x0170, f01=0x0190, f02=» FSL 9 L P FTEXT 'WRONG PASSWORD' : P L P FMEND : L P************************
0x221bc4…221d58 Dummy {f00=0x0170, f01=0x0190, f02=»* ERR0R 26 * : L P* * ; P L P************************************************************************ ; L PERR026 FRMT
0x221d58…221eec Dummy {f00=0x0170, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR ; L P FMEND < P L P************************************************************************ < L P*
0x221eec…222080 Dummy {f00=0x0170, f01=0x0190, f02=»* * < L P************************************************************************ = P L PERR027 FRMT = L P FSL
0x222080…222214 (2, 305) Dummy {f00=0x0170, f01=0x009c, f02=» FMEND = L P************************************************************************ > P
0x222214…2223a8 Dummy {f00=0x0170, f01=0x2008, f02=» ? = L P************************************************************************ > P
0x2223a8…22253c Dummy {f00=0x0170, f01=0x0190, f02=» :' _ ~ L P FTAB 31 ` F L P FCOPY ACPASS ` L P FB F04250
0x22253c…2226d0 Dummy {f00=0x0170, f01=0x0190, f02=»QUE,F04240 ` L P* * a F L P* CHEQUE ACCOUNT, NO ODR * a L P*
0x2226d0…222864 Dummy {f00=0x0170, f01=0x0190, f02=» a L P FCOPY ACNAME b F L P FB F04250 b L P*
0x222864…2229f8 Dummy {f00=0x0170, f01=0x0190, f02=» * b L PF04240 c F L P FTAB 12 c T P FTEXT '- SCHECK NR. :'
0x2229f8…222b8c Dummy {f00=0x0170, f01=0x0190, f02=»COPY FCFIELD c L PF04250 d N L P FNL d L P FBT SBCHQACT,F04260
0x222b8c…222d20 Dummy {f00=0x0170, f01=0x0190, f02=»SAVINGS ACCOUNT * d L P* * e N T P FTEXT 'BUCH SALDO :' e P FTAB 15 e P F
0x222d20…2239c0 (3, 0) DirGranule ((3, 0)) {
0x222d20…2239c0 DirEnt {nam=»MONGEN«, typ=» «, f00=0x0000, f01=0x0000, f02=0x1108, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1110, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»HCP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2608, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x11a0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1190, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bc8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1260, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a50, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1420, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13e0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18b8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b58, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18f0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1430, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1440, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1448, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1460, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19e8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a40, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cf0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d50, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f70, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13a0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1208, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1958, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24c0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2258, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22b8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2348, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»ARITMS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2230, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bf0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1980, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVG200«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVG301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25d0, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25f8, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»DVT102«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2618, f03=0x0000}
0x222d20…2239c0 DirEnt {nam=»MONGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x15e8, f03=0x0000}
0x222d20…2239c0 }
0x2239c0…223b54 (3, 1) Opaque[0x194]
0x223b54…223ce8 # DirEnt {nam=»MONGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1110, f03=0x0000}
0x223b54…223ce8 IdxSect {
0x223b54…223ce8 f00 = 0x0088 // 0x223b54 @0x0
0x223b54…223ce8 f01 = 0x0016 // 0x223b56 @0x2
0x223b54…223ce8 gno = [ // 0x223b58 @0x4
0x223b54…223ce8 [0x00]: C0x0088.0x2.0
0x223b54…223ce8 [0x01]: C0x0089.0x0.0
0x223b54…223ce8 [0x02]: C0x0089.0x1.0
0x223b54…223ce8 [0x03]: C0x0089.0x3.0
0x223b54…223ce8 [0x04]: C0x008a.0x0.0
0x223b54…223ce8 [0x05]: C0x008a.0x2.0
0x223b54…223ce8 [0x06]: C0x008a.0x3.0
0x223b54…223ce8 [0x07]: C0x008b.0x1.0
0x223b54…223ce8 [0x08]: C0x008b.0x2.0
0x223b54…223ce8 [0x09]: C0x008b.0x3.0
0x223b54…223ce8 [0x0a]: C0x008c.0x0.0
0x223b54…223ce8 ]
0x223b54…223ce8 }
0x223ce8…223e7c Dummy {f00=0x0088, 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
0x223e7c…224010 Dummy {f00=0x0088, 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
0x224010…2241a4 Dummy {f00=0x0088, f01=0x0190, f02=»WORK ~ KPF /S,LDTASK SCR " MOV ST8000,/S,TOSSWORK . KPF /S,ST8000 L SCR b MOV DRND01,/S,TOSSWORK n KPF /S,DRND01 SCR MOV DCADDR,/S,TOSSWORK KPF /S,DCADDR SCR MOV TMOVE,/S,TOSSWORK
0x2241a4…224338 Dummy {f00=0x0088, f01=0x018e, f02=»,PFTAB SCR MOV LKMAL,/S,TOSSWORK KPF /S,LKMAL 8 SCR L MOV SYSLOD,/S,TOSSWORK X KPF /S,SYSLOD v SCR MOV SYSLDM,/S,TOSSWORK KPF /S,SYSLDM SCR MOV SYSLCR,/S,TOSSWORK KPF /S,SYSLCR
0x224338…2244cc Dummy {f00=0x0088, f01=0x0190, f02=» j ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ` !!EN ASM /S KPF /O KPF /S SCR LED SYSLDM ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$
0x2244cc…224660 Dummy {f00=0x0088, f01=0x0190, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 LED SYSLCR B ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ T ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN
0x224660…2247f4 (3, 2) Dummy {f00=0x0089, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ L !!EN x ASM /S KPF /O KPF /S SCR MOV DSKSUB,/S,TOSSWORK KPF /S,DSKSUB SCR LED DSKSUB
0x2247f4…224988 Dummy {f00=0x0089, f01=0x0190, f02=» l ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 4 !!EN ` ASM /S l KPF /O z KPF /S SCR LED SYSTAB ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x224988…224b1c Dummy {f00=0x0089, f01=0x0190, f02=»/S SCR LED TDISP ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ T ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S
0x224b1c…224cb0 Dummy {f00=0x0089, f01=0x018e, f02=»2 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN L ASM /S X KPF /O f KPF /S t SCR LED TPROC ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQ
0x224cb0…224e44 Dummy {f00=0x0089, f01=0x0190, f02=» LED MSUBS ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x224e44…224fd8 Dummy {f00=0x0089, f01=0x018e, f02=»U 0$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p LED TOSSIO | ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$
0x224fd8…22516c Dummy {f00=0x0089, f01=0x0190, f02=» ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED ST8000 ( #
0x22516c…225300 Dummy {f00=0x0089, f01=0x0190, f02=» $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ( ASM /S 4 KPF /O B KPF /S P SCR ^ LED DRND01 j ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$D
0x225300…225494 (3, 3) Dummy {f00=0x0089, f01=0x0190, f02=»U 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ t !!EN ASM /S KPF /O KPF /S SCR LED TMOVE ( #!!CH $$CPU857 EQU 0$
0x225494…225628 Dummy {f00=0x0089, f01=0x0190, f02=»PAG EQU 1$$ x !!EN ASM /S KPF /O . KPF /S < SCR J LED DCSTAT V ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ h ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG
0x225628…2257bc Dummy {f00=0x0089, f01=0x0190, f02=» MOV DVTDI,/S,TOSSWORK KPF /S,DVTDI & SCR : MOV DVTDY,/S,TOSSWORK F KPF /S,DVTDY d SCR x MOV DVTT1,/S,TOSSWORK KPF /S,DVTT1 SCR MOV DVTG3,/S,TOSSWORK KPF /S,DVTG3 SCR MOV DVT
0x2257bc…225950 Dummy {f00=0x0089, f01=0x0190, f02=»K ~ KPF /O LED DTTP03 ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S
0x225950…225ae4 Dummy {f00=0x0089, f01=0x0190, f02=»SCR MOV DRDY02,/S,TOSSWORK KPF /S,DRDY02 * SCR @ MOV DRSU01,/S,TOSSWORK L KPF /S,DRSU01 j SCR MOV DRTP03,/S,TOSSWORK KPF /S,DRTP03 SCR MOV DRGP04,/S,TOSSWORK KPF /S,DRGP04 SCR
0x225ae4…225c78 Dummy {f00=0x0089, f01=0x018e, f02=»DRDU01,/S,TOSSWORK KPF /S,DRDU01 SCR 0 MOV DRFD01,/S,TOSSWORK < KPF /S,DRFD01 Z SCR p LED DRKB04 | !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 032$$ !!CH $$ X:E$$ 1$
0x225c78…225e0c Dummy {f00=0x0089, f01=0x0190, f02=» | !!CH $$ X:K$$ 0$$ !!CH $$ X:L$$ 00$$ " ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ < ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ h ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KP
0x225e0c…225fa0 Dummy {f00=0x0089, f01=0x0190, f02=»EQU 1$$ t ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ < ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ h !!EN ASM /S KPF /O KPF /S SCR LED DRDY02 !!CH $$ X:A$$ 1$$ !!CH $
0x225fa0…226134 (3, 4) Dummy {f00=0x0089, f01=0x0190, f02=»$ 0$$ !!CH $$ X:H$$ 512$$ !!CH $$ X:I$$ 1$$ * ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ D ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S
0x226134…2262c8 Dummy {f00=0x0089, f01=0x018e, f02=»EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ < !!EN h ASM /S,NL t KPF /O KPF /S SCR LED DRTP03 !!CH $$ X:A$$ 01$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$
0x2262c8…22645c Dummy {f00=0x0089, f01=0x018e, f02=» ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR LED DRGP04
0x22645c…2265f0 Dummy {f00=0x0089, f01=0x0190, f02=» j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 4 !!EN ` ASM /S l KPF /O z KPF /S SCR LED DRGP03 !!CH $$ X:A$$ 01$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $
0x2265f0…226784 Dummy {f00=0x0089, f01=0x0190, f02=»I$$ 00$$ !!CH $$ X:J$$ 1$$ !!CH $$ X:K$$ 1$$ * ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ D ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S
0x226784…226918 Dummy {f00=0x0089, f01=0x0190, f02=»EQU 1$$ t ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ < !!EN h ASM /S,NL t KPF /O KPF /S SCR LED DRDU01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 2$$ !!CH $$ X:C$$ 1$$
0x226918…226aac Dummy {f00=0x0089, f01=0x018e, f02=»$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 6 !!EN b ASM /S n KPF /O | KPF /S SCR LED DRFD01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH
0x226aac…226c40 Dummy {f00=0x0089, f01=0x018e, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 0 !!EN ASM /S h KPF /O v KPF /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,EBCDIC SCR LED EBCDIC !!DL 34,65 !!DL 7
0x226c40…226dd4 (3, 5) Dummy {f00=0x008a, f01=0x0190, f02=» x DATA 0,0,0,0,0,0,0,0 !!IL 48 & DATA 0,0,0,0,0,0,0,0 6 DATA 0,0,0,0,0,0,0,0 T DATA 0,0,0,0,0,0,0,0 r DATA 0, !!EN ASM /S KPF /O KPF /S SCR LED DRND01 !!CH $$ X:A$$ 01$$
0x226dd4…226f68 Dummy {f00=0x008a, f01=0x0190, f02=»!!CH $$ X:G$$ 00$$ !!CH $$ X:H$$ 00$$ !!CH $$ X:I$$ 01$$ 4 !!EN N ASM /S Z KPF /O h KPF /S v SCR LED SYSLOD !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 0$$
0x226f68…2270fc Dummy {f00=0x008a, f01=0x0190, f02=»G EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ L !!EN x ASM /S KPF /O KPF /S SCR LED TOSSIO !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ !!EN
0x2270fc…227290 Dummy {f00=0x008a, f01=0x0190, f02=»SSWORK KPF /S,TPROC ! SCR ! " MOV TMMLKM,/S,TOSSWORK ! . KPF /S,TMMLKM ! L SCR ! b MOV TLDSEG,/S,TOSSWORK ! n KPF /S,TLDSEG ! SCR ! MOV TABORT,/S,TOSSWORK ! KPF /S,TABORT ! SCR ! MOV MONTIM,/S,TOSSWORK !
0x227290…227424 Dummy {f00=0x008a, f01=0x0190, f02=»,TMOVE ! SCR " LED TIMER " ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ " , ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ " X ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ " ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ " !!EN " ASM /S " KPF /O " KPF
0x227424…2275b8 Dummy {f00=0x008a, f01=0x018e, f02=»PU852 EQU 1$$CPU852 EQU 0$$ " ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ # $ !!EN # P ASM /S # KPF /O # j KPF /S # x SCR # LED TMMLKM # ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ # ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # ( #!!CH $$CPU85
0x2275b8…22774c Dummy {f00=0x008a, f01=0x0190, f02=» # LED TLDSEG $ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ $ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ F ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $ SCR $
0x22774c…2278e0 Dummy {f00=0x008a, f01=0x018e, f02=»2 EQU 0$$ $ v ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ % !!EN % > ASM /S % J KPF /O % X KPF /S % f SCR % t LED MONTIM % ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ % ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % ( #!!CH $$CPU852 EQU 1$$CPU852 EQ
0x2278e0…227a74 (3, 6) Dummy {f00=0x008a, f01=0x0190, f02=» % ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & ` ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ & !!EN & ASM /S & KPF /O & KPF /S & SCR & LED TMOVE &
0x227a74…227c08 Dummy {f00=0x008a, f01=0x018e, f02=»!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ & !!EN ' , ASM /S ' 8 KPF /O ' F KPF /S ' T SCR ' b LED LKMAL ' n !!DL 065 ' DATA 00 ' !!DL 070 ' DATA 00 ' !!DL 071 ' DATA 00 ' !!DL
0x227c08…227d9c Dummy {f00=0x008a, f01=0x018e, f02=» ' LED LRPINT ( !!CH $$ X:A$$ 1$$ ( !!CH $$ X:B$$ 1$$ ( 4 !!EN ( N ASM /S ( Z KPF /O ( h KPF /S ( v SCR ( LED TMOVE ( !!EN ( ASM /S ( KPF /O ( KPF /S ( SCR ( MOV TIODM,/S,TOSSWORK ( KPF /S
0x227d9c…227f30 Dummy {f00=0x008a, f01=0x0190, f02=» ( SCR ) MOV SDMBUF,/S,TOSSWORK ) KPF /S,SDMBUF ) 2 SCR ) H MOV DFTAB,/S,TOSSWORK ) T KPF /S,DFTAB ) r SCR ) MOV ARITMS,/S,TOSSWORK ) KPF /S,ARITMS ) SCR ) MOV TIOSDM,/S,TOSSWORK ) KPF /S,TIOSDM ) SC
0x227f30…2280c4 Dummy {f00=0x008a, f01=0x0190, f02=»00128$$ ) !!CH $$ X:C$$ 00108$$ * !!CH $$ X:D$$ 00100$$ * . ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ * L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ * x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ * !!EN *
0x2280c4…228258 Dummy {f00=0x008a, f01=0x0190, f02=» $$CPU857 EQU 0$$CPU857 EQU 1$$ * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ + ( ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ + T ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ + !!EN + ASM /S + KPF /O + KPF /S + SCR + LED DFTAB + !!DL 024
0x228258…2283ec Dummy {f00=0x008a, f01=0x0190, f02=»303' + v !!EN , ASM /S , KPF /O , & KPF /S , 4 SCR , B LED TIOSDM , N !!CH $$ X:A$$ 00001$$ , ` ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ , ~ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ , ( #!!CH $
0x2283ec…228580 Dummy {f00=0x008a, f01=0x0190, f02=»00000$$ , ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ - ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ - < ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ - h ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ - !!EN - ASM /S - KPF /O - KPF /S - SCR - LED SD
0x228580…228714 (3, 7) Dummy {f00=0x008a, f01=0x0190, f02=»$MMUPAG EQU 1$$ - | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ . ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ . D !!EN . p ASM /S . | KPF /O . KPF /S . SCR . LED SDMOCR . !!CH $$ X:A$$ 00001$$ . !!CH $$ X:B$$ 00000$$ . ( #!!CH $$C
0x228714…2288a8 Dummy {f00=0x008a, f01=0x0190, f02=»G EQU 0$$DSKPAG EQU 1$$ . !!EN / ASM /S / , KPF /O / : KPF /S / H SCR / V MOV FMTASK,/S,TOSSWORK / b KPF /S,FMTASK / SCR / MOV FMCDEF,/S,TOSSWORK / KPF /S,FMCDEF / SCR / MOV TIOFM,/S,TOSSWORK / KPF /S,T
0x2288a8…228a3c Dummy {f00=0x008a, f01=0x0190, f02=» $$ X:E$$ 00001$$ / !!CH $$ X:F$$ 00000$$ 0 ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 0 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 0 d ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 0 !!EN 0 ASM /S 0 KPF /O
0x228a3c…228bd0 Dummy {f00=0x008a, f01=0x018e, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 1 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 1 0 !!EN 1 ASM /S 1 h KPF /O 1 v KPF /S 1 SCR 1 LED TIOFM 1 ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 1 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 1 ( #
0x228bd0…228d64 Dummy {f00=0x008a, f01=0x018e, f02=» 1 SCR 2 LED TIOFM 2 !!CH $$ X:A$$ 00001$$ 2 & ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 2 D ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 2 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 2 !!EN 2 ASM /S 2
0x228d64…228ef8 Dummy {f00=0x008a, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 0 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 3 !!EN 3 ASM /S 3 KPF /O 3 KPF /S 3 SCR 3 LED TIODM 3 !!CH $$ X:A$$ 00000$$ 3 !!CH $$ X:B$$
0x228ef8…22908c Dummy {f00=0x008a, f01=0x0190, f02=»!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ 3 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 X ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 4 !!EN 4 ASM /S 4 KPF /O 4 KPF /S 4 SCR 4 LED DRTW01 4 !!CH
0x22908c…229220 Dummy {f00=0x008a, f01=0x0190, f02=» !!CH $$IHINPT$$TRAP$$ 5 !!CH $$ X:A$$ 04103$$ 5 " !!CH $$ EXTRN BUG$$*$$ 5 @ !!CH $$ BUG$$ 0$$ 5 ^ !!CH $$ X:B$$ 00015$$ 5 x !!CH $$ X:C$$ 00007$$ 5 !!CH $$ X:E$$ 00008$$ 5 !!CH $$ X:D$$ 00006$$ 5 !!CH $$ X:F$$ 00126$$ 5
0x229220…2293b4 (3, 8) Dummy {f00=0x008b, f01=0x0190, f02=»HRTC 5 DATA ILLINT 6 DATA ILLINT 6 DATA ILLINT 6 4 DATA ILLINT 6 H DATA IHTW 6 DATA ILLINT 6 p DATA ILLINT 6 DATA ILLINT 6 DATA ILLINT 6 DATA ILLINT 6 DATA ILLINT 6 DATA CHLT1 6 DATA IHFD
0x2293b4…229548 Dummy {f00=0x008b, f01=0x0190, f02=»LINT 6 DATA ILLINT 7 DATA CHLT1 7 DATA ILLINT 7 4 DATA ILLINT 7 H DATA ILLINT 7 DATA ILLINT 7 p DATA ILLINT 7 DATA IHFD 7 DATA ILLINT 7 DATA ILLINT 7 DATA ILLINT 7 DATA ILLINT 7 DATA ILLINT
0x229548…2296dc Dummy {f00=0x008b, f01=0x0190, f02=»LINT 7 DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT 8 4 DATA ILLINT 8 H DATA ILLINT 8 DATA ILLINT 8 p DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT 8 DATA ILLINT
0x2296dc…229870 Dummy {f00=0x008b, f01=0x0190, f02=»LINT 8 !!EN 9 ASM /S 9 KPF /O 9 & KPF /S 9 4 SCR 9 B LED PFTAB 9 N !!IL 12 9 ` !!IL 41 9 p !!DL 043 9 !!DL 044 9 !!DL 046 9 !!DL 047 9 !!DL 048 9 !!DL 050 9 !!DL 051 9 !!DL 053 9 !!DL 054
0x229870…229a04 Dummy {f00=0x008b, f01=0x018e, f02=» 9 KPF /S : SCR : MOV CTAB01,/S,PTSDEMO : " ASM /S : @ KPF /O : N KPF /S : SCR : j LED DVTKB : v ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ : ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ : ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ :
0x229a04…229b98 Dummy {f00=0x008b, f01=0x0190, f02=» !!CH $$COD$$CTAB01$$ ; !!CH $$ECH$$DVDY00$$ ; !!EN ; < ASM /S ; H KPF /O ; V KPF /S ; d SCR ; r LED DVTDI ; ~ ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ; ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ; ( #!!CH $$CPU852 EQU 1$$CPU852 EQU
0x229b98…229d2c Dummy {f00=0x008b, f01=0x0190, f02=» ; z !!CH $$/3333$$/8000$$ < !!EN < & ASM /S < 2 KPF /O < @ KPF /S < N SCR < LED DVTDY < h ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ < z ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ < ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ < ( #!!CH $$DSK
0x229d2c…229ec0 Dummy {f00=0x008b, f01=0x018e, f02=»/0000$$ < !!EN = ASM /S = KPF /O = * KPF /S = 8 SCR = F LED DVTG2 = R ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ = d ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ = ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ = ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU
0x229ec0…22a054 (3, 9) Dummy {f00=0x008b, f01=0x018e, f02=» = KPF /S > SCR > LED DVTG2 > " ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ > 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ > ` ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ > ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ > !!CH $$DVTG2$$DVG200$$ > !!CH $
0x22a054…22a1e8 Dummy {f00=0x008b, f01=0x0190, f02=» ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ? ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ? 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ? ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ? !!CH $$DVTG3$$DVG301$$ ? !!CH $$/2222$$/0003$$ ? !!CH $$/3333$$/0000$$ ?
0x22a1e8…22a37c Dummy {f00=0x008b, f01=0x0190, f02=»CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ? ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ @ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ @ V !!CH $$DVTKB$$DVKB02$$ @ !!CH $$/2222$$/0001$$ @ !!CH $$/3333$$/1000$$ @ !!CH $$COD$$CTAB03$$ @ !!CH $$ECH$$DVDY
0x22a37c…22a510 Dummy {f00=0x008b, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ A ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ A 0 ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ A !!CH $$DVTDI$$DVDI02$$ A !!CH $$2010$$0000$$ A !!CH $$/2222$$/0001$$ A !!CH $$/3333$$/8000$$ A !!EN A
0x22a510…22a6a4 Dummy {f00=0x008b, f01=0x0190, f02=»0$$MMUPAG EQU 1$$ A ~ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ B ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ B F !!CH $$DVTDY$$DVDY02$$ B r !!CH $$/ABC$$/0628$$ B !!CH $$/2222$$/0003$$ B !!CH $$/3333$$/2000$$ B !!EN B ASM /S B KPF /O
0x22a6a4…22a838 Dummy {f00=0x008b, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ C ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ C 0 !!CH $$DVTT1$$DVT102$$ C !!CH $$/2222$$/0002$$ C z !!CH $$/3333$$/0000$$ C !!EN C ASM /S C KPF /O C KPF /S C SCR C LED DVTT1 C (
0x22a838…22a9cc Dummy {f00=0x008b, f01=0x0190, f02=»CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ C !!CH $$DVTT1$$DVT102$$ D * !!CH $$/2222$$/0002$$ D H !!CH $$/3333$$/0000$$ D f !!EN D ASM /S D KPF /O D KPF /S D SCR D LED TCLASS D !!IL 6 D EXTRN DVKB00 D
0x22a9cc…22ab60 Dummy {f00=0x008b, f01=0x018e, f02=»XTRN DVKB02 D EXTRN DVDI02 E EXTRN DVDY02 E 6 EXTRN DVT102 E V !!IL 11 E v DATA TC00 E DATA TC01 E DATA TC02 E !!IL 12 E TC00 DATA TC00E-
0x22ab60…22acf4 (3, 10) Dummy {f00=0x008b, f01=0x0190, f02=» DATA /00500 F DATA DVDY00 F $ DATA /00300 F D DATA DVG200 F d DATA /01310 F DATA DVG200 F TC00E EQU * F TC01 DATA TC01E-* F
0x22acf4…22ae88 Dummy {f00=0x008b, f01=0x0190, f02=» /00201 F DATA DVKB02 G DATA /00412 G 0 DATA DVDI02 G P DATA /00502 G p DATA DVDY02 G DATA /00302 G DATA DVT102 G DATA /01312
0x22ae88…22b01c Dummy {f00=0x008b, f01=0x0190, f02=»D SCLASS G !!IL 6 H EXTRN DWTW01 H EXTRN DWDM01 H > EXTRN DWREMU H ^ EXTRN DWDU01 H t EXTRN DWFD01 H !!IL 11 H DATA TC00 H DATA TC01 H
0x22b01c…22b1b0 Dummy {f00=0x008b, f01=0x0190, f02=» DATA DWTW01 H DATA /00311 I DATA DWTW01 I > TC00E EQU * I ^ TC01 DATA TC01E-* I z DATA /00C01 I DATA DWDM01 I TC01E EQU * I TC02 DATA
0x22b1b0…22b344 Dummy {f00=0x008b, f01=0x018e, f02=» I v DATA /015 J DATA DWREMU J DATA /02F21 J . DATA DWDU01 J N DATA /03F31 J d DATA DWDU01 J DATA /00F01 J DATA DWDU01 J DATA /01F11 J DATA DWDU01 J
0x22b344…22b4d8 Dummy {f00=0x008b, f01=0x0190, f02=» DATA DWFD01 K DATA /03FB1 K DATA DWFD01 K : TC03E EQU * K P !!EN K l ASM /S K x KPF /O K KPF /S K SCR K LED MONTAB K !!IL 25 K **** K EXTRN CTAB01 K EXTRN CTAB03 K
0x22b4d8…22b66c Dummy {f00=0x008b, f01=0x0190, f02=»!!DL 089 K !!DL 090 L !!DL 091 L !!DL 092 L 0 !!DL 094 L @ !!DL 095 L P !!DL 096 L ` !!DL 097 L p !!DL 099 L !!DL 101 L !!DL 102 L !!EN L ASM /S L KPF /O L KPF /S L SCR L LED SYSLDM L !!CH
0x22b66c…22b800 Dummy {f00=0x008b, f01=0x018e, f02=»F$$ 00$$ L !!CH $$ X:G$$ 00$$ M !!CH $$ X:H$$ 00$$ M * !!CH $$ X:I$$ 01$$ M D !!CH $$ X:J$$ 01$$ M ^ !!CH $$ X:R$$ 012$$ M x !!CH $$ X:L$$ 01$$ M !!CH $$ X:M$$ 00$$ M ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ M ( #!!CH $$MMUPAG EQU 0$
0x22b800…22b994 (3, 11) Dummy {f00=0x008c, f01=0x00e8, f02=» KPF /O N KPF /S N SCR N ASG /02,LP0F N , SCR N @ INC SYSTAB N L NOD AM N ^ INC SYSLOD N l INC SYSLDM N ~ INC SYSLCR N INC SYSINI N LKE M N KPF /L,MONGEN N ASG /E0,TY10 N
0x22b994…22bb28 Dummy {f00=0x008c, f01=0x2008, f02=» O /O N KPF /S N SCR N ASG /02,LP0F N , SCR N @ INC SYSTAB N L NOD AM N ^ INC SYSLOD N l INC SYSLDM N ~ INC SYSLCR N INC SYSINI N LKE M N KPF /L,MONGEN N ASG /E0,TY10 N
0x22bb28…22bcbc Dummy {f00=0x008c, f01=0x2008, f02=» H ASG /02,LP0F G SCR G INC SYSTAB G ( NOD AM G : INC SYSLOD G H INC SYSLDM G Z INC SYSLCR G l INC SYSINI G ~ LKE M G KPF /L,DEMMON G ASG /E0,TY10 G 00$$ F ( #!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ F ( #!!CH $$MMUPA
0x22bcbc…22be50 Dummy {f00=0x008c, f01=0x0000, f02=»
[…0x4…]
0x22c4a0…22c634 (3, 12) Opaque[0x194]
0x22c634…22c7c8 # DirEnt {nam=»HCP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1118, f03=0x0000}
0x22c634…22c7c8 IdxSect {
0x22c634…22c7c8 f00 = 0x0088 // 0x22c634 @0x0
0x22c634…22c7c8 f01 = 0x000a // 0x22c636 @0x2
0x22c634…22c7c8 gno = [ // 0x22c638 @0x4
0x22c634…22c7c8 [0x00]: C0x0088.0x3.0
0x22c634…22c7c8 [0x01]: C0x0089.0x2.0
0x22c634…22c7c8 [0x02]: C0x008a.0x1.0
0x22c634…22c7c8 [0x03]: C0x008b.0x0.0
0x22c634…22c7c8 [0x04]: C0x008c.0x1.0
0x22c634…22c7c8 ]
0x22c634…22c7c8 }
0x22c7c8…22c95c Dummy {f00=0x0088, f01=0x0190, f02=» 6 2SYSGEN REL 11.1 81.07.27 12 NC = 8701 365 401110 R f bS Y S G E N SYSTEM GENERATION PROGRAM PTS RELEASE #11.1 SUPPORTING TOSS RELEASE #11.0 f ******************** ********************
0x22c95c…22caf0 Dummy {f00=0x0088, f01=0x018e, f02=»13 MEMORY MANAGEMENT UNIT : Y8 6 @ DISK PAGING : J Y8 ` j $ SWAPPABLE WORK BLOCK HANDLING : t N8 DEBUGGER : N8 B >PROGRAM LANGUAGE (AS=ASSEMBLER,BA=BASIC,CO=COBOL,C
0x22caf0…22cc84 Dummy {f00=0x0088, f01=0x0190, f02=» ABRIDGED DATA MANAGEMENT : NR 0 : STANDARD DATA MANAGEMENT : D YR f p z ******************** DEVICE ABBREVIATIONS ******************** DEVICE LIST (Y/N) :
0x22cc84…22ce18 Dummy {f00=0x0088, f01=0x0190, f02=»ISK : NB " , > 9******************** D R I V E R S ******************** 6 x ******************** DRKB04 : KEYBOARD TIMEOUT : NB
0x22ce18…22cfac Dummy {f00=0x0088, f01=0x0190, f02=» | DRKB04 : ( 2 KEYBOARD TIMEOUT : < NB V ` ECHO FUNCTION : j YB . *COMPLETION OF READ REQUEST AT POWER ON : NB CIRCULAR INPUT BUFFER SIZE : 32
0x22cfac…22d140 Dummy {f00=0x0088, f01=0x0190, f02=»K ON : v Y3 MMU BUFFER SIZE (BYTES) : " 250D D P MMU KEY TABLE SIZE : Z 50 v KB 6236/71/72 IN SYSTEM : Y0 ( &OTHER THAN KB 6236/71/72 IN SYSTEM : N0
0x22d140…22d2d4 (3, 13) Dummy {f00=0x0089, f01=0x0190, f02=» FLASH FUNCTION : Y0 & 0 ******************** : DRDY02 V : d n v 8 4FAST OUTPUT USED FOR CONSECUTIVE EQUAL CHARACTERS : Y0 4 2OTHER DISPLAYS THAN 6344/46/47/85/86 IN SYSTEM
0x22d2d4…22d468 Dummy {f00=0x0089, f01=0x0190, f02=»ON OF TRAILING BLANKS : Y0 * 2 .CURSOR STEADY ON 6386/6385 (ELSE TWINKLING) : 4 Y0 j t COUNTRY CODE ON 6385 (0-9) : ~ 00 MMU BUFFER SIZE (BYTES) : 512D DY 6385/86 IN SYSTEM :
0x22d468…22d5fc Dummy {f00=0x0089, f01=0x0190, f02=»TP03 : ( * (NATIONAL CHARACTER VARIATION (1-11) : 2 11 ` j CHARACTER FONT (0-3) : t 01 $ "CHARACTER PITCH DOCUMENT (2-0) : 01 JOURNAL STATION IN PRINTER : Y1
0x22d5fc…22d790 Dummy {f00=0x0089, f01=0x0190, f02=»IZE (BYTES) : 250D " . *END OF REQUEST WHEN PRINTER IS INACTIVE : , Y5 ^ h r ******************** | DRGP04 : ORDER TEST OUTPUT BUFFER : Y5 MMU BU
0x22d790…22d924 Dummy {f00=0x0089, f01=0x018e, f02=»ONAL CHARACTER VARIATION (1-15) : 15 * 4 FRICTION FEED : > Y1 V ` FRONT FEED : j Y1 ~ PAGE LENGTH TRACTOR FEED : 48 PAGE LENGTH DOCUMENT : 60 MMU BUFFER SIZ
0x22d924…22dab8 Dummy {f00=0x0089, f01=0x0190, f02=» . *END OF REQUEST WHEN PRINTER IS INACTIVE : Y5 : D ORDER SET FORM PARAMETER : N Y5 p z ******************** DRTW01 : S5 ******************** DRDU01 :
0x22dab8…22dc4c Dummy {f00=0x0089, f01=0x0190, f02=»ISC FORMAT : Y5 PACKED DISC FORMAT : ( Y5 D N X ******************** b DRFD01 ~ : ( $FD ON PROGRAMMED CHANNEL(ELSE MUX) : Y5 . *FD ADAPTED TO TOSS FOR
0x22dc4c…22dde0 Dummy {f00=0x0089, f01=0x0190, f02=» HANDLING : ~ NY . *ORDERS FOR MOTOR START/STOP (6805 ONLY) : ( NY Z d MMU BUFFER SIZE (WORDS) : n 460D ******************** SYSLOD ADAPTION ****************
0x22dde0…22df74 (3, 14) Dummy {f00=0x008a, f01=0x0190, f02=»ASSETTE : N3 LOADING FROM DISC : & Y3 B L LOADING FROM FLEXIBLE DISC : V Y3 z LOADING FROM MINIFIX DISC : N3 " LOADING FROM 80 MB CDC DISC : N3 " LOADING
0x22df74…22e108 Dummy {f00=0x008a, f01=0x0190, f02=»****************** " L K M - P R O C E S S O R S ******************** @ f DELAY/DELAY AND ACTIVATION : p Y3 ABORT FUNCTION : Y3 GET/SET DATE : Y3 GET/SET TI
0x22e108…22e29c Dummy {f00=0x008a, f01=0x018e, f02=» ******************** DATA MANAGEMENT PARAMETERS & ******************** J f p MAX BLOCK SIZE IN BYTES : z 256D & $MAX NUMBER OF DISC BLOCK BUFFERS : 42 $ "MAX NUMBER OF CURRENCY B
0x22e29c…22e430 Dummy {f00=0x008a, f01=0x0190, f02=» MAX KEY LENGTH IN BYTES : 61 * 4 * (NUMBER OF WORDS IN MASTER INDEX AREA : > 1008 l x 0 .SUPPORT OF OUTPUT/EXTEND AND CLOSE DISCARD : N1 ******************** FILE MANAGEMENT PARAMET
0x22e430…22e5c4 Dummy {f00=0x008a, f01=0x0190, f02=» ADDITIONAL PER TASK : 80 ( 2 CREATE/DELETE : < N0 T ^ EXTEND : h N0 x ATTACH/DETACH : Y0 MULTIPLE EXTENT I/O : N0
0x22e5c4…22e758 Dummy {f00=0x008a, f01=0x0190, f02=» | T01 : Y0 ********* * KB : < Y0 J T ^ FILE CODE : h 20 | DEVICE ADDRESS : 10 PTS NUMBER : 6272 ECHO DEVICE : DY
0x22e758…22e8ec Dummy {f00=0x008a, f01=0x018e, f02=»DI : Y1 FILE CODE : * 41 > H DEVICE ADDRESS : R 11 j t PTS NUMBER : ~ 6272 ********* D : Y2 FILE CODE : 50
0x22e8ec…22ea80 Dummy {f00=0x008a, f01=0x0190, f02=» NUMBER OF CHARACTERS/LINE : 80 ( 2 ********* < T1 : N N0 f ********* p G3 : N0 ********* G2 : Y0 FILE CODE JOURNAL : 30
0x22ea80…22ec14 (3, 15) Dummy {f00=0x008b, f01=0x0190, f02=» Y1 ********* KB : . N1 < F ********* P DI : b N1 p z ********* D : N1 ********* T1 : N1 ********* G3 :
0x22ec14…22eda8 Dummy {f00=0x008b, f01=0x0190, f02=» G2 : N2 ******************** " T03 : > Y2 L V ********* ` KB : r Y2 FILE CODE : 20 DEVICE ADDRESS : 10 PTS NUMBER : 62
0x22eda8…22ef3c Dummy {f00=0x008b, f01=0x0190, f02=» DI : YY " FILE CODE : , 41 @ J DEVICE ADDRESS : T 11 l v PTS NUMBER : 6271 ********* D : Y2 FILE CODE : 50
0x22ef3c…22f0d0 Dummy {f00=0x008b, f01=0x0190, f02=» NUMBER OF CHARACTERS/LINE : 40 ( 2 ********* < T1 : N Y0 f p FILE CODE JOURNAL : z 30 DEVICE ADRESS : 20 FILE CODE DOCUMENT : 31 **
0x22f0d0…22f264 Dummy {f00=0x008b, f01=0x0190, f02=» N1 & 0 ******************** : " DEFINE SPECIAL DEVICE-CLASSES V ******************** | ******************** S01 : Y1 ********* TW :
0x22f264…22f3f8 Dummy {f00=0x008b, f01=0x0190, f02=»Y : FF CANCEL KEY : 5F 4 > END OF RECORD KEY : H FF d n ********* x DM : NF ******************** S02 : YF ********* TW :
0x22f3f8…22f58c Dummy {f00=0x008b, f01=0x016a, f02=»************ S04 : N0 " , 6 @ J T ^ h r | EXTRA MONITOR MODULES : Y0 * CTAB01,PTSDEMO *
0x22f58c…22f720 Dummy {f00=0x008b, f01=0x2008, f02=» **** S04 : N0 " , 6 @ J T ^ h r | EXTRA MONITOR MODULES : Y0 * CTAB01,PTSDEMO *
0x22f720…22f8b4 (3, 16) Dummy {f00=0x008c, f01=0x0000, f02=»
0x22f8b4…22fa48 Dummy {f00=0x008c, f01=0x0014, f02=»
0x22fa48…22fbdc Dummy {f00=0x008c, f01=0x0190, f02=» PASG /02,NO PMOV TCLASS,/S,TOSSWORK PKPF /S,TCLASS 4 PSCR J PINC TCLASS,TOSSWORK V PKPF /O r PMOV SCLASS,/S,TOSSWORK PKPF /S,SCLASS PSCR PINC SCLASS,TOSSWORK PKPF /O PMOV MONTAB,/S,TOSSWORK P
0x22fbdc…22fd70 Dummy {f00=0x008c, f01=0x0190, f02=» PMOV TDISP,/S,TOSSWORK PKPF /S,TDISP " PSCR 6 PMOV LRPINT,/S,TOSSWORK B PKPF /S,LRPINT ` PSCR v PMOV TPROC,/S,TOSSWORK PKPF /S,TPROC PSCR PMOV MSUBS,/S,TOSSWORK PKPF /S,MSUBS PSCR PMOV TTMJOB
0x22fd70…22ff04 Dummy {f00=0x008c, f01=0x0190, f02=»WORK ~ PKPF /S,LDTASK PSCR " PMOV ST8000,/S,TOSSWORK . PKPF /S,ST8000 L PSCR b PMOV DRND01,/S,TOSSWORK n PKPF /S,DRND01 PSCR PMOV DCADDR,/S,TOSSWORK PKPF /S,DCADDR PSCR PMOV TMOVE,/S,TOSSWORK
0x22ff04…230098 Dummy {f00=0x008c, f01=0x018e, f02=»,PFTAB PSCR PMOV LKMAL,/S,TOSSWORK PKPF /S,LKMAL 8 PSCR L PMOV SYSLOD,/S,TOSSWORK X PKPF /S,SYSLOD v PSCR PMOV SYSLDM,/S,TOSSWORK PKPF /S,SYSLDM PSCR PMOV SYSLCR,/S,TOSSWORK PKPF /S,SYSLCR
0x230098…23022c Dummy {f00=0x008c, f01=0x0190, f02=» j ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( P!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4 ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ` P!!EN PASM /S PKPF /O PKPF /S PSCR PLED SYSLDM ( P!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$
0x23022c…2303c0 Dummy {f00=0x008c, f01=0x0190, f02=»!!EN PASM /S PKPF /O PKPF /S ( PSCR 6 PLED SYSLCR B ( P!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ T ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( P!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!EN
0x2303c0…230554 (3, 17) Opaque[0x194]
0x230554…2306e8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2608, f03=0x0000}
0x230554…2306e8 IdxSect {
0x230554…2306e8 f00 = 0x0130 // 0x230554 @0x0
0x230554…2306e8 f01 = 0x0002 // 0x230556 @0x2
0x230554…2306e8 gno = [ // 0x230558 @0x4
0x230554…2306e8 [0x00]: C0x0130.0x1.0
0x230554…2306e8 ]
0x230554…2306e8 }
0x2306e8…23087c Dummy {f00=0x0130, f01=0x0190, f02=» 2 P IDENT TCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVG200 P
0x23087c…230a10 Dummy {f00=0x0130, f01=0x0190, f02=» DVT102 P* P* P* $ P* . PTCLASS DATA TCLASE-* 8 P DATA TC00 T P DATA TC01 r P DATA TC02 PTCLASE EQU * PTC00 DATA TC00E-* P DATA /0020 P
0x230a10…230ba4 Dummy {f00=0x0130, f01=0x0190, f02=»A DVDY00 P DATA /0030 P DATA DVG200 4 P DATA /0131 T P DATA DVG200 t PTC00E EQU * PTC01 DATA TC01E-* P DATA /0032 P DATA DVG3
0x230ba4…230d38 Dummy {f00=0x0130, f01=0x412c, f02=» DATA /0041 P DATA DVDI02 P DATA /0050 @ P DATA DVDY02 ` P DATA /0030 P DATA DVT102 P DATA /0131 P DATA DVT102 PTC02E
0x230d38…230ecc Dummy {f00=0x0130, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x230ecc…231060 Dummy {f00=0x0130, f01=0x0190, f02=»DE BIT MAP IN LENGTH x . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP P RF BTT30 N PBTT22 LD A5,SCTOPT ` P SRC A5,1 MMU PAGING? z P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU 2 P SUKL A12,TTB:MT RESERV SPACE FOR EXTR
0x231060…2311f4 (3, 18) Opaque[0x194]
0x2311f4…231388 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x11a0, f03=0x0000}
0x2311f4…231388 IdxSect {
0x2311f4…231388 f00 = 0x008d // 0x2311f4 @0x0
0x2311f4…231388 f01 = 0x00ba // 0x2311f6 @0x2
0x2311f4…231388 gno = [ // 0x2311f8 @0x4
0x2311f4…231388 [0x00]: C0x008d.0x0.0
0x2311f4…231388 [0x01]: C0x008d.0x1.0
0x2311f4…231388 [0x02]: C0x008d.0x3.0
0x2311f4…231388 [0x03]: C0x008e.0x1.0
0x2311f4…231388 [0x04]: C0x00e1.0x0.0
0x2311f4…231388 [0x05]: C0x00e1.0x1.0
0x2311f4…231388 [0x06]: C0x00e1.0x2.0
0x2311f4…231388 [0x07]: C0x00e1.0x3.0
0x2311f4…231388 [0x08]: C0x00e4.0x2.0
0x2311f4…231388 [0x09]: C0x00e4.0x3.0
0x2311f4…231388 [0x0a]: C0x00e5.0x0.0
0x2311f4…231388 [0x0b]: C0x00e5.0x1.0
0x2311f4…231388 [0x0c]: C0x00c0.0x3.0
0x2311f4…231388 [0x0d]: C0x00c1.0x0.0
0x2311f4…231388 [0x0e]: C0x00c1.0x1.0
0x2311f4…231388 [0x0f]: C0x00c6.0x1.0
0x2311f4…231388 [0x10]: C0x00c6.0x2.0
0x2311f4…231388 [0x11]: C0x00c9.0x0.0
0x2311f4…231388 [0x12]: C0x00c9.0x1.0
0x2311f4…231388 [0x13]: C0x00c8.0x3.0
0x2311f4…231388 [0x14]: C0x00ca.0x0.0
0x2311f4…231388 [0x15]: C0x0091.0x1.0
0x2311f4…231388 [0x16]: C0x00cb.0x0.0
0x2311f4…231388 [0x17]: C0x0093.0x1.0
0x2311f4…231388 [0x18]: C0x00ce.0x1.0
0x2311f4…231388 [0x19]: C0x00ce.0x2.0
0x2311f4…231388 [0x1a]: C0x0097.0x1.0
0x2311f4…231388 [0x1b]: C0x0098.0x0.0
0x2311f4…231388 [0x1c]: C0x00ce.0x0.0
0x2311f4…231388 [0x1d]: C0x00ce.0x3.0
0x2311f4…231388 [0x1e]: C0x009d.0x1.0
0x2311f4…231388 [0x1f]: C0x009f.0x1.0
0x2311f4…231388 [0x20]: C0x00a1.0x1.0
0x2311f4…231388 [0x21]: C0x00a6.0x3.0
0x2311f4…231388 [0x22]: C0x0103.0x0.0
0x2311f4…231388 [0x23]: C0x00cf.0x2.0
0x2311f4…231388 [0x24]: C0x0104.0x1.0
0x2311f4…231388 [0x25]: C0x0104.0x2.0
0x2311f4…231388 [0x26]: C0x0106.0x3.0
0x2311f4…231388 [0x27]: C0x0107.0x0.0
0x2311f4…231388 [0x28]: C0x00eb.0x0.0
0x2311f4…231388 [0x29]: C0x00eb.0x1.0
0x2311f4…231388 [0x2a]: C0x00ec.0x2.0
0x2311f4…231388 [0x2b]: C0x00f0.0x2.0
0x2311f4…231388 [0x2c]: C0x00f0.0x3.0
0x2311f4…231388 [0x2d]: C0x00f2.0x2.0
0x2311f4…231388 [0x2e]: C0x0108.0x1.0
0x2311f4…231388 [0x2f]: C0x0108.0x2.0
0x2311f4…231388 [0x30]: C0x0107.0x3.0
0x2311f4…231388 [0x31]: C0x0108.0x0.0
0x2311f4…231388 [0x32]: C0x00fc.0x0.0
0x2311f4…231388 [0x33]: C0x00fc.0x1.0
0x2311f4…231388 [0x34]: C0x00da.0x1.0
0x2311f4…231388 [0x35]: C0x00da.0x2.0
0x2311f4…231388 [0x36]: C0x009e.0x1.0
0x2311f4…231388 [0x37]: C0x009e.0x2.0
0x2311f4…231388 [0x38]: C0x00dc.0x2.0
0x2311f4…231388 [0x39]: C0x00cb.0x1.0
0x2311f4…231388 [0x3a]: C0x00dc.0x3.0
0x2311f4…231388 [0x3b]: C0x00dd.0x3.0
0x2311f4…231388 [0x3c]: C0x00db.0x2.0
0x2311f4…231388 [0x3d]: C0x011f.0x0.0
0x2311f4…231388 [0x3e]: C0x0122.0x1.0
0x2311f4…231388 [0x3f]: C0x0122.0x2.0
0x2311f4…231388 [0x40]: C0x0122.0x3.0
0x2311f4…231388 [0x41]: C0x00df.0x3.0
0x2311f4…231388 [0x42]: C0x0112.0x0.0
0x2311f4…231388 [0x43]: C0x0112.0x1.0
0x2311f4…231388 [0x44]: C0x0118.0x2.0
0x2311f4…231388 [0x45]: C0x0123.0x1.0
0x2311f4…231388 [0x46]: C0x0123.0x2.0
0x2311f4…231388 [0x47]: C0x0123.0x3.0
0x2311f4…231388 [0x48]: C0x0124.0x0.0
0x2311f4…231388 [0x49]: C0x012e.0x3.0
0x2311f4…231388 [0x4a]: C0x012f.0x0.0
0x2311f4…231388 [0x4b]: C0x012f.0x1.0
0x2311f4…231388 [0x4c]: C0x0124.0x2.0
0x2311f4…231388 [0x4d]: C0x0124.0x3.0
0x2311f4…231388 [0x4e]: C0x0122.0x0.0
0x2311f4…231388 [0x4f]: C0x0129.0x2.0
0x2311f4…231388 [0x50]: C0x00c6.0x3.0
0x2311f4…231388 [0x51]: C0x00f0.0x0.0
0x2311f4…231388 [0x52]: C0x00f1.0x1.0
0x2311f4…231388 [0x53]: C0x00f1.0x3.0
0x2311f4…231388 [0x54]: C0x0115.0x2.0
0x2311f4…231388 [0x55]: C0x012a.0x0.0
0x2311f4…231388 [0x56]: C0x012e.0x0.0
0x2311f4…231388 [0x57]: C0x012f.0x2.0
0x2311f4…231388 [0x58]: C0x0130.0x0.0
0x2311f4…231388 [0x59]: C0x0130.0x2.0
0x2311f4…231388 [0x5a]: C0x0131.0x0.0
0x2311f4…231388 [0x5b]: C0x0134.0x1.0
0x2311f4…231388 [0x5c]: C0x0134.0x2.0
0x2311f4…231388 ]
0x2311f4…231388 }
0x231388…23151c Dummy {f00=0x008d, f01=0xc0a4, f02=» > @ IDENT TCLASS REL 11.0 81-01-26 870105041100 W TCLASS W F TCLASS W X W l W ~ W @ W IO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x23151c…2316b0 Dummy {f00=0x008d, f01=0xc0a4, f02=» > @ IDENT SCLASS REL 11.0 81-01-26 870105041100 SCLASS F SCLASS X l ~ @ A CDON CDC DISC P DATA PLON LINE CONTROLLER P DATA VUON VIDEO P DATA X25:ON X25 L
0x2316b0…231844 Dummy {f00=0x008d, f01=0x0190, f02=» J F IDENT MONTAB REL 11.0 81-05-27 870105041100 & " MONTABK SPDLCI FREQUE PAGQUE R CTAB01 | CTAB03 MONTABK FREQUE PAGQUE SPDLCI KBAD4 DIADN
0x231844…2319d8 Dummy {f00=0x008d, f01=0x4020, f02=» @ REL 11.0 81-05-27 870105041100 & " MONTABK SPDLCI FREQUE PAGQUE R CTAB01 | CTAB03 MONTABK FREQUE PAGQUE SPDLCI KBAD4 DIADN
0x2319d8…231b6c Dummy {f00=0x008d, f01=0x0190, f02=» J F IDENT SYSLOD REL 11.0 81-05-22 870105041100 F B SYSLODK SYSBAS NUMSEG PRGLG1 APLADA APLLAC APLLAPL APLLDA R F B APLMMC APLMMP APLNPE APLREL APLSTA APLTYPL APLIOE APLSEG APLSWB APLADA
0x231b6c…231d00 Dummy {f00=0x008d, f01=0x0190, f02=» APLSEG APLNPE APLSWB 0 APLSTA D APLTYPL X NUMSEG l PRGLG1 SYSLODK STKEND SCTIPL SCTANOB , ( I$ A 0 A A " A A
0x231d00…231e94 (3, 19) Dummy {f00=0x008d, f01=0x0190, f02=» @ " A. bREL & TABBE 4 , ( O UU @>B @ A D , ( k @ D E D E P t MMDDIV , ( $_( W V W V P ERROR SCTMSZW
0x231e94…232028 Dummy {f00=0x008d, f01=0x0190, f02=» @ @ A , ( ! P A @ , , ( ! @ $ A A @ , ( H @ @ E E E E E , ( 9A A & E @ F CRP , ( U <A COP <A BAP AS
0x232028…2321bc Dummy {f00=0x008d, f01=0x0190, f02=» MMEND , ( F ;j , ( Y P F P > , ( @ P - P _ n , ( :L E A W , ( F D AST =l R , ( ?
0x2321bc…232350 Dummy {f00=0x008d, f01=0x0190, f02=» P :L AST , ( A A E E A A , , ( 8 P W 89B @ V , ( $ W Zb A @ @ , ( A A @ D , ( # B AS @
0x232350…2324e4 Dummy {f00=0x008d, f01=0x0190, f02=» A _H | , ( S W , ( Y* L , ( H @ @ A @ | , ( L P , ( :l 9b )
0x2324e4…232678 Dummy {f00=0x008d, f01=0x0190, f02=» j , ( m U 8 !RRT A SCTNOP : , ( $ " @ P A A " @ > L , ( V T P T | , ( ;a=a?j V Y R W , ( ?J E =A;A E
0x232678…23280c Dummy {f00=0x008d, f01=0x0190, f02=»BD A : " A @ A @ * & M E A @ V @ * * & e @ P , . A X , ( } @ @ A A , ( , (
0x23280c…2329a0 Dummy {f00=0x008d, f01=0x018e, f02=» v , ( 3 _ 0 !TTX A 8 !CCT CC A , ( S _ 0 !;; !AAP !DDT F , ( sI @ @ A 6 0_ ; # v , ( H @ @ @ I A , ( P T , (
0x2329a0…232b34 (3, 20) Dummy {f00=0x008d, f01=0x0190, f02=» f , ( T @ " A @ @ @ MOVEN 8 , ( / I A ( A H SCTMXS x , ( IA @ A @ SYSLDM , ( c $ *P @ A * @ , , ( y $
0x232b34…232cc8 Dummy {f00=0x008d, f01=0x0190, f02=» T : , ( : 0 !TT 0 !;; , , ( : 0 !LLP !RRP !AA , ( + P !SSP !PPP !VVP !QQP W W , ( K P W A 0 !;;T , ( i : 0 !00R !99U !
0x232cc8…232e5c Dummy {f00=0x008d, f01=0x0190, f02=» : !00T A : | , ( 0 !99Q !00R P P =H_ : , ( TID=TCL=LEV=TDC=T0LC=0SDC=S0 L , ( '@ A I. : A A | , ( E " Q :d @ 1 # R P R W , ( cD * A $ W H
0x232e5c…232ff0 Dummy {f00=0x008d, f01=0x0190, f02=» A l , ( A A A F 0" P , ( A A A A < , ( A A A A : l , ( 7 9e :e Q P , ( W 9e @ P A 9C) A I " , ( w @
0x232ff0…233184 Dummy {f00=0x008d, f01=0x0190, f02=» A <C, D L " @ $ P , ( " :B A t w B J " T , , ( R Q @ ( = @ Q * & 7 @ "| _@ _$ : , ( U ! A A A A ! , ( s T A A
0x233184…233318 Dummy {f00=0x008d, f01=0x0190, f02=»R _ <e @ 2 z , ( $ T 9A $ < :B 9A) @ P A A , ( I T W 9D @ @ J , ( - r s @ A I T - A _ z , ( " M I N T P A < A V @ , ( m V S : ,
0x233318…2334ac Dummy {f00=0x008d, f01=0x0190, f02=»T X A | , ( : Y h C !CCT B. * , ( X B.9 H A ! _ ! L , ( # SST 0 U J X X | , ( CH A A X X S W , ( _$ A A A 0 :
0x2334ac…233640 Dummy {f00=0x008d, f01=0x0190, f02=»R l , ( @ U @ A p T : , ( A x _ 0V , - < , ( P X 9A_ : @ ! P (W ( : l , ( @ - , . , ( G@ @ 0 A;T , ( eA
0x233640…2337d4 (3, 21) Dummy {f00=0x008e, f01=0x0190, f02=» T 0 !;;P , ( 0 !;; " " - a ( , ( =! 0 - Y : 8 X , ( 0 ! P P Y , ( A / "_0 L Q " P Y P Y , ( O A V : , %T
0x2337d4…233968 Dummy {f00=0x008e, f01=0x0190, f02=» ( W $SWAP H D ! 5 P P 2 P , SP [P cP sP yT P H D !X U P L P P P P W +T =R AW$ ER IQ OR< h H D ! WWJ [P aR* mP4 uP {R R P T P W V W x n + ( H D ! v 7 (
0x233968…233afc Dummy {f00=0x008e, f01=0x0190, f02=» L H D ! k J j j H D ! V V P& J V T H D ! P ! % ) - J 1 IT Q U e " kP qT P H D !o* T P
0x233afc…233c90 Dummy {f00=0x008e, f01=0x0190, f02=» EW IW O SP UW [ gT sR yU R Q T H D ! 0 TV T Q0 R* P P 9 A GQ UR$ WP [R2 @ H D !_ ]W o V qW } 0 f j z H D ! P: % ) - IQ OP
0x233c90…233e24 Dummy {f00=0x008e, f01=0x0190, f02=» { < R z 8 L p H D ! P V W R T P 8 Td W - 7 ?T UT( YP , H D !& ]W eW m sV {S z PN TD T> Tp P P( T Tr x H D !H %TF - WS YW q }V W, Q( T W& T R P T R
0x233e24…233fb8 Dummy {f00=0x008e, f01=0x401e, f02=» @ 8 L p H D ! P V W R T P 8 Td W - 7 ?T UT( YP , H D !& ]W eW m sV {S z PN TD T> Tp P P( T Tr x H D !H %TF - WS YW q }V W, Q( T W& T R P T R
0x233fb8…23414c Dummy {f00=0x008e, f01=0xc0e2, f02=» I sS uW V W, Q( T W& T R P H D ! R T R U T !V -P ?P CW k wT { P T P < @ < T P # 7P ; t ?P yT P P @ H D ! f T h P V W R T
0x23414c…2342e0 Dummy {f00=0x008e, f01=0x018e, f02=» J F IDENT SYSLDM REL 11.0 81-02-16 870105041100 SYSLDMK R SYSLDMK d bREL x STKCOMW SYSLOD TCLASS SCLASS( * & $H @ STKEND
0x2342e0…234474 (3, 22) Dummy {f00=0x00e1, f01=0x0190, f02=» DWTMEC , ( OA Y 5 X SCTSFA F , ( i * _6 : @ X SCTTCT@ , ( $ % @ * & $ @ R ERROR , (
0x234474…234608 Dummy {f00=0x00e1, f01=0x0190, f02=» $ : ` @ @ :a MULTN * SCTNOF : SCTFWL L , ( I$ @ @ A @ " ^ SCTFWT * & H ;a P A @ A $ A , ( / A @ T ) FREQUES
0x234608…23479c Dummy {f00=0x00e1, f01=0x0190, f02=» @ 3 S S @ , ( V A , ( @ : P T P , ( S S _* : * & H A A * 4 A , ( , A N =H N A @
0x23479c…234930 Dummy {f00=0x00e1, f01=0x0190, f02=» TTB:AM , ( IA" @ %!5!T . .W @ TTB:MT B TTB:CB T * & a = V 0 0W = V 2 f , ( y 2 P , ( " U , ( _2
0x234930…234ac4 Dummy {f00=0x00e1, f01=0x018e, f02=» V * & H . 0 S , @ $ TTB:ST R TTB:PW| d , ( 5 B S 4=J @ " S 6 v TTB:ID TTB:AP , ( M $ @ S 8 A @ S TTB:PP
0x234ac4…234c58 Dummy {f00=0x00e1, f01=0x0190, f02=» h PUSHN , ( @ a : > * & @ T ` @ W H A H , ( J AS BAT v SCTNOS , ( ! :a A * K @ @;C W , ( A @ " P " 0 J
0x234c58…234dec Dummy {f00=0x00e1, f01=0x0190, f02=» @ ) v * & } @ P S _ S A SCTIPL D , ( . @ B 3 3 J V , ( S J R , ( # 9h !RRP @ ! T , ( W J S W
0x234dec…234f80 Dummy {f00=0x00e1, f01=0x0190, f02=» , ( K B : P F : A , ( c@B A < H A , 4 , ( } P d , ( _ P A 6 , ( @ 8 8 4 D P , ( @
0x234f80…235114 (3, 23) Dummy {f00=0x00e1, f01=0x0190, f02=»Y % @ : A , ( E $ @ $T @ A A " , ( [! H A A R , ( u @ P A 8 , , ( H A $ @ $ @ < F DWTTAB , ( !AAT
0x235114…2352a8 Dummy {f00=0x00e1, f01=0x018e, f02=» @ Y !TTX , ( " Y : !TT $ * & 5 X !CCT P @ T , ( S @ 4 U $ $ , ( o _. P @ , ( 4 U $ $
0x2352a8…23543c Dummy {f00=0x00e1, f01=0x018e, f02=» f SCTCDT * & 8 8 3 N * * & H U * H , ( N . !TTT _ !CCP R v , ( - Y W P A A , ( K @ @ < , (
0x23543c…2355d0 Dummy {f00=0x00e1, f01=0x018e, f02=» f , ( @ I K T K YB , ( _b @ L @ J @ % P 8 * & @ @ 4 4 4 _r : A h , ( @ " @ " F !SST , ( + W !AAT W !VVT W ! , ( K PPT W
0x2355d0…235764 Dummy {f00=0x00e1, f01=0x0190, f02=» DWTST , ( " H P&? @ . #? H R& D , ( R# * H H D H H DWTOR x , ( > @ D T , ( @ 0 @ . ) I P D #@ DWTADR DWTECHO
0x235764…2358f8 Dummy {f00=0x00e1, f01=0x0190, f02=» ;$ Z I Z I Z D # P , ( S " W W D HV ` < . * & o T @ < 1 Q a < : @ ^ , ( % P H I H , ( V T P H U , ( @ U A
0x2358f8…235a8c Dummy {f00=0x00e1, f01=0x0190, f02=» H $ I X % E | , ( - B , a < : , ( G Q R L , ( c D P ? # ;H ;D& >c : | , ( Q R D P ? # ;H , ( ;D & >b :
0x235a8c…235c20 Dummy {f00=0x00e1, f01=0x0190, f02=» * Q | , ( $_8 A 0 A * A , A , ( " . @ , @ . P A . L INTRT1 | , ( 7H @ 2 E ` A , * , ( O Q _8 : N =H N * : N , ( m =H N * : &
0x235c20…235db4 (3, 24) Dummy {f00=0x00e1, f01=0x0190, f02=» T Z _ : @ ! , ( P (W ( : @ 0 P 0 _ 0 , ( A @ Q @ P P _ @ ` , ( P A P _ Q , ( 3 D @ Q 1 a : @ 0 , ( M
0x235db4…235f48 Dummy {f00=0x00e1, f01=0x0190, f02=» @ 0 2T P _ , ( / : .P W P , ( @ A .X @ * P , ( T :D * J T J , ( & P T & >aW T P& , ( 5 P T R&@P @ 9
0x235f48…2360dc Dummy {f00=0x00e1, f01=0x0190, f02=» (T P p , ( _ 3 _ : @ , ( @ @ T : @ , ( dR d R _ 00)0= p , ( % : @ H ;l H :lT , ( @ ;A 0 0 P 5 , ( 9
0x2360dc…236270 Dummy {f00=0x00e1, f01=0x0190, f02=»bPSW * & : d : . ! T * & ! . : : MOVEN h , ( $ R Y x , ( U @ f : V U V B " H D !d P 0 ) 0
0x236270…236404 Dummy {f00=0x00e1, f01=0x0190, f02=» ! ` U P V O oT T f P P f T W h T W H D !F P + CU WT8 P Rh P T W* S W U L H D ! + ;P MP ] P o Z j P z Pd P$ P - f KT H D ! n [ P k Z s j wP~ T T
0x236404…236598 Dummy {f00=0x00e1, f01=0x0190, f02=» O c s w z P$ P P )T - 6 /WB | H D !I$ 5T 9 > ;W6 AT E F GW* MT Q N SW YT ] V _W eP q ~ PV P 8 H D ! P d PV Tp P %T OP6 W ]W( a d cW" iV oT PD H D ! 3 P( U P P: P W [QP aRJ Q( R" F P
0x236598…23672c Dummy {f00=0x00e1, f01=0x407a, f02=» )W ;P CP ]W oP yP P h < 8 P T P T R R T 5P CR qP u T R $ d@ vP 8 H D ! P d PV Tp P %T OP6 W ]W( a d cW" iV oT PD H D ! 3 P( U P P: P W [QP aRJ Q( R" F P
0x23672c…2368c0 Dummy {f00=0x00e1, f01=0x8190, f02=» + ;Tr T H D ! E ( IP, M V [U y H P, V U 4 P U T %P )R - 4 H D !_ 1W ; ( ?P0 G V O f c s w H V P$ z P P )T - 6 /WB H D !I$ 5T 9 V ;W6 AT E GW* MT Q SW YT ] _W eP q PV P H D ! P d z
0x2368c0…236a54 (3, 25) Dummy {f00=0x00e1, f01=0xc162, f02=» Q( R" Y ] gP Q P Q P 1Q Q U H D !3 _P Q P Q P #Q P T P W P Q H H D ! P P P P 7P@ CP eT T P P W P T TT H D ! P W P P +W =P GP OP _P
0x236a54…236be8 Dummy {f00=0x00e1, f01=0x0190, f02=» J F IDENT SYSLCR REL 11.0 81-05-19 870105041100 SYSLCRK R SYSLCRK d STKEND x STKMOV SCTSFAR , ( H ) @ A x STKCOMW GETAPP , (
0x236be8…236d7c Dummy {f00=0x00e1, f01=0x0190, f02=» A ^ d H t , ( c d H K 2 CMPADR D ERROR V , ( ;A @ x | R f , ( - @ x - J N ! , ( TTP N :H N TBT K , ( W 2
0x236d7c…236f10 Dummy {f00=0x00e1, f01=0x0190, f02=» @ !TTXX !CCT !UU , ( ) T @ x K (9A A x , GETNUML , ( E $ @ 2 n , ( a .:H N R P V * & _ N R :h$ * &
0x236f10…2370a4 Dummy {f00=0x00e1, f01=0x0190, f02=» l INILEN , ( A x A j , ( H A l @ A L A N SCTOPTP ~ , ( @ CR @ D MULTN , ( 9 G " F * E H , ( W
0x2370a4…237238 Dummy {f00=0x00e1, f01=0x0190, f02=» T _ k k :A K , ( J 4 P T T 0 * & @ _ K K @ @ ` , ( x @ ` @ j @ @ * & @ l @ d A @ , ( 3 @ A
0x237238…2373cc Dummy {f00=0x00e1, f01=0x0190, f02=» @ L >k | * & 8 A A , ( H Q R ^ V H MMTAB x , ( ;k " , , ( @ @ T A R @ ^ P * & U U
0x2373cc…237560 Dummy {f00=0x00e1, f01=0x0190, f02=» 9k! " P , ( e $ % _ @ $ @ & A & A $ $ MMENT T * & }$H A " & A d * & J ` & ) K @ , ( b G ` & ) , ( - J ` $ 4
0x237560…2376f4 (3, 26) Dummy {f00=0x00e4, f01=0x0190, f02=» R X4 _ , ( ; B J j A ~ A t N GETTAB P MOVMMT b , ( U$ P ( * @ ~ A ~ % t , ( m R , , ( " E R A t R , (
0x2376f4…237888 Dummy {f00=0x00e4, f01=0x0190, f02=»D , ( P , I . * B TTB:CB : TTB:SB L TTB:SA ^ , ( 0 C 2 C 4 C 6 @ b p MMBEG * & D ` & E , D B 8 I ` , ( 1 " $ A r N P (
0x237888…237a1c Dummy {f00=0x00e4, f01=0x0190, f02=» D E n , ( ! @ b H ` & H ` $ E , ( #_ A P @ L 9k > , ( B $ A A J ` n , ( & ( ` $ A N J $ K , ( @ $ J J | | , ( #
0x237a1c…237bb0 Dummy {f00=0x00e4, f01=0x0190, f02=» u D 4 Q _l , 1 , ( A * = G 6 2 . LSTPAG ^ , ( @ & A $ $ @ E p SCTTCT , ( $ : " L M _V < < * & <P & &X ' 6 @
0x237bb0…237d44 Dummy {f00=0x00e4, f01=0x0190, f02=» A ^ @ @ SCTEFAR , ( C :B A @ @ 9n A @ L 2 , ( [D @ @ R P J V @ ^ A b MOVING , ( u B @ A A R K B , ( !" : @ H <B A z P P ` & , (
0x237d44…237ed8 Dummy {f00=0x00e4, f01=0x0190, f02=» * & M : Z A V @ , ( H R R > R 2 , ( ) W > <B @ b , ( I p @ P P ` & 1 ` $ A , ( a v @ r ` Z _j @ V , ( y Z : A T R
0x237ed8…23806c Dummy {f00=0x00e4, f01=0x0190, f02=» D P H E , ( _( ` E _6 " D T E " , ( ` E D E % : Z " R R , ( ) ;B Z ` " , ( G R P P P ` & , ( c @ @ B
0x23806c…238200 Dummy {f00=0x00e4, f01=0x0190, f02=» D : A H W A , ( H ?AP ^ D : 4P " D , ( " , 8 , H H 6 M N , ( j - I . Y0 : ~ , ( @ ) f : R X A h , ( C @ N T : N @ f A
0x238200…238394 (3, 27) Dummy {f00=0x00e4, f01=0x018e, f02=» T l , ( T _v J , V , ( P _ N L % J < , ( J ` & G G ` $ U l , ( @ ` & G ` $ : P , ( R( V : @ t , ( ! 9 P
0x238394…238528 Dummy {f00=0x00e4, f01=0x0190, f02=» J H D ! ! P6 P * UT i ^ Q R V T P( U U cP ` ` H D ! ` P0 $ P 0 + 1 0 5 UPn m $ ` P T H D ! W T PH ` CP g | T H D ! +P kP Q |
0x238528…2386bc Dummy {f00=0x00e4, f01=0x4042, f02=» P H V P U P #V 9P ^ ,@ >P ` ` H D ! ` P0 $ P 0 + 1 0 5 UPn m $ ` P T H D ! W T PH ` CP g | T H D ! +P kP Q |
0x2386bc…238850 Dummy {f00=0x00e4, f01=0x0190, f02=» J F IDENT SYSINI REL 11.0 81-01-26 870105041100 F B SYSINIK INILEN INIEND dREL MOVEY ERROR CMPADRL NXTBLK NXTCOM R H D ! CONVRT GETNUM MULTY XMOVE MOVING MOVMMT MMRST GETTAB GETTTB H D ! MMENT PUSHYdPOB GETAPP8 SETTA
0x238850…2389e4 Dummy {f00=0x00e4, f01=0x0190, f02=» W z " tPSW @ . , ( K @ ; Z [ : : 2 [ [ > MMDDIV0 l n i" 2 : MMTAB TABBE MMEND , (
0x2389e4…238b78 Dummy {f00=0x00e4, f01=0x0190, f02=» MOVEY XMOVE , ( : R $ )_ : A ( ( , ( H A * A , Q X , ( I @ ( @ ` $ x A ( @ * & #D @ * ` & p R A * @ , ( ; , A , ^B _F
0x238b78…238d0c Dummy {f00=0x00e4, f01=0x0190, f02=» V U _ * & @V Z K A A ( , ( & :K A ( V , ( @ Q R ( V * & @ P @ SETTABN , ( ` $
0x238d0c…238ea0 Dummy {f00=0x00e4, f01=0x0190, f02=» Q ( ; @ ( : : GETTAB ~ 0 GETTTB D * & m , X G : " L X SCTTCT( , ( 2 @ V @ 0 H INBIMA , ( A 2 : @
0x238ea0…239034 (3, 28) Dummy {f00=0x00e5, f01=0x0190, f02=» @ @ 1 R U W 9a MMRST 0 , ( P _" : P _ B GETAPP8 8 r , ( 7 @ : @ ` U W L , ( S P _ @ P _" l 0 , ( o W P .
0x239034…2391c8 Dummy {f00=0x00e5, f01=0x0190, f02=» :C # : .=H N , ( D N .=H N " GETNUM R , ( N N : d 8" f QUEJOBR SAVE8 , ( R _ ZY QY : ? ? , ( + R 0
0x2391c8…23935c Dummy {f00=0x00e5, f01=0x0190, f02=» SCTOPT , ( @ e " b ` $ : @ . @ SCTSFA F SCTPAG X SCTNOPW j , ( ! @ P | , ( P P P _ _ @ SCTPSZ , ( @@ @ :b @
0x23935c…2394f0 Dummy {f00=0x00e5, f01=0x0190, f02=»W Y P @ Q @ ~ , ( - . P A. @ . @ . P SCTEFA L * & G _l A 9n A :B A ^ TTB:SPW SEG:NS , ( _ D @ < | P N P , ( w 9b .V 3 S S
0x2394f0…239684 Dummy {f00=0x00e5, f01=0x0190, f02=» ] 9A n , ( @ ] 9k! ] PAGQUE > , ( Y P P P , ( ) S @ P 3 _ SCTBUG8 , ( G 3 A. @ SCTSTB , (
0x239684…239818 Dummy {f00=0x00e5, f01=0x0190, f02=» , ( A * $ TDISP 8 INILEN H INIEND & " ) *_ > , p H D ! , n WN B @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x239818…2399ac Dummy {f00=0x00e5, f01=0x40ac, f02=»P P V W U4 T W P P( V W #P )Q ~ H D ! /P AP oP: uP4 V T" T W P: P4 9P Y Z y } : @ @ > K B R > QF 1R0 I > P > V U H D ! @ V > Q R >
0x2399ac…239b40 Dummy {f00=0x00e5, f01=0x0190, f02=» J F IDENT DSKSUB REL 11.0 81-01-26 870105041100 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , ( @
0x239b40…239cd4 (3, 29) Dummy {f00=0x00e5, f01=0x0190, f02=» X H t VOLADR < DWTOR ( DWTVOL 8 , ( 5 p ^ > X $ ^ J NVLCHK R z DWTORDC DWTNVL * & Q$ W X Y :g H I , ( i ? P X P ,P
0x239cd4…239e68 Dummy {f00=0x00e5, f01=0x0190, f02=» SCTFWT , ( Z.?AZ2 @ Q X " FWTEW1 J EWTVOL FWTPAR n , ( $XJ ( I T E INXDWTL NVLTAB TTABFM TTABLD * &
0x239e68…239ffc Dummy {f00=0x00e5, f01=0x4036, f02=» P P P T h @ 2 X " FWTEW1 J EWTVOL FWTPAR n , ( $XJ ( I T E INXDWTL NVLTAB TTABFM TTABLD * &
0x239ffc…23a190 Dummy {f00=0x00e5, f01=0x0190, f02=» J F IDENT SYSTAB REL 11.0 81-02-23 870105041100 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTTCT SCTCDTL SCTPAG R F B SCTNOP SCTPSZ SCTSTB SCTOPT SCTBUG SCTDMTL SCTDMI SCTFWT F B SCTNOF SCTNFT SCTFWL SCTBLK
0x23a190…23a324 Dummy {f00=0x00e5, f01=0x0190, f02=»:NC SWB:DS SWB:EL SWB:NS8 STKEND2 STKCOM z F B STKMOVW ACBIOE ACBSWB ACBSEG ACBNPE ACBMMP ACBMMC ACBLAP 4 & " ACBLAC ACBSTA ACBREL ACBADA ~ SEG:FC SEG:NS SEG:ST@ SEG:DSN SEG:EL
0x23a324…23a4b8 Dummy {f00=0x00e5, f01=0x0190, f02=» SWB:EL SWB:NS8 ACBIOE 0 ACBSWB D ACBSEG X ACBNPE l ACBMMP ACBMMC ACBLAP ACBLAC ACBSTA ACBREL ACBADA
0x23a4b8…23a64c Dummy {f00=0x00e5, f01=0x0190, f02=» CHLT1 IHFDN , ( , ( ! P , ( 1 IHDU1 , ( A , ( Q
0x23a64c…23a7e0 Dummy {f00=0x00e5, f01=0x0190, f02=» SCTMSZK SCTSFA , SCTEFA @ SCTIPL T SCTANO h SCTTCT | SCTCDTL , ( @ SCTPAG SCTNOP SCTPSZ
0x23a7e0…23a974 (3, 30) Dummy {f00=0x00c0, f01=0x4180, f02=»F SCTNFT SCTFWL SCTBLK 4 SCTDCT H SCTNOS SCTMXS@ p , ( ~ SCTMOXS STKEND2 STKMOVW Z STK
0x23a974…23ab08 Dummy {f00=0x00c0, f01=0xc116, f02=» , ( 6 SCTMXS@ 4 SCTMOXS H STKEND2 p STKMOVW Z STKCOM h [ $ ) _ _
0x23ab08…23ac9c Dummy {f00=0x00c0, f01=0x0190, f02=» J F IDENT TDISP REL 11.0 81-01-26 870105041100 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x23ac9c…23ae30 Dummy {f00=0x00c0, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:STL TTB:SB , ( 9 (X: @ P T M ]J , ) L QLTDSKR , ( U
0x23ae30…23afc4 Dummy {f00=0x00c0, f01=0x0190, f02=» , ( $" > [ [ Z P D PAG:QB 8 PAG:PA J TTB:AP , ( 0P P - I 1 P " n ACBMMP0 ACBNPE TTB:MT , ( I Z X X - P _ Z A
0x23afc4…23b158 Dummy {f00=0x00c0, f01=0x403e, f02=» [R iP* mP sU PJ P P W | (@ ::QB 8 PAG:PA J TTB:AP , ( 0P P - I 1 P " n ACBMMP0 ACBNPE TTB:MT , ( I Z X X - P _ Z A
0x23b158…23b2ec Dummy {f00=0x00c0, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x23b2ec…23b480 Dummy {f00=0x00c0, f01=0x0190, f02=»LDSEG TTB:SBR , ( 5 $P c P W T P RELPAG P LKM030 Z b SWL48 v , ( Q ,$^T A V ( LKMAL , ( k U P @ V L LKMERR
0x23b480…23b614 (3, 31) Dummy {f00=0x00c1, f01=0x018e, f02=» v INIFLGN PFPOST * IHPFAR > , ( #P A A R DISQUE , ( Q ? > ? @ XB PFINIT * & ) A A _N A A A I
0x23b614…23b7a8 Dummy {f00=0x00c1, f01=0x0190, f02=» f , ( + < Q P Q R Y _ A , ( K ) $ ( P P JW 8 , ( k P ) % X % A _` & P Y _l h MONCLOC MEXIT , ( Z _r 8 FREBLK , ( @"
0x23b7a8…23b93c Dummy {f00=0x00c1, f01=0x40be, f02=» %T 5P ;P ?WF OP UT gV uP {V Q Q H D ! Q ) 1 5 ; ?R I M O ]P aP gW y P H @ P @ Z _r 8 FREBLK , ( @"
0x23b93c…23bad0 Dummy {f00=0x00c1, f01=0x018e, f02=» J F IDENT TPROC REL 11.0 81-03-05 870105041100 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x23bad0…23bc64 Dummy {f00=0x00c1, f01=0x414c, f02=» * & 3 <U "R P X DWTTAB 6 , ( M R X T X T . T H , ( gA G Y6 G _f P x LKMRQE` LKMQDIA & " ,P - _ < 8 P R Pp -
0x23bc64…23bdf8 Dummy {f00=0x00c1, f01=0x0190, f02=» J F IDENT MSUBS REL 11.0 81-01-26 870105041100 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2 IHRET8 IHRET2 IHRET1
0x23bdf8…23bf8c Dummy {f00=0x00c1, f01=0x018e, f02=» ! $P T I QMJOB J . TTMJOB@ @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA TTB:ID , ( Y $ W ? T T U T U TTB:SB^
0x23bf8c…23c120 Dummy {f00=0x00c1, f01=0x0190, f02=» GETBLK , ( P 0 U _h FREQUE H , ( ? @ T 0 A 1 Q Q Z FREBLKL , ( > > 0 @ 1 A P P FNDDWT TTB:TD FNDDWD , (
0x23c120…23c2b4 (3, 32) Dummy {f00=0x00c1, f01=0x0190, f02=» SCTTCT , ( ; X W ? ` @ @ P $ IHRET8 ` @ IHRET2 d T IHRET1 h h IHRTN j | PFINIT l PFTAB * & U@ H W W > > > > > > @ SWL48 , ( q V ?
0x23c2b4…23c448 Dummy {f00=0x00c1, f01=0x0190, f02=»ALTY RELPA2 RELPAG " SEG:PBx 6 PAGQUE0 H , ( D ? A. U W L Z PAG:QB PQEMTY , ( M 0 - A Q @ TTABLDF $ @ " P A "
0x23c448…23c5dc Dummy {f00=0x00c1, f01=0x4022, f02=» P d @ RELPAG " SEG:PBx 6 PAGQUE0 H , ( D ? A. U W L Z PAG:QB PQEMTY , ( M 0 - A Q @ TTABLDF $ @ " P A "
0x23c5dc…23c770 Dummy {f00=0x00c1, f01=0x018e, f02=» J F IDENT TTMJOB REL 11.0 81-01-26 870105041100 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTB:AP TTMJOBL TTB:QL R 6 2 TTB:ID TTB:ST TTB:PP TTB:PW TTB:SA TTB:TDL TTB:AMK TTB:MT TTB:CB
0x23c770…23c904 Dummy {f00=0x00c1, f01=0x40f6, f02=» TTB:QL TTB:ID TTB:ST , TTB:PP @ TTB:PW T TTB:SA h , ( ! #M 1 | TTB:TDL ( A P @ TTB:CB
0x23c904…23ca98 Dummy {f00=0x00c1, f01=0x8190, f02=» J F IDENT TOSSIO REL 11.0 81-04-13 870105041100 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT TIOMXIC R H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX M
0x23ca98…23cc2c Dummy {f00=0x00c1, f01=0x818e, f02=»WTECBW DWTOPT DWTOR DWTOCH DWTADR DWTTAB8 DWTWAT2 D @ DWTTQ DWTOTQ: DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 < F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVLN DWTVOL DWTA7 DWTA8 > : DWTCP2C DWTLD1V DWTLD2 DWTDEV DWTTBU: DWTTLNr DWTTCWV
0x23cc2c…23cdc0 Dummy {f00=0x00c1, f01=0x8190, f02=» DWTADR DWTTAB8 DWTWAT2 0 DWTTQ D DWTUEC V DWTMEC j DWTOTQ: ~ DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 " DWT
0x23cdc0…23cf54 (3, 33) Dummy {f00=0x00c6, f01=0x8190, f02=»2 , DWTDEV . DWTTBU: . DWTVOL . 4 DWTECH 0 H DWTTLNr 0 DWTTCWV 2 p DWTSQ > BUFLEN ACTADR0 ABTADRx INTADR POLADR HDRLEN@
0x23cf54…23d0e8 Dummy {f00=0x00c6, f01=0x8190, f02=» IT:DIX DK:DIXF ECBFC 2 ECBFN D ECBBA V ECBRL h ECBEL z ECBRC ECBCW ECBCW1 ECBCW2 , (
0x23d0e8…23d27c Dummy {f00=0x00c6, f01=0x8190, f02=» ^ TTB:ST , ( A ( , 0 4 8 < C C , ( _A T 8P Y ^ 5 ) P L TTB:SA | TDISP FNDDWT |TIO TIO:FM , ( {$ U , (
0x23d27c…23d410 Dummy {f00=0x00c6, f01=0x8190, f02=» C W O " v , ( # X Y ) C C , ( x # P Y '? Y F GETBLK v QTJOB , ( 3 H Y T # P W Y , ( O P R R P T P (@ , ( @ o (@ "
0x23d410…23d5a4 Dummy {f00=0x00c6, f01=0x8190, f02=» F C F C > TIOMXIC ( , ( B R Q F ! P C > C > < TTB:MT l , ( F 8D D ! 9b8d9D # C ~ , ( - > B R Q P B P , ( M 0$ T # R Q
0x23d5a4…23d738 Dummy {f00=0x00c6, f01=0x818e, f02=» X 0 n DISENDV , ( X D C > X , ( H U H B P P $ # P , ( Q > P , ( + _0 # T p > P p , ( K (_H _2 B
0x23d738…23d8cc Dummy {f00=0x00c6, f01=0x8190, f02=» f , ( _ X T (@ X L U L , ( Q M X 8 TENDIO h , ( L P ( L ) 1_f _& ? | , ( (@ X P 4 Y X , ( # 1 1 X P - M T $ P
0x23d8cc…23da60 Dummy {f00=0x00c6, f01=0x8190, f02=»P l , ( T P 0 1 FREBLK < ACTOTP N & " Y > > _ ` H D ! . t t H D ! ! # % ' ) d + gP yP | P T
0x23da60…23dbf4 (3, 34) Dummy {f00=0x00c6, f01=0xc084, f02=»UJ P PL Q P 7T ?P mU U n @ < @ Q4 P P 1P ?PJ kR mP sP yP P, P$ P( P * n@ ` H D ! . t t H D ! ! # % ' ) d + gP yP | P T
0x23dbf4…23dd88 Dummy {f00=0x00c6, f01=0x0190, f02=» J F IDENT LDTASK REL 11.0 81-06-10 870105041100 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x23dd88…23df1c Dummy {f00=0x00c6, f01=0x0190, f02=» h LT:SWB l LT:DSKK l TLSEG1 0 * & [ $V B QMEXITL p PAGQUE , ( y A ( @ PAG:QBV PAG:SBN , ( X H A ( 1 ) H
0x23df1c…23e0b0 Dummy {f00=0x00c6, f01=0x0190, f02=» TTB:AP , ( I$ M T M T M TLSEG2 B PAG:PA8 T SCTPSZ f SEG:ELR x * & $H U (@ H @ D TTB:SP8 SEG:FC , ( &! <a >a
0x23e0b0…23e244 Dummy {f00=0x00c6, f01=0x0190, f02=» &9b!0 # C ( ~ ECBRL , ( = V P * . ECBRC ^ , ( [ U ' ( B , n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x23e244…23e3d8 Dummy {f00=0x00c6, f01=0x4092, f02=»LTASK ACTOT ( $ D C 0_ 2 l B 4 , ( qV P CV OP W j [U _ wT S L |@ n RELPA2 , ( w DT :" U F . t , ( U _8 # C
0x23e3d8…23e56c Dummy {f00=0x00c6, f01=0x0190, f02=» J F IDENT ST8000 REL 11.0 81-01-26 870105041100 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x23e56c…23e700 Dummy {f00=0x00c6, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x23e700…23e894 (3, 35) Dummy {f00=0x00c9, f01=0x0190, f02=» J F IDENT DRND01 REL 11.0 81-05-27 870105041100 H D ! INPUT STABLK OUTPUT ENDBLK ECHRTN ECHOY ECHEND@ GETCHR ABORT R H D ! LENDERN LENDIS LDISP NDREPO NDRETOL NDREP NDRET NDSAV8 NDGET8 F B NDREWS NDREDWV NDGEDN8 NDG
0x23e894…23ea28 Dummy {f00=0x00c9, f01=0x018e, f02=» INTSL7W INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 ~ F B INTAS5 INTAS6 INTAS7 INTAS8 INTPL1 INTPL2 INTPL3 INTPL4 8 F B INTPR1 INTPR2 INTPR3 INTPR4W INTVU1 INTVU2 INTVU3 INTVU4V & " INTVU5N INTVU6C INTVU7V INTVU8 INTLT1
0x23ea28…23ebbc Dummy {f00=0x00c9, f01=0x0190, f02=» INTSL1P INTSL2 INTSL3 0 INTSL4 D INTSL5 X INTSL6 l INTSL7W INTSL8 INTAS1 INTAS2 INTAS3 INTAS4 INTAS5
0x23ebbc…23ed50 Dummy {f00=0x00c9, f01=0x018e, f02=» INTPR1 INTPR2 INTPR3 0 INTPR4W D INTVU1 X INTVU2 l INTVU3 INTVU4V INTVU5N INTVU6C INTVU7V INTVU8 INPUT
0x23ed50…23eee4 Dummy {f00=0x00c9, f01=0x0190, f02=» OUTPUT " LTCHRO ENDBLK & . LTENBL B RTENBL, T , ( D X ! f ECHEND@ 4 ECHOY > DWTST , ( 3 W X P DWTECH
0x23eee4…23f078 Dummy {f00=0x00c9, f01=0x0190, f02=» h GETCHR n ECBRL ECBBA . , ( g X W B U B ( > ECBEL n ABORT ~ LENDERN , ( " W C (@ > Y > LENDIS TENDIOl LDISP
0x23f078…23f20c Dummy {f00=0x00c9, f01=0x0190, f02=» NDSAV8 DWTA3 DWTA4 , DWTA5 < DWTA7 L * & H (@ 4 Y & Y ( Y * Y DWTA8 NDGET8 , ( $ , . > X & X ( X * X NDREWS NDREDWV
0x23f20c…23f3a0 Dummy {f00=0x00c9, f01=0x40b4, f02=»T j DISENDR NDGEDN8 NDGEDWN 0 $ 6 $ D 8 4 7 =W A MPf mWF uU W W W T b @ $ , . > X & X ( X * X NDREWS NDREDWV
0x23f3a0…23f534 (3, 36) Dummy {f00=0x00c9, f01=0x018e, f02=» J F IDENT DCADDR REL 11.0 81-01-26 870105041100 F B FNDDNAK FNDDNT GETDNA GETDNT GETDSA GETDST GETSNAL GETSNT R GETSSA GETSST GETDSA GETDST SCTDCT , ( ? W ?
0x23f534…23f6c8 Dummy {f00=0x00c9, f01=0x0190, f02=» FNDDNT | , ( _ P B _V B P _ _ FNDDNAK H GETDNT GETDNA p , ( } ? W ? W ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x23f6c8…23f85c Dummy {f00=0x00c9, f01=0x4098, f02=» _*" /] Z 8_ H D ! W P P %Tn AR& QT UR _P oP W W W V& T W T & W r @ ?W ? _ B , ( B ? ' V T _ _P GETSST GETSSA
0x23f85c…23f9f0 Dummy {f00=0x00c9, f01=0x0190, f02=» J F IDENT TMOVE REL 11.0 81-05-21 870105041100 * & TMOVE MOVSS MOVSU MOVUS MOVUU MOVFW R TMOVE FNDTIDC , ( (@ B B " #MP , ( P B #MP P W , (
0x23f9f0…23fb84 Dummy {f00=0x00c9, f01=0x0190, f02=» ; j MOVSS , ( w [ [ W Z Z : : U , ( ? ? ? P P $ ) U L , ( P x T $ ) W X $ ) | MOVUS TTB:MT , ( Y W U ? ? _ T , (
0x23fb84…23fd18 Dummy {f00=0x00c9, f01=0x0190, f02=» Y _2 r , ( U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x23fd18…23feac Dummy {f00=0x00c9, f01=0x4012, f02=» @ U ]( ? ? _ P P P ( , ( s $ ) ]^ P p r B , ( $ ($ ) _ (W X2 $ r MOVUU $ ]$ $ ) Y _ > H D ! P" !PH +P* 3P6 9 ;W( EP MP S R UW
0x23feac…240040 Dummy {f00=0x00c9, f01=0x0190, f02=» J F IDENT DCSTAT REL 11.0 81-01-26 870105041100 F B DCSRSTK DCSRLL DCSUPR DCSUPS DCSUPD DCSRED CSMAXLL DWTCHD R DWTCHN DWTCHD DWTCHN CSMAXLL DCSRSTK DCSRLL
0x240040…2401d4 (3, 37) Dummy {f00=0x00c8, f01=0x0190, f02=» ? ? ?W ? ? ? ? W ? ~ , ( A ? ? ? ~ _ X P ^ DCSRED n N , ( a _ > > > >W ? ? ? ? ? ? P B b DWTTAB , ( P B P X X P X W X , ( P X P D P ;A %W M
0x2401d4…240368 Dummy {f00=0x00c8, f01=0x4166, f02=» W ? ? t , ( X P %? R L V 9HR , ( = ,R S -W - X M W D ] W > >W > t H D ! W T 'W 1W =W U [P mW }P PV PP P W P H D ! P P W R P W W
0x240368…2404fc Dummy {f00=0x00c8, f01=0x40c4, f02=» J F IDENT DTTP03 REL 11.0 81-01-26 870105041100 DTTP03K TLTP03 R DTTP03K l TLTP03 D : @ 11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x2404fc…240690 Dummy {f00=0x00c8, f01=0x0190, f02=» J F IDENT DRKB04 REL 11.0 81-05-25 870105041100 KBAD4 R KBAD4 b LENDER t , ( 2 (@ U R -P DWTDEV , ( !D X X P $$ !| , ( ; P P
0x240690…240824 Dummy {f00=0x00c8, f01=0x0190, f02=» X $ x , ( 4 T %(@ X P Y INPUT H , ( (@W ! (@" X8 V R X , ( P P 9 _ X X Y W X , ( Xf Y R p< ECBCW , ( R <A<a
0x240824…2409b8 Dummy {f00=0x00c8, f01=0x0190, f02=» X P X $P <c $P $ , ( u $ V ! B W B ( , ( P $$ R % C X , ( * ! W ? X T 9 P _ , ( W W 9 T "? 9 0 R Q > ! B , ( W > ! B
0x2409b8…240b4c Dummy {f00=0x00c8, f01=0x0190, f02=» ! " X | , ( C @ $4 P X T 1 pR , ( _ p Y X X P 1 L , ( y W X X P $$ P | , ( D T W Z %W X $ X * & ^ Y $ ! P % " _L Y
0x240b4c…240ce0 Dummy {f00=0x00c8, f01=0x0190, f02=»D T 0 > P , ( ! _ W X * , ( = @ X P Y 0 %_ % Z ABORT , ( W@ Y (@ . X Y _( DWTST TENDIO DWTECH DWTADR
0x240ce0…240e74 (3, 38) Dummy {f00=0x00ca, f01=0x0190, f02=» p > U RR P /P$ ;P ?P CV G Y e u . T . H D !@ P W VP R P P W R R W T !W. -P 1P H H D ! 7P ;P EW ]P eP oP }V W( P& R Wv T P H D ! W W T R Q W8 T 0
0x240e74…241008 Dummy {f00=0x00ca, f01=0x4012, f02=» @
0x241008…24119c Dummy {f00=0x00ca, f01=0x0190, f02=» J F IDENT DRDI01 REL 11.0 81-01-26 870105041100 DIADY R DIADY b ECBCW t DWTDEV` , ( $ ! P B X R LENDER , ( $ # ;D !99P 7P P Y
0x24119c…241330 Dummy {f00=0x00ca, f01=0x0190, f02=»B Y W X V Y X DWTSB2N ( , ( " P y _B Y : LDISP j GETCHR z , ( W y P STABLKA , ( <d R Q 1_ Y ! , ( $
0x241330…2414c4 Dummy {f00=0x00ca, f01=0x0190, f02=» DWTECB , ( " ( P B V *@; V * ; V * OUTPUT @ , ( 9H Y ! T X R $ T R ENDBLKA LENDIS , ( S T P _N ! T 9 R 9 , ( o W 9 _ Y ! X
0x2414c4…241658 Dummy {f00=0x00ca, f01=0x4056, f02=» )V /V 5V AT$ GR MT UT h YP aT iR qW $ @@ R 9H Y ! T X R $ T R ENDBLKA LENDIS , ( S T P _N ! T 9 R 9 , ( o W 9 _ Y ! X
0x241658…2417ec Dummy {f00=0x00ca, f01=0x0190, f02=» J F IDENT DRDY02 REL 11.0 81-05-25 870105041100 DYADY R DYADY b DWTDEV t STABLK , ( B Y ! ENDBLK LENDER , ( T P P P
0x2417ec…241980 Dummy {f00=0x00ca, f01=0x0190, f02=» U ! T Y , ( m X Y ! T ! T , ( @H Y _6 Y Y P ECBRL ECBBA , ( D@ Y W B P B H " + , ( P Y T P ! T , ( $
0x241980…241b14 (3, 39) Dummy {f00=0x0091, f01=0x0190, f02=» 'D Y V B V _ X X , ( ? ! R Y ; _U . , ( [ ! ;h X $ X ! _x ^ , ( w _U ! ] B , ( H " _&_ P P P ECBRC , ( @ X
0x241b14…241ca8 Dummy {f00=0x0091, f01=0x0190, f02=» D " $ P X , ( X ! T . , ( 9 ! T ! T B ^ ECBEL * & U H C C X C ! LENDIS , ( i T B Y !
0x241ca8…241e3c Dummy {f00=0x0091, f01=0x0190, f02=» ! f V , ( X P W V X P , ( R Y ! T ! T N , ( P P Y ! T P ! ~ ECHRTNC * & T Y X # X ! * & 5 T ! T
0x241e3c…241fd0 Dummy {f00=0x0091, f01=0x018e, f02=» ! ! Y z , ( _ Y R X ! T DWTST H , ( " ! T ! T 4 X ? X DWTOR , ( A 9 R 9 X ' P P +P 9 DWTSB2A , ( $R 9 9 V 9 P C ,
0x241fd0…242164 Dummy {f00=0x0091, f01=0x0190, f02=» h , ( K B U $$ P P * & g P U D T _* B C 8 , ( B C > Y ! f , ( D ! Y Y f H D !xl T !P %P, )
0x242164…2422f8 Dummy {f00=0x0091, f01=0x4178, f02=»R* WU _ q yU D 2 PT P& PB T z H D ! % P8 P4 P0 P, U WJ TF P 1T 5 2 ETV MTN Q kT0 { 6 H D ! T U Tt U T^ V PP WD VF P R T T Pf H D ! P Tf 2 P !TX 7TB ?T: SR ]T eT qT {T2
0x2422f8…24248c Dummy {f00=0x0091, f01=0x0190, f02=» J F IDENT DRSU01 REL 11.0 81-05-25 870105041100 D @ CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 CHLTON` CHTAB R D @ DWREMU LOCHAN RECHAN REMFC SUMLOG LTCHRIL LTSTBL LTCHRO > : LTENBL LTDISP RTCHRI RTSTBL RTC
0x24248c…242620 Dummy {f00=0x0091, f01=0x0190, f02=» J B B DWREMU $ " CHLT1 $ 6 INTSAV H CHLT2 . Z CHLT3 . l CHLT4 . ~ CHRT1 . CHRT2 . CHRT3 . CHRT4 . , ( A ? W U , (
0x242620…2427b4 (3, 40) Dummy {f00=0x00cb, f01=0x0190, f02=» 4 U $P x , ( B> R > Y X '@T X NDREDW8 H * & ' T P 2W Y Z * & Y X DWTLD1 , ( # P _ X P y W SETIMP
0x2427b4…242948 Dummy {f00=0x00cb, f01=0x0190, f02=» 4X. U U T j T , ( U U ;h # <c$ * , ( s Xb B ^h Xn B ]v " Z DWTDEV * & X " X #` @P Q X # Y NDREP DWTADR@ * & H W W Y
0x242948…242adc Dummy {f00=0x00cb, f01=0x0190, f02=»P X # X > LTCHRIL RTCHRI 4 NDSAV8 H LTCHRO Z RTCHRO n , ( $P P W Y W LTDISP RTDISP@ RTSTBL " RTENBL " LTE
0x242adc…242c70 Dummy {f00=0x00cb, f01=0x0190, f02=» P l , ( MH y Y >_ ? " 2 4 DWTCP2 < , ( i$ T " X " # ; < N , ( T U P Q 5 U ~ , ( T Y > > P , ( X P P _ ] W Q Y
0x242c70…242e04 Dummy {f00=0x00cb, f01=0x0190, f02=» (@ > P X U 4X 5 , ( 1 X_& ? @ T A % " SUMLOG X R Q > > f H D !3$ -W 9 8 E b KP OP U < [ b _T eW` m qPV }TJ P( R$ H D ! . T T P WJ P P W %R 1 2 ;
0x242e04…242f98 Dummy {f00=0x00cb, f01=0x4036, f02=» = X C ET I Z M X Y X d @ 2 T A % " SUMLOG X R Q > > f H D !3$ -W 9 8 E b KP OP U < [ b _T eW` m qPV }TJ P( R$ H D ! . T T P WJ P P W %R 1 2 ;
0x242f98…24312c Dummy {f00=0x00cb, f01=0x018e, f02=» J F IDENT DRTP03 REL 11.0 81-06-24 870105041100 TPAD3 R TPAD3 b , ( $ t , ( ! 8 7 $ ' DWTOR DWTDEV * & A @ D X
0x24312c…2432c0 Dummy {f00=0x00cb, f01=0x0190, f02=» f , ( ! ! C W X # T !"P LENDIS 8 , ( H! & W !@P X ! T J , ( B R B H " +P P z , ( T ! ! ! " T Y GETCHR * & Y B X
0x2432c0…243454 (3, 41) Dummy {f00=0x0093, f01=0x0190, f02=» a H /P C _0 W Y ! , ( } _B ! !'P ! T " T X Y , , ( W X $ B , ( R B H " X +P P , ( T X E Q Y Y * & P B ! !
0x243454…2435e8 Dummy {f00=0x0093, f01=0x0190, f02=»P ! T " T x !x z * & a H W X X Y Y * & y @ # C X # C H , ( B P X E Q Y v * & ! ! ! !EP ! T " T x , ( $ !xX< Y Y T
0x2435e8…24377c Dummy {f00=0x0093, f01=0x0190, f02=» 0 ! ! ! LDISP ( , ( 3$ X B V " Y 8 , ( M # T # # P Y # T h , ( k @# # P Y Y ! X , ( ! X ! ! ! , ( B
0x24377c…243910 Dummy {f00=0x0093, f01=0x0190, f02=» P Q Q ! Q :C Q ! , ( Q :E Q ! Q :F Q b ( , ( 3 ! P ! R CQ ! P R b X , ( S ! R Q ! (R 9Q W ! P , ( s (Q ! W Q Q , ( $ , ! "
0x243910…243aa4 Dummy {f00=0x0093, f01=0x0190, f02=» ! T Y Y ! ENDBLK ( , ( "T ! T W ! T ! : INPUT j , ( T ! P -P ! X Y 4 z DWTECB` , ( 5 " U ! T 4 X DWTST DWTSB2
0x243aa4…243c38 Dummy {f00=0x0093, f01=0x0190, f02=» 4 ! n , ( ! 4 X ! 4 X "? ! 4 "@ ! , ( 4 X ! 4 X , ! 4 > B ! X n H D ! F N " @ B z 2 % z ) - 1 5 9 2 = H D !l qP P W T P
0x243c38…243dcc Dummy {f00=0x0093, f01=0x0190, f02=»R P P T Q P 4 P: P$ T v H D ! W #R 'R -P 9W E H K QP UT* YT* iW PF Q< 4 2 H D ! P T T Q8 P P& 4 % AV QT ]P gT sP 4 ~ H D ! 4 Q Q Q P R P
0x243dcc…243f60 Dummy {f00=0x0093, f01=0x4070, f02=» R b 8 4 T TH T@ W4 T4 T. #P 'P =U ET ST kT Z@ l 4 2 H D ! P T T Q8 P P& 4 % AV QT ]P gT sP 4 ~ H D ! 4 Q Q Q P R P
0x243f60…2440f4 (3, 42) Dummy {f00=0x00ce, f01=0x0190, f02=» J F IDENT DRGP04 REL 11.0 81-03-13 870105041100 GPAD04K R GPAD04K d STABLK x DWTDEV , ( " ! T Y ENDBLK LENDER * & P R P Q
0x2440f4…244288 Dummy {f00=0x00ce, f01=0x0190, f02=» W U Q T , ( oH Y Y X Q ! T OUTPUT P , ( D Y ! T ! T _@ b , ( R _Q Y _ /T _ V Q ECBRC , ( "Q P P C _r , (
0x244288…24441c Dummy {f00=0x00ce, f01=0x0190, f02=» V t INPUT , ( ) Y X : 1 ! " DWTOR R ECBCW b , ( AH y X ' $T B P Y r LENDISC ABORT , ( [ H W Y Y , ( s _
0x24441c…2445b0 Dummy {f00=0x00ce, f01=0x4090, f02=»T }Q T T T R Q T V Q Q P P P Tp R 0 , T^ TR TL P #V@ + n MT WP ]W P F z@ B P Y r LENDISC ABORT , ( [ H W Y Y , ( s _
0x2445b0…244744 Dummy {f00=0x00ce, f01=0x0190, f02=» J F IDENT DRGP03 REL 11.0 81-06-01 870105041100 GPAD3 R , ( [000b [00w [00v c [5n b , ( ! [0;0x [000` [0g H [00d , ( A [00{ [20h [20l [4m [0m GPAD3 b D
0x244744…2448d8 Dummy {f00=0x00ce, f01=0x0190, f02=» # Y P Y LENDER & , ( @ M jP ^ L 8 LENDIS h STABLK z , ( ! ! B GETCHR , ( B@ ! T X ! T +P Y OUTPUT
0x2448d8…244a6c Dummy {f00=0x00ce, f01=0x0190, f02=» ! T p , ( W! ! T ! T Y W , ( q@@ ! T +T _L X T _ @ ENDBLK p , ( ! T ! T ! T Q X , ( $ $ P ! T Y ! T , ( ! W V P T RW
0x244a6c…244c00 Dummy {f00=0x00ce, f01=0x0190, f02=»$ P Y r , ( 5 W X $ T Y * & O@ ! T W C _ . " ! @ * & k T Y _ ! Y n , ( D ! T , ( BP ! T P _ ! T _& ! , (
0x244c00…244d94 (3, 43) Dummy {f00=0x00ce, f01=0x0190, f02=» _D P Y _P Q ,0 Y ! _R , ( +@ B " P P * , ( G ! B 9d! P Y Z , ( e D Y $ @ $ ! 9h! P , ( T h Y ' FW R l Y ' , ( L & ! 9l! P
0x244d94…244f28 Dummy {f00=0x00ce, f01=0x0190, f02=» T $ P x , ( P ! Y * Y , <h Y + , ( ' ( * ! 6 ! _6 3 Y * H DWTST x , ( @ C 0 * ! ! DWTSB2 , ( _H Y X P Y , ( w ! Y
0x244f28…2450bc Dummy {f00=0x00ce, f01=0x0190, f02=»B , ( Y X Y * & ! T ," :HR :h ! : SETIMP@ h * & T _ ! T z INPUT , ( ! " ! P T , ( + ! ;T Y . X . T !
0x2450bc…245250 Dummy {f00=0x00ce, f01=0x018e, f02=» 4 dR d v , ( R _ 00,0: " , ( @ 4 X P Y 4 Y F , ( W ! Z Y Y v , ( @ X ," :HR 0 P :h ! . Y , ( D _ X , ! B Y _ , (
0x245250…2453e4 Dummy {f00=0x00ce, f01=0x0190, f02=» f , ( s 4 :h 0 :C ! 415182425 , ( 30333536485051606670720102030405 8 , ( 06070809101111131415 h , ( 03040608 12162448 H D ! c p i Z P P P P
0x2453e4…245578 Dummy {f00=0x00ce, f01=0x0190, f02=» T T T Q P T T W VH P x H D ! T W T ^ P TV Tb TZ U PD !R8 %U 'W2 /P4 ;W CT 4 H D ! 7 ST WW mTH } Z T P T P T P Z H D ! b Q" !Q 7P AP O [P g w P& T W
0x245578…24570c Dummy {f00=0x00ce, f01=0x407e, f02=» %PL )T" /T ;T2 d D @ K ]T a cR iW P R R P W R( P / ^ UW eR h@ z D ! 7 ST WW mTH } Z T P T P T P Z H D ! b Q" !Q 7P AP O [P g w P& T W
0x24570c…2458a0 Dummy {f00=0x00ce, f01=0x0190, f02=» J F IDENT DRTW01 REL 11.0 81-06-12 870105041100 TWADY IHTWY TWONY DWTW01 R TWADY v , ( x B U P R DISIOEA , ( ! U ! ! W ! Q ! B , ( ? Z P
0x2458a0…245a34 (3, 44) Dummy {f00=0x0097, f01=0x0190, f02=» R ?U C ! _f Y (P Y ) , ( _ ^ _ ! P B L * , ( # +P Y , ! U _ X Z DWTST , ( @ T _ W ! Y ! X , ( X ! X P R ?]* U C , ( = _.
0x245a34…245bc8 Dummy {f00=0x0097, f01=0x0190, f02=»WTOR , ( y " h Y _p ? X R X DWTECBN < DWTSB2 N , ( D X ' & P ` DISENDL IHTWY INTSAV * & ! X , _V A * & ? X
0x245bc8…245d5c Dummy {f00=0x0097, f01=0x0190, f02=» , ( P 8 B W B W B W B @ DWTA4 4 * & ; H T 8 T Y Y Y D DWTA5 r TDISP , ( S Y Y . ! . X ._B B * & m H 1 4 X X X X , ( ' 4 B
0x245d5c…245ef0 Dummy {f00=0x0097, f01=0x4152, f02=» z H D ! U P R !U + ( -W 1 D 5Q 9 j CP M . Q WP cR H D ! R s j P. P( P R Q W R U j P ( P: P 4 U ` H D !1 T W 4 +P /R 7U G M SP m 4 R P ( @ < R> P Q
0x245ef0…246084 Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT DRDU01 REL 11.0 81-05-18 870105041100 , ( DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 R DUADR DWTOR , ( Y Y X Q "9 ! :a NVLCHKC ECBRC
0x246084…246218 Dummy {f00=0x0097, f01=0x0190, f02=» t , ( Y P P DISIOE@ D ECBCW1 V * & P P P B h , ( ! T " T , ( 9 Y 9 ! I ! ! 9EV ! , ( Y H y
0x246218…2463ac Dummy {f00=0x0097, f01=0x0190, f02=»X # B Z x , ( H ^ H Y H P B , ( 9 Y Y R P 9 Y ! H , ( W ! H R T ! W ! @W x , ( ! U ! ! _ P Q R , ( 1 ! W ! ! @W ! !
0x2463ac…246540 Dummy {f00=0x0097, f01=0x018e, f02=» ! Y ! x * & @ Y X ' * C , ( X ! ! _B 8;e t F , ( <BV T ! 9FR ! I W ! H v , ( T R W I ! ! 9 R ! , ( ! 9 R Y ! I W ! , (
0x246540…2466d4 (3, 45) Dummy {f00=0x0098, f01=0x0190, f02=» f , ( ! H @ X $ P t R :A , ( R P Y ! t $ <A" :E ! 8 , ( ! H A Y ! W ! H h , ( X P _ X X H I ^ W , ( :A H I Y Y Y ! ! W , ( ? ! W t
0x2466d4…246868 Dummy {f00=0x0098, f01=0x0190, f02=» t :AV W X " , ( P X 9 :A ! ! P Y & , ( FW 8 T " T 9_ ! V , ( ! ! ! ! P Y ! , ( 4 X ;F 8 X P ! ! , ( 7 ! ! ! P Y
0x246868…2469fc Dummy {f00=0x0098, f01=0x0190, f02=» X X p W v , ( @ X 9A _ X X x ^ 4 B , ( 9 P 9 4 8 H F , ( " P # ;B 4 X " 4 Y 8 v , ( 9 Y Y :c Y 4 8 X P , ( 3 T X :F Y 4 X P , (
0x2469fc…246b90 Dummy {f00=0x0098, f01=0x0190, f02=»W 9 q r Y v PFPOST INXDWT ( DWTA5 : DWTA2 J , ( @ T Q Y Z TDISP DUONY DWTST , ( H Y " ? Y $ INIFLG * & Y
0x246b90…246d24 Dummy {f00=0x0098, f01=0x0190, f02=» Y n , ( 1$ ( Y $ Y P X , ( K @ Y '? ! J C @ P > SETIMP n , ( e _ 0P -_ * _ IHDUY IHDU1 IHDU2 INTSAV , ( A
0x246d24…246eb8 Dummy {f00=0x0098, f01=0x0190, f02=» 4 Y $W x ?AR X ' TENDIO ( , ( T C C X P : , ( . " ! ! T 9 ! I Y j VOLGET , ( $ + ! ! ! (T X P , ( ! K 0 @ ( TOT @ 0 1T @ 8
0x246eb8…24704c Dummy {f00=0x0098, f01=0x0190, f02=»W 4 , ( , ( C C C P , ( C ( $ ! H D ! " H Qj p T8 F T
0x24704c…2471e0 Dummy {f00=0x0098, f01=0x0190, f02=» V V ^ P r t R4 P t t H D ! X W" R T WJ WB U # )P -Q /R" 0 H D ! 3 7W ; A EW I O [T: c r eP gQ s t } t | H D ! H t V T R< R Wr R T
0x2471e0…247374 (3, 46) Dummy {f00=0x00ce, f01=0x0190, f02=» " R P ` H D ! P R: R~ P H R H Wz R P H D ! W + / 3 H 7 ; J =W2 A . CWF IR M H Q e gW k H h H D ! A o V W P P " W: T T H D ! y
0x247374…247508 Dummy {f00=0x00ce, f01=0x0190, f02=» L H D ! W P R P % - H /P 7T G H D ! M OP* S W YP a e oW y R W( W$ W H T T H D ! ( W T J p F T Tn T` P % )P A F GP H D ! @ a cP$ i mP {
0x247508…24769c Dummy {f00=0x00ce, f01=0x4022, f02=» & < @
0x24769c…247830 Dummy {f00=0x00ce, f01=0x0190, f02=» J F IDENT DRFD01 REL 11.0 81-04-14 870105041100 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x247830…2479c4 Dummy {f00=0x00ce, f01=0x0190, f02=»T TO A SS A W ! * & s 1 A 1 $ ! X " , ( Y 9 X L Y ! P DISIOEL DISEND * & X X| R ECBRL , ( B X
0x2479c4…247b58 Dummy {f00=0x00ce, f01=0x018e, f02=» , ( Y V Y Y Y , ( = X X T V X R # ;b9B 4 , ( ] Y Y ) Y X !? d , ( { P P P P ! X , ( P _ X x ^ Y , ( ! P
0x247b58…247cec Dummy {f00=0x00ce, f01=0x0190, f02=» , ( Y ! _ # , ( 9 4 ! # & X Y _0 W Y 8 PFPOST h , ( Y @ Y Y Y @ T B S W Y z ECBEL , ( w 8! T X Y X C X U TENDIO * & X
0x247cec…247e80 Dummy {f00=0x00ce, f01=0x0190, f02=»WTA2 SETIMPB , ( " Y $ X P y _. , ( @ & _> Y Y N , ( @ Y L Y ! ! T# P ~ , ( # W ! 9 ! T X , ( ?! ^< Y Y Y " X P Y
0x247e80…248014 (3, 47) Dummy {f00=0x00ce, f01=0x0190, f02=» X $ IHFDY INTSAV 2 , ( D Y "_ A * ? (@ X X D , ( K P @ T X T $C Y B t , ( @ K & % Y B K ( , ( X :AZp X P Y ! P + 7 , (
0x248014…2481a8 Dummy {f00=0x00ce, f01=0x0190, f02=» VOLGET , ( X T , ( 4 H A n;D A n 4 F DWFD01 B h , ( C | , ( c , (
0x2481a8…24833c Dummy {f00=0x00ce, f01=0x0190, f02=» R V Z V ` )V 5 ^ 9 X = A V E ` H D ! GT KV" O X QR _ d e f q h }PN P PF P T h P d < H D !IE b P P W2 T h P b T h P X d t H D !# P6 P T T N # / T 9 A T I M N
0x24833c…2484d0 Dummy {f00=0x00ce, f01=0x40ce, f02=» P %W ) n G F Q N UP l H D !B Y _ i mP q N J B P R P0 T T T H J P ( @ < J P #P, /P W Z ] ^ g V k X u }T F T U t @ H D !# P6 P T T N # / T 9 A T I M N
0x2484d0…248664 Dummy {f00=0x00ce, f01=0x40aa, f02=» J F IDENT EBCDIC REL 11.0 81-01-26 870105041100 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x248664…2487f8 Dummy {f00=0x00ce, f01=0x4156, f02=» J F IDENT DVTKB REL 11.0 81-01-26 870105041100 DVTKB R DVTKB b KBAD4 t & " @ KB bECH bCOD , ( ! "" 33 * & =
0x2487f8…24898c Dummy {f00=0x00ce, f01=0x0190, f02=» J F IDENT TOSSIO REL 11.0 81-04-13 870105041100 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT TIOMXIC R H D ! MONMMU ECBFC ECBFN ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1 ECBCW2 F B DC:DIX DM:DIX PC:DIX M
0x24898c…248b20 Dummy {f00=0x00ce, f01=0x018e, f02=»WTECBW DWTOPT DWTOR DWTOCH DWTADR DWTTAB8 DWTWAT2 D @ DWTTQ DWTOTQ: DWTUEC DWTMEC DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 < F B DWTSB2 DWTTP DWTECH DWTSQ DWTORD DWTNVLN DWTVOL DWTA7 DWTA8 > : DWTCP2C DWTLD1V DWTLD2 DWTDEV DWTTBU: DWTTLNr DWTTCWV
0x248b20…248cb4 (3, 48) Dummy {f00=0x009d, f01=0x0190, f02=» DWTADR DWTTAB8 DWTWAT2 0 DWTTQ D DWTUEC V DWTMEC j DWTOTQ: ~ DWTA2 DWTA3 DWTA4 DWTA5 DWTSB1 DWTSB2 " DWT
0x248cb4…248e48 Dummy {f00=0x009d, f01=0x0190, f02=»2 , DWTDEV . DWTTBU: . DWTVOL . 4 DWTECH 0 H DWTTLNr 0 DWTTCWV 2 p DWTSQ > BUFLEN ACTADR0 ABTADRx INTADR POLADR HDRLEN@
0x248e48…248fdc Dummy {f00=0x009d, f01=0x0190, f02=» IT:DIX DK:DIXF ECBFC 2 ECBFN D ECBBA V ECBRL h ECBEL z ECBRC ECBCW ECBCW1 ECBCW2 , (
0x248fdc…249170 Dummy {f00=0x009d, f01=0x0190, f02=»TB:SA , ( _ $P $ ) U TTB:MT > HALTN P , ( @ { @ T C @ ,W ` , ( 0P P > ? P q , ( 0 ) >_ T C T V GETBLK , (
0x249170…249304 Dummy {f00=0x009d, f01=0x0190, f02=» X P 4 t QTJOB TIOERR : $ LKMQDI 8 , ( / Y C C J QUEDEV T z QUEFIL V TTB:ST , ( K 8W T 8P Y ^ TDISP FNDDWT
0x249304…249498 Dummy {f00=0x009d, f01=0x0190, f02=» ! X P X T _l Xf Y @ , ( P R T X 0P P H * TTB:PW Z , ( T _ X I Y l , ( T # C C W O " # , ( X Y ) C C , ( ?
0x249498…24962c Dummy {f00=0x009d, f01=0x0190, f02=» (@ " 2 @ _ > X $? P , ( $ > > , , ( , ( F C F C > B TIOMXIC 6 , ( R Q F ! P C > C > F , ( ;
0x24962c…2497c0 Dummy {f00=0x009d, f01=0x018e, f02=» > X B U H Q X D , ( B $ T C x > C $ ) 0 , ( _ X 9BV X 0 ` DISENDV , ( X D C > X H , ( U H B P P $ # , ( 7
0x2497c0…249954 (3, 49) Dummy {f00=0x009f, f01=0x0190, f02=» DC:MOT , ( X > ? _ X T DC:MIN@ H , ( (@ ^ > > ? _ X , ( T (@ X L U L Q M , ( X L P TENDIO ( , (
0x249954…249ae8 Dummy {f00=0x009f, f01=0x0190, f02=» q - M T $ P _ T , ( " # p X L R P 0 , ( P P (@ ^ X ` , ( P P # P T P * & 0 1 Y > > ACTOTP
0x249ae8…249c7c Dummy {f00=0x009f, f01=0x018e, f02=» P P Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x249c7c…249e10 Dummy {f00=0x009f, f01=0x400c, f02=» @ Tv T V W^ h H D ! PZ RT P" WJ W, T( P$ T 'P QW _P qP P T $ H D ! P. T& P P T T W4 MP aT eP iW yP R P T p H D ! ! P Q 'P _Q~ iP0 oP* T QL U( Q2 T V ( H D
0x249e10…249fa4 Dummy {f00=0x009f, f01=0x0190, f02=» J F IDENT TIMER REL 11.0 81-01-26 870105041100 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x249fa4…24a138 Dummy {f00=0x009f, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x24a138…24a2cc Dummy {f00=0x009f, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x24a2cc…24a460 Dummy {f00=0x009f, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x24a460…24a5f4 (3, 50) Dummy {f00=0x00a1, f01=0x018e, f02=» J F IDENT TLDSEG REL 11.0 81-01-26 870105041100 TLDSEGK TLSEG1 TLSEG2 R TLDSEGK t TTB:SB RELPAG TTB:PW@ TTB:SP , ( @ T P ,$ T T _ T SEG:N
0x24a5f4…24a788 Dummy {f00=0x00a1, f01=0x018e, f02=» f TTB:SA PRUNN QLTDSK * TDISP < , ( O$ R M A _ L TLSEG1 h | SEG:PB PAG:QB TLSEG2 | PAG:PAC * & g! D $P D % 1 I D
0x24a788…24a91c Dummy {f00=0x00a1, f01=0x40a4, f02=» TTB:CB , ( $ _ 9B X $ T & u ( @ X > F , ( P T R %U 5T GWb OR oP U ^ @ PAG:QB TLSEG2 | PAG:PAC * & g! D $P D % 1 I D
0x24a91c…24aab0 Dummy {f00=0x00a1, f01=0x0190, f02=» J F IDENT TABORT REL 11.0 81-01-26 870105041100 TABORTK R TABORTK d FNDDWT x DWTTAB DWTADR ABTADR * & "R P X T X DWTST DWTECH
0x24aab0…24ac44 Dummy {f00=0x00a1, f01=0x4106, f02=»P X P t DWTECB ECBRC & DWTSB2C 6 * & IH Y 9 C H DISEND v LKMRQE " _ @ , ( Rf P^ TX PJ %RD )V 7T ?P* GP n @ H
0x24ac44…24add8 Dummy {f00=0x00a1, f01=0x0190, f02=» J F IDENT MONTIM REL 11.0 81-01-26 870105041100 GETTIMK SETTIM TDATE R GETTIMK r MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA
0x24add8…24af6c Dummy {f00=0x00a1, f01=0x40d6, f02=» TDATE , ( w P ?_" = > = > = _D , ( @ X _F R _ 00 @ > & <h$ P > p ( $ P ?P eP s wP R P @ $ 9H C ">h # TTB:SA
0x24af6c…24b100 Dummy {f00=0x00a1, f01=0x0190, f02=» J F IDENT TIOFM REL 11.0 81-05-13 870105041100 $ TIOFM DET:FM FCHECK FCHEC2 R TIOFM z , ( " 2 P P P P P P , ( ! P P T T T W FWTTAB TIOERR@
0x24b100…24b294 (3, 51) Dummy {f00=0x00a6, f01=0x0190, f02=»LC , ( [H P @ & ECBCW2 : ECBCW1 L , ( uI B B T P & T ^ FWTEW1 EWTEXL , ( ! L L R Q EWTEXB , ( $U , ,
0x24b294…24b428 Dummy {f00=0x00a6, f01=0x0190, f02=» QUEDEV , ( R R P X " TIO:FM J , ( $ $ _6 _6 GETBLK , ( H & FCHECK 0 FCHEC2 2 SCTNOF
0x24b428…24b5bc Dummy {f00=0x00a6, f01=0x4172, f02=»' X n DET:FM z , ( e > T > > P QTJOB P * & B X P 4 0 Y Y ` > H D ! R PX PD PP PL PH P2 !P, %P )T - 0 /T 3 z 7T =W A 0 CT$ H D ! e 0 gP T P, T$
0x24b5bc…24b750 Dummy {f00=0x00a6, f01=0x0190, f02=» J F IDENT LKMAL REL 11.0 81-01-26 870105041100 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x24b750…24b8e4 Dummy {f00=0x00a6, f01=0x40be, f02=» DMTEND` * & TCHPAG @ TCHMMU R TMOVE d ! " $ t , , @ TIMER TMWAIT TLUSEGC * & UT
0x24b8e4…24ba78 Dummy {f00=0x00a6, f01=0x0190, f02=» J F IDENT SDMBUF REL 11.0 81-01-26 870105041100 D @ CURBUFK BUFLNK BUFDMI BUFSNR BUFOR BUFSTA SDMGBU SDMRBUC R D @ BLKMXL CLRBUF SDMINI SDMRLB CRNQUE CRBUFL CRNENDC MXIND BLKMXL CRBUFL
0x24ba78…24bc0c Dummy {f00=0x00a6, f01=0x0190, f02=» Q P Q P A @ ~ HALTN * & a Z @ P % P % T W . , ( Q Q Q Q A 1 : SDMRLB ECBBA SDMRBUC CLRBUF , ( (@ : B 1 : @ ,
0x24bc0c…24bda0 Dummy {f00=0x00a6, f01=0x0190, f02=» BUFSTA 2 L f CRNQUE CRNENDC MXIND , ( d , (
0x24bda0…24bf34 (3, 52) Dummy {f00=0x0103, f01=0x418a, f02=» A ~ , ( @ , - M M M M @ , ( > =a 9a Q - _ - N ; > ~ H D ! T" P # ' )T - /T 7 9W = ?T E GT H D ! K O S UQ Y ] a g mP qP
0x24bf34…24c0c8 Dummy {f00=0x0103, f01=0x0190, f02=» J F IDENT SDMTSK REL 11.0 81-05-13 870105041100 SDMTSKK SDMERX ORDFLP R SDMOPN t SDMCLO ORDFLP SDMRFP , ( ( , (
0x24c0c8…24c25c Dummy {f00=0x0103, f01=0x0190, f02=» x DWTOR SDMLIM ( , ( S" N % R P 2=b T $ : FDBRRO j FDBADF | FDBKA , ( oH O N R N Q OPEFPB , ( @ N '? T
0x24c25c…24c3f0 Dummy {f00=0x0103, f01=0x0190, f02=» DWTTAB , ( A" N U G " N F $ TTB:PW@ F MOVFW X MOV:SU| h , ( HD N & P (' T *W , z ECBCW * & H Q G . G . F . F EATEST CALSNO
0x24c3f0…24c584 Dummy {f00=0x0103, f01=0x0190, f02=» RECECBS SDMRBU( , ( 9 8 : N " * & QBH O F . F . R , ( g 0 2 x FDBOMD SDMOOS , ( " N <! >P P P , (
0x24c584…24c718 Dummy {f00=0x0103, f01=0x0190, f02=» @X N "? v , ( $ X P N " $ X F FDBKEY F MOV:US X * & $ B X N & j CHKKEY , ( % D X , ( =A F XdW N '? T L *
0x24c718…24c8ac Dummy {f00=0x0103, f01=0x018e, f02=»TNR> RELPRO0 PROERR , ( "DW N L# N PW N 0 , ( $ N F $ N & D ` FMIOWR8 CRNGET , ( + N 4V O 4W RT , ( T F . F . N '?
0x24c8ac…24ca40 Dummy {f00=0x0103, f01=0x018e, f02=» SDMOIP , ( " VW O X O X N <$ Z SDMIOP J EASETB , ( 5" P T 0T ^ n SDMERX TENDIO , ( O!" N 4$ T 6 N ` * & g @(@(
0x24ca40…24cbd4 (3, 53) Dummy {f00=0x00cf, f01=0x0190, f02=» CRNCIF * & H "T " V K d K d F FWTFNR D * & H . K V F . K V N f K V , ( B d O O 4 N BUFSTA CHKRCD! FDBMRO * & $H h jP N l
0x24cbd4…24cd68 Dummy {f00=0x00cf, f01=0x0190, f02=»KYS ECBRC KEYERR , ( ? T p G r p tW . EOMERR8 ^ , ( Y J P!' v_ _ p EOFERR , ( u H_ x_$ N 4$ T 6 , ( @D N '? P D X N
0x24cd68…24cefc Dummy {f00=0x00cf, f01=0x0190, f02=» z X , ( N "? T @X $ , ( " p G r N W nX j T * & %$ P N l O _ D X N , ( ? N lT R P nX6 SDMBF1 * & W" |
0x24cefc…24d090 Dummy {f00=0x00cf, f01=0x0190, f02=» , ( B$ N l * h N MOVBW 4 , ( HH N l N ~ P D SDMSTS t , ( A | * N f FDBBLZ FDBSNR0 , ( "" # h C $ N :H C ,
0x24d090…24d224 Dummy {f00=0x00cf, f01=0x0190, f02=» X j EOFRC , ( M$ U O X O X G r CRNUPD: J , ( c$ : d N * & }B N $ G .T D D F * & .P . nXp jX6 N , ( l O _ D ' [
0x24d224…24d3b8 Dummy {f00=0x00cf, f01=0x0190, f02=» b O v DSUMOD. * & " N T b ( , ( ' P 2T P R P V , ( A : nX N lW N O , ( Y H j J T N , ( q f I dT b M d
0x24d3b8…24d54c Dummy {f00=0x00cf, f01=0x0190, f02=»R Q N XU xW O 4 BUFOR ( BUFSNR 8 * & D R P ' P Q ' T P J , ( H C . P C . RT x FMIORD , ( :_b T B $W O 4 , ( H W :
0x24d54c…24d6e0 Dummy {f00=0x00cf, f01=0x0190, f02=» ~ P 2 ! 2 # l _R4 f H D != eP wR P , T TD T< W6 P2 U T W " H D !g Q # P +T 7PF ; H ? V k s , P , P P P T n H D ! W P P P P R P P T P P Wn Rb P EW6 OTH H D !
0x24d6e0…24d874 (3, 54) Dummy {f00=0x0104, f01=0x40f8, f02=»P" R R H D ! @ Q` VZ %W0 AT UW T P0 P W p TN W %P ET P P H D ! +P ER GQ MU T P T T4 )Pl /Tf 3P OW wT V W P Z 8 4 T R Q U WV R, P8 T( T T W W Z @ W6 OTH H D !
0x24d874…24da08 Dummy {f00=0x0104, f01=0x4122, f02=» J F IDENT DFTAB REL 11.0 81-01-26 870105041100 , ( DFTAB DFTABE DMTIDP DMTIDS DFTABL R DFTAB DFTABE DMTIDP DMTIDS DFTABL $
0x24da08…24db9c Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT TIOSDM REL 11.0 81-02-26 870105041100 F B TIOSDMK SDMOIE SDMIOP SDMOEE SDMOOS SDMOOR SDMLIML SDMOEX R SDMOIP SDMOEX DISIOE , ( , (
0x24db9c…24dd30 Dummy {f00=0x0104, f01=0x0190, f02=» ! ! !9! p SDMOEE SDMOOS $ SDMOOR 8 SDMLIML L , ( ] :!R! !2! " " ` TIOSDMK DWTOR , ( } @ @ ~ N , ( @R ;A 09kP U
0x24dd30…24dec4 Dummy {f00=0x0104, f01=0x0190, f02=» B Z4 O N R FDBEXC , SCTTCT > , ( XH N P R @ $ :a P P FDBTNR TTABD TTABLN TABEND , ( $ O W X CRNGET
0x24dec4…24e058 Dummy {f00=0x0104, f01=0x018e, f02=» @ J N W | FDBKEY8 FDBRLE . , ( W " X $ & 1 @ ECBBA p FDBKA MOVUS , ( q Y B ( * U , FDBADF , ( >T ( )! T Y W
0x24e058…24e1ec Dummy {f00=0x0104, f01=0x0190, f02=» CRNCIF , ( @ D N 2 Q 4T P 4 P ECBCW J LGTERRR Z * & H 4 W W B 6 B 6 l EDMERR , ( 8 B "U W P : Q FPB:FR2 * & % W 8 <
0x24e1ec…24e380 Dummy {f00=0x0104, f01=0x0190, f02=» O "" B , ( k @ Q N 0 N 0T T W , ( H$ B 6 B 6 <X C 6 C 6 B N EATEST ~ CALSNON , ( 6 B 6 . D R SDMTSK DMACTD DMACTI , (
0x24e380…24e514 (3, 55) Dummy {f00=0x0104, f01=0x0190, f02=» R n , ( _ :a *P ^ : Q : DWTECB > , ( A N ?j P N T ] T P H N ] : H D ! J 8 ! # H D ! % ' J ) + -
0x24e514…24e6a8 Dummy {f00=0x0104, f01=0x4096, f02=» T T W P W T W W U W| P 'W 8 4 5Q 7W IWn OT {T T W. R T P Q P D * @ : H D ! J 8 ! # H D ! % ' J ) + -
0x24e6a8…24e83c Dummy {f00=0x0104, f01=0x4124, f02=» J F IDENT ARITMS REL 11.0 81-04-02 870105041100 & " ADDMODK DSUMOD MPYMOD DIVMOD R ADDMODK | DSUMOD MPYMOD DIVMOD , ( : : : ! :
0x24e83c…24e9d0 Dummy {f00=0x0104, f01=0x0190, f02=» J F IDENT SDMSUB REL 11.0 81-05-22 870105041100 D @ RELPROK MOVBW EATEST EASETB EARELB CRNGET CALSNO GTBKBUC R D @ CARRBL CRRBL FMIOOPN FMIOCL FMIORD FMIORF@ FMIOWR FMIODL F B FMIOCR FMIOEX FRMFIL FORMAT FOR
0x24e9d0…24eb64 Dummy {f00=0x0104, f01=0x0190, f02=» , ( .! P (@ MOVBW & 4 EATEST : F FDBEAL( Z * & : : : ; Z $ )_ N l FDBTNR , ( = W ,P M L L O EASETB j GETBLKR , ( Y
0x24eb64…24ecf8 Dummy {f00=0x0104, f01=0x0190, f02=» W R T v FREQUE , ( @" N Q , 0 5 @ 1 A ( CRNGET X FDBCRL l CRNTID ~ , ( ZB : (P N I CRNQUE HALTN CRBUFLn , ( D W @
0x24ecf8…24ee8c Dummy {f00=0x0104, f01=0x0190, f02=» ) O (@ : [ N FDBBLZ ( , ( - @ S P W N U N : MPYMODN j FDBSNR | * & I S W O O FDBRLEW EOMERRW FDBRRO , ( a P N
0x24ee8c…24f020 Dummy {f00=0x0104, f01=0x0190, f02=» $ Z W W W W W FMIOCR & FMIORF@ : FMIORD N ECBCW b , ( W W W ( N C & r DWTECB ECBRC RETRIEO , ( I N C & N ( B *P T
0x24f020…24f1b4 (3, 56) Dummy {f00=0x0106, f01=0x0190, f02=» FWTFNR8 ECBRL * & 2 4 N 6# # N =H C SDMGBU N * & H 8 N N : C & C ` , ( & 0 C . T N $ FRMFIL & FORMAT & FORMER & RLBLKB &
0x24f1b4…24f348 Dummy {f00=0x0106, f01=0x0190, f02=»RCD X , ( ? :h# P ;G < : CRNCIF > , ( ] 0 N % : 4U :! R , ( y @ 4 U 9 , ( & ?! U P , ( _: P _ W 4 4 ,
0x24f348…24f4dc Dummy {f00=0x0106, f01=0x0190, f02=» j FDBMRO * & @ T O $W N $Z N , ( 1 >V N O $W N N J SDMRBU z , ( I S W O O @ FNDKEY0 t FDBMIA , ( a _T P @ : N B
0x24f4dc…24f670 Dummy {f00=0x0106, f01=0x018e, f02=» , ( ! O DZ6Q N DZ> $ F NOKEY 4 , ( W P R U ]V T _ HW D CRNUPD t FDBADF , ( BW N J ,P N 6 , ( M Y R Y M Q Z$ L ADDMOD
0x24f670…24f804 Dummy {f00=0x0106, f01=0x0190, f02=» * & ] N N N , ( s N N $ ^ S 2 RECECB b * & W Z : N $ 0 N v , ( H G & H H G & : H D !@ P ?W CP YP _W
0x24f804…24f998 Dummy {f00=0x0106, f01=0x40d0, f02=»T GP oUP U U P P W Q R V W W H D ! T V TB 'WD 3V ?W, MS OW eP }Tl P` P. J Q W P > , ( R W W PH R Q 'R S W @ & : H D !@ P ?W CP YP _W
0x24f998…24fb2c Dummy {f00=0x0106, f01=0x0190, f02=» J F IDENT SDMOCR REL 11.0 81-05-12 870105041100 & " SDMOPNK SDMCLO SDMRFP OPEFPB R , ( I1M1I2M2I3M3I4M4 | , ( ! , ( A
0x24fb2c…24fcc0 Dummy {f00=0x0106, f01=0x0190, f02=» ` R P P | SDMOPNK DWTECB8 0 * & @ L <a Q _ I ^ N B ECBBA p DWTTAB MOV:USB , ( H D u N MOVFW FPB:BO FPB:FO * &
0x24fcc0…24fe54 (3, 57) Dummy {f00=0x0107, f01=0x018e, f02=» h , ( c L R D A a N % R , ( H H M T ( M J _$ 8 FPB:SH h FDBSTA z , ( $D R % S S FMIOOPz , ( T T 9a " E " FPB:EL
0x24fe54…24ffe8 Dummy {f00=0x0107, f01=0x0190, f02=» , ( T @ ` Q ?A W FPB:USR 4 * & % ' T S S T R F FDBEXC t FDBOMD2 , ( ? ( P J N *T O ,T N FDBDBR , ( W @ `T @ ^R O . ,
0x24ffe8…25017c Dummy {f00=0x0107, f01=0x018e, f02=» FDBMEC FDBECB , ( B@ G & 4 6 R ] " FPB:RL R FDBRLE d FPB:BF v * & H 6_ @ ^ O . R 8 O : R FDBBLF FPB:FR FDBLRN , ( < O > @ ` O
0x25017c…250310 Dummy {f00=0x0107, f01=0x0190, f02=» , ( $ FP R H V J O J R ;H FWTVOL0 4 DFTAB F DMTIDPD V FDBDMI h , ( #H" O . N L Y N X P z CARRBL FDBMRON FDBBLZ , ( ;H O R TY O V O X
0x250310…2504a4 Dummy {f00=0x0107, f01=0x0190, f02=» Z Z # O . O , ( X O R R 8 V T R MPYMOD N MXIND ` , ( @ 9 :aP @ ^ p , ( Q T ^X T ^Z Z U , ( ^ ' ] , R @ - R 8 M , ( H"
0x2504a4…250638 Dummy {f00=0x0107, f01=0x0190, f02=» FDBCRL CRNQUE , ( O " & P N `P O ` @ b $ * & g 5 A b(@ T B C T ECBFC , ( @ _J Z S @ ?a C CLRBUF FMIOCL , ( d f
0x250638…2507cc Dummy {f00=0x0107, f01=0x0190, f02=» : Q P Q P v RECBFZV FPB:S1 ( , ( ?a j R l R l N X : DIVMOD j FPB:V1 | , ( % & n S @ S B p : , ( A" W N " P S S COSZEN , ( [
0x2507cc…250960 Dummy {f00=0x0107, f01=0x0190, f02=» t P J v FPB:FN " MOVBW 4 , ( x z U D FWTPAR t , ( T @ " D |!>P ?A , ( A S x b p R FPB:V2 , ( @ @
0x250960…250af4 (3, 58) Dummy {f00=0x00eb, f01=0x0190, f02=»B: , ( I " A J , ( e 0 ` , , % : , ( D @ b ) A b(@ : N # P ;C j , ( @<B F J X B U SDMERXW , ( $H B Y t X B J v
0x250af4…250c88 Dummy {f00=0x00eb, f01=0x0190, f02=» *T O 0 I CRNCDF $ CRNCIFL 6 * & H 2 I I I I F H , ( d R P P v , ( +I L F L B B U , U " * & C <a Q Q <B 6 8_H A N O
0x250c88…250e1c Dummy {f00=0x00eb, f01=0x0190, f02=» Q ?A "P FDBEAL & TASHLT 8 , ( (@ N |%? T N ` J , ( D 4 5W P 0 @ b 1 A b(@ z , ( _ ,P @ ^ P R T ^ T , ( H ^R T ^ U ^ ^ ,
0x250e1c…250fb0 Dummy {f00=0x00eb, f01=0x0190, f02=» I j c & n H D ! R P OPN [ i }R T T P R T Q !W / h 3Tr $ H D ! ;Tf CPp MTT STN ]T. cR o h wP. {R R W W W W W ^ p H D ! R P _V q H y P Q V( R" UP$ [P uT GWj OP H D
0x250fb0…251144 Dummy {f00=0x00eb, f01=0x400e, f02=» @
0x251144…2512d8 Dummy {f00=0x00eb, f01=0x0190, f02=» J F IDENT FMTASK REL 11.0 81-05-13 870105041100 H D ! OPENY OPEXT DLCLO1 DLCLO2 FMTASK FMINIT FMREAD@ FM:PWR FM:IO R F B FM:ECBN FMEXIT FM:INEA FM:RQEA FNDNAM FNDVTC` FNDVT2 RDVTO2 F B FM:MOV FM:MV4 FM:MV8 CMPST
0x2512d8…25146c Dummy {f00=0x00eb, f01=0x0190, f02=»WTNAM FWTQUE2 FWTSEX FPB:RLW FPB:BF FPB:FO | F B FPB:DT FPB:BO FPB:NO: FPB:FN FPB:EL FPB:V1 FPB:S1 FPB:V2 6 F B FPB:S2 FPB:V3 FPB:S3 FPB:V4 FPB:S4 FPB:FR FPB:USR FPB:SH F B FPB:MN FPB:SN FPB:IF FPB:KA FPB:CD FPB:RP@ EWTEXLR EWT
0x25146c…251600 Dummy {f00=0x00eb, f01=0x0190, f02=» VTC:EL VTC:EB ^ F B VTC:LR VTC:RL VTC:BF. VTC:FO VTC:CD VTC:RP VTC:IF VTC:KA VTC:NE~ VTC:ST b VOL:VN | VOL:EL VOL:EB VOL:RLW VOL:FSO . VTOCRL * VTOCBF,
0x251600…251794 (3, 59) Dummy {f00=0x00eb, f01=0x0190, f02=» VTC:LR VTC:RL VTC:BF. , VTC:FO @ VTC:CD T VTC:RP " h VTC:IF % | VTC:KA & VTC:NE~ ( VTC:ST ) FWTVTC FWTPAR0 FWTFNR>
0x251794…251928 Dummy {f00=0x00eb, f01=0x0190, f02=» EWTSEX& EWTEXLR EWTVOLL , EWTEXBl @ FPB:RLW T FPB:BF h FPB:FO | FPB:DT FPB:BO FPB:NO: FPB:FN FPB:EL FPB:V1
0x251928…251abc Dummy {f00=0x00eb, f01=0x0190, f02=» FPB:FR : FPB:USR > FPB:SH @ , FPB:MN A @ FPB:SN B T FPB:IF C h FPB:KA D | FPB:CD F FPB:RP@ L TTABFM ( , ( ! #A 1 FM:ECBN R
0x251abc…251c50 Dummy {f00=0x00eb, f01=0x0190, f02=» a FMINIT 0 FM:BUFW D > A X SCTFWT p SCTNOF FDBMEC SCTFWL , ( H @ @ @ , ( R P % %
0x251c50…251de4 Dummy {f00=0x00eb, f01=0x0190, f02=»VLTAB NVLENDW NVLBITN , ( ' _B ,P 2 SDMINI b HALTN t " CH@ A > FMTASK ECBCW1 TTB:SAR , ( B @ C A | A z
0x251de4…251f78 Dummy {f00=0x00eb, f01=0x018e, f02=» DFTAB DFTABE , ( ) (P P $ &P & DWTNVL V , ( E 0 0 Y ( 5 h FM:INEA x , ( @A c z @ 4' T z W A ~ FM:RQEA OPENY , (
0x251f78…25210c Dummy {f00=0x00eb, f01=0x0190, f02=» , ( W W @ A z X OPEXT 4 , ( & A t @ | T P F , ( ! V V " LP V :F V V v GETBLK , ( A P *W V ($ A t X , ( _ Y Y " V V X
0x25210c…2522a0 Dummy {f00=0x00eb, f01=0x0190, f02=» X x J @" P x , ( Y 9 @ J ! T " Y & X , ( 'W T X V A z @P H , ( P W J : J < W P X x DLCLO1 T , ( = "? J ># K >:hQ 9 X FREBLK DLCLO2
0x2522a0…252434 (3, 60) Dummy {f00=0x00ec, f01=0x0190, f02=» & 0 V , ( K : + K V V % V & A X $ , ( P K @ X 9AV K 9 !? K > T , ( F & G , ( N 9 ! ^ R N , ( 9 ! P N & N T
0x252434…2525c8 Dummy {f00=0x00ec, f01=0x0190, f02=» u @ 2 , 4(@ A z & TIOMXI , ECBCW2I > ECBRL P , ( "H 6(@ F F 8 : C ` ECBFC ECBEL , ( V C < C : T B > , ( P <a "9 :a :A9 # P V
0x2525c8…25275c Dummy {f00=0x00ec, f01=0x0190, f02=» C 8 ( B z FNDNAM $ FNDDWDI , , ( D 0 A z : @(@ X ! > DWTVOL n , ( 3 T ( _ ^ B : RDVTO2 d , ( Q 4(@T X " # X T V FNDVTC` ~ , (
0x25275c…2528f0 Dummy {f00=0x00ec, f01=0x0190, f02=»Y & : | CMPSTR , ( @ B 8 : & : Y 0 CMPDWDB ` FM:MV8 t FM:MV4 FM:MOV & " : _ W $ - Y : H D ! C R R. P 3P v /P, 5
0x2528f0…252a84 Dummy {f00=0x00ec, f01=0x40f8, f02=» T P P T W P T V Pf r H D ! Pb !W 1P 7 SQ ]P sW f P T P V 1 $ 5 . H D ! ?P QT TB P: P T U W 3T YT g kT qP u T4 z T T W @ v /P, 5
0x252a84…252c18 Dummy {f00=0x00ec, f01=0x018e, f02=» J F IDENT FMCDEF REL 11.0 81-05-13 870105041100 . * CREATEK DELETE EXTEND SEXTNO DV3RST R SEXTNO , ( , ( ! CREATEK B
0x252c18…252dac Dummy {f00=0x00ec, f01=0x0190, f02=» VTC:BF * & _$H J G * G J G FPB:CDL H VTC:CD( Z FM:MOVO l , ( u ~ FM:ECB FPB:IF * & ,P 00T ( J FPB:K
0x252dac…252f40 Dummy {f00=0x00ec, f01=0x0190, f02=» G : T ] @ OPENN * VTC:FS: : DELETE L , ( @ 4' "W P G $ W ` FWTPAR DLCLO2 * & T X & "? P @ (W A FWTEW1 EWTVOL , (
0x252f40…2530d4 (3, 61) Dummy {f00=0x00f0, f01=0x0190, f02=»T * & @ C . F : A 0 X FM:RQE 8 FM:INER J EXTEND l * & ] 2_ 4_ 6_ p EWTSEXO FPB:EL , ( u * t H 8 A J :X. FNDVTC8 , (
0x2530d4…253268 Dummy {f00=0x00f0, f01=0x0190, f02=» j VTC:EN VTC:LR , ( $ B "? G D G F G . , ( F=f ] @ =f T ^ OPEXT , ( A ? A H_ , ( T F 6 G 6 G 8 G * VTC:EL
0x253268…2533fc Dummy {f00=0x00f0, f01=0x0190, f02=» J 6V W W P F J 6 , ( U 6 G J R F 0ZP F " , ( JT T % T F J R , ( P F J G JW F * , ( H G J L T W T L * & H F J U L P G < G $ F
0x2533fc…253590 Dummy {f00=0x00f0, f01=0x0190, f02=» P L V R$ P , ( AD TT V DT F . G < B & FPB:MN V , ( [ Y. G . F . F 2 J _f F @ LT J h FPB:SN VTC:MN , ( y " V J X G Z G B , ( G D
0x253590…253724 Dummy {f00=0x00f0, f01=0x0190, f02=» <T F . 2 F : z VTC:NE FEXTNOn , * & > T F D W A > FNDVT2 l * & ^ P T F : 2 F . ~ * & 5 H ` G . P P A 0 G $ F * & M $ Z< : 7 W W W W , (
0x253724…2538b8 Dummy {f00=0x00f0, f01=0x0190, f02=» bT T L G bW z , ( H T L F JT F J T L G J , ( 0ZP J , ( L P F 0] A 0W F z DV3RST , ( J 3 T A ^ & B9A FPB:S1 * & !
0x2538b8…253a4c Dummy {f00=0x00f0, f01=0x0190, f02=» fW n FCHEC2 * & uI U L U L U L U L : , ( P h(@ < M ^ G : G N , ( RW " T " F 4 N ~ ECBFC VOL:EB * & : C j N L H VOL:EL
0x253a4c…253be0 Dummy {f00=0x00f0, f01=0x0190, f02=»] _ H D ! E E OP U 2 WT _ ` P T T T Wd P Wh H D ! T P W: 'Q /P ? o T 2 T ) T - 5 A ` X H D !P CP G IT Y [T iP kR oT. wV& yW W P U R T H D ! TN T P
0x253be0…253d74 (3, 62) Dummy {f00=0x00f0, f01=0x407e, f02=» l T W T t l @ P W l T )P> 1W6 GW [T sWN W T P D h@ z 2 T ) T - 5 A ` X H D !P CP G IT Y [T iP kR oT. wV& yW W P U R T H D ! TN T P
0x253d74…253f08 Dummy {f00=0x00f0, f01=0x0190, f02=» J F IDENT TIODM REL 11.0 81-02-23 870105041100 D @ TIODM DMTEND DMTTSB FDBOMD FDBENL FDBEXC FDBECB FDBSNRC R F B FDBRRO FDBRLE FDBBLF FDBTNR FDBLRN FDBNIF FDBEALC FDBCRL D @ FDBKA FDBMIA FDBADF FDBAI1 CRN
0x253f08…25409c Dummy {f00=0x00f0, f01=0x0190, f02=» NOKEY NXTKYS2 EOFRC NODERR PROTY KEYERR v D @ PROERRW REQERR LGTERR EOFERR EDMERR TTABD TTABLN TABEND 2 F B DMXACD DMACTI DMACTD DWTPAB MOV:SUW MOV:US FINDTT FNDFDB z F B ENLFACV TOTSIZN RTNA14C SETCROV CONENL COSZEN SIZDIF: SDMSTSr
0x25409c…254230 Dummy {f00=0x00f0, f01=0x0190, f02=» PROERRW REQERR REQER2 2 LGTERR F EDMERR Z EOFERR n RETRIE NOKEY NXTKYS2 EOFRC SIZDIF: , ( $ ( , 0 4 8
0x254230…2543c4 Dummy {f00=0x00f0, f01=0x0190, f02=» DMTTSB H TTABLN SDMTTDV & SDMBF1h : SDMBF2R N , ( $ ( , 0 4 8 < b , ( #E 1 " , ( $ ( ,
0x2543c4…254558 Dummy {f00=0x00f0, f01=0x0190, f02=»4 8 < n , ( #G 1 " > TABEND ` d FDBSTA 8 x DWDM01( 8 DWTPAB , ( 9 , ( Y
0x254558…2546ec Dummy {f00=0x00f0, f01=0x018e, f02=» FDBRLE P FDBENL R FDBEXC T , FDBSNRC V @ FDBRRO Z T FDBBLF h FDBTNR ] | FDBNIF ^ FDBBLZ: _ FDBEALC ` FDBCRL b FDBKA d FDBMIA f
0x2546ec…254880 Dummy {f00=0x00f0, f01=0x0190, f02=» CRNSTA CRNCDF TIODM , ECBCW > , ( 8 > N CRNGET ~ , ( @ T H $ C DISENDN TIOSDM DMACTI FWTVOL
0x254880…254a14 (3, 63) Dummy {f00=0x00f2, f01=0x0190, f02=» L P T P L ACTOT TDISP . DMACTD > TASHLT R , ( ' P (_ f HALTN DMXACD " PRUNN EXITN DMTEND 4 , ( $H @
0x254a14…254ba8 Dummy {f00=0x00f2, f01=0x0190, f02=» U " FNDFDB t " TTB:TD 6 , ( i _ _X D $ U $ H SCTCDTW x , ( Q W T ` & U @ & MOV:US TTB:IDP , ( M @ &W : P
0x254ba8…254d3c Dummy {f00=0x00f2, f01=0x018e, f02=» , ( : R ( R ` ENLFACV 8 FPB:EL L MPYMOD( ^ * & @ > S R *R P p , ( 7 , T R * P , S DIVMODW , ( Q d .S P . P
0x254d3c…254ed0 Dummy {f00=0x00f2, f01=0x0190, f02=» f TOTSIZN FPB:S1V * & @ Y . S * : . ADDMOD RTNA14C n , ( @ 2 6 V 4S Y SETCROV COSZEN , ( @ : _ 2 6 ,
0x254ed0…255064 Dummy {f00=0x00f2, f01=0x40a0, f02=»P ;T( O p {U Z H D ! W T U W W R R % 'S /R 3P ;T GP OS WS [P $ kP qUv W U V S b ( @ S Y SETCROV COSZEN , ( @ : _ 2 6 ,
0x255064…2551f8 Dummy {f00=0x00f2, f01=0x4114, f02=» J F IDENT PFTAB REL 11.0 81-01-26 870105041100 PFTAB R PFTAB b TWONN t CHLTONA FDONN DUONN FMINIT " U@
0x2551f8…25538c Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL & " CTAB01K CTAB02 CTAB03 CTAB04 R CTAB01K | CTAB02 CTAB03 CTAB04 , ( , ( !
0x25538c…255520 Dummy {f00=0x00f2, f01=0x411a, f02=» <=>?=!"#$%&/() ;<=>?'ABCDEFGHIJK , ( LMNO^ABCDEFGHIJKLMNOPQRSTUVWXYZ[ , , ( ]+ PQRSTUVWXYZ{|}* H D ! & 4 D T t 4 D d ! # %
0x255520…2556b4 (3, 64) Dummy {f00=0x0108, f01=0x018e, f02=» J F IDENT DVKB00 REL 11.0 81-01-26 870105041100 DVKB00K R DVKB00K d KBAD4 x * & @ KB DVDY00 CTAB01 , ( % ,
0x2556b4…255848 Dummy {f00=0x0108, f01=0x403a, f02=» j p ^ ; > = > $@ 6-26 870105041100 DVKB00K R DVKB00K d KBAD4 x * & @ KB DVDY00 CTAB01 , ( % ,
0x255848…2559dc Dummy {f00=0x0108, f01=0x4122, f02=» J F IDENT DVDI00 REL 11.0 81-01-26 870105041100 DVDI00K R DVDI00K d DIADN x * & DI , ( % ?O_o E @ F :
0x2559dc…255b70 Dummy {f00=0x0108, f01=0x410e, f02=» J F IDENT DVDY00 REL 11.0 81-01-26 870105041100 DVDY00K R DVDY00K d DYADN x * & Y * & % P @ B 6 B @
0x255b70…255d04 Dummy {f00=0x0108, f01=0x415e, f02=» J F IDENT DVG200 REL 11.0 81-01-26 870105041100 DVG200K R DVG200K d GPAD3 x , ( GP , ( , ( ? 3
0x255d04…255e98 Dummy {f00=0x0108, f01=0x4110, f02=» J F IDENT DVG301 REL 11.0 81-01-26 870105041100 DVG301K R DVG301K d GPAD04 x * & P * & % @ B 6 B
0x255e98…25602c Dummy {f00=0x0108, f01=0x018e, f02=» J F IDENT DVKB02 REL 11.0 81-01-26 870105041100 DVKB02K R DVKB02K d KBAD4 x * & @ KB DVDY02 CTAB03 , ( % ,
0x25602c…2561c0 Dummy {f00=0x0108, f01=0x403a, f02=» j p ^ ; > = > $@ 6-26 870105041100 DVKB02K R DVKB02K d KBAD4 x * & @ KB DVDY02 CTAB03 , ( % ,
0x2561c0…256354 (3, 65) Dummy {f00=0x0108, f01=0x4122, f02=» J F IDENT DVDI02 REL 11.0 81-01-26 870105041100 DVDI02K R DVDI02K d DIADN x * & DI , ( % ?O_o E @ F :
0x256354…2564e8 Dummy {f00=0x0108, f01=0x410e, f02=» J F IDENT DVDY02 REL 11.0 81-01-26 870105041100 DVDY02K R DVDY02K d DYADN x * & Y * & % ( @ B 6 B @
0x2564e8…25667c Dummy {f00=0x0108, f01=0x4132, f02=» J F IDENT DVT102 REL 11.0 81-01-26 870105041100 DVT102K R DVT102K d TPAD3 x , ( TP , ( ?
0x25667c…256810 Dummy {f00=0x0108, f01=0x0190, f02=» J F IDENT TCLASS REL 11.0 81-01-26 870105041100 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 DVG200 * & H A P 0 DVG301 DVKB0
0x256810…2569a4 Dummy {f00=0x0108, f01=0x4048, f02=» x $ p $ % : 2@ D00 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 DVG200 * & H A P 0 DVG301 DVKB0
0x2569a4…256b38 Dummy {f00=0x0108, f01=0x0190, f02=» J F IDENT SCLASS REL 11.0 81-01-26 870105041100 SCLASSK R SCLASSK d DWTW01 x DWDM01 , ( " ! 1 DWREMU DWDU01 * & "H
0x256b38…256ccc Dummy {f00=0x0108, f01=0x4028, f02=» ! & r F @ $ REL 11.0 81-01-26 870105041100 SCLASSK R SCLASSK d DWTW01 x DWDM01 , ( " ! 1 DWREMU DWDU01 * & "H
0x256ccc…256e60 Dummy {f00=0x0108, f01=0x2008, f02=» } L = DEMO68 DATE = 81-09-25 6876PACK NBR = 0000
0x256e60…256ff4 (3, 66) Dummy {f00=0x0107, f01=0x0190, f02=» X X p W v , ( @ X 9A _ X X x ^ 4 B , ( 9 P 9 4 8 H F , ( " P # ;B 4 X " 4 Y 8 v , ( 9 Y Y :c Y 4 8 X P , ( 3 T X :F Y 4 X P , (
0x256ff4…257188 Dummy {f00=0x0107, f01=0x0190, f02=»W 9 q r Y v PFPOST INXDWT ( DWTA5 : DWTA2 J , ( @ T Q Y Z TDISP DUONY DWTST , ( H Y " ? Y $ INIFLG * & Y
0x257188…25731c Dummy {f00=0x0107, f01=0x0190, f02=» Y n , ( 1$ ( Y $ Y P X , ( K @ Y '? ! J C @ P > SETIMP n , ( e _ 0P -_ * _ IHDUY IHDU1 IHDU2 INTSAV , ( A
0x25731c…2574b0 Dummy {f00=0x0107, f01=0x0190, f02=» 4 Y $W x ?AR X ' TENDIO ( , ( T C C X P : , ( . " ! ! T 9 ! I Y j VOLGET , ( $ + ! ! ! (T X P , ( ! K 0 @ ( TOT @ 0 1T @ 8
0x2574b0…257644 Dummy {f00=0x0107, f01=0x0190, f02=»W 4 , ( , ( C C C P , ( C ( $ ! H D ! " H Qj p T8 F T
0x257644…2577d8 Dummy {f00=0x0107, f01=0x0190, f02=» V V ^ P r t R4 P t t H D ! X W" R T WJ WB U # )P -Q /R" 0 H D ! 3 7W ; A EW I O [T: c r eP gQ s t } t | H D ! H t V T R< R Wr R T
0x2577d8…25796c Dummy {f00=0x0107, f01=0x0190, f02=» " R P ` H D ! P R: R~ P H R H Wz R P H D ! W + / 3 H 7 ; J =W2 A . CWF IR M H Q e gW k H h H D ! A o V W P P " W: T T H D ! y
0x25796c…257b00 Dummy {f00=0x0107, f01=0x0190, f02=» L H D ! W P R P % - H /P 7T G H D ! M OP* S W YP a e oW y R W( W$ W H T T H D ! ( W T J p F T Tn T` P % )P A F GP H D ! @ a cP$ i mP {
0x257b00…257c94 (3, 67) Dummy {f00=0x0108, f01=0x4022, f02=» & < @
0x257c94…257e28 Dummy {f00=0x0108, f01=0x2008, f02=»
0x257e28…257fbc Dummy {f00=0x0108, f01=0x018e, f02=» P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT L P ANK A1,/C0 b 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- v P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33
0x257fbc…258150 Dummy {f00=0x0108, f01=0x0190, f02=» d P RB READER ! P EJECT ! P* ! ( P* SEEK TABLE ! 2 P* ! F PSEKTAB EQU * ! P P DATA 0 ! d P* ! t P* CIO TABLE ! ~ P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER OF
0x258150…2582e4 Dummy {f00=0x0108, f01=0x0190, f02=». =9 ! v PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " PCIOPA2 EQU * " : P DATA /4000+128 " N $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " f PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x2582e4…258478 Dummy {f00=0x0108, f01=0x0190, f02=» * " 8 P* GETFIL - GET CONFIGURATION FILE * # : 8 P* =============================== * # v 8 P* * # 8 P* REFERENCED IN: SYSLOD
0x258478…25860c Dummy {f00=0x0108, f01=0x0190, f02=» * # f 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ N 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x25860c…2587a0 Dummy {f00=0x0108, f01=0x0190, f02=» * $ x 8 P*************************************************** % $ PGETFIL EQU * % ` P CF A14,GETVLB % t PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START OF
0x2587a0…258934 (3, 68) Dummy {f00=0x00fc, f01=0x0190, f02=»DEX z P* P IFT OPCLOS=1 P* , & P* CHECK IF OPEN OR CLOSE ORDER 6 P* ` P LDR A1,A7 ORDER j P SUK A1,/21 P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P
0x258934…258ac8 Dummy {f00=0x00fc, f01=0x0190, f02=» ONE TO BIT l 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* J " P LDKL A1,/8000 MASK FOR BIT 0 T & P ORS A1,SPDLCI SET OPEN/CLOSE BIT z P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P
0x258ac8…258c5c Dummy {f00=0x00fc, f01=0x0190, f02=»EGISTER. j P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER , P RF(NZ) OPEN20 TIMER ACTIVE R " P LDKL A1,/7FFF MASK FOR BIT 0 v ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/
0x258c5c…258df0 Dummy {f00=0x00fc, f01=0x0190, f02=» TIMER POINTER OFFSET ( P ADR A4,A6 A4:=TIMER POINTER ADDRESS P LDR A1,A6 SAVE DWT-ADDR J P CF A15,SETIMP WAIT j . P DATA OPENRE,OPENTI START ADDR, WAIT TIME POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A
0x258df0…258f84 Dummy {f00=0x00fc, f01=0x0190, f02=»ISP p P XIF P* P EJECT " P* 0 & P* PUT DRIVE NO IN CIO-INSTRUCTION : P* d PFD:ORD EQU * n P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC
0x258f84…259118 Dummy {f00=0x00fc, f01=0x018e, f02=» P* P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* B P IFT IBM=0 L P SUK A3,31 ^ P RB(Z) FORMAT FORMAT VOLUME p P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF
0x259118…2592ac Dummy {f00=0x00fc, f01=0x0190, f02=» P SUK A3,3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 8 " P RF(Z) IBMCHK SEQUENTIAL WRITE J P SUK A3,25 p P RB(Z) FORMAT FORMAT VOLUME P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND
0x2592ac…259440 Dummy {f00=0x00fc, f01=0x0190, f02=»FIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF 8 P* D P IFT TOSS=0 N P IFT IBM=1 b " P ABL IBMDSK IBM DISC HANDLING t P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P*
0x259440…2595d4 (3, 69) Dummy {f00=0x00fc, f01=0x0190, f02=»ORM TENDIO AND GO TO TDISP P* " P EJECT DRFD01 , P* B P* INPUT PARAMETER CHECK L P* l PINTEST EQU * v P IFF TOSS+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED
0x2595d4…259768 Dummy {f00=0x00fc, f01=0x0190, f02=»L A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE P CWK A2,512 0 P RF(NL) INTES3 SUFFICIENT D P CWR A3,A2 f & P RB(G) INCLEN MMU BUFFER TOO SMALL x PINTES3 EQU * P XIF ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT IN
0x259768…2598fc Dummy {f00=0x00fc, f01=0x018e, f02=»ER p P* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 , P RF(NZ) INTES5 IBM-DISC D P XIF d P* p P IFT TOSS=1 z P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL
0x2598fc…259a90 Dummy {f00=0x00fc, f01=0x0190, f02=» P XIF ! * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER ! P RB(N) REQERR REQUEST ERROR ! > P SUKL A4,MAXSEC ! b P RB(NN) REQERR REQUEST ERROR ! z P ADR A4,A3 ! " P RB(P) INCLEN INCORRECT LENGTH ! , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ! 2 P S
0x259a90…259c24 Dummy {f00=0x00fc, f01=0x0190, f02=» ! P IFT MMUPAG=1 " P LCR A2,A8 " P ANK A2,/30 " 0 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS " D P XIF " | P* " P EJECT DRFD01 " P* " P* MULTIPLE SECTOR IO ENTRY " P* " PFD:000 EQU * " P IFT MMUPAG=1 "
0x259c24…259db8 Dummy {f00=0x00fc, f01=0x0190, f02=»3 " P SUK A3,4 # & P RF(NN) FD:005 FOUR PHYS. SEC. IO # P* # F PFD:003 SUK A2,128 # P P SUK A4,1 # j P ADK A3,1 # | P RB(NZ) FD:003 # P* # PFD:005 EQU * # . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC # ( P ST A2,DWTRL,A6 UPDA
0x259db8…259f4c Dummy {f00=0x00fc, f01=0x0190, f02=»PAG=1 # P IFF CHAN+IBM=0 $ " P LD A2,DWTBA,A6 BUFFER ADDRESS $ & P LD A1,DWT:BF,A6 $ L , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA $ d P LDR A3,A2 $ P RF(NN) FD:009 $ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED $ P RF(N) FD:009 NO $
0x259f4c…25a0e0 Dummy {f00=0x00fc, f01=0x0190, f02=»LL A1,2 $ P ORR A1,A3 % 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS % " ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY % X P SC A1,DWT:PA+2,A6 % P ANKL A2,/FFF % P LDR A1,A2 % ( P ORK A1,1 INDICATE ADDRESS NOT ZERO % P* % 8 PFD:009 ST A1
0x25a0e0…25a274 (3, 70) Dummy {f00=0x00da, f01=0x0190, f02=»INCREMENT NO OF CHARACTERS TO MOVE P CALL MOVE * P ADKL A10,2 SKIP NEXT RECORD < P* ` . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER j ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT
0x25a274…25a408 Dummy {f00=0x00da, f01=0x018e, f02=»OSITION IN CONF. DATA =6 r 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 PCOR:30 EQU * P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P C
0x25a408…25a59c Dummy {f00=0x00da, f01=0x0190, f02=» | & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER 2 & P ADK A4,1 INCREMENT RECORD POINTER ` P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE)
0x25a59c…25a730 Dummy {f00=0x00da, f01=0x0190, f02=» 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD : P CALL MOVE ( P ADKL A10,1 INCREMENT RECORD COUNTER n & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCR
0x25a730…25a8c4 Dummy {f00=0x00da, f01=0x0190, f02=»R:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? 8 P RF(Z) COR:55 NO P P LDK A3,'S' h & P SC A3,GET:25+1 MODIFY INSTRUCTION | & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PG
0x25a8c4…25aa58 Dummy {f00=0x00da, f01=0x018e, f02=» GET CONF. DATA LOAD DEVICE | , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE $ P* T P LDR A2,A1 ^ P ANK A2,/F p P SUK A2,9 $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC
0x25aa58…25abec Dummy {f00=0x00da, f01=0x0190, f02=» $ P RF(N) COR:60 NOT FLEXIBLE DISC P* , " P SUK A1,/FC-/F8 FLEXIBLE DISC? 6 P RF(NN) COR:60 NO! P* v P XIF P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UN
0x25abec…25ad80 Dummy {f00=0x00da, f01=0x0190, f02=»EST=1 PCOR:60 EQU * P EJECT " PCONMOV EQU * 0 P* D 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA N P* & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1,SAVCON COMPUTE END OF BUFFER
0x25ad80…25af14 (3, 71) Dummy {f00=0x00da, f01=0x0190, f02=»URE CONFIGURATION FILE " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA D 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA t P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE
0x25af14…25b0a8 Dummy {f00=0x00da, f01=0x0190, f02=»E TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN $ P ST A1,CONLEN+STKCOM H & P LDR A1,A9 GET START OF FREE AREA d P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT
0x25b0a8…25b23c Dummy {f00=0x00da, f01=0x0190, f02=»B ADDRESS =1 v , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 D , P LD A2,CONSTA+STKCOM GET START OF CONFF ^ P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM
0x25b23c…25b3d0 Dummy {f00=0x00da, f01=0x0190, f02=»UE EXECUTION IN SYSLDM P XIF P EJECT * L P************************************************************************ 8 L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O L P************************************************
0x25b3d0…25b564 Dummy {f00=0x00da, f01=0x0190, f02=»==== * x $ P* * $ P* ENTRY: * 8 $ P* * ` $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x25b564…25b6f8 Dummy {f00=0x00da, f01=0x0190, f02=» * x $ P* * $ P******************************* 8 PSOPIN EQU * ` P CIO A1,1,SOP t P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x25b6f8…25b88c Dummy {f00=0x00da, f01=0x0190, f02=» * ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * J ( P* CONFIGURATION DATA LOAD * v ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1
0x25b88c…25ba20 Dummy {f00=0x00da, f01=0x0190, f02=»***************** ~ P P " PLODDEV EQU * * P LDKL A3,BUFLEN > * P ST A3,SAVCON INITIALIZE BUFFER LENGTH V P LDKL A2,-1 $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF CASSETTE =9 P RF(P) CASS:0
0x25ba20…25bbb4 (3, 72) Dummy {f00=0x009e, f01=0x0190, f02=»VRT3 EQU * P TL 2,A15 SAVED MMU =2 P ADKL A15,32 =2 0 P XIF H PMOVRTN EQU * T P LDR* A5,A15 RELOAD A5 h P LDR* A4,A15 RELOAD A4 P LDK A3,0 ALL MOVED P* PMOVRT2 EQU * P RTN A15 P* P IFT MMUPAG=1
0x25bbb4…25bd48 Dummy {f00=0x009e, f01=0x0190, f02=»ER FROM USER BUFFER x P RF MUS125 P* . PMUS110 EQU * 8 P TM A4,A2 L $ P RB(Z) MUS010 SYSTEM BUFFER EVEN ^ P* ( P* USER BUFFER EVEN,SYSTEM BUFFER ODD P* PMUS120 EQU * P ELR A4,A1 GET TO CHARACTERS P ECR A5,A4
0x25bd48…25bedc Dummy {f00=0x009e, f01=0x018e, f02=»DDRESS p P SUK A3,1 DECREMENT LENGTH $ P RB(NP) MOVRT3 ALL MOVED, RETURN 0 P* X PMUS125 EQU * b ( P ADK A1,1 UPDATE USER BUFFER ADDRESS v 0 P SCR A4,A2 STORE CHARACTER IN SYSTEM BUFFER * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P SUK
0x25bedc…25c070 Dummy {f00=0x009e, f01=0x0190, f02=» P* ! P********* ! P* MOVSU * ! $ P********* ! 6 P* ! H P* ! R $ P* SUBROUTINE TO MOVE CHARACTERS ! ( P* FROM SYSTEM BUFFER TO USER BUFFER ! P* ! ( P* ENTRY: A1 = SYSTEM BUFFER ADDRESS ! & P* A2 = USER BUFFER ADDRESS
0x25c070…25c204 Dummy {f00=0x009e, f01=0x0190, f02=»+LENGTH ! l . P* A2 = USER BUFFER ADDRESS+LENGTH " P* A3 = 0 " B P* " Z PMOVSU EQU * " d P ADK A3,0 CHECK LENGTH " x * P RB(NP) MOVRT2 NOTHING TO MOVE, RETURN " P STR A4,A15 SAVE A4 " P STR A5,A15 SAVE A5 " P SUKL A15,32
0x25c204…25c398 Dummy {f00=0x009e, f01=0x0190, f02=» BUFFER EVEN " ~ P TM A4,A1 # $ P RF(Z) MSU100 SYSTEM BUFFER EVEN # & P* # N P EJECT TMOVE # X P* # n ( P* SYSTEM BUFFER ODD,USER BUFFER ODD # x P* # * P ELR A5,A2 USER BUFFER FIRST CHARACTER # " P LCR A5,A1 GET FIRST CHARACTER # 4 P ESR A
0x25c398…25c52c Dummy {f00=0x009e, f01=0x0190, f02=»ENT LENGTH # * P RB(NP) MOVRT3 NOTHING TO MOVE, RETURN $ P* $ @ P EJECT TMOVE $ J P* $ ` * P* SYSTEM BUFFER EVEN,USER BUFFER EVEN $ j P* $ PMSU010 EQU * $ P TM A4,A3 $ ( P RF(Z) MSU020 REQUESTED LENGTH EVEN $ P SUK A3,1 LENGTH EVE
0x25c52c…25c6c0 Dummy {f00=0x009e, f01=0x0190, f02=» ADR A1,A5 UPDATE SYSTEM BUFFER ADDRESS $ * P ADR A2,A5 UPDATE USER BUFFER ADDRESS % 0 P ADK A4,0 CHECK LENGTH % ^ $ P RB(NZ) MOVRT3 ALL MOVED, RETURN % | " P LDR* A5,A1 GET LAST CHARACTER % * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS % P* % PMSU030
0x25c6c0…25c854 (3, 73) Dummy {f00=0x009e, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x25c854…25c9e8 Dummy {f00=0x009e, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x25c9e8…25cb7c Dummy {f00=0x009e, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x25cb7c…25cd10 Dummy {f00=0x009e, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x25cd10…25cea4 Dummy {f00=0x009e, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x25cea4…25d038 Dummy {f00=0x009e, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x25d038…25d1cc Dummy {f00=0x009e, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x25d1cc…25d360 Dummy {f00=0x009e, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x25d360…25d4f4 (3, 74) Dummy {f00=0x00dc, f01=0x018e, f02=» P ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* H . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 R ( P ST A1,FRD:20 MODIFY INR INSTRUCTION P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK P LDKL A1,/C00 & P ST A1
0x25d4f4…25d688 Dummy {f00=0x00dc, f01=0x0190, f02=» P ST A2,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT @ P ST A1,DEVTYP+STKEND d P RTN A14 P EJECT 0 P******************************************** 0 P* * 0 P*
0x25d688…25d81c Dummy {f00=0x00dc, f01=0x0190, f02=»= * n 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * F 0 P* * z 0 P******************************************** P P PUNLOCK EQU * $ P C
0x25d81c…25d9b0 Dummy {f00=0x00dc, f01=0x0190, f02=»OP UNTIL ACCEPTED P* P EX FRD:40 SENSE STATUS $ $ P RB(NA) *-4 LOOP UNTIL ACCEPTED D P RTN A14 l P EJECT | @ P*********************************************************** @ P*
0x25d9b0…25db44 Dummy {f00=0x00dc, f01=0x0190, f02=»* V @ P* * @ P* REFERENCED IN: SYSLOD * N @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS
0x25db44…25dcd8 Dummy {f00=0x00dc, f01=0x0190, f02=» * ^ @ P* EXIT: * @ P* * V @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x25dcd8…25de6c Dummy {f00=0x00dc, f01=0x0190, f02=» * f @ P*********************************************************** PFRDSEC EQU * ^ " P LDR A2,A11 GET SECTOR NUMBER r * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) S
0x25de6c…25e000 Dummy {f00=0x00dc, f01=0x0190, f02=» SECTOR NBR v P RF DVK26 PNOTCY0 EQU * & P ADK A2,13 : P EJECT L P* Z P* A2=PHYSICAL SECTOR NUMBER d P* PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(
0x25e000…25e194 (3, 75) Dummy {f00=0x00cb, f01=0x0190, f02=» P* TLSEG1 * P* TLSEG2 * P********** , P* > P* H > P* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK R @ P* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. P* P* INPUT: $ P* TLSEG1: A1 = SEG
0x25e194…25e328 Dummy {f00=0x00cb, f01=0x0190, f02=»G2: A1 = PAGBLK ADDRESS ( P* A3 = TTAB ADDRESS LDTASK & P* A5 = " " " L P* v . P* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) P* P XIF P* & PTLSEG1 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:P
0x25e328…25e4bc Dummy {f00=0x00cb, f01=0x0190, f02=»N QUEUE r , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK @ " P STR A2,A4 UPDATE QUEUE LINKS x P ST A4,PAG:QB,A2 P XIF P* P EJECT TLDSEG P* , P* GET PAGE ADDRESS OF REQU
0x25e4bc…25e650 Dummy {f00=0x00cb, f01=0x0190, f02=»G=1 P ECR A2,A1 P ANK A2,/FC P* 2 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE < P* t P LD A6,TTB:AP,A5 ACB ADDRESS ~ 4 P AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY 0 P LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES
0x25e650…25e7e4 Dummy {f00=0x00cb, f01=0x0190, f02=» RF(NP) TLDS30 NO MORE PAGE ENTRIES & P ADK A3,2 POINT TO NEXT PAGE ENTRY , " P ADK A2,4 UPDATE PAGE ADDRESS V P RB TLDS25 | P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE P SLL A1,2
0x25e7e4…25e978 Dummy {f00=0x00cb, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x25e978…25eb0c Dummy {f00=0x00cb, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x25eb0c…25eca0 Dummy {f00=0x00cb, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x25eca0…25ee34 (3, 76) Dummy {f00=0x00dc, f01=0x0190, f02=»ITS v P EJECT P* P* A2=SECTOR NUMBER $ P* A1=CYLINDER NUMBER > P* Z $ P LD A4,DEVTYP+STKEND DEVICE TYPE d P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD PDBHEAD EQU * P LDR A
0x25ee34…25efc8 Dummy {f00=0x00dc, f01=0x0190, f02=» A2,A4 A2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION $ " P ORK A1,3 A1=CIO SEEK REGISTER Z 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR SAVE CYLINDER NUMBER PFD
0x25efc8…25f15c Dummy {f00=0x00dc, f01=0x0190, f02=»50 SEEK ERROR PNOSEEK EQU * P LDR A1,A2 * P RF FRD:05 < P EJECT N PFRDS25 EQU * P LDR A1,A11 SECTOR NO p P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU * P LDKL A2,MUXCC P L
0x25f15c…25f2f0 Dummy {f00=0x00dc, f01=0x0190, f02=»S r $ P AD A2,SAVCON BUFFER END ADDRESS P* 2 $ PFRD:10 CIO A1,1,FDCU START READ < P RB(NA) FRD:10 d P* z P EJECT CRVOL P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A1,A3 P ADK A3,2 P
0x25f2f0…25f484 Dummy {f00=0x00dc, f01=0x0190, f02=»NA) FRD:20 PFRD:42 EQU *+2 P ANKL A1,/4E15 FATAL ERROR ? ( P RF(NZ) FRD:50 YES! L PFRD:43 CWR A3,A2 =4 h ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,FRD:20 UPDATE INR ISTR. =4
0x25f484…25f618 Dummy {f00=0x00dc, f01=0x0190, f02=»GAIN =4 PFRD:45 EQU * ( P ADKL A11,1 INCRMENT SECTOR ADDRESS $ P RF(NN) FRD:48 P 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. f 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS ERROR PFRD:48 EQU *
0x25f618…25f7ac Dummy {f00=0x00dc, f01=0x0190, f02=»5-FRD:43-2 =4 P XIF P IFT CDDISC=1 " P IFT CDDI16=0 =9 8 P EJECT R ( P*********************************** ` ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ============================= *
0x25f7ac…25f940 Dummy {f00=0x00dc, f01=0x0190, f02=» ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * 0 ( P* EXIT: * ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* *
0x25f940…25fad4 (3, 77) Dummy {f00=0x00dd, f01=0x0190, f02=»DDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 : P ST A1,CIOAD2 ADDRESS 2 N P ADKL A1,256 n P ST A1,CIOAD3 ADDRESS 3 P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS P ANS A1,CIOTOT RESET BITS . P LDR A1,A12
0x25fad4…25fc68 Dummy {f00=0x00dd, f01=0x018e, f02=»3 z P* P LDK A3,0 PRED100 EQU * & P ADK A3,1 : P SUK A1,3 L P RB(NN) RED100 ^ P ADK A1,3 t P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ P CW A2,PSECNL+
0x25fc68…25fdfc Dummy {f00=0x00dd, f01=0x0190, f02=» P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR J PRED110 EQU * | P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES P LDR A1,A3 PDIVCON EQU *+2 =9 P
0x25fdfc…25ff90 Dummy {f00=0x00dd, f01=0x0190, f02=»1,0 P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR 4 $ P ORKL A2,/800 SET INTERRUPT BIT J , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 r " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT P* P* INTERLACING P* P LDR A2,
0x25ff90…260124 Dummy {f00=0x00dd, f01=0x0190, f02=»T100 EQU * P DVK 23 P SLL A1,5 IN POSITION " $ P ORS A1,CIOTAB UPDATE CIO TABLE @ P SLC A3,1 RESTORE A3 =9 h P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT P* P* SEEK P* $ P ST A3,CYLNBR SA
0x260124…2602b8 Dummy {f00=0x00dd, f01=0x0190, f02=»0 SEEK P RB(NA) SEEKC1 PSEEKC2 EQU * $ P SST A2,0 8 P RB(NA) SEEKC2 J P EJECT ` P* n P* READ x P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PREA100 EQU * ( P LDKL A1,CIOTAB POINTER TO CIO TABLE
0x2602b8…26044c Dummy {f00=0x00dd, f01=0x0190, f02=»UNTIL ACCEPTED | P ANKL A1,/FF0F STATUS P RF(NZ) RET30 READING ERROR 4 : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 X : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 P PTURN EQU * 0 P ADKL A11,1 INCREMENT LOGI
0x26044c…2605e0 Dummy {f00=0x00dd, f01=0x0190, f02=» PTURN20 EQU * P RTN A14 P EJECT , P* : " P* MOVE UP NEXT LOGICAL SECTOR D P* j PREDMOV EQU * t 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,1 =9 P LDR A2,A1 =9 P ADR A1,A1 =9 & P ADR
0x2605e0…260774 (3, 78) Dummy {f00=0x00db, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x260774…260908 Dummy {f00=0x00db, f01=0x0190, f02=»ED,RETURN z P XIF P* & P LCR A5,A1 LAST CHARACTER TO MOVE ( 0 P SCR A5,A2 STORE CHARACTER IN SYSTEM BUFFER R ( P ADK A1,1 UPDATE USER BUFFER ADDRESS * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P RF MOVRT1 RETURN P EJECT P
0x260908…260a9c Dummy {f00=0x00db, f01=0x0190, f02=»R EVEN , DESTINATION BUFFER ODD P* OR ( 2 P* SOURCE BUFFER ODD , DESTINATION BUFFER EVEN 4 P* j PMSS110 EQU * t P LCR A4,A1 LOAD CHARACTER P SCR A4,A2 STORE CHARACTER $ P ADK A1,1 UPDATE SOURCE ADDRESS ( P ADK A2,1 UPDATE DES
0x260a9c…260c30 Dummy {f00=0x00db, f01=0x018e, f02=»PAG=1 P EJECT TMOVE P* $ P* . P********* 8 P* MOVUS * J P********* P* n P* x $ P* SUBROUTINE TO MOVE CHARACTERS ( P* FROM USER BUFFER TO SYSTEM BUFFER P* & P* ENTRY: A1 = USER BUFFER ADDRESS (
0x260c30…260dc4 Dummy {f00=0x00db, f01=0x0190, f02=» 4 P* EXIT : A1 = USER BUFFER ADDRESS+BUFFER LENGTH 6 P* A2 = SYSTEM BUFFER ADDRESS+BUFFER LENGTH < P* A3 = 0 v P* PMOVUS EQU * P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE
0x260dc4…260f58 Dummy {f00=0x00db, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x260f58…2610ec Dummy {f00=0x00db, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x2610ec…261280 Dummy {f00=0x00db, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x261280…261414 (3, 79) Dummy {f00=0x011f, f01=0x0190, f02=» POWER ON COMPLETED FOR THIS DISC & P LKM WAIT FOR RECOVERY COMPLETION * P DATA 0 SWITCH TASKS T P RB FNAM05 CHECK DISC AGAIN p P* P EJECT FMTASK P* P* PFNAM10 EQU * P LDR A1,A6 DISC DWT ADDRESS P LDR A
0x261414…2615a8 Dummy {f00=0x011f, f01=0x0190, f02=» l P* PFNAM20 EQU * & P ADK A1,6 NEXT VOLUME NAME IN DWT & P SUK A2,1 DECREMENT INDEX P P RB(NN) FNAM20 r P LDK A2,6 P ADKL A1,DWTVOL-6 P RTN A14 P* P EJECT FMTASK P* P* P**********
0x2615a8…26173c Dummy {f00=0x011f, f01=0x0190, f02=»D READ THE VTOC RECORD x " P* OF THE FIRST FILE EXTENT. P* D " P* INPUT: A5 = TTAB ADDRESS N P* A8 = FM:ECB ADDRESS t & P* A9 = USER ECB ADDRESS P* 2 P* OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 6 P*
0x26173c…2618d0 Dummy {f00=0x011f, f01=0x0190, f02=»13 = VTOC RECORD ADDRESS IN FM:BUF * P* A3, A7, A11 ARE DESTROYED * P* X 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD b P INH < P CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS P ENB P RF(NZ) RDVT20 ERR
0x2618d0…261a64 Dummy {f00=0x011f, f01=0x0190, f02=» 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) P* B & PRDVTO2 EQU * ENTRY USED BY FMCDEF L 8 P CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD v P* PRDVT10 EQU * P ADK A4,0 CHECK RETURN CODE & P RF(NZ) RDVT20 DISC
0x261a64…261bf8 Dummy {f00=0x011f, f01=0x0190, f02=»RECORD FOR THIS FILE r 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT P* P PRDVT20 EQU * Z & P ORS A4,RETCOD PREPARE RETURN CODE n P RTN A14 P* P EJECT FMTASK P* P* P********** P* FNDVTC * P******
0x261bf8…261d8c Dummy {f00=0x011f, f01=0x0190, f02=»ONE EXTENT x , P* HAS BEEN FOUND OR WHEN THE COMPLETE . P* VTOC HAS BEEN SEARCHED WITHOUT MATCH. B P* t P* INPUT: A2 = FILE CODE ~ P* A6 = FWT ADDRESS P* A8 = FM:ECB ADDRESS P* 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x261d8c…261f20 Dummy {f00=0x011f, f01=0x0190, f02=» = VTOC RECORD ADDRESS IN FM:BUF 2 P* A1, A3, A7, A11-A12 ARE DESTROYED ( P* ^ PFNDVTC EQU * FIND VTOC ENTRY h P* " P* READ VOLUME LABEL (SECTOR 0) P* ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB P LDK A2,0 SECTOR NUMBE
0x261f20…2620b4 (3, 80) Dummy {f00=0x0122, f01=0x0190, f02=» = P* > P IFT CPU852=0 > P ML 2,EXTLEN,A9 SAVE REST > ( P DA FILLEN,A9 > J P MS 2,EXTLEN,A9 > ` P XIF > x P* > P EJECT FMCDEF > P* > P* > PCEF600 EQU * > . P LD A2,EXTZER,A9 1ST EXTENT VTOC SECTOR NO > $ P RF(NZ) CE
0x2620b4…262248 Dummy {f00=0x0122, f01=0x0190, f02=»,FWTSAV,A9 GET FILE NAME BASE > & P CF A14,RDVTO2 SCAN FOR FIRST VTOC ? & P ADK A4,0 ? P P RF(NZ) CEF900 READ ERROR ? b ( P LD A1,VTC:EN,A9 LAST EXTENT NUMBER ? . P SC A1,VTC:NE,A13 UPDATE NUMBER OF EXTENTS ? P CF A14,CDEWRI ? PCEF900 EQU * ?
0x262248…2623dc Dummy {f00=0x0122, f01=0x0190, f02=» 4 P* COLLECT ADJECENT EXTENDS AND CREATE ONE NEW @ P* @ < > P* INPUT : FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS @ F 8 P* THAT IS (FILENAME)=(FWTSAV)+FWTNAM @ $ P* A8 = FM:ECB ADDRESS @ 4 P* FILCOD = AREA C
0x2623dc…262570 Dummy {f00=0x0122, f01=0x018e, f02=» FILE CODE @ ~ ( P RF(Z) DELF03 NO SPECIFIED FILE CODE A & P CF A14,VTCPAR GET VTOC PARAMETERS A > P RF(NZ) DELF03 ERROR A h PDELF00 EQU * A $ P LD A6,FWTSAV,A9 GET FWT ADDRESS A & P LD A12,VTCEND,A9 VTOC END SECTOR A ( P LD A2,VTCSEC,A9 PRESENT VTOC
0x262570…262704 Dummy {f00=0x0122, f01=0x018e, f02=» A p P ADK A4,0 B " P RF(Z) DELF05 NEXT VTOC ENTRY B P* B @ P EJECT FMCDEF B J P* B ` P* B j PDELF03 EQU * B t P ORS A4,RETCOD B $ P IM VTC:FS,A9 NEXT FILE SECTION B P LD A1,VTC:FS,A9 B P SUK A1,4 B $ P RB(N) DELFIL NEXT FILE
0x262704…262898 Dummy {f00=0x0122, f01=0x0190, f02=» 2 P* VTC:EL = END SECTOR OF CREATED FREE SPACE C P* C : P* C D PDELF05 EQU * C N P LDKL A1,SPACES C b $ P STR A1,A13 SPACES IN FILE NAME C z P ST A1,2,A13 C P ST A1,4,A13 C P ST A1,6,A13 C P CM VTC:ST,A13 FREE ENTRY C $ P LD A1,V
0x262898…262a2c Dummy {f00=0x0122, f01=0x0190, f02=»NO C P* D P EJECT FMCDEF D P* D * P* D 4 PDELF08 EQU * D > P* D R P IFT CPU852=1 D & P LDKL A1,VTC:EL GET EXTENT LENGTH D r 6 P ADR A1,A13 MOVE EXT LEN AND EXT BASE TO WORK AREA D P LDKL A3,VTC:EL D P ADR A3,A9 D P CF A14,
0x262a2c…262bc0 Dummy {f00=0x0122, f01=0x0190, f02=» D 6 P CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH E P XIF E B P* E N P IFT CPU852=0 E X P ML 4,VTC:EL,A13 E n & P DAR A3 VTC:EL=EXT BASE+EXT LENGTH E P MS 4,VTC:EL,A9 E P XIF E P* E P CF A14,CDEWRI WRITE E P RB(NZ) DELF03
0x262bc0…262d54 (3, 81) Dummy {f00=0x0122, f01=0x0190, f02=»12 POINTER IN FSAT E PDELF10 EQU * F $ P LDR A5,A12 DISPLACEMENT IN FSAT F . P CF A14,FSREAD F V P RB(NZ) DELF03 READ ERROR F l P* F P EJECT FMCDEF F P* F P* F ( P* EXTLEN = FSAT EXTENT BASE+LENGTH F P* F P* F & P ANK A
0x262d54…262ee8 Dummy {f00=0x0122, f01=0x0190, f02=»A1,FM:BUF+4 MOVE EXTENT BASE FROM FSAT F P ADR A1,A5 G . P CF A14,FM:MV4 G @ ( P LDK A3,EXTLEN ADDRESS TO SAVE AREA G V P ADR A3,A9 G * P CF A14,DBLAD1 FSAT EXTENT BASE+LENGTH G P XIF G P* G P IFT CPU852=0 G P ML 2,FM:BUF+4,A5 G P
0x262ee8…26307c Dummy {f00=0x0122, f01=0x0190, f02=»ACENT FREE SPACE G v P* H P* H " P IFT CPU852=1 H , * P LDR A1,A3 ADDRESS TO FSAT BASE+LENGTH H B P LDKL A2,VTC:EB EXTENT BASE H p P ADR A2,A9 H : P CF A14,CMPDWD CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN H P XIF H P* H P IFT CPU852=0
0x26307c…263210 Dummy {f00=0x0122, f01=0x0190, f02=» IFT CPU852=1 H P LDKL A3,VTC:EB I P ADR A3,A9 I . 0 P LDKL A1,FM:BUF+4 MOVE EXTENT BASE TO VTC:EB I @ P ADR A1,A5 I t P CF A14,FM:MV4 I P XIF I P* I P IFT CPU852=0 I P ML 2,FM:BUF+4,A5 I P MS 2,VTC:EB,A9 I P XIF I P*
0x263210…2633a4 Dummy {f00=0x0122, f01=0x0190, f02=»PACE I j P* J P* J PDELF30 EQU * J P* J 4 P IFT CPU852=1 J > , P LDKL A1,FM:BUF+4 FSAT EXTENT BASE ENTRY J T P ADR A1,A5 DISPLACEMENT J . P LDKL A2,VTC:EL EXTENTBASE + EXTENT LENGTH J P ADR A2,A9 J $ P CF A14,CMPDWD CHECK IF ADJECENT
0x2633a4…263538 Dummy {f00=0x0122, f01=0x0190, f02=» J f P XIF K P* K P RF(NE) DELF40 NOT ADJECENT K P* K B P IFT CPU852=1 K L " P LDKL A3,VTC:EL EXPAND EXTLEN K b P ADR A3,A9 K P CF A14,DBLAD1 K P XIF K P* K P IFT CPU852=0 K P ML 2,VTC:EL,A9 K P DA FM:BUF,A5 K
0x263538…2636cc Dummy {f00=0x0122, f01=0x0190, f02=»B(NZ) DELF03 WRITE ERROR K PDELF40 EQU * L ( P ADKL A12,FSATRL NEXT ENTRY IN FSAT L 4 P CW A12,FSATLE,A9 L ` * P RB(L) DELF10 CONTINUE SEARCH OF FSAT L z P* L P EJECT FMCDEF L P* L P* L : P* PUT FREE SPACE IN FSAT SEARCH FOR FREE F
0x2636cc…263860 Dummy {f00=0x0122, f01=0x0190, f02=»ROR L z & P LDR A12,A2 DISPLACEMENT IN BUFFER M P ADKL A12,FM:BUF ADDRESS M 6 P LDR A1,A12 M V P CF A14,GETPAR GET EXT LEN M j " P RF(Z) DELF60 FREE FSAT ENTRY M P ADK A5,FSATRL M P CW A5,FSATLE,A9 M P RB(NG) DELF50 M 0 P LDK A4,RC:OFL RC:
0x263860…2639f4 (3, 82) Dummy {f00=0x0122, f01=0x018e, f02=»EF M P* N P* N PDELF60 EQU * N P* N 2 P IFT CPU852=1 N < P LDKL A3,VTC:EL EXTENT END N R P ADR A3,A9 N t * P LDKL A6,VTC:EB ADDRESS TO EXTENT BASE N P ADR A6,A9 N $ P CF A14,DBLSUB GET EXTENT LENGTH N * P LDR A3,A12 ADDRESS TO FRE
0x2639f4…263b88 Dummy {f00=0x0122, f01=0x0190, f02=» P XIF O P* O P IFT CPU852=0 O P ML 4,VTC:EL,A9 O 0 P DSR A3 O H P MSR 4,A12 UPDATE FSAT O X P XIF O v P* O P CF A14,CDEWRI WRITE O P RF(NZ) DELF80 ERROR O P IM FEXTNO O PDELF70 EQU * O P ABL(NZ) DELF00 NEXT EXTENT O
0x263b88…263d1c Dummy {f00=0x0122, f01=0x0190, f02=»SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2 P* OUTPUT : A2 = 3
0x263d1c…263eb0 Dummy {f00=0x0122, f01=0x018e, f02=»QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST = 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q P RF SET2CR Q P*
0x263eb0…264044 Dummy {f00=0x0122, f01=0x0190, f02=» Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECTION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION LENGTH R P* R P
0x264044…2641d8 Dummy {f00=0x0122, f01=0x0190, f02=»S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S PGETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST SIGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S P EJECT FMCDEF S P
0x2641d8…26436c Dummy {f00=0x0122, f01=0x0190, f02=»UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = ADDRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P* A1,A2 = ARG
0x26436c…264500 Dummy {f00=0x0122, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x264500…264694 (3, 83) Dummy {f00=0x00df, f01=0x0190, f02=»EAD SEQUENTIAL P POWRRM0 EQU *-ORDERS P DATA WRRM00 WRITE RANDOM : P POWRSQ0 EQU *-ORDERS d " P DATA WRSQ00 WRITE SEQUENTIAL P POREWR0 EQU *-ORDERS 6 P DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) P EJE
0x264694…264828 Dummy {f00=0x00df, f01=0x0190, f02=»STRTDI START DIRECT (EQUAL,GREATER,NOT LESS) P 4 POEXTND EQU *-ORDERS < P DATA EXTEND EXTEND FILE X P x POCLOSE EQU *-ORDERS P DATA SDMCLO CLOSE P PORDFLP EQU *-ORDERS & P DATA SDMRFP READ FILE PARAMETERS P
0x264828…2649bc Dummy {f00=0x00df, f01=0x0190, f02=»NDEXED v P PORDSQX EQU *-ORDERS ( P DATA RDSQIX READ SEQUENTIAL INDEXED 2 P ^ POWRRMX EQU *-ORDERS f & P DATA WRRMIX WRITE RANDOM INDEXED P POWRSQX EQU *-ORDERS 8 P DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED)
0x2649bc…264b50 Dummy {f00=0x00df, f01=0x0190, f02=»DELTIX DELETE INDEXED (DIRECT,CURRENT) P . POSTRTX EQU *-ORDERS 6 8 P DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) R P P XIF P EJECT P* P* ORDER INDEX TABLE P* PBYTE FORM 8,8 P PORDTAB EQU
0x264b50…264ce4 Dummy {f00=0x00df, f01=0x0190, f02=»REWR0 REWRITE NOT INDEXED * P BYTE ODELT0,ODELT0 DELETE NOT INDEXED " 4 P BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM P $ P BYTE OSTRTD,OSTRTD START DIRECT * P BYTE OSTRTD,OCLOSE START DIRECT,CLOSE PORDTEX EQU *-ORDTAB P IFT INDXAC=0
0x264ce4…264e78 Dummy {f00=0x00df, f01=0x0190, f02=»E OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED 6 P BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED < > P BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED v : P BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED & P BYTE OSTRTX,OSTRT
0x264e78…26500c Dummy {f00=0x00df, f01=0x0190, f02=»SDMTSK * P************** P* ( PSDMTSK EQU * 2 P* F P* SET UP A14 STACK P P* l P LD A14,PRUN v P ADKL A14,DMTTSB STACK BASE P LDR A11,A1 FDB ADDR P LDR A8,A11 $ P ADKL A8,FDBECB FDB ECB ADDRESS & P L
0x26500c…2651a0 Dummy {f00=0x00df, f01=0x0190, f02=»A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE P RF(N) DMT100 OPEN ORDER . P LDK A7,2 MASK BIT N P TM A7,A5 h " P RF(Z) DMT010 ORDER CODE EVEN z " P ADK A5,50 CORRECT ORDER INDEX PDMT010 EQU * " P SRL A5,2 INDEX IN ORDER TABLE $ P LC A7,O
0x2651a0…265334 (3, 84) Dummy {f00=0x0112, f01=0x0190, f02=» " P LDR A5,A9 RESTORE REGISTER =7 ^ P ADK A4,0 SET CR =7 ^ * PINS260 EQU * ^ F ( P RB(Z) INS170 GO TO DMIER3 IF ERROR ^ Z * P XRK A5,1 SWITCH KEY RECORD BUFFERS =7 ^ P RB INS200 ^ PINS400 EQU * ^ P* ^ ( P* UPDATE LRN IF EOF IS ENCOUNTERED
0x265334…2654c8 Dummy {f00=0x0112, f01=0x0190, f02=»1,A11 ^ P RF(NG) INS430 NO EOF _ PINS410 EQU * _ , ( P SC A1,FDBLRN,A11 LAST RECORD NUMBER _ @ P ST A2,FDBLRN+1,A11 _ l & P LD A9,DWTECB,A11 USER ECB ADDRESS _ P LDKL A3,EOFRC END OF FILE _ P ORS A3,ECBRC,A9 TO USER _ P EJECT _ PINS430
0x2654c8…26565c Dummy {f00=0x0112, f01=0x0190, f02=» 1 TO RECORD NUMBERS _ ~ PINS440 EQU * ` P CF A14,SDMRBU REL BUFFER ` 0 * P ABL DMTAR5 ONE INDEX READY TAKE NEXT ` R P EJECT ` * PDEL000 EQU * DELETE INDEX RECORD CONT ` P ADK A1,0 ` PDEL010 EQU * ` " P ABL(NZ) DMIER3 KEY NOT FOUND ` P
0x26565c…2657f0 Dummy {f00=0x0112, f01=0x0190, f02=»1 ` " P ADK A1,7 BUFSTA-3=ADDR REC NR a P LCR A2,A1 a 0 P CC A2,ECBCW+1,A9 REC NR a B P RF(NE) DEL030 WRONG RECORD a b P LC A2,1,A1 a P ECR A2,A2 a P LC A2,2,A1 REC NR a P CW A2,ECBCW+2,A9 a P RF(E) DEL200 RECORD FOUND a PDEL030
0x2657f0…265984 Dummy {f00=0x0112, f01=0x0190, f02=»Y NOT SAME a z PDEL040 EQU * b ( P CF A14,RDNXTR GET NEXT INDEX RECORD b & PDEL045 EQU * b R ( P RB(Z) INS260 GO TO DMIER3 IF ERROR b f P* b P* CHECK IF RECORD IS USED b P* b & P CF A14,CHKRCD CHECK RECORD STATUS b P RB(E) DEL020 USED b
0x265984…265b18 Dummy {f00=0x0112, f01=0x0190, f02=»ECORD FOUND b P* c & P* SET RC BIT 6 IF NEXT KEY SAME c P* c H P LC A7,-1,A1 NR OF SAME CHAR c R P ANK A7,/FF c v 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB c P CWR A10,A7 KEY LENGTH c $ P RF(NE) DEL220 NEXT KEY NOT SAME c P L
0x265b18…265cac Dummy {f00=0x0112, f01=0x0190, f02=» $ P ADKL A10,7 TOTAL RECORD LENGTH d P LDR A2,A4 d , P ADKL A2,BUFSTA d > P AD A2,FDBRRO,A11 TO ADDR d V P LDR A1,A2 d x P ADR A1,A10 FROM ADDR d P LD A3,FDBMRO,A11 d P SU A3,FDBRRO,A11 NR OF CHAR d P CF A14,MOVFW MOVE d P* d
0x265cac…265e40 Dummy {f00=0x0112, f01=0x0190, f02=»* UPDATE CRN FOR MOVED RECORDS d P* e ( P CF A14,GTLGRN GET REC NR e 2 P LDR A12,A1 e T " P LDR A13,A2 FIRST REC NR MOVED e h 2 P LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET e P LD A6,FDBMRO,A11 e P ST A6,FDBRRO,A11 MAX OFFSET e $ P CF A1
0x265e40…265fd4 (3, 85) Dummy {f00=0x0112, f01=0x018e, f02=»DK A5,1 MARK BUFFER CHANGED e P EJECT f $ PDEL240 EQU * f 2 P LD A1,FDBRRO,A11 f F $ P RF(NZ) DEL290 NOT FIRST RECORD f ` P CF A14,GTLGRN GET REC NR f P LDK A6,0 f P LDK A7,1 f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 f P RF(Z) DEL600 FILE
0x265fd4…266168 Dummy {f00=0x0112, f01=0x0190, f02=» f n P EJECT g P* g P* WRITE SECTOR g P* g 8 P CF A14,FMIOWR g B P ABL(NZ) DMTERR g X $ P LDK A5,0 BUFFER NOT CHANGED YET g p PDEL245 EQU * g " P CF A14,SDMRBU RELEASE BUFFER g P* g P* GET PREVIOUS SECTOR g P* g P L
0x266168…2662fc Dummy {f00=0x0112, f01=0x0190, f02=» P RF DEL300 h PDEL290 EQU * h P SU A1,FDBRLE,A11 h * P SUK A1,1 h D PDEL300 EQU * h V , P ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET h j & P CF A14,CHKRCD CHECK RECORD STATUS h P RB(NE) DEL240 FREE h P EJECT h P* h P* SET CURRENCY
0x2662fc…266490 Dummy {f00=0x0112, f01=0x0190, f02=» " P CF A14,CRNGET GET CRN BUFFER i ( P LDR A11,A12 FDB ADDRESS INDEX FILE i * $ P LC A1,FWTFNR,A11 INDEX FILE NR i V $ P CC A1,CRNCIF,A2 LAST REF INDEX i ~ P RF(NE) DEL350 NOT THIS IND i P* i P* UPDATE CURRENCY i P* i P LDR A3,A2 CRN
0x266490…266624 Dummy {f00=0x0112, f01=0x018e, f02=»C A2,17,A14 NR OF SAME IN DELETED RECORD i " P* WAS SAVED AT LABEL DEL200 j 0 P CC A2,-4,A9 j V P RF(NL) DEL600 j j ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER j P RF DEL700 WRITE SECTOR j PDEL600 EQU * j P ADK A5,0 j $ P RF(Z) DEL900 BUFFER N
0x266624…2667b8 Dummy {f00=0x0112, f01=0x0190, f02=» j ~ PDEL900 EQU * k P ABL INS440 k P XIF k 0 P EJECT k < P* k J P* FNDBLB=FIND BLOCK BUFFER k T P* k v PFNDBLB EQU * k P LD A7,DWTOR,A11 ORDER k P ANK A7,/3F k P SUK A7,ORDSQ0 k & P RF(NZ) FBL110 NOT READ SEQUENTIAL k P*
0x2667b8…26694c Dummy {f00=0x0112, f01=0x0190, f02=» k ~ P CW A3,FDBLRN+1,A11 l P RF(NG) FBL110 NO EOF l $ PFBL100 EQU * l B P LDK A2,1 INDICATE ERROR l V P LDKL A1,EOFERR EOF l v P RF FBL170 RETURN l PFBL110 EQU * l P LDKL A2,/CFFF l & P ANS A2,FDBDBR,A11 RELEASE BUFFER l $ P CF A14,
0x26694c…266ae0 Dummy {f00=0x0112, f01=0x0190, f02=» IF IT IS NOT THE WANTED BLOCK l P* m ( P LC A7,BUFOR,A4 DELAY FLAG m 2 P ANK A7,/3 m T P RF(Z) FBL150 NO DELAY m f P CM BUFOR,A4 RESET m P ANK A7,1 m P RF(NZ) FBL130 RIGHT SECTOR m P LD A7,BUFSNR,A4 SECT NR m P ST A7,ECBCW,A8 m
0x266ae0…266c74 (3, 86) Dummy {f00=0x0118, f01=0x0190, f02=» P EXTRN SCTTCT P EXTRN RELPRO P EXTRN ACTOT 0 P EXTRN DISEND D EXTRN DWTECB ECB ADDRESS Z $ EXTRN DWTOR DWT INDEX AND ORDER | & P EXTRN DWTTAB DM TASK TTAB ADDRESS P EXTRN SDMTSK P EXTRN CALSNO " P EXTRN ECBBA,E
0x266c74…266e08 Dummy {f00=0x0118, f01=0x0190, f02=» P EXTRN FDBEXC,MOVUS ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EXTRN DMACTI,DMACTD L P EXTRN DISIOE h P EXTRN TTABD,TTABLN,TABEND ~ P* P EJECT P* P************************ P* CONDITIONAL ASSEMBLY * P******
0x266e08…266f9c Dummy {f00=0x0118, f01=0x0190, f02=»EQU 1 z * P* INDXAC EQU 0 OTHRERWISE PX:A EQU 0 < PINDXAC EQU X:A N P* d P* n . P* A PROGRAM VERSION USING TOSS MMU PAGING x * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P EJECT
0x266f9c…267130 Dummy {f00=0x0118, f01=0x018e, f02=»RQERR EQU /8000 P EJECT P* & P************************ 0 P* DATA DEFINITIONS * P P************************ p P* P* BRANCH TABLE P* PTIODMF EQU * P IFT INDXAC=1 P DATA OPEN P DATA OPEN
0x267130…2672c4 Dummy {f00=0x0118, f01=0x0190, f02=» P DATA CLOSED P DATA CLOSE P DATA RDFIPA , PSDMOEX EQU *-TIODMF @ P DATA DISIOE NOT USED P* z P EJECT TIOSDM P* P* PQWRSQ0 EQU *-TIODMF P DATA WRSQ00 P DATA DISIOE NOT ALLOWED P DATA WRRN
0x2672c4…267458 Dummy {f00=0x0118, f01=0x0190, f02=»DECUIX P DATA DEDI00 P DATA DEDIIX " PQRDSQ0 EQU *-TIODMF 6 P DATA RDSQ00 R P DATA RDSQIX f P DATA RDRN00 z P DATA RDRNIX P DATA STEQ00 P DATA STEQIX PQSTG00 EQU *-TIODMF P DATA STGR00 PQSTGIX EQU *-T
0x267458…2675ec Dummy {f00=0x0118, f01=0x0190, f02=» DATA OPEN P DATA OPEN P DATA OPEN $ P DATA OPEN 6 P DATA OPEN H P DATA OPEN Z P DATA OPEN l PQCLDIS EQU *-TIODMF ~ P DATA CLOSE P DATA CLOSE P DATA RDFIPA PSDMOEX EQU *-TIODMF P DATA DISIOE NOT USED
0x2675ec…267780 Dummy {f00=0x0118, f01=0x0190, f02=» P DATA WRRN00 P DATA DISIOE NOT ALLOWED P DATA RWCU00 8 P DATA DISIOE NOT ALLOWED L P DATA RWDI00 l P DATA DISIOE NOT ALLOWED P DATA DECU00 P DATA DISIOE NOT ALLOWED P DATA DEDI00 P DATA DISIOE NOT ALLOWED P
0x267780…267914 (3, 87) Dummy {f00=0x0123, f01=0x0190, f02=» P********** ^ P* FSREAD * ^ P* FTREAD * ^ ( P********** ^ : P* ^ L B P* FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED ^ V P* FTREAD: READ FSAT SECTOR ^ P* ^ ( P* INPUT : A5 = FSAT DISPLACEMENT ^ * P* FSATB
0x267914…267aa8 Dummy {f00=0x0123, f01=0x0190, f02=» ^ ^ * P* CR IS SET TO ZERO IF A4=0 _ P* _ 6 PFSREAD EQU * _ @ P LDK A4,0 RESET RETURN CODE _ T P LDR A2,A5 DISPLACEMENT _ x P ANK A2,/F8 _ & P RF(NZ) SET:CR NOT FIRST IN SECTOR _ PFTREAD EQU * _ P ECR A2,A5 SECTOR NUMBER _
0x267aa8…267c3c Dummy {f00=0x0123, f01=0x0190, f02=» $ P ADKL A14,4 UPDATE STACK POINTER ` P ADK A4,0 SET CR ` , P ABR* A14 RETURN ` D P* ` P EJECT FMCDEF ` f P* ` | P* ` P********** ` P* VTCPAR * ` P********** ` P* ` . P* GET FSAT LENGTH IN BYTES TO WORK AREA ` * P*
0x267c3c…267dd0 Dummy {f00=0x0123, f01=0x0190, f02=»INPUT : A8 = FM:ECB ADDRESS ` P* A2 = FILE CODE a $ " P* OUTPUT: A4 = 0 IF READ OK a H & P* A4<> 0 IF READ NOT OK a n ( P* CR SET ACCORDING TO A4 a * P* USED REGISTERS A1, A2, A3, A4, A7 a P* a PVTCPAR EQU *
0x267dd0…267f64 Dummy {f00=0x0123, f01=0x0190, f02=»ERROR a | " P LDKL A2,FM:BUF BUFFER ADDRESS b P LD A1,VOL:EB,A2 VTOC BASE b 4 & P ST A1,FSATBA,A9 FSAT BASE SECTOR b V P LD A3,VOL:EL,A2 VTOC LENGTH b P LD A2,VOL:FS,A2 FSAT LENGTH b P ADR A3,A1 b P ADR A1,A2 b P ECR A2,A2 b P* b P
0x267f64…2680f8 Dummy {f00=0x0123, f01=0x0190, f02=»N BYTES b r $ P ST A3,VTCEND,A9 VTOC END SECTOR c P XIF c 8 P* c D P IFT CPU852=0 c N P MS 3,VTCSEC,A9 c d P XIF c | P* c P RB SET:CR c P* c P EJECT FMCDEF c P* c P* c P********** c P* CHKFIL * c P********** c
0x2680f8…26828c Dummy {f00=0x0123, f01=0x0190, f02=»OD c j . P* FILCOD - AREA WITH FILE CODES d ( P* OUTPUT: A2 = 0 IF NO FILE FOUND d < & P* A2 <> 0 IF FILE FOUND d h ( P* CR SET ACCORDING TO A2 d , P* A1-A7 AND A11-A13 ARE USED d P* d P* d PCHKFIL
0x26828c…268420 Dummy {f00=0x0123, f01=0x4150, f02=» CHKF20 NEXT FILE CODE d P LDR A6,A9 e P SUKL A6,FWTNAM e 0 P CF A14,FNDVTC e H P ADK A4,0 e ^ P ABL(NZ) CDEXIT DISC ERROR e p P ADK A2,0 e * P RB(NZ) SET2CR FILE IN ONE OF VOLUMES e PCHKF20 EQU * e P ADK A5,1 e ( P RB(NP) CHKF10 N
0x268420…2685b4 (3, 88) Dummy {f00=0x0123, f01=0x2008, f02=» f NT FMCDEF 80-01-09 PRR 11.0 CHLO END 4 :E0F @ KPF /S L ASG 2,TY10 Z LED FMCDEF l !!DL 1 ~ 11EN !!AB BEA FMCDEF ASG 2,TY10 BYE @
0x2685b4…268748 Dummy {f00=0x0123, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:B EQU MULEXT l P* P EJECT TIOFM P* P* P********* P* TIOFM * P********* P* P* 8 P* THIS
0x268748…2688dc Dummy {f00=0x0123, f01=0x018e, f02=»ETERS: t P* P* A4 = 0 P* A5 = TTAB ADDRESS * P* A7 = ORDER CODE H P* A8 = ECB ADDRESS d P* . P* WHEN FILE ADMINISTRATION IS REQUESTED, ( P* TIOFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION
0x2688dc…268a70 Dummy {f00=0x0123, f01=0x0190, f02=» P* P* P EJECT TIOFM P* . P* 8 4 PTIOFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY B P* z P* CHECK ORDER CODE P* P LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT P SUK A
0x268a70…268c04 Dummy {f00=0x0123, f01=0x018e, f02=» RF(Z) FM:IO BASIC WRITE P SUK A2,/11-/05 P RF(Z) FM:IO PHYSICAL READ 8 P SUK A2,/15-/11 Z P RF(Z) FM:IO PHYSICAL WRITE r P SUK A2,/21-/15 $ P RF(Z) FMACT2 OPEN/CREATE/EXTEND P SUK A2,/22-/21 P RF(Z) FMACT1 CLOSE/DELETE
0x268c04…268d98 Dummy {f00=0x0123, f01=0x0190, f02=» . P RF(NZ) FM:RQE REQUEST ERROR IF NOT DETACH P* 6 P EJECT TIOFM @ P* V P IFT ATTDET=1 ` P* v P********** P* DETACH * P********** P* P* DETACH FILE P* PDETACH EQU * 8 P CF A15,FCHECK FIND
0x268d98…268f2c Dummy {f00=0x0123, f01=0x0190, f02=» WAS ATTACHED v ( P RF(NZ) T:DISP YES, GO TO DISPATCHER P XIF B P* N P* ERROR EXIT X P* l 4 PFM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT v P LDK A3,/80 RETURN CODE P* PFM:ER1 EQU * P ECR A3,A3 P RF T:DIS2
0x268f2c…2690c0 Dummy {f00=0x0123, f01=0x0190, f02=»* P* ATTACH FILE P* PATTACH EQU * * 8 P CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS > P RF(NZ) FM:030 NOT OK z $ P ST A5,FWTTAB,A6 SET ATTACH WORD P XIF P* PT:DISP EQU * P LDR A3,A4 RETURN CODE P
0x2690c0…269254 (3, 89) Dummy {f00=0x0123, f01=0x0190, f02=» P********** P* FMACTX * P********** ( P* : P* D & P* FILE ADMINISTRATION REQUESTED. N P* x 6 P* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: P* 4 P* A1 = ORDER CODE AND OPTION (RFP/OPEN/CLOSE) 0 P* = P
0x269254…2693e8 Dummy {f00=0x0123, f01=0x0004, f02=»$x$
0x2693e8…26957c Dummy {f00=0x0123, f01=0x018e, f02=» J F IDENT FMCDEF REL 11.0 81-05-13 870105041100 . * CREATEK DELETE EXTEND SEXTNO DV3RST R SEXTNO , ( , ( ! CREATEK B
0x26957c…269710 Dummy {f00=0x0123, f01=0x0190, f02=» VTC:BF * & _$H J G * G J G FPB:CDL H VTC:CD( Z FM:MOVO l , ( u ~ FM:ECB FPB:IF * & ,P 00T ( J FPB:K
0x269710…2698a4 Dummy {f00=0x0123, f01=0x0190, f02=» G : T ] @ OPENN * VTC:FS: : DELETE L , ( @ 4' "W P G $ W ` FWTPAR DLCLO2 * & T X & "? P @ (W A FWTEW1 EWTVOL , (
0x2698a4…269a38 Dummy {f00=0x0123, f01=0x0190, f02=»T * & @ C . F : A 0 X FM:RQE 8 FM:INER J EXTEND l * & ] 2_ 4_ 6_ p EWTSEXO FPB:EL , ( u * t H 8 A J :X. FNDVTC8 , (
0x269a38…269bcc Dummy {f00=0x0123, f01=0x0190, f02=» j VTC:EN VTC:LR , ( $ B "? G D G F G . , ( F=f ] @ =f T ^ OPEXT , ( A ? A H_ , ( T F 6 G 6 G 8 G * VTC:EL
0x269bcc…269d60 Dummy {f00=0x0123, f01=0x0190, f02=» J 6V W W P F J 6 , ( U 6 G J R F 0ZP F " , ( JT T % T F J R , ( P F J G JW F * , ( H G J L T W T L * & H F J U L P G < G $ F
0x269d60…269ef4 (3, 90) Dummy {f00=0x0124, f01=0x0190, f02=» P L V R$ P , ( AD TT V DT F . G < B & FPB:MN V , ( [ Y. G . F . F 2 J _f F @ LT J h FPB:SN VTC:MN , ( y " V J X G Z G B , ( G D
0x269ef4…26a088 Dummy {f00=0x0124, f01=0x0190, f02=» <T F . 2 F : z VTC:NE FEXTNOn , * & > T F D W A > FNDVT2 l * & ^ P T F : 2 F . ~ * & 5 H ` G . P P A 0 G $ F * & M $ Z< : 7 W W W W , (
0x26a088…26a21c Dummy {f00=0x0124, f01=0x0190, f02=» bT T L G bW z , ( H T L F JT F J T L G J , ( 0ZP J , ( L P F 0] A 0W F z DV3RST , ( J 3 T A ^ & B9A FPB:S1 * & !
0x26a21c…26a3b0 Dummy {f00=0x0124, f01=0x0190, f02=» fW n FCHEC2 * & uI U L U L U L U L : , ( P h(@ < M ^ G : G N , ( RW " T " F 4 N ~ ECBFC VOL:EB * & : C j N L H VOL:EL
0x26a3b0…26a544 Dummy {f00=0x0124, f01=0x0190, f02=»] _ H D ! E E OP U 2 WT _ ` P T T T Wd P Wh H D ! T P W: 'Q /P ? o T 2 T ) T - 5 A ` X H D !P CP G IT Y [T iP kR oT. wV& yW W P U R T H D ! TN T P
0x26a544…26a6d8 Dummy {f00=0x0124, f01=0x407e, f02=» l T W T t l @ P W l T )P> 1W6 GW [T sWN W T P D h@ z 2 T ) T - 5 A ` X H D !P CP G IT Y [T iP kR oT. wV& yW W P U R T H D ! TN T P
0x26a6d8…26a86c Dummy {f00=0x0124, f01=0x2008, f02=»
0x26a86c…26aa00 Dummy {f00=0x0124, f01=0x0190, f02=» P ANR A2,A14 SKIP SIGN BIT P RB FM:110 * P XIF < P* H PFM:150 EQU * R P ADK A1,1 f P ANR A2,A14 SKIP SIGN BIT x P RB FM:120 P* PFM:160 EQU * P ADK A6,1 P ANR A7,A14 SKIP SIGN BIT P RB FM:125
0x26aa00…26ab94 (3, 91) Dummy {f00=0x012e, f01=0x0190, f02=» e V 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE f * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES f > 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES f l ( P LDKL A2,/F000 END OF LOGICAL MEMORY f , P SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS f 2 P LD A3,STK
0x26ab94…26ad28 Dummy {f00=0x012e, f01=0x0190, f02=»U ENTRY f v : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE g P SRL A2,12 MMU TABLE ENTRY g N $ P LDK A3,16 NUMBER OF MMU ENTRIES g p . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES g 4 P ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE g P SLL A
0x26ad28…26aebc Dummy {f00=0x012e, f01=0x018e, f02=»P,A10 STORE IN SEGMENT CONTROL TABLE g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE h , 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES h b 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES h ( P LDR A11,A3 GET CURRENT SEGMENT SIZE h & P LD A9,SCTPSZ GE
0x26aebc…26b050 Dummy {f00=0x012e, f01=0x0190, f02=» h h P RB BMSG20 i PBMSG99 RTN A14 RETURN i P EJECT i 8 > P********************************************************** i F > P* * i > P* BMSTAB - BUILD MONITOR SEGMENT TABLE * i
0x26b050…26b1e4 Dummy {f00=0x012e, f01=0x0190, f02=»* REFERENCED IN: B:MSEG * i > P* * j B > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * j > P* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * j > P
0x26b1e4…26b378 Dummy {f00=0x012e, f01=0x018e, f02=» * j > P* WORK REGISTERS: A2,A3,A9,A11 * k > > P* * k > P* SUBROUTINES: CMPADR,ERROR * k > P*
0x26b378…26b50c Dummy {f00=0x012e, f01=0x0190, f02=» k PBMSTAB EQU * l * P STR A1,A15 SAVE REGISTER A1 ON STACK l ( P LD A5,SCTSFA GET START OF FREE AREA l J * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE l v & P STR A2,A5 STORE IN SEGMENT TABLE l * P ADK A5,2 NEXT ENTRY IN SEGMENT TABLE l & P LDR* A9,A4
0x26b50c…26b6a0 Dummy {f00=0x012e, f01=0x0190, f02=»MBER OF SEGMENTS l h " P ADK A5,2 SEGMENT TABLE ENTRY m P LDR A3,A5 SAVE m > P* m V P* BUILD SEGMENT BLOCK 0 m ` P* m ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 m ( P STR A2,A3 STORE IN SEGMENT BLOCK 0 m 6 PBMST20 ST A1,STKEND+SGMCNT SAVE NUMBER
0x26b6a0…26b834 (3, 92) Dummy {f00=0x012f, f01=0x0190, f02=» BLOCKS m r " P CALL CMPADR COMPARE ADDRESSES n P RF(NG) BMST25 OK n 6 * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW n P P CALL ERROR n ~ & PBMST25 LDR* A2,A8 GET SEGMENT TYPE n P SRL A2,8 ISOLATE n ( P CCK A2,'RR' CORE RESIDENT SEGMENT? n P RF(E)
0x26b834…26b9c8 Dummy {f00=0x012f, f01=0x018e, f02=»NG & DISC RESIDENT SEGMENT n P* o " ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB o , 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 o X 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 o $ P LD A10,2,A8 GET RELOCATION BASE o & P ADR A2,A10 RELOCATE DISC ADDRES
0x26b9c8…26bb5c Dummy {f00=0x012f, f01=0x0190, f02=» ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW p P CALL ERROR p 0 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT p D 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 p | 6 P ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 p P RF BMST50 p P* p .
0x26bb5c…26bcf0 Dummy {f00=0x012f, f01=0x0190, f02=»TORE IN SEGMENT BLOCK p ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH q 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH q J P CALL CMPADR q . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER q 6 P ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH q < PBMST55
0x26bcf0…26be84 Dummy {f00=0x012f, f01=0x0190, f02=»OF SEGMENTS q p P SUK A1,1 r P RB(NZ) BMST20 MORE SEGMENTS r & " P ADK A3,8 END OF SEGMENT TABLE r J 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA r p $ P LDR* A1,A15 RESTORE REGISTER A1 r P RTN A14 r P EJECT r @ P****************************
0x26be84…26c018 Dummy {f00=0x012f, f01=0x0190, f02=» TASK ALREADY DEFINED * r t @ P* ====================================== * s ( @ P* * s l @ P* REFERENCED IN: B:MSEG * s @ P*
0x26c018…26c1ac Dummy {f00=0x012f, f01=0x0190, f02=»MONITOR SEGMENT TASK * s | @ P* * t 0 @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * t t @ P* A12 = 0 IF TASK NOT DEFINED * t @ P*
0x26c1ac…26c340 Dummy {f00=0x012f, f01=0x0190, f02=» * t @ P* SUBROUTINES: PSW * u 8 @ P* * u | @ P************************************************************ u P EJE
0x26c340…26c4d4 (3, 93) Dummy {f00=0x012f, f01=0x018e, f02=»TER IN TCTAB u r " P CW A2,SCTTCT START OF TCTAB? v * P RF(E) CHKT30 YES: ALL TASKS CHECKED! v : $ P LDR* A3,A2 GET POINTER TO TTAB v h P LD A3,TTB:ID,A3 GET TASK ID v ( P CWR* A3,A1 EQUAL TO CURRENT TASKS? v P RB(NE) CHKT20 NO v " P LDR* A12,A2 G
0x26c4d4…26c668 Dummy {f00=0x012f, f01=0x0190, f02=» v d P RTN A14 w P EJECT w H P******************************************************************* w & H P* * w r H P* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * w H
0x26c668…26c7fc Dummy {f00=0x012f, f01=0x0190, f02=» * w V H P* REFERENCED IN: MXTTAB,B:MSEG * x H P* * x ^ H P* ENTRY: * x H P*
0x26c7fc…26c990 Dummy {f00=0x012f, f01=0x0190, f02=» * x H P* WORK REGISTERS: A2,A9,A10,A11 * y J H P* * y H P* SUBROUTINES: CMPADR,ERROR
0x26c990…26cb24 Dummy {f00=0x012f, f01=0x0190, f02=»********************************************* y z PBMXSTT EQU * z 6 * P LD A12,SCTSFA GET START OF FREE AREA z J , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH z x " P LD A2,SCTOPT GET OPTION WORD z P ANK A2,/21 EMM? z P XRK A2,/21 z P RF(NZ) BMXS20
0x26cb24…26ccb8 Dummy {f00=0x012f, f01=0x0190, f02=»CTOPT GET OPTION WORD z P ANK A2,1 MMU OPTION? { P RF(Z) BMXS30 NO! { < . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB { V $ P SUKL A10,TTB:MT INCLUDE LENGTH { P RF BMXS40 { ( PBMXS30 LD A2,SCTOPT GET OPTION WORD { P ANK A2,2 DISC PAGING? {
0x26ccb8…26ce4c Dummy {f00=0x012f, f01=0x0190, f02=»0,SCTSFA COMPUTE START OF FREE AREA { P LDR A9,A10 SAVE | , 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA | D " P CALL CMPADR MEMORY OVERFLOW? | x P RF(NL) BMXS50 NO! | P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW | 2 PBMXS50 ST A10,
0x26ce4c…26cfe0 Dummy {f00=0x012f, f01=0x0190, f02=»,A2 STORE TTAB ADDRESS | ( P IM* SCTTCT INCREMENT CURRENT LENGTH } P IM* SCTTCT TWICE } J P LDR* A2,A1 GET TASK ID } d $ P ST A2,TTB:ID,A12 STORE IN TTAB } * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL } $ P ST A2,TTB:ST,A12 STORE IN TTAB } P SLL A
0x26cfe0…26d174 (3, 94) Dummy {f00=0x0124, f01=0x0190, f02=» P IFT CPU852=1 ~ . P LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 ~ P ANK A1,/FF ~ L & P RF(NZ) FMSP30 EXTENT LARGE ENOUGH ~ ` , P LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 ~ P XIF ~ P* ~ P IFT MULEXT=1 ~ P IFT CPU852=0 ~ $ P ML 2,EWTEXL
0x26d174…26d308 Dummy {f00=0x0124, f01=0x018e, f02=»* ~ P* P IFT MULEXT=1 P CWR A3,A2 * & P RF(NG) FMSP30 EXTENT LARGE ENOUGH < ( P LDR A3,A2 NO OF SECTORS IN THIS I/O f P* PFMSP30 EQU * & P ECR A3,A3 CONVERT LENGTH TO BYTES P LDR* A13,A13 2ND EWT BLOCK P* P
0x26d308…26d49c Dummy {f00=0x0124, f01=0x0190, f02=» P* P IFT MULEXT=1 P IFT CPU852=0 $ " P ML 2,EWTEXB-1,A13 EXTENT BASE : P ANK A1,/FF ` P RB FMSP00 t P XIF P* P EJECT FMTASK P* P* * PFMSP40 EQU * ILLEGAL REQUESTED LENGTH P IFT MULEXT=1
0x26d49c…26d630 Dummy {f00=0x0124, f01=0x0190, f02=»* P IFT MMUPAG=0 6 P ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF Z P* f P IFT MULEXT=1 p P IFT MMUPAG=1 6 P ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF P* P IFT MULEXT=1 P RB FM
0x26d630…26d7c4 Dummy {f00=0x0124, f01=0x0190, f02=» P********** P* P* * P* INPUT: A2 = SECTOR NUMBER, PART 2 * . P* A8 = FM:ECB/FMECB2 ECB ADDRESS X P* " P* OUTPUT: CR = 0 IF OK, ELSE $ P* <> 0 IF DISC ERROR 8 P* A4 = DISC RETURN CODE (EXC
0x26d7c4…26d958 Dummy {f00=0x0124, f01=0x0190, f02=»FM:LKM P* $ PFMREAD EQU * PHYSICAL READ ENTRY P LDK A7,/91 ORDER CODE @ P* ^ * PFM:LKM EQU * COMMON I/O ROUTINE ENTRY h . P ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB P* PFM:IO EQU * $ P ADKL A14,4 ADJUST STACK POINTER
0x26d958…26daec Dummy {f00=0x0124, f01=0x0190, f02=»Y BIT x * P ABR* A14 RETURN (WITHOUT CHANGING CR) P* < P EJECT FMTASK F P* ^ P* h P********** r P* FNDNAM * P********** P* P* 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE 0 P* TO VOLUME NAME ADD
0x26daec…26dc80 Dummy {f00=0x0124, f01=0x0190, f02=»= 6 . P* A6 = DISC DWT ADDRESS + DOUBLE INDEX P* > * PFNDNAM EQU * FIND VOLUME NAME ADDRESS H P INH v ( P CF A15,FNDDWD FIND DISC DWT ADDRESS P ENB P* 6 P* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE 8 P* SWITCH T
0x26dc80…26de14 (3, 95) Dummy {f00=0x0124, f01=0x0190, f02=» POWER ON COMPLETED FOR THIS DISC & P LKM WAIT FOR RECOVERY COMPLETION * P DATA 0 SWITCH TASKS T P RB FNAM05 CHECK DISC AGAIN p P* P EJECT FMTASK P* P* PFNAM10 EQU * P LDR A1,A6 DISC DWT ADDRESS P LDR A
0x26de14…26dfa8 Dummy {f00=0x0124, f01=0x0190, f02=» l P* PFNAM20 EQU * & P ADK A1,6 NEXT VOLUME NAME IN DWT & P SUK A2,1 DECREMENT INDEX P P RB(NN) FNAM20 r P LDK A2,6 P ADKL A1,DWTVOL-6 P RTN A14 P* P EJECT FMTASK P* P* P**********
0x26dfa8…26e13c Dummy {f00=0x0124, f01=0x0190, f02=»D READ THE VTOC RECORD x " P* OF THE FIRST FILE EXTENT. P* D " P* INPUT: A5 = TTAB ADDRESS N P* A8 = FM:ECB ADDRESS t & P* A9 = USER ECB ADDRESS P* 2 P* OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 6 P*
0x26e13c…26e2d0 Dummy {f00=0x0124, f01=0x0190, f02=»13 = VTOC RECORD ADDRESS IN FM:BUF * P* A3, A7, A11 ARE DESTROYED * P* X 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD b P INH < P CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS P ENB P RF(NZ) RDVT20 ERR
0x26e2d0…26e464 Dummy {f00=0x0124, f01=0x0190, f02=» 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) P* B & PRDVTO2 EQU * ENTRY USED BY FMCDEF L 8 P CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD v P* PRDVT10 EQU * P ADK A4,0 CHECK RETURN CODE & P RF(NZ) RDVT20 DISC
0x26e464…26e5f8 Dummy {f00=0x0124, f01=0x0190, f02=»RECORD FOR THIS FILE r 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT P* P PRDVT20 EQU * Z & P ORS A4,RETCOD PREPARE RETURN CODE n P RTN A14 P* P EJECT FMTASK P* P* P********** P* FNDVTC * P******
0x26e5f8…26e78c Dummy {f00=0x0124, f01=0x0190, f02=»ONE EXTENT x , P* HAS BEEN FOUND OR WHEN THE COMPLETE . P* VTOC HAS BEEN SEARCHED WITHOUT MATCH. B P* t P* INPUT: A2 = FILE CODE ~ P* A6 = FWT ADDRESS P* A8 = FM:ECB ADDRESS P* 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x26e78c…26e920 Dummy {f00=0x0124, f01=0x0190, f02=» = VTOC RECORD ADDRESS IN FM:BUF 2 P* A1, A3, A7, A11-A12 ARE DESTROYED ( P* ^ PFNDVTC EQU * FIND VTOC ENTRY h P* " P* READ VOLUME LABEL (SECTOR 0) P* ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB P LDK A2,0 SECTOR NUMBE
0x26e920…26eab4 (3, 96) Dummy {f00=0x0122, f01=0x2008, f02=» f NT FMCDEF 80-01-09 PRR 11.0 CHLO END 4 :E0F @ KPF /S L ASG 2,TY10 Z LED FMCDEF l !!DL 1 ~ 11EN !!AB BEA FMCDEF ASG 2,TY10 BYE @
0x26eab4…26ec48 Dummy {f00=0x0122, f01=0x0190, f02=»TER LOOP f v P LDK A4,/20 SPACE g P* g * " PFMR:02 EQU * OUTER LOOP ENTRY g 4 & P LDK A3,6 LOOP COUNTER, INNER LOOP g Z P* g " PFMR:04 EQU * INNER LOOP ENTRY g * P SCR A4,A1 MOVE SPACES TO VOLUME NAME g P ADK A1,1 g P SUK A3,1 g P R
0x26ec48…26eddc Dummy {f00=0x0122, f01=0x0190, f02=» P RB(P) FMR:02 h P XIF h P* h & P IFT CPU852=0 h 0 P MLK 3 h F P DATA /2020,/2020,/2020 h T " P LDK A5,0 (A4 = 0 FROM RDVTOC) h t P MS 5,FPB:V1,A10 h P MS 5,FPB:V2,A10 h P MS 5,FPB:V3,A10 h P MS 5,FPB:V4,A10 h P XIF h P*
0x26eddc…26ef70 Dummy {f00=0x0122, f01=0x0190, f02=»L,A13 RECORD LENGTH h P STR A1,A10 i 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION i 0 P ST A1,FPB:BF,A10 i l ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER i P ST A1,FPB:FR,A10 i $ P LD A1,VTC:LR+2,A13 LRN, PART 2 i P ST A1,FPB:FR+2,A10
0x26ef70…26f104 Dummy {f00=0x0122, f01=0x018e, f02=»TC:IF,A13 NUMBER OF INDEX FILES i P ST A1,FPB:IF,A10 j ( , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD j B P ST A1,FPB:KA,A10 j r P XIF j P* j P IFT CPU852=0 j 8 P ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR j P MS 2,FPB:FR,A10 j
0x26f104…26f298 Dummy {f00=0x0122, f01=0x0190, f02=» j , P LC A2,VTC:IF,A13 NUMBER OF INDEX FILES k , P LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD k 8 P MS 3,FPB:MN,A10 k h P XIF k P* k P IFT ATTDET=1 k , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER k P RF(Z) FMR:05 NOT ATTACHED k P LDK A1,1
0x26f298…26f42c Dummy {f00=0x0122, f01=0x0190, f02=»H,A10 SET ATTACH PARAMETER k P* l " P EJECT FMTASK l , P* l D P* l N & P LD A1,FWTPAR,A6 ACCESS PARAMETERS l X P SLL A1,1 l 0 P RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE l P LDK A2,1 l , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS l
0x26f42c…26f5c0 Dummy {f00=0x0122, f01=0x0190, f02=»N DATE AND RETENTION PERIOD l P* m $ P LDR A1,A13 VTOC ADDRESS m . P ADK A1,VTC:CD m N P LDR A3,A10 FPB ADDRESS m d P ADK A3,FPB:CD m & P LDK A2,9 NO OF CHARACTERS TO MOVE m : P CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD m P* m
0x26f5c0…26f754 (3, 97) Dummy {f00=0x0129, f01=0x0190, f02=» P********** P* FMACTX * P********** ( P* : P* D & P* FILE ADMINISTRATION REQUESTED. N P* x 6 P* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: P* 4 P* A1 = ORDER CODE AND OPTION (RFP/OPEN/CLOSE) 0 P* = P
0x26f754…26f8e8 Dummy {f00=0x0129, f01=0x0004, f02=»%0%8
0x26f8e8…26fa7c Dummy {f00=0x0129, f01=0x018e, f02=» J F IDENT FMCDEF REL 11.0 81-05-13 870105041100 . * CREATEK DELETE EXTEND SEXTNO DV3RST R SEXTNO , ( , ( ! CREATEK B
0x26fa7c…26fc10 Dummy {f00=0x0129, f01=0x0190, f02=» VTC:BF * & _$H J G * G J G FPB:CDL H VTC:CD( Z FM:MOVO l , ( u ~ FM:ECB FPB:IF * & ,P 00T ( J FPB:K
0x26fc10…26fda4 Dummy {f00=0x0129, f01=0x0190, f02=» G : T ] @ OPENN * VTC:FS: : DELETE L , ( @ 4' "W P G $ W ` FWTPAR DLCLO2 * & T X & "? P @ (W A FWTEW1 EWTVOL , (
0x26fda4…26ff38 Dummy {f00=0x0129, f01=0x0190, f02=»T * & @ C . F : A 0 X FM:RQE 8 FM:INER J EXTEND l * & ] 2_ 4_ 6_ p EWTSEXO FPB:EL , ( u * t H 8 A J :X. FNDVTC8 , (
0x26ff38…2700cc Dummy {f00=0x0129, f01=0x0190, f02=» j VTC:EN VTC:LR , ( $ B "? G D G F G . , ( F=f ] @ =f T ^ OPEXT , ( A ? A H_ , ( T F 6 G 6 G 8 G * VTC:EL
0x2700cc…270260 Dummy {f00=0x0129, f01=0x0190, f02=» J 6V W W P F J 6 , ( U 6 G J R F 0ZP F " , ( JT T % T F J R , ( P F J G JW F * , ( H G J L T W T L * & H F J U L P G < G $ F
0x270260…2703f4 (3, 98) Dummy {f00=0x00c6, f01=0x0190, f02=» P DATA SCT P P " P* * P* SYSTEM TRAP 4 P* J PTRAP LDK A1,/D T P CF A15,HALT j P RES 4 ~ P HLT P P* P* DEBUG RESTART ENTRY P* P XRR A13,A13 P XRR A14,A14 P LD A1,SCTBUG
0x2703f4…270588 Dummy {f00=0x00c6, f01=0x018e, f02=»DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE " $ PX:D EQU 0 DM/FM NUMBER OF FILES P ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK x $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM 4 PX:H EQU 10 NUMBER OF SEG
0x270588…27071c Dummy {f00=0x00c6, f01=0x0190, f02=» * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA 6 $ PSCTEFA DATA 0,0 END OF FREE AREA ` ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMBER
0x27071c…2708b0 Dummy {f00=0x00c6, f01=0x0190, f02=»GES v PSCTPSZ DATA 0 PAGE SIZE & PSCTSTB DATA STB SYSTEM STACK BASE , $ PSCTOPT DATA X:A MONITOR OPTION: V " P BIT 10:MPO,11:EMM,12:SWPBLK ~ $ P BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA BUG DEBUGGER & PSCTDMT DATA X:B DMTASKS IN S
0x2708b0…270a44 Dummy {f00=0x00c6, f01=0x0190, f02=»T ADDRESS t $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DATA X:E NUMBER OF FILES/TASK : * PSCTFWL DATA X:F FILE WORK TABLE LENGTH f ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE , PSCTNOS DATA X:H NUMBER O
0x270a44…270bd8 Dummy {f00=0x00c6, f01=0x0190, f02=» P P* P* SYSTEM STACK P* , $ PSTKEND EQU * END OF SYSTEM STACK 6 P RES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x270bd8…270d6c Dummy {f00=0x00c6, f01=0x4060, f02=»* IDLE LOOP P* P PLOOP RB * & P 8 P @ P H P END P@ ES 68 ^ PSTKMOV LDR* A4,A1 n P STR A4,A2 P ADK A1,2 P ADK A2,2 P SUK A3,2 P ABR(Z) A7 P RB STKMOV PSTKCOM EQU * P
0x270d6c…270f00 Dummy {f00=0x00c6, 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
0x270f00…271094 (3, 99) Dummy {f00=0x00f0, f01=0x2008, f02=»
0x271094…271228 Dummy {f00=0x00f0, f01=0x000e, f02=» ( 0 8 @
0x271228…2713bc Dummy {f00=0x00f0, f01=0x018e, f02=» 2 P IDENT DRTW01 REL 11.0 81-06-12 870105041100 P : $ P =4,COND. FOR BSP,CANC AND EOR B P REL 11.0 81-04-15 j 0 P =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB P REL 11.0 81-01-26 $ P =2,BOTH KEYTABLE AND STANDARD P EOR-
0x2713bc…271550 Dummy {f00=0x00f0, f01=0x0190, f02=» P 6 P************************************************** P* J $ P* PHILIPS TERMINAL SYSTE PTS T P* | , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P* P* P* P* P* P* 6 P**********************
0x271550…2716e4 Dummy {f00=0x00f0, f01=0x018e, f02=» P* P EJECT P* P* & P*********** 0 P* ENTRIES * D P*********** X P* l P ENTRY TWAD ADDRESS BLOCK v P ENTRY IHTW P ENTRY TWON P ENTRY DWTW01 P* P************* P* EXTERNALS *
0x2716e4…271878 Dummy {f00=0x00f0, f01=0x0190, f02=» n * P EXTRN SETIME SET TIME BEFORE TIME-OUT . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK 6 P EXTRN DWTST STATUS h P EXTRN DWTBC BYTE COUNTER P EXTRN DWTECB ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A
0x271878…271a0c Dummy {f00=0x00f0, f01=0x0190, f02=»ACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER * P EXTRN INTSAV SAVE AREA LAST INTRRUPT < * P EXTRN PFPOST PWF POST PROCESSING FLAG j P EJECT P* P* P******************** P* I/O-INSTRUCTIONS P********************
0x271a0c…271ba0 Dummy {f00=0x00f0, f01=0x0190, f02=»OUTPUT PTWSST EQU /4AC0 SENSE STATUS P* 2 P* < P EJECT F P* T P* ^ P************* h P* CONSTANTS * ~ P************* P* P* PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED " PLNGERR EQU /
0x271ba0…271d34 (3, 100) Dummy {f00=0x00f1, f01=0x0190, f02=» P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF & P SUK A3,1 J P RF(NZ) WRT030 P LDK A2,/0C SEND FORM FEED t P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P*
0x271d34…271ec8 Dummy {f00=0x00f1, f01=0x0190, f02=»* 6 PWRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 D P RB(Z) RED040 LAST CHARACTER X P CWK A7,5 | P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK
0x271ec8…27205c Dummy {f00=0x00f1, f01=0x0190, f02=» ERRCOD LESS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F 2 P SUK A1,/20 X " P RF(NP) WRT060 BETWEEN /60-/7F l P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P*
0x27205c…2721f0 Dummy {f00=0x00f1, f01=0x0190, f02=» P* PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER & P LDR A4,A2 COPY 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER t P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1
0x2721f0…272384 Dummy {f00=0x00f1, f01=0x0190, f02=» NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES SHOULD BE SENT $ P LDR A4,A2 T " PTAB030 LDK A2,/20 SEND BALNKS f $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND AN
0x272384…272518 Dummy {f00=0x00f1, f01=0x0190, f02=»FER INDEX | " P RB WRT050 GET NEXT CHARACTER P EJECT 8 P* F P* P P* RECOVERY ROUTINE Z P* v P* P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=
0x272518…2726ac Dummy {f00=0x00f1, f01=0x0190, f02=»A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF : P LD A1,DWTST,A6 F P RF(N) EXIT DEVICE NOT BUSY ^ PTWON10 LD A3,DWTA3,A6 P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB
0x2726ac…272840 Dummy {f00=0x00f1, f01=0x018e, f02=»R 05 ~ P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START * P LDK A2,CR R P LDK A3,0 d P LD A4,DWTHP,A6 v P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND
0x272840…2729d4 (3, 101) Dummy {f00=0x00f1, f01=0x0190, f02=»* % 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 & P* & F P* & P PLDREGE EQU * & Z & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & n & P LD A4,DWTA4,A6 A4 & & P LD A5,DWTA5,A6 A5 & P LD A7,DWTOR,A6 & P ANK
0x2729d4…272b68 Dummy {f00=0x00f1, f01=0x0190, f02=» & 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER ' P* ' D P* ON ENTRY: ' N P* ' d P* A3 = BUFFER INDEX ' n P* A8 = ECB-ADDRESS ' P* ' P* ON EXIT: ' P* ' P* A2 = CHARACTER ' * P* A1 = 0 IF LAST CHAR
0x272b68…272cfc Dummy {f00=0x00f1, f01=0x0190, f02=» EQU * ' P LD A1,4,A8 REQUESTED LENGTH ( P SUR A1,A3 ( 2 * P RF(NP) GCH010 LAST CHARACTER REACHED ( D " P LD A1,2,A8 GET BUFFER ADDRESS ( r P ADR A1,A3 ( P LCR A2,A1 CHAR. TO A2 ( P ANK A2,/FF ( $ P ADK A3,1 INCREMENT BUFFER INDEX ( P RTN
0x272cfc…272e90 Dummy {f00=0x00f1, f01=0x018e, f02=» ( l P* ) P* ) PDWTW01 EQU * TABLE ENTRY ) " P DATA /0010 CHANNEL PARAMETER ) < 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ) b P DATA 0 ECB ADDRESS ) P DATA 0 ORDER ) ( P DATA TWAD POINTER TO ADDRESS BLOCK ) P DATA 0 TTAB-ADDRESS
0x272e90…273024 Dummy {f00=0x00f1, f01=0x0190, f02=» ) l P DATA DEVECB MMU ECB ADDRESS * P XIF * , P DATA 0 OUTPUT QUEUE LINK * 8 P DATA 0 SAVE AREA FOR A3 * Z P DATA 0 SAVE AREA FOR A4 * z P DATA 0 SAVE AREA FOR A5 * P RES 4 STACK BASE * P DATA 1 TIMER POINTER * P DATA 0 ECHO DEVICE *
0x273024…2731b8 Dummy {f00=0x00f1, f01=0x018c, f02=»YTE DOUBLE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x2731b8…27334c Dummy {f00=0x00f1, f01=0x4008, f02=»@ , LE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + > , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + ^ P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA TW:B
0x27334c…2734e0 Dummy {f00=0x00f1, f01=0x2008, f02=» -
0x2734e0…273674 (3, 102) Dummy {f00=0x0115, f01=0x0190, f02=»PUT : A3 = ADDRESS TO ARG1 U & P* A6 = ADDRESS TO ARG2 V $ P* V N * P* OUTPUT: A3 = ADDRESS TO ARG1-ARG2 V X " P* A1,A2 = ARG1-ARG2 V $ P* A6,A7 ARE DESTOIED V & P* IF A1=A2=0 THEN A3=0 V P* V P
0x273674…273808 Dummy {f00=0x0115, f01=0x0004, f02=»" #
0x273808…27399c Dummy {f00=0x0115, f01=0x0190, f02=» J F IDENT TIODM REL 11.0 81-02-23 870105041100 D @ TIODM DMTEND DMTTSB FDBOMD FDBENL FDBEXC FDBECB FDBSNRC R F B FDBRRO FDBRLE FDBBLF FDBTNR FDBLRN FDBNIF FDBEALC FDBCRL D @ FDBKA FDBMIA FDBADF FDBAI1 CRN
0x27399c…273b30 Dummy {f00=0x0115, f01=0x0190, f02=» NOKEY NXTKYS2 EOFRC NODERR PROTY KEYERR v D @ PROERRW REQERR LGTERR EOFERR EDMERR TTABD TTABLN TABEND 2 F B DMXACD DMACTI DMACTD DWTPAB MOV:SUW MOV:US FINDTT FNDFDB z F B ENLFACV TOTSIZN RTNA14C SETCROV CONENL COSZEN SIZDIF: SDMSTSr
0x273b30…273cc4 Dummy {f00=0x0115, f01=0x0190, f02=» PROERRW REQERR REQER2 2 LGTERR F EDMERR Z EOFERR n RETRIE NOKEY NXTKYS2 EOFRC SIZDIF: , ( $ ( , 0 4 8
0x273cc4…273e58 Dummy {f00=0x0115, f01=0x0190, f02=» DMTTSB H TTABLN SDMTTDV & SDMBF1h : SDMBF2R N , ( $ ( , 0 4 8 < b , ( #E 1 " , ( $ ( ,
0x273e58…273fec Dummy {f00=0x0115, f01=0x0190, f02=»4 8 < n , ( #G 1 " > TABEND ` d FDBSTA 8 x DWDM01( 8 DWTPAB , ( 9 , ( Y
0x273fec…274180 Dummy {f00=0x0115, f01=0x018e, f02=» FDBRLE P FDBENL R FDBEXC T , FDBSNRC V @ FDBRRO Z T FDBBLF h FDBTNR ] | FDBNIF ^ FDBBLZ: _ FDBEALC ` FDBCRL b FDBKA d FDBMIA f
0x274180…274314 (3, 103) Dummy {f00=0x012a, f01=0x0190, f02=»HE FOLLOWING PARAMETERS: x P* " P* A1 = PARAMETER BLOCK ADDRESS * ( P* A3 = TTAB ADDRESS OF CALLING TASK P P* A4 = FUNCTION INDEX (=6) | P* PFM:170 EQU * P IFT MULEXT=1 P IFT MMUPAG=0 . P ST A12,ECBCW1,A8 SET SECTOR NUM
0x274314…2744a8 Dummy {f00=0x012a, f01=0x0190, f02=»OR NUMBER IN ECB v P ES A13,ECBCW2,A8 P XIF 2 P* > P IFT MULEXT=1 H * P SUR A7,A13 NO OF SECTORS IN FIRST I/O ^ * P ANR A7,A14 SKIP SIGN BIT JUST IN CASE P* * P* PREPARE PARAMETER BLOCKS FOR FMTASK P* P LDR A1,A9 O
0x2744a8…27463c Dummy {f00=0x012a, f01=0x0190, f02=» A1,A4 PARAMETER BLOCK ADDRESS * P LDK A4,6 FUNCTION INDEX FOR SPLIT I/O & P RB FMACT4 ACTIVATE FMTASK T P XIF v P* P IFT MULEXT=0 P RB FM:ER2 REQUEST ERROR P XIF P* P EJECT TIOFM P* P* P******
0x27463c…2747d0 Dummy {f00=0x012a, f01=0x0190, f02=» ^ 2 P* ADDRESS AND CHECKS THE ACCESS PARAMETERS. ! P* ! > " P* INPUT: A5 = TTAB ADDRESS ! H P* A7 = ORDER CODE ! n ( P* A8 = ECB ADDRESS (FCHECK ONLY) ! ( P* A9 = ECB ADDRESS (FCHEC2 ONLY) ! P* ! " P* OUTPUT: CR = 0 I
0x2747d0…274964 Dummy {f00=0x012a, f01=0x0190, f02=»ROR) ! b : P* A7 = ORDER CODE (MODIFIED TO BASIC IF REQUESTED) " P* A9 = ECB ADDRESS " J P* A2 IS DESTROYED " h P* " " PFCHECK EQU * FCHECK MAIN ENTRY " P LDR A9,A8 ECB ADDRESS " P* " " PFCHEC2 EQU * FCHECK 2ND ENTRY " P IFT M
0x274964…274af8 Dummy {f00=0x012a, f01=0x0190, f02=» " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) FC:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TOO BIG # 0 P LDKL A6,S
0x274af8…274c8c Dummy {f00=0x012a, f01=0x0190, f02=»1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 VTOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2,FWTPAR,A6 ACCESS PARAME
0x274c8c…274e20 Dummy {f00=0x012a, f01=0x0190, f02=» P* % PFC:020 EQU * % P IFT ATTDET=1 % " 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) % 8 & P ABR(Z)* A15 NOT ATTACHED, RETURN % l , P CWR A2,A5 ATTACHED, CHECK IF THIS TASK % , P RF(NE) FC:060 ATTACHED TO ANOTHER TASK % P XIF % P* %
0x274e20…274fb4 (3, 104) Dummy {f00=0x012e, f01=0x0190, f02=» START-ADDRESS TABLE M | , P ST A4,SCTSFA UPDATE START OF FREE AREA N P LDR A11,A4 GET TABLE END N L " P LDR A9,P GET CURRENT LOCATION N n " P CALL CMPADR COMPARE ADDRESSES N P RF(NG) BMXS05 OK N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW N P CALL
0x274fb4…275148 Dummy {f00=0x012e, f01=0x0002, f02=»%
0x275148…2752dc Dummy {f00=0x012e, f01=0x415e, f02=» J F IDENT DVG200 REL 11.0 81-01-26 870105041100 DVG200K R DVG200K d GPAD3 x , ( GP , ( , ( ? 3
0x2752dc…275470 Dummy {f00=0x012e, f01=0x2008, f02=»
0x275470…275604 Dummy {f00=0x012e, f01=0x0190, f02=» VTC:EL VTC:EB ^ F B VTC:LR VTC:RL VTC:BF. VTC:FO VTC:CD VTC:RP VTC:IF VTC:KA VTC:NE~ VTC:ST b VOL:VN | VOL:EL VOL:EB VOL:RLW VOL:FSO . VTOCRL * VTOCBF,
0x275604…275798 Dummy {f00=0x012e, f01=0x0190, f02=» VTC:LR VTC:RL VTC:BF. , VTC:FO @ VTC:CD T VTC:RP " h VTC:IF % | VTC:KA & VTC:NE~ ( VTC:ST ) FWTVTC FWTPAR0 FWTFNR>
0x275798…27592c Dummy {f00=0x012e, f01=0x0190, f02=» EWTSEX& EWTEXLR EWTVOLL , EWTEXBl @ FPB:RLW T FPB:BF h FPB:FO | FPB:DT FPB:BO FPB:NO: FPB:FN FPB:EL FPB:V1
0x27592c…275ac0 Dummy {f00=0x012e, f01=0x0190, f02=» FPB:FR : FPB:USR > FPB:SH @ , FPB:MN A @ FPB:SN B T FPB:IF C h FPB:KA D | FPB:CD F FPB:RP@ L TTABFM ( , ( ! #A 1 FM:ECBN R
0x275ac0…275c54 (3, 105) Dummy {f00=0x012f, f01=0x0190, f02=»NTROL BLOCK ADDRESS } n $ P ST A2,TTB:AP,A12 STORE IN TTAB ~ P LDK A2,2 ~ D 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH ~ V P RTN A14 RETURN ~ P EJECT ~ B P************************************************************** ~ B P* MX:MEB
0x275c54…275de8 Dummy {f00=0x012f, f01=0x018e, f02=» * ~ B P* REFERENCED IN: MX:MST * 8 B P* * ~ B P* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * B
0x275de8…275f7c Dummy {f00=0x012f, f01=0x0190, f02=» P B P* A5 - POINTER TO NUMBER OF SEGTABS * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * N B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x275f7c…276110 Dummy {f00=0x012f, f01=0x0190, f02=» * f B P* SUBROUTINES: * B P* * b B P************************************************************** P EJECT PMX:MEB EQU *
0x276110…2762a4 Dummy {f00=0x012f, f01=0x0190, f02=»OF SEGTABS t P LDR A6,A2 SAVE & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS T , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS P SUK A2,1 MO
0x2762a4…276438 Dummy {f00=0x012f, f01=0x0190, f02=»************** ` B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* ======================================== * B P*
0x276438…2765cc Dummy {f00=0x012f, f01=0x0190, f02=» * t B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * * B P* * p B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * B P* A5
0x2765cc…276760 Dummy {f00=0x012f, f01=0x0190, f02=» A7 - NUMBER OF MONITOR EXTENTS * B P* * > B P* WORK REGISTERS: A2 * B P* *
0x276760…2768f4 (3, 106) Dummy {f00=0x0130, f01=0x0190, f02=» * T B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * P B P* * B P* WORK REGISTERS: A2,A3
0x2768f4…276a88 Dummy {f00=0x0130, f01=0x0190, f02=» * h B P* * B P************************************************************** d P EJECT PMX:STD EQU * 2 P CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK , P LDR A
0x276a88…276c1c Dummy {f00=0x0130, f01=0x0190, f02=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT " PSTD20 ADK A1,2 ADDRESS TASK ID 2 ( P SUK A3,1 DECREMENT NUMBER OF TASKS X P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETURN P XIF P EJECT " P****************
0x276c1c…276db0 Dummy {f00=0x0130, f01=0x0190, f02=» P* P* ENTRY: P* 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * P* f P* WORK REGISERS: A1-A12 p P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC P* ( P* TASK TABLE LAYOUT
0x276db0…276f44 Dummy {f00=0x0130, f01=0x0190, f02=» WORDS) I t * P* I______________________I * P* TTB:MT I MMU I @ * P* I TABLE I n * P* I 16 I * P* I WORDS I * P* I_
0x276f44…2770d8 Dummy {f00=0x0130, f01=0x0190, f02=»I SEGTAB POINTER I * P* I______________________I * P* TTB:SB I SEGM. BLOCK POINTER I N * P* I----------------------I | * P* TTB:AP I ACB POINTER I * P* ------------------------ * P*
0x2770d8…27726c Dummy {f00=0x0130, f01=0x0190, f02=»* ------------------------ * P* TTB:ST I STATUS/LEVEL I . * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P* ------------------------ * P* TTB:PW I PROGRAM STATUS WOR
0x27726c…277400 Dummy {f00=0x0130, f01=0x0190, f02=»------ p * P* I REGISTER I * P* I SAVE I < * P* I AREA I j * P* I 14 I * P* I WORDS I * P* ------
0x277400…277594 (3, 107) Dummy {f00=0x0130, f01=0x0190, f02=»RD EXTRA IF DISC PAGING v 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD PBTT30 EQU * T P EJECT h P* v < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFIGURATION TABLE P* P LDK A6,0 RESET LENGTH
0x277594…277728 Dummy {f00=0x0130, f01=0x0190, f02=» GET NUMBER OF TDC:S P LDR A7,A1 SAVE PBTT35 EQU * 4 P RF(Z) BTT40 H ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P LDR* A2,A8 P SUK A2,2 P
0x277728…2778bc Dummy {f00=0x0130, f01=0x0190, f02=»ET ENTRY IN TCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS B " P SUKL A8,2 EXCLUDE LENGTH WORD j ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH P ADKL A9,TDC+TLC NEXT CLAS
0x2778bc…277a50 Dummy {f00=0x0130, f01=0x0190, f02=»PECIAL DEVICE CLASS DEPENDENT PART OF | P* TASK CONFIGURATION TABLE . P* R 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A7,A1 SAVE PBTT50 EQU * P RF(Z) BTT55 NO MOORE SDC:S (
0x277a50…277be4 Dummy {f00=0x0130, f01=0x0190, f02=» LDR* A2,A8 P SUK A2,2 P CWR A1,A2 & P RF(NG) BTT52 8 P LDKL A1,LMP4 N & P CALL ERROR INDICATE FORMAT ERROR d PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH O
0x277be4…277d78 Dummy {f00=0x0130, f01=0x0190, f02=»GTH j P ADKL A9,SDC NEXT CLASS ( P SUK A7,1 DECREMENT NUMBER OF SDC:S , P RB BTT50 X PBTT55 EQU * j P IFF EDM=0 ~ & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,2 INCLUDE LENGTH WORD 4 P LD A7,STKEND+CUTENT GET CUR
0x277d78…277f0c Dummy {f00=0x0130, f01=0x0190, f02=»,STKEND+WRK3 SAVE A9 P ST A11,STKEND+WRK4 SAVE A11 P LDR A9,A10 GET TTAB LENGTH @ 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 d P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF ME
0x277f0c…2780a0 Dummy {f00=0x0130, f01=0x0190, f02=»+WRK3 RESTORE A9 ~ $ P LD A11,STKEND+WRK4 RESTORE A11 P* @ 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB J P* P ST A6,TTB:TD,A12 P* : P* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD P* ( P LD A5,STKEN
0x2780a0…278234 (3, 108) Dummy {f00=0x0131, f01=0x0190, f02=»SWB DEFINITION BLOCK! ( P ST A1,APLSWB,A10 CLEAR SWB POINTER : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 J & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL A11,1 NUMBER OF TYPES . P ST A11,STKEND+SWBBLK START
0x278234…2783c8 Dummy {f00=0x0131, f01=0x0190, f02=» 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS P ST A5,STKEND+WRK1 SAVE 8 . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP X P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR! P CALL ERROR : PBSWT48 ST A12,APLSWB,A10 SAVE AD
0x2783c8…27855c Dummy {f00=0x0131, f01=0x0190, f02=» $ PBSWT50 ADKL A10,2 BYPASS POINTER ( P SUK A5,1 DECREMENT NUMBER OF TYPES , P RB(P) BSWT50 X P* n & P* GET ADDRESS TO S:BTAB PROTOTYPE x P* , P LD A2,STKEND+APCSTA GET ADDRESS TO ACB & P LD* A1,APLMMC,A2 GET TTAB ADDRESS $ P T
0x27855c…2786f0 Dummy {f00=0x0131, f01=0x0190, f02=»E , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS $ P CALL GETCON GET S:BTAB ADDRESS : * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB b * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 ADDRESS TO NAME P ST A1,STKEND+SWBNAM SAVE 0 P SUK A
0x2786f0…278884 Dummy {f00=0x0131, f01=0x0190, f02=» IF ENOUGTH MEMORY IN FIRST PARTITION P* . P XRR A2,A2 RESET COUNTER 8 $ PBSWT52 SUK A1,6 DECREMENT LENGTH X $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER P RB BSWT52 " PBSWT55 SLL A2,3 MULTIPLY BY 8 $ P L
0x278884…278a18 Dummy {f00=0x0131, f01=0x0190, f02=»ERFLOW? z P RF(NL) BSWT57 NO! * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X $ PBSWT57 SUK A4,2 SKIP LENGTH WORD l " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK P ST A4,STKEND+SWBTBL SAVE
0x278a18…278bac Dummy {f00=0x0131, f01=0x0190, f02=»RECORD IN PROT. p $ P CALL GETCON GET TWO FIRST CHAR. ( P ADKL A11,NAMUWB NAME IN CONF. FILE @ P LCR A3,A11 GET FIRST CHAR. l P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECOND CHAR. & P CWR A1,A3 TWO FIRST CHAR. EQUAL? P RF(
0x278bac…278d40 Dummy {f00=0x0131, f01=0x0190, f02=»,A11 GET THIRD CHAR. FROM CONF. FILE P ANK A3,/FF ISOLATE CHAR. , " P CWR A1,A3 THIRD CHAR. EQUAL? N P RF(E) BSWT75 YES! t $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT NUMBER OF TYPES P RB(P) BSWT65 NEXT TYPE P*
0x278d40…278ed4 (3, 109) Dummy {f00=0x0134, f01=0x0190, f02=» * v 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * " 8 P* CONTENTS ARE SAVED ON STACK * ^ 8 P* AND RESTORED BEFORE EXIT) * 8 P*
0x278ed4…279068 Dummy {f00=0x0134, f01=0x0190, f02=»ERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 6 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * r 8 P* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * 8 P* CATIONS CONTAIN ZERO.
0x279068…2791fc Dummy {f00=0x0134, f01=0x0190, f02=» * b 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * J 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TASK IN THE APPLICATION. * 8 P*
0x2791fc…279390 Dummy {f00=0x0134, f01=0x0190, f02=» $ P CALL PUSH SAVE A1-A14 ON STACK & P CALL FSTAPL GET FIRST APPLICATION 0 " P LDR A9,P GET LIMIT FOR WRITE Z < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NXTAPL GET NEXT APPL. CONTROL BLOCK P RF(NZ) BST020 NOT LAS
0x279390…279524 Dummy {f00=0x0134, f01=0x0190, f02=»ND OF TCTAB ENTRIES t $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P D 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS V 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P CWK A5,'AS' ASSEMBLER APPLICATION? 2 P ABR(E) A8 YES; DON'
0x279524…2796b8 Dummy {f00=0x0134, f01=0x0190, f02=» SUR A2,A8 2*NUMBER OF TASKS P SRL A2,1 NUMBER OF TASKS $ P ST A2,STKEND+WRK1 SAVE F P ST A2,APLNPE,A10 SAVE f . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS P LDR A4,A3
0x2796b8…27984c Dummy {f00=0x0134, f01=0x0190, f02=»ON WORD t P ANK A2,1 MMU? P RF(Z) BST070 NO & P LDR* A7,A8 GET TTAB ADDRESS > P TL TTB:MT,A7 LOAD MMU TABLE b * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( P CALL GETCON GET NUMBER OF SEGMENTS
0x27984c…2799e0 Dummy {f00=0x0134, f01=0x0190, f02=»A12,SCTSFA GET START OF FREE AREA ( P LDR A2,A11 SAVE CONF. DATA POINTER * P LDR A11,A12 SAVE V * P ADR A11,A3 END OF SEGMENT TABLE AREA p " P CALL CMPADR MEMORY OVERFLOW? P RF(NG) BST100 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x2799e0…279b74 (3, 110) Dummy {f00=0x0134, f01=0x0190, f02=»A' BASIC? P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS , . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK Z 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MULT MULTIPLY * P LDR A2,A3 GET MAX NUMBER OF SEGMENTS :
0x279b74…279d08 Dummy {f00=0x0134, f01=0x0190, f02=» P* P* CLEAR SEGMENT TABLE AREA P* 2 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA < & PBST110 SUK A2,2 DECREMENT POINTER p P CMR A2 CLEAR , P CWR A2,A12 START OF SEGMENT TABLE AREA? P RB(NE) BST110 NOT YET . PBST120 ADR
0x279d08…279e9c Dummy {f00=0x0134, f01=0x0190, f02=»H WORD IN SEGMENT TABLE z 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE , P ADR A12,A4 START OF NEXT SEGMENT TABLE V P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS & P LDR A3,A6 GET NUMBER OF SEGMENTS
0x279e9c…27a030 Dummy {f00=0x0134, f01=0x0190, f02=»E ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 P LDR A4,A12 SAVE 6 . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 N " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB & P CALL GETCON GET ADDRESS TO P:MTAB P LDR A2,A1
0x27a030…27a1c4 Dummy {f00=0x0134, f01=0x0190, f02=»T START OF S:GTAB | * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK H P SUK A6,1 ANY MORE SEGMENTS? t P RF(N) BST300 NO P LDK A7,0 INIT STATUS BYTE 2 P ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK . P
0x27a1c4…27a358 Dummy {f00=0x0134, f01=0x0190, f02=»ENT TYPE z ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES < " P LD A1,SCTOPT GET OPTION WORD V P ANK A1,2 DISC PAGING? | P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR DISC ADDRESS 4 P LDKL A7,/8800 INDICATE CORE RESIDENT AND LOAD
0x27a358…27a4ec Dummy {f00=0x0134, f01=0x018e, f02=»ED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 * P CALL GETCON GET SEGMENT DISC ADDRESS 8 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. f P RF(O) BST250 CARRY P RF BST260 * PBST250 ADK A3,1 INCR. PART 1 OF D. A. . P ANKL A1,/7FFF RES
0x27a4ec…27a680 Dummy {f00=0x0134, f01=0x0190, f02=» P RF(NG) BST270 NO! ( P LDKL A1,LMP10 INDICATE DEVICE ERROR P CALL ERROR J 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS ^ P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 $ P ADK A2,2 ADDRESS SEGMENT LENGTH $ P C
0x27a680…27a814 (3, 111) Opaque[0x194]
0x27a814…27a9a8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1190, f03=0x0000}
0x27a814…27a9a8 IdxSect {
0x27a814…27a9a8 f00 = 0x008c // 0x27a814 @0x0
0x27a814…27a9a8 f01 = 0x0002 // 0x27a816 @0x2
0x27a814…27a9a8 gno = [ // 0x27a818 @0x4
0x27a814…27a9a8 [0x00]: C0x008c.0x2.0
0x27a814…27a9a8 ]
0x27a814…27a9a8 }
0x27a9a8…27ab3c Dummy {f00=0x008c, f01=0x018e, f02=» 2 P IDENT SCLASS REL 11.0 81-01-26 870105041100 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWTW01 P EXTRN DWDM01 P EXTRN DWREMU P EXTRN DWDU01 P EXTRN
0x27ab3c…27acd0 Dummy {f00=0x008c, f01=0x0190, f02=» x P DATA TC02 P DATA TC03 & PTCLASE EQU * D PTC00 DATA TC00E-* X P DATA /0021 z P DATA DWTW01 P DATA /0031 P DATA DWTW01 PTC00E EQU
0x27acd0…27ae64 Dummy {f00=0x008c, f01=0x0190, f02=» PTC02 DATA TC02E-* P DATA /00CA & P DATA DWDM01 F PTC02E EQU * f PTC03 DATA TC03E-* P DATA /015 P DATA DWREMU P DATA /02F2 P DATA DWDU01 P
0x27ae64…27aff8 Dummy {f00=0x008c, f01=0x4116, f02=»A DWDU01 P DATA /00F8 P DATA DWFD01 2 P DATA /01F9 H P DATA DWFD01 h P DATA /02FA ~ P DATA DWFD01 P DATA /03FB P DATA DWFD01 PTC03E EQU * P E
0x27aff8…27b18c Dummy {f00=0x008c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x27b18c…27b320 Dummy {f00=0x008c, f01=0x0190, f02=»DRESS 4 | P* A8 - CURRENT MMU ENTRY 5 P* 5 0 0 P LD A2,COMLG,A9 COMLG OF CORE RESIDENT PART 5 : * P LD A3,APLTYP,A1 GET APPLICATION TYPE 5 n P CWK A3,'AS' ASSEMBLER? 5 P RF(NE) AP:336 NO! 5 P* 5 , P ADK A2,10 YES, ADD 5 WORDS FOR DEBUGGER
0x27b320…27b4b4 (3, 112) Opaque[0x194]
0x27b4b4…27b648 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b0, f03=0x0000}
0x27b4b4…27b648 IdxSect {
0x27b4b4…27b648 f00 = 0x008d // 0x27b4b4 @0x0
0x27b4b4…27b648 f01 = 0x0002 // 0x27b4b6 @0x2
0x27b4b4…27b648 gno = [ // 0x27b4b8 @0x4
0x27b4b4…27b648 [0x00]: C0x008d.0x2.0
0x27b4b4…27b648 ]
0x27b4b4…27b648 }
0x27b648…27b7dc Dummy {f00=0x008d, f01=0x018e, f02=» 2 P IDENT MONTAB REL 11.0 81-05-27 870105041100 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P
0x27b7dc…27b970 Dummy {f00=0x008d, f01=0x018e, f02=» P EXTRN CTAB01 P EXTRN CTAB03 P 0 P 8 P @ P H P P P X P EXTRN KBAD4 ` P EXTRN TPAD t P EXTRN GPAD P EXTRN DNAD P EXTRN DIAD P EXTRN DYAD P EXTRN MSAD P EXTRN ODAD P EXTRN T
0x27b970…27bb04 Dummy {f00=0x008d, f01=0x0190, f02=» P P P P**** P DATA CTAB01 , P DATA CTAB03 B P X P ` P h P p PMONTAB EQU * x PFREQUE DATA 0 PPAGQUE DATA 0,0 P P P P P P P P 2 PSPDLCI DATA 0
0x27bb04…27bc98 Dummy {f00=0x008d, f01=0x40a6, f02=» P P DATA KBAD4 P DATA DIAD $ P DATA DYAD 6 P* H P DATA TPAD3 R P DATA GPAD04 f P DATA GPAD3 z P P END @ UE DATA 0,0 P P P P P P P P 2 PSPDLCI DATA 0
0x27bc98…27be2c Dummy {f00=0x008d, 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
0x27be2c…27bfc0 Dummy {f00=0x008d, f01=0x0190, f02=»O FREE FWT AVAILABLE D P LDKL A4,/8400 RETURN CODE E P RF ER:RTN E > P* E P POP:040 EQU * FILE ATTACHED E Z P LDK A4,/40 RETURN CODE E | P* E PER:RTN EQU * E & P ORS A4,RETCOD PREPARE RETURN CODE E P ABL FMEXIT RETURN E P* E P
0x27bfc0…27c154 (3, 113) Opaque[0x194]
0x27c154…27c2e8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bc8, f03=0x0000}
0x27c154…27c2e8 IdxSect {
0x27c154…27c2e8 f00 = 0x00de // 0x27c154 @0x0
0x27c154…27c2e8 f01 = 0x0006 // 0x27c156 @0x2
0x27c154…27c2e8 gno = [ // 0x27c158 @0x4
0x27c154…27c2e8 [0x00]: C0x00de.0x1.0
0x27c154…27c2e8 [0x01]: C0x00de.0x2.0
0x27c154…27c2e8 [0x02]: C0x00de.0x3.0
0x27c154…27c2e8 ]
0x27c154…27c2e8 }
0x27c2e8…27c47c Dummy {f00=0x00de, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 11.0 81-02-23 870105041100 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x27c47c…27c610 Dummy {f00=0x00de, f01=0x0190, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* & P ENTRY SCTMSZ,SCTSFA,SCTEFA,SCTIPL & P ENTRY SCTANO,SCTTCT,SCTCDT,SCTPAG & P ENTRY SCTNO
0x27c610…27c7a4 Dummy {f00=0x00de, f01=0x0190, f02=»CTMXS,SCTMOX z P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB 0 & P ENTRY PAG:QF,PAG:QB,PAG:PA,PAG:SB Z & P ENTRY SWB:NC,SWB:DS,SWB:EL,SWB:NS P ENTRY STKEND,STKCOM,STKMOV & P ENTRY ACBIOE,ACBSWB,ACBSEG,ACBNPE & P ENTRY ACBMM
0x27c7a4…27c938 Dummy {f00=0x00de, f01=0x0190, f02=»TERNALS * P************* P* ( P* 2 P EXTRN TDISP < , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE TAPE ( P E
0x27c938…27cacc Dummy {f00=0x00de, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x27cacc…27cc60 Dummy {f00=0x00de, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x27cc60…27cdf4 (3, 114) Dummy {f00=0x00de, f01=0x0190, f02=» F P* DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK P* R PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS | PSEG:ST EQU 0 STATUS $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH
0x27cdf4…27cf88 Dummy {f00=0x00de, f01=0x018e, f02=»PA EQU 4 PAGE ADDRESS & PPAG:SB EQU 6 SEGMENT BLOCK ADDRESS P* H 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE R 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY $ PSWB:EL EQU 4 SWB LENGTH (BYTES) & PSWB:NS EQU 6 SWB LENGTH (SECTORS)
0x27cf88…27d11c Dummy {f00=0x00de, f01=0x0190, f02=» n ( PACBNPE EQU 6 NUMBER OF PAGE ENTRIES & PACBMMP EQU 8 MMU TABLE PAGE ENTRY 4 . PACBMMC EQU 10 MMU TABLE COMMON PART ENTRY ^ * PACBLAP EQU 12 LOGICAL ADDRESS TO PAGE 0 PACBLAC EQU 14 LOGICAL ADDRESS TO COMMON PART 4 PACBSTA EQU 16 APPLICAT
0x27d11c…27d2b0 Dummy {f00=0x00de, f01=0x0190, f02=» P P PSTART EQU * P EJECT SYSTAB , P* D P* INTERRUPT VECTORS N P* j P DATA IHPFAR t P DATA IHLKM P DATA IHRTC P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA
0x27d2b0…27d444 Dummy {f00=0x00de, f01=0x0190, f02=»A CHLT1 P DATA IHFD P DATA ILLINT $ P DATA ILLINT 8 P DATA ILLINT L P DATA ILLINT ` P DATA ILLINT t P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA CHLT1 P DATA ILLINT P DATA ILLINT P DATA IL
0x27d444…27d5d8 Dummy {f00=0x00de, f01=0x0190, f02=»A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DATA ILLINT L P DATA ILLINT ` P DATA IHDU1 t P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA IL
0x27d5d8…27d76c Dummy {f00=0x00de, f01=0x0190, f02=»A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DATA ILLINT L P DATA ILLINT ` P DATA ILLINT t P DATA ILLINT P DATA ILLINT P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTR
0x27d76c…27d900 Dummy {f00=0x00de, f01=0x0190, f02=»A15,HALT P RES 4 P HLT P * P* 2 P* DEBUG RESTART ENTRY < P* Z P XRR A13,A13 d P XRR A14,A14 x P LD A1,SCTBUG P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITO
0x27d900…27da94 (3, 115) Dummy {f00=0x00de, f01=0x0190, f02=»S r ( PX:E EQU 0 DM/FM NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TABLE LENGTH 6 PX:G EQU 0 DC TASK IN SYSTEM ^ 4 PX:H EQU 10 NUMBER OF SEGMENT TABLES (BASIC ONLY) P* P EJECT SYSTAB P* P* SYSTEM CONTROL TABLE P*
0x27da94…27dc28 Dummy {f00=0x00de, f01=0x0190, f02=»END OF FREE AREA ( PSCTIPL DATA 0 IPL DEVICE FILE CODE: * P TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9 D $ PSCTANO DATA 0 APPLICATION NUMBER r PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS " PSC
0x27dc28…27ddbc Dummy {f00=0x00de, f01=0x0190, f02=»OPTION: v " P BIT 10:MPO,11:EMM,12:SWPBLK $ P BIT 13:FM,14:DSKPAG,15:MMUPAG 6 PSCTBUG DATA 0 DEBUGGER ^ ( PSCTDMT DATA 00015 DMTASKS IN SYSTEM | & P BIT 12:#G, 13:#F, 14:#E, 15:#D 2 PSCTDMI DATA 00007 DM INDEX RECORD BUFFER SIZE * P
0x27ddbc…27df50 Dummy {f00=0x00de, f01=0x0190, f02=»TFWL DATA 00126 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK . . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE Z , PSCTNOS DATA X:H NUMBER OF SEGMENT TABLES $ PSCTMXS DATA 0 ADDRESS TO MXSTAB 0 PSCTMOX DATA 0 ADDRESS TO START-ADDRE
0x27df50…27e0e4 Dummy {f00=0x00de, f01=0x418c, f02=»8 PSTKMOV LDR* A4,A1 P STR A4,A2 $ P ADK A1,2 6 P ADK A2,2 H P SUK A3,2 Z P ABR(Z) A7 l P RB STKMOV ~ PSTKCOM EQU * P RES 61 P RORG START+/1FC P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LO
0x27e0e4…27e278 Dummy {f00=0x00de, 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
0x27e278…27e40c Dummy {f00=0x00de, f01=0x0190, f02=»E UPADTED IN FPB K x * P* A1,A2,A3,A4,A5,A6,A7,A13=USED L P* L F PCOSZEN EQU * L P * P CF A14,CONENL CONVERT ENLARGE FACTOR L d P* L P* CONVERT SIZE L P* L P LDK A5,4 NUMBER OF VOLUMES L P LDR A13,A12 FPB ADDRESS L & P ADKL A1
0x27e40c…27e5a0 Dummy {f00=0x00de, f01=0x018e, f02=»,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) L P ANK A6,/FF M . , P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 M B P RB(O) SETCRO OVERFLOW M r P LDR A6,A2 M 2 P LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK) M P ANK A7,/FF M P CF A14,MPYMOD A6*A7=A1,A2 M
0x27e5a0…27e734 (3, 116) Opaque[0x194]
0x27e734…27e8c8 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d0, f03=0x0000}
0x27e734…27e8c8 IdxSect {
0x27e734…27e8c8 f00 = 0x008e // 0x27e734 @0x0
0x27e734…27e8c8 f01 = 0x0008 // 0x27e736 @0x2
0x27e734…27e8c8 gno = [ // 0x27e738 @0x4
0x27e734…27e8c8 [0x00]: C0x008e.0x2.0
0x27e734…27e8c8 [0x01]: C0x008e.0x3.0
0x27e734…27e8c8 [0x02]: C0x008f.0x0.0
0x27e734…27e8c8 [0x03]: C0x008f.0x1.0
0x27e734…27e8c8 ]
0x27e734…27e8c8 }
0x27e8c8…27ea5c Dummy {f00=0x008e, f01=0x0190, f02=» 0 P IDENT TDISP REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x27ea5c…27ebf0 Dummy {f00=0x008e, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x27ebf0…27ed84 Dummy {f00=0x008e, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x27ed84…27ef18 Dummy {f00=0x008e, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x27ef18…27f0ac Dummy {f00=0x008e, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x27f0ac…27f240 Dummy {f00=0x008e, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:AP ACB ADDRESS T P EXTRN TTB:SA SAVE AREA v P EXTRN TTB:ST STATUS & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CU
0x27f240…27f3d4 (3, 117) Dummy {f00=0x008e, f01=0x0190, f02=» ADDRESS ~ . P EXTRN PAG:QB PAGE QUEUE BACKWARD POINTER P EXTRN TENDIO END I/O B P EXTRN EXIT PROGRAM EXIT ` 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN ACBLAP LOGICAL ADDRESS OF C
0x27f3d4…27f568 Dummy {f00=0x008e, 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
0x27f568…27f6fc Dummy {f00=0x008e, f01=0x0190, f02=» CPU852 EQU 0. t P* PCPU852 EQU 0 P* 4 P* > . P* A PROGRAM VERSION USING TOSS DISC PAGING H * P* IS OBTAINED BY SETTING DSKPAG EQU 1. z P* PDSKPAG EQU 1 P* P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOV
0x27f6fc…27f890 Dummy {f00=0x008e, f01=0x0190, f02=» 1. ` P* PDIFPRI EQU 0 P* * P EJECT TDISP 4 P* J P* D I S Q U E T P* l 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE v P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF
0x27f890…27fa24 Dummy {f00=0x008e, f01=0x0190, f02=»EGISTERS FROM STACK AND RETURN P* & PRETUR8 EQU * 0 P D P IFT CPU852=0 L P MLR 8,A15 b P XIF t P P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR*
0x27fa24…27fbb8 Dummy {f00=0x008e, f01=0x0190, f02=»M E X I T, M E X I T, T E X I T P* ( 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP 2 P* h 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING r P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P C
0x27fbb8…27fd4c Dummy {f00=0x008e, f01=0x018e, f02=» PACTDIS CF A15,ACTOT P RF TDISP P EJECT TDISP 2 P H P* P P* D I S I O E Z P* r 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND | P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P*
0x27fd4c…27fee0 Dummy {f00=0x008e, f01=0x0190, f02=» & P* PAUSE TASK (I. E. GO TO TDISP) P* . PTPAUSE EQU * 8 P EJECT TDISP L P* b P* T D I S P l P* $ P* THIS IS THE DISPATCHER ENTRY P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC
0x27fee0…280074 (3, 118) Dummy {f00=0x008f, f01=0x0190, f02=»DKL A2,DISQUE P LDR* A3,A2 P RB(Z) RETUR8 QUEUE EMPTY * P L P LD A5,PRUN T $ P RF(Z) TDCQ10 IDLE LOOP RUNNING h & P LD A4,TTB:ST+1,A5 COMPARE RUNNING 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING
0x280074…280208 Dummy {f00=0x008f, f01=0x0190, f02=»D A1,TTB:SB,A3 GET SEGMENT BLOCK ADDR P RF(Z) TDISSW NONE . P LDR* A7,A1 H P RF(N) TDISSW SEGMENT LOADED 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P*
0x280208…28039c Dummy {f00=0x008f, f01=0x0190, f02=»IDLE LOOP P . P ADK A6,0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE L 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES n 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW
0x28039c…280530 Dummy {f00=0x008f, f01=0x0190, f02=» l P LDR A14,A5 P P IFT CPU852=0 $ P MLR 8,A15 : P MS 13,TTB:SA+2,A14 L P MLR 2,A15 h P z P XIF P IFT CPU852=1 P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P
0x280530…2806c4 Dummy {f00=0x008f, f01=0x0190, f02=»2,A14 P ST A10,TTB:SA+20,A14 P ST A9,TTB:SA+18,A14 , P ST A8,TTB:SA+16,A14 H P ST A7,TTB:SA+14,A14 d P ST A6,TTB:SA+12,A14 P ST A5,TTB:SA+10,A14 P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14
0x2806c4…280858 Dummy {f00=0x008f, f01=0x0190, f02=»W,A14 AND PSW IN TTAB P IFT DSKPAG+DIFPRI=2 P : * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR B P RF(Z) TDISST NONE p P LDR* A2,A1 GET SEGM STATUS P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES
0x280858…2809ec Dummy {f00=0x008f, f01=0x018e, f02=» P EJECT TDISP P* P* START NEW TASK $ P* < PTDISST LD A14,PRUN F P IFT DSKPAG=1 ` P v * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ~ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P
0x2809ec…280b80 Dummy {f00=0x008f, f01=0x0190, f02=» ( P LDR* A2,A4 CHECK IF PAGE IN PAGQUE P RF(NZ) TDST10 YES 4 " P LDR* A3,A1 NO GET SEGM STATUS N 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK t P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20
0x280b80…280d14 (3, 119) Dummy {f00=0x008f, f01=0x0190, f02=»A3,PAG:QB,A4 TAKE PAGE OUT OF QUEUE P STR A2,A3 , P ST A3,PAG:QB,A2 > P CMR A4 V P f , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS n P P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A1
0x280d14…280ea8 Dummy {f00=0x008f, f01=0x018e, f02=»RIES j P 2 PTDST22 SCR A2,A3 UPDATE MMU TABLE JUST IN CASE P SUK A4,1 J P RF(Z) TDST25 P ADK A2,4 r P ADK A3,2 P RB TDST22 P PTDST25 EQU * " P TL TTB:MT,A14 LOAD MMU TABLE 2 P SLL A1,2 UPDATE BASE IN T:A A
0x280ea8…28103c Dummy {f00=0x008f, f01=0x0190, f02=» P XIF P P IFT DSKPAG-MMUPAG=1 2 P ST* A1,TTB:CB,A14 UPDATE CURRENT SEGMENT BASE 8 P XIF n P z PTDST30 EQU * P IFT MMUPAG=1 " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC
0x28103c…2811d0 Dummy {f00=0x008f, f01=0x0190, f02=»AD REGISTERS z P P XIF P IFT CPU852=1 ( P > P STR A1,A15 PUT PC F P STR A2,A15 AND PSW ON STACK ` & P LD A1,TTB:SA+2,A14 LOAD REGISTERS P LD A2,TTB:SA+4,A14 P LD A3,TTB:SA+6,A14 P LD A4,TTB:SA+8,A14 P LD A5
0x2811d0…281364 Dummy {f00=0x008f, f01=0x40e8, f02=»D A10,TTB:SA+20,A14 P LD A11,TTB:SA+22,A14 P LD A12,TTB:SA+24,A14 : P LD A13,TTB:SA+26,A14 X P LD A14,TTB:SA+28,A14 v P P XIF P P RTN A15 START THE TASK P P END @ D A4,TTB:SA+8,A14 P LD A5
0x281364…2814f8 Dummy {f00=0x008f, 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
0x2814f8…28168c Dummy {f00=0x008f, f01=0x0190, f02=» EQU * + P CF A5,FD:REA PERFORM READ , P* , 0 P IFT TOSS+IBM=2 , : P LD A1,DWTFIB,A6 , R P RF(Z) FD:090 NOT IBM , j P XIF , P* , P IFT IBM=1 , P IFT MMUPAG=0 , ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS , P XIF , P* , P
0x28168c…281820 Dummy {f00=0x008f, f01=0x0190, f02=»* , P* - P IFT MMUPAG=1 - P IFT CHAN=0 - * P IFT TOSS+IBM=2 - > P LD A1,DWTFIB,A6 - V P RF(Z) FD:100 TOSS DISC - n P XIF - P* - P IFT MMUPAG=1 - P IFF CHAN+IBM=0 - 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS - (
0x281820…2819b4 (3, 120) Opaque[0x194]
0x2819b4…281b48 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f0, f03=0x0000}
0x2819b4…281b48 IdxSect {
0x2819b4…281b48 f00 = 0x00a7 // 0x2819b4 @0x0
0x2819b4…281b48 f01 = 0x000c // 0x2819b6 @0x2
0x2819b4…281b48 gno = [ // 0x2819b8 @0x4
0x2819b4…281b48 [0x00]: C0x00a7.0x2.0
0x2819b4…281b48 [0x01]: C0x00a7.0x3.0
0x2819b4…281b48 [0x02]: C0x00db.0x1.0
0x2819b4…281b48 [0x03]: C0x00db.0x3.0
0x2819b4…281b48 [0x04]: C0x00dc.0x0.0
0x2819b4…281b48 [0x05]: C0x00dc.0x1.0
0x2819b4…281b48 ]
0x2819b4…281b48 }
0x281b48…281cdc Dummy {f00=0x00a7, f01=0x018e, f02=» 2 P IDENT LRPINT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x281cdc…281e70 Dummy {f00=0x00a7, f01=0x018e, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x281e70…282004 Dummy {f00=0x00a7, f01=0x0190, f02=» H P* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH P* T ( P* -LKMQDI: QUEUE TASK AND DISPATCH ^ P* P EJECT LRPINT P* P* P*********** P* ENTRIES * P*********** P* P*
0x282004…282198 Dummy {f00=0x00a7, f01=0x0190, f02=»R r 4 P ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR * P ENTRY LKMQDI QUEUE TASK AND DISPATCH B 0 P ENTRY LKMSRC SET RETURN CODE IN A7 TO USER p & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE
0x282198…28232c Dummy {f00=0x00a7, f01=0x018e, f02=»NTRY PFPOST PWF POST PROCESSING FLAG P EJECT LRPINT , P* D P* N P************* X P* EXTERNALS * n P************* P* P* P EXTRN TDISP DISPATCHER " P EXTRN DISQUE DISPATCHER QUEUE $ P EXTRN PRUN TTAB OF
0x28232c…2824c0 Dummy {f00=0x00a7, f01=0x0190, f02=» $ P EXTRN QMJOB QUEUE MONITOR TASK $ P EXTRN SWL48 SWITCH TO LEVEL 48 , $ P EXTRN SWLXY SWITCH TO LEVEL XY T P EXTRN FREBLK SET BLOCK FREE | " P EXTRN SAVE8 SAVE 8 REGISTERS $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE
0x2824c0…282654 (3, 121) Dummy {f00=0x00a7, f01=0x0190, f02=»RN TTB:SB SEGMENT BLOCK POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD ( 2 P EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB R " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT P* P* . P*****************************************
0x282654…2827e8 Dummy {f00=0x00a7, f01=0x0190, f02=»ING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* J PMMUPAG EQU 1 T P* h P* r 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P*
0x2827e8…28297c Dummy {f00=0x00a7, f01=0x018e, f02=» P* P* 8 P* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * P* IS OBTAINED BY SETTING MONCLK EQU 0. X P* PX:A EQU 1 PMONCLK EQU 1 P* P EJECT LRPINT P* P* 2 P* A PROGRAM VERSION SUPPORTI
0x28297c…282b10 Dummy {f00=0x00a7, f01=0x0190, f02=» P* 4 P* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS 4 P* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) F , P* IS OBTAINED BY SETTING NETFRQ EQU 60. ~ 2 P* NOTICE THAT THE DEFAULT VALUE SHOULD BE 50. P* PNETFRQ EQU 50 P*
0x282b10…282ca4 Dummy {f00=0x00a7, f01=0x0190, f02=»OLLOWING d P* STEPS ARE CARRIED OUT: P* 2 * P* - IF STACK OVERFLOW SYSTEM HALTS. < P* j D P* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING TASK t P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P*
0x282ca4…282e38 Dummy {f00=0x00a7, f01=0x0190, f02=» (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) * P* A5 = TTAB ADDRESS OF CALLING TASK : P* A6 = LKM DATA DIRECTIVE h P* A2, A3 ARE DESTROYED P* > P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING TASK P* P*
0x282e38…282fcc Dummy {f00=0x00a7, f01=0x0190, f02=» P* P* P ST A15,LKM010 SAVE A15 " P LD A15,PRUN LOAD TTAB ADDRESS < P* b P IFT CPU852=1 l 4 P ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 P STR A13,A15 -A13 P STR A
0x282fcc…283160 Dummy {f00=0x00a7, f01=0x018e, f02=» P STR A6,A15 -A6 P STR A5,A15 -A5 P STR A4,A15 -A4 8 P STR A3,A15 -A3 P P STR A2,A15 -A2 h P STR A1,A15 -A1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA P XIF
0x283160…2832f4 (3, 122) Dummy {f00=0x00db, f01=0x018e, f02=» P EJECT LRPINT P* " P* GET LKM REQUEST PARAMETERS & P* L P LDR* A3,A15 V 4 P LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER j & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* P IFT MMUPAG=0 " P LD A3,-2,A2 INSTRUCTION COD
0x2832f4…283488 Dummy {f00=0x00db, f01=0x0190, f02=» * P TL MONMMU NO, LOAD MONITOR MMU TABLE P* 2 PLKM015 EQU * < " P EL A3,-2,A2 INSTRUCTION CODE P P ELR A6,A2 DATA DIRECTIVE v P XIF P* P CWK A3,/2804 P RF(E) LKM025 LKM P CWK A3,/6300 P RF(E) LKM025 TRAP
0x283488…28361c Dummy {f00=0x00db, f01=0x018e, f02=»ERFLOW j P* P EJECT LRPINT P* 0 P* : PLKM025 EQU * D & P ADK A2,2 UPDATE DISPATCH ADDRESS X P* P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST P XIF P*
0x28361c…2837b0 Dummy {f00=0x00db, f01=0x0190, f02=» t , P ANK A4,/5E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK 8 P CF A15,RELPAG RELEASE PAGE n P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNN
0x2837b0…283944 Dummy {f00=0x00db, f01=0x018e, f02=»* P* LKM REQUEST WITH LABEL P* , P IFT MMUPAG=0 6 P LDR* A4,A2 LABEL L P XIF f P* r P IFT MMUPAG=1 | P ELR A4,A2 LABEL P XIF P* & P ADK A2,2 ADJUST DISPATCH ADDRESS , P NGR A3,A3 MAKE DATA DIRECTIVE
0x283944…283ad8 Dummy {f00=0x00db, f01=0x0190, f02=» . P ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS P ADR A3,A3 INDEX IN LKMAL : & P RF(Z) LKMQDI TASK SWITCH REQUEST P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH TO LKM PR
0x283ad8…283c6c Dummy {f00=0x00db, f01=0x0190, f02=»ATE REQUESTED LKM PROC. NOT PRESENT z P* , PLKM070 EQU * 6 P CF A15,HALT HALT SYSTEM J P* j P* t P* L K M R Q E ~ P* . P* SET A7 = -1, QUEUE TASK AND DISPATCH. P* P* A5 = TTAB ADDRESS P* P*
0x283c6c…283e00 Dummy {f00=0x00db, f01=0x0190, f02=»ATCH. l P* P* A2 = RETURN CODE P* A5 = TTAB ADDRESS 4 P* R P* PLKMSRC EQU * f 8 P ST A2,TTB:SA+14,A5 SET RETURN CODE IN SAVE AREA A7 z P EJECT P* P* P* L K M Q D I P* P* QUEUE TASK
0x283e00…283f94 (3, 123) Dummy {f00=0x00db, f01=0x0190, f02=»DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER , P* P P EJECT LRPINT Z P r P* z P* I H P F A R P* > P* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. P* P P P "
0x283f94…284128 Dummy {f00=0x00db, f01=0x0190, f02=»AV DATA 0 P DATA /00C0 P DATA PFTASK & P : P B P J P R P Z & PPFX DATA 1 POWER ON/OFF INDICATOR b $ P P=POWER IS ON, N=POWER IS OFF P & PINIFLG DATA 1 INITIALIZATION FLAG P NZ=INITIALIZATION P *
0x284128…2842bc Dummy {f00=0x00db, f01=0x0190, f02=»IL/AUTO RESTART INTERRUPT P* " P , PIHPFAR EQU * 4 $ P ST P,INTSAV SAVE LAST INTERRUPT J & P RIT /17 RESET INTERNAL INTERRUPT r & P C1S PFX INDICATE POWER ON OR OFF P RF(P) POWON POWER ON P* P* POWER OFF P*
0x2842bc…284450 Dummy {f00=0x00db, f01=0x0190, f02=»12,A15 P STR A13,A15 P STR A14,A15 " P XIF 6 P B P IFT CPU852=0 J $ P MSR 14,A15 SAVE A1-A14 ON STACK ` P XIF P , P ST A15,A15SAV SAVE A15 FOR BETTER TIMES P HLT P EJECT LRPINT P P* P* PO
0x284450…2845e4 Dummy {f00=0x00db, f01=0x0190, f02=» LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 , P LDR* A10,A15 B P LDR* A9,A15 X P XIF l P x P IFT CPU852=0 P MLR 14,A15 RESTORE A9-A14 P MSR 8,A15 P XIF P 4 P LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPA
0x2845e4…284778 Dummy {f00=0x00db, f01=0x0190, f02=»,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP @ P EJECT LRPINT R P j P* r P* POWER FAIL TASK | . P* STARTED AFTER ALL PWF POST PROCESSING P* P . PPFTASK CM PFPOST CLEAR PWF POST PROC FLAG
0x284778…28490c Dummy {f00=0x00db, f01=0x0190, f02=»RPINT P* P* I H R T C P* . 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 8 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. r P* * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT " P RIT /1B RESET INTERRUPT FLAG
0x28490c…284aa0 Dummy {f00=0x00db, f01=0x0190, f02=»SAVE8 SAVE A1-A8 ON STACK P XIF " P* . P IFT CPU852=0 8 " P MSR 8,A15 SAVE A1-A8 ON STACK N P XIF t P* P EJECT LRPINT P* P* P IFT NETFRQ=50 " P LDKL A4,-4 SET 100 MS SWITCH P ST A4,COUNT P X
0x284aa0…284c34 (3, 124) Dummy {f00=0x00dc, f01=0x0190, f02=» AS MJOB n P CF A15,QMJOB P* & P IFT MONCLK=1 0 P IM SECOND F & P RF(P) RTC025 UPDATE MONITOR CLOCK X P XIF P* PSWDISP EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P
0x284c34…284dc8 Dummy {f00=0x00dc, f01=0x0190, f02=» * " P LDKL A4,-9 SET SECOND SWITCH P ST A4,SECOND 0 P LDK A4,4 F P* X 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS b P* ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE)
0x284dc8…284f5c Dummy {f00=0x00dc, f01=0x018e, f02=»VE A NEW DAY j P RB(P) MCLO10 UPDATE MINUTES P LDK A3,24 UPDATE HOURS 8 P RB MCLO20 X P* j PMCLO30 EQU * t ( P IM MCARRY INCREMENT MIDNIGHT CARRY P* P EJECT LRPINT P* P* P IFT MONDAT=1 P*
0x284f5c…2850f0 Dummy {f00=0x00dc, f01=0x0190, f02=» P LDK A3,1 ! P XIF ! P* ! " P IFT MONCLK+MONDAT=2 ! , P IFT CPU852=0 ! H P MLK 3 ! ^ 8 P DATA MONTH,DAY,1 MONTH AND DAY ADDRESS TO A1 AND A2 ! l P XIF ! P* ! P IFT MONCLK+MONDAT=2 ! P IMR A2 INCREMENT DAY ! P LDR* A4,A1 MONT
0x2850f0…285284 Dummy {f00=0x00dc, f01=0x0190, f02=»Y ! f " P SUK A5,2 CHECK IF DAY WAS 30 " P RF(Z) MCLO60 YES " 0 " P SUK A5,1 CHECK IF DAY WAS 31 " J P RB(NZ) SWDISP NO, RETURN " p ( P RF MCLO50 YES, WE HAVE A NEW MONTH " P* " PMCLO40 EQU * " P SUK A6,2 CHECK IF FEBRUARY " P RB(NZ)
0x285284…285418 Dummy {f00=0x00dc, f01=0x0190, f02=»50 EQU * " P STR A3,A2 SET DAY := 1 # P IMR A1 INCREMENT MONTH # 0 * P SUK A4,12 CHECK IF MONTH WAS DECEMBER # P P RB(NZ) SWDISP NO, RETURN # ~ $ P STR A3,A1 SET MONTH TO JANUARY # P IM YEAR HAPPY NEW YEAR!!! # P RB SWDISP RETURN # P* #
0x285418…2855ac Dummy {f00=0x00dc, f01=0x0190, f02=»EMBER OR NOVEMBER # ~ * P RB SWDISP JANUARY, MARCH, MAY OR JULY $ P* $ H PMCLO70 EQU * $ R P SUK A7,7 $ f P RB(N) MCLO50 APRIL OR JUNE $ x P XIF $ P* $ P IFT MONCLK=1 $ P RB SWDISP RETURN $ P XIF $ P* $ P EJECT LRPINT
0x2855ac…285740 Dummy {f00=0x00dc, f01=0x0190, f02=»ATE) $ l PYEAR DATA 0 % PMONTH DATA 0 % PDAY DATA 0 % 4 P XIF % F P* % R PMONCLO EQU * % P IFT MONCLK=1 % p , PMCARRY DATA 0 ACKUMULATED 24 HOUR CARRY % P DATA 0 HOUR % P DATA 0 MINUTE % P DATA 0 SECOND % PSECOND DATA 0 SECO
0x285740…2858d4 (3, 125) Dummy {f00=0x00dc, f01=0x018e, f02=»INH % , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* & < PCLK10 LDR A6,A4 & F P* & ^ PCLK20 LDR* A4,A6 TIMER BLOCK & h P ABL(Z) MEXIT END OF QUEUE & P IM 4,A4 INCREMENT TIMER & P RB(N) CLK10 NOT TIME OUT & P RF(Z) CLK30 TIME OUT &
0x2858d4…285a68 Dummy {f00=0x00dc, f01=0x0190, f02=» P* ' P EJECT LRPINT ' P* ' & P* ' 0 , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE ' : $ P CF A15,SWL48 SWITCH TO LEVEL 48 ' j P INH ' P RB CLK10 ' P* ' PCLK40 EQU * ' P IFT CPU852=1 ' & P CF A15,SAVE8 SAVE A1-A8 ON STACK '
0x285a68…285bfc Dummy {f00=0x00dc, f01=0x0190, f02=»D ENABLE ' v & P ST A1,18,A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( : P LD A1,4,A2 PARAMETER ( ^ $ P ABI 2,A2 GO TO TIME OUT ROUTINE ( | P* ( P* ( PCOUNT DATA 0 100 MS SWITCH ( P* ( P* ( P* T I M Q U E ( P*
0x285bfc…285d90 Dummy {f00=0x00dc, f01=0x4018, f02=» ( P END ) @ ) 8,A15 SET NEW PSW ON STACK ( P LD A2,2,A4 LOAD DISP BLOCK ( : P LD A1,4,A2 PARAMETER ( ^ $ P ABI 2,A2 GO TO TIME OUT ROUTINE ( | P* ( P* ( PCOUNT DATA 0 100 MS SWITCH ( P* ( P* ( P* T I M Q U E ( P*
0x285d90…285f24 Dummy {f00=0x00dc, 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
0x285f24…2860b8 Dummy {f00=0x00dc, f01=0x0190, f02=»TMBQ EQU /1C QUEUE OF ALLOCATED MON. BLOCKS 2 " PCWTTPR EQU /1E TIMER POINTER 3 4 $ PCWTCIO EQU /20 CIO START INSTR. 3 Z PCWTST3 EQU /22 SST INSTR. 3 . PCWTCSD EQU /24 CTRL UNIT START DESCRIPTOR 3 , PCWTCID EQU /2A CTRL UNIT INTERF. DESCR. 3 & PCW
0x2860b8…28624c Dummy {f00=0x00dc, f01=0x0190, f02=»TPBL EQU /5E POOLBL. LONG OUTP. BUFFERS =2 3 0 PCWTPBG EQU /68 POOLBL. GENERAL READ BUFFERS 4 2 PCWTWSS EQU /72 WS STATUS 4 f . PCWTSOB EQU /72+MAXWS+1 SH. OUTP. BUFFERS 4 0 PCWTLOB EQU CWTSOB+SOBUFS LONG OUTP. BUFFERS 4 . PCWTGRB EQU CWTLOB+LOBUFS G
0x28624c…2863e0 Dummy {f00=0x00dc, f01=0x0190, f02=»* 4 P* FLAGS 5 P RES 1 PLC OPERABLE FLAG 5 " P DATA 0 CCA BUSY FLAG (0=FREE) 5 > , P DATA 1 GENERAL READ ALLOWED (0=ALLOWED) 5 d P* 5 P* DATA WORDS 5 P DATA 0 PLC NUMBER (0-3) 5 . P DATA 0 WORK STATION TO ABORT (0=NO ABORT) 5 "
0x2863e0…286574 (3, 126) Opaque[0x194]
0x286574…286708 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1260, f03=0x0000}
0x286574…286708 IdxSect {
0x286574…286708 f00 = 0x0093 // 0x286574 @0x0
0x286574…286708 f01 = 0x0006 // 0x286576 @0x2
0x286574…286708 gno = [ // 0x286578 @0x4
0x286574…286708 [0x00]: C0x0093.0x0.0
0x286574…286708 [0x01]: C0x0093.0x2.0
0x286574…286708 [0x02]: C0x0093.0x3.0
0x286574…286708 ]
0x286574…286708 }
0x286708…28689c Dummy {f00=0x0093, f01=0x0190, f02=» 0 P IDENT TPROC REL 11.0 81-03-05 870105041100 P 8 0 P =1, A4 PARAM. NOT TRANSM. WHEN LKM ACTIV. @ P =1, REL 11.0 81-01-26 t P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM
0x28689c…286a30 Dummy {f00=0x0093, f01=0x018e, f02=»************************************ P* , P* 6 * P* THIS MODULE CONTAINS THE FOLLOWING @ P* TOSS LKM PROCESSORS: n P* P* - TWAIT = WAIT P* P* - TMWAIT = MULTIPLE WAIT P* ( P* - TACTOT = ACTIVATE/REST
0x286a30…286bc4 Dummy {f00=0x0093, f01=0x0190, f02=» P* P ENTRY TWAIT WAIT PROCESSOR * P ENTRY TMWAIT MULTIPLE WAIT PROCESSOR 2 , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR ` P EJECT TPROC P* P* P************* P* EXTERNALS * P************* P* P*
0x286bc4…286d58 Dummy {f00=0x0093, f01=0x0190, f02=»XTRN ACTDIS ACTIVATE TASK AND DISPATCH $ P EXTRN LKMRQE LKM REQUEST ERROR . 2 P EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE V 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN TTB:SA TTAB SAVE AREA P EXTRN DWTST DWT STATUS P EXT
0x286d58…286eec Dummy {f00=0x0093, f01=0x0190, f02=»*********************** ~ P* P* CONDITIONAL ASSEMBLY * P* H . P***************************************** R P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x286eec…287080 Dummy {f00=0x0093, f01=0x0190, f02=»THE WAIT LKM PROCESSOR. P* , P* THIS MODULE IS ENTERED WHEN THE TASK * 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. Z P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 =
0x287080…287214 (3, 127) Dummy {f00=0x0093, f01=0x0190, f02=» & P RF(Z) TP:RQE FILE CODE NOT FOUND P* . P IFT MMUPAG=0 8 * P LDR* A1,A8 RETURN IF EVENT COMPLETED N P XIF | P* P IFT MMUPAG=1 ( P ELR A1,A8 RETURN IF EVENT COMPLETED P XIF P* ( P RF(N) TP:QDI I/O ALREADY COMP
0x287214…2873a8 Dummy {f00=0x0093, f01=0x0190, f02=» TPROC P* P* P********** " P* TACTOT * 4 P********** F P* X P* b 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. l P* 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ( P* WHEN A TASK HAS TO BE ACTI
0x2873a8…28753c Dummy {f00=0x0093, f01=0x0190, f02=» = START ADDRESS AT ACTIVATION, ELSE ZERO P* A5 = TTAB 2 4 P* A7 = IDENTIFICATION FOR TASK TO BE ACTIVATED H P* P* PTACTOT EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR $ P RF(Z) TP:RQE TASK NOT IN SYSTEM
0x28753c…2876d0 Dummy {f00=0x0093, f01=0x0190, f02=»METER =1 v P LDR A5,A2 P LDR A2,A4 " 0 P RF(Z) TP:QDI RESTART: QUEUE FOR DISPATCHING 4 P LDR A4,A7 A4 PARAMETER =1 h * P ABL ACTDIS ACTIVATE TASK AND DISPATCH P* P EJECT TPROC P* P* P********** P* TMWAIT *
0x2876d0…287864 Dummy {f00=0x0093, f01=0x0190, f02=»KM HANDLER t & P* WITH THE FOLLOWING PARAMETERS: P* < P* A5 = TTAB ADDRESS F P* A7 = ECBBLK ADDRESS d P* 6 P* WHEN ONE OF THE SPECIFIED EVENTS IS COMPLETED, 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO & P* WI
0x287864…2879f8 Dummy {f00=0x0093, f01=0x0190, f02=»AND NO RETURN VIA TENDIO). p P* " ( P* NOTICE THAT ALL EVENTS MUST HAVE , ( P* BEEN ISSUED IN THE NO WAIT MODE. X P* P* P EJECT TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY P LDK A3,0 P* P I
0x2879f8…287b8c Dummy {f00=0x0093, f01=0x0190, f02=» IN ECBBLK v P XIF P* ( P RF(NP) TP:RQE REQUEST ERROR IF <= 0 ( P* T PTMW:10 EQU * ^ 2 P ADK A7,2 POINT TO NEXT ECB ADDRESS IN ECBBLK r P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS & P LDR* A2,A8 GET FIRST WORD O
0x287b8c…287d20 Dummy {f00=0x0093, f01=0x0190, f02=» P* ( P RF(N) TMW:30 I/O ALREADY COMPLETED 8 P CF A15,FNDDWT NO, SEARCH DWT ADDRESS FROM FILE CODE > P ADK A6,0 SET CR z P RF(Z) TP:RQE NOT FOUND P* P EJECT TPROC P* P* " P LD A2,DWTST,A6 GET DWT STATUS
0x287d20…287eb4 (3, 128) Dummy {f00=0x0093, f01=0x0190, f02=»T/ACTIVATE INDICATOR x , P RF(NZ) TP:RQE REQUEST ISSUED WITH WAIT P ORK A6,1 SET BIT 15 L 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR h . P RF(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS P LDR A3,A6
0x287eb4…288048 Dummy {f00=0x0093, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x288048…2881dc Dummy {f00=0x0093, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x2881dc…288370 Dummy {f00=0x0093, 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
0x288370…288504 Dummy {f00=0x0093, f01=0x0190, f02=» RESTORE NO OF EXTENTS i P RB MSX20 j P* j 0 PMSX99 EQU * j : P RTN A14 j N P EJECT j ^ 4 P*********************************************** j l P* j P* GETMON j P* ====== j P* j & P* SEARCH FOR MONIT
0x288504…288698 Dummy {f00=0x0093, f01=0x0190, f02=»************** j n P* k P* k PGETMON EQU * k * ( P LD A1,SCTANO GET APPLICATION NUMBER k > P ST A1,MONNO+STKEND SAVE k j 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC k 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER k 2 P SLL A1,8 FORM MONIT
0x288698…28882c Dummy {f00=0x0093, f01=0x0190, f02=»GTMON2 EQU * k 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) l ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? l H P RF(E) GTMON4 YES! l t P* l 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC l P RB GTMON2 l P* l PGTMON4 EQU * l $ P LD
0x28882c…2889c0 Dummy {f00=0x0093, f01=0x0190, f02=»,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) l " P ST A2,4,A1 AND SAVE IN MXSTAB m 4 P RTN A14 RETURN m Z P EJECT m r PGETNBR EQU * m $ P CF A14,GETVLB READ VOLUME LABEL m PGTNBR0 EQU * m P CF A14,RDSEC READ SECTOR m ( P LDK A7,QBLFAC VTOC BL
0x2889c0…288b54 (3, 129) Opaque[0x194]
0x288b54…288ce8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x288b54…288ce8 IdxSect {
0x288b54…288ce8 f00 = 0x0091 // 0x288b54 @0x0
0x288b54…288ce8 f01 = 0x000e // 0x288b56 @0x2
0x288b54…288ce8 gno = [ // 0x288b58 @0x4
0x288b54…288ce8 [0x00]: C0x0091.0x0.0
0x288b54…288ce8 [0x01]: C0x0091.0x2.0
0x288b54…288ce8 [0x02]: C0x0091.0x3.0
0x288b54…288ce8 [0x03]: C0x0092.0x0.0
0x288b54…288ce8 [0x04]: C0x0092.0x1.0
0x288b54…288ce8 [0x05]: C0x00c9.0x3.0
0x288b54…288ce8 [0x06]: C0x00ca.0x1.0
0x288b54…288ce8 ]
0x288b54…288ce8 }
0x288ce8…288e7c Dummy {f00=0x0091, f01=0x0190, f02=» 0 P IDENT MSUBS REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x288e7c…289010 Dummy {f00=0x0091, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR TASK FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x289010…2891a4 Dummy {f00=0x0091, f01=0x0190, f02=» SET A MONITOR BLOCK FREE 4 P* -FNDDWT FIND DWT ADDRESS IN TTAB OR CDTAB " , P* -FNDDWD FIND DWT ADDRESS IN CDTAB Z * P* -FNDTID FIND TASK IDENTIFICATION P* -PFINIT RESTART DEVICE $ P* -SWL48 SWITCH TO LEVEL 48 $ P*
0x2891a4…289338 Dummy {f00=0x0091, f01=0x0190, f02=»* P* P*********** P* ENTRIES * ( P*********** < P* P P* Z " P ENTRY SAVE8 SAVE 8 REGISTERS d P ENTRY QTJOB QUEUE TASK $ P ENTRY QMJOB QUEUE MONITOR TASK & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOT
0x289338…2894cc Dummy {f00=0x0091, f01=0x0190, f02=»NDDWT FIND DWT IN TTAB OR CDTAB $ P ENTRY FNDDWD FIND DWT IN CDTAB ( , P ENTRY FNDTID FIND TASK INDENTIFICATION P P ENTRY PFINIT RESTART DEVICE $ P ENTRY SWL48 SWITCH TO LEVEL 48 $ P ENTRY SWLXY SWITCH TO LEVEL XY , P ENTRY ILLINT ILLEGA
0x2894cc…289660 Dummy {f00=0x0091, f01=0x0190, f02=» * P ENTRY RELPA2 RELEASE PAGE (2ND ENTRY) " P ENTRY IHRET8 RESTORE FROM A8 2 P ENTRY IHRET2 A2 X " P ENTRY IHRET1 A1 p 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS P EJECT MSUBS P* P* P*************
0x289660…2897f4 (3, 130) Dummy {f00=0x0091, f01=0x0190, f02=» FREQUE POINTER TO FIRST FREE MONITOR BLOCK P EXTRN TTABLD LOAD TASK TTAB 4 ( P EXTRN PQEMTY PAGE QUEUE EMPTY FLAG X " P EXTRN PAGQUE FREE PAGE QUEUE $ P EXTRN SEG:PB PAGE BLOCK ADDRESS & P EXTRN PAG:QB QUEUE LINK BACKWARD 4 P EXTRN LKMER
0x2897f4…289988 Dummy {f00=0x0091, f01=0x0190, f02=» TTB:ST TASK STATUS AND PRIORITY LEVEL & P EXTRN TTB:ID TASK IDENTIFICATION . P EXTRN TTB:SA SAVE AREA X * P EXTRN TTB:PP POINTER TO PENDING QUEUE x $ P EXTRN TTB:TD TASK DEVICE TABLE $ P EXTRN SCTTCT TASK CONTROL TABLE & P EXTRN SCTCDT COMM
0x289988…289b1c Dummy {f00=0x0091, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x289b1c…289cb0 Dummy {f00=0x0091, f01=0x0190, f02=» PCPU852 EQU 0 P* P* & . P* A PROGRAM VERSION USING TOSS DISC PAGING 0 * P* IS OBTAINED BY SETTING DSKPAG EQU 1. b P* PDSKPAG EQU 1 P* P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x289cb0…289e44 Dummy {f00=0x0091, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x289e44…289fd8 Dummy {f00=0x0091, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x289fd8…28a16c Dummy {f00=0x0091, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x28a16c…28a300 Dummy {f00=0x0091, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x28a300…28a494 (3, 131) Dummy {f00=0x0091, f01=0x0190, f02=»5,A1 P* P IFT CPU852=1 P ABL IHRET3 , P XIF @ P* L P IFT CPU852=0 V * P MLR 3,A15 RESTORE A1-A3 FROM STACK... l P RTN A15 ...AND RETURN P XIF P* P EJECT MSUBS P* P* P* Q M J O B
0x28a494…28a628 Dummy {f00=0x0091, f01=0x0190, f02=» ~ P* A2 = DISPATCH ADDRESS P* A3 = PARAMETER * P* A4 = PARAMETER D P* ^ > P* A5 IS SET TO TTAB ADDRESS OF MONITOR TASK '#M' AND THE h B P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE TASK. P* P* PQMJO
0x28a628…28a7bc Dummy {f00=0x0091, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P LDKL A5,TTMJOB TTAB ADDRESS < P RF ACT01 ` P* r P EJECT MSUBS | P* P* P* A C T O T , A C T O T P P* & P* SUBROUTINE TO ACTIVATE A TASK. P* P
0x28a7bc…28a950 Dummy {f00=0x0091, f01=0x0190, f02=» A4 = PARAMETER 2 P* A5 = TTAB ADDRESS P* 8 6 P* - IF REQUESTED TASK IS NOT ACTIVE THE TASK IS B : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. | < P* - IF TASK IS ACTIVE, THE REQUEST IS PUT IN A PENDING P* QUEUE.
0x28a950…28aae4 Dummy {f00=0x0091, f01=0x0190, f02=» R P* P* PACTOTP EQU * P IFT CPU852=1 0 & P CF A15,SAVE8 SAVE A1-A8 ON STACK F P XIF p P* | P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDK A6,1 INDICATE LIFO P RF
0x28aae4…28ac78 Dummy {f00=0x0091, f01=0x018e, f02=»STACK t P XIF P* P IFT CPU852=0 $ P INH : " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x PACT01 LDK A6,0 INDICATE FIFO P* PACT03 EQU * , P LD A7,TTB:SA,A5 (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PR
0x28ac78…28ae0c Dummy {f00=0x0091, f01=0x0190, f02=» p & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER " P ST A4,TTB:SA+8,A5 PARAMETER 2 2 P LD A4,TTB:ID,A5 SET TASK ID X * P ST A4,TTB:SA+4,A5 TO A2 IN SAVE AREA | P XIF P* P IFT CPU852=0 P LD A2,TTB:ID,A5 TASK ID 6 P MS 4,TTB:SA+2,A5
0x28ae0c…28afa0 Dummy {f00=0x0091, f01=0x0190, f02=»TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT P XIF 6 P* B P CF A15,QTJOB QUEUE THE TASK L P* p PACT010 EQU * z P IFT CPU852=1 ( P RF IHRET8 RESTORE A1-A8 AND RETURN P XIF P* P IFT CPU852=0 * P MLR 8,A15 R
0x28afa0…28b134 (3, 132) Dummy {f00=0x0092, f01=0x0190, f02=» PENDING QUEUE ~ P* & PACT020 LDR A7,A4 SAVE PARAMETER 2 $ P CF A15,GETBLK GET A FREE BLOCK J P LDR A1,A7 PARAMETER 2 r P LDR A2,A4 P CF A15,GETBLK P ADKL A5,TTB:PP P* " PACT030 LDR A3,A5 SAVE ADDRESS ( P LDR* A5
0x28b134…28b2c8 Dummy {f00=0x0092, f01=0x0190, f02=»T030 NOT END OF QUEUE P* PACT040 EQU * ( " P STR A4,A3 SET BLOCK IN QUEUE < P STR A5,A4 b P RB ACT010 t P* P EJECT MSUBS P* P* P* E X I T P* 6 P* SUBROUTINE TO SET A TASK FREE AND QUEUE FIRS
0x28b2c8…28b45c Dummy {f00=0x0092, f01=0x0190, f02=» A7 ARE DESTROYED P* P* $ PEXIT EQU * . ( P CM TTB:SA,A5 RESET DISPATCH ADDRESS @ , P LD A4,TTB:PP,A5 PENDING REQUEST POINTER l $ P RF(Z) IHRTN NO PENDING REQUEST P LDR* A3,A4 QUEUE THREAD 0 P ST A3,TTB:PP,A5 AND SAVE IN PENDING
0x28b45c…28b5f0 Dummy {f00=0x0092, f01=0x018e, f02=»EBLK P LDR A4,A7 PARAMETER 2 P RB ACTOT ACTIVATE TASK * P* J P EJECT MSUBS T P* j P* t P* G E T B L K ~ P* 4 P* SUBROUTINE TO GET A FREE BLOCK FROM MONITOR 8 P* BLOCK POOL. REGISTERS A3-A1 ARE STORED IN FO
0x28b5f0…28b784 Dummy {f00=0x0092, f01=0x0190, f02=» P* PGETBLK EQU * P INH " P STR A5,A15 SAVE A5 . , P LD A4,FREQUE FIRST BLOCK IN FREE QUEUE J P RF(NZ) GBL010 z P LDK A1,/B HALT PARAMETER , P CF A15,HALT HALT IF NO MORE FREE BLOCKS P* PGBL010 LDR* A5,A4 . P S
0x28b784…28b918 Dummy {f00=0x0092, f01=0x0190, f02=»,A15 RESTORE A5 P* P IFT CPU852=1 " P RF IHRTN 8 P XIF J P* V P IFT CPU852=0 ` P RTN A15 v P XIF P* P EJECT MSUBS P* P* P* F R E B L K P* : P* SUBROUTINE TO GET PARAMETERS
0x28b918…28baac Dummy {f00=0x0092, f01=0x0190, f02=» z P* P* EXIT PARAMETERS: P* . & P* A3 = FIRST PARAMETER IN BLOCK 8 $ P* A2 = SECOND " " b $ P* A1 = THIRD " " P* P* PFREBLK EQU * P INH P LDR* A3,A4 UPDATE A3 P LD
0x28baac…28bc40 Dummy {f00=0x0092, f01=0x0190, f02=» P RF IHRTN P XIF P* & P IFT CPU852=0 0 P RTN A15 F P XIF V P* b P EJECT MSUBS l P* P* P* F N D D W T P* 2 P* SUBROUTINE TO FIND A DWT IN TTAB OR CDTAB. P* P* ENTRY PARAME
0x28bc40…28bdd4 (3, 133) Dummy {f00=0x0092, f01=0x0190, f02=» = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* B P* L P* F N D D W D V P* n * P* SUBROUTINE TO FIND A DWT IN CDTAB. x P* P* ENTRY PARAMETERS: P* P* A2 = FILE CODE P* $ P* EXIT PAR
0x28bdd4…28bf68 Dummy {f00=0x0092, f01=0x0190, f02=»D FILE CODE FROM ECB P XIF P* ( P IFT MMUPAG=0 2 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB H P XIF t P* P STR A1,A15 SAVE A1 P LDKL A6,TTB:TD+2 , P ADR A6,A5 ADDRESS TO TASK DEVICE TABLE P LD A1,-2,A6 TABLE LENGT
0x28bf68…28c0fc Dummy {f00=0x0092, f01=0x018e, f02=» FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT L P* h P EJECT MSUBS r P* $ P* SEARCH IN COMMON DEVICE TABLE P* PFNDDWD EQU * P STR A1,A15 SAVE A1 P* & PFND110 LD
0x28c0fc…28c290 Dummy {f00=0x0092, f01=0x018e, f02=» & P RF(N) FND130 FILE CODE NOT FOUND ! P CC A2,1,A6 ! . " P RF(E) FND200 FILE CODE FOUND ! B ( P ADK A6,4 ADDRESS TO NEXT FILE CODE ! h & P RB FND120 TRY NEXT ENTRY IN CDTAB ! P* ! PFND130 LDK A6,0 ! P RF IHRET1 ! P* ! PFND200 EQU *
0x28c290…28c424 Dummy {f00=0x0092, f01=0x0190, f02=» P* " P* F N D T I D " P* " & B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. " 0 P* " v P* ENTRY PARAMETER: " P* " P* A7 = TASK IDENTIFICATION " P* " P* EXIT PARAMETER: " P* " P* A2 = TTAB
0x28c424…28c5b8 Dummy {f00=0x0092, f01=0x0190, f02=» TCTAB LENGTH " P AD A1,SCTTCT # P* # , PFTI010 SUK A1,2 # 6 P CW A1,SCTTCT # N $ P RF(E) FTI030 ALL TTABS EXAMINED # d P LDR* A2,A1 TTAB ADDRESS # , P CW A7,TTB:ID,A2 COMPARE IDENTIFICATIONS # P RB(NE) FTI010 NO MATCH # P RF IHRET1
0x28c5b8…28c74c Dummy {f00=0x0092, f01=0x0190, f02=» RESTORE REGISTERS AND RETURN WITHOUT # P* ENABLE INTERRUPTS. $ . P* $ L P* $ V P IFT CPU852=1 $ ` PIHRET8 LDR* A8,A15 $ v P LDR* A7,A15 $ P LDR* A6,A15 $ P LDR* A5,A15 $ P LDR* A4,A15 $ P* $ PIHRET3 LDR* A3,A15 $ P* $
0x28c74c…28c8e0 Dummy {f00=0x0092, f01=0x0190, f02=» ABR* A15 AND RETURN $ P XIF % P* % ( P IFT CPU852=0 % 2 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... % H P RTN A15 ...AND RETURN % | P* % 0 PIHRET2 MLR 2,A15 RESTORE A1-A2 FROM STACK... % P RTN A15 ...AND RETURN % P* % 0 PIHRET1 L
0x28c8e0…28ca74 (3, 134) Dummy {f00=0x00c9, f01=0x0190, f02=» % P* & P* P F I N I T & P* & * & P* SUBROUTINE TO RESTART DEVICES. & 4 P* & ^ @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALLED. & h @ P* REGISTERS A1-A8 ARE AVAILABLE FOR THE RESTART ROUTINES. & P* & P* & PPFIN
0x28ca74…28cc08 Dummy {f00=0x00c9, f01=0x0190, f02=»ED & v P STR A1,A15 SAVE A1 ' P INH ' & * P CFI A15,PFTAB,A1 CALL RESTART MODULE ' 2 P LDR* A1,A15 RESTORE A1 ' ` P ADK A1,2 NEXT DEVICE ' P RB PFI100 ' P* ' * PPFI110 RTN A15 RETURN WHEN ALL STARTED ' P* ' P EJECT MSUBS ' P
0x28cc08…28cd9c Dummy {f00=0x00c9, f01=0x018e, f02=»TR A1,A15 SAVE A1 ' P* ( PSWL481 EQU * ( $ $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ( 8 P* ( ` PSWL482 EQU * ( j & P ST A1,4,A15 SAVE IT ON A15 STACK ( ~ P LDR* A1,A15 RESTORE A1 ( P RTN A15 ( P* ( P EJECT MSUBS ( P* ( P* (
0x28cd9c…28cf30 Dummy {f00=0x00c9, f01=0x0190, f02=» 0 P* LEVEL := XY " " " " " XY < 48 ) P* ) 8 > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ) B P* ) P* ) PSWLXY EQU * ) P STR A1,A15 SAVE A1 ) " P LC A1,24,A15 LEVEL FROM STACK ) P ANK A1,/FC ) P SUK A
0x28cf30…28d0c4 Dummy {f00=0x00c9, f01=0x0190, f02=»BS ) P* * P* * & P* INTERRUPT SAVE AND HALT MODULE * P* * H P* * R PINTSAV DATA 0 * PSAVA15 DATA 0 * r P* * " PILLINT LDK A1,5 HALT PARAMETER * P CF A15,HALT * P* * PHALT EQU * * P IFT CPU852=1 * & P CF A15,SA
0x28d0c4…28d258 Dummy {f00=0x00c9, f01=0x0190, f02=» A13,A15 * P STR A14,A15 + P XIF + $ P* + 0 P IFT CPU852=0 + : $ P MSR 14,A15 SAVE A1-A14 ON STACK + P P XIF + x P* + P ST A15,SAVA15 + ( P OTR A1,0,SOP INDICATE TYPE OF HALT + P HLT + P* + P EJECT MSUBS + P* + P*
0x28d258…28d3ec Dummy {f00=0x00c9, f01=0x0190, f02=»: + | P* , 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) , " P* A5 = TTAB ADDRESS (RELPA2) , N P* , t P* EXIT PARAMETER: , ~ P* , P* A4 IS DESTROYED , P* , P* , P IFT DSKPAG=1 , PRELPA2 EQU * , 6 P CM TTB:SB
0x28d3ec…28d580 Dummy {f00=0x00c9, f01=0x018e, f02=» PAGE BLOCK ADDRESS , P* - PREL:10 EQU * - & " P LDKL A4,PAGQUE PAGQUE ADDRESS - : P ST A4,PAG:QB,A3 - ` 0 P LDR* A4,A4 ADDRESS OF FIRST BLOCK IN PAGQUE - x " P STR A4,A3 UPDATE QUEUE LINKS - P ST A3,PAGQUE - P ST A3,PAG:QB,A4 - 4 P LD A4,P
0x28d580…28d714 (3, 135) Dummy {f00=0x00ca, f01=0x018e, f02=» - x P* . , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY . P LDR A4,A5 SAVE A5 . B ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS . $ P CF A15,QTJOB RESTART LOAD TASK . P LDR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x28d714…28d8a8 Dummy {f00=0x00ca, f01=0x40b2, f02=» 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. / PRELPA2 EQU * / : & P ABL LKMERR INDICATE SYSGEN ERROR / N P XIF / x P* / P* / P* / P END / @ / DR A5,A4 RESTORE A5 . P* . PREL:20 EQU * . P IFT CPU852=1 . P RB IH
0x28d8a8…28da3c Dummy {f00=0x00ca, f01=0x2008, f02=» 0 5 STACK " ~ P LDR* A1,A15 RESTORE A1 # P RTN A15 RETURN TO CALLER # 8 P* # Z P END # d@ # pN WHEN ALL STARTED " ` P EJECT " P* " P* " P* S W L 4 8 " P* " : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. "
0x28da3c…28dbd0 Dummy {f00=0x00ca, f01=0x018e, f02=» ** 2 P** WORK REGISTERS: A2 ** 4 2 P** ** j 2 P** SUBROUTINES: MOVING ** 2 P** **
0x28dbd0…28dd64 Dummy {f00=0x00ca, f01=0x0190, f02=» ` P RF(Z) CALL:10 NO! & P LD A2,PDDIVL,A10 YES! GET LENGTH " P SUR A2,A3 L " P RF(NN) CALL:20 ENOUGH SPACE? ^ P IFT MMUPAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P XIF P I
0x28dd64…28def8 Dummy {f00=0x00ca, f01=0x018e, f02=»G+STKCOM UPDATE PHYSICAL PAGE NUMBER P XIF , P CM PDDIV+STKEND RESET FLAG 8 PCALL:20 EQU * $ P ST A2,PDDIVL,A10 UPDATE PDDIVL r PCALL:10 EQU * P CALL MOVING P RTN A14 P EJECT P 4 P** G E T W B
0x28def8…28e08c Dummy {f00=0x00ca, f01=0x0190, f02=» ^ 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** 4 P** MENT IN T:A ** @ 4 P** ** x 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 4 P** BIT=BIT NUMBER SAT I
0x28e08c…28e220 Dummy {f00=0x00ca, f01=0x0190, f02=»** A11=W.B.-ADDRESS ** 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** 8 4 P*********************************************** p P PGETWB EQU * $ P LD A4,BIT+STKEND GET BIT NUMBER $ P SLL A4,2 ADJUST FOR ADD
0x28e220…28e3b4 (3, 136) Opaque[0x194]
0x28e3b4…28e548 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x28e3b4…28e548 IdxSect {
0x28e3b4…28e548 f00 = 0x0092 // 0x28e3b4 @0x0
0x28e3b4…28e548 f01 = 0x0004 // 0x28e3b6 @0x2
0x28e3b4…28e548 gno = [ // 0x28e3b8 @0x4
0x28e3b4…28e548 [0x00]: C0x0092.0x2.0
0x28e3b4…28e548 [0x01]: C0x0092.0x3.0
0x28e3b4…28e548 ]
0x28e3b4…28e548 }
0x28e548…28e6dc Dummy {f00=0x0092, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 11.0 81-01-26 870105041100 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x28e6dc…28e870 Dummy {f00=0x0092, f01=0x0190, f02=»S n P ENTRY TTB:AP ACB ADDRESS P ENTRY TTMJOB TABLE ENTRY , ( P ENTRY TTB:QL DISPATCHER QUEUE LINK N & P ENTRY TTB:ID TASK IDENTIFICATION z P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS
0x28e870…28ea04 Dummy {f00=0x0092, f01=0x018e, f02=»* . P***************************************** P* < P* CONDITIONAL ASSEMBLY F P* d . P***************************************** n P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x28ea04…28eb98 Dummy {f00=0x0092, f01=0x0190, f02=» l P* * PTTB:MT EQU -40 MMU TABLE DISPLACEMENT P IFT MMUPAG=1 @ " P DATA /0000,/0400,/0800,/0C00 V " P DATA /1000,/1400,/1800,/1C00 | " P DATA /2000,/2400,/2800,/2C00 " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:
0x28eb98…28ed2c Dummy {f00=0x0092, f01=0x0190, f02=»* 4 PTTB:SB EQU -4 SEGMENT BLOCK ADDRESS DISPLACEMENT P DATA 0 B P* R : PTTB:AP EQU -2 APPLICATION CONTROL BLOCK ADDRESS DISPL. P DATA 0 P* P EJECT TTMJOB P* P* PTTMJOB EQU * TTMJOB ENTRY . PTTB:QL
0x28ed2c…28eec0 Dummy {f00=0x0092, f01=0x0190, f02=»* $ PTTB:ST EQU *-TTMJOB TASK STATUS P DATA 49 2 P* B ( PTTB:PP EQU *-TTMJOB PENDING POINTER L P DATA 0 x P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB P* P EJECT TTMJOB P
0x28eec0…28f054 (3, 137) Dummy {f00=0x0092, f01=0x4090, f02=»R A1-A14 j P DATA 0,0,0,0,0,0,0 P* , ( PTTB:TD EQU *-TTMJOB TERMINAL DEVICES 6 P* b P* l P* v P END @
0x28f054…28f1e8 Dummy {f00=0x0092, 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,
0x28f1e8…28f37c Dummy {f00=0x0092, f01=0x0190, f02=»************************* P* " P* CONDITIONAL ASSEMBLY , P* J . P***************************************** T P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x28f37c…28f510 Dummy {f00=0x0092, f01=0x0190, f02=» PCPU852 EQU 1 P* * & . ** A PROGRAM VERSION USING TOSS DISC PAGING 0 * &* IS OBTAINED BY SETTING DSKPAG EQU 1. b * PDSKPAG EQU 0 * P* " PSOP EQU /2E SOP DEVICE ADDRESS P* P EJECT MSUBS P
0x28f510…28f6a4 Dummy {f00=0x0092, f01=0x0190, f02=» p P* P* PSAVE8 EQU * P INH INHIBIT INTERRUPTS 0 P STR A3,A15 P P STR A4,A15 d P STR A5,A15 x P STR A6,A15 P STR A7,A15 P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) , P ST A3,SAVE81 AN
0x28f6a4…28f838 Dummy {f00=0x0092, f01=0x018e, f02=»H BACK t PSAVE81 EQU *-2 P* $ P EJECT MSUBS . P* D P* N P* Q T J O B X P* n 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. x P* P* ENTRY PARAMETER: P* 0 P* A5 = TTAB ADDRESS OF TASK TO BE QUEUED
0x28f838…28f9cc Dummy {f00=0x0092, f01=0x018e, f02=» X P* PUT LAST IN QUEUE. P* & P* 0 PQTJOB EQU * : P INH N P* Z P IFT CPU852=1 d $ P STR A1,A15 SAVE A1-A3 ON STACK z P STR A2,A15 P STR A3,A15 P XIF P* P IFT CPU852=0 " P MSR 3,A15 SAVE A1
0x28f9cc…28fb60 Dummy {f00=0x0092, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x28fb60…28fcf4 (3, 138) Opaque[0x194]
0x28fcf4…28fe88 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a50, f03=0x0000}
0x28fcf4…28fe88 IdxSect {
0x28fcf4…28fe88 f00 = 0x00d2 // 0x28fcf4 @0x0
0x28fcf4…28fe88 f01 = 0x0024 // 0x28fcf6 @0x2
0x28fcf4…28fe88 gno = [ // 0x28fcf8 @0x4
0x28fcf4…28fe88 [0x00]: C0x00d2.0x2.0
0x28fcf4…28fe88 [0x01]: C0x00d2.0x3.0
0x28fcf4…28fe88 [0x02]: C0x00d3.0x0.0
0x28fcf4…28fe88 [0x03]: C0x00d3.0x1.0
0x28fcf4…28fe88 [0x04]: C0x00d3.0x2.0
0x28fcf4…28fe88 [0x05]: C0x00d3.0x3.0
0x28fcf4…28fe88 [0x06]: C0x00d4.0x0.0
0x28fcf4…28fe88 [0x07]: C0x00d4.0x1.0
0x28fcf4…28fe88 [0x08]: C0x00d4.0x2.0
0x28fcf4…28fe88 [0x09]: C0x00d5.0x3.0
0x28fcf4…28fe88 [0x0a]: C0x00d6.0x0.0
0x28fcf4…28fe88 [0x0b]: C0x00d6.0x1.0
0x28fcf4…28fe88 [0x0c]: C0x00d6.0x2.0
0x28fcf4…28fe88 [0x0d]: C0x00d8.0x1.0
0x28fcf4…28fe88 [0x0e]: C0x00d8.0x2.0
0x28fcf4…28fe88 [0x0f]: C0x00d8.0x3.0
0x28fcf4…28fe88 [0x10]: C0x00d9.0x0.0
0x28fcf4…28fe88 [0x11]: C0x00d9.0x1.0
0x28fcf4…28fe88 ]
0x28fcf4…28fe88 }
0x28fe88…29001c Dummy {f00=0x00d2, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 11.0 81-04-13 870105041100 P : ( P =4, CPU857 DEFINITION NOT CORRECT B P =4, REL 11.0 81-03-18 n . P =3, ORDERS IN ORDTAB CHANGED TO FIT TND P =3, REL 11.0 81-02-25 & P =2, CORRECTION OF UPDATE =1 =1
0x29001c…2901b0 Dummy {f00=0x00d2, f01=0x0190, f02=»********************************************** P* 6 $ P* PHILIPS TERMINAL SYSTEM PTS @ P* h ( P* TOSSIO = TOSS I/O LKM PROCESSOR r P* P* P* 6 P************************************************** P* P* ,
0x2901b0…290344 Dummy {f00=0x00d2, f01=0x018e, f02=»ALIZE I/O ~ P* P* -TENDIO END I/O P* 8 P* -ATTACH ATTACH DEVICE B P* d P* -DETACH DETACH DEVICE n P* 8 P* -DC:MIN DATA COMMUNICATION MOVE ROUTINE (READ) P* 8 P* -DC:MOT DATA COMMUNICATION MOVE ROU
0x290344…2904d8 Dummy {f00=0x00d2, f01=0x0190, f02=» 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AREAS. D P* r P EJECT TOSSIO | P* P* P*********** P* ENTRIES * P*********** P* P* P ENTRY TIO I/O P
0x2904d8…29066c Dummy {f00=0x00d2, f01=0x0190, f02=»D I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE B 2 P ENTRY DC:MIN MOVE ROUTINE FOR DATACOM, INPUT z 2 P ENTRY DC:MOT MOVE ROUTINE FOR DATACOM, OUTPUT 6 P ENTRY TIOMXI CONVERT LOGICAL ADDR
0x29066c…290800 Dummy {f00=0x00d2, f01=0x018e, f02=»NTRY ECBBA BUFFER ADDRESS " P ENTRY ECBRL REQUESTED LENGTH " " P ENTRY ECBEL EFFECTIVE LENGTH H P ENTRY ECBRC RETURN CODE n P ENTRY ECBCW CONTROL WORD P ENTRY ECBCW1 CONTROL WORD 1 P ENTRY ECBCW2 CONTROL WORD 2 2 P ENTRY DC:DIX DE
0x290800…290994 (3, 139) Dummy {f00=0x00d2, f01=0x0190, f02=» ` 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW < 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION l $ P ENTRY DK:DIX DEVICE INDEX DISC $ P ENTRY BUFLEN MMU BUFFER LENGTH P* P EJECT
0x290994…290b28 Dummy {f00=0x00d2, f01=0x0190, f02=»ADDRESS x 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) F " P ENTRY RECADR RECOVERY ADDRESS ~ P ENTRY ECHADR ECHO ADDRESS $ P ENTRY DWTCHP CHANNEL PARAMETERS P ENTRY DWTST STATUS
0x290b28…290cbc Dummy {f00=0x00d2, f01=0x0190, f02=» ( P ENTRY DWTOCH LAST OUTPUT CHARACTER & P ENTRY DWTADR DRIVER ADDRESS BLOCK 0 P ENTRY DWTTAB TTAB ADDRESS Z * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR | P ENTRY DWTTQ TERMINAL QUEUE $ P ENTRY DWTOTQ OUTPUT QUEUE LINK " P ENTRY DWTUEC USER
0x290cbc…290e50 Dummy {f00=0x00d2, f01=0x0190, f02=»A4 SAVE AREA A4 P ENTRY DWTA5 SAVE AREA A5 & P ENTRY DWTSB1 STACK BASE 1 IN DWT : & P ENTRY DWTSB2 STACK BASE 2 IN DWT d P ENTRY DWTTP TIMER POINTER " P ENTRY DWTECH ECHO DEVICE DWT P ENTRY DWTSQ START OF QUEUE , P ENTRY DWTORD
0x290e50…290fe4 Dummy {f00=0x00d2, f01=0x018e, f02=»AREA A7 ~ P ENTRY DWTA8 SAVE AREA A8 & P ENTRY DWTCP2 CHANNEL PARAMETERS 2 2 * P ENTRY DWTLD1 LINE DRIVER DEPENDENT 1 * P ENTRY DWTLD2 LINE DRIVER DEPENDENT 2 ( P ENTRY DWTDEV TERMINAL DEVICE STATUS * P ENTRY DWTTBU PLC TEST BUFFER ADDRES
0x290fe4…291178 Dummy {f00=0x00d2, f01=0x0190, f02=» P* P************* P* EXTERNALS * $ P************* : P* P P* Z " P EXTRN SAVE8 SAVE 8 REGISTERS d 0 P EXTRN IHRET8 RESTORE 8 REGISTERS AND RETURN 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS & P EXTRN ACTOTP ACTI
0x291178…29130c Dummy {f00=0x00d2, f01=0x0190, f02=» EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO * P EXTRN LKMQDI QUEUE TASK AND DISPATCH 6 * P EXTRN LKMERR HALT SYSTEM, FATAL ERROR d , P EXTRN GETBLK PUT BLOCK IN PENDING QUEUE 2 P EXTRN FREBLK RELEASE BLOCK FROM PENDING QUEUE P EXTRN SETIMP SE
0x29130c…2914a0 Dummy {f00=0x00d2, f01=0x0190, f02=» EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:SA SAVE AREA * P EXTRN TTB:MT MMUTAB J P EXTRN HALT =1 f P* ~ P EJECT TOSSIO P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY
0x2914a0…291634 (3, 140) Dummy {f00=0x00d3, 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* 0 P* A PROGRAM VERSION
0x291634…2917c8 Dummy {f00=0x00d3, f01=0x018e, f02=»* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU * P* IS OBTAINED BY SETTING CPU857 EQU 1. B P* p PCPU857 EQU 1 =4 z P* PX:C EQU 0 PTC8000 EQU X:C P EJECT TOSSIO P* P* P*******************
0x2917c8…29195c Dummy {f00=0x00d3, f01=0x0190, f02=» P* P* P********************* P* DWT DISPLACEMENTS * 6 P********************* T P* r 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART | P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC
0x29195c…291af0 Dummy {f00=0x00d3, f01=0x0190, f02=»DWTOCH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK , PDWTTAB EQU /0A TTAB ADDRESS X * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR | PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU
0x291af0…291c84 Dummy {f00=0x00d3, f01=0x018e, f02=»MUPAG=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF H P* T P EJECT TOSSIO ^ P* v , P* DWT DISPLACEMENTS: DRIVER DEFINED PART P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA
0x291c84…291e18 Dummy {f00=0x00d3, f01=0x0190, f02=» . PDWTSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT 6 & PDWTTP EQU DWTDRD+/10 TIMER POINTER h 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER & PDWTA7 EQU DWTDRD+/10 SAVE AREA A7 & PDWTA8 EQU DWTDRD+/12
0x291e18…291fac Dummy {f00=0x00d3, f01=0x0190, f02=» DWTDRD+/16 LINE DRIVER DEPENDENT 1 2 PDWTLD2 EQU DWTDRD+/18 LINE DRIVER DEPENDENT 2 , 0 PDWTDEV EQU DWTDRD+/1A TERMINAL DEVICE STATUS b P 2 PDWTTBU EQU DWTDRD+/1A PLC TEST BUFFER ADDRESS * PDWTVOL EQU DWTDRD+/1A DISC VOLUME NAME * PDWTECH
0x291fac…292140 Dummy {f00=0x00d3, f01=0x0190, f02=» ( PDWTSQ EQU DWTDRD+/2A START OF QUEUE P* 0 P EJECT TOSSIO : P* R P* P********************* f P* DAB DISPLACEMENTS * P********************* P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN E
0x292140…2922d4 (3, 141) Dummy {f00=0x00d3, f01=0x0190, f02=»ESS t PABTADR EQU 2 ABORT ADDRESS " PINTADR EQU 4 INTERRUPT ADDRESS . 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) T 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P
0x2922d4…292468 Dummy {f00=0x00d3, f01=0x0190, f02=»* THE VALUES ARE USED IN MMU SYSTEMS FOR SELECTING A SPECIAL ROUTINE F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. N P* $ PDC:DIX EQU -2 DATA COMMUNICATION PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CH
0x292468…2925fc Dummy {f00=0x00d3, f01=0x0190, f02=» EQU 10 DISC P* P EJECT TOSSIO P* 6 P* @ P********************* J P* ECB DISPLACEMENTS * h P********************* P* ( P* EVENT CONTROL BLOCK DISPLACEMENTS P* PECBFC EQU 1 FILE CODE PECBFN
0x2925fc…292790 Dummy {f00=0x00d3, f01=0x0190, f02=»C EQU 8 RETURN CODE PECBCW EQU 10 CONTROL WORD PECBCW1 EQU 10 CONTROL WORD 1 > PECBCW2 EQU 12 CONTROL WORD 2 b P* P EJECT TOSSIO P* P* P IFT MMUPAG=1 P* P* P********** P* TIOTAB *
0x292790…292924 Dummy {f00=0x00d3, f01=0x0190, f02=» ADDRESS TABLE p . P DATA TIO:DM DATA MANAGEMENT, INPUT/OUTPUT * P DATA TIOPCI PROGRAMMED CHANNEL, INPUT H P DATA TIOMXI MUX, INPUT v $ P DATA TIOKBI KEYBOARD/CTW, INPUT 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT P* PTINDEX EQU *
0x292924…292ab8 Dummy {f00=0x00d3, f01=0x0190, f02=»OKBO KEYBOARD/CTW, OUTPUT 0 P DATA TIOITO INTERTASK COMMUNICATION, OUTPUT " P DATA TIODKO DISC, OUTPUT V P* x P EJECT TOSSIO P* P* P********** P* TENTAB * P********** P* @ P* TENTAB CONTAINS ADDRESSE
0x292ab8…292c4c Dummy {f00=0x00d3, f01=0x0190, f02=»INPUT/OUTPUT r * P DATA TENPCI PROGRAMMED CHANNEL, INPUT P DATA TENMXI MUX, INPUT B $ P DATA TENKBI KEYBOARD/CTW, INPUT b 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT P DATA TENDKI DISC, INPUT , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT
0x292c4c…292de0 Dummy {f00=0x00d3, f01=0x0190, f02=»A TENDKO DISC, OUTPUT P XIF P* * P EJECT TOSSIO 4 P* L P* V P********** ` P* MONMMU * r P********** P* P* MONITOR (SYSTEM) MMU TABLE P* PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,/040
0x292de0…292f74 (3, 142) Dummy {f00=0x00d3, f01=0x0190, f02=» XIF P* P EJECT TOSSIO P* . P* 8 P IFT ATTDET=1 B P* X 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH b P* P* T I M O U T P* P* INPUT: A1 = DWT ADDRESS . P* A2 = ADDRESS TO 2ND TIMER
0x292f74…293108 Dummy {f00=0x00d3, f01=0x0190, f02=» A1-A3 ARE DESTROYED P* PTIMOUT LDR A6,A1 * & P LDR* A2,A2 TIMER POINTER ADDRESS B P LD A5,2,A2 TTAB ADDRESS l P CF A15,FNDBLK P LDR* A1,A4 " P STR A1,A2 REMOVE FROM ATT:CH P CF A15,FREBLK P* P EJECT TOS
0x293108…29329c Dummy {f00=0x00d3, f01=0x0190, f02=» PTIM:10 LDR A2,A1 SAVE P LDR* A1,A1 NEXT IN QUEUE & , P RF(Z) TIM:20 ERROR IN QUEUE HANDLING =1 H P CWR A1,A5 x P RB(NE) TIM:10 NOT FOUND P* P EJECT TOSSIO P* & P* TTAB FOUND - REMOVE FROM QUEUE P*
0x29329c…293430 Dummy {f00=0x00d3, f01=0x0190, f02=»5 ECB ADDRESS FROM A8 SAVE AREA ~ P LDK A3,/40 SET TIMEOUT BIT ! ( P* ! L P IFT MMUPAG=0 ! V * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ! l P XIF ! P* ! P IFT ATTDET=1 ! P IFT MMUPAG=1 ! . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB !
0x293430…2935c4 Dummy {f00=0x00d3, f01=0x0190, f02=»1 ! & P RF TIORTN QUEUE TASK AND DISPATCH " PTIM:20 EQU * =1 " 4 P LDK A1,1 INDICATE ERROR =1 " L P CF A15,HALT =1 " p P* " P EJECT TOSSIO " P* " P* F N D B L K " P* " ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH " P* "
0x2935c4…293758 Dummy {f00=0x00d3, f01=0x0190, f02=»F FOUND, ELSE 0 " r P* # ( PFNDBLK LDKL A4,ATT:CH ANCHOR ADDRESS # " P* # N PFND:10 LDR A2,A4 SAVE A4 # X P LDR* A4,A4 # x P RF(Z) FND:20 END OF ATT:CH # P CW A5,4,A4 # P RB(NE) FND:10 NOT FOUND # P* # PFND:20 EQU * # P IFT C
0x293758…2938ec Dummy {f00=0x00d3, f01=0x0190, f02=» # P* $ P IFT ATTDET=1 $ & PATT:CH DATA 0 ATTACH CHAIN ANCHOR $ ( P* $ R P EJECT $ P* $ j P* F R A B L K =1 $ t P* $ 0 P* FREE BLOCK AND TIMER IN ATT:CH IF FOUND =1 $ P* $ P* INPUT: A5=TTAB ADDRESS =1 $ P* $ $ P* OU
0x2938ec…293a80 Dummy {f00=0x00d3, f01=0x0190, f02=»=1 $ l P ADK A4,0 SET CR =1 % . P RF(Z) FRAEND TASK NOT FOUND IN ATT:CH =1 % & P CM* 2,A4 FREE TIMER =1 % X & P LDR* A3,A4 REMOVE FROM ATTACH =1 % x P STR A3,A2 =1 % $ P CF A15,FREBLK RELEASE BLOCK =1 % PFRAEND EQU * =1 % P LDR* A1,A15 RES
0x293a80…293c14 (3, 143) Dummy {f00=0x00d3, f01=0x0190, f02=» % P* & P* & * P* THIS MODULE IS CALLED FROM TIO WITH & P* THE FOLLOWING PARAMETERS: & J P* & n & P* A3 /8000 (REQUEST ERROR BIT) & x & P* A4 I/O AND ACTIVATE INDICATOR & P* A5 TTAB ADDRESS & P* A6 DWT ADDRESS & P*
0x293c14…293da8 Dummy {f00=0x00d3, f01=0x0190, f02=»13 DWT STATUS & P* ' PATTACH EQU * ENTRY ' P ADK A4,0 SET CR ' : * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR ' R P* ' P IFT MMUPAG=0 ' " P CM ECBRC,A8 RESET RETURN CODE ' P XIF ' P* ' P IFT ATTDET=1 ' P IFT MMUPAG=1 ' & P
0x293da8…293f3c Dummy {f00=0x00d3, f01=0x018e, f02=»0,A13 ' * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED ( P LDR A13,A13 ( < P RF(NN) ATT:50 DEVICE BUSY ( P P* ( r P* ATTACH REQUESTING TASK ( | P* ( P ORS A10,DWTST,A6 ATTACH ( , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN DWT ( P RF ATTRTN =1
0x293f3c…2940d0 Dummy {f00=0x00d3, f01=0x0190, f02=» ( P* SET TIMER ) P* ) P IFT MMUPAG=0 ) * P LD A1,ECBCW,A8 TIME ) @ P XIF ) P* ) h P EJECT TOSSIO ) r P* ) P* ) P IFT ATTDET=1 ) P IFT MMUPAG=1 ) P EL A1,ECBCW,A8 TIME ) P XIF ) P* ) P IFT ATTDET=
0x2940d0…294264 Dummy {f00=0x00d3, f01=0x0190, f02=»ESS ) | P LD A3,ATT:CH ANCHOR * P CF A15,GETBLK BLOCK * ( P ST A4,ATT:CH UPDATE ANCHOR * D $ P ADK A4,2 TIMER POINTER ADDRESS * h P LDR A1,A6 DWT ADDRESS * P CF A15,SETIMP SET TIMER * P DATA TIMOUT * P* * PATTIM DATA 0 * P* * ,
0x294264…2943f8 Dummy {f00=0x00d3, f01=0x0190, f02=»N * P* + P EJECT TOSSIO + P* + , P* + 6 P********** + @ P* DETACH * + R P********** + d P* + v * P* THIS MODULE IS CALLED FROM TIO WITH + $ P* THE SAME PARAMETERS AS ATTACH. + P* + PDETACH EQU * + P ADK A4,0 SET CR +
0x2943f8…29458c Dummy {f00=0x00d3, f01=0x0190, f02=»TIOERR ATTACHED TO OTHER TASK + P XRS A10,DWTST,A6 DETACH , & $ P LDR A7,A5 SAVE TTAB ADDRESS =1 , F P LD A5,DWTTQ,A6 QUEUE ANCHOR , n P RF(Z) DET:10 QUEUE EMPTY , 2 P CF A15,FRABLK FREE ATTACH BLOCK AND TIMER =1 , & P LDR* A3,A5 UPDATE QUEUE ANCHO
0x29458c…294720 Dummy {f00=0x00d3, f01=0x0190, f02=» , n P* - 2 PATTRTN EQU * COMMON ATTACH/DETACH NORMAL EXIT - PDETRTN LDK A3,0 RETURN CODE - H P XIF - l P* - x P EJECT TOSSIO - P* - P* - P********** - P* TIOERR * - P********** - P* - P* ERROR: FILE CODE UNKNOWN
0x294720…2948b4 (3, 144) Dummy {f00=0x00d4, f01=0x0190, f02=»G=0 - * P ST A3,ECBRC,A8 SET RETURN CODE IN ECB . ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH . : P XIF . f P* . r P IFT MMUPAG=1 . | * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB . P LDK A3,0 . * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH . P XIF .
0x2948b4…294a48 Dummy {f00=0x00d4, f01=0x0190, f02=»************ . P* QUEUE DEVICE * / P**************** / , P* / D P* / N 8 P* THIS IS THE ROUTINE FOR 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
0x294a48…294bdc Dummy {f00=0x00d4, f01=0x0190, f02=»NOT. / V P* 0 P IFT ATTDET=1 0 P* 0 , P* QUEUE ECHO DEVICE FIRST 0 6 P* 0 X PTIOQ00 LDR A6,A2 0 b P* 0 z P* QUEUE DEVICE FIRST 0 P* 0 $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR 0 P LDR A2,A6 0 P LDR* A6,A6 0 $ P RF TIOQ40 INSER
0x294bdc…294d70 Dummy {f00=0x00d4, f01=0x0190, f02=»MENT 0 j $ PTIOQ20 ADK A6,DWTTQ QUEUE ANCHOR 1 P* 1 4 . PQUEFIL EQU * ENTRY USED BY FILE MANAGEMENT 1 > P LD A1,TTB:ST+1,A5 LEVEL 1 p P* 1 P EJECT TOSSIO 1 P* 1 * P* SEARCH QUEUE FOR PLACE OF INSERTION 1 P* 1 PTIOQ30 LDR A2,A6 1
0x294d70…294f04 Dummy {f00=0x00d4, f01=0x0190, f02=» NEXT 1 ~ P* 2 0 P* INSERT IN QUEUE AND UPDATE PROGRAM COUNTER 2 P* 2 L PTIOQ40 LDKL A3,-4 2 V P STR A6,A5 INSERT IN QUEUE 2 p P STR A5,A2 2 P ADK A4,0 SET CR 2 P RF(Z) TIOQ50 NO ACTIVATION 2 P SUK A3,2 ACTIVATION 2 P* 2 4 PTI
0x294f04…295098 Dummy {f00=0x00d4, f01=0x0190, f02=» TOSSIO 2 P* 3 P* 3 P******* 3 & P* TIO * 3 6 P******* 3 F P* 3 V P* 3 ` 4 P* THIS MODULE IS ENTERED WHEN TASK INPUT/OUTPUT 3 j 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED 3 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED
0x295098…29522c Dummy {f00=0x00d4, f01=0x0190, f02=»S ARE PERFORMED. 3 z P* 4 6 P* THIS MODULE IS CALLED BY THE LKM HANDLING MODULE 4 " & P* WITH THE FOLLOWING PARAMETERS:- 4 P* 4 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 4 P* 4 $ P* A4 = ZERO, NORMAL I/O REQUEST 4 ( P* NOT ZERO, I/
0x29522c…2953c0 Dummy {f00=0x00d4, f01=0x0190, f02=»* 4 P EJECT TOSSIO 5 P* 5 " P* 5 , < P* THE 'TIO'-ROUTINE EXITS TO REQUESTED ACTIVATION DRIVER 5 6 * P* WITH THE FOLLOWING REGISTER VAULES:- 5 v P* 5 P* A5 = STACK BASE 2 IN DWT 5 P* 5 P* A6 = DWT ADDRESS 5 P* 5 P* A7
0x2953c0…295554 (3, 145) Dummy {f00=0x00d4, f01=0x018e, f02=» IF REQUEST ISSUED IN SYSTEM MODE 5 . P* = 1, " " " " USER MODE 6 * P* 6 P* 6 f , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 6 p P* 6 " P* -DWTOR DWT INDEX AND ORDER 6 P* -DWTECB ECB ADDRESS 6 $ P* -DWTST READY AND ECHO
0x295554…2956e8 Dummy {f00=0x00d4, f01=0x0190, f02=» P* 7 P* 7 * P* THE FOLLOWING ECB FIELDS ARE RESET:- 7 P* 7 F P* -BIT 0 IN THE FIRST WORD 7 P P* -ECBEL EFFECTIVE LENGTH 7 t P* -ECBRC RETURN CODE 7 P* 7 P EJECT TOSSIO 7 P* 7 . P* DWT ADDRESS AND CHECK IF REQUEST IS
0x2956e8…29587c Dummy {f00=0x00d4, f01=0x0190, f02=»ITCH SWITCH LEVEL 7 P INH 8 P LDKL A3,/8000 8 & P ADK A6,0 SET CR 8 < $ P RB(Z) TIOERR FILE CODE UNKNOWN 8 T 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 8 | P LD A13,DWTST,A6 DWT STATUS 8 P* 8 P EJECT TOSSIO 8 P* 8 @ P*
0x29587c…295a10 Dummy {f00=0x00d4, f01=0x0190, f02=» A7,/BB00 8 P RB(E) ATTACH ATTACH ORDER 9 P CCK A7,/BC00 9 4 P RB(E) DETACH DETACH ORDER 9 J P TM A10,A13 9 l P RF(Z) TIO020 NOT ATTACHED 9 P CW A5,DWTTAB,A6 9 * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 9 P TM A3,A13 9 " P RF(NZ) TIO030
0x295a10…295ba4 Dummy {f00=0x00d4, f01=0x0190, f02=»DEVICE BUSY 9 P* : P EJECT TOSSIO : P* : 6 H P* CHECK IF ECHO, AND WHEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED : @ P* : * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX : P LDK A2,/40 CHECK IF ECHO : P ANR A2,A7 : P RF(Z) TIO070 NO
0x295ba4…295d38 Dummy {f00=0x00d4, f01=0x0190, f02=» NOT KEYBOARD : n , P LD A2,DWTECH,A6 ECHO DEVICE DWT ADDRESS ; P RF(Z) TIO070 NO ECHO DEVICE ; F $ P LD A14,DWTST,A2 ECHO DWT STATUS ; j P* ; P IFT ATTDET=1 ; P TM A10,A14 ; * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED ; P CW A5,DWTTAB,A2 ;
0x295d38…295ecc Dummy {f00=0x00d4, f01=0x0190, f02=»USY, QUEUE ECHO DEVICE ; P XIF < P* < * P EJECT TOSSIO < 4 P* < L P* < V PTIO050 TM A3,A14 < ` " P RB(Z) TIOQ10 ECHO DEVICE BUSY < x P* < PTIO060 LDKL A3,/A000 < : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS < P* <
0x295ecc…296060 Dummy {f00=0x00d4, f01=0x0190, f02=»PAG=1 < P LD A13,TTB:PW,A5 PSW = $ P ANKL A13,1 SYSTEM/USER MODE BIT = , $ P RF(NZ) TIO100 JUMP IF USER MODE = T P LDKL A2,/7FFF = | , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE = , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS = ( P CM ECBEL,A8 RESET EF
0x296060…2961f4 (3, 146) Dummy {f00=0x00d4, f01=0x0190, f02=»ECB TO DWT ECB = P* > PTIO100 EQU * > P LDKL A2,/4FFF > 4 * P ELR A3,A8 LOAD FIRST WORD OF USER ECB > J 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE > x P ESR A3,A8 > ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS > , P ST A2,DWTECB,A6 SET ACTUAL EC
0x2961f4…296388 Dummy {f00=0x00d4, f01=0x0190, f02=»SET EFFECTIVE LENGTH > ~ & P ES A3,ECBRC,A8 RESET RETURN CODE ? P* ? F P LDR A10,A1 SAVE PARAMETER ? P P LDR A1,A8 ? r P ADK A1,ECBRL ? ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ? P ADK A2,ECBRL ? P LDK A3,8 ? . P MVUS A3 MOVE PART OF USER
0x296388…29651c Dummy {f00=0x00d4, f01=0x0190, f02=»,A8 RESET BIT 0 IN ECB FILE CODE ? ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH @ ( $ P CM ECBRC,A8 RESET RETURN CODE @ T P XIF @ | P* @ P EJECT TOSSIO @ P* @ P* @ PTIO110 EQU * @ P ECR A3,A7 @ P ANK A3,/FF ORDER OPTION @ , P RF(
0x29651c…2966b0 Dummy {f00=0x00d4, f01=0x018e, f02=» ANK A7,/3F @ ( P SC A7,DWTOR+1,A6 STORE ORDER IN DWT A 0 P ST A5,DWTTAB,A6 SAVE TTAB ADDRESS IN DWTTAB A @ P* A t PTIO130 EQU * A ~ P IFT MMUPAG=0 A & P ST A8,DWTECB,A6 SET ECB ADDRESS A P XIF A P* A P EJECT TOSSIO A P* A .
0x2966b0…296844 Dummy {f00=0x00d4, f01=0x0190, f02=» 4 P ANK A3,/80 NORMAL I/O. CHECK IF WAIT REQUESTED B P RF(Z) TIO220 NOT WAIT B < P LDK A4,1 INDICATE WAIT B Z P RF TIO230 B z P* B P* I/O WITH ACTIVATION B P* B < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS B P* B P
0x296844…2969d8 Dummy {f00=0x00d4, f01=0x0190, f02=»A6 STORE WAIT/ACTIVATE INDICATOR B | P* C ( P EJECT TOSSIO C 2 P* C J P* C T P IFT MMUPAG=1 C ^ * P LDR A13,A13 CHECK IF SYSTEM/USER MODE C t & P RF(Z) TIO250 JUMP IF SYSTEM MODE C " P LD A3,DEVIND,A12 DEVICE INDEX C , P RF(N) TIO250 NO SPECI
0x2969d8…296b6c Dummy {f00=0x00d4, f01=0x0190, f02=»A15,TIOCW2 MOVE 2ND CONTROL WORD C P* D ( " P* PERFORM CHECK ON ORDER CODE D 2 P* D X PTIO235 EQU * D b P LDR A4,A7 ORDER CODE D v 0 P CF A15,RD:WR2 CHECK IF ORDER IS READ/WRITE D . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER D P* D PTIO2
0x296b6c…296d00 Dummy {f00=0x00d4, f01=0x0190, f02=» TASKS A CHANCE D z P* E * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E " P ADR A5,A6 E P P INH E b & P ABR* A12 GO TO DRIVER ACTIVATION E n P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********** E P* E
0x296d00…296e94 (3, 147) Dummy {f00=0x00d5, f01=0x0190, f02=»* IF CPU857, " " " " 16 E P* F , $ P* A3 IS DESTROYED, AND SO IS CR F 6 P* F ^ & PSWITCH EQU * SWITCH LEVEL ON STACK F h P IFT TC8000=0 F P IFF CPU852+CPU857=0 =4 F P LDK A3,/40 LEVEL 16 F P XIF F P IFT TC8000=1 F P L
0x296e94…297028 Dummy {f00=0x00d5, f01=0x0190, f02=» P* G P* G ( P SC A3,2,A15 SET NEW LEVEL ON STACK G " P RTN A15 RETURN WITH NEW LEVEL G D P* G j P EJECT TOSSIO G t P* G P* G P IFT MMUPAG=0 G 0 PTIOMXI EQU * DUMMY ENTRY IN NON-MMU SYSTEMS G P XIF G P* G P EJECT
0x297028…2971bc Dummy {f00=0x00d5, f01=0x0190, f02=»TENDIO' FOR SELECTING G j @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING H > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). H b > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS H * P* SET TO ZERO, ELSE NOT EQUAL TO Z
0x2971bc…297350 Dummy {f00=0x00d5, f01=0x0190, f02=»E INDEXED BRANCHING H n . P* CR = 0 IF NO READ/WRITE REQUEST I , P* CR <> 0 IF READ/WRITE REQUEST I N P* A4 IS DESTROYED I ~ P* I , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT I P ANK A4,/3F I P* I * PRD:WR2 ADKL A15,4 ADJUST
0x297350…2974e4 Dummy {f00=0x00d5, f01=0x0190, f02=»1 I $ P ADR A3,A4 ADD READ/WRITE INDEX J ( P ABR* A15 RETURN WITHOUT CHANGING CR J 2 P* J ^ P EJECT TOSSIO J h P* J P* J P********** J P* ORDTAB * J P********** J P* J 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: J
0x2974e4…297678 Dummy {f00=0x00d5, f01=0x0190, f02=»ONSTANTS J | P BYTES 0,1 /00, /01 K P BYTES 1,1 /02, /03 K , P BYTES 0,TINDEX+1 /04, /05 K H & P BYTES TINDEX+1,TINDEX+1 /06, /07 K j P BYTES TINDEX+1,0 /08, /09 K P BYTES 1,TINDEX+1 /0A, /0B K P BYTES 0,0 /0C, /0D K P BYTES 0,0 /0E, /0F
0x297678…29780c Dummy {f00=0x00d5, f01=0x0190, f02=» /18, /19 K P BYTES 0,0 /1A, /1B L P BYTES 0,0 /1C, /1D L . P BYTES 0,0 /1E, /1F L J P BYTES 0,TINDEX+1 /20, /21 L f P BYTES TINDEX+1,0 /22, /23 L P BYTES TINDEX+1,0 /24, /25 L P BYTES 0,TINDEX+1 /26, /27 L P BYTES 0,0 /28, /29 L "
0x29780c…2979a0 Dummy {f00=0x00d5, f01=0x0190, f02=»ES 0,0 /32, /33 L P BYTES 0,0 /34, /35 M P BYTES 0,0 /36, /37 M 4 P BYTES 0,0 /38, /39 M P P BYTES 0,0 /3A, /3B M l P BYTES 0,0 /3C, /3D M P BYTES 0,0 /3E, /3F M P* M P EJECT TOSSIO M P* M P* T I O : D M M P* M
0x2979a0…297b34 (3, 148) Dummy {f00=0x00d6, f01=0x0190, f02=»LED BY 'TENDIO' AT M r , P* COMPLETION OF THE REQUEST IS 'TEN:DM'. N P* N J " P* INPUT: A8 = DWT ECB ADDRESS N T $ P* A9 = USER ECB ADDRESS N z P* N P* OUTPUT: A2 IS DESTROYED N P* N . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT N (
0x297b34…297cc8 Dummy {f00=0x00d6, f01=0x0190, f02=» N l P ST A2,ECBCW2,A8 O P* O PA15RTN EQU * O * P RTN A15 O > P* O N P EJECT TOSSIO O X P* O p P* T I O P C I O z P* O B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN O > P* ISSUED AND THE DEVICE IS RUNNING ON PR
0x297cc8…297e5c Dummy {f00=0x00d6, f01=0x0190, f02=»BUFFER ADDRESS. O h 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT P , P* COMPLETION OF THE REQUEST IS 'TENPCI'. P P 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. P P* P " P* INPUT: A8 = DWT ECB ADDRESS P $ P* A9 = USER ECB ADDRESS
0x297e5c…297ff0 Dummy {f00=0x00d6, f01=0x0190, f02=»ANNEL, INPUT P v $ P LD A1,ECBRL,A8 REQUESTED LENGTH Q 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE Q < 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE Q r P* Q . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' Q ( P EL A1,ECBBA,A9 USER BUFFER ADDR
0x297ff0…298184 Dummy {f00=0x00d6, f01=0x0190, f02=» A1,2 MAKE DWT BUFFER ADDRESS EVEN Q P ANS A1,ECBBA,A8 R * P RTN A15 R B P* R R P EJECT TOSSIO R P* R t P* T I O M X I R ~ P* R B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN R > P* ISSUED AND THE DEVICE IS RUNNING O
0x298184…298318 Dummy {f00=0x00d6, f01=0x0190, f02=» R h 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT S , P* COMPLETION OF THE REQUEST IS 'TENMXI'. S @ N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. S p P* S P* INPUT: A5 = TTAB ADDRESS S " P* A8 = DWT ECB A
0x298318…2984ac Dummy {f00=0x00d6, f01=0x0190, f02=»ANSFERRED TO DWT ECB S f P* T PTIOMXI EQU * MUX, INPUT T & P LDK A1,0 T F 2 P EL A2,ECBBA,A9 USER BUFFER ADDRESS (LOGICAL) T X " P DLL 4 4 LEFTMOST BITS INTO A1 T P ADR A1,A1 DOUBLE INDEX T P ADR A1,A5 T " P LC A1,TTB:MT,A1 PAGE ADDRESS T
0x2984ac…298640 Dummy {f00=0x00d6, f01=0x0190, f02=»BA,A8 BITS 2-17 IN 18-BIT ADDRESS T P RTN A15 U * P* U : P EJECT TOSSIO U D P* U P* T I O K B I U f P* U | B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN U N P* ISSUED AND THE DEVICE IS KEYBOARD/CTW. TIOKBI WILL SET BUF
0x298640…2987d4 (3, 149) Dummy {f00=0x00d6, f01=0x0190, f02=»E CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENKBI'. V 4 P* V d P* INPUT: A6 = DWT ADDRESS V n P* A7 = ORDER CODE V " P* A8 = DWT ECB ADDRESS V P* A9 = USER ECB ADDRESS V , P* A12 = ADDRESS TO DRIVE
0x2987d4…298968 Dummy {f00=0x00d6, f01=0x018e, f02=»ESTED LENGTH V | 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W J 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER CODE W , P RF(E) TIKB20 NO KEYTABLE IF BASIC READ
0x298968…298afc Dummy {f00=0x00d6, f01=0x0190, f02=» W P LDR A1,A9 X P ADK A1,8 X P ADKL A8,12 X , * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X @ P SUKL A8,4 X n * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABLE ADDRESS UNEVEN X , P ECR A3,A3 NO, PUT LENGTH
0x298afc…298c90 Dummy {f00=0x00d6, f01=0x0190, f02=»SIZE X h P RF(G) IO:ERR TOO SMALL Y P CF A15,TIPO05 Y , & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y B P* Y l PTIKB20 EQU * Y v P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y P* Y 4 PTIOITI EQU A15RTN INTERTASK COMMUN
0x298c90…298e24 Dummy {f00=0x00d6, f01=0x0190, f02=»* Y P* T I O P C O Z P* Z B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z * > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z p B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES NOT EXCEED THE DWT Z D P* BUFFER LENGTH,
0x298e24…298fb8 Dummy {f00=0x00d6, f01=0x0190, f02=»' AT Z d , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ < F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ v & P* TIOPCO IS ALSO USED BY 'DC:MOT'. [ P* [ P* INPUT: A6 = DWT A
0x298fb8…29914c Dummy {f00=0x00d6, f01=0x0190, f02=»ANNEL, OUTPUT [ v 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK $ P LD A3,ECBRL,A8 REQUESTED LENGTH N ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 v 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZ
0x29914c…2992e0 Dummy {f00=0x00d6, f01=0x0190, f02=»BY 'TIOKBI' AND 'TENITO' r P ADK A3,1 ] . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] 2 ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] d & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADDRESS EVEN ] P LDR A4,A1 ] P ANK A4,
0x2992e0…299474 (3, 150) Dummy {f00=0x00d6, f01=0x0190, f02=»M BUFFER ] f P* ^ PTIPO20 RTN A15 ^ P* ^ 0 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN ^ : 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN ^ n 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER ^ 2 P STR A4,A2 STORE FIRST CHARACTER IN DWT BUFFER
0x299474…299608 Dummy {f00=0x00d6, f01=0x0190, f02=» P* _ P EJECT TOSSIO _ P* _ & P* I O : E R R _ 0 P* _ F , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. _ P B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). _ & P* BRANCH TO DISPATCHER VIA TENDIO. _ P* _ 4 PIO:ERR EQU * R
0x299608…29979c Dummy {f00=0x00d6, f01=0x0190, f02=»2 CHECK ECHO BIT _ P RF(NN) IO:E10 NOT ECHO ` P LDR A1,A6 SAVE DWT ADDRESS ` 8 & P LD A6,DWTECH,A6 ECHO DWT ADDRESS ` P CF A15,TENDIO ` " P LDR A6,A1 RESTORE DWT ADDRESS ` P* ` PIO:E10 EQU * ` " P LDKL A1,/8008 SET RETURN CODE ` 0 P A
0x29979c…299930 Dummy {f00=0x00d6, f01=0x0190, f02=» TIOMXI MUX, OUTPUT ` P* a P* T I O K B O a & P* a < * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT a F P* a t P* T I O I T O a ~ P* a 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT a P* a P* T I O D K O a P* a " PTIODKO
0x299930…299ac4 Dummy {f00=0x00d6, f01=0x0190, f02=»TENDIO' WHEN A REQUEST a t . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. b D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. b P P* b P* INPUT: A6 = DWT ADDRESS b $ P* A8 = USER ECB ADDRESS b P* b P* OUTPUT: A1 IS DE
0x299ac4…299c58 Dummy {f00=0x00d6, f01=0x0190, f02=»OND CONTROL WORD b | P ES A1,ECBCW2,A8 c P RTN A15 c 0 P* c @ P EJECT TOSSIO c J P* c b P* T E N P C I c l P* c D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN c @ P* COMPLETED AND THE DEVICE IS RUNNING ON PROGRAMMED
0x299c58…299dec Dummy {f00=0x00d6, f01=0x0190, f02=»ENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. c x 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. d 0 P* d l P* INPUT: A6 = DWT ADDRESS d v $ P* A8 = USER ECB ADDRESS d P* d & P* OUTPUT: A1-A4, A8 ARE DESTROYED d P* d * PTENPCI EQU
0x299dec…299f80 Dummy {f00=0x00d6, f01=0x018e, f02=»VE IF ZERO d | & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS e P* e < . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' e F ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS e x $ P LDK A3,1 CHECK BUFFER ADDRESSES e P TM A3,A1 e * P RF(Z) TEPI20 DWT BUFFER ADDRESS EVEN e
0x299f80…29a114 (3, 151) Dummy {f00=0x00d8, f01=0x0190, f02=» e P* f 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN f 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER f H P ELR A8,A2 f | P* f * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER f ( P ANKL A8,/FF00 SKIP RIGHT CHARACTER f P ORR A8,A3 f . P ESR
0x29a114…29a2a8 Dummy {f00=0x00d8, f01=0x0190, f02=»MORE CHARACTERS TO MOVE f P RTN A15 NO, RETURN g P* g < PTEPI20 TM A3,A2 g F * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN g ^ " P LDR A3,A1 DWT BUFFER ADDRESS g $ P ADR A3,A4 ADD EFFECTIVE LENGTH g P* g $ PTEPI23 LC A8,-1,A3 ONE CHARACTER g
0x29a2a8…29a43c Dummy {f00=0x00d8, f01=0x0190, f02=»ESS OF BUFFER g n * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE h 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN h D P RB TEPI10 h x P* h P EJECT TOSSIO h P* h P* h , PTEPI25 LDR A3,A4 CHECK REQUESTED LENGTH h P ANK A3,1 h * P RF(NZ
0x29a43c…29a5d0 Dummy {f00=0x00d8, f01=0x018e, f02=»PI40 EQU * EFFECTIVE LENGTH WAS UNEVEN h ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN i . , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE i Z P LDR A8,A4 NO, SAVE A4 i 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER i & P ADR A1,A8 UPDATE BUFFER POINTERS i P A
0x29a5d0…29a764 Dummy {f00=0x00d8, f01=0x0190, f02=» i . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN j " P LDR A3,A1 DWT BUFFER ADDRESS j : $ P ADR A1,A4 ADD EFFECTIVE LENGTH j ` P* j " PTEPI70 LCR A8,A3 ONE CHARACTER j 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE BYTE TO THE LEFT j & P ADK A3,1 POINT TO NEX
0x29a764…29a8f8 Dummy {f00=0x00d8, f01=0x0190, f02=»WT BUFFER ADDRESS j x * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN k P RB TEPI25 k H P* k Z P EJECT TOSSIO k d P* k | P* T E N M X I k P* k PTENMXI EQU A15RTN MUX, INPUT k P* k P* T E N K B I k P* k & PTENKBI EQU TENPCI KE
0x29a8f8…29aa8c Dummy {f00=0x00d8, f01=0x018e, f02=»N D K I k P* l " PTENDKI EQU TEN:DM DISC, INPUT l P* l @ P EJECT TOSSIO l J P* l b P* T E N P C O l l P* l 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT l P* l P* T E N M X O l P* l " PTENMXO EQU A15RTN MUX, OUTPUT
0x29aa8c…29ac20 Dummy {f00=0x00d8, f01=0x0190, f02=» " PTENDKO EQU TEN:DM DISC, OUTPUT m P* m * P EJECT TOSSIO m 4 P* m L P* T E N I T O m V P* m l F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN m v L P* COMPLETED FOR INTERTASK COMMUNICATION, IN PURPOSE TO MOVE THE CONTENTS
0x29ac20…29adb4 (3, 152) Dummy {f00=0x00d8, f01=0x0190, f02=» m P* INPUT: A6 = DWT ADDRESS n P* n * & P* OUTPUT: A1-A4, A8 ARE DESTROYED n 4 P* n ^ 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT n h $ P LD A8,DWTECB,A6 DWT ECB ADDRESS n $ P LD A3,ECBEL,A8 EFFECTIVE LENGTH n P RF(NP) TEIO10 NO MOVE n &
0x29adb4…29af48 Dummy {f00=0x00d8, f01=0x0190, f02=» TOSSIO n P* o P* D C : M O T o P* o 2 < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER o < < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO o | < P* THE DRIVER BUFFER. THE MOVE ROUTINE IN MODULE 'TIOPCO' o " P* IS USED FO
0x29af48…29b0dc Dummy {f00=0x00d8, f01=0x0190, f02=»:MOT EQU * DATA COMMUNICATION, OUTPUT o " P MSR 8,A15 SAVE A1-A8 ON STACK p . $ P SUKL A15,32 ADJUST STACKPOINTER p T * P TS 2,A15 SAVE MMU REGISTERS ON STACK p | " P LD A5,DWTTAB,A6 TTAB ADDRESS p $ P TL TTB:MT,A5 LOAD MMU REGISTERS p $ P LD A8,DWTMEC,A6
0x29b0dc…29b270 Dummy {f00=0x00d8, f01=0x0190, f02=»A15 RESTORE MMU REGISTERS FROM STACK p $ P ADKL A15,32 ADJUST STACKPOINTER q , * P MLR 8,A15 RESTORE A1-A8 FROM STACK... q T P RTN A15 ...AND RETURN q P XIF q P* q P EJECT TOSSIO q P* q P* D C : M I N q P* q < P* THIS MODULE IS
0x29b270…29b404 Dummy {f00=0x00d8, f01=0x0190, f02=» P* INPUT: A1 = RETURN CODE r ( P* A4 = DRIVER BUFFER ADDRESS r & P* A6 = DWT ADDRESS r R P* r t ( P* OUTPUT: NO REGISTERS ARE DESTROYED r ~ P* r PDC:MIN EQU * r P IFT MMUPAG=0 r P IFT CPU852=1 r & P CF A15,SAVE8 SAVE A
0x29b404…29b598 Dummy {f00=0x00d8, f01=0x0190, f02=» SUKL A15,32 ADJUST STACKPOINTER r * P TS 2,A15 SAVE MMU REGISTERS ON STACK s ( " P LD A5,DWTTAB,A6 TTAB ADDRESS s V $ P TL TTB:MT,A5 LOAD MMU REGISTERS s | P XIF s P* s P EJECT TOSSIO s P* s P* M I N M O V s P* s P* INPUT: A1
0x29b598…29b72c Dummy {f00=0x00d8, f01=0x0190, f02=» s " PMINMOV EQU * DC:MIN MOVE ENTRY t P ENB t . P LD A3,DWTECB,A6 ECB ADDRESS t : * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS t ^ $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH t " P RF(NP) MIN:40 NOTHING TO MOVE t 8 P CW A2,ECBRL,A3 CHECK IF USER BUFFER IS LARGE
0x29b72c…29b8c0 Dummy {f00=0x00d8, f01=0x0190, f02=»3,A5 t ( P ANK A3,1 CHECK USER BUFFER ADDRESS u . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN u 8 P SUK A2,2 u j , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE u | P* u P EJECT TOSSIO u P* u P* WORD MOVE u P* u PMIN:10 EQU * u
0x29b8c0…29ba54 (3, 153) Dummy {f00=0x00d8, f01=0x0190, f02=»LOOP COUNTER u | 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE v P* v J PMIN:20 EQU * v T P ADK A2,1 v h P RF(N) MIN:40 MOVE FINISHED v z P* v P* CHARACTER MOVE v P* v PMIN:30 EQU * v " P LCR A3,A7 MOVE ONE CHARACTER v P SCR
0x29ba54…29bbe8 Dummy {f00=0x00d8, f01=0x018e, f02=»ST ONE MORE CHARACTER TO MOVE v | P XIF w & P* w 2 P IFT MMUPAG=1 w < * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB w R $ P LDR A1,A4 DRIVER BUFFER ADDRESS w P LDR A4,A2 EFFECTIVE LENGTH w & P LD A8,DWTUEC,A6 USER ECB ADDRESS w ( P CF A15,TEN:DC MOV
0x29bbe8…29bd7c Dummy {f00=0x00d8, f01=0x0190, f02=» w P* x PMIN:40 EQU * x P INH x & " P CF A15,TENDIO PERFORM TENDIO x 2 P* x X P* RELEASE BUFFER x b P* x z * P LD A3,DWTADR,A6 DRIVER ADDRESS BLOCK x ( P LD A1,POLADR,A3 BUFFER POOL ADDRESS x & P RF(Z) MIN:60 NO RELEASE OF BUFFER x P
0x29bd7c…29bf10 Dummy {f00=0x00d8, f01=0x0190, f02=»ER IN CHAIN x t P* y $ P* INSERT BUFFER AT END OF CHAIN y P* y F ( P SU A4,HDRLEN,A3 REAL BUFFER ADDRESS y P " P STR A4,A2 UPDATE QUEUE LINKS y | P CMR A4 y P* y PMIN:60 EQU * y P IFT CPU852=1 y ( P ABL IHRET8 RESTORE A1-A8 AND RETU
0x29bf10…29c0a4 Dummy {f00=0x00d8, f01=0x0190, f02=»RE A1-A8 FROM STACK... y P* z PDC:MOT RTN A15 ...AND RETURN z ( P XIF z L P* z X P IFT MMUPAG=1 z b " P RB DC:RTN RETURN TO DC DRIVER z x P XIF z P* z P* ERROR EXIT z P* z " PMIN:70 EQU * DC:MIN ERROR EXIT z 2 P LDKL A1,/8008 R
0x29c0a4…29c238 Dummy {f00=0x00d8, f01=0x0190, f02=» MMUPAG=0 z P IFT CPU852=1 { PDC:MOT EQU * { ( 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS { < P XIF { r P* { ~ P EJECT TOSSIO { P* { P* { P********** { P* TENDIO * { P********** { P* { P* { . P* THIS MOD
0x29c238…29c3cc Dummy {f00=0x00d8, f01=0x0190, f02=» IS CALLED TO START THE TASK { P* | $ P* -IF NORMAL I/O WITH WAIT:- | . P* | R * P* QTJOB IS CALLED TO QUEUE THE TASK | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- | P* | P* A5 = TTAB ADDRESS | P* | $ P* -IF NORMAL I/O
0x29c3cc…29c560 Dummy {f00=0x00d8, f01=0x0190, f02=» J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. } P* } R P EJECT TOSSIO } P* } t P* } ~ 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- } P* } P* A1 = RETURN CODE } P* } P* A6 = DWT ADDRESS } P
0x29c560…29c6f4 (3, 154) Dummy {f00=0x00d9, f01=0x018e, f02=»E PERFORMED. } v P* ~ P EJECT TOSSIO ~ P* ~ 6 P* END I/O ENTRY ~ @ P* ~ X PTENDIO EQU * ~ b P IFT CPU852=1 ~ v & 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 S
0x29c6f4…29c888 Dummy {f00=0x00d9, f01=0x018e, f02=» P INH ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK P RF(Z) TEN110 NO TASK QUEUED < P* ` P IFT ATTDET=1 j P LDKL A2,/800 ATTACH BIT P ANR* A2,A4 , P RF(Z) TEN095 DEVICE NOT ATTACHED =2 =1 , P CW A5,DWTTAB,A6 ATTACHED TO OTHER T
0x29c888…29ca1c Dummy {f00=0x00d9, f01=0x0190, f02=» P LDR A4,A6 =1 P ADK A4,DWTST RESTORE A4 =1 P XIF > P* J P EJECT TOSSIO T P* l P* v PTEN100 EQU * , P LDR* A3,A5 UPDATE QUEUE ANCHOR ADDRESS P ST A3,DWTTQ,A6 . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST
0x29ca1c…29cbb0 Dummy {f00=0x00d9, f01=0x0190, f02=» | , P ORRS A2,A4 INDICATE DEVICE READY IN DWT P LDKL A3,/DBFF 8 ( P ANRS A3,A4 RESET ECHO BIT AND BIT 5 N P LD A3,DWTECB,A6 ECB ADDRESS z : P RF(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY P* P EJECT TOSSIO P* P
0x29cbb0…29cd44 Dummy {f00=0x00d9, f01=0x0190, f02=» LD A4,TTB:PW,A5 PSW " P ANK A4,1 SYSTEM/USER MODE BIT P RF(Z) TEN200 SYSTEM MODE B P* d P* LOAD MMU REGISTERS n P* PTEN130 EQU * $ P SUKL A15,32 ADJUST STACKPOINTER * P TS 2,A15 SAVE MMU REGISTERS ON STACK . P TL TTB:MT
0x29cd44…29ced8 Dummy {f00=0x00d9, f01=0x0190, f02=»WTUEC,A6 USER ECB ADDRESS P ELR A4,A8 " * P ORR A4,A2 SET EVENT COMPLETED IN ECB 4 P ESR A4,A8 b P LDR A1,A3 t P ADK A1,ECBEL P LDR A2,A8 P ADK A2,ECBEL P LDK A4,6 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD
0x29ced8…29d06c Dummy {f00=0x00d9, f01=0x0190, f02=»CTION REQUIRED v " P RF(Z) TEN140 DATA MANAGEMENT P CWK A3,DK:DIX CHECK IF DISC < P RF(E) TEN140 DISC ` P* z " P* PERFORM CHECK ON ORDER CODE P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE
0x29d06c…29d200 Dummy {f00=0x00d9, f01=0x0190, f02=» TOSSIO P* P* RESTORE MMU REGISTERS P* < PTEN150 EQU * F P INH Z P* f PTEN160 EQU * p . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK $ P ADKL A15,32 ADJUST STACKPOINTER P XIF P* P EJECT TOSSIO
0x29d200…29d394 (3, 155) Dummy {f00=0x00d9, f01=0x0190, f02=» INDICATOR r ( P RF(Z) TEN250 NOT WAIT OR ACTIVATION P SUK A4,1 > P RF(Z) TEN240 WAIT P P ADK A4,1 j P LDR A3,A4 | P ANK A3,1 P RF(Z) TEN270 ACTIVATION P* P* MULTIPLE WAIT P* P LD A8,DWTECB,A6 ECB ADDRESS
0x29d394…29d528 Dummy {f00=0x00d9, f01=0x0190, f02=» NO, GET USER ECB ADDRESS P XIF " P* . PTEN210 EQU * 8 4 P ST A8,TTB:SA+16,A5 SET TO A8 IN TTAB SAVE AREA L P* : PTEN220 ADK A4,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR P LDR* A3,A4 NEXT DWT ADDRESS P CMR A4 SET TO NO WAIT A
0x29d528…29d6bc Dummy {f00=0x00d9, f01=0x0190, f02=» 2 P CF A15,QTJOB WAIT: QUEUE TASK FOR DISPATCHING P* : P* NO WAIT D P* V PTEN250 EQU * ` $ P CM DWTECB,A6 RESET ECB ADDRESS t P* PTEN260 EQU * P IFT CPU852=1 P ABL IHRET8 P XIF P* P IFT CPU852=0
0x29d6bc…29d850 Dummy {f00=0x00d9, f01=0x40cc, f02=»* PTEN270 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P CF A15,ACTOTP ACTIVATE TASK ON LIFO BASIS Z P RB TEN250 P* P* P* P END @ P ABL IHRET8 P XIF P* P IFT CPU852=0
0x29d850…29d9e4 Dummy {f00=0x00d9, f01=0x2008, f02=» NT TOSSIO END @ &
0x29d9e4…29db78 Dummy {f00=0x00d9, f01=0x018e, f02=» 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* : 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER D P LDR A2,A1 SAVE ~ & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHA
0x29db78…29dd0c Dummy {f00=0x00d9, f01=0x018e, f02=» h PCOR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 8 P RF(E) MEMOFL YES! f & P ADK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB CO
0x29dd0c…29dea0 Dummy {f00=0x00d9, f01=0x0190, f02=» * P CWK A3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD 2 PCOR:45 EQU * j 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION ~ P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1
0x29dea0…29e034 (3, 156) Opaque[0x194]
0x29e034…29e1c8 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x29e034…29e1c8 IdxSect {
0x29e034…29e1c8 f00 = 0x0094 // 0x29e034 @0x0
0x29e034…29e1c8 f01 = 0x0012 // 0x29e036 @0x2
0x29e034…29e1c8 gno = [ // 0x29e038 @0x4
0x29e034…29e1c8 [0x00]: C0x0094.0x3.0
0x29e034…29e1c8 [0x01]: C0x0095.0x0.0
0x29e034…29e1c8 [0x02]: C0x0095.0x1.0
0x29e034…29e1c8 [0x03]: C0x0095.0x2.0
0x29e034…29e1c8 [0x04]: C0x0095.0x3.0
0x29e034…29e1c8 [0x05]: C0x0096.0x0.0
0x29e034…29e1c8 [0x06]: C0x0096.0x1.0
0x29e034…29e1c8 [0x07]: C0x0096.0x2.0
0x29e034…29e1c8 [0x08]: C0x0096.0x3.0
0x29e034…29e1c8 ]
0x29e034…29e1c8 }
0x29e1c8…29e35c Dummy {f00=0x0094, f01=0x0190, f02=» 2 P IDENT LDTASK REL 11.0 81-06-10 870105041100 P : P =2,REL 11.0 81-01-26 B 2 P =2,END OF RELOC. CHECK FAILS (SPECIAL CASE) b " P =1,PRR 11.0 80-06-12 BOFE & P =1,CHECK FOR END OF RELOCATION P* 6 P**********************
0x29e35c…29e4f0 Dummy {f00=0x0094, f01=0x0190, f02=»* P* P* 6 P************************************************** P* X P* b * P* THIS MODULE CONTAINS THE LOAD TASK l , P* FOR TOSS MEMORY MANAGEMENT SYSTEMS. P* & P* IT CONTAINS TWO ENTRY POINTS: P* . P
0x29e4f0…29e684 Dummy {f00=0x0094, f01=0x0190, f02=» LDTASK P* P* P*********** & P* ENTRIES * : P*********** N P* b P* l $ P ENTRY LT:DSK DISC PAGING ENTRY v , P ENTRY LT:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB 2 P ENTRY QLTDSK ACTIVATE
0x29e684…29e818 Dummy {f00=0x0094, f01=0x0190, f02=»B LDTASK ECB AREA P ENTRY LD:BUF LDTASK BUFFER P ENTRY LD:BUE END OF BUFFER > ( P ENTRY PQEMTY PAGE QUEUE EMPTY FLAG b $ P ENTRY LD:STB LDTASK STACK BASE P EJECT LDTASK P* P* P************* P* EXTERNALS *
0x29e818…29e9ac Dummy {f00=0x0094, f01=0x0190, f02=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR 6 P EXTRN ACTOT ACTIVATE TASK n P EXTRN RELPA2 RELEASE PAGE " P EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS P EXTRN
0x29e9ac…29eb40 Dummy {f00=0x0094, f01=0x0190, f02=»S p P EXTRN SEG:EL SEGMENT LENGTH $ P EXTRN SEG:PB PAGE BLOCK ADDRESS . 4 P EXTRN SWB:DS DISC SECTOR ADDRESS OF FIRST COPY V $ P EXTRN SWB:EL SWB LENGTH (BYTES) & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS & P
0x29eb40…29ecd4 (3, 157) Dummy {f00=0x0095, f01=0x0190, f02=»B CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN TTB:AP ACB ADDRESS @ P EXTRN TTB:SA TTAB SAVE AREA b P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE P EXTRN TTB:SP SEGTAB ADDRESS P EJECT LDTASK
0x29ecd4…29ee68 Dummy {f00=0x0095, f01=0x0190, f02=»ES l P EJECT LDTASK P* " P* , . P***************************************** 6 P* h P* CONDITIONAL ASSEMBLY r P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P
0x29ee68…29effc Dummy {f00=0x0095, f01=0x0190, f02=»NSTRUCTION h . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* D PCPU852 EQU 0 N P* b P* l 6 P* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK v 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* PSWPBLK EQU 0 P*
0x29effc…29f190 Dummy {f00=0x0095, f01=0x018e, f02=»0 PCPU857 EQU X:B P* P EJECT LDTASK * P* B P* L 4 P* A PROGRAM VERSION USING TOSS ASSEMBLER PAGING V * P* IS OBTAINED BY SETTING ASMPAG EQU 1. P* PX:C EQU 0 PASMPAG EQU X:C P* P EJECT LDTASK
0x29f190…29f324 Dummy {f00=0x0095, f01=0x0190, f02=» p P* P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* N 4 PLD:BUF RES 128 INTERMEDIATE BUFFER FOR LOAD TASK X PLD:BUE EQU * END OF BUFFER P* $ P RES 4 LDTASK STACK (TWO LEVELS) ( PLD:STB EQU *-2 LOAD TASK STACK BASE
0x29f324…29f4b8 Dummy {f00=0x0095, f01=0x0190, f02=» P XIF P* P EJECT LDTASK P* 2 P* < P********** F P* TTABLD * X P********** j P* | P* LDTASK TTAB P* P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* ( P DATA 0 CURRENT SEGMEN
0x29f4b8…29f64c Dummy {f00=0x0095, f01=0x0190, f02=»UMMY) z P* PTTABLD EQU * TTABLD ENTRY " P DATA 0 DISPATCHER QUEUE LINK : " P DATA '#L' TASK IDENTIFICATION ` P DATA 49 PRIORITY LEVEL P DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) P DATA 0 DISPATCH ADD
0x29f64c…29f7e0 Dummy {f00=0x0095, f01=0x0190, f02=»* P EJECT LDTASK P* " P* , P********** 6 P* LT:SWB * H P********** Z P* l P* v D P* LT:SWB HANDLES THE LOADING/STORING OF SWAPPABLE WORK BLOCKS. P* 2 P* INPUT: A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P
0x29f7e0…29f974 (3, 158) Dummy {f00=0x0095, f01=0x0190, f02=»NDLING ENTRY v P IFT SWPBLK=1 P IFT MMUPAG=1 * P INH @ ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS L , P TL TTB:MT,A3 LOAD MMU WITH CALLING TASK x , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE P ENB P XIF P* P IFT SWPBLK=1
0x29f974…29fb08 Dummy {f00=0x0095, f01=0x0190, f02=»K) f * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF 8 P LD A4,SWB:DS,A1 L , P LD A6,SWB:EL,A1 SWB COPY LENGTH (BYTES) d . P LD A2,SWB:NS,A1 SWB COPY LENGTH (SECTORS) P* P EJECT LDTASK P* , P* COMPUTE DISC ADDRESS
0x29fb08…29fc9c Dummy {f00=0x0095, f01=0x0190, f02=»1 P* P IFT CPU852=1 P RF(NP) LTS:20 * 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB @ P RF(O) LTS:15 OVERFLOW x P RB LTS:10 P* $ PLTS:15 EQU * OVERFLOW CORRECTION P ADK A3,1 P ANKL A4,/7FFF P RB LT
0x29fc9c…29fe30 Dummy {f00=0x0095, f01=0x0190, f02=»WPBLK=1 P IFT CPU852=0 P MUR A1 & P DAR A3 6 P XIF F P* R P EJECT LDTASK P* t P* ~ P IFT SWPBLK=1 0 P LD A3,TTB:SA+16,A5 MEMORY ADDRESS (LOGICAL) P ADK A6,1 P LDR A4,A6 & P LD A12,SCTIPL SWB
0x29fe30…29ffc4 Dummy {f00=0x0095, f01=0x0190, f02=»RMEDIATE BUFFER j P LDK A7,/95 PHYSICAL WRITE P RF LTSWB2 STORE SWB : P XIF V P* b P EJECT LDTASK l P* P* P********** P* LT:DSK * P********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RE
0x29ffc4…2a0158 Dummy {f00=0x0095, f01=0x0190, f02=» b P* P* * PLT:DSK EQU * LDTASK DISC PAGING ENTRY , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK J P LDR* A2,A1 SEGMENT STATUS z . P RF(NN) LTD:05 SEGMENT NOT LOADED IN CORE P* 2 P* UPDATE MMU TABLE FOR CALLING TASK (IF MMU),
0x2a0158…2a02ec Dummy {f00=0x0095, f01=0x0190, f02=» CF A15,TLSEG1 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK F P* t P EJECT LDTASK ~ P* 6 P* NO PAGE AVAILABLE. PAUSE LDTASK UNTIL RESTARTED * P* BY RELPAG WHEN PAGE AVAILABLE AGAIN. P
0x2a02ec…2a0480 Dummy {f00=0x0095, f01=0x0190, f02=» RECENTLY USED PAGE FROM PAGQUE P* ( PLTD:05 EQU * 2 P LD A2,PAGQUE+2 F P CWK A2,PAGQUE ^ $ P RB(E) LTD:00 NO PAGE AVAILABLE t P* P EJECT LDTASK P* $ P* TAKE FOUND PAGE OUT OF PAGQUE P* P INH 0 P L
0x2a0480…2a0614 (3, 159) Dummy {f00=0x0095, f01=0x0190, f02=»A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK 0 . P LD A4,PAG:SB,A2 OLD SEGMENT BLOCK ADDRESS d P RF(Z) LTD:10 P LDKL A6,/7FFF 4 P ANRS A6,A4 INDICATE SEGMENT NOT LOADED ANYMORE P* P* CO
0x2a0614…2a07a8 Dummy {f00=0x0095, f01=0x0190, f02=»EW SEGMENT BLOCK ADDRESS z P* P IFT MMUPAG=1 * P* @ 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK J P* ( P LDKL A3,TTABLD LDTASK TTAB ADDRESS 2 P MS 5,TTB:SA+2,A3 SAVE A1-A5 IN TTAB SAVE AREA , P TL TTB:MT,A5 LOAD MMU WITH
0x2a07a8…2a093c Dummy {f00=0x0095, f01=0x0190, f02=»A3 $ P LD A1,TTB:AP,A5 GET ACB ADDRESS , P ST A1,TTB:AP,A3 STORE IN LDTASK'S TTAB 2 P LDR A1,A2 b " P LDR A5,A3 LDTASK TTAB ADDRESS t . P CF A15,TLSEG2 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A5 STORE NEW MMU TABLE FOR CALLING TASK P X
0x2a093c…2a0ad0 Dummy {f00=0x0095, f01=0x0190, f02=»E ADDRESS (PHYSICAL) | P LD A4,SCTPSZ PAGE SIZE $ P LD A6,SEG:EL,A1 SEGMENT LENGTH < * P LDR A9,A1 SAVE SEGMENT BLOCK ADDRESS d $ P LD A12,TTB:SP,A5 SEGTAB ADDRESS . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE P* P IFT CPU852=1
0x2a0ad0…2a0c64 Dummy {f00=0x0095, f01=0x0190, f02=»ADDRESS z P XIF P* P IFT MMUPAG=0 & 2 P ST* A3,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE < P XIF r P* ~ P EJECT LDTASK P* P* P IFT SWPBLK=1 P* P* P********** P* LTSWB1 * P* LTSW
0x2a0c64…2a0df8 Dummy {f00=0x0095, f01=0x0190, f02=»ANDLING IS SIMILAR TO v P* DISC PAGING HANDLING. P* @ 0 P* INPUT: A1 = DISC SECTOR NUMBER, PART 1 J 0 P* A2 = " " " , PART 2 ~ . P* A3 = MEMORY ADDRESS (LOGICAL) & P* A4 = SWB SIZE (BYTES)
0x2a0df8…2a0f8c Dummy {f00=0x0095, f01=0x018e, f02=»WRITE (LTSWB2 ONLY) j N P* A9 = 0 (INDICATES SWB HANDLING BY SETTING SEGBLK ADDRESS = 0) $ P* A12 = DISC FILE CODE n P* P* P XIF P* & PLTSWB1 EQU * ENTRY USED BY LT:SWB P ANK A1,/FF P LDK A7,/9
0x2a0f8c…2a1120 Dummy {f00=0x0095, f01=0x0190, f02=» & P LDR A11,A4 PAGE/SWB SIZE (WORDS) P SRL A6,1 . ( P LDR A10,A6 SEGMENT/SWB SIZE (WORDS) @ P* l P* SET ECB PARAMETERS v P* " P LDKL A8,LD:ECB LD:ECB ADDRESS * P STR A12,A8 SET DISC FILE CODE IN ECB ( P CM ECBEL,A8 RESET EFFEC
0x2a1120…2a12b4 (3, 160) Dummy {f00=0x0095, f01=0x0190, f02=»ECTOR NUMBER IN ECB z P ST A2,ECBCW2,A8 P XIF 4 P* @ P IFT CPU852=0 J , P MS 2,ECBCW1,A8 SET SECTOR NUMBER IN ECB ` P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3 P* P IFT
0x2a12b4…2a1448 Dummy {f00=0x0095, f01=0x0190, f02=»K P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL P* F P SRL A1,3 P & P ANK A1,/1E MMUTAB INDEX (5 BITS) b P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A2,/3C P SRC
0x2a1448…2a15dc Dummy {f00=0x0095, f01=0x0190, f02=»* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* @ P SLL A3,2 J P LD A2,TTB:AP,A5 ACB ADDRESS P LDR A12,A3 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,ACBLAP,A2 P* PLTD:40 EQU * P S
0x2a15dc…2a1770 Dummy {f00=0x0095, f01=0x0190, f02=»SET BUFFER ADDRESS P* ! P IFT SWPBLK=1 ! $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ! : P RF(Z) LTD:45 SWB HANDLING ! n P XIF ! P* ! P IFT ASMPAG=1 ! P LDR* A1,A9 SEGMENT STATUS ! ( P SLL A1,1 CHECK IF ASSEMBLER SEGMENT ! (
0x2a1770…2a1904 Dummy {f00=0x0095, f01=0x0190, f02=»CCESSARY ! r P* " PLTD:45 EQU * " . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 " . P ANKL A10,/7F80 " ` . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH " x * P RF(NN) LTD:50 OK, JUST ONE LKM NEEDED " P LDR A10,A6 " . P ANKL A10,/7F80 NEXT LOWER M
0x2a1904…2a1a98 Dummy {f00=0x0095, f01=0x0190, f02=»TO BYTES " t , P RF(Z) LTD:55 INTERMEDIATE BUFFER NEEDED # 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB # @ P* # t P EJECT LDTASK # ~ P* # P* READ/WRITE SEGMENT SWB # P* # ( P CF A14,LD:IO READ/WRITE SEGMENT/SWB # 2 P ADK A6,0 CHECK IF
0x2a1a98…2a1c2c Dummy {f00=0x0095, f01=0x0190, f02=»D AND MOVE LAST PART OF SEGMENT/SWB # ~ P* $ , 4 P* COMMON EXIT FOR DISC PAGING, ASSEMBLER PAGING $ 6 2 P* AND SWAPPABLE WORK BLOCK HANDLING REQUESTS. $ n P* $ PLDEXIT EQU * $ P IFT SWPBLK=1 $ 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) $
0x2a1c2c…2a1dc0 Dummy {f00=0x0095, f01=0x0190, f02=» EQU * $ P ORRS A4,A9 % P* % " PLDEXI3 EQU * % , * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK % @ P* % n P EJECT LDTASK % x P* % P* % P********** % P* LD:IO * % P********** % P* % P* % < P* LDTASK I/O ROUTINE FOR
0x2a1dc0…2a1f54 (3, 161) Dummy {f00=0x0096, f01=0x0190, f02=»GAIN. CREDIT APPLICATIONS % n 8 P* ARE RESTARTED AT THE SPECIFIED REENTER ADDRESS. & " P* & ^ 2 P* INPUT: A5 = TTAB ADDRESS OF CALLING TASK & h P* A7 = ORDER CODE & P* A8 = LD:ECB ADDRESS & ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) & P*
0x2a1f54…2a20e8 Dummy {f00=0x0096, f01=0x0190, f02=» CODE AND ABORT IF ERROR & P* ' P LD A2,ECBRC,A8 RETURN CODE ' * " P ANKL A2,/FEFF SKIP RETRY BIT ' N P RF(NZ) LDIO10 DISC ERROR ' t P RTN A14 NO, RETURN ' P* ' P EJECT LDTASK ' P* ' 2 P* ERROR: SET RETURN CODE IN A7 OF CALLING
0x2a20e8…2a227c Dummy {f00=0x0096, f01=0x0190, f02=»ET RETURN CODE IN A7 ' z P* ( P IFT SWPBLK=1 ( & 0 P LDR A9,A9 CHECK SEGBLK ADDRESS (=0 IF SWB) ( < P RB(Z) LDEXI3 SWB HANDLING ( p P XIF ( P* ( " P* INSERT PAGE IN PAGQUE AGAIN ( P* ( ( P LD A3,SEG:PB,A9 PAGE BLOCK ADDRESS ( P INH
0x2a227c…2a2410 Dummy {f00=0x0096, f01=0x0190, f02=»ER SEGMENT ( v ( P RF(N) LDIO20 YES, ASSEMBLER SEGMENT ) P XIF ) > P* ) J 2 P LD* A4,TTB:AP,A5 APPLICATION RESTART ADDRESS ) T . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS ) P* ) PLDIO20 EQU * ) $ P LDKL A4,/100 SEGMENT ERROR BIT ) P RB LD
0x2a2410…2a25a4 Dummy {f00=0x0096, f01=0x0190, f02=» ) P********** * P* * P* * $ 6 P* THIS ENTRY IS CALLED FROM THE LDTASK MAIN FLOW * . 8 P* WHEN LOADING OF AN ASSEMBLER SEGMENT IS WANTED. * h 2 P* ASSPAG WILL READ ONE SECTOR AT A TIME AND * * P* PERFORM THE NECESSARY RELOCATIONS. * P
0x2a25a4…2a2738 Dummy {f00=0x0096, f01=0x018e, f02=»SS * z P* A9 = SEGBLK ADDRESS + $ P* A10 = SEGMENT LENGTH (WORDS) + * P* A11 = PAGE SIZE (WORDS) + R , P* A12 = PAGE ADDRESS (RELOCATION BASE) + v P* + P* + ( PASSPAG EQU * ASSEMBLER PAGING ENTRY + P LDK A1,1 + , P SC A1,ECBRL,A8
0x2a2738…2a28cc Dummy {f00=0x0096, f01=0x0190, f02=» P EJECT LDTASK , P* , P* , & P IFT ASMPAG=1 , 0 P* , F . P* PREPARE FOR RELOCATION OF ONE SECTOR AND , P 4 P* CHECK REMAINING PAGE SIZE. IF NOT LARGE ENOUGH , 6 P* THEN READ (LAST) SECTOR TO INTERMEDIATE BUFFER, , 2 P* ELSE READ SECTOR D
0x2a28cc…2a2a60 Dummy {f00=0x0096, f01=0x0190, f02=»SEGMENT POINTER , P* - P XIF - " P* - . P IFT ASMPAG=1 - 8 P IFT MMUPAG=1 - N . P LD A1,LD:LAD GET LOGICAL ADDRESS POINTER - d P XIF - P* - P IFT ASMPAG=1 - * P CWK A11,128 CHECK REMAINING PAGE SIZE - , P RF(L) ASS:85 INTERMEDIA
0x2a2a60…2a2bf4 (3, 162) Dummy {f00=0x0096, f01=0x0190, f02=»ON BITS - l P CWK A10,120 . P RF(NL) ASS:02 . $ P LDR A2,A10 . : P ADR A2,A2 . N P* . ` PASS:02 EQU * . j P ADR A2,A1 . ~ P* . P EJECT LDTASK . P* . " P* RELOCATE ONE SEGMENT SECTOR . P* . PASS:05 EQU * . P SRL A2,
0x2a2bf4…2a2d88 Dummy {f00=0x0096, f01=0x0190, f02=»ION BITS COUNTER . ~ P* / P IFT MMUPAG=1 / " 2 P LDR A8,A8 CHECK WHERE TO FIND RELOCATION BITS / 8 , P RF(Z) ASS:15 RELOCATION BITS IN LD:BUF / n " P ELR A4,A2 16 RELOCATION BITS / P RF ASS:20 / P XIF / P* / P IFT ASMPAG=1 / PASS:15
0x2a2d88…2a2f1c Dummy {f00=0x0096, f01=0x0190, f02=»25 EQU * / 0 P LDR A6,A3 NUMBER OF RELOCATION BITS TO SKIP 0 P RF ASS:45 0 D P* 0 V P EJECT LDTASK 0 ` P* 0 x P* 0 PASS:30 EQU * 0 * P SLL A4,1 NEXT RELOCATION BIT TO TEST 0 & P RB(Z) ASS:25 NEXT RELOCATION WORD 0 P* 0 PASS:40
0x2a2f1c…2a30b0 Dummy {f00=0x0096, f01=0x0190, f02=»* 0 PASS:45 EQU * 1 . P SUR A3,A6 UPDATE RELOCATION BITS COUNTER 1 2 P SRL A1,1 WORD ADDRESS FOR SEGMENT POINTER =1 1 P 0 P ADR A1,A6 UPDATE SEGMENT POINTER (WORD) =1 1 0 P RF(O) ASS:70 ALL RELOCATED,END OF SECTOR =1 1 2 P SLL A1,1 BYTE ADDRESS FOR
0x2a30b0…2a3244 Dummy {f00=0x0096, f01=0x0190, f02=»ORD 1 P* 2 PASS:50 EQU * 2 P IFT MMUPAG=0 2 * $ P ADRS A12,A1 ADD RELOCATION BASE 2 @ P XIF 2 h P* 2 t P IFT ASMPAG=1 2 ~ P IFT MMUPAG=1 2 P ELR A6,A1 WORD TO RELOCATE 2 $ P ADR A6,A12 ADD RELOCATION BASE 2 $ P ESR A6,A1 STORE R
0x2a3244…2a33d8 Dummy {f00=0x0096, f01=0x0190, f02=»F SECTOR OR IF NEW RELOCATION WORD NEEDED 2 P* 3 2 PASS:60 EQU * 3 < P LDR A6,A1 SEGMENT POINTER 3 P P SRL A6,1 WORD ADDRESS 3 r 4 P SUR A6,A13 COMPARE WITH END OF REL. ADDRESS =2 3 P ADK A6,0 SET CR =2 3 $ P RF(NN) ASS:70 END OF SECTOR =2 3
0x2a33d8…2a356c Dummy {f00=0x0096, f01=0x0190, f02=»INTER 3 j ( P RB ASS:10 NEXT RELOCATION BITS WORD 4 P* 4 : P EJECT LDTASK 4 D P* 4 . P* RETURN IF SEGMENT LOADING IS COMPLETED, 4 f . P* ELSE PREPARE FOR READING OF NEXT SECTOR. 4 P* 4 PASS:70 EQU * 4 * P SUKL A10,120 DECREMENT SEGMENT
0x2a356c…2a3700 Dummy {f00=0x0096, f01=0x018e, f02=»E PAGE ADDRESS 4 z P XIF 5 P* 5 " P IFT ASMPAG=1 5 , P IFT MMUPAG=1 5 B 2 P ADS A4,LD:LAD UPDATE LOGICAL ADDRESS POINTER 5 X P LDK A3,0 5 P MLR 2,A8 BUFFER ADDRESS 5 P SLC A1,4 5 P DLL 1 5 P SRL A2,1 5 P DAR A3 5 P SLL A
0x2a3700…2a3894 (3, 163) Dummy {f00=0x0096, f01=0x0190, f02=» 5 ~ P* 6 P* 6 P IFT ASMPAG=1 6 * P IM ECBCW2,A8 INCREMENT SECTOR NUMBER 6 2 P RF(O) ASS:80 OVERFLOW 6 ` ( P RB ASS:00 READ NEXT SECTOR TO PAGE 6 ~ P* 6 PASS:80 EQU * 6 & P LDKL A4,/7FFF OVERFLOW CORRECTION 6 P ANS A4,ECBCW2,A8 6
0x2a3894…2a3a28 Dummy {f00=0x0096, f01=0x0190, f02=»INTERMEDIATE BUFFER. 6 z 0 P* MOVE CODE BUT NOT RELOCATION BITS TO PAGE. 7 P* 7 P PASS:85 EQU * 7 Z . P LDR A13,A10 SAVE REMAINING SEGMENT LENGTH 7 n P LDR A6,A10 7 & P LDR A11,A12 SAVE RELOCATION BASE 7 $ P LDR A12,A1 ACTUAL PAGE ADDRESS 7 6 P S
0x2a3a28…2a3bbc Dummy {f00=0x0096, f01=0x0190, f02=»S OF CODE TO RELOCATE 7 v P LDR A10,A13 8 0 P LDR A2,A13 REMAINING SEGMENT LENGTH (WORDS) 8 2 2 P ADR A2,A2 DISPL. IN SECTOR TO RELOCATION BITS 8 f . P ADKL A2,LD:BUF ADDRESS TO RELOCATION BITS 8 P* 8 P IFT MMUPAG=1 8 2 P SUR A8,A8 INDICATE RELOCA
0x2a3bbc…2a3d50 Dummy {f00=0x0096, f01=0x0190, f02=»TS 8 b 4 P LDR A1,A12 LOGICAL ADDRESS OF CODE TO RELOCATE 9 ( P LDR A12,A11 RESTORE RELOCATION BASE 9 B . P RB ASS:10 RELOCATE LAST SECTOR AND RETURN 9 n P XIF 9 P* 9 P EJECT LDTASK 9 P* 9 P* 9 P********** 9 P* LDSECT * 9 P*
0x2a3d50…2a3ee4 Dummy {f00=0x0096, f01=0x0190, f02=»RMEDIATE BUFFER 9 r P* : ( P* INPUT: A6 = NO OF WORDS TO MOVE : " $ P* A8 = LD:ECB ADDRESS : N ( P* A9 = SEGBLK ADDRESS (=0 IF SWB) : v 0 P* A10 = EFFECTIVE LENGTH, LAST I/O : B P* A12 = LAST USED PAGE ADDRESS, LOGICAL (
0x2a3ee4…2a4078 Dummy {f00=0x0096, f01=0x0190, f02=»UAL PAGE ADDRESS (LOGICAL) : | , P* A1-A4, A7, A10 ARE DESTROYED ; " P* ; R P* ; PLDSECT EQU * ; f , P ADR A12,A10 UPDATE DESTINATION POINTER ; z P* ; P EJECT LDTASK ; P* ; P* SET ECB PARAMETERS ; P* ; PLDSEC2 EQU *
0x2a4078…2a420c Dummy {f00=0x0096, f01=0x0190, f02=»ATE BUFFER NOW IN SYSTEM AREA ; P ADK A2,/80 A2 := 256 < & 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR < D P LDKL A4,/7FFF < ~ P XIF < P* < P IFT CPU852=0 < P MLK 4 < P DATA LD:BUF,256 < P DATA /80,/7FFF < 2 P SCR A3,A8
0x2a420c…2a43a0 Dummy {f00=0x0096, f01=0x018e, f02=» * P ADS A2,ECBCW2,A8 UPDATE SECTOR NUMBER = P RF(O) LDS:30 OVERFLOW = 2 P* = P PLDS:10 EQU * = Z , P CF A14,LD:IO READ ONE SECTOR TO LD:BUF = n $ P LDR A2,A12 DESTINATION POINTER = & P ADR A6,A6 CONVERT LENGTH TO BYTES = P* = P EJECT LDTAS
0x2a43a0…2a4534 (3, 164) Dummy {f00=0x0096, f01=0x018e, f02=» P XIF > P* > PLDS:20 EQU * > P IFT MMUPAG=0 > . P IFT CPU852=1 > D P LDR* A10,A1 MOVE ONE WORD > Z P STR A10,A2 > | ( P ADK A1,2 INCREMENT BUFFER POINTERS > P ADK A2,2 > P SUK A6,2 DECREMENT COUNTER > P RB(P) LDS:20 > P
0x2a4534…2a46c8 Dummy {f00=0x0096, f01=0x018e, f02=» > ( P ADK A1,2 INCREMENT BUFFER POINTERS ? P ADK A2,2 ? 4 P SUK A6,2 DECREMENT COUNTER ? F P RB(P) LDS:20 ? j P XIF ? P* ? P IFT MMUPAG=0 ? P IFT CPU852=0 ? P IFT CPU857=1 ? 2 P MVB A6 MOVE REMAINING PART OF SEGMENT TO PAGE ?
0x2a46c8…2a485c Dummy {f00=0x0096, f01=0x0190, f02=» ? | P RB LDS:10 @ P* @ P EJECT LDTASK @ $ P* @ < P* @ F P********** @ P P* QLTDSK * @ b P* QLTSWB * @ t P********** @ P* @ P* @ : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. @ P* @ : P* ACTIVATION IS AT
0x2a485c…2a49f0 Dummy {f00=0x0096, f01=0x018e, f02=» = SEGMENT BLOCK ADDRESS (LT:DSK) @ 6 P* = SWAPPABLE WORK BLOCK ADDRESS (LT:SWB) A * 2 P* A3 = TTAB ADDRESS OF CALLING TASK A d * P* A4 = LKM DATA DIRECTIVE (LT:SWB) A P* A $ P* OUTPUT: A2, A5 ARE DESTROYED A P* A P* A
0x2a49f0…2a4b84 Dummy {f00=0x0096, f01=0x018e, f02=» P XIF B P* B P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x2a4b84…2a4d18 Dummy {f00=0x0096, f01=0x4014, f02=» P END C @ C P IFT SWPBLK=0 B 6 P ABL LKMERR INDICATE SYSGEN ERROR AND HALT SYSTEM B 0 P XIF B j P* B v 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK B $ P LDKL A2,LT:DSK DISPATCH ADDRESS B P* B P EJECT LDTASK B P* B P
0x2a4d18…2a4eac Dummy {f00=0x0096, f01=0x2008, f02=» D NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x2a4eac…2a5040 Dummy {f00=0x0096, f01=0x0190, f02=»NB GIVE OTHER TASKS A CHANCE D P* E & * PTIO260 LDK A5,DWTSB2 LOAD STACK BASE 2 E 0 P ADR A5,A6 E ^ P INH E p & P ABR* A12 GO TO DRIVER ACTIVATION E | P* E P EJECT TOSSIO E P* E P* E P********** E P* SWITCH * E P********
0x2a5040…2a51d4 (3, 165) Opaque[0x194]
0x2a51d4…2a5368 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x2a51d4…2a5368 IdxSect {
0x2a51d4…2a5368 f00 = 0x0097 // 0x2a51d4 @0x0
0x2a51d4…2a5368 f01 = 0x0004 // 0x2a51d6 @0x2
0x2a51d4…2a5368 gno = [ // 0x2a51d8 @0x4
0x2a51d4…2a5368 [0x00]: C0x0097.0x0.0
0x2a51d4…2a5368 [0x01]: C0x0097.0x2.0
0x2a51d4…2a5368 ]
0x2a51d4…2a5368 }
0x2a5368…2a54fc Dummy {f00=0x0097, f01=0x0190, f02=» 2 P IDENT ST8000 REL 11.0 81-01-26 870105041100 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* PST8000 EQU * P* P
0x2a54fc…2a5690 Dummy {f00=0x0097, f01=0x018e, f02=» P DATA ILLINT P DATA ILLINT 6 $ P DATA IHTW 7 @ P DATA IASCUZ 8 Z P DATA IHSOP 9 v P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P
0x2a5690…2a5824 Dummy {f00=0x0097, f01=0x0190, f02=» P DATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 < P DATA ILLINT 22 X P DATA ILLINT 23 t P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA IL
0x2a5824…2a59b8 Dummy {f00=0x0097, f01=0x0190, f02=»A ILLINT 33 P DATA ILLINT 34 P DATA ILLINT 35 4 P DATA ILLINT 36 P P DATA ILLINT 37 l P DATA ILLINT 38 P DATA ILLINT 39 P DATA ILLINT 40 P DATA ILLINT 41 P DATA ILLINT
0x2a59b8…2a5b4c Dummy {f00=0x0097, f01=0x0190, f02=» 47 P DATA ILLINT 48 P DATA ILLINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x2a5b4c…2a5ce0 Dummy {f00=0x0097, f01=0x4034, f02=» | P DATA ILLINT 62 P END $@ 0LINT 49 , P DATA ILLINT 50 H P DATA ILLINT 51 d P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56
0x2a5ce0…2a5e74 (3, 166) Dummy {f00=0x0097, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x2a5e74…2a6008 Dummy {f00=0x0097, f01=0x0190, f02=»D A1,ECBRL,A8 REQUESTED LENGTH V 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE W & 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE W 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES W P CWK A7,1 CHECK ORDER CODE W , P RF(E) TIKB20 NO KEYTA
0x2a6008…2a619c Dummy {f00=0x0097, f01=0x0190, f02=» P* X P* X P LDR A1,A9 X P ADK A1,8 X * P ADKL A8,12 X < * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS X P P SUKL A8,4 X ~ * P ELR A3,A4 FIRST WORD OF USER KEYTABLE X P ANK A4,1 X * P RF(NZ) TIKB10 KEYTABLE ADDRESS UNEVEN X , P ECR A3,A3
0x2a619c…2a6330 Dummy {f00=0x0097, f01=0x0190, f02=»KEYTABLE BUFFER SIZE X x P RF(G) IO:ERR TOO SMALL Y P CF A15,TIPO05 Y < & P SUKL A8,8 ADJUST DWT ECB ADDRESS Y R P* Y | PTIKB20 EQU * Y P RTN A15 Y P* Y P EJECT TOSSIO Y P* Y P* T I O I T I Y P* Y 4 PTIOITI EQU A15RTN
0x2a6330…2a64c4 Dummy {f00=0x0097, f01=0x0190, f02=» TOSSIO Y P* Z P* T I O P C O Z P* Z 0 B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN Z : > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. Z B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES NOT EXCEED THE DWT Z D P
0x2a64c4…2a6658 Dummy {f00=0x0097, f01=0x0190, f02=»ALLED BY 'TENDIO' AT Z t , P* COMPLETION OF THE REQUEST IS 'TENPCO'. [ 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. [ L F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. [ & P* TIOPCO IS ALSO USED BY 'DC:MOT'. [ P* [ P* IN
0x2a6658…2a67ec Dummy {f00=0x0097, f01=0x0190, f02=» * PROGRAMMED CHANNEL, OUTPUT [ 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK & $ P LD A3,ECBRL,A8 REQUESTED LENGTH ^ ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE 6 P RF(G) IO:ERR REQ. LENGTH EXCEED
0x2a67ec…2a6980 Dummy {f00=0x0097, f01=0x0190, f02=»NTRY POINT USED BY 'TIOKBI' AND 'TENITO' P ADK A3,1 ] 0 . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN ] B ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS ] t & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS ] 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADDRESS EVEN ] P LDR A4,A1
0x2a6980…2a6b14 (3, 167) Opaque[0x194]
0x2a6b14…2a6ca8 # DirEnt {nam=»DRND01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1420, f03=0x0000}
0x2a6b14…2a6ca8 IdxSect {
0x2a6b14…2a6ca8 f00 = 0x00a1 // 0x2a6b14 @0x0
0x2a6b14…2a6ca8 f01 = 0x001e // 0x2a6b16 @0x2
0x2a6b14…2a6ca8 gno = [ // 0x2a6b18 @0x4
0x2a6b14…2a6ca8 [0x00]: C0x00a1.0x0.0
0x2a6b14…2a6ca8 [0x01]: C0x00fb.0x3.0
0x2a6b14…2a6ca8 [0x02]: C0x00fc.0x2.0
0x2a6b14…2a6ca8 [0x03]: C0x00fc.0x3.0
0x2a6b14…2a6ca8 [0x04]: C0x00fd.0x0.0
0x2a6b14…2a6ca8 [0x05]: C0x00fd.0x1.0
0x2a6b14…2a6ca8 [0x06]: C0x00fd.0x2.0
0x2a6b14…2a6ca8 [0x07]: C0x00fd.0x3.0
0x2a6b14…2a6ca8 [0x08]: C0x00fe.0x0.0
0x2a6b14…2a6ca8 [0x09]: C0x00fe.0x1.0
0x2a6b14…2a6ca8 [0x0a]: C0x00fe.0x2.0
0x2a6b14…2a6ca8 [0x0b]: C0x00fe.0x3.0
0x2a6b14…2a6ca8 [0x0c]: C0x00ff.0x0.0
0x2a6b14…2a6ca8 [0x0d]: C0x00ff.0x1.0
0x2a6b14…2a6ca8 [0x0e]: C0x00ff.0x2.0
0x2a6b14…2a6ca8 ]
0x2a6b14…2a6ca8 }
0x2a6ca8…2a6e3c Dummy {f00=0x00a1, f01=0x0190, f02=» 2 P IDENT DRND01 REL 11.0 81-05-27 870105041100 P : $ P =2, INTERRUPT TABLES INCLUDED B P REL 11.0 81-05-25 j ( P =1, COND. ASS. FOR ONLY SUM-CONN. P REL 11.0 81-01-26 P* P* P* @ P****************************
0x2a6e3c…2a6fd0 Dummy {f00=0x00a1, f01=0x0190, f02=»RIBUTOR l P* P* P* $ @ P************************************************************ . P* r P* | 6 P* THIS PROGRAM CONTAINS INPUT AND OUTPUT ENTRIES 6 P* CALLED BY TERMINAL DEVICE DRIVERS. AT CALL, IT 6 P* CHECKS CHA
0x2a6fd0…2a7164 Dummy {f00=0x00a1, f01=0x0190, f02=»UCTION MAKES IT p 8 P* POSSIBLE TO HAVE ONLY ONE TERMINAL DEVICE DRIVER 2 P* FOR EACH TERMINAL DEVICE, IRRESPECTIVE OF T 4 P* CONNECTION TYPE. IT IS ALSO POSSIBLE TO USE 6 P* SEVERAL TERMINAL DEVICE CHANNEL UNITS TOGETHER P* IN THE S
0x2a7164…2a72f8 Dummy {f00=0x00a1, f01=0x0190, f02=»IVERS ` P* AND LINE DRIVERS. P* , P EJECT 6 P* D : P* THE PROGRAM IS DIVIDED INTO A NUMBER OF SECTIONS. N 4 P* SECTIONS CONTAINING PROGRAM CODE ARE DIVIDED 2 P* INTO ROUTINES. THE ROUTINES ARE LISTED AT 4 P* BEGINNING
0x2a72f8…2a748c Dummy {f00=0x00a1, f01=0x0190, f02=»ENTRIES DECLARE ENTRY POINTS . P* EXTERNALS DECLARE EXTERNAL REFERENCES ( 6 P* CONDITION SET CONDITIONAL ASSEMBLY PARAMETERS Z & P* CONSTANTS SET CONSTANT VALUES P* DATA DATA AREAS P* 4 P* DEVICE DR ROUTINES CALLED BY DEV
0x2a748c…2a7620 Dummy {f00=0x00a1, f01=0x0190, f02=»* P*********** P* ( P* TERMINAL DEVICE DRIVER REQUESTS ( P* T ( P ENTRY INPUT INPUT OF ONE CHARACTER ^ ( P ENTRY STABLK DEFINE START OF BLOCK * P ENTRY OUTPUT OUTPUT OF ONE CHARACTER & P ENTRY ENDBLK DEFINE END OF BLOCK
0x2a7620…2a77b4 (3, 168) Dummy {f00=0x00fb, f01=0x0190, f02=»ACTER FROM ECB-BUFFER v $ P ENTRY ABORT ABORT INPUT REQUEST P* F P* P . P* TERMINAL DEVICE DRIVER EXIT ROUTINES Z P* 2 P ENTRY LENDER REQUEST ERR, END I/O & DISPATCH $ P ENTRY LENDIS END I/O & DISPATCH P ENTRY LDISP DISPATC
0x2a77b4…2a7948 Dummy {f00=0x00fb, f01=0x0190, f02=»ETURN | P ENTRY NDREP POP & RETURN P ENTRY NDRET RETURN 0 P* L P EJECT V P* d & P* LINE DRIVER SERVICE ROUTINES n P* * P ENTRY NDSAV8 SAVE A3-A5, A7-A8 IN DWT , P ENTRY NDGET8 GET A3-A5, A7-A8 FROM DWT 0 P ENTRY N
0x2a7948…2a7adc Dummy {f00=0x00fb, f01=0x0190, f02=» ( P ENTRY NDGEDW CALCULATE DWT ADDRESS P* 0 P EJECT : P* H " P* INTERRUPT TABLE FOR CHLT R P* x & P ENTRY INTLT1,INTLT2,INTLT3,INTLT4 P* " P* INTERRUPT TABLE FOR CHRT P* & P ENTRY INTRT1,INTRT2,INTRT3,INTRT4
0x2a7adc…2a7c70 Dummy {f00=0x00fb, f01=0x0190, f02=»7,INTSL8 v P* $ P* INTERRUPT TABLE FOR ASCU4Z P* B & P ENTRY INTAS1,INTAS2,INTAS3,INTAS4 L & P ENTRY INTAS5,INTAS6,INTAS7,INTAS8 v P* ( P* INTERRUPT TABLE FOR PLC - LOCAL P* & P ENTRY INTPL1,INTPL2,INTPL3,INTPL4
0x2a7c70…2a7e04 Dummy {f00=0x00fb, f01=0x0190, f02=»ABLE FOR VIDEO P* & P ENTRY INTVU1,INTVU2,INTVU3,INTVU4 & P ENTRY INTVU5,INTVU6,INTVU7,INTVU8 J P* t P EJECT ~ P* P************* P* EXTERNALS * P************* P* P* TOSS ROUTINES P* ( P E
0x2a7e04…2a7f98 Dummy {f00=0x00fb, f01=0x0190, f02=»I/O REQUEST ~ P* P* * P* REQUEST ROUTINES IN LINE DRIVERS ( P* V P* CHLT ` P* t " P EXTRN LTCHRI CHARACTER INPUT ~ P EXTRN LTSTBL START OF BLOCK " P EXTRN LTCHRO CHARACTER OUTPUT P EXTRN LTENBL END OF BLOCK
0x2a7f98…2a812c Dummy {f00=0x00fb, f01=0x018e, f02=»OF BLOCK | " P EXTRN RTCHRO CHARACTER OUTPUT P EXTRN RTENBL END OF BLOCK 6 P EXTRN RTDISP DISPATCH X P* v P EJECT P* P* SALCUZ P* " P EXTRN SLCHRI CHARACTER INPUT P EXTRN SLSTBL START OF BLOCK " P EXTRN
0x2a812c…2a82c0 Dummy {f00=0x00fb, f01=0x018e, f02=» " P EXTRN ASCHRI CHARACTER INPUT P EXTRN ASSTBL START OF BLOCK * " P EXTRN ASCHRO CHARACTER OUTPUT N P EXTRN ASENBL END OF BLOCK t P EXTRN ASDISP DISPATCH P* P* FT80 P* " P EXTRN FTCHRI CHARACTER INPUT P EXTRN
0x2a82c0…2a8454 (3, 169) Dummy {f00=0x00fc, f01=0x0190, f02=» P* PLC - LOCAL P* " " P EXTRN PLCHRI CHARACTER INPUT , P EXTRN PLSTBL START OF BLOCK R " P EXTRN PLCHRO CHARACTER OUTPUT v P EXTRN PLENBL END OF BLOCK P EXTRN PLDISP DISPATCH P* P EJECT P* P* PLC
0x2a8454…2a85e8 Dummy {f00=0x00fc, f01=0x0190, f02=» P EXTRN PRENBL END OF BLOCK P EXTRN PRDISP DISPATCH & P* D P* VIDEO N P* b " P EXTRN VUCHRI CHARACTER INPUT l P EXTRN VUSTBL START OF BLOCK " P EXTRN VUCHRO CHARACTER OUTPUT P EXTRN VUENBL END OF BLOCK P EXTRN VUD
0x2a85e8…2a877c Dummy {f00=0x00fc, f01=0x0190, f02=»XTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS P EXTRN DWTOR INDEX AND ORDER < . P EXTRN DWTADR DRIVER ADDRESS BLOCK ADDRESS ` * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR " P EXTRN DWTA3 SAVE AREA FOR A3 " P EXTRN DWTA4 SAVE AREA FOR A4
0x2a877c…2a8910 Dummy {f00=0x00fc, f01=0x0190, f02=»OR A8 x 4 P EXTRN DWTECH DWT ADDRESS OF ECHO OUTPUT DEVICE P* F P* P P* ECB DISPLACEMENTS Z P* x P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH " P EXTRN ECBEL EFFECTIVE LENGTH P* P* P*
0x2a8910…2a8aa4 Dummy {f00=0x00fc, f01=0x0190, f02=»LOCK b P* P EJECT P* $ P************************ . P* CONDITIONAL ASSEMBLY * N P************************ n P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P*
0x2a8aa4…2a8c38 Dummy {f00=0x00fc, f01=0x0190, f02=»ARE USED IN THE SYSTEM. t ( P* 0 MEANS CHANNEL UNIT IS NOT USED. $ P* 1 MEANS CHANNEL UNIT IS USED. L P* t PX:A EQU 0 ~ PLT EQU 01 CHLT P* PX:B EQU 0 PRT EQU 01 CHRT P* PX:C EQU 0 PSL EQU 00 SALCUZ
0x2a8c38…2a8dcc Dummy {f00=0x00fc, f01=0x018e, f02=» EQU 00 PLC - LOCAL P* P EJECT & P* 4 PX:G EQU 0 > PPR EQU 00 PLC - REMOTE P P* n PX:H EQU 0 x PVU EQU 00 VIDEO P* P* * P* ECHO FUNCTION IS INCLUDED IF CECHO=1 P* PX:I EQU 1 PCECHO EQ
0x2a8dcc…2a8f60 Dummy {f00=0x00fc, f01=0x0190, f02=» h P* PS1 EQU SL+AS U =1 PS2 EQU S1+FT U =1 , PS3 EQU S2+PL U =1 F PS4 EQU S3+PR U =1 ` PS5 EQU S4+VU U =1 z P* PNTONSU EQU S5 U =1 P* P EJECT P* P************* P* CONSTANTS * P**
0x2a8f60…2a90f4 (3, 170) Dummy {f00=0x00fc, f01=0x0190, f02=»MODE z $ PDWFINP EQU /0020 INPUT REQUESTED P* 4 P* > P* MISCELLANEOUS H P* b 0 PNOTOPR EQU /0001 RETURN CODE "NOT OPERABLE" l 6 PCONFER EQU /0001 RETURN CODE "CONFIGURATION ERROR" 0 PREQERR EQU /8000 RETURN CODE "REQUEST ERROR"
0x2a90f4…2a9288 Dummy {f00=0x00fc, f01=0x0190, f02=» P************** P* P IFF NTONSU=0 U =1 $ P* > P* DISPATCH TABLES H P* d P* CHARACTER INPUT n PINPTAB EQU * P IFT LT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCH
0x2a9288…2a941c Dummy {f00=0x00fc, f01=0x0190, f02=»FT RT=1 P DATA RTCHRI P XIF $ P IFF NTONSU=0 U =1 0 P* J P IFT SL=0 T P DATA NDRETE f P XIF z P IFF NTONSU=0 U =1 P IFT SL=1 P DATA SLCHRI P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P
0x2a941c…2a95b0 Dummy {f00=0x00fc, f01=0x0190, f02=» P IFT FT=0 P DATA NDRETE P XIF . P IFF NTONSU=0 U =1 : P IFT FT=1 T P DATA FTCHRI f P XIF z P IFF NTONSU=0 U =1 P* P IFT PL=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P
0x2a95b0…2a9744 Dummy {f00=0x00fc, f01=0x0190, f02=» ~ P IFT PR=1 P DATA PRCHRI P XIF . P IFF NTONSU=0 U =1 : P* T P IFT VU=0 ^ P DATA NDRETE p P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN EQU *-INPTA
0x2a9744…2a98d8 Dummy {f00=0x00fc, f01=0x0190, f02=»TONSU=0 U =1 P IFT LT=1 P DATA LTSTBL & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT RT=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1 P*
0x2a98d8…2a9a6c Dummy {f00=0x00fc, f01=0x0190, f02=»TONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE 0 P XIF D P IFF NTONSU=0 U =1 P P IFT AS=1 j P DATA ASSTBL | P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1
0x2a9a6c…2a9c00 Dummy {f00=0x00fc, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLSTBL 0 P XIF D P IFF NTONSU=0 U =1 P P* j P IFT PR=0 t P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF NTONSU=0 U =1
0x2a9c00…2a9d94 (3, 171) Dummy {f00=0x00fd, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P* P* ( P* CHARACTER OUTPUT 2 POUPTAB EQU * R P IFT LT=0 f P DATA NDRETE x P XIF P IFF NTONSU=0 U =1 P IFT LT=1 P DATA LTCHRO P XIF P IFF NTONSU=0 U =1 P* P
0x2a9d94…2a9f28 Dummy {f00=0x00fd, f01=0x0190, f02=»U=0 U =1 P* P IFT SL=0 P DATA NDRETE , P XIF @ P IFF NTONSU=0 U =1 L P IFT SL=1 f P DATA SLCHRO x P XIF P IFF NTONSU=0 U =1 P* P IFT AS=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P
0x2a9f28…2aa0bc Dummy {f00=0x00fd, f01=0x0190, f02=» IFF NTONSU=0 U =1 P IFT FT=1 P DATA FTCHRO , P XIF @ P IFF NTONSU=0 U =1 L P* f P IFT PL=0 p P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PL=1 P DATA PLCHRO P XIF P IFF NTONSU=0 U =1 P
0x2aa0bc…2aa250 Dummy {f00=0x00fd, f01=0x0190, f02=» IFF NTONSU=0 U =1 P* ! P IFT VU=0 ! $ P DATA NDRETE ! 6 P XIF ! J P IFF NTONSU=0 U =1 ! V P IFT VU=1 ! p P DATA VUCHRO ! P XIF ! P IFF NTONSU=0 U =1 ! P* ! P* ! P* END OF BLOCK ! PENBTAB EQU * ! P IFT LT=
0x2aa250…2aa3e4 Dummy {f00=0x00fd, f01=0x0190, f02=» ! ~ P* " P IFT RT=0 " P DATA NDRETE " $ P XIF " 8 P IFF NTONSU=0 U =1 " D P IFT RT=1 " ^ P DATA RTENBL " p P XIF " P IFF NTONSU=0 U =1 " P* " P IFT SL=0 " P DATA NDRETE " P XIF " P IFF NTONSU=0 U =1 " P IFT SL=
0x2aa3e4…2aa578 Dummy {f00=0x00fd, f01=0x0190, f02=»NSU=0 U =1 " P IFT AS=1 # P DATA ASENBL # $ P XIF # 8 P IFF NTONSU=0 U =1 # D P* # ^ P IFT FT=0 # h P DATA NDRETE # z P XIF # P IFF NTONSU=0 U =1 # P IFT FT=1 # P DATA FTENBL # P XIF # P IFF NTONSU=0 U =1 # P* #
0x2aa578…2aa70c Dummy {f00=0x00fd, f01=0x0190, f02=»NSU=0 U =1 # P* $ P IFT PR=0 $ P DATA NDRETE $ . P XIF $ B P IFF NTONSU=0 U =1 $ N P IFT PR=1 $ h P DATA PRENBL $ z P XIF $ P IFF NTONSU=0 U =1 $ P* $ P IFT VU=0 $ P DATA NDRETE $ P XIF $ P IFF NTONSU=0 U =1 $
0x2aa70c…2aa8a0 Dummy {f00=0x00fd, f01=0x0190, f02=»QU * $ P IFT LT=0 % P DATA TDISP % P XIF % 2 P IFF NTONSU=0 U =1 % > P IFT LT=1 % X P DATA LTDISP % j P XIF % ~ P IFF NTONSU=0 U =1 % P* % P IFT RT=0 % P DATA TDISP % P XIF % P IFF NTONSU=0 U =1 % P IFT RT=1 %
0x2aa8a0…2aaa34 (3, 172) Dummy {f00=0x00fd, f01=0x0190, f02=»U =1 % P IFT SL=1 & P DATA SLDISP & P XIF & 2 P IFF NTONSU=0 U =1 & > P* & X P IFT AS=0 & b P DATA TDISP & t P XIF & P IFF NTONSU=0 U =1 & P IFT AS=1 & P DATA ASDISP & P XIF & P IFF NTONSU=0 U =1 & P* & P IFT
0x2aaa34…2aabc8 Dummy {f00=0x00fd, f01=0x0190, f02=»U =1 & P* ' P IFT PL=0 ' P DATA TDISP ' ( P XIF ' < P IFF NTONSU=0 U =1 ' H P IFT PL=1 ' b P DATA PLDISP ' t P XIF ' P IFF NTONSU=0 U =1 ' P* ' P IFT PR=0 ' P DATA TDISP ' P XIF ' P IFF NTONSU=0 U =1 ' P IFT
0x2aabc8…2aad5c Dummy {f00=0x00fd, f01=0x0190, f02=» NTONSU=0 U =1 ' P IFT VU=1 ( P DATA VUDISP ( ( P XIF ( < P* ( H P EJECT ( R P* ( ` P* INTERRUPT TABLES ( j P* ( P IFT LT=0 U =2 ( P* DUMMY ENTRIES CHLT ( PINTLT1 EQU * U =2 ( PINTLT2 EQU * U =2 ( PINTLT3 EQU *
0x2aad5c…2aaef0 Dummy {f00=0x00fd, f01=0x018e, f02=»T2 DATA 0 U =2 ( PINTLT3 DATA 0 U =2 ) PINTLT4 DATA 0 U =2 ) 0 P XIF U =2 ) J P* ) P IFT RT=0 U =2 ) f P* DUMMY ENTRIES CHRT ) | PINTRT1 EQU * U =2 ) PINTRT2 EQU * U =2 ) PINTRT3 EQU * U =2 ) PINTRT4 EQU * U =2 ) P XIF
0x2aaef0…2ab084 Dummy {f00=0x00fd, f01=0x0190, f02=» ) | PINTRT4 DATA 0 U =2 * P XIF U =2 * " P* * 4 P IFT SL=0 U =2 * > P* DUMMY ENTRIES SALCUZ * T PINTSL1 EQU * * t PINTSL2 EQU * U =2 * PINTSL3 EQU * U =2 * PINTSL4 EQU * U =2 * PINTSL5 EQU * U =2 * PINTSL6 EQU * U =2 *
0x2ab084…2ab218 Dummy {f00=0x00fd, f01=0x0190, f02=»0 U =2 * PINTSL2 DATA 0 U =2 + PINTSL3 DATA 0 U =2 + ( PINTSL4 DATA 0 U =2 + B PINTSL5 DATA 0 U =2 + PINTSL6 DATA 0 U =2 + v PINTSL7 DATA 0 U =2 + PINTSL8 DATA 0 U =2 + P XIF U =2 + P* + P IFT AS=0 U =2 + P* DUMMY ENTRIES
0x2ab218…2ab3ac Dummy {f00=0x00fd, f01=0x0190, f02=» + ~ PINTAS6 EQU * U =2 , PINTAS7 EQU * U =2 , " PINTAS8 EQU * U =2 , < P XIF U =2 , V P* , h P IFT AS=1 U =2 , r P* ASCU4Z , PINTAS1 DATA 0 U =2 , PINTAS2 DATA 0 U =2 , PINTAS3 DATA 0 U =2 , PINTAS4 DATA 0 U =2 , PINTA
0x2ab3ac…2ab540 Dummy {f00=0x00fd, f01=0x0190, f02=»0 U =2 , " P* DUMMY ENTRIES PLC - LOCAL - PINTPL1 EQU * U =2 - 4 PINTPL2 EQU * U =2 - N PINTPL3 EQU * U =2 - h PINTPL4 EQU * U =2 - P XIF U =2 - P* - P IFT PL=1 U =2 - P* PLC - LOCAL - PINTPL1 DATA 0 U =2 - PINTPL2 D
0x2ab540…2ab6d4 (3, 173) Dummy {f00=0x00fd, f01=0x0190, f02=»ES PLC - REMOTE - PINTPR1 EQU * U =2 . PINTPR2 EQU * U =2 . 2 PINTPR3 EQU * U =2 . L PINTPR4 EQU * U =2 . f P XIF U =2 . P* . P IFT PR=1 U =2 . P* PLC - REMOTE . PINTPR1 DATA 0 U =2 . PINTPR2 DATA 0 U =2 . PINTPR3 D
0x2ab6d4…2ab868 Dummy {f00=0x00fd, f01=0x0190, f02=» * U =2 . PINTVU2 EQU * U =2 / PINTVU3 EQU * U =2 / * PINTVU4 EQU * U =2 / D PINTVU5 EQU * U =2 / ^ PINTVU6 EQU * U =2 / x PINTVU7 EQU * U =2 / PINTVU8 EQU * U =2 / P XIF U =2 / P* / P IFT VU=1 U =2 / P* VIDEO /
0x2ab868…2ab9fc Dummy {f00=0x00fd, f01=0x0190, f02=»U6 DATA 0 U =2 / PINTVU7 DATA 0 U =2 0 PINTVU8 DATA 0 U =2 0 0 P XIF U =2 0 J P* 0 P EJECT 0 f P* 0 t P************************** 0 ~ P* DEVICE DRIVER ROUTINES * 0 P************************** 0 P* 0 B P* THIS SECTION CONTAINS
0x2ab9fc…2abb90 Dummy {f00=0x00fd, f01=0x0190, f02=»R SWITCH CONTROL TO THE LINE DRIVER TO WHICH 0 | D P* THE DEVICE IS CONNECTED. WHEN THE LINE DRIVER HAS PERFORMED 1 4 D P* THE REQUESTED ACTIONS, IT WILL RETURN TO THE DEVICE DRIVER, 1 | D P* EITHER DIRECTLY OR THROUGH THE TERMINAL NETWORK DISTRIBUTOR 1
0x2abb90…2abd24 Dummy {f00=0x00fd, f01=0x0190, f02=»RETURN TO THE DEVICE 1 f P* DRIVER. 2 P* 2 0 P* 2 : 0 P* ROUTINES IN ORDER OF APPEARANCE IN CODE: 2 D P* 2 x P* NAME FUNCTION 2 P* 2 2 P* INPUT FETCH ONE CHARACTER FROM INPUT DEVICE 2 * P* STABLK DEFINE START OF OUTPUT BLOCK 2 0 P
0x2abd24…2abeb8 Dummy {f00=0x00fd, f01=0x0190, f02=» 2 h $ P* ECHRTN RETURN FROM ECHO OUTPUT 3 * P* GETCHR GET CHARACTER FROM ECB BUFFER 3 0 * P* ABORT SET INPUT NO LONGER REQUESTED 3 ^ . P* LDISP DISPATCH AT I/O REQUEST COMPLETED 3 P* 3 P EJECT 3 P* 3 @ P****************************************
0x2abeb8…2ac04c Dummy {f00=0x00fd, f01=0x018e, f02=» OF ONE CHARACTER 3 t 0 P* FROM A DEVICE TO A TERMINAL DEVICE DRIVER. 4 P* 4 N P* CALL: 4 X P* CF A5,INPUT 4 h P* 4 ~ P* INPUT: 4 P* A5 = LOCAL STACK POINTER 4 P* A6 = DWT ADDRESS 4 P* 4 P* OUTPUT: 4 & P* A1 = BITS 0-14 N
0x2ac04c…2ac1e0 Dummy {f00=0x00fd, f01=0x0190, f02=» P* 5 @ P************************************************************ 5 P* 5 R PINPUT EQU * 5 P IFF NTONSU=0 U =1 5 p & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 5 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 5 P SLA A1,1 MAKE INDEX 5 P CWK A1,DTAB
0x2ac1e0…2ac374 (3, 174) Dummy {f00=0x00fd, f01=0x0190, f02=»U =1 5 & P ABL LTCHRI ACTIVATE SUM-DRIVER =1 6 P XIF U =1 6 6 P* 6 H P EJECT 6 R P* 6 ` @ P************************************************************ 6 j P* 6 P* ROUTINE NAME: 6 P* STABLK 6 P* 6 P* FUNCTION: 6 6 P* THIS ROU
0x2ac374…2ac508 Dummy {f00=0x00fd, f01=0x0190, f02=»OCK VARIES FOR 6 n P* DIFFERENT LINE DRIVERS. 7 P* 7 8 P* CALL: 7 B P* CF A5,STABLK 7 R P* 7 h P* INPUT: 7 r . P* A2 = MAXIMAL NR OF CHARACTERS IN BLOCK 7 P* A5 = LOCAL STACK POINTER 7 P* A6 = DWT ADDRESS 7 P* 7 P* OUTPUT:
0x2ac508…2ac69c Dummy {f00=0x00fd, f01=0x0190, f02=» = CONTENTS OF A1 7 P* 8 @ P************************************************************ 8 $ P* 8 h PSTABLK EQU * 8 r & P LC A1,DWTCHP,A6 CHANNEL PARAMETER 8 P IFF NTONSU=0 U =1 8 ( P ANK A1,MASKCT CLEAN CONNECTION TYPE 8 P SLA A1,1 MAKE IND
0x2ac69c…2ac830 Dummy {f00=0x00fd, f01=0x0190, f02=» 8 P IFT NTONSU=0 U =1 9 " P ANK A1,1 LOCAL OR REMOTE ? =1 9 " P ABL(Z) LTSTBL LOCAL =1 9 H P ABL RTSTBL REMOTE =1 9 h P XIF U =1 9 P EJECT 9 P* 9 @ P************************************************************ 9 P* 9 P* ROUTINE
0x2ac830…2ac9c4 Dummy {f00=0x00fd, f01=0x0190, f02=»CE DRIVER TO A DEVICE. 9 z P* : P* CALL: : ( P* CF A5,OUTPUT : 8 P* : N P* INPUT: : X P* A2 = BITS 0-7 IRRELEVANT : h P* BITS 8-15 CHARACTER : P* A5 = LOCAL STACK POINTER : P* A6 = DWT ADDRESS : P* : P* OUTPUT: : P
0x2ac9c4…2acb58 Dummy {f00=0x00fd, f01=0x0190, f02=»ENTS OF A1 : P* ; @ P************************************************************ ; P* ; ` POUTPUT EQU * ; j P IFF NTONSU=0 U =1 ; ~ & P LC A1,DWTCHP,A6 CHANNEL PARAMETER ; ( P ANK A1,MASKCT CLEAN CONNECTION TYPE ; P SLA A1,1 MAKE INDEX ;
0x2acb58…2accec Dummy {f00=0x00fd, f01=0x0190, f02=» IFT NTONSU=0 U =1 ; & P ABL LTCHRO ACTIVATE SUM-DRIVER =1 < P XIF U =1 < D P* < V P EJECT < ` P* < n @ P************************************************************ < x P* < P* ROUTINE NAME: < P* ENDBLK < P* < P* FUNCTION: <
0x2accec…2ace80 Dummy {f00=0x00fd, f01=0x0190, f02=» END OF BLOCK VARIES FOR < z P* DIFFERENT LINE DRIVERS. = P* = B P* CALL: = L P* CF A5,ENDBLK = P* = r P* INPUT: = | P* A5 = LOCAL STACK POINTER = P* A6 = DWT ADDRESS = P* = P* OUTPUT: = P* A1 = RETURN CODE = P* 0
0x2ace80…2ad014 (3, 175) Dummy {f00=0x00fe, f01=0x0190, f02=»******************************************************** = P* > @ PENDBLK EQU * > J & P LC A1,DWTCHP,A6 CHANNEL PARAMETER > ^ P IFF NTONSU=0 U =1 > ( P ANK A1,MASKCT CLEAN CONNECTION TYPE > P SLA A1,1 MAKE INDEX > P CWK A1,DTABLN INSIDE LIMIT? >
0x2ad014…2ad1a8 Dummy {f00=0x00fe, f01=0x018e, f02=»1,1 LOCAL OR REMOTE ? =1 > P ABL(Z) LTENBL LOCAL =1 ? P ABL RTENBL REMOTE =1 ? @ P XIF U =1 ? ^ P* ? p P EJECT ? z P* ? @ P************************************************************ ? P* ? P* ROUTINE NAME: ? P* ECHO ? P*
0x2ad1a8…2ad33c Dummy {f00=0x00fe, f01=0x0190, f02=» ? d 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, @ 2 P* LOAD STACKBASE AND FIND ADDRESS @ @ 4 P* TO DEVICE-DEPENDENT ECHO-ROUTINE @ v . P* PART TWO: ECHO ONE OR MORE CHARACTERS @ 2 P* CORRESPONDING TO ONE CHAR
0x2ad33c…2ad4d0 Dummy {f00=0x00fe, f01=0x0190, f02=»E DRIVER MODULE CORRESPONDING TO ECHO @ P* OUTPUT DEVICE A . P* A H 4 P* ECHO IS USED WHEN A CHARACTER SHOULD BE ECHOED A R , P* ECHEND IS USED AT END OF INPUT REQUEST A 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A A P* JUMP TO 'ECHRTN
0x2ad4d0…2ad664 Dummy {f00=0x00fe, f01=0x0190, f02=» SIGNIFICANT A p 4 P* BIT 15 1 IF MORE CHARACTERS B & P* A2 = BITS 0-7 NOT SIGNIFICANT B L & P* BITS 8-17 CHARACTER (IF ECHO) B v P* A5 = LOCAL STACK POINTER B P* A6 = DWT ADDRESS B P* B P EJECT B P* B P* OUTP
0x2ad664…2ad7f8 Dummy {f00=0x00fe, f01=0x0190, f02=»5 1 IF MORE CHARACTERS B x $ P* A2 = BITS 0-7 ZERO (IF ECHO) C & P* BITS 8-15 CHARACTER (IF ECHO) C H P* A5 = LOCAL STACK POINTER C r ( P* A6 = ADDRESS OF OUTPUT DEVICE DWT C * P* A7 = BIT 0 0 IF ECHO, 1 IF ECHEND C " P* BITS 1-15 NOT SIGNI
0x2ad7f8…2ad98c Dummy {f00=0x00fe, f01=0x0190, f02=»******************************************************** C P* D @ PECHEND EQU * D J P* D ^ P IFT CECHO=1 D h , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT D | ( P LDKL A7,/8000 INDICATE END OF ECHO D P RF ECHO10 D P* D P EJECT D P* D
0x2ad98c…2adb20 Dummy {f00=0x00fe, f01=0x0190, f02=»ND OF ECHO D x P* E P* E PECHO10 EQU * E & P LD A3,DWTST,A6 STATUS E : $ P ANKL A3,DWFECH ECHO REQUESTED? E X P RF(Z) NDREP NO, RETURN E P* E 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE E 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEV
0x2adb20…2adcb4 (3, 176) Dummy {f00=0x00fe, f01=0x0190, f02=» ANK A2,/FF CLEAN CHARACTER E . P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK F $ 6 P ABI ECHADR,A3 GO TO ECHO-ROUTINE DEVICE-DEPENDENT F V P XIF F P* F P EJECT F P* F @ P************************************************************ F P* F
0x2adcb4…2ade48 Dummy {f00=0x00fe, f01=0x0190, f02=»* IS READY WITH ECHOING ACTIONS, AND WANTS TO LEAVE F * P* CONTROL BACK TO INPUT DEVICE DRIVER. G < P* G j P* CALL: G t P* ABL ECHRTN G P* G P* INPUT: G ( P* A6 = DWT ADDRESS OF OUTPUT DEVICE G P* G P* OUTPUT: G $ P* AT ENTR
0x2ade48…2adfdc Dummy {f00=0x00fe, f01=0x0190, f02=» PECHRTN EQU * H P IFT CECHO=1 H 0 P LD A6,DWTWAT,A6 DWT-ADDRESS OF INPUT DEVICE H , , P RF NDREP RELOAD A3-A5, A7-A8 AND RETURN H ` P XIF H P* H P EJECT H P* H @ P************************************************************ H P* H
0x2adfdc…2ae170 Dummy {f00=0x00fe, f01=0x0190, f02=»BUFFER AND INCREMENT THE BUFFER INDEX. H 2 P* IF NO CHARACTER IS LEFT, INDEX IS STORED IN I . P* ECB REQUESTED LENGTH. I d P* I P* CALL: I P* CF A15,GETCHR I P* I P* INPUT: I P* A3 = BUFFER INDEX I P* A8 = ECB ADDRESS I P
0x2ae170…2ae304 Dummy {f00=0x00fe, f01=0x0190, f02=» & P* BITS 8-15 CHARACTER (IF A1>0) J ( P* A3 = UPDATED BYTE INDEX (IF A1>0) J . P* CR = CHANGED J Z P* INTERR. ENABLED J r P* J @ P************************************************************ J P* J PGETCHR EQU * J $ P LD A1,ECBRL,A8
0x2ae304…2ae498 Dummy {f00=0x00fe, f01=0x0190, f02=»8 GET BUFFER ADDRESS J P ADR A2,A3 K P LCR A2,A2 CHAR. TO A2 K . P ANK A2,/FF K L $ P ADK A3,1 INCREMENT BUFFER INDEX K ` P RF GCH020 K P* K P* K PGCH010 EQU * K * P ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH K PGCH020 EQU * K " P ADK
0x2ae498…2ae62c Dummy {f00=0x00fe, f01=0x0190, f02=»************************ K l P* L P* ROUTINE NAME: L * P* ABORT L B P* L R P* FUNCTION: L : P* THIS ROUTINE RESETS THE INPUT REQUESTED FLAG IN DWT. L p : P* IT IS USED AT ABORT REQUESTS, WHEN A REQUESTED INPUT L P* IS NO LONGER WANTED. L
0x2ae62c…2ae7c0 Dummy {f00=0x00fe, f01=0x0190, f02=» = CHANGED L P* CR = CHANGED M P* M , @ P************************************************************ M 6 P* M z PABORT EQU * M 2 P LDKL A1,/FFFF-DWFINP MASK FOR INPUT REQUESTED M P ANS A1,DWTST,A6 RESET FLAG M P IFT CPU852=1 M P
0x2ae7c0…2ae954 (3, 177) Dummy {f00=0x00fe, f01=0x018e, f02=»********************************************** M P* N 6 P* ROUTINE NAME: N @ P* LDISP N X P* N h P* FUNCTION: N r 8 P* THIS ROUTINE PERFORMS DISPATCHING FOR THE TERMINAL N 8 P* DEVICE DRIVERS. IT ALSO PROVIDES QUICK EXITS FROM N 0 P* DEVICE D
0x2ae954…2aeae8 Dummy {f00=0x00fe, f01=0x0190, f02=» P* INPUT: O $ P* A1 = RETURN CODE (IF LENDIS) O P* A6 = DWT ADDRESS O < P* O X P* OUTPUT: O b 2 P* AT ENTRY TO LINE DRIVER DISPATCH ENTRY: O t P* A6 = DWT ADDRESS O P* O @ P********************************************************
0x2aeae8…2aec7c Dummy {f00=0x00fe, f01=0x018e, f02=»UEST O v P* P P EJECT P P* P $ PLDISP EQU * P . P IFF NTONSU=0 U =1 P B & P LC A1,DWTCHP,A6 CHANNEL PARAMETER P ( P ANK A1,MASKCT CLEAN CONNECTION TYPE P P SLA A1,1 MAKE INDEX P P CWK A1,DTABLN INSIDE LIMIT? P 0 P ABI(L) ENRTAB,A1 YES,
0x2aec7c…2aee10 Dummy {f00=0x00fe, f01=0x018e, f02=» P v P* LINE DRIVER ROUTINES * Q P************************ Q ( P* Q H F P* THIS SECTION CONTAINS AN EXIT ROUTINE THAT CAN BE USED BY THE Q R : P* LINE DRIVERS WHEN RETURNING TO THE DEVICE DRIVER. Q > P* IT ALSO CONTAINES A NUMBER OF SERVICE SUBR
0x2aee10…2aefa4 Dummy {f00=0x00fe, f01=0x0190, f02=» P* R P* NAME FUNCTION R P* R & $ P* NDRET RETURN TO DEVICE DRIVER R 0 & P* NDSAV8 SAVE A3-A5, A7-A8 IN DWT R X & P* NDGET8 GET A3-A5, A7-A8 FROM DWT R 8 P* NDREWS CALL RECOVERY FOR ALL DWT:S ON WORK STATION R * P* NDREDW CALL RECOVERY ROUTINE F
0x2aefa4…2af138 Dummy {f00=0x00fe, f01=0x0190, f02=»************************************************************ R P* S D P* ROUTINE NAME: S N P* NDRET S f P* S v P* FUNCTION: S 4 P* THIS ROUTINE CONTAINS A NUMBER OF ENTRIES FOR S 0 P* RETURNING TO THE TERMINAL DEVICE DRIVERS. S 4 P* THEY C
0x2af138…2af2cc Dummy {f00=0x00fe, f01=0x0190, f02=» ALSO CONTAINS A "RTN A15" S . P* SIMULATION THAT DOESN'T PERFORM ENABLE. T $ P* T V P* CALL: T ` P* RF "NAME" T p P* RB "NAME" T P* ABL "NAME" T P* T P* INPUT: T , P* A5 = LOCAL STACK POINTER (IF NDRETX) T $ P* A6 = DWT ADDRES
0x2af2cc…2af460 Dummy {f00=0x00fe, f01=0x0190, f02=»NDLING ROUTINE T n P* U @ P************************************************************ U P* U d PNDRETE EQU * U n & P LDK A1,CONFER CONFIGURATION ERROR U P RF NDRET RETURN U P* U P EJECT U P* U PNDREPO EQU * U , P CF A15,NDGET8
0x2af460…2af5f4 (3, 178) Dummy {f00=0x00fe, f01=0x0190, f02=» U P* V PNDREP EQU * V , P CF A15,NDGET8 GET A3-A5, A7-A8 FROM DWT V & PNDRET EQU * V V P ENB V j & P ADK A5,4 ADJUST STACK FOR RETURN V v P LDR A1,A1 SET CR V $ P ABR* A5 RETURN TO DEVICE DRIVER V P* V P* V P IFT CPU852=1 V
0x2af5f4…2af788 Dummy {f00=0x00fe, f01=0x0190, f02=»****************************************** V ~ P* W 2 P* ROUTINE NAME: W < P* NDSAV8 W T P* W d P* FUNCTION: W n 6 P* THIS ROUTINE SAVES REGISTERS A3, A4, A5, A7 AND W P* A8 IN A SAVE AREA IN DWT. W P* W P* CALL: W P* CF A15,NDSAV
0x2af788…2af91c Dummy {f00=0x00fe, f01=0x0190, f02=»************************************************** W P* X : PNDSAV8 EQU * X D " P* SAVE A3-A5, A7-A8 IN DWT X X P ST A3,DWTA3,A6 X ~ P ST A4,DWTA4,A6 X P ST A5,DWTA5,A6 X P ST A7,DWTA7,A6 X P ST A8,DWTA8,A6 X P* X P IFT CPU
0x2af91c…2afab0 Dummy {f00=0x00fe, f01=0x018e, f02=»************************************************************ X P* Y D P* ROUTINE NAME: Y N P* NDGET8 Y f P* Y v P* FUNCTION: Y 8 P* THIS ROUTINE FETCHES REGISTERS A3, A4, A5, A7 AND Y " P* A8 FROM A SAVE AREA IN DWT. Y P* Y P* CALL:
0x2afab0…2afc44 Dummy {f00=0x00fe, f01=0x0190, f02=» P* Z @ P************************************************************ Z P* Z R PNDGET8 EQU * Z " P* GET A3-A5, A7-A8 FROM DWT Z p P LD A3,DWTA3,A6 Z P LD A4,DWTA4,A6 Z P LD A5,DWTA5,A6 Z P LD A7,DWTA7,A6 Z P LD A8,DWTA8,A6 Z
0x2afc44…2afdd8 Dummy {f00=0x00fe, f01=0x0190, f02=» EJECT Z P* [ @ P************************************************************ [ P* [ P* ROUTINE NAME: [ f P* NDREWS [ ~ P* [ P* FUNCTION: [ 8 P* THIS ROUTINE CALLS RECOVERY ROUTINES FOR ALL DWT:S [ : P* ON A WORK STATION, EXEPT FOR T
0x2afdd8…2aff6c Dummy {f00=0x00fe, f01=0x0190, f02=»= WORK STATION TABLE ADDRESS [ P* A4 = RECOVERY CAUSE $ P* A6 = WORK STATION NUMBER B P* f P* OUTPUT: p ( P* AT ENTRY TO RECOVERY ROUTINE: P* SEE NDREDW P* AT SUBROUTINE RETURN: P* CR = CHANGED P* INTERR.
0x2aff6c…2b0100 Dummy {f00=0x00fe, f01=0x0190, f02=»0 U =1 P IFT CPU852=1 ] P CF A15,SAVE8 PUSH A1-A8 ] $ P XIF ] D P IFF NTONSU=0 U =1 ] P P IFF CPU852=1 ] j P MSR 8,A15 PUSH A1-A8 ] P XIF ] P IFF NTONSU=0 U =1 ] P* ] P EJECT ] P* ] P LDR A8,A6 SAVE WS NUMBER ] * P
0x2b0100…2b0294 (3, 179) Dummy {f00=0x00ff, f01=0x018e, f02=»100 EQU * ] P SUK A7,1 NEXT DWT ^ " P RF(N) RW120 EXIT IF ALL DONE ^ , " P LDR A6,A8 WORK STATION NUMBER ^ R * P LDR A1,A3 WORK STATION TABLE ADDRESS ^ x $ P CF A15,NDGEDW A6 := DWT ADDRESS ^ P* ^ P LDR A6,A6 DWT DEFINED? ^ P RB(Z) RW100 NO,
0x2b0294…2b0428 Dummy {f00=0x00ff, f01=0x0190, f02=» & P* CHECK IF OUTPUT ECHO DEVICE _ P LD A1,DWTST,A6 DWT STATUS _ . P LDR A2,A1 SAVE _ P P ANKL A1,DWFECH ECHO MODE? _ h P RF(Z) RW110 NO, CONTINUE _ " P ANKL A2,DWFINP INPUT DEVICE? _ , P RB(Z) RW100 NO, ECHO OUTPUT. TAKE NEXT _ P* _
0x2b0428…2b05bc Dummy {f00=0x00ff, f01=0x0190, f02=» ALL DWT:S HANDLED _ P ABL TDISP RETURN ` P XIF U =1 ` 6 P* ` H P EJECT ` R P* ` ` @ P************************************************************ ` j P* ` P* ROUTINE NAME: ` P* NDREDW ` P* ` P* FUNCTION: ` < P* THIS ROU
0x2b05bc…2b0750 Dummy {f00=0x00ff, f01=0x0190, f02=»NED, DWT IS BUSY BUT NO REQUEST ` x : P* IS ON, TENDIO IS CALLED TO ACTIVATE TERMINAL QUEUE. a ( P* a f P* CALL: a p P* CF A15,NDREDW a P* a P* INPUT: a P* A4 = RECOVERY CAUSE a P* A6 = DWT ADDRESS a P* a P* OUTPUT: a ( P
0x2b0750…2b08e4 Dummy {f00=0x00ff, f01=0x0190, f02=» = BITS 0-9 ZERO a ( P* BITS 10-15 ORDER (IF REQUEST ON) b & P* A8 = ECB ADDRESS IF REQUEST ON, b F P* ELSE ZERO b p P* INTERR. ENABLED b P* AT SUBROUTINE RETURN: b P* CR = CHANGED b P* INTERR. CHANGED b P* b @ P********
0x2b08e4…2b0a78 Dummy {f00=0x00ff, f01=0x0190, f02=» CF A15,SAVE8 PUSH A1-A8 b P XIF c P IFF CPU852=1 c , P MSR 8,A15 PUSH A1-A8 c B P XIF c ` P ENB c l P* c x P LDR A5,A6 DWT ADDRESS c P ADKL A5,DWTSB2 STACK BASE c P LC A7,DWTOR+1,A6 ORDER c P ANK A7,/3F CLEAN c P LD A8,DWTEC
0x2b0a78…2b0c0c Dummy {f00=0x00ff, f01=0x0190, f02=»Y IF DEFINED c x P* d P* d : P* NO RECOVERY. CALL TENDIO IF BUSY BUT NO REQUEST d ( P LD A2,DWTST,A6 DWT STATUS d f P ANKL A2,DWFBSY BUSY? d P RF(NZ) RD100 NO, EXIT d P LDR A8,A8 REQUEST ON? d & P ABL(Z) DISEND NO, TENDIO & RETURN d
0x2b0c0c…2b0da0 Dummy {f00=0x00ff, f01=0x0190, f02=»******** d P* e P* ROUTINE NAME: e P* NDGEDN e 2 P* e B P* FUNCTION: e L 4 P* THIS ROUTINE CALCULATES THE HIGEST DWT NUMBER e ` 8 P* (POSITION NUMBER IN DWT TABLE) FOR A WORK STATION. e P* e P* CALL: e P* CF A15,NDGEDN e P*
0x2b0da0…2b0f34 (3, 180) Dummy {f00=0x00ff, f01=0x0190, f02=»A7 = HIGEST DWT NUMBER (0-7) e P* -1 IF NO DWT:S FOUND f & P* CR = CHANGED f F P* f ^ @ P************************************************************ f h P* f PNDGEDN EQU * f P IFF NTONSU=0 U =1 f P STR A6,A15 PUSH WS NUMBER f P L
0x2b0f34…2b10c8 Dummy {f00=0x00ff, f01=0x0190, f02=»GN100 YES, EXIT f P* g P EJECT g " P* g 0 P ADR A6,A1 g : " P LDR* A6,A6 DWT ADDRESS TABLE g L " P RF(Z) GN100 NOT DEFINED, EXIT g r P LD A7,-2,A6 TABLE LENGTH g P SUK A7,2 OFFSET TO LAST DWT g P SRA A7,1 NUMBER OF LAST DWT g P RF GN
0x2b10c8…2b125c Dummy {f00=0x00ff, f01=0x018e, f02=» IFT CPU852=1 g P RB RTNP15 RETURN h P XIF h 0 P IFF NTONSU=0 U =1 h < P IFF CPU852=1 h V P RTN A15 h l P XIF h | P* h P EJECT h P* h @ P************************************************************ h P* h P* ROUTINE NAME:
0x2b125c…2b13f0 Dummy {f00=0x00ff, f01=0x0190, f02=» P* CALL: i P* CF A15,NDGEDW i P* i , P* INPUT: i 6 2 P* A1 = ADDRESS OF WORK STATION TABLE (INTXXN) i F P* A6 = WORK STATION NUMBER i | P* A7 = DEVICE ADDRESS i P* i P* OUTPUT: i P* A6 = DWT ADDRESS IF FOUND i P* ELSE 0
0x2b13f0…2b1584 Dummy {f00=0x00ff, f01=0x0190, f02=» P IFF NTONSU=0 U =1 j * P SLL A7,1 MAKE INDEX OF DEVICE ADDRESS j P LDR A1,A1 WS TABLE DEFINED? j L P RF(Z) GD100 NO, EXIT j p * P SLL A6,1 INDEX IN WORK STATION TABLE j P CW A6,-2,A1 INSIDE TABLE? j P RF(NL) GD100 NO, ERROR j P* j P
0x2b1584…2b1718 Dummy {f00=0x00ff, f01=0x0190, f02=»NDEX TOO HIGH? j P RF(NL) GD100 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x2b1718…2b18ac Dummy {f00=0x00ff, f01=0x4022, f02=» k P* l P END l @ l 0 YES, EXIT k P ADR A6,A7 k 6 P LDR* A6,A6 DWT ADDRESS OR 0 k H P RF GD110 EXIT k l P* k PGD100 EQU * k P LDK A6,0 DWT NOT FOUND k PGD110 EQU * k $ P SRL A7,1 RESTORE DEVICE ADDRESS k P IFT CPU852=
0x2b18ac…2b1a40 Dummy {f00=0x00ff, f01=0x2008, f02=» m " " " " "("0"8"@
0x2b1a40…2b1bd4 (3, 181) Dummy {f00=0x00ff, f01=0x0190, f02=» P IFT IBM=1 , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT P DATA 0,0,0,0 J $ PDWTEOD EQU *-DWFD01 END OF DATA ` P DATA 0,0,0,0 & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO
0x2b1bd4…2b1d68 Dummy {f00=0x00ff, f01=0x0190, f02=» P* P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 F ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO V P DATA 0 & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0
0x2b1d68…2b1efc Dummy {f00=0x00ff, f01=0x0190, f02=»INDICATOR x P DATA 0 P XIF " P* . P EJECT DRFD01 8 P* P P* Z P IFT MMUPAG=1 d PDWT:BF EQU *-DWFD01 z $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0
0x2b1efc…2b2090 Dummy {f00=0x00ff, f01=0x40d0, f02=»D01 * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF : P* F P IFT MMUPAG=1 P PDEVECB EQU * f P DATA 0,0,0,0,0,0,0 z P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0
0x2b2090…2b2224 Dummy {f00=0x00ff, f01=0x2008, f02=» END @
0x2b2224…2b23b8 Dummy {f00=0x00ff, f01=0x0190, f02=» A14 b P EJECT c < P******************************************************** c < P* * c Z < P* HEXCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE * c < P* TO CORRESPONDING HEXADECIMAL VALUE
0x2b23b8…2b254c Dummy {f00=0x00ff, f01=0x0190, f02=» * c Z < P* ON ENTRY: A1 CHARACTER TO CONVERT * d < P* * d J < P* ON EXIT: A1 CONVERTED CARACTER * d < P* * d <
0x2b254c…2b26e0 Dummy {f00=0x00ff, f01=0x0190, f02=»TER d v P CWK A1,/29 e P RF(L) TYPERR ERRANEOUS TYPE e P* e D " P CWK A1,/40 DIGIT BETWEEN 0-9? e N P RF(L) HXCN00 YES! e t & P RF(E) TYPERR NO NEXADECIMAL DIGIT e P* e " P CWK A1,/46 DIGIT BETWEEN A-F? e P RF(G) TYPERR NO e P* e
0x2b26e0…2b2874 (3, 182) Opaque[0x194]
0x2b2874…2b2a08 # DirEnt {nam=»DCADDR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1378, f03=0x0000}
0x2b2874…2b2a08 IdxSect {
0x2b2874…2b2a08 f00 = 0x009b // 0x2b2874 @0x0
0x2b2874…2b2a08 f01 = 0x000a // 0x2b2876 @0x2
0x2b2874…2b2a08 gno = [ // 0x2b2878 @0x4
0x2b2874…2b2a08 [0x00]: C0x009b.0x3.0
0x2b2874…2b2a08 [0x01]: C0x009c.0x0.0
0x2b2874…2b2a08 [0x02]: C0x009c.0x1.0
0x2b2874…2b2a08 [0x03]: C0x009c.0x2.0
0x2b2874…2b2a08 [0x04]: C0x009c.0x3.0
0x2b2874…2b2a08 ]
0x2b2874…2b2a08 }
0x2b2a08…2b2b9c Dummy {f00=0x009b, f01=0x0190, f02=» 0 P IDENT DCADDR REL 11.0 81-01-26 870105041100 P* 8 4 P*********************************************** B P* z " P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DC:ADR : ADDRESS TRANSLATION ROUTINES FOR * P* DATA COMMUNICATION SO
0x2b2b9c…2b2d30 Dummy {f00=0x009b, f01=0x0190, f02=»************************* z P* " P* PROGRAM DESCRIPTION , P* J : P* FOLLOWING SUBROUTINES CAN BE FOUND IN THIS MODULE : T P* 2 P* FNDDNA : FINDS A DTE NETWORK ADDRESS FROM A $ P* SYMBOLIC DTE ADDRESS P* 2 P* FN
0x2b2d30…2b2ec4 Dummy {f00=0x009b, f01=0x0190, f02=»LATES A SYMBOLIC DTE ADDRESS INTO A " P* DTE NETWORK ADDRESS , P* R 6 P* GETDNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A 8 P* SPECIFIED TYPE INTO A DTE NETWORK ADDRESS P* 6 P* GETDSA : TRANSLATES A DTE NETWORK ADDRESS
0x2b2ec4…2b3058 Dummy {f00=0x009b, f01=0x0190, f02=» SPECIFIED ` 0 P* TYPE INTO A SYMBOLIC DTE ADDRESS P* F 6 P* GETSNA : TRANSLATES A SYMBOLIC DTE ADDRESS AND A P > P* SYMBOLIC SUB-ADDRESS INTO A NETWORK SUB-ADDRESS P* 6 P* GETSNT : TRANSLATES A SYMBOLIC DTE ADDRESS OF A
0x2b3058…2b31ec Dummy {f00=0x009b, f01=0x0190, f02=»RANSLATES A SYMBOLIC DTE ADDRESS AND A > P* NETWORK SUB-ADDRESS INTO A SYMBOLIC SUB-ADDRESS . P* p @ P* GETSST : TRANSLATES A SYMBOLIC DTE ADDRESS OF A SPECIFIED z > P* TYPE AND A NETWORK SUB-ADDRESS INTO A SYMBOLIC P*
0x2b31ec…2b3380 Dummy {f00=0x009b, f01=0x018e, f02=»TRIES P* P ENTRY FNDDNA P ENTRY FNDDNT . P ENTRY GETDNA D P ENTRY GETDNT Z P ENTRY GETDSA p P ENTRY GETDST P ENTRY GETSNA P ENTRY GETSNT P ENTRY GETSSA P ENTRY GETSST P* P* P
0x2b3380…2b3514 (3, 183) Dummy {f00=0x009c, f01=0x0190, f02=» b * P EXTRN RETUR8 RELOAD A1-A8 AND RETURN 2 P EXTRN IHRET8 RELOAD A1-A8 AND RETURN INHIBIT 6 P* l P EJECT v P* & P* CONDITIONAL ASSEMBLY PARAMETERS P* ( PX:A EQU 1 SUB-ADDRESSING SUPPORTED ? PSUBADR EQU X:A 0=NO 1=YES
0x2b3514…2b36a8 Dummy {f00=0x009c, f01=0x0190, f02=»NTRY INDICATORS PDN EQU 1 PSS EQU 2 ( PSN EQU 3 8 P* H P EJECT R P* ` P* j 4 P* ROUTINES TO GET A SYMBOLIC DTE ADDRESS FROM A t $ P* DTE NETWORK ADDRESS (AND TYPE) P* 6 P******************************************
0x2b36a8…2b383c Dummy {f00=0x009c, f01=0x0190, f02=»ING DTE NETWORK ADDRESS z ( P* A3 = TYPE (ONLY FOR GETDST ENTRY) P* L P* CALLING SEQUENCES : V P* CF A15,GETDSA t P* CF A15,GETDST P* P* OUTPUT PARAMETERS : B P* A1 = SYMBOLIC DTE ADDRESS(OR -1 IF INVALID ADDRESS OR TYP
0x2b383c…2b39d0 Dummy {f00=0x009c, f01=0x0190, f02=»15 SAVE REG. A1-A8 P XIF P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b $ P SUR A3,A3 CLEAR TYPE INDICATOR n P RF GET090 PGETDST EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT CPU852=1 P C
0x2b39d0…2b3b64 Dummy {f00=0x009c, f01=0x0190, f02=»A5,-1 RESET TYPE COUNTER 6 P LDKL A8,SCTDCT POINTER TO DC ADDRESS TABLE ENTRY PGET110 EQU * Z P LDR* A8,A8 MORE ENTRIES ? n P RF(Z) GET330 NO P ADK A3,0 TYPE SPECIFIED ? P RF(Z) GET120 NO P CW A3,4,A8 TYPE FOUND ? P RB(NE
0x2b3b64…2b3cf8 Dummy {f00=0x009c, f01=0x0190, f02=»A/GETDST ENTRY ? P RF(NZ) GET220 NO P* 2 P* TEST ON ADDRESS LENGTH < P* P CC A1,6,A8 SAME ? f P RB(NE) GET110 NO,TAKE NEXT P* P EJECT P* P* GET ADDRESS PARAMETERS P* P ADK A1,1 CONVERT..
0x2b3cf8…2b3e8c Dummy {f00=0x009c, f01=0x0190, f02=»6,7 ..FIND LAST OCTET OF.. P ADR A6,A1 ..NETWORK ADDRESS " . P ADR A2,A1 POINTER TO LAST OCTET IN BUFFER F P LDR A7,A1 SAVE LENGTH x P* " P* COMPARE DTE NETWORK ADDRESS P* PGET130 EQU * P SUK A1,1 LAST ONE ? P RF(N) G
0x2b3e8c…2b4020 Dummy {f00=0x009c, f01=0x018e, f02=» CCR A4,A2 COMPARE WITH DRIVER BUFFER P RB(E) GET130 EQUAL . P* J P EJECT T P* b P* COMPARED OCTETS NOT EQUAL l P* PGET140 EQU * P SUR A7,A1 FIRST ONE ? P SUK A7,1 . P RF(NZ) GET150 NO $ P ADK A4,0 SEMI
0x2b4020…2b41b4 (3, 184) Dummy {f00=0x009c, f01=0x0190, f02=» " P ANK A1,/F0 MAKE IT SEMI-OCTET P CWR A4,A1 EQUAL ? * P RF(E) GET160 YES D PGET150 EQU * ^ P LC A1,6,A8 RELOAD LENGTH r & P LDK A4,DS RELOAD ENTRY INDICATOR P RB GET110 TRY NEXT P* P* COMMON EXIT ROUTINE P*
0x2b41b4…2b4348 Dummy {f00=0x009c, f01=0x0190, f02=» * P ST A5,12,A15 SAVE TYPE COUNTER IN A3 PGET180 EQU * 6 P ST A1,16,A15 SAVE A1 J P IFT CPU852=0 h P ABL RETUR8 RETURN TO CALLER ~ P XIF P IFT CPU852=1 P LD A1,18,A15 GET PSW P ANK A1,/40 ENABLE MODE ? P ABL
0x2b4348…2b44dc Dummy {f00=0x009c, f01=0x0190, f02=»O FIND OR GET A DTE NETWORK ADDRESS FROM A * P* SYMBOLIC NETWORK ADDRESS (AND TYPE) 2 P* ` : P****************************************************** j P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS * P* A2 = BUFFER (ONLY I
0x2b44dc…2b4670 Dummy {f00=0x009c, f01=0x0190, f02=»F A15,FNDDNT P* CF A15,GETDNA P* CF A15,GETDNT , P* D P* OUTPUT PARAMETERS : N 8 P* A1 = LENGTH OF DTE NETWORK ADDRESS IN SEMI-OCTETS l < P* (OR -1 IF ILLEGAL SYMBOLIC DTE ADDRESS OR TYPE) : P* A2 = NEXT FREE ADDRESS IN BUF
0x2b4670…2b4804 Dummy {f00=0x009c, f01=0x0190, f02=»NOT CHANGED) b P* PFNDDNT EQU * P IFT CPU852=0 2 P MSR 8,A15 SAVE REG. A1-A8 H P XIF j P IFT CPU852=1 v " P CF A15,SAVE8 SAVE REG. A1-A8 P XIF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET210 P* P EJECT
0x2b4804…2b4998 Dummy {f00=0x009c, f01=0x018e, f02=»IF $ P SUR A2,A2 CLEAR BUFFER ADDRESS P RF GET200 2 PGETDNT EQU * D P IFT CPU852=0 X P MSR 8,A15 n P XIF P IFT CPU852=1 P CF A15,SAVE8 P XIF P RF GET210 PGETDNA EQU * P IFT CPU852=0 P MSR 8,A
0x2b4998…2b4b2c Dummy {f00=0x009c, f01=0x0190, f02=» PGET210 EQU * " P LDK A4,DN SET ENTRY INDICATOR P RB GET100 RUN > P* T P EJECT ^ P* l P* TEST ON SYMBOLIC ADDRESS v P* PGET220 EQU * P CW A1,2,A8 FOUND ? P RB(NE) GET110 NO P* P* GET ADDRESS PARA
0x2b4b2c…2b4cc0 Dummy {f00=0x009c, f01=0x0190, f02=»ERT LENGTH.. P SRC A7,1 ..INTO.. P ANK A7,/7F ..OCTETS . * P LDR A6,A8 GET ADDRESS WHERE TO FIND.. J P ADK A6,7 ..NETWORK ADDRESS x P IFT SUBADR=1 P* P* TEST ON ENTRY P* $ P SUK A4,SS ...DNA/...DNT ENTRY ? P R
0x2b4cc0…2b4e54 (3, 185) Dummy {f00=0x009c, f01=0x0190, f02=»JECT P* P* SAVE PARAMETERS P* 0 PGET230 EQU * : $ P ST A2,14,A15 SAVE NEXT ADDRESS N P RB GET170 EXIT v P* P* GET NETWORK ADDRESS P* PGET240 EQU * P SUK A7,1 READY ? P RB(N) GET230 YES P
0x2b4e54…2b4fe8 Dummy {f00=0x009c, f01=0x0190, f02=»UBADR=1 P EJECT P* P* ( 4 P* ROUTINES TO GET A SYMBOLIC SUB-ADDRESS FROM A 2 6 P* SYMBOLIC DTE ADDRESS (OF A SPECIFIED TYPE) AND A j P* NETWORK SUB-ADDRESS P* 8 P**************************************************** P
0x2b4fe8…2b517c Dummy {f00=0x009c, f01=0x0190, f02=»ST ENTRY) v P* P* CALLING SEQUENCE : P* CF A15,GETSSA 8 P* CF A15,GETSST P P* h P* OUTPUT PARAMETERS : r : P* A1 = SYMBOLIC SUB-ADDRESS(OR -1 IF ILLEGAL SYMBOLIC 4 P* DTE ADDRESS,TYPE OR NETWORK SUB-ADDRESS) D P*
0x2b517c…2b5310 Dummy {f00=0x009c, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 & " P CF A15,SAVE8 SAVE REG. A1-A8 < P XIF b P IFT SUBADR=1 n P RF GET300 P* P EJECT P* PGETSSA EQU * P IFT CPU852=0 P MSR 8,A15 P XIF P IFT SUB
0x2b5310…2b54a4 Dummy {f00=0x009c, f01=0x0190, f02=»00 EQU * " P LDK A4,SS SET ENTRY INDICATOR PGET305 EQU * 6 P RB GET100 RUN J P* ` P* TEST ON ENTRY j P* PGET310 EQU * " P ADR A6,A7 GET # OF ENTRIES IN " P LCR A7,A6 ..SUB-ADDRESS TABLE P LDR A4,A4 * P RF(NZ) GE
0x2b54a4…2b5638 Dummy {f00=0x009c, f01=0x0190, f02=»OR b PGET320 EQU * P ADK A6,1 NEXT ENTRY , P CCR A2,A6 COMPARE NETWORK SUB-ADDRESSES : P RB(E) GET170 EXIT ! j ( P ADK A1,1 STEP SYMBOLIC SUB-ADDRESS P SUK A7,1 MORE ENTRIES ? P RB(P) GET320 YES P XIF P* P EJECT
0x2b5638…2b57cc Dummy {f00=0x009c, f01=0x018e, f02=»TSSA EQU * PGETSST EQU * P XIF & PGET330 EQU * 2 P LDKL A1,-1 ERROR INDICATION F P RB GET180 EXIT j P* P IFT SUBADR=1 P EJECT P* P* 2 P* ROUTINES TO GET A NETWORK SUB-ADDRESS FROM A 4 P* SYMBOLIC DTE
0x2b57cc…2b5960 Dummy {f00=0x009c, f01=0x0190, f02=» Z P* P* INPUT PARAMETERS : P* A1 = SYMBOLIC DTE ADDRESS . P* A2 = SYMBOLIC SUB-ADDRESS R ( P* A3 = TYPE (ONLY IF GETSNT ENTRY) v P* P* CALLING SEQUENCES : P* CF A15,GETSNA P* CF A15,GETSNT P* P* OU
0x2b5960…2b5af4 (3, 186) Dummy {f00=0x009c, f01=0x0190, f02=») ` D P* A3 = TYPE INDEX (ONLY IF GETSNT ENTRY,OTHERWISE NOT CHANGED) P* R PGETSNT EQU * P IFT CPU852=0 p P MSR 8,A15 SAVE REG. A1-A8 P XIF P IFT SUBADR=1 P IFT CPU852=1 " P CF A15,SAVE8 SAVE REG. A1-A8 P X
0x2b5af4…2b5c88 Dummy {f00=0x009c, f01=0x0190, f02=» P XIF P IFT SUBADR=1 P IFT CPU852=1 * P CF A15,SAVE8 @ P XIF V P IFT SUBADR=1 b $ P SUR A3,A3 CLEAR TYPE INDICATOR x PGET400 EQU * " P LDK A4,SN SET ENTRY INDICATOR P RB GET305 RUN P* P* GET NETWORK
0x2b5c88…2b5e1c Dummy {f00=0x009c, f01=0x4116, f02=»ID SYMBOLIC SUB-ADDRESS | 2 P SUR A7,A2 SYMBOLIC SUB-ADDRESS WITHIN TABLE ? P RB(N) GET330 NO V 2 P ADR A6,A2 SET POINTER(INDEX STARTS WITH /30) n & P LCR A1,A6 GET NETWORK SUB-ADDRESS P RB GET170 EXIT P* P XIF P* P E
0x2b5e1c…2b5fb0 Dummy {f00=0x009c, f01=0x2008, f02=» ! TO SAVE REGISTERS A1-A8 * ( SAVE8 EQU * 2 * F * &* SUBROUTINE TO RELOAD REGISTERS A1-A8 P * ~ RELOA8 EQU * * END @ & ! LDR A6,A8 GET ADDRESS WHERE TO.. " ADK A6,7 FIND LAST OCTET OF..
0x2b5fb0…2b6144 Dummy {f00=0x009c, f01=0x018e, f02=»TONSU=0 U =1 P IFT PR=1 P DATA PRCHRI & P XIF : P IFF NTONSU=0 U =1 F P* ` P IFT VU=0 j P DATA NDRETE | P XIF P IFF NTONSU=0 U =1 P IFT VU=1 P DATA VUCHRI P XIF P IFF NTONSU=0 U =1 PDTABLN
0x2b6144…2b62d8 Dummy {f00=0x009c, f01=0x0190, f02=» P IFF NTONSU=0 U =1 P IFT LT=1 " P DATA LTSTBL 4 P XIF H P IFF NTONSU=0 U =1 T P* n P IFT RT=0 x P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT RT=1 P DATA RTSTBL P XIF P IFF NTONSU=0 U =1
0x2b62d8…2b646c Dummy {f00=0x009c, f01=0x018e, f02=» P IFF NTONSU=0 U =1 P* " P IFT AS=0 , P DATA NDRETE > P XIF R P IFF NTONSU=0 U =1 ^ P IFT AS=1 x P DATA ASSTBL P XIF P IFF NTONSU=0 U =1 P* P IFT FT=0 P DATA NDRETE P XIF P IFF NTO
0x2b646c…2b6600 Dummy {f00=0x009c, f01=0x0190, f02=» P XIF P IFF NTONSU=0 U =1 P IFT PL=1 . P DATA PLSTBL @ P XIF T P IFF NTONSU=0 U =1 ` P* z P IFT PR=0 P DATA NDRETE P XIF P IFF NTONSU=0 U =1 P IFT PR=1 P DATA PRSTBL P XIF P IFF N
0x2b6600…2b6794 (3, 187) Opaque[0x194]
0x2b6794…2b6928 # DirEnt {nam=»TMOVE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1198, f03=0x0000}
0x2b6794…2b6928 IdxSect {
0x2b6794…2b6928 f00 = 0x008c // 0x2b6794 @0x0
0x2b6794…2b6928 f01 = 0x000e // 0x2b6796 @0x2
0x2b6794…2b6928 gno = [ // 0x2b6798 @0x4
0x2b6794…2b6928 [0x00]: C0x008c.0x3.0
0x2b6794…2b6928 [0x01]: C0x008f.0x2.0
0x2b6794…2b6928 [0x02]: C0x008f.0x3.0
0x2b6794…2b6928 [0x03]: C0x0090.0x0.0
0x2b6794…2b6928 [0x04]: C0x00c7.0x1.0
0x2b6794…2b6928 [0x05]: C0x00c9.0x2.0
0x2b6794…2b6928 [0x06]: C0x00de.0x0.0
0x2b6794…2b6928 ]
0x2b6794…2b6928 }
0x2b6928…2b6abc Dummy {f00=0x008c, f01=0x0190, f02=» 0 P IDENT TMOVE REL 11.0 81-05-21 870105041100 P 8 * P =4,CORR. OF UPDATE =3 (A14,A15) =3 @ P =4,REL 11.0 81-05-15 =3 n $ P =3,CONDITION FOR MOVUU ADDED P =3,REL 11.0 81-01-26 $ P =2,SAVE MMU WHEN MOVUS,MOVSU P =2,PR
0x2b6abc…2b6c50 Dummy {f00=0x008c, f01=0x0190, f02=»********************************** P* * $ P* PHILIPS TERMINAL SYSTEM PTS 4 P* ( P* TMOVE = TOSS MOVE LKM PROCESSOR f P* P* P* P* P* P* 6 P************************************************** P
0x2b6c50…2b6de4 Dummy {f00=0x008c, f01=0x018e, f02=» - MOVSS = MOVE FROM SYSTEM AREA TO SYSTEM AREA 4 P* - MOVUS = MOVE FROM USER AREA TO SYSTEM AREA 8 4 P* - MOVSU = MOVE FROM SYSTEM AREA TO USER AREA p 2 P* - MOVUU = MOVE FROM USER AREA TO USER AREA > P* - MOVFW = MOVE FORWARD (ONLY SYSTEM A
0x2b6de4…2b6f78 Dummy {f00=0x008c, f01=0x0190, f02=» P*********** P* ENTRIES * P*********** 0 P* D P* N ( P ENTRY TMOVE TOSS MOVE LKM PROCESSOR X , P ENTRY MOVSS MOVE FROM SYSTEM TO SYSTEM * P ENTRY MOVSU MOVE FROM SYSTEM TO USER * P ENTRY MOVUS MOVE FROM USER TO SYSTEM
0x2b6f78…2b710c Dummy {f00=0x008c, f01=0x0190, f02=» P* P* P************* P* EXTERNALS * 2 P************* H P* ^ P* h * P EXTRN LKMQDI QUEUE TASK AND DISPATCH r 4 P EXTRN LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID
0x2b710c…2b72a0 Dummy {f00=0x008c, f01=0x018e, f02=» f P* P* CONDITIONAL ASSEMBLY P* 0 . P***************************************** : P* l . P* A PROGRAM VERSION USING TOSS MMU PAGING v * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P
0x2b72a0…2b7434 (3, 188) Dummy {f00=0x008f, f01=0x018e, f02=» P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION : P* SET FOR CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1. R P* PCPU857 EQU 1 P* P* 4 P* A PROGRAM VERSION CONTAINING SUBROUTINE MOVUU $ P* WILL EXIST B
0x2b7434…2b75c8 Dummy {f00=0x008f, f01=0x0190, f02=» P* P* P************************ P* MOVBLK DISPLACEMENTS * 8 P************************ X P* x , P* DISPLACEMENTS IN MOVE PARAMETER BLOCK P* & PMOVTIS EQU 0 TASK ID SENDING TASK ( PMOVTIR EQU 2 TASK ID RECEIVING TAS
0x2b75c8…2b775c Dummy {f00=0x008f, f01=0x0190, f02=» TO MOVE t 4 PLENGTH EQU 128 INTERMEDIATE BUFFER LENGTH WORDS P* H P EJECT TMOVE R P* h P* r P********* | P* TMOVE * P********* P* P* ( P* THIS IS THE MOVE LKM PROCESSOR. P* * P* IT IS EN
0x2b775c…2b78f0 Dummy {f00=0x008f, f01=0x0190, f02=»ESS | P* PTMOVE EQU * P ENB * P* 6 P IFT MMUPAG=0 @ * P LD A1,MOVBAS,A7 SOURCE BUFFER ADDRESS V 0 P LD A2,MOVBAR,A7 DESTINATION BUFFER ADDRESS " P LD A3,MOVLEN,A7 BUFFER LENGTH P CF A15,MOVSS MOVE BUFFER P XIF
0x2b78f0…2b7a84 Dummy {f00=0x008f, f01=0x0190, f02=» BUFFER ADDRESS SENDING TASK 4 P EL A10,MOVBAR,A8 BUFFER ADDRESS RECEIVING TASK $ , P EL A3,MOVLEN,A8 REQUESTED BUFFER LENGTH $ P ELR A7,A8 TASK ID SENDING TASK P CWK A7,'#M' * P RF(E) MOV100 MOVE FROM SYSTEM BUFFER $ P CF A15,FNDTID GET
0x2b7a84…2b7c18 Dummy {f00=0x008f, f01=0x0190, f02=» P CWK A7,'#M' ( P RF(E) MVUS10 MOVE TO SYSTEM BUFFER $ P CF A15,FNDTID GET TTAB ADDRESS D P LDR A4,A2 SAVE TTAB ADDRESS l P RF(Z) TTABNF TTAB NOT FOUND P* P EJECT TMOVE P* * P* MOVE FROM USER BUFFER TO USER BUFFER
0x2b7c18…2b7dac Dummy {f00=0x008f, f01=0x0190, f02=» WHERE TO MOVE P* PMOV100 EQU * , P EL A7,MOVTIR,A8 TASK ID RECEIVING TASK 4 P CWK A7,'#M' d ( P RF(E) MVSS10 MOVE TO SYSTEM BUFFER x $ P CF A15,FNDTID GET TTAB ADDRESS P LDR A4,A2 P RF(Z) TTABNF TTAB NOT FOUND P*
0x2b7dac…2b7f40 Dummy {f00=0x008f, f01=0x0190, f02=» * P CF A15,MOVSU MOVE FROM SYSTEM TO USER P RF END 2 P* B , P* MOVE FROM USER BUFFER TO SYSTEM BUFFER L P* | PMVUS10 EQU * * P LDR A2,A10 DESTINATION BUFFER ADDRESS * P CF A15,MOVUS MOVE FROM USER TO SYSTEM P RF END P*
0x2b7f40…2b80d4 (3, 189) Dummy {f00=0x008f, f01=0x018e, f02=»F A15,MOVSS MOVE FROM SYSTEM TO SYSTEM P* . P XIF 8 P* D P EJECT TMOVE N P* d P* END n P* | PEND EQU * P IFT MMUPAG=1 " P LDR A5,A12 TTAB CALLING TASK P XIF P* ( P ABL LKMQDI QUEUE TASK AND DIS
0x2b80d4…2b8268 Dummy {f00=0x008f, f01=0x0190, f02=» v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT J P* X P* b P* l P********* v P* MOVFW * P********* P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM B
0x2b8268…2b83fc Dummy {f00=0x008f, f01=0x0190, f02=» A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQU * P ADK A3,0
0x2b83fc…2b8590 Dummy {f00=0x008f, f01=0x0190, f02=» & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 PRETA14 EQU *
0x2b8590…2b8724 Dummy {f00=0x008f, f01=0x0190, f02=»SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER & P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* > P* EXIT: A1 = S
0x2b8724…2b88b8 Dummy {f00=0x008f, f01=0x0190, f02=» P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < PMOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 P STR A5,A15 SAVE A
0x2b88b8…2b8a4c Dummy {f00=0x008f, f01=0x0190, f02=» RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO MOVE P SCR A5,A2 S
0x2b8a4c…2b8be0 Dummy {f00=0x008f, f01=0x0190, f02=»ENT LENGTH $ P RF(NP) MOVRT1 ALL MOVED,RETURN P* : 6 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS EVEN D P* ~ PMSS010 EQU * P IFF CPUHLP+CPU852=2 P SUK A3,2 SUBTRACT LENGTH 2 P RF(N) MSS020 TEST IF LAST CHARACTER IS MOVED
0x2b8be0…2b8d74 (3, 190) Dummy {f00=0x0090, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x2b8d74…2b8f08 Dummy {f00=0x0090, f01=0x0190, f02=»ED,RETURN z P XIF P* & P LCR A5,A1 LAST CHARACTER TO MOVE ( 0 P SCR A5,A2 STORE CHARACTER IN SYSTEM BUFFER R ( P ADK A1,1 UPDATE USER BUFFER ADDRESS * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P RF MOVRT1 RETURN P EJECT P
0x2b8f08…2b909c Dummy {f00=0x0090, f01=0x0190, f02=»R EVEN , DESTINATION BUFFER ODD P* OR ( 2 P* SOURCE BUFFER ODD , DESTINATION BUFFER EVEN 4 P* j PMSS110 EQU * t P LCR A4,A1 LOAD CHARACTER P SCR A4,A2 STORE CHARACTER $ P ADK A1,1 UPDATE SOURCE ADDRESS ( P ADK A2,1 UPDATE DES
0x2b909c…2b9230 Dummy {f00=0x0090, f01=0x018e, f02=»PAG=1 P EJECT TMOVE P* $ P* . P********* 8 P* MOVUS * J P********* P* n P* x $ P* SUBROUTINE TO MOVE CHARACTERS ( P* FROM USER BUFFER TO SYSTEM BUFFER P* & P* ENTRY: A1 = USER BUFFER ADDRESS (
0x2b9230…2b93c4 Dummy {f00=0x0090, f01=0x0190, f02=» 4 P* EXIT : A1 = USER BUFFER ADDRESS+BUFFER LENGTH 6 P* A2 = SYSTEM BUFFER ADDRESS+BUFFER LENGTH < P* A3 = 0 v P* PMOVUS EQU * P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE
0x2b93c4…2b9558 Dummy {f00=0x0090, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x2b9558…2b96ec Dummy {f00=0x0090, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x2b96ec…2b9880 Dummy {f00=0x0090, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x2b9880…2b9a14 (3, 191) Dummy {f00=0x00c7, f01=0x0190, f02=»VRT3 EQU * P TL 2,A15 SAVED MMU =2 P ADKL A15,32 =2 0 P XIF H PMOVRTN EQU * T P LDR* A5,A15 RELOAD A5 h P LDR* A4,A15 RELOAD A4 P LDK A3,0 ALL MOVED P* PMOVRT2 EQU * P RTN A15 P* P IFT MMUPAG=1
0x2b9a14…2b9ba8 Dummy {f00=0x00c7, f01=0x0190, f02=»ER FROM USER BUFFER x P RF MUS125 P* . PMUS110 EQU * 8 P TM A4,A2 L $ P RB(Z) MUS010 SYSTEM BUFFER EVEN ^ P* ( P* USER BUFFER EVEN,SYSTEM BUFFER ODD P* PMUS120 EQU * P ELR A4,A1 GET TO CHARACTERS P ECR A5,A4
0x2b9ba8…2b9d3c Dummy {f00=0x00c7, f01=0x018e, f02=»DDRESS p P SUK A3,1 DECREMENT LENGTH $ P RB(NP) MOVRT3 ALL MOVED, RETURN 0 P* X PMUS125 EQU * b ( P ADK A1,1 UPDATE USER BUFFER ADDRESS v 0 P SCR A4,A2 STORE CHARACTER IN SYSTEM BUFFER * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS P SUK
0x2b9d3c…2b9ed0 Dummy {f00=0x00c7, f01=0x0190, f02=» P* ! P********* ! P* MOVSU * ! $ P********* ! 6 P* ! H P* ! R $ P* SUBROUTINE TO MOVE CHARACTERS ! ( P* FROM SYSTEM BUFFER TO USER BUFFER ! P* ! ( P* ENTRY: A1 = SYSTEM BUFFER ADDRESS ! & P* A2 = USER BUFFER ADDRESS
0x2b9ed0…2ba064 Dummy {f00=0x00c7, f01=0x0190, f02=»+LENGTH ! l . P* A2 = USER BUFFER ADDRESS+LENGTH " P* A3 = 0 " B P* " Z PMOVSU EQU * " d P ADK A3,0 CHECK LENGTH " x * P RB(NP) MOVRT2 NOTHING TO MOVE, RETURN " P STR A4,A15 SAVE A4 " P STR A5,A15 SAVE A5 " P SUKL A15,32
0x2ba064…2ba1f8 Dummy {f00=0x00c7, f01=0x0190, f02=» BUFFER EVEN " ~ P TM A4,A1 # $ P RF(Z) MSU100 SYSTEM BUFFER EVEN # & P* # N P EJECT TMOVE # X P* # n ( P* SYSTEM BUFFER ODD,USER BUFFER ODD # x P* # * P ELR A5,A2 USER BUFFER FIRST CHARACTER # " P LCR A5,A1 GET FIRST CHARACTER # 4 P ESR A
0x2ba1f8…2ba38c Dummy {f00=0x00c7, f01=0x0190, f02=»ENT LENGTH # * P RB(NP) MOVRT3 NOTHING TO MOVE, RETURN $ P* $ @ P EJECT TMOVE $ J P* $ ` * P* SYSTEM BUFFER EVEN,USER BUFFER EVEN $ j P* $ PMSU010 EQU * $ P TM A4,A3 $ ( P RF(Z) MSU020 REQUESTED LENGTH EVEN $ P SUK A3,1 LENGTH EVE
0x2ba38c…2ba520 Dummy {f00=0x00c7, f01=0x0190, f02=» ADR A1,A5 UPDATE SYSTEM BUFFER ADDRESS $ * P ADR A2,A5 UPDATE USER BUFFER ADDRESS % 0 P ADK A4,0 CHECK LENGTH % ^ $ P RB(NZ) MOVRT3 ALL MOVED, RETURN % | " P LDR* A5,A1 GET LAST CHARACTER % * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS % P* % PMSU030
0x2ba520…2ba6b4 (3, 192) Dummy {f00=0x00c9, f01=0x0190, f02=»WORD IN USER BUFFER % P ESR A5,A2 & ( P ADK A2,1 UPDATE USER BUFFER ADDRESS & . P RB MOVRT3 RETURN & Z P* & t P EJECT TMOVE & ~ P* & ( P* SYSTEM BUFFER EVEN,USER BUFFER ODD & P* & PMSU100 EQU * & P SUK A2,1 USER BUFFER EVEN & .
0x2ba6b4…2ba848 Dummy {f00=0x00c9, f01=0x0190, f02=» $ P RB(Z) MSU010 SYSTEM BUFFER EVEN ' P* ' , ( P* SYSTEM BUFFER ODD,USER BUFFER EVEN ' 6 P* ' b PMSU120 EQU * ' l " P LCR A5,A1 GET FIRST CHARACTER ' $ P ECR A5,A5 CHARACTER TO THE LEFT ' * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ' P SUK A3,1 DE
0x2ba848…2ba9dc Dummy {f00=0x00c9, f01=0x0190, f02=»R ' f $ P ESR A5,A2 STORE TWO CHARACTERS ( * P ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS ( 2 ( P ADK A2,2 UPDATE USER BUFFER ADDRESS ( ` P SUK A3,1 DECREMENT LENGTH ( P RB(P) MSU120 MORE TO MOVE ( P RB MOVRT3 ALL MOVED, RETURN ( P* ( P XIF =3
0x2ba9dc…2bab70 Dummy {f00=0x00c9, f01=0x018e, f02=»UUMOV=2 =3 ( P EJECT TMOVE ) P* ) * P* ) 4 P********* ) > P* MOVUU * ) P P********* ) b P* ) t P* ) ~ $ P* SUBROUTINE TO MOVE CHARACTERS ) & P* FROM USER BUFFER TO USER BUFFER ) P* ) ( P* ENTRY: A1 = SOURCE BUFFER ADDRESS
0x2bab70…2bad04 Dummy {f00=0x00c9, f01=0x0190, f02=» , P* A5 = TTAB ADDRESS SENDING TASK * P* * 4 2 P* EXIT: A1,A2,A3,A8,A9,A10,A11 ARE DESTROYED * > P* * t PMOVUU EQU * * ~ P LDR A11,A3 SAVE LENGTH * * P RF(NP) MUU120 NOTHING TO MOVE, RETURN * " P LDR A9,A1 SAVE SOURCE ADDRESS * ( P L
0x2bad04…2bae98 Dummy {f00=0x00c9, f01=0x0190, f02=»EDIATE BUFFER LENGTH * z 0 P RF(NP) MUU120 INTERMEDIATE BUFFER TOO SMALL + P CWR A11,A3 + P , P RF(G) MUU110 MORE THAN ONE MOVE NEEDED + d ( P LDR A3,A11 REMAINING BUFFER LENGTH + P* + PMUU110 EQU * + P LDR A8,A3 SAVE PART LENGTH + $ P LDR A
0x2bae98…2bb02c Dummy {f00=0x00c9, f01=0x0190, f02=» A9,A1 SAVE NEW SOURCE ADDRESS + 0 P LDKL A1,INTBUF INTERMEDIATE BUFFER ADDRESS , & $ P LDR A2,A10 DESTINATION ADDRESS , Z P LDR A3,A8 LENGTH , * P CF A15,MOVSU MOVE FROM SYSTEM TO USER , , P LDR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x2bb02c…2bb1c0 Dummy {f00=0x00c9, f01=0x40cc, f02=» , P* INTERMEDIATE BUFFER - P* - & PINTBUF EQU * - 0 P RES LENGTH - D PINTLEN EQU *-INTBUF - X P* - t P* - ~ P* - P XIF - P* - P* - P* - P END - @ - DR A10,A2 SAVE NEW DESTINATION ADDRESS , P SUR A11,A8 DE
0x2bb1c0…2bb354 (3, 193) Dummy {f00=0x00de, f01=0x2008, f02=» . P `
0x2bb354…2bb4e8 Dummy {f00=0x00de, f01=0x0002, f02=»
0x2bb4e8…2bb67c Dummy {f00=0x00de, f01=0x0190, f02=» J F IDENT LRPINT REL 11.0 81-01-26 870105041100 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI LKMSRC IHRTC TIMQUE MONCLOC R IHPFAR INIFLGN PFPOST IHLKM INTSAVR PRUNN TTB:SA , (
0x2bb67c…2bb810 Dummy {f00=0x00de, f01=0x0190, f02=»LDSEG TTB:SBR , ( 5 $P c P W T P RELPAG P LKM030 Z b SWL48 v , ( Q ,$^T A V ( LKMAL , ( k U P @ V L LKMERR
0x2bb810…2bb9a4 Dummy {f00=0x00de, f01=0x018e, f02=» v INIFLGN PFPOST * IHPFAR > , ( #P A A R DISQUE , ( Q ? > ? @ XB PFINIT * & ) A A _N A A A I
0x2bb9a4…2bbb38 Dummy {f00=0x00de, f01=0x0190, f02=» f , ( + < Q P Q R Y _ A , ( K ) $ ( P P JW 8 , ( k P ) % X % A _` & P Y _l h MONCLOC MEXIT , ( Z _r 8 FREBLK , ( @"
0x2bbb38…2bbccc Dummy {f00=0x00de, f01=0x40be, f02=» %T 5P ;P ?WF OP UT gV uP {V Q Q H D ! Q ) 1 5 ; ?R I M O ]P aP gW y P H @ P @ Z _r 8 FREBLK , ( @"
0x2bbccc…2bbe60 Dummy {f00=0x00de, f01=0x2008, f02=»
0x2bbe60…2bbff4 (3, 194) Opaque[0x194]
0x2bbff4…2bc188 # DirEnt {nam=»DCSTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13e0, f03=0x0000}
0x2bbff4…2bc188 IdxSect {
0x2bbff4…2bc188 f00 = 0x009f // 0x2bbff4 @0x0
0x2bbff4…2bc188 f01 = 0x000e // 0x2bbff6 @0x2
0x2bbff4…2bc188 gno = [ // 0x2bbff8 @0x4
0x2bbff4…2bc188 [0x00]: C0x009f.0x0.0
0x2bbff4…2bc188 [0x01]: C0x009f.0x2.0
0x2bbff4…2bc188 [0x02]: C0x009f.0x3.0
0x2bbff4…2bc188 [0x03]: C0x00a0.0x0.0
0x2bbff4…2bc188 [0x04]: C0x00a0.0x1.0
0x2bbff4…2bc188 [0x05]: C0x00a0.0x2.0
0x2bbff4…2bc188 [0x06]: C0x00a0.0x3.0
0x2bbff4…2bc188 ]
0x2bbff4…2bc188 }
0x2bc188…2bc31c Dummy {f00=0x009f, f01=0x0190, f02=» 0 P IDENT DCSTAT REL 11.0 81-01-26 870105041100 P* 8 B P************************************************************* B P* $ P* PHILIPS TERMINAL SYSTEM, P T S P* 4 P* DCSTAT STATISTIC DATA COLLECTION ROUTINE FOR * P* DA
0x2bc31c…2bc4b0 Dummy {f00=0x009f, f01=0x0190, f02=»AM DESCRIPTION P*. FUNCTIONS: > P*. DCSTAT SUPPLIES THE DATA COMMUNICATION DRIVERS/PACKAGES , > P*. WITH A SET OF ROUTINES TO MAINTAIN STATISTICAL COUNTERS n , P*. FOR A DWT OR A DWT AND ITS HEAD DWT. @ P*. THE FUNCTIONS ARE CONFIGURABLE BY THE
0x2bc4b0…2bc644 Dummy {f00=0x009f, f01=0x0190, f02=»EM STACK IN d 8 P*. INHIBIT MODE. THEY CAN BE USED SIMULTANEOUSLY BY , P*. DIFFERENT TYPES OF DRIVERS/PACKAGES. P > P*. THE COUNTERS ARE MAINTAINED IN A BUFFER LINKED FROM THE : P*. DWT. EACH BUFFER CONTAINS A CONTROL WORD INDICATING < P*. STATU
0x2bc644…2bc7d8 Dummy {f00=0x009f, f01=0x0190, f02=» COUNTERS ENTRY: DCSRST AND DCSRLL 2 P* -UPDATE COUNTERS ENTRY: DCSUPR AND DCSUPD . ( P* -READ COUNTERS ENTRY: DCSRED d P* P* 8 P* ACTIONS TO INCLUDE STATISTICS IN A DRIVER/PACKAGE 8 P* 1. DEFINE EVENTS IN THE DRIVER TO CALL
0x2bc7d8…2bc96c Dummy {f00=0x009f, f01=0x0190, f02=»E COUNTER AREA IN THE DWT AND ITS LINK(OFFSET) : P* THE LAYOUT DESCRIBED BELOW MUST BE APPLIED AS REQ 6 P* BY DCSTAT t P EJECT P*. TABLE STRUCTURE: ( P*. THE DWT HAS THE FOLLOWING LAYOUT P*. P* .................. P
0x2bc96c…2bcb00 Dummy {f00=0x009f, f01=0x0190, f02=»UFF . -- P* .................. ! " P* . LINK HEAD DWT . --!----> 4 P* .................. ! Z " P* . LINK NEXT DWT . --!----> | P* .................. ! P* . . P* / / ! P* /
0x2bcb00…2bcc94 (3, 195) Dummy {f00=0x009f, f01=0x0190, f02=»NTER AREA . P* .................. P* . . 4 P* / / R P* .................. p P EJECT P* P* ENTRY POINTS P* , P ENTRY DCSRST REST COUNTERS IN SPEC DWT . P ENTRY DCSRLL RESE
0x2bcc94…2bce28 Dummy {f00=0x009f, f01=0x0190, f02=»TETAB ^ 2 P ENTRY DCSUPD UPDATE COUNTER SPEC IN PKT, (A2) 6 P ENTRY DCSRED READ STATISTIC COUNTERS TO USER BUFF D P* ~ P* ENTRY EQU:S P* ( P ENTRY CSMAXL MAX INDEX FOR LINK DWT * P ENTRY DWTCHD EQU DWT OFFSET HEAD DWT * P ENTRY
0x2bce28…2bcfbc Dummy {f00=0x009f, f01=0x0190, f02=»* 8 P**************************************************** P* F & P* CONDITIONAL ASSEMBLY PARAMETERS P P* z 2 P********************************************* P* P PMMUPAG EQU 1 MMU SWITCH P P* 8 P* COND
0x2bcfbc…2bd150 Dummy {f00=0x009f, f01=0x0190, f02=» P STATISTIC ON SUBUNITS PSTUNIT EQU 1 IF 0= NO 1= YES $ P H P DOUBLE WORD COUNTERS R PSTDBLE EQU 0 IF 0=NO, 1=YES r P P P 2 P********************************************** P* P* EXTERNAL TABLE OFF
0x2bd150…2bd2e4 Dummy {f00=0x009f, f01=0x0190, f02=» " REQ LENGTH PECBEL EQU 6 " EFF LENGTH P 8 P B P IFT MMUPAG=0 L ( PDWTDRD EQU /10 DRIVER DEP AREA START b P XIF P IFT MMUPAG=1 ( PDWTDRD EQU /14 DRIVER DEP AREA START P XIF P < PDWTSTB EQU DWTDRD DWT
0x2bd2e4…2bd478 Dummy {f00=0x009f, f01=0x0190, f02=»LINK TO NEXT DWT n 0 PDWTLAD EQU DWTCHN+2 " LOCAL DTE ADDRESS . PDWTSUB EQU DWTLAD+4 POSSIBLE SUB ADDRESS L P EJECT ~ B P************************************************************* P* P* STATISTIC EQU:S * P* USED IN CALLS FO
0x2bd478…2bd60c Dummy {f00=0x009f, f01=0x0190, f02=» < P* THE FORMAT OF THE PARAMETER-1 IN CALL TO DCSUPR/DCSUPD P* IS: D @ P* BITS XYZZZZZZ WHERE X=1IF PARAMETER-2 USED AS INCREMENT R 8 P* ELSE INCREMENT WITH +1 8 P* Y=1 IF DOUBLE WORD COUNTER
0x2bd60c…2bd7a0 Dummy {f00=0x009f, f01=0x0190, f02=»*********** ^ P P* P* LINK LEVEL COUNTERS ( P F . PCSSRBL EQU /10 SYNCH DATA BLOCKS RECEIVED P : PCSSRBY EQU /11 " DATA BLOCKS REJECTED BUFFER BUSY > PCSSRBO EQU /12 " DATA BLOCKS REJECTED BUFFER OVERFLOW 6 PCSSRAB
0x2bd7a0…2bd934 (3, 196) Dummy {f00=0x009f, f01=0x0190, f02=»ATA BLOCKS TRANSMITTED z 2 PCSSTRT EQU /16 " DATA BLOCKS RETRANSMITTED , PCSSTAB EQU /17 " DATA BLOCKS ABORTED T , PCSSXC1 EQU /18 " PROTOCOL DEPENDENT , PCSSXC2 EQU /19 " PROTOCOL DEPENDENT , PCSSXC3 EQU /1A " PROTOCOL DEPEND
0x2bd934…2bdac8 Dummy {f00=0x009f, f01=0x0190, f02=»CSBRBO EQU /12 " I-FRAMES REJECTED BUFFER OVERFLOW 2 PCSBRAB EQU /13 " I-FRAMES REJECTED ABORTED > 4 PCSBRPE EQU /14 " I-FRAMES REJECTED FCS ERROR t . PCSBTIF EQU /15 " I-FRAMES TRANSMITTED 0 PCSBTRT EQU /16 " I-FRAMES RETRANSMITTE
0x2bdac8…2bdc5c Dummy {f00=0x009f, f01=0x0190, f02=» p & PCSBRFR EQU /1A " FRMR RECEIVED $ PCSBRUA EQU /1B " UA RECEIVED 2 & PCSBRRJ EQU /1C " REJ RECEIVED Z & PCSBRNR EQU /1D " RNR RECEIVED 4 PCSBTSM EQU /1E " SNRM/SARM/SABM TRANSMITTED * PCSBTDI EQU /1F " DISC TRANSMIT
0x2bdc5c…2bddf0 Dummy {f00=0x009f, f01=0x0190, f02=»D n ( PCSBTRJ EQU /23 " REJ TRANSMITTED ( PCSBTNR EQU /24 " RNR TRANSMITTED 6 , PCSBXC1 EQU /25 " PROTOCOL DEPENDENT b ( PCSBXC2 EQU /26 " " " ( PCSBXC3 EQU /27 " " " P P P* DTE/DCE
0x2bddf0…2bdf84 Dummy {f00=0x009f, f01=0x018e, f02=»HROUGHPUT ERROR | $ PCSCDCE EQU /2B DCE NOT OPERABLE * PCSCXC1 EQU /2C CONTROL UNIT DEPENDENT @ PCSCXC2 EQU /2D " n PCSCXC3 EQU /2E " P P 6 PCSINIV EQU /10 1ST IMPL COUNTER CSSRBL AND CSBRBL 8 PCSMAXL EQU CSCXC3-/F
0x2bdf84…2be118 Dummy {f00=0x009f, f01=0x018e, f02=» P* P* STATISTIC BUFFER LAYOUT P* 0 < P******************************************************* : P z P* ................... " P* . . STWSID P* .................. " P* . . STWCST
0x2be118…2be2ac Dummy {f00=0x009f, f01=0x0190, f02=» P* / / P* / / " P* ................... @ ( PSTWSID EQU 0 RESERV FOR SYMBOLIC ID ^ & PSTWCST EQU STWSID+2 COUNTER STATUS P =0, RESET , P /=0, OVERFLOW IN COUNTER WITH BIT 0=1 8 PSTWMIX EQU STWCS
0x2be2ac…2be440 Dummy {f00=0x009f, f01=0x0190, f02=»O VALUE IN STWMIX v P EJECT P* ( @ P*********************************************************** 2 P* v < P* DCSRST - RESET STATISTIC COUNTERS FOR SPECIFIED DWT P* & P* THE FOLLOWING ACTIONS ARE TAKEN 4 P* -CHECK IF FUNCTION
0x2be440…2be5d4 (3, 197) Dummy {f00=0x00a0, f01=0x0190, f02=» COUNTERS d P* . P* ENTRY: CF A15,DCSRST A6=DWT 2 P* EXIT: ABR* A15 A1=STATUS N F P* 0=COMPLETED -1= NOT CONFIG P* @ P************************************************
0x2be5d4…2be768 Dummy {f00=0x00a0, f01=0x0190, f02=»UFFER IF ANY z P LDR* A2,A15 RELOAD REG P XIF 4 P RF DCSEXI COMMON EXIT @ P EJECT ^ P l @ P*********************************************************** v P* B P* DCSRLL - RESET STATISTIC COUNTERS FOR ALL DWT:S IN CHAIN
0x2be768…2be8fc Dummy {f00=0x00a0, f01=0x0190, f02=»S OF HEAD DWT IF ANY. IF NOT START WITH CURRENT < P* -LOCATE LINK TO STATISTIC BUFFER. IF 0 GO TO NEXT DWT 8 $ P* -CLEAR COUNTERS IN THE BUFFER x P* 2 P* ENTRY: CF A15,DCSRLL A6=DWT 4 P* EXIT: ABR* A15 A
0x2be8fc…2bea90 Dummy {f00=0x00a0, f01=0x0190, f02=»********************** j P PDCSRLL EQU * ( P IFT STAT=1 < $ P IFT STUNIT=1 SUBUNIT STATISTICS P * P STR A2,A15 SAVE REGS ON SYSTEM STACK x P STR A6,A15 $ P LDR A1,A6 TEMP SAVE OF SPEC DWT " P LD A6,DWTCHD,A6 LINK TO HEAD & P
0x2bea90…2bec24 Dummy {f00=0x00a0, f01=0x0190, f02=» . P LD A6,DWTCHN,A6 LINK TO NEXT DWT IN CHAIN . P RB(NZ) DCSR10 NOT LAST CONTINUE TO CLEAR 6 P LDR* A6,A15 RELOAD REGS h P LDR* A2,A15 P XIF P IFT STAT=1 P IFF STUNIT=1 P RB DCSRST P XIF P RF DCSEXI COMMON EXIT
0x2bec24…2bedb8 Dummy {f00=0x00a0, f01=0x0190, f02=» SPEC WITH PARAMETERS IN p . P* REGS A1 AND POSSIBLY A2 < P* DCSUPS - UPDATE COUNTER SPEC WITH PARAMETERS IN R : P* REGS A1 AND POSSIBLY A2. A7 = DTETAB < P* DCSUPD - UPDATE COUNTER SPEC WITH PARAMETERS IN
0x2bedb8…2bef4c Dummy {f00=0x00a0, f01=0x0190, f02=»IGURED. IF NOT EXIT WITH STATUS t : P* -IF ENTRY DCSUPD USED FETCH PARAMETER-1 FROM PACKET ( < P* -UPDATE COUNTER IN SPEC DWT IF PARAMETER WITHIN RANGE f 4 P* OF MAX VALUE KEPT IN THE CONTROL WORD OF THE P* STATISTIC BUFFER * P* IF SUBUNIT S
0x2bef4c…2bf0e0 Dummy {f00=0x00a0, f01=0x018e, f02=»5,DCSUPR A6=DWT A1=PARAM-1 (A2=PARAM-2) t P* OR 2 2 P* CF A15,DCSUPD A6=DWT H 8 P* DATA PARAM-1 (A2=PARAM-2) ~ P* 6 P* EXIT: ABR* A15 A1=STATUS F P*
0x2bf0e0…2bf274 (3, 198) Dummy {f00=0x00a0, f01=0x0190, f02=» H B P* +1=COUNTER OVERFLOWED P* N D P************::************************************************* X P PDCSUPR EQU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,
0x2bf274…2bf408 Dummy {f00=0x00a0, f01=0x0190, f02=»QU * P IFT STAT=1 * P STR A3,A15 SAVE REGS ON SYSTEM STACK P STR A4,A15 N P STR A5,A15 b P STR A6,A15 v " P LDR A6,A7 A6 = DTETAB ADDRESS P RF DCSU00 P XIF P P PDCSUPD EQU * P IFT STAT=1 * P S
0x2bf408…2bf59c Dummy {f00=0x00a0, f01=0x0190, f02=» STACK p P LDK A4,2 ( P ADS A4,+12,A15 ADJUST RETURN POINT P L P V 0 PDCSU00 EQU * COMMON POINT FOR DCSUPR DCSUPD ` $ P LDK A4,0 PRESET STATUS FOR EXIT PDCSU01 EQU * P CF A15,DCOUNT INCR COUNTER P IFT STUNIT=1 &
0x2bf59c…2bf730 Dummy {f00=0x00a0, f01=0x0190, f02=»KEEP IT x 4 P RB DCSU00 CLEAR STATUS AND UPDATE FOR HEAD DWT ! PDCSU04 EQU * ! H P XIF ! P IFT STAT=1 ! h $ P LDR A1,A4 MOVE STATUS FOR EXIT ! | P LDR* A6,A15 RELOAD REGS ! P LDR* A5,A15 ! P LDR* A4,A15 ! P LDR* A3,A15 ! P XIF !
0x2bf730…2bf8c4 Dummy {f00=0x00a0, f01=0x0190, f02=»ATISTIC COUNTERS INTO USER BUFFER ! x P* " * & P* THE FOLLOWING ACTIONS ARE TAKEN " 4 < P* -CHECK IF FUNCTION CONFIGURED. IF NOT EXIT WITH STATUS " ^ 0 P* -CHECK USER PARAMETERS IF NOT CORRECT EXIT " : P* -FETCH SYMBOLIC ID FROM DWT AND MOV COUNTERS IF ANY
0x2bf8c4…2bfa58 Dummy {f00=0x00a0, f01=0x0190, f02=»ACTION " n P* # : P* ENTRY: CF A15,DCSRED A6=DWT A8=ECB # P* # V 4 P* EXIT: ABR* A15 A1=STATUS # ` D P* 0=COMPLETED -1=NOT CONFIG # : P* -
0x2bfa58…2bfbec Dummy {f00=0x00a0, f01=0x0190, f02=» IN ECBEL AND (ECBBA)=COUNTERS # j > P********************************************************** $ & P $ h PDCSRED EQU * $ r P IFT STAT=1 $ * P STR A2,A15 SAVE REGS ON SYSTEM STACK $ P STR A3,A15 $ P STR A4,A15 $ P STR A5,A15 $ P STR
0x2bfbec…2bfd80 Dummy {f00=0x00a0, f01=0x0190, f02=» $ $ P LD A5,ECBRL,A8 ANY LENGTH GIVEN % P RF(Z) DCSRER NO % 0 P LD A4,DWTTAB,A6 TTAB ADDR % H P IFT STUNIT=1 % j " P LD A1,DWTCHD,A6 ANY HEAD DWT % P RF(Z) DCSR01 NO % 0 P LD A7,DWTSUB,A6 SYMBOLIC SUB ADDRESS IF ANY % P RF DCSR02 MOVE COUNTE
0x2bfd80…2bff14 (3, 199) Dummy {f00=0x00a0, f01=0x0190, f02=»F(Z) DCSR04 NO SYMBOLIC ID MOVE 0 % $ P LD A1,DWTSTB,A6 ANY STAT BUFFER & * P RF(Z) DCSR04 NO MOVE 0 & R P ADR A1,A6 ADD BASE OF DWT & r $ P LD A3,STWMIX,A1 NO OF COUNTERS & P RF(Z) DCSR04 NOE MOVE 0 & P SLL A3,1 COUNTERS TO BYTES & , P ADK A3,
0x2bff14…2c00a8 Dummy {f00=0x00a0, f01=0x0190, f02=»ID OR STAT BUFFER MOVE ZEROE & P LDK A3,2 SIZE ' $ " P LDKL A1,DCZERO BUFFER ADDRESS ' : PDCSR06 EQU * ' ` & P SUR A5,A3 ANY SPACE IN USER BUFF ' t P RF(N) DCSRER NO ' 0 P CF A15,MOVSU MOVE STAT BUFFER TO USER BUFF ' P XIF ' P IFT STAT=1 '
0x2c00a8…2c023c Dummy {f00=0x00a0, f01=0x0190, f02=»IF ' P IFT STAT=1 ( P ( $ PDCSR08 EQU * ALL MOVE UPDATE ECB ( * " P SU A2,ECBBA,A8 START OF USER ( R P ST A2,ECBEL,A8 NO OF BYTES ( x P LDK A1,0 STATUS OK ( P RF DCSREX EXIT ( P ( 2 PDCSRER EQU * BUFFER ERROR E.G NONE OR OVERFLOW
0x2c023c…2c03d0 Dummy {f00=0x00a0, f01=0x0190, f02=»* A4,A15 ( P LDR* A3,A15 ) P LDR* A2,A15 ) $ P XIF ) 8 P RF DCSEXI COMMON EXIT ) D P* ) b PDCZERO DATA 0 ZEROE BUFFER ) l P EJECT ) > P********************************************************* ) P* ) P* COMMON EXIT FROM FUNCTIONS )
0x2c03d0…2c0564 Dummy {f00=0x00a0, f01=0x0190, f02=»A1,-1 STATUS NOT CONFIGURED ) P XIF * $ P ADKL A15,4 * 0 P ABR* A15 RETURN * D P EJECT * P IFT STAT=1 * j : P****************************************************** * ~ P* * " P* COMMON INTERNAL SUBROUTINES * P* * : P******************
0x2c0564…2c06f8 Dummy {f00=0x00a0, f01=0x0190, f02=»ENTRY: CF A15,DCLEAR A6=DWT * 0 P* EXIT: ABR* A15 A1=0 A6=DWT + , PDCLEAR EQU * + ` 0 P LD A2,DWTSTB,A6 ANY STATISTIC BUFFER LINKED + t P RF(Z) DCLEXI NO + P ADR A2,A6 ADD BASE OF DWT + 2 P LD A1,STWMIX,A2 GET MAX INDEX FOR THI
0x2c06f8…2c088c Dummy {f00=0x00a0, f01=0x0190, f02=»DD OFFSET + , P ADR A2,A1 POINT AT LAST WORD+1 IN BUFF , PDCLOOP EQU * , B P CMR A2 CLEAR COUNTER , V P SUK A2,2 POINTER -2 , t P SUK A1,2 ALL CLEARED , P RB(NZ) DCLOOP NO , PDCLEXI EQU * , P LDK A1,0 STATUS , P RF DCEXIT COMMON RE
0x2c088c…2c0a20 Dummy {f00=0x00a0, f01=0x0190, f02=»A6=DWT , l * P* EXIT: ABR* A15 A4= - PDCOUNT EQU * - < P STR A1,A15 SAVE PARAM-1 - P $ P STR A2,A15 SAVE PARAM-2 IF ANY - p * P LD A3,DWTSTB,A6 ANY STATISTIC BUFFER - P RF(Z) DCONOB NO - P ADR A3,A6 ADD BASE OF DWT - P LDR A5,
0x2c0a20…2c0bb4 (3, 200) Dummy {f00=0x00a0, f01=0x0190, f02=»PARAM-1 - | 0 P CW A5,STWMIX,A3 PARAM-1 >MAX VALUE IN BUFF . P RF(NL) DCOMAX YES . D , P ADK A3,STWCTA START AFTER CONTROL WORD . ^ P ADR A3,A5 IN WORDS TO . P ADR A3,A5 START OF BUFFER . " P SLL A1,8 CHECK IF PARAM-2 REQ . P RF(N) DCO010 YES .
0x2c0bb4…2c0d48 Dummy {f00=0x00a0, f01=0x018e, f02=»RITHM . p P RF(N) DCODBL / P XIF / $ P IFT STAT=1 / 0 ( P LDR* A1,A3 CHECK COUNTER OVERFLOWED / D P RF(N) DCOVRE YES NO UPDATE / p P ADR A2,A1 INCREMENT / P / P RF(O) DCOVRF OVERFLOW / P STR A2,A3 SAVE NEW VALUE / P RF DCOEXI /
0x2c0d48…2c0edc Dummy {f00=0x00a0, f01=0x0190, f02=» / p P RF(N) DCOVRE 0 " P LDK A1,0 A1=0 A2=INCR VALUE 0 P DAR* A3 ADD TO COUNTER 0 D P RF(O) DCOVRF OVERFLOW 0 d $ P STR A1,A3 SAVE COUNTER 1ST WRD 0 & P ST A2,+2,A3 SAVE COUNTER 2ND WRD 0 P RF DCOEXI 0 P XIF 0 P IFT STAT=1 0 P
0x2c0edc…2c1070 Dummy {f00=0x00a0, f01=0x018e, f02=»A3 SAVE INDEX OVERFLOW FLAG 0 PDCOVRE EQU * 1 $ " P LDK A4,+1 SET STATUS OVERFLOW 1 8 P 1 ^ P RF DCOEXI 1 h P 1 z $ PDCOMAX EQU * PARAM-1 >MAX INDEX 1 P LDKL A4,-2 SET STATUS 1 P RF DCOEXI 1 PDCONOB EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x2c1070…2c1204 Dummy {f00=0x00a0, f01=0x40e2, f02=» P RF DCEXIT COMMON RETURN 2 P EJECT 2 $ P* 2 2 P* 2 < & P* COMMON RETURN FROM INTERNAL SUBS 2 F P* 2 p PDCEXIT EQU * 2 z " P ADKL A15,4 ADJUST STATUCK POS 2 P ABR* A15 2 P XIF 2 P END 2 @ 2 EQU * NO BUFFER 1 ( P LDKL A4,-3 SE
0x2c1204…2c1398 Dummy {f00=0x00a0, f01=0x2008, f02=» 3 DCEXIT COMMON RETURN # END # $@ # 0 RF(Z) DCLEXI ZEROE " : 2 - ST A1,STWCTL,A2 RESTORE IT CLEANED STATUS =0 " V SLL A1,1 COUNTER INTO BYTES " , ' ADR A2,A1 POINT AT LAST WORD+1 IN BUFF " DCLOOP EQU * " SUK A2,2 POINTER -2
0x2c1398…2c152c Dummy {f00=0x00a0, f01=0x0190, f02=» [ p & P RB POL210 RETRANSMIT WITHOUT (D) PPOL220 EQU * 2 P CWK A2,EOTP (C) RECEIVED ? F P RF(NE) POL250 NO j P EJECT P 0 P******************************************* P* P* (C) RECEIVED P* 0 P****************
0x2c152c…2c16c0 Dummy {f00=0x00a0, f01=0x0190, f02=» h PPOL240 EQU * ] " P CF A5,COMREQ COMPLETE REQUEST ] P ABL BRM ] B PPOL250 EQU * ] R P CWK A2,ACKP (Y) RECEIVED ? ] f P RF(NE) POL260 NO ] P EJECT ] P ] 2 P********************************************** ] P* ] P* (Y) RECEIVED
0x2c16c0…2c1854 (3, 201) Opaque[0x194]
0x2c1854…2c19e8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18b8, f03=0x0000}
0x2c1854…2c19e8 IdxSect {
0x2c1854…2c19e8 f00 = 0x00c5 // 0x2c1854 @0x0
0x2c1854…2c19e8 f01 = 0x0002 // 0x2c1856 @0x2
0x2c1854…2c19e8 gno = [ // 0x2c1858 @0x4
0x2c1854…2c19e8 [0x00]: C0x00c5.0x3.0
0x2c1854…2c19e8 ]
0x2c1854…2c19e8 }
0x2c19e8…2c1b7c Dummy {f00=0x00c5, f01=0x018e, f02=» 0 P IDENT PFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x2c1b7c…2c1d10 Dummy {f00=0x00c5, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " P EXTRN FDON FLEXIBLE DISC N P EXTRN LPON LINE PRINTER p P EXTRN CRON CARD READER P EXTRN DUON DISC UNIT P EXTRN MDON MINI FIXED DISC $ P EXTRN MTDRON MAGNETIC
0x2c1d10…2c1ea4 Dummy {f00=0x00c5, f01=0x417c, f02=»N CDC DISC P EXTRN PLON LINE CONTROLLER P EXTRN VUON VIDEO 6 P EXTRN X25:ON X25 LEVEL 3 P P r P z P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH P DATA TWON P DATA CHLTON P DATA FDON FLEXIBLE DISC
0x2c1ea4…2c2038 Dummy {f00=0x00c5, 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
0x2c2038…2c21cc Dummy {f00=0x00c5, f01=0x0190, f02=»XTRN CHRT3 P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 & ( P EXTRN IHCC2 2 R ( P EXTRN IHCC3 3 ~ L P EXTRN CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5 LOCAL CHANNEL UNIT NO. 1 > P EXTRN CHLT2,I
0x2c21cc…2c2360 Dummy {f00=0x00c5, f01=0x018e, f02=»IHPVU8 t 0 P EXTRN IHFD,IHCD FLOPPY DISC,CDC (80 M) DISC * P EXTRN IHLP,IHPL03,IHPL04 LINE PRINTER B ( P EXTRN IHCR,CHLT3,CHLT4 CARD-READER p ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC P EXTRN IHMT
0x2c2360…2c24f4 (3, 202) Opaque[0x194]
0x2c24f4…2c2688 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b58, f03=0x0000}
0x2c24f4…2c2688 IdxSect {
0x2c24f4…2c2688 f00 = 0x00da // 0x2c24f4 @0x0
0x2c24f4…2c2688 f01 = 0x0004 // 0x2c24f6 @0x2
0x2c24f4…2c2688 gno = [ // 0x2c24f8 @0x4
0x2c24f4…2c2688 [0x00]: C0x00da.0x3.0
0x2c24f4…2c2688 [0x01]: C0x00db.0x0.0
0x2c24f4…2c2688 ]
0x2c24f4…2c2688 }
0x2c2688…2c281c Dummy {f00=0x00da, f01=0x0190, f02=» 0 P IDENT LKMAL REL 11.0 81-01-26 870105041100 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x2c281c…2c29b0 Dummy {f00=0x00da, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION P EXTRN
0x2c29b0…2c2b44 Dummy {f00=0x00da, f01=0x0190, f02=»XTRN TIOFM FILE MANAGEMENT ( P EXTRN DMTEND DATA MANAGEMENT COMMIT " " P EXTRN TCHPAG CHANGE MMU PAGE N " P EXTRN TCHMMU CHANGE MMU TABLE t 2 P EXTRN TSWBLK LOAD/STORE SWAPPABLE WORK BLOCK P EXTRN TMOVE MOVE P EXTRN TENEDM TENDIO FOR EDM
0x2c2b44…2c2cd8 Dummy {f00=0x00da, f01=0x0190, f02=» P* P* P* P* " P* , P* 6 P* @ P* J P EJECT T P* b $ PLKMAL DATA LKMALE-* TABLE LENGTH l P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIV
0x2c2cd8…2c2e6c Dummy {f00=0x00da, f01=0x018e, f02=»OCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION > P DATA TDATE GET/SET DATE b 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TIOFM
0x2c2e6c…2c3000 Dummy {f00=0x00da, f01=0x4086, f02=» p P DATA 0 P DATA 0 $ P DATA TMOVE MOVE @ PLKMALE EQU * X P* l P END v@ A GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TIOFM
0x2c3000…2c3194 (3, 203) Dummy {f00=0x00db, 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
0x2c3194…2c3328 Dummy {f00=0x00db, f01=0x0190, f02=» P* P* P************************ P* MOVBLK DISPLACEMENTS * 8 P************************ X P* x , P* DISPLACEMENTS IN MOVE PARAMETER BLOCK P* & PMOVTIS EQU 0 TASK ID SENDING TASK ( PMOVTIR EQU 2 TASK ID RECEIVING TAS
0x2c3328…2c34bc Dummy {f00=0x00db, f01=0x0190, f02=» TO MOVE t 4 PLENGTH EQU 128 INTERMEDIATE BUFFER LENGTH WORDS P* H P EJECT TMOVE R P* h P* r P********* | P* TMOVE * P********* P* P* ( P* THIS IS THE MOVE LKM PROCESSOR. P* * P* IT IS EN
0x2c34bc…2c3650 Dummy {f00=0x00db, f01=0x0190, f02=»ESS | P* PTMOVE EQU * P ENB * P* 6 P IFT MMUPAG=0 @ * P LD A1,MOVBAS,A7 SOURCE BUFFER ADDRESS V 0 P LD A2,MOVBAR,A7 DESTINATION BUFFER ADDRESS " P LD A3,MOVLEN,A7 BUFFER LENGTH P CF A15,MOVSS MOVE BUFFER P XIF
0x2c3650…2c37e4 Dummy {f00=0x00db, f01=0x0190, f02=» BUFFER ADDRESS SENDING TASK 4 P EL A10,MOVBAR,A8 BUFFER ADDRESS RECEIVING TASK $ , P EL A3,MOVLEN,A8 REQUESTED BUFFER LENGTH $ P ELR A7,A8 TASK ID SENDING TASK P CWK A7,'#M' * P RF(E) MOV100 MOVE FROM SYSTEM BUFFER $ P CF A15,FNDTID GET
0x2c37e4…2c3978 Dummy {f00=0x00db, f01=0x0190, f02=» P CWK A7,'#M' ( P RF(E) MVUS10 MOVE TO SYSTEM BUFFER $ P CF A15,FNDTID GET TTAB ADDRESS D P LDR A4,A2 SAVE TTAB ADDRESS l P RF(Z) TTABNF TTAB NOT FOUND P* P EJECT TMOVE P* * P* MOVE FROM USER BUFFER TO USER BUFFER
0x2c3978…2c3b0c Dummy {f00=0x00db, f01=0x0190, f02=» WHERE TO MOVE P* PMOV100 EQU * , P EL A7,MOVTIR,A8 TASK ID RECEIVING TASK 4 P CWK A7,'#M' d ( P RF(E) MVSS10 MOVE TO SYSTEM BUFFER x $ P CF A15,FNDTID GET TTAB ADDRESS P LDR A4,A2 P RF(Z) TTABNF TTAB NOT FOUND P*
0x2c3b0c…2c3ca0 Dummy {f00=0x00db, f01=0x0190, f02=» * P CF A15,MOVSU MOVE FROM SYSTEM TO USER P RF END 2 P* B , P* MOVE FROM USER BUFFER TO SYSTEM BUFFER L P* | PMVUS10 EQU * * P LDR A2,A10 DESTINATION BUFFER ADDRESS * P CF A15,MOVUS MOVE FROM USER TO SYSTEM P RF END P*
0x2c3ca0…2c3e34 (3, 204) Opaque[0x194]
0x2c3e34…2c3fc8 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f8, f03=0x0000}
0x2c3e34…2c3fc8 IdxSect {
0x2c3e34…2c3fc8 f00 = 0x0097 // 0x2c3e34 @0x0
0x2c3e34…2c3fc8 f01 = 0x0058 // 0x2c3e36 @0x2
0x2c3e34…2c3fc8 gno = [ // 0x2c3e38 @0x4
0x2c3e34…2c3fc8 [0x00]: C0x0097.0x3.0
0x2c3e34…2c3fc8 [0x01]: C0x0098.0x1.0
0x2c3e34…2c3fc8 [0x02]: C0x0098.0x2.0
0x2c3e34…2c3fc8 [0x03]: C0x0098.0x3.0
0x2c3e34…2c3fc8 [0x04]: C0x0099.0x0.0
0x2c3e34…2c3fc8 [0x05]: C0x0099.0x1.0
0x2c3e34…2c3fc8 [0x06]: C0x0099.0x2.0
0x2c3e34…2c3fc8 [0x07]: C0x0099.0x3.0
0x2c3e34…2c3fc8 [0x08]: C0x009a.0x0.0
0x2c3e34…2c3fc8 [0x09]: C0x009a.0x1.0
0x2c3e34…2c3fc8 [0x0a]: C0x009a.0x2.0
0x2c3e34…2c3fc8 [0x0b]: C0x009a.0x3.0
0x2c3e34…2c3fc8 [0x0c]: C0x009b.0x0.0
0x2c3e34…2c3fc8 [0x0d]: C0x009b.0x1.0
0x2c3e34…2c3fc8 [0x0e]: C0x009b.0x2.0
0x2c3e34…2c3fc8 [0x0f]: C0x0107.0x2.0
0x2c3e34…2c3fc8 [0x10]: C0x0108.0x3.0
0x2c3e34…2c3fc8 [0x11]: C0x0109.0x0.0
0x2c3e34…2c3fc8 [0x12]: C0x0109.0x1.0
0x2c3e34…2c3fc8 [0x13]: C0x0109.0x2.0
0x2c3e34…2c3fc8 [0x14]: C0x0109.0x3.0
0x2c3e34…2c3fc8 [0x15]: C0x010a.0x0.0
0x2c3e34…2c3fc8 [0x16]: C0x010a.0x1.0
0x2c3e34…2c3fc8 [0x17]: C0x010a.0x2.0
0x2c3e34…2c3fc8 [0x18]: C0x010a.0x3.0
0x2c3e34…2c3fc8 [0x19]: C0x010b.0x0.0
0x2c3e34…2c3fc8 [0x1a]: C0x010b.0x1.0
0x2c3e34…2c3fc8 [0x1b]: C0x010b.0x2.0
0x2c3e34…2c3fc8 [0x1c]: C0x010b.0x3.0
0x2c3e34…2c3fc8 [0x1d]: C0x010c.0x0.0
0x2c3e34…2c3fc8 [0x1e]: C0x010c.0x1.0
0x2c3e34…2c3fc8 [0x1f]: C0x010c.0x2.0
0x2c3e34…2c3fc8 [0x20]: C0x010c.0x3.0
0x2c3e34…2c3fc8 [0x21]: C0x010d.0x0.0
0x2c3e34…2c3fc8 [0x22]: C0x010d.0x1.0
0x2c3e34…2c3fc8 [0x23]: C0x010d.0x2.0
0x2c3e34…2c3fc8 [0x24]: C0x010d.0x3.0
0x2c3e34…2c3fc8 [0x25]: C0x010e.0x0.0
0x2c3e34…2c3fc8 [0x26]: C0x010e.0x1.0
0x2c3e34…2c3fc8 [0x27]: C0x010e.0x2.0
0x2c3e34…2c3fc8 [0x28]: C0x010e.0x3.0
0x2c3e34…2c3fc8 [0x29]: C0x010f.0x0.0
0x2c3e34…2c3fc8 [0x2a]: C0x010f.0x1.0
0x2c3e34…2c3fc8 [0x2b]: C0x010f.0x2.0
0x2c3e34…2c3fc8 ]
0x2c3e34…2c3fc8 }
0x2c3fc8…2c415c Dummy {f00=0x0097, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 11.0 81-05-22 870105041100 P : ( P =12,COND. ASSEMBLY EDM INTRODUCED B P =12,REL 11.0 81-05-19 n * P =11,ERROR IN READ ROUT. FOR 16M,80M P =11,REL 11.0 81-05-11 , P =10,TWO WORDS IN INTERRUPT TABLE ARE
0x2c415c…2c42f0 Dummy {f00=0x0097, f01=0x0190, f02=» =8,WHEN CFTEST=1 TEST ALSO RWSI CONNECTION P =8,REL 11.0 81-03-31 6 $ P =7,WRONG VTOC-SECTOR POINTER V P =7,REL 11.0 81-03-12 ~ * P =6,DC BLOCK DESTROYED WHEN CFTEST=0 P =6,REL 11.0 81-02-06 2 P =5,SUPPORTS LOADING FROM
0x2c42f0…2c4484 Dummy {f00=0x0097, f01=0x0190, f02=» KBYTE MEMORY OVERFLOW * P =3,WILL OCCUR IN SEGMENT ALLOCATION P =3,PRR 11.0 80-12-03 L 0 P =2,LOOK IF APPL. TYPE ALLOWED IN MONITOR l 0 P =2,REDESIGNED SEGMENT ALLOCATION ALGORITM P =2,PRR 11.0 80-11-20 * P =1,MXSTAB ADDR. N
0x2c4484…2c4618 Dummy {f00=0x0097, f01=0x0190, f02=»1 P ENTRY APLADA P ENTRY APLLAC P ENTRY APLLAP 6 P ENTRY APLLDA L P ENTRY APLMMC b P ENTRY APLMMP x P ENTRY APLNPE P ENTRY APLREL P ENTRY APLSTA P ENTRY APLTYP P ENTRY APLIOE P ENTRY APLSE
0x2c4618…2c47ac Dummy {f00=0x0097, f01=0x0190, f02=» P* * P*************************** ( P EXTRN CONVRT L ( P EXTRN POB RESTORE REGISTER CONTENTS b & P EXTRN PUSH SAVE REGISTER CONTENTS P EXTRN SYSLDM P EXTRN SCTANO P EXTRN SCTBUG P EXTRN SCTEFA
0x2c47ac…2c4940 Dummy {f00=0x0097, f01=0x0190, f02=»CTIPL P EXTRN SCTPSZ P EXTRN SCTSFA $ P EXTRN SCTSTB : P EJECT P P EXTRN REL ^ P EXTRN ERROR p P EXTRN MMDDIV P EXTRN TABBE P EXTRN MMEND P EXTRN CMPADR P EXTRN MOVE 4 P EXTRN TTB:MT DISPLACEMENT T
0x2c4940…2c4ad4 (3, 205) Dummy {f00=0x0098, f01=0x0190, f02=»*************************** $ P* CONFIGURATION FILE (CONFIG) * $ $ P******************************* L P t P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK
0x2c4ad4…2c4c68 Dummy {f00=0x0098, f01=0x0190, f02=»R OF TERMINAL DEVICE CLASSES v P* $ & PTDBFST EQU TDBNC+2 SAVE05 TERM DEF . $ PTDC EQU 7 TERMINAL DEVICE CLASS X PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P*
0x2c4c68…2c4dfc Dummy {f00=0x0098, f01=0x0190, f02=»SDCFST EQU CDBNC+2 SAVE05 SDC-RECORD P* , P* 6 & P* USER WORK BLOCK TYPE DEF. BLOCK @ PUDBBT EQU 0 1A BLOCK TYPE j , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P* ( PUDBFST EQU UDBNU+3 SAVE05 UDB-RECORD PNAMUWB EQU 3 NAME OF U
0x2c4dfc…2c4f90 Dummy {f00=0x0098, f01=0x0190, f02=»* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS 0 P R PLMP1 EQU /400 LAMP 1 CODE Z PLMP2 EQU /200 | PLMP3 EQU /100 PLMP4 EQU /80 PLMP5 EQU /40 PLMP6 EQU /20 PLMP7 EQU /10 PLMP8 EQU 8
0x2c4f90…2c5124 Dummy {f00=0x0098, f01=0x018e, f02=» MXSTAB DISPLACEMENTS * ( P*********************************** * P V P ^ PMX:NOX EQU 6 f , PMX:NOS EQU 8 NUMBER OF SEGMENT CLUSTERS z P P 2 P********************************************* 2 P*
0x2c5124…2c52b8 Dummy {f00=0x0098, f01=0x0190, f02=» 2 P* * 2 P********************************************* : P p P x 2 PAPLADA EQU 22 APPLICATION DISC FILE ADDRESS =2 . PAPLREL EQU 18 APPLICATION RELOCATION BASE , PAPLIOE EQU 0 APPLICATION RESTART
0x2c52b8…2c544c Dummy {f00=0x0098, f01=0x018e, f02=»CATION LOAD ADDR. (PHYSICAL ADDR.) ~ . PAPLMMC EQU 10 APPLICATION MMU START ENTRY * ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU . PAPLPSZ EQU 20 APPLICATION SE
0x2c544c…2c55e0 Dummy {f00=0x0098, f01=0x0190, f02=» p P EJECT " P****************************** " P* * < " P* COMMON DISPLACEMENTS * b " P* AND CONSTANTS * " P* * " P****************************** P P
0x2c55e0…2c5774 (3, 206) Dummy {f00=0x0098, f01=0x0190, f02=»PLICATION NUMBER ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA D , PCONSTA EQU 2 START OF CONFIGURATION DATA v ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER
0x2c5774…2c5908 Dummy {f00=0x0098, f01=0x0190, f02=»ILDING DATA PART n ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA D ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA r $ PM:REL EQU 16 RELOCATION CONSTANT , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-F
0x2c5908…2c5a9c Dummy {f00=0x0098, f01=0x0190, f02=»1 EQU 40 COMMON SAVE AREA 1 $ PCOM02 EQU 42 COMMON SAVE AREA 2 $ $ PCOM03 EQU 44 COMMON SAVE AREA 3 L * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS t , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 S
0x2c5a9c…2c5c30 Dummy {f00=0x0098, f01=0x018e, f02=»EMENTS * " P* AND CONSTANTS * " P* * < " P****************************** b P P , PAPLCNT EQU 4 NO OF APPLICATIONS TO LOAD & PBLKLEN EQU 6 SEGMENT BLOCK LENGTH 8 PCARFIX EQU 54
0x2c5c30…2c5dc4 Dummy {f00=0x0098, f01=0x0190, f02=» * PCONDAD EQU 44 CONF. FILE DISC ADDRESS P* EQU 46 2 0 PCONDEV EQU 32 SAVE AREA FOR CONF. DATA DEV. B , PCURAPL EQU 24 CURRENT APPL. CONTR. BLOCK v PDEVTYP EQU 50 DEVICE TYPE 6 PDISCAD EQU 28 SAVE AREA FOR DISC ADDRESS (2 WORDS) $ PECNFBF
0x2c5dc4…2c5f58 Dummy {f00=0x0098, f01=0x0190, f02=»TENT LENGTH z 6 PFILCOD EQU 36 LOAD DEVICE FILE CODE (NOT CASSETTE) ( PFSTSEC EQU 16 FIRST SECTOR INDICATOR N 0 PIPLDEV EQU 34 SAVE AREA FOR PGM LOAD DEVICE z & PIPLTYP EQU 48 PGM LOAD DEVICE TYPE & PLLDADR EQU 12 LOGICAL LOAD ADDRESS , PLSTREC
0x2c5f58…2c60ec Dummy {f00=0x0098, f01=0x0190, f02=» EQU 8 NO OF CHAR. IN APPL. NAME * PNCHTID EQU 5 NO OF CHAR IN TID RECORD ( & PNDEVCL EQU 18 NO OF DEVICE CLASSES V 2 PNUMSEG EQU 10 DISPL. TO NO OF SEGM. IN S:GTAB . POPTION EQU 52 SAVE AREA FOR OPTOIN WORD =2 & PPAGLG EQU 8 PAGE LENGTH IN S:GTA
0x2c60ec…2c6280 Dummy {f00=0x0098, f01=0x0190, f02=»NT j : PPSECNL EQU 40 PHYSICAL SECTOR NUMBER LEAST SIGNIFICANT : PPSECNM EQU 42 PHYSICAL SECTOR NUMBER MOST SIGNIFICANT H , PPSECPA EQU 38 PHYSICAL SECTOR PART (0-2) " PSEGCNT EQU 10 SEGMENT COUNTER $ PSWPFEL EQU 14 FILE EXTENT LENGTH * PTNBR
0x2c6280…2c6414 (3, 207) Dummy {f00=0x0098, f01=0x0190, f02=»******* , PCHCR EQU /E DEVICE ADDRESS FOR CASSETTE PLOCK EQU /2 LOCK CASSETTE @ ( PSBOT EQU 8 SEARCH BEGINNING OF TAPE b ( PSTMF EQU /C SEARCH TAPEMARK FORWARD P* " P* DISC/FLEXIBLE DISC HANDLING P* ( PBUFLEN EQU 256 LENGT
0x2c6414…2c65a8 Dummy {f00=0x0098, f01=0x0190, f02=» FLEXIBLE DISC CU ADDRESS $ PFDIOP EQU FDCU+FDCU MUX ADDRESS " PFORDEV EQU 48 DISC FORMAT J " PMUXCC EQU /8080 1:ST MUX WORD l * PMXCCD3 EQU /80C1 BYTE2=NUMBER OF WORDS PQBLFAC EQU 6 BLOCKING FACTOR , PCIO EQU /41C0 I/O INSTR. CONF. CONST
0x2c65a8…2c673c Dummy {f00=0x0098, f01=0x0190, f02=»: CFR A14,A13 * x F P* DATA [REL-ADDRESS] * 2 F P* * | F P*****************************************************************
0x2c673c…2c68d0 Dummy {f00=0x0098, f01=0x0190, f02=» ASSEMBLY * P************************** P 6 P > P* F " P* CONSTANTS EDITED BY SYSGEN P P* v P P PX:A EQU 1 PX:B EQU 1 PX:C EQU 1 PX:D EQU 0 PX:E EQU 0 PX:F EQU 0 =9 PX:G EQU
0x2c68d0…2c6a64 Dummy {f00=0x0098, f01=0x0190, f02=» LOAD DEVICE = CASSETTE | , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1= PROGRAM LOAD DEVICE = FLEXIBLE DISC P 8 PMFDISC EQU 0 1-PROGRAM LOAD DEVICE = MINI FIXED DISC 4 PCDDISC EQU 0 1-PROGRAM LOAD DEVICE=80M CDC DISC 8 PCDDI16 E
0x2c6a64…2c6bf8 Dummy {f00=0x0098, f01=0x0190, f02=»TFLD EQU CFTEST+FLDISC P EJECT : P****************************************************** , : P* * j : P* APPLICATION LOAD PART OF SYSLOD * : P* =======================
0x2c6bf8…2c6d8c Dummy {f00=0x0098, f01=0x0190, f02=» * b : P* A2 - PROGRAM LOAD DEVICE * : P* A3 - APPLICATION NUMBER * L : P* A7 - APPLICATION DISC ADDRESS BIT 16-31 * : P* A8 - APPLICATION DISC ADDRESS BIT 0-15 * : P*
0x2c6d8c…2c6f20 Dummy {f00=0x0098, f01=0x0190, f02=» * : P* EXIT: * 0 : P* * n : P* SUBROUTINES: CASSIN,SOPIN,CHCRIO,LODCOM * : P* LODSEG,REBUF,
0x2c6f20…2c70b4 (3, 208) Dummy {f00=0x0099, f01=0x0190, f02=» * f : P****************************************************** PSYSLOD EQU * R P* f P* SAVE REGISTERS p P* 4 P ST A1,IPLTYP+STKEND SAVE FORMAT AND DEVICE TYPE * P ST A2,SCTIPL SAVE PROGRAM LOAD DEVICE P ST A2,IPLDEV+
0x2c70b4…2c7248 Dummy {f00=0x0099, f01=0x018e, f02=»YSLOD t P SUK A3,TBLBAS PTBLBAS EQU *-2-SYSLOD $ & P ST A3,APLTAB+STKCOM AS TABLE AREA B " P LDK A1,1 INITIATE NO OF APPL. l P STR A1,A3 AND SAVE IN TABLE > P ST A8,APLADA+2,A3 SAVE APPLICATION DISC ADDRESS BIT 0-15 > P ST A7,APLADA+4,
0x2c7248…2c73dc Dummy {f00=0x0099, f01=0x0190, f02=» 4 PSYS100 ADKL A13,SYS110-SYS100 POINTER TO SYS110 P LD A1,SCTBUG < P LDR A2,A1 R 8 P ANK A2,1 TEST IF DEBUG ADDRESS IS ODD,IF TRUE START d P ABR(NZ) A1 P* PSYS110 EQU * " P LD A15,SCTSTB LOAD STACK BASE " P SUKL A15,4 ADJU
0x2c73dc…2c7570 Dummy {f00=0x0099, f01=0x018e, f02=»POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) $ P* AND ADDRESS TO GETPSW-ROUTINE ! > P* ! f P LDR A8,P RETURN ADDRESS ! p & P LDKL A3,REL+2 RELOCATION ROUTINE ! P CFR A8,A3 ! $ P LDKL A5,/5555 LOAD TEST PATTERN ! P LDK A6,64 INIT PAGE
0x2c7570…2c7704 Dummy {f00=0x0099, f01=0x0190, f02=» " P SLL A6,2 UPPER SAVE20=256 KB " P LDK A1,0 MMU ENTRY POINTER " * PAP:010 EQU * " N " P LD A2,TABBE GET PAGE ADDRESS " b 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS " P ST A2,TABBE STORE IT BACK " P TL TABBE LOAD MMU REGISTERS " 0 P EL
0x2c7704…2c7898 Dummy {f00=0x0099, f01=0x0190, f02=» 2 P ES A3,PAGSIZ-2,A1 RESTORE OLD MEMORY CONTENTS # ( P CWR A2,A5 COMPARE WITH TEST PATTERN # : P RF(E) AP:020 # f ( P SUK A6,4 DECREMENT NUMBER OF PAGES # | P RB AP:010 # P* # $ P* CHECK IF MMU HARDWARE PRESENT # P* # PAP:020 LDKL A1,/FC
0x2c7898…2c7a2c Dummy {f00=0x0099, f01=0x0190, f02=»REGISTERS IN MMU TABLE # | " P CW A1,MMDDIV,A13 SUCCESSFUL? $ " P RF(E) AP:030 YES! MMU PRESENT $ D P LDKL A1,LMP9 $ j . P CALL ERROR INDICATE HARDWARE NOT PRESENT $ $ PAP:030 CM TABBE RESET MMU TABLE $ P* $ D P* END OF EXECUTION PATH FOR SYSTEMS
0x2c7a2c…2c7bc0 Dummy {f00=0x0099, f01=0x0190, f02=» PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY $ P* % 8 $ P LDKL A1,PAGSIZ-2 START AT /FFFE % B PAP:110 EQU * % j & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE % ~ ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT % " P STR A5,A1 STORE TEST PATTERN % P CWR* A5,A1 CH
0x2c7bc0…2c7d54 (3, 209) Dummy {f00=0x0099, f01=0x0190, f02=» EQU * % * P STR A2,A1 RESTORE OLD MEMORY CONTENT & P* & < H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY & F P* & P XIF & P EJECT & P* & P* COMMON EXECUTION PATH & P* & PAP:200 EQU * & 0 P ST A6,SCT
0x2c7d54…2c7ee8 Dummy {f00=0x0099, f01=0x0190, f02=»T FRAME TO BE USED & ~ P LDK A3,0 ' . P ST A3,SCTEFA+2 AREA EMPTY IN FIRST FRAME ' , $ P LD A1,SCTOPT GET OPTION WORD =2 ' ^ P ST A1,OPTION+STKEND =2 ' $ P ANKL A1,/FFF RESET TYPE BITS =2 ' * P ST A1,SCTOPT AND SET AS NEW OPTION =2 ' P* ' H P
0x2c7ee8…2c807c Dummy {f00=0x0099, f01=0x0190, f02=»RESS TO READ-BUFFER ' * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE ( P* ( J & P* INITIALIZE PROGRAM LOAD DEVICE ( T P* ( ~ P CF A14,LODDEV ( P LDR A3,A9 SAVE ( . P AD A3,SAVCON COMPUTE START OF APPL. TABLE ( " P ST A3,SCTSFA STORE IN SYSTAB (
0x2c807c…2c8210 Dummy {f00=0x0099, f01=0x0190, f02=» PAP:232 EQU * ) P IFT EDM=1 =12 ) P* ) 0 & P* LOAD MONITOR EXTENTS IF PRESENT ) : P* ) d ( P CF A14,LODMEX LOAD MONITOR EXTENTS ) n P XIF ) P* ) $ P* SCAN CONF. FILE FOR POSSIBLE ) $ P* APPLICATION DEFINITION BLOCKS ) P* )
0x2c8210…2c83a4 Dummy {f00=0x0099, f01=0x0190, f02=»IGN. PART OF DISC ADDRESS ) x 8 P LD A11,APLADA+2,A1 LEAST SIGN. PART OF DISC ADDRESS * " ( P LD A10,READ GET SUBROUTINE ADDRESS * ^ " P CFR A14,A10 READ FIRST SECTOR * PAP:233 EQU * * 0 P LD A1,APLTAB+STKCOM GET APPL. TABLE ADDRESS * ( P LDR* A6,A1 GET
0x2c83a4…2c8538 Dummy {f00=0x0099, f01=0x0190, f02=»KEND CURRENT APPL. CONTROL BLOCK * PAP:234 EQU * + ( ( P LD A7,SCTEFA GET FIRST FRAME TO USE + < ( P LD A5,SCTEFA+2 AND AREA EMPTY IN IT + h : P LD A1,CURAPL+STKEND RESTORE APPL. CONTROL BLOCK ADDR. + P EJECT + PAP:235 EQU * + P* + . P* SAVE IN
0x2c8538…2c86cc Dummy {f00=0x0099, f01=0x018e, f02=»DDRESS TO FIRST + r * P CM APLSEG+2,A1 CORE RESIDENT SEGMENT , 4 P CM APLMMC,A1 CLEAR REL. POSITION OF CONF. DATA , F . P CM APLPSZ,A1 CLEAR SEGMENT SIZE ENTRY =2 , ~ 0 P CM TNBRSG+STKEND CLEAR NBR. OF SEGMENTS =5 , : P LDR* A6,A9 GET PGM. START ADDRESS (
0x2c86cc…2c8860 Dummy {f00=0x0099, f01=0x0190, f02=» 4 P LDKL A4,/1000 INITIALIZE BIT SETTING (BIT 3=1) - $ P CWK A6,'CR' CREDIT APPLICATION? - < P RF(E) AP2340 - d P* - z . P SLL A4,1 BIT SETTING FOR COBOL (BIT 2=1) - $ P CWK A6,'CO' COBOL APPLICATION? - P RF(E) AP2340 - P* - . P SLL A4,1
0x2c8860…2c89f4 (3, 210) Dummy {f00=0x0099, f01=0x0190, f02=»R TYPE - v 2 P SLL A4,1 BIT SETTING FOR ASSEMBLER (BIT 0=1) . PAP2340 EQU * . D * P ST A6,APLTYP,A1 SAVE APPLICATION TYPE . X , P CWK A6,'AS' ASSEMBLER ALWAYS ALLOWED =2 . P RF(E) AP2345 =2 . 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOWED =2 .
0x2c89f4…2c8b88 Dummy {f00=0x0099, f01=0x018e, f02=»2,A4 SET BIT IN OPTION WORD . P ST A2,SCTOPT AND SAVE / $ P CWK A6,'AS' / B * P RF(E) AP2350 SKIP IF ASSEMBLER APPL. / V P* / , P LD A3,PAGLG+8,A9 GET DEFINED PAGE SIZE / 6 P CW A3,SCTPSZ COMPARE WITH PREVIOUSLY DEFINED SIZE / . P RF(NG) AP2350 I
0x2c8b88…2c8d1c Dummy {f00=0x0099, f01=0x0190, f02=» P EJECT 0 P* 0 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 0 P* 0 R ( P CWK A6,'AS' ASSEMBLER APPLICATION? 0 $ P ABL(E) AP:330 YES! NO SEGMENTS 0 P LDR A4,A3 SAVE 0 $ P ANKL A4,/3FF EVEN 1K MULTIPLE? 0 P RF(Z) AP:237 YES! 0
0x2c8d1c…2c8eb0 Dummy {f00=0x0099, f01=0x0190, f02=»EGMENTS DEFINED 0 r P* 1 PAP:238 EQU * 1 " P ABL(Z) AP:330 NO SEGMENTS! 1 6 P* 1 Z 2 P CF A14,ALOCSG RESERVE AREA FOR RESIDENT SEGM. 1 d P* 1 2 P* A1 - POINTER TO CURRENT APPL. CONTR. BLOCK 1 " P* A3 - PAGESIZE IN 1K BLOCKS 1 " P* A5 -
0x2c8eb0…2c9044 Dummy {f00=0x0099, f01=0x0190, f02=» STORE ADDRESS(ES) TO PAGE FRAMES 1 & P* HOLDING THE FIRST LOGICAL PAGE 2 * P* 2 T , P SRL A3,10 SEGMENT SIZE IN 1K BLOCKS =2 2 ^ ( P LDKL A6,MMEND GET END OF MMU-TABLE 2 " P LDKL A8,16 AND NO OF ENTRIES 2 * P LDR A4,A5 GET AREA LEFT IN LAST FRAME 2
0x2c9044…2c91d8 Dummy {f00=0x0099, f01=0x0190, f02=»PAGE SIZE WITH FRAME SIZE 2 | P RB(P) AP:295 3 " $ P RF(Z) AP:300 EVEN 4K BYTES PAGE 3 8 P* 3 ` " P* RESERVE ONE EXTRA MMU ENTRY 3 j P* WHEN PAGE SIZE IS NOT AN 3 P* EVEN MULTIPLE OF 4K 3 P* 3 $ P LD A3,PAGLG+8,A9 GET PAGE SIZE 3 * P ANK
0x2c91d8…2c936c Dummy {f00=0x0099, f01=0x0190, f02=» A6,2 ALLOCATE ONE ENTRY EXTRA 3 P SUKL A8,1 4 & P* 4 8 PAP:300 EQU * 4 B 4 P LD A3,SEGCNT+STKEND ANY CORE RESIDENT SEGMENTS? 4 V P RF(Z) AP:310 NO! 4 P* 4 ( P LDR A2,A7 GET SEGMENT FRAME ADDRESS 4 P LDR A3,A6 SAVE MMU ENTRY 4 P* 4
0x2c936c…2c9500 Dummy {f00=0x0099, f01=0x0190, f02=»MU TABLE? 4 z P RF(E) AP:310 YES! 5 P* 5 , , P ADKL A2,/400 INCREMENT PAGE FRAME ADDR. 5 6 P RB AP:305 5 f P* 5 x PAP:310 EQU * 5 P* 5 P* SAVE LOGICAL ADDRESS 5 P* TO SEGMENT 5 P* 5 P LDR A2,A8 GET MMU ENTRY 5 & P SLL A2,
0x2c9500…2c9694 (3, 211) Dummy {f00=0x0099, f01=0x018e, f02=» ST A2,LSTASG+STKEND AND SAVE AS LOGICAL START ADDR. 5 P RF AP:335 6 < P* 6 N P* NO SEGMENTS DEFINED 6 X P* 6 v PAP:330 EQU * 6 0 P LDK A3,0 RESET NO OF MMU ENTRIES TO UPDATE 6 ( P LDKL A6,MMEND INITIATE MMU POINTER 6 & P LDKL A8,16 AND MMU
0x2c9694…2c9828 Dummy {f00=0x0099, f01=0x0190, f02=» P* 7 0 P* A1 - POINTER TO APPLICATION CONTROL BLOCK 7 , P* A4 - AREA LEFT IN CURRENT PAGE FRAME 7 B " P* A7 - PHYSICAL PAGE ADDRESS 7 r P* A6 - MMU ENTRY ADDRESS 7 P* A8 - CURRENT MMU ENTRY 7 P* 7 0 P LD A2,COMLG,A9 COMLG OF CORE RESI
0x2c9828…2c99bc Dummy {f00=0x0099, f01=0x0190, f02=» A2,10 YES, ADD 5 WORDS FOR DEBUGGER 7 PAP:336 EQU * 8 , P ADK A2,1 8 @ $ P ANKL A2,/FFFE MAKE EVEN LENGTH 8 R P* 8 z $ P* IF APPLICATION IS LARGER THAN 8 P* 60 K BYTES, START ON A 4K 8 " P* BOUNDARY, TO MAKE SURE THAT 8 P* LOGICAL MEMORY
0x2c99bc…2c9b50 Dummy {f00=0x0099, f01=0x018e, f02=» RF(L) AP:337 NO! 8 P* 9 $ P LDK A4,0 START ON A 4K BOUNDARY 9 $ P RF AP:341 9 L P* 9 ^ PAP:337 EQU * 9 h & P ADK A2,0 RESTORE LENGTH CONDITION 9 | & P RF(N) AP:340 LARGER THAN ONE PAGE 9 P* 9 & P* APPLICATION IS SMALLER THAN 32 K 9 & P* BU
0x2c9b50…2c9ce4 Dummy {f00=0x0099, f01=0x0190, f02=» ( P* APPLICATION LENGTH LESS THAN AREA : P* LEFT IN LAST PAGE : 0 P* COPY FRAME ADDRESS IN NEXT : L P* MMU ENTRY : p P* : P* : P SUKL A8,1 : " P RF(N) TABOVF TABBE OVERFLOW! : P* : P SUK A6,2 : P STR A7,A6 UPDATE MMU ENTRY
0x2c9ce4…2c9e78 Dummy {f00=0x0099, f01=0x0190, f02=»MMU TABLE FOR : z " P* COMMON PART OF APPLICATION ; P* ; < $ P* A4 - AREA MAPPED BUT NOT USED ; F P* IN LAST MMU ENTRY ; n " P* A2 - LENGTH OF COMMON PART ; P LDR A4,A4 EMPTY FRAME? ; P RF(Z) AP:341 YES! ; P* ; ( P SUKL A8,1 NO,
0x2c9e78…2ca00c Dummy {f00=0x0099, f01=0x0190, f02=»ADDRESS ; v PAP:341 EQU * < 2 P SUR A2,A4 SUBTRACT AREA LEFT IN CURRENT FRAME < $ , P LDK A4,0 RESET AREA LEFT IN LAST FRAME < Z * P LDR A5,A2 SAVE REMAINING AREA NEEDED < P RF(Z) AP:351 NOTHING LEFT < P* < * P SRL A2,12 CONVERT TO NO OF 4K FRAME
0x2ca00c…2ca1a0 Dummy {f00=0x0099, f01=0x0190, f02=» MMU ENTRIES < P* = PAP:342 EQU * = & P SUK A2,1 MORE ENTRIES TO UPDATE? = 2 P RF(N) AP:350 NO! = P* = v * P SUKL A8,1 DECREMENT MMU ENTRY POINTER = " P RF(N) TABOVF TABLE OVERFLOW! = P* = ( P SUK A6,2 DECREMENT MMU ENTRY ADDR. = *
0x2ca1a0…2ca334 (3, 212) Dummy {f00=0x009a, f01=0x0190, f02=»DK A1,LMP7 = & P CALL ERROR SIGNAL TABBE OVERFLOW! > PMEMOVF EQU * > < P LDKL A1,LMP3 > P P CALL ERROR MEMORY OVERFLOW! > f P* > PAP:350 EQU * > P* > 0 P LDR A5,A5 RESTORE AREA TO USE IN LAST FRAME > P RF(Z) AP:351 > P* > " P L
0x2ca334…2ca4c8 Dummy {f00=0x009a, f01=0x0190, f02=» > x * P SLL A2,12 MOVE TO FOUR LEFTMOST BITS ? P LDR A8,A2 ? 6 $ P ORR A8,A4 LOGICAL START ADDRESS ? H ( P CWK A3,'AS' ASSEMBLER APPLICATION? ? p P RF(NE) AP:352 NO! ? P* ? * P ADKL A8,10 SKIP FIVE PRECEEDING WORDS ? PAP:352 EQU * ? P ST A8
0x2ca4c8…2ca65c Dummy {f00=0x009a, f01=0x0190, f02=»ION LOAD ADDR. (BIT 0-5) ? r $ P ST A4,APLLDA+2,A1 AND BIT 6-17 @ , P ST A7,FYSPAG+STKCOM SAVE LAST PHYSICAL @ H & P ST A4,LSTADR+STKCOM ADDRESS USED @ x , P LDR* A1,A6 GET ADDRESS TO PHYSICAL PAGE @ $ P ANKL A1,/C000 GREATER THAN 64K? @ P RF(Z) AP:353
0x2ca65c…2ca7f0 Dummy {f00=0x009a, f01=0x0190, f02=» @ P ADR A1,A4 ADD DISPLACEMENT A ( P LD A2,SCTSFA GET START OF FREE AREA A , ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT A X P RF(NN) AP3532 YES! A P CWR A2,A1 A P RF AP3534 A PAP3532 CWR A1,A2 A PAP3534 EQU * A " P RB(L) MEMOVF MEMORY OVE
0x2ca7f0…2ca984 Dummy {f00=0x009a, f01=0x0190, f02=» REGISTERS A ~ P XIF B P IFT MMUPAG=0 B P EJECT B 4 PAP:240 EQU * B B P* B V @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION B ` P* B P* B & P* CHECK IF ASSEMBLER APPLICATION B P* B ( P CWK A6,'AS' ASSEMBLER APPLI
0x2ca984…2cab18 Dummy {f00=0x009a, f01=0x0190, f02=» RESERVE AREA FOR SEGMENTS B , P LDR A2,A7 CONFIGURE LOGICAL START ADDR. C " P SLL A2,2 TO FIRST SEGMENT C R P ORR A2,A5 C t P ST A2,LSTASG+STKEND C PAP:275 EQU * C . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART C * P LD A3,APLTYP,A1 GET APPLICATION
0x2cab18…2cacac Dummy {f00=0x009a, f01=0x0190, f02=»76 EQU * C P ADKL A10,1 D $ P ANKL A10,/FFFE MAKE EVEN LENGTH D $ 8 P RF(N) AP:278 APPLICATION IS LARGER THAN FRAME SIZE D L P* D > P CWR A10,A5 APPL. IS SMALLER THAN AREA LEFT IN LAST FRAME D P RF(NG) AP:280 YES! D P* D PAP:278 EQU * D
0x2cacac…2cae40 Dummy {f00=0x009a, f01=0x0190, f02=»NGTH D t $ P SRL A2,12 COUNT NO OF 4K BLOCKS E , P SRL A7,10 FRAME ADDRESS AS BLOCK COUNT E 4 $ P SUR A7,A2 SUBTRACT AREA NEEDED E d " P RF(N) MEMOVF MEMORY OVERFLOW! E P* E . P ANKL A10,/0FFF ISOLATE POSSIBLE REMAINDER E P RF(Z) AP:279 NO REMAINDER
0x2cae40…2cafd4 (3, 213) Dummy {f00=0x009a, f01=0x0190, f02=» EQU * E $ P SLL A7,10 RESTORE FRAME ADDRESS F PAP:280 EQU * F 6 2 P SUR A5,A10 ALLOCATE AREA NEEDED IN LAST FRAME F J P LDR A4,A9 SAVE A9 F P LDR A8,A11 SAVE A11 F P ST A7,SCTEFA AND SAVE F 2 P ST A5,SCTEFA+2 SAVE DISPLACEMENT WITHIN PAGE F 6
0x2cafd4…2cb168 Dummy {f00=0x009a, f01=0x0190, f02=»AVE LAST PHYSICAL F z & P ST A5,LSTADR+STKCOM ADDRESS USED G P SLL A7,2 G D P LDR A11,A7 G V . P ORR A11,A5 MAKE ADDRESS AS A 16 BIT ADDR. G j ( P LD A9,SCTSFA GET START OF FREE AREA G $ P CALL CMPADR A11 COMPARED TO A9 G P RF(G) AP:290 G P*
0x2cb168…2cb2fc Dummy {f00=0x009a, f01=0x018e, f02=»ER APPLICATION? G | P RF(NE) AP:295 NO! H P* H 2 ( P ADKL A11,10 SKIP 5 PRECEEDING WORDS H < PAP:295 EQU * H h 2 P ST A11,LLDADR+STKEND SAVE APPL. LOAD ADDRESS H | P LDR A9,A4 RESTORE A9 H P LDR A11,A8 RESTORE A11 H 2 P LD A8,LLDADR+STKEND A8
0x2cb2fc…2cb490 Dummy {f00=0x009a, f01=0x0190, f02=» P XIF I P EJECT I P* I P* COMMON EXECUTION PATH I ( P* I H : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION I R P* I $ P* A8 - APPLICATION LOAD ADDRESS I * P* A10 - LENGTH OF CORE RESIDENT PART I P* I PAP:355 EQU * I
0x2cb490…2cb624 Dummy {f00=0x009a, f01=0x0190, f02=»E APPLICATION RELOCATION BASE I | 4 P CM FSTSEC+STKEND RESET FIRST SECTOR/BLOCK IND. J & 6 P LDKL A7,240 INITIATE NR OF CODE WORDS/SECT/BLOCK J ^ $ P ST A7,LOD:10 MODIFY INSTRUCTION J * P CF A14,LODCOM LOAD CORE RESIDENT PART J P* J & P* CHECK IF ASSE
0x2cb624…2cb7b8 Dummy {f00=0x009a, f01=0x0190, f02=» J h ( P CWK A2,'AS' ASSEMBLER APPLICATION? K P ABL(E) AP:400 YES K 4 : P LD A8,LSTASG+STKEND GET LOGICAL ADDRESS TO FIRST PAGE K N 0 P LD A2,TNBRSG+STKEND GET NUMBER OF SEGMENTS K . P ABL(Z) AP:400 NO SEGMENTS IN APPLICATION K P* K 4 P CM SEGCNT+S
0x2cb7b8…2cb94c Dummy {f00=0x009a, f01=0x0190, f02=»QU * K P* L & P* READ AND RELOCATE THE SEGMENTS L P* L @ . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT L J P* A10 - SEGMENT LENGTH L | P* L 6 P LD A3,CURAPL+STKEND GET APPL. CONTROL BLOCK ADDR. L 0 P LD A2,APLLAC,A3 GET LOGICAL ADDR. TO AP
0x2cb94c…2cbae0 Dummy {f00=0x009a, f01=0x018e, f02=» A2,BLKLEN NEXT BLOCK L & P SUK A1,1 DECREMENT BLOCK COUNTER M P RB AP:365 M H PAP:370 EQU * M Z P* M n P* CHECK IF DISC PAGING M x P* M " P LD A1,SCTOPT GET OPTION WORD M P ANK A1,2 DISC PAGING? M P RF(Z) AP:376 NO! M P* M &
0x2cbae0…2cbc74 (3, 214) Dummy {f00=0x009a, f01=0x0190, f02=» " P ANKL A12,/FF OF DISC ADDRESS N * P SRL A1,8 SEGMENT TYPE TO RIGHT BYTE N * ( P CCK A1,'RR' CORE RESIDENT SEGMENT? N X * P RF(E) AP:376 YES: LOAD THIS SEGMENT! N P* N * P* BYPASS THIS SEGMENT AND CHECK NEXT N P* N , P LD A1,SEGCNT+STKEND
0x2cbc74…2cbe08 Dummy {f00=0x009a, f01=0x0190, f02=»T? N z P ABL(E) AP:400 YES! O 4 P ST A1,SEGCNT+STKEND SAVE CURRENT SEGMENT NUMBER O & P RB AP:360 O ^ & PAP:375 LDKL A1,LMP2 DISC I/O ERROR O p P CALL ERROR O P EJECT O PAP:376 EQU * O " P ADK A2,2 DISC SECTOR ADDRESS O ( P CALL GETCON GET D
0x2cbe08…2cbf9c Dummy {f00=0x009a, f01=0x0190, f02=» P RF AP:378 NOT OVERFLOW P 4 PAP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS P $ " P ANKL A11,/7FFF RESET OVERFLOW P 4 PAP:378 AD A12,APLADA,A3 ADD M. S. P. OF A. D. A. P P CWK A12,255 OVERFLOW? P , P RB(G) AP:375 YES: ILLEGAL DISC ADDRESS! P P
0x2cbf9c…2cc130 Dummy {f00=0x009a, f01=0x0190, f02=» EVEN LENGTH P | P ST A8,LLDADR+STKEND Q P CF A14,LODSEG LOAD SEGMENT Q 0 , P LD A1,SEGCNT+STKEND GET SEGMENT COUNTER Q T 6 P LD A2,TNBRSG+STKEND GET TOTAL NUMBER OF SEGMENTS Q ( P ADK A1,1 INCREMENT SEGMENT COUNTER Q $ P CWR A1,A2 ALL SEGMENTS LOADED
0x2cc130…2cc2c4 Dummy {f00=0x009a, f01=0x0190, f02=»LOCK =2 Q ` 0 P LD A4,APLPSZ,A3 AND SEGMENT SIZE DEFINED =2 R P IFT MMUPAG=0 R D , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE R Z P RB AP:360 R P XIF R P IFT MMUPAG=1 R P EJECT R PAP:379 EQU * R P LDR A1,A4 SAVE R . P ANKL A4,/0C00 G
0x2cc2c4…2cc458 Dummy {f00=0x009a, f01=0x0190, f02=»A1 SAVE R . P ANKL A4,/0C00 GET MODULO 4K DISCRIMINANT S 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE S B 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE S v * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT S PAP:380 EQU * S * P LD A8,APLLAP,A3 LOGICAL P
0x2cc458…2cc5ec Dummy {f00=0x009a, f01=0x018e, f02=» S l P ADR A2,A2 2*MMU ENTRY T P ADR A2,A13 T & & P ADKL A2,MMDDIV MMU ENTRY ADDRESS T : P LDR A3,A13 T d P ADKL A3,MMDDIV+32 T x * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU T PAP:385 EQU * T , P ADRS A1,A2 LOGICAL ADDRESS TO NEXT PAGE T P ADK
0x2cc5ec…2cc780 Dummy {f00=0x009a, f01=0x0190, f02=» P XIF U P EJECT U PAP:400 EQU * U 8 P LD A1,CURAPL+STKEND GET CURRENT APPL.CONTROL BLOCK U 2 P IM APLCNT+STKEND U n * P ABL(Z) CONLOD ALL APPLICATIONS LOADED U P* U . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION U 2 P ST A1,CURAPL+STKEND A
0x2cc780…2cc914 (3, 215) Dummy {f00=0x009a, f01=0x0190, f02=»R. U ` ( P LD A10,READ GET SUBROUTINE ADDRESS V " P CFR A14,A10 READ FIRST SECTOR V 6 P ABL AP:234 V P EJECT V p 2 P********************************************* V ~ 2 P* * V 2 P*
0x2cc914…2ccaa8 Dummy {f00=0x009a, f01=0x0190, f02=» * V 2 P* RESERVE PAGES FOR RESIDENT SEGMENTS * W 2 2 P* * W h 2 P* * W 2 P********************************************* W
0x2ccaa8…2ccc3c Dummy {f00=0x009a, f01=0x0190, f02=»T SEGMENTS W f * P ST A3,APLPSZ,A1 SAVE SEGMENT SIZE =2 X " P LD A4,SCTOPT GET OPTION WORD X @ P SRC A4,2 DISC PAGING? X f P RF(NN) ALSG04 NO! X P* X * P LD A4,SCTIPL GET PROGRAM LOAD DEVICE X " P SUK A4,/F0 CHECK IF CASSETTE X 0 P RF(N) ALSG0
0x2ccc3c…2ccdd0 Dummy {f00=0x009a, f01=0x0190, f02=»ION X t & P ADK A6,14 START OF SEGMENT BLOCKS Y PALSG00 EQU * Y 6 P ADK A6,6 NEXT SEGMENT BLOCK Y J P* LOOK IF OUTSIDE BUFFER Y n P* IF SO READ NEXT Y P* SECTOR BLOCK Y P* Y $ P LDR A4,A6 SAVE BUFFER POSITION Y P SUR A4,A9 RELATIVE
0x2ccdd0…2ccf64 Dummy {f00=0x009a, f01=0x0190, f02=» SUK A6,BUFLEN-16 COMPENSATE FOR RELOCATION BITS =5 Y $ P AND RESET BUFFER POSITION =5 Z < P* Z d PALSG01 EQU * Z n P LCR A4,A6 GET SEGMENT TYPE Z ( P CCK A4,'RR' CORE RESIDENT SEGMENT? Z P RF(NE) ALSG02 NO! Z 8 P IM SEGCNT+STKEND INCREMENT
0x2ccf64…2cd0f8 Dummy {f00=0x009a, f01=0x0190, f02=»UMBER OF RESIDENT SEGMENTS Z z ( P RF(Z) ALSG12 NO RESIDENT SEGMENTS! [ " PALSG04 EQU * [ N 6 P ST A2,SEGCNT+STKEND SAVE NBR OF RESIDENT SEGMENTS [ b 4 P ADS A2,SCTNOP ACKUMULATE NO OF CORE RES. SEGM. [ " P LD A6,SCTOPT GET OPTION WORD [ P SRC A6,1 [
0x2cd0f8…2cd28c Dummy {f00=0x009a, f01=0x0190, f02=»TIPLE OF 4K BYTES [ x P* 0 P LDR A5,A5 LOOK IF ALREADY ON A 4K BOUNDARY $ P RF(Z) ALSG08 YES X P* r $ P LDK A5,0 START ON A 4K BOUNDARY | PALSG08 EQU * * P LDR A7,A7 LOOK IF 256 KBYTE MEMORY =3 P RF(NZ) ALSG8B NO! =3 , P LDK
0x2cd28c…2cd420 Dummy {f00=0x009a, f01=0x0190, f02=»ART ON 1K BOUNDARY x . P SRL A3,1 MAKE SEGMENT LENGTH IN WORDS =2 ] ( P SRL A5,1 AND REMAINING AREA TOO =2 ] L * P SRL A7,10 CONVERT TO NO OF FRAMES =2 ] x " P LDR A4,A3 GET SEGMENT SIZE =2 ] . P NGR A4,A4 AND CORRESPONDING NEG. VALUE =2 ] PALSG09 EQU
0x2cd420…2cd5b4 (3, 216) Dummy {f00=0x009b, f01=0x018e, f02=»800 ALLOCATE ANOTHER FRAME =2 ] $ P RB(P) ALSG09 LOOK IF ENOUGH =2 ^ & PALSG10 EQU * =2 ^ N 4 P TNM A5,A3 FREE AREA GREATER THAN 32K WORDS? =2 ^ f P RF(N) ALS11A YES =2 ^ . P SUR A5,A3 ALLOCATE AREA TO ONE SEGMENT =2 ^ P RF ALS11B =2 ^ PALS11A
0x2cd5b4…2cd748 Dummy {f00=0x009b, f01=0x0190, f02=» $ P RB(NZ) ALSG09 MORE SEGMENTS =2 _ P LDR A7,A7 =2 _ , $ P ABL(N) MEMOVF MEMORY OVERFLOW! _ B P* _ j $ P SLL A7,10 RESTORE FRAME ADDRESS _ t . P ST A7,APLSEG,A1 SAVE PHYSICAL ADDRESS TO _ , P SLL A5,1 RESTORE AREA LEFT IN BYTES =2 _ . P SLL A3,1
0x2cd748…2cd8dc Dummy {f00=0x009b, f01=0x018e, f02=»SECTOR OF APPLICATION _ * P* IF S:GTAB IS LARGER THAN ONE SECTOR ` P* ` L 8 P LD A12,APLADA,A1 GET MOST SIGN. PART OF DISC ADDR. ` V 2 P LD A11,APLADA+2,A1 AND LEAST SIGNIFICANT PART ` & P CF A14,NXTSEC REREAD FIRST SECTOR ` P RTN A14 ` P `
0x2cd8dc…2cda70 Dummy {f00=0x009b, f01=0x0190, f02=» 8 P ST A11,DISCAD+STKEND SAVE CURRENT SECTOR/BLOCK =10 a ( P ST A12,DISCAD+2+STKEND ADDRESS =10 a @ . P CALL POB RESTORE FORMER REGISTER CONTENTS a l : P LD A11,DISCAD+STKEND RESTORE CURRENT SECTOR/BLOCK =10 a ( P LD A12,DISCAD+2+STKEND ADDRESS =10 a P
0x2cda70…2cdc04 Dummy {f00=0x009b, f01=0x0190, f02=» * a v 4 P* LODMEX - LOAD MONITOR EXTENT(S) * b 4 P* =============================== * b V 4 P* * b 4 P* REFERENCED IN: SYSLOD * b 4 P*
0x2cdc04…2cdd98 Dummy {f00=0x009b, f01=0x0190, f02=» * b n 4 P* EXIT: * c 4 P* * c N 4 P* WORK REGISTERS: A1-A12 * c 4 P* * c 4 P* SUBROUTINES: L
0x2cdd98…2cdf2c Dummy {f00=0x009b, f01=0x0190, f02=»***** c f PLODMEX EQU * d & P LD A1,SCTMXS MONITOR EXTENT TABLE d " PMSX10 EQU * d L P RF(Z) MSX99 d ` P* d t ( P LD A1,SCTOPT GET MONITOR OPTION =12 d ~ ( P SRC A1,1 LOOK IF MMU OPTION ON =12 d P RF(N) MSX15 YES =12 d 4 P LDKL A1,LMP9 NO, SET
0x2cdf2c…2ce0c0 Dummy {f00=0x009b, f01=0x0190, f02=»D A3,MX:NOX,A1 GET NUMBER OF EXTENTS d 4 P LD A6,MX:NOS,A1 GET NUMBER OF SEGMENT CLUSTERS e , $ P SLL A6,1 MAKE BYTE DISPLACEMENT e d P ADK A6,4 e " P ADR A6,A1 FIRST EXTENT BLOCK e PMSX20 EQU * e & P SUK A3,1 DECREMENT EXTENT COUNTER e P RF(N)
0x2ce0c0…2ce254 (3, 217) Dummy {f00=0x009b, f01=0x0190, f02=»ADDRESS TO e z $ P LD A5,SCTEFA+2 END OF FREE AREA f P RF(NZ) MSX25 f : P* f P 2 P LDKL A5,PAGSIZ EMPTY FRAME, START ON NEXT ONE f Z P SUKL A7,/400 f PMSX25 EQU * f ( P LD A2,EXLEN,A6 GET LENGTH OF EXTENT f & P ADK A2,11 RESERV FIVE EXTRA WORDS
0x2ce254…2ce3e8 Dummy {f00=0x009b, f01=0x0190, f02=»TES? f h P RF(N) MSX30 NO g P* g $ 2 P CWR A2,A5 EXTENT LESS THAN AREA LEFT IN FRAME g . P RF(L) MSX40 YES! g d P* g ~ PMSX30 EQU * g P LDR A1,A2 g . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES g P CWK A1,14 <60K BYTES? g P RF(L) MSX
0x2ce3e8…2ce57c Dummy {f00=0x009b, f01=0x0190, f02=»K BOUNDARY g v P SUK A7,1 h PMSX35 EQU * h $ 0 P SUR A2,A5 SUBTRACT AREA LEFT IN LAST FRAME h 8 " P LDK A5,0 AND SET EMPTY FRAME h l P LDR A1,A2 h . P SRL A1,12 CONVERT LENGTH TO NO OF FRAMES h , P SUR A7,A1 AND SUBTRACT FROM FRAME COUNT h $ P A
0x2ce57c…2ce710 Dummy {f00=0x009b, f01=0x0190, f02=»KE NEXT EMPTY FRAME h ~ P SUK A7,1 i PMSX40 EQU * i . 4 P SUR A5,A2 SUBTACT FROM AREA LEFT IN LAST FRAME i B PMSX45 EQU * i z & P CWK A7,15 LOOK IF FIRST PARTITION i * P ABL(NG) MEMOVF YES, MEMORY OVERFNGOW! i P* i . P ANKL A5,/FFFC START ON
0x2ce710…2ce8a4 Dummy {f00=0x009b, f01=0x0190, f02=»FREE AREA i x P* j $ P LD A4,SCTMXS GET MXSTAB ADDRESS j " P ADK A4,2 MONITOR DISC ADDRESS j D P XRR A1,A1 RESET REG. A1 j j * P LDR* A2,A6 GET MONITOR EXTENT ADDRESS j ( P DAR* A4 AND RELOCATE EXTENT ADDRESS j * P LDR A11,A2 GET LEAST SIGNIFICANT PA
0x2ce8a4…2cea38 Dummy {f00=0x009b, f01=0x0190, f02=»A 16 BITS ADDRESS j " P STR A1,A6 AND SAVE IN MXSTAB k P* k @ * P ADK A5,10 SKIP PRECCEDING FIVE WORDS k J : P ST A5,LLDADR+STKEND SAVE AS PGM LOAD ADDR. (LOGICAL) k x $ P LDR A8,A5 SAVE RELOCATION BASE k 0 P ADS A5,2,A6 RELOCATE PROGRAM START ADDRES
0x2cea38…2cebcc Dummy {f00=0x009b, f01=0x0190, f02=»O MMU TABLE k t 6 P ST A3,FSTSEC+STKEND RESET FIRST SECTOR INDICATOR l PMSX50 EQU * l N " P STR A7,A2 STORE PAGE ADDRESS l b $ P ADKL A7,/400 NEXT PAGE ADDRESS l P ADK A2,2 NEXT MMU ENTRY l & P ADK A3,1 INCREMENT ENTRY COUNTER l ( P CWK A3,16 ALL
0x2cebcc…2ced60 Dummy {f00=0x009b, f01=0x0190, f02=»* A3,A15 RESTORE NO OF EXTENTS l P RB MSX20 m & P* m 8 PMSX99 EQU * m B P RTN A14 m V P EJECT m f 4 P*********************************************** m t P* m P* GETMON m P* ====== m P* m & P* SEARCH F
0x2ced60…2ceef4 (3, 218) Dummy {f00=0x009b, f01=0x0190, f02=»********************** m v P* n P* n ( PGETMON EQU * n 2 ( P LD A1,SCTANO GET APPLICATION NUMBER n F P ST A1,MONNO+STKEND SAVE n r 2 P CF A14,GETNBR GET CORRESPONDING ENTRY IN VTOC n 0 P LC A1,8,A4 GET CORRESPONDING MONITOR NUMBER n 2 P SLL A1,8 FO
0x2ceef4…2cf088 Dummy {f00=0x009b, f01=0x018e, f02=» n PGTMON2 EQU * o 0 P LD A1,MONNO+STKEND GET MONITOR NO (BIT 0-7) o ( P CW A1,8,A4 IS IT THE RIGHT MONITOR? o P P RF(E) GTMON4 YES! o | P* o 8 P CF A14,GTNBR4 NO, CONTINUE TO NEXT MONITOR IN VTOC o P RB GTMON2 o P* o PGTMON4 EQU * o
0x2cf088…2cf21c Dummy {f00=0x009b, f01=0x0190, f02=» 6 P LD A2,18,A4 AND MONITOR DISC ADDRESS (BIT 16-31) p " P ST A2,4,A1 AND SAVE IN MXSTAB p > P RTN A14 RETURN p d P EJECT p | PGETNBR EQU * p $ P CF A14,GETVLB READ VOLUME LABEL p PGTNBR0 EQU * p P CF A14,RDSEC READ SECTOR p ( P LDK A7,QBLF
0x2cf21c…2cf3b0 Dummy {f00=0x009b, f01=0x0190, f02=» LCR A2,A4 GET 1ST CHARACTER IN FILE NAME p P CCK A2,/2020 UNUSED? q 2 P RF(E) GTNBR4 YES! q P P* q j ( P CC A1,9,A4 SAME APPLICATION NUMBER? q t P RF(E) GTNBR6 YES, RETURN q P* q PGTNBR4 EQU * q P ADR A4,A8 GET NEXT RECORD q & P ADK A
0x2cf3b0…2cf544 Dummy {f00=0x009b, f01=0x0190, f02=»D NEXT SECTOR q ~ P* r PGTNBR6 EQU * r P RTN A14 r 4 P XIF r D P EJECT r P > P********************************************************** r ^ > P* * r > P* LOAD CONFIGURATION PART OF
0x2cf544…2cf6d8 Dummy {f00=0x009b, f01=0x0190, f02=» * r f > P* ENTRY: A9 - BUFFER ADDRESS * s > P* * s Z > P* EXIT: * s > P*
0x2cf6d8…2cf86c Dummy {f00=0x009b, f01=0x018e, f02=» * s b > P********************************************************** t PCONLOD EQU * t V & P LD A1,SCTEFA GET END OF FREE AREA t j P LDR A2,A1 SAVE t " P ANKL A1,/3C00 ISOLATE BIT 2-5 t P SLL A1,2 ROTATE TO BIT 0-3 t 2 P ORS A1,SCTEFA+2 C
0x2cf86c…2cfa00 Dummy {f00=0x009b, f01=0x0190, f02=» 8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK u 0 P ADK A1,ACBLEN END OF LAST APPL. CTRL. BLOCK u @ , P ST A1,SCTSFA UPDATE START OF FREE AREA u t 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE u , P ADK A1,2 ADVANCE TO FIRST CONTROL BLOCK
0x2cfa00…2cfb94 (3, 219) Dummy {f00=0x0107, f01=0x0190, f02=»ONTROL BLOCK u z * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE v " P SUK A1,/F0 CHECK DEVICE TYPE v B P RF(NN) CONRAD NOT CASSETTE v h P IFT CFTEST+CASS=2 v P* v & P* PROGRAM LOAD DEVICE = CASSETTE v P* v PCON:30 EQU * v P LDKL A1,CON:40-
0x2cfb94…2cfd28 Dummy {f00=0x0107, f01=0x0190, f02=»FY v ~ P LDR A1,A9 START OF BUFFER w " P ADKL A1,BUFLEN END OF BUFFER w , , P ST A1,PLDADR+STKEND SAVE END OF BUFFER w R P ST A1,EINPBF+STKEND SAVE w , P ST A1,CONSTA+STKCOM START OF CONF. DATA w P CF A14,RDBLK READ ONE BLOCK w " P CF A14,RDBLK RE
0x2cfd28…2cfebc Dummy {f00=0x0107, f01=0x0190, f02=»A14,CASSIN INIT CONFIGURATION CASSETTE w P CALL CON:40 x . P RF TST:10 x B PCONEX EQU * x T P* x h > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE x r P* x " P CF A14,RDBLK READ NEXT BLOCK x P LDR A1,A1 APPLICATION DATA? x P
0x2cfebc…2d0050 Dummy {f00=0x0107, f01=0x0190, f02=»90 x PCON:80 EQU * y P LDK A1,/F y " P CF A14,CHCRIO UNLOAD CASSETTE y 0 PCON:90 EQU * y V P ABL CONMOV y j P XIF y ~ P IFT CFTEST=1 y P EJECT y PCONRAD EQU * y P* y 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC y P*
0x2d0050…2d01e4 Dummy {f00=0x0107, f01=0x018e, f02=»LD INITIATE CONF. DATA LOAD DEV. y PCONRA0 EQU * z ( * P LD A11,CONDAD+STKEND GET START SECTOR z < 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z j " P LDR A1,A9 GET START OF BUFFER z $ P ADKL A1,BUFLEN-6 END OF BUFFER z , P ST A1,PLDADR+STKEND SAVE
0x2d01e4…2d0378 Dummy {f00=0x0107, f01=0x0190, f02=» , P ST A1,CONSTA+STKCOM START OF CONF. DATA { $ P LDKL A10,0 RESET RECORD COUNTER { 4 P* { 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE { f P* { P CALL READC READ SECTOR { P* { 0 P* TEST THE SYNTAX OF THE CONFIGURATION FILE { P* {
0x2d0378…2d050c Dummy {f00=0x0107, f01=0x0190, f02=»ALL CONRD { P CALL TCL | P CALL TEST | $ P CALL AA | 6 P CALL CONRD | F P CALL LEV | Z P CALL TEST | l P CALL NN1 | ~ PTST:20 CALL CONRD | P CALL NN1 | P CALL CONRD | B PTST:30 LD A5,NDEVCL+STKEND GET NUMBER OF TERMINAL DEV. C
0x2d050c…2d06a0 Dummy {f00=0x0107, f01=0x018e, f02=» P CALL CONRD } P CALL LC } P CALL TEST } ( P CALL NNL } : P CALL CONRD } L P RB TST:30 } ` PTST:40 EQU * } r P CALL NN1 } P CALL CONRD } PTST:50 EQU * } < P LD A5,NDEVCL+STKEND GET NUMBER OF SPECIAL DEV. CLASSES } P CWK A5,
0x2d06a0…2d0834 (3, 220) Dummy {f00=0x0108, f01=0x0190, f02=» P RB TST:50 ~ PTST:60 EQU * ~ P LCR A5,A4 GET CHARACTER ~ * , P CCK A5,'TT' BLOCK TYPE T? (MOD. INSTR.) ~ J PTST:70 EQU *-2 ~ z P RB(E) TST:10 YES! ~ P LDKL A3,/FFFF ~ * P ST A3,TST:70 MODIFY INSTRUCTION TO RF ~ P CCK A5,'CC' BLOCK TYPE C
0x2d0834…2d09c8 Dummy {f00=0x0108, f01=0x0190, f02=» EQU * ~ . P LDR A1,A5 SAVE FIRST CHARACTER IN RECORD & P ADK A4,1 INCREMENT BUFFER POINTER @ P LCR A5,A4 GET CHARACTER j P CCK A5,';;' END OF RECORD P ABL(NE) CONERR NO! PTST:85 EQU * . P CCK A1,'AA' START OF APPL. CONTR. BLOCK?
0x2d09c8…2d0b5c Dummy {f00=0x0108, f01=0x0190, f02=»F+STKEND CURRENT POSITION IN CONF. DATA 4 P SU A1,CONSTA+STKCOM CALCULATE RELATIVE POSITION 0 P ST A1,DCBLK+STKCOM SAVE h PTST:87 EQU * ( P CALL CONRD MOVE AND GET NEXT RECORD $ P LCR A1,A4 AND FIRST CHAR. IN IT P RB TST:85 P*
0x2d0b5c…2d0cf0 Dummy {f00=0x0108, f01=0x0190, f02=»* : P LDKL A1,/FF3B SUBSTITUTE 'A;' WITH 'HEX. FF' AND ';' P STR A1,A8 H 4 P LD A2,CURAPL+STKEND CURRENT APPL. CONTR. BLOCK Z 8 P LD A1,EINPBF+STKEND CURRENT POSITION IN CONF. DATA P ADK A1,1 SKIP BLOCK MARKER 4 P SU A1,CONSTA+STKCOM C
0x2d0cf0…2d0e84 Dummy {f00=0x0108, f01=0x0190, f02=»ND ADVANCE TO NEXT APPL. CONTR. BLOCK ~ $ P CALL CONRD MOVE AND PACK RECORD . ( P ADKL A10,1 INCREMENT RECORD COUNTER V & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER & P CW A8,PLDADR+ST
0x2d0e84…2d1018 Dummy {f00=0x0108, f01=0x0190, f02=»K DEF. BLOCK v P ST A1,TST:70 MODIFY INSTR. P ST A1,T:10 8 P LDR A4,A8 L P ABL TST:10 SCAN CONF. DATA ^ P* PCOR:50 EQU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? P RF(Z) COR:55 NO P LDK A3,'S' &
0x2d1018…2d11ac Dummy {f00=0x0108, f01=0x0190, f02=»IZE PGM LOAD DEVICE z P CF A14,GETFIL P* 2 P* UNLOCK FLEXIBLE DISC < P* PCOR:55 EQU * f 4 P LD A1,CONDEV+STKEND GET CONF. DATA LOAD DEVICE z , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* P LDR A2,A1 P ANK A2,/F
0x2d11ac…2d1340 Dummy {f00=0x0108, f01=0x0190, f02=»K FLEXIBLE DISC | P XIF P IFT CFTEST=1 $ PCOR:58 EQU * : * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE N P SUK A1,/F8 CHECK TYPE | $ P RF(N) COR:60 NOT FLEXIBLE DISC P* P XIF " P SUK A1,/FC-/F8 FLEXIBLE DISC? P ABL(NN) C
0x2d1340…2d14d4 (3, 221) Dummy {f00=0x0109, f01=0x0190, f02=»60 YES! DON'T UNLOCK P* P LD A1,IPLDEV+STKEND & ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC B P XIF n P IFT CFTEST=1 z PCOR:60 EQU * P EJECT PCONMOV EQU * P* 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA P
0x2d14d4…2d1668 Dummy {f00=0x0109, f01=0x0190, f02=»ND OF CONFIGURATION DATA p 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA * P CM -2,A2 MAKE SURE CONFIGURATION FILE T " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA
0x2d1668…2d17fc Dummy {f00=0x0109, f01=0x0190, f02=»E START OF CONFIGURATION DATA x 2 P LD A1,CONLEN+STKCOM GET LENGTH OF CONF. DATA & 0 P ADK A1,2 INCLUDE TRAILING ZEROES IN LENGTH P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM & P LDR A1,A9 GET START OF FREE AREA P LDR A12,A2 EN
0x2d17fc…2d1990 Dummy {f00=0x0109, f01=0x0190, f02=»STAB ADDRESS | $ P RF(Z) CMOV20 NO MXSTAB PRESENT P* < 0 P AD A2,M:REL+STKCOM RELOCATE MXSTAB ADDRESS F * P ST A2,SCTMXS AND SAVE AS NEW ADDRESS z PCMOV20 EQU * , P LD A2,CONSTA+STKCOM GET START OF CONFF P* < P* MOVE SYSLDA+SYS
0x2d1990…2d1b24 Dummy {f00=0x0109, f01=0x0190, f02=» LDR* A4,A1 P STR A4,A2 P CWR A1,A13 & P RB(NE) MOPRO : ( P ABR A2 CONTINUE EXECUTION IN SYSLDM P P EJECT | D P*************************************************************** D P* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURA
0x2d1b24…2d1cb8 Dummy {f00=0x0109, f01=0x0190, f02=» COMPUTE NUMBER OF CHARACTERS IN THIS RECORD P* 4 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER > P LDR A2,A1 SAVE x & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD PCOR:30 EQU * P LCR A5,A4 GET CHARACTER
0x2d1cb8…2d1e4c Dummy {f00=0x0109, f01=0x0190, f02=»COR:38 EQU *-2 P RF(E) COR:40 YES! * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? 0 P RF(E) MEMOFL YES! ^ & P ADK A1,1 INCREMENT BUFFER POINTER x * P ADK A3,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT RECORD POINTER P RB COR:30 LOO
0x2d1e4c…2d1fe0 Dummy {f00=0x0109, f01=0x018e, f02=»3,NCHTID CHECK IF END OF RECORD 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD ( PCOR:45 EQU * ` 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINATION t P LDR A1,A8 START OF RECORD P CALL MOVE PCOR:48 EQU * ( P ADKL A10,1 INCREMENT
0x2d1fe0…2d2174 (3, 222) Dummy {f00=0x0109, f01=0x0190, f02=» d & P CW A8,PLDADR+STKEND END OF BUFFER P RF(NE) COR:10 NO! 2 P CALL READC READ SECTOR L $ PCOR:10 LDR A4,A8 START OF RECORD l P RTN A14 P XIF P IFT CFTEST+CASS=2 PCON:40 EQU * " P CF A14,RDBLK READ NEXT BLOCK P LDR
0x2d2174…2d2308 Dummy {f00=0x0109, f01=0x0190, f02=» IFT CFTEST=1 PMEMOFL EQU * * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X P EJECT l PREADC EQU * z P CF A14,RDSEC READ SECTOR P LDR A8,A9 " P LDR A4,A8 GET START OF BUFFER P RTN A14 PT EQU * P
0x2d2308…2d249c Dummy {f00=0x0109, f01=0x0190, f02=» POINTER v " P LCR A5,A4 GET NEXT CHARACTER P CCK A5,';;' END OF RECORD? 6 P ABL(NE) CONERR NO! Z P RTN A14 v P EJECT PNNL EQU * * P LDK A3,3 NO OF DIGITS IN LINE NUMBER & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1
0x2d249c…2d2630 Dummy {f00=0x0109, f01=0x0190, f02=»5,'LL' LINE L? P RF(E) NN:40 YES! P CCK A5,'RR' LINE R? 0 P RF(E) NN:40 YES! L P CCK A5,'AA' LINE A? f P RF(E) NN:40 YES! P CCK A5,'SS' LINE S? P RF(E) NN:40 YES! P CCK A5,'PP' LINE P? P RF(E) NN:40 YES! P
0x2d2630…2d27c4 Dummy {f00=0x0109, f01=0x0190, f02=» & P ADK A4,1 INCREMENT BUFFER POINTER P RF NN:50 . P* @ PNN EQU * J $ P LDK A3,2 NO OF DIGITS IN NUMBER Z & P CF A14,NUMB LOOK IF LEGAL DIGITS $ P LDR A1,A1 SET RETURN CONDITION " P RF(Z) CONERR '00' NOT ALLOWED P* $ P RF
0x2d27c4…2d2958 Dummy {f00=0x0109, f01=0x0190, f02=»S p $ P ST A5,NDEVCL+STKEND SAVE NUMBER " PNN:50 LCR A5,A4 GET CHARACTER 2 P CCK A5,';;' END OF RECORD? X P RF(NE) CONERR NO! | P RTN A14 P EJECT PAA EQU * P LDK A3,2 PAA:10 EQU * P LCR A5,A4 GET CHARACTER .
0x2d2958…2d2aec Dummy {f00=0x0109, f01=0x0190, f02=») AA:20 NO! 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? P RF(L) CONERR H 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? ^ P RF(G) CONERR PAA:20 EQU * & P ADK A4,1 INCREMENT BUFFER POINTER P SUK A3,1 P RB(NZ) AA:10
0x2d2aec…2d2c80 Dummy {f00=0x0109, f01=0x0190, f02=»TID EQU * " P LDKL A2,SEQ1 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS 8 P RTN A14 b PTCL EQU * r " P LDKL A2,SEQ2 SELECT SEQUENCE & P LDK A3,4 GET NUMBER OF CHARACTERS P RTN A14 PLEV EQU * " P LDKL A2,SEQ3 SELE
0x2d2c80…2d2e14 (3, 223) Dummy {f00=0x0109, f01=0x0190, f02=»NCE v & P LDK A3,5 GET NUMBER OF CHARACTERS P RTN A14 6 PLC EQU * F " P LDKL A2,SEQ5 SELECT SEQUENCE V & P LDK A3,3 GET NUMBER OF CHARACTERS | P RTN A14 PSDCS EQU * " P LDKL A2,SEQ6 SELECT SEQUENCE & P LDK A3,5 GET NUMBER OF CH
0x2d2e14…2d2fa8 Dummy {f00=0x0109, f01=0x0190, f02=» ADK A4,1 INCREMENT BUFFER POINTER ( P ADK A2,1 INCREMENT SEQUENCE POINTER * . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? V P RB(NZ) TEST YES! P RTN A14 P EJECT PSUKASC EQU * 2 P CCK A5,/3030 NUMBER OF NUMERIC CHARACTERS<10?
0x2d2fa8…2d313c Dummy {f00=0x0109, f01=0x0190, f02=»14 P EJECT PNUMB EQU * * P LDK A1,0 RESET NO OF NON ZERO DIGITS * PNUMB00 EQU * X " P LCR A5,A4 GET DIGIT IN NUMBER l & P ADK A4,1 INCREMENT BUFFER POINTER ( P CCK A5,/3939 NUMERIC CHARACTER >9? P RF(G) CONERR YES! P*
0x2d313c…2d32d0 Dummy {f00=0x0109, f01=0x0190, f02=»INCREMENT NO OF NON ZERO DIGITS PNUMB10 EQU * ( & P SUK A3,1 DECREMENT DIGIT COUNTER < & P RF(Z) NUMB20 ALL DIGITS PROCESSED f P* , P SLL A5,8 LAST DIGIT TO LEAST SIGN. BYTE " P RB NUMB00 PROCESS NEXT DIGIT P* PNUMB20 EQU *
0x2d32d0…2d3464 Dummy {f00=0x0109, f01=0x018e, f02=» * 6 P* SEQUENCES * , 6 P* * f 6 P************************************************** P* P* P* P* PSEQ1 E
0x2d3464…2d35f8 Dummy {f00=0x0109, f01=0x0190, f02=» P DATA 'LE' P DATA 'V=' PSEQ4 EQU * TDC=T ( P DATA 'TD' @ P DATA 'C=' R P DATA 'T0' d PSEQ5 EQU * LC= v P DATA 'LC' P DATA '=0' PSEQ6 EQU * SDC=S P DATA 'SD' P DATA 'C=' P DATA 'S0' P XIF
0x2d35f8…2d378c Dummy {f00=0x0109, f01=0x0190, f02=» v " P ADKL A1,BUFLEN END OF BUFFER , P ST A1,PLDADR+STKEND SAVE END OF BUFFER . P ST A1,EINPBF+STKEND SAVE ^ 4 P ST A1,CONSTA+STKCOM START OF CONFIGURATION DATA P CF A14,RDBLK READ ONE BLOCK " P CF A14,RDBLK READ NEXT BLOCK P LDR A
0x2d378c…2d3920 Dummy {f00=0x0109, f01=0x0190, f02=» NEXT BLOCK ~ P LDR A1,A1 TAPEMARK? P RF(NZ) CONEX YES! 0 PCON:50 EQU * J P* ^ 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS BLOCK h P* 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER P LDR A2,A1 SAVE & P LDK A3,0 RESE
0x2d3920…2d3ab4 (3, 224) Dummy {f00=0x0109, f01=0x0190, f02=»';;' CHECK IF SPACE & P RF(E) CON:70 NO MOORE CHARACTERS PCON:65 EQU * F P CWK A3,CBLEN END OF BUFFER? Z P RF(E) CON:75 YES! ~ * P CW A1,ESYSTA+STKEND MEMORY OVERFLOW? P RF(E) MEMOFL YES! , P ADK A1,1 INCREMENT DESTINATION POINTER
0x2d3ab4…2d3c48 Dummy {f00=0x0109, f01=0x0190, f02=»C A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? $ P RF(NE) CON:75 NO! J * P CWK A3,NCHTID CHECK IF END OF RECORD d 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINAT
0x2d3c48…2d3ddc Dummy {f00=0x0109, f01=0x0190, f02=»F NO APPLICATION DATA ON SAME CASSETTE | P* . " P CF A14,RDBLK READ NEXT BLOCK 8 P LDR A1,A1 APPLICATION DATA? ^ P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK P RF CO
0x2d3ddc…2d3f70 Dummy {f00=0x0109, f01=0x018e, f02=» PCONERR EQU * P LDKL A1,LMP4 P CALL ERROR . P IFF CFTEST=1 B PMEMOFL EQU * X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE
0x2d3f70…2d4104 Dummy {f00=0x0109, f01=0x0190, f02=» 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * 8 * P LD A11,CONDAD+STKEND GET START SECTOR L 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P ST A1,PLD
0x2d4104…2d4298 Dummy {f00=0x0109, f01=0x018e, f02=»ND SAVE =2 ~ P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER . PCOR:10 EQU * V P* j 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE t P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:20 EQU *
0x2d4298…2d442c Dummy {f00=0x0109, f01=0x0190, f02=» P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD F P* h P* LOOK IF WE HAVE AN r P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUNICATION
0x2d442c…2d45c0 Dummy {f00=0x0109, f01=0x0190, f02=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' . 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK R P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM AND CAL
0x2d45c0…2d4754 (3, 225) Dummy {f00=0x010a, f01=0x0190, f02=»T NO OF CHARACTERS TO MOVE ~ P CALL MOVE " P ADKL A10,2 SKIP NEXT RECORD 4 P* X . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER b ( P CW A8,PLDADR+STKEND END OF BUFFER? P RF(L) COR:48 NO! P* ( P CF A14,RDSEC YES, READ NEXT SECTOR
0x2d4754…2d48e8 Dummy {f00=0x010a, f01=0x0190, f02=»IN CONF. DATA =6 j 8 P SU A5,CONSTA+STKCOM CALCULATE RELATIVE POSITION =6 P ST A5,DCBLK+STKCOM SAVE =6 T PCOR:30 EQU * x P LCR A5,A4 GET CHARACTER P CCK A5,';;' END OF RECORD? P RF(E) COR:40 YES! PCOR:35 EQU * * P CWK A3,RE
0x2d48e8…2d4a7c Dummy {f00=0x010a, f01=0x0190, f02=»DK A1,1 INCREMENT BUFFER POINTER * P ADK A3,1 INCREMENT CHARACTER COUNTER ( & P ADK A4,1 INCREMENT RECORD POINTER V P RB COR:30 LOOP PCOR:40 EQU * " P LC A5,1,A4 GET NEXT CHARACTER P CCK A5,';;' TWO SEMICOLONS? P RF(NE) COR:45 NO!
0x2d4a7c…2d4c10 Dummy {f00=0x010a, f01=0x0190, f02=»,EINPBF+STKEND SAVE CURRENT DESTINATION P LDR A1,A8 START OF RECORD 0 P CALL MOVE R ( P ADKL A10,1 INCREMENT RECORD COUNTER d & P CW A10,LSTREC+STKEND LAST RECORD P RF(E) COR:50 YES! PCOR:48 EQU * . P ADKL A8,RECLEN+1 INCREMENT RECO
0x2d4c10…2d4da4 Dummy {f00=0x010a, f01=0x0190, f02=» " P LD A1,SCTOPT GET OPTION WORD P ANK A1,8 SWB:S? . P RF(Z) COR:55 NO F P LDK A3,'S' ^ & P SC A3,GET:25+1 MODIFY INSTRUCTION r & P SC A3,GET:60+1 MODIFY INSTRUCTION P LD A1,IPLDEV+STKEND . P CF A14,LODDEV INITIALIZE PGM LOAD DEV
0x2d4da4…2d4f38 Dummy {f00=0x010a, f01=0x0190, f02=» DATA LOAD DEVICE r , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* J P LDR A2,A1 T P ANK A2,/F f P SUK A2,9 x $ P RF(NZ) COR:58 NOT FLEXIBLE DISC P XIF P IFT CFTFLD+FLDISC=2 ( P CF A14,UNLOCK UNLOCK FLEXIBLE DISC P X
0x2d4f38…2d50cc Dummy {f00=0x010a, f01=0x018e, f02=»OR:60 NOT FLEXIBLE DISC P* " P SUK A1,/FC-/F8 FLEXIBLE DISC? * P RF(NN) COR:60 NO! P P* j P XIF t P IFT CFTFLD+FLDISC=2 " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) COR:60 YES! DON'T UNLOCK P
0x2d50cc…2d5260 Dummy {f00=0x010a, f01=0x0190, f02=» PCOR:60 EQU * P EJECT PCONMOV EQU * & P* : 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA D P* | & P CIO A1,0,SOP INHIBIT SOP SWITCHES " P LDR A1,A9 GET START OF BUFFER ( P AD A1,SAVCON COMPUTE END OF BUFFER < PCMOV10
0x2d5260…2d53f4 (3, 226) Dummy {f00=0x010a, f01=0x0190, f02=»URATION FILE v " P SUK A2,1 IS FOLLOWED BY X'00' , P SUR A3,A1 LENGTH OF CONFIGURATION DATA : 2 P ST A3,CONLEN+STKCOM SAVE LENGTH OF CONF. DATA j P SUR A2,A3 TO-ADDRESS P* $ P ANKL A2,/FFFE MAKE EVEN ADDRESS P CALL MOVE : P ST A2
0x2d53f4…2d5588 Dummy {f00=0x010a, f01=0x0190, f02=» ZEROES IN LENGTH v P ANKL A1,/FFFE AND MAKE EVEN P ST A1,CONLEN+STKCOM > & P LDR A1,A9 GET START OF FREE AREA Z P LDR A12,A2 END OF FREE AREA $ P SUR A12,A1 SUBTRACT MONITOR END 2 P ST A12,M:REL+STKCOM SAVE RELOCATION CONSTANT ( P L
0x2d5588…2d571c Dummy {f00=0x010a, f01=0x0190, f02=»=1 l , P ST A2,SCTMXS AND SAVE AS NEW ADDRESS =1 PCMOV20 EQU * =1 : , P LD A2,CONSTA+STKCOM GET START OF CONFF T P* < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA P* PMOPRO EQU * P LDKL A13,SYSLDM P SUK
0x2d571c…2d58b0 Dummy {f00=0x010a, f01=0x018e, f02=»ON IN SYSLDM x P XIF P EJECT L P************************************************************************ . L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O ~ L P**********************************************************
0x2d58b0…2d5a44 Dummy {f00=0x010a, f01=0x0190, f02=» n $ P* * $ P* ENTRY: * 0 $ P* * X $ P* EXIT: A1 - SOP INPUT * $ P* BIT 6 - SWITCH 1 * $ P* BIT 15 - SWITCH 10 * $ P*
0x2d5a44…2d5bd8 Dummy {f00=0x010a, f01=0x0190, f02=» p $ P* * $ P******************************* 0 PSOPIN EQU * X P CIO A1,1,SOP l P INR A1,0,SOP P RB(NA) *-2 P RTN A14 P EJECT ( P*********************************** ( P*
0x2d5bd8…2d5d6c Dummy {f00=0x010a, f01=0x0190, f02=» * z ( P* USED FOR CONFIGURATION OF * ( P* PROGRAM LOAD DEVICE AND * B ( P* CONFIGURATION DATA LOAD * n ( P* DEVICE (IF DIFFERENT). * ( P* * ( P* ON ENTRY: A1=DEVICE
0x2d5d6c…2d5f00 Dummy {f00=0x010a, f01=0x0190, f02=»********* v P P PLODDEV EQU * " P LDKL A3,BUFLEN 6 * P ST A3,SAVCON INITIALIZE BUFFER LENGTH N P LDKL A2,-1 | $ P ST A2,CYLNBR SET SEEK CONDITION P LDR A2,A1 $ P ANK A2,/80 CHECK IF CASSETTE =9 P RF(P) CASS:0 YES!
0x2d5f00…2d6094 (3, 227) Dummy {f00=0x010a, f01=0x0190, f02=»PE l P ANK A3,/FF P SUK A3,3 P RF(N) DISC:0 DISC 0 P RF(Z) MFD:0 MINI FIXED DISC J P SUK A3,3 =9 n P RF(N) CDC:0 80M CDC DISC P RF FLEX:0 FLEXIBLE DISC P EJECT PCASS:0 EQU * P IFT CASS=1 P* & P*
0x2d6094…2d6228 Dummy {f00=0x010a, f01=0x0190, f02=»R APPLICATION DISC | ( P CM APLADA+4,A1 FILE ADDRESS ENTRIES * P LDKL A1,RDBLK GET SUBROUTINE ADDRESS F P LDR A10,A1 t 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PCASS:2 EQU * * P CF A14,RDBLK READ ONE CASSETTE BLOCK P LDR A1,A1
0x2d6228…2d63bc Dummy {f00=0x010a, f01=0x018e, f02=» IFF CASS=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION * P XIF T P EJECT ` PFLEX:0 EQU * n P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC P* P* 2 P* MODIFY SCTIPL: /F8 - DRIVE 1, /F9
0x2d63bc…2d6550 Dummy {f00=0x010a, f01=0x0190, f02=» P CF A14,FDINIT P RF FINISH P* 0 P XIF : P IFF FLDISC=1 F P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION r P XIF P EJECT PMFD:0 EQU * P IFT MFDISC=1 P* , P* PROGRAM LOAD DEVICE = MINI F
0x2d6550…2d66e4 Dummy {f00=0x010a, f01=0x0190, f02=» CODE r P* P* INIT MINI FIXED DISC P* 6 P CF A14,MDINIT @ P RF FINISH RETURN V P* p P XIF z P IFF MFDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF P EJECT PDISC:0 EQU *
0x2d66e4…2d6878 Dummy {f00=0x010a, f01=0x0190, f02=»IX DISC b P* & P LC A2,FCTAB,A2 LOAD FILE CODE =5 ( P ST A2,FILCOD+STKEND SAVE FILE CODE D P* p P* INITIALIZE DISC COMMANDS z P* P CF A14,DUINIT P XIF P IFF DISC=1 P LDKL A1,LMP9 P CALL ERROR P
0x2d6878…2d6a0c Dummy {f00=0x010a, f01=0x0190, f02=»CODE n P RTN A14 P EJECT PCDC:0 EQU * * P IFF CDDISC+CDDI16=0 > P* Z 0 P* PROGRAM LOAD DEVICE = 16M OR 80M CDC DISC d P* P* P* MODIFY SCTIPL: /FC - /FD P* $ P SRC A2,2 TEST IF UNIT 1 OR 2 =9 P RF(NN)
0x2d6a0c…2d6ba0 Dummy {f00=0x010a, f01=0x0190, f02=» ( P ST A2,FILCOD+STKEND SAVE FILE CODE P* 0 P* INITIALISE DISC COMMANDS : P* P CF A14,CDINIT INIT DEVICE f P RB FINISH RETURN P XIF P IFT CDDISC+CDDI16=0 =9 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION
0x2d6ba0…2d6d34 (3, 228) Dummy {f00=0x010a, f01=0x0190, f02=» * h < P* CONFLD - SELECT LOAD UNIT FOR CONF. DATA * < P* ======================================== * X < P* * < P* ON ENTRY: A1 = DEVICE ADDRESS
0x2d6d34…2d6ec8 Dummy {f00=0x010a, f01=0x0190, f02=» X P P PCONFLD EQU * P LDKL A2,-1 , $ P ST A2,CYLNBR SET SEEK CONDITION @ " P LDR A2,A1 SAVE DEVICE ADDRESS h " P ANK A2,/F ISOLATE LAST DIGIT P SUK A2,7 P RB(N) MFD:0 MINI FIXED DISC P* P RB(Z) CDC:0 80M CDC
0x2d6ec8…2d705c Dummy {f00=0x010a, f01=0x0190, f02=» P IFT CASS=1 < P******************************************************* < P* CASSIN - CASSETTE INITIATING ROUTINE * X < P* ==================================== * < P*
0x2d705c…2d71f0 Dummy {f00=0x010a, f01=0x0190, f02=» X < P* ENTRY: * < P* * H < P* EXIT: * < P* * < P
0x2d71f0…2d7384 Dummy {f00=0x010a, f01=0x0190, f02=»UTINES: SOPIN,CHCRIO * < P* * 8 < P******************************************************* x PCASSIN EQU * P LDK A1,/F " P CF A14,CHCRIO UNLOAD CASSETTE 2 P LDK
0x2d7384…2d7518 Dummy {f00=0x010a, f01=0x0190, f02=» ALLOWED SWITCHES? P RB(Z) CAS:10 NO! & P LDKL A3,LMP1 SWITCH ON LOAD LAMP 4 P OTR A3,0,SOP ^ P SRL A1,8 RIGHT ALIGN t P ANK A1,1 SELECT UNIT P CF A14,CHCRIO SELECT UNIT P LDK A1,LOCK P CF A14,CHCRIO LOCK CASSETTE
0x2d7518…2d76ac Dummy {f00=0x010a, f01=0x0190, f02=»DK A1,STMF * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD P RTN A14 @ P EJECT P 2 P********************************************* ^ 2 P* CHCRIO - CASSETTE I/O EXECUTING ROUTINE * 2 P* ======================================= * 2 P*
0x2d76ac…2d7840 Dummy {f00=0x010a, f01=0x0190, f02=» * l 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND * 2 P* * H 2 P* EXIT: * ~ 2 P* * 2 P* WORK REGISTERS: A1,A3
0x2d7840…2d79d4 (3, 229) Dummy {f00=0x010b, f01=0x0190, f02=» * 2 P********************************************* 2 PCHCRIO EQU * h P CIO A1,1,CHCR | P SST A3,CHCR P RB(NA) CHCRIO P RTN A14 P EJECT 6 P**********************************************
0x2d79d4…2d7b68 Dummy {f00=0x010b, f01=0x0190, f02=» =============================== * 6 P* * 2 6 P* REFERENCED IN: SYSLOD * l 6 P* * 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER
0x2d7b68…2d7cfc Dummy {f00=0x010b, f01=0x0190, f02=» * : P* WORK REGISTERS: A1,A2,A3,A4,A5 * 8 6 P* * v 6 P* SUBROUTINES: * 6 P******************************
0x2d7cfc…2d7e90 Dummy {f00=0x010b, f01=0x0190, f02=»CHARACTER COUNTER $ P LDR A4,A3 SAVE START OF BUFFER P ADKL A3,CBLEN END OF BUFFER B P LDK A1,/A f P CIO A1,1,CHCR READ BLOCK x P RF(NA) RDERR3 PRDB:20 EQU * P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END OF BUFFER
0x2d7e90…2d8024 Dummy {f00=0x010b, f01=0x0190, f02=»BUFFER POINTER | PRDB:30 EQU * P SST A1,CHCR * P RB(NA) RDB:20 @ P ANKL A1,/FCFF CHECK STATUS V P LDR A4,A1 SAVE STATUS z P RF(Z) RDBEX OK P SLC A4,3 CHECK IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR EQU *
0x2d8024…2d81b8 Dummy {f00=0x010b, f01=0x0190, f02=» V P* P ADK A5,1 NEXT ATTEMPT P CWK A5,3 THIRD ATTEMPT? 0 P RF(E) RDERR3 YES - GIVE UP! P P LDK A1,/E REVERSE ONE BLOCK t P CIO A1,1,CHCR EXECUTE ORDER $ P RB(NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 PRDERR3 EQU *
0x2d81b8…2d834c Dummy {f00=0x010b, f01=0x0190, f02=»************************* ( P* * " ( P* DUINIT - INITIALIZE DISC UNIT * N ( P* ============================= * z ( P* * ( P* REFERENCED IN: SYSLOD,GETFIL * ( P*
0x2d834c…2d84e0 Dummy {f00=0x010b, f01=0x0190, f02=» * ( P* * * P* WORK REGISTERS: A2,A3 * J ( P* * x ( P* SUBROUTINES: * ( P* * ( P************
0x2d84e0…2d8674 (3, 230) Dummy {f00=0x010b, f01=0x0190, f02=» P EJECT P* $ P* INIT DISC COMMANDS VERSION A2 P* D , P ORKL A1,CIO+8 CONF. CIO A1,1,XX INSTR. N P ST A1,SEEK20 ~ ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,SEEK21 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST
0x2d8674…2d8808 Dummy {f00=0x010b, f01=0x0190, f02=»EADS P LDK A2,4 $ P XRS A2,CRCCHK DISCARD CRC CHECK $ P CF A14,GETVLB GET VOLUME LABEL F P LDK A2,4 n P ORS A2,CRCCHK SET CRC CHECK P LC A2,FORDEV,A9 GET FORMAT P ANK A2,1 P RF(Z) DUI:50 FORMAT A2 P* " P LDR
0x2d8808…2d899c Dummy {f00=0x010b, f01=0x0190, f02=» , P LDKL A3,DKBA3 BUFFER LENGTH VERSION A3 * P ST A3,SAVCON BUFFER LENGTH VERSION A3 4 P ORKL A1,CIO+8 b , P XRKL A1,/500 CONFIG. CIO A4,1,XX INSTR. x P ST A1,SEEK30 ( P ORKL A1,/800 FORM SST A4,XX INSTR. P ST A1,SEEK31 * P XRKL A1
0x2d899c…2d8b30 Dummy {f00=0x010b, f01=0x018e, f02=»* INIT SUBROUTINE ADDRESSES P* $ " PDUI:40 ST A2,READ READ PROGRAM . ( P ST A2,READS READ CONFIGURATION DATA T PDUI:50 EQU * P RTN A14 P EJECT 4 P*********************************************** 4 P*
0x2d8b30…2d8cc4 Dummy {f00=0x010b, f01=0x0190, f02=» 4 P* * 4 P* REFERENCED IN: SYSLOD * < 4 P* * t " P* ENTRY: A9 = BUFFER ADDRESS 4 P* * 4
0x2d8cc4…2d8e58 Dummy {f00=0x010b, f01=0x0190, f02=» * z 4 P* * " ( P* WORK REGISTERS: A1,A2,A3,A4,A7 Z 4 P* * 4 P* SUBROUTINES: ERROR * 4 P*
0x2d8e58…2d8fec Dummy {f00=0x010b, f01=0x018e, f02=»ISC SECTOR VERSION A2 P* PRDSEC2 EQU * ( P LDK A2,0 < * P LDR A1,A11 GET LOGICAL SECTOR NUMBER N PDIV200 EQU * | P ADR A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD P LDR A1,A2 P ANKL A1,/FFE0 P
0x2d8fec…2d9180 Dummy {f00=0x010b, f01=0x018e, f02=» PDIV210 EQU * . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 P RF(Z) DIV220 CYLINDER 0 J P ADK A2,1 j PDIV220 EQU * | 4 P ADR A2,A11 A2:=PHYS. SEC NBR BEFORE INTERLACING P* P LDR A1,A2 P SRL A1,5 P CW A1,CYLNBR
0x2d9180…2d9314 (3, 231) Dummy {f00=0x010b, f01=0x0190, f02=» P* SEEK CYLINDER P* PSEEK20 CIO A1,1,0 & P RB(NA) SEEK20 @ P* V PSEEK21 SST A1,0 ` P RB(NA) SEEK21 x P* P* INTERLACING P* PINT200 EQU * P LDR A1,A2 P ADR A2,A2 $ P ADR A2,A1 INTERLACING F
0x2d9314…2d94a8 Dummy {f00=0x010b, f01=0x0190, f02=» A2,8 PINT210 EQU * P ANK A2,/1F " , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE 6 P ST A2,SECNBR f P EJECT | P* P* READ SECTOR P* P LDR A1,A9 BUFFER ADDRESS ( PREAD20 LDKL A4,MUXCC NUMBER OF WORDS , PWERIO2
0x2d94a8…2d963c Dummy {f00=0x010b, f01=0x0190, f02=»OOP UNTIL ACCEPTED PREAD22 SST A2,0 STATUS & P RB(NA) READ22 LOOP UNTIL ACCEPTED 8 PCRCCHK EQU * b P ANK A2,/1F STATUS v P RF(NZ) DUERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR COUNTER P RTN A14 P EJECT P* " P
0x2d963c…2d97d0 Dummy {f00=0x010b, f01=0x0190, f02=»L A7,/1000 P LDKL A4,/3000 PDIV300 EQU * ( P SUR A1,A4 < P RF(N) DIV310 N P ADR A2,A7 d P RB DIV300 v PDIV310 EQU * P ADR A1,A4 ADJUST DIVIDEND P SRL A4,4 P SRL A7,4 P RB(NZ) DIV300 P ADR A2,A2
0x2d97d0…2d9964 Dummy {f00=0x010b, f01=0x018e, f02=» v PCASE10 EQU * P LDR A4,A2 P SRL A4,5 . P CW A4,CYLNBR @ P RF(E) INT300 V , P ST A4,CYLNBR STORE NEW CYLINDER NUMBER l P SLL A4,3 P ORK A4,2 SET BIT 14 P EJECT P* P* SEEK CYLINDER P* PSEEK
0x2d9964…2d9af8 Dummy {f00=0x010b, f01=0x0190, f02=» P* PINT300 EQU * P LDR A3,A2 & P ADR A2,A2 8 $ P ADR A2,A3 INTERLACING FACTOR 3 J P ANK A2,/1F r & P LD A4,CYLNBR GET CYLINDER NUMBER P ANK A4,1 & P RF(Z) INT310 EVEN CYLINDER NUMBER " P ADK A2,8 SKEW FACTOR 180 DE
0x2d9af8…2d9c8c Dummy {f00=0x010b, f01=0x0190, f02=»R NUMBER n P EJECT P* P* READ SECTOR ( P* > P LDR A7,A9 BUFFER ADDRESS H * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS j , PWERIO3 WER A4,/10 WRITE NUMBER OF WORDS $ P WER A7,/11 WRITE BUFFER ADDRESS P* " PREAD30 CIO A2,
0x2d9c8c…2d9e20 Dummy {f00=0x010b, f01=0x0190, f02=»ACCEPTED v P ANK A2,/1F STATUS P RF(NZ) DUERR READING ERROR * P LDR A2,A9 BUFFER ADDRESS N P LDR A1,A1 p " P RF(N) RETURN ,XXXX , , " P RF(P) READ33 , , XXXX, P ADKL A2,256 SOURCE POINTER & P LDK A4,64 NUMBER OF W
0x2d9e20…2d9fb4 (3, 232) Dummy {f00=0x010b, f01=0x0190, f02=»4,1 " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM 2 P RF(P) RETURN H ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER ^ " P ADK A2,/C NEW SECTOR TO READ P ANK A2,/7C P SUK A1,1 P RB READ34 P EJECT PREAD33 EQU *
0x2d9fb4…2da148 Dummy {f00=0x010b, f01=0x018e, f02=»BER j P RTN A14 P PDUERR EQU * $ P LDKL A1,LMP2 8 P CALL ERROR N P XIF b P IFT MFDISC=1 n P EJECT < P******************************************************** < P*
0x2da148…2da2dc Dummy {f00=0x010b, f01=0x0190, f02=» < P* * < P* REFERENCED IN: SYSLOD,GETFIL * D < P* * < P* ENTRY: A1 = DEVICE ADDRESS * < P*
0x2da2dc…2da470 Dummy {f00=0x010b, f01=0x018e, f02=» * < P* WORK REGISTERS: * 4 < P* * t < P* SUBROUTINES: ERROR * < P*
0x2da470…2da604 Dummy {f00=0x010b, f01=0x0190, f02=» $ P* INIT MINI FIXED DISC COMMANDS P* , PMDI:00 EQU * 6 , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. J P ST A1,READM2 z ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,S
0x2da604…2da798 Dummy {f00=0x010b, f01=0x0190, f02=»DDRESS p P ST A2,READ P ST A2,READS " P RTN A14 6 P EJECT F : P****************************************************** T : P* * : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *
0x2da798…2da92c Dummy {f00=0x010b, f01=0x0190, f02=»ERENCED IN: SYSLOD * : P* * 8 : P* ENTRY: A9 = BUFFER ADDRESS * v : P* A11 = SECTOR NUMBER * : P*
0x2da92c…2daac0 Dummy {f00=0x010b, f01=0x0190, f02=» * n : P* WORK REGISTERS: * : P* * Z : P* SUBROUTINES: * : P*
0x2daac0…2dac54 (3, 233) Dummy {f00=0x010c, f01=0x0190, f02=» A2,A11 GET LOGICAL SECTOR NUMBER P DVK 104 DIVIDE BY 104 * P SLL A2,2 H P ORK A2,3 SET BIT 14 AND 15 Z P* ~ " P* A1=SECTOR NUMBER ON CYLINDER P* A2=CYLINDER NUMBER P* & P ST A1,SECNBR STORE SECTOR NUMBER P CW A2,CYL
0x2dac54…2dade8 Dummy {f00=0x010c, f01=0x0190, f02=»R P* " PSEEKM1 CIO A2,1,0 SEEK COMMAND & P RB(NA) SEEKM1 LOOP UNTIL ACCEPTED : P* d PSEEKM2 SST A2,0 GET STATUS n & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED P* P* INTERLACING P* PINTM10 EQU * P CWK A1,52
0x2dade8…2daf7c Dummy {f00=0x010c, f01=0x0190, f02=» r " P LDK A1,0 PREPARE FOR DIVISION P DVK 52 . , P ADR A1,A2 A1:=INTERLACED SECTOR NUMBER > P* n " P* A1:=INTERLACED SECTOR NUMBER x P* & P LD A2,CYLNBR GET CYLINDER NUMBER P SRC A2,3 ( P RF(NN) INTM30 EVEN CYLINDER NUMBER
0x2daf7c…2db110 Dummy {f00=0x010c, f01=0x0190, f02=»T SECTOR NUMBER BEFORE INTERLACING P CWK A2,52 * P RF(L) INTM40 HEAD NUMBER 0 < P ORKL A1,/4000 HEAD NUMBER 1 ` PINTM40 EQU * P* P* READ SECTOR P* PREADM1 EQU * " P LDKL A4,MUXCC NUMBER OF WORDS P LDR A7,A9 B
0x2db110…2db2a4 Dummy {f00=0x010c, f01=0x0190, f02=» A1,1,0 READ SECTOR & P RB(NA) READM2 LOOP UNTIL ACCEPTED P* F PREADM3 SST A1,0 GET STATUS P & P RB(NA) READM3 LOOP UNTIL ACCEPTED r P ANK A1,/1F STATUS P RF(NZ) MFDERR READING ERROR ( P ADKL A11,1 INCREMENT SECTOR NUMBER P R
0x2db2a4…2db438 Dummy {f00=0x010c, f01=0x0190, f02=»******************************************** 4 P* * 4 4 P* FDINIT - INITIALIZE FLEXIBLE DISC * l 4 P* ================================= * 4 P*
0x2db438…2db5cc Dummy {f00=0x010c, f01=0x0190, f02=»1 - DEVICE ADDRESS * 4 P* * , 4 P* EXIT: * d 4 P* * 4 P* WORK REGISTERS: *
0x2db5cc…2db760 Dummy {f00=0x010c, f01=0x0190, f02=» * | 4 P************************************************ $ PFDINIT EQU * P ANK A1,/10 p 0 P ORKL A1,CIO+9 CONFIG. CIO+9 A1,1,XX INSTR. P ST A1,FRD:10 < P LDKL A2,FRDS25 ADDRESS TO READ ON 0,25 MEG FLOPPY DRIVE
0x2db760…2db8f4 (3, 234) Dummy {f00=0x010c, f01=0x0190, f02=» ANK A1,/10 ( P RF(NZ) FDI:10 0.25 MEG FLOPPY DRIVE P* @ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 J ( P ST A1,FRD:20 MODIFY INR INSTRUCTION | P LDKL A1,/41F " P ST A1,FRD:42 MODIFY SST MASK P LDKL A1,/C00 & P ST A1,RELEAS
0x2db8f4…2dba88 Dummy {f00=0x010c, f01=0x0190, f02=»,READS $ P CF A14,GETVLB GET VOLUME LABEL P LD A1,FORDEV,A9 GET FORMAT 6 P ST A1,DEVTYP+STKEND Z P RTN A14 v P EJECT 0 P******************************************** 0 P* * 0 P*
0x2dba88…2dbc1c Dummy {f00=0x010c, f01=0x0190, f02=» d 0 P* * 0 P* ON ENTRY: A1 = DEVICE ADDRESS * < 0 P* * p 0 P******************************************** P P PUNLOCK EQU * $ P CF A14,FDIN
0x2dbc1c…2dbdb0 Dummy {f00=0x010c, f01=0x0190, f02=»CCEPTED x P* P EX FRD:40 SENSE STATUS $ P RB(NA) *-4 LOOP UNTIL ACCEPTED : P RTN A14 b P EJECT r @ P*********************************************************** @ P* * @ P
0x2dbdb0…2dbf44 Dummy {f00=0x010c, f01=0x0190, f02=»* * @ P* REFERENCED IN: SYSLOD * D @ P* * @ P* ENTRY: A9 - BUFFER ADDRESS *
0x2dbf44…2dc0d8 Dummy {f00=0x010c, f01=0x0190, f02=» T @ P* EXIT: * @ P* * L @ P* WORK REGISTERS: A1,A2,A3 * @ P*
0x2dc0d8…2dc26c Dummy {f00=0x010c, f01=0x0190, f02=» * @ P*********************************************************** PFRDSEC EQU * T " P LDR A2,A11 GET SECTOR NUMBER h * P LDKL A4,/340 26 SHIFTED 10 STEPS LEFT $ P LD A1,DEVTYP+STKEND DEVICE TYPE P ANK A1,1 & P RF(Z) SNHEAD 0,25
0x2dc26c…2dc400 Dummy {f00=0x010c, f01=0x018e, f02=»R l P RF DVK26 PNOTCY0 EQU * P ADK A2,13 0 P EJECT B P* P P* A2=PHYSICAL SECTOR NUMBER Z P* ~ PDVK26 EQU * P LDK A1,0 PDVK26A EQU * P SLL A1,5 PDVK26B EQU * P SUR A2,A4 P RF(N) DVK26C
0x2dc400…2dc594 (3, 235) Dummy {f00=0x010c, f01=0x0190, f02=» P EJECT P* P* A2=SECTOR NUMBER P* A1=CYLINDER NUMBER 6 P* R $ P LD A4,DEVTYP+STKEND DEVICE TYPE P ANK A4,1 , P RF(NZ) DBHEAD 1 MEG FLOPPY,DOUBLE HEAD P SLL A1,1 ONLY ONE HEAD PDBHEAD EQU * P LDR A4,A1
0x2dc594…2dc728 Dummy {f00=0x010c, f01=0x0190, f02=»2=CIO READ REGISTER 2 P SLL A1,1 CYLINDER NUMBER IN CORRECT POSITION " P ORK A1,3 A1=CIO SEEK REGISTER R 4 P CW A1,CYLNBR COMPARE OLD AN NEW CYLINDER NUMBER x P RF(E) NOSEEK NO SEEK NEEDED & P ST A1,CYLNBR SAVE CYLINDER NUMBER PFDSEEK EX
0x2dc728…2dc8bc Dummy {f00=0x010c, f01=0x018e, f02=»ERROR | PNOSEEK EQU * P LDR A1,A2 " P RF FRD:05 4 P EJECT F PFRDS25 EQU * T P LDR A1,A11 SECTOR NO h P SLL A1,4 8 P ORKL A1,/4000 NUMBER OF SECTORS=2 (BIT 0 - BIT 1) PFRD:05 EQU * P LDKL A2,MUXCC P LD A3,MXB
0x2dc8bc…2dca50 Dummy {f00=0x010c, f01=0x0190, f02=» $ P AD A2,SAVCON BUFFER END ADDRESS P* , $ PFRD:10 CIO A1,1,FDCU START READ 6 P RB(NA) FRD:10 ^ P* t P EJECT CRVOL ~ P* P* PFRD:20 INR A1,0,FDCU P RF(NA) FRD:40 =4 P STR A1,A3 P ADK A3,2 P CWR A
0x2dca50…2dcbe4 Dummy {f00=0x010c, f01=0x0190, f02=»D:20 PFRD:42 EQU *+2 P ANKL A1,/4E15 FATAL ERROR ? " P RF(NZ) FRD:50 YES! F PFRD:43 CWR A3,A2 =4 b ( P RF(E) FRD:44 PROGRAMMED CHANNEL =4 ~ . P LDKL A1,FRD:B1+/5700 RF FRD:40 INSTR. =4 & P ST A1,FRD:20 UPDATE INR ISTR. =4 PFR
0x2dcbe4…2dcd78 Dummy {f00=0x010c, f01=0x0190, f02=»4 z PFRD:45 EQU * ( P ADKL A11,1 INCRMENT SECTOR ADDRESS P RF(NN) FRD:48 J 0 P SUR A11,A11 RESET LEAST SIGN. PART OF D.A. ` 2 P ADKL A12,1 INCREMENT MOST SIGN. PART OF D.A. $ P RF(O) FRD:50 DISC ADDRESS ERROR PFRD:48 EQU * P R
0x2dcd78…2dcf0c Dummy {f00=0x010c, f01=0x0190, f02=»43-2 =4 z P XIF P IFT CDDISC=1 P IFT CDDI16=0 =9 2 P EJECT L ( P*********************************** Z ( P* * ( P* CDINIT - INITIALIZE DISC UNIT * ( P* ============================= * (
0x2dcf0c…2dd0a0 Dummy {f00=0x010c, f01=0x018e, f02=» ENTRY: A1 - DEVICE ADDRESS * ( P* * * ( P* EXIT: * V ( P* * ( P* WORK REGISTERS: A1,A2 * ( P* * ( P*
0x2dd0a0…2dd234 (3, 236) Dummy {f00=0x010c, f01=0x0190, f02=» PCDINIT EQU * P* P* INIT 80M CDC DISC COMMANDS " P* F , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P P ST A1,READC1 ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P S
0x2dd234…2dd3c8 Dummy {f00=0x010c, f01=0x0190, f02=»E FOR SECTOR NBR r & P LDKL A2,/300 BUFLEN 80M CDC DISC P ST A2,SAVCON SAVE LENGTH B 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. d P ST A2,READ P ST A2,READS P RTN A14 P EJECT 4 P**************************************
0x2dd3c8…2dd55c Dummy {f00=0x010c, f01=0x0190, f02=»============================== * 4 P* * 2 4 P* REFERENCED IN: SYSLOD * j 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS
0x2dd55c…2dd6f0 Dummy {f00=0x010c, f01=0x0190, f02=»- SECTOR NBR MOST SIGNIFICANT * 4 P* * * 4 P* EXIT: A12,A11 = A12,A11 + 1 * b 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * 4
0x2dd6f0…2dd884 Dummy {f00=0x010c, f01=0x0190, f02=» * z 4 P*********************************************** " P* Z PCRDSEC EQU * d P* x P* SET BUFFER ADDRESS P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 P ST A1,CIOAD2 ADDRESS 2 P ADKL A1,2
0x2dd884…2dda18 Dummy {f00=0x010c, f01=0x0190, f02=» A1,A12 SECTOR NUMBER MOST SIGNIFICANT 0 P LDR A2,A11 SECTOR NUMBER LEAST SIGNIFICANT . P EJECT b P* p P* DIVIDE LOGICAL WITH 3 z P* P LDK A3,0 PRED100 EQU * P ADK A3,1 P SUK A1,3 P RB(NN) RED100 P ADK
0x2dda18…2ddbac Dummy {f00=0x010c, f01=0x0190, f02=»,PSECNL+STKEND , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR P CW A3,PSECNM+STKEND F , P RF(NE) RED110 NOT SAME PHYSICAL SEC NBR b P CW A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR
0x2ddbac…2ddd40 Dummy {f00=0x010c, f01=0x0190, f02=»CT P* A1=HEAD NBR * SECTOR NBR P* A2=CYLINDER NBR , P LDR A3,A2 F P LDR A2,A1 X P LDK A1,0 j P DVK 23 | P* A1=SECTOR NBR P* A2=HEAD NBR $ P ORKL A2,/800 SET INTERRUPT BIT " P ST A2,CIOTAB UPDATE CIO TABLE P
0x2ddd40…2dded4 (3, 237) Dummy {f00=0x010d, f01=0x018e, f02=»VEN CYLINDER NUMBER P ADK A2,12 SKEW FACTOR PINT100 EQU * : P DVK 23 N P SLL A1,5 IN POSITION ^ $ P ORS A1,CIOTAB UPDATE CIO TABLE | P SRC A3,1 RESTORE A3 P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT
0x2dded4…2de068 Dummy {f00=0x010d, f01=0x0190, f02=» P LDKL A2,SEKTAB PSEEKC1 EQU * P CIO A2,1,0 SEEK 0 P RB(NA) SEEKC1 H PSEEKC2 EQU * ^ P SST A2,0 r P RB(NA) SEEKC2 P EJECT P* P* READ P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PRE
0x2de068…2de1fc Dummy {f00=0x010d, f01=0x0190, f02=» PREADC2 SST A1,0 STATUS & P RB(NA) READC2 LOOP UNTIL ACCEPTED & P ANKL A1,/FF0F STATUS P P RF(NZ) RET30 READING ERROR n > P LD A1,PSECPA+STKEND GET RELATIV LOG SECT IN PHYSICAL =11 0 P RF(NZ) REDMOV NOT FIRST REL LOG SECTOR =11 P
0x2de1fc…2de390 Dummy {f00=0x010d, f01=0x0190, f02=» * P SUR A11,A11 RESET A11 P ADKL A12,1 ( PTURN20 EQU * < P RTN A14 P P EJECT ` P* n " P* MOVE UP NEXT LOGICAL SECTOR x P* PREDMOV EQU * 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,2 INDEX TO
0x2de390…2de524 Dummy {f00=0x010d, f01=0x0190, f02=»QU * P LDR* A6,A1 P STR A6,A2 P ADK A1,2 2 P ADK A2,2 D P SUK A3,1 V P RB(P) RMOV10 NEXT WORD h P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READING ERROR P EJE
0x2de524…2de6b8 Dummy {f00=0x010d, f01=0x0190, f02=»IOTAB P ANK A1,/C0 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S " P LDKL A2,/8000 Z 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE p P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETRY WITH LATE DATA STR
0x2de6b8…2de84c Dummy {f00=0x010d, f01=0x0190, f02=»FF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT 8 P ANK A1,/C0 N 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- b P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33 EQU * P ANK A
0x2de84c…2de9e0 Dummy {f00=0x010d, f01=0x0190, f02=» P EJECT P* P* SEEK TABLE P* 0 PSEKTAB EQU * : P DATA 0 N P* ^ P* CIO TABLE h P* | PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU * 6 P DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTO
0x2de9e0…2deb74 (3, 238) Dummy {f00=0x010d, f01=0x0190, f02=»OPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * * P DATA 0 ADDRESS 2 > PCIOPA3 EQU * X P DATA 128 l PCIOAD3 EQU * ~ P DATA 0 ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P***********************************
0x2deb74…2ded08 Dummy {f00=0x010d, f01=0x0190, f02=»* * ( P* REFERENCED IN: SYSLOD,GETFIL * , ( P* * X ( P* ENTRY: A1 - DEVICE ADDRESS * ( P* * ( P* EXIT: * ( P
0x2ded08…2dee9c Dummy {f00=0x010d, f01=0x0190, f02=»UBROUTINES: * ( P* * ( ( P*********************************** T P PCDINIT EQU * P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 =9 & P ANK A1,/3F MASK DEVIC
0x2dee9c…2df030 Dummy {f00=0x010d, f01=0x0190, f02=» INDICATOR =9 f , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P ST A1,READC1 F ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READC2 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL A1,/800 FORM SST A2,XX INSTR.
0x2df030…2df1c4 Dummy {f00=0x010d, f01=0x0190, f02=» n P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTOR SUBROUTINE ADDR. * P ST A2,READ b P ST A2,READS v & P CF A14,GETVLB GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FORMAT 4 OR 5 =9 ( P LDK A2,23
0x2df1c4…2df358 Dummy {f00=0x010d, f01=0x0190, f02=» ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 , P EJECT < 4 P*********************************************** J 4 P* * 4 P* CRDSEC- READ ONE SECTOR FROM DISC * 4 P* ===================
0x2df358…2df4ec Dummy {f00=0x010d, f01=0x018e, f02=»* b 4 P* * 4 P* ENTRY: A9 = BUFFER ADDRESS * B 4 P* * z 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4 P* A12 - SECTOR NBR MOS
0x2df4ec…2df680 Dummy {f00=0x010d, f01=0x0190, f02=» 4 P* * 4 P* WORK REGISTERS: A1,A2,A3,A6 * < 4 P* * t 4 P* SUBROUTINES: ERROR * 4 P*
0x2df680…2df814 (3, 239) Dummy {f00=0x010d, f01=0x0190, f02=» | P* P LDR A1,A9 BUFFER ADDRESS P ADKL A1,256 4 P ST A1,CIOAD2 ADDRESS 2 H P ADKL A1,256 h P ST A1,CIOAD3 ADDRESS 3 | P LDKL A1,/3FFF P ANS A1,CIOTAB RESET BITS P ANS A1,CIOTOT RESET BITS . P LDR A1,A12 SECTOR
0x2df814…2df9a8 Dummy {f00=0x010d, f01=0x0190, f02=» P* P LDK A3,0 PRED100 EQU * P ADK A3,1 4 P SUK A1,3 F P RB(NN) RED100 X P ADK A1,3 n P SUK A3,1 P DVK 3 P CW A9,CIOAD1 : P RF(NE) RED110 NOT SAME BUFFER ADDRESS MEANS NEW READ P CW A2,PSECNL+STKEND
0x2df9a8…2dfb3c Dummy {f00=0x010d, f01=0x0190, f02=»A1,PSECPA+STKEND & P RF(E) TURN SAME LOG SEC AS BEFORE . P RF(G) REDMOV MOVE UP NEXT LOGICAL SECTOR B PRED110 EQU * t P ST A9,CIOAD1 ADDRESS 1 ( P MS 3,PSECPA+STKEND SAVE NEW VALUES P LDR A1,A3 PDIVCON EQU *+2 =9 P DVK 23
0x2dfb3c…2dfcd0 Dummy {f00=0x010d, f01=0x0190, f02=» P DVK 23 P* A1=SECTOR NBR P* A2=HEAD NBR , $ P ORKL A2,/800 SET INTERRUPT BIT B , P OR A2,CARFIX+STKEND FIX OR CARTRIDGE =9 j " P ST A2,CIOTAB UPDATE CIO TABLE P EJECT P* P* INTERLACING P* P LDR A2,A1
0x2dfcd0…2dfe64 Dummy {f00=0x010d, f01=0x018e, f02=» * P DVK 23 P SLL A1,5 IN POSITION $ P ORS A1,CIOTAB UPDATE CIO TABLE 8 P SLC A3,1 RESTORE A3 =9 ` P CW A3,CYLNBR & P RF(E) READER SAME CYLINDER NUMBER P EJECT P* P* SEEK P* $ P ST A3,CYLNBR SAVE CYLIN
0x2dfe64…2dfff8 Dummy {f00=0x010d, f01=0x0190, f02=» ~ P RB(NA) SEEKC1 PSEEKC2 EQU * P SST A2,0 2 P RB(NA) SEEKC2 D P EJECT Z P* h P* READ r P* PREADER EQU * P LDK A6,3 NUMBER OF RETRIES PREA100 EQU * ( P LDKL A1,CIOTAB POINTER TO CIO TABLE PRE
0x2dfff8…2e018c Dummy {f00=0x010d, f01=0x018e, f02=»ACCEPTED v P ANKL A1,/FF0F STATUS P RF(NZ) RET30 READING ERROR . : P LD A1,PSECPA+STKEND GET LOGICAL SECT. IN PHYSICAL =11 R : P RF(NZ) REDMOV NOT FIRST LOGICAL SECT. IN PHYSICAL =11 P PTURN EQU * 0 P ADKL A11,1 INCREMENT LOGICAL SE
0x2e018c…2e0320 Dummy {f00=0x010d, f01=0x0190, f02=» PTURN20 EQU * P RTN A14 P EJECT ( P* 6 " P* MOVE UP NEXT LOGICAL SECTOR @ P* f PREDMOV EQU * p 6 P ST A1,PSECPA+STKEND SAVE NEW LOGICAL SECTOR PART P SLL A1,1 =9 P LDR A2,A1 =9 P ADR A1,A1 =9 & P ADR A1,
0x2e0320…2e04b4 (3, 240) Dummy {f00=0x010d, f01=0x0190, f02=»RDS x PRMOV10 EQU * P LDR* A6,A1 P STR A6,A2 4 P ADK A1,2 F P ADK A2,2 X P SUK A3,1 j P RB(P) RMOV10 NEXT WORD | P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READI
0x2e04b4…2e0648 Dummy {f00=0x010d, f01=0x0190, f02=» TRY ~ P LC A1,CIOTAB P ANK A1,/C0 " 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S 6 P LDKL A2,/8000 n 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETR
0x2e0648…2e07dc Dummy {f00=0x010d, f01=0x018e, f02=» P LDKL A2,/3FFF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT L P ANK A1,/C0 b 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- v P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33
0x2e07dc…2e0970 Dummy {f00=0x010d, f01=0x0190, f02=» d P RB READER ! P EJECT ! P* ! ( P* SEEK TABLE ! 2 P* ! F PSEKTAB EQU * ! P P DATA 0 ! d P* ! t P* CIO TABLE ! ~ P* ! PCIOTAB EQU * ! & P DATA 0 ORDER,SECTOR NBR,HEAD NBR ! PCIOTOT EQU * ! 6 P DATA 384 TOTAL NUMBER OF
0x2e0970…2e0b04 Dummy {f00=0x010d, f01=0x0190, f02=». =9 ! v PCIOAD1 EQU * " P DATA 0 ADDRESS 1 " PCIOPA2 EQU * " : P DATA /4000+128 " N $ P DATA 0 ADDRESS 2 MOST SIGN. =9 " f PCIOAD2 EQU * " P DATA 0 ADDRESS 2 " PCIOPA3 EQU * " P DATA 128 " $ P DATA 0 ADDRESS 3 MOST SIGN. =9 "
0x2e0b04…2e0c98 Dummy {f00=0x010d, f01=0x0190, f02=» * " 8 P* GETFIL - GET CONFIGURATION FILE * # : 8 P* =============================== * # v 8 P* * # 8 P* REFERENCED IN: SYSLOD
0x2e0c98…2e0e2c Dummy {f00=0x010d, f01=0x0190, f02=» * # f 8 P* * $ 8 P* EXIT: A11 - SECTOR ADDRESS TO CONF. FILE * $ N 8 P* * $ 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * $ 8 P*
0x2e0e2c…2e0fc0 Dummy {f00=0x010d, f01=0x0190, f02=» * $ x 8 P*************************************************** % $ PGETFIL EQU * % ` P CF A14,GETVLB % t PGET:10 EQU * % " P CF A14,RDSEC GET VOLUME LABEL % ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR % " P LDR A6,A9 GET START OF
0x2e0fc0…2e1154 (3, 241) Dummy {f00=0x010e, f01=0x0190, f02=»RT OF RECORD % ( P LDK A5,'S' STANDARD FILE CHARACTER & P CC A5,27,A6 STANDARD FILE? & @ P RF(NE) GET:50 NO! & d * P LDK A5,'$' LEADING CHAR IN CONF. FILE & ~ " P CCR A5,A4 CONFIGURATION FILE? & P RF(NE) GET:50 NO! & 2 PGET:25 LDK A3,'C' THIS INSTR
0x2e1154…2e12e8 Dummy {f00=0x010e, f01=0x0190, f02=»5,':' CHARACTER TO PRECEED NUMBER & ( PGET:30 CCR A5,A4 CONFIGURATION FILE? ' * P RF(E) GET:40 YES! ' V P SUK A4,1 TRY NEXT CHARACTER ' p P CWR A4,A6 FIRST IN NAME? ' P RF(E) GET:50 YES! ' P RB GET:30 ' PGET:40 EQU * ' P* ' P* CHECK
0x2e12e8…2e147c Dummy {f00=0x010e, f01=0x0190, f02=» ' t " P CALL CONVRT CONVERT TO BINARY ( , P CW A1,SCTANO SAME AS APPLICATION NUMBER ( . P RF(NE) GET:50 ( ^ P* ( t P* CONFIGURATION FILE FOUND ( ~ P* ( $ P LD A1,22,A6 LAST RECORD NUMBER ( P ST A1,LSTREC+STKEND SAVE ( P LD A12,16,A6 GET
0x2e147c…2e1610 Dummy {f00=0x010e, f01=0x0190, f02=»BYPASS STATUS CHARACTER ( , P SUK A7,1 MOORE RECORDS IN THIS SECTOR? ) P RB(P) GET:20 YES! ) P " P CWR A11,A10 LAST VTOC SECTOR? ) j P RB(NE) GET:10 NO! ) 2 PGET:60 LDK A3,'C' THIS INSTRUCTION IS MODIFIED ) ( P CCK A3,'CC' LOOKING FOR CONF. FILE? )
0x2e1610…2e17a4 Dummy {f00=0x010e, f01=0x018e, f02=»ILE ) n P* * P* * P LDKL A2,/7F8 * & P OTR A2,0,SOP SWITCH ON SOP LAMPS * 6 PGET:70 EQU * * ` P CF A14,SOPIN * t " P ANKL A1,/7FC ALLOWED SWITCH? * P RB(Z) GET:70 NO! * P LDKL A2,LMP1 * & P OTR A2,0,SOP SWITCH ON LOAD LAMP *
0x2e17a4…2e1938 Dummy {f00=0x010e, f01=0x0190, f02=» * ( P CF A14,CONFLD CONFIGURE LOAD DEVICE + P RB GETFIL + 4 PGET:85 EQU * + F $ P CCK A3,'SS' LOOKING FOR $SWAPP? + Z P RF(NE) GET:99 NO! + & P LDK A5,0 RESET CHARACTER COUNTER + * PGET:90 LCR A1,A4 GET CHAR IN FILENAME + . P CC A1,SWPTAB,A5 CHE
0x2e1938…2e1acc Dummy {f00=0x010e, f01=0x0190, f02=»WK A5,8 ALL CHARACTERS CHECKED? + P RB(NE) GET:90 NO! , ( P* , B : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS , L , P* TO FILE AND TO NEXT SECTOR AFTER FILE , P* , & P LD A1,18,A6 GET BIT 16-31 OF D.A. , & P LD A2,16,A6 GET BIT 0-15
0x2e1acc…2e1c60 Dummy {f00=0x010e, f01=0x0190, f02=»D A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH , ( P ADR A4,A2 ADD MOST SIGNIFICANT PART - 0 * P ADR A3,A1 ADD LEAST SIGNIFICANT PART - & P RF(O) GET:92 OVERFLOW - ADD CARRY - P RF GET:98 - PGET:92 ADK A4,1 ADD CARRY - " P ANKL A3,/7FFF RESET OVERFLOW -
0x2e1c60…2e1df4 (3, 242) Dummy {f00=0x010e, f01=0x0190, f02=»DICATE SWB-FILE FOUND - | PGET:99 RTN A14 . P EJECT . 4 : P***************************************************** . B : P* * . : P* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * . : P* =========
0x2e1df4…2e1f88 Dummy {f00=0x010e, f01=0x0190, f02=»MENT * . x : P* ========================= * / & : P* * / d : P* ENTRY: A8 - RELOCATION BASE * / : P* A10 - EFFECTIVE LENGTH
0x2e1f88…2e211c Dummy {f00=0x010e, f01=0x018e, f02=»* / : P* * 0 : P* WORK REGISTERS: A1,A2,A3,A4,A7 * 0 H : P* * 0 : P* SUBROUTINES: MOVE,READ * 0 : P*
0x2e211c…2e22b0 Dummy {f00=0x010e, f01=0x0190, f02=» , P LD A9,MXBUF GET ADDRESS TO READ BUFFER 1 " P LDR A3,A9 GET START OF BUFFER 1 4 P LDR A2,A3 SAVE 1 Z & P LDKL A7,240 NUMBER OF CODE WORDS 1 r PLOD:10 EQU *-2 1 P LDR A10,A10 APP >32 KB? 1 P RF(NN) LOD:20 NO! 1 P SUR A10,A7 DEC. LENGTH 1
0x2e22b0…2e2444 Dummy {f00=0x010e, f01=0x0190, f02=»8 WORDS/SECTOR? 1 P RF(NE) LOD:30 NO! 2 , P ADR A7,A10 COMPUTE NUMBER OF CODE WORDS 2 2 ( P LDKL A10,0 INDICATE END OF SEGMENT 2 b P RF LOD:52 2 PLOD:30 EQU * 2 2 P ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! 2 ( P LDKL A10,0 INDICATE END OF SE
0x2e2444…2e25d8 Dummy {f00=0x010e, f01=0x0190, f02=»SATE FOR HEADER 2 r : P CWK A7,240 LOOK IF OUTSIDE CODE PART OF SECTOR/BLOCK 3 P RF(L) LOD:50 NO! 3 V P* 3 p ( P SUK A7,240 YES, GET WORDS REMAINING 3 z P LDR A10,A7 AND SAVE 3 ( P LDK A7,240 START OF RELOCATION BITS 3 PLOD:50 EQU * 3 " P CWK A
0x2e25d8…2e276c Dummy {f00=0x010e, f01=0x0190, f02=»52 EQU * 3 " P LDR A1,A9 START OF CODE PART 4 , P LD A4,FSTSEC+STKEND FIRST SECTOR/BLOCK? 4 6 P RF(NZ) LOD:55 NO! 4 f 6 P IM FSTSEC+STKEND INDICATE NOT FIRST SECTOR/BLOCK 4 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK 4 0 P SUK A7,8 DECREMENT NUMBER
0x2e276c…2e2900 Dummy {f00=0x010e, f01=0x0190, f02=»0 SINGLE SECTOR/BLOCK APPLICATION? 4 P RF(NG) LOD:55 YES! 5 * P* 5 F PLOD:54 ADKL A10,8 5 P PLOD:55 EQU * 5 j , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE 5 ~ ( P LD A2,LLDADR+STKEND GET TO-ADDRESS 5 0 P ADS A3,LLDADR+STKEND UPDATE MEMORY ADDRESS 5
0x2e2900…2e2a94 (3, 243) Dummy {f00=0x010e, f01=0x0190, f02=» A10,A10 END OF SEGMENT? 5 P RF(NZ) LOD:70 6 P RTN A14 EXIT 6 6 PLODSEG EQU * 6 L ( P LDKL A1,256 NUMBER OF WORDS/SECTOR 6 ` $ P ST A1,LOD:10 MODIFY INSTRUCTION 6 PLOD:70 EQU * 6 P CF A14,READ 6 PREAD EQU *-2 6 P RB LODCOM 6 P EJECT
0x2e2a94…2e2c28 Dummy {f00=0x010e, f01=0x0190, f02=»UF - RELOCATE BUFFER ROUTINE * 6 6 P* =============================== * 7 . 6 P* * 7 h 6 P* REFERENCED IN: LODCOM/LODSEG * 7 6 P*
0x2e2c28…2e2dbc Dummy {f00=0x010e, f01=0x0190, f02=» * 7 6 P* EXIT: * 8 4 6 P* * 8 n 6 P* WORK REGISTERS: A1,A4,A5,A6 * 8 6 P*
0x2e2dbc…2e2f50 Dummy {f00=0x010e, f01=0x0190, f02=»************************************************* 8 PREBUF EQU * 9 : . P LDR A4,A2 GET START OPF RELOCATION TABLE 9 N P SUK A4,2 9 PREB:10 EQU * 9 " P ADK A4,2 NEXT RELOCATION WORD 9 ( P LDK A6,16 NUMBER OF RELOCATION BITS 9 $ P LDR* A1,A4 GET
0x2e2f50…2e30e4 Dummy {f00=0x010e, f01=0x0190, f02=» RELOCATE 9 P STR A5,A3 STORE IT BACK : PREB:30 EQU * : 2 P ADK A3,2 NEXT CODE WORD : F & P CWR A3,A2 END OF CODE WORD PART? : f P RF(E) EXREL YES! : $ P SUK A6,1 MOORE RELOCATION BITS? : P RB(Z) REB:10 NO! : " P SLL A1,1 NEXT RELOCATION BI
0x2e30e4…2e3278 Dummy {f00=0x010e, f01=0x0190, f02=»N - GET CONTENT IN MEMORY WORD * : . P***************************************** ; * P* ; P* REFERENCED IN: SEGGEN ; f P* ; " P* ENTRY: A2 - MEMORY ADDRESS ; . P* MMUOPT - MMU OPTION SWITCH (X) ; P* ; , P* EXIT: A1 - CONTE
0x2e3278…2e340c Dummy {f00=0x010e, f01=0x0190, f02=»CTOPT GET OPTION WORD ; P ANK A1,1 MMU OPTION < P RF(Z) GCON10 NO MMU < : P ELR A1,A2 < V P RF GCON20 < h PGCON10 EQU * < z P LDR* A1,A2 < PGCON20 EQU * < P RTN A14 RETURN < P EJECT < 2 P********************************************
0x2e340c…2e35a0 Dummy {f00=0x010e, f01=0x0190, f02=»==== * < ~ 2 P* * = $ 2 P* SCAN CONFIGURATION FILE FOR POSSIBLE * = Z 2 P* APPLICATION DEFINITION BLOCKS. IF * = 8 P* FOUND APLTAB+STKCOM IS UPDATED WITH DISC * = 2 P* ADD
0x2e35a0…2e3734 (3, 244) Dummy {f00=0x010e, f01=0x0190, f02=» * = n 2 P* * > 2 P* WORK REGISTERS A1-A8,A10 * > J 2 P* * > 2 P* ROUTINES REFERENCED: GETFIL, APLID * > 2 P*
0x2e3734…2e38c8 Dummy {f00=0x010e, f01=0x0190, f02=»******************************************* > P* ? 4 P* ? > PSCNCON EQU * ? H * P CF A14,GETFIL GET CONFIGURATION FILE ? 6 P ST A11,CONDAD+STKEND SAVE CONF. DISC FILE ADDRESS ? , P ST A12,CONDAD+2+STKEND MOST SIGN. PART ? " P LDR A8,A9 GET START
0x2e38c8…2e3a5c Dummy {f00=0x010e, f01=0x018e, f02=»RESET RECORD COUNTER ? 2 P LD A6,APLTAB+STKCOM GET APLTAB+STKCOM ADDRESS @ * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK @ R $ P CF A14,RDSEC READ FIRST SECTOR @ " P LDR A4,A9 GET START OF RECORD @ P LDR A8,A9 SAVE RECORD START @ P* @ PSCAN00 EQU *
0x2e3a5c…2e3bf0 Dummy {f00=0x010e, f01=0x0190, f02=» * P CF A14,APLID YES GET APPLICATION NAME A PSCAN10 EQU * A 2 ( P ADKL A10,1 INCREMENT RECORD COUNTER A F & P CW A10,LSTREC+STKEND LAST RECORD? A r P RF(E) SCNEND YES! A P* A . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER A ( P CW A8,ECNFBF+STKEND O
0x2e3bf0…2e3d84 Dummy {f00=0x010e, f01=0x0190, f02=»SCAN20 EQU * A P LDR A4,A8 GET RECORD START B $ P RB SCAN00 CONTINUE SCAN PROCESS B 8 P* B ` $ P* THE WHOLE CONFIGURATION FILE B j $ P* IS PROCESSED. SEARCH VTOC FOR B " P* GIVEN FILE NAMES AND UPDATE B ( P* APLTAB+STKCOM WITH CORRESPONDING B
0x2e3d84…2e3f18 Dummy {f00=0x010e, f01=0x0190, f02=»D A6,APLTAB+STKCOM GET APLTAB+STKCOM START ADDRESS B * P ADK A6,ACBLEN+2 SKIP 1ST TABLE BLOCK C : 0 P LD* A1,APLTAB+STKCOM GET NO OF APPLICATIONS C h P SUK A1,1 DECREMENT C $ P RF(Z) RTRN ONLY ONE APPLICATION C P NGR A1,A1 NEGATE C 2 P ST A1,APLCNT+
0x2e3f18…2e40ac Dummy {f00=0x010e, f01=0x018e, f02=»ON C | P EJECT D 2 P********************************************* D 2 P* * D N 2 P* * D 2 P* APLID * D 2 P* =====
0x2e40ac…2e4240 Dummy {f00=0x010e, f01=0x0190, f02=» 2 P* AND MOVES IT FROM CONF. FILE TO * E 8 P* APLTAB+STKCOM. FOR EACH APPLICATION A ENTRY * E : 8 P* IN APLTAB+STKCOM IS CREATED ACCORDINGLY: * E v 2 P* * E 2 P* LENGTH OF NAME (BYTES)
0x2e4240…2e43d4 (3, 245) Dummy {f00=0x010f, f01=0x0190, f02=» NAME ENTRY CONSISTS OF 1-4 WORDS * E 2 P* * F 0 8 P* ENTRY: A6 POINTER INTO APLTAB+STKCOM * F f 2 P* A8 RECORD POINTER * F 2 P* A10 RECORD COUNTER * F
0x2e43d4…2e4568 Dummy {f00=0x010f, f01=0x0190, f02=» * F z 2 P********************************************* G P* G V P* G ` PAPLID EQU * G j ( P ADKL A10,1 INCREMENT RECORD COUNTER G ~ & P CW A10,LSTREC+STKEND LAST RECORD G 4 P ABL(E) CONERR YES! ERROR IN CONFIGURATION FILE G
0x2e4568…2e46fc Dummy {f00=0x010f, f01=0x0190, f02=» G " P CF A14,RDSEC READ NEXT SECTOR H P LDR A8,A9 GET RECORD START H . PAPLID0 EQU * H R P LDR A4,A8 RECORD START H f & P LDK A5,0 RESET CHARACTER COUNTER H PAPLID2 EQU * H P LCR A1,A4 GET CHARACTER H & P CCK A1,';;' DELIMITER CHARACTER? H
0x2e46fc…2e4890 Dummy {f00=0x010f, f01=0x0190, f02=» H l & P CWK A5,NCHAID END OF THIS RECORD? I ( P RB(NE) APLID2 NO GET NEXT CHARACTER I 2 P* I ^ " P* END OF NAME RECORD, LOOK IF I h $ P* NEXT CHARACTER IS A DELIMITER I P* I P LCR A1,A4 I P CCK A1,';;' I 6 P ABL(NE) CONERR NO DELIMITER, ERRO
0x2e4890…2e4a24 Dummy {f00=0x010f, f01=0x0190, f02=» A3,A6 SAVE BLOCK START I 0 P STR A5,A3 SAVE NAME LENGTH IN APLTAB+STKCOM J . P IM* APLTAB+STKCOM INCREMENT NO OF APPLIC. J T ( P LDR A4,A8 GET START OF NAME RECORD J ( P ADK A5,1 INCREMENT CHARACTER COUNT J " P SRA A5,1 AND MAKE WORD COUNT J P* J
0x2e4a24…2e4bb8 Dummy {f00=0x010f, f01=0x018e, f02=»COM J x ( P ADK A4,2 ADVANCE CHARACTER POINTER K " P SUK A5,1 DECREMENT WORD COUNT K 8 * P RB(P) APLID6 MORE CHARACTERS TO MOVE K ^ P* K 0 P ADK A6,ACBLEN PREPARE FOR NEXT TABLE ENTRY K P RTN A14 NO, RETURN K P EJECT K 2 P********************
0x2e4bb8…2e4d4c Dummy {f00=0x010f, f01=0x018e, f02=» K ` 2 P* GETAPL * L 2 P* ====== * L > 2 P* * L t 2 P* SCANS VTOC FOR FILE NAMES LISTED IN * L @ P* APLTAB+STKCOM. APLTAB+STKCOM IS UPDAT
0x2e4d4c…2e4ee0 Dummy {f00=0x010f, f01=0x0190, f02=» L Z 2 P* START OF FREE AREA. * M 2 P* * M > 8 P* ENTRY: A6 - 1ST ENTRY IN APLTAB+STKCOM * M t @ P* APLCNT+STKEND - NO OF ENTRIES IN APLTAB+STKCOM * M 2 P*
0x2e4ee0…2e5074 (3, 246) Dummy {f00=0x010f, f01=0x0190, f02=»GETVLB READ VOLUME LABEL M PGETAP0 EQU * N P CF A14,RDSEC READ SECTOR N 4 ( P LDK A7,QBLFAC VTOC BLOCKING FACTOR N V " P LDR A4,A9 GET START OF RECORD N PGETAP2 EQU * N ( P LDR* A5,A6 GET LENGTH OF APPL. NAME N P LDR A3,A4 SAVE RECORD START N
0x2e5074…2e5208 Dummy {f00=0x010f, f01=0x0190, f02=»2,/2020 UNUSED? N P RF(E) GETAP4 YES! O P* O 2 " P CF A14,CMPSYM COMPARE SYMBOLS O < P ADK A5,0 O b P RF(Z) FOUND EQUAL O t P* O $ P* NO MATCH, TRY NEXT VTOC ENTRY O P* O PGETAP4 EQU * O P ADR A4,A8 GET NEXT RECORD O & P ADK A4,
0x2e5208…2e539c Dummy {f00=0x010f, f01=0x0190, f02=»OC SECTOR? O | & P ABL(E) CONERR ERROR IN CONF. FILE P P* P < P RB GETAP0 P F P* P X PFOUND EQU * P b $ P LDK A2,'L' LOAD FILE CHARACTER P v P CC A2,27,A4 LOAD FILE? P * P ABL(NE) CONERR NO ERROR IN CONF. FILE P P* P . P LD A2,16,A4 GET D
0x2e539c…2e5530 Dummy {f00=0x010f, f01=0x0190, f02=»PLADA+2,A6 AND SAVE IN APLTAB+STKCOM P . P ADK A6,ACBLEN ADVANCE TO NEXT TABLE BLOCK Q , P* Q ^ 2 P IM APLCNT+STKEND INCREMENT APPLICATION COUNT Q h P RB(NZ) GETAPL MORE TO DO! Q P* Q P RTN A14 END OF GETAPL Q P EJECT Q 2 P******************
0x2e5530…2e56c4 Dummy {f00=0x010f, f01=0x0190, f02=» Q b 2 P* CMPSYM * R 2 P* ====== * R > 2 P* * R t 2 P* COMPARE TWO SYMBOLS WITH EACH OTHER * R 2 P*
0x2e56c4…2e5858 Dummy {f00=0x010f, f01=0x0190, f02=» LENGTH OF SYMBOL 2 * R 2 P* * S ( 2 P* EXIT: A5 = 0 IF SYMBOLS EQUAL * S ^ 2 P* * S 2 P********************************************* S P* S
0x2e5858…2e59ec Dummy {f00=0x010f, f01=0x0190, f02=») CMPEND IF NOT EQUAL, RETURN S P* T & ( P ADK A3,1 ADVANCE CHARACTER POINTERS T 0 P ADK A1,1 T ( P SUK A5,1 DECREMENT CHARACTER COUNT T n , P RB(NZ) CMPSYM CONTINUE THE COMPARISION T P* T $ P LDR* A2,A6 RESTORE NAME LENGTH T " P CWK A2,8 LO
0x2e59ec…2e5b80 Dummy {f00=0x010f, f01=0x0190, f02=»END OF FILE NAME? T P RF(E) CMPEND YES! U P* U 4 P LDK A5,1 NO, NOT EQUAL! U > PCMPEND EQU * U ^ P RTN A14 END OF CMPSYM U r P EJECT U 2 P********************************************* U 2 P* * U 2
0x2e5b80…2e5d14 (3, 247) Dummy {f00=0x010f, f01=0x018e, f02=» * U v 2 P* * V 2 P* READ SECTOR CONTAINIG VOLUME LABEL * V R 2 P* * V 2 P* EXIT: A10 - LAST VTOC SECTOR * V 2 P* A11 - FIRST
0x2e5d14…2e5ea8 Dummy {f00=0x010f, f01=0x0190, f02=» V ` 2 P********************************************* W P* W > P* W H PGETVLB EQU * W R P SUR A11,A11 VOLUME LABEL W f P SUR A12,A12 W " P CF A14,RDSEC GET VOLUME LABEL W P LD A10,10,A9 GET VTOC BASE W P LDR A11,A10 SAVE W " P AD A10,
0x2e5ea8…2e603c Dummy {f00=0x010f, f01=0x0190, f02=» OF GETVLB W P* X P EJECT X 2 P********************************************* X * 2 P* * X ` 2 P* * X 2 P* RDSEC * X 2 P*
0x2e603c…2e61d0 Dummy {f00=0x010f, f01=0x0190, f02=» * X n 2 P* * Y 2 P* ENTRY: A9 - BUFFER ADDRESS * Y J 2 P* A11- SECTOR ADDRESS * Y 2 P* A12- SECTOR ADDRESS * Y 2 P*
0x2e61d0…2e6364 Dummy {f00=0x010f, f01=0x0190, f02=»DIFIED ADDRESS Y PREADS EQU *-2 Z P RTN A14 Z , P EJECT Z < P* Z J P* DATA AREA DEFINITION Z T P* Z t PSYSBAS EQU * Z ~ PSAVCON DATA BUFLEN Z 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS Z PSAVMEM DATA 0 SAVE AREA Z & PCYLNBR
0x2e6364…2e64f8 Dummy {f00=0x010f, f01=0x411c, f02=»AB DATA 0,/1909,/3717,/2808,/1404 Z P XIF =9 [ * P IFF CDDISC-CDDI16=1 =9 [ < , PDEVTAB DATA 0,/1909,/3717,/2808,/5717 =9 [ P XIF =9 [ $ PSWPTAB DATA '$S','WA','P ',' ' [ PFCTAB EQU * =5 [ P DATA /F1F3,/F0F2 =5 [ P* [ P END
0x2e64f8…2e668c Dummy {f00=0x010f, f01=0x2008, f02=» P X ` h p
0x2e668c…2e6820 Dummy {f00=0x010f, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x2e6820…2e69b4 (3, 248) Opaque[0x194]
0x2e69b4…2e6b48 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c0, f03=0x0000}
0x2e69b4…2e6b48 IdxSect {
0x2e69b4…2e6b48 f00 = 0x008e // 0x2e69b4 @0x0
0x2e69b4…2e6b48 f01 = 0x006c // 0x2e69b6 @0x2
0x2e69b4…2e6b48 gno = [ // 0x2e69b8 @0x4
0x2e69b4…2e6b48 [0x00]: C0x008e.0x0.0
0x2e69b4…2e6b48 [0x01]: C0x0134.0x0.0
0x2e69b4…2e6b48 [0x02]: C0x0134.0x3.0
0x2e69b4…2e6b48 [0x03]: C0x0136.0x3.0
0x2e69b4…2e6b48 [0x04]: C0x0137.0x0.0
0x2e69b4…2e6b48 [0x05]: C0x0138.0x0.0
0x2e69b4…2e6b48 [0x06]: C0x0138.0x1.0
0x2e69b4…2e6b48 [0x07]: C0x0138.0x2.0
0x2e69b4…2e6b48 [0x08]: C0x0138.0x3.0
0x2e69b4…2e6b48 [0x09]: C0x0139.0x0.0
0x2e69b4…2e6b48 [0x0a]: C0x0139.0x2.0
0x2e69b4…2e6b48 [0x0b]: C0x0139.0x3.0
0x2e69b4…2e6b48 [0x0c]: C0x013a.0x3.0
0x2e69b4…2e6b48 [0x0d]: C0x013b.0x0.0
0x2e69b4…2e6b48 [0x0e]: C0x013b.0x1.0
0x2e69b4…2e6b48 [0x0f]: C0x013b.0x2.0
0x2e69b4…2e6b48 [0x10]: C0x013b.0x3.0
0x2e69b4…2e6b48 [0x11]: C0x013c.0x0.0
0x2e69b4…2e6b48 [0x12]: C0x013c.0x1.0
0x2e69b4…2e6b48 [0x13]: C0x013c.0x2.0
0x2e69b4…2e6b48 [0x14]: C0x013c.0x3.0
0x2e69b4…2e6b48 [0x15]: C0x013d.0x0.0
0x2e69b4…2e6b48 [0x16]: C0x013d.0x1.0
0x2e69b4…2e6b48 [0x17]: C0x013d.0x2.0
0x2e69b4…2e6b48 [0x18]: C0x013d.0x3.0
0x2e69b4…2e6b48 [0x19]: C0x0145.0x1.0
0x2e69b4…2e6b48 [0x1a]: C0x0145.0x2.0
0x2e69b4…2e6b48 [0x1b]: C0x0145.0x3.0
0x2e69b4…2e6b48 [0x1c]: C0x0146.0x0.0
0x2e69b4…2e6b48 [0x1d]: C0x0146.0x1.0
0x2e69b4…2e6b48 [0x1e]: C0x0146.0x2.0
0x2e69b4…2e6b48 [0x1f]: C0x0146.0x3.0
0x2e69b4…2e6b48 [0x20]: C0x0147.0x0.0
0x2e69b4…2e6b48 [0x21]: C0x0147.0x1.0
0x2e69b4…2e6b48 [0x22]: C0x0147.0x2.0
0x2e69b4…2e6b48 [0x23]: C0x0147.0x3.0
0x2e69b4…2e6b48 [0x24]: C0x0148.0x0.0
0x2e69b4…2e6b48 [0x25]: C0x0148.0x1.0
0x2e69b4…2e6b48 [0x26]: C0x0148.0x2.0
0x2e69b4…2e6b48 [0x27]: C0x0148.0x3.0
0x2e69b4…2e6b48 [0x28]: C0x0149.0x0.0
0x2e69b4…2e6b48 [0x29]: C0x0149.0x1.0
0x2e69b4…2e6b48 [0x2a]: C0x0149.0x2.0
0x2e69b4…2e6b48 [0x2b]: C0x0149.0x3.0
0x2e69b4…2e6b48 [0x2c]: C0x014a.0x0.0
0x2e69b4…2e6b48 [0x2d]: C0x014a.0x1.0
0x2e69b4…2e6b48 [0x2e]: C0x014a.0x2.0
0x2e69b4…2e6b48 [0x2f]: C0x014a.0x3.0
0x2e69b4…2e6b48 [0x30]: C0x014b.0x0.0
0x2e69b4…2e6b48 [0x31]: C0x014b.0x1.0
0x2e69b4…2e6b48 [0x32]: C0x014b.0x2.0
0x2e69b4…2e6b48 [0x33]: C0x014b.0x3.0
0x2e69b4…2e6b48 [0x34]: C0x014c.0x0.0
0x2e69b4…2e6b48 [0x35]: C0x014c.0x1.0
0x2e69b4…2e6b48 ]
0x2e69b4…2e6b48 }
0x2e6b48…2e6cdc Dummy {f00=0x008e, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 11.0 81-02-16 870105041100 P : 2 P =6,INIT UNUSED MMU ENTRIES,AND INIT ACBSTA B ( P AND ACBREL FOR MONITOR EXTENTS x P REL 11.0 81-01-26 . P =5,CHANGES IN CONDITIONAL ASSEMBLY WHEN ( P BUILDING COM
0x2e6cdc…2e6e70 Dummy {f00=0x008e, f01=0x0190, f02=»L DEVICES v P PRR 11.0 80-12-03 0 P =3,APPLICATION CONTROL BLOCK IS EXTENDED 2 P WITH 1 WORD f P PRR 11.0 80-12-01 , P =2,IF NO S-BLOCK IN CONF.DATA,PROCESS , P EVEN NEXT CREDIT APPL. CONVERT A $ P BINARY
0x2e6e70…2e7004 Dummy {f00=0x008e, f01=0x0190, f02=»K IF MEMORY OVERFLOW WHEN BUILDING P USER TASK TABLES * P PRR 11.0 80-11-20 H 8 P =1,IF NO D-BLOCK IN CONF. DATA, SKIP DCT-CREATION h P PRR 11.0 80-11-19 P ENTRY SYSLDM P* 0 P* EXTERNALS DEFINED IN SYSTEM CONTR
0x2e7004…2e7198 Dummy {f00=0x008e, f01=0x0190, f02=»R ADDRESS z . P EXTRN SCTCDT COMMON DEVICE TABLE ADDRESS $ P EXTRN SCTDCT DATA COMMUNICATION D . P EXTRN SCTDMI DM: INDEX BUFFER RECORD SIZE l ( P EXTRN SCTDMT DATA MANAGEMENT TASKS " P EXTRN SCTEFA END OF FREE AREA , P EXTRN SCTFWL FM: FILE W
0x2e7198…2e732c Dummy {f00=0x008e, f01=0x0190, f02=» SCTMXS MONITOR EXTENT&SEGMENT TABLE . P EXTRN SCTNFT DM/FM: NUMBER OF FILES/TASK , ( P EXTRN SCTNOF DM/FM: NUMBER OF FILES ^ " P EXTRN SCTNOP NUMBER OF PAGES 6 P EXTRN SCTNOS NUMBER OF SEGMENTS/TASK (BASIC ONLY) P EXTRN SCTOPT SYSTEM OPTIONS
0x2e732c…2e74c0 Dummy {f00=0x008e, f01=0x0190, f02=»START OF FREE AREA $ P EXTRN SCTTCT TASK CONTROL TABLE P EJECT B P* P " P* EXTERNALS DEFINED IN MONTAB Z P* * P EXTRN FREQUE FREE PAGES QUEUE ANCHOR " P EXTRN INTLT1 LOCAL CONNECTION $ P EXTRN INTRT1 REMOTE CONNECTION " P E
0x2e74c0…2e7654 (3, 249) Dummy {f00=0x0134, f01=0x0190, f02=»SYNCHRONOUS CONNECTION P* P* MISCELLANOEUS EXTERNALS ( P* J ( P EXTRN REL RELOCATION BASE IN SYSINI T , P EXTRN SCLASS SPECIAL DEVICE CLASS TABLE . P EXTRN TCLASS TERMINAL DEVICE CLASS TABLE " P EXTRN SYSLOD START OF SYSLOD ( P
0x2e7654…2e77e8 Dummy {f00=0x0134, f01=0x0190, f02=» P EXTRN ERROR ERROR HANDLING $ P EXTRN MOVE MOVE AREAS IN MEMORY ( P EXTRN MULT MULTIPLY P ( P EXTRN PSW STORE PROGRAM STATUS WORD l $ P EXTRN CMPADR COMPARE ADDRESSES . P EXTRN CONVRT CONVERT FROM ASCII TO BINARY * P EXTRN NXTBLK GET NEXT
0x2e77e8…2e797c Dummy {f00=0x0134, f01=0x0190, f02=»OCATION BIT MAP v . P EXTRN PUSH SAVE REGISTER A1-A14 ON STACK 2 P EXTRN POB RESTORE REGISTER A1-A14 FROM STACK J 8 P EXTRN GETAPP GET NEXT APPLICATION OF SPECIFIED TYPE P EJECT P* P* TTAB DISPLACEMENTS P* ( P EXTRN TTB:A
0x2e797c…2e7b10 Dummy {f00=0x0134, f01=0x0190, f02=»GMENT BASE POINTER x ( P EXTRN TTB:SP SEGMENT TABLE POINTER ( P EXTRN TTB:SB SEGMENT BLOCK POINTER F P EXTRN TTB:ID TASK ID r P EXTRN TTB:ST STATUS " P EXTRN TTB:PP PENDING POINTER & P EXTRN TTB:PW PROGRAM STATUS WORD " P EXTRN TTB:S
0x2e7b10…2e7ca4 Dummy {f00=0x0134, f01=0x0190, f02=»RAMETER-1 x P EXTRN DWTST STATUS P EXTRN DWTECB ECB ADDRESS . P EXTRN DWTOR ORDER P P EXTRN DWTADR ADDRESS BLOCK j P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EXTRN DWTTQ TERMINAL QUEUE " P EXTRN
0x2e7ca4…2e7e38 Dummy {f00=0x0134, f01=0x018e, f02=» STATUS | P EXTRN DWTECH ECHO DEVICE P EXTRN DWTSQ START OF QUEUE 2 P EJECT V P d P l , P*************************************** t , P* CONDITIONAL ASSEMBLY * , P*************************************** P
0x2e7e38…2e7fcc Dummy {f00=0x0134, f01=0x018e, f02=» ` * PEDM EQU 0 1 - EXTENDED DATA MANAGEMENT PX:A EQU 1 6 PX:B EQU 1 H PX:C EQU 1 Z PX:D EQU 1 l PX:E EQU 1 ~ PX:F EQU 1 PX:G EQU 1 PX:H EQU 1 PX:I EQU 1 PX:J EQU 1 PX:K EQU 0 PX:L EQU 1
0x2e7fcc…2e8160 Dummy {f00=0x0134, f01=0x0190, f02=» PPLCL EQU 00 PPLCR EQU 00 PVIDEO EQU 00 , PTEDVCL EQU 01 @ PSPDVCL EQU 01 V PNOEXMB EQU X:K l PFM EQU 01 PDC EQU 00 P EJECT P* * P* COMMON DISPLACEMENTS AND CONSTANTS P* . PACBLEN EQU 26 APPL
0x2e8160…2e82f4 (3, 250) Dummy {f00=0x0134, f01=0x0190, f02=»4 TEMPORARY BUFFER SIZE . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA R ( PDATEND EQU 34 END OF DDIV PROTOTYPE : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAGE
0x2e82f4…2e8488 Dummy {f00=0x0134, f01=0x0190, f02=»0 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA N $ PM:REL EQU 16 RELOCATION CONSTANT z , PSYSBUF EQU 28 START OF TEMPORARY BUFFER 2 PSWBFSA EQU 4 SWB-FILE START ADDRESS (2 WORDS) 0 P
0x2e8488…2e861c Dummy {f00=0x0134, f01=0x0190, f02=»COM02 EQU 42 COMMON SAVE AREA 2 $ PCOM03 EQU 44 COMMON SAVE AREA 3 ( * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS P , PSWBFLG EQU 48 SWAPPPABLE WORK BLOCK FLAG ~ $ PCOM04 EQU 50 COMMON SAVE AREA 4 ( PDCBLK EQU 54 START OF DC CONF. DATA P EJECT
0x2e861c…2e87b0 Dummy {f00=0x0134, f01=0x0190, f02=» t & PCUTENT EQU 4 FIRST USER TASK ENTRY ( PFWTSIZ EQU 6 FWT AREA SIZE IN WORDS 2 , PAPCTAB EQU 8 CURRENT APPL CONTROL BLOCK ^ * PSFASAV EQU 10 SAVE START OF FREE AREA * PNBRTSK EQU 12 NUMBER OF TASKS IN CLASS & PTASKID EQU 14 TASK IDENTIFICAT
0x2e87b0…2e8944 Dummy {f00=0x0134, f01=0x0190, f02=»TABLE r $ PFWTSTA EQU 24 START OF FWT AREA , PLIMIT EQU 26 CURRENT END OF SYSTEM AREA 6 ( PNBRCOM EQU 28 NUMBER OF COMMON TDC:S f PCLASID EQU 30 CLASS ID " PCONTYP EQU 32 CONNECTION TYPE ( PLCNBR EQU 34 LINE CONNECTION NUMBER PCLANBR
0x2e8944…2e8ad8 Dummy {f00=0x0134, f01=0x0190, f02=» x PWRK3 EQU 46 WORK AREA 3 PWRK4 EQU 48 WORK AREA 4 ( " PBRDTAB EQU 50 BOARD CONF TABLE H , PLCDSTA EQU 52 CONFIGURATION DATA POINTER n 2 PNBRSDC EQU 54 NUMBER OF SPECIAL DEVICE CLASSES 4 PNBRTDC EQU 56 NUMBER OF TERMINAL DEVICE CLASSES
0x2e8ad8…2e8c6c Dummy {f00=0x0134, f01=0x0190, f02=»4 NUMBER OF DTE:S DEFINED & PDTENAM EQU 66 SDTE IDENTIFICATION " $ PDTETYP EQU 68 TYPE OF CONNECTION L 4 PNASTRT EQU 70 START OF NETW. ADDR. IN CONF. DATA t * PNALNG EQU 72 LENGTH OF NETWORK ADDRESS , PDTENSA EQU 74 NO OF SUBADDRESSES DEFINED 4
0x2e8c6c…2e8e00 Dummy {f00=0x0134, f01=0x0190, f02=»ICATION CONTROL BLOCK r 4 PSCBTAB EQU APCTAB CURRENT SEGMENT CONTROL BLOCK 2 PEXCTAB EQU SCBTAB CURRENT EXTENT CONTROL BLOCK V , PNBRSWB EQU FWTSIZ NUMBER OF SWB RECORDS . PSWBBLK EQU FWTFLG START OF SWB CONF. DATA * PSWBNAM EQU FWTSTA ADDRESS
0x2e8e00…2e8f94 (3, 251) Dummy {f00=0x0136, f01=0x0190, f02=»S p P EJECT P* 0 P* DISPLACEMENT IN APPLICATION CONTROL TABLE " P* V 0 PAPLREL EQU 18 APPLICATION RELOCATION BASE =6 ` , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS * PAPLLAC EQU 14 APPLICATION LOAD ADDRESS & PAPLLAP EQU 12 LOGICAL
0x2e8f94…2e9128 Dummy {f00=0x0136, f01=0x0190, f02=»RT MMU ENTRY x . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU F " PAPLSWB EQU 2 SWB TABLE ADDRESS x , PAPLSTA EQU 16 APPL PROGRAM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE 8 PAPLADA EQU 22 APPLIC
0x2e9128…2e92bc Dummy {f00=0x0136, f01=0x0190, f02=»TS P* * PS:BTAB EQU 40 DISPL. TO S:BTAB ADDRESS PSWBLEN EQU 4 LENGTH OF SWB B ( PSWBSEC EQU 6 DISPL. TO SECTOR LENGTH d 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL S:BTAB PUPNAME EQU 4 PROTOTYPE NAME $ PWBLEN EQU -4 LENGTH OF WORKBLOCK
0x2e92bc…2e9450 Dummy {f00=0x0136, f01=0x0190, f02=»*********** | P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE @ ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS b , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK
0x2e9450…2e95e4 Dummy {f00=0x0136, f01=0x0190, f02=»7 TERMINAL DEVICE CLASS PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH B P* n * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD x P* P* COMMON DEVICE DEF. BLOCK: P* PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQ
0x2e95e4…2e9778 Dummy {f00=0x0136, f01=0x0190, f02=» DEF. BLOCK z P* PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES @ P* p ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD z PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB
0x2e9778…2e990c Dummy {f00=0x0136, f01=0x018e, f02=»QU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. " " PNAOFS EQU 3 START OF NA NUMBER R $ PNSAOFS EQU 4 START OF NSA RECORD x & PDTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P* SOP-HANDLING * P
0x2e990c…2e9aa0 Dummy {f00=0x0136, f01=0x0190, f02=» x " PLMP3 EQU /100 MEMORY OVERFLOW , PLMP4 EQU /80 ERROR IN CONFIGURATION DATA . PLMP5 EQU /40 NOT USED ^ PLMP6 EQU /20 NOT USED | PLMP7 EQU /10 NOT USED PLMP8 EQU 8 NOT USED PLMP9 EQU 4 NOT USED PLMP10 EQU 2 NOT USED
0x2e9aa0…2e9c34 (3, 252) Dummy {f00=0x0137, f01=0x0190, f02=»RFORMS: CFR A14,A13 * ~ F P* DATA [REL-ADDRESS] * 8 F P* * F P************************************************************
0x2e9c34…2e9dc8 Dummy {f00=0x0137, f01=0x0190, f02=»* $ PMXSBL EQU 6 SEGMENT BLOCK LENGTH " PMXNOX EQU 6 NUMBER OF EXTENTS 2 * PMX:NOS EQU 8 NUMBER OF SEGMENT TABLES X , PMX:EBL EQU 6 MONITOR EXTENT BLOCK LENGTH ( PMX:LEV EQU /0031 MONITOR TASK LEVEL & PMX:LEN EQU 4 MONITOR EXTENT LENGTH
0x2e9dc8…2e9f5c Dummy {f00=0x0137, f01=0x0190, f02=»NUMBER OF MONITOR EXTENTS | , PMX:SBL EQU 6 MONITOR EXTENT BLOCK LENGTH " . PMX:STA EQU 2 MONITOR EXTENT START ADDRESS R P EJECT P* " P* *********** " P* * PAGTAB * " P* ***********
0x2e9f5c…2ea0f0 Dummy {f00=0x0137, f01=0x0190, f02=»B EQU 6 SEGMENT BLOCK ADDRESS P EJECT ! & P* ! 4 & P* ************* ! > & P* * SEGTAB * ! h & P* ************* ! P* ! PSEGPB EQU 6 SEGMENT POINTER ! " PSEGSB EQU 6 PAGE BLOCK ADDRESS
0x2ea0f0…2ea284 Dummy {f00=0x0137, f01=0x0190, f02=» ******************* ! P* " * PBUFLEN EQU -4 " 4 PDEVIND EQU -2 " J PDWTLEN EQU 6 " ` PTDCDD1 EQU 5 " t PTDCDD2 EQU 6 " ( PTDCLCN EQU 10 DISP. TO LINE CON. NBR " $ PSLL0 EQU /3940 SLL A1,0 CONSTANT " 8 PNBRDPS EQU 12 NUMBER OF
0x2ea284…2ea418 Dummy {f00=0x0137, f01=0x0190, f02=» * " x : P* * # & : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * # d : P* * # : P* IT IS ENTERED FROM SYSLOD WITH THE F
0x2ea418…2ea5ac Dummy {f00=0x0137, f01=0x0190, f02=» * # : P* A1 - POINTER TO CURRENT LOCATION OF SYSLDX * $ : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * $ H : P* * $ : P* * $ : P******
0x2ea5ac…2ea740 Dummy {f00=0x0137, f01=0x0190, f02=»N ROUTINE ENTRY $ x ( P AD A1,STKCOM+M:REL RELOCATE ADDRESS % P CFR A8,A1 % D $ P LDKL A11,SYSLOD START OF SYSLOD % V * P LDKL A2,TCLASS GET ADDRESS TO TCLASS % ~ . P CWK A2,SCLASS SAME AS ADDRESS TO SCLASS? % $ P RF(E) NO:TCL YES:DUMMY TCLASS! % , P C
0x2ea740…2ea8d4 (3, 253) Dummy {f00=0x0138, f01=0x0190, f02=»ESS TO SCLASS % r , P CALL CHPTRS RELOCATE POINTERS IN SCLASS & 0 P ST A2,STKEND+SCLA SAVE RELOCATED TO SCLASS & F P RF CLEAR & z P EJECT & 4 P*********************************************** & 4 P* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * & 4
0x2ea8d4…2eaa68 Dummy {f00=0x0138, f01=0x0190, f02=»OD START ADDRESS & | ( P* A12 - RELOCATION CONSTANT ' P* ' D 2 P* EXIT: A2 - POINTER TO MOVED TCLASS/SCLASS ' N P* ' P* WORK REGISTER:A1-A7 ' P* ' P* SUBROUTINES: ' P* ' PCHPTRS EQU * ' P ADR A2,A12 RELOCATE POINTER
0x2eaa68…2eabfc Dummy {f00=0x0138, f01=0x0190, f02=»4,2 MOORE ENTRIES I TCLASS/SCLASS ? ' P RF(Z) CHPT30 NO! ( , P ADK A3,2 NEXT ENTRY ( F $ P LDR* A5,A3 GET POINTER TO CLASS ( b P ADR A5,A12 RELOCATE ( P STR A5,A3 STORE ( $ P LDR* A6,A5 GET LENGTH OF CLASS ( PCHPT20 EQU * ( * P SUK A6,4 MOOR
0x2eabfc…2ead90 Dummy {f00=0x0138, f01=0x0190, f02=»ET DWT-ADDRESS ( " P CALL CMPADR COMPARE ADDRESSES ) P RB(G) CHPT20 DWT IN DRIVER! ) < P ADR A7,A12 RELOCATE ) ` * P STR A7,A5 STORE RELOCATED DW-ADDRESS ) | " P LD A8,SCTOPT GET OPTION WORD ) P ANKL A8,1 MMU IN SYSTEM? ) P RB(Z) CHPT20 NO! )
0x2ead90…2eaf24 Dummy {f00=0x0138, f01=0x018e, f02=» P RB(NZ) CHPT20 YES! * P ADR A8,A12 RELOCATE * . P ADKL A8,1 INDICATE DWT-ADDRESS RELOCATED * < , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS * n P RB CHPT20 * PCHPT30 EQU * * P RTN A14 * P EJECT * PCLEAR EQU * * P* * & P* CLEAR
0x2eaf24…2eb0b8 Dummy {f00=0x0138, f01=0x0190, f02=» * P CMR A1 + P CWR A1,A2 + P RB(NE) CLRSYS + * P LDKL A1,CONMON + @ P AD A1,STKCOM+M:REL + X P ABR A1 + t P EJECT + 6 P************************************************** + 6 P* B:TCT - BUILD TASK CONTROL TABLE * + 6 P**
0x2eb0b8…2eb24c Dummy {f00=0x0138, f01=0x0190, f02=»* + P* EXIT: , P* , & P* WORK REGISTERS: A1-A7,A11,A12 , $ P* , N P* SUBROUTINES: , X P* , p . P* TASK CONTROL TABLE LAYOUT , z . P* _________________________ , . P* I LENGTH I
0x2eb24c…2eb3e0 Dummy {f00=0x0138, f01=0x0190, f02=»_____________ , t . P* I USER TASKS I - . P* __________________________ - H P* - z P EJECT - PB:TCT EQU * - * P LD A12,SCTSFA GET START OF FREE AREA - * P ST A12,SCTTCT STORE ADDRESS TO TCTAB - ( P ADKL
0x2eb3e0…2eb574 (3, 254) Dummy {f00=0x0138, f01=0x0190, f02=»EGMENT TASKS - P* . ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB . P RF(Z) BTCT20 NOT PRESENT! . J . P CALL MX:TDB GET FIRST MONITOR EXTENT TDB . l 0 PBTCT02 SUK A7,1 DECREMENT NUMBER OF EXTENTS . P RF(N) BTCT05 NO MORE! . ( P LDR* A4,A1 GET NUMBER O
0x2eb574…2eb708 Dummy {f00=0x0138, f01=0x018e, f02=»DR* A2,A1 GET TASK ID . ( P CALL RESTCT RESERVE ENTRY IN TCTAB / P RB BTCT04 / J 4 PBTCT05 CALL MX:STD GET FIRST MONITOR SEGMENT TDB / > PBTCT06 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES / P RF(N) BTCT20 NO MORE! / ( P LDR* A4,A1 GET NUMB
0x2eb708…2eb89c Dummy {f00=0x0138, f01=0x0190, f02=» P LDR* A2,A1 GET TASK ID 0 $ P CALL RESTCT RESERVE ENTRY TCTAB 0 $ P RB BTCT08 0 L P XIF 0 ^ P EJECT 0 j P* 0 x . P* RESERVE ENTRIES IN TCTAB FOR USER TASKS 0 P* 0 PBTCT20 EQU * 0 6 P ST A12,STKEND+CUTENT SAVE CURRENT USER TASK ENTRY 0
0x2eb89c…2eba30 Dummy {f00=0x0138, f01=0x018e, f02=»CATIONS? 0 v P RF(N) BTCT70 NO! 1 6 P LD A11,APLMMC,A4 GET START OF CONFIGURATION DATA 1 * * P AD A11,STKCOM+CONSTA RELOCATE POINTER 1 d 2 P ST A12,APLMMC,A4 STORE FIRST USER TASK ENTRY 1 P LCR A2,A11 GET BLOCK TYPE 1 ( P CCK A2,'TT' TASK DEFINITION B
0x2eba30…2ebbc4 Dummy {f00=0x0138, f01=0x0190, f02=» 1 0 P* COMPUTE NUMBER OF TASK IN EACH TASK CLASS 2 P* 2 < PBTCT40 EQU * 2 F $ P CALL GETTSK GET NUMBER OF TASKS 2 Z PBTCT50 EQU * 2 . P ADKL A12,2 RESERV ANOTHER ENTRY IN TC:TAB 2 ( P SUK A1,1 MOORE TASKS IN THIS CLASS? 2 P RB(P) BTCT50 YES 2
0x2ebbc4…2ebd58 Dummy {f00=0x0138, f01=0x0190, f02=» ADK A4,ACBLEN NEXT APPL. CONTROL BLOCK 2 P RB BTCT30 3 0 P* 3 B 4 P* ENTRIES FOR ALL USER TASKS RESERVED IN TC:TAB 3 L P* 3 0 PBTCT70 ST A12,SCTSFA UPDATE END OF FREE AREA 3 " P SU A12,SCTTCT COMPUTE LENGTH 3 P ST* A12,SCTTCT STORE 3 P R
0x2ebd58…2ebeec Dummy {f00=0x0138, f01=0x018e, f02=» * 3 t : P* RESTCT - RESERVE ENTRY IN TCTAB * 4 " : P* =============================== * 4 ` : P* * 4 : P* REFERENCED IN: B:TCT
0x2ebeec…2ec080 Dummy {f00=0x0138, f01=0x0190, f02=» 4 X : P* A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 F : P* EXIT: A12 - NEXT FREE ENTRY IN TCTAB * 5 : P* * 5 : P* WORK
0x2ec080…2ec214 (3, 255) Dummy {f00=0x0138, f01=0x0190, f02=» * 5 | : P* * 6 * : P***************************************************** 6 h PRESTCT EQU * 6 P LDR A3,A12 GET END OF TCTAB 6 PREST10 SUK A3,2 NEXT ENTRY 6 & P CW A3,S
0x2ec214…2ec3a8 Dummy {f00=0x0138, f01=0x0190, f02=»N TCTAB 6 r PREST20 RTN A14 RETURN 7 , PREST30 CWR* A2,A3 CHECK IF SAME TASK ID 7 . P RB(NE) REST10 NOT THE SAME 7 ^ " P RB REST20 COINCIDENCE: RETURN 7 P XIF 7 P IFF FM=0 7 P EJECT 7 8 P***************************************************
0x2ec3a8…2ec53c Dummy {f00=0x0138, f01=0x0190, f02=» ============================= * 7 8 P* * 8 4 8 P*************************************************** 8 p 8 P* * 8 8 P* REFERENCED IN: CONMON
0x2ec53c…2ec6d0 Dummy {f00=0x0138, f01=0x0190, f02=» * 8 ` 8 P* SCTNOF - NUMBER OF GENERAL FM-FILES * 9 8 P* SCTFWL - FILE WORK TABLE LENGTH IN * 9 H 8 P* BYTES * 9 8 P* * 9 8 P* EXIT: S
0x2ec6d0…2ec864 Dummy {f00=0x0138, f01=0x0190, f02=» * 9 t 8 P* WORK REGISTERS: A2,A3 * : 8 P* * : 8 P* SUBROUTINES: ERROR,MULT * : 8 P* *
0x2ec864…2ec9f8 Dummy {f00=0x0138, f01=0x0190, f02=»WORK TABLES. * : 8 P* SIZE OF THE AREA RESERVED IS GIVEN BY THE * ; 4 8 P* FORMULA: A=L*(G+N*T) * ; p 8 P* WHERE A=AREA SIZE IN BYTES * ; 8 P* L= FWT LENGTH IN BY
0x2ec9f8…2ecb8c Dummy {f00=0x0138, f01=0x0190, f02=» * ; ` 8 P* N=NUMBER OF USER TASKS * < 8 P* * < H 8 P*************************************************** < P EJECT < PB:FWT EQU * < & P LD* A2,SCTTCT GET LENGTH OF TCTAB <
0x2ecb8c…2ecd20 Dummy {f00=0x0138, f01=0x0190, f02=»A3,SCTNFT GET NUMBER OF FM-FILES PER TASK < P CALL MULT MULTIPLY = 2 0 P AD A3,SCTNOF ADD NUMBER OF GENERAL FM-FILES = N 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES = , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH = P CALL MULT MULTIPLY = , P SRL A
0x2ecd20…2eceb4 (3, 256) Dummy {f00=0x0138, f01=0x0190, f02=» SIZE IN WORDS = n ( P LD A2,SCTSFA GET START OF FREE AREA > , P ST A2,SCTFWT STORE ADDRESS TO FIRST FWT > B 0 P ST A2,STKEND+FWTSTA SAVE START OF FWT AREA > r 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA > . PFWT50 CW A2,STKEND+LIMIT MEMORY OVERFLOW? >
0x2eceb4…2ed048 Dummy {f00=0x0138, f01=0x0190, f02=» ADK A2,2 RESERVE ANOTHER WORD > $ P SUK A3,1 DECREMENT WORD COUNTER ? & * P RB(NZ) FWT50 CHECK IF MEMORY OVERFLOW ? N , P ST A2,SCTSFA UPDATE START OF FREE AREA ? | P SUK A2,2 ? 0 P ST A2,STKEND+INTTAB SAVE ADDRESS TO T.I.T. ? PFWT70 RTN A14 ? P
0x2ed048…2ed1dc Dummy {f00=0x0138, f01=0x0190, f02=»******************** ? ~ P* @ ( P* NUMBER OF BLOCKS TO BE GENERATED: @ & ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) @ R $ P* WHERE N IS A SYSTEM CONSTANT @ ~ $ P* DEFINED AT SYSTEM GENERATION @ P* @ P* @ P* REFERENCED IN: SYSLOD @ P* @
0x2ed1dc…2ed370 Dummy {f00=0x0138, f01=0x0190, f02=»IRST BLOCK @ p P* A $ P* WORK REGISTERS: A1,A2,A7,A12 A P* A D P* SUBROUTINES: BLKGEN A N P* A n P EJECT A x PMONBLK EQU * A P LDK A1,0 A & P LD A12,SCTSFA START OF FREE AREA A . P ST A12,FREQUE SAVE POINTER TO FIRST BLOCK A P
0x2ed370…2ed504 Dummy {f00=0x0138, f01=0x0190, f02=»S PER TASK TO GENERATE A z P* B P LD A2,SCTBLK B ( 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA B > PMON:10 EQU * B r P SUK A7,2 MOORE TASKS? B P RF(Z) MON:20 NO B P CALL BLKGEN B P RB MON:10 B PMON:20 EQU * B P* B $ P* GEN
0x2ed504…2ed698 Dummy {f00=0x0138, f01=0x0190, f02=»KGEN B P* C P* GENERATE END BLOCK C P* C 4 P STR A1,A12 C > P ST A1,2,A12 C R P ST A1,4,A12 C f P* C z F P* CHECK IF BUFFER GREATER THAN 2 WORDS RESERVED FOR SYSLOD PART A C 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER C P* C
0x2ed698…2ed82c Dummy {f00=0x0138, f01=0x0190, f02=» 0 P ST A1,STKCOM+BUFSIZ UPDATE MAX BUFFER SIZE D P ADKL A12,2 D 8 0 P ST A12,STKCOM+SYSBUF UPDATE BUFFER ADDRESS D L PMON:30 EQU * D P ADKL A12,6 D P D * P ST A12,SCTSFA UPDATE END OF FREE AREA D P RTN A14 D P EJECT D * P************
0x2ed82c…2ed9c0 Dummy {f00=0x0138, f01=0x0190, f02=»* REFERENCED IN: MONBLK D P* E " P* ENTRY: A1=0 E , 4 P* A2 - NUMBER OF BLOCKS TO BE GENERATED E D $ P* A12 - NEXT FREE ENTRY E | P* E P* EXIT: A1=0 E " P* A12 - NEXT FREE ENTRY E P* E P* WORK REGISTES: A3
0x2ed9c0…2edb54 (3, 257) Dummy {f00=0x0139, f01=0x0190, f02=»---------------- E t 0 P* I DATA *+6 I F 0 P* -------------------- F L 0 P* I DATA 0 I F 0 P* -------------------- F 0 P* I DA
0x2edb54…2edce8 Dummy {f00=0x0139, f01=0x0190, f02=»BLK:10 EQU * F P RF(Z) BLKEX G $ P LDK A4,3 NUMBER OF WORDS/BLOCK G ( 0 PBLK:20 CW A12,STKEND+LIMIT MEMORY OVERFLOW? G P P RF(NE) BLK:30 NOT YET! G * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW G P CALL ERROR G * PBLK:30 ADKL A12,2 RESERVE ANOTHER
0x2edce8…2ede7c Dummy {f00=0x0139, f01=0x0190, f02=» P SUK A3,1 H P RB BLK:10 H PBLKEX EQU * H ( P RTN A14 H < P IFF EDM=0 H L P EJECT H ^ H P******************************************************************* H l H P* * H H P*
0x2ede7c…2ee010 Dummy {f00=0x0139, f01=0x0190, f02=» * H P H P* * I H P* REFERENCED IN: SYSLDM * I X H P* * I H P* ENTRY:
0x2ee010…2ee1a4 Dummy {f00=0x0139, f01=0x0190, f02=» * I H P* * J D H P* WORK REGISTERS: A4 * J H P*
0x2ee1a4…2ee338 Dummy {f00=0x0139, f01=0x0190, f02=» * J t H P******************************************************************* K 0 PB:MXTT EQU * K | ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB K P RF(Z) BMX99 NOT PRESENT K 0 P LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK
0x2ee338…2ee4cc Dummy {f00=0x0139, f01=0x0190, f02=»LE K b " P RF(NZ) BMX05 ALREADY DEFINED L $ P LD A4,SCTSFA START OF FREE AREA L 0 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE L X 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE L & P ST* A4,SCTMOX STORE IN FIRST WORD L $ P SUK A4,2 RESET TASK ID CO
0x2ee4cc…2ee660 Dummy {f00=0x0139, f01=0x0190, f02=»S? L v P RF(N) BMX03 NO M * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S M " ( P LDR* A6,A2 GET NUMBER OF TASK ID:S M P ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S M | " PBMX02 SUK A6,1 MORE TASK ID:S? M P RB(N) BMX01 NO M " P ADK A2,2 ADDRESS NEXT TASK ID M
0x2ee660…2ee7f4 (3, 258) Dummy {f00=0x0139, f01=0x0190, f02=» START-ADDRESS TABLE M | , P ST A4,SCTSFA UPDATE START OF FREE AREA N P LDR A11,A4 GET TABLE END N L " P LDR A9,P GET CURRENT LOCATION N n " P CALL CMPADR COMPARE ADDRESSES N P RF(NG) BMXS05 OK N * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW N P CALL
0x2ee7f4…2ee988 Dummy {f00=0x0139, f01=0x018e, f02=» N f P RF(N) BMX99 NO MORE O * P LD A12,SCTSFA GET START OF FREE AREA O $ 6 P ST A12,STKEND+EXCTAB SAVE ADDRESS TO CONTR. BLOCK O R 4 P ADKL A12,ACBLEN RESERVE AREA FOR CONTROL BLOCK O , P ST A12,SCTSFA UPDATE START OF FREE AREA O " P ADK A1,2 NUMBER OF
0x2ee988…2eeb1c Dummy {f00=0x0139, f01=0x0190, f02=» O z P ADK A1,2 NEXT TASK ID P P CALL MXTTAB P & P RB BMX20 P : PBMX99 RTN A14 RETURN P L P EJECT P h H P******************************************************************** P v H P* * P
0x2eeb1c…2eecb0 Dummy {f00=0x0139, f01=0x018e, f02=»=== * P Z H P* * Q H P* ENTRY: A1 -POINTER TO TASK ID IN MXSTAB * Q b H P* A5 - POINTER TO MONITOR EXTENT BLOCK * Q H P* A12
0x2eecb0…2eee44 Dummy {f00=0x0139, f01=0x0190, f02=» H P* EXIT: A1 - POINTER TO TASK ID IN MXSTAB * R H P* A5 - POINTER TO MONITOR EXTENT BLOCK * R P H P* * R H P* WORK REGISTER: A2
0x2eee44…2eefd8 Dummy {f00=0x0139, f01=0x018e, f02=» IMXTT,STRMOX,INBIMA * R H P* * S < H P******************************************************************** S P EJECT S PMXTTAB EQU * S , P MSR 4,A15 SAVE RE
0x2eefd8…2ef16c Dummy {f00=0x0139, f01=0x0190, f02=» S v P CALL STRMOX STORE IN MOXTAB T & P LD A2,MX:STA,A5 GET START ADDRESS T , 4 P LD A3,STKEND+EXCTAB GET CURRENT EXTENT BLOCK =6 T V , P ST A2,APLSTA,A3 STORE START ADDRESS =6 T P CALL STRMOX STORE IN MOXTAB T " P LDR* A2,A5 GET EXTENT ADDRESS T " P
0x2ef16c…2ef300 Dummy {f00=0x0139, f01=0x0190, f02=» A2,12 T 0 P ST A2,TTB:SA+26,A12 STORE IN A13 SAVE-AREA U : P LD A3,STKEND+EXCTAB GET CURRENT EXTENT CONTROL BLOCK U B 8 P ST A2,APLLAC,A3 STORE LOGICAL ADDR. TO COMMON PART U . P ST A2,APLREL,A3 STORE RELOCATION BASE =6 U * P LDKL A2,TTB:MT DISPL. TO
0x2ef300…2ef494 (3, 259) Dummy {f00=0x0139, f01=0x0190, f02=»D A2,SCTOPT GET OPTION WORD U P ANK A2,/20 EMM? V $ P RF(Z) MXTT20 NO V < & P LD A2,MX:LEN,A5 GET EXTENT LENGTH V T P ST A2,MAPLEN,A13 SAVE V ~ & P ST A12,TTAB,A13 SAVE TTAB ADDRESS V P CALL INBIMA INIT BIP MAP V & PMXTT20 MLR 4,A15 RESTORE REGISTE
0x2ef494…2ef628 Dummy {f00=0x0139, f01=0x0190, f02=» * V n 2 P* STRMOX - STORE START ADDRRESS IN MOXTAB * W 2 P* ======================================= * W J 2 P* * W 2 P* REFERENCED IN: MXTTAB * W 2 P*
0x2ef628…2ef7bc Dummy {f00=0x0139, f01=0x0190, f02=» EXIT: * W 2 P* * X 4 2 P* WORK REGISTERS: * X j 2 P* * X 2 P* SUBROUTINES: * X
0x2ef7bc…2ef950 Dummy {f00=0x0139, f01=0x0190, f02=» A3,SCTMOX GET CURRENT LENGTH X , P AD A3,SCTMOX ADDRESS TO NEXT FREE ENTRY Y & " P STR A2,A3 STORE START ADDRESS Y V P IM* SCTMOX INCREMENT LENGTH Y | P IM* SCTMOX TWICE Y P RTN A14 RETURN Y P EJECT Y 8 P****************************************
0x2ef950…2efae4 Dummy {f00=0x0139, f01=0x0190, f02=» 8 P* ============================================== * Z 8 P* * Z @ 8 P* REFERENCED IN: MXTTAB * Z | 8 P* * Z 8 P* ENTRY: A1 - POIN
0x2efae4…2efc78 Dummy {f00=0x0139, f01=0x0190, f02=» * Z l 8 P* EXIT: * [ 8 P* * [ T 8 P* WORK REGISTERS: A2,A3,A4,A9,A11 * [ 8 P* * [ 8 P
0x2efc78…2efe0c Dummy {f00=0x0139, f01=0x0190, f02=»************************************ [ P EJECT , PIMXTT EQU * : P LDR A2,A12 GET TTAB ENTRY N * P ADKL A2,TTB:MT GET START OF MMU TABLE p . P LDR* A3,A5 GET PHYSICAL ADDRESS TO EXTENT P LDR A4,A3 SAVE ( P ANKL A3,/FC00 PHYSICAL PAGE ADD
0x2efe0c…2effa0 Dummy {f00=0x0139, f01=0x0190, f02=»E ( P LD A11,MX:LEN,A5 GET EXTENT LENGTH ] 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? ] 6 P RF(G) IMX10 NO! ] j & P XRR A11,A11 INDICATE SINGLE ENTRY ] P RF IMX20 ] < PIMX10 SUR A11,A9 SUBTRACT REMAINING AREA IN CURRENT PAGE ] & PIMX20 STR
0x2effa0…2f0134 (3, 260) Dummy {f00=0x013a, f01=0x0190, f02=»TRY ENOUGTH? ] ~ P RF(Z) IMX99 YES! ^ P RF(NN) IMX30 <32KB ^ . $ P SUKL A11,/1000 DECREMENT LENGTH ^ J P RB IMX20 ^ r & PIMX30 STR A3,A2 STORE PAGE ADDRESS ^ ( P ADKL A3,/400 INCREMENT PAGE ADDRESS ^ & P ADK A2,2 INCREMENT ENTRY POINTER ^ $ P SUK
0x2f0134…2f02c8 Dummy {f00=0x013a, f01=0x0190, f02=» GET END OF MMU-TABLE =6 ^ ~ P LDKL A3,/FC00 =6 _ PIMX100 EQU * =6 _ : , P CWR A4,A2 ENTRIES LEFT IN MMU-TABLE? =6 _ R P RF(E) IMX110 NO! =6 _ 0 P STR A3,A2 STORE PAGE ERROR IN MMU-ENTRY =6 _ P ADK A2,2 NEXT MMU-ENTRY =6 _ P RB IMX100 =6 _
0x2f02c8…2f045c Dummy {f00=0x013a, f01=0x0190, f02=» * _ < P* B:MSEG - BUILD MONITOR TASK SEGMENT TABLES & TTABS * ` 6 < P* ================================================== * ` v < P* * ` < P* REFERENCED IN:
0x2f045c…2f05f0 Dummy {f00=0x013a, f01=0x0190, f02=» * ` v < P* * a & < P* EXIT: * a f < P* * a < P* WORK REGISTERS: A1-A12
0x2f05f0…2f0784 Dummy {f00=0x013a, f01=0x0190, f02=»AD,BMXSTT * a f < P* * b < P******************************************************** b V P EJECT b PB:MSEG EQU * b 2 P CALL MX:MST FIND FIRST MONITOR SEGMENT TABLE b 0 P ST P,STKEND+LIMIT UPDATE
0x2f0784…2f0918 Dummy {f00=0x013a, f01=0x0190, f02=» 6 P CALL MX:STD FIND FIRST MONITOR SEGMENT TABLE TASK c P DEFINITION BLOCK c > > PBMSG10 SUK A6,1 DECREMENT NUMBER OF MONITOR SEGMENT TABLES c Z P RF(N) BMSG99 NO MORE! c < P CM STKEND+SCBTAB CLEAR ADDRESS TO SEGMENT CONTROL BLOCK c 0 P CM STKEND+MAX
0x2f0918…2f0aac Dummy {f00=0x013a, f01=0x0190, f02=» c h . P LDR* A7,A1 GET NUMBER OF TASKS IN SEGTAB d PBMSG20 ADK A1,2 NEXT TASK ID d : , P SUK A7,1 DECREMENT NUMBER OF TASK ID:S d ^ P RB(N) BMSG10 NO MORE! d . P CALL CHKTAD CHECK IF TASK ALREADY DEFINED d ( P RF(NZ) BMSG30 TASK ALREADY DEFINED! d 4
0x2f0aac…2f0c40 Dummy {f00=0x013a, f01=0x018e, f02=» CONTROL BLOCK GENERATED d z * P LD A12,SCTSFA GET START OF FREE AREA e P LDR A10,A12 SAVE e N 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK e h , P ST A12,SCTSFA UPDATE START OF FREE AREA e D PBMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONT
0x2f0c40…2f0dd4 (3, 261) Dummy {f00=0x013b, f01=0x0190, f02=» e V 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE f * P ADKL A3,/FFFF NUMBER OF 4K-MULTIPLES f > 2 P ANKL A3,/F000 ISOLATE NUMBER OF 4K-MULTIPLES f l ( P LDKL A2,/F000 END OF LOGICAL MEMORY f , P SUR A2,A3 COMPUTE LOGICAL PAGE ADDRESS f 2 P LD A3,STK
0x2f0dd4…2f0f68 Dummy {f00=0x013b, f01=0x0190, f02=»U ENTRY f v : PBMSG40 ST A2,APLLAP,A10 STORE IN SEGMENT CONTROL TABLE g P SRL A2,12 MMU TABLE ENTRY g N $ P LDK A3,16 NUMBER OF MMU ENTRIES g p . P SUR A3,A2 COMPUTE NUMBER OF PAGE ENTRIES g 4 P ST A3,APLNPE,A10 STORE IN SEGMENT CONTROL TABLE g P SLL A
0x2f0f68…2f10fc Dummy {f00=0x013b, f01=0x018e, f02=»P,A10 STORE IN SEGMENT CONTROL TABLE g 2 P LD A3,STKEND+MAXSGM GET MAXIMUM SEGMENT SIZE h , 0 P ADKL A3,/3FF COMPUTE NUMBER OF 1K-MULTIPLES h b 2 P ANKL A3,/FC00 ISOLATE NUMBER OF 1K-MULTIPLES h ( P LDR A11,A3 GET CURRENT SEGMENT SIZE h & P LD A9,SCTPSZ GE
0x2f10fc…2f1290 Dummy {f00=0x013b, f01=0x0190, f02=» h h P RB BMSG20 i PBMSG99 RTN A14 RETURN i P EJECT i 8 > P********************************************************** i F > P* * i > P* BMSTAB - BUILD MONITOR SEGMENT TABLE * i
0x2f1290…2f1424 Dummy {f00=0x013b, f01=0x0190, f02=»* REFERENCED IN: B:MSEG * i > P* * j B > P* ENTRY: A4 - POINTER TO NUMBER OF SEGMENTS * j > P* A8 - POINTER TO SEGMENT CLUSTER IN MXSTAB * j > P
0x2f1424…2f15b8 Dummy {f00=0x013b, f01=0x018e, f02=» * j > P* WORK REGISTERS: A2,A3,A9,A11 * k > > P* * k > P* SUBROUTINES: CMPADR,ERROR * k > P*
0x2f15b8…2f174c Dummy {f00=0x013b, f01=0x0190, f02=» k PBMSTAB EQU * l * P STR A1,A15 SAVE REGISTER A1 ON STACK l ( P LD A5,SCTSFA GET START OF FREE AREA l J * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE l v & P STR A2,A5 STORE IN SEGMENT TABLE l * P ADK A5,2 NEXT ENTRY IN SEGMENT TABLE l & P LDR* A9,A4
0x2f174c…2f18e0 Dummy {f00=0x013b, f01=0x0190, f02=»MBER OF SEGMENTS l h " P ADK A5,2 SEGMENT TABLE ENTRY m P LDR A3,A5 SAVE m > P* m V P* BUILD SEGMENT BLOCK 0 m ` P* m ( P LDKL A2,/8400 STATUS FOR SEGMENT 0 m ( P STR A2,A3 STORE IN SEGMENT BLOCK 0 m 6 PBMST20 ST A1,STKEND+SGMCNT SAVE NUMBER
0x2f18e0…2f1a74 (3, 262) Dummy {f00=0x013b, f01=0x0190, f02=» BLOCKS m r " P CALL CMPADR COMPARE ADDRESSES n P RF(NG) BMST25 OK n 6 * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW n P P CALL ERROR n ~ & PBMST25 LDR* A2,A8 GET SEGMENT TYPE n P SRL A2,8 ISOLATE n ( P CCK A2,'RR' CORE RESIDENT SEGMENT? n P RF(E)
0x2f1a74…2f1c08 Dummy {f00=0x013b, f01=0x018e, f02=»NG & DISC RESIDENT SEGMENT n P* o " ( P LD A1,SCTMXS GET ADDRESS TO MXSTAB o , 0 P LD A2,MX:DA2,A1 GET DISC ADDRESS BITS 16-31 o X 0 P LD A1,MX:DA1,A1 GET DISC ADDRESS BITS 0-15 o $ P LD A10,2,A8 GET RELOCATION BASE o & P ADR A2,A10 RELOCATE DISC ADDRES
0x2f1c08…2f1d9c Dummy {f00=0x013b, f01=0x0190, f02=» ( P LDKL A1,LMP10 DISC ADDRESS OVERFLOW p P CALL ERROR p 0 4 PBMST30 ORKL A1,/4000 INDICATE ASSEMBLER SEGMENT p D 4 P STR A1,A3 STORE SEGMENT DISC ADDRESS BITS 0-15 p | 6 P ST A2,2,A3 STORE SEGMENT DISC ADDRESS BITS 16-31 p P RF BMST50 p P* p .
0x2f1d9c…2f1f30 Dummy {f00=0x013b, f01=0x0190, f02=»TORE IN SEGMENT BLOCK p ( PBMST50 LD A9,4,A8 GET SEGMENT LENGTH q 4 P LD A11,STKEND+MAXSGM GET MAXIMUM SEGMENT LENGTH q J P CALL CMPADR q . P RF(NL) BMST55 CURRENT SEGMENT NOT GREATER q 6 P ST A9,STKEND+MAXSGM UPDATE MAXIMUM SEGMENT LENGTH q < PBMST55
0x2f1f30…2f20c4 Dummy {f00=0x013b, f01=0x0190, f02=»OF SEGMENTS q p P SUK A1,1 r P RB(NZ) BMST20 MORE SEGMENTS r & " P ADK A3,8 END OF SEGMENT TABLE r J 2 PBMST60 ST A3,SCTSFA UPDATE START OF FREE AREA r p $ P LDR* A1,A15 RESTORE REGISTER A1 r P RTN A14 r P EJECT r @ P****************************
0x2f20c4…2f2258 Dummy {f00=0x013b, f01=0x0190, f02=» TASK ALREADY DEFINED * r t @ P* ====================================== * s ( @ P* * s l @ P* REFERENCED IN: B:MSEG * s @ P*
0x2f2258…2f23ec Dummy {f00=0x013b, f01=0x0190, f02=»MONITOR SEGMENT TASK * s | @ P* * t 0 @ P* EXIT: A12 - TTAB ADDRESS IF TASK ALREADY DEFINED * t t @ P* A12 = 0 IF TASK NOT DEFINED * t @ P*
0x2f23ec…2f2580 Dummy {f00=0x013b, f01=0x0190, f02=» * t @ P* SUBROUTINES: PSW * u 8 @ P* * u | @ P************************************************************ u P EJE
0x2f2580…2f2714 (3, 263) Dummy {f00=0x013b, f01=0x018e, f02=»TER IN TCTAB u r " P CW A2,SCTTCT START OF TCTAB? v * P RF(E) CHKT30 YES: ALL TASKS CHECKED! v : $ P LDR* A3,A2 GET POINTER TO TTAB v h P LD A3,TTB:ID,A3 GET TASK ID v ( P CWR* A3,A1 EQUAL TO CURRENT TASKS? v P RB(NE) CHKT20 NO v " P LDR* A12,A2 G
0x2f2714…2f28a8 Dummy {f00=0x013b, f01=0x0190, f02=» v d P RTN A14 w P EJECT w H P******************************************************************* w & H P* * w r H P* BMXSTT - BUILD MONITOR EXTENT & SEGMENT TTABS * w H
0x2f28a8…2f2a3c Dummy {f00=0x013b, f01=0x0190, f02=» * w V H P* REFERENCED IN: MXTTAB,B:MSEG * x H P* * x ^ H P* ENTRY: * x H P*
0x2f2a3c…2f2bd0 Dummy {f00=0x013b, f01=0x0190, f02=» * x H P* WORK REGISTERS: A2,A9,A10,A11 * y J H P* * y H P* SUBROUTINES: CMPADR,ERROR
0x2f2bd0…2f2d64 Dummy {f00=0x013b, f01=0x0190, f02=»********************************************* y z PBMXSTT EQU * z 6 * P LD A12,SCTSFA GET START OF FREE AREA z J , P LDKL A10,TTB:TD+2 STANDARD TTAB LENGTH z x " P LD A2,SCTOPT GET OPTION WORD z P ANK A2,/21 EMM? z P XRK A2,/21 z P RF(NZ) BMXS20
0x2f2d64…2f2ef8 Dummy {f00=0x013b, f01=0x0190, f02=»CTOPT GET OPTION WORD z P ANK A2,1 MMU OPTION? { P RF(Z) BMXS30 NO! { < . P SUKL A12,TTB:MT INCLUDE MMU TABLE IN TTAB { V $ P SUKL A10,TTB:MT INCLUDE LENGTH { P RF BMXS40 { ( PBMXS30 LD A2,SCTOPT GET OPTION WORD { P ANK A2,2 DISC PAGING? {
0x2f2ef8…2f308c Dummy {f00=0x013b, f01=0x0190, f02=»0,SCTSFA COMPUTE START OF FREE AREA { P LDR A9,A10 SAVE | , 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA | D " P CALL CMPADR MEMORY OVERFLOW? | x P RF(NL) BMXS50 NO! | P LDKL A1,LMP3 | ( P CALL ERROR INDICATE MEMORY OVERFLOW | 2 PBMXS50 ST A10,
0x2f308c…2f3220 Dummy {f00=0x013b, f01=0x0190, f02=»,A2 STORE TTAB ADDRESS | ( P IM* SCTTCT INCREMENT CURRENT LENGTH } P IM* SCTTCT TWICE } J P LDR* A2,A1 GET TASK ID } d $ P ST A2,TTB:ID,A12 STORE IN TTAB } * P LDKL A2,MX:LEV GET MONITOR TASK LEVEL } $ P ST A2,TTB:ST,A12 STORE IN TTAB } P SLL A
0x2f3220…2f33b4 (3, 264) Dummy {f00=0x013b, f01=0x0190, f02=»NTROL BLOCK ADDRESS } n $ P ST A2,TTB:AP,A12 STORE IN TTAB ~ P LDK A2,2 ~ D 0 P ST A2,TTB:TD,A12 STORE DEVICE TABLE LENGTH ~ V P RTN A14 RETURN ~ P EJECT ~ B P************************************************************** ~ B P* MX:MEB
0x2f33b4…2f3548 Dummy {f00=0x013b, f01=0x018e, f02=» * ~ B P* REFERENCED IN: MX:MST * 8 B P* * ~ B P* ENTRY: SCTMXS - ADDRESS TO MONITOR EXTENT TABLE * B
0x2f3548…2f36dc Dummy {f00=0x013b, f01=0x0190, f02=» P B P* A5 - POINTER TO NUMBER OF SEGTABS * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * N B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x2f36dc…2f3870 Dummy {f00=0x013b, f01=0x0190, f02=» * f B P* SUBROUTINES: * B P* * b B P************************************************************** P EJECT PMX:MEB EQU *
0x2f3870…2f3a04 Dummy {f00=0x013b, f01=0x0190, f02=»OF SEGTABS t P LDR A6,A2 SAVE & P LDR A1,A7 SAVE ADDRESS TO MXSTAB * * P LD A7,MX:NOX,A7 GET NUMBER OF EXTENTS T , P ADK A1,MX:NOS ADDRESS NUMBER OF SEGTABS P LDR A5,A1 SAVE . PMEB10 ADK A1,2 ADDRESS NUMBER OF SEGMENTS P SUK A2,1 MO
0x2f3a04…2f3b98 Dummy {f00=0x013b, f01=0x0190, f02=»************** ` B P* * B P* MX:MST - GET FIRST MONITOR SEGMENT TABLE * B P* ======================================== * B P*
0x2f3b98…2f3d2c Dummy {f00=0x013b, f01=0x0190, f02=» * t B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * * B P* * p B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TABLE * B P* A5
0x2f3d2c…2f3ec0 Dummy {f00=0x013b, f01=0x0190, f02=» A7 - NUMBER OF MONITOR EXTENTS * B P* * > B P* WORK REGISTERS: A2 * B P* *
0x2f3ec0…2f4054 (3, 265) Dummy {f00=0x013c, f01=0x0190, f02=» * V B P************************************************************** P EJECT R PMX:MST EQU * ` : P CALL MX:MEB GET POINTER TO FIRST MONITOR EXTENT BLOCK t 2 P LDR A2,A7 GET NUMBER OF MONITOR EXTENT BLOCKS < PMST10 SUK A2,1 DECREMENT NUMBER
0x2f4054…2f41e8 Dummy {f00=0x013c, f01=0x018e, f02=»MST10 PMST99 RTN A14 RETURN P EJECT * B P************************************************************* 8 B P* * ~ B P* MX:TDB - GET FIRST MONITOR EXTENT TASK DEFINITION BLOCK * B
0x2f41e8…2f437c Dummy {f00=0x013c, f01=0x0190, f02=» P B P* REFERENCED IN: MX:STD * B P* * N B P* ENTRY: SCTMXS - ADDRESS TO MXSTAB * B P*
0x2f437c…2f4510 Dummy {f00=0x013c, f01=0x0190, f02=» * f B P* A5 - POINTER TO FIRST MONITOR EXTENT BLOCK * B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * b B P* A7 - NUMBER OF MONITOR EXTENTS * B P*
0x2f4510…2f46a4 Dummy {f00=0x013c, f01=0x0190, f02=» * z B P* SUBROUTINES: MX:MST * 0 B P* * v B P************************************************************* P EJECT
0x2f46a4…2f4838 Dummy {f00=0x013c, f01=0x0190, f02=»K A5,2 ADDRESS NUMBER OF SEGMENTS * P SUK A2,1 DECREMENT NUMBER OF SEGTABS * P RF(N) TDB99 NO MORE SEGTABS X & P LDR* A3,A5 GET NUMBER OF SEGMENTS | 0 PTDB20 SUK A3,1 DECREMENT NUMBER OF SEGMENTS " P RB(N) TDB10 NO MORE SEGMENTS 2 P ADK A1,
0x2f4838…2f49cc Dummy {f00=0x013c, f01=0x0190, f02=»******************************** r B P* * ( B P* MS:STD - GET FIRST MONITOR SEGMENT TASK DEFINITION BLOCK * n B P* ======================================================== * B P*
0x2f49cc…2f4b60 Dummy {f00=0x013c, f01=0x0190, f02=» * B P* ENTRY: * < B P* * B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *
0x2f4b60…2f4cf4 (3, 266) Dummy {f00=0x013c, f01=0x0190, f02=» * T B P* A6 - NUMBER OF MONITOR SEGMENT TABLES * B P* A7 - NUMBER OF MONITOR EXTENTS * P B P* * B P* WORK REGISTERS: A2,A3
0x2f4cf4…2f4e88 Dummy {f00=0x013c, f01=0x0190, f02=» * h B P* * B P************************************************************** d P EJECT PMX:STD EQU * 2 P CALL MX:TDB GET FIRST MONITOR TASK DEF. BLOCK , P LDR A
0x2f4e88…2f501c Dummy {f00=0x013c, f01=0x0190, f02=» LDR* A3,A1 GET NUMBER OF TASKS IN EXTENT " PSTD20 ADK A1,2 ADDRESS TASK ID 2 ( P SUK A3,1 DECREMENT NUMBER OF TASKS X P RB(NN) STD20 MORE TASKS P RB STD10 NEXT EXTENT PSTD99 RTN A14 RETURN P XIF P EJECT " P****************
0x2f501c…2f51b0 Dummy {f00=0x013c, f01=0x0190, f02=» P* P* ENTRY: P* 8 P* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES * P* f P* WORK REGISERS: A1-A12 p P* 8 P* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC P* ( P* TASK TABLE LAYOUT
0x2f51b0…2f5344 Dummy {f00=0x013c, f01=0x0190, f02=» WORDS) I t * P* I______________________I * P* TTB:MT I MMU I @ * P* I TABLE I n * P* I 16 I * P* I WORDS I * P* I_
0x2f5344…2f54d8 Dummy {f00=0x013c, f01=0x0190, f02=»I SEGTAB POINTER I * P* I______________________I * P* TTB:SB I SEGM. BLOCK POINTER I N * P* I----------------------I | * P* TTB:AP I ACB POINTER I * P* ------------------------ * P*
0x2f54d8…2f566c Dummy {f00=0x013c, f01=0x0190, f02=»* ------------------------ * P* TTB:ST I STATUS/LEVEL I . * P* ------------------------ * P* TTB:PP I PENDING QUEUE I * P* ------------------------ * P* TTB:PW I PROGRAM STATUS WOR
0x2f566c…2f5800 Dummy {f00=0x013c, f01=0x0190, f02=»------ p * P* I REGISTER I * P* I SAVE I < * P* I AREA I j * P* I 14 I * P* I WORDS I * P* ------
0x2f5800…2f5994 (3, 267) Dummy {f00=0x013c, f01=0x0190, f02=» TABLE I ~ * P* : : * P* : : J * P* I______________________I x 2 P* TASK SAVE01URATION TABLE LAYOUT 0 P* ______________________________
0x2f5994…2f5b28 Dummy {f00=0x013c, f01=0x0190, f02=»DEX/FILCODE I x 0 P* ------------------------------ 0 P* I DWT-ADDRESS I P 0 P* ------------------------------ 0 P* : : 0 P* :
0x2f5b28…2f5cbc Dummy {f00=0x013c, f01=0x0190, f02=» ------------------------------ 0 P* I DWT-ADDRESS I , 0 P* ------------------------------ ` P EJECT PB:TT EQU * & P CALL FSTAPL GET FIRST APPLICATION * P LD A12,SCTSFA GET START OF FREE AREA
0x2f5cbc…2f5e50 Dummy {f00=0x013c, f01=0x0190, f02=» ST A11,STKEND+LCDSTA SAVE CONFIGURATION DATA POINTER * P ST P,STKEND+WRK2 SAVE PROGRAM COUNTER > P* l ( P* GET NUMBER OF TASKS IN THIS CLASS v P* P CALL GETTSK . P ST A1,STKEND+NBRTSK SAVE NUMBER OF TASKS P* P* GET TASK
0x2f5e50…2f5fe4 Dummy {f00=0x013c, f01=0x0190, f02=»ECOND ID DIGIT x 2 P ST A5,STKEND+TASKID SAVE TASK ID START VALUE P* L " P* CHECK IF CREDIT APPLICATION V P* | 6 P LD A5,STKEND+APCSTA GET APPLICATION CONTROL BLOCK * P LD A5,APLTYP,A5 GET APPLICATION TYPE $ P CWK A5,'CR' CREDIT APPLIC
0x2f5fe4…2f6178 Dummy {f00=0x013c, f01=0x018e, f02=»ST CHAR IN TCL v P SLL A5,8 MOVE TO LEFT BYTE . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL : $ P CALL GETTCL GET TCL START VALUE l P ST A5,STKEND+TCLSAV SAVE PBTT21 EQU * P EJECT P* P* GET TASK LEVEL P* 0 P L
0x2f6178…2f630c Dummy {f00=0x013c, f01=0x0190, f02=» " P CALL CONVRT CONVERT TO BINARY P ST A1,STKEND+TSKLEV SAVE * P EJECT L P* Z B P* COMPUTE SIZE OF CONFIGURATION DEPENDENT PART OF TASK TABLE d P* & P LDKL A10,TTB:TD+4 STANDARD LENGTH " P LD A5,SCTOPT GET OPTION WORD 4 P ANK
0x2f630c…2f64a0 Dummy {f00=0x013c, f01=0x0190, f02=»DE BIT MAP IN LENGTH x . P SUKL A12,TTB:AM RESERV SPACE FOR BIT MAP P RF BTT30 N PBTT22 LD A5,SCTOPT ` P SRC A5,1 MMU PAGING? z P RF(NN) BTT25 NO . P SUKL A10,TTB:MT+2 16+2 WORD EXTRA IF MMU 2 P SUKL A12,TTB:MT RESERV SPACE FOR EXTR
0x2f64a0…2f6634 (3, 268) Dummy {f00=0x013c, f01=0x0190, f02=»RD EXTRA IF DISC PAGING v 0 P SUKL A12,TTB:CB RESERV SPACE FOR EXTRA WORD PBTT30 EQU * T P EJECT h P* v < P* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART " P* OF TASK CONFIGURATION TABLE P* P LDK A6,0 RESET LENGTH
0x2f6634…2f67c8 Dummy {f00=0x013c, f01=0x0190, f02=» GET NUMBER OF TDC:S P LDR A7,A1 SAVE PBTT35 EQU * 4 P RF(Z) BTT40 H ( P CALL GETCLN GET CLASS NUMBER (1-99) & P ADR A1,A1 2*(BINARY CLASS NUMBER) , P LD A8,STKEND+TCLA GET POINTER TO TCLASS P LDR* A2,A8 P SUK A2,2 P
0x2f67c8…2f695c Dummy {f00=0x013c, f01=0x0190, f02=»ET ENTRY IN TCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS B " P SUKL A8,2 EXCLUDE LENGTH WORD j ( P ADR A10,A8 ADD TO TOTAL TTAB LENGTH . P ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH P ADKL A9,TDC+TLC NEXT CLAS
0x2f695c…2f6af0 Dummy {f00=0x013c, f01=0x0190, f02=»PECIAL DEVICE CLASS DEPENDENT PART OF | P* TASK CONFIGURATION TABLE . P* R 6 P CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES P ADKL A9,2 FIRST SDC RECORD P LDR A7,A1 SAVE PBTT50 EQU * P RF(Z) BTT55 NO MOORE SDC:S (
0x2f6af0…2f6c84 Dummy {f00=0x013c, f01=0x0190, f02=» LDR* A2,A8 P SUK A2,2 P CWR A1,A2 & P RF(NG) BTT52 8 P LDKL A1,LMP4 N & P CALL ERROR INDICATE FORMAT ERROR d PBTT52 EQU * " P ADR A8,A1 GET ENTRY IN SCLASS $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH O
0x2f6c84…2f6e18 Dummy {f00=0x013c, f01=0x0190, f02=»GTH j P ADKL A9,SDC NEXT CLASS ( P SUK A7,1 DECREMENT NUMBER OF SDC:S , P RB BTT50 X PBTT55 EQU * j P IFF EDM=0 ~ & P ADKL A10,14 7 EXTRA WORDS FOR EDM P XIF " P ADK A6,2 INCLUDE LENGTH WORD 4 P LD A7,STKEND+CUTENT GET CUR
0x2f6e18…2f6fac Dummy {f00=0x013c, f01=0x0190, f02=»,STKEND+WRK3 SAVE A9 P ST A11,STKEND+WRK4 SAVE A11 P LDR A9,A10 GET TTAB LENGTH @ 4 P AD A9,STKEND+SFASAV COMPUTE END OF FREE AREA =2 d P ST A9,STKEND+SFASAV =2 0 P LD A11,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF ME
0x2f6fac…2f7140 Dummy {f00=0x013c, f01=0x0190, f02=»+WRK3 RESTORE A9 ~ $ P LD A11,STKEND+WRK4 RESTORE A11 P* @ 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB J P* P ST A6,TTB:TD,A12 P* : P* STORE TASK LEVEL IN RIGHT BYTE OF STATUS/LEVEL WORD P* ( P LD A5,STKEN
0x2f7140…2f72d4 (3, 269) Dummy {f00=0x013d, f01=0x0190, f02=»D Z P* & P SLL A5,10 MOVE LEVEL TO LEFT BYTE P ORKL A5,/00C0 > " P LD A2,SCTOPT GET OPTION WORD T P ANK A2,1 MMU OPTION? z P ORR A5,A2 SET BIT 15 IF MMU $ P ST A5,TTB:PW,A12 STORE IN TTAB P IFF MMUPAG=0 & P CALL MMUINI I
0x2f72d4…2f7468 Dummy {f00=0x013d, f01=0x018e, f02=»SK ID p $ P ST A5,TTB:ID,A12 STORE IN TTAB P ADK A5,1 INCREMENT TASK ID 6 8 P ST A5,STKEND+TASKID SAVE TO NEXT TASK IN SAME CLASS Z 0 P LD A5,STKEND+APCSTA GET APPL. CONTROL BLOCK , P ST A5,TTB:AP,A12 STORE ADDRESS IN TTAB $ P LD A5,APLTYP,
0x2f7468…2f75fc Dummy {f00=0x013d, f01=0x0190, f02=» , P LD A5,STKEND+TCLSAV GET TCL START VALUE " P ST A5,TTB:PP,A12 SAVE IN TTAB 8 P ADK A5,1 INCREMENT TCL ^ P ST A5,STKEND+TCLSAV SAVE ~ PBTT65 EQU * , P STR A12,A7 SAVE TTAB ADDRESS IN TC:TAB " P ADK A7,2 NEXT ENTRY IN TC:TAB 6
0x2f75fc…2f7790 Dummy {f00=0x013d, f01=0x0190, f02=» NUMBER OF TASKS IN THIS CLASS | P RB BTT60 & P EJECT 8 PBTT70 EQU * F P* Z * P* RESET POINTER TO START OF FREE AREA d P* P LD A12,STKEND+SFASAV PBTT90 EQU * P CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFI
0x2f7790…2f7924 Dummy {f00=0x013d, f01=0x0190, f02=»TT98 P LD P,STKEND+WRK1 0 PBTT98 ST A12,SCTSFA SAVE START OF FREE AREA & P SU A7,SCTTCT COMPUTE LENGTH Z P ST* A7,SCTTCT STORE ~ P RTN A14 RETURN P IFF SWPBLK=0 P EJECT PB:SWBT EQU * $ P CALL PUSH SAVE REGISTER A1-A1
0x2f7924…2f7ab8 Dummy {f00=0x013d, f01=0x0190, f02=»PLICATION COUNTER v , P ST P,STKEND+LIMIT SAVE LOCATION COUNTER 0 PBSWT05 LDKL A1,'CR' APPLICATION TYPE=CREDIT J , P CALL GETAPP GET NEXT CREDIT APPLICATION ~ & P RF(Z) BSWT42 NO MORE APPLICATIONS P LDR A10,A1 GET ACB ADDRESS P ST A10,STKE
0x2f7ab8…2f7c4c Dummy {f00=0x013d, f01=0x0190, f02=»* & PBSWT10 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? 4 P RB(E) BSWT10 YES! ` 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? z P RF(NE) BSWT20 NO! P ADKL A11,1 " P CALL NXTCOM SKIP COMMON BLOCK 2 PBSWT20
0x2f7c4c…2f7de0 Dummy {f00=0x013d, f01=0x0190, f02=»GETNUM NUMBER OF UWB RECORDS P LDR A1,A5 SAVE $ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! < ( P ADKL A11,UDBFST-1 FIRST UWB RECORD d ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NUMBER OF TYPES P RB(P) BSWT30 MOORE LEFT , P LCR
0x2f7de0…2f7f74 (3, 270) Dummy {f00=0x013d, f01=0x0190, f02=»SWB DEFINITION BLOCK! ( P ST A1,APLSWB,A10 CLEAR SWB POINTER : P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION =2 J & PBSWT42 CALL POB RESTORE REGISTERS P RTN A14 & PBSWT44 ADKL A11,1 NUMBER OF TYPES . P ST A11,STKEND+SWBBLK START
0x2f7f74…2f8108 Dummy {f00=0x013d, f01=0x0190, f02=» 0 P ST A5,STKEND+NBRSWB SAVE NUMBER OF RECORDS P ST A5,STKEND+WRK1 SAVE 8 . P LD A8,STKCOM+SWBFLG GET ADDRESS TO $SWAPP X P RF(NZ) BSWT48 FILE CREATED " PSWBERR LDKL A1,LMP6 SWB ERROR! P CALL ERROR : PBSWT48 ST A12,APLSWB,A10 SAVE AD
0x2f8108…2f829c Dummy {f00=0x013d, f01=0x0190, f02=» $ PBSWT50 ADKL A10,2 BYPASS POINTER ( P SUK A5,1 DECREMENT NUMBER OF TYPES , P RB(P) BSWT50 X P* n & P* GET ADDRESS TO S:BTAB PROTOTYPE x P* , P LD A2,STKEND+APCSTA GET ADDRESS TO ACB & P LD* A1,APLMMC,A2 GET TTAB ADDRESS $ P T
0x2f829c…2f8430 Dummy {f00=0x013d, f01=0x0190, f02=»E , P ADKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS $ P CALL GETCON GET S:BTAB ADDRESS : * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB b * P RB(Z) SWBERR NO SWB:S IN APPLICATION! P ADK A1,2 ADDRESS TO NAME P ST A1,STKEND+SWBNAM SAVE 0 P SUK A
0x2f8430…2f85c4 Dummy {f00=0x013d, f01=0x0190, f02=» IF ENOUGTH MEMORY IN FIRST PARTITION P* . P XRR A2,A2 RESET COUNTER 8 $ PBSWT52 SUK A1,6 DECREMENT LENGTH X $ P RF(N) BSWT55 NO MORE SWB-BLOCKS " P ADK A2,1 INCR. BLOCK COUNTER P RB BSWT52 " PBSWT55 SLL A2,3 MULTIPLY BY 8 $ P L
0x2f85c4…2f8758 Dummy {f00=0x013d, f01=0x0190, f02=»ERFLOW? z P RF(NL) BSWT57 NO! * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * P CALL ERROR X $ PBSWT57 SUK A4,2 SKIP LENGTH WORD l " P LDKL A9,0 RESET BLOCK COUNTER , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK P ST A4,STKEND+SWBTBL SAVE
0x2f8758…2f88ec Dummy {f00=0x013d, f01=0x0190, f02=»RECORD IN PROT. p $ P CALL GETCON GET TWO FIRST CHAR. ( P ADKL A11,NAMUWB NAME IN CONF. FILE @ P LCR A3,A11 GET FIRST CHAR. l P SLL A3,8 MOVE TO LEFT BYTE " P LC A3,1,A11 GET SECOND CHAR. & P CWR A1,A3 TWO FIRST CHAR. EQUAL? P RF(
0x2f88ec…2f8a80 Dummy {f00=0x013d, f01=0x0190, f02=»,A11 GET THIRD CHAR. FROM CONF. FILE P ANK A3,/FF ISOLATE CHAR. , " P CWR A1,A3 THIRD CHAR. EQUAL? N P RF(E) BSWT75 YES! t $ PBSWT70 ADKL A11,NAMUWB SKIP NAME ( P SUK A7,1 DECREMENT NUMBER OF TYPES P RB(P) BSWT65 NEXT TYPE P*
0x2f8a80…2f8c14 (3, 271) Dummy {f00=0x013d, f01=0x0190, f02=»10 2:ND WORD P ST A7,4,A10 3:RD WORD P ST A7,6,A10 4:TH WORD 2 P RF BSWT95 P PBSWT75 EQU * b P* v P* MATCHING NAME FOUND P* . P LD A3,STKEND+WRK1 GET NUMBER OF SWB TYPES P SUK A3,1 DECREMENT P ST A3,STKEND+WRK1
0x2f8c14…2f8da8 Dummy {f00=0x013d, f01=0x0190, f02=»OPIES t , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE > P OR A5,STKCOM+SWBFSA+2 DISC ADDRESS BITS 0-7 IN RIGHT BYTE > " P STR A5,A10 STORE IN SWB BLOCK , P SRL A5,8 NUMBER OF COPIES TO RIGHT BYTE 4 P LD A8,STKCOM+SWBFSA GET DISC ADDRESS BITS 8-22
0x2f8da8…2f8f3c Dummy {f00=0x013d, f01=0x0190, f02=»RESS r P LDR A2,A1 SAVE & P SUK A2,UPNAME LENGTH OF WORKBLOCK $ P CALL GETCON N * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB b 0 PBSWT85 LD A3,SWBLEN,A10 GET LENGTH OF BLOCK " P LDK A1,0 RESET SECTOR COUNTER 4 PBSWT86 IM STKCOM+SWBFSA INCREM
0x2f8f3c…2f90d0 Dummy {f00=0x013d, f01=0x0190, f02=» * & P ADK A1,1 INCREMENT SECTOR COUNTER " P SUKL A3,256 DECREMENT LENGTH 4 P RB(P) BSWT86 MOORE SECTORS? Z P SUK A5,1 MOORE COPIES? ~ P RB(P) BSWT85 YES! * P ST A1,SWBSEC,A10 STORE SECTOR LENGTH 2 P IM STKCOM+SWBCNT INCREMENT SWP-BL
0x2f90d0…2f9264 Dummy {f00=0x013d, f01=0x0190, f02=»5 P LD A8,STKCOM+SWBFSA P CW A8,STKCOM+SWBFSE & ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! B * PBSWT95 ADKL A10,8 START OF NEXT BLOCK n P ADKL A12,2 NEXT POINTER & P ADKL A9,1 INCREMENT BLOCK COUNTER 8 P LD A2,STKEND+SWBNAM CURRENT RECOR
0x2f9264…2f93f8 Dummy {f00=0x013d, f01=0x0190, f02=»ENGTH OF PROT. S:BTAB v P SUK A4,UP:REC DECREMENT P RB(P) BSWT60 MOORE TYPES > . P LD A8,STKCOM+SWBCNT ANY BLOCKS GENERATED? ` P RF(Z) BSWT98 NO! . P LD A8,STKEND+WRK1 ALL SWB TYPES MATCHED? P RF(NP) BSWT99 YES! PBSWT98 LDKL A1
0x2f93f8…2f958c Dummy {f00=0x013d, f01=0x0190, f02=»ADDRESS j * P ST* A9,APLSWB,A10 NUMBER OF SWB TYPES 6 P LD P,STKEND+LIMIT PROCESS NEXT CREDIT APPLICATION > P XIF x P IFF MMUPAG+DSKPAG=0 P EJECT 8 P*************************************************** 8 P*
0x2f958c…2f9720 Dummy {f00=0x013d, f01=0x0190, f02=» * b 8 P* * 8 P* REFERENCED IN: SYSLDM * J 8 P* * 8 P* ENTRY: * 8 P*
0x2f9720…2f98b4 (3, 272) Dummy {f00=0x013d, f01=0x0190, f02=» * v 8 P* WORK REGISTERS: A1-A14 (THEIR ORIGINAL * " 8 P* CONTENTS ARE SAVED ON STACK * ^ 8 P* AND RESTORED BEFORE EXIT) * 8 P*
0x2f98b4…2f9a48 Dummy {f00=0x013d, f01=0x0190, f02=»ERVED. THE FIFTH WORD IN EACH SEGMENT TABLE * 8 P* CONTAINS A POINTER TO THE FIFTH WORD IN NEXT * 6 8 P* EXCEPT THE LAST CONTAINS A PONTER TO THE FIFTH * r 8 P* WORD IN THE NEXT SEGMENT TABLE. ALL OTHER LO- * 8 P* CATIONS CONTAIN ZERO.
0x2f9a48…2f9bdc Dummy {f00=0x013d, f01=0x0190, f02=» * b 8 P* DISK ADDRESS AND LENGTH FOR EACH SEGMENT IS * 8 P* WRITTEN IN CORRESPONDING SEGBLK. THE SEGMENT * J 8 P* TABLE ADDRESS IS STORED IN THE TTAB FOR EACH * 8 P* TASK IN THE APPLICATION. * 8 P*
0x2f9bdc…2f9d70 Dummy {f00=0x013d, f01=0x0190, f02=» $ P CALL PUSH SAVE A1-A14 ON STACK & P CALL FSTAPL GET FIRST APPLICATION 0 " P LDR A9,P GET LIMIT FOR WRITE Z < PBST010 LD A10,STKEND+APCSTA SAVE POINTER TO CURRENT ACB . P CALL NXTAPL GET NEXT APPL. CONTROL BLOCK P RF(NZ) BST020 NOT LAS
0x2f9d70…2f9f04 Dummy {f00=0x013d, f01=0x0190, f02=»ND OF TCTAB ENTRIES t $ PBST040 ST A2,STKEND+TCTEND SAVE P LDR A8,P D 8 PBST045 ADKL A8,BST400-BST045 RELOCATE BRANCH ADDRESS V 2 P LD A5,APLMMP,A10 GET CURRENT APPLICATION TYPE ( P CWK A5,'AS' ASSEMBLER APPLICATION? 2 P ABR(E) A8 YES; DON'
0x2f9f04…2fa098 Dummy {f00=0x013d, f01=0x0190, f02=» SUR A2,A8 2*NUMBER OF TASKS P SRL A2,1 NUMBER OF TASKS $ P ST A2,STKEND+WRK1 SAVE F P ST A2,APLNPE,A10 SAVE f . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK P SLL A3,3 MULTIPLY BY 8 $ P ADK A3,12 INCLUDE 6 FIRST WORDS P LDR A4,A3
0x2fa098…2fa22c Dummy {f00=0x013d, f01=0x0190, f02=»ON WORD t P ANK A2,1 MMU? P RF(Z) BST070 NO & P LDR* A7,A8 GET TTAB ADDRESS > P TL TTB:MT,A7 LOAD MMU TABLE b * PBST070 LD A2,APLLAC,A10 ADDRESS S:GTAB * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( P CALL GETCON GET NUMBER OF SEGMENTS
0x2fa22c…2fa3c0 Dummy {f00=0x013d, f01=0x0190, f02=»A12,SCTSFA GET START OF FREE AREA ( P LDR A2,A11 SAVE CONF. DATA POINTER * P LDR A11,A12 SAVE V * P ADR A11,A3 END OF SEGMENT TABLE AREA p " P CALL CMPADR MEMORY OVERFLOW? P RF(NG) BST100 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x2fa3c0…2fa554 (3, 273) Dummy {f00=0x0145, f01=0x0190, f02=»A' BASIC? P RF(NE) BST200 NO * P LD A2,STKEND+WRK1 GET NUMBER OF TASKS , . P LD A3,SCTNOS GET NUMBER OF SEGMENTS/TASK Z 0 P ADK A3,NBRDPS ADD NUMBER OF DATA PAGES/TASK P CALL MULT MULTIPLY * P LDR A2,A3 GET MAX NUMBER OF SEGMENTS :
0x2fa554…2fa6e8 Dummy {f00=0x0145, f01=0x0190, f02=» P* P* CLEAR SEGMENT TABLE AREA P* 2 0 P LD A2,SCTSFA GET END OF SEGMENT TABLE AREA < & PBST110 SUK A2,2 DECREMENT POINTER p P CMR A2 CLEAR , P CWR A2,A12 START OF SEGMENT TABLE AREA? P RB(NE) BST110 NOT YET . PBST120 ADR
0x2fa6e8…2fa87c Dummy {f00=0x0145, f01=0x0190, f02=»H WORD IN SEGMENT TABLE z 2 P ST A2,8,A12 STORE IN PRECEDING SEGMENT TABLE , P ADR A12,A4 START OF NEXT SEGMENT TABLE V P LDR A2,A12 SAVE P RB BST120 0 PBST200 ST A6,2,A12 STORE NUMBER OF SEGMENTS & P LDR A3,A6 GET NUMBER OF SEGMENTS
0x2fa87c…2faa10 Dummy {f00=0x0145, f01=0x0190, f02=»E ( P ADKL A12,4 ADDRESS SEGMENT BLOCK 0 P LDR A4,A12 SAVE 6 . PBST210 LDKL A2,/8400 STATUS FOR SEGMENT 0 N " P STR A2,A12 STORE IN SEGBLK 0 * P LD A2,APLLAC,A10 GET START OF S:GTAB & P CALL GETCON GET ADDRESS TO P:MTAB P LDR A2,A1
0x2faa10…2faba4 Dummy {f00=0x0145, f01=0x0190, f02=»T START OF S:GTAB | * P ADK A2,10 ADDRESS NUMBER OF SEGMENTS ( PBST220 ADKL A12,8 NEXT SEGMENT BLOCK H P SUK A6,1 ANY MORE SEGMENTS? t P RF(N) BST300 NO P LDK A7,0 INIT STATUS BYTE 2 P ADK A2,2 ADDRESS FIRST ENTRY IN SEGMENT BLOCK . P
0x2faba4…2fad38 Dummy {f00=0x0145, f01=0x0190, f02=»ENT TYPE z ( P CCK A1,'RR' CORE RESIDENT SEGMENT? P RF(E) BST230 YES < " P LD A1,SCTOPT GET OPTION WORD V P ANK A1,2 DISC PAGING? | P RF(NZ) BST240 YES " P XRR A3,A3 CLEAR DISC ADDRESS 4 P LDKL A7,/8800 INDICATE CORE RESIDENT AND LOAD
0x2fad38…2faecc Dummy {f00=0x0145, f01=0x018e, f02=»ED * PBST240 ADK A2,2 DISC ADDRESS BIT 8-23 * P CALL GETCON GET SEGMENT DISC ADDRESS 8 0 P AD A1,APLADA+2,A10 RELOCATE PART 2 OF D. A. f P RF(O) BST250 CARRY P RF BST260 * PBST250 ADK A3,1 INCR. PART 1 OF D. A. . P ANKL A1,/7FFF RES
0x2faecc…2fb060 Dummy {f00=0x0145, f01=0x0190, f02=» P RF(NG) BST270 NO! ( P LDKL A1,LMP10 INDICATE DEVICE ERROR P CALL ERROR J 2 PBST270 ORR A7,A3 MERGE STATUS AND DISC ADDRESS ^ P STR A7,A12 STORE , P ST A1,2,A12 STORE DISC ADDRESS BIT 8-23 $ P ADK A2,2 ADDRESS SEGMENT LENGTH $ P C
0x2fb060…2fb1f4 (3, 274) Dummy {f00=0x0145, f01=0x0190, f02=»T300 CW A8,STKEND+TCTEND LAST TCTAB ENTRY? P RF(E) BST400 YES 2 P LDR* A2,A8 GET TTAB ADDRESS L 0 P ST A4,TTB:SP,A2 STORE SEGMENT TABLE POINTER p * P ADKL A8,2 INCREMENT POINTER IN TCTAB P RB BST300 8 PBST400 LD A1,STKEND+APLNO GET NUMBER
0x2fb1f4…2fb388 Dummy {f00=0x0145, f01=0x0190, f02=»REGISTERS ~ P RTN A14 RETURN P XIF * P IFF SPDVCL+TEDVCL=0 6 P EJECT R L P************************************************************************ ` J P* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES L P**********
0x2fb388…2fb51c Dummy {f00=0x0145, f01=0x0190, f02=»FA - START OF FREE ARE (X) 2 P* CONSTA - START OF CONFIGURATION DATA " ( P* SCTEFA - END OF FREE AREA X P* P* EXIT: P* P* WORK REGISTERS: A1-A12 P* < P* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,E
0x2fb51c…2fb6b0 Dummy {f00=0x0145, f01=0x0190, f02=»RT OF FREE AREA ~ P* 6 P* CHECK IF FIRST BLOCK IS A TASK DEFINITION BLOCK " P* & P CALL FSTAPL GET FIRST APPLICATION f 0 P ST P,STKEND+LIMIT UPDATE END OF SYSTEM AREA , P ST P,STKEND+ECHTAB START OF ECHO TABLE P* P* GET ADD
0x2fb6b0…2fb844 Dummy {f00=0x0145, f01=0x0190, f02=»* . P* GET NUMBER OF TASKS IN THIS TASK CLASS P* < P CALL GETTSK F PDWTS20 EQU * Z P ST A1,STKEND+NBRTSK SAVE n P* * P* GET CORRESPONDING TASK TABLE (TTAB) P* PDWTS25 EQU * " P ADK A7,2 NEXT ENTRY IN TC:TAB
0x2fb844…2fb9d8 Dummy {f00=0x0145, f01=0x0190, f02=»TION BLOCK n P* . P LDR A9,A11 START OF TASK DEFINITION BLOCK , P ADKL A9,TDBFST START OF TDC DEFINITION N P EJECT ~ P* 4 P* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS P* P CALL GETTDC P LDR A6,A1 PDWTS30 EQU
0x2fb9d8…2fbb6c Dummy {f00=0x0145, f01=0x0190, f02=»8,A1 GET CLASS ENTRY $ P LDR* A8,A8 GET POINTER TO CLASS $ P LDR* A8,A8 GET LENGTH OF CLASS D " P SUKL A8,2 EXCLUDE LENGTH WORD l * P ADR A10,A8 INCREMENT POINTER IN TTAB 0 P ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD ( P SUK A6,1 DECREMENT
0x2fbb6c…2fbd00 Dummy {f00=0x0145, f01=0x0190, f02=»GETSDC P ADKL A9,SDCFST-CDBNC P LDR A1,A1 , PDWTS50 EQU * > P RF(Z) DWTS90 R P ST A1,STKEND+NBRSDC SAVE h P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 8 P* GET CORRESPONDING SPECIAL DEVIC
0x2fbd00…2fbe94 (3, 275) Dummy {f00=0x0145, f01=0x0190, f02=»A6,A6 GET POINTER TO CLASS P LDR A5,A6 SAVE " P LDR* A6,A6 GET LENGTH : " P SUK A6,2 EXCLUDE LENGTH WORD X PDWTS60 EQU * ~ P ADK A5,4 GET DEVICE ( P LDR* A1,A5 GET ADDRESS TO TYPE DWT ( P LD A3,DWTLEN,A1 GENERATION OF DWT? P R
0x2fbe94…2fc028 Dummy {f00=0x0145, f01=0x0190, f02=» P CALL CHKMOV COPY DWT P EJECT " P* 0 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM : P* r " P LD A3,SCTOPT GET OPTION WORD | P ANK A3,1 MMU IN SYSTEM? P RF(Z) DWTS65 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P
0x2fc028…2fc1bc Dummy {f00=0x0145, f01=0x0190, f02=» MAKE EVEN ADDRESS " P ST A4,DWTMEC,A2 STORE IT BACK PDWTS65 EQU * @ $ P LDR A1,A2 DT-ADDRESS TO BE USED T PDWTS70 EQU * | P* . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB P* " P ST A1,2,A10 STORE DWT-ADDRESS $ P LD A1,-2,A5
0x2fc1bc…2fc350 Dummy {f00=0x0145, f01=0x0190, f02=»UK A6,4 DECREMENT NUMBER OF DEVICES P RB(P) DWTS60 NEXT DEVICE , P EJECT N P* 4 P* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS f P* P ADKL A9,SDC P LD A1,STKEND+NBRSDC P SUK A1,1 P RB DWTS50 PDWTS90 EQU
0x2fc350…2fc4e4 Dummy {f00=0x0145, f01=0x018e, f02=» RB(P) DWTS20 P* , P* CHECK IF MOORE TASK DEFINITION BLOCKS P* P P CALL NXTBLK Z ( P CCK A2,'TT' TASK DEFINITION BLOCK? n P RB(E) DWTS10 YES & P CALL NXTAPL GET NEXT APPLICATION * P RB(P) DWTS05 PROCESS NEXT APPLICATION
0x2fc4e4…2fc678 Dummy {f00=0x0145, f01=0x0190, f02=» & P LDR A1,P GET LOCATION COUNTER =4 0 PDWTS95 SUK A1,2 DECREMENT MEMORY ADDRESS =4 2 P CMR A1 CLEAR MEMORY AREA =4 f ( P CW A1,SCTSFA ALL WORDS CLEARED? =4 P RB(NE) DWTS95 NO! =4 P RTN A14 RETURN P XIF P IFF TEDVCL=0
0x2fc678…2fc80c Dummy {f00=0x0145, f01=0x0190, f02=»******************************************** 4 P************************************************ 4 P* l P* REFERENCED IN: MONCON v P* P* ENTRY: P* P* EXIT: P* P* WORK REGISTERS: A1-A12 P* D P* SUB
0x2fc80c…2fc9a0 Dummy {f00=0x0145, f01=0x018e, f02=»T FLAG v $ P LD A1,SCTFWT START OF FWT AREA $ P RF(NZ) BDWT15 FWT AREA RESERVED 6 P LD A1,STKEND+LIMIT ^ 8 P ST A1,STKEND+INTTAB START OF T.I.T. IF NO FWT AREA z P IM STKEND+FWTFLG INCREMENT PBDWT15 EQU * P EJECT P* & P*
0x2fc9a0…2fcb34 (3, 276) Dummy {f00=0x0146, f01=0x018e, f02=» P* B P* INIT TC:TAB ENTRY POINTER TO POINT AT FIRST USER TASK ENTRY P* T . P LD A5,APLMMC,A2 GET FIRST USER TASK ENTRY ^ : P ST A5,STKEND+CUTENT STORE IN CURRENT USER TASK ENTRY PBDWT40 EQU * P* . P* GET NUMBER OF TASKS IN TH
0x2fcb34…2fccc8 Dummy {f00=0x0146, f01=0x0190, f02=» P* @ P* GET NUMBER OF TERMINAL DEVICE CLASSES IN THIS TASK CLASS P* R P CALL GETTDC P* p $ P* CHECK IF TASK WITHOUT DEVICES z P* $ P LDR A1,A1 ANY TERMINAL DEVICES? P RF(Z) BDW100 NO : P ST A1,STKEND+NBRTDC SAVE NU
0x2fccc8…2fce5c Dummy {f00=0x0146, f01=0x0190, f02=» P* ( P* GET TERMINAL DEVICE CLASS NUMBER P* : . P LDR A9,A11 START OF TASK DEFINITION BLOCK D 4 P ADKL A9,TDBFST TERMINAL DEVICE CLASS DEFINITION v PBDWT55 EQU * " P CALL GETCLN GET CLASS NUMBER * P ST A1,STKEND+CLANBR SAVE BINARY
0x2fce5c…2fcff0 Dummy {f00=0x0146, f01=0x0190, f02=» CLASS ID h P ADR A2,A2 2*ID ( P LD A7,STKEND+TCLA POINTER TO TCLASS * P ADR A7,A2 GET ENTRY V $ P LDR* A7,A7 GET POINTER TO CLASS r P* @ P* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS P* IN THIS TASK P* ,
0x2fcff0…2fd184 Dummy {f00=0x0146, f01=0x0190, f02=»CK A4,'AA' ASCU4Z CONNECTION? P RF(NE) BDWT58 NO! & . P LDR* A8,A7 YES! GET LENGTH OF THIS CLASS @ $ P SUKL A8,2 EXCLUSIVE LENGTH WORD r P CWK A8,4 ONE DEVICE? P RF(NE) BDWT57 NO! ( P LD A8,4,A7 GET ADDRESS TO PROT.DWT P LD A4,DWT
0x2fd184…2fd318 Dummy {f00=0x0146, f01=0x0190, f02=»N NUMBER n PBDWT58 EQU * . P ADK A1,1 INCREMENT LINE CONNECTION NUMBER $ 4 P CALL BINASC CONVERT INCREMENTED VALUE TO ASCII V ( P SC A1,TDC+5,A9 STORE ASCII DIGIT =2 & P SRL A1,8 MOVE LEFT ASCII DIGIT =2 ( P SC A1,TDC+4,A9 STORE ASCII DIGIT =2
0x2fd318…2fd4ac Dummy {f00=0x0146, f01=0x0190, f02=»ONNECTION NUMBER (BINARY VALUE) , P* A7 - POINTER TO TERMINAL DEVICE CLASS ( P* X . P* THE ENTRY IN TEMPORARY INTERRUPT TABLE b . P* IS DERIVED FROM LINE CONNECTION NUMBER, : P* DEVICE ADDRESS AND TYPE OF DEVICE (INPUT OR OUTPUT) P*
0x2fd4ac…2fd640 Dummy {f00=0x0146, f01=0x0190, f02=»HIS TASK CLASS? x P RF(Z) BDW100 NO . P ST A1,STKEND+NBRTDC SAVE REMAINING NUMBER 0 $ P ADKL A9,TDC+TLC NEXT TDC RECORD b P RB BDWT55 PBDW100 EQU * " P CALL ECHO INIT ECHO POINTERS 4 P LD A1,STKEND+CUTENT GET CURRENT ENTRY IN TC:TAB
0x2fd640…2fd7d4 (3, 277) Dummy {f00=0x0146, f01=0x018e, f02=» Z " P SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 YES . , P* CHECK IF MOORE TASK DEFINITION BLOCKS H P* x $ P CALL NXTBLK SKIP TO NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) BDWT40 YES P EJECT & P CALL NXTA
0x2fd7d4…2fd968 Dummy {f00=0x0146, f01=0x0190, f02=» P EJECT , P**************************************** , P* B:CDT - BUILD COMMON DEVICE TABLE * D , P**************************************** t P* P* REFERENCED IN: SYSLDM P* * P* ENTRY: SCTSFA - START OF FREE AREA 4 P
0x2fd968…2fdafc Dummy {f00=0x0146, f01=0x0190, f02=»TO COMMON DEVICE TABLE v P* P* WORK REGISTERS: A1-A12 ( P* J < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE T P* P EJECT PB:CDT EQU * & P LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH & P
0x2fdafc…2fdc90 Dummy {f00=0x0146, f01=0x0190, f02=»TBLK ( P CCK A2,'TT' TASK DEFINITION BLOCK? P RB(E) CDG:10 YES 8 ( P CCK A2,'CC' COMMON DEV. DEF. BLOCK? R P RF(NE) BCDTEX NO ~ P EJECT P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED
0x2fdc90…2fde24 Dummy {f00=0x0146, f01=0x0190, f02=»L CLASSES h & P CALL GETCTC GET NUMBER OF C.T.C. P LDR A6,A1 SAVE < " PB:CT10 RF(Z) B:CT30 NO MOORE! T . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) z , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER , P LD A5,STKEND+TCLA GET POINTER TO TCLASS
0x2fde24…2fdfb8 Dummy {f00=0x0146, f01=0x0190, f02=» ~ P LDKL A1,LMP4 FORMAT ERROR! P CALL ERROR , , PB:CT20 ADR A1,A5 SELECT ENTRY IN TCLASS @ $ P LDR* A1,A1 GET POINTER TO CLASS p $ P LDR* A1,A1 GET LENGTH OF CLASS " P SUK A1,2 EXCLUDE LENGTH WORD & P ADR A7,A1 INCREMENT CDTAB LENGTH
0x2fdfb8…2fe14c Dummy {f00=0x0146, f01=0x018e, f02=»QU * P* : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES T P* P CALL GETSDC P ADKL A9,SDCFST-CDBNC P LDR A6,A1 PBCDT10 EQU * P RF(Z) BCDTEX P
0x2fe14c…2fe2e0 Dummy {f00=0x0146, f01=0x0190, f02=» P RF(NG) BCDT15 P LDKL A1,LMP4 P CALL ERROR 4 PBCDT15 EQU * H P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS | P LDR* A1,A1 GET LENGTH P SUK A1,2 P ADKL A9,SDC P ADR A7,A1 P SUK A6,1
0x2fe2e0…2fe474 (3, 278) Dummy {f00=0x0146, f01=0x0190, f02=» GET FIRST APPLICATION & PB:CT35 CALL NXTBLK GET NEXT BLOCK ( P CCK A2,'TT' TASK DEFINITION BLOCK? H P RB(E) B:CT35 YES t P EJECT P* < P* RESERV ENTRIES IN COMMON DEVICE TABLE FOR FILE-CODES 6 P* AND DWT-ADDRESSES USED FOR PHYS
0x2fe474…2fe608 Dummy {f00=0x0146, f01=0x0190, f02=»A COMMUNICATION d P* J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS " P* p & P LD A1,SCTDCT DATA COMMUNICATION? z " P LD A6,SCTDMT DATA MANAGEMENT P ORR A6,A1 DM OR DC? " P LD A1,SCTOPT GET OPTION WORD
0x2fe608…2fe79c Dummy {f00=0x0146, f01=0x0190, f02=» GET POINTER TO SCLASS ~ $ P LDR* A1,A6 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD F $ P ADR A6,A1 LAST ENTRY IN SCLASS l * P LDR* A6,A6 GET POINTER TO LAST CLASS ( P LDR* A6,A6 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH W
0x2fe79c…2fe930 Dummy {f00=0x0146, f01=0x0190, f02=»DR A12,A7 P ST A11,STKEND+WRK1 SAVE A11 " P LDR A11,A12 GET END OF CDTAB 6 . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA * P CALL CMPADR CHECK IF MEMORY OVERFLOW P RF(NG) CDG:13 OK * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CAL
0x2fe930…2feac4 Dummy {f00=0x0146, f01=0x018e, f02=» ^ P* ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT * PCDG:15 LCR A2,A11 GET FIRST CHARACTER > . PCDG:16 CCK A2,'TT' TASK DEFINITION BLOCK/ l P RF(NE) CDG:17 NO! P CALL NXTBLK GET NEXT BLCK P RB CDG:16 * PCDG:17 CCK A2,'CC' COMMON DE
0x2feac4…2fec58 Dummy {f00=0x0146, f01=0x0190, f02=» & P CALL NXTAPL GET NEXT APPLICATION $ P RB(P) CDG:15 MORE APPLICATIONS . " P RF CDGEX NO MORE APPLICATIONS V PCDG:19 EQU * | P* > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES P* * P LDR A9,A11 START OF COMMON DEF. B
0x2fec58…2fedec Dummy {f00=0x0146, f01=0x0190, f02=»RMINAL CLASSES? x PB:CT40 RF(Z) B:CT50 NO! P ST A1,STKEND+NBRCOM SAVE 8 ( P CALL GETCLN GET CLASS IDENT NUMBER Z P ST A1,STKEND+CLASID SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER P LDR A6,A1 SAVE 0 P LD A2,STKEND+CLASID GET
0x2fedec…2fef80 Dummy {f00=0x0146, f01=0x0190, f02=»ENTRY IN TCLASS ~ $ P LDR* A7,A7 GET POINTER TO CLASS . P CALL DWTGEN GENERATE DWT:S FOR THIS CLASS @ . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE r . P LD A1,STKEND+NBRCOM GET NUMBER OF C.T.C. P SUK A1,1 DECREMENT COUNTER P RB B:CT40
0x2fef80…2ff114 (3, 279) Dummy {f00=0x0146, f01=0x0190, f02=»A9,SDCFST-CDBNC P LDR A8,A1 PCDG:20 EQU * * P RB(NP) CDG:18 > P* T & P* GET SPECIAL DEVICE CLASS NUMBER ^ P* P CALL GETCLN P* 0 P* GET CORRESPONDING DEVICE CLASS IN SCLASS P* P ADR A1,A1 T , P LD
0x2ff114…2ff2a8 Dummy {f00=0x0146, f01=0x018e, f02=»INTER TO CLASS ~ $ P LDR* A6,A6 GET LENGTH OF CLASS " P SUK A6,2 EXCLUDE LENGTH WORD > PCDG:30 EQU * d P ADK A5,4 NEXT DEVICE x P LDR* A1,A5 GET DWT-ADDRESS ( P LD A3,DWTLEN,A1 GENERATION OF DWT? P RF(Z) CDG:40 NO P* P
0x2ff2a8…2ff43c Dummy {f00=0x0146, f01=0x0190, f02=» P* 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM P* F " P LD A3,SCTOPT GET OPTION WORD P P ANK A3,1 MMU IN SYSTEM? v P RF(Z) CDG:35 NO! ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT ,
0x2ff43c…2ff5d0 Dummy {f00=0x0146, f01=0x0190, f02=» IT BACK z PCDG:35 EQU * " P LDR A1,A2 DWT-ADDRESS TO USE $ PCDG:40 EQU * J P* ^ . P* STORE FILE-CODE AND DWT-ADDRESS IN TTAB h P* " P ST A1,4,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE P ST A1,2,A10 STORE IN TTAB
0x2ff5d0…2ff764 Dummy {f00=0x0146, f01=0x018e, f02=»* , P* CHECK IF MOORE SPECIAL DEVICE CLASSES P* : P ADKL A9,SDC D P SUKL A8,1 X P RB CDG:20 j PCDGEX EQU * | " P LD A1,SCTDMT DATA MANAGEMENT $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT
0x2ff764…2ff8f8 Dummy {f00=0x0146, f01=0x018e, f02=» , P LD A5,STKEND+SCLA GET POINTER TO SCLASS $ P LDR* A1,A5 GET LENGTH OF SCLASS 4 " P SUK A1,2 EXCLUDE LENGTH WORD P ADR A5,A1 GET LAST ENTRY * P LDR* A5,A5 GET POINTER TO LAST CLASS ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2
0x2ff8f8…2ffa8c Dummy {f00=0x0146, f01=0x0190, f02=» P =6 P EJECT J P********************************************************************** H P* DWTGEN - GENERATE DEVICE WORK TABLES FOR A TERMINAL DEVICE CLASS n J P********************************************************************** P
0x2ffa8c…2ffc20 Dummy {f00=0x0146, f01=0x0190, f02=» A6 - LINE CONNECTION NUMBER P* * P* EXIT: 4 P* D P* WORK REGISTERS: A1-A8 N P* n P* SUBROUTINES: I:CHP,MOVE x P* P EJECT PDWTGEN EQU * 4 P ST A6,STKEND+LCNBR SAVE LINE CONNECTION NUMBER ( P LDR* A8,A
0x2ffc20…2ffdb4 (3, 280) Dummy {f00=0x0147, f01=0x0190, f02=»7 GET ADDRESS OF PROTOTYPE DWT 2 P LD A6,STKEND+LCNBR GET LINE CONNECTION NUMBER ( P* ^ P* CHECK CONNECTION TYPE h P* , P LC A4,TDC+6,A9 GET LINE CONNECTION TYPE $ P CCK A4,'SS' SALCUZ CONNECTION? P RF(NE) DWT10 NO! 0 P CAL
0x2ffdb4…2fff48 Dummy {f00=0x0147, f01=0x018e, f02=» CALL I:CHAZ INIT CHANEL PARAMETERS ASCU4Z P RF DWT31 2 * PDWT07 CCK A4,'VV' VCCU1/4 CONNECTION? D P RF(NE) DWT11 r 0 P CALL I:CHVC INIT CHANNEL PARAMETERS VCCU1/4 P RF DWT31 & PDWT11 CCK A4,'PP' PLC CONNECTION? P RF(NE) DWT12 NO
0x2fff48…3000dc Dummy {f00=0x0147, f01=0x0190, f02=» | , P CALL I:CHLT INIT CHANNEL PARAMETERS LT P RF DWT31 8 $ PDWT08 CCK A4,'RR' RT CONNECTION? J P RF(E) DWT09 YES! r ( P LDKL A1,LMP4 INDICATE FORMAT ERROR P CALL ERROR 0 PDWT09 CALL I:CHRT INIT CHANNEL PARAMETERS RT PDWT31 EQ
0x3000dc…300270 Dummy {f00=0x0147, f01=0x0190, f02=»ALREADY GENERATED ON THIS LINE P* & , P LD A4,STKEND+INTTAB GET START OF T.I.T. 0 $ P LDR* A5,A4 GET NUMBER OF BLOCKS ` P SUK A4,2 P LDR A5,A5 PDWT13 EQU * P RF(Z) DWT32 6 P LD A3,STKEND+CONTYP GET LINE AND CONNECTION TYPE
0x300270…300404 Dummy {f00=0x0147, f01=0x0190, f02=»ER OF BLOCKS x P RB DWT13 PDWT15 EQU * & * P LD A2,-2,A4 GET RUN-TIME DWT-ADDRESS : , P LD A6,DWTCP2,A2 GET CHANNEL PARAMETER-2 h $ P ANK A6,/003F GET DEVICE ADDRESS . P LD A3,STKEND+WRK3 GET CHANNEL PARAMETER-2 $ P ANK A3,/003F GET DEVI
0x300404…300598 Dummy {f00=0x0147, f01=0x0190, f02=» AND 9 x & P LD A3,DWTST,A1 GET DEVICE STATUS " P ANK A3,/00C0 GET BITS 8 AND 9 8 P SUR A3,A6 EQUAL? ^ P RB(NE) DWT14 x $ P LD A6,DWTTAB,A2 GET DEVICE TYPE $ P ANKL A6,/8000 ISOLATE ECHO BIT $ P LD A3,DWTTAB,A1 GET DEVICE TYPE $ P A
0x300598…30072c Dummy {f00=0x0147, f01=0x0190, f02=»A1,STKCOM+M:REL P ABR A1 PDWT32 EQU * ( ( P LDR A5,A12 GET RUN TIME DWT-ADDRESS < * P CALL B:TTAB BUILD ONE BLOCK IN T.I.T. h P* P* COPY DEVICE TYPE DWT P* P LDR A2,A12 TO-ADDRESS P LD A3,DWTOR,A1 LENGTH P A
0x30072c…3008c0 Dummy {f00=0x0147, f01=0x0190, f02=» REAL DWT ~ P* P LD A6,STKEND+WRK4 P LD A5,STKEND+WRK3 6 * P STR A6,A2 STORE CHANNEL PARAMETERS -1 P 0 P ST A5,DWTCP2,A2 STORE CHANNEL PARAMETERS -2 ~ P* P* CHECK IF INPUT DEVICE P* P LD A3,2,A1 GET DWT STATUS P
0x3008c0…300a54 (3, 281) Dummy {f00=0x0147, f01=0x0190, f02=»A3,DWTADR,A1 P LD A3,DEVIND,A3 P CWK A3,6 . P RF(NE) DWT60 NOT KEYBOARD @ P* b P* INPUT DEVICE = KEYBOARD l P* IF ECHO: P* , P* STORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEV
0x300a54…300be8 Dummy {f00=0x0147, f01=0x0190, f02=»CHTAB GET LENGTH OF ECHO DEVICE TABLE ( P RF(NZ) DWT392 NOT FIRST ECHO DEVICE . 2 P ADK A3,2 INCLUDE LENGTH OF ECHO DEVICE TABLE Z PDWT392 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR
0x300be8…300d7c Dummy {f00=0x0147, f01=0x0190, f02=»B SAVE NEW LENGTH | P EJECT PDWT40 EQU * ( P* < 2 P* RELOCATE POINTERS TO CIRCULAR INPUT BUFFER F P* | P LDR A5,A2 GET DWT-ADDRESS 2 P ADKL A5,DWTSQ DISPLACEMENT TO START OF BUFFER $ P ST A5,DWTSQ-4,A2 STORE POINTER $ P S
0x300d7c…300f10 Dummy {f00=0x0147, f01=0x0190, f02=» TABLE V 6 P* IN ENTRY CORRESPONDING TO SECOND DEVICE ADDRESS P* H 2 P LD A3,DWTDEV,A1 GET DEVICE STATUS OF TYPE DWT R ( P ANK A3,/FF GET EIGTH RIGHTMOST BITS $ P RF(Z) DWT60 NOT DOUBLE KEYBOARD $ P LDR A5,A2 GET REAL DWT-ADDRESS P ADK
0x300f10…3010a4 Dummy {f00=0x0147, f01=0x0190, f02=» P EJECT PDWT45 CALL DWT50 P RF DWT60 . PDWT50 EQU * @ P* T P* OUTPUT DEVICE* ^ , P* IF BIT 0 IN SIXTH WORD IN DWT IS SET x 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTI
0x3010a4…301238 Dummy {f00=0x0147, f01=0x0190, f02=»DWT59 NO ECHOING ON THIS DEVICE : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE ( & P RF(NZ) DWT55 ALREADY INITIALIZED! f P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY . P STR A1,
0x301238…3013cc Dummy {f00=0x0147, f01=0x0190, f02=»+ECHTAB STORE NEW LENGTH PDWT59 RTN A14 PDWT60 EQU * 6 P* J P* CHECK IF PAGING T P* n " P LD A5,SCTOPT GET OPTION WORD x P ANK A5,1 MMU PAGING? P RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS
0x3013cc…301560 Dummy {f00=0x0147, f01=0x018e, f02=» h $ P ANKL A5,/FFFE MAKE EVEN ADDRESS " P ST A5,DWTMEC,A2 STORE IT BACK 0 P* V < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED ` P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $
0x301560…3016f4 (3, 282) Dummy {f00=0x0147, f01=0x0190, f02=» , P LD A5,DWTMEC,A2 GET MONITOR ECB-ADDRESS ( P LDR A3,A12 INTERNAL BUFFER ADDRESS 8 P ADK A3,1 d , P ANKL A3,/FFFE MAKE SURE OF EVEN ADDRESS x P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH & P ADK A3,3 ADD BO FERMS CONSTANT+1 ,
0x3016f4…301888 Dummy {f00=0x0147, f01=0x0190, f02=» SIZE OF BUFFER RESERVED FOR SYSLOD PART A. 4 P* IF YES,THAN STORE THE ADDRESS AND SIZE OF THE 4 , P* INTERNAL BUFFER IN SYSBUF AND BUFSIZ. l P* P CW A3,STKCOM+BUFSIZ P RF(NG) DWT65 P ST A3,STKCOM+BUFSIZ P ST A12,STKCOM+SYS
0x301888…301a1c Dummy {f00=0x0147, f01=0x0190, f02=»WT-ADDRESS IN TTAB x P* " P ADKL A10,2 NEXT ENTRY IN TTAB $ " P LDR* A5,A7 GET INDEX/FILECODE J * P STR A5,A10 STORE IN TASK CONF. TABLE p " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS P* , P* CHECK IF MOORE DE
0x301a1c…301bb0 Dummy {f00=0x0147, f01=0x0190, f02=»TKCOM+M:REL P ABR A1 PDWTEX EQU * $ P RTN A14 8 P EJECT H P* V 6 P* SCAN ECHO DEVICE TABLE - FOR EVERY COINCIDENCE ` 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: 0
0x301bb0…301d44 Dummy {f00=0x0147, f01=0x0190, f02=» CLEAR POINTERS OF t P* SECOND POINTER-SET. 8 P* WHEN ALL POINTER-SET HAS BEEN SCANNED,THE LENGTH 8 ( P* OF ECHO DEVICE TABLE IS CLEARED. t P* > PECHO LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE " P RF(Z) DWT160 NO ECHO DEVICE
0x301d44…301ed8 Dummy {f00=0x0147, f01=0x0190, f02=» A1,2 BYPASS LENGTH < PDWT90 LD A2,STKEND+ECHTAB GET START OF ECHO DEVICE TABLE P ADK A2,2 BYPASS LENGTH 6 PDWT100 LD A4,2,A1 GET SECOND POINTER IN FIRST SET | > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 CO
0x301ed8…30206c Dummy {f00=0x0147, f01=0x0190, f02=» RF DWT140 : PDWT130 LD A4,2,A2 ADDRESS TO OUTPUT DEVICE RUNTIME-DWT 4 P LDR* A2,A1 ADDRESS TO INPUT DEVICE RUNTIME-DWT P 8 P ST A4,DWTECH,A2 STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER " P CM 2,A1 CLEAR SECOND POINTER
0x30206c…302200 Dummy {f00=0x0147, f01=0x0190, f02=»HTAB CLEAR LENGTH | PDWT160 RTN A14 RETURN P =6 8 P IFT DC=1 F P EJECT X < P******************************************************* f < P* * < P* B:CNA BUILD COMPUTER NETWORK
0x302200…302394 (3, 283) Dummy {f00=0x0147, f01=0x018e, f02=» * f < P* SCANS POSSIBLE D-BLOCK IN CONFIGURATION DATA * < P* AND BUILDS DATA COMMUNICATION TABLE IN MEMORY. * V < P* TABLE START IS DEFINED BY THE POINTER SCTDCT * < P* IN SYSTAB.
0x302394…302528 Dummy {f00=0x0147, f01=0x0190, f02=» V < P* * < P* REFERENCED IN: CONMON * H < P* SUBROUTINES CALLED: GETDTE, P:DTE * < P* WORK REGISTERS: A1-A12 * < P
0x302528…3026bc Dummy {f00=0x0147, f01=0x0190, f02=» P PB:CNA EQU * P LD A11,DCBLK+STKCOM $ * P RF(Z) B:CN20 NO DATA COMMUNICATION =1 @ P* n < P AD A11,CONSTA+STKCOM GET D BLOCK ADDRESS IN CONF. DATA x * P LD A12,SCTSFA GET START OF FREE AREA ( P ST A12,SCTDCT UPDATE SYSTAB POINT
0x3026bc…302850 Dummy {f00=0x0147, f01=0x0190, f02=»F SDTE RECORD r PB:CN00 EQU * P SUK A1,1 * 2 P RF(N) B:CN10 NO DTE BLOCKS LEFT IN CONF. DATA < P* r . P ST A1,NUMDTE+STKEND SAVE NO OF DTE:S LEFT | , P ADKL A11,5 ADVANCE TO 1ST CHAR. IN NAME & P CALL P:DTE PROCESS THIS DTE BLOCK 2 P
0x302850…3029e4 Dummy {f00=0x0147, f01=0x0190, f02=»QU * P CM 0,A12 AND RESET IT P ADKL A12,2 * , P ST A12,SCTSFA UPDATE START OF FREE AREA > PB:CN20 EQU * =1 n P RTN A14 P EJECT < P******************************************************* < P*
0x3029e4…302b78 Dummy {f00=0x0147, f01=0x018e, f02=»======== * f < P* * < P* SCANS DTE BLOCK IN CONF. DATA AND BUILDS CORRE- * V < P* SPONDING DTE-BLOCK IN SCTDCT. IF MULTIPLE COPIES * < P* ARE DEFINED CURRENT DTE IS DUPLICATED THE NO O
0x302b78…302d0c Dummy {f00=0x0147, f01=0x0190, f02=» V < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN * < P* SDTE NAME IN CONF. DATA * H < P* A12 POINTER TO START OF CURRENT * < P* DTE BLOCK IN SCTDCT TABLE * < P
0x302d0c…302ea0 Dummy {f00=0x0147, f01=0x0190, f02=» PROCESSED DTE-BLOCK IN CONF. DATA * < P* A12 POINTER TO LAST DEFINED DTE-BLOCK * 8 < P* DEFINED IN SCTDCT TABLE * x < P* * < P* REFERENCED I
0x302ea0…303034 (3, 284) Dummy {f00=0x0148, f01=0x0190, f02=» AND MOVE * x < P* * ( < P******************************************************* h P P PP:DTE EQU * * P LDKL A1,/3000 INITIALIZE NAME FILLER , P LC A1
0x303034…3031c8 Dummy {f00=0x0148, f01=0x0190, f02=»PE RECORD? x P RF(E) PDTE00 YES! P* , & P SLL A1,8 NO LEFT ADJUST CHAR. AND 6 $ P LC A1,1,A11 GET NEXT CHARACTER ` P ADKL A11,1 PPDTE00 EQU * , P ST A1,DTENAM+STKEND SAVE NAME IN STACK " P CALL GETCOP GET NO OF COPIES " P S
0x3031c8…30335c Dummy {f00=0x0148, f01=0x0190, f02=»ER t P LC A1,2,A11 & P ST A1,DTETYP+STKEND SAVE IN STACK P ADKL A11,2 H ( P LDK A2,0 RESET NETWORK ADDR. LENGTH P CALL ENDBLK END OF D-BLOCK? P LDR A8,A8 P RF(Z) PDTE05 YES! P* . P LC A7,NANSA,A11 GET NA-NSA-SDTE QUALI
0x30335c…3034f0 Dummy {f00=0x0148, f01=0x0190, f02=»T A11,NASTRT+STKEND SAVE ADDRESS & P CALL P:NA PROCESS NETWORK ADDRESS ! ( P LC A7,2,A11 ! R PPDTE05 EQU * ! f * P ST A2,NALNG+STKEND SAVE LENGTH OF NA ! z P LDK A1,0 ! P CALL ENDBLK END OF D-BLOCK? ! P LDR A8,A8 ! P RF(Z) PDTE07 YES! !
0x3034f0…303684 Dummy {f00=0x0148, f01=0x0190, f02=»TNSA ! * P ADKL A11,2 SKIP NSA NR IN CONF. DATA " PPDTE07 EQU * " : 2 P ST A1,DTENSA+STKEND SAVE NO OF SUBADDR. DEF. " N $ P CWK A1,/FF LOOK IF LEGAL NUMBER " P RF(NG) PDTE10 YES! " P* " PNSAERR EQU * " * P LDKL A1,LMP4 NO, ERROR IN CONF. F
0x303684…303818 Dummy {f00=0x0148, f01=0x0190, f02=»END SAVE ADDR. OF 1ST SUBADDR. " ~ P SLL A1,1 # & . P ADR A11,A1 CALCULATE STAT OF NEXT RECORD # 8 PPDTE15 EQU * # j 2 P CALL DTESIZ CALCULATE SIZE OF THIS DTE BLOCK # ~ ( P CALL UPDDTE UPDATE DTE BLOCK IN DCT # * P LD A7,DTECOP+STKEND GET NO OF COPIES #
0x303818…3039ac Dummy {f00=0x0148, f01=0x0190, f02=» * P LD A4,DTENAM+STKEND GET PREVIOUS NAME $ P LDR A3,A4 $ 2 * P ANK A3,/FF ISOLATE RIGHT BYTE OF NAME $ D P CWK A3,/5F UPPER BOUNDARY? $ r P RF(L) PDTE25 NO! $ P* $ , P LC A4,/30 RESET RIGHT BYTE TO ASCII '0' $ & P SLL A5,8 LEFT BYTE INCREMENTA
0x3039ac…303b40 Dummy {f00=0x0148, f01=0x0190, f02=»OCK? $ x P LDR A8,A8 % P RF(Z) PDTE35 YES! % P* % 8 . P LC A1,2,A11 GET 2ND CHAR. IN NEXT RECORD % B 0 P CCK A1,'DD' IF A SDTE-RECORD USE OLD ADDR. % t P RF(E) PDTE35 % P* % P CCK A1,'SS' IF NSA RECORD % * P RF(E) PDTE30 USE OLD NETWORK
0x303b40…303cd4 (3, 285) Dummy {f00=0x0148, f01=0x0190, f02=»RESS % r * P ST A2,NALNG+STKEND SAVE LENGTH OF NA & P* & : P CALL ENDBLK END OF D-BLOCK? & D P LDR A8,A8 & h P RF(Z) PDTE35 YES! & z P* & P LC A1,2,A11 & P CCK A1,'SS' & ( P RF(NE) PDTE35 NO NSA RECORD PRESENT & P* & PPDTE30 EQU *
0x303cd4…303e68 Dummy {f00=0x0148, f01=0x018e, f02=»2 & P LDR A1,A1 ' P RF(Z) PDTE35 NO SUBADDRESSE ' P* ' @ P CWK A1,/FF ' J , P RB(G) NSAERR TOO MANY SUBADDR. DEFINED ' ^ P* ' 4 P ST A11,NSAADR+STKEND SAVE START OF 1ST SUBADDR. ' P SLL A1,1 ' . P ADR A11,A1 CALCULATE START OF NEXT RE
0x303e68…303ffc Dummy {f00=0x0148, f01=0x0190, f02=» P CALL UPDDTE ( P RB PDTE20 ( P* ( * PPDTE40 EQU * ( 4 P RTN A14 ( H P EJECT ( X < P******************************************************** ( f < P* * ( < P* DTESIZ CALCULATES THE LENGTH
0x303ffc…304190 Dummy {f00=0x0148, f01=0x018e, f02=» * ( f < P* ON ENTRY: A12 START OF CURRENT DTE BLOCK * ) < P* * ) V < P* WORK REGISTER: A1,A9 * ) < P*
0x304190…304324 Dummy {f00=0x0148, f01=0x0190, f02=» ) z 6 P LD A1,NALNG+STKEND GET LENGTH OF NETWORK ADDRESS * P ADK A1,1 * B $ P SRL A1,1 2 DIGITS IN EACH BYTE * T , P AD A1,DTENSA+STKEND ADD NO OF SUBADDR. * | . P ADK A1,DTEFIX+1 AND LENGTH OF FIX PART+1 * P ANKL A1,/FFFE MAKE EVEN * ( P ADR A1,A1
0x304324…3044b8 Dummy {f00=0x0148, f01=0x0190, f02=»1,LIMIT+STKEND GET END OF SYSTEM AREA * " P CALL CMPADR MEMORY OVERFLOW? + . P RF(NL) DTSIZ0 NO! + T P* + n P LDKL A1,LMP3 YES! + x P CALL ERROR + P* + PDTSIZ0 EQU * + 6 P LD A11,WRK1+STKEND RESTORE POSITION IN CONF. DATA + P RTN A14 +
0x3044b8…30464c Dummy {f00=0x0148, f01=0x0190, f02=» * + < P* UPDDTE UPDATES CURRENT DTE BLOCK WITH ITS: * , < P* ====== * , L < P* NAME * , < P* TYPE * ,
0x30464c…3047e0 Dummy {f00=0x0148, f01=0x0190, f02=» * , < P******************************************************** - < P - | P - PUPDDTE EQU * - 4 P LDR A6,A12 GET START OF CURRENT DTE BLOCK ENTRY - P ADK A6,2 SKIP LINK ENTRY - , P LD A1,DTENAM+
0x3047e0…304974 (3, 286) Dummy {f00=0x0148, f01=0x0190, f02=» P STR A1,A6 AND SAVE IN DCT . P ADK A6,2 . & P LDK A5,4 GET NO OF SHIFTS . 8 . P ORKL A5,SLL0 AND CONFIG. SLL A1,8 INSTR. . Z 4 P LD A2,NALNG+STKEND GET LENGTH OF NETWORK ADDR. . $ P LDR A3,A2 SAVE NO OF CHARACTERS . P SLL A2,8 LEFT ADJUST . ,
0x304974…304b08 Dummy {f00=0x0148, f01=0x0190, f02=»D PACK NA TO DCT . | $ P ANKL A5,/1F ISOLATE SHIFT COUNT / & P CWK A5,4 LESS THAN ONE BYTE LEFT? / @ P RF(NG) UPDTE2 YES! / j PUPDTE0 EQU * / P LDK A5,0 SET NO OF SHIFTS / P RF UPDTE4 / P* / PUPDTE2 EQU * / P STR A2,A6 STORE WORD IN DCT
0x304b08…304c9c Dummy {f00=0x0148, f01=0x0190, f02=» ORKL A5,SLL0 CONFIGURE SSL A1,N INSTR. / 4 P LD A1,DTENSA+STKEND GET NO OF SUBADDR. DEFINED 0 0 & P RF(Z) UPDTE8 NO SUBADDR. DEFINED 0 h P* 0 4 P LD A4,NSAADR+STKEND GET ADDRESS TO 1ST SUBADDR. 0 P LDR A3,A1 0 * P SLL A3,1 2 DIGITS FOR EACH SUDADD
0x304c9c…304e30 Dummy {f00=0x0148, f01=0x0190, f02=» 0 P STR A2,A6 YES! SAVE IN DCT 1 P LDK A2,0 CLEAR TABLE WORD 1 , " P ADK A6,2 ADVANCE DCT POINTER 1 N P LDK A5,16 NO OF SHIFTS 1 t , P ORKL A5,SLL0 CONFIGURE SLL A1,12 INSTR. 1 PUPDTE6 EQU * 1 P SUK A5,4 NEXT NIBBLE 1 ( P CALL HEXCPY COPY
0x304e30…304fc4 Dummy {f00=0x0148, f01=0x018e, f02=»************** 1 f < P* * 2 < P* HEXCPY COPIES AND PACKS 4 HEXADECIMAL DIGITS * 2 V < P* IN ONE WORD. * 2 < P*
0x304fc4…305158 Dummy {f00=0x0148, f01=0x0190, f02=» 2 V < P* A4 ADDRESS TO FIRST ASCII DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 3 H < P* A6 POINTER WHERE TO STORE PACKED WORD * 3 < P* * 3 < P
0x305158…3052ec Dummy {f00=0x0148, f01=0x0190, f02=» PROCESSED DIGIT * 3 < P* A5 PACKING INSTR. (SLL A1,N TIMES) * 4 8 < P* A6 POINTER WHERE TO STORE NEXT WORD * 4 x < P* * 4 < P****************
0x3052ec…305480 Dummy {f00=0x0148, f01=0x0190, f02=» 4 v P CALL HEXCNV CONVERT TO HEX 5 P EXR A5 SHIFT 5 , " P ORR A2,A1 CONFIGURE DCT WORD 5 B ( P SUK A3,1 DECREMENT NO OF CHARACTERS 5 h $ P RF(Z) HXCPY8 WHOLE NA PROCESSED 5 P* 5 P CWK A5,SLL0 FULL WORD? 5 P RF(NE) HXCPY6 NO! 5 P* 5
0x305480…305614 (3, 287) Dummy {f00=0x0148, f01=0x0190, f02=» 5 x , P ORKL A5,SLL0 CONFIGURE SSL A1,16 INSTR. 6 PHXCPY6 EQU * 6 8 P SUK A5,4 NEXT NIBBLE 6 L * P ADK A4,1 NEXT CHARACTER IN CONF. DATA 6 j P RB HEXCPY 6 P* 6 PHXCPY8 EQU * 6 P RTN A14 6 P EJECT 6 < P**********************************
0x305614…3057a8 Dummy {f00=0x0148, f01=0x018e, f02=»N ASCII CODE * 6 f < P* TO CORRESPONDING HEXADECIMAL VALUE * 7 < P* (4 BITS BINARY CODE) * 7 V < P* * 7 < P* ON ENTRY: A1 CHARACTER TO CONVERT
0x3057a8…30593c Dummy {f00=0x0148, f01=0x0190, f02=» 7 V < P* * 8 < P******************************************************** 8 H P 8 P 8 PHEXCNV EQU * 8 " P ANK A1,/FF ISOLATE CHARACTER 8 P CWK A1,/29 8 P RF(L) TYPERR ERRANEOUS TY
0x30593c…305ad0 Dummy {f00=0x0148, f01=0x0190, f02=» CWK A1,/46 DIGIT BETWEEN A-F? 8 P RF(G) TYPERR NO 9 & P* 9 > P ADK A1,9 YES! 9 H PHXCN00 EQU * 9 ^ " P ANK A1,/F ISOLATE HEX NUMBER 9 r P RTN A14 9 P* 9 PTYPERR EQU * 9 " P LDKL A1,LMP4 CONF. DATA ERROR 9 P CALL ERROR 9 P EJECT 9
0x305ad0…305c64 Dummy {f00=0x0148, f01=0x0190, f02=» P:NA PROCESS NETWORK ADDRESS * 9 < P* * : > < P* SCANS THE NETWORK ADDRESS RECORD (NA=..) IN CONF. * : ~ < P* DATA AND REPACKS THE RECORD, OVERWRITING POSSIBLE * : < P* CONTIN
0x305c64…305df8 Dummy {f00=0x0148, f01=0x0190, f02=» * : ~ < P* * ; . < P* ON ENTRY: A11 ADDRESS TO 1ST CHARACTER IN NETWORK * ; n < P* ADDRESS. * ; < P*
0x305df8…305f8c Dummy {f00=0x0148, f01=0x0190, f02=»ORD IN CONF. DATA * ; n < P* * < < P******************************************************** < ^ P < P < PP:NA EQU * < $ P LDK A4,1 RESET PACKING CONSTANT < " P LDK A2,0 RESET ADDRESS
0x305f8c…306120 Dummy {f00=0x0148, f01=0x0190, f02=»:NA06 END OF CONF. DATA < P* = P CCK A1,/FF END OF D-BLOCK? = * P RF(E) P:NA05 YES! = N P* = h & P CCK A1,'==' CONTINUATION RECORD? = r P RF(E) P:NA04 YES! = P* = . P CCK A1,'NN' NO! START OF NA OR NSA RECORD = P RF(E) P:NA06 YES! RET
0x306120…3062b4 (3, 288) Dummy {f00=0x0149, f01=0x0190, f02=»H = l P CWK A2,/FF TOO MANY DIGITS? > P RF(NG) P:NA02 NO! > . P* > H * P LDKL A1,LMP4 YES! ERROR IN CONF. DATA > R P CALL ERROR > PP:NA02 EQU * > P LDR A3,A4 > " P ADR A3,A11 REPACKING ADDRESS > * P SCR A1,A3 PUT CHARACTER BACK IN FILE >
0x3062b4…306448 Dummy {f00=0x0149, f01=0x0190, f02=»R > d $ P SUK A4,2 SET REPACKING CONSTANT ? * P ADKL A11,1 ADVANCE TO NEXT CHARACTER ? 2 P RB P:NA00 ? ` P* ? r PP:NA05 EQU * ? | " P SUK A2,1 DECREMENT NA LENGTH ? * P SUKL A11,1 AND POSITION IN CONF. DATA ? P* ? PP:NA06 EQU * ? P RTN A
0x306448…3065dc Dummy {f00=0x0149, f01=0x0190, f02=» * ? h < P* ENDBLK LOOKS FOR END OF DATA COMMUNICATION BLOCK * @ < P* ================================================= * @ X < P* * @ < P* END OF BLOCK IS DEFINED BY A RECORD BEGINNIN
0x3065dc…306770 Dummy {f00=0x0149, f01=0x0190, f02=» @ X < P* CONFIGURATION DATA. * A < P* * A H < P* ON ENTRY: A11 CURRENT POSITION IN CONF. DATA * A < P* * A < P
0x306770…306904 Dummy {f00=0x0149, f01=0x0190, f02=» * A < P******************************************************** B 8 P B x P B PENDBLK EQU * B $ P LC A8,1,A11 GET NEXT CHARACTER B " P CCK A8,/00 END OF CONF. DATA? B P RF(E) ENDBL0 YES! B P* B
0x306904…306a98 Dummy {f00=0x0149, f01=0x018e, f02=»8,A8 SET END OF D-BLOCK COND. B PENDBL2 EQU * C & P RTN A14 C : P XIF C J P EJECT C V 2 P********************************************* C d 2 P* I:CHSZ - INIT CHANNEL PARAMETERS SALCUZ * C 2 P********************************************* C P*
0x306a98…306c2c Dummy {f00=0x0149, f01=0x0190, f02=» C j * P* A6 - LINE CONNECTION NUMBER D P* D 6 * P* EXIT: A6 - CHANNEL PARAMETER - 1 D @ * P* A5 - CHANNEL PARAMETER - 2 D n . P* A3 - BITS 12-15 CONNECTION TYPE D * P* BITS 4 -11 LINE NUMBER D P* WORK REGI
0x306c2c…306dc0 Dummy {f00=0x0149, f01=0x0190, f02=» P RF(G) NUMERR NO! E $ P CWK A6,1 CONNECTION NUMBER >=1? E P RF(L) NUMERR NO! E F , P SUK A6,1 MODIFY LINE CONNECTION NUMBER E ` 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT E $ P ANK A5,/3F CLEAR BITS TO MODIFY E 0 P LDR A3,A6 GET MODIFY LINE C
0x306dc0…306f54 (3, 289) Dummy {f00=0x0149, f01=0x0190, f02=»TYPE SALCUZ E r P RTN A14 RETURN F P XIF F , P IFT SALCUZ=0 F 8 P LDKL A1,LMP4 F N P CALL ERROR F d P XIF F x P EJECT F : P***************************************************** F 2 P* I:CHAZ - INIT CHANNEL PARAMETERS ASCU4Z * F : P**
0x306f54…3070e8 Dummy {f00=0x0149, f01=0x018e, f02=»TO PROTOTYPE DWT F x ( P* A2 - POINTER TO REAL DWT G ( P* A4 - LINE CONNECTION TYPE G D * P* A6 - LINE CONNECTION NUMBER G p P* G * P* EXIT: A6 - CHANNEL PARAMETER - 1 G * P* A5 - CHANNEL PARAMETER - 2 G . P*
0x3070e8…30727c Dummy {f00=0x0149, f01=0x018e, f02=» P* SUBROUTINES: H P* H PI:CHAZ EQU * H & P IFF ASCU4Z=0 H : & P CWK A6,32 CONNECTION NUMBER <=32? H P P RF(G) NUMERR NO! H z $ P CWK A6,1 CONNECTION NUMBER >=1? H P RF(L) NUMERR NO! H , P SUK A6,1 MODIFY LINE CONNECTION NUMBER H 0 P L
0x30727c…307410 Dummy {f00=0x0149, f01=0x018e, f02=» H b P ANK A3,3 GET BITS 14-15 I & P SLL A3,8 MOVE TO BITS TO BITS 6-7 I ( & P ORR A5,A3 MERGE WITH OLD CONTENTS I R 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER I | P SLL A3,4 I , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER I P SRL A6,2 MOVE TO BI
0x307410…3075a4 Dummy {f00=0x0149, f01=0x0190, f02=» P IFT ASCU4Z=0 J P LDKL A1,LMP4 J P CALL ERROR J 0 P XIF J D P EJECT J P : P***************************************************** J ^ 2 P* I:CHAZ - INIT CHANNEL PARAMETERS VCCU1/4 * J : P*****************************************************
0x3075a4…307738 Dummy {f00=0x0149, f01=0x0190, f02=»EAL DWT J t ( P* A4 - LINE CONNECTION TYPE K * P* A6 - LINE CONNECTION NUMBER K < P* K j * P* EXIT: A6 - CHANNEL PARAMETER - 1 K t * P* A5 - CHANNEL PARAMETER - 2 K . P* A3 - BITS 12-15 CONNECTION TYPE K * P*
0x307738…3078cc Dummy {f00=0x0149, f01=0x0190, f02=» P IFF VIDEO=0 L & P CWK A6,32 CONNECTION NUMBER <=32? L P RF(G) NUMERR NO! L B $ P CWK A6,1 CONNECTION NUMBER >=1? L P RF(L) NUMERR NO! L , P SUK A6,1 MODIFY LINE CONNECTION NUMBER L 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT L $ P ANK A
0x3078cc…307a60 Dummy {f00=0x0149, f01=0x0190, f02=»BITS TO BITS 6-7 L ~ & P ORR A5,A3 MERGE WITH OLD CONTENTS M 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER M B P SLL A3,4 M x , P ANK A6,/1C GET BITS 11-13 BOARD NUMBER M P SRL A6,2 MOVE TO BITS 12-15 M * P ADK A3,7 ADD CONNECTION TYPE VCCU1/4 M
0x307a60…307bf4 (3, 290) Dummy {f00=0x0149, f01=0x0190, f02=» M P XIF N P EJECT N . P****************************************** N " . P* I:CHPC - INIT CHANNEL PARAMETERS PLC * N T . P****************************************** N P* N P* REFERENCED IN: DWTGEN N P* N , P* ENTRY: A1 - POINTER TO P
0x307bf4…307d88 Dummy {f00=0x0149, f01=0x0190, f02=»CHANNEL PARAMETER - 1 N * P* A5 - CHANNEL PARAMETER - 2 O . P* A3 - BITS 12-15 CONNECTION TYPE O L * P* BITS 4 -11 LINE NUMBER O ~ P* O P* WORK REGISTERS: O P* SUBROUTINES: O P* O PI:CHPC EQU * O P I
0x307d88…307f1c Dummy {f00=0x0149, f01=0x0190, f02=»UMERR NO! O P SUK A6,1 P 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT P $ $ P ANK A5,/3F CLEAR BITS TO MODIFY P X * P LDR A3,A6 GET LINE CONNECTION NUMBER P P ANK A3,/1F GET BITS 11 - 15 P P ADK A3,1 P P SLL A3,8 MOVE TO BITS 2 - 7 P & P
0x307f1c…3080b0 Dummy {f00=0x0149, f01=0x0190, f02=» P r & P ADK A3,5 ADD CONNECTION TYPE PLC Q , P ANK A6,/60 GET BITS 9 - 10 BOARD NUMBER Q 2 " P SRL A6,5 MOVE TO BITS 12 - 15 Q b * P ADKL A6,/0500 ADD CONNECTION TYPE PLC Q P RTN A14 Q P XIF Q P IFT PLCL=0 Q P LDKL A1,LMP4 Q P CALL ERROR
0x3080b0…308244 Dummy {f00=0x0149, f01=0x0190, f02=»******************************* Q P* R ( P* REFERENCED IN: DWTGEN R 2 P* R R , P* ENTRY: A1 - POINTER TO PROTOTYPE DWT R ( P* A2 - POINTER TO REAL DWT R * P* A6 - LINE CONNECTION NUMBER R P* R * P* EXIT: A6 - CHANNEL
0x308244…3083d8 Dummy {f00=0x0149, f01=0x0190, f02=»TS 4-11 LINE NUMBER R ~ P* S P* WORK REGISTERS: S & P* S @ P* SUBROUTINES: S J P* S b P EJECT S l PI:CHLT EQU * S z P IFF SUML=0 S * P CWK A6,0032 CONNECTION NUMBER <= 32? S P RF(G) NUMERR NO! S ( P CWK A6,0001 CONNECTION NUMBER
0x3083d8…30856c Dummy {f00=0x0149, f01=0x0190, f02=» ( P ANKL A5,/003F CLEAR BITS TO MODIFY T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T 0 P ANK A3,7 GET BITS 13-15 T f P SLL A3,8 MOVE TO BITS 5-7 T & P ORR A5,A3 MERGE WITH OLD CONTENTS T 2 P LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER T P
0x30856c…308700 Dummy {f00=0x0149, f01=0x0190, f02=» LDKL A1,LMP4 T P CALL ERROR U P XIF U * P EJECT U 6 . P***************************************** U D . P* I:CHRT - INIT CHANNEL PARAMETERS RT * U v . P***************************************** U P* U P* REFERENCED IN: DWTGEN U P* U
0x308700…308894 (3, 291) Dummy {f00=0x0149, f01=0x0190, f02=» U j P* V * P* EXIT: A6 - CHANNEL PARAMETERS - 1 V * P* A5 - CHANNEL PARAMETERS - 2 V @ . P* A3 - BITS 12-15 CONNECTION TYPE V n * P* BITS 4-11 LINE NUMBER V P* V P* WORK REGISTERS: V P* V P* SUBROUTIN
0x308894…308a28 Dummy {f00=0x0149, f01=0x0190, f02=»NO! V ( P CWK A6,0001 CONNECTION NUMBER >=1? W P RF(L) NUMERR NO! W 8 , P SUK A6,1 MODIFY LINE CONNECTION NUMBER W R 0 P LD A5,DWTCP2,A1 GET DWTCP2 OF PROTOTYPE DWT W ( P ANKL A5,/003F CLEAR BITS TO MODIFY W 2 P LDR A3,A6 GET MODIFIED LINE CONNECTIO
0x308a28…308bbc Dummy {f00=0x0149, f01=0x0190, f02=»ET MODIFIED LINE CONNECTION NUMBER W P SLL A3,4 X * $ P ADK A3,1 ADD CONNECTION TYPE RT X < P ANK A6,/C GET BITS 12-13 X d P SRL A6,2 MOVE TO BITS 14-15 X * P ADKL A6,/0100 ADD CONNECTION TYPE RT X P RTN A14 X P XIF X PNUMERR EQU * X ( P
0x308bbc…308d50 Dummy {f00=0x0149, f01=0x0190, f02=»********** X l 2 P* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * Y 2 P********************************************** Y H P* Y ~ P* REFERENCED IN: DWTGEN Y P* Y * P* ENTRY: SCTSFA - START OF FREE AREA Y P* Y , P* EXIT: REAL TIME INTERRUP
0x308d50…308ee4 Dummy {f00=0x0149, f01=0x0190, f02=» EQU * BUILD REAL-TIME INTERRUPT TABLES Y P* Z 0 . P* BUILD REAL-TIME INTERRUPT TABLES FOR LT Z : P* Z l P XIF Z v PB:ITLT EQU * Z P IFF SUML=0 Z $ P LDKL A8,0 CONNECTION TYPE = LT Z P LDKL A9,7 1:ST BOARD Z . P LDK A1,16 MAX.LENGTH OF
0x308ee4…309078 Dummy {f00=0x0149, f01=0x0190, f02=»EAR Z ~ PBIT10 EQU * [ P CALL B:BTAB [ P CALL B:LTAB [ 4 * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB [ H " P LD A2,STKEND+WRK3 ANY LINES? [ v P RF(Z) BIT15 NO! [ P CM STKEND+WRK3 CLEAR [ : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE
0x309078…30920c Dummy {f00=0x0149, f01=0x0190, f02=» ST A9,STKEND+WRK1 STORE [ P ADKL A9,7 NEXT BOARD P CWK A9,31 LAST BOARD? > P RF(G) B:ITRT YES! P RB BIT10 v P XIF P EJECT P* . P* BUILD REAL-TIME INTERRUPT TABLES FOR RT P* PB:ITRT EQU * P IFF SUMR=0
0x30920c…3093a0 Dummy {f00=0x0149, f01=0x0190, f02=»TKEND+WRK4 SAVE P CM STKEND+WRK1 CLEAR ] P CM STKEND+WRK2 CLEAR ] 6 P CM STKEND+WRK3 CLEAR ] T PBRT10 EQU * ] r P CALL B:BTAB ] P CALL B:LTAB ] * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB ] " P LD A2,STKEND+WRK3 ANY LINES? ] P RF(Z)
0x3093a0…309534 (3, 292) Dummy {f00=0x014a, f01=0x0190, f02=» PBRT15 EQU * ^ P ADK A1,2 ^ & P ST A1,STKEND+WRK2 STORE NEW INDEX ^ * P ADKL A9,1 ^ T P ST A9,STKEND+WRK1 STORE ^ f P ADKL A9,3 NEXT BOARD ^ P CWK A9,15 LAST BOARD? ^ P RF(G) B:ITPC YES! ^ P RB BRT10 ^ P XIF ^ P EJECT ^ P
0x309534…3096c8 Dummy {f00=0x014a, f01=0x018e, f02=» = PLC ^ v P LDKL A9,32 1:ST BOARD _ 0 P LDK A1,66 MAX LENGHT OF BOARD CONF.TABLE =2 _ , P ST A1,STKEND+WRK4 _ ` P LDK A1,1 =2 _ z P ST A1,STKEND+WRK1 =2 _ P CM STKEND+WRK2 CLEAR _ P CM STKEND+WRK3 CLEAR _ PBPC10 EQU * _ P CALL B:BT
0x3096c8…30985c Dummy {f00=0x014a, f01=0x018e, f02=» P CM STKEND+WRK3 ` B P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONFIGURATION TABLE ` P ST A2,INTPL1,A1 SAVE ` b PBPC15 EQU * ` P ADK A1,2 ` & P ST A1,STKEND+WRK2 STORE NEW INDEX ` P ADKL A9,1 ` P ST A9,STKEND+WRK1 ` P ADKL A9,31
0x30985c…3099f0 Dummy {f00=0x014a, f01=0x0190, f02=» 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR VCCU1/4 a P* a : PB:ITVU EQU * a D P IFF VIDEO=0 a X ( P LDKL A8,7 CONNECTION TYPE = VCCU1/4 a l P LDKL A9,3 1:ST BOARD a . P LDK A1,8 MAX.LENGTH OF BOARD CONF. TABLE a P ST A1,STKEND+WRK4 SAVE a P
0x3099f0…309b84 Dummy {f00=0x014a, f01=0x0190, f02=»B:LTAB a * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB b " P LD A2,STKEND+WRK3 ANY LINES? b < P RF(Z) BVU15 NO! b b P CM STKEND+WRK3 CLEAR b z : P LD A2,STKEND+BRDTAB GET ADDRESS TO BOARD CONF. TABLE b P ST A2,INTVU1,A1 SAVE b PBVU15 EQU * b P
0x309b84…309d18 Dummy {f00=0x014a, f01=0x0190, f02=» P CWK A9,31 LAST BOARD? c P RF(G) B:ITSZ YES! c " P RB BVU10 c < P XIF c N P c Z P EJECT c b P* c p 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR SALCUZ c z P* c PB:ITSZ EQU * c P IFF SALCUZ=0 c ( P LDKL A8,2 CONNECTION TYPE = SALCUZ
0x309d18…309eac Dummy {f00=0x014a, f01=0x0190, f02=» c z P CM STKEND+WRK2 CLEAR d P CM STKEND+WRK3 CLEAR d & PBSZ10 EQU * d D P CALL B:BTAB d X P CALL B:LTAB d l * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB d " P LD A2,STKEND+WRK3 ANY LINES? d P RF(Z) BSZ15 d P CM STKEND+WRK3 d : P LD A2,S
0x309eac…30a040 Dummy {f00=0x014a, f01=0x0190, f02=»WRK2 STORE NEW INDEX d P ADKL A9,1 e P ST A9,STKEND+WRK1 e . P CWK A9,7 LAST BOARD? e H P RF(G) B:ITAZ YES! e f P RB BSZ10 e P XIF e P EJECT e P* e 2 P* BUILD REAL-TIME INTERRUPT TABLES FOR ASCU4Z e P* e PB:ITAZ EQU * e
0x30a040…30a1d4 (3, 293) Dummy {f00=0x014a, f01=0x0190, f02=»BLE e j P ST A1,STKEND+WRK4 f P CM STKEND+WRK1 CLEAR f & P CM STKEND+WRK2 CLEAR f D P CM STKEND+WRK3 CLEAR f b PBAZ10 EQU * f P CALL B:BTAB f P CALL B:LTAB f * P LD A1,STKEND+WRK2 GET INDEX IN MONTAB f P LD A2,STKEND+WRK3 ANY LINES f
0x30a1d4…30a368 Dummy {f00=0x014a, f01=0x0190, f02=» SAVE f PBAZ15 EQU * g P ADK A1,2 g " & P ST A1,STKEND+WRK2 STORE NEW INDEX g 4 P ADKL A9,1 g ^ P ST A9,STKEND+WRK1 g p P ADKL A9,3 NEXT BOARD g P CWK A9,31 LAST BOARD? g P RF(G) BAZ20 YES! g P RB BAZ10 g PBAZ20 EQU * g P X
0x30a368…30a4fc Dummy {f00=0x014a, f01=0x0190, f02=» GENERAL SUBROUTINES * g T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= h 2 P h P h P h 8 P**************************************************** h 8 P* GETTSK - GET NUMBER OF TASKS IN A TASK
0x30a4fc…30a690 Dummy {f00=0x014a, f01=0x0190, f02=»************ h h P* i " P* REFERENCED IN: B:TCT,B:CDT i P* i D > P* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK i N P* i F P* EXIT: A1 - NUMBER OF TASKS IN THE TASK CLASS (BINARY VALUE) i P* i P* WORK REGISTERS: A5 i
0x30a690…30a824 Dummy {f00=0x014a, f01=0x0190, f02=»D i h . PGETCOP EQU * GET NO OF COPIES OF LAST DTE j 0 PGETNSA EQU * GET NO OF SUBADDRESSES DEFINED j < P LC A5,TDBNT,A11 j p P SLL A5,8 j P LC A5,TDBNT+1,A11 j P CALL CONVRT j P RTN A14 j P EJECT j 8 P**********************************
0x30a824…30a9b8 Dummy {f00=0x014a, f01=0x0190, f02=»** j ^ P* k P* REFERENCED IN: B:TT k P* k 4 > P* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK k > P* k D P* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) k P* k P* WORK REGISTERS: A5 k P* k P* S
0x30a9b8…30ab4c Dummy {f00=0x014a, f01=0x0190, f02=» k P RTN A14 l P EJECT l 8 P*************************************************** l & 8 P* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * l b 8 P*************************************************** l P* l P* REFERENCED IN: B:TT l P* l
0x30ab4c…30ace0 Dummy {f00=0x014a, f01=0x0190, f02=» l P P* m P* WORK REGISTERS: A5 m P* m 0 P* SUBROUTINES: CONVRT m : P* m Z PGETSDC EQU * m d P LCR A5,A9 m x P SLL A5,8 m P LC A5,1,A9 m P CALL CONVRT m P RTN A14 m P EJECT m 2 P**************************************
0x30ace0…30ae74 (3, 294) Dummy {f00=0x014a, f01=0x0190, f02=» REFERENCED IN: B:TT m P* n 6 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD n ( P* n b > P* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) n l P* n P* WORK REGISTERS: A5 n P* n P* SUBROUTINES: CONVRT n P* n
0x30ae74…30b008 Dummy {f00=0x014a, f01=0x0190, f02=»CT n . P***************************************** o . P* GETLCN - GET LINE CONNECTION NUMBER * o < . P***************************************** o n P* o P* REFERENCED IN: B:DWTT o P* o 8 P* ENTRY: A9 - POINTER TO CLASS DEFINITION RECOR
0x30b008…30b19c Dummy {f00=0x014a, f01=0x0190, f02=»UBROUTINES: CONVRT o P* p PGETLCN EQU * p & * P STR A4,A15 SAVE REGISTER A4 ON STACK p : * P STR A6,A15 SAVE REGISTER A6 ON STACK p h & P LDR A6,A9 GET START OF TDC RECORD p 2 P ADK A6,TDCLCN ADDRESS LINE CONNECTION NUMBER p , P CALL GETNUM GET L
0x30b19c…30b330 Dummy {f00=0x014a, f01=0x0190, f02=»RE REGISTER A4 FROM STACK p ~ P RTN A14 q " P EJECT q 2 : P***************************************************** q @ : P* * q ~ : P* GETTCL - GET TASK CLASS TO MATCH * q : P* ===========
0x30b330…30b4c4 Dummy {f00=0x014a, f01=0x0190, f02=» * q v : P* * r $ : P* ENTRY: A5 - TCL IN CURRENT TASK DEF. BLOCK * r b : P* * r : P* EXIT: A5 - TCL START VALUE FOR THIS TA
0x30b4c4…30b658 Dummy {f00=0x014a, f01=0x018e, f02=» r Z : P* * s : P* SUBROUTINES: GETTSK,NXTBLK * s F : P* * s : P***************************************************** s P s P
0x30b658…30b7ec Dummy {f00=0x014a, f01=0x0190, f02=» s Z 6 P LD A11,STKEND+LCDSTA START OF CONFIGURATION DATA t 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? t B P RF(E) TCL:60 YES! t z . P LC A5,TDBMC+4,A11 GET FIRST CHAR. IN TCL t P SLL A5,8 MOVE TO LEFT BYTE t . P LC A5,TDBMC+5,A11 GET SECOND
0x30b7ec…30b980 Dummy {f00=0x014a, f01=0x018e, f02=» TCL t | 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK u P RB TCL:10 u @ , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL u R P RTN A14 u P EJECT u . P***************************************** u . P* GETCON - GET CONTENT IN MEMORY WORD * u . P****
0x30b980…30bb14 (3, 295) Dummy {f00=0x014a, f01=0x018e, f02=» . P* MMUOPT - MMU OPTION SWITCH (X) v P* v 6 , P* EXIT: A1 - CONTENT OF MEMORY ADDRESS v @ P* v p P* WORK REGISTER: v z P* v P* SUBROUTINES: v P* v PGETCON EQU * v " P LD A1,SCTOPT GET OPTION WORD v P ANK A1,1 MMU
0x30bb14…30bca8 Dummy {f00=0x014a, f01=0x018e, f02=» P RTN A14 RETURN w P EJECT w . P****************************************** w * . P* B:TTAB - BUILD TEMP. INTERRUPT TABLE * w . P****************************************** w P* w P* REFERENCED IN: DWTGEN w P* w 4 P* ENTRY: INTTAB - S
0x30bca8…30be3c Dummy {f00=0x014a, f01=0x0190, f02=» w f P* x P* EXIT: x P* x " P* WORK REGISTERS: x , P* x F PB:TTAB EQU * x P P* x d P* BUILD ONE BLOCK IN T.I.T. x n P* x , P LD A4,STKEND+INTTAB GET START OF T.I.T. x $ P LDR* A2,A4 GET NUMBER OF BLOCKS x P SUK A4,2 x P x
0x30be3c…30bfd0 Dummy {f00=0x014a, f01=0x0190, f02=» x P RB TTA10 y P* y P* AREA TO BUILD BLOCKS y $ P* y B PTTA11 EQU * y L P LDR A2,A4 y ` P LD A3,STKEND+FWTFLG y r * P RF(P) TTA15 BUILD BLOCKS IN FREE AREA y P EJECT y P* y P* BUILD BLOCKS IN FWT AREA y P* y PTTA09 EQ
0x30bfd0…30c164 Dummy {f00=0x014a, f01=0x0190, f02=»E) TTA14 y P SUK A3,1 z P RF(Z) TTA20 z " P RB TTA12 z 6 PTTA14 EQU * z H P LD A2,STKEND+LIMIT z P* z x P* BUILD BLOCKS IN FREE AREA z P* z PTTA15 EQU * z P LDK A3,5 z PTTA16 EQU * z P SUK A2,2 z P CWR A2,A12
0x30c164…30c2f8 Dummy {f00=0x014a, f01=0x0190, f02=»L A1,LMP3 z P CALL ERROR { PTTA20 EQU * { & , P ST A5,-2,A4 STORE RUN TIME DWT-ADDRESS { : P LD A3,STKEND+CONTYP { j P ST A3,-4,A4 { PTTA30 EQU * { P ADK A2,4 { 0 P STR A2,A4 STRORE POINTER TO NEXT FREE BLOCK { P* { P* STORE NU
0x30c2f8…30c48c Dummy {f00=0x014a, f01=0x0190, f02=»****************************** { 2 P* B:BTAB - BUILD BOARD CONFIGURATION TABLE * | & 2 P********************************************** | P* | P* REFERENCED IN: B:ITAB | P* | " P* ENTRY: A8 - CONNECTION TYPE | P* A9 - BOARD NUMBER
0x30c48c…30c620 Dummy {f00=0x014a, f01=0x0190, f02=»K REGISTERS: A1,A2,A3,A10,A11,A12 | P* } * PB:BTAB EQU * } 4 : P LD A4,STKEND+WRK4 GET MAX LENGTH OF BOARD CONF.TABLE } H ( P CALL M:TST TEST IF MEMORY OVERFLOW? } , P LD A12,SCTSFA NO!GET START OF FREE AREA } P LDR A11,A12 SAVE } P ADKL A12,2
0x30c620…30c7b4 (3, 296) Dummy {f00=0x014b, f01=0x0190, f02=»OF BLOCKS.ZERO? } x P ~ P SUKL A10,2 ~ P LDR A1,A1 ZERO? ~ 4 PBTA10 EQU * ~ L P RF(Z) BTA40 YES! ~ ` 6 P LD A2,-4,A10 GET LINE NUMBER AND CONNECTION TYPE ~ z P LDR A3,A2 SAVE ~ $ P ANK A3,/0F GET CONNECTION TYPE ~ P SUR A3,A8 RIGHT TYP
0x30c7b4…30c948 Dummy {f00=0x014b, f01=0x018e, f02=» ~ PBTA30 EQU * " P ANKL A2,/0FFF GET LINE NUMBER , P SRL A2,4 SHIFT LINE NUMBER TO BITS 8-15 B P CWR A2,A9 THIS LINE TABLE? r P RB(G) BTA20 NO! P* P LD A3,STKEND+WRK1 P CWR A2,A3 P RB(L) BTA20 NO! P* & P*
0x30c948…30cadc Dummy {f00=0x014b, f01=0x0190, f02=» P SUK A3,1 =2 PBTA35 EQU * =2 P SUR A2,A3 2 P ADR A2,A2 D P LDR A12,A11 V P ADKL A12,2 j ( P ADR A12,A2 GET ENTRY IN BOARD TABLE ~ P STR A11,A12 STORE P RB BTA20 PBTA40 EQU * P* 2 P* COMPUTE LENGTH OF
0x30cadc…30cc70 Dummy {f00=0x014b, f01=0x0190, f02=»ARD CONF. TABLE r P ADR A12,A1 PBTA50 EQU * , P LDR* A2,A12 @ P RF(NZ) BTA60 T P SUK A1,2 j P RF(Z) BTA70 | P SUKL A12,2 P RB BTA50 PBTA60 EQU * : P STR A1,A11 STORE LENGTH OF BOARD CONFIGURATION TABLE P
0x30cc70…30ce04 Dummy {f00=0x014b, f01=0x0190, f02=»**************************************** 2 P* B:LTAB - BUILD LINE CONFIGURATION TABLES * 0 2 P********************************************** f P* P* REFERENCED IN: B:ITAB P* " P* ENTRY: WRK1 - BOARD NUMBER & P* A8 -
0x30ce04…30cf98 Dummy {f00=0x014b, f01=0x0190, f02=»B:LTAB EQU * 8 P LDR* A1,A11 GET LENGTH OF BOARD CONFIGURATION TABLE P RF(Z) BLT70 P P LDKL A3,-1 LINE COUNTER d P RF BLT15 PBLT10 EQU * P SUK A1,2 DECREMENT LENGTH P RF(Z) BLT70 RETURN P* PBLT15 EQU * P L
0x30cf98…30d12c Dummy {f00=0x014b, f01=0x0190, f02=»URATION TABLE | P* P ADK A3,1 ADD LINE COUNTER P ADKL A11,2 B P LDR* A2,A11 READ LINE.ZERO? V P RB(Z) BLT10 YES! z P LDK A4,32 GET TEST LENGTH ( P CALL M:TST TEST IF MEMORY OVERFLOW? P* $ P* SCAN TEMPORARY INTERRUPT T
0x30d12c…30d2c0 Dummy {f00=0x014b, f01=0x0190, f02=»2,1 =2 PBLT17 EQU * =2 P ADR A2,A3 ADD LINE NUMBER ( P SLL A2,4 J " P ADR A2,A8 ADD CONNECTION TYPE . P LD A10,STKEND+INTTAB GET START OF T.I.T. & P LDR* A4,A10 GET NUMBER OF BLOCKS P SUKL A10,2 PBLT20 EQU * 6 P L
0x30d2c0…30d454 (3, 297) Dummy {f00=0x014b, f01=0x0190, f02=»WT-ADDRESS IN LINE CONFIGURATION TABLE ~ P* . * P LD A5,-2,A10 GET RUN TIME DWT-ADDRESS 8 P LDR A6,A5 f " P ANK A6,/0001 DOUBLE KEYBOARD? x P RF(Z) BLT25 N0! & P LD A6,DWTDEV,A5 GET DEVICE STATUS ( P ANK A6,/FF GET EIGHT RIGHTMOST BITS
0x30d454…30d5e8 Dummy {f00=0x014b, f01=0x0190, f02=»7 GET DEVICE ADDRESS PBLT26 EQU * P ADR A6,A6 0 P LDR A7,A12 SAVE B P ADR A7,A6 Z P LD A6,2,A7 ZERO? l P RF(Z) BLT27 YES! ( P LD A6,DWTST,A5 NO!GET DEVICE STATUS P ANK A6,/0040 INPUT DEVICE? P RF(Z) BLT28 NO! $ P
0x30d5e8…30d77c Dummy {f00=0x014b, f01=0x0190, f02=» TIME DWT-ADDRESS | & P ST A6,STKEND+FWTFLG STORE POINTER * P LD A5,-2,A10 GET RUM TIME DWT-ADDRESS D PBLT27 EQU * r * P ST A5,2,A7 STORE RUN TIME DWT-ADDRESS P RF BLT30 PBLT28 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP.AREA
0x30d77c…30d910 Dummy {f00=0x014b, f01=0x0190, f02=»0 GET NEXT BLOCK P SUK A4,1 LAST BLOCK? P RF(Z) BLT40 YES! 6 P RB BLT20 NO! P P* f D P* MOVE DWT-ADR.IN TEMP.AREA TO FREE LOCATIONS IN LINE CONF.TABLE p P* PBLT40 EQU * 2 P LD A6,STKEND+FWTFLG GET POINTER TO TEMP. AREA
0x30d910…30daa4 Dummy {f00=0x014b, f01=0x0190, f02=» ADK A4,2 P LDR* A2,A4 P RF(Z) BLT42 & P RB BLT41 : PBLT42 EQU * L * P STR A5,A4 STORE RUN TIME DWT-ADDRESS ` P SUK A6,2 P RB BLT43 P* P* CLEAR TEMP.AREA P* PBLT45 EQU * 2 P LD A6,STKEND+FWTFLG
0x30daa4…30dc38 Dummy {f00=0x014b, f01=0x018e, f02=»EMORY WORD ~ P SUK A6,2 DECREMENT POINTER P RB BLT46 6 P* H 0 P* COMPUTE LENGTH OF LINE CONFIGURATION TABLE R P* PBLT48 EQU * P LDR A2,A12 SAVE 2 P ADK A2,22 ADD. MAX LENGTH OF LINE CONF.TABLE P LDK A4,22 PBLT5
0x30dc38…30ddcc Dummy {f00=0x014b, f01=0x0190, f02=» PBLT60 EQU * 8 P STR A4,A12 STORE LENGTH OF LINE CONFIGURATION TABLE P ADKL A12,2 X J P STR A12,A11 STORE THE ADDRESS IN BOARD CONF.TABLE TO LINE CONF.TABLE l 4 P ADR A12,A4 A12 - START OF NEXT LINE CONF.TABLE 2 PBLT65 ST A12,SCTSFA ST
0x30ddcc…30df60 Dummy {f00=0x014b, f01=0x0190, f02=»******************* ~ * P* M:TST - TEST IF MEMORY OVERFLOW * * P************************************* J P* x P* ENTRY: A4 - TEST LENGTH P* P* WORK REGISTERS: A2,A4 P* PM:TST EQU * $ P LD A2,SCTSFA START OF FREE
0x30df60…30e0f4 (3, 298) Dummy {f00=0x014b, f01=0x0190, f02=» LDKL A1,LMP3 P CALL ERROR MEMORY OVERFLOW PMTST20 EQU * : P CWR A2,A4 N P RB(NE) MTST10 ` P RTN A14 RETURN v P EJECT B P************************************************************** B P* BINASC - CONVERT A BINARY NUMBER TO
0x30e0f4…30e288 Dummy {f00=0x014b, f01=0x0190, f02=»************************************************** P* : P* REFERENCED IN: B:DWTT D P* f , P* ENTRY: A1 - BINARY NUMBER TO CONVERT p P* $ P* EXIT: A1,A5 - ASCII OUTPUT P* P* WORK REGISTER: A2 P* P* S
0x30e288…30e41c Dummy {f00=0x014b, f01=0x0190, f02=»=2 P LDKL A5,/100 =2 PBIN:10 CWK A1,10 =2 $ P RF(L) BIN:20 =2 @ P SUK A1,10 =2 Z P ADK A5,/1 =2 p P RB BIN:10 =2 PBIN:20 ORKL A5,/3030 =2 P ORK A1,/30 =2 P SRC A5,8 =2 P LDR A2,A5 =2 P ANKL A2
0x30e41c…30e5b0 Dummy {f00=0x014b, f01=0x0190, f02=»************************************** : P* * . : P* MMUINI - INIT MMU TABLE IN TTAB * l : P* =============================== * : P*
0x30e5b0…30e744 Dummy {f00=0x014b, f01=0x0190, f02=» * d : P* ENTRY: APCSTA - APPL. CONTROL BLOCK ADDRESS * : P* * P : P* EXIT: * : P* * :
0x30e744…30e8d8 Dummy {f00=0x014b, f01=0x0190, f02=»INES: * : P* * 4 : P****************************************************** r P EJECT PMMUINI EQU * < P LD A2,STKEND+APCSTA GET ADDRESS TO APPL. CONTROL BLOC
0x30e8d8…30ea6c Dummy {f00=0x014b, f01=0x0190, f02=»ET LOGICAL PAGE ADDRESS ~ ( P SRL A2,12 ISOLATE MMU ENTRY NUMBER P RF(NZ) MMI:10 PAGES DEFINED L ( P LDK A2,16 MAX NUMBER OF MMU ENTRIES p 0 PMMI:10 SUR A2,A3 NUMBER OF ENTRIES TO WRITE P SLL A3,1 TWICE P ADR A3,A12 ADD TTAB ADDRESS
0x30ea6c…30ec00 Dummy {f00=0x014b, f01=0x0190, f02=»OF MMU TABLE =6 l P LDKL A4,/FC00 =6 PMMI:15 EQU * =6 2 2 P CWR A5,A3 INIT MMU ENTRY WHITH PAGE ERROR? =6 J P RF(E) MMI:16 NO! =6 0 P STR A4,A5 STORE PAGE ERROR IN MMU TABLE =6 P ADK A5,2 NEXT MMU ENTRY =6 P RB MMI:15 =6
0x30ec00…30ed94 (3, 299) Dummy {f00=0x014b, f01=0x0190, f02=» P RF(N) MMI:30 NO " P STR A4,A3 STORE PAGE ADDRESS P ADK A3,2 NEXT MMU ENTRY B $ P ADKL A4,/400 NEXT PAGE ADDRESS b P RB MMI:20 PMMI:30 RTN A14 RETURN P XIF P EJECT 6 P*************************************************
0x30ed94…30ef28 Dummy {f00=0x014b, f01=0x0190, f02=»========================= * 6 P* * , 6 P* REFERENCED IN: * f 6 P* * 6 P* ENTRY:
0x30ef28…30f0bc Dummy {f00=0x014b, f01=0x0190, f02=» A11- START OF CONFIGURATION DATA * 6 P* * 2 6 P* WORK REGISTERS: A2 * l 6 P* * 6 P* SUBROUTINES:
0x30f0bc…30f250 Dummy {f00=0x014b, f01=0x018e, f02=»TAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS P ST A2,STKEND+APLNO SAVE B 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK b P ST A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA P RTN A14 RETURN
0x30f250…30f3e4 Dummy {f00=0x014b, f01=0x0190, f02=» 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ============================= * > 6 P* * x 6 P* REFERENCED IN: * 6 P*
0x30f3e4…30f578 Dummy {f00=0x014b, f01=0x0190, f02=»* ` 6 P* BLOCK ADDRESS * 6 P* * D 6 P* EXIT: APLNO - REMAINING NUMBER OF APPL.-1 * ~ 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6 P* ADDR
0x30f578…30f70c Dummy {f00=0x014b, f01=0x0190, f02=» * f 6 P* * 6 P* SUBROUTINES: * J 6 P* * 6 P************************************************* P EJECT PNX
0x30f70c…30f8a0 Dummy {f00=0x014b, f01=0x0190, f02=»BER OF APPL. j P RF(Z) NOAPL NO MORE! * P CALL NXTADB GET NEXT APPL DEF. BLOCK 2 @ P LD A2,STKEND+APCSTA GET ADDRESS TO CURRENT APPL. CTRL BLOCK ` ( P ADK A2,ACBLEN NEXT APPL. CTRL BLOCK & P ST A2,STKEND+APCSTA SAVE ADDRESS 4 P LD A1,STKEND+
0x30f8a0…30fa34 (3, 300) Dummy {f00=0x014c, f01=0x0190, f02=»**************************************************************** D P* * H D P* NXTADB - GET NEXT APPLICATION DEF. BLOCK * D P* =====================================
0x30fa34…30fbc8 Dummy {f00=0x014c, f01=0x0190, f02=» * h D P* * D P* ENTRY: A11 - CURRENT POINTER TO CONFIGURATION DATA * h D P* * D P* EXIT: A2 -
0x30fbc8…30fd5c Dummy {f00=0x014c, f01=0x0190, f02=» * D P* WORK REGISTERS: * @ D P* * D P* SUBROUTINES: ERROR
0x30fd5c…30fef0 Dummy {f00=0x014c, f01=0x0190, f02=»**************** ` PNXT10 ADKL A11,1 NEXT CHAR ( PNXTADB LCR A2,A11 GET NEXT CHARACTER : $ P CCK A2,/0000 END OF CONF DATA? f P RF(NE) NEXT20 NOT YET P LDKL A1,LMP4 FORMAT ERROR P CALL ERROR 2 PNEXT20 CCK A2,/FFFF APPL DEF BLOCK SEP
0x30fef0…310084 Dummy {f00=0x014c, f01=0x0190, f02=» 2 P********************************************* 2 P* * > 2 P* CHKMOV - CHECK MEMORY OVERFLOW AND MOVE * t 2 P* ======================================= * 2 P*
0x310084…310218 Dummy {f00=0x014c, f01=0x0190, f02=»- FROM-ADDRESS * 2 P* A2 - TO-ADDRESS * ( 2 P* A3 - LENGTH * ^ 2 P* STKEND+LIMIT - END OF SYSTEM * 2 P* AREA * 2 P*
0x310218…3103ac Dummy {f00=0x014c, f01=0x0190, f02=» * l 2 P* WORK REGISTERS: * 2 P* * H 2 P* SUBROUTINES: MOVE,ERROR * ~ 2 P* * 2 P******************************
0x3103ac…310540 Dummy {f00=0x014c, f01=0x0190, f02=»NGTH ~ . P XRR A9,A9 PHYSICAL END OF FIRST PARTITION 0 P SUR A9,A2 COMPUTE AREA LEFT IN FIRST PART. > & P CALL CMPADR ENOUGTH MEMORY LEFT? r P RF(L) CHK20 YES 0 PCHK10 LDKL A1,LMP3 INDICATE MEMORY OVERFLOW P CALL ERROR $ PCHK20 ADR A1
0x310540…3106d4 (3, 301) Dummy {f00=0x014c, f01=0x0190, f02=»AREA OVERFLOW! | P CALL MOVE MOVE AREA P LDR* A11,A15 RESTORE A11 2 P LDR* A9,A15 RESTORE A9 T P RTN A14 t P EJECT D P**************************************************************** D P* START MONITOR SAVE01URATION
0x3106d4…310868 Dummy {f00=0x014c, f01=0x018e, f02=»TASK CONTROL TABLE ~ P IFF FM=0 & P CALL B:FWT BUILD FILE WORK TABLES , P XIF V ( P CALL MONBLK GENERATE MONITOR BLOCKS b P IFF EDM=0 2 P CALL B:MXTT BUILD MONITOR EXTENT TASK TABLES 6 P CALL B:MSEG BUILD MONITOR SEGMENT TABLES & TTAB:S
0x310868…3109fc Dummy {f00=0x014c, f01=0x018e, f02=» P XIF P IFF MMUPAG+DSKPAG=0 ( P CALL B:STAB BUILD SEGMENT TABLE(S) , P XIF X P IFF SPDVCL+TEDVCL=0 d 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES P XIF P IFF TEDVCL=0 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK TABLES
0x3109fc…310b90 Dummy {f00=0x014c, f01=0x018e, f02=» P XIF P IFF TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x310b90…310d24 Dummy {f00=0x014c, f01=0x4014, f02=» P END @ TEDVCL=0 & P CALL B:ITAB BUILD INTERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x310d24…310eb8 Dummy {f00=0x014c, f01=0x403c, f02=» 0 P******************************************** @ 8ERRUPT TABLE & P XIF P P EJECT F P***************************************************************** j F P* END OF MONITOR SAVE01URATION PART * F P* -C
0x310eb8…31104c Dummy {f00=0x014c, f01=0x2008, f02=» P X ` h p
0x31104c…3111e0 Dummy {f00=0x014c, f01=0x0190, f02=» d P RF(Z) QTJ020 DISQUE EMPTY & P LD A3,TTB:ST+1,A5 PRIORITY LEVEL * P* T P EJECT MSUBS ^ P* t P* ~ 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL P RF(L) QTJ020 INSERT P LDR A1,A2 SAVE ADDRESS * P LDR* A2,A
0x3111e0…311374 (3, 302) Opaque[0x194]
0x311374…311508 # DirEnt {nam=»SYSLCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x311374…311508 IdxSect {
0x311374…311508 f00 = 0x00b7 // 0x311374 @0x0
0x311374…311508 f01 = 0x0044 // 0x311376 @0x2
0x311374…311508 gno = [ // 0x311378 @0x4
0x311374…311508 [0x00]: C0x00b7.0x2.0
0x311374…311508 [0x01]: C0x00b7.0x3.0
0x311374…311508 [0x02]: C0x00b8.0x0.0
0x311374…311508 [0x03]: C0x00b8.0x1.0
0x311374…311508 [0x04]: C0x00b8.0x2.0
0x311374…311508 [0x05]: C0x00b8.0x3.0
0x311374…311508 [0x06]: C0x00b9.0x0.0
0x311374…311508 [0x07]: C0x00b9.0x1.0
0x311374…311508 [0x08]: C0x00b9.0x2.0
0x311374…311508 [0x09]: C0x00b9.0x3.0
0x311374…311508 [0x0a]: C0x00ba.0x0.0
0x311374…311508 [0x0b]: C0x00ba.0x1.0
0x311374…311508 [0x0c]: C0x00ba.0x2.0
0x311374…311508 [0x0d]: C0x00ba.0x3.0
0x311374…311508 [0x0e]: C0x00bb.0x0.0
0x311374…311508 [0x0f]: C0x00bb.0x1.0
0x311374…311508 [0x10]: C0x00bb.0x2.0
0x311374…311508 [0x11]: C0x00bb.0x3.0
0x311374…311508 [0x12]: C0x00bc.0x0.0
0x311374…311508 [0x13]: C0x00bc.0x1.0
0x311374…311508 [0x14]: C0x00bc.0x2.0
0x311374…311508 [0x15]: C0x00bc.0x3.0
0x311374…311508 [0x16]: C0x00bd.0x0.0
0x311374…311508 [0x17]: C0x00bd.0x1.0
0x311374…311508 [0x18]: C0x00bd.0x2.0
0x311374…311508 [0x19]: C0x00bd.0x3.0
0x311374…311508 [0x1a]: C0x00be.0x0.0
0x311374…311508 [0x1b]: C0x00be.0x1.0
0x311374…311508 [0x1c]: C0x00be.0x2.0
0x311374…311508 [0x1d]: C0x00be.0x3.0
0x311374…311508 [0x1e]: C0x00bf.0x0.0
0x311374…311508 [0x1f]: C0x00bf.0x1.0
0x311374…311508 [0x20]: C0x00bf.0x2.0
0x311374…311508 [0x21]: C0x00bf.0x3.0
0x311374…311508 ]
0x311374…311508 }
0x311508…31169c Dummy {f00=0x00b7, f01=0x018e, f02=» 2 P IDENT SYSLCR REL 11.0 81-05-19 870105041100 P : , P =3,WHEN MMUPAG=1 APPLICATION CODE IS B * P OVERWRITTEN IF P:MTAB STARTS ON r P 4K BOUNDARY P REL 11.0 81-01-26 0 P =2,UPDATE SCTSFA WHEN ALLOCATING BUFFERS
0x31169c…311830 Dummy {f00=0x00b7, f01=0x0190, f02=» P PRR 11.0 80-11-19 P $ P 0 > P********************************************************** < P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* D P* SYSLCR = SYSTEM LOAD - CREDIT APPLICATION CONFIGURATION PART P*
0x311830…3119c4 Dummy {f00=0x00b7, f01=0x0190, f02=»EDIT APPLICATION: F P* SYSLCR READS CONFIGURATION FILE (ALREADY IN CORE) AND BUILD B P* SHADOW-TABLES (TABLES CONTAINING NUMBER OF REAL TASKS & d . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLCR THEN MOVES ITSELF TO FOLLOW MO
0x3119c4…311b58 Dummy {f00=0x00b7, f01=0x0190, f02=»RE NOW R H P* BUILT FROM 'BOTTOM' (HIGHEST FREE ADDRESS) OF MEMORY. BUFFERS H P* ARE, IN CASE OF MMU IN SYSTEM, ALSO ALLOCATED AT 'BOTTOM' OF Z T P* MEMORY; ELSE, IF NO MMU AND NO PAGING,BUFFER ARE ALLOCATED AFTER MONITOR P* 'OV
0x311b58…311cec Dummy {f00=0x00b7, f01=0x0190, f02=»ERNALS * ~ P* * P*************************** 6 P Z P* LABEL ENTRIES f P ENTRY SYSLCR ~ P P* EXTERNALS SUBROUTINES * P EXTRN MOVE MOVE BLOCKS INSIDE MEMORY P EXTRN MOVING 2 P EXTRN X
0x311cec…311e80 Dummy {f00=0x00b7, f01=0x0190, f02=»FIND TTAB-ADDRESS 0 P EXTRN MMENT FIND LAST USED ENTRY IN MM-TAB ( P EXTRN ERROR ERROR HANDLING ROUTINE N $ P EXTRN CMPADR COMPARE ADDRESSES z 2 P EXTRN NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P EXTRN NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK
0x311e80…312014 (3, 303) Dummy {f00=0x00b7, f01=0x0190, f02=»OUTINE t 4 P EXTRN GETAPP FIND APPLICATION AND ITS CONF.FILE P EXTRN QUEJOB QUEUE TASK F P f " P* SAVE AND WORK AREA EXTERNALS n " P EXTRN MMTAB WORK-TABLE 1 (MMU 6 P EXTRN TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 4 P EXTRN MMEND ABSOLUT
0x312014…3121a8 Dummy {f00=0x00b7, f01=0x0190, f02=»NI t , P EXTRN LSTPAG DISPL. TO 'ENTRY-POINTER' P EXTRN MMBEG : P N P EJECT V $ P* SYSTEM CONTROL TABLE EXTERNALS d $ P EXTRN SCTSFA START OF FREE AREA P EXTRN SCTTCT TC:TAB ADDRESS P EXTRN SCTSTB A15 STACK-BASE " P EXTRN SCTEF
0x3121a8…31233c Dummy {f00=0x00b7, f01=0x0190, f02=»RN SCTPAG PAGE TABLE ADDRESS 4 P EXTRN SCTSWB ADDRESS TO SWB CONTROL BLOCK TABLE $ P EXTRN SCTBUG BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA 0 P EXTRN STKMOV START OF MOVE-ROUTINE IN STACK * P EXTRN STKCOM START OF COMMON-PAD AR
0x31233c…3124d0 Dummy {f00=0x00b7, f01=0x0190, f02=»RRENT SEGMENT BASE ADDRESS v & P EXTRN TTB:MT DISPL. TO MMU TABLE " $ P EXTRN TTB:ID DISPL. TO TASK ID L , P EXTRN TTB:SB DISPL. TO SEGM. BLOCK PTR t , P EXTRN TTB:PP DISLL. TO PENDING POINTER P EJECT P P , P**********************
0x3124d0…312664 Dummy {f00=0x00b7, f01=0x0190, f02=» EQU 1 0 = NO MMU P . PSWPBLK EQU 0 0 = NO SWAPPABLE WORK BLOCKS " P T 2 P********************************************* 2 P* * 2 P* APCTAB DISPLACEMENTS * 2 P* =====
0x312664…3127f8 Dummy {f00=0x00b7, f01=0x0190, f02=»******* j P 4 PAPLADA EQU 22 APPL. DISC FILE ADDR. (2 WORDS) =1 ( PAPLREL EQU 18 APPL. RELOCATION BASE P , PAPLIOE EQU 0 APPLICATION RESTART ADDRESS | 8 PAPLDAD EQU 0 APPLICATION FILE DISC ADDR. (BIT 0-15) 8 PAPLLAC EQU 14 APPLICATION LOAD A
0x3127f8…31298c Dummy {f00=0x00b7, f01=0x0190, f02=» EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY , . PAPLSEG EQU 4 PHYSICAL START OF 1ST SEGMENT X . PAPLNPE EQU 6 NUMBER OF PAGE ENTRIES IN MMU PAPLSWB EQU 2 APPLICATION SWB * PAPLSTA EQU 16 APPL. PGM START ADDRESS
0x31298c…312b20 Dummy {f00=0x00b7, f01=0x0190, f02=»: | P F P* ENTRY ->! * SYSLCR ENTRY * ! N P* ! READ CONFIGURATION FILE AND BUILD SHADOW-TABLES ! PART 1 F P* ! ! F P* ! T:
0x312b20…312cb4 (3, 304) Dummy {f00=0x00b8, f01=0x0190, f02=» ! THE END OF MONITOR. ! F P* ! U:BTAB: ! F F P* ! -A TABLE OF 'NUMBER OF REAL UWB'S' IS BUILT IN ! F P* ! U:BTAB PROTOTYPE.
0x312cb4…312e48 Dummy {f00=0x00b8, f01=0x0190, f02=»DDRESSES IN DDIV-PROTOTYPE. ! n F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! ( F P* ! -RELOCATE ADDRESSES IN U:BTAB ! r H P* ! -MOVE SYSLCR (NOT PART 1)(AND IF THEY EXIST ! < P
0x312e48…312fdc Dummy {f00=0x00b8, f01=0x0190, f02=»IN PART 2.A ! x F P* ------------------------------------------------------- 2 P EJECT | T P* ! -MOVE DDIV PROTOTYPE TO FOLLOW CONF.DATA ! PART 2.A F P* !
0x312fdc…313170 Dummy {f00=0x00b8, f01=0x0190, f02=»MON DATA AREA. PROCESS CWB'S & UWB'S. ! v F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! 0 F P* ! SHADOW-TABLE. ! z F P* ! !
0x313170…313304 Dummy {f00=0x00b8, f01=0x0190, f02=», UWB'S ! X F P* ! AND DWB'S. ! F P* ! -BUILD MM-TABLE ! F P* ! -MOVE T:D ! F P* ! -MOVE D.T.
0x313304…313498 Dummy {f00=0x00b8, f01=0x0190, f02=» -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS ! > F P* ! ! F P* ! P R O D A T
0x313498…31362c Dummy {f00=0x00b8, f01=0x018e, f02=»FOR SWB'S ! f F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P* ! -MOVE T:A ! j F P* ! -INCLUDE DDIV-PROTOTYPE IN FREE AREA. ! F P*
0x31362c…3137c0 Dummy {f00=0x00b8, f01=0x0190, f02=» P P* ! R E A L T A ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x3137c0…313954 (3, 305) Dummy {f00=0x00b8, f01=0x0190, f02=»LLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! : F P* !-----------------------------------------------------! J P* ! SUBROUTINES -COMMON TO ALL PARTS IN THIS PRO
0x313954…313ae8 Dummy {f00=0x00b8, f01=0x0190, f02=»************* t . P* * . P* COMMON DISPLACEMENTS AND CONSTANTS * H . P* * z . P***************************************** P 0 PAPLTAB EQU 12 ADDRESS TO APPL. CON
0x313ae8…313c7c Dummy {f00=0x00b8, f01=0x018e, f02=»ON DATA n , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF DDIV PROTOTYPE @ $ PDYNSTA EQU 52 START OF DYNTAB:S l : PFSTADR EQU 20 1ST FREE ADDRESS WHEN ALLOCATING BUFFER * PFSTPAG EQU 22 1ST FREE PAGE (PHYSICAL) , PFYSPAG E
0x313c7c…313e10 Dummy {f00=0x00b8, f01=0x0190, f02=» j * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AREA 6 $ PM:REL EQU 16 RELOCATION CONSTANT b , PSYSBUF EQU 28 START OF TEMPORARY BUFFER ( PSWBFSA EQU 4 SWB-FILE START ADDRESS & PSWBFSE EQU 8 SWB-FILE END ADDRESS
0x313e10…313fa4 Dummy {f00=0x00b8, f01=0x0190, f02=»G j $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2 2 $ PCOM03 EQU 44 COMMON WORK AREA 3 Z $ PCOM04 EQU 50 COMMON WORK AREA 4 P EJECT P*************************** P* TABLEN DISPLACEMENTS * P********
0x313fa4…314138 Dummy {f00=0x00b8, f01=0x0190, f02=»:BTAB 'OLD' ADDRESS & PT:ATNW EQU 6 T:ATAB 'NEW' ADDRESS & PU:BTNW EQU 8 U:BTAB 'NEW' ADDRESS F & PS:BTNW EQU 10 S:BTAB 'NEW' ADDRESS p . PBTASK EQU 12 INDICATE BUGGER TASK PRESENT ( PSHADOW EQU 14 START OF SHADOW-TABLE & PT:ANO EQU 16 TOT
0x314138…3142cc Dummy {f00=0x00b8, f01=0x0190, f02=» OF PDDIV AND S:GTAB | P EJECT & P********************************* * & P* SCRATCH-PAD DISPLACEMENTS * T & P********************************* ~ P* . PAPCBLK EQU 98 START OF APL. CONTROL BLOCK " PBIT EQU 72 SAVE FOR SUPER-LOOP (
0x3142cc…314460 Dummy {f00=0x00b8, f01=0x0190, f02=»R FOR TABLE-SCANNING n 4 PFLAG EQU 80 REAL TASK DATA PROCESSING INDICATOR $ PMMREL1 EQU 96 PHYSICAL PAGE BASE T , PMOVADD EQU 102 ADDRESS CHANGE AFTER MOVE | 2 PMOVED EQU 104 INDICATOR IF BLOCK ALREADY MOVED PMOVLE1 EQU 106 MOVE LENGTH 1 PMO
0x314460…3145f4 (3, 306) Dummy {f00=0x00b8, f01=0x0190, f02=»NDICATE IF SPACE IN PDDIV , PRELOCA EQU 100 SAVE FOR RELOCATION BASE " PSWITCH EQU 114 D.T.INDICATOR R . PSHADST EQU 120 START OF NEXT SHADOW-TABLE v 6 PTADISP EQU 122 DISPLACEMENT IN T:A TO W.B. ADDRESS PUWB EQU 116 U.W.B. INDICATOR $ PWB
0x3145f4…314788 Dummy {f00=0x00b8, f01=0x0190, f02=» 86 PSAVE06 EQU 88 PSAVE07 EQU 90 " 2 PSAEFA1 EQU 92 SAVE SCTEFA BITS 0-5 PAGE NUMBER 8 2 PSAEFA2 EQU 94 SAVE SCTEFA+2 BITS 4-15 "OFFSET" n P EJECT P P ***************** P ***************** P ** *
0x314788…31491c Dummy {f00=0x00b8, f01=0x018e, f02=»******** P* P:MTAB * P********** " PT:ATAB EQU 0 4 PU:BTAB EQU 2 H PP:BAS EQU 6 SEGMENT BASE . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' | & POPTION EQU 34 DISPL TO OPTION WORD ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RS
0x31491c…314ab0 Dummy {f00=0x00b8, f01=0x0190, f02=» P********** ! 0 PUP:REC EQU 6 RECORD LENGTH IN INITIAL U:BTAB ! " PUPADDR EQU 2 PROTOTYPE ADDRESS ! J PUPNAME EQU 4 PROTOTYPE NAME ! p 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ! P* ! . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB !
0x314ab0…314c44 Dummy {f00=0x00b8, f01=0x0190, f02=» ! P " P " $ P******************************* " " $ P* CONFIGURATION FILE (CONFIG) * " J $ P******************************* " r P " P* TASK DEFINITION BLOCK: " PTDBBT EQU 0 1A BLOCK TYPE " ( PTDBNT EQU TDBBT+1 2N NUMBER OF T
0x314c44…314dd8 Dummy {f00=0x00b8, f01=0x0190, f02=»VEL " t : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES # P* # J & PTDBFST EQU TDBNC+2 FIRST TERM DEF # T $ PTDC EQU 7 TERMINAL DEVICE CLASS # ~ PTLC EQU 7 LINE CONNECTION # ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH # P* # * PSDC EQU 7
0x314dd8…314f6c Dummy {f00=0x00b8, f01=0x0190, f02=» NUMBER OF SPEC. DEV. CLASSES # | ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD $ & P* $ R P* $ & P* USER WORK BLOCK TYPE DEF. BLOCK $ f PUDBBT EQU 0 1A BLOCK TYPE $ , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES $ P* $ ( PUDBFST EQU UDBNU+3 FIRST UDB
0x314f6c…315100 Dummy {f00=0x00b8, f01=0x0190, f02=» EJECT $ P % P % P********* % & P* T:A * % 8 P********* % J PT:ASTA EQU -14 T:A START % 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) % | $ PCSB EQU -12 CURRENT SEGMENT BASE % 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE L
0x315100…315294 (3, 307) Dummy {f00=0x00b8, f01=0x0190, f02=»DRESS % p ( P (HERE: DISPLACEMENT TO T:A-START) & P & : PT:ATID EQU -4 TASK ID & F PSTKE EQU -2 STACK END & d PPA EQU 0 STACK POINTER & PSTKB EQU 2 STACK BASE & " PWATFST EQU 4 FIRST WAT-ELEMENT & P* & P* DSCB-RECORD: & PDSCB
0x315294…315428 Dummy {f00=0x00b8, f01=0x0190, f02=»ER POINTER & P EJECT ' P ' P ' , P********* ' 8 P* T:D * ' J P********* ' ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A ' n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) ' , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) ' 8 PDATTAB EQU 6 D
0x315428…3155bc Dummy {f00=0x00b8, f01=0x0190, f02=» * PSWBMSK EQU 12 MASK FOR SWB'S -"- ( * PCWBMSK EQU 14 MASK FOR CWB'S -"- ( 2 * PUWBMSK EQU 16 MASK FOR UWB'S -"- ( ` ( PDWBFST EQU 18 FIRST WORD IN DBLK-TAB ( P ( . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ( P ( P ( P****
0x3155bc…315750 Dummy {f00=0x00b8, f01=0x018e, f02=» P --------- ------- ) PLMP1 EQU /400 SYSLOAD RUNS ) " PLMP2 EQU /200 READ ERROR ) D " PLMP3 EQU /100 MEMORY OVERFLOW ) d & PLMP4 EQU /80 FORMAT ERROR (CONFIG) ) PLMP5 EQU /40 TID ERROR ) " PLMP6 EQU /20 UWB OR SWB ERROR ) " PLMP7 EQU /10 MM-
0x315750…3158e4 Dummy {f00=0x00b8, f01=0x018e, f02=» ) x P* OTHER CONSTA+STKCOMNTS * * P********************* * , P * J & PWBLEN EQU -4 LENGTH OF WORK-BLOCK * V , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE * & PSWBLEN EQU 4 DISP TO LENGTH OF SWB * P * $ PFCBDD1 EQU 8 DISP TO FIRST DSET *
0x3158e4…315a78 Dummy {f00=0x00b8, f01=0x0190, f02=» $ PSTKSZ EQU 128 DEFAULT STACK-SIZE + P + , ( PSEGREC EQU 6 RECORD LENGTH IN S:GTAB + 8 8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB + d P + PTTBTID EQU 2 TID IN TTAB + . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB + P + ( PNTPA E
0x315a78…315c0c Dummy {f00=0x00b8, f01=0x0190, f02=»EN EQU 24 LENGTH OF EACH APL.TABLE IN SCRATCH-PAD AREA + 0 PACBLEN EQU 26 APPL. CONTROL BLOCK LENGTH =1 , > P , r F P***************************************************************** , z F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * ,
0x315c0c…315da0 Dummy {f00=0x00b8, f01=0x0190, f02=» * , X F P***************************************************************** - P - P - h P - t PCALL FORM 16=/F697,16 - P EJECT - P - P - 2 P********************************************* - 2 P*******
0x315da0…315f34 (3, 308) Dummy {f00=0x00b9, f01=0x018e, f02=» * - f 2 P** ** . 2 P***** ***** . B 2 P********************************************* . x P . 2 P* READ CONFIGURATION FILE & BUILD * . 2 P* SHADOW-TABLES
0x315f34…3160c8 Dummy {f00=0x00b9, f01=0x018e, f02=» P / P EJECT / P / P* START OF PROGRAM PART 1 * / & P / J P / R PSYSLCR EQU * / ^ P* / r P* CLEAR SCRATCH-PAD AREA / | P* / 0 P LDKL A1,STKEND A1=START OF SCRATCH-PAD AREA / . P LDKL A2,STKMOV A2=END OF SCRATCH-PAD AREA /
0x3160c8…31625c Dummy {f00=0x00b9, f01=0x0190, f02=» / P LD A1,SCTSFA 0 8 P ST A1,SHADST+STKEND SAVE START OF 1:ST SHADOW-TABLE 0 * P LDKL A10,STKEND START OF 1:ST APPTAB 0 Z . P ST P,SAVE01+STKEND SAVE LOCATION COUNTER 0 0 P CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER 0 P* 0 P* GET APPLICATIO
0x31625c…3163f0 Dummy {f00=0x00b9, f01=0x0190, f02=») SYA105 MORE APPLICATIONS OF THIS TYPE 0 P LD A2,APPLNO+STKCOM 1 0 P RF(NZ) SYA102 1 L P LDKL A2,LCREND 1 b P RF SYA104 1 z PSYA102 EQU * 1 6 P LDKL A2,SYA152 NO MORE APPLICATIONS OF THIS TYPE 1 PSYA104 EQU * 1 P AD A2,M:REL+STKCOM 1
0x3163f0…316584 Dummy {f00=0x00b9, f01=0x0190, f02=»* READ CONFIG FILE AND BUILD SHADOWTABLE 1 P 2 0 P IFT MMUPAG=0 2 < * P LD* A2,APLLAC,A1 GET START OF P:MTAB 2 R $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS 2 & P SUKL A12,2 ADJUST FOR LENGTH-WORD 2 P ST A12,T:ATOD,A10 SAVE 2 , P LD A4,U:BTAB,A2 GET U
0x316584…316718 Dummy {f00=0x00b9, f01=0x0190, f02=»,S:BTAB,A2 GET S:BTAB ADDRESS 2 $ P SUK A4,2 ADJUST FOR LENGTH WORD 3 & P ST A4,S:BTOD,A10 SAVE 3 N P XIF 3 l P IFT MMUPAG=0 3 x P* T:ATAB PROCESSING: 3 P 3 P LDR* A4,A12 T:ATAB-LENGTH 3 P LDR A3,A4 SAVE 3 > P AD A3,SHADST+STKEND ADD
0x316718…3168ac Dummy {f00=0x00b9, f01=0x0190, f02=»ET LOCATION COUNTER 3 z P CALL CMPADR 4 P RF(L) SYA110 OK! 4 0 " P LDKL A1,LMP3 MEMORY OVERFLOW 4 J P CALL ERROR 4 p ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS 4 P LDK A2,0 4 P* CLEAR T:ATAB SHADOW-TABLE: 4 P 4 PZERO SUK A3,2 NEXT 4
0x3168ac…316a40 Dummy {f00=0x00b9, f01=0x0190, f02=»READ CONF.FILE AND GET TASK CLASS 4 P* 5 * 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. 5 4 " P LC A2,TDBBT,A11 GET BLOCKTYPE 5 p P CCK A2,'TT' TASK DEF? 5 P RF(E) SYA120 OK! 5 P LDK A1,LMP4 NO TASK PRESENT 5 P CALL ERROR 5 ( PSY
0x316a40…316bd4 (3, 309) Dummy {f00=0x00b9, f01=0x0190, f02=»A125 NO! 5 2 P ST A2,BTASK,A10 INDICATE BUGGER TASK PRESENT 6 " P RF SYA136 SKIP TO NEXT BLOCK 6 F PSYA125 LDR A8,A12 SAVE 6 l P LDR* A4,A12 T:ATAB LENGTH 6 P* 6 P* SCAN T:ATAB 6 * P* FIND CORRESPONDING TASK CLASS IN T:A 6 P* 6 PSYA1
0x316bd4…316d68 Dummy {f00=0x00b9, f01=0x0190, f02=»D (TID ERROR) 6 r P CALL ERROR 7 PSYA135 EQU * 7 * P CW A2,T:ATID,A6 TID EQUAL? 7 > P RB(NE) SYA130 NO! 7 b P* 7 | , P* STORE NUMBER OF TASKS IN SHADOW TABLE 7 P* FOR THIS TASK CLASS 7 P* 7 P SUR* A4,A12 T:ATAB LENGTH 7 P XIF 7
0x316d68…316efc Dummy {f00=0x00b9, f01=0x0190, f02=»OM GET LAST ADDRESS 7 ~ P ANKL A2,/FFF GET OFFSET 8 P ST A2,SAEFA2+STKEND SAVE 8 < , P LD* A2,APLMMC,A1 GET FIRST TTAB ADDRESS 8 ^ $ P TL TTB:MT,A2 LOAD MMU REGISTERS 8 * P EL* A2,APLLAC,A1 GET START OF P:MTAB 8 $ P EL A12,T:ATAB,A2 T:ATAB ADDRESS 8
0x316efc…317090 Dummy {f00=0x00b9, f01=0x0190, f02=»ADJUST FOR LENGTH WORD 8 $ P ST A4,U:BTOD,A10 SAVE IN APPTAB 9 P XIF 9 F P IFT MMUPAG+SWPBLK=2 9 R ( P EL A4,S:BTAB,A2 GET S:BTAB ADDRESS 9 n $ P SUK A4,2 ADJUST FOR LENGTH WORD 9 P ST A4,S:BTOD,A10 SAVE 9 P XIF 9 P IFT MMUPAG=1 9 P* T:AT
0x317090…317224 Dummy {f00=0x00b9, f01=0x0190, f02=» 9 d > P AD A3,SHADST+STKEND ADD LAST SHADOW (MONITOR) END ADDRESS : P* CHECK ADDRESSES : J P : d $ P LDR A11,A3 END OF SHADOW-TABLE : l . P LD A9,SAVE01+STKEND GET LOCATION COUNTER : P CALL CMPADR : P RF(L) SYA110 OK! : " P LDKL A1,LMP3 MEMORY
0x317224…3173b8 Dummy {f00=0x00b9, f01=0x0190, f02=» SUK A3,2 NEXT : P CMR A3 CLEAR ; P CW A3,SHADST+STKEND ALL? ; , P RB(NE) SYA115 NO! ; N " P STR A4,A3 STORE TABLE LENGTH ; h P* ; ( P* READ CONF.FILE AND GET TASK CLASS ; P* ; 8 P LD A11,CSTAPP+STKEND GET CONF.START FOR THIS APPL. ; "
0x3173b8…31754c Dummy {f00=0x00b9, f01=0x018e, f02=»L ERROR ; ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID < P SLL A2,8 . < < P LC A2,TDBMC+5,A11 ... < P P CWK A2,'TB' BUGGER TASK? < n P RF(NE) SYA125 NO! < 4 P ST A2,BTASK,A10 INDICATE 'BUGGER TASK PRESENT' < P RF SYA136 SKIP THIS BLOCK < PSYA1
0x31754c…3176e0 Dummy {f00=0x00b9, f01=0x0190, f02=» P* = PSYA130 ADKL A8,2 NEXT T:A = P ELR A6,A8 GET T:A ADDRESS = 0 P SUK A4,2 = R P RF(NZ) SYA135 = d , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) = z P CALL ERROR = PSYA135 EQU * = P EL A5,T:ATID,A6 GET TID = P CWR A2,A5 TID EQUAL?
0x3176e0…317874 (3, 310) Dummy {f00=0x00b9, f01=0x0190, f02=» A5,A12 = P SUR A4,A5 T:ATAB LENGTH > P XIF > 0 . P NGR A4,A4 => A4=DISPLACEM. IN SHADOW-TAB > < ( P LC A5,TDBNT,A11 GET NUMBER OF TASKS > n P SLL A5,8 > P LC A5,TDBNT+1,A11 > P CALL CONVRT > . P LD A2,SHADST+STKEND START OF SHADOW TABLE >
0x317874…317a08 Dummy {f00=0x00b9, f01=0x0190, f02=»36 CALL NXTBLK > PSYA137 EQU * ? P CCK A2,'TT' ? * & P RB(E) SYA120 NEXT TASK DEF BLOCK ? > P CCK A2,'CC' ? h P RF(NE) SYA140 ? | * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ? P CALL NXTCOM SKIP COMMON DEF ? PSYA140 CCK A2,'UU' ? P RF(NE) SY
0x317a08…317b9c Dummy {f00=0x00b9, f01=0x0190, f02=»A141 EQU * ? P IFT SWPBLK=1 @ P LCR A2,A11 @ ( P CCK A2,'SS' @ < P RF(NE) SYA143 @ P P LD A8,S:BTOD,A10 @ f P CALL USWBTP @ P XIF @ PSYA143 EQU * @ 2 P LD A2,SHADST+STKEND GET START OF SHADOW-TABLE @ $ P ST A2,SHADOW,A10 SAVE IN APPT
0x317b9c…317d30 Dummy {f00=0x00b9, f01=0x0190, f02=»TKEND SAVE START OF NEXT SHADOW-TABLE @ P ADKL A10,TABLEN NEXT APPTAB A . P LDKL A1,SYA100 A R P AD A1,M:REL+STKCOM A j ( P ABR A1 CHECK IF MORE APPLICATIONS? A P EJECT A L P***********************************************************************
0x317d30…317ec4 Dummy {f00=0x00b9, f01=0x0190, f02=»BTAB PROTOTYPE TABLE * A ` L P* ================================================================= * B L P* * B p L P* REFERENCED IN: SYSLCR *
0x317ec4…318058 Dummy {f00=0x00b9, f01=0x0190, f02=»B PROTOTYPE TABLE * B ` L P* A11- POINTER IN CONFIGURATION TABLE TO 'U' OR 'S' BLOCK * C L P* * C p L P* EXIT: *
0x318058…3181ec Dummy {f00=0x00b9, f01=0x0190, f02=» * C ` L P* * D L P* SUBROUTINES: GETNUM,ERROR * D n L P* * D
0x3181ec…318380 Dummy {f00=0x00b9, f01=0x0190, f02=» D P ADKL A11,1 E P LDR A6,A11 E * P CALL GETNUM PACK 3 DIG. RESULT IN A5 E 0 $ P LDR A1,A5 SAVE NUMBER OF UWB'S E ^ PSYA142 EQU * E P LDR A12,A8 E " P LDR* A3,A12 LENGTH OF U:BTAB E ( P ADKL A11,UDBFST-1 FIRST UDB RECORD E PSYA145 E
0x318380…318514 (3, 311) Dummy {f00=0x00b9, f01=0x0190, f02=»MPARE W. 1:ST WORD IN PROTOTYP E | * P RF(E) FRSTOK FIRST TWO CHARACTERS OK! F & 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S F T P RF(NN) SYA150 F P LDK A1,LMP6 UWB NOT FOUND F P CALL ERROR F PSYA150 EQU * F ( P ADKL A12,UP:REC ADD TO NEXT REC
0x318514…3186a8 Dummy {f00=0x00b9, f01=0x018e, f02=» P G P* PROTOTYPE FOUND * G P G , 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG G 8 P LDR A6,A11 G t P CALL GETNUM CONVERT G 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) G . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE G
0x3186a8…31883c Dummy {f00=0x00b9, f01=0x018e, f02=» G * P CALL GETNUM PACK 3 DIG. RESULT IN A5 H $ P LDR A1,A5 SAVE NUMBER OF UWB'S H 6 PSYA142 EQU * H ^ P LDR A12,A8 START OF TABLE H r P ELR A3,A12 LENGTH OF U:BTAB H ( P ADKL A11,UDBFST-1 FIRST UDB RECORD H PSYA145 EQU * H 0 P LCR A2,A11 GET
0x31883c…3189d0 Dummy {f00=0x00b9, f01=0x0190, f02=» H ` P CWR A2,A4 I P RF(E) FRSTOK FIRST WORD OK! I 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S I > P RF(NN) SYA150 I r P LDK A1,LMP6 UWB NOT FOUND I P CALL ERROR I PSYA150 EQU * I ( P ADKL A12,UP:REC ADD TO NEXT RECORD I P RB SYA145
0x3189d0…318b64 Dummy {f00=0x00b9, f01=0x0190, f02=»4,/FF I P CWR A4,A2 J P RB(NE) SYA147 .NEQ. J P EJECT J < P J J P* PROTOTYPE FOUND * J V P******************* J r P J 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG J P LDR A6,A11 J P CALL GETNUM CONVERT J 4 P E
0x318b64…318cf8 Dummy {f00=0x00b9, f01=0x0190, f02=» NO OF TYPES IN CONFIG FILE J P RB(P) SYA142 K $ P ADKL A11,UDBFST-1 K : P RTN A14 K T P XIF K d P EJECT K p PSYA152 EQU * K ~ P* K $ P* GET START OF SYSLCR AFTER MOVE K P* K : P LD A7,SHADST+STKEND TO-ADDRESS (AFTER SHADOW-TABLES) K
0x318cf8…318e8c Dummy {f00=0x00b9, f01=0x0190, f02=»PART2 K t , P AD A2,M:REL+STKCOM ADD RELOCATION BASE L P LDR A3,A2 L > P SUR A2,A7 MOVE LENGTH L P P NGR A2,A2 L n . P ST A2,RELOCA+STKEND SAVE RELOCATION BASE L P IFT MMUPAG=1 L P* L F P* CREATE MM-TABLE FOR SYSLCR (AND IF THEY EXIST SYSLCO
0x318e8c…319020 Dummy {f00=0x00b9, f01=0x0190, f02=»A2,MMREL1+STKEND SAVE PHYSIVAL PAGE L " P SRL A2,2 SHIFT FOR MM-PAGING M , P LDKL A11,MMDDIV M R , P ADR A11,A13 GET MM-TABLE START ADDRESS M j P LDK A1,16 SET COUNTER M ( PSYA157 STR A2,A11 STORE PAGE POINTER M P ADKL A11,2 NEXT ENTRY M P ADKL
0x319020…3191b4 (3, 312) Dummy {f00=0x00ba, f01=0x0190, f02=» M 2 P ST A7,SHADST+STKEND SAVE (LOGICAL) TO-ADDRESS N $ P LDR A2,A13 A13=START OF SYSINI N > P SUR A2,A3 LENGTH N f , P ST A2,MOVLE1+STKEND SAVE MOVE LENGTH 1 N * P ADKL A2,INILEN ADKLD LENGTH OF SYSINI N , P ST A2,MOVLE2+STKEND SAVE LENGTH TO MOVE N
0x3191b4…319348 Dummy {f00=0x00ba, f01=0x0190, f02=» N " P* CALCULATE DDIV FROM-ADDRESS O P* O . , P CM APPLNO+STKCOM RESET NUMBER OF APPL. O 8 * P LDKL A10,STKEND START OF 1:ST APPTAB O h PSYA156 EQU * O P LDKL A5,OUT01 O P AD A5,M:REL+STKCOM O $ P LDKL A1,'CR' CREDIT APPLICATION O P CAL
0x319348…3194dc Dummy {f00=0x00ba, f01=0x0190, f02=»DDRESS TO S:GTAB O z $ P LDR* A9,A2 GET START OF P:MTAB P 0 P ST A3,OPTION,A9 STORE OPTION WORD IN P:MTAB P @ 0 P LD A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY P t " P ST A3,APLIOE,A1 STORE IN ACB P , P LD A3,NUMSEG,A2 GET NUMBER OF SEGMENTS P P XIF P
0x3194dc…319670 Dummy {f00=0x00ba, f01=0x0190, f02=»N WORD IN P:MTAB P t 0 P EL A3,I:RSTE,A9 GET INTERPRETER ERROR ENTRY Q " P ST A3,APLIOE,A1 STORE IN ACB Q L , P EL A3,NUMSEG,A2 GET NUMBER OF SEGMENTS Q r P XIF Q P LDR A1,A2 Q . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH Q " P CALL MULT A2*A3 RESUL
0x319670…319804 Dummy {f00=0x00ba, f01=0x0190, f02=» OF DDIV AFTER MOVE Q r " P SUR A6,A1 RELOCATION FOR DDIV R P EJECT R B P R P P R X P R d 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * R p . P* CALCULATE TOTAL (=REAL) LENGTH * R . P* REMOVE NOT USED ENTRIES IN T:ATAB * R . P
0x319804…319998 Dummy {f00=0x00ba, f01=0x0190, f02=»IATE POINTERS R P S ( P LD A8,T:ATOD,A10 GET T:ATAB ADDRESS S P LDR* A3,A8 GET LENGTH S J P ADR A3,A8 END OF T:ATAB S h P ST A3,ENDADD+STKEND SAVE S 4 P LD A5,SHADOW,A10 GET START OF T:ATAB SHADOW-TAB S P LDR A4,A5 2:ND POINTER S & P LDR A
0x319998…319b2c Dummy {f00=0x00ba, f01=0x0190, f02=»* SCAN T:ATAB: S P T " PSYA160 ADKL A8,2 TAKE NEXT T:A T $ P ADK A5,2 NEXT T:A IN SHADOW-TAB T D P CW A8,ENDADD+STKEND T l P RF(E) SYA170 ALL DONE T P LDR* A1,A8 GET T:A T * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB T , P RB(Z) SYA160 THIS T:A I
0x319b2c…319cc0 Dummy {f00=0x00ba, f01=0x0190, f02=»OW-TAB ADDRESS T v ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS U 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) U B P LDR* A12,A8 GET T:A-ADDRESS U ~ P ADR A12,A6 RELOCATE U . P STR A12,A2 STORE ADDR. (EV. ON NEW PLACE) U P* RELOCATE W.B.-ADDRESSE
0x319cc0…319e54 (3, 313) Dummy {f00=0x00ba, f01=0x018e, f02=»RESS U j PSYA165 SUK A7,1 DEC. COUNTER V P RB(N) SYA160 TAKE NEXT T:A V 0 P ADRS A6,A1 RELOCATE V T P XIF V p P IFT MMUPAG=1 V | P V P* INITIATE POINTERS V P V P LD A8,T:ATOD,A10 T:ATAB V P ELR A3,A8 GET LENGTH V P ADR A3,A8 E
0x319e54…319fe8 Dummy {f00=0x00ba, f01=0x0190, f02=» V v & P LDR A2,A8 2:ND POINTER IN T:ATAB W & P LDK A3,2 SET 'NEW' T:ATAB COUNTER W 2 . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR W P W P* SCAN T:ATAB: W P W " PSYA160 ADKL A8,2 TAKE NEXT T:A W $ P ADK A5,2 NEXT T:A IN SHADOW-TAB W P CW A8
0x319fe8…31a17c Dummy {f00=0x00ba, f01=0x0190, f02=»0 THIS T:A IS NOT USED!!!!! W " P ADR A11,A7 ACCUMULATE LENGTH X $ , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH X J , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS X z ( P ADK A2,2 UPDATE 2:ND T:ATAB ADDRESS X 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE
0x31a17c…31a310 Dummy {f00=0x00ba, f01=0x0190, f02=».B.-ADDRESSES X P Y $ P EL A12,T:DAD,A1 GET T:D-ADDRESS Y $ P EL A7,WATLEN,A12 LENGTH OF WAT Y F . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS Y n PSYA165 SUK A7,1 DEC. COUNTER Y P RB(N) SYA160 TAKE NEXT T:A Y P ST A10,SAVE04+STKEND SAVE Y
0x31a310…31a4a4 Dummy {f00=0x00ba, f01=0x0190, f02=» A1,4 NEXT W.B. Y P RB SYA165 Z P Z * PSYA170 EQU * Z 2 > P ST* A3,SHADOW,A10 STORE NEW TABLE LENGTH IN SHADOW-TABLE Z F P IFT MMUPAG=1 Z $ P ES* A3,T:ATOD,A10 AND IN T:ATAB Z P XIF Z P IFT MMUPAG=0 Z $ P ST* A3,T:ATOD,A10 AND IN T:ATAB
0x31a4a4…31a638 Dummy {f00=0x00ba, f01=0x0190, f02=»T A2,T:ANO,A10 SAVE TOT. NUMBER OF T:A'S Z P [ 0 P EJECT [ < " P****************************** [ J $ P* RELOCATE ADDRESSES IN U:BTAB * [ p $ P* (REAL LENGTH=PROTOTYPE LEN.) * [ $ P******************************** [ P [ P IFT MMUPAG=0 [ $ P L
0x31a638…31a7cc Dummy {f00=0x00ba, f01=0x0190, f02=»YA185 ALL DONE! [ P ADRS A6,A5 RELOCATE P XIF 4 P IFT MMUPAG=1 @ $ P LD A5,U:BTOD,A10 U:BTAB ADDRESS V P ELR A3,A5 TABLE LENGTH ~ P ADK A5,2 P SUK A3,2 SUB LENGTH-WORD PSYA180 RF(Z) SYA185 P ST A10,SAVE04+STKEND STOR
0x31a7cc…31a960 Dummy {f00=0x00ba, f01=0x0190, f02=» 8 P ADK A5,UP:REC ADD TO NEXT RECORD IN U:BTAB PROTOTYP ] P SUK A3,UP:REC ] @ P RB SYA180 ] V P EJECT ] h PSYA185 EQU * ] v P IFT MMUPAG+SWPBLK=2 ] P* ] $ P* COMPUTE REAL LENGTH OF S:BTAB ] P* ] $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS ] "
0x31a960…31aaf4 (3, 314) Dummy {f00=0x00ba, f01=0x0190, f02=»ANNED! ] n $ P EL A4,2,A5 GET PROT. W.B.-ADDR. ^ P ADR A4,A6 RELOCATE ^ 6 P ES A4,2,A5 STORE IT BACK ^ R , P EL A4,UPNUMB-1,A5 GET NUMBER OF COPIES ^ t P ANK A4,/FF GET RIGHT BYTE ^ . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! ^ P ADK A2,2 INCREM
0x31aaf4…31ac88 Dummy {f00=0x00ba, f01=0x0190, f02=» $ P SUK A3,UP:REC DECREMENT LENGTH _ P RB SYA190 _ , P XIF _ > P IFT SWPBLK-MMUPAG=1 _ J $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS _ f * P LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE _ P LDR A2,A3 SAVE _ " P SUK A3,2 EXCLUDE LENGTH WORD _ , PSYA195 RF(Z) S
0x31ac88…31ae1c Dummy {f00=0x00ba, f01=0x0190, f02=» LD A4,UPNUMB-1,A5 GET NUMBER OF COPIES _ P ANK A4,/FF ` 0 . PSYA196 RF(Z) SYA198 NO MOORE OF THIS TYPE! ` D P ADK A2,2 INCREMENT LENGTH ` v ( P SUK A4,1 DECREMENT NUMBER OF COPIES ` P RB SYA196 ` 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTY
0x31ae1c…31afb0 Dummy {f00=0x00ba, f01=0x0190, f02=»S:BTAB ADDRESS ` n 0 P ST A2,S:BLEN,A10 SAVE LENGTH OF REAL S:BTAB a P XIF a J P EJECT a V P a d 6 P* RELOCATE T:ATAB- AND U:BTAB-ADDRESSES IN P:MTAB a l P a P ADS A6,T:ATOD,A10 a P ADS A6,U:BTOD,A10 a P ADKL A10,TABLEN NEXT APPTAB a
0x31afb0…31b144 Dummy {f00=0x00ba, f01=0x0190, f02=»LCO AND SYSLBA) a l P* AND SYSINI b P* b , ( P LD A2,SHADST+STKEND GET TO-ADDRESS b 6 * P OR A2,MMREL1+STKEND PHYSICAL ADDRESS b b P LDR A5,A2 b , P AD A5,MOVLE1+STKEND A5=START OF SYSINI b P LDR A7,A2 b & P LDKL A1,PART2 GET START OF PART2 b
0x31b144…31b2d8 Dummy {f00=0x00ba, f01=0x0190, f02=»ATION BASE b r , P ADS A4,M:REL+STKCOM NEW RELOCATION BASE c P EJECT c B P* c P , P* JUMP TO MOVE ROUTINE IN SYSTEM-STACK c Z P* c P* INPUT : A1=FROM-ADDRESS c P* A2=TO-ADDRESS c P* A3=LENGTH c P* A7=RETURN-A
0x31b2d8…31b46c Dummy {f00=0x00ba, f01=0x0190, f02=»GRAM PART 2.A * c " P***************************** d P d > P d F PPART2 EQU * d R " P LDR A8,P LOAD TEMP. STACKBASE d f ( P ADK A5,2 ADD FOR RELOCATION ROUTINE d P CFR A8,A5 d P* d P* MOVE CONF.FILE d P* d * P LD A1,CONSTA+STKC
0x31b46c…31b600 Dummy {f00=0x00ba, f01=0x0190, f02=» UPDATE START OF CONF. DATA d | $ P ABL STKMOV JUMP TO MOVE-ROUTINE e $ * P LDKL A10,STKEND START OF 1:ST APPTAB e L 0 P CM APPLNO+STKCOM CLEAR APPL.NUMBER COUNTER e z P* e P* GET APPLICATION e P* e PSYA200 EQU * e $ P LDKL A1,'CR' CREDIT APP
0x31b600…31b794 (3, 315) Dummy {f00=0x00ba, f01=0x0190, f02=»STKEND GET PAGE e P ST A2,FYSPAG+STKCOM f * P LD A2,SAEFA2+STKEND GET DISPLACEMENT f 4 P ST A2,LSTADR+STKCOM f b P XIF f ~ P IFT MMUPAG=0 f P LD A2,SCTEFA+2 f P ST A2,LSTADR+STKCOM f P XIF f . P LDKL A2,LCREND NO MORE APPL. OF THIS TY
0x31b794…31b928 Dummy {f00=0x00ba, f01=0x0190, f02=» LDR A4,A1 SAVE f * P LD A2,APLLAC,A1 GET ADDRESS TO S:GTAB g P IFT MMUPAG=0 g F $ P LDR* A9,A2 GET START OF P:MTAB g * P ST A9,APLLAC,A1 SAVE START OF P:MTAB g P* g P* CALCULATE DDIV END g P LDR A5,A9 DDIV END g " P SU A5,DDIVFR,A10 EN
0x31b928…31babc Dummy {f00=0x00ba, f01=0x0190, f02=»S:GTAB g p P* h " P LDR A3,A9 GET START OF P:MTAB h . P SUR A3,A2 GET LENGTH OF PDDIV AND S:GTAB h > P IM PDDIV+STKEND SET FLAG h p ( P LD A1,SCTEFA+2 GET END OF FREE AREA h * P CWR A1,A2 START OF S:GTAB = SCTEFA+2 h P RF(NE) SYA206 NO! h $ P C
0x31babc…31bc50 Dummy {f00=0x00ba, f01=0x0190, f02=»PAG=1 h " P ELR A9,A2 GET START OF P:MTAB i * P ST A9,APLLAC,A1 SAVE START OF P:MTAB i 4 P* i b P* CALCULATE DDIV END i l P* i P LDR A5,A9 DDIV END i " P SU A5,DDIVFR,A10 END - START i & P AD A5,DDIVST+STKEND ADD NEW START i P LDR A6,A5
0x31bc50…31bde4 Dummy {f00=0x00ba, f01=0x0190, f02=»RESS i j P ADR A6,A13 RELOCATE j & P LDR* A6,A6 GET MM-TABLE CONTENTS j ( P ST A6,FSTPAG+STKCOM SAVE j R " P ANKL A5,/FFF GET DISPLACEMENT j t P ST A5,FSTADR+STKCOM SAVE j P* j P* CHECK IF MEMORY OVERFLOW j P* j P LDR A3,A9 SAVE A9 j
0x31bde4…31bf78 Dummy {f00=0x00ba, f01=0x0190, f02=» RF(L) SYA208 NOK! j P LDR A9,A5 GET DISPLACEMENT k P LD A11,SAEFA2+STKEND k > P CALL CMPADR k P RF(NL) SYA201 OK! k p PSYA208 EQU * k P LDKL A1,LMP3 k P CALL ERROR k PSYA201 EQU * k P LDR A9,A3 RELOAD k P* k ( P* CHECK
0x31bf78…31c10c Dummy {f00=0x00ba, f01=0x0190, f02=» SRL A3,11 ADJUST FOR ADDRESSING k . P ADKL A3,MMTAB ADD RELATIVE START ADDRESS l ( P ADR A3,A13 RELOCATE l Z & P LDR* A3,A3 GET MM-TABLE CONTENTS l v P ANKL A3,/FC00 l P CW A3,SAEFA1+STKEND l P RF(NE) SYA202 PAGE EQUAL? l " P LDR A3,A2 YES! CO
0x31c10c…31c2a0 Dummy {f00=0x00ba, f01=0x0190, f02=»ET EQUAL? l ~ P* m * P* CALCULATE LENGTH OF PDDIV AND S:GTAB m P* m J PSYA202 EQU * m T " P LDR A3,A2 GET START OF S:GTAB m h P ANKL A3,/FFF GET OFFSET m , P SUKL A3,/800 MORE THAN 2K LEFT IN PAGE? m P RF(NP) SYA204 m " P LDR A3,A2 GET START
0x31c2a0…31c434 (3, 316) Dummy {f00=0x00bb, f01=0x0190, f02=» m PSYA204 EQU * n " P LDR A3,A9 GET START OF P:MTAB n * P SUR A3,A2 LENGTH OF PDDIV AND S:GTAB n B P IM PDDIV+STKEND SET FLAG n p 6 P ST A3,PDDIVL,A10 STORE LENGTH OF PDDIV AND S:GTAB n PSYA203 EQU * n P* n P* STORE MM-TABLES ADDRESSES n
0x31c434…31c5c8 Dummy {f00=0x00bb, f01=0x0190, f02=»L A4,MMTAB n " P ADR A4,A13 GET TABLE ADDRESS o 0 P ST A4,MMFROM+STKCOM SAVE 2:ND TABLE ADDRESS o 8 P XIF o l P* o x P* MOVE DDIV o P* o P LDR A3,A9 o & P LD A1,DDIVFR,A10 GET FROM ADDRESS o ( P LD A2,DDIVST+STKEND GET TO-ADDRESS o P
0x31c5c8…31c75c Dummy {f00=0x00bb, f01=0x0190, f02=»0 o P LD A8,STKCOM+TOTSGM PAGING? p P RF(NZ) PAGING YES! p . & P LD A8,SCTOPT NO! GET OPTION WORD p J P BIT 0:AS,1:BA,2:CO,3:CR p t , P ANKL A8,/6000 ANY BASIC OR COBOL APPL. p P RF(Z) NOSGMT NO! p 6 PPAGING LDKL A8,0 RESET FSTADR+STKCOM IF
0x31c75c…31c8f0 Dummy {f00=0x00bb, f01=0x0190, f02=» LDR* A4,A1 GET WORD p P STR A4,A2 STORE q P ADK A1,2 q 4 P ADK A2,2 q F P SUK A3,2 DEC LENGTH q X P RB(NN) MOVNXT q t P LDR A3,A9 SAVE q & P LDR A11,A2 GET START OF FREE AREA q ( P LD A9,SCTEFA+2 GET END OF FREE AREA q P CALL CMPADR q
0x31c8f0…31ca84 Dummy {f00=0x00bb, f01=0x018e, f02=» RESERVE 5 WORDS FOR DEBUGGER q P XIF r & P IFT MMUPAG=1 r 2 P CALL XMOVE r H & P* REMOVE DDIV ENTRIES IN MM-TABLE r P r " P LDR A3,A9 GET P:MTAB ADDRESS r , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r , P LDR A1,A3 GET P:MTAB ADDRESS-5WORDS
0x31ca84…31cc18 Dummy {f00=0x00bb, f01=0x0190, f02=» r z , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s 8 PSYA206 CWR A1,A2 ALL? s N P RF(E) SYA207 YES! s l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR s P SUK A1,2 s P RB SYA206 s PSYA207 EQU * s P* s P* CHANGE TABLE -
0x31cc18…31cdac Dummy {f00=0x00bb, f01=0x0190, f02=» XIF s P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t 0 P t b P t j P t r . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t ~ P t P t P IFT MMUPAG=1 t ( P LDKL A3,MMTAB GET CURRENT MM-TABLE t P ADR A
0x31cdac…31cf40 Dummy {f00=0x00bb, f01=0x0190, f02=» SAVE PHYSICALL PAGE t | * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u J * P CALL CALLMO RESERVE SPACE FOR T:ATAB u b & P TL* MMTO+STKCOM SET CORRECT TABLE u " P ESR A5,A2 STORE T:ATAB LENGTH u . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRES
0x31cf40…31d0d4 (3, 317) Dummy {f00=0x00bb, f01=0x0190, f02=»ESS u p $ P ES A2,T:ATAB,A9 STORE IN P:MTAB v $ P* RESERVE PLACE FOR T:AID TABLE v 4 P v P LDR A3,A5 GET LENGTH v d P CALL CALLMO v P TL* MMTO+STKCOM v P LDR A3,A9 GET P:MTAB v & P ADK A3,T:AID ADD TO ADDRESS WORD v 0 P ESR A5,A2 STORE T
0x31d0d4…31d268 Dummy {f00=0x00bb, f01=0x0190, f02=»SS v r ( P TL* MMFROM+STKCOM SET CORRECT TABLE w P ELR A3,A5 GET LENGTH w 6 P LDR A5,A3 SAVE w T P CALL CALLMO RESERVE SPACE w l 4 P ST A2,U:BTNW,A10 SAVE NEW (REAL) U:BTAB ADDRESS w P XIF w P IFT MMUPAG=0 w ( P LD* A3,U:BTOD,A10 GET U:BTOD LE
0x31d268…31d3fc Dummy {f00=0x00bb, f01=0x0190, f02=» STORE LENGTH w P ADK A2,2 x : P ST A2,U:BTAB,A9 SAVE 'REAL' U:BTAB-ADDRESS IN P:MTAB x ( * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB x f P LDR A5,A3 SAVE x * P CALL CALLMO RESERVE SPACE FOR T:ATAB x " P STR A5,A2 STORE T:ATAB LENGTH x . P ST A2,T
0x31d3fc…31d590 Dummy {f00=0x00bb, f01=0x0190, f02=» x P LDR A3,A5 LENGTH y P CALL CALLMO y " P STR A5,A2 STORE LENGTH y 6 $ P ADK A2,2 ADJUST FOR LENGTH-WORD y V , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB y ~ P XIF y P IFT MMUPAG=1 y & P TL* MMTO+STKCOM SET CORRECT TABLE y P ESR A5,A2 STO
0x31d590…31d724 Dummy {f00=0x00bb, f01=0x018e, f02=»* RESERV SPACE FOR REAL S:BTAB TABLE y P* z . $ P LD A5,S:BTOD,A10 S:BTAB ADDRESS z 8 0 P LD A3,S:BLEN,A10 GET LENGTH OF REAL S:BTAB z ` P LDR A5,A3 SAVE z P CALL CALLMO z P ST A2,S:BTNW,A10 z P XIF z P IFT MMUPAG+SWPBLK=2 z P TL* M
0x31d724…31d8b8 Dummy {f00=0x00bb, f01=0x0190, f02=» P STR A5,A2 { P ADK A2,2 { P ST A2,S:BTAB,A9 { ( P CALL B:RSWT { @ P XIF { T P IFT MMUPAG=1 { ` $ P TL* MMFROM+STKCOM RELOAD TABLE { v P XIF { P EJECT { P { P* BUILD COMMON DATA AREA * { P************************** { P
0x31d8b8…31da4c Dummy {f00=0x00bb, f01=0x0190, f02=» { P IFT MMUPAG=1 | P ELR A3,A8 GET LENGTH | P XIF | < P ADR A3,A8 | H 4 P ST A3,ENDADD+STKEND SAVE END OF T:ATAB ADDRESS | Z PSYA210 EQU * | ( P CM UWB+STKEND INDICATE CWB-SCANNING | P ADKL A8,2 | " P CW A8,ENDADD+STKEND ALL DONE? |
0x31da4c…31dbe0 Dummy {f00=0x00bb, f01=0x0190, f02=» P IFT MMUPAG=1 } P EL A7,CWBMSK,A12 } P XIF } 4 P CALL SHIFT SUPER-LOOPA } @ PSYA220 RF(Z) UWBCOM ALL! } ` P CALL MOVCOM } P CALL SKIFTA } P RB SYA220 } P EJECT } P } P } PUWBCOM EQU * } P* SEARCH UWB'S: }
0x31dbe0…31dd74 (3, 318) Dummy {f00=0x00bb, f01=0x0190, f02=» P EL A7,UWBMSK,A12 ~ P XIF ~ P CALL SHIFT ~ * " PSYA230 RB(Z) SYA210 ALL DONE! ~ > PSYA235 CALL MOVCOM ~ d PSYA240 CALL SKIFTA ~ ~ P RB SYA230 ~ P EJECT ~ P ~ * P* TASK CLASS DATA CONFIGURATION PART * ~ * P**********************
0x31dd74…31df08 Dummy {f00=0x00bb, f01=0x0190, f02=» CM UWB+STKEND INDICATE CWB ~ ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS $ P CW A8,ENDADD+STKEND P P RF(E) SYA270 ALL T:A'S DONE l ( P CALL T:DADD GET T:D ADDRESS TO A12 P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER O
0x31df08…31e09c Dummy {f00=0x00bb, f01=0x0190, f02=» GET NUMBER OF START-POINTS P ADR A3,A12 ADD T:D-ADDRESS $ P LDR* A3,A3 . H 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH ^ P CALL MULT AND MULTIPLY P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS
0x31e09c…31e230 Dummy {f00=0x00bb, f01=0x0190, f02=»GET CWBMASK ~ P XIF P IFT MMUPAG=1 ( P* INITIATE MM-ADDRESS TABLE POINTER 6 P b ( P LD A1,SHADOW,A10 SHADOW TABLE START j * P AD* A1,SHADOW,A10 ADDRESS TABLE START P ST A1,SAVE02+STKEND SAVE & PSYA250 CM UWB+STKEND INDICATE CWB
0x31e230…31e3c4 Dummy {f00=0x00bb, f01=0x0190, f02=»TAB-ADDRESS ~ P CALL MOVMMT MOVE MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE 6 P P LD A1,SAVE02+STKEND d & P ADK A1,2 INCREMENT TABLE POINTER P ST A1,SAVE02+STKEND RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS
0x31e3c4…31e558 Dummy {f00=0x00bb, f01=0x0190, f02=»A12 NUMBER OF BYTES-1 IN DBLKTAB P ADK A1,2 ( P ANKL A1,/FFFE EVEN ADDRESS : ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST ^ , P LDR A3,A1 GET NUMB. OF START-POINTS... P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECOR
0x31e558…31e6ec Dummy {f00=0x00bb, f01=0x018e, f02=» P CALL CALLMO MOVE T:D P ELR A1,A8 GET T:A ADDRESS " * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS D " P EL A7,CWBMSK,A12 GET CWBMASK r P XIF P P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P
0x31e6ec…31e880 Dummy {f00=0x00bb, f01=0x0190, f02=» P XIF P IFT MMUPAG=1 P EL A7,UWBMSK,A12 & P XIF @ P CALL MOVCLA L P EJECT ` P n P z " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT MMUPAG=0 P LD
0x31e880…31ea14 (3, 319) Dummy {f00=0x00bb, f01=0x0190, f02=»L A7,SWBMSK,A12 P RF(Z) SYA265 NONE P CALL SKRITT 2 PSYA265 EL A7,TWBMSK,A12 F P XIF f P RB(Z) SYA250 r P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P P 4 P**
0x31ea14…31eba8 Dummy {f00=0x00bb, f01=0x0190, f02=» ** h 4 P** ** 4 P*********************************************** H PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB P CALL MOVDT 0 P CM NEWAD2+STKEN
0x31eba8…31ed3c Dummy {f00=0x00bb, f01=0x0190, f02=»TOTYPE AREA * | & P********************************* PPRODAT EQU * @ * P LD A1,BTASK,A10 BUGGER TASK INCLUDED? T P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 ( P CM TTB:PP,A2 CLEAR PENDING POINTER P LDR A8,A2
0x31ed3c…31eed0 Dummy {f00=0x00bb, f01=0x0190, f02=» h P CALL CALLMO GET P:BAS * P LD A3,TTB:ID,A8 GET TRABUG'S TASK ID & P IFT MMUPAG=0 T 8 P LD A1,APCBLK+STKEND GET START OF APL. CONTROL TABLE j ( P LD A1,APLLAC,A1 GET START OF P:MTAB 4 P ST A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB
0x31eed0…31f064 Dummy {f00=0x00bb, f01=0x0190, f02=» z P RF(Z) SYA272 NO P XIF 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER , . P CM TTB:SB,A8 CLEAR SEGMENT BLOCK ADDRESS ` PSYA272 EQU * 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE P ST A2,TTB:SA+26,A8 SAVE A13 P IFT MMU
0x31f064…31f1f8 Dummy {f00=0x00bb, f01=0x0190, f02=»OAD CORRECT TABLE ~ 4 P ES A3,TRABUG,A1 SAVE TRABUG'S TASK ID IN P:MTAB P EL A1,P:BAS,A1 GET P:BAS R ( P TL MMBEG,A8 LOAD TRABUG'S MMU-TABLE t , P ES A1,CSB,A2 STORE CURRENT SEGMENT BASE ( P TL* MMFROM+STKCOM RELOAD DDIV TABLE P XIF P
0x31f1f8…31f38c Dummy {f00=0x00bb, f01=0x0190, f02=» P CW A8,ENDADD+STKEND P RF(E) SYA290 ALL DONE P IFT MMUPAG=0 > " P LDR* A12,A8 GET T:D ADDRESS.. T P LD A12,T:DAD,A12 . z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P " P* CALCULATE LENGTH OF DSCB'S * " P***
0x31f38c…31f520 Dummy {f00=0x00bb, f01=0x018e, f02=»ENGTH | ( P CALL MULT A3() X (A2) RESULT IN A3 & P ST A3,CSN,A1 SAVE LENG OF DSCB'S : P LDR A2,A1 d P LDR A4,A1 v P ADKL A2,T:ASTA ( P AD A4,DATTAB,A12 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S , P ADR A3,A2 A3=LENGTH OF DS
0x31f520…31f6b4 (3, 320) Dummy {f00=0x00bc, f01=0x0190, f02=» l , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START 8 " P LD A2,STKB,A1 GET STACK SIZE r $ P ST A2,CSE,A1 AND SAVE TEMPORARY 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( P LD A2,APLLA
0x31f6b4…31f848 Dummy {f00=0x00bc, f01=0x0190, f02=»ALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB P XIF J P IFT MMUPAG=1 V * P CALL GETTAB SET CORRECT TTAB-ADDRESS l , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN CLASS-LOCAL MM-TABLE P
0x31f848…31f9dc Dummy {f00=0x00bc, f01=0x0190, f02=»E IN WORK-AREA ~ $ P TL MMDDIV,A13 RELOAD DDIV TABLE P CALL MMENT GET ENTRY > " P ST A3,T:DSAV,A2 SAVE IN TTAB 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P*** *** P
0x31f9dc…31fb70 Dummy {f00=0x00bc, f01=0x0190, f02=»2) RESULT IN A3 | & P ES A3,CSN,A1 SAVE LENG OF DSCB'S P LDR A2,A1 B P ADKL A2,T:ASTA T & P EL A4,DATTAB,A12 GET DISPLACEMENT l P ADR A4,A1 GET START OF DSCB P SUR A2,A4 LENGTH OF DAT'S , P ADR A3,A2 A3=LENGTH OF DSCB'S AND DAT'S
0x31fb70…31fd04 Dummy {f00=0x00bc, f01=0x0190, f02=»STA INCREMENT TO FIRST WORD 6 PSYA285 ES A2,CIA,A1 SAVE DISPLACEMENT TO T:A-ESART $ " P EL A2,STKB,A1 GET STACK SIZE ^ & P ES A2,CSE,A1 AND SAVE (TEMPORARY) 8 P LD A2,APCBLK+STKEND GET START OF APL.CONTROL TABLE ( P LD A2,APLLAC,A2 GET START OF
0x31fd04…31fe98 Dummy {f00=0x00bc, f01=0x0190, f02=» ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A D * P ESR A2,A8 STORE NEW ADDRESS IN T:ATAB b P XIF P RB SYA280 NEXT P EJECT PSYA290 EQU * 6 P IM FLAG+STKEND INDICATE REAL DATA-PART PROCESSING
0x31fe98…32002c Dummy {f00=0x00bc, f01=0x0190, f02=»L A1,/F000 P SRL A1,11 P ADKL A1,MMDDIV $ P ADR A1,A13 < P LDR* A1,A1 P P ST A1,FSTPAG+STKCOM d P ANKL A2,/FFF P ST A2,FSTADR+STKCOM P XIF P IFT MMUPAG=0 P ST A1,DATEND+STKCOM P XIF P* MOVE T:ATA
0x32002c…3201c0 Dummy {f00=0x00bc, f01=0x018e, f02=» OF TABLE ADDRESS P ST A2,ENDADD+STKEND SAVE & P LD A1,T:ATOD,A10 GET FROM-ADDRESS < P LDR* A3,A1 MOVE-LENGTH f P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL MOVE P XIF P IFT MMUPAG=1 ( P TL* MMTO+STKCOM L
0x3201c0…320354 (3, 321) Dummy {f00=0x00bc, f01=0x0190, f02=» 8 P ST A2,ENDADD+STKEND SAVE 'END-OF-T:ATAB-CONDITION' * P LD A1,T:ATOD,A10 GET PROTOTYP T:ATAB @ P ELR A3,A1 GET LENGTH n P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A10 SAVE P CALL XMOVE P XIF P P EJECT P P
0x320354…3204e8 Dummy {f00=0x00bc, f01=0x0190, f02=»OAD PART 2.B ** ~ 4 P** ** & 4 P************************************************ ^ P 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * 4 P* SHADOW TABLE *
0x3204e8…32067c Dummy {f00=0x00bc, f01=0x018e, f02=» * P P PREALTA EQU * , P LD A5,SHADOW,A10 START OF SHADOW TABLE . . P LD A8,T:ATOD,A10 T:ATAB PROTOTYP ADDRESS ^ * P LD A7,T:ATNW,A10 REAL T:ATAB ADDRESS P ADK A7,2 P ST A8,SAVE01+STKEND SAVE A8 * PSYA310 LD A8,SAVE01+
0x32067c…320810 Dummy {f00=0x00bc, f01=0x0190, f02=» $ P ADK A5,2 A5=SHADOW TAB POINTER P IFT MMUPAG=0 , 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE B P IMR A4 SET QUEUE TASK FLAG x : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) " P LD A1,SCTOPT GET OPTION WORD P ANK A1,
0x320810…3209a4 Dummy {f00=0x00bc, f01=0x0190, f02=»T A1,TTB:CB,A2 STORE IN TTAB & PSYA320 LDR* A1,A8 GET T:A ADDRESS $ $ P STR A1,A7 STORE IN REAL T:ATAB N P ADK A7,2 v $ P LDR* A6,A5 GET NUMBER OF COPIES P EJECT PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLA
0x3209a4…320b38 Dummy {f00=0x00bc, f01=0x0190, f02=»A | P IM T:ATID,A2 UPDATE TID $ P STR A2,A7 STORE IN REAL T:ATAB * " P LDR A8,A7 CHANGE T:A TO COPY R 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE x P IMR A4 SET QUEUE TASK FLAG 0 P ST A3,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB " P L
0x320b38…320ccc Dummy {f00=0x00bc, f01=0x0190, f02=»SB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB * . PSYA348 ADK A7,2 NEXT ENTRY IN REAL T:ATAB P 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S " P CALL ALLBUF ALLOCATE BUFFERS P XIF P IFT MMUPAG=1 * P* GET AC
0x320ccc…320e60 Dummy {f00=0x00bc, f01=0x0190, f02=»LE ADDRESS z P TLR A1 LOAD & P ST A1,MMFROM+STKCOM SAVE ADDRESS & ( P CALL GETTAB GET CORRESPONDING TTAB P P IMR A4 SET QUEUE TASK FLAG | : P ST A3,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) P LDR A1,A3 GET T:A-ADDRESS 0 P ADKL A1
0x320e60…320ff4 (3, 322) Dummy {f00=0x00bc, f01=0x018e, f02=»DKL A2,MMTAB GET WORK TABLE ADDRESS P ADR A2,A13 , " P TSR A2 SAVE CLASS-DATA TABLE @ , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE f P P SUK A2,2 START OF TABLE P LDKL A12,/FC00 PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL?
0x320ff4…321188 Dummy {f00=0x00bc, f01=0x0190, f02=» $ P ESR A1,A7 STORE IN REAL T:ATAB $ P EL A12,T:DAD,A1 GET T:D ADDRESS , P EL A1,T:ATID,A1 GET TID T ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB t $ P LDR* A6,A5 GET NUMBER OF COPIES PSYA340 SUK A6,1 P RF(P) SYA345 NEXT TASK 2 P CALL CH
0x321188…32131c Dummy {f00=0x00bc, f01=0x018e, f02=»RRESPONDING TTAB | P IMR A4 SET QUEUE TASK FLAG & P CALL MOVMMT MOVE MM-TABLE TO TTAB < P CALL MOVT:A MOVE T:A f $ P ESR A2,A7 STORE IN REAL T:ATAB @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS P LDR A8,A2 GET T:A-ADDRE
0x32131c…3214b0 Dummy {f00=0x00bc, f01=0x0190, f02=» , P ADK A7,2 NEXT FREE WORD IN REAL T:ATAB P A2=NEW ADDRESS 4 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S N $ P LD A1,MMTO+STKCOM GET TO-TABLE 2 P ST A1,MMFROM+STKCOM CHANGE T:A ADDRESS-TABLE P TLR A1 " P CALL ALLBUF ALLOCATE BU
0x3214b0…321644 Dummy {f00=0x00bc, f01=0x018e, f02=» p P EL A1,T:ATID,A3 GET TID P ADK A1,1 UPDATE TID ( $ P ES A1,T:ATID,A3 RESTORE IN T:A D P XIF l P RB SYA340 x P* ( P* SCAN TCTAB FOR TASKS TO BE QUEUED P* , PSYA350 LD* A9,SCTTCT GET LENGTH OF TCTAB $ P AD A9,SCTTCT
0x321644…3217d8 Dummy {f00=0x00bc, f01=0x0190, f02=» P LDR* A5,A9 GET TTAB ADDRESS ( P ANKL A5,/FFFE SKIP QUEUE TASK FLAG ( $ P CWR* A5,A9 QUEUE TASK FLAG SET? T P RB(E) SYA355 NO | $ P STR A5,A9 RESET QUEUE TASK FLAG ( P LD A12,TTB:SA+26,A5 GET T:A ADDRESS , P LD A2,APCBLK+STKEND GET ADDRESS
0x3217d8…32196c Dummy {f00=0x00bc, f01=0x0190, f02=»D,A12 GET T:D 0 P EL A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF J P IFF MMUPAG=1 V P LD A12,T:DAD,A12 GET T:D l 0 P LD A2,NTPA,A2 GET INTERPRETER START ADDRESS P XIF P CALL QUEJOB QUEUE TASK P RB SYA355 P EJECT
0x32196c…321b00 Dummy {f00=0x00bc, f01=0x0190, f02=»FLAG x : P RF(NZ) SYA370 MORE SPACE IN CURRENT PDDIV AND S:GTAB? P IFT MMUPAG=0 J . P LD A1,LSTADR+STKCOM N0! GET LAST ADDRESS ` P ST A1,SCTEFA+2 SAVE P XIF P IFT MMUPAG=1 6 P LD A1,FYSPAG+STKCOM GET LAST PHYSICAL PAGE NUMBER
0x321b00…321c94 (3, 323) Dummy {f00=0x00bc, f01=0x0190, f02=»TORE z P* P* ADJUST END OF FREE AREA P* 8 ( P LD A1,LSTADR+STKCOM GET LAST ADDRSS B P ANKL A1,/FFF n 0 P LD A2,FYSPAG+STKCOM GET LAST PHYSICAL PAGE P SLL A2,2 P ORR A1,A2 P ST A1,SCTEFA+2 P LD A1,FYSPAG+STKCOM
0x321c94…321e28 Dummy {f00=0x00bc, f01=0x0190, f02=» A1 CHECK IF MORE APPLICATIONS P EJECT & < P******************************************************* 4 < P* SUBROUTINES - COMMON TO ALL PARTS IN THIS PROGRAM * t < P******************************************************* P EJECT 2 P**
0x321e28…321fbc Dummy {f00=0x00bc, f01=0x0190, f02=»REA TO ** n 2 P** BUILD DDIV ** 2 P** ** J 2 P** INPUT: PDDIV = IF "1" INDICATE THAT ** 2 P** MORE SPACE IN PDDIV ** 2 P** PDDIVL = LENGTH O
0x321fbc…322150 Dummy {f00=0x00bc, f01=0x018e, f02=» ** 2 P** WORK REGISTERS: A2 ** 4 2 P** ** j 2 P** SUBROUTINES: MOVING ** 2 P** **
0x322150…3222e4 Dummy {f00=0x00bc, f01=0x0190, f02=» ` P RF(Z) CALL:10 NO! & P LD A2,PDDIVL,A10 YES! GET LENGTH " P SUR A2,A3 L " P RF(NN) CALL:20 ENOUGH SPACE? ^ P IFT MMUPAG=0 , P LD A2,SCTEFA+2 N0! GET END OF FREE AREA , P ST A2,LSTADR+STKCOM UPDATE LAST ADDRESS P XIF P I
0x3222e4…322478 Dummy {f00=0x00bc, f01=0x018e, f02=»G+STKCOM UPDATE PHYSICAL PAGE NUMBER P XIF , P CM PDDIV+STKEND RESET FLAG 8 PCALL:20 EQU * $ P ST A2,PDDIVL,A10 UPDATE PDDIVL r PCALL:10 EQU * P CALL MOVING P RTN A14 P EJECT P 4 P** G E T W B
0x322478…32260c Dummy {f00=0x00bc, f01=0x0190, f02=» ^ 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** 4 P** MENT IN T:A ** @ 4 P** ** x 4 P** INPUT : A8= POINTER TO T:A-ADD IN T:ATAB ** 4 P** BIT=BIT NUMBER SAT I
0x32260c…3227a0 Dummy {f00=0x00bc, f01=0x0190, f02=»** A11=W.B.-ADDRESS ** 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** 8 4 P*********************************************** p P PGETWB EQU * $ P LD A4,BIT+STKEND GET BIT NUMBER $ P SLL A4,2 ADJUST FOR ADD
0x3227a0…322934 (3, 324) Dummy {f00=0x00bd, f01=0x0190, f02=» t P ADR A11,A4 ADD DISPLACEMENT P ST A11,WBADD+STKEND SAVE , " P LDR* A11,A11 GET W.B.-ADDRESS N P XIF t P IFT MMUPAG=1 2 P LD A11,FLAG+STKEND REAL TASK-DATA PROCESSING? P RF(Z) GETW10 NO! " P TL* MMTO+STKCOM LOAD TO-TABLE
0x322934…322ac8 Dummy {f00=0x00bd, f01=0x0190, f02=».-ADDRESS | ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE P XIF > P RTN A14 J P EJECT Z P h P t 8 P** M O V W B ** 8 P** ** 8 P**
0x322ac8…322c5c Dummy {f00=0x00bd, f01=0x0190, f02=» ** p 8 P** INPUT: A11=W.B.-ADDRESS ** 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** X 8 P** WORK-REGS: A1-A4 ** 8 P****************************************************
0x322c5c…322df0 Dummy {f00=0x00bd, f01=0x0190, f02=»1 LENGTH P CALL CALLMO 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT $ 8 P ST* A2,WBADD+STKEND UPDATE W.B.-ADDRESS AFTER MOVE ^ P XIF P IFT MMUPAG=1 P ELR A3,A1 LENGTH P CALL CALLMO 6 P SUKL A2,WBLEN ADJUST TO-ADDRE
0x322df0…322f84 Dummy {f00=0x00bd, f01=0x0190, f02=»LE t > PMOVW10 ES* A2,WBADD+STKEND UPDATE W.B.-ADDRESS AFTER MOVE ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE L P XIF x P RTN A14 P EJECT P P : P** M O V D T ** : P**
0x322f84…323118 Dummy {f00=0x00bd, f01=0x0190, f02=».T.-ADDRESS IS UPDATED ** t : P** ** " : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** ` : P** OUTPUT: A3=POINTER TO W.B.-ADDRESS ** : P** WORK REGS: A1-A4
0x323118…3232ac Dummy {f00=0x00bd, f01=0x0190, f02=»POINTER TO W.B-ADDRESS IN WAT x & P SUK A1,2 POINTER TO D.T.-ADDRESS & P IFT MMUPAG=0 P P LDR* A1,A1 D.T.-ADDRESS f * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD " P AD A1,MOVADD+STKEND RELOCATE P LDR* A3,A1 LENGTH P CALL CALLMO P
0x3232ac…323440 Dummy {f00=0x00bd, f01=0x0190, f02=» P IFT MMUPAG=1 P ELR A1,A1 D.T.-ADDRESS * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD : " P AD A1,MOVADD+STKEND RELOCATE h P ELR A3,A1 LENGTH P CALL CALLMO P LD A3,WBADD+STKEND P SUKL A2,DTLEN P SUKL A1,DTLEN 4 P ES
0x323440…3235d4 (3, 325) Dummy {f00=0x00bd, f01=0x0190, f02=»W B ** r < P** ** " < P** ** b < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** < P** AND UPDATE ADDRESSES (W.B. & D.T.)
0x3235d4…323768 Dummy {f00=0x00bd, f01=0x0190, f02=» ** b < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** R < P** WORK.REGS: A1-A4 ** < P******************************************************
0x323768…3238fc Dummy {f00=0x00bd, f01=0x0190, f02=»VD10 LD A4,BIT+STKEND GET BIT NUMBER " P ADK A4,1 FIRST WAT-ELEMENT =1 , P IFT MMUPAG=0 R P LD A2,WATLEN,A12 h P XIF P IFT MMUPAG=1 P EL A2,WATLEN,A12 P XIF " P SUR A2,A6 ACTUAL TABLE LENGTH P ADR A6,A12 A6=TABLE POI
0x3238fc…323a90 Dummy {f00=0x00bd, f01=0x0190, f02=» SHARED W.B.? P XIF P IFT MMUPAG=1 " * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. 8 " P SRC A6,1 RIGHT OR LEFT BYTE? f P RF(N) MOVD30 RIGHT! P ANKL A10,/FF00 P ECR A10,A10 P RF MOVD40 PMOVD30 ANKL A10,/FF " PMOVD40
0x323a90…323c24 Dummy {f00=0x00bd, f01=0x0190, f02=»ALCULATE DISPLACEMENT IN T:A P IFT MMUPAG=0 $ P AD A4,WATLEN,A12 : P XIF T P IFT MMUPAG=1 ` P EL A10,WATLEN,A12 v P ADR A4,A10 P XIF P LDR A6,A4 SAVE TABLE INDEX P SUK A4,1 P SLL A4,2 P ADK A4,WATFST+2
0x323c24…323db8 Dummy {f00=0x00bd, f01=0x0190, f02=»TR A3,A4 CHANGE W.B.-ADDRESS P XIF $ P IFT MMUPAG=1 0 2 P LD A2,FLAG+STKEND REAL DATA-PART PROCESSING? F P RF(Z) MOVD50 NO! | " P TL* MMTO+STKCOM LOAD TO-TABLE PMOVD50 EQU * . P ELR A10,A8 A4=POINTER TO W.B.-ADDR IN T:A P ADR A
0x323db8…323f4c Dummy {f00=0x00bd, f01=0x0190, f02=» LD A2,SWITCH+STKEND WB-ADDRESS CHANGE ONLY? P RB(NZ) MOVD10 YES! 4 & P LD A10,SAVE07+STKEND RESTORE A10 P P CALL MOVDT MOVE D.T. z P RB MOVD10 PMOVD60 EQU * $ P LD A6,SAVE05+STKEND RESTORE A6 & P LD A10,SAVE07+STKEND RESTORE A10
0x323f4c…3240e0 Dummy {f00=0x00bd, f01=0x0190, f02=» ** v 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** 4 P** ** V 4 P** INPUT : A8=ACTUAL T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS ** 4 P** WORK-R
0x3240e0…324274 (3, 326) Dummy {f00=0x00bd, f01=0x0190, f02=»,SAVE04+STKEND SAVE A7 " P LD A7,TWBMSK,A12 GET TWB MASK P IFT MMUPAG=1 D " P EL A7,TWBMSK,A12 GET TWB MASK Z P XIF P CALL SHIFT " PTWSW10 RF(Z) TWSW20 ALL DONE! P CALL GETWB P CALL MOVWB , P ST A2,NEWAD2+STKEND SAVE
0x324274…324408 Dummy {f00=0x00bd, f01=0x0190, f02=» P EJECT P P " P* RESERVE SPACE FOR SWB'S * . P*************************** R P XIF v P IFT SWPBLK-MMUPAG=1 P LD A7,SWBMSK,A12 P XIF P IFT MMUPAG+SWPBLK=2 P EL A7,SWBMSK,A12 P XIF P I
0x324408…32459c Dummy {f00=0x00bd, f01=0x018e, f02=»,NEWAD2+STKEND SAVE W.B.-ADDRESS & P CALL MOVDWB CHANGE DWB- ADDRESSES ( P CALL SKIFTA R P RB TWSW30 f PTARZAN EQU * x P XIF $ P LD A7,SAVE04+STKEND RESTORE A7 P RTN A14 P EJECT P P 4 P** A L L B
0x32459c…324730 Dummy {f00=0x00bd, f01=0x0190, f02=» ^ 4 P** TERMINAL STACK ** 4 P** ** @ 4 P** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** x 4 P** A12=T:D-ADDRESS ** 4 P** CSN (IN T:A)=LENGTH
0x324730…3248c4 Dummy {f00=0x00bd, f01=0x0190, f02=»** WORK-REGS. :A1-A4,A9,A11 ** 4 P************************************************ 8 P p PALLBUF EQU * x P IFT MMUPAG=0 2 P LD A9,FSTADR+STKCOM GET BUFFER START ADDRESS P LDR* A1,A8 GET T:A-ADDRESS ( P LD A3,CSN,A
0x3248c4…324a58 Dummy {f00=0x00bd, f01=0x0190, f02=»TART ADDRESS ~ P XIF P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS 6 ( P EL A3,CSN,A1 GET DSCB TOTAL LENGTH X P RF(Z) ALLB70 NO DSCB * P EL A11,DATTAB,A12 GET DISPL. TO DAT'S P ADR A1,A11 START OF DAT'S " P LDR A11,A1 SAVE START
0x324a58…324bec Dummy {f00=0x00bd, f01=0x0190, f02=» END OF DSCB-RECORDS l : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD P CW A1,SAVE04+STKEND ALL? Z P RF(E) ALLB70 YES! | P IFT MMUPAG=0 : P LD A3,BL,A1 GET LENGTH OF THE REQUESTED BUFFER.ZERO? P RB(Z) ALLB10 YES! * P LD
0x324bec…324d80 Dummy {f00=0x00bd, f01=0x0190, f02=» $ P LDR A2,A11 GET START OF DSCB'S P SUR A2,A3 GET SHARED DSCB , $ P LD A4,BP,A2 GET BUFFER POINTER N & P ST A4,BP,A1 STORE IN CURRENT DSCB v P XIF P IFT MMUPAG=1 0 P EL A3,BL,A1 GET LENGTH OF REQ.BUFFER.ZERO? P RB(Z) ALLB10 YES!
0x324d80…324f14 (3, 327) Dummy {f00=0x00bd, f01=0x0190, f02=»T IN A3 z $ P LDR A2,A11 GET START OF DSCB'S P SUR A2,A3 GET SHARED DSCB 8 $ P EL A4,BP,A2 GET BUFFER POINTER Z & P ES A4,BP,A1 STORE IN CURRENT DSCB P XIF P RB ALLB10 P P IFT MMUPAG=0 : PNOTSH ADK A3,2 ONE EXTRA WORD US
0x324f14…3250a8 Dummy {f00=0x00bd, f01=0x0190, f02=»2,2 BUFFER MASK AT DISPL. -2 & P ST A2,BP,A1 STORE BUFFER ADDRESS $ P RB ALLB10 N PNOTS10 LDR A2,A9 SAVE ` P XRR A9,A9 ~ , P SUR A9,A2 MAX LENGTH OF REM. MEM. AREA P LDR A4,A11 SAVE REGISTER P LDR A11,A3 LENGTH OF BUFFER P C
0x3250a8…32523c Dummy {f00=0x00bd, f01=0x0190, f02=»TOP p P ADKL A9,1 P ANKL A9,/FFFE EVEN ADDRESS P* CHECK ADDRESS: B P Z $ P LD A11,LSTADR+STKCOM DATA START f P CALL CMPADR P RF(NL) ALLB60 OK! PALLB50 LDKL A1,LMP3 P CALL ERROR PALLB60 EQU * P LDR A11
0x32523c…3253d0 Dummy {f00=0x00bd, f01=0x018e, f02=»E BUFFER END ADDRESS x . P ST A9,SCTSFA UPDATE START OF FREE AREA =2 P XIF N P IFT MMUPAG=1 Z : PNOTSH ADK A3,2 ONE EXTRA WORD USED BY THE INTERPRETER p . P CALL CALLMO ALLOCATE BUFFER FROM 'BOTTOM' & P ADK A2,2 BUFFER MASK AT DISPL. -2 &
0x3253d0…325564 Dummy {f00=0x00bd, f01=0x0190, f02=» PALLB70 EQU * P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS 2 P LD A3,CSE,A1 GET STACK SIZE V P RF(NZ) ALLB80 z $ P LDK A3,STKSZ DEFAULT STACKSIZE PALLB80 EQU * , P ST A3,STKB,A1 STORE ACTUAL STACK SIZE P CALL CALLMO
0x325564…3256f8 Dummy {f00=0x00bd, f01=0x0190, f02=» SUK A2,2 ADDRESS TO LAST WORD $ P ST A2,STKB,A1 STORE STACK BASE & * P STR A2,A1 STORE CURRENT STACK POINTER N P XIF | P IFT MMUPAG=1 P ELR A1,A8 GET T:A-ADDRESS P EL A3,CSE,A1 GET STACK SIZE * P RF(NZ) ALLB80 USER DEFINED STACK SI
0x3256f8…32588c Dummy {f00=0x00bd, f01=0x0190, f02=»,STKE,A1 STORE STACK END " P EL A3,STKB,A1 GET STACK SIZE " P ADR A2,A3 COMPUTE STACK BASE F " P SUK A2,2 ADDRESS TO LAST WORD l $ P ES A2,STKB,A1 STORE STACK BASE * P ESR A2,A1 STORE CURRENT STACK POINTER P XIF P RTN A14 P EJE
0x32588c…325a20 Dummy {f00=0x00bd, f01=0x0190, f02=»VE T:A AND UPDATE DATA SET ADDRESSES IN ** 4 P** FORMAT CONTROL BLOCK ** 2 4 P** ** j 4 P** INPUT : A8=T:A-ADDRESS ** 4 P** A12=T:D-ADDRESS
0x325a20…325bb4 (3, 328) Dummy {f00=0x00be, f01=0x0190, f02=»A1-A4 ** 4 P************************************************ * P b PMOVT:A EQU * j " P ST A10,SAVE07+STKEND SAVE A10 ~ P IFT MMUPAG=0 P LDR* A1,A8 GET T:A-ADDRESS ( P LD A3,WATLEN,A12 GET LENGTH OF WAT
0x325bb4…325d48 Dummy {f00=0x00be, f01=0x0190, f02=» P CALL CALLMO P LDR* A4,A8 " P SU A2,CIA,A4 NEW T:A-ADDRESS , $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS R P z 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * P P LD A3,FCD,A12 ANY FCD? P RF(Z) MOVT10 NO! P ADR A3,
0x325d48…325edc Dummy {f00=0x00be, f01=0x0190, f02=» : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) PMOVT05 EQU * B P ADS A4,FCBDD1,A3 V P ADS A4,FCBDD2,A3 p P ADS A4,FCBDD3,A3 P ADS A4,FCBDD4,A3 , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10 P RTN A14 P XIF
0x325edc…326070 Dummy {f00=0x00be, f01=0x0190, f02=»L A10,CIA,A1 $ P SUR A3,A10 ADD DISPL. TO START P ADK A3,WATFST A3=LENGTH < P ADR A1,A10 FROM-ADDRESS & P LD A10,SAVE07+STKEND RESTORE A10 | P CALL CALLMO P ELR A4,A8 P EL A10,CIA,A4 P SUR A2,A10 NEW T:A-ADDRESS " P S
0x326070…326204 Dummy {f00=0x00be, f01=0x0190, f02=» RF(Z) MOVT10 NO! P LDR A4,A2 GET T:A-ADDRESS 2 P LD A10,FLAG+STKEND REAL TASK DATA PROCESSING? < P RF(Z) MOVT05 NO! r 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) PMOVT05 EQU * P ADR A3,A2 START OF FCB " P TL* MMTO+ST
0x326204…326398 Dummy {f00=0x00be, f01=0x0190, f02=» P ES A10,FCBDD2,A3 P EL A10,FCBDD3,A3 " P ADR A10,A4 < P ES A10,FCBDD3,A3 P P EL A10,FCBDD4,A3 j P ADR A10,A4 P ES A10,FCBDD4,A3 ( P TL* MMFROM+STKCOM RELOAD FROM-TABLE , PMOVT10 LD A10,SAVE07+STKEND RESTORE A10
0x326398…32652c Dummy {f00=0x00be, f01=0x0190, f02=» * D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * 8 D P* ===================================== * D P* *
0x32652c…3266c0 Dummy {f00=0x00be, f01=0x0190, f02=» * X D P* ENTRY: A8 - FIRST T:A POINTER * D P* A6 - SECOND T:A POINTER * X D P* BIT - BIT NUMBER SET IN CWB- OR UWB-MASK * D P*
0x3266c0…326854 (3, 329) Dummy {f00=0x00be, f01=0x0190, f02=» * x D P* * 0 D P* WORK REGISTERS: A1,A2 * x D P* * D P
0x326854…3269e8 Dummy {f00=0x00be, f01=0x018e, f02=» P D P*************************************************************** P EJECT P PICBMVD EQU * ^ P LDKL A1,/8000 SET BIT 0 r 8 P LD A2,BIT+STKEND GET BIT NUMBER IN CWB- OR UWB-MASK " PIBAM10 RF(Z) IBAM20 BIT FOUND & P SRL A1,1 SHIFT BIT
0x3269e8…326b7c Dummy {f00=0x00be, f01=0x0190, f02=» P IFT MMUPAG=0 & PIBAM20 LDR* A2,A8 GET T:A POINTER $ P LDR* A3,A2 GET MOVED BLOCK MASK H , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED p * P STR A3,A2 STORE NEW MOVED BLOCK MASK P* & P* UPDATE MOVED MASK IN SECOND T:A P*
0x326b7c…326d10 Dummy {f00=0x00be, f01=0x0190, f02=»A2 STORE NEW MOVED BLOCK MASK P XIF & P IFT MMUPAG=1 2 $ PIBAM20 ELR A2,A8 GET T:A POINTER H $ P ELR A3,A2 GET MOVED BLOCK MASK p , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P* & P* UPDAT
0x326d10…326ea4 Dummy {f00=0x00be, f01=0x0190, f02=»E CURRENT BLOCK MOVED ~ * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF L P X P RTN A14 b P EJECT r J P********************************************************************* J P*
0x326ea4…327038 Dummy {f00=0x00be, f01=0x0190, f02=»=============== * j J P* * ( J P* REFERENCED IN: MOVCOM,MOVCLA * v J P*
0x327038…3271cc Dummy {f00=0x00be, f01=0x0190, f02=» * ` J P* * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 * l J P* * J P
0x3271cc…327360 Dummy {f00=0x00be, f01=0x0190, f02=» * V J P* SUBROUTINES: * J P* * b J P********************************************************************* P EJECT
0x327360…3274f4 (3, 330) Dummy {f00=0x00be, f01=0x0190, f02=»FT MMUPAG=1 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK 6 P XIF ^ P j 6 P LD A2,BIT+STKEND GET BIT SET IN CWB- OR UWB-MASK t 6 PCHKM10 RF(Z) CHKM20 BIT IN MOVED BLOCK MASK FOUND * P SLL A1,1 NEXT BIT IN MOVED BLOC
0x3274f4…327688 Dummy {f00=0x00be, f01=0x0190, f02=»PSW n P RTN A14 P EJECT P * P 6 : P***** S * U * P * E * R * L * O * O * P **** B : P** ** : P** S H I F T & SKIFTA ** : P**
0x327688…32781c Dummy {f00=0x00be, f01=0x018e, f02=» ** x : P** OUTPUT: BIT=BIT NUMBER ** & : P** CONDITION CODE IN PSW ON RETURN ** d : P****************************************************** P PSHIFT EQU * $ P CM BIT+
0x32781c…3279b0 Dummy {f00=0x00be, f01=0x0190, f02=» P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT * P RB(NN) SHIF10 R * PSHIF30 CFI A14,PSW,A13 PUT COND IN PSW h P RTN A14 P EJECT @ P************************************************************ @ P*
0x3279b0…327b44 Dummy {f00=0x00be, f01=0x0190, f02=» REAL TID IN AUXILIARY TABLE FOR DEBUGGER * @ P* ====================================================== * 6 @ P* * z @ P* * @ P* REF
0x327b44…327cd8 Dummy {f00=0x00be, f01=0x018e, f02=»RY: A5 - POINTER TO NUMBER OF COPIES * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * > @ P* * @ P* EXIT: * @
0x327cd8…327e6c Dummy {f00=0x00be, f01=0x0190, f02=» @ P* * @ P* SUBROUTINES: GETTTB * H @ P* * @ P********************************************************
0x327e6c…328000 Dummy {f00=0x00be, f01=0x0190, f02=»Z) CHT:90 NO MOORE! . P SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB P IFT MMUPAG=0 N ( P LDR* A1,A8 GET POINTER TO REAL T:A d $ P LD A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID
0x328000…328194 (3, 331) Dummy {f00=0x00be, f01=0x0190, f02=»L T:ATAB POINTER ~ 6 P SU* A3,T:ATNW,A10 COMPUTE ENTRY IN AUX. TID TABLE , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE R P XIF P IFT MMUPAG=1 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB
0x328194…328328 Dummy {f00=0x00be, f01=0x0190, f02=»3 4 P LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11* 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS B 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* | 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT
0x328328…3284bc Dummy {f00=0x00be, f01=0x0190, f02=»PP,A2 CLEAR TCL SAVE AREA P SUK A1,1 DECREMENT TCL " P SUKL A8,2 DECREMENT B ( P SUK A6,1 DECREMENT NUMBER OF COPIES ^ P RB(P) CHT:20 NEXT COPY PCHT:90 RTN A14 P 4 P** T : D A D D ** 4 P**
0x3284bc…328650 Dummy {f00=0x00be, f01=0x0190, f02=» ** t 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** T 4 P** OUTPUT: A12=T:D ADDRESS ** 4 P************************************************ PT:DADD EQU *
0x328650…3287e4 Dummy {f00=0x00be, f01=0x0190, f02=»A ADDRESS P EL A12,T:DAD,A12 P XIF , " P AD A12,MOVADD+STKEND RELOCATE 8 P RTN A14 ^ P EJECT n P | P 6 P** M O V C O M ** 6 P** ** 6 P
0x3287e4…328978 Dummy {f00=0x00be, f01=0x0190, f02=» LEAST TWO T:A'S, AND MOVE ** | 6 P** TO COMMON AREA ** & 6 P** ** ` 6 P** INPUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, SAT IN MASK **
0x328978…328b0c Dummy {f00=0x00be, f01=0x0190, f02=» A1-A6,A9,A11,A12 ** 6 P************************************************* , P f PMOVCOM EQU * r & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBADD',A5=T:A-DISPL , P
0x328b0c…328ca0 Dummy {f00=0x00be, f01=0x0190, f02=» x " P CW A6,ENDADD+STKEND ALL DONE? P RF(NE) MOVC30 NO . PMOVC20 RTN A14 YES! H P IFT MMUPAG=0 d PMOVC30 LDR* A11,A6 z P LD A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE P ST A2,SAVE03+STKEND SAVE , P LD A2,W
0x328ca0…328e34 (3, 332) Dummy {f00=0x00bf, f01=0x0190, f02=»A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 2 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES H P XIF | P IFT MMUPAG=1 PMOVC30 ELR A11,A6 P EL A2,T:DAD,A11 T:D-ADDRESS " P AD A2,MOVADD+STKEND RELOCATE 4 P ST A2
0x328e34…328fc8 Dummy {f00=0x00bf, f01=0x018e, f02=»NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A 2 P AD A11,TADISP+STKEND W.B.-ADDRESS TO EXAMINE 6 P ELR A11,A11 l 0 P CW A11,SAVE06+STKEND COMPARE W.B.-ADDRESSES P XIF P RB(NE) MOVC10 .NEQ. , P LD A9,MOVED+STKEND W.B. ALREADY MOVED?
0x328fc8…32915c Dummy {f00=0x00bf, f01=0x0190, f02=» h P CALL MOVWB MOV WORK BLOCK $ P IM MOVED+STKEND INDICATE MOVED * " P LD A4,UWB+STKEND UWB-BLOCKS? R P RF(Z) MOVC40 NO! x " P CALL GETPRO CREATE REAL UWB'S 8 PMOVC40 ST A2,NEWAD2+STKEND SAVE NEW ADDRESS TO W.B. P CALL MOVDWB & P
0x32915c…3292f0 Dummy {f00=0x00bf, f01=0x0190, f02=»SAVE04+STKEND SAVE T:A-ADDRESS & P LDR A8,A6 REPLACE POINTER TO T:A & . P LD A12,SAVE03+STKEND REPLACE T:D-ADDRESS P P CALL MOVDWB P LDR A8,A11 , P LD A12,SAVE04+STKEND RELOAD T:D-ADDRESS P RB MOVC10 P EJECT P P
0x3292f0…329484 Dummy {f00=0x00bf, f01=0x0190, f02=» ** 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** * 4 P** COPIES. FILL REAL U:BTAB ** b 4 P** ** 4 P** INPUT : A11=PROTOTYPE ADDRESS ** 4
0x329484…329618 Dummy {f00=0x00bf, f01=0x0190, f02=»9 ** z 4 P************************************************ " P Z PGETPRO EQU * f ( P LD A3,U:BTOD,A10 GET U:BTAB ADDRESS z P IFT MMUPAG=0 P LDR* A4,A3 LENGTH PGETP10 EQU * 6 P SUK A4,UP:REC SUB RECORD LENG
0x329618…3297ac Dummy {f00=0x00bf, f01=0x0190, f02=»ADDR,A3 SAME W.B.? , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT J P RB GETP10 f P x 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE ADDRESS IN U:BTAB * P PGETP30 EQU * P
0x3297ac…329940 Dummy {f00=0x00bf, f01=0x0190, f02=»CEMENT n . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS P LDR A9,A3 @ " P ST A4,URLENG,A9 STORE LENGTH R * P ST A5,URNUMB,A9 STORE IN REAL U:BTAB x 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * 0 P********************************************
0x329940…329ad4 (3, 333) Dummy {f00=0x00bf, f01=0x0190, f02=» P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* > PGETP50 EQU * h 6 P ST A2,URADDR,A9 STORE ADDRESS TO FIRST IN U:BTAB | P XIF P IFT MMUPAG=1 P ELR A4,A3 LENGTH PGETP10 EQU * 6 P S
0x329ad4…329c68 Dummy {f00=0x00bf, f01=0x0190, f02=»TP20 EQU * ( P EL A9,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A9 > , P RF(E) GETP30 YES! GET NUMBER OF COPIES R P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMBER OF COPIES * 0 P* A3 POINTS AT PROTOTYPE
0x329c68…329dfc Dummy {f00=0x00bf, f01=0x0190, f02=» t , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF 8 , P SU A3,U:BTOD,A10 GET TABLE DISPLACEMENT L . P AD A3,U:BTNW,A10 ADD TO NEW TABLE ADDRESS | P LDR A9,A3 " P TL* MMTO+STKCOM LOAD TO-TABLE * P ES A5,URNUMB,A9 ESORE IN REAL U:B
0x329dfc…329f90 Dummy {f00=0x00bf, f01=0x0190, f02=» * f 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') > P RF(NP) GETP50 p PGETP40 CALL MOVWB P SUK A5,1 P RB(NZ) GETP40 P & P* UPDATE POINTER IN REAL U:BTAB * & P**********
0x329f90…32a124 Dummy {f00=0x00bf, f01=0x018e, f02=»L* MMFROM+STKCOM P XIF P RTN A14 $ P EJECT 4 P B 2 P** M O V C L A ** N 2 P** ** 2 P** ** 2 P** CHECKS IF W.B. ALREA
0x32a124…32a2b8 Dummy {f00=0x00bf, f01=0x0190, f02=» 2 P** ** 2 P** A LOT OF WORKREGS. ** : 2 P********************************************* p P PMOVCLA EQU * P CALL SHIFT P RF(Z) MVCL30 * PMVCL10 CALL GETWB W.B.-ADDRE
0x32a2b8…32a44c Dummy {f00=0x00bf, f01=0x0190, f02=»B(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT * P CALL MOVWB D " P LD A4,UWB+STKEND UWB-SCANNING X P RF(Z) MVCL50 NO! ~ P CALL GETPRO DUPLICATE WB'S 0 PMVCL50 ST A2,NEWAD2+STKEND SAVE W.B.-ADDRESS P CALL MOVDWB PROCESS DWB
0x32a44c…32a5e0 Dummy {f00=0x00bf, f01=0x0190, f02=» ** 6 P** ** . 6 P** CHANGE ADDRESS TO W.B. & D.T. IN T:A, ** h 6 P** BLOCKS ALREDY MOVED ** 6 P**
0x32a5e0…32a774 (3, 334) Dummy {f00=0x00bf, f01=0x0190, f02=» NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 4 6 P** WORK.REGS: A1,A2 ** n 6 P************************************************* P PCHADR EQU * P IFT M
0x32a774…32a908 Dummy {f00=0x00bf, f01=0x018e, f02=»2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1+STKEND 6 P STR A2,A1 R P XIF d P IFT MMUPAG=1 p P ELR A1,A6 T:A-ADDRESS 2 P AD A1,TADISP+STKEND ADDRESS TO W.B.-ADDRESS P LD A2,NEWAD2+STKEND P ESR A2,A1 & P
0x32a908…32aa9c Dummy {f00=0x00bf, f01=0x0190, f02=» P EJECT B P************************************************************** B P* * X B P* * B P* B:RSWT - BUILD REAL SWB CONTROL T
0x32aa9c…32ac30 Dummy {f00=0x00bf, f01=0x0190, f02=» * p B P* REFERENCED IN: SYSLDA * & B P* * l B P* ENTRY: A2 - POINTER TO FIRST RECORD IN REAL S:BTAB * B P* A5 -
0x32ac30…32adc4 Dummy {f00=0x00bf, f01=0x0190, f02=» * B P* * : B P* WORK REGISTERS: A1-A7 * B P* *
0x32adc4…32af58 Dummy {f00=0x00bf, f01=0x0190, f02=» R B P************************************************************** P EJECT N PB:RSWT EQU * * P LDR A8,A2 SAVE POINTER TO FIRST BLOCK p 8 P LD A1,APCBLK+STKEND GET START OF APL.CONTROL TABLE 0 P LD A1,APLSWB,A1 POINTER TO SWB BLOCK TABLE
0x32af58…32b0ec Dummy {f00=0x00bf, f01=0x0190, f02=» SUK A5,2 SKIP LENGTH WORD PRSWB10 ADK A1,2 NEXT TYPE " P LDR* A4,A1 POINTER TO BLOCK D P LCR A6,A4 NUMBER OF COPIES h $ P LD A7,SWBLEN,A4 LENGTH IN BYTES P XIF P IFT MMUPAG+SWPBLK=2 & P ES A6,2,A2 STORE NUMBER OF COPIES , P E
0x32b0ec…32b280 Dummy {f00=0x00bf, f01=0x0190, f02=»,A2 STORE LENGTH OF SWB IN BYTES P XIF ( P IFT SWPBLK=1 4 & P SUK A5,6 DECREMENTS S:BTAB LENGTH J ( P ADK A2,6 INCREMENT POINTER IN BLOCK t ( P SUK A3,1 DECREMENT NUMBER OF TYPES P RB(P) RSWB10 P LDR A4,A2 P* 4 P* INIT PO
0x32b280…32b414 (3, 335) Dummy {f00=0x00bf, f01=0x0190, f02=»DDRESS TO TID BLOCK $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT SWPBLK-MMUPAG=1 D P LD A1,2,A8 NUMBER OF COPIES ` P RF(Z) RSWB50 NO COPIES! * P STR A6,A8 STORE POINTER TO TID BLOCK PRSWB30 STR A3,A2 RESET TID , P ADK A2,2 INCREMENT
0x32b414…32b5a8 Dummy {f00=0x00bf, f01=0x0190, f02=» COPY ~ P XIF P IFT MMUPAG+SWPBLK=2 $ P EL A1,2,A8 GET NUMBER OF COPIES 6 P RF(Z) RSWB50 NO COPIES! ^ * P ESR A6,A8 STORE POINTER TO TID BLOCK ~ PRSWB40 ESR A3,A2 RESET TID , P ADK A2,2 INCREMENT POINTER IN TID BLOCK . P SUK A5,2
0x32b5a8…32b73c Dummy {f00=0x00bf, f01=0x4112, f02=»BLK=1 PRSWB50 ADKL A8,6 P CWR A8,A4 & P RB(NE) RSWB20 8 " P LDR A5,A5 S:BTAB CONSISTENT? N P RF(Z) RSWBEX YES t P LDKL A1,LMP6 SWB ERROR! P CALL ERROR PRSWBEX RTN A14 P XIF PLCREND EQU * P P END
0x32b73c…32b8d0 Dummy {f00=0x00bf, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x32b8d0…32ba64 Dummy {f00=0x00bf, f01=0x0190, f02=» EJECT PDWT45 CALL DWT50 P RF DWT60 . PDWT50 EQU * @ * T P* OUTPUT DEVICE* ^ , P* IF BIT 0 IN SIXTH WORD IN DWT IS SET x 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTI
0x32ba64…32bbf8 Dummy {f00=0x00bf, f01=0x0190, f02=»DWT59 NO ECHOING ON THIS DEVICE : P LD* A3,STKEND+ECHTAB GET LENGTH OF ECHO DEVICE TABLE ( & P RF(NZ) DWT55 ALREADY INITIALIZED! f P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH ( P AD A4,STKEND+ECHTAB NEXT FREE ENTRY . P STR A1,
0x32bbf8…32bd8c Dummy {f00=0x00bf, f01=0x0190, f02=»+ECHTAB STORE NEW LENGTH PDWT59 RTN A14 PDWT60 EQU * 6 * J * CHECK IF PAGING T * n " P LD A5,SCTOPT GET OPTION WORD x P ANK A5,1 MMU PAGING? RF(Z) DWT70 P EJECT , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS
0x32bd8c…32bf20 Dummy {f00=0x00bf, f01=0x018e, f02=» h $ P ANKL A5,/FFFE MAKE EVEN ADDRESS " P ST A5,DWTMEC,A2 STORE IT BACK 0 * V < P* PAGING: CHECK IF INTERNAL BUFFER SHOULD BE ALLOCATED ` P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER $
0x32bf20…32c0b4 (3, 336) Opaque[0x194]
0x32c0b4…32c248 # DirEnt {nam=»SYSINI«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1800, f03=0x0000}
0x32c0b4…32c248 IdxSect {
0x32c0b4…32c248 f00 = 0x00c0 // 0x32c0b4 @0x0
0x32c0b4…32c248 f01 = 0x0028 // 0x32c0b6 @0x2
0x32c0b4…32c248 gno = [ // 0x32c0b8 @0x4
0x32c0b4…32c248 [0x00]: C0x00c0.0x0.0
0x32c0b4…32c248 [0x01]: C0x00c0.0x1.0
0x32c0b4…32c248 [0x02]: C0x00c0.0x2.0
0x32c0b4…32c248 [0x03]: C0x00c1.0x2.0
0x32c0b4…32c248 [0x04]: C0x00c1.0x3.0
0x32c0b4…32c248 [0x05]: C0x00c2.0x0.0
0x32c0b4…32c248 [0x06]: C0x00c2.0x1.0
0x32c0b4…32c248 [0x07]: C0x00c2.0x2.0
0x32c0b4…32c248 [0x08]: C0x00c2.0x3.0
0x32c0b4…32c248 [0x09]: C0x00c3.0x0.0
0x32c0b4…32c248 [0x0a]: C0x00c3.0x1.0
0x32c0b4…32c248 [0x0b]: C0x00c3.0x2.0
0x32c0b4…32c248 [0x0c]: C0x00c3.0x3.0
0x32c0b4…32c248 [0x0d]: C0x00c4.0x0.0
0x32c0b4…32c248 [0x0e]: C0x00c4.0x1.0
0x32c0b4…32c248 [0x0f]: C0x00c4.0x2.0
0x32c0b4…32c248 [0x10]: C0x00c4.0x3.0
0x32c0b4…32c248 [0x11]: C0x00c5.0x0.0
0x32c0b4…32c248 [0x12]: C0x00c5.0x1.0
0x32c0b4…32c248 [0x13]: C0x00c5.0x2.0
0x32c0b4…32c248 ]
0x32c0b4…32c248 }
0x32c248…32c3dc Dummy {f00=0x00c0, f01=0x0190, f02=» 2 P IDENT SYSINI REL 11.0 81-01-26 870105041100 P : . P =2,WHEN MMUPAG=0 INITIATE PAGE ADDRESS B $ P IN PAGTAB WITH RIGHT VALUE t P PRR 11.0 80-12-03 , P =1,CREATE PAGES FOR APPLICATIONS WITH " P DIFFERENT SEGMENT SIZE
0x32c3dc…32c570 Dummy {f00=0x00c0, f01=0x0190, f02=» * P* ENTRIES AND EXTERNALS * P* * @ P*************************** d P P* LABEL ENTRIES P ENTRY SYSINI P ENTRY INILEN PROGRAM LENGTH P ENTRY INIEND END OF SYSINI
0x32c570…32c704 Dummy {f00=0x00c0, f01=0x018e, f02=» ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK 6 * P ENTRY CONVRT CONVERSION ASCII-BINARY n 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P ENTRY MULT MULTIPLICATION ROUTINE 2 P ENTRY XMOVE
0x32c704…32c898 Dummy {f00=0x00c0, f01=0x0190, f02=» l $ P ENTRY GETTAB FIND TTAB-ADDRESS $ P ENTRY GETTTB FIND TTAB-ADDRESS 0 0 P ENTRY MMENT FIND LAST USED ENTRY IN MM-TAB X , P ENTRY PUSH STORE REGISTERS ON A15-STACK 0 P ENTRY POB RESTORE REGISTERS FROM A15-STACK P ENTRY GETAPP P E
0x32c898…32ca2c Dummy {f00=0x00c0, f01=0x0190, f02=»RY MMTAB WORK-TABLE 1 (MMU 6 P ENTRY TABBE ABSOLUTE START ADDRESS OF WORK-TAB 1 " 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' P ENTRY MMBEG , P ENTRY LSTPAG DISPL. TO 'ENTRY POINTER'
0x32ca2c…32cbc0 Dummy {f00=0x00c0, f01=0x0190, f02=»CTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS . P EXTRN SCTSTB A15 STACK-BASE R " P EXTRN SCTEFA END OF FREE AREA v " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMMC =00002 P EXTRN S
0x32cbc0…32cd54 (3, 337) Dummy {f00=0x00c0, f01=0x0190, f02=»G BUGGER ADDRESS , P EXTRN STKEND START OF SCRATCH-PAD AREA * P EXTRN STKCOM START OF COMMON-PAD AREA H P v P* EXTERNAL LABELS ~ $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P E
0x32cd54…32cee8 Dummy {f00=0x00c0, f01=0x0190, f02=»48 SWITCH TO LEVEL 48 P P* & , P EXTRN TTB:SA START OF SAVE AREA IN TTAB 0 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS ` 8 P EXTRN TTB:MT DISPL. TO 1:ST MMU-TABLE ENTRY IN TTAB 0 P EXTRN TTB:SP DISPL TO SEGMENT TABLE ADDRESS
0x32cee8…32d07c Dummy {f00=0x00c0, f01=0x0190, f02=»************************************* , P* CONDITIONAL ASSEMBLY * . , P*************************************** ^ P $ PDSKPAG EQU 1 0 = NO DISC PAGING PMMUPAG EQU 1 0 = NO MMU PCPU852 EQU 0 0 = NOT 852 CPU 2 P******
0x32d07c…32d210 Dummy {f00=0x00c0, f01=0x018e, f02=» * n 2 P* ==================== * 2 P* * J 2 P********************************************* P P . PAPLADA EQU 22 APPL. REL. BASE (2 WORDS) =1 . PAPLREL EQU 18 NU
0x32d210…32d3a4 Dummy {f00=0x00c0, f01=0x0190, f02=» Z 8 PAPLLAC EQU 14 APPLICATION LOAD ADDR. (LOGICAL ADDR.) & PAPLLAP EQU 12 LOGICAL PAGE ADDRESS D 8 PAPLLDA EQU 0 APPLICATION LOAD ADDR. (PHYSICAL ADDR.) n . PAPLMMC EQU 10 APPLICATION MMU START ENTRY ( PAPLMMP EQU 8 SEGMENT START MMU ENTRY . P
0x32d3a4…32d538 Dummy {f00=0x00c0, f01=0x018e, f02=»APLSTA EQU 16 APPL. PGM START ADDRESS " PAPLTYP EQU 8 APPLICATION TYPE . . PAPLPSZ EQU 20 APPLICATION SEGMENT SIZE =1 T P EJECT . P***************************************** . P* * . P* COMMON DISPLA
0x32d538…32d6cc Dummy {f00=0x00c0, f01=0x0190, f02=» 0 PAPLTAB EQU 12 ADDRESS TO APPL. CONTROL TABLE $ PAPPLNO EQU 18 APPLICATION NUMBER < ( PBUFSIZ EQU 14 TEMPORARY BUFFER SIZE d . PCONLEN EQU 0 LENGTH OF CONFIGURATION DATA , PCONSTA EQU 2 START OF CONFIGURATION DATA ( PDATEND EQU 34 END OF D
0x32d6cc…32d860 Dummy {f00=0x00c0, f01=0x018e, f02=»2 1ST FREE PAGE (PHYSICAL) , PFYSPAG EQU 24 LAST PHYSICAL PAGE NUMBER " 6 PLSTADR EQU 26 LAST ADDRESS WHEN BUILDING DATA PART R ( PMAPLEN EQU 30 LENGTH OF AREA TO MAP * PMMFROM EQU 36 2ND MMU TABLE WORK AREA ( PMMTO EQU 38 1:ST MMU TABLE WORK AR
0x32d860…32d9f4 (3, 338) Dummy {f00=0x00c0, f01=0x0190, f02=» j & PSWBFSE EQU 8 SWB-FILE END ADDRESS ( PTTAB EQU 32 WORK AREA FOR MMU TABLE 2 * PTOTSGM EQU 46 TOTAL NUMBER OF SEGMENTS ^ , PSWBFLG EQU 48 SWAPPABLE WORK BLOCK FLAG $ PCOM01 EQU 40 COMMON WORK AREA 1 $ PCOM02 EQU 42 COMMON WORK AREA 2
0x32d9f4…32db88 Dummy {f00=0x00c0, f01=0x018e, f02=» $ P******************************* $ P* SCRATCH-PAD DISPLACEMENTS * , $ P******************************* T P* | . PAPCBLK EQU 0 START OF APPL. CONTROL BLOCK P EJECT P P ***************** P *****************
0x32db88…32dd1c Dummy {f00=0x00c0, f01=0x0190, f02=» z P P********** P* P:MTAB * & P********** 8 PT:ATAB EQU 0 J PU:BTAB EQU 2 ^ PP:BAS EQU 6 SEGMENT BASE r . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS P EJECT P
0x32dd1c…32deb0 Dummy {f00=0x00c0, f01=0x0190, f02=»* r P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE 6 ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS X , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL
0x32deb0…32e044 Dummy {f00=0x00c0, f01=0x0190, f02=» DEVICE CLASS ~ PTLC EQU 7 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH 8 P* d * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD n P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CDBBT+1 2N NUMBER
0x32e044…32e1d8 Dummy {f00=0x00c0, f01=0x0190, f02=»UDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES " P* R ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH P EJECT
0x32e1d8…32e36c Dummy {f00=0x00c0, f01=0x0190, f02=»SEGMENT END (HERE: STACKSIZE) | $ PCSB EQU -12 CURRENT SEGMENT BASE & 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH N 2 P OF ALL DSCB-RECORDS PT:DAD EQU -8 ADDRESS TO T:D * PCIA EQU -6 CURRENT INSTUCTION ADDRESS
0x32e36c…32e500 Dummy {f00=0x00c0, f01=0x0190, f02=» POINTER PSTKB EQU 2 STACK BASE " PWATFST EQU 4 FIRST WAT-ELEMENT . P* T P* DSCB-RECORD: ^ PDSCBL EQU 20 RECORD LENGTH t " PBL EQU 2 LENGTH OF FIX BUFFER 2 PSB EQU 4 INDEX TO DSCB WHICH SHARE THE BUFFER PBP EQU 18 BUFFER POINT
0x32e500…32e694 (3, 339) Dummy {f00=0x00c1, f01=0x0190, f02=»:A n , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) : 8 PDATTAB EQU 6 DISPLACEMENT TO BEGINNING OF DAT-TABLE j & PWATLEN EQU 8 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 10 MASK FOR TWB'S (ONE BIT/ENTRY) * PSWBM
0x32e694…32e828 Dummy {f00=0x00c1, f01=0x0190, f02=»BFST EQU 18 FIRST WORD IN DBLK-TAB P * . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS 2 P d P p P**************** x P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P P LAMP CODE MEANING P
0x32e828…32e9bc Dummy {f00=0x00c1, f01=0x0190, f02=»P4 EQU /80 FORMAT ERROR (CONFIG) PLMP5 EQU /40 TID ERROR ( " PLMP6 EQU /20 UWB OR SWB ERROR F " PLMP7 EQU /10 MM-TABLE OVERFLOW l PLMP8 EQU 8 PLMP9 EQU 4 PLMP10 EQU 2 PLMP11 EQU 1 P EJECT " P****************************
0x32e9bc…32eb50 Dummy {f00=0x00c1, f01=0x0190, f02=»AX EQU 500 DEFAULT SPL STACK-SIZE 4 PENTFIN EQU /FFFF PROGRAMMER DEFINED ENTRY POINT * & PSPLSTS EQU 4 DIAGNOSTIC,STACK-SIZE b PSPLSTB EQU 52 STACK-BASE PSPLENT EQU 54 ENTRY-FINI PSPLSTA EQU 88 STACK-AREA P P P************
0x32eb50…32ece4 Dummy {f00=0x00c1, f01=0x0190, f02=» n , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE & PSWBLEN EQU 4 DISP TO LENGTH OF SWB 8 P b $ PFCBDD1 EQU 8 DISP TO FIRST DSET n $ PFCBDD2 EQU 10 DISP TO 2:ND DSET P $ PSTKSZ EQU 128 DEFAULT STACK-SIZE P ( PSEGREC EQU
0x32ece4…32ee78 Dummy {f00=0x00c1, f01=0x0190, f02=»DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB 0 P ^ ( PNTPA EQU 4 INTERPRETER START ADDRESS f & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ PRTCDA EQU /1B RTC DEVICE ADDRESS P > PTABLEN EQU 20 LENGTH OF
0x32ee78…32f00c Dummy {f00=0x00c1, f01=0x0190, f02=»********************************* p F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * * F P* DATA [REL-ADDRESS] * t F P* * F P
0x32f00c…32f1a0 Dummy {f00=0x00c1, f01=0x0190, f02=» P EJECT P LDKL A1,SYSINI P AD A1,M:REL+STKCOM * " P ABR A1 GO TO START OF SYSINI F P EJECT l P z 6 P************************************************** 6 P************************************************** 6 P**
0x32f1a0…32f334 (3, 340) Dummy {f00=0x00c1, f01=0x0190, f02=» ** n 6 P************************************************** 6 P************************************************** R P , PREL RF SUBBA JUMP TO SUBROUTINE HANDLER & P LDR A13,P GET BASE ADDRESS TO A13 P SUKL A13,4 P*
0x32f334…32f4c8 Dummy {f00=0x00c1, f01=0x0190, f02=»SOLUT DITO 4 P ST A3,PSW,A13 STORE ADDRESS TO 'GETPSW'-ROUTINE P* LOAD STACKBASE * J P****************** d P ~ P LDKL A14,STACKB P ADR A14,A13 RELOCATE P RTN A8 P P P* STACK * P********* P
0x32f4c8…32f65c Dummy {f00=0x00c1, f01=0x0190, f02=»************** P* PPSW EQU *-REL P DATA GETPSW 6 P J D P**************************************************************** V D P* G E T P S W * D P* LITTLE SUBROUTINE TO PUT PSW IN
0x32f65c…32f7f0 Dummy {f00=0x00c1, f01=0x0190, f02=»EL $ P STR A2,A14 SAVE A2 ON A14-STACK ! 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ! 2 . P ST A2,6,A14 REPLACE PSW FROM MAIN PROGRAM ! f P LDR* A2,A14 RESTORE A2 ! P RTN A14 ! P EJECT ! P ! & P********************************* ! & P
0x32f7f0…32f984 Dummy {f00=0x00c1, f01=0x018e, f02=»*********************** ! P " PSUBSUB EQU *-REL " ( & PSUBBA ST A10,COM04+STKCOM SAVE A10 " @ . P LD* A10,4,A14 GET SUBROUTINE REL ADDRESS " j $ P IM 4,A14 ADJUST RETURN ADDRESS " P IM 4,A14 " 2 P AD A10,M:REL+STKCOM ADD FOR SYSLDM RELOCATION "
0x32f984…32fb18 Dummy {f00=0x00c1, f01=0x0190, f02=» " P* MMU TABLES * # P # P # & . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE # . P IFT MMUPAG=1 # ` P RES 16 # v P XIF # P # $ PMMTAB EQU *-REL WORK AREA MM-TAB # PTABBE EQU * # P IFT MMUPAG=1 # P DATA 0,0,0,0,0,0,0,0 #
0x32fb18…32fcac Dummy {f00=0x00c1, f01=0x0190, f02=»M BOTTOM) IN MM-TAB # t P DATA 0 $ 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' $ , ( P DATA 0 APPL. CONTROL BLOCK ADDRESS $ ` P $ PMMBEG EQU TABBE-* $ P EJECT $ P $ 6 P*** *** $ 6 P***
0x32fcac…32fe40 Dummy {f00=0x00c1, f01=0x018e, f02=»*********************** $ v 6 P************************************************* % P % Z P % f , P** E R R O R ** % r , P** ** % , P** ** % , P** ER
0x32fe40…32ffd4 (3, 341) Dummy {f00=0x00c2, f01=0x0190, f02=» , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** & , P** (REG-CONTENTS IS SAVED) ** & 4 , P**************************************** & d P & PERROR EQU * & P ST A2,COM01+STKCOM SAVE A2 & . P LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS & P S
0x32ffd4…330168 Dummy {f00=0x00c2, f01=0x018e, f02=» P U S H ** & ( P** ** ' " ( P** ** ' N ( P** STORE REGISTERS ON A15-STACK ** ' z ( P** ** ' ( P************************************ ' PPUSH EQU *
0x330168…3302fc Dummy {f00=0x00c2, f01=0x0190, f02=» ' z P STR A5,A15 SAVE A5 ( P STR A6,A15 SAVE A6 ( $ P STR A7,A15 SAVE A7 ( @ P STR A8,A15 SAVE A8 ( P STR A9,A15 SAVE A9 ( x P STR A10,A15 SAVE A10 ( P STR A11,A15 SAVE A11 ( P STR A12,A15 SAVE A12 ( P STR A13,A15 SAVE A13 (
0x3302fc…330490 Dummy {f00=0x00c2, f01=0x0190, f02=» P EJECT ) P ) P** P O B ) P** ) 6 P** ) @ , P** RESTORE REGISTERS FROM A15-STACK ** ) J , P** ** ) z , P**************************************** ) P ) PPOB EQU * ) P IFT CPU852=1 )
0x330490…330624 Dummy {f00=0x00c2, f01=0x0190, f02=»A10,A15 RESTORE A5 ) P LDR* A9,A15 RESTORE A6 * P LDR* A8,A15 RESTORE A7 * : P LDR* A7,A15 RESTORE A8 * Z P LDR* A6,A15 RESTORE A9 * z P LDR* A5,A15 RESTORE A10 * P LDR* A4,A15 RESTORE A11 * P LDR* A3,A15 RESTORE A12 * P LDR* A2,A15 R
0x330624…3307b8 Dummy {f00=0x00c2, f01=0x0190, f02=»IF * P RTN A14 + P EJECT + P + ( & P** M O V E ** + 0 & P** ** + Z & P** ** + & P** MOVE BLOCKS INSIDE MEMORY ** + & P** ** + & P** IN
0x3307b8…33094c Dummy {f00=0x00c2, f01=0x0190, f02=» ** + & P** WORK-REG: A4 ** , & P********************************* , D P , n PMOVE EQU * , z $ PMOVES ADR A1,A3 END OF FROM AREA , P ADR A2,A3 END OF TO-AREA , PMOVE10 SUK A3,1 DEC LENGTH , P RF(N) MOVE20 AL
0x33094c…330ae0 Dummy {f00=0x00c2, f01=0x0190, f02=»VE20 RTN A14 , P IFT MMUPAG=0 - P EJECT - * P - 8 P - D 4 P** M O V I N G ** - P 4 P** ** - 4 P** ** - 4 P** USES ROUTINE
0x330ae0…330c74 (3, 342) Dummy {f00=0x00c2, f01=0x0190, f02=» ** - h 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED ** . 4 P** ** . H 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** . 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** . 4 P** WORK-REG: A4
0x330c74…330e08 Dummy {f00=0x00c2, f01=0x0190, f02=» REGISTERS ON A15-STACK . * P LD A2,LSTADR+STKCOM GET LAST ADDRESS / P LDR A9,A2 / N P LDR A11,A3 / ` & P CALL CMPADR ENOUGTH MEMORY LEFT? / t P RF(NL) MOV010 NO! / P SUR A2,A3 SUB LENGTH / $ P ANKL A2,/FFFE MAKE EVEN ADDRESS / P LDR A11,A
0x330e08…330f9c Dummy {f00=0x00c2, f01=0x0190, f02=»MP3 MEMORY OVERFLOW / P CALL ERROR 0 8 PMOV020 LD A9,FSTADR+STKCOM CHECK FIRST FREE ADDRESS 0 0 P CALL CMPADR 0 l P RB(L) MOV010 0 $ P ST A2,LSTADR+STKCOM NEW ADDRESS 0 . P CALL POB RESTORE REGISTERS FROM A15-STACK 0 P LD A2,LSTADR+STKCOM 0
0x330f9c…331130 Dummy {f00=0x00c2, f01=0x0190, f02=» ** 0 x 4 P** ** 1 4 P** MOVE BLOCK INSIDE MEMORY VIA MMU ** 1 X 4 P** TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** 1 4 P** -MOVE TO USER AREA ** 1 4 P** IF '
0x331130…3312c4 Dummy {f00=0x00c2, f01=0x018e, f02=» ** 1 p 4 P** INPUT :A1=FROM-ADDR(MMFROM=MM-TABLE ADDR.)** 2 4 P** A2=TO-ADDRESS (MMTO=MM-TABLE ADDR.)** 2 P 4 P** A3=LENGTH (IN BYTES) ** 2 4 P** WORK.REGS:A4,A10 ** 2 4 P****************
0x3312c4…331458 Dummy {f00=0x00c2, f01=0x0190, f02=» P ST A1,COM01+STKCOM 3 P ST A2,COM02+STKCOM 3 P ST A3,COM03+STKCOM 3 < PXMOV05 EQU * 3 X P LDR A10,A3 SAVE LENGTH 3 l , P LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER 3 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE 3 2 P LD A9,BUFSIZ+STKCOM GET TEMPO
0x331458…3315ec Dummy {f00=0x00c2, f01=0x0190, f02=»NGTH 3 x ( P LD A1,COM01+STKCOM GET FROM ADDRESS 4 8 P LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS 4 8 & P TL* MMFROM+STKCOM LOAD FROM-TABLE 4 t , P MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x3315ec…331780 Dummy {f00=0x00c2, f01=0x0190, f02=»LE 4 t ( P MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " P SUK A4,1 MORE PARTS TO MOVE? 5 6 P RF(N) XMOV30 NO! 5 P ADR A2,A10 5 v 2 P ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS 5 , P LD A3,COM03+STKCOM GET REQUESTED LENGTH 5 $ P SUR A3,A10 SUBTRACT MOV
0x331780…331914 (3, 343) Dummy {f00=0x00c2, f01=0x0190, f02=»ALL CMPADR REMAINING LENGTH<CURRENT BUFFER LENGTH? 5 P RB(NL) XMOV10 6 : P LDR A10,A3 LAST LENGTH 6 P P RB XMOV10 6 p P EJECT 6 P 6 PSPLIT EQU * 6 P LDR A1,A3 GET DIVISOR 6 * P SRL A1,15 MOST SIGN. PART OF DIVISOR 6 P LDR A2,A3 GET D
0x331914…331aa8 Dummy {f00=0x00c2, f01=0x0190, f02=»ENGTH 6 p P RB XMOV10 7 P 7 4 PXMOV30 CALL POB RESTORE REGISTERS FROM A15-STACK 7 ( P RTN A14 7 ` P EJECT 7 p P 7 ~ 4 P** M O V I N G ** 7 4 P** ** 7 4 P**
0x331aa8…331c3c Dummy {f00=0x00c2, f01=0x018e, f02=» ** 7 f 4 P** IS ALWAYS ASSUMED TO BE DATA PART OF ** 8 4 P** MEMORY. LSTADR & FYSPAG POINTS AT LAST ** 8 F 4 P** (HIGHEST) FREE ADDRESS. LSTADR &FYSPAG ** 8 ~ 4 P** IS UPDATED AND CHECKED. ** 8 4 P**
0x331c3c…331dd0 Dummy {f00=0x00c2, f01=0x0190, f02=» 8 ^ 4 P** OUTPUT:A2=LOGICALL TO-ADDRESS ** 9 4 P** WORK-REGS: A4,A10 ** 9 @ 4 P*********************************************** 9 x P 9 PMOVING EQU * 9 , P CALL PUSH STORE REGISTERS ON A15-STACK 9 0 P LD A4,FYSPA
0x331dd0…331f64 Dummy {f00=0x00c2, f01=0x0190, f02=» " P LDR* A9,A2 GET PAGE IN TABLE : P ANKL A9,/FC00 : * * P CWR A9,A4 CORRECT PAGE IN MMU-TABLE? : @ P RF(E) MOV010 YES! : n & P ADKL A4,/400 ADJUST FOR 'SETTAB' : $ P CALL SETTAB NEW PAGE IN TABLE! : : PMOV010 LD A11,LSTADR+STKCOM GET LAST LOGICALL
0x331f64…3320f8 Dummy {f00=0x00c2, f01=0x0190, f02=» RF(NL) MOV020 YES! : , P SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ; PMOV015 RF(NP) MOV025 ; L * P CALL SETTAB INITIALIZE NEW PAGE ENTRY ; h * P ADKL A11,4096 PHYSICAL PAGE INCREMENT ; P RB MOV015 ; 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE ;
0x3320f8…33228c Dummy {f00=0x00c2, f01=0x0190, f02=»T ENOUGH. NEW PAGE! ; P < ( P* MM-TABLE CORRECT. SAVE ADDRESSES * < $ P < P P* A4=PHYSICALL PAGE NUMBER < X P* A11=DISPLACEM. WITHIN PAGE < z " P* A2=CURRENT ENTRY IN MM-TABLE < P < PMOV050 EQU * < , P ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB
0x33228c…332420 Dummy {f00=0x00c2, f01=0x0190, f02=»LUTE ENTRY ADDRESS < * P ST A4,MMTO+STKCOM SAVE TABLE ADDRESS = P SUR A2,A4 RELATIVE ADDRESS = H 2 P SLL A2,11 SHIFT TO FOUR FIRST BITS & DIV BY 2 = l * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE = P ANKL A2,/FFFE EVEN ADDRESS = . P ST A2,LSTADR+STKCOM
0x332420…3325b4 (3, 344) Dummy {f00=0x00c2, f01=0x018e, f02=»AVE A11 = z P LD A11,FYSPAG+STKCOM > P CALL CMPADR AND COMPARE > . P RF(G) MOV090 OK! > N P RF(L) MOV070 NOK! > h ( P LD A11,COM01+STKCOM RESTORE DISPL. > P LD A9,FSTADR+STKCOM > P CALL CMPADR > P RF(NL) MOV090 OK! > PMOV070 LDKL A1,L
0x3325b4…332748 Dummy {f00=0x00c2, f01=0x0190, f02=» ( P CALL INBIMA INIT ALLOCATION BIT MAP ? 4 PMOV100 CALL POB RESTORE REGISTERS FROM A15-STACK ? 0 0 P LD A2,LSTADR+STKCOM GET LOGICAL TO-ADDRESS ? h ( P TL* MMFROM+STKCOM RESTORE MM-TABLE ? P RTN A14 ? P XIF ? P EJECT ? P ? 6 P**
0x332748…3328dc Dummy {f00=0x00c2, f01=0x0190, f02=» ** ? n 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** @ 6 P** OVERFLOW. ** @ R 6 P** ** @ 6 P** INPUT :A2-ADDRESS TO CURRENT ENTRY ** @ 6 P**
0x3328dc…332a70 Dummy {f00=0x00c2, f01=0x0190, f02=» ** @ t 6 P************************************************* A P A X PSETTAB EQU * A ` P IFT MMUPAG=1 A t P SUKL A4,/400 GET NEXT PAGE A P SUK A2,2 GET NEXT ENTRY A P A " P* CHECK IF MM-TABLE OVERFLOW * A P A ( P LDR
0x332a70…332c04 Dummy {f00=0x00c2, f01=0x0190, f02=» P RF SETT05 B PSETT00 CWR A2,A9 OVERFLOW? B PSETT05 RF(NL) SETT10 NO B 8 P LDK A1,LMP7 B X P CALL ERROR B l PSETT10 EQU * B P STR A4,A2 STORE IN TABLE B P RTN A14 B P XIF B P EJECT B P B P B P B 6 P**
0x332c04…332d98 Dummy {f00=0x00c2, f01=0x018e, f02=» ** B l 6 P** COMPARE ADDRESSES. RESULT IN PSW ON RETURN ** C 6 P** ** C P 6 P** INPUT : A11 COMPARED TO.. ** C 6 P** A9 ** C 6 P** OUTPUT
0x332d98…332f2c Dummy {f00=0x00c2, f01=0x0190, f02=» P TNM A11,A9 D P RF(NN) CMPA10 D P CWR A9,A11 D . P RF CMPA20 D B PCMPA10 CWR A11,A9 D T . PCMPA20 CFI A14,PSW,A13 PUT RESULT ON STACK D n P RTN A14 D P EJECT D P D P D 4 P** M U L T ** D
0x332f2c…3330c0 Dummy {f00=0x00c2, f01=0x0190, f02=» (A2) X A3(), A2#0 ** D ~ 4 P** ** E & 4 P** INPUT : A3,A2 ** E ^ 4 P** OUTPUT:A3=RESULT ** E 4 P************************************************ E PMU
0x3330c0…333254 (3, 345) Dummy {f00=0x00c3, f01=0x0190, f02=»2,1 E P RB(NZ) ADD F P LDR* A2,A14 F P RTN A14 F 4 P EJECT F D P F R 4 P** M M E N T ** F Z 4 P** ** F 4 P** ** F 4 P** FI
0x333254…3333e8 Dummy {f00=0x00c3, f01=0x0190, f02=» ** F r 4 P** INPUT :A3=MM-TABLE ADDRESS ** G 4 P** OUTPUT:A3=ENTRY ADDRESS ** G R 4 P** A9=TTAB-ADDRESS ** G 4 P** LSTPAG IN TTAB=A3 ** G 4 P** A1=
0x3333e8…33357c Dummy {f00=0x00c3, f01=0x0190, f02=»G=1 G P LDR A9,A3 GET TABLE ADDRESS H 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER) H 0 P SUK A3,2 H j & PMMEN10 ADK A3,2 INCREMENT ADDRESS H | ( P LDR* A1,A3 GET CONTENTS OF MM-TABLE H P ANKL A1,/FC00 H P CWK A1,/FC00 H P RB(Z) MME
0x33357c…333710 Dummy {f00=0x00c3, f01=0x0190, f02=»T T A B ** H | 2 P** ** I " 2 P** ** I X 2 P** FIND TTAB ADDRESS ** I 2 P** ** I 2 P** INPUT :A8=
0x333710…3338a4 Dummy {f00=0x00c3, f01=0x0190, f02=» ** I f 2 P** WORKREGS:A3,A4,A10 ** J 2 P********************************************** J B P J x PGETTAB EQU * J P IFT MMUPAG=0 J P LDR* A3,A8 T:A ADDRESS J & P LD A1,T:ATID,A3 GET TID TO MATCH J P LD A12,T:DAD,A3 T:D
0x3338a4…333a38 Dummy {f00=0x00c3, f01=0x0190, f02=» XIF J & PGETTTB EQU * ENTRY. INPUT: A1=TID K " P ST A10,COM04+STKCOM SAVE A10 K 6 $ P LD A4,SCTTCT GET TC:TAB ADDRESS K P LDR* A10,A4 TCTAB LENGTH K PGETT10 ADK A4,2 K P SUKL A10,2 ALL? K P RF(NN) GETT20 NO! K * P LDR A3,A1 SAVE A1 (DEBU
0x333a38…333bcc Dummy {f00=0x00c3, f01=0x0190, f02=»? K v P RB(NE) GETT10 NO! L P ST A2,TTAB+STKCOM SAVE L $ P LD A10,COM04+STKCOM L D P RTN A14 L ` P EJECT L p > P********************************************************** L ~ > P* * L > P*
0x333bcc…333d60 Dummy {f00=0x00c3, f01=0x0190, f02=» * L > P* REFERENCED IN: MOVING,SYSLDB PART 2 * M 8 > P* * M z > P* ENTRY: MAPLEN - LENGTH OF AREA TO BE MAPPED * M > P*
0x333d60…333ef4 (3, 346) Dummy {f00=0x00c3, f01=0x0190, f02=» * M > P* EXIT: * N 4 > P* * N v > P* WORK REGISTERS: A1,A2,A3,A4 * N > P*
0x333ef4…334088 Dummy {f00=0x00c3, f01=0x0190, f02=» * N ~ > P********************************************************** O 0 PINBIMA EQU * O r P IFT MMUPAG=1 O P LDKL A1,/8000 INIT BIT MASK O * P LD A2,STKCOM+LSTADR GET LAST ADDRESS O P LDR A4,A2 SAVE O . P A
0x334088…33421c Dummy {f00=0x00c3, f01=0x0190, f02=»NT O n ( P AD A4,STKCOM+TTAB ADD TTAB ADDRESS P " P LDR A3,A2 GET LOGICAL ADDRESS P 6 , P ANKL A3,/3000 SELECT ENTRY IN PARTITION P . P SRL A3,12 DISPL. REL. START OF PARTITION P * PMAP:40 SUK A3,1 CORRECT NIBBLE FOUND? P P RF(N) MAP:50 YES P P S
0x33421c…3343b0 Dummy {f00=0x00c3, f01=0x0190, f02=»E P * PMAP:60 SUK A3,1 CORRECT 1K-PARTITION? Q P RF(N) MAP:65 YES Q 8 P SRL A1,1 NEXT 1K-PARTITION Q R P RB MAP:60 Q v * PMAP:65 LD A3,STKCOM+MAPLEN GET LENGTH Q * P ANKL A2,/3FF REMANING PART OF 1K-PAGE Q P ADR A3,A2 ADJUST LENGTH Q . P LDK
0x3343b0…334544 Dummy {f00=0x00c3, f01=0x0190, f02=»OCCUPIED Q h P LDR A3,A3 GET LENGTH R P RF(N) MAP:80 >32K R . " P SUKL A3,/400 DECREMENT LENGTH R H $ P RF(NP) MAP100 MAPPING FINISHED R n P RF MAP:90 R ( PMAP:80 SUKL A3,/400 DECREMENT LENGTH R & PMAP:90 SRL A1,1 NEXT 1K-PARTITION R , P RB(NZ) MA
0x334544…3346d8 Dummy {f00=0x00c3, f01=0x0190, f02=»DKL A1,/8000 INIT BIT MASK R P RB MAP:70 S " PMAP100 EQU * S 4 P XIF S H P RTN A14 S T P EJECT S d P S r 2 P** M M R S T ** S z 2 P** ** S 2 P** RESET MMTAB ENTRIES FROM ADDRE
0x3346d8…33486c Dummy {f00=0x00c3, f01=0x0190, f02=» ** S 2 P** INPUT : A1 = LAST USED ENTRY ** T . 2 P** OUTPUT: A1 = MMTAB START ADDRESS ** T d 2 P** A2 = MMTAB START ADDRESS ** T 2 P** A12= /FC00 ** T 2 P**
0x33486c…334a00 Dummy {f00=0x00c3, f01=0x0190, f02=» T n P ADR A2,A13 U P SUK A2,2 U P LDKL A12,/FC00 INDICATOR U . PMMRST1 EQU * U P P SUK A1,2 NEXT ENTRY U d P CWR A1,A2 ALL DONE ? U P RF(E) MMRST2 YES U $ P STR A12,A1 INDICATE FREE ENTRY U P RB MMRST1 NEXT ENTRY U PMMRST2 EQU
0x334a00…334b94 (3, 347) Dummy {f00=0x00c3, f01=0x0190, f02=» * U p 0 P* GET START OF APLTAB-BLOCK AND CONFIGURA- * V 0 P* TION-DATA FOR SPECIFIED APPLICATION * V H 0 P* AND IF MMU-CASE ,LOAD HARDWARE MMU-TABLE * V | 0 P* AND MMTAB WITH MMU-TABLE FROM TTAB * V 0 P*
0x334b94…334d28 Dummy {f00=0x00c3, f01=0x0190, f02=» APPL.TYPE 0,1,2,3... * V 0 P* CONSTA=START OF CONF.DATA * W $ 0 P* * W X 0 P* OUTPUT: A1=ADDRESS TO FIRST ENTRY IN * W 0 P* APLTAB-BLOCK * W 0 P* A2=BLOCK T
0x334d28…334ebc Dummy {f00=0x00c3, f01=0x0190, f02=»* APPLICATION * W 0 P* APPLNO=APPLNO+1 IF APPLICATION * X 4 0 P* IS FOUND * X h 0 P* ELSE APPLNO IS UNCHANGED * X 0 P* CONSTA=START OF CONF.DATA * X 0 P*
0x334ebc…335050 Dummy {f00=0x00c3, f01=0x0190, f02=» * X l 0 P* WORK REGISTERS : A1-A4,A11 * Y 0 P* * Y D 0 P******************************************** Y x PGETAPP EQU * Y . P* INITIATE REGISTERS AND INCREMENT APPLNO Y ( P LD A3,APLTAB+STKCOM A
0x335050…3351e4 Dummy {f00=0x00c3, f01=0x0190, f02=»DK A2,0 CLEAR APPL.COUNTER OF Y P ALL APPL.TYPES Z & 8 P* FIND RIGHT APLTAB-BLOCK FOR SPECIFIED APPLICATION Z @ PGTA100 EQU * Z | ( P ADK A2,1 INCREMENT APPL.COUNTER OF Z P ALL APPL.TYPES Z 0 P CW* A2,APLTAB+STKCOM ANY APPLICATION LEFT? Z
0x3351e4…335378 Dummy {f00=0x00c3, f01=0x0190, f02=»P,A3 RIGHT APPL.TYPE? Z P RF(E) GTA200 YES! [ . P ADK A3,ACBLEN UPDATE APLTAB-BLOCK ADDRESS [ 8 & P RB GTA100 SHECK NEXT APLTAB-BLOCK [ j PGTA200 EQU * [ . P CW A4,APPLNO+STKCOM RIGHT APPL.NUMBER OF [ P CURRENT APPL.TYPE? [ P RF(E) GTA300 YE
0x335378…33550c Dummy {f00=0x00c3, f01=0x0190, f02=»GTA100 SHECK NEXT APLTAB-BLOCK [ PGTA300 EQU * & P IFT MMUPAG=1 : . P* GET MMU-TABLE FROM TTAB OF CURRENT TASK P 6 P LD* A4,APLMMC,A3 GET TCTAB-ENTRY FOR CURRENT TASK 4 P ADKL A4,TTB:MT ADDRESS TO 1:ST MMU-TABLE ENTRY P IN TTAB P T
0x33550c…3356a0 Dummy {f00=0x00c3, f01=0x0190, f02=»N ^ $ P LDK A4,0 CLEAR APPL.COUNTER OF ] P ALL APPL.TYPES ] 2 , P LDR A1,A3 LOAD APLTAB-BLOCK ADDRESS TO ] L P OUTPUT REGISTER ] | 0 P LD A11,CONSTA+STKCOM GET START OF CONF.DATA ] ( P ADK A4,1 INCREMENT APPL.COUNTER OF ] P ALL APPL.TYPES
0x3356a0…335834 (3, 348) Dummy {f00=0x00c3, f01=0x0190, f02=» A3,A11 GET CHAR. FROM CONF.DATA ] , P ADKL A11,1 INCREMENT CONF.DATA POINTER ^ ( * P CCK A3,/FFFF IS CONF.DATA CHAR. /FF? ^ X P RB(NE) GTA400 NO! ^ ( P ADK A4,1 INCREMENT APPL.COUNTER OF ^ P ALL APL.TYPES ^ $ P CWR A2,A4 RIGHT APPL.NUMBER OF ^
0x335834…3359c8 Dummy {f00=0x00c3, f01=0x018e, f02=» TO PSW OF THIS ^ x ( P* SUBRUTIN,AND RETURN FROM SUBRUTIN _ PGTA800 EQU * _ D . P IM APPLNO+STKCOM INCREMENT APPL.NUMBER OF _ X P CURRENT APPL.TYPE _ P LDK A2,0 CLEAR REGISTER _ ( P LCR A2,A11 GET CHAR FROM CONF.DATA _ 0 P LDK A4,1 MAKE COND.RE
0x3359c8…335b5c Dummy {f00=0x00c3, f01=0x0190, f02=» P ` P ` 6 P** C O N V R T ** ` 6 P** ** ` V 6 P** ** ` 6 P** CONVERSION OF TWO ASCII-DIGITS TO BINARY ** ` 6 P**
0x335b5c…335cf0 Dummy {f00=0x00c3, f01=0x0190, f02=»SULT ** ` x 6 P** WORK.REGS: A3,A2 ** a " 6 P************************************************** a P a PCONVRT EQU * a P LDK A1,0 CLEAR RESULT REG a P LDR A3,A5 a P SRL A3,8 GET TEN'S a P S
0x335cf0…335e84 Dummy {f00=0x00c3, f01=0x0190, f02=»3,A5 a P ANK A3,/F GET ONE'S b P ADR A1,A3 b ( P RTN A14 b : P EJECT b J P b X 6 P** N X T B L K ** b ` 6 P** ** b 6 P** ** b
0x335e84…336018 Dummy {f00=0x00c3, f01=0x0190, f02=»=ADDRESS TO CURRENT BLOCK-START ** b 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** c , 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** c f 6 P** WORKREGS: A1,A3-A5 ** c 6 P**********************************************
0x336018…3361ac Dummy {f00=0x00c3, f01=0x0190, f02=»N-BLOCK c j P LCR A5,A11 d P SLL A5,8 d $ P LC A5,1,A11 d 6 P CALL CONVRT d J P LDK A2,TDBREC d ^ P LDR A3,A1 d t P CALL MULT d P ADR A11,A3 d P ADKL A11,2 d 0 P LCR A5,A11 GET NUMBER OF SPEC, DEV. CLASSES d P SLL A5,8 d P L
0x3361ac…336340 Dummy {f00=0x00c3, f01=0x0190, f02=»1=NEXT BLOCK d P ADKL A11,2 e $ P LC A2,TDBBT,A11 GET BLOCK TYPE e ( P RTN A14 e P P EJECT e ` P e n P e z 8 P** G E T N U M ** e 8 P** ** e 8 P**
0x336340…3364d4 (3, 349) Dummy {f00=0x00c4, f01=0x018e, f02=» ** e v 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** f " 8 P** OUTPUT: A5=BINARY VALUE ** f ^ 8 P** WORK.REGS: A2,A4 ** f 8 P**************************************************
0x3364d4…336668 Dummy {f00=0x00c4, f01=0x0190, f02=» f x PGET030 ADK A6,1 NEXT DIGIT g P LCR A2,A6 GET CHAR g * P ANK A2,/F g F PGET050 SUK A2,1 g X " P RF(N) GET100 THIS DIGIT READY g p P ADR A5,A4 ACCUMULATE g P RB GET050 g , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) g P RB(P) GET030 g
0x336668…3367fc Dummy {f00=0x00c4, f01=0x0190, f02=» Q U E J O B ** g 8 P** ** h 2 8 P** ** h n 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** h 8 P** 0, ENB.
0x3367fc…336990 Dummy {f00=0x00c4, f01=0x0190, f02=»AB-ADDRESS ** h 8 P*************************************************** i , P i h PQUEJOB EQU * i p P* QUEUE THIS TASK (THIS TID) i P i 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS i P ADR A3,A13 RELOCATE i P STR A3,
0x336990…336b24 Dummy {f00=0x00c4, f01=0x0190, f02=»0 CLEAR ABORT INDICATOR i P IFT MMUPAG=0 j , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS j 6 P ADK A4,2 j f P ANKL A4,/FFFE j x P ADK A4,DWBFST+4 j 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS j & P LDR* A6,A4 NUMBER OF START POINTS j
0x336b24…336cb8 Dummy {f00=0x00c4, f01=0x0190, f02=»ER j x P XIF k P IFT MMUPAG=1 k , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS k , P ADK A4,2 k P ANKL A4,/FFFE k n P ADK A4,DWBFST+4 k 8 P ADR A4,A12 ADD T:A-ADDRESS => START OF START-POINTS k & P ELR A6,A4 NUMBER OF START-POINTS k . PGETT30
0x336cb8…336e4c Dummy {f00=0x00c4, f01=0x0190, f02=» XIF k P CF A15,ACTOT l $ P ADK A4,STPREC NEXT START-POINT l " P RB GETT30 l J $ PGETT40 ABL RETUR8 RELOAD 8 REGS l PRETUR EQU *-REL l P RTN A14 l P EJECT l P l 4 P** M O V M M T ** l 4 P**
0x336e4c…336fe0 Dummy {f00=0x00c4, f01=0x0190, f02=» ** l j 4 P** ** m 4 P** INPUT :A2=TTAB-ADDRESS ** m J 4 P** MMTAB HOLDS TABLE TO MOVE ** m 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** m 4 P** A9=TTAB AD
0x336fe0…337174 (3, 350) Dummy {f00=0x00c4, f01=0x0190, f02=»* m b P n PMOVMMT EQU * n P IFT MMUPAG=1 n & ( P ADKL A2,MMBEG GET TO-TABLE ADDRESS n < " P TL MMTAB,A13 LOAD FROM-TABLE n h P TSR A2 MOVE n P LDR A3,A2 n ( P CALL MMENT FILL LAST ENTRY ADDRESS n $ P TL* MMFROM+STKCOM RELOAD TABLE n P
0x337174…337308 Dummy {f00=0x00c4, f01=0x0190, f02=»NITIATE DYNAMIC CORE FOR COBOL n P* o & " P LD A2,SCTOPT GET OPTION WORD o 0 " P ANKL A2,/2000 ANY COBOL APPL? o V P RF(Z) PBSEND NO! o | . P LD A8,DYNSTA+STKCOM GET START OF DYNTAB:S o & P LDR* A2,A8 GET NUMBER OF DYNTAB:S o ( P ADKL A8,2 INCREMENT D
0x337308…33749c Dummy {f00=0x00c4, f01=0x0190, f02=»POINTER o t P LDR* A7,A8 GET SPL-PBS ADR p P LDR A6,A13 p 4 * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS p H P SUK A3,2 END OF DYNTAB p v P RF(Z) INDY50 YES! p PINDY20 EQU * p $ P LDR* A5,A6 GET NUMBER OF COPIES p P CWK A5,/FFFF END OF TABLE?
0x33749c…337630 Dummy {f00=0x00c4, f01=0x0190, f02=»EMENT NBR.OF COPIES p . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER q * P STR A4,A7 STORE CHARACTER IN SPL-PBS q N " P ADK A7,2 STEP SPL-PBS POINTER q | P RB INDY30 NEXT WORD q PINDY40 EQU * q P LDR* A4,A8 SPL-PBS ADR q P LDKL A5,STKMAX STACK-
0x337630…3377c4 Dummy {f00=0x00c4, f01=0x0190, f02=» P LDR A6,A4 SPL-PBS ADDR r & P ADK A6,SPLSTA POINT AT STACK AREA r $ P ADR A5,A6 +STACK AREA ADDR r N 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS STACK-BASE r r P RB INDY10 r PINDY50 EQU * r P SUK A2,1 ANY DYNTAB:S LEFT? r P RB(NZ) INDY05 YES! r
0x3377c4…337958 Dummy {f00=0x00c4, f01=0x0190, f02=» ** r j 6 P** EACH WORD IN THIS TABLE CONSISTS OF: ** s 6 P** WORD1=COUNTER,NBR OF COPIES OF NEXT WORD ** s N 6 P** WORD2=WORD ** s 6 P** ** s 6 P** BYTE1 (C
0x337958…337aec Dummy {f00=0x00c4, f01=0x0190, f02=»****************** s p PPBSTAB EQU *-REL t P DATA 1 TERMINATION-CODE t 2 P DATA 0 t R P DATA 1 STACK-USED t b P DATA /6 t | P DATA 1 STACK-SIZE t P DATA 0 t P DATA 3 PROCEDURE-NAME t P DATA /2020 t & P DATA 20 PGM-DATA UNTIL STACK-BA
0x337aec…337c80 Dummy {f00=0x00c4, f01=0x0190, f02=»ORK-AREA t v P DATA 0 u & P DATA /FFFF E N D O F T A B L E u PPBSEND EQU * u J P XIF u ^ P IFF MMUPAG+DSKPAG=0 u j P* u 4 P* RESERVE PAGES IN MEMORY AND BUILD PAGE TABLE u P* u PPAGGEN EQU * u P LDKL A2,PAGEX EXIT ADDRESS u
0x337c80…337e14 (3, 351) Dummy {f00=0x00c4, f01=0x0190, f02=»ORD u v P ANK A1,3 PAGING? v P ABR(Z) A2 NO! v & P* v < L P* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS v F P* v * P LD A11,SCTSFA GET START OF FREE AREA v " P ST A11,SCTPAG STORE IN SYSTAB v $ P LDR A8,A13 GET RELO
0x337e14…337fa8 Dummy {f00=0x00c4, f01=0x0190, f02=»P EQUAL TO NUMBER OF PAGES? v P RF(E) PAG:30 YES! w $ $ P LDK A1,0 RESET NUMBER OF WORDS w > PPAG:20 EQU * w f " P ADKL A11,2 INCLUDE NEXT WORD w z 0 P RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIMIT) w $ P ADK A1,1 INCREMENT WORD COUNTER w P CWK A1,4 4
0x337fa8…33813c Dummy {f00=0x00c4, f01=0x0190, f02=»PAG:20 w 0 PPAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER x P RB PAG:10 x B PPAG:30 EQU * x T P* x h 4 P* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY x r 6 P* AND EXTEND PAGE TABLE WITH CORRESPONDING NUMBER x P* OF PAGE BLOCKS. x P* x P
0x33813c…3382d0 Dummy {f00=0x00c4, f01=0x0190, f02=»NKL A2,/FFF GET DISPLACEMENT x & P SRL A2,2 SKIP TWO RIGHTMOST BITS y $ , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS y N P LDR A3,A1 SAVE y ~ P LD A2,SCTPSZ GET PAGE SIZE y & P SRL A2,2 SKIP TWO RIGHTMOST BITS y P LDR A10,A2 SAVE y 0 P ANKL A1,/FC
0x3382d0…338464 Dummy {f00=0x00c4, f01=0x0190, f02=»PAGE ADDRESS LIMIT y ~ P XIF z P IFT DSKPAG-MMUPAG=1 z & 2 P LD A1,LSTADR+STKCOM GET PHYSICAL LAST ADDRESS z B P LD A10,SCTPSZ PAGE SIZE z x P XIF z P IFF MMUPAG+DSKPAG=0 z P LDR A9,A1 INIT PAGE ADDRESS z P LDR A6,A9 SAVE z PPAG:31 EQU *
0x338464…3385f8 Dummy {f00=0x00c4, f01=0x0190, f02=»PAG:32 CWR A6,A10 z PPAG:33 RF(NG) PAG:40 { , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE { 6 P LDR A1,A6 GET PAGE ADDRESS { f P IFT MMUPAG=1 { * P ANKL A1,/C000 ADDRESS IN SYSTEM AREA? { P RF(NZ) PAG:34 NO! { . P LDR A1,A6 PHYSICAL ADDRESS IN
0x3385f8…33878c Dummy {f00=0x00c4, f01=0x0190, f02=» P IFF MMUPAG+DSKPAG=0 | & PPAG:36 LDK A2,0 RESET WORD COUNTER | . PPAG:38 CWR A11,A8 CHECK PROGRAM OVERWRITE | J * P RF(E) PAG:40 NO MORE MEMORY AVALIABLE | | $ P ADKL A11,2 INCR. PAGBLK POINTER | $ P ADK A2,1 INCREMENT WORD COUNTER | P CWK A2,4 BLOC
0x33878c…338920 Dummy {f00=0x00c4, f01=0x0190, f02=»T CHECK | z P RF(NN) PAG382 } P CWR A11,A1 } & P RF PAG384 } : PPAG382 CWR A1,A11 } L . PPAG384 RB(G) PAG:38 MORE MEMORY AVALIABLE } f PPAG:40 EQU * } " P ADK A7,0 ANY PAGES RESERVED? } P RF(Z) MEMOFL NO! } 6 P CW A7,SCTNOP ONLY PAGES FOR
0x338920…338ab4 (3, 352) Dummy {f00=0x00c4, f01=0x0190, f02=»AG:50 YES! } PMEMOFL LDKL A1,LMP3 ~ * P OTR A1,0,SOP INDICATE MEMORY OVERFLOW ~ . P HLT HALT PROGRAM ~ : PPAG:45 CW A7,STKCOM+TOTSGM ONE PAGE/SEGMENT ALLOCATED? ~ v , P CW A7,STKCOM+TOTSGM MORE PAGES WANTED? ~ P RF(E) PAG:50 YES! ~ $ P ADK A7,1
0x338ab4…338c48 Dummy {f00=0x00c4, f01=0x0190, f02=»ES ~ p ( P LDR A1,A9 GET ADDRESS TO FIRST PAGE P LDR A2,A1 SAVE 6 P IFT MMUPAG=1 N * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS d P ST A1,SCTEFA SAVE . P SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P XIF P IFF MMUPAG+DSKPAG=0 P S
0x338c48…338ddc Dummy {f00=0x00c4, f01=0x0190, f02=»APLTAB GET START OF ACB:S * P LDR* A4,A7 GET NUMBER OF APPLICATIONS " . PINI10 LD* A3,APLMMC+2,A7 GET TTAB ADDRESS P P IFF MMUPAG+DSKPAG=0 0 P LD A11,TTB:SP,A3 GET SEGMENT TABLE ADDRESS " P RF(Z) INI40 NO SEGMENT TABLE , P LD A6,SEG:NS,A1
0x338ddc…338f70 Dummy {f00=0x00c4, f01=0x0190, f02=»4K PAGE l & P SRL A1,2 SKIP TWO RIGHTMOST BITS : P OR A1,APLSEG+2,A7 MERGE WITH PHYSICL 4K PAGE ADDRESS : P XIF x P IFT DSKPAG-MMUPAG=1 4 P LD A1,APLSEG+2,A7 GET PHYSICAL 4K PAGE ADDRESS P SLL A1,2 MULTIPLY BY 4 6 P OR A1,APLNPE+2,
0x338f70…339104 Dummy {f00=0x00c4, f01=0x0190, f02=» FOR CORE RESIDENT SEGMENTS x 8 P* AND STORE PAGE BLOCK ADDRESSES IN SEGMENT BLOCKS $ P* ` " P ADKL A11,8 NEXT SEGMENT BLOCK j P LDR* A2,A11 GET STATUS , P RF(NN) INI30 SEGMENT NOT LOADED IN CORE * P ST A12,6,A11 STORE PAGE BLOCK ADDRESS
0x339104…339298 Dummy {f00=0x00c4, f01=0x0190, f02=» ST A11,6,A12 STORE SEGMENT BLOCK ADDRESS * P LD A2,APLPSZ+2,A7 GET SEGMENT SIZE =1 2 P XIF =2 ` P IFT MMUPAG=1 =2 r P SRL A2,2 =1 P XIF =2 P IFF MMUPAG+DSKPAG=0 =2 & P ADR A1,A2 ADDRESS TO NEXT PAGE =1 P ADKL A12,
0x339298…33942c Dummy {f00=0x00c4, f01=0x0190, f02=»PAG+DSKPAG=0 P* 0 P* SAVE START OF DYNTAB:S IN SYSINI (STADYN) , P* BEFORE ENABLE IS SET BECAUSE INTERUPT R & P* CAN DESTROY DYNSTA IN A15-STACK P* . P LD A1,DYNSTA+STKCOM GET START OF DYNTAB:S . P ST A1,SAVDYN,A13 SAVE IN SYSINI
0x33942c…3395c0 Dummy {f00=0x00c4, f01=0x0190, f02=»* , P LD A1,APLMMP+2,A7 GET APPLICATION TYPE ( P CWK A1,'AS' ASSEMBLER APPLICATION? : P RF(NE) INI50 NO f P* ~ " P* SWITCH TO LEVEL 0 & ENABLE P* " P LDKL A1,INI45 RETURN ADDRESS P ADR A1,A13 RELOCATE P STR A1,A15 ST
0x3395c0…339754 (3, 353) Dummy {f00=0x00c5, f01=0x0190, f02=»APLMMC+2,A7 GET TTAB ADDRESS ( P LD A2,APLSTA+2,A7 GET START ADDRESS $ P AD A2,APLREL+2,A7 RELOCATE P P LDK A3,0 SEGMENT NUMBER t P CF A15,ACTOT QUEUE TASK P EJECT PINI50 EQU * P IFT MMUPAG=1 0 P LD A1,APLLAP+2,A7 GET LOGIC
0x339754…3398e8 Dummy {f00=0x00c5, f01=0x0190, f02=»M APLMMP+2,A7 CLEAR DISPL. TO PAGE ENTRY P IFT MMUPAG=1 0 P RF INI60 F PINI55 EQU * X P SRL A1,12 PAGE ENTRY NUMBER l $ P LDK A2,16 NUMBER OF MMU ENTRIES & P SUR A2,A1 NUMBER OF PAGE ENTRIES P ST A2,APLNPE+2,A7 SAVE P SLL A
0x3398e8…339a7c Dummy {f00=0x00c5, f01=0x018e, f02=»LOGICAL ADDR. TO COMMON PART t P SRL A1,11 ENTRY NUMBER $ P ANK A1,/1E 2*ENTRY NUMBER D 4 P ADKL A1,TTB:MT DISPL TO FIRST COMMON PART ENTRY f P ST A1,APLMMC+2,A7 SAVE P XIF P ADK A7,ACBLEN NEXT ACB P SUK A4,1 MORE APPLICATIONS?
0x339a7c…339c10 Dummy {f00=0x00c5, f01=0x0190, f02=» P LDR A12,A12 ANY PAGES? P RF(Z) INI90 NO! ( $ P CW A12,SCTSFA ANY FREE BLOCKS? @ P RF(E) INI90 NO! h 4 P ST A12,PAGQUE POINTER TO FIRST FREE PAGE BLOCK & P LDKL A11,PAGQUE POINTER TO PAGQUE 0 P LDR A1,A12 SAVE ADDRESS TO FIRST PAGE
0x339c10…339da4 Dummy {f00=0x00c5, f01=0x0190, f02=»NDICATE PAGE FREE & P ADK A1,8 ADDRESS NEXT PAGE BLOCK " P CW A1,SCTSFA LAST PAGE BLOCK? D P RF(E) INI80 YES! j , P LDR A11,A12 SAVE ADDRESS TO PAGE BLOCK & P STR A1,A12 STORE FORWARD POINTER P LDR A12,A1 NEXT PAGE BLOCK P ADR A
0x339da4…339f38 Dummy {f00=0x00c5, f01=0x0190, f02=» p & P ST A12,PAGQUE+2 STORE IN PAGQUE+2 PINI90 EQU * 2 P EJECT F P XIF T P ` P h P* START BUGGER (IF ANY) p P P P* GET APPLICATION START , P LD A14,STKCOM+APLTAB GET START OF ACB:S , P LD A14,APLREL+2,A14 GET
0x339f38…33a0cc Dummy {f00=0x00c5, f01=0x0190, f02=»A1,SCTBUG GET BUGGER ADDRESS P ABR(NZ) A1 $ P 8 PINI100 EQU *-REL @ P LDR A13,P X PINI110 EQU *-REL j 0 P SUKL A13,INI110 RESTORE PROGRAM BASE OINTER P* P* INIT A15 STACK P* P LD A15,SCTSTB P SUKL A15,4
0x33a0cc…33a260 Dummy {f00=0x00c5, f01=0x0190, f02=»A1,IHRTCO LOAD TEMPORARY INTERRUPT ADDRESS P ADR A1,A13 RELOCATE 2 * P ST A1,IHRTC STORE IN INTERRUPT VECTOR N & P CF A15,PFINIT INITIALIZE DEVICES | P CF A15,SAVE8 SAVE REGISTERS $ P CF A15,SWL48 SWITCH TO LEVEL 48 P* F P* WAIT APPR
0x33a260…33a3f4 (3, 354) Dummy {f00=0x00c5, f01=0x018e, f02=»1,1 P RB(NZ) DELAY P INH " ( P LDKL A1,0 GET RTC INTERRUPT ADDRESS . PSAVRTC EQU *-REL-2 Z P ST A1,IHRTC RESTORE t $ P LDR A1,A13 GET START OF SYSINI . P ADKL A1,INISTA START OF INIT. INSTR. SEQ. . P ADKL A13,INILEN END OF INIT.
0x33a3f4…33a588 Dummy {f00=0x00c5, f01=0x0190, f02=» p $ P ADK A1,2 INCREMENT FROM-ADDRESS " P ADK A2,2 INCREMENT TO-ADDRESS 0 P CWR A1,A13 ALL WORDS MOVED? V P ABL(E) STKEND YES z P RB INI150 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTC
0x33a588…33a71c Dummy {f00=0x00c5, f01=0x0190, f02=»LICATIONS AND BRANCH TO DISPATCHER P* * PINDY00 EQU * 4 " P LD A2,SCTOPT GET OPTION WORD H " P ANKL A2,/2000 ANY COBOL APPL? n P RF(Z) PBSEND NO! P LDKL A2,STKEND * P LD A8,STADYN,A2 GET START OF DYNTAB:S ( P RF(Z) PBSEND NO COB
0x33a71c…33a8b0 Dummy {f00=0x00c5, f01=0x0190, f02=»A3,A8 GET DYNTAB LENGTH (BYTES) PINDY10 EQU * ( ( P ADKL A8,2 INCREMENT DYNTAB POINTER < P LDR* A7,A8 GET SPL-PBS ADR h , P LDKL A6,STKEND START OF INIT.INSTR.SEQ. * P ADKL A6,PBSTAB CONSTANT-TABLE ADDRESS P SUK A3,2 END OF DYNTAB
0x33a8b0…33aa44 Dummy {f00=0x00c5, f01=0x0190, f02=»0 YES! P LD A4,2,A6 GET WORD TO COPY P ADK A6,4 ADJUST PBSTAB 2 PINDY30 EQU * R & P SUK A5,1 DECREMENT NBR.OF COPIES f . P RB(N) INDY20 ALL DONE FOR THIS CHARACTER * P STR A4,A7 STORE CHARACTER IN SPL-PBS " P ADK A7,2 STEP SPL-PBS P
0x33aa44…33abd8 Dummy {f00=0x00c5, f01=0x018e, f02=»PLSTS,A4 STORE IN SPL-PBS ( P LDKL A7,ENTFIN ENTRY-FINI (ADDRESS) " & P ST A7,SPLENT,A4 STORE IN SPL-PBS N P LDR A6,A4 SPL-PBS ADDR x & P ADK A6,SPLSTA POINT AT STACK AREA P ADR A5,A6 +STACK AREA ADDR 0 P ST A5,SPLSTB,A4 STORE IN SPL-PBS
0x33abd8…33ad6c Dummy {f00=0x00c5, f01=0x0190, f02=» PSAVDYN EQU *-REL PSTADYN EQU *-INDY00 P DATA 0 SAVE AREA FOR DYNSTA < P EJECT ` 6 P************************************************** n 6 P** ** 6 P** EACH WORD IN THIS TABLE CONSISTS O
0x33ad6c…33af00 Dummy {f00=0x00c5, f01=0x0190, f02=»** ** 6 P** BYTE1 (COUNTER)=/FF MEANS END OF TABLE ** : 6 P** ** t 6 P************************************************** PPBSTAB EQU *-INDY00 P DAT
0x33af00…33b094 (3, 355) Dummy {f00=0x00c5, f01=0x018e, f02=»PROCEDURE-NAME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x33b094…33b228 Dummy {f00=0x00c5, f01=0x400c, f02=» @ ME P DATA /2020 & P DATA 20 PGM-DATA UNTIL STACK-BASE * P DATA 0 T P DATA 1 STACK-BASE d P DATA 0 ~ P DATA 1 ENTRY-FINI P DATA 0 & P DATA 16 LAST-TS,RUNTIME-WORK-AREA P DATA 0 & P DATA /FFFF E N D O F
0x33b228…33b3bc Dummy {f00=0x00c5, f01=0x2008, f02=» -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x33b3bc…33b550 Dummy {f00=0x00c5, f01=0x0190, f02=»MON DATA AREA. PROCESS CWB'S & UWB'S. ! v F P* ! -MOVE D.T. AND W.B., COPY UWB'S ACCORDING TO ! 0 F P* ! SHADOW-TABLE. ! z F P* ! !
0x33b550…33b6e4 Dummy {f00=0x00c5, f01=0x0190, f02=», UWB'S ! X F P* ! AND DWB'S. ! F P* ! -BUILD MM-TABLE ! F P* ! -MOVE T:D ! F P* ! -MOVE D.T.
0x33b6e4…33b878 Dummy {f00=0x00c5, f01=0x0190, f02=» -SEARCH DBLK-TAB FOR DWB'S. MOVE D.T. AND UPDATE ! F P* ! W.B.-ADDRESS ! > F P* ! ! F P* ! P R O D A T
0x33b878…33ba0c Dummy {f00=0x00c5, f01=0x018e, f02=»FOR SWB'S ! f F P* ! -ALLOCATE FIXED BUFFERS AND TERMINAL STACK ! F P* ! -MOVE T:A ! j F P* ! -INCLUDE DDIV-PROTOTYPE IN FREE AREA. ! F P*
0x33ba0c…33bba0 Dummy {f00=0x00c5, f01=0x0190, f02=» P P* ! R E A L T A ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! X F P* ! -FILL MM-TABLE IN TTAB ! F P* ! -COPY T:A'S AC
0x33bba0…33bd34 (3, 356) Opaque[0x194]
0x33bd34…33bec8 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18f0, f03=0x0000}
0x33bd34…33bec8 IdxSect {
0x33bd34…33bec8 f00 = 0x00c7 // 0x33bd34 @0x0
0x33bd34…33bec8 f01 = 0x000a // 0x33bd36 @0x2
0x33bd34…33bec8 gno = [ // 0x33bd38 @0x4
0x33bd34…33bec8 [0x00]: C0x00c7.0x2.0
0x33bd34…33bec8 [0x01]: C0x00c7.0x3.0
0x33bd34…33bec8 [0x02]: C0x00c8.0x0.0
0x33bd34…33bec8 [0x03]: C0x00c8.0x1.0
0x33bd34…33bec8 [0x04]: C0x00c8.0x2.0
0x33bd34…33bec8 ]
0x33bd34…33bec8 }
0x33bec8…33c05c Dummy {f00=0x00c7, f01=0x018e, f02=» 2 P IDENT DSKSUB REL 11.0 81-01-26 870105041100 P : " P =1, DM NVL BITS TAKEN AWAY B P PRR 11.0 80-11-19 CHLO h P* , P**************************************** P* , P* PHILIPS TERMINAL SYSTEM PTS * P* ,
0x33c05c…33c1f0 Dummy {f00=0x00c7, f01=0x0190, f02=» P* P* ( P* DSKSUB HOLDS THE FOLLOWING DISC ( P* AND FILE MANAGEMENT SUBROUTINES: D P* p 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT z < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER 6 P* - VOLADR = COMPUTE
0x33c1f0…33c384 Dummy {f00=0x00c7, f01=0x0190, f02=»OM DISC BUFFER TO DWT n . P* - NEWVOL = SET NEW VOLUME LOADED BITS 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX P 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL P* P* P EJECT DSKSUB P* P* P****
0x33c384…33c518 Dummy {f00=0x00c7, f01=0x0190, f02=»M MOVE VOLUME NAME FROM DWT TO USER BUFFER 4 P ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT 2 . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED j : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4
0x33c518…33c6ac Dummy {f00=0x00c7, f01=0x0190, f02=»RY NVLEND END OF NVLTAB P ENTRY NVLBIT NVL BIT MASK P EJECT DSKSUB B P* X P* b P************* l P* EXTERNALS * P************* P* P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD
0x33c6ac…33c840 Dummy {f00=0x00c7, f01=0x018e, f02=»DER l P EXTRN DWTOR INDEX AND ORDER P EXTRN DWTTAB TTAB ADDRESS 0 " P EXTRN DWTUEC USER ECB ADDRESS R P EXTRN DWTVOL VOLUME NAME x ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND
0x33c840…33c9d4 (3, 357) Dummy {f00=0x00c7, f01=0x018e, f02=» & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH . P EJECT DSKSUB X P* n P* x , P*************************************** P* P* CONDITIONAL ASSEMBLY P* , P************************************
0x33c9d4…33cb68 Dummy {f00=0x00c7, f01=0x018e, f02=» PMMUPAG EQU 1 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 0 P* P* . P* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINE
0x33cb68…33ccfc Dummy {f00=0x00c7, f01=0x0190, f02=» 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* > PSWPBLK EQU 0 H P* P EJECT DSKSUB f P* ~ P* 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU
0x33ccfc…33ce90 Dummy {f00=0x00c7, f01=0x0190, f02=»EQU 1. p P* PX:B EQU 0 PDATMAN EQU 1 * P* > P EJECT DSKSUB H P* ` P* j P********** t P* VOLCLR * P********** P* P* 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUE
0x33ce90…33d024 Dummy {f00=0x00c7, f01=0x0190, f02=»UT: A1, A2 ARE DESTROYED P* PVOLCLR EQU * * P LDR A2,A1 > & P CF A15,VOLADR VOLUME NAME ADDRESS P P* z PVCLR10 EQU * P CMR A1 CLEAR ONE WORD P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P)
0x33d024…33d1b8 Dummy {f00=0x00c7, f01=0x018e, f02=» P* P* : P* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. V P* P* INPUT: A6 = DWT ADDRESS P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYE
0x33d1b8…33d34c Dummy {f00=0x00c7, f01=0x018e, f02=» j * P CF A15,VOLADR GET DWT VOLUME ADDRESS ( P ST A4,ECBEL,A8 SET EFFECTIVE LENGTH 6 P* b P IFT MMUPAG=0 l ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS P* P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE
0x33d34c…33d4e0 Dummy {f00=0x00c7, f01=0x018e, f02=» P RB(P) VNAM10 P RF RETURN P XIF , P* 8 P IFT MMUPAG=1 B 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK X P TS -30,A15 SAVE RUNNING MMU P TL TTB:MT,A2 LOAD USER MMU & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,E
0x33d4e0…33d674 (3, 358) Dummy {f00=0x00c8, f01=0x018e, f02=» P* P EJECT DSKSUB P* $ P* . P********** 8 P* VOLADR * J P********** P* n P* x P* INPUT: A6 = DWT ADDRESS P* ( P* OUTPUT: A1 = VOLUME NAME ADDRESS P* A4 = 6 P* PVOLADR EQU *
0x33d674…33d808 Dummy {f00=0x00c8, f01=0x0190, f02=» PVOLA10 EQU * P ADK A1,6 UPDATE ADDRESS P SUK A4,1 8 P RB(NN) VOLA10 J P LDK A4,6 ` P RF RETURN r P* P EJECT DSKSUB P* P* P********** P* NVLCHK * P********** P* P* 8 P*
0x33d808…33d99c Dummy {f00=0x00c8, f01=0x0190, f02=»D TO THE CALLING TASK (RC=/20). | P* ( P* INPUT: A6 = DWT ADDRESS 2 P* V 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) ` 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK E
0x33d99c…33db30 Dummy {f00=0x00c8, f01=0x0190, f02=»DR A2,A6 P LD A1,DWTNVL,A2 NVL FLAG 2 P ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) 2 P ST A1,DWTNVL,A2 h , P ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK " P RF(Z) RETURN RETURN IF NO NVL " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1
0x33db30…33dcc4 Dummy {f00=0x00c8, f01=0x0190, f02=»CK IF END OF TABLE REACHED ~ P RF(E) NVL:20 END OF NVLTAB " " P CWR* A4,A3 CHECK TTAB ADDRESS F $ P RF(E) NVL:20 NVL FOR THIS TASK l P SLL A1,1 SHIFT NVL BIT MASK * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB P RB NVL:10 P* PNVL:20
0x33dcc4…33de58 Dummy {f00=0x00c8, f01=0x0190, f02=»BIT t P LDK A1,/20 RETURN CODE P* , P EJECT DSKSUB 6 P* N P* X $ PRETURN EQU * COMMON RETURN LABEL b P IFT CPU852=1 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P XIF P* P IFT CPU852=0 P RTN A
0x33de58…33dfec Dummy {f00=0x00c8, f01=0x0190, f02=» P* 6 P* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER @ P* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. H P* ( P* INPUT: A2 = DISC BUFFER ADDRESS 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) 0 P* BIT 0
0x33dfec…33e180 Dummy {f00=0x00c8, f01=0x0190, f02=» A1-A3, A7-A8 ARE DESTROYED P* , P* 6 PVOLGET EQU * @ * P CF A15,VOLADR DWT VOLUME NAME ADDRESS T P LDK A7,0 RESET NVL FLAG P* PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME , P CWR* A8,A1 COMPARE WITH
0x33e180…33e314 (3, 359) Dummy {f00=0x00c8, f01=0x018e, f02=»SKSUB P* P* PVGET20 EQU * " ( P ADK A1,2 INCREMENT BUFFER POINTERS 6 P ADK A2,2 b $ P SUK A4,2 DECREMENT LOOP COUNTER t P RB(P) VGET10 P CF A15,INXDWT P ADK A7,0 CHECK NVL FLAG " P RB(Z) RETURN RETURN IF NO NVL
0x33e314…33e4a8 Dummy {f00=0x00c8, f01=0x0190, f02=» j P LD A7,DWTNVL,A4 NVL FLAGS 2 P RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC * P SLL A7,1 ` $ P RB(N) RETURN FIXED DISC, NO NVL r P* P EJECT DSKSUB P* P* P********** P* NEWVOL * P********** P*
0x33e4a8…33e63c Dummy {f00=0x00c8, f01=0x0190, f02=» 6 P* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS 6 P* ROUTINE FOR THE CONCERNED FILE CODE AND FILES > 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE x 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE ( P* NEXT REQUEST ON THAT FIL
0x33e63c…33e7d0 Dummy {f00=0x00c8, f01=0x0190, f02=» A6 = DWT ADDRESS P* & P* OUTPUT: A3 = ACTUAL FILE CODE $ P* A1-A2 ARE DESTROYED N P* n PNEWVOL EQU * x P LD A2,NVLBIT NVL BIT MASK 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED P LC A2,DWTOR,A6 INDEX P ANK A2,
0x33e7d0…33e964 Dummy {f00=0x00c8, f01=0x0190, f02=» P XIF P* P IFT FILMAN=1 * P LDKL A1,SCTFWT ADDRESS TO FWT POINTER 0 P* ^ > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME h P* PNEW:10 EQU * P LDR* A2,A1 NEXT FWT ADDRESS P RB(Z) RETURN NO MORE FWT:S
0x33e964…33eaf8 Dummy {f00=0x00c8, f01=0x0190, f02=»,A2 ADDRESS TO 2ND EWT BLOCK $ P CC A3,EWTVOL,A2 CHECK FILE CODE $ P RF(NE) NEW:30 L P LDKL A2,/8000 NVL BIT b 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED P RB NEW:10 P* PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRU
0x33eaf8…33ec8c Dummy {f00=0x00c8, f01=0x0190, f02=» DSKSUB P* P* P********** $ P* INXDWT * 6 P********** H P* Z P* d H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. n P* P* INPUT: A6 = DWT ADDRESS P* 0 P* OUTPUT: A4 = DWT A
0x33ec8c…33ee20 Dummy {f00=0x00c8, f01=0x0190, f02=» ANK A4,/3 P ADR A4,A4 DOUBLE INDEX P ADR A4,A6 2 P RB RETURN D P* V P EJECT DSKSUB ` P* x P* P********** P* NVLTAB * P********** P* P* 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS
0x33ee20…33efb4 (3, 360) Dummy {f00=0x00c8, f01=0x0190, f02=»WTNVL v PNVLTAB EQU * P IFT FILMAN=1 " $ P DATA TTABFM FMTASK TTAB 15 8 P* ` P IFF DSKPAG+SWPBLK=0 j $ P DATA TTABLD LDTASK TTAB 14 P XIF P* =1 P IFT FILMAN=1 PNVLEND EQU * P* PNVLBIT DAT
0x33efb4…33f148 Dummy {f00=0x00c8, f01=0x413a, f02=» P DATA TTABLD LDTASK TTAB P* $ PNVLEND EQU * . P* B PNVLBIT DATA 3 NVL BIT MASK L P XIF n P* z P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLBIT DATA 1 NVL BIT MASK P XIF
0x33f148…33f2dc Dummy {f00=0x00c8, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x33f2dc…33f470 Dummy {f00=0x00c8, f01=0x0190, f02=» LDR* A4,A1 GET WORD p P STR A4,A2 STORE q P ADK A1,2 q 4 P ADK A2,2 q F P SUK A3,2 DEC LENGTH q X P RB(NN) MOVNXT q t P LDR A3,A9 SAVE q & P LDR A11,A2 GET START OF FREE AREA q ( P LD A9,SCTEFA+2 GET END OF FREE AREA q P CALL CMPADR q
0x33f470…33f604 Dummy {f00=0x00c8, f01=0x018e, f02=» RESERVE 5 WORDS FOR DEBUGGER q P XIF r & P IFT MMUPAG=1 r 2 P CALL XMOVE r H & P* REMOVE DDIV ENTRIES IN MM-TABLE r P r " P LDR A3,A9 GET P:MTAB ADDRESS r , P SUK A3,10 RESERVE 5 WORDS FOR DEBUGGER r , P LDR A1,A3 GET P:MTAB ADDRESS-5WORDS
0x33f604…33f798 Dummy {f00=0x00c8, f01=0x0190, f02=» r z , P ADR A1,A2 P:MTAB-5WORDS START ENTRY =3 s P LDKL A4,/FC00 s 8 PSYA206 CWR A1,A2 ALL? s N P RF(E) SYA207 YES! s l , P STR A4,A1 REPLACE ENTRY WITH PAGE ERROR s P SUK A1,2 s P RB SYA206 s PSYA207 EQU * s P* s P* CHANGE TABLE -
0x33f798…33f92c Dummy {f00=0x00c8, f01=0x0190, f02=» XIF s P ANKL A3,/FFFE EVEN ADDRESS t . P ST A3,LSTADR+STKCOM SAVE END OF FREE AREA t 0 P t b P t j P t r . P* RESERVE SPACE FOR REAL T:A- AND U:BTAB * t ~ P t P t P IFT MMUPAG=1 t ( P LDKL A3,MMTAB GET CURRENT MM-TABLE t P ADR A
0x33f92c…33fac0 Dummy {f00=0x00c8, f01=0x0190, f02=» SAVE PHYSICALL PAGE t | * P LD A3,T:ANO,A10 GET LENGTH OF T:ATAB u P LDR A5,A3 SAVE u J * P CALL CALLMO RESERVE SPACE FOR T:ATAB u b & P TL* MMTO+STKCOM SET CORRECT TABLE u " P ESR A5,A2 STORE T:ATAB LENGTH u . P ST A2,T:ATNW,A10 SAVE NEW T:ATAB ADDRES
0x33fac0…33fc54 (3, 361) Opaque[0x194]
0x33fc54…33fde8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f60, f03=0x0000}
0x33fc54…33fde8 IdxSect {
0x33fc54…33fde8 f00 = 0x00fb // 0x33fc54 @0x0
0x33fc54…33fde8 f01 = 0x0004 // 0x33fc56 @0x2
0x33fc54…33fde8 gno = [ // 0x33fc58 @0x4
0x33fc54…33fde8 [0x00]: C0x00fb.0x0.0
0x33fc54…33fde8 [0x01]: C0x00fb.0x1.0
0x33fc54…33fde8 ]
0x33fc54…33fde8 }
0x33fde8…33ff7c Dummy {f00=0x00fb, f01=0x0190, f02=» 0 P IDENT DVTKB REL 11.0 81-01-26 870105041100 P 8 P* @ " P* KEYBOARD DEVICE WORK TABLE J P* p P ENTRY DVTKB TABLE ENTRY z P EXTRN COD P EXTRN ECH P EXTRN KBAD4 PMMUPAG EQU 0 P* P* P* PDVTK
0x33ff7c…340110 Dummy {f00=0x00fb, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB ADDRESS J " P DATA 0 WAIT/ACTIVE INDICATOR j P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRE
0x340110…3402a4 Dummy {f00=0x00fb, f01=0x018e, f02=»A FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER-2 h " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS P DATA ECH
0x3402a4…340438 Dummy {f00=0x00fb, f01=0x0190, f02=» P DATA 0 TIMER , P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,
0x340438…3405cc Dummy {f00=0x00fb, f01=0x401e, f02=» EQU * P END @ A DWTSQ+DVTKB POINTER TO FIRST PLACE , P DATA DWTSQ+DVTKB POINTER TO LAST PLACE J PDWTSQ EQU *-DVTKB z P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,
0x3405cc…340760 Dummy {f00=0x00fb, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x340760…3408f4 (3, 362) Dummy {f00=0x00fb, f01=0x0190, f02=» DATA /0005,/1500,/0C00,/0000 08-0F ( P DATA /1011,/1213,/3C3D,/3226 10-17 , ( P DATA /7019,/3F27,/1C1D,/1E1F 18-1F X ( P DATA /404F,/7F7B,/5B6C,/507D 20-27 ( P DATA /4D5D,/5C4E,/6B60,/4B61 28-2F ( P DATA /F0F1,/F2F3,/F4F5,/F6F7 30-37 ( P
0x3408f4…340a88 Dummy {f00=0x00fb, f01=0x4158, f02=»A /D7D8,/D9E2,/E3E4,/E5E6 50-57 ( P DATA /E7E8,/E94A,/005A,/5F6D 58-5F ( ( P DATA /0081,/8283,/8485,/8687 60-67 T ( P DATA /8889,/9192,/9394,/9596 68-6F ( P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x340a88…340c1c Dummy {f00=0x00fb, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x340c1c…340db0 Dummy {f00=0x00fb, f01=0x0190, f02=»EN NO RUBOUT ! z P ANK A2,LCWBIT BIT 9 SET ? < P RF(NZ) ECV140 YES.LAST COLUMN WRITTEN (DURING REQUEST) 8 > P LD A4,DWTSN+DWTDEV,A6 GET NEXT WRITE POSITION SAVED AFTER x P* PREVIOUS REQUEST : P CW A4,DWTCN+DWTDEV,A6 = CURRENT NEXT WRITE POSITI
0x340db0…340f44 Dummy {f00=0x00fb, f01=0x0190, f02=» P RF ECV150 PECV140 EQU * B P XRS A2,DWTDEV,A6 RESET BIT 9 (LAST COLUMN NO LONGER WRITTEN) * PECV150 EQU * p 2 P LDK A2,SPACE RUBOUT PREVIOUS (OR LAST) COLUMN , P CF A5,ECHOUT OUTPUT ONE SPACE TO RUBOUT P RB ECV100 GO SET CURSOR
0x340f44…3410d8 Dummy {f00=0x00fb, f01=0x0190, f02=»O INTO A2 6 P ANK A4,LCPBIT BIT 10 SET ? (=LAST COLUMN WRITTEN $ P* ALREADY BY PREVIOUS REQUEST) L ( P RB(NZ) ECV120 YES. THEN NO RUBOUT ! t P* P* PREPARE THE RUBOUT P* : P LD A3,DWTCN+DWTDEV,A6 GET CURRENT NEXT WRITE POSITION
0x3410d8…34126c Dummy {f00=0x00fb, f01=0x018e, f02=» (=LAST COLUMN WRITTEN, v P* DURING REQUEST !) P RF(Z) ECV170 NO > 4 P ADK A3,1 YES. MODIFY TO RUBOUT ALSO LAST COLUMN V PECV170 EQU * 0 P ADK A3,0 ANY ECHOED CHARACTERS TO RUBOUT ? P RB(Z) ECV120 NO P* P* DO THE RUBOUT
0x34126c…341400 Dummy {f00=0x00fb, f01=0x0190, f02=» P RF(NZ) DEVERR STATUS NOT OK PECV180 EQU * ( . P LDK A2,SPACE GET SPACE TO DO RUBOUT WITH < P CF A5,OUTCHA OUTPUT IT n P RF(NZ) DEVERR STATUS NOT OK ( P SUK A3,1 ONE MORE CHAR TO RUBOUT ? P RB(NZ) ECV180 YES ( P CF A5,ENDWRI EN
0x341400…341594 (3, 363) Opaque[0x194]
0x341594…341728 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1430, f03=0x0000}
0x341594…341728 IdxSect {
0x341594…341728 f00 = 0x00a1 // 0x341594 @0x0
0x341594…341728 f01 = 0x0002 // 0x341596 @0x2
0x341594…341728 gno = [ // 0x341598 @0x4
0x341594…341728 [0x00]: C0x00a1.0x2.0
0x341594…341728 ]
0x341594…341728 }
0x341728…3418bc Dummy {f00=0x00a1, f01=0x018e, f02=» 0 P IDENT DVTDI REL 11.0 81-01-26 870105041100 P 8 P* @ . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR J P* | P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 0
0x3418bc…341a50 Dummy {f00=0x00a1, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVTDI ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK @ P DATA 'DI' TTAB ADDRESS l P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS
0x341a50…341be4 Dummy {f00=0x00a1, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /2222 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x341be4…341d78 Dummy {f00=0x00a1, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~2 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /3333 DEVICE STATUS
0x341d78…341f0c Dummy {f00=0x00a1, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x341f0c…3420a0 Dummy {f00=0x00a1, f01=0x0190, f02=» A1,A2 GET PRINTER STATUS $ P ANK A1,/25 TEST PRINTER STATUS " P RF(Z) WRJL70 NO ERRORS J " P ANK A1,1 TEST PRINTER STATUS j P RF(NZ) WRJL70 NOT OPERABLE " P ANK A2,4 TEST PRINTER STATUS P RF(NZ) WRJL80 REQUEST ERROR P LDKL A1,E
0x3420a0…342234 (3, 364) Opaque[0x194]
0x342234…3423c8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1438, f03=0x0000}
0x342234…3423c8 IdxSect {
0x342234…3423c8 f00 = 0x00a1 // 0x342234 @0x0
0x342234…3423c8 f01 = 0x0002 // 0x342236 @0x2
0x342234…3423c8 gno = [ // 0x342238 @0x4
0x342234…3423c8 [0x00]: C0x00a1.0x3.0
0x342234…3423c8 ]
0x342234…3423c8 }
0x3423c8…34255c Dummy {f00=0x00a1, f01=0x0190, f02=» 0 P IDENT DVTDY REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x34255c…3426f0 Dummy {f00=0x00a1, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x3426f0…342884 Dummy {f00=0x00a1, f01=0x0190, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 ( P DATA 0 SAVE AREA FOR A8 H $ P DATA /2222 CHANNEL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x342884…342a18 Dummy {f00=0x00a1, f01=0x407a, f02=»K v P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF @ PDWTEND EQU * L P* ` P END j@ vL PARAMETER 2 h $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA
0x342a18…342bac Dummy {f00=0x00a1, 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
0x342bac…342d40 Dummy {f00=0x00a1, f01=0x0190, f02=» P* - PORDER EQU * - P CF A5,STABLK START OF BLOCK - " P RF(NZ) ERTP JMP IF ERROR - F * P LDK A2,RESET SEND RESET JUST IN CASE - h P CF A5,OUTPUT - P RF(NZ) ERTP JMP IF ERROR - P LDR A2,A3 - P RF OUT10 SEND PRINTER ORDER - P -
0x342d40…342ed4 (3, 365) Opaque[0x194]
0x342ed4…343068 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1440, f03=0x0000}
0x342ed4…343068 IdxSect {
0x342ed4…343068 f00 = 0x00a2 // 0x342ed4 @0x0
0x342ed4…343068 f01 = 0x0002 // 0x342ed6 @0x2
0x342ed4…343068 gno = [ // 0x342ed8 @0x4
0x342ed4…343068 [0x00]: C0x00a2.0x0.0
0x342ed4…343068 ]
0x342ed4…343068 }
0x343068…3431fc Dummy {f00=0x00a2, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 11.0 81-01-26 870105041100 P 8 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER @ P* x P ENTRY DVTT1 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND.
0x3431fc…343390 Dummy {f00=0x00a2, f01=0x0190, f02=» DATA 0 ECB ADDRESS P DATA DWTEND-DVTT1 ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK < P DATA 'TP' TTAB-ADDRESS h $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x343390…343524 Dummy {f00=0x00a2, f01=0x0190, f02=» DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 8 $ P DATA /2222 CHANNEL PARAMETER 2 T $ P DATA 0 LINE DRIVER DEPENDENT 1 | $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x343524…3436b8 Dummy {f00=0x00a2, f01=0x40ca, f02=»L LINE NUMBER x ( P DATA 0,0,0,0,0 DOCUMENT PARAMETERS P IFT MMUPAG=1 B PDEVECB EQU * X P DATA 0,0,0,0,0,0 l P XIF PDWTEND EQU * P* P* P END @ P DATA /3333 DEVICE STATUS P DATA 0 PRINTER PARAMETERS
0x3436b8…34384c Dummy {f00=0x00a2, 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
0x34384c…3439e0 Dummy {f00=0x00a2, f01=0x0190, f02=»FROM VCCU1/4 NO 1 x . P ENTRY IHSVU2 INTERRUPT FROM VCCU1/4 NO 2 . P ENTRY IHSVU3 INTERRUPT FROM VCCU1/4 NO 3 L . P ENTRY IHSVU4 INTERRUPT FROM VCCU1/4 NO 4 ~ . P ENTRY IHSVU5 INTERRUPT FROM VCCU1/4 NO 5 . P ENTRY IHSVU6 INTERRUPT FROM VCCU1/4
0x3439e0…343b74 (3, 366) Opaque[0x194]
0x343b74…343d08 # DirEnt {nam=»DVTG3 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1448, f03=0x0000}
0x343b74…343d08 IdxSect {
0x343b74…343d08 f00 = 0x00a2 // 0x343b74 @0x0
0x343b74…343d08 f01 = 0x0002 // 0x343b76 @0x2
0x343b74…343d08 gno = [ // 0x343b78 @0x4
0x343b74…343d08 [0x00]: C0x00a2.0x1.0
0x343b74…343d08 ]
0x343b74…343d08 }
0x343d08…343e9c Dummy {f00=0x00a2, f01=0x018e, f02=» 0 P IDENT DVTG3 REL 11.0 81-01-26 870105041100 P 8 * P* DEVICE WORK TABLE FOR HP75 (COPY80) @ P* n P ENTRY DVTG3 TABLE ENTRY x P* P* * P EXTRN GPAD04 POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTG3 EQU * TABL
0x343e9c…344030 Dummy {f00=0x00a2, f01=0x0190, f02=» v * P DATA GPAD04 POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS 6 $ P DATA 0 WAIT/ACTIVATE INDICATOR V P DATA 0 TERMINAL QUEUE ~ IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF
0x344030…3441c4 Dummy {f00=0x00a2, f01=0x018e, f02=»ES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x3441c4…344358 Dummy {f00=0x00a2, f01=0x4048, f02=» P XIF PDWTEND EQU * P* $ P* . P END 8@ DFOR A8 6 * P DATA /2222 CHANNEL PARAMETER TWO (2) V $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD POSIT
0x344358…3444ec Dummy {f00=0x00a2, 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
0x3444ec…344680 Dummy {f00=0x00a2, f01=0x0190, f02=»ETURN v P EJECT P* P* & P* 0 $ PWRT010 CF A5,OTR SEND CHARACTER : P* b P* l P SUK A4,1 v P RF(NP) WRT020 PWRT015 LDK A2,LF SEND LF P RB WRT010 P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SEC
0x344680…344814 (3, 367) Opaque[0x194]
0x344814…3449a8 # DirEnt {nam=»DVTG2 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x344814…3449a8 IdxSect {
0x344814…3449a8 f00 = 0x00a2 // 0x344814 @0x0
0x344814…3449a8 f01 = 0x0004 // 0x344816 @0x2
0x344814…3449a8 gno = [ // 0x344818 @0x4
0x344814…3449a8 [0x00]: C0x00a2.0x2.0
0x344814…3449a8 [0x01]: C0x00a2.0x3.0
0x344814…3449a8 ]
0x344814…3449a8 }
0x3449a8…344b3c Dummy {f00=0x00a2, f01=0x0190, f02=» 0 P IDENT DVTG2 REL 11.0 81-01-26 870105041100 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTG2 TABLE ENTRY z P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 0 MEM. MAN.UNIT COND. P*
0x344b3c…344cd0 Dummy {f00=0x00a2, f01=0x0190, f02=»ECB ADDRESS P DATA DWTEND-DVTG2 ORDER ( P DATA GPAD3 POINTER TO ADDRESS BLOCK 4 P DATA 'GP' TTAB-ADDRESS ` $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P D
0x344cd0…344e64 Dummy {f00=0x00a2, f01=0x0190, f02=»0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 0 $ P DATA /2222 CHANNEL PARAMETER 2 L $ P DATA 0 LINE DRIVER DEPENDENT 1 t $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /3333 DEVICE STATUS P DATA 0 TIMER POINTER " P DAT
0x344e64…344ff8 Dummy {f00=0x00a2, f01=0x0190, f02=»H t P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT . P DATA 0 RETURN CODE V $ P DATA 0 CONTROL SEQUENCE ADRESS r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER P
0x344ff8…34518c Dummy {f00=0x00a2, f01=0x413c, f02=»ITCH x P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. & P DATA 0 HOPPER 1 OR 2 L P DATA 0,0 LAST TAB POS. j & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF PDWTE
0x34518c…345320 Dummy {f00=0x00a2, 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
0x345320…3454b4 (3, 368) Dummy {f00=0x00a2, f01=0x0190, f02=»U 60 PX:D EQU 10 PX:E EQU 6 P 0 PTIMOUT EQU X:A 8 PPOWUP EQU X:B P PDVBLEN EQU X:C f PDVBKTB EQU X:D | PDEVIND EQU X:E P PCREDIT EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBT
0x3454b4…345648 Dummy {f00=0x00a2, f01=0x0190, f02=»ON ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* < PCPU852 EQU 1 F P* Z P EJECT d P* r P* | P********************* P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START
0x345648…3457dc Dummy {f00=0x00a2, f01=0x0190, f02=»T EQU DWTDRD+4 P XIF P* " PDWTHP EQU START+/18 , PTWCLR EQU START+/15 H PTWEOF EQU START+/16 d PTWBSP EQU START+/14 PDWTA2 EQU START+/1A * P DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZ
0x3457dc…345970 Dummy {f00=0x00a2, f01=0x0190, f02=»JECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF ORDERS P* V P* ` PTWA EQU * j P LDK A3,0 | $ P LD A2,4,A8 GET REQUESTED LENGTH & P ABL(Z) IHTW50 REQUESTED LENGTH =0 P* P* P LDR A2,A7 COPY ORDE
0x345970…345b04 Dummy {f00=0x00a2, f01=0x0190, f02=»UK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* 6 P* @ $ PTWAERR ABL DISIOE REQUEST ERROR J P EJECT r P* P* PTWAIN EQU * P IFT TIMOUT=1 & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS
0x345b04…345c98 Dummy {f00=0x00a2, f01=0x0190, f02=» h P XIF PTWA010 EQU * P IFT POWUP=1 ( " P LD A2,DWTST,A6 GET DWT-STATUS < P ANKL A2,/200 b 0 P RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP x " P XRS A2,DWTST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP
0x345c98…345e2c Dummy {f00=0x00a2, f01=0x0190, f02=» P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT @ P* N P* RETURN AFTER INTERRUPT X P* z P* PRED030 EQU * P IFT TIMOUT=1 P LDR A1,A1 P RF(NZ) RED037 P XIF P SUK A7,1 P RF(P) RED
0x345e2c…345fc0 Dummy {f00=0x00a2, f01=0x0190, f02=»XT CHARACTER | P LDR A7,A7 P RF(Z) RED040 BASIC READ & P* F P* P P LDK A1,LNGERR OVERFLOW Z & PRED037 ORS A1,8,A8 SET RETURN CODE z P* P* P EJECT P PRED040 EQU * P P IFT TIMOUT=1 P LD A7,D
0x345fc0…346154 (3, 369) Opaque[0x194]
0x346154…3462e8 # DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x346154…3462e8 IdxSect {
0x346154…3462e8 f00 = 0x00a7 // 0x346154 @0x0
0x346154…3462e8 f01 = 0x0006 // 0x346156 @0x2
0x346154…3462e8 gno = [ // 0x346158 @0x4
0x346154…3462e8 [0x00]: C0x00a7.0x0.0
0x346154…3462e8 [0x01]: C0x00cd.0x3.0
0x346154…3462e8 [0x02]: C0x00cf.0x0.0
0x346154…3462e8 ]
0x346154…3462e8 }
0x3462e8…34647c Dummy {f00=0x00a7, f01=0x0190, f02=» 2 P IDENT DTTP03 REL 11.0 81-01-26 870105041100 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS *
0x34647c…346610 Dummy {f00=0x00a7, f01=0x018e, f02=» * < P* * < < P* * | < P******************************************************* P* @ P*
0x346610…3467a4 Dummy {f00=0x00a7, f01=0x0190, f02=» P* > P* SHALL REPLACE THE STANDARD A4 PARAMETERS IN THE TABLES P* P 2 P* THE NUMBER OF USED DOCUMENTS IS SPECIFIED Z P* 8 P* AT "NOFDOC" AND IS USED FOR CONDITIONAL ASSEMBLY P* P* OF THE MODULE. P* 6 P*
0x3467a4…346938 Dummy {f00=0x00a7, f01=0x0190, f02=»IVER SPECIFICATION TSB 429/78 OR MANUAL M06/M04 P EJECT 8 P F P N P V N P* PARAMETERS LIMITS UNITS APPL. FOR DT STD. A4 ^ P* J P* 1 DT=DOCUMENT TYPE 0-7 - 0 1 2 3 1 J P
0x346938…346acc Dummy {f00=0x00a7, f01=0x0190, f02=» 10 V J P* 4 NL=NUMBER OF LINES 01-99 - X X X X 68 J P* 5 BL=BOTTOM LINE 14-99 1/60" X X X X 17 b J P* 6 MA=MARGIN 01-80 1/10" X X X X 02 J P* 7 MF=
0x346acc…346c60 Dummy {f00=0x00a7, f01=0x0190, f02=» 0 L J P* 9 CM=CRITICAL MARGIN 0,1 - X X X X 0 J P* 10 HP=HIGH PRINT PRESS 0,1 - X X X X 0 X J P* 11 UE=UPPER EDGE 15-82 1/5" X 58 J P* UE=UPPER EDGE
0x346c60…346df4 (3, 370) Dummy {f00=0x00cd, f01=0x0190, f02=»* 13 DW=DOCUMENT WITDH 40-97 1/10" X 00 J P* UL=UPPER LINES 01-40 - X - N J P* 14 CW=CENTER WITDH 00-99 1/60" X X 00 P EJECT P P P
0x346df4…346f88 Dummy {f00=0x00cd, f01=0x0190, f02=»BLY THE NUMBER OF USED x . P* DOCUMENT TABLES CAN BE CHANGED (1-16) P P $ PNOFDOC EQU 1 NUMBER OF DOCUMENTS X P * PDN EQU NOFDOC-1 NUMBEROF EXTRA TABLES P P P L PDOCPAR FORM 5,3,8,8,8,8,2,1,2,3,8,8,8,8/1,0,2,3,4,5,9,8,7,
0x346f88…34711c Dummy {f00=0x00cd, f01=0x018e, f02=»0,0,0,58,00,00,00 v P P IFF DN=0 " P* DOCUMENT TABLE 1 4 P* P P Z 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 b P XIF P P IFF DN=0 P IFF DN=1 P* DOCUMENT TABLE 2 P* P 0 P DOCPAR 1,0,
0x34711c…3472b0 Dummy {f00=0x00cd, f01=0x018e, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P* DOCUMENT TABLE 4 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00
0x3472b0…347444 Dummy {f00=0x00cd, f01=0x0190, f02=» z P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF N P Z P IFF DN=0 b P IFF DN=1 t P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P* DOCUMENT TABLE 6 P* P 0 P DOCPAR 1,0,
0x347444…3475d8 Dummy {f00=0x00cd, f01=0x0190, f02=» DN=4 P IFF DN=5 P IFF DN=6 P* DOCUMENT TABLE 7 2 P* N P X 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 ` P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF D
0x3475d8…34776c Dummy {f00=0x00cd, f01=0x0190, f02=»0 f P XIF P P IFF DN=0 P IFF DN=1 0 P IFF DN=2 B P IFF DN=3 T P IFF DN=4 f P IFF DN=5 x P IFF DN=6 P IFF DN=7 P IFF DN=8 P* DOCUMENT TABLE 9 P* P 0 P DOCPAR 1,0,10,68,17,02,2,
0x34776c…347900 Dummy {f00=0x00cd, f01=0x0190, f02=» IFF DN=5 P IFF DN=6 P IFF DN=7 $ P IFF DN=8 6 P IFF DN=9 H P* DOCUMENT TABLE 10 Z P* x P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P
0x347900…347a94 (3, 371) Dummy {f00=0x00cf, f01=0x0190, f02=» P* DOCUMENT TABLE 11 P* & P 0 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 8 P XIF l P x P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7
0x347a94…347c28 Dummy {f00=0x00cf, f01=0x0190, f02=»1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF , P 8 P IFF DN=0 @ P IFF DN=1 R P IFF DN=2 d P IFF DN=3 v P IFF DN=4 P IFF DN=5 P IFF DN=6 P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P I
0x347c28…347dbc Dummy {f00=0x00cf, f01=0x0190, f02=»IF P P IFF DN=0 P IFF DN=1 $ P IFF DN=2 6 P IFF DN=3 H P IFF DN=4 Z P IFF DN=5 l P IFF DN=6 ~ P IFF DN=7 P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13
0x347dbc…347f50 Dummy {f00=0x00cf, f01=0x0190, f02=» P IFF DN=1 P IFF DN=2 P IFF DN=3 , P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x347f50…3480e4 Dummy {f00=0x00cf, f01=0x403c, f02=»QU ETTP03-DTTP03 TOTAL TABLE LENGTH P END ,@ 8 P IFF DN=4 > P IFF DN=5 P P IFF DN=6 b P IFF DN=7 t P IFF DN=8 P IFF DN=9 P IFF DN=10 P IFF DN=11 P IFF DN=12 P IFF DN=13 P IFF DN=14 P*
0x3480e4…348278 Dummy {f00=0x00cf, f01=0x2008, f02=» IFF DN=8 IFF DN=9 IFF DN=10 0 IFF DN=11 B IFF DN=12 T IFF DN=13 f IFF DN=14 x * DOCUMENT TABLE 15 D15 XIF END @ F DN=12 IFF DN=13 * DOCUMENT T
0x348278…34840c Dummy {f00=0x00cf, f01=0x0190, f02=»NGTH 3 x ( P LD A1,COM01+STKCOM GET FROM ADDRESS 4 8 P LD A2,SYSBUF+STKCOM GET TEMP. BUFFER START-ADDRESS 4 8 & P TL* MMFROM+STKCOM LOAD FROM-TABLE 4 t , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER 4 2 P ST A1,COM01+STKCOM SAVE END OF 'FROM' ADDRESS 4 P LD
0x34840c…3485a0 Dummy {f00=0x00cf, f01=0x0190, f02=»LE 4 t ( $ MVSU A3 MOVE DATA-BLOCK FROM BUFFER 5 " SUK A4,1 MORE PARTS TO MOVE? 5 6 P RF(N) XMOV30 NO! 5 P ADR A2,A10 5 v 2 P ST A2,COM02+STKCOM SAVE START OF 'TO' ADDRESS 5 , P LD A3,COM03+STKCOM GET REQUESTED LENGTH 5 $ SUR A3,A10 SUBTRACT MOV
0x3485a0…348734 (3, 372) Opaque[0x194]
0x348734…3488c8 # DirEnt {nam=»DRKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x348734…3488c8 IdxSect {
0x348734…3488c8 f00 = 0x00ff // 0x348734 @0x0
0x348734…3488c8 f01 = 0x0016 // 0x348736 @0x2
0x348734…3488c8 gno = [ // 0x348738 @0x4
0x348734…3488c8 [0x00]: C0x00ff.0x3.0
0x348734…3488c8 [0x01]: C0x0100.0x0.0
0x348734…3488c8 [0x02]: C0x0100.0x1.0
0x348734…3488c8 [0x03]: C0x0100.0x2.0
0x348734…3488c8 [0x04]: C0x0100.0x3.0
0x348734…3488c8 [0x05]: C0x0101.0x0.0
0x348734…3488c8 [0x06]: C0x0101.0x1.0
0x348734…3488c8 [0x07]: C0x0101.0x2.0
0x348734…3488c8 [0x08]: C0x0101.0x3.0
0x348734…3488c8 [0x09]: C0x0102.0x0.0
0x348734…3488c8 [0x0a]: C0x0102.0x1.0
0x348734…3488c8 ]
0x348734…3488c8 }
0x3488c8…348a5c Dummy {f00=0x00ff, f01=0x0190, f02=» 2 P IDENT DRKB04 REL 11.0 81-05-25 870105041100 P : 0 P =2 GREEK CHARACTER SET & NEW CONDITIONS B P REL 11.0 81-03-27 v 4 P = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE , P ADDRESS VIA CIRCULAR INPUT BUFFER P REL 11.0
0x348a5c…348bf0 Dummy {f00=0x00ff, f01=0x0190, f02=»S T E M P T S h P* P* DRKB04 = DRIVER KEYBOARD P* D . P****************************************** N P* 4 P* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS & P* PTS 6231, -32, -33, -34, -36, 2 P* -71, -72, 6331, 6342 AND
0x348bf0…348d84 Dummy {f00=0x00ff, f01=0x0190, f02=» ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. P* 6 0 P* AN ECHO DEVICE CAN BE ATTACHED TO EVERY @ 0 P* KEYBOARD, WHERE RECEIVED CHARACTERS ARE t P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* R C K B =
0x348d84…348f18 Dummy {f00=0x00ff, f01=0x0190, f02=» * P* THE FOLLOWING ORDERS ARE TREATED: P* ORDER 01: BASIC READ 6 " P* 02: STANDARD READ Z " P* 03: NUMERIC READ ( P* 31: RESET INPUT BUFFER P* P EJECT P* NORMAL REGISTER USAGE:
0x348f18…3490ac Dummy {f00=0x00ff, f01=0x0190, f02=» A4: WORK REGISTER " P* A5: STACK BASE " $ P* A6: DWT-ADDRESS H P* A7: ORDER p $ P* A8: ECB-ADDRESS P* P* SYSTEM ADAPTION P* 2 P* DWT-ADDRESS OF ECHO-OUTPUT
0x3490ac…349240 Dummy {f00=0x00ff, f01=0x018e, f02=»O ZERO. STANDARD VALUE FOR TIME- | 6 P* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF ( 8 P* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR b " P* IN DRIVER MUST BE CHANGED. P* P* < P* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS
0x349240…3493d4 (3, 373) Dummy {f00=0x0100, f01=0x0190, f02=» P* > P* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED < P* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE P P* ACCEPTED. P* 8 P* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3 8 P* IN DWTDEV MUST BE SET IF
0x3493d4…349568 Dummy {f00=0x0100, f01=0x0190, f02=»ECHOED. r P* @ P* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. P* ^ 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE h ( P* TO EXCLUDE FOLLOWING FUNCTIONS: P* ---- ECHO FUNCTION P* ---- TIME OUT FUNCTION
0x349568…3496fc Dummy {f00=0x0100, f01=0x0190, f02=»NUMERIC PART OF 6272 USED AS NORMAL KEY z P* 0 P EJECT : P* ENTRIES H P* P ENTRY KBAD4 ADDRESSBLOCK f P* $ P* EXTERNAL TOSS MODULE ENTRIES P* * P EXTRN LENDER END REQUEST AND DISPATCH " P EXTRN INPUT READ A CH
0x3496fc…349890 Dummy {f00=0x0100, f01=0x0190, f02=» EXTRN LENDIS END I/O AND DISPATCH P EXTRN ABORT ABORT REQUESTS * P EXTRN ABTADR ABORT-ADDRESS N P EXTRN TENDIO r P EXTRN TDISP P* P* DWT PARAMETERS P* P EXTRN DWTDEV P EXTRN DWTST P EXTRN DWTA3 P
0x349890…349a24 Dummy {f00=0x0100, f01=0x0190, f02=» ~ P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH 6 " P EXTRN ECBEL EFFECTIVE LENGTH P EXTRN ECBCW CONTROL WORD P* P* CONSTANTS P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER " PTIME EQU 300
0x349a24…349bb8 Dummy {f00=0x0100, f01=0x0190, f02=»* ( P************************************ P* 6 < P* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1 @ P* PX:A EQU 0 PCTIMUT EQU 0 P* 8 P* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 P* PX:B EQU
0x349bb8…349d4c Dummy {f00=0x0100, f01=0x0190, f02=»* PX:C EQU 0 PRECOV EQU 0 P* 0 : P* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED : 0 P* IN X:D, NUMBER OF BYTES IN DECIMAL FORM. x P* PX:D EQU 8 PDWTLNG EQU 032 P* P* CODE CONVERSION DUMMY
0x349d4c…349ee0 Dummy {f00=0x0100, f01=0x018e, f02=»/00 INSTEAD OF BEING A SHIFT KEY P* ( PX:F EQU 1 2 PNSHIFT EQU 0 D P* X & P* BY SETTING X:G = 1 KEYBOARD IS b P* LOCKED IF NO KEYLOCK ON P* PX:G EQU 0 PKBLOCK EQU 1 P* P* MMU BUFFER SIZE P*
0x349ee0…34a074 (3, 374) Dummy {f00=0x0100, f01=0x0190, f02=» P* 6 P* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 " P* IS INCLUDED IN SYSTEM =2 H P* n PX:J EQU 1 x PNEWKB EQU 1 P* 8 P* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 * P* 71 OR 72 IS INCLUDED IN SYSTEM
0x34a074…34a208 Dummy {f00=0x0100, f01=0x0190, f02=»EQU 1 PPLC EQU 00 P* , P* IF X:M = 1 IT IS POSSIBLE TO USE =2 * P* GREEK CHARACTER SET =2 Z P* ~ PX:M EQU 0 PGREECE EQU X:M 2 P* A PROGRAM VERSION USING TOSS MMU-PAGING IS * P* OBTAINED BY SETTING MMUPAG EQU
0x34a208…34a39c Dummy {f00=0x0100, f01=0x0190, f02=» MEMORY z $ PDWTCS EQU /06 CRTL-SHIFT MEMORY . PDWTCTB EQU /08 CONVERSION POINTERS ADDRESS 8 PDWTTP EQU /0A TIMER POINTER j P* P* CIRCULAR INPUT BUFFER P* * PDWTINQ EQU /0C POINTER TO FIRST PLACE ( PDWTUTQ EQU /0E POINTER
0x34a39c…34a530 Dummy {f00=0x0100, f01=0x0190, f02=» P* P DATA DVBKTB MMU KEY TABLE P DATA DVBLEN MMU BUFFER SIZE 0 P DATA 6 DEVICE INDEX T PKBAD4 EQU * p P DATA ACKB ACTIVATION PART P DATA ABKB ABORT ROUTINE P DATA IHKB INTERRUPT HANDLER P IFF RECOV=1 P DATA 0 NO
0x34a530…34a6c4 Dummy {f00=0x0100, f01=0x018e, f02=»******** t P* P* RECOVERY ROUTINE P* 6 * P************************************* @ PRCKB LDR A8,A8 BUSY ? n P RF(NZ) RC10 YES ! P LDKL A1,/400 NO ! ( P ORS A1,DWTDEV,A6 INDICATE POWER OFF P ABL LENDIS DISPATCH !
0x34a6c4…34a858 Dummy {f00=0x0100, f01=0x0190, f02=» , P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH & PRC15 CM ECBCW,A8 COMPLETE REQUEST 4 & P ABL MKB335 AND SET RETURN CODE =0 ^ P XIF P EJECT ( P************************************ P* P* P* A C K B P* ACTIVATION PAR
0x34a858…34a9ec Dummy {f00=0x0100, f01=0x0190, f02=»ERS z P LDK A3,0 P* P* CHECK ORDER ( P* @ P LDR A4,A7 J P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 " P RF(N) AKB200 ORDER 1, 2 OR 3 P SUK A4,/2D P RF(Z) AKB110 ORDER 31 P* P* ILLEGAL ORDER
0x34a9ec…34ab80 Dummy {f00=0x0100, f01=0x0190, f02=» P* PAKB110 EQU * P INH " $ P LD A1,DWTDEV+DWTUTQ,A6 BUF END . * P CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ? V P RF(E) AKB119 YES ! P* P LDR A2,A1 P IFT NEWKB+OLDKB=2 =2 P LD A4,DWTDEV,A6 ( P ANKL A4,/1000 PTS 623
0x34ab80…34ad14 (3, 375) Dummy {f00=0x0100, f01=0x0190, f02=» NOT REMOVED f . P* FROM BUFFER WHEN KB 6236/71/72 IS USED P* F " PAKB112 LCR A4,A1 GET CHARACTER P P ANK A4,/FF v P IFT NSHIFT=0 & P CCK A4,/7C00 NUMSHIFT DEPRESSED ? & P RF(E) AKB113 YES ! SKIP CHARACTER P XIF P IFT NEW
0x34ad14…34aea8 Dummy {f00=0x0100, f01=0x0190, f02=» YES ! P* * PAKB113 CF A15,EOQUEU GET NEXT POINTER ( P CW A1,DWTDEV+DWTINQ,A6 END OF BUF ? F " P RB(NE) AKB112 NO ! CHECK NEXT r P* P XIF PAKB118 SCR A3,A1 P ST A2,DWTDEV+DWTINQ,A6 YES! PAKB119 ENB . P ABL MKB335
0x34aea8…34b03c Dummy {f00=0x0100, f01=0x0190, f02=» x " P LDR A3,A1 EXCHANGE REGISTERS P LDR A1,A2 . $ P CF A15,EOQUEU GET NEXT POINTER @ P LDR A2,A1 h P LDR A1,A3 z P LDK A3,0 P RB AKB113 P* P XIF PAKB200 EQU * P IFT RECOV=1 P* P* POWER OFF TE
0x34b03c…34b1d0 Dummy {f00=0x0100, f01=0x0190, f02=»F BIT p P CWK A7,1 BASIC READ ? ( P RB(NE) RC15 NO ! COMPLETE REQUEST ! , P XIF X PAKB205 EQU * d P IFT CTIMUT=1 x P EJECT P* P* INITIATE TIMING ROUTINE P* P LD A1,DWTDEV,A6 TIMING ? P RF(NN) AKB210 NO!
0x34b1d0…34b364 Dummy {f00=0x0100, f01=0x0190, f02=» YES ! RESTART TIMER P RF AKB210 P* . PAKBTIM EQU * 8 P LDR A1,A6 DWT-ADDRESS IN A1 L P* p P CF A15,SETIME SET TIME z , P DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME P* 6 P ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT
0x34b364…34b4f8 Dummy {f00=0x0100, f01=0x0190, f02=»? ^ , P ABL(E) MKBEND YES ! COMPLETE REQUEST ! P* : P* CLEAR ECB-BUFFER D P* ` " P LD A1,ECBBA,A8 BUFFER ADDRESS j P SUK A1,1 $ P ADR A1,A2 ADD REQUESTED LENGTH P* 8 PAKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH
0x34b4f8…34b68c Dummy {f00=0x0100, f01=0x0190, f02=»****** r P* P* P* M K B " $ P* MAIN PART OF KEYBOARD DRIVER 4 P* P* f * P************************************** p P* 4 P* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 P* CHARACTERS AND NO OVERFLOW HAS OCCUR
0x34b68c…34b820 Dummy {f00=0x0100, f01=0x0190, f02=»R FROM h " P LCR A2,A1 CIRCULAR BUFFER END P* 4 P LDR A4,A2 > P XRK A4,/FF OVERFLOW ? P P RF(NE) MKB130 NO ! n P* P SCR A4,A1 YES ! P ENB $ P LDK A1,OVMASK SET OVERFLOW BIT P ABL MKBEND COMPLETE REQUEST P*
0x34b820…34b9b4 (3, 376) Dummy {f00=0x0100, f01=0x018e, f02=»A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER P =1 . P IFT PLC=1 =2 < P* R @ P* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER P* 4 P LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT , P CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER
0x34b9b4…34bb48 Dummy {f00=0x0100, f01=0x0190, f02=» PMKB135 C1R A4,A4 8 P ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION P RB MKB133 P XIF n P EJECT z P* & P* READ A CHARACTER FROM KEYBOARD P* PMKB140 EQU * P CF A5,INPUT READ CHARACTER P ENB
0x34bb48…34bcdc Dummy {f00=0x0100, f01=0x018e, f02=» ^ P* ARE MORE CHARACTERS P* ( ( P ANK A1,/1 MASK NOT SIGNIFICANT BITS 2 P SRC A1,5 ^ P ORS A1,DWTDEV,A6 p P* P XIF P IFT CTIMUT=1 ( P CF A15,RESTRT RESTART TIMEOUT TIMER P XIF P* PMKB150 EQU *
0x34bcdc…34be70 Dummy {f00=0x0100, f01=0x0190, f02=» ( P ANKL A4,/1000 SPECIAL CONVERSION ? ! P RF(Z) MKB290 PERHAPS ! ! 0 P XIF ! P P IFT NEWKB=1 =2 ! P* ! t P* KB 6236/71/72 IS USED ! ~ P* CHECK INCOMING CHARACTER ! P* ! P LDR A4,A2 ! , P SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.?
0x34be70…34c004 Dummy {f00=0x0100, f01=0x0190, f02=»ACTER ? ! z P RF(N) MKB300 YES ! " P EJECT " , P* " : > P* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT. " D : P* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE " < P* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC- " P*
0x34c004…34c198 Dummy {f00=0x0100, f01=0x018e, f02=» ! " r P SUK A4,1 # P RF(Z) MKB180 KEYLOCK OFF ! # $ P SLC A1,1 SHIFT "FLAG BIT" LEFT # @ P SUK A4,1 # h & P RB MKB160 NEXT KEYLOCK, PERHAPS ? # z P* # PMKB170 EQU * # 6 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED # P TM A4,A1 #
0x34c198…34c32c Dummy {f00=0x0100, f01=0x0190, f02=» # 4 P LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED $ P TM A4,A1 $ @ P RB(Z) MKB100 NO CHANGE $ R * P C1R A1,A1 COMPLEMENT FOR AND-FUNCTION $ r . P ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" $ PMKB190 EQU * $ 0 P CF A15,STORE STORE KEYLOCK CHARAC
0x34c32c…34c4c0 Dummy {f00=0x0100, f01=0x0190, f02=»K IS TURNED ! MAKE A NEGATIVE CODE $ 6 P* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST % * P* % d PMKB200 EQU * % n P LDR A4,A2 LOAD CHARACTER % P SUK A4,/70 % & P SRC A4,1 SHIFT TO GET KEY NUMBER % P RF(N) MKB210 ON OR OFF ? % P ADK
0x34c4c0…34c654 (3, 377) Dummy {f00=0x0101, f01=0x0190, f02=» ST A4,ECBCW,A8 STORE CODE IN ECB % , P RF MKB335 SET RC=0 AND COMPLETE REQUEST & * P* & Z 4 P* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED) & d P* & PMKB220 EQU * & P IFT KBLOCK=1 & * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? & , P RB(Z) MKB
0x34c654…34c7e8 Dummy {f00=0x0101, f01=0x0190, f02=»RIC SHIFT KEY IS & r 2 P* DEPRESSED, AND SKIP THE INCOMING CHARACTER ' P* IF IT IS RELEASED. ' N P* ' l P CCK A2,/7C00 DEPRESSED ? ' v P RF(NE) MKB230 NO ! ' $ P LDK A2,/00 YES ! LOAD CHARACTER ' P RF MKB300 ' P* ' " PMKB230 CCK A2,/7
0x34c7e8…34c97c Dummy {f00=0x0101, f01=0x0190, f02=»DR A4,A4 SHIFT ON ? ' P RF(Z) MKB260 YES ! ( P SUK A4,1 SHIFT OFF ? ( 8 P RF(Z) MKB270 YES ! ( V P LDK A1,/4 CONTROL BIT ( r P SUK A4,1 CONTROL ON ? ( P RF(Z) MKB260 YES ! ( P SUK A4,1 CONTROL OFF ? ( P RF(Z) MKB270 YES ! ( P S
0x34c97c…34cb10 Dummy {f00=0x0101, f01=0x018e, f02=» A1,A1 COMPLEMENT ( " P ANS A1,DWTDEV+DWTCS,A6 CLEAR ) P* ) @ $ PMKB280 ABL MKB100 NEXT CHARACTER ) J P XIF ) r P IFT OLDKB=1 =2 ) ~ P EJECT ) P* ) . P* SPECIAL CONVERSION OF CHARACTERS FROM ) P* NUMERIC PART OF 6234. ) P* )
0x34cb10…34cca4 Dummy {f00=0x0101, f01=0x0190, f02=» ) x ( P LDR A4,A2 IF BIT 8 IN CHARACTER IS * 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED * 4 ( P RF(Z) MKB310 NO SPECIAL CONVERSION * h P ANK A2,/7F MASK AWAY BIT 8 * P* * & P* INDICATE SPECIAL CONVERSION ! * P* * 2 PMKB295 ANKL A6,/FF
0x34cca4…34ce38 Dummy {f00=0x0101, f01=0x0190, f02=»CT * P* + P* NORMAL CONVERSION + P* + 2 PMKB300 EQU * + < P* + P P IFT KBLOCK=1 + Z * P LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? + p . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER + P XIF + P* + PMKB310 EQU * + , P LD A1,DWTDEV+
0x34ce38…34cfcc Dummy {f00=0x0101, f01=0x0190, f02=»A1,A1 + & P RF(E) MKB320 NO CONVERSION TABLE , P LDR A4,A2 , 8 P SRL A4,3 LINE INDEX , J P ADR A1,A4 , f $ P LDR* A1,A1 COLUMN TABLE ADDRESS , x P RF(E) MKB320 NO COLUMN , P LDR A4,A2 , P ANK A4,/F , P ADR A1,A4 ADD ROW INDEX , P LCR
0x34cfcc…34d160 Dummy {f00=0x0101, f01=0x0190, f02=»WTCS,A6 , P XIF - P EJECT - P* - * , P* CHECK IF BASIC READ OR ORDER 2 OR 3 - 4 P* - d P LDR A4,A7 LOAD ORDER CODE - n P SUK A4,2 - " P RF(NN) MKB330 ORDER 2 OR 3 ! - P* - P* ORDER 1, BASIC READ - P* - , P CF A5,STOEC
0x34d160…34d2f4 (3, 378) Dummy {f00=0x0101, f01=0x0190, f02=» IF ECHO WANTED - x P* . ( PMKB325 EQU * . 2 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? . F . P ABL(NE) MKB100 NO ! READ A NEW CHARACTER . z P* . ( P RF MKB335 YES ! SET RETURN CODE = 0 . P EJECT . P* . . P* ORDER 2 OR
0x34d2f4…34d488 Dummy {f00=0x0101, f01=0x0190, f02=»D A1,ECBCW,A8 KEY-TABLE ADDRESS . P RF(Z) MKB360 NO KEYTABLE ! / ( " P LCR A4,A1 TABLE LENGTH IN A4 / L P ANK A4,/FF / r 0 P ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE / P ADK A1,1 / PMKB340 SUK A4,1 / , P RF(N) MKB360 KEY NOT FOUND IN KEYTA
0x34d488…34d61c Dummy {f00=0x0101, f01=0x0190, f02=»DK A4,1 YES ! MAKE KEYTABLE INDEX / PMKB350 EQU * 0 * 0 P ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD 0 > P* 0 r 0 P CF A15,STORE STORE CHARACTER IN ECB BUFFER 0 | P IFT CECHO=1 0 & P ORK A2,/80 INDICATE EOR CHARACTER 0 P CF A5,EORECH ECHO CHARACT
0x34d61c…34d7b0 Dummy {f00=0x0101, f01=0x0190, f02=» P EJECT 1 P* 1 P* 1 P* CHARACTER CHECK 1 & P* 1 B PMKB360 EQU * 1 L ( P STR A2,A15 SAVE CHARACTER ON STACK 1 ` P LD A1,DWTDEV,A6 1 P CWK A7,2 STANDARD READ ? 1 P RF(NE) MKB380 NO ! 1 P LDK A4,/20 LOWER LIMIT 1 P SLC A
0x34d7b0…34d944 Dummy {f00=0x0101, f01=0x018e, f02=»R LIMIT 1 z P RF MKB400 2 P* 2 " ( PMKB380 SLC A1,1 /30-/39 & /70-/79 ? 2 , P RF(NZ) MKB390 NO ! 2 X P* 2 t P ANK A2,/3F RESET BIT 9 2 ~ " PMKB390 LDK A1,/39 UPPER LIMIT 2 P LDK A4,/30 LOWER LIMIT 2 P* 2 PMKB400 SUR A1,A2 2 $ P R
0x34d944…34dad8 Dummy {f00=0x0101, f01=0x0190, f02=» 2 P* 3 $ P* IT IS A "NORMAL" CHARACTER ! 3 P* 3 : PMKB405 EQU * 3 D * P CF A5,STOECH STORE AND ECHO CHARACTER 3 X P* 3 & P CW A3,ECBRL,A8 LENGTH OVERFLOW ? 3 , P ABL(L) MKB100 NO ! TAKE NEXT CHARACTER 3 P* 3 ( PMKB410 LDK A1,8 YES
0x34dad8…34dc6c Dummy {f00=0x0101, f01=0x0190, f02=»R UNKNOWN CHARACTER 3 x P* 4 ( PMKB420 LDR* A2,A15 RELOAD CHARACTER 4 & P LDR A1,A2 4 R P ANK A1,/FF 4 d P LD A4,ECBCW,A8 4 x * P RF(NZ) MKB440 STANDARD EOR NOT USED ! 4 6 P LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR 4 P CCK A1,/0D00 ST
0x34dc6c…34de00 Dummy {f00=0x0101, f01=0x018e, f02=» 4 " P ADK A1,/13 BACKSPACE ? (/08) 5 P ABL(E) BACKSP YES ! 5 . P* 5 J P SUK A1,/10 CLEAR ? (/18) 5 T P ABL(E) CLEAR YES ! 5 v P* 5 " P SUK A1,/2 DOUBLE ZERO ? (/1A) 5 P ABL(E) MZ20 YES ! 5 P* 5 $ P SUK A1,/E5 SKIP CHARACTER (/FF) 5
0x34de00…34df94 (3, 379) Dummy {f00=0x0101, f01=0x0190, f02=» 5 l & P RF(N) MKB460 GREEK CHARACTER SET 6 P SUK A1,/9 6 2 P RB(NP) MKB405 YES IT IS OK 6 D PMKB460 EQU * 6 h P XIF 6 | P* 6 , P* SET ERROR CODE FOR UNKNOWN CHARACTER 6 P* 6 0 P CF A15,STORE STORE CHARACTER IN ECB-BUFFER 6 P LDK A1,
0x34df94…34e128 Dummy {f00=0x0101, f01=0x0190, f02=» 6 * P************************************* 7 PMKBEND EQU * 7 6 P* 7 J P IFT CTIMUT=1 7 T P LD A4,DWTTP+DWTDEV,A6 7 j P RF(E) MKBE10 NO TIMING ! 7 & P CM* DWTTP+DWTDEV,A6 SCRATCH TIMER 7 P CM DWTTP+DWTDEV,A6 7 P XIF 7 P* 7 PMK
0x34e128…34e2bc Dummy {f00=0x0101, f01=0x0190, f02=»D OF ECHOING 7 P LDR A1,A4 8 P XIF 8 & P* 8 2 , P ABL LENDIS PERFORM END I/O AND DIPATCH 8 < P EJECT 8 l * P************************************** 8 z P* 8 P* 8 P* INTERRUPT HANDLER 8 P* 8 P* 8 * P**************************
0x34e2bc…34e450 Dummy {f00=0x0101, f01=0x0190, f02=»ER 8 n P XIF 9 P* 9 4 P* STORE INCOMING CHARACTER IN CIRCULAR BUFFER 9 P* 9 X P IFT OLDKB=1 =2 9 b $ P LDR A1,A6 SPECIAL CONVERSION ? 9 z P ANK A1,1 9 P RF(Z) IHKB02 NO ! 9 . P ORK A2,/80 YES INDICATE BY SETTING BIT 8 9 P XIF 9
0x34e450…34e5e4 Dummy {f00=0x0101, f01=0x018e, f02=» LDR A4,A1 9 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS : P* : J & P CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? : T P RF(NE) IHKB20 NO ! : ~ $ P LDK A1,/FF OVERFLOW INDICATION : ( P SCR A1,A4 SET OVFL. IND. IN BUFFER : P* : PIHKB05 EQU * :
0x34e5e4…34e778 Dummy {f00=0x0101, f01=0x0190, f02=» : P IFT NEWKB=1 =2 ; & P SUK A2,/70 KEYLOCK, SHIFT, CTRL ? ; P RF(N) EXIT NO ! ; J P ADK A2,/70 YES ! ; b P* ; | P LDK A1,0 ; P SC A1,DWTDEV+1,A6 ; P LD A1,DWTDEV+DWTINQ,A6 ; P LDR A4,A1 ; P CF A15,EOQUEU ; , P CW A1,DWTDEV+
0x34e778…34e90c Dummy {f00=0x0101, f01=0x0190, f02=» ; l P LDR A4,A1 FORWARD IN BUFFER < P RF IHKB20 < , P* < > P* CHECK BUFFER < H P* < ` > PIHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. < j PIHKB10 EQU * < * P CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? < P RF(E) IHKB19 YES ! < (
0x34e90c…34eaa0 Dummy {f00=0x0101, f01=0x0190, f02=»XIT EQUAL CHARACTER ! < P SUK A4,1 INVERTED CHAR. ? = P RF(NZ) IHKB17 NO ! = @ 2 P LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF = P RF IHKB18 = P* = PIHKB17 EQU * = & P SUK A4,/F CTRL, SHIFT, KEYLOCK ? = P RB(N) IHKB10 YES ! = P
0x34eaa0…34ec34 (3, 380) Dummy {f00=0x0101, f01=0x0190, f02=»UAL AND INV. CHARACTERS = P* > : PIHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR > * P ANK A4,/FF > h P LD A1,DWTDEV+DWTINQ,A6 > | PIHKB21 CF A15,SOQUEU > P SUK A4,1 > P RB(NN) IHKB21 > P IM DWTDEV,A6 > ( P LCR A4,A1 GET OLD
0x34ec34…34edc8 Dummy {f00=0x0101, f01=0x0190, f02=» PUT CHAR IN A2 > P ANK A2,/7F ? P RB IHKB07 ? , P XIF ? > P* ? J 8 PIHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER ? T 4 PIHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER ? P* ? PEXIT ABL LDISP DISPATCH ! ? P EJECT ? P* ?
0x34edc8…34ef5c Dummy {f00=0x0101, f01=0x0190, f02=» EQU * ? , P CF A15,STORE STORE CHAR. IN ECB-BUFFER @ P* @ > P IFT CECHO=1 @ H P IFT GREECE=1 =2 @ P RF EORECH DO NOT MASK @ v P XIF @ P IFT CECHO=1 @ , PECHSUB ANK A2,/7F MASK TO GET CHARACTER @ PEORECH EQU * @ P IFT PLC=1 =2 @
0x34ef5c…34f0f0 Dummy {f00=0x0101, f01=0x0190, f02=» SLC A1,5 @ P XIF A P IFT CECHO=1 A P CF A5,ECHO ECHO CHARACTER A 2 P XIF A T P* A ` P RTN A5 A j P* A z P EJECT A P IFT CTIMUT=1 A P* A $ P* THIS IS THE TIMEOUT ROUTINE A P* A PAKBTUT EQU * A P LDR A6,A1 LOAD
0x34f0f0…34f284 Dummy {f00=0x0101, f01=0x0190, f02=»5,ABORT RESET INPUT REQUESTED FLAG A * P LDR A5,A6 INITIATE DWT-STACK POINTER B * P ADKL A5,DWTSB2 B X 4 P LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT B p ( P LD A8,DWTECB,A6 RELOAD ECB-ADDRESS B P LDK A1,/40 SET RETURN CODE B P ABL MKBEND COMP
0x34f284…34f418 Dummy {f00=0x0101, f01=0x0190, f02=»E NO TIMING B P LDKL A4,-TIME RESTART TIMER C P ST* A4,DWTTP+DWTDEV,A6 C 8 PNOTIME RTN A15 C X P XIF C n P EJECT C z P* C 0 P* STORE = SUBROUTINE TO STORE A CHARACTER C 0 P* IN ECB-BUFFER AND INCREMENT BUFFER INDEX C P* C , P*
0x34f418…34f5ac Dummy {f00=0x0101, f01=0x0190, f02=»ER ADDRESS C | P ADR A1,A3 ADD BUFFER INDEX D ( P SCR A2,A1 STORE CHARACTER IN BUFFER D 6 $ P ADK A3,1 INCREMENT BUFFER INDEX D b P RTN A15 D P* D 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER D P* D ( P* ON ENTRY: A1 = QUEUE POIN
0x34f5ac…34f740 Dummy {f00=0x0101, f01=0x0190, f02=»WTEQ END OF QUEUE ? D P RF(NE) EOQU10 E 2 P LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS E 2 PEOQU10 ADR A1,A6 E h P RTN A15 E P* E : P* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER E P* E ( P* ON ENTRY: A1 = QUEUE POINTER E
0x34f740…34f8d4 (3, 381) Dummy {f00=0x0102, f01=0x0190, f02=»? E h P RF(NE) SOQ10 NO ! F 0 P LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE F $ PSOQ10 ADR A1,A6 F X ( P SUK A1,1 GET PREVIOUS POINTER POS. F p P RTN A15 F P EJECT F P* F P* BACKSPACE F P* F PBACKSP EQU * F P LDR A3,A3 F "
0x34f8d4…34fa68 Dummy {f00=0x0102, f01=0x0190, f02=»EAD OF LAST CHAR F p " P SUK A3,1 STEP BACKWARDS AGAIN G P* G > PKBBSPA EQU * G H P IFT CECHO=1 G & P LDK A2,/8 BACKSPACE TO ECHODEVICE G p P XIF G PKBBSP2 EQU * G P IFT CECHO=1 G " P CF A5,ECHSUB ECHSUB CHARACTER G P XIF G P ABL MKB
0x34fa68…34fbfc Dummy {f00=0x0102, f01=0x0190, f02=»ARACTER G ~ P EJECT H P* H P* MULTIPLE ZERO H ( P* H B PMZ20 EQU * DOUBLE ZERO H L P LDK A4,2 H j P RF MZ50 H | P* H PMZ30 EQU * TRIPLE ZERO H P LDK A4,3 H P* H PMZ50 EQU * H P SUK A4,1 ANY MORE ZEROES ? H & P A
0x34fbfc…34fd90 Dummy {f00=0x0102, f01=0x0190, f02=»SOQUEU GET PREVIOUS POINTER H P* I $ , P CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ? I . P RF(E) MZ90 NO ! I ^ PMZ75 EQU * I v 6 P ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER I , P LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. I P SCR A2,A1 I P RB
0x34fd90…34ff24 Dummy {f00=0x0102, f01=0x0190, f02=»INTER I n 2 P LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND J P ENB THROUGHPUT ERRORS J D P* J d P ABL MKBEND J n P* J PMZ90 EQU * J P LDR A4,A4 ALL ZEROES ? J P RB(E) MZ80 YES J & P LDKL A2,/FFFF NO, MOVE IN-POINTER J P ADS A2,
0x34ff24…3500b8 Dummy {f00=0x0102, f01=0x0190, f02=»INE J P* K , P**************************************** K P* K F PABKB EQU * K P & P CF A15,ABORT ABORT INPUT REQUEST K b P IFT CTIMUT=1 K P LD A4,DWTTP+DWTDEV,A6 K P RF(Z) ABKB05 NO TIMER ! K P CM* DWTTP+DWTDEV,A6 K $ P CM DWTTP+DW
0x3500b8…35024c Dummy {f00=0x0102, f01=0x0190, f02=»KEYBOARD K v * P SLC A4,2 GET ECHO-MODE INDICATION BIT L PABKB10 EQU * L > & P ABL(NN) LDISP NOT AN ECHO REQUEST L R P* L | 4 P LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET ABORT-ADDRE
0x35024c…3503e0 Dummy {f00=0x0102, f01=0x40a6, f02=» . P LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT M P ADR A5,A6 ADD DWT-ADDRESS M 6 P* M X 0 P ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE M b P END M @ M OF ECHO DEVICE L & P LD A3,DWTADR,A4 GET ADDRESS BLOCK L 6 P LD A3,ABTADR,A3 GET ABORT-ADDRE
0x3503e0…350574 (3, 382) Dummy {f00=0x0102, f01=0x2008, f02=» N #e DRKB04SC &8 & EGE LM ! 9 q 1 y q A ) Y ) ) YQ. !CTOR INPUT TAPE:; BLOCK f:; <m !! KB04SC q m 10 z
0x350574…350708 Dummy {f00=0x0102, f01=0x0190, f02=»C A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? $ P RF(NE) CON:75 NO! J * P CWK A3,NCHTID CHECK IF END OF RECORD d 4 P RB(E) CON:65 NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKEND SAVE CURRENT DESTINAT
0x350708…35089c Dummy {f00=0x0102, f01=0x0190, f02=»F NO APPLICATION DATA ON SAME CASSETTE | P* . " P CF A14,RDBLK READ NEXT BLOCK 8 P LDR A1,A1 APPLICATION DATA? ^ P RF(NZ) CON:80 NO! P LDK A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS TAPEMARK P RF CO
0x35089c…350a30 Dummy {f00=0x0102, f01=0x018e, f02=» PCONERR EQU * P LDKL A1,LMP4 P CALL ERROR . P IFF CFTEST=1 B PMEMOFL EQU * X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE
0x350a30…350bc4 Dummy {f00=0x0102, f01=0x0190, f02=» 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * 8 * P LD A11,CONDAD+STKEND GET START SECTOR L 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICANT PART z " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF BUFFER , P ST A1,PLD
0x350bc4…350d58 Dummy {f00=0x0102, f01=0x018e, f02=»ND SAVE =2 ~ P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER . PCOR:10 EQU * V P* j 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE t P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFFER PCOR:20 EQU *
0x350d58…350eec Dummy {f00=0x0102, f01=0x0190, f02=» P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8 START OF RECORD F P* h P* LOOK IF WE HAVE AN r P* APPLICATION CONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,'D;' DATA COMMUNICATION
0x350eec…351080 Dummy {f00=0x0102, f01=0x0190, f02=» LDKL A5,/FF3B YES, SUBSTITUTE A; WITH P STR A5,A4 'HEX FF' AND ';' . 8 P LD A5,CURAPL+STKEND GET CURRENT APPL. CONTR. BLOCK R P ADK A1,1 SKIP BLOCK MARKER 6 P ST A1,EINPBF+STKEND SAVE CURRENT BUFFER POSITION 8 P SU A1,CONSTA+STKCOM AND CAL
0x351080…351214 (3, 383) Opaque[0x194]
0x351214…3513a8 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1460, f03=0x0000}
0x351214…3513a8 IdxSect {
0x351214…3513a8 f00 = 0x00a3 // 0x351214 @0x0
0x351214…3513a8 f01 = 0x0008 // 0x351216 @0x2
0x351214…3513a8 gno = [ // 0x351218 @0x4
0x351214…3513a8 [0x00]: C0x00a3.0x0.0
0x351214…3513a8 [0x01]: C0x00a3.0x1.0
0x351214…3513a8 [0x02]: C0x00a3.0x2.0
0x351214…3513a8 [0x03]: C0x00a6.0x2.0
0x351214…3513a8 ]
0x351214…3513a8 }
0x3513a8…35153c Dummy {f00=0x00a3, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x35153c…3516d0 Dummy {f00=0x00a3, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. * P* IT IS ALSO POSSIBLE TO OPEN CASH- P* BOXES ON FT80. P* 4 P* THE DRIV
0x3516d0…351864 Dummy {f00=0x00a3, f01=0x0190, f02=» P* * P* THE FOLLOWING ORDERS ARE TREATED: P* < " P* ORDER 37: WRITE LIGHTS ON F " P* 38: WRITE LIGHTS OFF l ( P* 06: WRITE PROGRAM DISPLAY , P* 39: WRITE FLASHING LIGHTS P EJECT P* P*
0x351864…3519f8 Dummy {f00=0x00a3, f01=0x0190, f02=» WORK REGISTER " P* A4: WORK REGISTER " P* A5: WORK REGISTER < P* A6: DWT-ADDRESS b P* A7: ORDER P* A8: ECB-ADDRESS P* P* P* SYSTEM ADAPTATION P* . P*
0x3519f8…351b8c Dummy {f00=0x00a3, f01=0x0190, f02=»1,6242,6233 t P* : P* ORDER 06, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* | P EJECT P* P* P*************** P* ENTRIES * P*************** P* ( P ENTRY DIAD AD
0x351b8c…351d20 Dummy {f00=0x00a3, f01=0x0190, f02=»XTRN LENDIS PERFORM END I/O AND DISPATCH * P EXTRN LDISP DISPATCHER ORDINARY INT. 0 P EXTRN OUTPUT SEND ONE CHAR. ^ P EXTRN GETCHR GET CHARACTER $ P EXTRN LENDER I/O REQUEST ERROR P EXTRN DWTST STATUS WORD P EXTRN DWTDEV STATUS
0x351d20…351eb4 (3, 384) Dummy {f00=0x00a3, f01=0x0190, f02=»XTRN ENDBLK END BLOCK $ P EXTRN ECBCW CONTROL WORD OF ECB P* F P* P P EJECT Z P* h P* r P*************** | P* TABLES * P*************** P* P* " P DATA DVBLEN BUFFER SIZE (MMU) P DATA 2 DEVI
0x351eb4…352048 Dummy {f00=0x00a3, f01=0x0190, f02=»A 0 NO INTERRUPT HANDLER P DATA RCDI RECOVERY ROUTINE P* D " PCCERR EQU /4 CODE CHECK ERROR N P* t P EJECT ~ P* P* P************************* P* CONDITIONAL ASSEMBLY * P************************* P*
0x352048…3521dc Dummy {f00=0x00a3, f01=0x0190, f02=»D6 EQU 1 P* P* 8 P* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED $ ( P* IN THIS DRIVER BY SETTING X:B=1 ` P* PX:B EQU 0 PFLASH EQU 1 P* P* P EJECT P* P* P* MMU BUFFER SIZE
0x3521dc…352370 Dummy {f00=0x00a3, f01=0x0190, f02=»********************* P* PDWTDIB EQU /02 SAVE AREA ( , PDWTFLA EQU /08 SAVE AREA FOR FLASH IMAGE H PDWTTP EQU /0A TIMER POINTER x PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* ACTIVATION
0x352370…352504 Dummy {f00=0x00a3, f01=0x0190, f02=» CCK A7,/0606 P RF(E) ADI050 ORDER /06 P XIF 6 & P LD A4,ECBCW,A8 CONTROL WORD TO A4 B 8 P LD A3,DWTDEV,A6 TEST IF ONE OR TWO CHARACTER DEVICE l & P RF(N) ADI005 ONE CHARACTER DEVICE " P LDR A3,A4 CONTROL WORD tO A3 P ANK A4,/F
0x352504…352698 Dummy {f00=0x00a3, f01=0x0190, f02=» RF(E) FLA05 P XIF P SUK A7,/37 P RF(E) ADI010 ORDER 37 4 P SUK A7,1 R P RF(E) ADI007 ORDER 38 d " P ABL(NE) LENDER REQUEST ERROR P EJECT P IFT FLASH=1 P* P* FLASH ORDER /39 P* P* 2 P
0x352698…35282c Dummy {f00=0x00a3, f01=0x018e, f02=»ADY STARTED x P LDR A1,A6 P CF A15,SETIME & P DATA FLTUT,TIME < P ST A4,DWTTP+DWTDEV,A6 T . P LD A4,DWTFLA+DWTDEV,A6 RELOAD FLASH IMAGE r P* PFLA10 EQU * P LDKL A3,/200 ( P XRS A3,DWTDEV,A6 SWITCH 0N-OFF FLAG P*
0x35282c…3529c0 Dummy {f00=0x00a3, f01=0x0190, f02=» j P RF ADI020 TURN ON LAMPS P* ( PFLA20 C1R A4,A4 2 & P ANS A4,DWTDIB+DWTDEV,A6 ON-FLASH J P RF ADI020 TURN OFF LAMPS t P EJECT P* P* P* FLASH TIME OUT ROUTINE P* P* PFLTUT EQU * $ P LDR A
0x3529c0…352b54 (3, 385) Dummy {f00=0x00a3, f01=0x0190, f02=»BUSY v P ANS A4,DWTST,A6 P* $ P LD A4,DWTFLA+DWTDEV,A6 . * P RF(Z) FLA30 NO MORE LAMPS TO FLASHER N P* | * P LDR A5,A6 INITIATE DWT-STACK POINTER P ADKL A5,DWTSB2 P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6
0x352b54…352ce8 Dummy {f00=0x00a3, f01=0x0190, f02=» P LDKL A1,-TIME RESTART TIMER P ST* A1,DWTTP+DWTDEV,A6 ( P ABL LDISP H P XIF Z P EJECT f P IFT ORD6=1 t P* P* ( P* ORDER 06: WRITE PROGRAM DISPLAY P* PADI050 LDK A3,0 & PADI060 CF A15,GETCHR GET CHARA
0x352ce8…352e7c Dummy {f00=0x00a3, f01=0x0190, f02=»TER ? v P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? ( P RF(G) ADI100 YES F P ADKL A4,DWTDIB+2 ` P ADR A4,A6 z , P SCR A2,A4 STORE CHARACTER IN DWT-BUFFER " P RB ADI060 GET NEXT CHARACTER < PADI070 SC A1,DWTDEV+1,A6 SET START V
0x352e7c…353010 Dummy {f00=0x00a3, f01=0x0190, f02=»00 SEND CHARACTERS P* P* $ P* CODE CHECK ERROR . P* L ( PADI100 LDK A1,CCERR SET RETURN CODE V P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER P XIF P* P EJECT P* P* $ P* ORDER 3
0x353010…3531a4 Dummy {f00=0x00a3, f01=0x018e, f02=»FT FLASH=1 6 P ANS A4,DWTFLA+DWTDEV,A6 RESET BITS IN FLASH IMAGE P XIF L P RF ADI020 X P* j P* t P* ~ P* P* ORDER 37: TURN ON LAMPS P* P* P* : PADI010 ORS A4,DWTDIB+DWTDEV,A6 SET BITS IN DWT-BUFFE
0x3531a4…353338 Dummy {f00=0x00a3, f01=0x018e, f02=» P* SENDING SEQUENCE P* $ " PADI020 LDK A2,/2 BLOCK LENGTH . P CF A5,STABLK START OF BLOCK T P RF(NZ) DIER10 NOT OK ! x 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CHARACTER PADI035 LDK A1,1 6 P SC A1,DWTDEV+1,A6 SET START VALUE I
0x353338…3534cc Dummy {f00=0x00a3, f01=0x0190, f02=» P ADR A2,A6 P LD A4,DWTDEV,A6 P ANK A4,/FF 0 P ADR A2,A4 D P LCR A2,A2 GET CHARACTER V P LD A8,DWTECB,A6 v < P RF(Z) SSEQ10 IF POWER FAIL NO BELL OR CASH-BOX OPENING P LD A3,ECBCW,A8 BELL? P RF(NN) SSEQ05 NO $ P O
0x3534cc…353660 Dummy {f00=0x00a3, f01=0x0190, f02=» OF BOX 2 n PSSEQ07 SLC A3,1 OPEN BOX 1 ? P RF(NN) SSEQ10 NO ! 6 0 P ORK A2,/10 YES ! INDICATE OPENING OF BOX 1 R P EJECT P* . PSSEQ10 IM DWTDEV,A6 INCREMENT BYTE COUNTER P* " PSSEQ20 CF A5,OUTPUT SEND CHAR. P RF(NZ)
0x353660…3537f4 (3, 386) Dummy {f00=0x00a6, f01=0x0190, f02=»BYTE COUNTER $ P SUK A4,2 TWO CHARACTERS SENT ? P EJECT < P IFT ORD6=1 J P RF(NZ) SSEQ25 NO ! ^ P LDR A7,A7 GET ORDER z P IFT ORD6=1 0 P CWK A7,06 ORDER 06, WRITE PROGRAM DISPLAY ? P RF(NE) SSEQ30 NO ! $ PSSEQ25 SUK A4,
0x3537f4…353988 Dummy {f00=0x00a6, f01=0x0190, f02=»EQ00 NO ! GET NEXT CHARACTER P XIF $ P* 0 $ PSSEQ30 CF A5,ENDBLK END OF BLOCK : P RF(NZ) DIER10 b P* x PENDIO EQU * , P ABL LENDIS PERFORM END I/O AND DISPATCH P EJECT P* P* P* ERROR ROUTINE P*
0x353988…353b1c Dummy {f00=0x00a6, f01=0x0190, f02=»(N) LDISP YES, GO TO DISPATCHER P* ( P RF RCDI PERFORM RECOVERY 2 P* T PDIER20 EQU * ^ $ P SLC A1,1 SET "NOT OPERABLE" BIT r P RB ENDIO END I/O P EJECT P* P* R C D I P* > P* RECOVERY ROUTINE: AT POWER
0x353b1c…353cb0 Dummy {f00=0x00a6, f01=0x4180, f02=» RESTORED r P* P* PRCDI EQU * & " P LDKL A2,/7FFF SET DEVICE BUSY 8 P ANS A2,DWTST,A6 ^ P* v P LDK A2,/4 BLOCK LENGTH P CF A5,STABLK START OF BLOCK P RB(NZ) DIER10 P* 0 P LC A2,DWTDIB+DWTDEV,A6 GET FIRST CH
0x353cb0…353e44 Dummy {f00=0x00a6, f01=0x2008, f02=» POWER FAILURE TIME.THE INFORMATION ~ , P* OM PROGRAM DISPLAY IS ALSO RESTORED 4 P* d P* n PRCDI EQU * x P CF A15,SAVE8 SAVE REGS. ( P LC A2,DWTDIB,A6 GET FIRST CHARACTER P RB ADI035 P* P* P END P
0x353e44…353fd8 Dummy {f00=0x00a6, f01=0x0190, f02=»TH IN ECB = 0 ? l , ' ABL(E) MKBEND YES ! COMPLETE REQUEST ! * H * CLEAR ECB-BUFFER R * n " P LD A1,ECBBA,A8 BUFFER ADDRESS x SUK A1,1 $ ADR A1,A2 ADD REQUESTED LENGTH * 8 4AKB230 SCR A3,A1 CLEAR BUFFER UNTIL RE
0x353fd8…35416c Dummy {f00=0x00a6, f01=0x0190, f02=»******************** * * & * M K B 0 $ * MAIN PART OF KEYBOARD DRIVER B * j * t * &************************************** ~ * 4 /* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS 2 .* CHARACTERS AND NO OVER
0x35416c…354300 Dummy {f00=0x00a6, f01=0x0190, f02=»TCH A CHARACTER FROM v " LCR A2,A1 CIRCULAR BUFFER END * B P LDR A4,A2 L XRK A4,/FF OVERFLOW ? ^ P RF(NE) MKB130 NO ! | * P SCR A4,A1 YES ! P ENB $ LDK A1,OVMASK SET OVERFLOW BIT ABL MKBEND COMPLETE REQUE
0x354300…354494 (3, 387) Opaque[0x194]
0x354494…354628 # DirEnt {nam=»DRDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19e8, f03=0x0000}
0x354494…354628 IdxSect {
0x354494…354628 f00 = 0x00cf // 0x354494 @0x0
0x354494…354628 f01 = 0x001c // 0x354496 @0x2
0x354494…354628 gno = [ // 0x354498 @0x4
0x354494…354628 [0x00]: C0x00cf.0x1.0
0x354494…354628 [0x01]: C0x00cf.0x3.0
0x354494…354628 [0x02]: C0x00d0.0x0.0
0x354494…354628 [0x03]: C0x00d0.0x1.0
0x354494…354628 [0x04]: C0x00d0.0x2.0
0x354494…354628 [0x05]: C0x00d0.0x3.0
0x354494…354628 [0x06]: C0x00d1.0x0.0
0x354494…354628 [0x07]: C0x00d1.0x1.0
0x354494…354628 [0x08]: C0x00d1.0x2.0
0x354494…354628 [0x09]: C0x00d1.0x3.0
0x354494…354628 [0x0a]: C0x0102.0x2.0
0x354494…354628 [0x0b]: C0x0102.0x3.0
0x354494…354628 [0x0c]: C0x0103.0x1.0
0x354494…354628 [0x0d]: C0x0103.0x2.0
0x354494…354628 ]
0x354494…354628 }
0x354628…3547bc Dummy {f00=0x00cf, f01=0x018e, f02=» 2 P IDENT DRDY02 REL 11.0 81-05-25 870105041100 P : 0 P = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE B P REL 11.0 81-02-03 v 4 P = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED P REL 11.0 81-02-13 8 P = 3 ASS. ERROR IF FAST0=1, TRAS
0x3547bc…354950 Dummy {f00=0x00cf, f01=0x0190, f02=» z P* @ P************************************************************ P* V P* ` P* j & P* PHILIPS TERMINAL SYSTEM P T S t & P* DRDY02 = DRIVER VIDEO DISPLAY P* P* P* @ P**********************************
0x354950…354ae4 Dummy {f00=0x00cf, f01=0x0190, f02=» THE h * P* DISPLAYS PTS 6351, 6385 AND 6386. 2 P* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- : 0 P* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE p 2 P* THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- P* BOARD. P* P* * P* THE
0x354ae4…354c78 Dummy {f00=0x00cf, f01=0x0190, f02=»STANDARD WRITE ( P* 0B SET CURSOR AND WRITE P* 31 ERASE B P* ` P* j P* NORMAL REGISTER USAGE : t P* $ P* REGISTER A1 = RETURN CODE * P* A2 = OUTPUT CHARACTER & P* A3
0x354c78…354e0c Dummy {f00=0x00cf, f01=0x018e, f02=»-ADDRESS x P* A7 = ORDER $ P* A8 = ECB-ADDRESS 2 P* Z P* d P* ENTRIES n P* P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK P* P* P* EXTERNALS P* P* P* TOSS
0x354e0c…354fa0 Dummy {f00=0x00cf, f01=0x0190, f02=» r P EXTRN OUTPUT SEND P EXTRN ENDBLK END OF BLOCK " 2 P EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER D $ P EXTRN ECHRTN RETURN TO KEYBOARD z P EXTRN TENDIO END OF I/O P* P* DWT DISPLACEMENTS P* ( P EXTRN DWTDEV TERMIN
0x354fa0…355134 (3, 388) Dummy {f00=0x00cf, f01=0x018e, f02=»SPLACEMENTS P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LENGTH B " P EXTRN ECBEL EFFECTIVE LENGTH h P EXTRN ECBRC RETURN CODE P EXTRN ECBCW CONTROL WORD P* @ P**********************************************
0x355134…3552c8 Dummy {f00=0x00cf, f01=0x0190, f02=» P* DWT DISPLACEMENTS P* & & PDWTAP EQU /2 HEAD POSITION POINTER 0 " PDWTBC EQU /1 POSITION COUNTER Z PDWTLIN EQU /4 LINES PDWTPOS EQU /5 POSITIONS & PDWTBLC EQU /6 CHARACTERS IN BLOCK P* P* CHARACTERS P*
0x3552c8…35545c Dummy {f00=0x00cf, f01=0x0190, f02=»SOR HOME ( PCLEHOM EQU /0C CLEAR AND CURSOR HOME PCR EQU /0D CARRIAGE RETURN < PCURRIG EQU /10 CURSOR RIGHT ^ $ PSCADD EQU /11 SET CURSOR ADDRESS " PULSTOP EQU /13 UNDERLINE STOP PFASOUT EQU /14 FAST OUTPUT PSTILL EQU /18 CURSOR S
0x35545c…3555f0 Dummy {f00=0x00cf, f01=0x0190, f02=» RETURN CODES P* " PCCERR EQU /4 CODE CHECK ERROR P* F P* OTHER P P* b PMINBLK EQU 6 BLOCK SIZE l @ PFASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT P* @ P**********************************************
0x3555f0…355784 Dummy {f00=0x00cf, f01=0x0190, f02=» DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX " PDYAD EQU * > ( P DATA ACDY DRIVER ACTIVATION ADDRESS P P DATA ABDY ABORT ROUTINE | P DATA 0 NO INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE P DATA ECHODY ECHO ROUTINE P*
0x355784…355918 Dummy {f00=0x00cf, f01=0x0190, f02=»**************************************************** P* < 4 P* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT F < P* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") ~ 8 P* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE P* FOUND EQUA
0x355918…355aac Dummy {f00=0x00cf, f01=0x0190, f02=»N PTS 6344 V P* 6346, 6385 AND 6386. P* 2 PX:B EQU 0 < PWHATDY EQU 0 N P* b P* l 8 P* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR v & P* (COLUMNS 6 AND 7) CAN BE USED PX:C EQU 1 PLOWCHA EQU 0 P*
0x355aac…355c40 Dummy {f00=0x00cf, f01=0x0190, f02=» THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 P* : PX:D EQU 0 D PEORECH EQU 0 V P* j 0 P* BY SETTING THE CONSTANT TRASPA = 1 IT IS t @ P* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. P* PX:E EQU 0 P
0x355c40…355dd4 (3, 389) Dummy {f00=0x00d0, f01=0x018e, f02=» PSTEADY EQU 1 P* 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- & . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT ^ , P* CHARACTER SETS, IF PTS 6385 IS USED. P* P* CODE COUNTRY P* 0 GB/NL/B P* 1 D/A/L/CH P
0x355dd4…355f68 Dummy {f00=0x00d0, f01=0x0190, f02=» PCOUNTRY EQU 0 P* & P* MEMORY MANAGEMENT BUFFER SIZE ( P* R PX:H EQU 82 PDVBLEN EQU 512 n P* P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J P* L P* X:I SHOULD BE SET TO 1 IF
0x355f68…3560fc Dummy {f00=0x00d0, f01=0x0190, f02=»E TO USE GREEK =4 t P* CHARACTER SET =4 P* 8 PX:K EQU 0 =4 B PGREECE EQU X:K =4 X P* r P EJECT | P* : P***************************************************** P* & P* A C T I V A T I O N P A R T P*
0x3560fc…356290 Dummy {f00=0x00d0, f01=0x0190, f02=»THE DRIVER. P* < P******************************************************* P* ^ PACDY EQU * h P LDK A3,0 RESET BUFFER INDEX z 0 P CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE P CF A5,STABLK
0x356290…356424 Dummy {f00=0x00d0, f01=0x0190, f02=» TEST STATUS z P* P SUK A7,/5 & P RF(Z) DY200 ORDER 05, BASIC WRITE 0 P* Z P SUK A7,1 d ( P RF(Z) DY300 ORDER 06,STANDARD WRITE v P* P SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* P SUK A7,/26
0x356424…3565b8 Dummy {f00=0x00d0, f01=0x0190, f02=» BLOCK | , P ABL LENDER SET RETURN CODE AND END I/O P EJECT > P* L @ P************************************************************ V P* P* ORDER 00, TEST STATUS. 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY : P* AN
0x3565b8…35674c Dummy {f00=0x00d0, f01=0x0190, f02=»OF 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN P* THE RIGHT. F P* @ P************************************************************ f P* PDY100 EQU * P LDK A2,DUMMY P CF A5,OUTPUT SEND DUMMY P RF(NZ) DY
0x35674c…3568e0 Dummy {f00=0x00d0, f01=0x0190, f02=»BL ENDIO P EJECT P* @ P************************************************************ ( P* l P* ORDER 05, BASIC WRITE. v 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF . P* CHARACTERS TO THE DISPLAY AND SETS THE 0 P* INTERN
0x3568e0…356a74 (3, 390) Dummy {f00=0x00d0, f01=0x0190, f02=»****** Z P* PDY200 EQU * P IFT TRASPA=1 , * P CF A15,TRASP SUPPRESS TRAILING SPACES B P XIF p PDY205 EQU * | 2 P CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P RF(NP) DY210
0x356a74…356c08 Dummy {f00=0x00d0, f01=0x0190, f02=»ER05 P* * P CF A15,POSUPD UPDATE POSITION COUNTER P* D 4 P* CHECK IF MAX. BLOCKSIZE IS REACHED. START A N P* NEW BLOCK IF IT IS. P* 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER " P LDKL A2,MAXBLK GET BLOCKSIZE
0x356c08…356d9c Dummy {f00=0x00d0, f01=0x0190, f02=»BLOCK x P RF(NZ) DYER05 " P LDKL A2,MAXBLK GET BLOCKSIZE $ " P CF A5,STABLK START NEW BLOCK J P RF(NZ) DYER05 p 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER P RB DY205 NEXT CHARACTER P* PDY210 EQU * * P CF A15,UPDAPP R
0x356d9c…356f30 Dummy {f00=0x00d0, f01=0x0190, f02=» ` : P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER P* F P ABL DY493 END REQUEST P P* n PDYER05 EQU * x B P CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE ( P RF DYER10 ERROR ROUTINE IS ENTERED P EJECT
0x356f30…3570c4 Dummy {f00=0x00d0, f01=0x0190, f02=»IS PART CHECKS IF THE REQUESTED LENGTH IS ZERO. > P* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND 8 " P* THE REQUEST IS COMPLETED. z F P* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD @ P* IN THE ECB-BUFFER AND CARR
0x3570c4…357258 Dummy {f00=0x00d0, f01=0x0190, f02=»AY UNLESS A SPECIAL n L P* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. B P* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION l 6 P* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. < P* WHEN ALL CHARACTERS ARE
0x357258…3573ec Dummy {f00=0x00d0, f01=0x0190, f02=»**************** d P* PDY300 EQU * " P* 6 P* TEST REQUESTED LENGTH @ P* b 6 P LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? l P RF(Z) DY307 YES ! P* P* TEST CONTROL CHARACTER P* PDY305 EQU * &
0x3573ec…357580 Dummy {f00=0x00d0, f01=0x0190, f02=»EX r P* P SUK A2,/2B $ P RF(Z) DY335 NO MOVING OF CURSOR ( PDY307 EQU * P P* d 0 P LDK A4,1 FIRST POSITION AND ONE LINE FEED. n 8 P SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER P* P SUK A2,/5 TWO LINE FEED ?
0x357580…357714 (3, 391) Dummy {f00=0x00d0, f01=0x0190, f02=» DY330 YES ! CONTROL CHARACTER MEANS ERASE P* 2 P LDK A2,CR CARRIAGE RETURN < P* ^ PDY320 EQU * h P CF A5,OUTPUT SEND | PDYER10 RF(NZ) DYER15 P* P SUK A4,1 READY ? 0 P RF(N) DY335 YES ! START WRITING ON DISPLAY
0x357714…3578a8 Dummy {f00=0x00d0, f01=0x0190, f02=») DY325 YES ! P* . P LDKL A2,/100 NO ! INCREMENT LINE COUNTER P ADS A2,DWTAP+DWTDEV,A6 R PDY325 EQU * r " P LDK A2,LF LINE FEED CHARACTER " P RB DY320 SEND NEXT LINE FEED P* PDY330 EQU * . P SC A4,DWTAP+DWTDEV,A6 R
0x3578a8…357a3c Dummy {f00=0x00d0, f01=0x0190, f02=»ND P EJECT P* P* " 8 P* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). , P* h P* r PDY335 EQU * | P IFT TRASPA=1 * P CF A15,TRASP SUPPRESS TRAILING SPACES P XIF PDY340 EQU * 0 P CF A15,GETCHR GET C
0x357a3c…357bd0 Dummy {f00=0x00d0, f01=0x0190, f02=»A15,GRCHAR =4 P XIF ! P* ! " P LDR A4,A2 CHECK CODE LIMITS ! , P SUK A4,/20 ! P * P RF(N) DY380 TEST IF SPECIAL CHARACTER ! d P SUK A4,/5F ! * P RF(P) DY380 TEST IF SPECIAL CHARACTER ! P IFT FASTO=1 ! P IFT WHATDY=1 ! 6 P LDK A4,0
0x357bd0…357d64 Dummy {f00=0x00d0, f01=0x0190, f02=» ! | P XIF " P IFT FASTO=1 " P* " ( P* " 2 2 P* FAST OUTPUT SHOULD BE USED IF A NUMBER OF " < $ P* CHARACTERS ARE FOUND EQUAL. " r P* " P* " & P LD A1,ECBBA,A8 GET BUFFER ADDRESS " P ADR A1,A3 ADD BUFFER INDEX " P* " P*
0x357d64…357ef8 Dummy {f00=0x00d0, f01=0x0190, f02=» " * P ADK A4,1 INCREMENT CHARACTER COUNTER # 6 P CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? # 6 P RF(NE) FAST40 NO ! # p P* # , P CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? # P RF(NL) FAST40 YES ! # P* # & P CW A3,ECBRL,A8 REQUESTED LE
0x357ef8…35808c Dummy {f00=0x00d0, f01=0x0190, f02=»R # r P* $ PFAST40 EQU * $ : P LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS $ ( P AD A1,DWTBC+DWTDEV,A6 $ f P ANK A1,/FF $ P SUR A4,A1 $ P* $ 6 P CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? $ P RF(L) FAST80 NO ! $ P
0x35808c…358220 Dummy {f00=0x00d0, f01=0x0190, f02=» SLC A3,8 SAVE BUFFER POINTER $ P ADR A4,A3 % & P* % 8 P IFT LOWCHA=0 % B P LDR A3,A2 % X P SUK A3,/5F % j P RF(NP) FAST30 % ~ P SUK A2,/20 % PFAST30 EQU * % P XIF % P IFT FASTO=1 % $ P LDR A3,A2 PUT CHARACTER INTO A3 % P* %
0x358220…3583b4 (3, 392) Dummy {f00=0x00d0, f01=0x0190, f02=»URSOR POSITION % t P ANK A4,/FF & P AD A4,DWTAP+DWTDEV,A6 & * P* & H P CF A5,CURPOS SET CURSOR & R P RB DY340 NEXT CHARACTER & r PFAST80 EQU * & P XIF & P* & & P IFT LOWCHA=0 LOWER CASE NOT USED & P LDR A1,A2 & P SUK A1,/5F &
0x3583b4…358548 Dummy {f00=0x00d0, f01=0x0190, f02=»ER15 ABL(NZ) DYER20 & * P CF A15,POSUPD POSITION COUNTER UPDATE ' P IFT FASTO=1 ' J P IFT WHATDY=1 ' ^ * P LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ' t P ANKL A1,/1000 ' P RF(NZ) FAST90 NO ! ' P XIF ' P IFT FASTO=1 ' * P SUK A4,1 DECREMENT
0x358548…3586dc Dummy {f00=0x00d0, f01=0x0190, f02=» A2,A3 ' P LC A2,-1,A2 ( P ANK A2,/7F MASK CHARACTER ( " P RB FAST80 ( D PFAST90 EQU * ( V P XIF ( j P RB DY340 NEXT CHARACTER ( v P* ( " P* TEST IF SPECIAL CHARACTER ( P* ( PDY380 EQU * ( P LDK A4,0 RESET A4 ( P LDR A1,A2
0x3586dc…358870 Dummy {f00=0x00d0, f01=0x018e, f02=» ( p 2 P ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE ) P* ) > $ P SUK A1,/3 FAST OUTPUT ( /14 ) ? ) H * P RF(Z) DY390 YES ! GO TO THAT ROUTINE ) p P* ) P SUK A1,/9A POINT ( /AE ) ? ) $ P RF(Z) DY410 YES ! LOAD AND SEND ) P IFF WHATDY+PLASM=0
0x358870…358a04 Dummy {f00=0x00d0, f01=0x0190, f02=» ) | P XIF * P* * * P ADK A1,/9C UNDERLINE START ( /12 ) ? * P RF(Z) DY467 YES ! * L P* * f ( P SUK A1,/1 UNDERLINE STOP ( /13 ) ? * p P RF(Z) DY467 YES ! * P* * , P SUK A1,/B LOW INTENSITY START ( /1E) ? * P RF(Z) DY467 YES ! *
0x358a04…358b98 Dummy {f00=0x00d0, f01=0x0190, f02=»DY385 EQU * * " P LDK A1,CCERR CODE CHECK ERROR + , P ORS A1,ECBRC,A8 SET RETURN CODE OF ECB + : P RB DY340 NEXT CHARACTER + j P EJECT + P* + P* ROUTINE FOR FAST OUTPUT + P* + PDY390 EQU * + P IFT TRASPA=1 + * P LD A4,ECBCW,A
0x358b98…358d2c Dummy {f00=0x00d0, f01=0x0190, f02=»8 REQUESTED LENGTH + 0 P SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND , P RF(NP) DY400 NONE ! , N P IFT GREECE=1 =4 , j P CF A15,GRCHAR =4 , P XIF , P* , $ P LDR A3,A2 LOAD CHARACTER IN A3 , P* , ( P CF A5,FASTER SEND WITH FAST OUTPU
0x358d2c…358ec0 Dummy {f00=0x00d0, f01=0x0190, f02=»END , t P* - P* SEND A POINT - P* - . PDY410 EQU * - 8 " P LDK A2,/2E GET CODE FOR POINT - L P RB DY370 SEND POINT - r P* - PDY467 EQU * - ( P CF A5,OUTPUT SEND SPECIAL CHARACTER - P RF(NZ) DYER20 NOT OK ! - P ABL DY340 NEXT
0x358ec0…359054 (3, 393) Dummy {f00=0x00d1, f01=0x018e, f02=»* - @ P************************************************************ . PADY140 EQU * . N , P CF A15,GETCHR GET FIRST ASCII CHARACTER . b P LDR A4,A2 . . P CF A15,GETCHR GET SECOND ASCII CHARACTER . P ANK A2,/F . P ANK A4,/F . P RF(E) ADY144
0x359054…3591e8 Dummy {f00=0x00d1, f01=0x0190, f02=» . P SUR A2,A4 SUBTRACT HEAD POSITION POINTER / P LC A4,DWTBC+DWTDEV,A6 / 6 , P SUR A2,A4 AND REQUESTS POSITION COUNTER / T & P TO GET NUMBER OF SPACES TO SEND / " P ABL(NP) DY340 NEXT CHARACTER / P LDR A4,A2 / & PADY145 LDK A2,CURRIG CURSOR RIGHT
0x3591e8…35937c Dummy {f00=0x00d1, f01=0x0190, f02=»Y145 NO / P ABL DY340 NEXT CHARACTER 0 P EJECT 0 2 B P************************************************************** 0 @ P* 0 > P* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH 0 . P* HAS BEEN SET UP BY SPECIAL CHARACTERS. 0 P* 0
0x35937c…359510 Dummy {f00=0x00d1, f01=0x0190, f02=» 0 r P CF A5,OUTPUT SEND 1 PDYER20 RF(NZ) DYER30 1 " P* 1 > & P LDK A2,LISTOP LOW INTENSITY STOP 1 H P CF A5,OUTPUT SEND 1 r P RF(NZ) DYER30 1 P* 1 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER 1 P* 1 PDY493 EQU * 1 P IFT TRASP
0x359510…3596a4 Dummy {f00=0x00d1, f01=0x0190, f02=» ECB 1 l 4 P LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER 2 * P ST A2,ECBCW,A8 IN CONTROL WORD OF ECB 2 D PENDIO EQU * 2 r P CF A5,ENDBLK END OF BLOCK 2 P RF(NZ) DYER30 2 P ABL LENDIS END I/O 2 P EJECT 2 @ P********************************
0x3596a4…359838 Dummy {f00=0x00d1, f01=0x0190, f02=»EN IN 2 b 8 P* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS 3 : P* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- 3 J P* TERS AS ORDER 06. 3 P* 3 @ P************************************************************ 3 P* 3 PDY600 EQU
0x359838…3599cc Dummy {f00=0x00d1, f01=0x0190, f02=» GET LINE 3 & P LC A4,ECBCW,A8 GET REQUESTED LINE 4 , P CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? 4 < P RF(NG) ADY207 NO! 4 l : P LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE 4 PADY207 EQU * 4 * P LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE 4 PAD
0x3599cc…359b60 Dummy {f00=0x00d1, f01=0x0190, f02=» A3,1 INCREMENT ACTUAL LINE NUMBER 4 PADY230 CF A5,OUTPUT SEND 5 * P RF(NZ) DYER30 5 J P LDR A4,A4 REQUESTED LINE 5 ` " P RB(NZ) ADY210 NOT EQUAL ZERO 5 P LDK A4,1 5 P RF ADY300 5 PADY250 LDK A2,HOME HOME 5 & P LDK A3,1 RESET ACTUAL LINE
0x359b60…359cf4 (3, 394) Dummy {f00=0x00d1, f01=0x018e, f02=»Y300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER 5 , P LC A4,ECBCW+1,A8 GET REQUESTED POSITION 6 < , P CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? 6 l P RF(NG) ADY303 NO! 6 * P LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE 6 PADY303 EQU * 6 P CWK A4,1 FIRST
0x359cf4…359e88 Dummy {f00=0x00d1, f01=0x0190, f02=» P RF ADY330 7 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 7 P LDK A4,1 7 D 6 PADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION 7 V $ P CC A3,DWTPOS+DWTDEV,A6 MAX-POS? 7 P RF(NG) ADY310 NO! 7 P SUK A3,1 7 * PADY310 CWR A4,A3 FORWARDS OR BACKWAR
0x359e88…35a01c Dummy {f00=0x00d1, f01=0x0190, f02=»UNTER 7 t PADY330 CF A5,OUTPUT SEND 8 P RF(NZ) DYER30 8 . P RB ADY310 8 D . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 8 V , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 8 P RF(L) ADY345 BACKSPACE WAY 8 P LDK A2,CR CARRIAGE RETURN 8 & P LDK A3,1
0x35a01c…35a1b0 Dummy {f00=0x00d1, f01=0x0190, f02=» SUK A3,1 LAST BACKSPACE ? 8 P RB(NE) ADY345 9 " @ PADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER 9 8 P RF DY620 9 | PDY610 EQU * 9 P XIF 9 2 P LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION 9 8 P ST A4,DWTAP+DWTDEV,A6 UPDATE HEAD P
0x35a1b0…35a344 Dummy {f00=0x00d1, f01=0x0190, f02=»BL DY335 SEND CHARACTERS WITH STANDARD WRITE 9 P EJECT : 4 @ P************************************************************ : B P* : * P* CURPOS = SUBROUTINE TO SET CURSOR : > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) : P* : @
0x35a344…35a4d8 Dummy {f00=0x00d1, f01=0x0190, f02=»,OUTPUT SEND : P RF(NZ) DYER30 ; P* ; * P LDR A2,A4 GET POSITIONS ; 4 6 P CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ? ; T P RF(NG) CURR10 NO ! ; 4 P LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS ; P* ; PCURR10 ADK A2,/1F CONVERT ;
0x35a4d8…35a66c Dummy {f00=0x00d1, f01=0x0190, f02=»,A6 MORE THAN MAX. LINES ? ; | P RF(NG) CURR20 NO ! < " 0 P LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES < > P* < r PCURR20 EQU * < | P ADK A2,/1F CONVERT < P CF A5,OUTPUT SEND < P RF(NZ) DYER40 < P RTN A5 < P EJECT < @ P**************
0x35a66c…35a800 Dummy {f00=0x00d1, f01=0x0190, f02=» IN CONTROL < d . P* WORD OF ECB. THE CURSOR IS NOT MOVED. = P* = F @ P************************************************************ = P P* = PDY700 EQU * = 6 P LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE = P IFT WHATDY=1 = , P LD A1
0x35a800…35a994 (3, 395) Dummy {f00=0x00d1, f01=0x0190, f02=»ERS = l P ANK A2,/FF > . P LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION > P ANK A3,/FF > R , P SUR A2,A3 NR OF CHARS. TO END OF SCREEN > f P LDR A3,0 ADJUST > P ADK A2,1 ADJUST LENGTH > P CWR A4,A2 OUTSIDE SCREEN ? > P RF(L) DY710 NO ! >
0x35a994…35ab28 Dummy {f00=0x00d1, f01=0x0190, f02=»SPACE > PDY720 EQU * ? , P SUK A4,1 DECREMENT NUMBER OF CHARACTERS ? " P RF(N) DY730 ERASE READY ? R P* ? r P CF A5,OUTPUT SEND ? | P RF(NZ) DYER40 ? P RB DY720 ? P* ? PDY730 EQU * ? P CF A5,ENDBLK END OF BLOCK ? P RF(NZ) DY
0x35ab28…35acbc Dummy {f00=0x00d1, f01=0x0190, f02=» P LDR A2,BACKSP CURSOR LEFT @ PDY740 EQU * @ & , P SUK A4,1 CURSOR IN ORIGINAL POSITION ? @ : P ABL(N) ENDIO YES ! @ j . P CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE @ P RF(NZ) DYER40 @ P RB DY740 @ PDY750 EQU * @ P XIF @ P LDK A3,
0x35acbc…35ae50 Dummy {f00=0x00d1, f01=0x0190, f02=»****************** @ f P* A . P* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE A $ 0 P* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER A V . P* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF A . P* "SUPPRESS ECHOING OF EOR" IS REQUESTED A 0 P* AT SYSGEN ). ELSE THE
0x35ae50…35afe4 Dummy {f00=0x00d1, f01=0x0190, f02=»* A PECHODY EQU * B P LDR A7,A7 END OF ECHOING ? B P RF(NN) EDY110 NO ! B B P* B ^ P* B h 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER B r P CF A15,TENDIO END I/O B , P LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? B ( P RF(Z) EDY130 NO, RE
0x35afe4…35b178 Dummy {f00=0x00d1, f01=0x0190, f02=»1 =4 B P CF A15,GRCHAR =4 =4 C P XIF =4 C , P LDR A3,A2 SAVE CHARACTER C > P* C ` P IFT EORECH=0 C j P SUK A3,/80 C $ P RF(NN) EDY130 NOT TO BE ECHOED C P ADK A3,/80 C P XIF C , P LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? C
0x35b178…35b30c Dummy {f00=0x00d1, f01=0x0190, f02=»CTER COUNTER C j P CF A5,ENDBLK FINISH BLOCK D P RF(NZ) DYER40 D 6 PEDY116 EQU * D L P LDK A2,MINBLK D ` P CF A5,STABLK DECLARE BLOCK D v P RF(NZ) DYER40 D PEDY118 EQU * D P LDR A2,A3 RELOAD CHARACTER D P* D P SUK A3,/18 CLEAR ? D
0x35b30c…35b4a0 Dummy {f00=0x00d1, f01=0x0190, f02=»-DEVICE D v P* E * P IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER E P CF A5,OUTPUT SEND E H PDYER40 RF(NZ) DYER45 E b , P CF A15,POSUPD POSITION COUNTER UPDATING E ~ P SUK A4,1 MORE CHARACTERS ? E P RF(Z) EDY130 YES ! E P* E PEDY120 EQU * E
0x35b4a0…35b634 (3, 396) Dummy {f00=0x00d1, f01=0x0190, f02=»RD E n P EJECT F @ P************************************************************ F P* F P* BACKSPACE F f 6 P* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP F | 6 P* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE F P* STEP BACKWARDS AGAIN
0x35b634…35b7c8 Dummy {f00=0x00d1, f01=0x0190, f02=»V,A6 GET POSITION COUNTER F ~ P ANK A3,/FF G " P RB(Z) EDY120 FIRST POSITION G 6 P* G Z " P CF A5,ENDBLK FINISH OLD BLOCK G d P RF(NZ) DYER45 G P LDK A2,MINBLK G $ P CF A5,STABLK START A NEW BLOCK G P RF(NZ) DYER45 G P* G $ P LDK A4,2
0x35b7c8…35b95c Dummy {f00=0x00d1, f01=0x0190, f02=»POSITION ON LINE G P AD A3,DWTAP+DWTDEV,A6 H 4 P CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? H 6 P RF(L) DY810 NO ! H n P RB(G) DY800 NO, OUTSIDE ! H P* H P* H PDY805 EQU * H P* H P LDK A2,SPACE SPACE H P CF A5,OUTPUT SE
0x35b95c…35baf0 Dummy {f00=0x00d1, f01=0x0190, f02=» RF(NZ) DYER45 H P* I P SUK A4,1 SEND AGAIN ? I P RB(NZ) DY805 YES ! I > P* NO, BACKSPACE FINISHED I Z P RB EDY120 I | P EJECT I < P******************************************************** I P* I P* CLEAR I 6 P* CHECKS CURSO
0x35baf0…35bc84 Dummy {f00=0x00d1, f01=0x0190, f02=»REQUEST. I j P* J @ P************************************************************ J P* J ^ PDY850 EQU * J h " P CF A5,ENDBLK FINISH OLD BLOCK J | P RF(NZ) DYER45 J " P LDKL A2,MAXBLK GET BLOCKSIZE J P CF A5,STABLK START OF BLOCK J PDYER45
0x35bc84…35be18 Dummy {f00=0x00d1, f01=0x0190, f02=» P IFT WHATDY=1 K . P LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? K P ANKL A1,/1000 K L P RF(Z) DY860 YES ! K b ( P CF A5,BACCAN ERASE CURRENT REQUEST K | P RB EDY120 K P XIF K PDY860 EQU * K 4 P LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNT
0x35be18…35bfac Dummy {f00=0x00d1, f01=0x0190, f02=»DK A3,SPACE GET SPACE TO SEND K ( P CF A5,FASTER SEND WITH FAST OUTPUT L & P* L R 2 P SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER L P RB EDY120 L P IFT WHATDY=1 L P EJECT L @ P************************************************************ L
0x35bfac…35c140 Dummy {f00=0x00d1, f01=0x0190, f02=»R. L ~ P* M @ P************************************************************ M PBACCAN EQU * M X 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER M l P LDR A4,A3 M 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER M P ANK A2,/FF M 4 P AD A2,DWTAP+D
0x35c140…35c2d4 (3, 397) Dummy {f00=0x0102, f01=0x0190, f02=»DK A2,SPACE DESTRUCTIVE SPACE M P RF BACA20 N & PBACA10 EQU * N 8 4 P IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER N L ( P LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 N : P CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ? N P RF(G) BACA30 NO ! N P
0x35c2d4…35c468 Dummy {f00=0x0102, f01=0x0190, f02=»OCK N t P RF(NZ) DYER50 O 0 P CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER O " PBACA30 EQU * O V P LDK A2,BACKSP BACKSPACE O j P CF A5,OUTPUT SEND O P RF(NZ) DYER50 O $ P LDK A2,SPACE DESTRUCTIVE SPACE O P CF A5,OUTPUT SEND O P RF(NZ) DYER
0x35c468…35c5fc Dummy {f00=0x0102, f01=0x0190, f02=» NGR A3,A3 NEGATE REGISTER O 4 P ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER P " P RTN A5 P Z P XIF P j P EJECT P v @ P************************************************************ P P* P , P* FASTER = SUBROUTINE FOR FAST OUTPUT P 4 P*
0x35c5fc…35c790 Dummy {f00=0x0102, f01=0x018e, f02=»************************************** P z PFASTER EQU * Q . P IFT WHATDY=1 Q B P LD A2,DWTDEV,A6 PTS Q X " P ANKL A2,/1000 6342 OR 6351 ? Q t P RF(Z) FAS005 NO ! Q P* Q 6 P* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 Q P* Q P LC A2
0x35c790…35c924 Dummy {f00=0x0102, f01=0x018e, f02=» Q . P LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS R P ANK A1,/FF R : P SUR A1,A2 COMPARE R N P RF(NN) FAS002 LENGTH OK R h P ADR A4,A1 ADJUST LENGTH R * P ADK A4,1 ADJUST NUMBER OF CHARACTERS R P* R PFAS002 EQU * R P* R & P LDR A2,A4
0x35c924…35cab8 Dummy {f00=0x0102, f01=0x0190, f02=» P CF A5,OUTPUT SEND S P RF(NZ) DYER50 S P SUK A4,1 DECREMENT COUNTER S 4 P LDK A2,/FF S X P ANR A2,A4 S l P RB(P) FAS004 NEXT CHARACTER S ~ P* S & P CF A5,ENDBLK START A NEW BLOCK TO S $ P RF(NZ) DYER50 AVOID OVERFLOW IN S P LDKL A2,M
0x35cab8…35cc4c Dummy {f00=0x0102, f01=0x0190, f02=» LDK A2,BACKSP S P CF A5,OUTPUT SEND BACKSPACE T P RF(NZ) DYER50 T : P SUK A4,1 DECREMENT COUNTER T P P RB(P) FAS003 NEXT T t P RTN A5 T PFAS005 EQU * T P XIF T 6 P CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS T . P RF(L) FAS010 NU
0x35cc4c…35cde0 Dummy {f00=0x0102, f01=0x0190, f02=»TANT T | P LDK A2,FASOUT FAST OUTPUT U P CF A5,OUTPUT SEND U . PDYER48 RF(NZ) DYER50 U H P LDR A2,A4 NO OF CHAR U d P ANK A2,/FF U P CF A5,OUTPUT SEND U P RF(NZ) DYER50 U P LDR A2,A3 U P CF A5,OUTPUT SEND U P RF(NZ) DYER50 U P
0x35cde0…35cf74 (3, 398) Dummy {f00=0x0102, f01=0x0190, f02=»RN CODE IS SET U l ( P* AFTER STABLK, OUTPUT OR ENDBLK. V P* V B : P****************************************************** V L PDYER50 EQU * V P LD A7,DWTST,A6 V P SLC A7,2 ECHO ? V * P ABL(N) ECHRTN YES ! RETURN FROM ECHO V P* V " P S
0x35cf74…35d108 Dummy {f00=0x0102, f01=0x018e, f02=»GET ORDER. ORDER 00 ? V P ANK A7,/FF W P RF(Z) DYER52 YES ! W 2 P SUK A7,5 ORDER 5 ? W N P RF(Z) DYER52 YES ! W j P SUK A7,/2B ORDER 31 ? W P RF(Z) DYER52 YES ! W P* W P SRC A1,2 LRC-ERROR ? W P RF(N) DYER70 YES ! W P SLC
0x35d108…35d29c Dummy {f00=0x0102, f01=0x0190, f02=» PDYER55 SLC A1,3 SHIFT BACK X P* X & P LDR A8,A8 =1 X 0 2 P RF(Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1 X H 2 P CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD X ~ PDYER60 EQU * =1 X P ABL LENDIS COMPLETE REQUEST X P* X P* LRC-ERRO
0x35d29c…35d430 Dummy {f00=0x0102, f01=0x0190, f02=»2 X n , P ABL(Z) ENDIO YES, DON'T SEND AGAIN = 2 Y P IFT WHATDY=1 Y : ( P LD A4,DWTDEV,A6 6344,6385 OR 6386 ? Y P P ANKL A4,/1000 Y | P RF(Z) DYER90 YES ! Y 6 P LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK Y P ANK A4,/FF Y P RF(Z) DYER8
0x35d430…35d5c4 Dummy {f00=0x0102, f01=0x0190, f02=» EQU * Y P XIF Z P* Z 0 P LD A4,DWTAP+DWTDEV,A6 GET HEAD POS. COUNTER Z $ ( P CF A5,CURPOS SET CURSOR ON DISPLAY Z X P LDK A3,0 RESET BUFFER INDEX Z P LD A7,DWTOR,A6 GET ORDER Z P ANK A7,/FF Z P ABL ACDY Z P EJECT Z @ P**********
0x35d5c4…35d758 Dummy {f00=0x0102, f01=0x0190, f02=»ON POINTER WHEN END Z | ( P* OF REQUEST IS REACHED [ P* [ H @ P************************************************************ [ R PUPDAPP EQU * [ 0 P LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER [ P ANK A2,/FF [ 8 P ADS A2,DWTAP+DWTDEV,A
0x35d758…35d8ec Dummy {f00=0x0102, f01=0x0190, f02=»************************************************** [ P* : 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION D 0 P* COUNTER WHEN REQUEST RUNNING. ~ D P* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE P* @ P****
0x35d8ec…35da80 Dummy {f00=0x0102, f01=0x0190, f02=» AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER P ANK A2,/FF ] < ( P CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? ] P P RF(G) POSU10 ] | ( P IM DWTBC+DWTDEV,A6 POSITION COUNTER ] PPOSU10 RTN A15 ] P IFT GREECE=1 =4 ] P EJECT =4 ] : P******
0x35da80…35dc14 (3, 399) Dummy {f00=0x0103, f01=0x0190, f02=» BEFORE THEY ARE SENT TO THE DISPLAY =4 ] P* ^ 4 : P*************************************************** =4 ^ > PGRCHAR EQU * = ^ | , P LDR A1,A2 IS IT A GREEK CHARACTER ? =4 ^ P SUK A1,/B9 =4 ^ P RF(P) GRCH10 NO =4 ^ P ADK A1,9 =4 ^
0x35dc14…35dda8 Dummy {f00=0x0103, f01=0x0190, f02=» ^ n P* =4 _ PGRCH10 EQU * =4 _ P RTN A15 =4 _ 0 P* =4 _ D PGRTAB EQU * =4 _ T , P DATA /2223,/263B,/405B,/5C5D,/5E5F =4 _ l P XIF =4 _ P IFT TRASPA=1 _ P EJECT _ 6 P************************************************** _
0x35dda8…35df3c Dummy {f00=0x0103, f01=0x0190, f02=» LETES LOW INTENSITY START, HIGH _ P* INTENSITY START. ` * P* AND TABULATIONS ` N P* ` j 6 P************************************************** ` t P* ` PTRASP EQU * ` , P LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) ` , P LD A2,ECBRL
0x35df3c…35e0d0 Dummy {f00=0x0103, f01=0x018e, f02=»DECR. BA ` P LCR A4,A1 GET CHAR a P ANK A4,/FF a , P SUK A4,/20 SPACE ? a @ P RF(Z) SKIP07 YES a P ADK A4,1 LOW INT. STOP ? a v P RF(Z) SKIP07 YES ! a P ADK A4,1 LOW INT. START ? a P RF(Z) SKIP07 YES ! a P CWK A2,4 a " P RF(
0x35e0d0…35e264 Dummy {f00=0x0103, f01=0x0190, f02=» PSKIP07 SUK A2,1 DECR RL b P RB SKIP05 GET NEXT b $ PSKIP30 EQU * b @ P LD A4,ECBRL,A8 b T ( P ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH b l P* b P ST A2,ECBRL,A8 STORE NEW RL b P* b P RTN A15 b P XIF b P EJECT b @ P**************
0x35e264…35e3f8 Dummy {f00=0x0103, f01=0x018e, f02=» HEAD POSITION b l , P* COUNTER TO HOME POSITION ( /0101 ). c P* c F @ P************************************************************ c P P* c PRCDY EQU * c P LDKL A2,/7FFF c " P ANS A2,DWTST,A6 INDICATE BUSY c P* c $ P LDKL A2,MAXBLK MA
0x35e3f8…35e58c Dummy {f00=0x0103, f01=0x0190, f02=» & P LD A2,DWTDEV,A6 GET DEVICE STATUS d & P ANKL A2,/2000 PTS 6385 OR 6386 ? d . P RF(Z) RCDY20 NO ! d X ( P LDK A3,/40 SET UP TRANSFER COUNTER d r P* d 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING d * P ADK A2,STEADY ADJUST TO STEADY IF SO d *
0x35e58c…35e720 Dummy {f00=0x0103, f01=0x018e, f02=» TRANSFERS d x * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" e P CF A5,OUTPUT e @ P RB(NZ) RCER e V ( P LDK A2,COUNTRY SEND "COUNTRY CODE" e j P ORK A2,/30 MAKE ASCII DIGIT e P CF A5,OUTPUT e P RB(NZ) RCER e PRCDY20 EQU * e P XIF e P* e
0x35e720…35e8b4 (3, 400) Dummy {f00=0x0103, f01=0x0190, f02=» e r 4 P ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER f P LDK A2,0 f @ : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER f R P* f P ABL ENDIO f P* f , P**************************************** f P* f P* ABORT ROUTINE f
0x35e8b4…35ea48 Dummy {f00=0x0103, f01=0x402c, f02=» ABL LENDIS END I/O f P END g @ g (TION COUNTER f P LDK A2,0 f @ : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER f R P* f P ABL ENDIO f P* f , P**************************************** f P* f P* ABORT ROUTINE f
0x35ea48…35ebdc Dummy {f00=0x0103, f01=0x2008, f02=» h E & | CF A5,STABLK START OF BLOCK ' * ' 6 ( $ LDK A2,CLEHOM CLEAR AND CURSOR HOME ' @ CF A5,OUTPUT SEND ' l * ' LDKL A2,/0101 HOME POSITION ' 4 0 ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER ' * ' ABL ENDIO '
0x35ebdc…35ed70 Dummy {f00=0x0103, f01=0x0190, f02=»A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DATA ILLINT L P DATA ILLINT ` P DATA ILLINT t P!!EN PASM /S PKPF /O PKPF /S PSCR PLED PFTAB P!!IL 12 P!!IL 41 P!!DL 042
0x35ed70…35ef04 Dummy {f00=0x0103, f01=0x0190, f02=» 053 P!!DL 054 P!!DL 056 P!!DL 057 , P!!DL 058 < P!!DL 059 L P!!DL 060 P!!DL 061 l P!!EN | PASM /S PKPF /O PKPF /S PSCR PMOV CTAB01,/S,PTSDEMO PASM /S PKPF /O PKPF /S PSC
0x35ef04…35f098 Dummy {f00=0x0103, f01=0x0190, f02=»$CPU852 EQU 0$$ | ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!CH $$DVTKB$$DVKB00$$ D P!!CH $$/2222$$/0001$$ b P!!CH $$/3333$$/1000$$ P!!CH $$COD$$CTAB01$$ P!!CH $$ECH$$DVDY00$$ P!!EN PASM /S PKPF /O PKPF /S
0x35f098…35f22c Dummy {f00=0x0103, f01=0x0190, f02=»EQU 1$$CPU852 EQU 0$$ ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!CH $$DVTDI$$DVDI00$$ J P!!CH $$2010$$0000$$ h P!!CH $$/2222$$/0001$$ P!!CH $$/3333$$/8000$$ P!!EN PASM /S PKPF /O PKPF /S PSCR PLED D
0x35f22c…35f3c0 Dummy {f00=0x0103, f01=0x0190, f02=» l ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!CH $$DVTDY$$DVDY00$$ 4 P!!CH $$/ABC$$/1850$$ R P!!CH $$/2222$$/0004$$ n P!!CH $$/3333$$/0000$$ P!!EN PASM /S PKPF /O PKPF /S PSCR PLED DVTG3 ( P!!CH $$CPU
0x35f3c0…35f554 (3, 401) Opaque[0x194]
0x35f554…35f6e8 # DirEnt {nam=»DRSU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1a40, f03=0x0000}
0x35f554…35f6e8 IdxSect {
0x35f554…35f6e8 f00 = 0x00d2 // 0x35f554 @0x0
0x35f554…35f6e8 f01 = 0x002c // 0x35f556 @0x2
0x35f554…35f6e8 gno = [ // 0x35f558 @0x4
0x35f554…35f6e8 [0x00]: C0x00d2.0x0.0
0x35f554…35f6e8 [0x01]: C0x00d2.0x1.0
0x35f554…35f6e8 [0x02]: C0x00e3.0x2.0
0x35f554…35f6e8 [0x03]: C0x00e3.0x3.0
0x35f554…35f6e8 [0x04]: C0x00e4.0x0.0
0x35f554…35f6e8 [0x05]: C0x00e4.0x1.0
0x35f554…35f6e8 [0x06]: C0x00e5.0x2.0
0x35f554…35f6e8 [0x07]: C0x00e5.0x3.0
0x35f554…35f6e8 [0x08]: C0x00e6.0x0.0
0x35f554…35f6e8 [0x09]: C0x00e6.0x1.0
0x35f554…35f6e8 [0x0a]: C0x00e6.0x2.0
0x35f554…35f6e8 [0x0b]: C0x00e6.0x3.0
0x35f554…35f6e8 [0x0c]: C0x00e7.0x0.0
0x35f554…35f6e8 [0x0d]: C0x00e7.0x1.0
0x35f554…35f6e8 [0x0e]: C0x0103.0x3.0
0x35f554…35f6e8 [0x0f]: C0x0104.0x0.0
0x35f554…35f6e8 [0x10]: C0x0104.0x3.0
0x35f554…35f6e8 [0x11]: C0x0105.0x0.0
0x35f554…35f6e8 [0x12]: C0x0105.0x1.0
0x35f554…35f6e8 [0x13]: C0x0105.0x2.0
0x35f554…35f6e8 [0x14]: C0x0105.0x3.0
0x35f554…35f6e8 [0x15]: C0x0106.0x0.0
0x35f554…35f6e8 ]
0x35f554…35f6e8 }
0x35f6e8…35f87c Dummy {f00=0x00d2, f01=0x0190, f02=» 2 P IDENT DRSU01 REL 11.0 81-05-25 870105041100 P : , P =4, LOOPT & POW-ON CORR;NEW COND ASS B P REL 11.0 81-02-17 r & P =3, HANG UP ON REMOTE RECOVERY P REL 11.0 81-02-16 * P =2, STATUS HANDLING FOR TP CHANGED P REL
0x35f87c…35fa10 Dummy {f00=0x00d2, f01=0x0190, f02=»********** j P* $ P* PHILIPS TERMINAL SYSTEM PTS P* D . P* DRSU01 = DRIVER CHANNEL UNIT FOR LOCAL N & P* AND REMOTE TERMINALS " P* CONNECTED TO SUM P* P* P* P* 4 P****************
0x35fa10…35fba4 Dummy {f00=0x00d2, f01=0x0190, f02=»ECTED TO SELECTOR UNIT (SUM). P* & : P* THE DRIVER IS CALLED FROM TERMINAL DEVICE DRIVERS. 0 P* n : P* THE DRIVER HAS SEPARATED ENTRIES FOR LOCAL AND FOR x P* REMOTE TERMINALS. P* > P* AT OUTPUT A WORD WITH DEVICE ADDRESS A
0x35fba4…35fd38 Dummy {f00=0x00d2, f01=0x0190, f02=»E WORD IS EXAMINED AND SUITABLE ACTIONS ARE CARRIED OUT. P* @ 0 P* CONTROL WORK TABLES FOR THE CHANNELS ARE J P* INCLUDED IN THE DRIVER. ~ P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P*
0x35fd38…35fecc Dummy {f00=0x00d2, f01=0x0190, f02=»-ADDRESS P* A6 = DWT-ADDRESS & P* A7 = LOCAL/REMOTE INDICATION: , & P* 0 IF LOCAL CONNECTION V : P* ADJUSTED CWT-ADDRESS IF REMOTE CONNECTION P* A8 = ECB-ADDRESS P* P* P* P EJECT P*
0x35fecc…360060 Dummy {f00=0x00d2, f01=0x0190, f02=»ANNEL UNIT LOCAL l : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL 4 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANNEL LOCAL V 4 P ENTRY CHLT4 INTERRUPT FROM FOURTH CHANNEL LOCAL : P ENTRY CHRT1 INTERRUPT FROM FIRST CHANNEL UNIT REMOTE : P ENT
0x360060…3601f4 (3, 402) Dummy {f00=0x00d2, f01=0x0190, f02=» FROM FOURTH CHANNEL REMOTE z ( P ENTRY CHLTON START OF CHLT AND CHRT $ P ENTRY CHTAB CHANNEL TABLE P @ P ENTRY DWREMU DWT-DUMMY FOR LOOP-TESTING OF REMOTE CHANNELS r 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS 0 P ENTRY RECHAN NUMBER OF REMOTE
0x3601f4…360388 Dummy {f00=0x00d2, f01=0x0190, f02=»RY LTCHRI CHARACTER INPUT (LOCAL) 0 P ENTRY LTSTBL START OF OUTPUT BLOCK (LOCAL) * * P ENTRY LTCHRO CHARACTER OUTPUT (LOCAL) ^ . P ENTRY LTENBL END OF OUTPUT BLOCK (LOCAL) * P ENTRY LTDISP LOCAL DISPATCHER (LOCAL) P* * P ENTRY RTCHRI CHAR
0x360388…36051c Dummy {f00=0x00d2, f01=0x018e, f02=»TENBL END OF OUTPUT BLOCK (REMOTE) , P ENTRY RTDISP LOCAL DISPATCHER (REMOTE) * P* Z P EJECT d P* r P* | * P************************************** * P* EXTERNAL TOSS MODULE ENTRIES * * P**************************************
0x36051c…3606b0 Dummy {f00=0x00d2, f01=0x0190, f02=» 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL CHANNEL 1 6 P EXTRN INTLT2 INTERRUPT TABLE FOR LOCAL CHANNEL 2 B 6 P EXTRN INTLT3 INTERRUPT TABLE FOR LOCAL CHANNEL 3 | 6 P EXTRN INTLT4 INTERRUPT TABLE FOR LOCAL CHANNEL 4 6 P EXTRN INTRT1 INTERRUPT
0x3606b0…360844 Dummy {f00=0x00d2, f01=0x0190, f02=»NNEL 3 d 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANNEL 4 P* H $ P EXTRN LENDER I/O REQUEST ERROR R & P EXTRN LENDIS END I/O AND DISPATCH z * P EXTRN INTSAV SAVE AREA LAST INTERRUPT . P EXTRN IHRET8 RESTORE A1-A8 WITHOUT ENABLE P*
0x360844…3609d8 Dummy {f00=0x00d2, f01=0x0190, f02=» j 2 P EXTRN NDRETO SET OK & RETURN TO DEVICE DRIVER 6 P EXTRN NDREP GET REGISTERS & RETURN TO DEV. DRIVER > P* x P EJECT P* P* P*********************** P* DWT PARAMETERS * P*********************** P*
0x3609d8…360b6c Dummy {f00=0x00d2, f01=0x0190, f02=»DDRESS-BLOCK v P EXTRN DWTST STATUS P EXTRN DWTOTQ OUTPUT QUEUE 0 & P EXTRN DWTSB2 STACK BASE 2 IN DWT R P EXTRN DWTLD1 TIMER POINTER | & P EXTRN DWTCP2 CHANNEL PARAMETERS 2 ( P EXTRN DWTDEV TERMINAL DEVICE STATUS 0 P EXTRN INTADR INTE
0x360b6c…360d00 Dummy {f00=0x00d2, f01=0x0190, f02=»************** P* CONSTANTS * P******************** 2 P* N P* X ( PNOERR EQU 1 RETURN CODE NOT OPERABLE b ( PLRCERR EQU /02 RETURN CODE LRC-ERROR 0 PTIMERR EQU /08 RETURN CODE SOFTWARE TIME-OUT , POUTERR EQU /10 RETURN CODE
0x360d00…360e94 (3, 403) Dummy {f00=0x00e3, f01=0x018e, f02=»K INPUT DEVICE ~ , PINDARQ EQU /20 MASK INPUT DATA REQUESTED & PRECTRI EQU /10 FLAG RECOVERY TRIAL F $ PLRCSEN EQU /08 FLAG LRC-SENDING p ( PLMPQUE EQU /04 FLAG LAMP CODE QUEUED . PKBLAMP EQU /08 MASK KB-LAMPS ON VDU OUTPUT , PTIME EQU 5 TIME BE
0x360e94…361028 Dummy {f00=0x00e3, f01=0x0190, f02=» v ( PESCKB EQU /1C ESCAPE CODE DATA TO KB 4 PDUMMSP EQU /3 SPECIAL DUMMY TO GET DATA REQUEST 4 ( P FIRST WHEN PRINTERBUFFER IS EMPTY l 0 PDRQTIM EQU 30 TIME TO NEXT ACK FOR PRINTERS P EJECT P* , P************************************
0x361028…3611bc Dummy {f00=0x00e3, f01=0x0190, f02=»GG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRIVER BY SETTING X:A=1 8 P* t PX:A EQU 1 ~ PLOGING EQU X:A P* P* < P* BY SETTING X:B TO 0,1,2,3 OR 4 THIS DRIVER HANDLES $ P* UP TO FOU
0x3611bc…361350 Dummy {f00=0x00e3, f01=0x018e, f02=»N FAULT AND h 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION CAN BE EXCLUDED FROM L $ P* DRIVER BY SETTING X:C = 0. P* PX:C EQU 1 PACKMUL EQU X:C P* P* < P* BY SETTING X:
0x361350…3614e4 Dummy {f00=0x00e3, f01=0x0190, f02=» P* P* P EJECT P* * , P* REMFC IS " REMOTE TEST FILE CODE " 4 P* STANDARD IS /15 d P* PX:E EQU /15 PREMFC EQU X:E P* P* : P* BY SETTING X:F = 0 THE SOFTWARE TIME-OUT HANDLING @ P*
0x3614e4…361678 Dummy {f00=0x00e3, f01=0x0190, f02=» FOR ONLY LOCAL TERMINALS (RECHAN=0). P* . PX:F EQU 1 U =4 8 PSOFTIM EQU X:F U =4 N P* j P* t B P* IF X:G = 1 THE DRIVER CAN HANDLE OUTPUT TO KEYBOARD LAMPS ~ 4 P* WHEN KEYBOARD IS CONNECTED DIRECTLY TO VDU. P* PX:
0x361678…36180c Dummy {f00=0x00e3, f01=0x0190, f02=» OBTAINED BY SETTING CPU852 EQU 0. P* * PCPU852 EQU 0 4 P* H P* R < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG TO 1. P* PMMUPAG EQU 1 U =4 P* P EJECT P* P**
0x36180c…3619a0 Dummy {f00=0x00e3, f01=0x0190, f02=» TERMINALS | P* P* PCWTLDW EQU 0 LAST OUTPUT DWT & " PCWTLOW EQU 2 LAST OUTPUT WORD J , PCWTITA EQU 4 ADDRESS TO INTERRUPT TABLE p PCWTINR EQU 6 INR PCWTOTR EQU 8 OTR PCWTCIS EQU 10 CIO-START ( PCWTRTC EQU 12 RETRANSMIS
0x3619a0…361b34 (3, 404) Dummy {f00=0x00e3, f01=0x0190, f02=»UMULATOR n PCWTTP EQU 26 TIMER POINTER P XIF 2 P IFT ACKMUL=0 > PCWTTP EQU 18 TIMER POINTER T P XIF v P* P* ONLY REMOTE TERMINALS P* P* & PCWSYNC EQU CWTTP+2 SYNC CHARACTER 4 PLRCDWT EQU CWTTP+4 DWT-S OF
0x361b34…361cc8 Dummy {f00=0x00e3, f01=0x0190, f02=»LK EQU CWTTP+14 BLOCK SENDING INDICATOR P* 0 P EJECT : : P***************************************************** H : P* C W T L T 1 * : P***************************************************** P*
0x361cc8…361e5c Dummy {f00=0x00e3, f01=0x018e, f02=»RY z P* P IFF LOCHAN=0 P* * P DATA 0 LAST OUTPUT DWT 4 P DATA 0 LAST OUTPUT WORD T , P DATA INTLT1 ADDRESS TO INTERRUPT TABLE t P INR A2,0,DWA1 INR P OTR A2,0,DWA1 OTR P CIO A2,1,DWA1 CIO-START " P DATA 0 RETRANSM
0x361e5c…361ff0 Dummy {f00=0x00e3, f01=0x018e, f02=» v $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 0 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ` P* P XIF P* P EJECT P* P* : P*****************************************************
0x361ff0…362184 Dummy {f00=0x00e3, f01=0x0190, f02=» 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 2 P* < PCWTLT2 EQU * F P* Z P IFF LOCHAN=0 d P IFF LOCHAN=1 z P* P* P* PDWA2 EQU /13 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST
0x362184…362318 Dummy {f00=0x00e3, f01=0x0190, f02=» " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE * P DATA 0 SECOND QUEUE @ P* P IFT ACKMUL=1 f P* | P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PR
0x362318…3624ac Dummy {f00=0x00e3, f01=0x0190, f02=»***************** l : P* C W T L T 3 * : P***************************************************** X P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* PCWTLT3 EQU * P* P IFF LOC
0x3624ac…362640 Dummy {f00=0x00e3, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT3 INTERRUPT TABLE > P INR A2,0,DWA3 INR b P OTR A2,0,DWA3 OTR | P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE
0x362640…3627d4 (3, 405) Dummy {f00=0x00e4, f01=0x0190, f02=»D- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* L P XIF V P* b P EJECT l P* z P* : P***************************************************** : P* C W T L T 4 * :
0x3627d4…362968 Dummy {f00=0x00e4, f01=0x0190, f02=» PCWTLT4 EQU * P* P IFT LOCHAN=4 " P* 8 P* B P* L PDWA4 EQU /33 V P* j P DATA 0 LAST OUTPUT DWT t P DATA 0 LAST OUTPUT WORD P DATA INTLT4 INTERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR
0x362968…362afc Dummy {f00=0x00e4, f01=0x0190, f02=»FT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR > , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR f ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT $ P************************
0x362afc…362c90 Dummy {f00=0x00e4, f01=0x0190, f02=»EL NO. 1 h P* CONNECTED TO FIRST CHRT ! P* ! 4 PCWTRT1 EQU * ! > P* ! R P IFF RECHAN=0 ! P* ! r PDWA5 EQU /1 DEVICE ADDRESS ! | P* ! P DATA 0 LAST OUTPUT DWT ! P DATA 0 LAST OUTPUT WORD ! P DATA INTRT1 INTERRUPT TABLE !
0x362c90…362e24 Dummy {f00=0x00e4, f01=0x0190, f02=»EUE TERMINAL 1 ! P DATA 0 QUEUE TERMINAL 2 " P* " 6 P IFT ACKMUL=1 " @ P* " V P DATA 0 NAK-ACKUMULATOR " ` $ P DATA 0 BLOCK ERROR ACKUMULATOR " , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR " ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR " P* "
0x362e24…362fb8 Dummy {f00=0x00e4, f01=0x0190, f02=»RC-PROCESS TERMINAL 1 " z 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 # & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 # R & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 # | , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) # ( P DATA 1 BIT 0: BLOCKSENDING RUNNING # $ P BIT
0x362fb8…36314c Dummy {f00=0x00e4, f01=0x0190, f02=» $ P******************************** $ : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 $ , P* CONNECTED TO FIRST CHRT $ j P* $ PCWTRT2 EQU * $ P* $ P IFF RECHAN=0 $ P* $ P DATA 0 LAST OUTPUT DWT $ P DATA 0 LAST OUTPU
0x36314c…3632e0 Dummy {f00=0x00e4, f01=0x0190, f02=»ATA 0 RETRANSMISSION COUNTER $ P DATA 0 QUEUE TERMINAL 1 % $ P DATA 0 QUEUE TERMINAL 2 % D P* % d P IFT ACKMUL=1 % n P* % P DATA 0 NAK-ACKUMULATOR % $ P DATA 0 BLOCK ERROR ACKUMULATOR % , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR % ( P D
0x3632e0…363474 (3, 406) Dummy {f00=0x00e4, f01=0x018e, f02=»5 SYNC-CHARACTER % 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 & 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 & L & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 & & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 & , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) & $ P DAT
0x363474…363608 Dummy {f00=0x00e4, f01=0x0190, f02=» & n $ P******************************** ' P* ' 0 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 ' : " P* CONNECTED TO SECOND CHRT ' x P* ' PCWTRT3 EQU * ' P* ' P IFF RECHAN=0 ' P IFF RECHAN=1 ' P* ' PDWA6 EQU /11
0x363608…36379c Dummy {f00=0x00e4, f01=0x018e, f02=»NR A2,0,DWA6 INR ' P OTR A2,0,DWA6 OTR ( P CIO A2,1,DWA6 CIO-START ( 2 " P DATA 0 RETRANSMISSION COUNTER ( R P DATA 0 QUEUE TERMINAL 1 ( x P DATA 0 QUEUE TERMINAL 2 ( P* ( P IFT ACKMUL=1 ( P DATA 0 NAK-ACKUMULATOR ( $ P DATA 0 BLOCK ER
0x36379c…363930 Dummy {f00=0x00e4, f01=0x0190, f02=» P IFF RECHAN=0 ) P IFF RECHAN=1 ) P DATA 0 TIMER POINTER ) 0 P DATA /7055 SYNC-CHARACTER ) N 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ) p 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 ) & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ) & P DATA
0x363930…363ac4 Dummy {f00=0x00e4, f01=0x0190, f02=» EJECT ) $ P******************************** * $ P* C W T R T 4 * * 6 $ P******************************** * ^ P* * : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 * " P* CONNECTED TO SECOND CHRT * P* * PCWTRT4 EQU
0x363ac4…363c58 Dummy {f00=0x00e4, f01=0x0190, f02=»TRT2 INTERRUPT TABLE * P INR A2,0,DWA6 INR + P OTR A2,1,DWA6 OTR + 6 P CIO A2,1,DWA6 CIO-START + P " P DATA 0 RETRANSMISSION COUNTER + p P DATA 0 QUEUE TERMINAL 1 + P DATA 0 QUEUE TERMINAL 2 + P* + P IFT ACKMUL=1 + P DATA 0 NAK-ACKUMU
0x363c58…363dec Dummy {f00=0x00e4, f01=0x018e, f02=»R + n P XIF , P IFF RECHAN=0 , P IFF RECHAN=1 , , P DATA 0 TIMER POINTER , B P DATA /7255 SYNC-CHARACTER , ` 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 , & P DATA 0 LRC-ACKUMULATOR TERMIN
0x363dec…363f80 Dummy {f00=0x00e4, f01=0x0190, f02=» , n P* - P XIF - P EJECT - $ P******************************** - , $ P* C W T R T 5 * - T $ P******************************** - | P* - : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 - P* CONNECTED TO THIRD CHRT
0x363f80…364114 (3, 407) Dummy {f00=0x00e5, f01=0x0190, f02=» EQU /21 DEVICE ADDRESS - P* . P DATA 0 LAST OUTPUT DWT . * P DATA 0 LAST OUTPUT WORD . J P DATA INTRT3 INTERRUPT TABLE . j P INR A2,0,DWA7 INR . P OTR A2,0,DWA7 OTR . P CIO A2,1,DWA7 CIO-START . " P DATA 0 RETRANSMISSION COUNTER . P
0x364114…3642a8 Dummy {f00=0x00e5, f01=0x0190, f02=»BLOCK ERROR ACKUMULATOR . , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR / ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR / P P* / | P XIF / P IFF RECHAN=0 / P IFF RECHAN=1 / P IFF RECHAN=2 / P DATA 0 TIMER POINTER / P DATA /7055 SYNC-CHARA
0x3642a8…36443c Dummy {f00=0x00e5, f01=0x018e, f02=»TOR TERMINAL 1 / | & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 0 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 0 @ $ P DATA 1 BLOCK SENDING INDICATOR 0 p P XIF 0 P EJECT 0 $ P******************************** 0 $ P* C W T R T 6 * 0 $ P******
0x36443c…3645d0 Dummy {f00=0x00e5, f01=0x0190, f02=» 0 r P* 1 PCWTRT6 EQU * 1 P* 1 & P IFF RECHAN=0 1 0 P IFF RECHAN=1 1 F P IFF RECHAN=2 1 P DATA 0 LAST OUTPUT DWT 1 r P DATA 0 LAST OUTPUT WORD 1 P DATA INTRT3 INTERRUPT TABLE 1 P INR A2,0,DWA7 INR 1 P OTR A2,1,DWA7 OTR 1
0x3645d0…364764 Dummy {f00=0x00e5, f01=0x0190, f02=»* 1 P IFT ACKMUL=1 2 P DATA 0 NAK-ACKUMULATOR 2 $ P DATA 0 BLOCK ERROR ACKUMULATOR 2 @ , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 2 h ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 2 P XIF 2 P* 2 P IFF RECHAN=0 2 P IFF RECHAN=1 2 P I
0x364764…3648f8 Dummy {f00=0x00e5, f01=0x0190, f02=» DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 4 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 ^ , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 $ P DATA 1 BLOCK SENDING INDICATOR 3 P XIF 3 P EJECT 3 $ P**************
0x3648f8…364a8c Dummy {f00=0x00e5, f01=0x0190, f02=»OR REMOTE CHANNEL NO. 1 3 r " P* CONNECTED TO FOURTH CHRT 4 P* 4 F PCWTRT7 EQU * 4 P P* 4 d P IFT RECHAN=4 4 n P* 4 PDWA8 EQU /31 DEVICE ADDRESS 4 P* 4 P DATA 0 LAST OUTPUT DWT 4 P DATA 0 LAST OUTPUT WORD 4 P DATA INTRT4
0x364a8c…364c20 Dummy {f00=0x00e5, f01=0x0190, f02=»ER 4 t P DATA 0 QUEUE TERMINAL 1 5 P DATA 0 QUEUE TERMINAL 2 5 * P* 5 J P IFT ACKMUL=1 5 T P DATA 0 NAK-ACKUMULATOR 5 j $ P DATA 0 BLOCK ERROR ACKUMULATOR 5 , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 5 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 5
0x364c20…364db4 (3, 408) Dummy {f00=0x00e5, f01=0x0190, f02=»RC-PROCESS TERMINAL 1 5 z 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 6 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 6 R & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 6 | , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 6 $ P DATA 1 BLOCK SENDING INDICATOR 6 P XIF 6
0x364db4…364f48 Dummy {f00=0x00e5, f01=0x0190, f02=»* 6 : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 7 " P* CONNECTED TO FOURTH CHRT 7 H P* 7 n PCWTRT8 EQU * 7 x P* 7 P IFT RECHAN=4 7 P DATA 0 LAST OUTPUT DWT 7 P DATA 0 LAST OUTPUT WORD 7 P DATA INTRT4 INTERRUPT TABLE
0x364f48…3650dc Dummy {f00=0x00e5, f01=0x0190, f02=»0 QUEUE TERMINAL 1 7 P DATA 0 QUEUE TERMINAL 2 8 P* 8 : P IFT ACKMUL=1 8 D P DATA 0 NAK-ACKUMULATOR 8 Z $ P DATA 0 BLOCK ERROR ACKUMULATOR 8 z , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 8 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 8 P XIF 8
0x3650dc…365270 Dummy {f00=0x00e5, f01=0x0190, f02=»NAL 1 8 j 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 B & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 9 l , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 9 $ P DATA 1 BLOCK SENDING INDICATOR 9 P* 9 P XIF 9 P* 9
0x365270…365404 Dummy {f00=0x00e5, f01=0x018e, f02=»************************************************* 9 P* : : 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK : D 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE : ~ P* TERMINALS. : P* : P* : P* : PCHTAB EQU * : P DATA
0x365404…365598 Dummy {f00=0x00e5, f01=0x0190, f02=» P* ; P IFT LOCHAN=1 ; P DATA CWTLT1 ; $ P DATA 0 ; : P DATA 0 ; J P DATA 0 ; Z P XIF ; j P* ; v P IFT LOCHAN=2 ; P DATA CWTLT1 ; P DATA CWTLT2 ; P DATA 0 ; P DATA 0 ; P XIF ; P* ; P IFT LOCHAN=3 ;
0x365598…36572c Dummy {f00=0x00e5, f01=0x0190, f02=»A CWTLT2 ; P DATA CWTLT3 < P DATA CWTLT4 < $ P XIF < 8 P* < D P IFT RECHAN=1 < N P DATA CWTRT1 < d P DATA CWTRT2 < x P XIF < P* < P IFT RECHAN=2 < P DATA CWTRT1 < P DATA CWTRT2 < P DATA CWTRT3 < P DATA CWTRT4 < P
0x36572c…3658c0 Dummy {f00=0x00e5, f01=0x0190, f02=» < P DATA CWTRT6 = P XIF = P* = ( P IFT RECHAN=4 = 2 P DATA CWTRT1 = H P DATA CWTRT2 = P DATA CWTRT3 = p P DATA CWTRT4 = P DATA CWTRT5 = P DATA CWTRT6 = P DATA CWTRT7 = P DATA CWTRT8 = P XIF = PCHTABE EQU * END OF
0x3658c0…365a54 (3, 409) Dummy {f00=0x00e6, f01=0x018e, f02=» * = n ( P************************************ > P* > 6 . P* DUMMY TABLE USED WHEN LOOP-TESTING OF > @ $ P* REMOTE CHANNELS ARE NEEDED. > r P* > PDWREMU EQU * > P IFF RECHAN=0 > P DATA 0 > P DATA /8000 STATUS > P DATA 0,0 > (
0x365a54…365be8 Dummy {f00=0x00e6, f01=0x0190, f02=» $ P DATA DEVECB MMU ECB ADDRESS =4 ? & PDEVECB DATA 0,0,0,0,0,0 MMU ECB =4 ? , P XIF U =4 ? V P IFF RECHAN=0 U =4 ? h P EJECT ? P* ? P* ? * P* L O O P - T E S T S E C T I O N ? P* ? P* ? 2 P* ORDER /00: TEST REMOTE CHANNE
0x365be8…365d7c Dummy {f00=0x00e6, f01=0x0190, f02=» BITS ? d P* IN RETURN CODE OF ECB: @ P* @ 2 2 P* BIT 9: CHANNEL UNIT NOT IN ACTIVE STATUS @ < P* @ r P* @ | . P* BIT 14: ACK NOT RECEIVED AFTER OUTPUT @ P* @ 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT @ P IFT MMUPAG=1 U =4
0x365d7c…365f10 Dummy {f00=0x00e6, f01=0x0190, f02=»S @ t " P DATA IHLOP INTERRUPT HANDLER A PLOPTST EQU * A 0 $ P LD A2,10,A8 GET CHANNEL NUMBER A D P ANK A2,/FF A l P RF(E) DISIIE A ( P CWK A2,RECHAN+RECHAN CHANNEL 1-8 ? A P RF(G) DISIIE A P SLL A2,1 A & P LD A2,CHTAB+8,A2 GET CWT-ADDR
0x365f10…3660a4 Dummy {f00=0x00e6, f01=0x0190, f02=»PT10 EQU * A , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS B P LDR A5,A2 CWT-ADDRESS B B P ANK A1,/40 B ` , P RF(NE) IHLP20 CHANNEL UNIT NOT BUSY =4 B t & P LDK A5,/E0 INDICATE REQUEST GOING B * P ST A5,CWTRST,A2 INDICATE LOOP-TESTING B P ABL TDISP B
0x3660a4…366238 Dummy {f00=0x00e6, f01=0x0190, f02=» GET CHANNEL LOOP STATUS B P ANK A1,3 C P XRK A1,3 C 2 PIHLP10 EQU * C D P LDK A2,0 C X : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANNEL STATUS C j PIHLP20 EQU * U =4 C P ABL LENDIS C P XIF C P EJECT C P* C P* C P*
0x366238…3663cc Dummy {f00=0x00e6, f01=0x0190, f02=» C P* D 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS D 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. D H 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, D ~ 2 P* LOGGS IT AND DETERMINES INPUT WORD TO GET D 0 P* DEVICE NUMBER , LINE NUMBER
0x3663cc…366560 Dummy {f00=0x00e6, f01=0x018e, f02=»DRESS C = CHARACTER D ~ P* E 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 E * 8 P* NAK OUTPUT ERROR D = 0 C = 5 E f 8 P* OER TIME OUT D = 0 C = 0 E 8 P* SER POWER ON D
0x366560…3666f4 (3, 410) Dummy {f00=0x00e6, f01=0x0190, f02=» 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A F 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C F @ 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E F | 8 P* DRD DATA REQUEST DELAYED D # 0 C = 0 F F P*
0x3666f4…366888 Dummy {f00=0x00e6, f01=0x0190, f02=»PUT D # 0 F z P EJECT G P* G . P* C H L T 1 G 8 P* G N P* INTERRUPT FROM CHLT1 G X P* G z PCHLT1 EQU * G P IFF LOCHAN=0 G $ P ST P,INTSAV SAVE LAST INTERRUPT G P* G P IFT CPU852=1 G & P CF A15,SAVE8 SAVE
0x366888…366a1c Dummy {f00=0x00e6, f01=0x0190, f02=» P* H P IFF LOCHAN=0 H P LDK A7,2 INDICATE CHLT1 H $ P RF CLT010 H D P XIF H V P* H b P* H l P* C H L T 2 H v P* H P* INTERRUPT FROM CHLT2 H P* H PCHLT2 EQU * H P IFF LOCHAN=0 H P IFF LOCHAN=1 H $ P ST P,
0x366a1c…366bb0 Dummy {f00=0x00e6, f01=0x0190, f02=»OCHAN=0 H P IFF LOCHAN=1 I P IFT CPU852=0 I & " P MSR 8,A15 SAVE A1-A8 ON STACK I < P XIF I b P* I n P IFF LOCHAN=0 I x P IFF LOCHAN=1 I P LDK A7,4 INDICATE CHLT2 I P RF CLT010 I P XIF I P* I P* I P* C H L T 3 I
0x366bb0…366d44 Dummy {f00=0x00e6, f01=0x0190, f02=» I $ P ST P,INTSAV SAVE LAST INTERRUPT J P* J 0 P IFT CPU852=1 J : & P CF A15,SAVE8 SAVE A1-A8 ON STACK J P P XIF J z P* J P IFF LOCHAN=0 J P IFF LOCHAN=1 J P IFF LOCHAN=2 J P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK J
0x366d44…366ed8 Dummy {f00=0x00e6, f01=0x0190, f02=» J P XIF K P* K P* K P* C H L T 4 K ( P* K > P* INTERRUPT FROM CHLT4 K H P* K j PCHLT4 EQU * K t P IFT LOCHAN=4 K $ P ST P,INTSAV SAVE LAST INTERRUPT K P* K P IFT CPU852=1 K & P CF A15,SAVE8 SAVE A1-A8 ON STACK
0x366ed8…36706c Dummy {f00=0x00e6, f01=0x0190, f02=»FT LOCHAN=4 K P LDK A7,8 INDICATE CHLT4 L P RF CLT010 L 4 P* L F P XIF L P P* L P EJECT L f P* L t P* L ~ P* C H R T 1 L P* INTERRUPT FROM CHRT1 L P* L PCHRT1 EQU * L P IFF RECHAN=0 L P ST P,INTSAV L P
0x36706c…367200 Dummy {f00=0x00e6, f01=0x0190, f02=» " P MSR 8,A15 SAVE A1-A8 ON STACK M P XIF M * P* M 6 P IFF RECHAN=0 M @ P LDK A7,10 INDICATE CHRT1 M V P RF CLT010 M x P XIF M P* M P* C H R T 2 M P* M P* INTERRUPT FROM CHRT2 M P* M PCHRT2 EQU * M P IFF REC
0x367200…367394 (3, 411) Dummy {f00=0x00e6, f01=0x0190, f02=»STACK M t P XIF N P* N P IFF RECHAN=0 N $ P IFF RECHAN=1 N : P IFT CPU852=0 N P " P MSR 8,A15 SAVE A1-A8 ON STACK N f P XIF N P* N P IFF RECHAN=0 N P IFF RECHAN=1 N P LDK A7,14 INDICATE CHRT2 N P RF CLT010 N P XIF N
0x367394…367528 Dummy {f00=0x00e6, f01=0x018e, f02=» N P IFF RECHAN=1 O P IFF RECHAN=2 O $ P ST P,INTSAV SAVE LAST INTERRUPT O 4 P* O P IFT CPU852=1 O f & P CF A15,SAVE8 SAVE A1-A8 ON STACK O | P XIF O P* O P IFF RECHAN=0 O P IFF RECHAN=1 O P IFF RECHAN=2 O P IFT CPU85
0x367528…3676bc Dummy {f00=0x00e6, f01=0x0190, f02=» P LDK A7,18 INDICATE CHRT3 P P RF CLT010 P & P XIF P 8 P* P D P* P N P* C H R T 4 P X P* P n P* INTERRUPT FROM CHRT4 P x P* P PCHRT4 EQU * P P IFT RECHAN=4 P $ P ST P,INTSAV SAVE LAST INTERRUPT P P* P P IFT CPU
0x3676bc…367850 Dummy {f00=0x00e6, f01=0x0190, f02=»E A1-A8 ON STACK P P XIF Q P* Q $ P IFT RECHAN=4 Q . P LDK A7,22 INDICATE CHRT4 Q D P XIF Q f P* Q r P EJECT Q | P* Q ( P* COMMON PART FOR ALL INTERRUPTS Q P* Q * PCLT010 LD A5,CHTAB,A7 GET CWT-ADDRESS Q P* Q P* Q
0x367850…3679e4 Dummy {f00=0x00e6, f01=0x0190, f02=»G=1 Q P* R 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** R P* R N P XIF R X P EJECT R d P* R r & P* DETERMINE TYPE OF INTERRUPT. R | 4 P* MOREOVER, IF REMOTE, GET THE RIGHT CHANNEL R 2 P* OF CHRT AND START OR RESTART SYNC-TIM
0x3679e4…367b78 Dummy {f00=0x00e6, f01=0x0190, f02=» R p & P LDK A7,0 INDICATE LOCAL INTERRUPT S P RF CLT018 S 2 PCLT014 EQU * S D P XIF S X P IFF RECHAN=0 S d P LDR A3,A2 S z . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? S P RF(NN) CLT015 FIRST S > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHAN
0x367b78…367d0c Dummy {f00=0x00e6, f01=0x0190, f02=» P ADR A7,A3 T & P LD A3,CWTRST,A5 LOOP TEST MODE ? T P ABL(N) CLT170 YES T @ P XIF T Z & PCLT018 LDK A1,0 RESET RETURN CODE T f ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? T P IFF RECHAN=0 T P ABL(N) CLT050 T P XIF T $ P ANKL A3,/7000 DEVIC
0x367d0c…367ea0 Dummy {f00=0x00e6, f01=0x0190, f02=»ER T j P* U P LDR A3,A2 U . P ANK A3,/FF DELETE DEVICE AND LINE NUMBER U & P RF(E) CLT030 OER U X P SUK A3,7 U r P RF(E) CLT050 ACK U P ADK A3,2 U P ABL(E) CLT080 NAK U P ADK A3,2 U P ABL(E) CLT100 POWER ON U P IFF RECHAN=
0x367ea0…368034 (3, 412) Dummy {f00=0x00e6, f01=0x0190, f02=»SMISSION FAULT ? U ~ * P RF(NE) CLT025 NO, UNDEFINED INTERRUPT V P* V F P IFT ACKMUL=1 V P 6 P IM CWTADD+2,A5 UPDATE RETRANSM. FAULT ACKUMULATOR V f P XIF V P IFF LOCHAN=0 V P RF EXIIT V P XIF V P* V P IFF RECHAN=0 V PCLT022 E
0x368034…3681c8 Dummy {f00=0x00e6, f01=0x0190, f02=»ESET BIT V ~ P SC A4,LRCACK,A7 AND STORE W " P LD A6,LRCDWT,A7 LRC-DEVICE ? W 2 P RF(E) EXIIT W X P ANK A4,/7F W l P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS W P LDR A4,A6 DWT-ADDRESS W P CF A15,QUESEC CHECK
0x3681c8…36835c Dummy {f00=0x00e6, f01=0x0190, f02=»CKUMULATOR W r P XIF X P IFF RECHAN=0 X P* X 4 P SUK A3,4 VRC-ERROR ? X > P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-ERROR X v " P SUK A3,2 LRC-ERROR IN BLOCK ? X P RF(E) CLT033 YES X P ADK A3,4 X , P RF(E) CLT033 LRC- OR
0x36835c…3684f0 Dummy {f00=0x00e6, f01=0x0190, f02=» P XIF Y P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y ( 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0 P* NOT OPERABLE IF SEVEN NAK OR ECHO OR Y 4 P* OUTPUT ERROR (OER) TWO TIMES Y 2 P* O
0x3684f0…368684 Dummy {f00=0x00e6, f01=0x018e, f02=» IFF LOCHAN=0 Y P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z 2 P XIF Z J P IFF RECHAN=0 Z V P LD A6,LRCDWT,A7 Z l P CWR* A6,A5 LRC-DEVICE ? =3 Z P RF(NE) CLTQUE Z 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS Z P XIF Z & PCL
0x368684…368818 Dummy {f00=0x00e6, f01=0x0190, f02=» Z h P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ N 0 P ORK A3,RECTRI INDICATE RECOVERY TRIAL DONE [ d P ST A3,DWTST,A6 STORE [ . PCLT032 LDK A1,OUTERR INDICATE OUTPUT ERROR [ PCLT033 EQU * [ ( P ABL CLT107
0x368818…3689ac Dummy {f00=0x00e6, f01=0x018e, f02=» SAME PROCEDURE AS FOR THE OTHER [ | P* ERRORS OF TYPE ABC-. ( 4 P* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME J P* PROCEDURE AS FOR ABC+. P* PCLT042 EQU * P LD A4,DWTST,A6 STATUS WORD " P ANK A4,DEWDRQ BLOCK SENDING ?
0x3689ac…368b40 Dummy {f00=0x00e6, f01=0x0190, f02=» P* ] 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ] < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT ] J P* OR THOSE IN ECHO MODE. ] P* ] PCHPOWO EQU * ] , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE ] . P CM CWTRTC,A
0x368b40…368cd4 (3, 413) Dummy {f00=0x00e7, f01=0x018e, f02=»IF ] P IFF RECHAN=0 ^ P U =1 ^ . P CM LRCDWT,A7 RESET LRC-DEVICE POINTER =1 ^ 0 P LDK A7,1 U =1 ^ b 6 P ANS A7,CWTBLK,A5 RESET BLOCKSENDING RUN. IND. =1 ^ x P XIF ^ $ PCPO010 LDR A3,A6 DEVICE COUNTER ^ P U =4 ^ " P LDR A1,A8 SET ADD
0x368cd4…368e68 Dummy {f00=0x00e7, f01=0x0190, f02=» P SLC A6,1 _ P U =4 _ P LDKL A7,/FFFF-RECTRI-LRCSEN _ & 6 P ANS A7,DWTST,A6 RESET RECOVERY BIT AND LRC-BIT =1 _ J " P LD A7,DWTST,A6 STATUS WORD =4 _ $ P ANK A7,DEVINP INPUT DEVICE ? =4 _ P RF(NE) CPO023 YES =4 _ P LC A7,DWTST,A6 _ P
0x368e68…368ffc Dummy {f00=0x00e7, f01=0x0190, f02=» RF(E) CPO030 YES _ PCPO025 EQU * ` & P LDK A4,3 RECOVERY CAUSE: POWER ON ` . ( P CF A15,NDREDW CALL RECOVERY ROUTINE ` X PCPO030 EQU * ` P ADK A1,2 ` $ P SUK A3,2 ALL DEVICES THREATED? ` P RB(NE) CPO020 NO TAKE NEXT ` PEXIIT RF EXIT `
0x368ffc…369190 Dummy {f00=0x00e7, f01=0x0190, f02=»I ` | ( P ANS A1,DWTST,A6 RESET RECOVERY BIT a ( P LDK A1,NOERR INDICATE NOT OPERABLE a 6 & P ABL CLT107 RESET TIMER AND FINISH a b PCLT046 EQU * a P ABL CLT110 a P EJECT a P* a P* A C K , D R I a 2 P* FIRST RESOLVE QUEUE AND THEN
0x369190…369324 Dummy {f00=0x00e7, f01=0x0190, f02=»ROP IT. a 8 P* NORMAL ACK OR DRI WILL RESULT IN A RESETTING OF b 8 P* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA b L < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED b < P* OUT. FOR DEVICES WITH DATA REQUEST FUNCTION A TIMER b : P
0x369324…3694b8 Dummy {f00=0x00e7, f01=0x0190, f02=»ACK WE HAVE TO WAIT FOR A DRD. b PCLT050 EQU * c & P IFF RECHAN=0 c : & P LC A3,CWTLOW,A5 LAST OUTPUT WORD c P " P ANK A3,/F0 KEEP DEVICE NUMBER c z P XIF c P CF A15,QUEUE RESOLVE QUEUE c P LDKL A4,/FFFF-RECTRI c 6 P ANS A4,DWTST,A6 RESET REC
0x3694b8…36964c Dummy {f00=0x00e7, f01=0x0190, f02=» P IFF RECHAN=0 d P LDK A4,2 d 4 P ORS A4,CWTRST,A5 INDICATE ACK IN CHANNEL STATUS d , P LDR A8,A3 OBC-ACK ? d d P RF(NE) CLT052 NO d P LDKL A3,/8000 d * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED d P RF CLT055 d P XIF d PCLT052 EQU *
0x36964c…3697e0 Dummy {f00=0x00e7, f01=0x0190, f02=» d P IFF LOCHAN=0 e P LDR A7,A7 REMOTE ? e , P RB(Z) CLT046 NO, RETURN TO DEV. DRIVER e : P XIF e j P IFF RECHAN=0 e v P CW A6,LRCDWT,A7 e P ABL(NE) CLT110 e P XIF e P IFT RECHAN=0 e & P RB CLT046 RETURN TO DEVICE DRIVER e P
0x3697e0…369974 (3, 414) Dummy {f00=0x00e7, f01=0x0190, f02=»55 EQU * e P IFF SOFTIM+RECHAN=0 U =4 f P INH f 2 , P LD A3,DWTLD1,A6 ADDRESS TO TIMER BLOCK f > P RF(E) CLT060 f n P* f P* RESTART TIMER f P* f " P LDKL A3,-DRQTIM RESTART TIMER f P ST* A3,DWTLD1,A6 f P RF CLT068 f P* f
0x369974…369b08 Dummy {f00=0x00e7, f01=0x0190, f02=» ADD DWT-ADDRESS f " P CF A15,SETIMP GET TIMER BLOCK g > P DATA DRQTUT,DRQTIM ADDRESS TO TIME-OUT ROUTINE AND DELAY g > PCLT068 EQU * g P IFF RECHAN=0 g P LDR A8,A8 OBC-ACK ? g P RF(E) EXIT YES g P LDK A1,0 g " P LD A4,DWTST,A6 DEVICE S
0x369b08…369c9c Dummy {f00=0x00e7, f01=0x018e, f02=»QUEST IMMEDIATE ? g ~ P ABL(N) CLT110 YES =2 h P XIF h 8 " PEXIT ABL TDISP DISPATCHER EXIT h D P IFF SOFTIM+RECHAN=0 U =4 h j P EJECT h P* h 8 P* TIME-OUT ROUTINE HANDLING MISSING DATA REQUESTS h : P* FROM PRINTERS AND , FOR REMOTLY CON
0x369c9c…369e30 Dummy {f00=0x00e7, f01=0x0190, f02=» h PDRQTUT EQU * i P LDR A6,A1 GET DWT-ADDRESS i . P CM DWTLD1,A6 RESET POINTER TO TIMER BLOCK i > P LD A3,DWTST,A6 i p P RB(N) EXIT i P SLL A3,2 ECHO MODE ? i P RF(N) DRQT10 YES i P LDK A2,/83 i P CC A2,DWTOCH,A6 i P RB(E) E
0x369e30…369fc4 Dummy {f00=0x00e7, f01=0x0190, f02=»INCREMENT ACKUMULATOR i P XIF j P* j * P IFF SOFTIM+RECHAN=0 U =4 j 4 . P LDK A1,TIMERR INDICATE SOFTWARE TIME-OUT j V P IFF RECHAN=0 j P SLL A3,6 DEVICE STATUS j , P RF(NN) DRQT20 DEVICE WITH DATA REQUEST j & P LDK A1,LRCERR INDICATE LR
0x369fc4…36a158 Dummy {f00=0x00e7, f01=0x0190, f02=» j P EJECT k P* k P* N A K k P* k 2 8 P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS k < 8 P* UPDATED. LAST OUTPUT CHARACTER IS RETRANSMITTED k x < P* BY CHANNEL DRIVER SIX TIMES AND IF STILL NO SUCCESS k < P* RETURN CODE NOT
0x36a158…36a2ec Dummy {f00=0x00e7, f01=0x0190, f02=» k P IFT ACKMUL=1 l P* l * P IM CWTADD,A5 UPDATE ERROR ACKUMULATOR l ( P* l V P XIF l ` P* l l P IFF RECHAN=0 l v P CWK A6,1 SYNC BEFORE NAK? l P RB(E) EXIT YES l P XIF l 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER l P
0x36a2ec…36a480 Dummy {f00=0x00e7, f01=0x018e, f02=» EX CWTOTR,A5 EXECUTE OTR-INSTR. l P IFT LOGING=1 m ( 2 P CF A15,LOGG ** LOGG INPUT CHARACTER ** m > P XIF m t P U =4 m P IFF RECHAN=0 m P IFF LOCHAN=0 m P LDR A7,A7 REMOTE? m P RF(Z) CLT090 NO m P XIF m P IFF RECHAN=0
0x36a480…36a614 (3, 415) Dummy {f00=0x0103, f01=0x0190, f02=» PCLT090 ABL TDISP n P EJECT n P* n * P* n 4 $ P* DATA INPUT AND DATA REQUEST n > P* n f > P* ALWAYS: GET DWT-ADDRESS FROM INTERRUPT TABLE n p P* n D P* DATA INPUT: IF INPUT REQUESTED FROM DEVICE, RETURN TO n ( P*
0x36a614…36a7a8 Dummy {f00=0x0103, f01=0x0190, f02=»INE OF DEVICE DRIVER. n v P* o P* DATA REQUEST: o ( P* o B < P* LOCAL DEVICES: STORE PRINTER STATUS IN DWTDEV AND o L 2 P* RETURN TO DEVICE DRIVER. o 2 P* REMOTE DEVICES: RETURN TO DEVICE DRIVER. o P* o 2 P* S
0x36a7a8…36a93c Dummy {f00=0x0103, f01=0x018e, f02=» PCLT100 EQU * p P LDR A3,A2 p P SRL A3,8 p * P LDR A4,A3 p < . P ANK A3,/E 2 * LINE NUMBER FOR LOCAL CONN. p N P IFF RECHAN=0 p P IFF LOCHAN=0 p P LDR A7,A7 LOCAL ? p P RF(Z) CLT103 YES p P XIF p P IFF RECHAN=0 p $ P ANK A
0x36a93c…36aad0 Dummy {f00=0x0103, f01=0x0190, f02=» & P ADK A3,2 YES, ADD TERMINAL NUMBER q P XIF q . PCLT103 EQU * q : P SRL A4,3 q N P ANK A4,/E 2 * DEVICE NUMBER q ` P IFF RECHAN=0 q P CWK A4,/E SYNC-INPUT ? q P RF(E) CLT150 YES q P LOOP SWITCH SET q P XIF q 0 P LD* A8,CWTITA
0x36aad0…36ac64 Dummy {f00=0x0103, f01=0x0190, f02=» LDR* A8,A8 ADDRESS TO TERMINAL SECTION q P RB(Z) EXIT NOT DEFINED r 0 P LD A6,-2,A8 GET ID-WORD r P P SUR A6,A4 r p $ P RB(NP) EXIT UNDEFINED INTERRUPT r " P LDR A4,A4 NO DEVICE NUMBER ? r P ABL(E) CHPOWO POWER ON r & P ADR A8,A4 ADDRESS TO DW
0x36ac64…36adf8 Dummy {f00=0x0103, f01=0x0190, f02=»TUS r v 8 P ANK A3,DEVINP+INDARQ MASK INPUT DEV. AND INPUT REQ. s P SUK A3,DEVINP s H 4 P RF(Z) CLT115 INPUT DEV. BUT NO INPUT REQUESTED s ^ 2 P RF(P) CLT108 INPUT DEV. WITH INPUT REQUESTED s " P LD A3,DWTST,A6 DEVICE STATUS s 0 P ANK A3,DEWDRQ DEVICE
0x36adf8…36af8c Dummy {f00=0x0103, f01=0x0190, f02=»T120 YES s P XIF t P IFT LOCHAN=0 t P RF CLT120 t 2 P XIF t D P IFF LOCHAN=0 t P . P SC A2,DWTDEV+1,A6 SAVE PRINTER STATUS =2 t f P RF CLT110 t P XIF t P* t P* t PCLT107 EQU * t P IFF SOFTIM+RECHAN=0 U =4 t P CF A15,
0x36af8c…36b120 Dummy {f00=0x0103, f01=0x0190, f02=»LAG 'INPUT REQUESTED' t x P* u P* RETURN TO DEVICE DRIVER u ( , P* (USED BY ALL DEVICES FOR RETURN) u L P* u | PCLT110 EQU * u & P ABL NDREP RETURN TO DEVICE DRIVER u P* u 0 P* GO TO INTERRUPT ROUTINE OF DEVICE DRIVER u P* u
0x36b120…36b2b4 (3, 416) Dummy {f00=0x0104, f01=0x0190, f02=»HARACTER u x P LDR A5,A6 DWT ADDRESS v P ADKL A5,DWTSB2 STACK BASE v . * P ABR A1 DEVICE DRIVER INTERRUPT ENTRY v P P* v ~ P IFF RECHAN=0 v P EJECT v P* v . P* REMOTE DATA REQUEST AND STATUS MESSAGE v P* v * PCLT120 LDR A7,A2 REMOT
0x36b2b4…36b448 Dummy {f00=0x0104, f01=0x018e, f02=» v p P ABL(E) EXIT YES w P U =2 w P RB CLT110 w 0 P U =2 w B P EJECT w R P* w ` P* w j P* TFU IN LOOP MODE w t P* w PCLT150 EQU * w P LDK A4,1 w P CWR* A4,A5 SYNC SENT ? w P RF(NE) CLT154 w < P LDKL A4,/8001 I
0x36b448…36b5dc Dummy {f00=0x0104, f01=0x0190, f02=» w P* LOOP MODE x P* x PCLT170 EQU * x ( P LDR A3,A2 x < P ANK A3,/FF x N P SUK A3,3 POWER ON ? x b P RF(E) CLT179 YES x ~ $ P LDR* A4,A5 GET LAST OUTPUT DWT x P LDR* A6,A5 x P SUK A4,1 SYNC ? x P RF(E) CLT178 YES x ( P L
0x36b5dc…36b770 Dummy {f00=0x0104, f01=0x0190, f02=»DK A4,2 INDICATE ACK RECEIVED x P RB CLT152 y & P* y 8 P* POWER ON y B P* y X PCLT179 EQU * y b P LDK A3,/E3 y v * P ANS A3,CWTRST,A5 RESET LOOP TEST BIT y P ABL CLT100 y P XIF y P EJECT y P* y P* QUEUE y P* y
0x36b770…36b904 Dummy {f00=0x0104, f01=0x018e, f02=»E. y z 8 P* IF REMOTE DEVICE CHECK QUEUE OF CHANNEL'S OTHER z < P* TERMINAL AND SEND IF SOMETHING THERE. IF NOTHING I z F < P* IN THAT QUEUE, CHECK QUEUE OF INTERRUPTING TERMINAL z & P* AND SEND IF SOMETHING THERE. z P* z PQUEUE EQU * z
0x36b904…36ba98 Dummy {f00=0x0104, f01=0x0190, f02=» , PQUESEC EQU * SECOND ENTRY IN SUBROUTINE { P STR A2,A15 SAVE A2 ON STACK { 4 P U =4 { X P IFF RECHAN=0 { h P IFF LOCHAN=0 { ~ * P LDK A1,0 INDICATE READY FOR LOCAL =4 { P LDR A7,A7 LOCAL ? { P RF(Z) QUEU01 YES { P XIF { P IFF R
0x36ba98…36bc2c Dummy {f00=0x0104, f01=0x0190, f02=»DKL A8,CWTEQ QUEUE FIRST TERMINAL { * PQUEU03 ADR A8,A5 ADD CWT-TABLE-ADDRESS | * PQUEU04 EQU * | X P LDR* A6,A8 QUEUE EMPTY ? | l P U =4 | P IFT RECHAN=0 U =4 | P RF(E) QUEU05 YES =4 | P XIF U =4 | P IFF RECHAN=0 | P RF(E) QUEU1
0x36bc2c…36bdc0 Dummy {f00=0x0104, f01=0x0190, f02=»6,A4 SAME DEVICE IN QUEUE ? | P RF(E) QUEU06 YES } $ P LD A2,CWTBLK,A5 } > ( P RF(N) QUEU05 BLOCK SENDING RUNNING } V P XIF } PQUEU06 EQU * } * P LD A2,DWTOTQ,A6 TAKE DWT OUT OF QUEUE } * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE } . P LC A2,D
0x36bdc0…36bf54 (3, 417) Dummy {f00=0x0104, f01=0x0190, f02=» OUTPUT QUEUE ? } t P RF(E) QUEU30 ~ " P LDR A6,A4 GET LAST OUTPUT DWT ~ . & P RF(E) QUEU30 UNDEFINED INTERRUPT ~ T P IFF RECHAN=0 ~ ~ P CWK A6,1 SYNC ANSWER ? ~ P RF(E) QUEU30 YES ~ P U =4 ~ P LDK A1,0 ~ P XIF U =4 ~ P ABL R
0x36bf54…36c0e8 Dummy {f00=0x0104, f01=0x0190, f02=»A5 TERMINAL 2 REMOTE ? ~ P RB(E) QUEU01 NO & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE 6 P RB QUEU03 ` P XIF r PQUEU30 ADKL A15,4 ~ P RF LTDISP P IFF RECHAN=0 P EJECT P* P* 0 P* RESTSY = SUBROUTINE TO START OR R
0x36c0e8…36c27c Dummy {f00=0x0104, f01=0x0190, f02=»TER ZERO? v P RF(NE) RESY20 P LDR A1,A5 ( P LDK A4,CWTTP TIMER POINTER : P ADR A4,A5 ADD CWT-ADDRESS ^ P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME P RF RESY30 PRESY20 LDKL A4,-TIME " P ST* A4,CWTTP,A5 RESTART TIME
0x36c27c…36c410 Dummy {f00=0x0104, f01=0x018e, f02=»E FOR SYNC-SENDING | 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS P* SYNC-CHARACTER IS SENT. N P* r PSYNCUT EQU * | $ P CM CWTTP,A1 RESET TIMER POINTER P LDR A5,A1 ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER ( P XRKL A2,/800 CHAN
0x36c410…36c5a4 Dummy {f00=0x0104, f01=0x0190, f02=» P RF(U) EXITA & P CF A15,RESTSY RESTART SYNC TIMER P RF EXITA B PSYNC04 EQU * T , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT h P* P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P I
0x36c5a4…36c738 Dummy {f00=0x0104, f01=0x0190, f02=» XRS A2,LRCACK,A5 UPDATE LRC-ACKUMULATOR P LD A4,CWTRST,A1 LOOP MODE ? 0 P LDR A3,A4 T P ANK A4,/80 f P RF(E) EXITA NO z P ANK A3,/60 P RF(E) SYNC20 THIRD SYNC P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20
0x36c738…36c8cc Dummy {f00=0x0104, f01=0x0190, f02=» j P LD A7,DWTOR,A6 ORDER P ANK A7,/FF & P LD A8,DWTECB,A6 ECB-ADDRESS : , P LD A3,DWTADR,A6 ADDRESS TO ADDRESSBLOCK ^ P ENB * P ABI INTADR,A3 GO TO INTERRUPT HANDLER P XIF P EJECT P* P* CHARACTER INPUT P
0x36c8cc…36ca60 Dummy {f00=0x0104, f01=0x0190, f02=»V8 SAVE A3-A5, A7-A8 IN DWT P RF LTDISP LOCAL DISPATCHER $ P* H P* CHARACTER OUTPUT R P* n PLTCHRO EQU * x PRTCHRO EQU * , P CF A15,NDSAV8 SAVE A3-A5, A7-A8 IN DWT " P CF A15,OUTLIN SEND CHARACTER P* P* LOCA
0x36ca60…36cbf4 (3, 418) Dummy {f00=0x0105, f01=0x0190, f02=» (REMOTE) | P* PRTSTBL EQU * P IFF RECHAN=0 0 P SUK A2,/03 BLOCK LENGTH < 3 F ( P RF(N) LTSTBL YES, SEND WITHOUT LRC j " P LD A2,DWTST,A6 DEVICE STATUS 6 P ANKL A2,DEVECH+LRCSEN ECHO MODE OR LRC RUNNING ? ( P RF(NZ) LTSTBL YES
0x36cbf4…36cd88 Dummy {f00=0x0105, f01=0x0190, f02=»* PRTENBL EQU * P IFF RECHAN=0 " P LD A2,DWTST,A6 DEVICE STATUS 4 P ANK A2,LRCSEN LRC-SENDING ? Z P RF(Z) LTENBL NO ~ P LDK A2,ETB LOAD ETB P RB RTCHRO SEND P XIF P* P* END OF A BLOCK (LOCAL) P*
0x36cd88…36cf1c Dummy {f00=0x0105, f01=0x0190, f02=»UEST ? j P RF(NZ) LTEN20 YES ( P CF A15,RESTIM RESET PRINTER TIMING ( PLTEN20 EQU * T P XIF U =4 h P* z " P* START OF A BLOCK (LOCAL) P* PLTSTBL EQU * 0 P ABL NDRETO SET OK & RETURN TO DEVICE DRIVER P* P E
0x36cf1c…36d0b0 Dummy {f00=0x0105, f01=0x0190, f02=»NNECTION j * P* IF BOTH CONNECTION TYPES ARE USED P* > P* ON ENTRY: H P* A6 = DWT-ADDRESS ^ P* ~ P* ON EXIT: P* A5 = CWT-ADDRESS & P* A7 = 0 IF LOCAL CONNECTION P* PGETCWT EQU * " P L
0x36d0b0…36d244 Dummy {f00=0x0105, f01=0x0190, f02=»,A6 CHANNEL PARAMETERS & P ANKL A7,/0100 REMOTE CONNECTION ? P RF(Z) GET010 NO H P XIF ` P IFF RECHAN=0 l * P LC A7,DWTCP2,A6 CHANNEL PARAMETERS 2 P SRL A7,1 P ANK A7,1 CHANNEL NUMBER * P ORR A5,A7 COMBINE WITH CH. UNIT INDEX
0x36d244…36d3d8 Dummy {f00=0x0105, f01=0x0190, f02=» , PGET010 LD A5,CHTAB+2,A5 GET CWT-ADDRESS . PGETRTN ADKL A15,2 ADJUST STACK POINTER =4 4 P LDR* P,A15 RETURN =4 f P IFF SOFTIM+RECHAN=0 U =4 P EJECT P* P* P* R E S T I M P* 2 P* SUBROUTINE TO RESET TIMER
0x36d3d8…36d56c Dummy {f00=0x0105, f01=0x0190, f02=» P* A6=DWT-ADDRESS P* & PRESTIM EQU * 0 P INH D P STR A7,A15 SAVE A7 ON STACK P & P LD A7,DWTLD1,A6 GET TIMER POINTER t & P RF(Z) REST20 TIMER ALREADY RESET P CM* DWTLD1,A6 RESET TIMER & P CM DWTLD1,A6 RESET TIMER POIN
0x36d56c…36d700 Dummy {f00=0x0105, f01=0x0190, f02=»CT P* P* P* R E S L R C P* 6 0 P* SUBROUTINE TO RESET LRC-DEVICE POINTER, @ < P* BLOCKSENDING RUNNING INDICATOR AND LRC-SENDING BIT. t P* P* ON ENTRY: P* A5 = CWT-ADDRESS P* A6 = DWT-ADD
0x36d700…36d894 (3, 419) Dummy {f00=0x0105, f01=0x0190, f02=»WT,A7 RESET LRC-DEVICE POINTER P LDKL A4,/FFFF-LRCSEN & * P ANS A4,DWTST,A6 RESET LRC-SENDING BIT D P LDK A4,1 r 6 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING IND. P LDR* A4,A15 RELOAD A4 P RB GETRTN RETURN =4 P XIF P EJE
0x36d894…36da28 Dummy {f00=0x0105, f01=0x0190, f02=»IT x P* P* B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER d 8 P* DEVICES ON SAME LINE. IF CHANNEL UNIT NOT FREE P* QUEUE OUTPUT P* POUTLIN E
0x36da28…36dbbc Dummy {f00=0x0105, f01=0x0190, f02=»A1-A8 ON STACK P XIF P* " P IFT KBDIR=1 U =4 , ( P LDKL A8,0 RESET REG FOR INDICATION F P XIF U =4 r P ANK A2,/FF " P CF A15,GETCWT GET CWT-ADDRESS P IFF RECHAN=0 P IFF LOCHAN=0 P LDR A7,A7 LOCAL ? P RF(
0x36dbbc…36dd50 Dummy {f00=0x0105, f01=0x0190, f02=»EL n P SLL A3,1 P LDR A7,A5 GET CWT-ADDRESS , P ADR A7,A3 TERMINAL ADJUSTED CWT-ADDRESS > P XIF n P EJECT z P* ( P* IF UNIT NOT FREE QUEUE OUTPUT. 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY 0 P* RUNNING ON TERM
0x36dd50…36dee4 Dummy {f00=0x0105, f01=0x0190, f02=» v P* POUL100 INH $ P LDR* A3,A5 CHANNEL UNIT FREE ? $ P RF(NE) OUL800 NO L P IFF RECHAN=0 f P IFF LOCHAN=0 | P LDR A7,A7 REMOTE ? P RF(Z) OUL400 NO P XIF P IFF RECHAN=0 P LDR A3,A2 P SUK A3,/82 ST
0x36dee4…36e078 Dummy {f00=0x0105, f01=0x0190, f02=» RF(NE) OUL175 YES P LDK A2,LRCSEN * P ORS A2,DWTST,A6 INDICATE LRC-SENDING 0 P LDK A2,0 ^ $ P ST A6,LRCDWT,A7 SET LRC-DEVICE p , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND P INDICATE FIRST OBC 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PAR
0x36e078…36e20c Dummy {f00=0x0105, f01=0x0190, f02=» QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ? ( P RF(NE) OUL300 NO H P EJECT b P* p P* E T B z P* & P SC A2,LRCACK,A7 INDICATE LAST OBC * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 P*
0x36e20c…36e3a0 Dummy {f00=0x0105, f01=0x018e, f02=» b P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 " , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING : * P RF OUL800 BLOCKSENDING RUNNING, QUEUE j P ( POUL350 LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? " P RF(Z) O
0x36e3a0…36e534 (3, 420) Dummy {f00=0x0105, f01=0x0190, f02=» P XIF P EJECT P* P* ( 4 P* GET DEVICE ADDRESS AND WORK STATION ADDRESS 2 : P* FROM CHANNEL PARAMETERS AND PUT INTO OUTPUT WORD j P* POUL400 EQU * U =4 P IFT KBDIR=1 U =4 , P LD A8,DWTCP2,A6 CHANNEL PARAMETER
0x36e534…36e6c8 Dummy {f00=0x0105, f01=0x0190, f02=»DRESS | P SRC A3,4 TO CORRECT PLACE P IFF RECHAN=0 0 P IFF LOCHAN=0 F P LDR A7,A7 LOCAL ? P RF(NZ) OUL505 NO v P XIF P IFF LOCHAN=0 P ANKL A4,/0700 WS-ADDRESS P SLC A4,1 TO CORRECT PLACE P IFF RECHAN=0
0x36e6c8…36e85c Dummy {f00=0x0105, f01=0x0190, f02=»NE WITH DEVICE ADDRESS , P LC A4,DWTCP2,A6 LEFT BYTE OF CH. PAR. 2 $ P ANK A4,1 REMOTE TERMINAL NUMBER N P SRC A4,5 TO CORRECT PLACE v P XIF POUL508 EQU * . P ORR A3,A4 COMBINE DEV.ADDR. AND WS-ADDR. P IFT KBDIR=1 U =4 , P ANK
0x36e85c…36e9f0 Dummy {f00=0x0105, f01=0x0190, f02=»UTPUT WORD IN A2 ~ P EJECT P* & , P* SEND CHARACTER AND SET CHANNEL BUSY 0 P* ` P IFF RECHAN=0 U =4 j $ P LDK A1,25 LOOP COUNTER FOR OTR P XIF U =4 POUL515 EX CWTOTR,A5 OTR P RF(A) OUL520 ACCEPTED P IFT RECHAN=
0x36e9f0…36eb84 Dummy {f00=0x0105, f01=0x0190, f02=»ES ? ~ P RB(NZ) OUL515 YES P RF OUL800 QUEUE & P XIF U =4 > " POUL518 ADKL A15,20 RESET STACK P " P LDK A1,NOERR SET NOT OPERABLE v 6 P ABL NDREP GET REGISTERS AND RETURN TO DEV.DRIVER POUL520 EQU * P* P IFT LOGING=1
0x36eb84…36ed18 Dummy {f00=0x0105, f01=0x0190, f02=»A2,CWTLOW,A5 STORE LAST OUTPUT WORD P IFF RECHAN=0 , P IFF LOCHAN=0 B P LDR A7,A7 REMOTE ? X P RF(Z) OUL550 NO t P XIF P IFF RECHAN=0 P EJECT P* N P* INDICATE BLOCKSENDING RUNNING IF STX TO DEVICE WITHOUT DATA R
0x36ed18…36eeac Dummy {f00=0x0105, f01=0x018e, f02=»MAL CHARACTER ~ " P LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? < " P RF(Z) OUL540 DEVICE WITH DRD p , P LD A3,CWTBLK,A5 BLOCK SENDING INDICATOR * P RF(Z) OUL540 BLOCKSENDING NOT ALLOWED P LDK A3,/80 2 P
0x36eeac…36f040 Dummy {f00=0x0105, f01=0x0190, f02=» f . P CF A15,RESTSY START OR RESTART SYNC-TIMER P XIF : P* F 6 P* SAVE LAST OUTPUT CHARACTER IN DWT AND RETURN P P* POUL550 EQU * U =4 P IFT KBDIR=1 U =4 * P LDR A8,A8 KB-LAMPS ON VDU-OUTPUT ? =4 P RF(NZ) OUL700 YES
0x36f040…36f1d4 (3, 421) Dummy {f00=0x0105, f01=0x0190, f02=»RESTORE A1-A8 AND RETURN P XIF P* , P IFT CPU852=0 6 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... L P INH z * P ADKL A15,2 ...ADJUST STACK POINTER... P LDR* P,A15 ...AND RETURN P XIF P* P EJECT P* : P*
0x36f1d4…36f368 Dummy {f00=0x0105, f01=0x0190, f02=»DR A7,A7 REMOTE ? P RF(NZ) OUL805 YES P XIF 4 P IFF LOCHAN=0 @ P LDR A7,A5 CWT-ADDRESS V P XIF t , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER P RF(E) OUL820 POUL810 CWR A6,A4 & P RB(E) OUL600 DWT ALREADY IN QUEUE P
0x36f368…36f4fc Dummy {f00=0x0105, f01=0x0190, f02=» P RF OUL840 $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT * POUL840 CM DWTOTQ,A6 SET END OF THREAD > P RB OUL600 l P IFT KBDIR=1 U =4 ~ P EJECT P* & P* KEYBOARD LAMPS ON VDU OUTPUT 4 P* (KEYBOARD CONNECTED TO VDU INSTEAD OF SUM
0x36f4fc…36f690 Dummy {f00=0x0105, f01=0x0190, f02=»ISTER ~ P* POUL900 EQU * " P LD A4,DWTST,A6 DEVICE STATUS , P LDKL A1,/FFFF-LMPQUE R 2 P ANS A1,DWTST,A6 RESET BIT 'LAMP CODE QUEUED' p P ANK A4,LMPQUE , P RB(NZ) OUL510 LAMP CODE ALREADY QUEUED P LDR A1,A5 CWT-ADDRESS
0x36f690…36f824 Dummy {f00=0x0105, f01=0x018e, f02=» IFF RECHAN=0 , P LDR A1,A7 TERMINAL ADJUSTED CWT-ADDRESS P XIF F P IFT KBDIR=1 U =4 R & POUL910 LD A4,CWTEQ,A1 OUTPUT QUEUE l P RF(Z) OUL920 QUEUE EMPTY P CWR A6,A4 , P RB(E) OUL600 THIS DWT ALREADY IN QUEUE * POUL920 ST A4,D
0x36f824…36f9b8 Dummy {f00=0x0105, f01=0x0190, f02=» 0 P ORS A1,DWTST,A6 SET BIT 'LAMP CODE QUEUED' , P LDK A2,ESCKB ESCAPE CODE FOR DATA TO KB < P RB OUL510 l P XIF U =4 ~ P EJECT P* P* P* C H L T O N P* > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF
0x36f9b8…36fb4c Dummy {f00=0x0105, f01=0x0190, f02=»A4,CHTAB " PCON010 SUK A4,2 ALL TREATED ? P RF(NZ) CON020 NO TAKE NEXT 6 ( PRTNA15 ADKL A15,2 RETURN AND ENABLE Z P ENB P LDR* P,A15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS P RB(Z) CON010 P IFF
0x36fb4c…36fce0 Dummy {f00=0x0105, f01=0x0190, f02=» * * P LDK A3,/40 INDICATE CHANNEL NOT BUSY $ P EX CWTCIS,A5 EXECUTE CIO-START 8 P RF(U) CON027 ` $ P LDK A3,0 INDICATE CHANNEL BUSY v . P CF A15,RESTSY START OR RESTART SYNC-TIMER PCON027 EQU * 2 P ST A3,CWTRST,A5 INDICATE C.U. PRESE
0x36fce0…36fe74 (3, 422) Dummy {f00=0x0106, f01=0x0190, f02=»,A5 GET LAST DWT P RB(Z) CON010 P IFF RECHAN=0 . P CWK A6,1 SYNC ? D P RB(E) CON010 P XIF r P CMR A5 RESET LAST OUTPUT ~ P LDK A2,/00 DUMMY P CF A15,OUTLIN SEND IT P RB CON010 P EJECT P* P* L
0x36fe74…370008 Dummy {f00=0x0106, f01=0x0190, f02=» P IFT LOGING=1 P* PLOGG STR A1,A15 ( P LD A1,POINT @ P ADK A1,2 T & P CWK A1,BUFE BUFE IS MAX LOGG AREA f P RF(NE) L1 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD
0x370008…37019c Dummy {f00=0x0106, f01=0x40fc, f02=»1 " PPOINT DATA BUF-2 LOGG POINTER P* 0 P IFT RECHAN=0 : PBUF RES 200 LOGG AREA P P XIF n P IFT LOGING=1 z P IFF RECHAN=0 PBUF RES 1000 LOGG AREA P XIF PBUFE EQU * P* P END @ R OTR WORD
0x37019c…370330 Dummy {f00=0x0106, 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
0x370330…3704c4 Dummy {f00=0x0106, f01=0x0190, f02=» $ P* INIT MINI FIXED DISC COMMANDS P* , PMDI:00 EQU * 6 , P ORKL A1,CIO CONFIG. CIO A1,1,XX INSTR. J P ST A1,READM2 z ( P ORKL A1,/800 FORM SST A1,XX INSTR. P ST A1,READM3 * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,S
0x3704c4…370658 Dummy {f00=0x0106, f01=0x0190, f02=»DDRESS p P ST A2,READ P ST A2,READS " P RTN A14 6 P EJECT F : P****************************************************** T : P* * : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC *
0x370658…3707ec Dummy {f00=0x0106, f01=0x0190, f02=»ERENCED IN: SYSLOD * : P* * 8 : P* ENTRY: A9 = BUFFER ADDRESS * v : P* A11 = SECTOR NUMBER * : P*
0x3707ec…370980 Dummy {f00=0x0106, f01=0x0190, f02=» * n : P* WORK REGISTERS: * : P* * Z : P* SUBROUTINES: * : P*
0x370980…370b14 (3, 423) Opaque[0x194]
0x370b14…370ca8 # DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1cf0, f03=0x0000}
0x370b14…370ca8 IdxSect {
0x370b14…370ca8 f00 = 0x00e7 // 0x370b14 @0x0
0x370b14…370ca8 f01 = 0x0018 // 0x370b16 @0x2
0x370b14…370ca8 gno = [ // 0x370b18 @0x4
0x370b14…370ca8 [0x00]: C0x00e7.0x2.0
0x370b14…370ca8 [0x01]: C0x00e7.0x3.0
0x370b14…370ca8 [0x02]: C0x00e8.0x0.0
0x370b14…370ca8 [0x03]: C0x00e8.0x1.0
0x370b14…370ca8 [0x04]: C0x00e8.0x2.0
0x370b14…370ca8 [0x05]: C0x00e8.0x3.0
0x370b14…370ca8 [0x06]: C0x00e9.0x0.0
0x370b14…370ca8 [0x07]: C0x00e9.0x1.0
0x370b14…370ca8 [0x08]: C0x00e9.0x2.0
0x370b14…370ca8 [0x09]: C0x00e9.0x3.0
0x370b14…370ca8 [0x0a]: C0x00ea.0x0.0
0x370b14…370ca8 [0x0b]: C0x00ea.0x1.0
0x370b14…370ca8 ]
0x370b14…370ca8 }
0x370ca8…370e3c Dummy {f00=0x00e7, f01=0x0190, f02=» 2 P IDENT DRTP03 REL 11.0 81-06-24 870105041100 P : P =4,GREEK CHAR. INCL. B P REL 11.0 81-01-26 b P =3,IMPROV. OF ORDER 37 ~ P REL 11.0 81-01-26 P =2,CORR. FOR ODD ECBADDR. P REL 11.0 81-01-26 P =1,ABORT
0x370e3c…370fd0 Dummy {f00=0x00e7, f01=0x0190, f02=» * ~ < P* PHILIPS TERMINAL SYSTEM PTS * . < P* * n < P* DRTP03 = DRIVER TELLER TERMINAL PRINTER * < P*
0x370fd0…371164 Dummy {f00=0x00e7, f01=0x018e, f02=»********************* n P* < P* THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371 ( P* h , P* AND CONSISTS OF THE FOLLOWING PARTS: r P* $ P* A C T P : ACTIVATION PART P* $ P* R C T P : RECOVERY ROUTINE P*
0x371164…3712f8 Dummy {f00=0x00e7, f01=0x0190, f02=» > P* THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. > P* THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED F 2 P* BUFFER OR FOR ORDER WRITE THE USER BUFFER. > P* THE STRING IS TERMINATED WITH AN EXECUTION CHARACTER. : P* AFTE
0x3712f8…37148c Dummy {f00=0x00e7, f01=0x0190, f02=»E RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING, @ P* AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION < P* TIME OUT. > P* THE RECOVERY ROUTINE SENDS A FIXED FORMATTED STRING TO @ P* THE PRINTER. THIS STRING CONTAINS THE ACTUAL
0x37148c…371620 Dummy {f00=0x00e7, f01=0x0190, f02=» $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE , * P* ORDER 0B : POSITION DOCUMENT N . P* ORDER 24 : SET PRINTER PARAMETERS | 0 P* ORDER 27 : SET DOCUMENT PARAMETERS 4 P* ORDER 37 : TRANSFER DOCUMENT
0x371620…3717b4 (3, 424) Dummy {f00=0x00e7, f01=0x0190, f02=»T 0 : REQUEST ERROR & P* BIT 2 : END OF JOURNAL $ $ P* BIT 10 : DOCUMENT OUT N ( P* BIT 13 : CODE CHECK ERROR v $ P* BIT 15 : NOT OPERABLE P* P* P* NORMAL REGISTER USAGE: P* "
0x3717b4…371948 Dummy {f00=0x00e7, f01=0x0190, f02=»UTPUT COUNTER ~ " P* A5: STACK POINTER P* A6: DWT-ADDRESS < P* A7: ORDER ` P* A8: ECB-ADDRESS ~ P* P* P EJECT P* P*********** P* ENTRIES * P***********
0x371948…371adc Dummy {f00=0x00e7, f01=0x0190, f02=»******* P* P* , P EXTRN LDISP DISPATCHING FROM INTERRUPT $ $ P EXTRN LENDER DISPATCH I/O ERROR T & P EXTRN LENDIS END I/O AND DISPATCH | & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER ( P EXT
0x371adc…371c70 Dummy {f00=0x00e7, f01=0x0190, f02=»SB2 STACK BASE P EXTRN DWTDEV DEVICE STATUS ( P EXTRN DTTP03 DOCUMENT TABLE ADDRESS : ( P EXTRN TLTP03 DOCUMENT TABLE LENGTH f & P EXTRN INPUT GET STATUS INPUT CHAR & P EXTRN STABLK DEF. START OF BLOCK $ P EXTRN ENDBLK DEF. END OF BLOCK
0x371c70…371e04 Dummy {f00=0x00e7, f01=0x0190, f02=» (/00-/0F) r P* PPOTEST EQU /00 TEST PPORECV EQU /01 RECOVERY 8 & PRESTRT EQU /02 RESTART (NOT USED) X PETX EQU /03 EXECUTE ORDER * PPOPPAR EQU /04 SET PRINTER PARAMETERS $ PPODSTA EQU /05 DIAGNOSTIC STATUS " PEXE EQU /06 EX
0x371e04…371f98 Dummy {f00=0x00e7, f01=0x0190, f02=» DOCUMENT | $ PLF EQU /0A LINE FEED (NOT USED) $ PPOPDOC EQU /0B POSITION DOCUMENT : PRESET EQU /0C RESET ORDER b PPOWJRL EQU /0D WRITE JOURNAL PSPEC EQU /0E ROOMLESS POINT PTEST EQU /0F TEST (NOT USED) P* ( PENDJ EQU /2000
0x371f98…37212c Dummy {f00=0x00e7, f01=0x0190, f02=»IONAL ASSEMBLY * P************************ P* 8 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOSEN B 8 P* BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW z P* P* NCV = 0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE 1 P
0x37212c…3722c0 Dummy {f00=0x00e7, f01=0x018e, f02=»CE 2 (DEPENDING ON CHAR GEN) z P* 9 USA $ P* 10 DENMARK, NORWAY 2 6 P* T PX:A EQU 0 ^ PSTDNCV EQU 01 p P* ( P* THE CHARACTER FONT CAN BE SELECTED P P* BY SETTING X:B TO : 0=UPPER CASE/SMALL NUMERIC, 1=LOWER CASE/SMALL NUMERIC
0x3722c0…372454 (3, 425) Dummy {f00=0x00e8, f01=0x0190, f02=» P* F P* THE STANDARD CHARACTER PITCH FOR THE DOCUMENT STATION IS CHOSEN D P* BY SETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH X P* PX:C EQU 2 PSTDCPD EQU 0 P* * P* THE JOURNAL STATION CAN BE EXCLUDED P
0x372454…3725e8 Dummy {f00=0x00e8, f01=0x018e, f02=»ON IS CHOSEN D P* BY SETTING X:F TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH P* PX:E EQU 0 f PSTDCPJ EQU 0 x P* : P* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED P* BY SETTING X:F=1 P* PX:F EQU 0
0x3725e8…37277c Dummy {f00=0x00e8, f01=0x0190, f02=» PMMUPAG EQU 1 P* P* " 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION , . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. f P* PCPU852 EQU 0 P* P* MMU BUFFER SIZE P* PX:G EQU 126 PDVBLEN EQU 250
0x37277c…372910 Dummy {f00=0x00e8, f01=0x0190, f02=» P* B P* THE CHARACTERS /B0-/B9 WILL BE CONVERTED TO /1B,/41-/1B,/4A 4 P* BY SETTING X:I=1. GREEK ADDITIONAL CHARACTERS. X P* PX:I EQU 0 * =4 PGREEK EQU X:I * =4 P* P* P* P* B PPRIPAR FORM 1=1,1=0,2=
0x372910…372aa4 Dummy {f00=0x00e8, f01=0x018e, f02=» P********************* P* " P* , P* 6 PPP EQU /2 PRINTER PARAMETERS @ PPPJ EQU /4 PRINT POS JOURNAL d * PAPJ EQU PPJ+1 ACTUAL PRINT POS JOURNAL , PRPJ EQU PPJ REQUESTED PRINT POS JOURNAL " PPPD EQU /6 PRINT POS DOCUMENT
0x372aa4…372c38 Dummy {f00=0x00e8, f01=0x0190, f02=» l 0 PALN EQU LN+1 ACTUAL LINE NUMBER ON DOCUMENT 0 PRLN EQU LN REQUESTED LINE NUMBER ON DOCUMENT < " PDP EQU /A DOCUMENT PARAMETERS p P* P* P********************* P* ECB-DISPLACEMENTS * P********************* P*
0x372c38…372dcc Dummy {f00=0x00e8, f01=0x0190, f02=»ECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB & P EJECT N P* P********** f P* TABLES * x P********** P* P* P* ADDRESS BLOCK P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE IND
0x372dcc…372f60 Dummy {f00=0x00e8, f01=0x0190, f02=»HANDLER ~ P DATA RCTP RECOVERY ROUTINE P* 4 , P* VALID ORDERS WITH ACTIVATION ADDRESSES > P* n PTPTAB EQU * x & P DATA TPTAB0 DEVICE INDEX 0 TABLE & P DATA TPTAB1 DEVICE INDEX 1 TABLE & P DATA TPTAB2 DEVICE INDEX 2 TABLE &
0x372f60…3730f4 (3, 426) Dummy {f00=0x00e8, f01=0x018e, f02=»RNAL) x P DATA TSTSTA P DATA 6 WRITE JOURNAL " P DATA WRTJRL @ P IFT PARORD=1 T $ P DATA /24 SET PRINTER PARAMETERS j P DATA PRTPAR P XIF P DATA /FFFF END OF ORDERS P* PTPTAB1 EQU * DEVICE INDEX 1 " P DATA
0x3730f4…373288 Dummy {f00=0x00e8, f01=0x0190, f02=» P DATA POSDOC P DATA /38 RELEASE DOCUMENT P DATA RELDOC : * P DATA /37 TRANSFER DOCUMENT PARAMETERS N P DATA TRFDOC | P IFT PARORD=1 $ P DATA /24 SET PRINTER PARAMETERS P DATA PRTPAR & P DATA /27 SET DOCUMENT PARAMETERS
0x373288…37341c Dummy {f00=0x00e8, f01=0x018e, f02=»RDERS | P* PTPTAB3 EQU * DEVICE INDEX 3 P DATA /FFFF END OF ORDERS < P* ^ ( P* SYSTEM STANDARD PRINTER PARAMETERS h P* . PSTDPP PRIPAR STANDARD PRINTER PARAMETERS P EJECT P* P* P* A C T P P*
0x37341c…3735b0 Dummy {f00=0x00e8, f01=0x0190, f02=» P* P* PACTP EQU * ACTIVATION ENTRY P* < P* F , P* GET DWT INDEX: 0=JOURNAL, 1=DOCUMENT P P* " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,3 MASK P SLL A2,6 SHIFT * P LD A3,DWTDEV,A6 GET OLD DEVICE INDEX
0x3735b0…373744 Dummy {f00=0x00e8, f01=0x0190, f02=»ET DEVICE INDEX x P ANK A1,/C0 * P SRL A1,5 GET CORESPONDING ORDER TABLE , P LD A2,TPTAB,A1 Z PACT010 LDR* A3,A2 r ( P ABL(N) LENDER NO MORE VALID ORDERS " P SUR A3,A7 TEST IF ORDER VALID $ P RF(E) ACT020 VALID ORDER FOUND P A
0x373744…3738d8 Dummy {f00=0x00e8, f01=0x0190, f02=» ORDER 00 : TEST STATUS P* P* * PTSTSTA EQU * 4 $ P CM ECBCW,A8 CLEAR CONTROL WORD H P LDK A2,3 BLOCK LENGTH p " P LDK A3,POTEST LOAD TEST ORDER P CF A5,ORDER AND SEND * P CF A5,EXECUT EXECUTE ORDER IN PRINTER P U =1
0x3738d8…373a6c Dummy {f00=0x00e8, f01=0x0190, f02=»QU * P LDK A2,3 BLOCK LENGTH ( P LDK A3,PODSTA LOAD DIAGNOSTIC ORDER * P CF A5,ORDER AND SEND V * P CF A5,EXECUT EXECUTE ORDER IN PRINTER t 0 P SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB $ P LDK A1,1 INDICATE NOT OPERABLE P RF TSST80
0x373a6c…373c00 Dummy {f00=0x00e8, f01=0x0190, f02=»ICE INDEX | $ P RF(NZ) TSST40 DEVICE INDEX > 0 $ P ANK A1,/22 TEST PRINTER STATUS : P RF(Z) TSST80 NO ERRORS b " P ANK A1,2 TEST PRINTER STATUS * P RB(NZ) TSST05 JOURNAL ERROR = NOT OP P LDKL A1,ENDJ END OF JOURNAL P RF TSST80
0x373c00…373d94 (3, 427) Dummy {f00=0x00e8, f01=0x0190, f02=»80 ABL LENDIS END REQUEST P EJECT " P* 2 P* < P* ORDER 06 : WRITE JOURNAL F P* j P* t P IFT JOURNL=1 ~ PWRTJRL EQU * P LD A1,DWTDEV,A6 GET STATUS " P ANK A1,/20 TEST LF INDICATOR P RF(NZ) WRJL10 LF EXEC
0x373d94…373f28 Dummy {f00=0x00e8, f01=0x0190, f02=»A2,ECBBA,A8 GET CONTROL CHARACTER =2 P LC A2,1,A2 * =2 , P ANK A2,/FF D P SUK A2,/2B TEST CTRL CHAR X P RF(Z) WRJL10 CTRL CHAR =/2B z ( P LDK A4,2 SET UP 2 LF (CTRL CH =/30) P SUK A2,5 TEST CTRL CHAR P RF(Z) WRJL05 CTRL CHAR =/30
0x373f28…3740bc Dummy {f00=0x00e8, f01=0x0190, f02=»3 SET UP 3 LF (CTRL CH =/31) PWRJL05 EQU * $ P LDK A2,4 BLOCK LENGTH 8 , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER V P CF A5,ORDER AND SEND & P LDR A2,A4 RELOAD NO OF LINE FEED P CF A5,OUT AND SEND * P CF A5,EXECUT EXECUTE ORDER IN
0x3740bc…374250 Dummy {f00=0x00e8, f01=0x0190, f02=»EAR PRINT POSITION | " P LDK A1,/20 SET UP LF EXECUTED ! $ P ORS A1,DWTDEV,A6 IND IN STATUS ! @ PWRJL10 EQU * ! h P LD A2,ECBRL,A8 ! | P ADK A2,2 BLOCK LENGTH ! . P LC A1,DWTDEV+APJ,A6 GET ACTUAL PRINT POS ! 4 P SC A1,DWTDEV+RPJ,A6 SET UP START RE
0x374250…3743e4 Dummy {f00=0x00e8, f01=0x0190, f02=»FFER ! x $ P RF(Z) WRJL60 NO BUFFER TO PRINT " , P LDK A3,POWJRL LOAD WRITE JOURNAL ORDER " 4 P CF A5,ORDER AND SEND " d " P LDK A2,0 LOAD ZERO LINE FEED " P CF A5,OUT AND SEND " 2 P LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4 " $ P LDK A3,2 SET
0x3743e4…374578 Dummy {f00=0x00e8, f01=0x0190, f02=» P LDR A1,A2 GET CHAR IN A1 # P* # & 2 P* EXAMINE CHAR AND UPDATE PRINT POS AND SEND # 0 & P* DEPENDING ON TYPE OF CHARACTER # f P* # P SUK A1,/10 # P RB(N) WRJL20 CHAR </10 # P RF(Z) WRJL30 CHAR = /10 # P SUK A1,9 # * P RF(NZ)
0x374578…37470c Dummy {f00=0x00e8, f01=0x0190, f02=»7 # P RF(N) WRJL40 CHAR </20 SEND $ P SUK A1,/5F $ . P RB(Z) WRJL20 CHAR=/7F $ B P RF(N) WRJL30 CHAR = NORMAL $ ` P SUK A1,/2F $ P RF(Z) WRJL28 CHAR =/AE $ P IFT GREEK=1 * =4 $ 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4 $
0x37470c…3748a0 Dummy {f00=0x00e8, f01=0x0190, f02=»HECK ERROR $ | $ P ORS A1,ECBRC,A8 IN RETURN CODE % P RB WRJL20 % : PWRJL28 LDK A2,/0E % L P RF WRJL40 % f P % x P* UPDATE PRINT POSITION % P % < PWRJL30 ADS A4,DWTDEV+RPJ,A6 ADD 1 OR 2 TO REQ PRINT POS % P % P* SEND CHARACTER TO
0x3748a0…374a34 (3, 428) Dummy {f00=0x00e8, f01=0x0190, f02=» % P* SEND ETX & P & 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER & $ P U =1 & X " P LDR A1,A2 GET PRINTER STATUS & h $ P ANK A1,/27 TEST PRINTER STATUS & P RF(Z) WRJL60 NO ERRORS & " P ANK A1,3 TEST PRINTER STATUS & P RF(NZ) WRJL
0x374a34…374bc8 Dummy {f00=0x00e8, f01=0x018e, f02=»JL60 LC A3,DWTDEV+RPJ,A6 GET REQUESTED PRINT POSITION & 6 P SC A3,DWTDEV+APJ,A6 SET UP ACTUAL PRINT POSITION ' > P RF WRJL70 ' x * PWRJL65 LDK A1,1 INDICATE NOT OPERABLE ' " PWRJL70 ABL LENDIS END REQUEST ' 4 PWRJL80 ABL LENDER END REQUEST WITH REQUEST
0x374bc8…374d5c Dummy {f00=0x00e8, f01=0x0190, f02=» ' ( P LC A4,DWTDEV+ALN,A6 GET ACTUAL LINE ( P ANK A4,/FF ( 4 ( P LD A1,ECBRL,A8 GET REQUESTED LENGTH ( H $ P SUK A1,2 TEST REQUESTED LENGTH ( t P RF(N) WRDO80 REQUEST ERROR ( , P LD A2,ECBBA,A8 GET CONTROL CHARACTER =2 ( P LC A2,1,A2 * =2 ( P
0x374d5c…374ef0 Dummy {f00=0x00e8, f01=0x0190, f02=» A3,0 PREPARE NEW REQ PRINT POS ( * P ADK A4,2 SET REQ LINE = ACT LINE + 2 ) ( P SUK A2,5 ) V " P RF(Z) WRDO05 CTRL CHAR = /30 ) h * P SUK A4,1 SET REQ LINE = ACT LINE + 1 ) P SUK A2,1 ) & P RF(NZ) WRDO05 CTRL CHAR NOT = /31 ) P LDK A4,1 SET RE
0x374ef0…375084 Dummy {f00=0x00e8, f01=0x0190, f02=» : PWRDO07 SC A3,DWTDEV+RPD,A6 SET UP START REQ PRINT POS * , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO * B P LDR A4,A4 * r P RF(Z) WRDO80 REQ LINE=ZERO * PWRDO10 EQU * * P LD A2,ECBRL,A8 * P ADK A2,2 BLOCK LENGTH * ( P LDK A3,POWDOC SET UP
0x375084…375218 Dummy {f00=0x00e8, f01=0x0190, f02=»ORMAL CHARACTER COUNT * z $ P LDK A3,2 SET UP BUFFER POINTER + 6 PWRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER + F P LDR A1,A1 + " P RF(Z) WRDO50 BUFFER FINISHED + P LDR A1,A2 GET CHARACTER + P + 8 P* EXAMINE CHARACTER AND UPDATE PRINT P
0x375218…3753ac Dummy {f00=0x00e8, f01=0x018e, f02=»CHAR = /10 SEND + PWRDO22 SUK A1,9 , * P RF(NZ) WRDO27 CHAR NOT /19 (=EXPAND) , 0 , P XRKL A4,/300 SWITCH CHAR COUNTER IN A4 , ^ P RF WRDO40 SEND EXPAND CHAR , PWRDO27 SUK A1,7 , " P RF(N) WRDO40 CHAR < /20 SEND , P SUK A1,/5F , P RF(
0x3753ac…375540 Dummy {f00=0x00e8, f01=0x0190, f02=» , | 4 P CF A5,GRECON CONVERSION FOR GREEK CHARACTERS =4 - P LDR A1,A1 * =4 - @ * P RF(Z) WRDO30 SUCCESSFUL CONVERSION =4 - X P XIF * =4 - ( P LDK A1,4 INDICATE CODE CHECK ERROR - $ P ORS A1,ECBRC,A8 IN RETURN CODE - P RB WRDO20 - & PWRDO28 LDK
0x375540…3756d4 (3, 429) Dummy {f00=0x00e9, f01=0x0190, f02=»REQ PRINT POS - f P . " P* SEND CHARACTER TO PRINTER . P . D & PWRDO40 CF A5,OUTPUT SEND CHARACTER . L P ABL(NZ) ERTP JMP IF ERROR . v P RB WRDO20 GET NEXT CHAR . P . P* SEND ETX . P . 0 PWRDO50 CF A5,EXECUT EXECUTE ORDER IN PRINTER
0x3756d4…375868 Dummy {f00=0x00e9, f01=0x0190, f02=»NK A1,1 TEST PRINTER STATUS . P RF(NZ) WRDO70 NOT OPERABLE / $ " P ANK A2,4 TEST PRINTER STATUS / H P RF(NZ) WRDO80 REQUEST ERROR / n ( P LC* A1,DWTDEV+DP,A6 DOCUMENT OUT =3 / ( P ANK A1,/78 TEST DOC PAR (TIME OUT) / 0 P RB(NZ) WRTDOC NO TIME OUT USE
0x375868…3759fc Dummy {f00=0x00e9, f01=0x0190, f02=» P RF WRDO65 0 8 PWRDO60 LC A3,DWTDEV+RLN,A6 GET REQUESTED LINE NUMBER 0 6 P LC A4,DWTDEV+RPD,A6 GET REQUESTED PRINT POSITION 0 R 8 PWRDO65 SC A3,DWTDEV+ALN,A6 SET UP ACTUAL LINE NUMBER 0 6 P SC A4,DWTDEV+APD,A6 SET UP ACTUAL PRINT POSITION 0 P ANK A
0x3759fc…375b90 Dummy {f00=0x00e9, f01=0x0190, f02=» GET ACTUAL LINE NUMBER 0 v P ANK A3,/FF 1 6 P ST A3,ECBCW,A8 SET UP ACTUAL LINE IN CONTROL WORD 1 4 . P ABL LENDER END REQUEST WITH REQUEST ERROR 1 n P EJECT 1 P* 1 P* 1 $ P* ORDER 0B : POSITION DOCUMENT 1 0 P* CONTROL WORD CONTAINS REQU
0x375b90…375d24 Dummy {f00=0x00e9, f01=0x0190, f02=» LD A1,DWTDEV+DP,A6 GET NUMBER OF LINES =3 1 P CC A4,2,A1 * =3 2 2 & P RF(G) PDOC80 REQ LINE > MAX LINE 2 J , P SC A4,DWTDEV+RLN,A6 SET UP REQ LINE NO 2 t P LDK A2,4 BLOCK LENGTH 2 : P LDK A3,POPDOC SET UP PRINTER POSITION DOCUMENT ORDER 2 P CF A5,O
0x375d24…375eb8 Dummy {f00=0x00e9, f01=0x0190, f02=»1,A2 GET PRINTER STATUS 2 $ P ANK A1,/45 TEST PRINTER STATUS 3 P RF(Z) PDOC10 NO ERRORS 3 H " P ANK A1,1 TEST PRINTER STATUS 3 h P RF(NZ) PDOC70 NOT OPERABLE 3 " P ANK A2,4 TEST PRINTER STATUS 3 P RF(NZ) PDOC80 REQUEST ERROR 3 ( P LC* A1,DWTD
0x375eb8…37604c Dummy {f00=0x00e9, f01=0x0190, f02=»DOCOUT INDICATE DOCUMENT OUT 3 P LDK A4,0 RESET LINE COUNTER 4 $ 6 PPDOC10 SC A4,DWTDEV+ALN,A6 PDATE OF LINE COUNTER 4 H 2 P CM DWTDEV+PPD,A6 RESET PRINT POSITION COUNTER 4 " PPDOC70 ABL LENDIS END REQUEST 4 4 PPDOC80 ABL LENDER END REQUEST WITH REQUEST
0x37604c…3761e0 Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P* TO /41-/4A. THE SPECIAL CHARACTER /1B WILL 5 0 P* BE SENT TO THE PRINTER BEFORE RETURN FROM 5 8 > P* THIS ROUTINE. REG A1 WILL BE SET TO ZERO IF SUCCESSFUL. 5 l P IFT GREEK=1 * =4 5 PGRECON EQU * * =4 5 P SUK A1,2 * =4 5 P RF(N) GRCO80 CH
0x3761e0…376374 (3, 430) Dummy {f00=0x00e9, f01=0x0190, f02=» & P LDK A2,/1B SET UP SPECIAL CHAR =4 6 $ P CF A5,OUTPUT SEND CHARACTER =4 6 . P LDR A2,A4 RESTORE CHAR =4 6 V P ANK A2,/FF * =4 6 x 0 P SUK A2,/6F CONVERT CHAR (/B0 = /41 ETC.) =4 6 & P ANKL A4,/FF00 CLEAR USED BITS =4 6 0 P LDK A1,0 INDICATE SUCCESS
0x376374…376508 Dummy {f00=0x00e9, f01=0x0190, f02=»NT PARAMETERS 6 r 4 P* CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER 7 P* 7 N P* 7 X PTRFDOC EQU * 7 b P LD A1,ECBCW,A8 7 v P ADK A1,1 7 P LDR A4,A1 7 P SLL A4,3 7 P ADR A4,A1 7 P ADR A4,A1 7 P CWK A4,TLTP03 7 , P RF(G) ODO
0x376508…37669c Dummy {f00=0x00e9, f01=0x0190, f02=»NK A1,/FF TEST LINE NUMBER 7 , P RF(Z) ODOC20 DOCUMENT NOT YET POS (OK) 8 " $ P LCR A1,A4 GET DOCUMENT TYPE =3 8 R P ANK A1,4 8 z 0 P RF(Z) ODOC80 REQUEST ERROR FOR DOC TYPE 0-3 8 PODOC20 EQU * 8 , P ST A4,DWTDEV+DP,A6 SAVE DOC PAR ADDR =3 8 P LDK
0x37669c…376830 Dummy {f00=0x00e9, f01=0x0190, f02=»TH =3 8 t * PODOC30 LCR A2,A4 GET DOC PARAMETER =3 9 P CF A5,OUT SEND PARAMETER =3 9 < " P ADK A4,1 INC TABLE POINTER =3 9 ` & P SUK A3,1 DEC PARAMETER COUNTER =3 9 ( P RB(NE) ODOC30 WHOLE TABLE NOT SENT 9 * P CF A5,EXECUT EXECUTE ORDER IN PRINTER 9
0x376830…3769c4 Dummy {f00=0x00e9, f01=0x0190, f02=»80 ABL LENDER END REQUEST WITH REQUEST ERROR 9 P EJECT : 4 P* : D P* : N * P* ORDER 24 : SET PRINTER PARAMETERS : X P* CONTROL WORD CONTAINS: : 6 P* BIT 0 : INDICATE CHANGE OF CH FONT AND NCV : " P* BIT 01-03 : CHARACTER FONT : 0 P
0x3769c4…376b58 Dummy {f00=0x00e9, f01=0x0190, f02=»R PITCH FOR DOCUMENT STATION : x P* ; $ P* ; . P IFT PARORD=1 ; 8 PPRTPAR EQU * ; N P LDK A2,0 ; b * P LD A4,DWTDEV+PP,A6 GET OLD DWT VALUE ; t 0 P ABL(NN) LDISP WAIT FOR INITIAL RECOVERY =1 ; $ P LD A1,ECBCW,A8 GET CONTROL WORD ; 4 P RF(NN) PP
0x376b58…376cec Dummy {f00=0x00e9, f01=0x0190, f02=»AR10 LDK A2,0 ; P LDR A3,A1 < P ANK A3,/F0 GET CTRL WORD < ( . P RF(NZ) PPAR15 NEW CPJ SET UP IN CTRL WORD < J P LDR A3,A4 < | P ANK A3,/F0 < PPPAR15 EQU * < " P ORR A2,A3 STORE NEW CPJ IN A2 < P XRR A3,A4 < ( P ANK A3,/F0 NEW AND OLD CP
0x376cec…376e80 Dummy {f00=0x00e9, f01=0x0190, f02=» P ANK A3,/F GET CTRL WORD = . P RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD = $ P LDR A3,A4 = V P ANK A3,/F GET CPD FROM DWT = h P = PPPAR25 EQU * = " P ORR A2,A3 STORE NEW CPD IN A2 = P XRR A3,A4 = & P ANK A3,/F NEW AND OLD CPD EQUAL ? =
0x376e80…377014 (3, 431) Dummy {f00=0x00e9, f01=0x0190, f02=»PARAMETERS IN DWT = p P LDK A2,5 BLOCK LENGTH > 8 P LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER > 8 P CF A5,ORDER AND SEND > t P LC A2,DWTDEV+PP,A6 > P CF A5,OUT SEND L/NCV > P LC A2,DWTDEV+PP+1,A6 > P CF A5,OUT SEND CPJ/CPD > *
0x377014…3771a8 Dummy {f00=0x00e9, f01=0x0190, f02=» " PPPAR70 ABL LENDIS END REQUEST ? P XIF ? * P EJECT ? 6 P* ? F P* ? P * P* ORDER 27 : SET DOCUMENT PARAMETERS ? Z : P* CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS ? P* ? P* ? P IFT PARORD=1 ? PDOCPAR EQU * ? $ P LD
0x3771a8…37733c Dummy {f00=0x00e9, f01=0x0190, f02=»TP03 ? * P RF(G) DPAR80 DEFINED TABLE TOO SMALL @ $ P SUK A4,10 ADJUST DOCTAB POINTER @ : & P LD A3,ECBBA,A8 GET BUFFER ADDRESS @ b P CF A5,BYTE1 GET DOC TYPE @ P SUK A1,7 @ P RF(P) DPAR80 ILLEGAL VALUE @ P SC A2,DTTP03,A4 @ $ P CF A5,BYTE1
0x37733c…3774d0 Dummy {f00=0x00e9, f01=0x0190, f02=»R80 TOO LARGE @ P CF A5,DOC GET NO OF LINES A P SUK A2,0 A 8 P RF(Z) DPAR80 NO LINES A J P CF A5,DOC GET BOTTOM LINES A h P SUK A2,14 A P RF(N) DPAR80 TOO SMALL A P CF A5,DOC GET MARGIN A P SUK A2,0 A P RF(Z) DPAR80 TOO SMALL A
0x3774d0…377664 Dummy {f00=0x00e9, f01=0x0190, f02=»PAR80 TOO SMALL A P SUK A1,7 B P RF(P) DPAR80 TOO LARGE B * P SC A2,DTTP03,A4 B J P CF A5,BYTE1 GET LEFT MARGIN B b P SUK A1,1 B P RF(P) DPAR80 ILLEGAL VALUE B P SLL A2,3 B P ORS A2,DTTP03,A4 B $ P CF A5,BYTE1 GET CRITICAL MARGIN
0x377664…3777f8 Dummy {f00=0x00e9, f01=0x0190, f02=»ESSURE B r P SUK A1,1 C P RF(P) DPAR80 ILLEGAL VALUE C P SLL A2,6 C D P ORS A2,DTTP03,A4 C V " P LC* A1,ECBBA,A8 GET DOC TYPE C p P ANK A1,/B C P RF(Z) DPAR60 DOC TYPE = 0 C P CF A5,DOC GET UPPER EDGE C P SUK A2,15 C P RF(N) DPA
0x3777f8…37798c Dummy {f00=0x00e9, f01=0x018e, f02=»0 OK C P SUK A2,24 D P RF(N) DPAR80 TOO SMALL D ( PDPAR30 LC* A1,ECBBA,A8 GET DOC TYPE D > P ANK A1,/B D j P SUK A1,2 D | P RF(N) DPAR70 DOC TYPE = 1 D P RF(P) DPAR40 DOC TYPE = 3 D " P CF A5,DOC GET DOCUMENT WIDTH D P SUK A2,40 D
0x37798c…377b20 Dummy {f00=0x00e9, f01=0x0190, f02=» D n P SUK A2,0 E P RF(Z) DPAR80 TOO SMALL E P SUK A2,40 E : P RF(P) DPAR80 TOO LARGE E L & PDPAR50 CF A5,DOC GET CENTER WIDTH E l P RF DPAR75 OK E 0 PDPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0 E P ADK A4,1 E P ST A2,DTTP03,A4 E
0x377b20…377cb4 (3, 432) Dummy {f00=0x00e9, f01=0x018e, f02=»ATUS OK FOR RETURN CODE E z P ABL LENDIS END REQUEST F 4 PDPAR80 ABL LENDER END REQUEST WITH REQUEST ERROR F @ P F x 2 P* GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 F $ P* CONVERTED TO HEXA FROM ASCII F P F " PBYTE1 LCR A2,A3 GET CHARACTER F
0x377cb4…377e48 Dummy {f00=0x00e9, f01=0x0190, f02=» F n P RTN A5 G P G , P* GET TWO BYTES FROM ECB BUFFER TO A2 G 2 P* CONVERTED TO HEXA AND STORED IN DOC TABLE G P P G " PDOC LDK A1,0 CLEAR HEXA VALUE G P ADK A4,1 INC TABLE POINTER G , P LCR A2,A3 GET CHARACTER FROM ECB BUFFER G P
0x377e48…377fdc Dummy {f00=0x00e9, f01=0x0190, f02=» G x P RB DOC10 H * PDOC20 ADK A3,1 INC ECB BUFFER POINTER H 2 P LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER H H P CF A5,CHECK TEST IF NUMERIC H ~ P ANK A2,/F H & P ADR A2,A1 ADD TO PREV HEXA VALUE H ( P SC A2,DTTP03,A4 STORE IN DOC TABLE H $
0x377fdc…378170 Dummy {f00=0x00e9, f01=0x0190, f02=»CHARACTER H v P SUK A2,/30 I P RB(N) DPAR80 TOO LOW ERROR I & P SUK A2,9 I J P RB(P) DPAR80 TOO HIGH ERROR I " P ADK A2,/39 RESTORE CHARACTER I P RTN A5 I P XIF I P EJECT I P* I P* I $ P* ORDER 38 : RELEASE DOCUMENT I
0x378170…378304 Dummy {f00=0x00e9, f01=0x018e, f02=»ER AND SEND I * P CF A5,EXECUT EXECUTE ORDER IN PRINTER J " P LDR A1,A2 GET PRINTER STATUS J B " P ANK A1,1 TEST PRINTER STATUS J h P RF(NZ) RDOC70 NOT OPERABLE J ( P CM DWTDEV+LN,A6 RESET LINE COUNTERS J 4 P CM DWTDEV+PPD,A6 RESET PRINT POSITION COU
0x378304…378498 Dummy {f00=0x00e9, f01=0x0190, f02=» P* K P* O R D E R K B P* SEND START OF BLOCK CHAR TO COM. AND ORDER CODE TO PRINTER K $ P* K j PORDER EQU * K t P CF A5,STABLK START OF BLOCK K P RF(NZ) ERTP JMP IF ERROR K * P LDK A2,RESET SEND RESET JUST IN CASE K P CF A5,OUTPU
0x378498…37862c Dummy {f00=0x00e9, f01=0x0190, f02=» SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. K P* L J PEXECUT EQU * L T , P LDK A2,ETX SEND EXECUTE CHAR TO PRINTER L h P CF A5,OUTPUT L P RF(NZ) ERTP JMP IF ERROR L P CF A5,ENDBLK END OF BLOCK L P RF(NZ) ERTP JMP IF ER
0x37862c…3787c0 Dummy {f00=0x00e9, f01=0x018e, f02=»F(Z) EXE10 POS, BIT 3 IN STATUS DON'T CARE =1 L P SUK A1,/38-/0B U =1 M 6 4 P RF(Z) EXE10 REL, BIT 3 IN STATUS DON'T CARE =1 M R * P LDR A1,A2 TEST IF STATUS BIT 3 = 1 =1 M P ANK A1,/18 * =3 M . P RB(Z) EXE05 BIT 3 = 0, READ NEW STATUS =1 M PEXE10
0x3787c0…378954 (3, 433) Dummy {f00=0x00ea, f01=0x0190, f02=» P* N POUT EQU * N P ANK A2,/7F N P ADK A2,/10 N 4 P CWK A2,/7F N H 0 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F N * P LDK A2,/7F IF GREATER SET CHAR TO /7F N POUT10 EQU * N P CF A5,OUTPUT N P RF(NZ) ERTP JMP IF ERROR N
0x378954…378ae8 Dummy {f00=0x00ea, f01=0x0190, f02=»QU * N P IFF REQEND=1 O P LDR A7,A7 O " * P RF(Z) ERTP20 ORDER /00, TEST STATUS ? O 4 0 P ANK A1,/1A OUTP ERR, SOFTW T-OUT, LRC-ERR ? O b P RF(NZ) RCTP YES, RECOVERY O P ABL LDISP NO O P XIF O $ PERTP20 LDK A1,1 SET NOT OPERABLE O P ABL L
0x378ae8…378c7c Dummy {f00=0x00ea, f01=0x0190, f02=»T ORDER IS RESET IF NO REQUEST RUNING O P* DWT IS SET BUSY P . @ P* AFTER PROGRAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT P H 6 P* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM P @ P* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PRINTER P @
0x378c7c…378e10 Dummy {f00=0x00ea, f01=0x0190, f02=»PEATED. P p P* Q PRCTP EQU * Q $ P LD A1,DWTECB,A6 GET ECB ADDRESS Q , " P RF(NZ) RCTP02 REQUEST RUNNING Q T P CM DWTOR,A6 RESET ORDER Q z PRCTP02 EQU * Q ( P LDKL A1,/7FFF INDICATE DEVICE BUSY Q P ANS A1,DWTST,A6 Q P LDKL A5,DWTSB2 STACK
0x378e10…378fa4 Dummy {f00=0x00ea, f01=0x0190, f02=»TTP03 SET UP DOC PAR TABLE 0 IN DWT =3 Q P ST A1,DWTDEV+DP,A6 * =3 R . ( P LD A3,STDPP SET UP ST PR PAR IN DWT R N P ST A3,DWTDEV+PP,A6 R z P * =3 R PRCTP08 EQU * R P LDK A2,3 BLOCK LENGTH R 2 P LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS R
0x378fa4…379138 Dummy {f00=0x00ea, f01=0x0190, f02=»DK A3,PORECV SET UP PRINTER RECOVERY ORDER R P CF A5,ORDER AND SEND S 2 . P LD A3,DWTDEV+PP,A6 GET PRINTER PARAMETERS S P PRCTP20 ECR A2,A3 S P CF A5,OUT SEND L/NCV S P LDR A2,A3 S P CF A5,OUT SEND CPJ/CPD S 0 P LC A2,DWTDEV+APJ,A6 GET ACTUA
0x379138…3792cc Dummy {f00=0x00ea, f01=0x0190, f02=»NK A2,/3F MASK OFF MSB S P CF A5,OUT SEND APD T P LDR A2,A3 GET DOC POS BACK T : P ANK A2,/40 MASK OUT MSB T ^ P CF A5,OUT SEND AP6 T ~ , P LC A2,DWTDEV+ALN,A6 GET ACTUAL LINE NO T P CF A5,OUT AND SEND T PRCTP40 LDK A4,10 T . P LD A3,DWT
0x3792cc…379460 Dummy {f00=0x00ea, f01=0x411a, f02=»C TABLE POINTER T $ P SUK A4,1 DEC CHARACTER COUNTER U ( P RB(NZ) RCTP50 WHOLE TABLE NOT SENT U @ 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER U l PRCTP70 LD A1,DWTECB,A6 U P ABL(NZ) ACT005 REQ RUNNING U P ABL LENDIS REQ NOT RUNNING U
0x379460…3795f4 (3, 434) Dummy {f00=0x00ea, f01=0x2008, f02=» V z P END V @ V
0x3795f4…379788 Dummy {f00=0x00ea, f01=0x0190, f02=»ESET BIT V ~ P SC A4,LRCACK,A7 AND STORE W " P LD A6,LRCDWT,A7 LRC-DEVICE ? W 2 P RF(E) EXIIT W X P ANK A4,/7F W l P RF(Z) CLT046 YES W 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS W P LDR A4,A6 DWT-ADDRESS W P CF A15,QUESEC CHECK
0x379788…37991c Dummy {f00=0x00ea, f01=0x0190, f02=»CKUMULATOR W r P XIF X P IFF RECHAN=0 X P* X 4 P SUK A3,4 VRC-ERROR ? X > P RF(E) CLT042 YES X & P LDK A1,LRCERR INDICATE LRC-ERROR X v " P SUK A3,2 LRC-ERROR IN BLOCK ? X P RF(E) CLT033 YES X P ADK A3,4 X , P RF(E) CLT033 LRC- OR
0x37991c…379ab0 Dummy {f00=0x00ea, f01=0x0190, f02=» P XIF Y P EJECT Y P* Y 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. Y ( 4 P* RETURN TO DEVICE DRIVER WITH RETURN CODE : Y 0 P* NOT OPERABLE IF SEVEN NAK OR ECHO OR Y 4 P* OUTPUT ERROR (OER) TWO TIMES Y 2 P* O
0x379ab0…379c44 Dummy {f00=0x00ea, f01=0x018e, f02=» IFF LOCHAN=0 Y P LDR A7,A7 REMOTE ? Z P RF(Z) CLTQUE NO Z 2 P XIF Z J P IFF RECHAN=0 Z V P LD A6,LRCDWT,A7 Z l P CWR* A6,A5 LRC-DEVICE ? =3 Z P RF(NE) CLTQUE Z 8 P CF A15,RESLRC RESET LRC- AND BLOCKSEND. INDICATORS Z P XIF Z & PCL
0x379c44…379dd8 Dummy {f00=0x00ea, f01=0x0190, f02=» Z h P LDR A3,A2 [ 0 P ANKL A2,DEVECH+RECTRI ECHO AND RECOVERY BIT [ P RF(NE) CLT045 [ N 0 P ORK A3,RECTRI INDICATE RECOVERY TRIAL DONE [ d P ST A3,DWTST,A6 STORE [ . PCLT032 LDK A1,OUTERR INDICATE OUTPUT ERROR [ PCLT033 EQU * [ ( P ABL CLT107
0x379dd8…379f6c Dummy {f00=0x00ea, f01=0x018e, f02=» SAME PROCEDURE AS FOR THE OTHER [ | P* ERRORS OF TYPE ABC-. ( 4 P* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME J P* PROCEDURE AS FOR ABC+. P* PCLT042 EQU * P LD A4,DWTST,A6 STATUS WORD " P ANK A4,DEWDRQ BLOCK SENDING ?
0x379f6c…37a100 Dummy {f00=0x00ea, f01=0x0190, f02=» P* ] 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE ] < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT ] J P* OR THOSE IN ECHO MODE. ] P* ] PCHPOWO EQU * ] , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE ] . P CM CWTRTC,A
0x37a100…37a294 (3, 435) Opaque[0x194]
0x37a294…37a428 # DirEnt {nam=»DRGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d50, f03=0x0000}
0x37a294…37a428 IdxSect {
0x37a294…37a428 f00 = 0x00ea // 0x37a294 @0x0
0x37a294…37a428 f01 = 0x000a // 0x37a296 @0x2
0x37a294…37a428 gno = [ // 0x37a298 @0x4
0x37a294…37a428 [0x00]: C0x00ea.0x2.0
0x37a294…37a428 [0x01]: C0x00ea.0x3.0
0x37a294…37a428 [0x02]: C0x00eb.0x2.0
0x37a294…37a428 [0x03]: C0x00eb.0x3.0
0x37a294…37a428 [0x04]: C0x00ec.0x0.0
0x37a294…37a428 ]
0x37a294…37a428 }
0x37a428…37a5bc Dummy {f00=0x00ea, f01=0x018e, f02=» 2 P IDENT DRGP04 REL 11.0 81-03-13 870105041100 P : . P = 1 ARRANGEMENTS FOR THE FIRST VERSION B P OF COPY80 ARE DELETED t P REL 11.0 81-01-26 P* , P**************************************** P* P* P*
0x37a5bc…37a750 Dummy {f00=0x00ea, f01=0x0190, f02=» , P**************************************** P* 4 * P* THIS DRIVER HANDLES THE HARD COPY > " P* PRINTER HP 75 ( COPY 80 ). l P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P* ORDER /00: TEST STATUS P* ORDER /05:
0x37a750…37a8e4 Dummy {f00=0x00ea, f01=0x0190, f02=»* NORMAL REGISTER USAGE : P* $ P* A1 = RETURN CODE . P* A2 = OUTPUT CHARACTER J P* A3 = BUFFER INDEX l P* A4 = WORK REGISTER P* A5 = STACK BASE P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRE
0x37a8e4…37aa78 Dummy {f00=0x00ea, f01=0x0190, f02=» EXCLUDED BY MEANS OF CONDI- | 4 P* TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE $ 4 P* FINISHED WITHOUT WAITING FOR THE OUTPUT BUF- P* FER TO BE EMPTY. P EJECT P* . P****************************************** P* P*
0x37aa78…37ac0c Dummy {f00=0x00ea, f01=0x0190, f02=» , P**************************************** P* 4 $ P* EXTERNAL TOSS MODULE ENTRIES > P* f , P**************************************** p P* P EXTRN STABLK START OF BLOCK * P EXTRN OUTPUT OUTPUT OF ONE CHARACTER P EXTRN ENDBL
0x37ac0c…37ada0 Dummy {f00=0x00ea, f01=0x0190, f02=» INPUT REQUEST ~ P EXTRN SETIME SETS TIMER ( P EXTRN LENDIS END I/O WITH DISPATCH 6 2 P EXTRN LENDER END I/O WITH ERROR AND DISPATCH b P* P* ECB DISPLACEMENTS P* P EXTRN ECBBA BUFFER ADDRESS " P EXTRN ECBRL REQUESTED LEN
0x37ada0…37af34 (3, 436) Dummy {f00=0x00ea, f01=0x0190, f02=»WTOR ORDER . P EXTRN DWTDEV TERMINAL DEVICE STATUS WORD P* D , PDWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER N " PDWTLFC EQU 4 LINE FEED COUNTER ~ PDWTTP EQU 6 TIMER POINTER P* . P****************************************** P*
0x37af34…37b0c8 Dummy {f00=0x00ea, f01=0x018e, f02=»TX ( /03 ) " PCCERR EQU /4 CODE CHECK ERROR PTIME EQU /1 100 MILLISECONDS 8 P* , P**************************************** f P* P* ADDRESS BLOCK P* , P**************************************** P* P DATA DVBL
0x37b0c8…37b25c Dummy {f00=0x00ea, f01=0x018e, f02=» t P DATA 0 NO INTERRUPT HANDLER " P DATA RCGP04 RECOVERY ROUTINE , P DATA 0 NO ECHO ROUTINE R P* r , P**************************************** | P* P* CONDITIONAL ASSEMBLY P* , P****************************************
0x37b25c…37b3f0 Dummy {f00=0x00ea, f01=0x018e, f02=» & P* MEMORY MANAGEMENT BUFFER SIZE P* 2 PX:B EQU 80 < PDVBLEN EQU 250 N P* d P* MAXIMUM BLOCK SIZE n P* PX:C EQU /80 PMAXBLK EQU X:C P* P* P EJECT P* . P****************************
0x37b3f0…37b584 Dummy {f00=0x00ea, f01=0x0190, f02=» . P* TO THE APPROPRIATE PART OF THE DRIVER. P* 6 . P***************************************** @ P* r PACGP04 EQU * | P LDK A3,0 RESET BUFFER INDEX " P LDK A2,MAXBLK GET BLOCK SIZE P CF A5,STABLK START BLOCK P RF(NZ) GPER
0x37b584…37b718 Dummy {f00=0x00ea, f01=0x0190, f02=»ET ORDER ( P RF(Z) GP400 ORDER /00, TEST STATUS P SUK A7,5 < " P RF(N) REQERR REQUEST ERROR ! N P SUK A7,/1F t P IFT ORD24=1 > P RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. P XIF P IFT ORD24=0 * P RF(Z) REQ
0x37b718…37b8ac Dummy {f00=0x00ea, f01=0x0190, f02=»WRITE ! r P ADK A7,1 , P RF(P) GP100 ORDER/06, STANDARD WRITE ! " P* R P* REQUEST ERROR P* v PREQERR EQU * P CF A5,ENDBLK END OF BLOCK , P ABL LENDER SET RETURN CODE AND END I/O P EJECT P* , P**********
0x37b8ac…37ba40 Dummy {f00=0x00ea, f01=0x018e, f02=»ITE. Z > P* THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER : P* IS TREATED AND THE REST OF THE CHARACTERS ARE SENT N $ P* AFTER INDIVIDUAL CODE CHECK. P* . P***************************************** P* PGP100 EQU *
0x37ba40…37bbd4 (3, 437) Dummy {f00=0x00eb, f01=0x0190, f02=» P RF(NN) GP110 NO ! $ P RB REQERR YES ! REQUEST ERROR ! P* F P* TEST CONTROL CHARACTER P P* r PGP110 EQU * | & P LD A2,ECBBA,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF $ P ADK A3,2 INCREM
0x37bbd4…37bd68 Dummy {f00=0x00eb, f01=0x0190, f02=» C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 P RF GP210 SEND IT ! 4 P EJECT P P* ^ , P**************************************** h P* < P* THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. 6 P* THE REQUESTED NUMBER OF CHARACTERS
0x37bd68…37befc Dummy {f00=0x00eb, f01=0x0190, f02=»U * 2 P CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? B P RF(NP) GP350 NO ! v P* P LDR A7,A7 YES ! ORDER /06 ? , P RF(P) GP300 YES ! CHECK CHARACTER CODE P* P CWK A2,LF LINE
0x37befc…37c090 Dummy {f00=0x00eb, f01=0x0190, f02=»0 EQU * : P IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER P* N & P LDK A1,MAXBLK GET MAX BLOCK SIZE X ( P CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ? P RF(G) GP240 NO ! P* $ P LDR A4,A2 YES ! SAVE CHARACTER P CF A5,ENDBLK
0x37c090…37c224 Dummy {f00=0x00eb, f01=0x0190, f02=»TABLK P RF(NZ) GPER10 P LDR A2,A4 RESTORE CHARACTER $ P* H PGP240 EQU * R P CF A5,OUTPUT SEND CHARACTER f PGPER10 RF(NZ) GPER20 P RB GP200 NEXT CHARACTER P EJECT P* , P****************************************
0x37c224…37c3b8 Dummy {f00=0x00eb, f01=0x0190, f02=»**** l P* PGP300 EQU * P LDR A4,A2 * P SUK A4,/20 WITHIN LIMITS ? < P RF(N) GP310 NO ! ` P* z P SUK A4,/5F " P RF(P) GP305 NO, TEST SP. CHAR , P IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER " P RB GP240 OK ! SEND CHARAC
0x37c3b8…37c54c Dummy {f00=0x00eb, f01=0x0190, f02=»GP320 NO ! 8 P SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) P RB GP300 AND SEND N PGP310 EQU * h P ADK A4,/2 /1E OR /1F ? | P RF(NN) GP340 YES ! P ADK A4,/A /15 - /1D ? P RF(P) GP320 YES ! P ADK A4,/3 /12 - /14 ?
0x37c54c…37c6e0 Dummy {f00=0x00eb, f01=0x0190, f02=» CODE CHECK ERROR P* PGP320 EQU * $ ( P LDK A1,CCERR ILLEGAL CHAR. = BIT 13 8 , P ORS A1,ECBRC,A8 SET BIT IN RETURN CODE d PGP340 EQU * P RB GP200 GET NEXT CHARACTER P* P* TABULATION HANDLING P* PGP345 EQ
0x37c6e0…37c874 (3, 438) Dummy {f00=0x00eb, f01=0x0190, f02=» P RF(Z) GP347 PGP346 ADK A2,/A P SUK A4,1 4 P RB(NZ) GP346 F 2 PGP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER P SUR A2,A4 ( P RB(NP) GP200 NO TABULATION POSSIBLE ( P LDR A4,A2 NUMBER OF SPACES TO SEND PGP348 LDK A2
0x37c874…37ca08 Dummy {f00=0x00eb, f01=0x0190, f02=»B GP200 NO TAKE NEXT CHARACTER P EJECT & P* 4 , P**************************************** > P* n : P* THIS IS THE COMPLETION PART OF THE WRITE REQUESTS x P* , P**************************************** P* PGP350 EQU *
0x37ca08…37cb9c Dummy {f00=0x00eb, f01=0x0190, f02=»* . P* THIS IS THE ENTRY POINT FOR ORDER /00, . P* TEST STATUS AND ORDER /24, TEST OUTPUT < * P* BUFFER AND SET PRINTER PARAMETER. n P* . P***************************************** P* PGP400 EQU * P LDK A2,LF LINE FE
0x37cb9c…37cd30 Dummy {f00=0x00eb, f01=0x0190, f02=» P* =1 P LDK A2,ETX ETX ( /03 ) P CF A5,OUTPUT SEND 8 P RF(NZ) GPER20 NOT OK ! R P* r P CF A5,ENDBLK END OF BLOCK | P RF(NZ) GPER20 NOT OK ! P* * P LDR A7,A7 TEST STATUS OR ORDER /24 ? & P RF(Z) GP440 YES !
0x37cd30…37cec4 Dummy {f00=0x00eb, f01=0x0190, f02=» CHECKING THE OUTPUT BUFFER t P XIF 0 P IFT ORD24=1 < $ P LD A1,DWTDEV,A6 GET STATUS WORD P 0 P RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED x L P* BEFORE THE OUTPUT BUFFER IS EMP P XIF P
0x37cec4…37d058 Dummy {f00=0x00eb, f01=0x018e, f02=» SENT h P* P LDR A1,A6 DWT-ADDRESS IN A1 P CF A15,SETIME < P DATA GPTUT,TIME R . P ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER j 0 P LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS P SLC A2,3 COMPUTE TIME P C1R A2,A2 P STR A2,
0x37d058…37d1ec Dummy {f00=0x00eb, f01=0x018e, f02=» P* ( P CM* DWTTP+DWTDEV,A6 TURN OFF TIMER P LD A7,DWTOR,A6 GET ORDER : P ANK A7,/FF AND MASK P SUK A7,/24 ORDER /24 ? x P RF(NZ) GP480 NO ! END I/O P* P LDKL A2,/8000 0 P LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER.
0x37d1ec…37d380 Dummy {f00=0x00eb, f01=0x0190, f02=» x " P ANS A2,DWTDEV,A6 CLEAR BIT 0 P* . P* END OF REQUEST 8 P* R PGP480 EQU * " P LDK A1,0 SET RETURN CODE = 0 p PENDIO EQU * PGPER20 EQU * 0 P CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER & P ABL LENDIS END I/O WI
0x37d380…37d514 (3, 439) Dummy {f00=0x00ec, f01=0x018e, f02=» , P**************************************** P* 4 PGPTUT EQU * > $ P LDR A6,A1 GET DWT-ADDRESS IN A6 R , P CF A15,ABORT RESET INPUT REQUESTED BIT z . P LDK A1,1 SET RETURN CODE ( NOT OPERABLE ) P* =1 P RB ENDIO P* , P
0x37d514…37d6a8 Dummy {f00=0x00ec, f01=0x0190, f02=» f P* PABGP04 EQU * , P CF A15,ABORT RESET INPUT REQUESTED BIT & $ P CM DWTTP+DWTDEV,A6 RESET TIMER V P RB ENDIO ~ P EJECT P* . P****************************************** P* P* RECOVERY ROUTINE P* .
0x37d6a8…37d83c Dummy {f00=0x00ec, f01=0x40cc, f02=» , P CF A15,ABORT RESET INPUT REQUESTED FLAG $ P CM DWTTP+DWTDEV,A6 RESET TIMER 8 2 P LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR ) ` PRCGP10 EQU * P RB ENDIO P END @ ****** P* P* RECOVERY ROUTINE P* .
0x37d83c…37d9d0 Dummy {f00=0x00ec, f01=0x2008, f02=» ! H
0x37d9d0…37db64 Dummy {f00=0x00ec, f01=0x0190, f02=» v P* POUL100 INH $ P LDR* A3,A5 CHANNEL UNIT FREE ? $ P RF(NE) OUL800 NO L P IFF RECHAN=0 f P IFF LOCHAN=0 | P LDR A7,A7 REMOTE ? P RF(Z) OUL400 NO P XIF P IFF RECHAN=0 P LDR A3,A2 P SUK A3,/82 ST
0x37db64…37dcf8 Dummy {f00=0x00ec, f01=0x0190, f02=» RF(NE) OUL175 YES P LDK A2,LRCSEN * P ORS A2,DWTST,A6 INDICATE LRC-SENDING 0 P LDK A2,0 ^ $ P ST A6,LRCDWT,A7 SET LRC-DEVICE p , P CM LRCACK,A7 RESET LRC-ACKUMULATOR AND P INDICATE FIRST OBC 0 POUL150 LD A4,DWTCP2,A6 CHANNEL PAR
0x37dcf8…37de8c Dummy {f00=0x00ec, f01=0x0190, f02=» QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ? ( P RF(NE) OUL300 NO H P EJECT b P* p P* E T B z P* & P SC A2,LRCACK,A7 INDICATE LAST OBC * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR P RB OUL150 P*
0x37de8c…37e020 Dummy {f00=0x00ec, f01=0x018e, f02=» b P RF(Z) OUL350 YES P LD A3,CWTBLK,A5 " , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING : * P RF OUL800 BLOCKSENDING RUNNING, QUEUE j P ( POUL350 LD A3,DWTST,A6 DEVICE STATUS 0 P ANK A3,DEWDRQ DEVICE WITHOUT DATA REQUEST ? " P RF(Z) O
0x37e020…37e1b4 (3, 440) Opaque[0x194]
0x37e1b4…37e348 # DirEnt {nam=»DRGP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d88, f03=0x0000}
0x37e1b4…37e348 IdxSect {
0x37e1b4…37e348 f00 = 0x00ec // 0x37e1b4 @0x0
0x37e1b4…37e348 f01 = 0x001c // 0x37e1b6 @0x2
0x37e1b4…37e348 gno = [ // 0x37e1b8 @0x4
0x37e1b4…37e348 [0x00]: C0x00ec.0x1.0
0x37e1b4…37e348 [0x01]: C0x00ec.0x3.0
0x37e1b4…37e348 [0x02]: C0x00ed.0x0.0
0x37e1b4…37e348 [0x03]: C0x00ed.0x1.0
0x37e1b4…37e348 [0x04]: C0x00ed.0x2.0
0x37e1b4…37e348 [0x05]: C0x00ed.0x3.0
0x37e1b4…37e348 [0x06]: C0x00ee.0x0.0
0x37e1b4…37e348 [0x07]: C0x00ee.0x1.0
0x37e1b4…37e348 [0x08]: C0x00ee.0x2.0
0x37e1b4…37e348 [0x09]: C0x00ee.0x3.0
0x37e1b4…37e348 [0x0a]: C0x00ef.0x0.0
0x37e1b4…37e348 [0x0b]: C0x00ef.0x1.0
0x37e1b4…37e348 [0x0c]: C0x00ef.0x2.0
0x37e1b4…37e348 [0x0d]: C0x00ef.0x3.0
0x37e1b4…37e348 ]
0x37e1b4…37e348 }
0x37e348…37e4dc Dummy {f00=0x00ec, f01=0x0190, f02=» 2 P IDENT DRGP03 REL 11.0 81-06-01 870105041100 P : P =1,STATUS DEL. B P REL 11.0 81-01-26 P* x < P******************************************************* < P* * < P* PH
0x37e4dc…37e670 Dummy {f00=0x00ec, f01=0x0190, f02=»RIVER GENERAL PRINTER * < P* * * < P* * j < P* * < P******************************
0x37e670…37e804 Dummy {f00=0x00ec, f01=0x0190, f02=»THE DRIVER CONSISTS OF THE FOLLOWING PARTS : P* 4 $ P* A C T P : ACTIVATION PART > P* f $ P* R C T P : RECOVERY ROUTINE p P* P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* $ P* ORDER 00
0x37e804…37e998 Dummy {f00=0x00ec, f01=0x0190, f02=»ON DOCUMENT v . P* ORDER 24 : SET PRINTER PARAMETERS , P* ORDER 27 : SET FORM PARAMETERS F ( P* ORDER 38 : RELEASE DOCUMENT v P* , P* THE FOLLOWING RETURN CODES ARE USED: P* & P* BIT 0 : REQUEST ERROR
0x37e998…37eb2c Dummy {f00=0x00ec, f01=0x0190, f02=»RROR p $ P* BIT 15 : NOT OPERABLE P* 4 P* > P* NORMAL REGISTER USAGE: H P* j " P* REGISTER A1: WORK REGISTER t " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER " P* A4: WORK REGISTER
0x37eb2c…37ecc0 Dummy {f00=0x00ec, f01=0x0190, f02=»SS v P* P* P EJECT P* , P* 6 0 P******************************************* @ P* t P* ENTRIES ~ P* 0 P******************************************* P* P* P ENTRY GPAD3 ADDRESS BLOCK P*
0x37ecc0…37ee54 (3, 441) Dummy {f00=0x00ec, f01=0x0190, f02=»************************* ~ P* " P* , , P EXTRN LDISP DISPATCHING FROM INTERRUPT 6 $ P EXTRN LENDER DISPATCH I/O ERROR f & P EXTRN LENDIS END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER 0 P EXTRN GETCHR GET CHARACTER FROM ECB B
0x37ee54…37efe8 Dummy {f00=0x00ec, f01=0x0190, f02=»RN DWTOR DWT ORDER DISPLACEMENT P EXTRN DWTSB2 STACK BASE ( 2 P EXTRN INPUT STORE REG = GET STATUS INPUT CHAR H $ P EXTRN STABLK DEF START OF BLOCK ~ " P EXTRN ENDBLK DEF END OF BLOCK P EXTRN DWTDEV DEVICE STATUS P EJECT P*
0x37efe8…37f17c Dummy {f00=0x00ec, f01=0x0190, f02=» f P* P* " PSPEC EQU /2E SPECIAL CHARACTER PLF EQU /0A LINE FEED B " PRLF EQU /40 REVERSE LINE FEED ^ PFF EQU /0C FORM FEED PCR EQU /0D CARRIAGE RETURN PSO EQU /0E SHIFT OUT PSI EQU /0F SHIFT IN PESC EQU /1B ES
0x37f17c…37f310 Dummy {f00=0x00ec, f01=0x0190, f02=»EQU /64 VERTICAL POSITION ABSOLUTE ( PSNV EQU /77 SELECT NATIONAL VERSION * $ PSLPL EQU /76 SELECT PAGE LENGTH V & PRIS EQU /63 RESET TO INITIAL STATE ~ $ PDSR EQU /6E DEVICE STATUS REPORT PDS EQU /35 DEVICE STATUS & PDCS EQU /50 DEVICE CONTR
0x37f310…37f4a4 Dummy {f00=0x00ec, f01=0x0190, f02=»8 CHARACTER PITCH LOAD 0 PHPA EQU /60 HORIZONTAL POSITIONING ABSOLUTE * PHTS EQU /48 HORIZONTAL TABULATION SET R , PTBC EQU /67 HORIZONTAL TABULATION CLEAR PLSL EQU /7B LINE SPACE LOAD PSM EQU /68 SET MODE PRM EQU /6C RESET MODE
0x37f4a4…37f638 Dummy {f00=0x00ec, f01=0x0190, f02=» 25 SEC. TIMER P EJECT P* ( P* 2 > P********************************************************* < P* ~ P* CONTROL SEQUENCES P* > P********************************************************* P* P* PBYTE
0x37f638…37f7cc Dummy {f00=0x00ec, f01=0x0190, f02=»E NEG,NEG PCSSNV EQU * P SELECT NATIONAL VERSION & P BYTE ESC,CSI H P BYTE ZERO,ZERO ^ P BYTE SNV,NEG v " PCSSLPL EQU * SELECT PAGELENGTH P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE SLPL,NEG P BYTE NEG,NEG
0x37f7cc…37f960 Dummy {f00=0x00ec, f01=0x018e, f02=»YTE ESC,CSI P BYTE DS,DSR P BYTE NEG,NEG ( $ PCSCPL EQU * CHARACTER PITCH LOAD > P BYTE ESC,CSI f P BYTE ZERO,SEP | P BYTE ZERO,CPL P BYTE NEG,NEG 0 PCSHPA EQU * HORIZONTAL POSITIONING ABSOLUTE P BYTE ESC,CSI P
0x37f960…37faf4 (3, 442) Dummy {f00=0x00ed, f01=0x0190, f02=» P BYTE ZERO,TBC P BYTE NEG,NEG * PCSHTS EQU * HORIZONTAL TABULATION SET 0 P BYTE ESC,HTS ^ P BYTE NEG,NEG t . PCSVPA EQU * VERTICAL POSITIONING ABSOLUTE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE VPA,NEG PCSLSL EQ
0x37faf4…37fc88 Dummy {f00=0x00ed, f01=0x0190, f02=»I P BYTE FR,ZERO P BYTE SM,NEG PCSRM EQU * RESET MODE 4 P BYTE ESC,CSI R P BYTE FR,ZERO h P BYTE RM,NEG ~ PCSSUL EQU * START UNDERLINE P BYTE ESC,CSI P BYTE UL,SGR P BYTE NEG,NEG PCSEUL EQU * STOP U
0x37fc88…37fe1c Dummy {f00=0x00ed, f01=0x0190, f02=»*********************************** | P* , P* CONDITIONAL ASSEMBLY 6 P* T < P******************************************************* ^ P* P* P* 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN 8 P* BY SETTING X:A TO
0x37fe1c…37ffb0 Dummy {f00=0x00ed, f01=0x0190, f02=»,NETHERLANDS,BELGIUM,NEW ZEELAND,SOUTH AFRICA | 0 P =3 FRANCE,SWITZERLAND,BELGIUM,LUXEMBOURG 6 , P =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA j P =5 ITALY,SWITZERLAND P =6 SWEDEN,FINLAND P =7 DENMARK,NORWAY P =8 PORTUGAL,BR
0x37ffb0…380144 Dummy {f00=0x00ed, f01=0x0190, f02=» =14 JAPAN (KATAKANA VERSION) $ P =15 ISRAEL (HEBREW VERSION) ( P* P P* Z ( PX:A EQU 02 GREAT BRITAIN AS STANDARD d PSTDNCV EQU 01 P EJECT P* P* & P* FRICTION FEED CAN BE SELECTED BY P* SETTING X:B=1
0x380144…3802d8 Dummy {f00=0x00ed, f01=0x018e, f02=»* P* PX:C EQU 1 " PFFDEV EQU 1 FRONT FEED DEVICE & P* L P* V P* ` ( P* THE STANDARD PAGELENGTH IS DEFINED j & P* BY SETTING X:D = NUMBER OF LINES P* P* PX:D EQU 48 PPAGLEN EQU 48 P* P*
0x3802d8…38046c Dummy {f00=0x00ed, f01=0x0190, f02=» PDOCLEN EQU 60 P* P* ( P* 2 P* MMU BUFFER SIZE < P* V P* ` PX:F EQU 132 j PDVBLEN EQU 256 ~ P* P EJECT P* P* 0 P* THE STANDARD MATRIX IS SELECTED BY SETTING P* 2=MATRIX NUMBER (1
0x38046c…380600 Dummy {f00=0x00ed, f01=0x018e, f02=»LECTED BY b @ P* SETTING X:H=(1-4). 1=10 CH/INCH,2=12 CH/INCH,3=15 CH/INCH P* 4= PROPORTIONAL PITCH V P* v P* PX:H EQU 1 PDENSIT EQU 2 P* P* < P* HIGH SPEED PRINTING CAN BE PERFORMED BY SETTING X:I=1 P*
0x380600…380794 (3, 443) Dummy {f00=0x00ed, f01=0x0190, f02=» ( P* ERROR OR SOFTW. TIME OUT IF X:J=1 P* 0 P* : PX:J EQU 0 D PREQEND EQU 1 V P* j P* t 8 P* ORDER /27, SET FORM PARAMETERS CAN BE EXCLUDED BY ~ P* SETTING X:K=0 P* P* PX:K EQU 1 PFORMPA EQU 1
0x380794…380928 Dummy {f00=0x00ed, f01=0x0190, f02=» PMMUPAG EQU 1 P* P* " P* , 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 6 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 p P* P* PCPU852 EQU 0 P EJECT P* P* 0 P****************************
0x380928…380abc Dummy {f00=0x00ed, f01=0x0190, f02=»DWTTP EQU /2 TIMER POINTER ( PDWTDCS EQU /4 DOCUMENT CHARACTER SET " ( PDWTPCS EQU /6 PRINTER CHARACTER SET N & PDWTPL EQU /8 PRINTER PAPER LENGTH z & PDWTDL EQU /A DOCUMENT PAPER LENGTH * PDWTALN EQU /C ACTUAL LINE ON DOCUMENT , PDWTRLN EQU /
0x380abc…380c50 Dummy {f00=0x00ed, f01=0x0190, f02=»P EQU /14 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. & PDWTACP EQU /16 ACTUAL COLUMN PAPER < $ PDWTCO1 EQU /1A COLUMN COUNTER 1 f & PDWTSYST EQU /1C SYSTEM START IND. , PDWTLFD EQU /1E LINE/FORM FEED INDICATOR 4 PDWTCMF EQU /20 CHAR MATRIX & PIT
0x380c50…380de4 Dummy {f00=0x00ed, f01=0x0190, f02=»EED z PDWTHOP EQU /28 HOPPER 1 OR 2 $ PDWTTAB EQU /2A LAST TAB POS SET 0 . PDWTSER EQU /2E CONTR. SEQ. SEPARATOR IND. X P EJECT P* P* 0 P******************************************* P* P* ECB - DISPLACEMENTS P
0x380de4…380f78 Dummy {f00=0x00ed, f01=0x0190, f02=»LENGTH IN ECB z ( PECBEL EQU 6 EFFECTIVE LENGTH IN ECB " PECBRC EQU 8 RETURN CODE IN ECB B $ PECBCW EQU 10 CONTROL WORD IN ECB h P EJECT P* 0 P******************************************* P* P* TABLES P* 0 P********
0x380f78…38110c Dummy {f00=0x00ed, f01=0x0190, f02=»U * ADDRESS BLOCK P DATA ACTP ACTIVATION DRIVER " P DATA 0 ABORT ROUTINE ADDRESS > P DATA 0 INTERRUPT HANDLER d P DATA RCTP RECOVERY ROUTINE PTPTAB EQU * P IFT SINHAN+FFDEV=1 P DATA /0107,/0C25,/2839 P XIF P D
0x38110c…3812a0 Dummy {f00=0x00ed, f01=0x018e, f02=»********** ^ P* P* A C T P P* 0 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER : > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR p P* @ P************************************************************ P*
0x3812a0…381434 (3, 444) Dummy {f00=0x00ed, f01=0x0190, f02=» " P LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK * , P SC A2,DWTDEV,A6 STORE NEW DEVICE INDEX @ P CWK A7,/24 p P RF(E) ACT010 , P LC A3,DWTDEV+1,A6 GET OLD DEVICE INDEX P ANK A3,1 P CWR A2,A3 P RF(E) ACT010 ( PACT0
0x381434…3815c8 Dummy {f00=0x00ed, f01=0x0190, f02=»,DWTDEV,A6 P ANK A2,1 PACT010 LC A3,DWTDEV+1,A6 $ P ANK A3,/FE D P ORR A3,A2 X " P SC A3,DWTDEV+1,A6 STORE INDEX j P CWK A7,/05 ORDER /05 ? P RF(E) ACT015 YES & P ADR A7,A2 ADD DWT INDEX TO ORDER 0 PACT015 SC A7,DWTOR+1
0x3815c8…38175c Dummy {f00=0x00ed, f01=0x0190, f02=»R x P SUK A3,1 P RB(NN) ACT030 TRY NEXT P* < P ABL LENDER ILLEGAL ORDER F P* h P* r PACT040 EQU * | P ADR A3,A3 GET INDEX P ABI TPFUC,A3 EXECUTE ORDER PTPFUC EQU * P IFT SINHAN+FFDEV=1 4 P DATA TS
0x38175c…3818f0 Dummy {f00=0x00ed, f01=0x0190, f02=»************************ P* ! P* ORDER 00 : TEST STATUS ! * P* ! L " P****************************** ! V PTSTSTA EQU * TEST STATUS ! | * P CF A5,GTSTAT GET STATUS FROM PRINTER ! $ PTSTEND LDR A2,A1 GET RETURN CODE ! " P ANKL A2,/100 PRINTER
0x3818f0…381a84 Dummy {f00=0x00ed, f01=0x0190, f02=»***************** ! P* " P* ORDER 06: WRITE " $ P* " @ P************************* " J PWRTCON EQU * " l P* * =1 " P* * =1 " P* * =1 " $ P LD A2,ECBRL,A8 GET REQ. LENGTH " P ADK A2,/8 BLOCK LENGTH " P CF A5,STABLK ST
0x381a84…381c18 Dummy {f00=0x00ed, f01=0x0190, f02=»UFFER POINTER " z ( P CF A15,GETCHR GET CONTROL CHARACTER # & P LD A1,DWTDEV,A6 GET DEVICE STATUS # B ( P ANK A1,/20 HAS POWER OFF OCCURED ? # l P RF(NZ) REP2 YES # ( P SUK A2,/2B PRINT ON SAME LINE =/2B? # P RF(Z) WRC20 YES # 2 PWRC04 CM DWTDEV+DWTC
0x381c18…381dac Dummy {f00=0x00ed, f01=0x0190, f02=» FEED =/31 ? # v P RF(NZ) ONELF NO,ONE LF $ P* $ 4 P LDK A2,FF $ > P RF FORMF FORM FEED $ P P* $ l " P* EXECUTE CONTROL CHARACTER $ v P* $ PWRC20 EQU * $ P LDK A2,CR CARRIDGE RETURN $ P CF A5,OUTPUT $ P RF(NZ) ERGP01 $ 2 P
0x381dac…381f40 Dummy {f00=0x00ed, f01=0x0190, f02=» CONVERT BINARY TO ASCII $ ~ : P ST A2,DWTDEV+DWTACP,A6 STORE THE VALUE IN ACTUAL COL. % : P ST A4,DWTDEV+DWTACP+2,A6 STORE THE VALUE IN ACT. COL. % ^ P* % 2 PWRC07 LD A4,DWTDEV+DWTCO1,A6 GET ACTUAL COLUMN % , P RF(Z) WRT15 JMP IF NO PRECEIDING SPACES %
0x381f40…3820d4 (3, 445) Dummy {f00=0x00ed, f01=0x0190, f02=»V+DWTACP+1 ACTUAL COLUMN PAPER DISPLACEMENT % P CF A5,SEND SEND REPEAT & 4 P RF WRT15 & T P* & f PTWOLF LDK A2,LF LINE FEED & p P CF A5,OUTPUT & P RF(NZ) ERGP01 JMP IF ERROR & PONELF LDK A2,LF LINE FEED & PFORMF CF A5,OUTPUT & P
0x3820d4…382268 Dummy {f00=0x00ed, f01=0x0190, f02=»EV+DWTLFD,A6 SET LF/FF INDICATOR & P RF WRT15 ' ( P* ' : P* REPEAT WRITE REQUEST ' D P* ' f PREP2 EQU * ' p " P LDR A3,A2 SAVE CONTROL CHAR. ' $ P LDK A2,CR SEND CARRIDGE RETURN ' P CF A5,OUTPUT ' P RF(NZ) ERGP01 JMP IF ERROR '
0x382268…3823fc Dummy {f00=0x00ed, f01=0x0190, f02=»GET INDICATOR ' t $ P RF(NZ) WRT15 JMP IF LF/FF DONE ( P RB WRC04 ( > P EJECT ( P P* ( ^ 2 P* ORDER 06 : THIS PART SENDS THE CHARACTERS ( h . P* TO DOCUMENT OR CONTINUOUS STATIONARY. ( P* ( P* ( * PWRT15 LDK A3,2 SET ECB BUFFER POINTE
0x3823fc…382590 Dummy {f00=0x00ed, f01=0x0190, f02=»ROR ( r P LDK A2,/90 NEW BLOCK LENGTH ) P CF A5,STABLK START OF BLOCK ) 0 P RF(NZ) ERGP04 JMP IF ERROR ) T & PWRT030 CF A15,GETCHR GET CHARACTER ) x P LDR A4,A1 BUFFER FINISHED ? ) P RF(P) WRT050 NO ) & P LD A4,DWTDEV,A6 GET DEVICE STATUS ) & P
0x382590…382724 Dummy {f00=0x00ed, f01=0x0190, f02=»MP IF ERROR ) ( P XRS A4,DWTDEV,A6 RESET SHIFT INDIC. * $ PWRT040 CF A5,ENDBLK END OF BLOCK * @ P RF(NZ) ERGP04 JMP IF ERROR * h P CF A5,GTSTAT GET STATUS * P RF ENDIO END REQUEST * P* * PWRT050 EQU * * P LDR A4,A2 * P* * @ P* EX
0x382724…3828b8 Dummy {f00=0x00ed, f01=0x0190, f02=» " P* CHECK IF SPECIAL CHARACTER + P SUK A4,/9 TABULATION ? + * P RF(Z) WRT170 YES + J P SUK A4,/9 START UNDERLINE ? + d P RF(NZ) WRT060 NO + & P LDR A4,A3 SAVE ECB BUFFER POINTER + ( P LDKL A3,CSSUL SEND START UNDERLINE + P RF WRT070 + $
0x3828b8…382a4c Dummy {f00=0x00ed, f01=0x0190, f02=»NDERLINE + v PWRT070 CF A5,SEN40 GO & SEND , * P LDR A3,A4 RESTORE ECB BUFFER POINTER , 4 " P RB WRT020 GET NEXT CHARACTER , b 0 PWRT080 SUK A4,/8 /1B, PARTIAL LINE UP DOWN ? , * P RB(NZ) WRT020 NO, GET NEXT CHARACTER , , P CF A15,GETCHR YES, CHECK NEXT
0x382a4c…382be0 Dummy {f00=0x00ed, f01=0x0190, f02=» WRT090 YES , P SUK A2,1 PARTIAL LINE UP ? - 0 P RF(NZ) WRT140 NO, INDICATE CODE CHECK ERROR - 8 0 PWRT090 LDK A2,ESC SEND PARTIAL LINE UP/DOWN - l P CF A5,OUTPUT - P RF(NZ) ERGP04 JMP IF ERROR - P LDR A2,A4 RESTORE CHAR. - P CF A5,OUTPUT
0x382be0…382d74 (3, 446) Dummy {f00=0x00ee, f01=0x0190, f02=») WRT110 YES, LEGAL CHARACTER - P CWK A2,/AE ROOMLESS POINT ? . & P RF(E) WRT160 YES . J P SUK A4,/23 CHAR >=/A1 ? . d 0 P RF(N) WRT150 NO,INDICATE CODE CHECK ERROR ! . P SUK A4,/5D CHAR =</FE ? . ( P RF(NP) WRT120 YES, LEGAL CHARACTER . , P RF
0x382d74…382f08 Dummy {f00=0x00ee, f01=0x018e, f02=»/20-/7E . n . P ANK A4,/80 SHIFT OUT PERFORMED EARLIER ? / $ P RF(Z) WRT170 NO, SEND CHARACTER / B P LDK A4,/80 / j , P XRS A4,DWTDEV,A6 RESET SHIFT INDICATOR / ~ P LDR A4,A2 STORE CHAR. / P LDK A2,SI SEND SHIFT IN / P RF WRT130 / P* / . P
0x382f08…38309c Dummy {f00=0x00ee, f01=0x0190, f02=» / l P LDK A4,/80 0 ( P ORS A4,DWTDEV,A6 INDICATE SHIFT OUT 0 P LDR A4,A2 STORE CHAR. 0 H P LDK A2,SO SEND SHIFT OUT 0 f * PWRT130 CF A5,OUTPUT SEND SHIFT CONTROL 0 P RF(NZ) ERGP04 JMP IF ERROR 0 P LDR A2,A4 RESTORE CHAR. 0 P RF WRT170 SEN
0x38309c…383230 Dummy {f00=0x00ee, f01=0x0190, f02=»RS A4,ECBRC,A8 0 P RB WRT020 1 PWRT160 LDK A2,/2E 1 ( PWRT170 LDR A4,A1 1 B & P ANK A2,/7F MASK,JUST 7 BIT CHAR. 1 Z P CF A5,OUTPUT SEND CHARACTER 1 & PERGP04 RF(NZ) ERGP06 JMP IF ERROR 1 . P IM DWTDEV+DWTCO1,A6 INC COLUMN COUNTER 1 1 P RB
0x383230…3833c4 Dummy {f00=0x00ee, f01=0x0190, f02=»A5,RESREC RESET RECOVERY BIT 1 . P CM DWTDEV+DWTLFD,A6 CLEAR LF/FF INDICATOR 2 $ P ABL LENDIS END REQUEST 2 V P EJECT 2 v " P****************************** 2 P* 2 P* ORDER 05 : BASIC WRITE 2 P* 2 " P****************************** 2 PBA
0x3833c4…383558 Dummy {f00=0x00ee, f01=0x0190, f02=» BLOCK LENGTH IN A2=144 2 P CF A5,STABLK START OF BLOCK 3 P RF(NZ) ERGP06 JMP IF ERROR 3 D & PBAS15 CF A15,GETCHR GET CHARACTER 3 h P LDR A1,A1 BUFFER FINISHED ? 3 P RF(Z) BAS25 YES 3 P CF A5,OUTPUT 3 P RF(NZ) ERGP06 JMP IF ERROR 3 P
0x383558…3836ec Dummy {f00=0x00ee, f01=0x0190, f02=»NZ) ERGP06 JMP IF ERROR 3 P RB BAS10 START NEXT BLOCK 4 $ PBAS25 CF A5,ENDBLK END OF BLOCK 4 B & PERGP06 ABL(NZ) ERGP15 JMP IF ERROR 4 j ( P ABL TSTSTA CHECK STATUS & END REQ. 4 P EJECT 4 P IFT SINHAN+FFDEV=1 4 2 P******************************
0x3836ec…383880 Dummy {f00=0x00ee, f01=0x0190, f02=»********************************************* 4 " PPOSDOC EQU * POSITION DOCUMENT 5 6 $ P CF A5,GTSTAT GET DEVICE STATUS 5 P LDR A1,A1 ERROR ? 5 $ P RF(NZ) POS040 ERROR INDICATION 5 & P LD A4,ECBCW,A8 GET REQUESTED LINE 5 P ANK A4,/FF 5 & P RF(
0x383880…383a14 (3, 447) Dummy {f00=0x00ee, f01=0x018e, f02=»EQ. LINE>MAX. LINE 5 P RF(G) POSERR YES 6 * P CF A5,KONVER CONVERT BINARY TO ASCII 6 4 . P ST A4,DWTDEV+DWTRLN,A6 SET REQUESTED LINE 6 b PPOS005 EQU * 6 P LDK A2,/15 BLOCK LENGTH 6 P CF A5,STABLK START OF BLOCK 6 P RF(NZ) ERGP08 JMP IF ERROR
0x383a14…383ba8 Dummy {f00=0x00ee, f01=0x018e, f02=» PPOS020 LDKL A2,CSVPA 7 P LDKL A3,DWTDEV+DWTRLN 7 P CF A5,SEND 7 > $ PPOS030 CF A5,ENDBLK END OF BLOCK 7 R & PERGP08 ABL(NZ) ERGP15 JMP IF ERROR 7 z P CF A5,GTSTAT GET STATUS 7 P RF(NZ) POS040 ERROR ? 7 . P LD A2,DWTDEV+DWTRLN,A6 GET REQ. LINE
0x383ba8…383d3c Dummy {f00=0x00ee, f01=0x0190, f02=» P LDR A2,A1 GET RETURN CODE 8 " P ANKL A2,/100 PRINTER RESET ? 8 & P ABL(NZ) RCTP YES 8 L $ P CF A5,RESREC RESET RECOVERY BIT 8 f P ABL LENDIS END REQUEST 8 PPOSERR ABL LENDER 8 P XIF 8 P EJECT 8 0 P**************************************
0x383d3c…383ed0 Dummy {f00=0x00ee, f01=0x0190, f02=» EQU * 8 * PPRI07 LDK A3,/6 SET UP BRANCH POINTER 9 $ P LD A1,ECBCW,A8 GET CONTROL WORD 9 > PPRI10 LDR A4,A1 9 f P IFT SINHAN+FFDEV=1 9 ~ $ P LC A2,DWTOR+1,A6 GET DWT INDEX 9 P ANK A2,1 9 P RF(Z) PRI14 9 0 P ANK A4,/F CHECK IF NEW PARAM. V
0x383ed0…384064 Dummy {f00=0x00ee, f01=0x0190, f02=» 9 ` , P ABI(NZ) PRITAB,A3 FRICTION/TRACTOR FEED : & PPRI15 SRL A1,4 GET NEXT PARAMETER : 8 4 PPRI16 CWK A3,0 FRI/TRA, ANY MORE PARAM. TO CHECK : b P RF(E) PRI17 NO, GO AND SEND : & PPRI18 SUK A3,2 TEST NEXT PARAMETER : P RB PRI10 : & PPRI17 LDR A4,P
0x384064…3841f8 Dummy {f00=0x00ee, f01=0x0190, f02=»GET STATUS : P LDR A2,A1 GET RETURN CODE ; " P ANKL A2,/100 PRINTER RESET ? ; 4 P ABL(NZ) RCTP YES ; Z $ P CF A5,RESREC RESET RECOVERY BIT ; t P ABL LENDIS END REQUEST ; & P* STORE PARAMETERS, TRACTOR FEED ; 2 PPRI20 EQU * NCV= NATIONAL CHARACTE
0x3841f8…38438c Dummy {f00=0x00ee, f01=0x0190, f02=»6 STORE IN DWT ; z P RB PRI15 < , PPRI30 EQU * SCM= SELECT CHARACTER MATRIX < ( P CWK A4,/9 < X P RF(G) PRI60 INDEX TOO HIGH < j P ORK A4,/30 ASCII < ( P SC A4,DWTDEV+DWTCMF,A6 STORE IN DWT < P RB PRI15 < PPRI40 EQU * PL= PAGE LENGTH <
0x38438c…384520 Dummy {f00=0x00ee, f01=0x0190, f02=»I15 < $ PPRI50 EQU * CD= CHARACTER PITCH = P CWK A4,/4 = 4 P RF(G) PRI60 INDEX TOO HIGH = F P ORK A4,/30 ASCII = j * P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT = P RB PRI17 = 2 P* STORE PARAMETERS, FRONT FEED/FRICTION FEED = P IFT SINHAN+FF
0x384520…3846b4 (3, 448) Dummy {f00=0x00ee, f01=0x0190, f02=» ACCORDING TO INDEX = l ( P ST A4,DWTDEV+DWTDCS,A6 STORE IN DWT > P RB PRI15 > H , PFRO30 EQU * SCM=SELECT CHARACTER MATRIX > Z P CWK A4,/9 > P RF(G) PRI60 INDEX TOO HIGH > P ORK A4,/30 ASCII > ( P SC A4,DWTDEV+DWTCMT,A6 STORE IN DWT > P R
0x3846b4…384848 Dummy {f00=0x00ee, f01=0x0190, f02=» ST A4,DWTDEV+DWTDL,A6 STORE IN DWT > P RB PRI15 ? , $ PFRO50 EQU * CD= CHARACTER PITCH ? > P CWK A4,/4 ? f P RF(G) PRI60 INDEX TOO HIGH ? x P ORK A4,/30 ASCII ? * P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT ? P RB PRI17 ? P XIF ? " PPRI60
0x384848…3849dc Dummy {f00=0x00ee, f01=0x0190, f02=»ETERS ? t P* @ 0 P******************************************** @ PFORPAR EQU * @ L P IFT FORMPA=1 @ ` , P LD A2,ECBCW,A8 GET CONTROL WORD, INDEX @ v P ANK A2,/F MASK @ P SUK A2,1 @ 8 P RF(Z) FOR020 HOPPER,HIGH SPEED OR LINE SPACE PARAM. @
0x3849dc…384b70 Dummy {f00=0x00ee, f01=0x0190, f02=» ABL LENDER REQUEST ERROR,END OF REQ. @ P IFT FORMPA=1 A . 2 P* HOPPER, HIGH SPEED & LINE SPACE PARAMETERS A D P* A z " PFOR020 LDK A2,/E BLOCK LENGTH A P CF A5,STABLK START OF BLOCK A P ABL(NZ) ERGP15 JMP IF ERROR A $ P LD A4,ECBCW,A8 GET CO
0x384b70…384d04 Dummy {f00=0x00ee, f01=0x0190, f02=»WANTED A x P CWK A1,/8 B . P RB(G) FOR010 REQUEST ERROR, INDEX TOO BIG B P ADR A1,A1 ADJUST TABLE B R 6 P LD A1,LINTAB,A1 GET LINE SPACE ACCORDING TO TABLE B r ( P ST A1,DWTDEV+DWTLS,A6 STORE IN DWT B P LDKL A2,CSLSL B P LDKL A3,DWTDEV+DWTLS B
0x384d04…384e98 Dummy {f00=0x00ee, f01=0x0190, f02=»ETER B p " P RF(Z) FOR060 NO CHANGE WANTED C P SUK A1,1 C 2 P RF(NZ) FOR040 C D " P LDK A2,SM HIGH SPEED SELECTED C Z * P SC A2,DWTDEV+DWTHSP+1,A6 STORE IN DWT C P LDKL A2,CSSM C * P RF FOR050 SEND SELECT HIGH SPEED MODE C PFOR040 SUK A1,1 C
0x384e98…38502c Dummy {f00=0x00ee, f01=0x0190, f02=»PEED C n PFOR050 LDKL A3,DWTDEV+DWTHSP D P CF A5,SEND D 0 PFOR060 EQU * D D P IFT SINHAN=1 D X P LDR A1,A4 GET CONTROL WORD D n P SRL A1,/C D $ P ANK A1,/F MASK HOPPER PARAMETER D " P RF(Z) FOR120 NO CHANGE WANTED D P SUK A1,1 D P RF(
0x38502c…3851c0 Dummy {f00=0x00ee, f01=0x0190, f02=»ELECT HOPPER 2 D . PFOR075 ST A2,DWTDEV+DWTHOP,A6 STORE IN DWT E P LDKL A2,CSSM E H P RF FOR110 E ^ PFOR080 SUK A1,1 E p P RF(NZ) FOR090 E $ P LDKL A2,/316C DESELECT HOPPER 1 E P RF FOR095 E PFOR090 SUK A1,1 E P RB(NZ) FOR010 REQUEST E
0x3851c0…385354 (3, 449) Dummy {f00=0x00ee, f01=0x0190, f02=»A3,DWTDEV+DWTHOP E P CF A5,SEND SEND HOPPER MODE F P XIF F < P IFT FORMPA=1 F H P RF FOR120 END OF REQ. F ^ P* F | P* TABULATION PART F P* F PTAB010 EQU * F $ P LDK A3,0 SET UP BUFFER POINTER F & PTAB020 CF A15,GETCHR GET CHARACT
0x385354…3854e8 Dummy {f00=0x00ee, f01=0x0190, f02=»NGTH F | P CF A5,STABLK START OF BLOCK G P RF(NZ) ERGP10 JMP IF ERROR G 0 " P ANK A4,1 SET OR CLEAR TABS. ? G T ( P RF(Z) TAB050 CLEAR ALL TABULATIONS G z 0 PTAB030 CF A15,GETCHR GET TABULATION POSITION G P LDR A1,A1 G P RF(Z) FOR120 END OF REQUEST
0x3854e8…38567c Dummy {f00=0x00ee, f01=0x018e, f02=»6 STORE TAB POS IN DWT G x P SRL A4,8 SHIFT RIGHT H 2 P SC A4,DWTDEV+DWTTAB+1,A6 STORE TAB POS IN DWT H < " P LDR A4,A3 KEEP COUNTER IN A4 H r P LDKL A2,CSHPA H P LDKL A3,DWTDEV+DWTTAB H ( P CF A5,SEND SEND HORIZONTAL POS ABS. H P LDKL A2,CSHTS H
0x38567c…385810 Dummy {f00=0x00ee, f01=0x0190, f02=» P LDK A3,/33 CLEAR ALL TABS I ( P SC A3,DWTDEV+DWTTAB,A6 STORE IN DWT I & P LDKL A2,CSTBC I R P LDKL A3,DWTDEV+DWTTAB I h * P CF A5,SEND CLEAR ALL TABULATION POS. I $ PFOR120 CF A5,ENDBLK END OF BLOCK I & PERGP10 ABL(NZ) ERGP15 JMP IF ERROR I ( P A
0x385810…3859a4 Dummy {f00=0x00ee, f01=0x0190, f02=»38 : RELEASE DOCUMENT I P* J . P***************************************** J ( P IFT SINHAN+FFDEV=1 J Z PRELDOC EQU * J v P CF A5,GTSTAT GET STATUS J P LDR A2,A1 J P RF(NZ) REL20 ERROR ? J P LDK A2,/F BLOCK LENGTH J P CF A5,STABLK
0x3859a4…385b38 Dummy {f00=0x00ee, f01=0x0190, f02=»A5,SEND J ( P LDK A3,/F SET UP LINE FEED COUNTER K PREL10 LDK A2,LF LINE FEED K < P CF A5,OUTPUT K ^ P RF(NZ) ERGP14 JMP IF ERROR K t * P SUK A3,1 DECREMENT LINE FEED COUNTER K P RB(NZ) REL10 ANY MORE LF ? K P CF A5,ENDBLK END OF BLOCK K
0x385b38…385ccc Dummy {f00=0x00ee, f01=0x018e, f02=»DWTDEV+DWTRLN,A6 RESET REQUESTED LINE K . P CM DWTDEV+DWTCO1,A6 CLEAR COLUMN COUNTER L . P LDR A2,A1 GET RETURN CODE L ` & PREL20 ANKL A2,/100 PRINTER RESET ? L P ABL(NZ) RCTP YES L $ P CF A5,RESREC RESET RECOVERY BIT L P ABL LENDIS END REQUEST L
0x385ccc…385e60 Dummy {f00=0x00ee, f01=0x018e, f02=» : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON M P* M B @ P************************************************************ M L PRCTP EQU * M * PRCTP07 LDKL A1,/7FFF SET DEVICE BUSY M P ANS A1,DWTST,A6 BUSY M P LDKL A5,DWTSB2 STACK BASE
0x385e60…385ff4 (3, 450) Dummy {f00=0x00ef, f01=0x0190, f02=» 6 P CM DWTDEV+DWTSYST,A6 SET SYSTEM START INDICATOR N 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET N > * P CF A5,KONVER CONVERT BIANARY TO ASCII N r 2 P ST A4,DWTDEV+DWTDCS,A6 SET CHAR. SET DOCUMENT N 4 P ST A4,DWTDEV+DWTPCS,A6 SET CHAR. SET CONT.STAT. N
0x385ff4…386188 Dummy {f00=0x00ef, f01=0x0190, f02=»ONT.STAT. N h 6 P LDKL A4,DOCLEN GET STANDARD PAGE LENGTH DOCUMENT O * P CF A5,KONVER CONVERT BINARY TO ASCII O L 4 P ST A4,DWTDEV+DWTDL,A6 SET PAGE LENGTH DOCUMENT O z 2 P LDKL A4,MATRIX GET STANDARD CHAR MATRIX FONT O P ORK A4,ZERO MAKE ASCII O 2 P
0x386188…38631c Dummy {f00=0x00ef, f01=0x0190, f02=»RD CHAR DENSITY/PITCH O v P ORK A4,ZERO MAKE ASCII P 4 P SC A4,DWTDEV+DWTCMT+1,A6 STORE IN DWT (TRACTOR) P > 6 P SC A4,DWTDEV+DWTCMF+1,A6 STORE IN DWT (FRONT/FRI) P v , P CF A5,GTSTAT DUMMY ST., CLEAR RESET BIT P PRCTP10 EQU * P " P LDR A4,P GET PROGRA
0x38631c…3864b0 Dummy {f00=0x00ef, f01=0x0190, f02=»T/FRI) P d , P LDKL A1,/20 INDICATE POWER OFF OCCURED Q P ORS A1,DWTDEV,A6 Q > $ P LD A1,DWTECB,A6 RUNNING REQUEST Q X , P ABL(NZ) ACT020 YES , REPEAT THE REQUEST Q PRCTP20 ABL LENDIS DISPATCH Q P EJECT Q @ P****************************************
0x3864b0…386644 Dummy {f00=0x00ef, f01=0x0190, f02=» P* R : P* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER R P* R L P* AT EXIT A1 = RETURN CODE R V P* R x @ P************************************************************ R PGTSTAT EQU * R * P CM DWTDEV+DWTRC,A6 RESET RETURN CODE R P
0x386644…3867d8 Dummy {f00=0x00ef, f01=0x0190, f02=»ORT R p " PGTST02 LCR A2,A3 GET CHARACTER S P ANK A2,/FF MASK S 2 P SLL A2,8 SHIFT LEFT S J * P RF(N) GTST04 END OF CONTROL SEQUENSE S f P SRL A2,8 SHIFT RIGHT S P CF A5,OUTPUT S P RF(NZ) ERGP14 JMP IF ERROR S P ADK A3,1 INCR. ADDRESS S
0x3867d8…38696c Dummy {f00=0x00ef, f01=0x0190, f02=»AVE DWTADDRESS S P LDKL A4,DWTDEV+DWTTP T P ADR A4,A6 TIMER T 4 & P CF A15,SETIMP SET TIMER, 10 SEC. T L * P DATA ERGP00,TIME RETURN ADDRESS,TIME T v ( PGTST05 LDKL A4,TAB GET TABLE ADDRESS T PGTST10 EQU * T P LDK A3,0 RESET INDEX T * P CF A5
0x38696c…386b00 Dummy {f00=0x00ef, f01=0x0190, f02=» P LDR A7,A7 ORDER /00 ? U P RF(NZ) GTST15 NO U " " P CCK A2,/3B STRING SEPARATOR ? U < P RF(NE) GTST15 NO U b * P IM DWTDEV+DWTSER,A6 IND. STRING SEP. U | P LD A2,DWTDEV+DWTSER,A6 U ( P SUK A2,2 TWO SEPARATORS RECEIVED ? U & P RF(NZ) GTST30 NO,
0x386b00…386c94 (3, 451) Dummy {f00=0x00ef, f01=0x0190, f02=»SERVICE STATUS U ~ . P LDKL A4,TAB+20 INCR. ADDR. TO SERV. STAT. V * PGTST15 LCR A3,A4 GET MASK RETURN CODE V H P ANR A2,A3 V v * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 V P LC A3,1,A4 A3 TIMES V $ P EXR A3 EXECUT SHIFT INSTRUCTION V P LDR A7,A7 ORD
0x386c94…386e28 Dummy {f00=0x00ef, f01=0x0190, f02=»N CONTR. WORD V p P RF GTST30 W > PGTST20 ORS A2,DWTDEV+DWTRC,A6 SAVE RETURN CODE TEMPORARILY W ( $ PGTST30 ADK A4,2 INCREMENT ADRESS W j ( P RB GTST10 GET NEXT STATUS CHARACTER W PGTSEND EQU * W * P LD A1,DWTDEV+DWTRC,A6 GET RETURN CODE W 0 P CM DWTD
0x386e28…386fbc Dummy {f00=0x00ef, f01=0x0190, f02=»A6 RESET TIMER W ~ 2 PGTST40 CM DWTDEV+DWTTP,A6 RESET TIMER POINTER X PGTST50 EQU * X L P RTN A5 X ` P EJECT X p @ P************************************************************ X ~ P* X : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE X
0x386fbc…387150 Dummy {f00=0x00ef, f01=0x018e, f02=» X PKONVER EQU * Y P* BINARY TO DEC. Y P LDK A2,0 CLEAR A2 Y 4 P CWK A4,100 VALUE > 100 ? Y N P RF(L) KONV05 NO Y p P SUKL A4,100 Y & P LDKL A2,/100 LEFT BYTE OF A2=X=1 Y * PKONV05 CWK A4,10 ARE THERE ANY TENS ? Y P RF(L) KONV04 NO Y
0x387150…3872e4 Dummy {f00=0x00ef, f01=0x0190, f02=» P ORK A4,/30 Z IN A4 Z P SRC A2,8 YX IN A2 Z P LDR A1,A2 Z : P ANKL A1,/FF00 KEEP Y IN A1 Z L . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII Z p P ORR A4,A1 YZ IN A1. ASCII Z P RTN A5 Z P EJECT Z P************************* Z P* RE
0x3872e4…387478 Dummy {f00=0x00ef, f01=0x0190, f02=». Z . P XRS A4,DWTDEV,A6 YES. RESET RECOVERY BIT [ 2 P ORKL A1,/100 INDIC. RECOV. IN RET. CODE BIT7 [ < PRESRTN RTN A5 RETURN [ r P* [ P* [ 6 P************************************************** [ P* [ . P* ERROR ROUTINE FOR STABLK,OUTPUT,
0x387478…38760c Dummy {f00=0x00ef, f01=0x0190, f02=»POINTER [ p P RF ERGP20 PERGP15 EQU * " 0 P ANK A1,/1A OUTP. ERR, SOFTW. T-OUT,LRC-ERR 6 P ABL(NZ) RCTP YES, RECOVERY j PERGP17 EQU * P IFF REQEND=1 P ABL LDISP DISPATCH P XIF $ PERGP20 LDK A1,1 SET NOT OPERABLE $ P
0x38760c…3877a0 Dummy {f00=0x00ef, f01=0x0190, f02=»D P* ] , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE ] P* TO THE PRINTER ] D P* ] P* ] f P* AT ENTRY : ] p " P* A2 = CONTROL SEQUENCE ADRESS ] 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC ] P* ] P* ] P* AT EXIT : ]
0x3877a0…387934 (3, 452) Dummy {f00=0x00ef, f01=0x0190, f02=»T-DISPLACEMENT ] p 4 P ST A2,DWTDEV+DWTSTR,A6 CONTROL SEQUENCE ADRESS ^ PSEND10 EQU * ^ N 8 P LD A3,DWTDEV+DWTSTR,A6 GET CONTROL SEQUENCE ADRESS ^ b P LCR A2,A3 GET CHARACTER ^ P ANK A2,/FF MAKE CHARACTER ^ & P SLL A2,8 END OF CONTROL SEQUENCE ^
0x387934…387ac8 Dummy {f00=0x00ef, f01=0x018e, f02=»TER ^ p P CF A5,OUTPUT SEND CHARACTER _ P RB(NZ) ERGP15 JMP IF ERROR _ 0 PSEND20 EQU * _ T 4 P IM DWTDEV+DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS _ h P RB SEND10 GET NEXT _ PSEND30 EQU * _ 2 P LD A3,DWTDEV+DWTDISP,A6 GET DWT-DISPLACEMENT _ P A
0x387ac8…387c5c Dummy {f00=0x00ef, f01=0x0190, f02=» 2 P IM DWTDEV+DWTDISP,A6 INC. DISPLACEMENT ADRESS ` P RB SEND20 GET NEXT ` : PSENDEND EQU * ` V P RTN A5 ` l P EJECT ` | @ P************************************************************ ` P* ` P* SENPAR ` P* ` B P* THIS ROUTINE SENDS
0x387c5c…387df0 Dummy {f00=0x00ef, f01=0x0190, f02=»GP15 JMP IF ERROR ` P IFT SPEEDY=1 a P LDKL A2,CSSM a 0 P LDKL A3,DWTDEV+DWTHSP a F & P CF A5,SEND SEND SELECT HIGH SPEED a d P XIF a P IFT SINHAN+FFDEV=1 a " P LC A2,DWTDEV,A6 GET DWTINDEX a P ANK A2,1 a P RF(NZ) SEN10 a P XIF
0x387df0…387f84 Dummy {f00=0x00ef, f01=0x0190, f02=» SELECTED PAGE LENGTH a P LDKL A2,CSSNV b P LDKL A3,DWTDEV+DWTPCS b 4 , P CF A5,SEND SEND NATIONAL CHAR VARIATION b R P LDKL A2,CSCPL b P LDKL A3,DWTDEV+DWTCMF b * P CF A5,SEND SEND CHAR. MATRIX & PITCH b P RF SEN20 b P* b P IFT SIN
0x387f84…388118 Dummy {f00=0x00ef, f01=0x0190, f02=» IFT SINHAN+FFDEV=1 b P LDKL A2,CSSLPL c P LDKL A3,DWTDEV+DWTDL c 4 * P CF A5,SEND SEND SELECTED PAGE LENGTH c R P LDKL A2,CSSNV c P LDKL A3,DWTDEV+DWTDCS c , P CF A5,SEND SEND NATIONAL CHAR VARIATION c P LDKL A2,CSCPL c P LDKL A3,DWTDE
0x388118…3882ac Dummy {f00=0x00ef, f01=0x0190, f02=»ERROR c z P ABR A4 RETURN d P* d $ P EJECT d . 2 P********************************************** d < P* d r > P* THIS ROUTINE SENDS A CONTR. SEQ. WITHOUT DWT REFERENCE d | , P* AT ENTRY : A3= CONTROL SEQ, ADDRESS d P* d PSEN40 LCR A2,A3
0x3882ac…388440 Dummy {f00=0x00ef, f01=0x0190, f02=»PUT d P RB(NZ) ERGP16 JMP IF ERROR e P ADK A3,1 INCR. ADDRESS e 0 P RB SEN40 GET NEXT CHAR. e P * PSEN50 RTN A5 RETURN & SEND PARAMETERS e p P EJECT e @ P************************************************************ e P* e P* BINARY e
0x388440…3885d4 (3, 453) Dummy {f00=0x00ef, f01=0x0190, f02=»RK REGISTER e P* A3= BINARY OUTPUT f P* f 0 P* f : P* f D PBINARY SUR A3,A3 CLEAR A3 f N P LDR A2,A1 MAX. LINE ASCII f p P SRL A2,8 f P SUK A2,/30 f P ADR A3,A2 f P ADR A3,A2 f P SLL A2,3 f P ADR A3,A2 f P ANK A1,
0x3885d4…388768 Dummy {f00=0x00ef, f01=0x0190, f02=»4 f z " P DATA /3235,/3330,/3333,/3335 g " P DATA /3336,/3438,/3530,/3531 g 0 " P DATA /3630,/3636,/3730,/3732 g V P* g | P* g P* g P* g 6 PNCVTAB EQU *-2 NATIONAL CHARACTER VARIATION YABLE g " P DATA /3031,/3032,/3033,/3034 g " P DAT
0x388768…3888fc Dummy {f00=0x00ef, f01=0x0190, f02=»REPORT FROM PRINTER g p P DATA /C0,/C0,/C0,/2CC * h P DATA /2CF,/1C8,/C0,/C0 * h > P DATA /C0,/C0,/FC8,/FC0 h ` P DATA /C0,/C0 h , PPRITAB EQU * BRANCH ADDRESSES ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA PRI30 h P DATA
0x3888fc…388a90 Dummy {f00=0x00ef, f01=0x40b2, f02=»FRO30 h P DATA FRO20 i P XIF i " $ PLINTAB EQU *-2 LINE SPACE TABLE i . ( P DATA /3033,/3034,/3036,/3038,/3132 i V P DATA /3136,/3234,/3438 i P END i @ i S ORDER /24 h P DATA PRI50 h P DATA PRI40 h P DATA PRI30 h P DATA
0x388a90…388c24 Dummy {f00=0x00ef, f01=0x4008, f02=»@ j @
0x388c24…388db8 Dummy {f00=0x00ef, f01=0x2008, f02=» k * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x388db8…388f4c Dummy {f00=0x00ef, f01=0x0190, f02=» 3 ) 5 U P$ p T X # P T (P U (" ] " '4 Y T P X P P _ ] W Q Y _2 @# T (@ > P# X R @ U S '4 U &W U 4X6 X< 5 (b_F ? @) 1 T ) A) % > >)
0x388f4c…3890e0 Dummy {f00=0x00ef, f01=0x0190, f02=»
0x3890e0…389274 (3, 454) Opaque[0x194]
0x389274…389408 # DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19a0, f03=0x0000}
0x389274…389408 IdxSect {
0x389274…389408 f00 = 0x00cd // 0x389274 @0x0
0x389274…389408 f01 = 0x000e // 0x389276 @0x2
0x389274…389408 gno = [ // 0x389278 @0x4
0x389274…389408 [0x00]: C0x00cd.0x0.0
0x389274…389408 [0x01]: C0x00cd.0x1.0
0x389274…389408 [0x02]: C0x00cd.0x2.0
0x389274…389408 [0x03]: C0x00d9.0x2.0
0x389274…389408 [0x04]: C0x00d9.0x3.0
0x389274…389408 [0x05]: C0x00da.0x0.0
0x389274…389408 [0x06]: C0x00dd.0x2.0
0x389274…389408 ]
0x389274…389408 }
0x389408…38959c Dummy {f00=0x00cd, f01=0x018e, f02=» 2 P IDENT DRTW01 REL 11.0 81-06-12 870105041100 P : $ P =4,COND. FOR BSP,CANC AND EOR B P REL 11.0 81-04-15 j 0 P =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB P REL 11.0 81-01-26 $ P =2,BOTH KEYTABLE AND STANDARD P EOR-
0x38959c…389730 Dummy {f00=0x00cd, f01=0x0190, f02=» P 6 P************************************************** P* J $ P* PHILIPS TERMINAL SYSTE PTS T P* | , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P* P* P* P* P* P* 6 P**********************
0x389730…3898c4 Dummy {f00=0x00cd, f01=0x018e, f02=» P* P EJECT P* P* & P*********** 0 P* ENTRIES * D P*********** X P* l P ENTRY TWAD ADDRESS BLOCK v P ENTRY IHTW P ENTRY TWON P ENTRY DWTW01 P* P************* P* EXTERNALS *
0x3898c4…389a58 Dummy {f00=0x00cd, f01=0x0190, f02=» n * P EXTRN SETIME SET TIME BEFORE TIME-OUT . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK 6 P EXTRN DWTST STATUS h P EXTRN DWTBC BYTE COUNTER P EXTRN DWTECB ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A
0x389a58…389bec Dummy {f00=0x00cd, f01=0x0190, f02=»ACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER * P EXTRN INTSAV SAVE AREA LAST INTRRUPT < * P EXTRN PFPOST PWF POST PROCESSING FLAG j P EJECT P* P* P******************** P* I/O-INSTRUCTIONS P********************
0x389bec…389d80 Dummy {f00=0x00cd, f01=0x0190, f02=»OUTPUT PTWSST EQU /4AC0 SENSE STATUS P* 2 P* < P EJECT F P* T P* ^ P************* h P* CONSTANTS * ~ P************* P* P* PCR EQU /0D CARRIAGE RETURN PLF EQU /0A LINE FEED " PLNGERR EQU /
0x389d80…389f14 (3, 455) Dummy {f00=0x00cd, f01=0x0190, f02=»************** P* CONDITIONAL ASSEMBLY* P************************ 6 P* V P* ` PX:A EQU 0 j PX:B EQU 0 | PX:C EQU 60 PX:D EQU 10 PX:E EQU 6 PX:F EQU /5F5E =4 PX:G EQU /0D00 =4 P PTIMOUT E
0x389f14…38a0a8 Dummy {f00=0x00cd, f01=0x0190, f02=»* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. 2 P* ` PMMUPAG EQU 1 j P* ~ P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P
0x38a0a8…38a23c Dummy {f00=0x00cd, f01=0x0190, f02=»********* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* PDWTHP EQU START+/18
0x38a23c…38a3d0 Dummy {f00=0x00cd, f01=0x0190, f02=»U KEY TABLE SIZE z ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX D PTWAD EQU * f P DATA TWA ACTIVATION PART x " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF
0x38a3d0…38a564 Dummy {f00=0x00cd, f01=0x0190, f02=» LENGTH =0 x P* P* P LDR A2,A7 COPY ORDER & P RF(NP) TWAERR REQUEST ERROR D P SUK A2,4 h P RF(Z) TWAERR REQUEST ERROR z P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* P*
0x38a564…38a6f8 Dummy {f00=0x00cd, f01=0x0190, f02=»GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE P LDR A1,A6 SAVE DWT-ADDRESS H P CF A15,SETIME l P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P IFT POWUP=1 " P LD A2,DWT
0x38a6f8…38a88c Dummy {f00=0x00cd, f01=0x0190, f02=» P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP P ABL IHTW35 PERFORM ENDIO > P XIF ` PTWA020 LDK A2,/21 l P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT
0x38a88c…38aa20 Dummy {f00=0x00cd, f01=0x0190, f02=»NZ) RED037 P XIF P SUK A7,1 P RF(P) RED050 ORDERS 02/03 0 P* R P* 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER f P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P RF(Z) RED040 BASIC READ P
0x38aa20…38abb4 (3, 456) Dummy {f00=0x00cd, f01=0x0190, f02=»RED040 EQU * P P IFT TIMOUT=1 P LD A7,DWTOR,A6 GET ORDER 2 P ANK A7,/FF MASK ORDER T P CWK A7,4 r P RF(G) RED045 WRITE ORDER " P LD A4,DWTTP,A6 TIMER POINTER * P RF(Z) RED045 NO TIMIMG ON THIS DEVICE P CM* DWTTP,A6
0x38abb4…38ad48 Dummy {f00=0x00cd, f01=0x0190, f02=»CT P* P* P* P* ORDERS 02,03 ( P* @ P* J PRED050 EQU * T " P LD A1,10,A8 GET CONTROL WORD h P RF(Z) RED080 NO KEYTABLE " P LCR A4,A1 GET NUMBER OF KEYS P ANK A4,/FF " P ADR A1,A4 ADDRESS TO LAST KEY
0x38ad48…38aedc Dummy {f00=0x00cd, f01=0x0190, f02=»2,A1 CHECK IF IN KEYTABLE " P RB(NE) RED060 NOT IN KEYTABLE " P ADK A4,1 MAKE INDEX =3 H , P ST A4,10,A8 STORE INDEX IN CONTROL WORD h 2 PRED070 CF A5,STORE STORE KEY IN ECB-BUFFER =2 P RB RED040 EXECUTE CIO-HALT PRED080 CC A2,TWEOF,A6
0x38aedc…38b070 Dummy {f00=0x00cd, f01=0x018e, f02=»WCLR,A6 P RF(E) RED110 CLEAR P EJECT , P* : P* D ( P* CHARACTER NOT FOUND IN KEYTABLE N P* z P* P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED10
0x38b070…38b204 Dummy {f00=0x00cd, f01=0x0190, f02=» P RF RED110 P* P* PRED100 SUK A4,/20 * P RF(N) CODERR LESS THAN /20 D P SUK A4,/3F h $ P RF(NP) RED110 CORRECT CHARACTER | P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE C
0x38b204…38b398 Dummy {f00=0x00cd, f01=0x0190, f02=» CC A2,TWBSP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 8 P RB(NE) RED035 P P* f P* p P LDK A3,0 CLEAR ECB-BUFFER z " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 G
0x38b398…38b52c Dummy {f00=0x00cd, f01=0x0190, f02=»* P* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE * P* b P* l PWRITE EQU * v PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P*
0x38b52c…38b6c0 Dummy {f00=0x00cd, f01=0x0190, f02=»R t P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF 2 P* T P* ^ , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR h P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF
0x38b6c0…38b854 (3, 457) Dummy {f00=0x00d9, f01=0x0190, f02=» P* PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF & P SUK A3,1 J P RF(NZ) WRT030 P LDK A2,/0C SEND FORM FEED t P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P*
0x38b854…38b9e8 Dummy {f00=0x00d9, f01=0x0190, f02=»* 6 PWRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 D P RB(Z) RED040 LAST CHARACTER X P CWK A7,5 | P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK
0x38b9e8…38bb7c Dummy {f00=0x00d9, f01=0x0190, f02=» ERRCOD LESS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F 2 P SUK A1,/20 X " P RF(NP) WRT060 BETWEEN /60-/7F l P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P*
0x38bb7c…38bd10 Dummy {f00=0x00d9, f01=0x0190, f02=» P* PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER & P LDR A4,A2 COPY 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER t P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1
0x38bd10…38bea4 Dummy {f00=0x00d9, f01=0x0190, f02=» NUMBER OF SPACES TO BE SENT , P RB(NP) WRT050 NO SPACES SHOULD BE SENT $ P LDR A4,A2 T " PTAB030 LDK A2,/20 SEND BALNKS f $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND AN
0x38bea4…38c038 Dummy {f00=0x00d9, f01=0x0190, f02=»FER INDEX | " P RB WRT050 GET NEXT CHARACTER P EJECT 8 P* F P* P P* RECOVERY ROUTINE Z P* v P* P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=
0x38c038…38c1cc Dummy {f00=0x00d9, f01=0x0190, f02=»A1,/200 & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF : P LD A1,DWTST,A6 F P RF(N) EXIT DEVICE NOT BUSY ^ PTWON10 LD A3,DWTA3,A6 P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB
0x38c1cc…38c360 Dummy {f00=0x00d9, f01=0x018e, f02=»R 05 ~ P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START * P LDK A2,CR R P LDK A3,0 d P LD A4,DWTHP,A6 v P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND
0x38c360…38c4f4 (3, 458) Dummy {f00=0x00d9, f01=0x0190, f02=» P* P* PIHTW EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT * P IFT CPU852=1 R & P CF A15,SAVE8 SAVE A1-A8 ON STACK h P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDKL A6,DWTW0
0x38c4f4…38c688 Dummy {f00=0x00d9, f01=0x0190, f02=»RKL A2,TWSST P EXR A2 EXECUTE SST P RF(A) IHTW30 ENDIO 0 P LD A7,DWTOR,A6 GET ORDER L P ANK A7,/FF n P SUK A7,4 P RF(P) IHTW30 " P LDR* A2,A6 GET DEVICE ADDRESS P ORKL A2,TWINR P EXR A2 EXECUTE INR $ P ANK
0x38c688…38c81c Dummy {f00=0x00d9, f01=0x0190, f02=»0 NO TIMING ON THIS DEVICE P LDKL A1,-TIME " P ST* A1,DWTTP,A6 8 P XIF P P* P* f PIHTW30 LDK A1,0 p P RF LDREGE RESTORE REGISTERS P P PIHTW35 EQU * P IFT POWUP+TIMOUT=2 P " P LD A1,DWTTP,A6 TIME
0x38c81c…38c9b0 Dummy {f00=0x00d9, f01=0x0190, f02=» PIHTW40 EQU * ! P* ! P* ! & , PIHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH ! 0 PIHTW55 SUK A7,4 ! ` P RF(NP) IHTW60 READ ORDER ! x P* ! P* ! $ P LC A3,DWTBC,A6 GET BYTE COUNTER ! * P ADS A3,DWTHP,A6 UPDATE HEAD POSITION ! P LDK
0x38c9b0…38cb44 Dummy {f00=0x00d9, f01=0x0190, f02=»M TENDIO ! ~ P* " P* " P " $ PSKIP LDR* A2,A6 " , P ORKL A2,TWSST " D P EXR A2 SST " Z P RF(A) EXIT " n P LDR* A2,A6 " P ORKL A2,TWHLT " P EXR A2 CIO HALT " P RF EXIT " P EJECT " P* " P* " P* " P* I/O
0x38cb44…38ccd8 Dummy {f00=0x00d9, f01=0x0190, f02=»LT " n P RF EXECIO # " POTR LDKL A1,TWOTR OTR # P* # B P* # L PEXECIO LD A7,PFPOST # V P RF(NZ) STREG PFINIT PENDING # r P ORR* A1,A6 GET I/O-COMMAND # P EXR A1 EXECUTE COMMAND # P RF(NA) HALT # PSTREG EQU * # P LDKL
0x38ccd8…38ce6c Dummy {f00=0x00d9, f01=0x0190, f02=» A4 # t $ P ST A5,DWTA5,A6 A5 $ PEXIT ABL TDISP $ 4 PHALT ST A2,DWTA2,A6 $ J " P CF A5,HLTIO EXECUTE CIO-HALT $ f P LD A2,DWTA2,A6 $ P RB STRTIO RESTART REQUEST $ P* $ P* $ P EJECT $ P* $ P* $ P* $ & P*
0x38ce6c…38d000 Dummy {f00=0x00d9, f01=0x0190, f02=» $ p P SCR A2,A4 STORE CHARACTER % $ P ADK A3,1 INCREMENT BUFFER INDEX % * P RTN A5 % R P* % b P* % l P* % v P IFT TIMOUT=1 % P* % P* % P* TIMOUT ROUTINE % P* % P* % PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS %
0x38d000…38d194 (3, 459) Dummy {f00=0x00da, f01=0x0190, f02=»* % 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 & P* & F P* & P PLDREGE EQU * & Z & P LD A3,DWTA3,A6 RELOAD REGISTER A3 & n & P LD A4,DWTA4,A6 A4 & & P LD A5,DWTA5,A6 A5 & P LD A7,DWTOR,A6 & P ANK
0x38d194…38d328 Dummy {f00=0x00da, f01=0x0190, f02=» & 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER ' P* ' D P* ON ENTRY: ' N P* ' d P* A3 = BUFFER INDEX ' n P* A8 = ECB-ADDRESS ' P* ' P* ON EXIT: ' P* ' P* A2 = CHARACTER ' * P* A1 = 0 IF LAST CHAR
0x38d328…38d4bc Dummy {f00=0x00da, f01=0x0190, f02=» EQU * ' P LD A1,4,A8 REQUESTED LENGTH ( P SUR A1,A3 ( 2 * P RF(NP) GCH010 LAST CHARACTER REACHED ( D " P LD A1,2,A8 GET BUFFER ADDRESS ( r P ADR A1,A3 ( P LCR A2,A1 CHAR. TO A2 ( P ANK A2,/FF ( $ P ADK A3,1 INCREMENT BUFFER INDEX ( P RTN
0x38d4bc…38d650 Dummy {f00=0x00da, f01=0x018e, f02=» ( l P* ) P* ) PDWTW01 EQU * TABLE ENTRY ) " P DATA /0010 CHANNEL PARAMETER ) < 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ) b P DATA 0 ECB ADDRESS ) P DATA 0 ORDER ) ( P DATA TWAD POINTER TO ADDRESS BLOCK ) P DATA 0 TTAB-ADDRESS
0x38d650…38d7e4 Dummy {f00=0x00da, f01=0x0190, f02=» ) l P DATA DEVECB MMU ECB ADDRESS * P XIF * , P DATA 0 OUTPUT QUEUE LINK * 8 P DATA 0 SAVE AREA FOR A3 * Z P DATA 0 SAVE AREA FOR A4 * z P DATA 0 SAVE AREA FOR A5 * P RES 4 STACK BASE * P DATA 1 TIMER POINTER * P DATA 0 ECHO DEVICE *
0x38d7e4…38d978 Dummy {f00=0x00da, f01=0x0190, f02=»HT BYTE DOUBLE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + B , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + b P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA
0x38d978…38db0c Dummy {f00=0x00da, f01=0x4008, f02=»@ , DOUBLE ZERO * " P DATA 0 HEAD POSITION POINETR + P DATA 0 SAVE AREA FOR A2 + B , P DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 + b P* + P EJECT DRTW01 + P* + P* + P IFT MMUPAG=1 + PDEVECB EQU * + P DATA 0 + P DATA
0x38db0c…38dca0 Dummy {f00=0x00da, f01=0x2008, f02=» -
0x38dca0…38de34 (3, 460) Dummy {f00=0x00dd, f01=0x018e, f02=»VATE DM TASK #D - r P* . P* . " $ P* INPUT: A8=DISPATCH ADDRESS . , P* A6=FDB ADDRESS . T P* . v 2 PDMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D . P IFF SDM+ADM=0 . P LD A5,PRUN RUNNING TASK ID . P INH . P CF A15,EXIT
0x38de34…38dfc8 Dummy {f00=0x00dd, f01=0x0190, f02=» . P********** / P* DMTEND * / P********** / , P* / > P* COMMIT ENTRY / H P* ENTERED BY / ^ P* LKM / r P* DATA 16 / P* / P* / PDMTEND EQU * / P IFT EDM=0 / P IFT SDM=1 / & P LDR A6,A5 SAVE USER TTAB ADDRESS / P
0x38dfc8…38e15c Dummy {f00=0x00dd, f01=0x0190, f02=» PDMTE10 EQU * 0 P ADK A3,2 POINTER 0 P CWR* A5,A3 ENTRY IN TABLE 0 2 P RB(NE) DMTE10 TRY NEXT 0 T & P SU A3,SCTTCT RELATIVE TASK NUMBER 0 t P* SUK A3,2 =5 0 P SRL A3,1 0 P LDKL A14,STACK 0 P CF A14,RELPRO 0 PDMTE40 EQU * 0 P
0x38e15c…38e2f0 Dummy {f00=0x00dd, f01=0x0190, f02=»TERR EQU * REQUEST ERROR 0 P LDKL A7,REQER2 1 P RB DMTE40 RETURN 1 8 P* 1 R P DATA 0,0,0 1 PSTACK DATA 0 4 WORDS 1 p P* 1 P XIF 1 P IFT EDM=1 1 P LDR A6,A5 SAVE TTAB USER =1 1 2 P LDR A1,A5 GET BASE PARAMETER BLOCK ADDRESS =1 1
0x38e2f0…38e484 Dummy {f00=0x00dd, f01=0x0190, f02=»DER WORD 1 & P ABL(NZ) LKMRQE OTHER REQUEST BUSY 2 , P LDKL A2,/100 COMMIT ROLLBACK ACTIVATION 2 : P STR A2,A1 2 j P ST A7,PABORD,A1 ORDER WORD 2 | 6 P ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS 2 P LDKL A7,'$E' EDM TASK ID 2 " P ABL TIOECR
0x38e484…38e618 Dummy {f00=0x00dd, f01=0x0190, f02=»QTJOB 2 P ABL TDISP 3 P XIF 3 P EJECT 3 , P 3 : P P*************************************************************************** 3 B P P* C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * 3 P P******************************
0x38e618…38e7ac Dummy {f00=0x00dd, f01=0x0190, f02=»* SUBROUTINES NOT IN SYSTEM * 3 $ P******************************** 4 ( P* 4 P P IFT ADM+SDM=0 4 Z PDMACTD EQU * 4 p PFNDFDB EQU * 4 PMOV:US EQU * 4 PMOV:SU EQU * 4 PFINDTT EQU * 4 PRTNA14 EQU * 4 PSETCRO EQU * 4 P XIF 4 P
0x38e7ac…38e940 Dummy {f00=0x00dd, f01=0x0190, f02=»TOTSIZ EQU * 4 P XIF 5 P RB TASHLT SYSGEN ERROR 5 P* 5 @ P* 5 J P* 5 T P EJECT TIODM 5 ^ P IFF ADM+SDM=0 5 t P 5 8 P****DESCRIPTION************************************* 5 P* 5 : P* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FIL
0x38e940…38ead4 (3, 461) Opaque[0x194]
0x38ead4…38ec68 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x38ead4…38ec68 IdxSect {
0x38ead4…38ec68 f00 = 0x00f2 // 0x38ead4 @0x0
0x38ead4…38ec68 f01 = 0x0026 // 0x38ead6 @0x2
0x38ead4…38ec68 gno = [ // 0x38ead8 @0x4
0x38ead4…38ec68 [0x00]: C0x00f2.0x1.0
0x38ead4…38ec68 [0x01]: C0x00f2.0x3.0
0x38ead4…38ec68 [0x02]: C0x00f3.0x0.0
0x38ead4…38ec68 [0x03]: C0x00f3.0x1.0
0x38ead4…38ec68 [0x04]: C0x00f3.0x2.0
0x38ead4…38ec68 [0x05]: C0x00f3.0x3.0
0x38ead4…38ec68 [0x06]: C0x00f4.0x0.0
0x38ead4…38ec68 [0x07]: C0x00f4.0x1.0
0x38ead4…38ec68 [0x08]: C0x00f4.0x2.0
0x38ead4…38ec68 [0x09]: C0x00f4.0x3.0
0x38ead4…38ec68 [0x0a]: C0x00f5.0x0.0
0x38ead4…38ec68 [0x0b]: C0x00f5.0x1.0
0x38ead4…38ec68 [0x0c]: C0x00f5.0x2.0
0x38ead4…38ec68 [0x0d]: C0x00f5.0x3.0
0x38ead4…38ec68 [0x0e]: C0x00f6.0x0.0
0x38ead4…38ec68 [0x0f]: C0x00f6.0x1.0
0x38ead4…38ec68 [0x10]: C0x0106.0x1.0
0x38ead4…38ec68 [0x11]: C0x0106.0x2.0
0x38ead4…38ec68 [0x12]: C0x0107.0x1.0
0x38ead4…38ec68 ]
0x38ead4…38ec68 }
0x38ec68…38edfc Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 11.0 81-05-18 870105041100 P : ( P =3, CONDITION FOR CPU857 CHANGED B P =3, REL 11.0 81-04-02 n * P =2, A2 AND A3 DISCS IN SAME SYSTEM , P =2, REL 11.0 81-01-26 ,DATA CORRUPTED < P =1, PRR 11.0 80-11-19 ,AT
0x38edfc…38ef90 Dummy {f00=0x00f2, f01=0x0190, f02=»TERMINAL SYSTEM PTS P* . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS & P* X 0 P* PTS 6875 (X1215) AND/OR PTS 6876 (X1216) b P* P* P* P* P* 6 P************************************************** P*
0x38ef90…38f124 Dummy {f00=0x00f2, f01=0x0190, f02=»EX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : & P* T P* /00 TEST STATUS ^ P* /01 BASIC READ | P* /05 BASIC WRITE P* /11 PHYSICAL READ P* /15 PHYSICAL WRITE P* /1F FOR
0x38f124…38f2b8 Dummy {f00=0x00f2, f01=0x0190, f02=» P* P* $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE @ 2 P ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1 d 2 P ENTRY IHDU INTERRUPT HANDLER DISC UNIT NO. 1 2 P ENTRY IHDU2 INTERRUPT HANDLER DISC UNIT NO. 2 . P E
0x38f2b8…38f44c Dummy {f00=0x00f2, f01=0x0190, f02=»************* P* P* P EXTRN TDISP DISPATCHER * P EXTRN TENDIO END I/O J . P EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK h , P EXTRN NVLCHK CHECK IF NEW VOLUME LOADED 0 P EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL 6 P EXTRN VOL
0x38f44c…38f5e0 Dummy {f00=0x00f2, f01=0x0190, f02=»S h P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG . * P EXTRN PFPOST PWF POST PROCESSING FLAG X * P EXTRN INTSAV SAVE AREA LAST INTERRUPT P EXTRN SETIMP TIMER P EXTRN TTB:MT P EXTRN DWTST STATUS P EXTRN
0x38f5e0…38f774 (3, 462) Dummy {f00=0x00f2, f01=0x0190, f02=» EXTRN DWTA5 SAVE AREA A5 & P EXTRN DWTSB1 STACK BASE 1 IN DWT " & P EXTRN DWTSB2 STACK BASE 2 IN DWT L " P EXTRN DWTUEC USER ECB ADDRESS v & P EXTRN DWTORD SAVE AREA FOR ORDER . P EXTRN DWTNVL NEM VOLUME LOADED INDICATORS P EXTRN DWTVOL VO
0x38f774…38f908 Dummy {f00=0x00f2, f01=0x0190, f02=»XTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE ( ( P EXTRN ECBCW1 ECB 1:ST CONTROL WORD L ( P EXTRN ECBCW2 ECB 2:ND CONTROL WORD x P EJECT DRDU01 P* P* P************************** P*
0x38f908…38fa9c Dummy {f00=0x00f2, f01=0x0190, f02=» READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X:A = 0 8 P* V PX:A EQU 0 ` PRAW EQU 1 r P* P* . P* THIS DRIVER CAN HANDLE TWO DISC UNITS P* IF X:B := 2 P* PX:B EQU 1 PNUNITS EQU
0x38fa9c…38fc30 Dummy {f00=0x00f2, f01=0x0190, f02=»MMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION ( . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. b P* PCPU852 EQU 0 P* P EJECT DRDU01 P* P* 4 P* A PROGRAM VERSION USING THE INST
0x38fc30…38fdc4 Dummy {f00=0x00f2, f01=0x0190, f02=»RAM VERSION FOR FORMAT , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 , P* A3 IS OBTAINED BY SETTING VERSA3 EQU 1 N P* ~ PX:C EQU 1 PVERSA2 EQU 1 P* PX:D EQU 1 PVERSA3 EQU 1 P* P EJECT DRDU01 DRDU01 P
0x38fdc4…38ff58 Dummy {f00=0x00f2, f01=0x0190, f02=»XED DISC NO. 1 r 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 0 PDAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2 N 4 PDAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2 $ PWER1 EQU /10 MULTIPLEXOR ADDRESS & PCUADR EQU /08 CONTROL UNIT ADDRESS
0x38ff58…3900ec Dummy {f00=0x00f2, f01=0x0190, f02=»84 PHYSICAL SECTOR LENGTH PQRETRY EQU 4 NO OF RETRIES " PTIME EQU 1000 1 MIN 40 SEC D P* f PDEVIND EQU 10 p P* P EJECT DRDU01 DRDU01 P* P* $ P DATA 0 INDICATES NO MMU BUFFER " P DATA DEVIND DISC DEVICE IND
0x3900ec…390280 Dummy {f00=0x00f2, f01=0x0190, f02=» P XIF P* P IFT VERSA3=0 PBUFFER RES 25 4 P* J P IFT RAW=1 T P RES 103 f P XIF v P IFT VERSA2=1 =2 ( PCYLBUF RES 2 CYL ID CHECK BUFFER =2 P XIF =2 P* P EJECT DRDU01 DRDU01 P*
0x390280…390414 (3, 463) Dummy {f00=0x00f3, f01=0x0190, f02=»* P* P* PDUAD EQU * " P CM DWTRTY,A6 RETRY INDICATOR 0 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR V P LDK A1,0 P LC A1,DWTOR,A6 GET INDEX P IFT NUNITS=1 P SUK A1,1 P XIF P IFT NUNITS=2 P
0x390414…3905a8 Dummy {f00=0x00f3, f01=0x0190, f02=»A6 LOAD STACK BASE P IFT MMUPAG=1 ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS 0 P SLC A1,4 MOST SIGN. BITS P ANK A1,3 ~ P SRL A2,1 WORD ADDDRESS & P CF A5,MMULOG GET LOGICAL ADDRESS P XIF P* . P CF A15,NVLCHK CHECK IF
0x3905a8…39073c Dummy {f00=0x00f3, f01=0x0190, f02=» EJECT DRDU01 P* P* P********************* * P* * H P* TEST STATUS * f P* * P********************* P* P* P ORS A1,ECBRC,A8 NVL BIT P LDKL A2,/200 4
0x39073c…3908d0 Dummy {f00=0x00f3, f01=0x0190, f02=»READ VOLUME NAME P ADK A1,0 P RF(NZ) TESEND NOT OPERABLE * , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER N P ST A2,DWTOR,A6 ~ P LD A8,DWTECB,A6 ECB ADDRESS 6 P CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER P LDK A1,0 RESET RETU
0x3908d0…390a64 Dummy {f00=0x00f3, f01=0x0190, f02=» P* P EJECT DRDU01 P* & , P*************************************** 0 , P* * ` , P* NEW VOLUME LOADED CHECK * , P* ORDER CODE CHECK * , P*
0x390a64…390bf8 Dummy {f00=0x00f3, f01=0x0190, f02=» A7=ORDER CODE P* P* & PDUA:05 EQU * 0 ( P ADK A1,0 CHECK IF NEW VOLUME LOADED D " P ABL(NZ) END:IO PERFORM TENDIO p P SUK A7,1 P RF(Z) DUA:10 BASIC READ P SUK A7,4 P RF(Z) DUA:10 BASIC WRITE P SUK A7,12
0x390bf8…390d8c Dummy {f00=0x00f3, f01=0x0190, f02=» VOLUME | P* " PDUERR ABL DISIOE REQUEST ERROR P* @ ( PINCLEN EQU * REQUESTED LENGTH ERROR J P LDKL A1,/8008 v P ABL END:20 P EJECT DRDU01 P* P* P************************** P* *
0x390d8c…390f20 Dummy {f00=0x00f3, f01=0x0190, f02=» EQU * 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 " P LD A1,ECBCW1,A8 GET DISC TYPE B P IFT VERSA2+VERSA3=2 h P ECR A2,A1 P XIF P ANK A1,1 P RF(NZ) FORM03 PTS 6875 P ADK A7,204 PTS 6876 PFORM03 EQU * P*
0x390f20…3910b4 (3, 464) Dummy {f00=0x00f3, f01=0x0190, f02=»NZ) FORM05 A1 OR A2 " P LDKL A1,/C0C1 WRITE 386 BYTES P ADKL A3,PHSECL B PFORM05 EQU * Z " P ST A1,DWTFBU,A6 SAVE 1ST WER n P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A3,BUFFER P XIF P* P IFT
0x3910b4…391248 Dummy {f00=0x00f3, f01=0x0190, f02=» POINTER x P IFT NUNITS=2 P CF A5,INXUNI & P CM DWTCYL,A2 CYLINDER ZERO < P XIF ` P IFT NUNITS=1 l P CM DWTCYL,A6 CYLINDER ZERO P XIF P* P EJECT DRDU01 P* P* PFORM20 EQU * P LDK A4,QRETRY
0x391248…3913dc Dummy {f00=0x00f3, f01=0x0190, f02=» A1,5 STATUS P RF(NN) FORM40 SEEK ERROR P IFT NUNITS=2 6 P CF A5,INXUNI L P LD A1,DWTCYL,A2 b P XIF z P IFT NUNITS=1 P LD A1,DWTCYL,A6 P XIF 4 P ST* A1,0,A6 PREPARE DRIVER BUFFER WITH CYL. ID P LDK A3,0 0
0x3913dc…391570 Dummy {f00=0x00f3, f01=0x0190, f02=» P IFT VERSA2+VERSA3=2 P LD A1,DWTFBU,A6 GET 1ST WER $ P XIF H P* T P IFT VERSA2=1 ^ P IFT VERSA3=0 t P LDKL A1,/C002 P XIF P* P IFT VERSA2=0 P IFT VERSA3=1 * P LDKL A1,/C0C1 1ST WER WRITE 386 BYTES
0x391570…391704 Dummy {f00=0x00f3, f01=0x0190, f02=» v P IFT NUNITS=2 P CF A5,INXUNI P IM DWTCYL,A2 4 P XIF J P IFT NUNITS=1 V P IM DWTCYL,A6 l P XIF ( P SUK A7,1 DECREMENT CYLINDER COUNTER P RB(NZ) FORM20 0 P LD A2,ECBCW1,A8 GET FORMAT AND TYPE OF DISC * P ABL
0x391704…391898 Dummy {f00=0x00f3, f01=0x0190, f02=»RROR | P SUK A4,1 RETRY COUNTER P RB(NZ) FORM30 RETRY , PFORM50 EQU * H $ P LDK A1,2 SEEK ERROR RETURN CODE P ABL END:IO PERFORM END IO P EJECT DRDU01 DRDU01 P* P* 6 P**********************************************
0x391898…391a2c Dummy {f00=0x00f3, f01=0x0190, f02=»SECTOR NUMBER * 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * 2 6 P* * l 6 P************************************************* P* P* INPUT: ECB " P* OUTP
0x391a2c…391bc0 Dummy {f00=0x00f3, f01=0x0190, f02=»ESTED LENGTH | P RB(Z) INCLEN 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS * & P ANK A3,/FF SET CONDITION REGISTER d 4 P RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECTORS : P LD A3,ECBCW2,A8 SECTOR NUMBER WHERE THE BUFFER BEGIN ( P RB(
0x391bc0…391d54 (3, 465) Dummy {f00=0x00f3, f01=0x0190, f02=»WTSMX,A2 ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW P* < P IFT MMUPAG=0 F P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER t P XIF P* P EJECT DRDU01 P* P IFT VERSA2+VERSA3=2 P* P* " P**
0x391d54…391ee8 Dummy {f00=0x00f3, f01=0x0190, f02=» * x " P***************************** P* 4 P* > P LD A2,DWTFOR,A2 H P SUK A2,2 ` P RF(Z) RW:800 VERSION A2 r P XIF P* P EJECT DRDU01 P* P IFT VERSA3=1 P* * P********************************
0x391ee8…39207c Dummy {f00=0x00f3, f01=0x018e, f02=» BY * r * P* DIVIDE BY 3 * * P* * > * P************************************* l P* P IFT CPU852=0 " P LDK A1,0 PREPARE FOR DIVISION . P LD A2,ECBCW2,A8 GET LOGICAL SECTOR NUMB
0x39207c…392210 Dummy {f00=0x00f3, f01=0x0190, f02=» P* ! P IFT VERSA3=1 ! P IFT CPU852=1 ! $ P LD A1,ECBCW2,A8 ! : P LDR A3,A1 SECTOR NUMBER ! R P LDK A2,0 ! r PDVK:00 EQU * ! P ADR A2,A3 I:= I+I/4 ! P SRL A3,2 I:= I/4 ! P RB(NZ) DVK:00 ! P SRL A2,2 TRUNCATE ! P SUR A1,A2
0x392210…3923a4 Dummy {f00=0x00f3, f01=0x0190, f02=»3 ! | P RB(NN) DVK:10 " P ADK A1,3 REST " , P* A1=REMAINER=LOGICAL SECTOR POSITION " 6 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC " f P* " P EJECT DRDU01 " P XIF " P* " P IFT VERSA3=1 " P* " * P**********************
0x3923a4…392538 Dummy {f00=0x00f3, f01=0x0190, f02=»ION * " | * P* BRANCH ACCORDING TO SECTOR * # * P* POSITION * # H * P* * # v * P************************************* # P* # , P* INPUT: A1=SECTOR POSITION INDICATOR #
0x392538…3926cc Dummy {f00=0x00f3, f01=0x0190, f02=» SUK A1,1 # P IFT RAW=1 $ * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION $ $ 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER $ R P XIF $ P* $ P IFT VERSA3=1 $ P* LOGICAL SECTOR POSITION $ " P RF(N) RW:300 ,XXXX , , $ " P RF(Z) RW:
0x3926cc…392860 Dummy {f00=0x00f3, f01=0x018e, f02=» $ j * P* * % * P* READ/WRITE FROM SECTOR IN * % 6 * P* POSITION , , xxxx, * % d * P* * % * P************************************* % P* % ( P IMR A6 LOG. SEC
0x392860…3929f4 (3, 466) Dummy {f00=0x00f3, f01=0x0190, f02=» P CF A5,IOROUT & P DATA /0084 & P SUK A7,1 & . P RF RW:300 & @ P* & R P EJECT DRDU01 & P* & r * P************************************* & | * P* * & * P* READ/WRITE FROM SECTOR IN * & * P*
0x3929f4…392b88 Dummy {f00=0x00f3, f01=0x0190, f02=»* & P* ' PRW:200 EQU * ' P CF A5,IOROUT ' ( P DATA /0048 ' > P SUK A7,2 NUMBER OF SECTORS ' R P RF(N) RW:230 1 SECTOR IN IO ' v $ P RF(NZ) RW:260 >2 SECTORS IN IO ' P* , XX,XXXXXX, ' P CF A5,IOROUT ' P DATA /00C0 ' P
0x392b88…392d1c Dummy {f00=0x00f3, f01=0x018e, f02=»XXXXX, ' z P CF A5,IOROUT ( P DATA /80C0 ( $ P* ( 8 P EJECT DRDU01 ( B P* ( X ( P************************************ ( b ( P* * ( ( P* DIRECT READ/WRITE AS LONG * ( ( P* AS POSIBLE
0x392d1c…392eb0 Dummy {f00=0x00f3, f01=0x0190, f02=» P SUK A7,3 SECTOR COUNTER ) 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ) $ P CF A5,IOROUT ) X P DATA /80C0 ) n P CF A5,IOROUT ) P DATA /80C0 ) P RB RW:300 ) P* ) P EJECT DRDU01 ) P* ) ( P********************************
0x392eb0…393044 Dummy {f00=0x00f3, f01=0x0190, f02=» ) l ( P* * * ( P************************************ * 4 P* * ` P* * j PRW:500 EQU * * t P RF(Z) RW:580 3 SECTORS * P ADK A7,2 * P RF(P) RW:560 2 SECTORS * P RF(N) RW:600 0 SECTORS * PRW:530 EQU * ,
0x393044…3931d8 Dummy {f00=0x00f3, f01=0x0190, f02=» P DATA /80C0 + P CF A5,IOROUT + P DATA /0040 + . P RF RW:600 + B PRW:580 EQU * ,XXXXXX,XXXXXX, + T P CF A5,IOROUT + x P DATA /80C0 + P CF A5,IOROUT + P DATA /00C0 + P* + P EJECT DRDU01 + P* + P* + PRW:600 E
0x3931d8…39336c Dummy {f00=0x00f3, f01=0x0190, f02=»* * + P************************ , P* , @ 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO , J 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO , ~ P* A7=SECTOR COUNTER , P* , P LD A7,DWTOR,A6 , P ANK A7,/FF GE
0x39336c…393500 Dummy {f00=0x00f3, f01=0x0190, f02=»TION , l P RF(Z) RW:645 , XX, - P RF(P) RW:640 , XXXX, - * P ADK A2,/80 - H PRW:640 EQU * - P ADK A2,/80 - p PRW:645 EQU * - , P ST A2,ECBEL,A8 PREPARE EFFECTIVE LENGTH - * P LD A1,DWTSEI,A6 RAW FROM THIS SECTOR - " P LDR* A7,A6 GET LA
0x393500…393694 (3, 467) Dummy {f00=0x00f4, f01=0x018e, f02=» PRW:650 EQU * . P CF A5,IOROUT . P DATA /40C0 . . P IMR A6 NEXT PHYSICAL SECTOR . B P LDKL A1,PHSECL . f " P ADS A1,ECBEL,A8 UPDATE ECBEL . ~ P SUK A7,1 . P RB(NZ) RW:650 . P LD A7,ECBRL,A8 . , P ST A7,ECBEL,A8 CORRECT EFFECTIVE LE
0x393694…393828 Dummy {f00=0x00f4, f01=0x0190, f02=» . P XIF / P* / P EJECT DRDU01 / P* / 4 P IFT VERSA2=1 / > P* / T P* / ^ & P********************************* / h & P* * / & P* DISC FORMAT A2 * / & P* *
0x393828…3939bc Dummy {f00=0x00f4, f01=0x0190, f02=»WTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE / P XIF 0 < P* 0 H P IFT VERSA2=1 0 R PRW:850 EQU * 0 h P CF A5,IOROUT 0 | " P DATA /A080 INDICATE FORMAT A2 0 P LDKL A1,/100 0 0 P ADS A1,DWTUBU,A6 UPDATE USER BUFFER POINTER 0 P SUK A
0x3939bc…393b50 Dummy {f00=0x00f4, f01=0x0190, f02=»,A6 GET ORDER 0 P ANK A7,/FF 1 P SUK A7,/15 1 * P* 1 > P IFT VERSA3=1 1 H & P RB(NZ) RW:700 NOT PHYSICAL WRITE 1 ^ P XIF 1 P* 1 P IFT VERSA3=0 1 P IFT VERSA2=1 1 P IFT RAW=1 1 P RF(NZ) RW:905 1 P XIF 1 P* 1 P
0x393b50…393ce4 Dummy {f00=0x00f4, f01=0x0190, f02=» 1 P EJECT DRDU01 2 P* 2 P* 2 ( PRW:900 EQU * 2 2 P CF A5,IOROUT 2 F P DATA /E080 READ AFTER WRITE 2 P SUK A7,1 2 P RB(NZ) RW:900 2 P XIF 2 P* 2 P IFT VERSA2+VERSA3=2 2 P RB RW:700 2 P XIF 2 P* 2 P IFT V
0x393ce4…393e78 Dummy {f00=0x00f4, f01=0x0190, f02=» EJECT DRDU01 2 P* 3 4 P*********************************************** 3 4 P* * 3 X 4 P* IOROUT PERFORM READ OR WRITE AND SEEK * 3 4 P* IF NECESSARY * 3 4 P*
0x393e78…39400c Dummy {f00=0x00f4, f01=0x0190, f02=»ORD AFTER CF 3 z * P* BIT 0 :INDICATES DIRECT IO 4 0 P* BIT 1 :INDICATES READ AFTER WRITE 4 B * P* BIT 2 :INDICATES FORMAT A2 4 v * P* BIT 8-11:NUMBER OF WORDS/16 4 2 P* BIT12-15:START IN DRIVER BUFFER/32 4 < P
0x39400c…3941a0 Dummy {f00=0x00f4, f01=0x0190, f02=»DWTRTY INDICATES RETRIES DONE 4 H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 5 & P* 5 r PIOROUT EQU * 5 | * P LDR* A3,A6 GET PHYSICAL SECTOR NUMBER 5 " P SRL A3,5 GET CYLINDER NUMBER 5 P* 5 P IFT VERSA2+VERSA3=2 5
0x3941a0…394334 (3, 468) Dummy {f00=0x00f4, f01=0x018e, f02=»DU01 5 P* 6 P* 6 P IFT VERSA2=1 6 " P RF(NZ) SEE:05 NOT CYLINDER 0 6 6 P CF A5,SEEKZ 6 P SLL A1,6 6 p P RF(N) SEE:20 ERROR 6 P IFT NUNITS=2 6 P CF A5,INXUNI 6 P CM DWTCYL,A2 CYLINDER ZERO 6 P RF VA2BR 6 P XIF 6
0x394334…3944c8 Dummy {f00=0x00f4, f01=0x0190, f02=» 6 P* 7 PSEE:05 EQU * 7 P IFT NUNITS=2 7 & P CF A5,INXUNI 7 < * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 7 R P XIF 7 P IFT NUNITS=1 7 P CW A3,DWTCYL,A6 7 P XIF 7 P* 7 P IFT VERSA2=1 7 P IFT VERSA3=0 7 P RF(E) VA2:0
0x3944c8…39465c Dummy {f00=0x00f4, f01=0x0190, f02=» IFT VERSA2+VERSA3=2 7 $ P RF(NE) SEE:07 NOT SAME CYLINDER 8 P ADK A4,0 8 D P RF(N) VA2BR FORMAT A2 8 V P RF SEE:90 8 t P* 8 P EJECT DRDU01 8 P* 8 P* 8 PSEE:07 EQU * 8 P XIF 8 P* 8 P IFT NUNITS=1 8 ( P ST A3,DWTCYL,
0x39465c…3947f0 Dummy {f00=0x00f4, f01=0x0190, f02=»RY NUMBER OF RETRIES 8 PSEE:10 EQU * 9 P IFT NUNITS=2 9 0 $ P CF A5,INXUNI DOUBLED UNIT INDEX 9 F P XIF 9 n P CF A5,SEEK 9 z P SLC A1,5 RETURN CODE 9 P RF(N) SEE:30 OK 9 P* 9 P EJECT DRDU01 9 P* 9 P* 9 PSEE:15 EQU * 9
0x3947f0…394984 Dummy {f00=0x00f4, f01=0x0190, f02=» A4,1 RETRY COUNTER 9 P RB(NZ) SEE:10 TRY AGAIN : PSEE:20 EQU * : < P LDKL A3,/FFFF : P P IFT NUNITS=2 : f P CF A5,INXUNI : | * P ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER : P XIF : P IFT NUNITS=1 : * P ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER
0x394984…394b18 Dummy {f00=0x00f4, f01=0x0190, f02=» EQU * : P IFT NUNITS=2 ; P CF A5,INXUNI ; $ P XIF ; : P IFT VERSA2+VERSA3=2 ; F P LD* A1,4,A5 GET DATA WORD ; b P SLL A1,2 ; P RF(NN) SEE:31 FORMAT A3 ; P XIF ; P* ; P IFT VERSA2=1 ; P EJECT DRDU01 ; P* ; P* ;
0x394b18…394cac Dummy {f00=0x00f4, f01=0x0190, f02=»LINDER CHECK BUFFER =2 ; v P CF A5,CIO:50 < P ANK A1,/1F ERROR CHECK < 4 P RF(NZ) SEE:32 < T $ P LD A3,CYLBUF GET CYLINDER ID =2 < j P IFT NUNITS=2 < P CF A5,INXUNI < , P CW A3,DWTCYL,A2 CHECK IF SAME CYLINDER < P XIF < P IFT VERSA2=1
0x394cac…394e40 Dummy {f00=0x00f4, f01=0x0190, f02=»CYL ID < x PVA2BR EQU * = P ABL VA2:00 = " P XIF = 6 P* = B P IFT VERSA3=1 = L P EJECT DRDU01 = b P* = x P* = P* FORMAT A3 = P* = PSEE:31 EQU * = P IFT NUNITS=2 = P LD A3,DWTCYL,A2 = P XIF = P IFT VERSA3=1
0x394e40…394fd4 (3, 469) Dummy {f00=0x00f4, f01=0x0190, f02=»T A3,DWTBSE,A6 SAVE FOR BSELOD = P LDK A3,0 > & . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC > 8 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER > j P CF A5,READ > 2 P LD A3,DWTBSE,A6 GET SECTOR NUMBER FOR BSELOD > P ANK A1,/1F ERROR CODE CHECK >
0x394fd4…395168 Dummy {f00=0x00f4, f01=0x0190, f02=»1 RETRY COUNTER > P RB(NZ) SEE:15 RETRY ? PSEE:35 EQU * ? 4 P ABL END:10 ? H P* ? P IFT VERSA3=1 ? f P* ? | P EJECT DRDU01 ? P* ? P* ? PSEE:40 EQU * ? P IFT NUNITS=2 ? P CF A5,INXUNI ? ( P LD A3,DWTCYL,A2 GET CYL
0x395168…3952fc Dummy {f00=0x00f4, f01=0x0190, f02=» VERSA3=1 ? , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID @ P RB(NE) SEE:15 RETRY @ B P* @ ^ P EJECT DRDU01 @ h P* @ ~ P************************* @ P* * @ P* READ AND WRITE * @ P* FORMAT A3 *
0x3952fc…395490 Dummy {f00=0x00f4, f01=0x018e, f02=» P ANK A4,4 A P RF(Z) READ00 READ ORDER A P LD* A2,4,A5 A 6 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER A J P SLL A2,1 A ~ P IFT RAW=1 A " P RF(N) READWR READ AFTER WRITE A P XIF A P* A P IFT VERSA3=1 A P CWK A2,PHSECL A
0x395490…395624 Dummy {f00=0x00f4, f01=0x0190, f02=» A n P* B P EJECT DRDU01 B P* B ( P* B 2 PWRIT10 EQU * B < P LD* A2,4,A5 GET DATA WORD B P P LDR A4,A2 B r , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE B P SLL A4,1 BYTES B * P ANK A2,/F BEG ADRESS IN DRIVER BUFFER B P SLL A2,5 B
0x395624…3957b8 Dummy {f00=0x00f4, f01=0x0190, f02=» XIF B P IFT VERSA3=1 C P IFT NUNITS=1 C " ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER C 8 P XIF C d P IFT VERSA3=1 C p . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER C 4 P IM DWTFBU,A6 INDICATE WRITE FROM DRIVER BUFFER C * P CF A5,WRI:00 WRITE FROM
0x3957b8…39594c Dummy {f00=0x00f4, f01=0x0190, f02=»DKL A2,PHSECL PHYSICAL SECTOR LENGTH C 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER D , . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER D ` P ST A4,DWTSWD,A6 SAVE WORD D & P IM DWTFSW,A6 INDICATE SAVED WORD D P IFT NUNITS=2 D P CF A5,INXUNI D (
0x39594c…395ae0 Dummy {f00=0x00f4, f01=0x0190, f02=»0 D P IFT NUNITS=1 E P LD A2,DWTCYL,A6 E ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER E 8 P XIF E d P* E p P IFT VERSA3=1 E z P IFT MMUPAG=1 E P IFT NUNITS=2 E P CF A5,INXUNI E ( P LD A4,DWTCYL,A2 GET CYLINDER NUMBER E P XIF E
0x395ae0…395c74 (3, 470) Dummy {f00=0x00f4, f01=0x0190, f02=»1 E P IFT MMUPAG=1 F 0 P ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS F P RF(Z) WRIT30 SYSTEM AREA F T ( P TS -30,A15 SAVE REGISTERS ON STACK F v ( P TL DWTPAG,A6 LOAD PAGE WITH CYL ID F 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER F & P EL A3
0x395c74…395e08 Dummy {f00=0x00f4, f01=0x0190, f02=»WRIT30 EQU * F P SLL A2,1 BYTE ADDRESS G * P LD A3,PHSECL,A2 GET WORD TO BE SAVED G 2 ( P ST A4,PHSECL,A2 CYL ID IN POSITION G ` PWRIT40 EQU * G P ST A3,DWTSWD,A6 SAVA WORD G & P IM DWTFSW,A6 INDICATE SAVED WORD G P XIF G P* G P IFT V
0x395e08…395f9c Dummy {f00=0x00f4, f01=0x0190, f02=»RESTORE WORD TO USER BUFFER G P RF SEE:95 H $ P* H 6 P EJECT DRDU01 H @ P* H V P* H ` P IFT RAW=1 H j PREADWR EQU * H | " P CF A5,REA:10 READ AFTER WRITE H P RF SEE:97 H P XIF H P* H P IFT VERSA3=1 H PREAD00 EQU * H P
0x395f9c…396130 Dummy {f00=0x00f4, f01=0x0190, f02=»AD TO DRIVER BUFFER H P LD* A1,4,A5 GET DATA WORD I P SLL A1,1 I > P LDR A4,A1 I P 2 P ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED I b P ANK A1,/18 GET POSITION I P SLL A1,4 I P CF A5,MOVRED I P RF SEE:95 I PREAD20 EQU * I P I
0x396130…3962c4 Dummy {f00=0x00f4, f01=0x0190, f02=» . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER J & P CF A5,REA:00 READ TO USER BUFFER J 6 PSEE:95 EQU * J ` * P IMR A6 UPDATE PHYSICAL SECTOR POINTER J t P XIF J P* J P EJECT DRDU01 J P* J P* J PSEE:96 EQU * J P LD* A2,4,A5 GET D
0x3962c4…396458 Dummy {f00=0x00f4, f01=0x0190, f02=»1,0 J P SRL A2,1 WORD MODE K 0 P DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS K ( & P CF A5,MMULOG GET LOGICAL ADDRESS K P XIF K P* K PSEE:97 EQU * K P LDK A1,2 UPDATE RETURN K P ADS A1,4,A5 K P RTN A5 K P* K P EJECT DR
0x396458…3965ec Dummy {f00=0x00f4, f01=0x0190, f02=» K p $ P* DISC FORMAT A2 * L $ P* * L 0 $ P******************************** L X P* L P* L PVA2:00 EQU * L P LDK A4,QRETRY RETRIES L PVA2:10 EQU * L P IFT NUNITS=2 L P CF A5,INXUNI L P X
0x3965ec…396780 Dummy {f00=0x00f4, f01=0x0190, f02=»FT RAW=1 L P LD* A2,4,A5 M P SLL A2,1 M $ ( P RF(NN) VA2:20 NOT READ AFTER WRITE M 6 P LDKL A2,BUFFER M b P RF VA2:35 M z PVA2:20 EQU * M P XIF M P* M P IFT VERSA2=1 M P IFT MMUPAG=1 M " P LDKL A1,/0808 1ST WER SHIFTED M P
0x396780…396914 (3, 471) Dummy {f00=0x00f5, f01=0x018e, f02=» NOT READ AFTER WRITE M P LDKL A1,/8080 N P LDKL A2,BUFFER N 4 P RF VA2:35 N L PVA2:20 EQU * N ^ P XIF N r P* N ~ P IFT VERSA2=1 N P LD A2,DWTOR,A6 GET ORDER N P ANK A2,4 N P RF(Z) VA2:30 READ N P* N P IFT MMUPAG=0 N
0x396914…396aa8 Dummy {f00=0x00f5, f01=0x0190, f02=» N P* O P IFT VERSA2=1 O " P ADK A3,1 ORDER CODE FOR WRITE O ( P* O N P EJECT DRDU01 O X P* O n P* O x PVA2:30 EQU * O P* O P IFT MMUPAG=0 O P LD A2,DWTUBU,A6 2ND WER O P XIF O P* O P IFT VERSA2=1 O P IFT M
0x396aa8…396c3c Dummy {f00=0x00f5, f01=0x0190, f02=» O P* P P IFT VERSA2=1 P PVA2:35 EQU * P ( P CF A5,CIO:50 P < P ANK A1,/1F P R P RF(Z) VA2:40 IO ERROR P f P IM DWTRTY,A6 P P SUK A4,1 P P RB(NZ) VA2:10 RETRY P P RF WRI:50 ERROR P P* P P EJECT DRDU01 P P* P
0x396c3c…396dd0 Dummy {f00=0x00f5, f01=0x0190, f02=» P " P RF(NE) VA2:50 NOT CYLINDER 0 Q & P ADK A3,2 CYLINDER 0 TO CYLINDER 1 Q . PVA2:50 EQU * Q X P ANK A2,/1F Q l P RF(NZ) VA2:60 SAME CYLINDER Q P ADK A3,1 NEW CYLINDER Q PVA2:60 EQU * Q & P STR A3,A6 PHYSICAL SECTOR NUMBER Q P RB SEE:
0x396dd0…396f64 Dummy {f00=0x00f5, f01=0x018e, f02=» * Q P* SUBROUTINES FOR WRITE * R P* FROM USER BUFFER: * R : P* FROM DRIVER : * R ^ P* * R P**************************** R P* R PWRI:00 EQU * R P LDK A4,QRETRY RETRIES R PWR
0x396f64…3970f8 Dummy {f00=0x00f5, f01=0x0190, f02=» R h P CF A5,WRITE CIO S P ANK A1,/1F RETURN CODE ? S P CF A5,BSELOD S B P RF(Z) WRI:80 NO RETURN CODE S X P IM DWTRTY,A6 INDICATE RETRY S | & P SUK A4,1 DECREMENT RETRY COUNTER S P RB(NZ) WRI:20 S , P CF A5,REWORD RESTORE WORD IF NECESSARY
0x3970f8…39728c Dummy {f00=0x00f5, f01=0x0190, f02=» S P RTN A5 T P* T P EJECT DRDU01 T " P* T 8 & P********************************* T B & P* * T l & P* SUBROUTINES FOR READ TO * T & P* USER BUFFER : * T & P* DRIVER BUFFER :
0x39728c…397420 Dummy {f00=0x00f5, f01=0x0190, f02=»OR,A6 GET INDEX T P ANKL A3,/300 U P SLL A3,6 IN POSITION U . " P ORR* A3,A6 ADD SECTOR NUMBER U L $ P CW A3,DWTBSE,A6 ALLREADY READ ? U r P RF(E) REA:85 U PREA:10 EQU * U P LDK A4,QRETRY U PREA:20 EQU * U P IFT NUNITS=2 U P CF
0x397420…3975b4 (3, 472) Dummy {f00=0x00f5, f01=0x0190, f02=»1,/F U 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR V P RF(Z) REA:30 NO RETURN CODE V @ PREA:25 EQU * V d P IM DWTRTY,A6 INDICATE RETRY V x & P SUK A4,1 DECREMENT RETRY COUNTER V P RB(NZ) REA:20 RETRY V P ABL END:20 V P* V P EJECT
0x3975b4…397748 Dummy {f00=0x00f5, f01=0x0190, f02=» V 6 P LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER W P RF REA:50 W B P XIF W T P* W ` P IFT VERSA3=1 W j P IFT MMUPAG=1 W ( P ML 2,DWTBA1,A6 GET PHYSICAL ADDRESS W P RF(Z) REA:35 SYSTEM AREA W P TS -30,A15 SAVE REGISTERS W P T
0x397748…3978dc Dummy {f00=0x00f5, f01=0x0190, f02=»T REGISTERS W P RF REA:50 X PREA:35 EQU * X & " P SLL A2,1 ADDRESS TO BYTE MODE X : P LD A3,PHSECL,A2 GET CYL ID X ` P RF REA:50 X P XIF X P* X P IFT VERSA3=1 X PREA:40 EQU * X $ P LD A3,BUFFER+PHSECL GET CYL ID X PREA:50 EQU
0x3978dc…397a70 Dummy {f00=0x00f5, f01=0x0190, f02=»W A3,DWTCYL,A6 X P XIF Y P IFT VERSA3=1 Y " $ P RF(E) REA:90 RIGHT CYLINDER ID Y 8 P LDK A1,2 SEEK ERROR Y ` P* Y | P EJECT DRDU01 Y P* Y P* Y P RB REA:25 Y PREA:85 EQU * Y P LD A1,DWTFBU,A6 Y ( P RF(NZ) REA:90 READ TO DRI
0x397a70…397c04 Dummy {f00=0x00f5, f01=0x0190, f02=»INTER FOR DIRECT MOVE Y j P XIF Z P IFT VERSA3=1 Z * & P CF A5,MOVRED MOVE TO USER BUFFER Z @ PREA:90 EQU * Z j P RTN A5 Z ~ P* Z P EJECT DRDU01 Z P* Z P* Z * P************************************* Z * P*
0x397c04…397d98 Dummy {f00=0x00f5, f01=0x0190, f02=» * Z v * P* DRIVER BUFFER TO USER BUFFER * [ * P* MOVRED * [ B * P* * [ p * P************************************* [ P* [ P* A1 BUFFER ADDRESS IN [ P* A2 BUFFER
0x397d98…397f2c Dummy {f00=0x00f5, f01=0x0190, f02=»G+CPU857=0 [ 2 P LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER P XIF H P* T P IFT VERSA3=1 ^ P IFT CPU852+MMUPAG=0 t P IFT CPU857=1 , P LD A2,DWTUBU,A6 GET USER BUFFER POINTER 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER
0x397f2c…3980c0 Dummy {f00=0x00f5, f01=0x0190, f02=»BUFFER ADDRESS r P SLL A2,1 BYTE MODE ] P TS -30,A15 SAVE REGISTERS ] 2 P TL DWTPAG,A6 ] T ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS ] j P MVSU A4 ] P XIF ] P* ] P IFT VERSA3=1 ] P RF MOV:00 ] P* ] P EJECT DRDU01 ] P* ]
0x3980c0…398254 (3, 473) Dummy {f00=0x00f5, f01=0x018e, f02=»OINT IN USER BUFFER ] v P XIF ^ P* ^ ( P IFT VERSA3=1 ^ 2 P IFT CPU852+MMUPAG=0 ^ H P IFT CPU857=1 ^ d , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ^ z 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER ^ P MVB A4 ^ P XIF ^ P* ^ P IFT
0x398254…3983e8 Dummy {f00=0x00f5, f01=0x0190, f02=» ^ z P TS -30,A15 SAVE REGISTERS _ P TL DWTPAG,A6 _ * ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS _ @ P MVUS A4 _ l P XIF _ | P* _ P IFT VERSA3=1 _ PMOV:00 EQU * _ P IFT MMUPAG+CPU857=0 _ 0 P ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER _
0x3983e8…39857c Dummy {f00=0x00f5, f01=0x0190, f02=»SA3=1 _ P IFT MMUPAG+CPU857=0 ` P IFT CPU852=1 ` * P* ` @ P EJECT DRDU01 ` J P* ` ` P* ` j PMOV:10 EQU * ` t P LDR* A3,A1 ` P STR A3,A2 ` P ADK A1,2 ` P ADK A2,2 ` P SUK A4,2 ` P RB(P) MOV:10 ` P XIF ` P*
0x39857c…398710 Dummy {f00=0x00f5, f01=0x0190, f02=»NUMBER OF BYTES ` P LDR A10,A2 OUTPUT ADDRESS a P LDR A9,A1 INPUT ADDRESS a : $ P LDKL A12,16 BYTES IN EACH LOOP a Z PMOV:15 EQU * a P MLR 8,A9 a P MSR 8,A10 a P ADR A10,A12 a P ADR A9,A12 a P SUR A11,A12 a P RB(P) MOV:15 a
0x398710…3988a4 Dummy {f00=0x00f5, f01=0x018e, f02=» a P IFT VERSA2=1 b P EJECT DRDU01 b P* b 4 P* b > P*************************** b H P* * b l P* DIV31 * b P* * b P*************************** b P* b , P*
0x3988a4…398a38 Dummy {f00=0x00f5, f01=0x0190, f02=» P IFT CPU852=1 c . P LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER c P LDR A3,A1 c L P LDK A2,0 c ^ PDIV:20 EQU * c p P ADR A2,A3 I0:=I0+I1 c P SRL A3,5 I1:=I1/32 c P RB(NZ) DIV:20 c P LDR A3,A2 c P ANKL A3,/FFE0 32* c P SRL A2,5
0x398a38…398bcc Dummy {f00=0x00f5, f01=0x0190, f02=» c P ADK A2,0 d P RF(Z) DIV:50 CYLINDER 0 d P ADR A1,A2 d : P ADK A1,1 d L P* d ^ P EJECT DRDU01 d h P* d ~ P* d PDIV:50 EQU * d 0 P STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT d P RTN A5 d P* d P XIF d P* d
0x398bcc…398d60 Dummy {f00=0x00f5, f01=0x0190, f02=»1,0 d P DVK 31 e P ADK A2,0 e P RF(Z) DIV:10 CYLINDER 0 e . P ADK A2,1 e N PDIV:10 EQU * e ` & P ADRS A2,A6 PHYSICAL SECTOR NUMBER e t P RTN A5 e P XIF e P* e P EJECT DRDU01 e P* e & P********************************* e
0x398d60…398ef4 (3, 474) Dummy {f00=0x00f5, f01=0x0190, f02=»SKEWING * e & P* * f & & P********************************* f P P* f z B P* OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER f P* f PINLACE EQU * f * P LDR* A3,A6 GET PHYSICAL SECTOR
0x398ef4…399088 Dummy {f00=0x00f5, f01=0x0190, f02=»,DWTCYL,A2 GET CYLINDER NUMBER f P XIF g & P IFT NUNITS=1 g 2 ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER g H P XIF g t P ANK A2,1 g P RF(Z) INLAC5 EVEN CYLINDER g " P ADK A3,8 SKEW FACTOR 180 DEG. g PINLAC5 EQU * g P ANK A3,/1F g P SLL
0x399088…39921c Dummy {f00=0x00f5, f01=0x0190, f02=»INXUNI * g P********** h P* h " 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS h , P* h d PINXUNI EQU * h n P LC A2,DWTOR,A6 h P ANK A2,2 h P ADR A2,A6 h P RTN A5 h P XIF h P* h P IFT MMUPAG=1 h P EJECT DRDU01
0x39921c…3993b0 Dummy {f00=0x00f5, f01=0x0190, f02=»OG : GET LOGICAL ADDRESS AND * h . P* PAGE * i * . P* * i . P****************************************** i P* i P* i PMMULOG EQU * i . P MS 2,DWTBA1,A6 SAVE PHYSICAL WO
0x3993b0…399544 Dummy {f00=0x00f5, f01=0x0190, f02=»G+2,A6 PSEUDO MMU TABLE i P SRL A2,3 j $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS j 2 P RTN A5 j Z P* j j P XIF j t P* j P EJECT DRDU01 j P* j P IFT VERSA3=1 j P* j P* j " P****************************** j P* j & P*
0x399544…3996d8 Dummy {f00=0x00f5, f01=0x0190, f02=»D) j l . P* OUTPUT DWTBSE=DRIVER BUFFER INDICATOR k P* k < PBSELOD EQU * k F & P LDR* A3,A6 GET READ SECTOR NUMBER k Z " PBSEL00 EQU * FROM SEEK VERIFY k P LD A2,DWTFBU,A6 k , P RF(Z) BSEL50 READ/WRITE TO USER BUFFER k P LDKL A2,/FFFF DUMMY k
0x3996d8…39986c Dummy {f00=0x00f5, f01=0x0190, f02=» A2,A3 k PBSEL40 EQU * l 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR l " PBSEL50 EQU * l Z P RTN A5 l n P* l ~ P EJECT DRDU01 l P* l P* l , P*************************************** l , P*
0x39986c…399a00 Dummy {f00=0x00f5, f01=0x0190, f02=» * l r , P*************************************** m P* m B * P* INPUT: DWTFSW=SAVED WORD INDICATOR m L P* DWTSWD=SAVED WORD m z , P* DWTUBU=POINTER TO USER BUFFER m P* m PREWORD EQU * m P LD A3,DWTFSW,A6 m P RF(
0x399a00…399b94 (3, 475) Dummy {f00=0x00f6, f01=0x0190, f02=»STEM AREA m P TS -30,A15 SAVE REGISTERS n $ P TL DWTPAG,A6 SET MMU REGISTERS n 4 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS n ( P ES A3,PHSECL,A2 RESTORE SAVED WORD n P TL -30,A15 RESET REGISTERS n P RF REWO50 n PREWO20 EQU * n P S
0x399b94…399d28 Dummy {f00=0x00f6, f01=0x018e, f02=»3,DWTUBU,A6 RESTORE SAVED WORD n P XIF o & P* o 2 P IFT VERSA3=1 o < ( P CM DWTFSW,A6 INDICATE NO SAVED WORD o R PREWO50 EQU * o ~ P RTN A5 o P* o P XIF o P* o P EJECT DRDU01 DRDU01 o P* o P* o P******************
0x399d28…399ebc Dummy {f00=0x00f6, f01=0x0190, f02=» o PSEEK EQU * p P IFT NUNITS=2 p $ P LD A3,DWTCYL,A2 CYLINDER NUMBER p 0 P XIF p X P IFT NUNITS=1 p d P LD A3,DWTCYL,A6 p z P XIF p P SLL A3,3 p P ORK A3,2 p P RF CIO EXECUTE CIO-START p P* p PSEEKZ EQU * p P LDK A
0x399ebc…39a050 Dummy {f00=0x00f6, f01=0x0190, f02=» & P* * q & P* CIO: READ AND WRITE * q . & P* * q X & P********************************** q P* q 0 P* INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED q P* q P IFT VERSA3=1 q
0x39a050…39a1e4 Dummy {f00=0x00f6, f01=0x0190, f02=» P ADK A3,1 ORDER CODE r PCIO:20 EQU * r P LD A2,DWTFBU,A6 r 4 , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER r L ( P LD A2,DWTUBU,A6 USER BUFFER POINTER r | P SUKL A2,PHSECL r P RF CIO:50 r PCIO:30 EQU * r * P LDKL A2,BUFFER DRIVER BUFFER ADDR
0x39a1e4…39a378 Dummy {f00=0x00f6, f01=0x0190, f02=»F CIO:20 r PWRITE EQU * s " P LDKL A1,/0C1C 1ST WER SHIFTED s $ P ADK A3,1 ORDER CODE s J PCIO:20 EQU * s f P LD A2,DWTFBU,A6 s z , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER s * P DA DWTBA1,A6 GET USER BUFFER ADDRESS s P SLL A2,1 BYTE MODE ADDR
0x39a378…39a50c Dummy {f00=0x00f6, f01=0x0190, f02=» POSITION s | P XIF t P* t PCIO:50 EQU * t ( P WER A1,WER1 t < P WER A2,WER1+1 t P P* t f P EJECT DRDU01 DRDU01 t p P* t P* t PCIO EQU * t P ST A4,DWTA4,A6 SAVE A4 t P LD A2,PFPOST t ( P RF(NZ) CIOAB PWF POST PROCE
0x39a50c…39a6a0 Dummy {f00=0x00f6, f01=0x0190, f02=» t n PCIOAB EQU * u " P ST A5,DWTA5,A6 A5 u ( P ST A7,DWTA2,A6 SAVE SECTOR COUNTER u B P* u n & PT:DISP ABL TDISP GO TO DISPATCHER u x P* u P EJECT DRDU01 DRDU01 u P* u P* u P********************** u P*
0x39a6a0…39a834 (3, 476) Dummy {f00=0x00f6, f01=0x0190, f02=»QU * u P* v P IFT CPU852=1 v & P CF A15,SAVE8 SAVE A1-A8 ON STACK v , P XIF v V P* v b P IFT CPU852=0 v l " P MSR 8,A15 SAVE A1-A8 ON STACK v P XIF v P* v P LDKL A6,DWDU01 v " P LDK A5,DWTSB3 GET STACK BASE v P ADR A5,A6 v
0x39a834…39a9c8 Dummy {f00=0x00f6, f01=0x018e, f02=»FLG INITIALIZATION FLAG v P RF(NZ) DUON05 NOT POWER UP w P* w D P EJECT DRDU01 w N P* w d P* w n P CM DWTOR,A6 1ST UNIT w x " P CF A5,SEEKZ TEST IF OPERABLE w P ANK A1,1 w P RF(NZ) DUON26 NOT OPERABLE w P IFT NUNITS=2 w P
0x39a9c8…39ab5c Dummy {f00=0x00f6, f01=0x0190, f02=» P* x P EJECT DRDU01 x P* x & P* x 0 PDUON05 EQU * x : P CM DWTOR,A6 x N " P CF A5,VO:NAM READ VOLUME NAME x b P ANK A1,1 x P RF(Z) DUON07 NO ERROR x $ P CM DWTOR,A6 PREPARE FOR VOLCLR x P LDK A1,12 x P CF A15,VOLCLR x P
0x39ab5c…39acf0 Dummy {f00=0x00f6, f01=0x0190, f02=» P RF(Z) DUON08 NO ERROR y P LDK A1,2 OTHER DISC UNIT y " P SC A1,DWTOR,A6 y D P LDK A1,12 y P CF A15,VOLCLR y n PDUON08 EQU * y P XIF y , P IM DWTST,A6 INDICATE VOLUME NAMES READ y P LDKL A1,-1 y " P ST A1,DWTSAV,A6 RECOVERY DONE y
0x39acf0…39ae84 Dummy {f00=0x00f6, f01=0x0190, f02=» y $ PDUON10 LD A7,DWTORD,A6 GET ORDER z , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER z 0 P ANK A7,/3F z ` P* z t P IFT VERSA3=1 z ~ , P CF A5,REWORD RESTORE WORD IF NECESSARY z P XIF z P* z ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH z P A
0x39ae84…39b018 Dummy {f00=0x00f6, f01=0x0190, f02=» " P RF(Z) DUON50 NO TIMER ACTIVE { P* { * P IFT NUNITS=1 { 4 P CM* TIMER KILL TIMER { J P RF DUON40 { h P XIF { z P* { P IFT NUNITS=2 { P RB T:DISP TIMER ACTIVE { P XIF { P* { P EJECT DRDU01 { P* { P* { P
0x39b018…39b1ac Dummy {f00=0x00f6, f01=0x0190, f02=» { P STR A1,A3 RESTART TIMER | P RB T:DISP | ( P* | : P* | D $ PDUON30 CF A15,SETIMP START TIMER | N , P DATA DUON40,TIME TIME OUT ADDRESS, TIME | v P RB T:DISP | P* | P* TIME OUT | P* | PDUON40 LDKL A6,DWDU01 | P CM TIMER
0x39b1ac…39b340 Dummy {f00=0x00f6, f01=0x0190, f02=»ECOVERY | x " P LDK A5,DWTSB3 GET STACK BASE } P ADR A5,A6 } 6 P RB DUON05 } H P* } Z P EJECT DRDU01 DRDU01 } d P* } P* } P*********************** } P* * } P* INTERRUPT HANDLER * } P*
0x39b340…39b4d4 (3, 477) Dummy {f00=0x0106, f01=0x0190, f02=»AV SAVE LAST INTERRUPT } P* ~ 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 ~ P XIF ~ P* ~ $ P LDKL A6,DWDU01 DISC UNIT NO. 1 ~ P* ~ P EJECT
0x39b4d4…39b668 Dummy {f00=0x0106, f01=0x0190, f02=» " P RB(N) DUREDY READY INTERRUPT P SRL A1,1 * P LDR A2,A1 < P ANKL A2,/200 SEEK ERROR N P RF(Z) IHDU30 n & P ANKL A1,/440F MOVE SEEK ERROR BIT P ORK A1,/02 PIHDU30 EQU * P LD A8,DWTECB,A6 ECB ADDRESS P LD A2,DWTSAV,
0x39b668…39b7fc Dummy {f00=0x0106, f01=0x0190, f02=»5,A6 RELOAD REGISTERS A5 ( P LD A4,DWTA4,A6 A4 & P LD A7,DWTA2,A6 GET SECTOR COUNTER L P RTN A5 v P* P EJECT DRDU01 DRDU01 P* P* P******************* P* * P* PERFORM E
0x39b7fc…39b990 Dummy {f00=0x0106, f01=0x018e, f02=» A1,1 NOT OPERABLE . P ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1 P RF END:IO L PEND:10 EQU * ^ P* r P IFT RAW=1 | . P LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS P SLL A7,1 " P RF(N) END:20 READ AFTER WRITE P LD A7,DWTORD,A6
0x39b990…39bb24 Dummy {f00=0x0106, f01=0x018e, f02=» n P XIF P* PEND:20 EQU * P LDKL A2,/FF00 2 P ANS A2,ECBEL,A8 H ( P LD A2,DWTRTY,A6 GET RETRY INDICATOR ` " P RF(Z) END:IO NO RETRIES DONE * P ORKL A1,/100 SET BIT 7 IN RETURN CODE P EJECT DRDU01 P* P*
0x39bb24…39bcb8 Dummy {f00=0x0106, f01=0x0190, f02=» P* PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 " P ANK A1,1 F 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE X P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER 0 P XIF P IFT N
0x39bcb8…39be4c Dummy {f00=0x0106, f01=0x018e, f02=» BUFFER t P CF A5,READ P ANK A1,3 $ 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR 6 P XIF j P* v P IFT VERSA3=0 $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ER
0x39be4c…39bfe0 Dummy {f00=0x0106, f01=0x018e, f02=» x P LD A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 INDICATE TEST STATUS 6 PVO:NA6 EQU * b 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL v P EJECT DRDU01 P* P* PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1
0x39bfe0…39c174 (3, 478) Dummy {f00=0x0106, f01=0x0190, f02=» x 4 P LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2031 @ $ P RF(NE) DUNA70 REL LESS THAN 10 V : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER ~ 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER * P CF A15,INXDWT GET I
0x39c174…39c308 Dummy {f00=0x0106, f01=0x018e, f02=»AMETER p ( P LDKL A1,6324 SECTORS ON VERSION A2 P SUK A3,2 FORMAT ? : P RF(Z) DUNA60 VERSION A2 T P RF(N) DUNA50 VERSION A1 t P ADK A1,204 VERSION A3 PDUNA50 EQU * P ADKL A1,9588-6324 PDUNA60 EQU * P SUK A2,1 P R
0x39c308…39c49c Dummy {f00=0x0106, f01=0x018e, f02=» h 4 P LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. * P ADK A7,0 CHECK IF TRANSFER PARAMETER @ P RB(Z) END:20 n P* P EJECT DRDU01 P* P* * P LD A4,DWTA4,A6 RESTORE RETRY COUNTER P LC A1,DWTOR,A6 P ADK A1,1
0x39c49c…39c630 Dummy {f00=0x0106, f01=0x0190, f02=» PVO:NA9 EQU * P RTN A5 P* ( P* TIMER POINTER 2 P* L PTIMER DATA 0 TIMER POINTER V P* x P EJECT DRDU01 DRDU01 P* P* * P************************************* * P*
0x39c630…39c7c4 Dummy {f00=0x0106, f01=0x0190, f02=»*** n P* P* PDWDU01 EQU * " P DATA 0 PHYSICAL SECTOR NUMBER 4 P DATA /8000 DWT STATUS Z P DATA 0 ECB ADDRESS x P DATA 0 ORDER " P DATA DUADR ACTIVATION ADDRESS P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICA
0x39c7c4…39c958 Dummy {f00=0x0106, f01=0x0190, f02=» ADDRESS | P XIF P* PDWTFSW EQU *-DWDU01 & P DATA 0 B ( P DATA 0,0,0 SAVE AREA FOR REGISTERS R PDWTBSE EQU *-DWDU01 ~ P DATA 0 , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER P DATA 0 PDWTSWD EQU *-DWDU01 P D
0x39c958…39caec Dummy {f00=0x0106, f01=0x018e, f02=»0 FIXED 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 P DATA /C000 FIXED H 0 P DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 b 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED 6 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE P*
0x39caec…39cc80 Dummy {f00=0x0106, f01=0x0190, f02=» P XIF P* P EJECT DRDU01 P* 4 P* > PDWTSAV EQU *-DWDU01 H P DATA -1 d 8 PDWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF t P DATA 0 " PDWTCIO EQU *-DWDU01 CIO-START P CIO A3,1,DAF1 P CIO A3,1,DA
0x39cc80…39ce14 (3, 479) Dummy {f00=0x0107, f01=0x0190, f02=» DATA /FFFF CYLINDER NUMBER P* $ P IFT NUNITS=2 . P DATA /FFFF 2ND UNIT D P XIF ` P* l PDWTSMX EQU *-DWDU01 v & P DATA 1 MAX SECTORS ON FIXED DISC $ P DATA 1 MAX SECTORS ON CARTRIDGE P* P IFT NUNITS=2 P DAT
0x39ce14…39cfa8 Dummy {f00=0x0107, f01=0x0190, f02=»0 DISC FORMAT CARTRIDGE P* P IFT NUNITS=2 * P DATA 0 @ P DATA 0 P P XIF ` P* l P DATA 0,0 STACK v P DATA 0,0 STACK P DATA 0,0 PDWTSB3 EQU *-DWDU01-2 P* P IFT RAW=1 PDWTSEP EQU *-DWDU01
0x39cfa8…39d13c Dummy {f00=0x0107, f01=0x40ec, f02=»0,0,0,0,0,0,0 PDWTBA1 EQU *-DWDU01 P DATA 0 2 PDWTBA2 EQU *-DWDU01 B P DATA 0 ^ PDWTPAG EQU *-DWDU01 MMU PAGE n P DATA 0 P DATA 0 P XIF P* P* P* P END @ PDWTSEP EQU *-DWDU01
0x39d13c…39d2d0 Dummy {f00=0x0107, f01=0x2008, f02=» -DWDU01 2:ND WER INSTRUCTION - P WER A3,WER1+1 . , PDWTNAM EQU *-DWDU01 . B PDWTVOL EQU *-DWDU01 . ^ & P DATA 0,0,0 VOLUME NAME FIXED DISC . z * P DATA 0,0,0 VOLUME NAME CARTRIDGE DISC . PDWTSAV EQU *-DWDU01 . P DATA -1 . P END . @
0x39d2d0…39d464 Dummy {f00=0x0107, f01=0x0190, f02=»QU * P LDR* A6,A1 P STR A6,A2 P ADK A1,2 2 P ADK A2,2 D P SUK A3,1 V P RB(P) RMOV10 NEXT WORD h P RB TURN P P P PNOFOND EQU * P LDKL A1,LMP2 & P CALL ERROR INDICATE READING ERROR P EJE
0x39d464…39d5f8 Dummy {f00=0x0107, f01=0x0190, f02=»IOTAB P ANK A1,/C0 4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.S " P LDKL A2,/8000 Z 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE p P RB READER PRET31 EQU * P ANK A1,/80 2 P RF(Z) RET32 LAST RETRY WITH LATE DATA STR
0x39d5f8…39d78c Dummy {f00=0x0107, f01=0x0190, f02=»FF * P ANS A2,CIOTAB RESET LATE DATA STROBE P LC A1,CIOTOT 8 P ANK A1,/C0 N 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE- b P LDKL A2,/8000 ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+ P RB READER PRET33 EQU * P ANK A
0x39d78c…39d920 Dummy {f00=0x0107, f01=0x0190, f02=» P EJECT P* P* SEEK TABLE P* 0 PSEKTAB EQU * : P DATA 0 N P* ^ P* CIO TABLE h P* | PCIOTAB EQU * & P DATA 0 ORDER,SECTOR NBR,HEAD NBR PCIOTOT EQU * 6 P DATA 384 TOTAL NUMBER OF WORDS(1 PHYSICAL SECTO
0x39d920…39dab4 (3, 480) Opaque[0x194]
0x39dab4…39dc48 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x39dab4…39dc48 IdxSect {
0x39dab4…39dc48 f00 = 0x00f6 // 0x39dab4 @0x0
0x39dab4…39dc48 f01 = 0x0024 // 0x39dab6 @0x2
0x39dab4…39dc48 gno = [ // 0x39dab8 @0x4
0x39dab4…39dc48 [0x00]: C0x00f6.0x2.0
0x39dab4…39dc48 [0x01]: C0x00f6.0x3.0
0x39dab4…39dc48 [0x02]: C0x00f7.0x0.0
0x39dab4…39dc48 [0x03]: C0x00f7.0x1.0
0x39dab4…39dc48 [0x04]: C0x00f7.0x2.0
0x39dab4…39dc48 [0x05]: C0x00f7.0x3.0
0x39dab4…39dc48 [0x06]: C0x00f8.0x0.0
0x39dab4…39dc48 [0x07]: C0x00f8.0x1.0
0x39dab4…39dc48 [0x08]: C0x00f8.0x2.0
0x39dab4…39dc48 [0x09]: C0x00f8.0x3.0
0x39dab4…39dc48 [0x0a]: C0x00f9.0x0.0
0x39dab4…39dc48 [0x0b]: C0x00f9.0x1.0
0x39dab4…39dc48 [0x0c]: C0x00f9.0x2.0
0x39dab4…39dc48 [0x0d]: C0x00f9.0x3.0
0x39dab4…39dc48 [0x0e]: C0x00fa.0x0.0
0x39dab4…39dc48 [0x0f]: C0x00fa.0x1.0
0x39dab4…39dc48 [0x10]: C0x00fa.0x2.0
0x39dab4…39dc48 [0x11]: C0x00fa.0x3.0
0x39dab4…39dc48 ]
0x39dab4…39dc48 }
0x39dc48…39dddc Dummy {f00=0x00f6, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 11.0 81-04-14 870105041100 P : P =8, REL 11.0 81-02-27 B < P =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION b P =7, REL 11.0 81-02-23 8 P =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ P =6, REL
0x39dddc…39df70 Dummy {f00=0x00f6, f01=0x0190, f02=»CHANGED CORRRECT z P =4, REL 11.0 81-02-18 * P =4, IBM VOLUME NAME NOT READ TO DWT 8 P =3, REL 11.0 81-01-27 f 8 P =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1 P =2, REL 11.0 81-01-26 . P =2, NOT OP. GIVEN IF WRONGLY STRAPT
0x39df70…39e104 Dummy {f00=0x00f6, f01=0x0190, f02=» P* " P* PHILIPS TERMINAL SYSTEM PTS P* 4 ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK > P* j P* t P* ~ P* P* P* 2 P********************************************* P* P* 0 P* THIS DISK DRIVER HAND
0x39e104…39e298 Dummy {f00=0x00f6, f01=0x0190, f02=»TIPLEX OR PROGRAMMED CHANNEL P* $ P* . P EJECT DRFD01 8 P* P P* ORDERS: Z P* l P* /00 TEST STATUS v P* /01 PHYSICAL READ B P* /02 SEQUENTIAL READ -IBM DISC ONLY- P* /05 BASIC WRI
0x39e298…39e42c Dummy {f00=0x00f6, f01=0x018e, f02=» x P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA 0 P* /26 LOCK T D P* /31 REWIND -IBM DISC ONLY- j P* /37 LOAD P* /38 UNLOAD P* P* ENTRY PARAMETERS: P*
0x39e42c…39e5c0 Dummy {f00=0x00f6, f01=0x0190, f02=» P* P*********** P* * " P* ENTRIES * 6 P* * J P*********** ^ P* r $ P ENTRY FDADR ACTIVATION ADDRESS | " P ENTRY IHFD INTERRUPT HANDLER P ENTRY FDON RECOVERY ROUTINE P ENTRY DWFD01 DWT-ADDRESS
0x39e5c0…39e754 (3, 481) Dummy {f00=0x00f6, f01=0x0190, f02=»******* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO : P EXTRN DISIOE REQUEST ERROR V * P EXTRN DISEND PERFORM TENDIO AND TDISP z $ P EXTRN VOLCLR CLEAR VOLUME NAME & P EXTRN VOLNAM VOLUME NAME ADDRESS 0 P EXTRN VOLGET
0x39e754…39e8e8 Dummy {f00=0x00f6, f01=0x0190, f02=»DRESS | " P EXTRN DWTUEC USER ECB ADDRESS $ P EXTRN DWTOR DWT INDEX AND ORDER 4 ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXTRN DWTTAB TTAB ADDRESS P EXTRN DWTA2 SAVE AREA A2 & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN TTB:MT MMU
0x39e8e8…39ea7c Dummy {f00=0x00f6, f01=0x0190, f02=»FPOST PWF POST PROC. FLAG & P EXTRN TASCII EBCDIC TO ASCII TAB " & P EXTRN TEBCDIC ASCII TO EBCDIC TAB L 0 P EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE v $ P EXTRN ECBBA ECB BUFFER ADDRESS & P EXTRN ECBRL ECB REQUESTED LENGTH & P EXTRN ECBEL
0x39ea7c…39ec10 Dummy {f00=0x00f6, f01=0x0190, f02=» P************************ P* * ( P* CONDITIONAL ASSEMBLY * H P* * h P************************ P* . P* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED P* CHANNEL BY SETTING X:A = 0 P
0x39ec10…39eda4 Dummy {f00=0x00f6, f01=0x0190, f02=»OSS EQU 1. v P* PX:B EQU 0 PTOSS EQU 1 . P* @ 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT J ( P* IS OBTAINED BY SETTING IBM EQU 1. P* PX:C EQU 0 PIBM EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU P
0x39eda4…39ef38 Dummy {f00=0x00f6, f01=0x0190, f02=»THE EXTENDED INSTRUCTION v . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* R PCPU852 EQU 0 P* p P EJECT DRFD01 z P* P* @ P* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER D P* TO THE DISK DRIVE UNIT CA
0x39ef38…39f0cc Dummy {f00=0x00f6, f01=0x018e, f02=» P* MMU BUFFER SIZE P* $ P* . P IFT MMUPAG=0 8 PDVBLEN EQU 256 N P XIF d P* p P IFT MMUPAG=1 z PX:E EQU 256 PDVBLEN EQU 460 P XIF P* P* P* MMU DEVICE INDEX P* P*
0x39f0cc…39f260 Dummy {f00=0x00f6, f01=0x0190, f02=» P* * P************* P* 0 & PCUADR EQU 09 CONTROL UNIT ADDRESS : & PMUXADR EQU CUADR+CUADR MUX-ADDRESS d ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSECLEN EQU 128 SECTOR LENGTH & PMAXSEC EQU 2002 MAX SECTOR NUMBER . P
0x39f260…39f3f4 (3, 482) Dummy {f00=0x00f7, f01=0x0190, f02=»EOD EQU 74 END OF DATA POSITION PTIME EQU 20 DELAY - POWER ON ( & POPENTI EQU 10 DELAY AT OPEN ORDERS L P* v $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 P DATA /0408 P* P EJECT DRFD01 P* P**********
0x39f3f4…39f588 Dummy {f00=0x00f7, f01=0x0190, f02=»BUFFER SIZE x P XIF P* P IFT CHAN=0 * P IFT IBM=0 > " P DATA 0 INDICATE NO MMU BUFFER P P XIF v P* P DATA DEVIND DEVICE INDEX & PFDADR DATA FDAD ACTIVATION ADDRESS " P DATA 0 ABORT ROUTINE ADDRESS P* P
0x39f588…39f71c Dummy {f00=0x00f7, f01=0x0190, f02=»********* P* PTESTST EQU * P IFF IBM+TOSS=0 0 P CF A15,NVLCHK H " P STR A1,A6 SAVE NVL INDICATOR ^ P XIF P* P LDKL A2,/FFF9 BIO DUMMY P CF A5,FD:WRI P ANK A1,1 $ P RF(NZ) DIS:EN DISC NOT OPERABLE *
0x39f71c…39f8b0 Dummy {f00=0x00f7, f01=0x0190, f02=» , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 4 P CF A15,VOLNAM L P RF FORM70 END:IO b P XIF | P* P IFT TOSS+IBM=0 P ABL END:RC P XIF P* P EJECT DRFD01 P* P********************
0x39f8b0…39fa44 Dummy {f00=0x00f7, f01=0x0190, f02=» PFORMAT EQU * P CF A15,NVLCHK P ADK A1,0 . , P RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED @ P LDK A2,36 CLEAR VOLUME NAME p PFORM10 EQU * P CM BUF,A2 P SUK A2,2 P RB(NN) FORM10 . P CF A15,VOLCLR CLEAR VOLUME NAME FROM
0x39fa44…39fbd8 Dummy {f00=0x00f7, f01=0x0190, f02=»RM50 IBM DISC , P LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL P ST A1,BUF+32 F P LDKL A1,'SS' P ST A1,BUF+34 r P IFT IBM=1 " P C1 A1,DWTA3,A6 INDICATE TOSS P ANS A1,DWTLAB,A6 P XIF P RF FORM60 P* P EJECT
0x39fbd8…39fd6c Dummy {f00=0x00f7, f01=0x0190, f02=»,/E5D6 VO IN EBCDIC P STR A1,A4 P LDKL A1,/D3F1 L1 IN EBCDIC . P ST A1,BUF+2 R P IFT IBM=1 f P LD A1,DWTA3,A6 INDICATE IBM x P ORS A1,DWTLAB,A6 P XIF P LDK A2,/31 BIO P LDK A3,36 LENGTH PFORM60 EQU * P
0x39fd6c…39ff00 Dummy {f00=0x00f7, f01=0x0190, f02=» * P* ACTIVATION * P* * $ P************** : P* P PFDAD EQU * ACTIVATION ENTRY Z P IFT MMUPAG=1 ~ P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTOR
0x39ff00…3a0094 (3, 483) Dummy {f00=0x00f7, f01=0x0190, f02=»* P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER * P* T P LDR A1,A7 ORDER ^ P SUK A1,/21 v P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P*********
0x3a0094…3a0228 Dummy {f00=0x00f7, f01=0x0190, f02=» ` 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* > " P LDKL A1,/8000 MASK FOR BIT 0 H & P ORS A1,SPDLCI SET OPEN/CLOSE BIT n P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* *
0x3a0228…3a03bc Dummy {f00=0x00f7, f01=0x0190, f02=» P* POPEN EQU * " P LD A1,DWTTP2,A6 TIMER POINTER P RF(NZ) OPEN20 TIMER ACTIVE F " P LDKL A1,/7FFF MASK FOR BIT 0 j ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT P* POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA
0x3a03bc…3a0550 Dummy {f00=0x00f7, f01=0x0190, f02=»ER OFFSET v ( 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 z POPEN20 EQU * P ABL TDISP EXIT P* POPENRE EQU * P LDR A6,A1 GET DWT
0x3a0550…3a06e4 Dummy {f00=0x00f7, f01=0x018e, f02=» XIF P* P EJECT P* $ & P* PUT DRIVE NO IN CIO-INSTRUCTION . P* X PFD:ORD EQU * b P LC A2,DIXTAB,A3 v , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK P* P IFT IBM+TOSS=2 P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,
0x3a06e4…3a0878 Dummy {f00=0x00f7, f01=0x0190, f02=» P LDR A3,A7 P RB(Z) TESTST TEST STATUS P* 8 P IFT IBM=0 B P SUK A3,31 T P RB(Z) FORMAT FORMAT VOLUME f P SUK A3,7 " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 P ABL(NP) LOAD LOAD/UNLOAD P XIF P*
0x3a0878…3a0a0c Dummy {f00=0x00f7, f01=0x018e, f02=»3 P RF(Z) INTEST BASIC WRITE P SUK A3,1 , " P RF(Z) IBMCHK SEQUENTIAL WRITE > P SUK A3,25 d P RB(Z) FORMAT FORMAT VOLUME v P SUK A3,7 & P RF(N) INTEST PHYSICAL READ/WRITE P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK
0x3a0a0c…3a0ba0 Dummy {f00=0x00f7, f01=0x0190, f02=» & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF . P* : P IFT TOSS=0 D P IFT IBM=1 X " P ABL IBMDSK IBM DISC HANDLING j P XIF P* P EJECT DRFD01 P* P* $ PREQERR ABL DISIOE REQUEST ERROR P* 0 PINCLEN
0x3a0ba0…3a0d34 (3, 484) Dummy {f00=0x00f7, f01=0x0190, f02=» AND GO TO TDISP v P* P EJECT DRFD01 " P* 8 P* INPUT PARAMETER CHECK B P* b PINTEST EQU * l P IFF TOSS+IBM=0 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED P ADK A1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF
0x3a0d34…3a0ec8 Dummy {f00=0x00f7, f01=0x0190, f02=»N+DVBLEN CHECK MMU BUFFER SIZE P CWK A2,512 & P RF(NL) INTES3 SUFFICIENT : P CWR A3,A2 & P RB(G) INCLEN MMU BUFFER TOO SMALL n PINTES3 EQU * P XIF ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAME
0x3a0ec8…3a105c Dummy {f00=0x00f7, f01=0x0190, f02=»* P IFT IBM+TOSS=2 P LD A4,DWTFIB,A6 " P RF(NZ) INTES5 IBM-DISC : P XIF Z P* f P IFT TOSS=1 p P LDR A4,A3 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P S
0x3a105c…3a11f0 Dummy {f00=0x00f7, f01=0x0190, f02=» * P LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER ! P RB(N) REQERR REQUEST ERROR ! 2 P SUKL A4,MAXSEC ! V P RB(NN) REQERR REQUEST ERROR ! n P ADR A4,A3 ! " P RB(P) INCLEN INCORRECT LENGTH ! , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ! 2 P ST A2,DWTCW2,
0x3a11f0…3a1384 Dummy {f00=0x00f7, f01=0x0190, f02=» MMUPAG=1 ! P LCR A2,A8 " P ANK A2,/30 " $ 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS " 8 P XIF " p P* " | P EJECT DRFD01 " P* " P* MULTIPLE SECTOR IO ENTRY " P* " PFD:000 EQU * " P IFT MMUPAG=1 " P IFT CHAN=
0x3a1384…3a1518 Dummy {f00=0x00f7, f01=0x018e, f02=»UK A3,4 " & P RF(NN) FD:005 FOUR PHYS. SEC. IO # P* # : PFD:003 SUK A2,128 # D P SUK A4,1 # ^ P ADK A3,1 # p P RB(NZ) FD:003 # P* # PFD:005 EQU * # . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC # ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR
0x3a1518…3a16ac Dummy {f00=0x00f7, f01=0x018e, f02=» P IFF CHAN+IBM=0 $ " P LD A2,DWTBA,A6 BUFFER ADDRESS $ P LD A1,DWT:BF,A6 $ B , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA $ Z P LDR A3,A2 $ P RF(NN) FD:009 $ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED $ P RF(N) FD:009 NO $ P* $
0x3a16ac…3a1840 Dummy {f00=0x00f7, f01=0x0190, f02=» $ P ORR A1,A3 % 2 P SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS % ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY % P P SC A1,DWT:PA+2,A6 % | P ANKL A2,/FFF % P LDR A1,A2 % ( P ORK A1,1 INDICATE ADDRESS NOT ZERO % P* % 8 PFD:009 ST A1,DWT:LA,
0x3a1840…3a19d4 (3, 485) Dummy {f00=0x00f7, f01=0x0190, f02=»R % P SUK A1,1 & P RF(Z) FD:060 BASIC READ & P SUK A1,4 & < P RF(Z) FD:015 BASIC WRITE & N P SUK A1,12 & p P RF(Z) FD:060 PHYSICAL READ & P SUK A1,4 & P RF(Z) FD:013 PHYSICAL WRITE & * P SUK A1,15 CHECK IF WRITE DELETED DATA &
0x3a19d4…3a1b68 Dummy {f00=0x00f7, f01=0x018e, f02=»ASIC WRITE ORDERS & j P* ' & P LDK A4,1 WRITE DELETED DATA ORDER ' $ & PFD:013 EQU * PHYSICAL WRITE ORDER ' N P ADK A4,4 ' x " PFD:015 EQU * BASIC WRITE ORDER ' P ADK A4,1 ' " P CF A5,BIO PREPARATION FOR CIO ' P* ' P IFT MMUPAG=1 ' P
0x3a1b68…3a1cfc Dummy {f00=0x00f7, f01=0x0190, f02=» ' P IFF CHAN+IBM=0 ( 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA ( X P LDR A7,A3 REQUESTED LENGTH ( P LDR A8,A2 SAVE A2 ( & P LDKL A4,BUF DRIVER BUFFER ADDRESS ( P LDR A2,A4 ( & P TS -30,A1
0x3a1cfc…3a1e90 Dummy {f00=0x00f7, f01=0x0190, f02=»0,A15 RESTORE MMU FROM STACK ( P LDR A2,A8 RESTORE A2 ) $ 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA ) B PFD:019 EQU * ) v P XIF ) P* ) P IFT TOSS+IBM=2 ) P LD A1,DWTFIB,A6 ) P RF(Z) FD:018 NOT IBM ) P XIF ) P* ) P IFT
0x3a1e90…3a2024 Dummy {f00=0x00f7, f01=0x0190, f02=»RFD01 ) P* * P* * " P CF A5,FD:WRITE PERFORME WRITE * " * P ANKL A3,/200 CHECK IF WRITE PROTECTED * H P RF(Z) FD:020 * v P LDK A3,/40 INDICATE ERROR * , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE * PFD:020 EQU * * P RF FD:100 GOTO FDMSIO
0x3a2024…3a21b8 Dummy {f00=0x00f7, f01=0x0190, f02=» * * P***************** + P* + . PFD:060 CF A5,BIO + 8 P* + P P IFT MMUPAG=1 + Z P IFT CHAN=0 + p P IFT TOSS+IBM=2 + P LD A1,DWTFIB,A6 + P RF(Z) FD:070 TOSS DISC + & P LDKL A4,BUF DRIVER BUFFER ADDRESS + 0 P CM BUFFLG
0x3a21b8…3a234c Dummy {f00=0x00f7, f01=0x0190, f02=»:LA,A6 + ( P RF(Z) FD:080 BUFFER IN SYSTEM AREA , & P LDKL A4,BUF DRIVER BUFFER ADDRESS , : 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA , d P XIF , P* , P IFT MMUPAG=1 , P IFT IBM=1 , P IFT TOSS+CHAN=0 , & P LDKL A4,BUF DRIVER BUFFER
0x3a234c…3a24e0 Dummy {f00=0x00f7, f01=0x0190, f02=» , v P* - P IFT TOSS+IBM=2 - P LD A1,DWTFIB,A6 - * P RF(Z) FD:090 NOT IBM - B P XIF - ` P* - l P IFT IBM=1 - v P IFT MMUPAG=0 - ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS - P XIF - P* - P IFT IBM=1 - P LD A7,DWTRL,A6 REQ. L
0x3a24e0…3a2674 (3, 486) Dummy {f00=0x00f8, f01=0x0190, f02=»6 BUFFER ADDRESS =8 - * P CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 . P RF FD:090 =8 . J PFD:085 EQU * =8 . ` P XIF =8 . x P IFT IBM=1 =8 . P CF A5,ASCII =8 . PFD:090 EQU * . P XIF . P* . P EJECT DRFD01 . P* . P* .
0x3a2674…3a2808 Dummy {f00=0x00f8, f01=0x0190, f02=» P* / P IFT MMUPAG=1 / P IFF CHAN+IBM=0 / $ 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS / < ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA / t $ P LD A7,DWTRL,A6 REQUESTED LENGTH / ( P LDKL A1,BUF GET DWT BUFFER ADDRESS / & P TS -30,A15 SAVE RUN
0x3a2808…3a299c Dummy {f00=0x00f8, f01=0x018e, f02=»ORE MMU FROM STACK / P XIF 0 PFD:100 EQU * 0 & P ABL FDMSIO 0 : P* 0 N P EJECT DRFD01 0 X P* 0 p P******** 0 z P* * 0 P* LOAD * 0 P* * 0 P******** 0 P* 0 PLOAD EQU * 0 P ADK A3,0 CHECK ORDER CODE 0 P
0x3a299c…3a2b30 Dummy {f00=0x00f8, f01=0x0190, f02=» 0 n P* 1 PLOAD00 EQU * 1 P LDK A2,/14 LOCK 1 & P CF A5,FD:REA 1 > P ANK A3,1 1 T & P RF(NZ) LOA:80 ENDIO NOT OPERABLE 1 f P* 1 P IFT TOSS+IBM=2 1 P LD A1,DWTFIB,A6 1 P RF(Z) LOA:70 TOSS DISC 1 P XIF 1 P* 1 P IFT IBM
0x3a2b30…3a2cc4 Dummy {f00=0x00f8, f01=0x0190, f02=»CK RETURN CODE 1 P EJECT DRFD01 2 P* 2 . P* READ DATA SET LABEL 2 8 P* 2 V & P LD A2,ECBCW1,A8 SECTOR NUMBER =3 2 ` P SUK A2,7 2 P RF(N) LOA:85 REQUEST ERROR 2 P SUK A2,18 2 P RF(P) LOA:85 REQUEST ERROR 2 P ADK A2,25 2 P
0x3a2cc4…3a2e58 Dummy {f00=0x00f8, f01=0x0190, f02=»A:60 NOT NO DATA 2 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL 3 PLOA:60 EQU * 3 L P CF A5,LD:RC 3 ` P ENB 3 t . P LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 3 P LDK A1,DWTDSS 3 P CF A5,STDWT SAVE IN DWT 3 P ADK A4,BOE BOE ADDRESS 3 . P
0x3a2e58…3a2fec Dummy {f00=0x00f8, f01=0x018e, f02=»DK A1,DWTCRN 3 P CF A5,STDWT 4 P ADK A4,EOE-BOE EOE ADDRESS 4 ( P CF A5,LOGSEC 4 L P LDK A1,DWTEOE 4 b $ P CF A5,STDWT STORE EOE NO IN DWT 4 x P ADK A4,EOD-EOE EOD ADDRESS 4 P CF A5,LOGSEC 4 F P INH INHIBIT INTERRUPTS
0x3a2fec…3a3180 Dummy {f00=0x00f8, f01=0x0190, f02=» 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE 5 P* 5 8 PLOA:70 EQU * 5 B P XIF 5 V P LD A2,DWTA3,A6 5 b " P ORS A2,DWTLC,A6 INDICATE LOCK 5 z PLOA:80 EQU * 5 P ABL END:RC 5 P* 5 P IFT IBM=1 5 PLOA:85 EQU * 5 P LDK A1,/80 REQU
0x3a3180…3a3314 (3, 487) Dummy {f00=0x00f8, f01=0x0190, f02=» TOSS+IBM=0 5 P* 6 P* ERROR , UNLOCK 6 P* 6 8 PLOA:90 EQU * 6 B P LDR A5,A6 6 V P ADKL A5,DWTSB2 STACK BASE 6 h P LDK A2,/C UNLOCK 6 P CF A5,FD:REA 6 P RB LOA:80 6 P* 6 P* LD:RC SUBROUTINE 6 P* 6 PLD:RC EQU
0x3a3314…3a34a8 Dummy {f00=0x00f8, f01=0x0190, f02=» 6 P EJECT DRFD01 7 P* 7 P********** 7 * P* * 7 < P* UNLOAD * 7 N P* * 7 ` P********** 7 r P* 7 PUNLOAD EQU * 7 P IFT IBM=1 7 P* 7 P* DATA SET OPEN 7 P* 7 P CF A5,DSOPCH A1,AFFECTED 7 P ADK
0x3a34a8…3a363c Dummy {f00=0x00f8, f01=0x0190, f02=»DATA SET LABEL TO DRIVER BUFFER 7 P* 8 ( P CF A5,DSLIO PREPARE FOR I/O 8 2 & P CF A5,FD:REA READ DATA SET LABEL 8 V $ P CF A5,UNL:RC RETURN CODE CHECK 8 P ENB 8 P* 8 < P* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) 8 P* 8 P
0x3a363c…3a37d0 Dummy {f00=0x00f8, f01=0x0190, f02=»0 8 P ADK A1,1 9 P RB UNL:10 9 P* 9 . P EJECT DRFD01 9 8 P* 9 P P* 9 Z PUNL:20 ADK A7,27 9 d P* 9 | P* A1 = BINARY TRACK NO 9 * P* A7 = SECTOR NO WITHIN TRACK (0-25) 9 P* 9 ( P CF A5,BINDEC TRANSFORM SEC.NO TO A3 9 (
0x3a37d0…3a3964 Dummy {f00=0x00f8, f01=0x018e, f02=» 9 v P LDR A7,A1 TRACK : ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 : P SUK A4,3 : L P STR A3,A4 TRACK INTO BUF : ^ F P INH INHIBIT INTERRUPTS INHIBIT : P* : P* WRITE DATA SET LABEL : P* : P CF A5,DSL
0x3a3964…3a3af8 Dummy {f00=0x00f8, f01=0x0190, f02=» : n P CF A5,DSOPCH ; P CMR A2 INDICATE NOT OPEN ; P* ; @ P EJECT DRFD01 ; J P* ; b P* UNLOCK ; l P* ; P XIF ; PUNL:70 EQU * ; P LDK A2,/C UNLOCK ; P CF A5,FD:REA ; P ANK A3,1 ; P RB(NZ) LOA:80 NOT OPERABLE
0x3a3af8…3a3c8c Dummy {f00=0x00f8, f01=0x0190, f02=» ; P* < P* UNLOAD RETURN CODE CHECK < P* < 6 PUNL:RC EQU * < @ P ANKL A3,/207 < T P RF(Z) RTN:A5 NO RETURN CODE < j P ANKL A3,/200 < & P RF(Z) RTN:A5 NOT WRITE PROTECTED < P CF A5,DSOPCH < P ADK A7,0 SET CR (CHECK EOD) < P
0x3a3c8c…3a3e20 Dummy {f00=0x00f8, f01=0x0190, f02=» < P EJECT DRFD01 = P* = P* = * ( PIBMDSK EQU * IBM DISK HANDLING ENTRY = 4 P IFT IBM=1 = ` . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED = r P ADK A1,0 = & P ABL(NZ) END:IO NEW VOLUME LOADED = P CF A5,DSOPCH GET EOD = P ADK A7,0
0x3a3e20…3a3fb4 (3, 488) Dummy {f00=0x00f8, f01=0x0190, f02=»ND FILE = ~ * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH > P IFT MMUPAG+CHAN=2 > > P CWK A3,DVBLEN+DVBLEN > X ( P ABL(G) INCLEN MMU BUFFER TOO SMALL > v P XIF > P IFT IBM=1 > P SUK A3,SECLEN > $ P ABL(NZ) INCLEN INCORRECT LENGTH > P ADK A1,43
0x3a3fb4…3a4148 Dummy {f00=0x00f8, f01=0x0190, f02=» DRFD01 > P* ? P******************* ? P* SEQUENTIAL READ * ? 6 P******************* ? R P* ? n . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN ? x P LDR* A3,A2 CRN ? P ADK A3,1 CRN+1 ? ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB ? P C
0x3a4148…3a42dc Dummy {f00=0x00f8, f01=0x0190, f02=»F A5,BIOSQ ? 2 P CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 @ P* @ H P IFT MMUPAG=0 @ R ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS @ h P XIF @ P* @ P IFT IBM=1 @ P LDK A7,SECLEN @ $ P CF A5,ASCII TRANSFORM TO ASCII @ P* @ P EJE
0x3a42dc…3a4470 Dummy {f00=0x00f8, f01=0x0190, f02=» @ r P TL TTB:MT,A7 LOAD MMU TABLE A & P LDKL A1,BUF DRIVER BUFFER ADDRESS A , & P LD A2,DWTUEC,A6 USER ECB ADDRESS A V ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS A P LDK A7,SECLEN LENGTH A ( P MVSU A7 MOVE SECTOR TO USER BUFFER A , P TL -30,A15 RESTOR
0x3a4470…3a4604 Dummy {f00=0x00f8, f01=0x0190, f02=»7 A x P RF SQW:10 UPDATE CRN B P* B ( P* END OF DATA B 2 P* B J $ PSQR:10 LDKL A1,/1000 RETURN CODE B T P RF END:IO B | P* B P EJECT DRFD01 B P* B P******************* B P* SEQUENTIAL WRITE * B P******************* B
0x3a4604…3a4798 Dummy {f00=0x00f8, f01=0x0190, f02=»ESS TO A2 B x , P ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. C P CWK A7,MAXIBM C B P RF(P) FD:DIS REQUEST ERROR C X P CWR* A7,A2 C | P RF(G) ENDEOE END OF EXTENT C P* C P IFT MMUPAG=1 C ( P TS -30,A15 SAVE RUNNING TASK'S MMU C " P LD A7,D
0x3a4798…3a492c Dummy {f00=0x00f8, f01=0x0190, f02=»ADDRESS C t & P LDKL A2,BUF DRIVER BUFFER ADDRESS D P LDK A7,SECLEN LENGTH D : * P MVUS A7 MOVE SECTOR TO DRIVER BUFFER D X , P TL -30,A15 RESTORE MMU TABLE FROM STACK D P XIF D P* D P IFT IBM=1 D P LDK A4,5 BIO WRITE D P CF A5,BIOSQ D
0x3a492c…3a4ac0 Dummy {f00=0x00f8, f01=0x0190, f02=»D:WRI D " P SRL A1,3 IF BIT 6 SET THEN =7 E P ANK A1,/40 SET BIT 9 =7 E 4 0 P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 E T P CF A5,DSOPCH E PSQW:10 EQU * E 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE E P RF(NZ) END:RC E * P IMR A2 EO
0x3a4ac0…3a4c54 (3, 489) Dummy {f00=0x00f8, f01=0x0190, f02=»:DIS EQU * E P ABL DISIOE REQUEST ERROR F P* F 4 P EJECT DRFD01 F > P* F V P********** F ` P* REWIND * F r P********** F P* F PREWIND EQU * F P LDR A3,A2 SAVE EOD ADDRESS F P LDK A1,DWTBOE F P CF A5,DSPAD F P LDR*
0x3a4c54…3a4de8 Dummy {f00=0x00f8, f01=0x0190, f02=»1 F z P LDK A1,0 RETURN CODE G P RF END:IO G ( P XIF G : P* G F P EJECT DRFD01 G P P* G h P***************** G r P* * G P* PERFORM ORDER * G P* * G P***************** G P* G P* G P
0x3a4de8…3a4f7c Dummy {f00=0x00f8, f01=0x0190, f02=»FD:WRI EQU * G P IFT CHAN=0 H P LDKL A1,/C000 WORDS,WRITE H ( P XIF H J P IFT CHAN=1 H V " P LDK A1,0 INDICATOR WRITE MODE H j P XIF H P RF FD:800 H P* H PFD:REA EQU * H P IFT CHAN=1 H P LDK A1,1 READ MODE H P XIF H P
0x3a4f7c…3a5110 Dummy {f00=0x00f8, f01=0x0190, f02=» H r P* I P EJECT DRFD01 I P* I * P* I 4 P IFT MMUPAG=1 I > 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO I T ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA I 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS I P ECR A7,A7 I P ORR A1,A7 I
0x3a5110…3a52a4 Dummy {f00=0x00f8, f01=0x0190, f02=»XADR+1 SECOND WER I P XIF J P IFT CHAN=1 J & P* J : P EJECT DRFD01 J D P* J . P* PUT BUFFER START AND END ADDRESS IN DWT J f P* J " P ST A1,DWTRW,A6 INDICATE MODE J P ST A4,DWTUB,A6 J P ADR A3,A4 J " P ST A3,DWTUBE,A6 END A
0x3a52a4…3a5438 Dummy {f00=0x00f8, f01=0x0190, f02=» 0 PFD:CIO EQU * LABEL USED FOR CHANGE OF CUADR K P CIO A2,1,CUADR CIO START K 8 ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN K Z P RF T:DISP K P* K P EJECT DRFD01 K P* K * P************************************* K P* K < P* FDMSIO -
0x3a5438…3a55cc Dummy {f00=0x00f8, f01=0x0190, f02=» K j P* L PFDMSIO EQU * L & P IM DWTCW2,A6 UPDATE SECTOR NUMBER L & P LDR* A1,A6 RETURN CODE L P & P ANK A1,/7F GET ERROR RETURN CODE L p P RF(NZ) END:RC L 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE L $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 L
0x3a55cc…3a5760 Dummy {f00=0x00f8, f01=0x0190, f02=»MUPAG=1 L & P LD A4,DWTBA,A6 GET BUFFER POINTER M $ P ADR A2,A4 UPDATE BUFFER POINTER M : P ST A2,DWTBA,A6 M b & P RF(N) FDMSI1 NOT PASSED 64K LIMIT M z P ADK A4,0 M ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT M P LDK A2,/10 M & P ADS A2,DWT:BF,A6
0x3a5760…3a58f4 (3, 490) Dummy {f00=0x00f9, f01=0x0190, f02=»IF M 2 P ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO N P* N @ P EJECT DRFD01 N J P* N b P********** N l P* * N ~ P* END:IO * N P* * N P********** N P* N P IFT IBM=1 N $ PENDEOE EQU * END OF EXTENT EXIT N
0x3a58f4…3a5a88 Dummy {f00=0x00f9, f01=0x0190, f02=»QU * N P CF A15,TENDIO O PT:DISP ABL TDISP O " P* O : $ PEND:30 EQU * CU ADDRESS UNKNOWN O D P LDK A1,1 NOT OPERABLE O l & P ORS A1,DWTST,A6 RECOVERY DONE =1 O P RB END:IO O P EJECT DRFD01 O P* O P******************** O P*
0x3a5a88…3a5c1c Dummy {f00=0x00f9, f01=0x0190, f02=» IFT CPU852=1 O & P CF A15,SAVE8 SAVE A1-A8 ON STACK P P XIF P @ P* P L P IFT CPU852=0 P V " P MSR 8,A15 SAVE A1-A8 ON STACK P l P XIF P P* P P LDKL A6,DWFD01 DWT ADDRESS P 4 P LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 P P ANS
0x3a5c1c…3a5db0 Dummy {f00=0x00f9, f01=0x0190, f02=»,A6 P P RF(Z) FDON10 NO TIMER SET Q P LDKL A4,-TIME Q . " P ST* A4,DWTTP,A6 RESTART TIMER Q D P RB T:DISP Q j PFDON10 LDK A4,DWTTP Q | P ADR A4,A6 Q P LDR A1,A6 SAVE A6 Q P CF A15,SETIMP Q P DATA FDON20,TIME Q P* Q PF:DISP EQU
0x3a5db0…3a5f44 Dummy {f00=0x00f9, f01=0x018e, f02=» Q P ADR A5,A6 GET STACK BASE R P* R * 6 PFDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE R 4 P IFT MMUPAG=1 R n P IFT CHAN=0 R $ P CM BUFFLG,A6 RESET BUFFER FLAG R P XIF R P* R P IFF TOSS+IBM=0 R 4 P IM DWTST2,A6 SET RECOVERY
0x3a5f44…3a60d8 Dummy {f00=0x00f9, f01=0x0190, f02=» P* S PFDONLD EQU * S $ P SC A3,DWTOR,A6 GET VOLUME NAME S " & P LC A4,DIXTAB,A3 DRIVE INDEX MASK S J P SC A4,DWTA3+1,A6 SAVE IT S t P CF A5,SETCIO S P LDK A2,/14 S P CF A5,FD:REA LOCK S P ANK A3,1 S P RF(Z) FDON19 OPERABLE S
0x3a60d8…3a626c Dummy {f00=0x00f9, f01=0x0190, f02=» S P CF A5,VO:NAM T & P LDKL A2,/FBFF RESET IBM IND. BIT T , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE T H PFDON21 EQU * T x P LDK A2,/C T P CF A5,FD:REA UNLOCK T P LDK A3,0 T , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. T P SUK A3,1 T
0x3a626c…3a6400 Dummy {f00=0x00f9, f01=0x018e, f02=»E VOLUME NAMES READ T | P* U P IFT OPCLOS=1 U & P* U < P EJECT U F P* U T : P* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING U ^ P* U " P LD A4,DWTTP2,A6 TIMER POINTER U P RF(Z) FDON09 NOT RUNNING U P CMR A4 STOP TIMER U $ P
0x3a6400…3a6594 (3, 491) Dummy {f00=0x00f9, f01=0x018e, f02=» 2 P LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS V & P LDKL A2,/8000 OPEN/CLOSE BIT MASK V : $ P ANR* A2,A4 A2:=OPEN/CLOSE FLAG V d P ORS A2,DWTOCF,A6 SAVE V ( P XRRS A2,A4 SET STATUS WORD TO OPEN V P LDR* A2,A4 V & P OTR A2,0,SOPDA SET DRIVE TO O
0x3a6594…3a6728 Dummy {f00=0x00f9, f01=0x0190, f02=» PFDON25 EQU * W " P LD A1,DWTLC,A6 LOCK INDICATOR W P ANR A1,A2 W > P RF(Z) FDON30 NOT LOCKED W P P ST A2,DWTA3,A6 SAVE W p P* W P EJECT W P* W P* PUT DRIVE NO IN CIO INSTR W P* W P SRN A2,A3 DRIVE NO IN A3 W * P CF A5,SET
0x3a6728…3a68bc Dummy {f00=0x00f9, f01=0x0190, f02=»F(Z) FDON30 OK W $ P XRS A2,DWTLC,A6 INDICATE UNLOCK X PFDON30 EQU * X > P SLL A2,1 X R P CWK A2,/0010 X d P RB(NE) FDON25 X z P* X P IFT OPCLOS=1 X P* X D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF X P* X
0x3a68bc…3a6a50 Dummy {f00=0x00f9, f01=0x0190, f02=»SE STATUS X z 0 P OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED Y P XIF Y F P* Y R P EJECT Y P* Y j P* ANY REQUEST Y t P* Y P CM DWTA2,A6 RESET FDON FLAG Y PFDON60 EQU * Y P LD A8,DWTECB,A6 Y 0 P ABL(Z) END:IO NO REQUEST, RETURN VI
0x3a6a50…3a6be4 Dummy {f00=0x00f9, f01=0x0190, f02=»RESTORE INDEX AND ORDER Y ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P ANK A7,/3F ORDER Z L P ABL FDAD REACTIVATE Z f P* Z P EJECT DRFD01 Z P* Z P******************** Z P* * Z P* READY INTERRUPT * Z P*
0x3a6be4…3a6d78 Dummy {f00=0x00f9, f01=0x0190, f02=»TIVE Z n P LDKL A5,DWTSB2 [ P ADR A5,A6 STACK BASE [ $ P* [ B P IFT TOSS+IBM=0 [ L P RB FDON60 [ d P XIF [ v P* [ P IFF TOSS+IBM=0 [ 4 P LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 [ P ANS A3,DWTST,A6 =6 [ P RB FDONVL READ
0x3a6d78…3a6f0c Dummy {f00=0x00f9, f01=0x0190, f02=»* INTERRUPT HANDLER * [ P* * P********************* < P* Z PIHFD EQU * d $ P ST P,INTSAV SAVE LAST INTERRUPT v P IFT CPU852=1 * P CF A15,SAVE8 SAVE REGISTERS ON STACK P XIF P* P IFT CPU852=0
0x3a6f0c…3a70a0 Dummy {f00=0x00f9, f01=0x018e, f02=»D A1,DWTUB,A6 GET BUFFER POINTER " P LD A2,DWTUBE,A6 END OF BUFFER ] ( P SUR A2,A1 LENGTH ] N PIH005 EQU * ] h P SST A3,CUADR GET STATUS ] | " P RF(A) IH:000 READY INTERRUPT ] P LD A3,PFPOST ] , P RF(NZ) IHDISP POST PROCESSING FLAG SET ] ( P
0x3a70a0…3a7234 (3, 492) Dummy {f00=0x00f9, f01=0x0190, f02=» ] $ P LDR* A3,A1 ONE WORD FROM BUFFER ^ P OTR A3,0,CUADR WRITE ^ 0 P RB(NA) IH005 ^ N $ P ADK A1,2 UPDATE BUFFER POINTER ^ d P SUK A2,2 ^ P RB(P) IH010 ^ P CIO A2,0,CUADR CIO HALT ^ PIHDISP EQU * ^ P ABL TDISP GOTO DISPATCHER ^ P
0x3a7234…3a73c8 Dummy {f00=0x00f9, f01=0x0190, f02=»UFFER POINTER ^ ~ P SUK A2,2 _ P RB(P) IH050 _ ( P CIO A2,0,CUADR CIO HALT _ < P SST A3,CUADR STATUS _ P RB(NA) *-2 _ x PIH:000 EQU * _ P INH _ P XIF _ P* _ P EJECT DRFD01 _ P* _ P* _ P IFT CHAN=0 _ P SST A
0x3a73c8…3a755c Dummy {f00=0x00f9, f01=0x0190, f02=»T OPERABLE =2 _ PIH:00 EQU * =2 ` P XIF ` . P LD A8,DWTECB,A6 ECB ADDRESS ` : " P LD A5,DWTA5,A6 STACK POINTER ` ^ P LDR A2,A3 STATUS ` P SLL A2,1 ` P RB(N) FDRE READY INTERRUPT ` P LD A2,DWTRTY,A6 RETRY ` P RF(Z) IH:10 NO ` "
0x3a755c…3a76f0 Dummy {f00=0x00f9, f01=0x0190, f02=» ORK A3,4 ` PIH:10 EQU * a P* a & P EJECT DRFD01 a 0 P* a H & P* TRANSFORM RETURN CODE, CU - ECB a R P* a | P ANKL A3,/FF37 a P RF(Z) IH:80 a P LDR A1,A3 a " P ANKL A3,/0A05 UNCHANGED BITS a P ECR A4,A3 a P ANK A4,8 CHEC
0x3a76f0…3a7884 Dummy {f00=0x00f9, f01=0x0190, f02=»00 BIT 5 a P SLC A4,7 TO BIT 14 b P ORR A3,A4 b , P* b > P IFT TOSS+IBM=0 b H P LDR A4,A1 b ` P ANKL A4,/2000 BIT 2 b r P SLL A4,1 TO BIT 1 b P ORR A3,A4 b P XIF b P* b P LDR A4,A1 b P ANK A4,/20 BIT 10 b P SLL A4,3 TO
0x3a7884…3a7a18 Dummy {f00=0x00f9, f01=0x0190, f02=»N CODE b n P ANKL A3,/F7FF c PIH:80 EQU * c $ P LDR A1,A3 c 8 P RTN A5 c J P* c Z P EJECT DRFD01 c d P* c | 0 P******************************************* c 0 P* * c 0 P* S U B R O U T I N E S
0x3a7a18…3a7bac Dummy {f00=0x00f9, f01=0x0190, f02=» P******* d P* * d P* BIO * d $ P* * d 4 P******* d D P* d T P* INPUT: A8 ECB ADDRESS d ^ P* A4 ORDER d P* d > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START d 0 P* A3 NO OF BYTES TO
0x3a7bac…3a7d40 Dummy {f00=0x00f9, f01=0x0190, f02=»1,3 PUT IN RIGHT BIO POSITION d 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO e & P SRC A2,2 e ` P ORR A2,A1 COMPLETE BIO e r & P ADR A2,A4 COMPLETE BIO WITH ORDER e " P LD A4,DWTBA,A6 BUFFER ADDRESS e $ P LD A3,DWTRL,A6 GET REQ. LENGTH e
0x3a7d40…3a7ed4 (3, 493) Dummy {f00=0x00f9, f01=0x0190, f02=» * e P* * f P***************** f & P* f @ P* INPUT: A8 ECB ADDRESS f J P* A4 ORDER f l P* f > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START f 0 P* A3 NO OF BYTES TO BE TRANSFERED f "
0x3a7ed4…3a8068 Dummy {f00=0x00f9, f01=0x0190, f02=»2,3 PUT IN RIGHT BIO POSITION f & P ADR A2,A4 COMPLETE BIO WITH ORDER g & P* g P P IFT MMUPAG=0 g Z & P LD A4,ECBBA,A8 GET BUFFER ADDRESS g p P XIF g P* g P IFT IBM=1 g P IFT MMUPAG=1 g & P LDKL A4,BUF DRIVER BUFFER ADDRESS g P XIF g
0x3a8068…3a81fc Dummy {f00=0x00f9, f01=0x0190, f02=» g P****************** h P* VO:NAM * h " P****************** h < P* h V P* h ` PVO:NAM EQU * h j P IFT TOSS+IBM=2 h ~ P LDK A3,36 LENGTH h P XIF h P* h P IFT TOSS=1 h P IFT IBM=0 h P LDK A3,6 VOLUME NAME LENGTH
0x3a81fc…3a8390 Dummy {f00=0x00f9, f01=0x0190, f02=»3,/17 FATAL ERROR h P RF(NZ) VOL:40 i P IFT IBM=1 i 0 P LD A2,BUF+32 i B P CWK A2,'TO' i X P RF(NE) VOL:10 IBM DISC i l P LD A2,BUF+34 GET NEXT WORD i P CWK A2,'SS' i P RF(NZ) VOL:10 IBM DISC i PVOL:05 EQU * i " P C1 A1,DWTA3,A6
0x3a8390…3a8524 Dummy {f00=0x00f9, f01=0x0190, f02=» TOSS=1 i P LDKL A2,BUF j P IFT IBM=1 j $ P RF VOL:20 j 6 P XIF j H P* j T P IFT IBM=1 j ^ PVOL:10 EQU * j p P LDK A3,10 LENGTH j P LDK A2,/30 BIO j & P LDKL A4,BUF+10 READ TO BUF+10FER j P CF A5,FD:REA j P ANK A3,/17 j
0x3a8524…3a86b8 Dummy {f00=0x00f9, f01=0x0190, f02=»VOL:05 NOT IBM j P LD A2,BUF+12 k P CWK A2,/D3F1 L1 k , P RB(NE) VOL:05 NOT IBM DISC k D P XIF k h P IFT IBM=1 k t P* =4 k & P LD A1,DWTA3,A6 DRIVE NO BIT MASK k " P ORS A1,DWTLAB,A6 INDICATE IBM k P LDKL A1,/400 k , P ORRS A1,A6
0x3a86b8…3a884c Dummy {f00=0x00f9, f01=0x0190, f02=»NSFER IBM VOLUME NAME TO ASCII k P LDKL A2,BUF+14 =5 l & P XIF l B P* l N P EJECT DRFD01 l X P* l p P* l z PVOL:20 EQU * l P IFF TOSS+IBM=0 l P LDK A3,/F8 FILE CODE l P LD A1,DWTST2,A6 l " P RF(NZ) VOL:30 NOT TEST STATUS l
0x3a884c…3a89e0 Dummy {f00=0x00f9, f01=0x0190, f02=» l P LDK A3,0 m PVOL:40 EQU * m P RTN A5 m . P XIF m > P* m J P IFT IBM=1 m T P EJECT DRFD01 m f P* m ~ P********* m P* ASCII * m P********* m P* m : P* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO m P*
0x3a89e0…3a8b74 (3, 494) Dummy {f00=0x00fa, f01=0x0190, f02=»FFER ADDRESS m P* OUTPUT: A1 CHANGED n P* A4 = BUFFER ADDRESS n 6 P* A7 CHANGED n X P* n z PASCII EQU * n P IFT MMUPAG=1 n & P LDKL A4,BUF DRIVER BUFFER ADDRESS n P XIF n P* n P IFT IBM=1 n PASC:00 E
0x3a8b74…3a8d08 Dummy {f00=0x00fa, f01=0x0190, f02=» ( P LC A1,TASCII,A1 TRANSFORM TO ASCII o 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER o 0 P SUK A7,1 o d P RB(P) ASC:10 o v P RF EBC:90 o P* o P EJECT DRFD01 o P* o P********** o P* EBCDIC * o P********** o P* o <
0x3a8d08…3a8e9c Dummy {f00=0x00fa, f01=0x0190, f02=»N DRIVER BUFFER o l P* p & P* INPUT: A7 NO OF CHARACTERS p " P* A4 = BUFFER ADDRESS p L P* p n P* OUTPUT: A1 CHANGED p x P* A4 = BUFFER ADDRESS p P* A7 CHANGED p PEBCDIC EQU * p P ENB p P IFT MMUPA
0x3a8e9c…3a9030 Dummy {f00=0x00fa, f01=0x0190, f02=» A4,1 p P LCR A1,A4 GET ASCII CHAR. q P ANK A1,/FF q 0 P LC A1,TEBCDIC,A1 q D P SC A1,BUF-1,A7 q ^ P SUK A7,1 q v P RB(P) EBC:10 q & P LDKL A4,BUF DRIVER BUFFER ADDRESS q PEBC:90 EQU * q P INH INHIBIT INTERRUPTS q P RTN A5 q
0x3a9030…3a91c4 Dummy {f00=0x00fa, f01=0x0190, f02=»NSFORMS PHYSICAL SECTOR TO STANDARD q x , P* LOGICAL SECTOR (BINARY). r , < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) r * P* TT = TRACK, SS=SECTOR r P* r , P* INPUT: A4 ADDRESS TO PHYS. SECTOR r P* r
0x3a91c4…3a9358 Dummy {f00=0x00fa, f01=0x0190, f02=»ECBIN r P LDR A3,A1 SAVE s P ADK A4,2 s & P* s 8 P* MULTIPLY BY 26 s B P* s P SLL A3,5 *32 s f P LDR A2,A1 s | P SLL A2,2 s P SUR A3,A2 *28 s P SLL A1,1 s P SUR A3,A1 *26 s P CF A5,DECBIN s P SUK A1,1 s P A
0x3a9358…3a94ec Dummy {f00=0x00fa, f01=0x0190, f02=»NP) LOG:10 s P CWK A4,BUF+EOD+4 EOD t P RF(E) LOG:02 YES! t 0 P SUKL A1,1898 t J P RF LOG:04 t ` P* t r " P* CHECK EOD LESS/EQUAL 74001 t | P* t PLOG:02 SUKL A1,1899 t PLOG:04 EQU * t " P RF(P) LOG:10 NOT ACC SEC. NO t " P SUK A
0x3a94ec…3a9680 Dummy {f00=0x00fa, f01=0x0190, f02=»G:10 LDK A1,/10 RETURN CODE t , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE u $ P INH INHIBIT INTERRUPTS u T P ABL LOA:90 ERROR ROUTINE u t P* u P EJECT DRFD01 u P* u P********** u P* DECBIN* u P********** u P* u > P* FUN
0x3a9680…3a9814 (3, 495) Dummy {f00=0x00fa, f01=0x0190, f02=» INPUT: A4 ADDRESS TO FIRST DIGIT u P* OUTPUT: A1 BINARY v , P* WORKING REG: A2,A7 v J P* v j PDECBIN LDK A1,0 v t P LDK A7,2 v PDEC:10 LCR A2,A4 DIGIT v P ANK A2,/FF v P SUK A2,/F0 v P RB(N) LOG:05 v P SUK A2,9 v
0x3a9814…3a99a8 Dummy {f00=0x00fa, f01=0x018e, f02=»DEC:20 SUK A2,1 v P RB(N) DEC:10 NEXT DIGIT w P ADK A1,/A MULTIPLY BY 10 w 8 P RB DEC:20 w Z PDEC:30 ADR A1,A2 w l P RTN A5 w P XIF w P* w P EJECT DRFD01 w P* w P********** w P* SETCIO * w P********** w P* w
0x3a99a8…3a9b3c Dummy {f00=0x00fa, f01=0x0190, f02=» P* OUTPUT: A3 CHANGED x P* A4 CHANGED x " P* x @ PSETCIO LDKL A4,/FFCF x J P ANS A4,FD:CIO x f P SLL A3,4 x | P ORS A3,FD:CIO x P RTN A5 x P IFT IBM=1 x P* x P EJECT DRFD01 x P* x P********** x P* BI
0x3a9b3c…3a9cd0 Dummy {f00=0x00fa, f01=0x0190, f02=»S (DECIMAL) x p P* y P* INPUT: A7 BINARY NUMBER y P* y B . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS y L P* A7 CHANGED y ~ P* y PBINDEC LDK A3,0 y PBIN:10 SUK A7,10 y P RF(N) BIN:20 y P ADK A3,1 y P RB BIN:10
0x3a9cd0…3a9e64 Dummy {f00=0x00fa, f01=0x0190, f02=» A5 y P* z P EJECT DRFD01 z P********* z . P* DSLIO * z @ P********* z R P* z d 4 P* FUNCTION: PREPARE FOR READING DATA SET LABEL z n P* z P* INPUT: A6 DWT ADDRESS z P* z : P* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-
0x3a9e64…3a9ff8 Dummy {f00=0x00fa, f01=0x0190, f02=»A1 IS CHANGED z P* { PDSLIO LDK A1,DWTDSS { P CF A5,DSPAD { < P LDR* A2,A2 { P P SLL A2,3 { d P LDK A3,128 { v P LDKL A4,BUF { P RTN A5 { P* { P EJECT DRFD01 { P* { P********** { P* DSOPCH * { P**********
0x3a9ff8…3aa18c Dummy {f00=0x00fa, f01=0x0190, f02=»PUT: A2 EOD ADDRESS { , P* A7 EOD-NO (0=NOT OPEN) | P* A1 CHANGED | L PDSOPCH LDK A1,DWTEOD | j P CF A5,DSPAD | P LDR* A7,A2 EOD-NO | P RTN A5 | P* | P EJECT DRFD01 | P* | P********* | P* DSPA
0x3aa18c…3aa320 Dummy {f00=0x00fa, f01=0x0190, f02=»G DRIVE | f P* } P* INPUT: A1 DWT OFFSET } P* A6 DWT ADDRESS } < P* } ^ " P* OUTPUT: A2 ADDRESS TO DATA } h P* A6 DWT ADDRESS } P* } " PDSPAD LC A2,DWTOR,A6 DRIVE NO } P ANK A2,/3 } P ADR A2,A2 } P ADR
0x3aa320…3aa4b4 (3, 496) Dummy {f00=0x00fa, f01=0x0190, f02=»* } P* ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF ~ P* DRIVE NO ~ R P* ~ p ( P* INPUT: A1 OFFSET TO DWT AREA ~ z . P* A3 WORD TO BE STORED IN DWT ~ P* A6 DWT ADDRESS ~ P* ~ P*
0x3aa4b4…3aa648 Dummy {f00=0x00fa, f01=0x0190, f02=»NCHANGED ~ ~ P* PSTDWT EQU * P CF A5,DSPAD . P STR A3,A2 B P RTN A5 T P XIF d P* p P EJECT DRFD01 z P* " P* D R I V E R B U F F E R P* PBUF EQU * P IFT IBM=1 P RES DVBLEN P XIF
0x3aa648…3aa7dc Dummy {f00=0x00fa, f01=0x0190, f02=»U BUFFER P XIF P* P IFT TOSS+IBM=0 & P IFT MMUPAG+CHAN=2 > P RES DVBLEN MMU BUFFER X P XIF v P* P EJECT DRFD01 P* P********************* P* * P* DEVICE WORK TABLE * P
0x3aa7dc…3aa970 Dummy {f00=0x00fa, f01=0x0190, f02=»ATA 0 P DATA /8000 DWT STATUS P DATA 0 ECB ADDRESS , P DATA 0 ORDER H " P DATA FDADR ACTIVATION ADDRESS ^ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P* P IFT MMUPAG=1 & P D
0x3aa970…3aab04 Dummy {f00=0x00fa, f01=0x0190, f02=» P DATA 0 SAVE AREA P DATA 0 P DATA 0 . " P DATA 0,0,0,0 STACK (3 LEVELS) > P DATA 0 ORDER SAVE AREA d P* P EJECT DRFD01 P* P* P IFF TOSS+IBM=0 P DATA /8000 NVL INDICATOR 0 P DATA /8000 NVL IN
0x3aab04…3aac98 Dummy {f00=0x00fa, f01=0x0190, f02=»ATA /FFFF,/FFFF,/FFFF ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 P DATA /FFFF,/FFFF,/FFFF J ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 j P DATA /FFFF,/FFFF,/FFFF ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFFF ( PDWTST2
0x3aac98…3aae2c Dummy {f00=0x00fa, f01=0x0190, f02=»QUEST FLAG t P DATA 0 $ PDWTTP EQU *-DWFD01 TIMER POINTER " P DATA 0 J P* Z P EJECT DRFD01 d P* | P* P IFT IBM=1 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 P XIF P* , PDWTLC EQU *-DWFD
0x3aae2c…3aafc0 Dummy {f00=0x00fa, f01=0x0190, f02=»0 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON P DATA 0 B P XIF R P* ^ P EJECT DRFD01 h P* P* P IFT CHAN=1 6 PDWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER P DATA 0 , PDWTUBE EQU *-DWFD01 BU
0x3aafc0…3ab154 (3, 497) Dummy {f00=0x00fa, f01=0x018e, f02=»=1 , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT P DATA 0,0,0,0 : $ PDWTEOD EQU *-DWFD01 END OF DATA P P DATA 0,0,0,0 x & PDWTEOE EQU *-DWFD01 END OF EXTENT P DATA 0,0,0,0 * PDWTCRN EQU *-DWFD01 CURRENT RECORD NO P DATA 0,0,0,
0x3ab154…3ab2e8 Dummy {f00=0x00fa, f01=0x0190, f02=» P* & PDWTBA EQU *-DWFD01 BUFFER POINTER P DATA 0 8 ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO H P DATA 0 t & PDWTCW2 EQU *-DWFD01 SECTOR NUMBER P DATA 0 . PDWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER P DATA 0 4 PDWTSIO E
0x3ab2e8…3ab47c Dummy {f00=0x00fa, f01=0x0190, f02=» P DATA 0 P XIF P* P EJECT DRFD01 * P* B P* L P IFT MMUPAG=1 V PDWT:BF EQU *-DWFD01 l $ P DATA 0 SAVE AREA BUFFER ADDRESS PBUFFLG EQU *-DWFD01 P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU
0x3ab47c…3ab610 Dummy {f00=0x00fa, f01=0x40c2, f02=»ATA 0 16 BIT LOGICAL BUFFER ADDRESS P XIF , P* 8 P IFT MMUPAG=1 B PDEVECB EQU * X P DATA 0,0,0,0,0,0,0 l P XIF P* P* P* P END @ 1 P DATA 0 P* P IFF CHAN+IBM=0 PDWT:PA EQU
0x3ab610…3ab7a4 Dummy {f00=0x00fa, f01=0x2008, f02=» END @
0x3ab7a4…3ab938 Dummy {f00=0x00fa, f01=0x018e, f02=» n P DATA ECBDU1 MMU ECB ADDRESS P XIF , P* 8 PDWTFSW EQU *-DWDU01 B P DATA 0 ^ ( P DATA 0,0,0 SAVE AREA FOR REGISTERS n PDWTBSE EQU *-DWDU01 P DATA 0 , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER P DATA 0 PDW
0x3ab938…3abacc Dummy {f00=0x00fa, f01=0x0190, f02=» P DATA 0 P DATA /C000 FIXED 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 . P DATA /C000 FIXED f 0 P DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED 6 P DATA /FFFF,/FFFF,/FFFF VOLUME
0x3abacc…3abc60 Dummy {f00=0x00fa, f01=0x0190, f02=»F VOLUME NAME 2ND CARTRIDGE z P XIF $ P* 0 P EJECT DRDU01 : P* P P* Z PDWTSAV EQU *-DWDU01 d P DATA -1 8 PDWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF P DATA 0 " PDWTCIO EQU *-DWDU01 CIO-START P CIO A
0x3abc60…3abdf4 (3, 498) Opaque[0x194]
0x3abdf4…3abf88 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1f70, f03=0x0000}
0x3abdf4…3abf88 IdxSect {
0x3abdf4…3abf88 f00 = 0x00fb // 0x3abdf4 @0x0
0x3abdf4…3abf88 f01 = 0x0002 // 0x3abdf6 @0x2
0x3abdf4…3abf88 gno = [ // 0x3abdf8 @0x4
0x3abdf4…3abf88 [0x00]: C0x00fb.0x2.0
0x3abdf4…3abf88 ]
0x3abdf4…3abf88 }
0x3abf88…3ac11c Dummy {f00=0x00fb, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 11.0 81-01-26 870105041100 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x3ac11c…3ac2b0 Dummy {f00=0x00fb, f01=0x0190, f02=» P* P* . P* CONDITIONAL ASSEMBLY (SEE ALSO DRDC15) P* J 2 PX:A EQU 1 CODE , 0=ASCII , 1=EBCDIC (DRDC15) T PCODE EQU X:A 4 PX:B EQU 1 READ COMMAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x3ac2b0…3ac444 Dummy {f00=0x00fb, f01=0x40b0, f02=» P* P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* R P* PTEBCDIC EQU * f P IFF CODE+RCOM=0 | P XIF P END @ MAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x3ac444…3ac5d8 Dummy {f00=0x00fb, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x3ac5d8…3ac76c Dummy {f00=0x00fb, f01=0x0190, f02=» P* P* MMU BUFFER SIZE P* . P* 8 P IFT MMUPAG=0 B PDVBLEN EQU 256 X P XIF n P* z P IFT MMUPAG=1 PX:E EQU 256 PDVBLEN EQU X:E P XIF P* P* P* MMU DEVICE INDEX P*
0x3ac76c…3ac900 Dummy {f00=0x00fb, f01=0x0190, f02=»S * P* * P************* " P* 8 & PCUADR EQU 09 CONTROL UNIT ADDRESS B & PMUXADR EQU CUADR+CUADR MUX-ADDRESS l ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSECLEN EQU 128 SECTOR LENGTH & PMAXSEC EQU 2002 MAX SECTOR NUMBER
0x3ac900…3aca94 (3, 499) Opaque[0x194]
0x3aca94…3acc28 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13a0, f03=0x0000}
0x3aca94…3acc28 IdxSect {
0x3aca94…3acc28 f00 = 0x009d // 0x3aca94 @0x0
0x3aca94…3acc28 f01 = 0x0006 // 0x3aca96 @0x2
0x3aca94…3acc28 gno = [ // 0x3aca98 @0x4
0x3aca94…3acc28 [0x00]: C0x009d.0x0.0
0x3aca94…3acc28 [0x01]: C0x009d.0x2.0
0x3aca94…3acc28 [0x02]: C0x009d.0x3.0
0x3aca94…3acc28 ]
0x3aca94…3acc28 }
0x3acc28…3acdbc Dummy {f00=0x009d, f01=0x0190, f02=» 0 P IDENT TIMER REL 11.0 81-01-26 870105041100 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x3acdbc…3acf50 Dummy {f00=0x009d, 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
0x3acf50…3ad0e4 Dummy {f00=0x009d, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x3ad0e4…3ad278 Dummy {f00=0x009d, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x3ad278…3ad40c Dummy {f00=0x009d, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x3ad40c…3ad5a0 Dummy {f00=0x009d, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x3ad5a0…3ad734 (3, 500) Dummy {f00=0x009d, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x3ad734…3ad8c8 Dummy {f00=0x009d, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x3ad8c8…3ada5c Dummy {f00=0x009d, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x3ada5c…3adbf0 Dummy {f00=0x009d, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x3adbf0…3add84 Dummy {f00=0x009d, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x3add84…3adf18 Dummy {f00=0x009d, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x3adf18…3ae0ac Dummy {f00=0x009d, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x3ae0ac…3ae240 Dummy {f00=0x009d, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x3ae240…3ae3d4 (3, 501) Dummy {f00=0x009d, 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
0x3ae3d4…3ae568 Dummy {f00=0x009d, f01=0x0190, f02=» v 2 P ABL LKMRQE SET A7=-1, QUEUE TASK AND DISPATCH P XIF > P EJECT J P* X P* b P* l P********* v P* MOVFW * P********* P* P* $ P* SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM B
0x3ae568…3ae6fc Dummy {f00=0x009d, f01=0x0190, f02=» A3 = BUFFER LENGTH P* > P* EXIT: A1 = SYSTEM BUFFER ADDRESS,SOURCE+BUFFER LENGTH * B P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION+BUFFER LENGTH l P* A3 = 0 P* PMOVFW EQU * PMOVBW EQU * P ADK A3,0
0x3ae6fc…3ae890 Dummy {f00=0x009d, f01=0x0190, f02=» & P LDKL A6,/8000 INDICATE A14 RETURN P RF MSS005 MOVE BUFFER . P L P T P PRTNA14 EQU * d P LD A6,-4,A14 SAVED REGISTER x P LD A5,-2,A14 SAVED REGISTER P LDR* A4,A14 SAVED REGISTER P LDK A3,0 PRETA14 EQU *
0x3ae890…3aea24 Dummy {f00=0x009d, f01=0x0190, f02=»SUBROUTINE TO MOVE CHARACTERS * P* FROM SYSTEM BUFFER TO SYSTEM BUFFER & P* T 0 P* ENTRY: A1 = SYSTEM BUFFER ADDRESS,SOURCE ^ 4 P* A2 = SYSTEM BUFFER ADDRESS,DESTINATION P* A3 = BUFFER LENGTH P* > P* EXIT: A1 = S
0x3aea24…3aebb8 Dummy {f00=0x009d, f01=0x0190, f02=» P* P IFT MMUPAG=0 PMOVUS EQU * ( PMOVSU EQU * < PMOVUU EQU * P P XIF d P* p PMOVSS EQU * z P ADK A3,0 CHECK LENGTH * P RF(NP) MOVRT2 NOTHING TO MOVE, RETURN P STR A4,A15 SAVE A4 P STR A5,A15 SAVE A
0x3aebb8…3aed4c Dummy {f00=0x009d, f01=0x0190, f02=» RF(Z) MSS100 SOURCE BUFFER ADDRESS EVEN P TM A4,A2 0 2 P RF(Z) MSS110 DESTINATION BUFFER ADDRESS EVEN B P EJECT x P* 4 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS ODD P* & P LCR A5,A1 FIRST CHARACTER TO MOVE P SCR A5,A2 S
0x3aed4c…3aeee0 Dummy {f00=0x009d, f01=0x0190, f02=»ENT LENGTH $ P RF(NP) MOVRT1 ALL MOVED,RETURN P* : 6 P* BOTH SOURCE AND DESTINATION BUFFER ADDRESS EVEN D P* ~ PMSS010 EQU * P IFF CPUHLP+CPU852=2 P SUK A3,2 SUBTRACT LENGTH 2 P RF(N) MSS020 TEST IF LAST CHARACTER IS MOVED
0x3aeee0…3af074 (3, 502) Opaque[0x194]
0x3af074…3af208 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x3af074…3af208 IdxSect {
0x3af074…3af208 f00 = 0x0094 // 0x3af074 @0x0
0x3af074…3af208 f01 = 0x0006 // 0x3af076 @0x2
0x3af074…3af208 gno = [ // 0x3af078 @0x4
0x3af074…3af208 [0x00]: C0x0094.0x0.0
0x3af074…3af208 [0x01]: C0x0094.0x1.0
0x3af074…3af208 [0x02]: C0x0094.0x2.0
0x3af074…3af208 ]
0x3af074…3af208 }
0x3af208…3af39c Dummy {f00=0x0094, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x3af39c…3af530 Dummy {f00=0x0094, 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**
0x3af530…3af6c4 Dummy {f00=0x0094, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x3af6c4…3af858 Dummy {f00=0x0094, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x3af858…3af9ec Dummy {f00=0x0094, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x3af9ec…3afb80 Dummy {f00=0x0094, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x3afb80…3afd14 (3, 503) Dummy {f00=0x0094, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x3afd14…3afea8 Dummy {f00=0x0094, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x3afea8…3b003c Dummy {f00=0x0094, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x3b003c…3b01d0 Dummy {f00=0x0094, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x3b01d0…3b0364 Dummy {f00=0x0094, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x3b0364…3b04f8 Dummy {f00=0x0094, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x3b04f8…3b068c Dummy {f00=0x0094, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x3b068c…3b0820 Dummy {f00=0x0094, f01=0x4036, f02=» P* P* P* P END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x3b0820…3b09b4 (3, 504) Dummy {f00=0x0094, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x3b09b4…3b0b48 Dummy {f00=0x0094, f01=0x0190, f02=»UK A1,1 & P RB(P) TMW:10 MORE ECB:S IN ECBBLK : P ST A3,DWTWAT,A9 NO, SET FIRST DWT ADDRESS IN THE LAST : P RB T:DISP GO TO DISPATCHER x P* PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG I
0x3b0b48…3b0cdc Dummy {f00=0x0094, f01=0x4184, f02=»OR $ P LDR* A2,A3 GET NEXT DWT ADDRESS P RF(Z) TP:QDI NO MORE DWT:S 2 P CMR A3 SET TO NO WAIT AGAIN V P LDR A3,A2 z P RB TMW:40 P* P EJECT TPROC P* P* PTP:RQE EQU * " P ABL LKMRQE LKM REQUEST ERROR
0x3b0cdc…3b0e70 Dummy {f00=0x0094, 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
0x3b0e70…3b1004 Dummy {f00=0x0094, f01=0x0190, f02=» A x , ( A A A A A A A , ( *T A _ P A A H , ( . , + - ; # x , ( + $ : X " H W X " ACBREL , ( * K H H A W W
0x3b1004…3b1198 Dummy {f00=0x0094, f01=0x0190, f02=» P " W U z , ( :U A " FNDTID@ J , ( ! ? > " @ , ( D @ T " ( ^ @ P , ( R % A A " @ ,T @ , ( E W @ A W
0x3b1198…3b132c Dummy {f00=0x0094, f01=0x0190, f02=»P V | , ( W _x , ( _` A L , ( @ ,T @ W @ T @ W @ @ | , ( % >a @ A , ( E A ,
0x3b132c…3b14c0 Dummy {f00=0x0094, f01=0x0190, f02=» l , ( P 3P C @ P @ , ( @ P @ Q A , @ < , ( BT A " T @ W @ A l , ( ! % A ,P @ _2 , ( E ,T 2 0 P nP , ( e _
0x3b14c0…3b1654 (3, 505) Opaque[0x194]
0x3b1654…3b17e8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1208, f03=0x0000}
0x3b1654…3b17e8 IdxSect {
0x3b1654…3b17e8 f00 = 0x0090 // 0x3b1654 @0x0
0x3b1654…3b17e8 f01 = 0x0008 // 0x3b1656 @0x2
0x3b1654…3b17e8 gno = [ // 0x3b1658 @0x4
0x3b1654…3b17e8 [0x00]: C0x0090.0x1.0
0x3b1654…3b17e8 [0x01]: C0x0090.0x2.0
0x3b1654…3b17e8 [0x02]: C0x0090.0x3.0
0x3b1654…3b17e8 [0x03]: C0x009e.0x0.0
0x3b1654…3b17e8 ]
0x3b1654…3b17e8 }
0x3b17e8…3b197c Dummy {f00=0x0090, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x3b197c…3b1b10 Dummy {f00=0x0090, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT , P ENTRY TLSEG1
0x3b1b10…3b1ca4 Dummy {f00=0x0090, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM D P EXTRN TDISP DISPATCHER x P EXTRN RELPAG RELEASE PAGE $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS
0x3b1ca4…3b1e38 Dummy {f00=0x0090, f01=0x0190, f02=»GE BLOCK ADDRESS P EXTRN TTB:AP ACB ADDRESS & P EXTRN TTB:PW PROGRAM STATUS WORD : P EXTRN TTB:SA TTAB SAVE AREA d P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ( P EXTRN TTB
0x3b1e38…3b1fcc Dummy {f00=0x0090, f01=0x0190, f02=» ACBNPE NUMBER OF PAGE ENTRIES * P EXTRN ACBLAP LOGICAL ADDRESS OF PAGES & P EJECT TLDSEG T P* l P* v . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P************************************
0x3b1fcc…3b2160 Dummy {f00=0x0090, 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* A PROGRAM VERSION USING TOSS DISC PAGING * P* IS OBTAINED BY SETTI
0x3b2160…3b22f4 (3, 506) Dummy {f00=0x0090, f01=0x0190, f02=» P********** P* P* $ 0 P* THIS IS THE LOAD SEGMENT LKM PROCESSOR. . P* b * P* IT IS ENTERED FROM THE LKM HANDLER l & P* WITH THE FOLLOWING PARAMETERS: P* P* A2 = DISPATCH ADDRESS P* A5 = TTAB ADDRESS
0x3b22f4…3b2488 Dummy {f00=0x0090, f01=0x0190, f02=» > P* A7 = UNCHANGED IF SEGMENT LOADING IS SUCCESSFUL, ELSE & P* A7 = -1 IF REQUEST ERROR, ELSE F ( P* A7 = -2 IF DISC I/O ERROR, ELSE p $ P* A7 = -3 IF DISC NOT OPERABLE P* 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: < P*
0x3b2488…3b261c Dummy {f00=0x0090, f01=0x0190, f02=»POSE TO MAKE THE REQUEST AS FAST AS POSSIBLE. P* 6 : P* WHEN REQUESTED SEGMENT IS NOT IN CORE TLDSEG WILL @ : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. ~ P* P* P EJECT TLDSEG P* P* PTLDSEG EQU *
0x3b261c…3b27b0 Dummy {f00=0x0090, f01=0x0190, f02=»MENT STATUS , P ANK A4,/1E CHECK IF CORE RESIDENT OR... 2 P RF(NZ) TLDS00 ...USED BY AN INTERRUPTED TASK D P* z ( P* INSERT PAGE BLOCK IN PAGE QUEUE P* P CF A15,RELPAG RELEASE PAGE P LD A4,TTB:PW,A5 PSW & P ST A4,-2,A15
0x3b27b0…3b2944 Dummy {f00=0x0090, f01=0x0190, f02=»A5 SEGTAB ADDRESS * P LDR A1,A7 CHECK IF SEGMENT NUMBER < 0 P RF(N) TLDERR REQUEST ERROR H 4 P CW A1,SEG:NS,A3 CHECK IF SEGMENT NUMBER TOO BIG l P RF(NG) TLDS03 OK P* $ PTLDERR LDK A6,/FF INDICATE ERROR , P ABL LKM030 BRANCH TO LK
0x3b2944…3b2ad8 Dummy {f00=0x0090, f01=0x0190, f02=»LL A1,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A1,A3 ADD SEGTAB ADDRESS . P LDR A3,A5 GET TTAB ADDRESS T P* x P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* " P
0x3b2ad8…3b2c6c Dummy {f00=0x0090, f01=0x0190, f02=»:DS,A1 GET LOGICAL ADDRESS OF SEGMENT 0 P* 0 P IFT DSKPAG=1 : $ P SUKL A15,4 ADJUST STACKPOINTER P . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK x P XIF P RF TLDS40 P* P EJECT TLDSEG P* P* PTLDS05 EQU
0x3b2c6c…3b2e00 Dummy {f00=0x0090, f01=0x018e, f02=»0 SEGMENT LOADED IN CORE P ST A2,TTB:SA,A3 P CM PRUN 8 P* H P* ACTIVATE LOAD TASK R P* n 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK x P ABL TDISP GO TO DISPATCHER P* PTLDS10 EQU * $ P SUKL A15,4 ADJUST S
0x3b2e00…3b2f94 (3, 507) Dummy {f00=0x0090, f01=0x0190, f02=» P* TLSEG1 * P* TLSEG2 * P********** , P* > P* H > P* ENTRIES USED BY LDTASK IN PURPOSE TO REMOVE PAGE BLOCK R @ P* FROM PAGQUE, UPDATE CURRENT SEGMENT BASE AND MMU TABLE. P* P* INPUT: $ P* TLSEG1: A1 = SEG
0x3b2f94…3b3128 Dummy {f00=0x0090, f01=0x0190, f02=»G2: A1 = PAGBLK ADDRESS ( P* A3 = TTAB ADDRESS LDTASK & P* A5 = " " " L P* v . P* OUTPUT: A1-A6 FROM TTAB SAVE AREA (A5) P* P XIF P* & PTLSEG1 EQU * ENTRY USED BY LDTASK ( P LD A1,SEG:P
0x3b3128…3b32bc Dummy {f00=0x0090, f01=0x0190, f02=»N QUEUE r , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK @ " P STR A2,A4 UPDATE QUEUE LINKS x P ST A4,PAG:QB,A2 P XIF P* P EJECT TLDSEG P* , P* GET PAGE ADDRESS OF REQU
0x3b32bc…3b3450 Dummy {f00=0x0090, f01=0x0190, f02=»G=1 P ECR A2,A1 P ANK A2,/FC P* 2 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE < P* t P LD A6,TTB:AP,A5 ACB ADDRESS ~ 4 P AD A3,ACBMMP,A6 POINT TO FIRST USED PAGE ENTRY 0 P LD A4,ACBNPE,A6 GET NUMBER OF PAGE ENTRIES
0x3b3450…3b35e4 Dummy {f00=0x0090, f01=0x0190, f02=» RF(NP) TLDS30 NO MORE PAGE ENTRIES & P ADK A3,2 POINT TO NEXT PAGE ENTRY , " P ADK A2,4 UPDATE PAGE ADDRESS V P RB TLDS25 | P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 COMPUTE CURRENT SEGMENT BASE P SLL A1,2
0x3b35e4…3b3778 Dummy {f00=0x0090, f01=0x0190, f02=»MENT BASE l P XIF P* P IFT MMUPAG=0 ( PTLDS40 EQU * > 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE R P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x3b3778…3b390c Dummy {f00=0x0090, f01=0x40c2, f02=»A+6,A5 P LD A4,TTB:SA+8,A5 P LD A6,TTB:SA+12,A5 ( P LD A5,TTB:SA+10,A5 D $ P RTN A15 RETURN TO CALLING TASK ` P XIF P* P* P* P END @ $ P ML 6,TTB:SA+2,A6 RESTORE A1-A6 $ P RTN A15 RETURN TO CALLING
0x3b390c…3b3aa0 Dummy {f00=0x0090, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x3b3aa0…3b3c34 (3, 508) Dummy {f00=0x009e, f01=0x0190, f02=»ON BUFFER v P RB MSS010 CONTINUE MOVE P* 2 PMSS020 EQU * < P ADK A3,2 P " P RF(Z) MOVRT1 ALL MOVED,RETURN b P XIF P* P IFT CPU852=0 P IFT CPU857=1 P TM A4,A3 ( P RF(Z) MSS020 REQUESTED LENGTH EVEN " P
0x3b3c34…3b3dc8 Dummy {f00=0x009e, f01=0x0002, f02=»
0x3b3dc8…3b3f5c Dummy {f00=0x009e, f01=0x0190, f02=» J F IDENT TMMLKM REL 11.0 81-01-26 870105041100 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x3b3f5c…3b40f0 Dummy {f00=0x009e, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x3b40f0…3b4284 Dummy {f00=0x009e, f01=0x2008, f02=»
0x3b4284…3b4418 Dummy {f00=0x009e, f01=0x0190, f02=»4,1 MASK P TM A4,A1 " P RF(Z) MUS110 USER BUFFER EVEN " P TM A4,A2 H $ P RF(Z) MUS100 SYSTEM BUFFER EVEN Z P* P EJECT TMOVE P* ( P* USER BUFFER ODD,SYSTEM BUFFER ODD P* 0 P ELR A5,A1 FIRST CHARACTER FROM USER B
0x3b4418…3b45ac Dummy {f00=0x009e, f01=0x0190, f02=»DECREMENT LENGTH $ P RF(NP) MOVRT3 ALL MOVED, RETURN P* @ * P* USER BUFFER EVEN,SYSTEM BUFFER EVEN J P* x PMUS010 EQU * P TM A4,A3 ( P RF(Z) MUS020 REQUESTED LENGTH EVEN " P LDK A4,0 INDICATE LENGTH ODD P* PMUS0
0x3b45ac…3b4740 Dummy {f00=0x009e, f01=0x0190, f02=»TER z P ECR A5,A5 P RB MUS005 =1 P* 4 P XIF > P* J P EJECT TMOVE T P* j P* t P********** ~ P* MOVRTN * P********** P* , P* COMMON RETURN LABELS FOR MOVE ROUTINES P* PMOVRT1 EQU *
0x3b4740…3b48d4 (3, 509) Opaque[0x194]
0x3b48d4…3b4a68 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x3b48d4…3b4a68 IdxSect {
0x3b48d4…3b4a68 f00 = 0x009e // 0x3b48d4 @0x0
0x3b48d4…3b4a68 f01 = 0x0004 // 0x3b48d6 @0x2
0x3b48d4…3b4a68 gno = [ // 0x3b48d8 @0x4
0x3b48d4…3b4a68 [0x00]: C0x009e.0x3.0
0x3b48d4…3b4a68 [0x01]: C0x00ca.0x2.0
0x3b48d4…3b4a68 ]
0x3b48d4…3b4a68 }
0x3b4a68…3b4bfc Dummy {f00=0x009e, f01=0x0190, f02=» 2 P IDENT TABORT REL 11.0 81-01-26 870105041100 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x3b4bfc…3b4d90 Dummy {f00=0x009e, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x3b4d90…3b4f24 Dummy {f00=0x009e, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n P EXTRN DWTECB ECB ADDRESS ( P EXTRN DWTSB2 2ND STACK BASE IN DWT * P EXTRN DWTECH ECHO DEVIC
0x3b4f24…3b50b8 Dummy {f00=0x009e, f01=0x0190, f02=»XTRN LKMRQE LKM REQUEST ERROR P EXTRN FREBLK FREE ONE BLOCK & P EXTRN ECBRC ECN RETURN CODE J P EJECT TABORT n P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********
0x3b50b8…3b524c Dummy {f00=0x009e, f01=0x0190, f02=»1. l P* PMMUPAG EQU 1 P* ( P EJECT TABORT 2 P* J P* T P********** ^ P* TABORT * p P********** P* P* 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM
0x3b524c…3b53e0 Dummy {f00=0x009e, f01=0x018e, f02=»* A PENDING I/O REQUEST IS ABORTED. < P* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK . : P* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN n P* NOT BE ABORTED. P* P* PTABORT EQU * P IFT MMUPAG=0 " P L
0x3b53e0…3b5574 (3, 510) Dummy {f00=0x00ca, f01=0x0190, f02=» , P RF(N) TABRQE REQUEST ALREADY COMPLETED ( P CF A15,FNDDWT LOOK FOR DWT ADDRESS 4 P LDR A7,A6 SAVE DWT ADDRESS ` P RF(Z) TABRQE DWT UNKNOWN P* P EJECT TABORT P* P* P CW A5,DWTTAB,A6 P RF(NE) TABRQE ILLEG
0x3b5574…3b5708 Dummy {f00=0x00ca, f01=0x018e, f02=» RF(E) TABRQE ABORT NOT ALLOWED P LD A4,DWTST,A6 ( " P RF(N) TABRQE DEVICE NOT BUSY @ P SLC A4,2 f $ P RF(NN) TAB:20 NOT ECHO REQUEST x & P LD A6,DWTECH,A6 ECHO DWT ADDRESS : P LD A3,DWTADR,A6 ADDRESS TO ECHO DRIVER ADDRESS BLOCK * P
0x3b5708…3b589c Dummy {f00=0x00ca, f01=0x0190, f02=» P SUK A3,1 2 P RF(Z) TABRQE ABORT NOT ALLOWED ON ECHO DEVICE " P LDR A6,A7 RESTORE DWT ADDRESS P P* v PTAB:20 EQU * P LD A4,DWTWAT,A6 " P RF(Z) TAB:30 I/O WITH NO WAIT : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK
0x3b589c…3b5a30 Dummy {f00=0x00ca, f01=0x0190, f02=» " P ST A1,DWTWAT,A6 INDICATE WAIT P SRC A1,2 A1 := /4000 . 0 P ORS A1,ECBRC,A8 SET RETURN CODE TO ABORTED L 6 P LDKL A5,DWTSB2 2ND STACK BASE DISPLACEMENT IN DWT P ADR A5,A6 ADD DWT ADDRESS P* , P* EXIT IS MADE TO DRIVER ABORT R
0x3b5a30…3b5bc4 Dummy {f00=0x00ca, f01=0x4124, f02=»A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTINE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR P* P*
0x3b5bc4…3b5d58 Dummy {f00=0x00ca, f01=0x2008, f02=»
0x3b5d58…3b5eec Dummy {f00=0x00ca, f01=0x0190, f02=» ACBNPE NUMBER OF PAGE ENTRIES * P EXTRN ACBLAP LOGICAL ADDRESS OF PAGES & P EJECT TLDSEG T P* l P* v . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P************************************
0x3b5eec…3b6080 Dummy {f00=0x00ca, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTI
0x3b6080…3b6214 (3, 511) Opaque[0x194]
0x3b6214…3b63a8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1958, f03=0x0000}
0x3b6214…3b63a8 IdxSect {
0x3b6214…3b63a8 f00 = 0x00ca // 0x3b6214 @0x0
0x3b6214…3b63a8 f01 = 0x0006 // 0x3b6216 @0x2
0x3b6214…3b63a8 gno = [ // 0x3b6218 @0x4
0x3b6214…3b63a8 [0x00]: C0x00ca.0x3.0
0x3b6214…3b63a8 [0x01]: C0x00cb.0x2.0
0x3b6214…3b63a8 [0x02]: C0x00cb.0x3.0
0x3b6214…3b63a8 ]
0x3b6214…3b63a8 }
0x3b63a8…3b653c Dummy {f00=0x00ca, f01=0x0190, f02=» 2 P IDENT MONTIM REL 11.0 81-01-26 870105041100 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* MONTIM = MONITOR CLOCK/DATE PROCESSORS P*
0x3b653c…3b66d0 Dummy {f00=0x00ca, f01=0x0190, f02=» @ P* THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS P* H 0 P* -GETTIM GET TIME FROM MONITOR CLOCK R P* . P* -SETTIM SET TIME IN MONITOR CLOCK P* 0 P* -GETDAT GET DATE FROM MONITOR CLOCK P* .
0x3b66d0…3b6864 Dummy {f00=0x00ca, f01=0x0190, f02=»* P*********** P* P* ( . P ENTRY GETTIM GET TIME FROM MONITOR CLOCK 2 , P ENTRY SETTIM SET TIME IN MONITOR CLOCK d . P ENTRY TDATE GET/SET DATE IN MONITOR CLOCK P EJECT MONTIM P* P* P************* P
0x3b6864…3b69f8 Dummy {f00=0x00ca, f01=0x0190, f02=»H l P EXTRN TTB:SA TTAB SAVE AREA P EJECT MONTIM . P* F P* P . P***************************************** Z P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P* . P* A PROGRAM VE
0x3b69f8…3b6b8c Dummy {f00=0x00ca, f01=0x0190, f02=»M P* P* P********** P* GETTIM * 0 P********** B P* T P* ^ , P* THIS IS THE GET TIME LKM PROCESSOR. h P* , P* IT IS ENTERED FROM THE LKM HANDLER 0 P* WITH ADDRESS TO THE USER TIMER CONTROL 2 P*
0x3b6b8c…3b6d20 Dummy {f00=0x00ca, f01=0x0190, f02=»ONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* 0 $ PGETDAT EQU * ENTRY USED BY TDATE : P LDK A3,6 COUNTER b P LDR* A6,A7 SECONDS | P STR A6,A15 SAVE ON STACK P SUK A7,2 P LDR* A6,A7 MINUTES P STR A6,A15 SAVE ON STACK
0x3b6d20…3b6eb4 (3, 512) Dummy {f00=0x00cb, f01=0x0190, f02=» SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 . ( P SCR A6,A8 STORE LEFTHAND CHARACTER @ P XIF l P* x P EJECT MONTIM P* P* P IFT MMUPAG=1 . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS P ANK A4,1 " P
0x3b6eb4…3b7048 Dummy {f00=0x00cb, f01=0x0190, f02=»A1,1,A8 P ELR A4,A8 P SRL A6,8 " P ANKL A4,/FF00 4 P ORR A6,A4 J P* 6 PGETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK f P XIF P* P SUK A3,2 P RF(E) GETT20 P ADKL A8,2 , P LDR* A6,A15 GET ACTUAL
0x3b7048…3b71dc Dummy {f00=0x00cb, f01=0x0190, f02=»ACCUMULATED 24 HOUR CARRY 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 " P* X PTPDIS EQU * b P CMR A7 CLEAR MIDNIGTH CARRY v P ABL LKMQDI P* P EJECT MONTIM P* P* P********** P* SETTIM * P
0x3b71dc…3b7370 Dummy {f00=0x00cb, f01=0x0190, f02=»WITH h 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS @ $ P* COPIED INTO MONITOR CLOCK. t P* P* PSETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P* $ P
0x3b7370…3b7504 Dummy {f00=0x00cb, f01=0x0190, f02=»6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 $ ( P LC A6,1,A8 GET RIGHTHAND CHARACTER 6 P XIF b P* n P EJECT MONTIM x P* P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CON
0x3b7504…3b7698 Dummy {f00=0x00cb, f01=0x0190, f02=» SLL A6,8 P SRL A4,8 P ORR A6,A4 $ P* 6 PSETT15 EQU * @ P XIF T P* ` $ P CF A15,ASCTBY CONVERT TO BINARY j P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS AND MINUTES P RB
0x3b7698…3b782c Dummy {f00=0x00cb, f01=0x0190, f02=» l P SUK A7,2 P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK . P SUK A7,2 Z P LDR* A6,A15 l & P STR A6,A7 HOURS TO MONITOR CLOCK P SUK A7,2 P RB TPDIS P* P EJECT MONTIM P* P* P****
0x3b782c…3b79c0 Dummy {f00=0x00cb, f01=0x0190, f02=» IT IS ENTERED FROM THE LKM HANDLER ( P* WITH THE FOLLOWING PARAMETERS: , P* X $ P* A7 = GET/SET DATE PARAMETER b < P* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) & P* A8 = DATE CONTROL BLOCK (DCB) P* P* 0 P
0x3b79c0…3b7b54 (3, 513) Dummy {f00=0x00cb, f01=0x0190, f02=»DK A1,0 SET CR P RB(Z) GETDAT GET DATE P RB SETDAT SET DATE 4 P* P P EJECT MONTIM Z P* r P* | P********** P* BYTASC * P********** P* P* 2 P* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT ( P*
0x3b7b54…3b7ce8 Dummy {f00=0x00cb, f01=0x0190, f02=»* PBYTA10 SUK A6,/A P RF(N) BYTA20 " P ADKL A4,/100 8 P RB BYTA10 N P* ` PBYTA20 ADK A6,/A j P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P* P EJECT MONTIM P* P* P********** P* ASCT
0x3b7ce8…3b7e7c Dummy {f00=0x00cb, f01=0x414e, f02=»RY. p P* RESULT IN A6. P* 0 P* : PASCTBY EQU * D P LDR A4,A6 X P ANK A6,/F j P SRL A4,8 | P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P*
0x3b7e7c…3b8010 Dummy {f00=0x00cb, 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
0x3b8010…3b81a4 Dummy {f00=0x00cb, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n P EXTRN DWTECB ECB ADDRESS ( P EXTRN DWTSB2 2ND STACK BASE IN DWT * P EXTRN DWTECH ECHO DEVIC
0x3b81a4…3b8338 Dummy {f00=0x00cb, f01=0x0190, f02=»XTRN LKMRQE LKM REQUEST ERROR P EXTRN FREBLK FREE ONE BLOCK & P EXTRN ECBRC ECN RETURN CODE J P EJECT TABORT n P* P* . P***************************************** P* P* CONDITIONAL ASSEMBLY P* . P**********
0x3b8338…3b84cc Dummy {f00=0x00cb, f01=0x0190, f02=»1. l P* PMMUPAG EQU 0 P* ( P EJECT TABORT 2 P* J P* T P********** ^ P* TABORT * p P********** P* P* 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM
0x3b84cc…3b8660 Dummy {f00=0x00cb, f01=0x018e, f02=»* A PENDING I/O REQUEST IS ABORTED. < P* THE ABORT REQUEST MUST BE ISSUED FROM THE SAME TASK . : P* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN n P* NOT BE ABORTED. P* P* PTABORT EQU * P IFT MMUPAG=0 " P L
0x3b8660…3b87f4 (3, 514) Opaque[0x194]
0x3b87f4…3b8988 # DirEnt {nam=»TIOFM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24c0, f03=0x0000}
0x3b87f4…3b8988 IdxSect {
0x3b87f4…3b8988 f00 = 0x0126 // 0x3b87f4 @0x0
0x3b87f4…3b8988 f01 = 0x000c // 0x3b87f6 @0x2
0x3b87f4…3b8988 gno = [ // 0x3b87f8 @0x4
0x3b87f4…3b8988 [0x00]: C0x0126.0x0.0
0x3b87f4…3b8988 [0x01]: C0x0126.0x1.0
0x3b87f4…3b8988 [0x02]: C0x0126.0x2.0
0x3b87f4…3b8988 [0x03]: C0x0126.0x3.0
0x3b87f4…3b8988 [0x04]: C0x0127.0x0.0
0x3b87f4…3b8988 [0x05]: C0x0127.0x1.0
0x3b87f4…3b8988 ]
0x3b87f4…3b8988 }
0x3b8988…3b8b1c Dummy {f00=0x0126, f01=0x0190, f02=» 0 P IDENT TIOFM REL 11.0 81-05-13 870105041100 P 8 P* @ P* J 6 P************************************************** T P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TIOFM = TOSS FILE MANAGEMENT LKM PROCESS
0x3b8b1c…3b8cb0 Dummy {f00=0x0126, f01=0x0190, f02=»TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 2 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE j " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TIOFM P* P* P****
0x3b8cb0…3b8e44 Dummy {f00=0x0126, f01=0x018e, f02=»RY DET:FM FILE MANAGEMENT DETACH : P ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS ( " P ENTRY FCHEC2 FCHECK 2ND ENTRY f P EJECT TIOFM P* P* P************* P* EXTERNALS * P************* P* P*
0x3b8e44…3b8fd8 Dummy {f00=0x0126, f01=0x0190, f02=» 4 P EXTRN QUEFIL QUEUE FILE REQUEST IN DEVICE QUEUE " P EXTRN TIO:FM FM ENTRY IN TIO < , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH b " P EXTRN FNDDWD FIND DWT ADDRESS , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING $ P EXTRN GETBLK GET MONITOR BLOCK
0x3b8fd8…3b916c Dummy {f00=0x0126, f01=0x0190, f02=» r 0 P EXTRN FWTVTC VTOC SECTOR NO (FIRST EXTENT) ( P EXTRN FWTPAR FILE ACCESS PARAMETERS < , P EXTRN FWTTAB TTAB FOR TASK WITH ATTACH h 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT 4 P EXTRN FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS P E
0x3b916c…3b9300 Dummy {f00=0x0126, f01=0x0190, f02=»GTH r $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 4 P EXTRN DWTST DWT STATUS WORD P EJECT TIOFM P* P* , P**************************************** P* P* CONDITIONAL ASSEMBLY P*
0x3b9300…3b9494 (3, 515) Dummy {f00=0x0126, f01=0x0190, f02=» MMUPAG EQU 1. x P* PMMUPAG EQU 1 P* 4 P* > 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION H . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P* & P* THE ATTACH/DETACH FILE FUNCTION
0x3b9494…3b9628 Dummy {f00=0x0126, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:B EQU MULEXT l P* P EJECT TIOFM P* P* P********* P* TIOFM * P********* P* P* 8 P* THIS
0x3b9628…3b97bc Dummy {f00=0x0126, f01=0x018e, f02=»ETERS: t P* P* A4 = 0 P* A5 = TTAB ADDRESS * P* A7 = ORDER CODE H P* A8 = ECB ADDRESS d P* . P* WHEN FILE ADMINISTRATION IS REQUESTED, ( P* TIOFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION
0x3b97bc…3b9950 Dummy {f00=0x0126, f01=0x0190, f02=» P* P* P EJECT TIOFM P* . P* 8 4 PTIOFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY B P* z P* CHECK ORDER CODE P* P LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT P SUK A
0x3b9950…3b9ae4 Dummy {f00=0x0126, f01=0x018e, f02=» RF(Z) FM:IO BASIC WRITE P SUK A2,/11-/05 P RF(Z) FM:IO PHYSICAL READ 8 P SUK A2,/15-/11 Z P RF(Z) FM:IO PHYSICAL WRITE r P SUK A2,/21-/15 $ P RF(Z) FMACT2 OPEN/CREATE/EXTEND P SUK A2,/22-/21 P RF(Z) FMACT1 CLOSE/DELETE
0x3b9ae4…3b9c78 Dummy {f00=0x0126, f01=0x0190, f02=» . P RF(NZ) FM:RQE REQUEST ERROR IF NOT DETACH P* 6 P EJECT TIOFM @ P* V P IFT ATTDET=1 ` P* v P********** P* DETACH * P********** P* P* DETACH FILE P* PDETACH EQU * 8 P CF A15,FCHECK FIND
0x3b9c78…3b9e0c Dummy {f00=0x0126, f01=0x0190, f02=» WAS ATTACHED v ( P RF(NZ) T:DISP YES, GO TO DISPATCHER P XIF B P* N P* ERROR EXIT X P* l 4 PFM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT v P LDK A3,/80 RETURN CODE P* PFM:ER1 EQU * P ECR A3,A3 P RF T:DIS2
0x3b9e0c…3b9fa0 Dummy {f00=0x0126, f01=0x0190, f02=»* P* ATTACH FILE P* PATTACH EQU * * 8 P CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS > P RF(NZ) FM:030 NOT OK z $ P ST A5,FWTTAB,A6 SET ATTACH WORD P XIF P* PT:DISP EQU * P LDR A3,A4 RETURN CODE P
0x3b9fa0…3ba134 (3, 516) Dummy {f00=0x0126, f01=0x0190, f02=» P********** P* FMACTX * P********** ( P* : P* D & P* FILE ADMINISTRATION REQUESTED. N P* x 6 P* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: P* 4 P* A1 = ORDER CODE AND OPTION (RFP/OPEN/CLOSE) 0 P* = P
0x3ba134…3ba2c8 Dummy {f00=0x0126, f01=0x0190, f02=»CLOSE, 6 = SPLIT I/O) ` P* ( PFMACT1 EQU * ACTIVATE CLOSE FUNCTION ( P ADK A4,2 FUNCTION INDEX T P* t ( PFMACT2 EQU * ACTIVATE OPEN FUNCTION ~ P ADK A4,2 FUNCTION INDEX P* 8 PFMACT3 EQU * ACTIVATE READ FILE PARAMETERS FUNCTION
0x3ba2c8…3ba45c Dummy {f00=0x0126, f01=0x0190, f02=»SS r , P LDR A3,A5 TTAB ADDRESS OF CALLING TASK ( P LDKL A5,TTABFM FMTASK TTAB ADDRESS : , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH f P* P EJECT TIOFM P* P* P********** P* FM I/O * P********** P* $
0x3ba45c…3ba5f0 Dummy {f00=0x0126, f01=0x018e, f02=»ACCESS PARAMETERS n P* P IFT ATTDET=1 $ P RF(Z) FM:050 OK : P* R PFM:030 EQU * P CWK A4,/40 p P RB(NE) T:DISP ERROR, RETURN P* " P* FILE ATTACHED, QUEUE REQUEST P* ( P ADKL A6,FWTQUE QUEUE ANCHOR ADDRESS
0x3ba5f0…3ba784 Dummy {f00=0x0126, f01=0x0190, f02=» P RB(NZ) FM:RQE ERROR P XIF P* , P EJECT TIOFM 6 P* L " P* CHECK RELATIVE SECTOR NUMBER V P* | PFM:050 EQU * P IFT MMUPAG=0 P IFT CPU852=1 , P LD A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P LD A1,ECBCW1,A8
0x3ba784…3ba918 Dummy {f00=0x0126, f01=0x0190, f02=» P IFT MMUPAG=1 , P EL A2,ECBCW2,A8 RELATIVE SECTOR NUMBER P EL A1,ECBCW1,A8 J P XIF b P* n P RF(NZ) FM:060 x P ADK A2,0 , P RF(Z) FM:ER2 RELATIVE SECTOR NUMBER = 0 P* PFM:060 EQU * P LDR A3,A6 FWT ADDRESS
0x3ba918…3baaac Dummy {f00=0x0126, f01=0x0190, f02=»A3,FWTEW1 ADDRESS TO 1ST EWT STRUCTURE P LDKL A14,/7FFF 0 P* H P EJECT TIOFM R P* h ( P* SEARCH THE FILE EXTENT THAT HOLDS r P* THE REQUESTED SECTORS P* PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH
0x3baaac…3bac40 Dummy {f00=0x0126, f01=0x018e, f02=» CWR A2,A7 P RF(NG) FM:100 EXTENT FOUND P* 6 PFM:080 EQU * @ P IFT CPU852=0 T . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER j P XIF P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7
0x3bac40…3badd4 (3, 517) Dummy {f00=0x0126, f01=0x0190, f02=» PFM:090 EQU * ( P LDR* A3,A3 ADDRESS TO 2ND EWT BLOCK . P LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE D $ P RB(NZ) FM:070 CHECK NEXT EXTENT v P* 2 PFM:ER2 EQU * FILE MANAGEMENT EXTENT ERROR EXIT P LDK A3,/A0 RETURN CODE P RB FM:ER1
0x3badd4…3baf68 Dummy {f00=0x0126, f01=0x0190, f02=» EWT BLOCK v P SUR A10,A10 ( P LC A10,EWTEXB-1,A4 FILE EXTENT BASE & P LD A11,EWTEXB,A4 R P* l P IFT CPU852=0 v " P DAR A10 COMPUTE SECTOR NUMBER P DSK 0,1 P XIF P* P IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR
0x3baf68…3bb0fc Dummy {f00=0x0126, f01=0x0190, f02=»ERFLOW z " P SUK A1,1 UNDERFLOW CORRECTION P ANR A2,A14 SKIP SIGN BIT 4 P XIF V P* b P EJECT TIOFM l P* P* PFM:115 EQU * " P LDR A12,A1 SAVE SECTOR NUMBER P LDR A13,A2 P* P IFT MMUPAG=0 . P LC
0x3bb0fc…3bb290 Dummy {f00=0x0126, f01=0x0190, f02=»LENGTH (BYTES) v P SRL A3,8 SECTORS P XIF 0 P* < . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 F P RF(O) FM:150 OVERFLOW x P* PFM:120 EQU * 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT P ADR A7,A11 P RF(O) FM:16
0x3bb290…3bb424 Dummy {f00=0x0126, f01=0x018e, f02=»SECTORS NOT WITHIN THIS EXTENT ~ P CWR A7,A2 & 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT 8 P* p P EJECT TIOFM z P* & P* PREPARE PARAMETERS FOR DISC I/O P* P* EXIT PARAMETERS: P* $ P* A2 = DISC INDEX (FRO
0x3bb424…3bb5b8 Dummy {f00=0x0126, f01=0x0190, f02=» h P* A7 = ORDER CODE P* A8 = ECB ADDRESS " P* < PFM:130 EQU * F $ P LC A2,EWTVOL,A4 FILE CODE DISC Z ( P CF A15,FNDDWD FIND DISC DWT ADDRESS * P LDK A4,0 INDICATE NO I/O-AND-ACTIVATE P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) Q
0x3bb5b8…3bb74c Dummy {f00=0x0126, f01=0x018e, f02=» NUMBER IN ECB t P ST A13,ECBCW2,A8 P XIF 0 P* < P IFT MMUPAG=1 F . P ES A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ES A13,ECBCW2,A8 P XIF P* * P ABL TIO:FM BRANCH TO FM ENTRY IN TIO P* P EJECT TIOFM
0x3bb74c…3bb8e0 Dummy {f00=0x0126, f01=0x0190, f02=» P ANR A2,A14 SKIP SIGN BIT P RB FM:110 * P XIF < P* H PFM:150 EQU * R P ADK A1,1 f P ANR A2,A14 SKIP SIGN BIT x P RB FM:120 P* PFM:160 EQU * P ADK A6,1 P ANR A7,A14 SKIP SIGN BIT P RB FM:125
0x3bb8e0…3bba74 (3, 518) Dummy {f00=0x0127, f01=0x0190, f02=»HE FOLLOWING PARAMETERS: x P* " P* A1 = PARAMETER BLOCK ADDRESS * ( P* A3 = TTAB ADDRESS OF CALLING TASK P P* A4 = FUNCTION INDEX (=6) | P* PFM:170 EQU * P IFT MULEXT=1 P IFT MMUPAG=0 . P ST A12,ECBCW1,A8 SET SECTOR NUM
0x3bba74…3bbc08 Dummy {f00=0x0127, f01=0x0190, f02=»OR NUMBER IN ECB v P ES A13,ECBCW2,A8 P XIF 2 P* > P IFT MULEXT=1 H * P SUR A7,A13 NO OF SECTORS IN FIRST I/O ^ * P ANR A7,A14 SKIP SIGN BIT JUST IN CASE P* * P* PREPARE PARAMETER BLOCKS FOR FMTASK P* P LDR A1,A9 O
0x3bbc08…3bbd9c Dummy {f00=0x0127, f01=0x0190, f02=» A1,A4 PARAMETER BLOCK ADDRESS * P LDK A4,6 FUNCTION INDEX FOR SPLIT I/O & P RB FMACT4 ACTIVATE FMTASK T P XIF v P* P IFT MULEXT=0 P RB FM:ER2 REQUEST ERROR P XIF P* P EJECT TIOFM P* P* P******
0x3bbd9c…3bbf30 Dummy {f00=0x0127, f01=0x0190, f02=» ^ 2 P* ADDRESS AND CHECKS THE ACCESS PARAMETERS. ! P* ! > " P* INPUT: A5 = TTAB ADDRESS ! H P* A7 = ORDER CODE ! n ( P* A8 = ECB ADDRESS (FCHECK ONLY) ! ( P* A9 = ECB ADDRESS (FCHEC2 ONLY) ! P* ! " P* OUTPUT: CR = 0 I
0x3bbf30…3bc0c4 Dummy {f00=0x0127, f01=0x0190, f02=»ROR) ! b : P* A7 = ORDER CODE (MODIFIED TO BASIC IF REQUESTED) " P* A9 = ECB ADDRESS " J P* A2 IS DESTROYED " h P* " " PFCHECK EQU * FCHECK MAIN ENTRY " P LDR A9,A8 ECB ADDRESS " P* " " PFCHEC2 EQU * FCHECK 2ND ENTRY " P IFT M
0x3bc0c4…3bc258 Dummy {f00=0x0127, f01=0x0190, f02=» " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) FC:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TOO BIG # 0 P LDKL A6,S
0x3bc258…3bc3ec Dummy {f00=0x0127, f01=0x0190, f02=»1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 VTOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2,FWTPAR,A6 ACCESS PARAME
0x3bc3ec…3bc580 Dummy {f00=0x0127, f01=0x0190, f02=» P* % PFC:020 EQU * % P IFT ATTDET=1 % " 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) % 8 & P ABR(Z)* A15 NOT ATTACHED, RETURN % l , P CWR A2,A5 ATTACHED, CHECK IF THIS TASK % , P RF(NE) FC:060 ATTACHED TO ANOTHER TASK % P XIF % P* %
0x3bc580…3bc714 (3, 519) Dummy {f00=0x0127, f01=0x0190, f02=»CT TIOFM % P* & P* ERROR RETURNS & P* & 4 $ PFC:050 EQU * REQUEST ERROR EXIT & > & P LDKL A4,/7FC0 RETURN CODE = /8000 & f $ P LDK A6,0 INDICATE NO FWT FOUND & P* & $ PFC:060 EQU * FILE ATTACHED EXIT & " P ADK A4,/20 RETURN CODE = /40
0x3bc714…3bc8a8 Dummy {f00=0x0127, f01=0x0190, f02=» & l P* ' P EJECT TIOFM ' P* ' ( P* ' 2 P********** ' < P* DET:FM * ' N P********** ' ` P* ' r P* INPUT: A6 = FWT ADDRESS ' | P* ' 2 P* OUTPUT:A10 = TTAB ADDRESS OF ATTACHED TASK ' P* A1 IS DESTROYED ' P* '
0x3bc8a8…3bca3c Dummy {f00=0x0127, f01=0x0190, f02=»TACHED ' | 8 P LD A5,FWTQUE,A6 QUEUE ANCHOR FOR FILE I/O REQUESTS ( ( P RF(Z) DET:20 NO MORE TASKS IN QUEUE ( J P* ( v . P* REPEAT ALL QUEUED REQUESTS FOR THIS FILE ( P* ( PDET:10 EQU * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x3bca3c…3bcbd0 Dummy {f00=0x0127, f01=0x40c6, f02=» P* ) PDET:20 EQU * ) $ P LDR A5,A10 RESTORE TTAB ADDRESS ) " $ P CM FWTTAB,A6 RESET ATTACH WORD ) J P* ) r PDET:30 EQU * ) | P RTN A15 ) P XIF ) P* ) P END ) @ ) * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x3bcbd0…3bcd64 Dummy {f00=0x0127, f01=0x2008, f02=» * O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x3bcd64…3bcef8 Dummy {f00=0x0127, f01=0x0190, f02=» P* ; " P IM VTC:EN,A9 NEXT FILE EXTENT ; @ P LDK A3,FILLEN ADDRESS TO FILE SECTION LENGTH TO BE CREATED ; 4 P ADR A3,A9 ; x P CF A14,DBLSU1 SUBTRACT ; $ P RF(Z) CEF600 FILE SECTION READY ; & P LC A4,VTC:FO,A9 FILE ORGANISATION ; P SUK A4,'L'
0x3bcef8…3bd08c Dummy {f00=0x0127, f01=0x018e, f02=» ; d PCEF470 EQU * < . P LDKL A4,RC:SEO RC: TOO MANY FILE EXTENTS < $ P RF CEF510 TOO MANY FILE EXTENTS < N P* < v P EJECT FMCDEF < P* < P* < PCEF500 EQU * < & P LDK A4,RC:OFL RC: NO MORE VOLUMES < PCEF510 EQU * < , P LD A5,VTC:F
0x3bd08c…3bd220 Dummy {f00=0x0127, f01=0x0190, f02=» < p " P LC A1,FILCOD,A5 GET FILE CODE = P ANK A1,/FF = . P RB(Z) CEF520 NEXT VOLUME = B P LDR A2,A5 = d & P CF A14,GETFIL FILE SECTION LENGTH = v P RB(NZ) CEF520 NO REST PILE = PCEF530 EQU * = P LDK A4,0 RESET CR = P* = P IFT CPU852=
0x3bd220…3bd3b4 (3, 520) Opaque[0x194]
0x3bd3b4…3bd548 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2258, f03=0x0000}
0x3bd3b4…3bd548 IdxSect {
0x3bd3b4…3bd548 f00 = 0x0112 // 0x3bd3b4 @0x0
0x3bd3b4…3bd548 f01 = 0x0016 // 0x3bd3b6 @0x2
0x3bd3b4…3bd548 gno = [ // 0x3bd3b8 @0x4
0x3bd3b4…3bd548 [0x00]: C0x0112.0x3.0
0x3bd3b4…3bd548 [0x01]: C0x0113.0x0.0
0x3bd3b4…3bd548 [0x02]: C0x0113.0x1.0
0x3bd3b4…3bd548 [0x03]: C0x0113.0x2.0
0x3bd3b4…3bd548 [0x04]: C0x0113.0x3.0
0x3bd3b4…3bd548 [0x05]: C0x0114.0x0.0
0x3bd3b4…3bd548 [0x06]: C0x0114.0x1.0
0x3bd3b4…3bd548 [0x07]: C0x0114.0x2.0
0x3bd3b4…3bd548 [0x08]: C0x0114.0x3.0
0x3bd3b4…3bd548 [0x09]: C0x0115.0x0.0
0x3bd3b4…3bd548 [0x0a]: C0x0115.0x1.0
0x3bd3b4…3bd548 ]
0x3bd3b4…3bd548 }
0x3bd548…3bd6dc Dummy {f00=0x0112, f01=0x0190, f02=» 0 P IDENT TIODM REL 11.0 81-02-23 870105041100 P 8 P =5, REL 11.0 81-02-19 @ & P =5, WRONG TASK NBR WHEN COMMIT ` P =4, REL 11.0 81-02-18 0 P =4, ASS.ERR IN FINDTT WHEN TTAB>256 BYTES P =3, REL 11.0 81-02-02 , P =3, RDS
0x3bd6dc…3bd870 Dummy {f00=0x0112, f01=0x0190, f02=» P =1, COMMIT ERROR FOR EDM 8 P**************************************************** ( P* d $ P* PHILIPS TERMINAL SYSTEM PTS n P* 0 P* TIODM = DATA MANAGEMENT ACTIVATION PART P* 4 P* DMTEND = DATA MANAGEMENT COMMIT (/ROL
0x3bd870…3bda04 Dummy {f00=0x0112, f01=0x0190, f02=» THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE D P* v H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED P* < P* ENTRY
0x3bda04…3bdb98 Dummy {f00=0x0112, f01=0x0190, f02=»D WITH W BIT = 0 v P* A8 = ECB ADDRESS P* < P* F P* P 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT Z P* P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY
0x3bdb98…3bdd2c Dummy {f00=0x0112, f01=0x0190, f02=»DBOMD,FDBENL,FDBEXC,FDBECB,FDBSNR . P ENTRY FDBRRO,FDBRLE,FDBBLF,FDBTNR,FDBLRN * 4 P ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA P ENTRY FDBBLZ BLOCK SIZE P ENTRY FDBDMI DMTASK IDENT P ENTRY
0x3bdd2c…3bdec0 Dummy {f00=0x0112, f01=0x018e, f02=»FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR , , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR b P ENTRY EOFERR,EDMERR P ENTRY TTABD,TTABLN,TABEND 0 P ENTRY DMXACD EXIT TASK AND ACTIVATE TASK #D P ENT
0x3bdec0…3be054 (3, 521) Dummy {f00=0x0113, f01=0x0190, f02=» . P ENTRY ENLFAC,TOTSIZ,RTNA14,SETCRO,CONENL P ENTRY COSZEN,SIZDIF 6 & P ENTRY SDMSTS,SDMTTD,SDMBF1,SDMBF2 R P ENTRY RECBFZ | P EJECT TIODM P* P*************** P* EXTERNALS * P*************** P* P*
0x3be054…3be1e8 Dummy {f00=0x0113, f01=0x0190, f02=» ACTOT P EXTRN EXIT P EXTRN PRUN " P EXTRN DFTAB 6 P EXTRN DMTIDP J P EXTRN DMTIDS ` P EXTRN ECBCW v P EXTRN FWTVOL P EXTRN HALT P EXTRN TIOSDM P EXTRN TIOADM P EXTRN TIOEDM P EXTRN TDISP
0x3be1e8…3be37c Dummy {f00=0x0113, f01=0x0190, f02=»O P EXTRN ACTDIS P EXTRN DFTABL P EXTRN FNDTID 6 P EXTRN MPYMOD,DIVMOD,ADDMOD L & P EXTRN FPB:EL,FPB:S1,FPB:BF,FPB:RL p P EXTRN DV3RST P EXTRN CRRBL P EXTRN LKMRQE & P EXTRN TIOECR EDM COMMIT ROLLBACK : P EXT
0x3be37c…3be510 Dummy {f00=0x0113, f01=0x0190, f02=» * z P************************ P* * P* 4 P* > , P* IF ADM HANDLING WANTED PUT X:A EQU 1 H P* x PX:A EQU 0 PADM EQU 00000 P* 0 P* IF SDM HANDLING NOT WANTED PUT X:B EQU 0 P* PX:B EQU 0 PSDM
0x3be510…3be6a4 Dummy {f00=0x0113, f01=0x018e, f02=»0 P* P* P EJECT TIODM P* 4 P* > , P* NUMBER OF DM TASKS IS DEFINED BY X:B. H 0 P* ONLY VALUES BETWEEN 2 AND 6 ARE PERMITTED. x * P* ALL OTHER VALUES WILL GIVE 2 TASKS. P* PX:D EQU 2 PNTASKS EQU 00004
0x3be6a4…3be838 Dummy {f00=0x0113, f01=0x018e, f02=» 2 P* X:C = INDEX RECORD BUFFER SIZE IN WORDS P* > PX:E EQU 0 H PRECBFZ EQU 00007 Z P* r H P* AN ADM VERSION WITHOUT OPEN OUTPUT, OPEN EXTEND AND CLOSE DISCARD | & P* IS OBTAINED BY SETTING X:F EQU 0 P* PX:F EQU 0
0x3be838…3be9cc Dummy {f00=0x0113, f01=0x018e, f02=» P* CONDITIONS * P******************* P* < P IFT ADM+CRDEEX=2 F PADMCDE EQU 1 ` P XIF t P IFF ADM+CRDEEX=2 PADMCDE EQU 0 P XIF P* IF ADM AND SDM P IFT ADM+SDM=2 PADMSDM EQU 1 P XIF P
0x3be9cc…3beb60 Dummy {f00=0x0113, f01=0x0190, f02=» P IFF ADM+EDM=2 PADMEDM EQU 0 P XIF 2 P* ADM000=1 IF NOT EDM OR SDM > P IFT SDM+EDM=0 b PADM000 EQU 1 x P XIF P IFF SDM+EDM=0 PADM000 EQU 0 P XIF P* SDM000=1 IF NOT ADM OR EDM P IFT ADM+EDM=0 P
0x3beb60…3becf4 (3, 522) Dummy {f00=0x0113, f01=0x0190, f02=» PEDM000 EQU 1 P XIF P IFF ADM+SDM=0 ( PEDM000 EQU 0 > P XIF R P* ^ P EJECT h P* v P* ERROR CODES P* * PEOMERR EQU /A000 OUTSIDE MEDIUM LIMITS & PPROT EQU /0040 THIS DATA PROTECTED & PNODERR EQU /88
0x3becf4…3bee88 Dummy {f00=0x0113, f01=0x0190, f02=» EQU /8000 GENERAL REQUEST ERROR " PREQER2 EQU /FFFE REQUEST ERROR ( & PLGTERR EQU /0008 INCORRECT LENGTH N * PEDMERR EQU /8080 DATA MANAGEMENT ERROR x PEOFERR EQU /9000 END OF FILE P* P* MESSAGES P* " PRETRIE EQU /0100 DISC
0x3bee88…3bf01c Dummy {f00=0x0113, f01=0x0190, f02=» 4 PMMTAB1 FORM 16=/0000,16=/0400,16=/0800,16=/0C00 4 PMMTAB2 FORM 16=/1000,16=/1400,16=/1800,16=/1C00 < 4 PMMTAB3 FORM 16=/2000,16=/2400,16=/2800,16=/2C00 t 4 PMMTAB4 FORM 16=/3000,16=/3400,16=/3800,16=/3C00 P* P* CONSTANTS P*
0x3bf01c…3bf1b0 Dummy {f00=0x0113, f01=0x0190, f02=» P IFF NTASKS=6 PF EQU 0 PG EQU 0 . PH EQU 0 > PI EQU 0 N P XIF ^ P IFT NTASKS=3 j PF EQU 1 PG EQU 0 PH EQU 0 PI EQU 0 P XIF P IFT NTASKS=4 PF EQU 1 PG EQU 1 PH EQU
0x3bf1b0…3bf344 Dummy {f00=0x0113, f01=0x0190, f02=» IFT NTASKS=6 PF EQU 1 PG EQU 1 & PH EQU 1 6 PI EQU 1 F P XIF V P IFT MMUPAG=0 b PMMTABL EQU 32 x P XIF P IFT MMUPAG=1 PMMTABL EQU 0 P XIF P EJECT P IFT ADM+SDM=0 PTTABST EQU * P
0x3bf344…3bf4d8 Dummy {f00=0x0113, f01=0x0190, f02=» PSDMBF1 EQU * PSDMBF2 EQU * P XIF , P IFF ADM+SDM=0 8 P* N P*************************** X P* TTAB:S FOR DM TASKS * | P************************* P* PTTABST EQU * P MMTAB1 P MMTAB2 P MMTAB3
0x3bf4d8…3bf66c Dummy {f00=0x0113, f01=0x0190, f02=»OCK POINTER ~ . P DATA 0 APPLICATION CONTROL BLOCK POINTER P F PTTABD EQU * N " P DATA 0 DISPATCHER QUEUE LINK b P DATA '#D' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH A
0x3bf66c…3bf800 Dummy {f00=0x0113, f01=0x018e, f02=» PTTABTD EQU *-TTABD P DATA 0,0 MASTER INDEX ENTRY PTTABDE EQU * B P RES STCRES TASK STACK V PSDMSTS EQU *-TTABDE-2 t PDMTTSB EQU *-2-TTABD PTTBBF1 EQU *-TTABD P RES RECBFZ BUFAR1 PTTBBF2 EQU *-TTABD P RES RECBFZ
0x3bf800…3bf994 (3, 523) Dummy {f00=0x0113, f01=0x0190, f02=» P EJECT P MMTAB1 P MMTAB2 " P MMTAB3 2 P MMTAB4 B P RORG *-MMTABL R P DATA 0 CURRENT SEGMENT BASE h " P DATA 0 SEGMENT TABLE POINTER " P DATA 0 SEGMENT BLOCK POINTER . P DATA 0 APPLICATION CONTROL BLOCK POINTER
0x3bf994…3bfb28 Dummy {f00=0x0113, f01=0x0190, f02=»G POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS * 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 J P DATA 0,0,0,0,0,0,0 A8-A14 ~ $ P DATA TTABEE-* TERMINAL DEVICES P DATA 0,0 MASTER INDEX ENTRY PTTABEE EQU * P RES STC
0x3bfb28…3bfcbc Dummy {f00=0x0113, f01=0x0190, f02=» P MMTAB4 P RORG *-MMTABL P DATA 0 CURRENT SEGMENT BASE * " P DATA 0 SEGMENT TABLE POINTER N " P DATA 0 SEGMENT BLOCK POINTER t . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABF EQU * " P DATA 0 DISPATCHER QUEUE LINK
0x3bfcbc…3bfe50 Dummy {f00=0x0113, f01=0x0190, f02=»RESS | 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA A1-A7 P DATA 0,0,0,0,0,0,0 A8-A14 @ $ P DATA TTABFE-* TERMINAL DEVICES b P DATA 0,0 MASTER INDEX ENTRY PTTABFE EQU * P RES STCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P
0x3bfe50…3bffe4 Dummy {f00=0x0113, f01=0x018e, f02=»ENT BASE | " P DATA 0 SEGMENT TABLE POINTER " P DATA 0 SEGMENT BLOCK POINTER 6 . P DATA 0 APPLICATION CONTROL BLOCK POINTER P PTTABG EQU * " P DATA 0 DISPATCHER QUEUE LINK P DATA '#G' TASK ID P DATA 49 TASK LEVEL P D
0x3bffe4…3c0178 Dummy {f00=0x0113, f01=0x0190, f02=» P DATA 0,0,0,0,0,0,0 A8-A14 $ P DATA TTABGE-* TERMINAL DEVICES & P DATA 0,0 MASTER INDEX ENTRY N PTTABGE EQU * r P RES STCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 P IFT H=1 P EJECT P MMTAB1 P MMTAB2
0x3c0178…3c030c Dummy {f00=0x0113, f01=0x0190, f02=»0 SEGMENT BLOCK POINTER . P DATA 0 APPLICATION CONTROL BLOCK POINTER P R PTTABH EQU * Z " P DATA 0 DISPATCHER QUEUE LINK n P DATA '#H' TASK ID P DATA 49 TASK LEVEL P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA
0x3c030c…3c04a0 Dummy {f00=0x0113, f01=0x0190, f02=»DEVICES x P DATA 0,0 MASTER INDEX ENTRY PTTABHE EQU * 4 P RES STCRES TASK STACK H $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 f P IFT I=1 P EJECT P MMTAB1 P MMTAB2 P MMTAB3 P MMTAB4 P RORG *-MMTABL P DATA
0x3c04a0…3c0634 (3, 524) Dummy {f00=0x0113, f01=0x0190, f02=»OCK POINTER r P PTTABI EQU * " P DATA 0 DISPATCHER QUEUE LINK 0 P DATA '#I' TASK ID V P DATA 49 TASK LEVEL p P DATA 0 PENDING POINTER P DATA /C4C0 PSW P DATA 0 DISPATCH ADDRESS 0 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AR
0x3c0634…3c07c8 Dummy {f00=0x0113, f01=0x018e, f02=» * P RES STCRES TASK STACK $ P RES RECBFZ+RECBFZ BUFAR1,BUFAR2 ( P XIF P P IFF ADM+SDM=0 PTPART1 EQU TTABD-TTABST r PTABEND EQU *+TPART1 P XIF P EJECT P* P* FDB OFFSET DEFINITIONS P* PFDBSTA EQU
0x3c07c8…3c095c Dummy {f00=0x0113, f01=0x0190, f02=» n P XIF 4 PDWTPAB EQU *-DWDM01 PARAMETER BLOCK FOR EDM INI P DATA 0,0,0,0,0,0,0 L P IFT EDM000+MMUPAG=2 h PFDBMMU EQU * P XIF P* FWT PART P DATA 0,0,0,0,0,0,0 P IFF ADM+SDM=0 P IFT MMUPAG=1 PFDBMMU E
0x3c095c…3c0af0 Dummy {f00=0x0113, f01=0x0190, f02=» P IFT SDM=1 ! P DATA 0,0,0,0,0,0,0 ! P DATA 0,0,FDBSTA,0,0 ! 2 P DATA 0,0,0,0,0 ! N P XIF ! f P* ! r P EJECT ! | P* ! P* ! P IFT MMUPAG=0 ! PSTART1 EQU 44 ! P XIF ! P IFT MMUPAG=1 ! PSTART1 EQU 62 ! P XIF !
0x3c0af0…3c0c84 Dummy {f00=0x0113, f01=0x0190, f02=»CORD NUMBER ! t & PFDBRLE EQU START1+18 RECORD LENGTH " ( PFDBENL EQU START1+20 ENLARGE FACTOR " > 4 PFDBEXC EQU START1+22 EXCLUSIVE ACCESS INDICATOR " j & PFDBSNR EQU START1+24 SECTOR NUMBER " 0 PFDBRRO EQU START1+28 RELATIVE RECORD OFFSET " ( PFDBBLF E
0x3c0c84…3c0e18 Dummy {f00=0x0113, f01=0x0190, f02=»FDBBLZ EQU START1+33 NR OF SECTORS IN BLOCK " & PFDBEAL EQU START1+34 EA LINK ROOT # 4 & PFDBCRL EQU START1+36 CRN LINK ROOT # ^ 0 PFDBKA EQU START1+38 KEY ADDRESS IN DATA FILE # 0 PFDBMIA EQU START1+40 ADDRESS OF MASTER INDEX # 2 PFDBADF EQU START1+42 ADD
0x3c0e18…3c0fac Dummy {f00=0x0113, f01=0x0190, f02=»S # , PFDBDMI EQU START1+53 RELATIVE DMTASK ID $ $ PFDBMRO EQU START1+54 MAX FDBRRO $ : 2 PFDBKEY EQU START1+56 KEY AREA FOR INDEXED ACC $ b P* $ P EJECT TIODM $ P* $ & P* CRN BUFFER OFFSET DEFINITIONS $ P* $ PCRNTID EQU 2 TASK
0x3c0fac…3c1140 Dummy {f00=0x0113, f01=0x0190, f02=»**************** $ P* * % P* DRIVER ADDRESS BLOCK * % < P* * % ` P**************************** % P* % P* % ( P DATA 0 DATA MANAGEMENT DEVICE INDEX % ( PTIODM DATA TIODM0 ACTIVATION ADD
0x3c1140…3c12d4 (3, 525) Dummy {f00=0x0114, f01=0x0190, f02=» % P ADR A14,A6 STACK BASE & P ADK A7,0 & & " P RF(NZ) TDM100 NOT READ STATUS & 8 P IFT ADM=1 & ^ & P LD A1,DWTTAB,A6 USER TTAB ADDRESS & p P LDR* A2,A8 & P ANK A2,/FF FILE CODE & P LDK A5,0 & ( P CF A14,FNDFDB GET FC ENTRY ADDRESS &
0x3c12d4…3c1468 Dummy {f00=0x0114, f01=0x018e, f02=»OMD,A6 & P RF(NN) RDST50 S-FILE ' P RF RDSTAT X,L-FILE ' , PRDST10 EQU * ' H P ANK A4,/FF ' P RF(NZ) RDSTAT L,X-FILE ' p PRDST50 EQU * ' P XIF ' P IFT ADMEDM=1 ' P CWK A6,FDBSTA ' P RF(E) RDST10 OPEN ' P LD A1,FDBOMD,A6 '
0x3c1468…3c15fc Dummy {f00=0x0114, f01=0x0190, f02=» ' P XIF ( P IFT SDM=1 ( P LDR A11,A6 FDB ADDRESS ( & P CF A14,CRNGET GET CURRENCY ( F P LC A4,CRNSTA,A2 ( j P XIF ( PRDSTAT EQU * =3 ( P IFF ADM+SDM=0 ( P EJECT ( P* =3 ( P ANK A4,/FF ( " P ST A4,ECBCW,A8 RETURN STA
0x3c15fc…3c1790 Dummy {f00=0x0114, f01=0x0190, f02=» ( PTDM100 EQU * ) P IFF ADMSDM+ADMEDM=0 ) P CWK A6,FDBSTA ) 8 P RF(E) TDM200 OPEN ) N P LD A1,FDBOMD,A6 ) h P RF(N) TDM300 L,X-FILE ) P XIF ) PTDM150 EQU * ) P IFT SDM=1 ) P ABL TIOSDM S-FILE ) P XIF ) P IFT EDM=1 ) P
0x3c1790…3c1924 Dummy {f00=0x0114, f01=0x018e, f02=»G=0 ) & P LC A1,FPB:FO,A1 FILE ORGANISATION * P XIF * 6 P IFF ADMSDM+ADMEDM=0 * B P IFT MMUPAG=1 * ^ P EL A1,FPB:FO+7,A1 * t P XIF * P IFF ADMSDM+ADMEDM=0 * P ANK A1,/FF * P SUK A1,1 * P RB(NP) TDM150 S-FILE,I-FILE * PTDM300 E
0x3c1924…3c1ab8 Dummy {f00=0x0114, f01=0x0190, f02=» * P* DMACTI * + P* DMACTD * + P********** + , P* + > " P* ACTIVATE ADM AND/OR SDM TASK + H P* + n & P* INPUT : A2 = DISPATCH ADDRESS + x P* A6 = FDB ADDRESS + P* + PDMACTI EQU * + P IFF ADM+SDM=0 + " P LC A7,FWTVOL,
0x3c1ab8…3c1c4c Dummy {f00=0x0114, f01=0x018e, f02=»AC10 CHECK NEXT FILE CODE + * P LC A7,DMTIDP-1,A3 PRIMARY TASK NUMBER , " P CF A15,FINDTT , P P RF(Z) TASHLT TTAB NOT FOUND , f P LD A1,TTB:SA,A5 , P RF(Z) DMAC50 TASK FREE , & P LC A7,DMTIDS-1,A3 SECONDARY TASK , P ANK A7,/FF , P CF A15,
0x3c1c4c…3c1de0 Dummy {f00=0x0114, f01=0x0190, f02=» P ABL TDISP - P EJECT TIODM - P* - , P* - 6 $ PDMACTD EQU * ACTIVATE DM TASK #D - @ P LDKL A5,TTABD - h P RB DMAC50 - ~ P XIF - P* - P* ABNORMAL SYSTEM ERROR - P* - PTASHLT EQU * - P LDK A1,/11 - P CF A15,HALT -
0x3c1de0…3c1f74 (3, 526) Dummy {f00=0x0114, f01=0x0190, f02=» TASK AND ACTIVATE DM TASK #D - P* . & P* . 0 $ P* INPUT: A8=DISPATCH ADDRESS . : P* A6=FDB ADDRESS . b P* . 2 PDMXACD EQU * EXIT RUNNING TASK AND ACTIVATE #D . P IFF SDM+ADM=0 . P LD A5,PRUN RUNNING TASK ID . P INH .
0x3c1f74…3c2108 Dummy {f00=0x0114, f01=0x0190, f02=»* . P* / P********** / P* DMTEND * / & P********** / 8 P* / J P* COMMIT ENTRY / T P* ENTERED BY / j P* LKM / ~ P* DATA 16 / P* / P* / PDMTEND EQU * / P IFT EDM=0 / P IFT SDM=1 / & P LDR A6,A5 SAVE USER TTAB ADDR
0x3c2108…3c229c Dummy {f00=0x0114, f01=0x0190, f02=»ADDRESS / | PDMTE10 EQU * 0 P ADK A3,2 POINTER 0 $ P CWR* A5,A3 ENTRY IN TABLE 0 > P RB(NE) DMTE10 TRY NEXT 0 ` & P SU A3,SCTTCT RELATIVE TASK NUMBER 0 P* SUK A3,2 =5 0 P SRL A3,1 0 P LDKL A14,STACK 0 P CF A14,RELPRO 0 PDMTE40 E
0x3c229c…3c2430 Dummy {f00=0x0114, f01=0x0190, f02=»SP 0 PDMTERR EQU * REQUEST ERROR 1 P LDKL A7,REQER2 1 , P RB DMTE40 RETURN 1 D P* 1 ^ P DATA 0,0,0 1 h PSTACK DATA 0 4 WORDS 1 | P* 1 P XIF 1 P IFT EDM=1 1 P LDR A6,A5 SAVE TTAB USER =1 1 2 P LDR A1,A5 GET BASE PARAMETER BLOCK
0x3c2430…3c25c4 Dummy {f00=0x0114, f01=0x0190, f02=»R A2,2,A1 ORDER WORD 1 & P ABL(NZ) LKMRQE OTHER REQUEST BUSY 2 , P LDKL A2,/100 COMMIT ROLLBACK ACTIVATION 2 F P STR A2,A1 2 v P ST A7,PABORD,A1 ORDER WORD 2 6 P ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS 2 P LDKL A7,'$E' EDM TASK ID 2 " P
0x3c25c4…3c2758 Dummy {f00=0x0114, f01=0x0190, f02=» P CF A15,QTJOB 3 P ABL TDISP 3 P XIF 3 , P EJECT 3 8 P 3 F P P*************************************************************************** 3 N P P* C O M M O N S U B R O U T I N E S F O R A D M A N D S D M * 3 P P******************
0x3c2758…3c28ec Dummy {f00=0x0114, f01=0x0190, f02=»*** 3 r $ P* SUBROUTINES NOT IN SYSTEM * 4 $ P******************************** 4 4 P* 4 P IFT ADM+SDM=0 4 f PDMACTD EQU * 4 | PFNDFDB EQU * 4 PMOV:US EQU * 4 PMOV:SU EQU * 4 PFINDTT EQU * 4 PRTNA14 EQU * 4 PSETCRO EQU * 4 P
0x3c28ec…3c2a80 Dummy {f00=0x0114, f01=0x0190, f02=»QU * 4 PTOTSIZ EQU * 5 P XIF 5 P RB TASHLT SYSGEN ERROR 5 , P* 5 L P* 5 V P* 5 ` P EJECT TIODM 5 j P IFF ADM+SDM=0 5 P 5 8 P****DESCRIPTION************************************* 5 P* 5 : P* FNDFDB WILL SEARCH TTAB AND SCTC
0x3c2a80…3c2c14 (3, 527) Dummy {f00=0x0114, f01=0x0190, f02=»A2 = FILE CODE TO SEARCH FOR 5 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED 6 $ P* 6 8 P****EXIT PARAMETERS********************************* 6 f P* 6 P* A1 = UNCHANGED 6 2 P* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND 6 6 P* A4 = TTA
0x3c2c14…3c2da8 Dummy {f00=0x0114, f01=0x0190, f02=»************************** 6 v P* 7 " P* A1-A5 7 , P* 7 > : P****************************************************** 7 H P EJECT 7 P 7 P********** 7 P* FNDFDB * 7 P********** 7 P 7 PFNDFDB EQU * 7 & P LD A3,TTB:TD,A1 LENGTH DE
0x3c2da8…3c2f3c Dummy {f00=0x0114, f01=0x0190, f02=» P ADR A4,A3 8 P CC A2,1,A4 8 P RB(NE) FND030 8 * P LDK A5,1 8 @ " P RF FND080 CODE FOUND IN TTAB 8 R P EJECT 8 x P* 8 " P* SEARCH FILE CODE IN SCTCDT 8 P* 8 PFND040 EQU * 8 P LDR A5,A5 8 ( P RF(NZ) FND060 ONLY TTAB IS SEACHE
0x3c2f3c…3c30d0 Dummy {f00=0x0114, f01=0x018e, f02=» ADR A3,A4 8 P CC A2,1,A3 9 P RB(NE) FND050 9 & P AD A4,SCTCDT 9 < P RF FND080 CODE FOUND 9 R PFND060 EQU * 9 p P LDK A2,0 NO CODE 9 PFND080 EQU * 9 P RTN A14 9 P EJECT 9 P* 9 $ P* MOVE BLOCK AND MOVE CONSTANTS 9 P* 9
0x3c30d0…3c3264 Dummy {f00=0x0114, f01=0x0190, f02=» . PMOVBAR EQU 6 BUFFER ADDRESS RECEIVING TASK : ( PMOVLEN EQU 8 NUMBER OF BYTES TO MOVE : 6 P* : b PMOVSAV EQU 10 SAVE AREA : l P : P : PMOVBLK EQU * : P DATA 0,0 : P DATA 0,0 : P DATA 0 : P* : P DATA 0 : P EJECT :
0x3c3264…3c33f8 Dummy {f00=0x0114, f01=0x0190, f02=» DATA FROM THE USER AREA (SENDING BUFFER) TO : | L P* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA ; 4 J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. ; P* ; 8 P* INPUT: A1 = ADDRESS OF SENDING BUFFER (US
0x3c33f8…3c358c Dummy {f00=0x0114, f01=0x0190, f02=» A4 = USER TTAB ADDRESS ; P* < " P* OUTPUT: A4=DESTROYED < , P* < J PMOV:US EQU * < T P LD A4,TTB:ID,A4 TASK ID < h P ST A4,MOVTIS+MOVBLK < & P LDKL A4,'#M' DESTINATION TASK ID < P ST A4,MOVTIR+MOVBLK < P RF MOVCOM < P EJECT TIO
0x3c358c…3c3720 Dummy {f00=0x0114, f01=0x0190, f02=» MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO < J P* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA = < J P* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. = P* = : P* INPUT: A1 = ADDRESS OF SENDING BUFF
0x3c3720…3c38b4 (3, 528) Dummy {f00=0x0114, f01=0x0190, f02=»* A4 = USER TTAB ADDRESS = P* > ( P* OUTPUT: A4=DESTROYED > 2 P* > P PMOV:SU EQU * > Z . P LD A4,TTB:ID,A4 TASK ID DESTINATION TASK > n P ST A4,MOVTIR+MOVBLK > & P LDKL A4,'#M' TASK ID SOURCE TASK > P ST A4,MOVTIS+MOVBLK > P EJECT
0x3c38b4…3c3a48 Dummy {f00=0x0114, f01=0x0190, f02=»R,A7 DESTINATION ADDRESS > $ P ST A3,MOVLEN,A7 LENGTH TO MOVE ? P LKM ? H P DATA 21 ? T $ P LD A7,MOVSAV,A7 SAVED REGISTER ? d P RTN A14 ? P EJECT ? P ? P********** ? P* FINDTT * ? P********** ? P ? P* ? P* FIND TTAB AD
0x3c3a48…3c3bdc Dummy {f00=0x0114, f01=0x018e, f02=» CR=0 ? r P* A7=-1 @ P* @ & PFINDTT EQU * @ 0 P LDR A7,A7 @ D & P RF(N) NFOUND ILLEGAL TASK NUMBER @ V $ P LDKL A5,TTABD ADDRESS TO TASK 0 @ PFIND10 EQU * @ P SUK A7,1 @ P RF(N) FINEND TASK FOUND @ , P ADKL A5,TTABLN POINTER TO
0x3c3bdc…3c3d70 Dummy {f00=0x0114, f01=0x0190, f02=» @ l PFINEND EQU * A P ADKL A15,4 A P LDR A5,A5 SET CR A 0 P ABR* A15 A J P XIF A P EJECT TIODM A h P* A ~ P IFF SDM+ADMCDE=0 A P* A P********** A P* ENLFAC * A P********** A P* A 2 P* GET ENLARGE FACTOR AND C
0x3c3d70…3c3f04 Dummy {f00=0x0114, f01=0x018e, f02=» A1= RC A 0 P* A4=NUMBER OF SECTORS PER BLOCK B 2 P* A3= ENLARGE IN NUMBER OF SECTORS B D & P* A2,A5,A6,A7 ARE USED B z P* B PENLFAC EQU * B P ST A13,-8,A14 SAVE A13 B , P CF A14,TOTSIZ GET TOTAL LENGTH OF FIL
0x3c3f04…3c4098 Dummy {f00=0x0114, f01=0x0190, f02=» B x P LDR A7,A1 C P RF(Z) ENLF30 C P CF A14,MPYMOD C 0 P ADK A1,0 C F P RF(NZ) SETCRO OVERFLOW C X P LD A6,FPB:EL,A12 ENLARGE C x P LDR A5,A2 C P* C P EJECT TIODM C P* C P* C PENLF30 EQU * C P LDK A2,0 C P L
0x3c4098…3c422c Dummy {f00=0x0114, f01=0x0190, f02=» A6,100 C $ P CF A14,DIVMOD NUMBER OF SECTORS D P RF(O) SETCRO OVERFLOW D 8 P ADK A1,0 D V P RF(Z) ENLF45 NO REST D h , P ADK A2,1 AT LEAST ONE BLOCK IN ENLARGE D PENLF45 EQU * D P LDK A1,0 RESET REST D , P LDR A3,A2 ENLARGE IN NUMBER OF SE
0x3c422c…3c43c0 Dummy {f00=0x0114, f01=0x0190, f02=»ARGE=0 D n 4 P SUR A3,A1 MAKE ENLARGE INTEGER NUMBER OF BLOCKS E PENLF50 EQU * E F P ADR A3,A4 ONE MORE BLOCK E Z P RF(NP) SETCRO OVERFLOW E | PENLF60 EQU * E P LDR A2,A3 E P LDK A1,0 E P CF A14,DV3RST E $ P RB(NZ) ENLF50 NOT MULTIPLE OF
0x3c43c0…3c4554 (3, 529) Dummy {f00=0x0115, f01=0x018e, f02=» E P********** F P* F < P* CONVERT ENLARGE FROM NUMBER OF SECTORS TO PERCENTAGE F $ P* F d P* F n PCONENL EQU * F x * P CF A14,TOTSIZ GET TOTAL SIZE OF FILE F P LDR A3,A1 SAVE TOTAL SIZE F P LDR A4,A2 F ( P LD A6,FDBENL,A11 ENLARGE
0x3c4554…3c46e8 Dummy {f00=0x0115, f01=0x0190, f02=» ( P RF(NP) CON400 NO NEED TO NORMALIZE G PCON200 EQU * G 0 0 P SRL A4,1 DOUBLE SHIFT DIVISOR AND DIVIDENT G D P SRL A2,1 G x P SRC A1,1 G P RF(NN) CON300 BIT NOT SET G P ANKL A1,/7FFF G P ORKL A2,/4000 SET BIT G PCON300 EQU * G P S
0x3c46e8…3c487c Dummy {f00=0x0115, f01=0x0190, f02=»VMOD ENLARGE IN PERCENT G " P ST A2,FPB:EL,A12 SAVE ENLARGE H P RTN A14 H F P EJECT TIODM H V P* H l P* H v P********** H P* TOTSIZ * H P********** H P* H $ P* CALCULATE TOTAL SIZE OF FILE H P* H $ P* INPUT : A12 = FP
0x3c487c…3c4a10 Dummy {f00=0x0115, f01=0x0190, f02=»ENT H H P* A5 = 0 I " P* A6,A7 ARE USED I ( P* I N PTOTSIZ EQU * I X P LDR A13,A12 I l $ P ADKL A13,FPB:S1 ADDRESS TO SIZE I P LDK A5,4 COUNTER I P LDK A1,0 I P LDK A2,0 I PTOTS10 EQU * I P LDR* A6,A13 G
0x3c4a10…3c4ba4 Dummy {f00=0x0115, f01=0x018e, f02=» SUK A5,1 I P RB(P) TOTS10 ADD NEXT J P XIF J 0 P EJECT J < P IFF ADM+SDM=0 J J P J ` P********** J h P* RTNA14 * J z P********** J P J P* J P* SET CONDITION AND RETURN J P* J PRTNA14 EQU * J P ADKL A14,4 J P NGR
0x3c4ba4…3c4d38 Dummy {f00=0x0115, f01=0x0190, f02=» P* SET OVERFLOW AND RETURN K P* K & PSETCRO EQU * K 0 P LDKL A1,/8000 K D P RB RTNA14 K Z P XIF K l P EJECT K x P IFT SDM=1 K P K P********** K P* COSZEN * K P********** K P K P* K D P* COSZEN=CONVERT SIZE TO NBR OF
0x3c4d38…3c4ecc Dummy {f00=0x0115, f01=0x018e, f02=»E AND ENLARGE UPADTED IN FPB K * P* A1,A2,A3,A4,A5,A6,A7,A13=USED L $ P* L R PCOSZEN EQU * L * P CF A14,CONENL CONVERT ENLARGE FACTOR L p P* L P* CONVERT SIZE L P* L P LDK A5,4 NUMBER OF VOLUMES L P LDR A13,A12 FPB ADDRESS L
0x3c4ecc…3c5060 Dummy {f00=0x0115, f01=0x0190, f02=» L l 0 P LC A6,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) M P ANK A6,/FF M < , P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 M P P RB(O) SETCRO OVERFLOW M P LDR A6,A2 M 2 P LC A7,FDBBLF,A11 BLOCK FACTOR (RECORDS/BLOCK) M P ANK A7,/FF M P CF A14,MPYMOD
0x3c5060…3c51f4 (3, 530) Dummy {f00=0x0115, f01=0x405e, f02=»0 NEXT SIZE M P RTN A14 N P XIF N $ P* N 0 P* N : P* N D P END N N@ N Z
0x3c51f4…3c5388 Dummy {f00=0x0115, f01=0x2008, f02=» O
0x3c5388…3c551c Dummy {f00=0x0115, f01=0x0190, f02=»SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2 P* OUTPUT : A2 = 3
0x3c551c…3c56b0 Dummy {f00=0x0115, f01=0x018e, f02=»QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST = 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q P RF SET2CR Q P*
0x3c56b0…3c5844 Dummy {f00=0x0115, f01=0x0190, f02=» Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECTION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION LENGTH R P* R P
0x3c5844…3c59d8 Dummy {f00=0x0115, f01=0x0190, f02=»S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S PGETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST SIGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S P EJECT FMCDEF S P
0x3c59d8…3c5b6c Dummy {f00=0x0115, f01=0x0190, f02=»UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = ADDRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P* A1,A2 = ARG
0x3c5b6c…3c5d00 Dummy {f00=0x0115, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x3c5d00…3c5e94 (3, 531) Opaque[0x194]
0x3c5e94…3c6028 # DirEnt {nam=»SDMTSK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22b8, f03=0x0000}
0x3c5e94…3c6028 IdxSect {
0x3c5e94…3c6028 f00 = 0x0115 // 0x3c5e94 @0x0
0x3c5e94…3c6028 f01 = 0x001e // 0x3c5e96 @0x2
0x3c5e94…3c6028 gno = [ // 0x3c5e98 @0x4
0x3c5e94…3c6028 [0x00]: C0x0115.0x3.0
0x3c5e94…3c6028 [0x01]: C0x0116.0x0.0
0x3c5e94…3c6028 [0x02]: C0x0116.0x1.0
0x3c5e94…3c6028 [0x03]: C0x0116.0x2.0
0x3c5e94…3c6028 [0x04]: C0x0116.0x3.0
0x3c5e94…3c6028 [0x05]: C0x011e.0x3.0
0x3c5e94…3c6028 [0x06]: C0x011f.0x1.0
0x3c5e94…3c6028 [0x07]: C0x011f.0x2.0
0x3c5e94…3c6028 [0x08]: C0x011f.0x3.0
0x3c5e94…3c6028 [0x09]: C0x0120.0x0.0
0x3c5e94…3c6028 [0x0a]: C0x0120.0x1.0
0x3c5e94…3c6028 [0x0b]: C0x0120.0x2.0
0x3c5e94…3c6028 [0x0c]: C0x0120.0x3.0
0x3c5e94…3c6028 [0x0d]: C0x0121.0x0.0
0x3c5e94…3c6028 [0x0e]: C0x0121.0x1.0
0x3c5e94…3c6028 ]
0x3c5e94…3c6028 }
0x3c6028…3c61bc Dummy {f00=0x0115, f01=0x0190, f02=» 2 P IDENT SDMTSK REL 11.0 81-05-13 870105041100 P : : P =B, REW. AND DEL. INDEXED,NO RELEASE OF KEY BLK BUF B P =B, REL 11.0 81-05-12 " P =A, CONDITION FOR CR,DE,EX P =A, REL 11.0 81-04-15 , P =9, REWRITE WITH DUP KEY DIDN'T
0x3c61bc…3c6350 Dummy {f00=0x0115, f01=0x0190, f02=».I. KEYS NOT CORRECT WRITTEN P =7, REL 11.0 81-02-26 $ 2 P =6, DELETE,REWRITE DIRECT INDEXED REFORMED D P =6, REL 11.0 81-02-25 z 0 P =5, CURRENCY NOT CORRECT WHEN START INDX P =5, REL 11.0 81-02-24 4 P =4, MOV:SU DON'T WORK W
0x3c6350…3c64e4 Dummy {f00=0x0115, f01=0x0190, f02=»1.0 81-02-06 ( P =2, INTERN ORDER START N.L WRONG P =2, REL 11.0 81-02-06 @ & P =1, REG. CRASH WHEN COMP. KEYS ` P =1, REL 11.0 81-01-26 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYS
0x3c64e4…3c6678 Dummy {f00=0x0115, f01=0x0190, f02=»******************************************** P* 4 , P* THIS MODULE IS ACTIVATED FROM TIODM. > P* n P* INPUT PARAMETERS: x P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED P* D P* THE BLOC
0x3c6678…3c680c Dummy {f00=0x0115, f01=0x018e, f02=» PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT < 8 P* THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER. P* P EJECT P* P*************** P* ENTRIES
0x3c680c…3c69a0 Dummy {f00=0x0115, f01=0x0190, f02=» ^ P ENTRY SDMERX,ORDFLP P EJECT $ P* 2 P***************** < P* EXTERNALS * V P***************** p P* P* P P* DEFINED IN TDISP , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK P P* DEFINED IN TOS
0x3c69a0…3c6b34 (3, 532) Dummy {f00=0x0116, f01=0x0190, f02=»4 P P* DEFINED IN FMTASK P EXTRN FWTFNR . P EXTRN FPB:EL D P Z P* DEFINED IN TIODM b & P EXTRN FDBADF,FDBAI1,FDBBLZ,FDBDBR | & P EXTRN FDBECB,FDBENL,FDBKA,FDBKEY & P EXTRN FDBLRN,FDBMRO,FDBOMD,FDBRLE P EXTRN FDBRRO,
0x3c6b34…3c6cc8 Dummy {f00=0x0116, f01=0x0190, f02=»TSB A14 STACK BASE 4 P EXTRN DMXACD EXIT RUNNING TASK AND ACTIVATE #D P EXTRN SDMSTS STACK START R P EXTRN SDMBF1,SDMBF2 t P EJECT P P* DEFINED IN TIOSDM & P EXTRN SDMOOR,SDMLIM,SDMOEX,SDMOOS P EXTRN SDMOIP,SDMIOP P
0x3c6cc8…3c6e5c Dummy {f00=0x0116, f01=0x0190, f02=» P EXTRN RELPRO & P EXTRN FMIORD,FMIOWR,FMIORF,FMIOEX P EXTRN FRMFIL D P EXTRN RLBLKB,CHKRCD Z P EXTRN GTLGRN v P EXTRN CRNUPD,CRNCIF P EXTRN CHKKEY P EXTRN RDNXTR 6 P EXTRN RECECB MOVE RECORD NUMBER TO ECBCW1,ECBCW2
0x3c6e5c…3c6ff0 Dummy {f00=0x0116, f01=0x0190, f02=» P EXTRN SDMRLB P P* DEFINED IN DMOPCL " P EXTRN SDMOPN,SDMCLO,SDMRFP > P EXTRN OPEFPB b P x P* DEFINED IN DSUMOD P EXTRN DSUMOD P EJECT P* P* P* P************************ P* CONDITIO
0x3c6ff0…3c7184 Dummy {f00=0x0116, f01=0x0190, f02=»A EQU 1 PY:B EQU 1 P* " 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH , , P* INDXAC EQU 1 = INDEX ACCESS INCLUDED f 6 P* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED PINDXAC EQU 00001 0 PINSLAS EQU Y:A INSERT SAME KEY L
0x3c7184…3c7318 Dummy {f00=0x0116, f01=0x018e, f02=»:C=0 v P* PCRDEEX EQU 00000 =A 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* 2 P* KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T , P* AL
0x3c7318…3c74ac Dummy {f00=0x0116, f01=0x0190, f02=» P*************** P . PFMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH $ P EJECT V P* d P************************ n P* DATA DEFINITIONS * P************************ P* 2 P* THE FOLLOWING INTERNAL ORDER CODES ARE THE
0x3c74ac…3c7640 Dummy {f00=0x0116, f01=0x0190, f02=»NGE A7 j 6 P* 0<X<=7 NOT CHANGED 0 6 P* X>7 ODD X=(X+17)/2 - P 6 P* X>7 EVEN X=(X-8)/2 - P* PORDERS EQU * P POROPEN EQU *-ORDERS P D
0x3c7640…3c77d4 (3, 533) Dummy {f00=0x0116, f01=0x0190, f02=»SQ00 READ SEQUENTIAL P POWRRM0 EQU *-ORDERS $ P DATA WRRM00 WRITE RANDOM @ P b POWRSQ0 EQU *-ORDERS j " P DATA WRSQ00 WRITE SEQUENTIAL P POREWR0 EQU *-ORDERS 6 P DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT)
0x3c77d4…3c7968 Dummy {f00=0x0116, f01=0x0190, f02=» DATA STRTDI START DIRECT (EQUAL,GREATER,NOT LESS) P : POEXTND EQU *-ORDERS B P DATA EXTEND EXTEND FILE ^ P ~ POCLOSE EQU *-ORDERS P DATA SDMCLO CLOSE P PORDFLP EQU *-ORDERS & P DATA SDMRFP READ FILE PARAMETERS
0x3c7968…3c7afc Dummy {f00=0x0116, f01=0x0190, f02=»NDOM INDEXED | P PORDSQX EQU *-ORDERS ( P DATA RDSQIX READ SEQUENTIAL INDEXED 8 P d POWRRMX EQU *-ORDERS l & P DATA WRRMIX WRITE RANDOM INDEXED P POWRSQX EQU *-ORDERS 8 P DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED
0x3c7afc…3c7c90 Dummy {f00=0x0116, f01=0x0190, f02=» DATA DELTIX DELETE INDEXED (DIRECT,CURRENT) P 4 POSTRTX EQU *-ORDERS < 8 P DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) X P P XIF P EJECT P* P* ORDER INDEX TABLE P* PBYTE FORM 8,8 P PORDT
0x3c7c90…3c7e24 Dummy {f00=0x0116, f01=0x018e, f02=»EWR0,OREWR0 REWRITE NOT INDEXED * P BYTE ODELT0,ODELT0 DELETE NOT INDEXED ( 4 P BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM V $ P BYTE OSTRTD,OSTRTD START DIRECT * P BYTE OSTRTD,OCLOSE START DIRECT,CLOSE PORDTEX EQU *-ORDTAB P IFT IND
0x3c7e24…3c7fb8 Dummy {f00=0x0116, f01=0x0190, f02=» < P BYTE OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED 6 P BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED D > P BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED ~ : P BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED & P BYTE OSTR
0x3c7fb8…3c814c Dummy {f00=0x0116, f01=0x018e, f02=» P* SDMTSK * P************** P* 0 PSDMTSK EQU * : P* N P* SET UP A14 STACK X P* t P LD A14,PRUN ~ P ADKL A14,DMTTSB STACK BASE P LDR A11,A1 FDB ADDR P LDR A8,A11 $ P ADKL A8,FDBECB FDB ECB ADDRESS
0x3c814c…3c82e0 Dummy {f00=0x0116, f01=0x0190, f02=» 0 P SUKL A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE P RF(N) DMT100 OPEN ORDER 8 P LDK A7,2 MASK BIT X P TM A7,A5 r " P RF(Z) DMT010 ORDER CODE EVEN " P ADK A5,50 CORRECT ORDER INDEX PDMT010 EQU * " P SRL A5,2 INDEX IN ORDER TABLE $
0x3c82e0…3c8474 (3, 534) Dummy {f00=0x0116, f01=0x0190, f02=»* ( P* READ RANDOM INDEXED,START INDEXED 2 P* DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED 6 2 P* OPEN AND READ FILE PARAMETERS DON'T NEED ANY l P* BLOCK BUFFER YET & P RF(N) DMT090 NO BLOCK BUFFER YET PDMT015 EQU * =8 P LD A4,FDB
0x3c8474…3c8608 Dummy {f00=0x0116, f01=0x0190, f02=» RANDOM INDEXED,READ SEQUENTIAL INDEXED . P* DELETE INDEXED,START AND READ SEQUENTIAL 0 P* b $ P CF A14,FNDBLB FIND BLOCK BUFFER l P IFT CRDEEX=0 P ABL(N) DMTERR I/O ERROR , P ABL(P) SDMERX EOF WHEN READ SEQUENTIAL PEXTEND EQU *
0x3c8608…3c879c Dummy {f00=0x0116, f01=0x0190, f02=» $ P* TEST IF EXTEND SHOULD BE DONE P* 0 P LD A7,DWTOR,A11 : P ANK A7,/3F ORDER INDEX R P CWK A7,OEXTND r P RF(E) DMT030 ORDER EXTEND P SUK A7,OWRSQ0 & P RF(NZ) DMTER NOT WRITE SEQUENTIAL PDMT030 EQU * P LDR A2,A1
0x3c879c…3c8930 Dummy {f00=0x0116, f01=0x018e, f02=»ECLARED p P ADK A7,0 P RF(NZ) DMT090 ORDER EXTEND " , P LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND F P SC A1,DWTOR+1,A11 v ( P CF A14,SDMRLB RELEASE BLOCK BUFFER " P LDKL A8,SDMTSK DISPATCH ENTRY P LDR A6,A11 FDB ADDRESS $ P ABL D
0x3c8930…3c8ac4 Dummy {f00=0x0116, f01=0x0190, f02=» P LD A7,DWTOR,A11 $ P LDR A2,A7 OPTION AND ORDER CODE & P ANK A7,/3F A7=INTERNAL ORDER CODE H PDMT100 EQU * r @ P LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM. P P " P* (A4= BLOCK BUFFER ADDRESS ) ( P* (A5 =
0x3c8ac4…3c8c58 Dummy {f00=0x0116, f01=0x0190, f02=»S ) z P* (A9 = USER ECB ADDRESS ) P 0 P 8 " P ABI ORDERS,A7 SDMTSK FUNCTION @ P EJECT f 4 P*********************************************** t 4 P* * 4 P* R E A D S E Q U E N T I A L
0x3c8c58…3c8dec Dummy {f00=0x0116, f01=0x018e, f02=» * 4 P*********************************************** 4 P l PRDSQ00 EQU * SEQUENTIAL READ t PRDRM00 EQU * RANDOM READ PSTRTDI EQU * START DIRECT P* P* CHECK STATUS P* P C
0x3c8dec…3c8f80 Dummy {f00=0x0116, f01=0x0190, f02=» & P ABL(Z) DMERND READ RANDOM,NO DATA P SUK A7,OSTRTD-ORDRM0 2 " P RF(NZ) DMT250 READ SEQUENTIAL P P* v P* START DIRECT P* P LC A3,DWTOPT,A11 P ANK A3,7 OPTION " P RF(NZ) DMT250 OPTION DEFINED P RF DMT230 NO OP
0x3c8f80…3c9114 (3, 535) Dummy {f00=0x0116, f01=0x0190, f02=»DIRECT | P LD A3,ECBRL,A9 REQ LGTH $ P LD A2,FDBRLE,A11 RECORD LENGTH . P CWR A3,A2 V P RF(NG) DMT220 h P LDR A3,A2 MAX LENGTH ~ PDMT220 EQU * ( P ST A3,ECBEL,A9 SET EFFECTIVE LENGTH P* P* MOVE THE RECORD P*
0x3c9114…3c92a8 Dummy {f00=0x0116, f01=0x0190, f02=»4,MOVFW MOVE RECORD TO USER P XIF $ P IFT MMUPAG=1 0 " P LD A4,DWTTAB,A11 TTAB ADDRESS F * P LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 l & P ANK A7,1 SYSTEM,USER MODE BIT =4 P RF(NZ) DMT225 USER MODE =4 P CF A14,MOVFW MOVE RECORD =4
0x3c92a8…3c943c Dummy {f00=0x0116, f01=0x0190, f02=» EXCLUSIVE ACCESS BIT z P* PDMT230 EQU * ( P ABL DMT400 PUT CRN AND EA < P EJECT ^ P* l 6 P* STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR v P* START DIRECT WITH OPTION P* $ PDMT250 EQU * NO DATA AT SEQ READ P*
0x3c943c…3c95d0 Dummy {f00=0x0116, f01=0x018e, f02=» PDMT260 EQU * ! P ST A1,ECBCW,A9 ! P ST A2,ECBCW+2,A9 ! 4 P* ! N : P* ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED ! X P* ! PDMT280 EQU * ! P* ! P* CHECK EA ! P* ! P LD A1,ECBCW,A9 ! P LD A2,ECBCW+2,A9 RE
0x3c95d0…3c9764 Dummy {f00=0x0116, f01=0x0190, f02=» ! P CWK A4,OSTRTX " P RB(E) DMT230 START INDEXED " P XIF " B P EJECT " N P CF A14,CALSNO PREP IO " " P ABL(NZ) DMTERR OUT OF MEDIUM " z P LC A3,FDBDBR,A11 DELAY " P ANK A3,/10 " P RF(NZ) DMT290 KEEP BUFFER " P* " P* RELE
0x3c9764…3c98f8 Dummy {f00=0x0116, f01=0x0190, f02=» " P RB DMT020 NEXT RECORD # P IFT CRDEEX=1 # & P EJECT # < " P***************************** # J " P* E X T E N D F I L E * # p " P***************************** # P # PEXTEND EQU * # ( P LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS # 4 P LDK
0x3c98f8…3c9a8c Dummy {f00=0x0116, f01=0x0190, f02=»NGTH # j P ST A2,ECBRL,A8 $ ( P CF A14,FMIORF READ FILE PARAMETERS $ $ $ P LD A1,FDBENL,A11 ENLARGE FACTOR $ P $ P ST A1,FPB:EL,A3 FILL IN ENLARGE $ x P CF A14,FMIOEX EXTEND FILE $ , P ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS $ P RB(NZ) DMTER ERROR $
0x3c9a8c…3c9c20 Dummy {f00=0x0116, f01=0x0190, f02=»,DWTOR+1,A11 $ * P ABL DMT020 TRY WRITE SEQUENTIAL AGAIN % P XIF % B P EJECT % N 4 P*********************************************** % 4 P* * % 4 P* D E L E T E I N D E X E D * % 4 P*
0x3c9c20…3c9db4 (3, 536) Dummy {f00=0x011e, f01=0x0190, f02=»******************* % t P & PDELTIX EQU * DELETE INDEXED & $ PREWRIX EQU * REWRITE INDEXED & H P IFT INDXAC=1 & l P ANKL A2,/100 & P RF(Z) DELT00 NOT DIRECT & , P CF A14,FNDKYP SET PARAM AND THEN FNDKEY & " P ABL(NZ) DMIER2 KEY NOT FOUND &
0x3c9db4…3c9f48 Dummy {f00=0x011e, f01=0x0190, f02=» * P LD A1,DWTOR,A11 INTERN ORDER INDEX =6 ' 0 P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 ' 2 8 P ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6 ' f . P ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 ' P LD A1,ECBCW,A9 ' P LD A2,ECBCW+2,A9 ' P C
0x3c9f48…3ca0dc Dummy {f00=0x011e, f01=0x0190, f02=»ROR ' ~ P LDR A8,A11 =6 ( & P ADKL A8,FDBECB SDM ECB ADDRESS =6 ( $ & P ABL DMT015 GET BLOCK BUFFER =6 =8 ( N P XIF ( x P EJECT ( 4 P*********************************************** ( 4 P* * ( 4 P* W
0x3ca0dc…3ca270 Dummy {f00=0x011e, f01=0x0190, f02=»I N D E X E D * ( r 4 P* D E L E T E N O T I N D E X E D * ) 4 P* W R I T E R A N D O M I N D E X E D * ) R 4 P* * ) 4 P*********************************************** ) P ) " PWRSQ00
0x3ca270…3ca404 Dummy {f00=0x011e, f01=0x0190, f02=»EXED ) t $ PDELT00 EQU * DELETE NOT INDEXED * P* * 4 & P* TEST IF OPENED OUTPUT SEQUENTIAL * > P* * h 0 P CF A14,CHKSTS A10=POINTER TO RECORD STATUS * r P LC A1,FDBOMD,A11 * P ANK A1,/FF * P CWK A1,SDMOOS * 0 P RF(E) DMS110 OUTPUT SEQ.,DON'
0x3ca404…3ca598 Dummy {f00=0x011e, f01=0x018e, f02=»T USED * r P EJECT + P* + P* RECORD STATUS=USED + & P* + B P IFT INDXAC=1 + L P LDR A4,A7 + b P SUK A4,OWRRMX + t & P RF(Z) DMS100 WRITE RANDOM INDEXED + P XIF + P LDR A4,A7 + P SUK A4,OWRRM0 + P RF(Z) DMS100 WRITE RANDOM +
0x3ca598…3ca72c Dummy {f00=0x011e, f01=0x018e, f02=» P* , P* RECORD STATUS=NOT USED , P* , . PDMS110 EQU * , 8 P IFT INDXAC=1 , L P LDR A4,A7 , b P SUK A4,OREWRX , t " P RF(Z) DMERND REWRITE INDEXED , P SUK A4,ODELTX-OREWRX , P RF(Z) DMERND DELETE INDEXED , P XIF , P LDR A4,A7
0x3ca72c…3ca8c0 Dummy {f00=0x011e, f01=0x0190, f02=» , n PDMS120 EQU * - P CF A14,EATEST - P RF(N) DMEAER EA OTHER TASK - 2 P EJECT - V P LDK A3,0 STATUS FREE - d P IFT INDXAC=1 - P LDR A2,A7 - P SUK A2,OWRRMX - & P RF(E) CHK010 WRITE RANDOM INDEXED - P SUK A2,OREWRX-OWRRMX - " P
0x3ca8c0…3caa54 (3, 537) Dummy {f00=0x011f, f01=0x0190, f02=» - z P RF(E) CHK010 DELETE INDEXED . P XIF . , P LDR A2,A7 . 8 P SUK A2,ODELT0 . J $ P RF(E) DMT350 DELETE NOT INDEXED . ` P IFT INDXAC=0 . P RF DMT320 . P XIF . P IFT INDXAC=1 . P RF DMT310 . P EJECT . PCHK010 EQU * . L P*
0x3caa54…3cabe8 Dummy {f00=0x011f, f01=0x0190, f02=»* . P LDK A4,8 MAX 4 INDEX / PCHK040 EQU * / ( P SUK A4,2 / < $ P RF(N) CHK100 ALL INDEX CHECKED / N P LDR A2,A11 FDB ADD / v P ADR A2,A4 / ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE / P RB(Z) CHK040 NO INDEX / P LD A2,DWTOR,A11 / P A
0x3cabe8…3cad7c Dummy {f00=0x011f, f01=0x0190, f02=»CHECK REWRITE / P LC A2,DWTOPT,A11 OPTION 0 P ANK A2,/4 0 6 * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT 0 H P EJECT 0 v P* =3 0 $ P* A6=FDB ADDRESS INDEX FILE =3 0 P* =3 0 PCHK050 EQU * 0 & P LD A9,DWTECB,A11 GET USER ECB =9 0 P I
0x3cad7c…3caf10 Dummy {f00=0x011f, f01=0x0190, f02=»NT 0 d & P ADR A2,A6 GET KEY AREA POINTER =3 1 & P LD A3,FDBRLE,A6 RECORD LENGTH =3 1 4 P SUK A3,6 KEY LENGTH 1 ^ P LDR A9,A4 SAVE A4 =1 1 z & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 1 , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA 1 P LDR A4,A9 RESTORE A4
0x3caf10…3cb0a4 Dummy {f00=0x011f, f01=0x0190, f02=»USER BUFFER ADDRESS 1 & P LD A9,FDBKA,A11 KEY START ADDRESS 2 P ADR A2,A9 2 F P XIF 2 X P IFT INDXAC=1 2 d P EJECT 2 z P LDR A1,A2 ENTRY KEY ADDRESS 2 P AD A9,FDBRRO,A11 2 P ADR A9,A5 KEY IN FILE 2 P LDK A7,0 2 " P LD A6,FDBRLE,A6 R
0x3cb0a4…3cb238 Dummy {f00=0x011f, f01=0x0190, f02=»NEXT 2 n P RF DMERPR PROTECTED 3 P* =3 3 ( P* END OF CHECK KEY LOOP =3 3 8 P* =3 3 PCHK100 EQU * 3 l P LD A7,DWTOR,A11 3 P ANK A7,/3F ORDER INDEX 3 P XIF 3 P EJECT 3 P* 3 P* MOVE RECORD 3 P* 3 PDMT310 EQU
0x3cb238…3cb3cc Dummy {f00=0x011f, f01=0x0190, f02=» 3 r P* 4 P LDK A4,8 4 PIXINS3 EQU * 4 $ P LDR A3,A11 FDB DATA 4 8 P ADR A3,A4 4 T P LD A2,FDBADF,A3 FDB INDEX 4 f P RF(Z) IXINS4 NO INDEX 4 P LD A1,FDBKA,A2 KEY ADDR 4 P AD A1,FDBRRO,A11 REC OFFS 4 ( P ADR A1,A5 BUFFERADDR GIVES KEY
0x3cb3cc…3cb560 Dummy {f00=0x011f, f01=0x0190, f02=»A 4 t PIXINS4 EQU * 5 P SUK A4,2 5 P RB(NZ) IXINS3 MORE INDEXS 5 0 P ABL DMXDEL DELETE INDEXED 5 R P XIF 5 t P EJECT 5 P******************** 5 P* * 5 P* E R R O R * 5 P* * 5 P**********
0x3cb560…3cb6f4 (3, 538) Dummy {f00=0x011f, f01=0x0190, f02=»F DMERR 5 * PDMEAER EQU * RELEASE EA FOR ALL FILES 6 " P LC A3,FDBTNR,A11 USER TASK ID 6 > P ANK A3,/FF 6 d " P CF A14,RELPRO RELEASE PROTECT 6 x P LDKL A1,PROERR PROTECT ERR 6 PDMERR EQU * 6 P RF DMTERR 6 P EJECT 6 P* 6 * P* MOVE R
0x3cb6f4…3cb888 Dummy {f00=0x011f, f01=0x0190, f02=»ENGTH 6 v P LD A2,FDBRRO,A11 7 P ADR A2,A5 TO ADDRESS 7 ( P LD A1,ECBBA,A9 FROM ADDRESS 7 F P IFT MMUPAG=0 7 j P CF A14,MOVFW 7 P XIF 7 P IFT MMUPAG=1 7 & P LD A4,DWTTAB,A11 GET TTAB ADDRESS 7 8 P CF A14,MOV:US MOVE RECORD FROM USER T
0x3cb888…3cba1c Dummy {f00=0x011f, f01=0x018e, f02=» A3,A10 7 P LD A3,FDBDBR,A11 8 P RF(NN) DMT390 NO DELAY 8 * P* 8 J P* DELAY 8 T P* 8 d P LDKL A2,/1000 8 n " P ORS A2,FDBDBR,A11 KEEP BUFFER 8 P RF DMT400 8 P* 8 P* WRITE BLOCK TO DISC 8 P* 8 PDMT390 EQU * 8 P CF
0x3cba1c…3cbbb0 Dummy {f00=0x011f, f01=0x0190, f02=» & P CF A14,CRNGET GET CURRENCY BUFFER 9 P LDR A10,A2 BUFFER ADDR 9 . P LD A1,ECBCW,A9 9 N P LD A2,ECBCW+2,A9 LOG REC NR 9 f P LD A7,DWTOR,A11 9 P ANK A7,/3F ORDER INDEX 9 P LDR A4,A7 9 P SUK A4,OWRRM0 9 P RF(Z) DMT450 WRITE RANDOM 9
0x3cbbb0…3cbd44 Dummy {f00=0x011f, f01=0x0190, f02=» 9 n P IFT INDXAC=1 : P SUK A4,OREWRX-OREWR0 : " P RF(Z) DMT450 REWRITE INDEXED : < P ADK A4,OREWRX-OWRRMX : b & P RF(Z) DMT440 WRITE RANDOM INDEXED : P SUK A4,OSTRTX-OWRRMX : P RF(Z) DMT410 START INDEXED : P XIF : P LDR A4,A7 ORDER
0x3cbd44…3cbed8 Dummy {f00=0x011f, f01=0x0190, f02=»R : l P* ; P* LRN=LRN-1 ; P* ; ( PDMT410 EQU * ; 2 P LDR A3,A1 ; F P LDR A4,A2 ; X P SUK A4,1 ; j P RF(NN) DMT420 ; | P ANKL A4,/7FFF ; P SUK A3,1 ; P* ; $ P* SET NEW CURRENT RECORD NUMBER ; P* ; PDMT420 EQU * ; "
0x3cbed8…3cc06c Dummy {f00=0x011f, f01=0x018e, f02=» P* < PDMT430 EQU * < P ST A1,CRNCDF,A10 < " & P ST A2,CRNCDF+2,A10 CRN DATA FILE < < P RF DMT450 < f P < x P* < P* UPDATE LRN < P* < PDMT440 EQU * < P SC A1,FDBLRN,A11 < P ST A2,FDBLRN+1,A11 < P EJECT < PDMT450
0x3cc06c…3cc200 Dummy {f00=0x011f, f01=0x018e, f02=» & P RF(E) DMT460 OPEN INPUT PROTECTED = P CWK A4,SDMIOP = . 2 P RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED = D P* = z " P* CHECK IF EA IS SET ALREADY = P* = PDMT460 EQU * = P CF A14,EATEST CHECK EA = " P RF(NZ) DMT470 EA ALREADY SET =
0x3cc200…3cc394 (3, 539) Dummy {f00=0x011f, f01=0x0190, f02=» = P LDK A4,OWRRMX > P CWR A7,A4 > ( P ABL(E) DMINS2 WRITE RANDOM INDEXED > 0 P XIF > P EJECT > h , P*************************************** > v , P* * > , P* E X I T D M T A S K * > , P*
0x3cc394…3cc528 Dummy {f00=0x011f, f01=0x0190, f02=»A4,FDBDBR,A11 > P ANK A4,/10 ? P RF(NZ) SDMERX KEEP BUFFER ? * ( P CF A14,SDMRLB RELEASE BLOCK BUFFER ? L PSDMERX EQU * ? x ( P LD A6,FDBADF,A11 GET FDB DATA FILE ? P INH ? P* ? P* A1 = RET CODE ? P* A6 = DWT ADDR ? P* ?
0x3cc528…3cc6bc Dummy {f00=0x011f, f01=0x0190, f02=»************** ? n 4 P* * @ 4 P* R E A D R A N D O M I N D E X E D * @ N 4 P* S T A R T I N D E X E D * @ 4 P* * @ 4 P******************
0x3cc6bc…3cc850 Dummy {f00=0x011f, f01=0x0190, f02=»ET PARAM AND THEN FNDKEY @ P* A , P* ENTRY ALSO FOR READ SEQUENTIAL INDEXED A * P* A Z . PDMR100 EQU * FROM READ SEQUENTIAL INDEXED A d P LD A9,DWTECB,A11 A P LD A2,DWTOR,A11 A P ANK A2,/3F ORDER A P SUK A2,OSTRTX A P RF(NZ) DMR110 N
0x3cc850…3cc9e4 Dummy {f00=0x011f, f01=0x0190, f02=» EQU * A P SUK A1,1 B P RF(Z) DMIER4 NOT OPERABLE B P ADK A1,1 B B P RF(NZ) DMIER1 KEY NOT FOUND B T , P CF A14,RECECB MOVE RECORD NUMBER TO ECB B x P EJECT B P* B P* SET CRN B P* B $ P LDR A13,A11 SAVE FDB INDEX FILE B $ P L
0x3cc9e4…3ccb78 Dummy {f00=0x011f, f01=0x0190, f02=» DATA FILE B & P CF A14,CRNGET GET CRN BUFFER ADDR C P LDR A10,A2 CRN BUFFER ADDR C < P LDR A11,A13 FDB INDEX FILE C ` ( P CF A14,GTLGRN GET INDE X LOG REC NO C P LDK A7,ORDRM0 RANDOM READ C P SUK A5,OSTRTX C P RF(NE) DMR120 INDEXED READ C
0x3ccb78…3ccd0c Dummy {f00=0x011f, f01=0x0190, f02=»R120 EQU * C P SC A1,CRNCIF+1,A10 D & P ST A2,CRNCIF+2,A10 CRN INDEX FILE D . P LD A2,ECBCW,A9 REC NR DATA D X P ST A2,CRNCDF,A10 D | P LD A2,ECBCW+2,A9 D P ST A2,CRNCDF+2,A10 D P LC A2,FWTFNR,A11 FILE NR D P SC A2,CRNCIF,A10 D P
0x3ccd0c…3ccea0 Dummy {f00=0x011f, f01=0x0190, f02=» P ABL DMT280 E P EJECT E : P***************************************************** E & : P* * E d : P* R E A D S E Q U E N T I A L I N D E X E D * E : P*
0x3ccea0…3cd034 (3, 540) Dummy {f00=0x0120, f01=0x0190, f02=» LD A1,FDBRRO,A11 RECORD OFFSET E P LDR A4,A5 BUFFER ADDRESS F ( P SUKL A4,BUFSTA F J PDMI100 EQU * F b & P CF A14,CHKRCD CHECK RECORD STATUS F v P RF(E) DMI130 USED F P LD A3,FDBMRO,A11 F * P ST A3,FDBRRO,A11 LAST RECORD IN BLOCK F P EJECT
0x3cd034…3cd1c8 Dummy {f00=0x0120, f01=0x0190, f02=»T EOF F P RF(G) DMIER6 EOF G P CW A2,FDBLRN+1,A11 G ( P RF(NL) DMIER6 END OF FILE G D PDMI120 EQU * G f ( P CF A14,RDNXTR GET NEXT INDEX RECORD G z P RB(NZ) DMI100 RECORD FOUND G P RF DMIER2 ERROR G P EJECT G PDMI130 EQU * G P*
0x3cd1c8…3cd35c Dummy {f00=0x0120, f01=0x0190, f02=» NEXT RECORD HAS THE SAME KEY G P* H & $ P LD A1,FDBRRO,A11 RECORD OFFSET H 0 P ADKL A1,BUFSTA H X P ADR A1,A4 REC ADDR H p P LD A3,FDBRLE,A11 REC LENGTH H P SUK A3,6 KEY LENGTH H P ADR A1,A3 H ( P CC A3,2,A1 DUPLICATE KEY CHARACTER H $
0x3cd35c…3cd4f0 Dummy {f00=0x0120, f01=0x0190, f02=»1,0 MARK FOUND H . P ABL DMR100 CONT AS FOR INDEXED RAND READ I P EJECT I H P******************** I V P* * I r P* E R R O R * I P* * I P******************** I P I ( PDMIER1 LDKL A1,KEYERR KEY NOT
0x3cd4f0…3cd684 Dummy {f00=0x0120, f01=0x018e, f02=» ABL(Z) SDMERX NO BUFFER I P ABL DMTERR ERROR AND BUFFER J PDMIER3 EQU * J D P ANK A1,/27 J X " P RB(NZ) DMIERR BIT 10,13,14,15 J l " P LDKL A1,EOMERR GRAVE ERR ALSO J P RB DMIERR J PDMIER4 EQU * J P LDK A1,1 NOT OPERABLE J P RB DMIERR J
0x3cd684…3cd818 Dummy {f00=0x0120, f01=0x0190, f02=» P EJECT K : P***************************************************** K : P* * K P : P* W R I T E R A N D O M I N D E X E D (P2) * K : P* D E L E T E I N D E X E D * K :
0x3cd818…3cd9ac Dummy {f00=0x0120, f01=0x0190, f02=»INS2 EQU * WRITE RANDOM INDEXED PART 2 K PDMXDEL EQU * DELETE INDEXED L . P LC A4,FDBDBR,A11 L R P ANK A4,/10 L l P RF(NZ) DXI010 KEEP BUFFER L ( P CF A14,SDMRLB RELEASE BLOCK BUFFER L PDXI010 EQU * L P LDK A5,10 LOOPER L PDXI020 EQU *
0x3cd9ac…3cdb40 Dummy {f00=0x0120, f01=0x018e, f02=»B DATA L P ADR A1,A5 M P LD A1,FDBADF,A1 FDB INDEX M P RB(Z) DXI020 NO INDEX M B P LD A2,DWTOR,A11 ORDER M ` P ST A2,DWTOR,A1 M ~ $ P LD A2,DWTECB,A11 USER ECB ADDR M P ST A2,DWTECB,A1 M " P ST A5,FDBKA,A11 SAVE COUNTER M & P LDR A11,A1
0x3cdb40…3cdcd4 (3, 541) Dummy {f00=0x0120, f01=0x0190, f02=» M P* N * P* RETURN FROM UPDATING OF ONE INDEX N P* N @ PDMTAR5 EQU * N J , P LD A11,FDBADF,A11 FDB ADDRESS DATA FILE N ^ , P LD A5,FDBKA,A11 GET COUNTER OF INDEXES N P RB DXI020 TAKE NEXT INDEX N P* N 0 P* END IF WRITE RANDOM INDEXED
0x3cdcd4…3cde68 Dummy {f00=0x0120, f01=0x0190, f02=» ABL(E) SDMERX READY N P ABL DMT020 RESTART SDMTSK O P EJECT O > : P***************************************************** O L : P* * O : P* W R I T E R A N D O M I N D E X E D * O : P*
0x3cde68…3cdffc Dummy {f00=0x0120, f01=0x0190, f02=»*************************************** O P P 0 & PDMINIX EQU * WRITE RANDOM INDEXED P 8 P IFT MMUPAG=0 P b P* P x P* GET KEY IN USER BUFFER P P* P , P LD A9,FDBADF,A11 FDB ADDRESS DATA FILE P & P LD A9,DWTECB,A9 USER ECB ADDRESS P P
0x3cdffc…3ce190 Dummy {f00=0x0120, f01=0x018e, f02=» DELETE INDEX RECORD P P LDR A9,A11 Q P ADKL A9,FDBKEY KEY ADDR Q 0 PINS010 EQU * Q P P LDR A12,A9 Q d $ P LD A10,FDBRLE,A11 RECORD LENGTH Q x P SUKL A10,6 KEY LENGTH Q P LDR A8,A14 Q 0 P ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS Q $ P C
0x3ce190…3ce324 Dummy {f00=0x0120, f01=0x0190, f02=» & P LD A9,DWTECB,A11 USER ECB ADDRESS R P LD A2,DWTOR,A11 ORDER CODE R . P ANK A2,/3F R R P SUK A2,ODELTX R f & P ABL(E) DEL000 DELETE INDEX RECORD R | P EJECT R P* R ( P* SET RC BIT 6 TO USER IF NEXT KEY R " P* IS SAME IN REQUESTED INDEX
0x3ce324…3ce4b8 Dummy {f00=0x0120, f01=0x0190, f02=»ER5 FIRST INDEX R P XIF S P IFT INDXAC=1 S & " P LDKL A1,NXTKYS NEXT KEY SAME S < $ P ORS A1,ECBRC,A9 SET RETURN CODE S b P IFT INSLAS=1 S P EJECT S P* S P* INSERT SAME KEY LAST S P* S $ P LD A1,FDBRRO,A11 RECORD OFFSET S
0x3ce4b8…3ce64c Dummy {f00=0x0120, f01=0x0190, f02=» S & P CF A14,CHKRCD CHECK RECORD STATUS T P RF(E) INS150 USED T 2 P LD A3,FDBMRO,A11 T L P ST A3,FDBRRO,A11 T f * P RB INS080 GET FIRST RE C IN NXT SECT T PINS150 EQU * T ( P LC A6,-4,A1 DUPLICATE KEY CHARACTER T P CWR A6,A10 CHECK KEY LENG
0x3ce64c…3ce7e0 Dummy {f00=0x0120, f01=0x0190, f02=»XT SAME T P LD A1,FDBRRO,A11 U P CW A1,FDBMRO,A11 U * & P RF(NE) INS160 SECT WRITTEN LATER U D P* U n P* WRITE BLOCK U x P* U P CF A14,FMIOWR U P ABL(NZ) DMTERR U P* U P* GET NEXT RECORD U P* U PINS160 EQU * U
0x3ce7e0…3ce974 (3, 542) Dummy {f00=0x0120, f01=0x0190, f02=» EJECT U PINS180 EQU * V P* V " ( P* CREATE AN INDEX RECORD IN AREA 1 V , P* V X P LDR A1,A12 FROM ADDR V b P LDR A2,A14 V P ADKL A2,SDMBF1 TO ADDRESS V P LDR A3,A10 KEY LENGTH V P CF A14,MOVFW MOVE KEY V P SCR A3,A2 DUMMY V
0x3ce974…3ceb08 Dummy {f00=0x0120, f01=0x0190, f02=» ECB ADDRESS V z $ P ADKL A1,ECBCW+1 SOURCE POINTER W * P LDK A3,3 NUMBER OF CHARACTERS TO MOVE W < P CF A14,MOVFW W j P LDK A1,/FF USED W P SCR A1,A2 STATUS CHAR W $ P CF A14,GTLGRN GET REC NR INDEX W P* W , P* SAVE RECORD NR FOR FIRST MOV
0x3ceb08…3cec9c Dummy {f00=0x0120, f01=0x0190, f02=»OLLOWING W b $ P* USED RECORDS ROLLED FORWARD X $ P* A4,A10,A11 IS USED AT ENTRY X 8 $ P ADKL A10,7 RECORD LENGTH TOTAL X ` P* X P* USE D REGISTERS X P* A11 = FDB ADDR INDEX X P* A9 = AREA ADDR X " P* A10 = RECORD LENGTH IND
0x3cec9c…3cee30 Dummy {f00=0x0120, f01=0x018e, f02=»S200 EQU * X P LDKL A9,SDMBF1 BUFFER 1 Y P ADK A5,0 Y 2 P RF(Z) INS210 BUFAR1 Y D P LDKL A9,SDMBF2 BUFFER 2 Y ` PINS210 EQU * Y & P ADR A9,A14 RECORD BUFFER ADDRESS Y P* Y P* SAVE LAST RECORD Y P* Y P LDR A1,A4 Y P ADKL A1
0x3cee30…3cefc4 Dummy {f00=0x0120, f01=0x018e, f02=» Y p P EJECT Z P* Z 4 P* MOVE REST OF BLOCK DOWN ONE RECORD POSITION Z P* Z X P LDR A1,A4 Z b P ADKL A1,BUFSTA Z t P AD A1,FDBRRO,A11 FROM ADDR Z P LDR A6,A1 Z P LD A3,FDBMRO,A11 Z P SU A3,FDBRRO,A11 NR OF CHAR Z P LDR A2,
0x3cefc4…3cf158 Dummy {f00=0x0120, f01=0x0190, f02=» P ADK A5,0 [ P RF(Z) INS250 BUFAR1 [ P LDKL A1,SDMBF1 [ 2 PINS250 EQU * [ J P ADR A1,A14 FROM ADDR [ ^ P LDR A3,A10 NR OF CHAR [ | P LDR A2,A6 TO ADDR [ P CF A14,MOVFW MOVE [ P EJECT [ P* [ P* WRITE BUFFER [ P* [ $ P
0x3cf158…3cf2ec Dummy {f00=0x0120, f01=0x0190, f02=» P STR A2,A8 P LDR A2,A4 P ADKL A2,BUFSTA * P ST A2,ECBBA,A8 SECTOR ADDR B P LC A2,FDBBLZ,A11 BLOCK SIZE f P SLL A2,8 IN BYTE P ST A2,ECBRL,A8 P LD A2,FDBSNR,A11 SECTOR NR P ST A2,ECBCW,A8 SECTOR NR P LD A3
0x3cf2ec…3cf480 Dummy {f00=0x0120, f01=0x0190, f02=» FREE, OPERATION IS READY x P* ] " P LDR A2,A9 RECORD AREA ADDR ] , P ADR A2,A10 REC LGTH ] P " P SUK A2,1 ADDR OF STATUS CHAR ] l P LD A3,FDBMRO,A11 ] ( P ST A3,FDBRRO,A11 MAX OFFSET IN SECT ] P CCR A1,A2 ] P RF(Z) INS400 FREE RECORD ]
0x3cf480…3cf614 (3, 543) Dummy {f00=0x0120, f01=0x0190, f02=»K) :=S ] f " P LDR A5,A9 RESTORE REGISTER =7 ^ P ADK A4,0 SET CR =7 ^ 4 PINS260 EQU * ^ P ( P RB(Z) INS170 GO TO DMIER3 IF ERROR ^ d * P XRK A5,1 SWITCH KEY RECORD BUFFERS =7 ^ P RB INS200 ^ PINS400 EQU * ^ P* ^ ( P* UPDATE LRN IF EOF IS E
0x3cf614…3cf7a8 Dummy {f00=0x0120, f01=0x0190, f02=»A2,FDBLRN+1,A11 ^ P RF(NG) INS430 NO EOF _ PINS410 EQU * _ 6 ( P SC A1,FDBLRN,A11 LAST RECORD NUMBER _ J P ST A2,FDBLRN+1,A11 _ v & P LD A9,DWTECB,A11 USER ECB ADDRESS _ P LDKL A3,EOFRC END OF FILE _ P ORS A3,ECBRC,A9 TO USER _ P EJECT _
0x3cf7a8…3cf93c Dummy {f00=0x0120, f01=0x0190, f02=»CRNUPD ADD 1 TO RECORD NUMBERS _ PINS440 EQU * ` & P CF A14,SDMRBU REL BUFFER ` : * P ABL DMTAR5 ONE INDEX READY TAKE NEXT ` P EJECT ` * PDEL000 EQU * DELETE INDEX RECORD CONT ` P ADK A1,0 ` PDEL010 EQU * ` " P ABL(NZ) DMIER3 KEY NOT FOUN
0x3cf93c…3cfad0 Dummy {f00=0x0120, f01=0x0190, f02=»,FDBRLE,A11 ` " P ADK A1,7 BUFSTA-3=ADDR REC NR a P LCR A2,A1 a : P CC A2,ECBCW+1,A9 REC NR a L P RF(NE) DEL030 WRONG RECORD a l P LC A2,1,A1 a P ECR A2,A2 a P LC A2,2,A1 REC NR a P CW A2,ECBCW+2,A9 a P RF(E) DEL200 RECORD FOUND a
0x3cfad0…3cfc64 Dummy {f00=0x0120, f01=0x0190, f02=»10 NEXT KEY NOT SAME a PDEL040 EQU * b ( P CF A14,RDNXTR GET NEXT INDEX RECORD b 0 PDEL045 EQU * b ( P RB(Z) INS260 GO TO DMIER3 IF ERROR b p P* b P* CHECK IF RECORD IS USED b P* b & P CF A14,CHKRCD CHECK RECORD STATUS b P RB(E) DEL
0x3cfc64…3cfdf8 Dummy {f00=0x0120, f01=0x0190, f02=»00 EQU * RECORD FOUND b P* c & P* SET RC BIT 6 IF NEXT KEY SAME c ( P* c R P LC A7,-1,A1 NR OF SAME CHAR c P ANK A7,/FF c 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB c P CWR A10,A7 KEY LENGTH c $ P RF(NE) DEL220 NEXT KEY NOT SAME
0x3cfdf8…3cff8c Dummy {f00=0x0120, f01=0x0190, f02=» P* d $ P ADKL A10,7 TOTAL RECORD LENGTH d P LDR A2,A4 d 6 P ADKL A2,BUFSTA d H P AD A2,FDBRRO,A11 TO ADDR d ` P LDR A1,A2 d P ADR A1,A10 FROM ADDR d P LD A3,FDBMRO,A11 d P SU A3,FDBRRO,A11 NR OF CHAR d P CF A14,MOVFW MOVE d
0x3cff8c…3d0120 Dummy {f00=0x0120, f01=0x0190, f02=»* d $ P* UPDATE CRN FOR MOVED RECORDS e P* e 2 P CF A14,GTLGRN GET REC NR e < P LDR A12,A1 e ^ " P LDR A13,A2 FIRST REC NR MOVED e r 2 P LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET e P LD A6,FDBMRO,A11 e P ST A6,FDBRRO,A11 MAX OFFSET e
0x3d0120…3d02b4 (3, 544) Dummy {f00=0x0121, f01=0x0190, f02=» e n " P LDK A5,1 MARK BUFFER CHANGED f P EJECT f . PDEL240 EQU * f < P LD A1,FDBRRO,A11 f P $ P RF(NZ) DEL290 NOT FIRST RECORD f j P CF A14,GTLGRN GET REC NR f P LDK A6,0 f P LDK A7,1 f $ P CF A14,DSUMOD A1,A2 = A1,A2 - 1 f P RF(Z) D
0x3d02b4…3d0448 Dummy {f00=0x0121, f01=0x0190, f02=» CHANGED f x P EJECT g P* g P* WRITE SECTOR g ( P* g @ P CF A14,FMIOWR g J P ABL(NZ) DMTERR g ` $ P LDK A5,0 BUFFER NOT CHANGED YET g x PDEL245 EQU * g " P CF A14,SDMRBU RELEASE BUFFER g P* g P* GET PREVIOUS SECTOR g P* g
0x3d0448…3d05dc Dummy {f00=0x0121, f01=0x0190, f02=»A11 g P RF DEL300 h PDEL290 EQU * h P SU A1,FDBRLE,A11 h 2 P SUK A1,1 h L PDEL300 EQU * h ^ , P ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET h r & P CF A14,CHKRCD CHECK RECORD STATUS h P RB(NE) DEL240 FREE h P EJECT h P* h P* SET
0x3d05dc…3d0770 Dummy {f00=0x0121, f01=0x018e, f02=»FILE h l " P CF A14,CRNGET GET CRN BUFFER i ( P LDR A11,A12 FDB ADDRESS INDEX FILE i 2 $ P LC A1,FWTFNR,A11 INDEX FILE NR i ^ $ P CC A1,CRNCIF,A2 LAST REF INDEX i P RF(NE) DEL350 NOT THIS IND i P* i P* UPDATE CURRENCY i P* i P LDR A
0x3d0770…3d0904 Dummy {f00=0x0121, f01=0x0190, f02=» i . P LC A2,17,A14 NR OF SAME IN DELETED RECORD j " P* WAS SAVED AT LABEL DEL200 j : P CC A2,-4,A9 j ` P RF(NL) DEL600 j t ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER j P RF DEL700 WRITE SECTOR j PDEL600 EQU * j P ADK A5,0 j $ P RF(Z) DEL90
0x3d0904…3d0a98 Dummy {f00=0x0121, f01=0x0190, f02=» DMTERR j PDEL900 EQU * k P ABL INS440 k $ P XIF k 8 P EJECT k D P* k R P* FNDBLB=FIND BLOCK BUFFER k P* k ~ PFNDBLB EQU * k P LD A7,DWTOR,A11 ORDER k P ANK A7,/3F k P SUK A7,ORDSQ0 k & P RF(NZ) FBL110 NOT READ SEQUENTIAL k
0x3d0a98…3d0c2c Dummy {f00=0x0121, f01=0x018e, f02=»100 EOF k P CW A3,FDBLRN+1,A11 l P RF(NG) FBL110 NO EOF l , PFBL100 EQU * l J P LDK A2,1 INDICATE ERROR l ^ P LDKL A1,EOFERR EOF l ~ P RF FBL170 RETURN l PFBL110 EQU * l P LDKL A2,/CFFF l & P ANS A2,FDBDBR,A11 RELEASE BUFFER l $ P
0x3d0c2c…3d0dc0 Dummy {f00=0x0121, f01=0x0190, f02=» l p & P* IF IT IS NOT THE WANTED BLOCK m P* m 2 P LC A7,BUFOR,A4 DELAY FLAG m < P ANK A7,/3 m ^ P RF(Z) FBL150 NO DELAY m p P CM BUFOR,A4 RESET m P ANK A7,1 m P RF(NZ) FBL130 RIGHT SECTOR m P LD A7,BUFSNR,A4 SECT NR m P ST A7,ECB
0x3d0dc0…3d0f54 (3, 545) Dummy {f00=0x0121, f01=0x0190, f02=»SE BUFFER m | P RB FNDBLB GET NEW BUFFER n P EJECT n 4 PFBL120 EQU * n B P* n V P* READ BLOCK INTO BUFFER n ` P* n " P CF A14,FMIORD PHYSICAL READW n P RF(NZ) FBL160 ERROR n P LD A5,ECBBA,A8 n P RF FBL150 n . PFBL130 EQU * RIG
0x3d0f54…3d10e8 Dummy {f00=0x0121, f01=0x0190, f02=» n z P RF FBL170 o PFBL160 EQU * o P LDKL A2,-1 INDICATE ERROR o . PFBL170 EQU * o P P ADKL A14,4 o d P ADK A2,0 SET CR o x P ABR* A14 o P EJECT o P* o @ P* CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER o P* o P
0x3d10e8…3d127c Dummy {f00=0x0121, f01=0x0190, f02=»CAL RECORD NUMBER o | ( P* A10=RECORD STATUS POINTER p P* A4=DESTROYED p F & P* CR=0 IF RECORD NOT USED p d P* p PCHKSTS EQU * p P LD A10,FDBRRO,A11 p P AD A10,FDBRLE,A11 p P ADR A10,A5 p P LD A1,ECBCW,A9 p
0x3d127c…3d1410 Dummy {f00=0x0121, f01=0x413e, f02=»YP=SET PARAMETERS AND THEN GO TO FNDKEY SUBROUTINE p P* q : P IFT INDXAC=1 q D PFNDKYP EQU * q Z P LDR A9,A11 q n $ P ADKL A9,FDBKEY KEY AREA ADDRESS q * P LD A10,FDBRLE,A11 RECORD LENGTH INDEX q P SUKL A10,6 KEY LENGTH q P ABL FNDKEY q
0x3d1410…3d15a4 Dummy {f00=0x0121, f01=0x2008, f02=» r + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x3d15a4…3d1738 Dummy {f00=0x0121, f01=0x0190, f02=» " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) FC:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TOO BIG # 0 P LDKL A6,S
0x3d1738…3d18cc Dummy {f00=0x0121, f01=0x0190, f02=»1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 VTOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2,FWTPAR,A6 ACCESS PARAME
0x3d18cc…3d1a60 Dummy {f00=0x0121, f01=0x0190, f02=» P* % PFC:020 EQU * % P IFT ATTDET=1 % " 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) % 8 & P ABR(Z)* A15 NOT ATTACHED, RETURN % l , P CWR A2,A5 ATTACHED, CHECK IF THIS TASK % , P RF(NE) FC:060 ATTACHED TO ANOTHER TASK % P XIF % P* %
0x3d1a60…3d1bf4 (3, 546) Opaque[0x194]
0x3d1bf4…3d1d88 # DirEnt {nam=»SDMOCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2348, f03=0x0000}
0x3d1bf4…3d1d88 IdxSect {
0x3d1bf4…3d1d88 f00 = 0x011a // 0x3d1bf4 @0x0
0x3d1bf4…3d1d88 f01 = 0x0018 // 0x3d1bf6 @0x2
0x3d1bf4…3d1d88 gno = [ // 0x3d1bf8 @0x4
0x3d1bf4…3d1d88 [0x00]: C0x011a.0x1.0
0x3d1bf4…3d1d88 [0x01]: C0x011a.0x2.0
0x3d1bf4…3d1d88 [0x02]: C0x011a.0x3.0
0x3d1bf4…3d1d88 [0x03]: C0x011b.0x0.0
0x3d1bf4…3d1d88 [0x04]: C0x011b.0x1.0
0x3d1bf4…3d1d88 [0x05]: C0x011b.0x2.0
0x3d1bf4…3d1d88 [0x06]: C0x011b.0x3.0
0x3d1bf4…3d1d88 [0x07]: C0x011c.0x0.0
0x3d1bf4…3d1d88 [0x08]: C0x011c.0x1.0
0x3d1bf4…3d1d88 [0x09]: C0x011c.0x2.0
0x3d1bf4…3d1d88 [0x0a]: C0x011c.0x3.0
0x3d1bf4…3d1d88 [0x0b]: C0x011d.0x0.0
0x3d1bf4…3d1d88 ]
0x3d1bf4…3d1d88 }
0x3d1d88…3d1f1c Dummy {f00=0x011a, f01=0x0190, f02=» 2 P IDENT SDMOCR REL 11.0 81-05-12 870105041100 P : P =8,CONDITION FOR CR,DE,EX B P =8,REL 11.0 81-04-02 f * P =7,NO DEL OF FILE WHEN NOT OP. EXC. P =7,REL 11.0 81-03-24 . P =6,NO EXCLUSIVE ACCESS WHEN MXIND READ P
0x3d1f1c…3d20b0 Dummy {f00=0x011a, f01=0x0190, f02=»T CORRECT | P =4,REL 11.0 81-02-24 . P =3,FORMAT FIRST RECORD ALSO WHEN LRN=0 2 P =3,REL 11.0 81-02-12 d * P =2,FILE NBR IN WRONG REG. WHEN RFP P =2,REL 11.0 81-02-04 P =1,CLOSE FORMAT CHANGED P =1,REL 11.0 81-01
0x3d20b0…3d2244 Dummy {f00=0x011a, f01=0x018e, f02=»SDMOCR HANDLES OPEN CLOSE AND READ FILE PARAMETERS $ P* IT IS ACTIVATED FROM SDMTSK : P* b P* l P* v P* P* 8 P**************************************************** P* P EJECT P* P***************
0x3d2244…3d23d8 Dummy {f00=0x011a, f01=0x0190, f02=» P* P***************** P* EXTERNALS * , P***************** F P* ` . P EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE j P EXTRN ECBRC 4 P EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN 4 P EXTRN FDBMEC,FDBMIA,FDBNIF,FDBR
0x3d23d8…3d256c Dummy {f00=0x011a, f01=0x018e, f02=»RN MPYMOD,MXIND P EXTRN DIVMOD & P EXTRN FDBDBR,FDBMRO,FDBDMI,FDBBLZ . P EXTRN FDBOMD X P EXTRN ECBFC n P EXTRN ECBBA P EXTRN ECBEL P EXTRN ECBRL P EXTRN DWTECB P EXTRN DWTOR P EXTRN DWTTAB,DWTOPT . P EXT
0x3d256c…3d2700 Dummy {f00=0x011a, f01=0x0190, f02=» P EXTRN CASZEN,COSZEN & P EXTRN GTBKBU,FRMFIL,FMIOCR,FMIODL P EJECT J P EXTRN CRNSTA,DFTAB,DMTIDP X P EXTRN SDMERX z P EXTRN MOVFW P EXTRN EARELB P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN
0x3d2700…3d2894 (3, 547) Dummy {f00=0x011a, f01=0x0190, f02=»XTRN FDBRRO,FDBSNR P EXTRN FORMER P EXTRN ADDMOD 0 P EXTRN SDMRLB,SDMTTD F P EXTRN ORDFLP b P EXTRN ENLFAC x P EJECT SDMTSK P************************* P* CONDITIONAL ASSEMBLY P**************************
0x3d2894…3d2a28 Dummy {f00=0x011a, f01=0x0190, f02=»QU 1 P* P* P* 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING * * P* IS OBTAINED BY SETTING INDXAC = 1 d PX:A EQU 0 PINDXAC EQU 00001 P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN EXT
0x3d2a28…3d2bbc Dummy {f00=0x011a, f01=0x0190, f02=»FPBSTA EQU 0 START ADDR FPB ( PFPB:IV EQU FPBSTA+58 VOL NAME INDEX $ $ PFPB:IS EQU FPBSTA+64 INDEX SIZE P $ PFPB:NI EQU FPBSTA+68 NR OF INDEX x $ PFPB:I1 EQU FPBSTA+70 INDEX ID 1 $ PFPB:A1 EQU FPBSTA+78 KEY ADDR 1 & PFPB:L1 EQU FPBSTA+80 KEY
0x3d2bbc…3d2d50 Dummy {f00=0x011a, f01=0x018e, f02=»FPBSIZ EQU 60 SIZE OF FPB AREA IN WORDS P* 0 8 PFPBRES EQU 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK : P* v $ PNOCORE EQU 1 NO CORE ERROR CODE P* " PERPAR EQU 4 WRONG PAR ERR CODE P* POFLW EQU 3 OVERFLOW ERR CODE P*
0x3d2d50…3d2ee4 Dummy {f00=0x011a, f01=0x0190, f02=» P* DATA DEFINITIONS * P************************ $ : P* HERE FOLLOWS NON-REENTRANT AREAS USED BY ORDERS : D ( P* OPEN,CLOSE,READ FILE PARAMETERS. P* POPESPA DATA ' ' 2 SPACES " POPEFN EQU * FILE NAME PREFIXES P DATA '
0x3d2ee4…3d3078 Dummy {f00=0x011a, f01=0x018e, f02=»0,0 " POPEFCD EQU * OPENED FILE CODES P DATA 0,0,0 2 POPEFWT EQU * FWT ADDRESSES F P DATA 0,0,0,0,0 h ( POPEMXI EQU * MASTER INDEX ADDRESSES P DATA 0,0,0,0,0 0 POPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS P EJECT ( POP
0x3d3078…3d320c Dummy {f00=0x011a, f01=0x0190, f02=» n ( PINDVOL RES 3 VOLUME NAME INDEX FILES , POPEFPB RES FPBSIZ FILE ADM PARAM. BLOCK 4 & POPEEND EQU *-OPEFNR-2 NR OF BYTES d P EJECT 2 P********************************************* 2 P* R E A D F I L E P A R A M E T E R S * 2 P
0x3d320c…3d33a0 Dummy {f00=0x011a, f01=0x0190, f02=»ESS ALL ORDERS z " P* A7 = ORDER CODE ALL ORDERS P* < P LDR A10,A11 FBD ADDR F " P LC A2,FDBNIF,A11 NR OF INDEX d P ANK A2,/FF P ST A2,NROFIX P* STORE FILE NRS IN OPEFNR P* P LDK A5,10 2 * INDEXES PRFP100 E
0x3d33a0…3d3534 (3, 548) Dummy {f00=0x011a, f01=0x0190, f02=»F(Z) RFP130 NO FILE P LC A2,FWTFNR,A3 FILE NR PRFP130 EQU * < P LDR A4,A5 P P SRL A4,1 b " P SC A2,OPEFNR,A4 SAVE FILE NR t P RB RFP100 NEXT FILE P EJECT P*************** P* O P E N * P***************
0x3d3534…3d36c8 Dummy {f00=0x011a, f01=0x0190, f02=» p P* A12 = FPB ADDRESS P* & P* A9 = LOOP COUNTER FILES 0 P* T P* 1 = DATA FILE ^ P* 2 = INDEX 1 ~ P* 3 = MASTER INDEX 1 P* 4 = INDEX 2 P* ETC P* P LDR A10,A
0x3d36c8…3d385c Dummy {f00=0x011a, f01=0x0190, f02=» EQU * P CM OPEFNR,A2 P SUK A2,2 $ * P RB(NN) SDMO10 NO MORE WORDS TO CLEAR 6 P* d P* MOVE IN PARAMETER BLOCK n P* & P LD A1,DWTECB,A11 USER ECB ADDRESS " P LD A1,ECBBA,A1 FD ADDR USER " P ADK A1,FPBRES RESERVED FIEL
0x3d385c…3d39f0 Dummy {f00=0x011a, f01=0x0190, f02=» P CF A14,MOV:US P XIF P IFT MMUPAG=0 & P CF A14,MOVFW < P XIF R P IFT INDXAC=1 ^ P EJECT t P* $ P* SAVE VOLUME NAME INDEX FILES P* P LDR A1,A12 FPB ADDR P ADKL A1,FPB:IV FROM ADDR P LDKL A2,IND
0x3d39f0…3d3b84 Dummy {f00=0x011a, f01=0x0190, f02=»14 P ST A5,DELAY P IFT INDXAC=1 P LC A5,FPB:FO,A12 4 P ANK A5,/FF N P RF(Z) SDMO30 STANDARD FILE b " P LC A5,DWTOR+1,A11 ORDER CODE P SUKL A5,SDMOEE 6 P ABL(NN) OERQER OUTPUT SEQ.,RAND.,EXT. NOT ALLOWED $ P LD A5,DWT
0x3d3b84…3d3d18 Dummy {f00=0x011a, f01=0x0190, f02=»C A5,FPB:NI,A12 NR OF INDEXES P SC A5,NROFIX+1 & P EJECT > P* L ( P* SAVE BASE ADDRESSES FOR INDEXES V P* P LDK A2,FPB:A1 $ P ADR A2,A12 ADDR FIRST KEY ADDR P ANK A5,/F P LDK A3,2 OFFSET INDEX 1 PSDMO20 EQU *
0x3d3d18…3d3eac Dummy {f00=0x011a, f01=0x0190, f02=»(NZ) OESWP4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 6 P LDR* A1,A2 KEY OFFSET N P ST A1,OPEKAD,A3 l P ADK A2,FPB:I2-FPB:I1 P ADK A3,2 P RB SDMO20 P XIF PSDMO30 EQU * " P LDKL A9,1 INDICATE DATA FILE
0x3d3eac…3d4040 Dummy {f00=0x011a, f01=0x0190, f02=»******************* ~ P P* $ @ P* O P E N O R C R E A T E F I L E W I T H F M . P* r POPLENT EQU * | P ST A12,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A12 P ANK A5,1 ( P SC A5,FPB:BO,A12 ONLY BASIC ALLOWED
0x3d4040…3d41d4 (3, 549) Dummy {f00=0x011b, f01=0x0190, f02=»X=1 =8 P* " P* IF OPEN OUTPUT RANDOM OR " P* OPEN OUTPUT SEQUENTIAL @ P* THEN CREATE FILE f P* P LC A5,DWTOR+1,A11 P SUKL A5,SDMOOS & P RF(N) OPL120 NO CREATION OF FILE P EJECT P* P* C R E A
0x3d41d4…3d4368 Dummy {f00=0x011b, f01=0x0190, f02=» LDK A1,'S' FILE TYPE P SC A1,FPB:FO,A12 P LDKL A1,FPB:MN 8 P ADR A1,A12 POINTER IN FPB P ( P LDK A2,11 NUMBER OF BYTES TO RESET r P LDK A3,0 POPL110 EQU * P SCR A3,A1 RESET BYTE P ADK A1,1 UPDATE POINTER P SUK A
0x3d4368…3d44fc Dummy {f00=0x011b, f01=0x0190, f02=»IOCR CREATE FILE P RF(NZ) OERCA1 ERROR P RF OPL125 4 P XIF =8 F P EJECT X P* f P* O P E N F I L E p P* POPL120 EQU * P CF A14,FMIOOP OPEN P RF(NZ) OERCA1 ERR P* P* SAVE FILE NR P*
0x3d44fc…3d4690 Dummy {f00=0x011b, f01=0x0190, f02=»30 EQU * P* P* GET FWT ADDR IN A10 P* : P ANK A2,/FF D " P LDKL A10,FDBSTA SYST FDB ADDR X P LDR A3,A2 FILE NR ~ POPL140 EQU * P RF(Z) OPL150 END COUNT P LDR* A10,A10 NEXT FDB P ANKL A10,/FFFE USE BIT
0x3d4690…3d4824 Dummy {f00=0x011b, f01=0x0190, f02=»WT ADDR IN A11 $ P LDK A6,0 DEFAULT ENLARGE FACTOR ( P LC A3,DWTOR+1,A11 INTERN ORDER CODE > P SUKL A3,SDMOEE j & P RF(N) OPL155 NO ENLARGE DECLARED $ P LD A6,FPB:EL,A12 ENLARGE FACTOR POPL155 EQU * P STR A2,A8 FILE NR 4 P CF A1
0x3d4824…3d49b8 Dummy {f00=0x011b, f01=0x0190, f02=» ORS A1,ECBRC,A2 RET CODE P XRR A10,A11 " P XRR A11,A10 6 P XRR A10,A11 J P EJECT ^ P* l P* A10 = SYSTEM FDB ADDRESS v P* A11 = CURRENT FDB ADDRESS P* P IFT INDXAC=1 P CWK A9,1 P RF(NE) OPL160 INDEX FILE
0x3d49b8…3d4b4c Dummy {f00=0x011b, f01=0x0190, f02=» LDR A9,A7 NEW LOOPER , P SUR A13,A13 REL ADDR IN TABLES OF OPEN P RF OPL170 N POPL160 EQU * ` P LDR A7,A9 t P ANK A7,/FE REL ADDR P LDR A13,A7 POPL170 EQU * P XIF P IFT INDXAC=0 " P SUR A13,A13 IDICATE DATA FI
0x3d4b4c…3d4ce0 Dummy {f00=0x011b, f01=0x0190, f02=» P . P****************************************** . P* C H E C K O P E N E D F I L E * B . P****************************************** t P P LDK A3,'S' 'S' P CC A3,FPB:FO,A12 $ P RF(NE) OERQER NOT STANDARD FILE " P
0x3d4ce0…3d4e74 (3, 550) Dummy {f00=0x011b, f01=0x0190, f02=» IF OPENED EXCLUSIVE z * P RF(NZ) OERQER OPENED EXCLUSIVE BEFORE P CC A3,FDBOMD,A11 J 2 P RF(NE) OERQER THIS OPEN NOT SAME AS OLD OPEN d 6 P LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE P CW A3,NROFIX NR OF INDEXES $ P RF(NE) OESWP4 A
0x3d4e74…3d5008 Dummy {f00=0x011b, f01=0x0190, f02=»LAY x POPL180 EQU * P ABL OPSPLT P EJECT 4 P B P******************* J P* E R R O R S * f P******************* P POERCA1 EQU * =4 P LDR A6,A1 RETURN CODE =4 , P ANKL A6,/E10 MASK BITS 4,5,6 AND 11 =4
0x3d5008…3d519c Dummy {f00=0x011b, f01=0x0190, f02=» P RF(N) OESNC1 NO CORE =4 POESOF3 EQU * =4 $ P LDK A6,OFLW OVERFLOW =4 < P RF OESCOM =4 POESIN9 EQU * =4 r " P LDK A6,ILLNAM ILLEGAL NAME =4 P RF OESCOM =4 POESNC1 EQU * =4 $ P LDK A6,NOCORE CORE EXHAUSTED =4 P R
0x3d519c…3d5330 Dummy {f00=0x011b, f01=0x0190, f02=»6,ERKEYL LONG KEY =4 POESCOM EQU * =4 ! $ P LDR A11,A10 MAIN FDB ADDRESS =4 ! 4 * P CF A14,CRNGET GET CURRENCY BUFFER =4 ! " P SC A6,CRNSTA,A2 SET STATUS =4 ! & P LDKL A1,/8080 SET RETURN CODE =4 ! P RF OERCOM =4 ! POERQER EQU * =4 ! & P
0x3d5330…3d54c4 Dummy {f00=0x011b, f01=0x0190, f02=»RESS =4 ! r ( P ORS A1,ECBRC,A9 SET RETURN CODE =4 " * P ABL CLOCOM CLOSE EVENTUALLY FILES =4 " < P EJECT " j P " x P*************************** " P* F I R S T O P E N * " P*************************** " P " P* " P* CLEAR
0x3d54c4…3d5658 Dummy {f00=0x011b, f01=0x0190, f02=»F(N) OPF110 OK " P LDR A7,A11 # P ADR A7,A2 # * P CM FDBECB,A7 # < P RB OPF100 # R P EJECT # d P* # r P* BUILD FWT FDB PART # | P* # POPF110 EQU * # P LD A2,DELAY # , P ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE # P LD A3,FPB:R
0x3d5658…3d57ec Dummy {f00=0x011b, f01=0x018e, f02=»F INDEXES # ~ ( P SC A3,FDBNIF,A11 NR OF INDEX FILES $ P LC A3,FPB:FR+1,A12 $ > P SC A3,FDBLRN,A11 $ Z P LD A3,FPB:FR+2,A12 $ t $ P ST A3,FDBLRN+1,A11 LAST REC NR $ P CM FDBSNR,A11 $ P LDK A3,1 $ , P ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER
0x3d57ec…3d5980 Dummy {f00=0x011b, f01=0x018e, f02=» $ | P CW A3,OPEKAD,A13 % P RB(NE) OESWP4 WRONG KEY % " P ST A3,FDBKA,A11 KEY ADDR % B POPF120 EQU * % d P LC A3,FPB:BO,A12 % x P SLL A3,8 % & P ORS A3,FDBDBR,A11 BASIC + OPTION % P EJECT % P* % P* CALCULATE SDMTSK ID % P*
0x3d5980…3d5b14 (3, 551) Dummy {f00=0x011b, f01=0x0190, f02=» P RB(NE) OPF140 NOT THIS DISC & $ P LC A3,DMTIDP,A6 REL DM TASK ID & ( $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID & P P* & x 4 P* CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS & P* & P CF A14,CARRBL & & P RB(G) OESWP4 TOO LARGE BLOCK SIZE & P ST
0x3d5b14…3d5ca8 Dummy {f00=0x011b, f01=0x0190, f02=» & P* CALCULATE ENLARGE FACTOR ' P* ' * $ P LDR A4,A2 BLOCK SIZE IN SECTORS ' 4 P CF A14,ENLFAC ' P RB(O) OESOF3 OVERFLOW ' r * P ST A3,FDBENL,A11 SAVE ENLARGE FACTOR ' P XIF =8 ' P EJECT ' P* ' P* SET OPEN MODE ' P* '
0x3d5ca8…3d5e3c Dummy {f00=0x011b, f01=0x0190, f02=») OPF150 EXCLUSIVE ACCESS NOT WANTED ' " P LD A1,DWTTAB,A10 TTAB ADDRESS ( , POPF150 EQU * ( R 0 P ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER ( f P IFT CRDEEX=1 =8 ( P ANK A3,/FF ( P CWK A3,SDMOOR ( 2 P RF(NE) OPSPLT NOT OUTPUT RANDOM,DON'T FOR
0x3d5e3c…3d5fd0 Dummy {f00=0x011b, f01=0x0190, f02=»DRESS ( | P CF A14,FRMFIL FORMAT FILE ) ( P RB(NZ) OERCOM ERROR WHEN FORMATTING ) 0 P XIF =8 ) P EJECT ) n P ) | L P*********************************************************************** ) L P* D A T A , I N D E X O R M A S T E R I N
0x3d5fd0…3d6164 Dummy {f00=0x011b, f01=0x0190, f02=» ST A11,OPEFWT,A13 SAVE FWT ADDR ) P IFT INDXAC=1 * ( P LDR A13,A13 * > P ABL(Z) OPDATA DATA FILE * R P LDR A3,A9 * r P ANK A3,/1 * P ABL(Z) OPINDX INDEX FILE * P EJECT * P * $ P******************************* * $ P* M A S T E R
0x3d6164…3d62f8 Dummy {f00=0x011b, f01=0x0190, f02=»READ FILE PAR * z P LD* A3,DWTECB,A10 FILE CODE + P ANK A3,/FF + : . P ST A3,SDMTTD,A14 FC ENTRY IN TTAB SDMTSK + N P ST A11,SDMTTD+2,A14 + P STR A3,A8 + P LDK A2,0 + 2 P SC A2,FDBDBR,A11 NO SPECIAL FUNCTIONS ALLOWED + ( P SC A2,FDBBLZ+1,A1
0x3d62f8…3d648c Dummy {f00=0x011b, f01=0x0190, f02=»OF WORDS NEEDED IN MASTER INDEX + P* , ( P LD A6,FPB:RL,A12 REC LGTH , 2 P LDR A1,A6 , T P SUK A1,3 KEY LENGTH , f P CW A1,OPEKYL,A13 REQUESTED , P ABL(NE) OESWP4 ERR , " P LD A7,FPB:FR+2,A12 NO OF RECS , , P CF A14,MPYMOD A1,A2=NO OF BYTES
0x3d648c…3d6620 Dummy {f00=0x011b, f01=0x0190, f02=»0 WRONG SIZE , P LD A4,MXIND LENGTH MXIND - P SUK A4,4 MAX A5 VALUE - 6 P LDKL A5,-2 OFFSET - T POPM100 EQU * - n P ADK A5,4 GET ENTRY - P CWR A5,A4 - P RF(G) OPM140 NO ENTRY FOUND - P LD A3,MXIND,A5 - P RB(Z) OPM100 ZERO ENTRY -
0x3d6620…3d67b4 (3, 552) Dummy {f00=0x011b, f01=0x0190, f02=» P EJECT . P* . P* SUFFICIENT SPACE FOUND . P* . > P LDKL A1,/8000 USED BIT . H & P ORS A1,MXIND+2,A5 MARK ENTRY USED . h P LDR A7,A9 . P ANK A7,/0E . & P ST A3,OPEMXI,A7 MASTER INDEX ADDR . P LD A7,FPB:FR+2,A12 . P STR A7,A3
0x3d67b4…3d6948 Dummy {f00=0x011b, f01=0x0190, f02=» ADDR . z P ST A1,ECBRL,A8 REQ LGTH / . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION / . P CWR A1,A4 MXIND ENTRY / ` P RF(NL) OPM110 LAST ENTRY / ~ P LD A3,MXIND+6,A1 / " P RF(N) OPM110 NEXT ENTRY USED / P EJECT / P* / & P* MOVE SPARE W
0x3d6948…3d6adc Dummy {f00=0x011b, f01=0x018e, f02=» BIT / ~ P ST A2,MXIND+2,A1 0 . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER 0 & $ P LD A7,MXIND,A1 PREVIOUS POINTER 0 X P SLL A2,1 NO OF BYTES 0 P ADR A7,A2 0 P ST A7,MXIND+4,A1 0 P EJECT 0 P* 0 ( P* R E A D M A S T E R I N D E X 0
0x3d6adc…3d6c70 Dummy {f00=0x011b, f01=0x0190, f02=» ( P LD A2,FDBEXC,A11 EXCLUSIVE TTAB =6 1 2 P CM FDBEXC,A11 INDICATE NO EXCLUSIVE ACCESS =6 1 0 P LDK A7,/82 READ SEQUENTIAL 1 f P LKM 1 P DATA 1 1 8 P ST A2,FDBEXC,A11 EXCLUSIVE ACCESS CORRECT AGAIN =6 1 P LD A2,ECBRC,A8 1 & P ANKL A2,/FEFF
0x3d6c70…3d6e04 Dummy {f00=0x011b, f01=0x0190, f02=»N BUF ADR 1 | P RF(Z) OPM120 NO CRN 2 P CM FDBCRL,A11 2 . P INH 2 D P LD A6,CRNQUE 2 P P STR A6,A5 2 f P ST A5,CRNQUE 2 x P ENB 2 POPM120 EQU * 2 P LDR A1,A2 2 P ANKL A2,/1000 BIT 3 = EOF 2 0 P RF(NZ) OPM150 READY ,WHOLIE MXINDEX I
0x3d6e04…3d6f98 Dummy {f00=0x011b, f01=0x018e, f02=»RL,A8 2 P ADS A2,ECBBA,A8 REC LENGTH 3 P RB OPM110 READ NEXT RECORD 3 2 POPM140 EQU * 3 V " P ABL OESNC1 CORE EXHAUSTED =4 3 j P EJECT 3 P* 3 D P* C O M P L E T E M A S T E R I N D E X F I L E R E A D 3 P* 3 P* CLOSE MAST
0x3d6f98…3d712c Dummy {f00=0x011b, f01=0x018e, f02=» P LDR A7,A9 LOOP COUNT 4 P SRL A7,1 4 " P LC A7,OPEFNR,A7 FILE NR 4 4 P SC A7,ECBFC,A8 4 T $ P ST A12,ECBBA,A8 PAR BLOCK ADDR 4 l , P CF A14,CLRBUF RELEASE ALL FREE BUFFERS 4 P XRR A10,A11 4 P XRR A11,A10 4 P XRR A10,A11 4 , P CF A14,
0x3d712c…3d72c0 Dummy {f00=0x011b, f01=0x0190, f02=» 4 ~ P ABL OPCHEK NEXT FILE 5 P EJECT 5 & P 5 4 P*************************** 5 < P* I N D E X F I L E * 5 ` P*************************** 5 P 5 POPINDX EQU * INDEX FILE 5 P* 5 P* UPDATE PAR BLOCK 5 P* 5 $ P LD A3,O
0x3d72c0…3d7454 (3, 553) Dummy {f00=0x011c, f01=0x0190, f02=» 5 P SRL A3,1 6 P LDR A2,A3 6 P LDR A4,A12 6 , P LDK A5,FPB:I2-FPB:I1 6 @ P SUR A4,A5 6 ^ P EJECT 6 p POPI100 EQU * 6 ~ P ADR A4,A5 REL ADDR 6 P SUK A2,1 NEXT INDEX 6 P RB(NZ) OPI100 6 P ECR A3,A3 6 P ADK A3,1 TYPE DUPL 6
0x3d7454…3d75e8 Dummy {f00=0x011c, f01=0x0190, f02=»MS 6 t P LD A7,FDBKA,A11 KEY OFFSET 7 P ST A7,FPB:A1,A4 KEY ADDR 7 . P LD A7,FDBRLE,A11 REC LGTH 7 P P SUK A7,6 7 r P CM FPB:L1,A4 FILLER 7 P SC A7,FPB:L1,A4 KEY LENGTH 7 P ADK A7,8 7 P SRL A7,1 WORD 7 P CWK A7,RECBFZ 7 P ABL(G
0x3d75e8…3d777c Dummy {f00=0x011c, f01=0x0190, f02=»2 SIZE IN SECTORS 7 ~ P LC A6,FDBBLZ,A11 BLOCK SIZE 8 P ANK A6,/FF 8 > P CF A14,DIVMOD 8 R P ABL(O) OESOF3 LONG FILE 8 h P CM FPB:IS,A12 8 & P ST A2,FPB:IS+2,A12 SIZE IN BLOCKS 8 P* 8 P* GET INDEX VOLUME NAME 8 P* 8 P LDKL A1,F
0x3d777c…3d7910 Dummy {f00=0x011c, f01=0x0190, f02=» RF OPCHEK 8 P XIF 9 P EJECT 9 P 9 , P************************* 9 4 P* D A T A F I L E * 9 V P************************* 9 x P 9 POPDATA EQU * DATA FILE 9 P* 9 P* UPDATE USER PAR BLOCK 9 P* 9 P LC A2,FDBNIF,A11
0x3d7910…3d7aa4 Dummy {f00=0x011c, f01=0x0190, f02=»2,1 9 $ P SC A2,FPB:FO+1,A12 DEVICE TYPE : P LC A2,OPEFNR FILE NR : 4 P SC A2,FPB:FM,A12 : R P LD A2,FDBDBR,A11 : l P SRL A2,14 : . P SC A2,FPB:BO,A12 DELAY BASIC TOSS OPTIONS : P* : , P* CONVERT SIZE TO NUMBER OF RECORDS AND : * P*
0x3d7aa4…3d7c38 Dummy {f00=0x011c, f01=0x0190, f02=»* : P LDKL A3,FPB:FR ; P SUKL A3,FPB:RL LENGTH ; " $ P LD A4,DWTECB,A10 USER ECB ADDR ; @ P LD A1,ECBRL,A4 REQ LENGTH ; h P SUK A1,FPBRES RESERVED ; P CWR A3,A1 ; P RF(NG) OPD120 TAKE SHORTEST ; P LDR A3,A1 ; POPD120 EQU * ; P L
0x3d7c38…3d7dcc Dummy {f00=0x011c, f01=0x0190, f02=» ; x " P ADK A2,FPBRES RESERVED FIELD < P IFT MMUPAG=1 < . $ P LD A4,DWTTAB,A10 TTAB ADDR USER < D P CF A14,MOV:SU < l P XIF < P IFT MMUPAG=0 < P CF A14,MOVFW MOVE < P XIF < P* < $ P* ADJUST FILE NAME FOR INDEXES < P* < P L
0x3d7dcc…3d7f60 Dummy {f00=0x011c, f01=0x0190, f02=» < ~ P EJECT = P = F P***************************************************************** = F P* C H E C K I F A L L F I L E S A R E O P E N E D * = h F P***************************************************************** = P = POPCH
0x3d7f60…3d80f4 (3, 554) Dummy {f00=0x011c, f01=0x0190, f02=»OPENED = r P EJECT > P > 0 P******************************************* > $ 0 P* M O R E F I L E S T O O P E N * > X 0 P******************************************* > P > P CWK A10,FDBSTA > & P RF(NE) OPN120 READ FILE PAR ORDER >
0x3d80f4…3d8288 Dummy {f00=0x011c, f01=0x0190, f02=»A1 > $ P ANK A1,/3E NR OF OPEN BEYOND 1 ? P RF(Z) OPN100 FIRST ? 2 P ANKL A9,/E NO MASTER INDEX ? N POPN100 EQU * ? r P* ? P* NEXT FILE NAME ? P LDR A7,A9 ? P SLL A7,1 WORD ADDR ? . P LD A1,OPEFN,A7 FIRST 2 CHAR IN FILE NAME ?
0x3d8288…3d841c Dummy {f00=0x011c, f01=0x0190, f02=»DR A2,A12 ? P ADKL A2,FPB:V1 TO ADDR @ P LDK A3,6 @ 2 " P CF A14,MOVFW MOVE VOLUME NAME @ D P EJECT @ j P* @ x * P* MOVE SPACES TO OTHER VOLUME NAMES @ P* @ & P LDK A6,30 NR OF VOLUME NAMES * 10 @ POPN110 EQU * @ P SUK A6,10 @
0x3d841c…3d85b0 Dummy {f00=0x011c, f01=0x0190, f02=» A3,6 NR OF CHAR @ P CF A14,MOVFW A P RB OPN110 A . . POPN120 EQU * GET FILE NR FOR READ FILE PAR A @ P LDR A7,A9 A r P SRL A7,1 A ( P LC A2,OPEFNR,A7 GET FILE NUMBER =2 A POPN130 EQU * A " P CM DELAY NO DELAY FOR INDEXES A & P CM NROFIX N
0x3d85b0…3d8744 Dummy {f00=0x011c, f01=0x0190, f02=»*********************************** A 4 P* A L L F I L E S A R E O P E N E D * B , 4 P*********************************************** B d P B POPEND EQU * FINISH B & P LD A11,OPEFWT FDB ADDR DATA FILE B P CWK A10,FDBSTA B & P RF(NE)
0x3d8744…3d88d8 Dummy {f00=0x011c, f01=0x0190, f02=»00 EQU * B P SUK A5,2 C " P RF(N) OPE110 ALL FDB UPPDATED C " P C H $ P LD A2,OPEFWT,A5 FDB ADDR INDEX C P P RB(Z) OPE100 NO INDEX FILE C x P LDKL A1,OPEFWT FROM ADDR C P ADKL A2,FDBADF TO ADDR C P LDK A3,10 NO OF BYTES C P CF A14,MOVF
0x3d88d8…3d8a6c Dummy {f00=0x011c, f01=0x0190, f02=»,A10 FILE CODE C P ANK A2,/FF D P SC A2,OPEFCD SAVE D * P LDK A5,0 TTAB AND CDTAB D D $ P LD A1,DWTTAB,A10 USER TTAB ADDR D d 0 P CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS D P ST A11,2,A4 FWT ADDR D P EJECT D P* D P* REMOVE CURRENC
0x3d8a6c…3d8c00 Dummy {f00=0x011c, f01=0x0190, f02=» P XRR A11,A10 E P XRR A10,A11 E P LDR A3,A10 E , P ADKL A3,FDBCRL ROOT E @ P INH E POPE120 EQU * E h P LDR A1,A3 E | P LDR* A3,A3 NEXT BUFFER E P CWR A3,A2 E P RB(NE) OPE120 NEXT BUFFER E P LDR* A4,A3 NEXT E P STR A4,A1 E
0x3d8c00…3d8d94 (3, 555) Dummy {f00=0x011c, f01=0x0190, f02=»ER SIZE AND UPDATE PARAMETER BLOCK E P* F * P LDK A1,FPB:IV F 4 " P LC A3,FDBNIF,A11 NR OF INDEX F J P ANK A3,/F F p P IFT INDXAC=1 F P RF(Z) OPE150 F P LDR A4,A3 F P SLL A3,3 F P SLL A4,2 F P ADR A3,A4 MULT WITH 12 F P ADK
0x3d8d94…3d8f28 Dummy {f00=0x011c, f01=0x0190, f02=»USER ECB F ~ P LD A2,ECBRL,A6 TOT LENGTH G P SUK A2,FPB:IV+FPBRES G 2 P CWR A3,A2 REM LGTH G P P RF(NG) OPE160 TAKE SHORTEST G l P LDR A3,A2 G P EJECT G POPE160 EQU * G P LDR A2,A3 G P ADK A2,FPB:IV+FPBRES G ( P ST A2,ECBEL,A6 SET
0x3d8f28…3d90bc Dummy {f00=0x011c, f01=0x0190, f02=»IF G P IFT MMUPAG=1 H $ P LD A4,DWTTAB,A10 USER TTAB ADDR H P CF A14,MOV:SU H H P XIF H ^ P EJECT H j P* H x P**************** H P* OPEN END * H P**************** H P* H " P LDR A11,A10 MAIN FDB ADDRESS H P LDK A1,0 RET
0x3d90bc…3d9250 Dummy {f00=0x011c, f01=0x0190, f02=»* H P I PSDMCLO EQU * CLOSE I P* I , " P* (A4= BLOCK BUFFER ADDRESS ) I 6 ( P* (A5 = BLOCK BUFFER DATA ADDRESS ) I $ P* A11= FDB ADDRESS ALL ORDERS I " P* A7 = ORDER CODE ALL ORDERS I P* (A8 = FDBECB ADDRESS ) I P* (A9 = USER EC
0x3d9250…3d93e4 Dummy {f00=0x011c, f01=0x0190, f02=»4,FMIOWR WRITE I $ P ORS A1,ECBRC,A9 SET RETURN CODE J PSDMC10 EQU * J > P IFT CRDEEX=1 =8 J R P LC A3,DWTOPT,A11 J l P ANK A3,2 J P RF(NZ) SDMC20 CLOSE DISCARD J P EJECT J P* J P* CLOSE LOCK J P* J P LC A3,FDBOMD,A11 OPEN
0x3d93e4…3d9578 Dummy {f00=0x011c, f01=0x0190, f02=» EXTEND OR SEQ. J r P* K 8 P* FORMAT FILE IF OPENED OUTPUT SEQUENTIAL OR EXTEND K " P* K ^ ( P LDR A4,A5 BLOCK BUFFER DATA ADDRESS K h 0 P LD A3,FDBRRO,A11 RECORD OFFSET IN BLOCK =1 K P LD A1,FDBBLZ,A11 K " P SLL A1,8 BLOCK SIZE IN BYTES K P
0x3d9578…3d970c Dummy {f00=0x011c, f01=0x0190, f02=» SDMC16 FILE EMPTY =3 K PSDMC12 EQU * =3 L & P AD A3,FDBRLE,A11 RECORD LENGTH =1 L 6 " P ADK A3,1 OFFSET TO LRN + 1 =1 L ` ( P SUR A1,A3 LENGTH LEFT IN BUFFER =1 L PSDMC16 EQU * =3 L & P ADR A3,A4 RECORD POINTER LRN+1 =1 L , P CF A14,FORMER BUILD
0x3d970c…3d98a0 Dummy {f00=0x011c, f01=0x018e, f02=»OF FILE L ~ $ P ORS A1,ECBRC,A9 SET RETURN CODE M $ P LD A1,FDBSNR,A11 SECTOR NUMBER M 8 P LD A2,FDBSNR+2,A11 M ` P LDK A6,0 M | , P LD A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS M " P CF A14,ADDMOD GET NEXT SECTOR M P ST A1,FDBSNR,A11 M P ST A2,FDB
0x3d98a0…3d9a34 (3, 556) Dummy {f00=0x011c, f01=0x0190, f02=» P XIF =8 N 4 P LD A4,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR =7 N & P RF(NZ) SDMC25 OPENED EXCLUSIVE =7 N N , P SC A4,DWTOPT,A11 INDICATE CLOSE LOCK =7 N x PSDMC25 EQU * =7 N ( P CF A14,SDMRLB RELEASE BLOCK BUFFER N PSDMC30 EQU * N P* N
0x3d9a34…3d9bc8 Dummy {f00=0x011c, f01=0x0190, f02=»NCDF,A2 N P CM CRNCDF+2,A2 O P IFT INDXAC=1 O ( P CM CRNCIF,A2 O > P CM CRNCIF+2,A2 O T P XIF O l P EJECT O x P* O P* BUILD CLOSE TABLES O P* O P LC A7,ECBFC,A9 FILE CODE O P LDK A5,10 2 * FILES O PSDMC40 EQU * O
0x3d9bc8…3d9d5c Dummy {f00=0x011c, f01=0x0190, f02=» O P SUR A9,A9 P P SUR A10,A10 P P LD A3,FDBADF,A4 FDB ADDR P . P RF(Z) SDMC50 NO FILE P P & P LD A6,FDBMIA,A3 MASTER INDEX ADDR P n P LC A2,FWTFNR,A3 FILE NR P P LC A9,FDBLRN,A3 LAST REC NR P P LD A10,FDBLRN+1,A3 P PSDMC50 EQU * P
0x3d9d5c…3d9ef0 Dummy {f00=0x011c, f01=0x018e, f02=» FILE CODE P P SLL A4,2 Q P ST A9,OPELRN,A4 LAST REC NR Q $ P ST A10,OPELRN+2,A4 Q H P RB SDMC40 NEXT FILE Q d P EJECT Q PSDMC60 EQU * Q P SC A7,OPEFCD FILE CODE Q P* Q P* A11=MAIN FDB ADDRESS Q P* Q $ PCLOCOM EQU * RECOVER
0x3d9ef0…3da084 Dummy {f00=0x011c, f01=0x018e, f02=» Q 6 P* FREE FILE CODES,MASTER INDEXES,FILES, CURRENCY R P* R B P LDKL A9,5 R L POPEE10 EQU * R ^ P SUKL A9,1 R r P RF(NN) OPEE20 MORE FILES R P EJECT R P* R P***************** R P* CLOSE END * R P***************** R
0x3da084…3da218 Dummy {f00=0x011c, f01=0x0190, f02=» R P LC A2,OPEFCD,A9 FILE CODE S P ANK A2,/FF S * P RF(Z) OPEE25 NO CODE S > P LDK A5,0 TTAB AND CDTAB S $ P LD A1,DWTTAB,A11 USER TTAB ADDR S | P CF A14,FNDFDB S P LDR A2,A2 RET CD S P RF(Z) OPEE25 NO ENTRY S & P LDKL A7,FDBSTA SYSTEM
0x3da218…3da3ac Dummy {f00=0x011c, f01=0x0190, f02=» S P LDR A7,A9 T P SLL A7,1 WORDS T " P LDR A13,A11 SAVE FDB ADDRESS T 2 P LD A11,OPEFWT,A7 FDB ADDR T X P RF(Z) CLODEL NO FDB T z P LDKL A1,/C000 T P LDK A3,0 T & P CF A14,EARELB REL PROTECT BUFFERS T P ENB T P LC A5,FWTPAR,A11 T
0x3da3ac…3da540 Dummy {f00=0x011c, f01=0x0190, f02=»(NZ) TASHLT DM ERR T P EJECT U P* U ( P* RELEASE CURRENCY BUFFERS U 2 P* U V P LDKL A5,FDBCRL U ` P ADR A5,A11 LINK ROOT U x P LDR* A4,A5 U P CMR A5 CLEAR FDB U P RF RCRN20 U PRCRN10 EQU * U P LDR A4,A5 BUFFER ADDRESS U
0x3da540…3da6d4 (3, 557) Dummy {f00=0x011d, f01=0x0190, f02=» POOL U | P* V P INH V P LD A3,CRNQUE V $ P STR A3,A4 V : P ST A4,CRNQUE V L P ENB V b P RB RCRN10 V n P EJECT V PRMIX10 EQU * V P IFT INDXAC=1 V P* V P* RELEASE MASTER INDEX V P* V & P LD A1,OPEMXI,A7 MASTER INDE
0x3da6d4…3da868 Dummy {f00=0x011d, f01=0x0190, f02=»0 FIRST INDEX V " P RF(N) CLODEL NO MASTER INDEX W P CW A1,MXIND+2,A5 W < P RB(NE) RMIX20 W V P LD A4,MXIND,A5 W l & P RF(N) RMIX30 PREVIOUS ENTRY USED W " P LD A4,MXIND+4,A5 NO OF WORDS W P ANKL A4,/7FFF REMOV USE BIT W P ADS A4,MXIND,A5
0x3da868…3da9fc Dummy {f00=0x011d, f01=0x0190, f02=» P LDR A2,A1 X P SUK A2,4 TO ADDR X P LD A3,MXIND X 0 P SUR A3,A5 X D P SUK A3,2 NO OF CHAR X V P CF A14,MOVFW MOVE X r P RF CLODEL X PRMIX30 EQU * X P LDKL A4,/7FFF X & P ANS A4,MXIND+4,A5 REMOVE USE BIT X P XIF X P EJECT X
0x3da9fc…3dab90 Dummy {f00=0x011d, f01=0x018e, f02=»A7 LAST REC NR X P ST A1,FPB:FR,A12 Y P LD A1,OPELRN+2,A7 Y 0 P ST A1,FPB:FR+2,A12 Y J P LC A7,OPEFNR,A9 Y f P ANK A7,/FF Y ~ P RF(Z) CLDL20 NO FILE OPENED Y P ST A7,ECBFC-1,A8 FILE NR Y $ P ST A12,ECBBA,A8 PAR BLOCK ADDR Y & P CF A14,
0x3dab90…3dad24 Dummy {f00=0x011d, f01=0x0190, f02=» P ANK A7,/4F TEST MASK =5 Z P SUK A7,2 =5 Z $ @ P RF(Z) DELETE CLOSE DISCARD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x3dad24…3daeb8 Dummy {f00=0x011d, f01=0x4054, f02=» LDR A11,A13 MAIN FDB ADDRESS Z P ABL OPEE10 NEXT FILE [ & P END [ D@ [ PD,OPEN OUT SEQ OR OPEN OUT RAN =5 Z : P XIF =8 Z ~ P CF A14,FMIOCL CLOSE Z P IFT CRDEEX=1 =8 Z P RF CLDL10 Z PDELETE EQU * Z P CF A14,FMIODL DELETE Z
0x3daeb8…3db04c Dummy {f00=0x011d, 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
0x3db04c…3db1e0 Dummy {f00=0x011d, f01=0x0190, f02=»QU * P ST A4,-4,A14 SAVE A4 ] P LD A1,FDBSNR,A11 ] * $ P LD A2,FDBSNR+2,A11 REL SECT NR ] D P LDK A6,0 ] l P LDK A7,1 ] ~ P CF A14,DSUMOD ] P LDK A6,0 ] P LC A6,FDBBLZ,A11 BLOCK SIZE ] P CF A14,DIVMOD ] P LDR A6,A2 BLOCKS - 1
0x3db1e0…3db374 (3, 558) Opaque[0x194]
0x3db374…3db508 # DirEnt {nam=»SDMBUF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23b0, f03=0x0000}
0x3db374…3db508 IdxSect {
0x3db374…3db508 f00 = 0x011d // 0x3db374 @0x0
0x3db374…3db508 f01 = 0x000a // 0x3db376 @0x2
0x3db374…3db508 gno = [ // 0x3db378 @0x4
0x3db374…3db508 [0x00]: C0x011d.0x2.0
0x3db374…3db508 [0x01]: C0x011d.0x3.0
0x3db374…3db508 [0x02]: C0x011e.0x0.0
0x3db374…3db508 [0x03]: C0x011e.0x1.0
0x3db374…3db508 [0x04]: C0x011e.0x2.0
0x3db374…3db508 ]
0x3db374…3db508 }
0x3db508…3db69c Dummy {f00=0x011d, f01=0x0190, f02=» 2 P IDENT SDMBUF REL 11.0 81-01-26 870105041100 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* SDMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P*
0x3db69c…3db830 Dummy {f00=0x011d, f01=0x0190, f02=»SK n P* . P* A ROUTINE SDMGBU TO GET A DISC BUFFER P* F L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL P P* P* MAX VALUE OF QNBUF IS 16 P* P* P EJECT P* P**************
0x3db830…3db9c4 Dummy {f00=0x011d, f01=0x0190, f02=»K x P ENTRY BUFDMI DMTASK IDENT P ENTRY BUFSNR SECTOR NO , P ENTRY BUFOR ORDER L * P ENTRY BUFSTA DATA AREA START ADDRESS f P ENTRY SDMGBU GET A BUFFER " P ENTRY SDMRBU RELEASE A BUFFER $ P ENTRY BLKMXL MAXIMUM BLOCK SIZE * P ENT
0x3db9c4…3dbb58 Dummy {f00=0x011d, f01=0x0190, f02=» ENTRY CRNEND P ENTRY MXIND P* * P EXTRN HALT 4 P EXTRN FDBSTA H P EXTRN SCTFWT ^ P EXTRN ECBBA t P EJECT P* P* CONDITIONAL ASSEMBLY P* PX:A EQU 8 PX:B EQU 128 * PQNBUF EQU 00004 NUMBER OF
0x3dbb58…3dbcec Dummy {f00=0x011d, f01=0x018e, f02=» IN WORDS b 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* J PX:C EQU 90 T " PCRNBAR EQU 00108 CURRENCY AREA f P* 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN P* WORDS P* PX:D EQU 0 & PMXSIZ EQU
0x3dbcec…3dbe80 Dummy {f00=0x011d, f01=0x0190, f02=» v PCRBUFL EQU 8 P XIF P EJECT ( P* 6 P************** @ P* SDMGBU * V P************** l P* * P* ENTRY SDMGBU GET A DISC BUFFER P* P* INPUT A3 = FILE NR " P* A1 = SECTOR NUMBER $
0x3dbe80…3dc014 (3, 559) Dummy {f00=0x011d, f01=0x018e, f02=»* A5=USED P* P* P* ALL BUFFERS ARE SEARCED. ( 6 P* ONE BUFFER IS SELECTED IN FOLLOWING PRIORITY : L P* , P* 1. USED BUFFER IN REQ FILE ( DELAY) P* 2. REQ FILE AND SECT NR P* 3. OLDEST UNUSED P*
0x3dc014…3dc1a8 Dummy {f00=0x011d, f01=0x0190, f02=» . P* BUFOR BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE 6 P* BUFSTA= BLOCK AREA P* z P* P EJECT PSDMGBU EQU * P STR A7,A14 SAVE A7 P INH INH P LD A4,CURBUF P LDK A5,0 PDM
0x3dc1a8…3dc33c Dummy {f00=0x011d, f01=0x0190, f02=»A4 P RF(Z) DMT015 FREE P SLL A7,1 $ P SC A7,BUFOR,A4 MARK DELAY 6 PDMT015 EQU * X P CW A1,BUFSNR,A4 l P RF(NE) DMT020 P CW A2,BUFSNR+2,A4 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A4 MARK SAME
0x3dc33c…3dc4d0 Dummy {f00=0x011d, f01=0x0190, f02=»A7,BUFLNK,A4 STATUS IN BIT 15 P RF(NZ) DMT030 USED & P IM BUFOR,A4 MAKE OLDER B $ P SC A7,BUFOR,A4 CLEAR LEFT BYTE b PDMT030 EQU * P CW A5,BUFOR,A4 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A4 P ST A4,NEWBUF PDMT0
0x3dc4d0…3dc664 Dummy {f00=0x011d, f01=0x0190, f02=» IT IS EMPTY f P* $ P LD A4,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 F P LDR A5,A5 X P RF(Z) DMT042 NO BUFFER j P ANK A5,/3 P RF(Z) DMT043 NO DATA & P LDK A3,0 INDICATE DATA IN BUFFER P ANK A5,/2 P RF(NZ) DMT051 DEL
0x3dc664…3dc7f8 Dummy {f00=0x011d, f01=0x0190, f02=»T043 EQU * P* * P* SET CURBUF AND BUFFER HEADER WORDS P* J P ST A3,BUFDMI,A4 DMIDENT,FC T " P ST A1,BUFSNR,A4 SECTOR NUMBER x P ST A2,BUFSNR+2,A4 * P LDK A3,1 INDICATE BUFFER MUST BE READ PDMT050 EQU * " P CM BUFOR,A4 R
0x3dc7f8…3dc98c Dummy {f00=0x011d, f01=0x0190, f02=» P LDR* A7,A14 SAVED REGISTER P ENB ENB ( P RTN A14 : P EJECT J P* X P************** b P* SDMRLB * x P************** P* P* ENTRY: A8=ECB ADDRESS P* P* EXIT : A8=NOT CHANGED $ P* A4=BLOC
0x3dc98c…3dcb20 Dummy {f00=0x011d, f01=0x0190, f02=»************ P* SDMRBU * P************** * P* @ . P* ENTRY SDMRBU RELEASE A DISC BUFFER J P* | $ P* INPUT A4 = BUFFER ADDRESS P* A2 IS DESTROYED P* P* PSDMRBU EQU * P IFT CHECK=1
0x3dcb20…3dccb4 (3, 560) Dummy {f00=0x011e, f01=0x0190, f02=»,CURBUF P RB(NE) SDMR10 P LDR A2,A2 & PSDMR20 EQU * 8 P XIF L P LDKL A2,/FFFE X P ANRS A2,A4 SET OFF BIT 15 n P RTN A14 P EJECT P************** P* CLRBUF * P************** P P* A2,A3 = DESTRO
0x3dccb4…3dce48 Dummy {f00=0x011e, f01=0x0190, f02=»FE P LDK A2,1 P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED 4 P CM BUFDMI,A3 REMOVE P PDMT750 CW A3,CURBUF l P RB(NE) DMT700 MORE BUFFERS P ENB P RTN A14 P EJECT P* P* PCURBUF DATA BUF1 PNEWBUF
0x3dce48…3dcfdc Dummy {f00=0x011e, f01=0x018e, f02=» P DATA 0 PBUFSNR EQU *-BUF1 SECTOR NO P DATA 0 8 P DATA 0 H PBUFOR EQU *-BUF1 LRU-WORD X " P DATA 0 BUFFER STATUS,DM ORDER z ( PBUFSTA EQU *-BUF1 DATA BUFFER START PBUFAR EQU * P RES BLKMXL P* P* P
0x3dcfdc…3dd170 Dummy {f00=0x011e, f01=0x0190, f02=» P RES BLKMXL P XIF P* $ P* . P IFT QNBUF=2 8 PBUF3 EQU BUF1 L P XIF b P* n P* x P IFF QNBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0,0 P RES BLKMXL P XIF P* P*
0x3dd170…3dd304 Dummy {f00=0x011e, f01=0x0190, f02=»BUF4 DATA BUF5 P DATA 0,0,0,0 P RES BLKMXL , P XIF @ P* L P* V P IFT QNBUF=4 ` PBUF5 EQU BUF1 t P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 PBUF5 DATA BUF6
0x3dd304…3dd498 Dummy {f00=0x011e, f01=0x0190, f02=»* P* P IFF QNBUF=1 P IFF QNBUF=2 ( P IFF QNBUF=3 < P IFF QNBUF=4 P P IFF QNBUF=5 d PBUF6 DATA BUF7 x P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT QNBUF=6 PBUF7 EQU BUF1 P XIF
0x3dd498…3dd62c Dummy {f00=0x011e, f01=0x018e, f02=»=6 PBUF7 DATA BUF8 P DATA 0,0,0,0 P RES BLKMXL 6 P XIF J P* V P* ` P IFT QNBUF=7 j PBUF8 EQU BUF1 ~ P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P IFF
0x3dd62c…3dd7c0 Dummy {f00=0x011e, f01=0x0190, f02=» P* P IFT QNBUF=8 PBUF9 EQU BUF1 & P XIF < P* H P* R P IFF QNBUF=1 P IFF QNBUF=2 p P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 PBUF9 DATA BU
0x3dd7c0…3dd954 (3, 561) Dummy {f00=0x011e, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T P IFF QNBUF=5 h P IFF QNBUF=6 | P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0,0 P RES BLKMXL
0x3dd954…3ddae8 Dummy {f00=0x011e, f01=0x0190, f02=»FF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 & P IFF QNBUF=6 : P IFF QNBUF=7 N P IFF QNBUF=8 b P IFF QNBUF=9 v P IFF QNBUF=10 PBUF11 DATA BUF12 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=11 PBUF1
0x3ddae8…3ddc7c Dummy {f00=0x011e, f01=0x0190, f02=»NBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 " P IFF QNBUF=8 6 P IFF QNBUF=9 J P IFF QNBUF=10 ^ P IFF QNBUF=11 t PBUF12 DATA BUF13 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=12 PBUF13 EQU BUF1 P XIF
0x3ddc7c…3dde10 Dummy {f00=0x011e, f01=0x0190, f02=»UF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 4 P IFF QNBUF=10 H P IFF QNBUF=11 ^ P IFF QNBUF=12 t PBUF13 DATA BUF14 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=13 PBUF14 EQU BUF1 P XIF
0x3dde10…3ddfa4 Dummy {f00=0x011e, f01=0x0190, f02=»UF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 4 P IFF QNBUF=10 H P IFF QNBUF=11 ^ P IFF QNBUF=12 t P IFF QNBUF=13 PBUF14 DATA BUF15 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=14 PBUF1
0x3ddfa4…3de138 Dummy {f00=0x011e, f01=0x0190, f02=»NBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 " P IFF QNBUF=8 6 P IFF QNBUF=9 J P IFF QNBUF=10 ^ P IFF QNBUF=11 t P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 PBUF15 DATA BUF16 P DATA 0,0,0,0 P RES BLKMXL
0x3de138…3de2cc Dummy {f00=0x011e, f01=0x0190, f02=»FF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 & P IFF QNBUF=6 : P IFF QNBUF=7 N P IFF QNBUF=8 b P IFF QNBUF=9 v P IFF QNBUF=10 P IFF QNBUF=11 P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF=15
0x3de2cc…3de460 Dummy {f00=0x011e, f01=0x0190, f02=» t P IFF CRNBAR=0 P RES CRNBAR P XIF 2 P IFT CRNBAR=0 > P RES 6 DEFAULT T P XIF j PCRNEND EQU * v * PMXIND DATA MXINDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE P IFF M
0x3de460…3de5f4 (3, 562) Dummy {f00=0x011e, f01=0x0190, f02=»NDEX INDEX ~ 2 P DATA 0,0 SIGNIFICANT ZEROES AFTER INDEXINDEX PMXAR EQU * H P RES MXSIZ Z P EJECT l P* z : P* THIS INITIALIZATION ROUTINE BELONGS TO SDMINI, BUT . P* IS OVERLAYED ON THE FIRST BLOCK BUFFER P* PDMIFIN EQU
0x3de5f4…3de788 Dummy {f00=0x011e, f01=0x0190, f02=» LD A3,SCTFWT ADDR FIRST FWT & P ST A3,FDBSTA QUEUE FIRST FOR EVER $ P* N P* CHAIN CRN BUFFERS X P* v P LDKL A3,CRNQUE+2 P ST A3,CRNQUE P LDK A2,CRBUFL P LDKL A6,CRNEND P CF A15,DMIN30 P* < P* CLEAR
0x3de788…3de91c Dummy {f00=0x011e, f01=0x0190, f02=»NRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM BUFSNR,A3 6 P CM BUFSNR+2,A3 L P CM BUFOR,A3 d P CW A3,CURBUF x P RB(NE) DMIN50 P RTN A15 RETURN P EJECT P* P* P* IN; A2 = LENGTH P* A3= LINK
0x3de91c…3deab0 Dummy {f00=0x011e, f01=0x4174, f02=»* P LDR A5,A4 ! P SRL A5,1 ! P LDR A1,A6 ! . P SRL A1,1 ! @ P CWR A5,A1 ! R " P RF(G) DMIN40 END OF FDB AREA ! d P STR A4,A3 CHAIN ! P LDR A3,A4 ! P RB DMIN30 ! PDMIN40 EQU * ! P SUR A3,A2 ! P CMR A3 END OF FDB CHAIN !
0x3deab0…3dec44 Dummy {f00=0x011e, 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
0x3dec44…3dedd8 Dummy {f00=0x011e, f01=0x0190, f02=»* P* P**************** P* RETURN CODES * , P**************** D P* P* f $ PRC:NVL EQU /20 NEW VOLUME LOADED p $ PRC:DAB EQU /4000 DELETE ABORTED PRC:OFL EQU /10 OVER FLOW 4 PRC:SEO EQU /200+RC:OFL SECTION /EXTENT O
0x3dedd8…3def6c Dummy {f00=0x011e, f01=0x0190, f02=» P* 0 PSEXTNO DATA 0 FILE SECTION AND EXTENT NUMBER 0 PSAVEA9 DATA 0 SAVE AREA FOR USER ECB ADDRESS F P* z P* . P* A9 IS USED AS BASE REGISTER FOR WRKARE P* P* PWRKARE EQU * P DATA 0,0,0,0,0 VTOC RECORD
0x3def6c…3df100 Dummy {f00=0x011e, f01=0x0190, f02=»JECT FMCDEF P* P* : PFILLEN EQU *-WRKARE FILE SECTION LENGTH TO BE CREATED ( P DATA 0,0 f ( PVTCSEC EQU *-WRKARE VTOC BASE SECTOR x P DATA 0 , PFSATLE EQU *-WRKARE FSAT LENGTH IN BYTES P DATA 0 ( PVTCEND EQU *-WRKARE
0x3df100…3df294 (3, 563) Opaque[0x194]
0x3df294…3df428 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be8, f03=0x0000}
0x3df294…3df428 IdxSect {
0x3df294…3df428 f00 = 0x00df // 0x3df294 @0x0
0x3df294…3df428 f01 = 0x0002 // 0x3df296 @0x2
0x3df294…3df428 gno = [ // 0x3df298 @0x4
0x3df294…3df428 [0x00]: C0x00df.0x1.0
0x3df294…3df428 ]
0x3df294…3df428 }
0x3df428…3df5bc Dummy {f00=0x00df, f01=0x0190, f02=» 0 P IDENT DFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x3df5bc…3df750 Dummy {f00=0x00df, f01=0x416e, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P ENTRY DFTABL @ P* V PDFTAB EQU * ` P DATA /F0F1 t P DATA /F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * PDMTIDP EQU * " P DATA /0000,/0000,/0202,/0202 PDMTI
0x3df750…3df8e4 Dummy {f00=0x00df, 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*
0x3df8e4…3dfa78 Dummy {f00=0x00df, f01=0x0190, f02=»******************************************** P* 4 , P* THIS MODULE IS ACTIVATED FROM TIODM. > P* n P* INPUT PARAMETERS: x P* A1 = FDB ADDRESS < P* A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED P* D P* THE BLOC
0x3dfa78…3dfc0c Dummy {f00=0x00df, f01=0x018e, f02=» PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT < 8 P* THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER. P* P EJECT P* P*************** P* ENTRIES
0x3dfc0c…3dfda0 Dummy {f00=0x00df, f01=0x0190, f02=» ^ P ENTRY SDMERX,ORDFLP P EJECT $ P* 2 P***************** < P* EXTERNALS * V P***************** p P* P* P P* DEFINED IN TDISP , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK P P* DEFINED IN TOS
0x3dfda0…3dff34 (3, 564) Opaque[0x194]
0x3dff34…3e00c8 # DirEnt {nam=»ARITMS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2230, f03=0x0000}
0x3dff34…3e00c8 IdxSect {
0x3dff34…3e00c8 f00 = 0x0111 // 0x3dff34 @0x0
0x3dff34…3e00c8 f01 = 0x0008 // 0x3dff36 @0x2
0x3dff34…3e00c8 gno = [ // 0x3dff38 @0x4
0x3dff34…3e00c8 [0x00]: C0x0111.0x2.0
0x3dff34…3e00c8 [0x01]: C0x0111.0x3.0
0x3dff34…3e00c8 [0x02]: C0x0112.0x2.0
0x3dff34…3e00c8 [0x03]: C0x0117.0x0.0
0x3dff34…3e00c8 ]
0x3dff34…3e00c8 }
0x3e00c8…3e025c Dummy {f00=0x0111, f01=0x018e, f02=» 2 P IDENT ARITMS REL 11.0 81-04-02 870105041100 P : . P =1,MPYMOD DESTROYED A3 WHEN MULT WITH 0 B P =1,REL 11.0 81-01-26 t P* 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x3e025c…3e03f0 Dummy {f00=0x0111, f01=0x0190, f02=» P* P* 8 P**************************************************** < P* THIS MODULE EXECUTES THE DOUBLE ADDITION INSTRUCTION X P* P* CALLING SEQUENCE: P* CF A14,ADDMOD P* P* INPUT: A1,A2 = ARG1 P*
0x3e03f0…3e0584 Dummy {f00=0x0111, f01=0x0190, f02=» 8 P**************************************************** P* @ @ P* THIS ROUTINE EXECUTES THE DOUBLE SUBTRACTION INSTRUCTION J P* P* CALLING SEQUENCE: P* CF A14,DSUMOD P* P* INPUT: A1,A2 = ARG1 P* A
0x3e0584…3e0718 Dummy {f00=0x0111, f01=0x0190, f02=»************************************ P* , 6 P* THIS ROUTINE EXECUTES THE MULTIPLY INSTRUCTION 6 P* CALLING SEQUENCE: p P* CF A14,MPYMOD P* P* INPUT: A6 = ARG1 P* A7 = ARG2 P* P* OUTPUT: A1,A2
0x3e0718…3e08ac Dummy {f00=0x0111, f01=0x0190, f02=»E DIVIDE INSTRUCTION v P* P* CALLING SEQUENCE & P* CF A14,DIVMOD @ P* X " P* INPUT: A1,A2 = DIVIDENT b P* A6 = DIVISOR P* " P* OUTPUT: A1 = REMAINER " P* A2 = QUOTIENT P*
0x3e08ac…3e0a40 Dummy {f00=0x0111, f01=0x0190, f02=» P* P* . P***************************************** P* N P* CONDITIONAL ASSEMBLY X P* v . P***************************************** P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED
0x3e0a40…3e0bd4 (3, 565) Dummy {f00=0x0111, f01=0x0190, f02=» z P* PX:A EQU 0 PMPYDIV EQU 00000 $ P* < P* F 6 PSETCR EQU /1200 ADK A2,0 ;SET CR WITHOUT OVERFLOW P : PSETCRO EQU /9A09 NGR A2,A2 ;SET CR INCLUDING OVERFLOW P* P EJECT P* P* P IFT CPU852=0
0x3e0bd4…3e0d68 Dummy {f00=0x0111, f01=0x0190, f02=» P* PDSUMOD EQU * P ADKL A14,4 STACK POINTER " P DSR A6 D ( P ABR* A14 RETURN WITH CONDITIONS SET T P XIF P IFT CPU852=1 PADDMOD EQU * P ANKL A7,/7FFF P ANKL A2,/7FFF P ADR
0x3e0d68…3e0efc Dummy {f00=0x0111, f01=0x0190, f02=» END1 P RF(N) END2 P RF(O) END3 , PANOVR1 ADK A2,0 J P RF(Z) END0 h P RF END1 PAOVER1 ANKL A2,/7FFF P ADK A1,1 P RF(O) AOVER3 P RB ANOVER P
0x3e0efc…3e1090 Dummy {f00=0x0111, f01=0x018e, f02=» P* P EJECT ADDMOD P* $ P* . PEND3 EQU * OVERFLOW 8 P LDK A7,/80 T PEND2 EQU * NEGATIVE h P ADK A7,/80 PEND1 EQU * POSITIVE P ADK A7,/80 PEND0 EQU * ZERO P SLL A7,1 P LDKL A6,/FCFF * P
0x3e1090…3e1224 Dummy {f00=0x0111, f01=0x0190, f02=» P* P* PDSUMOD EQU * P C1R A6,A6 0 P C1R A7,A7 P P ANKL A7,/7FFF p P ANKL A2,/7FFF P ADK A7,1 P RF(P) DNOVR1 P ADK A6,1
0x3e1224…3e13b8 Dummy {f00=0x0111, f01=0x0190, f02=» A1,A6 PDNOVR2 EQU * P LDK A7,0 & P RB(P) END1 8 P RB(N) END2 L P RB(O) END3 j P ADK A2,0 P RB(Z) END0 P RB END1 PDOVER1 ANKL A2,/7FFF P ADK
0x3e13b8…3e154c Dummy {f00=0x0111, f01=0x0190, f02=» A1,0 P RB DNOVR2 P* $ P XIF . P IFT MPYDIV=0 : P IFT CPU852=1 P P EJECT f PMPYMOD EQU * t P ST A3,2,A14 SAVE A3 $ P ADKL A14,4 UPDATE STACK POINTER P LDK A1,0 CLEAR RESULT P LDK A2,0 P
0x3e154c…3e16e0 Dummy {f00=0x0111, f01=0x018e, f02=» GET SIGN P ANKL A3,/8000 SIGN BIT P ORK A3,16 BIT COUNTER 2 P ADK A7,0 P P RF(Z) END000 RESULT=0 =1 b P RF(NN) ARG2PS ARG2 POSITIVE P NGR A7,A7 PARG2PS SRC A7,1 P RF(NN) MNOVR1 BIT NOT SET P ADR
0x3e16e0…3e1874 (3, 566) Dummy {f00=0x0112, f01=0x0190, f02=» P SRC A1,1 P RB(NN) ARG2PS " P ORKL A2,/8000 8 P ANKL A1,/7FFF Z P RB ARG2PS | P* P EJECT MPYMOD P* P* PEND000 EQU * =1 P LDK A3,0 SET SIGN =1 PMNOVR2 EQU *
0x3e1874…3e1a08 Dummy {f00=0x0112, f01=0x0190, f02=»1,A1 RESET A1 P SRL A2,1 A2 IN POSITION P ADK A6,0 6 P RF(NN) END POSITIVE H ( P NGR A2,A2 CHANGE RESULT TO NEGATIVE d P RF(O) MNOVR4 P RF(N) MNOVR4 P SUK A1,1 PMNOVR4 EQU * P ANKL A2,/7FFF P C1R A1,A1
0x3e1a08…3e1b9c Dummy {f00=0x0112, f01=0x0190, f02=»2,1 4 P ADK A1,0 *SIGN OF DIVIDEND P RF(NN) DIVENP D . P ORKL A3,/A000 INDICATE NEGATIVE DIVIDENT f P C1R A1,A1 P C1R A2,A2 P ADK A2,1 P RF(NZ) DIVENP
0x3e1b9c…3e1d30 Dummy {f00=0x0112, f01=0x0190, f02=» P RF(Z) ENDOVE OVERFLOW P RF(NN) DIVORP " . P XRKL A3,/C000 NEG DIVISOR,SIGN OF RESULT D P NGR A6,A6 v P RF(O) DV8000 A6=/8000 P* P EJECT DIVMOD P* P* PDIVORP EQU * P CWR A1,A6 P RF(G) E
0x3e1d30…3e1ec4 Dummy {f00=0x0112, f01=0x0190, f02=» ADK A1,0 P RF(N) DVR100 NEGATIVE P CWR A1,A6 0 P RF(L) DVR200 TOO SMALL B PDVR100 EQU * b P SUR A1,A6 DIVIDE v P ORK A2,1 RESULT PDVR200 EQU * P SUK A3,1 BIT COUNTER P CCK A3,0 P RF(Z) END:00 ALL BITS DONE
0x3e1ec4…3e2058 Dummy {f00=0x0112, f01=0x0190, f02=» P RB DVR000 NEXT P* P EJECT DIVMOD & P* < P* F 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS P P* PDV8000 EQU * P XRR A1,A2 P XRR A2,A1 P XRR A1,A2 P SRL A1,1 PEND:00 EQU * SET SIGN
0x3e2058…3e21ec Dummy {f00=0x0112, f01=0x0190, f02=»TIVE v PEND:05 EQU * P NGR A1,A1 DIVIDENT NEGATIVE PEND:10 EQU * D P NGR A2,A2 X P LD A3,2,A14 RESTORE A3 j $ P ADKL A14,4 UPDATE STACK POINTER P EXR A6 SET CR P ABR* A14 PENDOVE EQU * $ P LDKL A2,/8000 INDICATE OV
0x3e21ec…3e2380 Dummy {f00=0x0112, f01=0x0190, f02=»POSITIVE x P RB END:05 P XIF " P IFT MPYDIV=0 . P IFT CPU852=0 D P EJECT Z PMPYMOD EQU * h $ P ADKL A14,4 UPDATE STACK POINTER | P LDR A2,A7 P MUR A6 P ABR* A14 P EJECT PDIVMOD EQU * $ P ADKL A14,4 UP
0x3e2380…3e2514 (3, 567) Dummy {f00=0x0117, f01=0x4062, f02=»QU * P LDK A1,/11 P CF A15,HALT P XIF 4 P* @ P END J@ ^
0x3e2514…3e26a8 Dummy {f00=0x0117, 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
0x3e26a8…3e283c Dummy {f00=0x0117, f01=0x0190, f02=» 0 P IDENT DFTAB REL 11.0 81-01-26 870105041100 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x3e283c…3e29d0 Dummy {f00=0x0117, f01=0x4164, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P ENTRY DFTABL @ P* V PDFTAB EQU * ` P DATA /F0F1 t P DATA /F2F3 P DATA /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFC P DATA /FDFD PDFTABE EQU *
0x3e29d0…3e2b64 Dummy {f00=0x0117, 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*
0x3e2b64…3e2cf8 Dummy {f00=0x0117, f01=0x2008, f02=»
0x3e2cf8…3e2e8c Dummy {f00=0x0117, f01=0x0190, f02=»IN FREE QUEUE IS REMOVED. t P* " 8 P* IF THERE IS NO FREE PAGES, PAGE ERROR , > P* IS INDICATED AND THE REQUEST IS TERMINATED. h P* P XIF P IFF MMUPAG=1 P* . P* THE LAST PAGE IS REMOVED FROM FREE QUE
0x3e2e8c…3e3020 Dummy {f00=0x0117, f01=0x0190, f02=» THE LOGICAL ADDRESS TO PAGE IS STORED IN , P* SECOND WORD IN PAGE BLOCK < < P* IF A SEGMENT IS ATTACHED TO THE PAGE,BIT 0 l < P* (SEGMENT LOADED IN CORE) IN STATUS WORD IN , P* SEGMENT BLOCK
0x3e3020…3e31b4 (3, 568) Opaque[0x194]
0x3e31b4…3e3348 # DirEnt {nam=»TIOSDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1bf0, f03=0x0000}
0x3e31b4…3e3348 IdxSect {
0x3e31b4…3e3348 f00 = 0x00df // 0x3e31b4 @0x0
0x3e31b4…3e3348 f01 = 0x0010 // 0x3e31b6 @0x2
0x3e31b4…3e3348 gno = [ // 0x3e31b8 @0x4
0x3e31b4…3e3348 [0x00]: C0x00df.0x2.0
0x3e31b4…3e3348 [0x01]: C0x010f.0x3.0
0x3e31b4…3e3348 [0x02]: C0x0110.0x0.0
0x3e31b4…3e3348 [0x03]: C0x0110.0x1.0
0x3e31b4…3e3348 [0x04]: C0x0110.0x2.0
0x3e31b4…3e3348 [0x05]: C0x0110.0x3.0
0x3e31b4…3e3348 [0x06]: C0x0111.0x0.0
0x3e31b4…3e3348 [0x07]: C0x0111.0x1.0
0x3e31b4…3e3348 ]
0x3e31b4…3e3348 }
0x3e3348…3e34dc Dummy {f00=0x00df, f01=0x0190, f02=» 2 P IDENT TIOSDM REL 11.0 81-02-26 870105041100 P : 6 P =4,MOVE KEY WHEN DELETE,REWRITE DIRECT INDEXED B P =4,REL 11.0 81-02-24 | : P =3,SKIP BITS 1-4 IN ORDER WHEN WRITE,DELETE,REWRITE P =3,REL 11.0 81-02-12 0 P =2,CLOSE D.
0x3e34dc…3e3670 Dummy {f00=0x00df, f01=0x0190, f02=»1-26 | 8 P**************************************************** P* H $ P* PHILIPS TERMINAL SYSTEM PTS R P* z : P* TIOSDM = STANDARD DATA MANAGEMENT ACTIVATION PART P* P* P* P* P* P* 8 P**********
0x3e3670…3e3804 Dummy {f00=0x00df, f01=0x0190, f02=»D THE DWTADR IN FDB FOR CURRENT FILE P* , H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR 6 $ P* FROM A DISC MUST BE ACCESSED P* > P* ENTRY TIOSDM AND TIOSDM HOLDS THE START ADDRESS P* P*
0x3e3804…3e3998 Dummy {f00=0x00df, f01=0x0190, f02=» P EJECT TIOSDM P* 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT ( P* b 4 P* THE FOLLOWING WORDS WILL BE SET IN THE FDB: l & P* FDBSNR SECTOR NUMBER IN FILE 0 P* FDBRRO RELATIVE RECORD OFFSET IN BLOCK . P* FD
0x3e3998…3e3b2c Dummy {f00=0x00df, f01=0x018e, f02=»ION IS DETECTED THE ERROR RETURN WILL BE: z P* LDKL A1,/<RETURN CODE> 2 P* ABL DISEND V P* p P* z P EJECT P* P************** P* ENTRIES * P************** P* & P ENTRY TIOSDM REFERENCED IN DWTA
0x3e3b2c…3e3cc0 Dummy {f00=0x00df, f01=0x018e, f02=» P* P****************** P* EXTERNALS * , P****************** F P* ` P EXTRN FDBRRO j P EXTRN FDBRLE P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBNIF,FDBKA,FDBADF P EXTRN FDBAI1,CRNCDF,CRNSTA 6 P
0x3e3cc0…3e3e54 (3, 569) Dummy {f00=0x010f, f01=0x0190, f02=» P EXTRN SCTTCT P EXTRN RELPRO P EXTRN ACTOT 0 P EXTRN DISEND D P EXTRN DWTECB ECB ADDRESS Z $ P EXTRN DWTOR DWT INDEX AND ORDER | & P EXTRN DWTTAB DM TASK TTAB ADDRESS P EXTRN SDMTSK P EXTRN CALSNO " P EXTRN ECBBA,E
0x3e3e54…3e3fe8 Dummy {f00=0x010f, f01=0x0190, f02=» P EXTRN FDBEXC,MOVUS ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EXTRN DMACTI,DMACTD L P EXTRN DISIOE h P EXTRN TTABD,TTABLN,TABEND ~ P* P EJECT P* P************************ P* CONDITIONAL ASSEMBLY * P******
0x3e3fe8…3e417c Dummy {f00=0x010f, f01=0x018e, f02=»EQU 1 z * P* INDXAC EQU 0 OTHRERWISE PX:A EQU 0 < PINDXAC EQU 00001 N P* f P* p . P* A PROGRAM VERSION USING TOSS MMU PAGING z * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P EJECT
0x3e417c…3e4310 Dummy {f00=0x010f, f01=0x018e, f02=» PRQERR EQU /8000 P EJECT P* * P************************ 4 P* DATA DEFINITIONS * T P************************ t P* P* BRANCH TABLE P* PTIODMF EQU * P IFT INDXAC=1 P DATA OPEN P DATA OPEN
0x3e4310…3e44a4 Dummy {f00=0x010f, f01=0x0190, f02=» z P DATA CLOSED P DATA CLOSE P DATA RDFIPA 0 PSDMOEX EQU *-TIODMF D P DATA DISIOE NOT USED ` P* ~ P EJECT TIOSDM P* P* PQWRSQ0 EQU *-TIODMF P DATA WRSQ00 P DATA DISIOE NOT ALLOWED P DATA
0x3e44a4…3e4638 Dummy {f00=0x010f, f01=0x0190, f02=»ATA DECUIX P DATA DEDI00 P DATA DEDIIX & PQRDSQ0 EQU *-TIODMF : P DATA RDSQ00 V P DATA RDSQIX j P DATA RDRN00 ~ P DATA RDRNIX P DATA STEQ00 P DATA STEQIX PQSTG00 EQU *-TIODMF P DATA STGR00 PQSTGIX EQU
0x3e4638…3e47cc Dummy {f00=0x010f, f01=0x0190, f02=» P DATA OPEN P DATA OPEN P DATA OPEN ( P DATA OPEN : P DATA OPEN L P DATA OPEN ^ P DATA OPEN p PQCLDIS EQU *-TIODMF P DATA CLOSE P DATA CLOSE P DATA RDFIPA PSDMOEX EQU *-TIODMF P DATA DISIOE NOT U
0x3e47cc…3e4960 Dummy {f00=0x010f, f01=0x0190, f02=» x P DATA WRRN00 P DATA DISIOE NOT ALLOWED P DATA RWCU00 < P DATA DISIOE NOT ALLOWED P P DATA RWDI00 p P DATA DISIOE NOT ALLOWED P DATA DECU00 P DATA DISIOE NOT ALLOWED P DATA DEDI00 P DATA DISIOE NOT ALLOWED
0x3e4960…3e4af4 (3, 570) Dummy {f00=0x0110, f01=0x0190, f02=» DATA STEQ00 P DATA DISIOE NOT ALLOWED PQSTG00 EQU *-TIODMF 4 P DATA STGR00 P P DATA DISIOE NOT ALLOWED d P DATA STNL00 P DATA DISIOE NOT ALLOWED P XIF P* P EJECT TIOSDM P* P********** P* OPEMOD
0x3e4af4…3e4c88 Dummy {f00=0x0110, f01=0x018e, f02=»1 P* 1 NOT USED =1 P* 2 START NOT LESS =1 " P* 3 START GREATER =1 @ P* 4 START EQUAL =1 P* 5 READ RANDOM =1 v P* 6 READ SEQUENTIAL =1 P* 7 DELETE DIRECT =1 P* 8 DELETE CURRENT =1 P* 9 REWRITE DIRECT =1 P*
0x3e4c88…3e4e1c Dummy {f00=0x0110, f01=0x0190, f02=» | P* 15 NOT USED =2 P* " POPEMOD EQU * , P DATA /3E00 INPUT UNPROT. =2 @ " P DATA /3E00 INPUT PROTECTED =2 d " P DATA /3E00 INPUT EXCLUSIVE =2 & P DATA /3FF8 INPUT/OUTPUT PROT. =2 & P DATA /3FF8 INPUT/OUTPUT EXCL. =2 $ P DAT
0x3e4e1c…3e4fb0 Dummy {f00=0x0110, f01=0x018e, f02=» P* P********** P* ORDTA1 * $ P* ORDTA2 * 6 P* ORDTA3 * H P********** Z P* l P* v P* : P* ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX) J P* ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN
0x3e4fb0…3e5144 Dummy {f00=0x0110, f01=0x0190, f02=» P* PORDTA1 EQU * ( P DATA /821 OPEN INPUT UNPROTECTED " PSDMOIP EQU *-ORDTA1 N & P DATA /921 OPEN INPUT PROTECTED j PSDMOIE EQU *-ORDTA1 & P DATA /A21 OPEN INPUT EXCLUSIVE PSDMIOP EQU *-ORDTA1 . P DATA /3921 OPEN
0x3e5144…3e52d8 Dummy {f00=0x0110, f01=0x0190, f02=» EXCLUSIVE v PSDMOOS EQU *-ORDTA1 4 P DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE . PSDMOOR EQU *-ORDTA1 f 4 P DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE PSDMLIM EQU *-ORDTA1 P DATA /222 CLOSE DISCARD P DATA /022 CLOSE
0x3e52d8…3e546c Dummy {f00=0x0110, f01=0x0190, f02=» DATA /106 WRITE RANDOM P DATA /407 REWRITE CURRENT P DATA /107 REWRITE DIRECT B P DATA /408 DELETE CURRENT d P DATA /108 DELETE DIRECT PORDTL2 EQU *-ORDTA2 P EJECT PORDTA3 EQU * P DATA /002 READ SEQUENTIAL P D
0x3e546c…3e5600 Dummy {f00=0x0110, f01=0x0190, f02=»-ORDTA3 PORDTEN EQU * P* $ P* . P EJECT TIOSDM 8 P* N P************ X P* ENTRY l P************ ~ P* $ P* INPUT : A14 = STACK POINTER " P* A8 = ECB ADDRESS " P* A6 = FDB ADDRESS
0x3e5600…3e5794 (3, 571) Dummy {f00=0x0110, f01=0x0190, f02=»ER AND OPTION t P LDK A3,ORDTL3-2 & P LD A7,DWTOR,A11 ORDER AND OPTION . P LDR A1,A7 X P ANKL A7,/7FF NOT INDEX j P CF A14,CHKORD P RF(N) TIOS10 NOT IN TABLE P SLL A3,1 & P ADK A3,QRDSQ0 ADJUST DISPLACEMENT P SRL A1,11
0x3e5794…3e5928 Dummy {f00=0x0110, f01=0x0190, f02=»B ADDRESS P ABL DISIOE REQUEST IO P* 0 P EJECT TIOSDM : P* P P* Z P* d PTIOS10 EQU * n " P LDK A3,ORDTL2-2 TABLE LENGTH P* LDR A7,A1 =3 P CF A14,CHKORD $ P RF(N) TIOS25 ORDER NOT IN TABLE P SLL A3,1
0x3e5928…3e5abc Dummy {f00=0x0110, f01=0x0190, f02=» * P ADK A3,2 INDICATE INDEXED * PTIOS20 EQU * CHECK ORDER VS OPEN MODE , $ P LC A1,FDBOMD,A11 GET OPEN MODE Z P ANK A1,/7F P AN A2,OPEMOD,A1 P RB(Z) REQERR ILLEGAL ORDER P RF TIOS30 P* PTIOS25 EQU * & P LDR A
0x3e5abc…3e5c50 Dummy {f00=0x0110, f01=0x0190, f02=» TIOSDM P* P* PTIOS30 EQU * $ P LDR A10,A3 8 P SC A3,DWTOR+1,A11 L 4 P LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS f P SUK A3,QCLDIS CLOSE DISCARD P RF(N) TIOS35 OPEN ORDER P CWK A11,FDBSTA P RB(E) REQERR
0x3e5c50…3e5de4 Dummy {f00=0x0110, f01=0x0190, f02=») REQERR OTHER TASK EXCLUSIVE ACCESS PTIOS35 EQU * , P LD A1,SCTTCT @ P LDR* A2,A1 TAB LENGTH V P ADR A1,A2 t P SRL A2,1 PTIOS40 EQU * P SUK A1,2 P SUK A2,1 P RF(Z) TIOS50 END OF SCTTCT P CWR* A5,A1 P
0x3e5de4…3e5f78 Dummy {f00=0x0110, f01=0x0190, f02=» P* SEARCH DM TASK P* PTIOS50 EQU * & $ P LDK A2,/FF DATA MANAGEMENT TASK : " P LDKL A1,TTABD TTAB ADDRESS #D b PTIOS55 EQU * P CWR A5,A1 P RB(E) TIOS45 CORRECT TASK P ADKL A1,TTABLN NEXT TTAB P CWK A1,TABEND P
0x3e5f78…3e610c Dummy {f00=0x0110, f01=0x0190, f02=»F A14,CRNGET CURRENCY P INH & P LDR A4,A2 CURRENCY BUFFER ADDRESS * P LDK A2,0 T " P SC A2,CRNSTA,A4 RESET STATUS f $ P LC A2,CRNCDF+1,A4 GET CURRENCY P LD A3,CRNCDF+2,A4 P LDKL A9,/40 MAX KEY LENGTH * P ABI TIODMF,A10 BRANCH
0x3e610c…3e62a0 Dummy {f00=0x0110, f01=0x0190, f02=»LLING TASK x " P* A11= FDB ADDRESS DATA FILE P* A7 = USER ORDER WORD 8 P* A8 = USER ECB ADDRESS X " P* A9 = MAX KEY LENGTH = /40 z * P* A10= DISPLACEMENT IN TIODMF TABLE P* P* P IFT INDXAC=1 P* P EJECT
0x3e62a0…3e6434 (3, 572) Dummy {f00=0x0110, f01=0x0190, f02=»RECT INDEXED l P* ( PRWDIIX EQU * REWRITE DIRECT INDEXED & PDEDIIX EQU * DELETE DIRECT INDEXED J * P LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4 t 0 P CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 P RF IXR030 MOVE KEY =4 P EJECT P*
0x3e6434…3e65c8 Dummy {f00=0x0110, f01=0x0190, f02=»XED AND READ RANDOM INDEXED P* $ PSTEQIX EQU * . PSTGRIX EQU * B PSTNLIX EQU * V P LD A9,ECBRL,A8 KEY LENGTH j PRDRNIX EQU * P CF A14,SWHFDB SWITCH FDB PIXR030 EQU * =4 P RB(Z) REQERR NO FDB " P LDR A2,A7 INDEXED
0x3e65c8…3e675c Dummy {f00=0x0110, f01=0x0190, f02=»3,A1 KEY LENGTH PIXR050 EQU * P CMR A4 CLEAR KEY AREA , P ADK A4,2 J P SUK A1,2 P RB(P) IXR050 MORE TO CLEAR n P* P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P AD
0x3e675c…3e68f0 Dummy {f00=0x0110, f01=0x0190, f02=» LDR A6,A3 SAVE MIN LENGTH P CF A15,MOVUS MOVE KEY ! " P* ! @ P EJECT TIOSDM ! J P* ! ` 0 P* INCREASE KEY IF 'START GREATER ' IS REQ ! j P* ! P CWK A10,QSTGIX ! $ P RF(NE) STA020 NOT START GREATER ! PSTA010 EQU * ! P SUK A2,1 AD
0x3e68f0…3e6a84 Dummy {f00=0x0110, f01=0x0190, f02=» NO ! P SUK A6,1 " P RB(P) STA010 MORE BYTES " PSTA020 EQU * " > P* " R P* SWITCH TO INDEX FDB " P* " | P LDR A11,A7 INDEX FDB " P RF TIORRO " P EJECT " P* " P* " P********** " P* WRRNIX * " P********** "
0x3e6a84…3e6c18 Dummy {f00=0x0110, f01=0x0190, f02=»S TO FDB KEY AREAS " P* # P LDK A4,8 # $ PIXINS3 EQU * # 6 P LDR A2,A11 FDB DATA # J P ADR A2,A4 # f P LD A2,FDBADF,A2 FDB INDEX # x P RF(Z) IXINS4 NO INDEX # P LD A1,FDBKA,A2 KEY ADDR # " P LD A3,FDBRLE,A2 RECORD LENGTH # & P AD A1,ECB
0x3e6c18…3e6dac Dummy {f00=0x0110, f01=0x018e, f02=» # P SUK A4,2 $ P RB(NZ) IXINS3 MORE INDEXS $ P XIF $ < P* $ H P EJECT TIOSDM $ R P* $ h P* $ r P********** $ | P* WRSQ00 * $ P********** $ P* $ P* WRITE SEQUENTIAL $ P* $ PWRSQ00 EQU * $ P LC A2,FDBLRN,A11
0x3e6dac…3e6f40 Dummy {f00=0x0110, f01=0x0190, f02=» $ P********** % P* RDSQIX * % P********** % , P* % > P* READ SEQUENTIAL INDEXED % H P* % l P* % v PRDSQIX EQU * % P CF A14,SWHFDB SWITCH FDB % P ABL(Z) REQERR FDB NOT FOUND % $ P LDR A11,A7 INDEXED FDB ADDRESS % P* %
0x3e6f40…3e70d4 (3, 573) Dummy {f00=0x0110, f01=0x018e, f02=»FNR,A11 FILE NR % P CC A7,CRNCIF,A4 & . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT & 0 P LC A2,CRNCIF+1,A4 & b " P LD A3,CRNCIF+2,A4 LOG REC NO & | P XIF & PIXR020 EQU * & $ P CF A14,ADDONE A2,A3 = A2,A3 + 1 & * P RF TIODMA DO NOT CHECK EOF CO
0x3e70d4…3e7268 Dummy {f00=0x0110, f01=0x0190, f02=» & PRDSQ00 EQU * ' " P CF A14,ADDONE A2,A3=A2,A3 + 1 ' P RF RAN050 ' B P EJECT ' T P* ' b P********** ' l P* RDRN00 * ' ~ P********** ' P* ' P* READ RANDOM ' P* ' PRDRN00 EQU * ' P LD A2,ECBCW,A8 REC NR ' P LD A3,E
0x3e7268…3e73fc Dummy {f00=0x0110, f01=0x0190, f02=»<= 0 ' n P RF TIODMA ( P EJECT ( P* ( , P* ( 6 P********** ( @ P* OPEN * ( R P********** ( d P* ( v P* OPEN ( P* ( POPEN EQU * ( P CWK A11,FDBSTA ( P RF(E) OPE050 FILE CODE FREE ( P LDKL A1,EDMERR ( P LDK A2,
0x3e73fc…3e7590 Dummy {f00=0x0110, f01=0x0190, f02=»N LGTH ( | P CW A4,ECBRL,A8 REQ ) P RF(G) ENDIO ERROR ) * P RF TIORRO ) D P* ) V P EJECT TIOSDM ) ` P* ) v P* ) P********** ) P* RDFIPA * ) P********** ) P* ) P* READ FILE PARAMETR ) P* ) PRDFIPA EQU * ) P S
0x3e7590…3e7724 Dummy {f00=0x0110, f01=0x0190, f02=»TDM0 ACTIVATE DN TASK #D ) P* * P EJECT * * P* * 8 P********** * B P* CLOSED * * T P********** * f P* * x P* * PCLOSED EQU * * P* * P* TEST IF INDEX * P* * P* LC A1,FDBNIF,A11 * & P* ANK A1,/F NUMBER OF INDEX FILES
0x3e7724…3e78b8 Dummy {f00=0x0110, f01=0x0190, f02=»SCARD ALLOWED =2 * z , P LDKL A1,RQERR INDICATE REQUEST ERROR =2 + ( P ORS A1,ECBRC,A8 SET RETURN CODE =2 + H 0 P SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2 + t P EJECT + P* + P********** + P* CLOSE * + P********** + P* + P* +
0x3e78b8…3e7a4c Dummy {f00=0x0110, f01=0x0190, f02=»NK A2,/FF FILE CODE + $ P LDK A5,0 SEARCH TTAB AND CDTAB , P CF A14,FNDFDB SEARCH , D $ P LDKL A2,FDBSTA SYSTEM FWT ADDR , b P ST A2,2,A4 FC ENTRY , P LDK A1,0 , P LC A1,FDBLRN,A11 , & P LD A2,FDBLRN+1,A11 LAST RECORD NR , P RF(NZ) CLO1
0x3e7a4c…3e7be0 Dummy {f00=0x0110, f01=0x0190, f02=»******** , P* STEQ00 * - P* STGR00 * - " P* STNL00 * - 4 P********** - F P* - X ( P* START EQUAL,GREATER AND NOT LESS - b P* - PSTEQ00 EQU * - PSTGR00 EQU * - PSTNL00 EQU * - P LD A2,ECBCW,A8 REC NR - P LD A3,ECBCW+2,A8 -
0x3e7be0…3e7d74 (3, 574) Dummy {f00=0x0111, f01=0x018e, f02=» * - P* RWCUIX * . P* DECU00 * . P* DECUIX * . . P* WRRN00 * . @ P* RWDI00 * . R P* DEDI00 * . d P* TIODMA * . v P********** . P* . 0 P* REWRITE CURRENT,REWRITE CURRENT INDEXED . . P* DELETE CURRENT,DELETE CURRENT INDEXED . $
0x3e7d74…3e7f08 Dummy {f00=0x0111, f01=0x0190, f02=» PDECUIX EQU * / PTIODMA EQU * / P ST A2,ECBCW,A8 REC NR / , P ST A3,ECBCW+2,A8 / J PWRRN00 EQU * WRITE RANDOM / d PRWDI00 EQU * REWRITE DIRECT / PDEDI00 EQU * DELETE DIRECT / " P LD A1,ECBCW,A8 RECORD NUMBER / P LD A2,ECBCW+2,A8 /
0x3e7f08…3e809c Dummy {f00=0x0111, f01=0x0190, f02=»DF,A11 / P CF A14,EATEST 0 " P LDR A11,A9 SAVED FDB ADDRESS 0 $ P ADK A3,0 0 J P RF(N) TIODPE EA OTHER TASK 0 PTIODMD EQU * 0 6 P CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR 0 P RF(NZ) TIODME 0 P* 0 P EJECT 0 P* 0 P**
0x3e809c…3e8230 Dummy {f00=0x0111, f01=0x018e, f02=» P LDR A6,A11 FDB ADDRESS 1 & P LDKL A2,SDMTSK ACTIVATION ADDRESS 1 $ P CWK A10,QWRSQ0 1 N * P ABL(L) DMACTD ADMINISTRATION FUNCTION 1 f P ABL DMACTI ACTIVATE DM TASK 1 P* 1 P EJECT 1 P* 1 P********** 1 P* TIODPE * 1 P* TIODME *
0x3e8230…3e83c4 Dummy {f00=0x0111, f01=0x0190, f02=» " P LC A3,FDBTNR,A11 USER TASK ID 2 P ANK A3,/FF 2 * " P CF A14,RELPRO RELEASE PROTECT 2 > P LDKL A1,PROERR 2 d PTIODME EQU * 2 | ( P LD A6,FDBADF,A11 DATA FILE FDB ADDR 2 PENDIOL EQU * 2 , P ABL DISEND CALL TENDIO GOTO DISPATCHER 2 PENDIO EQ
0x3e83c4…3e8558 Dummy {f00=0x0111, f01=0x0190, f02=»KORD * 2 P********** 3 P* 3 P* CHECK IF ORDER IN TABLE 3 * P* 3 N . P* INPUT : A10=ADDRESS TO ORDER TABLE END 3 X P* A3=LENGTH 3 P* A7=ORDER/OPTION 3 P* 3 P* OUTPUT: A2=ORDER BIT 3 * P* A3=
0x3e8558…3e86ec Dummy {f00=0x0111, f01=0x0190, f02=» CR=0 IF ORDER FOUND IN TABLE 3 P* CR=2 ELSE 4 ( P* 4 F PCHKORD EQU * 4 P P ADKL A14,4 4 d PCHKO10 EQU * 4 x P SRL A2,1 4 P CWR* A7,A10 4 P RF(E) CHKO20 ORDER IN TABLE 4 P SUKL A10,2 NEXT ENTRY 4 P SUK A3,2 4 & P R
0x3e86ec…3e8880 Dummy {f00=0x0111, f01=0x0190, f02=»**** 4 P* ADDONE * 5 P********** 5 P* 5 0 * P* DOUBLE ADD ONE ON REGISTERS A2,A3 5 : P* 5 h PADDONE EQU * 5 r P ADK A3,1 5 * P RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE 5 P LDK A3,0 5 P ADK A2,1 ADD CARRY 5 PADDO10 EQU * 5 P
0x3e8880…3e8a14 (3, 575) Dummy {f00=0x0111, f01=0x0190, f02=» ADDRESS AND MOVE PARAMETERS 5 P* 6 $ P* INPUT : A11=FDB ADDRESS 6 . & P* OUTPUT : A7=INDEX FDB ADDRESS 6 R 6 P* A7=0 , IF NO INDEX FDB ADDRESS FOUND 6 | ( P* CR SET ACCORDING TO A7 6 P* A3 IS USED 6 P* 6
0x3e8a14…3e8ba8 Dummy {f00=0x0111, f01=0x4146, f02=»,FDBAI1,A7 INDEX FDB ADDR 6 P RF(Z) SWHF90 NOT FOUND 7 " ( PSWHECO EQU * SWITCH ECB AND ORDER =4 7 B & P LD A3,DWTECB,A11 MOVE PARAMETERS 7 n P ST A3,DWTECB,A7 7 P LD A3,DWTOR,A11 7 P ST A3,DWTOR,A7 7 PSWHF90 EQU * 7 P ADKL A14,4 7 P
0x3e8ba8…3e8d3c Dummy {f00=0x0111, f01=0x2008, f02=» 8
0x3e8d3c…3e8ed0 Dummy {f00=0x0111, f01=0x0190, f02=»OUND H . P ABL DMR100 CONT AS FOR INDEXED RAND READ I P EJECT I > P******************** I L P* * I h P* E R R O R * I P* * I P******************** I P I ( PDMIER1 LDKL A1,KEYERR KEY NOT FOUND I
0x3e8ed0…3e9064 Dummy {f00=0x0111, f01=0x018e, f02=»MERX NO BUFFER I P ABL DMTERR ERROR AND BUFFER J PDMIER3 EQU * J : P ANK A1,/27 J N " P RB(NZ) DMIERR BIT 10,13,14,15 J b " P LDKL A1,EOMERR GRAVE ERR ALSO J P RB DMIERR J PDMIER4 EQU * J P LDK A1,1 NOT OPERABLE J P RB DMIERR J PDMIE
0x3e9064…3e91f8 Dummy {f00=0x0111, f01=0x0190, f02=» J : P***************************************************** K : P* * K F : P* W R I T E R A N D O M I N D E X E D (P2) * K : P* D E L E T E I N D E X E D * K : P*
0x3e91f8…3e938c Dummy {f00=0x0111, f01=0x0190, f02=» WRITE RANDOM INDEXED PART 2 K PDMXDEL EQU * DELETE INDEXED L $ P LC A4,FDBDBR,A11 L H P ANK A4,/10 L b P RF(NZ) DXI010 KEEP BUFFER L v ( P CF A14,SDMRLB RELEASE BLOCK BUFFER L PDXI010 EQU * L P LDK A5,10 LOOPER L PDXI020 EQU * NEXT INDE
0x3e938c…3e9520 Dummy {f00=0x0111, f01=0x018e, f02=» P ADR A1,A5 M P LD A1,FDBADF,A1 FDB INDEX M P RB(Z) DXI020 NO INDEX M 8 P LD A2,DWTOR,A11 ORDER M V P ST A2,DWTOR,A1 M t $ P LD A2,DWTECB,A11 USER ECB ADDR M P ST A2,DWTECB,A1 M " P ST A5,FDBKA,A11 SAVE COUNTER M & P LDR A11,A1 FDB ADDRES
0x3e9520…3e96b4 (3, 576) Opaque[0x194]
0x3e96b4…3e9848 # DirEnt {nam=»SDMSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x22e8, f03=0x0000}
0x3e96b4…3e9848 IdxSect {
0x3e96b4…3e9848 f00 = 0x0117 // 0x3e96b4 @0x0
0x3e96b4…3e9848 f01 = 0x001a // 0x3e96b6 @0x2
0x3e96b4…3e9848 gno = [ // 0x3e96b8 @0x4
0x3e96b4…3e9848 [0x00]: C0x0117.0x1.0
0x3e96b4…3e9848 [0x01]: C0x0117.0x2.0
0x3e96b4…3e9848 [0x02]: C0x0117.0x3.0
0x3e96b4…3e9848 [0x03]: C0x0118.0x0.0
0x3e96b4…3e9848 [0x04]: C0x0118.0x1.0
0x3e96b4…3e9848 [0x05]: C0x0118.0x3.0
0x3e96b4…3e9848 [0x06]: C0x0119.0x0.0
0x3e96b4…3e9848 [0x07]: C0x0119.0x1.0
0x3e96b4…3e9848 [0x08]: C0x0119.0x2.0
0x3e96b4…3e9848 [0x09]: C0x0119.0x3.0
0x3e96b4…3e9848 [0x0a]: C0x011a.0x0.0
0x3e96b4…3e9848 [0x0b]: C0x0121.0x2.0
0x3e96b4…3e9848 [0x0c]: C0x0121.0x3.0
0x3e96b4…3e9848 ]
0x3e96b4…3e9848 }
0x3e9848…3e99dc Dummy {f00=0x0117, f01=0x0190, f02=» 2 P IDENT SDMSUB REL 11.0 81-05-22 870105041100 P : P =6,FORMATTING ERROR B P =6,REL 11.0 81-05-12 ` P =5,CONDITION FOR CR,DE,EX P =5,REL 11.0 81-03-20 : P =4,BLOCK BUFFER CHAIN DESTR. WHEN FORM. WITH LEN=0 P =4,
0x3e99dc…3e9b70 Dummy {f00=0x0117, f01=0x0190, f02=»T BLOCK,BAD =1 p P =2,REL 11.0 81-02-04 =1 , P =1,SUB. TO FORMAT BLOCK BUFFER CHNG. 8 P =1,REL 11.0 81-01-26 h 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* SDMS
0x3e9b70…3e9d04 Dummy {f00=0x0117, f01=0x018e, f02=»******** d 8 P****THIS MODULE IS ACTIVATED FROM :***************** P* L P* DMTASK,TIODM,DMTASS V P* v P*************** P* ENTRIES * P*************** P* P ENTRY RELPRO P ENTRY MOVBW & P ENTRY EATES
0x3e9d04…3e9e98 Dummy {f00=0x0117, f01=0x0190, f02=» P ENTRY FMIORF,FMIOWR,FMIODL P ENTRY FMIOCR,FMIOEX ( " P ENTRY FRMFIL,FORMAT,FORMER =1 D P ENTRY RLBLKB,CHKRCD j P ENTRY CASZEN P EJECT P* @ P* E N T R I E S F O R I N D E X S U B R O U T I N E S P* P*
0x3e9e98…3ea02c Dummy {f00=0x0117, f01=0x0190, f02=» FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN & P ENTRY CRNCIF < P ENTRY RECECB R P EJECT h P* v P***************** P* EXTERNALS * P***************** P* P* 4 P EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDB
0x3ea02c…3ea1c0 Dummy {f00=0x0117, f01=0x0190, f02=»,DWTOR,BUFSTA,BUFDMI,BUFOR | P EXTRN FDBLRN,FDBMIA,FDBMRO " " P EXTRN ECBRC,ECBFC,ECBCW,ECBBA F P EXTRN DIVMOD,MPYMOD l P EXTRN CRNTID P EXTRN SDMGBU P EXTRN CRNQUE,GETBLK,FREQUE P EXTRN CRBUFL P EXTRN FDBDBR P EXT
0x3ea1c0…3ea354 (3, 577) Dummy {f00=0x0117, f01=0x0190, f02=»OMD P EXTRN MOVFW P EXTRN ADDMOD P EXTRN SDMRBU,CLRBUF 6 " P EXTRN BLKMXL MAX BLOCK LENGTH R P EXTRN EOFRC,NOKEY x P EXTRN RTNA14 & P EXTRN FPB:RL,FPB:BF,FPB:S1,SIZDIF P EJECT SDMSUB TOSSIO P* P* . P**
0x3ea354…3ea4e8 Dummy {f00=0x0117, f01=0x0190, f02=»*** j P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. H P* v PMMUPAG EQU 1 PX:A EQU 0 PINDXAC EQU 00001 P* ( P* A VERSION LEAVING OUT OPEN MODES: * P* OPEN OUTPUT,OPEN E
0x3ea4e8…3ea67c Dummy {f00=0x0117, f01=0x0190, f02=» P* > P* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION P* P ( P* ENTRY : A3 = DM INTERNAL USER ID Z P* P* USED REGS A1 - A5 , A9 P* & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* $ PRELPRO EQU * RELEASE PRO
0x3ea67c…3ea810 Dummy {f00=0x0117, f01=0x0190, f02=» A1,/1 P RF(Z) REL053 NOT USED 0 P LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK , P CF A14,EARELB ` P ENB v PREL053 EQU * P LDR* A11,A11 P ANKL A11,/FFFE SKIP USE BIT P RB(NZ) REL050 MORE FDBS P LDR A11,A9 FDB ADDRESS
0x3ea810…3ea9a4 Dummy {f00=0x0117, f01=0x0190, f02=»DMTBM BYTE MOVE P* " P* INPUT A1 = FROM ADDRESS $ , P* A3 = NO OF BYTES TO BE MOVED J P* A2 = TO ADDRESS z P* P* P* OUTPUT A3 = NEXT CHAR P* & P* NUMBER OF A14 LEVELS = 2 (WORDS) P
0x3ea9a4…3eab38 Dummy {f00=0x0117, f01=0x0190, f02=»S FROM THE END P* PMOVBW EQU * P STR A4,A14 4 P ADR A1,A3 H P ADR A2,A3 Z PDMTB20 EQU * l P SUK A3,1 P RB(N) DMTB10 P SUK A1,1 P SUK A2,1 P LCR A4,A1 P SCR A4,A2 P RB DMTB20 P EJECT
0x3eab38…3eaccc Dummy {f00=0x0117, f01=0x0190, f02=»ORD NO. ` P* 8 P****ENTRY PARAMETERS******************************** P* V P* A11= FDB ADRESS ` P* A1,A2 = LOG RECORD NO | P* P* CF A14,EATEST P* 8 P****EXIT PARAMETERS*********************************
0x3eaccc…3eae60 Dummy {f00=0x0117, f01=0x0190, f02=»1 EA FOUND FO R OTHER TASK & P* NUMBER OF A14 LEVELS = 2 (WORDS) $ P* N 8 P****USED REGISTERS********************************** X P* P PBLKTID EQU 4 TASK ID 0 PBLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT 0 PBLKRNL EQU 2 RECOR
0x3eae60…3eaff4 (3, 578) Dummy {f00=0x0117, f01=0x0190, f02=»T020 EQU * P LDR* A3,A3 NEXT BUFFER ADR PEAT030 EQU * 6 $ P RF(Z) EAT100 EMPTY QUEUE,NO EA J P* r P* SEARCH LOG REC NO | P* $ P CC A1,BLKRNM,A3 FIRST CHARACTER P RB(NE) EAT020 & P CW A2,BLKRNL,A3 2 AND 3 CHARACTER
0x3eaff4…3eb188 Dummy {f00=0x0117, f01=0x0190, f02=»E) EAT060 P LDKL A3,-1 EA OTHER TASK P RF EAT100 4 PEAT060 EQU * F P LDK A3,1 EA SAME ATASK Z PEAT100 EQU * z P ADKL A14,4 P ADK A3,0 P ABR* A14 P EJECT SDMSUB 8 P****DESCRIPTION***************************
0x3eb188…3eb31c Dummy {f00=0x0117, f01=0x0190, f02=»STEM WILL HALT AND LITE SOP-LAMPS j P* * 8 P****ENTRY PARAMETERS******************************** 4 P* p P* A11= FDB ADDR z " P* A1,A2 = LOGICAL RECORD NO P* P* CF A14,EASETB P* 8 P****EXIT PARAMETERS***********
0x3eb31c…3eb4b0 Dummy {f00=0x0117, f01=0x0190, f02=»********************************** ~ P* * P* A1,A4 4 P* F < P******************************************************* P P EJECT SDMSUB PEASETB EQU * P ECR A1,A1 P LC A1,FDBTNR,A11 TASK ID P ECR A1,A1 P INH
0x3eb4b0…3eb644 Dummy {f00=0x0117, f01=0x0190, f02=» P STR A1,A4 THREAD P ST A4,FDBEAL,A11 NEW ROOT P ENB @ P RTN A14 L P EJECT SDMSUB 8 P****DESCRIPTION************************************* t P* 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM P* TO THE FREE LI
0x3eb644…3eb7d8 Dummy {f00=0x0117, f01=0x0190, f02=»CAL RECORD NO B P* A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB P* AND A3 = 0 * P* ARE REMOVED. v P* A1: BIT 0=1,BIT 1=1 4 P* AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH @ P*
0x3eb7d8…3eb96c Dummy {f00=0x0117, f01=0x0190, f02=» THE FIRST BUFFER WITH TASK ID AND LOG REC NO 0 P* AS SPEC IS REMOVED. > P* r 8 P****EXIT PARAMETERS********************************* | P* P* A11,A3,A1 = UNCHANGED & P* NUMBER OF A14 LEVELS = 2 (WORDS)
0x3eb96c…3ebb00 Dummy {f00=0x0117, f01=0x0190, f02=»***************************** | P* & P* THE ROUTINE SETS INHIBIT 0 P EJECT SDMSUB T PEARELB EQU * l P LDR A4,A11 P ADKL A4,FDBEAL ROOT ADR PEAR020 EQU * P LDR A5,A4 SAVE OLD ROOT P LDR* A4,A4 NEXT BUFFER ADR
0x3ebb00…3ebc94 (3, 579) Dummy {f00=0x0118, f01=0x018e, f02=»O | P* P CC A1,BLKRNM,A4 P RB(NE) EAR020 , P CW A2,BLKRNL,A4 B P RB(NE) EAR020 Z P RF EAR060 p PEAR050 EQU * P CWK A1,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED P LDR A2,A3 REQ TASK ID
0x3ebc94…3ebe28 Dummy {f00=0x0118, f01=0x018e, f02=» t PEAR065 EQU * P CC A2,BLKTID,A4 P RB(NE) EAR020 4 P EJECT J P* X P* EA BUFFER FOUND b P* ~ PEAR080 EQU * P LDR* A2,A4 NEXT BUFADR & P STR A2,A5 REMOVE BUFFER FROM LINK P* P* RETURN BUFFER TO POO
0x3ebe28…3ebfbc Dummy {f00=0x0118, f01=0x0190, f02=» x P LDR A1,A1 P RB(N) EAR020 RELEASE MORE PEAR100 EQU * < P RTN A14 P P EJECT SDMSUB ` 8 P****DESCRIPTION************************************* x P* D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS D P*
0x3ebfbc…3ec150 Dummy {f00=0x0118, f01=0x0190, f02=»LE N 0 P* THE SYSTEM WILL HALT AND LITE SOP-LAMPS. ( P* TASK ID IS PLACED IN THE BUFFER > P* j 8 P****ENTRY PARAMETERS******************************** t P* " P* A11= FDB ADDRESS DATA FILE & P* FDBTNR,A11 = TASK NUMBER &
0x3ec150…3ec2e4 Dummy {f00=0x0118, f01=0x0190, f02=»****** b P* P* A11= UNCHANGED ( P* A2 = ADDRESS OF FOUND CRN-BUFFER 2 & P* NUMBER OF A14 LEVELS = 2 (WORDS) ^ P* 8 P****USED REGISTERS********************************** P* P* A1,A3 P* 6 P********************
0x3ec2e4…3ec478 Dummy {f00=0x0118, f01=0x0190, f02=» | PCRN020 EQU * P LDR* A2,A2 NEXT BUFFER P RF(Z) CRN100 LINK END < P* Z P* CHECK ATASK IDENT d P* P LC A3,FDBTNR,A11 TASK ID P CC A3,CRNTID,A2 P RB(NE) CRN020 OTHER TASK P RF CRN200 BUFFER FOUND P
0x3ec478…3ec60c Dummy {f00=0x0118, f01=0x0190, f02=» LDK A1,3 LAMP 10 AND 11 P CF A15,HALT NO MORE BUFFERS PCRN120 EQU * D P LDR* A3,A2 NEXT FREE X P ST A3,CRNQUE UPD ROOT v P EJECT P* P* FILL BUFFER WITH ZEROES P* * P LDKL A3,CRBUFL BUFFER LENGTH IN BYTES P
0x3ec60c…3ec7a0 Dummy {f00=0x0118, f01=0x0190, f02=»SET IN BUFFER P CMR A1 P RB CRN140 MORE WORDS & P* D " P* CONNECT NEW BUFFER TO LINK N P* t PCRN160 EQU * ~ P LC A3,FDBTNR,A11 P SC A3,CRNTID,A2 TASK ID P LD A3,FDBCRL,A11 LINK ROOT P STR A3,A2 THREAD
0x3ec7a0…3ec934 (3, 580) Dummy {f00=0x0118, f01=0x0190, f02=»************************ t P* 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO * P* RELATIVE ` P* SECTOR AND OFFSET t P* 8 P****ENTRY PARAMETERS******************************** P* " P* A1,A2 = LOGICAL RECORD NO P
0x3ec934…3ecac8 Dummy {f00=0x0118, f01=0x0190, f02=» P* A1 = 0 OK , P* NE 0 , ERROR =/A000=END OF MEDIUM P* A11= UNCHANGED N $ P* IN FDB : FDBSNR = SECTOR NR h * P* FDBRRO = OFFSET IN BLOCK & P* NUMBER OF A14 LEVELS = 5 (WORDS) P* 8 P****USED REGISTERS****
0x3ecac8…3ecc5c Dummy {f00=0x0118, f01=0x018e, f02=»4 | P* " P* FIND BLOCK NO WITHIN FILE P* : P LDK A6,0 D & P LC A6,FDBBLF,A11 BLOCKING FACTOR V , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER P RF(O) CALERR OVERFLOW P LDR A3,A2 QUOTIENT P LDR A4,A1 REMAINDER P R
0x3ecc5c…3ecdf0 Dummy {f00=0x0118, f01=0x0190, f02=» p P* ! * P* FIND LOGICAL SECTOR NUMBER ON DISC ! P* ! @ PTIOD40 EQU * ! J P LDR A6,A3 BLOCK NR ! ^ P RF(NP) CALERR ! z P SUK A6,1 ! P LDK A7,0 ! * P LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK ! P CF A14,MPYMOD ! P ADK A2,1 !
0x3ecdf0…3ecf84 Dummy {f00=0x0118, f01=0x0190, f02=»DBSNR,A11 ! P ST A2,FDBSNR+2,A11 SECT NR " P EJECT " 6 P* " D 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK " N P* " P LDK A3,0 " " P LDR A2,A4 REL REC NR IN BLOCK " PTIOD60 EQU * " P SUK A2,1 A2=REL REC NR " ( P RF(Z) TIOD65 RE
0x3ecf84…3ed118 Dummy {f00=0x0118, f01=0x0190, f02=»DKL A1,EOMERR OUT OF MEDIUM " P RF TIODMF # $ P* # 6 , P* STORE RELATIVE REC OFFSET IN FBDRRO # @ P* # p PTIOD65 EQU * # z P LDK A1,0 OK # P ST A3,FDBRRO,A11 # PTIODMF EQU * # P LD A4,-4,A14 SAVED REGISTER # ( P RF RETURN RETURN AN
0x3ed118…3ed2ac Dummy {f00=0x0118, f01=0x0190, f02=» # P* ENTRY: A11=FDB ADDRESS $ P* A8=ECB ADDRESS $ ( P* $ H P* EXIT : A1=RETURN CODE $ R " P* A11,A8=SAME AS ENTRY $ r P* A2=USED $ P* $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) $ P* $ & P* FMIO=FILE MANAGEMENT I/O
0x3ed2ac…3ed440 Dummy {f00=0x0118, f01=0x0190, f02=» A7,/A2 $ P RF FMIO10 % P % " PFMIODL EQU * DELETE % * P LDKL A7,/2A2 % F P RF FMIO10 % P % n PFMIOOP EQU * OPEN FILE % v P LDK A7,/A1 % P RF FMIO10 % P % PFMIOEX EQU * EXTEND % P LDKL A7,/1A1 % P RF FMIO10 % P %
0x3ed440…3ed5d4 (3, 581) Dummy {f00=0x0118, f01=0x0190, f02=»7,/83 % P RF FMIO10 & P & PFMIORD EQU * READ & ( P LDK A7,/91 & B P & V PFMIO10 EQU * & ^ P LKM & r P DATA 15 & ~ P EJECT SDMSUB & P* & P* RESTORE SECTOR NUMBER & P* & P LD A1,FDBSNR,A11 & P ST A1,ECBCW,A8 &
0x3ed5d4…3ed768 Dummy {f00=0x0118, f01=0x0190, f02=»DISC I/O OK & P ANKL A1,/FEFF ' $ P RF(NZ) DMTIT1 NOT ONLY RETRIES ' * P LDKL A1,RETRIE ' R & P ORS A1,ECBRC,A2 USER RETURN CODE ' j P LDK A1,0 SET RETURN CODE OK ' P RF RETURN ' PDMTIT1 EQU * ' P LD A2,ECBBA,A8 ' P SUKL A2,BUFSTA BU
0x3ed768…3ed8fc Dummy {f00=0x0118, f01=0x0190, f02=»N************************************* ' P* ( . 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND ( 8 2 P* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. ( t P* ( 8 P****ENTRY PARAMETERS******************************** ( P* ( P* A11= FDB A
0x3ed8fc…3eda90 Dummy {f00=0x0118, f01=0x0190, f02=»ESS ( 0 P* A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE ) B P* = -1 WHEN NO DATA IS FOUND IN ) @ < P* THE FOUND CORE BUFFER ) " P* A4 = BLOCK BUFFER ADDRESS ) & P* A5 = BLOCK DATA BUFFER A
0x3eda90…3edc24 Dummy {f00=0x0118, f01=0x0190, f02=»******** ) d P* * P* A2-A3 * P* * , : P****************************************************** * 6 PGTBKBU EQU * * t " P LC A3,FWTFNR,A11 FILE NUMBER * P ANK A3,/FF * P STR A3,A8 FILE NR * P LC A5,FDBBLZ,A11 * " P SLL A5,8 BLOCK SI
0x3edc24…3eddb8 Dummy {f00=0x0118, f01=0x0190, f02=»BU A4 := BUFFER ADDRESS * P ST A1,ECBCW,A8 SECT NR + P ST A2,ECBCW+2,A8 SECT NR + @ P LDR A5,A4 + b 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS + t P ST A5,ECBBA,A8 + ( P LDKL A1,-1 SET DEFAULT RETURN CODE + P ADK A3,0 + ( P RF(NZ)
0x3eddb8…3edf4c Dummy {f00=0x0118, f01=0x0190, f02=»ION + p P IFT CRDEEX=0 =5 , P EJECT , & PFRMFIL EQU * =5 , 4 PFORMAT EQU * =5 , L PFORMER EQU * =5 , d PRLBLKB EQU * =5 , | PCASZEN EQU * =5 , P RTN A14 =5 , P XIF =5 , P IFT CRDEEX=1 =5 , P EJECT , P* , P* FR
0x3edf4c…3ee0e0 Dummy {f00=0x0118, f01=0x0190, f02=»RESS , z P* - P* EXIT : A1-A7 - P* - . & P* NUMBER OF A14 LEVELS = 4 (WORDS) - 8 P* - b PFRMFIL EQU * - l P LC A1,FDBBLZ,A11 - " P SLL A1,8 BLOCK SIZE IN BYTES - $ P ST A1,ECBRL,A8 REQUESTED LENGTH - P* - P* MAKE FORMAT BUFFER -
0x3ee0e0…3ee274 (3, 582) Dummy {f00=0x0119, f01=0x0190, f02=»MOST SIGN. - p 2 P LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. . PFRM130 EQU * . H P ST A1,ECBCW,A8 . P ST A2,ECBCW+2,A8 . t P LDR A3,A1 SAVE A1 . P LDR A5,A2 SAVE A2 . P CF A14,FMIOWR WRITE SECTOR . P RF(NZ) FRM140 ERROR OR EOF .
0x3ee274…3ee408 Dummy {f00=0x0119, f01=0x0190, f02=» CF A14,ADDMOD . P RB FRM130 / P EJECT / ( PFRM140 EQU * / 6 P LDR A2,A1 RETURN CODE / J P SLL A2,2 / h " P RF(NN) FRM160 NOT END OF FILE / z PRLBLKB EQU * / P LDK A1,0 SET RETURN CODE / PFRM160 EQU * / & P SUKL A4,BUFSTA BUFFER WITH HE
0x3ee408…3ee59c Dummy {f00=0x0119, f01=0x0190, f02=»JECT / P* 0 * P* FORMAT=FORMAT BUFFER IN RECORD SIZE 0 P* 0 D & P* ENTRY :A4 = BLOCK BUFFER ADDRESS 0 N P* A1 = BUFFER LENGTH 0 x P* 0 P* EXIT :A4 = NOT CHANGED 0 P* A1,A2,A3,A5 = USED 0 P* 0 & P* NUMBER OF A14 LE
0x3ee59c…3ee730 Dummy {f00=0x0119, f01=0x0190, f02=»IN BLOCK BUFFER =2 =1 0 ~ ( P RF(NP) FRM120 NOTHING TO FORMAT =4 1 * P LDK A2,' ' FILL BUFFER WITH SPACES =1 1 J PFRM100 EQU * 1 x P SCR A2,A3 =1 1 & P ADK A3,1 UPDATE BUFFER POINTER =1 1 P SUK A1,1 REST LENGTH =1 1 & P RB(P) FRM100 CONTINUE FILL
0x3ee730…3ee8c4 Dummy {f00=0x0119, f01=0x0190, f02=»S=FREE 1 z 2 P LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS 2 P ADK A1,1 LENGTH WITH STATUS 2 D PFRM110 EQU * 2 h . P ADR A3,A1 POINTER TO RECORD STATUS =2 =1 2 | P SUR A5,A1 LENGTH LEFT =2 =1 2 . P RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 2 " P SCR
0x3ee8c4…3eea58 Dummy {f00=0x0119, f01=0x0190, f02=»BL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS 2 P* 3 @ P* ENTRY: A11=FDB ADDRESS 3 J P* 3 j P* EXIT : A1=MAX FDBRRO 3 t 0 P* A2=BLOCK SIZE IN NUMBER OF SECTORS 3 0 P* CR=GREATER IF BLOCK SIZE TOO LARGE 3 P* A3,A6
0x3eea58…3eebec Dummy {f00=0x0119, f01=0x0190, f02=») 3 j : P LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) 4 P 4 H P 4 P P* 4 X 2 P* CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS 4 b P* 4 P* ENTRY: A6=RECORD LENGTH 4 P* A7=BLOCK FACTOR 4 P* 4 PCRRBL EQU * 4 P ADK A
0x3eebec…3eed80 Dummy {f00=0x0119, f01=0x0190, f02=»A2 MAX FDBRRO 4 P EJECT 5 P* 5 $ , P* CALCULATE BLOCK SIZE IN NBR OF SECTORS 5 . P* 5 ^ P ADR A2,A3 ADD ONE RECORD 5 h P LDR A3,A2 5 P SRL A2,8 SECTOR NBR 5 P ANK A3,/FF 5 P RF(Z) CAR100 EXACT 5 P ADK A2,1 ONE MORE SECTOR 5
0x3eed80…3eef14 (3, 583) Dummy {f00=0x0119, f01=0x0190, f02=»CK WITH MAX BLOCK SIZE 5 ~ P ABR* A14 RETURN 6 P IFT CRDEEX=1 =5 6 6 P EJECT 6 P P 6 ^ P********** 6 f P* CASZEN * 6 x P********** 6 P 6 P* 6 2 P* CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS 6 P* 6 P* ENTRY: A12=FPB ADDRESS 6
0x3eef14…3ef0a8 Dummy {f00=0x0119, f01=0x0190, f02=» CR=O IF OVERFLOW 6 P* 7 PCASZEN EQU * 7 * $ P LD A6,FPB:RL,A12 RECORD LENGTH 7 > " P LC A7,FPB:BF,A12 BLOCK FACTOR 7 f P ANK A7,/FF 7 < P CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2) 7 P LDR A4,A2 BLOCK SIZE 7 P LDR A13,A
0x3ef0a8…3ef23c Dummy {f00=0x0119, f01=0x0190, f02=»2 BLOCK FACTOR (RECORDS/BLOCK) 7 P ANK A6,/FF 8 & P LDR* A1,A13 8 : , P LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS) 8 N * P CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 8 ~ P ADK A1,0 8 P RF(Z) CAS110 NO REST 8 P ADK A2,1 TAKE CARE OF REST 8 P EJECT 8
0x3ef23c…3ef3d0 Dummy {f00=0x0119, f01=0x018e, f02=»IZE IN SECTORS 8 | P ADKL A13,SIZDIF 9 P SUK A5,1 9 . P RB(P) CAS100 NEXT VOLUME 9 @ P RTN A14 9 b P XIF =5 9 r P EJECT 9 P* CHKRCD=CHECK RECORD STATUS 9 P* 9 P* ENTRY: A11=FDB ADDRESS 9 P* A1=RECORD OFFSET 9 $ P*
0x3ef3d0…3ef564 Dummy {f00=0x0119, f01=0x0190, f02=» 9 ~ P* : & P* NUMBER OF A14 LEVELS = 2 (WORDS) : P* : < PCHKRCD EQU * : F P ADR A1,A4 : Z P ADKL A1,BUFSTA : l $ P AD A1,FDBRLE,A11 STATUS POINTER : P LDK A3,/FF : P ADKL A14,4 : P CCR A3,A1 : P ABR* A14 : P IFT INDXAC=0 :
0x3ef564…3ef6f8 Dummy {f00=0x0119, f01=0x0190, f02=» PRECECB EQU * ; P RTN A14 ; P XIF ; ( P IFT INDXAC=1 ; 4 P EJECT ; J 8 P****DESCRIPTION************************************* ; X P* ; < P* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. ; > P* A BINARY SEARCH IS USED. REF : KNUTH P
0x3ef6f8…3ef88c Dummy {f00=0x0119, f01=0x0190, f02=»RY ; r P* < 8 P****ENTRY PARAMETERS******************************** < P* < P P* A5 = MASTER INDEX ADRESS < Z P* A9 = SEARCH KEY ADDRESS < ~ P* A10 = NR OF CHAR IN KEY < P* A11=FDB ADDRESS < P* < P* CF A14,FNDKMX < P
0x3ef88c…3efa20 Dummy {f00=0x0119, f01=0x018e, f02=»A9,A10= UNCHANGED < & P* NUMBER OF A14 LEVELS = 5 (WORDS) = P* = D 8 P****USED REGISTERS********************************** = N P* = P* A3-A7,A12-A13 = P* = 6 P************************************************* = P* = & PCRNCIF EQU 8
0x3efa20…3efbb4 (3, 584) Dummy {f00=0x0119, f01=0x0190, f02=» P LDR A13,A2 > P ANKL A13,/1 GET BIT 15 > P SRA A2,1 > 8 P LDR A12,A2 M=N/2 FLOOR > J P ADR A13,A2 I=N/2 CEILING > j P ADK A5,2 TABLE BASE - 2 > PFND020 EQU * > P LDK A4,0 > P LDR* A7,A5 ENTRY LENGTH > P LDR A6,A13 I > P
0x3efbb4…3efd48 Dummy {f00=0x0119, f01=0x0190, f02=»GN BIT > z P LDR A4,A2 ? PFND025 EQU * ? " P ADR A4,A5 ADD MI BASE ADR - 2 ? 4 P ADK A4,2 ENTRY KEY ADR ? Z $ P LDR A1,A4 ADDRESS OF ENTRY KEY ? z P LDR A6,A10 MAX KEY LENGTH ? P LDK A7,0 CHAR ADR ? P CF A14,CHKKEY COMPARE KEYS ? P LDR A
0x3efd48…3efedc Dummy {f00=0x0119, f01=0x018e, f02=»RTN INF ? ~ . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL @ P EJECT @ B P* @ P P* SEARCHED KEY GREATER @ Z P* @ z P LDR A12,A12 M @ P RF(Z) FND050 SEARCH READY @ P ADR A13,A6 I=I+(M/2 CEIL) @ PFND030 EQU * @ P LDR A12,A7 M=M/2 FLOO
0x3efedc…3f0070 Dummy {f00=0x0119, f01=0x0190, f02=» P RB FND030 A PFND045 EQU * NO MASTER INDEX A P LDK A1,0 A : P LDK A2,1 REC NR 1 A L P RF FND070 A f PFND050 EQU * A x * P ADR* A4,A5 NEXT ADDRESS OF ENTRY KEY A PFND060 EQU * A P LDR A3,A4 ENTRY ADR A P SUK A3,3 A P ADR* A3,A5
0x3f0070…3f0204 Dummy {f00=0x0119, f01=0x0190, f02=»A3 A P ADK A3,1 B P ECR A2,A2 B P LCR A2,A3 B . PFND070 EQU * B @ P ABL CALSNO B T P EJECT B h 8 P****DESCRIPTION************************************* B v P* B . P* CHKKEY COMPARES TWO CHARACTER STRINGS B P* B 8 P****ENTRY PARAME
0x3f0204…3f0398 Dummy {f00=0x0119, f01=0x0190, f02=»O OF CAHARACTERS IN KEY B 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY C P* C V P* CF A14,CHKKEY C ` P* C | 8 P****EXIT PARAMETERS********************************* C P* C : P* A1 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY C ,
0x3f0398…3f052c Dummy {f00=0x0119, f01=0x0190, f02=» OF SAME CHARACTERS IN WHOLE KEY C f " P* A6 = MAX NO OF CHAR IN KEY D ( P* CR=0 WHEN KEY IS FOUND D N P* P WHEN KEY IS GREATER D p P* N WHEN KEY IS LESS D & P* NUMBER OF A14 LEVELS = 2 (WORDS) D P* D 8 P****USED REGISTERS************
0x3f052c…3f06c0 Dummy {f00=0x0119, f01=0x0190, f02=»CHKKEY EQU * D " P LDR A3,A9 SEARCH KEY ADDRESS E $ P ADR A3,A7 FIRST SC CHAR TO TEST E : $ P ADR A1,A7 FIRST EC CHAR TO TEST E b PCHK020 EQU * E P LCR A2,A3 SEARCED KEY CHAR E P CCR A2,A1 SC=EC? E P RF(G) CHK100 SC GT TH EC E " P RF(L) CHK
0x3f06c0…3f0854 (3, 585) Dummy {f00=0x0119, f01=0x0190, f02=» A3,1 NXT SC TO TEST E P ADK A1,1 NXT EC TO TEST F P RB CHK020 F < PCHK060 EQU * F P P LDK A1,0 FOUND F d P RF CHK140 F | PCHK120 EQU * F $ P LDKL A1,-1 SEARCHED KEY SMALLER F P RF CHK140 F PCHK100 EQU * F $ P LDK A1,1 SEARCHED KEY S
0x3f0854…3f09e8 Dummy {f00=0x0119, f01=0x0190, f02=»********** F f P* G @ P* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE G P* IN A CORE BUFFER G ` D P* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED G | & P* SECTOR WILL BE MADE AVAILABLE G P* G 8 P****ENTRY PARAME
0x3f09e8…3f0b7c Dummy {f00=0x0119, f01=0x0190, f02=»NR G | B P* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST H 8 P* RECORD IN CURRENT SECTOR IS WANTED H P : P* A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN H > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED H
0x3f0b7c…3f0d10 Dummy {f00=0x0119, f01=0x0190, f02=» P* A4 = BUFFER ADDRESS I * P* = 0 WHEN NO BUFFER IS ALLOCATED I $ P* A8 = ECB ADDRESS I R & P* CR=0 WHEN PHYSICAL I/O FAILED I n P* IF CR=0 I " P* THEN A1=I/O RETURN CODE I & P* ELSE A1=FDBRR0=RECORD OFFSET I & P* NUMBER OF
0x3f0d10…3f0ea4 Dummy {f00=0x0119, f01=0x0190, f02=» : P****************************************************** J P EJECT J B PRDNXTR EQU * J P P ADK A4,0 J d P RF(NZ) RDN200 BUFFER EXIST J v P* J P* GET A BUFFER J P* J PRDN040 EQU * J & P CF A14,GTBKBU GET BLOCKBUFFERADDR J ( P RF(
0x3f0ea4…3f1038 Dummy {f00=0x0119, f01=0x0190, f02=»D J ~ P LDR A7,A3 K P ADK A1,0 RETURN CODE K P RF(NZ) RDN900 ERROR K : PRDN080 EQU * K V P LDK A1,0 K j * P ST A1,FDBRRO,A11 OFFSET FIRST RECORD K | P RF RDN940 RETURN K P EJECT K P* K P* BUFFER WAS BEFORE K P* K PRDN2
0x3f1038…3f11cc Dummy {f00=0x0119, f01=0x0190, f02=»NTS TO LAST REC IN BUFFER K t P* L " PRDN220 EQU * L , P CW A1,FDBMRO,A11 MAX OFFSET L @ * P RF(NL) RDN300 THIS REC LAST IN BUFFER L d P* L , P* GET NEXT REC IN CURRENT BLOCKBUFFER L P* L $ P AD A1,FDBRLE,A11 RECORD LENGTH L P ADK A1,1
0x3f11cc…3f1360 Dummy {f00=0x0119, f01=0x0190, f02=» PRDN300 EQU * M P LD A1,FDBSNR+2,A11 M P LDK A3,0 M 4 0 P LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) M F P ADR A1,A3 NEXT SECT M z P RF(O) RDN380 M P RF RDN390 M PRDN380 ANKL A1,/7FFF M P IM FDBSNR,A11 M PRDN390 EQU * M P ST
0x3f1360…3f14f4 (3, 586) Dummy {f00=0x011a, f01=0x0190, f02=»40 NEXT SECTOR M P* N P* ERROR EXIT N P* N 6 PRDN900 EQU * N @ P ADK A4,0 N T P RF(Z) RDN960 NO BUFFER N f " P CF A14,SDMRBU RELEASE BUFFER N PRDN960 EQU * N P LDK A4,0 INDICATE NO BUFFER N P* N P* EXIT N P* N PRD
0x3f14f4…3f1688 Dummy {f00=0x011a, f01=0x0190, f02=»************************ N t P* O > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE O * * P* SPECIFIED KEY OR NEXT HIGHER KEY O l 6 P* IF END OF FILE, THE FIRST FREE RECORD IS FOUND O P* O 8 P****ENTRY PARAMETERS**********************
0x3f1688…3f181c Dummy {f00=0x011a, f01=0x0190, f02=» = PHYSICAL ECB ADDRESS O P* P 8 P****EXIT PARAMETERS********************************* P * P* P f P* A11= FDB ADDRESS P p 0 P* FDBSNR,FDBRRO = FOUND INDEX RECORD P " P* A1 = 0 WHEN KEY ISS FOUND P 0 P* = /400 WHEN NEXT HIGHER KE
0x3f181c…3f19b0 Dummy {f00=0x011a, f01=0x0190, f02=»FER ADDRESS P & P* = 0 WHEN NO RECORD IS FOUND Q " P* A7 = NO OF SAME CHARACTERS Q > " P* A8 = PHYSICAL ECB ADDRESS Q d P* A10 = UNCHANGED Q P* CR=0 WHEN KEY IS FOUND Q & P* NUMBER OF A14 LEVELS = 9 (WORDS) Q P* Q 8 P****USED REG
0x3f19b0…3f1b44 Dummy {f00=0x011a, f01=0x0190, f02=»****************** Q l P EJECT R PFNDKEY EQU * R ( P* R < & P* FIRST SEARCH THE NMASTER INDEX R F P* R p * P LD A5,FDBMIA,A11 ADDR OF MASTER INDEX R z 0 P CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX R P RF(NZ) FKY900 ERROR R " P LDR A6,A10 NO O
0x3f1b44…3f1cd8 Dummy {f00=0x011a, f01=0x0190, f02=»TR GET INDEX RECORD R ( P RF(Z) FKY900 I/O FAILED ,NO BUFFER S P* S H " P* BUFFER AND ADATA IS FOUND S R P* S x PFKY150 EQU * S P ADR A1,A4 BUFFER ADR S P ADKL A1,BUFSTA S P LDR A5,A1 S 2 P AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARAC
0x3f1cd8…3f1e6c Dummy {f00=0x011a, f01=0x0190, f02=»CT S P* T & P* NO MORE RECORDS IN THIS SECTOR T P* T > * P LD A13,FDBRRO,A11 SAVE CURRENT OFFSET T H P LD A5,FDBMRO,A11 T v * P ST A5,FDBRRO,A11 LAST RECORD IN BLOCK T P* T P* T P* CHECK IF END OF FILE T P* T P LDR A5,A7 CHA
0x3f1e6c…3f2000 Dummy {f00=0x011a, f01=0x0190, f02=» RB(L) FKY100 NOT EOF T P RF(G) FKY180 EOF U P CW A2,FDBLRN+1,A11 U 8 P RB(L) FKY100 NOT EOF U T P* U r P* EOF IS IN THIS SECTOR U | P* U PFKY180 EQU * U 2 P ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD U P LDKL A1,EOFRC EOF U
0x3f2000…3f2194 (3, 587) Dummy {f00=0x0121, f01=0x018e, f02=» KEYS U z P RF(Z) FKY870 KEY FOUND V " P RF(N) FKY850 SEARCH KEY LESS V . P* V T P* SEARCH KEY GREATER V ^ P* V z PFKY840 EQU * V " P CC A7,-4,A5 NEXT KEY FLAG =3 V , P RB(NG) FKY100 START OF KEY:S IDENTICAL V 4 P LC A7,-4,A5 REDUCE NUMBER
0x3f2194…3f2328 Dummy {f00=0x0121, f01=0x0190, f02=» P LDKL A1,NOKEY KEY NOT FOUND W P RF FKY950 W ( P* W : P* KEY FOUND W D P* W X PFKY870 EQU * W b P LDK A1,0 KEY FOUND W v P RF FKY950 W PFKY900 EQU * W $ P LDK A7,0 NO OF SAME LEAD CHARS W PFKY950 EQU * W ( P ABL RETURN RETURN A
0x3f2328…3f24bc Dummy {f00=0x0121, f01=0x0190, f02=»S ARE UPDATED W P* X P* IN: X & P* A1,A2 = LAST RECORD NR MOVED X 0 & P* A12,A13= FIRST RECORD NR MOVED X Z P* A11 = FDB ADDR INDEX X & P* A7 = ADD PARAMETER +1, -1 X P* X P* USED REGISTERS: X P* A1-A3,A6-A7
0x3f24bc…3f2650 Dummy {f00=0x0121, f01=0x0190, f02=» P* Y PCRNUPD EQU * Y $ P LD A3,FDBADF,A11 FDB DATA FILE Y " P INH Y J " P ADKL A3,FDBCRL CRN LINK ROOT Y V PCRU100 EQU * Y | P LDR* A3,A3 Y P RF(Z) CRU900 END OF LINK Y P LC A6,FWTFNR,A11 FILE CODE Y P CC A6,CRNCIF,A3 Y P RB(NE
0x3f2650…3f27e4 Dummy {f00=0x0121, f01=0x018e, f02=»100 Y PCRU200 EQU * Z P CC A1,CRNCIF+1,A3 Z P RF(G) CRU300 Z : P RB(L) CRU100 Z P P CW A2,CRNCIF+2,A3 Z f P RB(L) CRU100 Z PCRU300 EQU * Z P* Z P* UPDATE CRN Z P* Z P LDR A6,A7 Z P RF(N) CRU230 -1 Z P LDK A6,0
0x3f27e4…3f2978 Dummy {f00=0x0121, f01=0x0190, f02=» Z P SC A1,CRNCIF+1,A3 [ P ST A2,CRNCIF+2,A3 [ " P RB CRU100 [ < PCRU900 EQU * [ N P ENB [ b P RTN A14 [ n P EJECT DMSUBR [ ~ 8 P****DESCRIPTION************************************* [ P* [ D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO
0x3f2978…3f2b0c Dummy {f00=0x0121, f01=0x0190, f02=»* FDBSNR,FDBRRO,FDBCEX [ P* * 8 P****EXIT PARAMETERS********************************* 4 P* p P* A1,A2 = LOG RECORD NO z & P* NUMBER OF A14 LEVELS = 4 (WORDS) P* 8 P****USED REGISTERS**********************************
0x3f2b0c…3f2ca0 Dummy {f00=0x0121, f01=0x0190, f02=»QU * P ST A4,-4,A14 SAVE A4 ] P LD A1,FDBSNR,A11 ] * $ P LD A2,FDBSNR+2,A11 REL SECT NR ] D P LDK A6,0 ] l P LDK A7,1 ] ~ P CF A14,DSUMOD ] P LDK A6,0 ] P LC A6,FDBBLZ,A11 BLOCK SIZE ] P CF A14,DIVMOD ] P LDR A6,A2 BLOCKS - 1
0x3f2ca0…3f2e34 (3, 588) Dummy {f00=0x0121, f01=0x0190, f02=»MPYMOD A1,A2=A6*A7 ] P LD A4,FDBRLE,A11 ^ P ADK A4,1 RECORD LENGTH ^ 4 P LDK A7,0 RECORD COUNTER ^ T & P LD A6,FDBRRO,A11 OFFSET IN SECTOR ^ t P ADK A6,1 ^ PGTL150 EQU * ^ P ADK A7,1 RECORD COUNTER ^ P SUR A6,A4 ^ * P RB(NN) GTL150 COU
0x3f2e34…3f2fc8 Dummy {f00=0x0121, f01=0x0190, f02=» ^ z P RF GTL170 _ PGTL160 EQU * _ & P ANKL A2,/7FFF DELETE OVERFLOWBIT _ . P ADK A1,1 ADD CARRY _ X PGTL170 EQU * _ t P LD A4,-4,A14 SAVED REGISTER _ P RTN A14 _ P EJECT _ P* _ 0 P* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2 _ P
0x3f2fc8…3f315c Dummy {f00=0x0121, f01=0x0190, f02=»EXIT: A11,A4,A9=NOT CHANGED _ $ P* A1,A2 =USED REGISTERS ` $ & P* NUMBER OF A14 LEVELS = 2 (WORDS) ` L P* ` v PRECECB EQU * ` " P LD A2,FDBRRO,A11 RECORD ADDR ` P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x3f315c…3f32f0 Dummy {f00=0x0121, f01=0x40b8, f02=» ` P ST A1,ECBCW,A9 a P LC A1,4,A2 a P ECR A1,A1 a 4 P LC A1,5,A2 a F P ST A1,ECBCW+2,A9 a Z P RTN A14 a t P XIF a P a P a P a P END a @ a P ADKL A2,BUFSTA ` P ADR A2,A4 REC ADDR ` $ P LD A1,FDBRLE,A11 RECORD L
0x3f32f0…3f3484 Dummy {f00=0x0121, f01=0x2008, f02=» b + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x3f3484…3f3618 Dummy {f00=0x0121, f01=0x0190, f02=» X j EOFRC , ( M$ U O X O X G r CRNUPD: J , ( c$ : d N * & }B N $ G .T D D F * & .P . nXp jX6 N , ( l O _ D ' [
0x3f3618…3f37ac Dummy {f00=0x0121, f01=0x0190, f02=» b O v DSUMOD. * & " N T b ( , ( ' P 2T P R P V , ( A : nX N lW N O , ( Y H j J T N , ( q f I dT b M d
0x3f37ac…3f3940 Dummy {f00=0x0121, f01=0x0190, f02=»R Q N XU xW O 4 BUFOR ( BUFSNR 8 * & D R P ' P Q ' T P J , ( H C . P C . RT x FMIORD , ( :_b T B $W O 4 , ( H W :
0x3f3940…3f3ad4 (3, 589) Opaque[0x194]
0x3f3ad4…3f3c68 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1980, f03=0x0000}
0x3f3ad4…3f3c68 IdxSect {
0x3f3ad4…3f3c68 f00 = 0x00cc // 0x3f3ad4 @0x0
0x3f3ad4…3f3c68 f01 = 0x0028 // 0x3f3ad6 @0x2
0x3f3ad4…3f3c68 gno = [ // 0x3f3ad8 @0x4
0x3f3ad4…3f3c68 [0x00]: C0x00cc.0x0.0
0x3f3ad4…3f3c68 [0x01]: C0x00cc.0x1.0
0x3f3ad4…3f3c68 [0x02]: C0x00cc.0x2.0
0x3f3ad4…3f3c68 [0x03]: C0x00cc.0x3.0
0x3f3ad4…3f3c68 [0x04]: C0x00dd.0x0.0
0x3f3ad4…3f3c68 [0x05]: C0x00dd.0x1.0
0x3f3ad4…3f3c68 [0x06]: C0x012a.0x2.0
0x3f3ad4…3f3c68 [0x07]: C0x012a.0x3.0
0x3f3ad4…3f3c68 [0x08]: C0x012b.0x0.0
0x3f3ad4…3f3c68 [0x09]: C0x012b.0x1.0
0x3f3ad4…3f3c68 [0x0a]: C0x012b.0x2.0
0x3f3ad4…3f3c68 [0x0b]: C0x012b.0x3.0
0x3f3ad4…3f3c68 [0x0c]: C0x012c.0x0.0
0x3f3ad4…3f3c68 [0x0d]: C0x012c.0x1.0
0x3f3ad4…3f3c68 [0x0e]: C0x012c.0x2.0
0x3f3ad4…3f3c68 [0x0f]: C0x012c.0x3.0
0x3f3ad4…3f3c68 [0x10]: C0x012d.0x0.0
0x3f3ad4…3f3c68 [0x11]: C0x012d.0x1.0
0x3f3ad4…3f3c68 [0x12]: C0x012d.0x2.0
0x3f3ad4…3f3c68 [0x13]: C0x012d.0x3.0
0x3f3ad4…3f3c68 ]
0x3f3ad4…3f3c68 }
0x3f3c68…3f3dfc Dummy {f00=0x00cc, f01=0x0190, f02=» 2 P IDENT FMTASK REL 11.0 81-05-13 870105041100 P : 0 P =7, FDBMEC NOT SET IN SYSTEMS WITHOUT DM B P =7, REL 11.0 81-02-04 v $ P =6,EDM INITIALIZATION 3 DISCS P =6, REL 11.0 81-02-03 P =5, ADM INITIALIZATION P REL 1
0x3f3dfc…3f3f90 Dummy {f00=0x00cc, f01=0x0190, f02=»ING j P PRR 11.0 80-11-20 CHLO , P =2, EDM INITIALIZATION ALLWAYS HALTED 0 P PRR 11.0 80-11-19 CHLO ` " P =1, HALT IF TTAB NOT FOUND P PRR 11.0 80-11-19 POHO P* P* 6 P**************************************
0x3f3f90…3f4124 Dummy {f00=0x00cc, f01=0x0190, f02=» * j P* P* P* ( P* 2 6 P************************************************** < P* v P* . P* TOSS FILE MANAGEMENT TASK CONTAINS THE . P* FOLLOWING FILE ADMINISTRATION MODULES: P* P* - FMOPEN O
0x3f4124…3f42b8 Dummy {f00=0x00cc, f01=0x0190, f02=» P* 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. B : P* FMINIT ALSO HOLDS THE EDM INITIALIZATION ROUTINE. t P* P* P EJECT FMTASK P* P* P*********** P*
0x3f42b8…3f444c Dummy {f00=0x00cc, f01=0x0190, f02=»END) ` 2 P ENTRY DLCLO1 CLOSE FILE (CALLED FROM DELETE) 2 P ENTRY DLCLO2 CLOSE FILE (CALLED FROM DELETE) B , P ENTRY FMTASK FMTASK ACTIVATION ADDRESS x 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION 2 P ENTRY FMREAD FMTASK READ DISC SECTOR ROUTIN
0x3f444c…3f45e0 Dummy {f00=0x00cc, f01=0x0190, f02=» . P ENTRY FMEXIT FMTASK SET RETURN CODE EXIT * P ENTRY FM:INE FMTASK ILLEGAL NAME EXIT 6 , P ENTRY FM:RQE FMTASK REQUEST ERROR EXIT d 6 P ENTRY FNDNAM FIND VOLUME NAME ADDRESS IN DISC DWT . P ENTRY FNDVTC FIND ONE FILE EXTENT (VTOC) " P ENTRY F
0x3f45e0…3f4774 (3, 590) Dummy {f00=0x00cc, f01=0x0190, f02=»CTERS v $ P ENTRY FM:MV8 MOVE 8 CHARACTERS " P ENTRY CMPSTR COMPARE STRINGS 6 * P ENTRY CMPDWD COMPARE TWO DOUBLE WORDS " P ENTRY FILCOD FILE CODE TABLE 2 P ENTRY VOLUME CURRENT VOLUME FILE CODE POINTER , P ENTRY FM:BUF FMTASK DISC SECTOR B
0x3f4774…3f4908 Dummy {f00=0x00cc, f01=0x0190, f02=»JECT FMTASK P* 4 P ENTRY FWTVTC VTOC SECTOR NUMBER (FIRST EXTENT) ( P ENTRY FWTPAR FILE ACCESS PARAMETERS X P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK I
0x3f4908…3f4a9c Dummy {f00=0x00cc, f01=0x0190, f02=»RY FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS 0 P ENTRY FWTSEX FILE SECTION AND EXTENT NUMBER 4 P ENTRY FPB:RL RECORD LENGTH h P ENTRY FPB:BF BLOCK FACTOR $ P ENTRY FPB:FO FILE ORGANIZATION P ENTRY FPB:DT DEVICE TYPE =1 P ENTRY FPB:BO
0x3f4a9c…3f4c30 Dummy {f00=0x00cc, f01=0x0190, f02=»ME NAME 1 ~ P ENTRY FPB:S1 SIZE 1 P ENTRY FPB:V2 VOLUME NAME 2 . P ENTRY FPB:S2 SIZE 2 R P ENTRY FPB:V3 VOLUME NAME 3 n P ENTRY FPB:S3 SIZE 3 P ENTRY FPB:V4 VOLUME NAME 4 P ENTRY FPB:S4 SIZE 4 $ P ENTRY FPB:FR FILE RECORD
0x3f4c30…3f4dc4 Dummy {f00=0x00cc, f01=0x0190, f02=»SOP SWITCH NUMBER ( P ENTRY FPB:IF NUMBER OF INDEX FILES ( P ENTRY FPB:KA KEY ADDRESS IN RECORD F P ENTRY FPB:CD CREATION DATE r " P ENTRY FPB:RP RETENTION PERIOD P EJECT FMTASK P* P* P ENTRY EWTEXL EXTENT LENGTH
0x3f4dc4…3f4f58 Dummy {f00=0x00cc, f01=0x0190, f02=»OL:VN VOLUME NAME $ P ENTRY VOL:EL VTOC EXTENT LENGTH " P ENTRY VOL:EB VTOC EXTENT BASE B $ P ENTRY VOL:RL VTOC RECORD LENGTH h P ENTRY VOL:FS FSAT LENGTH $ P ENTRY VTOCRL VTOC RECORD LENGTH $ P ENTRY VTOCBF VTOC BLOCK FACTOR P ENTRY
0x3f4f58…3f50ec Dummy {f00=0x00cc, f01=0x0190, f02=»SOP SWITCH NUMBER $ P ENTRY VTC:EN FILE EXTENT NUMBER $ P ENTRY VTC:EL FILE EXTENT LENGTH B " P ENTRY VTC:EB FILE EXTENT BASE j $ P ENTRY VTC:LR LAST RECORD NUMBER P ENTRY VTC:RL RECORD LENGTH P ENTRY VTC:BF BLOCK FACTOR $ P ENTRY VTC
0x3f50ec…3f5280 Dummy {f00=0x00cc, f01=0x0190, f02=»LES p ( P ENTRY VTC:KA KEY ADDRESS IN RECORD $ P ENTRY VTC:NE NO OF FILE EXTENTS 8 P ENTRY VTC:ST STATUS BYTE ` P EJECT FMTASK P* P* P************* P* EXTERNALS * P************* P* P* P EXT
0x3f5280…3f5414 (3, 591) Dummy {f00=0x00cc, f01=0x0190, f02=»T MONITOR TASK p 4 P EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK 4 P EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK N 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . P EXTRN FINDTT FIND DATA MANAGEMENT TASK =1 ( P EXTRN FNDDWD FIND DISC DWT
0x3f5414…3f55a8 Dummy {f00=0x00cc, f01=0x0190, f02=»TO PHYSICAL j ( P EXTRN DET:FM FILE MANAGEMENT DETACH : P EXTRN FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS @ $ P EXTRN TIODM (E)DM ADDRESS BLOCK ~ . P EXTRN SEXTNO START EXTENT NUMBER (EXTEND) & P EXTRN DFTAB DISC FILE CODE TABLE P EXTRN
0x3f55a8…3f573c Dummy {f00=0x00cc, f01=0x0190, f02=»TABLE LENGTH x ( P EXTRN SCTDMT (E)DM TASKS IN SYSTEM 0 P EXTRN SCTMOX DISPATCH ADDRESS TABLE POINTER @ & P EXTRN DWDM01 (E)DM SYSTEM DWT/FWT t P EXTRN NVLTAB NVL TABLE P EXTRN NVLEND END OF NVLTAB P EXTRN NVLBIT NVL BIT MASK P EJE
0x3f573c…3f58d0 Dummy {f00=0x00cc, f01=0x0190, f02=»ECB ADDRESS ~ P EXTRN DWTVOL VOLUME NAME P EXTRN DWTNVL NVL INDICATOR 6 * P EXTRN DWTPAB PARAMETER BLOCK ADDRESS Z 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P EXTRN TTB:MT MMU TABLE " P EXTRN TTB:SA DISPATCH ADDRESS P EXT
0x3f58d0…3f5a64 Dummy {f00=0x00cc, f01=0x0190, f02=» REQUESTED LENGTH & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE D P EXTRN ECBCW1 CONTROL WORD 1 h P EXTRN ECBCW2 CONTROL WORD 2 P EXTRN HALT P EJECT FMTASK P* P* , P************************
0x3f5a64…3f5bf8 Dummy {f00=0x00cc, 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
0x3f5bf8…3f5d8c Dummy {f00=0x00cc, f01=0x0190, f02=» PDSKPAG EQU 1 P* P* & 4 P* A PROGRAM VERSION INCLUDING CREATE/DELETE FILE 0 0 P* IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1. h P* PX:A EQU 0 PFMCDEF EQU 00000 P* P EJECT FMTASK P* P* 2 P*
0x3f5d8c…3f5f20 Dummy {f00=0x00cc, f01=0x0190, f02=»00001 P* P* < P* A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT " . P* IS OBTAINED BY SETTING EDM (X:C) EQU 1. b P* PX:C EQU 0 PEDM EQU X:C P* P* > P* A PROGRAM VERSION SUPPORTING ABRIDGED DATA MAN
0x3f5f20…3f60b4 (3, 592) Dummy {f00=0x00cc, f01=0x0190, f02=» " P* COMBINED CONDITION ADMEDM =5 P IFF ADM+EDM=0 =5 . PADMEDM EQU 1 =5 H P XIF =5 ` P IFT ADM+EDM=0 =5 p PADMEDM EQU 0 =5 P XIF =5 P* P EJECT FMTASK P* P* & P* THE ATTACH/DETACH FILE FUNCT
0x3f60b4…3f6248 Dummy {f00=0x00cc, f01=0x0190, f02=»MULTIPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. $ P* R PMULEXT EQU 1 PX:F EQU MULEXT p P* P EJECT FMTASK P* P* P******************** P* VL DISPLACEMENTS * P********************
0x3f6248…3f63dc Dummy {f00=0x00cc, f01=0x0190, f02=»VOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH & PVOL:FS EQU 46 FSAT LENGTH N P* p P* z P****************** P* VTOC CONSTANTS * P****************** P* P* $ PVTOCRL EQU 42 VTOC RECORD LENGTH
0x3f63dc…3f6570 Dummy {f00=0x00cc, f01=0x0190, f02=»ISPLACEMENTS * P********************** P* 4 , P* VOLUME TABLE OF CONTENTS DISPLACEMENTS > P* n PVTC:FN EQU 0 FILE NAME x ( PVTC:MN EQU 8 MONITOR NUMBER (L-FILE) . PVTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) " PVTC:SN EQU 9 SOP SWI
0x3f6570…3f6704 Dummy {f00=0x00cc, f01=0x0190, f02=»VTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH ( PVTC:BF EQU 26 BLOCK FACTOR L $ PVTC:FO EQU 27 FILE ORGANIZATION n PVTC:CD EQU 28 CREATION DATE " PVTC:RP EQU 34 RETENTION PERIOD ( PVTC:IF EQU 37 NUMBER OF INDEX FILES
0x3f6704…3f6898 Dummy {f00=0x00cc, f01=0x0190, f02=»CT FMTASK P* P* P********************* ( P* FWT DISPLACEMENTS * F P********************* d P* $ P* FILE WORK TABLE DISPLACEMENTS P* PFWTLNK EQU /00 LINK NEXT FWT P* P IFT MMUPAG=0 PFWTBAS
0x3f6898…3f6a2c Dummy {f00=0x00cc, f01=0x0190, f02=»S+/00 VTOC SECTOR NUMBER (FIRST EXTENT) 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS 0 & PFWTFNR EQU FWTBAS+/03 FILE NUMBER d > PFWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS : PFWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT
0x3f6a2c…3f6bc0 Dummy {f00=0x00cc, f01=0x0190, f02=»W2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 8 4 PFWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT) v $ PFWTNAM EQU FWTBAS+/12 FILE NAME < PFWTQUE EQU FWTBAS+/1A QUEUE ANCHOR FOR FILE I/O RE
0x3f6bc0…3f6d54 (3, 593) Dummy {f00=0x00dd, f01=0x0190, f02=»************* P* & P* EXTENT WORK TABLE DISPLACEMENTS P* J $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK T P* | P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/EXTENT NUMBER * PEWTEXL EQU 4 EXTENT LENGTH IN SECTORS P*
0x3f6d54…3f6ee8 Dummy {f00=0x00dd, f01=0x0190, f02=»ABLE BLOCK LENGTH v P* P EJECT FMTASK $ P* < P* F P********************* P P* FPB DISPLACEMENTS * n P********************* P* ( P* FILE PARAMETER BLOCK DISPLACEMENTS P* PFPB:RL EQU 0 RECORD LENGTH
0x3f6ee8…3f707c Dummy {f00=0x00dd, f01=0x018e, f02=»S x PFPB:NO EQU 6 FILE NUMBER =1 PFPB:FN EQU 8 FILE NAME . PFPB:EL EQU 17 ENLARGE L PFPB:V1 EQU 18 VOLUME NAME 1 j PFPB:S1 EQU 24 SIZE 1 PFPB:V2 EQU 28 VOLUME NAME 2 PFPB:S2 EQU 34 SIZE 2 PFPB:V3 EQU 38 VOLUME NAME 3
0x3f707c…3f7210 Dummy {f00=0x00dd, f01=0x0190, f02=» " PFPB:US EQU 62 NUMBER OF USERS ! PFPB:SH EQU 64 SHAREABILITY ! * PFPB:MN EQU 65 MONITOR NUMBER ! L $ PFPB:SN EQU 66 SOP SWITCH NUMBER ! p ( PFPB:IF EQU 67 NUMBER OF INDEX FILES ! ( PFPB:KA EQU 68 KEY ADDRESS IN RECORD ! PFPB:CD EQU 70 CREATION D
0x3f7210…3f73a4 Dummy {f00=0x00dd, f01=0x0190, f02=» ! P* " P* " P********** " P* TTABFM * " . P********** " @ P* " R P* FMTASK TTAB " P* " r P IFT MMUPAG=1 " | P RES 16 FMTASK MMU TABLE " P XIF " P* " P IFF MMUPAG+DSKPAG=0 " ( P DATA 0 CURRENT SEGMENT BASE (DUMMY)
0x3f73a4…3f7538 Dummy {f00=0x00dd, f01=0x0190, f02=»DRESS (DUMMY) " P* # PTTABFM EQU * TTABFM ENTRY # " P DATA 0 DISPATCHER QUEUE LINK # B " P DATA '#A' TASK IDENTIFICATION # h P DATA 49 PRIORITY LEVEL # P DATA 0 PENDING POINTER # * P DATA /C4C0 PSW (PROGRAM STATUS WORD) # P DATA 0 DISP
0x3f7538…3f76cc Dummy {f00=0x00dd, f01=0x0190, f02=» & P DATA 2 TASK DEVICE TABLE (DUMMY) $ P* $ . P EJECT FMTASK $ 8 P* $ P P* $ Z " P***************************** $ d " P* ECB, STACK AND DATA AREAS * $ " P***************************** $ P* $ P* $ * PFM:ECB DATA /8000,0,0 FMTASK E
0x3f76cc…3f7860 Dummy {f00=0x00dd, f01=0x0190, f02=» $ P DATA 0,0 % $ PFM:STB EQU *-2 FMTASK STACK BASE % P* % B $ PFEXTNO DATA 0 NO OF FILE EXTENTS % L $ PFILCOD DATA 0,0 FILE CODE TABLE % t * PRETCOD DATA 0 ACKUMULATED RETURN CODE % * PTTAB DATA 0 TTAB ADDRESS CALLING TASK % 2 PVOLUME DATA 0 CU
0x3f7860…3f79f4 (3, 594) Dummy {f00=0x00dd, f01=0x0190, f02=» P EJECT FMTASK & P* & P* & & P********** & 0 P* FMINIT * & B P********** & T P* & f P* & p > P* FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. & z < P* IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. & > P* WHEN CAL
0x3f79f4…3f7b88 Dummy {f00=0x00dd, f01=0x0190, f02=»THER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & & P* WELL AS FWTFNR (FILE NUMBER). ' 8 6 P* FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR ' b $ P* (EXTENDED) DATA MANAGEMENT. ' < P* THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON ' < P*
0x3f7b88…3f7d1c Dummy {f00=0x00dd, f01=0x018e, f02=»N CODE ' p P ST A1,FMINIT CLOSE THE DOOR ( P* ( 2 P* FMTASK DISC SECTOR BUFFER ( < P* ( ` > PFM:BUF EQU FMINIT+2 INITIALIZATION ROUTINE USED AS BUFFER ( j P* ( . PFMINI2 EQU * INITIALIZATION ROUTINE ENTRY ( P RES 125 ( P* ( P EJECT
0x3f7d1c…3f7eb0 Dummy {f00=0x00dd, f01=0x0190, f02=» ( b * P LD A1,SCTFWT FWT CHAIN START ADDRESS ) " P LD A4,SCTNOF NUMBER OF FILES ) 6 P LDK A5,0 ) P LDKL A6,/8000 DWT BUSY BIT ) n P* ) PFMI:30 EQU * ) P* ) P IFF ADMEDM+SDM=0 =7 ) P IFT MMUPAG=1 ) 4 P LDKL A8,FDBMEC FDB MMU ECB
0x3f7eb0…3f8044 Dummy {f00=0x00dd, f01=0x0190, f02=» " P AD A3,SCTFWL NEXT FWT ADDRESS * P ADK A5,1 NEXT FILE NUMBER * * P SUK A4,1 * L * P RF(N) FMI:50 INITIALIZATION COMPLETED * ^ , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE * 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT * $ P ADK A1,2 INCREMENT FWT
0x3f8044…3f81d8 Dummy {f00=0x00dd, f01=0x018e, f02=»R * r ( P CWR A1,A3 CHECK IF END OF THIS FWT + & P RB(NE) FMI:40 NOT END OF THE FWT + 6 P SU A3,SCTFWL + ` " P ADK A3,FWTEW2 FWTEW2 ADDRESS + v . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER + , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT + * P ST A6,DWT
0x3f81d8…3f836c Dummy {f00=0x00dd, f01=0x0190, f02=» + j P XIF , P* , P IFF ADMEDM+SDM=0 , P LDKL A7,TIODM =5 , 8 P ST A7,DWTADR,A2 =5 , R P XIF =5 , n & P RB FMI:30 CONTINUE WITH NEXT FWT , P* , P =4 , P EJECT FMTASK , P* , P* COMPUTE NVL BIT MASK , P* ,
0x3f836c…3f8500 Dummy {f00=0x00dd, f01=0x0190, f02=»* A4,A3 GET ONE ENTRY FROM NVLTAB , & P RF(Z) FMI:85 THIS ENTRY NOT USED - * $ P ORR A1,A2 INDICATE TTAB PRESENT - T P* - | PFMI:85 EQU * - P ADR A2,A2 - & P ADK A3,2 INCREMENT NVLTAB POINTER - * P CWK A3,NVLEND CHECK IF END OF NVLTAB - $ P RB(
0x3f8500…3f8694 (3, 595) Dummy {f00=0x012a, f01=0x0190, f02=»DM=1 - 4 P ABL SDMINI PERFORM DM INITIALIZATION AND RETURN . P XIF . D P* . P P =2 . Z P EJECT FMTASK . h P* . P* . P IFT EDM=1 . P* . P* INITIALIZE ALL EDM TASKS . P* . , P LDKL A1,DWDM01 PARAMETER BLOCK ADDRESS .
0x3f8694…3f8828 Dummy {f00=0x012a, f01=0x0190, f02=»A3,SCTDMT EDM TASKS IN SYSTEM . P* / & PFMI:90 EQU * / 0 P SRC A3,1 / D P RF(NN) FMI:99 NEXT TASK / V 0 P CF A15,FNDTID FIND (E)DM TASK TTAB ADDRESS / v P LDR A5,A2 / $ P RF(Z) FMIHLT TTAB NOT FOUND =2 / P* / P EJECT FMTASK / P*
0x3f8828…3f89bc Dummy {f00=0x012a, f01=0x0190, f02=»JUST POINTER / P* 0 PFMI:95 EQU * 0 P ADK A4,4 NEXT ENTRY 0 2 P CWR* A7,A4 0 N P RB(NE) FMI:95 NOT SAME ID 0 b P LD A2,2,A4 DISPATCH ADDRESS 0 $ P CF A15,ACTOT ACTIVATE EDM TASK 0 P* 0 PFMI:99 EQU * 0 P ADK A7,1 NEXT EDM TASK 0
0x3f89bc…3f8b50 Dummy {f00=0x012a, f01=0x018e, f02=»ED, RETURN 0 j P* 1 P* TTAB NOT FOUND =2 1 P* 1 : PFMIHLT EQU * =2 1 D P LDK A1,/11 DM ERROR =2 1 P CF A15,HALT =2 1 | " P RORG FMI:00 END OF RELOCATION 1 P* 1 P EJECT FMTASK 1 P* 1 P* 1 P********** 1 P* FMTA
0x3f8b50…3f8ce4 Dummy {f00=0x012a, f01=0x0190, f02=» 1 h , P* IS ACTIVATED BY THE FILE MANAGEMENT 2 4 P* LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW. 2 8 . P* AFTER SOME HOUSEKEEPING THE FOLLOWING 2 p 6 P* MODULES WILL PERFORM THE FILE ADMINISTRATION: 2 P* 2 D P* - FMOPEN OPEN/CREATE/EXTEND
0x3f8ce4…3f8e78 Dummy {f00=0x012a, f01=0x0190, f02=»AMETERS ( " : 0) 2 t P* 3 & @ P* NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED 3 0 > P* IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE. 3 t P* 3 ( P* A SPECIAL ENTRY IS USED FOR I/O 3 . P* FUNCTIONS WHERE REQUESTE
0x3f8e78…3f900c Dummy {f00=0x012a, f01=0x0190, f02=»0) 3 X P* 4 P* 4 P* ENTRY PARAMETERS: 4 P* 4 < 4 P* A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) 4 F 0 P* = PARAMETER BLOCK ADDRESS (SPLIT I/O) 4 ~ * P* A3 = TTAB ADDRESS OF CALLING TASK 4 J P* A4 = FUNCTION INDEX (0 = RFP, 2 = OP
0x3f900c…3f91a0 Dummy {f00=0x012a, f01=0x018e, f02=» FMTASK ACTIVATION ENTRY 4 P* 5 P* PERFORM SOME HOUSEKEEPING 5 * P* 5 N P CM ECBCW1,A8 CLEAR 1ST CW 5 X , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 5 z . P ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK 5 P LDR A7,A1 SAVE PARAMETER 5 P* 5 P
0x3f91a0…3f9334 (3, 596) Dummy {f00=0x012a, f01=0x0190, f02=» 5 0 P ST A2,ECBRL,A8 SET REQUESTED LENGTH IN ECB 6 P XIF 6 < P* 6 H P IFT CPU852=0 6 R P MLK 3 6 h P DATA /8000,FM:BUF,256 6 v P MSR 3,A8 INITIALIZE FM:ECB 6 P LDR A1,A7 RESTORE PARAMETER 6 P XIF 6 P* 6 P CM RETCOD RESET RETUR
0x3f9334…3f94c8 Dummy {f00=0x012a, f01=0x0190, f02=»A10,ECBBA,A9 FPB/BUFFER ADDRESS 6 P XIF 7 ( P* 7 4 P IFT MMUPAG=1 7 > ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS 7 T P TL TTB:MT,A5 USER MMU TABLE 7 , P TS TTB:MT,A3 STORE IN FMTASK MMU TABLE 7 , P EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS 7 P XIF
0x3f94c8…3f965c Dummy {f00=0x012a, f01=0x0190, f02=»METERS ARE SUPPLIED TO 7 z $ P* THE RESP. FUNCTION HANDLER: 8 P* 8 F P* A1 = ORDER OPTION 8 P * P* A5 = TTAB ADDRESS OF CALLING TASK 8 n ( P* A7 = COMPLETE PARAMETER FROM A1 8 P* A8 = FM:ECB ADDRESS 8 P* A9 = USER ECB ADDRESS 8
0x3f965c…3f97f0 Dummy {f00=0x012a, f01=0x018e, f02=»AB EQU * ADDRESSES TO FUNCTION HANDLERS 8 & P DATA FMRPAR READ FILE PARAMETERS 9 0 ( P DATA FMOPEN OPEN/CREATE/EXTEND FILE 9 Z " P DATA FMCLOS CLOSE/DELETE FILE 9 P* 9 P IFT MULEXT=1 9 P DATA FMSPLI SPLIT I/O 9 P XIF 9 P* 9 P IFT MUL
0x3f97f0…3f9984 Dummy {f00=0x012a, f01=0x0190, f02=» 9 P* FMOPEN * : P********** : P* : , P* : 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: : @ P* OPEN/CREATE/EXTEND FILE : v P* : P* ENTRY PARAMETERS: : P* : P* A1 = ORDER OPTION : P* A8 = FM:ECB ADDRESS :
0x3f9984…3f9b18 Dummy {f00=0x012a, f01=0x0190, f02=»RDER OPTION : ~ P* ; P IFT MMUPAG=1 ; P* ; 4 * P* MOVE USER FPB TO SYSTEM FPB (FM:FPB) ; > P* ; l P LDR A1,A10 USER FPB ADDRESS ; v " P LDKL A2,FM:FPB FM FPB ADDRESS ; P LDR A10,A2 SAVE IT ; & P LDK A3,FPBLEN FPB LENGTH (BYTES) ; $ P M
0x3f9b18…3f9cac Dummy {f00=0x012a, f01=0x018e, f02=»ADDRESS ; p 6 P LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT IN FPB < P* < J ( P* CHECK IF ANY VOLUME NAME SPECIFIED < T P* < PFMOP00 EQU * < P LDR A2,A10 FPB ADDRESS < $ P ADR A2,A7 POINT TO VOLUME NAME < * P LDR* A2,A2 FIRST WORD OF VOLUME N
0x3f9cac…3f9e40 Dummy {f00=0x012a, f01=0x0190, f02=» < h 4 P LDKL A4,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 = P* = @ & P* CONVERT VOLUME NAME TO FILE CODE = J P* = t PFMOP10 EQU * = ~ P LDK A2,0 = & P ADK A4,1 POINT TO NEXT FILE CODE = ( P CWK A4,DFTABE CHECK IF END OF DFTAB = . P RF(E) FM:INE
0x3f9e40…3f9fd4 (3, 597) Dummy {f00=0x012b, f01=0x018e, f02=»DRESS = ~ 2 P ADR A2,A7 POINT TO CURRENT VOLUME NAME IN FPB > P LDK A3,6 VOLUME NAME LENGTH > D ( P CF A14,CMPSTR COMPARE VOLUME NAMES > h * P RB(NE) FMOP10 VOLUME NAMES NOT EQUAL > P LCR A2,A4 FILE CODE > : P SC A3,DWTNVL+1,A6 CLEAR NVL BITS (A3 = 0
0x3f9fd4…3fa168 Dummy {f00=0x012b, f01=0x0190, f02=» PFMOP20 EQU * ? P SCR A2,A5 SAVE FILE CODE ? P ADK A5,1 ? : 8 P ADK A7,FPB:V2-FPB:V1 NEXT VOLUME NAME DISPLACEMENT ? L * P CWK A5,FILCOD+4 CHECK IF END OF TABLE ? ( P RB(NE) FMOP00 MORE VOLUMES TO CHECK ? & P SUK A5,4 FILE CODE TABLE ADDRESS ?
0x3fa168…3fa2fc Dummy {f00=0x012b, f01=0x0190, f02=»F ? , P RF(NZ) FMOP40 FIRST FILE CODE TO TREAT @ & P ADK A5,1 POINT TO NEXT FILE CODE @ : * P CWK A5,FILCOD+4 CHECK IF END OF TABLE @ d ( P RB(NE) FMOP30 CHECK NEXT FILE CODE @ P* @ P* VOLUME/FILE NOT FOUND @ P* @ & PFM:INE EQU * VOLUME/FI
0x3fa2fc…3fa490 Dummy {f00=0x012b, f01=0x0190, f02=» @ | P* A PFMOP40 EQU * A 2 P ST A5,VOLUME CURRENT VOLUME FILE CODE ADDRESS A & P LDR A4,A13 ORDER OPTION A P RF(Z) OPEN OPEN FILE A | P* A P IFT FMCDEF=1 A P SUK A4,1 A P ABL(Z) EXTEND EXTEND FILE A P SUK A4,1 A P ABL(Z)
0x3fa490…3fa624 Dummy {f00=0x012b, f01=0x0190, f02=» RETURN CODE A P RF ER:RTN B P* B & P EJECT FMTASK B 0 P* B H P* B R P******** B P* OPEN * B l P******** B | P* B P* B P* ENTRY PARAMETERS: B P* B P* A4 = 0 B 0 P* A5 = VOLUME FILE CODE ADDRESS IN FILCOD B
0x3fa624…3fa7b8 Dummy {f00=0x012b, f01=0x0190, f02=» P* C POPEN EQU * OPEN FILE C P* C * P EJECT FMTASK C 4 P* C L * P* CHECK IF FILE IS ALREADY OPENED AND C V P* FIND FWT ADDRESS C P* C * P LD A12,SCTFWT FWT CHAIN START ADDRESS C P* C POP:005 EQU * C P LDK A2,1 C P*
0x3fa7b8…3fa94c Dummy {f00=0x012b, f01=0x0190, f02=» FWT C v P TM A12,A2 CHECK IF USED D ( P RF(NZ) OP:015 USED, CHECK FILE NAME D , 6 P ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED D X & P RB(NZ) OP:010 YES, DON'T SAVE IT D ( P LDR A4,A6 NO, SAVE THIS FWT ADDRESS D P RB OP:010 CONTINUE SEARCH D
0x3fa94c…3faae0 Dummy {f00=0x012b, f01=0x0190, f02=»IL COMPARE FILE NAMES D ( P RB(NE) OP:005 FILE NAMES NOT EQUAL E 4 P CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT E J P RB(NE) OP:005 NOT THIS FILE E P* E P EJECT FMTASK E P* E P* FILE IS ALREADY OPENED: E 0 P* CHECK ATTACH PARAM
0x3faae0…3fac74 (3, 598) Dummy {f00=0x012b, f01=0x0190, f02=»Z) OP:020 NO ATTACH REQUESTED E 0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) F & $ P RF(Z) OP:018 FILE NOT ATTACHED F Z . P CW A2,TTAB CHECK IF ATTACHED BY THIS TASK F 0 P RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK F P* F POP:018 EQU * F * P L
0x3fac74…3fae08 Dummy {f00=0x012b, f01=0x0190, f02=»WTPAR,A6 ACCESS PARAMETERS F P LDR A2,A1 G " P ANK A1,/3F NUMBER OF USERS G 4 P SUK A1,/3F G X P ABL(NZ) OPEXIT G l P* G P EJECT FMTASK G P* G P* ERROR EXITS G P* G 0 P LDKL A4,/0210 RETURN CODE (TOO MANY USERS) G P RF
0x3fae08…3faf9c Dummy {f00=0x012b, f01=0x0190, f02=»ER:RTN G P* H POP:040 EQU * FILE ATTACHED H P LDK A4,/40 RETURN CODE H : P XIF H Z P* H f PER:RTN EQU * H p & P ORS A4,RETCOD PREPARE RETURN CODE H P ABL FMEXIT RETURN H P* H P EJECT FMTASK H P* H P* FILE IS NOT OPENED
0x3faf9c…3fb130 Dummy {f00=0x012b, f01=0x0190, f02=»QU * H P LDR A6,A4 FREE FWT ADDRESS I ( P RB(Z) OP:030 NO FREE FWT AVAILABLE I 0 P LDR A1,A10 FPB ADDRESS I P ADK A1,FPB:FN I | P LDR A3,A6 FWT ADDRESS I P ADK A3,FWTNAM I " P CF A14,FM:MV8 MOVE FILE NAME I P LDR A2,A7 RESTORE FILE CODE
0x3fb130…3fb2c4 Dummy {f00=0x012b, f01=0x0190, f02=»* OPEN EXTENDED FILE (CALLED FROM EXTEND) I P* J 4 P* A2 = DISC FILE CODE J > P* A6 = FWT ADDRESS J ^ P* A8 = FM:ECB ADDRESS J z P* A9 = USER ECB ADDRESS J P* A10 = FPB ADDRESS J P* J * POPEXT EQU * ENTRY USED BY EXTEND FILE
0x3fb2c4…3fb458 Dummy {f00=0x012b, f01=0x0190, f02=»AB ADDRESS OF CALLING TASK J " P CF A14,FNDVTC FIND VTOC ENTRY K " P* K H POP:075 EQU * K R 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER K f ( P RF(NZ) OP:080 ONE FILE EXTENT FOUND K $ P ADK A4,0 CHECK DISC RETURN CODE K 6 P RF(Z) OP:160 NO MORE FILE
0x3fb458…3fb5ec Dummy {f00=0x012b, f01=0x0190, f02=»TH AND EXTENT BASE K ~ P* TO FWT AND/OR EWT BLOCKS L P* L < POP:080 EQU * L F ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER L Z ( P LD A2,VTC:FO,A13 FILE ORGANIZATION L P ANK A2,/FF L P SUK A2,'L' L P RF(Z) OP:085 L-FILE L * P LD A2,VTC:FS,A13
0x3fb5ec…3fb780 Dummy {f00=0x012b, f01=0x018e, f02=»1 L $ P LC A4,TTB:SA+14,A5 ORDER OPTION M P SRC A4,1 CHECK IF EXTEND M 2 P RF(NN) OP:085 NOT EXTEND M T 0 P CW A3,SEXTNO CHECK IF VTOC ALREADY TREATED M v & P RF(NG) OP:110 YES, SKIP THIS VTOC M P XIF M P* M POP:085 EQU * M * P LC A2,VTC
0x3fb780…3fb914 (3, 599) Dummy {f00=0x012b, f01=0x0190, f02=» POP:090 EQU * N P INH N P CF A15,GETBLK EWT BLOCK 1 N $ P RF OP:100 N F P* N X P EJECT FMTASK N b P* N z P* N POP:095 EQU * N ( P LC A4,VTC:NE,A13 NO OF FILE EXTENTS N P ANK A4,/FF N P NGR A4,A4 NEGATE VALUE N P ADS A
0x3fb914…3fbaa8 Dummy {f00=0x012b, f01=0x0190, f02=»L-2,A6 STORE FILE EXTENT LENGTH, FIRST EXTENT N P ST A1,FWTEXL,A6 O 6 P* O N POP:100 EQU * O X P LDR* A2,A8 VOLUME FILE CODE O l * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE O ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE O P LD A1,VTC:EB+2,A13 O * P O
0x3fbaa8…3fbc3c Dummy {f00=0x012b, f01=0x0190, f02=» EXTENT O ` P ST A1,FWTEXB,A6 P < P ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT P ( P* P h * P* FIND REMAINING EXTENTS FOR THIS FILE P r P* P POP:110 EQU * P . P IM FEXTNO INDICATE ONE MORE EXTENT FOUND P 6 P RF(Z) OP:160 NO MORE FI
0x3fbc3c…3fbdd0 Dummy {f00=0x012b, f01=0x0190, f02=» ( P* INSERT NEW EWT BLOCKS IN EWT CHAIN Q P* Q 0 POP:120 EQU * Q : " P LDR A3,A4 ADDRESS EWT BLOCK 1 Q N P CF A15,GETBLK EWT BLOCK 2 Q t P ENB Q P STR A4,A3 LINK EWT2 TO EWT1 Q P LDR A1,A6 FWT ADDRESS Q P ADK A1,FWTEW2 Q P* Q POP:1
0x3fbdd0…3fbf64 Dummy {f00=0x012b, f01=0x0190, f02=»EWT BLOCK Q z P STR A3,A1 R P RB OP:110 CONTINUE R $ P* R @ POP:150 EQU * R J 4 P LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER R ^ P CC A11,EWTSEX,A3 R ( P RB(G) OP:140 INSERT NEW EWT BLOCKS R ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK R P
0x3fbf64…3fc0f8 Dummy {f00=0x012b, f01=0x0190, f02=»RESS R l * P LD A7,VOLUME VOLUME FILE CODE ADDRESS S * P CWK A7,FILCOD+4 CHECK IF END OF TABLE S : & P RF(E) OP:170 ALL VOLUMES CHECKED S h P* S P EJECT FMTASK S P* S P* S P IFT FMCDEF=1 S P LDKL A2,-1 S , P ST A2,SEXTNO RESET ST
0x3fc0f8…3fc28c Dummy {f00=0x012b, f01=0x0190, f02=» RB OP:160 S P* T POP:170 EQU * T 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT T 0 ( P ABL(Z) FM:INE NO FILE EXTENT FOUND T j P* T P IFT FMCDEF=1 T $ P LC A2,TTB:SA+14,A5 ORDER OPTION T P SRC A2,1 CHECK IF EXTEND T P RF(N) F
0x3fc28c…3fc420 Dummy {f00=0x012b, f01=0x018e, f02=»BILITY PARAMETER T x P ANK A2,/FF U & P RF(Z) OP:240 NO ATTACH REQUESTED U , P LDR A2,A5 TTAB ADDRESS U V P* U v POP:240 EQU * U $ P ST A2,FWTTAB,A6 SET ATTACH WORD U P XIF U P* U 2 P IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD) U ( P
0x3fc420…3fc5b4 (3, 600) Dummy {f00=0x012b, f01=0x0190, f02=» > P* CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS V > P* BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER V F P* V POPEXIT EQU * V . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS V P ANK A1,/FF V 2 P RF(NZ) OP:260 BASIC ORDERS
0x3fc5b4…3fc748 Dummy {f00=0x012b, f01=0x018e, f02=»E V n . P SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS W P* W < P IFT MMUPAG=0 W F P LD A4,FWTFNR,A6 FILE NUMBER W * P SC A4,ECBFN,A9 SET FILE NUMBER IN ECB W P XIF W P* W P IFT MMUPAG=1 W P ELR A4,A9 W P LC A4,FWTFNR,A6 FILE NUMBER
0x3fc748…3fc8dc Dummy {f00=0x012b, f01=0x0190, f02=» P* X P EJECT FMTASK X P* X & P* X 0 P********** X : P* FMCLOS * X L P********** X ^ P* X p P* X z 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: X P* CLOSE/DELETE FILE X P* X P* ENTRY PARAMETERS: X P* X $
0x3fc8dc…3fca70 Dummy {f00=0x012b, f01=0x018e, f02=»DRESS X ~ P* A9 = USER ECB ADDRESS Y P* A10 = FPB ADDRESS Y 0 P* Y L " PFMCLOS EQU * CLOSE/DELETE FILE Y V P* Y | P* CHECK ORDER OPTION Y P* Y P IFT FMCDEF=0 Y ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION Y P XIF Y P* Y P IFT
0x3fca70…3fcc04 Dummy {f00=0x012b, f01=0x0190, f02=» Y n P XIF Z P* Z P EJECT FMTASK Z P* Z 6 P* Z @ P********* Z J P* CLOSE * Z P********* Z n P* Z P* ENTRY PARAMETERS: Z P* Z * P* A5 = TTAB ADDRESS OF CALLING TASK Z P* A8 = FM:ECB ADDRESS Z P* A9 =
0x3fcc04…3fcd98 Dummy {f00=0x012b, f01=0x0190, f02=»(FIRST EXTENT) Z p P ADK A4,0 CHECK RETURN CODE [ P RF(NZ) CL:000 ERROR [ : & P LD A3,FWTPAR,A6 ACCESS PARAMETERS [ V P RF(NN) CL:005 NOT NVL [ & P LDK A4,/20 SET NVL IN RETURN CODE [ P* [ ( P* ERROR AT CLOSE: CHECK HOW SERIOUS [ P* [ P
0x3fcd98…3fcf2c Dummy {f00=0x012b, f01=0x0190, f02=»ACHED, DON'T CLOSE [ z P XIF P* & P ADK A6,0 CHECK FWT ADDRESS 0 & P RF(Z) OCEXIT NO FWT FOUND, RETURN T P RF CL:010 DON'T WRITE VTOC ~ P* P EJECT FMTASK P* P* MOVE FRN FROM FPB TO VTOC P* PCL:005 EQU *
0x3fcf2c…3fd0c0 Dummy {f00=0x012b, f01=0x0190, f02=»R,A13 SET LRN IN VTOC RECORD P ST A2,VTC:LR+2,A13 ] $ P XIF ] @ P* ] L P IFT MMUPAG=0 ] V P IFT CPU852=0 ] l ( P ML 2,FPB:FR,A10 FILE RECORD NUMBER ] , P MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD ] P XIF ] P* ] P IFT MMUPAG=1 ] (
0x3fd0c0…3fd254 (3, 601) Dummy {f00=0x012c, f01=0x0190, f02=» ] B P* WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED ^ P* ^ N ( P ORR A1,A2 CHECK FILE RECORD NUMBER ^ X , P RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC ^ P LDK A7,/95 PHYSICAL WRITE ^ , P CF A14,FM:IO WRITE VTOC RECORD TO DISC ^ P*
0x3fd254…3fd3e8 Dummy {f00=0x012c, f01=0x0190, f02=»R REMAINS. ^ l P* _ PCL:010 EQU * _ & P LC A1,FWTPAR,A6 ACCESS PARAMETERS _ 0 P LDR A2,A1 _ Z P ANK A2,/3F NUMBER OF USERS _ l * P SUK A2,1 DECREMENT NO OF USERS BY ONE _ P* _ P IFT MMUPAG=0 _ 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF U
0x3fd3e8…3fd57c Dummy {f00=0x012c, f01=0x018e, f02=» BYTE _ n P ORR A3,A2 ` 2 P ES A3,FPB:US,A10 RETURN REMAINING NO OF USERS ` , P SRL A2,8 NUMBER OF USERS TO RIGHT BYTE ` V P XIF ` P* ` 4 P RF(P) DLCLO2 DON'T RELEASE FWT IF ANY USER LEFT ` P* ` P EJECT FMTASK ` P* ` P* `
0x3fd57c…3fd710 Dummy {f00=0x012c, f01=0x0190, f02=» ` P* INPUT: A6 = FWT ADDRESS a & P* A9 = USER ECB ADDRESS a , P* a V * PDLCLO1 EQU * ENTRY USED BY DELETE FILE a ` P LDK A2,1 a & P XRRS A2,A6 RESET USED BIT IN FWT a P* a ( POPCLOS EQU * ENTRY USED BY OPEN FILE a 4 P LD A4,F
0x3fd710…3fd8a4 Dummy {f00=0x012c, f01=0x0190, f02=» BLOCK POOL a r P* b PCL:020 EQU * b P INH b 2 $ P CF A15,FREBLK RELEASE EWT BLOCK b > P ENB b f P LDR A4,A3 EWT BLOCK ADDRESS b r P RB(NZ) CL:020 b . P CM FWTEW2,A6 RESET EWT STRUCTURE POINTER b P* b PCL:030 EQU * b * P CM FWTVTC,A
0x3fd8a4…3fda38 Dummy {f00=0x012c, f01=0x0190, f02=»D BY DELETE FILE b z $ P ANK A1,/C0 SKIP NUMBER OF USERS c . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS c @ P SC A1,FWTPAR,A6 c r P* c P* DETACH FILE c P* c PCL:050 EQU * c P IFT FMCDEF=1 c , P LD A5,TTAB TTAB ADDRESS OF CALLING TASK c
0x3fda38…3fdbcc Dummy {f00=0x012c, f01=0x0190, f02=»CLOSE COMMON EXIT LABEL c ~ P ABL FMEXIT d P* d 4 P EJECT FMTASK d > P* d V P* d ` P********** d j P* FMRPAR * d | P********** d P* d P* d 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: d P* READ FILE PARAMETERS d
0x3fdbcc…3fdd60 Dummy {f00=0x012c, f01=0x018e, f02=»ADDRESS OF CALLING TASK d P* A8 = FM:ECB ADDRESS e P* A9 = USER ECB ADDRESS e @ P* A10 = FPB ADDRESS e b P* e ~ & PFMRPAR EQU * READ FILE PARAMETERS e P* e P* CHECK ORDER OPTION e P* e ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION e
0x3fdd60…3fdef4 (3, 602) Dummy {f00=0x012c, f01=0x0190, f02=» P* f 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) f P ADK A4,0 CHECK RETURN CODE f D P RF(NZ) FMEXIT ERROR, RETURN f h 2 P SC A4,FPB:BO,A10 RESET BASIC ORDER PARAMETER f P* f " P* MOVE SPACES TO VOLUME NAMES f $ P* AND RESET FILE SECTI
0x3fdef4…3fe088 Dummy {f00=0x012c, f01=0x0190, f02=»OUNTER, OUTER LOOP f P LDK A4,/20 SPACE g P* g 4 " PFMR:02 EQU * OUTER LOOP ENTRY g > & P LDK A3,6 LOOP COUNTER, INNER LOOP g d P* g " PFMR:04 EQU * INNER LOOP ENTRY g * P SCR A4,A1 MOVE SPACES TO VOLUME NAME g P ADK A1,1 g P SUK A3,1
0x3fe088…3fe21c Dummy {f00=0x012c, f01=0x0190, f02=» A2,1 g P RB(P) FMR:02 h P XIF h $ P* h 0 P IFT CPU852=0 h : P MLK 3 h P P DATA /2020,/2020,/2020 h ^ " P LDK A5,0 (A4 = 0 FROM RDVTOC) h ~ P MS 5,FPB:V1,A10 h P MS 5,FPB:V2,A10 h P MS 5,FPB:V3,A10 h P MS 5,FPB:V4,A10 h P XIF
0x3fe21c…3fe3b0 Dummy {f00=0x012c, f01=0x018e, f02=»D A1,VTC:RL,A13 RECORD LENGTH h P STR A1,A10 i & 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION i : P ST A1,FPB:BF,A10 i v ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER i P ST A1,FPB:FR,A10 i $ P LD A1,VTC:LR+2,A13 LRN, PART 2 i P ST A1,FPB
0x3fe3b0…3fe544 Dummy {f00=0x012c, f01=0x0190, f02=» , P LC A1,VTC:IF,A13 NUMBER OF INDEX FILES j P ST A1,FPB:IF,A10 j 4 , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD j N P ST A1,FPB:KA,A10 j ~ P XIF j P* j P IFT CPU852=0 j 8 P ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR j P MS 2,FP
0x3fe544…3fe6d8 Dummy {f00=0x012c, f01=0x0190, f02=» LDR A2,A1 j , P LC A2,VTC:IF,A13 NUMBER OF INDEX FILES k , P LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD k B P MS 3,FPB:MN,A10 k r P XIF k P* k P IFT ATTDET=1 k , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER k P RF(Z) FMR:05 NOT ATTACHED k P
0x3fe6d8…3fe86c Dummy {f00=0x012c, f01=0x0190, f02=»C A1,FPB:SH,A10 SET ATTACH PARAMETER k P* l , P EJECT FMTASK l 6 P* l N P* l X & P LD A1,FWTPAR,A6 ACCESS PARAMETERS l b P SLL A1,1 l 0 P RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE l P LDK A2,1 l , P SC A2,FPB:BO,A10 INDICATE BASIC ORD
0x3fe86c…3fea00 Dummy {f00=0x012c, f01=0x0190, f02=»VE CREATION DATE AND RETENTION PERIOD l P* m . P LDR A1,A13 VTOC ADDRESS m 8 P ADK A1,VTC:CD m X P LDR A3,A10 FPB ADDRESS m n P ADK A3,FPB:CD m & P LDK A2,9 NO OF CHARACTERS TO MOVE m : P CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD m
0x3fea00…3feb94 (3, 603) Dummy {f00=0x012c, f01=0x0190, f02=»N-1 POINT TO FILE NAME m | " P CF A14,FM:MV8 MOVE FILE NAME n 2 P ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE n D P LDR A11,A6 n z * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK n P* n P EJECT FMTASK n P* n & P* MOVE VOLUME NAME FROM DWT TO F
0x3feb94…3fed28 Dummy {f00=0x012c, f01=0x0190, f02=»ENT NUMBER n j P SLC A1,2 o " P ANK A1,3 FILE SECTION NUMBER o $ P* o J PFMR:30 EQU * o T : P ADK A3,FPB:V2-FPB:V1 COMPUTE VOLUME NAME DISPLACEMENT o h P SUK A1,1 o P RB(NN) FMR:30 o $ P LC A2,EWTVOL,A12 DISC FILE CODE o P LDR A13,A2 SAVE F
0x3fed28…3feebc Dummy {f00=0x012c, f01=0x0190, f02=» LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH o P ANK A1,/FF p . P LD A2,EWTEXL,A11 p B P XIF p P* p h P IFT CPU852=0 p r * P ML 2,EWTEXL-2,A11 FILE EXTENT LENGTH p P ANK A1,/FF p P XIF p P* p P EJECT FMTASK p P* p P* COMP
0x3feebc…3ff050 Dummy {f00=0x012c, f01=0x0190, f02=» CHAIN p x * P LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH q P ANK A6,/FF q < P LD A7,EWTEXL,A11 q P * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK q j & P CC A13,EWTVOL,A12 CHECK FILE CODE q , P RF(NE) FMR:50 END OF THIS FILE SECTION q P* q P IFT CPU852=
0x3ff050…3ff1e4 Dummy {f00=0x012c, f01=0x018e, f02=»E IN FPB q p P XIF r P* r P IFT CPU852=1 r & . P ADR A1,A6 ACKUMULATE FILE SECTION LENGTH r < P ADR A2,A7 r n P RF(O) FMR:45 OVERFLOW r P RB FMR:35 r P* r PFMR:45 EQU * r " P ADK A1,1 OVERFLOW CORRECTION r P ANKL A2,/7FFF r
0x3ff1e4…3ff378 Dummy {f00=0x012c, f01=0x018e, f02=» r ( P LDR A4,A11 CHECK EWT BLOCK ADDRESS s ( P RB(NZ) FMR:20 NOT END OF EWT CHAIN s 4 P* s ` P EJECT FMTASK s j P* s P* s P IFT MMUPAG=1 s P* s , P* MOVE SYSTEM FPB (FM:FPB) TO USER FPB s P* s & P* INPUT: A9 = USER EC
0x3ff378…3ff50c Dummy {f00=0x012c, f01=0x0190, f02=» s n P LDK A3,FPBLEN FPB LENGTH t $ P MVSU A3 MOVE FM:FPB TO USER FPB t * P XIF t R P* t ^ P EJECT FMTASK t h P* t P* t P********** t P* FMEXIT * t P********** t P* t P* t 0 P* SET RETURN CODE IN USER ECB, QUEUE TAS
0x3ff50c…3ff6a0 Dummy {f00=0x012c, f01=0x0190, f02=»URN CODE EXIT t x P LD A4,RETCOD RETURN CODE u P* u 8 P IFT MMUPAG=0 u B * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB u X P XIF u P* u P IFT MMUPAG=1 u * P ES A4,ECBRC,A9 SET RETURN CODE IN ECB u P XIF u P* u 2 P LD A5,TTAB RESTOR
0x3ff6a0…3ff834 (3, 604) Dummy {f00=0x012c, f01=0x0190, f02=»********** u P* FMSPLI * v P********** v $ P* v 6 P* v @ & P* FILE MANAGEMENT I/O FUNCTIONS: v J , P* FMSPLI IS ENTERED WHEN THE REQUESTED v t * P* SECTORS ARE SPLIT OVER TWO OR MORE v P* FILE EXTENTS. v P* v * P* A5 = TTAB ADDR
0x3ff834…3ff9c8 Dummy {f00=0x012c, f01=0x018e, f02=» A10 = USER BUFFER ADDRESS v P* w " . PFMSPLI EQU * BASIC AND PHYSICAL READ/WRITE w , P IFT MULEXT=1 w ^ & P LDR A4,A7 PARAMETER BLOCK ADDRESS w t P INH w 4 P CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS w & P LDR A13,A2 2ND EWT BLOCK ADDRESS w
0x3ff9c8…3ffb5c Dummy {f00=0x012c, f01=0x0190, f02=» P LDR A7,A1 ORDER CODE x P* x " P EJECT FMTASK x , P* x D P* x N P IFT MMUPAG=0 x X P IFT CPU852=1 x n " P LD A1,ECBCW1,A9 SECTOR NUMBER x P LD A2,ECBCW2,A9 x ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS x , P LD A10,ECBRL,A9 TOTAL REQ
0x3ffb5c…3ffcf0 Dummy {f00=0x012c, f01=0x0190, f02=»N I/O LOOP ENTRY x * P ST A1,ECBCW1,A8 SET SECTOR NO IN ECB y P ST A2,ECBCW2,A8 y F P XIF y ^ P* y j P IFT MULEXT=1 y t P IFT MMUPAG=0 y P IFT CPU852=0 y " P ML 2,ECBCW1,A9 SECTOR NUMBER y ( P ST A10,ECBBA,A8 SET BUFFER ADDRESS y , P
0x3ffcf0…3ffe84 Dummy {f00=0x012c, f01=0x0190, f02=»W1,A8 SET SECTOR NO IN ECB y P XIF z " P* z . P IFT MULEXT=1 z 8 P IFT MMUPAG=1 z N P INH =3 z d 6 P CF A15,TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL z v P ENB =3 z " P EL A1,ECBCW1,A9 SECTOR NUMBER z P EL A2,ECBCW2,A9 z , P EL A10,
0x3ffe84…400018 Dummy {f00=0x012c, f01=0x0190, f02=» NO IN ECB z v P XIF { P* { P IFT MULEXT=1 { ( $ P LC A1,EWTVOL,A13 DISC FILE CODE { > ( P SC A1,ECBFC,A8 SET FILE CODE IN ECB { f 0 P ST A3,ECBRL,A8 SET REQUESTED LENGTH IN ECB { " P CF A14,FM:IO PERFORM DISC I/O { P RF(NZ) FMSP50 DISC ERROR {
0x400018…4001ac Dummy {f00=0x012c, f01=0x0190, f02=» EJECT FMTASK { P* | P* UPDATE BUFFER ADDRESS | " P* | B P IFT MMUPAG=0 | L * P ADS A4,ECBBA,A8 UPDATE BUFFER ADDRESS | b P XIF | P* | P IFT MULEXT=1 | P IFT MMUPAG=1 | 0 P LDK A3,0 MOST SIGNIFICANT PART OF LENGTH =3 | P S
0x4001ac…400340 Dummy {f00=0x012c, f01=0x0190, f02=»BYTE MODE | P SRC A1,4 } 0 P MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB } $ P XIF } X P* } d P EJECT FMTASK } n P* } , P* GET PARAMETERS FROM NEXT EWT STRUCTURE } & P* AND COMPUTE NEW REQUESTED LENGTH } P* } P IFT MULEXT=1 } $
0x400340…4004d4 (3, 605) Dummy {f00=0x012d, f01=0x0190, f02=» P* ~ P IFT CPU852=1 ~ . P LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 ~ $ P ANK A1,/FF ~ V & P RF(NZ) FMSP30 EXTENT LARGE ENOUGH ~ j , P LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 ~ P XIF ~ P* ~ P IFT MULEXT=1 ~ P IFT CPU852=0 ~ $ P M
0x4004d4…400668 Dummy {f00=0x012d, f01=0x0190, f02=»K ~ P* P* P IFT MULEXT=1 P CWR A3,A2 4 & P RF(NG) FMSP30 EXTENT LARGE ENOUGH F ( P LDR A3,A2 NO OF SECTORS IN THIS I/O p P* PFMSP30 EQU * & P ECR A3,A3 CONVERT LENGTH TO BYTES P LDR* A13,A13 2ND EWT BLOCK P
0x400668…4007fc Dummy {f00=0x012d, f01=0x0190, f02=» XIF P* P IFT MULEXT=1 P IFT CPU852=0 , " P ML 2,EWTEXB-1,A13 EXTENT BASE B P ANK A1,/FF h P RB FMSP00 | P XIF P* P EJECT FMTASK P* P* * PFMSP40 EQU * ILLEGAL REQUESTED LENGTH P IFT MULEX
0x4007fc…400990 Dummy {f00=0x012d, f01=0x0190, f02=» j P* P IFT MMUPAG=0 6 P ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB ( P XIF b P* n P IFT MULEXT=1 x P IFT MMUPAG=1 6 P ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB P XIF P* P IFT MULEXT=1
0x400990…400b24 Dummy {f00=0x012d, f01=0x0190, f02=»AD * P********** P* P* ( * P* INPUT: A2 = SECTOR NUMBER, PART 2 2 . P* A8 = FM:ECB/FMECB2 ECB ADDRESS ` P* " P* OUTPUT: CR = 0 IF OK, ELSE $ P* <> 0 IF DISC ERROR 8 P* A4 = DISC RETURN C
0x400b24…400cb8 Dummy {f00=0x012d, f01=0x0190, f02=» P RF FM:LKM P* $ PFMREAD EQU * PHYSICAL READ ENTRY P LDK A7,/91 ORDER CODE H P* f * PFM:LKM EQU * COMMON I/O ROUTINE ENTRY p . P ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB P* PFM:IO EQU * $ P ADKL A14,4 ADJUST STACK P
0x400cb8…400e4c Dummy {f00=0x012d, f01=0x0190, f02=»KIP RETRY BIT * P ABR* A14 RETURN (WITHOUT CHANGING CR) P* D P EJECT FMTASK N P* f P* p P********** z P* FNDNAM * P********** P* P* 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE 0 P* TO VOLUME
0x400e4c…400fe0 Dummy {f00=0x012d, f01=0x0190, f02=»* A2 = 6 . P* A6 = DISC DWT ADDRESS + DOUBLE INDEX P* F * PFNDNAM EQU * FIND VOLUME NAME ADDRESS P P INH ~ ( P CF A15,FNDDWD FIND DISC DWT ADDRESS P ENB P* 6 P* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE 8 P*
0x400fe0…401174 (3, 606) Dummy {f00=0x012d, f01=0x0190, f02=») FNAM10 POWER ON COMPLETED FOR THIS DISC & P LKM WAIT FOR RECOVERY COMPLETION 2 P DATA 0 SWITCH TASKS P RB FNAM05 CHECK DISC AGAIN x P* P EJECT FMTASK P* P* PFNAM10 EQU * P LDR A1,A6 DISC DWT ADDRESS
0x401174…401308 Dummy {f00=0x012d, f01=0x0190, f02=»S IN DWT t P* PFNAM20 EQU * & P ADK A1,6 NEXT VOLUME NAME IN DWT . P SUK A2,1 DECREMENT INDEX X P RB(NN) FNAM20 z P LDK A2,6 P ADKL A1,DWTVOL-6 P RTN A14 P* P EJECT FMTASK P* P* P******
0x401308…40149c Dummy {f00=0x012d, f01=0x0190, f02=»ETERS AND READ THE VTOC RECORD " P* OF THE FIRST FILE EXTENT. & P* L " P* INPUT: A5 = TTAB ADDRESS V P* A8 = FM:ECB ADDRESS | & P* A9 = USER ECB ADDRESS P* 2 P* OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 6 P*
0x40149c…401630 Dummy {f00=0x012d, f01=0x0190, f02=» A13 = VTOC RECORD ADDRESS IN FM:BUF * P* A3, A7, A11 ARE DESTROYED 2 P* ` 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD j P INH < P CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS P ENB P RF(NZ) RD
0x401630…4017c4 Dummy {f00=0x012d, f01=0x0190, f02=»TR A4,A8 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) P* J & PRDVTO2 EQU * ENTRY USED BY FMCDEF T 8 P CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD ~ P* PRDVT10 EQU * P ADK A4,0 CHECK RETURN CODE & P RF(NZ) RDVT
0x4017c4…401958 Dummy {f00=0x012d, f01=0x0190, f02=»XT VTOC RECORD FOR THIS FILE z 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT $ P* X PRDVT20 EQU * b & P ORS A4,RETCOD PREPARE RETURN CODE v P RTN A14 P* P EJECT FMTASK P* P* P********** P* FNDVTC *
0x401958…401aec Dummy {f00=0x012d, f01=0x0190, f02=»DE WHEN ONE EXTENT , P* HAS BEEN FOUND OR WHEN THE COMPLETE . P* VTOC HAS BEEN SEARCHED WITHOUT MATCH. J P* | P* INPUT: A2 = FILE CODE P* A6 = FWT ADDRESS P* A8 = FM:ECB ADDRESS P* 6 P* OUTPUT: A2 = VTOC SE
0x401aec…401c80 Dummy {f00=0x012d, f01=0x018e, f02=» A13 = VTOC RECORD ADDRESS IN FM:BUF 2 P* A1, A3, A7, A11-A12 ARE DESTROYED 0 P* f PFNDVTC EQU * FIND VTOC ENTRY p P* " P* READ VOLUME LABEL (SECTOR 0) P* ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB P LDK A2,0 SECT
0x401c80…401e14 (3, 607) Dummy {f00=0x012d, f01=0x0190, f02=» h P LDR A12,A2 * P AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS , P AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1 J P* z P EJECT FMTASK P* P* READ NEXT VTOC SECTOR P* , PFNDVT2 EQU * ENTRY USED BY RDVTOC/FMCDEF ( P CF A14,
0x401e14…401fa8 Dummy {f00=0x012d, f01=0x0190, f02=»C BLOCK FACTOR ~ P* PFVTC20 EQU * & P LD A1,VTC:ST,A13 VTOC STATUS BYTE 4 P ANK A1,/FF ^ P RF(NZ) FVTC50 VTOC USED r P* $ PFNDVT3 EQU * ENTRY USED BY OPEN 0 P LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER & P ADKL A13,VTOCRL
0x401fa8…40213c Dummy {f00=0x012d, f01=0x0190, f02=»2 CHECK IF END OF VTOC EXTENT ( P RB(NE) FNDVT2 NOT LAST VTOC SECTOR & P* R PFVTC40 EQU * ERROR RETURN P LDK A2,0 RETURN CODE ~ P RTN A14 P* 8 P* VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL P* PFVTC50 EQU *
0x40213c…4022d0 Dummy {f00=0x012d, f01=0x018e, f02=»CW2,A8 CURRENT VTOC SECTOR NUMBER " P RTN A14 ONE FILE EXTENT FOUND * P* P P EJECT FMTASK Z P* r P* | P********** P* CMPFIL * P* CMPSTR * P* CPMDWD * P********** P* P* , P* CMPFIL COMPARES
0x4022d0…402464 Dummy {f00=0x012d, f01=0x0190, f02=» . P* CMPSTR COMPARES TWO CHARACTER STRINGS 0 P* AND SETS THE CR ACCORDING TO THE RESULT. 6 P* j ( P* CMPDWD COMPARES TWO DOUBLE WORDS t 0 P* AND SETS THE CR ACCORDING TO THE RESULT. P* H P* INPUT: A1 = ADDRESS OF CHARACTER STRI
0x402464…4025f8 Dummy {f00=0x012d, f01=0x0190, f02=»PSTR ONLY) ` ( P* A6 = FWT ADDRESS (CMPFIL ONLY) P* > . P* OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE H > P* > 0 IF STRING 1 GREATER THAN STRING 2, ELSE z 6 P* < 0 IF STRING 1 LESS THAN STRING 2 ( P* A1-A3,
0x4025f8…40278c Dummy {f00=0x012d, f01=0x0190, f02=»DDRESS & P ADK A1,FWTNAM POINT TO FILE NAME P LDK A3,8 FILE NAME LENGTH 8 P* Z * PCMPSTR EQU * COMPARE CHARACTER STRINGS d $ P ADKL A14,4 ADJUST STACK POINTER P* , P* COMPARE STRINGS CHARACTER BY CHARACTER P* PCMP:10 EQU
0x40278c…402920 Dummy {f00=0x012d, f01=0x0190, f02=»NOT EQUAL, RETURN z ( P ADK A1,1 INCREMENT STRING POINTERS P ADK A2,1 F $ P SUK A3,1 DECREMENT LOOP COUNTER X 0 P RB(P) CMP:10 CONTINUE IF NOT END OF STRINGS $ P ABR* A14 STRINGS EQUAL, RETURN P* * PCMPDWD EQU * COMPARE TWO DOUBLE WO
0x402920…402ab4 (3, 608) Dummy {f00=0x012d, f01=0x018e, f02=» P********** P* P* $ * P* INPUT: A1 = INPUT BUFFER ADDRESS . 2 P* A2 = NUMBER OF CHARACTERS TO MOVE * P* A3 = OUTPUT BUFFER ADDRESS P* P* OUTPUT: A2 = 0 > P* A1, A3 = ADDRESSES OF LA
0x402ab4…402c48 Dummy {f00=0x012d, f01=0x0190, f02=» P RF FM:MOV P* " PFM:MV4 EQU * MOVE 4 CHARACTERS P LDK A2,4 LENGTH F P* ^ ( P* MOVE STRING CHARACTER BY CHARACTER h P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMEN
0x402c48…402ddc Dummy {f00=0x012d, f01=0x402e, f02=»* P* P* P END @ *OVE 4 CHARACTERS P LDK A2,4 LENGTH F P* ^ ( P* MOVE STRING CHARACTER BY CHARACTER h P* PFM:MOV EQU * MOVE STRING " P LCR A4,A1 MOVE ONE CHARACTER P SCR A4,A3 ( P ADK A1,1 INCREMEN
0x402ddc…402f70 Dummy {f00=0x012d, f01=0x2008, f02=» FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x402f70…403104 Dummy {f00=0x012d, f01=0x0190, f02=» * I H P* * J D H P* WORK REGISTERS: A4 * J H P*
0x403104…403298 Dummy {f00=0x012d, f01=0x0190, f02=» * J t H P******************************************************************* K 0 PB:MXTT EQU * K | ( P LD A2,SCTMXS GET ADDRESS TO MXSTAB K P RF(Z) BMX99 NOT PRESENT K 0 P LDK A4,2 DISPLACEMENT TO FIRST EXTENT TASK
0x403298…40342c Dummy {f00=0x012d, f01=0x0190, f02=»LE K b " P RF(NZ) BMX05 ALREADY DEFINED L $ P LD A4,SCTSFA START OF FREE AREA L 0 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE L X 4 P LDK A4,2 INITIAL LENGTH OF START-ADDRESS TABLE L & P ST* A4,SCTMOX STORE IN FIRST WORD L $ P SUK A4,2 RESET TASK ID CO
0x40342c…4035c0 Dummy {f00=0x012d, f01=0x0190, f02=»S? L v P RF(N) BMX03 NO M * P ADK A2,2 ADDRESS NUMBER OF TASK ID:S M " ( P LDR* A6,A2 GET NUMBER OF TASK ID:S M P ( P ADR* A4,A2 ADD NUMBER OF TASK ID:S M | " PBMX02 SUK A6,1 MORE TASK ID:S? M P RB(N) BMX01 NO M " P ADK A2,2 ADDRESS NEXT TASK ID M
0x4035c0…403754 (3, 609) Opaque[0x194]
0x403754…4038e8 # DirEnt {nam=»FMCDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2460, f03=0x0000}
0x403754…4038e8 IdxSect {
0x403754…4038e8 f00 = 0x0123 // 0x403754 @0x0
0x403754…4038e8 f01 = 0x001c // 0x403756 @0x2
0x403754…4038e8 gno = [ // 0x403758 @0x4
0x403754…4038e8 [0x00]: C0x0123.0x0.0
0x403754…4038e8 [0x01]: C0x0124.0x1.0
0x403754…4038e8 [0x02]: C0x0125.0x0.0
0x403754…4038e8 [0x03]: C0x0125.0x1.0
0x403754…4038e8 [0x04]: C0x0125.0x2.0
0x403754…4038e8 [0x05]: C0x0125.0x3.0
0x403754…4038e8 [0x06]: C0x0127.0x2.0
0x403754…4038e8 [0x07]: C0x0127.0x3.0
0x403754…4038e8 [0x08]: C0x0128.0x0.0
0x403754…4038e8 [0x09]: C0x0128.0x1.0
0x403754…4038e8 [0x0a]: C0x0128.0x2.0
0x403754…4038e8 [0x0b]: C0x0128.0x3.0
0x403754…4038e8 [0x0c]: C0x0129.0x0.0
0x403754…4038e8 [0x0d]: C0x0129.0x1.0
0x403754…4038e8 ]
0x403754…4038e8 }
0x4038e8…403a7c Dummy {f00=0x0123, f01=0x0190, f02=» 2 P IDENT FMCDEF REL 11.0 81-05-13 870105041100 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* FMCDEF = FILE MANAGEMENT SUBMODULE
0x403a7c…403c10 Dummy {f00=0x0123, f01=0x0190, f02=» FMCDEF CONTAINS THE FOLLOWING MODULES P* 0 P* - CREATE CREATE FILE : P* - DELETE DELETE FILE P* - EXTEND EXTEND FILE ~ P* P* P EJECT FMCDEF P* P* P*********** P* ENTRIES * P**
0x403c10…403da4 Dummy {f00=0x0123, f01=0x0190, f02=» $ P ENTRY SEXTNO FILE EXTENT NUMBER P ENTRY DV3RST , P* B P EJECT FMCDEF L P* b P* l P************* v P* EXTERNALS * P************* P* P* P EXTRN FPB:BF BLOCK FACTOR P EXTRN FPB:FN FILE NAME
0x403da4…403f38 Dummy {f00=0x0123, f01=0x0190, f02=» t $ P EXTRN FPB:SN SOP SWITCH NUMBER ( P EXTRN FPB:KA KEY ADDRESS IN RECORD 0 P EXTRN FPB:CD CREATION DATE , P EXTRN ECBFC ECB FILE CODE (FILE NUMBER) & P EXTRN FILCOD FILE CODE SAVE AREA . P EXTRN FM:RQE FM REQUEST ERROR COMMON EXIT
0x403f38…4040cc Dummy {f00=0x0123, f01=0x018e, f02=»RN FM:ECB FM COMMON ECB P* P EJECT FMCDEF * P* @ P* J P EXTRN VTC:EN EXTENT NUMBER T 6 P EXTRN VOL:EL VOL.LABEL DISPL. VTOC EXTENT LENGTH x & P EXTRN VTC:FS FILE SECTION NUMBER P EXTRN VTC:EB EXTENT BASE " P EXTRN VOL
0x4040cc…404260 Dummy {f00=0x0123, f01=0x0190, f02=» P EXTRN VTC:BF BLOCK FACTOR $ P EXTRN VTC:FO FILE ORGANISATION & P EXTRN VTC:CD CREATION DATE N ( P EXTRN VTC:IF NUMBER OF INDEX FILES r $ P EXTRN VTC:LR LAST RECORD NUMBER ( P EXTRN VTC:KA KEY ADDRESS IN RECORD P EXTRN VTC:ST STATUS B
0x404260…4043f4 (3, 610) Dummy {f00=0x0124, f01=0x0190, f02=»POINTER IN FILCOD TO ACTUAL FILE CODE P* . P EJECT FMCDEF 8 P* N P* X , P EXTRN FNDVTC VTOC ENTRY FROM FILE NAME b " P EXTRN DSUMOD DOUBLE SUBTRACT P EXTRN ADDMOD DOUBLE ADD 2 P EXTRN FWTNAM FWT DISPLACEMENT FOR VOLUME NAME
0x4043f4…404588 Dummy {f00=0x0124, f01=0x018e, f02=»D COMPARES TWO STRINGES , P EXTRN RETCOD RETURN CODE AREA IN FMTASK $ P EXTRN DLCLO1 CLOSE AFTER DELETE P & P EXTRN DLCLO2 CLOSE WITHOUT DELETE x , P EXTRN FWTPAR FWT PARAMETER DISPLACEMENT $ P EXTRN FWTEW1 EWT POINTER IN FWT 0 P EXTRN EWTVOL
0x404588…40471c Dummy {f00=0x0124, f01=0x0190, f02=» ` & P EXTRN OPEN OPEN ENTRY IN FM TASK & P EXTRN FM:MV4 MOVE FOUR CHARACTERS 2 ( P EXTRN FM:MV8 MOVE EIGHT CHARACTERS $ P EXTRN VTOCRL VTOC RECORD LENGTH & P EXTRN VTOCBF VTOC BLOCKING FACTOR $ P EXTRN OPEXT OPEN EXTENDED FILE $ P EXTRN
0x40471c…4048b0 Dummy {f00=0x0124, f01=0x0190, f02=»ENTRY x P* P EJECT FMCDEF P* . P* 8 . P****************************************** B P* t P* CONDITIONAL ASSEMBLY ~ P* . P****************************************** P* P* . P* A FULL INTRUCTION SET
0x4048b0…404a44 Dummy {f00=0x0124, f01=0x0190, f02=»ILE FUNCTION IS ( P* OBTAINED BY SETTING XTEND EQU 1. P* D PXTEND EQU 1 N PX:A EQU XTEND b P* x P EJECT FMCDEF P* P* P************* P* CONSTANTS * P************* P* P* PSPACES
0x404a44…404bd8 Dummy {f00=0x0124, f01=0x0190, f02=»* P* P**************** P* RETURN CODES * , P**************** D P* P* f $ PRC:NVL EQU /20 NEW VOLUME LOADED p $ PRC:DAB EQU /4000 DELETE ABORTED PRC:OFL EQU /10 OVER FLOW 4 PRC:SEO EQU /200+RC:OFL SECTION /EXTENT O
0x404bd8…404d6c Dummy {f00=0x0124, f01=0x0190, f02=» P* 0 PSEXTNO DATA 0 FILE SECTION AND EXTENT NUMBER 0 PSAVEA9 DATA 0 SAVE AREA FOR USER ECB ADDRESS F P* z P* . P* A9 IS USED AS BASE REGISTER FOR WRKARE P* P* PWRKARE EQU * P DATA 0,0,0,0,0 VTOC RECORD
0x404d6c…404f00 Dummy {f00=0x0124, f01=0x0190, f02=»JECT FMCDEF P* P* : PFILLEN EQU *-WRKARE FILE SECTION LENGTH TO BE CREATED ( P DATA 0,0 f ( PVTCSEC EQU *-WRKARE VTOC BASE SECTOR x P DATA 0 , PFSATLE EQU *-WRKARE FSAT LENGTH IN BYTES P DATA 0 ( PVTCEND EQU *-WRKARE
0x404f00…405094 (3, 611) Dummy {f00=0x0125, f01=0x0190, f02=»NGTH l P DATA 0,0 . PFWTSAV EQU *-WRKARE FWT ADDRESS SAVE AREA P DATA 0 P . PEXTZER EQU *-WRKARE 1ST VTOC ENTRY SECTOR ` P DATA 0 , PWRKALE EQU *-WRKARE LENGTH OF WORK AREA P* P EJECT FMCDEF P* P* . P**
0x405094…405228 Dummy {f00=0x0125, f01=0x0190, f02=» * j . P* * . P****************************************** > P* p P* PARAMETERS FROM FMTASK: z P* P* A1 = 0 6 P* A5 = TTAB ADDRESS OF CALLING TASK ( P*
0x405228…4053bc Dummy {f00=0x0125, f01=0x018e, f02=» P* P* PCREATE EQU * 6 P CF A14,CENTRY CLEAR WORK AREA AND SAVE PARAMETERS , P LDK A5,3 VOLUME COUNTER f PCRE:02 EQU * P LC A1,FILCOD,A5 FILE CODE P ANK A1,/FF & P RF(Z) CRE:04 NO VOLUME SPECYFIED " P LDR A2,A5 FIL
0x4053bc…405550 Dummy {f00=0x0125, f01=0x0190, f02=» P RB(NN) CRE:02 NEXT VOLUME 2 P ABL CDERQE REQUEST ERROR NO LENGTH SPECYFIED * P* ` P EJECT FMCDEF j P* P* P* PREPARE VTOC RECORD P* P* PCRE:06 EQU * P IFT CPU852=1 P LDR A1,A10 GET FPB AD
0x405550…4056e4 Dummy {f00=0x0125, f01=0x0190, f02=»* P IFT CPU852=0 P ML 4,FPB:FN,A10 FILE NAME P MS 4,VTC:FN,A9 B P XIF Z P* f " P LDR* A1,A10 GET RECORD LENGTH p P ST A1,VTC:RL,A9 0 P LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG P ST A1,VTC:BF,A9 P* P EJE
0x4056e4…405878 Dummy {f00=0x0125, f01=0x018e, f02=»9 " P CF A14,FM:MOV CRD,RET PERIOD $ P LDK A7,6 NUMBER OF CHARACTERTS 0 P SUK A3,3 ADDRESS TO CHAR X PCRE:10 EQU * z P SUK A3,2 NEXT CHARACTERS P LDR* A1,A3 P RF(Z) CRE:20 BINARY ZERO P CWK A1,/3030 NUMERICAL ZERO
0x405878…405a0c Dummy {f00=0x0125, f01=0x0190, f02=» P DATA 11 P LDKL A8,FM:ECB ECB ADDRESS PCRE:30 EQU * 8 , P LC A2,FPB:IF,A10 NUMBER OF INDEX FILES L " P LD A1,FPB:KA,A10 KEY ADDRESS | P SC A2,VTC:IF,A9 P ST A1,VTC:KA,A9 4 P CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0) 2
0x405a0c…405ba0 Dummy {f00=0x0125, f01=0x0190, f02=» ST A6,FWTSAV,A9 INTO SAVE AREA P* ( P EJECT FMCDEF 2 P* H P* R P* CREATE FILE SECTIONS P* | P* PCRE:40 EQU * & P CF A14,CREFIL CREATE FILE SECTION P RF(NZ) CREDEL ERROR P CWK A2,3 P RB(NG) CRE:
0x405ba0…405d34 (3, 612) Dummy {f00=0x0125, f01=0x0190, f02=»L A3,OPEN P RF EXIT10 OPEN CREATED FILE P* 6 P EJECT FMCDEF @ P* V P* ` 6 P* DELETE CREATED PARTS OF FILE IN CASE OF ERROR j P* INPUT A4 = RETURN CODE P* P* PCREDEL EQU * P SUK A4,RC:NVL $ P RF(
0x405d34…405ec8 Dummy {f00=0x0125, f01=0x0190, f02=»CDEXIT END REQUEST P* P EJECT FMCDEF $ P* : P* D . P****************************************** N . P* * . P* DELETE ENTRY * . P*
0x405ec8…40605c Dummy {f00=0x0125, f01=0x0190, f02=»* PDELETE EQU * 2 P CF A14,EDENTR CLEAR WORK AREA AND SAVE PARAM. $ P RF(NZ) DEL:90 ERROR END REQUEST T P LC A1,FWTPAR,A6 | P LDR A2,A1 P ANK A2,/3F NUMBER OF USERS P SUK A2,1 P RF(Z) DEL:00 ONE USER & P LDKL A4,RC:DA
0x40605c…4061f0 Dummy {f00=0x0125, f01=0x018e, f02=»* 4 P* COLLECT FILE CODES AND DELETE FILE SECTIONS P* B P* L PDEL:00 EQU * V $ P CM FILCOD CLEAR FILE CODE AREA j P CM FILCOD+2 P ADKL A6,FWTEW1 PDEL:10 EQU * P LDR* A6,A6 P LDKL A1,-4 " P LC A2,EWTVOL,
0x4061f0…406384 Dummy {f00=0x0125, f01=0x0190, f02=» P ANK A3,/FF . P RF(Z) DEL:30 NO MORE COLLECTED FILE CODES P CWR A3,A2 J P RB(NE) DEL:20 CHECK NEXT PDEL:30 EQU * ~ & P SC A2,FILCOD+3,A1 SAVE FILE CODE PDEL:40 EQU * P LDR* A6,A6 $ P RB(NZ) DEL:10 NEXT ENTRY IN EWT
0x406384…406518 Dummy {f00=0x0125, f01=0x0190, f02=» PEXIT00 EQU * $ P LD A6,FWTSAV,A9 GET FWT ADDRESS PEXIT10 EQU * D $ P ORS A4,RETCOD SAVE RETURN CODE X P LDK A4,0 PEXIT20 EQU * P LD A9,SAVEA9 P ABR A3 BACK TO FMTASK PDEL:90 EQU * P LDR A1,A4 RETURN CODE
0x406518…4066ac Dummy {f00=0x0125, f01=0x0190, f02=»EQUEST P* PCDERQE EQU * " P LDKL A3,FM:RQE REQUEST ERROR , P RB EXIT20 R PCDEINE EQU * d , P LDKL A3,FM:INE ILLEGAL VOLUME/FILE NAME x P RB EXIT20 P* P EJECT FMCDEF P* P* 2 P**************************
0x4066ac…406840 Dummy {f00=0x0125, f01=0x0190, f02=»* * 2 P********************************************* 6 P* l 0 P* PARAMETERS FROM FMTASK SEE CREATE ENTRY v P* P* PEXTEND EQU * P IFT XTEND=1 4 P CF A14,EDENTR CLEAR WORK AREA MAK
0x406840…4069d4 (3, 613) Dummy {f00=0x0125, f01=0x0190, f02=» SAVE LAST POINTER P LD* A5,0,A5 P RB(NZ) EXT:00 NEXT ENTRY . P LC A5,EWTSEX,A2 P P ST A5,SEXTNO SAVE FSN,FEN h P* P EJECT FMCDEF P* P* " P LD A2,FPB:EL,A10 GET ENLARGE & P RB(Z) CDERQE NO SPECYFIED LENGTH
0x4069d4…406b68 Dummy {f00=0x0125, f01=0x0190, f02=»VERFLOW t ( P LDKL A4,RC:SEO RC: SECTION OVERFLOW P RB CDEXIT < PEXT:15 EQU * N P SRL A2,6 FSN b P LC A2,FILCOD,A2 FILE CODE x & P CF A14,FNDVTC GET 1ST VTOC ENTRY P ADK A4,0 P RB(NZ) CDEXIT READ ERROR & P CF A14,RDVTO2 G
0x406b68…406cfc Dummy {f00=0x0125, f01=0x0190, f02=»A4,VTC:FO,A13 FILE ORGANISATION P SUK A4,'L' ( P RB(E) CDERQE L FILE < P* X P EJECT FMCDEF b P* x P* P LDR A1,A13 P LDKL A2,VTOCRL-2 " P LDR A3,A9 VTOC RECORD ADDRESS * P CF A14,FM:MOV MOVE VTOC TO WORK AREA
0x406cfc…406e90 Dummy {f00=0x0125, f01=0x0190, f02=»R LAST RECORD NUMBER ~ P CM VTC:LR+2,A9 ! " P SRL A5,6 FILE SECTION NUMBER ! 4 P ADK A5,1 ! Z 2 P CF A14,CHKFIL CHECK IF FILE ALREADY IN SYSTEM ! l P RB(NZ) CDEINE ! PEXT:20 EQU * ! & P CF A14,EXTFIL EXTEND FILE SECTION ! * P RB(NZ) CDEXIT RET
0x406e90…407024 Dummy {f00=0x0125, f01=0x0190, f02=»ON NUMBER ! | 0 P LC A2,FILCOD,A5 GET CORRESPONDING FILE CODE " " P ADKL A5,FILCOD ADDRESS TO FC " F P ST A5,VOLUME " l P LDK A5,/3F " P ANS A5,SEXTNO FEN " & P LDKL A3,OPEXT OPEN EXTENDED FILE " P RB EXIT00 " P XIF " P* " P IFT X
0x407024…4071b8 Dummy {f00=0x0125, f01=0x018e, f02=» " P* CREFIL * # P* EXTFIL * # P********** # , P* # > P* # H > P* CREATES FILE SECTION IF FILE CODE SPECIFIED IN FILCOD # R P* # , P* INPUT : A2 = FILE SECTION NUMBER # & P* A8 = FM ECB ADDRESS # * P* A9
0x4071b8…40734c Dummy {f00=0x0125, f01=0x0190, f02=» # , P* OUTPUT : A4 = RETCOD = RETURN CODE $ 6 P* A2 = INCREMENTED FILE SECTION NUMBER $ 8 * P* CR SET ACCORDING TO A4 $ r P* $ PCREFIL EQU * $ * P CF A14,GETFIL GET FILE SECTION LENGTH $ 0 P RF(NZ) CEF010 DEMANDED FILE
0x40734c…4074e0 Dummy {f00=0x0125, f01=0x0190, f02=» 6 P LD A1,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P LD A2,EXTLEN+2,A9 % > P XIF % X P* % d P IFT CPU852=0 % n 6 P ML 2,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS % P XIF % P* % P CM EXTLEN,A9 % P CM EXTLEN+2,A9 % P* %
0x4074e0…407674 (3, 614) Dummy {f00=0x0125, f01=0x0190, f02=» A1,A2 % n * P ABL(Z) CEFOUT NO LENGTH TO BE CREATED & PCEF010 EQU * & < P* & P P IFT CPU852=1 & Z 2 P ST A1,FILLEN,A9 FILE SECTION LENGTH TO CREATE & p P ST A2,FILLEN+2,A9 & 6 P CF A14,DV3RST MAKE FILE SECTION LENGTH MULT OF 3 & P LDR A6,A9 &
0x407674…407808 Dummy {f00=0x0125, f01=0x0190, f02=»ON LENGTH TO CREATE & v . P CF A14,DV3RST MAKE FILE SECTION MULT OF 3 ' P DA FILLEN,A9 ' N P MS 2,FILLEN,A9 ' d P XIF ' | P* ' P CF A14,GET:FC GET FILE CODE ' & P RF(Z) CEFOUT NOT SPECIFIED VOLUME ' & P CF A14,VTCPAR GET VTOC PARAMETERS '
0x407808…40799c Dummy {f00=0x0125, f01=0x0190, f02=»INPUT : A8=ECB ADDRESS ' * P* FSATBA = FSAT BASE SECTOR ( . P* FILLEN = WANTED EXTENT LENGTH ( L P* ( ~ P* ( PCEF100 EQU * ( 6 P SUR A12,A12 FLAG INDICATING FITTING EXTENT FOUND ( . P CM VTC:EL,A9 RESET MOST FIT EXTENT LENG
0x40799c…407b30 Dummy {f00=0x0125, f01=0x0190, f02=»UT DISC ERROR ( P* ) P IFT CPU852=1 ) 2 P ADKL A2,FM:BUF ADDRESS TO N:TH EXTLEN IN FSAT ) 6 P LDR A13,A2 SAVE ) l 2 P LDK A1,FILLEN ADDRESS TO WANTED EXTENT LENGTH ) P ADR A1,A9 ) P CF A14,CMPDWD ) P XIF ) P* ) P IFT CPU852=0 )
0x407b30…407cc4 Dummy {f00=0x0125, f01=0x0190, f02=»TH ) x P XIF * P* * P RF(E) CEF120 EXTENT FOUND * 2 P RF(L) CEF130 FOUND EXTENT GREATER THAN WANTED * B P LDR A12,A12 * x 4 P RF(NZ) CEF160 GREATER FREE EXTENT ALREADY FOUND * P* * P EJECT FMCDEF * P* * P* * P IFT CPU852=1 *
0x407cc4…407e58 Dummy {f00=0x0125, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x407e58…407fec Dummy {f00=0x0125, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x407fec…408180 Dummy {f00=0x0125, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x408180…408314 (3, 615) Dummy {f00=0x0127, f01=0x018e, f02=»EQUAL FOUND - P* . P EJECT FMCDEF . P* . 4 P* . > PCEF160 EQU * . H & P ADK A5,FSATRL NEXT ENTRY IN FSAT . P CW A5,FSATLE,A9 . , P RB(L) CEF110 SCAN MORE ENTRIES IN FSAT . PCEF170 EQU * . P* . P IFT CPU852=1 . P LD A1
0x408314…4084a8 Dummy {f00=0x0127, f01=0x0190, f02=» . P ML 2,VTC:EL,A9 / P RF(NZ) CEF200 SPACE ON DISC / P SUK A2,2 / D P XIF / V P* / b $ P ABL(NP) CEF500 NO SPACE ON DISC / l P* / P EJECT FMCDEF / P* / P* / P* UPDATE FSAT / P* / 8 P* INPUT : A6 = DISPLACEMENT
0x4084a8…40863c Dummy {f00=0x0127, f01=0x018e, f02=» FM:BUF = FILE MANAGEMENT BUFFER / , P* VTC:EL = FILE EXTENT LENGTH 0 . * P* VTC:EB = FILE EXTENT BASE 0 ^ P* 0 PCEF200 EQU * 0 P LDR A5,A6 GET ENTRY IN FSAT 0 P CF A14,FTREAD 0 P RF(NZ) CEFOUT READ ERROR 0 , P A
0x40863c…4087d0 Dummy {f00=0x0127, f01=0x0190, f02=» " P LD A1,VTC:EL,A9 EXTENT LENGTH 1 P LD A2,VTC:EL+2,A9 1 * P XIF 1 D P* 1 P P IFT CPU852=0 1 Z " P ML 2,VTC:EL,A9 EXTENT LENGTH 1 p P XIF 1 P* 1 P CF A14,DV3RST 1 P RF(Z) CEF220 NO REST 1 P* 1 P EJECT FMCDEF 1 P* 1
0x4087d0…408964 Dummy {f00=0x0127, f01=0x0190, f02=» P SUK A1,1 A1=/FFFF 2 , P CF A14,DBLADR MAKE EXTENT MULTIPLE OF 3 2 P XIF 2 N P* 2 Z P IFT CPU852=0 2 d P SUK A2,3 -REST 2 z P SUK A1,1 /FFFF 2 P ANKL A2,/7FFF 2 P DA VTC:EL,A9 2 , P MS 2,VTC:EL,A9 EXTENT LENGTH MULT OF 3 2 P X
0x408964…408af8 Dummy {f00=0x0127, f01=0x0190, f02=» ADR A3,A9 2 P LDK A1,FILLEN 3 P ADR A1,A9 3 ( P CF A14,FM:MV4 3 : P XIF 3 P P* 3 P IFT CPU852=0 3 f & P ML 2,FILLEN,A9 FILE EXTENT LENGTH 3 | P MS 2,VTC:EL,A9 3 P XIF 3 P* 3 P EJECT FMCDEF 3 P* 3 P* 3 PCEF220 EQU
0x408af8…408c8c Dummy {f00=0x0127, f01=0x0190, f02=» RF(NZ) CEF230 REST EXTENT LENGTH GREATER 3 $ P CF A14,CLFSAT CLEAR FSAT ENTRY 4 2 P RF CEF240 4 Z PCEF230 EQU * 4 l P* 4 P IFT CPU852=1 4 P LDKL A3,FM:BUF+4 4 P ADR A3,A5 4 & P LDKL A6,VTC:EL EXTENT BASE+LENGTH 4 P ADR A6,A9 4 : P
0x408c8c…408e20 Dummy {f00=0x0127, f01=0x0190, f02=»VTC:EL,A9 4 : P MS 2,FM:BUF+4,A5 NEW EXT BASE=EXTBAS+CREATED EXTBASE 5 P XIF 5 P P* 5 PCEF240 EQU * 5 f P CF A14,CDEWRI WRITE 5 z P RF(Z) CEF350 WRITE OK 5 PCEFOUT EQU * 5 " P CM EXTZER,A9 1ST VTOC POINTER 5 P IM VTC:FS,A9 NEXT SECTION
0x408e20…408fb4 (3, 616) Dummy {f00=0x0127, f01=0x0190, f02=»STER 5 r P* 6 P EJECT FMCDEF 6 P* 6 , P* 6 6 $ P* SEARCH FOR FREE VTOC ENTRIES 6 @ P* 6 h P* 6 r * P* INPUT : VTCSEC = VTOC BASE SECTOR 6 | * P* VTCEND = VTOC LAST SECTOR 6 " P* FM:BUF = FM BUFFER 6 P* 6 P
0x408fb4…409148 Dummy {f00=0x0127, f01=0x0190, f02=»3,FM:BUF BUFFER ADDRESS 6 P* 7 P EJECT FMCDEF 7 * P* 7 @ P* 7 J PCEF320 EQU * 7 T & P LD A4,VTC:ST,A13 VTOC STATUS BYTE 7 h P ANK A4,/FF 7 ( P RF(Z) CEF400 FREE VTOC ENTRY FOUND 7 ( P LDKL A1,VTC:FN ADDRESS TO FILE NAME 7 P ADR A1,A9
0x409148…4092dc Dummy {f00=0x0127, f01=0x018e, f02=»EXTENT NUMBER 7 ~ P RF(NZ) CEF340 NOT 1ST 8 ( P LD A1,VTCSEC,A9 VTOC SECTOR NUMBER 8 4 P ST A1,EXTZER,A9 8 ` PCEF340 EQU * 8 x & P ADKL A13,VTOCRL NEXT VTOC ADDRESS 8 P SUK A7,1 8 , P RB(P) CEF320 MORE VTOC:S ON THIS SECTOR 8 " P IM VTCSEC,A9 NE
0x4092dc…409470 Dummy {f00=0x0127, f01=0x0190, f02=» 8 n & P LDK A4,RC:OFL RC: NO MORE VOLUMES 9 P RB CEFOUT 9 2 P* 9 D P EJECT FMCDEF 9 N P* 9 d P* 9 n P* CREATE A VTOC 9 x P* 9 " P* INPUT : A10 = FPB ADDRESS 9 ( P* A13 = VTOC ENTRY ADDRESS 9 $ P* A8 = FM:ECB AD
0x409470…409604 Dummy {f00=0x0127, f01=0x018e, f02=» $ P LC A1,FPB:MN,A10 MONITOR NUMBER : P ECR A1,A1 : , " P LC A1,FPB:SN,A10 START SWITCH : > P ST A1,VTC:MN,A9 VTOC : d P CM VTC:KA,A9 KEY ADDRESS : PCEF450 EQU * : P LDR A3,A13 MOVE VTOC : P LDKL A2,VTOCRL : " P LDR A1,A9 VTOC RECORD ADD
0x409604…409798 Dummy {f00=0x0127, f01=0x0190, f02=» P* ; " P IM VTC:EN,A9 NEXT FILE EXTENT ; @ P LDK A3,FILLEN ADDRESS TO FILE SECTION LENGTH TO BE CREATED ; 4 P ADR A3,A9 ; x P CF A14,DBLSU1 SUBTRACT ; $ P RF(Z) CEF600 FILE SECTION READY ; & P LC A4,VTC:FO,A9 FILE ORGANISATION ; P SUK A4,'L'
0x409798…40992c Dummy {f00=0x0127, f01=0x018e, f02=» ; d PCEF470 EQU * < . P LDKL A4,RC:SEO RC: TOO MANY FILE EXTENTS < $ P RF CEF510 TOO MANY FILE EXTENTS < N P* < v P EJECT FMCDEF < P* < P* < PCEF500 EQU * < & P LDK A4,RC:OFL RC: NO MORE VOLUMES < PCEF510 EQU * < , P LD A5,VTC:F
0x40992c…409ac0 Dummy {f00=0x0127, f01=0x0190, f02=» < p " P LC A1,FILCOD,A5 GET FILE CODE = P ANK A1,/FF = . P RB(Z) CEF520 NEXT VOLUME = B P LDR A2,A5 = d & P CF A14,GETFIL FILE SECTION LENGTH = v P RB(NZ) CEF520 NO REST PILE = PCEF530 EQU * = P LDK A4,0 RESET CR = P* = P IFT CPU852=
0x409ac0…409c54 (3, 617) Dummy {f00=0x0128, f01=0x0190, f02=» = P* > P IFT CPU852=0 > P ML 2,EXTLEN,A9 SAVE REST > ( P DA FILLEN,A9 > J P MS 2,EXTLEN,A9 > ` P XIF > x P* > P EJECT FMCDEF > P* > P* > PCEF600 EQU * > . P LD A2,EXTZER,A9 1ST EXTENT VTOC SECTOR NO > $ P RF(NZ) CE
0x409c54…409de8 Dummy {f00=0x0128, f01=0x0190, f02=»,FWTSAV,A9 GET FILE NAME BASE > & P CF A14,RDVTO2 SCAN FOR FIRST VTOC ? & P ADK A4,0 ? P P RF(NZ) CEF900 READ ERROR ? b ( P LD A1,VTC:EN,A9 LAST EXTENT NUMBER ? . P SC A1,VTC:NE,A13 UPDATE NUMBER OF EXTENTS ? P CF A14,CDEWRI ? PCEF900 EQU * ?
0x409de8…409f7c Dummy {f00=0x0128, f01=0x0190, f02=» 4 P* COLLECT ADJECENT EXTENDS AND CREATE ONE NEW @ P* @ < > P* INPUT : FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS @ F 8 P* THAT IS (FILENAME)=(FWTSAV)+FWTNAM @ $ P* A8 = FM:ECB ADDRESS @ 4 P* FILCOD = AREA C
0x409f7c…40a110 Dummy {f00=0x0128, f01=0x018e, f02=» FILE CODE @ ~ ( P RF(Z) DELF03 NO SPECIFIED FILE CODE A & P CF A14,VTCPAR GET VTOC PARAMETERS A > P RF(NZ) DELF03 ERROR A h PDELF00 EQU * A $ P LD A6,FWTSAV,A9 GET FWT ADDRESS A & P LD A12,VTCEND,A9 VTOC END SECTOR A ( P LD A2,VTCSEC,A9 PRESENT VTOC
0x40a110…40a2a4 Dummy {f00=0x0128, f01=0x018e, f02=» A p P ADK A4,0 B " P RF(Z) DELF05 NEXT VTOC ENTRY B P* B @ P EJECT FMCDEF B J P* B ` P* B j PDELF03 EQU * B t P ORS A4,RETCOD B $ P IM VTC:FS,A9 NEXT FILE SECTION B P LD A1,VTC:FS,A9 B P SUK A1,4 B $ P RB(N) DELFIL NEXT FILE
0x40a2a4…40a438 Dummy {f00=0x0128, f01=0x0190, f02=» 2 P* VTC:EL = END SECTOR OF CREATED FREE SPACE C P* C : P* C D PDELF05 EQU * C N P LDKL A1,SPACES C b $ P STR A1,A13 SPACES IN FILE NAME C z P ST A1,2,A13 C P ST A1,4,A13 C P ST A1,6,A13 C P CM VTC:ST,A13 FREE ENTRY C $ P LD A1,V
0x40a438…40a5cc Dummy {f00=0x0128, f01=0x0190, f02=»NO C P* D P EJECT FMCDEF D P* D * P* D 4 PDELF08 EQU * D > P* D R P IFT CPU852=1 D & P LDKL A1,VTC:EL GET EXTENT LENGTH D r 6 P ADR A1,A13 MOVE EXT LEN AND EXT BASE TO WORK AREA D P LDKL A3,VTC:EL D P ADR A3,A9 D P CF A14,
0x40a5cc…40a760 Dummy {f00=0x0128, f01=0x0190, f02=» D 6 P CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH E P XIF E B P* E N P IFT CPU852=0 E X P ML 4,VTC:EL,A13 E n & P DAR A3 VTC:EL=EXT BASE+EXT LENGTH E P MS 4,VTC:EL,A9 E P XIF E P* E P CF A14,CDEWRI WRITE E P RB(NZ) DELF03
0x40a760…40a8f4 (3, 618) Dummy {f00=0x0128, f01=0x0190, f02=»12 POINTER IN FSAT E PDELF10 EQU * F $ P LDR A5,A12 DISPLACEMENT IN FSAT F . P CF A14,FSREAD F V P RB(NZ) DELF03 READ ERROR F l P* F P EJECT FMCDEF F P* F P* F ( P* EXTLEN = FSAT EXTENT BASE+LENGTH F P* F P* F & P ANK A
0x40a8f4…40aa88 Dummy {f00=0x0128, f01=0x0190, f02=»A1,FM:BUF+4 MOVE EXTENT BASE FROM FSAT F P ADR A1,A5 G . P CF A14,FM:MV4 G @ ( P LDK A3,EXTLEN ADDRESS TO SAVE AREA G V P ADR A3,A9 G * P CF A14,DBLAD1 FSAT EXTENT BASE+LENGTH G P XIF G P* G P IFT CPU852=0 G P ML 2,FM:BUF+4,A5 G P
0x40aa88…40ac1c Dummy {f00=0x0128, f01=0x0190, f02=»ACENT FREE SPACE G v P* H P* H " P IFT CPU852=1 H , * P LDR A1,A3 ADDRESS TO FSAT BASE+LENGTH H B P LDKL A2,VTC:EB EXTENT BASE H p P ADR A2,A9 H : P CF A14,CMPDWD CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN H P XIF H P* H P IFT CPU852=0
0x40ac1c…40adb0 Dummy {f00=0x0128, f01=0x0190, f02=» IFT CPU852=1 H P LDKL A3,VTC:EB I P ADR A3,A9 I . 0 P LDKL A1,FM:BUF+4 MOVE EXTENT BASE TO VTC:EB I @ P ADR A1,A5 I t P CF A14,FM:MV4 I P XIF I P* I P IFT CPU852=0 I P ML 2,FM:BUF+4,A5 I P MS 2,VTC:EB,A9 I P XIF I P*
0x40adb0…40af44 Dummy {f00=0x0128, f01=0x0190, f02=»PACE I j P* J P* J PDELF30 EQU * J P* J 4 P IFT CPU852=1 J > , P LDKL A1,FM:BUF+4 FSAT EXTENT BASE ENTRY J T P ADR A1,A5 DISPLACEMENT J . P LDKL A2,VTC:EL EXTENTBASE + EXTENT LENGTH J P ADR A2,A9 J $ P CF A14,CMPDWD CHECK IF ADJECENT
0x40af44…40b0d8 Dummy {f00=0x0128, f01=0x0190, f02=» J f P XIF K P* K P RF(NE) DELF40 NOT ADJECENT K P* K B P IFT CPU852=1 K L " P LDKL A3,VTC:EL EXPAND EXTLEN K b P ADR A3,A9 K P CF A14,DBLAD1 K P XIF K P* K P IFT CPU852=0 K P ML 2,VTC:EL,A9 K P DA FM:BUF,A5 K
0x40b0d8…40b26c Dummy {f00=0x0128, f01=0x0190, f02=»B(NZ) DELF03 WRITE ERROR K PDELF40 EQU * L ( P ADKL A12,FSATRL NEXT ENTRY IN FSAT L 4 P CW A12,FSATLE,A9 L ` * P RB(L) DELF10 CONTINUE SEARCH OF FSAT L z P* L P EJECT FMCDEF L P* L P* L : P* PUT FREE SPACE IN FSAT SEARCH FOR FREE F
0x40b26c…40b400 Dummy {f00=0x0128, f01=0x0190, f02=»ROR L z & P LDR A12,A2 DISPLACEMENT IN BUFFER M P ADKL A12,FM:BUF ADDRESS M 6 P LDR A1,A12 M V P CF A14,GETPAR GET EXT LEN M j " P RF(Z) DELF60 FREE FSAT ENTRY M P ADK A5,FSATRL M P CW A5,FSATLE,A9 M P RB(NG) DELF50 M 0 P LDK A4,RC:OFL RC:
0x40b400…40b594 (3, 619) Dummy {f00=0x0128, f01=0x018e, f02=»EF M P* N P* N PDELF60 EQU * N P* N 2 P IFT CPU852=1 N < P LDKL A3,VTC:EL EXTENT END N R P ADR A3,A9 N t * P LDKL A6,VTC:EB ADDRESS TO EXTENT BASE N P ADR A6,A9 N $ P CF A14,DBLSUB GET EXTENT LENGTH N * P LDR A3,A12 ADDRESS TO FRE
0x40b594…40b728 Dummy {f00=0x0128, f01=0x0190, f02=» P XIF O P* O P IFT CPU852=0 O P ML 4,VTC:EL,A9 O 0 P DSR A3 O H P MSR 4,A12 UPDATE FSAT O X P XIF O v P* O P CF A14,CDEWRI WRITE O P RF(NZ) DELF80 ERROR O P IM FEXTNO O PDELF70 EQU * O P ABL(NZ) DELF00 NEXT EXTENT O
0x40b728…40b8bc Dummy {f00=0x0128, f01=0x0190, f02=»SUBROUTINES * O P*************** P P* P . P* P 8 P********** P B P* DV3RST * P T P********** P f P* P x P* P ( P* CALCULATES REST WHEN DIVIDE BY 3 P P* P " P* INPUT : A1,A2 = DIVIDENT P P* P 2 P* OUTPUT : A2 = 3
0x40b8bc…40ba50 Dummy {f00=0x0128, f01=0x018e, f02=»QU * P P LDR A1,A2 Q " P ANK A1,3 ONE FIGURE IN BASE 4 Q P SRL A2,2 Q D 2 P ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 Q V P RF(Z) SET2CR REST = 0 Q P SUK A2,3 Q " P RB(P) DV3R10 CONTINUE TO ADD Q P NGR A2,A2 Q P RF SET2CR Q P*
0x40ba50…40bbe4 Dummy {f00=0x0128, f01=0x0190, f02=» Q P* GET FILE SECTION LENGTH R P* R , ( P* INPUT : A2 = FILE SECTION NUMBER R 6 P* A10 = FPB ADDRESS R b P* R , P* OUTPUT: A1,A2 = FILE SECTION LENGTH R : P* CR SET ACCORDING TO FILE SECTION LENGTH R P* R P
0x40bbe4…40bd78 Dummy {f00=0x0128, f01=0x0190, f02=»S TO FILE SECTION LENGTH R ~ , P ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB S PGETPAR EQU * S P & P LD A2,2,A1 LEAST SIGNIFICANT PART S d & P LDR* A1,A1 MOST SIGNIFICANT PART S P RF DBLX00 SET CR S P* S P IFT CPU852=1 S P EJECT FMCDEF S P
0x40bd78…40bf0c Dummy {f00=0x0128, f01=0x0190, f02=»UBLE ADD ON MEMORY LOCATIONS S 0 P* DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 T $ P* T X & P* INPUT : A3 = ADDRESS TO ARG1 T b & P* A6 = ADDRESS TO ARG2 T P* T , P* OUTPUT: A3 = ADDRESS TO ARG1 + ARG2 T " P* A1,A2 = ARG
0x40bf0c…40c0a0 Dummy {f00=0x0128, f01=0x0190, f02=» PDBLADD EQU * U P LDR* A1,A3 GET ARG1 U P LD A2,2,A3 U 4 PDBLADR EQU * U H P LD A7,2,A6 GET ARG2 U P LDR* A6,A6 U x P CF A14,ADDMOD ARG1+ARG2 U P RF DBLXIT U P XIF U P* U P EJECT FMCDEF U P* U P* U P**********
0x40c0a0…40c234 (3, 620) Dummy {f00=0x0128, f01=0x0190, f02=»PUT : A3 = ADDRESS TO ARG1 U & P* A6 = ADDRESS TO ARG2 V $ P* V N * P* OUTPUT: A3 = ADDRESS TO ARG1-ARG2 V X " P* A1,A2 = ARG1-ARG2 V $ P* A6,A7 ARE DESTOIED V & P* IF A1=A2=0 THEN A3=0 V P* V P
0x40c234…40c3c8 Dummy {f00=0x0128, f01=0x0190, f02=»,A3 ARG1 V P LD A2,2,A3 W P LD A7,2,A6 ARG2 W $ P LDR* A6,A6 W < P CF A14,DSUMOD ARG1-ARG2 W P P XIF W p P* W | P IFT CPU852=0 W P MLR 2,A3 W P DSR* A6 W P XIF W P* W P EJECT FMCDEF W P* W P* W PDBLXIT EQU
0x40c3c8…40c55c Dummy {f00=0x0128, f01=0x018e, f02=» MSR 2,A3 W P XIF X P* X PDBLX00 EQU * X ( P ADKL A14,4 X < P ADK A1,0 X P P RF(NZ) DBLX10 X b P ADK A2,0 X x PDBLX10 EQU * X P ABR* A14 X P* X P EJECT FMCDEF X P* X P* X P********** X P* GET:FC * X P
0x40c55c…40c6f0 Dummy {f00=0x0128, f01=0x018e, f02=» X P* OUTPUT : A2 = FILE CODE Y . P* CR SET ACCORDING TO FILECODE Y , P* Y ^ P* Y h PGET:FC EQU * Y r , P LD A2,VTC:FS,A9 GET FILE SECTION NUMBER Y P LC A2,FILCOD,A2 FILE CODE Y PSET2CR EQU * Y P LDK A1,0 Y & P RB DBLX00
0x40c6f0…40c884 Dummy {f00=0x0128, f01=0x018e, f02=» P* Z P* PERFORM WRITE Z P* Z ( P* INPUT: A8=ECB ADDRESS Z 2 P* A7 USED Z T P* OUTPUT: A4=RETURN CODE Z n 0 P* CR SET ACCORDING TO RETURN CODE Z P* Z P* Z PCDEWRI EQU * Z P LDK A7,/95 Z P CF A14,
0x40c884…40ca18 Dummy {f00=0x0128, f01=0x0190, f02=» 0 P* CLEAR 4 WORDS IN FM:BUF SPECIFIED BY A5 [ P* [ 8 , P* INPUT : A5 = DISPLACEMENT IN FM:BUF [ B P* [ r PCLFSAT EQU * [ | P CM FM:BUF,A5 [ P CM FM:BUF+2,A5 [ P CM FM:BUF+4,A5 [ P CM FM:BUF+6,A5 [ P RTN A14 [ P* [ P
0x40ca18…40cbac Dummy {f00=0x0128, f01=0x0190, f02=»ELETE AND EXTEND PREPARATION ROUTINE [ . P* CLEAR WORK AREA AND SAVES TTAB ADDRESS , P* ^ 2 P* INPUT : A5 = TTAB ADDRESS OF CALLING TASK h " P* REGISTER A3 USED P* " P* OUTPUT : A4=RC FROM FCHEC2 ( P* CR SET
0x40cbac…40cd40 Dummy {f00=0x0128, f01=0x018e, f02=»RY EQU * ENTRY USED BY CREATE P LDK A3,WRKALE-2 ] & PCDEE05 EQU * ] > P CM WRKARE,A3 ] R P SUK A3,2 ] h P RB(NN) CDEE05 ] z ( P ST A9,SAVEA9 SAVE USER ECB ADDRESS ] P LDKL A9,WRKARE BASE ADDRESS ] & P ST A6,FWTSAV,A9 SAVE FWT ADDRESS ]
0x40cd40…40ced4 (3, 621) Dummy {f00=0x0129, f01=0x0190, f02=» P********** ^ P* FSREAD * ^ P* FTREAD * ^ ( P********** ^ : P* ^ L B P* FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED ^ V P* FTREAD: READ FSAT SECTOR ^ P* ^ ( P* INPUT : A5 = FSAT DISPLACEMENT ^ * P* FSATB
0x40ced4…40d068 Dummy {f00=0x0129, f01=0x0190, f02=» ^ ^ * P* CR IS SET TO ZERO IF A4=0 _ P* _ 6 PFSREAD EQU * _ @ P LDK A4,0 RESET RETURN CODE _ T P LDR A2,A5 DISPLACEMENT _ x P ANK A2,/F8 _ & P RF(NZ) SET:CR NOT FIRST IN SECTOR _ PFTREAD EQU * _ P ECR A2,A5 SECTOR NUMBER _
0x40d068…40d1fc Dummy {f00=0x0129, f01=0x0190, f02=» $ P ADKL A14,4 UPDATE STACK POINTER ` P ADK A4,0 SET CR ` , P ABR* A14 RETURN ` D P* ` P EJECT FMCDEF ` f P* ` | P* ` P********** ` P* VTCPAR * ` P********** ` P* ` . P* GET FSAT LENGTH IN BYTES TO WORK AREA ` * P*
0x40d1fc…40d390 Dummy {f00=0x0129, f01=0x0190, f02=»INPUT : A8 = FM:ECB ADDRESS ` P* A2 = FILE CODE a $ " P* OUTPUT: A4 = 0 IF READ OK a H & P* A4<> 0 IF READ NOT OK a n ( P* CR SET ACCORDING TO A4 a * P* USED REGISTERS A1, A2, A3, A4, A7 a P* a PVTCPAR EQU *
0x40d390…40d524 Dummy {f00=0x0129, f01=0x0190, f02=»ERROR a | " P LDKL A2,FM:BUF BUFFER ADDRESS b P LD A1,VOL:EB,A2 VTOC BASE b 4 & P ST A1,FSATBA,A9 FSAT BASE SECTOR b V P LD A3,VOL:EL,A2 VTOC LENGTH b P LD A2,VOL:FS,A2 FSAT LENGTH b P ADR A3,A1 b P ADR A1,A2 b P ECR A2,A2 b P* b P
0x40d524…40d6b8 Dummy {f00=0x0129, f01=0x0190, f02=»N BYTES b r $ P ST A3,VTCEND,A9 VTOC END SECTOR c P XIF c 8 P* c D P IFT CPU852=0 c N P MS 3,VTCSEC,A9 c d P XIF c | P* c P RB SET:CR c P* c P EJECT FMCDEF c P* c P* c P********** c P* CHKFIL * c P********** c
0x40d6b8…40d84c Dummy {f00=0x0129, f01=0x0190, f02=»OD c j . P* FILCOD - AREA WITH FILE CODES d ( P* OUTPUT: A2 = 0 IF NO FILE FOUND d < & P* A2 <> 0 IF FILE FOUND d h ( P* CR SET ACCORDING TO A2 d , P* A1-A7 AND A11-A13 ARE USED d P* d P* d PCHKFIL
0x40d84c…40d9e0 Dummy {f00=0x0129, f01=0x4150, f02=» CHKF20 NEXT FILE CODE d P LDR A6,A9 e P SUKL A6,FWTNAM e 0 P CF A14,FNDVTC e H P ADK A4,0 e ^ P ABL(NZ) CDEXIT DISC ERROR e p P ADK A2,0 e * P RB(NZ) SET2CR FILE IN ONE OF VOLUMES e PCHKF20 EQU * e P ADK A5,1 e ( P RB(NP) CHKF10 N
0x40d9e0…40db74 (3, 622) Dummy {f00=0x0129, f01=0x2008, f02=» f NT FMCDEF 80-01-09 PRR 11.0 CHLO END 4 :E0F @ KPF /S L ASG 2,TY10 Z LED FMCDEF l !!DL 1 ~ 11EN !!AB BEA FMCDEF ASG 2,TY10 BYE @
0x40db74…40dd08 Dummy {f00=0x0129, f01=0x0190, f02=»IPLE EXTENT I/O FUNCTION * P* IS OBTAINED BY SETTING MULEXT EQU 1. P* N PMULEXT EQU 1 X PX:B EQU MULEXT l P* P EJECT TIOFM P* P* P********* P* TIOFM * P********* P* P* 8 P* THIS
0x40dd08…40de9c Dummy {f00=0x0129, f01=0x018e, f02=»ETERS: t P* P* A4 = 0 P* A5 = TTAB ADDRESS * P* A7 = ORDER CODE H P* A8 = ECB ADDRESS d P* . P* WHEN FILE ADMINISTRATION IS REQUESTED, ( P* TIOFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION
0x40de9c…40e030 Dummy {f00=0x0129, f01=0x0190, f02=» P* P* P EJECT TIOFM P* . P* 8 4 PTIOFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY B P* z P* CHECK ORDER CODE P* P LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT P SUK A
0x40e030…40e1c4 Dummy {f00=0x0129, f01=0x018e, f02=» RF(Z) FM:IO BASIC WRITE P SUK A2,/11-/05 P RF(Z) FM:IO PHYSICAL READ 8 P SUK A2,/15-/11 Z P RF(Z) FM:IO PHYSICAL WRITE r P SUK A2,/21-/15 $ P RF(Z) FMACT2 OPEN/CREATE/EXTEND P SUK A2,/22-/21 P RF(Z) FMACT1 CLOSE/DELETE
0x40e1c4…40e358 Dummy {f00=0x0129, f01=0x0190, f02=» . P RF(NZ) FM:RQE REQUEST ERROR IF NOT DETACH P* 6 P EJECT TIOFM @ P* V P IFT ATTDET=1 ` P* v P********** P* DETACH * P********** P* P* DETACH FILE P* PDETACH EQU * 8 P CF A15,FCHECK FIND
0x40e358…40e4ec Dummy {f00=0x0129, f01=0x0190, f02=» WAS ATTACHED v ( P RF(NZ) T:DISP YES, GO TO DISPATCHER P XIF B P* N P* ERROR EXIT X P* l 4 PFM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT v P LDK A3,/80 RETURN CODE P* PFM:ER1 EQU * P ECR A3,A3 P RF T:DIS2
0x40e4ec…40e680 Dummy {f00=0x0129, f01=0x0190, f02=»* P* ATTACH FILE P* PATTACH EQU * * 8 P CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS > P RF(NZ) FM:030 NOT OK z $ P ST A5,FWTTAB,A6 SET ATTACH WORD P XIF P* PT:DISP EQU * P LDR A3,A4 RETURN CODE P
0x40e680…40e814 (3, 623) Opaque[0x194]
0x40e814…40e9a8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e8, f03=0x0000}
0x40e814…40e9a8 IdxSect {
0x40e814…40e9a8 f00 = 0x00a7 // 0x40e814 @0x0
0x40e814…40e9a8 f01 = 0x0006 // 0x40e816 @0x2
0x40e814…40e9a8 gno = [ // 0x40e818 @0x4
0x40e814…40e9a8 [0x00]: C0x00a7.0x1.0
0x40e814…40e9a8 [0x01]: C0x00c6.0x0.0
0x40e814…40e9a8 [0x02]: C0x00c7.0x0.0
0x40e814…40e9a8 ]
0x40e814…40e9a8 }
0x40e9a8…40eb3c Dummy {f00=0x00a7, f01=0x0190, f02=» 6 P IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL 11.0 P > P F P N P ENTRY CTAB01 V P ENTRY CTAB02 l P ENTRY CTAB03 P ENTRY CTAB04 P P P P* < P* THIS IS THE KEY-CODE CONVERSION TABLE FOR THE PTS 6800
0x40eb3c…40ecd0 Dummy {f00=0x00a7, f01=0x018e, f02=» DEPRESSED. n F P* THEN IN THE "UNSHIFT" TABLE, THE FIRST DIGIT OF THE KEY-CODE, H P* SO "3" IS TAKEN AS A DISPLACEMENT. WITH DISPLACEMENT 3 WE FIND ^ H P* A POINTER, CALLED "UNSH3". THIS POINTS TO ANOTHER TABLE, CALLED H P* "UNSH3". THEN
0x40ecd0…40ee64 Dummy {f00=0x00a7, f01=0x018e, f02=» H P* FIND THE HEXADECIMAL VALUE GENERATED BY THE KEY-CODE '30'. THIS P* APPEARS TO BE '30'. P P* p P EJECT z PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * PCTAB04 EQU * P DATA UNSHFT P DATA SHIFT P DATA CT
0x40ee64…40eff8 Dummy {f00=0x00a7, f01=0x0190, f02=» PCTRL EQU * PUNSHFT EQU * 6 P DATA FUNCT0 FUNCTION CLUSTER,KEYS STARTING WITH 0 * 6 P DATA FUNCT1 " " " " " 1 d 6 P DATA UNSH2 ALPHANUMERIC PART," " " 2 6 P DATA UNSH3 " " " " "
0x40eff8…40f18c Dummy {f00=0x00a7, f01=0x0190, f02=»T6 FUNCTION CLUSTER, " " " 6 P* 0 B P* COLUMN TABLE FOR SHIFTED KEYS, AND FOR CONTROL-SHIFTED KEYS : P* PCTRLSH EQU * PSHIFT EQU * P DATA FUNCT0 P DATA FUNCT1 P DATA SHIFT2 P DATA SHIFT3 P DATA
0x40f18c…40f320 Dummy {f00=0x00a7, f01=0x0190, f02=» PSPECI EQU * P DATA 0,0,0,0,0,0,0 NOT USED P EJECT @ P* N 8 P* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 0 X P* PFUNCT0 EQU * P DATA /AB83 P DATA /878B P DATA /8188 P DATA /8A84 P DATA
0x40f320…40f4b4 (3, 624) Dummy {f00=0x00c6, f01=0x0190, f02=» P* PFUNCT1 EQU * P DATA /3031 & P DATA /3233 : P DATA /3435 N P DATA /3637 b P DATA /3839 v P DATA /1A1B P DATA /9096 P DATA /91A2 P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH
0x40f4b4…40f648 Dummy {f00=0x00c6, f01=0x0190, f02=» P DATA /FF40 P DATA /2C2D P DATA /2EFF , P* @ < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 2 J P* PSHIFT2 EQU * P DATA /20FF P DATA /FFFF P DATA /FFFF P DATA /FF7E P DATA /3D3D
0x40f648…40f7dc Dummy {f00=0x00c6, f01=0x0190, f02=» P* PUNSH3 EQU * P DATA /3031 " P DATA /3233 6 P DATA /3435 J P DATA /3637 ^ P DATA /3839 r P DATA /903B P DATA /3C3D P DATA /3E3F P* < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 3
0x40f7dc…40f970 Dummy {f00=0x00c6, f01=0x0190, f02=» P DATA /3C3D P DATA /3E3F P* 0 @ P* CHARACTERS TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 4 : P* ~ PUNSH4 EQU * P DATA /2741 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4
0x40f970…40fb04 Dummy {f00=0x00c6, f01=0x018e, f02=»SHIFT4 EQU * P DATA /5E41 P DATA /4243 ( P DATA /4445 < P DATA /4647 P P DATA /4849 d P DATA /4A4B x P DATA /4C4D P DATA /4E4F P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 5 P*
0x40fb04…40fc98 Dummy {f00=0x00c6, f01=0x018e, f02=» P DATA /5C5D P DATA /2BFF P* 0 < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 5 : P* z PSHIFT5 EQU * P DATA /5051 P DATA /5253 P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x40fc98…40fe2c Dummy {f00=0x00c6, f01=0x40b8, f02=» PFUNCT6 EQU * P DATA /A1A0 P DATA /9980 , P DATA /9394 @ P DATA /959A T P DATA 0 h P DATA 0 x P DATA 0 P DATA 0 P END @ P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x40fe2c…40ffc0 Dummy {f00=0x00c6, f01=0x2008, f02=» * * 8 3* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 6 " * ^ FUNCT6 EQU * h DATA /A1A0 | DATA /9980 DATA /9394 DATA /959A DATA 0 DATA 0 DATA 0 DATA 0
0x40ffc0…410154 (3, 625) Dummy {f00=0x00c7, f01=0x0190, f02=»
[…0x1…]
0x4102e8…41047c Dummy {f00=0x00c7, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x41047c…410610 Dummy {f00=0x00c7, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x410610…4107a4 Dummy {f00=0x00c7, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x4107a4…410938 Dummy {f00=0x00c7, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x410938…410acc Dummy {f00=0x00c7, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @: X : v B > 8 F J x: D E X_j DEX D' W^j D W D*j D DF0 DP 1 A A24 0 4 1 4m 5 mZ3 % % 1 4 1p2&3 5 1 3 4 4 1"5 J3 `$ 0 484<: 4Fmzm 4$4 1 &h/ # "
0x410acc…410c60 Dummy {f00=0x00c7, f01=0x0190, f02=» 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZ
0x410c60…410df4 (3, 626) Opaque[0x194]
0x410df4…410f88 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1be0, f03=0x0000}
0x410df4…410f88 IdxSect {
0x410df4…410f88 f00 = 0x00df // 0x410df4 @0x0
0x410df4…410f88 f01 = 0x0004 // 0x410df6 @0x2
0x410df4…410f88 gno = [ // 0x410df8 @0x4
0x410df4…410f88 [0x00]: C0x00df.0x0.0
0x410df4…410f88 [0x01]: C0x00f0.0x1.0
0x410df4…410f88 ]
0x410df4…410f88 }
0x410f88…41111c Dummy {f00=0x00df, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB00 TABLE ENTRY | P EXTRN CTAB01 P EXTRN DVDY00 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P*
0x41111c…4112b0 Dummy {f00=0x00df, f01=0x0190, f02=»S ~ P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB ADDRESS X " P DATA 0 WAIT/ACTIVE INDICATOR x P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB
0x4112b0…411444 Dummy {f00=0x00df, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 6 P DATA 0 SAVE AREA FOR A8 V $ P DATA /0001 CHANNEL PARAMETER-2 v " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /1000 DEVICE STATUS
0x411444…4115d8 Dummy {f00=0x00df, f01=0x0190, f02=»CONVERSION POINTERS p P DATA 0 TIMER . P DATA DWTSQ+DVKB00 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB E
0x4115d8…41176c Dummy {f00=0x00df, f01=0x4038, f02=» P XIF PDWTEND EQU * P END (@ 4DWTSQ+DVKB00 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB00 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB00 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB E
0x41176c…411900 Dummy {f00=0x00df, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x411900…411a94 (3, 627) Dummy {f00=0x00f0, f01=0x0190, f02=»************** P* CONDITIONAL ASSEMBLY* P************************ 6 P* V P* ` PX:A EQU 0 j PX:B EQU 0 | PX:C EQU 60 PX:D EQU 10 PX:E EQU 6 PX:F EQU /5F5E =4 PX:G EQU /0D00 =4 P PTIMOUT E
0x411a94…411c28 Dummy {f00=0x00f0, f01=0x0190, f02=»* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. 2 P* ` PMMUPAG EQU 1 j P* ~ P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* P
0x411c28…411dbc Dummy {f00=0x00f0, f01=0x0190, f02=»********* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART & P* Z P IFT MMUPAG=0 d PSTART EQU DWTDRD z P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* PDWTHP EQU START+/18
0x411dbc…411f50 Dummy {f00=0x00f0, f01=0x0190, f02=»U KEY TABLE SIZE z ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE P DATA DEVIND DEVICE INDEX D PTWAD EQU * f P DATA TWA ACTIVATION PART x " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATION PART: CHECK VALIDITY OF
0x411f50…4120e4 Dummy {f00=0x00f0, f01=0x0190, f02=» LENGTH =0 x P* P* P LDR A2,A7 COPY ORDER & P RF(NP) TWAERR REQUEST ERROR D P SUK A2,4 h P RF(Z) TWAERR REQUEST ERROR z P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST P* P*
0x4120e4…412278 Dummy {f00=0x00f0, f01=0x0190, f02=»GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE P LDR A1,A6 SAVE DWT-ADDRESS H P CF A15,SETIME l P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P IFT POWUP=1 " P LD A2,DWT
0x412278…41240c Dummy {f00=0x00f0, f01=0x0190, f02=» P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP P ABL IHTW35 PERFORM ENDIO > P XIF ` PTWA020 LDK A2,/21 l P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG SAVE REGISTERS P EJECT
0x41240c…4125a0 Dummy {f00=0x00f0, f01=0x0190, f02=»NZ) RED037 P XIF P SUK A7,1 P RF(P) RED050 ORDERS 02/03 0 P* R P* 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER f P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P RF(Z) RED040 BASIC READ P
0x4125a0…412734 (3, 628) Opaque[0x194]
0x412734…4128c8 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e20, f03=0x0000}
0x412734…4128c8 IdxSect {
0x412734…4128c8 f00 = 0x00f1 // 0x412734 @0x0
0x412734…4128c8 f01 = 0x0002 // 0x412736 @0x2
0x412734…4128c8 gno = [ // 0x412738 @0x4
0x412734…4128c8 [0x00]: C0x00f1.0x0.0
0x412734…4128c8 ]
0x412734…4128c8 }
0x4128c8…412a5c Dummy {f00=0x00f1, f01=0x0190, f02=» 2 P IDENT DVDI00 REL 11.0 81-01-26 870105041100 P : P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVDI00 DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 1
0x412a5c…412bf0 Dummy {f00=0x00f1, f01=0x0190, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVDI00 ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK B P DATA 'DI' TTAB ADDRESS n P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x412bf0…412d84 Dummy {f00=0x00f1, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /0001 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x412d84…412f18 Dummy {f00=0x00f1, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~1 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x412f18…4130ac Dummy {f00=0x00f1, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x4130ac…413240 Dummy {f00=0x00f1, f01=0x0190, f02=»R t P ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF 2 P* T P* ^ , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR h P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF
0x413240…4133d4 (3, 629) Opaque[0x194]
0x4133d4…413568 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x4133d4…413568 IdxSect {
0x4133d4…413568 f00 = 0x00f1 // 0x4133d4 @0x0
0x4133d4…413568 f01 = 0x0002 // 0x4133d6 @0x2
0x4133d4…413568 gno = [ // 0x4133d8 @0x4
0x4133d4…413568 [0x00]: C0x00f1.0x2.0
0x4133d4…413568 ]
0x4133d4…413568 }
0x413568…4136fc Dummy {f00=0x00f1, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 11.0 81-01-26 870105041100 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
0x4136fc…413890 Dummy {f00=0x00f1, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x413890…413a24 Dummy {f00=0x00f1, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0004 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x413a24…413bb8 Dummy {f00=0x00f1, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P
0x413bb8…413d4c Dummy {f00=0x00f1, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x413d4c…413ee0 Dummy {f00=0x00f1, f01=0x0190, f02=» $ p P SCR A2,A4 STORE CHARACTER % $ P ADK A3,1 INCREMENT BUFFER INDEX % * P RTN A5 % R P* % b P* % l P* % v P IFT TIMOUT=1 % P* % P* % P* TIMOUT ROUTINE % P* % P* % PTWTUT EQU * % P LDR A6,A1 GET DWT-ADDRESS %
0x413ee0…414074 (3, 630) Opaque[0x194]
0x414074…414208 # DirEnt {nam=»DVG200«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x414074…414208 IdxSect {
0x414074…414208 f00 = 0x0129 // 0x414074 @0x0
0x414074…414208 f01 = 0x0004 // 0x414076 @0x2
0x414074…414208 gno = [ // 0x414078 @0x4
0x414074…414208 [0x00]: C0x0129.0x3.0
0x414074…414208 [0x01]: C0x012a.0x1.0
0x414074…414208 ]
0x414074…414208 }
0x414208…41439c Dummy {f00=0x0129, f01=0x0190, f02=» 2 P IDENT DVG200 REL 11.0 81-01-26 870105041100 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVG200 TABLE ENTRY | P* P* * P EXTRN GPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND. P
0x41439c…414530 Dummy {f00=0x0129, f01=0x0190, f02=»A 0 ECB ADDRESS P DATA DWTEND-DVG200 ORDER ( P DATA GPAD3 POINTER TO ADDRESS BLOCK : P DATA 'GP' TTAB-ADDRESS f $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x414530…4146c4 Dummy {f00=0x0129, f01=0x0190, f02=»ATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 P DATA 0 SAVE AREA A8 6 $ P DATA /0003 CHANNEL PARAMETER 2 R $ P DATA 0 LINE DRIVER DEPENDENT 1 z $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P DATA 0 TIMER POINTER "
0x4146c4…414858 Dummy {f00=0x0129, f01=0x0190, f02=» LENGTH z P DATA 0 ACTUAL LINE DOCUMENT $ P DATA 0 REQUESTED LINE DOCUMENT 4 P DATA 0 RETURN CODE $ P DATA 0 CONTROL SEQUENCE ADRESS x 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER
0x414858…4149ec Dummy {f00=0x0129, f01=0x4142, f02=»IX & PITCH ~ P DATA 0 LINE SPACE " P DATA /3300 HIGH SPEED PARAM. , P DATA 0 HOPPER 1 OR 2 R P DATA 0,0 LAST TAB POS. p & P DATA 0 CONTR. SEQ. SEPARATOR IND. P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P XIF
0x4149ec…414b80 Dummy {f00=0x0129, 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
0x414b80…414d14 (3, 631) Dummy {f00=0x012a, f01=0x0190, f02=»CT TIOFM % P* & P* ERROR RETURNS & P* & 4 $ PFC:050 EQU * REQUEST ERROR EXIT & > & P LDKL A4,/7FC0 RETURN CODE = /8000 & f $ P LDK A6,0 INDICATE NO FWT FOUND & P* & $ PFC:060 EQU * FILE ATTACHED EXIT & " P ADK A4,/20 RETURN CODE = /40
0x414d14…414ea8 Dummy {f00=0x012a, f01=0x0190, f02=» & l P* ' P EJECT TIOFM ' P* ' ( P* ' 2 P********** ' < P* DET:FM * ' N P********** ' ` P* ' r P* INPUT: A6 = FWT ADDRESS ' | P* ' 2 P* OUTPUT:A10 = TTAB ADDRESS OF ATTACHED TASK ' P* A1 IS DESTROYED ' P* '
0x414ea8…41503c Dummy {f00=0x012a, f01=0x0190, f02=»TACHED ' | 8 P LD A5,FWTQUE,A6 QUEUE ANCHOR FOR FILE I/O REQUESTS ( ( P RF(Z) DET:20 NO MORE TASKS IN QUEUE ( J P* ( v . P* REPEAT ALL QUEUED REQUESTS FOR THIS FILE ( P* ( PDET:10 EQU * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x41503c…4151d0 Dummy {f00=0x012a, f01=0x40c6, f02=» P* ) PDET:20 EQU * ) $ P LDR A5,A10 RESTORE TTAB ADDRESS ) " $ P CM FWTTAB,A6 RESET ATTACH WORD ) J P* ) r PDET:30 EQU * ) | P RTN A15 ) P XIF ) P* ) P END ) @ ) * ( & P LDR* A1,A5 SAVE NEXT TTAB ADDRESS ( , P CF A15,QTJOB
0x4151d0…415364 Dummy {f00=0x012a, f01=0x2008, f02=» * O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x415364…4154f8 Dummy {f00=0x012a, f01=0x0190, f02=» P IFT CPU852=0 + $ P ML 2,VTC:EL,A9 PRESENT MOST FIT + P DSR* A13 EXTENT LENGTH + B P XIF + b P* + n 8 P RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT + x P RF CEF150 + P* + P EJECT FMCDEF + P* + P* + PCEF120 EQU * +
0x4154f8…41568c Dummy {f00=0x012a, f01=0x0190, f02=»NT FOUND + r P* , P IFT CPU852=1 , 0 P LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT , 0 P ADR A1,A9 , d P LDR A2,A13 , v P CF A14,CMPDWD , P XIF , P* , P IFT CPU852=0 , $ P ML 2,VTC:EL,A9 PRESENT MOST FIT , P DSR* A13 EXTENT LEN
0x41568c…415820 Dummy {f00=0x012a, f01=0x0190, f02=»50 EQU * , P* - P IFT CPU852=1 - P LDR A1,A13 MOVE FROM BUFFER - 0 P LDKL A3,VTC:EL TO WORK AREA - T P ADR A3,A9 - x P CF A14,FM:MV8 - P XIF - P* - P IFT CPU852=0 - ( P MLR 4,A13 FROM FM:BUF TO WORK AREA - P MS 4,VTC:EL,A9
0x415820…4159b4 (3, 632) Opaque[0x194]
0x4159b4…415b48 # DirEnt {nam=»DVG301«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e40, f03=0x0000}
0x4159b4…415b48 IdxSect {
0x4159b4…415b48 f00 = 0x00f2 // 0x4159b4 @0x0
0x4159b4…415b48 f01 = 0x0002 // 0x4159b6 @0x2
0x4159b4…415b48 gno = [ // 0x4159b8 @0x4
0x4159b4…415b48 [0x00]: C0x00f2.0x0.0
0x4159b4…415b48 ]
0x4159b4…415b48 }
0x415b48…415cdc Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT DVG301 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR HP75 (COPY80) B P* p P ENTRY DVG301 TABLE ENTRY z P* P* * P EXTRN GPAD04 POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVG301 EQU *
0x415cdc…415e70 Dummy {f00=0x00f2, f01=0x018e, f02=»DER z * P DATA GPAD04 POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS : $ P DATA 0 WAIT/ACTIVATE INDICATOR Z P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB ADDRESS P XIF
0x415e70…416004 Dummy {f00=0x00f2, f01=0x0190, f02=» P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 P DATA 0 SAVE AREA FOR A8 < * P DATA /0003 CHANNEL PARAMETER TWO (2) $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD
0x416004…416198 Dummy {f00=0x00f2, f01=0x404c, f02=» x P XIF PDWTEND EQU * P* ( P* 2 P END <@ HA FOR A8 < * P DATA /0003 CHANNEL PARAMETER TWO (2) $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /8000 DEVICE STATUS " P DATA 0 HEAD
0x416198…41632c Dummy {f00=0x00f2, f01=0x2008, f02=» ESS-BLOCK ~ P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 6 P DATA 0 TERMINAL QUEUE ^ P DATA 0 OUTPUT QUEUE LINK | P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT
0x41632c…4164c0 Dummy {f00=0x00f2, f01=0x2008, f02=» A TPAD POINTER TO ADDRESS BLOCK P DATA 0 TTAB-ADDRESS 0 $ P DATA 0 WAIT/ACTIVATE INDICATOR L P DATA 0 TERMINAL QUEUE t P DATA 0 OUTPUT QUEUE LINK , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK P DATA 0
0x4164c0…416654 (3, 633) Opaque[0x194]
0x416654…4167e8 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x23a8, f03=0x0000}
0x416654…4167e8 IdxSect {
0x416654…4167e8 f00 = 0x011d // 0x416654 @0x0
0x416654…4167e8 f01 = 0x0004 // 0x416656 @0x2
0x416654…4167e8 gno = [ // 0x416658 @0x4
0x416654…4167e8 [0x00]: C0x011d.0x1.0
0x416654…4167e8 [0x01]: C0x012e.0x1.0
0x416654…4167e8 ]
0x416654…4167e8 }
0x4167e8…41697c Dummy {f00=0x011d, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 11.0 81-01-26 870105041100 P : P* B " P* KEYBOARD DEVICE WORK TABLE L P* r P ENTRY DVKB02 TABLE ENTRY | P EXTRN CTAB03 P EXTRN DVDY02 P EXTRN KBAD4 PMMUPAG EQU 1 P* P* P*
0x41697c…416b10 Dummy {f00=0x011d, f01=0x0190, f02=»S ~ P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD4 POINTER TO ADDRESS BLOCK , P DATA 'KB' TTAB ADDRESS X " P DATA 0 WAIT/ACTIVE INDICATOR x P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB
0x416b10…416ca4 Dummy {f00=0x011d, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT STACK P DATA 0 SAVE AREA FOR A7 6 P DATA 0 SAVE AREA FOR A8 V $ P DATA /0001 CHANNEL PARAMETER-2 v " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /1000 DEVICE STATUS
0x416ca4…416e38 Dummy {f00=0x011d, f01=0x0190, f02=»CONVERSION POINTERS p P DATA 0 TIMER . P DATA DWTSQ+DVKB02 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB02 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB02 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB E
0x416e38…416fcc Dummy {f00=0x011d, f01=0x4038, f02=» P XIF PDWTEND EQU * P END (@ 4DWTSQ+DVKB02 POINTER TO FIRST PLACE 2 , P DATA DWTSQ+DVKB02 POINTER TO LAST PLACE d PDWTSQ EQU *-DVKB02 P DATA 0,0,0,0,0,0,0,0 P DATA 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB E
0x416fcc…417160 Dummy {f00=0x011d, f01=0x2008, f02=» TRIPLE ZERO " DATA 0 POINTER TO FIRST PLACE " DATA 0 POINTER TO LAST PLACE B DWTSQ/EQU/*-DVTKB h RES 0 IFT MMUPAG=1 DATA 0 DATA 0 XIF DWTEND EQU * END @ PRESENT CONVERSI
0x417160…4172f4 (3, 634) Dummy {f00=0x012e, f01=0x0190, f02=» a FMINIT 0 FM:BUFW D > A X SCTFWT p SCTNOF FDBMEC SCTFWL , ( H @ @ @ , ( R P % %
0x4172f4…417488 Dummy {f00=0x012e, f01=0x0190, f02=»VLTAB NVLENDW NVLBITN , ( ' _B ,P 2 SDMINI b HALTN t " CH@ A > FMTASK ECBCW1 TTB:SAR , ( B @ C A | A z
0x417488…41761c Dummy {f00=0x012e, f01=0x018e, f02=» DFTAB DFTABE , ( ) (P P $ &P & DWTNVL V , ( E 0 0 Y ( 5 h FM:INEA x , ( @A c z @ 4' T z W A ~ FM:RQEA OPENY , (
0x41761c…4177b0 Dummy {f00=0x012e, f01=0x0190, f02=» , ( W W @ A z X OPEXT 4 , ( & A t @ | T P F , ( ! V V " LP V :F V V v GETBLK , ( A P *W V ($ A t X , ( _ Y Y " V V X
0x4177b0…417944 Dummy {f00=0x012e, f01=0x0190, f02=» X x J @" P x , ( Y 9 @ J ! T " Y & X , ( 'W T X V A z @P H , ( P W J : J < W P X x DLCLO1 T , ( = "? J ># K >:hQ 9 X FREBLK DLCLO2
0x417944…417ad8 Dummy {f00=0x012e, f01=0x0190, f02=» & 0 V , ( K : + K V V % V & A X $ , ( P K @ X 9AV K 9 !? K > T , ( F & G , ( N 9 ! ^ R N , ( 9 ! P N & N T
0x417ad8…417c6c Dummy {f00=0x012e, f01=0x0190, f02=» u @ 2 , 4(@ A z & TIOMXI , ECBCW2I > ECBRL P , ( "H 6(@ F F 8 : C ` ECBFC ECBEL , ( V C < C : T B > , ( P <a "9 :a :A9 # P V
0x417c6c…417e00 Dummy {f00=0x012e, f01=0x0190, f02=» C 8 ( B z FNDNAM $ FNDDWDI , , ( D 0 A z : @(@ X ! > DWTVOL n , ( 3 T ( _ ^ B : RDVTO2 d , ( Q 4(@T X " # X T V FNDVTC` ~ , (
0x417e00…417f94 (3, 635) Opaque[0x194]
0x417f94…418128 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25d0, f03=0x0000}
0x417f94…418128 IdxSect {
0x417f94…418128 f00 = 0x012e // 0x417f94 @0x0
0x417f94…418128 f01 = 0x0002 // 0x417f96 @0x2
0x417f94…418128 gno = [ // 0x417f98 @0x4
0x417f94…418128 [0x00]: C0x012e.0x2.0
0x417f94…418128 ]
0x417f94…418128 }
0x418128…4182bc Dummy {f00=0x012e, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 11.0 81-01-26 870105041100 P : P* B . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR L P* ~ P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P* ( P EXTRN DIAD POINTER TO ADDRESS-BLOCK PMMUPAG EQU 1
0x4182bc…418450 Dummy {f00=0x012e, f01=0x0190, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVDI02 ORDER ( P DATA DIAD POINTER TO ADDRESS-BLOCK B P DATA 'DI' TTAB ADDRESS n P DATA 0 WAIT ACTIVATE P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS
0x418450…4185e4 Dummy {f00=0x012e, f01=0x018e, f02=» P DATA 0 SAVE AREA A5 =1 P RES 4 DWT STACK $ P DATA 0 SAVE AREA A7 =1 < P DATA 0 SAVE AREA A8 $ P DATA /0001 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x4185e4…418778 Dummy {f00=0x012e, f01=0x4082, f02=» x P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 P XIF > PDWTEND EQU * J P* ^ P* h P END r@ ~1 CHANNEL PARAMETER -2 x " P DATA 0 LINE DRIVER DEPENDENT " P DATA 0 LINE DRIVER DEPENDENT P DATA /8000 DEVICE STATUS
0x418778…41890c Dummy {f00=0x012e, f01=0x2008, f02=» A DIAD POINTER TO ADDRESS-BLOCK 4 P DATA 0,0 TERM.NUMBER AND PROGRAM START ADDRESS 0 $ P DATA 0 ECB QUEUE ANCHOR ADDRESS h P DATA 0 OUTPUT QUEUE P DATA /2010 P DATA /3F4F,/5F6F P* P* P END @ BLE ENTRY
0x41890c…418aa0 Dummy {f00=0x012e, f01=0x018e, f02=» CONTROL BLOCK GENERATED d z * P LD A12,SCTSFA GET START OF FREE AREA e P LDR A10,A12 SAVE e N 6 P ADKL A12,ACBLEN RESERVE FOR SEGMENT CONTROL BLOCK e h , P ST A12,SCTSFA UPDATE START OF FREE AREA e D PBMSG25 ST A10,TTB:AP,A12 STORE ADDRESS TO SEGMENT CONT
0x418aa0…418c34 (3, 636) Opaque[0x194]
0x418c34…418dc8 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25f8, f03=0x0000}
0x418c34…418dc8 IdxSect {
0x418c34…418dc8 f00 = 0x012f // 0x418c34 @0x0
0x418c34…418dc8 f01 = 0x0002 // 0x418c36 @0x2
0x418c34…418dc8 gno = [ // 0x418c38 @0x4
0x418c34…418dc8 [0x00]: C0x012f.0x3.0
0x418c34…418dc8 ]
0x418c34…418dc8 }
0x418dc8…418f5c Dummy {f00=0x012f, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 11.0 81-01-26 870105041100 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x418f5c…4190f0 Dummy {f00=0x012f, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECB MMU ECB
0x4190f0…419284 Dummy {f00=0x012f, f01=0x0190, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 SAVE AREA FOR A7 . P DATA 0 SAVE AREA FOR A8 N $ P DATA /0003 CHANNEL PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /2000 DEVICE STATUS P
0x419284…419418 Dummy {f00=0x012f, f01=0x4082, f02=» IN BLOCK ~ P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0 ( P XIF H PDWTEND EQU * T P* h P END r@ ~PARAMETER 2 n $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /2000 DEVICE STATUS P
0x419418…4195ac Dummy {f00=0x012f, 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
0x4195ac…419740 Dummy {f00=0x012f, f01=0x0190, f02=» * B P* ENTRY: * < B P* * B P* EXIT: A1 - POINTER TO FIRST MONITOR SEGMENT TASK *
0x419740…4198d4 (3, 637) Opaque[0x194]
0x4198d4…419a68 # DirEnt {nam=»DVT102«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2618, f03=0x0000}
0x4198d4…419a68 IdxSect {
0x4198d4…419a68 f00 = 0x0130 // 0x4198d4 @0x0
0x4198d4…419a68 f01 = 0x0002 // 0x4198d6 @0x2
0x4198d4…419a68 gno = [ // 0x4198d8 @0x4
0x4198d4…419a68 [0x00]: C0x0130.0x3.0
0x4198d4…419a68 ]
0x4198d4…419a68 }
0x419a68…419bfc Dummy {f00=0x0130, f01=0x0190, f02=» 2 P IDENT DVT102 REL 11.0 81-01-26 870105041100 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVT102 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x419bfc…419d90 Dummy {f00=0x0130, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVT102 ORDER ( P DATA TPAD3 POINTER TO ADDRESS BLOCK B P DATA 'TP' TTAB-ADDRESS n $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT MMUPAG=1 & P DATA 0 SAVE AREA USER ECB ADD
0x419d90…419f24 Dummy {f00=0x0130, f01=0x0190, f02=» f P DATA 0,0,0,0 STACK P DATA 0 SAVE AREA A7 $ P DATA 0 SAVE AREA A8 @ $ P DATA /0002 CHANNEL PARAMETER 2 $ P DATA 0 LINE DRIVER DEPENDENT 1 $ P DATA 0 LINE DRIVER DEPENDENT 2 P DATA /0000 DEVICE STATUS P DATA 0 PRINTER PA
0x419f24…41a0b8 Dummy {f00=0x0130, f01=0x40d2, f02=»D, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,0 DOCUMENT PARAMETERS P IFT MMUPAG=1 J PDEVECB EQU * ` P DATA 0,0,0,0,0,0 t P XIF PDWTEND EQU * P* P* P END @ P DATA /0000 DEVICE STATUS P DATA 0 PRINTER PA
0x41a0b8…41a24c Dummy {f00=0x0130, 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
0x41a24c…41a3e0 Dummy {f00=0x0130, f01=0x0190, f02=»GETNUM NUMBER OF UWB RECORDS P LDR A1,A5 SAVE $ $ P RF(Z) SWBERR ILLEGAL NUMBER!!! < ( P ADKL A11,UDBFST-1 FIRST UWB RECORD d ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD $ P SUK A1,1 DECR. NUMBER OF TYPES P RB(P) BSWT30 MOORE LEFT , P LCR
0x41a3e0…41a574 (3, 638) Opaque[0x194]
0x41a574…41a708 # DirEnt {nam=»MONGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x15e8, f03=0x0000}
0x41a574…41a708 IdxSect {
0x41a574…41a708 f00 = 0x00af // 0x41a574 @0x0
0x41a574…41a708 f01 = 0x0020 // 0x41a576 @0x2
0x41a574…41a708 gno = [ // 0x41a578 @0x4
0x41a574…41a708 [0x00]: C0x00af.0x1.0
0x41a574…41a708 [0x01]: C0x00af.0x2.0
0x41a574…41a708 [0x02]: C0x00af.0x3.0
0x41a574…41a708 [0x03]: C0x00b0.0x0.0
0x41a574…41a708 [0x04]: C0x00b0.0x1.0
0x41a574…41a708 [0x05]: C0x00b0.0x2.0
0x41a574…41a708 [0x06]: C0x00b0.0x3.0
0x41a574…41a708 [0x07]: C0x00b1.0x0.0
0x41a574…41a708 [0x08]: C0x00b1.0x1.0
0x41a574…41a708 [0x09]: C0x00b1.0x2.0
0x41a574…41a708 [0x0a]: C0x00b1.0x3.0
0x41a574…41a708 [0x0b]: C0x00b2.0x0.0
0x41a574…41a708 [0x0c]: C0x00b2.0x1.0
0x41a574…41a708 [0x0d]: C0x00b2.0x2.0
0x41a574…41a708 [0x0e]: C0x00b2.0x3.0
0x41a574…41a708 [0x0f]: C0x00b3.0x0.0
0x41a574…41a708 ]
0x41a574…41a708 }
0x41a708…41a89c Dummy {f00=0x00af, f01=0x0190, f02=» } 8 d 8 d @ ~
0x41a89c…41aa30 Dummy {f00=0x00af, f01=0x0190, f02=» _ A " 2B _ @2B > > U # T @$ H ( ( P c P WF + T P ,$^T A2B z V ( U P
0x41aa30…41abc4 Dummy {f00=0x00af, f01=0x0190, f02=» A b A2B_` A A Q > ? A @ A Q _ A < Q P Q R Y _ A ) $ ( P P JW P ) % X % A _` & P Y _l Z _r 8 2L Q Z P 0 9 _ z _, ? _ P H H
0x41abc4…41ad58 Dummy {f00=0x00af, f01=0x0190, f02=» U > > 4 T - 1_( U T P 0 U _h ? @1 T 0 A1 1 Q Q > > 0 @1 1 A1 P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @1 V ?
0x41ad58…41aeec Dummy {f00=0x00af, f01=0x0190, f02=» > $ ( , 0 4 8 < #M 1
0x41aeec…41b080 Dummy {f00=0x00af, f01=0x0190, f02=» #L 1 $V +j 2H A N( @1 1 X H A1 ( 1 ) H P 1 E I z T M T M T M +~ U (@ H @ D &! <a >a 8 C L C ;B T
0x41b080…41b214 (3, 639) Dummy {f00=0x00af, f01=0x0190, f02=» _8 F # C C S p : C C _ z R 3 J B B A ? W . U L p v # P P P v T U W` U PV X TJ+ Y 4 U $P(> R$> Y X '@T X ' T P 4
0x41b214…41b3a8 Dummy {f00=0x00af, f01=0x0190, f02=» 4X. U U T ~ T U L 2j ;h # <c$ Xb B ^h Xn B ]v "X " X #` @P"Q X # Y /W VW Y 4 X D Xn " 4 U 5 ? "P X # X l > P P * W Y 4 W 4 l 2j X " T V 4~ 8% =A T 0
0x41b3a8…41b53c Dummy {f00=0x00af, f01=0x0190, f02=» > > P X P P _ ] W Q Y _4 X Y $ f D P XP Y E Y Y _ @ . T (@ > P .X U 4X 5 l_& ? @ l T n A l % > > l
0x41b53c…41b6d0 Dummy {f00=0x00af, f01=0x0190, f02=» x B U P R U 2b ! ! &W ! B Q ! h B Z
0x41b6d0…41b864 Dummy {f00=0x00af, f01=0x0190, f02=» (P Y ) _ ^ _ ! & P: B L # +P Y , ! 2 U _ X T _ W ! 2 Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! 2 Y h Y _p ? X R X X ' " $ P ! & X
0x41b864…41b9f8 Dummy {f00=0x00af, f01=0x0190, f02=»B W B W B @ T 8 T Y Y Y Y 2j Y . ! , X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 _
0x41b9f8…41bb8c Dummy {f00=0x00af, f01=0x0190, f02=»
0x41bb8c…41bd20 Dummy {f00=0x00af, f01=0x0190, f02=» "9 ! :a ! 1 T8 C Y Y F ! T X $ Y 1@ Y F P P P P P 2b p B ! T ~ " T Y H 9 ! x I R ! x ! 9EV8 ! x H R y ! h+ X H ~ ! ! T ! x I R > B ! 9FR P B X #
0x41bd20…41beb4 (3, 640) Dummy {f00=0x00af, f01=0x0190, f02=» ! N ! N _ P Q R" ! N W ! N ! N @W ! N ! N X ' T: X rP Q C X t 8 9 ! N@ 9 C B C p ! J Y t ! N Y X ' * C X t ! J ! N _B 8;e t <BV T ! 9FR< ! x I RWr ! x H RT RdW I R ! x ! 9 R ! 9
0x41beb4…41c048 Dummy {f00=0x00af, f01=0x0190, f02=»P Y " Z ! x H R @ X $ P t R::AR~ P Y H ! t $ <A" :E ! , ! x H R A Y H ! jWz ! x H R X P _ X X H I ^ W :A H I Y Y Y H ! j ! W2 ! WF t R Y H ! t 9A ! 9D ! W Y H ! 9 t " :A C :a X ! U 4 ! x !
0x41c048…41c1dc Dummy {f00=0x00af, f01=0x0190, f02=» Y " ! Z 4 X ;F 8 X P^ ! x ! ` ! ! ! P Y " p X HT$ X P _ X X L ^ W :A H W @ ! x H RP _H X HT ! 4 ~ X :A _ X X p W ~ X 9A _ X X x ^ 4 B 9 P 9 4 8 H R" P # ;B 4 X " 4 Y 8
0x41c1dc…41c370 Dummy {f00=0x00af, f01=0x0190, f02=»+ W( W$ W X HT X :AW ~9 q r Y @ T 2. Q J R Y Y 2j ? & p Y Y F @ T Y ! ! Tn Y ! ! T` Y ! ! P Y 10 Y ! ! P Y 10 Y Y F P X $ Y '? ! C @ $P$_ $ 0P -_ * _ & A $
0x41c370…41c504 Dummy {f00=0x00af, f01=0x0190, f02=» C X "P ) 2j ! ! T 9 ! x I R Y H ! ! ! Tr ~ X FP 1 @ TOT2 @ 1T( @ 2. # " Q ^ P R P Q V X X X Y ! W 4 z C C C C
0x41c504…41c698 Dummy {f00=0x00af, f01=0x0190, f02=» 1 T $ I ^ 10 $ B T TO A | SS A ~W ! 1 A ^ 1 $ ! ` X Y $ 9 X L Y ! L X X| R 2b 2f 1 B X V Y$; Z( Y. B < Z8:A ZB ^H YH Y Y Z B Y V ""0 Y ` V Y ^ Y X Y
0x41c698…41c82c Dummy {f00=0x00af, f01=0x0190, f02=» dx ^ Y b ! P @ 9W2 ! X hP Y b ! X hP X X _ X dp ^ & P6 P ! # T X Y N ` " ! _ # 4 ! # & X Y N_0 W Y T Y P Y R Y H @ TFB SFW@ Y Z 8! T0 X ^ Y Z X X C X U X V Y VR V Y ` 8 )
0x41c82c…41c9c0 Dummy {f00=0x00af, f01=0x0190, f02=» ! 9 ! X ^< Y Y F Y X N P Y : ! L ! X # P Y N:A , Y b Y J X $ Y C '? @ X " Y _ A ? # (@ X P X R K P0 @ T X TT $C Y B 2jK & % Y B K X H :AZp X JP Y J ! P + 7P, $
0x41c9c0…41cb54 (3, 641) Dummy {f00=0x00b0, f01=0x0190, f02=» A ;D A 4
0x41cb54…41cce8 Dummy {f00=0x00b0, f01=0x0190, f02=»
0x41cce8…41ce7c Dummy {f00=0x00b0, f01=0x0190, f02=» $^
0x41ce7c…41d010 Dummy {f00=0x00b0, f01=0x0190, f02=» ( H $ 0 ) $P" $ ) U @ T C @$ W % 0P P > ? $ P q 0 ) >_ Tv C T V Y W^ X PZ B RTP" A%p @% A% * $ WJ @W, T( P$ X T X P % 4 Y C C 8W
0x41d010…41d1a4 Dummy {f00=0x00b0, f01=0x0190, f02=» R T& X 0P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W Y P R R P T 'x ' P (@ $l(@ " 2 @ _ > X $? P'0$ > >
0x41d1a4…41d338 Dummy {f00=0x00b0, f01=0x0190, f02=»8D D ! 9b8d9D # C > B R Q~ ' P0 B P* 0$ T # R QL ( > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X 0 ) 2f X D C > X H UJ H B P PL $ # Q >
0x41d338…41d4cc Dummy {f00=0x00b0, f01=0x0190, f02=» (@ ( ^ > > ? _ X T (@ X L U L Q4 M ( ) X L P ( L ) 1_f _& ?(@ X P 0P X T % 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P ' P (@
0x41d4cc…41d660 Dummy {f00=0x00b0, f01=0x0190, f02=» * * * _ 2 ? ^ 4 _ @ 1 A _ P 9 > > T P ,$ T T _ T R L U d9C T M D _ Wb M $R M A2B 2j _ D $P D % 1 I D " T X X - U _
0x41d660…41d7f4 (3, 642) Dummy {f00=0x00b0, f01=0x0190, f02=» 1 $ ( , 0 4 8 < #E 1 $ ( ,
0x41d7f4…41d988 Dummy {f00=0x00b0, f01=0x0190, f02=» $ ( , 0 4 8 < #G 1 . .L .
0x41d988…41db1c Dummy {f00=0x00b0, f01=0x0190, f02=» @2B A2B _ # T( @ , @ ;a /T U U 2j _ _X D ( U ( Q W T ` U @ M @ W : P A/ #M A/ W P A/ #M A/ (@ A/ / ] ] ] ( : R , R .D >
0x41db1c…41dcb0 Dummy {f00=0x00b0, f01=0x0190, f02=»; U <a:a9 V @ Y U S : 6 V UzS Y : _ 0f 6 V N _& U [$ N ' U 7 W Y, : " r F[2g~g~ 6 :V; @ F Hv 1l % Y W B T~ 1l C X _ H X H p ^ > X ( $ ^
0x41dcb0…41de44 Dummy {f00=0x00b0, f01=0x0190, f02=» &Z.?AZ2 @2> Q & X " $XJ ( I T E _ (X _ X $ _tZ z > > @2B A2B W RW ) ^ ! Z2 2@ (X: @2BP T M ]J , ) L P $R _, A2B P* P Y U ( ) 5 & > > [ [ 2B Z PJ D 0P P - I 1 P
0x41de44…41dfd8 Dummy {f00=0x00b0, f01=0x0190, f02=»Pb 2 <UR "R4 PB X R< X T6 X T0. T G Y6 G _f P ,P - _ X ! B 6 * X ! 6 6 4 W 4 X Pf X 0 Y " " X L X WF B U B (" W C (@ > Y >
0x41dfd8…41e16c Dummy {f00=0x00b0, f01=0x0190, f02=» T 2f 2j(@ B B " #MP" 6 PH B #MP* 6 P6 6 W( B #MP 6 P 6@W 5 W 5 U ; [ [ W Z Z : : U ? ? ? P& P& $ ) Ud P x TX $ ) WN X $ ) Y W< UN ? ? _ T P> P6
0x41e16c…41e300 Dummy {f00=0x00b0, f01=0x0190, f02=»P@ P6 ( $ ) ]^ P p r $ ($ ) _ (W X2 $ ]$ $ ) Y _ > 2 6 :(8 (@ U RR -P 4j X < X :P$ $$ !| P P V 9 X : % Y :(@ 8l p ) 9 _* B 8 B % X < $ 4 T %(@ 8 X :P 9
0x41e300…41e494 (3, 643) Dummy {f00=0x00b0, f01=0x0190, f02=» !| T W. !} X P P P P _ Y 4W Y 4 7> X 2 7> X 6P X 4 $P <c $P $ $ V !9 B 7>W( B P& $$ R % C 9 * !9 Wv ? X . T 9 P _W W 9 T "? 9 0 R Q > !9 B 7> W8 > ! B T ! Xd 9 9 9
0x41e494…41e628 Dummy {f00=0x00b0, f01=0x0190, f02=» P< T W Z %W, X /$ X : 9 ^ Y . $ ! P % " _L Y : 1 4r 9 " !4 4 B % > ^T > > >T ^ > P 9 !9 7> _ W 7> X < 9 X :P Y < 0 %_ % Y < (@ 8 X Y :_( 4` X ) < 4r X 0 P L X "
0x41e628…41e7bc Dummy {f00=0x00b0, f01=0x0190, f02=»W X V$ Y X 6P " y 8_B Y 8W y 8 4r 4> P <d R Q 1_ Y / !3 T W6 C _6 Y 0 Y 6W Y 0 Y 6 !3 Th X 0 Y / X .V. 0 X .$ ( P B V *@; V * ; V * Y . !3 T$ X .R $ T T P _N !3 T 4n9 R 9 4rW 9 _
0x41e7bc…41e950 Dummy {f00=0x00b0, f01=0x0190, f02=» U. !3 T< @ Y 4 X 4Y !3 T$ !3 T Y 4_6 ? Y 0 Y 4 >0 Y 4W, B P B H " +P< Y 1 T P" !3 T R X 2 Y 0U Y 0 _ Y 0 _* @& 4> = R _Q B X / X 0$ %T Y 3V B V _ X 0 X /! R* Y /; _U !?z
0x41e950…41eae4 Dummy {f00=0x00b0, f01=0x0190, f02=»_ B C 4> B U !?z B WJ ._| !3 TF < 4> 4>" $ P X 1 X / < !3 T @ < !3 TV !3 TN ? B C C X 0 C !3 T0 4n B Y 0 !>` < !3 T Y 3U X 3 !3 Tt :h Y 2U X 2 !3 T^ 4 B !?z >D V ? ) X 4PPWD
0x41eae4…41ec78 Dummy {f00=0x00b0, f01=0x0190, f02=» X 0 Y 3R Y, !3 T !3 T _P !3 T !3 T2 X /# Xh X 0 !>` !?z Y /_ Y 3R X 3 !3 T " !3 T !3 T 4 X ? 489 R 9 X ' P P +P 9 R 9 9 V 9 P C 4n " >D X 0 !>` X ' ; X /" Y 0 Y / > X / X 0" Y 3Q Y / > B B
0x41ec78…41ee0c Dummy {f00=0x00b0, f01=0x0190, f02=»@ E @ @ @ @ A Ab $C A BD C. 8Ex 7C~ $C 'D< D X " :F X . Y . X .! 9e D@ ( 4j P _ H C !E !E ! P !E !E C W X .# T !"P ! & W !@P 4n X .! TD B R B H " +P. P T !E !E !E " T Y 2
0x41ee0c…41efa0 Dummy {f00=0x00b0, f01=0x0190, f02=»_B !E !'P ! T " T X 2 Y 3W 4n 4j X 7$ B R B H " X 5 +P P T X 8 E Q Y 4 Y 6 P B !E !E 4> P: Z P$ T W R _R X$ /P C _0 W Y 4 !3 E _B !E !EP ! T*" T* x 8!x W X 6 X 4 Y 7 Y 5# C 4n
0x41efa0…41f134 (3, 644) Dummy {f00=0x00b0, f01=0x0190, f02=»Q8 hX X 7! P 0! P& Y 8 !E 0 !E !E ! 4n 4j X 0 4r B V " Y 0 # T # # P Y 2 # T # # P Y 4 Y 1 !E X 0 !E X 1 !E !E ! 4n B <C Q B !E4 Q Qhb !E4:K Qhb !EB Q !EB P !EB R !EB P PQ !E4
0x41f134…41f2c8 Dummy {f00=0x00b0, f01=0x0190, f02=»EB P" (Q !EBW Qhb Qhb 4n 4j , !Ej" 4 , !Ej" R _ , !Ej" Qhb 4" 0Z@ YD 9 4 !E !E ! T Y 6 Y 4 4n !3 TH !3 T@ W4 !3 T4 !3 T. !3 P -P ! X Y . 4" U !3 T 4 4n X T Y Y " X 8T hb Y 8
0x41f2c8…41f45c Dummy {f00=0x00b0, f01=0x0190, f02=»4n F G H !3 T Y 0 P R P Q R. Q !3 4j B V _ B H " 0T Y 0W 4> U Q4 T Y 2 Y 0 X 0Q !3 T Y 0 !3 T !3 T _@ R _Q Y 0_ /T _ V Q Q P P C _r 4> 4>" $ P X 0 ] !3 Tp Y _ R !3
0x41f45c…41f5f0 Dummy {f00=0x00b0, f01=0x0190, f02=»_ 4` Y 4_ P 4` Y 4 _, [000b [00w [00v c [5n [0;0x [000` [0g H [00d [00{ [20h [20l [4m [0m H Ln $' X " Y . $P X /# P N4 X ." X /# Y / P Y MH~P ^ 4j LH H H J KBJ J !L Ln !M 4n B
0x41f5f0…41f784 Dummy {f00=0x00b0, f01=0x0190, f02=»T4 !3 T, Y LW !3 T +T _L X LT _ T !3 T !3 T 4> Q X .$ P !3 T Y . !3 T !L W VH P T HfW T Hl !Nr _f j 4>]@ KP TV !3 Tb !3 TZ_ ~U PD #R8 ]U W2 X .$ P4 Y . W X .$ T Y . !3 T W C _ .
0x41f784…41f918 Dummy {f00=0x00b0, f01=0x0190, f02=» _ N4 !L Ln !M 4n PN Y 4_6 Q",0 Y N_D PN Y 6_P Q ,0 Y O_R 4j B " P J P 4j !3 M B 9d! P Y DN Y R HT R !M 9h! P& T h Y U HZW R l Y U H` T !M 9l! P T 1hW T 2h Y V HZW T 1lW 2l
0x41f918…41faac Dummy {f00=0x00b0, f01=0x0190, f02=»M !3 M H Y " X JPL Y J !M Y 2 Y 4 0 !M Y 6 < !M Y 8 ,0 Y P Y N ,0 Y Q Y O !L N4 Y : Y . X H 4n Y ? !3 T H. ," :HR :h !3 T _ !3 T 0 * M N !3 " ! PL T" ! ;T Y X T2 !3 " ! ^0 N 0 :
0x41faac…41fc40 Dummy {f00=0x00b0, f01=0x0190, f02=» Y . 4 Y 0W ! Ln 4n Y B Y @ X @ ," :HR( 0 P :h !3 . Y @_ X B , !3 B Y B_ 4 !3 R H` !Nr H" 6 !M H 4 !M H4 N !M W !3 6 ," :HR :h !3 H _ 4 :h 0 :C ! 4151824253033353648505160667072010203040506070809101111131415
0x41fc40…41fdd4 (3, 645) Dummy {f00=0x00b1, f01=0x0190, f02=» T -_> - _H "Rf P^ X TX X PJ X RD< V X 0 X L T ) P* X P Y 9 C " 2f < ? < ? <(@ Pt $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h P P ?_" =
0x41fdd4…41ff68 Dummy {f00=0x00b1, f01=0x0190, f02=»Q T R T W Q T$ Y % 4 Z 2 Q P @ & . % B B T P, & T$ L L R Q U , , _| , B ;h S0 S0 Q R0 R, P X % % _6 _6 _ &
0x41ff68…4200fc Dummy {f00=0x00b1, f01=0x0190, f02=» TfTfTfTfTfTfTfTfT T T 2bT 2bT S T T T S T T T S TLT&TRS T S T S T S > > > ? ? ! ! !9!:!R! !2! " " @ R N U4R ;A 09kP U 2b U4R ;A N ^! P N L! DR X(W U4Z4 O N R . XH N TP
0x4200fc…420290 Dummy {f00=0x00b1, f01=0x0190, f02=» P 1 Y B d U 5 >T ( )! T Y W H hP H d H P B v 5 $ N M" N NW UR R N Q T P P UHW UHW B B B U W| . P Q W B B Q W C C O ZWn N TT C O "" /X . Q
0x420290…420424 Dummy {f00=0x00b1, f01=0x0190, f02=» _ :a *P ^ : Q : N ?j jP N ] N ] : : : : : . .! P V"(@ : : : ; Z $ )_ N `W ,P M L L O ]P W : N ] N ` 1 O `(@ : ` 0P< R Q
0x420424…4205b8 Dummy {f00=0x00b1, f01=0x0190, f02=» ] I N b ) O b(@ : [ N U SB P W N U0 N _ U S W O V O X P N P _ W O Z Z W` W W W W W W W ( N V C N X C N B P T I W B I 0 N # # N _=H C N V N X hl C C
0x4205b8…42074c Dummy {f00=0x00b1, f01=0x0190, f02=» U U 9 X| & ?! U P _: P _ W 4 4 , , , V , %Q R V _ W W W T W V WB TB O ZWD N ZZ N tV N P O ZW, N X N _ S W O V O X i _T P i : N f X Tl X P`
0x42074c…4208e0 Dummy {f00=0x00b1, f01=0x0190, f02=»PH N M Y R Y M Q Z$ L Z* R L L Uz M M _L(@ : [ N V N X U N _ U N U N P N Z ^ S W Z : N Z N P H G H H G : #A 1
0x4208e0…420a74 (3, 646) Dummy {f00=0x00b1, f01=0x0190, f02=» > A[2 @ @ 0 @ R.P % % @ I I I . I _B 2: ,P 2> A2> iJ >
0x420a74…420c08 Dummy {f00=0x00b1, f01=0x0190, f02=» (P, P& R7 R@P4 0 ` a8 0 Y ' 5 Z @ 4' T Z Wp AZ P Wb P` T _ a2 Y " & J @! P X P @Z T" @Z Y X !? ? ^H W W @ AZ _ X & aP AZ @Z ` T P ^ V V " LP
0x420c08…420d9c Dummy {f00=0x00b1, f01=0x0190, f02=» $T 1 %_$ Y (_ AZ @Z Z P <" _ X J @" P Y 9 @ J ! T " Y & X 'W ` T X V AZ @Pf PbW J : J < W P `p X "? J ># K >:hQ 9 X P (@ Y Y W ! Y R _ Z ` T K
0x420d9c…420f30 Dummy {f00=0x00b1, f01=0x0190, f02=» N 9 ! ^ R ` aV N ! P N & N T _ - F F Pp @Z G @Z 2H Q (@ AZ & ' (@ F F C V C C `pTB B P: <a "9 :a :A9 # P V ! T U V ! _P AZ _ W C ( B AZ
0x420f30…4210c4 Dummy {f00=0x00b1, f01=0x0190, f02=» @[b [: `jT [4 V )! T B * Y & : a2 B : & : Y : _ W $ - Y : f TZ ! P f T ^ b J G * G J G F aV ,P
0x4210c4…421258 Dummy {f00=0x00b1, f01=0x0190, f02=» @ ^ W: AZ AZ 8 X Q DZ # P EZ 8 " ez ^ F : AZ af X _ _ _ _ f t H Aad J X. G 8 " T _F:f HZ ` T ` G < V LXb ( aV "? G G G =f gZ c| ] @ad=f TZ Z AZ ? Aad
0x421258…4213ec Dummy {f00=0x00b1, f01=0x0190, f02=» W P F 6U 6 G R F 0ZP F T e$ g TN% T F f P F G W F * G [4 f T f W T[8 F U[8 f PX G < G F G AZ g& `j [4 V )$ P8 a8T V T F . G < * Y. G . F . F 2 J _f F LT J A J B G
0x4213ec…421580 Dummy {f00=0x00b1, f01=0x0190, f02=» . 2 F : ` T F W ( f dl AZ f P" g.T F : 2 F . ` G . P P AZ G F Z< : 7 W W W W ) V T V ( AZ V G f H g R% T[8 T[4 G 6 F T T[8 G W T[8 F T F T[4 G f f 0ZP g [4 f P F 0]
0x421580…421714 (3, 647) Dummy {f00=0x00b1, f01=0x0190, f02=» `pWN U[4 U[6 U[8 U[: : Q (@ < Mah ^ af ah G : G (W " T " F 4 `j : C `j [4 H G 4 H H . ._4 TZ " P & ` b ] _ g g g g g g g g g h h2hRg g g h h"hBhR 0123456789
0x421714…4218a8 Dummy {f00=0x00b1, f01=0x0190, f02=»VWXYZ{|}* D : ; @i< 0 P T" P P ?A Q P T P T Q W P T P T Q Q P Q P Ai> @i< Z @i> P % P % T W Q Q Q Q Ai< 1 :(@ : B 1 : @i< , L T M @i< (@ :i@ jJ @ A
0x4218a8…421a3c Dummy {f00=0x00b1, f01=0x0190, f02=» kT
0x421a3c…421bd0 Dummy {f00=0x00b1, f01=0x0190, f02=» l^
0x421bd0…421d64 Dummy {f00=0x00b1, f01=0x0190, f02=»
0x421d64…421ef8 Dummy {f00=0x00b1, f01=0x0190, f02=» Fn d
0x421ef8…42208c Dummy {f00=0x00b1, f01=0x0190, f02=» > N % R4 P 2=b Tox O N ZR N h Q d v r r N '? x oT w T q TD N # T<W6 P2 F N P U G N Z F N P ' T 5^W / r Q G G F F U q N $? "X0 V r N r# T i _ PF w s Z6 i N h
0x42208c…422220 Dummy {f00=0x00b1, f01=0x0190, f02=» P P N dT P P Wn Rb H jX N "? X P N " $ X d F v X P N / d Z X P X| XdW6 N '? TH L hP H d N Z H P v 5^ & s @W W N ]# U W N P N Z F N / + N rV O rW W T
0x422220…4223b4 (3, 648) Dummy {f00=0x00b1, f01=0x0190, f02=» U T V s N r$ T i N h ) (@( w N "? "T N " P P T Z6 h V %? Vl Y "T " V K K F K F K N K O O r pT N Z W P" N t O Z Y O MR Q` N NVZ X &W0 N Z N P E T
0x4223b4…422548 Dummy {f00=0x00b1, f01=0x0190, f02=» P W h N d_: r o v P Y X N "? u TN jX G N ZW X X W P N t O Z_ D X N Z N tT W r X X6 5^ ) ) ) N 5^ ) Y P N t 5^ N Z N
0x422548…4226dc Dummy {f00=0x00b1, f01=0x0190, f02=» X X 5 _ Y O MR Q N NU O M O N G Y i t s N Z N P $ G T D D F P . X Xp W X6 N t O Z_ D ' [ T G N Z N t N Z 5^ ) Y N Z N t O Z Y O Z Y N ZT4 Y U Pl V Tf P
0x4226dc…422870 Dummy {f00=0x00b1, f01=0x0190, f02=»u N '? T F F O MR Q N NU WV O r W R, P ' P8 Q ' T( P C P C W T i _b WBT B W O r W : Z P F F + : v P Y I1M1I2M2I3M3I4M4
0x422870…422a04 Dummy {f00=0x00b1, f01=0x0190, f02=» N ^" Ax R P hP L <a Qw _ Iw ^ N D u N / : x 5^ R % =N Ax R % PN N zP N T L zP R D Ax N % R H z: H Mx ( Mw _$ R % S S @ . T W.T 9a " E
0x422a04…422b98 Dummy {f00=0x00b1, f01=0x0190, f02=»Tf R > Pp J N TTT O LTN N ^ @x T. @x R O r { P.>DR >AR W W W W Vl I W G 0 > R ] >_ @x O r R O P R O @x O ^ R ; O M R < O N O V O X Vw O fP R D Vw O d R ;H O r N " YR8 XR@ O s W
0x422b98…422d2c Dummy {f00=0x00b1, f01=0x0190, f02=» R < U 9 :aP @nB Q TnBX TnDZ Z UnD ' ]w R < - R M C C V( DnHR" DnD EnD EnH DnB:A EnF N T O T ( O T B P$ N bP O b @mh 5 Amh(@ T zT B C _J z6 S < ?a w C i W$ zT
0x422d2c…422ec0 Dummy {f00=0x00b1, f01=0x0190, f02=» z. S @ S B : 5^Wj N ^" P S S @w S N r:n S 0 : J P U Q P J / U Ub . TF @w D !>P ?A w S x 5^ R w 5^_ ?a w Ax Ax yP w . Td R Tw
0x422ec0…423054 (3, 649) Dummy {f00=0x00b2, f01=0x0190, f02=» J X B U B Y X B J / r N rV W G N TT O i Vl I I I I I F RD P hP L f L M N Uw Uw <a Qw Qw <B w w _H Aw N r V r Fw " P N /X P . Q ?A w P
0x423054…4231e8 Dummy {f00=0x00b2, f01=0x0190, f02=»nB 5^W UnF ?B w S : w S < Fw ' P C i W$ N I A A A A A A | - M @ " A. < UU @>B @ A @ D E D E P _( W l V l W l V lP A A >b>J A
0x4231e8…42337c Dummy {f00=0x00b2, f01=0x0190, f02=» E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T A ASP F @ U A AS * P F * d;j Y P F P @ P - P _ :L E A W F D AST
0x42337c…423510 Dummy {f00=0x00b2, f01=0x0190, f02=» :L AST A A E E A A 8 P W 89B @ V W Zb A @ @ A A @ D AS @ @ @ A W l @ L @ P _ @ ! P0 4 9h !RRP @ @ @ A _H 4 S W
0x423510…4236a4 Dummy {f00=0x00b2, f01=0x0190, f02=»9b ) V l_ @ A @ A 0 A A E @ < V4 @ R, U 8 !RRT A " @ Pf A A @ > V T P T ;a=a?j V Y R W ?J E =A;A E :
0x4236a4…423838 Dummy {f00=0x00b2, f01=0x0190, f02=» b n n @ 00P& b $ _0 n @ 00P b _ 0 !TTX A P !CCT CC A _ 0 !;; : !AAP !DDT @ @ r A 0_ ; # @ @ @
0x423838…4239cc Dummy {f00=0x00b2, f01=0x0190, f02=»R 8 @ ! T @ A @ r @ @ I A p A r @ p A p @ P @ A @ r $ ) @ 0 !;;P P @ P@ _ P !;;T X$ A T : : 0 !TT : 0 !;; : :
0x4239cc…423b60 Dummy {f00=0x00b2, f01=0x0190, f02=» !ZZQ 0 !;;T : : " : & : * : 0 : 4 : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0 A I. : A A " Q :d @ # R$P R2W * A nW H A
0x423b60…423cf4 (3, 650) Dummy {f00=0x00b2, f01=0x0190, f02=» A A A A A " A & A A : 9e :e Q P 9e @ P A 9C) A I " @ ! P " :B A t q B J " T : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A
0x423cf4…423e88 Dummy {f00=0x00b2, f01=0x0190, f02=»! T W A T A j A A A F 0 A : n A P A d : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @ P A A P I Td W 9D @ @ r s @ A I T - A _ I N T( P W A T W A n @ V
0x423e88…42401c Dummy {f00=0x00b2, f01=0x0190, f02=» Y h C !CCTr B. B X B.9 H A _ !SSTF 0 U J X X A t A v X X S W A x A z A : V W, Q( T W& @ T R P @ T A F R U @ A p T :
0x42401c…4241b0 Dummy {f00=0x00b2, f01=0x0190, f02=» P T _* @ J @ | ` | P A : : T 0 !;;P 0 !;; : : - a | =! 0 - Y : 8 0 ! P p P Y :_0 L Q : P Y P Y A V : , %T 8
0x4241b0…424344 Dummy {f00=0x00b2, f01=0x0190, f02=» A 4 A WL , P@ , - 4 ] 4 nY 5 X * _6 : @ % @ @ R6 r . !TTP . Y !TTX _: : ` @ @ :a @ ~ @ A @ ~;a P4 A
0x424344…4244d8 Dummy {f00=0x00b2, f01=0x0190, f02=» V A ~ : P( T S S _* : $ A A A . A N =H N A @ T CRT N =H N A N =H N A , @ %!5!T W @ = V W = V > P0 " U
0x4244d8…42466c Dummy {f00=0x00b2, f01=0x0190, f02=» nV S ( @ S =J @ " S @ S A @ S T CRT @ S A A _ !TTT @ :P @ @ a : $ :T ` @ W H A h J AS BAT :a A K @ ;C ~W
0x42466c…424800 Dummy {f00=0x00b2, f01=0x0190, f02=» S _ S A @ 3 3 J S J Rh # 9h !RRP @ ! T W* J S W J U 3 S S S _p P " I _ @ P : $ A A H . A * > P
0x424800…424994 (3, 651) Dummy {f00=0x00b2, f01=0x0190, f02=» T + Y@ @ _f @ Y !TTX :Y % @ : A @ T @ A A $ H A . A > P~ A ( A @ @ < l F !AAT T B YP G 9h G G @ P A _l @ A
0x424994…424b28 Dummy {f00=0x00b2, f01=0x0190, f02=»_. N P, @ 4 U $ $ _. :Y $ !TTX @ @ @ ! P @ 8 8 8 3 nU . !TTT _ !CCP R :Y W . P0 A A l @ @ < @ _2 N
0x424b28…424cbc Dummy {f00=0x00b2, f01=0x0190, f02=» % P @ 4 4 4 _r : A @ F !SST WB !AAT W6 !VVT W* !PPT "W !LLT *W !RRP R A A A @ 0 PV @ P P _ P H (&? @ #? H & D # * H D > 8 @ D @
0x424cbc…424e50 Dummy {f00=0x00b2, f01=0x0190, f02=» D V ` T @ 1 Q a : @ % PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a : QP RJ D ( ?
0x424e50…424fe4 Dummy {f00=0x00b2, f01=0x0190, f02=» P A @ E3 A Q _8 A A A A @ @ P A @ E3 A Q _8 : N =H N : N =H N : &=H F : F =H F : ? ? , > > : P N =H N T . _ : @ ! P (W
0x424fe4…425178 Dummy {f00=0x00b2, f01=0x0190, f02=» * P@ J # P _ :d Y @ Z A T _4 @ 2T P _ / : .P W P A .X @ T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A J ]
0x425178…42530c Dummy {f00=0x00b2, f01=0x0190, f02=» : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @ A A r : @ A P b @ A @ @ : . ! T ! . : nR nY
0x42530c…4254a0 Dummy {f00=0x00b2, f01=0x0190, f02=» $ @ A 6 @ A 8 d H d H K 2 ;A @ R V nR - @ R - $ N !TTP N :H N TBT K W8 2 " T @ X 2 N =H N @ R ) !TTXX !CCT !UUT " @ R K (9A A R @
0x4254a0…425634 (3, 652) Dummy {f00=0x00b2, f01=0x0190, f02=» @ A > A ::b l / A R A D A F @ p A & A @ CR h @ D G " F * E H ~ K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k k :A
0x425634…4257c8 Dummy {f00=0x00b2, f01=0x0190, f02=» p A r b A CR hT @ 6 A @ 8 A 0 @ A < D J @ & >k l 8 A A 6 nQ R 8 nV ;k , @ 6T A , @ 8P( U U A , K l A A J @ &
0x4257c8…42595c Dummy {f00=0x00b2, f01=0x0190, f02=» G 2 ` ) - J ` 4 2 K ` ) G ` " A ( A N (P0 R P _ A N R X4 _ J j A X A N (Pn @ X A X % R , ~ 2 " E R A N R R P
0x42595c…425af0 Dummy {f00=0x00b2, f01=0x0190, f02=» B I ` A L (P H - V l I N " R ~ E R R T E D E @ < H ` H ` E | #_ A * @ & 9k l $ A A J ` ( ` A ( J $ K J J V V (P
0x425af0…425c84 Dummy {f00=0x00b2, f01=0x0190, f02=» $ N @ A $ | @ E " L M _V P* & &X ' $ @ < H T H J_4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A @ @ ,P J V @ 8 A @ 6 A A , K : @ "<B A T *P `
0x425c84…425e18 Dummy {f00=0x00b2, f01=0x0190, f02=» RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 _j @ 0 4 : A . R R P ^ A J _ @ . : " D PH A . @ .P. D X D P ~ H E _( 2 E _6 " D T E 2 E D E %
0x425e18…425fac Dummy {f00=0x00b2, f01=0x0190, f02=» : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D , H H $ M j - I Y0 : @ : R ^ 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" A H A B @ NP A J
0x425fac…426140 Dummy {f00=0x00b2, f01=0x0190, f02=» ` G ` : P ^ V : @ NP A J _$ 8 @ T @ J % @ H % : @ WN B W @ > " B ; Z [ : : [ [ :
0x426140…4262d4 (3, 653) Dummy {f00=0x00b3, f01=0x0190, f02=» @ ` p R0 A @ A n^B _F 9o @ ~ ~_X : @ J P L nV U L _ V L Z K A A :K A nQ R nV @ P @ ` :
0x4262d4…426468 Dummy {f00=0x00b3, f01=0x0190, f02=»V @ 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A .
0x426468…4265fc Dummy {f00=0x00b3, f01=0x0190, f02=» ZY QY : L ? ? R 0 R P P R _ 2D : V ) ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b V W U4 T 9BW P P( X V
0x4265fc…426790 Dummy {f00=0x00b3, f01=0x0190, f02=» 3 S S :b Y* AST" ? ? > | R T ] ] W 9l ] 9A ] 9k! ] Y P: P4 1 1 S @ P 3 _ 1 3 1 | Z A. @ @ W A b z
0x426790…426924 Dummy {f00=0x00b3, f01=0x0190, f02=» 1 n > H N T ! 1 . . & 8 & & & & # # # # @ 6 KB g~ F:VDI P
0x426924…426ab8 Dummy {f00=0x00b3, f01=0x0190, f02=»GP 3 BF P > @ 6 KB , g~
0x426ab8…426c4c Dummy {f00=0x00b3, f01=0x0190, f02=» B; Y b ( N@ TP
0x426c4c…426de0 Dummy {f00=0x00b3, f01=0x0190, f02=»GETSDC P ADKL A9,SDCFST-CDBNC P LDR A1,A1 , PDWTS50 EQU * > P RF(Z) DWTS90 R P ST A1,STKEND+NBRSDC SAVE h P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 8 P* GET CORRESPONDING SPECIAL DEVIC
0x426de0…427a80 (4, 0) DirGranule ((4, 0)) {
0x426de0…427a80 DirEnt {nam=»DEMO «, typ=» «, f00=0x0000, f01=0x0000, f02=0x1680, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2aa8, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b10, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2b48, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»CON11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»MONGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2c50, f03=0x0000}
0x426de0…427a80 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ca8, f03=0x0000}
0x426de0…427a80 }
0x427a80…427c14 (4, 1) Opaque[0x194]
0x427c14…427da8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x427c14…427da8 IdxSect {
0x427c14…427da8 f00 = 0x00b4 // 0x427c14 @0x0
0x427c14…427da8 f01 = 0x0074 // 0x427c16 @0x2
0x427c14…427da8 gno = [ // 0x427c18 @0x4
0x427c14…427da8 [0x00]: C0x00b4.0x1.0
0x427c14…427da8 [0x01]: C0x00b4.0x2.0
0x427c14…427da8 [0x02]: C0x00b4.0x3.0
0x427c14…427da8 [0x03]: C0x00b5.0x0.0
0x427c14…427da8 [0x04]: C0x00b5.0x1.0
0x427c14…427da8 [0x05]: C0x00b5.0x2.0
0x427c14…427da8 [0x06]: C0x00b5.0x3.0
0x427c14…427da8 [0x07]: C0x00b6.0x0.0
0x427c14…427da8 [0x08]: C0x00b6.0x1.0
0x427c14…427da8 [0x09]: C0x00b6.0x2.0
0x427c14…427da8 [0x0a]: C0x00b6.0x3.0
0x427c14…427da8 [0x0b]: C0x00b7.0x0.0
0x427c14…427da8 [0x0c]: C0x00b7.0x1.0
0x427c14…427da8 [0x0d]: C0x00e0.0x0.0
0x427c14…427da8 [0x0e]: C0x00e0.0x1.0
0x427c14…427da8 [0x0f]: C0x00e0.0x2.0
0x427c14…427da8 [0x10]: C0x00e0.0x3.0
0x427c14…427da8 [0x11]: C0x00e2.0x0.0
0x427c14…427da8 [0x12]: C0x00e2.0x1.0
0x427c14…427da8 [0x13]: C0x00e2.0x2.0
0x427c14…427da8 [0x14]: C0x00e2.0x3.0
0x427c14…427da8 [0x15]: C0x00e3.0x0.0
0x427c14…427da8 [0x16]: C0x00e3.0x1.0
0x427c14…427da8 [0x17]: C0x014c.0x2.0
0x427c14…427da8 [0x18]: C0x014c.0x3.0
0x427c14…427da8 [0x19]: C0x014d.0x0.0
0x427c14…427da8 [0x1a]: C0x014d.0x1.0
0x427c14…427da8 [0x1b]: C0x014d.0x2.0
0x427c14…427da8 [0x1c]: C0x014d.0x3.0
0x427c14…427da8 [0x1d]: C0x014e.0x0.0
0x427c14…427da8 [0x1e]: C0x014e.0x1.0
0x427c14…427da8 [0x1f]: C0x014e.0x2.0
0x427c14…427da8 [0x20]: C0x014e.0x3.0
0x427c14…427da8 [0x21]: C0x014f.0x0.0
0x427c14…427da8 [0x22]: C0x014f.0x1.0
0x427c14…427da8 [0x23]: C0x014f.0x2.0
0x427c14…427da8 [0x24]: C0x014f.0x3.0
0x427c14…427da8 [0x25]: C0x0150.0x0.0
0x427c14…427da8 [0x26]: C0x0150.0x1.0
0x427c14…427da8 [0x27]: C0x0150.0x2.0
0x427c14…427da8 [0x28]: C0x0150.0x3.0
0x427c14…427da8 [0x29]: C0x0151.0x0.0
0x427c14…427da8 [0x2a]: C0x0151.0x1.0
0x427c14…427da8 [0x2b]: C0x0151.0x2.0
0x427c14…427da8 [0x2c]: C0x0151.0x3.0
0x427c14…427da8 [0x2d]: C0x0152.0x0.0
0x427c14…427da8 [0x2e]: C0x0152.0x1.0
0x427c14…427da8 [0x2f]: C0x0152.0x2.0
0x427c14…427da8 [0x30]: C0x0152.0x3.0
0x427c14…427da8 [0x31]: C0x0153.0x0.0
0x427c14…427da8 [0x32]: C0x0153.0x1.0
0x427c14…427da8 [0x33]: C0x0153.0x2.0
0x427c14…427da8 [0x34]: C0x0153.0x3.0
0x427c14…427da8 [0x35]: C0x0154.0x0.0
0x427c14…427da8 [0x36]: C0x0154.0x1.0
0x427c14…427da8 [0x37]: C0x0154.0x2.0
0x427c14…427da8 [0x38]: C0x0154.0x3.0
0x427c14…427da8 [0x39]: C0x0155.0x0.0
0x427c14…427da8 ]
0x427c14…427da8 }
0x427da8…427f3c Dummy {f00=0x00b4, f01=0x0190, f02=» : H IDENT AADEMO TRA 11.0 - - F1 O1111 MAIN MODULE AAMAIN B $$$TRAD T AAMAIN f > : BASPCTD BCSTTOA BESELF CGCSYSF QCGUWB QDFUWBO T:EDWR z T:EXIT XAKBIN ZGREA
0x427f3c…4280d0 Dummy {f00=0x00b4, f01=0x0190, f02=» - 40 = & J F " D 1X F RLI5 J1 W @2 R1X F RLW "L !"L9 A " A R 0 #)6L I5 H1 RW 6 A D0 F G L0 F R U0 F Z ^
0x4280d0…428264 Dummy {f00=0x00b4, f01=0x40ba, f02=» x & :2 ( $ 1 4 $ 2 F & *2 V ( f . ) ' @ R)6L RW "L?J1B R!"L _J R_N1X F0X r c @ L0 F R U0 F Z ^
0x428264…4283f8 Dummy {f00=0x00b4, f01=0x0190, f02=» F H IDENT BASPCT TRA 11.0 - - F1 O1111 TERMINAL SPECIFICATION BASPCT SPAP15 SPAP31 N $$$TRAS p $ BASPCT SPAP15S SPAP31 D @ CASTTSS CBSTTSA T:DISP T:ERASF TNDOPN XBFMT ZAOPNDC ZBCLSDO ZKOPNF ZLCLSF1
0x4283f8…42858c Dummy {f00=0x00b4, f01=0x0190, f02=» %0 *0 -0 , 00 > 3 P 8 ` = p J F " D H5% "L ML 7L 8L :L ;L RI2y RI2t 1% eLW2 7L ML!"L RI2u RI2X RI2 F0 H I U
0x42858c…428720 Dummy {f00=0x00b4, f01=0x0190, f02=» 0 J F " D @S 1% eL RLI2G Me 7e!7L 7L L 2 32 3 I58 RLI2% 6L);L A6)>L A9)? ` 0 % p 0 % 0 % D 0 D
0x428720…4288b4 (4, 2) Dummy {f00=0x00b4, f01=0x4150, f02=» 6LW 6L4 !eL !eL !eL !eL d 0 " 0 $ 4 F X 0 j | 0 @ < : !eL !eL L
0x4288b4…428a48 Dummy {f00=0x00b4, f01=0x0190, f02=» L H IDENT BCSTTO TRA 11.0 - - F1 O1111 START OPERATOR . * BCSTTO CCSTTT SPAP07 SPAP08 SPAP09 T $$$TRAS 8 4 BCSTTO CCSTTTS SPAP07A SPAP080 SPAP09 > : PAJRN T:DISPT T:GETT XAKBIN XBFMT XCLAMPA XEERR
0x428a48…428bdc Dummy {f00=0x00b4, f01=0x018e, f02=» ! % & & 6 ) H * X / j 3 z > ? E J F " D 1%!6L RI2 A` RL fL RL 1 I2kH4 R RL RLJ1 R R @4_)H5 RL C
0x428bdc…428d70 Dummy {f00=0x00b4, f01=0x0190, f02=» u * J F " D @W RLI2@ 6L L =e 2 R I2- L +L + l# RL ` `L l#` ` < 0 0 I 0 I
0x428d70…428f04 Dummy {f00=0x00b4, f01=0x0190, f02=» ! L ! L %7L 0X W ^ . @ R d 0 v 0 0 J F " D CLW CLW CL LW L4 I5 I1 (j W
0x428f04…429098 Dummy {f00=0x00b4, f01=0x4048, f02=» & " L RLI2 6L L4 e CL L4 2@ D @ R d 0 v 0 0 J F " D CLW CLW CL LW L4 I5 I1 (j W
0x429098…42922c Dummy {f00=0x00b4, f01=0x0190, f02=» > H IDENT BESELF TRA 11.0 - - F1 O1111 SELECT FUNCTION BESELF F $$$TRAS X BESELF j D @ CDCHKYS CEGACTA CFCHKH DAUCCYF DCVDU DDTP71C DELACTI DFOACT ~ @ < DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF D
0x42922c…4293c0 Dummy {f00=0x00b4, f01=0x018e, f02=» : 4 . > 2 P ` ) r - 1 4 6 5 ; ? J F " D R R@W@2@Q SL@R@S@T@
0x4293c0…429554 (4, 3) Dummy {f00=0x00b4, f01=0x018e, f02=» J F " D @ AL6A _3 SA_8AQ_<AR_@AS_DAT_HAU_Lb_ @L #@L AV RI2 RI2 ! R d v ( 0 8 0 0 & J F " D RL7!
0x429554…4296e8 Dummy {f00=0x00b4, f01=0x0190, f02=» " & $ 8 6371 H l | J F " D f!SL )RL RWZ)RL RWR!RL )RL RWF6R $(,0!_L RW0 RW, RW(
0x4296e8…42987c Dummy {f00=0x00b4, f01=0x40d8, f02=» , , - 00 40 0 = . B J F " D RW$ RW RW RW RW RW RW RW RW RW !RL RL!"L ) L IB HU 0X R A @?R4 A D @ 0 RW, RW(
0x42987c…429a10 Dummy {f00=0x00b4, f01=0x0190, f02=» < H IDENT CASTTS TRA 11.0 - - F1 O1111 SYSTEM START CASTTS CBSTTS SPAP32 D $$$TRAS f $ CASTTS CBSTTSS $ SPAP32 x @ < DAUCCYS DBUOPRA EHISYS FMOVE QIRDBS1 T:SETTE XBFMT XEERR 2 . ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRI
0x429a10…429ba4 Dummy {f00=0x00b4, f01=0x018e, f02=» !0 2 ( D & T ( $ &" FORMAT FILE VOLUME NAME ? DSC b & M & ( E & & SYSTEM LANGUAGE ?E & ! @
0x429ba4…429d38 Dummy {f00=0x00b4, f01=0x0190, f02=» &0 + 6 & 8 6 ? F J F " D "L L0R^F RLI2 0R^F RLI2 1%W "L4 L R I2`I R R I2T R V D L0 P0 R X0 ]
0x429d38…429ecc Dummy {f00=0x00b4, f01=0x0190, f02=» RLI20 R I2) L Z b Z 0X RI2 RI n 0 , > N ^ p 0 0 0 0 y 0 0
0x429ecc…42a060 Dummy {f00=0x00b4, f01=0x4098, f02=» 0 0 0 2 $ 6 H $ JL #JL KL%KL %KL L CL4 Z @ 0 0 0 0 y 0 0
0x42a060…42a1f4 (4, 4) Dummy {f00=0x00b5, f01=0x0190, f02=» L H IDENT CDCHKY TRA 11.0 - - F1 O1111 CHECK FUNCTIONKEY-COMBINATION CDCHKY T $$$TRAC f CDCHKY x XEERR 0 C 0 +0 60 J F
0x42a1f4…42a388 Dummy {f00=0x00b5, f01=0x418c, f02=» v0 0 J F " D @ IU IT HV ) R L IR W ) R L HR IUwITtHVq) R L IShW ) R L IT]W ) R 0 n 0 0 0 J F " D L HT IROIQLHVI) R L HT HQ=) R L HV4 DL) RDL IU(W*) RDL HU
0x42a388…42a51c Dummy {f00=0x00b5, f01=0x0190, f02=» : H IDENT CEGACT TRA 11.0 - - F1 O1111 GET ACCOUNT CEGACT B $$$TRAG T CEGACT f B > DKDSTMG PBBOOKA QENTRS QGATYPF SPAP10 SPAP11C XBFMT XEERR z XFERR1 XGBCR ZCRDD ZGREA
0x42a51c…42a6b0 Dummy {f00=0x00b5, f01=0x018e, f02=» = J F " D @B)RL IT IU ?RIU HT RLH2 ?RH6 G RI6 (A RL _ HQ ?R RLH2 ?RHB E j I0 | M0 Q0 U0 X Z b f
0x42a6b0…42a844 Dummy {f00=0x00b5, f01=0x0190, f02=» 0 L 0 L 0 L 0 0 L D 0 X 0 l J F " D I2 AB@U_S?R%aL %aL %aL %aL %aL %aL W )RL (a= AW?R a R W a
0x42a844…42a9d8 Dummy {f00=0x00b5, f01=0x0190, f02=» J F " D R I2 H _q a a Ra% L(H1 !RL!! L !RL !:L !:L I IR RW RI2 0 j | "0 & *0
0x42a9d8…42ab6c Dummy {f00=0x00b5, f01=0x0190, f02=» H K!RL !R T D L $ T0 4 X0 F a X e h j x t u ! z { 8 J F " D @L !RL W) J RJ( J !:
0x42ab6c…42ad00 Dummy {f00=0x00b5, f01=0x410c, f02=» " 4 D " V f v J E " C RL W1 RL W+ RL W% RL W RL W RL W H6 HT G G ?R RL I2 R?R4 R @
0x42ad00…42ae94 (4, 5) Dummy {f00=0x00b5, f01=0x0190, f02=» H H IDENT CFCHKH TRA 11.0 - - F1 O1111 CHECK AVAILABLE HARDWARE CFCHKH P $$$TRAC b CFCHKH t XEERR 6371 6344 6346 0 3 0 3
0x42ae94…42b028 Dummy {f00=0x00b5, f01=0x0190, f02=»L !_L !_L !_L W !:L ):L W %7L~)RL %7Lv)RL !8LnHU W ):LeHT !;L^ F0 F J X Q0 j U | Y ]0 a0 k r v }
0x42b028…42b1bc Dummy {f00=0x00b5, f01=0x409c, f02=» 2 ! B . * ( RL !SL IV I5 H1 W RL W RL W RL 4 T @ ]0 a0 k r v }
0x42b1bc…42b350 Dummy {f00=0x00b5, f01=0x0190, f02=» < H IDENT CGCSYS TRA 11.0 - - F1 O1111 CLOSE SYSTEM CGCSYS D $$$TRAC V CGCSYS h @ < MASKR PAJRN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA | > : XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG
0x42b350…42b4e4 Dummy {f00=0x00b5, f01=0x018e, f02=» # 2 &0 , * > + N .0 ` 5 r >0 E J F " D 0L 0L0X 0R JP R!0L RL ?R R#0L ?R "LAj RL L A R I2 L C G0
0x42b4e4…42b678 Dummy {f00=0x00b5, f01=0x0190, f02=» b0 d g * i < q L v H x n ~ ~ J F " D @ R JL KL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL 0
0x42b678…42b80c Dummy {f00=0x00b5, f01=0x0190, f02=» a b c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x42b80c…42b9a0 Dummy {f00=0x00b5, f01=0x400c, f02=» @ c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x42b9a0…42bb34 (4, 6) Dummy {f00=0x00b5, f01=0x018e, f02=» > H IDENT DAUCCY TRA 11.0 - - F1 O1111 CURRENCY UPDATE > : DAUCCY EPPCCY SPAP21 SPAP23 SPAP24 SPAP25 SPAP28 F SPAP29U $$$TRA B > DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPAP25 SPAP28 ( SPAP29S J
0x42bb34…42bcc8 Dummy {f00=0x00b5, f01=0x018e, f02=» 0 $ & % 6 ' H ( X 1 j 60 z : = J F " D )"L SL pS pL p Rp I21I R!"L Af RL RLI2 #Ss Rp )"L SL SL8W B M
0x42bcc8…42be5c Dummy {f00=0x00b5, f01=0x0190, f02=» q z { * 0 < J F " D @ R +L +@f4 kr RL ct du RL cv dw RL l#S y RL l# x RL4 %y N 0 L 0
0x42be5c…42bff0 Dummy {f00=0x00b5, f01=0x0190, f02=» J F " D L #yL LW L CL4 !uL $tu L CLW%#uL #wL xLW>#xL xL%7L 0X V f 0 x 0 0 0 0 0
0x42bff0…42c184 Dummy {f00=0x00b5, f01=0x0190, f02=»L4 L 0 0 0 . @ R 0 d v % *0 . 1 60 90
0x42c184…42c318 Dummy {f00=0x00b5, f01=0x40d2, f02=» P S X0 , [0 > ^ P c ` i p 6 2 0 @0X L4 #vL CL LW wL%7L 0X 0X L4 i l @ 1 60 90
0x42c318…42c4ac Dummy {f00=0x00b5, f01=0x0190, f02=» > H IDENT DBUOPR TRA 11.0 - - F1 O1111 UPDATE OPERATOR DBUOPR SPAP06 F $$$TRAU ` DBUOPR SPAP06 r B > EAIOPRU EBZACCA MASK QEMOVE T:IREA1 T:XREAT T:XSTAT XBFMT 0 , XEERR ZCRDD ZDRWRD ZGREA ZHWRID ZYRLNG
0x42c4ac…42c640 Dummy {f00=0x00b5, f01=0x0190, f02=» + 0 2 & 8 6 9 F > X J F " D )"Lh L A R I2 L R R DL0X D P 0X DL0R DT5 RL W^0R h J0 N0 R0 T [
0x42c640…42c7d4 (4, 7) Dummy {f00=0x00b5, f01=0x0190, f02=» J F " D @ e e eL/#eL L R I2A0X _E R I21_O eL RLI2&!eL" eL RLI 0 e X j z 0 0 0 0 0
0x42c7d4…42c968 Dummy {f00=0x00b5, f01=0x40aa, f02=» 0 e 0 B T * & $ !8L CLW RW CL LW LW A 4 f @ 0 0 0 0
0x42c968…42cafc Dummy {f00=0x00b5, f01=0x40e4, f02=» L H IDENT DCVDU TRA 11.0 - - F1 O1111 DEMONSTRATE VIDEO DCVDU T $$$TRAV d DCVDU v XBFMT RL4 @ L P B S06999 PS06990
0x42cafc…42cc90 Dummy {f00=0x00b5, f01=0x0190, f02=» H H IDENT DDTP71 TRA 11.0 - - F1 O1111 DEMONSTRATE 6371-PRINTER DDTP71 P $$$TRAT b DDTP71 t D @ FMOVE PVATTPT PWDETP T:DSC0 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF
0x42cc90…42ce24 Dummy {f00=0x00b5, f01=0x018e, f02=» & f ( . A " 0 4 5 A D 7 V 8 f 90 x :0 < = >0 ?0 J F " D R R RL R I2 DL VL0X VD0
0x42ce24…42cfb8 Dummy {f00=0x00b5, f01=0x0190, f02=» J K0 L0 , N > O N P0 ` Q0 r S T U0 V0 X 4 Y0 & B ^
0x42cfb8…42d14c Dummy {f00=0x00b5, f01=0x0190, f02=» o 4 p0 0 r & t 6 w D,A,L,CH F y " ^ z n } GB,NL,B " J F " D @ RLLL iL RLLL RLLL RLLL RL DL RD RL RL0R^F RL RL0R^F kL RL kL R
0x42d14c…42d2e0 Dummy {f00=0x00b5, f01=0x0190, f02=» " S,SF " 0 @ DK,N R " f v P " US " YU
0x42d2e0…42d474 (4, 8) Dummy {f00=0x00b6, f01=0x0190, f02=» J F " D L kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL kL RL DL RD R A ` r 0 D 0 D 0 E 0 E
0x42d474…42d608 Dummy {f00=0x00b6, f01=0x0190, f02=» P 0 P , 0 S > 0 S P b r 4 J F " D L DL RD RLLL RLLL RLLL iL RLLL RLLL0X R 4 E D E0X D R D 6 *
0x42d608…42d79c Dummy {f00=0x00b6, f01=0x018c, f02=» z & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x42d79c…42d930 Dummy {f00=0x00b6, f01=0x4008, f02=»@ & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x42d930…42dac4 Dummy {f00=0x00b6, f01=0x0190, f02=» L H IDENT DELACT TRA 11.0 - - F1 O1111 LIST ACCOUNTS DELACT T $$$TRAL f DELACT x D @ PAJRN QAFNKYT QEMOVE QGATYP T:EDWR1 T:IREA T:TESTS T:WAIT $ XAKBIN XHERAS ZMRDF ZYRLNG
0x42dac4…42dc58 Dummy {f00=0x00b6, f01=0x018e, f02=» 7 ! * & : + J < Z = j J F " D Am R L RLA RL aL eL DL RD 0X ^0X T*0X T RA A o A c(A RL A | M N S d0
0x42dc58…42ddec Dummy {f00=0x00b6, f01=0x0190, f02=» $ 0 A 4 F V 0 A f x & 999999 " a & 9999 " & &
0x42ddec…42df80 Dummy {f00=0x00b6, f01=0x407a, f02=» 9 " ( " 2 . , 0X D T R 0R # L 1X F_z +L +W A2@m4 . d@ v x & 999999 " a & 9999 " & &
0x42df80…42e114 (4, 9) Dummy {f00=0x00b6, f01=0x0190, f02=» < H IDENT DFOACT TRA 11.0 - - F1 O1111 OPEN ACCOUNT DFOACT SPAP13 D $$$TRAO ^ DFOACT SPAP13 X p , ( PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 0 X 0 0 0
0x42e114…42e2a8 Dummy {f00=0x00b6, f01=0x018e, f02=» : J F " D IQ (L#(LF a(W )L#)L: a)Aa RL L RL RLI2*IU HQ LIU HT R a D0 b L t Q R0 ) Z0 L ^0 L f t w |
0x42e2a8…42e43c Dummy {f00=0x00b6, f01=0x400c, f02=» @ J F " D IQ (L#(LF a(W )L#)L: a)Aa RL L RL RLI2*IU HQ LIU HT R a D0 b L t Q R0 ) Z0 L ^0 L f t w |
0x42e43c…42e5d0 Dummy {f00=0x00b6, f01=0x018e, f02=» < H IDENT DGCACT TRA 11.0 - - F1 O1111 CLOSE ACCOUNT DGCACT D $$$TRAC V DGCACT h 0 , DKDSTMC PAJRN PBBOOK XBFMT ZCRDD ZDRWRDC | 0
0x42e5d0…42e764 Dummy {f00=0x00b6, f01=0x40c8, f02=» :0 ( = J F " D Ab RL L RL RLI2< +L + @b LH ( L R I2 ! L !:L #:L R & H t L @ I2 I RW R4 O L O @ 0
0x42e764…42e8f8 Dummy {f00=0x00b6, f01=0x0190, f02=» L H IDENT DHBACT TRA 11.0 - - F1 O1111 BLOCK / DEBLOCK ACCOUNT DHBACT T $$$TRAB f DHBACT x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x42e8f8…42ea8c Dummy {f00=0x00b6, f01=0x4080, f02=» 30 0 5 H D ! B ! L Ac LW Ad L RL RL L RLI2 +L + +! L LW L R @d@c4 5 > j@ |
0x42ea8c…42ec20 Dummy {f00=0x00b6, f01=0x0190, f02=» L H IDENT DIQACT TRA 11.0 - - F1 O1111 INQUIRE ACCOUNT DIQACT T $$$TRAQ f DIQACT x 6 2 PAJRN QFLTRST T:DSC0 XBFMT XEERR ZCRDD ZDRWRDE 0 p
0x42ec20…42edb4 (4, 10) Dummy {f00=0x00b6, f01=0x4156, f02=» 1 40 6 ( 7 / 8 =0 / J @ J F " D Ag RL L RL eL RLI2D!eL3 L R I2,H RL eL RLI2 !eL l E F & M0 & U
0x42edb4…42ef48 Dummy {f00=0x00b6, f01=0x0190, f02=» > H IDENT DJUACT TRA 11.0 - - F1 O1111 UPDATE ACCOUNT DJUACT SPAP30 F $$$TRAU ` DJUACT SPAP30 r * & PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 0
0x42ef48…42f0dc Dummy {f00=0x00b6, f01=0x0190, f02=» # $ 5 *0 5 30 5 0 < B J F " D AeI1 L RL RL RLI2 W L RL RL RLI2k +L + + LH1 ( R W R B P0 1 ^0 1 i s {0 1 J F "
0x42f0dc…42f270 Dummy {f00=0x00b6, f01=0x4060, f02=» < 8 6 W @e4 J RJ( J L CLW L4 J@ RL RL RLI2 W L RL RL RLI2k +L + + LH1 ( R W R B P0 1 ^0 1 i s {0 1 J F "
0x42f270…42f404 Dummy {f00=0x00b6, f01=0x018e, f02=» @ H IDENT DKDSTM TRA 11.0 - - F1 O1111 DAILY STATEMENTS DKDSTM EQPDS H $$$TRAD ` DKDSTM EQPDS " r D @ PAJRN PVATTPT PWDETP PXSKIP PZPOSD1 QENTRSY QGATYPE T:DSC0 @ < T:DSC1 T:DSC2S T:EDWR XCLAMP XEERR ZCRDD ZDR
0x42f404…42f598 Dummy {f00=0x00b6, f01=0x0190, f02=» 0 " # 1010313801100030000000 ( % N , ^ 2 f n 4 9 : ? @0 ? J F " D Ah L RL ba R !bL+ R !:L ):L DL VL0X VD0X DL0X D RL W
0x42f598…42f72c Dummy {f00=0x00b6, f01=0x0190, f02=»0 j v0 } . J F " D @L R W R RL R I2 #bL# aL aL"a) a R I2 J L RaI > 0 0
0x42f72c…42f8c0 Dummy {f00=0x00b6, f01=0x018e, f02=» J F " D S RLW @S RLAS k #bL )&L 1X FW R 1X FW TL RT1X F TLA U R f " v 0 R 0 R 0 R 0 R 0 R 0
0x42f8c0…42fa54 (4, 11) Dummy {f00=0x00b6, f01=0x0190, f02=» 0 & 6 & 01 F & V 999999 d " a1 z & & k & & ( ,0 00 40
0x42fa54…42fbe8 Dummy {f00=0x00b6, f01=0x418e, f02=» 0 V0 0 Z0 0 ^0 . m0 @ r0 R x = d z v 0 = J F " D @L W A W A W A - L A ! L ! L ! L I W H c dLW cL d CL RC #bL 0
0x42fbe8…42fd7c Dummy {f00=0x00b6, f01=0x0190, f02=» 6 H IDENT DLDEP TRA 11.0 - - F1 O1111 DEPOSIT $ DLDEP SPAP10 SPAP11 SPAP12 > $$$TRAD f , ( DLDEP SPAP10S z SPAP11A SPAP12 x > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS
0x42fd7c…42ff10 Dummy {f00=0x00b6, f01=0x0190, f02=» $ & 00 90 2 J F " D IR H5 ARW LW L RL L RLI2Z l# RL R +L +HS L D D K ]0 H a0 H j r v
0x42ff10…4300a4 Dummy {f00=0x00b6, f01=0x4108, f02=» 0 0 0 B T 0 f 0 x D @ > c CL L4 L eL e CL L4 HS L %7L 0X 0X 4 @
0x4300a4…430238 Dummy {f00=0x00b6, f01=0x0190, f02=» : H IDENT DMWDR TRA 11.0 - - F1 O1111 WITHDRAWAL DMWDR SPAP14 B $$$TRAW Z DMWDR SPAP14 l @ < PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST TNDCAB XBFMT ZCRDD ZDRWRD1 ZHWRID 0 Z 0
0x430238…4303cc Dummy {f00=0x00b6, f01=0x018e, f02=» ' ) 30 * <0 < J F " D AnIQ LW L RL LH5 RLW RLI2m l# RL R +L +HS LH N J Q Y0 Q ^ s0 Q w0 Q }
0x4303cc…430560 Dummy {f00=0x00b6, f01=0x413a, f02=» 0 0 ( 8 0 H Z j J F " D I2 RW HQ RL@n4 IS L In %7L 0X 0X W %7L 0X 0X z 0 # " J H
0x430560…4306f4 (4, 12) Dummy {f00=0x00b7, f01=0x018e, f02=» L H IDENT DNTRF TRA 11.0 - - F1 O1111 TRANSFER DNTRF SPAP19 SPAP20 T $$$TRAT t " DNTRF SPAP19S SPAP20 U B > DKDSTMT PAJRN PBBOOK PCVCH QENTRS1 QGATYPA T:DISP T:ERAS ( $ XBFMT ZCRDD ZDRWRDS
0x4306f4…430888 Dummy {f00=0x00b7, f01=0x0190, f02=» 0 ! * ' < ( L +0 ^ - p . 0 70 @0 J F " D aLH5 RLW RLH2 RLW a a L RL l# RL L RL R HS L
0x430888…430a1c Dummy {f00=0x00b7, f01=0x0190, f02=»R I2- R T 0 + " 0 + 4 F V f v 0 0 J F " D I2& R I2 !:L #:L I R
0x430a1c…430bb0 Dummy {f00=0x00b7, f01=0x0190, f02=» 0 , 0 > P J F " D W a R I2}H t! Lp! Ll! L L CLWf Ra J RJ( J !:LG!:L I ` 0 0
0x430bb0…430d44 Dummy {f00=0x00b7, f01=0x018e, f02=»0X 0X L0X 0X I 0X W 0X LW v D 4 I F L X W0 j [0 ~ a d m p $ z J F " D @CL LW CL L A` La4 %bL
0x430d44…430ed8 Dummy {f00=0x00b7, f01=0x40ca, f02=» 8 & 8 J B = ; 4H +! L'! L#! L L CLW J RJ( J L CLW LW CL L4 n @ p $ z J F " D @CL LW CL L A` La4 %bL
0x430ed8…43106c Dummy {f00=0x00b7, f01=0x40e0, f02=» < H IDENT T:DA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & vA0 0 * | , @ , (
0x43106c…431200 Dummy {f00=0x00b7, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 11.0 - - F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ , @ , (
0x431200…431394 (4, 13) Dummy {f00=0x00b7, f01=0x4156, f02=» < H IDENT U:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION U:BTAB D U:BTABB V > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x431394…431528 Dummy {f00=0x00b7, f01=0x4092, f02=» < H IDENT S:BTAB TRA 11.0 - - F1 O1111 DATA DIVISION S:BTAB D S:BTABB V j :B |@ 0 U:UA20I U:UT10 j U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP UA1
0x431528…4316bc Dummy {f00=0x00b7, f01=0x0190, f02=» < H IDENT C:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x4316bc…431850 Dummy {f00=0x00b7, f01=0x4028, f02=» ( ( @ $O1111 DATA DIVISION C:CW10 D C:CW10C V & j & & = & [ & y & * & *
0x431850…4319e4 Dummy {f00=0x00b7, f01=0x40f2, f02=» < H IDENT D:CW10 TRA 11.0 - - F1 O1111 DATA DIVISION D:CW10 D D:CW10C V * & B 0 f j * & B t 0 0 = 0 ! B @ *
0x4319e4…431b78 Dummy {f00=0x00b7, f01=0x4102, f02=» < H IDENT C:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION C:CSY0 D C:CSY0C V & j * & = N = N @ *
0x431b78…431d0c Dummy {f00=0x00b7, f01=0x40d2, f02=» < H IDENT D:CSY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:CSY0 D D:CSY0C V * & 20 0 0 0 0 j 0 50 ;0 A0 D 2 @ N = N @ *
0x431d0c…431ea0 Dummy {f00=0x00b7, f01=0x40dc, f02=» < H IDENT Z:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TRM0 D Z:TRM0T V & j " * 4 4 @ N = N @ *
0x431ea0…432034 (4, 14) Dummy {f00=0x00e0, f01=0x40f2, f02=» < H IDENT D:TRM0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TRM0 D D:TRM0T V * & B 0 0 0 0 0 " j * & 0 #0 %0 &0 '0 (0 )0 *0 = -0 . B @
0x432034…4321c8 Dummy {f00=0x00e0, f01=0x40f2, f02=» < H IDENT Z:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION Z:TSP0 D Z:TSP0T V * & j & = F = F @
0x4321c8…43235c Dummy {f00=0x00e0, f01=0x40da, f02=» < H IDENT D:TSP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:TSP0 D D:TSP0T V * & : j ( $ 0 0 0 @ : @ = F @
0x43235c…4324f0 Dummy {f00=0x00e0, f01=0x0190, f02=» < H IDENT U:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UBF0 D U:UBF0U V & j & & = & [ & y & & & &
0x4324f0…432684 Dummy {f00=0x00e0, f01=0x0190, f02=» & & ; & Y . & w > & N & ^ & n & ~ & & + & I & g & & & &
0x432684…432818 Dummy {f00=0x00e0, f01=0x40de, f02=» & & ) & G . & e > & N & ^ & n & ~ & * @ & &
0x432818…4329ac Dummy {f00=0x00e0, f01=0x40f2, f02=» < H IDENT D:UBF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UBF0 D D:UBF0U V * & B 0 0 j * & & , 4 < H a = B @ &
0x4329ac…432b40 Dummy {f00=0x00e0, f01=0x4132, f02=» < H IDENT U:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UIF0 D U:UIF0U V * & j ( & & = & [ y *
0x432b40…432cd4 (4, 15) Dummy {f00=0x00e0, f01=0x40ee, f02=» < H IDENT D:UIF0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UIF0 D D:UIF0U V * & > 0 0 0 0 0 0 $ j * & 0 *0 0 6 7 = V Z ( = _ > @
0x432cd4…432e68 Dummy {f00=0x00e0, f01=0x40f2, f02=» < H IDENT U:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UCY0 D U:UCY0U V & j * & = > = > @
0x432e68…432ffc Dummy {f00=0x00e0, f01=0x40ca, f02=» < H IDENT D:UCY0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UCY0 D D:UCY0U V * & *0 0 0 !0 %0 ) j 0 -0 10 7 * @ > = > @
0x432ffc…433190 Dummy {f00=0x00e0, f01=0x0190, f02=» < H IDENT U:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION U:UOP0 D U:UOP0U V & j * & * & = * & [
0x433190…433324 Dummy {f00=0x00e0, f01=0x4054, f02=» n * * >@ P U:UOP0U V & j * & * & = * & [
0x433324…4334b8 Dummy {f00=0x00e0, f01=0x40f6, f02=» < H IDENT D:UOP0 TRA 11.0 - - F1 O1111 DATA DIVISION D:UOP0 D D:UOP0U V * & F0 0 0 !0 "0 $ j * & % = F @
0x4334b8…43364c Dummy {f00=0x00e0, f01=0x4136, f02=» < H IDENT U:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA10 D U:UA10U V & j & * & = * & [ y *
0x43364c…4337e0 Dummy {f00=0x00e0, f01=0x40f2, f02=» < H IDENT D:UA10 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA10 D D:UA10U V * & B0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r x B @ y *
0x4337e0…433974 (4, 16) Dummy {f00=0x00e0, f01=0x4132, f02=» < H IDENT U:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION U:UA20 D U:UA20U V & j & * & = * & [ y
0x433974…433b08 Dummy {f00=0x00e0, f01=0x40ee, f02=» < H IDENT D:UA20 TRA 11.0 - - F1 O1111 DATA DIVISION D:UA20 D D:UA20U V * & >0 0 1 E0 K j * & 0 L0 R0 X0 ^0 d0 f0 l0 = r > @ y
0x433b08…433c9c Dummy {f00=0x00e0, f01=0x4114, f02=» < H IDENT U:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION U:UT10 D U:UT10U V * & j * & = * P = P
0x433c9c…433e30 Dummy {f00=0x00e0, f01=0x40d2, f02=» < H IDENT D:UT10 TRA 11.0 - - F1 O1111 DATA DIVISION ! D:UT10 ! D D:UT10U ! V * & 20 0 0 0 0 0 0 ! j 0 !0 '0 -0 3 7 ! 2 ! @ ! * P = P
0x433e30…433fc4 Dummy {f00=0x00e0, f01=0x4114, f02=» < H IDENT U:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION " U:UT20 " D U:UT20U " V * & " j * & " = * " P " = P
0x433fc4…434158 Dummy {f00=0x00e0, f01=0x40d2, f02=» < H IDENT D:UT20 TRA 11.0 - - F1 O1111 DATA DIVISION # D:UT20 # D D:UT20U # V * & 20 0 0 0 0 0 0 # j 0 !0 '0 -0 3 7 # 2 # @ # * " P " = P
0x434158…4342ec Dummy {f00=0x00e0, f01=0x40d6, f02=» < H IDENT C:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION $ C:CK10 $ D C:CK10C $ V * & d $ j $ ( $ ( $ @ $ * " P " = P
0x4342ec…434480 Dummy {f00=0x00e0, f01=0x40ee, f02=» < H IDENT D:CK10 TRA 11.0 - - F1 O1111 DATA DIVISION % D:CK10 % D D:CK10C % V * & > % j * & 0 0 0 0 0 % = % > % @ % P " = P
0x434480…434614 (4, 17) Dummy {f00=0x00e0, f01=0x410c, f02=» < H IDENT C:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION & C:CK20 & D C:CK20C & V * & & j * & f f f f f f f f f f f f U D D & = D U U f D f & H & = H & @
0x434614…4347a8 Dummy {f00=0x00e0, f01=0x40ee, f02=» < H IDENT D:CK20 TRA 11.0 - - F1 O1111 DATA DIVISION ' D:CK20 ' D D:CK20C ' V * & > ' j * & ' = ' > ' @ ' & = H & @
0x4347a8…43493c Dummy {f00=0x00e0, f01=0x40de, f02=» < H IDENT U:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ( U:UQQ0 ( D U:UQQ0U ( V * & 2 ( j U5* ( * ( * ( @ ( > ' @ ' & = H & @
0x43493c…434ad0 Dummy {f00=0x00e0, f01=0x40d2, f02=» < H IDENT D:UQQ0 TRA 11.0 - - F1 O1111 DATA DIVISION ) D:UQQ0 ) D D:UQQ0U ) V * & 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x434ad0…434c64 Dummy {f00=0x00e0, f01=0x416a, f02=» @ H IDENT DOQCCY TRA 11.0 - - F1 O1111 CURRENCY INQUIRY 6 DOQCCY 6 H $$$TRAQ 6 Z DOQCCY 6 l EPPCCYQ PAJRN XBFMT 6 6 6 6 H 6 6 9 6
0x434c64…434df8 Dummy {f00=0x00e0, f01=0x0190, f02=» L H IDENT DPECCY TRA 11.0 - - F1 O1111 EXCHANGE CURRENCY 7 DPECCY SPAP26 7 T $$$TRAE 7 n DPECCY SPAP26 7 ( $ PAJRN PCVCH T:DISP. T:ERAS- XBFMT 7 7 7 7 7
0x434df8…434f8c Dummy {f00=0x00e0, f01=0x0190, f02=» 7 8 : 8 >0 : 8 J F " D Ak RLIV RLI2 !RL L ev fwW A L et fu hL jL kL dLA RLI2f hL 8 , B0 R 8 z M 8 N 8 V 8 W 8 J F " D @ +L + lj c RL lk d RLI Jc cd dJHV0I c
0x434f8c…435120 Dummy {f00=0x00e0, f01=0x4120, f02=»4 ge@ *A / A js k# dc d 8 d 0 9 " 0 9 4 0 9 F 0 9 X 0 9 j J F " D e dy dL!fL:*dx6 gf dc df dy dLW%A j# ks dc dy dL!fL *cx gf df 9 | 9 9 W de0X 0X 4 c 9
0x435120…4352b4 (4, 18) Dummy {f00=0x00e2, f01=0x0190, f02=» L H IDENT DQCOPR TRA 11.0 - - F1 O1111 CLOSE OPERATOR : DQCOPR : T $$$TRAC : f DQCOPR : x PAJRN XBFMT ZHWRID. : 0 : 0 : 0 : : :
0x4352b4…435448 Dummy {f00=0x00e2, f01=0x0190, f02=»@WAi L JL KL RLH5 RLW RLI2q J J J K K H5 RLW : N ; H O ; X Z ; j [ ; z f ; g ; r ; s ; v0 ; x ; 0 ; J F " D
0x435448…4355dc Dummy {f00=0x00e2, f01=0x4030, f02=» + L 6LW L@i4 ; < @ < , K H5 RLW : N ; H O ; X Z ; j [ ; z f ; g ; r ; s ; v0 ; x ; 0 ; J F " D
0x4355dc…435770 Dummy {f00=0x00e2, f01=0x0190, f02=» > H IDENT EINIT TRA 11.0 - - F1 O1111 INITIALISATIONS = > : EAIOPR EBZACC ECICCY EDIAC1 EEITR1 EFIAC2 EGITR2 = F EHISYSN EZIBUFA = $$$TRA = B > EAIOPRN EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 = $ EGITR2 E
0x435770…435904 Dummy {f00=0x00e2, f01=0x0190, f02=» = 0 > > " % > 0 ' > @ * > R - > d 0 > v 50 > 8 > < > J F " D L L L L L % EL EL EL EL R4 DL EL DL EL DEL EL DL 4 >
0x435904…435a98 Dummy {f00=0x00e2, f01=0x0190, f02=» > Z0 ? ]0 ? ` ? , c ? < f ? L i ? l0 ? l o0 ? ~ r0 ? u0 ? x0 ? {0 ? ~0 ? 0 ? J F " D @ qL rL
0x435a98…435c2c Dummy {f00=0x00e2, f01=0x0190, f02=» ? @ 0 @ 0 @ 0 0 @ B 0 @ T 0 @ f 0 @ x 0 @ 0 @ 0 @ 0 @ 0 @ J F " D L L4 L L L L L L L
0x435c2c…435dc0 Dummy {f00=0x00e2, f01=0x018e, f02=» @ 0 A 0 A 0 A 0 0 A B 0 A T 0 A f 0 A x A [ A A A A J F " D = L L L L L L4 L L 2 = L
0x435dc0…435f54 (4, 19) Dummy {f00=0x00e2, f01=0x4044, f02=» A " R4 !L 'L (L )L +L "L4 B B .@ B @ 0 A B 0 A T 0 A f 0 A x A [ A A A A J F " D = L L L L L L4 L L 2 = L
0x435f54…4360e8 Dummy {f00=0x00e2, f01=0x0190, f02=» F H IDENT IOTND TRA 11.0 - - F1 O1111 REL=9.2 VER=ND 81-01-21 IOTND IOTNDS N $$$TRAT f IOTND IOTNDS x 2 . MASKR NDERR T:DELA. T:DSC0- T:DSC21 T:XSTAL < % 4 5
0x4360e8…43627c Dummy {f00=0x00e2, f01=0x0190, f02=» B K ~ N U ~ . X > ^ ~ P a @A ` j ~ r m q ~ t x ~ { ~ J F " D @L R
0x43627c…436410 Dummy {f00=0x00e2, f01=0x0190, f02=» 1 d , < L 1 l d | J F " D LW R LW 6 0 L0R P _ 2
0x436410…4365a4 Dummy {f00=0x00e2, f01=0x0190, f02=» ~ , < L ^ n ~ J F " D W 2 RRRRRRR R LW W R W{Wy R L R 0X R
0x4365a4…436738 Dummy {f00=0x00e2, f01=0x0190, f02=» A J J F " D _ R W _* R W 0X L R I I 4 4 2 RRRRR C I 1 l Y | [ ^ 1 k u 1 v 1 w x 1
0x436738…4368cc Dummy {f00=0x00e2, f01=0x0190, f02=» ( . > N J F " D R2 RRRK + R _14 _ L L0X $ Lb 4 0X ^ 0 & &
0x4368cc…436a60 Dummy {f00=0x00e2, f01=0x0190, f02=» J F " D 4 L " m F _ 0X 4 0X 4 A R 4 L0X & 8 2 l J F " D ( 4 , 4 L .6 ))b ) L ~ C L 6 T J F " D @ R
0x436a60…436bf4 (4, 20) Dummy {f00=0x00e2, f01=0x4106, f02=» _! _/ * : J l ~ > 9 7 L0X 0X L0R P L0X 0R P R 4 @ R
0x436bf4…436d88 Dummy {f00=0x00e2, f01=0x40e8, f02=» B H IDENT NDERR TRA 11.0 - - F1 O1111 TND ERROR REPORTING NDERR J $$$TRAE Z NDERR l XFERR1E ~ R D F FL RF D 4 @ R REJECT P ( P DSC2 TND,X'17',
0x436d88…436f1c Dummy {f00=0x00e2, f01=0x018e, f02=» : H IDENT PBBOOK TRA 11.0 - - F1 O1111 PRINT BOOK PBBOOK PYPOSB B $$$TRAB PBBOOK PYPOSB n > : PVATTPB PWDETPA PZPOSD QENTRSF T:DSC0 T:DSC1B T:DSC2 8 4 T:EDWR XCLAMPS XEERR XKZEKO ZCRDD ZDRWRD ZMRDF
0x436f1c…4370b0 Dummy {f00=0x00e2, f01=0x0190, f02=» " f $ 2 * 6 : 7 1 J : J F " D R !:L ):L IU DL VL0X VD0X DL0X D U T IU R RL R I2d l E N Y Z & _
0x4370b0…437244 Dummy {f00=0x00e2, f01=0x018e, f02=» RL WB RI2= d ! L ! L ! L W dL1X F T t 0 B 2 D 3 T f v 0 3 & ZZZZZZ
0x437244…4373d8 Dummy {f00=0x00e2, f01=0x0190, f02=» F*ZVZZZVZZ9,99- " d $ & 4 F*ZVZZZVZZ9,99- B " b ( r 0 ~ 0 % 0 % 0 $ J F " D U_F% L RI2 CL RC 0X T L R HU R0X R 4 TL%TL TL
0x4373d8…43756c Dummy {f00=0x00e2, f01=0x403e, f02=» 0X RL R I2 JL JT JJ RJ4 2 (@ : F*ZVZZZVZZ9,99- B " b ( r 0 ~ 0 % 0 % 0 $ J F " D U_F% L RI2 CL RC 0X T L R HU R0X R 4 TL%TL TL
0x43756c…437700 Dummy {f00=0x00e2, f01=0x018e, f02=» F H IDENT PRINT TRA 11.0 - - F1 O1111 PRINT JOURNAL - VOUCHER 2 . PAJRN PCVCH PVATTP PWDETP PXSKIP PZPOSD N $$$TRAI > : PAJRN PCVCH q PVATTPD [ PWDETPI g PXSKIP n PZPOSD t B > T:DSC0I T:DSC1A T:DSC2 T:EDWRF T:GETT XCLAM
0x437700…437894 (4, 21) Dummy {f00=0x00e2, f01=0x0190, f02=» , . 2 ( 90 8 < , J > J F " D !:L ):L DL0X D G 6G ,28>D CL RC 0X W=1X FW70X L CL RC l B F n K M Q
0x437894…437a28 Dummy {f00=0x00e2, f01=0x0190, f02=» m n u [ z ~ , 6 < J F " D @ 0X R W 1X FW 1X FW 1X FW 1X FW 1X FW ):L R 4 I5 R AZ R RL N 0 0 " 1010313801100033000000
0x437a28…437bbc Dummy {f00=0x00e2, f01=0x0190, f02=»D0X DL0X D G 6G z TLW TLAY k' n t , < L 0 t n ~ 0 t 0
0x437bbc…437d50 Dummy {f00=0x00e2, f01=0x0190, f02=»GL @YAX k RT1X F!GL TL@X k h & 6 0 F t X h x 0 #0 % t ( * /0 D 1
0x437d50…437ee4 Dummy {f00=0x00e2, f01=0x0190, f02=»RT1X F P B0 4 D t G 0 I @ M P Q g ` ] d p _ h o q & & ( y0
0x437ee4…438078 Dummy {f00=0x00e2, f01=0x018e, f02=» 0 0 0 0 0 $ 6 - F & V & Z d & t Z " 9 & 999999 " a & S & & (R)
0x438078…43820c Dummy {f00=0x00e2, f01=0x018e, f02=» & ( & . & Z < & L Z Z " 9 l & | & l & ZZVZZZVZZ9,99- " & ( &
0x43820c…4383a0 Dummy {f00=0x00e2, f01=0x018e, f02=» & & & $ & 2 ( @ L & & Z j & z Z " 9 & ZZVZZ9,999 " c & ZZVZZZ,ZZ9
0x4383a0…438534 (4, 22) Dummy {f00=0x00e3, f01=0x0190, f02=» & & l & F*ZVZZZVZZ9,99-R . " N & ^ & X l & Y | & & & ( & & Z & Z
0x438534…4386c8 Dummy {f00=0x00e3, f01=0x0190, f02=» & 999999 " bR $ ( 4 @ & P & ^ & k l & z & ( & 99E-99E-99 " & 99E:99
0x4386c8…43885c Dummy {f00=0x00e3, f01=0x018e, f02=» 999 " 2 & ( ( 6 B & R & ` & n ZZZZZZZZ9,99-9 ~ " d & & s & & & ZZZZZZZZ9,99
0x43885c…4389f0 Dummy {f00=0x00e3, f01=0x404c, f02=» ( " :L JL JL JLW JL0X J4 6@ H B & R & ` & n ZZZZZZZZ9,99-9 ~ " d & & s & & & ZZZZZZZZ9,99
0x4389f0…438b84 Dummy {f00=0x00e3, f01=0x018e, f02=» @ H IDENT QIRDBS TRA 11.0 - - F1 O1111 DATABASE RECOVERY QIRDBS H $$$TRAR Z QIRDBS l B > GETLRNR MASKT PUTLRN T:DREA T:XSTA1 ZAOPNDB ZBCLSDO ZCRDD ZDRWRD ZGREA DATABA DSC000
0x438b84…438d18 Dummy {f00=0x00e3, f01=0x0190, f02=» 0 2 < & J F " D XL WLjW 0RX WD D L EL IL R L0X E 0X DL0R DX (I R D 6 D K N Q 2 W0 y Z0 y ]0 `
0x438d18…438eac Dummy {f00=0x00e3, f01=0x4130, f02=» IL#IL _6 (L )L +L IL@ aL R aL a R I2FI IL# ~ < 0 N 0 ` r 0 y 0 % J F " D IL/_ ILI $a( (aW $a) )a$ + + % L L R I2 _LI A aL IL_Y
0x438eac…439040 Dummy {f00=0x00e3, f01=0x0190, f02=» H H IDENT QMISC TRA 11.0 - - F1 O1111 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI $$$TRA B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP
0x439040…4391d4 (4, 23) Dummy {f00=0x00e3, f01=0x0190, f02=»3" I0 A0@1W I1 A1@0W 4 D DL6 p a . d @ f R t b y r ~ J F " D @D W A0W A1W @0W @1 4 0L 0L0X 0R1HP _ AP0X 00X 00X
0x4391d4…439368 Dummy {f00=0x00e3, f01=0x413a, f02=»0 0 J F " D 00X 00X 00X 00X 00X 0W 0L4 @P4 L% L L4 L# L L4 @ 0 X l 0 X ~ 9 8 4 2 J JL JL(J A 4 R L%
0x439368…4394fc Dummy {f00=0x00e3, f01=0x0190, f02=» H H IDENT DEMSCR TRA 11.0 - - F1 O1111 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x4394fc…439690 Dummy {f00=0x00e3, f01=0x0190, f02=» T:TBWDR T:TDOWC T:TFWDS T:THOM T:TLDO T:TLEF 4 0 T:TRIGM T:TSTCA T:TUP T:UPDFT XCLAMPT XFERR1T 8 p %
0x439690…439824 Dummy {f00=0x00e3, f01=0x0190, f02=»L 4 A AL8R @LI@ 6A %1X @LW 1X @L p I " . L > P " P S ` U r X Z $ _ ( m . o w y J F "
0x439824…4399b8 Dummy {f00=0x00e3, f01=0x0190, f02=» $ 4 D T d t ` m &
0x4399b8…439b4c Dummy {f00=0x00e3, f01=0x0190, f02=» & * < J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL C RRRRRRR2B RRR CLW 0X B)BL _S N & l B
0x439b4c…439ce0 Dummy {f00=0x00e3, f01=0x0190, f02=» . > 9 N ^ n ~ B 4 J F " D CL0X B!BL) R2B RRRW 0X LAA2A RRRRRRRRRRRRRRRRR A
0x439ce0…439e74 (4, 24) Dummy {f00=0x014c, f01=0x018e, f02=» " % > " @ 4 B D J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ H9 BL1 T D , G L0 P0 S U
0x439e74…43a008 Dummy {f00=0x014c, f01=0x0190, f02=» v x z l $ | 4 J F " D @X F1X BL_ !:L :L 1X F BL1X BL_ AL0XLX CLWZ0X B)BL 1X F?R0XL @ D
0x43a008…43a19c Dummy {f00=0x014c, f01=0x0190, f02=» AL )@L AA?R CL @L AL0X ABS 0X P 0R Q AL4 0X BAW ALR! @ R F d . t *
0x43a19c…43a330 Dummy {f00=0x014c, f01=0x0190, f02=»RRRRR_& R R Z " ! ! ( ! : 1 ! L $ ! ^ " ! n ' ! ~ / ! ! ! $ ! ) ! . l ! 1 ! 7 $ !
0x43a330…43a4c4 Dummy {f00=0x014c, f01=0x405c, f02=» & ! ( " " & 00 " * ( " : @ @ " F@ " X $ ! ^ " ! n ' ! ~ / ! ! ! $ ! ) ! . l ! 1 ! 7 $ !
0x43a4c4…43a658 Dummy {f00=0x014c, f01=0x0190, f02=» > H IDENT SPACHQ TRA 11.0 - - F1 O1111 APPL-XX CONTROL # > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 # F > : SPCHK2A SPCHK3A SPCHK4 SPCHK5F SPCHK6 SPCHK7X SPTCHKL # $$$TRA # B > SPAP16A SPAP17S SPAP18C - SPAP22K D S
0x43a658…43a7ec Dummy {f00=0x014c, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10c SPAP11 SPAP12K # > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP20D SPAP21X SPAP23P $ 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29c SPAP30 SPAP31K $ z & " SPAP32A SPAP33H SPAP34A T:UPDFS $ 2 $ $
0x43a7ec…43a980 Dummy {f00=0x014c, f01=0x0190, f02=» R $ V % [ % ` % . e % > j % N o % ^ t % n y % ~ ~ % J F " D @LW JL%JL ,J W CLW R W R W R W R W} R Wx R Ws R Wn R Wi R % % %
0x43a980…43ab14 (4, 25) Dummy {f00=0x014c, f01=0x018e, f02=» % " & I & J F " D Wd R W_ R WZ R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R & , $ & z & & ( & * & , & . & 0 & & &
0x43ab14…43aca8 Dummy {f00=0x014c, f01=0x0190, f02=» ' ' 0 ' ( !0 ' : ' ' L * ' ^ / ' p 8 ' > ' A ' J F " D L4 JL%JL #JL W L CL4 JL%JL #JL W L CL4 [Lb[ @L ![L W L ' N
0x43aca8…43ae3c Dummy {f00=0x014c, f01=0x400c, f02=» ' @ ( ' ' 0 ' ( !0 ' : ' ' L * ' ^ / ' p 8 ' > ' A ' J F " D L4 JL%JL #JL W L CL4 JL%JL #JL W L CL4 [Lb[ @L ![L W L ' N
0x43ae3c…43afd0 Dummy {f00=0x014c, f01=0x0190, f02=» J H IDENT TNDCAB TRA 11.0 - - F1 O1111 TND DISPENSE MAIN PROCEDURE SPAP34 TNDCAB R $$$TRAD l SPAP34 TNDCAB ~ " T:GETAD TNDPAYA XBFMT XEERR 0 D 0 D 0 *
0x43afd0…43b164 Dummy {f00=0x014c, f01=0x0190, f02=» T0 [0 y0 J F " D @ _ I2m KJ J JK D KL"D !JL cJ c D Dc K D Kc JK D _" KL D E 2 M Q J F " D F nL RJ DEFK
0x43b164…43b2f8 Dummy {f00=0x014c, f01=0x4060, f02=» : 5 3 JL KL"D K D K D KL JK D _ "J 4 CL L4 J@
0x43b2f8…43b48c Dummy {f00=0x014c, f01=0x0190, f02=» J H IDENT TNDOPN TRA 11.0 - - F1 O1111 OPEN TELLER NOTE DISPENSER SPAP33 TNDINI TNDOPN R $$$TRAD t $ SPAP33 TNDINIT TNDOPN IOTND T:GETAT XBFMT XEERR K
0x43b48c…43b620 Dummy {f00=0x014c, f01=0x018e, f02=» D bW nD JW V F G N $ Z 6 i0 N F J F " D @ J P RL I2r_. " 7 WL D bW nD JW JLX E E X% E F hWF X 0 L 0 J F " D E @ E EW_> D "D
0x43b620…43b7b4 (4, 26) Dummy {f00=0x014d, f01=0x4090, f02=» 0 J F " D D "D " (D D L D L _ D _# L4 0X JL!JL L 4 C 4 d z@ E X% E F hWF X 0 L 0 J F " D E @ E EW_> D "D
0x43b7b4…43b948 Dummy {f00=0x014d, f01=0x018e, f02=» H H IDENT TNDPAY TRA 11.0 - - F1 O1111 REL=9.2 VER=ND 80-004-14 TNDPAY P $$$TRAD b TNDPAY t IOTND NDERR TNDREM. *0 N 10 N J F " D I I I I 4 @ @ " ] LX LT A _
0x43b948…43badc Dummy {f00=0x014d, f01=0x411c, f02=» ( 8 0 H Z 0 j J F " D & R 2 RRR R 6 55 A _ " LX R | ( $ " LY R _!I 4 I 4 I 4 4
0x43badc…43bc70 Dummy {f00=0x014d, f01=0x4100, f02=» F H IDENT TNDREM TRA 11.0 - - F1 O1111 TND REMAINDER IN CASS. TNDREM N $$$TRAD ` TNDREM r 0 0 0 * & $ L LP V L4 @ THING PA
0x43bc70…43be04 Dummy {f00=0x014d, f01=0x0190, f02=» > H IDENT XBFMT TRA 11.0 - - F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP XEERR ZMRDF z '
0x43be04…43bf98 Dummy {f00=0x014d, f01=0x0190, f02=» P PD0R]F#MLs)ML 0R]F D7 WL Q j Z ( g : s J | J F " D @GP GQ Q h^QGW T Q 9 I #QL& ID!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x43bf98…43c12c Dummy {f00=0x014d, f01=0x0190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x43c12c…43c2c0 Dummy {f00=0x014d, f01=0x0190, f02=» ( 8 H X h x " < " < "
0x43c2c0…43c454 (4, 27) Dummy {f00=0x014d, f01=0x4046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x43c454…43c5e8 Dummy {f00=0x014d, f01=0x018e, f02=» H H IDENT XMESG TRA 11.0 - - F1 O1111 ERROR- AND MESSAGECONTROL " XDMSG XEERR XFERR1 XHERAS P $$$TRAE v * & XDMSG XEERR XFERR1E XHERAS { 4 0 T:DSC1E T:EDWRA T:ERAS XAKBINF XCLAMP ZMRDF {
0x43c5e8…43c77c Dummy {f00=0x014d, f01=0x0190, f02=» 4 9 = $ J F " D R D RD 0X 4 C RC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x43c77c…43c910 Dummy {f00=0x014d, f01=0x404e, f02=» 1 $ ( ( 8@ JC 4 1X F R W R DM DL DL0X D R 0X 4 E F m r v & & (
0x43c910…43caa4 Dummy {f00=0x014d, f01=0x0190, f02=» @ H IDENT XOPINP TRA 11.0 - - F1 O1111 KEYBOARD,BCR,ODR * & XAKBIN XCLAMP XGBCR XHMSU XKZEKO H $$$TRAP v 4 0 XAKBIN XCLAMPX XGBCR J XHMSU XKZEKO N B > QAFNKYP T:DSC0A T:DSC1 T:DSC2F T:KI1 T:NKI T:WRITC T:XSTA
0x43caa4…43cc38 Dummy {f00=0x014d, f01=0x0190, f02=» * & < - N 1 ` 9 r @ C J F " D @ @L R I 20X LK@A R @L)AL H8 AL@8W )AL ALA5A8W RA W 0 Q V
0x43cc38…43cdcc Dummy {f00=0x014d, f01=0x018e, f02=»313801100033000000 ~ J F " D @X LK@A@ 4 IU I6 0X @L0X LK@A aLW HUy0X 0X D DL0X 0X VL0X * x 0
0x43cdcc…43cf60 Dummy {f00=0x014d, f01=0x0190, f02=» ( J F " D JZ cZjW L aW WL DLjW LD eWW'0X 0X E 0X GLE(E G G _ 8 1 0 1
0x43cf60…43d0f4 (4, 28) Dummy {f00=0x014d, f01=0x0190, f02=»W Z WL E jW EZ 0X ` A E . I > P N R ` W p [ " ` 1010313801100033000000 b i o q w0
0x43d0f4…43d288 Dummy {f00=0x014d, f01=0x0190, f02=» 999999 " a 2 & i B 99999999999 P " l 9999 | " & 0 ( ? 0 ? 0 ?
0x43d288…43d41c Dummy {f00=0x014d, f01=0x4122, f02=»Lg!8L I3`) L!I3Y DL0X D0X D# L I3 DLW% DLW I3 EL ~ < N ` r B = ; E W E EL DL!EL DL EL_ E 6E 0X DW 0X DW 0X D4 L
0x43d41c…43d5b0 Dummy {f00=0x014d, f01=0x0190, f02=» L H IDENT ZDSCIO TRA 11.0 - - F1 O1111 DISC I/O OPERATIONS B > ZAOPND ZBCLSD ZCRDD ZDRWRD ZEINSD ZGREA ZHWRID ZYRLNG T ZZERR $$$TRA > : ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 " ZHWRID
0x43d5b0…43d744 Dummy {f00=0x014d, f01=0x0190, f02=»EERR l 0 B DATABA T j DSC001 | ) 2 B 5 > L J F " D L DLj D DL EL XLj DEX DL WLj D W
0x43d744…43d8d8 Dummy {f00=0x014d, f01=0x0190, f02=» v J F " D @ D DLj D DLj D DLj D DLj D DLj D DL0X DT 0X $ r 1 $ & FILE OPEN UN
0x43d8d8…43da6c Dummy {f00=0x014d, f01=0x018e, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L K KL ELj EK 0X 2 V V 0
0x43da6c…43dc00 Dummy {f00=0x014d, f01=0x018e, f02=» V $ 4 ! F & 7 V ( f , v 2 8 ? J F " D P 0X DL0R D P R4 I R L0R R0X 0X P R@ 4 0X 4 A R
0x43dc00…43dd94 (4, 29) Dummy {f00=0x014d, f01=0x0190, f02=» s v0 J F " D @ I2 I R W R @ 4 J J L%JL* L%JL# L%JL L%JL K J K * 0 I x x K +
0x43dd94…43df28 Dummy {f00=0x014d, f01=0x4028, f02=»0R DT A 4 X @ $ F " D @ I2 I R W R @ 4 J J L%JL* L%JL# L%JL L%JL K J K * 0 I x x K +
0x43df28…43e0bc Dummy {f00=0x014d, f01=0x0190, f02=» B H IDENT ZFMTIO TRA 11.0 - - F1 O1111 FORMAT I/O CONTROL ZKOPNF ZLCLSF J $$$TRAM d ZKOPNF ZLCLSF F v . * T:CLOSM T:EDWRA T:OPEN T:RSTAF XAKBIN M FORM
0x43e0bc…43e250 Dummy {f00=0x014d, f01=0x0190, f02=» : < = J F " D L DL EL XLj DEX DL WLj D W DLj D DL0X DP 0X 1X F RL A 2 ! 1 $ ( # &! FORMATFILE OPEN UNSUCCESSFULL ( G L
0x43e250…43e3e4 Dummy {f00=0x014d, f01=0x0190, f02=» " e 9999 " e $ 99999 4 " e J 999999 Z " e p 99999999999E " e PP999 " e Z " e ZZ
0x43e3e4…43e578 Dummy {f00=0x014d, f01=0x0190, f02=»ZZ " e Z9 " e , Z9,99 < " e R ZZZZ9 b " e x ZZZ9,999 " e ZZZ9,99- " e ZZZZ,ZZ- " e
0x43e578…43e70c Dummy {f00=0x014d, f01=0x018e, f02=» " e ZZZZZ9,99- " e . ZZZZZZ,ZZ- > " e X ZZZZZZZZ9,99 h " e ZZZZZZZZ9,99- " e ZZZZZZZZZ,ZZ " e ZZZZZZZZZ,ZZ-
0x43e70c…43e8a0 Dummy {f00=0x014d, f01=0x417c, f02=» $ ZZVZZZ,ZZ, " $e % 99E-99E-99 . " %e H & ZZE-ZZE-ZZ X " &e r ' ZZVZZZVZZ9,99- " 'e ( ZZZVZZZVZZ9,99 " (e ) ZZZVZZZVZZZ,ZZ " )e
0x43e8a0…43ea34 (4, 30) Dummy {f00=0x014e, f01=0x0190, f02=» : H IDENT ZMRDF TRA 11.0 - - F1 O1111 SCREEN I/O ZMRDF B $$$TRAR R ZMRDF d $ MASKR T:DREAT T:EDWR T:XSTA v & * 6 < @
0x43ea34…43ebc8 Dummy {f00=0x014e, f01=0x0190, f02=» D @RGHT E E j^ E] I jI ]E I E JI0X ]EJ0X G0RGHT E E j^EE] L l | J F " D jI ]E I E JI0X ]EJ0X G0RGHTo E E @E @Ej^@E] Wa E JI0X E
0x43ebc8…43ed5c Dummy {f00=0x014e, f01=0x40f0, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( " E E ILj EI] W 1X FA24 @
0x43ed5c…43eef0 Dummy {f00=0x014e, f01=0x406c, f02=» < H IDENT DEMODD TRA 11.0 - - F1 O1111 DATA DIVISION * $$$TRA * D * V@ * h 2 ) j 0 0 0 0 " ) 2 ) @ ) ( @ ( > ' @ ' & = H & @
0x43eef0…43f084 Dummy {f00=0x014e, f01=0x0190, f02=» < F IDENT GETLRN READ LRN IN VTOC GETLRNK PUTLRN D GETLRNK ^ I:EVA0 r PUTLRN , ( T P ' W T , ( @ & Q W P W @ , ( = T
0x43f084…43f218 Dummy {f00=0x014e, f01=0x0190, f02=» h , ( A A A : A , ( A : A @ P T 8 , ( T : @ A _( : W W h , ( ( B P X A : @ A , ( P R _ : , ( 9 0 E
0x43f218…43f3ac Dummy {f00=0x014e, f01=0x018e, f02=» A : : , ( 2 & , ( : @ P ( _ A : 9A V , ( 9A : A $ R P Q _ : 7 H D ! C r
0x43f3ac…43f540 Dummy {f00=0x014e, f01=0x40ea, f02=» J H D ! | T T D W W 6 P D 8 > 0 ! 2 %P +R H D !~ AT Q F U 8 Y P _ L g ( o F yP F B T P D T 0 , " P " ( R % F ' F F @ H D ! C r
0x43f540…43f6d4 (4, 31) Dummy {f00=0x014e, f01=0x40e2, f02=» > F IDENT DEFDOC DEFINE DOCUMENT 6371-PRINTER DEFDOCK F DEFDOCK X T:FDSP l I:EVA0 ~ I:RT1 ( $ H ( @ L P END
0x43f6d4…43f868 Dummy {f00=0x014e, f01=0x40f0, f02=» > F IDENT QEMOVE DATATRANSP. BUFFER <--> UWB QEMOVEK F QEMOVEK X I:EVA0 l , ( D@ F 8 1 ~ I:RT1 Y $ @
0x43f868…43f9fc Dummy {f00=0x014e, f01=0x0190, f02=» J F IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL & " CTAB01K CTAB02 CTAB03 CTAB04 R CTAB01K | CTAB02 CTAB03 CTAB04 , ( , ( !
0x43f9fc…43fb90 Dummy {f00=0x014e, f01=0x411a, f02=» <=>?=!"#$%&/() ;<=>?'ABCDEFGHIJK , ( LMNO^ABCDEFGHIJKLMNOPQRSTUVWXYZ[ , , ( ]+ PQRSTUVWXYZ{|}* H D ! & 4 D T t 4 D d ! # %
0x43fb90…43fd24 Dummy {f00=0x014e, f01=0x0190, f02=» < H IDENT T:AA00 TRA 11.0 - - F1 O1111 DATA DIVISION T:AA00 D T:AA00A V > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x43fd24…43feb8 Dummy {f00=0x014e, f01=0x0190, f02=» * & * & 2 * & = ` * & [ n * & y * & p
0x43feb8…44004c Dummy {f00=0x014e, f01=0x0190, f02=» t * & * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x44004c…4401e0 Dummy {f00=0x014e, f01=0x4022, f02=» > @ * & - R P @ * & K R A 0 p 1 b p + " 2 p n * & i ` n e * & T A0 , (
0x4401e0…440374 (4, 32) Dummy {f00=0x014e, f01=0x4110, f02=» > @ IDENT FMOVE P,REL=11.0,810128,870136941100 FMOVE F FMOVE V I:EVA0 h I:EVA5 z , ( B & + P I:RT1 _ P (
0x440374…440508 Dummy {f00=0x014e, f01=0x40cc, f02=» > @ IDENT TYPET P,REL=11.0,810128,870136941100 TYPET F TYPET V I:EVA0 h I:RT1 z ( $ D ;d # + @ :RT1 RETURN TO INTERPRETER P END @
0x440508…44069c Dummy {f00=0x014e, f01=0x40fc, f02=» > @ IDENT ICLEAR P,REL=11.0,810128,870136941100 ICLEAR F ICLEAR X I:EVA0 l I:RT1 ~ , ( @ #0 0T ' ' _ T $ @
0x44069c…440830 Dummy {f00=0x014e, f01=0x411c, f02=» > @ IDENT EMPTYT P,REL=11.0,810128,870136941100 EMPTYT F EMPTYT X I:EVA0 l , ( @ #0 0T & ! T ~ I:RT1 , ( P & ! X T C T T !P
0x440830…4409c4 Dummy {f00=0x014e, f01=0x0190, f02=» > @ IDENT T:STIN P,REL=11.0,810128,870136941100 STRIN1 F STRIN1 X T:STEV l , ( @ X x & Y " X R ~ T:RNOK , ( W R P _ Y $ T:LOFS I:E
0x4409c4…440b58 Dummy {f00=0x014e, f01=0x0190, f02=» h , ( u [ z [ }T 0W 3R V : , ( %W X $ X " R W V 8 , ( R W V % _ [ h I:MOV , ( " D $ D Z P Z T:GRFC , ( @ % z " * {
0x440b58…440cec Dummy {f00=0x014e, f01=0x402e, f02=» V P @ *
0x440cec…440e80 Dummy {f00=0x014e, f01=0x0190, f02=» > @ IDENT T:STOU P,REL=11.0,810128,870136941100 STROU1 F STROU1 X T:STEV l T:LOFS ~ * & @ X x & Y " I:EVA0 T:LOPS , ( !0P <
0x440e80…441014 (4, 33) Dummy {f00=0x014e, f01=0x40fe, f02=»R W V r T:DUPX T:GRFC $ , ( y & Y $ 8 " X X 6 T:ROK f T:RNOK v $ x ( y $ 4 0 1P< ;T( AT GW$ WP cW mW wP R W V, @ !0P <
0x441014…4411a8 Dummy {f00=0x014e, f01=0x40f4, f02=» > @ IDENT T:STEV P,REL=11.0,810128,870136941100 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ , ( H Y Y & ( : & @ P RTN PS P I
0x4411a8…44133c Dummy {f00=0x014e, f01=0x0190, f02=» > @ IDENT T:EDFL P,REL=11.0,810128,870136941100 T:EDFL F T:EDFL X T:PRKB l T:PRDY ~ T:PM1 T:PM2 T:CASP , ( I$ Y , ( ( x P Y *
0x44133c…4414d0 Dummy {f00=0x014e, f01=0x0190, f02=» X 0 v , ( s P X T 5 ! Y * T:SCUW F T:CLRD X , ( y X V X X ( j , ( x C ( Y * , ( X Y , X X C & , ( C
0x4414d0…441664 Dummy {f00=0x014e, f01=0x018e, f02=» X l , ( I *YrP y X " x Y X " T T:BELL < , ( i Y _ _ B U C Q N T:CLR1 ~ T:CLR2 , ( P C D X , ( X * $" ~_> @ Y X * _R X , (
0x441664…4417f8 Dummy {f00=0x014e, f01=0x0190, f02=» , ( ! @ " X # X * y _< X , ( ? # X * y X 1 1 4 , ( ] X !@T X $ " P y d T:CLIT T:EKEY , ( } @ _ x T X H , ( X X * , )$ P
0x4417f8…44198c Dummy {f00=0x014e, f01=0x405c, f02=»T {U Q < V P eT uP T P F@ X
0x44198c…441b20 Dummy {f00=0x014e, f01=0x0190, f02=» > @ IDENT T:DYKI P,REL=11.0,810128,870136941100 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL F T:DYKI T:PRKB T:PRDY I:EVA7 * & H ' Y
0x441b20…441cb4 (4, 34) Dummy {f00=0x014f, f01=0x0190, f02=» X l T:CASP * & y ! T _ y C Q " T T:CLRD L , ( X ! X ^ , ( X ! x Y~ Y _ X "@P B , ( R y C B P 9 V _F9 , ( V X ! T X !@X
0x441cb4…441e48 Dummy {f00=0x014f, f01=0x0190, f02=» B y " y $ c C T:CLR1 X & T:CLR2 f : T:SCUW N , ( Q _$ _ y _6 ( x X@ X ` , ( qA X # C _. B , ( ]d P C Q X8_H x XD @ Y , ( c C y
0x441e48…441fdc Dummy {f00=0x014f, f01=0x0190, f02=» T:IOWR , ( # B P B C : T:CLIT : F , ( ' + X Z T:LOFS I:EVA0 T:LOPS T:CLMI , ( A ( ( T:P
0x441fdc…442170 Dummy {f00=0x014f, f01=0x4104, f02=» , ( B Y Y . : & " " $ : 8 H D ! ! n # aTf i mR s J }T Q T Z P R P V b < 8 ` VV T 'P +Q( [ * P Q8 Z P & a j {V P @ T:P
0x442170…442304 Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:UPDF P,REL=11.0,810128,870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x442304…442498 Dummy {f00=0x014f, f01=0x4032, f02=» =T P @ .870136941100 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x442498…44262c Dummy {f00=0x014f, f01=0x018e, f02=» > @ IDENT T:DUPL P,REL=11.0,810128,870136941100 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x44262c…4427c0 Dummy {f00=0x014f, f01=0x4052, f02=» UD : CT OV $ ` <@ N:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x4427c0…442954 (4, 35) Dummy {f00=0x014f, f01=0x4140, f02=» > @ IDENT T:GETC P,REL=11.0,810128,870136941100 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x442954…442ae8 Dummy {f00=0x014f, f01=0x4124, f02=» > @ IDENT T:GETA P,REL=11.0,810128,870136941100 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x442ae8…442c7c Dummy {f00=0x014f, f01=0x410e, f02=» > @ IDENT T:TSTC P,REL=11.0,810128,870136941100 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x442c7c…442e10 Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:TFWD P,REL=11.0,810128,870136941100 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x442e10…442fa4 Dummy {f00=0x014f, f01=0x4132, f02=» Y ( Y 09H Y * T:TABE * & = Y 4 Y 2 Y 69h Q X :h Y 0 2 T:SCR2 ` T:TABC r , ( [ W U X Q W Y 0 T:TABN w 8 4 W W W W W W !W MQ ]W
0x442fa4…443138 Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:DISP P,REL=11.0,810128,870136941100 T:PRIN T:DISP T:ERAS F T:PRIN h T:GDSP | T:DSM T:EDWI T:GRFC , ( D 9H Y T:GTIP T
0x443138…4432cc Dummy {f00=0x014f, f01=0x0190, f02=» 0 X +" X *9h P R , ( Q Y ?_ P P Y +W T:TABD P , ( q Y + W T W b , ( Q W Y + U T:TABC , ( Q P W W Y ( C T
0x4432cc…443460 Dummy {f00=0x014f, f01=0x4146, f02=» h , ( 0 X 0 X 2] X 8 Y 0 : X 0 T:WRDY 8 , ( % :H* : X 2T Y 2 : J T:EDIO z $ C @ C 1 B ] : H D ! !W %W KP2 OR YP _P gW^ k < w . }WL T . W> Q W , ( U
0x443460…4435f4 (4, 36) Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:GETF P,REL=11.0,810128,870136941100 T:GETF T:GTIT T:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x4435f4…443788 Dummy {f00=0x014f, f01=0x405a, f02=» 0 p W 6 2 : ! ( U ! 0 d ! D@ ! V:GTIP F T:GETF h T:PRDY | , ( @ X +! U 9K Y ( Y T:TABC T:TABN T:GTIT ( T:GRFC
0x443788…44391c Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:REWR P,REL=11.0,810128,870136941100 " . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP " F T:IOWR " x T:SCUW " , ( C ( C : " T:CLRD * " T:REWR 0 " T:PRDY " ,
0x44391c…443ab0 Dummy {f00=0x014f, f01=0x4160, f02=» _ X D D : K " I:EVA3 # 0 I:EPIC # B , ( } $ + Q 2 P P # T T:LOPS # , ( ( B X # V # I:EVA0 # I:ECPY # I:EVI # , ( :
0x443ab0…443c44 Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:DEDT P,REL=11.0,810128,870136941100 $ . * T:TABC T:TABD T:TABE T:TABN T:SCR2 $ F I:EVNO $ x I:ESKI $ I:EVA0 $ I:EBRI $ I:EBRB $ I:EBR $ , (
0x443c44…443dd8 Dummy {f00=0x014f, f01=0x0190, f02=» $ z T:DSL % I:RET % * T:TABC * % : T:TABD . % N T:TABE 2 % b , ( ! W W X % v T:EDWI % , ( 7 0Q Y ( Y *P % I:EVT % I:EDSK % *
0x443dd8…443f6c Dummy {f00=0x014f, f01=0x0190, f02=» X 0P V _` " P T & % T:LOPS & , , ( (W " P Y 0] Y & > T:EDWF & n , ( (_t " X _. * X *# P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x443f6c…444100 Dummy {f00=0x014f, f01=0x40a4, f02=» y 6 Y ( : X (;n . & H D ! -W 1W 9Q = A MP Qp P P: Vp P4 T WT P P W ' " P P -W 5T 9W ' n V ' @ ' P B & , ( 1 *W " P X & T:SCR2 & * & X$ C : X
0x444100…444294 (4, 37) Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:ENLI P,REL=11.0,810128,870136941100 ( T:DNL T:DSL ( F I:EVNO ( I:ECPY ( n I:EPIC ( I:ETXT ( I:ETAB ( I:EBRI ( I:EBRB ( I:EBR ( * &
0x444294…444428 Dummy {f00=0x014f, f01=0x0190, f02=» ( I:ESKI ) . I:EXPY ) @ I:RET ) R T:DSL * ) b T:GRFC ) t , ( ! " $ & Y . Y , ) T:DNL 8 ) , ( 7 W & Y . X ( X ." P X 0R ) T:WRDY ) ,
0x444428…4445bc Dummy {f00=0x014f, f01=0x417a, f02=»CTR ) , ( @ X 2Q Y *T . : " P X * , ( 0U X *# P P T " * < T:ENIN * l , ( T : Y . 0 Y ( * ~ , ( & Y *T " T ! 1 W ! ) * . : * H D ! 8 # * 7W
0x4445bc…444750 Dummy {f00=0x014f, f01=0x0190, f02=» > @ IDENT T:EINP P,REL=11.0,810128,870136941100 + " T:PKI T:PINP T:TKI T:TINP + F T:PKI + l T:PINP + ~ T:GRFC + I:ETAB + I:EVIN + , ( I P & + , ( Y *T
0x444750…4448e4 Dummy {f00=0x014f, f01=0x0190, f02=»Q X &P V D ! P + | T:TINP , T:TKI , 0 * & u $ ! P %_ : , B , ( V Y " X .9H $ , p , ( P & X ( " Q Y +Q R , , ( " P W " U Y , " Q X . , , (
0x4448e4…444a78 Dummy {f00=0x014f, f01=0x0190, f02=» M X (# P X # :! R W , T:ENIN - 0 T:ENI - B * & m T @ Y (W Y , W - R I:EXIT - , ( Y ( : X *:h X (! - , ( # P X & V L T W X , X 0 - , ( P T X *
0x444a78…444c0c Dummy {f00=0x014f, f01=0x0190, f02=» , ( @ % P Y 8 & X 8 X $ . , ( E@ W _ " P X ( T X & V . 4 , ( c H "@T P V Y . d , ( X (P X ( . T:CLMI . , ( P 8 Y 0 X 2P X . , (
0x444c0c…444da0 Dummy {f00=0x014f, f01=0x0190, f02=» P : : . x , ( "0P $ T W %T / , ( ; : : Y ( X $ Y X " Y X & / H , ( [ Y X < Y > : Y : X : / x , ( y X ( T X & V H " V / T:CLDY / ( $ Y : X $ X :
0x444da0…444f34 (4, 38) Dummy {f00=0x0150, f01=0x4110, f02=»Pl Pf %P +P / 3P< / b H D ! 7 @ 9WZ IP< KQ SP2 aR$ cW g @ k oT$ wW W P Tb W P@ 0 H D ! T, T @ P !P* ) -P| IWh QP [T kTF o sP6 P h 0 j @ < A P P V T P P #P )T -W 1T T V 0 0
0x444f34…4450c8 Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:ENIN P,REL=11.0,810128,870136941100 1 T:ENIN T:ENI T:EVOU 1 F T:ENIN 1 f T:ENI 1 z , ( X Y " X Y $ X Y & X >W X 1 T:LOFS 1 , ( ! < Y = " 1 I:EGTB
0x4450c8…44525c Dummy {f00=0x0150, f01=0x0190, f02=» X (P 1 n T:WRDY 2 , ( W X & V D ! P @ W X 2 , ( W Y ( : X , Y X $ Y 2 P , ( X &T Y Y Y W V $ 2 , ( :H D Y D :H Y ! P V 2 I:EVA0 2 I:EVA1 2 , (
0x44525c…4453f0 Dummy {f00=0x0150, f01=0x411a, f02=» 2 , ( Q : 2' " P T 3 I:EVA3 3 8 I:EPIC 3 J , ( mD W : N : 3 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 3 ( $ P W )P /W A X aP gT qW 3
0x4453f0…445584 Dummy {f00=0x0150, f01=0x415c, f02=» > @ IDENT T:SETC P,REL=11.0,810128,870136941100 4 T:SETC T:SCUR 4 F T:SETC 4 ` T:PRDY 4 t T:GRFC 4 T:EDWI 4 T:RCTS 4 , ( H C 4 T:SCUR 4 T:WRD
0x445584…445718 Dummy {f00=0x0150, f01=0x40e2, f02=» > @ IDENT T:CLMI P,REL=11.0,810128,870136941100 5 T:CLMI 5 F T:CLMI 5 X , ( "0P ' Q W ' 5 l ! Y : 5 P Q W 5 ( 5 @ 5 A2,0 PCLRM20 EQU * P SCR
0x445718…4458ac Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:ATTF P,REL=11.0,810128,870136941100 6 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 6 F T:CLDY T:PRKB T:PRDY 6 T:DETF 6 T:ATTF 6 I:EVA6 6 I:FFSN 6 , (
0x4458ac…445a40 Dummy {f00=0x0150, f01=0x0190, f02=» Y Y Y < V E B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x445a40…445bd4 (4, 39) Dummy {f00=0x0150, f01=0x4020, f02=»W 7 8 @ 8 B 6 T:RNOK < 7 . T:GRFC @ 7 B T:WRDY H 7 V T:EDIO 7 j * & ; X _ v : C C 7 | T:CLDY 7 T:PRKB l 7 , ( Y @ : C : @ 7 T:P
0x445bd4…445d68 Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:LSEG P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x445d68…445efc Dummy {f00=0x0150, f01=0x401a, f02=» f : @ : G P,REL=11.0,810128,870136941100 9 & " T:LOFS T:LOPS T:LSEG T:CSEG 9 F T:LSEG 9 p T:CSEG 9 , ( ( R : V E V D ' 9 , ( ! $ T ( W P 9 I:RT1 9
0x445efc…446090 Dummy {f00=0x0150, f01=0x4146, f02=» > @ IDENT T:DC00 P,REL=11.0,810128,870136941100 ; DCREAD DCWRTE DCEXCH ; F T:FDS0 ; h DCREAD ; z T:DCR1 ; DCWRTE ; T:DCW1 ; DCEXCH ; T:DCE1 ; , ( I$
0x446090…446224 Dummy {f00=0x0150, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,REL=11.0,810128,870136941100 < SWITCH < F T:SWIT < X SWITCH < j @ < ~ < @ < ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x446224…4463b8 Dummy {f00=0x0150, f01=0x40da, f02=» > @ IDENT T:TEI0 P,REL=11.0,810128,870136941100 = TESTIO ABORT = F T:TEST = ^ TESTIO = p T:ABOR = ABORT = H = = @ = . P*
0x4463b8…44654c Dummy {f00=0x0150, f01=0x40de, f02=» > @ IDENT T:CLO0 P,REL=11.0,810128,870136941100 > SETTIM GETTIM > F T:SETT > ` SETTIM > r T:GETT > GETTIM > H > > @ > . P*
0x44654c…4466e0 Dummy {f00=0x0150, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,REL=11.0,810128,870136941100 ? DELAY ? F T:DELA ? V DELAY ? h @ ? z ? @ ? * ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x4466e0…446874 (4, 40) Dummy {f00=0x0150, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,REL=11.0,810128,870136941100 @ GETTID @ F T:GETI @ X GETTID @ j @ @ ~ @ @ @ ~ . P* CREDIT ASSEMBLER SUBROUTINE ENTRIES * . P*
0x446874…446a08 Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:DC P,REL=11.0,810128,870136941100 A 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 A F T:DCRE A T:GDSP A T:DCR1 A T:DCWR A T:DCW1 A T:EDIO A , ( @@ /
0x446a08…446b9c Dummy {f00=0x0150, f01=0x40ca, f02=»:EVA0 A , ( 7 ' / C B , ( Q$ C B > & " k &P C & C : B n V W V 1 V B B @ B T:DCW1 A T:EDIO A , ( @@ /
0x446b9c…446d30 Dummy {f00=0x0150, f01=0x40b6, f02=» > @ IDENT T:SWI P,REL=11.0,810128,870136941100 C T:SWIT C F T:SWIT C X I:RT1 C l ( C | C @ C E LEVEL P* PT:SWIT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET
0x446d30…446ec4 Dummy {f00=0x0150, f01=0x4174, f02=» > @ IDENT T:TEI P,REL=11.0,810128,870136941100 D T:TEST T:ABOR D F T:TEST D ` T:GDSP D t I:RT1 D T:ABOR D * & @ "Q V I D T:KIAA D , ( ( T
0x446ec4…447058 Dummy {f00=0x0150, f01=0x4178, f02=» > @ IDENT T:CLO P,REL=11.0,810128,870136941100 E & " T:SETT T:GETT T:SETD T:GETD E F T:SETT E p I:EVA0 E I:RT1 E T:GETT E * & @ ( E T:SETD . E , (
0x447058…4471ec Dummy {f00=0x0150, f01=0x40d0, f02=» > @ IDENT T:DEL P,REL=11.0,810128,870136941100 F T:DELA F F T:DELA F X I:EVA0 F l I:RT1 F ~ ( $ @ ( F F @ F RY * P LDK WK1,2 NOT BINARY; SET ERROR CODE P
0x4471ec…447380 Dummy {f00=0x0150, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,REL=11.0,810128,870136941100 G MASK G F MASK G V I:EVA0 G h I:RT1 G z ( $ D V G G @ G TYPE? P RF(NZ) MSK010 NOT BINARY P XIF P
0x447380…447514 (4, 41) Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:SCD P,REL=11.0,810224,870136941100 T:ACTV T:PAUS T:RSTR F T:ACTV h , ( 2 ;B P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x447514…4476a8 Dummy {f00=0x0150, f01=0x408e, f02=» ( W V x I:RT1 y V I ( ( $ ( P0 #T + X ?W6 I X WW uW V L x@ P J | P:BAS I:NTPB , ( ! T ( T:BAT
0x4476a8…44783c Dummy {f00=0x0150, f01=0x0190, f02=» > @ IDENT T:UNUS P,REL=11.0,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x44783c…4479d0 Dummy {f00=0x0150, f01=0x402a, f02=» 5RF OQ0 @ &,810224,870136941100 T:UNUS F T:UNUS X , ( 2 ' >A >A 2 $ l P:MTAB , ( ! V L ;a ; R @ ( 8 , ( ? ? X Q ( V )<B
0x4479d0…447b64 Dummy {f00=0x0150, f01=0x4096, f02=» > @ IDENT T:EXIT P,REL=11.0,810128,870136941100 N T:EXIT N F T:EXIT N X ( N l N @ N KM P DATA 3 P* P END @ LDKL A6,-1 P ABL T:UERR END @ P ADR
0x447b64…447cf8 Dummy {f00=0x0150, f01=0x413a, f02=» > @ IDENT T:GTCW P,REL=11.0,810128,870136941100 O GETCW O F T:GDSP O V GETCW O h I:EVA0 O z T:BINB O * & H V 0V B B O T:GTCW O I:RT1 O W
0x447cf8…447e8c Dummy {f00=0x0150, f01=0x40cc, f02=» > @ IDENT T:GTID P,REL=11.0,810128,870136941100 P T:GETI P F T:GETI P X I:EVA0 P l I:RT1 P ~ $ @ V G 9h ' P P @ P VALUE " P SC WK1,1,OP2A STORE FOR USER P SRL WK1
0x447e8c…448020 Dummy {f00=0x0150, f01=0x4184, f02=» > @ IDENT T:DMR P,REL=11.0,810128,870136941100 & " T:DREA T:IREA T:XREA T:IXID F T:DREA p T:REAX T:SCW2 T:IO2 T:IREA , ( $ T:XREA
0x448020…4481b4 (4, 42) Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:DMW P,REL=11.0,810128,870136941100 > : T:SWRI T:DWRI T:IWRI T:XWRI T:DREW T:CREW T:IREW F T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI , ( / W
0x4481b4…448348 Dummy {f00=0x0151, f01=0x40a2, f02=» T:CREW > T:IREW L , ( 5D" / / ( M X W | @ RIX T:IO1 T:XWRI T:DWRI , ( / W
0x448348…4484dc Dummy {f00=0x0151, f01=0x416a, f02=» > @ IDENT T:DMDI P,REL=11.0,810128,870136941100 T:DDIS T:CDIS T:IDIS F T:DDIS h T:DSB | T:SCW2 T:IO2 T:CDIS , ( $ C <H / T:IDIS
0x4484dc…448670 Dummy {f00=0x0151, f01=0x4162, f02=» > @ IDENT T:DMPO P,REL=11.0,810128,870136941100 T:DPOS T:IPOS F T:DPOS ` T:DSB t T:SCW2 T:GTBY T:IO2 , ( H@ C <H / T:IPOS T:WRIX
0x448670…448804 Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:DCC P,REL=11.0,810128,870136941100 X F B T:COPE T:COP1 T:CCLO T:CCL1 T:CCL2 T:ACON T:ACO1 T:ACO2 X F F B T:ACO3 T:PCON T:PCO1 T:PCO2 T:DISC T:DIS1 T:DIS2 T:DIS3 X T:DIS4 T:OPT X T:COPE X
0x448804…448998 Dummy {f00=0x0151, f01=0x018e, f02=» T:CCLO " X T:CCL1 & Y T:CCL2 * Y & , ( W W /" C Y : T:ACON P Y j T:ACO1 T Y ~ , ( 7 C C P P _2 W Y T:ACO2 X Y T:ACO3 Y T:PCON f Y T:PCO1
0x448998…448b2c Dummy {f00=0x0151, f01=0x0190, f02=» T:DIS3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x448b2c…448cc0 Dummy {f00=0x0151, f01=0x400c, f02=» Z @ [ 3 Z T:DIS4 Z , ( s /'W W W W W Z , T:STCW Z , ( // C C C P P Z n * & C P P Z T:OPT Z I:EVA0 Z &<H
0x448cc0…448e54 (4, 43) Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:DCR P,REL=11.0,810128,870136941100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x448e54…448fe8 Dummy {f00=0x0151, f01=0x403a, f02=» v W P #W 3P ] D ] $@ ] 61100 & " T:RECE T:REC1 T:AREC T:ARE1 F T:RECE p T:REC1 T:REAX T:OPT T:IO2 , ( W C C P T:AREC
0x448fe8…44917c Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:DCS P,REL=11.0,810128,870136941100 ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x44917c…449310 Dummy {f00=0x0151, f01=0x403e, f02=» _* ^ t W P %W 7P _ H _ (@ _ : ^ & " T:SEND T:SEN1 T:ASEN T:ASE1 ^ F T:SEND ^ p T:SEN1 ^ T:WRIX ^ T:OPT ^ * & W / C C P ^ T:IO1 ^ T:ASEN " ^
0x449310…4494a4 Dummy {f00=0x0151, f01=0x018e, f02=» > @ IDENT T:IO P,REL=11.0,810713,870136941100 J F " T:WRIT T:READ T:SREA T:KI T:NKI T:EDWR T:DSC0 T:DSC1 T:DSC2 F H D ! T:EDWE T:EDWF T:EDWI T:EDIO T:XSTA T:WAIT T:IO1 T:IO2 T:IO3 D @ T:IO5 T:FDS0 T:FDSP T:GDSP T:KIPR
0x4494a4…449638 Dummy {f00=0x0151, f01=0x0190, f02=» p T:KI T:NKI T:WRIT , T:WRIL @ T:LWRI T , ( W / h T:WRIX " T:WRIO & I:EVA0 , ( ! _ C P <H T:S
0x449638…4497cc Dummy {f00=0x0151, f01=0x0190, f02=» V C / <H : C T:DSC1 " , ( } C W C 9HR 6 T:DSC2 f , ( ' W 781"&$ 39#$;< '()*+,-! z T:XSTA , ( P _J T:WAIT T:M
0x4497cc…449960 Dummy {f00=0x0151, f01=0x0190, f02=» ( v , ( 7 0 W T:IO1 F T:IO2 ` X T:IO3 d j T:IO5 p | T:IORE t , ( W : 1W C C ( ' P T:GCW2 , ( w @ P V ,V W B
0x449960…449af4 (4, 44) Dummy {f00=0x0151, f01=0x0190, f02=» I:EDW , ( B P B P B 5 : T:EDWE > T:EDWF R , ( @ C C C B f T:EDWI , ( B P C : V I C T:EDIO , ( B : (
0x449af4…449c88 Dummy {f00=0x0151, f01=0x018e, f02=» & R r , ( i V C : B T:FDS0 B , ( T T T V : 2 V T:GDSP P:MTAB I:EVTO * & ' W 2 6 2 @ & " T # ' ?D I:FML , ( @
0x449c88…449e1c Dummy {f00=0x0151, f01=0x0190, f02=» , ( : _: L C L C T:DSB ( 8 T:FDSP 2 J , ( B C : : : ^ T:GTBY L , ( ? C : : ( T:SCW2 T:DSCX j I:EVA2 ,
0x449e1c…449fb0 Dummy {f00=0x0151, f01=0x413a, f02=» W 6 d " % ( - < 1P G L K ` O ( S < _P eV u ( y L H D !V W X R W X < P W W| L [W sP0 H H D ! w }P& V W P z P P P )P - z @ < 9 ( = < cR iV T T T W T
0x449fb0…44a144 Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:CW P,REL=11.0,810615,870136941100 F B T:GCW2 T:GTCW T:SCW2 T:STCW T:SCW0 T:BCDB T:BINB T:KIAA F T:KIAC T:STCW I:EVA2 T:SCW0 , ( @ #0 T & C C : C
0x44a144…44a2d8 Dummy {f00=0x0151, f01=0x0190, f02=» X R _ S W T:GTCW , ( 4 _T :#0 T B 'W B B 4 T:BINB d , ( " : x , ( P P L R R , ( _ R _ # Q R , (
0x44a2d8…44a46c Dummy {f00=0x0151, f01=0x0190, f02=» h , ( _ B@ ' d w5 1 T:KIAA 8 T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x44a46c…44a600 Dummy {f00=0x0151, f01=0x404e, f02=» X R R Q P 'P 7P GR T P T 8@ J T:KIAC L T:GCW2 ` , ( #0 T t T:SCW2 , ( @ B ' : B B : V C , ( @ P C #0 T &
0x44a600…44a794 (4, 45) Dummy {f00=0x0151, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x44a794…44a928 Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x44a928…44aabc Dummy {f00=0x0151, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x44aabc…44ac50 Dummy {f00=0x0151, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x44ac50…44ade4 Dummy {f00=0x0151, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x44ade4…44af78 Dummy {f00=0x0151, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x44af78…44b10c Dummy {f00=0x0151, f01=0x4098, f02=» > @ IDENT T:ABUF P,REL=11.0,810128,870136941100 r T:ABUF r F M r X T:ABUF r n r @ r IN T:ABUF f & !T:ABUF RES SIZE KIA/NKIA SAVEAREA P EJECT T:ABUF END @
0x44b10c…44b2a0 Dummy {f00=0x0151, f01=0x414a, f02=» > @ IDENT WRITEL P,REL=11.0,810128,870136941100 s WRITEL s F WRITEL s X T:FDS0 s l T:DSM s ~ I:EVA0 s , ( H / C s T:IO2 s , ( @ &P C & C
0x44b2a0…44b434 (4, 46) Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:NTP P,REL=11.0,810630,870136941100 B > I:TRC I:NTP I:NTPA I:NTPB I:NTPR I:RST I:RT0 I:RT1 I:RT2 F I:MOV I:ADD I:SUB I:CMP I:MUL * & T
0x44b434…44b5c8 Dummy {f00=0x0152, f01=0x0190, f02=»:DLT I:MCH I:XCP I:EDS , , ( / < I:TRC l I:RST D ~ T:CSEG I:NTPA H I:NTPB H P:MTAB , ( A V 7 @ " ! P
0x44b5c8…44b75c Dummy {f00=0x0152, f01=0x0190, f02=» 9c D 9a1 P I:EVA2 $ * & $ & Q W 6 I:RT2 d I:RT1 v I:RT0 , ( :aW _J( 2 P T:BAT , ( V W _ 2 # ;B V T ,
0x44b75c…44b8f0 Dummy {f00=0x0152, f01=0x0190, f02=» 8 j T:PAT , ( M ^n D . V @ 2 ! 9B V T , ( m@ *W V P D $ V 6 V J , ( % V E W 2 % z T:CAT , ( ^ 6 E 7_ 2 # L , ( , $ 2#
0x44b8f0…44ba84 Dummy {f00=0x0152, f01=0x4170, f02=» W F z I:EVB , ( P E . V & * c H L 'W 'W '_8 Z H D ! H L D ! # % ' ) + - = l ~ H D ! ? h A r C t [P eP q r T P Q W W P W8 T
0x44ba84…44bc18 Dummy {f00=0x0152, f01=0x018e, f02=» > @ IDENT I:EVA P,REL=11.0,810128,870136941100 y J F " I:EVA0 I:EVA1 I:EVA2 I:EVA3 I:EVA5 I:EVA6 I:EVA7 I:EVB I:EVI y F I:FML I:EVTO y P:MTAB y , ( :l:d:h y I:EVA2 y I:E
0x44bc18…44bdac Dummy {f00=0x0152, f01=0x0190, f02=» y f , ( 9 # W @ $ E " T ; [ z , ( W # :H 2 T Z L z 8 , ( @ w L D V W # z h , ( L D V $ W D V z I:EVA0 z , ( @ L , W 6 2 W " z
0x44bdac…44bf40 Dummy {f00=0x0152, f01=0x0190, f02=» Z Z z , ( 3 : R ; { 0 , ( S 6 : F _v :B , { ` , ( s (V ; H [ [ [ { , ( z ;AV Z H # { , ( ;
0x44bf40…44c0d4 (4, 47) Dummy {f00=0x0152, f01=0x0190, f02=» & @ $ ! P { , ( 1 [ 6 [ Z 7 . Z | I:FML ^ | P , ( Q 7 : T # ( | b I:EVTO | , ( H q : " T # :A ( | , ( @ @ & " P ! P [ :;H 2 | , (
0x44c0d4…44c268 Dummy {f00=0x0152, f01=0x40f4, f02=» " # ^;b ; | : ;f" #?_" } * H D ! #W 'W -P 1W = ?W4 KT> [ ^ kT V, W ^ V W W } J D @ W$ P& Pd ^ Wv yVv V$ P P P R W& } } @ } :;H 2 | , (
0x44c268…44c3fc Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:ADS P,REL=11.0,810128,870136941100 ~ I:ADD I:SUB ~ F I:ADD ~ I:SUB ~ n , ( W " T & T + : ~ I:CPA ~ , ( ! * & !@P `1` P Q ~ " ? [
0x44c3fc…44c590 Dummy {f00=0x0152, f01=0x0190, f02=» $ P T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x44c590…44c724 Dummy {f00=0x0152, f01=0x4008, f02=»@ T ~ v , ( R R ` ; <( , ( Q P # W " <! =# T W = Z F , ( P _ V ^< `_@ v , ( R Q <# =_ P :" P * U , ( 5 P 1`! T "# 9e! # K
0x44c724…44c8b8 Dummy {f00=0x0152, f01=0x4166, f02=» > @ IDENT I:CMP P,REL=11.0,810128,870136941100 I:CMP F I:CMP V , ( P " T * & : * & h I:CPA , ( ! !`P :J +_ +Q , ( A _0 , T T XD W 1
0x44c8b8…44ca4c Dummy {f00=0x0152, f01=0x4172, f02=» > @ IDENT I:CPA P,REL=11.0,810128,870136941100 I:CPA F I:CPA V * & R W h , ( ( V W Q P W ! W V , ( ? P , V W Q P W $ W V * & _ P
0x44ca4c…44cbe0 Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:MOV P,REL=11.0,810209,870136941100 I:MOV I:MVC F I:MOV I:MVC n , ( $0#0;b P P P , ( ! 0 - P _ 4 , ( A V W Q P ) P ! P ! P
0x44cbe0…44cd74 (4, 48) Dummy {f00=0x0152, f01=0x0190, f02=» p , ( _ ' d V W V , ( 4! P < X 4 @ , ( 9d $ & ! R + : p , ( ! V W R 4 0R Y 7 Y& , ( A P Z,;D 9_8 8 _< V , ( a
0x44cd74…44cf08 Dummy {f00=0x0152, f01=0x4112, f02=» Q V V 7 Y P _& & Q , ( 9d! )0 + P 7 Y Z $ 0 _ : ` H D ! t P Pd P /PN IQ KP SP YP _P qP wT P Q x 4 0 R +R 1R CP P( T WJ V P. P
0x44cf08…44d09c Dummy {f00=0x0152, f01=0x4140, f02=» > @ IDENT I:MMOV P,REL=11.0,810128,870136941100 I:MMOV F I:MMOV X I:EVA2 l , ( 2' ~ I:EVA0 , ( [ [ Z I:MOV & " =
0x44d09c…44d230 Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:MUL P,REL=11.0,810128,870136941100 I:MUL I:SH1L F I:MUL ^ , ( V ) " T *V &V p , ( ! : V S W P 9 S W _ , ( A V P W T V E + , ( a
0x44d230…44d3c4 Dummy {f00=0x0152, f01=0x0190, f02=» [ , ( P Z P [ 9a Z ( , ( $" T 9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x44d3c4…44d558 Dummy {f00=0x0152, f01=0x4066, f02=» l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP P@ b9d! P P [ Z w X I:ADD , ( [ P V H )_ , ( _X z R z ! P 1` { , ( / V (9h
0x44d558…44d6ec Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:DIV P,REL=11.0,810128,870136941100 I:DIV I:SH1R F I:DIV ^ , ( " T *V &V p ! P = , ( ' ;@ R P W ;a , ( G =a P " R & R
0x44d6ec…44d880 Dummy {f00=0x0152, f01=0x0190, f02=» [ [ x I:MOV I:NTFA , ( &! P 0 I:SUB ` , ( z " ! ! p , ( R 2` { z " P ! R 2` { 1 I:CPA , ( ! { [ Z
0x44d880…44da14 (4, 49) Dummy {f00=0x0152, f01=0x0190, f02=» { R [ _ , ( Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x44da14…44dba8 Dummy {f00=0x0152, f01=0x4040, f02=» 7Q CP W _Q@ sR Q* R W *@ < Z ! Z $ & * & P Z %_N [ Q V * & R [ Z { , ( z 9e! W Z I:SH1R , ( : V I
0x44dba8…44dd3c Dummy {f00=0x0152, f01=0x40da, f02=» > @ IDENT I:NTF P,REL=11.0,810128,870136941100 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ P ABR* WK2 P P END ,PS
0x44dd3c…44ded0 Dummy {f00=0x0152, f01=0x0190, f02=» > @ IDENT I:EDT P,REL=11.0,810128,870136941100 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY I:RET , ( !!
0x44ded0…44e064 Dummy {f00=0x0152, f01=0x0190, f02=» I:EVA5 I:EVB I:EGTB I:EVI 2 I:EVA3 B I:EVA0 T * & AUT f I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x44e064…44e1f8 Dummy {f00=0x0152, f01=0x018e, f02=» , ( { 6 K K I:EDT 4 I:ED1 F I:EDW X , ( K K V K : j I:EVA6 , ( @ R B " V , ( V Z P 2 " T W
0x44e1f8…44e38c Dummy {f00=0x0152, f01=0x0190, f02=» , ( 7 Z [ Z P I:RET p 4 , ( W $ [ V 7_ F I:EXIT v v P:MTAB , ( u BW Z @ " &! P $ , ( Z 7 Z Z P $ I:FFSN
0x44e38c…44e520 Dummy {f00=0x0152, f01=0x018e, f02=» , ( P v I < : J I:ECPY 4 I:ETXT & H I:EXPY & , ( Q : P 4 ! T _ p I:ECTR 8 I:ESL B , ( + P 4 W K W W + I:ENL L
0x44e520…44e6b4 (4, 50) Dummy {f00=0x0153, f01=0x4166, f02=» I:EFIL , ( i *W X & , J K : I:SCB H V : 1 Z H D ! U Y & [ e b g v i l k 6 m L s u B y & { p > > x H D ! @ P T W T W = SP uW P P R Q P Qx
0x44e6b4…44e848 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT I:EPIC P,REL=11.0,810625,870136941100 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ !FF A
0x44e848…44e9dc Dummy {f00=0x0153, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x44e9dc…44eb70 Dummy {f00=0x0153, f01=0x4120, f02=» } !++P !-- z ;$# + ^$ _* $ T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T AP GT KW OR S P Wn W8 Wf V H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U kP
0x44eb70…44ed04 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT I:EDTE P,REL=11.0,810128,870136941100 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x44ed04…44ee98 Dummy {f00=0x0153, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x44ee98…44f02c Dummy {f00=0x0153, f01=0x40ea, f02=» > @ IDENT I:EDS P,REL=11.0,810128,870136941100 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ P2E,OP1E END OF MAIN STRING
0x44f02c…44f1c0 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT I:STR P,REL=11.0,810128,870136941100 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x44f1c0…44f354 (4, 51) Dummy {f00=0x0153, f01=0x0190, f02=» R # P W ) v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x44f354…44f4e8 Dummy {f00=0x0153, f01=0x400e, f02=» @ v I:EVS2 , ( V E ( I:CPY X I:XCP j , ( W [ : | , ( Z !0P R 4 R :d" 8 R ! , ( :DW ! 9 R R _. :
0x44f4e8…44f67c Dummy {f00=0x0153, f01=0x4152, f02=» > @ IDENT I:EVS P,REL=11.0,810128,870136941100 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x44f67c…44f810 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT STRIX P,REL=11.0,810128,870136941100 STRIX STROUX USRFMT F I:EVNO f I:ESKI x I:EVA0 I:EBRI I:EBRB I:EBR , ( I:ECW
0x44f810…44f9a4 Dummy {f00=0x0153, f01=0x0190, f02=» STRIN2 USRFLD STROUX . , STRIX 2 @ USRFMT 6 R , ( # W W f T:GRFC T:STEV , ( 7! Y * & Y + , ( Q 8 & Y 0 4 y 4
0x44f9a4…44fb38 Dummy {f00=0x0153, f01=0x0190, f02=»VT I:EDSK * & " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x44fb38…44fccc Dummy {f00=0x0153, f01=0x4022, f02=» R$ ` B @ " $ X <' X X I:RT1 J I:EVIN Z , ( & x 4 X 2P y 6 ( l T:EVOU , ( HH * , , , , ( X +! Q P P P y 4 x 4 X
0x44fccc…44fe60 Dummy {f00=0x0153, f01=0x018e, f02=» > @ IDENT STRIN2 P,REL=11.0,810128,870136941100 STRIN2 F STRIN2 X , ( X x & Y " X R W l I:EXIT , ( ! V P _ y 6 : Y I:EVA0 T:CLMI , ( ?
0x44fe60…44fff4 (4, 52) Dummy {f00=0x0153, f01=0x4150, f02=» , ( W V R W V % _ I:MOV 4 * & [ " D $ D D T:GRFC r * & Z P Z % z " * { $ X $ X y & : H D ! R W !V %P SP ]P* uT yW }R< V8
0x44fff4…450188 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT STROU2 P,REL=11.0,810128,870136941100 STROU2 F STROU2 X I:EVA0 l , ( X x & Y " !0P <! ~ , ( T T W < X ! P , ( ? ?A W ?AW <! P
0x450188…45031c Dummy {f00=0x0153, f01=0x408a, f02=» I:EXIT " @ y $ : y 6 : 8 4 P6 !T$ 'T +W ;P EW MW WP mR qW uV* P 8 t@
0x45031c…4504b0 Dummy {f00=0x0153, f01=0x4094, f02=» > @ IDENT USRFLD P,REL=11.0,810128,870136941100 USRFLD F USRFLD X : l ~@ E P=IDIOT4 * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x4504b0…450644 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT T:DM P,REL=11.0,810209,870136941100 F B T:OPEN T:CLOS T:DCLO T:COMM T:PCOM T:ROLL T:RSTA T:OPCH F T:IXCH T:STCH T:OPEN T:DSB , ( @ 2 2 ! <e T:WRIO
0x450644…4507d8 Dummy {f00=0x0153, f01=0x0190, f02=» T:DCLO Z T:COMM f I:EVA0 , , ( Y <H _ ( > I:RT1 n T:PCOM ~ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x4507d8…45096c Dummy {f00=0x0153, f01=0x4092, f02=» T:OPCH T:STCH T:IXCH & & " $ _` C / : ;T {R R d |@ T:GTBY * & u@ R ' T:GDSP , ( ,# ;
0x45096c…450b00 Dummy {f00=0x0153, f01=0x0190, f02=» > @ IDENT T:USE P,REL=11.0,810224,870136941100 T:USE T:UERR T:UER F T:USE d I:EVA0 v * & 2 & >A >A 2 $ P:MTAB , ( & V D 9a 9 V , ( =D @ W
0x450b00…450c94 (4, 53) Dummy {f00=0x0153, f01=0x0190, f02=»_ X @ 9 X ( R , ( 9 8 ? X ( , ( Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x450c94…450e28 Dummy {f00=0x0153, f01=0x4058, f02=»R R< V R Q" Rf T #R< %W, n +P& /W$ IT * f B@ T Q , V ( X , ( R - 4T V 5 , ( ( R W V P W U V T:UERR T I:RT0
0x450e28…450fbc Dummy {f00=0x0153, f01=0x2008, f02=» L = FIX0 DATE = 810928 6876PACK NBR = 0000
0x450fbc…451150 Dummy {f00=0x0153, f01=0x0190, f02=» r L P************************************************************************ 2 P* PROCEDURE : XHMSU P* PARAMETERS : ADCARDNR : P* DESCRIPTION: WRITE ON TRACK 3 OF BADGE CARD WITH MSU L P************
0x451150…4512e4 Dummy {f00=0x0153, f01=0x0190, f02=» ZEKOSA x ( P PERF XBFMT,=W'27' 'PUT CARD IN MSU' P B XH110 < PXH100 L " P PERF XCLAMP,KW4,KW1 LAMP 4 ON Z ( P PERF XBFMT,=W'49' 'MOUNT PASSBOOK' P TBT SBCANCEL,XH200 $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF * P MOVE ADLIMBOK,=D'0' BOO
0x4512e4…451478 Dummy {f00=0x0153, f01=0x0190, f02=»K p P B XH200 PXH110 P MOVE WCSTRG12,XCARD ( P MOVE WCSTRG6,='00' D & P MOVE WW2,KW4 SET REQUESTED LENGTH ` ( P XCOPY WCSTRG6,KW0,WW2,WCSTRG12,KW2 P DSC1 DSBCR,24,KW0 OPEN MSU P DSC0 DSBCR,0 GET CARD P WRITE DSBCR,WCS
0x451478…45160c Dummy {f00=0x0153, f01=0x0190, f02=»*********** R P* 2 P* WRITE INFO ON MAGNETIC STRIP OF PASSBOOK P* T P P*************************************************************************** ^ PXKZEKO PROC P MOVE WW1,=W'18' , P DSC1 DSEKOSA,24,KW1 OPEN MSU (AM. SYS)
0x45160c…4517a0 Dummy {f00=0x0153, f01=0x0190, f02=»'11',KW0,VCDOCPAR,WW1 MOVE DOC. PARAMETERS 0 P DSC1 DSVCHPRT,X'00',KW0 SET DOC. PARAMETERS 2 ( P MOVE WW1,=W'13' LINE 13 IS 'STRIP' f . P DSC1 DSVCHPRT,X'06',WW1 POSITION PASSBOOK P CBNL ADLIMBOK,=D'0',XKZE10 * P MOVE ICSTRG1,=C'1' SIGN BYTE NE
0x4517a0…451934 (4, 54) Dummy {f00=0x0154, f01=0x0190, f02=» WRITE DSEKOSA,WCSTRG25 WRITE MAG. STRIPE P RET 2 P PEND > N P************************************************************************** L P* P* 8 P* EDIT BUFFER FORMAT FOR MAG.STRIPE RECORD PFRMZEK FRMT P FMEL
0x451934…451ac8 Dummy {f00=0x0154, f01=0x0190, f02=»ND L P************************************************************************ L P* * Z L P* KEYTABLE FOR BADGE CARD READER * L P*
0x451ac8…451c5c Dummy {f00=0x0154, f01=0x0190, f02=»** J L PBCRKTB KTAB X'3F',X'09' L P* * Z L P* '3F': END OF DOCUMENT * L P* '09': READ
0x451c5c…451df0 Dummy {f00=0x0154, f01=0x0190, f02=» * J L P* * ! J P********************************************************************** ! Z L P************************************************************************ ! L P*
0x451df0…451f84 Dummy {f00=0x0154, f01=0x0190, f02=» ! H L P* PARAMETERS: XWINDEX (INPUT) * " L P* XWON (INPUT) * " X L P* FUNCTIONAL DESCRIPTION: * " L P* CONTROL T
0x451f84…452118 Dummy {f00=0x0154, f01=0x0190, f02=» " H L P* XWON = 0: TURN LAMP(S) OFF * # L P* XWON = 1: TURN LAMP ON * # X L P* XWON = 2: SET LAMP FLASHING * # L P* - XWINDEX
0x452118…4522ac Dummy {f00=0x0154, f01=0x0190, f02=» # H L P* XWINDEX = 1,2,3 OR 4: LAMP 1,2,3 OR 4 * $ L P* XWINDEX = 5: LAMP 5, SOUND BELL ON 6236 KEYBOARD * $ X L P* AS WELL * $ L P* USE OF WORKV
0x4522ac…452440 Dummy {f00=0x0154, f01=0x0190, f02=» $ H L P* WW2: WORKFIELD * % L P* * % X L P************************************************************************ % T PXCLAMP PROC XWIN
0x452440…4525d4 (4, 55) Dummy {f00=0x0154, f01=0x0190, f02=» % j T P CBE YDSTATUS,=D'0',XC999 KEYBOARD TYPE NOT KNOWN YET & 2 L P* * & L P* THE NUMERIC VERSION OF THE 6234-KEYBOARD (=6
0x4525d4…452768 Dummy {f00=0x0154, f01=0x0190, f02=» * & z T P CBE RDALFKB,=D'1',XC050 ALPHANUMERIC KEYBOARD ' : T P TBT SB34KB,XC999 6331-KEYBOARD ' L P*
0x452768…4528fc Dummy {f00=0x0154, f01=0x0190, f02=»-KEYBOARD * ' L P* * ( J T PXC050 ( T P CBNE XWINDEX,=W'5',XC
0x4528fc…452a90 Dummy {f00=0x0154, f01=0x0190, f02=» ( J L P* * ) L P* 6236-KEYBOARD AND LAMP 5, SOUND BELL AND CONTINUE * ) b L P* * ) T P MOVE
0x452a90…452c24 Dummy {f00=0x0154, f01=0x0190, f02=» ) Z * P DSC1 DSDI,01,WW1 TURN BELL OFF AGAIN * " L P* * * P L P* REQUESTED LAMP(S) AVAILABLE, CALCULATE THE DSC1-PARAMTER * * L P* IF XWINDEX = 0 THEN AL
0x452c24…452db8 Dummy {f00=0x0154, f01=0x0190, f02=» CBG XWINDEX,=W'0',XC100 * T P TBT SB34KB,XC080 + X T P MOVE WW1,=W'126' 6236-KEYBOARD + T P
0x452db8…452f4c Dummy {f00=0x0154, f01=0x0190, f02=» + ` T P MOVE WW1,=W'15' 6234-KEYBOARD , ( T P B XC600 , L P*
0x452f4c…4530e0 Dummy {f00=0x0154, f01=0x0190, f02=»TIATION) * , x L P* 6234-KEYBOARD: 2**(XWINDEX-1) * - 8 L P* 6236-KEYBOARD: 2**(6-XWINDEX) * - L P* FIRST CALCULATE THE EXPONENT OF 2 IN WW2
0x4530e0…453274 (4, 56) Dummy {f00=0x0154, f01=0x0190, f02=» - x T P TBT SB34KB,XC150 . @ L P* 6236-KEYBOARD * . T P MOVE WW2,=W'6'
0x453274…453408 Dummy {f00=0x0154, f01=0x0190, f02=» . @ T P B XC200 / T PXC150 / ` L P* 6234-KEYBOARD * / T P
0x453408…45359c Dummy {f00=0x0154, f01=0x0190, f02=» / ` L P* * 0 ( L P* NOW CALCULATE THE DSC1-PARAMETER * 0 x L P*
0x45359c…453730 Dummy {f00=0x0154, f01=0x0190, f02=» 0 p T PXC210 1 8 T P CBE WW2,=W'0',XC600 1 T P MUL WW1,=W'2'
0x453730…4538c4 Dummy {f00=0x0154, f01=0x0190, f02=» 1 @ T P B XC210 2 L P* * 2 ` L P* PERFORM THE DSC1 DEPENDING ON XWON * 2 L P*
0x4538c4…453a58 Dummy {f00=0x0154, f01=0x0190, f02=» 2 P T P MOVE WW2,XWON 3 P IB WW2,XC710,XC720 3 p L P* * 3 L P* TURN LAMP(S) OFF
0x453a58…453bec Dummy {f00=0x0154, f01=0x0190, f02=» 3 | T P B XC999 4 D L P* * 4 L P* TURN LAMP ON
0x453bec…453d80 Dummy {f00=0x0154, f01=0x0190, f02=»0 4 T P DSC1 DSDI,00,WW1 5 T T P B XC999 5 L P*
0x453d80…453f14 (4, 57) Dummy {f00=0x0154, f01=0x0190, f02=» * 5 T L P* * 6 T PXC720 6 d T P DSC1 DSDI,X'0B',WW1
0x453f14…4540a8 Dummy {f00=0x0154, f01=0x40ec, f02=» 6 l T P PEND 7 4 L P************************************************************************ 7 P END 7 @ 7
0x4540a8…45423c Dummy {f00=0x0154, f01=0x2008, f02=» 8 NT XINTER DDUM DEMODDIV PDIV 0 EXT QAEOI > ENTRY XAKBIN P * f * p XAKBIN PROC z . ) KI SPDSDYKB,SPINPUT,KEYTABEL,KW1,SPBINW2 BERR XA000 RETRY PERF QAEOI XA999 RET
0x45423c…4543d0 Dummy {f00=0x0154, f01=0x0190, f02=» 8 p L P************************************************************************ 9 PUCY BLK 9 X P* 9 h L P************************************************************************ 9 r L P*
0x4543d0…454564 Dummy {f00=0x0154, f01=0x0190, f02=» * 9 b L P************************************************************************ : " " PCDCCYRNR BCD 12 RECORD NUMBER : r PCDUMMY BCD 6 : " PCCCCYNME STRG 20 CURRENCY NAME : " PCCCCYCDE STRG 4 CURRENCY CODE : PCDBUY1 BCD 8 BUY
0x454564…4546f8 Dummy {f00=0x0154, f01=0x0190, f02=»12 LIMIT OF RATE 1 : PCDRELAT BCD 6 RELATION ; L P************************************************************************ ; 8 L PUOP BLK ; L P*
0x4546f8…45488c Dummy {f00=0x0154, f01=0x0190, f02=» * ; x L P* OPERATOR RECORD * < 8 L P* * < L P************************************************
0x45488c…454a20 Dummy {f00=0x0154, f01=0x0190, f02=» < x L POCPASS STRG 6 PASSWORD = 8 L POCNAME STRG 18 OPERATOR NAME = L PODSTATUS BCD 2
0x454a20…454bb4 (4, 58) Dummy {f00=0x0155, f01=0x0000, f02=»
0x454bb4…454d48 Dummy {f00=0x0155, f01=0x000a, f02=»1p1x1 1 1
0x454d48…454edc Dummy {f00=0x0155, f01=0x0190, f02=» F P IDENT XMESG ERROR- AND MESSAGECONTROL P DDUM DEMODD N P PDIV b P EXPROC XAKBIN p P EXPROC XCLAMP P EXPROC ZMRDF P ENTRY XDMSG P ENTRY XEERR P ENTRY XFERR1 P ENTRY XHERAS
0x454edc…455070 Dummy {f00=0x0155, f01=0x0190, f02=» * ` L P* PROCEDURE: XDMSG * L P* PARAMETER: * p L P* PWMSGNR (INPUT): NUMBER OF THE MESSAGE TO BE DISPLAYED. *
0x455070…455204 Dummy {f00=0x0155, f01=0x0190, f02=»FROM THE FORMAT * ` L P* FILE AND DISPLAYED ON THE FIRST LINE OF THE DISPLAY. * L P* WORKVARIABLE: * p L P* WW1 *
0x455204…455398 Dummy {f00=0x0155, f01=0x0190, f02=»************************ ` L PXDMSG PROC PWMSGNR P PLIT PWMSGNR p L PXD000 L P*
0x455398…45552c Dummy {f00=0x0155, f01=0x018e, f02=» * v P PERF XHERAS ERASE SCREEN 6 L P MOVE WW1,PWMSGNR X * P PERF ZMRDF,WW1,KW1 READ INTO FCBUFFER P EDWRT SPDSSCRN,FCBUFFER L PXD999
0x45552c…4556c0 Dummy {f00=0x0155, f01=0x0190, f02=» F L P PEND L P************************************************************************ X L P* * L P* PROCEDURE:
0x4556c0…455854 (4, 59) Opaque[0x194]
0x455854…4559e8 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2aa8, f03=0x0000}
0x455854…4559e8 IdxSect {
0x455854…4559e8 f00 = 0x0155 // 0x455854 @0x0
0x455854…4559e8 f01 = 0x001a // 0x455856 @0x2
0x455854…4559e8 gno = [ // 0x455858 @0x4
0x455854…4559e8 [0x00]: C0x0155.0x1.0
0x455854…4559e8 [0x01]: C0x0155.0x2.0
0x455854…4559e8 [0x02]: C0x0155.0x3.0
0x455854…4559e8 [0x03]: C0x0156.0x0.0
0x455854…4559e8 [0x04]: C0x0156.0x1.0
0x455854…4559e8 [0x05]: C0x0156.0x2.0
0x455854…4559e8 [0x06]: C0x0156.0x3.0
0x455854…4559e8 [0x07]: C0x0157.0x0.0
0x455854…4559e8 [0x08]: C0x0157.0x1.0
0x455854…4559e8 [0x09]: C0x0157.0x2.0
0x455854…4559e8 [0x0a]: C0x0157.0x3.0
0x455854…4559e8 [0x0b]: C0x0158.0x0.0
0x455854…4559e8 [0x0c]: C0x0158.0x1.0
0x455854…4559e8 ]
0x455854…4559e8 }
0x4559e8…455b7c Dummy {f00=0x0155, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION P DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x455b7c…455d10 Dummy {f00=0x0155, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x455d10…455ea4 Dummy {f00=0x0155, f01=0x0190, f02=»* TYPE OF THE VARIABLE AS FOLLOWS: * L P* * P L P* FIRST LETTER: VARIABLE USAGE; THE VARIABLE BELONGS TO THE * L P* FOLLO
0x455ea4…456038 Dummy {f00=0x0155, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x456038…4561cc Dummy {f00=0x0155, f01=0x0190, f02=»* B: ACCOUNT RECORD IN UWB UA2 * L P* T: TRANSACTION RECORD IN UWB UT1 * P L P* U: TRANSACTION RECORD IN UWB UT2 * L P* SP: SCREEN MANAG
0x4561cc…456360 Dummy {f00=0x0155, f01=0x0190, f02=»* I: INTERFACE BETWEEN FUNCTION MODULE, FORMATS AND * L P* SPAPXX-ROUTINES, MAY NOT BE USED BY OTHER ROUTINES * P L P* K: CONSTANTS * L P* N: NUMERIC VARI
0x456360…4564f4 (4, 60) Dummy {f00=0x0155, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x4564f4…456688 Dummy {f00=0x0155, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x456688…45681c Dummy {f00=0x0155, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x45681c…4569b0 Dummy {f00=0x0155, f01=0x0190, f02=»* ALF: ALPHANUMERIC AVB: AVAILABLE * L P* BAL: BALANCE BCK: BACK * P L P* BLK: BLOCK BOK: BOOK * L P* BUY: BUY(ING)
0x4569b0…456b44 Dummy {f00=0x0155, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x456b44…456cd8 Dummy {f00=0x0155, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x456cd8…456e6c Dummy {f00=0x0155, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x456e6c…457000 Dummy {f00=0x0155, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x457000…457194 (4, 61) Dummy {f00=0x0155, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x457194…457328 Dummy {f00=0x0155, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x457328…4574bc Dummy {f00=0x0155, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x4574bc…457650 Dummy {f00=0x0155, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x457650…4577e4 Dummy {f00=0x0155, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x4577e4…457978 Dummy {f00=0x0155, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x457978…457b0c Dummy {f00=0x0155, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J P************************************************************
0x457b0c…457ca0 Dummy {f00=0x0155, f01=0x0190, f02=»OP P UWB UA1 P UWB UA2 P UWB UT1 * P UWB UT2 : P CWB CK1 J P CWB CK2 Z P UWB UQQ j * PSPDSSCRN DSET FC=X'50',DEV=DY,BUFL=82 z " PSPDSDYKB DSET FC=X'20',DEV=KA PDSDI DSET FC=X'41',DEV=DI * PSPDSPRT DSET FC=X'30',DE
0x457ca0…457e34 (4, 62) Dummy {f00=0x0156, f01=0x0190, f02=»C=X'22',DEV=BC * PSPDSCPY DSET FC=X'32',DEV=GP,BUFL=112 PDSDBS DSET FC=X'C0',DEV=DL D 0 PDSEKOSA DSET FC=X'60',DEV=MS ZEKOSA MSU-UNIT f " PDSFMTFLE DSET FC=X'CA',DEV=DL 8 PDSLNEPRT DSET FC=X'80',DEV=LP,BUFL=110,BUFDS=SPDSPRT PTNDSET DSET
0x457e34…457fc8 Dummy {f00=0x0156, f01=0x0190, f02=»BLK P* P* P* P* TND INDICATORS * P* B P* L PNOPF BOOL F V PTNDBAD BOOL F j PTNDNDU BOOL F PTNDRCF BOOL F PTNDTRY BOOL F PTNDOPF BOOL F PCASEMP BOOL F PPAYOK BOOL F PTNDBLK
0x457fc8…45815c Dummy {f00=0x0156, f01=0x0190, f02=»S x P* P* PVCVOLNR1 STRG 3 DBS-VOLNR PVCVOLNR2 STRG 3 FMT-VOLNR @ . PNDLASTRM BCD 4D'100' LAST TERMINAL NUMBER b PFCPARAM STRG 102 PFCPARAM1 STRG 66 8 P* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY) PKDCHECKS
0x45815c…4582f0 Dummy {f00=0x0156, f01=0x0190, f02=»', 2:LIST C t P P '1','0','1','1','3','1','3', 3:OPEN C P P '1','1','1','1','0','1','0', 4:CLOSE C n P P '1','1','1','1','0','1','0', 5:BLOCK C
0x4582f0…458484 Dummy {f00=0x0156, f01=0x0190, f02=»INQUIRY C j N P '1','1','1','1','0','1','0', 8:DAILY STATEMENTS ( ) C . P P '2','1','2','0','2','0','2', 9:IN C P P '2','2','1','0','2','0','2', 10:OUT C
0x458484…458618 Dummy {f00=0x0156, f01=0x0190, f02=»* TND VARIABLES " PDELAMT BCD 8 AMOUNT TO DELIVER PTNDDVS STRG 4C DEVICE STATUS > ( PTNDREJ STRG 16C REASONS FOR LAST 16 b " P ..REJECTS, FOLLOWED BY '0' $ PNDMAP STRG '3210' CASSETTE ORDER * PNDDUMP BCD 4D NUMBER OF REJECTED NOTES $
0x458618…4587ac Dummy {f00=0x0156, f01=0x0190, f02=»UMN 1: CHECK CURRENCY OFF * L P* COLUMN 2: CHECK CHEQUE OFF * B L P* COLUMN 3: CHECK NOBOOK OFF * L P* COLUMN 4: CHECK
0x4587ac…458940 Dummy {f00=0x0156, f01=0x0190, f02=» COLUMN 6: CHECK INPUT-FIELD EMPTY * > P* COLUMN 7: CHECK ZEKOSA B L P* IF KDCHECKS(I,J) = 1 * L P* THEN FOR FUNCTION I, CHECK J WILL BE PERFORME
0x458940…458ad4 (4, 63) Dummy {f00=0x0156, f01=0x0190, f02=»BE PERFORMED L P************************************************************************ L PCSY BLK d L P* * L P****
0x458ad4…458c68 Dummy {f00=0x0156, f01=0x0190, f02=» * T L P* SYSTEM RECORD * L P* * d L P************************************************************************ L PYDSY
0x458c68…458dfc Dummy {f00=0x0156, f01=0x0190, f02=» T PYDSTATUS BCD 2 L P* 0 = SYSTEM NOT STARTED * * . P* 1 = SYSTEM START OR CLOSE PROGRESSING z L P* 2 = SYSTEM STARTED * P* 3 = SYST
0x458dfc…458f90 Dummy {f00=0x0156, f01=0x0190, f02=» j L PYDMLPINT BCD 2 LINE PRINTER INTEGRATED ! * L PYCTEXT STRG 25 DEMO TEXT ! z L PYDLASSAV BCD 12 LAST SAVINGS ACCOUNT NUMBER
0x458f90…459124 Dummy {f00=0x0156, f01=0x018e, f02=» ! j L PYDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. " * L P************************************************************************ " z P* " P* TWB VARIABLES " P* " L P******************
0x459124…4592b8 Dummy {f00=0x0156, f01=0x0190, f02=» " F L P* * # L PSBKEY1 BOOL TRUE # X L PSBKEY2 BOOL FALSE # L PSBCANCEL BOOL FA
0x4592b8…45944c Dummy {f00=0x0156, f01=0x0190, f02=» # H ( PSBTRMBLK BOOL FALSE TERMINAL BLOCKED $ PSBFT80 BOOL FALSE $ 4 * PSBMSU BOOL FALSE MAGNETIC STRIPE UNIT $ N " PSBTND BOOL FALSE TND AVAILABLE $ | * PSBFT80OP BOOL F FT80OP OPEN INDICATOR $ . PSBCP80 BOOL F COPY80 (HP75) PRESENT (.T.) $ L PNWUWBN
0x45944c…4595e0 Dummy {f00=0x0156, f01=0x0190, f02=» NUMBER $ z L P************************************************************************ % L P* * % ` L P* TERMINAL RECORD * % L P*
0x4595e0…459774 (4, 64) Dummy {f00=0x0156, f01=0x0190, f02=»******** % P L PRDTRMRNR BCD 12 RECORD NUMBER & L PRDUMMY BCD 6 & ` L PRCTRMNME STRG 20 TERMINAL NAME & L PRDSTATUS
0x459774…459908 Dummy {f00=0x0156, f01=0x0190, f02=» * & P L P* 1 = TERMINAL SPECIFIED * ' L P* 2 = TERMINAL STARTED * ' ` L P* 3 = OPERATOR LOGGED ON * ' 0 PRDSCRLNS
0x459908…459a9c Dummy {f00=0x0156, f01=0x0190, f02=» 2D'0' SHARED PRINTER ' L PRDPRTTYP BCD 2D'0' PRINTER TYPE ( D L PRDBCR BCD 2D'0' BADGE CARD READER ( L PRDODR BCD 2D'0' OPTICAL DOCUMENT REA
0x459a9c…459c30 Dummy {f00=0x0156, f01=0x0190, f02=»'0' TELLER NOTE DISPENSER ( L P************************************************************************ ) " P* ) r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES ) | P* ) L P************************************************************************ )
0x459c30…459dc4 Dummy {f00=0x0156, f01=0x0190, f02=»L FALSE USED IF ERROR IN ZEKOSA ) P ...USAGE * ( PSPBINW1 BIN W'0' * < PSPBINW2 BIN W'0' * T PSPBINW3 BIN W'0' * l PSPBINW4 BIN W'0' * . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES * PWW1 BIN * PWW2 BIN * PWW3 BIN * PWWINDEX1 B
0x459dc4…459f58 Dummy {f00=0x0156, f01=0x0190, f02=»PUT STRG 32 * . PSPLSTLNE BCD 4D'1' LAST LINE ON THE SCREEN + L P************************************************************************ + F L P* * + 6 P* MISCELANEOUS RESERVED VARIABLES
0x459f58…45a0ec Dummy {f00=0x0156, f01=0x018e, f02=»**************************************** + p PUBF BLK , 0 P* , @ PSBUSEDWB BOOL FALSE UWB USED , J " P* RESERVED VARIABLES FOR XBFMT , n 0 PNWTOTBYT BIN BYTES TO BE PROCESSED (XBFMT) , $ PNWPTR BIN MATCH POINTER (XBFMT) , $ P* RESERVED VARIABLES FOR
0x45a0ec…45a280 Dummy {f00=0x0156, f01=0x0190, f02=» PSBCHEQUE BOOL FALSE - PSBNOBOOK BOOL FALSE - . PSBRVS BOOL FALSE REVERSAL SWITCH (BESELF) - < PSBCARD BOOL FALSE - n " PSBZEK BOOL FALSE ZEKOSA SWITCH - 2 PSBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF) - 0 PSBOPRCLS BOOL FALSE OPERATOR CLOSE (
0x45a280…45a414 (4, 65) Dummy {f00=0x0156, f01=0x0190, f02=» ) PRINT LINES ON - ~ & PSBVCH BOOL FALSE ) VOUCHER (PCVCH) . 0 PNDNEWLNE BCD 4 NEXT FREE LINE (PRINT ROUT'S) . D 2 PNDPRTTRS BCD 12 NEXT TRS. FOR PRINT (PRT RT'S) . x , PVCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER . ( PSBFIL1 BOOL FALSE ***************** . $
0x45a414…45a5a8 Dummy {f00=0x0156, f01=0x0190, f02=»L FALSE ***************** . . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES / " PWCSTRG6 STRG 6 / T PWC1STRG8 STRG 8 / j PWC2STRG8 STRG 8 / PWCSTRG12 STRG 12 / PWCSTRG25 STRG 25 / L P**************************************************************
0x45a5a8…45a73c Dummy {f00=0x0156, f01=0x0190, f02=» L P* * 0 L P* BUFFER USAGE: * 0 T L P* IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE * 0 L P* BUFFER 'FCFORMAT
0x45a73c…45a8d0 Dummy {f00=0x0156, f01=0x0190, f02=» L P* AGAIN. * 1 L P* SO WHEN IN SCREEN MANAGEMENT THESE TWO BUFFERS MAY NOT BE USED!!! * 1 T L P* 'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE, * 1 L P* TO READ ERRORS A
0x45a8d0…45aa64 Dummy {f00=0x0156, f01=0x0190, f02=» L P* * 2 4 PFCBUFFER STRG 399 BUFFER FOR DATABASE AND MSG'S 2 T $ PFCFMTBUF STRG 255 FORMAT BUFFER 2 $ PFCFORMAT STRG 800 FORMAT STORAGE 2 2 PFCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOI
0x45aa64…45abf8 Dummy {f00=0x0156, f01=0x0190, f02=» 2 b L P* * 3 " L P************************************************************************ 3 r L P*
0x45abf8…45ad8c Dummy {f00=0x0156, f01=0x0190, f02=» * 3 b L P************************************************************************ 4 " L PSBSTTO BOOL FALSE START OPERATOR 4 r L PSBOACT BOOL FALSE OPEN ACCOUNT
0x45ad8c…45af20 Dummy {f00=0x0156, f01=0x0190, f02=» 4 b L PSBDACT BOOL FALSE DEBLOCK ACCOUNT 5 " L PSBUACT BOOL FALSE UPDATE ACCOUNT 5 r L PSBUCCY BOOL FALSE UPDATE CURRENCY
0x45af20…45b0b4 (4, 66) Dummy {f00=0x0157, f01=0x0190, f02=» 5 b L PSBCOPR BOOL FALSE OPERATOR CLOSE 6 " L PSBCSYS BOOL FALSE SYSTEM CLOSE 6 r L PSBECCY BOOL FALSE CURRENCY EXCHANGE
0x45b0b4…45b248 Dummy {f00=0x0157, f01=0x0190, f02=» 6 b PSBWDR BOOL FALSE 7 " L PIWINDEX1 BIN 7 : L PIDACTNR1 BCD 12 7 L PIDACTNR2 BCD 12
0x45b248…45b3dc Dummy {f00=0x0157, f01=0x018e, f02=» 7 z L PIDNR1 BCD 12 8 : PIDNR2 BCD 12 8 PIDNR3 BCD 12 8 PIDNR4 BCD 12 8 PICSTRG1 STRG 1 8 PICTEXT1 STRG 6 8 PICTEXT2 STRG 25 8
0x45b3dc…45b570 Dummy {f00=0x0157, f01=0x0190, f02=» 8 p L P************************************************************************ 9 PUCY BLK 9 X P* 9 h L P************************************************************************ 9 r L P*
0x45b570…45b704 Dummy {f00=0x0157, f01=0x0190, f02=» * 9 b L P************************************************************************ : " " PCDCCYRNR BCD 12 RECORD NUMBER : r PCDUMMY BCD 6 : " PCCCCYNME STRG 20 CURRENCY NAME : " PCCCCYCDE STRG 4 CURRENCY CODE : PCDBUY1 BCD 8 BUY
0x45b704…45b898 Dummy {f00=0x0157, f01=0x0190, f02=»12 LIMIT OF RATE 1 : PCDRELAT BCD 6 RELATION ; L P************************************************************************ ; 8 L PUOP BLK ; L P*
0x45b898…45ba2c Dummy {f00=0x0157, f01=0x0190, f02=» * ; x L P* OPERATOR RECORD * < 8 L P* * < L P************************************************
0x45ba2c…45bbc0 Dummy {f00=0x0157, f01=0x0190, f02=» < x L POCPASS STRG 6 PASSWORD = 8 L POCNAME STRG 18 OPERATOR NAME = L PODSTATUS BCD 2
0x45bbc0…45bd54 (4, 67) Dummy {f00=0x0157, f01=0x0190, f02=»ISED * = x L P* 2 = OPERATOR LOGGED ON * > 8 L PODTRMNR BCD 4 TERMINAL NUMBER > L PODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR
0x45bd54…45bee8 Dummy {f00=0x0157, f01=0x0190, f02=» * > x L P* 1,1 : BALANCE CURRENCY 1 * ? 8 L P* 1,2 : BALANCE CURRENCY 2 * ? L P* 1,3 : BALANCE CURRENCY 3
0x45bee8…45c07c Dummy {f00=0x0157, f01=0x0190, f02=» * ? x L P* 2,1 : ACCUMULATED CHEQUES * @ 8 L P* 2,2 : ACCUMULATED TRANSFERS * @ L P* 2,3 : ACCUMULATED DEPOSITS
0x45c07c…45c210 Dummy {f00=0x0157, f01=0x0190, f02=» * @ x L P* 3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD * A 8 L P* 3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD * A L P* 3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SO
0x45c210…45c3a4 Dummy {f00=0x0157, f01=0x0190, f02=»RRENCY BOUGHT - LOCAL VALUE * A x P* B 8 P* B B P* B L P* T N D REGISTERS: B V P* - - - ---------- B r P* B 8 PNOTES BCDI (4),5D'10000',5D'5000',5D'2000',5D'1000' B * PTNDREG BCDI (4),5D NUMBER OF NOTEST TO B P ..D
0x45c3a4…45c538 Dummy {f00=0x0157, f01=0x0190, f02=» B v L P************************************************************************ C L PUA1 BLK C X L P* * C 0 PSBCHQACT BOOL FA
0x45c538…45c6cc Dummy {f00=0x0157, f01=0x0190, f02=» * C | L P* ACCOUNT RECORD 1 * D < L P* * D L P********************************************
0x45c6cc…45c860 Dummy {f00=0x0157, f01=0x0190, f02=»NUMBER D | L PACNAME STRG 20 E < L PACADDRES STRG 20 E L PACTOWN STRG 20
0x45c860…45c9f4 (4, 68) Dummy {f00=0x0157, f01=0x0190, f02=» E | L P* 0 = DEBLOCKED * F < L P* 1 = BLOCKED * F L P* 2 = CLOSED WITHOUT STATEMENT
0x45c9f4…45cb88 Dummy {f00=0x0157, f01=0x0190, f02=»E F | L PADLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE G < L PADLASTRS BCD 12 LAST TRANSACTION G L PADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED
0x45cb88…45cd1c Dummy {f00=0x0157, f01=0x0190, f02=» G X L PADWDRCUM BCD 12 ACCUMULATED WITHDRAWALS H 2 PADLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. H h ( PACRECNR STRG 3 INDEX 2 FOR DATABASE H L P**************************************************************
0x45cd1c…45ceb0 Dummy {f00=0x0157, f01=0x0190, f02=» * H j L P************************************************************************ I * L P* * I z L P* ACCOUNT RECORD 2
0x45ceb0…45d044 Dummy {f00=0x0157, f01=0x0190, f02=»********************************** I j L PBDACTRNR BCD 12 RECORD NUMBER J * L PBDCARDNR BCD 6 CARD NUMBER J z L PBCNAME STRG 20
0x45d044…45d1d8 Dummy {f00=0x0157, f01=0x0190, f02=» J j L PBCPASS STRG 6 PASSWORD K * L PBDSTATUS BCD 2 K z L P* 0 = DEBLOCKED
0x45d1d8…45d36c Dummy {f00=0x0157, f01=0x0190, f02=» * K j L P* 3 = CLOSED WITH STATEMENT * L * L PBDBAL BCD 12 BALANCE L z L PBDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE
0x45d36c…45d500 Dummy {f00=0x0157, f01=0x0190, f02=»MENTED L j L PBDLNENR BCD 4 FIRST FREE LINE IN BOOK M * L PBDDEPCUM BCD 12 ACCUMULATED DEPOSITS M z L PBDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS
0x45d500…45d694 (4, 69) Dummy {f00=0x0157, f01=0x0190, f02=»******** M P L PUT1 BLK N L P* * N ` L P************************************************************************ N L P*
0x45d694…45d828 Dummy {f00=0x0157, f01=0x0190, f02=» * N P L P* * O L P************************************************************************ O ` L PTDTRSRNR BCD 12 RECORD NUMBER O L PTDUMMY B
0x45d828…45d9bc Dummy {f00=0x0157, f01=0x0190, f02=» O P L PTDDATE BCD 8 TRANSACTION DATE P L PTDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE P ` L PTDOPRNR BCD 12 OPERATOR NUMBER P L PTDTRSSEQ
0x45d9bc…45db50 Dummy {f00=0x0157, f01=0x0190, f02=» P P L PTDNEWBAL BCD 12 NEW BALANCE Q L PTDACTFRM BCD 12 ACCOUNT FROM Q ` L PTDCHQNR BCD 8 CHEQUE NUMBER Q L PTCTEXT S
0x45db50…45dce4 Dummy {f00=0x0157, f01=0x0190, f02=»******** Q P L PUT2 BLK R L P* * R ` L P************************************************************************ R L P*
0x45dce4…45de78 Dummy {f00=0x0157, f01=0x0190, f02=» * R P L P* * S L P************************************************************************ S ` L PUDTRSRNR BCD 12 RECORD NUMBER S L PUDUMMY B
0x45de78…45e00c Dummy {f00=0x0157, f01=0x0190, f02=» S P L PUDDATE BCD 8 TRANSACTION DATE T L PUDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE T ` L PUDOPRNR BCD 12 OPERATOR NUMBER T L PUDTRSSEQ
0x45e00c…45e1a0 Dummy {f00=0x0157, f01=0x0190, f02=» T P L PUDNEWBAL BCD 12 NEW BALANCE U L PUDACTFRM BCD 12 ACCOUNT FROM U ` L PUDCHQNR BCD 8 CHEQUE NUMBER U L PUCTEXT S
0x45e1a0…45e334 (4, 70) Dummy {f00=0x0158, f01=0x0190, f02=»******** U P P* V , P* COMMON WORK-BLOCK CONTAINING CONSTANTS V P* V J L P************************************************************************ V T PCK1 BLK V P* V PKW0 BIN W'0' V PKW1 BIN W'1' V PKW2 BIN W'2' V PKW3 BIN W'3' V
0x45e334…45e4c8 Dummy {f00=0x0158, f01=0x0190, f02=»BER OF FORMATS V z PKD1 BCD 2D'1' W * PKDMAXLGG BCD 2D'4' NUMBER OF LANGUAGES W , 2 PKDSHIFT BCD D'100' SHIFT TO GET RECORD NUMBER W Z PNDDATE BCD 8 W PNDTIME BCD 8 W PVCTIME STRG 6 W L P**********************************************************
0x45e4c8…45e65c Dummy {f00=0x0158, f01=0x0190, f02=»************************** W b PCK2 BLK X " P* X 2 0 P* INDICES IN THE FUNCTION KEYTABLE 'FNCKTB' X < PKWSTART BIN W'3' X p PKWEND BIN W'4' X PKWEOI BIN W'1' X PKWCONT BIN W'20' X PKWCANCEL BIN W'19' X PKWCLEAR BIN W'21' X . P* LENGTH
0x45e65c…45e7f0 Dummy {f00=0x0158, f01=0x0190, f02=»BLES X h PKWSPEOI BIN W'3' Y PKWSPCANC BIN W'4' Y $ PKWSPCONT BIN W'17' Y > PKWSPCLR BIN W'1' Y X 0 P* LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES Y p * PKWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 Y ( PKWSPKTB3 BIN W'12' LENGTH OF SPKTAB3 Y , P* 6371 PRI
0x45e7f0…45e984 Dummy {f00=0x0158, f01=0x018e, f02=»6',4X'9766',4X'9966',4X'9866',4X'8066', C Y 6 P 4X'9166',4X'8066',4X'8055',4X'8044',4X'8044', C Z 2 6 P 4X'9044',4X'9055',4X'9055',4X'9066',4X'9044', C Z l P 4X'9A66' Z L P************************************************************************ Z P
0x45e984…45eb18 Dummy {f00=0x0158, f01=0x0190, f02=» Z F PUQQ BLK [ P* [ $ P* VARIABLES RESERVED FOR SPAPPL [ " * PNWRETCDE BIN W'0' RETURN CODE (SPAPPL) [ J P* SWITCHES USED BY XAKBIN [ x . PSBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN) [ P* SWITCHES USED BY DPECCY [ 4 PSBEOI BOOL FALSE AMT. QUOT
0x45eb18…45ecac Dummy {f00=0x0158, f01=0x0190, f02=»* SWITCHES USED BY DKDSTM [ 4 PSBFIRST BOOL FALSE DISPLAY TRANS. DATE (DKDSTM) " 4 PSBDSDEP BOOL FALSE TRANS. IS A DEPOSIT (DKDSTM) Z 6 PSBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) 4 PSBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM) 4 PSBDS
0x45ecac…45ee40 Dummy {f00=0x0158, f01=0x0190, f02=» BIN RECORD LENGTH (ZDSCIO) PMAXOUT BIN W'50' ] $ ( PCASMAX BIN W'4' MAX NO. OF CASSETTES ] < PKW7 BIN W'7' ] h P ] | PKW8 BIN W'8' ] PKW9 BIN W'9' ] 0 PNDLRN1 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO) ] 0 PNDLRN2 BCD 12 LOGICAL RECORD NUMBER (ZDS
0x45ee40…45efd4 (4, 71) Dummy {f00=0x0158, f01=0x40c4, f02=» ] ^ 6 PSBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO) ^ L P************************************************************************ ^ B P PDIV ^ P* ^ P* ^ P END ^ @ ^
0x45efd4…45f168 Dummy {f00=0x0158, f01=0x2008, f02=» _ NT DEMODDIV DDIV TERM A0 * CWB CW1 : TWB TW1 J UWB UW1 Z & "SPDSSCRN DSET FC=50,DEV=DY,BUFL=86 j SPDSDYKB DSET FC=20,DEV=KA DSDI DSET FC=40,DEV=DI & "SPDSPRT DSET FC=30,DEV=GP,BUFL=100 DSFMTFLE D
0x45f168…45f2fc Dummy {f00=0x0158, f01=0x0190, f02=»SECTOR NUMBER:; POSITION:;HEX.VALUE:; FILE ORG:;VOLUME NAME DEST. DISC:;***INPUT DEFINITION***; ***OUTPUT DEFINITION***;PACK:;OUTPUT DEVICE:; LABELLED TAPE:; SEQ. NUMBER INPUT TAPE:;SEQ. NUMBER OUTPUT TAPE:; BLOCK FACTOR INPUT TAPE:; BLOCK FACTOR OUTPUT TAPE:;TAPE
0x45f2fc…45f490 Dummy {f00=0x0158, f01=0x0190, f02=»:;START SWITCH ON SOP:; MORE THAN ONE APPLICATION :;DATA SET NAME:; BOE-SECTOR:;EOE-SECTOR:;EXPIRATION DATE:; VOLUME INITIALIZATION:; DATASET NUMBER:;NUMBER OF INDEX FILES:; KEY ADDRESS WITHIN DATA RECORD:;KEY LENGTH IN DATA RECORD:; RECORD LENGTH INPUT TAPE:;LOAD
0x45f490…45f624 Dummy {f00=0x0158, f01=0x0190, f02=»DEX FILE:;SUB-KEY ADDRESSES IN RECORD:; SUB-KEY LENGTHS IN RECORD:; ***WORK FILE DEFINITION***; WORK FILE NAME:;SORTING IN ASCENDING ORDER:;REORGANIZE DISC:; DISC VERSION:;INDEX VOLUME NAME:; DUPL. ALLOWED: ; COND. INDEX: ; EXP. TYPE:; COND ITEM DISPL.:; CO
0x45f624…45f7b8 Dummy {f00=0x0158, f01=0x0190, f02=»PTION ***;TESTING METHOD (I/A/Q):;CALCULATIONS OF NO. OF USED RECORDS AND FILLING DEGREE:;NEW FILE NAME:; DISC DEVICE : ;TAPE DEVICE :; EXTENSION SIZE :; FUNCTION :; USAGE :;USAGE :;VOLUME NAME OF WORKFILE:; ALL INDICES:; LOG FILE VOLUME NAME:;LOWER RECORD LIM
0x45f7b8…45f94c Dummy {f00=0x0158, f01=0x0190, f02=»OT USABLE;DISC I/O ERROR.;PRINTER NOT OPERABLE; TOO MANY SECTORS IN FILE; DISC OVERFLOW;TOO MANY EXTENTS NEEDED;ILLEGAL BLOCK LENGTH; VTOC OVERFLOW;NO FREE SPACE ENTRY AVAILABLE;FILE NAME ALREADY USED; NO TOSS DISC FORMAT;TAPE UNIT NOT OPERABLE; OUTPUT DISC NOT EM
0x45f94c…45fae0 Dummy {f00=0x0158, f01=0x0190, f02=»ECT TNR;OUTPUT I/O ERROR, ;INPUT I/O ERROR, ; BLOCK FACTOR ON OUTPUT TOO LARGE; TAPE MARK MISSING;TAPE MARK MISSING AFTER LABEL RECORD; LABEL RECORD MISSING; UNEXPECTED TAPE MARK; LABEL RECORD ERROR; ILLEGAL BLOCK LENGTH ON INPUT;EOF INSIDE SPLITTED RECORD; INPU
0x45fae0…45fc74 (4, 72) Opaque[0x194]
0x45fc74…45fe08 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2b10, f03=0x0000}
0x45fc74…45fe08 IdxSect {
0x45fc74…45fe08 f00 = 0x0158 // 0x45fc74 @0x0
0x45fc74…45fe08 f01 = 0x000e // 0x45fc76 @0x2
0x45fc74…45fe08 gno = [ // 0x45fc78 @0x4
0x45fc74…45fe08 [0x00]: C0x0158.0x2.0
0x45fc74…45fe08 [0x01]: C0x0158.0x3.0
0x45fc74…45fe08 [0x02]: C0x0159.0x0.0
0x45fc74…45fe08 [0x03]: C0x0159.0x1.0
0x45fc74…45fe08 [0x04]: C0x0159.0x2.0
0x45fc74…45fe08 [0x05]: C0x0159.0x3.0
0x45fc74…45fe08 [0x06]: C0x015a.0x0.0
0x45fc74…45fe08 ]
0x45fc74…45fe08 }
0x45fe08…45ff9c Dummy {f00=0x0158, f01=0x000c, f02=»810929 0 T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 810929 T:USE I:EVA0 P:MTAB T:UER
0x45ff9c…460130 Dummy {f00=0x0158, f01=0x0190, f02=» AADEMO 810929 $$$TRAD AAMAIN BASPCTD BCSTTOA BESELF CGCSYSF QCGUWB QDFUWBO T:EDWR T:EXIT XAKBIN ZGREA c BASPCT 810929 $$$TRAS BASPCT SPAP15S SPAP31 CASTTSS CBSTTSA T:DISP T:ERASF TNDOPN XBFMT ZAOPNDC ZBC
0x460130…4602c4 Dummy {f00=0x0158, f01=0x0190, f02=»:GETT XAKBIN XBFMT XCLAMPA XEERR ZCRDD ZDRWRD ZGREA BESELF 810929 $$$TRAS BESELF CDCHKYS CEGACTA CFCHKH DAUCCYF DCVDU DDTP71C DELACTI DFOACT DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF DOQCCYS DPECCYA DQCOPR E
0x4602c4…460458 Dummy {f00=0x0158, f01=0x0190, f02=» SPAP32 DAUCCYS DBUOPRA EHISYS FMOVE QIRDBS1 T:SETTE XBFMT XEERR ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRID ZLCLSF >CDCHKY 810929 $$$TRAC CDCHKY XEERR CEGACT 810929 $$$TRAG CEGACT DKDSTMG PBBOOKA QENTRS Q
0x460458…4605ec Dummy {f00=0x0158, f01=0x0190, f02=» CGCSYS ! 810929 $$$TRAC CGCSYS MASKR PAJRN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG 1 6 DAUCCY & 810929 $$$TRA DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPA
0x4605ec…460780 Dummy {f00=0x0158, f01=0x0190, f02=» SPAP06 EAIOPRU EBZACCA MASK QEMOVE T:IREA1 T:XREAT T:XSTAT XBFMT XEERR ZCRDD ZDRWRD ZGREA ZHWRID ZYRLNG <DCVDU 0 810929 $$$TRAV DCVDU XBFMT DDTP71 1 810929 $$$TRAT DDTP71 FMOVE PVATTPT PWDETP T:DSC
0x460780…460914 (4, 73) Dummy {f00=0x0158, f01=0x0190, f02=» T:EDWR1 T:IREA T:TESTS T:WAIT XAKBIN XHERAS ZMRDF ZYRLNG hDFOACT > 810929 $$$TRAO DFOACT SPAP13 X PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 @ bDGCACT A 810929 $$$TRAC DGCACT DKDSTMC PAJRN PBBOOK XBFMT ZCRDD Z
0x460914…460aa8 Dummy {f00=0x0158, f01=0x0190, f02=»T PAJRN QFLTRST T:DSC0 XBFMT XEERR ZCRDD ZDRWRDE c fDJUACT G 810929 $$$TRAU DJUACT SPAP30 PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 DKDSTM J 810929 $$$TRAD DKDSTM EQPDS " PAJRN PVATTPT PWDETP PXSKIP PZPOSD1 Q
0x460aa8…460c3c Dummy {f00=0x0158, f01=0x0190, f02=» SPAP10S z SPAP11A SPAP12 PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS DMWDR S 810929 $$$TRAW DMWDR SPAP14 PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST TNDCAB XBFMT ZCRDD ZDRWRD1 ZHWRID
0x460c3c…460dd0 Dummy {f00=0x0158, f01=0x0190, f02=»CRDD ZDRWRDS ZGREA ZHWRID 6T:DA00 810929 T:DA00D AAMAIN , 6T:ATAB ] 810929 T:ATABA T:AA00 :A xU:BTAB ^ 810929 U:BTABB U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20I U:UT10 U:UT20B U:UQQ0A
0x460dd0…460f64 Dummy {f00=0x0158, f01=0x0190, f02=» B ,C:CSY0 c 810929 C:CSY0C = N ,D:CSY0 d 810929 D:CSY0C 2 ,Z:TRM0 e 810929 Z:TRM0T 4 ,D:TRM0 f 810929 D:TRM0T B ,Z:TSP0 g 810929 Z:TSP0T = F ,D:TSP0 h 810929
0x460f64…4610f8 Dummy {f00=0x0158, f01=0x0190, f02=» U:UIF0U y ,D:UIF0 n 810929 D:UIF0U > ,U:UCY0 o 810929 U:UCY0U = > ,D:UCY0 p 810929 D:UCY0U * ,U:UOP0 q 810929 U:UOP0U ,D:UOP0 s 810929 D:UOP0U F ,U:UA10 t
0x4610f8…46128c Dummy {f00=0x0158, f01=0x0190, f02=» 810929 D:UA20U > ,U:UT10 x 810929 U:UT10U = P ,D:UT10 y 810929 D:UT10U 2 ,U:UT20 z 810929 U:UT20U = P ,D:UT20 { 810929 D:UT20U 2 ,C:CK10 | 810929 C:CK10C (
0x46128c…461420 Dummy {f00=0x0158, f01=0x0190, f02=» > ,U:UQQ0 810929 U:UQQ0U * ,D:UQQ0 810929 D:UQQ0U 2 LDOQCCY 810929 $$$TRAQ DOQCCY EPPCCYQ PAJRN XBFMT dDPECCY 810929 $$$TRAE DPECCY SPAP26 PAJRN PCVCH T:DISP. T:ERAS- XBF
0x461420…4615b4 (4, 74) Dummy {f00=0x0159, f01=0x0190, f02=» EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 EGITR2 EHISYSE EZIBUFI lIOTND 810929 $$$TRAT IOTND IOTNDS MASKR NDERR T:DELA. T:DSC0- T:DSC21 T:XSTAL >NDERR 810929 $$$TRAE NDERR XFERR1E
0x4615b4…461748 Dummy {f00=0x0159, f01=0x0190, f02=»EERR XKZEKO ZCRDD ZDRWRD ZMRDF PRINT 810929 $$$TRAI PAJRN PCVCH q PVATTPD [ PWDETPI g PXSKIP n PZPOSD t T:DSC0I T:DSC1A T:DSC2 T:EDWRF T:GETT XCLAMPJ XEERR ZMRDF QIRDBS 810929 $$$TRAR QIRDBS GETLRNR M
0x461748…4618dc Dummy {f00=0x0159, f01=0x0190, f02=»UWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP QHSPKYQ T:USE pDEMSCR 810929 $$$TRAM SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTM QHSPKYA SPAPPL SPCHK1F SPCHK2 SPCHK3O SPCHK4 SPCHK5 SPCHK6R SPCHK7C SPTCHKS T:DISP T:DUPL T:DYK
0x4618dc…461a70 Dummy {f00=0x0159, f01=0x0190, f02=»:TSTCA T:TUP T:UPDFT XCLAMPT XFERR1T @ @ SPACHQ 810929 $$$TRA SPAP16A SPAP17S SPAP18C - SPAP22K D SPAP27X I SPAPPL SPCHK1 ] SPCHK2S _ SPCHK3A a SPCHK42 c SPCHK5 e SPCHK6 g SPCHK7A i SPTCHKS k SPAP06 SPAP07K SPAP08C SPAP09S SPA
0x461a70…461c04 Dummy {f00=0x0159, f01=0x0190, f02=» SPAP32A SPAP33H SPAP34A T:UPDFS Z m ^TNDCAB 810929 $$$TRAD SPAP34 TNDCAB T:GETAD TNDPAYA XBFMT XEERR fTNDOPN 810929 $$$TRAD SPAP33 TNDINIT TNDOPN IOTND T:GETAT XBFMT XEERR LTNDPAY 810929
0x461c04…461d98 Dummy {f00=0x0159, f01=0x0190, f02=» $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP XEERR ZMRDF % XMESG 810929 $$$TRAE XDMSG XEERR XFERR1E XHERAS { T:DSC1E T:EDWRA T:ERAS XAKBINF XCLAMP ZMRDF XOPINP 810929 $$$TRAP XAKBIN XCLAMPX X
0x461d98…461f2c Dummy {f00=0x0159, f01=0x0190, f02=»A ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 ZHWRID < ZYRLNGZ V ZZERR MASKN QEMOVEC T:CLOSZ T:COMMZ T:EDWR T:IREA T:IREWA T:IWRI T:OPEN T:RSTAN T:XSTAE XAKBINZ XEERR jZFMTIO 810929 $$$TRAM ZKOPNF ZLCLSF F T
0x461f2c…4620c0 Dummy {f00=0x0159, f01=0x0190, f02=»DEMODD 810929 $$$TRA JGETLRN 810929 GETLRNK I:EVA0 PUTLRN I:RT1 F HDEFDOC 810929 DEFDOCK T:FDSP I:EVA0 I:RT1 >QEMOVE 810929 QEMOVEK I:EVA0 I:RT1 $ PCTAB01
0x4620c0…462254 (4, 75) Dummy {f00=0x0159, f01=0x0190, f02=» D:CSY0 C:CSY0 D:TRM0 Z:TRM0 D:TSP0A Z:TSP0A D:UBF0 U:UBF0F D:UIF0 U:UIF0I D:UCY0 U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT20 U:UT20F D:CK10 C:CK10I D:CK20 C:CK20 D:UQQ0 U:UQQ0 FFMOVE 810929
0x462254…4623e8 Dummy {f00=0x0159, f01=0x0190, f02=» ICLEAR I:EVA0 I:RT1 $ >EMPTYT 810929 EMPTYT I:EVA0 I:RT1 < T:STIN 810929 STRIN1 T:STEV T:RNOK T:LOFS I:EVA0 T:LOPS T:CLMI I:MOV T:GRFC T:ROK zT:STOU 810929 S
0x4623e8…46257c Dummy {f00=0x0159, f01=0x0190, f02=»:GRFC I:EVA0 & T:EDFL 810929 T:EDFL T:PRKB T:PRDY T:PM1 T:PM2 T:CASP T:DUPX T:GRFC T:SCUW T:CLRD T:IOER T:BELL T:CLR1 T:CLR2 T:CLIT T:EKEY T:DYKI 810929 T:DYKI T:PRKB
0x46257c…462710 Dummy {f00=0x0159, f01=0x0190, f02=»T : T:LOFS I:EVA0 T:LOPS T:CLMI T:PM1 n T:GRFC T:PM2 xT:UPDF 810929 T:UPDF T:GRFC T:LOFS I:EVA0 T:LOPS I:MOV T:RCR T:REWR T:RCTS P zT:DUPL 810929 T:DUPL T:GRFC I:EVA0
0x462710…4628a4 Dummy {f00=0x0159, f01=0x0190, f02=» < ZT:GETA 810929 T:GETA T:GRFC I:EVA0 T:RNOK T:ROK T:RCR " @T:TSTC 810929 T:TSTC T:GRFC T:RTES 4 T:TFWD 810929 T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBW
0x4628a4…462a38 Dummy {f00=0x0159, f01=0x0190, f02=»:DSM T:EDWI T:GRFC T:GTIP T:DISP " T:ERAS & T:GTIT T:PRDY T:TABD T:TABC T:RNOK I:RT1 T:CLDY T:WRDY T:EDIO X T:GETF 810929 T:GETF T:PRDY T:TABC T:TABN T:GTIT ( T:GRFC T:GTIP 8 I:EVA
0x462a38…462bcc Dummy {f00=0x0159, f01=0x0190, f02=» I:EPIC T:LOPS I:EVA0 I:ECPY I:EVI 4T:DEDT 810929 I:EVNO I:ESKI I:EVA0 I:EBRI I:EBRB I:EBR I:ECWC I:EXIT I:EFLA T:DNL T:TINP T:TKI T:DSL I:RET T:TABC * T:TABD . T:TABE 2 T:EDWI I:E
0x462bcc…462d60 Dummy {f00=0x0159, f01=0x0190, f02=»O I:ECPY I:EPIC I:ETXT I:ETAB I:EBRI I:EBRB I:EBR I:EOR I:EXIT I:ECW I:EFLA T:PINP T:PKI I:EFIL I:ESKI I:EXPY I:RET T:DSL * T:GRFC T:DNL 8 T:WRDY I:ENL I:ESL I:ECTR T:ENIN T:EINP ! 81
0x462d60…462ef4 (4, 76) Dummy {f00=0x0159, f01=0x0190, f02=»RDY T:CLMI I:EVA0 T:CLDY T:ENIN ' 810929 T:ENIN T:ENI T:LOFS I:EGTB T:WRDY I:EVA0 I:EVA1 I:ECPY T:EVOU X I:EVI I:EVA3 I:EPIC jT:SETC * 810929 T:SETC T:PRDY T:GRFC T:EDW
0x462ef4…463088 Dummy {f00=0x0159, f01=0x0190, f02=» I:EVA6 I:FFSN T:ROK ( T:RCR * I:RT1 T:RCTS 6 T:RTES : T:RNOK < T:GRFC @ T:WRDY H T:EDIO T:CLDY T:PRKB l T:PRDY T:DSM XT:LSEG / 810929 T:LSEG T:CSEG I:RT1 T:LOFS F T:LOPS R f
0x463088…46321c Dummy {f00=0x0159, f01=0x0190, f02=» T:SWIT SWITCH JT:TEI0 3 810929 T:TEST TESTIO T:ABOR ABORT LT:CLO0 4 810929 T:SETT SETTIM T:GETT GETTIM 4T:DEL0 5 810929 T:DELA DELAY 6T:GTI0 6 810929
0x46321c…4633b0 Dummy {f00=0x0159, f01=0x0190, f02=»CEX & T:DCE1 * I:EVA0 4T:SWI 9 810929 T:SWIT I:RT1 ^T:TEI : 810929 T:TEST T:GDSP I:RT1 T:ABOR T:KIAA T:KIAC B bT:CLO ; 810929 T:SETT I:EVA0 I:RT1 T:GETT T:SETD
0x4633b0…463544 Dummy {f00=0x0159, f01=0x0190, f02=»:RT1 pT:SCD > 810929 T:ACTV P:BAS I:NTPB T:BAT T:RSTR F I:EVA0 T:PAUS f I:RT1 PT:UNUS @ 810929 T:UNUS P:MTAB T:UER I:RT1 T:UERR ,T:EXIT B 810929 T:EXIT ZT:GTCW
0x463544…4636d8 Dummy {f00=0x0159, f01=0x0190, f02=»T1 vT:DMR E 810929 T:DREA T:REAX T:SCW2 T:IO2 T:IREA T:XREA T:IXID I:EVA2 , T:DMW F 810929 T:SWRI T:WRIX T:IO1 T:XWRI T:DWRI T:SCW2 T:IO2 T:DREW $ T:IWRI 0 T:CREW >
0x4636d8…46386c Dummy {f00=0x0159, f01=0x0190, f02=» pT:DMPO I 810929 T:DPOS T:DSB T:SCW2 T:GTBY T:IO2 T:IPOS T:WRIX T:IXID . .T:DCC J 810929 T:COPE T:COP1 T:DSB T:SCW2 T:WRIO T:IO1 T:CCLO " T:CCL1 & T:CCL2 * T:ACON P T:ACO1 T T:A
0x46386c…463a00 Dummy {f00=0x0159, f01=0x0190, f02=» I:EVA0 ~T:DCR N 810929 T:RECE T:REC1 T:REAX T:OPT T:IO2 T:AREC T:ARE1 $ T:STCW T:SCW2 D ~T:DCS P 810929 T:SEND T:SEN1 T:WRIX T:OPT T:IO1 T:ASEN " T:ASE1 & T:STCW T:SCW2
0x463a00…463b94 (4, 77) Dummy {f00=0x0159, f01=0x0190, f02=» T:READ B T:REAX L T:DSC0 r T:DSC1 T:DSC2 T:XSTA T:WAIT T:MWAI T:IO1 T:IO2 ` T:IO3 d T:IO5 p T:IORE t T:GCW2 T:GTCW I:RT1 T:IOEN T:EDWR I:EDW T:EDWE T:EDWF T:EDWI T:EDIO T:KIP
0x463b94…463d28 Dummy {f00=0x0159, f01=0x0190, f02=» T:SCW2 T:DSCX j I:EVA2 T:SCW0 T:DSR T:CW Z 810929 T:STCW I:EVA2 T:SCW0 T:BCDB $ T:GTCW T:BINB T:KIAA T:KIAC T:GCW2 T:SCW2 >T:LEN ^ 810929 GETLEN I:EVA0 I:R
0x463d28…463ebc Dummy {f00=0x0159, f01=0x0190, f02=» rT:KIA a 810929 T:KIA T:NKIA T:ABUF T:KIPR T:LSEG T:IORE T:KIAA T:KIAC ,T:ABUF d 810929 T:ABUF PWRITEL e 810929 WRITEL T:FDS0 T:DSM I:EVA0 T:IO2 8 DI:NTP f 8109
0x463ebc…464050 Dummy {f00=0x0159, f01=0x0190, f02=»ST D T:CSEG I:NTPA H I:NTPB H P:MTAB T:LSEG I:NTP r I:NTPR r I:EVA0 I:EVA2 I:RT2 I:RT1 I:RT0 T:BAT T:PAT T:CAT I:EVB I v I:EVA k 810929 P:MTAB I:EVA2 I:EVA1 I:EVA3 $ I:EVA6 ( I:EVA5
0x464050…4641e4 Dummy {f00=0x0159, f01=0x0190, f02=»:SUB I:CPA X 2I:CMP s 810929 I:CMP I:CPA n *I:CPA t 810929 I:CPA | 4I:MOV u 810929 I:MOV I:MVC HI:MMOV x 810929 I:MMOV I:EVA2 I:EVA0 I:MOV T VI:MUL y 81
0x4641e4…464378 Dummy {f00=0x0159, f01=0x0190, f02=»PA I:SH1L I:ADD I:SH1R ,I:NTF 810929 I:NTFA 8 I:EDT 810929 I:EVT B I:EGTD I:EVA2 I:EVA5 I:EVB I:EGTB I:EVI I:EVA3 I:EVA0 I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR I:EIN
0x464378…46450c Dummy {f00=0x0159, f01=0x0190, f02=»AS I:ETAB I:ECPY I:ETXT & I:EXPY & I:ECTR 8 I:ESL B I:ENL L I:EOR b T:EDWF I:ECW l T:EDWE I:ECWC v I:EFIL I:SCB >I:EPIC 810929 I:EPIC I:EVA0 I:SCB I:EDTE 810929 I:EKIH
0x46450c…4646a0 Dummy {f00=0x0159, f01=0x0190, f02=» <I:EDS 810929 I:EDS I:EVS2 I:ED1 & nI:STR 810929 I:DLT I:EVS1 I:MCH I:INS p I:EVS2 I:CPY I:XCP I:MVC LI:EVS 810929 I:EVA0 I:EVS1 8 I:EVA2 I:EVS2 J
0x4646a0…464834 (4, 78) Dummy {f00=0x015a, f01=0x0190, f02=»2 STRIN2 USRFLD STROUX . STRIX 2 USRFMT 6 T:GRFC T:STEV T:EDWI I:EVT I:EDSK I:RT1 I:EVIN T:EVOU B STRIN2 810929 STRIN2 I:EXIT I:EVA0 T:CLMI I:MOV T:GRFC RSTROU2 810929 S
0x464834…4649c8 Dummy {f00=0x015a, f01=0x412a, f02=» T:DSB T:WRIO T:IO1 T:CLOS F T:DCLO Z T:COMM f I:EVA0 I:RT1 T:PCOM T:GTBY T:GDSP T:ROLL T:RSTA T:SCW2 T:IO3 T:OPCH T:STCH T:IXCH T:USE 810929 T:USE I:EVA0 P:MTAB T:UER
0x4649c8…464b5c Dummy {f00=0x015a, f01=0x40d0, f02=» > @ IDENT T:LEN P,REL=11.0,810128,870136941100 l GETLEN l F GETLEN l X I:EVA0 l l I:RT1 l ~ ( $ A #03 1 l l @ l XIF * % LDR A4,OP2A SAVE ADDR. TO RETURNITEM
0x464b5c…464cf0 Dummy {f00=0x015a, f01=0x0190, f02=» > @ IDENT T:ADIT P,REL=11.0,810128,870136941100 m & " T:RREA T:RRE1 T:RWRI T:RWR1 m F T:RREA m p T:DSB m T:RRE1 m I:EVA0 m T:STCW m , ( A &P C m T:IO2 m
0x464cf0…464e84 Dummy {f00=0x015a, f01=0x4034, f02=» : m t 6 + 6 n F n @ n 0
0x464e84…465018 Dummy {f00=0x015a, f01=0x0190, f02=» > @ IDENT T:KIA P,REL=11.0,810128,870136941100 o T:KIA T:NKIA o F T:KIA o ^ T:NKIA o p T:ABUF o T:KIPR o , ( W 6 V :a o , ( ' ( ( o
0x465018…4651ac Dummy {f00=0x015a, f01=0x0190, f02=» y K V K V 6V ( - o , ( _ : J 7 J V W J p , , ( :A V 6V $ - _ * p , ( + : D T E D :A D p , ( ;A 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x4651ac…465340 Dummy {f00=0x015a, f01=0x40c8, f02=» D V p p , ( @ m D V ( 2 C C q _, q @ H D !r W ^ - 2 IT MP Y V V T> Q U ! R /P 7P ?W q R [R ]P q q @ q 9A Q 5 U _ 5 p T:KIAA p T:KIAC
0x465340…4654d4 (4, 79) Opaque[0x194]
0x4654d4…465668 # DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2b48, f03=0x0000}
0x4654d4…465668 IdxSect {
0x4654d4…465668 f00 = 0x015a // 0x4654d4 @0x0
0x4654d4…465668 f01 = 0x0020 // 0x4654d6 @0x2
0x4654d4…465668 gno = [ // 0x4654d8 @0x4
0x4654d4…465668 [0x00]: C0x015a.0x1.0
0x4654d4…465668 [0x01]: C0x015a.0x2.0
0x4654d4…465668 [0x02]: C0x015a.0x3.0
0x4654d4…465668 [0x03]: C0x015b.0x0.0
0x4654d4…465668 [0x04]: C0x015b.0x1.0
0x4654d4…465668 [0x05]: C0x015b.0x2.0
0x4654d4…465668 [0x06]: C0x015b.0x3.0
0x4654d4…465668 [0x07]: C0x015c.0x0.0
0x4654d4…465668 [0x08]: C0x015c.0x1.0
0x4654d4…465668 [0x09]: C0x015c.0x2.0
0x4654d4…465668 [0x0a]: C0x015c.0x3.0
0x4654d4…465668 [0x0b]: C0x015d.0x0.0
0x4654d4…465668 [0x0c]: C0x015d.0x1.0
0x4654d4…465668 [0x0d]: C0x015d.0x2.0
0x4654d4…465668 [0x0e]: C0x015d.0x3.0
0x4654d4…465668 [0x0f]: C0x015e.0x0.0
0x4654d4…465668 ]
0x4654d4…465668 }
0x465668…4657fc Dummy {f00=0x015a, f01=0x0190, f02=»`< wn CR> L D K fD Q D V VD [ D a D g D m D s n p
0x4657fc…465990 Dummy {f00=0x015a, f01=0x0190, f02=» R P R A 0 p 1 b p + " 2 p ` n e A0 | 2 f x F P ` @ vA0 0 * 8 UBF UIF UCY UOP UA1 UA2 UT1 UT2 UQQ (
0x465990…465b24 Dummy {f00=0x015a, f01=0x0190, f02=» 3210 * B 0 f B t 0 0 0 ! N
0x465b24…465cb8 Dummy {f00=0x015a, f01=0x0190, f02=» * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F : 0 0 0 @
0x465cb8…465e4c Dummy {f00=0x015a, f01=0x0190, f02=»
[…0x3…]
0x466308…46649c Dummy {f00=0x015a, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x46649c…466630 Dummy {f00=0x015a, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x466630…4667c4 Dummy {f00=0x015a, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x4667c4…466958 Dummy {f00=0x015a, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x466958…466aec Dummy {f00=0x015a, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @`< < v D @ 8 H L x`8 D E X_j DEX D' W^j D W D*j D DF0 DP 0 1 A A24 0 4 1 P 3V W Y W@3 % % 1 Xt 1r2(3 X 2 3 X X 1$X L3 b$ 0 X X X W`4&4 1 &j/ #
0x466aec…466c80 Dummy {f00=0x015a, f01=0x0190, f02=» / 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-
0x466c80…466e14 (4, 81) Dummy {f00=0x015a, f01=0x0190, f02=»ZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- ? < < < < . ] FORMATFILE OPEN UNSUCCESSFULL e e e e e e
0x466e14…466fa8 Dummy {f00=0x015a, f01=0x0190, f02=» " $ & ( * , . 0 2 4 6 8 : < > @ B D F H J L N P R T V X Z ^ ` b d f h j l n p r t v x z | ~
0x466fa8…46713c Dummy {f00=0x015a, f01=0x0190, f02=» % * / 5 ; A G N U ] e m v 3 I _ / u ! Q ! t 4 j T& P 4 ' W T 4 & Q <W P W @
0x46713c…4672d0 Dummy {f00=0x015a, f01=0x0190, f02=» : A A : A @ P 8 T Z T : @ A _( : W W ( B P X A : @ A | ~ P R _ : 0 E T : : A @ @ : t A ~ P * Z : A 8 T P A : : $
0x4672d0…467464 Dummy {f00=0x015a, f01=0x0190, f02=»
0x467464…4675f8 Dummy {f00=0x015a, f01=0x0190, f02=» 4 4 4 F 8 1 Y ` 4 #0 = 4h & + P _ =d ` 4
0x4675f8…46778c Dummy {f00=0x015a, f01=0x0190, f02=» Q Y W X " X X . 8 #j 0J X 0P X T 5 ! Y * y X V. X ' X ( '$ x C ( Y * X Y , ' X X C & C C ( B Ph9 R^9 !> X !@PP X X * b ) Y * Y , X , '
0x46778c…467920 Dummy {f00=0x015a, f01=0x0190, f02=» X * _R X !@XX y X # x V y X X * '$ P P 1 _ 1 X * X X * $" X D % " X # X * '$ y _< X # X * y '$ X 1 1 X !@T X $ " P y _ x T ". ! X H X X * , )$ P _ : X
0x467920…467ab4 (4, 82) Dummy {f00=0x015b, f01=0x0190, f02=» x Tf B !~9 R 9 !> X ! T ! _ y C Q " T 'L '$ X ! "N X X ! x Y~ Y _ X "@P B R y C B P 9 V ! _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c 04 C _$ _ " y _6
0x467ab4…467c48 Dummy {f00=0x015b, f01=0x0190, f02=» x X X # '$_ " O C C ( # B P B " C & : + 'L X ' '$ ( 1 4 ( 1 / : B "^ C _J + . 0J X 9 V ! P @ Y 4 #0 = Y Y . X ! = : 4l 4 " 4 " " 4
0x467c48…467ddc Dummy {f00=0x015b, f01=0x0190, f02=»04 '* 0@ 0J 4 !0 = X 0F #j 02 1 ' 4 ! Y 0T V 1 7 : 0J 2' =T 4 " P # P = R P P X ' ' ` X _ X ' _ X '?_ 0J 4 ! P # P = X ' 0F X ! 02 04 0J X " 9b! X
0x467ddc…467f70 Dummy {f00=0x015b, f01=0x0190, f02=»9h Q X :h Y 0 ' W U X Q ( W Y 0 ' )N Z [B [ Z 0J 9H Y * & W W & 0 Z X 0T =X X 2Z X +" X *9h P: R Y ?_ P R P R =T Y +Wl &N Y + &@ ' WZ T R( &@ & WJ Q W Y + U Q =T Y
0x467f70…468104 Dummy {f00=0x015b, f01=0x0190, f02=» X 0 :H* 0R : X 2T Y 2 : C 1 B ] ZB : 0 & X +! =T X +! U 9K Y ( Y + ' )N 0J9H Y * 2 Y ( Y ? Y + 4 & 4 0 4R & 6 2 X 0 =X : ! P # T : = C ( C : C B _( _ 0 X '
0x468104…468298 Dummy {f00=0x015b, f01=0x0190, f02=»# V : 4 ; _0 7`_>< < 4 < < < < < < <@;@<@: ) * * < ) < < ;: W W X 0Q ( ( Y ( Y *P Z : ' X <' X X :: 0J X *# X ( " Q " P X 0PR V _` " PL T " Ph .2 1 Wp " P Y 0] Y (_z P P T0
0x468298…46842c Dummy {f00=0x015b, f01=0x0190, f02=» Z / C W @ X (T W X y 6 Y ( : X (;n 04< ; ^(; ; *F< < < <,;@<6: ) *j*j<J) < ; ;: 0J Y . Y ,W 0J Y . X ( X ." PV X 0RzT$ Y *P U :H 0R )X K T < W < X . X 2QP Y *T2 < : " P$ X 0U X *# P P T " T :
0x46842c…4685c0 Dummy {f00=0x015b, f01=0x0190, f02=»T X &P V H " P < / 0J X ?! P* R Q$ X &P V D ! P $ ! P %_ < : 0J V Y " X .9H $ <p P & X ( " Q Y +Q R " P W " U -F Y , " Q " = X . X 0R P" X *:h P PD = ) Y (W X *:h Pt Pn P
0x4685c0…468754 (4, 83) Dummy {f00=0x015b, f01=0x0190, f02=» ( ;@ : X *:h X (! # P X & V L TbW X , X 0P@ -z T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l - _r X ( P Y (_ P* - P| Y 8 * X 8 X $ 0RWh_ " P X ( T X & V H "@TF - P6 V Y X (P / -
0x468754…4688e8 Dummy {f00=0x015b, f01=0x0190, f02=» ( P - : : -^ "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : 0J X : X ( T X & V H " V Y : X $ 0R X : 0f : X Y " X Y $ X Y & X >W X < Y = " 1 ! T W < ! P =H <
0x4688e8…468a7c Dummy {f00=0x015b, f01=0x0190, f02=» X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y 4 W Y ! P 4ZW V Y / V Y : 4 ; : 2' " P T 7`W 4^ ^( : / : 0 0J Z / C 0@ X 0R : "0P ' Q W ' Y
0x468a7c…468c10 Dummy {f00=0x015b, f01=0x0190, f02=»0J X @ ; [ [FW 0J X B ; [ [B [ Z : :( R : V E V D ' $ =t W 0 P ` X =' V W V Y =P 0 : Z "Q V I ` Z ( T _, @] X2 @] _< 4 1
0x468c10…468da4 Dummy {f00=0x015b, f01=0x0190, f02=» ( ` 4 #0 T 4 #0 T V ` = 2 & = >A >A 2 $ 4 & V D 9a 9 V @ W @ T 3 X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X ( R 9 8 ?
0x468da4…468f38 Dummy {f00=0x015b, f01=0x0190, f02=» 9T I Y ` 9 _ ( XN W ] Yl XN W 3 Yl _ 4R &:K : X$ W / Yh W( X$/ W W ] Yl X$/ _ X$ W / Yh X$/ Yh X$ W Yh :l:d:h 4 W W P W 6
0x468f38…4690cc Dummy {f00=0x015b, f01=0x0190, f02=» W D V L4B , W 6 2 7 W$ " P& Pd" # 6 ;b Wv " ;d# _ [ v [ 1 4 1 Z Z : R ; 4 6 : F _v =(:B , (V ; H [ [ [ 4 Z (
0x4690cc…469260 Dummy {f00=0x015b, f01=0x0190, f02=» 7P : Z 4 " 2@P : [ [ 4 & @ ! P = Z = [ 6 [ Z 7 4h Z 7 : T # ( 5t 54 " T # :A ( @ " P ! P [ :;H 2 ;h R # # XR : ; V Y :
0x469260…4693f4 (4, 84) Dummy {f00=0x015b, f01=0x0190, f02=» 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q 8n ,^ , < 8v # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V
0x4693f4…469588 Dummy {f00=0x015b, f01=0x0190, f02=»9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : !! gg++ L 33 < 4R4h7r< 7`4^4 < ; ^(; ; < < < < <,;@<6: < <f<f<J< < ; ;: :N 6 : K
0x469588…46971c Dummy {f00=0x015b, f01=0x0190, f02=» '?W "? H9 " K :e J J " J _Z Z ; [ Z P 0 [ V =( 7_ W Z ; @ ! P 0 Z 7 Z Z P 0 : V R (Q V : : : J P v I < :
0x46971c…4698b0 Dummy {f00=0x015b, f01=0x0190, f02=»X & Z J K : V : J T =8 1 ; <p : ! P ! P ! P ! P 4 ! P 4ZW : ! )P9H " = # T &W &" :I : < : P & _ &X _ : =H : : : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP
0x4698b0…469a44 Dummy {f00=0x015b, f01=0x0190, f02=» lJ ** Ak Ak ER Ak R Ak k A >r R 4 A 4 $ Ak k U 4 1 _ "T @ % W T, @ % 1 X & A Ak m k @k B ` ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT
0x469a44…469bd8 Dummy {f00=0x015b, f01=0x0190, f02=»ITHM OVERFLOW STACK OVERFLOW &IX OVFL,ARRAY: ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER
0x469bd8…469d6c Dummy {f00=0x015b, f01=0x0190, f02=» ERROR DATASET BUSY ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE FILE ORGANIZATION UNDEFINED SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE:
0x469d6c…469f00 Dummy {f00=0x015b, f01=0x0190, f02=» $ $T$ D BR V T D P T D @PL E @W . @C P$ B C $ $P BT , D E @ : @A P AA H ADlW TW V AA Dr Dp V ADt @ ( E ( AA Dp @Dt V P ( R W A @ ( E : @ ( F : ADv ADx E AA Dr V ADt @ # P (
0x469f00…46a094 (4, 85) Dummy {f00=0x015b, f01=0x0190, f02=»
0x46a094…46a228 Dummy {f00=0x015b, f01=0x0190, f02=» Dz Vn( ( Vn( EB U D "! AE U U @Dp @Dt @E P (
0x46a228…46a3bc Dummy {f00=0x015b, f01=0x0190, f02=» U U U Dr UZ @DvP U @Dx UZ ADv AE V AE "V # ( EB U AE P UW T U U AE P V G| S F @Gh GF =H WH QI MJZ /K SL IL JM TN YN( GN^ LN PN HN RN VN KO U U _ G UZ_ NO! AG` AGb AGd
0x46a3bc…46a550 Dummy {f00=0x015b, f01=0x0190, f02=»" , AGx L AGt L @ AGp AGv_T P X ,T P X ) AGl AGn U S HL H ;Hp :H H @GvP AGz1+X AGz_ H @Gh AG` @Gj AGb @Gl AGd @Gn AGf_ S. AGt @GpV SJ H " @GvT " @Gx @GzP AGj AGh " GF @Gj Uz F T @E AGj @E AGt @E AGp @E AGr @
0x46a550…46a6e4 Dummy {f00=0x015b, f01=0x0190, f02=» ATx @Tx Uz W U @E AGp @E AGt_x ED AE PZ @Gj& U 0 Uz P P U UZ P @R U U K^_ U U U U _T U U J F 4 Uz T P U UZW T @R U U W U U U B "T" @E AGj @E AGt @E AGp @E
0x46a6e4…46a878 Dummy {f00=0x015b, f01=0x0190, f02=» @V F @Tx AE U Uz U S U U T UZ AUX F @GpR V ;a Q U _ U 1 F U @Tx AE _ 0 Uz U AK G| P 3P GF C @GhP @Gj 1 @E P @Gp Q @ @Gt Q P " F T @E AGj @E AGt @E AGp @E AGr @Gj ATx @Gp AE @Gr AE @Gt
0x46a878…46aa0c Dummy {f00=0x015b, f01=0x0190, f02=»U @E AGp @E AGt_ @E P @GpV @Dt( GF V " @GtT @Dr R TP @GhP @Gj ATx AE AE I< U 0! U U G| T @GhP @Gj" 1 F GFPx @Gj @Gl @Gn @GtT @Dr Q RX ATx *9l! P2 I< Mv &9d! ) M W P$ &9d M & M _ Mv & M
0x46aa0c…46aba0 Dummy {f00=0x015b, f01=0x0190, f02=» % < < U ! U U G| T @GhP @Gj! 5 = F GF GF P8 F P @Gj GF P W" Cb P Cb $ B % AC` F T @DpW @Gj AE GP @GpR ADt AE ADp @Dr( F AE GP @Dp P GF @Gj @GhT I @_:P P8 @Dp P _ AE GP ADl @Gt ADn F
0x46aba0…46ad34 (4, 86) Dummy {f00=0x015c, f01=0x0190, f02=» )W C P AC F C , AO AO :B AO Q (P _ H B @GtT @Dr H AO " GF EQ GT LT NE NG NL P2 @E R* U S O @GjP Q O ( F GF L U Cb ( R ( @GpV @Dt H B W # + C " Cb B APb APb:B APb
0x46ad34…46aec8 Dummy {f00=0x015c, f01=0x0190, f02=» B ) I B " GF $ % " U # C C C C *T W #T AGr U T P PR (T P Pl ,T P P^ )TX U S. AGt T @Dr Q R: ?aP *:l" T* & W T C B B B B B " GF AR~ AR AR AR AR AR AR R R
0x46aec8…46b05c Dummy {f00=0x015c, f01=0x0190, f02=»$ QV L % QL R R W C " _* Q P Q V _ W " AR < V " F <P W* @E " P ( GF $ C " :T U U U "
0x46b05c…46b1f0 Dummy {f00=0x015c, f01=0x0190, f02=» AUV AUX 4 U Uz 4 @UV IT T AUX ATx ATxT AUX T T& @GpR Lt AUV N @Tx " @E ! PD @GtT @Dr S Tz Q";H @Tx;d Td ( @Tx "( GF @Tx " :S :X :Y :Z U $P WH U AT AT 0R 9Q 0 AT
0x46b1f0…46b384 Dummy {f00=0x015c, f01=0x0190, f02=» AUV AUX 4 U Uz T AUX AUV " , Uh "! R _U .WV AU : U AU " 9d U ! R :W& U W U W W ?W :W .W / aV AV T V< " @V:T V< AV V Vn( @V AV: " V< V2 Vn( A( V0( AV:
0x46b384…46b518 Dummy {f00=0x015c, f01=0x0190, f02=» [ 2 2 ! <e X(/ V ,!? B H ! T )@) - Yh [ C -/ Yh [ <H _ ( 4 R ' ` 4 [ Z ,# ; (
0x46b518…46b6ac Dummy {f00=0x015c, f01=0x0190, f02=» _ [ C [ P 4 <H : XN Yl [ [ 4 &P B V C / <H : [ [ C C W [ C 9HR X ' W 781"&$ 39#$;< '()*+,-! [ [ 4 P _J Z B 4 'W Z ( W 4 [ 6 =( Z 1
0x46b6ac…46b840 Dummy {f00=0x015c, f01=0x0190, f02=» ] W B % P C + ` Z I B P B P B 5 : Z [B [ Z :t Z C C Y C B B P C ZB : B T = V I C B : ( ' P Z I : [ [ % Y 4l C 4 & = = C 4
0x46b840…46b9d4 (4, 87) Dummy {f00=0x015c, f01=0x0190, f02=» =l W ,"? :D;B D V : _B W "!@ =x T B =L D =| " T E "* # " T "*@ # : L C L C B C : Z [F [ : Z [ : 4 C : : [ [ ,V ] : 4R P C W $0 P = C . : ($
0x46b9d4…46bb68 Dummy {f00=0x015c, f01=0x0190, f02=»:AV X R _ S W 4 _T :#0 T B 'W = B B " : P] ] PR L] R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@
0x46bb68…46bcfc Dummy {f00=0x015c, f01=0x0190, f02=»#0 T & C C : = N C C : : + 4 [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I_ * B Z 9 ! ; *Xt 8 ! D_ 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J =8 1 ^ !00T ; <V
0x46bcfc…46be90 Dummy {f00=0x015c, f01=0x0190, f02=»X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ ^ 8 8 !++P !-- z ;$# + ^$ _* |`. PT*AXYZ9` ` ` a b a b 7 b b dFe g:g:e:b b b$` bv` b$b$:nj jLi i j i a b b b b a a a a 0 V T P T T P ] Y V 7 @ ! P 0 P W
0x46be90…46c024 Dummy {f00=0x015c, f01=0x0190, f02=» @`6]f md @`6]p m = 2 P V W< _ 2 # ;B bp V T W V P L , V 2P " 2 P V D ! R T V P V 0 W V P _ 8^t D` V| @ 2 ! 9BP V T W V P D $ V 6 V % V E W 2 %
0x46c024…46c1b8 Dummy {f00=0x015c, f01=0x0190, f02=» _ W a 6 D " 7 $ V P 0 W a _ ` 7r V & a$ H`6 'W 'W '_8 W = # = " T & T + : * & !@P `1` P d Q [ ; 8 V W Q P [ ! X # P
0x46c1b8…46c34c Dummy {f00=0x015c, f01=0x0190, f02=» Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 = P8" T * & : * & !`P :J +_ +Q d _0 , T T XD W 1 L P X _& R W ( V W
0x46c34c…46c4e0 Dummy {f00=0x015c, f01=0x0190, f02=» [ [ 4 Z Z 7 : V ) 0 = !0 = " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 =( [ [ [ [ $ [ [ >h [ [ ip7
0x46c4e0…46c674 (4, 88) Dummy {f00=0x015c, f01=0x0190, f02=» z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 = !0 = " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V
0x46c674…46c808 Dummy {f00=0x015c, f01=0x0190, f02=» z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z ipd Q ipg P _ T { [ ipiR [ Q@ [ ipb { R [ _ ipb ipg Z ! Z $ Z %_N [ Q* ipb ipd R [ Z { ipb z 9e! W Z : V I
0x46c808…46c99c Dummy {f00=0x015c, f01=0x0190, f02=» : { : k $0T k Pb 9 _ k $0T [ k $0T Z : R$ P $ 1T Y TdW 5 _& : k $0TH $ R W R # P W ) V E k $0T Wr W W = k [ k : Z
0x46c99c…46cb30 Dummy {f00=0x015c, f01=0x0190, f02=»P kT T : & 9! " : $ : T W V 9! R W Q< R W Q4 R W Q$ : k 4R#03 T $_X k _^ W !W = k p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 11.0 TRACE
0x46cb30…46ccc4 Dummy {f00=0x015c, f01=0x0190, f02=» k p Ak ) Y V Ak k V V A . 1 V A v A Ak : lJW lJ 2 k A @ # T R A 4 A & A lFQ k Ak W> lJ k V D ! )0 1 @ # T 6 V ^ A Ak m ` k (
0x46ccc4…46ce58 Dummy {f00=0x015c, f01=0x0190, f02=» f q Z ^ b1 I5 J1 W @2 1 W "` !"b9 A " A 0 #)6{ I5 H1 W )6b W "a?J1B !"b _J _N1 0 H5% "a Ma 7` 8{ :` ;` I2y I2t 1% eeW2 7` M`!"a I2u I2X I2S 1% ee I2G Me 7e!7` 7` ` 2 32 3 I58 I2% 6`);a A6)>` A9)?` A7 I2 !"a" I2 W )"`
0x46ce58…46cfec Dummy {f00=0x015c, f01=0x0190, f02=» f{ % 1 I2kH4 ' J1 @4_)H5 HW &I2@ 6b a =e 2 I2- +` + l# ` ` l#` ` ` W 6a @`4 %e 2#e . e I2(H ! { ! a %7b 0 W CwW CvW C W 4 I5 I1 (j W f`!fb Cx W A4 A 4 0 #I2 6a 4 e C$
0x46cfec…46d180 Dummy {f00=0x015c, f01=0x0190, f02=»L #@ AV I2 I2 !R 7!R 3!R /!S IV s_W! pS pg p p I2 W I2 IU e{ c{HW Wf!S )R WZ)R WR!R )R WF6R $(,0!_z !W0 "W, #W( $W$ %W &W 'W (W )W *W +W ,W W !R !"b ) a IB HU 0 ? 4 "` 0 ^ I2 0 ^ I2 1%W "{4 ` I2
0x46d180…46d314 (4, 89) Dummy {f00=0x015c, f01=0x0190, f02=»JK J J JK%J " K JK J J JK%J` #Jh K %K` %K C 4 ) R ` )S W ) R a !S IQ IR IT IS W HV ) R ` IQ W ) R a HQ IS IR IU IT HV ) R ` IR W ) R a HR IUwITtHVq) R ` IShW ) R ` IT]W ) R a HT IROIQLHVI) R b HT HQ=) R ` HV4 D ) RD` IU(W*) RDa HU!IT IR IQ HV ) RDb HU
0x46d314…46d4a8 Dummy {f00=0x015c, f01=0x0190, f02=» ' N % L v f g > J 6371 $ 2 y ] * FORMAT FILE VOLUME NAME ? DSC ] DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA BAS
0x46d4a8…46d63c Dummy {f00=0x015c, f01=0x0190, f02=» V H J k J k
0x46d63c…46d7d0 Dummy {f00=0x015c, f01=0x0190, f02=» @B)R IT IU ? IU HT (H2 ? H6 G I6 (A - _ HQ ? (H2 ? HB AU)R )a~ !:c !:a !&` ? ? W.HUn#R j%R f D C D D D D R C I2 AB@U_S? %a %a %a %a %a %a W )R (a= AW? a W a I2 H _q a a a% a(H1 !R !! b !R !:c !:a I IR
0x46d7d0…46d964 Dummy {f00=0x015c, f01=0x0190, f02=» I2LWJ . W= W7 > W1 / W+ 0 W% $ W - W ) W H6 HT G G ? * I2 ? 4 )R !_} !_{ !_| W !:b ):~ W %7k~)R %7kv)R !8~nHU W ):beHT !;~^(R !;`V)R HQ !<~K%R #R %:a !:b I5 H1/)R H1()R !S H1 )R #)R !S IV I5 H1 W W , W . 4 0 0 0 0R JP
0x46d964…46daf8 Dummy {f00=0x015c, f01=0x0190, f02=» W 0 /# G `7 J J J K K e f g h a b c d _z e f g h a b c d A BI2 +` + "b I2 I2 W "a @j4 )"` S pS pg p p I21I !"` Af I2 #Ss p )"` S S 8W +` +@f4 kr
0x46daf8…46dc8c Dummy {f00=0x015c, f01=0x0190, f02=» 4 !w~ "vw C$W%#u~ #w~ x~W #x~ x %7d 0 0 4 !u~ W !w~ #x~ C W !x~ C W 4 #t~ C W u %7b 0 0 4 #v~ C W w %7c 0 0 4 )"`h ` A I2 Dw0 D P 0 Dy0 DT5 W^0 e e e /#e ~ I2A0
0x46dc8c…46de20 Dummy {f00=0x015c, f01=0x0190, f02=» C W W A 4 4 0 6 ' 9 ? % E d J F N 3 H 634463466371 0 0 0 0 0 0 0 "0 %
0x46de20…46dfb4 (4, 90) Dummy {f00=0x015d, f01=0x0190, f02=» V J N R E I2 D" V 0 VD0 Dz0 D Dw D i{ f` ga hc i| ib jd ke l DF D m0 ^ # o0 ^ k} k k k k k k~ k k k k % Dx D Dw D qe !rd #sb i{ $tc "ua0 4 E D E0 D
0x46dfb4…46e148 Dummy {f00=0x015d, f01=0x0190, f02=»A A o A c(A A ` A T A A ae aI *a( W *a) eaW ae ea_ a Dy E j E 0 D T 0 # ` 1 _z +` +W A2@m4 IQ (a#( F a(W )a#) : a)Aa pI2*IU HQ `IU HT a +` + W n @a4 % # A I2 I W C* W C 4 Ab
0x46e148…46e2dc Dummy {f00=0x015d, f01=0x0190, f02=» `W @d@c4 Ag e` 6I2D!e 3 I2,H e` 7I2 !e _& 1 I2 +` + HU 0 @g4 AeI1 ;I2 W <I2k +` + + `H1 ( WR " f W a I2$ I2 ! a W
0x46e2dc…46e470 Dummy {f00=0x015d, f01=0x0190, f02=» % J 7 A C f D,A,L,CHDK,N DK,N (2)E F,CH,B,LGB,NL,B I,CH P S,SF US YU 1012561475710058000000 p q y a "5 15 @ k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>?
0x46e470…46e604 Dummy {f00=0x015d, f01=0x0190, f02=» $ , 4 < D L T d0 z0 {0 }0 0 0 0 0 0 0 0 0 0 y 1 z > >
0x46e604…46e798 Dummy {f00=0x015d, f01=0x0190, f02=» Ah ba !b|+ !:b ):| D" V{0 VD0 Dy0 D D W !&| W C I2 #b|# a aa"a) a I2 J b aIS W @S AS k #b| )&` 1 W 1 W Ts T1 T A U U U J I20H U_ #b| !&` H ) a ( b I2 #
0x46e798…46e92c Dummy {f00=0x015d, f01=0x0190, f02=» d|W c| d Cx C #b| )&` 0 W 0 W Ta T0 @ 4 IR H5 ARW `W f | 3I2Z l# +` +HS } I2. I2' !:a !:c IR I I2 W 4 ` c` c C$ 4 ` e` e C$ 4 HS } %7c 0 0 4 AnIQ aW |H5 I
0x46e92c…46eac0 Dummy {f00=0x015d, f01=0x0190, f02=»Q @n4 IS } In %7c 0 0 W %7d 0 0 J H J J -J| Cv 4 a|H5 JW 5H2 W a a h l# ~ HS } +` + a I24 I2- I2& I2 !:b #:` I I2 W 4 `A%a #a W
0x46eac0…46ec54 (4, 91) Dummy {f00=0x015d, f01=0x0190, f02=» I 0 W 0 W C> W C* A` La4 %b #b W C WN(ab CwWB b I24H +! a'! b#! | C)W J J( J C>W W C* 4 Al H5 KW ?I2 +` + @l4 Ak IV I2 !R ev fwW A et fu h` jz kz d|A @I2f h` +` + lj c lk d I
0x46ec54…46ede8 Dummy {f00=0x015d, f01=0x0190, f02=»dx6 gf dc df dy d W%A j# ks dc dy d !f| *cx gf dfW de0 0 4 @WAi J| K| H5 LW AI2q J J J K K H5 MW B@2 l# l# l# l# ` I2 +` + | 6aW a@i4 2 a 6 t z 0
0x46ede8…46ef7c Dummy {f00=0x015d, f01=0x0190, f02=» 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 10 50 9 K K
0x46ef7c…46f110 Dummy {f00=0x015d, f01=0x0190, f02=» B P P | | % E E E E 4 D E D E DE E D 4 q r| s| t u v w x y` | | | | 4 | | | | 4 2 = |4 2 = |4
0x46f110…46f2a4 Dummy {f00=0x015d, f01=0x0190, f02=»2KI 1 WB I2= d ! a ! h ! W d 1 T U_F% a I2 Cx C 0 T b HU 0 4 T`%T T`) 0 : I2 J JT JJ J4 !:b ): D{0 D G 6G ,28>D Cv C 0 W=1 W70 Cw C 0 W 1 W 1 W 1 W 1 W 1 W ):e 4 I5 AZ
0x46f2a4…46f438 Dummy {f00=0x015d, f01=0x0190, f02=»k T1 !G Tc@X k T1 @Y@X T l# T1 Tc0 T1 W Tq0 T1 T T1 W 0 @Y@X@Z4 Dy0 D 4 0 4 1 4 J !:a !:c !:` Ja J JoW J`0 J4 X~ W}jW 0 X WD D ` Ez I `0 E 0 DW0 DX (I D D 0 X WD I #I: _6 ( )
0x46f438…46f5cc Dummy {f00=0x015d, f01=0x0190, f02=» , D D " D"" H3 A3" I0 A0@1W I1 A1@0W 4 D D 6D W A0W A1W @0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 `% `4 `# 4 @ J Ja Ja(J A 4 % " ! W 4 3 i a 2
0x46f5cc…46f760 Dummy {f00=0x015d, f01=0x0190, f02=» $ % 2 4 6 y y k Z 9 'c (d Z 9 l 4 ! !a 7d 7 , = 2 Z 9 S (R) b Z 9 k X Y 2d s 2d .)g 7.c Z 9 l 7 X Y Z
0x46f760…46f8f4 (4, 92) Dummy {f00=0x015d, f01=0x0190, f02=»0 =0 ?0 A0 C0 E0 G0 K ( = S k ! - t t
0x46f8f4…46fa88 Dummy {f00=0x015d, f01=0x0190, f02=» H7 D "D D D _ J D "D D D _ T( J D "D D D _ I2m KJ J JK D K "D !J cJ c D Dc K D Kc JK D _" K D E F n} J DEFKWnW!W W c JW c J P cW S c@24 0 L D J K "D K D K D K JK D _ "J 4 Cw 4 H7 W NI2
0x46fa88…46fc1c Dummy {f00=0x015d, f01=0x0190, f02=» hWF E @ E EW_> D "D D D _ O D "D D D _ I2 A @ @ 4 D "D " (D D D _ D _# 4 0 JL!J ` 4 C 4 I I I I 4 @ @ " ] X T A _ " V Q A _N
0x46fc1c…46fdb0 Dummy {f00=0x015d, f01=0x0190, f02=» V 4 D !D D I2 I D| W P h^PDW P PD0 ] #Mks)M` 0 ] D7 W Q GP GQ Q h^QGW T Q 9 I #Qy& ID!d] Q^ f^ Q PQWZ#Qy d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#P{ D d^PD] 0 ^ P W D W Q _ I2 A A I P W A24 W j] W 0 ]
0x46fdb0…46ff44 Dummy {f00=0x015d, f01=0x0190, f02=» 5 6 A _ A A _ A A _#A2 DM0 DD 4 1 4 @ @ I 20 L @A @ )Av H8 A @8W )A& A A5A8W A W 0 L @A@ 4 IU I6 0 @ 0 L @A aLW HUy0 0 D D"0 0 V 0 VD0 D 0 D E&0 LE E D jZ DLEji L !i i W i~jZ i JZ cZjW
0x46ff44…4700d8 Dummy {f00=0x015d, f01=0x0190, f02=»EZ 0 0 0 W0 4 D"0 0 0 V 0 VD0 D 0 D- i W i a[ 0 [4 !" g!8` I3`) !I3Y DE0 D0 D# I3 DxW% D W I3 E E W E E D !E D E _ E 6E 0 DW 0 DW 0 D4 6 2 ?
0x4700d8…47026c Dummy {f00=0x015d, f01=0x0190, f02=» 0 .0 / @ ! !
0x47026c…470400 Dummy {f00=0x015d, f01=0x0190, f02=» & D j D D E X j DEX D' W^j D W D*j D DF E'j D E DOj D Dxj D Dyj D Dzj D D{j D D|j D D}0 DT 0 W 0 1 A A24 0 P 4 ` D K K E j EK 0 D 0 W j 0 D 0 I2 H I 0 @ 4 0
0x470400…470594 (4, 93) Dummy {f00=0x015d, f01=0x0190, f02=» ~%J %J K J KJ)K ~W N4 @ D 0 DP W D 0 DP W D 0 DT A 4 I1$I I I I H E JI0 ]EJP 0 G0 GHP J E 0 ]EJ0 G0 GHT E E j^ E] I jI ]E I E JI0 ]EJ0 G0 GHT E E j^EE] jI ]E I E JI0 ]EJ0 G0 GHTo E E @E @Ej^@E] Wa
0x470594…470728 Dummy {f00=0x015d, f01=0x0190, f02=»B6 I I $ A 4 4 UW> [W;A ZW+@ W YW XW WW VW 6 0 0 P _ 2 @ @ W 2 H W 2 -W W W{Wy 0 _ W _*
0x470728…4708bc Dummy {f00=0x015d, f01=0x0190, f02=» K + _14 _ 20 $ b 4 0 4 " m _ 0 4 0 4 A 4 v0 ( 4 , 4 .6 ))b ) W ) A b 6 _o 0 P 4 4
0x4708bc…470a50 Dummy {f00=0x015d, f01=0x0190, f02=»F D 4 F t a 1 $ , r 6 d E % y ` p ? # R U X a b d f x + 026 DATABA 0 ] FILE OPEN UNSUCCESFULL FAILURE ON FORM
0x470a50…470be4 Dummy {f00=0x015d, f01=0x0190, f02=» " # $ %0 -0 .0 00 30 7 : ' t | |
0x470be4…470d78 Dummy {f00=0x015d, f01=0x0190, f02=» 2 4 4 4 4 A A 8 @ I@ 6A %1 @ W 1 @ W 6A 1 @ W 1 @ 1 @ 0 CR 0" CBP R CB_ 0#0$L @AC: A +A p2A !@ B0% C!C C 2B C W 0% B)B _S C 0% B!B ) 2B W 0& LAA2A A 4 C #0&
0x470d78…470f0c Dummy {f00=0x015d, f01=0x0190, f02=» WZ0% B)B 1 ? 01L @ACR7 A A )@ AA? C @ A 0" ABS 02 P 03 Q A 4 0" BAW A R!A G!A C!C b C 0# B 0 L BA B B AB A 2A _& BM0 BB A !@ L w0 C0 CC2A A 4 !@ AA? !@ L0 C0 CC? 0& L 6B" ).38=BGLQV[`ejoty~ W JL
0x470f0c…4710a0 Dummy {f00=0x015d, f01=0x0190, f02=» WA W< W7 W2 ! W- " W( # W# $ W % W & W ' W ( W ) W * W I2 6 W B W A B W B 4 JL%J` #Jz W C 4 JL%J` #Jy W C 4 [vb[ @L ![v W C 4 A 4 JL#Jx C W 4 4 4 4 4 4 4 4 4 D n { z |
0x4710a0…471234 (4, 94) Dummy {f00=0x015e, f01=0x0190, f02=» w > ' 9 K L " Q f { % : q B d 1 $ 00 0 0 0
0x471234…4713c8 Dummy {f00=0x015e, f01=0x0190, f02=» 0 F * & 6 ' 9 ? G ( , ( 5 % E d G V , ( U J B N 3 G * & u H 634463466371 G * &
0x4713c8…47155c Dummy {f00=0x015e, f01=0x018e, f02=»x 4 d h 0 3 f f ( F R X C Z 9 ( N ) z J a K v v 8 8 3 ; a @
0x47155c…4716f0 Dummy {f00=0x015e, f01=0x018e, f02=» B x w R B 6 2 v # 0 @ r @ @ @ p @ , @ $ @ 1 @ @ 2@ 8@ >@ D@ J@ P@ a V@ t @ F b@ ,@ ` n@ " t@ @ @ @ y # : z
0x4716f0…471884 Dummy {f00=0x015e, f01=0x018e, f02=» B . 0 @ L@ % | V R@ X ] { ^@ E O " 0 d d v@ d @ p ~ | j 0 p H 2 ( r U x ; 6 k } B @ 8 } f ( | d b 7
0x471884…471a18 Dummy {f00=0x015e, f01=0x018e, f02=» D & D D B P P D D V J N R D P ! ] Q 7 F* Z 6 x ZZ d 5 o ZZ n 4 f ZZ - _ ZZ , X 99 ( Q ZZ ' J ZZ ^ E ZZ @ 99 x 3 7 ZZ 1 / ZZ
0x471a18…471bac Dummy {f00=0x015e, f01=0x018e, f02=» Z Z9 6 ! ZZ ZZ ZZ ZZ ZZ Z J PP / 99 ~ 99 y 99 r u 99 | q 99 T 99 9 4 ] 1 = : F 6 N P 4 * + 0 ( ) h F B . > 4 J ^ l DS D V T J _ f FO Z 6 `
0x471bac…471d40 Dummy {f00=0x015e, f01=0x018e, f02=» l 1 D 0 h / . Z - , ~ + * ) ( ' $ & H * % 2 0 $ V 6 # < " r * H T:UPDF H Z T:TUP Z l T:TSTC l ~ T:TRIG ~ T:TLEF T:TLDO T:THOM $ T:TFWD $ T:TDOW
0x471d40…471ed4 (4, 95) Opaque[0x194]
0x471ed4…472068 # DirEnt {nam=»CON11 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2bc8, f03=0x0000}
0x471ed4…472068 IdxSect {
0x471ed4…472068 f00 = 0x015e // 0x471ed4 @0x0
0x471ed4…472068 f01 = 0x0002 // 0x471ed6 @0x2
0x471ed4…472068 gno = [ // 0x471ed8 @0x4
0x471ed4…472068 [0x00]: C0x015e.0x1.0
0x471ed4…472068 ]
0x471ed4…472068 }
0x472068…4721fc Dummy {f00=0x015e, f01=0x0190, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P00; J P01; V PSDC=S01; b PT; r P01; | PTID=A0; PTCL=A0; PLEV=60; P01; PTDC=T01; PLC=001L; P02; PSDC=S02; PSDC=S03;
0x4721fc…472390 Dummy {f00=0x015e, f01=0x0190, f02=»C=S02; PSDC=S03; PT; P01; ( PTID=C0; 4 PTCL=A0; D PLEV=60; T P01; d PTDC=T03; p PLC=003L; P02; PSDC=S02; PSDC=S03; PT; P01; PTID=D0; PTCL=A0; PLEV=60; P02;
0x472390…472524 Dummy {f00=0x015e, f01=0x0172, f02=»TID=E0; PTCL=A0; PLEV=60; P01; 0 PTDC=T05; < PLC=005L; L P02; PSDC=S02; h PSDC=S03; x PU; P009; PUBF; P002; PUIF; P002; PUCY; P002; PUOP; P002; PUA1;
0x472524…4726b8 Dummy {f00=0x015e, f01=0x2008, f02=» PTCL=A0; PLEV=60; P01; 0 PTDC=T05; < PLC=005L; L P02; PSDC=S02; h PSDC=S03; x PU; P009; PUBF; P002; PUIF; P002; PUCY; P002; PUOP; P002; PUA1;
0x4726b8…47284c Dummy {f00=0x015e, f01=0x018e, f02=» " e ZZZZZ9,99- " e . ZZZZZZ,ZZ- > " e X ZZZZZZZZ9,99 h " e ZZZZZZZZ9,99- " e ZZZZZZZZZ,ZZ " e ZZZZZZZZZ,ZZ-
0x47284c…4729e0 Dummy {f00=0x015e, f01=0x417c, f02=» $ ZZVZZZ,ZZ, " $e % 99E-99E-99 . " %e H & ZZE-ZZE-ZZ X " &e r ' ZZVZZZVZZ9,99- " 'e ( ZZZVZZZVZZ9,99 " (e ) ZZZVZZZVZZZ,ZZ " )e
0x4729e0…472b74 (4, 96) Opaque[0x194]
0x472b74…472d08 # DirEnt {nam=»MONGEN«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2bd0, f03=0x0000}
0x472b74…472d08 IdxSect {
0x472b74…472d08 f00 = 0x015e // 0x472b74 @0x0
0x472b74…472d08 f01 = 0x0020 // 0x472b76 @0x2
0x472b74…472d08 gno = [ // 0x472b78 @0x4
0x472b74…472d08 [0x00]: C0x015e.0x2.0
0x472b74…472d08 [0x01]: C0x015e.0x3.0
0x472b74…472d08 [0x02]: C0x015f.0x0.0
0x472b74…472d08 [0x03]: C0x015f.0x1.0
0x472b74…472d08 [0x04]: C0x015f.0x2.0
0x472b74…472d08 [0x05]: C0x015f.0x3.0
0x472b74…472d08 [0x06]: C0x0160.0x0.0
0x472b74…472d08 [0x07]: C0x0160.0x1.0
0x472b74…472d08 [0x08]: C0x0160.0x2.0
0x472b74…472d08 [0x09]: C0x0160.0x3.0
0x472b74…472d08 [0x0a]: C0x0161.0x0.0
0x472b74…472d08 [0x0b]: C0x0161.0x1.0
0x472b74…472d08 [0x0c]: C0x0161.0x2.0
0x472b74…472d08 [0x0d]: C0x0161.0x3.0
0x472b74…472d08 [0x0e]: C0x0162.0x0.0
0x472b74…472d08 [0x0f]: C0x0162.0x1.0
0x472b74…472d08 ]
0x472b74…472d08 }
0x472d08…472e9c Dummy {f00=0x015e, f01=0x0190, f02=» } 8 d 8 d @ ~
0x472e9c…473030 Dummy {f00=0x015e, f01=0x0190, f02=» _ A " 2B _ @2B > > U # T @$ H ( ( P c P WF + T P ,$^T A2B z V ( U P
0x473030…4731c4 Dummy {f00=0x015e, f01=0x0190, f02=» A b A2B_` A A Q > ? A @ A Q _ A < Q P Q R Y _ A ) $ ( P P JW P ) % X % A _` & P Y _l Z _r 8 2L Q Z P 0 9 _ z _, ? _ P H H
0x4731c4…473358 Dummy {f00=0x015e, f01=0x0190, f02=» U > > 4 T - 1_( U T P 0 U _h ? @1 T 0 A1 1 Q Q > > 0 @1 1 A1 P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @1 V ?
0x473358…4734ec Dummy {f00=0x015e, f01=0x0190, f02=» > $ ( , 0 4 8 < #M 1
0x4734ec…473680 Dummy {f00=0x015e, f01=0x0190, f02=» #L 1 $V +j 2H A N( @1 1 X H A1 ( 1 ) H P 1 E I z T M T M T M +~ U (@ H @ D &! <a >a 8 C L C ;B T
0x473680…473814 (4, 97) Dummy {f00=0x015e, f01=0x0190, f02=» _8 F # C C S p : C C _ z R 3 J B B A ? W . U L p v # P P P v T U W` U PV X TJ+ Y 4 U $P(> R$> Y X '@T X ' T P 4
0x473814…4739a8 Dummy {f00=0x015e, f01=0x0190, f02=» 4X. U U T ~ T U L 2j ;h # <c$ Xb B ^h Xn B ]v "X " X #` @P"Q X # Y /W VW Y 4 X D Xn " 4 U 5 ? "P X # X l > P P * W Y 4 W 4 l 2j X " T V 4~ 8% =A T 0
0x4739a8…473b3c Dummy {f00=0x015e, f01=0x0190, f02=» > > P X P P _ ] W Q Y _4 X Y $ f D P XP Y E Y Y _ @ . T (@ > P .X U 4X 5 l_& ? @ l T n A l % > > l
0x473b3c…473cd0 Dummy {f00=0x015e, f01=0x0190, f02=» x B U P R U 2b ! ! &W ! B Q ! h B Z
0x473cd0…473e64 Dummy {f00=0x015e, f01=0x0190, f02=» (P Y ) _ ^ _ ! & P: B L # +P Y , ! 2 U _ X T _ W ! 2 Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X , X ]T ! 2 Y h Y _p ? X R X X ' " $ P ! & X
0x473e64…473ff8 Dummy {f00=0x015e, f01=0x0190, f02=»B W B W B @ T 8 T Y Y Y Y 2j Y . ! , X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4 _
0x473ff8…47418c Dummy {f00=0x015e, f01=0x0190, f02=»
0x47418c…474320 Dummy {f00=0x015e, f01=0x0190, f02=» "9 ! :a ! 1 T8 C Y Y F ! T X $ Y 1@ Y F P P P P P 2b p B ! T ~ " T Y H 9 ! x I R ! x ! 9EV8 ! x H R y ! h+ X H ~ ! ! T ! x I R > B ! 9FR P B X #
0x474320…4744b4 (4, 98) Dummy {f00=0x015f, f01=0x0190, f02=» ! N ! N _ P Q R" ! N W ! N ! N @W ! N ! N X ' T: X rP Q C X t 8 9 ! N@ 9 C B C p ! J Y t ! N Y X ' * C X t ! J ! N _B 8;e t <BV T ! 9FR< ! x I RWr ! x H RT RdW I R ! x ! 9 R ! 9
0x4744b4…474648 Dummy {f00=0x015f, f01=0x0190, f02=»P Y " Z ! x H R @ X $ P t R::AR~ P Y H ! t $ <A" :E ! , ! x H R A Y H ! jWz ! x H R X P _ X X H I ^ W :A H I Y Y Y H ! j ! W2 ! WF t R Y H ! t 9A ! 9D ! W Y H ! 9 t " :A C :a X ! U 4 ! x !
0x474648…4747dc Dummy {f00=0x015f, f01=0x0190, f02=» Y " ! Z 4 X ;F 8 X P^ ! x ! ` ! ! ! P Y " p X HT$ X P _ X X L ^ W :A H W @ ! x H RP _H X HT ! 4 ~ X :A _ X X p W ~ X 9A _ X X x ^ 4 B 9 P 9 4 8 H R" P # ;B 4 X " 4 Y 8
0x4747dc…474970 Dummy {f00=0x015f, f01=0x0190, f02=»+ W( W$ W X HT X :AW ~9 q r Y @ T 2. Q J R Y Y 2j ? & p Y Y F @ T Y ! ! Tn Y ! ! T` Y ! ! P Y 10 Y ! ! P Y 10 Y Y F P X $ Y '? ! C @ $P$_ $ 0P -_ * _ & A $
0x474970…474b04 Dummy {f00=0x015f, f01=0x0190, f02=» C X "P ) 2j ! ! T 9 ! x I R Y H ! ! ! Tr ~ X FP 1 @ TOT2 @ 1T( @ 2. # " Q ^ P R P Q V X X X Y ! W 4 z C C C C
0x474b04…474c98 Dummy {f00=0x015f, f01=0x0190, f02=» 1 T $ I ^ 10 $ B T TO A | SS A ~W ! 1 A ^ 1 $ ! ` X Y $ 9 X L Y ! L X X| R 2b 2f 1 B X V Y$; Z( Y. B < Z8:A ZB ^H YH Y Y Z B Y V ""0 Y ` V Y ^ Y X Y
0x474c98…474e2c Dummy {f00=0x015f, f01=0x0190, f02=» dx ^ Y b ! P @ 9W2 ! X hP Y b ! X hP X X _ X dp ^ & P6 P ! # T X Y N ` " ! _ # 4 ! # & X Y N_0 W Y T Y P Y R Y H @ TFB SFW@ Y Z 8! T0 X ^ Y Z X X C X U X V Y VR V Y ` 8 )
0x474e2c…474fc0 Dummy {f00=0x015f, f01=0x0190, f02=» ! 9 ! X ^< Y Y F Y X N P Y : ! L ! X # P Y N:A , Y b Y J X $ Y C '? @ X " Y _ A ? # (@ X P X R K P0 @ T X TT $C Y B 2jK & % Y B K X H :AZp X JP Y J ! P + 7P, $
0x474fc0…475154 (4, 99) Dummy {f00=0x015f, f01=0x0190, f02=» A ;D A 4
0x475154…4752e8 Dummy {f00=0x015f, f01=0x0190, f02=»
0x4752e8…47547c Dummy {f00=0x015f, f01=0x0190, f02=» $^
0x47547c…475610 Dummy {f00=0x015f, f01=0x0190, f02=» ( H $ 0 ) $P" $ ) U @ T C @$ W % 0P P > ? $ P q 0 ) >_ Tv C T V Y W^ X PZ B RTP" A%p @% A% * $ WJ @W, T( P$ X T X P % 4 Y C C 8W
0x475610…4757a4 Dummy {f00=0x015f, f01=0x0190, f02=» R T& X 0P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y '? Y Y T # P W Y P R R P T 'x ' P (@ $l(@ " 2 @ _ > X $? P'0$ > >
0x4757a4…475938 Dummy {f00=0x015f, f01=0x0190, f02=»8D D ! 9b8d9D # C > B R Q~ ' P0 B P* 0$ T # R QL ( > X B U( H Q2 X D B $ T C x > C $ ) _ X 9BV X 0 ) 2f X D C > X H UJ H B P PL $ # Q >
0x475938…475acc Dummy {f00=0x015f, f01=0x0190, f02=» (@ ( ^ > > ? _ X T (@ X L U L Q4 M ( ) X L P ( L ) 1_f _& ?(@ X P 0P X T % 4 Y X 1 1 X P - M T $ PJ _ T " # p X L R P P ' P (@
0x475acc…475c60 Dummy {f00=0x015f, f01=0x0190, f02=» * * * _ 2 ? ^ 4 _ @ 1 A _ P 9 > > T P ,$ T T _ T R L U d9C T M D _ Wb M $R M A2B 2j _ D $P D % 1 I D " T X X - U _
0x475c60…475df4 (4, 100) Dummy {f00=0x015f, f01=0x0190, f02=» 1 $ ( , 0 4 8 < #E 1 $ ( ,
0x475df4…475f88 Dummy {f00=0x015f, f01=0x0190, f02=» $ ( , 0 4 8 < #G 1 . .L .
0x475f88…47611c Dummy {f00=0x015f, f01=0x0190, f02=» @2B A2B _ # T( @ , @ ;a /T U U 2j _ _X D ( U ( Q W T ` U @ M @ W : P A/ #M A/ W P A/ #M A/ (@ A/ / ] ] ] ( : R , R .D >
0x47611c…4762b0 Dummy {f00=0x015f, f01=0x0190, f02=»; U <a:a9 V @ Y U S : 6 V UzS Y : _ 0f 6 V N _& U [$ N ' U 7 W Y, : " r F[2g~g~ 6 :V; @ F Hv 1l % Y W B T~ 1l C X _ H X H p ^ > X ( $ ^
0x4762b0…476444 Dummy {f00=0x015f, f01=0x0190, f02=» &Z.?AZ2 @2> Q & X " $XJ ( I T E _ (X _ X $ _tZ z > > @2B A2B W RW ) ^ ! Z2 2@ (X: @2BP T M ]J , ) L P $R _, A2B P* P Y U ( ) 5 & > > [ [ 2B Z PJ D 0P P - I 1 P
0x476444…4765d8 Dummy {f00=0x015f, f01=0x0190, f02=»Pb 2 <UR "R4 PB X R< X T6 X T0. T G Y6 G _f P ,P - _ X ! B 6 * X ! 6 6 4 W 4 X Pf X 0 Y " " X L X WF B U B (" W C (@ > Y >
0x4765d8…47676c Dummy {f00=0x015f, f01=0x0190, f02=» T 2f 2j(@ B B " #MP" 6 PH B #MP* 6 P6 6 W( B #MP 6 P 6@W 5 W 5 U ; [ [ W Z Z : : U ? ? ? P& P& $ ) Ud P x TX $ ) WN X $ ) Y W< UN ? ? _ T P> P6
0x47676c…476900 Dummy {f00=0x015f, f01=0x0190, f02=»P@ P6 ( $ ) ]^ P p r $ ($ ) _ (W X2 $ ]$ $ ) Y _ > 2 6 :(8 (@ U RR -P 4j X < X :P$ $$ !| P P V 9 X : % Y :(@ 8l p ) 9 _* B 8 B % X < $ 4 T %(@ 8 X :P 9
0x476900…476a94 (4, 101) Dummy {f00=0x015f, f01=0x0190, f02=» !| T W. !} X P P P P _ Y 4W Y 4 7> X 2 7> X 6P X 4 $P <c $P $ $ V !9 B 7>W( B P& $$ R % C 9 * !9 Wv ? X . T 9 P _W W 9 T "? 9 0 R Q > !9 B 7> W8 > ! B T ! Xd 9 9 9
0x476a94…476c28 Dummy {f00=0x015f, f01=0x0190, f02=» P< T W Z %W, X /$ X : 9 ^ Y . $ ! P % " _L Y : 1 4r 9 " !4 4 B % > ^T > > >T ^ > P 9 !9 7> _ W 7> X < 9 X :P Y < 0 %_ % Y < (@ 8 X Y :_( 4` X ) < 4r X 0 P L X "
0x476c28…476dbc Dummy {f00=0x015f, f01=0x0190, f02=»W X V$ Y X 6P " y 8_B Y 8W y 8 4r 4> P <d R Q 1_ Y / !3 T W6 C _6 Y 0 Y 6W Y 0 Y 6 !3 Th X 0 Y / X .V. 0 X .$ ( P B V *@; V * ; V * Y . !3 T$ X .R $ T T P _N !3 T 4n9 R 9 4rW 9 _
0x476dbc…476f50 Dummy {f00=0x015f, f01=0x0190, f02=» U. !3 T< @ Y 4 X 4Y !3 T$ !3 T Y 4_6 ? Y 0 Y 4 >0 Y 4W, B P B H " +P< Y 1 T P" !3 T R X 2 Y 0U Y 0 _ Y 0 _* @& 4> = R _Q B X / X 0$ %T Y 3V B V _ X 0 X /! R* Y /; _U !?z
0x476f50…4770e4 Dummy {f00=0x015f, f01=0x0190, f02=»_ B C 4> B U !?z B WJ ._| !3 TF < 4> 4>" $ P X 1 X / < !3 T @ < !3 TV !3 TN ? B C C X 0 C !3 T0 4n B Y 0 !>` < !3 T Y 3U X 3 !3 Tt :h Y 2U X 2 !3 T^ 4 B !?z >D V ? ) X 4PPWD
0x4770e4…477278 Dummy {f00=0x015f, f01=0x0190, f02=» X 0 Y 3R Y, !3 T !3 T _P !3 T !3 T2 X /# Xh X 0 !>` !?z Y /_ Y 3R X 3 !3 T " !3 T !3 T 4 X ? 489 R 9 X ' P P +P 9 R 9 9 V 9 P C 4n " >D X 0 !>` X ' ; X /" Y 0 Y / > X / X 0" Y 3Q Y / > B B
0x477278…47740c Dummy {f00=0x015f, f01=0x0190, f02=»@ E @ @ @ @ A Ab $C A BD C. 8Ex 7C~ $C 'D< D X " :F X . Y . X .! 9e D@ ( 4j P _ H C !E !E ! P !E !E C W X .# T !"P ! & W !@P 4n X .! TD B R B H " +P. P T !E !E !E " T Y 2
0x47740c…4775a0 Dummy {f00=0x015f, f01=0x0190, f02=»_B !E !'P ! T " T X 2 Y 3W 4n 4j X 7$ B R B H " X 5 +P P T X 8 E Q Y 4 Y 6 P B !E !E 4> P: Z P$ T W R _R X$ /P C _0 W Y 4 !3 E _B !E !EP ! T*" T* x 8!x W X 6 X 4 Y 7 Y 5# C 4n
0x4775a0…477734 (4, 102) Dummy {f00=0x0160, f01=0x0190, f02=»Q8 hX X 7! P 0! P& Y 8 !E 0 !E !E ! 4n 4j X 0 4r B V " Y 0 # T # # P Y 2 # T # # P Y 4 Y 1 !E X 0 !E X 1 !E !E ! 4n B <C Q B !E4 Q Qhb !E4:K Qhb !EB Q !EB P !EB R !EB P PQ !E4
0x477734…4778c8 Dummy {f00=0x0160, f01=0x0190, f02=»EB P" (Q !EBW Qhb Qhb 4n 4j , !Ej" 4 , !Ej" R _ , !Ej" Qhb 4" 0Z@ YD 9 4 !E !E ! T Y 6 Y 4 4n !3 TH !3 T@ W4 !3 T4 !3 T. !3 P -P ! X Y . 4" U !3 T 4 4n X T Y Y " X 8T hb Y 8
0x4778c8…477a5c Dummy {f00=0x0160, f01=0x0190, f02=»4n F G H !3 T Y 0 P R P Q R. Q !3 4j B V _ B H " 0T Y 0W 4> U Q4 T Y 2 Y 0 X 0Q !3 T Y 0 !3 T !3 T _@ R _Q Y 0_ /T _ V Q Q P P C _r 4> 4>" $ P X 0 ] !3 Tp Y _ R !3
0x477a5c…477bf0 Dummy {f00=0x0160, f01=0x0190, f02=»_ 4` Y 4_ P 4` Y 4 _, [000b [00w [00v c [5n [0;0x [000` [0g H [00d [00{ [20h [20l [4m [0m H Ln $' X " Y . $P X /# P N4 X ." X /# Y / P Y MH~P ^ 4j LH H H J KBJ J !L Ln !M 4n B
0x477bf0…477d84 Dummy {f00=0x0160, f01=0x0190, f02=»T4 !3 T, Y LW !3 T +T _L X LT _ T !3 T !3 T 4> Q X .$ P !3 T Y . !3 T !L W VH P T HfW T Hl !Nr _f j 4>]@ KP TV !3 Tb !3 TZ_ ~U PD #R8 ]U W2 X .$ P4 Y . W X .$ T Y . !3 T W C _ .
0x477d84…477f18 Dummy {f00=0x0160, f01=0x0190, f02=» _ N4 !L Ln !M 4n PN Y 4_6 Q",0 Y N_D PN Y 6_P Q ,0 Y O_R 4j B " P J P 4j !3 M B 9d! P Y DN Y R HT R !M 9h! P& T h Y U HZW R l Y U H` T !M 9l! P T 1hW T 2h Y V HZW T 1lW 2l
0x477f18…4780ac Dummy {f00=0x0160, f01=0x0190, f02=»M !3 M H Y " X JPL Y J !M Y 2 Y 4 0 !M Y 6 < !M Y 8 ,0 Y P Y N ,0 Y Q Y O !L N4 Y : Y . X H 4n Y ? !3 T H. ," :HR :h !3 T _ !3 T 0 * M N !3 " ! PL T" ! ;T Y X T2 !3 " ! ^0 N 0 :
0x4780ac…478240 Dummy {f00=0x0160, f01=0x0190, f02=» Y . 4 Y 0W ! Ln 4n Y B Y @ X @ ," :HR( 0 P :h !3 . Y @_ X B , !3 B Y B_ 4 !3 R H` !Nr H" 6 !M H 4 !M H4 N !M W !3 6 ," :HR :h !3 H _ 4 :h 0 :C ! 4151824253033353648505160667072010203040506070809101111131415
0x478240…4783d4 (4, 103) Dummy {f00=0x0160, f01=0x0190, f02=» T -_> - _H "Rf P^ X TX X PJ X RD< V X 0 X L T ) P* X P Y 9 C " 2f < ? < ? <(@ Pt $ P B $ 9H C ">h # P >_2 < U = (@ " $ P B >H<h P P ?_" =
0x4783d4…478568 Dummy {f00=0x0160, f01=0x0190, f02=»Q T R T W Q T$ Y % 4 Z 2 Q P @ & . % B B T P, & T$ L L R Q U , , _| , B ;h S0 S0 Q R0 R, P X % % _6 _6 _ &
0x478568…4786fc Dummy {f00=0x0160, f01=0x0190, f02=» TfTfTfTfTfTfTfTfT T T 2bT 2bT S T T T S T T T S TLT&TRS T S T S T S > > > ? ? ! ! !9!:!R! !2! " " @ R N U4R ;A 09kP U 2b U4R ;A N ^! P N L! DR X(W U4Z4 O N R . XH N TP
0x4786fc…478890 Dummy {f00=0x0160, f01=0x0190, f02=» P 1 Y B d U 5 >T ( )! T Y W H hP H d H P B v 5 $ N M" N NW UR R N Q T P P UHW UHW B B B U W| . P Q W B B Q W C C O ZWn N TT C O "" /X . Q
0x478890…478a24 Dummy {f00=0x0160, f01=0x0190, f02=» _ :a *P ^ : Q : N ?j jP N ] N ] : : : : : . .! P V"(@ : : : ; Z $ )_ N `W ,P M L L O ]P W : N ] N ` 1 O `(@ : ` 0P< R Q
0x478a24…478bb8 Dummy {f00=0x0160, f01=0x0190, f02=» ] I N b ) O b(@ : [ N U SB P W N U0 N _ U S W O V O X P N P _ W O Z Z W` W W W W W W W ( N V C N X C N B P T I W B I 0 N # # N _=H C N V N X hl C C
0x478bb8…478d4c Dummy {f00=0x0160, f01=0x0190, f02=» U U 9 X| & ?! U P _: P _ W 4 4 , , , V , %Q R V _ W W W T W V WB TB O ZWD N ZZ N tV N P O ZW, N X N _ S W O V O X i _T P i : N f X Tl X P`
0x478d4c…478ee0 Dummy {f00=0x0160, f01=0x0190, f02=»PH N M Y R Y M Q Z$ L Z* R L L Uz M M _L(@ : [ N V N X U N _ U N U N P N Z ^ S W Z : N Z N P H G H H G : #A 1
0x478ee0…479074 (4, 104) Dummy {f00=0x0160, f01=0x0190, f02=» > A[2 @ @ 0 @ R.P % % @ I I I . I _B 2: ,P 2> A2> iJ >
0x479074…479208 Dummy {f00=0x0160, f01=0x0190, f02=» (P, P& R7 R@P4 0 ` a8 0 Y ' 5 Z @ 4' T Z Wp AZ P Wb P` T _ a2 Y " & J @! P X P @Z T" @Z Y X !? ? ^H W W @ AZ _ X & aP AZ @Z ` T P ^ V V " LP
0x479208…47939c Dummy {f00=0x0160, f01=0x0190, f02=» $T 1 %_$ Y (_ AZ @Z Z P <" _ X J @" P Y 9 @ J ! T " Y & X 'W ` T X V AZ @Pf PbW J : J < W P `p X "? J ># K >:hQ 9 X P (@ Y Y W ! Y R _ Z ` T K
0x47939c…479530 Dummy {f00=0x0160, f01=0x0190, f02=» N 9 ! ^ R ` aV N ! P N & N T _ - F F Pp @Z G @Z 2H Q (@ AZ & ' (@ F F C V C C `pTB B P: <a "9 :a :A9 # P V ! T U V ! _P AZ _ W C ( B AZ
0x479530…4796c4 Dummy {f00=0x0160, f01=0x0190, f02=» @[b [: `jT [4 V )! T B * Y & : a2 B : & : Y : _ W $ - Y : f TZ ! P f T ^ b J G * G J G F aV ,P
0x4796c4…479858 Dummy {f00=0x0160, f01=0x0190, f02=» @ ^ W: AZ AZ 8 X Q DZ # P EZ 8 " ez ^ F : AZ af X _ _ _ _ f t H Aad J X. G 8 " T _F:f HZ ` T ` G < V LXb ( aV "? G G G =f gZ c| ] @ad=f TZ Z AZ ? Aad
0x479858…4799ec Dummy {f00=0x0160, f01=0x0190, f02=» W P F 6U 6 G R F 0ZP F T e$ g TN% T F f P F G W F * G [4 f T f W T[8 F U[8 f PX G < G F G AZ g& `j [4 V )$ P8 a8T V T F . G < * Y. G . F . F 2 J _f F LT J A J B G
0x4799ec…479b80 Dummy {f00=0x0160, f01=0x0190, f02=» . 2 F : ` T F W ( f dl AZ f P" g.T F : 2 F . ` G . P P AZ G F Z< : 7 W W W W ) V T V ( AZ V G f H g R% T[8 T[4 G 6 F T T[8 G W T[8 F T F T[4 G f f 0ZP g [4 f P F 0]
0x479b80…479d14 (4, 105) Dummy {f00=0x0160, f01=0x0190, f02=» `pWN U[4 U[6 U[8 U[: : Q (@ < Mah ^ af ah G : G (W " T " F 4 `j : C `j [4 H G 4 H H . ._4 TZ " P & ` b ] _ g g g g g g g g g h h2hRg g g h h"hBhR 0123456789
0x479d14…479ea8 Dummy {f00=0x0160, f01=0x0190, f02=»VWXYZ{|}* D : ; @i< 0 P T" P P ?A Q P T P T Q W P T P T Q Q P Q P Ai> @i< Z @i> P % P % T W Q Q Q Q Ai< 1 :(@ : B 1 : @i< , L T M @i< (@ :i@ jJ @ A
0x479ea8…47a03c Dummy {f00=0x0160, f01=0x0190, f02=» kT
0x47a03c…47a1d0 Dummy {f00=0x0160, f01=0x0190, f02=» l^
0x47a1d0…47a364 Dummy {f00=0x0160, f01=0x0190, f02=»
0x47a364…47a4f8 Dummy {f00=0x0160, f01=0x0190, f02=» Fn d
0x47a4f8…47a68c Dummy {f00=0x0160, f01=0x0190, f02=» > N % R4 P 2=b Tox O N ZR N h Q d v r r N '? x oT w T q TD N # T<W6 P2 F N P U G N Z F N P ' T 5^W / r Q G G F F U q N $? "X0 V r N r# T i _ PF w s Z6 i N h
0x47a68c…47a820 Dummy {f00=0x0160, f01=0x0190, f02=» P P N dT P P Wn Rb H jX N "? X P N " $ X d F v X P N / d Z X P X| XdW6 N '? TH L hP H d N Z H P v 5^ & s @W W N ]# U W N P N Z F N / + N rV O rW W T
0x47a820…47a9b4 (4, 106) Dummy {f00=0x0161, f01=0x0190, f02=» U T V s N r$ T i N h ) (@( w N "? "T N " P P T Z6 h V %? Vl Y "T " V K K F K F K N K O O r pT N Z W P" N t O Z Y O MR Q` N NVZ X &W0 N Z N P E T
0x47a9b4…47ab48 Dummy {f00=0x0161, f01=0x0190, f02=» P W h N d_: r o v P Y X N "? u TN jX G N ZW X X W P N t O Z_ D X N Z N tT W r X X6 5^ ) ) ) N 5^ ) Y P N t 5^ N Z N
0x47ab48…47acdc Dummy {f00=0x0161, f01=0x0190, f02=» X X 5 _ Y O MR Q N NU O M O N G Y i t s N Z N P $ G T D D F P . X Xp W X6 N t O Z_ D ' [ T G N Z N t N Z 5^ ) Y N Z N t O Z Y O Z Y N ZT4 Y U Pl V Tf P
0x47acdc…47ae70 Dummy {f00=0x0161, f01=0x0190, f02=»u N '? T F F O MR Q N NU WV O r W R, P ' P8 Q ' T( P C P C W T i _b WBT B W O r W : Z P F F + : v P Y I1M1I2M2I3M3I4M4
0x47ae70…47b004 Dummy {f00=0x0161, f01=0x0190, f02=» N ^" Ax R P hP L <a Qw _ Iw ^ N D u N / : x 5^ R % =N Ax R % PN N zP N T L zP R D Ax N % R H z: H Mx ( Mw _$ R % S S @ . T W.T 9a " E
0x47b004…47b198 Dummy {f00=0x0161, f01=0x0190, f02=»Tf R > Pp J N TTT O LTN N ^ @x T. @x R O r { P.>DR >AR W W W W Vl I W G 0 > R ] >_ @x O r R O P R O @x O ^ R ; O M R < O N O V O X Vw O fP R D Vw O d R ;H O r N " YR8 XR@ O s W
0x47b198…47b32c Dummy {f00=0x0161, f01=0x0190, f02=» R < U 9 :aP @nB Q TnBX TnDZ Z UnD ' ]w R < - R M C C V( DnHR" DnD EnD EnH DnB:A EnF N T O T ( O T B P$ N bP O b @mh 5 Amh(@ T zT B C _J z6 S < ?a w C i W$ zT
0x47b32c…47b4c0 Dummy {f00=0x0161, f01=0x0190, f02=» z. S @ S B : 5^Wj N ^" P S S @w S N r:n S 0 : J P U Q P J / U Ub . TF @w D !>P ?A w S x 5^ R w 5^_ ?a w Ax Ax yP w . Td R Tw
0x47b4c0…47b654 (4, 107) Dummy {f00=0x0161, f01=0x0190, f02=» J X B U B Y X B J / r N rV W G N TT O i Vl I I I I I F RD P hP L f L M N Uw Uw <a Qw Qw <B w w _H Aw N r V r Fw " P N /X P . Q ?A w P
0x47b654…47b7e8 Dummy {f00=0x0161, f01=0x0190, f02=»nB 5^W UnF ?B w S : w S < Fw ' P C i W$ N I A A A A A A | - M @ " A. < UU @>B @ A @ D E D E P _( W l V l W l V lP A A >b>J A
0x47b7e8…47b97c Dummy {f00=0x0161, f01=0x0190, f02=» E E E E A & E @ F CRP <A COP <A BAP AS<A E ASP @ T A ASP F @ U A AS * P F * d;j Y P F P @ P - P _ :L E A W F D AST
0x47b97c…47bb10 Dummy {f00=0x0161, f01=0x0190, f02=» :L AST A A E E A A 8 P W 89B @ V W Zb A @ @ A A @ D AS @ @ @ A W l @ L @ P _ @ ! P0 4 9h !RRP @ @ @ A _H 4 S W
0x47bb10…47bca4 Dummy {f00=0x0161, f01=0x0190, f02=»9b ) V l_ @ A @ A 0 A A E @ < V4 @ R, U 8 !RRT A " @ Pf A A @ > V T P T ;a=a?j V Y R W ?J E =A;A E :
0x47bca4…47be38 Dummy {f00=0x0161, f01=0x0190, f02=» b n n @ 00P& b $ _0 n @ 00P b _ 0 !TTX A P !CCT CC A _ 0 !;; : !AAP !DDT @ @ r A 0_ ; # @ @ @
0x47be38…47bfcc Dummy {f00=0x0161, f01=0x0190, f02=»R 8 @ ! T @ A @ r @ @ I A p A r @ p A p @ P @ A @ r $ ) @ 0 !;;P P @ P@ _ P !;;T X$ A T : : 0 !TT : 0 !;; : :
0x47bfcc…47c160 Dummy {f00=0x0161, f01=0x0190, f02=» !ZZQ 0 !;;T : : " : & : * : 0 : 4 : 0 )TV : !00T A : 0 !99Q0 !00R*P P =H_ :TID=TCL=LEV=TDC=T0LC=0SDC=S0 A I. : A A " Q :d @ # R$P R2W * A nW H A
0x47c160…47c2f4 (4, 108) Dummy {f00=0x0161, f01=0x0190, f02=» A A A A A " A & A A : 9e :e Q P 9e @ P A 9C) A I " @ ! P " :B A t q B J " T : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A
0x47c2f4…47c488 Dummy {f00=0x0161, f01=0x0190, f02=»! T W A T A j A A A F 0 A : n A P A d : @ @ ! P V :AW 9E R _ <e @ $ T 9A $ < :B 9A) @ P A A P I Td W 9D @ @ r s @ A I T - A _ I N T( P W A T W A n @ V
0x47c488…47c61c Dummy {f00=0x0161, f01=0x0190, f02=» Y h C !CCTr B. B X B.9 H A _ !SSTF 0 U J X X A t A v X X S W A x A z A : V W, Q( T W& @ T R P @ T A F R U @ A p T :
0x47c61c…47c7b0 Dummy {f00=0x0161, f01=0x0190, f02=» P T _* @ J @ | ` | P A : : T 0 !;;P 0 !;; : : - a | =! 0 - Y : 8 0 ! P p P Y :_0 L Q : P Y P Y A V : , %T 8
0x47c7b0…47c944 Dummy {f00=0x0161, f01=0x0190, f02=» A 4 A WL , P@ , - 4 ] 4 nY 5 X * _6 : @ % @ @ R6 r . !TTP . Y !TTX _: : ` @ @ :a @ ~ @ A @ ~;a P4 A
0x47c944…47cad8 Dummy {f00=0x0161, f01=0x0190, f02=» V A ~ : P( T S S _* : $ A A A . A N =H N A @ T CRT N =H N A N =H N A , @ %!5!T W @ = V W = V > P0 " U
0x47cad8…47cc6c Dummy {f00=0x0161, f01=0x0190, f02=» nV S ( @ S =J @ " S @ S A @ S T CRT @ S A A _ !TTT @ :P @ @ a : $ :T ` @ W H A h J AS BAT :a A K @ ;C ~W
0x47cc6c…47ce00 Dummy {f00=0x0161, f01=0x0190, f02=» S _ S A @ 3 3 J S J Rh # 9h !RRP @ ! T W* J S W J U 3 S S S _p P " I _ @ P : $ A A H . A * > P
0x47ce00…47cf94 (4, 109) Dummy {f00=0x0161, f01=0x0190, f02=» T + Y@ @ _f @ Y !TTX :Y % @ : A @ T @ A A $ H A . A > P~ A ( A @ @ < l F !AAT T B YP G 9h G G @ P A _l @ A
0x47cf94…47d128 Dummy {f00=0x0161, f01=0x0190, f02=»_. N P, @ 4 U $ $ _. :Y $ !TTX @ @ @ ! P @ 8 8 8 3 nU . !TTT _ !CCP R :Y W . P0 A A l @ @ < @ _2 N
0x47d128…47d2bc Dummy {f00=0x0161, f01=0x0190, f02=» % P @ 4 4 4 _r : A @ F !SST WB !AAT W6 !VVT W* !PPT "W !LLT *W !RRP R A A A @ 0 PV @ P P _ P H (&? @ #? H & D # * H D > 8 @ D @
0x47d2bc…47d450 Dummy {f00=0x0161, f01=0x0190, f02=» D V ` T @ 1 Q a : @ % PD H I H T P( H U @ ~U A ~ < + + P @ : ` P: @ @ @ D (P W H $ I 0 % E , a : QP RJ D ( ?
0x47d450…47d5e4 Dummy {f00=0x0161, f01=0x0190, f02=» P A @ E3 A Q _8 A A A A @ @ P A @ E3 A Q _8 : N =H N : N =H N : &=H F : F =H F : ? ? , > > : P N =H N T . _ : @ ! P (W
0x47d5e4…47d778 Dummy {f00=0x0161, f01=0x0190, f02=» * P@ J # P _ :d Y @ Z A T _4 @ 2T P _ / : .P W P A .X @ T :D * J TT J & P T .& >aW T (& P T &@P @ 9 A J ]
0x47d778…47d90c Dummy {f00=0x0161, f01=0x0190, f02=» : dR d R _ 00)0= % : @ H ;l H :lT ;A P 5 _ ` R - _ : @ A A r : @ A P b @ A @ @ : . ! T ! . : nR nY
0x47d90c…47daa0 Dummy {f00=0x0161, f01=0x0190, f02=» $ @ A 6 @ A 8 d H d H K 2 ;A @ R V nR - @ R - $ N !TTP N :H N TBT K W8 2 " T @ X 2 N =H N @ R ) !TTXX !CCT !UUT " @ R K (9A A R @
0x47daa0…47dc34 (4, 110) Dummy {f00=0x0162, f01=0x0190, f02=» @ A > A ::b l / A R A D A F @ p A & A @ CR h @ D G " F * E H ~ K @ & " A ( J (P6 " 4X 1 R Z0 . . _ k k :A
0x47dc34…47ddc8 Dummy {f00=0x0162, f01=0x0190, f02=» p A r b A CR hT @ 6 A @ 8 A 0 @ A < D J @ & >k l 8 A A 6 nQ R 8 nV ;k , @ 6T A , @ 8P( U U A , K l A A J @ &
0x47ddc8…47df5c Dummy {f00=0x0162, f01=0x0190, f02=» G 2 ` ) - J ` 4 2 K ` ) G ` " A ( A N (P0 R P _ A N R X4 _ J j A X A N (Pn @ X A X % R , ~ 2 " E R A N R R P
0x47df5c…47e0f0 Dummy {f00=0x0162, f01=0x0190, f02=» B I ` A L (P H - V l I N " R ~ E R R T E D E @ < H ` H ` E | #_ A * @ & 9k l $ A A J ` ( ` A ( J $ K J J V V (P
0x47e0f0…47e284 Dummy {f00=0x0162, f01=0x0190, f02=» $ N @ A $ | @ E " L M _V P* & &X ' $ @ < H T H J_4 A L A * @ ,T2 @ A 6 @ A 8 @ @ :B A @ 9n A @ @ ,P J V @ 8 A @ 6 A A , K : @ "<B A T *P `
0x47e284…47e418 Dummy {f00=0x0162, f01=0x0190, f02=» RV > R W > <B @ J @ *P ` 1 ` A P @ L ` 4 _j @ 0 4 : A . R R P ^ A J _ @ . : " D PH A . @ .P. D X D P ~ H E _( 2 E _6 " D T E 2 E D E %
0x47e418…47e5ac Dummy {f00=0x0162, f01=0x0190, f02=» : @ "P 9a _ " ( ) 8 ( ) : " $ @ "P 9A _ @ : A " W A "?AP ^ @ : 4P: " D , H H $ M j - I Y0 : @ : R ^ 2 A B @ (T : N @ @ A Z H @ "]" T 2 . BT" A H A B @ NP A J
0x47e5ac…47e740 Dummy {f00=0x0162, f01=0x0190, f02=» ` G ` : P ^ V : @ NP A J _$ 8 @ T @ J % @ H % : @ WN B W @ > " B ; Z [ : : [ [ :
0x47e740…47e8d4 (4, 111) Dummy {f00=0x0162, f01=0x0190, f02=» @ ` p R0 A @ A n^B _F 9o @ ~ ~_X : @ J P L nV U L _ V L Z K A A :K A nQ R nV @ P @ ` :
0x47e8d4…47ea68 Dummy {f00=0x0162, f01=0x0190, f02=»V @ 0 H A : @ <m @ 0 ;l R 9d_ ;b# R 9a_ @ @ 1 R U W 9a P _" : P _ : @ | ` |U WP L P _ @ P _" l 0 W r P . ! A .
0x47ea68…47ebfc Dummy {f00=0x0162, f01=0x0190, f02=» ZY QY : L ? ? R 0 R P P R _ 2D : V ) ` : R @ @ ! @ P P P P _ _ @ @ :b @ :b V W U4 T 9BW P P( X V
0x47ebfc…47ed90 Dummy {f00=0x0162, f01=0x0190, f02=» 3 S S :b Y* AST" ? ? > | R T ] ] W 9l ] 9A ] 9k! ] Y P: P4 1 1 S @ P 3 _ 1 3 1 | Z A. @ @ W A b z
0x47ed90…47ef24 Dummy {f00=0x0162, f01=0x0190, f02=» 1 n > H N T ! 1 . . & 8 & & & & # # # # @ 6 KB g~ F:VDI P
0x47ef24…47f0b8 Dummy {f00=0x0162, f01=0x0190, f02=»GP 3 BF P > @ 6 KB , g~
0x47f0b8…47f24c Dummy {f00=0x0162, f01=0x0190, f02=» B; Y b ( N@ TP
0x47f24c…47f3e0 Dummy {f00=0x0162, f01=0x0190, f02=»GETSDC P ADKL A9,SDCFST-CDBNC P LDR A1,A1 , PDWTS50 EQU * > P RF(Z) DWTS90 R P ST A1,STKEND+NBRSDC SAVE h P* & P* GET SPECIAL DEVICE CLASS NUMBER P* P CALL GETCLN P* 8 P* GET CORRESPONDING SPECIAL DEVIC
0x47f3e0…47f574 (4, 112) Opaque[0x194]
0x47f574…47f708 # DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2c50, f03=0x0000}
0x47f574…47f708 IdxSect {
0x47f574…47f708 f00 = 0x0162 // 0x47f574 @0x0
0x47f574…47f708 f01 = 0x0016 // 0x47f576 @0x2
0x47f574…47f708 gno = [ // 0x47f578 @0x4
0x47f574…47f708 [0x00]: C0x0162.0x2.0
0x47f574…47f708 [0x01]: C0x0162.0x3.0
0x47f574…47f708 [0x02]: C0x0163.0x0.0
0x47f574…47f708 [0x03]: C0x0163.0x1.0
0x47f574…47f708 [0x04]: C0x0163.0x2.0
0x47f574…47f708 [0x05]: C0x0163.0x3.0
0x47f574…47f708 [0x06]: C0x0164.0x0.0
0x47f574…47f708 [0x07]: C0x0164.0x1.0
0x47f574…47f708 [0x08]: C0x0164.0x2.0
0x47f574…47f708 [0x09]: C0x0164.0x3.0
0x47f574…47f708 [0x0a]: C0x0165.0x0.0
0x47f574…47f708 ]
0x47f574…47f708 }
0x47f708…47f89c Dummy {f00=0x0162, f01=0x0190, f02=»D Sx CR*T<0 j 8 VUBF tUIF UCY >UOP UA1 UA2 UT1 jUT2 UQQ
0x47f89c…47fa30 Dummy {f00=0x0162, f01=0x0190, f02=»
[…0x2…]
0x47fd58…47feec Dummy {f00=0x0162, f01=0x0190, f02=» *
0x47feec…480080 Dummy {f00=0x0162, f01=0x0190, f02=» P *
0x480080…480214 (4, 113) Dummy {f00=0x0162, f01=0x0190, f02=» P * P * * 2
0x480214…4803a8 Dummy {f00=0x0162, f01=0x0190, f02=» p + b p R P R A 0 p 1 b p + " 2 p `
0x4803a8…48053c Dummy {f00=0x0162, f01=0x0190, f02=» (
0x48053c…4806d0 Dummy {f00=0x0162, f01=0x0190, f02=»0 0 ! N 20 0 0 0 0 0 50 ;0 A0 D 4 * B 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 *0 -0 . F
0x4806d0…480864 Dummy {f00=0x0162, f01=0x0190, f02=» 0 @ B 0 0 & , 4 < H a > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ *0 0 0 !0 %0 )0 -0 10 7 F0 0 0 !0 "0 $ % B0 0
0x480864…4809f8 Dummy {f00=0x0162, f01=0x0190, f02=»0 0 0 0 0 0 0 0 !0 '0 -0 3 7 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D D D U
0x4809f8…480b8c Dummy {f00=0x0162, f01=0x0190, f02=»0 0 " D < <( <$ 8<, x<0 RD D G X j DGX D W j D W D j D D 0 D0 4 0 0 4 1 R0 1 1 0 W " " E E E 1 1 50 0 0 T P P 0 ] 0 D G 0 DGT 0 jE ]P G 0 H G "G 0 ^wG
0x480b8c…480d20 Dummy {f00=0x0162, f01=0x0190, f02=»E0 ]K0 E _ D J 0 ]DJj]P E 0 0 ] 0 W 0 1 1 :W&1 1 JW 1 1 AW 1 1 GW 1 1 O 0 I D 1 1 =0 0 ( - 1 H1 H #,HD H H JD0 ] J0 D G 0 DGT 0 I I T_e0 H 4 D w w wb?h@>? > > < = <d<0>Dx$w = 6 B
0x480d20…480eb4 (4, 114) Dummy {f00=0x0163, f01=0x0190, f02=»9-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-99999999999ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- I/O ERROR DISK ERROR FRONT OFFICE REQU
0x480eb4…481048 Dummy {f00=0x0163, f01=0x0190, f02=»KED BAD NOTES OR JAM OPERATOR UNKNOWN RECORD PROTECTED DELIVERY TIME-OUT INSUFFICIENT FUNDS RECORD KEY INVALID INVALID COMPARISON VALUE MUST BE ZERO VALUE NOT IN RANGE REJECT CASSETTE FULL BALANCE NOT ZERO 2 INPUT DEVICE FAILURE CASSETT
0x481048…4811dc Dummy {f00=0x0163, f01=0x0190, f02=»LL ILLEGAL END-OF-ITEM KEY OPERATOR I.D. : e PROGRAM ERROR-DEBUG HELP NO TRANSACTIONS POSSIBLE ! !a ** CLOSED ** MOUNT A4-SHEET IN PRINTER MASTER KEYSETTING REQUIRED OPERATOR ALREADY LOGGED ON NOT YET IMPLEMENTED m VOLUME-N
0x4811dc…481370 Dummy {f00=0x0163, f01=0x0190, f02=» AVAILABLE CHARACTER SETS: OPEN FORMAT-FILE NOT SUCCESSFULL DISPLAY 01/06/08/20/24 ? e PLEASE ENTER REQUIRED FUNCTION: "LANGUAGE-NUMBER ? (1 OR 2 OR 3 ): "REQUIRED DEVICE TYPE NOT SPECIFIED "TERMINAL BLOCKED - CALL SUPERVISOR CHECK PASS-
0x481370…481504 Dummy {f00=0x0163, f01=0x0190, f02=»MOUNT OVERDRAWN BY QUOTATION MOUNT VOUCHER IN VOUCHER-PRINTER " m "MOUNT PASS-BOOK IN VOUCHER-PRINTER $ m NO CASSETTE,T.O. OR NOP TND NOT OPERABLE OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** TND OPEN FAILURE CONT FOR RETRY, ELSE CANCEL Z
0x481504…481698 Dummy {f00=0x0163, f01=0x0190, f02=» NAME " ACCUM.DEP. 1 ACCUM.WITHD. ? ST [ ] ^ _ i !PHILIPS PTS 6371 TERMINAL PRINTER i MOUNT CASSETTES IN DISPENSER !PRESS CONT WHEN READY ELSE CANCEL "FATAL TND-ERROR, DISPENSE CANCELED DO TRANSACTION TND-OPEN AGAIN "MORE THAN 6 LAN
0x481698…48182c Dummy {f00=0x0163, f01=0x0190, f02=» ELSE CANCEL && "MOUNT CONTINUOUS STATIONARY ON GTP # !MOUNT CONTINUOUS STATIONARY ON LP e e e e e e/e e e e e e e!e e e e"e$e#e%e&e)e*e.e+e0e2e1e3e e e'e(e,e-e4e5e6e7e OPERATOR I.D. : e PASSWORD : j LANGUAGE : @
0x48182c…4819c0 Dummy {f00=0x0163, f01=0x0190, f02=». : 2 TERM.NAME : FRONT OFFICE( 2 ) SPECIAL CHARACTERS : 0 1 2 3 4 5 6 7 8 9 : ; < 0 1 2 3 4 5 6 7 8 9 GROSS TURNOVER : # 2J # 2 # 2 # 2 CURR. TURNOVER : # 2K ' TERMINAL : 8 5 FRONT OFFIC
0x4819c0…481b54 (4, 115) Dummy {f00=0x0163, f01=0x0190, f02=»ION: " ! " ! " ! " ! $CASSETTE DENOMINATION NO. OF NOTES ! ! ! ! OPERATOR NAME : CASH BALANCES : # 2 # 2 # 2
0x481b54…481ce8 Dummy {f00=0x0163, f01=0x0190, f02=» # 2 CHEQUE BALANCE : # 2 !PRESS CONT TO CONFIRM ELSE CANCEL GROSS TURNOVER: # 2J GROSS TURNOVER: # 2 GROSS TURNOVER: # 2 GROSS TURNOVER: # 2 CURR. TURNOVER: # 2K MLP INTEGRATED (N=0,Y=1) $ @ & SY
0x481ce8…481e7c Dummy {f00=0x0163, f01=0x0190, f02=»ANSACTION INQUIRY-A/C : a TRANS: / / /, AMOUNT : 2 NEW BALANCE: 2 LAST TRANS. REQ. (NO=0,YES=1)? @ e CURRENCY NAME : r CURRENCY CODE : s REL.: y BUYING RATES :(1) $t (2) "u SELLING RATES :(1
0x481e7c…482010 Dummy {f00=0x0163, f01=0x0190, f02=»Z DRAW CARD THROUGH BCR A Q DRAW CHEQUE THROUGH ODR # ACCOUNT OR CARD NUMBER : !a OPERATOR : CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 PRESS CONT TO CONFIRM ELSE CANC
0x482010…4821a4 Dummy {f00=0x0163, f01=0x0190, f02=» SELLING RATES:(1) $v SELLING RATE :(2) "w LIMIT RATE 1 : *x CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CASH BALANCE : # 2 CHEQUE BALANCE: # 2 PRESS CONT TO CONFIRM ELSE CANC CURRENCY EX
0x4821a4…482338 Dummy {f00=0x0163, f01=0x0190, f02=»LCUL.: k 1d CONTINUE EXCHANGE (NO=0,YES=1) ? @ h DEPOSIT - SAVINGS ACCOUNT: DEPOSIT - CHEQUE ACCOUNT: a 7 R4 BOOK BALANCE: U 1c LINE: # U # e NAME : AMOUNT : 1 NEW BALANCE : 2 CURRENCY NAME :
0x482338…4824cc Dummy {f00=0x0163, f01=0x0190, f02=»ATES :(1) $v (2) #w LIMIT RATE 1 : +x TRANSFER FROM ACCOUNT : T !a a , BOOK BALANCE: 1c LINE: e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 TRANSFER TO ACCOUNT : !b Q" OPEN SAVI
0x4824cc…482660 Dummy {f00=0x0163, f01=0x0190, f02=» Q PASSWORD: @ & CARD: CREDIT LIMIT: 0 ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT :
0x482660…4827f4 (4, 116) Dummy {f00=0x0163, f01=0x0190, f02=»EDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 TRANSFER TO ACCOUNT : !b OPERATOR NAME : 8 @ PASSWORD : @ LANGUAGE : @ CASH BALANCES : # 2 # 2 # 2 # 2 ZEROISE
0x4827f4…482988 Dummy {f00=0x0163, f01=0x0190, f02=» CURRENT BALANCE : 2 BOOK BALANCE : CREDIT LIMIT : 2 PASSWORD : CARD NUMBER : ! INQUIRY SAVINGS ACCOUNT NR : INQUIRY CHEQUE ACCOUNT : a BALANCE : 2 BOOK BALANCE : CREDIT LIMI
0x482988…482b1c Dummy {f00=0x0163, f01=0x0190, f02=»C.: WITHDRAWAL - CHEQUE ACC. : a - PASSWORD : ' Q NAME : - CHEQUE NR. : _ ) BOOK BALANCE: 1c LINE: e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 WITHDRAWAL - SAVINGS CHEQUE ACCOUNT:
0x482b1c…482cb0 Dummy {f00=0x0163, f01=0x0190, f02=» LINE: # U # e CREDIT LIMIT: 0 AMOUNT : 1 NEW BALANCE : 2 CASH DEPOSITS : # 2 CASH WITHDRAWALS : # 2 ACCUM. CHEQUES : # 2 ACCUM. TRANSFERS : # 2 CURRENCY SOLD : # 2
0x482cb0…482e44 Dummy {f00=0x0163, f01=0x0190, f02=»VINGS ACCOUNT NR. : a DEBLOCK SAVINGS ACCOUNT NR.: A c BLOCK CHEQUE ACCOUNT NR. : DEBLOCK CHEQUE ACCOUNT NR. : a NAME : CURRENT BALANCE : 2 BOOK BALANCE : 2 CREDIT LIMIT : 2 8 COMMENT : @ @ ! PRESS CONT TO CONFIRM
0x482e44…482fd8 Dummy {f00=0x0163, f01=0x0190, f02=»UNT e UPDATE ACCOUNT f UPDATE CURRENCY g INQUIRY ACCOUNT h DAILY STATEMENT i OPERATOR CLOSE j SYSTEM CLOSE k CURRENCY EXCH. l CURRENCY INQ. m LIST ACCOUNTS ` i Z ! X Y ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT N
0x482fd8…48316c Dummy {f00=0x0163, f01=0x0190, f02=» : # LAST TRANSACTION : LAST PRINTED : ACCUM. DEPOSITS : 0 ACCUM. WITHDRAWALS : 0 ALPHA KEYBOARD (N=0,Y=1) ? ! @ 8 SHARED PRINTING (N=0,L=1,R=2) ? ! @ 9 TEP(=0) TTP(=1) GTP(=2) TEP-ZEK(=3)
0x48316c…483300 Dummy {f00=0x0163, f01=0x0190, f02=» > TND (N=0,Y=1)? ! @ ? TERMINAL I.D. : 2 8 TERMINAL NAME ? 5 ' TERMINAL NAME : FRONT OFFICE( 2 ) ***** 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT ***** $PHILIPS PTS 6344 VISUAL DISPLAY UNIT $PHILIPS PTS 6344 VISUAL
0x483300…483494 (4, 117) Dummy {f00=0x0163, f01=0x0190, f02=»23456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONAL VERSION : #@[ ]`{|}~ SCREEN-SIZE : !20 LINES / 64 CHARACTERS PER LINE OPTIONAL : !24 LINES / 80 CHARACTERS PER LINE NAME : @ ADD
0x483494…483628 Dummy {f00=0x0163, f01=0x0190, f02=»(;vu^g-lqX!S[ 3 ?a <2&> % imfpsIkn_rE@0jtDK/`e WTQ81L9VUbohcd]MZBPH6N F* $'.7YC44444444h 0 !0 " % * / 5 ; A G N U ] e m v
0x483628…4837bc Dummy {f00=0x0163, f01=0x0190, f02=» 0 E Z q 5 O j 2 P p " # # $ % % A % f % % ' ) * % , O - { 0 1 4 4 = < q B C E 2 G w G M Q R Q T T H V ` f R p ( + @ m
0x4837bc…483950 Dummy {f00=0x0163, f01=0x0190, f02=» G & + P _ ]N E H0#0 T H0#0 T V E ]z 2 & >A >A 2 $ H0 & V D 9a 9 V @ W @ T = X R V 8 P , _ =B R ?H 8R<;AV ( _ X @ 9 X (
0x483950…483ae4 Dummy {f00=0x0163, f01=0x0190, f02=» R<W, V P& W$ U V X 9T I Y E 9 _ ( > w DF ? > x >" ? _ G &:K : > x / ? W( > / x w DF ? > / _ > x / ? > / ? > x ? W @ ? > /
0x483ae4…483c78 Dummy {f00=0x0163, f01=0x0190, f02=» J?2 ' W 781"&$ 39#$;< '()*+,-! B2 B H0 P _@ A: B H0 'W A: ( W^ H0 B& A: ( 1W C C " ]R ( ' P6 @" P& V ,V D W B % P C + C Bt E A I B P
0x483c78…483e0c Dummy {f00=0x0163, f01=0x0190, f02=» : ( ' P A I : A B % Y G C H0 & ] ] C H0 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D JRWD' #? J ;B V D ]V W ,"? :D;B D V : _B W
0x483e0c…483fa0 Dummy {f00=0x0163, f01=0x0190, f02=»H0 C : : A B& ,V DF : G P C W $0 P C B : ($ $ P 3 H Q ) : G #0 T & C C : B C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W
0x483fa0…484134 (4, 118) Dummy {f00=0x0164, f01=0x0190, f02=» V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 D G #0 T B ' : B B C6 : V C G P C #0 T & C C : B C C :ERERERF4GDE G<M@J J
0x484134…4842c8 Dummy {f00=0x0164, f01=0x0190, f02=»! P x` P W E, @D R a F@ pVV 9c DD 9a1 P H0 G Q D W LL :aW* @D YZP & @D ]f @D ]p ]z 2 P V W< _ 2 # ;B G V T W V P L , V 2P " 2 P V D !
0x4842c8…48445c Dummy {f00=0x0164, f01=0x0190, f02=» V E W 2 % ^ 6 E 7_ 2 # PL L PF H0 2# &] 3Y $! 2P R P _ 9BP E _ W E 6 D " 7 $ V P x` W F2 DR E~ J V & E HD 'W 'W '_8 :l:d:h
0x48445c…4845f0 Dummy {f00=0x0164, f01=0x0190, f02=» # J LGn D V $ W D V LGv , W 6 2 JRW$ " P& Pd" # J ;b Wv " ;d# _ [ v [ x H0 x Z Z : R ; H0 6 : F _v ] :B , (V ; H [ [
0x4845f0…484784 Dummy {f00=0x0164, f01=0x0190, f02=» ] ] & Z 4 J : Z 4 " 2@P : [ [ H0 & @ ! P ]v Z ]v [ 6 [ Z 7 G Z 7 : T # ( H Hh " T # :A ( @ " P ! P [ :;H 2 ;h
0x484784…484918 Dummy {f00=0x0164, f01=0x0190, f02=» # " T & T + : * & !@P `1` P L Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _
0x484918…484aac Dummy {f00=0x0164, f01=0x0190, f02=»P8" T * & : * & !`P :J +_ +Q L _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b N P NZ Pd P 0
0x484aac…484c40 Dummy {f00=0x0164, f01=0x0190, f02=»^ , < N # ; [ _ ' d V W V 4! P < S S S X 4 9d * & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : ] &9d! + P( & T 9d!
0x484c40…484dd4 (4, 119) Dummy {f00=0x0164, f01=0x0190, f02=» : 2' G [ [ H0 Z Z M@ : V ) 0 !0 " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 ] [ [ [ [ $
0x484dd4…484f68 Dummy {f00=0x0164, f01=0x0190, f02=» V H )_ S Q _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 !0 " Tz *V &V PP= ;@ R P W ;a=a P " R & R V
0x484f68…4850fc Dummy {f00=0x0164, f01=0x0190, f02=»P S^ S M@ S M@ S J z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z S L Q S Q P _ T { [ S Sj [ Q@ [ S J { R [ _ S J S Q Z ! Z $ Z %_N [ Q* S J S L R [ Z { S J z
0x4850fc…485290 Dummy {f00=0x0164, f01=0x0190, f02=» [ ( !! gg++ L 33 X G G J X J G H0X U VjU U X XnX X V.UBV8T V X(X(VLV X U U< TP 6 T K K K K V K : H0 T T TP G V U T U V Z P 2 " T W "@
0x485290…485424 Dummy {f00=0x0164, f01=0x0190, f02=» ] 7_ W Z U @ ! P x` Z 7 Z Z P x` : V R (Q V : : T J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K VVWJ V W +_ V. V* K W. _& X @hW
0x485424…4855b8 Dummy {f00=0x0164, f01=0x0190, f02=»P !EET W R IX * B Z 9 ! ; *Xt 8 ! DX 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J ]" 1 V !00T ; VX _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? ]& Z ] 49d_4
0x4855b8…48574c Dummy {f00=0x0164, f01=0x0190, f02=»PT*AXYZ9 U X2 : ! P ! P ! P ! P H0 ! P G W : ! )P9H " # T &W &" :I : X : P & _ &X _ : ]2 : : : Z Tt : { : Z $0T Z4 Pb 9 _ Z $0T [ Z
0x48574c…4858e0 Dummy {f00=0x0164, f01=0x0190, f02=» V E Z $0T Wr W W ]z Z [ Z : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : M` : H0 H0#03 T jP kT T : & 9! " : $ : T W V 9! R W
0x4858e0…485a74 (4, 120) Dummy {f00=0x0164, f01=0x0190, f02=»L MODIFIED OPERAND CREDIT 11.0 TRACE @Z P ( _ AZ AZ Z ( @Z ' $ * AZ T( Z ( AZ AZ ( Z p AZ ) Y V AZ Z V V a . 1 V a v a
0x485a74…485c08 Dummy {f00=0x0164, f01=0x0190, f02=»[ V D ! )0 1 @ # T 6 V ^ a AZ E, Z ( ( AZ : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W !W "W V H P H Bt
0x485c08…485d9c Dummy {f00=0x0164, f01=0x0190, f02=» "T @ % W T, @ % 1 X & a AZ [ @Z c E, ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT OPENED MISSING ENTRY ILLEGAL REQUESTED LENGTH FILE OPENED AS INDEX FILE FILE OPENED AS STANDAR
0x485d9c…485f30 Dummy {f00=0x0164, f01=0x0190, f02=»IT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETE
0x485f30…4860c4 Dummy {f00=0x0164, f01=0x0190, f02=»ER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE FILE ORGANIZATION UNDEFINED SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE: W 9 " R 0 1 Y : ;a V P V P W <0<a R 9a V b
0x4860c4…486258 Dummy {f00=0x0164, f01=0x0190, f02=» . @d P$ b d $ $P BT , D E @ : @b P Ab H Ad W TW V Ab d d V Ad @ ( e ( Ab d @d V P ( R W b @ ( e : @ ( f : Ad Ad E Ab d V Ad @ # P ( R4 d @ ( e ( Ab d @d V P
0x486258…4863ec Dummy {f00=0x0164, f01=0x0190, f02=»
0x4863ec…486580 Dummy {f00=0x0164, f01=0x0190, f02=» d v ( ( v ( ed u D "! Ae u u @d @d @e P ( ef V u R ef V W Z Te
0x486580…486714 (4, 121) Dummy {f00=0x0164, f01=0x0190, f02=» Ae w Ae "V # ( ed u Ae P UW T u u Ae P v4 g s g @g gh =h Wh Qi Mj| /k Sl Im Jm Tn> YnJ Gn Ln Pn Hn Ro Vo Ko u u _ g~ u|_ NO! Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag Ag A
0x486714…4868a8 Dummy {f00=0x0164, f01=0x0190, f02=» ,T q X ) Ag Ag v s hn h ;h :h h @g P Ag 1+X Ag _ h @g Ag @g Ag @g Ag @g Ag _ sP Ag @g V sl h " @g T " @g @g P Ag Ag " gh @g u f T @e Ag @e Ag @e Ag @e Ag @g At @g Ae @g Ae @g Ae P tH W @
0x4868a8…486a3c Dummy {f00=0x0164, f01=0x0190, f02=» PZ @g & u 0 u P P u u| P @R u u k _ u u u u _T u u j8 f 4 u T P u u|W T @R u u W u u u B "T" @e Ag @e Ag @e Ag @e Ag W @g T @g W @g @g @g R l >a
0x486a3c…486bd0 Dummy {f00=0x0164, f01=0x0190, f02=» t8 u| Auz f @g R V ;a Q u _ v 1 f u @t Ae _ 0 u u Ak g P 3P gh C @g P @g 1 @e P @g Q @ @g Q P " f T @e Ag @e Ag @e Ag @e Ag @g At @g Ae @g Ae @g Ae P tH W @g T l @g V @t Ae 0
0x486bd0…486d64 Dummy {f00=0x0164, f01=0x0190, f02=» V " @g T @d s TP @g P @g At Ae Ae i^ u 0! u u g T @g P @g " 1 f ghPx @g @g @g @g T @d q RX At *9l! P2 i^ m &9d! ) m W P$ &9d m & m _ m & m f gh Am Am u @w Z u "
0x486d64…486ef8 Dummy {f00=0x0164, f01=0x0190, f02=»! 5 = f gh gh pZ f P @g gh p W" c p c $ B % Ac f T @d W @g Ae gr @g R Ad Ae Ad @d ( f Ae gr @d p, gh @g @g T I @_:P pZ @d p _ Ae gr Ad @g Ad f @g ! AD f Pd @g @g PL @g P v v
0x486ef8…48708c Dummy {f00=0x0164, f01=0x0190, f02=»P _ H B @g T @d H Ao " gh EQ GT LT NE NG NL P2 @e R* v s p @g P Q p ( f gh L U c ( R ( @g V @d H B W # + C " c B Ap Ap :B Ap gh (P _ B @g @g @g P p, gr
0x48708c…487220 Dummy {f00=0x0164, f01=0x0190, f02=» C C *T W #T Ag v t P PR (T q Pl ,T q P^ )TX v sP Ag T @d q R: ?aP *:l" T* & W T C B B B B B " gh Ar Ar Ar Ar Ar Ar Ar s R Q ! 9D# 9hP Q " ;B 2
0x487220…4873b4 (4, 122) Dummy {f00=0x0165, f01=0x0190, f02=» C " _* Q P Q V _ W " As < V " F <P W* @e " P ( gh $ C " :T v v v " " As Ag .T @e P u P " Ag "
0x4873b4…487548 Dummy {f00=0x0165, f01=0x0190, f02=» At T Auz T tH @g R l Aux N @t " @e ! PD @g T @d s t Q";H @t ;d t ( @t "( gh @t " :S :X :Y :Z v $P WH v At At 0R 9Q 0 At :B v _" At " v AuP
0x487548…4876dc Dummy {f00=0x0165, f01=0x0190, f02=»u "! R _U .WV Au : u Au " 9d u ! R :W& u W u W W ?W :W .W / av Av T v^ " @v T v^ Av$ v( v ( @v Av " v^ vT v ( A( vR( Av " Av v @v v P Av v ( v Av
0x4876dc…487870 Dummy {f00=0x0165, f01=0x0190, f02=» A 2 2 ! <e > / V ,!? B H ! T )@) - ? A C -/ ? A <H _ ( H0 R ' E H0 B& A: ,# ; ( R 1 E _` A w DF C / ? V ,
0x487870…487a04 Dummy {f00=0x0165, f01=0x0190, f02=» E V D ' $ ]^ W x` P E X =' V W V Y =P x` :
0x487a04…487b98 Dummy {f00=0x0165, f01=0x0000, f02=» ! INQUIRY SAVINGS ACCOUNT NR : INQUIRY CHEQUE ACCOUNT : a BALANCE : + BOOK BALANCE : CREDIT LIMIT : + STATUS : LAST TRANS. REQ. (NO=0,YES=1)? @ e ` TRANSACTION INQUIRY-A/C : a TRANS:
0x487b98…487d2c Dummy {f00=0x0165, f01=0x0000, f02=»CCOUNT NR. : a DEBLOCK SAVINGS ACCOUNT NR.: A c BLOCK CHEQUE ACCOUNT NR. : DEBLOCK CHEQUE ACCOUNT NR. : a NAME : CURRENT BALANCE : + BOOK BALANCE : + CREDIT LIMIT : + 8 COMMENT : @ @ ! PRESS CONT TO CONFIRM ELSE C
0x487d2c…487ec0 Dummy {f00=0x0165, f01=0x0000, f02=»UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT : + I > ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR.
0x487ec0…488054 (4, 123) Opaque[0x194]
0x488054…4881e8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ca8, f03=0x0000}
0x488054…4881e8 IdxSect {
0x488054…4881e8 f00 = 0x0165 // 0x488054 @0x0
0x488054…4881e8 f01 = 0x0006 // 0x488056 @0x2
0x488054…4881e8 gno = [ // 0x488058 @0x4
0x488054…4881e8 [0x00]: C0x0165.0x1.0
0x488054…4881e8 [0x01]: C0x0165.0x2.0
0x488054…4881e8 [0x02]: C0x0165.0x3.0
0x488054…4881e8 ]
0x488054…4881e8 }
0x4881e8…48837c Dummy {f00=0x0165, f01=0x0190, f02=» 6 P IDENT CTAB01 CONVERSION TABLE DEMO 6800 REL 11.0 P > P F P N P ENTRY CTAB01 V P ENTRY CTAB02 l P ENTRY CTAB03 P ENTRY CTAB04 P P P P* < P* THIS IS THE KEY-CODE CONVERSION TABLE FOR THE PTS 6800
0x48837c…488510 Dummy {f00=0x0165, f01=0x018e, f02=» DEPRESSED. n F P* THEN IN THE "UNSHIFT" TABLE, THE FIRST DIGIT OF THE KEY-CODE, H P* SO "3" IS TAKEN AS A DISPLACEMENT. WITH DISPLACEMENT 3 WE FIND ^ H P* A POINTER, CALLED "UNSH3". THIS POINTS TO ANOTHER TABLE, CALLED H P* "UNSH3". THEN
0x488510…4886a4 Dummy {f00=0x0165, f01=0x018e, f02=» H P* FIND THE HEXADECIMAL VALUE GENERATED BY THE KEY-CODE '30'. THIS P* APPEARS TO BE '30'. P P* p P EJECT z PCTAB01 EQU * PCTAB02 EQU * PCTAB03 EQU * PCTAB04 EQU * P DATA UNSHFT P DATA SHIFT P DATA CT
0x4886a4…488838 Dummy {f00=0x0165, f01=0x0190, f02=» PCTRL EQU * PUNSHFT EQU * 6 P DATA FUNCT0 FUNCTION CLUSTER,KEYS STARTING WITH 0 * 6 P DATA FUNCT1 " " " " " 1 d 6 P DATA UNSH2 ALPHANUMERIC PART," " " 2 6 P DATA UNSH3 " " " " "
0x488838…4889cc Dummy {f00=0x0165, f01=0x0190, f02=»T6 FUNCTION CLUSTER, " " " 6 P* 0 B P* COLUMN TABLE FOR SHIFTED KEYS, AND FOR CONTROL-SHIFTED KEYS : P* PCTRLSH EQU * PSHIFT EQU * P DATA FUNCT0 P DATA FUNCT1 P DATA SHIFT2 P DATA SHIFT3 P DATA
0x4889cc…488b60 Dummy {f00=0x0165, f01=0x0190, f02=» PSPECI EQU * P DATA 0,0,0,0,0,0,0 NOT USED P EJECT @ P* N 8 P* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 0 X P* PFUNCT0 EQU * P DATA /AB83 P DATA /878B P DATA /8188 P DATA /8A84 P DATA
0x488b60…488cf4 (4, 124) Dummy {f00=0x0165, f01=0x0190, f02=» P* PFUNCT1 EQU * P DATA /3031 & P DATA /3233 : P DATA /3435 N P DATA /3637 b P DATA /3839 v P DATA /1A1B P DATA /9096 P DATA /91A2 P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH
0x488cf4…488e88 Dummy {f00=0x0165, f01=0x0190, f02=» P DATA /FF40 P DATA /2C2D P DATA /2EFF , P* @ < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 2 J P* PSHIFT2 EQU * P DATA /20FF P DATA /FFFF P DATA /FFFF P DATA /FF7E P DATA /3D3D
0x488e88…48901c Dummy {f00=0x0165, f01=0x0190, f02=» P* PUNSH3 EQU * P DATA /3031 " P DATA /3233 6 P DATA /3435 J P DATA /3637 ^ P DATA /3839 r P DATA /903B P DATA /3C3D P DATA /3E3F P* < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 3
0x48901c…4891b0 Dummy {f00=0x0165, f01=0x0190, f02=» P DATA /3C3D P DATA /3E3F P* 0 @ P* CHARACTERS TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 4 : P* ~ PUNSH4 EQU * P DATA /2741 P DATA /4243 P DATA /4445 P DATA /4647 P DATA /4849 P DATA /4
0x4891b0…489344 Dummy {f00=0x0165, f01=0x018e, f02=»SHIFT4 EQU * P DATA /5E41 P DATA /4243 ( P DATA /4445 < P DATA /4647 P P DATA /4849 d P DATA /4A4B x P DATA /4C4D P DATA /4E4F P* > P* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 5 P*
0x489344…4894d8 Dummy {f00=0x0165, f01=0x018e, f02=» P DATA /5C5D P DATA /2BFF P* 0 < P* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 5 : P* z PSHIFT5 EQU * P DATA /5051 P DATA /5253 P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x4894d8…48966c Dummy {f00=0x0165, f01=0x40b8, f02=» PFUNCT6 EQU * P DATA /A1A0 P DATA /9980 , P DATA /9394 @ P DATA /959A T P DATA 0 h P DATA 0 x P DATA 0 P DATA 0 P END @ P DATA /5455 P DATA /5657 P DATA /5859 P DATA /5A7B
0x48966c…489800 Dummy {f00=0x0165, f01=0x2008, f02=» * * 8 3* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 6 " * ^ FUNCT6 EQU * h DATA /A1A0 | DATA /9980 DATA /9394 DATA /959A DATA 0 DATA 0 DATA 0 DATA 0
0x489800…489994 (4, 125) Dummy {f00=0x0165, f01=0x0190, f02=»
[…0x1…]
0x489b28…489cbc Dummy {f00=0x0165, f01=0x0190, f02=» * > 0 0 0 0 0 0 $0 *0 0 6 7 = V Z ( _ > *0 0
0x489cbc…489e50 Dummy {f00=0x0165, f01=0x0190, f02=» P * F0 0 0 !0 "0 $ %
0x489e50…489fe4 Dummy {f00=0x0165, f01=0x0190, f02=» L0 R0 X0 ^0 d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x489fe4…48a178 Dummy {f00=0x0165, f01=0x0190, f02=» * 20 0 0 0 0 0 0 0 !0 '0 -0 3 7 ( d > 0 0 0 0 0 H f f f f f f f f f f f f U D
0x48a178…48a30c Dummy {f00=0x0165, f01=0x0190, f02=» U5* 2 0 0 0 0 " < @: X : v B > 8 F J x: D E X_j DEX D' W^j D W D*j D DF0 DP 1 A A24 0 4 1 4m 5 mZ3 % % 1 4 1p2&3 5 1 3 4 4 1"5 J3 `$ 0 484<: 4Fmzm 4$4 1 &h/ # "
0x48a30c…48a4a0 Dummy {f00=0x0165, f01=0x0190, f02=» 0 1 2 4 5 6 8 9 : ; < > ? @ B D E F G H I J K L M N O Q [ @A 1DSC001FORMFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999PP999Z9,99ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZ