|
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 K L M N O P Q S T U X Z p ½
Length: 3878400 (0x3b2e00)
Description: Bits:30009701 Philips computer tape "BARCLAY"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| BARCLAY | «none» |
| BARCLAY//OBJCT.OB | ⟦8199dea78⟧ pts_type |
| BARCLAY/A:TEST.LM | ⟦d5ee90e3b⟧ pts_type |
| BARCLAY/ATTRIB.SC | ⟦484d31f3b⟧ pts_type |
| BARCLAY/BDE.SC | ⟦6ded4615e⟧ pts_type |
| BARCLAY/BDEINP.SC | ⟦72886ae93⟧ pts_type |
| BARCLAY/CTAB01.SC | ⟦1f15b965d⟧ pts_type |
| BARCLAY/CTAB99.SC | ⟦aeb6c64b7⟧ pts_type |
| BARCLAY/CURSOR.SC | ⟦efd38407e⟧ pts_type |
| BARCLAY/ENQ.SC | ⟦5284923e9⟧ pts_type |
| BARCLAY/EQUATE.SC | ⟦c6358fc17⟧ pts_type |
| BARCLAY/ERASUP.SC | ⟦41ec5765a⟧ pts_type |
| BARCLAY/EXPAND.SC | ⟦c96dd2796⟧ pts_type |
| BARCLAY/FINDLN.SC | ⟦518fb8bb6⟧ pts_type |
| BARCLAY/KBREAD.SC | ⟦13c9f2815⟧ pts_type |
| BARCLAY/KTABBE.SC | ⟦36e99ad75⟧ pts_type |
| BARCLAY/LEAD.SC | ⟦f6fd4f966⟧ pts_type |
| BARCLAY/LED.LM | ⟦ebe1191c5⟧ pts_type |
| BARCLAY/LEDLS.UF | ⟦1b4c28ccc⟧ pts_type |
| BARCLAY/M:TEST.LM | ⟦77d3025fa⟧ pts_type |
| BARCLAY/NJ.UF | ⟦94f0fb771⟧ pts_type |
| BARCLAY/NJDDIV.SC | ⟦25730c0a9⟧ pts_type |
| BARCLAY/OBGEN.UF | ⟦5f6b98546⟧ pts_type |
| BARCLAY/PUSH.SC | ⟦e85b304cc⟧ pts_type |
| BARCLAY/SCWRIT.SC | ⟦979138b8a⟧ pts_type |
| BARCLAY/TEST.SC | ⟦ffee5dc27⟧ pts_type |
| BARCLAY/TESTFI.UF | ⟦9bee82444⟧ pts_type |
| BARCLAY/TSTGEN.UF | ⟦f0c1228d9⟧ pts_type |
| BARCLAY/UNPCK.SC | ⟦e3a8469d5⟧ pts_type |
| BARCLAY/UNPPRT.SC | ⟦da7c3a276⟧ pts_type |
| BARCLAY/XRF.LM | ⟦7b8dd3a9b⟧ pts_type |
| BARCLAY | «none» |
| BARCLAY//OBJCT.OB | ⟦8199dea78⟧ pts_type |
| BARCLAY/ATTRIB.SC | ⟦484d31f3b⟧ pts_type |
| BARCLAY/BDE.SC | ⟦6ded4615e⟧ pts_type |
| BARCLAY/BDEINP.SC | ⟦72886ae93⟧ pts_type |
| BARCLAY/CTAB01.SC | ⟦1f15b965d⟧ pts_type |
| BARCLAY/CTAB99.SC | ⟦aeb6c64b7⟧ pts_type |
| BARCLAY/CURSOR.SC | ⟦efd38407e⟧ pts_type |
| BARCLAY/ENQ.SC | ⟦5284923e9⟧ pts_type |
| BARCLAY/EQUATE.SC | ⟦c6358fc17⟧ pts_type |
| BARCLAY/ERASUP.SC | ⟦41ec5765a⟧ pts_type |
| BARCLAY/EXPAND.SC | ⟦c96dd2796⟧ pts_type |
| BARCLAY/FINDLN.SC | ⟦518fb8bb6⟧ pts_type |
| BARCLAY/KBREAD.SC | ⟦13c9f2815⟧ pts_type |
| BARCLAY/KTABBE.SC | ⟦36e99ad75⟧ pts_type |
| BARCLAY/LEAD.SC | ⟦f6fd4f966⟧ pts_type |
| BARCLAY/LED.LM | ⟦ebe1191c5⟧ pts_type |
| BARCLAY/LEDLS.UF | ⟦1b4c28ccc⟧ pts_type |
| BARCLAY/M:TEST.LM | ⟦77d3025fa⟧ pts_type |
| BARCLAY/NJ.UF | ⟦94f0fb771⟧ pts_type |
| BARCLAY/NJDDIV.SC | ⟦25730c0a9⟧ pts_type |
| BARCLAY/OBGEN.UF | ⟦5f6b98546⟧ pts_type |
| BARCLAY/PUSH.SC | ⟦e85b304cc⟧ pts_type |
| BARCLAY/SCWRIT.SC | ⟦979138b8a⟧ pts_type |
| BARCLAY/TEST.SC | ⟦ffee5dc27⟧ pts_type |
| BARCLAY/TESTFI.UF | ⟦9bee82444⟧ pts_type |
| BARCLAY/TSTGEN.UF | ⟦f0c1228d9⟧ pts_type |
| BARCLAY/UNPCK.SC | ⟦e3a8469d5⟧ pts_type |
| BARCLAY/UNPPRT.SC | ⟦da7c3a276⟧ pts_type |
| BARCLAY/XRF.LM | ⟦7b8dd3a9b⟧ pts_type |
| DEMO6800 | «none» |
| DEMO6800//OBJCT.OB | ⟦6b78bc348⟧ pts_type |
| DEMO6800/DJUACT.SC | ⟦2195a20f2⟧ pts_type |
| DEMO6800/OBDIR.UF | «none» |
| DEMO6800 | «none» |
| DEMO6800//OBJCT.OB | ⟦6b78bc348⟧ pts_type |
| DEMO6800/A:DEMO.LM | ⟦51cbb130b⟧ pts_type |
| DEMO6800/AADEMO.SC | ⟦9b300b413⟧ pts_type |
| DEMO6800/BASPCT.SC | ⟦6989a825b⟧ pts_type |
| DEMO6800/BCSTTO.SC | ⟦d71af9946⟧ pts_type |
| DEMO6800/BESELF.SC | ⟦a207233f5⟧ pts_type |
| DEMO6800/CASTTS.SC | ⟦60eb4057f⟧ pts_type |
| DEMO6800/CDCHKY.SC | ⟦e3cad019c⟧ pts_type |
| DEMO6800/CEGACT.SC | ⟦8742db872⟧ pts_type |
| DEMO6800/CFCHKH.SC | ⟦68928847e⟧ pts_type |
| DEMO6800/CGCSYS.SC | ⟦dbfeb82e5⟧ pts_type |
| DEMO6800/CTAB01.SC | ⟦159d2ea54⟧ pts_type |
| DEMO6800/DAUCCY.SC | ⟦29f4ed10b⟧ pts_type |
| DEMO6800/DBUOPR.SC | ⟦ce78632c9⟧ pts_type |
| DEMO6800/DCVDU.SC | ⟦3e1bfc09f⟧ pts_type |
| DEMO6800/DDTP71.SC | ⟦83932b2b2⟧ pts_type |
| DEMO6800/DEFDOC.SC | ⟦18718055b⟧ pts_type |
| DEMO6800/DELACT.SC | ⟦dd6a03751⟧ pts_type |
| DEMO6800/DEMCON.UF | ⟦ab2f67da8⟧ pts_type |
| DEMO6800/DEMO.LM | ⟦f81442783⟧ pts_type |
| DEMO6800/DEMODD.SC | ⟦ab8e6427e⟧ pts_type |
| DEMO6800/DEMSCR.SC | ⟦8d79461fc⟧ pts_type |
| DEMO6800/DFOACT.SC | ⟦47003a43b⟧ pts_type |
| DEMO6800/DGCACT.SC | ⟦a02caaea3⟧ pts_type |
| DEMO6800/DHBACT.SC | ⟦69e1f6bb1⟧ pts_type |
| DEMO6800/DIQACT.SC | ⟦26cffe536⟧ pts_type |
| DEMO6800/DJUACT.SC | ⟦2195a20f2⟧ pts_type |
| DEMO6800/DKDSTM.SC | ⟦0dc8e5820⟧ pts_type |
| DEMO6800/DLDEP.SC | ⟦7301ab16a⟧ pts_type |
| DEMO6800/DMWDR.SC | ⟦0c7544cf5⟧ pts_type |
| DEMO6800/DNTRF.SC | ⟦7c8e9ccf3⟧ pts_type |
| DEMO6800/DOQCCY.SC | ⟦1c2b0c18b⟧ pts_type |
| DEMO6800/DPECCY.SC | ⟦c06dc6f92⟧ pts_type |
| DEMO6800/DQCOPR.SC | ⟦248240f35⟧ pts_type |
| DEMO6800/EINIT.SC | ⟦919ed0d4a⟧ pts_type |
| DEMO6800/EMPTY.UF | ⟦470955395⟧ pts_type |
| DEMO6800/FMTPIC.SC | ⟦e4322d84b⟧ pts_type |
| DEMO6800/LINDEM.UF | ⟦f13703c25⟧ pts_type |
| DEMO6800/M:PROC.UF | ⟦1e5f330da⟧ pts_type |
| DEMO6800/MMU.UF | ⟦59eb37706⟧ pts_type |
| DEMO6800/NJ1.UF | ⟦c889173df⟧ pts_type |
| DEMO6800/OBDIR.UF | ⟦61f4dc394⟧ pts_type |
| DEMO6800/PBBOOK.SC | ⟦147772bb8⟧ pts_type |
| DEMO6800/PRINT.SC | ⟦327362141⟧ pts_type |
| DEMO6800/QEMOVE.SC | ⟦b0da655e2⟧ pts_type |
| DEMO6800/QIRDBS.SC | ⟦6d2e54fa9⟧ pts_type |
| DEMO6800/QMISC.SC | ⟦1003b7938⟧ pts_type |
| DEMO6800/SPACHQ.SC | ⟦9bc615b00⟧ pts_type |
| DEMO6800/TRANSL.UF | ⟦fa6f27da2⟧ pts_type |
| DEMO6800/TRNLKO.UF | ⟦ecc3205d2⟧ pts_type |
| DEMO6800/TSTCON.UF | ⟦6bdc78583⟧ pts_type |
| DEMO6800/XBFMT.SC | ⟦7c1592f24⟧ pts_type |
| DEMO6800/XMESG.SC | ⟦889402240⟧ pts_type |
| DEMO6800/XOPINP.SC | ⟦68120140c⟧ pts_type |
| DEMO6800/ZDSCIO.SC | ⟦9f5dfb988⟧ pts_type |
| DEMO6800/ZFMTIO.SC | ⟦7ca1725b4⟧ pts_type |
| DEMO6800/ZMRDF.SC | ⟦05e1d0a73⟧ pts_type |
| HJFORMAT | «none» |
| HJFORMAT//OBJCT.OB | ⟦a3d29bf48⟧ pts_type |
| HJFORMAT/A:FORM.LM | ⟦9000c40c8⟧ pts_type |
| HJFORMAT/DEMODD.SC | ⟦ab8e6427e⟧ pts_type |
| HJFORMAT/ENG.UF | ⟦c17cc96ec⟧ pts_type |
| HJFORMAT/ENGDEF.LM | ⟦070956496⟧ pts_type |
| HJFORMAT/ENGDEF.SC | ⟦430f38786⟧ pts_type |
| HJFORMAT/FMTPIC.SC | ⟦e4322d84b⟧ pts_type |
| HJFORMAT/FORCON.UF | ⟦6a749a741⟧ pts_type |
| HJFORMAT/FORMAT.SC | ⟦49d30189b⟧ pts_type |
| HJFORMAT/FORMAT.UF | ⟦c5e79f0ec⟧ pts_type |
| HJFORMAT/FORMIO.SC | ⟦b32314908⟧ pts_type |
| HJFORMAT/FRADEF.LM | ⟦641c06ca7⟧ pts_type |
| HJFORMAT/FRADEF.SC | ⟦3639be5a8⟧ pts_type |
| HJFORMAT/GERDEF.LM | ⟦7ea51f5e8⟧ pts_type |
| HJFORMAT/GERDEF.SC | ⟦aed261a30⟧ pts_type |
| HJFORMAT/LISTEN.UF | ⟦9f305d7f3⟧ pts_type |
| HJFORMAT/LSTFMT.SC | ⟦2e5b2f0b4⟧ pts_type |
| HJFORMAT/NEDDEF.LM | ⟦9c9153b70⟧ pts_type |
| HJFORMAT/NEDDEF.SC | ⟦2406c9465⟧ pts_type |
| HJFORMAT/OBDIR.UF | ⟦6a0933f6f⟧ pts_type |
| HJFORMAT/TALEN.UF | ⟦ab9a6c5b6⟧ pts_type |
| M:DEMO | «none» |
| M:DEMO//OBJCT.OB | ⟦c6fa57831⟧ pts_type |
| M:DEMO/ADDMOD.SC | ⟦7dec9c97b⟧ pts_type |
| M:DEMO/CTAB01.SC | ⟦a8c3fe781⟧ pts_type |
| M:DEMO/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:DEMO/DFTAB.SC | ⟦075c9edb9⟧ pts_type |
| M:DEMO/DIVMOD.SC | ⟦ea29f8c87⟧ pts_type |
| M:DEMO/DMBUF.SC | ⟦efbc91631⟧ pts_type |
| M:DEMO/DMFDB.SC | ⟦2b21cfbe0⟧ pts_type |
| M:DEMO/DMINIT.SC | ⟦7764401b6⟧ pts_type |
| M:DEMO/DMOPCL.SC | ⟦b524de910⟧ pts_type |
| M:DEMO/DMSUBR.SC | ⟦dd2179947⟧ pts_type |
| M:DEMO/DMSUBX.SC | ⟦0345a4b48⟧ pts_type |
| M:DEMO/DMTASK.SC | ⟦4193df022⟧ pts_type |
| M:DEMO/DRDI01.SC | ⟦891d06935⟧ pts_type |
| M:DEMO/DRDY01.SC | ⟦df4a470a5⟧ pts_type |
| M:DEMO/DRFD01.SC | ⟦d05a2b2b8⟧ pts_type |
| M:DEMO/DRGP01.SC | ⟦d8c1af4be⟧ pts_type |
| M:DEMO/DRKB03.SC | ⟦4ae3af06e⟧ pts_type |
| M:DEMO/DRLT01.SC | ⟦325f830b0⟧ pts_type |
| M:DEMO/DRSW01.SC | ⟦5f45d4b5f⟧ pts_type |
| M:DEMO/DRTP03.SC | ⟦0e7d6b755⟧ pts_type |
| M:DEMO/DRTW01.SC | ⟦437e201db⟧ pts_type |
| M:DEMO/DSKSUB.SC | ⟦aecabe0b5⟧ pts_type |
| M:DEMO/DSUMOD.SC | ⟦aa24c50c1⟧ pts_type |
| M:DEMO/DTTP03.SC | ⟦6adb33a99⟧ pts_type |
| M:DEMO/DVDI00.SC | ⟦5ab79e3a3⟧ pts_type |
| M:DEMO/DVDI01.SC | ⟦b209a826c⟧ pts_type |
| M:DEMO/DVDI02.SC | ⟦4d7db7149⟧ pts_type |
| M:DEMO/DVDI04.SC | ⟦5d5900caa⟧ pts_type |
| M:DEMO/DVDY00.SC | ⟦a03ae9654⟧ pts_type |
| M:DEMO/DVDY01.SC | ⟦f1e8b8980⟧ pts_type |
| M:DEMO/DVDY02.SC | ⟦82daf4556⟧ pts_type |
| M:DEMO/DVDY04.SC | ⟦8854a83e8⟧ pts_type |
| M:DEMO/DVGP04.SC | ⟦5df3fe1b1⟧ pts_type |
| M:DEMO/DVKB00.SC | ⟦71d452772⟧ pts_type |
| M:DEMO/DVKB01.SC | ⟦8283a8271⟧ pts_type |
| M:DEMO/DVKB02.SC | ⟦9c5b038db⟧ pts_type |
| M:DEMO/DVKB04.SC | ⟦c92f8e24b⟧ pts_type |
| M:DEMO/DVT103.SC | ⟦9481a903a⟧ pts_type |
| M:DEMO/DVTDI.SC | ⟦821bef7e7⟧ pts_type |
| M:DEMO/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| M:DEMO/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:DEMO/DVTKB.SC | ⟦af004f699⟧ pts_type |
| M:DEMO/DVTT1.SC | ⟦3b7f47e52⟧ pts_type |
| M:DEMO/EBCDIC.SC | ⟦3b52e2931⟧ pts_type |
| M:DEMO/FMTASK.SC | ⟦84c017df1⟧ pts_type |
| M:DEMO/LDTASK.SC | ⟦8952a3d4a⟧ pts_type |
| M:DEMO/LKMAL.SC | ⟦e3f9427ab⟧ pts_type |
| M:DEMO/LRPINT.SC | ⟦81b6815eb⟧ pts_type |
| M:DEMO/M:DEMO.LM | ⟦5d51ea345⟧ pts_type |
| M:DEMO/M:DEMO.UF | ⟦be66a7291⟧ pts_type |
| M:DEMO/MONTAB.SC | ⟦4e021ba37⟧ pts_type |
| M:DEMO/MONTIM.SC | ⟦e4789fca8⟧ pts_type |
| M:DEMO/MPYMOD.SC | ⟦a63a6c1fc⟧ pts_type |
| M:DEMO/MSUBS.SC | ⟦84763417b⟧ pts_type |
| M:DEMO/NJ.UF | ⟦106f08dc8⟧ pts_type |
| M:DEMO/PFTAB.SC | ⟦0eebcffcc⟧ pts_type |
| M:DEMO/SCLASS.SC | ⟦14a26beae⟧ pts_type |
| M:DEMO/ST8000.SC | ⟦89ba753c3⟧ pts_type |
| M:DEMO/SYSLDA.SC | ⟦ae6e1c143⟧ pts_type |
| M:DEMO/SYSLDM.SC | ⟦b16d0dd46⟧ pts_type |
| M:DEMO/SYSTAB.SC | ⟦ba98d667d⟧ pts_type |
| M:DEMO/TABORT.SC | ⟦20da43eed⟧ pts_type |
| M:DEMO/TCLASS.SC | ⟦8b8d268a6⟧ pts_type |
| M:DEMO/TDISP.SC | ⟦9e314f7ef⟧ pts_type |
| M:DEMO/TIMER.SC | ⟦9eee62c80⟧ pts_type |
| M:DEMO/TIODM.SC | ⟦3487364be⟧ pts_type |
| M:DEMO/TLDSEG.SC | ⟦38351437f⟧ pts_type |
| M:DEMO/TMMLKM.SC | ⟦45fd0c009⟧ pts_type |
| M:DEMO/TOSSFM.SC | ⟦9714a807f⟧ pts_type |
| M:DEMO/TOSSIO.SC | ⟦3a9c8922c⟧ pts_type |
| M:DEMO/TPROC.SC | ⟦9a1eb7b30⟧ pts_type |
| M:DEMO/TTMJOB.SC | ⟦e2ea3318f⟧ pts_type |
| MONTOR | «none» |
| MONTOR/CON1.UF | ⟦91467b034⟧ pts_type |
| MONTOR/CON2.UF | ⟦75313be1b⟧ pts_type |
| MONTOR/CTAB01.SC | ⟦a8c3fe781⟧ pts_type |
| MONTOR/CTAB02.SC | ⟦c9d05ee60⟧ pts_type |
| MONTOR/DEMMN1.LM | ⟦ff411a122⟧ pts_type |
| MONTOR/DEMMN2.LM | ⟦0d8a545f6⟧ 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=»BARCLA«, typ=»Y «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NJDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB99«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CURSOR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BDEINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ENQ «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EXPAND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FINDLN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KBREAD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LEAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SCWRIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»UNPCK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»UNPPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PUSH «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KTABBE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ERASUP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TESTFI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»NJDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0014 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0004 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0014.0x0.0
0x001ad4…001c68 [0x01]: C0x001c.0x0.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0014, f01=0x018e, f02=» P IDENT NJDDIV P DDIV P* ( P TERM K0 2 P CWB CB1 B P CWB CB2 R P TWB TB1 b P TWB TB2 r P START KBGO PDSDY DSET FC=50,BUFL=100 PDSKB DSET FC=20 PDSGP DSET FC=30 P P P PCB1 BLK
0x001dfc…001f90 Dummy {f00=0x0014, f01=0x0190, f02=» PCBIN6 BIN '6' PCBIN8 BIN '8' PCBIN9 BIN '9' 0 PCBIN10 BIN '10' F PCBIN12 BIN '12' ^ PCBIN14 BIN '14' v PCBIN15 BIN '15' PCBIN16 BIN '16' PCBIN17 BIN '17' PCBIN80 BIN '80' P P PCB2 BLK
0x001f90…002124 Dummy {f00=0x0014, f01=0x0190, f02=»3' PDC4 STRG X'14' . PCATTRIB1 STRG X'74' RIGHT JUST + MODIFIED PCATTRIB2 STRG X'64' MODIFIED R P v P ~ P PTB1 BLK PTDC1 BOOL F PTDC2 BOOL F PTDC3 BOOL F PTDC4 BOOL F , PTINT BOOL F T= ENQ CALLED
0x002124…0022b8 Dummy {f00=0x0014, f01=0x0190, f02=»OR ALL PURPOSES x P* ATTRIBUTE BOOLEANS BEGIN PTANODISP BOOL F NON-DISPLAY : PTAHILITE BOOL F HIGHLIGHT ^ " PTAMODIF BOOL F MODIFIED FIELD $ PTAPROTEC BOOL F PROTECTED FIELD , PTARITJUS BOOL F RIGHTJUSTIFIED = NUMERIC P* ATTRIBUT
0x0022b8…00244c Dummy {f00=0x0014, f01=0x0190, f02=» PTBIN4 BIN SCRATCH PTBIN5 BIN SCRATCH PTBIN6 BIN SCRATCH 8 PTBIN7 BIN SCRATCH R PTBIN8 BIN SCRATCH l PTCURPOS BIN CURSORPOSITION & PTPOINTER BIN POINTER INTO TSCRBUF . PTSTACKPT BIN '0' STACKPOINTER. MAY ONLY BE P
0x00244c…0025e0 Dummy {f00=0x0014, f01=0x0190, f02=»SKID P USED IN PUSH/POP P ( P 0 PTB2 BLK 8 PTBCD4 BCD 4 H * PTTERMID STRG 5 TERMINAL IDENTIFICATION PTBRANCH STRG 3 DEST.BRANCH PTTYPE STRG 2 SCREEN NBR PTSTR1 STRG 1 PTSTR2 STRG 2 PTSTR3 STRG 3 P
0x0025e0…002774 (1, 2) Dummy {f00=0x001c, f01=0x40ec, f02=»TSCBUF STRG 84 PTKBBUF STRG 50 , PTSTACK STRG 60 CREDITSTACK. MAY ONLY BE , P USED IN PUSH/POP. P PDIV x P ENTRY KBGO P EXPROC TEST PKBGO P PERF TEST B KBGO END @
0x002774…002908 Dummy {f00=0x001c, f01=0x2008, f02=» TSTR256 STRG 256 TSCRBUF STRG 2000 " TSCBUF STRG 82 < TKBBUF STRG 50 R h p PDIV x ENTRY KBGO KBGO B KBGO END @ TBIN3 BIN TBIN4 BIN TBIN5 BIN TBIN6 BIN
0x002908…002a9c Dummy {f00=0x001c, f01=0x0190, f02=» P IDENT UNPPRT 80.10.30 NJ P DDUM NJDDIV & P PDIV : P ENTRY UNPPRT H P EXPROC EXPAND,PSTRG,PBIN ^ P EXPROC PRTLN,PSTRG P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P*
0x002a9c…002c30 Dummy {f00=0x001c, f01=0x0190, f02=»ME FROM THE INPUTBUFFER p 2 P* 2. REPLACE SPACECOMPRESSION CHARACTERS WITH * P* THE APPRIOPRIATE NUMBER OF SPACES V 2 P* 3. HAND A PRINTLINE OVER TO THE PRINTER TASK P* P* ALTERED FIELDS: P* TSTR1 - DC2 P* TSTR2
0x002c30…002dc4 Dummy {f00=0x001c, f01=0x0190, f02=»OVE TSTR2,=X'2B2B' START WITH NO-SPACE PUNPP010 . ( P XCOPY TSCBUF,CBIN0,CBIN80,BUF,TBIN1 > $ P MOVE MAX. POSSIBLE FIELD SIZE j P MOVE TSTR1,DC2 P MOVE TBIN3,CBIN0 0 P MATCH TSCBUF,TBIN3,CBIN80,TSTR1,CBIN0,CBIN1 P FIND FIRST LI
0x002dc4…002f58 Dummy {f00=0x001c, f01=0x0190, f02=»ED, IF ANY | & P BNOK UNPP020 NO FORMFEED PRESETN, P ASSUME LINEFEED PRESENT < P CBL TBIN3,TBIN2,UNPP020 ` " P DID LINEFEED OCCUR FIRST? 0 P MOVE TBIN1,TBIN3 NEW STARTINGPOINT FOR NEXT P MOVE TBIN4,TBIN3 P CLEAR TBOOL FF OCCU
0x002f58…0030ec Dummy {f00=0x001c, f01=0x0190, f02=» . P SUB TBIN4,TBIN1 FIND LENGTH OF PRINTLINE P MOVE TBIN5,=W'100' : ( P SUB TBIN5,TBIN4 HOW MUCH TO ERASE? V P DLETE TSCBUF,TBIN4,TBIN5 P MOVE TBIN4,=W'83' : P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 FORM CTRL CHARS 4 P XCOPY TSCBU
0x0030ec…003280 Dummy {f00=0x001c, f01=0x40ee, f02=»EED? f , P MOVE TSTR2,='1' SET FORMFEED CTRLCHARS PUNPP040 < P ADD TBIN1,CBIN1 L & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 d & P CBNE TSTR1,ETX,UNPP010 FINISHED ? P PERF PULL,CBIN6 P PEND P END @ CHARS 4 P XCOPY TSCBU
0x003280…003414 (1, 3) Opaque[0x194]
0x003414…0035a8 # DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x003414…0035a8 IdxSect {
0x003414…0035a8 f00 = 0x0008 // 0x3414 @0x0
0x003414…0035a8 f01 = 0x0002 // 0x3416 @0x2
0x003414…0035a8 gno = [ // 0x3418 @0x4
0x003414…0035a8 [0x00]: C0x0008.0x0.0
0x003414…0035a8 ]
0x003414…0035a8 }
0x0035a8…00373c Dummy {f00=0x0008, f01=0x0190, f02=» SCR LED NJDDIV !!LS $$XLS$$ " !!AB 6 LED TEST B !!LS $$XLS$$ R !!AB f LED CURSOR r !!LS $$XLS$$ !!AB LED BDE !!LS $$XLS$$ !!AB LED BDEINP !!LS $$XLS$$ !!AB LE
0x00373c…0038d0 Dummy {f00=0x0008, f01=0x018e, f02=»AB LED KBREAD !!LS $$XLS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x0038d0…003a64 Dummy {f00=0x0008, f01=0x0024, f02=» SCR ASG /E0,TY10 LS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x003a64…003bf8 Dummy {f00=0x0008, f01=0x2008, f02=» SCR ASG /E0,TY10 LS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x003bf8…003d8c Dummy {f00=0x0008, f01=0x0190, f02=»7I3 7 0 J7 2 _ fI3 J* 78 73jJ 7I3 7 0 J7 2 3 _ 0 90 40 9_ H6 jI31 I 31 3 21 2 I#d 2I 0 9 2 4 G!jG 9 jG ' W jG ( 4 * 4 E' M dM E 1 1 0 M1 4 < = <=0 M E'dM E 0 M 4 GK@0@1@2@3 2 5 j2 K
0x003d8c…003f20 Dummy {f00=0x0008, f01=0x0190, f02=» 9 1 jD K1 D"P 35 3 < K< 15 1 K1I5 H; I: W jL4<K5H9 M)jM <K1 < W M+jM <K1 < 0 M< 5<_w 4 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O;
0x003f20…0040b4 (1, 4) Opaque[0x194]
0x0040b4…004248 # DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x0040b4…004248 IdxSect {
0x0040b4…004248 f00 = 0x0003 // 0x40b4 @0x0
0x0040b4…004248 f01 = 0x0002 // 0x40b6 @0x2
0x0040b4…004248 gno = [ // 0x40b8 @0x4
0x0040b4…004248 [0x00]: C0x0003.0x1.0
0x0040b4…004248 ]
0x0040b4…004248 }
0x004248…0043dc Dummy {f00=0x0003, f01=0x018e, f02=» 6 P************************************************* 6 P* * > 6 P* THIS EQUATE-COLLECTION IS TO BE USED WHERE- * x 6 P* EVER YOU NEED EQUATES. * 6 P*
0x0043dc…004570 Dummy {f00=0x0003, f01=0x018e, f02=» P P PKYINS EQU X'01' PKYUP EQU X'02' 0 PKYENQ EQU X'03' F PKYLEFT EQU X'04' ^ PKY50 EQU X'05' v PKYRIGT EQU X'06' PKYNL EQU X'07' PKYHOME EQU X'08' PKYDOWN EQU X'09' PKYBDE EQU X'0A' PKYPTR
0x004570…004704 Dummy {f00=0x0003, f01=0x4124, f02=» | PKYDEL EQU X'10' PKYENT EQU X'12' PKYCU EQU X'13' 8 PKYFR EQU X'14' N PKYPROOF EQU X'15' d PKYFP EQU X'16' ~ PKYCANC EQU X'17' PKY30 EQU X'1C' PKYTL EQU X'1D' PKYFDE EQU X'1E' PKYBTAB EQU X'23' P
0x004704…004898 Dummy {f00=0x0003, f01=0x2008, f02=» KYINS EQU X'01' CRUP EQU X'02' 0 !!EN F KPF /S,EQUATE R LST EQUATE h@ z EQUATE-COLLECTION IS TO BE USED WHERE * x 6 1* EVER YOU NEED EQUATES. * 6 1*
0x004898…004a2c Dummy {f00=0x0003, f01=0x0000, f02=»
[…0x1…]
0x004bc0…004d54 (1, 5) Opaque[0x194]
0x004d54…004ee8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x004d54…004ee8 IdxSect {
0x004d54…004ee8 f00 = 0x0003 // 0x4d54 @0x0
0x004d54…004ee8 f01 = 0x0002 // 0x4d56 @0x2
0x004d54…004ee8 gno = [ // 0x4d58 @0x4
0x004d54…004ee8 [0x00]: C0x0003.0x2.0
0x004d54…004ee8 ]
0x004d54…004ee8 }
0x004ee8…00507c Dummy {f00=0x0003, f01=0x018e, f02=» P IDENT CTAB01 80.10.30 NJ P ENTRY CTAB01 & PCTAB01 EQU * < " P DATA FUNC,FUNC,UNSH,SHIFT,0,0 P 4 P*************** FUNCTIONCLUSTER *************** v > PFUNC DATA /0F07,/092F,/0406,/1008,/0201,/1723,/1C0D,/0512 : P DATA /3031,/3233,/3435,
0x00507c…005210 Dummy {f00=0x0003, f01=0x0190, f02=» T > PUNSH DATA /20FF,/FFFF,/FFFF,/FFFF,/FF3C,/FF40,/2C2D,/2EFF : P DATA /3031,/3233,/3435,/3637,/3839,/1212,/FFFF,/FFFF J : P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF < P****
0x005210…0053a4 Dummy {f00=0x0003, f01=0x40c2, f02=»1,/2223,/2425,/262F,/2829,/1212,/FFFF,/FFFF : P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 4 : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2AFF r P END @ : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF < P****
0x0053a4…005538 Dummy {f00=0x0003, f01=0x2008, f02=» NT CTAB01 80.10.15 NJ ENTRY CTAB01 & CTAB01 EQU * < " DATA FUNC,FUNC,UNSH,SHIFT,0,0 P < 8*************** FUNCTIONCLUSTER, UNSHIFT *************** v , (/0F07,092F,0406,1008,0201,1723,1C0D,0512 @
0x005538…0056cc Dummy {f00=0x0003, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED LKMAL r !!DL 016 !!DL 017 !!DL 019 !!DL 022 !!DL 023 !!DL 024 !!DL 025 !!DL 026 !!DL
0x0056cc…005860 Dummy {f00=0x0003, f01=0x0190, f02=» DATA 00 !!DL 045 !!DL 046 ( !!DL 047 8 !!DL 048 H !!DL 049 X !!DL 050 h !!DL 051 x !!EN ASM /S KPF /O KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S
0x005860…0059f4 (1, 6) Opaque[0x194]
0x0059f4…005b88 # DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x0059f4…005b88 IdxSect {
0x0059f4…005b88 f00 = 0x0001 // 0x59f4 @0x0
0x0059f4…005b88 f01 = 0x0004 // 0x59f6 @0x2
0x0059f4…005b88 gno = [ // 0x59f8 @0x4
0x0059f4…005b88 [0x00]: C0x0001.0x0.0
0x0059f4…005b88 [0x01]: C0x0006.0x0.0
0x0059f4…005b88 ]
0x0059f4…005b88 }
0x005b88…005d1c Dummy {f00=0x0001, f01=0x0190, f02=» P IDENT TEST P DDUM NJDDIV P PDIV , P ENTRY TEST : P ENTRY PRTLN N P ENTRY DCSEND b P EXPROC PUSH,PBIN x P EXPROC PULL,PBIN P EXPROC ATTPCK,PSTRG,PBIN P EXPROC ATTUNP,PSTRG,PBIN P EXPROC BDE P EXP
0x005d1c…005eb0 Dummy {f00=0x0001, f01=0x0190, f02=» v P EXPROC POSCUR,PBIN,PBIN P EXPROC LEAD,PBIN ( P EXPROC SCWRIT,PSTRG,PBIN B P EXPROC SCRWR,PSTRG,PBIN d P EXPROC ERWRIT,PSTRG " P EXPROC FINDLN,PSTRG,PBIN,PBIN P EXPROC UNPCK P EXPROC ERASUP P EXPROC LOLITE P
0x005eb0…006044 Dummy {f00=0x0001, f01=0x0190, f02=»CRNEAR,PBIN P EJECT P INCLUDE KTABBE,LIST " P EJECT > P INCLUDE EQUATE,LIST L P EJECT h PPRTLN PROC STR v P PSTRG STR P WRITE DSGP,STR P RET P PEND P P PDCSEND PROC STRG P PSTRG STRG
0x006044…0061d8 Dummy {f00=0x0001, f01=0x018e, f02=»SCRBUF,TBIN2,TBIN1,TSTR2,CBIN0,CBIN2 P BNOK DCS010 , P MOVE TSTR2,ETX <ETX>!<ETX> @ * P XCOPY TSCRBUF,TBIN2,CBIN2,TSTR2,CBIN0 d PDCS010 P PERF PULL,CBIN1 P CMP CBIN0,CBIN0 P RET P PEND P P PTEST PROC
0x0061d8…00636c Dummy {f00=0x0001, f01=0x0190, f02=» P MOVE TP1,CBIN0 P MOVE TKBBUF,=X'4142434403' " P PERF FINDLN,TKBBUF,TP1,CBIN17 D P* j P MOVE TSTR1,=X'FF' t P PERF ATTUNP,TSTR1,CBIN0 P CLEAR TARITJUS P PERF ATTPCK,TSTR1,CBIN0 P* P MOVE TCURPOS,=X'1750'
0x00636c…006500 Dummy {f00=0x0001, f01=0x0190, f02=»C r P* P MOVE TSCBUF,='*' P PERF SCRWR,TSCBUF,CBIN80 . P* P P MOVE TSCBUF,='!' Z , P PERF SCWRIT,TSCBUF,CBIN128,CBIN12,CBIN1 t P* P PERF ERWRIT,TSCBUF * P MOVE TSCBUF,='ERRORLINE IS LINE 23 ' P PERF ERWRIT,TSC
0x006500…006694 (1, 7) Dummy {f00=0x0006, f01=0x0190, f02=»NL P PERF CRNL P PERF CRNL P PERF CRNL . P* @ P PERF CRDOWN J P PERF CRHOME ^ P PERF CRDOWN r P PERF CRDOWN P PERF CRDOWN P PERF CRDOWN P* P PERF CRUP P PERF CRUP P PERF CRUP P PERF
0x006694…006828 Dummy {f00=0x0006, f01=0x0190, f02=» P* P PERF CRBTAB P PERF CRBTAB " P PERF CRBTAB 6 P PERF CRBTAB J P PERF CRBTAB ^ P* r P MOVE TBIN5,=X'0A01' | P MOVE TBIN6,=X'0A16' P MOVE TBIN1,=X'0A07' P PERF CRNEAR,CBIN1 P* P MOVE TBIN1,=X'0A13'
0x006828…0069bc Dummy {f00=0x0006, f01=0x0190, f02=»KB,TKBBUF,KTABBE,TP1,TP2 P* P MOVE TSTR2K,ETX * P MOVE TKBBUF,='0002 01' B , P XCOPY TSTR2K,CBIN0,CBIN12,TKBBUF,CBIN0 f P MOVE TSTR4,=X'11121111' * P XCOPY TSTR2K,CBIN12,CBIN4,TSTR4,CBIN0 2 P MOVE TKBBUF,=X'1B2020624142431B2420
0x0069bc…006b50 Dummy {f00=0x0006, f01=0x0190, f02=» , P XCOPY TSTR2K,TBIN1,CBIN16,TKBBUF,CBIN0 P PERF UNPCK 4 P* H P PERF LOLITE R P* f P PERF ERASUP p P* , P MOVE TSTR80,=X'3132333412313233343536' , P XCOPY TSCRBUF,CBIN0,CBIN12,TSTR80,CBIN0 . P MOVE TSTR80,=X'3712121231
0x006b50…006ce4 Dummy {f00=0x0006, f01=0x0190, f02=»=W'24' , P XCOPY TSCRBUF,TBIN1,CBIN12,TSTR80,CBIN0 P PERF UNPPRT,TSCRBUF > P* Z PTEST2 d P PERF POSCUR,CBIN1,CBIN1 r P MOVE LENGTH,CBIN12 ( P PERF KBREAD,LENGTH,KTABBE,TP1,CBIN2 P MOVE TBCD4,LENGTH P EDWRT DSDY,KBFMT
0x006ce4…006e78 Dummy {f00=0x0006, f01=0x40e6, f02=»ET P PEND P P P ( PKBFMT FRMT 0 P FNL B P FNL N P FCOPY TKBBUF Z P FILLR ' ',2 p P FMEL '999',TBCD4 P FILLR ' ',40 P FILLR '.',1 P FMEND P END @ LENGTH P EDWRT DSDY,KBFMT
0x006e78…00700c Dummy {f00=0x0006, f01=0x2008, f02=» NT TEST DDUM NJDDIV PDIV ,@ : DDUM NJDDIV B PDIV V ENTRY ENQTST d ENTRY TEST z EXT BDE EXT ENQ EXT UNPPRT EXT KBREAD EXT EXPAND EXT POSCUR EXT CPCOM
0x00700c…0071a0 Dummy {f00=0x0006, f01=0x0190, f02=» = <= < < = Z 2= jL4 G 4 jL4 N 4 KL HSjH F jH A dK H KR2jE K !E: A5 < < < < = I4 *4 ? W IZ W IY W @5 W @5 4 1 2 3 D%h 23D T1jF 2 I(j 2 I jE F @E 4@ 4 U d 24I 24 3 32_: 4 2 1 jD 1 D" D! < 1
0x0071a0…007334 (1, 8) Opaque[0x194]
0x007334…0074c8 # DirEnt {nam=»CTAB99«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x007334…0074c8 IdxSect {
0x007334…0074c8 f00 = 0x0004 // 0x7334 @0x0
0x007334…0074c8 f01 = 0x0002 // 0x7336 @0x2
0x007334…0074c8 gno = [ // 0x7338 @0x4
0x007334…0074c8 [0x00]: C0x0004.0x1.0
0x007334…0074c8 ]
0x007334…0074c8 }
0x0074c8…00765c Dummy {f00=0x0004, f01=0x0190, f02=» " P IDENT CTAB99 CTAB FOR CREBUG P ENTRY CTAB99 * PCTAB99 EQU * @ P DATA 0,0,UNSH,SHIFT,0,0 T > PUNSH DATA /20FE,/FEFE,/FEFE,/FEFE,/FEFE,/FE2B,/2C2F,/2EFE t : P DATA /3031,/3233,/3435,/3637,/3839,/0DFE,/FE3E,/FEFE : P DATA /3D41,/4243,/4
0x00765c…0077f0 Dummy {f00=0x0004, f01=0x40ec, f02=»FE,/FEFE,/FE3F,/3B3F,/3AFE p : P DATA /3D21,/2223,/2425,/2627,/2829,/0AFE,/FE3C,/FEFE " : P DATA /2B41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F ` : P DATA /5051,/5253,/5455,/5657,/5859,/5A22,/3A5D,/7CFE P END @ : P DATA /3D41,/4243,/4
0x0077f0…007984 Dummy {f00=0x0004, f01=0x2008, f02=» ,/F33F,/3B3F,/3AFE p : 5 DATA /3D21,/2223,/2425,/2627,/2829,/0AFE,/FE3C,/FEFE " : 5 DATA /2B41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F ` : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A22,/3A5D,/7CFE END @ : 5 DATA /3D41,/4243,/4
0x007984…007b18 Dummy {f00=0x0004, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED DVTKB 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!CH $$DVTKB$$DVKB00$$ !!CH $$KBAD$$KBAD3$$ !!CH $$/1111$$/1100$$ !!CH $$BCA$$04FF$$
0x007b18…007cac Dummy {f00=0x0004, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED DVTGP > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ P ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ | !!CH $$DVTGP$$DVGP00$$ !!CH $$/1111$$/2000$$ !!EN ASM /S KPF /O
0x007cac…007e40 Dummy {f00=0x0004, f01=0x0190, f02=»!!CH $$DVTDY$$DVDY00$$ !!CH $$/ABC$$/1850$$ !!CH $$/1111$$/C000$$ : !!EN X ASM /S d KPF /O r KPF /S SCR LED DVTKB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH
0x007e40…007fd4 (1, 9) Opaque[0x194]
0x007fd4…008168 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x007fd4…008168 IdxSect {
0x007fd4…008168 f00 = 0x0004 // 0x7fd4 @0x0
0x007fd4…008168 f01 = 0x0002 // 0x7fd6 @0x2
0x007fd4…008168 gno = [ // 0x7fd8 @0x4
0x007fd4…008168 [0x00]: C0x0004.0x2.0
0x007fd4…008168 ]
0x007fd4…008168 }
0x008168…0082fc Dummy {f00=0x0004, f01=0x0048, f02=» TRA KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x0082fc…008490 Dummy {f00=0x0004, f01=0x2008, f02=» KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x008490…008624 Dummy {f00=0x0004, f01=0x0190, f02=» > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT F < P* INS - INSERT - INSERT ONE CHARTACTER AT CURSORPOS > P* DEL - DELETE - DELETE ONE CHARACTER FROM CURSORPOS F
0x008624…0087b8 Dummy {f00=0x0004, f01=0x0190, f02=»IN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 F P* TBIN4 - ORIG. LENGTH n P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH $ P* TBIN8 - TOTAL LENGTH OF INPUT
0x0087b8…00894c Dummy {f00=0x0004, f01=0x0190, f02=»2,LEN P MOVE TSTR80,=X'00' 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED * P MOVE TBIN3,CBIN0 ` P MOVE TBIN8,CBIN0 z * P CLEAR TCURMOV NO CURSORMOVEMENTS YET PKBR015 P MOVE TBIN6,TBIN2 PKBR017 P MOVE TKBBUF,='+
0x00894c…008ae0 Dummy {f00=0x0004, f01=0x0190, f02=» MOVE TBIN1,TBIN2 RESTLENGTH & P ADD TBIN1,CBIN1 ALLOW FOR EOI-KEY $ " P KI DSKB,TKBBUF,TAB,TBIN1,INX N & P BOK KBR040 KEYLOCK OR TERM. CHAR. t , P* A CHAR NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT P* SIZE OF BUFFER IS REACHE
0x008ae0…008c74 (1, 10) Opaque[0x194]
0x008c74…008e08 # DirEnt {nam=»CURSOR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x008c74…008e08 IdxSect {
0x008c74…008e08 f00 = 0x0011 // 0x8c74 @0x0
0x008c74…008e08 f01 = 0x000a // 0x8c76 @0x2
0x008c74…008e08 gno = [ // 0x8c78 @0x4
0x008c74…008e08 [0x00]: C0x0011.0x1.0
0x008c74…008e08 [0x01]: C0x0011.0x3.0
0x008c74…008e08 [0x02]: C0x0012.0x3.0
0x008c74…008e08 [0x03]: C0x0013.0x0.0
0x008c74…008e08 [0x04]: C0x0013.0x1.0
0x008c74…008e08 ]
0x008c74…008e08 }
0x008e08…008f9c Dummy {f00=0x0011, f01=0x0190, f02=» P IDENT CURSOR 80.10.29 NJ P DDUM NJDDIV & P : P B P J P R P Z 8 P* THIS MODULE CONTAINS ALL CURSOR CONTROL ROUTINES: b P* BACKWARD TABULATION P* FORWARD TABULATION P* UP P* DOWN P* HOME P* NEWLIN
0x008f9c…009130 Dummy {f00=0x0011, f01=0x0190, f02=»ON THE CURSOR ACCORDING TO ROW AND COLUMN | P 2 P : P B 2 P* THROUGHOUT THE MODULE THE PHRASES "R/C" AND J P* "RRCC" ARE USED. 4 P* THEY MEAN "ROW/COLUMN", WHICH IS THE ADRESSING P* LOGARITHM FOR THE CURSOR P PDIV P ENTRY
0x009130…0092c4 Dummy {f00=0x0011, f01=0x0190, f02=» P ENTRY POSCUR P EXPROC PUSH,PBIN P EXPROC PULL,PBIN 8 P R P Z P b P INCLUDE EQUATE j P EJECT PPOSCUR PROC ROW,COL P PBIN ROW,COL P* 0 P* POSITION THE CURSOR ANYWHERE ON THE SCREEN " P* AS D
0x0092c4…009458 Dummy {f00=0x0011, f01=0x0190, f02=» MOVE TCURPOS,CBIN0 P MOVE TBIN1,ROW < P XCOPY TCURPOS,CBIN0,CBIN1,TBIN1,CBIN1 FORMAT NOW: RR00 4 & P ADD TCURPOS,COL RRCC t P DSC1 DSDY,POS,TCURPOS P PERF PULL,CBIN1 P RET P PEND P EJECT PCRHOME PROC
0x009458…0095ec Dummy {f00=0x0011, f01=0x0190, f02=» TPOINTER - POINTING SOMEWHERE IN BUFFER P* 2 $ P* FIELD CONTENTS ON NORMAL EXIT < 2 P* TPOINTER - POINTS TO FIRST ATTRIBUTECHAR d @ P* TCURPOS - POINTS TO FIRST UNPROTECTED FIELD ON SCREEN P* " P* FIELD CONTENTS ON ERROR EXIT
0x0095ec…009780 Dummy {f00=0x0011, f01=0x0190, f02=»E OLD POINTER x & P MOVE TPOINTER,CBIN0 RESET POINTER P MOVE TBIN2,=W'84' @ 2 P MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 Z " P FIND FIRST FIELDDEFINITION P BNOK CRH095 * P ADD TPOINTER,CBIN1 POINT TO FIRST R/C 0 P XCOPY TCURPOS,C
0x009780…009914 (1, 11) Dummy {f00=0x0011, f01=0x0190, f02=»RH099 PCRH095 , P MOVE TPOINTER,TBIN1 RESTORE OLD POINTER PCRH099 L P PERF PULL,CBIN2 Z P RET r P PEND ~ P EJECT PCRNL PROC P* , P* THE PROCEDURE MOVES THE CURSOR TO THE 4 P* FIRST UNPROTECTED FIELD ON THE F
0x009914…009aa8 Dummy {f00=0x0011, f01=0x0190, f02=»* PREREQUISITS 0 P* TPOINTER - POINTS SOMEWHERE IN TSCRBUF P* J " P* FIEL CONTENTS ON NORMAL EXIT T 0 P* TPOINTER - POINTS TO AN ATTRIBUTECHAR z 2 P* TCURPOS - POINTS TO AN UNPROTECTED FIELD P* P* P PERF PUSH,CBIN6
0x009aa8…009c3c Dummy {f00=0x0011, f01=0x0190, f02=»RRENT ROW P MOVE TBIN5,CBIN0 PCRN020 , P MOVE TBIN4,=W'84' : 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 T & P BNOK CRN095 CURRENT FIELD IS LAST P ADD TPOINTER,CBIN1 . P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER , P CBE T
0x009c3c…009dd0 Dummy {f00=0x0011, f01=0x0190, f02=» DID WE FIND A HIGHER ROW? x 0 P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER " P IF SO, MOVE NEW R/C V * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE t * P DSC1 DSDY,POS,TCURPOS POSITION CURSOR P B CRN099 PCRN095 , P MOVE TPOINTER,TBIN3 RES
0x009dd0…009f64 Dummy {f00=0x0011, f01=0x0190, f02=»E PROCEDURE MOVES THE CURSOR ONE LINE DOWN, 8 P* PREFERABLY IN THE SAME POSITION. IF NO UNPROTECTED 4 : P* FIELDS ARE FOUND IN THIS LINE, THE NEXT LINE WILL BE p P* TRIED, ETC.. > P* IF THE CURRENT LINE IS THE LAST ONE, NOTHING WILL HAPPEN P*
0x009f64…00a0f8 Dummy {f00=0x0011, f01=0x018e, f02=»RGET, THE IDEAL POSITION ~ P* P* PREREQUISITS * 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF @ P* v P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL P* " P* FIELD CONTENTS ON ERROR EXIT P* TCURPOS - NOT CHAN
0x00a0f8…00a28c Dummy {f00=0x0011, f01=0x0190, f02=» 0 P MOVE TBIN2,TCURPOS SAVE OLD CURSORPOSITION 2 P ADD TBIN2,=X'0100' IDEAL POSITION (= +1 LINE) 8 PCRD020 n P MOVE TBIN1,TBIN2 | P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 ( P BNOK CRD095 NOTHING BELOW, NO MOV
0x00a28c…00a420 Dummy {f00=0x0011, f01=0x018e, f02=» XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE ROW 0 P CBL TBIN5,TBIN2,CRD020 STILL ON SAME LINE ? < P B CRD035 p PCRD030 P MOVE TBIN4,=W'84' > P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 NEXT FIELD P BNOK CRD095 " P ADD TPO
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0012, f01=0x0190, f02=» f 8 P XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C * P CBNG TBIN1,TBIN6,CRD040 FOUND R/C(R) D , P MOVE TBIN5,TBIN6 PREPARE FOR NEXT TEST r P B CRD030 PCRD040 ( P CBE TBIN5,TBIN1,CRD050 TAKE R/C(L) ( P CBE TBIN6,TBIN1,CRD060 TA
0x00a5b4…00a748 Dummy {f00=0x0012, f01=0x0190, f02=»CT n P B CRD070 PCRD060 * P MOVE TCURPOS,TBIN6 RIGHT WAS PERFECT * PCRD070 X ( P ADD TBIN3,CBIN2 POINT AT ATTRIBUTE f P DSC1 DSDY,POS,TCURPOS P B CRD099 PCRD095 , P MOVE TPOINTER,TBIN3 RESTORE OLD POINTER PCRD099
0x00a748…00a8dc Dummy {f00=0x0012, f01=0x0190, f02=»THE FIELD l 2 P* JUST AFTER THE CURRENT FIELD. IF THE CURRENT 0 P* FIELD IS THE LAST ONE, NOTHING WILL HAPPEN H P* | P* PREREQUISITS 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF P* P* FIELD CONTENTS ON EXIT P* TCURPO
0x00a8dc…00aa70 Dummy {f00=0x0012, f01=0x0190, f02=» P* P PERF PUSH,CBIN2 * P MOVE TBIN1,TPOINTER SAVE OLD POINTER & , P MOVE TBIN2,=W'84' SET LENGTH FOR MATCH T 2 P MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 P FIND NEXT FIELD , P BNOK CRFT090 CURRENT FIELD WAS LAST ONE P ADD
0x00aa70…00ac04 Dummy {f00=0x0012, f01=0x0190, f02=»,CBIN0,CBIN2,TSCRBUF,TPOINTER P MOVE R/C & P DSC1 DSDY,POS,TCURPOS : * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE X P B CRFT095 FINISHED PCRFT090 2 P MOVE TPOINTER,TBIN1 REESTABLISH PREV POINTER PCRFT095 P PERF PULL,CBIN2
0x00ac04…00ad98 Dummy {f00=0x0012, f01=0x0190, f02=»ST BEFORE THE CURRENT FIELD. IF THE CURRENT 2 P* FIELD IS THE FIRST ONE, NOTHING WILL HAPPEN. 4 P* j P* PREREQUISITS t 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF P* P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL
0x00ad98…00af2c Dummy {f00=0x0012, f01=0x0190, f02=»F PUSH,CBIN6 P * P MOVE TBIN3,TPOINTER SAVE OLD POINTER P MOVE TBIN5,TCURPOS J * P MOVE TPOINTER,CBIN0 STARTING ADDRESS f PCRBT010 P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 P BNOK CRBT020
0x00af2c…00b0c0 Dummy {f00=0x0012, f01=0x0190, f02=»NEW R/C : P CBNE TBIN5,TCURPOS,CRBT010 NOT YET FOUND CURRENT POS 2 P MOVE TCURPOS,TBIN6 REPOSITION ON PREVIOUS R/C N P DSC1 DSDY,POS,TCURPOS P MOVE TPOINTER,TBIN2 * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE P B CRBT095 PCRBT020
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0013, f01=0x018e, f02=»UP PROC P* 0 P* THE PROCEDURE MOVES THE CURSOR UP ONE LINE 0 P* IF THERE ARE NO UNPROTECTED FIELDS ON THE N ( P* LINE, THE MOVEMENT WILL CONTINUE. 0 P* ONCE IT HAS FOUND A LINE WITH UNPROTECTED 2 P* FIELDS, THE CURSOR WILL BE POSITIONE
0x00b254…00b3e8 Dummy {f00=0x0013, f01=0x0190, f02=» P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL ( P* H " P* FIELD CONTENTS ON ERROR EXIT R P* TCURPOS - NOT CHANGED x P* TPOINTER - NOT CHANGED P* P* OTHER FIELDS USED P* TSTR1 P* P PER
0x00b3e8…00b57c Dummy {f00=0x0013, f01=0x0190, f02=» MOVE TBIN2,TBIN1 $ P MOVE TSTR1,=X'51' DUMMY POS 81 B P XCOPY TBIN2,CBIN1,CBIN1,TSTR1,CBIN0 TBIN2 IS NOW THE LIMIT B P MOVE TPOINTER,CBIN0 P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 P BNOK CRU095 P
0x00b57c…00b710 Dummy {f00=0x0013, f01=0x018e, f02=»OVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 ( P BNOK CRU020 ONLY ONE FIELD, TAKE IT N P ADD TPOINTER,CBIN1 z P MOVE TBIN7,TPOINTER : P XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TBIN3 SAVE 2. R/C 4 P CBL TBIN2,TBIN6,CRU020
0x00b710…00b8a4 Dummy {f00=0x0013, f01=0x0190, f02=» ^ ( P MOVE TBIN6,TBIN5 NO PLACE FOUND YET P MOVE TBIN5,=W'2048' 4 P B CRU010 P PCRU020 TAKE LEFT R/C b P MOVE TCURPOS,TBIN5 P B CRU090 PCRU030 TAKE RIGHT R/C P MOVE TCURPOS,TBIN6 P B CRU090 PCRU040 (
0x00b8a4…00ba38 Dummy {f00=0x0013, f01=0x018e, f02=»U095 P MOVE TPOINTER,TBIN3 PCRU100 ( P DSC1 DSDY,POS,TCURPOS 6 P PERF PULL,CBIN8 T P RET l P PEND x P EJECT PCRNEAR PROC P P PBIN P P* 8 P* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD 6 P* AS DEF
0x00ba38…00bbcc Dummy {f00=0x0013, f01=0x0190, f02=» v P* P* REL. POS := (RR*80) + CC P* 4 P* R/C(L) IN TBIN5 > P* R/C(R) IN TBIN6 X P* R/C(T) IN TBIN1 r P* P PERF PUSH,CBIN8 P MOVE TBIN3,CBIN0 P MOVE TBIN7,CBIN0 6 P XCOPY TBIN3,CBIN1,CBIN1,TBIN5,CBIN0 E
0x00bbcc…00bd60 Dummy {f00=0x0013, f01=0x018e, f02=»BIN1,NEA080 AND 'CRUP' TAKE R/C(R) P B NEA070 ELSE R/C(L) * PNEA010 H P* V 8 P* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD ` 6 P* AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS . P* THE LEFTMOST, AND R/C(R) THE RIGHTMOST. P
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0013, f01=0x018e, f02=» P MOVE TBIN4,CBIN0 ( P XCOPY TBIN4,CBIN1,CBIN1,TBIN5,CBIN1 " P MUL TBIN3,CBIN80 N ( P ADD TBIN3,TBIN4 REL. POS FOR R/C(L) h P MOVE TBIN8,CBIN0 ( P XCOPY TBIN8,CBIN1,CBIN1,TBIN6,CBIN1 P MUL TBIN7,CBIN80 ( P ADD TBIN7,TBIN8 REL
0x00bef4…00c088 Dummy {f00=0x0013, f01=0x0190, f02=» P MUL TBIN4,CBIN80 ( P ADD TBIN4,TBIN8 REL. POS FOR R/C(T) P* TBIN1 - R/C(T) J P* TBIN3 - REL (L) b P* TBIN4 - REL (T) | P* TBIN5 - R/C(L) P* TBIN6 - R/C(R) P* TBIN7 - REL(R) ( P MOVE TBIN2,TBIN3 FIND THE POSITION $
0x00c088…00c21c Dummy {f00=0x0013, f01=0x40c0, f02=» P MOVE TCURPOS,TBIN5 USE (L) P B NEA090 , PNEA080 > P MOVE TCURPOS,TBIN6 USE (R) L PNEA090 p P PERF PULL,CBIN8 ~ P RET P PEND P END @ P* TBIN7 - REL(R) ( P MOVE TBIN2,TBIN3 FIND THE POSITION $
0x00c21c…00c3b0 Dummy {f00=0x0013, f01=0x2008, f02=» ! TS AT THE FIRST NON-DC CHARACTER, WHICH ( P* MEANS: HERE BEGINS OUR DATA FIELD. 8 0 P* BUT FIRST WE HAVE TO EXECUTE THE FUNCTIONS d " P* AS SPECIFIED BY THE DC-CHARS P P MOVE TCURPOS,=X'0101' $ P TBF TDC2,UNP021 DC2 SPECIFIED?
0x00c3b0…00c544 Dummy {f00=0x0013, f01=0x0190, f02=» < _ 4 9 1 j9 1 9 0 9 4 1: : 2 hL:2! T : j9 L:0 9 : W :1 4 3: 6 j6 9 5 4 hL:4! T' : jD L: D! j5 L: 56#j9 L: : 0 9W :3 4 3: 29 2 j2 12 4 hL:4! T` : jD L: D!Sj5 L: 52& 4 hL:4! T= : jD L: D!0j6 L:*16 56_( 51 61
0x00c544…00c6d8 Dummy {f00=0x0013, f01=0x0190, f02=» : 65j5 L: 59 960 9 :6 : W :3 4 19 3: 1 21 D%j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 9 4 3 7 j3 5 j7 6 37 DW= 4 j4 5 3 34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 4 1
0x00c6d8…00c86c Dummy {f00=0x0013, f01=0x0190, f02=» 4 2 I N 3 8 @60 N 2 P 42 W W 5 Q A665 *Oq W 1 N 1 P jI31N 81 31 3 21 2 _V 3 2 _^ 38b 1 P jI31N 31 3 21 2 _{ 3 2 _ dI3 D J, 78 73jJ 7I3 7 0 J7 2 _ fI3 J, 78 73jJ 7I3 7 0 J7 2 3 _ 0 90 40 9_ H6 jI31N NI 31 3 21
0x00c86c…00ca00 Dummy {f00=0x0013, f01=0x0190, f02=» 4 < = <=0 M E(dM E 0 M 4 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 3 E!j5 E jD L3 3 j9 L3 953 3 43 3 <
0x00ca00…00cb94 (1, 15) Opaque[0x194]
0x00cb94…00cd28 # DirEnt {nam=»BDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x00cb94…00cd28 IdxSect {
0x00cb94…00cd28 f00 = 0x0007 // 0xcb94 @0x0
0x00cb94…00cd28 f01 = 0x0004 // 0xcb96 @0x2
0x00cb94…00cd28 gno = [ // 0xcb98 @0x4
0x00cb94…00cd28 [0x00]: C0x0007.0x2.0
0x00cb94…00cd28 [0x01]: C0x0009.0x2.0
0x00cb94…00cd28 ]
0x00cb94…00cd28 }
0x00cd28…00cebc Dummy {f00=0x0007, f01=0x0190, f02=» P IDENT BDE 80.10.09 NJ P DDUM NJDDIV " P 6 P > P F P N P V P ^ " P* THE MODULE TAKES CARE OF THE f P* BASIC DATA ENTRY * P* FUNCTION OF BARCLAYS TERMINAL SYSTEM P PDIV P ENTRY BDE P EXPROC DCSEND,PSTRG
0x00cebc…00d050 Dummy {f00=0x0007, f01=0x0190, f02=»OC P* 0 P* PROCEDURE FOR PROCESSING BASIC DATA ENTRY P* H * P* THIS PROCEDURE IS CALLED UPON VALID R " P* DEPRESSION OF THE <BDE> KEY. P* 8 P* FIRST STEP TO BE TAKEN: TRANSMIT A SESSION HEADER P* P MOVE TSTR20,='000
0x00d050…00d1e4 Dummy {f00=0x0007, f01=0x0190, f02=» XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID , P MOVE TSCRBUF,ETX CLEAR BUFFER WITH ETX > , P XCOPY TSCRBUF,CBIN0,CBIN15,TSTR20,CBIN0 n , P PERF DCSEND,TSCRBUF SEND SESSION HEADER P BERR BDE099 ERROR, GET BACK P* 8 P* NOW THE ME
0x00d1e4…00d378 Dummy {f00=0x0007, f01=0x0190, f02=»WE ARE READY FOR INPUT P* & P PERF BDEINP INPUTROUTINE FOR BDE ( P BERR BDE099 R . P CBE TBIN1,CBIN4,BDE090 FR-KEY DEPRESSED ? f ( P MOVE TSTR20,='00020 ' NETWORKHEADER 8 P XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH @ P XCOPY T
0x00d378…00d50c Dummy {f00=0x0007, f01=0x40fc, f02=»BIN0,CBIN17,TSTR20,CBIN0 PUT IN FRONT OF DATA P PERF DCSEND,TSCRBUF 6 P BERR BDE099 R P B BDE010 NEW ROUND f PBDE090 P CLEAR VAR. FLAGS P CMP CBIN0,CBIN0 PBDE099 P RET P PEND P END @ @ P XCOPY T
0x00d50c…00d6a0 Dummy {f00=0x0007, f01=0x2008, f02=» NT BDE 80.10.09 NJ @ "# & 0 ( > ! D 7 3 _ 4 D J l@ ~ ~ 07 $ N & BRANCH $ & ACC
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0009, f01=0x0190, f02=» q % q & q & q & , & < & L & J F " D = Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K= Z 2= RRR & l & 00030 01 & 4 & @ 99 & J F
0x00d834…00d9c8 Dummy {f00=0x0009, f01=0x000a, f02=» 0 x h
0x00d9c8…00db5c Dummy {f00=0x0009, f01=0x40a0, f02=» IDENT S:GTAB S:GTAB " S:GTAB 4 P:MTAB H P:END Z CR j @ T:FMT P:END @ H K N Q
0x00db5c…00dcf0 Dummy {f00=0x0009, f01=0x417e, f02=» . H IDENT T:AK00 TRA 10.0 80-11-06 F1 O1111 T:AK00 6 T:AK00A J H > : T:DK00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 D:TB20A Z:TB20A * & 0 * & P d
0x00dcf0…00de84 Dummy {f00=0x0009, f01=0x40c4, f02=» . H IDENT T:DK00 TRA 10.0 80-11-06 F1 O1111 T:DK00 6 T:DK00D H KBGO0 * & K0 0 * * l @ * & P d
0x00de84…00e018 Dummy {f00=0x0009, f01=0x409a, f02=» . H IDENT T:ATAB TRA 10.0 80-11-06 F1 O1111 T:ATAB 6 T:ATABA H T:AK00 @ n :A @ @ * & P d
0x00e018…00e1ac Dummy {f00=0x0009, f01=0x4084, f02=» . H IDENT U:BTAB TRA 10.0 80-11-06 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ @ * & P d
0x00e1ac…00e340 Dummy {f00=0x0009, f01=0x4084, f02=» . H IDENT S:BTAB TRA 10.0 80-11-06 F1 O1111 S:BTAB 6 S:BTABB H :B n@ :A @ @ * & P d
0x00e340…00e4d4 (1, 17) Opaque[0x194]
0x00e4d4…00e668 # DirEnt {nam=»BDEINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x000a // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0004 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x000a.0x1.0
0x00e4d4…00e668 [0x01]: C0x000b.0x2.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT BDEINP 80.11.06 NJ P DDUM NJDDIV & P : P B P J P R P Z P b P PDIV j P ENTRY BDEINP x P EXPROC CRHOME " P EXPROC FINDLN,PSTRG,PBIN,PBIN ( P EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN P EXPROC CRFTAB
0x00e7fc…00e990 Dummy {f00=0x000a, f01=0x0190, f02=»N P* P* P INCLUDE EQUATE P* 6 P* @ P INCLUDE KTABBE J P EJECT b PBDEINP PROC p : P* THE PROCEDURE TAKES CARE OF THE INPUTFUNCTION IN BDE P* THIS MEANS: 8 P* 1. SCANNING THE BUFFER FOR A MODIFYABLE FI
0x00e990…00eb24 Dummy {f00=0x000a, f01=0x0190, f02=» DATA IN THE BUFFER v P* P PERF PUSH,CBIN5 & PBDEI000 > * P PERF ERASUP ERASE UNPROTECTED FIELDS N 0 P PERF CRHOME PUT CURSOR ON FIRST INPUTFIELD | ( P BERR BDEI095 NO INPUTFIELDS AT ALL P MOVE TBIN4,CBIN0 PBDEI010 P M
0x00eb24…00ecb8 Dummy {f00=0x000a, f01=0x0190, f02=» b . P ADD TPOINTER,CBIN1 POINT AT DATA (IF ANY) 2 P TBT TARITJUS,BDEI020 BRANCH IF NUMERIC FIELD : & P MOVE TP3,CBIN2 NON-NUMERIC INPUT p P B BDEI030 PBDEI020 " P MOVE TP3,CBIN1 NUMERIC INPUT PBDEI030 & P MOVE TP1,CBIN0 FIND F
0x00ecb8…00ee4c Dummy {f00=0x000a, f01=0x0190, f02=» BDEI035 , P DSC1 DSDY,POS,TCURPOS REPOSITION CURSOR P B BDEI030 AND REREAD @ PBDEI035 ^ P IB TP2, C n P BDEI040, ENT C P BDEI000, CU C P BDEI040, TAB C P BDEI030, FDE C P BDEI030, BDE C P BDEI030, ENQ
0x00ee4c…00efe0 Dummy {f00=0x000a, f01=0x0190, f02=»N0 h 0 P PERF ATTUNP,TSCRBUF,TBIN4 SET MODIFIED BIT P SET TAMODIF IN BUFFER > P PERF ATTPCK,TSCRBUF,TBIN4 - PBDEI042 P PERF CRFTAB FIND NEXT FIELD . P BNOK BDEI090 NOTHING LEFT, INPUT FINISHED P B BDEI010 ONE MORE TIME PBD
0x00efe0…00f174 (1, 18) Dummy {f00=0x000b, f01=0x4042, f02=» PBDEI099 P RET P PEND $ P END 2@ >
0x00f174…00f308 Dummy {f00=0x000b, f01=0x2008, f02=» NT BDEINP 80.10.09 NJ @ &
0x00f308…00f49c Dummy {f00=0x000b, f01=0x0190, f02=» 6 P************************************************** P* > P* KEYTABLE USED FOR BDE/ENQ H P* l * P* THE FIRST 8 KEYS ARE PREDEFINED AND v . P* MUST ALWAYS BE PRESENT IN ANY KEYTABLE. P* 6 P****************************************
0x00f49c…00f630 Dummy {f00=0x000b, f01=0x40c6, f02=»CANC, C P KYENT, C P KYCU, C $ P KYTAB, C 6 P KYFDE, C J P KYBDE, C ^ P KYENQ, C r P KYFR, C P KYTL, C P KYPTR P @ YTABLE. P* 6 P****************************************
0x00f630…00f7c4 Dummy {f00=0x000b, f01=0x2008, f02=» ********************* * & * KEYTABLE USED FOR BDE/ENQ 0 * T ***** ^@ lTR j z R_ @ = $ < V B @ & &
0x00f7c4…00f958 Dummy {f00=0x000b, f01=0x0190, f02=»POS Z F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND P* V $ P* TBIN1 - LENGTH OF CURRENT 'KI' ` F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 P* TBIN4 - ORIG
0x00f958…00faec Dummy {f00=0x000b, f01=0x0190, f02=»TBIN2,LEN P MOVE TSTR80,=X'00' P MOVE BUF,=X'00' . P MOVE TBIN3,CBIN0 F * P CLEAR TCURMOV NO CURSORMOVEMENTS YET ` PKBR015 P KI DSKB,BUF,TAB,TBIN1,INX & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR NEITHER ALPHANUM NOR LI
0x00faec…00fc80 Dummy {f00=0x000b, f01=0x0190, f02=»ED t * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 4 P CBE TBIN1,LEN,KBR030 OVERFLOW: PROCESS AS FTAB 8 PKBR020 p P PERF PULL,8 ~ 0 P CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE P B KBR099 RETURN PKBR030 & P MOVE INX,CBIN14 SIMULATE FT
0x00fc80…00fe14 (1, 19) Opaque[0x194]
0x00fe14…00ffa8 # DirEnt {nam=»ENQ «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x0008 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0006 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x0008.0x3.0
0x00fe14…00ffa8 [0x01]: C0x0009.0x0.0
0x00fe14…00ffa8 [0x02]: C0x000d.0x2.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x0008, f01=0x0190, f02=» P IDENT ENQ 80.11.09 NJ P DDUM NJDDIV " P 6 P > P F P N P V P ^ " P* THE MODULE TAKES CARE OF THE f P* ENQUIRY , P* FUNCTIONS OF BARCLAYS TERMINAL SYSTEM P PDIV P ENTRY ENQ P EXPROC POSCUR,PBIN,PBIN
0x01013c…0102d0 Dummy {f00=0x0008, f01=0x0190, f02=»PPRT,PSTRG P EXPROC ERWRIT,PSTRG P EXPROC PUSH,PBIN 0 P EXPROC PULL,PBIN J P* d P* n P INCLUDE EQUATE x P* P* P INCLUDE KTABBE P EJECT PENQ PROC P* 4 P* ENQ HAS BEEN DEPRESSED AND IT WAS
0x0102d0…010464 Dummy {f00=0x0008, f01=0x018e, f02=»TSCRBUF,ESC FILL WITH ESC 0 P******************************************** " " P* READ 1. INPUTFIELD (BRANCH) V , P* TAKE APPROPRIATE ACTION, DEPENDING ON | $ P* THE END-OF-ITEM KEY DEPRESSED P MOVE TP1,=W'22' P PERF POSCUR,TP1,CBIN10
0x010464…0105f8 Dummy {f00=0x0008, f01=0x0190, f02=» P ENQ012, TAB C P ENQ011, FDE C P ENQ011, BDE C 8 P ENQ011, ENQ C P P ENQ090, FR C h P ENQ011, TL C ~ P ENQ011 PTR PENQ012 P MOVE TBIN4,CBIN0 , P PERF LEAD,CBIN1 CREATE ESC!ROW!COL!ATT * P XCOPY T
0x0105f8…01078c Dummy {f00=0x0008, f01=0x018e, f02=» MOVE KEYED-IN DATA 0 P MOVE TSTR3,TKBBUF SAVE FOR PACKING ROUTINE P ADD TBIN4,CBIN3 R P EJECT j 8 P*************************************************** x $ P* 2. INPUTFIELD (ACCOUNTNUMBER) P MOVE TP1,=W'22' P MOVE TP2,=W'23'
0x01078c…010920 Dummy {f00=0x0008, f01=0x0190, f02=» P ENQ013, ENT C P ENQ011, CU C P ENQ013, TAB C 2 P ENQ011, FDE C J P ENQ011, BDE C b P ENQ011, ENQ C z P ENQ090, FR C P ENQ011, TL C P ENQ011 PTR PENQ013 P PERF LEAD,CBIN1 * P XCOPY TSCRBUF,T
0x010920…010ab4 (1, 20) Dummy {f00=0x0009, f01=0x0190, f02=» 8 P*************************************************** P* 3. INPUTFIELD (TYPE) @ P MOVE TP1,=W'22' ^ P MOVE TP2,=W'40' v P PERF POSCUR,TP1,TP2 P MOVE TP1,CBIN2 & P PERF KBREAD,TP1,KTABBE,TP2,CBIN1 P BERR ENQ010 P IB TP2,
0x010ab4…010c48 Dummy {f00=0x0009, f01=0x018e, f02=»71, ENQ C P ENQ090, FR C P ENQ071, TL C ( P ENQ071 PTR > PENQ014 R P PERF LEAD,CBIN1 ` * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 x P ADD TBIN4,CBIN4 , P XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 P ADD TBIN4,CBIN2 P E
0x010c48…010ddc Dummy {f00=0x0009, f01=0x018e, f02=» P MOVE TP2,=W'53' P PERF POSCUR,TP1,TP2 P MOVE TP1,CBIN2 8 & P PERF KBREAD,TP1,KTABBE,TP2,CBIN1 P P BERR ENQ010 z P IB TP2, C P ENQ015, ENT C P ENQ011, CU C P ENQ015E, TAB C P ENQ090, FDE C P ENQ090
0x010ddc…010f70 Dummy {f00=0x0009, f01=0x0190, f02=» ~ * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 P ADD TBIN4,CBIN4 6 , P XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 N P ADD TBIN4,CBIN2 ~ PENQ015E P EJECT 6 P************************************************* ( P* 5. INPUTFIELD (VOUCHER)
0x010f70…011104 Dummy {f00=0x0009, f01=0x0190, f02=»TABBE,TP2,CBIN2 ~ P BERR ENQ010 P IB TP2, C , P ENQ030, ENT C @ P ENQ011, CU C X P ENQ016E, TAB C n P ENQ090, FDE C P ENQ090, BDE C P ENQ090, ENQ C P ENQ090, FR C P ENQ090, TL C P ENQ090 PTR
0x011104…011298 Dummy {f00=0x0009, f01=0x0190, f02=»BIN12,TKBBUF,CBIN0 z P ADD TBIN4,CBIN12 PENQ016E 4 P EJECT D 8 P*************************************************** R PENQ030 & P* THE BUFFER IS PACKED NOW AND HAS " P* TO BE SENT TO THE MAINFRAME P MOVE TSTR2K,TSCRBUF " P
0x011298…01142c Dummy {f00=0x0009, f01=0x0190, f02=»NALID b , P INSRT TSTR2K,CBIN0,CBIN17,TSTR20,CBIN0 P PERF DCSEND,TSTR2K > P BERR ENQ072 Z P* ANSWER RECEIVED n * P XCOPY TSTR2,CBIN0,CBIN2,TSTR2K,CBIN10 2 P CBE TSTR2,='99',ENQ050 WAS IT FOR THE PRINTER & P SET TENQ ENQ GOING ON, DONT
0x01142c…0115c0 Dummy {f00=0x0009, f01=0x0190, f02=»TP2,CBIN2 x P TBT TINT,ENQ090 6 P CBNG TBIN4,CBIN6,ENQ090 FINISHED WITH INQUIRIES? * P B ENQ010 d $ PENQ050 RECEIVED PRINTER OUTPUT v P PERF UNPPRT P B ENQ090 PENQ071 8 P MOVE TSTR80,='QERR1 - INVALID FUNCTION SELECTION '
0x0115c0…011754 (1, 21) Dummy {f00=0x000d, f01=0x0190, f02=»NQ095 PENQ090 P PERF PULL,CBIN4 P CLEAR TENQ 4 " P CMP CBIN0,CBIN0 SER CR TO OK H P B ENQ099 n PENQ095 P PERF PULL,CBIN4 P CLEAR TENQ & P CMP CBIN0,CBIN1 SET CR TO NOT-OK PENQ099 P RET P PEND
0x011754…0118e8 Dummy {f00=0x000d, f01=0x0190, f02=» P FNL P FILLR ' ',30 P FTEXT 'ENQUIRIES AVAILABLE' * P FNL N P FNL Z P FILLR ' ',15 f P FCOPY ='SAVINGS ' | P FCOPY ='ACCOUNT ' P FCOPY ='BALANCE ' P FILLR ' ',23 P FCOPY ='01' P FNL P FILLR '
0x0118e8…011a7c Dummy {f00=0x000d, f01=0x018e, f02=»COPY ='02' P FNL P FILLR ' ',15 P FCOPY ='CURRENT ' 4 P FCOPY ='ACCOUNT ' N P FCOPY ='BALANCE ' h P FILLR ' ',23 P FCOPY ='03' P FNL P FILLR ' ',15 P FCOPY ='CURRENT ' P FCOPY ='ACCOUNT ' P FCOPY
0x011a7c…011c10 Dummy {f00=0x000d, f01=0x0190, f02=» | P FCOPY ='ACCOUNT ' P FCOPY ='DETAILS ' " P FILLR ' ',23 < P FCOPY ='05' R P FNL f P FILLR ' ',15 r P FCOPY ='CURRENT ' P FCOPY ='ACCOUNT ' P FCOPY ='VOUCHERS ' P FILLR ' ',22 P FCOPY ='06' P FNL
0x011c10…011da4 Dummy {f00=0x000d, f01=0x4104, f02=» 11 P FCOPY =' BRANCH' P FILLR ' ',7 & P FCOPY ='ACC NO' : P FILLR ' ',13 R P FCOPY ='TYPE' h P FILLR ' ',6 ~ P FCOPY ='PRINTER' P FILLR ' ',6 P FCOPY ='VOUCHER' P FNL P FMEND P END @ NL
0x011da4…011f38 Dummy {f00=0x000d, f01=0x2008, f02=» NT ENQ 80.10.09 NJ @ "
0x011f38…0120cc Dummy {f00=0x000d, f01=0x0190, f02=» " $ & ( * , . 0 1 2 3 4 5 6 7 8 9 : < > @ B D F H J L N Q T W [ _ c h n t { * < Q h #
0x0120cc…012260 Dummy {f00=0x000d, f01=0x0190, f02=» ! P ' <H : W !| ! ' &P B V C / <H "!@ < : !| ! C C W ! C C J N ' W 781"&$ 39#$;< '()*+,-! ! "4 ! ' P _D !| B ' 'W !| ( Wb ' ! !| (
0x012260…0123f4 (1, 22) Opaque[0x194]
0x0123f4…012588 # DirEnt {nam=»EXPAND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x0123f4…012588 IdxSect {
0x0123f4…012588 f00 = 0x0002 // 0x123f4 @0x0
0x0123f4…012588 f01 = 0x0004 // 0x123f6 @0x2
0x0123f4…012588 gno = [ // 0x123f8 @0x4
0x0123f4…012588 [0x00]: C0x0002.0x1.0
0x0123f4…012588 [0x01]: C0x0002.0x2.0
0x0123f4…012588 ]
0x0123f4…012588 }
0x012588…01271c Dummy {f00=0x0002, f01=0x0190, f02=» P IDENT EXPAND 80.11.03 NJ P DDUM NJDDIV & P PDIV : P ENTRY EXPAND H P EXPROC PUSH,PBIN ^ P EXPROC PULL,PBIN x P* P* P INCLUDE EQUATE P* P* P EJECT PEXPAND PROC BUF,LEN P PSTRG BUF
0x01271c…0128b0 Dummy {f00=0x0002, f01=0x0190, f02=»WILL BE INSERTED | P* IN THE PROPER PLACES. P* 8 2 P* THE ROUTINE SUPPOSES THAT LESS THEN 3 SPACES B " P* TO BE INSERTED CANNOT OCCUR. x P* P* ALTERED FIELDS: P* TSTR1 - DC3 P* TSTR2 - FIG-FIG P* TSTR3 -
0x0128b0…012a44 Dummy {f00=0x0002, f01=0x0190, f02=»CBIN0 P MOVE TBIN2,CBIN0 P MOVE TBIN3,LEN ( , P MOVE TSTR1,DC3 DC3 - SPACE COMPR BEGIN @ PEXP010 p : P MATCH BUF,TBIN2,TBIN3,TSTR1,CBIN0,CBIN1 FIND ANY DC3 ~ & P BNOK EXP090 SORRY NO MATCH FOUND @ P XCOPY TSTR3,CBIN0,CBIN3,BUF,TBIN2
0x012a44…012bd8 Dummy {f00=0x0002, f01=0x0190, f02=»,CBIN0,CBIN2,TSTR3,CBIN1 . P MOVE TBCD4,TSTR2 HOW MANY SPACES WANTED? P MOVE TBIN4,TBCD4 R * P SUB TBIN4,CBIN3 WE ALREADY INSERTED 3 l * P BNP EXP080 FNISHED IF 3 SPACES WANTED 6 P INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES $ PEXP080
0x012bd8…012d6c Dummy {f00=0x0002, f01=0x406c, f02=»H d P B EXP010 PEXP090 P PERF PULL,CBIN4 * P RET B P PEND N P END @ h SUB TBIN4,CBIN3 WE ALREADY INSERTED 3 l * P BNP EXP080 FNISHED IF 3 SPACES WANTED 6 P INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES $ PEXP080
0x012d6c…012f00 Dummy {f00=0x0002, f01=0x2008, f02=» NT EXPAND 30.10.09 NJ @ &
0x012f00…013094 (1, 23) Dummy {f00=0x0002, f01=0x0190, f02=»TBIN1,=W'80' % P DSC1 DSDY,ERASE,TBIN1 & P MOVE TSTR4,=X'2B2B07' BELL & 2 * P INSRT TSTR80,CBIN0,CBIN3,TSTR4,CBIN0 & V P WRITE DSDY,TSTR80,CBIN8 & P* NOW WAIT FOR THE ANSWER & P PERF POSCUR,=W'23',=W'80' & 2 P PERF KBREAD,TKBBUF,TBIN1,KTABEN
0x013094…013228 Dummy {f00=0x0002, f01=0x0190, f02=»IS THE BUFFER RECEIVED & p * P* FROM THE MAINFRAM) IS TOBE UNPACKED ' . P* INTO THE TERMINALS LOGICAL SCREEN AREA. ' L , P* ONLY THE UNPROTECTED FIELDS ARE SAVED ' ~ 6 P* ALL RECEIVED FIELDS ARE DISPLAYED ON THE SCREEN ' P ' P MOVE TSTR4,TSTR2K ' :
0x013228…0133bc Dummy {f00=0x0002, f01=0x018e, f02=» ' P CLEAR TDC2 ( P CLEAR TDC3 ( P CLEAR TDC4 ( 0 P MOVE TBIN2,CBIN0 ( D P MOVE TBIN1,CBIN12 ( ^ PUNP010 ( x * P XCOPY TBIN2,CBIN1,CBIN1,TSTR2K,TBIN1 ( P SUB TBIN2,CBIN10 ( * P IB TBIN2,UNP011,UNP012,UNP013,UNP014 ( P B UNP020 NO
0x0133bc…013550 Dummy {f00=0x0002, f01=0x0190, f02=» P SET TDC3 ) P B UNP015 ) PUNP014 ) ( P SET TDC4 ) 6 PUNP015 ) H P ADD TBIN5,CBIN1 MORE LEFT? ) V P B UNP010 ) z PUNP020 ) < P* NOW TBIN1 POINTS AT THE FIRST NON-DC CHARACTER, WHICH ) ( P* MEANS: HERE BEGINS OUR DATA FIELD. ) 0 P*
0x013550…0136e4 Dummy {f00=0x0002, f01=0x0190, f02=»UNP021 DC2 SPECIFIED? ) " P CLEAR TDC3 YES, OVERRIDE DC3 * PUNP021 * D " P TBF TDC1,UNP022 SOUND ALARM ? * R P MOVE TSTR4,=X'2B2B07' BEEP * x P WRITE DSDY,TSTR4,CBIN4 * PUNP022 * $ P TBF TDC2,UNP024 CLEAR SCREEN ? * * P MOVE TBIN1,=X'1601' S
0x0136e4…013878 Dummy {f00=0x0002, f01=0x0190, f02=»DSDY,ERASE,TBIN2 ERASE LINE * , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE + $ : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD ERASE LINE 0 + T PUNP024 + $ P TBF TDC3,UNP025 DC3 SPECIFIED? + P CLEAR ALL UNPROTECTED + P AND RESET MODIFIED DATA +
0x013878…013a0c Dummy {f00=0x0002, f01=0x0190, f02=»TX,UNP025 FINISHED ? + P ADD TBIN3,CBIN1 , @ P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1 MOVE CURSORADDRESS , 4 P DSC1 DSDY,POS,TCURPOS , x P ADD TBIN3,CBIN2 , P MOVE TBIN8,CBIN0 , : P XCOPY TBIN8,CBIN1,CBIN1,TSCRBUF,TBIN3 SAVE ATTRIBUTE , P M
0x013a0c…013ba0 Dummy {f00=0x0002, f01=0x0190, f02=»E TBIN1,=X'0004' , . P CALL MASK,TBIN1,TBIN8 WAS FIELD MODIFIED - P BZ UNP024B NOPE - J P SUB TBIN8,CBIN4 RESET BIT - b 6 P XCOPY TSCRBUF,TBIN6,CBIN1,TBIN8,CBIN1 RESTORE BIT - PUNP024B - P ADD TBIN3,TBIN7 - P B UNP024 TRY NEXT FIELD - PUN
0x013ba0…013d34 (1, 24) Opaque[0x194]
0x013d34…013ec8 # DirEnt {nam=»FINDLN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x013d34…013ec8 IdxSect {
0x013d34…013ec8 f00 = 0x000a // 0x13d34 @0x0
0x013d34…013ec8 f01 = 0x0002 // 0x13d36 @0x2
0x013d34…013ec8 gno = [ // 0x13d38 @0x4
0x013d34…013ec8 [0x00]: C0x000a.0x0.0
0x013d34…013ec8 ]
0x013d34…013ec8 }
0x013ec8…01405c Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT FINDLN 80.11.03 NJ P DDUM NJDDIV & P PDIV : P ENTRY FINDLN H P EXPROC PUSH,PBIN ^ P EXPROC PULL,PBIN x P* P* P INCLUDE EQUATE P* P* P EJECT PFINDLN PROC BUF,PT,LEN P PSTRG BUF
0x01405c…0141f0 Dummy {f00=0x000a, f01=0x0190, f02=»* TP1 IS UPDATED WITH THE LENGTH OF THE FIELD. P* 6 P* PREREQUISITS @ 6 P* PT - POINTING AT THE BYTE WHERE TO COUNT FROM V P* & P* TP1 MUST CONTAIN A STARTINGVALUE 2 P* TYPICAL 0 (IF YOU POINT AT THE DATA AND WANT 0 P* TO
0x0141f0…014384 Dummy {f00=0x000a, f01=0x0190, f02=»NT THE d 6 P* LENGTH OF THE COMPLETE FIELD DESCR. ) P* H P PERF PUSH,CBIN2 R , P MOVE TBIN2,LEN HOW MANY BYTES TO SCAN ? j P MOVE TBIN1,PT PFIN010 & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 P CBE TSTR1,ETX,FIN090 P C
0x014384…014518 Dummy {f00=0x000a, f01=0x40a0, f02=»UNTIL DELIMITER FOUND | P OR LENGTH REACHED PFIN090 LENGTH FOUND (TP1) : P PERF PULL,CBIN2 ^ P RET v P PEND P END @ TBIN1,PT PFIN010 & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 P CBE TSTR1,ETX,FIN090 P C
0x014518…0146ac Dummy {f00=0x000a, f01=0x2008, f02=» NT FINDLN 80.10.09 NJ @ &
0x0146ac…014840 Dummy {f00=0x000a, f01=0x0190, f02=»RTING POSITION x PUNP023 ( P DSC1 DSDY,POS,TBIN1 POSITION CURSOR $ & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE P , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE z : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD ERASE LINE 0 & P********** DC3 *********
0x014840…0149d4 (1, 25) Opaque[0x194]
0x0149d4…014b68 # DirEnt {nam=»KBREAD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x0149d4…014b68 IdxSect {
0x0149d4…014b68 f00 = 0x0000 // 0x149d4 @0x0
0x0149d4…014b68 f01 = 0x0006 // 0x149d6 @0x2
0x0149d4…014b68 gno = [ // 0x149d8 @0x4
0x0149d4…014b68 [0x00]: C0x0000.0x3.0
0x0149d4…014b68 [0x01]: C0x0003.0x3.0
0x0149d4…014b68 [0x02]: C0x0006.0x3.0
0x0149d4…014b68 ]
0x0149d4…014b68 }
0x014b68…014cfc Dummy {f00=0x0000, f01=0x0190, f02=» P IDENT KBREAD 80.11.07 NJ P DDUM NJDDIV & P PDIV : P ENTRY KBREAD H P ENTRY FIND00 ^ P EXPROC SCRWR,PSTRG,PBIN t P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P* P
0x014cfc…014e90 Dummy {f00=0x0000, f01=0x0190, f02=»B6272. p P* PARAMETERS: D P* LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM $ 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ l D P* TAB - KEYTABLE, WHERE THE VALID END-OF-ITEM KEYS ARE DEFINED L P* INX - ON COMPLETION
0x014e90…015024 Dummy {f00=0x0000, f01=0x0190, f02=»ECIAL FEATURES: > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT Z < P* INS - INSERT - INSERT ONE CHARTACTER AT CURSORPOS > P* DEL - DELETE - DELETE ONE CHARACTER F
0x015024…0151b8 Dummy {f00=0x0000, f01=0x018e, f02=»ETE 'KI' r F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 Z P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH P* TBIN8 - NOT US
0x0151b8…01534c Dummy {f00=0x0000, f01=0x0190, f02=» P MOVE TBIN2,LEN P MOVE TSTR80,=X'00' 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 8 P MOVE TBIN3,CBIN0 n P DSC1 DSDY,POS,TBIN7 P* * P CLEAR TCURMOV NO CURSORMOVEMENTS YET PKBR015 P MOVE TBIN6,TBIN2 PKBR0
0x01534c…0154e0 Dummy {f00=0x0000, f01=0x0190, f02=»SC1 DSDY,POS,TBIN7 P MOVE TBIN1,TBIN2 RESTLENGTH . P CBNG TBIN1,CBIN0,KBR030 FTAB IF FILLED UP > " P KI DSKB,TKBBUF,TAB,TBIN1,INX p & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT
0x0154e0…015674 (1, 26) Dummy {f00=0x0003, f01=0x0190, f02=» FROM LENGTH r * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 6 P CBE TBIN4,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB B PKBR020 | P PERF PULL,CBIN8 0 P CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE P B KBR099 RETURN PKBR030 $ P MOVE INX,CB
0x015674…015808 Dummy {f00=0x0003, f01=0x0190, f02=»AR b $ P CLEAR TBOOL WE CAN RESET TBOOL PKBR045 2 * P CBNG INX,CBIN0,KBR020 POWER FAILURE ? @ P SUB TBIN1,CBIN1 n * P MOVE TBIN5,INX SAVE INDEX TO KEYTABLE P SUB INX,CBIN5 ADJUST INDEX . P BP KBR094 WAS IT ANY OF THE 5 SPEC KEYS? (
0x015808…01599c Dummy {f00=0x0003, f01=0x0190, f02=» P KBR060, FSP, C P KBR070, INS C P KBR080, DEL C 8 P KBR090 CANCEL P " P B KBR094 SHOULD BE IMPOSSIBLE h P********** " PKBR050 BACKSPACE KEY PRESSED ( P SUB TBIN2,TBIN1 HOW MANY CHARS LEFT P ADD TBIN2,CBIN1 2
0x01599c…015b30 Dummy {f00=0x0003, f01=0x0190, f02=» P SUB TBIN3,CBIN1 MINUS 1 , P MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS $ P ADD TBIN7,TBIN3 -//- T P B KBR016 r P********** PKBR060 FORWARDSPACE KEY 0 P SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ P SUB TBIN2,CBIN1 * P XCO
0x015b30…015cc4 Dummy {f00=0x0003, f01=0x0190, f02=»VE CURSOR ONE POS z P ADD TBIN7,TBIN3 -//- P B KBR016 8 P********** J PKBR070 INSERT * P XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 t P MOVE TSTR2,=' ' * P INSRT TSTR80,TBIN3,CBIN1,TSTR2,CBIN0 P MOVE TSCBUF,TSTR80 P MOV
0x015cc4…015e58 Dummy {f00=0x0003, f01=0x0190, f02=»ACE f P DSC1 DSDY,POS,TCURPOS P WRITE DSDY,TSCBUF,TBIN6 * P MOVE TBIN7,TCURPOS J P ADD TBIN7,TBIN3 f & P SUB TBIN2,TBIN1 REDUCE RESTLENGTH ~ P SUB TBIN2,CBIN1 2 P CBE TBIN2,CBIN0,KBR030 FILLED, SIMULATE FTAB P SET TBOOL NEXT MU
0x015e58…015fec Dummy {f00=0x0003, f01=0x018e, f02=»TE TSTR80,TBIN3,CBIN1 P MOVE TSCBUF,TSTR80 P MOVE TSTR2,='+' : * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 R P PERF FIND00,TSCBUF P SUB TBIN6,TBIN3 P ADD TBIN6,CBIN2 P DLETE TSCBUF,CBIN2,TBIN3 , P MOVE TBIN7,CBIN0 ONE CHAR
0x015fec…016180 Dummy {f00=0x0003, f01=0x0190, f02=» ~ * P XCOPY TSCBUF,TBIN7,CBIN1,TSTR1,CBIN0 P WRITE DSDY,TSCBUF,TBIN6 6 P MOVE TBIN7,TCURPOS V P ADD TBIN7,TBIN3 r P SUB TBIN2,TBIN1 P ADD TBIN2,CBIN1 P ADD TBIN3,TBIN1 P B KBR016 P********** PKBR090 CANCEL TH
0x016180…016314 (1, 27) Dummy {f00=0x0006, f01=0x0190, f02=»N n P B KBR010 P*********** PKBR094 0 P MOVE TBIN6,TCURPOS > P DSC1 DSDY,POS,TBIN6 Z 2 P TBF TCURMOV,KBR095 ANY EXPL. CURSORMOVEMENTS? v : P XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 COMPLETE BUFFER 6 P MOVE TKBBUF,TSTR80 MOVE COMPL
0x016314…0164a8 Dummy {f00=0x0006, f01=0x0190, f02=» 0 P SUB TBIN2,TBIN6 HOW MANY ZEROES TO INSERT? P MOVE TSTR80,='0' 8 8 P INSRT TKBBUF,CBIN0,TBIN2,TSTR80,CBIN0 MODIFY BUFFER R P DSC1 DSDY,POS,TCURPOS 2 P PERF SCRWR,TKBBUF,TBIN4 AND REWRITE ON SCREEN P B KBR098A PKBR098 P PERF
0x0164a8…01663c Dummy {f00=0x0006, f01=0x018e, f02=» P PERF PULL,CBIN8 P CMP CBIN0,CBIN0 PKBR099 4 P RET B P PEND N P EJECT PFIND00 PROC BUF j P* . P* FIND THE LENGTH OF THE DATAFIELD IN THE P* BUFFER SPECIFIED. . P* IF THE LAST NON-ZERO CHAR IS BELOW X'20'
0x01663c…0167d0 Dummy {f00=0x0006, f01=0x414a, f02=» 0 P MOVE TBIN7,=W'32' OBS OBS LENGTH OF TKBBUF , P MATCH BUF,TBIN6,TBIN7,TSTR1,CBIN0,CBIN1 8 P MOVE TBIN7,TBIN6 h P SUB TBIN7,CBIN1 * P XCOPY TSTR1,CBIN0,CBIN1,TKBBUF,TBIN7 . P CBNL TSTR1,=' ',FIN010 < X'20' IS EOI KEY P SUB TBIN6,CBI
0x0167d0…016964 Dummy {f00=0x0006, f01=0x2008, f02=» NT KBREAD 80.10.09 NJ @ &
0x016964…016af8 Dummy {f00=0x0006, f01=0x0190, f02=»$ bDEF ` ` ` INTERIM STATEMENT ERRORLINE IS LINE 23 AND LAST FIVE ENTRIES QERR2 - ENQUIRY NOT AVAILABLE QERR1 - INVALID FUNCTION SELECTION 999 / N @ . 1 ENQ - ENQUIRY INPUT ENQUIRIES AVAILABLE L H I 4 L H I Y 5 J H
0x016af8…016c8c Dummy {f00=0x0006, f01=0x0190, f02=» " $ & ( * , . 0 1 2 3 4 5 6 7 8 9 : < > @ B D F H J L N Q T W [ _ c h n t { *
0x016c8c…016e20 Dummy {f00=0x0006, f01=0x0190, f02=» _ ! "@ ! P ' <H : W ! ! ' &P B V C / <H "!@ <. : ! ! C C W ! C C J ^ ' W 781"&$ 39#$;< '()*+,-! ! "D ! ' P _D ! B ' 'W ! ( Wb ' ! ! (
0x016e20…016fb4 (1, 28) Opaque[0x194]
0x016fb4…017148 # DirEnt {nam=»LEAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x016fb4…017148 IdxSect {
0x016fb4…017148 f00 = 0x0014 // 0x16fb4 @0x0
0x016fb4…017148 f01 = 0x0002 // 0x16fb6 @0x2
0x016fb4…017148 gno = [ // 0x16fb8 @0x4
0x016fb4…017148 [0x00]: C0x0014.0x1.0
0x016fb4…017148 ]
0x016fb4…017148 }
0x017148…0172dc Dummy {f00=0x0014, f01=0x0190, f02=» P IDENT LEAD 80,10,09 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY LEAD F P* Z P* d P INCLUDE EQUATE n P* P* P EJECT PLEAD PROC BIN P PBIN BIN P* 0 P* THE PROCEDURE CREATES A PREAMBLE IN TSTR4.
0x0172dc…017470 Dummy {f00=0x0014, f01=0x4102, f02=»,CBIN0 CURSORPOSITION p P CBE BIN,CBIN2,LEAD02 6 P XCOPY TSTR4,CBIN3,CBIN1,CATTRIB1,CBIN0 NUM + MOD < P B LEAD09 v PLEAD02 0 P XCOPY TSTR4,CBIN3,CBIN1,CATTRIB2,CBIN0 MOD PLEAD09 P RET P PEND P END @ TR4.
0x017470…017604 Dummy {f00=0x0014, f01=0x2008, f02=» NT LEAD 80,10,09 NJ @ $
0x017604…017798 Dummy {f00=0x0014, f01=0x4030, f02=» $ * 5 R @ H M V v 8 . $ @ ,0.10.30 NJ J F " D GK@0@1@2@3 2 5 j2 K5 2 62 W A0W A1W A2W A3 5 _% 9LH1 @ B J F " D /2H0 GL0 G H1 1L0 10 1L 1 H2 H3 4 L"jD K5 15 1 j J F " D o9 K1 9L0 9 1 jD K1 D"S 35 3 <
0x017798…01792c Dummy {f00=0x0014, f01=0x4024, f02=» f - L R @ F1 O1111 80.10.30 NJ J F " D 6 1 ELjJ 1 D$ 3 hJ3 D 2 D#hJ2 D T $12 13 43@7W 12 B D ? = !42A7 64 41 5L 54fJ45 4 4 jJ E jJ4 > J ELI7 EL 6 j w y @ 9 1 jD K1 D"S 35 3 <
0x01792c…017ac0 Dummy {f00=0x0014, f01=0x4014, f02=» @ RA 10.0 80-10-30 F1 O1111 80.10.28 NJ J F " D Z6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; B J F " D jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; @ < : j5 O; ; j4 O; ; j3 O; ; j2 O; ;
0x017ac0…017c54 (1, 29) Opaque[0x194]
0x017c54…017de8 # DirEnt {nam=»SCWRIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x017c54…017de8 IdxSect {
0x017c54…017de8 f00 = 0x0007 // 0x17c54 @0x0
0x017c54…017de8 f01 = 0x0004 // 0x17c56 @0x2
0x017c54…017de8 gno = [ // 0x17c58 @0x4
0x017c54…017de8 [0x00]: C0x0007.0x0.0
0x017c54…017de8 [0x01]: C0x0008.0x2.0
0x017c54…017de8 ]
0x017c54…017de8 }
0x017de8…017f7c Dummy {f00=0x0007, f01=0x018e, f02=» P IDENT SCWRIT 80.10.28 NJ P DDUM NJDDIV & P : P B P J 2 P* THIS MODULE CONTAINS THE ROUTINES NECESSARY R P* FOR WRITING ON THE VDU: P* > P* SCWRIT - CAN BE USED FOR WRITING ANYWHERE ON THE SCREEN P* , P* SCRWR
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» P ENTRY SCRWR P ENTRY ERWRIT P EXPROC POSCUR,PBIN,PBIN 2 P EXPROC PUSH,PBIN R P EXPROC PULL,PBIN l P* P* P INCLUDE EQUATE P* P EJECT PSCWRIT PROC BUF,LEN,ROW,COL P PSTRG BUF P PBIN LE
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=» LEN - THE NBR OF BYTES TO WRITE 2 P* THE RETURNCODE IS SET BY THE WRITE STATEMENT * P* ` 4 P* IF LENGTH EXCEEDS 80, THE BUFFER IS TRUNCATED j P* P* ALTERED FIELDS: 6 P* TSCBUF - FORM CTRL CHAR + TEXT TO BE WRITTEN P*
0x0182a4…018438 Dummy {f00=0x0007, f01=0x0190, f02=»UNCATE t PSCWR010 P PERF POSCUR,ROW,COL P PERF SCRWR,BUF,TBIN1 : P PERF PULL,CBIN1 X P RET p P PEND | P EJECT PSCRWR PROC BUF,LEN P PSTRG BUF P PBIN LEN P* 2 P* THE PROCEDURE WRITES ANY BUFFER ON A S
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=» * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 P MOVE TBIN1,LEN 6 " P ADD TBIN1,CBIN2 ADJUST LENGTH N 4 P WRITE DSDY,TSCBUF,TBIN1 WRITE BUFFER TO SCREEN t P PERF PULL,CBIN1 P RET P PEND P EJECT PERWRIT PROC BUF P PST
0x0185cc…018760 Dummy {f00=0x0007, f01=0x40f4, f02=» PERF POSCUR,TP1,TP2 & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE P MOVE TSCBUF,BUF F P MOVE TSTR2,=X'2B2B' ^ * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 z P WRITE DSDY,TSCBUF,CBIN80 P RET P PEND P END @ ROC BUF P PST
0x018760…0188f4 (1, 30) Dummy {f00=0x0008, f01=0x2008, f02=» NT SCWRIT 80,10,09 NJ @ &
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0006, f02=»
0x018a88…018c1c Dummy {f00=0x0008, f01=0x0190, f02=» P IDENT KBREAD 80.10.31 NJ P DDUM NJDDIV & P PDIV : P ENTRY KBREAD H P EXPROC SCRWR,PSTRG,PBIN ^ P EXPROC PUSH,PBIN ~ P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P* P EJECT $ PKBREAD P
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x0190, f02=»B6272. p P* PARAMETERS: D P* LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM $ 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ l < P* BUF - WHERE TO PUT IT. IF THIS WAS A NUMERICAL READ, 8 P* THE FIGURES WILL HAVE
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=»LL POINT AT THE END-OF-ITEM KEY USED l > P* TYP - CBIN1 FOR NUMERIC, CBIN2 FOR ALPHANUMERIC INPUT , P* n P* SPECIAL FEATURES: x > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE T
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=»S X F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND P* T * P* TBIN1 - LENGTH OF JUST COMPLETE 'KI' ^ F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 P* TBIN4 -
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=»PUT t P* P PERF PUSH,CBIN8 PKBR010 . $ P MOVE TBIN4,LEN SAVE ORIG.LENGTH < P MOVE TBIN2,LEN d P MOVE TSTR80,=X'00' | P MOVE TSTR1,=X'00' P MOVE BUF,TSTR1 P MOVE TBIN3,CBIN0 P MOVE TBIN8,CBIN0 * P CLEAR TCU
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=»EITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT & P* SIZE OF BUFFER IS REACHED F P* POWER FAILURE j " P* REQ. NBR OF CHARS IS REACHED * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 6 P CBE TBIN1,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB
0x019400…019594 (1, 31) Opaque[0x194]
0x019594…019728 # DirEnt {nam=»UNPCK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x019594…019728 IdxSect {
0x019594…019728 f00 = 0x0002 // 0x19594 @0x0
0x019594…019728 f01 = 0x0006 // 0x19596 @0x2
0x019594…019728 gno = [ // 0x19598 @0x4
0x019594…019728 [0x00]: C0x0002.0x3.0
0x019594…019728 [0x01]: C0x0003.0x0.0
0x019594…019728 [0x02]: C0x0005.0x1.0
0x019594…019728 ]
0x019594…019728 }
0x019728…0198bc Dummy {f00=0x0002, f01=0x0190, f02=» P IDENT UNPCK 80.11.04 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY UNPCK F " P EXPROC FINDLN,PSTRG,PBIN,PBIN Z P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P EXPROC ERASUP P EXPROC LOLITE P EXPROC ATTUNP,PSTRG,PBIN P EXPRO
0x0198bc…019a50 Dummy {f00=0x0002, f01=0x018e, f02=»TS OF TSTR2K (WHICH IS THE BUFFER RECEIVED , P* FROM THE MAINFRAME) IS TO BE UNPACKED 2 8 P* INTO THE TERMINALS LOGICAL SCREEN AREA (TSCRBUF). b * P* ONLY THE 'PROTECTED + MODIFIED' AND & P* THE UNPROTECTED FIELDS ARE SAVED 6 P* ALL RECEIVED FIE
0x019a50…019be4 Dummy {f00=0x0002, f01=0x0190, f02=» P CLEAR TDC3 P CLEAR TDC4 P MOVE TBIN2,CBIN0 , 0 P MOVE TBIN5,CBIN12 HERE START EVTL DC-CHARS F PUNP010 z * P XCOPY TBIN2,CBIN1,CBIN1,TSTR2K,TBIN5 $ P SUB TBIN2,CBIN16 SUBTRACT X'10' 2 P IB TBIN2,UNP011,UNP012,UNP013,UNP014 DC1
0x019be4…019d78 Dummy {f00=0x0002, f01=0x018e, f02=»2 O0CCURRED P B UNP015 PUNP013 & P SET TDC3 DC3 OCCURRED 4 P B UNP015 R PUNP014 d P SET TDC4 DC4 OCCURRED r PUNP015 $ P ADD TBIN5,CBIN1 TEST NEXT CHAR. P B UNP010 PUNP020 < P* NOW TBIN5 POINTS AT THE FIRST NO
0x019d78…019f0c Dummy {f00=0x0002, f01=0x0190, f02=» " P* AS SPECIFIED BY THE DC-CHARS P * ( P MOVE TCURPOS,=X'0101' ROW 1, COL 1 2 $ P TBF TDC2,UNP021 DC2 SPECIFIED? ^ " P CLEAR TDC3 YES, OVERRIDE DC3 & P********** DC1 ********** PUNP021 " P TBF TDC1,UNP022 SOUND ALARM ?
0x019f0c…01a0a0 Dummy {f00=0x0002, f01=0x0190, f02=»UNP024 CLEAR SCREEN ? * P MOVE TBIN1,=X'1701' STARTING POSITION PUNP023 L ( P DSC1 DSDY,POS,TBIN1 POSITION CURSOR Z & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0003, f01=0x0190, f02=» ALL UNPROTECTED ~ P AND RESET MODIFIED DATA P TAGS ON CLEARED FIELDS : & P********** DC4 ********** PUNP025 $ P TBF TDC4,UNP030 DC4 SPECIFIED? . P PERF LOLITE RESET ALL HIGHLIGHTED FIELDS " P TO NORMAL AND CLEAR LIN
0x01a234…01a3c8 Dummy {f00=0x0003, f01=0x018e, f02=»KING x < P* TBIN5 SHOULD STILL POINT AT FIRST CHAR IN FIELD SPEC. * P MOVE TBIN4,CBIN0 POINTER INTO TSCRBUF L 2 P MOVE TSCRBUF,ESC CLEAR LOGICAL SCREEN BUFFER z PUNP035 8 P XCOPY TSTR1,CBIN0,CBIN1,TSTR2K,TBIN5 MOVE DELIMITER $ P* NOW WE HAVE
0x01a3c8…01a55c Dummy {f00=0x0003, f01=0x0190, f02=» P* BINARY CURSOR POSITION P MOVE TBIN1,TBIN5 $ P ADD TBIN1,CBIN1 > : P XCOPY TCURPOS,CBIN0,CBIN2,TSTR2K,TBIN1 MOVE ROW / COL V 2 P SUB TCURPOS,=X'1F1F' CONVERT TO BINARY VALUE : P XCOPY TSTR2K,TBIN1,CBIN2,TCURPOS,CBIN0 REWRITE CURPOS P
0x01a55c…01a6f0 Dummy {f00=0x0003, f01=0x0190, f02=»INISHED l " P* FIND THE LENGHT OF THE FIELD P* THE FIELD IS DELIMITED BY 6 P* ESC OR Z P* ETX p P MOVE TBIN3,TBIN5 & P ADD TBIN3,CBIN1 GET STARTINGPOINT P MOVE TP1,CBIN1 @ P PERF FINDLN,TSTR2K,TBIN3,CBIN80 FIND LENGTH
0x01a6f0…01a884 Dummy {f00=0x0003, f01=0x0190, f02=»TEC,UNP040 SAVE IF UNPROTECTED OR 4 P TBT TAMODIF,UNP040 IF PROTECTED A N D MODIFIED , P B UNP050 d PUNP040 v < P* MOVE DATAFIELD, INCLUDING ATTRIBUTE TO LOGICAL BUFFER * P XCOPY TSCRBUF,TBIN4,TP1,TSTR2K,TBIN5 " P ADD TBIN1,CBIN1 POINT
0x01a884…01aa18 Dummy {f00=0x0003, f01=0x0190, f02=»2B2B20' * P XCOPY TSCBUF,CBIN2,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN2 > P B UNP070 V PUNP060 h , P MOVE TSCBUF,=X'2B2B1E20' LOW INTENSITY v * P XCOPY TSCBUF,CBIN3,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN3 P PUNP070 , P WRITE
0x01aa18…01abac Dummy {f00=0x0003, f01=0x4054, f02=» PUNP900 P PERF PULL,CBIN6 P RET * P PEND 6 P END D@ P P B UNP070 V PUNP060 h , P MOVE TSCBUF,=X'2B2B1E20' LOW INTENSITY v * P XCOPY TSCBUF,CBIN3,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN3 P PUNP070 , P WRITE
0x01abac…01ad40 Dummy {f00=0x0003, f01=0x2008, f02=» NT UNPCK 80.10.09 NJ @ $
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0005, f01=0x0190, f02=» 0 9 M-jM <L3 2< < 0 M<@9 L1 32_R E' 1 2 hL12E T. 1 j9 L10 9 1 L1A8 L1 1 < = L1=0 < 4 1 2 j1 2 8 9 : ; <H9 @8 4 0 12P A W @ 224 1 H8 1 H9 1 H: 1 H; 1 H< 1 j 1 4 GK@0@1@2@3 2 5 j2 K5 2 62 W A0W A1W A2W
0x01aed4…01b068 Dummy {f00=0x0005, f01=0x0190, f02=»< K3 2< K1I5 H; I: W jL4<K5 1 2 H9 M*jM 2K1 2 W M-jM 2K1 2 0 M2 5<_z 4 L > Z 0 3 j P 7 g 7 n / a 2 T ` P !*0Q ++++ ++ ++ ++ ABCD ' G
0x01b068…01b1fc Dummy {f00=0x0005, f01=0x0190, f02=» ! " # $ % & ' ) + . 1 5 9 = B M X d r n _ _ n !L#0 T !L#0 T V 5 W `/ _ ` P !L <H : W
0x01b1fc…01b390 Dummy {f00=0x0005, f01=0x0190, f02=» | ` !L P _D B !L 'W ( Wb !L p ( 1W" C C C " 5 ( ' P. P$ "! P lW B % P C + j I "%@P "% P& B C C 4 "5 # B P B
0x01b390…01b524 Dummy {f00=0x0005, f01=0x0190, f02=» ( ' P I : ` % Y C !L & 5v 5v C !L "!@ 5 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D #>W.' #? #( V H 5 ;D:B " : _, !L C :
0x01b524…01b6b8 Dummy {f00=0x0005, f01=0x0190, f02=»#0 T & C C : C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W 5j B B " : P R hPR L > R R _ R _ # Q R V > _V
0x01b6b8…01b84c Dummy {f00=0x0005, f01=0x0190, f02=» h #0 T B ' : 5j B B : P C #0 T & C C : 5j C C : ` ` X&4# # %@(&) ) $ , 2@1 1d1 2@1> | N W V 7 @ ! P N P W ^ @ R 5< 8
0x01b84c…01b9e0 Dummy {f00=0x0005, f01=0x0190, f02=» P V W< _ 2 # ;B V T fW V P L , V 2P " 2 P V D ! R T V P V N W V P _ 8^t D 2 ! 9BP V T fW V P D $ V 6 V % V E @ ' T 2 % 7_ 2 # PH L ZPB
0x01b9e0…01bb74 (1, 34) Opaque[0x194]
0x01bb74…01bd08 # DirEnt {nam=»UNPPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x01bb74…01bd08 IdxSect {
0x01bb74…01bd08 f00 = 0x000e // 0x1bb74 @0x0
0x01bb74…01bd08 f01 = 0x0004 // 0x1bb76 @0x2
0x01bb74…01bd08 gno = [ // 0x1bb78 @0x4
0x01bb74…01bd08 [0x00]: C0x000e.0x1.0
0x01bb74…01bd08 [0x01]: C0x000e.0x2.0
0x01bb74…01bd08 ]
0x01bb74…01bd08 }
0x01bd08…01be9c Dummy {f00=0x000e, f01=0x0190, f02=» P IDENT UNPPRT 80.11.06 NJ P DDUM NJDDIV & P PDIV : P ENTRY UNPPRT H P EXPROC EXPAND,PSTRG,PBIN ^ P EXPROC PRTLN,PSTRG P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P*
0x01be9c…01c030 Dummy {f00=0x000e, f01=0x0190, f02=»ME FROM THE INPUTBUFFER p 2 P* 2. REPLACE SPACECOMPRESSION CHARACTERS WITH * P* THE APPRIOPRIATE NUMBER OF SPACES V 2 P* 3. HAND A PRINTLINE OVER TO THE PRINTER TASK P* P* ALTERED FIELDS: P* TSTR1 - DC2 P* TSTR2
0x01c030…01c1c4 Dummy {f00=0x000e, f01=0x018e, f02=»OVE TSTR2,=X'2B2B' START WITH NO-SPACE PUNPP010 . P MOVE TBIN4,=W'81' > ( P XCOPY TSCBUF,CBIN0,TBIN4,BUF,TBIN1 X $ P MOVE MAX. POSSIBLE FIELD SIZE P MOVE TSTR1,DC2 P MOVE TBIN3,CBIN0 0 P MATCH TSCBUF,TBIN3,TBIN4,TSTR1,CBIN0,CBIN
0x01c1c4…01c358 Dummy {f00=0x000e, f01=0x018e, f02=» b " P FIND FIRST FORMFEED, IF ANY & P BNOK UNPP020 NO FORMFEED PRESETN, . P ASSUME LINEFEED PRESENT X 6 P CBL TBIN3,TBIN2,UNPP020 DID LINFEED OCCUR FIRST? | 0 P ADD TBIN1,TBIN2 NEW STARTINGPOINT FOR NEXT P MOVE TBIN4,TBIN2 P CLE
0x01c358…01c4ec Dummy {f00=0x000e, f01=0x0190, f02=» x PUNPP030 P MOVE TBIN5,=W'82' ( P SUB TBIN5,TBIN4 HOW MUCH TO ERASE? 2 P DLETE TSCBUF,TBIN4,TBIN5 ^ P MOVE TBIN4,=W'82' : P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 FORM CTRL CHARS 4 P XCOPY TSCBUF,TBIN4,CBIN2,TTID,CBIN0 MOVE TASKID
0x01c4ec…01c680 Dummy {f00=0x000e, f01=0x4114, f02=»MFEED CTRLCHARS x PUNPP040 P ADD TBIN1,CBIN1 ( & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 @ $ P CBE TSTR1,ETX,UNPP090 FINISHED? j P CBE TSTR1,ESC,UNPP090 P B UNPP010 PUNPP090 P PERF PULL,CBIN6 P RET P PEND P END
0x01c680…01c814 (1, 35) Dummy {f00=0x000e, f01=0x2008, f02=» NT UNPPRT 80.10.09 NJ DDUM NJDDIV & PDIV : ENTRY UNPPRT H EXT EXPAND ^ EXT PRTLN r@
0x01c814…01c9a8 Dummy {f00=0x000e, f01=0x0190, f02=» C B % C : & #0 T & C C : ! C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W ;^ B B " " : P#F # PR L#2 R R _ R _
0x01c9a8…01cb3c Dummy {f00=0x000e, f01=0x0190, f02=» d w5 1 # & #0 T B ' : ;^ B B " : & P C #0 T & C C : ;^ ! C C :$x$x$x%T&T$ &L,() ) +4. / / $ % % % % & $ % % 2 847 7X7z8472$ &t&p&z&|$ $ $ $ T W V 7 @ ! P T P W $R
0x01cb3c…01ccd0 Dummy {f00=0x000e, f01=0x0190, f02=»]h : _n ; 2 P V W< _ 2 # ;B & V T W V P L , V 2P " 2 P V D ! R T V P V T W V P _ 8^t D# 2 ! 9BP V T W V P D $ V 6 V % V E @ ' T 2 % 7_ 2
0x01ccd0…01ce64 Dummy {f00=0x000e, f01=0x0190, f02=» V P T W _ # $ ) V & $ H$ 'W 'W '_6 :l:d:h '@ W W P W 6 2# )2W4 @ E& " T> ; [ # ) :H 2 T Z L L&~ D V, W # ) L&~ E V $ W D V L&
0x01ce64…01cff8 Dummy {f00=0x000e, f01=0x0190, f02=»T^ Z Z : R ; '@ 6 : F _v ;z:B , (V ; H [ [ [ '@ Z (;AR H WD ;~ ;~ Z H # )l ; 6 ;z '@ : Z L # & ;~ ;~ & Z 4 )l : Z 4
0x01cff8…01d18c Dummy {f00=0x000e, f01=0x0190, f02=» ( :A ( @ " P ! P [ :;H 2 'x ' ;h )& : ; V Y : 2! : 6 2 )2W& " # ) ;b ; : ;f" #?_" W ;^ # ;Z" T & T + : * & !@P `1` P + Q
0x01d18c…01d320 Dummy {f00=0x000e, f01=0x0190, f02=» R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 ;Z P8" T * & : * & !`P :J +_ +Q + _0 , T T XD W 1 L
0x01d320…01d4b4 (1, 36) Opaque[0x194]
0x01d4b4…01d648 # DirEnt {nam=»PUSH «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x000b // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x0004 // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x000b.0x0.0
0x01d4b4…01d648 [0x01]: C0x000b.0x1.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x000b, f01=0x0190, f02=» P IDENT PUSH 80.10.28 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY PUSH F P ENTRY PULL Z P* n P* x 0 P* THE TWO PROCEDURES PUSH AND PULL TAKE CARE P* OF THE STACKHANDLING. , P* DEPENDING ON THE PARAMETER, 1-8 OF THE 0 P*
0x01d7dc…01d970 Dummy {f00=0x000b, f01=0x0190, f02=»OF 'WHERE TO PUT IT', A " P* STACKPOINTER IS IMPLEMENTED. P* F 0 P* AS THE DATAITEMS ARE SAVED IN THE SEQUENCE P 2 P* TBIN8,7,6,.... THE PULL-OFF MUST BE BACKWARD P* P* P EJECT PPUSH PROC B1 P* , P* THE PROCEDUR
0x01d970…01db04 Dummy {f00=0x000b, f01=0x0190, f02=» P PBIN B1 P 2 P IB B1,PUS1,PUS2,PUS3,PUS4,PUS5,PUS6,PUS7,PUS8 PPUS8 R , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN8,CBIN0 ^ P ADD TSTACKPT,CBIN2 PPUS7 , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN7,CBIN0 P ADD TSTACKPT,CBIN2 PPUS6
0x01db04…01dc98 Dummy {f00=0x000b, f01=0x0190, f02=» h P ADD TSTACKPT,CBIN2 PPUS4 $ , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN4,CBIN0 0 P ADD TSTACKPT,CBIN2 ` PPUS3 | , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN3,CBIN0 P ADD TSTACKPT,CBIN2 PPUS2 , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN2,CBIN0
0x01dc98…01de2c Dummy {f00=0x000b, f01=0x0190, f02=» PEND P EJECT PPULL PROC B1 P PBIN B1 0 P* @ , P* THE PROCEDURE RESTORES ONE OR MORE OF J . P* THE ITEMS TBIN8,TBIN7,.... ON THE STACK z . P* AND UPDATES THE STACKPOINTER ACCORDINGLY P* * P SUB TSTACKPT,B1 POINT AT STARTA
0x01de2c…01dfc0 Dummy {f00=0x000b, f01=0x0190, f02=»BIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 " PPUL7 > , P XCOPY TBIN7,CBIN0,CBIN2,TSTACK,TSTACKPT J P ADD TSTACKPT,CBIN2 z PPUL6 , P XCOPY TBIN6,CBIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 PPUL5 , P XCOPY TBIN5,C
0x01dfc0…01e154 (1, 37) Dummy {f00=0x000b, f01=0x018e, f02=»CBIN2 PPUL3 , P XCOPY TBIN3,CBIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 J PPUL2 f , P XCOPY TBIN2,CBIN0,CBIN2,TSTACK,TSTACKPT r P ADD TSTACKPT,CBIN2 PPUL1 , P XCOPY TBIN1,CBIN0,CBIN2,TSTACK,TSTACKPT , P ADD TSTACKPT,
0x01e154…01e2e8 Dummy {f00=0x000b, f01=0x403a, f02=» PEND " END *@ 6TSTACKPT P ADD TSTACKPT,CBIN2 J PPUL2 f , P XCOPY TBIN2,CBIN0,CBIN2,TSTACK,TSTACKPT r P ADD TSTACKPT,CBIN2 PPUL1 , P XCOPY TBIN1,CBIN0,CBIN2,TSTACK,TSTACKPT , P ADD TSTACKPT,
0x01e2e8…01e47c Dummy {f00=0x000b, f01=0x2008, f02=» PEND ( END 0@ < 8 ENTRY PUSH F ENTRY POP Z EJECT l PUSH PROC B1 z PBIN B1 ( $ XCOPY TSTACK,TSTACKP,CBIN2,B1,CBIN0 ADD TSTACKPT,CBIN2 RET PEND
0x01e47c…01e610 Dummy {f00=0x000b, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=02L; 00; C;
0x01e610…01e7a4 Dummy {f00=0x000b, f01=0x0190, f02=» W 95W 96W 3 0 9W :34 3: 4 hL:4! T : j9 L:0 9 : W :34 3: 5 : 4 hL:4! T : 65j5 L: 59 960 9 : W :34 19 3: 13 1 21 D j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 94 3 3 7 j3 5 j7 6 37 GW
0x01e7a4…01e938 Dummy {f00=0x000b, f01=0x0190, f02=»E F @E @ 6@ I d 86I 7 76 7 _;4 6 1 jD 1 D" D! 7 1 61_ 4 1 I 8 @60 1 P 1 _! _) 1 Q(21 _; 2172 C'A6jI82N 82 8 _S_U_W_Y_[H6 2 21 I d 1I 0 9 2 4 G!jG 9 6 jG ' W jG ( 4 * 0 9 J jJ 1 1 0 J14
0x01e938…01eacc Dummy {f00=0x000b, f01=0x0190, f02=» ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 ; & ( * , p R @ i T Q++++ / 0
0x01eacc…01ec60 Dummy {f00=0x000b, f01=0x0190, f02=» V C / <H "!@ : C C W C C J X ' W 781"&$ 39#$;< '()*+,-! > P _D B 'W ( Wb ( 1W" C C C " ( ' P. H P$
0x01ec60…01edf4 (1, 38) Opaque[0x194]
0x01edf4…01ef88 # DirEnt {nam=»KTABBE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x01edf4…01ef88 IdxSect {
0x01edf4…01ef88 f00 = 0x000a // 0x1edf4 @0x0
0x01edf4…01ef88 f01 = 0x0002 // 0x1edf6 @0x2
0x01edf4…01ef88 gno = [ // 0x1edf8 @0x4
0x01edf4…01ef88 [0x00]: C0x000a.0x2.0
0x01edf4…01ef88 ]
0x01edf4…01ef88 }
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x0190, f02=» 6 P************************************************** P* > P* KEYTABLE USED FOR BDE/ENQ H P* l * P* THE FIRST 8 KEYS ARE PREDEFINED AND v . P* MUST ALWAYS BE PRESENT IN ANY KEYTABLE. P* 2 P* THE FIRST FIVE KEYINDEXES ARE NEVER RE
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x413c, f02=» P P PKTABBE KTAB KYLEFT, C P KYRIGT, C 6 P KYINS, C J P KYDEL, C ^ P KYCANC, C r P KYENT, C P KYCU, C P KYTAB, C P KYFDE, C P KYBDE, C P KYENQ, C P KYFR, C
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x2008, f02=» ********************* * & * KEYTABLE USED FOR BDE/ENQ 0 * T ***** ^@ lTR j z R_ @ = $ < V B @ & &
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x0190, f02=» T T V : 2 ' W 2 6 2 @ " T # ' ?D $8W.' #? $" V H 6 ;D:B " : _, "F C : : j "! P : ! P C W $0 P 6d C : C "!@P ") # B C B % C : ! #0 T & C C
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x0190, f02=» :#0 T B 'W 6d B B " : P L bPR L 8 R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 b
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=»!R'.$ $ &:) * * ! - 3:2 2^2 3:28 !z!v! ! O W V 7 @ ! P O P W X @ R 66 9 f pVP 9c D "F ! Q W &: :aW, @ YRP 5 @ ]^ 5 @ ]h 5 _n 6 2 P
0x01f900…01fa94 (1, 39) Opaque[0x194]
0x01fa94…01fc28 # DirEnt {nam=»ERASUP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x01fa94…01fc28 IdxSect {
0x01fa94…01fc28 f00 = 0x0001 // 0x1fa94 @0x0
0x01fa94…01fc28 f01 = 0x0004 // 0x1fa96 @0x2
0x01fa94…01fc28 gno = [ // 0x1fa98 @0x4
0x01fa94…01fc28 [0x00]: C0x0001.0x1.0
0x01fa94…01fc28 [0x01]: C0x0001.0x2.0
0x01fa94…01fc28 ]
0x01fa94…01fc28 }
0x01fc28…01fdbc Dummy {f00=0x0001, f01=0x0190, f02=» P IDENT ERASUP 80.11.04 NJ P DDUM NJDDIV & P PDIV : P ENTRY ERASUP H P ENTRY LOLITE ^ P EXPROC PUSH,PBIN t P EXPROC PULL,PBIN P EXPROC FINDLN,PSTRG,PBIN P EXPROC ATTPCK,PSTRG,PBIN P EXPROC ATTUNP,PSTRG,PBIN
0x01fdbc…01ff50 Dummy {f00=0x0001, f01=0x0190, f02=»CEDURE ERASES ALL UNPROTECTED P* FIELDS ON THE SCREEN & P* D & P* THIS IS ACCOMPLISHED AS FOLLOWS: N * P* 1. THE FIELDSTART ADDRESS IS FOUND x P* 2. THE CURSOR IS MOVED $ P* 3. THE FIELD LENGTH IS FOUND P* 4. THE SCREEN IS ERAS
0x01ff50…0200e4 Dummy {f00=0x0001, f01=0x0190, f02=»CBIN0 P MOVE TSTR2,ESC ( P XCOPY TBIN5,CBIN0,CBIN2,TSTR2,CBIN0 & PERAS010 R * P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 b P ADD TBIN3,CBIN1 @ P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS ( P CBE TCURPOS,TBIN5,ERAS090 F
0x0200e4…020278 Dummy {f00=0x0001, f01=0x0190, f02=» P MOVE TP2,=W'50' " P PERF FINDLN,TSCRBUF,TBIN3,TP2 P PERF ATTUNP,TSCRBUF,TBIN4 F & P TBF TAPROTEC,ERAS015 UNPROTECTED? h * P TBT TAMODIF,ERAS020 PROT + MODIFIED? PERAS015 * P DSC1 DSDY,POS,TCURPOS POSITION CURSOR P DSC1 DSDY
0x020278…02040c Dummy {f00=0x0001, f01=0x0190, f02=»S010 TRY NEXT FIELD PERAS090 P PERF CRHOME , P PERF PULL,CBIN5 @ P RET X P PEND d P EJECT r PLOLITE PROC 0 P* THE PROCEDURE SCANS THE SCREEN BUFFER FOR . P* HIGHLIGHTED FIELDS. IF ONE IS FOUND, THE P* FOLLOWING WI
0x02040c…0205a0 Dummy {f00=0x0001, f01=0x0190, f02=» 23 t , P* 4. SET NON-DISPLAY-BIT FOR THIS FIELD P* < P PERF PUSH,CBIN4 F P MOVE TBIN3,CBIN0 ^ P MOVE TSTR2,ESC x ( P XCOPY TBIN4,CBIN0,CBIN2,TSTR2,CBIN0 PLOLI010 * P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 P ADD TBIN3,CBI
0x0205a0…020734 (1, 40) Dummy {f00=0x0001, f01=0x0190, f02=»N2 P MOVE TBIN1,TBIN3 4 P PERF ATTUNP,TSCRBUF,TBIN1 SET UP ATTR.BOOLEANS $ " P ADD TBIN3,CBIN1 POINT AT DATA P MOVE TP1,CBIN0 P MOVE TP2,=W'500' " P PERF FINDLN,TSCRBUF,TBIN3,TP2 2 P TBF TAHILITE,LOLI020 BRANCH IF LOW INTENSITY
0x020734…0208c8 Dummy {f00=0x0001, f01=0x0190, f02=»3 l $ P MOVE DATA FROM SCREEN BUFFER $ P MOVE TBIN2,TP1 SAVE FIELDLENGTH 2 ( P ADD TP1,CBIN3 ADJUST FOR CTRL CHARS Z * P WRITE DSDY,TSCBUF,TP1 WRITE ON SCREEN & P CLEAR TAHILITE RESET HIGHLIGHTBIT P PERF ATTPCK,TSCRBUF,TBIN1 P REST
0x0208c8…020a5c Dummy {f00=0x0001, f01=0x0190, f02=»E TSTR2,=X'1B17' <ESC>!<LINE 23> P MOVE TBIN1,CBIN0 ( P MOVE TBIN2,=W'500' B 0 P MATCH TSCRBUF,TBIN1,TBIN2,TSTR2,CBIN0,CBIN2 ^ $ P BNOK LOLI090 NO DATA ON LINE 23 P ADD TBIN1,CBIN1 , P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1 P DSC1
0x020a5c…020bf0 Dummy {f00=0x0001, f01=0x412e, f02=»,TSCRBUF,TBIN1 P ADD TBIN1,CBIN1 P MOVE TP1,CBIN0 . P MOVE TP2,=W'500' F 0 P PERF FINDLN,TSCRBUF,TBIN1,TP2 FIELD LENGTH? ` 0 P DSC1 DSDY,ERASE,TP1 ERASE A PART OF LINE 23 PLOLI090 P PERF CRHOME P PERF PULL,CBIN4 P RET
0x020bf0…020d84 Dummy {f00=0x0001, f01=0x2008, f02=» NT ERASUP 80.10,14 NJ DDUM NJDDIV & * : 6 1* THIS PROCEDURE ERASES ALL UNPROTECTED FIELDS IN D * THE SCRBUF. ~ * PDIV ENTRY ERASUP INCLUDE EQUATE EJECT ERASUP PROC !!JN UNPCK,7
0x020d84…020f18 Dummy {f00=0x0001, f01=0x0190, f02=»**** h " P* READ 1. INPUTFIELD (BRANCH) , P* TAKE APPROPRIATE ACTION, DEPENDING ON 2 $ P* THE END-OF-ITEM KEY DEPRESSED b P PERF POSCUR,=W'22',=W'10' P MOVE TBIN1,CBIN3 2 P PERF KBREAD,TKBBUF,TBIN1,KTABENQ,TBIN4,CBIN1 P BERR ENQ010
0x020f18…0210ac Dummy {f00=0x0001, f01=0x0190, f02=»Q011, PTR C P ENQ012, ENTER C P ENQ011, CU C . P ENQ012, TAB C D P ENQ010 CLEAR PENQ012 r P MOVE TBIN4,CBIN0 & P PERF LEAD CREATE ESC!ROW!COL!ATT * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 . P ADD TBIN4,CBIN4 INCRE
0x0210ac…021240 Dummy {f00=0x0001, f01=0x0190, f02=»CKING ROUTINE r P ADD TBIN4,CBIN3 P EJECT . 8 P*************************************************** < $ P* 2. INPUTFIELD (ACCOUNTNUMBER) x P PERF POSCUR,=W'22',=W'23' P MOVE TBIN1,CBIN9 2 P PERF KBREAD,TKBBUF,TBIN1,KTABENQ,TBIN4,CBIN
0x021240…0213d4 (1, 41) Opaque[0x194]
0x0213d4…021568 # DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x0213d4…021568 IdxSect {
0x0213d4…021568 f00 = 0x000c // 0x213d4 @0x0
0x0213d4…021568 f01 = 0x0006 // 0x213d6 @0x2
0x0213d4…021568 gno = [ // 0x213d8 @0x4
0x0213d4…021568 [0x00]: C0x000c.0x1.0
0x0213d4…021568 [0x01]: C0x000c.0x2.0
0x0213d4…021568 [0x02]: C0x000c.0x3.0
0x0213d4…021568 ]
0x0213d4…021568 }
0x021568…0216fc Dummy {f00=0x000c, f01=0x0190, f02=» : W w @ D P 9aW W F R _ W W W W V | D N N SC ~ R W W W W W( V /SP W V R Q UF W 0 V v R W W W W W W W2 V U Q , P P W R W W W W !!
0x0216fc…021890 Dummy {f00=0x000c, f01=0x0190, f02=»W W W W W *W W W W . " & W N W 0 V v W t W v A A A A A A W V pW W _ _ W L N D j E l ^ W n A A A : 0 - ?? W j d j $ @ $ A (PN R
0x021890…021a24 Dummy {f00=0x000c, f01=0x0190, f02=» pW W W W B b_0 _ W W W W W W P , 8 N T N 9HV V W 2 W 2 W 2 : 8 ~ @W _H _ _P B P R $ !CC A j P ( V F P ) Y R _Z_ W Wh A W
0x021a24…021bb8 Dummy {f00=0x000c, f01=0x0190, f02=» @ P v @ PP @ A | - @ @ Q + @ @ A A @ /S SCP /A A x W @ P X W : R _ _ _ W V Z ' Y$ ' W 4 R _6W _:_< V f T R _V_X_ZW _^ V Zd ' Yj V
0x021bb8…021d4c Dummy {f00=0x000c, f01=0x0190, f02=» t b " T " d @ P V W @ @ A D @ V A j V W V A R _8W._<W _@ V ZF ' YL V ZB W R
0x021d4c…021ee0 Dummy {f00=0x000c, f01=0x0190, f02=» W h R _ W _ _ 0 V P$ < / V A B 8 V V Q f A | V V W W P W jW V W fW A | V W W ' W v | !$$PV !,,T W |_" 2 R _0_2_4W _8 V Z> ' YD W T R _R_T_VW _Z V
0x021ee0…022074 (1, 42) Dummy {f00=0x000c, f01=0x0190, f02=» , V =a=A V V , V =a=A w W w V t V V % V % % % W t T R _ _ _ W _ V Z ' Y" V W ~ V V , V =a=A V V , V =a=A W V V P W
0x022074…022208 Dummy {f00=0x000c, f01=0x0190, f02=» 0 B C " # ( B C # @ @ 8 A A A A A V | A @ Q @ R WVWTWRW WN V RH ' QB W W R W0W W,W W V R" ' Q W R W W W W W A 0 ) % B P Q0 $ !,, $ !FFT @ A
0x022208…02239c Dummy {f00=0x000c, f01=0x0190, f02=» j P ( + * ! T , z R WFWD_ WD F K @ Q V V R2 V U2 b W V V T f A W W W _d @ P @ P V V V V W b " ! T B C C A 0 % C ( A " ! T B C
0x02239c…022530 Dummy {f00=0x000c, f01=0x0190, f02=» 2 C ( W ( V W A L C ( _ * * 2 L V 0 , 0!!DL LINE1(,LINE2)(,C) )!!IL LINE1(,C) )!!JN (LINE1,)FILE,LINE2(,LINE3)(,C)(,L) )!!AB )!!CH (LINE1,LINE2)/STRG1/STRG2/(,C)(,L) )!!RE LINE1/
0x022530…0226c4 Dummy {f00=0x000c, f01=0x0190, f02=») )REL DATE: 80-06-12 V | W W V | V P v | W | W $$P 9H_ W : W : V | V :H v | W | Y $$ V :a V Q V % v % W Y ^ j W | V V | V V | R * W | ^ _$ W p
0x0226c4…022858 Dummy {f00=0x000c, f01=0x0190, f02=» P P , 9 9 Y V | 9a9A $ $ 9 W | X| Y $ 9 V D p T A W V T A N ; R| @ Pv A A V j = # j 0 - C ( B - C - @ @ @ !
0x022858…0229ec Dummy {f00=0x000c, f01=0x0190, f02=»REP CHT @ P WR LSP , !// , - / - R , !// $ - -_ W 8 9 : B $ DLP ILP JNTD L Q: $ ! X !CCT W !LL $ !,, * $ ! 6 ) A : W W W j P ( V ) Y @
0x0229ec…022b80 Dummy {f00=0x000c, f01=0x0190, f02=»UUT PW " P T. @ Q( P ( V A $ )_ V ( v R WDWBW W A @ P P T @ P W V V v V ZDQ R FW _T " ! T: V A A V A @ " R
0x022b80…022d14 (1, 43) Dummy {f00=0x000c, f01=0x0190, f02=» j * D EO S c _< @ T @ P V W A W V pWFWp_8_: V j A 4W V j P 0 R _r_tW W A _z b N ; : Z pW W W W B X _l Xp_2 # , T TYTF L A .
0x022d14…022ea8 Dummy {f00=0x000c, f01=0x0190, f02=» B B B V 1 L: W W , PZ V , PD ( h ) V " V P I ) * ) R W W W , , V , ( h 00 ) J R W W W W ( <V # N < V #
0x022ea8…02303c Dummy {f00=0x000c, f01=0x0190, f02=»W :!! * D EO S SYSTEM @ T @ P V W A W V W W _8_: V j A W DL LIL EN AB JN CH LS RE L COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN
0x02303c…0231d0 Dummy {f00=0x000c, f01=0x0190, f02=» AGAIN EOF SOURCE /SC,UPD TERMINATED /S CAN NOT BE ASSIGNED * AUX. INPUT CAN NOT BE ASSIGNED,TRY AGAIN STRING NOT FOUND 0000 LINES = +0000 IN /S IDENT STATEMENT UPDATED HIGHEST LINENO READ 0000 LINEPRINTER IS NOT ASSIGNED +0000 OF 0000 L
0x0231d0…023364 Dummy {f00=0x000c, f01=0x0190, f02=»'!' $$ ERROR TABLE O'FLOW,TRY AGAIN EOF IN AUXI INPUT SOURCE /SC W A W V W W _8_: V j A W DL LIL EN AB JN CH LS RE L COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN
0x023364…0234f8 Dummy {f00=0x000c, f01=0x018e, f02=» LD A1,S:ANB2,A13 LAST LINE TO BE COPIED " P ST A1,S:NB1,A13 > P LDKL A6,JNP230 d 0 P ABL COPYLL COPY DA TO D4 . P RF *+2 EOF DETECTED PJNP230 EQU * <
0x0234f8…02368c Dummy {f00=0x000c, f01=0x0190, f02=» n > P ST A1,S:NB,A13 RESTORE LINE # OF MAIN INPUT B P AB.L ILP700 INSERT LINES UP TO NEXT COMMAND J P EJECT $ PSYNTCH EQU * HELP TO BRANCH PTS P ABL SYNTAX SYNTAX ERROR PTS P* B P* CHP
0x02368c…023820 Dummy {f00=0x000c, f01=0x0190, f02=»AT END OF THE WORK AREA) t P* USED AS FOLLOWS : P* B D P* RETURN TO A6+2 IF EOF ON /DA FILE L . P* 1WORD ENTRY LENGTH (2 STRINGS) * P* 1WORD LENGTH OF 1ST STRING P* N WORDS 1S
0x023820…0239b4 (1, 44) Opaque[0x194]
0x0239b4…023b48 # DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x0239b4…023b48 IdxSect {
0x0239b4…023b48 f00 = 0x000d // 0x239b4 @0x0
0x0239b4…023b48 f01 = 0x0002 // 0x239b6 @0x2
0x0239b4…023b48 gno = [ // 0x239b8 @0x4
0x0239b4…023b48 [0x00]: C0x000d.0x0.0
0x0239b4…023b48 ]
0x0239b4…023b48 }
0x023b48…023cdc Dummy {f00=0x000d, f01=0x0190, f02=» | 8 P 4I w x b # g $ ^ : 9 i $ 7 f w x4r tV u ' qC ~5 * zuqV $ # > P ZD k c r Px oV iX % 5Zf Q > - @ $ ' 4` 1P X-8 T ~ n tB l Tg t z ^ X lBZB H X2 Z j{ z
0x023cdc…023e70 Dummy {f00=0x000d, f01=0x0190, f02=» RLINES INPUT. 1XRF 10.1 CROSS REFERENCE LISTING OF MODULE: &&&&&& DATE: YYMMDD PAGE: 0 SYMBOL DEF REFERENCES NO MORE SPACE AVAILABLE 0RESTARTED AFTER MEMORY OVERFLOW r P jW ( R ( @ R$ # X"
0x023e70…024004 Dummy {f00=0x000d, f01=0x0190, f02=» PP< _ (' X )R X*_ (" X, E PP _ D # P : @ ( ? (T , ) , ( T ( )T ) P 4 @ ( T ( T A @ ( :ENTR EEXTR@ XEXT @ XEND ` S A > @ ( *P H ( CT A > (
0x024004…024198 Dummy {f00=0x000d, f01=0x0190, f02=»Y$ Y0 Pl P, ^< Q _( W @ 7 @ 7 @ @ W 7 : V * J R ` K W _. @ _N !A Z^ !Z Yd R ) 0 !' Xv ! P !, P !
0x024198…02432c Dummy {f00=0x000d, f01=0x0190, f02=» EN . T 8 ! > *_H ! P . A < A @ B ! P *_ ! ( P @ >Q *W ! X` 0 ! Xj_ !' T ! X| !, X" !+ X( !- X. 0_ F( C R8Q> F l C (
0x02432c…0244c0 Dummy {f00=0x000d, f01=0x0190, f02=» A . D @ V " @ A W 6 A A & R Q T W@ *** + V ` P 9j D ' . R Q + G Tn @ < 0 A @ z A $ F( @ P A H " A J F( A H C ( @ x' U
0x0244c0…024654 (1, 45) Opaque[0x194]
0x024654…0247e8 # DirEnt {nam=»OBGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x024654…0247e8 IdxSect {
0x024654…0247e8 f00 = 0x000d // 0x24654 @0x0
0x024654…0247e8 f01 = 0x0002 // 0x24656 @0x2
0x024654…0247e8 gno = [ // 0x24658 @0x4
0x024654…0247e8 [0x00]: C0x000d.0x3.0
0x024654…0247e8 ]
0x024654…0247e8 }
0x0247e8…02497c Dummy {f00=0x000d, f01=0x0190, f02=» PSCR PDEL /OB PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x02497c…024b10 Dummy {f00=0x000d, f01=0x001e, f02=»2,LP0F ASG /E0,TY10 PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x024b10…024ca4 Dummy {f00=0x000d, f01=0x2008, f02=» ASG /E0,TY10 PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x024ca4…024e38 Dummy {f00=0x000d, f01=0x018e, f02=» . H IDENT Z:TB20 TRA 10.0 80-11-09 F1 O1111 Z:TB20 6 Z:TB20T H & & r & = & [ & y & & & & & & -
0x024e38…024fcc Dummy {f00=0x000d, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x024fcc…025160 Dummy {f00=0x000d, f01=0x0190, f02=» & ) & G & e $ & 4 & D & T & d & t & & 7 & U & s & & & & &
0x025160…0252f4 (1, 46) Opaque[0x194]
0x0252f4…025488 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x0252f4…025488 IdxSect {
0x0252f4…025488 f00 = 0x0019 // 0x252f4 @0x0
0x0252f4…025488 f01 = 0x0016 // 0x252f6 @0x2
0x0252f4…025488 gno = [ // 0x252f8 @0x4
0x0252f4…025488 [0x00]: C0x0019.0x3.0
0x0252f4…025488 [0x01]: C0x001a.0x0.0
0x0252f4…025488 [0x02]: C0x001a.0x1.0
0x0252f4…025488 [0x03]: C0x001a.0x2.0
0x0252f4…025488 [0x04]: C0x001a.0x3.0
0x0252f4…025488 [0x05]: C0x001b.0x0.0
0x0252f4…025488 [0x06]: C0x001c.0x1.0
0x0252f4…025488 [0x07]: C0x001c.0x2.0
0x0252f4…025488 [0x08]: C0x001c.0x3.0
0x0252f4…025488 [0x09]: C0x0007.0x3.0
0x0252f4…025488 [0x0a]: C0x0009.0x1.0
0x0252f4…025488 ]
0x0252f4…025488 }
0x025488…02561c Dummy {f00=0x0019, f01=0x018e, f02=» 8 F IDENT CTAB01 80.10.30 NJ CTAB01K @ CTAB01K R , ( / # 0123 f , ( ! 456789 < @ , ( A ,-. 0123456789 'ABCDEFGHIJK , ( a LMNOPQRSTU
0x02561c…0257b0 Dummy {f00=0x0019, f01=0x401e, f02=» z @ 80.10.30 NJ CTAB01K @ CTAB01K R , ( / # 0123 f , ( ! 456789 < @ , ( A ,-. 0123456789 'ABCDEFGHIJK , ( a LMNOPQRSTU
0x0257b0…025944 Dummy {f00=0x0019, f01=0x417e, f02=» . H IDENT T:AK00 TRA 10.0 80-11-09 F1 O1111 T:AK00 6 T:AK00A J H > : T:DK00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 D:TB20A Z:TB20A * & 0 * & P d
0x025944…025ad8 Dummy {f00=0x0019, f01=0x40c4, f02=» . H IDENT T:DK00 TRA 10.0 80-11-09 F1 O1111 T:DK00 6 T:DK00D H KBGO0 * & K0 0 * * l @ * & P d
0x025ad8…025c6c Dummy {f00=0x0019, f01=0x409a, f02=» . H IDENT T:ATAB TRA 10.0 80-11-09 F1 O1111 T:ATAB 6 T:ATABA H T:AK00 @ n :A @ @ * & P d
0x025c6c…025e00 Dummy {f00=0x0019, f01=0x4084, f02=» . H IDENT U:BTAB TRA 10.0 80-11-09 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ @ * & P d
0x025e00…025f94 (1, 47) Dummy {f00=0x001a, f01=0x4084, f02=» . H IDENT S:BTAB TRA 10.0 80-11-09 F1 O1111 S:BTAB 6 S:BTABB H :B n@
0x025f94…026128 Dummy {f00=0x001a, f01=0x40ca, f02=» . H IDENT C:CB10 TRA 10.0 80-11-09 F1 O1111 C:CB10 6 C:CB10C H * & P $ $ @
0x026128…0262bc Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:CB10 TRA 10.0 80-11-09 F1 O1111 D:CB10 6 D:CB10C H * & B * & = B @
0x0262bc…026450 Dummy {f00=0x001a, f01=0x40a4, f02=» . H IDENT C:CB20 TRA 10.0 80-11-09 F1 O1111 C:CB20 6 C:CB20C H td z @ = B @
0x026450…0265e4 Dummy {f00=0x001a, f01=0x40b8, f02=» . H IDENT D:CB20 TRA 10.0 80-11-09 F1 O1111 D:CB20 6 D:CB20C H * & & & @ = B @
0x0265e4…026778 Dummy {f00=0x001a, f01=0x40c8, f02=» . H IDENT Z:TB10 TRA 10.0 80-11-09 F1 O1111 Z:TB10 6 Z:TB10T H * & $ $ @ B @
0x026778…02690c Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:TB10 TRA 10.0 80-11-09 F1 O1111 D:TB10 6 D:TB10T H * & B * & = B @
0x02690c…026aa0 Dummy {f00=0x001a, f01=0x018e, f02=» . H IDENT Z:TB20 TRA 10.0 80-11-09 F1 O1111 Z:TB20 6 Z:TB20T H & & r & = & [ & y & & & & & & -
0x026aa0…026c34 (1, 48) Dummy {f00=0x001a, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x026c34…026dc8 Dummy {f00=0x001a, f01=0x0190, f02=» & ) & G & e $ & 4 & D & T & d & t & & 7 & U & s & & & & &
0x026dc8…026f5c Dummy {f00=0x001a, f01=0x0190, f02=» & & 5 & S $ & q 4 & D & T & d & t & & % & C & a & & & & &
0x026f5c…0270f0 Dummy {f00=0x001a, f01=0x407e, f02=» & & # & A $ & _ 4 $ } D T } h@ z t & & % & C & a & & & & &
0x0270f0…027284 Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:TB20 TRA 10.0 80-11-09 F1 O1111 D:TB20 6 D:TB20T H * & B0 * & P * d z T 2 = & < X B @ & &
0x027284…027418 Dummy {f00=0x001a, f01=0x40b2, f02=» . H IDENT NJDDIV TRA 10.0 80-11-09 F1 O1111 KBGOB 6 $$$TRAD F KBGOB X TESTR j z R_ @ = & < X B @ & &
0x027418…0275ac Dummy {f00=0x001a, f01=0x0190, f02=» . H IDENT TEST TRA 10.0 80-11-09 F1 O1111 DCSEND PRTLN TEST 6 $$$TRAS T DCSEND PRTLN TEST , f B > ATTPCKS ATTUNPAhBDE BDEINP- CRBTAB1 CRDOWN CRFTAB CRHOME > : CRNEAR CRNLT CRUPThENQ ERASUP ERWRIT EXPAND FINDL
0x0275ac…027740 Dummy {f00=0x001a, f01=0x0190, f02=» / E 6 , " 2 % * D . AB 034D 05P T 1 p 3 ; ABCD 4 = J F " D 0X 4 R E! 1L 2 hL21E T E"jL2 E R 4 NL <L RN< < NL RN<
0x027740…0278d4 (1, 49) Dummy {f00=0x001a, f01=0x018e, f02=» ` * b . g ! i 0 0 o @ s ERRORLINE IS LINE 23 P u t y ` ` ` { } J F " D @ DL RD @< RD 9L R 9L R R ML RM ML RM
0x0278d4…027a68 Dummy {f00=0x001a, f01=0x0190, f02=» $ 4 D T d t
0x027a68…027bfc Dummy {f00=0x001a, f01=0x0190, f02=» R R R R R R R R R R R R R R R R R 5L 6L 1L R 1L | 4 : J 4 Z j 0002 01 z bABC $ bDEF ' bG '!bHID J F " D R < 0X NK<=
0x027bfc…027d90 Dummy {f00=0x001a, f01=0x0190, f02=» 7 12345678 ABCD PQRS 8 % : J ( ( Z / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x027d90…027f24 Dummy {f00=0x001a, f01=0x4068, f02=» " @ & & . " ( 0 @R R?R4 P < G R@ d / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x027f24…0280b8 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT CURSOR TRA 10.0 80-11-09 F1 O1111 80.10.29 NJ B > CRBTAB CRDOWN CRFTAB CRHOME CRNEAR CRNL CRUP POSCUR B $$$TRAR @ < CRBTAB S CRDOWNC CRFTABH CRHOMEA CRNEARC CRNLS L CRUPR POSCURA PULLA PUSHC
0x0280b8…02824c Dummy {f00=0x001a, f01=0x0190, f02=»9 0X 9 R 4 R 1: : 2LhL:2! T : j9 L:0X 9 z H 8 M H ` T X J F " D @: W :1 R 4 R 3: 6 j6 9 5 4LhL:4! T' : jD L: D! j5 L: 56 j T
0x02824c…0283e0 Dummy {f00=0x001a, f01=0x0190, f02=»4LhL:4! T; : jD L: D!.j6 L:*16 56_( 51 61 R | : J Z $ T j J F " D W 95W 96 3 0X 9W :3 R 4 R 1: 2LhL:2! T : jD L: D! j9 L | B O T a T
0x0283e0…028574 (1, 50) Dummy {f00=0x001a, f01=0x0190, f02=» Q T J F " D 9 :2 : W :3 R 4 R 19 3: 1L 21 DLj2 D : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x028574…028708 Dummy {f00=0x001a, f01=0x4060, f02=» A @34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 R 4 R y } J@ : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x028708…02889c Dummy {f00=0x001a, f01=0x4184, f02=» : H IDENT BDE TRA 10.0 80-11-09 F1 O1111 80.10.09 NJ hBDE B $$$TRAE P hBDE b BDEINPE DCSENDA UNPCK r 00020 $ & / 00020 J F " D HLjH B jH C jH A
0x02889c…028a30 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT BDEINP TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ ! BDEINP ! B $$$TRAE ! T BDEINP ! f > : ATTPCKE ATTUNPA CRFTAB0 CRHOMEF ERASUP FINDLN0 KBREAD ! z PULLN PUSH T:DSC1 ! / ! !
0x028a30…028bc4 Dummy {f00=0x001a, f01=0x416a, f02=» ! @ G " A $ " B $ " * C $ " : D ] " J E $ " Z F $ " j J F " D R R RR 4 2: RL: 4: : I< > W > < RL: R<K=>V 0X 9_ 2= RR " z N " T " X " ^ "
0x028bc4…028d58 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT ENQ TRA 10.0 80-11-09 F1 O1111 80.11.09 NJ # hENQ # B $$$TRAQ # P hENQ # b @ < DCSENDQ ERWRITA KBREAD0 LEAD9 POSCUR1 PULL. PUSH T:EDWR # r UNPCK UNPPRT # / # # #
0x028d58…028eec Dummy {f00=0x001a, f01=0x018e, f02=» " # # $ $ $ % q $ 0 & $ @ ' $ P , $ ` J F " D R 1X F L! <L R< < R<K= Z 2= RRRRRRRRR 4 R jL4 G 4 jL4 N FN $ p E $ H $ J $ Q $ S
0x028eec…029080 Dummy {f00=0x001a, f01=0x0190, f02=» c % e % { % $ ~ ( % 6 % H J F " D @ 4 <L =L R<= < R<K= ZU2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L % X % % % % % c %
0x029080…029214 (1, 51) Dummy {f00=0x001b, f01=0x0190, f02=» % & & J F " D R<= < R<K= Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K & * & x & & q & q & q & q & q & q &
0x029214…0293a8 Dummy {f00=0x001b, f01=0x0190, f02=» & q ' q ' q ' , q ' < q ' L q ' J F " D = Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K= Z 2= RRR ' l ' 00030 01 ' 4 ' @ 99 ' J F
0x0293a8…02953c Dummy {f00=0x001b, f01=0x0190, f02=» ' S ( ^ ( ` ( ( . + ) e #QERR1 - INVALID FUNCTION SELECTION ( 8 g ( j * & $ l QERR2 - ENQUIRY NOT AVAILABLE ( z n ( r ( | ( J F " D @L A5 R <L R< < R<K= I4 *4 ?R RW IL RW
0x02953c…0296d0 Dummy {f00=0x001b, f01=0x018e, f02=» & ( & ENQUIRIES AVAILABLE ) & ) 0 & ) > & ) L SAVINGS ) Z $ N ) r ACCOUNT ) $ N ) BALANCE ) $ N ) & ) 01 ) $ N ) &
0x0296d0…029864 Dummy {f00=0x001b, f01=0x0190, f02=» ) " AND LAST FIVE ENTRIES * $ N * . 02 * > $ N * P & * ` & * n CURRENT * | $ N * ACCOUNT * $ N * BALANCE * $ N * & *
0x029864…0299f8 Dummy {f00=0x001b, f01=0x0190, f02=» BALANCE * $ N + " AND LAST FIVE ENTRIES + ( $ N + N 04 + ^ $ N + p & + & + CURRENT + $ N + ACCOUNT + $ N + DETAILS + $
0x0299f8…029b8c Dummy {f00=0x001b, f01=0x0190, f02=»ACCOUNT + $ N , VOUCHERS , $ N , 8 & , H 06 , V $ N , h & , x & , ACCOUNT , $ N , INTERIM STATEMENT , $ N , & , 07 ,
0x029b8c…029d20 Dummy {f00=0x001b, f01=0x40e2, f02=» & , ! TYPE - $ ! - " & - 2 " PRINTER - @ $ " - X & - h # VOUCHER - v $ # - & - ( - 4 R - - @ - N , & , 07 ,
0x029d20…029eb4 (1, 52) Dummy {f00=0x001c, f01=0x4140, f02=» : H IDENT EXPAND TRA 10.0 80-11-09 F1 O1111 80.11.03 NJ . EXPAND . B $$$TRAP . T EXPAND . f PULLR PUSH . z . . J F " D R 1 2 3 D%h 23D T1jF 2 ILj 2 I jE F @E 4@ 4 U d 24I 2 . J .
0x029eb4…02a048 Dummy {f00=0x001c, f01=0x40fc, f02=» : H IDENT FINDLN TRA 10.0 80-11-09 F1 O1111 80.11.03 NJ / FINDLN / B $$$TRAN / T FINDLN / f PULLR PUSH / z / # / 2 - + R 2 1 jD 1 D" D! < 1 2 Y R 4 / # ' / @ /
0x02a048…02a1dc Dummy {f00=0x001c, f01=0x018e, f02=» : H IDENT KBREAD TRA 10.0 80-11-09 F1 O1111 80.11.07 NJ 0 FIND00 KBREAD 0 B $$$TRAR 0 FIND00 KBREAD 0 n . * PULLR PUSH SCRWR T:DSC11 T:KIF T:LWRI 0 0 P 0 0 ++.S 0
0x02a1dc…02a370 Dummy {f00=0x001c, f01=0x018e, f02=» P 1 J F " D @ 42 R ?R 1 W "1 @7 1 5 Q K7(A665 :y W 21 1 1 b J F " D 2 2 jI31N 31 3 79 73_r 21 2 jI31N 31 3 79 73_ jI31N ELdI 1 r + 1 1 1 1 J F " D
0x02a370…02a504 Dummy {f00=0x001c, f01=0x0190, f02=» 1 . 2 J F " D I ELdM E RM 63 6 fM 3 7 DLhM7 D DLjM7 D 0X M6 79 73 21 2 3 2 B ) 2 f D 2 v I 2 N 2 S 2 X 2 m 2 w 0L 2 2 J F " D @1?R0X 90X
0x02a504…02a698 Dummy {f00=0x001c, f01=0x40a0, f02=» 2 3 3 J F " D 9 RN4W RN 4 0X 4 6 R 4 DL 6 7Lh 67D 76 7 jD N7-DL 3 * 6 4 3 x 3 @ 3 S 2 X 2 m 2 w 0L 2 2 J F " D @1?R0X 90X
0x02a698…02a82c Dummy {f00=0x001c, f01=0x40b8, f02=» : H IDENT LEAD TRA 10.0 80-11-09 F1 O1111 80,10,09 NJ 4 LEAD 4 B $$$TRAA 4 R LEAD 4 d ( # ! G!jG 9 jG ' W jG ( 4 4 v EA 4 @ 4 YOU NEED EQUATES. * 6 1*
0x02a82c…02a9c0 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT SCWRIT TRA 10.0 80-11-09 F1 O1111 80.10.28 NJ 5 ERWRIT SCRWR SCWRIT 5 B $$$TRAW 5 b " ERWRIT 9 SCRWR SCWRIT 5 t * & POSCURW PULLT PUSH. T:DSC1- T:LWRI1 5 5 5 5 5
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x001c, f01=0x409c, f02=»EL M dM E 1 1 0X M1 R 4 <L = 5 l D 6 * M ++ 6 : U 6 L & ! @R<=0X M ELdM E 0X M 4 L 6 U [ 6 @ 6
0x02ab54…02ace8 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT UNPCK TRA 10.0 80-11-09 F1 O1111 80.11.04 NJ UNPCK B $$$TRAP R UNPCK d B > ATTUNPP ERASUPA FINDLN0 LOLITEF PULL1 PUSH. T:DSC1J T:LWRI v ; J F " D R GK@0@1@2@3 2 5 j2 K5 2 62
0x02ace8…02ae7c Dummy {f00=0x001c, f01=0x018e, f02=» g l J F " D @2H0 FL0X F H1 1L0X 10X 1L 1 H2 RH3 R 4 L!jD K5 15 1 j $ r J F " D 9 K1 9LjK1 9 0X 9 1 jD K1 D"V 35 3 < RK3 2< RK1I5 H; I: W
0x02ae7c…02b010 Dummy {f00=0x001c, f01=0x401a, f02=» @ J F " D @2H0 FL0X F H1 1L0X 10X 1L 1 H2 RH3 R 4 L!jD K5 15 1 j $ r J F " D 9 K1 9LjK1 9 0X 9 1 jD K1 D"V 35 3 < RK3 2< RK1I5 H; I: W
0x02b010…02b1a4 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT UNPPRT TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ UNPPRT B $$$TRAP T UNPPRT f PRTLN PULL PUSH1 z ++ Q J F " D R 1 EL 4LjM 4 1 D$ 3 hM34D 2 D#hM24D T $32 12 42
0x02b1a4…02b338 Dummy {f00=0x001c, f01=0x4062, f02=»45 4LdM E jM4 ? RM ELI7 EL 1 jD 1 D" D! _s R 4 ~ < @ L@ ^ UNPPRT f PRTLN PULL PUSH1 z ++ Q J F " D R 1 EL 4LjM 4 1 D$ 3 hM34D 2 D#hM24D T $32 12 42
0x02b338…02b4cc Dummy {f00=0x001c, f01=0x417a, f02=» : H IDENT PUSH TRA 10.0 80-11-09 F1 O1111 80.10.28 NJ PULL PUSH B $$$TRAS X PULL U PUSH j J F " D 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; J F " D @ jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j
0x02b4cc…02b660 Dummy {f00=0x001c, f01=0x018e, f02=» : H IDENT ERASUP TRA 10.0 80-11-09 F1 O1111 80.11.04 NJ ERASUP LOLITE B $$$TRAA ERASUP LOLITE n B > ATTPCKA ATTUNPA CRHOME0 FINDLNF PULL1 PUSH. T:DSC1J T:LWRI 0 2 2
0x02b660…02b7f4 (1, 54) Dummy {f00=0x001c, f01=0x0190, f02=» V X ] $ J F " D @0X 90X <@: RL4 3<_F R R 4 R 3 E!j4 E jD L3 3 j9 L3 94? 3 4 ++ J
0x02b7f4…02b988 Dummy {f00=0x001c, f01=0x40d2, f02=» , < L J F " D 1 2LhL12E T. 1 j9 L10X 9 1 RL1A8 RL1 1 < =L RL1=0X < R R 4 @ J
0x02b988…02bb1c Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT ATTRIB TRA 10.0 80-11-09 F1 O1111 80.10.31 NJ ATTPCK ATTUNP TMASK B $$$TRAT b " ATTPCK < ATTUNPT TMASK + t MASKR PULL PUSH1 + + + +
0x02bb1c…02bcb0 Dummy {f00=0x001c, f01=0x4076, f02=» W @ 224 R X g 6 1 / @1LH8 1 H9 1 H: 1 H; 1 H< 1 j 1 R 4 3 & g k `@ r ATTPCK < ATTUNPT TMASK + t MASKR PULL PUSH1 + + + +
0x02bcb0…02be44 Dummy {f00=0x001c, f01=0x2008, f02=» B L = KMD020 DATE = 801103 6876PACK NBR = 0020
0x02be44…02bfd8 Dummy {f00=0x001c, f01=0x40b2, f02=» . H IDENT NJDDIV TRA 10.0 80-11-06 F1 O1111 KBGOB 6 $$$TRAD F KBGOB X TESTR j z R_ @ = & < X B @ & &
0x02bfd8…02c16c Dummy {f00=0x001c, f01=0x8190, f02=» . H IDENT TEST TRA 10.0 80-11-06 F1 O1111 DCSEND PRTLN TEST 6 $$$TRAS T DCSEND PRTLN TEST , f B > ATTPCKS ATTUNPAhBDE BDEINP- CRBTAB1 CRDOWN CRFTAB CRHOME > : CRNEAR CRNLT CRUPThENQ ERASUP ERWRIT EXPAND FINDL
0x02c16c…02c300 Dummy {f00=0x001c, f01=0x818e, f02=» U z 4 , * % * < . AB 034D 05P L 1 h 3 z ; ABCD 4 = J F " D 0X 4 R E! 1L 2 hL21E T E"jL2 E R 4 NL <L RN< < NL RN< C
0x02c300…02c494 (1, 55) Dummy {f00=0x0007, f01=0x018e, f02=» ` * b . g ! i 0 0 o @ s ERRORLINE IS LINE 23 P u t y ` ` ` { } J F " D @ DL RD @< RD 9L R 9L R R ML RM ML RM
0x02c494…02c628 Dummy {f00=0x0007, f01=0x0190, f02=» $ 4 D T d t
0x02c628…02c7bc Dummy {f00=0x0007, f01=0x0190, f02=» R R R R R R R R R R R R R R R R R 5L 6L 1L R 1L | 4 : J 4 Z j 0002 01 z bABC $ bDEF ' bG '!bHID J F " D R < 0X NK<=
0x02c7bc…02c950 Dummy {f00=0x0007, f01=0x0190, f02=» 7 12345678 ABCD PQRS 8 % : J ( ( Z / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x02c950…02cae4 Dummy {f00=0x0007, f01=0x4068, f02=» " @ & & . " ( 0 @R R?R4 P < G R@ d / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x02cae4…02cc78 Dummy {f00=0x0007, f01=0x0190, f02=» : H IDENT CURSOR TRA 10.0 80-11-09 F1 O1111 80.10.29 NJ B > CRBTAB CRDOWN CRFTAB CRHOME CRNEAR CRNL CRUP POSCUR B $$$TRAR @ < CRBTAB S CRDOWNC CRFTABH CRHOMEA CRNEARC CRNLS L CRUPR POSCURA PULLA PUSHC
0x02cc78…02ce0c Dummy {f00=0x0007, f01=0x0190, f02=»9 0X 9 R 4 R 1: : 2LhL:2! T : j9 L:0X 9 z H 8 M H ` T X J F " D @: W :1 R 4 R 3: 6 j6 9 5 4LhL:4! T' : jD L: D! j5 L: 56 j T
0x02ce0c…02cfa0 Dummy {f00=0x0007, f01=0x0190, f02=»4LhL:4! T; : jD L: D!.j6 L:*16 56_( 51 61 R | : J Z $ T j J F " D W 95W 96 3 0X 9W :3 R 4 R 1: 2LhL:2! T : jD L: D! j9 L | B O T a T
0x02cfa0…02d134 (1, 56) Dummy {f00=0x0009, f01=0x0190, f02=» Q T J F " D 9 :2 : W :3 R 4 R 19 3: 1L 21 DLj2 D : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x02d134…02d2c8 Dummy {f00=0x0009, f01=0x4060, f02=» A @34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 R 4 R y } J@ : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x02d2c8…02d45c Dummy {f00=0x0009, f01=0x4184, f02=» : H IDENT BDE TRA 10.0 80-11-09 F1 O1111 80.10.09 NJ hBDE B $$$TRAE P hBDE b BDEINPE DCSENDA UNPCK r 00020 $ & / 00020 J F " D HLjH B jH C jH A
0x02d45c…02d5f0 Dummy {f00=0x0009, f01=0x0190, f02=» : H IDENT BDEINP TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ ! BDEINP ! B $$$TRAE ! T BDEINP ! f > : ATTPCKE ATTUNPA CRFTAB0 CRHOMEF ERASUP FINDLN0 KBREAD ! z PULLN PUSH T:DSC1 ! / ! !
0x02d5f0…02d784 Dummy {f00=0x0009, f01=0x416a, f02=» ! @ G " A $ " B $ " * C $ " : D ] " J E $ " Z F $ " j J F " D R R RR 4 2: RL: 4: : I< > W > < RL: R<K=>V 0X 9_ 2= RR " z N " T " X " ^ "
0x02d784…02d918 Dummy {f00=0x0009, f01=0x0190, f02=» : H IDENT ENQ TRA 10.0 80-11-09 F1 O1111 80.11.09 NJ # hENQ # B $$$TRAQ # P hENQ # b @ < DCSENDQ ERWRITA KBREAD0 LEAD9 POSCUR1 PULL. PUSH T:EDWR # r UNPCK UNPPRT # / # # #
0x02d918…02daac Dummy {f00=0x0009, f01=0x018e, f02=» " # # $ $ $ % q $ 0 & $ @ ' $ P , $ ` J F " D R 1X F L! <L R< < R<K= Z 2= RRRRRRRRR 4 R jL4 G 4 jL4 N FN $ p E $ H $ J $ Q $ S
0x02daac…02dc40 Dummy {f00=0x0009, f01=0x0190, f02=» c % e % { % $ ~ ( % 6 % H J F " D @ 4 <L =L R<= < R<K= ZU2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L % X % % % % % c %
0x02dc40…02ddd4 (1, 57) Opaque[0x194]
0x02ddd4…02df68 # DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x02ddd4…02df68 IdxSect {
0x02ddd4…02df68 f00 = 0x0004 // 0x2ddd4 @0x0
0x02ddd4…02df68 f01 = 0x0002 // 0x2ddd6 @0x2
0x02ddd4…02df68 gno = [ // 0x2ddd8 @0x4
0x02ddd4…02df68 [0x00]: C0x0004.0x3.0
0x02ddd4…02df68 ]
0x02ddd4…02df68 }
0x02df68…02e0fc Dummy {f00=0x0004, f01=0x0110, f02=» PSCR PMES TESTPROGRAM GENERATION PMES BARCLAY 2 PPRT TSTGEN L PPRT TESTFI ^ PTRA NJDDIV,NL p PTLK U,M PLKE M PKPF /L,A:TEST PASG 2,NO P$PDISC A=A:TEST PASG 2,LP0F PSCR PASG /E0,
0x02e0fc…02e290 Dummy {f00=0x0004, f01=0x2008, f02=» PMES TESTPROGRAM GENERATION PMES BARCLAY 2 PPRT TSTGEN L PPRT TESTFI ^ PTRA NJDDIV,NL p PTLK U,M PLKE M PKPF /L,A:TEST PASG 2,NO P$PDISC A=A:TEST PASG 2,LP0F PSCR PASG /E0,
0x02e290…02e424 Dummy {f00=0x0004, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l HMES ILLEGAL PARAMETER COMBINATION !!! v * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x02e424…02e5b8 Dummy {f00=0x0004, f01=0x0190, f02=»
[…0x2…]
0x02e8e0…02ea74 (1, 58) Opaque[0x194]
0x02ea74…02ec08 # DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x02ea74…02ec08 IdxSect {
0x02ea74…02ec08 f00 = 0x0014 // 0x2ea74 @0x0
0x02ea74…02ec08 f01 = 0x0004 // 0x2ea76 @0x2
0x02ea74…02ec08 gno = [ // 0x2ea78 @0x4
0x02ea74…02ec08 [0x00]: C0x0014.0x3.0
0x02ea74…02ec08 [0x01]: C0x0015.0x0.0
0x02ea74…02ec08 ]
0x02ea74…02ec08 }
0x02ec08…02ed9c Dummy {f00=0x0014, f01=0x0190, f02=» P IDENT ATTRIB 80.10.31 NJ P DDUM NJDDIV & P* : 0 P* THIS MODULE TAKENS HAND ON CONVERTING THE D 2 P* ATTRIBUTE CHARACTER TO AND FROM 5 BOOLEANS. x * P* IN THIS WAY IT IS EASIER TO TEST AND P* MODIFY THE ATTRIBUTE CHAR P*
0x02ed9c…02ef30 Dummy {f00=0x0014, f01=0x0190, f02=»,PBIN P EJECT PATTUNP PROC BUF,DISP P* 8 * P* THE PROCEDURE UNPACKS THE ATTRIBUTE B P* INTO 5 BOOLEANS: p P* TANODISP - NON-DISPLAY P* TAHILITE - HIGHLIGHT P* TAMODIF - MODIFIED P* TAPROTEC - PROTECTED
0x02ef30…02f0c4 Dummy {f00=0x0014, f01=0x0190, f02=»E TBIN1,CBIN0 P MOVE TBIN2,CBIN0 > P XCOPY TBIN1,CBIN1,CBIN1,BUF,DISP MOVE ATTRIBUTE CHARACTER 0 . P MOVE TBIN2,CBIN1 START WITH RIGHTMOST BIT r 4 P PERF TMASK,TANODISP SET BOOLEAN IF BIT WAS SET P PERF TMASK,TAHILITE P PERF TMASK,TAMO
0x02f0c4…02f258 Dummy {f00=0x0014, f01=0x0190, f02=»ODISP PATT010 P PERF PULL,CBIN2 P RET 4 P PEND @ P EJECT N PTMASK PROC BOO P* r 6 P* THE PROCEDURE TAKES THE LOGICAL PRODUCT OF TBIN1 | 0 P* AND TBIN2. IF THE BIT WAS SET, THE BOOLEAN 4 P* SPECIFIED IN THE PARAMETER,
0x02f258…02f3ec Dummy {f00=0x0014, f01=0x0190, f02=» PBOOL BOO P CALL MASK,TBIN1,TBIN2 P BZ TMA010 BIT(S) OFF 0 P SET BOO N P B TMA020 ^ PTMA010 p P CLEAR BOO ~ PTMA020 & P ADD TBIN2,TBIN2 NEXT BIT, PLEASE " P IS EQUIVALENT TO MULT BY 2 P OR ADDING TO ITSELF
0x02f3ec…02f580 Dummy {f00=0x0014, f01=0x0190, f02=»* AND MOVES IT TO THE SPECIFIED POSITION. P* 2 P PSTRG BUF < P PBIN DISP N P ` P PERF PUSH,CBIN1 h . P MOVE TBIN1,=W'96' BIT 7 AND 6 ALWAYS SET & P TBF TANODISP,ATTP010 NON-DISPLAY? P ADD TBIN1,CBIN1 SET BIT1 PATTP010
0x02f580…02f714 (1, 59) Dummy {f00=0x0015, f01=0x4176, f02=»BIN4 PATTP030 P TBF TAPROTEC,ATTP040 P ADD TBIN1,CBIN8 : PATTP040 R P TBF TARITJUS,ATTP050 b P ADD TBIN1,CBIN16 PATTP050 , P* THE ATTRIBUTE CHARACTER IS CREATED NOW , P* AND SHALL NOW BE MOVED INTO THE BUFFER &
0x02f714…02f8a8 Dummy {f00=0x0015, f01=0x2008, f02=» N8 ATTP040 TBF TARITJUS,ATTP050 " ADD TBIN1,CBIN16 @ ATTP050 Z , )* THE ATTRIBUTE CHARACTER IS CREATED NOW j , (* AND SHALL NOW BE MOVED INTO THE BUFFER & ! XCOPY BUF,DISP,CBIN1,TBIN1,CBIN1 PERF PULL,1
0x02f8a8…02fa3c Dummy {f00=0x0015, f01=0x0190, f02=» W @5 W @5 4 1 2 3 * & D%h 23D T1jF 2 I"j 2 I jE . * & F @E @EU 4@d 24I 32 2 24_: * & ) 4 2 1 jD 1 D" D! < * & G 1 2 Y 4 4 2 I! D! * & e D 3 8 @60 1 P 12
0x02fa3c…02fbd0 Dummy {f00=0x0015, f01=0x0190, f02=»I31 p * & 31 3 21 2 _{ 3 2 _ dI3 D J1 * & 78 73jJ 7I3 7 0 J7 2 _ fI3 < * & J1 78 73jJ 7I3 7 0 J7 2 3 _ j * & 7 0 90 40 9_ H6 jI31 I * & U 31 3 21 2 I#d 2I 0 9 * & s 2 4
0x02fbd0…02fd64 Dummy {f00=0x0015, f01=0x0190, f02=» 0 M E&dM E 0 ~ * & M 4 GK@0@1@2@3 2 5 j2 K * & 5 2 62 W A0W A1W A2W A3 5 J * & ' _% 9 H1 @2H0 G/0 G H1 1 0 x * & E 10 1 1 H2 H3 4 L" * & c jD K5 15 1 j9 K1 9 0 9 1 j * &
0x02fd64…02fef8 Dummy {f00=0x0015, f01=0x0190, f02=» _J 4 6 1 E&jJ 1 D$ 3 * & hJ3 D 2 D#hJ2 D T $12 13 * * & 43@7W 12 42A7 64 41 5 54fJ4 X * & 5 5 4 4 jJ E jJ4 > J E"I7 E * & S $ 6 j 6 ?6-$ jO; 8 ; jO * & q ; 7 ; jO; 6 ; jO; 5 ; jO; 4
0x02fef8…03008c Dummy {f00=0x0015, f01=0x0190, f02=» l * & O; ; j3 O; ; j2 O; ; j1 O; * & ; ; ; 4 3 jD L3 D"4 3 j 8 * & % 9 L1 3 43 3 < L<H; I: 0 f * & C 90 <@: L4 3<_> 4 3 j * & a D L3 D"A 3 j9 L1 3 13 L1 3 * & < L<I9 0 9
0x03008c…030220 Dummy {f00=0x0015, f01=0x0190, f02=»<0 < L3A8 L3 z * & 4 1 2 j1 2 8 9 * & : ; <H9 @8 4 0 12P A W @ F * & 3 224 1 H8 1 H9 1 H: 1 H t " Q ; 1 H< 1 j 1 4 T:CAT f T:WRIT T:DSC1 T:EDWR
0x030220…0303b4 (1, 60) Opaque[0x194]
0x0303b4…030548 # DirEnt {nam=»TESTFI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x0303b4…030548 IdxSect {
0x0303b4…030548 f00 = 0x0010 // 0x303b4 @0x0
0x0303b4…030548 f01 = 0x0002 // 0x303b6 @0x2
0x0303b4…030548 gno = [ // 0x303b8 @0x4
0x0303b4…030548 [0x00]: C0x0010.0x0.0
0x0303b4…030548 ]
0x0303b4…030548 }
0x030548…0306dc Dummy {f00=0x0010, f01=0x012e, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x0306dc…030870 Dummy {f00=0x0010, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x030870…030a04 Dummy {f00=0x0010, f01=0x0190, f02=» W 95W 96W 3 0 9W :34 3: 4 hL:4! T : j9 L:0 9 : W :34 3: 5 : 4 hL:4! T : 65j5 L: 59 960 9 : W :34 19 3: 13 1 21 D j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 94 3 3 7 j3 5 j7 6 37 GW
0x030a04…030b98 Dummy {f00=0x0010, f01=0x0190, f02=»E F @E @ 6@ I d 86I 7 76 7 _;4 6 1 jD 1 D" D! 7 1 61_ 4 1 I 8 @60 1 P 1 _! _) 1 Q(21 _; 2172 C'A6jI82N 82 8 _S_U_W_Y_[H6 2 21 I d 1I 0 9 2 4 G!jG 9 6 jG ' W jG ( 4 * 0 9 J jJ 1 1 0 J14
0x030b98…030d2c Dummy {f00=0x0010, f01=0x0190, f02=» ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 ; & ( * , p R @ i T Q++++ / 0
0x030d2c…030ec0 Dummy {f00=0x0010, f01=0x0190, f02=» V C / <H "!@ : C C W C C J X ' W 781"&$ 39#$;< '()*+,-! > P _D B 'W ( Wb ( 1W" C C C " ( ' P. H P$
0x030ec0…031054 (1, 61) Opaque[0x194]
0x031054…0311e8 # DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x031054…0311e8 IdxSect {
0x031054…0311e8 f00 = 0x0002 // 0x31054 @0x0
0x031054…0311e8 f01 = 0x000e // 0x31056 @0x2
0x031054…0311e8 gno = [ // 0x31058 @0x4
0x031054…0311e8 [0x00]: C0x0002.0x0.0
0x031054…0311e8 [0x01]: C0x0005.0x0.0
0x031054…0311e8 [0x02]: C0x0007.0x1.0
0x031054…0311e8 [0x03]: C0x0009.0x3.0
0x031054…0311e8 [0x04]: C0x000e.0x3.0
0x031054…0311e8 [0x05]: C0x000f.0x0.0
0x031054…0311e8 [0x06]: C0x001d.0x0.0
0x031054…0311e8 ]
0x031054…0311e8 }
0x0311e8…03137c Dummy {f00=0x0002, f01=0x0190, f02=» /D0 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 > c @ z ^ ^ j X H 2 Z i% z
0x03137c…031510 Dummy {f00=0x0002, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A 4 " _ @ > > U H ( ( P c P W. A V ( U P @ NV L N > U
0x031510…0316a4 Dummy {f00=0x0002, f01=0x0190, f02=» A 8 A 6Q _ A 6 < Q 0 P 0 Q 0 Z Y _ 8 Q Z P 0 9 t t_ j _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? RW ? W ? T T U U U
0x0316a4…031838 Dummy {f00=0x0002, f01=0x0190, f02=» Q Q > > 0 @ p 1 A p P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ jV ? j > _ > ? _ > > ? ^ ! Y ^ _ > ? 6A. n #M 1
0x031838…0319cc Dummy {f00=0x0002, f01=0x0190, f02=»P P 0 X T Y Wn U U T X^ T E Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > Z X "X 8' T 8Z" X ' X (@ L P P "& (@ > z $P$ D P
0x0319cc…031b60 Dummy {f00=0x0002, f01=0x0190, f02=» 9WD B 7P P A W A @ A.W ? A 4I.9 X R C C B ?A @ A. X V 9_: B @ J ( H ( 0 ) t $P $ ) U @ C W : 0P P > T C T" V$ Y ( Pp q
0x031b60…031cf4 (1, 62) Dummy {f00=0x0005, f01=0x0190, f02=» C | 8W T 8P Y ^ 5 ) P U XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P W P Y (@ 2 0 _
0x031cf4…031e88 Dummy {f00=0x0005, f01=0x0190, f02=» X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0P 1 _ t W Y > > T t P | _ t ? ^ 4 _ P P @ 1 A _ P 9 > >
0x031e88…03201c Dummy {f00=0x0005, f01=0x0190, f02=» B ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z ? Z > P~ "R~ Y Pj T P` <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ t | ? 8!
0x03201c…0321b0 Dummy {f00=0x0005, f01=0x0190, f02=» (" W C (@ > Y Y Y X 9BV$ X " Y X D V B X ? X V Y ! W@ Y U -P -P R X ( ) Y * X P Y C B P T B % X * $ 4 T % W X (T ! W Y *
0x0321b0…032344 Dummy {f00=0x0005, f01=0x0190, f02=»T ! P B Z W W ! V* T ! P C ! L 0 Z ! P B Z ZH X * ,T T W X (P Y * 0 %_. % Y * _d _ P _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c
0x032344…0324d8 Dummy {f00=0x0005, f01=0x0190, f02=» PB P8 B P B L # +P ! ! T ! Y " ! W ! ! W ! Y Y Z * U P" T Y "_. P4 R( Pj O]> V _F T Y Y " V Y _^ C _P * *" $ P X " X ]r ! Y Y Y _ " _ !
0x0324d8…03266c Dummy {f00=0x0005, f01=0x0190, f02=»P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q J | -_ ? _ X # ! ^ Y _( ? X Z ! P0 P X _ X " * ! ! X " @ p l ` ! P P $ & B P B H
0x03266c…032800 Dummy {f00=0x0005, f01=0x0190, f02=»T _ U D ! T _ $$ X" X& X* C * 8 X`" E jP( 8'0P E jTD ! T 9 _ ! T @_ ! * B P ! B C 8 ^N P R ?] _ C _ * *" $ P X # X ] ! J B ! P ! !
0x032800…032994 (1, 63) Dummy {f00=0x0007, f01=0x0190, f02=» Y > X " X "" Y %Q Y > X Z2<BR > ? Y ! T X ! Y " Zl ~ T _ ! X $ P ! j H R V P P" ! W | X $ X ! j_ X $ X X " ! & ! Y _8 X " X "" Y %U W ! ! !
0x032994…032b28 Dummy {f00=0x0007, f01=0x0190, f02=» `R Y ! ! ! 4 ! V ! V W :h ! 4 X %" X ## R 4 > ? X V Y ! W< Y U R -P X ( ) Y * X P Y P C WT X " PP:A: R Q W Y <D X ? ?:
0x032b28…032cbc Dummy {f00=0x0007, f01=0x0190, f02=» V ! P B P X " _Z B P$ $$ R % C * ! PW Y 'PH Y &P> Y $P Y %P R _Q P OR R W " ! P B Wr W 0 Z ! P B Z Z& X * ,T T W X (P Y * 0 %_. % Y * W _p P _ C
0x032cbc…032e50 Dummy {f00=0x0007, f01=0x0190, f02=» ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > TT , _ "RT PL X TF X R@? V X " X H P B X P t
0x032e50…032fe4 Dummy {f00=0x0007, f01=0x0190, f02=» P ?_ = > = > = =_: R _ 00 > & <h$ P > !"#$%& () +,-./ N / # 0123456789 < @,-. 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ > ?;_: =!"#$%&/() ^ABCDEFGHI
0x032fe4…033178 Dummy {f00=0x0007, f01=0x0190, f02=») @) E D P _ $ % $P _ % A >f A A A @ " Q" :d @ # U R>P0 P ) $H A( $H P2 $ _ * A & W * A & W :a2 * A $ ( & W F W @ F W CRP BAP COP A W F A @ :
0x033178…03330c Dummy {f00=0x0007, f01=0x0190, f02=» + R" W W V V 8 !RRT W V X W W V V V PF A @ + U U^ A Q + VD Y2 W V @ " TJ W P + Y )
0x03330c…0334a0 Dummy {f00=0x0007, f01=0x0190, f02=» A W ) T F W V ) = V W Y( P Z& = :L < P W <9B @ V W Q ) W @) A (, @ V W ! P W @ V P _ @ ! P* ( 9h !RRP
0x0334a0…033634 (1, 64) Dummy {f00=0x0009, f01=0x0190, f02=» :l 9b ) V _ @ V^ " " W A" A"l W W $H $H PH $ " W> $H T $@ $HW $@ " ', W @ W " " "X " "X # # # "X # # # "X # # " "X " "X
0x033634…0337c8 Dummy {f00=0x0009, f01=0x0190, f02=»CC A" " _ 0 !;; # "X_ S A'e A' ', @ R @ ! T A& A' @ V V I ) W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W ) nX T " : $H : ) "
0x0337c8…03395c Dummy {f00=0x0009, f01=0x0190, f02=»P !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : # : # : # : # : # : # : 0 )T : !00T W : ) TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : $@ C. # X C.9h! $@ $@# " $@ $@ :A K :
0x03395c…033af0 Dummy {f00=0x0009, f01=0x0190, f02=»W % A A% A% A% A% A( A" A'2 A'H : 9e :e Q P 9e @ P A 9C) A I " @ ! P " :B A t q B J " n : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A t
0x033af0…033c84 Dummy {f00=0x0009, f01=0x0190, f02=» h:B* A @ P A B J 4R 4 :B 4 @ : V V 49B @ 4R @ t w A I ! j : & A( A" A'2 A'H A& ! T ' & W A& A& I ! : 9D @ @ r s @ A I T - A _ I N T V S : ) '2
0x033c84…033e18 Dummy {f00=0x0009, f01=0x0190, f02=» d C !CCTx xB. # <X B.9 H Q & _ $ _ !SSTF 0 U P A X X W W X X S W W W : V W V T W P ( V T W F P P V W @ $ P p W ) T : A(2 ( _
0x033e18…033fac Dummy {f00=0x0009, f01=0x0190, f02=» : [ [ : 56 T W Z A. c @ V W U ) R $ )_ : V r + V ) t + Z W r
0x033fac…034140 Dummy {f00=0x0009, f01=0x0190, f02=» R, Y R <B V x " 1 W V z : * _@ V : W R ,:P *. *F W x * ,B_ V : t " D P W V Pv $;A^ D E D P. V ) P ) P T ) E _N T ) E _ r + V ) t_~ " V r D
0x034140…0342d4 (1, 65) Dummy {f00=0x000e, f01=0x0190, f02=» " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : J @ 0 V @ ) 0 H W : ? ? R 0 R P P B _ : 4P0 " D ,p H H $ M v b - I Y& : @
0x0342d4…034468 Dummy {f00=0x000e, f01=0x0190, f02=»! P I * * _D V r A V 9n A V tT @ A A V @ ! @ P P^ P PR_ _ @ V W U( P P( P V W U " @ Q V P A. V P _T A A
0x034468…0345fc Dummy {f00=0x000e, f01=0x0190, f02=» @ & @ W Z f A : A A > l : ,"R *. W n V pT : N V l W H V ]" . nT" * W v *F W n V ~P / W x * 0^ , * _v V d , V ) P _ N L % V
0x0345fc…034790 Dummy {f00=0x000e, f01=0x0190, f02=» V V P W t $ ) ^ r V ) W f ) G V ) ) W b G ) ) G ` " W p W ~ pP0 /L R ,:P /X ,B_ W ~ R ,:X4 /X ,B_ ` W ~ pPV /L R , ,R ) " E R 0* W ~ R
0x034790…034924 Dummy {f00=0x000e, f01=0x0190, f02=» z ` pPJ * " R ,R E R T E D E @ H E * + #_T W | j W V b ( W p V ` $ W ` ) 0 ;h 0 :C # : .=H N 2| ,R .=H N 2| ,R N : d 8" R _ ZY QY :
0x034924…034ab8 Dummy {f00=0x000e, f01=0x0190, f02=» ) N :H N TBT W W4 2 " T @ ) X 2 N =H N 2| @ ) 2 !TTXT !CCT 2 !UUT d 3 WT 2 2 .:H N R P V ) _ N S 2 S YB : v ` @ W W W @ W D ,R
0x034ab8…034c4c Dummy {f00=0x000e, f01=0x0190, f02=» W V d 4 W P 5 _ W ` W d V V W V V $ ) ^ A B C P 5 W r C 5 W @ @ % B V , P@ , - 4 ] 4 + Y 5 X * _6 : W @ R ]
0x034c4c…034de0 Dummy {f00=0x000e, f01=0x0190, f02=» ,R @ A @ ,R;a P$ W @ A @ T ) A : p ` @ P 6 _ 6 3 S S V V W @ @ T ) : P S S _ : @ @ @ #D# P ; V 7> _ : @ " P @ P 3 _ @ "
0x034de0…034f74 (1, 66) Dummy {f00=0x000f, f01=0x0190, f02=» ) A W t N =H N W l V CRT N =H N B( W p N =H N 2| W | ( @ % 5 T W @ = V W = V A P0 B r " U ) _2 A P0 B " U ) _2 V
0x034f74…035108 Dummy {f00=0x000f, f01=0x0190, f02=» W _z 2 !TTT 7 ( : . !TTP ) V A W t * A P B r _ A Pd W p B V 8 8 4 D P$ ) @ # P H I K T + Y@ V p _f V t Y 2 !TT
0x035108…03529c Dummy {f00=0x000f, f01=0x0190, f02=» 0 W ` W W& T ) P _ V A V W A W t A PT W f ( B W d B Bd G =h G V d V r < = V f P W f _B ?$ V W V t Yv 2 !TTX @ @ T ) :
0x03529c…035430 Dummy {f00=0x000f, f01=0x0190, f02=») $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W A P0 W f B W d B V d V r < = V f _2 ?$ A U^ B V 8 8 8 4 D P$ ) @ # P H I K T + Y@
0x035430…0355c4 Dummy {f00=0x000f, f01=0x0190, f02=»AAT @ W> ?f V V 0 V P _ W $ q > R P >b W >b & 8P > ? V V W R 9 W D ) ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( > W" D V ` T @ 1 Q a : @
0x0355c4…035758 Dummy {f00=0x000f, f01=0x0190, f02=»P: @ @ @ D (P W H $ I " % E , a : V Q R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : ) Y Z @ T A V W Y0 Z6
0x035758…0358ec Dummy {f00=0x000f, f01=0x0190, f02=» v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ] vW v P _ @ P V ) A (P ) @ @ P V ) A
0x0358ec…035a80 Dummy {f00=0x000f, f01=0x0190, f02=» F =H F 2| : P N =H N T A 2 _ : @ ! P (W ( : 00=H 00 P P _ _ : 5 6F 6 7 7 9v :r ; @ @ R @ $ D L * A CRT M " B B C 0Ch PC !C !C 1D C T xKB
0x035a80…035c14 (1, 67) Dummy {f00=0x001d, f01=0x0190, f02=» ( ` Y z P T KB D C C ( ` Y W P P _ V |P V v ] vW v P _ @ P V ) A (P ) @ @ P V ) A
0x035c14…035da8 Dummy {f00=0x001d, f01=0x4104, f02=» DWTSB2 O DWTADR O , ( H 9BV X Y X O ( ECHADR O X ECHRTN O j TENDIO O ~ * & D V X R O , ( W0 P T !P< %P8 qU W V$ V O O @ O (
0x035da8…035f3c Dummy {f00=0x001d, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 P ST8000K P R ST8000K P d IHPFAR P x IHLKM P IHRTC P ILLINT P IHTWA P IASCUZ P , ( P
0x035f3c…0360d0 Dummy {f00=0x001d, f01=0x4150, f02=» P ~ , ( ! Q , ( 1 Q N , ( A Q ~ , ( Q Q , ( a Q
0x0360d0…036264 Dummy {f00=0x001d, f01=0x0190, f02=» J F IDENT DRKB01 REL 10.0 80-03-14 870105041000 R $ KBADY EOQUEU DWTINQ DWTUTQ R R DWTINQ ( R z DWTUTQ * R KBADY R DWTST R * & @ ? X V Y R TDISP R LDR
0x036264…0363f8 Dummy {f00=0x001d, f01=0x018e, f02=» C R t , ( q B P T B % X * $ S STREG S D , ( 4 T % W X (T ! W Y S T ECHON S , ( * V ! B _P B P $ S , ( $ R % C W Y & S , ( X ! 8$ P
0x0363f8…03658c Dummy {f00=0x001d, f01=0x0190, f02=» S DISEND T , ( K C ! 0 T , ( e Z ! B Z ZH X * T J , ( ,T T W X (P Y * 0 T z , ( %_. % Y * _d _ P T , ( _ ?" 8 T ! )_ W ! T T
0x03658c…036720 Dummy {f00=0x001d, f01=0x0190, f02=»P $ , X R T z LDREG U , ( ? ;GV X ( $4 P X *T U * EOQUEU x U Z , ( ] * W Y ( - B 1 " W U n " { TT , (@ > U H D ! h ( V 'W@ 7U =P AP CR K R Y N cP o L uP yT T
0x036720…0368b4 (1, 68) Opaque[0x194]
0x0368b4…036a48 # DirEnt {nam=»A:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0080, f03=0x0000}
0x0368b4…036a48 IdxSect {
0x0368b4…036a48 f00 = 0x0004 // 0x368b4 @0x0
0x0368b4…036a48 f01 = 0x0010 // 0x368b6 @0x2
0x0368b4…036a48 gno = [ // 0x368b8 @0x4
0x0368b4…036a48 [0x00]: C0x0004.0x0.0
0x0368b4…036a48 [0x01]: C0x0006.0x1.0
0x0368b4…036a48 [0x02]: C0x0006.0x2.0
0x0368b4…036a48 [0x03]: C0x0010.0x2.0
0x0368b4…036a48 [0x04]: C0x0013.0x3.0
0x0368b4…036a48 [0x05]: C0x001b.0x1.0
0x0368b4…036a48 [0x06]: C0x001b.0x2.0
0x0368b4…036a48 [0x07]: C0x001b.0x3.0
0x0368b4…036a48 ]
0x0368b4…036a48 }
0x036a48…036bdc Dummy {f00=0x0004, f01=0x0190, f02=»$ :U tCR 0 P d r K0 Z 8 4 K0 0 * * ^ $ P B
0x036bdc…036d70 Dummy {f00=0x0004, f01=0x0190, f02=»
[…0x4…]
0x0373c0…037554 (1, 69) Dummy {f00=0x0006, f01=0x0190, f02=»
[…0x2…]
0x03787c…037a10 Dummy {f00=0x0006, f01=0x0190, f02=» P * d z T 2 & < X $ ` $ _ 0 4 E! 1 2 hL21E T E"jL2 E 4 NP < N< < NB N< D1 D @< D 9& 9 M+ M M* M M MX M LV
0x037a10…037ba4 Dummy {f00=0x0006, f01=0x0190, f02=» IOjL I IRjL I IS 1 jL1 I L 0 0 < @01 _ ? 4 @7 4 2 I( 79 3 0 7 8 @6 62 N> 6 0 N60 7 12*1 0 N 1 P 1 42 ? 1 W "1 @7 1 5 Q K7(A665 :y W 21 2 2 jI31N 31 3 79 73_r 21 2 jI31N 31 3 79 73_ jI31N E)dI3
0x037ba4…037d38 Dummy {f00=0x0006, f01=0x0190, f02=» 79 73 21 2 31? 0 90 40 9? 690 6H6 jI31N NI N 24 26 I.dN 2I 0 9 N4W N 4 0 4 6 4 D( 6 7 h 67D 76 7 jD N7-D) 6 4 9 1 j9 1 9 0 9 4 1: : 2 hL:2! T : j9 L:0 9 : W :1 4 3: 6 j6 9 5 4 hL:4! T' : jD L: D!
0x037d38…037ecc Dummy {f00=0x0006, f01=0x0190, f02=»j6 L:*16 56_( 51 61 W 95W 96 3 0 9W :3 4 1: 2 hL:2! T : jD L: D! j9 L:0 9 : W :1 4 3: 59 : 4 hL:4! T : 65j5 L: 59 960 9 :2 : W :3 4 19 3: 1 21 D0j2 D : 4 hL:4! TM : j5 L: 7: 4 hL:4! T : 7:j6 L3$26 16 "15 65
0x037ecc…038060 Dummy {f00=0x0006, f01=0x0190, f02=»4 48 23 27 2 $24 95W 96 4 HCjH B jH C jH A L"jL H LR/ R) 1 " HCjH B jH C jH A dL H LR _, 4 R 4 2: L: 4: : I< > W > < L: < =>V 0 9_ 2= jL:5N L4A: L4 T _Q W 4 1 L! < < < < = Z 2=
0x038060…0381f4 (1, 70) Dummy {f00=0x0006, f01=0x0190, f02=» jL4 G 4 jL4 N 4 < = <= < < = Z 2= jL4 G 4 jL4 N 4 < = <= < < = Z 2= jL4 G 4 jL4 N 4 KL HTjH F jH A dK H KR2jE K !E; A5 < < < < = I4 *4 ? W I[ W IZ W @5 W @5 4 1 2 3 D%h 23D T1jF
0x0381f4…038388 Dummy {f00=0x0006, f01=0x0190, f02=»G ( 4 1 *1 1 1 4 E3 M dM E 1 1 0 M1 4 < = <=0 M E3dM E 0 M 4 GK@0@1@2@3 2 5 j2 K5 2 62 W A0W A1W A2W A3 5 _% 9 H1 @2H0 F<0 F H1 1%0 10 1 1 H2 H3 4 L!jD K5 15 1 j9 K1 9'jK1 9 0 9 1 jD K1 D"V 35 3
0x038388…03851c Dummy {f00=0x0006, f01=0x0190, f02=»4D 2 D#hM24D T $32 12 42@7W 13 43A7 5 54fM45 4 dM E jM4 ? M E)I7 E/ 1 jD 1 D" D! _s 4 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O;
0x03851c…0386b0 Dummy {f00=0x0006, f01=0x0190, f02=» 3 E!j4 E jD L3 3 j9 L3 94? 3 13 L1 3 < = L3=H9 0 9 M@jM <L3 2< < 0 M<@9 L1 32_R E2 1 2 hL12E T. 1 j9 L10 9 1 L1A8 L1 1 < = L1=0 < 4 1 2 j1 2 8 9 : ; <H9 @8 4 0 12P A W @ 224 1 H8 1 H9 1 H: 1 H; 1 H< 1
0x0386b0…038844 Dummy {f00=0x0006, f01=0x0190, f02=» # 4 J g . ^ . e & P K P # ( 2 5 B Q R T ` P !*+.01Q ++0102030405060799++ ++ ++. ++ TYPEABCD 00020 ACC NO BRANCHPRINTERVOUCHERACCOUNT BALANCE C
0x038844…0389d8 Dummy {f00=0x0006, f01=0x0190, f02=»1 bABC $ bDEF ` ` ` INTERIM STATEMENT ERRORLINE IS LINE 23 AND LAST FIVE ENTRIES QERR2 - ENQUIRY NOT AVAILABLE QERR1 - INVALID FUNCTION SELECTION 999 / N @ . 1 ENQ - ENQUIRY INPUT ENQUIRIES AVAILABLE L H I 4 L H I Y
0x0389d8…038b6c Dummy {f00=0x0006, f01=0x0190, f02=» " $ & ( * , . 0 1 2 3 4 5 6 7 8 9 : < > @ B D F H J L N Q T W [ _ c h n t {
0x038b6c…038d00 Dummy {f00=0x0006, f01=0x0190, f02=» / _ ! "J ! P ' <H : W ! ! ' &P B V C / <H "!@ <8 : ! ! C C W " C C J h ' W 781"&$ 39#$;< '()*+,-! " "N ! ' P _D ! B ' 'W ! ( Wb ' ! !
0x038d00…038e94 (1, 71) Dummy {f00=0x0010, f01=0x0190, f02=» " %@ !d I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : ! 3~ C T C B B P C : "!@T <` V I C B : ( ' P !d I : ! ! % Y 'F C ' & < < C '
0x038e94…039028 Dummy {f00=0x0010, f01=0x0190, f02=» <T ;D:B " : _, ' C : : ! ! "! P $$ : ', P C W $0 P ; C "r : C "!@P ") # B C B % C : ',#0 T & C C : " C C : & T ;d# P V P P* 9A:AV
0x039028…0391bc Dummy {f00=0x0010, f01=0x0190, f02=» L# R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 # ', #0 T B ' : ; B B # : ', P C #0 T & C C :
0x0391bc…039350 Dummy {f00=0x0010, f01=0x0190, f02=» 7 @ ! P T P W $ @$ R ; ?T % pVP 9c D$ ' ', Q $jW + :aW, @$ YRP ;$ @$ ]^ ; @$ ]h ; _n <` 2 P V W< _ 2 # ;B & V T W V P L , V 2P " 2 P V D
0x039350…0394e4 Dummy {f00=0x0010, f01=0x0190, f02=» E @ ' T 2 % 7_ 2 # PH L PB ' 2" &] Y $! 6P Q $ T 9BP % _ _ W %X 6 @ " T 7 $ V P T W _ $* %2 *$ V & %v H$ 'W 'W '_6 :l:d:h ' W
0x0394e4…039678 Dummy {f00=0x0010, f01=0x0190, f02=») L' E V $ W D V L' , W 6 2 ) W$ " P& Pd" # ) ;b Wv " ;d# _ [ v [ T ' T Z Z : R ; ' 6 : F _v < :B , (V ; H [ [ [
0x039678…03980c Dummy {f00=0x0010, f01=0x0190, f02=» * : Z 4 " 2@P : [ [ ' & @ ! P < Z < [ 6 [ Z 7 'B Z 7 : ( :A ( @ " P ! P [ :;H 2 ( (N;h ) : ; V Y : 2! : 6 2
0x03980c…0399a0 Dummy {f00=0x0010, f01=0x0190, f02=» & !@P `1` P ,BQ [ ; 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
0x0399a0…039b34 (1, 72) Dummy {f00=0x0013, f01=0x0190, f02=» ,B_0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b . P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" !
0x039b34…039cc8 Dummy {f00=0x0013, f01=0x0190, f02=» < 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 P._& & Q 9d! )0 +
0x039cc8…039e5c Dummy {f00=0x0013, f01=0x0190, f02=»_ V P W T V E + : & 6 < [ [ [ [ $ [ [ >h [ [ 2 , 2 , 2 *d Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P 2 *^ V H )_ 2 0* _X z R z ! P 1` { V (9h
0x039e5c…039ff0 Dummy {f00=0x0013, f01=0x0190, f02=» *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 < [ [ [ [ $ [ [ &! P 2h 2 , 2 , 2 *d z " ! ! R 2` {
0x039ff0…03a184 Dummy {f00=0x0013, f01=0x0190, f02=»R [ _ 2 *^ 2 0* Z ! Z $ Z %_N [ Q* 2 *^ 2 ,B R [ Z { 2 *^ z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33
0x03a184…03a318 Dummy {f00=0x0013, f01=0x0190, f02=» K V K : ' 3 3 3X '< V 4 4 4 V Z P 2 " T W "@T '?W "? H2 " K :e J J " J _Z Z 4 [ Z P T [ V < 7_ Z 4 @ ! P T Z 7 Z Z
0x03a318…03a4ac Dummy {f00=0x0013, f01=0x0190, f02=» Pn 4 ! Th_ PX 4 WT K 5XWJ 5 W +_ 50 5, K W. _& X W X & J K : V : J T < 1 : + ' [ [ < !AAP !TTT W !**T * [ R !FFP !EET W I7" 6 * B Z 9 ! ; *Xt 8
0x03a4ac…03a640 Dummy {f00=0x0013, f01=0x0190, f02=»" X># ; W )0_B J R( Z R 4! P ;)0 9U ? <$ Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W 5 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 4 74 : ! P ! P ! P ! P ' !
0x03a640…03a7d4 (1, 73) Dummy {f00=0x001b, f01=0x0190, f02=» 3| : { : 9 $0T 96 Pb 9 _ 9 $0T [ 9 $0T Z : R$ P $ 1T Y TdW 5 _& : 9 $0TH $ R W R # P W ) V E 9 $0T Wr W W <` 9 [
0x03a7d4…03a968 Dummy {f00=0x001b, f01=0x0190, f02=» ' #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : 9> ',#03 T $_X 9>_^ W <` 9 p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 5.0 TRACE
0x03a968…03aafc Dummy {f00=0x001b, f01=0x0190, f02=»9 ( 9 p A9 ) Y V A9 9 V V ?8 . 1 V ?2 v ?2 A9 : :fW :f 2 : ?2 @ # T R ?2 ' ?8 & ?2 :bQ 9 A9 W> :f : V D ! )0 1 @ # T 6 V ^ ?2 A9 ; $
0x03aafc…03ac90 Dummy {f00=0x001b, f01=0x0190, f02=» W$ W W W W W W W W W :f ** A9 A9 ER A: R A: : ?2 < R 4 ?0 4 $ A9 : U 4 - _ ; : @9 @ $ ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY ILLEGAL REQUESTE
0x03ac90…03ae24 Dummy {f00=0x001b, 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
0x03ae24…03afb8 Dummy {f00=0x001b, f01=0x0190, f02=»ER POINT W 9 " R 0 1 Y : ;a V P V P W <a R 9a V ? : <` @? P ( _ @B P @B Pj Pf A V $ $T$ D BR V T D P T D @PL E @W . @A P$ @< A $ $P BT , D E @ : @? P A?
0x03afb8…03b14c Dummy {f00=0x001b, f01=0x0190, f02=» : AB AB" E A? B V AB @ # P ( R4 B TB( Cx( A? B @B V P ( R W :
0x03b14c…03b2e0 Dummy {f00=0x001b, f01=0x0190, f02=» W 9 " R 0 1 Y : ;a V P V P W <a R 9a V : <` @? P ( _ @ P @ P P V $ $T D R V T D P T D P E W . @ P B$
0x03b2e0…03b474 (1, 74) Dummy {f00=0x001b, f01=0x0190, f02=» "! ACN Sz SZ @B @B @CNP ( B V S$ R B V W Z TC. _" = Sz T B S$ ST SZW S$ , Sz 9a SH @CNP St S> SZ Sp B S @B P ST @B" S AB ACP T ACR "V # ( B S^ ACPP UW T Sz SZ ACPP S
0x03b474…03b608 Dummy {f00=0x001b, f01=0x0190, f02=»O! AE AE AE AE AE AE AE AE AE AE AE$ AE AE AE" N P AE AE" Q,Ex FR ,E +F -F ;F :F@ (E .FH B R X " , AE" L AE L @ AE AE _T N X ,T N X ) AE AE S Q,E FR ;F :F@ FX @E P AE$
0x03b608…03b79c Dummy {f00=0x001b, f01=0x0190, f02=»S$ D T @CX AE @C^ AE @Cd AE @Cj AE @E AR" @E ACd @E ACj @E AC^P Q W @E T @E Z J @R" ACX Sx I W ShW 0 S^ AR" STW ST AR" AR" @R" S$ W Sz @Cd AE @C^ AE _x B ACR PZ @E & Sx 0 S$ P P Sp S P @R St S>
0x03b79c…03b930 Dummy {f00=0x001b, f01=0x0190, f02=»SZ B "T" @CV AE @C AE @Cb AE @Ch AE W @E T @E W @E @E @E R J >a AR" ACb @E ACh S^ @E AC P Q W @E T @E Z J AR" @T D @R" ACV ST S$ ST Q` ST ST Q S AS D @E R V ;a Q S^_ S 1 D Sh @R" ACV
0x03b930…03bac4 Dummy {f00=0x001b, f01=0x0190, f02=»C` AE @Cf AE @E AR" @E AC` @E ACf @E ACZP Q W @E T J @E V @R" ACT 0 S> SZ E& P D @E P @E 1 D Sh ST AR" @R" S$ Sx @C` AE @CZ AE _ @CNP @E V @B ( D V " @E T @B P TP @E P @E AR" AC^ ACd F Sx
0x03bac4…03bc58 Dummy {f00=0x001b, f01=0x0190, f02=»W P$ &9d KB & KB_ K & KN D D AK< AK@ S^ @T Z ST " ! U 0 AK@U K _ S "P` @E @E T @B OX PF R % < < Sx ! SH SZ E& T @E P @E ! 5 = D D D M D P @E D NTW" A N A $
0x03bc58…03bdec Dummy {f00=0x001b, f01=0x0190, f02=»P M @B NT_ ACP D AB @E AB D @E ! A$ D Pd @E @E PL @E P S S Q,MTR @E T @B M V Q,A Rt ) I I @ I B AA W P M RV )W A N AA D A , AMN AMN:B AMNQ (P _ H B @E T @B H AMN " D EQ GT LT NE
0x03bdec…03bf80 Dummy {f00=0x001b, f01=0x0190, f02=»# + C " A B AN AN :B AN D (P _ B @E @E @E P M D @E V @B Q B 1 @E Q Q @ AA " A ( R$ ( @E V @B H B ) I B " D $ % " S # C C C C *T W #T AE S R<P PR (T
0x03bf80…03c114 (1, 75) Dummy {f00=0x001b, f01=0x0190, f02=» " D AP( AP, AP0 AP4 AP8 AP< AP@ P R Q ! 9D# 9hP Q " ;B 2 Pl L ?b PL P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL Pr Pr W C " _* Q P
0x03c114…03c2a8 Dummy {f00=0x001b, f01=0x0190, f02=» C " :T S S S " " AQ AE .T @CNP R P " AE " R X X D " , , AQ^ AQ^:B AQ^Q (P _ # # H AQ^ " AS AS 4 ST S$ 4 @S IQ T AS AR" AR"T AS T Q @E R J AS N @R" " P P (T
0x03c2a8…03c43c Dummy {f00=0x001b, f01=0x0190, f02=»P WH S AR AR~ 0R 9Q 0 AR :B S _" AR " S AR 0R$ 9U AR FQ 0:D AR S _* 'T S :H_ AR " AS AS 4 ST S$ T AS AS " , S "! R _U .WV AS<: SH AS< " 9d SH
0x03c43c…03c5d0 Dummy {f00=0x001b, f01=0x0190, f02=»S " S S T ( A( S ( AS " AT T @T2 T4P AT( T$( T4 AT2 " !T1 1T4 T4 Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ ( R : V E V D
0x03c5d0…03c764 Dummy {f00=0x001b, f01=0x403a, f02=» T 2 p = & < X B $@ 6 4 & D & T & d & t & # & A & _ $ } } . H IDENT D:TB20 TRA 10.0 80-11-
0x03c764…03c8f8 Dummy {f00=0x001b, f01=0x0190, f02=» IDENT P:PIL < 8 P:BAS T:BAT T:PAT T:CAT T:LIT T:PIC T:KEY T:FMT P:END P:BAS ` * & _ 0 4 E! 1 2 hL21E T r * & E"jL2 E 4 NP < N< < * & = NB N< D1 D @< D 9& 9 * & [
0x03c8f8…03ca8c Dummy {f00=0x001b, f01=0x0190, f02=»! 6$ 1" 1# < 0 N <= < * & 0 N <= K" NQjK N G?jK G $ * & NUjK N NN 1 jK1 N IOj R * & L I IRjL I IS 1 jL1 I L * & - 0 0 < @01 _ ? 4 * & K @7 4 2 I( 79 3 0 7 8 @ *
0x03ca8c…03cc20 Dummy {f00=0x001b, f01=0x0190, f02=» * & 5 :y W 21 2 2 jI31N 31 3 * & 79 73_r 21 2 jI31N 31 3 79 2 * & 73_ jI31N E)dI3 E MI E,dM ` * & E M 6 0 90 M6 79 73 21 2 * & ; 2 A7_ jI31N fI3 MI E,dM E * & Y M 63 6 fM 3 7 D(hM7
0x03cc20…03d8c0 (2, 0) DirGranule ((2, 0)) {
0x03cc20…03d8c0 DirEnt {nam=»DEMO68«, typ=»00«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x2020, f01=0x2020, f02=0x00b0, f03=0x4441}
0x03cc20…03d8c0 DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x03b0, f03=0x2020}
0x03cc20…03d8c0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x03e0, f03=0x0005}
0x03cc20…03d8c0 DirEnt {nam=»DEMO «, typ=»LM«, f00=0x8487, f01=0x5ae2, f02=0x0440, f03=0xfe00}
0x03cc20…03d8c0 DirEnt {nam=»XOPINP«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04b0, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»XMESG «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04e8, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0xffff, f01=0xffff, f02=0x0510, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0518, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0560, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»QMISC «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0588, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x05c8, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»DFOACT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0618, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0630, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»AADEMO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0650, f03=0xffff}
0x03cc20…03d8c0 DirEnt {nam=»EINIT «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0660, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»NJ1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»BESELF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0770, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0788, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DMWDR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0848, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DELACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0980, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0988, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a20, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»MMU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fa8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1968, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»EMPTY «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06d8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x03cc20…03d8c0 }
0x03d8c0…03da54 (2, 1) Opaque[0x194]
0x03da54…03dbe8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x2020, f01=0x2020, f02=0x00b0, f03=0x4441}
0x03da54…03dbe8 IdxSect {
0x03da54…03dbe8 f00 = 0x0005 // 0x3da54 @0x0
0x03da54…03dbe8 f01 = 0x0050 // 0x3da56 @0x2
0x03da54…03dbe8 gno = [ // 0x3da58 @0x4
0x03da54…03dbe8 [0x00]: C0x0005.0x2.0
0x03da54…03dbe8 [0x01]: C0x0005.0x3.0
0x03da54…03dbe8 [0x02]: C0x0008.0x1.0
0x03da54…03dbe8 [0x03]: C0x000a.0x3.0
0x03da54…03dbe8 [0x04]: C0x000b.0x3.0
0x03da54…03dbe8 [0x05]: C0x000c.0x0.0
0x03da54…03dbe8 [0x06]: C0x000d.0x1.0
0x03da54…03dbe8 [0x07]: C0x000e.0x0.0
0x03da54…03dbe8 [0x08]: C0x000f.0x1.0
0x03da54…03dbe8 [0x09]: C0x000f.0x2.0
0x03da54…03dbe8 [0x0a]: C0x000f.0x3.0
0x03da54…03dbe8 [0x0b]: C0x0010.0x1.0
0x03da54…03dbe8 [0x0c]: C0x0010.0x3.0
0x03da54…03dbe8 [0x0d]: C0x0011.0x0.0
0x03da54…03dbe8 [0x0e]: C0x0011.0x2.0
0x03da54…03dbe8 [0x0f]: C0x0012.0x0.0
0x03da54…03dbe8 [0x10]: C0x0012.0x1.0
0x03da54…03dbe8 [0x11]: C0x0012.0x2.0
0x03da54…03dbe8 [0x12]: C0x0013.0x2.0
0x03da54…03dbe8 [0x13]: C0x0014.0x2.0
0x03da54…03dbe8 [0x14]: C0x0015.0x1.0
0x03da54…03dbe8 [0x15]: C0x0015.0x2.0
0x03da54…03dbe8 [0x16]: C0x0015.0x3.0
0x03da54…03dbe8 [0x17]: C0x0016.0x0.0
0x03da54…03dbe8 [0x18]: C0x0016.0x1.0
0x03da54…03dbe8 [0x19]: C0x0016.0x2.0
0x03da54…03dbe8 [0x1a]: C0x0016.0x3.0
0x03da54…03dbe8 [0x1b]: C0x0017.0x0.0
0x03da54…03dbe8 [0x1c]: C0x0017.0x1.0
0x03da54…03dbe8 [0x1d]: C0x0017.0x2.0
0x03da54…03dbe8 [0x1e]: C0x0017.0x3.0
0x03da54…03dbe8 [0x1f]: C0x0018.0x0.0
0x03da54…03dbe8 [0x20]: C0x0018.0x1.0
0x03da54…03dbe8 [0x21]: C0x0018.0x2.0
0x03da54…03dbe8 [0x22]: C0x0018.0x3.0
0x03da54…03dbe8 [0x23]: C0x0019.0x0.0
0x03da54…03dbe8 [0x24]: C0x0019.0x1.0
0x03da54…03dbe8 [0x25]: C0x0019.0x2.0
0x03da54…03dbe8 [0x26]: C0x001d.0x1.0
0x03da54…03dbe8 [0x27]: C0x005a.0x1.0
0x03da54…03dbe8 ]
0x03da54…03dbe8 }
0x03dbe8…03dd7c Dummy {f00=0x0005, f01=0x0190, f02=» : H IDENT AADEMO TRA 10.0 80-05-13 F1 O1111 MAIN MODULE AAMAIN B $$$TRAD T AAMAIN f > : BASPCTD BCSTTOA BESELF0 CGCSYSF QCGUWB QDFUWBO T:EDWR z T:EXIT XAKBIN ZGREA
0x03dd7c…03df10 Dummy {f00=0x0005, f01=0x0190, f02=» 0 70 @ & J F " D 1X F RLI5 J1 W @2 R1X F RLW "L !"L<I5 A " A R 0 &)6L I5 H1 6 D G0 F J O0 F U X0 F ] a
0x03df10…03e0a4 Dummy {f00=0x0005, f01=0x40bc, f02=» x & :2 ( $ 1 4 $ 2 F & *2 V ( f 0 , * @RW R)6L RW "LBJ1E R!"L _M R_Q1X F0X r f @ 0 F U X0 F ] a
0x03e0a4…03e238 Dummy {f00=0x0005, f01=0x0190, f02=» F H IDENT BASPCT TRA 10.0 80-11-26 F1 O1111 TERMINAL SPECIFICATION BASPCT SPAP15 SPAP31 N $$$TRAS p $ BASPCT SPAP15S SPAP31 D @ CASTTSS CBSTTSA T:DISP0 T:ERASF XBFMT ZAOPNDI ZBCLSDC ZKOPNFO ZLCLSF
0x03e238…03e3cc Dummy {f00=0x0005, f01=0x0190, f02=» 0 # ( & - 6 60 F 8 X 9 h J F " D H5 "L LL 7L 8L :L ;LW2 7L LL!"L RI2d RI2G RI2B 1% eL RLI26 Le z E0 I0 L0 Z
0x03e3cc…03e560 Dummy {f00=0x0005, f01=0x0190, f02=» }0 J F " D @ 7e!7L 7L L 2 32 3 I5' RLI2 6L);L A6!"L" RI2 W )"L R R "LW h D x 0 D 0 D 0 D 0 D 0 D 0 D 0
0x03e560…03e6f4 (2, 2) Dummy {f00=0x0005, f01=0x40c2, f02=»2 6LW 6L4 !eL !eL !eL !eL !eL !eL L CL4 IK#8L 5L%7L D D T d v L0X DD0X DDW L CL4 @ 0 D 0 D 0 D 0
0x03e6f4…03e888 Dummy {f00=0x0005, f01=0x0190, f02=» L H IDENT BCSTTO TRA 10.0 80-05-13 F1 O1111 START OPERATOR . * BCSTTO CCSTTT SPAP07 SPAP08 SPAP09 T $$$TRAS 8 4 BCSTTO CCSTTTS SPAP07A SPAP080 SPAP09 > : PAJRN T:DISPT T:GETT XAKBIN3 XBFMT XCLAMPA XEERR
0x03e888…03ea1c Dummy {f00=0x0005, 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
0x03ea1c…03ebb0 Dummy {f00=0x0005, 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
0x03ebb0…03ed44 Dummy {f00=0x0005, 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
0x03ed44…03eed8 Dummy {f00=0x0005, 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
0x03eed8…03f06c Dummy {f00=0x0005, f01=0x0190, f02=» > H IDENT BESELF TRA 10.0 80-05-13 F1 O1111 SELECT FUNCTION BESELF F $$$TRAS X BESELF j D @ CDCHKYS CEGACTA CFCHKH0 DAUCCYF DCVDU DDTP71C DELACTI DFOACT ~ @ < DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF B
0x03f06c…03f200 Dummy {f00=0x0005, f01=0x0190, f02=» 0 . . @ P ' b + t / 2 2 3 9 J F " D R R@V@2@Q SL@R@S@T@U _L RL RL RA R % RL %RL.!@L RL _
0x03f200…03f394 (2, 3) Dummy {f00=0x0008, f01=0x0190, f02=» J F " D @ _+ SA_0AQ_4AR_8AS_<AT_@b_ @K #@L AU RI2 RI2 !RL.!RL*!RL&!SL ( R 0 b 4 t & "
0x03f394…03f528 Dummy {f00=0x0008, f01=0x0190, f02=» 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x03f528…03f6bc Dummy {f00=0x0008, f01=0x4028, f02=» ) L ?R4 v @ $ 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x03f6bc…03f850 Dummy {f00=0x0008, f01=0x0190, f02=» < H IDENT CASTTS TRA 10.0 80-11-26 F1 O1111 SYSTEM START CASTTS CBSTTS SPAP32 D $$$TRAS f $ CASTTS CBSTTSS $ SPAP32 x @ < DAUCCYS DBUOPRA EHISYS0 FMOVE QIRDBS1 T:SETTE XBFMT XEERR 2 . ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRI
0x03f850…03f9e4 Dummy {f00=0x0008, f01=0x018e, f02=» !0 2 ( D & T ( $ &" FORMAT FILE VOLUME NAME ? DSC b & M & ( E & & SYSTEM LANGUAGE ?E & ! @
0x03f9e4…03fb78 Dummy {f00=0x0008, 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 ]
0x03fb78…03fd0c Dummy {f00=0x0008, f01=0x0190, f02=» RLI20 R I2) L Z b Z 0X RI2 RI n 0 , > N ^ p 0 0 0 0 y 0 0
0x03fd0c…03fea0 Dummy {f00=0x0008, f01=0x4098, f02=» 0 0 0 2 $ 6 H $ IL #IL JL%JL %JL L CL4 Z @ 0 0 0 0 y 0 0
0x03fea0…040034 (2, 4) Dummy {f00=0x000a, f01=0x0190, f02=» L H IDENT CDCHKY TRA 10.0 80-05-13 F1 O1111 CHECK FUNCTIONKEY-COMBINATION CDCHKY T $$$TRAC f CDCHKY x XEERR 0 C 0 +0 60 J F
0x040034…0401c8 Dummy {f00=0x000a, f01=0x40fe, f02=» p0 {0 J F " D @_IT HUY) R L IRPW ) R L HR ITBHU?) R L IS6W ) R L IT+W ) R L HT 0 n 0 0 , * IR IQ HU ) R L HT HQ ) R L HU W RL 4 @ J F
0x0401c8…04035c Dummy {f00=0x000a, f01=0x0190, f02=» : H IDENT CEGACT TRA 10.0 80-05-13 F1 O1111 GET ACCOUNT CEGACT B $$$TRAG T CEGACT f > : DKDSTMG PBBOOKA QENTRS0 QGATYPF XBFMT XEERR XGBCR ZCRDD z ZGREA n
0x04035c…0404f0 Dummy {f00=0x000a, f01=0x0190, f02=» 8 <0 @0 ( J F " D )RL IT ?RHT RLH2 ?RH6 F RI6 (A RL _ HQ ?R RLH2 ?R)RL )aL !: : D0 G T I n L0 T P0 T T0 T X0 T
0x0404f0…040684 Dummy {f00=0x000a, f01=0x0190, f02=» W a T " 0 & 2 D 0 V h 0 z 0 J F " D R I2 H a a Ra% L$H1 !RL ! L !RL !:L I IR RW RI2 W ! L
0x040684…040818 Dummy {f00=0x000a, f01=0x0190, f02=»0 0 B J F " D !RL !RL H1 !RL !RL Wy)RL ) L_)RL #:L?)RL HQ H G!RL !RL !RL W% I T 0 %
0x040818…0409ac Dummy {f00=0x000a, f01=0x4168, f02=» > % J F " D RI( I !:L%I IR RW RI2T R I2LWJ RL W= RL W7 RL W1 RL W+ RL C D l I ~ J O P b d e k
0x0409ac…040b40 Dummy {f00=0x000a, f01=0x0190, f02=» H H IDENT CFCHKH TRA 10.0 80-05-13 F1 O1111 CHECK AVAILABLE HARDWARE CFCHKH P $$$TRAC b CFCHKH t XEERR 6371 6344 6346 0 3 0
0x040b40…040cd4 (2, 5) Dummy {f00=0x000b, f01=0x0190, f02=»L !_L !_L !_L Wo):LwW %7Lq)RL %7Li)RL !8LaHT !;LZ(R !;LR)RL H D0 F H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x040cd4…040e68 Dummy {f00=0x000b, f01=0x4056, f02=» ! RL W RL W RL 4 : @@ R H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x040e68…040ffc Dummy {f00=0x000b, f01=0x0190, f02=» < H IDENT CGCSYS TRA 10.0 80-05-13 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
0x040ffc…041190 Dummy {f00=0x000b, 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
0x041190…041324 Dummy {f00=0x000b, f01=0x0190, f02=» b0 d g * i < q L v H x n ~ ~ J F " D @ R IL JL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL 0
0x041324…0414b8 Dummy {f00=0x000b, f01=0x0190, f02=» a b c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x0414b8…04164c Dummy {f00=0x000b, f01=0x400c, f02=» @ c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x04164c…0417e0 Dummy {f00=0x000b, f01=0x018e, f02=» > H IDENT DAUCCY TRA 10.0 80-05-13 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
0x0417e0…041974 (2, 6) Dummy {f00=0x000c, 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
0x041974…041b08 Dummy {f00=0x000c, 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
0x041b08…041c9c Dummy {f00=0x000c, 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
0x041c9c…041e30 Dummy {f00=0x000c, f01=0x0190, f02=»L4 L 0 0 0 . @ R 0 d v % *0 . 1 60 90
0x041e30…041fc4 Dummy {f00=0x000c, 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
0x041fc4…042158 Dummy {f00=0x000c, f01=0x0190, f02=» > H IDENT DBUOPR TRA 10.0 80-05-13 F1 O1111 UPDATE OPERATOR DBUOPR SPAP06 F $$$TRAU ` DBUOPR SPAP06 r @ < EAIOPRU EBZACCA MASK QEMOVE3 T:XREA1 T:XSTAT XBFMT XEERR * & ZCRDD ZDRWRDA ZGREA ZHWRID ZYRLNG
0x042158…0422ec Dummy {f00=0x000c, f01=0x0190, f02=» + 0 P 2 8 . 9 > > P J F " D )"L` L A R I2 L R R DL0X D P 0X DL0R DT- RL WV0R ` J0 N0 R0 T [
0x0422ec…042480 Dummy {f00=0x000c, f01=0x0190, f02=» J F " D @ e e eL/#eL L R I29 R I21_G eL RLI2&!eL" eL RLI2 !eL R & t 0 e 0 e 0 e 0 e 0 e 0
0x042480…042614 (2, 7) Dummy {f00=0x000d, f01=0x408a, f02=» J * < " W RW CL LW LW A 4 N t@ 0 e 0 e 0 e 0 e 0 e 0
0x042614…0427a8 Dummy {f00=0x000d, f01=0x40e4, f02=» L H IDENT DCVDU TRA 10.0 80-05-13 F1 O1111 DEMONSTRATE VIDEO DCVDU T $$$TRAV d DCVDU v XBFMT RL4 @ ************************************
0x0427a8…04293c Dummy {f00=0x000d, f01=0x0190, f02=» H H IDENT DDTP71 TRA 10.0 80-05-13 F1 O1111 DEMONSTRATE 6371-PRINTER DDTP71 P $$$TRAT b DDTP71 t D @ FMOVE PVATTPT PWDETP T:DSC03 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF
0x04293c…042ad0 Dummy {f00=0x000d, 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
0x042ad0…042c64 Dummy {f00=0x000d, f01=0x0190, f02=» J K0 L0 , N > O N P0 ` Q0 r S T U0 V0 X 4 Y0 & B ^
0x042c64…042df8 Dummy {f00=0x000d, 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
0x042df8…042f8c Dummy {f00=0x000d, f01=0x0190, f02=» " S,SF " 0 @ DK,N R " f v P " US " YU
0x042f8c…043120 Dummy {f00=0x000d, 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
0x043120…0432b4 (2, 8) Dummy {f00=0x000e, 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 *
0x0432b4…043448 Dummy {f00=0x000e, f01=0x018c, f02=» z & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x043448…0435dc Dummy {f00=0x000e, f01=0x4008, f02=»@ & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x0435dc…043770 Dummy {f00=0x000e, f01=0x0190, f02=» L H IDENT DELACT TRA 10.0 80-05-13 F1 O1111 LIST ACCOUNTS DELACT T $$$TRAL f DELACT x D @ PAJRN QAFNKYT QEMOVE QGATYP3 T:EDWR1 T:IREA T:TESTS T:WAIT $ XAKBIN XHERAS ZMRDF ZYRLNG
0x043770…043904 Dummy {f00=0x000e, 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
0x043904…043a98 Dummy {f00=0x000e, f01=0x0190, f02=» $ 0 A 4 F V 0 A f x & 999999 " a & 9999 " & &
0x043a98…043c2c Dummy {f00=0x000e, f01=0x407a, f02=» 9 " ( " 2 . , 0X D T R 0R # L 1X F_z +L +W A2@m4 . d@ v x & 999999 " a & 9999 " & &
0x043c2c…043dc0 Dummy {f00=0x000e, f01=0x0190, f02=» < H IDENT DFOACT TRA 10.0 80-05-13 F1 O1111 OPEN ACCOUNT DFOACT SPAP13 D $$$TRAO ^ DFOACT SPAP13 R p , ( PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 0 X 0 0 0
0x043dc0…043f54 (2, 9) Dummy {f00=0x000f, f01=0x4186, f02=» 4 >0 9 J F " D IQ (L#(L@ a(W )L#)L4 a)Aa RL L RL RLI2$HQ LHT R a +L & F t K L0 ) T0 L X0 L ` n q v
0x043f54…0440e8 Dummy {f00=0x000f, f01=0x018e, f02=» < H IDENT DGCACT TRA 10.0 80-05-13 F1 O1111 CLOSE ACCOUNT DGCACT D $$$TRAC V DGCACT h 0 , DKDSTMC PAJRN PBBOOK XBFMT ZCRDD ZDRWRDC | 0
0x0440e8…04427c Dummy {f00=0x000f, f01=0x40b2, f02=» 9 J F " D Ab RL L RL RLI28 +L + @b LH ( L R I2 ! L #:L R I2 D b H r @I RW R4 P H K @ 0
0x04427c…044410 Dummy {f00=0x000f, f01=0x0190, f02=» L H IDENT DHBACT TRA 10.0 80-05-13 F1 O1111 BLOCK / DEBLOCK ACCOUNT DHBACT T $$$TRAB f DHBACT x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x044410…0445a4 Dummy {f00=0x000f, 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@ |T x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x0445a4…044738 Dummy {f00=0x000f, f01=0x0190, f02=» L H IDENT DIQACT TRA 10.0 80-05-13 F1 O1111 INQUIRE ACCOUNT DIQACT T $$$TRAQ f DIQACT x . * PAJRN QFLTRST XBFMT XEERR ZCRDD ZDRWRD 0 p
0x044738…0448cc Dummy {f00=0x000f, f01=0x4136, f02=» 1 40 6 7 / 0 =0 / B @ T J F " D Ag RL L RL eL RLI2D!eL3 L R I2,H RL eL RLI2 !eL d E F & M0 & U & " @R _& RL I2
0x0448cc…044a60 Dummy {f00=0x000f, f01=0x0190, f02=» > H IDENT DJUACT TRA 10.0 80-05-13 F1 O1111 UPDATE ACCOUNT DJUACT SPAP30 F $$$TRAU ` DJUACT SPAP30 r * & PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 0
0x044a60…044bf4 (2, 10) Dummy {f00=0x000f, 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 "
0x044bf4…044d88 Dummy {f00=0x000f, f01=0x4060, f02=» < 8 6 W @e4 I RI( I 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 "
0x044d88…044f1c Dummy {f00=0x000f, f01=0x018e, f02=» @ H IDENT DKDSTM TRA 10.0 80-05-13 F1 O1111 DAILY STATEMENTS DKDSTM EQPDS H $$$TRAD ` DKDSTM EQPDS r D @ PAJRN PVATTPT PWDETP PXSKIP3 PZPOSD1 QENTRSY QGATYPE T:DSC0 @ < T:DSC1 T:DSC2S T:EDWR XCLAMP XEERR ZCRDD ZDR
0x044f1c…0450b0 Dummy {f00=0x000f, f01=0x0190, f02=» " 1010313801100030000000 ! < ( L . f 0 n 5 ~ 6 ? <0 ? ? J F " D Ah L RL ba R !bL' R ):L DL VL0X VD0X DL0X D RL W !&L R
0x0450b0…045244 Dummy {f00=0x000f, f01=0x018e, f02=» r0 y , < J F " D @ W R RL R I2 #bL# aL aL"a) a R I2 J L RaIS R N 0 0
0x045244…0453d8 Dummy {f00=0x000f, f01=0x0190, f02=» J F " D LW @S RLAS k #bL )&L 1X FW R 1X FW TL RT1X F TLA U RU V f 0 @ v 0 @ 0 @ 0 @ 0 @ 0 @
0x0453d8…04556c Dummy {f00=0x000f, f01=0x0190, f02=» $ & 01 4 & D 999999 R " a1 h & x & k & & ( (0 ,0 00 40
0x04556c…045700 Dummy {f00=0x000f, f01=0x4178, f02=» V0 Z0 i0 . n0 @ t = R v d {0 = t 0 = J F " D @A W A W A - L A ! L ! L ! L I W H c dLW cL d CL RC #bL )&L
0x045700…045894 (2, 11) Dummy {f00=0x000f, f01=0x0190, f02=» 6 H IDENT DLDEP TRA 10.0 80-05-13 F1 O1111 DEPOSIT $ DLDEP SPAP10 SPAP11 SPAP12 > $$$TRAD f , ( DLDEP SPAP10S v SPAP11A SPAP12 x > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS
0x045894…045a28 Dummy {f00=0x000f, f01=0x0190, f02=» $ & 00 90 2 J F " D IR H5 ARW LW L RL L RLI2V l# RL R +L +HS L D D K ]0 H f n r s
0x045a28…045bbc Dummy {f00=0x000f, f01=0x40c8, f02=» 0 0 0 B T d : 6 4 CL L4 e CL L4 HS L %7L 0X 0X 4 t @ f n r s
0x045bbc…045d50 Dummy {f00=0x000f, f01=0x0190, f02=» : H IDENT DMWDR TRA 10.0 80-05-13 F1 O1111 WITHDRAWAL DMWDR SPAP14 B $$$TRAW Z DMWDR SPAP14 l > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST XBFMT ZCRDD ZDRWRD ZHWRID 0 0
0x045d50…045ee4 Dummy {f00=0x000f, f01=0x0190, f02=» ' ) 30 " <0 4 J F " D AnIQ LW L RL LH5 RLW RLI2a l# RL R +L +HS LH F J Q k0 Q q y J F
0x045ee4…046078 Dummy {f00=0x000f, f01=0x40f0, f02=» 0 , 0 < J F " D RL@n4 IS L In %7L 0X 0X W %7L 0X 0X I H I I - N # IL CL L4 @ J F
0x046078…04620c Dummy {f00=0x000f, f01=0x018e, f02=» L H IDENT DNTRF TRA 10.0 80-05-13 F1 O1111 TRANSFER DNTRF SPAP19 SPAP20 T $$$TRAT t " DNTRF SPAP19S SPAP20 M B > DKDSTMT PAJRN PBBOOK PCVCH QENTRS1 QGATYPA T:DISP T:ERAS ( $ XBFMT ZCRDD ZDRWRDS
0x04620c…0463a0 Dummy {f00=0x000f, 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
0x0463a0…046534 (2, 12) Dummy {f00=0x0010, f01=0x0190, f02=»R I2) R T 0 + " 4 D T d v 0 0 J F " D I2" R I2 #:L I R I2 RW RL4 R `A%aL
0x046534…0466c8 Dummy {f00=0x0010, f01=0x0190, f02=» 0 , < J F " D a R I2yH p! Ll! Lh! L L CLWb Ra I RI( I !:LCI RW RI2E L 0 0
0x0466c8…04685c Dummy {f00=0x0010, f01=0x0190, f02=» L0X 0X I 0X W 0X LW CL LW v D 4 O0 F S0 Z Y n e h $ r ~0 $ J F " D @CL L A` Ka4 %bL #bL W L CLWN(ab L CLW
0x04685c…0469f0 Dummy {f00=0x0010, f01=0x409c, f02=» 8 $ 6 : 5 3 ! L#! L L CLW I RI( I L CLW LW CL L4 H @ h $ r ~0 $ J F " D @CL L A` Ka4 %bL #bL W L CLWN(ab L CLW
0x0469f0…046b84 Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AF00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AF00 H T:AF00A Z > : T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x046b84…046d18 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x046d18…046eac Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ F0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x046eac…047040 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DF00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DF00 H T:DF00D Z AAMAIN n * & F0 0 * * @ > E X @
0x047040…0471d4 (2, 13) Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AG00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AG00 H T:AG00A Z > : T:DG00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0C Z:TRM0R n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x0471d4…047368 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x047368…0474fc Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ G0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @ 1
0x0474fc…047690 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DG00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DG00 H T:DG00D Z AAMAIN n * & G0 0 * * @ > E X @ 1
0x047690…047824 Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AH00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AH00 H T:AH00A Z > : T:DH00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0C Z:TRM0R n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x047824…0479b8 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x0479b8…047b4c Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ H0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x047b4c…047ce0 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DH00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DH00 H T:DH00D Z AAMAIN n * & H0 0 * * @ > E X @
0x047ce0…047e74 (2, 14) Dummy {f00=0x0011, f01=0x40ac, f02=» @ H IDENT T:ATAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:ATAB H T:ATABA Z T:AA00 n @ :A @ * @ > E X @
0x047e74…048008 Dummy {f00=0x0011, f01=0x415a, f02=» @ H IDENT U:BTAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:BTAB H U:BTABB Z > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20C U:UT10R n U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP
0x048008…04819c Dummy {f00=0x0011, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY S:BTAB H S:BTABB Z n :B @ 0 U:UA20C U:UT10R n U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP
0x04819c…048330 Dummy {f00=0x0011, f01=0xc140, f02=» @ H IDENT C:CW10 TRA 10.0 80-04-10 F1 O1112 CURRENCY INQUIRY C:CW10 H C:CW10C Z * & DSC001DSC002 n * & * & = [
0x048330…0484c4 Dummy {f00=0x0011, f01=0x40b2, f02=» @ H IDENT D:CW10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:CW10 H D:CW10C Z * & 0 f B n n @ & y & * & * &
0x0484c4…048658 Dummy {f00=0x0011, f01=0x4106, f02=» @ H IDENT C:CSY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY C:CSY0 H C:CSY0C Z & n * & = N = N @ &
0x048658…0487ec Dummy {f00=0x0011, f01=0x40d6, f02=» @ H IDENT D:CSY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:CSY0 H D:CSY0C Z * & 20 0 0 0 0 n 0 50 ;0 A0 D 2 @
0x0487ec…048980 Dummy {f00=0x0011, f01=0x40de, f02=» @ H IDENT Z:TRM0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY Z:TRM0 H Z:TRM0T Z & n * 2 2 @
0x048980…048b14 (2, 15) Dummy {f00=0x0011, f01=0x40de, f02=» @ H IDENT D:TRM0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:TRM0 H D:TRM0T Z * & : 0 0 0 0 0 " n ( $ 0 #0 %0 &0 '0 (0 )0 * : @
0x048b14…048ca8 Dummy {f00=0x0011, f01=0x40f2, f02=» @ H IDENT Z:TSP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY Z:TSP0 H Z:TSP0T Z * & n & = D = D @
0x048ca8…048e3c Dummy {f00=0x0011, f01=0x40da, f02=» @ H IDENT D:TSP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:TSP0 H D:TSP0T Z * & 6 n $ 0 0 0 > 6 @ = D @
0x048e3c…048fd0 Dummy {f00=0x0011, f01=0x018e, f02=» @ H IDENT U:UBF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:UBF0 H U:UBF0U Z & n & & = & [ & y & & & &
0x048fd0…049164 Dummy {f00=0x0011, f01=0x0190, f02=» & & & ; $ & Y 4 & w D & T & d & t & & & + & I & g & & & &
0x049164…0492f8 Dummy {f00=0x0011, f01=0x40e4, f02=» & & & ) $ & G 4 & e D & T & d & t & & * @ & &
0x0492f8…04948c Dummy {f00=0x0011, f01=0x40f6, f02=» @ H IDENT D:UBF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:UBF0 H D:UBF0U Z * & B 0 0 n * & & , 4 < H a = B @
0x04948c…049620 Dummy {f00=0x0011, f01=0x411c, f02=» @ H IDENT U:UIF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:UIF0 H U:UIF0U Z * & n ( & & = [ * d
0x049620…0497b4 (2, 16) Dummy {f00=0x0012, f01=0x40de, f02=» @ H IDENT D:UIF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:UIF0 H D:UIF0U Z * & : 0 0 0 0 0 0 $ n ( $ 0 *0 0 6 7 = V Z : @ * d
0x0497b4…049948 Dummy {f00=0x0012, f01=0x40f6, f02=» @ H IDENT U:UCY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ! U:UCY0 ! H U:UCY0U ! Z & ! n * & ! = ! > ! = > ! @ ! d
0x049948…049adc Dummy {f00=0x0012, f01=0x40ce, f02=» @ H IDENT D:UCY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY " D:UCY0 " H D:UCY0U " Z * & *0 0 0 !0 %0 ) " n 0 -0 10 7 " * " @ " > ! = > ! @ ! d
0x049adc…049c70 Dummy {f00=0x0012, f01=0x415c, f02=» @ H IDENT U:UOP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY # U:UOP0 # H U:UOP0U # Z & # n * & # * & = # * & [
0x049c70…049e04 Dummy {f00=0x0012, f01=0x40ca, f02=» @ H IDENT D:UOP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY $ D:UOP0 $ H D:UOP0U $ Z * & &0 0 0 !0 "0 $ $ n % $ & $ @ $ # * & [
0x049e04…049f98 Dummy {f00=0x0012, f01=0x413a, f02=» @ H IDENT U:UA10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY % U:UA10 % H U:UA10U % Z & % n & % * & = % * & [ % y *
0x049f98…04a12c Dummy {f00=0x0012, f01=0x40f6, f02=» @ H IDENT D:UA10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY & D:UA10 & H D:UA10U & Z * & B0 0 1 E0 K & n * & 0 L0 R0 X0 ^0 d0 f0 l0 & = r x & B & @ &
0x04a12c…04a2c0 Dummy {f00=0x0012, f01=0x4136, f02=» @ H IDENT U:UA20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ' U:UA20 ' H U:UA20U ' Z & ' n & ' * & = ' * & [ ' y '
0x04a2c0…04a454 (2, 17) Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:UA20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ( D:UA20 ( H D:UA20U ( Z * & >0 0 1 E0 K ( n * & 0 L0 R0 X0 ^0 d0 f0 l0 ( = r ( > ( @ ( y '
0x04a454…04a5e8 Dummy {f00=0x0012, f01=0x4118, f02=» @ H IDENT U:UT10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ) U:UT10 ) H U:UT10U ) Z * & ) n * & ) = * ) P ) =
0x04a5e8…04a77c Dummy {f00=0x0012, f01=0x40d6, f02=» @ H IDENT D:UT10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY * D:UT10 * H D:UT10U * Z * & 20 0 0 0 0 0 0 * n 0 !0 '0 -0 3 7 * 2 * @ * * ) P ) =
0x04a77c…04a910 Dummy {f00=0x0012, f01=0x4118, f02=» @ H IDENT U:UT20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY + U:UT20 + H U:UT20U + Z * & + n * & + = * + P + =
0x04a910…04aaa4 Dummy {f00=0x0012, f01=0x40d6, f02=» @ H IDENT D:UT20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY , D:UT20 , H D:UT20U , Z * & 20 0 0 0 0 0 0 , n 0 !0 '0 -0 3 7 , 2 , @ , * + P + =
0x04aaa4…04ac38 Dummy {f00=0x0012, f01=0x40da, f02=» @ H IDENT C:CK10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY - C:CK10 - H C:CK10C - Z * & d - n - ( - ( - @ - * + P + =
0x04ac38…04adcc Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:CK10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY . D:CK10 . H D:CK10C . Z * & > . n * & 0 0 0 0 0 . = . > . @ .
0x04adcc…04af60 Dummy {f00=0x0012, f01=0x4110, f02=» @ H IDENT C:CK20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY / C:CK20 / H C:CK20C / Z * & / n * & f f f f f f f f f f f f U D D / = D U U f D f / H / = H /
0x04af60…04b0f4 (2, 18) Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:CK20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 0 D:CK20 0 H D:CK20C 0 Z * & > 0 n * & 0 = 0 > 0 @ 0 / = H /
0x04b0f4…04b288 Dummy {f00=0x0012, f01=0x40c4, f02=» @ H IDENT U:UQQ0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 1 U:UQQ0 1 H U:UQQ0U 1 Z ( $ 1 n 1 1 @ 1 = 0 > 0 @ 0 / = H /
0x04b288…04b41c Dummy {f00=0x0012, f01=0x40ae, f02=» @ H IDENT D:UQQ0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 2 D:UQQ0 2 H D:UQQ0U 2 Z & " 0 0 0 2 n :U 2 @ 2 1 @ 1 = 0 > 0 @ 0 / = H /
0x04b41c…04b5b0 Dummy {f00=0x0012, f01=0x416a, f02=» @ H IDENT DOQCCY TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 3 DOQCCY 3 H $$$TRAQ 3 Z DOQCCY 3 l EPPCCYQ PAJRN XBFMT 3 3 3 3 H 3 3 9 3
0x04b5b0…04b744 Dummy {f00=0x0012, f01=0x0190, f02=» L H IDENT DPECCY TRA 10.0 80-05-13 F1 O1111 EXCHANGE CURRENCY 4 DPECCY SPAP26 4 T $$$TRAE 4 n DPECCY SPAP26 4 ( $ PAJRN PCVCH T:DISP. T:ERAS- XBFMT 4 4 4 4 4
0x04b744…04b8d8 Dummy {f00=0x0012, f01=0x0190, f02=» 4 8 : 5 >0 : 5 J F " D Ak RLIU RLI2 !RL L ev fwW A L et fu hL jL kL dLA RLI2_ hL 5 , B0 R 5 z M 5 N 5 V 5 W 5 J F " D @ +L + lj c RL lk d RLI Ic cd dIHU-I c
0x04b8d8…04ba6c Dummy {f00=0x0012, f01=0x4106, f02=»*A / A js k# dc de dy dL 5 d 0 6 " 0 6 4 0 6 F 0 6 X 6 j J F " D !fL:*dx6 gf dc df dy dLW%A j# ks dc dy dL!fL *cx gf dfW de0X 6 z 6 0X 4 6 6 @ 6
0x04ba6c…04bc00 Dummy {f00=0x0012, f01=0x0190, f02=» L H IDENT DQCOPR TRA 10.0 80-05-13 F1 O1111 CLOSE OPERATOR 7 DQCOPR 7 T $$$TRAC 7 f DQCOPR 7 x PAJRN XBFMT ZHWRID. 7 0 7 0 7 0 7 7 7
0x04bc00…04bd94 (2, 19) Dummy {f00=0x0013, f01=0x0190, f02=»@VAi L IL JL RLH5 RLW RLI2q I I I J J H5 RLW 7 N 8 H O 8 X Z 8 j [ 8 z f 8 g 8 r 8 s 8 v0 8 x 8 0 8 J F " D
0x04bd94…04bf28 Dummy {f00=0x0013, f01=0x4030, f02=» + L 6LW L@i4 8 9 @ 9 , J H5 RLW 7 N 8 H O 8 X Z 8 j [ 8 z f 8 g 8 r 8 s 8 v0 8 x 8 0 8 J F " D
0x04bf28…04c0bc Dummy {f00=0x0013, f01=0x0190, f02=» > H IDENT EINIT TRA 10.0 80-05-13 F1 O1111 INITIALISATIONS : > : EAIOPR EBZACC ECICCY EDIAC1 EEITR1 EFIAC2 EGITR2 : F EHISYSN EZIBUFA : $$$TRA : B > EAIOPRN EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 : $ EGITR2 E
0x04c0bc…04c250 Dummy {f00=0x0013, 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 ;
0x04c250…04c3e4 Dummy {f00=0x0013, f01=0x0190, f02=» ; Z0 < ]0 < ` < , c < < f < L i < l0 < l o0 < ~ r0 < u0 < x0 < {0 < ~0 < 0 < J F " D @ qL rL
0x04c3e4…04c578 Dummy {f00=0x0013, 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
0x04c578…04c70c Dummy {f00=0x0013, f01=0x018e, f02=» = 0 > 0 > 0 > 0 0 > B 0 > T 0 > f 0 > x > [ > > > > J F " D = L L L L L L4 L L 2 = L
0x04c70c…04c8a0 Dummy {f00=0x0013, f01=0x4044, f02=» > " R4 !L 'L (L )L +L "L4 ? ? .@ ? @ 0 > B 0 > T 0 > f 0 > x > [ > > > > J F " D = L L L L L L4 L L 2 = L
0x04c8a0…04ca34 (2, 20) Dummy {f00=0x0014, f01=0x0190, f02=» : H IDENT PBBOOK TRA 10.0 80-05-13 F1 O1111 PRINT BOOK PBBOOK PYPOSB B $$$TRAB PBBOOK PYPOSB n > : PVATTPB PWDETPA PZPOSD0 QENTRSF T:DSC0 T:DSC1B T:DSC2 0 , T:EDWR XCLAMPS XEERR ZCRDD ZDRWRD ZMRDF
0x04ca34…04cbc8 Dummy {f00=0x0014, f01=0x0190, f02=» ( , - 1 . 0 @ ; P J F " D R ):L DL VL0X VD0X DL0X D U T R RL R I2d B RU ` D O P & U ^0 & b
0x04cbc8…04cd5c Dummy {f00=0x0014, f01=0x018e, f02=»! L ! L W dL1X F T U_F% L j ( 3 8 J Z 0 3 j | & ZZZZZZ " & 99
0x04cd5c…04cef0 Dummy {f00=0x0014, f01=0x018a, f02=» & F*ZVZZZVZZ9,99- " 6 ( F 0 R 0 % d 0 % v 0 $ 2 J F " D RI2 CL RC 0X T L
0x04cef0…04d084 Dummy {f00=0x0014, f01=0x4008, f02=»@ & F*ZVZZZVZZ9,99- " 6 ( F 0 R 0 % d 0 % v 0 $ 2 J F " D RI2 CL RC 0X T L
0x04d084…04d218 Dummy {f00=0x0014, f01=0x0190, f02=» F H IDENT PRINT TRA 10.0 80-05-13 F1 O1111 PRINT JOURNAL - VOUCHER 2 . PAJRN PCVCH PVATTP PWDETP PXSKIP PZPOSD N $$$TRAI > : PAJRN PCVCH m PVATTPD S PWDETPI _ PXSKIP f PZPOSD l B > T:DSC0I T:DSC1A T:DSC20 T:EDWRF T:GETT XCLAM
0x04d218…04d3ac Dummy {f00=0x0014, f01=0x0190, f02=» * . 50 $ 8 , 6 : H > X J F " D ):L DL0X D F 6F ,28>D CL RC 0X W=1X FW70X L CL RC 0X h B f G I M O
0x04d3ac…04d540 Dummy {f00=0x0014, f01=0x0190, f02=» v z { 6 ( ~ : J F " D @ R W 1X FW 1X FW 1X FW 1X FW 1X FW ):L R 4 I5 R AY R RL R J 0 " 1010313801100033000000
0x04d540…04d6d4 (2, 21) Dummy {f00=0x0015, f01=0x0190, f02=» I2 ):L DL VL0X VD0X DL0X D F 6F z TLW TLAX k' RT1X F l H X h 0 x l 0 l
0x04d6d4…04d868 Dummy {f00=0x0015, f01=0x0190, f02=»X F!FL TL@W k RT1X F@X b 0 l 2 B R 0 b t 0 l " '0 D ) 00 2 l
0x04d868…04d9fc Dummy {f00=0x0015, f01=0x0190, f02=»T1X FW TL0X L RT1X F TL RT1X l E * I _ : U d J W ` l g | i & & ( q0 u0 y0
0x04d9fc…04db90 Dummy {f00=0x0015, f01=0x018e, f02=» - & & Y , & < Z J " 9 & l 999999 z " a & S & & (R) & 999 " R &
0x04db90…04dd24 Dummy {f00=0x0015, f01=0x018e, f02=» & Y & Z " " 9 4 & D & l R & ` ZZVZZZVZZ9,99- n " & ( & & Y & Z "
0x04dd24…04deb8 Dummy {f00=0x0015, f01=0x0190, f02=» ( & $ & Y 2 & B Z P " 9 b & r ZZVZZ9,999 " c & ZZVZZZ,ZZ9 " d & ( !
0x04deb8…04e04c Dummy {f00=0x0015, f01=0x018e, f02=»ZZZVZZ9,99-4 " & $ & W 2 & X B & R & ` & n ( | & & Y & Z " 9 & & S &
0x04e04c…04e1e0 Dummy {f00=0x0015, f01=0x0190, f02=» & & & & k 4 & B & P ( ^ j & z 99E-99E-99 " & 99E:99 " & 999999
0x04e1e0…04e374 (2, 22) Dummy {f00=0x0015, f01=0x018e, f02=»( & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x04e374…04e508 Dummy {f00=0x0015, f01=0x4008, f02=»@ & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x04e508…04e69c Dummy {f00=0x0015, f01=0x018e, f02=» @ H IDENT QIRDBS TRA 10.0 80-06-27 F1 O1111 DATABASE RECOVERY QIRDBS H $$$TRAR Z QIRDBS l D @ MASKR T:COMMT T:DREA T:IDIS7 T:SREA1 T:XSTAB ZAOPNDO ZBCLSD " ZCRDD ZDRWRD ZEINSD ZGREA 0 Z
0x04e69c…04e830 Dummy {f00=0x0015, f01=0x0190, f02=» #0 & ) , + > .0 N 0 ` 6 p ; = J F " D L EL R R R L0X E0X DL0R DX L EL HL R L0X E 0X DL0R D D G
0x04e830…04e9c4 Dummy {f00=0x0015, f01=0x0190, f02=» n w0 y z0 y . }0 B T J F " D @P HL#HL,_! DL0R D * HL0X 0X DL0R D >0X A RII2l_K (L )L +L H f 0 y 0
0x04e9c4…04eb58 Dummy {f00=0x0015, f01=0x40a2, f02=» 0 0 y " 6 0 % H . * ( + % L L R I2 _LI A aL HL_Y +L4 Z @ (L )L +L H f 0 y 0
0x04eb58…04ecec Dummy {f00=0x0015, f01=0x0190, f02=» H H IDENT QMISC TRA 10.0 80-05-13 F1 O1111 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI $$$TRA B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP
0x04ecec…04ee80 Dummy {f00=0x0015, 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
0x04ee80…04f014 (2, 23) Dummy {f00=0x0015, 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 I IL IL(I A 4 R L%
0x04f014…04f1a8 Dummy {f00=0x0015, f01=0x0190, f02=» H H IDENT DEMSCR TRA 10.0 80-05-13 F1 O1111 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL0 SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x04f1a8…04f33c Dummy {f00=0x0015, 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 %
0x04f33c…04f4d0 Dummy {f00=0x0015, 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 "
0x04f4d0…04f664 Dummy {f00=0x0015, f01=0x0190, f02=» $ 4 D T d t K X &
0x04f664…04f7f8 Dummy {f00=0x0015, f01=0x0190, f02=» & * < J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S N & l B
0x04f7f8…04f98c Dummy {f00=0x0015, f01=0x0190, f02=» . > 9 N ^ n ~ B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRRRRRR A
0x04f98c…04fb20 Dummy {f00=0x0015, f01=0x0190, f02=» " % ;0 " > 4 @ D J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ :L 1X T C E , H M O U
0x04fb20…04fcb4 (2, 24) Dummy {f00=0x0016, f01=0x0190, f02=» " D @F BL1X BL_ AL0XKX CLWZ0X B)BL 1X F_ 0XK @ACR7 RA AL @L AA_ N ` r ( > (
0x04fcb4…04fe48 Dummy {f00=0x0016, f01=0x018e, f02=»!ALG!ALC!CLb RC 0X BL0 ` ! ! 0 ! @ ! R ! b ! r ! ! ! D ! D ! " ! ! !
0x04fe48…04ffdc Dummy {f00=0x0016, f01=0x4152, f02=» ! " " " ( " : l " L " " $ " n % " ~ * l " " & " & " ( " " & 00 " ( " 6 1 /
0x04ffdc…050170 Dummy {f00=0x0016, f01=0x0190, f02=» > H IDENT SPACHQ TRA 10.0 80-05-13 F1 O1111 APPL-XX CONTROL # > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 # F > : SPCHK2A SPCHK3A SPCHK40 SPCHK5F SPCHK6 SPCHK7X SPTCHKL # $$$TRA # B > SPAP16A SPAP17S SPAP18C ! SPAP22K 8 S
0x050170…050304 Dummy {f00=0x0016, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K # > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P $ 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K $ z SPAP32A T:UPDFH $ . $ $ 40 $
0x050304…050498 Dummy {f00=0x0016, f01=0x0190, f02=» T $ Y % ^ % c % . h % > m % N r % ^ w % n | % ~ J F " D @ IK%IL ,I W CLW R W R W} R Wx R Ws R Wn R Wi R Wd R W_ R WZ % % % %
0x050498…05062c Dummy {f00=0x0016, f01=0x0190, f02=» " % = & J F " D R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R W# R W R W & $ & j & & z ( & * & , & & & & 0 &
0x05062c…0507c0 Dummy {f00=0x0016, f01=0x415e, f02=» & 0 ' ' ' , # ' > , ' N 2 ' ^ 5 ' p J F " D L W L CL4 IK%IL #IL W L CL4 [Lb[ @K ![L W L CL4 A 4 IK ' B0 ' F ' I '
0x0507c0…050954 (2, 25) Dummy {f00=0x0016, f01=0x8190, f02=» > H IDENT XBFMT TRA 10.0 80-05-13 F1 O1111 SCREEN-CONTROL ( XBFMT ( F $$$TRAF ( V XBFMT ( h 0 , FMOVE SPCLRST T:ATTF XCLAMP3 XEERR ZMRDF ( z ( ( ( ( ' (
0x050954…050ae8 Dummy {f00=0x0016, f01=0x8190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q ( j Z ) ( g ) : s ) J | ) J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P ) l ) ) ) )
0x050ae8…050c7c Dummy {f00=0x0016, f01=0x8190, f02=» ) * * " & * 2 & * @ & m * R ( * ` * l & % * | & m * ( * * * * * * J F " D DL WL Q
0x050c7c…050e10 Dummy {f00=0x0016, f01=0x8190, f02=» * + + + ( + 8 + H + X + h + x + + + " < + " < + "
0x050e10…050fa4 Dummy {f00=0x0016, f01=0xc046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 + % , 0@ , B + H + X + h + x + + + " < + " < + "
0x050fa4…051138 Dummy {f00=0x0016, f01=0x018e, f02=» H H IDENT XMESG TRA 10.0 80-05-13 F1 O1111 ERROR- AND MESSAGECONTROL - " XDMSG XEERR XFERR1 XHERAS - P $$$TRAE - v * & XDMSG XEERR XFERR1E XHERAS { - 4 0 T:DSC1E T:EDWRA T:ERAS0 XAKBINF XCLAMP ZMRDF - { - -
0x051138…0512cc Dummy {f00=0x0016, f01=0x0190, f02=» 4 . 9 . = . $ J F " D R D RD 0X 4 C RC 4 1X F R W R DL DL DL0X D R 0X . 4 E . F . m . r . v . . & . & . ( .
0x0512cc…051460 Dummy {f00=0x0016, f01=0x404e, f02=» 1 . $ / ( / / ( / 8@ / JC 4 1X F R W R DL DL DL0X D R 0X . 4 E . F . m . r . v . . & . & . ( .
0x051460…0515f4 (2, 26) Dummy {f00=0x0016, f01=0x0190, f02=» @ H IDENT XOPINP TRA 10.0 80-05-13 F1 O1111 KEYBOARD,BCR,ODR 0 " XAKBIN XCLAMP XGBCR XHMSU 0 H $$$TRAP 0 n * & XAKBIN XCLAMPX XGBCR 7 XHMSU u 0 @ < QAFNKYP T:DSC0A T:DSC10 T:KI3 T:NKI T:RREAY T:WRITC XBFMT 0 : 5 3 -,
0x0515f4…051788 Dummy {f00=0x0016, f01=0x0190, f02=» 1 & 1 - 1 & 0 1 6 ; 1 F @ 1 V J F " D @ @L R I 0X KK@A R @L)AL A5W RA W 0X KK@A@ 4 I6 0X @ 1 h B 1 E 1 N 1 S 1 Z 1
0x051788…05191c Dummy {f00=0x0016, f01=0x0190, f02=» 1 J 2 2 2 ( 2 8 ? K 2 H 0 ? 2 0 ? 2 n 2 @ 2 2 2 2 J F " D jW EZ 0X 0X 0X W0X 4 !"Lg!8L I3`) L!I3Y
0x05191c…051ab0 Dummy {f00=0x0016, f01=0x40ce, f02=» 2 3 3 $ 3 4 J F " D DLW% DLW I3 EL E W E EL DL!EL DL EL_ E 6E 0X DW 0X DW 3 D 3 0X D4 0 3 3 @ 3 2 J F " D jW EZ 0X 0X 0X W0X 4 !"Lg!8L I3`) L!I3Y
0x051ab0…051c44 Dummy {f00=0x0016, f01=0x8190, f02=» L H IDENT ZDSCIO TRA 10.0 80-06-27 F1 O1111 DISC I/O OPERATIONS B > ZAOPND ZBCLSD ZCRDD ZDRWRD ZEINSD ZGREA ZHWRID ZYRLNG T ZZERR $$$TRA > : ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA , " ZHWRID
0x051c44…051dd8 Dummy {f00=0x0016, f01=0x8190, 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
0x051dd8…051f6c Dummy {f00=0x0016, f01=0x8190, f02=» v J F " D @ D DLj D DLj D DLj D DLj D DLj D DL0X DT 0X $ r 1 $ & FILE OPEN UN
0x051f6c…052100 Dummy {f00=0x0016, f01=0x8190, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L J JL ELj EJ 0X 2 K K 0
0x052100…052294 (2, 27) Dummy {f00=0x0016, f01=0x8190, f02=» K 0 " , 2 B ! R ' b - r 4 ? J F " D 0X P R4 I R L0R R0X 0X P R@ 4 0X 4 A R I2 I R D S
0x052294…052428 Dummy {f00=0x0016, f01=0xc188, f02=» x0 | x K ( J F " D @ W R @ 4 I I L%IL* L%IL# L%IL L%IL J I JI)JL LW : +
0x052428…0525bc Dummy {f00=0x0016, f01=0x0190, f02=» B H IDENT ZFMTIO TRA 10.0 80-05-13 F1 O1111 FORMAT I/O CONTROL ZKOPNF ZLCLSF J $$$TRAM d ZKOPNF ZLCLSF B v & " T:CLOSM T:EDWRA T:OPEN0 XAKBINF M FORMFILE
0x0525bc…052750 Dummy {f00=0x0016, f01=0x0190, f02=» 9 J F " D L DL EL XLj DEX DL WLj D W DLj D DL0X DP 1X F RL A A2 ! h 1 x $ ( # &! FORMATFILE OPEN UNSUCCESSFULL ( C H J
0x052750…0528e4 Dummy {f00=0x0016, f01=0x0190, f02=»9999 " e 99999 " e 2 999999 B " e X Z h " e z ZZ " e ZZZ " e ZZZZ " e ZZZZZ
0x0528e4…052a78 Dummy {f00=0x0016, f01=0x0190, f02=»ZZZ9,99E " e ZZZ9,99- " e 8 ZZZZ,ZZ- H " e ` ZZZZ9,00 p " e ZZZZ9,99 " e ZZZZ9,99-O " e ZZZZZ9,99O "
0x052a78…052c0c Dummy {f00=0x0016, f01=0x0190, f02=» ZZZZZZZZ9,99- " e " ZZZZZZZZZ,ZZ 2 " e N ZZZZZZZZZ,ZZ- ^ " e | 99E:99 " e ZZE:ZZ " e ZZVZZ9,99, " e !
0x052c0c…052da0 Dummy {f00=0x0016, f01=0x40e6, f02=»Z9,99- " $e % ZZZVZZZVZZ9,99 " %e < & ZZZVZZZVZZZ,ZZ L " &e j ' F*ZVZZZVZZ9,99-N z " 'e ( @4 0X 4 1X FA K @ ,99, " e !
0x052da0…052f34 (2, 28) Dummy {f00=0x0017, f01=0x0190, f02=» : H IDENT ZMRDF TRA 10.0 80-08-14 F1 O1111 SCREEN I/O ZMRDF B $$$TRAR R ZMRDF d $ MASKR T:DREAT T:EDWR T:XSTA4 v $ ( 4 : >
0x052f34…0530c8 Dummy {f00=0x0017, f01=0x0190, f02=» D @GT E E j^ E] H jH ]E H E IH0X ]EI0X F0RFGT E E j^EE] j L l | J F " D H ]E H E IH0X ]EI0X F0RFGTo E E @E @Ej^@E] Wa E IH0X EI0
0x0530c8…05325c Dummy {f00=0x0017, f01=0x40ee, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( E HLj EH] W 1X FA24 @
0x05325c…0533f0 Dummy {f00=0x0017, f01=0x40f0, f02=» > F IDENT QEMOVE DATATRANSP. BUFFER <--> UWB QEMOVEK F QEMOVEK X I:EVA0 l , ( D@ F 8 1 ~ I:RT1 Y $ @
0x0533f0…053584 Dummy {f00=0x0017, 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
0x053584…053718 Dummy {f00=0x0017, f01=0x4176, f02=» @ H IDENT C:CW10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY C:CW10 H C:CW10C Z & n & & = & [ & y & * & * &
0x053718…0538ac Dummy {f00=0x0017, f01=0xc01a, f02=» @ 0 80-04-22 F1 O1112 CURRENCY INQUIRY C:CW10 H C:CW10C Z ( & n * & DSC001 * & = DSC001 * & [
0x0538ac…053a40 Dummy {f00=0x0017, f01=0x0190, f02=» @ H IDENT T:AA00 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:AA00 H T:AA00A Z > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x053a40…053bd4 (2, 29) Dummy {f00=0x0017, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x053bd4…053d68 Dummy {f00=0x0017, f01=0x4104, f02=» x , ( @ A0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x053d68…053efc Dummy {f00=0x0017, f01=0x40e2, f02=» @ H IDENT T:DA00 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:DA00 H T:DA00D Z AAMAIN n * & A0 0 * * @ > E X @
0x053efc…054090 Dummy {f00=0x0017, f01=0x0190, f02=» L H IDENT ZDSCIO TRA 10.0 80-06-30 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
0x054090…054224 Dummy {f00=0x0017, 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
0x054224…0543b8 Dummy {f00=0x0017, 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
0x0543b8…05454c Dummy {f00=0x0017, f01=0x018e, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L J JL ELj EJ 0X 2 V V 0
0x05454c…0546e0 Dummy {f00=0x0017, 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
0x0546e0…054874 (2, 30) Dummy {f00=0x0017, f01=0x0190, f02=» s v0 J F " D @ I2 I R W R @ 4 I I L%IL* L%IL# L%IL L%IL J I J * 0 I x x K +
0x054874…054a08 Dummy {f00=0x0017, f01=0x4028, f02=»0R DT A 4 X @ $
0x054a08…054b9c Dummy {f00=0x0017, f01=0x8190, f02=» > H IDENT XBFMT TRA 10.0 80-08-18 F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF z '
0x054b9c…054d30 Dummy {f00=0x0017, f01=0x8190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q j Z ( g : s J | J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x054d30…054ec4 Dummy {f00=0x0017, f01=0x8190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x054ec4…055058 Dummy {f00=0x0017, f01=0x8190, f02=» ( 8 H X h x " < " < "
0x055058…0551ec Dummy {f00=0x0017, f01=0xc046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x0551ec…055380 Dummy {f00=0x0017, f01=0x0190, f02=» > H IDENT XBFMT TRA 10.0 80-08-19 F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP9 XEERR ZMRDF z '
0x055380…055514 (2, 31) Dummy {f00=0x0017, f01=0x0190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q j Z ( g : s J | J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x055514…0556a8 Dummy {f00=0x0017, f01=0x0190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x0556a8…05583c Dummy {f00=0x0017, f01=0x0190, f02=» ( 8 H X h x " < " < "
0x05583c…0559d0 Dummy {f00=0x0017, f01=0x4046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x0559d0…055b64 Dummy {f00=0x0017, f01=0x0190, f02=» B F IDENT CTAB01 FT80 CONVERSION TABLSE CTAB01K CTAB02 CTAB03 J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x055b64…055cf8 Dummy {f00=0x0017, f01=0x4066, f02=» h LMNOPQRSTUVWXYZ{|}* 4 t 4 t , P@ b J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x055cf8…055e8c Dummy {f00=0x0017, f01=0x2008, f02=» L = KMD020 DATE = 801103 6876PACK NBR = 0020 0
0x055e8c…056020 Dummy {f00=0x0017, f01=0x0190, f02=» H H IDENT QMISC TRA 4.2 80-01-08 F1 O1112 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI QIMSU $$$TRA B > QAFNKYI QBSTKY4 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR " QGA
0x056020…0561b4 (2, 32) Dummy {f00=0x0018, f01=0x018e, f02=» J F " D R % L, D DL" D"" H3 A3" I0 A0@1W I1 A1@0W 4 D DL6 a Z d l f ~ t y ~ J F " D @D W A0W A1W @0W @1 4 0L 0L0X 0R1HP _ AP0X 00X 00X
0x0561b4…056348 Dummy {f00=0x0018, f01=0x0190, f02=» 0 0 0 ( 0 : J F " D 00X 00X 00X 00X 00X 0W 0L4 @P4 L% L L4 L# L L4 @ L 0 X 0 X 9
0x056348…0564dc Dummy {f00=0x0018, f01=0x40bc, f02=»I A 4 R L% L " ! L LW 4 RL Z WL DL EL FL > N ^ n $ jWFEZF0X D0X 0X W0X 4 ~ @ 9
0x0564dc…056670 Dummy {f00=0x0018, f01=0x0190, f02=» H H IDENT DEMSCR TRA 4.2 80-01-08 F1 O1112 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL0 SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x056670…056804 Dummy {f00=0x0018, f01=0x0190, f02=»CR T:TBWDC T:TDOWS T:TFWD T:THOM T:TLDO < 8 T:TLEFM T:TRIGA T:TSTC0 T:TUP T:UPDFT XCLAMPT XFERR1I 2 r %
0x056804…056998 Dummy {f00=0x0018, f01=0x018e, f02=» RL 4 A AL8R @LI@ 6A %1X @LW 1X @L r I " 0 L @ P " R S b U t X Z $ _ ( m . o w y J F
0x056998…056b2c Dummy {f00=0x0018, f01=0x0190, f02=» ( 8 H X h x L Y &
0x056b2c…056cc0 Dummy {f00=0x0018, f01=0x018e, f02=» & . @ J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S R & l
0x056cc0…056e54 (2, 33) Dummy {f00=0x0018, f01=0x018e, f02=» $ 4 D 9 T d t B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRR
0x056e54…056fe8 Dummy {f00=0x0018, f01=0x0190, f02=» " % ;0 * > < @ L J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ :L 1X D F , I N P V
0x056fe8…05717c Dummy {f00=0x0018, f01=0x0190, f02=» J F " D @FF BL1X BL_ AL0XKX CLW[0X B)BL 1X FF_ 0XK @ACR7 RA AL @L AA ! ! V ! f ! x ! ( ! > ! ! ! ( ! !
0x05717c…057310 Dummy {f00=0x0018, f01=0x0190, f02=»X BAW ALS!ALG!ALC!CLb RC 0X B ! h * " & " 6 " H " X " j " z " " " " D " D " " " "
0x057310…0574a4 Dummy {f00=0x0018, f01=0x416a, f02=» " " # # # . # > # P l # b # r $ $ # ' # , l # # & # & # ( # # & 00 #
0x0574a4…057638 Dummy {f00=0x0018, f01=0x0190, f02=» > H IDENT SPACHQ TRA 4.2 80-01-08 F1 O1112 APPL-XX CONTROL $ > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 $ F > : SPCHK2A SPCHK3A SPCHK40 SPCHK5F SPCHK6 SPCHK7X SPTCHKL $ $$$TRA $ B > SPAP16A SPAP17S SPAP18C ! SPAP22K 8 S
0x057638…0577cc Dummy {f00=0x0018, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K $ > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P % 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K % z SPAP32A T:UPDFH % . % % 40 %
0x0577cc…057960 Dummy {f00=0x0018, f01=0x0190, f02=» T % Y & ^ & c & . h & > m & N r & ^ w & n | & ~ J F " D @ IK%IL ,I W CLW R W R W} R Wx R Ws R Wn R Wi R Wd R W_ R WZ & & & &
0x057960…057af4 (2, 34) Dummy {f00=0x0018, f01=0x0190, f02=» " & = ' J F " D R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R W# R W R W ' $ ' j & ' z ( ' * ' , ' ' ' ' 0 '
0x057af4…057c88 Dummy {f00=0x0018, f01=0x415e, f02=» ' 0 ( ( ( , # ( > , ( N 2 ( ^ 5 ( p J F " D L W L CL4 IK%IL #IL W L CL4 [Lb[ @K ![L W L CL4 A 4 IK ( B0 ( F ( I (
0x057c88…057e1c Dummy {f00=0x0018, f01=0x0190, f02=» > H IDENT XBFMT TRA 4.2 80-01-08 F1 O1112 SCREEN-CONTROL ) XBFMT ) F $$$TRAF ) V XBFMT ) h 0 , FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF ) z ) ) ) ) ' )
0x057e1c…057fb0 Dummy {f00=0x0018, f01=0x0190, f02=» P PD0R]FF#LLt)LL 0R]FF D7 WL Q ) j * ( i * : u * J ~ * J F " D @ FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R * l * * * *
0x057fb0…058144 Dummy {f00=0x0018, f01=0x0190, f02=» * + + " & + 2 & + @ & m + R ( + ` + l & % + | & m + ( + + + + + + J F " D W DL WL
0x058144…0582d8 Dummy {f00=0x0018, f01=0x0190, f02=» + , , , ( , 8 , H , X , h , x , ! , " , " < , " < , "
0x0582d8…05846c Dummy {f00=0x0018, f01=0x4048, f02=» H1 I RKKKW RKKKW I RKKKW RKKK@ 4 , ' - 2@ - D , H , X , h , x , ! , " , " < , " < , "
0x05846c…058600 Dummy {f00=0x0018, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K $ > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P % 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K % z SPAP32A T:UPDFH % . % % 40 %
0x058600…058794 (2, 35) Dummy {f00=0x0018, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x058794…058928 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x058928…058abc Dummy {f00=0x0018, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x058abc…058c50 Dummy {f00=0x0018, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x058c50…058de4 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x058de4…058f78 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x058f78…05910c Dummy {f00=0x0018, f01=0x018e, f02=» * L P* * L P************************************************************************ l P OPTNS LITADR=1112 J F**************************************************
0x05910c…0592a0 Dummy {f00=0x0018, f01=0x0190, f02=» P CWB CSY P TWB TRM P TWB TSP $ P UWB UBF 4 P UWB UIF D P UWB UCY T P UWB UOP d P UWB UA1 t P UWB UA2 P UWB UT1 P UWB UT2 P CWB CK1 P CWB CK2 P UWB UQQ & PSPDSSCRN DSET FC=50,DEV=DY,BUFL=82
0x0592a0…059434 (2, 36) Dummy {f00=0x0019, f01=0x0190, f02=»_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 0W 0 4 @P4 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i
0x059434…0595c8 Dummy {f00=0x0019, f01=0x0190, f02=» $ % 2 4 6 y y k Y 9 %c &d Y 9 l 1 a 4d 4 * = 2 Y 9 S (R) b Y 9 k W X /d s /d .'g 7,c Y 9 l 4 W X Y
0x0595c8…05975c Dummy {f00=0x0019, f01=0x0190, f02=»0 30 50 70 90 ;0 =0 ?0 A0 E ( = S k ! - | | 0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i
0x05975c…0598f0 Dummy {f00=0x0019, f01=0x0190, f02=» D R R D !D D I2 H Dw W} P h^PDW P PD0 ]q #L]t)LR 0 ]q D7 W| Q FP FQ Q h^QFW T Q 9 H #Qu& HD!d] Q^ f^ Q PQWZ#Qu d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pv D d^PD] 0 ^ P W D W| Q _ I2 A A H P W A24 W{j] W 0 ]
0x0598f0…059a84 Dummy {f00=0x0019, f01=0x0190, f02=» 5 6 A _ A A _ A A _#A2 DL0 DD 4 1 q 4 @ @ I 0 K @A @ )A& A5W A W 0 K @A@ 4 I6 0 @ 0 K @A aKW&0 0 E 0 KEF(E F F _ aK0 4 ( Z W E jW EZ 0 0 0 W0 4 !" g!8R I3`) !I3Y DE0 D0 D# I3 DqW% D
0x059a84…059c18 Dummy {f00=0x0019, f01=0x0190, f02=»DF E'j D E Dij D Djj D Dkj D Dlj D Dmj D Dnj D Do0 DT 0 W 0 1 q A A24 0 4 R Dr J J E j EJ 0 D 0 W j 0 D 0 I2 H I 0 @ 4 ~0 0 0 P 4 I ~0 0 0 P @ 4 0 4 A I2 I
0x059c18…059dac Dummy {f00=0x0019, f01=0x0190, f02=»4 H1$H H H H Gz E IH0 ]EI0 F0 FGP I E 0 ]EI0 F0 FGT E E j^ E] H jH ]E H E IH0 ]EI0 F0 FGTl E E j^EE] jH ]E H ] E IH0 ]EI0 F0 FGT@ E E @E @Ej^@E] W3 Es IH0 EI0 F0 FGP I Es0 EI0 F0 FGP 1 q A24 j D R
0x059dac…059f40 Dummy {f00=0x0019, f01=0x0190, f02=» m m O FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDF " $ & ' ( ) * ,0 40 50 70 :0 > : . > A I2 I
0x059f40…05a0d4 (2, 37) Dummy {f00=0x0019, 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:
0x05a0d4…05a268 Dummy {f00=0x0019, 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
0x05a268…05a3fc Dummy {f00=0x0019, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x05a3fc…05a590 Dummy {f00=0x0019, 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
0x05a590…05a724 Dummy {f00=0x0019, 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*
0x05a724…05a8b8 Dummy {f00=0x0019, 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
0x05a8b8…05aa4c Dummy {f00=0x0019, 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*
0x05aa4c…05abe0 Dummy {f00=0x0019, 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 -->
0x05abe0…05ad74 (2, 38) Dummy {f00=0x0019, 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*
0x05ad74…05af08 Dummy {f00=0x0019, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x05af08…05b09c Dummy {f00=0x0019, 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*
0x05b09c…05b230 Dummy {f00=0x0019, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x05b230…05b3c4 Dummy {f00=0x0019, 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
0x05b3c4…05b558 Dummy {f00=0x0019, 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
0x05b558…05b6ec Dummy {f00=0x0019, 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
0x05b6ec…05b880 Dummy {f00=0x0019, 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
0x05b880…05ba14 (2, 39) Dummy {f00=0x001d, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x05ba14…05bba8 Dummy {f00=0x001d, f01=0x0008, f02=» p
0x05bba8…05bd3c Dummy {f00=0x001d, f01=0x000c, f02=»800818 0818 $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF % E X 6T:DA00 800818 T:DA00D AAMAIN * IZDSCIO I I800818 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 ZHWRID <
0x05bd3c…05bed0 Dummy {f00=0x001d, f01=0x0190, f02=» AADEMO 800818 $$$TRAD AAMAIN BASPCTD BCSTTOA BESELF0 CGCSYSF QCGUWB QDFUWBO T:EDWR T:EXIT XAKBIN ZGREA f BASPCT 800818 $$$TRAS BASPCT SPAP15S SPAP31 CASTTSS CBSTTSA T:DISP0 T:ERASF XBFMT ZBCLSDI ZLCLSFC
0x05bed0…05c064 Dummy {f00=0x001d, f01=0x0190, f02=»PA XEERR ZCRDD ZDRWRD ZGREA BESELF 800818 $$$TRAS BESELF CDCHKYS CEGACTA CFCHKH0 DAUCCYF DCVDU DDTP71C DELACTI DFOACT DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF DOQCCYS DPECCYA DQCOPR0 ECICCYF EZIBUFD PAJRN XAKBI
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x0190, f02=» QIRDBS1 T:SETTE XBFMT XEERR ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRID ZKOPNF ZLCLSF >CDCHKY 800818 $$$TRAC CDCHKY XEERR xCEGACT 800818 $$$TRAG CEGACT DKDSTMG PBBOOKA QENTRS0 QGATYPF XBFMT XEERR XGBCR ZCRDD Z
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=»RN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG 1 6 DAUCCY % 800818 $$$TRA DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPAP25 SPAP28 ( SPAP29S J ECICCYU PAJRN T:DISPS T:ERA
0x05c38c…05c520 Dummy {f00=0x001d, f01=0x0190, f02=» XBFMT XEERR ZCRDD ZDRWRDA ZGREA ZHWRID ZYRLNG <DCVDU / 800818 $$$TRAV DCVDU XBFMT DDTP71 0 800818 $$$TRAT DDTP71 FMOVE PVATTPT PWDETP T:DSC03 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF > DELACT
0x05c520…05c6b4 (2, 40) Dummy {f00=0x005a, f01=0x0190, f02=» + - 0 P . 2 . 8 . . 9 . > > . P J F " D )"L` L A R I2 L R R DL0X D P 0X DL0R DT- RL WV0R . ` J0 . N0 . R0 . T . [ .
0x05c6b4…05c848 Dummy {f00=0x005a, f01=0x0190, f02=» / / J F " D @ e e eL/#eL L R I29 R I21_G eL RLI2&!eL" eL RLI2 !eL R / & / t 0 e / / 0 e / 0 e / 0 e / 0 e / 0 /
0x05c848…05c9dc Dummy {f00=0x005a, f01=0x408a, f02=» / J 0 0 0 * 0 < " W RW CL LW LW A 4 0 N 0 t@ 0 0 e / / 0 e / 0 e / 0 e / 0 e / 0 /
0x05c9dc…05cb70 Dummy {f00=0x005a, f01=0x40e4, f02=» L H IDENT DCVDU TRA 10.0 80-11-17 F1 O1111 DEMONSTRATE VIDEO 1 DCVDU 1 T $$$TRAV 1 d DCVDU 1 v XBFMT 1 1 1 RL4 1 1 @ 1 ************************************
0x05cb70…05cd04 Dummy {f00=0x005a, f01=0x0190, f02=» H H IDENT DDTP71 TRA 10.0 80-11-17 F1 O1111 DEMONSTRATE 6371-PRINTER 2 DDTP71 2 P $$$TRAT 2 b DDTP71 2 t D @ FMOVE PVATTPT PWDETP T:DSC07 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN 2 XEERR ZMRDF 2 2 2
0x05cd04…05ce98 Dummy {f00=0x005a, f01=0x018e, f02=» & f 2 ( 3 . A 3 " 0 3 4 5 A 3 D 7 3 V 8 3 f 90 3 x :0 3 < 3 = 3 >0 3 ?0 3 J F " D R R RL R I2 DL VL0X VD0
0x05ce98…05d02c Dummy {f00=0x005a, f01=0x0190, f02=» 3 J 4 K0 4 L0 4 , N 4 > O 4 N P0 4 ` Q0 4 r S 4 T 4 U0 4 V0 4 X 4 4 Y0 & 4 B 4 ^ 4
0x05d02c…05d1c0 Dummy {f00=0x005a, f01=0x0190, f02=» o 4 5 p0 0 5 r 5 & t 5 6 w D,A,L,CH 5 F y " 5 ^ z 5 n } GB,NL,B 5 " 5 5 J F " D @ RLLL iL RLLL RLLL RLLL RL DL RD RL RL0R^F RL RL0R^F kL RL kL R 5
0x05d1c0…05d354 (2, 41) Opaque[0x194]
0x05d354…05d4e8 # DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x03b0, f03=0x2020}
0x05d354…05d4e8 IdxSect {
0x05d354…05d4e8 f00 = 0x001d // 0x5d354 @0x0
0x05d354…05d4e8 f01 = 0x0004 // 0x5d356 @0x2
0x05d354…05d4e8 gno = [ // 0x5d358 @0x4
0x05d354…05d4e8 [0x00]: C0x001d.0x2.0
0x05d354…05d4e8 [0x01]: C0x001d.0x3.0
0x05d354…05d4e8 ]
0x05d354…05d4e8 }
0x05d4e8…05d67c Dummy {f00=0x001d, 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********
0x05d67c…05d810 Dummy {f00=0x001d, 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,
0x05d810…05d9a4 Dummy {f00=0x001d, 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
0x05d9a4…05db38 Dummy {f00=0x001d, 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,
0x05db38…05dccc Dummy {f00=0x001d, 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 *
0x05dccc…05de60 Dummy {f00=0x001d, 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
0x05de60…05dff4 (2, 42) Dummy {f00=0x001d, 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
0x05dff4…05e188 Dummy {f00=0x001d, 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
0x05e188…05e31c Dummy {f00=0x001d, 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*
0x05e31c…05e4b0 Dummy {f00=0x001d, 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 @
0x05e4b0…05e644 Dummy {f00=0x001d, f01=0x2008, f02=» ODCASH(KW2,KW4),TDAMOUNT ACCUMULTED WITHDRAWALS DJ900 @ * N * REWRITE ACCOUNTRECORD X PERF ZDRWRD,ADACTRNR,NDLRN1 x DJ999 RET PEND @
0x05e644…05e7d8 Dummy {f00=0x001d, 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 +!
0x05e7d8…05e96c Dummy {f00=0x001d, 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 .
0x05e96c…05eb00 Dummy {f00=0x001d, 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
0x05eb00…05ec94 (2, 43) Opaque[0x194]
0x05ec94…05ee28 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x05ec94…05ee28 IdxSect {
0x05ec94…05ee28 f00 = 0x0000 // 0x5ec94 @0x0
0x05ec94…05ee28 f01 = 0x0000 // 0x5ec96 @0x2
0x05ec94…05ee28 gno = [ // 0x5ec98 @0x4
0x05ec94…05ee28 [0x01]: C0x0000.0x1.1
0x05ec94…05ee28 ]
0x05ec94…05ee28 }
0x05ee28…05efbc Dummy {f00=0x0000, f01=0x0000, f02=»
[…0x5…]
0x05f7a0…060440 (3, 0) DirGranule ((3, 0)) {
0x05f7a0…060440 DirEnt {nam=»BARCLA«, typ=»Y «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»NJDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»CTAB99«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»CURSOR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»BDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»BDEINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»ENQ «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»EXPAND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»FINDLN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»KBREAD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»LEAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»SCWRIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»UNPCK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»UNPPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»PUSH «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»KTABBE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»ERASUP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»OBGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»TESTFI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x05f7a0…060440 DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x05f7a0…060440 }
0x060440…0605d4 (3, 1) Opaque[0x194]
0x0605d4…060768 # DirEnt {nam=»NJDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0280, f03=0x0000}
0x0605d4…060768 IdxSect {
0x0605d4…060768 f00 = 0x0014 // 0x605d4 @0x0
0x0605d4…060768 f01 = 0x0004 // 0x605d6 @0x2
0x0605d4…060768 gno = [ // 0x605d8 @0x4
0x0605d4…060768 [0x00]: C0x0014.0x0.0
0x0605d4…060768 [0x01]: C0x001c.0x0.0
0x0605d4…060768 ]
0x0605d4…060768 }
0x060768…0608fc Dummy {f00=0x0014, f01=0x018e, f02=» P IDENT NJDDIV P DDIV P* ( P TERM K0 2 P CWB CB1 B P CWB CB2 R P TWB TB1 b P TWB TB2 r P START KBGO PDSDY DSET FC=50,BUFL=100 PDSKB DSET FC=20 PDSGP DSET FC=30 P P P PCB1 BLK
0x0608fc…060a90 Dummy {f00=0x0014, f01=0x0190, f02=» PCBIN6 BIN '6' PCBIN8 BIN '8' PCBIN9 BIN '9' 0 PCBIN10 BIN '10' F PCBIN12 BIN '12' ^ PCBIN14 BIN '14' v PCBIN15 BIN '15' PCBIN16 BIN '16' PCBIN17 BIN '17' PCBIN80 BIN '80' P P PCB2 BLK
0x060a90…060c24 Dummy {f00=0x0014, f01=0x0190, f02=»3' PDC4 STRG X'14' . PCATTRIB1 STRG X'74' RIGHT JUST + MODIFIED PCATTRIB2 STRG X'64' MODIFIED R P v P ~ P PTB1 BLK PTDC1 BOOL F PTDC2 BOOL F PTDC3 BOOL F PTDC4 BOOL F , PTINT BOOL F T= ENQ CALLED
0x060c24…060db8 Dummy {f00=0x0014, f01=0x0190, f02=»OR ALL PURPOSES x P* ATTRIBUTE BOOLEANS BEGIN PTANODISP BOOL F NON-DISPLAY : PTAHILITE BOOL F HIGHLIGHT ^ " PTAMODIF BOOL F MODIFIED FIELD $ PTAPROTEC BOOL F PROTECTED FIELD , PTARITJUS BOOL F RIGHTJUSTIFIED = NUMERIC P* ATTRIBUT
0x060db8…060f4c Dummy {f00=0x0014, f01=0x0190, f02=» PTBIN4 BIN SCRATCH PTBIN5 BIN SCRATCH PTBIN6 BIN SCRATCH 8 PTBIN7 BIN SCRATCH R PTBIN8 BIN SCRATCH l PTCURPOS BIN CURSORPOSITION & PTPOINTER BIN POINTER INTO TSCRBUF . PTSTACKPT BIN '0' STACKPOINTER. MAY ONLY BE P
0x060f4c…0610e0 Dummy {f00=0x0014, f01=0x0190, f02=»SKID P USED IN PUSH/POP P ( P 0 PTB2 BLK 8 PTBCD4 BCD 4 H * PTTERMID STRG 5 TERMINAL IDENTIFICATION PTBRANCH STRG 3 DEST.BRANCH PTTYPE STRG 2 SCREEN NBR PTSTR1 STRG 1 PTSTR2 STRG 2 PTSTR3 STRG 3 P
0x0610e0…061274 (3, 2) Dummy {f00=0x001c, f01=0x40ec, f02=»TSCBUF STRG 84 PTKBBUF STRG 50 , PTSTACK STRG 60 CREDITSTACK. MAY ONLY BE , P USED IN PUSH/POP. P PDIV x P ENTRY KBGO P EXPROC TEST PKBGO P PERF TEST B KBGO END @
0x061274…061408 Dummy {f00=0x001c, f01=0x2008, f02=» TSTR256 STRG 256 TSCRBUF STRG 2000 " TSCBUF STRG 82 < TKBBUF STRG 50 R h p PDIV x ENTRY KBGO KBGO B KBGO END @ TBIN3 BIN TBIN4 BIN TBIN5 BIN TBIN6 BIN
0x061408…06159c Dummy {f00=0x001c, f01=0x0190, f02=» P IDENT UNPPRT 80.10.30 NJ P DDUM NJDDIV & P PDIV : P ENTRY UNPPRT H P EXPROC EXPAND,PSTRG,PBIN ^ P EXPROC PRTLN,PSTRG P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P*
0x06159c…061730 Dummy {f00=0x001c, f01=0x0190, f02=»ME FROM THE INPUTBUFFER p 2 P* 2. REPLACE SPACECOMPRESSION CHARACTERS WITH * P* THE APPRIOPRIATE NUMBER OF SPACES V 2 P* 3. HAND A PRINTLINE OVER TO THE PRINTER TASK P* P* ALTERED FIELDS: P* TSTR1 - DC2 P* TSTR2
0x061730…0618c4 Dummy {f00=0x001c, f01=0x0190, f02=»OVE TSTR2,=X'2B2B' START WITH NO-SPACE PUNPP010 . ( P XCOPY TSCBUF,CBIN0,CBIN80,BUF,TBIN1 > $ P MOVE MAX. POSSIBLE FIELD SIZE j P MOVE TSTR1,DC2 P MOVE TBIN3,CBIN0 0 P MATCH TSCBUF,TBIN3,CBIN80,TSTR1,CBIN0,CBIN1 P FIND FIRST LI
0x0618c4…061a58 Dummy {f00=0x001c, f01=0x0190, f02=»ED, IF ANY | & P BNOK UNPP020 NO FORMFEED PRESETN, P ASSUME LINEFEED PRESENT < P CBL TBIN3,TBIN2,UNPP020 ` " P DID LINEFEED OCCUR FIRST? 0 P MOVE TBIN1,TBIN3 NEW STARTINGPOINT FOR NEXT P MOVE TBIN4,TBIN3 P CLEAR TBOOL FF OCCU
0x061a58…061bec Dummy {f00=0x001c, f01=0x0190, f02=» . P SUB TBIN4,TBIN1 FIND LENGTH OF PRINTLINE P MOVE TBIN5,=W'100' : ( P SUB TBIN5,TBIN4 HOW MUCH TO ERASE? V P DLETE TSCBUF,TBIN4,TBIN5 P MOVE TBIN4,=W'83' : P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 FORM CTRL CHARS 4 P XCOPY TSCBU
0x061bec…061d80 Dummy {f00=0x001c, f01=0x40ee, f02=»EED? f , P MOVE TSTR2,='1' SET FORMFEED CTRLCHARS PUNPP040 < P ADD TBIN1,CBIN1 L & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 d & P CBNE TSTR1,ETX,UNPP010 FINISHED ? P PERF PULL,CBIN6 P PEND P END @ CHARS 4 P XCOPY TSCBU
0x061d80…061f14 (3, 3) Opaque[0x194]
0x061f14…0620a8 # DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0100, f03=0x0000}
0x061f14…0620a8 IdxSect {
0x061f14…0620a8 f00 = 0x0008 // 0x61f14 @0x0
0x061f14…0620a8 f01 = 0x0002 // 0x61f16 @0x2
0x061f14…0620a8 gno = [ // 0x61f18 @0x4
0x061f14…0620a8 [0x00]: C0x0008.0x0.0
0x061f14…0620a8 ]
0x061f14…0620a8 }
0x0620a8…06223c Dummy {f00=0x0008, f01=0x0190, f02=» SCR LED NJDDIV !!LS $$XLS$$ " !!AB 6 LED TEST B !!LS $$XLS$$ R !!AB f LED CURSOR r !!LS $$XLS$$ !!AB LED BDE !!LS $$XLS$$ !!AB LED BDEINP !!LS $$XLS$$ !!AB LE
0x06223c…0623d0 Dummy {f00=0x0008, f01=0x018e, f02=»AB LED KBREAD !!LS $$XLS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x0623d0…062564 Dummy {f00=0x0008, f01=0x0024, f02=» SCR ASG /E0,TY10 LS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x062564…0626f8 Dummy {f00=0x0008, f01=0x2008, f02=» SCR ASG /E0,TY10 LS$$ !!AB 0 LED LEAD < !!LS $$XLS$$ L !!AB ` LED SCWRIT l !!LS $$XLS$$ ~ !!AB LED UNPCK !!LS $$XLS$$ !!AB LED UNPPRT !!LS $$XLS$$ !!AB LED PU
0x0626f8…06288c Dummy {f00=0x0008, f01=0x0190, f02=»7I3 7 0 J7 2 _ fI3 J* 78 73jJ 7I3 7 0 J7 2 3 _ 0 90 40 9_ H6 jI31 I 31 3 21 2 I#d 2I 0 9 2 4 G!jG 9 jG ' W jG ( 4 * 4 E' M dM E 1 1 0 M1 4 < = <=0 M E'dM E 0 M 4 GK@0@1@2@3 2 5 j2 K
0x06288c…062a20 Dummy {f00=0x0008, f01=0x0190, f02=» 9 1 jD K1 D"P 35 3 < K< 15 1 K1I5 H; I: W jL4<K5H9 M)jM <K1 < W M+jM <K1 < 0 M< 5<_w 4 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O;
0x062a20…062bb4 (3, 4) Opaque[0x194]
0x062bb4…062d48 # DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0068, f03=0x0000}
0x062bb4…062d48 IdxSect {
0x062bb4…062d48 f00 = 0x0003 // 0x62bb4 @0x0
0x062bb4…062d48 f01 = 0x0002 // 0x62bb6 @0x2
0x062bb4…062d48 gno = [ // 0x62bb8 @0x4
0x062bb4…062d48 [0x00]: C0x0003.0x1.0
0x062bb4…062d48 ]
0x062bb4…062d48 }
0x062d48…062edc Dummy {f00=0x0003, f01=0x018e, f02=» 6 P************************************************* 6 P* * > 6 P* THIS EQUATE-COLLECTION IS TO BE USED WHERE- * x 6 P* EVER YOU NEED EQUATES. * 6 P*
0x062edc…063070 Dummy {f00=0x0003, f01=0x018e, f02=» P P PKYINS EQU X'01' PKYUP EQU X'02' 0 PKYENQ EQU X'03' F PKYLEFT EQU X'04' ^ PKY50 EQU X'05' v PKYRIGT EQU X'06' PKYNL EQU X'07' PKYHOME EQU X'08' PKYDOWN EQU X'09' PKYBDE EQU X'0A' PKYPTR
0x063070…063204 Dummy {f00=0x0003, f01=0x4124, f02=» | PKYDEL EQU X'10' PKYENT EQU X'12' PKYCU EQU X'13' 8 PKYFR EQU X'14' N PKYPROOF EQU X'15' d PKYFP EQU X'16' ~ PKYCANC EQU X'17' PKY30 EQU X'1C' PKYTL EQU X'1D' PKYFDE EQU X'1E' PKYBTAB EQU X'23' P
0x063204…063398 Dummy {f00=0x0003, f01=0x2008, f02=» KYINS EQU X'01' CRUP EQU X'02' 0 !!EN F KPF /S,EQUATE R LST EQUATE h@ z EQUATE-COLLECTION IS TO BE USED WHERE * x 6 1* EVER YOU NEED EQUATES. * 6 1*
0x063398…06352c Dummy {f00=0x0003, f01=0x0000, f02=»
[…0x1…]
0x0636c0…063854 (3, 5) Opaque[0x194]
0x063854…0639e8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0070, f03=0x0000}
0x063854…0639e8 IdxSect {
0x063854…0639e8 f00 = 0x0003 // 0x63854 @0x0
0x063854…0639e8 f01 = 0x0002 // 0x63856 @0x2
0x063854…0639e8 gno = [ // 0x63858 @0x4
0x063854…0639e8 [0x00]: C0x0003.0x2.0
0x063854…0639e8 ]
0x063854…0639e8 }
0x0639e8…063b7c Dummy {f00=0x0003, f01=0x018e, f02=» P IDENT CTAB01 80.10.30 NJ P ENTRY CTAB01 & PCTAB01 EQU * < " P DATA FUNC,FUNC,UNSH,SHIFT,0,0 P 4 P*************** FUNCTIONCLUSTER *************** v > PFUNC DATA /0F07,/092F,/0406,/1008,/0201,/1723,/1C0D,/0512 : P DATA /3031,/3233,/3435,
0x063b7c…063d10 Dummy {f00=0x0003, f01=0x0190, f02=» T > PUNSH DATA /20FF,/FFFF,/FFFF,/FFFF,/FF3C,/FF40,/2C2D,/2EFF : P DATA /3031,/3233,/3435,/3637,/3839,/1212,/FFFF,/FFFF J : P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF < P****
0x063d10…063ea4 Dummy {f00=0x0003, f01=0x40c2, f02=»1,/2223,/2425,/262F,/2829,/1212,/FFFF,/FFFF : P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 4 : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2AFF r P END @ : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF < P****
0x063ea4…064038 Dummy {f00=0x0003, f01=0x2008, f02=» NT CTAB01 80.10.15 NJ ENTRY CTAB01 & CTAB01 EQU * < " DATA FUNC,FUNC,UNSH,SHIFT,0,0 P < 8*************** FUNCTIONCLUSTER, UNSHIFT *************** v , (/0F07,092F,0406,1008,0201,1723,1C0D,0512 @
0x064038…0641cc Dummy {f00=0x0003, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED LKMAL r !!DL 016 !!DL 017 !!DL 019 !!DL 022 !!DL 023 !!DL 024 !!DL 025 !!DL 026 !!DL
0x0641cc…064360 Dummy {f00=0x0003, f01=0x0190, f02=» DATA 00 !!DL 045 !!DL 046 ( !!DL 047 8 !!DL 048 H !!DL 049 X !!DL 050 h !!DL 051 x !!EN ASM /S KPF /O KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S
0x064360…0644f4 (3, 6) Opaque[0x194]
0x0644f4…064688 # DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0020, f03=0x0000}
0x0644f4…064688 IdxSect {
0x0644f4…064688 f00 = 0x0001 // 0x644f4 @0x0
0x0644f4…064688 f01 = 0x0004 // 0x644f6 @0x2
0x0644f4…064688 gno = [ // 0x644f8 @0x4
0x0644f4…064688 [0x00]: C0x0001.0x0.0
0x0644f4…064688 [0x01]: C0x0006.0x0.0
0x0644f4…064688 ]
0x0644f4…064688 }
0x064688…06481c Dummy {f00=0x0001, f01=0x0190, f02=» P IDENT TEST P DDUM NJDDIV P PDIV , P ENTRY TEST : P ENTRY PRTLN N P ENTRY DCSEND b P EXPROC PUSH,PBIN x P EXPROC PULL,PBIN P EXPROC ATTPCK,PSTRG,PBIN P EXPROC ATTUNP,PSTRG,PBIN P EXPROC BDE P EXP
0x06481c…0649b0 Dummy {f00=0x0001, f01=0x0190, f02=» v P EXPROC POSCUR,PBIN,PBIN P EXPROC LEAD,PBIN ( P EXPROC SCWRIT,PSTRG,PBIN B P EXPROC SCRWR,PSTRG,PBIN d P EXPROC ERWRIT,PSTRG " P EXPROC FINDLN,PSTRG,PBIN,PBIN P EXPROC UNPCK P EXPROC ERASUP P EXPROC LOLITE P
0x0649b0…064b44 Dummy {f00=0x0001, f01=0x0190, f02=»CRNEAR,PBIN P EJECT P INCLUDE KTABBE,LIST " P EJECT > P INCLUDE EQUATE,LIST L P EJECT h PPRTLN PROC STR v P PSTRG STR P WRITE DSGP,STR P RET P PEND P P PDCSEND PROC STRG P PSTRG STRG
0x064b44…064cd8 Dummy {f00=0x0001, f01=0x018e, f02=»SCRBUF,TBIN2,TBIN1,TSTR2,CBIN0,CBIN2 P BNOK DCS010 , P MOVE TSTR2,ETX <ETX>!<ETX> @ * P XCOPY TSCRBUF,TBIN2,CBIN2,TSTR2,CBIN0 d PDCS010 P PERF PULL,CBIN1 P CMP CBIN0,CBIN0 P RET P PEND P P PTEST PROC
0x064cd8…064e6c Dummy {f00=0x0001, f01=0x0190, f02=» P MOVE TP1,CBIN0 P MOVE TKBBUF,=X'4142434403' " P PERF FINDLN,TKBBUF,TP1,CBIN17 D P* j P MOVE TSTR1,=X'FF' t P PERF ATTUNP,TSTR1,CBIN0 P CLEAR TARITJUS P PERF ATTPCK,TSTR1,CBIN0 P* P MOVE TCURPOS,=X'1750'
0x064e6c…065000 Dummy {f00=0x0001, f01=0x0190, f02=»C r P* P MOVE TSCBUF,='*' P PERF SCRWR,TSCBUF,CBIN80 . P* P P MOVE TSCBUF,='!' Z , P PERF SCWRIT,TSCBUF,CBIN128,CBIN12,CBIN1 t P* P PERF ERWRIT,TSCBUF * P MOVE TSCBUF,='ERRORLINE IS LINE 23 ' P PERF ERWRIT,TSC
0x065000…065194 (3, 7) Dummy {f00=0x0006, f01=0x0190, f02=»NL P PERF CRNL P PERF CRNL P PERF CRNL . P* @ P PERF CRDOWN J P PERF CRHOME ^ P PERF CRDOWN r P PERF CRDOWN P PERF CRDOWN P PERF CRDOWN P* P PERF CRUP P PERF CRUP P PERF CRUP P PERF
0x065194…065328 Dummy {f00=0x0006, f01=0x0190, f02=» P* P PERF CRBTAB P PERF CRBTAB " P PERF CRBTAB 6 P PERF CRBTAB J P PERF CRBTAB ^ P* r P MOVE TBIN5,=X'0A01' | P MOVE TBIN6,=X'0A16' P MOVE TBIN1,=X'0A07' P PERF CRNEAR,CBIN1 P* P MOVE TBIN1,=X'0A13'
0x065328…0654bc Dummy {f00=0x0006, f01=0x0190, f02=»KB,TKBBUF,KTABBE,TP1,TP2 P* P MOVE TSTR2K,ETX * P MOVE TKBBUF,='0002 01' B , P XCOPY TSTR2K,CBIN0,CBIN12,TKBBUF,CBIN0 f P MOVE TSTR4,=X'11121111' * P XCOPY TSTR2K,CBIN12,CBIN4,TSTR4,CBIN0 2 P MOVE TKBBUF,=X'1B2020624142431B2420
0x0654bc…065650 Dummy {f00=0x0006, f01=0x0190, f02=» , P XCOPY TSTR2K,TBIN1,CBIN16,TKBBUF,CBIN0 P PERF UNPCK 4 P* H P PERF LOLITE R P* f P PERF ERASUP p P* , P MOVE TSTR80,=X'3132333412313233343536' , P XCOPY TSCRBUF,CBIN0,CBIN12,TSTR80,CBIN0 . P MOVE TSTR80,=X'3712121231
0x065650…0657e4 Dummy {f00=0x0006, f01=0x0190, f02=»=W'24' , P XCOPY TSCRBUF,TBIN1,CBIN12,TSTR80,CBIN0 P PERF UNPPRT,TSCRBUF > P* Z PTEST2 d P PERF POSCUR,CBIN1,CBIN1 r P MOVE LENGTH,CBIN12 ( P PERF KBREAD,LENGTH,KTABBE,TP1,CBIN2 P MOVE TBCD4,LENGTH P EDWRT DSDY,KBFMT
0x0657e4…065978 Dummy {f00=0x0006, f01=0x40e6, f02=»ET P PEND P P P ( PKBFMT FRMT 0 P FNL B P FNL N P FCOPY TKBBUF Z P FILLR ' ',2 p P FMEL '999',TBCD4 P FILLR ' ',40 P FILLR '.',1 P FMEND P END @ LENGTH P EDWRT DSDY,KBFMT
0x065978…065b0c Dummy {f00=0x0006, f01=0x2008, f02=» NT TEST DDUM NJDDIV PDIV ,@ : DDUM NJDDIV B PDIV V ENTRY ENQTST d ENTRY TEST z EXT BDE EXT ENQ EXT UNPPRT EXT KBREAD EXT EXPAND EXT POSCUR EXT CPCOM
0x065b0c…065ca0 Dummy {f00=0x0006, f01=0x0190, f02=» = <= < < = Z 2= jL4 G 4 jL4 N 4 KL HSjH F jH A dK H KR2jE K !E: A5 < < < < = I4 *4 ? W IZ W IY W @5 W @5 4 1 2 3 D%h 23D T1jF 2 I(j 2 I jE F @E 4@ 4 U d 24I 24 3 32_: 4 2 1 jD 1 D" D! < 1
0x065ca0…065e34 (3, 8) Opaque[0x194]
0x065e34…065fc8 # DirEnt {nam=»CTAB99«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x065e34…065fc8 IdxSect {
0x065e34…065fc8 f00 = 0x0004 // 0x65e34 @0x0
0x065e34…065fc8 f01 = 0x0002 // 0x65e36 @0x2
0x065e34…065fc8 gno = [ // 0x65e38 @0x4
0x065e34…065fc8 [0x00]: C0x0004.0x1.0
0x065e34…065fc8 ]
0x065e34…065fc8 }
0x065fc8…06615c Dummy {f00=0x0004, f01=0x0190, f02=» " P IDENT CTAB99 CTAB FOR CREBUG P ENTRY CTAB99 * PCTAB99 EQU * @ P DATA 0,0,UNSH,SHIFT,0,0 T > PUNSH DATA /20FE,/FEFE,/FEFE,/FEFE,/FEFE,/FE2B,/2C2F,/2EFE t : P DATA /3031,/3233,/3435,/3637,/3839,/0DFE,/FE3E,/FEFE : P DATA /3D41,/4243,/4
0x06615c…0662f0 Dummy {f00=0x0004, f01=0x40ec, f02=»FE,/FEFE,/FE3F,/3B3F,/3AFE p : P DATA /3D21,/2223,/2425,/2627,/2829,/0AFE,/FE3C,/FEFE " : P DATA /2B41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F ` : P DATA /5051,/5253,/5455,/5657,/5859,/5A22,/3A5D,/7CFE P END @ : P DATA /3D41,/4243,/4
0x0662f0…066484 Dummy {f00=0x0004, f01=0x2008, f02=» ,/F33F,/3B3F,/3AFE p : 5 DATA /3D21,/2223,/2425,/2627,/2829,/0AFE,/FE3C,/FEFE " : 5 DATA /2B41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F ` : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A22,/3A5D,/7CFE END @ : 5 DATA /3D41,/4243,/4
0x066484…066618 Dummy {f00=0x0004, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED DVTKB 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ n !!CH $$DVTKB$$DVKB00$$ !!CH $$KBAD$$KBAD3$$ !!CH $$/1111$$/1100$$ !!CH $$BCA$$04FF$$
0x066618…0667ac Dummy {f00=0x0004, f01=0x0190, f02=» ASM /S KPF /O KPF /S $ SCR 2 LED DVTGP > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ P ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ | !!CH $$DVTGP$$DVGP00$$ !!CH $$/1111$$/2000$$ !!EN ASM /S KPF /O
0x0667ac…066940 Dummy {f00=0x0004, f01=0x0190, f02=»!!CH $$DVTDY$$DVDY00$$ !!CH $$/ABC$$/1850$$ !!CH $$/1111$$/C000$$ : !!EN X ASM /S d KPF /O r KPF /S SCR LED DVTKB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH
0x066940…066ad4 (3, 9) Opaque[0x194]
0x066ad4…066c68 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0090, f03=0x0000}
0x066ad4…066c68 IdxSect {
0x066ad4…066c68 f00 = 0x0004 // 0x66ad4 @0x0
0x066ad4…066c68 f01 = 0x0002 // 0x66ad6 @0x2
0x066ad4…066c68 gno = [ // 0x66ad8 @0x4
0x066ad4…066c68 [0x00]: C0x0004.0x2.0
0x066ad4…066c68 ]
0x066ad4…066c68 }
0x066c68…066dfc Dummy {f00=0x0004, f01=0x0048, f02=» TRA KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x066dfc…066f90 Dummy {f00=0x0004, f01=0x2008, f02=» KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x066f90…067124 Dummy {f00=0x0004, f01=0x0190, f02=» > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT F < P* INS - INSERT - INSERT ONE CHARTACTER AT CURSORPOS > P* DEL - DELETE - DELETE ONE CHARACTER FROM CURSORPOS F
0x067124…0672b8 Dummy {f00=0x0004, f01=0x0190, f02=»IN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 F P* TBIN4 - ORIG. LENGTH n P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH $ P* TBIN8 - TOTAL LENGTH OF INPUT
0x0672b8…06744c Dummy {f00=0x0004, f01=0x0190, f02=»2,LEN P MOVE TSTR80,=X'00' 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED * P MOVE TBIN3,CBIN0 ` P MOVE TBIN8,CBIN0 z * P CLEAR TCURMOV NO CURSORMOVEMENTS YET PKBR015 P MOVE TBIN6,TBIN2 PKBR017 P MOVE TKBBUF,='+
0x06744c…0675e0 Dummy {f00=0x0004, f01=0x0190, f02=» MOVE TBIN1,TBIN2 RESTLENGTH & P ADD TBIN1,CBIN1 ALLOW FOR EOI-KEY $ " P KI DSKB,TKBBUF,TAB,TBIN1,INX N & P BOK KBR040 KEYLOCK OR TERM. CHAR. t , P* A CHAR NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT P* SIZE OF BUFFER IS REACHE
0x0675e0…067774 (3, 10) Opaque[0x194]
0x067774…067908 # DirEnt {nam=»CURSOR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0228, f03=0x0000}
0x067774…067908 IdxSect {
0x067774…067908 f00 = 0x0011 // 0x67774 @0x0
0x067774…067908 f01 = 0x000a // 0x67776 @0x2
0x067774…067908 gno = [ // 0x67778 @0x4
0x067774…067908 [0x00]: C0x0011.0x1.0
0x067774…067908 [0x01]: C0x0011.0x3.0
0x067774…067908 [0x02]: C0x0012.0x3.0
0x067774…067908 [0x03]: C0x0013.0x0.0
0x067774…067908 [0x04]: C0x0013.0x1.0
0x067774…067908 ]
0x067774…067908 }
0x067908…067a9c Dummy {f00=0x0011, f01=0x0190, f02=» P IDENT CURSOR 80.10.29 NJ P DDUM NJDDIV & P : P B P J P R P Z 8 P* THIS MODULE CONTAINS ALL CURSOR CONTROL ROUTINES: b P* BACKWARD TABULATION P* FORWARD TABULATION P* UP P* DOWN P* HOME P* NEWLIN
0x067a9c…067c30 Dummy {f00=0x0011, f01=0x0190, f02=»ON THE CURSOR ACCORDING TO ROW AND COLUMN | P 2 P : P B 2 P* THROUGHOUT THE MODULE THE PHRASES "R/C" AND J P* "RRCC" ARE USED. 4 P* THEY MEAN "ROW/COLUMN", WHICH IS THE ADRESSING P* LOGARITHM FOR THE CURSOR P PDIV P ENTRY
0x067c30…067dc4 Dummy {f00=0x0011, f01=0x0190, f02=» P ENTRY POSCUR P EXPROC PUSH,PBIN P EXPROC PULL,PBIN 8 P R P Z P b P INCLUDE EQUATE j P EJECT PPOSCUR PROC ROW,COL P PBIN ROW,COL P* 0 P* POSITION THE CURSOR ANYWHERE ON THE SCREEN " P* AS D
0x067dc4…067f58 Dummy {f00=0x0011, f01=0x0190, f02=» MOVE TCURPOS,CBIN0 P MOVE TBIN1,ROW < P XCOPY TCURPOS,CBIN0,CBIN1,TBIN1,CBIN1 FORMAT NOW: RR00 4 & P ADD TCURPOS,COL RRCC t P DSC1 DSDY,POS,TCURPOS P PERF PULL,CBIN1 P RET P PEND P EJECT PCRHOME PROC
0x067f58…0680ec Dummy {f00=0x0011, f01=0x0190, f02=» TPOINTER - POINTING SOMEWHERE IN BUFFER P* 2 $ P* FIELD CONTENTS ON NORMAL EXIT < 2 P* TPOINTER - POINTS TO FIRST ATTRIBUTECHAR d @ P* TCURPOS - POINTS TO FIRST UNPROTECTED FIELD ON SCREEN P* " P* FIELD CONTENTS ON ERROR EXIT
0x0680ec…068280 Dummy {f00=0x0011, f01=0x0190, f02=»E OLD POINTER x & P MOVE TPOINTER,CBIN0 RESET POINTER P MOVE TBIN2,=W'84' @ 2 P MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 Z " P FIND FIRST FIELDDEFINITION P BNOK CRH095 * P ADD TPOINTER,CBIN1 POINT TO FIRST R/C 0 P XCOPY TCURPOS,C
0x068280…068414 (3, 11) Dummy {f00=0x0011, f01=0x0190, f02=»RH099 PCRH095 , P MOVE TPOINTER,TBIN1 RESTORE OLD POINTER PCRH099 L P PERF PULL,CBIN2 Z P RET r P PEND ~ P EJECT PCRNL PROC P* , P* THE PROCEDURE MOVES THE CURSOR TO THE 4 P* FIRST UNPROTECTED FIELD ON THE F
0x068414…0685a8 Dummy {f00=0x0011, f01=0x0190, f02=»* PREREQUISITS 0 P* TPOINTER - POINTS SOMEWHERE IN TSCRBUF P* J " P* FIEL CONTENTS ON NORMAL EXIT T 0 P* TPOINTER - POINTS TO AN ATTRIBUTECHAR z 2 P* TCURPOS - POINTS TO AN UNPROTECTED FIELD P* P* P PERF PUSH,CBIN6
0x0685a8…06873c Dummy {f00=0x0011, f01=0x0190, f02=»RRENT ROW P MOVE TBIN5,CBIN0 PCRN020 , P MOVE TBIN4,=W'84' : 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 T & P BNOK CRN095 CURRENT FIELD IS LAST P ADD TPOINTER,CBIN1 . P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER , P CBE T
0x06873c…0688d0 Dummy {f00=0x0011, f01=0x0190, f02=» DID WE FIND A HIGHER ROW? x 0 P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER " P IF SO, MOVE NEW R/C V * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE t * P DSC1 DSDY,POS,TCURPOS POSITION CURSOR P B CRN099 PCRN095 , P MOVE TPOINTER,TBIN3 RES
0x0688d0…068a64 Dummy {f00=0x0011, f01=0x0190, f02=»E PROCEDURE MOVES THE CURSOR ONE LINE DOWN, 8 P* PREFERABLY IN THE SAME POSITION. IF NO UNPROTECTED 4 : P* FIELDS ARE FOUND IN THIS LINE, THE NEXT LINE WILL BE p P* TRIED, ETC.. > P* IF THE CURRENT LINE IS THE LAST ONE, NOTHING WILL HAPPEN P*
0x068a64…068bf8 Dummy {f00=0x0011, f01=0x018e, f02=»RGET, THE IDEAL POSITION ~ P* P* PREREQUISITS * 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF @ P* v P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL P* " P* FIELD CONTENTS ON ERROR EXIT P* TCURPOS - NOT CHAN
0x068bf8…068d8c Dummy {f00=0x0011, f01=0x0190, f02=» 0 P MOVE TBIN2,TCURPOS SAVE OLD CURSORPOSITION 2 P ADD TBIN2,=X'0100' IDEAL POSITION (= +1 LINE) 8 PCRD020 n P MOVE TBIN1,TBIN2 | P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 ( P BNOK CRD095 NOTHING BELOW, NO MOV
0x068d8c…068f20 Dummy {f00=0x0011, f01=0x018e, f02=» XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE ROW 0 P CBL TBIN5,TBIN2,CRD020 STILL ON SAME LINE ? < P B CRD035 p PCRD030 P MOVE TBIN4,=W'84' > P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 NEXT FIELD P BNOK CRD095 " P ADD TPO
0x068f20…0690b4 (3, 12) Dummy {f00=0x0012, f01=0x0190, f02=» f 8 P XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C * P CBNG TBIN1,TBIN6,CRD040 FOUND R/C(R) D , P MOVE TBIN5,TBIN6 PREPARE FOR NEXT TEST r P B CRD030 PCRD040 ( P CBE TBIN5,TBIN1,CRD050 TAKE R/C(L) ( P CBE TBIN6,TBIN1,CRD060 TA
0x0690b4…069248 Dummy {f00=0x0012, f01=0x0190, f02=»CT n P B CRD070 PCRD060 * P MOVE TCURPOS,TBIN6 RIGHT WAS PERFECT * PCRD070 X ( P ADD TBIN3,CBIN2 POINT AT ATTRIBUTE f P DSC1 DSDY,POS,TCURPOS P B CRD099 PCRD095 , P MOVE TPOINTER,TBIN3 RESTORE OLD POINTER PCRD099
0x069248…0693dc Dummy {f00=0x0012, f01=0x0190, f02=»THE FIELD l 2 P* JUST AFTER THE CURRENT FIELD. IF THE CURRENT 0 P* FIELD IS THE LAST ONE, NOTHING WILL HAPPEN H P* | P* PREREQUISITS 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF P* P* FIELD CONTENTS ON EXIT P* TCURPO
0x0693dc…069570 Dummy {f00=0x0012, f01=0x0190, f02=» P* P PERF PUSH,CBIN2 * P MOVE TBIN1,TPOINTER SAVE OLD POINTER & , P MOVE TBIN2,=W'84' SET LENGTH FOR MATCH T 2 P MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 P FIND NEXT FIELD , P BNOK CRFT090 CURRENT FIELD WAS LAST ONE P ADD
0x069570…069704 Dummy {f00=0x0012, f01=0x0190, f02=»,CBIN0,CBIN2,TSCRBUF,TPOINTER P MOVE R/C & P DSC1 DSDY,POS,TCURPOS : * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE X P B CRFT095 FINISHED PCRFT090 2 P MOVE TPOINTER,TBIN1 REESTABLISH PREV POINTER PCRFT095 P PERF PULL,CBIN2
0x069704…069898 Dummy {f00=0x0012, f01=0x0190, f02=»ST BEFORE THE CURRENT FIELD. IF THE CURRENT 2 P* FIELD IS THE FIRST ONE, NOTHING WILL HAPPEN. 4 P* j P* PREREQUISITS t 2 P* TPOINTER - POINTING SOMEWHERE IN TSCRBUF P* P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL
0x069898…069a2c Dummy {f00=0x0012, f01=0x0190, f02=»F PUSH,CBIN6 P * P MOVE TBIN3,TPOINTER SAVE OLD POINTER P MOVE TBIN5,TCURPOS J * P MOVE TPOINTER,CBIN0 STARTING ADDRESS f PCRBT010 P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 P BNOK CRBT020
0x069a2c…069bc0 Dummy {f00=0x0012, f01=0x0190, f02=»NEW R/C : P CBNE TBIN5,TCURPOS,CRBT010 NOT YET FOUND CURRENT POS 2 P MOVE TCURPOS,TBIN6 REPOSITION ON PREVIOUS R/C N P DSC1 DSDY,POS,TCURPOS P MOVE TPOINTER,TBIN2 * P ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE P B CRBT095 PCRBT020
0x069bc0…069d54 (3, 13) Dummy {f00=0x0013, f01=0x018e, f02=»UP PROC P* 0 P* THE PROCEDURE MOVES THE CURSOR UP ONE LINE 0 P* IF THERE ARE NO UNPROTECTED FIELDS ON THE N ( P* LINE, THE MOVEMENT WILL CONTINUE. 0 P* ONCE IT HAS FOUND A LINE WITH UNPROTECTED 2 P* FIELDS, THE CURSOR WILL BE POSITIONE
0x069d54…069ee8 Dummy {f00=0x0013, f01=0x0190, f02=» P* FIELD CONTENTS ON EXIT P* TCURPOS - AS USUAL ( P* H " P* FIELD CONTENTS ON ERROR EXIT R P* TCURPOS - NOT CHANGED x P* TPOINTER - NOT CHANGED P* P* OTHER FIELDS USED P* TSTR1 P* P PER
0x069ee8…06a07c Dummy {f00=0x0013, f01=0x0190, f02=» MOVE TBIN2,TBIN1 $ P MOVE TSTR1,=X'51' DUMMY POS 81 B P XCOPY TBIN2,CBIN1,CBIN1,TSTR1,CBIN0 TBIN2 IS NOW THE LIMIT B P MOVE TPOINTER,CBIN0 P MOVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 P BNOK CRU095 P
0x06a07c…06a210 Dummy {f00=0x0013, f01=0x018e, f02=»OVE TBIN4,=W'84' 2 P MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 ( P BNOK CRU020 ONLY ONE FIELD, TAKE IT N P ADD TPOINTER,CBIN1 z P MOVE TBIN7,TPOINTER : P XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TBIN3 SAVE 2. R/C 4 P CBL TBIN2,TBIN6,CRU020
0x06a210…06a3a4 Dummy {f00=0x0013, f01=0x0190, f02=» ^ ( P MOVE TBIN6,TBIN5 NO PLACE FOUND YET P MOVE TBIN5,=W'2048' 4 P B CRU010 P PCRU020 TAKE LEFT R/C b P MOVE TCURPOS,TBIN5 P B CRU090 PCRU030 TAKE RIGHT R/C P MOVE TCURPOS,TBIN6 P B CRU090 PCRU040 (
0x06a3a4…06a538 Dummy {f00=0x0013, f01=0x018e, f02=»U095 P MOVE TPOINTER,TBIN3 PCRU100 ( P DSC1 DSDY,POS,TCURPOS 6 P PERF PULL,CBIN8 T P RET l P PEND x P EJECT PCRNEAR PROC P P PBIN P P* 8 P* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD 6 P* AS DEF
0x06a538…06a6cc Dummy {f00=0x0013, f01=0x0190, f02=» v P* P* REL. POS := (RR*80) + CC P* 4 P* R/C(L) IN TBIN5 > P* R/C(R) IN TBIN6 X P* R/C(T) IN TBIN1 r P* P PERF PUSH,CBIN8 P MOVE TBIN3,CBIN0 P MOVE TBIN7,CBIN0 6 P XCOPY TBIN3,CBIN1,CBIN1,TBIN5,CBIN0 E
0x06a6cc…06a860 Dummy {f00=0x0013, f01=0x018e, f02=»BIN1,NEA080 AND 'CRUP' TAKE R/C(R) P B NEA070 ELSE R/C(L) * PNEA010 H P* V 8 P* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD ` 6 P* AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS . P* THE LEFTMOST, AND R/C(R) THE RIGHTMOST. P
0x06a860…06a9f4 (3, 14) Dummy {f00=0x0013, f01=0x018e, f02=» P MOVE TBIN4,CBIN0 ( P XCOPY TBIN4,CBIN1,CBIN1,TBIN5,CBIN1 " P MUL TBIN3,CBIN80 N ( P ADD TBIN3,TBIN4 REL. POS FOR R/C(L) h P MOVE TBIN8,CBIN0 ( P XCOPY TBIN8,CBIN1,CBIN1,TBIN6,CBIN1 P MUL TBIN7,CBIN80 ( P ADD TBIN7,TBIN8 REL
0x06a9f4…06ab88 Dummy {f00=0x0013, f01=0x0190, f02=» P MUL TBIN4,CBIN80 ( P ADD TBIN4,TBIN8 REL. POS FOR R/C(T) P* TBIN1 - R/C(T) J P* TBIN3 - REL (L) b P* TBIN4 - REL (T) | P* TBIN5 - R/C(L) P* TBIN6 - R/C(R) P* TBIN7 - REL(R) ( P MOVE TBIN2,TBIN3 FIND THE POSITION $
0x06ab88…06ad1c Dummy {f00=0x0013, f01=0x40c0, f02=» P MOVE TCURPOS,TBIN5 USE (L) P B NEA090 , PNEA080 > P MOVE TCURPOS,TBIN6 USE (R) L PNEA090 p P PERF PULL,CBIN8 ~ P RET P PEND P END @ P* TBIN7 - REL(R) ( P MOVE TBIN2,TBIN3 FIND THE POSITION $
0x06ad1c…06aeb0 Dummy {f00=0x0013, f01=0x2008, f02=» ! TS AT THE FIRST NON-DC CHARACTER, WHICH ( P* MEANS: HERE BEGINS OUR DATA FIELD. 8 0 P* BUT FIRST WE HAVE TO EXECUTE THE FUNCTIONS d " P* AS SPECIFIED BY THE DC-CHARS P P MOVE TCURPOS,=X'0101' $ P TBF TDC2,UNP021 DC2 SPECIFIED?
0x06aeb0…06b044 Dummy {f00=0x0013, f01=0x0190, f02=» < _ 4 9 1 j9 1 9 0 9 4 1: : 2 hL:2! T : j9 L:0 9 : W :1 4 3: 6 j6 9 5 4 hL:4! T' : jD L: D! j5 L: 56#j9 L: : 0 9W :3 4 3: 29 2 j2 12 4 hL:4! T` : jD L: D!Sj5 L: 52& 4 hL:4! T= : jD L: D!0j6 L:*16 56_( 51 61
0x06b044…06b1d8 Dummy {f00=0x0013, f01=0x0190, f02=» : 65j5 L: 59 960 9 :6 : W :3 4 19 3: 1 21 D%j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 9 4 3 7 j3 5 j7 6 37 DW= 4 j4 5 3 34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 4 1
0x06b1d8…06b36c Dummy {f00=0x0013, f01=0x0190, f02=» 4 2 I N 3 8 @60 N 2 P 42 W W 5 Q A665 *Oq W 1 N 1 P jI31N 81 31 3 21 2 _V 3 2 _^ 38b 1 P jI31N 31 3 21 2 _{ 3 2 _ dI3 D J, 78 73jJ 7I3 7 0 J7 2 _ fI3 J, 78 73jJ 7I3 7 0 J7 2 3 _ 0 90 40 9_ H6 jI31N NI 31 3 21
0x06b36c…06b500 Dummy {f00=0x0013, f01=0x0190, f02=» 4 < = <=0 M E(dM E 0 M 4 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 3 E!j5 E jD L3 3 j9 L3 953 3 43 3 <
0x06b500…06b694 (3, 15) Opaque[0x194]
0x06b694…06b828 # DirEnt {nam=»BDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x06b694…06b828 IdxSect {
0x06b694…06b828 f00 = 0x0007 // 0x6b694 @0x0
0x06b694…06b828 f01 = 0x0004 // 0x6b696 @0x2
0x06b694…06b828 gno = [ // 0x6b698 @0x4
0x06b694…06b828 [0x00]: C0x0007.0x2.0
0x06b694…06b828 [0x01]: C0x0009.0x2.0
0x06b694…06b828 ]
0x06b694…06b828 }
0x06b828…06b9bc Dummy {f00=0x0007, f01=0x0190, f02=» P IDENT BDE 80.10.09 NJ P DDUM NJDDIV " P 6 P > P F P N P V P ^ " P* THE MODULE TAKES CARE OF THE f P* BASIC DATA ENTRY * P* FUNCTION OF BARCLAYS TERMINAL SYSTEM P PDIV P ENTRY BDE P EXPROC DCSEND,PSTRG
0x06b9bc…06bb50 Dummy {f00=0x0007, f01=0x0190, f02=»OC P* 0 P* PROCEDURE FOR PROCESSING BASIC DATA ENTRY P* H * P* THIS PROCEDURE IS CALLED UPON VALID R " P* DEPRESSION OF THE <BDE> KEY. P* 8 P* FIRST STEP TO BE TAKEN: TRANSMIT A SESSION HEADER P* P MOVE TSTR20,='000
0x06bb50…06bce4 Dummy {f00=0x0007, f01=0x0190, f02=» XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID , P MOVE TSCRBUF,ETX CLEAR BUFFER WITH ETX > , P XCOPY TSCRBUF,CBIN0,CBIN15,TSTR20,CBIN0 n , P PERF DCSEND,TSCRBUF SEND SESSION HEADER P BERR BDE099 ERROR, GET BACK P* 8 P* NOW THE ME
0x06bce4…06be78 Dummy {f00=0x0007, f01=0x0190, f02=»WE ARE READY FOR INPUT P* & P PERF BDEINP INPUTROUTINE FOR BDE ( P BERR BDE099 R . P CBE TBIN1,CBIN4,BDE090 FR-KEY DEPRESSED ? f ( P MOVE TSTR20,='00020 ' NETWORKHEADER 8 P XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH @ P XCOPY T
0x06be78…06c00c Dummy {f00=0x0007, f01=0x40fc, f02=»BIN0,CBIN17,TSTR20,CBIN0 PUT IN FRONT OF DATA P PERF DCSEND,TSCRBUF 6 P BERR BDE099 R P B BDE010 NEW ROUND f PBDE090 P CLEAR VAR. FLAGS P CMP CBIN0,CBIN0 PBDE099 P RET P PEND P END @ @ P XCOPY T
0x06c00c…06c1a0 Dummy {f00=0x0007, f01=0x2008, f02=» NT BDE 80.10.09 NJ @ "# & 0 ( > ! D 7 3 _ 4 D J l@ ~ ~ 07 $ N & BRANCH $ & ACC
0x06c1a0…06c334 (3, 16) Dummy {f00=0x0009, f01=0x0190, f02=» q % q & q & q & , & < & L & J F " D = Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K= Z 2= RRR & l & 00030 01 & 4 & @ 99 & J F
0x06c334…06c4c8 Dummy {f00=0x0009, f01=0x000a, f02=» 0 x h
0x06c4c8…06c65c Dummy {f00=0x0009, f01=0x40a0, f02=» IDENT S:GTAB S:GTAB " S:GTAB 4 P:MTAB H P:END Z CR j @ T:FMT P:END @ H K N Q
0x06c65c…06c7f0 Dummy {f00=0x0009, f01=0x417e, f02=» . H IDENT T:AK00 TRA 10.0 80-11-06 F1 O1111 T:AK00 6 T:AK00A J H > : T:DK00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 D:TB20A Z:TB20A * & 0 * & P d
0x06c7f0…06c984 Dummy {f00=0x0009, f01=0x40c4, f02=» . H IDENT T:DK00 TRA 10.0 80-11-06 F1 O1111 T:DK00 6 T:DK00D H KBGO0 * & K0 0 * * l @ * & P d
0x06c984…06cb18 Dummy {f00=0x0009, f01=0x409a, f02=» . H IDENT T:ATAB TRA 10.0 80-11-06 F1 O1111 T:ATAB 6 T:ATABA H T:AK00 @ n :A @ @ * & P d
0x06cb18…06ccac Dummy {f00=0x0009, f01=0x4084, f02=» . H IDENT U:BTAB TRA 10.0 80-11-06 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ @ * & P d
0x06ccac…06ce40 Dummy {f00=0x0009, f01=0x4084, f02=» . H IDENT S:BTAB TRA 10.0 80-11-06 F1 O1111 S:BTAB 6 S:BTABB H :B n@ :A @ @ * & P d
0x06ce40…06cfd4 (3, 17) Opaque[0x194]
0x06cfd4…06d168 # DirEnt {nam=»BDEINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x06cfd4…06d168 IdxSect {
0x06cfd4…06d168 f00 = 0x000a // 0x6cfd4 @0x0
0x06cfd4…06d168 f01 = 0x0004 // 0x6cfd6 @0x2
0x06cfd4…06d168 gno = [ // 0x6cfd8 @0x4
0x06cfd4…06d168 [0x00]: C0x000a.0x1.0
0x06cfd4…06d168 [0x01]: C0x000b.0x2.0
0x06cfd4…06d168 ]
0x06cfd4…06d168 }
0x06d168…06d2fc Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT BDEINP 80.11.06 NJ P DDUM NJDDIV & P : P B P J P R P Z P b P PDIV j P ENTRY BDEINP x P EXPROC CRHOME " P EXPROC FINDLN,PSTRG,PBIN,PBIN ( P EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN P EXPROC CRFTAB
0x06d2fc…06d490 Dummy {f00=0x000a, f01=0x0190, f02=»N P* P* P INCLUDE EQUATE P* 6 P* @ P INCLUDE KTABBE J P EJECT b PBDEINP PROC p : P* THE PROCEDURE TAKES CARE OF THE INPUTFUNCTION IN BDE P* THIS MEANS: 8 P* 1. SCANNING THE BUFFER FOR A MODIFYABLE FI
0x06d490…06d624 Dummy {f00=0x000a, f01=0x0190, f02=» DATA IN THE BUFFER v P* P PERF PUSH,CBIN5 & PBDEI000 > * P PERF ERASUP ERASE UNPROTECTED FIELDS N 0 P PERF CRHOME PUT CURSOR ON FIRST INPUTFIELD | ( P BERR BDEI095 NO INPUTFIELDS AT ALL P MOVE TBIN4,CBIN0 PBDEI010 P M
0x06d624…06d7b8 Dummy {f00=0x000a, f01=0x0190, f02=» b . P ADD TPOINTER,CBIN1 POINT AT DATA (IF ANY) 2 P TBT TARITJUS,BDEI020 BRANCH IF NUMERIC FIELD : & P MOVE TP3,CBIN2 NON-NUMERIC INPUT p P B BDEI030 PBDEI020 " P MOVE TP3,CBIN1 NUMERIC INPUT PBDEI030 & P MOVE TP1,CBIN0 FIND F
0x06d7b8…06d94c Dummy {f00=0x000a, f01=0x0190, f02=» BDEI035 , P DSC1 DSDY,POS,TCURPOS REPOSITION CURSOR P B BDEI030 AND REREAD @ PBDEI035 ^ P IB TP2, C n P BDEI040, ENT C P BDEI000, CU C P BDEI040, TAB C P BDEI030, FDE C P BDEI030, BDE C P BDEI030, ENQ
0x06d94c…06dae0 Dummy {f00=0x000a, f01=0x0190, f02=»N0 h 0 P PERF ATTUNP,TSCRBUF,TBIN4 SET MODIFIED BIT P SET TAMODIF IN BUFFER > P PERF ATTPCK,TSCRBUF,TBIN4 - PBDEI042 P PERF CRFTAB FIND NEXT FIELD . P BNOK BDEI090 NOTHING LEFT, INPUT FINISHED P B BDEI010 ONE MORE TIME PBD
0x06dae0…06dc74 (3, 18) Dummy {f00=0x000b, f01=0x4042, f02=» PBDEI099 P RET P PEND $ P END 2@ >
0x06dc74…06de08 Dummy {f00=0x000b, f01=0x2008, f02=» NT BDEINP 80.10.09 NJ @ &
0x06de08…06df9c Dummy {f00=0x000b, f01=0x0190, f02=» 6 P************************************************** P* > P* KEYTABLE USED FOR BDE/ENQ H P* l * P* THE FIRST 8 KEYS ARE PREDEFINED AND v . P* MUST ALWAYS BE PRESENT IN ANY KEYTABLE. P* 6 P****************************************
0x06df9c…06e130 Dummy {f00=0x000b, f01=0x40c6, f02=»CANC, C P KYENT, C P KYCU, C $ P KYTAB, C 6 P KYFDE, C J P KYBDE, C ^ P KYENQ, C r P KYFR, C P KYTL, C P KYPTR P @ YTABLE. P* 6 P****************************************
0x06e130…06e2c4 Dummy {f00=0x000b, f01=0x2008, f02=» ********************* * & * KEYTABLE USED FOR BDE/ENQ 0 * T ***** ^@ lTR j z R_ @ = $ < V B @ & &
0x06e2c4…06e458 Dummy {f00=0x000b, f01=0x0190, f02=»POS Z F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND P* V $ P* TBIN1 - LENGTH OF CURRENT 'KI' ` F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 P* TBIN4 - ORIG
0x06e458…06e5ec Dummy {f00=0x000b, f01=0x0190, f02=»TBIN2,LEN P MOVE TSTR80,=X'00' P MOVE BUF,=X'00' . P MOVE TBIN3,CBIN0 F * P CLEAR TCURMOV NO CURSORMOVEMENTS YET ` PKBR015 P KI DSKB,BUF,TAB,TBIN1,INX & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR NEITHER ALPHANUM NOR LI
0x06e5ec…06e780 Dummy {f00=0x000b, f01=0x0190, f02=»ED t * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 4 P CBE TBIN1,LEN,KBR030 OVERFLOW: PROCESS AS FTAB 8 PKBR020 p P PERF PULL,8 ~ 0 P CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE P B KBR099 RETURN PKBR030 & P MOVE INX,CBIN14 SIMULATE FT
0x06e780…06e914 (3, 19) Opaque[0x194]
0x06e914…06eaa8 # DirEnt {nam=»ENQ «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0118, f03=0x0000}
0x06e914…06eaa8 IdxSect {
0x06e914…06eaa8 f00 = 0x0008 // 0x6e914 @0x0
0x06e914…06eaa8 f01 = 0x0006 // 0x6e916 @0x2
0x06e914…06eaa8 gno = [ // 0x6e918 @0x4
0x06e914…06eaa8 [0x00]: C0x0008.0x3.0
0x06e914…06eaa8 [0x01]: C0x0009.0x0.0
0x06e914…06eaa8 [0x02]: C0x000d.0x2.0
0x06e914…06eaa8 ]
0x06e914…06eaa8 }
0x06eaa8…06ec3c Dummy {f00=0x0008, f01=0x0190, f02=» P IDENT ENQ 80.11.09 NJ P DDUM NJDDIV " P 6 P > P F P N P V P ^ " P* THE MODULE TAKES CARE OF THE f P* ENQUIRY , P* FUNCTIONS OF BARCLAYS TERMINAL SYSTEM P PDIV P ENTRY ENQ P EXPROC POSCUR,PBIN,PBIN
0x06ec3c…06edd0 Dummy {f00=0x0008, f01=0x0190, f02=»PPRT,PSTRG P EXPROC ERWRIT,PSTRG P EXPROC PUSH,PBIN 0 P EXPROC PULL,PBIN J P* d P* n P INCLUDE EQUATE x P* P* P INCLUDE KTABBE P EJECT PENQ PROC P* 4 P* ENQ HAS BEEN DEPRESSED AND IT WAS
0x06edd0…06ef64 Dummy {f00=0x0008, f01=0x018e, f02=»TSCRBUF,ESC FILL WITH ESC 0 P******************************************** " " P* READ 1. INPUTFIELD (BRANCH) V , P* TAKE APPROPRIATE ACTION, DEPENDING ON | $ P* THE END-OF-ITEM KEY DEPRESSED P MOVE TP1,=W'22' P PERF POSCUR,TP1,CBIN10
0x06ef64…06f0f8 Dummy {f00=0x0008, f01=0x0190, f02=» P ENQ012, TAB C P ENQ011, FDE C P ENQ011, BDE C 8 P ENQ011, ENQ C P P ENQ090, FR C h P ENQ011, TL C ~ P ENQ011 PTR PENQ012 P MOVE TBIN4,CBIN0 , P PERF LEAD,CBIN1 CREATE ESC!ROW!COL!ATT * P XCOPY T
0x06f0f8…06f28c Dummy {f00=0x0008, f01=0x018e, f02=» MOVE KEYED-IN DATA 0 P MOVE TSTR3,TKBBUF SAVE FOR PACKING ROUTINE P ADD TBIN4,CBIN3 R P EJECT j 8 P*************************************************** x $ P* 2. INPUTFIELD (ACCOUNTNUMBER) P MOVE TP1,=W'22' P MOVE TP2,=W'23'
0x06f28c…06f420 Dummy {f00=0x0008, f01=0x0190, f02=» P ENQ013, ENT C P ENQ011, CU C P ENQ013, TAB C 2 P ENQ011, FDE C J P ENQ011, BDE C b P ENQ011, ENQ C z P ENQ090, FR C P ENQ011, TL C P ENQ011 PTR PENQ013 P PERF LEAD,CBIN1 * P XCOPY TSCRBUF,T
0x06f420…06f5b4 (3, 20) Dummy {f00=0x0009, f01=0x0190, f02=» 8 P*************************************************** P* 3. INPUTFIELD (TYPE) @ P MOVE TP1,=W'22' ^ P MOVE TP2,=W'40' v P PERF POSCUR,TP1,TP2 P MOVE TP1,CBIN2 & P PERF KBREAD,TP1,KTABBE,TP2,CBIN1 P BERR ENQ010 P IB TP2,
0x06f5b4…06f748 Dummy {f00=0x0009, f01=0x018e, f02=»71, ENQ C P ENQ090, FR C P ENQ071, TL C ( P ENQ071 PTR > PENQ014 R P PERF LEAD,CBIN1 ` * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 x P ADD TBIN4,CBIN4 , P XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 P ADD TBIN4,CBIN2 P E
0x06f748…06f8dc Dummy {f00=0x0009, f01=0x018e, f02=» P MOVE TP2,=W'53' P PERF POSCUR,TP1,TP2 P MOVE TP1,CBIN2 8 & P PERF KBREAD,TP1,KTABBE,TP2,CBIN1 P P BERR ENQ010 z P IB TP2, C P ENQ015, ENT C P ENQ011, CU C P ENQ015E, TAB C P ENQ090, FDE C P ENQ090
0x06f8dc…06fa70 Dummy {f00=0x0009, f01=0x0190, f02=» ~ * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 P ADD TBIN4,CBIN4 6 , P XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 N P ADD TBIN4,CBIN2 ~ PENQ015E P EJECT 6 P************************************************* ( P* 5. INPUTFIELD (VOUCHER)
0x06fa70…06fc04 Dummy {f00=0x0009, f01=0x0190, f02=»TABBE,TP2,CBIN2 ~ P BERR ENQ010 P IB TP2, C , P ENQ030, ENT C @ P ENQ011, CU C X P ENQ016E, TAB C n P ENQ090, FDE C P ENQ090, BDE C P ENQ090, ENQ C P ENQ090, FR C P ENQ090, TL C P ENQ090 PTR
0x06fc04…06fd98 Dummy {f00=0x0009, f01=0x0190, f02=»BIN12,TKBBUF,CBIN0 z P ADD TBIN4,CBIN12 PENQ016E 4 P EJECT D 8 P*************************************************** R PENQ030 & P* THE BUFFER IS PACKED NOW AND HAS " P* TO BE SENT TO THE MAINFRAME P MOVE TSTR2K,TSCRBUF " P
0x06fd98…06ff2c Dummy {f00=0x0009, f01=0x0190, f02=»NALID b , P INSRT TSTR2K,CBIN0,CBIN17,TSTR20,CBIN0 P PERF DCSEND,TSTR2K > P BERR ENQ072 Z P* ANSWER RECEIVED n * P XCOPY TSTR2,CBIN0,CBIN2,TSTR2K,CBIN10 2 P CBE TSTR2,='99',ENQ050 WAS IT FOR THE PRINTER & P SET TENQ ENQ GOING ON, DONT
0x06ff2c…0700c0 Dummy {f00=0x0009, f01=0x0190, f02=»TP2,CBIN2 x P TBT TINT,ENQ090 6 P CBNG TBIN4,CBIN6,ENQ090 FINISHED WITH INQUIRIES? * P B ENQ010 d $ PENQ050 RECEIVED PRINTER OUTPUT v P PERF UNPPRT P B ENQ090 PENQ071 8 P MOVE TSTR80,='QERR1 - INVALID FUNCTION SELECTION '
0x0700c0…070254 (3, 21) Dummy {f00=0x000d, f01=0x0190, f02=»NQ095 PENQ090 P PERF PULL,CBIN4 P CLEAR TENQ 4 " P CMP CBIN0,CBIN0 SER CR TO OK H P B ENQ099 n PENQ095 P PERF PULL,CBIN4 P CLEAR TENQ & P CMP CBIN0,CBIN1 SET CR TO NOT-OK PENQ099 P RET P PEND
0x070254…0703e8 Dummy {f00=0x000d, f01=0x0190, f02=» P FNL P FILLR ' ',30 P FTEXT 'ENQUIRIES AVAILABLE' * P FNL N P FNL Z P FILLR ' ',15 f P FCOPY ='SAVINGS ' | P FCOPY ='ACCOUNT ' P FCOPY ='BALANCE ' P FILLR ' ',23 P FCOPY ='01' P FNL P FILLR '
0x0703e8…07057c Dummy {f00=0x000d, f01=0x018e, f02=»COPY ='02' P FNL P FILLR ' ',15 P FCOPY ='CURRENT ' 4 P FCOPY ='ACCOUNT ' N P FCOPY ='BALANCE ' h P FILLR ' ',23 P FCOPY ='03' P FNL P FILLR ' ',15 P FCOPY ='CURRENT ' P FCOPY ='ACCOUNT ' P FCOPY
0x07057c…070710 Dummy {f00=0x000d, f01=0x0190, f02=» | P FCOPY ='ACCOUNT ' P FCOPY ='DETAILS ' " P FILLR ' ',23 < P FCOPY ='05' R P FNL f P FILLR ' ',15 r P FCOPY ='CURRENT ' P FCOPY ='ACCOUNT ' P FCOPY ='VOUCHERS ' P FILLR ' ',22 P FCOPY ='06' P FNL
0x070710…0708a4 Dummy {f00=0x000d, f01=0x4104, f02=» 11 P FCOPY =' BRANCH' P FILLR ' ',7 & P FCOPY ='ACC NO' : P FILLR ' ',13 R P FCOPY ='TYPE' h P FILLR ' ',6 ~ P FCOPY ='PRINTER' P FILLR ' ',6 P FCOPY ='VOUCHER' P FNL P FMEND P END @ NL
0x0708a4…070a38 Dummy {f00=0x000d, f01=0x2008, f02=» NT ENQ 80.10.09 NJ @ "
0x070a38…070bcc Dummy {f00=0x000d, f01=0x0190, f02=» " $ & ( * , . 0 1 2 3 4 5 6 7 8 9 : < > @ B D F H J L N Q T W [ _ c h n t { * < Q h #
0x070bcc…070d60 Dummy {f00=0x000d, f01=0x0190, f02=» ! P ' <H : W !| ! ' &P B V C / <H "!@ < : !| ! C C W ! C C J N ' W 781"&$ 39#$;< '()*+,-! ! "4 ! ' P _D !| B ' 'W !| ( Wb ' ! !| (
0x070d60…070ef4 (3, 22) Opaque[0x194]
0x070ef4…071088 # DirEnt {nam=»EXPAND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x070ef4…071088 IdxSect {
0x070ef4…071088 f00 = 0x0002 // 0x70ef4 @0x0
0x070ef4…071088 f01 = 0x0004 // 0x70ef6 @0x2
0x070ef4…071088 gno = [ // 0x70ef8 @0x4
0x070ef4…071088 [0x00]: C0x0002.0x1.0
0x070ef4…071088 [0x01]: C0x0002.0x2.0
0x070ef4…071088 ]
0x070ef4…071088 }
0x071088…07121c Dummy {f00=0x0002, f01=0x0190, f02=» P IDENT EXPAND 80.11.03 NJ P DDUM NJDDIV & P PDIV : P ENTRY EXPAND H P EXPROC PUSH,PBIN ^ P EXPROC PULL,PBIN x P* P* P INCLUDE EQUATE P* P* P EJECT PEXPAND PROC BUF,LEN P PSTRG BUF
0x07121c…0713b0 Dummy {f00=0x0002, f01=0x0190, f02=»WILL BE INSERTED | P* IN THE PROPER PLACES. P* 8 2 P* THE ROUTINE SUPPOSES THAT LESS THEN 3 SPACES B " P* TO BE INSERTED CANNOT OCCUR. x P* P* ALTERED FIELDS: P* TSTR1 - DC3 P* TSTR2 - FIG-FIG P* TSTR3 -
0x0713b0…071544 Dummy {f00=0x0002, f01=0x0190, f02=»CBIN0 P MOVE TBIN2,CBIN0 P MOVE TBIN3,LEN ( , P MOVE TSTR1,DC3 DC3 - SPACE COMPR BEGIN @ PEXP010 p : P MATCH BUF,TBIN2,TBIN3,TSTR1,CBIN0,CBIN1 FIND ANY DC3 ~ & P BNOK EXP090 SORRY NO MATCH FOUND @ P XCOPY TSTR3,CBIN0,CBIN3,BUF,TBIN2
0x071544…0716d8 Dummy {f00=0x0002, f01=0x0190, f02=»,CBIN0,CBIN2,TSTR3,CBIN1 . P MOVE TBCD4,TSTR2 HOW MANY SPACES WANTED? P MOVE TBIN4,TBCD4 R * P SUB TBIN4,CBIN3 WE ALREADY INSERTED 3 l * P BNP EXP080 FNISHED IF 3 SPACES WANTED 6 P INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES $ PEXP080
0x0716d8…07186c Dummy {f00=0x0002, f01=0x406c, f02=»H d P B EXP010 PEXP090 P PERF PULL,CBIN4 * P RET B P PEND N P END @ h SUB TBIN4,CBIN3 WE ALREADY INSERTED 3 l * P BNP EXP080 FNISHED IF 3 SPACES WANTED 6 P INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES $ PEXP080
0x07186c…071a00 Dummy {f00=0x0002, f01=0x2008, f02=» NT EXPAND 30.10.09 NJ @ &
0x071a00…071b94 (3, 23) Dummy {f00=0x0002, f01=0x0190, f02=»TBIN1,=W'80' % P DSC1 DSDY,ERASE,TBIN1 & P MOVE TSTR4,=X'2B2B07' BELL & 2 * P INSRT TSTR80,CBIN0,CBIN3,TSTR4,CBIN0 & V P WRITE DSDY,TSTR80,CBIN8 & P* NOW WAIT FOR THE ANSWER & P PERF POSCUR,=W'23',=W'80' & 2 P PERF KBREAD,TKBBUF,TBIN1,KTABEN
0x071b94…071d28 Dummy {f00=0x0002, f01=0x0190, f02=»IS THE BUFFER RECEIVED & p * P* FROM THE MAINFRAM) IS TOBE UNPACKED ' . P* INTO THE TERMINALS LOGICAL SCREEN AREA. ' L , P* ONLY THE UNPROTECTED FIELDS ARE SAVED ' ~ 6 P* ALL RECEIVED FIELDS ARE DISPLAYED ON THE SCREEN ' P ' P MOVE TSTR4,TSTR2K ' :
0x071d28…071ebc Dummy {f00=0x0002, f01=0x018e, f02=» ' P CLEAR TDC2 ( P CLEAR TDC3 ( P CLEAR TDC4 ( 0 P MOVE TBIN2,CBIN0 ( D P MOVE TBIN1,CBIN12 ( ^ PUNP010 ( x * P XCOPY TBIN2,CBIN1,CBIN1,TSTR2K,TBIN1 ( P SUB TBIN2,CBIN10 ( * P IB TBIN2,UNP011,UNP012,UNP013,UNP014 ( P B UNP020 NO
0x071ebc…072050 Dummy {f00=0x0002, f01=0x0190, f02=» P SET TDC3 ) P B UNP015 ) PUNP014 ) ( P SET TDC4 ) 6 PUNP015 ) H P ADD TBIN5,CBIN1 MORE LEFT? ) V P B UNP010 ) z PUNP020 ) < P* NOW TBIN1 POINTS AT THE FIRST NON-DC CHARACTER, WHICH ) ( P* MEANS: HERE BEGINS OUR DATA FIELD. ) 0 P*
0x072050…0721e4 Dummy {f00=0x0002, f01=0x0190, f02=»UNP021 DC2 SPECIFIED? ) " P CLEAR TDC3 YES, OVERRIDE DC3 * PUNP021 * D " P TBF TDC1,UNP022 SOUND ALARM ? * R P MOVE TSTR4,=X'2B2B07' BEEP * x P WRITE DSDY,TSTR4,CBIN4 * PUNP022 * $ P TBF TDC2,UNP024 CLEAR SCREEN ? * * P MOVE TBIN1,=X'1601' S
0x0721e4…072378 Dummy {f00=0x0002, f01=0x0190, f02=»DSDY,ERASE,TBIN2 ERASE LINE * , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE + $ : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD ERASE LINE 0 + T PUNP024 + $ P TBF TDC3,UNP025 DC3 SPECIFIED? + P CLEAR ALL UNPROTECTED + P AND RESET MODIFIED DATA +
0x072378…07250c Dummy {f00=0x0002, f01=0x0190, f02=»TX,UNP025 FINISHED ? + P ADD TBIN3,CBIN1 , @ P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1 MOVE CURSORADDRESS , 4 P DSC1 DSDY,POS,TCURPOS , x P ADD TBIN3,CBIN2 , P MOVE TBIN8,CBIN0 , : P XCOPY TBIN8,CBIN1,CBIN1,TSCRBUF,TBIN3 SAVE ATTRIBUTE , P M
0x07250c…0726a0 Dummy {f00=0x0002, f01=0x0190, f02=»E TBIN1,=X'0004' , . P CALL MASK,TBIN1,TBIN8 WAS FIELD MODIFIED - P BZ UNP024B NOPE - J P SUB TBIN8,CBIN4 RESET BIT - b 6 P XCOPY TSCRBUF,TBIN6,CBIN1,TBIN8,CBIN1 RESTORE BIT - PUNP024B - P ADD TBIN3,TBIN7 - P B UNP024 TRY NEXT FIELD - PUN
0x0726a0…072834 (3, 24) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»FINDLN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x000a // 0x72834 @0x0
0x072834…0729c8 f01 = 0x0002 // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x000a.0x0.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x000a, f01=0x0190, f02=» P IDENT FINDLN 80.11.03 NJ P DDUM NJDDIV & P PDIV : P ENTRY FINDLN H P EXPROC PUSH,PBIN ^ P EXPROC PULL,PBIN x P* P* P INCLUDE EQUATE P* P* P EJECT PFINDLN PROC BUF,PT,LEN P PSTRG BUF
0x072b5c…072cf0 Dummy {f00=0x000a, f01=0x0190, f02=»* TP1 IS UPDATED WITH THE LENGTH OF THE FIELD. P* 6 P* PREREQUISITS @ 6 P* PT - POINTING AT THE BYTE WHERE TO COUNT FROM V P* & P* TP1 MUST CONTAIN A STARTINGVALUE 2 P* TYPICAL 0 (IF YOU POINT AT THE DATA AND WANT 0 P* TO
0x072cf0…072e84 Dummy {f00=0x000a, f01=0x0190, f02=»NT THE d 6 P* LENGTH OF THE COMPLETE FIELD DESCR. ) P* H P PERF PUSH,CBIN2 R , P MOVE TBIN2,LEN HOW MANY BYTES TO SCAN ? j P MOVE TBIN1,PT PFIN010 & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 P CBE TSTR1,ETX,FIN090 P C
0x072e84…073018 Dummy {f00=0x000a, f01=0x40a0, f02=»UNTIL DELIMITER FOUND | P OR LENGTH REACHED PFIN090 LENGTH FOUND (TP1) : P PERF PULL,CBIN2 ^ P RET v P PEND P END @ TBIN1,PT PFIN010 & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 P CBE TSTR1,ETX,FIN090 P C
0x073018…0731ac Dummy {f00=0x000a, f01=0x2008, f02=» NT FINDLN 80.10.09 NJ @ &
0x0731ac…073340 Dummy {f00=0x000a, f01=0x0190, f02=»RTING POSITION x PUNP023 ( P DSC1 DSDY,POS,TBIN1 POSITION CURSOR $ & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE P , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE z : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD ERASE LINE 0 & P********** DC3 *********
0x073340…0734d4 (3, 25) Opaque[0x194]
0x0734d4…073668 # DirEnt {nam=»KBREAD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0018, f03=0x0000}
0x0734d4…073668 IdxSect {
0x0734d4…073668 f00 = 0x0000 // 0x734d4 @0x0
0x0734d4…073668 f01 = 0x0006 // 0x734d6 @0x2
0x0734d4…073668 gno = [ // 0x734d8 @0x4
0x0734d4…073668 [0x00]: C0x0000.0x3.0
0x0734d4…073668 [0x01]: C0x0003.0x3.0
0x0734d4…073668 [0x02]: C0x0006.0x3.0
0x0734d4…073668 ]
0x0734d4…073668 }
0x073668…0737fc Dummy {f00=0x0000, f01=0x0190, f02=» P IDENT KBREAD 80.11.07 NJ P DDUM NJDDIV & P PDIV : P ENTRY KBREAD H P ENTRY FIND00 ^ P EXPROC SCRWR,PSTRG,PBIN t P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P* P
0x0737fc…073990 Dummy {f00=0x0000, f01=0x0190, f02=»B6272. p P* PARAMETERS: D P* LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM $ 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ l D P* TAB - KEYTABLE, WHERE THE VALID END-OF-ITEM KEYS ARE DEFINED L P* INX - ON COMPLETION
0x073990…073b24 Dummy {f00=0x0000, f01=0x0190, f02=»ECIAL FEATURES: > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE TO RIGHT Z < P* INS - INSERT - INSERT ONE CHARTACTER AT CURSORPOS > P* DEL - DELETE - DELETE ONE CHARACTER F
0x073b24…073cb8 Dummy {f00=0x0000, f01=0x018e, f02=»ETE 'KI' r F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 Z P* TBIN4 - ORIG. LENGTH P* TBIN5 - INDEX TO KEYTABLE P* TBIN6 - SCRATCH P* TBIN7 - SCRATCH P* TBIN8 - NOT US
0x073cb8…073e4c Dummy {f00=0x0000, f01=0x0190, f02=» P MOVE TBIN2,LEN P MOVE TSTR80,=X'00' 2 P MOVE TBIN7,TCURPOS TCURPOS MIGHT BE MODIFIED 8 P MOVE TBIN3,CBIN0 n P DSC1 DSDY,POS,TBIN7 P* * P CLEAR TCURMOV NO CURSORMOVEMENTS YET PKBR015 P MOVE TBIN6,TBIN2 PKBR0
0x073e4c…073fe0 Dummy {f00=0x0000, f01=0x0190, f02=»SC1 DSDY,POS,TBIN7 P MOVE TBIN1,TBIN2 RESTLENGTH . P CBNG TBIN1,CBIN0,KBR030 FTAB IF FILLED UP > " P KI DSKB,TKBBUF,TAB,TBIN1,INX p & P BOK KBR040 KEYLOCK OR TERM. CHAR. , P* A CHAR NEITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT
0x073fe0…074174 (3, 26) Dummy {f00=0x0003, f01=0x0190, f02=» FROM LENGTH r * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 6 P CBE TBIN4,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB B PKBR020 | P PERF PULL,CBIN8 0 P CMP CBIN0,CBIN1 UNDEF. ERROR OR PWR FAILURE P B KBR099 RETURN PKBR030 $ P MOVE INX,CB
0x074174…074308 Dummy {f00=0x0003, f01=0x0190, f02=»AR b $ P CLEAR TBOOL WE CAN RESET TBOOL PKBR045 2 * P CBNG INX,CBIN0,KBR020 POWER FAILURE ? @ P SUB TBIN1,CBIN1 n * P MOVE TBIN5,INX SAVE INDEX TO KEYTABLE P SUB INX,CBIN5 ADJUST INDEX . P BP KBR094 WAS IT ANY OF THE 5 SPEC KEYS? (
0x074308…07449c Dummy {f00=0x0003, f01=0x0190, f02=» P KBR060, FSP, C P KBR070, INS C P KBR080, DEL C 8 P KBR090 CANCEL P " P B KBR094 SHOULD BE IMPOSSIBLE h P********** " PKBR050 BACKSPACE KEY PRESSED ( P SUB TBIN2,TBIN1 HOW MANY CHARS LEFT P ADD TBIN2,CBIN1 2
0x07449c…074630 Dummy {f00=0x0003, f01=0x0190, f02=» P SUB TBIN3,CBIN1 MINUS 1 , P MOVE TBIN7,TCURPOS MOVE CURSOR ONE POS $ P ADD TBIN7,TBIN3 -//- T P B KBR016 r P********** PKBR060 FORWARDSPACE KEY 0 P SUB TBIN2,TBIN1 HOW MANY CHARS MAY WE READ P SUB TBIN2,CBIN1 * P XCO
0x074630…0747c4 Dummy {f00=0x0003, f01=0x0190, f02=»VE CURSOR ONE POS z P ADD TBIN7,TBIN3 -//- P B KBR016 8 P********** J PKBR070 INSERT * P XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 t P MOVE TSTR2,=' ' * P INSRT TSTR80,TBIN3,CBIN1,TSTR2,CBIN0 P MOVE TSCBUF,TSTR80 P MOV
0x0747c4…074958 Dummy {f00=0x0003, f01=0x0190, f02=»ACE f P DSC1 DSDY,POS,TCURPOS P WRITE DSDY,TSCBUF,TBIN6 * P MOVE TBIN7,TCURPOS J P ADD TBIN7,TBIN3 f & P SUB TBIN2,TBIN1 REDUCE RESTLENGTH ~ P SUB TBIN2,CBIN1 2 P CBE TBIN2,CBIN0,KBR030 FILLED, SIMULATE FTAB P SET TBOOL NEXT MU
0x074958…074aec Dummy {f00=0x0003, f01=0x018e, f02=»TE TSTR80,TBIN3,CBIN1 P MOVE TSCBUF,TSTR80 P MOVE TSTR2,='+' : * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 R P PERF FIND00,TSCBUF P SUB TBIN6,TBIN3 P ADD TBIN6,CBIN2 P DLETE TSCBUF,CBIN2,TBIN3 , P MOVE TBIN7,CBIN0 ONE CHAR
0x074aec…074c80 Dummy {f00=0x0003, f01=0x0190, f02=» ~ * P XCOPY TSCBUF,TBIN7,CBIN1,TSTR1,CBIN0 P WRITE DSDY,TSCBUF,TBIN6 6 P MOVE TBIN7,TCURPOS V P ADD TBIN7,TBIN3 r P SUB TBIN2,TBIN1 P ADD TBIN2,CBIN1 P ADD TBIN3,TBIN1 P B KBR016 P********** PKBR090 CANCEL TH
0x074c80…074e14 (3, 27) Dummy {f00=0x0006, f01=0x0190, f02=»N n P B KBR010 P*********** PKBR094 0 P MOVE TBIN6,TCURPOS > P DSC1 DSDY,POS,TBIN6 Z 2 P TBF TCURMOV,KBR095 ANY EXPL. CURSORMOVEMENTS? v : P XCOPY TSTR80,TBIN3,TBIN1,TKBBUF,CBIN0 COMPLETE BUFFER 6 P MOVE TKBBUF,TSTR80 MOVE COMPL
0x074e14…074fa8 Dummy {f00=0x0006, f01=0x0190, f02=» 0 P SUB TBIN2,TBIN6 HOW MANY ZEROES TO INSERT? P MOVE TSTR80,='0' 8 8 P INSRT TKBBUF,CBIN0,TBIN2,TSTR80,CBIN0 MODIFY BUFFER R P DSC1 DSDY,POS,TCURPOS 2 P PERF SCRWR,TKBBUF,TBIN4 AND REWRITE ON SCREEN P B KBR098A PKBR098 P PERF
0x074fa8…07513c Dummy {f00=0x0006, f01=0x018e, f02=» P PERF PULL,CBIN8 P CMP CBIN0,CBIN0 PKBR099 4 P RET B P PEND N P EJECT PFIND00 PROC BUF j P* . P* FIND THE LENGTH OF THE DATAFIELD IN THE P* BUFFER SPECIFIED. . P* IF THE LAST NON-ZERO CHAR IS BELOW X'20'
0x07513c…0752d0 Dummy {f00=0x0006, f01=0x414a, f02=» 0 P MOVE TBIN7,=W'32' OBS OBS LENGTH OF TKBBUF , P MATCH BUF,TBIN6,TBIN7,TSTR1,CBIN0,CBIN1 8 P MOVE TBIN7,TBIN6 h P SUB TBIN7,CBIN1 * P XCOPY TSTR1,CBIN0,CBIN1,TKBBUF,TBIN7 . P CBNL TSTR1,=' ',FIN010 < X'20' IS EOI KEY P SUB TBIN6,CBI
0x0752d0…075464 Dummy {f00=0x0006, f01=0x2008, f02=» NT KBREAD 80.10.09 NJ @ &
0x075464…0755f8 Dummy {f00=0x0006, f01=0x0190, f02=»$ bDEF ` ` ` INTERIM STATEMENT ERRORLINE IS LINE 23 AND LAST FIVE ENTRIES QERR2 - ENQUIRY NOT AVAILABLE QERR1 - INVALID FUNCTION SELECTION 999 / N @ . 1 ENQ - ENQUIRY INPUT ENQUIRIES AVAILABLE L H I 4 L H I Y 5 J H
0x0755f8…07578c Dummy {f00=0x0006, f01=0x0190, f02=» " $ & ( * , . 0 1 2 3 4 5 6 7 8 9 : < > @ B D F H J L N Q T W [ _ c h n t { *
0x07578c…075920 Dummy {f00=0x0006, f01=0x0190, f02=» _ ! "@ ! P ' <H : W ! ! ' &P B V C / <H "!@ <. : ! ! C C W ! C C J ^ ' W 781"&$ 39#$;< '()*+,-! ! "D ! ' P _D ! B ' 'W ! ( Wb ' ! ! (
0x075920…075ab4 (3, 28) Opaque[0x194]
0x075ab4…075c48 # DirEnt {nam=»LEAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0288, f03=0x0000}
0x075ab4…075c48 IdxSect {
0x075ab4…075c48 f00 = 0x0014 // 0x75ab4 @0x0
0x075ab4…075c48 f01 = 0x0002 // 0x75ab6 @0x2
0x075ab4…075c48 gno = [ // 0x75ab8 @0x4
0x075ab4…075c48 [0x00]: C0x0014.0x1.0
0x075ab4…075c48 ]
0x075ab4…075c48 }
0x075c48…075ddc Dummy {f00=0x0014, f01=0x0190, f02=» P IDENT LEAD 80,10,09 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY LEAD F P* Z P* d P INCLUDE EQUATE n P* P* P EJECT PLEAD PROC BIN P PBIN BIN P* 0 P* THE PROCEDURE CREATES A PREAMBLE IN TSTR4.
0x075ddc…075f70 Dummy {f00=0x0014, f01=0x4102, f02=»,CBIN0 CURSORPOSITION p P CBE BIN,CBIN2,LEAD02 6 P XCOPY TSTR4,CBIN3,CBIN1,CATTRIB1,CBIN0 NUM + MOD < P B LEAD09 v PLEAD02 0 P XCOPY TSTR4,CBIN3,CBIN1,CATTRIB2,CBIN0 MOD PLEAD09 P RET P PEND P END @ TR4.
0x075f70…076104 Dummy {f00=0x0014, f01=0x2008, f02=» NT LEAD 80,10,09 NJ @ $
0x076104…076298 Dummy {f00=0x0014, f01=0x4030, f02=» $ * 5 R @ H M V v 8 . $ @ ,0.10.30 NJ J F " D GK@0@1@2@3 2 5 j2 K5 2 62 W A0W A1W A2W A3 5 _% 9LH1 @ B J F " D /2H0 GL0 G H1 1L0 10 1L 1 H2 H3 4 L"jD K5 15 1 j J F " D o9 K1 9L0 9 1 jD K1 D"S 35 3 <
0x076298…07642c Dummy {f00=0x0014, f01=0x4024, f02=» f - L R @ F1 O1111 80.10.30 NJ J F " D 6 1 ELjJ 1 D$ 3 hJ3 D 2 D#hJ2 D T $12 13 43@7W 12 B D ? = !42A7 64 41 5L 54fJ45 4 4 jJ E jJ4 > J ELI7 EL 6 j w y @ 9 1 jD K1 D"S 35 3 <
0x07642c…0765c0 Dummy {f00=0x0014, f01=0x4014, f02=» @ RA 10.0 80-10-30 F1 O1111 80.10.28 NJ J F " D Z6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; B J F " D jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; @ < : j5 O; ; j4 O; ; j3 O; ; j2 O; ;
0x0765c0…076754 (3, 29) Opaque[0x194]
0x076754…0768e8 # DirEnt {nam=»SCWRIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00e0, f03=0x0000}
0x076754…0768e8 IdxSect {
0x076754…0768e8 f00 = 0x0007 // 0x76754 @0x0
0x076754…0768e8 f01 = 0x0004 // 0x76756 @0x2
0x076754…0768e8 gno = [ // 0x76758 @0x4
0x076754…0768e8 [0x00]: C0x0007.0x0.0
0x076754…0768e8 [0x01]: C0x0008.0x2.0
0x076754…0768e8 ]
0x076754…0768e8 }
0x0768e8…076a7c Dummy {f00=0x0007, f01=0x018e, f02=» P IDENT SCWRIT 80.10.28 NJ P DDUM NJDDIV & P : P B P J 2 P* THIS MODULE CONTAINS THE ROUTINES NECESSARY R P* FOR WRITING ON THE VDU: P* > P* SCWRIT - CAN BE USED FOR WRITING ANYWHERE ON THE SCREEN P* , P* SCRWR
0x076a7c…076c10 Dummy {f00=0x0007, f01=0x0190, f02=» P ENTRY SCRWR P ENTRY ERWRIT P EXPROC POSCUR,PBIN,PBIN 2 P EXPROC PUSH,PBIN R P EXPROC PULL,PBIN l P* P* P INCLUDE EQUATE P* P EJECT PSCWRIT PROC BUF,LEN,ROW,COL P PSTRG BUF P PBIN LE
0x076c10…076da4 Dummy {f00=0x0007, f01=0x0190, f02=» LEN - THE NBR OF BYTES TO WRITE 2 P* THE RETURNCODE IS SET BY THE WRITE STATEMENT * P* ` 4 P* IF LENGTH EXCEEDS 80, THE BUFFER IS TRUNCATED j P* P* ALTERED FIELDS: 6 P* TSCBUF - FORM CTRL CHAR + TEXT TO BE WRITTEN P*
0x076da4…076f38 Dummy {f00=0x0007, f01=0x0190, f02=»UNCATE t PSCWR010 P PERF POSCUR,ROW,COL P PERF SCRWR,BUF,TBIN1 : P PERF PULL,CBIN1 X P RET p P PEND | P EJECT PSCRWR PROC BUF,LEN P PSTRG BUF P PBIN LEN P* 2 P* THE PROCEDURE WRITES ANY BUFFER ON A S
0x076f38…0770cc Dummy {f00=0x0007, f01=0x0190, f02=» * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 P MOVE TBIN1,LEN 6 " P ADD TBIN1,CBIN2 ADJUST LENGTH N 4 P WRITE DSDY,TSCBUF,TBIN1 WRITE BUFFER TO SCREEN t P PERF PULL,CBIN1 P RET P PEND P EJECT PERWRIT PROC BUF P PST
0x0770cc…077260 Dummy {f00=0x0007, f01=0x40f4, f02=» PERF POSCUR,TP1,TP2 & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE P MOVE TSCBUF,BUF F P MOVE TSTR2,=X'2B2B' ^ * P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 z P WRITE DSDY,TSCBUF,CBIN80 P RET P PEND P END @ ROC BUF P PST
0x077260…0773f4 (3, 30) Dummy {f00=0x0008, f01=0x2008, f02=» NT SCWRIT 80,10,09 NJ @ &
0x0773f4…077588 Dummy {f00=0x0008, f01=0x0006, f02=»
0x077588…07771c Dummy {f00=0x0008, f01=0x0190, f02=» P IDENT KBREAD 80.10.31 NJ P DDUM NJDDIV & P PDIV : P ENTRY KBREAD H P EXPROC SCRWR,PSTRG,PBIN ^ P EXPROC PUSH,PBIN ~ P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P* P EJECT $ PKBREAD P
0x07771c…0778b0 Dummy {f00=0x0008, f01=0x0190, f02=»B6272. p P* PARAMETERS: D P* LEN - HOW MANY CHARACTERS TO READ (MAX), ON RETURN THIS ITEM $ 8 P* WILL CONTAIN THE ACTUAL NBR OF CHARS READ l < P* BUF - WHERE TO PUT IT. IF THIS WAS A NUMERICAL READ, 8 P* THE FIGURES WILL HAVE
0x0778b0…077a44 Dummy {f00=0x0008, f01=0x0190, f02=»LL POINT AT THE END-OF-ITEM KEY USED l > P* TYP - CBIN1 FOR NUMERIC, CBIN2 FOR ALPHANUMERIC INPUT , P* n P* SPECIAL FEATURES: x > P* BSP - BACKSPACE - NON-DESTRUCTIVE CURSOR MOVE TO LEFT > P* FSP - FWDSPACE - NON-DESTRUCTIVE CURSORMOVE T
0x077a44…077bd8 Dummy {f00=0x0008, f01=0x0190, f02=»S X F P* CANC- CANCEL - CLEAR INPUTFIELD AND REINITIATE READCOMMAND P* T * P* TBIN1 - LENGTH OF JUST COMPLETE 'KI' ^ F P* TBIN2 - ORIG. LENGTH, DECREMENTS TO ZERO WHEN ALL POS ARE INPUT $ P* TBIN3 - DISPLACEMENT IN TSTR80 P* TBIN4 -
0x077bd8…077d6c Dummy {f00=0x0008, f01=0x0190, f02=»PUT t P* P PERF PUSH,CBIN8 PKBR010 . $ P MOVE TBIN4,LEN SAVE ORIG.LENGTH < P MOVE TBIN2,LEN d P MOVE TSTR80,=X'00' | P MOVE TSTR1,=X'00' P MOVE BUF,TSTR1 P MOVE TBIN3,CBIN0 P MOVE TBIN8,CBIN0 * P CLEAR TCU
0x077d6c…077f00 Dummy {f00=0x0008, f01=0x0190, f02=»EITHER ALPHANUM NOR LISTED IN P* KEYTABLE IS INPUT & P* SIZE OF BUFFER IS REACHED F P* POWER FAILURE j " P* REQ. NBR OF CHARS IS REACHED * P CBE INX,CBIN0,KBR020 POWER FAILURE ? 6 P CBE TBIN1,TBIN2,KBR030 OVERFLOW: PROCESS AS FTAB
0x077f00…078094 (3, 31) Opaque[0x194]
0x078094…078228 # DirEnt {nam=»UNPCK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x078094…078228 IdxSect {
0x078094…078228 f00 = 0x0002 // 0x78094 @0x0
0x078094…078228 f01 = 0x0006 // 0x78096 @0x2
0x078094…078228 gno = [ // 0x78098 @0x4
0x078094…078228 [0x00]: C0x0002.0x3.0
0x078094…078228 [0x01]: C0x0003.0x0.0
0x078094…078228 [0x02]: C0x0005.0x1.0
0x078094…078228 ]
0x078094…078228 }
0x078228…0783bc Dummy {f00=0x0002, f01=0x0190, f02=» P IDENT UNPCK 80.11.04 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY UNPCK F " P EXPROC FINDLN,PSTRG,PBIN,PBIN Z P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P EXPROC ERASUP P EXPROC LOLITE P EXPROC ATTUNP,PSTRG,PBIN P EXPRO
0x0783bc…078550 Dummy {f00=0x0002, f01=0x018e, f02=»TS OF TSTR2K (WHICH IS THE BUFFER RECEIVED , P* FROM THE MAINFRAME) IS TO BE UNPACKED 2 8 P* INTO THE TERMINALS LOGICAL SCREEN AREA (TSCRBUF). b * P* ONLY THE 'PROTECTED + MODIFIED' AND & P* THE UNPROTECTED FIELDS ARE SAVED 6 P* ALL RECEIVED FIE
0x078550…0786e4 Dummy {f00=0x0002, f01=0x0190, f02=» P CLEAR TDC3 P CLEAR TDC4 P MOVE TBIN2,CBIN0 , 0 P MOVE TBIN5,CBIN12 HERE START EVTL DC-CHARS F PUNP010 z * P XCOPY TBIN2,CBIN1,CBIN1,TSTR2K,TBIN5 $ P SUB TBIN2,CBIN16 SUBTRACT X'10' 2 P IB TBIN2,UNP011,UNP012,UNP013,UNP014 DC1
0x0786e4…078878 Dummy {f00=0x0002, f01=0x018e, f02=»2 O0CCURRED P B UNP015 PUNP013 & P SET TDC3 DC3 OCCURRED 4 P B UNP015 R PUNP014 d P SET TDC4 DC4 OCCURRED r PUNP015 $ P ADD TBIN5,CBIN1 TEST NEXT CHAR. P B UNP010 PUNP020 < P* NOW TBIN5 POINTS AT THE FIRST NO
0x078878…078a0c Dummy {f00=0x0002, f01=0x0190, f02=» " P* AS SPECIFIED BY THE DC-CHARS P * ( P MOVE TCURPOS,=X'0101' ROW 1, COL 1 2 $ P TBF TDC2,UNP021 DC2 SPECIFIED? ^ " P CLEAR TDC3 YES, OVERRIDE DC3 & P********** DC1 ********** PUNP021 " P TBF TDC1,UNP022 SOUND ALARM ?
0x078a0c…078ba0 Dummy {f00=0x0002, f01=0x0190, f02=»UNP024 CLEAR SCREEN ? * P MOVE TBIN1,=X'1701' STARTING POSITION PUNP023 L ( P DSC1 DSDY,POS,TBIN1 POSITION CURSOR Z & P DSC1 DSDY,ERASE,CBIN80 ERASE LINE , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD
0x078ba0…078d34 (3, 32) Dummy {f00=0x0003, f01=0x0190, f02=» ALL UNPROTECTED ~ P AND RESET MODIFIED DATA P TAGS ON CLEARED FIELDS : & P********** DC4 ********** PUNP025 $ P TBF TDC4,UNP030 DC4 SPECIFIED? . P PERF LOLITE RESET ALL HIGHLIGHTED FIELDS " P TO NORMAL AND CLEAR LIN
0x078d34…078ec8 Dummy {f00=0x0003, f01=0x018e, f02=»KING x < P* TBIN5 SHOULD STILL POINT AT FIRST CHAR IN FIELD SPEC. * P MOVE TBIN4,CBIN0 POINTER INTO TSCRBUF L 2 P MOVE TSCRBUF,ESC CLEAR LOGICAL SCREEN BUFFER z PUNP035 8 P XCOPY TSTR1,CBIN0,CBIN1,TSTR2K,TBIN5 MOVE DELIMITER $ P* NOW WE HAVE
0x078ec8…07905c Dummy {f00=0x0003, f01=0x0190, f02=» P* BINARY CURSOR POSITION P MOVE TBIN1,TBIN5 $ P ADD TBIN1,CBIN1 > : P XCOPY TCURPOS,CBIN0,CBIN2,TSTR2K,TBIN1 MOVE ROW / COL V 2 P SUB TCURPOS,=X'1F1F' CONVERT TO BINARY VALUE : P XCOPY TSTR2K,TBIN1,CBIN2,TCURPOS,CBIN0 REWRITE CURPOS P
0x07905c…0791f0 Dummy {f00=0x0003, f01=0x0190, f02=»INISHED l " P* FIND THE LENGHT OF THE FIELD P* THE FIELD IS DELIMITED BY 6 P* ESC OR Z P* ETX p P MOVE TBIN3,TBIN5 & P ADD TBIN3,CBIN1 GET STARTINGPOINT P MOVE TP1,CBIN1 @ P PERF FINDLN,TSTR2K,TBIN3,CBIN80 FIND LENGTH
0x0791f0…079384 Dummy {f00=0x0003, f01=0x0190, f02=»TEC,UNP040 SAVE IF UNPROTECTED OR 4 P TBT TAMODIF,UNP040 IF PROTECTED A N D MODIFIED , P B UNP050 d PUNP040 v < P* MOVE DATAFIELD, INCLUDING ATTRIBUTE TO LOGICAL BUFFER * P XCOPY TSCRBUF,TBIN4,TP1,TSTR2K,TBIN5 " P ADD TBIN1,CBIN1 POINT
0x079384…079518 Dummy {f00=0x0003, f01=0x0190, f02=»2B2B20' * P XCOPY TSCBUF,CBIN2,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN2 > P B UNP070 V PUNP060 h , P MOVE TSCBUF,=X'2B2B1E20' LOW INTENSITY v * P XCOPY TSCBUF,CBIN3,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN3 P PUNP070 , P WRITE
0x079518…0796ac Dummy {f00=0x0003, f01=0x4054, f02=» PUNP900 P PERF PULL,CBIN6 P RET * P PEND 6 P END D@ P P B UNP070 V PUNP060 h , P MOVE TSCBUF,=X'2B2B1E20' LOW INTENSITY v * P XCOPY TSCBUF,CBIN3,TBIN2,TSTR2K,TBIN1 P ADD TBIN2,CBIN3 P PUNP070 , P WRITE
0x0796ac…079840 Dummy {f00=0x0003, f01=0x2008, f02=» NT UNPCK 80.10.09 NJ @ $
0x079840…0799d4 (3, 33) Dummy {f00=0x0005, f01=0x0190, f02=» 0 9 M-jM <L3 2< < 0 M<@9 L1 32_R E' 1 2 hL12E T. 1 j9 L10 9 1 L1A8 L1 1 < = L1=0 < 4 1 2 j1 2 8 9 : ; <H9 @8 4 0 12P A W @ 224 1 H8 1 H9 1 H: 1 H; 1 H< 1 j 1 4 GK@0@1@2@3 2 5 j2 K5 2 62 W A0W A1W A2W
0x0799d4…079b68 Dummy {f00=0x0005, f01=0x0190, f02=»< K3 2< K1I5 H; I: W jL4<K5 1 2 H9 M*jM 2K1 2 W M-jM 2K1 2 0 M2 5<_z 4 L > Z 0 3 j P 7 g 7 n / a 2 T ` P !*0Q ++++ ++ ++ ++ ABCD ' G
0x079b68…079cfc Dummy {f00=0x0005, f01=0x0190, f02=» ! " # $ % & ' ) + . 1 5 9 = B M X d r n _ _ n !L#0 T !L#0 T V 5 W `/ _ ` P !L <H : W
0x079cfc…079e90 Dummy {f00=0x0005, f01=0x0190, f02=» | ` !L P _D B !L 'W ( Wb !L p ( 1W" C C C " 5 ( ' P. P$ "! P lW B % P C + j I "%@P "% P& B C C 4 "5 # B P B
0x079e90…07a024 Dummy {f00=0x0005, f01=0x0190, f02=» ( ' P I : ` % Y C !L & 5v 5v C !L "!@ 5 : B T T T V : 2 ' W 2 6 2 @ " T # ' ?D #>W.' #? #( V H 5 ;D:B " : _, !L C :
0x07a024…07a1b8 Dummy {f00=0x0005, f01=0x0190, f02=»#0 T & C C : C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W 5j B B " : P R hPR L > R R _ R _ # Q R V > _V
0x07a1b8…07a34c Dummy {f00=0x0005, f01=0x0190, f02=» h #0 T B ' : 5j B B : P C #0 T & C C : 5j C C : ` ` X&4# # %@(&) ) $ , 2@1 1d1 2@1> | N W V 7 @ ! P N P W ^ @ R 5< 8
0x07a34c…07a4e0 Dummy {f00=0x0005, f01=0x0190, f02=» P V W< _ 2 # ;B V T fW V P L , V 2P " 2 P V D ! R T V P V N W V P _ 8^t D 2 ! 9BP V T fW V P D $ V 6 V % V E @ ' T 2 % 7_ 2 # PH L ZPB
0x07a4e0…07a674 (3, 34) Opaque[0x194]
0x07a674…07a808 # DirEnt {nam=»UNPPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01c8, f03=0x0000}
0x07a674…07a808 IdxSect {
0x07a674…07a808 f00 = 0x000e // 0x7a674 @0x0
0x07a674…07a808 f01 = 0x0004 // 0x7a676 @0x2
0x07a674…07a808 gno = [ // 0x7a678 @0x4
0x07a674…07a808 [0x00]: C0x000e.0x1.0
0x07a674…07a808 [0x01]: C0x000e.0x2.0
0x07a674…07a808 ]
0x07a674…07a808 }
0x07a808…07a99c Dummy {f00=0x000e, f01=0x0190, f02=» P IDENT UNPPRT 80.11.06 NJ P DDUM NJDDIV & P PDIV : P ENTRY UNPPRT H P EXPROC EXPAND,PSTRG,PBIN ^ P EXPROC PRTLN,PSTRG P EXPROC PUSH,PBIN P EXPROC PULL,PBIN P* P* P INCLUDE EQUATE P* P*
0x07a99c…07ab30 Dummy {f00=0x000e, f01=0x0190, f02=»ME FROM THE INPUTBUFFER p 2 P* 2. REPLACE SPACECOMPRESSION CHARACTERS WITH * P* THE APPRIOPRIATE NUMBER OF SPACES V 2 P* 3. HAND A PRINTLINE OVER TO THE PRINTER TASK P* P* ALTERED FIELDS: P* TSTR1 - DC2 P* TSTR2
0x07ab30…07acc4 Dummy {f00=0x000e, f01=0x018e, f02=»OVE TSTR2,=X'2B2B' START WITH NO-SPACE PUNPP010 . P MOVE TBIN4,=W'81' > ( P XCOPY TSCBUF,CBIN0,TBIN4,BUF,TBIN1 X $ P MOVE MAX. POSSIBLE FIELD SIZE P MOVE TSTR1,DC2 P MOVE TBIN3,CBIN0 0 P MATCH TSCBUF,TBIN3,TBIN4,TSTR1,CBIN0,CBIN
0x07acc4…07ae58 Dummy {f00=0x000e, f01=0x018e, f02=» b " P FIND FIRST FORMFEED, IF ANY & P BNOK UNPP020 NO FORMFEED PRESETN, . P ASSUME LINEFEED PRESENT X 6 P CBL TBIN3,TBIN2,UNPP020 DID LINFEED OCCUR FIRST? | 0 P ADD TBIN1,TBIN2 NEW STARTINGPOINT FOR NEXT P MOVE TBIN4,TBIN2 P CLE
0x07ae58…07afec Dummy {f00=0x000e, f01=0x0190, f02=» x PUNPP030 P MOVE TBIN5,=W'82' ( P SUB TBIN5,TBIN4 HOW MUCH TO ERASE? 2 P DLETE TSCBUF,TBIN4,TBIN5 ^ P MOVE TBIN4,=W'82' : P INSRT TSCBUF,CBIN0,CBIN2,TSTR2,CBIN0 FORM CTRL CHARS 4 P XCOPY TSCBUF,TBIN4,CBIN2,TTID,CBIN0 MOVE TASKID
0x07afec…07b180 Dummy {f00=0x000e, f01=0x4114, f02=»MFEED CTRLCHARS x PUNPP040 P ADD TBIN1,CBIN1 ( & P XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 @ $ P CBE TSTR1,ETX,UNPP090 FINISHED? j P CBE TSTR1,ESC,UNPP090 P B UNPP010 PUNPP090 P PERF PULL,CBIN6 P RET P PEND P END
0x07b180…07b314 (3, 35) Dummy {f00=0x000e, f01=0x2008, f02=» NT UNPPRT 80.10.09 NJ DDUM NJDDIV & PDIV : ENTRY UNPPRT H EXT EXPAND ^ EXT PRTLN r@
0x07b314…07b4a8 Dummy {f00=0x000e, f01=0x0190, f02=» C B % C : & #0 T & C C : ! C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W ;^ B B " " : P#F # PR L#2 R R _ R _
0x07b4a8…07b63c Dummy {f00=0x000e, f01=0x0190, f02=» d w5 1 # & #0 T B ' : ;^ B B " : & P C #0 T & C C : ;^ ! C C :$x$x$x%T&T$ &L,() ) +4. / / $ % % % % & $ % % 2 847 7X7z8472$ &t&p&z&|$ $ $ $ T W V 7 @ ! P T P W $R
0x07b63c…07b7d0 Dummy {f00=0x000e, f01=0x0190, f02=»]h : _n ; 2 P V W< _ 2 # ;B & V T W V P L , V 2P " 2 P V D ! R T V P V T W V P _ 8^t D# 2 ! 9BP V T W V P D $ V 6 V % V E @ ' T 2 % 7_ 2
0x07b7d0…07b964 Dummy {f00=0x000e, f01=0x0190, f02=» V P T W _ # $ ) V & $ H$ 'W 'W '_6 :l:d:h '@ W W P W 6 2# )2W4 @ E& " T> ; [ # ) :H 2 T Z L L&~ D V, W # ) L&~ E V $ W D V L&
0x07b964…07baf8 Dummy {f00=0x000e, f01=0x0190, f02=»T^ Z Z : R ; '@ 6 : F _v ;z:B , (V ; H [ [ [ '@ Z (;AR H WD ;~ ;~ Z H # )l ; 6 ;z '@ : Z L # & ;~ ;~ & Z 4 )l : Z 4
0x07baf8…07bc8c Dummy {f00=0x000e, f01=0x0190, f02=» ( :A ( @ " P ! P [ :;H 2 'x ' ;h )& : ; V Y : 2! : 6 2 )2W& " # ) ;b ; : ;f" #?_" W ;^ # ;Z" T & T + : * & !@P `1` P + Q
0x07bc8c…07be20 Dummy {f00=0x000e, f01=0x0190, f02=» R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 ;Z P8" T * & : * & !`P :J +_ +Q + _0 , T T XD W 1 L
0x07be20…07bfb4 (3, 36) Opaque[0x194]
0x07bfb4…07c148 # DirEnt {nam=»PUSH «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0160, f03=0x0000}
0x07bfb4…07c148 IdxSect {
0x07bfb4…07c148 f00 = 0x000b // 0x7bfb4 @0x0
0x07bfb4…07c148 f01 = 0x0004 // 0x7bfb6 @0x2
0x07bfb4…07c148 gno = [ // 0x7bfb8 @0x4
0x07bfb4…07c148 [0x00]: C0x000b.0x0.0
0x07bfb4…07c148 [0x01]: C0x000b.0x1.0
0x07bfb4…07c148 ]
0x07bfb4…07c148 }
0x07c148…07c2dc Dummy {f00=0x000b, f01=0x0190, f02=» P IDENT PUSH 80.10.28 NJ P DDUM NJDDIV $ P PDIV 8 P ENTRY PUSH F P ENTRY PULL Z P* n P* x 0 P* THE TWO PROCEDURES PUSH AND PULL TAKE CARE P* OF THE STACKHANDLING. , P* DEPENDING ON THE PARAMETER, 1-8 OF THE 0 P*
0x07c2dc…07c470 Dummy {f00=0x000b, f01=0x0190, f02=»OF 'WHERE TO PUT IT', A " P* STACKPOINTER IS IMPLEMENTED. P* F 0 P* AS THE DATAITEMS ARE SAVED IN THE SEQUENCE P 2 P* TBIN8,7,6,.... THE PULL-OFF MUST BE BACKWARD P* P* P EJECT PPUSH PROC B1 P* , P* THE PROCEDUR
0x07c470…07c604 Dummy {f00=0x000b, f01=0x0190, f02=» P PBIN B1 P 2 P IB B1,PUS1,PUS2,PUS3,PUS4,PUS5,PUS6,PUS7,PUS8 PPUS8 R , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN8,CBIN0 ^ P ADD TSTACKPT,CBIN2 PPUS7 , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN7,CBIN0 P ADD TSTACKPT,CBIN2 PPUS6
0x07c604…07c798 Dummy {f00=0x000b, f01=0x0190, f02=» h P ADD TSTACKPT,CBIN2 PPUS4 $ , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN4,CBIN0 0 P ADD TSTACKPT,CBIN2 ` PPUS3 | , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN3,CBIN0 P ADD TSTACKPT,CBIN2 PPUS2 , P XCOPY TSTACK,TSTACKPT,CBIN2,TBIN2,CBIN0
0x07c798…07c92c Dummy {f00=0x000b, f01=0x0190, f02=» PEND P EJECT PPULL PROC B1 P PBIN B1 0 P* @ , P* THE PROCEDURE RESTORES ONE OR MORE OF J . P* THE ITEMS TBIN8,TBIN7,.... ON THE STACK z . P* AND UPDATES THE STACKPOINTER ACCORDINGLY P* * P SUB TSTACKPT,B1 POINT AT STARTA
0x07c92c…07cac0 Dummy {f00=0x000b, f01=0x0190, f02=»BIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 " PPUL7 > , P XCOPY TBIN7,CBIN0,CBIN2,TSTACK,TSTACKPT J P ADD TSTACKPT,CBIN2 z PPUL6 , P XCOPY TBIN6,CBIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 PPUL5 , P XCOPY TBIN5,C
0x07cac0…07cc54 (3, 37) Dummy {f00=0x000b, f01=0x018e, f02=»CBIN2 PPUL3 , P XCOPY TBIN3,CBIN0,CBIN2,TSTACK,TSTACKPT P ADD TSTACKPT,CBIN2 J PPUL2 f , P XCOPY TBIN2,CBIN0,CBIN2,TSTACK,TSTACKPT r P ADD TSTACKPT,CBIN2 PPUL1 , P XCOPY TBIN1,CBIN0,CBIN2,TSTACK,TSTACKPT , P ADD TSTACKPT,
0x07cc54…07cde8 Dummy {f00=0x000b, f01=0x403a, f02=» PEND " END *@ 6TSTACKPT P ADD TSTACKPT,CBIN2 J PPUL2 f , P XCOPY TBIN2,CBIN0,CBIN2,TSTACK,TSTACKPT r P ADD TSTACKPT,CBIN2 PPUL1 , P XCOPY TBIN1,CBIN0,CBIN2,TSTACK,TSTACKPT , P ADD TSTACKPT,
0x07cde8…07cf7c Dummy {f00=0x000b, f01=0x2008, f02=» PEND ( END 0@ < 8 ENTRY PUSH F ENTRY POP Z EJECT l PUSH PROC B1 z PBIN B1 ( $ XCOPY TSTACK,TSTACKP,CBIN2,B1,CBIN0 ADD TSTACKPT,CBIN2 RET PEND
0x07cf7c…07d110 Dummy {f00=0x000b, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=02L; 00; C;
0x07d110…07d2a4 Dummy {f00=0x000b, f01=0x0190, f02=» W 95W 96W 3 0 9W :34 3: 4 hL:4! T : j9 L:0 9 : W :34 3: 5 : 4 hL:4! T : 65j5 L: 59 960 9 : W :34 19 3: 13 1 21 D j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 94 3 3 7 j3 5 j7 6 37 GW
0x07d2a4…07d438 Dummy {f00=0x000b, f01=0x0190, f02=»E F @E @ 6@ I d 86I 7 76 7 _;4 6 1 jD 1 D" D! 7 1 61_ 4 1 I 8 @60 1 P 1 _! _) 1 Q(21 _; 2172 C'A6jI82N 82 8 _S_U_W_Y_[H6 2 21 I d 1I 0 9 2 4 G!jG 9 6 jG ' W jG ( 4 * 0 9 J jJ 1 1 0 J14
0x07d438…07d5cc Dummy {f00=0x000b, f01=0x0190, f02=» ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 ; & ( * , p R @ i T Q++++ / 0
0x07d5cc…07d760 Dummy {f00=0x000b, f01=0x0190, f02=» V C / <H "!@ : C C W C C J X ' W 781"&$ 39#$;< '()*+,-! > P _D B 'W ( Wb ( 1W" C C C " ( ' P. H P$
0x07d760…07d8f4 (3, 38) Opaque[0x194]
0x07d8f4…07da88 # DirEnt {nam=»KTABBE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0150, f03=0x0000}
0x07d8f4…07da88 IdxSect {
0x07d8f4…07da88 f00 = 0x000a // 0x7d8f4 @0x0
0x07d8f4…07da88 f01 = 0x0002 // 0x7d8f6 @0x2
0x07d8f4…07da88 gno = [ // 0x7d8f8 @0x4
0x07d8f4…07da88 [0x00]: C0x000a.0x2.0
0x07d8f4…07da88 ]
0x07d8f4…07da88 }
0x07da88…07dc1c Dummy {f00=0x000a, f01=0x0190, f02=» 6 P************************************************** P* > P* KEYTABLE USED FOR BDE/ENQ H P* l * P* THE FIRST 8 KEYS ARE PREDEFINED AND v . P* MUST ALWAYS BE PRESENT IN ANY KEYTABLE. P* 2 P* THE FIRST FIVE KEYINDEXES ARE NEVER RE
0x07dc1c…07ddb0 Dummy {f00=0x000a, f01=0x413c, f02=» P P PKTABBE KTAB KYLEFT, C P KYRIGT, C 6 P KYINS, C J P KYDEL, C ^ P KYCANC, C r P KYENT, C P KYCU, C P KYTAB, C P KYFDE, C P KYBDE, C P KYENQ, C P KYFR, C
0x07ddb0…07df44 Dummy {f00=0x000a, f01=0x2008, f02=» ********************* * & * KEYTABLE USED FOR BDE/ENQ 0 * T ***** ^@ lTR j z R_ @ = $ < V B @ & &
0x07df44…07e0d8 Dummy {f00=0x000a, f01=0x0190, f02=» T T V : 2 ' W 2 6 2 @ " T # ' ?D $8W.' #? $" V H 6 ;D:B " : _, "F C : : j "! P : ! P C W $0 P 6d C : C "!@P ") # B C B % C : ! #0 T & C C
0x07e0d8…07e26c Dummy {f00=0x000a, f01=0x0190, f02=» :#0 T B 'W 6d B B " : P L bPR L 8 R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 b
0x07e26c…07e400 Dummy {f00=0x000a, f01=0x0190, f02=»!R'.$ $ &:) * * ! - 3:2 2^2 3:28 !z!v! ! O W V 7 @ ! P O P W X @ R 66 9 f pVP 9c D "F ! Q W &: :aW, @ YRP 5 @ ]^ 5 @ ]h 5 _n 6 2 P
0x07e400…07e594 (3, 39) Opaque[0x194]
0x07e594…07e728 # DirEnt {nam=»ERASUP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x07e594…07e728 IdxSect {
0x07e594…07e728 f00 = 0x0001 // 0x7e594 @0x0
0x07e594…07e728 f01 = 0x0004 // 0x7e596 @0x2
0x07e594…07e728 gno = [ // 0x7e598 @0x4
0x07e594…07e728 [0x00]: C0x0001.0x1.0
0x07e594…07e728 [0x01]: C0x0001.0x2.0
0x07e594…07e728 ]
0x07e594…07e728 }
0x07e728…07e8bc Dummy {f00=0x0001, f01=0x0190, f02=» P IDENT ERASUP 80.11.04 NJ P DDUM NJDDIV & P PDIV : P ENTRY ERASUP H P ENTRY LOLITE ^ P EXPROC PUSH,PBIN t P EXPROC PULL,PBIN P EXPROC FINDLN,PSTRG,PBIN P EXPROC ATTPCK,PSTRG,PBIN P EXPROC ATTUNP,PSTRG,PBIN
0x07e8bc…07ea50 Dummy {f00=0x0001, f01=0x0190, f02=»CEDURE ERASES ALL UNPROTECTED P* FIELDS ON THE SCREEN & P* D & P* THIS IS ACCOMPLISHED AS FOLLOWS: N * P* 1. THE FIELDSTART ADDRESS IS FOUND x P* 2. THE CURSOR IS MOVED $ P* 3. THE FIELD LENGTH IS FOUND P* 4. THE SCREEN IS ERAS
0x07ea50…07ebe4 Dummy {f00=0x0001, f01=0x0190, f02=»CBIN0 P MOVE TSTR2,ESC ( P XCOPY TBIN5,CBIN0,CBIN2,TSTR2,CBIN0 & PERAS010 R * P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 b P ADD TBIN3,CBIN1 @ P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS ( P CBE TCURPOS,TBIN5,ERAS090 F
0x07ebe4…07ed78 Dummy {f00=0x0001, f01=0x0190, f02=» P MOVE TP2,=W'50' " P PERF FINDLN,TSCRBUF,TBIN3,TP2 P PERF ATTUNP,TSCRBUF,TBIN4 F & P TBF TAPROTEC,ERAS015 UNPROTECTED? h * P TBT TAMODIF,ERAS020 PROT + MODIFIED? PERAS015 * P DSC1 DSDY,POS,TCURPOS POSITION CURSOR P DSC1 DSDY
0x07ed78…07ef0c Dummy {f00=0x0001, f01=0x0190, f02=»S010 TRY NEXT FIELD PERAS090 P PERF CRHOME , P PERF PULL,CBIN5 @ P RET X P PEND d P EJECT r PLOLITE PROC 0 P* THE PROCEDURE SCANS THE SCREEN BUFFER FOR . P* HIGHLIGHTED FIELDS. IF ONE IS FOUND, THE P* FOLLOWING WI
0x07ef0c…07f0a0 Dummy {f00=0x0001, f01=0x0190, f02=» 23 t , P* 4. SET NON-DISPLAY-BIT FOR THIS FIELD P* < P PERF PUSH,CBIN4 F P MOVE TBIN3,CBIN0 ^ P MOVE TSTR2,ESC x ( P XCOPY TBIN4,CBIN0,CBIN2,TSTR2,CBIN0 PLOLI010 * P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 P ADD TBIN3,CBI
0x07f0a0…07f234 (3, 40) Dummy {f00=0x0001, f01=0x0190, f02=»N2 P MOVE TBIN1,TBIN3 4 P PERF ATTUNP,TSCRBUF,TBIN1 SET UP ATTR.BOOLEANS $ " P ADD TBIN3,CBIN1 POINT AT DATA P MOVE TP1,CBIN0 P MOVE TP2,=W'500' " P PERF FINDLN,TSCRBUF,TBIN3,TP2 2 P TBF TAHILITE,LOLI020 BRANCH IF LOW INTENSITY
0x07f234…07f3c8 Dummy {f00=0x0001, f01=0x0190, f02=»3 l $ P MOVE DATA FROM SCREEN BUFFER $ P MOVE TBIN2,TP1 SAVE FIELDLENGTH 2 ( P ADD TP1,CBIN3 ADJUST FOR CTRL CHARS Z * P WRITE DSDY,TSCBUF,TP1 WRITE ON SCREEN & P CLEAR TAHILITE RESET HIGHLIGHTBIT P PERF ATTPCK,TSCRBUF,TBIN1 P REST
0x07f3c8…07f55c Dummy {f00=0x0001, f01=0x0190, f02=»E TSTR2,=X'1B17' <ESC>!<LINE 23> P MOVE TBIN1,CBIN0 ( P MOVE TBIN2,=W'500' B 0 P MATCH TSCRBUF,TBIN1,TBIN2,TSTR2,CBIN0,CBIN2 ^ $ P BNOK LOLI090 NO DATA ON LINE 23 P ADD TBIN1,CBIN1 , P XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1 P DSC1
0x07f55c…07f6f0 Dummy {f00=0x0001, f01=0x412e, f02=»,TSCRBUF,TBIN1 P ADD TBIN1,CBIN1 P MOVE TP1,CBIN0 . P MOVE TP2,=W'500' F 0 P PERF FINDLN,TSCRBUF,TBIN1,TP2 FIELD LENGTH? ` 0 P DSC1 DSDY,ERASE,TP1 ERASE A PART OF LINE 23 PLOLI090 P PERF CRHOME P PERF PULL,CBIN4 P RET
0x07f6f0…07f884 Dummy {f00=0x0001, f01=0x2008, f02=» NT ERASUP 80.10,14 NJ DDUM NJDDIV & * : 6 1* THIS PROCEDURE ERASES ALL UNPROTECTED FIELDS IN D * THE SCRBUF. ~ * PDIV ENTRY ERASUP INCLUDE EQUATE EJECT ERASUP PROC !!JN UNPCK,7
0x07f884…07fa18 Dummy {f00=0x0001, f01=0x0190, f02=»**** h " P* READ 1. INPUTFIELD (BRANCH) , P* TAKE APPROPRIATE ACTION, DEPENDING ON 2 $ P* THE END-OF-ITEM KEY DEPRESSED b P PERF POSCUR,=W'22',=W'10' P MOVE TBIN1,CBIN3 2 P PERF KBREAD,TKBBUF,TBIN1,KTABENQ,TBIN4,CBIN1 P BERR ENQ010
0x07fa18…07fbac Dummy {f00=0x0001, f01=0x0190, f02=»Q011, PTR C P ENQ012, ENTER C P ENQ011, CU C . P ENQ012, TAB C D P ENQ010 CLEAR PENQ012 r P MOVE TBIN4,CBIN0 & P PERF LEAD CREATE ESC!ROW!COL!ATT * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 . P ADD TBIN4,CBIN4 INCRE
0x07fbac…07fd40 Dummy {f00=0x0001, f01=0x0190, f02=»CKING ROUTINE r P ADD TBIN4,CBIN3 P EJECT . 8 P*************************************************** < $ P* 2. INPUTFIELD (ACCOUNTNUMBER) x P PERF POSCUR,=W'22',=W'23' P MOVE TBIN1,CBIN9 2 P PERF KBREAD,TKBBUF,TBIN1,KTABENQ,TBIN4,CBIN
0x07fd40…07fed4 (3, 41) Opaque[0x194]
0x07fed4…080068 # DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0188, f03=0x0000}
0x07fed4…080068 IdxSect {
0x07fed4…080068 f00 = 0x000c // 0x7fed4 @0x0
0x07fed4…080068 f01 = 0x0006 // 0x7fed6 @0x2
0x07fed4…080068 gno = [ // 0x7fed8 @0x4
0x07fed4…080068 [0x00]: C0x000c.0x1.0
0x07fed4…080068 [0x01]: C0x000c.0x2.0
0x07fed4…080068 [0x02]: C0x000c.0x3.0
0x07fed4…080068 ]
0x07fed4…080068 }
0x080068…0801fc Dummy {f00=0x000c, f01=0x0190, f02=» : W w @ D P 9aW W F R _ W W W W V | D N N SC ~ R W W W W W( V /SP W V R Q UF W 0 V v R W W W W W W W2 V U Q , P P W R W W W W !!
0x0801fc…080390 Dummy {f00=0x000c, f01=0x0190, f02=»W W W W W *W W W W . " & W N W 0 V v W t W v A A A A A A W V pW W _ _ W L N D j E l ^ W n A A A : 0 - ?? W j d j $ @ $ A (PN R
0x080390…080524 Dummy {f00=0x000c, f01=0x0190, f02=» pW W W W B b_0 _ W W W W W W P , 8 N T N 9HV V W 2 W 2 W 2 : 8 ~ @W _H _ _P B P R $ !CC A j P ( V F P ) Y R _Z_ W Wh A W
0x080524…0806b8 Dummy {f00=0x000c, f01=0x0190, f02=» @ P v @ PP @ A | - @ @ Q + @ @ A A @ /S SCP /A A x W @ P X W : R _ _ _ W V Z ' Y$ ' W 4 R _6W _:_< V f T R _V_X_ZW _^ V Zd ' Yj V
0x0806b8…08084c Dummy {f00=0x000c, f01=0x0190, f02=» t b " T " d @ P V W @ @ A D @ V A j V W V A R _8W._<W _@ V ZF ' YL V ZB W R
0x08084c…0809e0 Dummy {f00=0x000c, f01=0x0190, f02=» W h R _ W _ _ 0 V P$ < / V A B 8 V V Q f A | V V W W P W jW V W fW A | V W W ' W v | !$$PV !,,T W |_" 2 R _0_2_4W _8 V Z> ' YD W T R _R_T_VW _Z V
0x0809e0…080b74 (3, 42) Dummy {f00=0x000c, f01=0x0190, f02=» , V =a=A V V , V =a=A w W w V t V V % V % % % W t T R _ _ _ W _ V Z ' Y" V W ~ V V , V =a=A V V , V =a=A W V V P W
0x080b74…080d08 Dummy {f00=0x000c, f01=0x0190, f02=» 0 B C " # ( B C # @ @ 8 A A A A A V | A @ Q @ R WVWTWRW WN V RH ' QB W W R W0W W,W W V R" ' Q W R W W W W W A 0 ) % B P Q0 $ !,, $ !FFT @ A
0x080d08…080e9c Dummy {f00=0x000c, f01=0x0190, f02=» j P ( + * ! T , z R WFWD_ WD F K @ Q V V R2 V U2 b W V V T f A W W W _d @ P @ P V V V V W b " ! T B C C A 0 % C ( A " ! T B C
0x080e9c…081030 Dummy {f00=0x000c, f01=0x0190, f02=» 2 C ( W ( V W A L C ( _ * * 2 L V 0 , 0!!DL LINE1(,LINE2)(,C) )!!IL LINE1(,C) )!!JN (LINE1,)FILE,LINE2(,LINE3)(,C)(,L) )!!AB )!!CH (LINE1,LINE2)/STRG1/STRG2/(,C)(,L) )!!RE LINE1/
0x081030…0811c4 Dummy {f00=0x000c, f01=0x0190, f02=») )REL DATE: 80-06-12 V | W W V | V P v | W | W $$P 9H_ W : W : V | V :H v | W | Y $$ V :a V Q V % v % W Y ^ j W | V V | V V | R * W | ^ _$ W p
0x0811c4…081358 Dummy {f00=0x000c, f01=0x0190, f02=» P P , 9 9 Y V | 9a9A $ $ 9 W | X| Y $ 9 V D p T A W V T A N ; R| @ Pv A A V j = # j 0 - C ( B - C - @ @ @ !
0x081358…0814ec Dummy {f00=0x000c, f01=0x0190, f02=»REP CHT @ P WR LSP , !// , - / - R , !// $ - -_ W 8 9 : B $ DLP ILP JNTD L Q: $ ! X !CCT W !LL $ !,, * $ ! 6 ) A : W W W j P ( V ) Y @
0x0814ec…081680 Dummy {f00=0x000c, f01=0x0190, f02=»UUT PW " P T. @ Q( P ( V A $ )_ V ( v R WDWBW W A @ P P T @ P W V V v V ZDQ R FW _T " ! T: V A A V A @ " R
0x081680…081814 (3, 43) Dummy {f00=0x000c, f01=0x0190, f02=» j * D EO S c _< @ T @ P V W A W V pWFWp_8_: V j A 4W V j P 0 R _r_tW W A _z b N ; : Z pW W W W B X _l Xp_2 # , T TYTF L A .
0x081814…0819a8 Dummy {f00=0x000c, f01=0x0190, f02=» B B B V 1 L: W W , PZ V , PD ( h ) V " V P I ) * ) R W W W , , V , ( h 00 ) J R W W W W ( <V # N < V #
0x0819a8…081b3c Dummy {f00=0x000c, f01=0x0190, f02=»W :!! * D EO S SYSTEM @ T @ P V W A W V W W _8_: V j A W DL LIL EN AB JN CH LS RE L COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN
0x081b3c…081cd0 Dummy {f00=0x000c, f01=0x0190, f02=» AGAIN EOF SOURCE /SC,UPD TERMINATED /S CAN NOT BE ASSIGNED * AUX. INPUT CAN NOT BE ASSIGNED,TRY AGAIN STRING NOT FOUND 0000 LINES = +0000 IN /S IDENT STATEMENT UPDATED HIGHEST LINENO READ 0000 LINEPRINTER IS NOT ASSIGNED +0000 OF 0000 L
0x081cd0…081e64 Dummy {f00=0x000c, f01=0x0190, f02=»'!' $$ ERROR TABLE O'FLOW,TRY AGAIN EOF IN AUXI INPUT SOURCE /SC W A W V W W _8_: V j A W DL LIL EN AB JN CH LS RE L COMMAND UNKNOWN ,TRY AGAIN " I/O ERR ON LAST RECORD,TRY AGAIN
0x081e64…081ff8 Dummy {f00=0x000c, f01=0x018e, f02=» LD A1,S:ANB2,A13 LAST LINE TO BE COPIED " P ST A1,S:NB1,A13 > P LDKL A6,JNP230 d 0 P ABL COPYLL COPY DA TO D4 . P RF *+2 EOF DETECTED PJNP230 EQU * <
0x081ff8…08218c Dummy {f00=0x000c, f01=0x0190, f02=» n > P ST A1,S:NB,A13 RESTORE LINE # OF MAIN INPUT B P AB.L ILP700 INSERT LINES UP TO NEXT COMMAND J P EJECT $ PSYNTCH EQU * HELP TO BRANCH PTS P ABL SYNTAX SYNTAX ERROR PTS P* B P* CHP
0x08218c…082320 Dummy {f00=0x000c, f01=0x0190, f02=»AT END OF THE WORK AREA) t P* USED AS FOLLOWS : P* B D P* RETURN TO A6+2 IF EOF ON /DA FILE L . P* 1WORD ENTRY LENGTH (2 STRINGS) * P* 1WORD LENGTH OF 1ST STRING P* N WORDS 1S
0x082320…0824b4 (3, 44) Opaque[0x194]
0x0824b4…082648 # DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01a0, f03=0x0000}
0x0824b4…082648 IdxSect {
0x0824b4…082648 f00 = 0x000d // 0x824b4 @0x0
0x0824b4…082648 f01 = 0x0002 // 0x824b6 @0x2
0x0824b4…082648 gno = [ // 0x824b8 @0x4
0x0824b4…082648 [0x00]: C0x000d.0x0.0
0x0824b4…082648 ]
0x0824b4…082648 }
0x082648…0827dc Dummy {f00=0x000d, f01=0x0190, f02=» | 8 P 4I w x b # g $ ^ : 9 i $ 7 f w x4r tV u ' qC ~5 * zuqV $ # > P ZD k c r Px oV iX % 5Zf Q > - @ $ ' 4` 1P X-8 T ~ n tB l Tg t z ^ X lBZB H X2 Z j{ z
0x0827dc…082970 Dummy {f00=0x000d, f01=0x0190, f02=» RLINES INPUT. 1XRF 10.1 CROSS REFERENCE LISTING OF MODULE: &&&&&& DATE: YYMMDD PAGE: 0 SYMBOL DEF REFERENCES NO MORE SPACE AVAILABLE 0RESTARTED AFTER MEMORY OVERFLOW r P jW ( R ( @ R$ # X"
0x082970…082b04 Dummy {f00=0x000d, f01=0x0190, f02=» PP< _ (' X )R X*_ (" X, E PP _ D # P : @ ( ? (T , ) , ( T ( )T ) P 4 @ ( T ( T A @ ( :ENTR EEXTR@ XEXT @ XEND ` S A > @ ( *P H ( CT A > (
0x082b04…082c98 Dummy {f00=0x000d, f01=0x0190, f02=»Y$ Y0 Pl P, ^< Q _( W @ 7 @ 7 @ @ W 7 : V * J R ` K W _. @ _N !A Z^ !Z Yd R ) 0 !' Xv ! P !, P !
0x082c98…082e2c Dummy {f00=0x000d, f01=0x0190, f02=» EN . T 8 ! > *_H ! P . A < A @ B ! P *_ ! ( P @ >Q *W ! X` 0 ! Xj_ !' T ! X| !, X" !+ X( !- X. 0_ F( C R8Q> F l C (
0x082e2c…082fc0 Dummy {f00=0x000d, f01=0x0190, f02=» A . D @ V " @ A W 6 A A & R Q T W@ *** + V ` P 9j D ' . R Q + G Tn @ < 0 A @ z A $ F( @ P A H " A J F( A H C ( @ x' U
0x082fc0…083154 (3, 45) Opaque[0x194]
0x083154…0832e8 # DirEnt {nam=»OBGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01b8, f03=0x0000}
0x083154…0832e8 IdxSect {
0x083154…0832e8 f00 = 0x000d // 0x83154 @0x0
0x083154…0832e8 f01 = 0x0002 // 0x83156 @0x2
0x083154…0832e8 gno = [ // 0x83158 @0x4
0x083154…0832e8 [0x00]: C0x000d.0x3.0
0x083154…0832e8 ]
0x083154…0832e8 }
0x0832e8…08347c Dummy {f00=0x000d, f01=0x0190, f02=» PSCR PDEL /OB PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x08347c…083610 Dummy {f00=0x000d, f01=0x001e, f02=»2,LP0F ASG /E0,TY10 PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x083610…0837a4 Dummy {f00=0x000d, f01=0x2008, f02=» ASG /E0,TY10 PASM CTAB01 PTRA NJDDIV 2 PTRA TEST D PTRA CURSOR T PTRA BDE f PTRA BDEINP v PTRA ENQ PTRA EXPAND PTRA FINDLN PTRA KBREAD PTRA LEAD PTRA SCWRIT PKPF /O PSCR
0x0837a4…083938 Dummy {f00=0x000d, f01=0x018e, f02=» . H IDENT Z:TB20 TRA 10.0 80-11-09 F1 O1111 Z:TB20 6 Z:TB20T H & & r & = & [ & y & & & & & & -
0x083938…083acc Dummy {f00=0x000d, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x083acc…083c60 Dummy {f00=0x000d, f01=0x0190, f02=» & ) & G & e $ & 4 & D & T & d & t & & 7 & U & s & & & & &
0x083c60…083df4 (3, 46) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0338, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x0019 // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x0016 // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x0019.0x3.0
0x083df4…083f88 [0x01]: C0x001a.0x0.0
0x083df4…083f88 [0x02]: C0x001a.0x1.0
0x083df4…083f88 [0x03]: C0x001a.0x2.0
0x083df4…083f88 [0x04]: C0x001a.0x3.0
0x083df4…083f88 [0x05]: C0x001b.0x0.0
0x083df4…083f88 [0x06]: C0x001c.0x1.0
0x083df4…083f88 [0x07]: C0x001c.0x2.0
0x083df4…083f88 [0x08]: C0x001c.0x3.0
0x083df4…083f88 [0x09]: C0x0007.0x3.0
0x083df4…083f88 [0x0a]: C0x0009.0x1.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x0019, f01=0x018e, f02=» 8 F IDENT CTAB01 80.10.30 NJ CTAB01K @ CTAB01K R , ( / # 0123 f , ( ! 456789 < @ , ( A ,-. 0123456789 'ABCDEFGHIJK , ( a LMNOPQRSTU
0x08411c…0842b0 Dummy {f00=0x0019, f01=0x401e, f02=» z @ 80.10.30 NJ CTAB01K @ CTAB01K R , ( / # 0123 f , ( ! 456789 < @ , ( A ,-. 0123456789 'ABCDEFGHIJK , ( a LMNOPQRSTU
0x0842b0…084444 Dummy {f00=0x0019, f01=0x417e, f02=» . H IDENT T:AK00 TRA 10.0 80-11-09 F1 O1111 T:AK00 6 T:AK00A J H > : T:DK00 D:CB10 C:CB10 D:CB20 C:CB20 D:TB10 Z:TB10 D:TB20A Z:TB20A * & 0 * & P d
0x084444…0845d8 Dummy {f00=0x0019, f01=0x40c4, f02=» . H IDENT T:DK00 TRA 10.0 80-11-09 F1 O1111 T:DK00 6 T:DK00D H KBGO0 * & K0 0 * * l @ * & P d
0x0845d8…08476c Dummy {f00=0x0019, f01=0x409a, f02=» . H IDENT T:ATAB TRA 10.0 80-11-09 F1 O1111 T:ATAB 6 T:ATABA H T:AK00 @ n :A @ @ * & P d
0x08476c…084900 Dummy {f00=0x0019, f01=0x4084, f02=» . H IDENT U:BTAB TRA 10.0 80-11-09 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ @ * & P d
0x084900…084a94 (3, 47) Dummy {f00=0x001a, f01=0x4084, f02=» . H IDENT S:BTAB TRA 10.0 80-11-09 F1 O1111 S:BTAB 6 S:BTABB H :B n@
0x084a94…084c28 Dummy {f00=0x001a, f01=0x40ca, f02=» . H IDENT C:CB10 TRA 10.0 80-11-09 F1 O1111 C:CB10 6 C:CB10C H * & P $ $ @
0x084c28…084dbc Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:CB10 TRA 10.0 80-11-09 F1 O1111 D:CB10 6 D:CB10C H * & B * & = B @
0x084dbc…084f50 Dummy {f00=0x001a, f01=0x40a4, f02=» . H IDENT C:CB20 TRA 10.0 80-11-09 F1 O1111 C:CB20 6 C:CB20C H td z @ = B @
0x084f50…0850e4 Dummy {f00=0x001a, f01=0x40b8, f02=» . H IDENT D:CB20 TRA 10.0 80-11-09 F1 O1111 D:CB20 6 D:CB20C H * & & & @ = B @
0x0850e4…085278 Dummy {f00=0x001a, f01=0x40c8, f02=» . H IDENT Z:TB10 TRA 10.0 80-11-09 F1 O1111 Z:TB10 6 Z:TB10T H * & $ $ @ B @
0x085278…08540c Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:TB10 TRA 10.0 80-11-09 F1 O1111 D:TB10 6 D:TB10T H * & B * & = B @
0x08540c…0855a0 Dummy {f00=0x001a, f01=0x018e, f02=» . H IDENT Z:TB20 TRA 10.0 80-11-09 F1 O1111 Z:TB20 6 Z:TB20T H & & r & = & [ & y & & & & & & -
0x0855a0…085734 (3, 48) Dummy {f00=0x001a, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x085734…0858c8 Dummy {f00=0x001a, f01=0x0190, f02=» & ) & G & e $ & 4 & D & T & d & t & & 7 & U & s & & & & &
0x0858c8…085a5c Dummy {f00=0x001a, f01=0x0190, f02=» & & 5 & S $ & q 4 & D & T & d & t & & % & C & a & & & & &
0x085a5c…085bf0 Dummy {f00=0x001a, f01=0x407e, f02=» & & # & A $ & _ 4 $ } D T } h@ z t & & % & C & a & & & & &
0x085bf0…085d84 Dummy {f00=0x001a, f01=0x40e4, f02=» . H IDENT D:TB20 TRA 10.0 80-11-09 F1 O1111 D:TB20 6 D:TB20T H * & B0 * & P * d z T 2 = & < X B @ & &
0x085d84…085f18 Dummy {f00=0x001a, f01=0x40b2, f02=» . H IDENT NJDDIV TRA 10.0 80-11-09 F1 O1111 KBGOB 6 $$$TRAD F KBGOB X TESTR j z R_ @ = & < X B @ & &
0x085f18…0860ac Dummy {f00=0x001a, f01=0x0190, f02=» . H IDENT TEST TRA 10.0 80-11-09 F1 O1111 DCSEND PRTLN TEST 6 $$$TRAS T DCSEND PRTLN TEST , f B > ATTPCKS ATTUNPAhBDE BDEINP- CRBTAB1 CRDOWN CRFTAB CRHOME > : CRNEAR CRNLT CRUPThENQ ERASUP ERWRIT EXPAND FINDL
0x0860ac…086240 Dummy {f00=0x001a, f01=0x0190, f02=» / E 6 , " 2 % * D . AB 034D 05P T 1 p 3 ; ABCD 4 = J F " D 0X 4 R E! 1L 2 hL21E T E"jL2 E R 4 NL <L RN< < NL RN<
0x086240…0863d4 (3, 49) Dummy {f00=0x001a, f01=0x018e, f02=» ` * b . g ! i 0 0 o @ s ERRORLINE IS LINE 23 P u t y ` ` ` { } J F " D @ DL RD @< RD 9L R 9L R R ML RM ML RM
0x0863d4…086568 Dummy {f00=0x001a, f01=0x0190, f02=» $ 4 D T d t
0x086568…0866fc Dummy {f00=0x001a, f01=0x0190, f02=» R R R R R R R R R R R R R R R R R 5L 6L 1L R 1L | 4 : J 4 Z j 0002 01 z bABC $ bDEF ' bG '!bHID J F " D R < 0X NK<=
0x0866fc…086890 Dummy {f00=0x001a, f01=0x0190, f02=» 7 12345678 ABCD PQRS 8 % : J ( ( Z / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x086890…086a24 Dummy {f00=0x001a, f01=0x4068, f02=» " @ & & . " ( 0 @R R?R4 P < G R@ d / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x086a24…086bb8 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT CURSOR TRA 10.0 80-11-09 F1 O1111 80.10.29 NJ B > CRBTAB CRDOWN CRFTAB CRHOME CRNEAR CRNL CRUP POSCUR B $$$TRAR @ < CRBTAB S CRDOWNC CRFTABH CRHOMEA CRNEARC CRNLS L CRUPR POSCURA PULLA PUSHC
0x086bb8…086d4c Dummy {f00=0x001a, f01=0x0190, f02=»9 0X 9 R 4 R 1: : 2LhL:2! T : j9 L:0X 9 z H 8 M H ` T X J F " D @: W :1 R 4 R 3: 6 j6 9 5 4LhL:4! T' : jD L: D! j5 L: 56 j T
0x086d4c…086ee0 Dummy {f00=0x001a, f01=0x0190, f02=»4LhL:4! T; : jD L: D!.j6 L:*16 56_( 51 61 R | : J Z $ T j J F " D W 95W 96 3 0X 9W :3 R 4 R 1: 2LhL:2! T : jD L: D! j9 L | B O T a T
0x086ee0…087074 (3, 50) Dummy {f00=0x001a, f01=0x0190, f02=» Q T J F " D 9 :2 : W :3 R 4 R 19 3: 1L 21 DLj2 D : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x087074…087208 Dummy {f00=0x001a, f01=0x4060, f02=» A @34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 R 4 R y } J@ : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x087208…08739c Dummy {f00=0x001a, f01=0x4184, f02=» : H IDENT BDE TRA 10.0 80-11-09 F1 O1111 80.10.09 NJ hBDE B $$$TRAE P hBDE b BDEINPE DCSENDA UNPCK r 00020 $ & / 00020 J F " D HLjH B jH C jH A
0x08739c…087530 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT BDEINP TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ ! BDEINP ! B $$$TRAE ! T BDEINP ! f > : ATTPCKE ATTUNPA CRFTAB0 CRHOMEF ERASUP FINDLN0 KBREAD ! z PULLN PUSH T:DSC1 ! / ! !
0x087530…0876c4 Dummy {f00=0x001a, f01=0x416a, f02=» ! @ G " A $ " B $ " * C $ " : D ] " J E $ " Z F $ " j J F " D R R RR 4 2: RL: 4: : I< > W > < RL: R<K=>V 0X 9_ 2= RR " z N " T " X " ^ "
0x0876c4…087858 Dummy {f00=0x001a, f01=0x0190, f02=» : H IDENT ENQ TRA 10.0 80-11-09 F1 O1111 80.11.09 NJ # hENQ # B $$$TRAQ # P hENQ # b @ < DCSENDQ ERWRITA KBREAD0 LEAD9 POSCUR1 PULL. PUSH T:EDWR # r UNPCK UNPPRT # / # # #
0x087858…0879ec Dummy {f00=0x001a, f01=0x018e, f02=» " # # $ $ $ % q $ 0 & $ @ ' $ P , $ ` J F " D R 1X F L! <L R< < R<K= Z 2= RRRRRRRRR 4 R jL4 G 4 jL4 N FN $ p E $ H $ J $ Q $ S
0x0879ec…087b80 Dummy {f00=0x001a, f01=0x0190, f02=» c % e % { % $ ~ ( % 6 % H J F " D @ 4 <L =L R<= < R<K= ZU2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L % X % % % % % c %
0x087b80…087d14 (3, 51) Dummy {f00=0x001b, f01=0x0190, f02=» % & & J F " D R<= < R<K= Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K & * & x & & q & q & q & q & q & q &
0x087d14…087ea8 Dummy {f00=0x001b, f01=0x0190, f02=» & q ' q ' q ' , q ' < q ' L q ' J F " D = Z 2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L R<= < R<K= Z 2= RRR ' l ' 00030 01 ' 4 ' @ 99 ' J F
0x087ea8…08803c Dummy {f00=0x001b, f01=0x0190, f02=» ' S ( ^ ( ` ( ( . + ) e #QERR1 - INVALID FUNCTION SELECTION ( 8 g ( j * & $ l QERR2 - ENQUIRY NOT AVAILABLE ( z n ( r ( | ( J F " D @L A5 R <L R< < R<K= I4 *4 ?R RW IL RW
0x08803c…0881d0 Dummy {f00=0x001b, f01=0x018e, f02=» & ( & ENQUIRIES AVAILABLE ) & ) 0 & ) > & ) L SAVINGS ) Z $ N ) r ACCOUNT ) $ N ) BALANCE ) $ N ) & ) 01 ) $ N ) &
0x0881d0…088364 Dummy {f00=0x001b, f01=0x0190, f02=» ) " AND LAST FIVE ENTRIES * $ N * . 02 * > $ N * P & * ` & * n CURRENT * | $ N * ACCOUNT * $ N * BALANCE * $ N * & *
0x088364…0884f8 Dummy {f00=0x001b, f01=0x0190, f02=» BALANCE * $ N + " AND LAST FIVE ENTRIES + ( $ N + N 04 + ^ $ N + p & + & + CURRENT + $ N + ACCOUNT + $ N + DETAILS + $
0x0884f8…08868c Dummy {f00=0x001b, f01=0x0190, f02=»ACCOUNT + $ N , VOUCHERS , $ N , 8 & , H 06 , V $ N , h & , x & , ACCOUNT , $ N , INTERIM STATEMENT , $ N , & , 07 ,
0x08868c…088820 Dummy {f00=0x001b, f01=0x40e2, f02=» & , ! TYPE - $ ! - " & - 2 " PRINTER - @ $ " - X & - h # VOUCHER - v $ # - & - ( - 4 R - - @ - N , & , 07 ,
0x088820…0889b4 (3, 52) Dummy {f00=0x001c, f01=0x4140, f02=» : H IDENT EXPAND TRA 10.0 80-11-09 F1 O1111 80.11.03 NJ . EXPAND . B $$$TRAP . T EXPAND . f PULLR PUSH . z . . J F " D R 1 2 3 D%h 23D T1jF 2 ILj 2 I jE F @E 4@ 4 U d 24I 2 . J .
0x0889b4…088b48 Dummy {f00=0x001c, f01=0x40fc, f02=» : H IDENT FINDLN TRA 10.0 80-11-09 F1 O1111 80.11.03 NJ / FINDLN / B $$$TRAN / T FINDLN / f PULLR PUSH / z / # / 2 - + R 2 1 jD 1 D" D! < 1 2 Y R 4 / # ' / @ /
0x088b48…088cdc Dummy {f00=0x001c, f01=0x018e, f02=» : H IDENT KBREAD TRA 10.0 80-11-09 F1 O1111 80.11.07 NJ 0 FIND00 KBREAD 0 B $$$TRAR 0 FIND00 KBREAD 0 n . * PULLR PUSH SCRWR T:DSC11 T:KIF T:LWRI 0 0 P 0 0 ++.S 0
0x088cdc…088e70 Dummy {f00=0x001c, f01=0x018e, f02=» P 1 J F " D @ 42 R ?R 1 W "1 @7 1 5 Q K7(A665 :y W 21 1 1 b J F " D 2 2 jI31N 31 3 79 73_r 21 2 jI31N 31 3 79 73_ jI31N ELdI 1 r + 1 1 1 1 J F " D
0x088e70…089004 Dummy {f00=0x001c, f01=0x0190, f02=» 1 . 2 J F " D I ELdM E RM 63 6 fM 3 7 DLhM7 D DLjM7 D 0X M6 79 73 21 2 3 2 B ) 2 f D 2 v I 2 N 2 S 2 X 2 m 2 w 0L 2 2 J F " D @1?R0X 90X
0x089004…089198 Dummy {f00=0x001c, f01=0x40a0, f02=» 2 3 3 J F " D 9 RN4W RN 4 0X 4 6 R 4 DL 6 7Lh 67D 76 7 jD N7-DL 3 * 6 4 3 x 3 @ 3 S 2 X 2 m 2 w 0L 2 2 J F " D @1?R0X 90X
0x089198…08932c Dummy {f00=0x001c, f01=0x40b8, f02=» : H IDENT LEAD TRA 10.0 80-11-09 F1 O1111 80,10,09 NJ 4 LEAD 4 B $$$TRAA 4 R LEAD 4 d ( # ! G!jG 9 jG ' W jG ( 4 4 v EA 4 @ 4 YOU NEED EQUATES. * 6 1*
0x08932c…0894c0 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT SCWRIT TRA 10.0 80-11-09 F1 O1111 80.10.28 NJ 5 ERWRIT SCRWR SCWRIT 5 B $$$TRAW 5 b " ERWRIT 9 SCRWR SCWRIT 5 t * & POSCURW PULLT PUSH. T:DSC1- T:LWRI1 5 5 5 5 5
0x0894c0…089654 (3, 53) Dummy {f00=0x001c, f01=0x409c, f02=»EL M dM E 1 1 0X M1 R 4 <L = 5 l D 6 * M ++ 6 : U 6 L & ! @R<=0X M ELdM E 0X M 4 L 6 U [ 6 @ 6
0x089654…0897e8 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT UNPCK TRA 10.0 80-11-09 F1 O1111 80.11.04 NJ UNPCK B $$$TRAP R UNPCK d B > ATTUNPP ERASUPA FINDLN0 LOLITEF PULL1 PUSH. T:DSC1J T:LWRI v ; J F " D R GK@0@1@2@3 2 5 j2 K5 2 62
0x0897e8…08997c Dummy {f00=0x001c, f01=0x018e, f02=» g l J F " D @2H0 FL0X F H1 1L0X 10X 1L 1 H2 RH3 R 4 L!jD K5 15 1 j $ r J F " D 9 K1 9LjK1 9 0X 9 1 jD K1 D"V 35 3 < RK3 2< RK1I5 H; I: W
0x08997c…089b10 Dummy {f00=0x001c, f01=0x401a, f02=» @ J F " D @2H0 FL0X F H1 1L0X 10X 1L 1 H2 RH3 R 4 L!jD K5 15 1 j $ r J F " D 9 K1 9LjK1 9 0X 9 1 jD K1 D"V 35 3 < RK3 2< RK1I5 H; I: W
0x089b10…089ca4 Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT UNPPRT TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ UNPPRT B $$$TRAP T UNPPRT f PRTLN PULL PUSH1 z ++ Q J F " D R 1 EL 4LjM 4 1 D$ 3 hM34D 2 D#hM24D T $32 12 42
0x089ca4…089e38 Dummy {f00=0x001c, f01=0x4062, f02=»45 4LdM E jM4 ? RM ELI7 EL 1 jD 1 D" D! _s R 4 ~ < @ L@ ^ UNPPRT f PRTLN PULL PUSH1 z ++ Q J F " D R 1 EL 4LjM 4 1 D$ 3 hM34D 2 D#hM24D T $32 12 42
0x089e38…089fcc Dummy {f00=0x001c, f01=0x417a, f02=» : H IDENT PUSH TRA 10.0 80-11-09 F1 O1111 80.10.28 NJ PULL PUSH B $$$TRAS X PULL U PUSH j J F " D 6 ?6-$ jO; 8 ; jO; 7 ; jO; 6 ; jO; 5 ; jO; 4 ; jO; 3 ; J F " D @ jO; 2 ; jO; 1 ; 4 ; ; 6 ?6-$ j8 O; ; j
0x089fcc…08a160 Dummy {f00=0x001c, f01=0x018e, f02=» : H IDENT ERASUP TRA 10.0 80-11-09 F1 O1111 80.11.04 NJ ERASUP LOLITE B $$$TRAA ERASUP LOLITE n B > ATTPCKA ATTUNPA CRHOME0 FINDLNF PULL1 PUSH. T:DSC1J T:LWRI 0 2 2
0x08a160…08a2f4 (3, 54) Dummy {f00=0x001c, f01=0x0190, f02=» V X ] $ J F " D @0X 90X <@: RL4 3<_F R R 4 R 3 E!j4 E jD L3 3 j9 L3 94? 3 4 ++ J
0x08a2f4…08a488 Dummy {f00=0x001c, f01=0x40d2, f02=» , < L J F " D 1 2LhL12E T. 1 j9 L10X 9 1 RL1A8 RL1 1 < =L RL1=0X < R R 4 @ J
0x08a488…08a61c Dummy {f00=0x001c, f01=0x0190, f02=» : H IDENT ATTRIB TRA 10.0 80-11-09 F1 O1111 80.10.31 NJ ATTPCK ATTUNP TMASK B $$$TRAT b " ATTPCK < ATTUNPT TMASK + t MASKR PULL PUSH1 + + + +
0x08a61c…08a7b0 Dummy {f00=0x001c, f01=0x4076, f02=» W @ 224 R X g 6 1 / @1LH8 1 H9 1 H: 1 H; 1 H< 1 j 1 R 4 3 & g k `@ r ATTPCK < ATTUNPT TMASK + t MASKR PULL PUSH1 + + + +
0x08a7b0…08a944 Dummy {f00=0x001c, f01=0x2008, f02=» B L = KMD020 DATE = 801103 6876PACK NBR = 0020
0x08a944…08aad8 Dummy {f00=0x001c, f01=0x40b2, f02=» . H IDENT NJDDIV TRA 10.0 80-11-06 F1 O1111 KBGOB 6 $$$TRAD F KBGOB X TESTR j z R_ @ = & < X B @ & &
0x08aad8…08ac6c Dummy {f00=0x001c, f01=0x8190, f02=» . H IDENT TEST TRA 10.0 80-11-06 F1 O1111 DCSEND PRTLN TEST 6 $$$TRAS T DCSEND PRTLN TEST , f B > ATTPCKS ATTUNPAhBDE BDEINP- CRBTAB1 CRDOWN CRFTAB CRHOME > : CRNEAR CRNLT CRUPThENQ ERASUP ERWRIT EXPAND FINDL
0x08ac6c…08ae00 Dummy {f00=0x001c, f01=0x818e, f02=» U z 4 , * % * < . AB 034D 05P L 1 h 3 z ; ABCD 4 = J F " D 0X 4 R E! 1L 2 hL21E T E"jL2 E R 4 NL <L RN< < NL RN< C
0x08ae00…08af94 (3, 55) Dummy {f00=0x0007, f01=0x018e, f02=» ` * b . g ! i 0 0 o @ s ERRORLINE IS LINE 23 P u t y ` ` ` { } J F " D @ DL RD @< RD 9L R 9L R R ML RM ML RM
0x08af94…08b128 Dummy {f00=0x0007, f01=0x0190, f02=» $ 4 D T d t
0x08b128…08b2bc Dummy {f00=0x0007, f01=0x0190, f02=» R R R R R R R R R R R R R R R R R 5L 6L 1L R 1L | 4 : J 4 Z j 0002 01 z bABC $ bDEF ' bG '!bHID J F " D R < 0X NK<=
0x08b2bc…08b450 Dummy {f00=0x0007, f01=0x0190, f02=» 7 12345678 ABCD PQRS 8 % : J ( ( Z / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x08b450…08b5e4 Dummy {f00=0x0007, f01=0x4068, f02=» " @ & & . " ( 0 @R R?R4 P < G R@ d / " j 1 z 8 2 : > @ J F " D R R R ILjL I ILjL I IL 1LjL1 I RL R 0 R0K< @01
0x08b5e4…08b778 Dummy {f00=0x0007, f01=0x0190, f02=» : H IDENT CURSOR TRA 10.0 80-11-09 F1 O1111 80.10.29 NJ B > CRBTAB CRDOWN CRFTAB CRHOME CRNEAR CRNL CRUP POSCUR B $$$TRAR @ < CRBTAB S CRDOWNC CRFTABH CRHOMEA CRNEARC CRNLS L CRUPR POSCURA PULLA PUSHC
0x08b778…08b90c Dummy {f00=0x0007, f01=0x0190, f02=»9 0X 9 R 4 R 1: : 2LhL:2! T : j9 L:0X 9 z H 8 M H ` T X J F " D @: W :1 R 4 R 3: 6 j6 9 5 4LhL:4! T' : jD L: D! j5 L: 56 j T
0x08b90c…08baa0 Dummy {f00=0x0007, f01=0x0190, f02=»4LhL:4! T; : jD L: D!.j6 L:*16 56_( 51 61 R | : J Z $ T j J F " D W 95W 96 3 0X 9W :3 R 4 R 1: 2LhL:2! T : jD L: D! j9 L | B O T a T
0x08baa0…08bc34 (3, 56) Dummy {f00=0x0009, f01=0x0190, f02=» Q T J F " D 9 :2 : W :3 R 4 R 19 3: 1L 21 DLj2 D : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x08bc34…08bdc8 Dummy {f00=0x0009, f01=0x4060, f02=» A @34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2 $24 95W 96 R 4 R y } J@ : 4LhL:4! TM : j5 0 T ~ J F " D L: 7: 4LhL:4! T : 7:j6 L3$26 16 "15 65 5L_, 95W 96W R
0x08bdc8…08bf5c Dummy {f00=0x0009, f01=0x4184, f02=» : H IDENT BDE TRA 10.0 80-11-09 F1 O1111 80.10.09 NJ hBDE B $$$TRAE P hBDE b BDEINPE DCSENDA UNPCK r 00020 $ & / 00020 J F " D HLjH B jH C jH A
0x08bf5c…08c0f0 Dummy {f00=0x0009, f01=0x0190, f02=» : H IDENT BDEINP TRA 10.0 80-11-09 F1 O1111 80.11.06 NJ ! BDEINP ! B $$$TRAE ! T BDEINP ! f > : ATTPCKE ATTUNPA CRFTAB0 CRHOMEF ERASUP FINDLN0 KBREAD ! z PULLN PUSH T:DSC1 ! / ! !
0x08c0f0…08c284 Dummy {f00=0x0009, f01=0x416a, f02=» ! @ G " A $ " B $ " * C $ " : D ] " J E $ " Z F $ " j J F " D R R RR 4 2: RL: 4: : I< > W > < RL: R<K=>V 0X 9_ 2= RR " z N " T " X " ^ "
0x08c284…08c418 Dummy {f00=0x0009, f01=0x0190, f02=» : H IDENT ENQ TRA 10.0 80-11-09 F1 O1111 80.11.09 NJ # hENQ # B $$$TRAQ # P hENQ # b @ < DCSENDQ ERWRITA KBREAD0 LEAD9 POSCUR1 PULL. PUSH T:EDWR # r UNPCK UNPPRT # / # # #
0x08c418…08c5ac Dummy {f00=0x0009, f01=0x018e, f02=» " # # $ $ $ % q $ 0 & $ @ ' $ P , $ ` J F " D R 1X F L! <L R< < R<K= Z 2= RRRRRRRRR 4 R jL4 G 4 jL4 N FN $ p E $ H $ J $ Q $ S
0x08c5ac…08c740 Dummy {f00=0x0009, f01=0x0190, f02=» c % e % { % $ ~ ( % 6 % H J F " D @ 4 <L =L R<= < R<K= ZU2= RRRRRRRRR R jL4 G 4 jL4 N 4 <L =L % X % % % % % c %
0x08c740…08c8d4 (3, 57) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x0004 // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x0002 // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x0004.0x3.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc Dummy {f00=0x0004, f01=0x0110, f02=» PSCR PMES TESTPROGRAM GENERATION PMES BARCLAY 2 PPRT TSTGEN L PPRT TESTFI ^ PTRA NJDDIV,NL p PTLK U,M PLKE M PKPF /L,A:TEST PASG 2,NO P$PDISC A=A:TEST PASG 2,LP0F PSCR PASG /E0,
0x08cbfc…08cd90 Dummy {f00=0x0004, f01=0x2008, f02=» PMES TESTPROGRAM GENERATION PMES BARCLAY 2 PPRT TSTGEN L PPRT TESTFI ^ PTRA NJDDIV,NL p PTLK U,M PLKE M PKPF /L,A:TEST PASG 2,NO P$PDISC A=A:TEST PASG 2,LP0F PSCR PASG /E0,
0x08cd90…08cf24 Dummy {f00=0x0004, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l HMES ILLEGAL PARAMETER COMBINATION !!! v * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x08cf24…08d0b8 Dummy {f00=0x0004, f01=0x0190, f02=»
[…0x2…]
0x08d3e0…08d574 (3, 58) Opaque[0x194]
0x08d574…08d708 # DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0298, f03=0x0000}
0x08d574…08d708 IdxSect {
0x08d574…08d708 f00 = 0x0014 // 0x8d574 @0x0
0x08d574…08d708 f01 = 0x0004 // 0x8d576 @0x2
0x08d574…08d708 gno = [ // 0x8d578 @0x4
0x08d574…08d708 [0x00]: C0x0014.0x3.0
0x08d574…08d708 [0x01]: C0x0015.0x0.0
0x08d574…08d708 ]
0x08d574…08d708 }
0x08d708…08d89c Dummy {f00=0x0014, f01=0x0190, f02=» P IDENT ATTRIB 80.10.31 NJ P DDUM NJDDIV & P* : 0 P* THIS MODULE TAKENS HAND ON CONVERTING THE D 2 P* ATTRIBUTE CHARACTER TO AND FROM 5 BOOLEANS. x * P* IN THIS WAY IT IS EASIER TO TEST AND P* MODIFY THE ATTRIBUTE CHAR P*
0x08d89c…08da30 Dummy {f00=0x0014, f01=0x0190, f02=»,PBIN P EJECT PATTUNP PROC BUF,DISP P* 8 * P* THE PROCEDURE UNPACKS THE ATTRIBUTE B P* INTO 5 BOOLEANS: p P* TANODISP - NON-DISPLAY P* TAHILITE - HIGHLIGHT P* TAMODIF - MODIFIED P* TAPROTEC - PROTECTED
0x08da30…08dbc4 Dummy {f00=0x0014, f01=0x0190, f02=»E TBIN1,CBIN0 P MOVE TBIN2,CBIN0 > P XCOPY TBIN1,CBIN1,CBIN1,BUF,DISP MOVE ATTRIBUTE CHARACTER 0 . P MOVE TBIN2,CBIN1 START WITH RIGHTMOST BIT r 4 P PERF TMASK,TANODISP SET BOOLEAN IF BIT WAS SET P PERF TMASK,TAHILITE P PERF TMASK,TAMO
0x08dbc4…08dd58 Dummy {f00=0x0014, f01=0x0190, f02=»ODISP PATT010 P PERF PULL,CBIN2 P RET 4 P PEND @ P EJECT N PTMASK PROC BOO P* r 6 P* THE PROCEDURE TAKES THE LOGICAL PRODUCT OF TBIN1 | 0 P* AND TBIN2. IF THE BIT WAS SET, THE BOOLEAN 4 P* SPECIFIED IN THE PARAMETER,
0x08dd58…08deec Dummy {f00=0x0014, f01=0x0190, f02=» PBOOL BOO P CALL MASK,TBIN1,TBIN2 P BZ TMA010 BIT(S) OFF 0 P SET BOO N P B TMA020 ^ PTMA010 p P CLEAR BOO ~ PTMA020 & P ADD TBIN2,TBIN2 NEXT BIT, PLEASE " P IS EQUIVALENT TO MULT BY 2 P OR ADDING TO ITSELF
0x08deec…08e080 Dummy {f00=0x0014, f01=0x0190, f02=»* AND MOVES IT TO THE SPECIFIED POSITION. P* 2 P PSTRG BUF < P PBIN DISP N P ` P PERF PUSH,CBIN1 h . P MOVE TBIN1,=W'96' BIT 7 AND 6 ALWAYS SET & P TBF TANODISP,ATTP010 NON-DISPLAY? P ADD TBIN1,CBIN1 SET BIT1 PATTP010
0x08e080…08e214 (3, 59) Dummy {f00=0x0015, f01=0x4176, f02=»BIN4 PATTP030 P TBF TAPROTEC,ATTP040 P ADD TBIN1,CBIN8 : PATTP040 R P TBF TARITJUS,ATTP050 b P ADD TBIN1,CBIN16 PATTP050 , P* THE ATTRIBUTE CHARACTER IS CREATED NOW , P* AND SHALL NOW BE MOVED INTO THE BUFFER &
0x08e214…08e3a8 Dummy {f00=0x0015, f01=0x2008, f02=» N8 ATTP040 TBF TARITJUS,ATTP050 " ADD TBIN1,CBIN16 @ ATTP050 Z , )* THE ATTRIBUTE CHARACTER IS CREATED NOW j , (* AND SHALL NOW BE MOVED INTO THE BUFFER & ! XCOPY BUF,DISP,CBIN1,TBIN1,CBIN1 PERF PULL,1
0x08e3a8…08e53c Dummy {f00=0x0015, f01=0x0190, f02=» W @5 W @5 4 1 2 3 * & D%h 23D T1jF 2 I"j 2 I jE . * & F @E @EU 4@d 24I 32 2 24_: * & ) 4 2 1 jD 1 D" D! < * & G 1 2 Y 4 4 2 I! D! * & e D 3 8 @60 1 P 12
0x08e53c…08e6d0 Dummy {f00=0x0015, f01=0x0190, f02=»I31 p * & 31 3 21 2 _{ 3 2 _ dI3 D J1 * & 78 73jJ 7I3 7 0 J7 2 _ fI3 < * & J1 78 73jJ 7I3 7 0 J7 2 3 _ j * & 7 0 90 40 9_ H6 jI31 I * & U 31 3 21 2 I#d 2I 0 9 * & s 2 4
0x08e6d0…08e864 Dummy {f00=0x0015, f01=0x0190, f02=» 0 M E&dM E 0 ~ * & M 4 GK@0@1@2@3 2 5 j2 K * & 5 2 62 W A0W A1W A2W A3 5 J * & ' _% 9 H1 @2H0 G/0 G H1 1 0 x * & E 10 1 1 H2 H3 4 L" * & c jD K5 15 1 j9 K1 9 0 9 1 j * &
0x08e864…08e9f8 Dummy {f00=0x0015, f01=0x0190, f02=» _J 4 6 1 E&jJ 1 D$ 3 * & hJ3 D 2 D#hJ2 D T $12 13 * * & 43@7W 12 42A7 64 41 5 54fJ4 X * & 5 5 4 4 jJ E jJ4 > J E"I7 E * & S $ 6 j 6 ?6-$ jO; 8 ; jO * & q ; 7 ; jO; 6 ; jO; 5 ; jO; 4
0x08e9f8…08eb8c Dummy {f00=0x0015, f01=0x0190, f02=» l * & O; ; j3 O; ; j2 O; ; j1 O; * & ; ; ; 4 3 jD L3 D"4 3 j 8 * & % 9 L1 3 43 3 < L<H; I: 0 f * & C 90 <@: L4 3<_> 4 3 j * & a D L3 D"A 3 j9 L1 3 13 L1 3 * & < L<I9 0 9
0x08eb8c…08ed20 Dummy {f00=0x0015, f01=0x0190, f02=»<0 < L3A8 L3 z * & 4 1 2 j1 2 8 9 * & : ; <H9 @8 4 0 12P A W @ F * & 3 224 1 H8 1 H9 1 H: 1 H t " Q ; 1 H< 1 j 1 4 T:CAT f T:WRIT T:DSC1 T:EDWR
0x08ed20…08eeb4 (3, 60) Opaque[0x194]
0x08eeb4…08f048 # DirEnt {nam=»TESTFI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0200, f03=0x0000}
0x08eeb4…08f048 IdxSect {
0x08eeb4…08f048 f00 = 0x0010 // 0x8eeb4 @0x0
0x08eeb4…08f048 f01 = 0x0002 // 0x8eeb6 @0x2
0x08eeb4…08f048 gno = [ // 0x8eeb8 @0x4
0x08eeb4…08f048 [0x00]: C0x0010.0x0.0
0x08eeb4…08f048 ]
0x08eeb4…08f048 }
0x08f048…08f1dc Dummy {f00=0x0010, f01=0x012e, f02=» PT; P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x08f1dc…08f370 Dummy {f00=0x0010, f01=0x2008, f02=» P01; PTID=TB; PTCL=TB; * PLEV=55; : P01; J PTDC=T02; V PLC=08L; f P00; v PT; P01; PTID=K0; PTCL=K0; PLEV=60; P01; PTDC=T01; PLC=01L; P00; PC;
0x08f370…08f504 Dummy {f00=0x0010, f01=0x0190, f02=» W 95W 96W 3 0 9W :34 3: 4 hL:4! T : j9 L:0 9 : W :34 3: 5 : 4 hL:4! T : 65j5 L: 59 960 9 : W :34 19 3: 13 1 21 D j2 D 3 4 hL:4! 3 j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 94 3 3 7 j3 5 j7 6 37 GW
0x08f504…08f698 Dummy {f00=0x0010, f01=0x0190, f02=»E F @E @ 6@ I d 86I 7 76 7 _;4 6 1 jD 1 D" D! 7 1 61_ 4 1 I 8 @60 1 P 1 _! _) 1 Q(21 _; 2172 C'A6jI82N 82 8 _S_U_W_Y_[H6 2 21 I d 1I 0 9 2 4 G!jG 9 6 jG ' W jG ( 4 * 0 9 J jJ 1 1 0 J14
0x08f698…08f82c Dummy {f00=0x0010, f01=0x0190, f02=» ; 6 ?6-$ j8 O; ; j7 O; ; j6 O; ; j5 O; ; j4 O; ; j3 O; ; j2 O; ; j1 O; ; ; ; 4 ; & ( * , p R @ i T Q++++ / 0
0x08f82c…08f9c0 Dummy {f00=0x0010, f01=0x0190, f02=» V C / <H "!@ : C C W C C J X ' W 781"&$ 39#$;< '()*+,-! > P _D B 'W ( Wb ( 1W" C C C " ( ' P. H P$
0x08f9c0…08fb54 (3, 61) Opaque[0x194]
0x08fb54…08fce8 # DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x08fb54…08fce8 IdxSect {
0x08fb54…08fce8 f00 = 0x0002 // 0x8fb54 @0x0
0x08fb54…08fce8 f01 = 0x000e // 0x8fb56 @0x2
0x08fb54…08fce8 gno = [ // 0x8fb58 @0x4
0x08fb54…08fce8 [0x00]: C0x0002.0x0.0
0x08fb54…08fce8 [0x01]: C0x0005.0x0.0
0x08fb54…08fce8 [0x02]: C0x0007.0x1.0
0x08fb54…08fce8 [0x03]: C0x0009.0x3.0
0x08fb54…08fce8 [0x04]: C0x000e.0x3.0
0x08fb54…08fce8 [0x05]: C0x000f.0x0.0
0x08fb54…08fce8 [0x06]: C0x001d.0x0.0
0x08fb54…08fce8 ]
0x08fb54…08fce8 }
0x08fce8…08fe7c Dummy {f00=0x0002, f01=0x0190, f02=» /D0 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 > c @ z ^ ^ j X H 2 Z i% z
0x08fe7c…090010 Dummy {f00=0x0002, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A 4 " _ @ > > U H ( ( P c P W. A V ( U P @ NV L N > U
0x090010…0901a4 Dummy {f00=0x0002, f01=0x0190, f02=» A 8 A 6Q _ A 6 < Q 0 P 0 Q 0 Z Y _ 8 Q Z P 0 9 t t_ j _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? RW ? W ? T T U U U
0x0901a4…090338 Dummy {f00=0x0002, f01=0x0190, f02=» Q Q > > 0 @ p 1 A p P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ jV ? j > _ > ? _ > > ? ^ ! Y ^ _ > ? 6A. n #M 1
0x090338…0904cc Dummy {f00=0x0002, f01=0x0190, f02=»P P 0 X T Y Wn U U T X^ T E Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > Z X "X 8' T 8Z" X ' X (@ L P P "& (@ > z $P$ D P
0x0904cc…090660 Dummy {f00=0x0002, f01=0x0190, f02=» 9WD B 7P P A W A @ A.W ? A 4I.9 X R C C B ?A @ A. X V 9_: B @ J ( H ( 0 ) t $P $ ) U @ C W : 0P P > T C T" V$ Y ( Pp q
0x090660…0907f4 (3, 62) Dummy {f00=0x0005, f01=0x0190, f02=» C | 8W T 8P Y ^ 5 ) P U XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P W P Y (@ 2 0 _
0x0907f4…090988 Dummy {f00=0x0005, f01=0x0190, f02=» X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0P 1 _ t W Y > > T t P | _ t ? ^ 4 _ P P @ 1 A _ P 9 > >
0x090988…090b1c Dummy {f00=0x0005, f01=0x0190, f02=» B ^ ! Z2 (X: @ P T M ]J , ) A P* P Y U ( ) 5 & > > [ [ Z Z ? Z > P~ "R~ Y Pj T P` <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ t | ? 8!
0x090b1c…090cb0 Dummy {f00=0x0005, f01=0x0190, f02=» (" W C (@ > Y Y Y X 9BV$ X " Y X D V B X ? X V Y ! W@ Y U -P -P R X ( ) Y * X P Y C B P T B % X * $ 4 T % W X (T ! W Y *
0x090cb0…090e44 Dummy {f00=0x0005, f01=0x0190, f02=»T ! P B Z W W ! V* T ! P C ! L 0 Z ! P B Z ZH X * ,T T W X (P Y * 0 %_. % Y * _d _ P _ ?" 8 T ! )_ W ! T "? 9 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c
0x090e44…090fd8 Dummy {f00=0x0005, f01=0x0190, f02=» PB P8 B P B L # +P ! ! T ! Y " ! W ! ! W ! Y Y Z * U P" T Y "_. P4 R( Pj O]> V _F T Y Y " V Y _^ C _P * *" $ P X " X ]r ! Y Y Y _ " _ !
0x090fd8…09116c Dummy {f00=0x0005, f01=0x0190, f02=»P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q J | -_ ? _ X # ! ^ Y _( ? X Z ! P0 P X _ X " * ! ! X " @ p l ` ! P P $ & B P B H
0x09116c…091300 Dummy {f00=0x0005, f01=0x0190, f02=»T _ U D ! T _ $$ X" X& X* C * 8 X`" E jP( 8'0P E jTD ! T 9 _ ! T @_ ! * B P ! B C 8 ^N P R ?] _ C _ * *" $ P X # X ] ! J B ! P ! !
0x091300…091494 (3, 63) Dummy {f00=0x0007, f01=0x0190, f02=» Y > X " X "" Y %Q Y > X Z2<BR > ? Y ! T X ! Y " Zl ~ T _ ! X $ P ! j H R V P P" ! W | X $ X ! j_ X $ X X " ! & ! Y _8 X " X "" Y %U W ! ! !
0x091494…091628 Dummy {f00=0x0007, f01=0x0190, f02=» `R Y ! ! ! 4 ! V ! V W :h ! 4 X %" X ## R 4 > ? X V Y ! W< Y U R -P X ( ) Y * X P Y P C WT X " PP:A: R Q W Y <D X ? ?:
0x091628…0917bc Dummy {f00=0x0007, f01=0x0190, f02=» V ! P B P X " _Z B P$ $$ R % C * ! PW Y 'PH Y &P> Y $P Y %P R _Q P OR R W " ! P B Wr W 0 Z ! P B Z Z& X * ,T T W X (P Y * 0 %_. % Y * W _p P _ C
0x0917bc…091950 Dummy {f00=0x0007, f01=0x0190, f02=» ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > TT , _ "RT PL X TF X R@? V X " X H P B X P t
0x091950…091ae4 Dummy {f00=0x0007, f01=0x0190, f02=» P ?_ = > = > = =_: R _ 00 > & <h$ P > !"#$%& () +,-./ N / # 0123456789 < @,-. 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ > ?;_: =!"#$%&/() ^ABCDEFGHI
0x091ae4…091c78 Dummy {f00=0x0007, f01=0x0190, f02=») @) E D P _ $ % $P _ % A >f A A A @ " Q" :d @ # U R>P0 P ) $H A( $H P2 $ _ * A & W * A & W :a2 * A $ ( & W F W @ F W CRP BAP COP A W F A @ :
0x091c78…091e0c Dummy {f00=0x0007, f01=0x0190, f02=» + R" W W V V 8 !RRT W V X W W V V V PF A @ + U U^ A Q + VD Y2 W V @ " TJ W P + Y )
0x091e0c…091fa0 Dummy {f00=0x0007, f01=0x0190, f02=» A W ) T F W V ) = V W Y( P Z& = :L < P W <9B @ V W Q ) W @) A (, @ V W ! P W @ V P _ @ ! P* ( 9h !RRP
0x091fa0…092134 (3, 64) Dummy {f00=0x0009, f01=0x0190, f02=» :l 9b ) V _ @ V^ " " W A" A"l W W $H $H PH $ " W> $H T $@ $HW $@ " ', W @ W " " "X " "X # # # "X # # # "X # # " "X " "X
0x092134…0922c8 Dummy {f00=0x0009, f01=0x0190, f02=»CC A" " _ 0 !;; # "X_ S A'e A' ', @ R @ ! T A& A' @ V V I ) W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W ) nX T " : $H : ) "
0x0922c8…09245c Dummy {f00=0x0009, f01=0x0190, f02=»P !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : # : # : # : # : # : # : 0 )T : !00T W : ) TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : $@ C. # X C.9h! $@ $@# " $@ $@ :A K :
0x09245c…0925f0 Dummy {f00=0x0009, f01=0x0190, f02=»W % A A% A% A% A% A( A" A'2 A'H : 9e :e Q P 9e @ P A 9C) A I " @ ! P " :B A t q B J " n : 0 R _ <d?d A U <e @ P A <C, D L " @ $ P " :B A t
0x0925f0…092784 Dummy {f00=0x0009, f01=0x0190, f02=» h:B* A @ P A B J 4R 4 :B 4 @ : V V 49B @ 4R @ t w A I ! j : & A( A" A'2 A'H A& ! T ' & W A& A& I ! : 9D @ @ r s @ A I T - A _ I N T V S : ) '2
0x092784…092918 Dummy {f00=0x0009, f01=0x0190, f02=» d C !CCTx xB. # <X B.9 H Q & _ $ _ !SSTF 0 U P A X X W W X X S W W W : V W V T W P ( V T W F P P V W @ $ P p W ) T : A(2 ( _
0x092918…092aac Dummy {f00=0x0009, f01=0x0190, f02=» : [ [ : 56 T W Z A. c @ V W U ) R $ )_ : V r + V ) t + Z W r
0x092aac…092c40 Dummy {f00=0x0009, f01=0x0190, f02=» R, Y R <B V x " 1 W V z : * _@ V : W R ,:P *. *F W x * ,B_ V : t " D P W V Pv $;A^ D E D P. V ) P ) P T ) E _N T ) E _ r + V ) t_~ " V r D
0x092c40…092dd4 (3, 65) Dummy {f00=0x000e, f01=0x0190, f02=» " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : J @ 0 V @ ) 0 H W : ? ? R 0 R P P B _ : 4P0 " D ,p H H $ M v b - I Y& : @
0x092dd4…092f68 Dummy {f00=0x000e, f01=0x0190, f02=»! P I * * _D V r A V 9n A V tT @ A A V @ ! @ P P^ P PR_ _ @ V W U( P P( P V W U " @ Q V P A. V P _T A A
0x092f68…0930fc Dummy {f00=0x000e, f01=0x0190, f02=» @ & @ W Z f A : A A > l : ,"R *. W n V pT : N V l W H V ]" . nT" * W v *F W n V ~P / W x * 0^ , * _v V d , V ) P _ N L % V
0x0930fc…093290 Dummy {f00=0x000e, f01=0x0190, f02=» V V P W t $ ) ^ r V ) W f ) G V ) ) W b G ) ) G ` " W p W ~ pP0 /L R ,:P /X ,B_ W ~ R ,:X4 /X ,B_ ` W ~ pPV /L R , ,R ) " E R 0* W ~ R
0x093290…093424 Dummy {f00=0x000e, f01=0x0190, f02=» z ` pPJ * " R ,R E R T E D E @ H E * + #_T W | j W V b ( W p V ` $ W ` ) 0 ;h 0 :C # : .=H N 2| ,R .=H N 2| ,R N : d 8" R _ ZY QY :
0x093424…0935b8 Dummy {f00=0x000e, f01=0x0190, f02=» ) N :H N TBT W W4 2 " T @ ) X 2 N =H N 2| @ ) 2 !TTXT !CCT 2 !UUT d 3 WT 2 2 .:H N R P V ) _ N S 2 S YB : v ` @ W W W @ W D ,R
0x0935b8…09374c Dummy {f00=0x000e, f01=0x0190, f02=» W V d 4 W P 5 _ W ` W d V V W V V $ ) ^ A B C P 5 W r C 5 W @ @ % B V , P@ , - 4 ] 4 + Y 5 X * _6 : W @ R ]
0x09374c…0938e0 Dummy {f00=0x000e, f01=0x0190, f02=» ,R @ A @ ,R;a P$ W @ A @ T ) A : p ` @ P 6 _ 6 3 S S V V W @ @ T ) : P S S _ : @ @ @ #D# P ; V 7> _ : @ " P @ P 3 _ @ "
0x0938e0…093a74 (3, 66) Dummy {f00=0x000f, f01=0x0190, f02=» ) A W t N =H N W l V CRT N =H N B( W p N =H N 2| W | ( @ % 5 T W @ = V W = V A P0 B r " U ) _2 A P0 B " U ) _2 V
0x093a74…093c08 Dummy {f00=0x000f, f01=0x0190, f02=» W _z 2 !TTT 7 ( : . !TTP ) V A W t * A P B r _ A Pd W p B V 8 8 4 D P$ ) @ # P H I K T + Y@ V p _f V t Y 2 !TT
0x093c08…093d9c Dummy {f00=0x000f, f01=0x0190, f02=» 0 W ` W W& T ) P _ V A V W A W t A PT W f ( B W d B Bd G =h G V d V r < = V f P W f _B ?$ V W V t Yv 2 !TTX @ @ T ) :
0x093d9c…093f30 Dummy {f00=0x000f, f01=0x0190, f02=») $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W A P0 W f B W d B V d V r < = V f _2 ?$ A U^ B V 8 8 8 4 D P$ ) @ # P H I K T + Y@
0x093f30…0940c4 Dummy {f00=0x000f, f01=0x0190, f02=»AAT @ W> ?f V V 0 V P _ W $ q > R P >b W >b & 8P > ? V V W R 9 W D ) ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( > W" D V ` T @ 1 Q a : @
0x0940c4…094258 Dummy {f00=0x000f, f01=0x0190, f02=»P: @ @ @ D (P W H $ I " % E , a : V Q R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : ) Y Z @ T A V W Y0 Z6
0x094258…0943ec Dummy {f00=0x000f, f01=0x0190, f02=» v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ] vW v P _ @ P V ) A (P ) @ @ P V ) A
0x0943ec…094580 Dummy {f00=0x000f, f01=0x0190, f02=» F =H F 2| : P N =H N T A 2 _ : @ ! P (W ( : 00=H 00 P P _ _ : 5 6F 6 7 7 9v :r ; @ @ R @ $ D L * A CRT M " B B C 0Ch PC !C !C 1D C T xKB
0x094580…094714 (3, 67) Dummy {f00=0x001d, f01=0x0190, f02=» ( ` Y z P T KB D C C ( ` Y W P P _ V |P V v ] vW v P _ @ P V ) A (P ) @ @ P V ) A
0x094714…0948a8 Dummy {f00=0x001d, f01=0x4104, f02=» DWTSB2 O DWTADR O , ( H 9BV X Y X O ( ECHADR O X ECHRTN O j TENDIO O ~ * & D V X R O , ( W0 P T !P< %P8 qU W V$ V O O @ O (
0x0948a8…094a3c Dummy {f00=0x001d, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 P ST8000K P R ST8000K P d IHPFAR P x IHLKM P IHRTC P ILLINT P IHTWA P IASCUZ P , ( P
0x094a3c…094bd0 Dummy {f00=0x001d, f01=0x4150, f02=» P ~ , ( ! Q , ( 1 Q N , ( A Q ~ , ( Q Q , ( a Q
0x094bd0…094d64 Dummy {f00=0x001d, f01=0x0190, f02=» J F IDENT DRKB01 REL 10.0 80-03-14 870105041000 R $ KBADY EOQUEU DWTINQ DWTUTQ R R DWTINQ ( R z DWTUTQ * R KBADY R DWTST R * & @ ? X V Y R TDISP R LDR
0x094d64…094ef8 Dummy {f00=0x001d, f01=0x018e, f02=» C R t , ( q B P T B % X * $ S STREG S D , ( 4 T % W X (T ! W Y S T ECHON S , ( * V ! B _P B P $ S , ( $ R % C W Y & S , ( X ! 8$ P
0x094ef8…09508c Dummy {f00=0x001d, f01=0x0190, f02=» S DISEND T , ( K C ! 0 T , ( e Z ! B Z ZH X * T J , ( ,T T W X (P Y * 0 T z , ( %_. % Y * _d _ P T , ( _ ?" 8 T ! )_ W ! T T
0x09508c…095220 Dummy {f00=0x001d, f01=0x0190, f02=»P $ , X R T z LDREG U , ( ? ;GV X ( $4 P X *T U * EOQUEU x U Z , ( ] * W Y ( - B 1 " W U n " { TT , (@ > U H D ! h ( V 'W@ 7U =P AP CR K R Y N cP o L uP yT T
0x095220…095ec0 (4, 0) DirGranule ((4, 0)) {
0x095220…095ec0 DirEnt {nam=»DEMO68«, typ=»00«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x2020, f01=0x2020, f02=0x00b0, f03=0x4441}
0x095220…095ec0 DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x03b0, f03=0x2020}
0x095220…095ec0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x03e0, f03=0x0005}
0x095220…095ec0 DirEnt {nam=»DEMO «, typ=»LM«, f00=0x8487, f01=0x5ae2, f02=0x0440, f03=0xfe00}
0x095220…095ec0 DirEnt {nam=»XOPINP«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04b0, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»XMESG «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04e8, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0xffff, f01=0xffff, f02=0x0510, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0518, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0560, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»QMISC «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0588, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x05c8, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»DFOACT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0618, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0630, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»AADEMO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0650, f03=0xffff}
0x095220…095ec0 DirEnt {nam=»EINIT «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0660, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»NJ1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»BESELF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0770, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0788, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DMWDR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0848, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DELACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0980, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0988, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a20, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»MMU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fa8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»DEMCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1968, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»EMPTY «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06d8, f03=0x0000}
0x095220…095ec0 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x095220…095ec0 }
0x095ec0…096054 (4, 1) Opaque[0x194]
0x096054…0961e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x2020, f01=0x2020, f02=0x00b0, f03=0x4441}
0x096054…0961e8 IdxSect {
0x096054…0961e8 f00 = 0x0005 // 0x96054 @0x0
0x096054…0961e8 f01 = 0x0050 // 0x96056 @0x2
0x096054…0961e8 gno = [ // 0x96058 @0x4
0x096054…0961e8 [0x00]: C0x0005.0x2.0
0x096054…0961e8 [0x01]: C0x0005.0x3.0
0x096054…0961e8 [0x02]: C0x0008.0x1.0
0x096054…0961e8 [0x03]: C0x000a.0x3.0
0x096054…0961e8 [0x04]: C0x000b.0x3.0
0x096054…0961e8 [0x05]: C0x000c.0x0.0
0x096054…0961e8 [0x06]: C0x000d.0x1.0
0x096054…0961e8 [0x07]: C0x000e.0x0.0
0x096054…0961e8 [0x08]: C0x000f.0x1.0
0x096054…0961e8 [0x09]: C0x000f.0x2.0
0x096054…0961e8 [0x0a]: C0x000f.0x3.0
0x096054…0961e8 [0x0b]: C0x0010.0x1.0
0x096054…0961e8 [0x0c]: C0x0010.0x3.0
0x096054…0961e8 [0x0d]: C0x0011.0x0.0
0x096054…0961e8 [0x0e]: C0x0011.0x2.0
0x096054…0961e8 [0x0f]: C0x0012.0x0.0
0x096054…0961e8 [0x10]: C0x0012.0x1.0
0x096054…0961e8 [0x11]: C0x0012.0x2.0
0x096054…0961e8 [0x12]: C0x0013.0x2.0
0x096054…0961e8 [0x13]: C0x0014.0x2.0
0x096054…0961e8 [0x14]: C0x0015.0x1.0
0x096054…0961e8 [0x15]: C0x0015.0x2.0
0x096054…0961e8 [0x16]: C0x0015.0x3.0
0x096054…0961e8 [0x17]: C0x0016.0x0.0
0x096054…0961e8 [0x18]: C0x0016.0x1.0
0x096054…0961e8 [0x19]: C0x0016.0x2.0
0x096054…0961e8 [0x1a]: C0x0016.0x3.0
0x096054…0961e8 [0x1b]: C0x0017.0x0.0
0x096054…0961e8 [0x1c]: C0x0017.0x1.0
0x096054…0961e8 [0x1d]: C0x0017.0x2.0
0x096054…0961e8 [0x1e]: C0x0017.0x3.0
0x096054…0961e8 [0x1f]: C0x0018.0x0.0
0x096054…0961e8 [0x20]: C0x0018.0x1.0
0x096054…0961e8 [0x21]: C0x0018.0x2.0
0x096054…0961e8 [0x22]: C0x0018.0x3.0
0x096054…0961e8 [0x23]: C0x0019.0x0.0
0x096054…0961e8 [0x24]: C0x0019.0x1.0
0x096054…0961e8 [0x25]: C0x0019.0x2.0
0x096054…0961e8 [0x26]: C0x001d.0x1.0
0x096054…0961e8 [0x27]: C0x005a.0x1.0
0x096054…0961e8 ]
0x096054…0961e8 }
0x0961e8…09637c Dummy {f00=0x0005, f01=0x0190, f02=» : H IDENT AADEMO TRA 10.0 80-05-13 F1 O1111 MAIN MODULE AAMAIN B $$$TRAD T AAMAIN f > : BASPCTD BCSTTOA BESELF0 CGCSYSF QCGUWB QDFUWBO T:EDWR z T:EXIT XAKBIN ZGREA
0x09637c…096510 Dummy {f00=0x0005, f01=0x0190, f02=» 0 70 @ & J F " D 1X F RLI5 J1 W @2 R1X F RLW "L !"L<I5 A " A R 0 &)6L I5 H1 6 D G0 F J O0 F U X0 F ] a
0x096510…0966a4 Dummy {f00=0x0005, f01=0x40bc, f02=» x & :2 ( $ 1 4 $ 2 F & *2 V ( f 0 , * @RW R)6L RW "LBJ1E R!"L _M R_Q1X F0X r f @ 0 F U X0 F ] a
0x0966a4…096838 Dummy {f00=0x0005, f01=0x0190, f02=» F H IDENT BASPCT TRA 10.0 80-11-26 F1 O1111 TERMINAL SPECIFICATION BASPCT SPAP15 SPAP31 N $$$TRAS p $ BASPCT SPAP15S SPAP31 D @ CASTTSS CBSTTSA T:DISP0 T:ERASF XBFMT ZAOPNDI ZBCLSDC ZKOPNFO ZLCLSF
0x096838…0969cc Dummy {f00=0x0005, f01=0x0190, f02=» 0 # ( & - 6 60 F 8 X 9 h J F " D H5 "L LL 7L 8L :L ;LW2 7L LL!"L RI2d RI2G RI2B 1% eL RLI26 Le z E0 I0 L0 Z
0x0969cc…096b60 Dummy {f00=0x0005, f01=0x0190, f02=» }0 J F " D @ 7e!7L 7L L 2 32 3 I5' RLI2 6L);L A6!"L" RI2 W )"L R R "LW h D x 0 D 0 D 0 D 0 D 0 D 0 D 0
0x096b60…096cf4 (4, 2) Dummy {f00=0x0005, f01=0x40c2, f02=»2 6LW 6L4 !eL !eL !eL !eL !eL !eL L CL4 IK#8L 5L%7L D D T d v L0X DD0X DDW L CL4 @ 0 D 0 D 0 D 0
0x096cf4…096e88 Dummy {f00=0x0005, f01=0x0190, f02=» L H IDENT BCSTTO TRA 10.0 80-05-13 F1 O1111 START OPERATOR . * BCSTTO CCSTTT SPAP07 SPAP08 SPAP09 T $$$TRAS 8 4 BCSTTO CCSTTTS SPAP07A SPAP080 SPAP09 > : PAJRN T:DISPT T:GETT XAKBIN3 XBFMT XCLAMPA XEERR
0x096e88…09701c Dummy {f00=0x0005, 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
0x09701c…0971b0 Dummy {f00=0x0005, 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
0x0971b0…097344 Dummy {f00=0x0005, 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
0x097344…0974d8 Dummy {f00=0x0005, 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
0x0974d8…09766c Dummy {f00=0x0005, f01=0x0190, f02=» > H IDENT BESELF TRA 10.0 80-05-13 F1 O1111 SELECT FUNCTION BESELF F $$$TRAS X BESELF j D @ CDCHKYS CEGACTA CFCHKH0 DAUCCYF DCVDU DDTP71C DELACTI DFOACT ~ @ < DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF B
0x09766c…097800 Dummy {f00=0x0005, f01=0x0190, f02=» 0 . . @ P ' b + t / 2 2 3 9 J F " D R R@V@2@Q SL@R@S@T@U _L RL RL RA R % RL %RL.!@L RL _
0x097800…097994 (4, 3) Dummy {f00=0x0008, f01=0x0190, f02=» J F " D @ _+ SA_0AQ_4AR_8AS_<AT_@b_ @K #@L AU RI2 RI2 !RL.!RL*!RL&!SL ( R 0 b 4 t & "
0x097994…097b28 Dummy {f00=0x0008, f01=0x0190, f02=» 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x097b28…097cbc Dummy {f00=0x0008, f01=0x4028, f02=» ) L ?R4 v @ $ 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x097cbc…097e50 Dummy {f00=0x0008, f01=0x0190, f02=» < H IDENT CASTTS TRA 10.0 80-11-26 F1 O1111 SYSTEM START CASTTS CBSTTS SPAP32 D $$$TRAS f $ CASTTS CBSTTSS $ SPAP32 x @ < DAUCCYS DBUOPRA EHISYS0 FMOVE QIRDBS1 T:SETTE XBFMT XEERR 2 . ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRI
0x097e50…097fe4 Dummy {f00=0x0008, f01=0x018e, f02=» !0 2 ( D & T ( $ &" FORMAT FILE VOLUME NAME ? DSC b & M & ( E & & SYSTEM LANGUAGE ?E & ! @
0x097fe4…098178 Dummy {f00=0x0008, 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 ]
0x098178…09830c Dummy {f00=0x0008, f01=0x0190, f02=» RLI20 R I2) L Z b Z 0X RI2 RI n 0 , > N ^ p 0 0 0 0 y 0 0
0x09830c…0984a0 Dummy {f00=0x0008, f01=0x4098, f02=» 0 0 0 2 $ 6 H $ IL #IL JL%JL %JL L CL4 Z @ 0 0 0 0 y 0 0
0x0984a0…098634 (4, 4) Dummy {f00=0x000a, f01=0x0190, f02=» L H IDENT CDCHKY TRA 10.0 80-05-13 F1 O1111 CHECK FUNCTIONKEY-COMBINATION CDCHKY T $$$TRAC f CDCHKY x XEERR 0 C 0 +0 60 J F
0x098634…0987c8 Dummy {f00=0x000a, f01=0x40fe, f02=» p0 {0 J F " D @_IT HUY) R L IRPW ) R L HR ITBHU?) R L IS6W ) R L IT+W ) R L HT 0 n 0 0 , * IR IQ HU ) R L HT HQ ) R L HU W RL 4 @ J F
0x0987c8…09895c Dummy {f00=0x000a, f01=0x0190, f02=» : H IDENT CEGACT TRA 10.0 80-05-13 F1 O1111 GET ACCOUNT CEGACT B $$$TRAG T CEGACT f > : DKDSTMG PBBOOKA QENTRS0 QGATYPF XBFMT XEERR XGBCR ZCRDD z ZGREA n
0x09895c…098af0 Dummy {f00=0x000a, f01=0x0190, f02=» 8 <0 @0 ( J F " D )RL IT ?RHT RLH2 ?RH6 F RI6 (A RL _ HQ ?R RLH2 ?R)RL )aL !: : D0 G T I n L0 T P0 T T0 T X0 T
0x098af0…098c84 Dummy {f00=0x000a, f01=0x0190, f02=» W a T " 0 & 2 D 0 V h 0 z 0 J F " D R I2 H a a Ra% L$H1 !RL ! L !RL !:L I IR RW RI2 W ! L
0x098c84…098e18 Dummy {f00=0x000a, f01=0x0190, f02=»0 0 B J F " D !RL !RL H1 !RL !RL Wy)RL ) L_)RL #:L?)RL HQ H G!RL !RL !RL W% I T 0 %
0x098e18…098fac Dummy {f00=0x000a, f01=0x4168, f02=» > % J F " D RI( I !:L%I IR RW RI2T R I2LWJ RL W= RL W7 RL W1 RL W+ RL C D l I ~ J O P b d e k
0x098fac…099140 Dummy {f00=0x000a, f01=0x0190, f02=» H H IDENT CFCHKH TRA 10.0 80-05-13 F1 O1111 CHECK AVAILABLE HARDWARE CFCHKH P $$$TRAC b CFCHKH t XEERR 6371 6344 6346 0 3 0
0x099140…0992d4 (4, 5) Dummy {f00=0x000b, f01=0x0190, f02=»L !_L !_L !_L Wo):LwW %7Lq)RL %7Li)RL !8LaHT !;LZ(R !;LR)RL H D0 F H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x0992d4…099468 Dummy {f00=0x000b, f01=0x4056, f02=» ! RL W RL W RL 4 : @@ R H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x099468…0995fc Dummy {f00=0x000b, f01=0x0190, f02=» < H IDENT CGCSYS TRA 10.0 80-05-13 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
0x0995fc…099790 Dummy {f00=0x000b, 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
0x099790…099924 Dummy {f00=0x000b, f01=0x0190, f02=» b0 d g * i < q L v H x n ~ ~ J F " D @ R IL JL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL 0
0x099924…099ab8 Dummy {f00=0x000b, f01=0x0190, f02=» a b c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x099ab8…099c4c Dummy {f00=0x000b, f01=0x400c, f02=» @ c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x099c4c…099de0 Dummy {f00=0x000b, f01=0x018e, f02=» > H IDENT DAUCCY TRA 10.0 80-05-13 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
0x099de0…099f74 (4, 6) Dummy {f00=0x000c, 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
0x099f74…09a108 Dummy {f00=0x000c, 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
0x09a108…09a29c Dummy {f00=0x000c, 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
0x09a29c…09a430 Dummy {f00=0x000c, f01=0x0190, f02=»L4 L 0 0 0 . @ R 0 d v % *0 . 1 60 90
0x09a430…09a5c4 Dummy {f00=0x000c, 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
0x09a5c4…09a758 Dummy {f00=0x000c, f01=0x0190, f02=» > H IDENT DBUOPR TRA 10.0 80-05-13 F1 O1111 UPDATE OPERATOR DBUOPR SPAP06 F $$$TRAU ` DBUOPR SPAP06 r @ < EAIOPRU EBZACCA MASK QEMOVE3 T:XREA1 T:XSTAT XBFMT XEERR * & ZCRDD ZDRWRDA ZGREA ZHWRID ZYRLNG
0x09a758…09a8ec Dummy {f00=0x000c, f01=0x0190, f02=» + 0 P 2 8 . 9 > > P J F " D )"L` L A R I2 L R R DL0X D P 0X DL0R DT- RL WV0R ` J0 N0 R0 T [
0x09a8ec…09aa80 Dummy {f00=0x000c, f01=0x0190, f02=» J F " D @ e e eL/#eL L R I29 R I21_G eL RLI2&!eL" eL RLI2 !eL R & t 0 e 0 e 0 e 0 e 0 e 0
0x09aa80…09ac14 (4, 7) Dummy {f00=0x000d, f01=0x408a, f02=» J * < " W RW CL LW LW A 4 N t@ 0 e 0 e 0 e 0 e 0 e 0
0x09ac14…09ada8 Dummy {f00=0x000d, f01=0x40e4, f02=» L H IDENT DCVDU TRA 10.0 80-05-13 F1 O1111 DEMONSTRATE VIDEO DCVDU T $$$TRAV d DCVDU v XBFMT RL4 @ ************************************
0x09ada8…09af3c Dummy {f00=0x000d, f01=0x0190, f02=» H H IDENT DDTP71 TRA 10.0 80-05-13 F1 O1111 DEMONSTRATE 6371-PRINTER DDTP71 P $$$TRAT b DDTP71 t D @ FMOVE PVATTPT PWDETP T:DSC03 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF
0x09af3c…09b0d0 Dummy {f00=0x000d, 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
0x09b0d0…09b264 Dummy {f00=0x000d, f01=0x0190, f02=» J K0 L0 , N > O N P0 ` Q0 r S T U0 V0 X 4 Y0 & B ^
0x09b264…09b3f8 Dummy {f00=0x000d, 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
0x09b3f8…09b58c Dummy {f00=0x000d, f01=0x0190, f02=» " S,SF " 0 @ DK,N R " f v P " US " YU
0x09b58c…09b720 Dummy {f00=0x000d, 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
0x09b720…09b8b4 (4, 8) Dummy {f00=0x000e, 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 *
0x09b8b4…09ba48 Dummy {f00=0x000e, f01=0x018c, f02=» z & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x09ba48…09bbdc Dummy {f00=0x000e, f01=0x4008, f02=»@ & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x09bbdc…09bd70 Dummy {f00=0x000e, f01=0x0190, f02=» L H IDENT DELACT TRA 10.0 80-05-13 F1 O1111 LIST ACCOUNTS DELACT T $$$TRAL f DELACT x D @ PAJRN QAFNKYT QEMOVE QGATYP3 T:EDWR1 T:IREA T:TESTS T:WAIT $ XAKBIN XHERAS ZMRDF ZYRLNG
0x09bd70…09bf04 Dummy {f00=0x000e, 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
0x09bf04…09c098 Dummy {f00=0x000e, f01=0x0190, f02=» $ 0 A 4 F V 0 A f x & 999999 " a & 9999 " & &
0x09c098…09c22c Dummy {f00=0x000e, f01=0x407a, f02=» 9 " ( " 2 . , 0X D T R 0R # L 1X F_z +L +W A2@m4 . d@ v x & 999999 " a & 9999 " & &
0x09c22c…09c3c0 Dummy {f00=0x000e, f01=0x0190, f02=» < H IDENT DFOACT TRA 10.0 80-05-13 F1 O1111 OPEN ACCOUNT DFOACT SPAP13 D $$$TRAO ^ DFOACT SPAP13 R p , ( PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 0 X 0 0 0
0x09c3c0…09c554 (4, 9) Dummy {f00=0x000f, f01=0x4186, f02=» 4 >0 9 J F " D IQ (L#(L@ a(W )L#)L4 a)Aa RL L RL RLI2$HQ LHT R a +L & F t K L0 ) T0 L X0 L ` n q v
0x09c554…09c6e8 Dummy {f00=0x000f, f01=0x018e, f02=» < H IDENT DGCACT TRA 10.0 80-05-13 F1 O1111 CLOSE ACCOUNT DGCACT D $$$TRAC V DGCACT h 0 , DKDSTMC PAJRN PBBOOK XBFMT ZCRDD ZDRWRDC | 0
0x09c6e8…09c87c Dummy {f00=0x000f, f01=0x40b2, f02=» 9 J F " D Ab RL L RL RLI28 +L + @b LH ( L R I2 ! L #:L R I2 D b H r @I RW R4 P H K @ 0
0x09c87c…09ca10 Dummy {f00=0x000f, f01=0x0190, f02=» L H IDENT DHBACT TRA 10.0 80-05-13 F1 O1111 BLOCK / DEBLOCK ACCOUNT DHBACT T $$$TRAB f DHBACT x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x09ca10…09cba4 Dummy {f00=0x000f, 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@ |T x PAJRN XBFMT ZDRWRD. 0 X 0 0
0x09cba4…09cd38 Dummy {f00=0x000f, f01=0x0190, f02=» L H IDENT DIQACT TRA 10.0 80-05-13 F1 O1111 INQUIRE ACCOUNT DIQACT T $$$TRAQ f DIQACT x . * PAJRN QFLTRST XBFMT XEERR ZCRDD ZDRWRD 0 p
0x09cd38…09cecc Dummy {f00=0x000f, f01=0x4136, f02=» 1 40 6 7 / 0 =0 / B @ T J F " D Ag RL L RL eL RLI2D!eL3 L R I2,H RL eL RLI2 !eL d E F & M0 & U & " @R _& RL I2
0x09cecc…09d060 Dummy {f00=0x000f, f01=0x0190, f02=» > H IDENT DJUACT TRA 10.0 80-05-13 F1 O1111 UPDATE ACCOUNT DJUACT SPAP30 F $$$TRAU ` DJUACT SPAP30 r * & PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 0
0x09d060…09d1f4 (4, 10) Dummy {f00=0x000f, 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 "
0x09d1f4…09d388 Dummy {f00=0x000f, f01=0x4060, f02=» < 8 6 W @e4 I RI( I 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 "
0x09d388…09d51c Dummy {f00=0x000f, f01=0x018e, f02=» @ H IDENT DKDSTM TRA 10.0 80-05-13 F1 O1111 DAILY STATEMENTS DKDSTM EQPDS H $$$TRAD ` DKDSTM EQPDS r D @ PAJRN PVATTPT PWDETP PXSKIP3 PZPOSD1 QENTRSY QGATYPE T:DSC0 @ < T:DSC1 T:DSC2S T:EDWR XCLAMP XEERR ZCRDD ZDR
0x09d51c…09d6b0 Dummy {f00=0x000f, f01=0x0190, f02=» " 1010313801100030000000 ! < ( L . f 0 n 5 ~ 6 ? <0 ? ? J F " D Ah L RL ba R !bL' R ):L DL VL0X VD0X DL0X D RL W !&L R
0x09d6b0…09d844 Dummy {f00=0x000f, f01=0x018e, f02=» r0 y , < J F " D @ W R RL R I2 #bL# aL aL"a) a R I2 J L RaIS R N 0 0
0x09d844…09d9d8 Dummy {f00=0x000f, f01=0x0190, f02=» J F " D LW @S RLAS k #bL )&L 1X FW R 1X FW TL RT1X F TLA U RU V f 0 @ v 0 @ 0 @ 0 @ 0 @ 0 @
0x09d9d8…09db6c Dummy {f00=0x000f, f01=0x0190, f02=» $ & 01 4 & D 999999 R " a1 h & x & k & & ( (0 ,0 00 40
0x09db6c…09dd00 Dummy {f00=0x000f, f01=0x4178, f02=» V0 Z0 i0 . n0 @ t = R v d {0 = t 0 = J F " D @A W A W A - L A ! L ! L ! L I W H c dLW cL d CL RC #bL )&L
0x09dd00…09de94 (4, 11) Dummy {f00=0x000f, f01=0x0190, f02=» 6 H IDENT DLDEP TRA 10.0 80-05-13 F1 O1111 DEPOSIT $ DLDEP SPAP10 SPAP11 SPAP12 > $$$TRAD f , ( DLDEP SPAP10S v SPAP11A SPAP12 x > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS
0x09de94…09e028 Dummy {f00=0x000f, f01=0x0190, f02=» $ & 00 90 2 J F " D IR H5 ARW LW L RL L RLI2V l# RL R +L +HS L D D K ]0 H f n r s
0x09e028…09e1bc Dummy {f00=0x000f, f01=0x40c8, f02=» 0 0 0 B T d : 6 4 CL L4 e CL L4 HS L %7L 0X 0X 4 t @ f n r s
0x09e1bc…09e350 Dummy {f00=0x000f, f01=0x0190, f02=» : H IDENT DMWDR TRA 10.0 80-05-13 F1 O1111 WITHDRAWAL DMWDR SPAP14 B $$$TRAW Z DMWDR SPAP14 l > : PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST XBFMT ZCRDD ZDRWRD ZHWRID 0 0
0x09e350…09e4e4 Dummy {f00=0x000f, f01=0x0190, f02=» ' ) 30 " <0 4 J F " D AnIQ LW L RL LH5 RLW RLI2a l# RL R +L +HS LH F J Q k0 Q q y J F
0x09e4e4…09e678 Dummy {f00=0x000f, f01=0x40f0, f02=» 0 , 0 < J F " D RL@n4 IS L In %7L 0X 0X W %7L 0X 0X I H I I - N # IL CL L4 @ J F
0x09e678…09e80c Dummy {f00=0x000f, f01=0x018e, f02=» L H IDENT DNTRF TRA 10.0 80-05-13 F1 O1111 TRANSFER DNTRF SPAP19 SPAP20 T $$$TRAT t " DNTRF SPAP19S SPAP20 M B > DKDSTMT PAJRN PBBOOK PCVCH QENTRS1 QGATYPA T:DISP T:ERAS ( $ XBFMT ZCRDD ZDRWRDS
0x09e80c…09e9a0 Dummy {f00=0x000f, 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
0x09e9a0…09eb34 (4, 12) Dummy {f00=0x0010, f01=0x0190, f02=»R I2) R T 0 + " 4 D T d v 0 0 J F " D I2" R I2 #:L I R I2 RW RL4 R `A%aL
0x09eb34…09ecc8 Dummy {f00=0x0010, f01=0x0190, f02=» 0 , < J F " D a R I2yH p! Ll! Lh! L L CLWb Ra I RI( I !:LCI RW RI2E L 0 0
0x09ecc8…09ee5c Dummy {f00=0x0010, f01=0x0190, f02=» L0X 0X I 0X W 0X LW CL LW v D 4 O0 F S0 Z Y n e h $ r ~0 $ J F " D @CL L A` Ka4 %bL #bL W L CLWN(ab L CLW
0x09ee5c…09eff0 Dummy {f00=0x0010, f01=0x409c, f02=» 8 $ 6 : 5 3 ! L#! L L CLW I RI( I L CLW LW CL L4 H @ h $ r ~0 $ J F " D @CL L A` Ka4 %bL #bL W L CLWN(ab L CLW
0x09eff0…09f184 Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AF00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AF00 H T:AF00A Z > : T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x09f184…09f318 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x09f318…09f4ac Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ F0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x09f4ac…09f640 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DF00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DF00 H T:DF00D Z AAMAIN n * & F0 0 * * @ > E X @
0x09f640…09f7d4 (4, 13) Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AG00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AG00 H T:AG00A Z > : T:DG00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0C Z:TRM0R n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x09f7d4…09f968 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x09f968…09fafc Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ G0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @ 1
0x09fafc…09fc90 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DG00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DG00 H T:DG00D Z AAMAIN n * & G0 0 * * @ > E X @ 1
0x09fc90…09fe24 Dummy {f00=0x0010, f01=0x0190, f02=» @ H IDENT T:AH00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:AH00 H T:AH00A Z > : T:DH00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0C Z:TRM0R n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x09fe24…09ffb8 Dummy {f00=0x0010, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x09ffb8…0a014c Dummy {f00=0x0010, f01=0x4104, f02=» x , ( @ H0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x0a014c…0a02e0 Dummy {f00=0x0010, f01=0x40e2, f02=» @ H IDENT T:DH00 TRA 10.0 80-05-02 F1 O1112 CURRENCY INQUIRY T:DH00 H T:DH00D Z AAMAIN n * & H0 0 * * @ > E X @
0x0a02e0…0a0474 (4, 14) Dummy {f00=0x0011, f01=0x40ac, f02=» @ H IDENT T:ATAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:ATAB H T:ATABA Z T:AA00 n @ :A @ * @ > E X @
0x0a0474…0a0608 Dummy {f00=0x0011, f01=0x415a, f02=» @ H IDENT U:BTAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:BTAB H U:BTABB Z > : U:UBF0 U:UIF0 U:UCY0 U:UOP0 U:UA10 U:UA20C U:UT10R n U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP
0x0a0608…0a079c Dummy {f00=0x0011, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY S:BTAB H S:BTABB Z n :B @ 0 U:UA20C U:UT10R n U:UT20B U:UQQ0A * & DD 8 UBF UIF UCY , ( ""UOP
0x0a079c…0a0930 Dummy {f00=0x0011, f01=0xc140, f02=» @ H IDENT C:CW10 TRA 10.0 80-04-10 F1 O1112 CURRENCY INQUIRY C:CW10 H C:CW10C Z * & DSC001DSC002 n * & * & = [
0x0a0930…0a0ac4 Dummy {f00=0x0011, f01=0x40b2, f02=» @ H IDENT D:CW10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:CW10 H D:CW10C Z * & 0 f B n n @ & y & * & * &
0x0a0ac4…0a0c58 Dummy {f00=0x0011, f01=0x4106, f02=» @ H IDENT C:CSY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY C:CSY0 H C:CSY0C Z & n * & = N = N @ &
0x0a0c58…0a0dec Dummy {f00=0x0011, f01=0x40d6, f02=» @ H IDENT D:CSY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:CSY0 H D:CSY0C Z * & 20 0 0 0 0 n 0 50 ;0 A0 D 2 @
0x0a0dec…0a0f80 Dummy {f00=0x0011, f01=0x40de, f02=» @ H IDENT Z:TRM0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY Z:TRM0 H Z:TRM0T Z & n * 2 2 @
0x0a0f80…0a1114 (4, 15) Dummy {f00=0x0011, f01=0x40de, f02=» @ H IDENT D:TRM0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:TRM0 H D:TRM0T Z * & : 0 0 0 0 0 " n ( $ 0 #0 %0 &0 '0 (0 )0 * : @
0x0a1114…0a12a8 Dummy {f00=0x0011, f01=0x40f2, f02=» @ H IDENT Z:TSP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY Z:TSP0 H Z:TSP0T Z * & n & = D = D @
0x0a12a8…0a143c Dummy {f00=0x0011, f01=0x40da, f02=» @ H IDENT D:TSP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:TSP0 H D:TSP0T Z * & 6 n $ 0 0 0 > 6 @ = D @
0x0a143c…0a15d0 Dummy {f00=0x0011, f01=0x018e, f02=» @ H IDENT U:UBF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:UBF0 H U:UBF0U Z & n & & = & [ & y & & & &
0x0a15d0…0a1764 Dummy {f00=0x0011, f01=0x0190, f02=» & & & ; $ & Y 4 & w D & T & d & t & & & + & I & g & & & &
0x0a1764…0a18f8 Dummy {f00=0x0011, f01=0x40e4, f02=» & & & ) $ & G 4 & e D & T & d & t & & * @ & &
0x0a18f8…0a1a8c Dummy {f00=0x0011, f01=0x40f6, f02=» @ H IDENT D:UBF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:UBF0 H D:UBF0U Z * & B 0 0 n * & & , 4 < H a = B @
0x0a1a8c…0a1c20 Dummy {f00=0x0011, f01=0x411c, f02=» @ H IDENT U:UIF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY U:UIF0 H U:UIF0U Z * & n ( & & = [ * d
0x0a1c20…0a1db4 (4, 16) Dummy {f00=0x0012, f01=0x40de, f02=» @ H IDENT D:UIF0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY D:UIF0 H D:UIF0U Z * & : 0 0 0 0 0 0 $ n ( $ 0 *0 0 6 7 = V Z : @ * d
0x0a1db4…0a1f48 Dummy {f00=0x0012, f01=0x40f6, f02=» @ H IDENT U:UCY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ! U:UCY0 ! H U:UCY0U ! Z & ! n * & ! = ! > ! = > ! @ ! d
0x0a1f48…0a20dc Dummy {f00=0x0012, f01=0x40ce, f02=» @ H IDENT D:UCY0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY " D:UCY0 " H D:UCY0U " Z * & *0 0 0 !0 %0 ) " n 0 -0 10 7 " * " @ " > ! = > ! @ ! d
0x0a20dc…0a2270 Dummy {f00=0x0012, f01=0x415c, f02=» @ H IDENT U:UOP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY # U:UOP0 # H U:UOP0U # Z & # n * & # * & = # * & [
0x0a2270…0a2404 Dummy {f00=0x0012, f01=0x40ca, f02=» @ H IDENT D:UOP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY $ D:UOP0 $ H D:UOP0U $ Z * & &0 0 0 !0 "0 $ $ n % $ & $ @ $ # * & [
0x0a2404…0a2598 Dummy {f00=0x0012, f01=0x413a, f02=» @ H IDENT U:UA10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY % U:UA10 % H U:UA10U % Z & % n & % * & = % * & [ % y *
0x0a2598…0a272c Dummy {f00=0x0012, f01=0x40f6, f02=» @ H IDENT D:UA10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY & D:UA10 & H D:UA10U & Z * & B0 0 1 E0 K & n * & 0 L0 R0 X0 ^0 d0 f0 l0 & = r x & B & @ &
0x0a272c…0a28c0 Dummy {f00=0x0012, f01=0x4136, f02=» @ H IDENT U:UA20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ' U:UA20 ' H U:UA20U ' Z & ' n & ' * & = ' * & [ ' y '
0x0a28c0…0a2a54 (4, 17) Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:UA20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ( D:UA20 ( H D:UA20U ( Z * & >0 0 1 E0 K ( n * & 0 L0 R0 X0 ^0 d0 f0 l0 ( = r ( > ( @ ( y '
0x0a2a54…0a2be8 Dummy {f00=0x0012, f01=0x4118, f02=» @ H IDENT U:UT10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY ) U:UT10 ) H U:UT10U ) Z * & ) n * & ) = * ) P ) =
0x0a2be8…0a2d7c Dummy {f00=0x0012, f01=0x40d6, f02=» @ H IDENT D:UT10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY * D:UT10 * H D:UT10U * Z * & 20 0 0 0 0 0 0 * n 0 !0 '0 -0 3 7 * 2 * @ * * ) P ) =
0x0a2d7c…0a2f10 Dummy {f00=0x0012, f01=0x4118, f02=» @ H IDENT U:UT20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY + U:UT20 + H U:UT20U + Z * & + n * & + = * + P + =
0x0a2f10…0a30a4 Dummy {f00=0x0012, f01=0x40d6, f02=» @ H IDENT D:UT20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY , D:UT20 , H D:UT20U , Z * & 20 0 0 0 0 0 0 , n 0 !0 '0 -0 3 7 , 2 , @ , * + P + =
0x0a30a4…0a3238 Dummy {f00=0x0012, f01=0x40da, f02=» @ H IDENT C:CK10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY - C:CK10 - H C:CK10C - Z * & d - n - ( - ( - @ - * + P + =
0x0a3238…0a33cc Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:CK10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY . D:CK10 . H D:CK10C . Z * & > . n * & 0 0 0 0 0 . = . > . @ .
0x0a33cc…0a3560 Dummy {f00=0x0012, f01=0x4110, f02=» @ H IDENT C:CK20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY / C:CK20 / H C:CK20C / Z * & / n * & f f f f f f f f f f f f U D D / = D U U f D f / H / = H /
0x0a3560…0a36f4 (4, 18) Dummy {f00=0x0012, f01=0x40f2, f02=» @ H IDENT D:CK20 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 0 D:CK20 0 H D:CK20C 0 Z * & > 0 n * & 0 = 0 > 0 @ 0 / = H /
0x0a36f4…0a3888 Dummy {f00=0x0012, f01=0x40c4, f02=» @ H IDENT U:UQQ0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 1 U:UQQ0 1 H U:UQQ0U 1 Z ( $ 1 n 1 1 @ 1 = 0 > 0 @ 0 / = H /
0x0a3888…0a3a1c Dummy {f00=0x0012, f01=0x40ae, f02=» @ H IDENT D:UQQ0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 2 D:UQQ0 2 H D:UQQ0U 2 Z & " 0 0 0 2 n :U 2 @ 2 1 @ 1 = 0 > 0 @ 0 / = H /
0x0a3a1c…0a3bb0 Dummy {f00=0x0012, f01=0x416a, f02=» @ H IDENT DOQCCY TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY 3 DOQCCY 3 H $$$TRAQ 3 Z DOQCCY 3 l EPPCCYQ PAJRN XBFMT 3 3 3 3 H 3 3 9 3
0x0a3bb0…0a3d44 Dummy {f00=0x0012, f01=0x0190, f02=» L H IDENT DPECCY TRA 10.0 80-05-13 F1 O1111 EXCHANGE CURRENCY 4 DPECCY SPAP26 4 T $$$TRAE 4 n DPECCY SPAP26 4 ( $ PAJRN PCVCH T:DISP. T:ERAS- XBFMT 4 4 4 4 4
0x0a3d44…0a3ed8 Dummy {f00=0x0012, f01=0x0190, f02=» 4 8 : 5 >0 : 5 J F " D Ak RLIU RLI2 !RL L ev fwW A L et fu hL jL kL dLA RLI2_ hL 5 , B0 R 5 z M 5 N 5 V 5 W 5 J F " D @ +L + lj c RL lk d RLI Ic cd dIHU-I c
0x0a3ed8…0a406c Dummy {f00=0x0012, f01=0x4106, f02=»*A / A js k# dc de dy dL 5 d 0 6 " 0 6 4 0 6 F 0 6 X 6 j J F " D !fL:*dx6 gf dc df dy dLW%A j# ks dc dy dL!fL *cx gf dfW de0X 6 z 6 0X 4 6 6 @ 6
0x0a406c…0a4200 Dummy {f00=0x0012, f01=0x0190, f02=» L H IDENT DQCOPR TRA 10.0 80-05-13 F1 O1111 CLOSE OPERATOR 7 DQCOPR 7 T $$$TRAC 7 f DQCOPR 7 x PAJRN XBFMT ZHWRID. 7 0 7 0 7 0 7 7 7
0x0a4200…0a4394 (4, 19) Dummy {f00=0x0013, f01=0x0190, f02=»@VAi L IL JL RLH5 RLW RLI2q I I I J J H5 RLW 7 N 8 H O 8 X Z 8 j [ 8 z f 8 g 8 r 8 s 8 v0 8 x 8 0 8 J F " D
0x0a4394…0a4528 Dummy {f00=0x0013, f01=0x4030, f02=» + L 6LW L@i4 8 9 @ 9 , J H5 RLW 7 N 8 H O 8 X Z 8 j [ 8 z f 8 g 8 r 8 s 8 v0 8 x 8 0 8 J F " D
0x0a4528…0a46bc Dummy {f00=0x0013, f01=0x0190, f02=» > H IDENT EINIT TRA 10.0 80-05-13 F1 O1111 INITIALISATIONS : > : EAIOPR EBZACC ECICCY EDIAC1 EEITR1 EFIAC2 EGITR2 : F EHISYSN EZIBUFA : $$$TRA : B > EAIOPRN EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 : $ EGITR2 E
0x0a46bc…0a4850 Dummy {f00=0x0013, 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 ;
0x0a4850…0a49e4 Dummy {f00=0x0013, f01=0x0190, f02=» ; Z0 < ]0 < ` < , c < < f < L i < l0 < l o0 < ~ r0 < u0 < x0 < {0 < ~0 < 0 < J F " D @ qL rL
0x0a49e4…0a4b78 Dummy {f00=0x0013, 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
0x0a4b78…0a4d0c Dummy {f00=0x0013, f01=0x018e, f02=» = 0 > 0 > 0 > 0 0 > B 0 > T 0 > f 0 > x > [ > > > > J F " D = L L L L L L4 L L 2 = L
0x0a4d0c…0a4ea0 Dummy {f00=0x0013, f01=0x4044, f02=» > " R4 !L 'L (L )L +L "L4 ? ? .@ ? @ 0 > B 0 > T 0 > f 0 > x > [ > > > > J F " D = L L L L L L4 L L 2 = L
0x0a4ea0…0a5034 (4, 20) Dummy {f00=0x0014, f01=0x0190, f02=» : H IDENT PBBOOK TRA 10.0 80-05-13 F1 O1111 PRINT BOOK PBBOOK PYPOSB B $$$TRAB PBBOOK PYPOSB n > : PVATTPB PWDETPA PZPOSD0 QENTRSF T:DSC0 T:DSC1B T:DSC2 0 , T:EDWR XCLAMPS XEERR ZCRDD ZDRWRD ZMRDF
0x0a5034…0a51c8 Dummy {f00=0x0014, f01=0x0190, f02=» ( , - 1 . 0 @ ; P J F " D R ):L DL VL0X VD0X DL0X D U T R RL R I2d B RU ` D O P & U ^0 & b
0x0a51c8…0a535c Dummy {f00=0x0014, f01=0x018e, f02=»! L ! L W dL1X F T U_F% L j ( 3 8 J Z 0 3 j | & ZZZZZZ " & 99
0x0a535c…0a54f0 Dummy {f00=0x0014, f01=0x018a, f02=» & F*ZVZZZVZZ9,99- " 6 ( F 0 R 0 % d 0 % v 0 $ 2 J F " D RI2 CL RC 0X T L
0x0a54f0…0a5684 Dummy {f00=0x0014, f01=0x4008, f02=»@ & F*ZVZZZVZZ9,99- " 6 ( F 0 R 0 % d 0 % v 0 $ 2 J F " D RI2 CL RC 0X T L
0x0a5684…0a5818 Dummy {f00=0x0014, f01=0x0190, f02=» F H IDENT PRINT TRA 10.0 80-05-13 F1 O1111 PRINT JOURNAL - VOUCHER 2 . PAJRN PCVCH PVATTP PWDETP PXSKIP PZPOSD N $$$TRAI > : PAJRN PCVCH m PVATTPD S PWDETPI _ PXSKIP f PZPOSD l B > T:DSC0I T:DSC1A T:DSC20 T:EDWRF T:GETT XCLAM
0x0a5818…0a59ac Dummy {f00=0x0014, f01=0x0190, f02=» * . 50 $ 8 , 6 : H > X J F " D ):L DL0X D F 6F ,28>D CL RC 0X W=1X FW70X L CL RC 0X h B f G I M O
0x0a59ac…0a5b40 Dummy {f00=0x0014, f01=0x0190, f02=» v z { 6 ( ~ : J F " D @ R W 1X FW 1X FW 1X FW 1X FW 1X FW ):L R 4 I5 R AY R RL R J 0 " 1010313801100033000000
0x0a5b40…0a5cd4 (4, 21) Dummy {f00=0x0015, f01=0x0190, f02=» I2 ):L DL VL0X VD0X DL0X D F 6F z TLW TLAX k' RT1X F l H X h 0 x l 0 l
0x0a5cd4…0a5e68 Dummy {f00=0x0015, f01=0x0190, f02=»X F!FL TL@W k RT1X F@X b 0 l 2 B R 0 b t 0 l " '0 D ) 00 2 l
0x0a5e68…0a5ffc Dummy {f00=0x0015, f01=0x0190, f02=»T1X FW TL0X L RT1X F TL RT1X l E * I _ : U d J W ` l g | i & & ( q0 u0 y0
0x0a5ffc…0a6190 Dummy {f00=0x0015, f01=0x018e, f02=» - & & Y , & < Z J " 9 & l 999999 z " a & S & & (R) & 999 " R &
0x0a6190…0a6324 Dummy {f00=0x0015, f01=0x018e, f02=» & Y & Z " " 9 4 & D & l R & ` ZZVZZZVZZ9,99- n " & ( & & Y & Z "
0x0a6324…0a64b8 Dummy {f00=0x0015, f01=0x0190, f02=» ( & $ & Y 2 & B Z P " 9 b & r ZZVZZ9,999 " c & ZZVZZZ,ZZ9 " d & ( !
0x0a64b8…0a664c Dummy {f00=0x0015, f01=0x018e, f02=»ZZZVZZ9,99-4 " & $ & W 2 & X B & R & ` & n ( | & & Y & Z " 9 & & S &
0x0a664c…0a67e0 Dummy {f00=0x0015, f01=0x0190, f02=» & & & & k 4 & B & P ( ^ j & z 99E-99E-99 " & 99E:99 " & 999999
0x0a67e0…0a6974 (4, 22) Dummy {f00=0x0015, f01=0x018e, f02=»( & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x0a6974…0a6b08 Dummy {f00=0x0015, f01=0x4008, f02=»@ & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x0a6b08…0a6c9c Dummy {f00=0x0015, f01=0x018e, f02=» @ H IDENT QIRDBS TRA 10.0 80-06-27 F1 O1111 DATABASE RECOVERY QIRDBS H $$$TRAR Z QIRDBS l D @ MASKR T:COMMT T:DREA T:IDIS7 T:SREA1 T:XSTAB ZAOPNDO ZBCLSD " ZCRDD ZDRWRD ZEINSD ZGREA 0 Z
0x0a6c9c…0a6e30 Dummy {f00=0x0015, f01=0x0190, f02=» #0 & ) , + > .0 N 0 ` 6 p ; = J F " D L EL R R R L0X E0X DL0R DX L EL HL R L0X E 0X DL0R D D G
0x0a6e30…0a6fc4 Dummy {f00=0x0015, f01=0x0190, f02=» n w0 y z0 y . }0 B T J F " D @P HL#HL,_! DL0R D * HL0X 0X DL0R D >0X A RII2l_K (L )L +L H f 0 y 0
0x0a6fc4…0a7158 Dummy {f00=0x0015, f01=0x40a2, f02=» 0 0 y " 6 0 % H . * ( + % L L R I2 _LI A aL HL_Y +L4 Z @ (L )L +L H f 0 y 0
0x0a7158…0a72ec Dummy {f00=0x0015, f01=0x0190, f02=» H H IDENT QMISC TRA 10.0 80-05-13 F1 O1111 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI $$$TRA B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR QGATYP
0x0a72ec…0a7480 Dummy {f00=0x0015, 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
0x0a7480…0a7614 (4, 23) Dummy {f00=0x0015, 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 I IL IL(I A 4 R L%
0x0a7614…0a77a8 Dummy {f00=0x0015, f01=0x0190, f02=» H H IDENT DEMSCR TRA 10.0 80-05-13 F1 O1111 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL0 SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x0a77a8…0a793c Dummy {f00=0x0015, 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 %
0x0a793c…0a7ad0 Dummy {f00=0x0015, 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 "
0x0a7ad0…0a7c64 Dummy {f00=0x0015, f01=0x0190, f02=» $ 4 D T d t K X &
0x0a7c64…0a7df8 Dummy {f00=0x0015, f01=0x0190, f02=» & * < J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S N & l B
0x0a7df8…0a7f8c Dummy {f00=0x0015, f01=0x0190, f02=» . > 9 N ^ n ~ B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRRRRRR A
0x0a7f8c…0a8120 Dummy {f00=0x0015, f01=0x0190, f02=» " % ;0 " > 4 @ D J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ :L 1X T C E , H M O U
0x0a8120…0a82b4 (4, 24) Dummy {f00=0x0016, f01=0x0190, f02=» " D @F BL1X BL_ AL0XKX CLWZ0X B)BL 1X F_ 0XK @ACR7 RA AL @L AA_ N ` r ( > (
0x0a82b4…0a8448 Dummy {f00=0x0016, f01=0x018e, f02=»!ALG!ALC!CLb RC 0X BL0 ` ! ! 0 ! @ ! R ! b ! r ! ! ! D ! D ! " ! ! !
0x0a8448…0a85dc Dummy {f00=0x0016, f01=0x4152, f02=» ! " " " ( " : l " L " " $ " n % " ~ * l " " & " & " ( " " & 00 " ( " 6 1 /
0x0a85dc…0a8770 Dummy {f00=0x0016, f01=0x0190, f02=» > H IDENT SPACHQ TRA 10.0 80-05-13 F1 O1111 APPL-XX CONTROL # > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 # F > : SPCHK2A SPCHK3A SPCHK40 SPCHK5F SPCHK6 SPCHK7X SPTCHKL # $$$TRA # B > SPAP16A SPAP17S SPAP18C ! SPAP22K 8 S
0x0a8770…0a8904 Dummy {f00=0x0016, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K # > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P $ 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K $ z SPAP32A T:UPDFH $ . $ $ 40 $
0x0a8904…0a8a98 Dummy {f00=0x0016, f01=0x0190, f02=» T $ Y % ^ % c % . h % > m % N r % ^ w % n | % ~ J F " D @ IK%IL ,I W CLW R W R W} R Wx R Ws R Wn R Wi R Wd R W_ R WZ % % % %
0x0a8a98…0a8c2c Dummy {f00=0x0016, f01=0x0190, f02=» " % = & J F " D R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R W# R W R W & $ & j & & z ( & * & , & & & & 0 &
0x0a8c2c…0a8dc0 Dummy {f00=0x0016, f01=0x415e, f02=» & 0 ' ' ' , # ' > , ' N 2 ' ^ 5 ' p J F " D L W L CL4 IK%IL #IL W L CL4 [Lb[ @K ![L W L CL4 A 4 IK ' B0 ' F ' I '
0x0a8dc0…0a8f54 (4, 25) Dummy {f00=0x0016, f01=0x8190, f02=» > H IDENT XBFMT TRA 10.0 80-05-13 F1 O1111 SCREEN-CONTROL ( XBFMT ( F $$$TRAF ( V XBFMT ( h 0 , FMOVE SPCLRST T:ATTF XCLAMP3 XEERR ZMRDF ( z ( ( ( ( ' (
0x0a8f54…0a90e8 Dummy {f00=0x0016, f01=0x8190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q ( j Z ) ( g ) : s ) J | ) J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P ) l ) ) ) )
0x0a90e8…0a927c Dummy {f00=0x0016, f01=0x8190, f02=» ) * * " & * 2 & * @ & m * R ( * ` * l & % * | & m * ( * * * * * * J F " D DL WL Q
0x0a927c…0a9410 Dummy {f00=0x0016, f01=0x8190, f02=» * + + + ( + 8 + H + X + h + x + + + " < + " < + "
0x0a9410…0a95a4 Dummy {f00=0x0016, f01=0xc046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 + % , 0@ , B + H + X + h + x + + + " < + " < + "
0x0a95a4…0a9738 Dummy {f00=0x0016, f01=0x018e, f02=» H H IDENT XMESG TRA 10.0 80-05-13 F1 O1111 ERROR- AND MESSAGECONTROL - " XDMSG XEERR XFERR1 XHERAS - P $$$TRAE - v * & XDMSG XEERR XFERR1E XHERAS { - 4 0 T:DSC1E T:EDWRA T:ERAS0 XAKBINF XCLAMP ZMRDF - { - -
0x0a9738…0a98cc Dummy {f00=0x0016, f01=0x0190, f02=» 4 . 9 . = . $ J F " D R D RD 0X 4 C RC 4 1X F R W R DL DL DL0X D R 0X . 4 E . F . m . r . v . . & . & . ( .
0x0a98cc…0a9a60 Dummy {f00=0x0016, f01=0x404e, f02=» 1 . $ / ( / / ( / 8@ / JC 4 1X F R W R DL DL DL0X D R 0X . 4 E . F . m . r . v . . & . & . ( .
0x0a9a60…0a9bf4 (4, 26) Dummy {f00=0x0016, f01=0x0190, f02=» @ H IDENT XOPINP TRA 10.0 80-05-13 F1 O1111 KEYBOARD,BCR,ODR 0 " XAKBIN XCLAMP XGBCR XHMSU 0 H $$$TRAP 0 n * & XAKBIN XCLAMPX XGBCR 7 XHMSU u 0 @ < QAFNKYP T:DSC0A T:DSC10 T:KI3 T:NKI T:RREAY T:WRITC XBFMT 0 : 5 3 -,
0x0a9bf4…0a9d88 Dummy {f00=0x0016, f01=0x0190, f02=» 1 & 1 - 1 & 0 1 6 ; 1 F @ 1 V J F " D @ @L R I 0X KK@A R @L)AL A5W RA W 0X KK@A@ 4 I6 0X @ 1 h B 1 E 1 N 1 S 1 Z 1
0x0a9d88…0a9f1c Dummy {f00=0x0016, f01=0x0190, f02=» 1 J 2 2 2 ( 2 8 ? K 2 H 0 ? 2 0 ? 2 n 2 @ 2 2 2 2 J F " D jW EZ 0X 0X 0X W0X 4 !"Lg!8L I3`) L!I3Y
0x0a9f1c…0aa0b0 Dummy {f00=0x0016, f01=0x40ce, f02=» 2 3 3 $ 3 4 J F " D DLW% DLW I3 EL E W E EL DL!EL DL EL_ E 6E 0X DW 0X DW 3 D 3 0X D4 0 3 3 @ 3 2 J F " D jW EZ 0X 0X 0X W0X 4 !"Lg!8L I3`) L!I3Y
0x0aa0b0…0aa244 Dummy {f00=0x0016, f01=0x8190, f02=» L H IDENT ZDSCIO TRA 10.0 80-06-27 F1 O1111 DISC I/O OPERATIONS B > ZAOPND ZBCLSD ZCRDD ZDRWRD ZEINSD ZGREA ZHWRID ZYRLNG T ZZERR $$$TRA > : ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA , " ZHWRID
0x0aa244…0aa3d8 Dummy {f00=0x0016, f01=0x8190, 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
0x0aa3d8…0aa56c Dummy {f00=0x0016, f01=0x8190, f02=» v J F " D @ D DLj D DLj D DLj D DLj D DLj D DL0X DT 0X $ r 1 $ & FILE OPEN UN
0x0aa56c…0aa700 Dummy {f00=0x0016, f01=0x8190, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L J JL ELj EJ 0X 2 K K 0
0x0aa700…0aa894 (4, 27) Dummy {f00=0x0016, f01=0x8190, f02=» K 0 " , 2 B ! R ' b - r 4 ? J F " D 0X P R4 I R L0R R0X 0X P R@ 4 0X 4 A R I2 I R D S
0x0aa894…0aaa28 Dummy {f00=0x0016, f01=0xc188, f02=» x0 | x K ( J F " D @ W R @ 4 I I L%IL* L%IL# L%IL L%IL J I JI)JL LW : +
0x0aaa28…0aabbc Dummy {f00=0x0016, f01=0x0190, f02=» B H IDENT ZFMTIO TRA 10.0 80-05-13 F1 O1111 FORMAT I/O CONTROL ZKOPNF ZLCLSF J $$$TRAM d ZKOPNF ZLCLSF B v & " T:CLOSM T:EDWRA T:OPEN0 XAKBINF M FORMFILE
0x0aabbc…0aad50 Dummy {f00=0x0016, f01=0x0190, f02=» 9 J F " D L DL EL XLj DEX DL WLj D W DLj D DL0X DP 1X F RL A A2 ! h 1 x $ ( # &! FORMATFILE OPEN UNSUCCESSFULL ( C H J
0x0aad50…0aaee4 Dummy {f00=0x0016, f01=0x0190, f02=»9999 " e 99999 " e 2 999999 B " e X Z h " e z ZZ " e ZZZ " e ZZZZ " e ZZZZZ
0x0aaee4…0ab078 Dummy {f00=0x0016, f01=0x0190, f02=»ZZZ9,99E " e ZZZ9,99- " e 8 ZZZZ,ZZ- H " e ` ZZZZ9,00 p " e ZZZZ9,99 " e ZZZZ9,99-O " e ZZZZZ9,99O "
0x0ab078…0ab20c Dummy {f00=0x0016, f01=0x0190, f02=» ZZZZZZZZ9,99- " e " ZZZZZZZZZ,ZZ 2 " e N ZZZZZZZZZ,ZZ- ^ " e | 99E:99 " e ZZE:ZZ " e ZZVZZ9,99, " e !
0x0ab20c…0ab3a0 Dummy {f00=0x0016, f01=0x40e6, f02=»Z9,99- " $e % ZZZVZZZVZZ9,99 " %e < & ZZZVZZZVZZZ,ZZ L " &e j ' F*ZVZZZVZZ9,99-N z " 'e ( @4 0X 4 1X FA K @ ,99, " e !
0x0ab3a0…0ab534 (4, 28) Dummy {f00=0x0017, f01=0x0190, f02=» : H IDENT ZMRDF TRA 10.0 80-08-14 F1 O1111 SCREEN I/O ZMRDF B $$$TRAR R ZMRDF d $ MASKR T:DREAT T:EDWR T:XSTA4 v $ ( 4 : >
0x0ab534…0ab6c8 Dummy {f00=0x0017, f01=0x0190, f02=» D @GT E E j^ E] H jH ]E H E IH0X ]EI0X F0RFGT E E j^EE] j L l | J F " D H ]E H E IH0X ]EI0X F0RFGTo E E @E @Ej^@E] Wa E IH0X EI0
0x0ab6c8…0ab85c Dummy {f00=0x0017, f01=0x40ee, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( E HLj EH] W 1X FA24 @
0x0ab85c…0ab9f0 Dummy {f00=0x0017, f01=0x40f0, f02=» > F IDENT QEMOVE DATATRANSP. BUFFER <--> UWB QEMOVEK F QEMOVEK X I:EVA0 l , ( D@ F 8 1 ~ I:RT1 Y $ @
0x0ab9f0…0abb84 Dummy {f00=0x0017, 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
0x0abb84…0abd18 Dummy {f00=0x0017, f01=0x4176, f02=» @ H IDENT C:CW10 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY C:CW10 H C:CW10C Z & n & & = & [ & y & * & * &
0x0abd18…0abeac Dummy {f00=0x0017, f01=0xc01a, f02=» @ 0 80-04-22 F1 O1112 CURRENCY INQUIRY C:CW10 H C:CW10C Z ( & n * & DSC001 * & = DSC001 * & [
0x0abeac…0ac040 Dummy {f00=0x0017, f01=0x0190, f02=» @ H IDENT T:AA00 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:AA00 H T:AA00A Z > : T:DA00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R > : U:UCY0 D:UOP0 U:U
0x0ac040…0ac1d4 (4, 29) Dummy {f00=0x0017, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x0ac1d4…0ac368 Dummy {f00=0x0017, f01=0x4104, f02=» x , ( @ A0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x0ac368…0ac4fc Dummy {f00=0x0017, f01=0x40e2, f02=» @ H IDENT T:DA00 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY T:DA00 H T:DA00D Z AAMAIN n * & A0 0 * * @ > E X @
0x0ac4fc…0ac690 Dummy {f00=0x0017, f01=0x0190, f02=» L H IDENT ZDSCIO TRA 10.0 80-06-30 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
0x0ac690…0ac824 Dummy {f00=0x0017, 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
0x0ac824…0ac9b8 Dummy {f00=0x0017, 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
0x0ac9b8…0acb4c Dummy {f00=0x0017, f01=0x018e, f02=» 0 " J F " D W 0X 1X F RL A A24 0X P RL 4 L DL L J JL ELj EJ 0X 2 V V 0
0x0acb4c…0acce0 Dummy {f00=0x0017, 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
0x0acce0…0ace74 (4, 30) Dummy {f00=0x0017, f01=0x0190, f02=» s v0 J F " D @ I2 I R W R @ 4 I I L%IL* L%IL# L%IL L%IL J I J * 0 I x x K +
0x0ace74…0ad008 Dummy {f00=0x0017, f01=0x4028, f02=»0R DT A 4 X @ $
0x0ad008…0ad19c Dummy {f00=0x0017, f01=0x8190, f02=» > H IDENT XBFMT TRA 10.0 80-08-18 F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF z '
0x0ad19c…0ad330 Dummy {f00=0x0017, f01=0x8190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q j Z ( g : s J | J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x0ad330…0ad4c4 Dummy {f00=0x0017, f01=0x8190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x0ad4c4…0ad658 Dummy {f00=0x0017, f01=0x8190, f02=» ( 8 H X h x " < " < "
0x0ad658…0ad7ec Dummy {f00=0x0017, f01=0xc046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x0ad7ec…0ad980 Dummy {f00=0x0017, f01=0x0190, f02=» > H IDENT XBFMT TRA 10.0 80-08-19 F1 O1111 SCREEN-CONTROL XBFMT F $$$TRAF V XBFMT h 0 , FMOVE SPCLRST T:ATTF XCLAMP9 XEERR ZMRDF z '
0x0ad980…0adb14 (4, 31) Dummy {f00=0x0017, f01=0x0190, f02=» P PD0R]F#LLs)LL 0R]F D7 WL Q j Z ( g : s J | J F " D @FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R P l
0x0adb14…0adca8 Dummy {f00=0x0017, f01=0x0190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x0adca8…0ade3c Dummy {f00=0x0017, f01=0x0190, f02=» ( 8 H X h x " < " < "
0x0ade3c…0adfd0 Dummy {f00=0x0017, f01=0x4046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x0adfd0…0ae164 Dummy {f00=0x0017, f01=0x0190, f02=» B F IDENT CTAB01 FT80 CONVERSION TABLSE CTAB01K CTAB02 CTAB03 J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x0ae164…0ae2f8 Dummy {f00=0x0017, f01=0x4066, f02=» h LMNOPQRSTUVWXYZ{|}* 4 t 4 t , P@ b J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x0ae2f8…0ae48c Dummy {f00=0x0017, f01=0x2008, f02=» L = KMD020 DATE = 801103 6876PACK NBR = 0020 0
0x0ae48c…0ae620 Dummy {f00=0x0017, f01=0x0190, f02=» H H IDENT QMISC TRA 4.2 80-01-08 F1 O1112 MISCELANEOUS SUBROUTINES > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP P QHSPKYI QIMSU $$$TRA B > QAFNKYI QBSTKY4 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR " QGA
0x0ae620…0ae7b4 (4, 32) Dummy {f00=0x0018, f01=0x018e, f02=» J F " D R % L, D DL" D"" H3 A3" I0 A0@1W I1 A1@0W 4 D DL6 a Z d l f ~ t y ~ J F " D @D W A0W A1W @0W @1 4 0L 0L0X 0R1HP _ AP0X 00X 00X
0x0ae7b4…0ae948 Dummy {f00=0x0018, f01=0x0190, f02=» 0 0 0 ( 0 : J F " D 00X 00X 00X 00X 00X 0W 0L4 @P4 L% L L4 L# L L4 @ L 0 X 0 X 9
0x0ae948…0aeadc Dummy {f00=0x0018, f01=0x40bc, f02=»I A 4 R L% L " ! L LW 4 RL Z WL DL EL FL > N ^ n $ jWFEZF0X D0X 0X W0X 4 ~ @ 9
0x0aeadc…0aec70 Dummy {f00=0x0018, f01=0x0190, f02=» H H IDENT DEMSCR TRA 4.2 80-01-08 F1 O1112 PTSDEMO SCREEN MANAGEMENT $ SPCLRA SPCLRN SPCLRS SPERR P $$$TRAM x , ( SPCLRA SPCLRNS SPCLRSE SPERR > : EMPTYTM QHSPKYA SPAPPL0 SPCHK1F SPCHK2 SPCHK3O SPCHK4 > : SPCHK5 S
0x0aec70…0aee04 Dummy {f00=0x0018, f01=0x0190, f02=»CR T:TBWDC T:TDOWS T:TFWD T:THOM T:TLDO < 8 T:TLEFM T:TRIGA T:TSTC0 T:TUP T:UPDFT XCLAMPT XFERR1I 2 r %
0x0aee04…0aef98 Dummy {f00=0x0018, f01=0x018e, f02=» RL 4 A AL8R @LI@ 6A %1X @LW 1X @L r I " 0 L @ P " R S b U t X Z $ _ ( m . o w y J F
0x0aef98…0af12c Dummy {f00=0x0018, f01=0x0190, f02=» ( 8 H X h x L Y &
0x0af12c…0af2c0 Dummy {f00=0x0018, f01=0x018e, f02=» & . @ J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S R & l
0x0af2c0…0af454 (4, 33) Dummy {f00=0x0018, f01=0x018e, f02=» $ 4 D 9 T d t B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRR
0x0af454…0af5e8 Dummy {f00=0x0018, f01=0x0190, f02=» " % ;0 * > < @ L J F " D 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R BL 7A FF:FF:6:::6:6_ :L 1X D F , I N P V
0x0af5e8…0af77c Dummy {f00=0x0018, f01=0x0190, f02=» J F " D @FF BL1X BL_ AL0XKX CLW[0X B)BL 1X FF_ 0XK @ACR7 RA AL @L AA ! ! V ! f ! x ! ( ! > ! ! ! ( ! !
0x0af77c…0af910 Dummy {f00=0x0018, f01=0x0190, f02=»X BAW ALS!ALG!ALC!CLb RC 0X B ! h * " & " 6 " H " X " j " z " " " " D " D " " " "
0x0af910…0afaa4 Dummy {f00=0x0018, f01=0x416a, f02=» " " # # # . # > # P l # b # r $ $ # ' # , l # # & # & # ( # # & 00 #
0x0afaa4…0afc38 Dummy {f00=0x0018, f01=0x0190, f02=» > H IDENT SPACHQ TRA 4.2 80-01-08 F1 O1112 APPL-XX CONTROL $ > : SPAP16 SPAP17 SPAP18 SPAP22 SPAP27 SPAPPL SPCHK1 $ F > : SPCHK2A SPCHK3A SPCHK40 SPCHK5F SPCHK6 SPCHK7X SPTCHKL $ $$$TRA $ B > SPAP16A SPAP17S SPAP18C ! SPAP22K 8 S
0x0afc38…0afdcc Dummy {f00=0x0018, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K $ > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P % 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K % z SPAP32A T:UPDFH % . % % 40 %
0x0afdcc…0aff60 Dummy {f00=0x0018, f01=0x0190, f02=» T % Y & ^ & c & . h & > m & N r & ^ w & n | & ~ J F " D @ IK%IL ,I W CLW R W R W} R Wx R Ws R Wn R Wi R Wd R W_ R WZ & & & &
0x0aff60…0b00f4 (4, 34) Dummy {f00=0x0018, f01=0x0190, f02=» " & = ' J F " D R WU R WP R WK R WF R WA R W< R W7 R W2 R W- R W( R W# R W R W ' $ ' j & ' z ( ' * ' , ' ' ' ' 0 '
0x0b00f4…0b0288 Dummy {f00=0x0018, f01=0x415e, f02=» ' 0 ( ( ( , # ( > , ( N 2 ( ^ 5 ( p J F " D L W L CL4 IK%IL #IL W L CL4 [Lb[ @K ![L W L CL4 A 4 IK ( B0 ( F ( I (
0x0b0288…0b041c Dummy {f00=0x0018, f01=0x0190, f02=» > H IDENT XBFMT TRA 4.2 80-01-08 F1 O1112 SCREEN-CONTROL ) XBFMT ) F $$$TRAF ) V XBFMT ) h 0 , FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF ) z ) ) ) ) ' )
0x0b041c…0b05b0 Dummy {f00=0x0018, f01=0x0190, f02=» P PD0R]FF#LLt)LL 0R]FF D7 WL Q ) j * ( i * : u * J ~ * J F " D @ FP FQ Q h^QFW T Q 9 H #QL& HD!d] Q^ Rf^ Q PQWZ#QL d] P^ R * l * * * *
0x0b05b0…0b0744 Dummy {f00=0x0018, f01=0x0190, f02=» * + + " & + 2 & + @ & m + R ( + ` + l & % + | & m + ( + + + + + + J F " D W DL WL
0x0b0744…0b08d8 Dummy {f00=0x0018, f01=0x0190, f02=» + , , , ( , 8 , H , X , h , x , ! , " , " < , " < , "
0x0b08d8…0b0a6c Dummy {f00=0x0018, f01=0x4048, f02=» H1 I RKKKW RKKKW I RKKKW RKKK@ 4 , ' - 2@ - D , H , X , h , x , ! , " , " < , " < , "
0x0b0a6c…0b0c00 Dummy {f00=0x0018, f01=0x0190, f02=» SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K $ > : SPAP13A SPAP14H SPAP15A SPAP19S SPAP208 SPAP21X SPAP23P % 8 > : SPAP24 SPAP25K SPAP26C SPAP28S SPAP29W SPAP30 SPAP31K % z SPAP32A T:UPDFH % . % % 40 %
0x0b0c00…0b0d94 (4, 35) Dummy {f00=0x0018, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x0b0d94…0b0f28 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x0b0f28…0b10bc Dummy {f00=0x0018, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x0b10bc…0b1250 Dummy {f00=0x0018, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x0b1250…0b13e4 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x0b13e4…0b1578 Dummy {f00=0x0018, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x0b1578…0b170c Dummy {f00=0x0018, f01=0x018e, f02=» * L P* * L P************************************************************************ l P OPTNS LITADR=1112 J F**************************************************
0x0b170c…0b18a0 Dummy {f00=0x0018, f01=0x0190, f02=» P CWB CSY P TWB TRM P TWB TSP $ P UWB UBF 4 P UWB UIF D P UWB UCY T P UWB UOP d P UWB UA1 t P UWB UA2 P UWB UT1 P UWB UT2 P CWB CK1 P CWB CK2 P UWB UQQ & PSPDSSCRN DSET FC=50,DEV=DY,BUFL=82
0x0b18a0…0b1a34 (4, 36) Dummy {f00=0x0019, f01=0x0190, f02=»_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 0W 0 4 @P4 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i
0x0b1a34…0b1bc8 Dummy {f00=0x0019, f01=0x0190, f02=» $ % 2 4 6 y y k Y 9 %c &d Y 9 l 1 a 4d 4 * = 2 Y 9 S (R) b Y 9 k W X /d s /d .'g 7,c Y 9 l 4 W X Y
0x0b1bc8…0b1d5c Dummy {f00=0x0019, f01=0x0190, f02=»0 30 50 70 90 ;0 =0 ?0 A0 E ( = S k ! - | | 0W @1 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i
0x0b1d5c…0b1ef0 Dummy {f00=0x0019, f01=0x0190, f02=» D R R D !D D I2 H Dw W} P h^PDW P PD0 ]q #L]t)LR 0 ]q D7 W| Q FP FQ Q h^QFW T Q 9 H #Qu& HD!d] Q^ f^ Q PQWZ#Qu d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pv D d^PD] 0 ^ P W D W| Q _ I2 A A H P W A24 W{j] W 0 ]
0x0b1ef0…0b2084 Dummy {f00=0x0019, f01=0x0190, f02=» 5 6 A _ A A _ A A _#A2 DL0 DD 4 1 q 4 @ @ I 0 K @A @ )A& A5W A W 0 K @A@ 4 I6 0 @ 0 K @A aKW&0 0 E 0 KEF(E F F _ aK0 4 ( Z W E jW EZ 0 0 0 W0 4 !" g!8R I3`) !I3Y DE0 D0 D# I3 DqW% D
0x0b2084…0b2218 Dummy {f00=0x0019, f01=0x0190, f02=»DF E'j D E Dij D Djj D Dkj D Dlj D Dmj D Dnj D Do0 DT 0 W 0 1 q A A24 0 4 R Dr J J E j EJ 0 D 0 W j 0 D 0 I2 H I 0 @ 4 ~0 0 0 P 4 I ~0 0 0 P @ 4 0 4 A I2 I
0x0b2218…0b23ac Dummy {f00=0x0019, f01=0x0190, f02=»4 H1$H H H H Gz E IH0 ]EI0 F0 FGP I E 0 ]EI0 F0 FGT E E j^ E] H jH ]E H E IH0 ]EI0 F0 FGTl E E j^EE] jH ]E H ] E IH0 ]EI0 F0 FGT@ E E @E @Ej^@E] W3 Es IH0 EI0 F0 FGP I Es0 EI0 F0 FGP 1 q A24 j D R
0x0b23ac…0b2540 Dummy {f00=0x0019, f01=0x0190, f02=» m m O FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDF " $ & ' ( ) * ,0 40 50 70 :0 > : . > A I2 I
0x0b2540…0b26d4 (4, 37) Dummy {f00=0x0019, 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:
0x0b26d4…0b2868 Dummy {f00=0x0019, 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
0x0b2868…0b29fc Dummy {f00=0x0019, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x0b29fc…0b2b90 Dummy {f00=0x0019, 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
0x0b2b90…0b2d24 Dummy {f00=0x0019, 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*
0x0b2d24…0b2eb8 Dummy {f00=0x0019, 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
0x0b2eb8…0b304c Dummy {f00=0x0019, 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*
0x0b304c…0b31e0 Dummy {f00=0x0019, 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 -->
0x0b31e0…0b3374 (4, 38) Dummy {f00=0x0019, 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*
0x0b3374…0b3508 Dummy {f00=0x0019, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x0b3508…0b369c Dummy {f00=0x0019, 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*
0x0b369c…0b3830 Dummy {f00=0x0019, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x0b3830…0b39c4 Dummy {f00=0x0019, 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
0x0b39c4…0b3b58 Dummy {f00=0x0019, 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
0x0b3b58…0b3cec Dummy {f00=0x0019, 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
0x0b3cec…0b3e80 Dummy {f00=0x0019, 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
0x0b3e80…0b4014 (4, 39) Dummy {f00=0x001d, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x0b4014…0b41a8 Dummy {f00=0x001d, f01=0x0008, f02=» p
0x0b41a8…0b433c Dummy {f00=0x001d, f01=0x000c, f02=»800818 0818 $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP8 XEERR ZMRDF % E X 6T:DA00 800818 T:DA00D AAMAIN * IZDSCIO I I800818 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7 ZHWRID <
0x0b433c…0b44d0 Dummy {f00=0x001d, f01=0x0190, f02=» AADEMO 800818 $$$TRAD AAMAIN BASPCTD BCSTTOA BESELF0 CGCSYSF QCGUWB QDFUWBO T:EDWR T:EXIT XAKBIN ZGREA f BASPCT 800818 $$$TRAS BASPCT SPAP15S SPAP31 CASTTSS CBSTTSA T:DISP0 T:ERASF XBFMT ZBCLSDI ZLCLSFC
0x0b44d0…0b4664 Dummy {f00=0x001d, f01=0x0190, f02=»PA XEERR ZCRDD ZDRWRD ZGREA BESELF 800818 $$$TRAS BESELF CDCHKYS CEGACTA CFCHKH0 DAUCCYF DCVDU DDTP71C DELACTI DFOACT DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF DOQCCYS DPECCYA DQCOPR0 ECICCYF EZIBUFD PAJRN XAKBI
0x0b4664…0b47f8 Dummy {f00=0x001d, f01=0x0190, f02=» QIRDBS1 T:SETTE XBFMT XEERR ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRID ZKOPNF ZLCLSF >CDCHKY 800818 $$$TRAC CDCHKY XEERR xCEGACT 800818 $$$TRAG CEGACT DKDSTMG PBBOOKA QENTRS0 QGATYPF XBFMT XEERR XGBCR ZCRDD Z
0x0b47f8…0b498c Dummy {f00=0x001d, f01=0x0190, f02=»RN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG 1 6 DAUCCY % 800818 $$$TRA DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPAP25 SPAP28 ( SPAP29S J ECICCYU PAJRN T:DISPS T:ERA
0x0b498c…0b4b20 Dummy {f00=0x001d, f01=0x0190, f02=» XBFMT XEERR ZCRDD ZDRWRDA ZGREA ZHWRID ZYRLNG <DCVDU / 800818 $$$TRAV DCVDU XBFMT DDTP71 0 800818 $$$TRAT DDTP71 FMOVE PVATTPT PWDETP T:DSC03 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF > DELACT
0x0b4b20…0b4cb4 (4, 40) Dummy {f00=0x005a, f01=0x0190, f02=» + - 0 P . 2 . 8 . . 9 . > > . P J F " D )"L` L A R I2 L R R DL0X D P 0X DL0R DT- RL WV0R . ` J0 . N0 . R0 . T . [ .
0x0b4cb4…0b4e48 Dummy {f00=0x005a, f01=0x0190, f02=» / / J F " D @ e e eL/#eL L R I29 R I21_G eL RLI2&!eL" eL RLI2 !eL R / & / t 0 e / / 0 e / 0 e / 0 e / 0 e / 0 /
0x0b4e48…0b4fdc Dummy {f00=0x005a, f01=0x408a, f02=» / J 0 0 0 * 0 < " W RW CL LW LW A 4 0 N 0 t@ 0 0 e / / 0 e / 0 e / 0 e / 0 e / 0 /
0x0b4fdc…0b5170 Dummy {f00=0x005a, f01=0x40e4, f02=» L H IDENT DCVDU TRA 10.0 80-11-17 F1 O1111 DEMONSTRATE VIDEO 1 DCVDU 1 T $$$TRAV 1 d DCVDU 1 v XBFMT 1 1 1 RL4 1 1 @ 1 ************************************
0x0b5170…0b5304 Dummy {f00=0x005a, f01=0x0190, f02=» H H IDENT DDTP71 TRA 10.0 80-11-17 F1 O1111 DEMONSTRATE 6371-PRINTER 2 DDTP71 2 P $$$TRAT 2 b DDTP71 2 t D @ FMOVE PVATTPT PWDETP T:DSC07 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN 2 XEERR ZMRDF 2 2 2
0x0b5304…0b5498 Dummy {f00=0x005a, f01=0x018e, f02=» & f 2 ( 3 . A 3 " 0 3 4 5 A 3 D 7 3 V 8 3 f 90 3 x :0 3 < 3 = 3 >0 3 ?0 3 J F " D R R RL R I2 DL VL0X VD0
0x0b5498…0b562c Dummy {f00=0x005a, f01=0x0190, f02=» 3 J 4 K0 4 L0 4 , N 4 > O 4 N P0 4 ` Q0 4 r S 4 T 4 U0 4 V0 4 X 4 4 Y0 & 4 B 4 ^ 4
0x0b562c…0b57c0 Dummy {f00=0x005a, f01=0x0190, f02=» o 4 5 p0 0 5 r 5 & t 5 6 w D,A,L,CH 5 F y " 5 ^ z 5 n } GB,NL,B 5 " 5 5 J F " D @ RLLL iL RLLL RLLL RLLL RL DL RD RL RL0R^F RL RL0R^F kL RL kL R 5
0x0b57c0…0b5954 (4, 41) Opaque[0x194]
0x0b5954…0b5ae8 # DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x03b0, f03=0x2020}
0x0b5954…0b5ae8 IdxSect {
0x0b5954…0b5ae8 f00 = 0x001d // 0xb5954 @0x0
0x0b5954…0b5ae8 f01 = 0x0004 // 0xb5956 @0x2
0x0b5954…0b5ae8 gno = [ // 0xb5958 @0x4
0x0b5954…0b5ae8 [0x00]: C0x001d.0x2.0
0x0b5954…0b5ae8 [0x01]: C0x001d.0x3.0
0x0b5954…0b5ae8 ]
0x0b5954…0b5ae8 }
0x0b5ae8…0b5c7c Dummy {f00=0x001d, 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********
0x0b5c7c…0b5e10 Dummy {f00=0x001d, 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,
0x0b5e10…0b5fa4 Dummy {f00=0x001d, 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
0x0b5fa4…0b6138 Dummy {f00=0x001d, 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,
0x0b6138…0b62cc Dummy {f00=0x001d, 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 *
0x0b62cc…0b6460 Dummy {f00=0x001d, 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
0x0b6460…0b65f4 (4, 42) Dummy {f00=0x001d, 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
0x0b65f4…0b6788 Dummy {f00=0x001d, 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
0x0b6788…0b691c Dummy {f00=0x001d, 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*
0x0b691c…0b6ab0 Dummy {f00=0x001d, 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 @
0x0b6ab0…0b6c44 Dummy {f00=0x001d, f01=0x2008, f02=» ODCASH(KW2,KW4),TDAMOUNT ACCUMULTED WITHDRAWALS DJ900 @ * N * REWRITE ACCOUNTRECORD X PERF ZDRWRD,ADACTRNR,NDLRN1 x DJ999 RET PEND @
0x0b6c44…0b6dd8 Dummy {f00=0x001d, 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 +!
0x0b6dd8…0b6f6c Dummy {f00=0x001d, 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 .
0x0b6f6c…0b7100 Dummy {f00=0x001d, 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
0x0b7100…0b7294 (4, 43) Opaque[0x194]
0x0b7294…0b7428 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x22f0, f03=0x0000}
0x0b7294…0b7428 IdxSect {
0x0b7294…0b7428 f00 = 0x0117 // 0xb7294 @0x0
0x0b7294…0b7428 f01 = 0x0008 // 0xb7296 @0x2
0x0b7294…0b7428 gno = [ // 0xb7298 @0x4
0x0b7294…0b7428 [0x00]: C0x0117.0x2.0
0x0b7294…0b7428 [0x01]: C0x0117.0x3.0
0x0b7294…0b7428 [0x02]: C0x0118.0x0.0
0x0b7294…0b7428 [0x03]: C0x0118.0x1.0
0x0b7294…0b7428 ]
0x0b7294…0b7428 }
0x0b7428…0b75bc Dummy {f00=0x0117, f01=0x000c, f02=»801126 T 801126 $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP9 XEERR ZMRDF % DCTAB01 801126 CTAB01K CTAB02 CTAB03 IO I I801126 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7
0x0b75bc…0b7750 Dummy {f00=0x0117, f01=0x0190, f02=» AADEMO 801126 $$$TRAD AAMAIN BASPCTD BCSTTOA BESELF0 CGCSYSF QCGUWB QDFUWBO T:EDWR T:EXIT XAKBIN ZGREA f BASPCT 801126 $$$TRAS BASPCT SPAP15S SPAP31 CASTTSS CBSTTSA T:DISP0 T:ERASF XBFMT ZAOPNDI ZBCLSDC ZKO
0x0b7750…0b78e4 Dummy {f00=0x0117, f01=0x0190, f02=»AKBIN3 XBFMT XCLAMPA XEERR ZCRDD ZDRWRD ZGREA BESELF 801126 $$$TRAS BESELF CDCHKYS CEGACTA CFCHKH0 DAUCCYF DCVDU DDTP71C DELACTI DFOACT DGCACT DHBACT DIQACT DJUACT DKDSTM DLDEP DMWDR DNTRF DOQCCYS DPECCYA DQCOPR0 ECICCYF E
0x0b78e4…0b7a78 Dummy {f00=0x0117, f01=0x0190, f02=»OPRA EHISYS0 FMOVE QIRDBS1 T:SETTE XBFMT XEERR ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRID ZLCLSF >CDCHKY 801126 $$$TRAC CDCHKY XEERR xCEGACT 801126 $$$TRAG CEGACT DKDSTMG PBBOOKA QENTRS0 QGATYPF XBFMT XEERR XGBCR
0x0b7a78…0b7c0c Dummy {f00=0x0117, f01=0x0190, f02=» MASKR PAJRN QCGUWB. QDFUWB- QEMOVE1 T:USE T:XREAS T:XSTA XBFMT XEERR ZBCLSD ZCRDD ZGREA ZHWRID ZLCLSF ZYRLNG 1 6 DAUCCY % 801126 $$$TRA DAUCCYU EPPCCY1 M SPAP21- ~ SPAP231 SPAP24C SPAP25 SPAP28 ( SPAP29S J ECICCYU PAJRN T:D
0x0b7c0c…0b7da0 Dummy {f00=0x0117, f01=0x0190, f02=»A1 T:XSTAT XBFMT XEERR ZCRDD ZDRWRDA ZGREA ZHWRID ZYRLNG <DCVDU / 801126 $$$TRAV DCVDU XBFMT DDTP71 0 801126 $$$TRAT DDTP71 FMOVE PVATTPT PWDETP T:DSC03 T:DSC11 T:DSC2N T:EDWR6 XCLAMPN XEERR ZMRDF >
0x0b7da0…0b7f34 (4, 44) Dummy {f00=0x0117, f01=0x0190, f02=» ZYRLNG hDFOACT = 801126 $$$TRAO DFOACT SPAP13 R PAJRN XBFMT XEERR XHMSU ZCRDD ZEINSD1 y | bDGCACT ? 801126 $$$TRAC DGCACT DKDSTMC PAJRN PBBOOK XBFMT ZCRDD ZDRWRDC H K LDHBACT A 801126 $$$TRAB DHB
0x0b7f34…0b80c8 Dummy {f00=0x0117, f01=0x0190, f02=» fDJUACT E 801126 $$$TRAU DJUACT SPAP30 PAJRN QENTRST XBFMT ZDRWRD- ZHWRID1 DKDSTM H 801126 $$$TRAD DKDSTM EQPDS PAJRN PVATTPT PWDETP PXSKIP3 PZPOSD1 QENTRSY QGATYPE T:DSC0 T:DSC1 T:DSC2S T:EDWR XCLAMP XEERR Z
0x0b80c8…0b825c Dummy {f00=0x0117, f01=0x0190, f02=»ISP1 T:ERASP XBFMT ZCRDD ZDRWRD ZHWRIDS DMWDR Q 801126 $$$TRAW DMWDR SPAP14 PAJRN PBBOOKT PCVCH QENTRS- T:DISP1 T:ERAST XBFMT ZCRDD ZDRWRD ZHWRID DNTRF T 801126 $$$TRAT DNTRF SPAP19S SPAP20 M DKDST
0x0b825c…0b83f0 Dummy {f00=0x0117, f01=0x0190, f02=» T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E
0x0b83f0…0b8584 Dummy {f00=0x0117, f01=0x0190, f02=»0 D:TRM0C Z:TRM0R D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20C U:UA20R D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DG00 a 801126 T:DG00D
0x0b8584…0b8718 Dummy {f00=0x0117, f01=0x0190, f02=»BF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20C U:UA20R D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DH00 e 801126 T:DH00D AAMAIN * 6T:ATAB f 801126
0x0b8718…0b88ac Dummy {f00=0x0117, f01=0x0190, f02=»T20B U:UQQ0A 8 ,S:BTAB h 801126 S:BTABB :B ,D:CW10 j 801126 D:CW10C ,C:CSY0 k 801126 C:CSY0C = N ,D:CSY0 l 801126 D:CSY0C 2 ,Z:TRM0 m 801126 Z:TRM0T 2 ,D:TRM0 n
0x0b88ac…0b8a40 Dummy {f00=0x0117, f01=0x0190, f02=» 801126 U:UBF0U ,D:UBF0 t 801126 D:UBF0U B ,U:UIF0 u 801126 U:UIF0U [ d ,D:UIF0 v 801126 D:UIF0U : ,U:UCY0 w 801126 U:UCY0U = > ,D:UCY0 x 801126 D:UCY0U *
0x0b8a40…0b8bd4 (4, 45) Dummy {f00=0x0118, f01=0x0190, f02=» ,D:UA10 | 801126 D:UA10U B ,U:UA20 } 801126 U:UA20U y | ,D:UA20 ~ 801126 D:UA20U > ,U:UT10 801126 U:UT10U = P ,D:UT10 801126 D:UT10U 2 ,U:UT20 801126 U:U
0x0b8bd4…0b8d68 Dummy {f00=0x0118, f01=0x0190, f02=»:CK10C > ,C:CK20 801126 C:CK20C = H ,D:CK20 801126 D:CK20C > ,U:UQQ0 801126 U:UQQ0U ,D:UQQ0 801126 D:UQQ0U :U LDOQCCY 801126 $$$TRAQ DOQCCY EPPCCYQ PAJRN
0x0b8d68…0b8efc Dummy {f00=0x0118, f01=0x0190, f02=»26 $$$TRAC DQCOPR PAJRN XBFMT ZHWRID. EINIT 801126 $$$TRA EAIOPRN EBZACC1 % ECICCY- @ EDIAC11 [ EEITR1L EFIAC2 EGITR2 EHISYSE EZIBUFI PBBOOK 801126 $$$TRAB PBBOOK PYPOSB PVATTPB
0x0b8efc…0b9090 Dummy {f00=0x0118, f01=0x0190, f02=» PAJRN PCVCH m PVATTPD S PWDETPI _ PXSKIP f PZPOSD l T:DSC0I T:DSC1A T:DSC20 T:EDWRF T:GETT XCLAMPJ XEERR ZMRDF QIRDBS 801126 $$$TRAR QIRDBS MASKR T:COMMT T:DREA T:IDIS7 T:SREA1 T:XSTAB ZAOPNDO ZBCLSD ZCRDD ZDRWRD ZEINSD
0x0b9090…0b9224 Dummy {f00=0x0118, f01=0x0190, f02=» T:USE pDEMSCR 801126 $$$TRAM SPCLRA SPCLRNS SPCLRSE SPERR EMPTYTM QHSPKYA SPAPPL0 SPCHK1F SPCHK2 SPCHK3O SPCHK4 SPCHK5 SPCHK6R SPCHK7C SPTCHKS T:DISP T:DUPL T:DYKI T:EDFLM T:EDWRA T:ERAS0 T:GETAF T:GETC T:GETFO T:NKI T
0x0b9224…0b93b8 Dummy {f00=0x0118, f01=0x0190, f02=»801126 $$$TRA SPAP16A SPAP17S SPAP18C ! SPAP22K 8 SPAP27X = SPAPPL SPCHK1 Q SPCHK2S S SPCHK3A U SPCHK42 W SPCHK5 Y SPCHK6 [ SPCHK7A ] SPTCHKS _ SPAP06 SPAP07K SPAP08C SPAP09S SPAP10W SPAP11 SPAP12K SPAP13A SPAP14H SPAP15A SPAP19S SPAP2
0x0b93b8…0b954c Dummy {f00=0x0118, f01=0x0190, f02=»AE XDMSG XEERR XFERR1E XHERAS { T:DSC1E T:EDWRA T:ERAS0 XAKBINF XCLAMP ZMRDF XOPINP 801126 $$$TRAP XAKBIN XCLAMPX XGBCR 7 XHMSU u QAFNKYP T:DSC0A T:DSC10 T:KI3 T:NKI T:RREAY T:WRITC XBFMT bZFMTIO 801126
0x0b954c…0b96e0 Dummy {f00=0x0118, f01=0x0190, f02=» T:EDWR T:XSTA4 >QEMOVE 801126 QEMOVEK I:EVA0 I:RT1 $ HDEFDOC 801126 DEFDOCK T:FDSP I:EVA0 I:RT1 ,C:CW10 801126 C:CW10C .T:AA00 801126 T:AA00A T:DA00 D:CW10
0x0b96e0…0b9874 (4, 46) Dummy {f00=0x0118, f01=0x0190, f02=»A10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DA00 801126 T:DA00D AAMAIN * ZDSCIO 801126 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7
0x0b9874…0b9a08 Dummy {f00=0x0118, f01=0x40b0, f02=» `XBFMT 801126 $$$TRAF XBFMT FMOVE SPCLRST T:ATTF XCLAMP9 XEERR ZMRDF % DCTAB01 801126 CTAB01K CTAB02 CTAB03 IO I I801126 $$$TRA ZAOPNDS ZBCLSD1 ZCRDD ZDRWRD1 ZEINSD ZGREA 7
0x0b9a08…0b9b9c Dummy {f00=0x0118, f01=0x0190, f02=» O ^ t ):o Dm0 D F 6F ,28>D Ch C 0 W=1 W70 u Ci C 0 W 1 W 1 W 1 W 1 W 1 W ):W 4 I5 AY = I2 ):o D" Vn0 VD0 Dm0 D F 6F z TrW TtAX k' T1 TU T1 TU k T1 TU!F @XAW k T1 !F TU@W k T
0x0b9b9c…0b9d30 Dummy {f00=0x0118, f01=0x0190, f02=»4 I #:R !:R IS Ip IaW IR0 I4 ) R R )S W ) R S !S IQ IR IT IS~W HUy) R R IQpW ) R S HQ ISbIR_IT HUY) R R IRPW ) R S HR ITBHU?) R R IS6W ) R R IT+W ) R S HT IR IQ HU ) R T HT HQ ) R R HU W 4 )R IT ? HT (H2 ? H6 F I6 (A - _ HQ ? (H2 ? )R )ao !:
0x0b9d30…0b9ec4 Dummy {f00=0x0118, f01=0x0190, f02=» W I2 W ! o !R !R H1 !R !R Wy)R ) o_)R #:R?)R HQ H G!R !R !R W% I I( I !:S%I IR W I2T I2LWJ . W= W7 > W1 / W+ 0 W% $ W - W ) W H6 HT F F ? * I2 ? 4 4 Am a A az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x0b9ec4…0ba058 Dummy {f00=0x0118, f01=0x0190, f02=» Z I t a 7 + z m ! E d + , 7 d f1010313801100033000000 2 4 6 y k Y 9 %c &d Y 9 l 1 a "2 12 @ *
0x0ba058…0ba1ec Dummy {f00=0x0118, f01=0x0190, f02=»9 l 4 W X Y 9 a S (R) W X 0 "0 #0 $0 &0 (0 *0 ,0 .0 10 40 70 :0 >0 B ( = T l ! - $ x x az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x0ba1ec…0ba380 Dummy {f00=0x0118, f01=0x0190, f02=» P ) 8 8 D H LIQ (S#(~@ a(W )S#)~4 a)Aa u bI2$HQ RHT a +R + W ` @a4 % { # | A I2 I W C* W C 4 Ab v 2I28 +R + @b SH ( T I2 ! T #:R I2 I W 4 ! R Ac wW Ad x k 8I2 +R + +! R RW
0x0ba380…0ba514 (4, 47) Opaque[0x194]
0x0ba514…0ba6a8 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x03e0, f03=0x0005}
0x0ba514…0ba6a8 IdxSect {
0x0ba514…0ba6a8 f00 = 0x001f // 0xba514 @0x0
0x0ba514…0ba6a8 f01 = 0x0018 // 0xba516 @0x2
0x0ba514…0ba6a8 gno = [ // 0xba518 @0x4
0x0ba514…0ba6a8 [0x00]: C0x001f.0x0.0
0x0ba514…0ba6a8 [0x01]: C0x001f.0x1.0
0x0ba514…0ba6a8 [0x02]: C0x001f.0x2.0
0x0ba514…0ba6a8 [0x03]: C0x001f.0x3.0
0x0ba514…0ba6a8 [0x04]: C0x0020.0x0.0
0x0ba514…0ba6a8 [0x05]: C0x0020.0x1.0
0x0ba514…0ba6a8 [0x06]: C0x0020.0x2.0
0x0ba514…0ba6a8 [0x07]: C0x0020.0x3.0
0x0ba514…0ba6a8 [0x08]: C0x0021.0x0.0
0x0ba514…0ba6a8 [0x09]: C0x0021.0x1.0
0x0ba514…0ba6a8 [0x0a]: C0x0021.0x2.0
0x0ba514…0ba6a8 [0x0b]: C0x0021.0x3.0
0x0ba514…0ba6a8 ]
0x0ba514…0ba6a8 }
0x0ba6a8…0ba83c Dummy {f00=0x001f, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x0ba83c…0ba9d0 Dummy {f00=0x001f, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x0ba9d0…0bab64 Dummy {f00=0x001f, 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
0x0bab64…0bacf8 Dummy {f00=0x001f, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x0bacf8…0bae8c Dummy {f00=0x001f, 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
0x0bae8c…0bb020 Dummy {f00=0x001f, 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
0x0bb020…0bb1b4 (4, 48) Dummy {f00=0x001f, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x0bb1b4…0bb348 Dummy {f00=0x001f, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x0bb348…0bb4dc Dummy {f00=0x001f, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x0bb4dc…0bb670 Dummy {f00=0x001f, 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)
0x0bb670…0bb804 Dummy {f00=0x001f, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x0bb804…0bb998 Dummy {f00=0x001f, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x0bb998…0bbb2c Dummy {f00=0x001f, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x0bbb2c…0bbcc0 Dummy {f00=0x001f, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x0bbcc0…0bbe54 (4, 49) Dummy {f00=0x001f, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x0bbe54…0bbfe8 Dummy {f00=0x001f, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x0bbfe8…0bc17c Dummy {f00=0x001f, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x0bc17c…0bc310 Dummy {f00=0x001f, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x0bc310…0bc4a4 Dummy {f00=0x001f, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x0bc4a4…0bc638 Dummy {f00=0x001f, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x0bc638…0bc7cc Dummy {f00=0x001f, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J F************************************************************
0x0bc7cc…0bc960 Dummy {f00=0x001f, 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=50,DEV=DY,BUFL=82 z PSPDSDYKB DSET FC=20,DEV=KA PDSDI DSET FC=41,DEV=DI & PSPDSPRT DSET FC=30,DEV=GP,BUFL=112
0x0bc960…0bcaf4 (4, 50) Dummy {f00=0x001f, f01=0x0190, f02=»DBS DSET FC=C0,DEV=DL PDSFMTFLE DSET FC=CA,DEV=DL 6 PDSLNEPRT DSET FC=80,DEV=LP,BUFL=110,BUFDS=SPDSPRT @ ( $ FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN z P START AAMAIN P STACK 256 P EJECT P* PCW1 BLK P* PVCVOLNR1
0x0bcaf4…0bcc88 Dummy {f00=0x001f, f01=0x0190, f02=»PARAM1 STRG 66 8 P* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY) PKDCHECKS BCDI (11,6), C R L P '1','1','1','1','1','2', 1:EOI C r L P '1','1','1','1','1','1', 2:LIST C
0x0bcc88…0bce1c Dummy {f00=0x001f, f01=0x0190, f02=» b L P '1','1','1','1','0','1', 5:BLOCK C " L P '2','1','1','1','0','1', 6:UPDATE C r L P '2','1','1','1','0','1', 7:INQUIRY C
0x0bce1c…0bcfb0 Dummy {f00=0x001f, f01=0x0190, f02=» b L P '2','2','1','0','2','0', 10:OUT C " L P '1','1','1','0','0','1' 11:TRANSFER r L P* COLUMN CODING:
0x0bcfb0…0bd144 Dummy {f00=0x001f, f01=0x0190, f02=» * b L P* COLUMN 3: CHECK NOBOOK OFF * " L P* COLUMN 4: CHECK REVERSAL OFF * r L P* COLUMN 5: CHECK CARD OFF
0x0bd144…0bd2d8 Dummy {f00=0x001f, f01=0x018e, f02=» * b L P* THEN FOR FUNCTION I, CHECK J WILL BE PERFORMED * " P* IF KDCHECKS(I,J) = 2 r > P* THEN FOR FUNCTION I, A SPECIFIC VERSION OF CHECK J P* WILL BE PERFORMED L P**********************
0x0bd2d8…0bd46c Dummy {f00=0x001f, f01=0x0190, f02=» L P* * L P************************************************************************ T L P* * L P* SYSTEM RECORD
0x0bd46c…0bd600 Dummy {f00=0x001f, f01=0x0190, f02=» L P************************************************************************ L PYDSYSRNR BCD 12 RECORD NUMBER T L PYDUMMY BCD 6 PYDSTATUS BCD 2 L
0x0bd600…0bd794 (4, 51) Dummy {f00=0x0020, f01=0x0190, f02=»2 = SYSTEM STARTED * P* 3 = SYSTEM CLOSED L L PYCCCY STRGI (4)4 CURRENCIES j L PYDSYSLGG BCD 2 SYSTEM LANGUAGE L
0x0bd794…0bd928 Dummy {f00=0x0020, f01=0x0190, f02=» Z L PYDLASSAV BCD 12 LAST SAVINGS ACCOUNT NUMBER L PYDLASCHQ BCD 12 LAST CHEQUE ACCOUNT NUMBER j L PYDLASCRD BCD 6 LAST DUMMY CARD NUMBER L
0x0bd928…0bdabc Dummy {f00=0x0020, f01=0x0190, f02=»****************** Z P* P* TWB VARIABLES $ P* < L P************************************************************************ F L PTRM BLK L P*
0x0bdabc…0bdc50 Dummy {f00=0x0020, f01=0x0190, f02=»L FALSE L PSBCANCEL BOOL FALSE ! F L PSB34KB BOOL FALSE 6231 OR 6234 TYPE KEYBOARD ! ( PSBTRMBLK BOOL FALSE TERMINAL BLOCK
0x0bdc50…0bdde4 Dummy {f00=0x0020, f01=0x0190, f02=» ! Z $ PNDTRMLGG BCD 2 TERMINAL LANGUAGE " " PNDTRMNR BCD 4 TERMINAL NUMBER " B L P************************************************************************ " h L P* * " L P
0x0bdde4…0bdf78 Dummy {f00=0x0020, f01=0x0190, f02=» * " X L P************************************************************************ # L PRDTRMRNR BCD 12 RECORD NUMBER # h L PRDUMMY BCD 6 # L P
0x0bdf78…0be10c Dummy {f00=0x0020, f01=0x0190, f02=» # X L P* 0 = TERMINAL NOT SPECIFIED * $ L P* 1 = TERMINAL SPECIFIED * $ h L P* 2 = TERMINAL STARTED * $ L P
0x0be10c…0be2a0 Dummy {f00=0x0020, f01=0x0190, f02=»FKB BCD 2D'0' ALPHANUMERIC KEYBOARD $ L PRDSHRPRT BCD 2D'0' SHARED PRINTER % L L PRDPRTTYP BCD 2D'0' PRINTER TYPE % L PRDBCR BCD 2D'0' BADGE CARD R
0x0be2a0…0be434 (4, 52) Dummy {f00=0x0020, f01=0x0190, f02=»RNR BCD 6 OPERATOR NUMBER % L P************************************************************************ & " P* & r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES & | P* & L P************************************************************************ &
0x0be434…0be5c8 Dummy {f00=0x0020, f01=0x0190, f02=»W'0' & PSPBINW2 BIN W'0' ' PSPBINW3 BIN W'0' ' $ PSPBINW4 BIN W'0' ' < . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES ' T PWW1 BIN ' PWW2 BIN ' PWWINDEX1 BIN ' PWWINDEX2 BIN ' PWWCOUNT BIN ' PWDEC1 BCD 12 ' PWDEC2 BCD 12 ' &
0x0be5c8…0be75c Dummy {f00=0x0020, f01=0x0190, f02=»****************************************************** ' ~ L P* * ( > 6 P* MISCELANEOUS RESERVED VARIABLES AND I/O-BUFFERS ( L P*
0x0be75c…0be8f0 Dummy {f00=0x0020, f01=0x0190, f02=»FALSE UWB USED ( " P* RESERVED VARIABLES FOR XBFMT ) 0 PNWTOTBYT BIN BYTES TO BE PROCESSED (XBFMT) ) < $ PNWPTR BIN MATCH POINTER (XBFMT) ) p $ P* RESERVED VARIABLES FOR BESELF ) ( PNWKTBIX BIN KEYTABLE INDEX (BESELF) ) P* SWITCHES USED BY BESELF )
0x0be8f0…0bea84 Dummy {f00=0x0020, f01=0x0190, f02=»CH (BESELF) ) r PSBCARD BOOL FALSE * 2 PSBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF) * . 0 PSBOPRCLS BOOL FALSE OPERATOR CLOSE (BESELF) * d 0 P* VARIABLES RESERVED FOR THE PRINT ROUTINES * . PSBFIL24 BOOL FALSE )CONTROL POSITIONING OF * ( PSBFIL20 BO
0x0bea84…0bec18 Dummy {f00=0x0020, f01=0x018e, f02=» BCD 12 NEXT TRS. FOR PRINT (PRT RT'S) * , PVCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER + . ( PSBFIL1 BOOL FALSE ***************** + ^ $ PSBFIL2 BOOL FALSE FILLERSIZE IN + $ PSBFIL3 BOOL FALSE TITLE LINE OF + ( PSBFIL4 BOOL FALSE TP71 DEMONSTATION + ( PSB
0x0bec18…0bedac Dummy {f00=0x0020, f01=0x0190, f02=» PWC2STRG8 STRG 8 , PWCSTRG12 STRG 12 , PWCSTRG25 STRG 25 , 4 L P************************************************************************ , L P* , P* I/O-BUFFERS , P* , L P******************************************************************
0x0bedac…0bef40 Dummy {f00=0x0020, f01=0x0190, f02=» * , f L P* IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE * - & L P* BUFFER 'FCFORMAT'. * - v L P* IF THEN THE FORMAT MUST BE SPLIT INTO PARTS 'FCFMTBUF' IS USED
0x0bef40…0bf0d4 (4, 53) Dummy {f00=0x0020, f01=0x0190, f02=» BUFFERS MAY NOT BE USED!!! * - f L P* 'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE, * . & L P* TO READ ERRORS AND MESSAGES FROM THE FORMAT FILE OR TO * . v L P* READ PRINT FORMATS FROM THE FORMAT FILE.
0x0bf0d4…0bf268 Dummy {f00=0x0020, f01=0x0190, f02=»MSG'S . f $ PFCFMTBUF STRG 255 FORMAT BUFFER / $ PFCFORMAT STRG 800 FORMAT STORAGE / 6 2 PFCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOISE / ^ L P************************************************************************ / L PUIF BLK
0x0bf268…0bf3fc Dummy {f00=0x0020, f01=0x0190, f02=»************************************************************ / L P* * 0 D L P* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPPL * 0 L P*
0x0bf3fc…0bf590 Dummy {f00=0x0020, f01=0x0190, f02=»FALSE START OPERATOR 0 L PSBOACT BOOL FALSE OPEN ACCOUNT 1 D L PSBCACT BOOL FALSE CLOSE ACCOUNT 1 L PSBBACT BOOL FALSE BLOCK ACCOUNT
0x0bf590…0bf724 Dummy {f00=0x0020, f01=0x0190, f02=»FALSE UPDATE ACCOUNT 1 L PSBUCCY BOOL FALSE UPDATE CURRENCY 2 D L PSBQACT BOOL FALSE INQUIRY ACCOUNT 2 L PSBDSTM BOOL FALSE DAYLY STATEMENTS
0x0bf724…0bf8b8 Dummy {f00=0x0020, f01=0x0190, f02=»FALSE SYSTEM CLOSE 2 L PSBECCY BOOL FALSE CURRENCY EXCHANGE 3 D L PSBQCCY BOOL FALSE CURRENCY INQUIRY 3 L PSBLACT BOOL FALSE LIST ACCOUNTS
0x0bf8b8…0bfa4c Dummy {f00=0x0020, f01=0x0190, f02=» 3 L L PIDACTNR1 BCD 12 4 L PIDACTNR2 BCD 12 4 L PIDAMT1 BCD 12 4 L PIDAMT2 BCD 2
0x0bfa4c…0bfbe0 Dummy {f00=0x0020, f01=0x0190, f02=» 4 L PIDNR2 BCD 12 5 PIDNR3 BCD 12 5 PIDNR4 BCD 12 5 4 PICSTRG1 STRG 1 5 H PICTEXT1 STRG 6 5 ^ PICTEXT2 STRG 25 5 t PICTEXT3 STRG 4 5 L PICDUMMY STRG 5 5 L P**********************
0x0bfbe0…0bfd74 (4, 54) Dummy {f00=0x0020, f01=0x018e, f02=»******************** 5 L P* * 6 L P* CURRENCY RECORD * 6 l L P* * 6
0x0bfd74…0bff08 Dummy {f00=0x0020, f01=0x0190, f02=» 6 " PCCCCYNME STRG 20 CURRENCY NAME 7 " PCCCCYCDE STRG 4 CURRENCY CODE 7 . PCDBUY1 BCD 8 BUYING RATE 1 7 T PCDBUY2 BCD 8 BUYING RATE 2 7 v PCDSEL1 BCD 8 SELLING RATE 1 7 PCDSEL2 BCD 8 SELLING RATE 2 7 " PCDLIMIT BCD 12 LIMIT OF RATE 1 7 PCD
0x0bff08…0c009c Dummy {f00=0x0020, f01=0x0190, f02=» 7 t L P* * 8 4 L P************************************************************************ 8 L P*
0x0c009c…0c0230 Dummy {f00=0x0020, f01=0x0190, f02=» * 8 t L P************************************************************************ 9 4 L PODOPRRNR BCD 12 RECORD NUMBER 9 L PODUMMY BCD 6
0x0c0230…0c03c4 Dummy {f00=0x0020, f01=0x0190, f02=» 9 t L PODSTATUS BCD 2 : 4 L P* 0 = OPERATOR NOT IN USE * : L P* 1 = OPERATOR INITIALISED
0x0c03c4…0c0558 Dummy {f00=0x0020, f01=0x0190, f02=»R : t L PODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR ; 4 L PODCASH BCDI (3,5)12 BALANCES AND ACCUMULATORS ; L P* USAGE AS FOLLOWS:
0x0c0558…0c06ec Dummy {f00=0x0020, f01=0x0190, f02=» * ; t L P* 1,3 : BALANCE CURRENCY 3 * < 4 L P* 1,4 : BALANCE CASH * < L P* 1,5 : UNUSED
0x0c06ec…0c0880 Dummy {f00=0x0020, f01=0x0190, f02=»ERS * < t L P* 2,3 : ACCUMULATED DEPOSITS * = 4 L P* 2,4 : ACCUMULATED WITHDRAWALS * = L P* 2,5 : UNUSED
0x0c0880…0c0a14 (4, 55) Dummy {f00=0x0021, f01=0x0190, f02=»CY 2 - BOUGHT AND SOLD * = t L P* 3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SOLD * > 4 L P* 3,4 : ACCUMULATED CURRENCY SOLD - LOCAL VALUE * > L P* 3,5 : ACCUMULATED CURRENCY BOUGHT - LOCAL VALUE
0x0c0a14…0c0ba8 Dummy {f00=0x0021, f01=0x0190, f02=» > t L P* * ? 4 0 PSBCHQACT BOOL FALSE IS ACCOUNT A CHEQUE ACC ? L P************************************************************************ ? L P
0x0c0ba8…0c0d3c Dummy {f00=0x0021, f01=0x0190, f02=» * ? X L P* * @ L P************************************************************************ @ h L PADACTRNR BCD 12 RECORD NUMBER @ L P
0x0c0d3c…0c0ed0 Dummy {f00=0x0021, f01=0x0190, f02=» @ X L PACADDRES STRG 20 A L PACTOWN STRG 20 A h L PACPASS STRG 6 PASSWORD A L P
0x0c0ed0…0c1064 Dummy {f00=0x0021, f01=0x0190, f02=» * A X L P* 1 = BLOCKED * B L P* 2 = CLOSED WITHOUT STATEMENT * B h L P* 3 = CLOSED WITH STATEMENT * B L P
0x0c1064…0c11f8 Dummy {f00=0x0021, f01=0x0190, f02=» B X L PADLASTRS BCD 12 LAST TRANSACTION C L PADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED C h ( PADLNENR BCD 4 LAST USED LINE IN BOOK C L PADDEPCUM BCD 12 ACCUMULATED DEPOSITS
0x0c11f8…0c138c Dummy {f00=0x0021, f01=0x018e, f02=» 12 LAST TRANSACTION SEQUENCE NR. C ( PACRECNR STRG 3 INDEX 2 FOR DATABASE D * L P************************************************************************ D V L PUA2 BLK D L P*
0x0c138c…0c1520 Dummy {f00=0x0021, f01=0x0190, f02=» D F L P* * E L P* ACCOUNT RECORD 2 * E X L P* * E L P****************
0x0c1520…0c16b4 (4, 56) Dummy {f00=0x0021, f01=0x0190, f02=» E H L PBDCARDNR BCD 6 CARD NUMBER F L PBCNAME STRG 20 F X L PBCADDRES STRG 20 F L PBCTOWN STRG 20
0x0c16b4…0c1848 Dummy {f00=0x0021, f01=0x0190, f02=» F H L PBDSTATUS BCD 2 G L P* 0 = DEBLOCKED * G X L P* 1 = BLOCKED * G L P* 2 = CLOSED W
0x0c1848…0c19dc Dummy {f00=0x0021, f01=0x0190, f02=» G H L PBDBAL BCD 12 BALANCE H L PBDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE H X L PBDLASTRS BCD 12 LAST TRANSACTION H L PBDSTMTRS BCD 12
0x0c19dc…0c1b70 Dummy {f00=0x0021, f01=0x0190, f02=» H H L PBDDEPCUM BCD 12 ACCUMULATED DEPOSITS I L PBDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS I X 2 PBDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. I L P******************************************
0x0c1b70…0c1d04 Dummy {f00=0x0021, f01=0x0190, f02=» * I ~ L P************************************************************************ J > L P* * J L P* TRANSACTION RECORD 1
0x0c1d04…0c1e98 Dummy {f00=0x0021, f01=0x0190, f02=»****************************************************** J ~ L PTDTRSRNR BCD 12 RECORD NUMBER K > L PTDUMMY BCD 6 K L PTDTRSCDE BCD 4 TRANSACTION CODE
0x0c1e98…0c202c Dummy {f00=0x0021, f01=0x0190, f02=»MINAL NUMBER OF ISSUE K ~ L PTDOPRNR BCD 12 OPERATOR NUMBER L > L PTDTRSSEQ BCD 12 SEQUENCE NUMBER L L PTDAMOUNT BCD 12
0x0c202c…0c21c0 Dummy {f00=0x0021, f01=0x0190, f02=»COUNT FROM L ~ L PTDCHQNR BCD 8 CHEQUE NUMBER M > L PTCTEXT STRG 20 M L P******************************************
0x0c21c0…0c2354 (4, 57) Dummy {f00=0x0021, f01=0x0190, f02=» * M ~ L P************************************************************************ N > L P* * N L P* TRANSACTION RECORD 2
0x0c2354…0c24e8 Dummy {f00=0x0021, f01=0x0190, f02=»****************************************************** N ~ L PUDTRSRNR BCD 12 RECORD NUMBER O > L PUDUMMY BCD 6 O L PUDTRSCDE BCD 4 TRANSACTION CODE
0x0c24e8…0c267c Dummy {f00=0x0021, f01=0x0190, f02=»MINAL NUMBER OF ISSUE O ~ L PUDOPRNR BCD 12 OPERATOR NUMBER P > L PUDTRSSEQ BCD 12 SEQUENCE NUMBER P L PUDAMOUNT BCD 12
0x0c267c…0c2810 Dummy {f00=0x0021, f01=0x0190, f02=»COUNT FROM P ~ L PUDCHQNR BCD 8 CHEQUE NUMBER Q > L PUCTEXT STRG 20 Q L P******************************************
0x0c2810…0c29a4 Dummy {f00=0x0021, f01=0x0190, f02=»****************************************** Q r PCK1 BLK R 2 P* R B PKW0 BIN W'0' R L PKW1 BIN W'1' R ` PKW2 BIN W'2' R t PKW3 BIN W'3' R PKW4 BIN W'4' R PKW5 BIN W'5' R PKW6 BIN W'6' R , PKWFMTLNG BIN W'255' FORMATRECORD LENGTH R ( P
0x0c29a4…0c2b38 Dummy {f00=0x0021, f01=0x0190, f02=» TO GET RECORD NUMBER R x PNDDATE BCD 8 S PNDTIME BCD 8 S 2 PVCTIME STRG 6 S F L P************************************************************************ S P* S , P* COMMON WORK-BLOCK CONTAINING CONSTANTS S P* S L P************************
0x0c2b38…0c2ccc Dummy {f00=0x0021, f01=0x0190, f02=»START BIN W'3' S PKWEND BIN W'4' T PKWEOI BIN W'1' T , PKWCONT BIN W'20' T B PKWCANCEL BIN W'19' T Z PKWCLEAR BIN W'21' T t . P* LENGTH OF THE FUNCTION KEYTABLE 'FNCKTB' T 2 PKWAPLKTB BIN W'22' LENGTH OF FUNCTION KEYTABLE T 0 P* INDICES IN THE S
0x0c2ccc…0c2e60 Dummy {f00=0x0021, f01=0x0190, f02=»LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES T * PKWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 U 2 ( PKWSPKTB3 BIN W'12' LENGTH OF SPKTAB3 U ` , P* 6371 PRINTER PARAMETERS FOR DEMO TP71 U PKCPRTPAR STRGI (21), C U 6 P 4X'9066',4X'9266',4X'9366',4X'9466',4X'956
0x0c2e60…0c2ff4 (4, 58) Dummy {f00=0x0021, f01=0x0190, f02=»044',4X'9055',4X'9055',4X'9066',4X'9044', C U P 4X'9A66' V 4 L P************************************************************************ V F P* V & P* MISCELANEOUS RESERVED VARIABLES V P* V L P****************************************************
0x0c2ff4…0c3188 Dummy {f00=0x0021, f01=0x0190, f02=» P* SWITCHES USED BY XAKBIN W . PSBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN) W & P* SWITCHES USED BY DPECCY W X 4 PSBEOI BOOL FALSE AMT. QUOTED IN SY.CCY (DPECCY) W z 0 PSBCCYIN BOOL FALSE CURRENCY BUYING (DPECCY) W 2 PSBCCYKTB BOOL FALSE USE CCY KEYTAB
0x0c3188…0c331c Dummy {f00=0x0021, f01=0x0190, f02=»IS A DEPOSIT (DKDSTM) W v 6 PSBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) X 4 PSBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM) X X 4 PSBDSTRF BOOL FALSE TRANS. IS A TRANSFER (DKDSTM) X P* VARIABLES USED BY ZDSCIO X & PNWXSTAT BIN EXTENDED STATUS C
0x0c331c…0c34b0 Dummy {f00=0x0021, f01=0x413c, f02=» NUMBER (ZDSCIO) X t * PNDLRN3 BCD 12 LOGICAL REC.NR. (ZDSCIO) Y 6 PSBNOCOPY BOOL FALSE COPY NOT FROM/TO UWB (ZDSCIO) Y F 6 PSBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO) Y L P************************************************************************ Y
0x0c34b0…0c3644 Dummy {f00=0x0021, f01=0x2008, f02=» Z 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
0x0c3644…0c37d8 Dummy {f00=0x0021, f01=0x0190, f02=» Z I t a . " z m ! 8 W + , 7 d f1010313801100033000000 2 4 6 y k Y 9 %c &d Y 9 l 1 a "2 12 @ *
0x0c37d8…0c396c Dummy {f00=0x0021, f01=0x0190, f02=»9 l 4 W X Y 9 a S (R) W X 0 "0 #0 $0 &0 (0 *0 ,0 .0 10 40 70 :0 >0 B ( = T l ! - $ x x az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x0c396c…0c3b00 Dummy {f00=0x0021, f01=0x0190, f02=» P ) 8 8 D H LIQ (S#(~@ a(W )S#)~4 a)Aa u bI2$HQ RHT a +R + W ` @a4 % { # | A I2 I W C* W C 4 Ab v 2I28 +R + @b SH ( T I2 ! T #:R I2 I W 4 ! R Ac wW Ad x k 8I2 +R + +! R RW
0x0c3b00…0c3c94 (4, 59) Opaque[0x194]
0x0c3c94…0c3e28 # DirEnt {nam=»DEMO «, typ=»LM«, f00=0x8487, f01=0x5ae2, f02=0x0440, f03=0xfe00}
0x0c3c94…0c3e28 IdxSect {
0x0c3c94…0c3e28 f00 = 0x0022 // 0xc3c94 @0x0
0x0c3c94…0c3e28 f01 = 0x001c // 0xc3c96 @0x2
0x0c3c94…0c3e28 gno = [ // 0xc3c98 @0x4
0x0c3c94…0c3e28 [0x00]: C0x0022.0x0.0
0x0c3c94…0c3e28 [0x01]: C0x0022.0x1.0
0x0c3c94…0c3e28 [0x02]: C0x0022.0x2.0
0x0c3c94…0c3e28 [0x03]: C0x0022.0x3.0
0x0c3c94…0c3e28 [0x04]: C0x0023.0x0.0
0x0c3c94…0c3e28 [0x05]: C0x0023.0x1.0
0x0c3c94…0c3e28 [0x06]: C0x0023.0x2.0
0x0c3c94…0c3e28 [0x07]: C0x0023.0x3.0
0x0c3c94…0c3e28 [0x08]: C0x0024.0x0.0
0x0c3c94…0c3e28 [0x09]: C0x0024.0x1.0
0x0c3c94…0c3e28 [0x0a]: C0x0024.0x2.0
0x0c3c94…0c3e28 [0x0b]: C0x0024.0x3.0
0x0c3c94…0c3e28 [0x0c]: C0x0025.0x0.0
0x0c3c94…0c3e28 [0x0d]: C0x0025.0x1.0
0x0c3c94…0c3e28 ]
0x0c3c94…0c3e28 }
0x0c3e28…0c3fbc Dummy {f00=0x0022, f01=0x0190, f02=»3x hc *CR4 D D D I D N FD S D Y D _ &D d n " p + 1 b 0 p
0x0c3fbc…0c4150 Dummy {f00=0x0022, f01=0x0190, f02=» N V 2 r A0 0 * V 8 |UBF UIF zUCY UOP UA1 NUA2 UT1 UT2 UQQ
0x0c4150…0c42e4 Dummy {f00=0x0022, f01=0x0190, f02=» 0 f B n N 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0
0x0c42e4…0c4478 Dummy {f00=0x0022, f01=0x0190, f02=»0 0 0 >
0x0c4478…0c460c Dummy {f00=0x0022, f01=0x0190, f02=»
[…0x2…]
0x0c4934…0c4ac8 Dummy {f00=0x0022, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0
0x0c4ac8…0c4c5c Dummy {f00=0x0022, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x0c4c5c…0c4df0 Dummy {f00=0x0022, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x0c4df0…0c4f84 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 D D U U f D f >
0x0c4f84…0c5118 Dummy {f00=0x0022, f01=0x0190, f02=» 3x ^ h 5 3t N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3+ . + + $ c Bcl*:, - * - - - ) . + - + , + - - 2 -(+ ,Z,H) x( < d N v
0x0c5118…0c52ac Dummy {f00=0x0022, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x0c52ac…0c5440 Dummy {f00=0x0022, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x0c5440…0c55d4 (4, 61) Dummy {f00=0x0022, f01=0x0190, f02=» N P R T V 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 % + 1 7 =
0x0c55d4…0c5768 Dummy {f00=0x0022, f01=0x0190, f02=» K ! R 6 6 6 F 8 1 Y 4 6 #0 J 6 & + P _ K 4 6 #0 0T & ! T P & ! X T C 4 | P Y ( x P Y * x y Wv X " X X . 8 )@ X 0P X T
0x0c5768…0c58fc Dummy {f00=0x0022, f01=0x0190, f02=» ( B Ph9 R^9 ~ X !@PP X X * b ) Y * Y , X , x X *YrP y X " x Y X " T Y _ _ B U C Q C D $ & 6 H X X * $" ~_> @ Y X * R_R X !@XX y X # x V y X X * , P P 1 _ 1
0x0c58fc…0c5a90 Dummy {f00=0x0022, f01=0x0190, f02=» " P y _ x T H P X H X X * , )$ P _ : | ' Y 6 y x C y X C C X ( x Tf B 9 R 9 ~ X ! T _ y C Q " T P , X ! h X X ! x Y~ Y _ X
0x0c5a90…0c5c24 Dummy {f00=0x0022, f01=0x0190, f02=» y $ c )* C _$ _ 8 y _6 x X@ X X # , C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x h x X X # ,_ B 4 C : + P X , ( ) 6 ( ) ( : B x C _J
0x0c5c24…0c5db8 Dummy {f00=0x0022, f01=0x0190, f02=»6 $ : ! P # P J : )@ 2! K Y " ) 6 ) 6 !0 J ; )@ X "T X )* 2 )6 )@ 6 !0 J X )< )( ) ' 6 ! Y 0T V ) ; : )@ 2' K 6 " P # P
0x0c5db8…0c5f4c Dummy {f00=0x0022, f01=0x0190, f02=» X :c 2" K H ):@ W W W W W W W )@ Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 W U X Q ! W Y 0 "P / /& )@ 9H Y * W W /& X 0T K X 2Z X +" X *9h P: R Y >_ P R
0x0c5f4c…0c60e0 Dummy {f00=0x0022, f01=0x0190, f02=» W Y ( C )@ X *! P V L ! )< 4 X 0 Y 8 > P ) Y 0 X 0 X 2] X 8 Y 0 > : X 0 :H* )H : X 2T Y 2 : C 1 B ] /J : X +! K X +! U 9K Y ( Y + "P )@9H Y * 2 Y ( Y > Y + 6 4 0 5
0x0c60e0…0c6274 (4, 62) Dummy {f00=0x0022, 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
0x0c6274…0c6408 Dummy {f00=0x0022, 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
0x0c6408…0c659c Dummy {f00=0x0022, 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 ,
0x0c659c…0c6730 Dummy {f00=0x0022, 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 $
0x0c6730…0c68c4 Dummy {f00=0x0022, 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
0x0c68c4…0c6a58 Dummy {f00=0x0022, 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
0x0c6a58…0c6bec Dummy {f00=0x0022, 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
0x0c6bec…0c6d80 Dummy {f00=0x0022, 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
0x0c6d80…0c6f14 (4, 63) Dummy {f00=0x0023, f01=0x0190, f02=» 5 &:K : -</ .b -</ 2v .b -</ _ _. -</ .b -< C ( B B @ C ( ( B B C C ( C C .t / 2v C <H / .^ / C _ -< ( C
0x0c6f14…0c70a8 Dummy {f00=0x0023, f01=0x0190, f02=» "!@ K : / 0L C C W 0X C C J- ' W 781"&$ 39#$;< '()*+,-! 0X 0 0< 6 P _D / B 6 'W / ( Wb 6 0L / ( 1W" C C C " K ( ' P. . P$ "! P 2HW
0x0c70a8…0c723c Dummy {f00=0x0023, f01=0x0190, f02=»/ C . C B B P C /J : "!@T K( V I C B : ( ' P / I : / 0< % Y 6 C 6 & J J C 6 "!@ K : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D 8 W.' #?
0x0c723c…0c73d0 Dummy {f00=0x0023, f01=0x0190, f02=» W $0 P J C 0 : C "!@P ") # B C B % C : 5 #0 T & C C : 0 C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W J B B " 1j :
0x0c73d0…0c7564 Dummy {f00=0x0023, f01=0x0190, f02=» & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 2D 5 #0 T B ' : J B B 1j : 5 P C #0 T & C C : J 0 C C : / 3 6 #0 TX &RX &P C 0 / "!@P K( .Z / 3 0 / "
0x0c7564…0c76f8 Dummy {f00=0x0023, f01=0x0190, f02=»5 4 4 4 4 )p W V 7 @ L! P )l P W 3 @3rR J N 4 pVP 9c D3$ 6 5 Q 32W : :aW, @3rYRP I @3r]^ JH @3r]h I _n K( 2 P V W< _ 2 # ;B 5p V T W V P L , V
0x0c76f8…0c788c Dummy {f00=0x0023, f01=0x0190, f02=» D $ V 6 V % V E @ P' T 2 % 7_ 2 # PH L PB 6 2" &] Y $! 6P Q $ T 9BP 4R _ _ W 4 6 @ P" T 7 $ V P )l W _ 2 3 8 V & 4> H3r 'W 'W '_6 8 @ < D
0x0c788c…0c7a20 Dummy {f00=0x0023, f01=0x0190, f02=» V, W # 8z L5 E V $ W D V L5 , W 6 2 8 W$ " P& Pd" # 8z ;b Wv " ;d# _ [ v [ ) 6 ) Z Z : R ; 6 6 : F _v J :B , (V
0x0c7a20…0c7bb4 (4, 64) Dummy {f00=0x0023, f01=0x0190, f02=» & J J & Z 4 8 : Z 4 " 2@P : [ [ 6 & @ N! P J Z J [ 6 [ Z 7 6 Z 7 : ( :A ( @ P" P ! P [ :;H 2 6 7 ;h 8 : ; V Y
0x0c7bb4…0c7d48 Dummy {f00=0x0023, 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
0x0c7d48…0c7edc Dummy {f00=0x0023, 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
0x0c7edc…0c8070 Dummy {f00=0x0023, 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 : J &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y
0x0c8070…0c8204 Dummy {f00=0x0023, f01=0x0190, f02=»V S W P 9 S W _ V P W T V E + : & 6 J [ [ [ [ $ [ [ >h [ [ AZ; AZ; AZ9, Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P AZ9& V H )_ AZ> _X z
0x0c8204…0c8398 Dummy {f00=0x0023, f01=0x0190, f02=» 0 J !0 J " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 J [ [ [ [ $ [ [ &! P A0 AZ; AZ; AZ9,
0x0c8398…0c852c Dummy {f00=0x0023, f01=0x0190, f02=» [ Q@ [ AZ9, { R [ _ AZ9& AZ> Z ! Z $ Z %_N [ Q* AZ9& AZ; R [ Z { AZ9& z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x0c852c…0c86c0 Dummy {f00=0x0023, 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 J 7_ Z Cx @ L!
0x0c86c0…0c8854 (4, 65) Dummy {f00=0x0023, f01=0x0190, f02=» J Qx : Pn 4 ! Th_ PX 4 WT K D WJ C W +_ C C K W. _& X / W X & / J K : V : J T J 1 : + 6 [ [ < !AAP !TTT W !**T * [ R !FFP !EET W IE 6 * B Z 9
0x0c8854…0c89e8 Dummy {f00=0x0023, f01=0x0190, f02=» !00T ; D" _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? J Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W D 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 C E : ! P ! P
0x0c89e8…0c8b7c Dummy {f00=0x0023, f01=0x0190, f02=» : : : H BD : { : H $0T G Pb 9 _ H $0T [ H $0T Z : R$ P $ 1T Y TdW 5 _& : H $0TH $ R W R # P W ) V E H $0T Wr W
0x0c8b7c…0c8d10 Dummy {f00=0x0023, f01=0x0190, f02=» ; : 6 6 #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : H 5 #03 T $_X H _^ W K( H p *1 TID ADDR OP CR LVL MODIFIED OPERAND
0x0c8d10…0c8ea4 Dummy {f00=0x0023, f01=0x0190, f02=»H ( AH AH ( H p AH ) Y V AH H V V N . 1 V M v M AH : I.W I. 2 H M @ P# T R M 6 N & M I*Q H AH W> I. H V D ! )0 1 @ P# T 6 V
0x0c8ea4…0c9038 Dummy {f00=0x0023, f01=0x0190, f02=» W< W8 W4 W0 W, W( W$ W W W W W W W W W I. ** AH AH ER AH R AH H M K R 4 M 4 $ AH H U 4 - _ J H @H Oj 3 ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING
0x0c9038…0c91cc Dummy {f00=0x0023, f01=0x0190, f02=»X TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CH
0x0c91cc…0c9360 Dummy {f00=0x0023, f01=0x0190, f02=»LS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W ^ <a R 9a V NX : K( @NVP ( _ @P P @P Pj Pf O V $ $T$ D BR V T D P T D @PL E @W . @PXP$ O PZ $ $P BT , D
0x0c9360…0c94f4 (4, 66) Dummy {f00=0x0023, f01=0x0190, f02=»NX TB( R4 : TB( S$ : AP AP E ANV P V AP @ L# P ( R4 P TB( R@( ANV P @P V P ( R W :
0x0c94f4…0c9688 Dummy {f00=0x0023, f01=0x0190, f02=»LS DISC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W ^ <a R 9a V : K( @NVP ( _ @ P @ P P V $ $T D R V T D P T D P E W . @ P P
0x0c9688…0c981c Dummy {f00=0x0023, f01=0x0190, f02=» b ( Q b& * D "! AR bB b" @P @P @R P ( Q V a R Q V W Z TQ _" = bB T Q a b b"W a , bB 9a b @R P b< b b" b8 P a @P P b @P a AP AR c` AR "V # ( Q b& AR P
0x0c981c…0c99b0 Dummy {f00=0x0023, f01=0x0190, f02=» b" b4_ S a _ NO! AS AS AS AS AS AS AS AS AS AS AS AS AS AS ]ZP AS AS _ T@ U ,T` +T -T ;T :U (T .U Q aPX " , AS L AS L @ AS AS _T ]Z X ,T ]Z X ) AS AS bV _ T
0x0c99b0…0c9b44 Dummy {f00=0x0023, f01=0x0190, f02=»P AS AS " S @S a S$T @R AS @R& AS @R, AS @R2 AS @S A` @S AR, @S AR2 @S AR&P ` W @S T @S Z X @` AR b@ W W b0W 0 b& A` b W b A` A` @` a W bB @R, AS @R& AS _x Q AR PZ @S & b@ 0 a P P b8
0x0c9b44…0c9cd8 Dummy {f00=0x0023, f01=0x0190, f02=» @R b< b W b b" b" B "T" @R AS @R$ AS @R* AS @R0 AS W @S T @S W @S @S @S R X >a A` AR* @S AR0 b& @S AR$P ` W @S T @S Z X A` @c` S$ @` AR b a b `( b b ` a Aa S$ @S R V ;a Q b&_
0x0c9cd8…0c9e6c Dummy {f00=0x0023, f01=0x0190, f02=» S$T @R AS @R" AS @R( AS @R. AS @S A` @S AR( @S AR. @S AR"P ` W @S T X @S V @` AR 0 b b" S P S @S P @S 1 S$ b0 b A` @` a b@ @R( AS @R" AS _ @R P @S V @P ( S V " @S T @P _VTP @S P @S A` A
0x0c9e6c…0ca000 Dummy {f00=0x0023, f01=0x0190, f02=»P2 U Y &9d! ) Z W P$ &9d Z & Z _ Y & Z S$ S AZ AZ b& @c`Z b " ! U 0 AZ U Y _ a "P` @S @S T @P ^ PF R % < < b@ ! b b" S T @S P @S ! 5 = S$ S S S$P @S
0x0ca000…0ca194 (4, 67) Dummy {f00=0x0024, 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 "
0x0ca194…0ca328 Dummy {f00=0x0024, 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
0x0ca328…0ca4bc Dummy {f00=0x0024, 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
0x0ca4bc…0ca650 Dummy {f00=0x0024, 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
0x0ca650…0ca7e4 Dummy {f00=0x0024, 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 :
0x0ca7e4…0ca978 Dummy {f00=0x0024, 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
0x0ca978…0cab0c Dummy {f00=0x0024, 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
0x0cab0c…0caca0 Dummy {f00=0x0024, 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 %
0x0caca0…0cae34 (4, 68) Dummy {f00=0x0024, f01=0x0190, f02=» p I2}W I2vHV W`!S )R WT)R WL!R )R W@6R $(,0!_l W* W& W" !W "W #W $W %W &W 'W (W )!R !"T ) S ? 4 "R s0 ^ I2 *I2 0 ^ I2 1% +H2 "m4 R I2`I , - I2T I2O +I2JW !"T "R .I2< "R %1 I20 - I2) s Z b Z 0
0x0cae34…0cafc8 Dummy {f00=0x0024, f01=0x0190, f02=») R S !S IQ IR IT IS~W HUy) R R IQpW ) R S HQ ISbIR_IT HUY) R R IRPW ) R S HR ITBHU?) R R IS6W ) R R IT+W ) R S HT IR IQ HU ) R T HT HQ ) R R HU W 4 [ / t ? [ x h B B 8 ) M ~ N
0x0cafc8…0cb15c Dummy {f00=0x0024, f01=0x0190, f02=» O * FORMAT FILE VOLUME NAME ? DSC O DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA BASE VOLUME NAME ? DSC 0 0 0 0 0 0 0 0 0 0 0 0 ( ) - E V Z 0
0x0cb15c…0cb2f0 Dummy {f00=0x0024, f01=0x0190, f02=» ~ )R IT ? HT (H2 ? H6 F I6 (A - _ HQ ? (H2 ? )R )ap !:S !&R ? ? %as %at %au %aw %ax %ay W )R (a= AVW a W a I2 H a a a% S$H1 !R ! T !R !:S I IR W I2 W ! p !R !R H1 !R !R Wy)R ) p_)R #:R?)R HQ H G!R !R !R
0x0cb2f0…0cb484 Dummy {f00=0x0024, f01=0x0190, f02=» ? 4 )R !_o !_m !_n Wo):pwW %7]q)R %7]i)R !8paHT !;pZ(R !;RR)R HQ !<pG%R #R %:S I5 H1/)R H1()R !S H1 )R #)R !S IU I5 H1 W W , W . 4 0 0 0 0R JP !0 ? #0 ? "RAj R A I2 u Ip Jp ep fp gp hp ap bp cp dp Dj0 D P
0x0cb484…0cb618 Dummy {f00=0x0024, f01=0x0190, f02=» e f g h a b c d A BI2 +R + "T I2 I2 W "S @j4 )"R S pS pY p p I21I !"R Af I2 #Ss p )"R S S 8W +R +@f4 kr ct du cv dw l#S y l# x 4 %yR #yt W C 4 !up $tu C$W%#up #wp xpW>#
0x0cb618…0cb7ac Dummy {f00=0x0024, f01=0x0190, f02=»W 4 #tp C W uq%7T 0 0 4 #vp C W wq%7U 0 0 4 )"Rb R A I2 u Di0 D P 0 Dk0 DT/ WX0 e e eu/#ev p I2;_? I21_I er I2&!ep" ep !I2 !eR "I2 W R "R/4 eR)ep !"R3%eu"#ev e I2 I !8
0x0cb7ac…0cb940 Dummy {f00=0x0024, f01=0x0190, f02=» B B N 3 H 634463466371 0 0 0 0 0 0 0 "0 %0 (0 , 6 ~ 6 ~ 6 ct du cv dw l#S y l# x 4 %yR #yt W C 4 !up $tu C$W%#up #wp xpW>#
0x0cb940…0cbad4 (4, 69) Dummy {f00=0x0024, f01=0x0190, f02=» F : > B E I2 D" Vz0 VD0 Dl0 D Di D im XR YS ZU in [T V ]W ^ DF D _0 ^ # a0 ^ ko kt ks kr ku kw kp kv kx ky kq % Dj D Di D cW !dV #eT im $fU "gS0 4 E D E0 D
0x0cbad4…0cbc68 Dummy {f00=0x0024, f01=0x0190, f02=»A A o A c(A A ` A T A A ae aI *a( W *a) eSW ae eS_ a Dk E j E 0 D T 0 # R 1 _z +R +W A2@m4 IQ (S#( @ a(W )S#) 4 a)Aa ~ bI2$HQ RHT a +R + W ` @a4 % # A I2 I W C* W C 4 Ab 2I2
0x0cbc68…0cbdfc Dummy {f00=0x0024, f01=0x0190, f02=» @d@c4 Ag | eR 6I2D!e{3 } I2,H eR 7I2 !e{ _& 1 I2 +R + @g4 AeI1 ;I2 W <I2k +R + + RH1 ( WR " X W S I2$ I2 ! S W @e4 I I(
0x0cbdfc…0cbf90 Dummy {f00=0x0024, f01=0x0190, f02=» 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 "2 12 @ k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO
0x0cbf90…0cc124 Dummy {f00=0x0024, f01=0x0190, f02=» 4 < D L T d0 z0 {0 }0 0 0 0 0 0 0 0 0 0 y 1 j . . eI1 ;I2 W <I2k +R + + RH1 ( WR " X W S I2$ I2 ! S W @e4 I I(
0x0cc124…0cc2b8 Dummy {f00=0x0024, f01=0x0190, f02=» Ah s ba !bn' ):n D" Vm0 VD0 Dk0 D D W !&n W C I2 #bn# ax aS"a) a I2 J T aIS W @S AS k #bn )&R 1 W 1 W Te T1 TqA U U U I I20H U_ #bn !&R H ) S ( T I2 #bn _
0x0cc2b8…0cc44c Dummy {f00=0x0024, f01=0x0190, f02=»W cn d Cj C #bn )&R 0 W 0 W TS T0 @ 4 IR H5 ARW RW X n 3I2V l# +R +HS o I2* I2# -:S IR I I2 W 4 R cR c C$ 4 e C$ 4 HS o %7U 0 0 4 AnIQ SW r nH5 IW 4I2a l#
0x0cc44c…0cc5e0 Dummy {f00=0x0024, f01=0x0190, f02=»U 0 0 W %7V 0 0 I H I I -In Ch 4 anH5 JW 5H2 W a a Z l# p HS o +R + a I20 I2) I2" I2 #:R I I2 W 4 `A%ay #az W C W a I2yH p! Sl!
0x0cc5e0…0cc774 (4, 70) Dummy {f00=0x0024, f01=0x0190, f02=» A` Ka4 %by #bz W C WN(ab CiWB b I24H +! S'! T#! n C)W I I( I C>W W C* 4 Al H5 KW ?I2 +R + @l4 Ak IU I2 !R t ev fwW A u et fu hR jl kl dnA @I2_ hn +R + lj c lk d I Ic cd dIHU-I c Sd c Sd
0x0cc774…0cc908 Dummy {f00=0x0024, f01=0x0190, f02=» *cx gf dfW de0 0 4 @VAi w In Jn H5 LW AI2q I I I J J H5 MW B@2 l# l# l# l# R I2 +R + n 6SW S@i4 ) J M % ] c , V h % d # $ =
0x0cc908…0cca9c Dummy {f00=0x0024, f01=0x0190, f02=»0 %0 '0 )0 +0 -0 /0 10 50 9 0 | | 4H +! S'! T#! n C)W I I( I C>W W C* 4 Al H5 KW ?I2 +R + @l4 Ak IU I2 !R t ev fwW A u et fu hR jl kl dnA @I2_ hn +R + lj c lk d I Ic cd dIHU-I c Sd c Sd
0x0cca9c…0ccc30 Dummy {f00=0x0024, f01=0x0190, f02=» G V V y r r t y % E E Et E 4 D E D E DEt E D 4 qy rr sr tu ut vu wt xt yR y r r r r t t t v v t t t t4 y r r r r t t t v v t t t t4 y t 2 = t t t t t r4 y t 2 = t t t t t r4
0x0ccc30…0ccdc4 Dummy {f00=0x0024, f01=0x0190, f02=»B I2= d ! S ! Z ! { W dx1 T U_F% S I2 Cj C 0 T T 0 4 TR%T} TR) | 0 : I2 I| IT II I4 ):t Dq0 D F 6F ,28>D Ch C 0 W=1 W70 Ci C 0 W 1 W 1 W 1 W 1 W 1 W ):W 4 I5 AY = I2 ):t
0x0ccdc4…0ccf58 Dummy {f00=0x0024, f01=0x0190, f02=»T1 @X@W Tz l# T1 TU0 T1 W Tc0 T1 T T1 W 0 @X@W@Y4 Dk0 D 4 0 4 1 4 I #:R !:R IS Ix IaW IR0 I4 t El R0 E0 Dn0 DX R El H R0 E 0 Dm0 DP H #H:,_! Do0 D * H 0 0 Dp0 D >0 A II2l_K
0x0ccf58…0cd0ec Dummy {f00=0x0024, 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 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i J
0x0cd0ec…0cd280 Dummy {f00=0x0024, f01=0x0190, f02=» $ % 2 4 6 y y k Y 9 %c &d Y 9 l 1 a 4d 4 * = 2 Y 9 S (R) b Y 9 k W X /d s /d .'g 7,c Y 9 l 4 W X Y
0x0cd280…0cd414 (4, 71) Dummy {f00=0x0025, f01=0x0190, f02=»0 30 50 70 90 ;0 =0 ?0 A0 E ( = S k ! - | | 4 0 0 0 0R1HP _ AP0 00 00 00 00 00 00 00 0W 0 4 @P4 R% w R4 R# t v4 @ I IS IS(I A 4 % " ! W 4 3 i J
0x0cd414…0cd5a8 Dummy {f00=0x0025, f01=0x0190, f02=» & " D D 0 4 C C 4 1 W DL Du D 0 D 0 5 6 A _ A A _ A A _#A2 DL0 DD 4 1 4 @ @ I 0 K @A @ )A& A5W A W 0 K @A@ 4 I6 0 @ 0 K @A aKW&0 0 E 0 KEF(E F F _ aK0 4 (
0x0cd5a8…0cd73c Dummy {f00=0x0025, f01=0x0190, f02=» E 6E 0 DW 0 DW 0 D4 H1$H H H H G{ E IH0 ]EI0 F0 FGP I E 0 ]EI0 F0 FGT E E j^ E] H jH ]E H E IH0 ]EI0 F0 FGT E E j^EE] jH ]E H E IH0 ]EI0 F0 FGTo E E @E @Ej^@E] Wa E IH0 EI0 F0 FGP I E 0 EI0 F0 FGT/ E E jH
0x0cd73c…0cd8d0 Dummy {f00=0x0025, f01=0x0190, f02=» Djj D Dkj D Dlj D Dmj D Dnj D Do0 DT 0 W 0 1 A A24 0 P 4 R Dr | J J E j EJ 0 D 0 W j 0 D 0 I2 H I 0 @ 4 0 0 P 0 Dz0 D P 4 I 0 0 0 P @ 4 0 4 A I2 I
0x0cd8d0…0cda64 Dummy {f00=0x0025, f01=0x0190, f02=» D !D D I2 H Dx W P h^PDW P PD0 ] #L]s)LR 0 ] D7 W~ Q FP FQ Q h^QFW T Q 9 H #Qt& HD!d] Q^ f^ Q PQWZ#Qt d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pw D d^PD] 0 ^ P W D W~ Q _ I2 A A H P W A24 W}j] W 0 ] 4 H3 H1 I
0x0cda64…0cdbf8 Dummy {f00=0x0025, f01=0x0190, f02=» d f x ~ + 00DATABA O % m m O FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDFS " $ & ( ) * + ,
0x0cdbf8…0cdd8c Dummy {f00=0x0025, f01=0x0190, f02=» 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$K @AC: A +A p2A !@ B0% C!C 3C 2B C W 0% B)B _S C 0% B!B ) 2B W 0& KAA2A A 4 C #0&
0x0cdd8c…0cdf20 Dummy {f00=0x0025, f01=0x0190, f02=»@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 K BA B B AB A 2A _& BL0 BB A !@ K i0!C0 CC2A A 4 !@ AA? !@ K0!C0 CC? 0& K 6B ).38=BGLQV[`ejoty~ W IK JB%Ij "IJ W C W IK%Ij
0x0cdf20…0ce0b4 (4, 72) Dummy {f00=0x0025, f01=0x0190, f02=» " W # W $ W % W & W ' W ( W I2 6 W B W A B W B 4 IK%IR #Il W C 4 IK%IR #Ik W C 4 [hb[ @K ![h W C 4 A 4 IK#Ij C W 4 4 4 4 4 4 4 4 4 / Y f z | # ' G
0x0ce0b4…0ce248 Dummy {f00=0x0025, f01=0x0190, f02=» 0 E Z q q H v o 1 $ 00o 0 0 0 BL0 BB A !@ K i0!C0 CC2A A 4 !@ AA? !@ K0!C0 CC? 0& K 6B ).38=BGLQV[`ejoty~ W IK JB%Ij "IJ W C W IK%Ij
0x0ce248…0ce3dc Dummy {f00=0x0025, f01=0x4066, f02=» D:UQQ0 D:UQQ0U & " 0 0 0 & :U P@ b F = t > < H IDENT U:UQQ0 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION U:UQQ0 U:UQQ0U ( $
0x0ce3dc…0ce570 Dummy {f00=0x0025, 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 ` * & N D E XQj DEX D' WPj D W r * & D*j D DF0 DP 1 A = A24 0 4 1 T:CAT L T:OPE
0x0ce570…0ce704 Dummy {f00=0x0025, f01=0x018e, f02=» ~ FMOVE T:SETT , T:USE > T:XREA N T:XSTA ` MASK r QEMOVE T:DSC2 , ( ] T:DSC1 T:DSC0 T:TEST
0x0ce704…0ce898 Dummy {f00=0x0025, f01=0x018e, f02=» f T:COMM T:KI T:NKI * T:RREA : T:WRIT L T:RSTA ^ T:IREW p T:IWRI , ( } 0 2 4 6 8 : < > T:ATTF T:GETA T:GETF T:SETC
0x0ce898…0cea2c Dummy {f00=0x0025, f01=0x0190, f02=» T:THOM T:TLDO T:TLEF , T:TRIG > T:TDOW P T:TUP b T:PRIN r , ( P R T V X Z ^ T:DUPL T:EDFL T:TSTC EMPTYT `
0x0cea2c…0cebc0 Dummy {f00=0x0025, f01=0x0190, f02=» * & ! " % & ( ) * - . / 0 1 * & 2 4 5 6 8 9 : ; < > ? @ B D E L * & - F G H I J 1DSC001FORMFILE z * & K & ( ) 0 9 D E F * & i P S9Z99Z9ZZ999ZZZ9999ZZZZ9999 * &
0x0cebc0…0ced54 (4, 73) Opaque[0x194]
0x0ced54…0ceee8 # DirEnt {nam=»XOPINP«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04b0, f03=0xffff}
0x0ced54…0ceee8 IdxSect {
0x0ced54…0ceee8 f00 = 0x0025 // 0xced54 @0x0
0x0ced54…0ceee8 f01 = 0x000e // 0xced56 @0x2
0x0ced54…0ceee8 gno = [ // 0xced58 @0x4
0x0ced54…0ceee8 [0x00]: C0x0025.0x2.0
0x0ced54…0ceee8 [0x01]: C0x0025.0x3.0
0x0ced54…0ceee8 [0x02]: C0x0026.0x0.0
0x0ced54…0ceee8 [0x03]: C0x0026.0x1.0
0x0ced54…0ceee8 [0x04]: C0x0026.0x2.0
0x0ced54…0ceee8 [0x05]: C0x0026.0x3.0
0x0ced54…0ceee8 [0x06]: C0x0027.0x0.0
0x0ced54…0ceee8 ]
0x0ced54…0ceee8 }
0x0ceee8…0cf07c Dummy {f00=0x0025, 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 L P**********************************
0x0cf07c…0cf210 Dummy {f00=0x0025, f01=0x0190, f02=»72-CODES AND 6234/31-CODES WITH KEY1 ON * L P* * F L PFNCKTB KTAB X'90',X'8A',X'A1',X'A0',X'87', C L P X'82',X'84',X'81',X'85',X'86',
0x0cf210…0cf3a4 Dummy {f00=0x0025, f01=0x0190, f02=»95',X'8B',X'A2',X'92', C P X'A3',X'AB' C F L P* * ^ L P* 6234/31-CODES WITH KEY 2 ON * L P*
0x0cf3a4…0cf538 Dummy {f00=0x0025, f01=0x0190, f02=» N L P X'C2',X'C4',X'C1',X'C5',X'C6', C 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 P X'E3
0x0cf538…0cf6cc Dummy {f00=0x0025, f01=0x0190, f02=»**************************************************** | L P* * < L P* PROCEDURE: XAKBIN * L P* PARAMETER:
0x0cf6cc…0cf860 Dummy {f00=0x0025, f01=0x0190, f02=»IPION: * | 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 THE EOI-KEYS APPLICABLE ARE LISTE
0x0cf860…0cf9f4 (4, 74) Dummy {f00=0x0025, f01=0x0190, f02=»1-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* MONITOR CONVERT THE 6236/71/72-CODES
0x0cf9f4…0cfb88 Dummy {f00=0x0025, f01=0x0190, f02=»EYBOARDS 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* CHECKING AND ADAPTION OF THE EOI-KEY
0x0cfb88…0cfd1c Dummy {f00=0x0025, f01=0x0190, f02=»ECK: 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* 1: END-OF-ITEM
0x0cfd1c…0cfeb0 Dummy {f00=0x0025, f01=0x0190, f02=»ART 13: CURRENCY 2 * | L P* 4: CLOSE/STOP 14: CURRENCY 3 * < L P* 5: BLOCK 15: CHEQUE * L P* 6: UPDATE 16: NOBOO
0x0cfeb0…0d0044 Dummy {f00=0x0025, f01=0x0190, f02=»-S(TATEMENT) 18 CARD * | L P* 9: IN 19: CANCEL * < L P* 10: OUT 20: CONTINUE * L P* 11: TRANSFER 21: CLEAR
0x0d0044…0d01d8 Dummy {f00=0x0025, f01=0x0190, f02=» * | L P* FNCKTB: KEYTABLE CONTAINING THE ALLOWED EOI-KEYS * < L P* SPINTPUT: INPUT BUFFER * L P* SPBINW1: REQUESTED LENGTH (BEFORE K
0x0d01d8…0d036c Dummy {f00=0x0025, f01=0x0190, f02=»DEX IN FNCKTB RETURNED BY KI AND ADAPTED BY * | L P* QAFNKY. * < L P* SBNOWAIT: IF THRUE THEN A KI-NOWAIT (AND NO-ECHO) MUST BE * L P* ISSUED. CHECKS ON THE VALU
0x0d036c…0d0500 Dummy {f00=0x0025, f01=0x0190, f02=» * | L P************************************************************************ < J PXAKBIN PROC PKWLNG P PLIT PKWLNG L PXA000
0x0d0500…0d0694 (4, 75) Dummy {f00=0x0026, f01=0x0190, f02=» SPBINW1,=W'1' ADJUST FOR EOI-KEY L P* * * L P* ASK FOR KEYBOARD INPUT * z L P*
0x0d0694…0d0828 Dummy {f00=0x0026, f01=0x0190, f02=» ^ P BNOK XA000 RETRY T P PERF XCLAMP,KW1,KW0 READY LAMP OFF 8 4 P SUB SPBINW1,=W'1' ADJUST AGAIN, TO EXCLUDE EOI L P*
0x0d0828…0d09bc Dummy {f00=0x0026, f01=0x0190, f02=» * h P CBNE SPBINW2,=W'22',XA100 ( P SET SBFT80 COMPACT TERMINAL J P B XA999 n PXA100 ~ & P PERF QAFNKY,SPBINW2,KW0,KWAPLKTB P B XA999 PXA500 8 P KI .NW,.NE,SPDSDYKB,SPINPUT,FNCKTB,SPBINW1,SPBINW2
0x0d09bc…0d0b50 Dummy {f00=0x0026, f01=0x0190, f02=»******** P L P* * T P* GET INPUT FROM A BADGE CARD READER OR MAGNETIC STRIPE UNIT ` L P* * L P
0x0d0b50…0d0ce4 Dummy {f00=0x0026, f01=0x0190, f02=» X L PXD000 P TBT SBMSU,XD100 h P DSC0 DSBCR,02 SKIP BUFFER P* P* NOW START READING P* L P MOVE SPBINW1,=W'4' REQUESTED LENGTH
0x0d0ce4…0d0e78 Dummy {f00=0x0026, f01=0x0190, f02=»CCOUNT NUMBER x P B XD999 8 PXD100 H P DSC1 DSBCR,24,KW0 OPEN V P DSC0 DSBCR,0 GET BADGE CARD v PXD110 " P MOVE WW2,KW4 REQUESTED LENGTH & P RREAD DSBCR,SPINPUT,WW2,WWINDEX1 P CBNE WW2,KW0,XD
0x0d0e78…0d100c Dummy {f00=0x0026, f01=0x0190, f02=»CIMAL l P DSC0 DSBCR,4 RELEASE BADGE L PXD999 2 L P RET L P PEND
0x0d100c…0d11a0 Dummy {f00=0x0026, f01=0x0190, f02=»PARAMETERS : ADCARDNR : P* DESCRIPTION: WRITE ON TRACK 3 OF BADGE CARD WITH MSU L P************************************************************************ PXHMSU PROC XCARD P PBCD XCARD & P PERF XBFMT,=W'27' PUT CARD IN MSU P MOVE
0x0d11a0…0d1334 (4, 76) Dummy {f00=0x0026, f01=0x0190, f02=» DSC1 DSBCR,24,KW0 OPEN MSU P DSC0 DSBCR,0 GET CARD $ P WRITE DSBCR,WCSTRG6 B P DSC0 DSBCR,4 ^ P RET t P PEND L P************************************************************************ L P*
0x0d1334…0d14c8 Dummy {f00=0x0026, f01=0x0190, f02=» * ~ L P************************************************************************ > L PBCRKTB KTAB X'3F',X'09' L P*
0x0d14c8…0d165c Dummy {f00=0x0026, f01=0x0190, f02=»OR * ~ L P* '0E': DOCUMENT ESCAPE * > L P* * J P******************************************
0x0d165c…0d17f0 Dummy {f00=0x0026, f01=0x0190, f02=» * | L P* PROCEDURE: XCLAMP * < L P* PARAMETERS: XWINDEX (INPUT) * L P* XWON (INPUT)
0x0d17f0…0d1984 Dummy {f00=0x0026, f01=0x0190, f02=»EYBOARD INDICATOR LAMPS. * | L P* - DEPENDING ON XWON THE FOLLOWING ACTIONS ARE TAKEN: * < L P* XWON = 0: TURN LAMP(S) OFF * L P* XWON = 1: TURN LAMP ON
0x0d1984…0d1b18 Dummy {f00=0x0026, f01=0x0190, f02=»ICATES ON WHICH LAMP(S) THIS ACTION MUST BE TAKEN: * | L P* XWINDEX = 0: ALL LAMPS * < L P* XWINDEX = 1,2,3 OR 4: LAMP 1,2,3 OR 4 * L P* XWINDEX = 5: LAMP 5, SO
0x0d1b18…0d1cac Dummy {f00=0x0026, f01=0x0190, f02=»BLES: * | L P* WW1: DSC1- PARAMETER * < L P* WW2: WORKFIELD * L P*
0x0d1cac…0d1e40 Dummy {f00=0x0026, f01=0x0190, f02=»XWON | P PBIN XWINDEX,XWON D T PXC000 ^ T P CBE YDSTATUS,=D'0',XC999 KEYBOARD TYPE NOT KNOWN YET
0x0d1e40…0d1fd4 (4, 77) Dummy {f00=0x0026, f01=0x0190, f02=»KEYBOARD) * ^ L P* DOES NOT HAVE LAMPS * L P* * n T P CBE RDALFKB,=D'1',XC050 ALPHANUMERIC KEYBOARD
0x0d1fd4…0d2168 Dummy {f00=0x0026, f01=0x0190, f02=» * n L P* CHECK THE AVAILIBILITY OF LAMPS, THERE IS NO LAMP 5 ON THE * . L P* 6234-KEYBOARD * ~ L P*
0x0d2168…0d22fc Dummy {f00=0x0026, f01=0x0190, f02=» v T P TBT SB34KB,XC999 > L P* * L P* 6236-KEYBOARD AND LAMP 5, SOUND
0x0d22fc…0d2490 Dummy {f00=0x0026, f01=0x0190, f02=»=W'64' T P DSC1 DSDI,00,WW1 ! N * P DSC1 DSDI,01,WW1 TURN BELL OFF AGAIN ! L P*
0x0d2490…0d2624 Dummy {f00=0x0026, f01=0x0190, f02=»MPS MUST BE CONTROLLED * ! t L P* * " 4 T P CBG XWINDEX,=W'0',XC100 " T P TBT SB34KB,XC080
0x0d2624…0d27b8 Dummy {f00=0x0026, f01=0x0190, f02=»C600 " T PXC080 # T T P MOVE WW1,=W'15' 6234-KEYBOARD # T P B X
0x0d27b8…0d294c Dummy {f00=0x0026, f01=0x0190, f02=» * # L P* OTHERWISE THE DSC1-PARAMETER MUST HAVE THE FOLLOWING VALUE: * $ L P* ('**' MEANS EXPONENTIATION) * $ l L P* 6234-KEYBOARD: 2**(XWINDEX-1) * $
0x0d294c…0d2ae0 Dummy {f00=0x0026, f01=0x0190, f02=» * $ L P* * % T PXC100 % l T P TBT SB34KB,XC150
0x0d2ae0…0d2c74 (4, 78) Dummy {f00=0x0026, f01=0x0190, f02=» % l T P SUB WW2,XWINDEX & 4 T P B XC200 & T PXC150
0x0d2c74…0d2e08 Dummy {f00=0x0026, f01=0x0190, f02=»E WW2,XWINDEX & T P SUB WW2,=W'1' ' T L P* * ' L P* NOW CALCUL
0x0d2e08…0d2f9c Dummy {f00=0x0026, f01=0x0190, f02=» * ' L T PXC200 ( T P MOVE WW1,=W'1' ( d T PXC210
0x0d2f9c…0d3130 Dummy {f00=0x0026, f01=0x0190, f02=» ( l T P SUB WW2,=W'1' ) 4 T P B XC210 ) L P*
0x0d3130…0d32c4 Dummy {f00=0x0026, f01=0x0190, f02=» * ) T PXC600 * D T P MOVE WW2,XWON * P IB WW2,XC710,XC720
0x0d32c4…0d3458 Dummy {f00=0x0026, f01=0x0190, f02=» * * ` L P* * + T P DSC1 DSDI,01,WW1 + p T P B XC999
0x0d3458…0d35ec Dummy {f00=0x0026, f01=0x0190, f02=» * + p L P* * , 0 T PXC710 , T P DSC1 DSDI,00,WW1
0x0d35ec…0d3780 Dummy {f00=0x0026, f01=0x0190, f02=» * , L P* SET LAMP FLASHING * - H L P* * - T PXC720
0x0d3780…0d3914 (4, 79) Dummy {f00=0x0027, f01=0x4170, f02=» - @ T PXC999 . T P RET . ` T P PEND
0x0d3914…0d3aa8 Dummy {f00=0x0027, f01=0x2008, f02=» / 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
0x0d3aa8…0d3c3c Dummy {f00=0x0027, f01=0x0190, f02=»OCAGE COMPTE COURANT NR: / & 0 v 999999 0 . " vaE 0 D & v 0 T & NOM : 0 b & 0 z & 0 & 0 & SOLDE ACTUEL :C 0 & 0 w ZZZZZZZZ9,99- 0 " w O 0 & w 0
0x0d3c3c…0d3dd0 Dummy {f00=0x0027, f01=0x0190, f02=»COUV. AUT. :C 0 & 1 y ZZZZZZZZ9,99- 1 & " y E 1 D & y 1 T & 8 E 1 b & COMMENT :U 1 r & @ @M 1 & 1 & 1 & VALIDER OU ANNULER 1 ( 1 z 1 & 1 &
0x0d3dd0…0d3f64 Dummy {f00=0x0027, f01=0x0190, f02=»AGEN 1 l & $ I 2 & m 2 ( 2 , | 2 8 & 2 H } ZZZZZZ 2 V " } 2 l & 2 | ~ ZZZZZZ 2 " ~a 2 & 2 & ** FERME ** 2 ( 2 2 & 2 &
0x0d3f64…0d40f8 Dummy {f00=0x0027, f01=0x0190, f02=»99 2 " aI 3 & 3 & NOM :P 3 ( & 3 D & 8 O 3 R & @ 3 b & 3 t & 3 & ADRESSE :P 3 & 3 & 8 D 3 & @ 3 & 3 & 3 & VILLE
0x0d40f8…0d428c Dummy {f00=0x0027, f01=0x018e, f02=» 3 & 8 O 4 & @ @ 4 & 4 , & 4 : & DECOUV. AUT. : 4 H & O 4 d ZZZZZZZZ9,99-E 4 v " 4 ( 4 3 4 & 4 & 4 & ! & MISE A JOUR COMPTE EP. NR.:E 4
0x0d428c…0d4420 Dummy {f00=0x0027, f01=0x0190, f02=» & SOLDE LIVRET: 5 & D 5 ZZZZZZZZ9,99 5 2 " 5 N & LIGNE:I 5 ^ & " 5 t 99 5 " 5 & 5 & DECOUV. AUT.: 5 & O 5 ZZZZZZZZ9,99-E 5 "
0x0d4420…0d45b4 (4, 80) Opaque[0x194]
0x0d45b4…0d4748 # DirEnt {nam=»XMESG «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x04e8, f03=0xffff}
0x0d45b4…0d4748 IdxSect {
0x0d45b4…0d4748 f00 = 0x0027 // 0xd45b4 @0x0
0x0d45b4…0d4748 f01 = 0x000a // 0xd45b6 @0x2
0x0d45b4…0d4748 gno = [ // 0xd45b8 @0x4
0x0d45b4…0d4748 [0x00]: C0x0027.0x1.0
0x0d45b4…0d4748 [0x01]: C0x0027.0x2.0
0x0d45b4…0d4748 [0x02]: C0x0027.0x3.0
0x0d45b4…0d4748 [0x03]: C0x0028.0x0.0
0x0d45b4…0d4748 [0x04]: C0x0028.0x1.0
0x0d45b4…0d4748 ]
0x0d45b4…0d4748 }
0x0d4748…0d48dc Dummy {f00=0x0027, 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
0x0d48dc…0d4a70 Dummy {f00=0x0027, f01=0x0190, f02=» * ` L P* PROCEDURE: XDMSG * L P* PARAMETER: * p L P* PWMSGNR (INPUT): NUMBER OF THE MESSAGE TO BE DISPLAYED. *
0x0d4a70…0d4c04 Dummy {f00=0x0027, 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 *
0x0d4c04…0d4d98 Dummy {f00=0x0027, f01=0x0190, f02=»************************ ` L PXDMSG PROC PWMSGNR P PLIT PWMSGNR p L PXD000 L P*
0x0d4d98…0d4f2c Dummy {f00=0x0027, 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
0x0d4f2c…0d50c0 Dummy {f00=0x0027, f01=0x0190, f02=» F L P PEND L P************************************************************************ X L P* * L P* PROCEDURE:
0x0d50c0…0d5254 (4, 81) Dummy {f00=0x0027, 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
0x0d5254…0d53e8 Dummy {f00=0x0027, 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*
0x0d53e8…0d557c Dummy {f00=0x0027, f01=0x0190, f02=» H L P************************************************************************ L PXEERR PROC PWERRNR,XWANSWER X P PLIT PWERRNR P PBIN XWANSWER L PXE000
0x0d557c…0d5710 Dummy {f00=0x0027, f01=0x0190, f02=»R t L PXE999 4 L P RET L P PEND
0x0d5710…0d58a4 Dummy {f00=0x0027, f01=0x0190, f02=» * t L P* PROCEDURE: XFERR1 * 4 L P* PARAMETERS: * L P* PWERRNR (INPUT): NUMBER OF THE ERROR OR MESSA
0x0d58a4…0d5a38 Dummy {f00=0x0027, 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.
0x0d5a38…0d5bcc Dummy {f00=0x0027, 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;
0x0d5bcc…0d5d60 Dummy {f00=0x0027, 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
0x0d5d60…0d5ef4 (4, 82) Dummy {f00=0x0027, 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
0x0d5ef4…0d6088 Dummy {f00=0x0027, f01=0x018e, f02=» * t L P************************************************************************ 4 L PXFERR1 PROC XWERRNR,XWANSWER P PBIN XWERRNR,XWANSWER L PXF000
0x0d6088…0d621c Dummy {f00=0x0027, 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
0x0d621c…0d63b0 Dummy {f00=0x0027, 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
0x0d63b0…0d6544 Dummy {f00=0x0027, f01=0x0190, f02=» d L P* * $ L P* ANSWER EXPECTED * t L P*
0x0d6544…0d66d8 Dummy {f00=0x0027, f01=0x0190, f02=» d " P IB XWANSWER,XF100,XF200,XF300 $ L P* * J L P* CANCEL EXPECTED * L P*
0x0d66d8…0d686c Dummy {f00=0x0027, f01=0x0190, f02=» H L P B XF050 L P* * X P* CANCEL OR CLEAR EXPECTED L P*
0x0d686c…0d6a00 Dummy {f00=0x0027, f01=0x0190, f02=» j N P CBE SPBINW2,KWCLEAR,XF995 * L P B XF050 | P* P* CANCEL OR CONT EXPECTED P* PXF300
0x0d6a00…0d6b94 (4, 83) Dummy {f00=0x0028, f01=0x0190, f02=» * f L P* CANCEL PRESSED * & L P* * v L PXF990
0x0d6b94…0d6d28 Dummy {f00=0x0028, 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
0x0d6d28…0d6ebc Dummy {f00=0x0028, f01=0x0190, f02=»**************************************** p L P* * 0 P* SOUND BELL L P* * L P************************************
0x0d6ebc…0d7050 Dummy {f00=0x0028, f01=0x0190, f02=» L P FILLR X'07',1 BELL D L P FMEND L P************************************
0x0d7050…0d71e4 Dummy {f00=0x0028, f01=0x0190, f02=»E: XHERAS * L P* FUNCTIONAL DESCRIPTION: * D L P* ERASE THE SCREEN. * L P*
0x0d71e4…0d7378 Dummy {f00=0x0028, f01=0x0190, f02=»C PXH000 & P EDWRT SPDSSCRN,FMTERASE PXH999 B P RET P P PEND d L P************************************************************************ z L P*
0x0d7378…0d750c Dummy {f00=0x0028, f01=0x0188, f02=»******************************************************** L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x0d750c…0d76a0 Dummy {f00=0x0028, f01=0x2008, f02=» ************************************************ L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x0d76a0…0d7834 (4, 84) Dummy {f00=0x0028, f01=0x0190, f02=» L P CBL WDEC1,=D'1',S16500 L P CBG WDEC1,=D'24',S16500 T L P B S16900 L PS16500
0x0d7834…0d79c8 Dummy {f00=0x0028, f01=0x0190, f02=» L P MOVE SPBINW4,=W'1' L PS16900 T L P RET L P PEND
0x0d79c8…0d7b5c Dummy {f00=0x0028, f01=0x0190, f02=» L P* * L P* CHECK POINTER TO TRANSACTION-RECORD ( BETWEEN 1 AND 8 ) * T L P* * L P********************
0x0d7b5c…0d7cf0 Dummy {f00=0x0028, 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
0x0d7cf0…0d7e84 Dummy {f00=0x0028, f01=0x0190, f02=» L PS17500 " L P MOVE XWRET,=W'1' " T L P MOVE SPBINW4,=W'1' " L PS17900
0x0d7e84…0d8018 Dummy {f00=0x0028, f01=0x0190, f02=» L P PEND # L P************************************************************************ # T L P* * # L P* INPUT-FIELD MUST
0x0d8018…0d81ac Dummy {f00=0x0028, f01=0x0190, f02=» L P************************************************************************ $ L PSPAP18 PROC XWRET $ T L PS18000 $ L P MOVE WCSTRG25,=C' '
0x0d81ac…0d8340 Dummy {f00=0x0028, f01=0x0190, f02=» L P CBE WCSTRG25,=C' ',S18500 % L P B S18900 % T L PS18500 % L P MOVE XWRET,=W'1'
0x0d8340…0d84d4 (4, 85) Opaque[0x194]
0x0d84d4…0d8668 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0xffff, f01=0xffff, f02=0x0510, f03=0xffff}
0x0d84d4…0d8668 IdxSect {
0x0d84d4…0d8668 f00 = 0x0028 // 0xd84d4 @0x0
0x0d84d4…0d8668 f01 = 0x0002 // 0xd84d6 @0x2
0x0d84d4…0d8668 gno = [ // 0xd84d8 @0x4
0x0d84d4…0d8668 [0x00]: C0x0028.0x2.0
0x0d84d4…0d8668 ]
0x0d84d4…0d8668 }
0x0d8668…0d87fc Dummy {f00=0x0028, f01=0x0190, f02=» $TTL KPF /O SCR /O PMOV DEMODD,/S,PTSDEMO,/F3 , TRA /S,NL N PTLK @M=M ` PLKE @M=M p KPF /L,@LMOD PSCR /O END P$MOVS " PMOV @SRC=DEMODD,/S,PTSDEMO,/F3 PKPF /S,@SRC PEND P$MOVE
0x0d87fc…0d8990 Dummy {f00=0x0028, f01=0x0030, f02=»/OBJCT,PTSDEMO,/F3 PKPF /O PEND (DEMODD,/S,PTSDEMO,/F3 , TRA /S,NL N PTLK @M=M ` PLKE @M=M p KPF /L,@LMOD PSCR /O END P$MOVS " PMOV @SRC=DEMODD,/S,PTSDEMO,/F3 PKPF /S,@SRC PEND P$MOVE
0x0d8990…0d8b24 Dummy {f00=0x0028, f01=0x2008, f02=» TSDEMO,/F3 PKPF /O PEND (DEMODD,/S,PTSDEMO,/F3 , TRA /S,NL N PTLK @M=M ` PLKE @M=M p KPF /L,@LMOD PSCR /O END P$MOVS " PMOV @SRC=DEMODD,/S,PTSDEMO,/F3 PKPF /S,@SRC PEND P$MOVE
0x0d8b24…0d8cb8 Dummy {f00=0x0028, f01=0x0190, f02=» , H0 0 * l " p + 2 T 1 R 0 p A
0x0d8cb8…0d8e4c Dummy {f00=0x0028, f01=0x0190, f02=» b , I0 0 * l 6 UA1 fUA2 UBF UCY UIF (UOP ,UQQ UT1 bUT2 ( , 0 0 0 " d f DSC001DSC002 0 0 0 0 0 50;0A0D
0x0d8e4c…0d8fe0 Dummy {f00=0x0028, f01=0x0190, f02=» 0 6080>0D F 0 0 $ 001 D d n p
0x0d8fe0…0d9174 (4, 86) Opaque[0x194]
0x0d9174…0d9308 # DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0518, f03=0xffff}
0x0d9174…0d9308 IdxSect {
0x0d9174…0d9308 f00 = 0x0028 // 0xd9174 @0x0
0x0d9174…0d9308 f01 = 0x000c // 0xd9176 @0x2
0x0d9174…0d9308 gno = [ // 0xd9178 @0x4
0x0d9174…0d9308 [0x00]: C0x0028.0x3.0
0x0d9174…0d9308 [0x01]: C0x0029.0x0.0
0x0d9174…0d9308 [0x02]: C0x0029.0x1.0
0x0d9174…0d9308 [0x03]: C0x0029.0x2.0
0x0d9174…0d9308 [0x04]: C0x0029.0x3.0
0x0d9174…0d9308 [0x05]: C0x002a.0x0.0
0x0d9174…0d9308 ]
0x0d9174…0d9308 }
0x0d9308…0d949c Dummy {f00=0x0028, 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
0x0d949c…0d9630 Dummy {f00=0x0028, f01=0x0190, f02=»19 P P EXPROC SPAP20 H T P EXPROC SPAP21 T P EXPROC SPAP23
0x0d9630…0d97c4 Dummy {f00=0x0028, 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 ENTRY SPAPPL P E
0x0d97c4…0d9958 Dummy {f00=0x0028, f01=0x0190, f02=» P ENTRY SPCHK2 P ENTRY SPCHK3 P ENTRY SPCHK4 0 P ENTRY SPCHK5 F P ENTRY SPCHK6 P ENTRY SPCHK7 r P ENTRY SPTCHK L P************************************************************************ L P*
0x0d9958…0d9aec Dummy {f00=0x0028, f01=0x0190, f02=» FUNCTIONAL DESCRIPTION: * L P* PERFORM CHECKS ON VALUE ENTERED WHILE IN SCREEN MANAGEMENT * N L P* AFTER THE OPERATOR HAS ENTERED A VALUE IN A FIELD WHICH * L P* CONTAINS AN APPL-PA
0x0d9aec…0d9c80 Dummy {f00=0x0028, f01=0x0190, f02=» SPAPPL WILL THEN PERFORM CHECKS ON THE VALUE ENTERED AND * L P* TELL SCREEN-MANAGEMENT WHAT TO DO FURTHER. * N L P* - THE VALUE ENTERED IS FIRST MOVED TO THE CORRESPONDING * L P* DATA-ITEM, SO CHE
0x0d9c80…0d9e14 (4, 87) Dummy {f00=0x0029, f01=0x0190, f02=» INPUT BUFFER). * L P* - IN MOST CASES THE ACTUAL CHECKING IS DONE BY A SPAPXX-ROUTINE * N L P* WHERE XX IS THE VALUE OF THE APPL-PARAMETER IN THE FORMAT * L P* DEFINITION.
0x0d9e14…0d9fa8 Dummy {f00=0x0029, f01=0x0190, f02=» BY THE VARIABLE NWRETCDE, AS FOLLOWS: * L P* VALUE OF NWRETCDE: MEANS: * N L P* 0 CHECK OKE (DEFAULT) * L P* 1
0x0d9fa8…0da13c Dummy {f00=0x0029, f01=0x0190, f02=» USE OF VARIABLES: * L P* SPBINW2 (UPDATE): INDEX IN THE SCREEN-MANAGEMENT KEYTABLE * N L P* SPBINW3 (INPUT): APPL-PARAMETER FROM FORMAT DEFINITION * L P* SPBINW3 (OUTPUT): A
0x0da13c…0da2d0 Dummy {f00=0x0029, f01=0x0190, f02=» IF VALUE = 3 : ERROR DETECTED, DISPLAY ERRORMESSAGE * L P* SPBINW4 (OUTPUT): CONTAINS THE NUMBER OF THE ERROR MESSAGE * N L P* TO BE DISPLAYED BY SCREEN-MANAGEMENT * L P* SPINPUT (INPUT): C
0x0da2d0…0da464 Dummy {f00=0x0029, f01=0x0190, f02=» * L P************************************************************************ N L PSPAPPL PROC L PSP000
0x0da464…0da5f8 Dummy {f00=0x0029, f01=0x0190, f02=» = 0 (OKE) | P* P MOVE NWRETCDE,=W'0' L P IB SPBINW3,SP010,SP010,SP010,SP010,SP050 C : P P SP060,SP070,SP080,SP090,SP100, C L P SP110,SP120,SP130,SP140,SP150, C
0x0da5f8…0da78c Dummy {f00=0x0029, f01=0x0190, f02=»SP230,SP240,SP250, C ( P SP260,SP270,SP280,SP290,SP300, C J P SP310,SP320 v P B SP999 L P************************************************************************ P* 4 P* CHECK : 0=< N =<
0x0da78c…0da920 Dummy {f00=0x0029, f01=0x0190, f02=»**************************** d L PSP010 $ * P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL t , P MOVE WDEC2,SPBINW3 STORE APPL PARAMETER ( P CBL WDEC1,=D'0',S01200 RANGE ERROR ( P CBG WDEC1
0x0da920…0daab4 (4, 88) Dummy {f00=0x0029, f01=0x0190, f02=» t L P MOVE SPBINW4,=W'1' RANGE ERROR 6 P B SP850 L P************************************************************************ L P*
0x0daab4…0dac48 Dummy {f00=0x0029, f01=0x018e, f02=» * ^ L P************************************************************************ L PSP050 n * P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL ( P CBL WDEC1,=D'0',S05800 RANG
0x0dac48…0daddc Dummy {f00=0x0029, f01=0x0190, f02=» $ P MOVE SPBINW4,=W'1' RANGE ERROR P B SP850 ERROR EXIT 0 L P************************************************************************ L PSP060 P PERF SPAP06,NWRETCDE P B SP700 PSP070 P PERF SPAP07,NWRETCDE P B S
0x0daddc…0daf70 Dummy {f00=0x0029, f01=0x0190, f02=»0 P PERF SPAP10,NWRETCDE P B SP700 ( PSP110 8 P PERF SPAP11,NWRETCDE F P B SP700 d PSP120 t P PERF SPAP12,NWRETCDE P B SP700 PSP130 P PERF SPAP13,NWRETCDE P B SP700 PSP140 P PERF SPAP14,N
0x0daf70…0db104 Dummy {f00=0x0029, f01=0x0190, f02=» B SP700 L PSP170 L P PERF SPAP17,NWRETCDE ` L P B SP700 L PSP180
0x0db104…0db298 Dummy {f00=0x0029, f01=0x0190, f02=» P L P B SP700 L PSP190 ` L P PERF SPAP19,NWRETCDE L P B SP700
0x0db298…0db42c Dummy {f00=0x0029, f01=0x0190, f02=» P L P PERF SPAP20,NWRETCDE L P B SP700 ` T PSP210 T P
0x0db42c…0db5c0 Dummy {f00=0x0029, f01=0x0190, f02=» ` T PSP220 ( T P PERF SPAP22,NWRETCDE T P B SP700
0x0db5c0…0db754 (4, 89) Dummy {f00=0x0029, f01=0x0190, f02=»AP23,NWRETCDE T P B SP700 P T PSP240 T P PERF SP
0x0db754…0db8e8 Dummy {f00=0x0029, f01=0x0190, f02=» X T PSP250 T P PERF SPAP25,NWRETCDE x T P B SP700
0x0db8e8…0dba7c Dummy {f00=0x0029, f01=0x018e, f02=» B SP700 PSP280 P PERF SPAP28,NWRETCDE P B SP700 < PSP290 L P PERF SPAP29,NWRETCDE Z P B SP700 x PSP300 P PERF SPAP30,NWRETCDE P B SP700 PSP310 P PERF SPAP31,NWRETCDE P B SP700 PSP320
0x0dba7c…0dbc10 Dummy {f00=0x0029, f01=0x0190, f02=» 4 P* JUMP TO SPAPPL EXIT, DEPENDING ON RETURN CODE P* @ L P************************************************************************ J PSP700 P TBT SBCANCEL,SP900 " P IB NWRETCDE,SP850,SP850,SP900 P B SP990 OKE EXIT L P****
0x0dbc10…0dbda4 Dummy {f00=0x0029, f01=0x018e, f02=» L P************************************************************************ PSP850 T & P MOVE SPBINW3,=W'3' INDICATE ERROR b P B SP999 L P************************************************************************ P* P* CANCEL EXIT
0x0dbda4…0dbf38 Dummy {f00=0x0029, f01=0x0190, f02=» P MOVE SPBINW3,=W'0' P B SP999 L P************************************************************************ 0 P* P* OK EXIT P* L P************************************************************************ PSP990 P MOV
0x0dbf38…0dc0cc Dummy {f00=0x0029, f01=0x0190, f02=» p L P PEND 0 L P************************************************************************ L P********************************************************
0x0dc0cc…0dc260 Dummy {f00=0x0029, f01=0x0190, f02=»KEYED IN BY OPERATOR * p L P* * 0 L P************************************************************************ L PSPAP16 PROC XWRET
0x0dc260…0dc3f4 (4, 90) Dummy {f00=0x0029, f01=0x0190, f02=»SPINPUT CONVERT TO DECIMAL L P CBL WDEC1,=D'1',S16500 D L P CBG WDEC1,=D'24',S16500 L P B S16900
0x0dc3f4…0dc588 Dummy {f00=0x0029, f01=0x0190, f02=»=W'1' L P MOVE SPBINW4,=W'1' D L PS16900 L P RET
0x0dc588…0dc71c Dummy {f00=0x0029, f01=0x0190, f02=»************************************************************ L P* * D L P* CHECK POINTER TO TRANSACTION-RECORD ( BETWEEN 1 AND 8 ) * L P*
0x0dc71c…0dc8b0 Dummy {f00=0x0029, f01=0x0190, f02=»XWRET P PBIN XWRET ! D L PS17000 ! X L P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL ! L P CBL WDEC1,=D'1'
0x0dc8b0…0dca44 Dummy {f00=0x0029, f01=0x0190, f02=» ! H L P B S17900 " L PS17500 " X L P MOVE XWRET,=W'1' " L P MOVE SPBINW4,=W
0x0dca44…0dcbd8 Dummy {f00=0x0029, f01=0x0190, f02=» " H L P RET # L P PEND # X L P************************************************************************ # L P*
0x0dcbd8…0dcd6c Dummy {f00=0x0029, f01=0x0190, f02=» # H L P* * $ L P************************************************************************ $ X L PSPAP18 PROC XWRET $ L PS18000
0x0dcd6c…0dcf00 Dummy {f00=0x0029, f01=0x0190, f02=» $ H L P COPY WCSTRG25,KW0,SPBINW1,SPINPUT,KW0 % L P CBE WCSTRG25,=C' ',S18500 % X L P B S18900 % L PS18500
0x0dcf00…0dd094 (4, 91) Dummy {f00=0x002a, f01=0x0190, f02=» % H L P MOVE SPBINW4,=W'1' & L PS18900 & X L P RET & L P PEND
0x0dd094…0dd228 Dummy {f00=0x002a, f01=0x0190, f02=» & H L P* * ' $ P* CONTINUE FROM CURRENT SCREEN ' X L P* * ' L P********************************************************
0x0dd228…0dd3bc Dummy {f00=0x002a, f01=0x0190, f02=» P PEND ( J P********************************************************************* ( P* ( ` 0 P* VALUE ENTERED MUST BE GREATER THEN ZERO ( j P* ( J P********************************************************************* ( PSPAP27 PROC X
0x0dd3bc…0dd550 Dummy {f00=0x002a, f01=0x018e, f02=» MOVE XWRET,=W'1' ( @ P MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' ) P B S27999 ) ` PS27500 ) P MOVE XWRET,=W'0' ) PS27999 ) P RET ) P PEND ) L P******************************
0x0dd550…0dd6e4 Dummy {f00=0x002a, f01=0x412c, f02=» ) PSPCHK3 PROC * RET * PEND * ( PSPCHK4 PROC * 6 RET * J PEND * V PSPCHK5 PROC * d RET * x PEND * PSPCHK6 PROC * P RET * P PEND * PSPCHK7 PROC * P RET * P PEND * PSPTCHK PROC * P RET *
0x0dd6e4…0dd878 Dummy {f00=0x002a, 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 *
0x0dd878…0dda0c Dummy {f00=0x002a, f01=0x0190, f02=» SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * + L P* WORKVARIABLE: * , N L P* WDEC1 * , L P*
0x0dda0c…0ddba0 Dummy {f00=0x002a, f01=0x0190, f02=»ATYP PROC XDACTNR , L PQG000 - N L P CLEAR SBCHQACT - L P*
0x0ddba0…0ddd34 (4, 92) Opaque[0x194]
0x0ddd34…0ddec8 # DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb8, f03=0x0000}
0x0ddd34…0ddec8 IdxSect {
0x0ddd34…0ddec8 f00 = 0x005d // 0xddd34 @0x0
0x0ddd34…0ddec8 f01 = 0x0006 // 0xddd36 @0x2
0x0ddd34…0ddec8 gno = [ // 0xddd38 @0x4
0x0ddd34…0ddec8 [0x00]: C0x005d.0x3.0
0x0ddd34…0ddec8 [0x01]: C0x00ca.0x2.0
0x0ddd34…0ddec8 [0x02]: C0x00ca.0x3.0
0x0ddd34…0ddec8 ]
0x0ddd34…0ddec8 }
0x0ddec8…0de05c Dummy {f00=0x005d, f01=0x018e, f02=» B P IDENT BASPCT TERMINAL SPECIFICATION P DDUM DEMODD J P 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
0x0de05c…0de1f0 Dummy {f00=0x005d, f01=0x0190, f02=» H P* P* TERMINAL SPECIFICATION P* 4 L P************************************************************************ > PBASPCT PROC P* P* KEY 2 IS ON ( P* RDSTATUS = 0 AND YDSTATUS = 0 OR 2 P* PBA000 * P T
0x0de1f0…0de384 Dummy {f00=0x005d, f01=0x0190, f02=»RLNS,=D'1' P MOVE RDALFKB,=D'0' P MOVE RDPRTTYP,=D'1' . P MOVE RDBCR,=D'1' J P B BA200 d PBA010 t L P* * L P* INITIALISE SCREEN PARAMETERS
0x0de384…0de518 Dummy {f00=0x005d, f01=0x0190, f02=» r T P MOVE SPLSTLNE,=D'1' : , P CBE YDSTATUS,=D'2',BA100 SYSTEM STARTED P* P* SYSTEM START - PART 1 P* , P PERF CASTTS GET L
0x0de518…0de6ac Dummy {f00=0x005d, f01=0x0190, f02=» OPEN FORMATFILE P TBT SBCANCEL,BA800 P PERF ZAOPND OPEN DATABASE 4 P TBT SBCANCEL,BA800 V * P MOVE NDTRMLGG,YDSYSLGG INIT LANGUAGE r P MOVE IDNR1,=D'6' $ P PERF XBFMT,=W'11' DISPLAY TYPE P TBT SBCANCEL,BA800 P
0x0de6ac…0de840 Dummy {f00=0x005d, f01=0x0190, f02=»DNR1 , P CBE RDSCRLNS,=D'1',BA200 SCREEN IS AD85 P SUB RDSCRLNS,=D'1' < PBA200 X P ADD NDLASTRM,=D'1' f P MOVE NDTRMNR,NDLASTRM P MOVE RDTRMRNR,NDTRMNR & P MUL RDTRMRNR,KDSHIFT SHIFT NUMBER P TBT SBFT80,BA850 . P PERF
0x0de840…0de9d4 (4, 93) Dummy {f00=0x00ca, f01=0x0190, f02=»RDBCR,=D'2',BA300 $ P SET SBMSU MAGNETIC STRIPE UNIT PBA300 B P* END OF TERMINAL SPEC P P* n , P CBE YDSTATUS,=D'2',BA999 SYSTEM STARTED x * P* SYSTEM START - PART 2 * P PERF CBSTTS L P TBT SBCANCEL,BA900
0x0de9d4…0deb68 Dummy {f00=0x00ca, f01=0x018e, f02=»* : P* CANCEL EXIT, IF THIS TERMINAL IS STARTING THE SYSTEM 4 P* RESTORE SYSTEM STATUS AND CLOSE FILES AGAIN H P* PBA800 0 P CBNE YDSTATUS,=D'1',BA900 NOT SYSTEM START P PERF ZBCLSD CLOSE DATABASE " P PERF ZLCLSF CLOSE FORMA
0x0deb68…0decfc Dummy {f00=0x00ca, f01=0x0190, f02=» , P MOVE RDSTATUS,=D'1' TERMINAL SPECIFIED P B BA999 4 P* D L P* CANCEL EXIT, RESTORE STATUS FIELD * N P* PBA900 L P MOVE RDSTATUS,=D'0' RESET TO NOT SPECIFIED BA
0x0decfc…0dee90 Dummy {f00=0x00ca, f01=0x0190, f02=»****************************************************** ~ L P* * > L P* CHECK SCREEN PARAMETER ENTERED * L P*
0x0dee90…0df024 Dummy {f00=0x00ca, f01=0x0190, f02=» ~ P PBIN XWRET F T PS15000 Z R P CBE IDNR1,=D'1',S15900 P
0x0df024…0df1b8 Dummy {f00=0x00ca, f01=0x0190, f02=»15900 ~ R P CBE IDNR1,=D'20',S15900 D R P CBE IDNR1,=D'24',S15900 L P*
0x0df1b8…0df34c Dummy {f00=0x00ca, f01=0x0190, f02=»* * T P MOVE XWRET,=W'1' INDICATE ERROR P T P MOVE SPBINW4,=W'1' 'RANGE ERROR' T PS15900
0x0df34c…0df4e0 Dummy {f00=0x00ca, f01=0x0190, f02=» X P PEND L P************************************************************************ . P* ~ : P* CHECK ANSWER TO ALPHANUMERIC KEYBOARD IN TERM. SPEC. P* L P********************************************************
0x0df4e0…0df674 (4, 94) Dummy {f00=0x00ca, f01=0x018e, f02=»0 x P* , P* VALUE ENTERED IS OKE, REDISPLAY LINE 7 P* D 0 P MOVE RCTRMNME,=X'00' MAKE FIELD MUST-ENTER N , P CBL RDSCRLNS,=D'7',S31999 NOT ON SCREEN P MOVE WW1,=W'7' " P ERASE 0,WW1,WW1 ERASE LINE 7 P DISPLAY 4,WW1,WW1 REDIS
0x0df674…0df808 Dummy {f00=0x00ca, f01=0x4076, f02=» P PEND L P************************************************************************ END f@ rTER N , P CBL RDSCRLNS,=D'7',S31999 NOT ON SCREEN P MOVE WW1,=W'7' " P ERASE 0,WW1,WW1 ERASE LINE 7 P DISPLAY 4,WW1,WW1 REDIS
0x0df808…0df99c Dummy {f00=0x00ca, 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
0x0df99c…0dfb30 Dummy {f00=0x00ca, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x0dfb30…0dfcc4 Dummy {f00=0x00ca, 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 >
0x0dfcc4…0dfe58 Dummy {f00=0x00ca, f01=0x0190, f02=» 3x ^ h 5 3t N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3+ . + + $ Bcl*:, - * - + , + ) - - - - 2 -(+ + ,Z,Hc - ) . x( < d N v
0x0dfe58…0dffec Dummy {f00=0x00ca, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x0dffec…0e0180 Dummy {f00=0x00ca, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x0e0180…0e0314 (4, 95) Opaque[0x194]
0x0e0314…0e04a8 # DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0560, f03=0xffff}
0x0e0314…0e04a8 IdxSect {
0x0e0314…0e04a8 f00 = 0x002b // 0xe0314 @0x0
0x0e0314…0e04a8 f01 = 0x000a // 0xe0316 @0x2
0x0e0314…0e04a8 gno = [ // 0xe0318 @0x4
0x0e0314…0e04a8 [0x00]: C0x002b.0x0.0
0x0e0314…0e04a8 [0x01]: C0x002b.0x1.0
0x0e0314…0e04a8 [0x02]: C0x002b.0x2.0
0x0e0314…0e04a8 [0x03]: C0x002b.0x3.0
0x0e0314…0e04a8 [0x04]: C0x002c.0x0.0
0x0e0314…0e04a8 ]
0x0e0314…0e04a8 }
0x0e04a8…0e063c Dummy {f00=0x002b, f01=0x0190, f02=» > P IDENT QIRDBS DATABASE RECOVERY L P DDUM DEMODD F L P PDIV P EXPROC ZAOPND P EXPROC ZBCL
0x0e063c…0e07d0 Dummy {f00=0x002b, f01=0x0190, f02=» f P P EXPROC ZEINSD * P EXPROC ZGREA ~ P P EXPROC MASK L P ENTRY QIRDBS
0x0e07d0…0e0964 Dummy {f00=0x002b, f01=0x0190, f02=» * L P* DATABASE RECOVERY * H L P* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE * L P* - UPDATE SYSTEM RECORD VARI
0x0e0964…0e0af8 Dummy {f00=0x002b, f01=0x0190, f02=»ESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED * L P* * H L P************************************************************************ L PQIRDBS PROC
0x0e0af8…0e0c8c Dummy {f00=0x002b, f01=0x0190, f02=» * L P* UPDATE THE LAST RECORD NUMBER OF THE DATABASE * H L P* * L P* TO DO THIS, THE RECORDS BEHIND
0x0e0c8c…0e0e20 Dummy {f00=0x002b, f01=0x0190, f02=» AFTER THAT INDEXED INSERTED AGAIN * L P* * H T P MOVE NDLRN2,=D'0' T P MOVE WW2,=W'127' SET RE
0x0e0e20…0e0fb4 (4, 96) Dummy {f00=0x002b, f01=0x0190, f02=» H L P* READ NEXT RECORD IN THE DATABASE * L P* UNTIL END-OF-FILE OCCURS * X L P* * P PERF ZBCLSD CLO
0x0e0fb4…0e1148 Dummy {f00=0x002b, f01=0x0190, f02=» l " P READ .SEQ,DSDBS,FCBUFFER,WW2 4 T P XSTAT DSDBS,NWXSTAT Z * P MOVE WW1,=X'1000' SET END-OF-FILE BIT P CALL MASK,NWXSTAT,WW1 P BOK QI010
0x0e1148…0e12dc Dummy {f00=0x002b, f01=0x0190, f02=» * h L P* * ( T P SUB NDLRN2,=D'1' x L P*
0x0e12dc…0e1470 Dummy {f00=0x002b, f01=0x0190, f02=»D LRN * p L P* THE RECORDS ARE STORED IN 'FCBUFFER' * 0 L P* * T P MOVE WW2,=W'127' SET RECORD LENGTH
0x0e1470…0e1604 Dummy {f00=0x002b, f01=0x0190, f02=» * L P* READ NEXT RECORD BEHIND LRN * @ L P* IF THERE ARE MORE THEN 50 CONSECUTIVE RECORDS * L P* CONTAINING NO DATA, RECOVERY IS ASS
0x0e1604…0e1798 Dummy {f00=0x002b, f01=0x0190, f02=» $ P PERF ZGREA RELEASE EXCL. ACCES H T P ADD NDLRN2,=D'1' p ( P READ .DIR,DSDBS,FCBUFFER,WW2,NDLRN2 T P XSTAT DSDBS,NWXSTAT
0x0e1798…0e192c Dummy {f00=0x002b, f01=0x0190, f02=» L T P CALL MASK,NWXSTAT,WW1 CHECK BIT 4 T P BOK QI070 RECORD IS USED l L P* NO DATA
0x0e192c…0e1ac0 Dummy {f00=0x002b, f01=0x0190, f02=»OMPLETED l T P B QI050 READ NEXT RECORD 4 L P* * . P* 'NO DATA' IS OFF, CHECK FOR DISK-ERRORS
0x0e1ac0…0e1c54 (4, 97) Dummy {f00=0x002b, f01=0x0190, f02=» ^ T P MOVE WW1,=X'203B' & T P CALL MASK,NWXSTAT,WW1 CHECK DISK-ERRORS ~ T P BNOK QI050 DISK-ERROR FOUND
0x0e1c54…0e1de8 Dummy {f00=0x002b, f01=0x018e, f02=» * ~ L P* DO THE INDEXED DELETE AND THE INDEXED INSERT * > L P* * T P MOVE WWCOUNT,=W'0' RESET COUNT
0x0e1de8…0e1f7c Dummy {f00=0x002b, f01=0x0190, f02=» P CALL MASK,NWXSTAT,WW1 P BNOK QI050 DISK-ERROR FOUND " L P* * F L P* BECAUSE THE RECORD IS ALREADY IN 'FCBUFFER' * L P* COPYING FROM THE UWB IS NOT N
0x0e1f7c…0e2110 Dummy {f00=0x002b, f01=0x0190, f02=» * P COMMIT NWXSTAT F T P SET SBNOCOPY ^ T P PERF ZEINSD,WDEC1 INSERT, PARAMETER IS A DUMMY
0x0e2110…0e22a4 Dummy {f00=0x002b, f01=0x0190, f02=» f L P* * . P* END OF LRN UPDATE ~ L P* * L P*
0x0e22a4…0e2438 Dummy {f00=0x002b, f01=0x0190, f02=»O REFLECT THE CURRENT SITUATION OF THE DATABASE * L P* ACCOUNT RECORDS ARE SCANNED UNTIL 50 CONSECUTIVE * J L P* UNUSED ACCOUNT NUMBERS HAVE BEEN FOUND * L P*
0x0e2438…0e25cc Dummy {f00=0x002b, f01=0x018e, f02=»YDLASSAV,=D'167999' LAST SAVINGS-ACT. NUMBER R P MOVE YDLASCHQ,=D'167998' LAST CHEQUE-ACT. NUMBER P L P MOVE YDLASSEQ,=D'0' LAST TRANS. SEQUENCE NUMBER L P MOVE WWCOUNT,=D'0
0x0e25cc…0e2760 Dummy {f00=0x002b, f01=0x0190, f02=» F P CLEAR SBCHQACT N P MOVE IDACTNR1,=D'167999' L PQI150 r $ P PERF ZGREA RELEASE EXCL. ACCES L P ADD IDACTNR1,=D'2' NEXT ACCOU
0x0e2760…0e28f4 (4, 98) Dummy {f00=0x002b, f01=0x0190, f02=»DACTRNR,KDSHIFT L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 J L P TBT SBCANCEL,QI980 L P TBT SBRECAVB,QI200
0x0e28f4…0e2a88 Dummy {f00=0x002b, f01=0x0190, f02=»WCOUNT,=W'1' L P CBG WWCOUNT,=W'50',QI700 READY, STOP J L P B QI150 NEXT ACCOUNT L P*
0x0e2a88…0e2c1c Dummy {f00=0x002b, f01=0x0190, f02=»PDATE SYSTEM RECORD VARIABLES * L P* * J L PQI200 L P MOVE WWCOUNT,=W'0' RESET COUN
0x0e2c1c…0e2db0 Dummy {f00=0x002b, f01=0x0190, f02=»TE LAST SAVINGS/CHEQUE ACCOUNT NUMBER * L P* * J L P TBT SBCHQACT,QI300 L P*
0x0e2db0…0e2f44 Dummy {f00=0x002b, f01=0x0190, f02=» * L P CBL IDACTNR1,YDLASSAV,QI400 J L P MOVE YDLASSAV,IDACTNR1 UPDATE L P B QI400
0x0e2f44…0e30d8 Dummy {f00=0x002b, f01=0x0190, f02=»UE ACCOUNT * L P* * J L PQI300 L P CBL IDACTNR1,YDLASCHQ,QI400
0x0e30d8…0e326c Dummy {f00=0x002b, f01=0x0190, f02=» * L P* UPDATE LAST TRANSACTION SEQUENCE NUMBER * J L P* * L PQI400
0x0e326c…0e3400 Dummy {f00=0x002b, f01=0x0190, f02=»YDLASSEQ,ADLASSEQ UPDATE L P* * J L P* RESET ACCOUNT STATUS TO DEBLOCKED, * L P* IF ACCOUNT WAS CLOSED
0x0e3400…0e3594 (4, 99) Dummy {f00=0x002c, f01=0x0190, f02=» L P CBL ADSTATUS,=D'2',QI600 ACCOUNT NOT CLOSED J L P MOVE ADSTATUS,=D'0' DEBLOCKED L P PERF ZDRWRD,ADACTRNR,NDLRN1
0x0e3594…0e3728 Dummy {f00=0x002c, f01=0x0190, f02=» L P B QI150 J L P* * L P* UPDATE SYSTEM RECORD VARIABL
0x0e3728…0e38bc Dummy {f00=0x002c, f01=0x0190, f02=» * L PQI700 J L P TBT SBCHQACT,QI980 READY L P* DO THE CHEQUE ACCOUNTS
0x0e38bc…0e3a50 Dummy {f00=0x002c, f01=0x0190, f02=»IDACTNR1,=D'167998' START WITH CHEQUE ACCOUNTS $ P MOVE WWCOUNT,=W'0' RESET COUNT ! L L P B QI150 ! t L PQI980
0x0e3a50…0e3be4 Dummy {f00=0x002c, f01=0x40fc, f02=» ! H L P PEND " L P************************************************************************ " X L P END " @ "
0x0e3be4…0e3d78 Dummy {f00=0x002c, f01=0x2008, f02=» # x L P RET 8 L P PEND L P************************************************
0x0e3d78…0e3f0c Dummy {f00=0x002c, f01=0x40de, f02=» < H IDENT T:DA00 TRA 10.0 80-06-27 F1 O1111 DATA DIVISION T:DA00 D T:DA00D V AAMAIN j * & A0 0 * | * @ > E X @ 1 b
0x0e3f0c…0e40a0 Dummy {f00=0x002c, f01=0x40a8, f02=» < H IDENT T:ATAB TRA 10.0 80-06-27 F1 O1111 DATA DIVISION T:ATAB D T:ATABA V T:AA00 j @ | :A @ * @ > E X @ 1 b
0x0e40a0…0e4234 (4, 100) Opaque[0x194]
0x0e4234…0e43c8 # DirEnt {nam=»QMISC «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0588, f03=0xffff}
0x0e4234…0e43c8 IdxSect {
0x0e4234…0e43c8 f00 = 0x002c // 0xe4234 @0x0
0x0e4234…0e43c8 f01 = 0x0010 // 0xe4236 @0x2
0x0e4234…0e43c8 gno = [ // 0xe4238 @0x4
0x0e4234…0e43c8 [0x00]: C0x002c.0x1.0
0x0e4234…0e43c8 [0x01]: C0x002c.0x2.0
0x0e4234…0e43c8 [0x02]: C0x002c.0x3.0
0x0e4234…0e43c8 [0x03]: C0x002d.0x0.0
0x0e4234…0e43c8 [0x04]: C0x002d.0x1.0
0x0e4234…0e43c8 [0x05]: C0x002d.0x2.0
0x0e4234…0e43c8 [0x06]: C0x002d.0x3.0
0x0e4234…0e43c8 [0x07]: C0x002e.0x0.0
0x0e4234…0e43c8 ]
0x0e4234…0e43c8 }
0x0e43c8…0e455c Dummy {f00=0x002c, 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
0x0e455c…0e46f0 Dummy {f00=0x002c, f01=0x0190, f02=» * L P* PROCEDURE: QAFNKY * F L P* PARAMETERS: * L P* XWINDEX (UPDATE): INDEX IN
0x0e46f0…0e4884 Dummy {f00=0x002c, 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.
0x0e4884…0e4a18 Dummy {f00=0x002c, 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
0x0e4a18…0e4bac Dummy {f00=0x002c, 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
0x0e4bac…0e4d40 Dummy {f00=0x002c, 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
0x0e4d40…0e4ed4 (4, 101) Dummy {f00=0x002c, 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
0x0e4ed4…0e5068 Dummy {f00=0x002c, f01=0x0190, f02=»EY2: IS KEY 2 ON ? * L P* WORKVARIABLE: * F L P* WW1 * L P*
0x0e5068…0e51fc Dummy {f00=0x002c, f01=0x0190, f02=»C XWINDEX,XWADAPT,XWKTBLNG " P PBIN XWINDEX,XWADAPT,XWKTBLNG F L PQA000 l L P* *
0x0e51fc…0e5390 Dummy {f00=0x002c, f01=0x0190, f02=» * L P PERF QBSTKY,XWINDEX,XWADAPT L P* * l L P* CHECK IF INDEX POINTS INTO THE KEYTABLE *
0x0e5390…0e5524 Dummy {f00=0x002c, 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
0x0e5524…0e56b8 Dummy {f00=0x002c, f01=0x0190, f02=» * L P* CHECK KEYBOARD TYPE * L P* * l L P CBG XWINDEX,XWKTBLNG,QA300 6231/34 KEYBOARD WITH KEY 2 ON
0x0e56b8…0e584c Dummy {f00=0x002c, 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
0x0e584c…0e59e0 Dummy {f00=0x002c, 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
0x0e59e0…0e5b74 (4, 102) Dummy {f00=0x002c, f01=0x0190, f02=» b QA999 RET PEND " L P************************************************************************ 0 L P* * L P* PROCEDURE: QBSTKY
0x0e5b74…0e5d08 Dummy {f00=0x002c, 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
0x0e5d08…0e5e9c Dummy {f00=0x002c, 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
0x0e5e9c…0e6030 Dummy {f00=0x002c, f01=0x0190, f02=» TURNED XWINDEX MUST BE SET TO XWADAPT * p L P* * 0 L P* VARIABLES USED: * L P* SB34KB: 6234/31-KEYBOARD ?
0x0e6030…0e61c4 Dummy {f00=0x002c, f01=0x0190, f02=» * p L P* WORKVARIABLE: * 0 L P* WW1 * L P*
0x0e61c4…0e6358 Dummy {f00=0x002c, 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*
0x0e6358…0e64ec Dummy {f00=0x002c, 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
0x0e64ec…0e6680 Dummy {f00=0x002c, f01=0x0190, f02=» L P MOVE XWINDEX,XWADAPT J L PQB999 P RET P PEND L P****
0x0e6680…0e6814 (4, 103) Dummy {f00=0x002d, 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*
0x0e6814…0e69a8 Dummy {f00=0x002d, 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*
0x0e69a8…0e6b3c Dummy {f00=0x002d, 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****
0x0e6b3c…0e6cd0 Dummy {f00=0x002d, f01=0x0190, f02=» T L PQC000 L P MOVE NWUWBNR,=W'0' d L P* * L P* TR
0x0e6cd0…0e6e64 Dummy {f00=0x002d, f01=0x0190, f02=» * T L PQC100 L P ADD NWUWBNR,=W'1' d L P USE UBF,NWUWBNR L P BER
0x0e6e64…0e6ff8 Dummy {f00=0x002d, 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*
0x0e6ff8…0e718c Dummy {f00=0x002d, f01=0x0190, f02=» T L P SET SBUSEDWB L P USE UCY,NWUWBNR d P USE UIF,NWUWBNR L P USE UOP,NWUWBNR
0x0e718c…0e7320 Dummy {f00=0x002d, f01=0x0190, f02=» l L P USE UT1,NWUWBNR , L P USE UT2,NWUWBNR | P USE UQQ,NWUWBNR L P B QC999
0x0e7320…0e74b4 (4, 104) Dummy {f00=0x002d, f01=0x0190, f02=»B'S * L P* * D L PQC500 L P MOVE NWUWBNR,=W'0' INDICATE NO F
0x0e74b4…0e7648 Dummy {f00=0x002d, f01=0x0190, f02=» L P PEND D L P************************************************************************ L P*
0x0e7648…0e77dc Dummy {f00=0x002d, f01=0x0190, f02=»AL DESCRIPTION: * L P* FREE TGHE UWB'S RESERVED BEFORE BY CLEARING SBUSEDWB. * D L P* * L P************************************
0x0e77dc…0e7970 Dummy {f00=0x002d, f01=0x0190, f02=» L P CLEAR SBUSEDWB ! D L PQD999 ! L P RET
0x0e7970…0e7b04 Dummy {f00=0x002d, f01=0x0190, f02=»************************************************************ ! L P* * " D L P* PROCEDURE: QENTRS * " L P* PARAMETER:
0x0e7b04…0e7c98 Dummy {f00=0x002d, 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
0x0e7c98…0e7e2c Dummy {f00=0x002d, f01=0x0190, f02=» = 9, RESET XDTRS TO 1. * # L P* * $ D L P************************************************************************ $ L PQENTRS PROC XDTRS
0x0e7e2c…0e7fc0 Dummy {f00=0x002d, 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
0x0e7fc0…0e8154 (4, 105) Dummy {f00=0x002d, f01=0x0190, f02=» % H L P PEND & L P************************************************************************ & X L P* * & L P* PROCEDURE:
0x0e8154…0e82e8 Dummy {f00=0x002d, 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
0x0e82e8…0e847c Dummy {f00=0x002d, f01=0x0190, f02=» ' H L P* * ( L P************************************************************************ ( X L PQFLTRS PROC XDTRS ( P PBCD XDTRS (
0x0e847c…0e8610 Dummy {f00=0x002d, 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 )
0x0e8610…0e87a4 Dummy {f00=0x002d, f01=0x0190, f02=» ) L P************************************************************************ * L P* * * l L P* PROCEDURE: QGATYP * *
0x0e87a4…0e8938 Dummy {f00=0x002d, 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 * +
0x0e8938…0e8acc Dummy {f00=0x002d, f01=0x0190, f02=» * + L P* VARIABLES USED: * , L P* SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * , l L P* WORKVARIABLE: * ,
0x0e8acc…0e8c60 Dummy {f00=0x002d, f01=0x0190, f02=» * , L P************************************************************************ - L PQGATYP PROC XDACTNR - l P PBCD XDACTNR - L PQG000
0x0e8c60…0e8df4 (4, 106) Dummy {f00=0x002d, f01=0x0190, f02=» * - r L P* TEST ACCOUNTNUMBER IS ODD/EVEN * . 2 L P* * . L P MOVE WDEC1,XDACTNR
0x0e8df4…0e8f88 Dummy {f00=0x002d, f01=0x0190, f02=» . r L P CBNE WDEC1,XDACTNR,QG200 NUMBER IS ODD / 2 L P SET SBCHQACT EVEN NUMBER - CHEQUE ACCOUNT / L PQG200
0x0e8f88…0e911c Dummy {f00=0x002d, f01=0x0190, f02=» / r L P************************************************************************ 0 2 L P* * 0 L P* PROCEDURE: QHSPKY
0x0e911c…0e92b0 Dummy {f00=0x002d, 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:
0x0e92b0…0e9444 Dummy {f00=0x002d, 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
0x0e9444…0e95d8 Dummy {f00=0x002d, f01=0x0190, f02=» * 2 r L P************************************************************************ 3 2 L PQHSPKY PROC XWINDEX,XWADAPT,XWKTBLNG 3 " P PBIN XWINDEX,XWADAPT,XWKTBLNG 3 L PQH000
0x0e95d8…0e976c Dummy {f00=0x002d, 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*
0x0e976c…0e9900 Dummy {f00=0x002d, 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'
0x0e9900…0e9a94 (4, 107) Dummy {f00=0x002e, 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
0x0e9a94…0e9c28 Dummy {f00=0x002e, 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
0x0e9c28…0e9dbc Dummy {f00=0x002e, 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
0x0e9dbc…0e9f50 Dummy {f00=0x002e, 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
0x0e9f50…0ea0e4 Dummy {f00=0x002e, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x0ea0e4…0ea278 Dummy {f00=0x002e, 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
0x0ea278…0ea40c Dummy {f00=0x002e, 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
0x0ea40c…0ea5a0 Dummy {f00=0x002e, 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
0x0ea5a0…0ea734 (4, 108) Opaque[0x194]
0x0ea734…0ea8c8 # DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x05c8, f03=0xffff}
0x0ea734…0ea8c8 IdxSect {
0x0ea734…0ea8c8 f00 = 0x002e // 0xea734 @0x0
0x0ea734…0ea8c8 f01 = 0x0014 // 0xea736 @0x2
0x0ea734…0ea8c8 gno = [ // 0xea738 @0x4
0x0ea734…0ea8c8 [0x00]: C0x002e.0x1.0
0x0ea734…0ea8c8 [0x01]: C0x002e.0x2.0
0x0ea734…0ea8c8 [0x02]: C0x002e.0x3.0
0x0ea734…0ea8c8 [0x03]: C0x002f.0x0.0
0x0ea734…0ea8c8 [0x04]: C0x002f.0x1.0
0x0ea734…0ea8c8 [0x05]: C0x002f.0x2.0
0x0ea734…0ea8c8 [0x06]: C0x002f.0x3.0
0x0ea734…0ea8c8 [0x07]: C0x0030.0x0.0
0x0ea734…0ea8c8 [0x08]: C0x0030.0x1.0
0x0ea734…0ea8c8 [0x09]: C0x0030.0x2.0
0x0ea734…0ea8c8 ]
0x0ea734…0ea8c8 }
0x0ea8c8…0eaa5c Dummy {f00=0x002e, f01=0x0190, f02=» 0 P IDENT ZDSCIO DISC I/O OPERATIONS L P DDUM DEMODD 8 L P PDIV L P ENTRY ZAOPND
0x0eaa5c…0eabf0 Dummy {f00=0x002e, f01=0x0190, f02=» x L P ENTRY ZDRWRD 8 L P ENTRY ZEINSD P ENTRY ZGREA P ENTRY ZHWRID P
0x0eabf0…0ead84 Dummy {f00=0x002e, f01=0x0190, f02=» P EXPROC MASK P EXPROC XAKBIN P EXPROC XEERR . L P EJECT D L P************************************************************************ L P*
0x0ead84…0eaf18 Dummy {f00=0x002e, 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
0x0eaf18…0eb0ac Dummy {f00=0x002e, 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*
0x0eb0ac…0eb240 Dummy {f00=0x002e, 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,
0x0eb240…0eb3d4 (4, 109) Dummy {f00=0x002e, 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
0x0eb3d4…0eb568 Dummy {f00=0x002e, 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
0x0eb568…0eb6fc Dummy {f00=0x002e, 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
0x0eb6fc…0eb890 Dummy {f00=0x002e, f01=0x0190, f02=» R L P RET L P PEND b P* P* PERROPN FRMT P FCOPY =X'2031' $ P FTEXT 'FILE OPEN UNSU
0x0eb890…0eba24 Dummy {f00=0x002e, f01=0x0190, f02=»************************************************ x L P* PROCEDURE: ZBCLSD * 8 L P* FUNCTIONAL DESCRIPTION: * L P* CLOSE DATABASE FOR BOTH INDEXFILES
0x0eba24…0ebbb8 Dummy {f00=0x002e, f01=0x0190, f02=»************************************************ x PZBCLSD PROC 8 L PZB000 N P CLOSE DSDBS P BOK ZB900 L PZB500
0x0ebbb8…0ebd4c Dummy {f00=0x002e, f01=0x0190, f02=» l L P RET , L P PEND | L P EJECT
0x0ebd4c…0ebee0 Dummy {f00=0x002e, f01=0x0190, f02=» * l L P* PARAMETERS: XDRECNR (INPUT) * , L P* XDLOGRNR (OUTPUT) * | L P* XWINDFLE (INPUT)
0x0ebee0…0ec074 (4, 110) Dummy {f00=0x002e, 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:
0x0ec074…0ec208 Dummy {f00=0x002e, 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
0x0ec208…0ec39c Dummy {f00=0x002e, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x0ec39c…0ec530 Dummy {f00=0x002e, 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
0x0ec530…0ec6c4 Dummy {f00=0x002e, 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*
0x0ec6c4…0ec858 Dummy {f00=0x002e, 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
0x0ec858…0ec9ec Dummy {f00=0x002e, 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*
0x0ec9ec…0ecb80 Dummy {f00=0x002e, 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 -->
0x0ecb80…0ecd14 (4, 111) Dummy {f00=0x002f, f01=0x0190, f02=» * j " P* CHECK EXTENDED STATUS CODE * L P* * P L P PERF ZZERR I/O ERROR-HANDLING > P TBT SBCAN
0x0ecd14…0ecea8 Dummy {f00=0x002f, 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
0x0ecea8…0ed03c Dummy {f00=0x002f, f01=0x0190, f02=» CLEAR SBNOCOPY L P RET L P PEND h L P EJECT L P
0x0ed03c…0ed1d0 Dummy {f00=0x002f, f01=0x0190, f02=» * X L P* PROCEDURE: ZDRWRD * L P* PARAMETERS: XDRECNR (INPUT) * h L P* XDLOGRNR (INPUT) * L P
0x0ed1d0…0ed364 Dummy {f00=0x002f, f01=0x0190, f02=» * X L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTFIELD FOR DATABASE-RECORDS * h L P* NWRECLNG : UWB-RECORDLENGTH * L P
0x0ed364…0ed4f8 Dummy {f00=0x002f, f01=0x0190, f02=» * X L P************************************************************************ 2 PZDRWRD PROC XDRECNR,XDLOGRNR REWRITE DATABASE h P PBCD XDRECNR,XDLOGRNR L PZD000
0x0ed4f8…0ed68c Dummy {f00=0x002f, f01=0x0190, f02=»* * L P* REWRITE DATABASE VIA INDEXFILE-1 * P L P* * PZD100 " P REWRITE .
0x0ed68c…0ed820 Dummy {f00=0x002f, 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
0x0ed820…0ed9b4 (4, 112) Dummy {f00=0x002f, f01=0x0190, f02=»TENDED STATUS CODE, SET SBRECAVB AS REQUIRED L P* * 4 L P PERF ZZERR L PZD900
0x0ed9b4…0edb48 Dummy {f00=0x002f, f01=0x0190, f02=» t P EJECT 4 J P********************************************************************* J L P* * L P* PROCEDURE: ZEINSD
0x0edb48…0edcdc Dummy {f00=0x002f, f01=0x0190, f02=»UNCTIONAL DESCRIPTION: * L P* INSERT RECORD IN DATABASE * H L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTF
0x0edcdc…0ede70 Dummy {f00=0x002f, f01=0x0190, f02=» NWXSTAT : EXTENDED STATUS CODE * L P* SBNOPY : DON'T COPY RECORD INTO UWB * ! H L P* * ! J P********************************
0x0ede70…0ee004 Dummy {f00=0x002f, 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
0x0ee004…0ee198 Dummy {f00=0x002f, 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
0x0ee198…0ee32c Dummy {f00=0x002f, 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******************
0x0ee32c…0ee4c0 Dummy {f00=0x002f, f01=0x0190, f02=» RET $ P PEND % P EJECT % ( J P********************************************************************* % 6 L P* * % L P* PROCEDURE: ZHWRID
0x0ee4c0…0ee654 (4, 113) Dummy {f00=0x002f, 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
0x0ee654…0ee7e8 Dummy {f00=0x002f, f01=0x0190, f02=» * & t L P* SBNOPY : DON'T COPY RECORD INTO UWB * ' 4 L P* SBRECAVB : RECORD AVAILABLE AFTER READ * ' J P****************************************************
0x0ee7e8…0ee97c Dummy {f00=0x002f, f01=0x0190, f02=»ZH000 ' L P* * ( P L P* TEST RECORD IN DATABASE AND SET SBRECAVB ACCORDINGLY * ( L P*
0x0ee97c…0eeb10 Dummy {f00=0x002f, f01=0x0190, f02=» ( h L P TBT SBCANCEL,ZH999 ) ( L PZH100 ) x L P TBT SBRECAVB,ZH200
0x0eeb10…0eeca4 Dummy {f00=0x002f, f01=0x0190, f02=»NSERTED IN THE DATABASE * ) h L P* * * ( L P PERF ZEINSD,XDRECNR * x L P B ZH999
0x0eeca4…0eee38 Dummy {f00=0x002f, f01=0x0190, f02=»MUST BE * * h L P* REWRITTEN TO THE DATABASE * + ( L P* * + x L PZH200
0x0eee38…0eefcc Dummy {f00=0x002f, f01=0x0190, f02=»LEAR SBNOCOPY + L P RET , L P PEND , f L P EJECT , L P**
0x0eefcc…0ef160 Dummy {f00=0x002f, f01=0x018e, f02=» * , V L P* PROCEDURE: ZYRLNG * - L P* PARAMETERS: XDRECNR (INPUT) * - f < P* - CONTAINS THE SHIFTED RECORD NUMBER - L P* FUNCTIONAL
0x0ef160…0ef2f4 (4, 114) Dummy {f00=0x002f, f01=0x0190, f02=» - F L P* ON RECORD-NUMBER. * . L P* SYSTEMRECORD : 74 BYTES * . X L P* CURRENCYRECORD : 58 BYTES * . L P*
0x0ef2f4…0ef488 Dummy {f00=0x002f, f01=0x0190, f02=» . H L P* TRANSACTIONRECORD : 75 BYTES * / L P* USE OF VARIABLES: * / X L P* WDEC1 : NON-SHIFTED RECORDNUMBER * / L P* WD
0x0ef488…0ef61c Dummy {f00=0x002f, f01=0x0190, f02=» / H L P* * 0 L P************************************************************************ 0 X PZYRLNG PROC XDRECNR 0 P PBCD XDRECNR 0 L PZY000
0x0ef61c…0ef7b0 Dummy {f00=0x002f, 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
0x0ef7b0…0ef944 Dummy {f00=0x002f, f01=0x0190, f02=» 1 V L P* * 2 L P* RECNR BELONGS TO CURRENCYRECORD ? * 2 f L P* * 2 0 P M
0x0ef944…0efad8 Dummy {f00=0x002f, 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
0x0efad8…0efc6c Dummy {f00=0x002f, 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
0x0efc6c…0efe00 Dummy {f00=0x002f, 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*
0x0efe00…0eff94 (4, 115) Dummy {f00=0x0030, 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
0x0eff94…0f0128 Dummy {f00=0x0030, 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
0x0f0128…0f02bc Dummy {f00=0x0030, f01=0x0190, f02=» 7 n L P EJECT 8 . L P************************************************************************ 8 ~ L P*
0x0f02bc…0f0450 Dummy {f00=0x0030, 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
0x0f0450…0f05e4 Dummy {f00=0x0030, f01=0x0190, f02=» * 9 n L P* * : . L P* BIT ERROR MESSAGE * : ~ L P* 2 RECORD PROTECTED RECORD PROTECTED
0x0f05e4…0f0778 Dummy {f00=0x0030, 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
0x0f0778…0f090c Dummy {f00=0x0030, 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
0x0f090c…0f0aa0 Dummy {f00=0x0030, f01=0x0190, f02=»E CHECKED * < n L P* * = . L P************************************************************************ = ~ L P
0x0f0aa0…0f0c34 (4, 116) Dummy {f00=0x0030, f01=0x0190, f02=» = n L P CLEAR SBRECAVB > . L PZZ100 > ~ L P MOVE WW1,=X'0010' SET BIT 2 IN WORKFIELD
0x0f0c34…0f0dc8 Dummy {f00=0x0030, 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
0x0f0dc8…0f0f5c Dummy {f00=0x0030, f01=0x0190, f02=» * ? L P* CHECK ON DISK ERRORS * @ D L P* * @ L PZZ200
0x0f0f5c…0f10f0 Dummy {f00=0x0030, 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
0x0f10f0…0f1284 Dummy {f00=0x0030, 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
0x0f1284…0f1418 Dummy {f00=0x0030, f01=0x0190, f02=» B L P RET C D L P PEND C L P*
0x0f1418…0f15ac Dummy {f00=0x0030, f01=0x4048, f02=» C @ D D C D L P PEND C L P*
0x0f15ac…0f1740 Dummy {f00=0x0030, f01=0x2008, f02=» E & x L P PEND ' 8 L P END ' @ ' SBIOERR I/O ERROR OCCURED
0x0f1740…0f18d4 (4, 117) Dummy {f00=0x0030, 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 "
0x0f18d4…0f1a68 Dummy {f00=0x0030, 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
0x0f1a68…0f1bfc Dummy {f00=0x0030, 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
0x0f1bfc…0f1d90 Dummy {f00=0x0030, 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
0x0f1d90…0f1f24 Dummy {f00=0x0030, 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 :
0x0f1f24…0f20b8 Dummy {f00=0x0030, 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
0x0f20b8…0f224c Dummy {f00=0x0030, 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
0x0f224c…0f23e0 Dummy {f00=0x0030, 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 %
0x0f23e0…0f2574 (4, 118) Opaque[0x194]
0x0f2574…0f2708 # DirEnt {nam=»DFOACT«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0618, f03=0xffff}
0x0f2574…0f2708 IdxSect {
0x0f2574…0f2708 f00 = 0x0030 // 0xf2574 @0x0
0x0f2574…0f2708 f01 = 0x0006 // 0xf2576 @0x2
0x0f2574…0f2708 gno = [ // 0xf2578 @0x4
0x0f2574…0f2708 [0x00]: C0x0030.0x3.0
0x0f2574…0f2708 [0x01]: C0x0031.0x0.0
0x0f2574…0f2708 [0x02]: C0x0031.0x1.0
0x0f2574…0f2708 ]
0x0f2574…0f2708 }
0x0f2708…0f289c Dummy {f00=0x0030, f01=0x0190, f02=» * P IDENT DFOACT OPEN ACCOUNT L P************************************************************************ 2 L P* MODULE-NAME : * L P* DFOACT OPEN ACCOUNT-NUMBER
0x0f289c…0f2a30 Dummy {f00=0x0030, f01=0x0190, f02=»RITE JOURNAL * r L P* XBFMT SCREEN-CONTROL * 2 L P* XEERR ERROR-ROUTINE * L P* ZEINSD WRITE ACCOUNT-RECORD
0x0f2a30…0f2bc4 Dummy {f00=0x0030, f01=0x0190, f02=»EAD ACCOUNT-RECORD * r L P* * 2 L P************************************************************************ L P DDUM DEMODD
0x0f2bc4…0f2d58 Dummy {f00=0x0030, f01=0x018e, f02=» r P ENTRY SPAP13 2 " P EXPROC XHMSU WRITE BADGE CARD H P P EXPROC PAJRN n P P EXPROC XBFMT
0x0f2d58…0f2eec Dummy {f00=0x0030, f01=0x0190, f02=» B L P EJECT L P************************************************************************ X P* & P* OPEN ACCOUNT (CHEQUE OR SAVINGS) P* L P**********************************
0x0f2eec…0f3080 Dummy {f00=0x0030, f01=0x0190, f02=» L P TBT SBCHEQUE,DF100 F L P ADD YDLASSAV,=D'2' J P CBG YDLASSAV,=D'168999',DF900
0x0f3080…0f3214 (4, 119) Dummy {f00=0x0031, f01=0x0190, f02=» L PDF100 D J P ADD YDLASCHQ,=D'2' J P CBG YDLASCHQ,=D'168999',DF900
0x0f3214…0f33a8 Dummy {f00=0x0031, 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'
0x0f33a8…0f353c Dummy {f00=0x0031, f01=0x0190, f02=» SCREEN v P* L PDF300 L P PERF XBFMT,=D'39' j L P TBT SBCANCEL,DF999
0x0f353c…0f36d0 Dummy {f00=0x0031, f01=0x0190, f02=»CARDNR IS MULTIPLIED BY 1. . P* IN THIS WAY EACH 'F' IS REPLACED BY '0' " P* T P MUL ADCARDNR,=D'1' ^ P TBF SBCARD,DF350 NO 'CARD' z * P PERF XHMSU,ADCARDNR WRITE BADGE CARD P* L P* INITIATE ACCOUNT-RECORD AND TRANSACTION-R
0x0f36d0…0f3864 Dummy {f00=0x0031, f01=0x0190, f02=» | L P MOVE ADLASSEQ,YDLASSEQ > L P MOVE TDTRSSEQ,ADLASSEQ L PDF400
0x0f3864…0f39f8 Dummy {f00=0x0031, f01=0x0190, f02=»RNR ~ L P B DF999 > L PDF900 L P PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANS
0x0f39f8…0f3b8c Dummy {f00=0x0031, f01=0x0190, f02=» ~ P CLEAR SBOACT > L P RET T L P PEND P EJECT L P******
0x0f3b8c…0f3d20 Dummy {f00=0x0031, f01=0x0190, f02=»NE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE- ~ , P* ACCOUNT ( DFOACT ) AS FOLLOWS : : 2 P* - CARD-NUMBER IN THE RANGE 1001-9999 j 0 P* - CARD-NUMBER MAY NOT ALREADY EXIST L P****************************************************
0x0f3d20…0f3eb4 (4, 120) Dummy {f00=0x0031, f01=0x0190, f02=»DNR,=D'9999',S13200 ( P MOVE ADACTRNR,ADCARDNR P* H ( P* SEE IF RECORD IS AVAILABLE ALREADY R 0 P* THE RECORD MUST NOT BE COPIED TO THE UWB, ~ P* SO SBNOCOPY IS SET FIRST P* $ P SET SBNOCOPY DON'T COPY TO UWB H P
0x0f3eb4…0f4048 Dummy {f00=0x0031, f01=0x4184, f02=»999 PS13100 P MOVE SPBINW4,=W'29' P MOVE XWRET,=W'1' 6 P B S13999 P PS13200 b * P MOVE SPBINW4,=W'1' VALUE NOT IN RANGE p P MOVE XWRET,=W'1' PS13999 P RET P PEND L P****************************************
0x0f4048…0f41dc Dummy {f00=0x0031, f01=0x2008, f02=» x L P PEND 8 L P END @ BE "CANCE
0x0f41dc…0f4370 Dummy {f00=0x0031, f01=0x0190, f02=»**************************** d * $ P* UPDATE OPERATOR . * H L P************************************************************************ R L PDBUOPR PROC L PDB000
0x0f4370…0f4504 Dummy {f00=0x0031, f01=0x0190, f02=» L P* * L P* SYSTEM START PROGRESSING, * T L P* READ ALL OPERATOR RECORDS AND RESET STATUS TO * L P* 'OPERATOR NOT I
0x0f4504…0f4698 Dummy {f00=0x0031, f01=0x0190, f02=» N . P* AND THEN CONTINUE BY INDEXED READ NEXT. P* : P MOVE ODOPRRNR,=D'1' D , P MUL ODOPRRNR,KDSHIFT SYSTEM RECORD KEY ` * P SET SBNOCOPY DON'T COPY RECORD TO UWB $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 P TBT SBCANCEL,DB900 P*
0x0f4698…0f482c Dummy {f00=0x0031, f01=0x0190, f02=»UL ODOPRRNR,KDSHIFT RECORD KEY 4 P PERF ZYRLNG,ODOPRRNR RECORD LENGTH IN NWRECLNG & P* ^ F P* READ NEXT RECORD IN THE DATABASE AND CHECK WHETHER OR NOT IT IS h P* AN OPERATOR RECORD P* PDB100 " P PERF ZGREA RELEASE EXCL ACCES
0x0f482c…0f49c0 Dummy {f00=0x0031, f01=0x0190, f02=» P BOK DB110 P XSTAT DSDBS1,NWXSTAT . * P MOVE WW1,=X'5000' EOF / KEY NOT FOUND L & P CALL MASK,NWXSTAT,WW1 CHECK BITS z . P BNOK DB200 EOF / KEY NOT FOUND --> READY P* DISK ERROR FOUND $ P PERF XEERR,=W'6',KW1 DI
0x0f49c0…0f4b54 (4, 121) Opaque[0x194]
0x0f4b54…0f4ce8 # DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0630, f03=0xffff}
0x0f4b54…0f4ce8 IdxSect {
0x0f4b54…0f4ce8 f00 = 0x0031 // 0xf4b54 @0x0
0x0f4b54…0f4ce8 f01 = 0x0008 // 0xf4b56 @0x2
0x0f4b54…0f4ce8 gno = [ // 0xf4b58 @0x4
0x0f4b54…0f4ce8 [0x00]: C0x0031.0x2.0
0x0f4b54…0f4ce8 [0x01]: C0x0031.0x3.0
0x0f4b54…0f4ce8 [0x02]: C0x0032.0x0.0
0x0f4b54…0f4ce8 [0x03]: C0x0032.0x1.0
0x0f4b54…0f4ce8 ]
0x0f4b54…0f4ce8 }
0x0f4ce8…0f4e7c Dummy {f00=0x0031, f01=0x0190, f02=» 0 P IDENT BCSTTO START OPERATOR L P DDUM DEMODD 8 L P PDIV P EXPROC PAJRN P P EXPROC XBFMT
0x0f4e7c…0f5010 Dummy {f00=0x0031, 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
0x0f5010…0f51a4 Dummy {f00=0x0031, 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
0x0f51a4…0f5338 Dummy {f00=0x0031, 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
0x0f5338…0f54cc Dummy {f00=0x0031, 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
0x0f54cc…0f5660 Dummy {f00=0x0031, f01=0x0190, f02=»NSWER t L P TBF SBKEY2,BC200 WAIT FOR KEY2 L P* * ^ L P* KEY2 ON * L P*
0x0f5660…0f57f4 (4, 122) Dummy {f00=0x0031, 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
0x0f57f4…0f5988 Dummy {f00=0x0031, 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
0x0f5988…0f5b1c Dummy {f00=0x0031, f01=0x0190, f02=»OVE TDTRSCDE,=D'901' L P ADD YDLASSEQ,=D'1' N L P MOVE TDTRSSEQ,YDLASSEQ L P*
0x0f5b1c…0f5cb0 Dummy {f00=0x0031, 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'
0x0f5cb0…0f5e44 Dummy {f00=0x0031, f01=0x0190, f02=» x L PBC500 8 L P ADD IWINDEX1,=W'1' , P MOVE ICTEXT3,YCCCY(IWINDEX1) L P
0x0f5e44…0f5fd8 Dummy {f00=0x0031, 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
0x0f5fd8…0f616c Dummy {f00=0x0031, f01=0x0190, f02=» SBSTTO L P RET L P PEND ` L P************************************************************************ L P*
0x0f616c…0f6300 Dummy {f00=0x0031, f01=0x0190, f02=» * P L P* * L P************************************************************************ ` PSPAP08 PROC XWRET P PBIN XWRET N PS08000
0x0f6300…0f6494 (4, 123) Dummy {f00=0x0032, 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
0x0f6494…0f6628 Dummy {f00=0x0032, 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
0x0f6628…0f67bc Dummy {f00=0x0032, 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
0x0f67bc…0f6950 Dummy {f00=0x0032, f01=0x0190, f02=»ET P PEND L P************************************************************************ L P* * h L P* CHECK OPERATOR PASSWORD IN OPERATOR START * L P
0x0f6950…0f6ae4 Dummy {f00=0x0032, 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
0x0f6ae4…0f6c78 Dummy {f00=0x0032, f01=0x0190, f02=» * h L P* PASSWORD NOT OK * ( L P* * x N PS09200
0x0f6c78…0f6e0c Dummy {f00=0x0032, 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
0x0f6e0c…0f6fa0 Dummy {f00=0x0032, f01=0x0190, f02=» * X N PS09400 L P SET SBTRMBLK j N P MOVE SPBINW2,KWSPCONT RETURN TO APPLICATION
0x0f6fa0…0f7134 (4, 124) Dummy {f00=0x0032, f01=0x0190, f02=» START TERMINAL PROCEDURE * P* N L P************************************************************************ X L PCCSTTT PROC L PCC000
0x0f7134…0f72c8 Dummy {f00=0x0032, 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
0x0f72c8…0f745c Dummy {f00=0x0032, f01=0x0190, f02=» v L PCC900 6 L P RET L P PEND
0x0f745c…0f75f0 Dummy {f00=0x0032, f01=0x0190, f02=» * v L P* TERMINAL START, CHECK DATE * 6 L P* * L P**************************************************
0x0f75f0…0f7784 Dummy {f00=0x0032, 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
0x0f7784…0f7918 Dummy {f00=0x0032, f01=0x2008, f02=» x L P END 8@ F ZZOUTP L PCC900
0x0f7918…0f7aac Dummy {f00=0x0032, 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
0x0f7aac…0f7c40 Dummy {f00=0x0032, 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
0x0f7c40…0f7dd4 (4, 125) Opaque[0x194]
0x0f7dd4…0f7f68 # DirEnt {nam=»AADEMO«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0650, f03=0xffff}
0x0f7dd4…0f7f68 IdxSect {
0x0f7dd4…0f7f68 f00 = 0x0032 // 0xf7dd4 @0x0
0x0f7dd4…0f7f68 f01 = 0x0004 // 0xf7dd6 @0x2
0x0f7dd4…0f7f68 gno = [ // 0xf7dd8 @0x4
0x0f7dd4…0f7f68 [0x00]: C0x0032.0x2.0
0x0f7dd4…0f7f68 [0x01]: C0x0032.0x3.0
0x0f7dd4…0f7f68 ]
0x0f7dd4…0f7f68 }
0x0f7f68…0f80fc Dummy {f00=0x0032, 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
0x0f80fc…0f8290 Dummy {f00=0x0032, f01=0x018e, f02=»******************************************************** P* @ P* COMMON ENTRY POINT J P* f L P************************************************************************ p PAAMAIN PAA000 P EDWRT SPDSSCRN,FMTSTT P PERF XAKBIN,=
0x0f8290…0f8424 Dummy {f00=0x0032, f01=0x0190, 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',
0x0f8424…0f85b8 Dummy {f00=0x0032, f01=0x0190, f02=» THE START-KEY l P* P* YDSTATUS = 0 OR 2 AND P* START HAS BEEN PRESSED @ P* d PAA100 n P PERF QCGUWB GET UWB'S | 4 P CBE NWUWBNR,KW0,AA050 NO FREE USER WORK BLOCKS P* P* START HAS BEEN DEPRESSED P* : P
0x0f85b8…0f874c Dummy {f00=0x0032, f01=0x0190, f02=»THE FIRST TERMINAL p P* RDSTATUS = 0 P* YDSTATUS = 0,2 0 P* H PAA200 R P TBT SBFT80,AA250 ` ( P TBF SBKEY2,AA900 KEY2 SHOULD BE ON z PAA250 " P PERF BASPCT SPECIFY TERMINAL $ P B AA900 WAIT FOR START OF DEMO P*
0x0f874c…0f88e0 Dummy {f00=0x0032, f01=0x018e, f02=»YDSTATUS = 2 P* P PERF BCSTTO : P CBNE RDSTATUS,=D'3',AA900 OPERATOR START UNSUCCESFULL 2 PAA400 p P* ~ P* SELECT FUNCTION P* RDSTATUS = 3 P* YDSTATUS = 2 P* ODSTATUS = 2 P* PAA500 P PERF BESELF
0x0f88e0…0f8a74 (4, 126) Dummy {f00=0x0032, f01=0x0190, f02=» & P TBF SBKEY2,AA050 KEY 2 MUST BE ON P* . P* YDSTATUS = 2 8 P* KEY 2 IS ON N P* NO UWB'S ARE IN USE d P* P PERF CGCSYS CLOSE SYSTEM . P CBE YDSTATUS,=D'3',AA999 CLOSE SUCCEEDED ( P B AA050 UWB'S ARE RELEASED ALREADY
0x0f8a74…0f8c08 Dummy {f00=0x0032, f01=0x4134, f02=» PFMTSTT FRMT P FCOPY =X'2031' ERASE SCREEN P FTEXT 'DEMO PTS 6800 ' @ P FTEXT '12NC=870155040100 ' ` P FTEXT ':' P FMEND P* P* PFMTEND FRMT P FCOPY =X'2031' ERASE SCREEN P FTEXT '*' P FMEND
0x0f8c08…0f8d9c Dummy {f00=0x0032, 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 ( @ ( ' ' ' '
0x0f8d9c…0f8f30 Dummy {f00=0x0032, f01=0x409c, f02=» 8 X Y Y $ Y 6 : 5 3 ! L#! L L CLW I RI( I L CLW LW CL L4 Y H Y @ Y X h $ X r X ~0 $ X J F " D @CL L A` Ka4 %bL #bL W L CLWN(ab L CLW
0x0f8f30…0f90c4 Dummy {f00=0x0032, f01=0x0190, f02=» @ H IDENT T:AF00 TRA 10.0 80-04-22 F1 O1112 CURRENCY INQUIRY Z T:AF00 Z H T:AF00A Z Z > : T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 Z n > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R Z > : U:UCY0 D:UOP0 U:U
0x0f90c4…0f9258 Dummy {f00=0x0032, f01=0x0190, f02=» Z v * & [ * & [ 6 * & = n [ d * & [ [ * & y " p [ * & + 1
0x0f9258…0f93ec Dummy {f00=0x0032, f01=0x4104, f02=» [ x , ( @ F0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @ 1
0x0f93ec…0f9580 Dummy {f00=0x0032, f01=0x40e2, f02=» @ H IDENT T:DF00 TRA 10.0 80-04-22 F1 O1112 CURRENCY INQUIRY ] T:DF00 ] H T:DF00D ] Z AAMAIN ] n * & F0 0 * ] ] * ] @ ] > E X @ 1
0x0f9580…0f9714 (4, 127) Opaque[0x194]
0x0f9714…0f98a8 # DirEnt {nam=»EINIT «, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x0660, f03=0x0000}
0x0f9714…0f98a8 IdxSect {
0x0f9714…0f98a8 f00 = 0x0033 // 0xf9714 @0x0
0x0f9714…0f98a8 f01 = 0x0008 // 0xf9716 @0x2
0x0f9714…0f98a8 gno = [ // 0xf9718 @0x4
0x0f9714…0f98a8 [0x00]: C0x0033.0x0.0
0x0f9714…0f98a8 [0x01]: C0x0033.0x1.0
0x0f9714…0f98a8 [0x02]: C0x0033.0x2.0
0x0f9714…0f98a8 [0x03]: C0x0033.0x3.0
0x0f9714…0f98a8 ]
0x0f9714…0f98a8 }
0x0f98a8…0f9a3c Dummy {f00=0x0033, 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
0x0f9a3c…0f9bd0 Dummy {f00=0x0033, f01=0x0190, f02=»SE AN OPERATOR RECORD IN UWB UOP L P* * ( L P************************************************************************ x L PEAIOPR PROC
0x0f9bd0…0f9d64 Dummy {f00=0x0033, f01=0x0190, f02=»,=C' ' L P MOVE OCNAME,=C' ' D L P MOVE ODSTATUS,=D'0' N P MOVE ODTRMNR,=X'FF'
0x0f9d64…0f9ef8 Dummy {f00=0x0033, f01=0x0190, f02=» V L PEA100 L P ADD WW2,=W'1' f L P MOVE ODCASH(KW1,WW2),=D'0' L P C
0x0f9ef8…0fa08c Dummy {f00=0x0033, f01=0x0190, f02=» j L P RET * L P PEND z L P**************************************************************
0x0fa08c…0fa220 Dummy {f00=0x0033, f01=0x0190, f02=»********************** ^ L PEBZACC PROC L PEB000 n L P MOVE WW1,=W'1'
0x0fa220…0fa3b4 (4, 128) Dummy {f00=0x0033, f01=0x0190, f02=» l L PEB200 , L P ADD WW2,=W'1' NEXT COLUMN | L P MOVE ODCASH(WW1,WW2),=D'0'
0x0fa3b4…0fa548 Dummy {f00=0x0033, f01=0x0190, f02=» l L PEB999 , L P RET | L P PEND
0x0fa548…0fa6dc Dummy {f00=0x0033, 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' '
0x0fa6dc…0fa870 Dummy {f00=0x0033, 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
0x0fa870…0faa04 Dummy {f00=0x0033, f01=0x0190, f02=» H L P MOVE CDRELAT,=D'1' L P PEND X L P************************************************************************ L P*
0x0faa04…0fab98 Dummy {f00=0x0033, f01=0x0190, f02=» * z L P************************************************************************ : L PEDIAC1 PROC L PED000
0x0fab98…0fad2c Dummy {f00=0x0033, f01=0x0190, f02=» H L P MOVE ACADDRES,=C' ' L P MOVE ACTOWN,=C' ' X L P MOVE ACPASS,=C' ' L P MOVE ADSTATUS,
0x0fad2c…0faec0 Dummy {f00=0x0033, 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
0x0faec0…0fb054 (4, 129) Dummy {f00=0x0033, f01=0x0190, f02=» H L P MOVE ADWDRCUM,=D'0' L P MOVE ADLASSEQ,=D'0' X P RET L P PEND L P****
0x0fb054…0fb1e8 Dummy {f00=0x0033, f01=0x0190, f02=» * T . P* INITIALISE AN ACCOUNT RECORD IN UWB UA2 L P* * F L P************************************************************************ L PEFIAC2 PROC
0x0fb1e8…0fb37c Dummy {f00=0x0033, f01=0x0190, f02=» b L P MOVE BCADDRES,=C' ' " L P MOVE BCTOWN,=C' ' r L P MOVE BCPASS,=C' '
0x0fb37c…0fb510 Dummy {f00=0x0033, f01=0x0190, f02=» b L P MOVE BDLIMBOK,=D'0' " L P MOVE BDLASTRS,=D'8' r L P MOVE BDSTMTRS,=D'8'
0x0fb510…0fb6a4 Dummy {f00=0x0033, f01=0x0190, f02=» b L P MOVE BDWDRCUM,=D'0' " L P MOVE BDLASSEQ,=D'0' r P RET L P PEND
0x0fb6a4…0fb838 Dummy {f00=0x0033, f01=0x0190, f02=» * n 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT1 . L P* * b L P************************************************************************ L PEEITR1
0x0fb838…0fb9cc Dummy {f00=0x0033, 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'
0x0fb9cc…0fbb60 Dummy {f00=0x0033, f01=0x0190, f02=»RM,=D'0' L P MOVE TDCHQNR,=D'0' D L P MOVE TCTEXT,=C' ' P RET L P PEND
0x0fbb60…0fbcf4 (4, 130) Dummy {f00=0x0033, f01=0x0190, f02=»* * 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT2 P L P* * L P****************************************************
0x0fbcf4…0fbe88 Dummy {f00=0x0033, 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
0x0fbe88…0fc01c Dummy {f00=0x0033, f01=0x0190, f02=» V L P MOVE UDACTFRM,=D'0' L P MOVE UDCHQNR,=D'0' f L P MOVE UCTEXT,=C' ' P R
0x0fc01c…0fc1b0 Dummy {f00=0x0033, f01=0x0190, f02=»************************** b L P* * " B P* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S r L P* * L P
0x0fc1b0…0fc344 Dummy {f00=0x0033, 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********************************************************************
0x0fc344…0fc4d8 Dummy {f00=0x0033, 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
0x0fc4d8…0fc66c Dummy {f00=0x0033, 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
0x0fc66c…0fc800 Dummy {f00=0x0033, 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
0x0fc800…0fc994 (4, 131) Opaque[0x194]
0x0fc994…0fcb28 # DirEnt {nam=»NJ1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x0fc994…0fcb28 IdxSect {
0x0fc994…0fcb28 f00 = 0x0053 // 0xfc994 @0x0
0x0fc994…0fcb28 f01 = 0x0002 // 0xfc996 @0x2
0x0fc994…0fcb28 gno = [ // 0xfc998 @0x4
0x0fc994…0fcb28 [0x00]: C0x0053.0x2.0
0x0fc994…0fcb28 ]
0x0fc994…0fcb28 }
0x0fcb28…0fccbc Dummy {f00=0x0053, f01=0x0190, f02=» PMES * $ PMES * GENERATION OF DEMOPACKAGE PMES * REL 10.0 : PMES * V PSCR d PNOD C p PPRT MMU ~ PTRA DEMODD,NL PINC ZFMTIO PNOD R PINC AADEMO PINC BASPCT PINC CASTTS PINC CGCSYS
0x0fccbc…0fce50 Dummy {f00=0x0053, f01=0x018e, f02=» PINC XOPINP PNOD R PINC ZDSCIO ( PINC ZMRDF : PINC BCSTTO L PINC DNTRF ^ PNOD R p PINC BESELF ~ PINC CFCHKH PINC DDTP71 PINC SPACHQ PNOD R PINC PRINT PINC CDCHKY PINC CEGACT
0x0fce50…0fcfe4 Dummy {f00=0x0053, f01=0x011e, f02=» PINC DKDSTM PINC DLDEP PINC DMWDR , PNOD R > PINC DOQCCY L PINC DPECCY ^ PINC DQCOPR p PINC PBBOOK PINC DEMSCR PTLK U,2K PLKE M PKPF /L,A:DEMO 0 P$PDISC M=M:DEMO,MU=M:DEMO,A=A:DEMO,C=DEMCON
0x0fcfe4…0fd178 Dummy {f00=0x0053, f01=0x2008, f02=» INC DKDSTM PINC DLDEP PINC DMWDR , PNOD R > PINC DOQCCY L PINC DPECCY ^ PINC DQCOPR p PINC PBBOOK PINC DEMSCR PTLK U,2K PLKE M PKPF /L,A:DEMO 0 P$PDISC M=M:DEMO,MU=M:DEMO,A=A:DEMO,C=DEMCON
0x0fd178…0fd30c Dummy {f00=0x0053, 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*
0x0fd30c…0fd4a0 Dummy {f00=0x0053, 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**********************************************************************
0x0fd4a0…0fd634 (4, 132) Opaque[0x194]
0x0fd634…0fd7c8 # DirEnt {nam=»BESELF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f0, f03=0x0000}
0x0fd634…0fd7c8 IdxSect {
0x0fd634…0fd7c8 f00 = 0x0037 // 0xfd634 @0x0
0x0fd634…0fd7c8 f01 = 0x000c // 0xfd636 @0x2
0x0fd634…0fd7c8 gno = [ // 0xfd638 @0x4
0x0fd634…0fd7c8 [0x00]: C0x0037.0x2.0
0x0fd634…0fd7c8 [0x01]: C0x0037.0x3.0
0x0fd634…0fd7c8 [0x02]: C0x0038.0x0.0
0x0fd634…0fd7c8 [0x03]: C0x0038.0x1.0
0x0fd634…0fd7c8 [0x04]: C0x0038.0x2.0
0x0fd634…0fd7c8 [0x05]: C0x0038.0x3.0
0x0fd634…0fd7c8 ]
0x0fd634…0fd7c8 }
0x0fd7c8…0fd95c Dummy {f00=0x0037, 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
0x0fd95c…0fdaf0 Dummy {f00=0x0037, f01=0x0190, f02=» F P P EXPROC DOQCCY P P EXPROC DPECCY ^ P P EXPROC DCVDU P P E
0x0fdaf0…0fdc84 Dummy {f00=0x0037, f01=0x0190, f02=» Z P P EXPROC DFOACT P P EXPROC DGCACT r P P EXPROC DHBACT
0x0fdc84…0fde18 Dummy {f00=0x0037, f01=0x0190, f02=» n P P EXPROC DKDSTM 2 P P EXPROC DLDEP P P EXPROC DMWDR
0x0fde18…0fdfac Dummy {f00=0x0037, f01=0x0190, f02=» P EXPROC ECICCY P EXPROC PAJRN P EXPROC ZCRDD 4 P EXPROC ZGREA J P ENTRY BESELF ` P* v P* P* L PBESELF PROC L PBE000
0x0fdfac…0fe140 Dummy {f00=0x0037, f01=0x0190, f02=»EXCL. ACCES | L P* * L P* RESET ALL SWITCHES * d L P* * * P CLE
0x0fe140…0fe2d4 (4, 133) Dummy {f00=0x0037, f01=0x0190, f02=» J L P MOVE SWCCY,=W'0' CURRENCY SWITCH L P CLEAR SBNOBOOK Z L P CLEAR SBRVS REVERSAL SWITCH L P CLEAR SBCARD
0x0fe2d4…0fe468 Dummy {f00=0x0037, f01=0x0190, f02=»* * L P* ACCEPT A FUNCTION KEY * P L P* * PBE004 & P PERF XDMS
0x0fe468…0fe5fc Dummy {f00=0x0037, f01=0x0190, f02=» R 2 P CBE NWKTBIX,KWCANCEL,BE000 CANCEL KEY PRESSED . P* KEYLOCK TURN, POWER OFF OR UNDEFINED KEY H 8 P CBNG NWKTBIX,=W'0',BE006 KEYLOCK TURN OR POWER OFF z L P CBL NWKTBIX,=W'12',BE100 NON PREFIX KEY L P*
0x0fe5fc…0fe790 Dummy {f00=0x0037, f01=0x0190, f02=» * V , P* HOWEVER, THE INPUT FIELD MUST BE EMPTY L P* * F 2 P CBE SPBINW1,=W'0',BE008 INPUT FIELD IS EMPTY 2 P PERF XEERR,=W'10',KW1 'UNSERVICEABLE REQUEST' P B BE0
0x0fe790…0fe924 Dummy {f00=0x0037, f01=0x0190, f02=»BE010,BE010, CURRENCY 1,2 OR 3 C ~ L P BE020,BE030,BE040,BE050 * P B BE006 z L PBE010 P* L P* CURRENCY KEY 1,2 OR 3
0x0fe924…0feab8 Dummy {f00=0x0037, f01=0x0190, f02=» BE006 ACCEPT NEXT FUNCTION KEY L PBE020 N L P SET SBCHEQUE L P B BE006 ACCEPT NEXT FUNCT
0x0feab8…0fec4c Dummy {f00=0x0037, f01=0x0190, f02=»ET SBNOBOOK L P B BE006 ACCEPT NEXT FUNCTION KEY N L PBE040 L P SET SBRVS REVERSAL
0x0fec4c…0fede0 Dummy {f00=0x0037, f01=0x0190, f02=»050 L P SET SBCARD L P B BE006 ACCEPT NEXT FUNCTION KEY L P* * L P* NON PREFIX
0x0fede0…0fef74 (4, 134) Dummy {f00=0x0038, f01=0x0190, f02=» * L L PBE100 B P COPY FCFIELD,KW0,SPBINW1,SPINPUT,KW0 COPY NON EOI CHARACTERS , P CBG SPBINW1,=W'0',BE110 FIELD NOT EMPTY L P SET SBFLDEMP INDICATE FIELD EMPTY
0x0fef74…0ff108 Dummy {f00=0x0038, f01=0x018e, f02=» COMBINATIONS | P* L P************************************************************************ PBE110 p P PERF CDCHKY ~ & P TBT SBCANCEL,BE990 ERROR DETECTED L P************************************************************************
0x0ff108…0ff29c Dummy {f00=0x0038, f01=0x0190, f02=» L P* * L P************************************************************************ X P PERF CFCHKH P TBT SBCANCEL,BE990 L P************************************************
0x0ff29c…0ff430 Dummy {f00=0x0038, f01=0x0190, f02=» * x L P* * 8 L P************************************************************************ L PBE500
0x0ff430…0ff5c4 Dummy {f00=0x0038, f01=0x0190, f02=» 'LIST' x L P CBE NWKTBIX,=W'3',BE600 'OPEN' 8 L P CBE SWCCY,=W'0',BE550 L P*
0x0ff5c4…0ff758 Dummy {f00=0x0038, f01=0x0190, f02=» * x L P TBT SBFLDEMP,BE520 8 L P* * L P* CURRENCY IS ON AND THE FIELD IS NOT EMPTY
0x0ff758…0ff8ec Dummy {f00=0x0038, f01=0x0190, f02=» * x L P PERF ECICCY INITIALISE UWB 8 L P MOVE CCCCYCDE,FCFIELD INIT CURRENCY CODE L P B BE600 SELECT FUNCTION
0x0ff8ec…0ffa80 Dummy {f00=0x0038, f01=0x0190, f02=»LD IS EMPTY * x L P* READ CURRENCY RECORD * 8 L P* * L PBE520
0x0ffa80…0ffc14 (4, 135) Dummy {f00=0x0038, f01=0x0190, f02=» x L P MUL CDCCYRNR,KDSHIFT SHIFT TO GET RECORD NUMBER 8 $ P PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 P TBT SBCANCEL,BE990 L P B BE600 SELECT FUNCTION
0x0ffc14…0ffda8 Dummy {f00=0x0038, f01=0x0190, f02=» * l L P* GET OPERATOR INPUT * , L P* * | L PBE550
0x0ffda8…0fff3c Dummy {f00=0x0038, f01=0x0190, f02=»OR CANCEL l L P* * , L P* AT THIS POINT, WHEN THE FUNCTION SELECTED IS NOT 'CARD TRANSFER', * | 6 P* 'OPERATOR CLOSE' OR 'D-S (ALL ACCOUNT OPTION)' L P*
0x0fff3c…1000d0 Dummy {f00=0x0038, f01=0x0190, f02=»T NUMBER, * V L P* - THE VARIABLE 'NDLRN1' CONTAINS THE LOGICAL RECORD NUMBER OF THE * L P* ACCOUNT RECORD, * f L P* - THE BOOLEAN 'SBCHQACT' INDICATES WHETHER THE ACCOUNT * L P*
0x1000d0…100264 Dummy {f00=0x0038, f01=0x0190, f02=» * V L P************************************************************************ L P* * f L P* SELECT FUNCTION * L P*
0x100264…1003f8 Dummy {f00=0x0038, f01=0x0190, f02=»************** V L PBE600 L P TBF SBOPRCLS,BE610 f P PERF DQCOPR OPERATOR CLOSE L P B BE900
0x1003f8…10058c Dummy {f00=0x0038, f01=0x0190, f02=» * z L P* * : L PBE610 L P CBE SWCCY,=W'0',BE700
0x10058c…100720 Dummy {f00=0x0038, f01=0x0190, f02=» * z L P* * : L P CBNE NWKTBIX,=W'6',BE620 NOT 'UPDATE' P PERF DAUCCY CURRENCY UPDATE L P B BE900
0x100720…1008b4 (4, 136) Dummy {f00=0x0038, f01=0x0190, f02=» N L P CBNE NWKTBIX,=W'7',BE630 NOT 'INQUIRY' " P PERF DOQCCY CURRENCY INQUIRY ^ L P B BE900 L PBE630
0x1008b4…100a48 Dummy {f00=0x0038, f01=0x0190, f02=» J PBE640 " P PERF DPECCY CURRENCY EXCHANGE L P B BE900 > L P* * L P* BRANCH TO SEVERAL FUNCTIONS
0x100a48…100bdc Dummy {f00=0x0038, f01=0x0190, f02=» ~ 2 P IB NWKTBIX,BE710,BE720,BE730,BE740,BE750, C > ( P BE760,BE770,BE780,BE790,BE800, C t P BE810 L PBE710 L P CBE FCF
0x100bdc…100d70 Dummy {f00=0x0038, f01=0x0190, f02=» v L PBE712 ! 6 L P PERF DDTP71 DEMONSTRATE TP71 ! L P B BE900
0x100d70…100f04 Dummy {f00=0x0038, f01=0x0190, f02=» ! v L P B BE900 " 6 L PBE730 " L P PERF DFOACT OPEN ACCOUNT
0x100f04…101098 Dummy {f00=0x0038, f01=0x0190, f02=» " v L P PERF DGCACT CLOSE ACCOUNT # 6 L P B BE900 # L PBE750
0x101098…10122c Dummy {f00=0x0038, f01=0x0190, f02=» # v L PBE760 $ 6 L P PERF DJUACT UPDATE ACCOUNT $ L P B BE900
0x10122c…1013c0 Dummy {f00=0x0038, f01=0x0190, f02=»NT $ v L P B BE900 % 6 L PBE780 % L P PERF DKDSTM DAILY STATEMENT
0x1013c0…101554 (4, 137) Dummy {f00=0x0038, f01=0x0190, f02=» % v L P PERF DLDEP DEPOSIT & 6 L P B BE900 & L PBE800
0x101554…1016e8 Dummy {f00=0x0038, f01=0x0190, f02=» & v L PBE810 ' 6 L P PERF DNTRF TRANSFER ' L P*
0x1016e8…10187c Dummy {f00=0x0038, f01=0x0190, f02=» * ' v L PBE900 ( 6 4 P CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-FUNCTIONS ( P* ( , P* PRINT LINE TYPE 3: CLOSING OF FUNCTION ( P* ( P PERF
0x10187c…101a10 Dummy {f00=0x0038, f01=0x0190, f02=»E ODSTATUS,=D'2',BE999 OPERATOR CLOSE HAS SUCCEEDED ( L P* * ) L P* RE-EXECUTE FUNCTION CHOISE ) L P* *
0x101a10…101ba4 Dummy {f00=0x0038, f01=0x0190, f02=» ) ` L P* * * L P* RETURN TO CALLING MODULE * * p L P* *
0x101ba4…101d38 Dummy {f00=0x0038, f01=0x40d8, f02=» * ` L P PEND + P* + p P* + z L P END + @ + *
0x101d38…101ecc Dummy {f00=0x0038, f01=0x2008, f02=» , x L P SET SBCHEQUE 8 L P B BE050 ACCEPT NEXT FUNCTION KEY L PBE030
0x101ecc…102060 Dummy {f00=0x0038, f01=0x0190, f02=» B & + P _ W @ B #0 T B #0 T V @ W 2 & V >A >A 2 $ B & V D 9a 9 V @ W @ T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X (
0x102060…1021f4 (4, 138) Opaque[0x194]
0x1021f4…102388 # DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0720, f03=0x0000}
0x1021f4…102388 IdxSect {
0x1021f4…102388 f00 = 0x0039 // 0x1021f4 @0x0
0x1021f4…102388 f01 = 0x000c // 0x1021f6 @0x2
0x1021f4…102388 gno = [ // 0x1021f8 @0x4
0x1021f4…102388 [0x00]: C0x0039.0x0.0
0x1021f4…102388 [0x01]: C0x0039.0x1.0
0x1021f4…102388 [0x02]: C0x0039.0x2.0
0x1021f4…102388 [0x03]: C0x0039.0x3.0
0x1021f4…102388 [0x04]: C0x003a.0x0.0
0x1021f4…102388 [0x05]: C0x003a.0x1.0
0x1021f4…102388 ]
0x1021f4…102388 }
0x102388…10251c Dummy {f00=0x0039, f01=0x0190, f02=» 8 P IDENT CEGACT GET ACCOUNT L P DDUM DEMODD @ L P PDIV P EXPROC DKDSTM P EXPROC PBBOOK
0x10251c…1026b0 Dummy {f00=0x0039, f01=0x0190, f02=»ROC XEERR P EXPROC XGBCR P P EXPROC ZCRDD ( P EXPROC ZGREA | L P ENTRY CEGACT L P**************************************
0x1026b0…102844 Dummy {f00=0x0039, f01=0x0190, f02=» L P* * L P************************************************************************ X L PCEGACT PROC L PCE000
0x102844…1029d8 Dummy {f00=0x0039, f01=0x0190, f02=»NSFER' AND 'CARD' z & P B CE999 'TRANSFER' AND NOT 'CARD' L P* * D L P* GET ADDITIONAL INPUT * L P*
0x1029d8…102b6c Dummy {f00=0x0039, f01=0x0190, f02=»CE120 L P* * D L P* BADGE CARD READER INPUT * L P*
0x102b6c…102d00 Dummy {f00=0x0039, f01=0x0190, f02=»=W'27' 'DRAW CARD THROUGH BCR' P TBF SBCANCEL,CE115 D P B CE999 ` PCE115 p P TBF SBMSU,CE116 ~ $ P MOVE WWINDEX1,KW2 TRACK NUMBER PCE116 L P PERF XGBCR GET ACCOUNT NUMBER
0x102d00…102e94 (4, 139) Dummy {f00=0x0039, f01=0x0190, f02=»CE120 L P TBF SBCHEQUE,CE130 P L P* * L P* OPTICAL DOCUMENT READE
0x102e94…103028 Dummy {f00=0x0039, f01=0x0190, f02=» B CE970 READ ACCOUNT RECORD P* P L P* KEYBOARD INPUT * Z L P* * L PCE130
0x103028…1031bc Dummy {f00=0x0039, f01=0x0190, f02=» J P TBF SBCANCEL,CE140 P B CE999 CANCEL & L P********************************************************************** * > L P* * L P* PERFORM CHECKS ON NUMBER ENTERED
0x1031bc…103350 Dummy {f00=0x0039, f01=0x0190, f02=»**************************************************** * ~ PCE140 > ( P CBNE NWKTBIX,=W'8',CE150 NEXT CHECK L P CBNE IDACTNR1,=D'0',CE150 x L P* * L P* NUMBER ENTERED = 0 AND 'D-S'
0x103350…1034e4 Dummy {f00=0x0039, f01=0x0190, f02=» * L P CBE RDPRTTYP,=D'2',CE149 GTP AVAILABLE J L P CBE YDMLPINT,=D'1',CE149 LINE PRINTER AVAILABLE P B CE990 PCE149 P
0x1034e4…103678 Dummy {f00=0x0039, f01=0x0190, f02=» ERROR t N P CBL IDACTNR1,=D'10000',CE200 READ ACCOUNT RECORD 4 . P CBL IDACTNR1,=D'10001',CE920 NOT IN RANGE 6 P CBL IDACTNR1,=D'20000',CE180 POSSIBLE OPR. CLOSE L P CBL IDACTNR1,=D'16800
0x103678…10380c Dummy {f00=0x0039, f01=0x0190, f02=» CE920 ERROR P* N P* POSSIBLE OPERATOR CLOSE X P* z PCE180 & P CBNE NWKTBIX,=W'4',CE920 NO CLOSE , P CBNE IDACTNR1,RDOPRNR,CE990 INVALID KEY P* 8 P* NUMBER ENTERED I
0x10380c…1039a0 Dummy {f00=0x0039, f01=0x0190, f02=»99 RETURN L P* * L P* RECORD NUMBER IS IN THE RIGHT RANGE * b L P* * L PCE200
0x1039a0…103b34 (4, 140) Dummy {f00=0x0039, f01=0x0190, f02=»DACTNR1 $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW2 P B CE250 8 P* H P* READ VIA INDEX 1 R P* l PCE210 v L P MOVE ADACTRNR,IDACTNR1 L P MUL ADACTRNR,KDSHIFT
0x103b34…103cc8 Dummy {f00=0x0039, f01=0x0190, f02=»CEL,CE999 L P TBF SBRECAVB,CE990 RECORD NOT AVAILABLE F L P********************************************************************** * L P*
0x103cc8…103e5c Dummy {f00=0x0039, f01=0x0190, f02=»CHECKS ON THE RECORD READ L P* * " L P********************************************************************** * r L PCE300
0x103e5c…103ff0 Dummy {f00=0x0039, f01=0x0190, f02=»COUNT TYPE n P* P PERF QGATYP,IDACTNR1 L P CBL ADSTATUS,=D'2',CE400 ACCOUNT NOT CLOSED : L P* * L P* ACCOUNT CLOSED
0x103ff0…104184 Dummy {f00=0x0039, f01=0x0190, f02=» * R L P TBF SBKEY2,CE340 & P CBE NWKTBIX,=W'6',CE400 'UPDATE' b PCE340 4 P CBE ADSTATUS,=D'3',CE990 CLOSED WITH STATEMENT L P*
0x104184…104318 Dummy {f00=0x0039, f01=0x0190, f02=»STATEMENTS, CONTINUE r L P* PERFORM DAILY STATEMENTS OR PRINT PASSBOOK * L P* IF A TELLER TERMINAL PRINTER IS AVAILABLE * l L P* *
0x104318…1044ac Dummy {f00=0x0039, f01=0x0190, f02=» p L P* * 0 L P* SAVINGS ACCOUNT, PRINT PASSBOOK * < P* PRINT ALL UNSTATEMENTED TRANSACTIONS AND A CLOSE LINE
0x1044ac…104640 Dummy {f00=0x0039, f01=0x0190, f02=» B CE370 L P* * L P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS * ` L P* * L PCE360
0x104640…1047d4 (4, 141) Dummy {f00=0x0039, f01=0x0190, f02=» CE990 L PCE400 N L P CBE ADSTATUS,=D'0',CE500 DEBLOCKED L P*
0x1047d4…104968 Dummy {f00=0x0039, f01=0x0190, f02=» * L P CBE NWKTBIX,=W'7',CE500 'INQUIRY' ALLOWED N * P CBE NWKTBIX,=W'8',CE500 'D-S' ALLOWED L P TBF SBKEY2,CE980 ELSE KEY 2 MUST BE ON
0x104968…104afc Dummy {f00=0x0039, f01=0x018e, f02=» l L P B CE980 ERROR, ACCOUNT BLOCKED , L P********************************************************************** * | P* P* ADDITONAL CHECKS L P*
0x104afc…104c90 Dummy {f00=0x0039, f01=0x0190, f02=» P* P* CHECK CLOSE L P* * $ L PCE500 t P CBNE NWKTBIX,=W'4',CE505 " P CBNE ADBAL,=D'0',CE950 ERROR
0x104c90…104e24 Dummy {f00=0x0039, f01=0x0190, f02=» P* P* CHECK OUT P* " PCE510 , ( P CBNE NWKTBIX,=W'10',CE520 NOT 'OUT' : $ P TBF SBCHEQUE,CE520 NOT 'CHEQUE' f P* P* CHEQUE/OUT P* . P TBF SBCHQACT,CE940 MUST BE CHEQUE ACCOUNT P* 2 P* CHECK IF THERE IS EN
0x104e24…104fb8 Dummy {f00=0x0039, f01=0x0190, f02=» CBE NWKTBIX,=W'9',CE525 'IN' $ P CBE NWKTBIX,=W'10',CE525 'OUT' & ( P CBE NWKTBIX,=W'11',CE525 'TRANSFER' N P B CE600 z PCE525 P MOVE WDEC1,ADLASTRS , P PERF QENTRS,WDEC1 NEXT TRANSACTION NR. " P CBNE ADSTMTRS,WDEC1,CE600 OKE
0x104fb8…10514c Dummy {f00=0x0039, f01=0x0190, f02=» b P TBT SBCHQACT,CE550 P* $ 8 P* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS . P* j & P TBT SBNOBOOK,CE930 'NOBOOK' IS ON t P PERF PBBOOK P B CE560 P* , P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS P* PCE
0x10514c…1052e0 Dummy {f00=0x0039, f01=0x018e, f02=»ITTEN BY PBBOOK OR DKDSTM, n . P* SO READ IT AGAIN TO GET EXCLUSIVE ACCES " P* T $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 ^ P TBT SBCANCEL,CE999 PCE600 L P B CE999 L P********
0x1052e0…105474 (4, 142) Dummy {f00=0x003a, f01=0x0190, f02=» Z P* L P************************************************************************ PCE910 b P PERF XEERR,=W'33',KW2 p P B CE998 L P************************************************************************ P* ( P* DISPLAY ERROR:
0x105474…105608 Dummy {f00=0x003a, f01=0x0190, f02=»F XEERR,=W'1',KW2 P B CE998 L P************************************************************************ * P* z . P* DISPLAY ERROR: NO TRANSACTIONS POSSIBLE P* L P************************************************************************
0x105608…10579c Dummy {f00=0x003a, f01=0x0190, f02=»**** L P* $ P* DISPLAY ERROR: SAVINGS ACCOUNT P* > L P************************************************************************ H PCE940 P PERF XEERR,=W'34',KW2 P B CE998 L P****************************************************
0x10579c…105930 Dummy {f00=0x003a, f01=0x0190, f02=»************************** b PCE950 ! " P PERF XEERR,=W'37',KW2 ! 0 P B CE998 ! N L P************************************************************************ ! ^ P* ! * P* DISPLAY ERROR: UNSERVICEABEL REQUEST ! P* ! L P************************
0x105930…105ac4 Dummy {f00=0x003a, f01=0x0190, f02=»**************************************************** ! | P* " < * P* DISPLAY ERROR: INPUT DEVICE FAILURE " F P* " t L P************************************************************************ " ~ PCE970 " P PERF XEERR,=W'32',KW2 " P B CE998 " L
0x105ac4…105c58 Dummy {f00=0x003a, f01=0x0190, f02=» * " Z L P* DISPLAY ERROR: ACCOUNT BLOCKED * # L P* * # j L P************************************************************************ # L
0x105c58…105dec Dummy {f00=0x003a, f01=0x018e, f02=»**************************************************************** # L P* * $ H L P* DISPLAY ERROR: RECORD KEY INVALID * $ L P*
0x105dec…105f80 Dummy {f00=0x003a, f01=0x0190, f02=» $ P TBF SBMSU,CE992 % P TBF SBCARD,CE992 % P CBE WWINDEX1,KW3,CE992 % : & P MOVE WWINDEX1,KW3 TO READ TRACK 3 % Z P B CE116 % PCE992 % P PERF XEERR,=W'29',KW2 % PCE998 % P TBT SBCANCEL,CE999 % ( P PERF ZGREA RELEASE EXCLUSIVE
0x105f80…106114 (4, 143) Dummy {f00=0x003a, f01=0x4138, f02=» % L P PEND & D L P************************************************************************ & L P END
0x106114…1062a8 Dummy {f00=0x003a, f01=0x2008, f02=» ' x@ 8 8 L P PEND L P*
0x1062a8…10643c Dummy {f00=0x003a, f01=0x0190, f02=» ' h 4 P CBE NWKTBIX,=W'1',BE910 NOT FOR DEMO-FUNCTIONS ( ( P* ( ` , P* PRINT LINE TYPE 3: CLOSING OF FUNCTION ( j P* ( P PERF PAJRN,=W'3' ( P* ( P* CHECK STATUS ( P* ( PBE910 ( 4 P CBE YDSTATUS,=D'3
0x10643c…1065d0 Dummy {f00=0x003a, f01=0x0190, f02=» * ( ~ P* RE-EXECUTE FUNCTION CHOISE ) > L P* * ) b L PBE990 ) L P B BE0
0x1065d0…106764 Dummy {f00=0x003a, f01=0x0190, f02=» * ) R L P* RETURN TO CALLING MODULE * * L P* * * b L PBE999 * L P RET
0x106764…1068f8 Dummy {f00=0x003a, f01=0x407a, f02=» * R P* + P* + L P END + &@ + v * * b L PBE999 * L P RET
0x1068f8…106a8c Dummy {f00=0x003a, f01=0x2008, f02=» , x L P SET SBCHEQUE 8 L P B BE050 ACCEPT NEXT FUNCTION KEY L PBE030
0x106a8c…106c20 Dummy {f00=0x003a, f01=0x0190, f02=» ` L P MOVE TDTRSCDE,=D'7' L P* * p L P* PRINT LINE TYPE 2 *
0x106c20…106db4 (4, 144) Opaque[0x194]
0x106db4…106f48 # DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x106db4…106f48 IdxSect {
0x106db4…106f48 f00 = 0x003a // 0x106db4 @0x0
0x106db4…106f48 f01 = 0x0008 // 0x106db6 @0x2
0x106db4…106f48 gno = [ // 0x106db8 @0x4
0x106db4…106f48 [0x00]: C0x003a.0x2.0
0x106db4…106f48 [0x01]: C0x003a.0x3.0
0x106db4…106f48 [0x02]: C0x003b.0x0.0
0x106db4…106f48 [0x03]: C0x003b.0x1.0
0x106db4…106f48 ]
0x106db4…106f48 }
0x106f48…1070dc Dummy {f00=0x003a, 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
0x1070dc…107270 Dummy {f00=0x003a, f01=0x0190, f02=»CHKY PROC PCD000 L P************************************************************************ L P* * p L P* CHECKS ON CURRENCY *
0x107270…107404 Dummy {f00=0x003a, f01=0x0190, f02=»************************ ` L PCD110 L P CBNE KDCHECKS(NWKTBIX,KW1),=D'1',CD112 p L P CBNE SWCCY,=W'0',CD990 ERROR
0x107404…107598 Dummy {f00=0x003a, f01=0x0190, f02=» * ` L P* SPECIFIC CURRENCY CHECKS * L P* * p L PCD112
0x107598…10772c Dummy {f00=0x003a, f01=0x0190, f02=» T L P* * L P* CURRENCY IS ON * d L P* * L P TBT
0x10772c…1078c0 Dummy {f00=0x003a, f01=0x0190, f02=» T L P TBT SBCARD,CD990 L P TBT SBRVS,CD990 ERRORS d L P B CD120 NEXT CHECK L P*
0x1078c0…107a54 (4, 145) Dummy {f00=0x003a, f01=0x0190, f02=» * T L P* * L PCD115 d L P TBF SBFLDEMP,CD990 FIELD NOT EMPTY L P****
0x107a54…107be8 Dummy {f00=0x003a, f01=0x0190, f02=» * T L P* CHECKS ON CHEQUE * L P* * d L P************************************************************************ L PCD12
0x107be8…107d7c Dummy {f00=0x003a, f01=0x0190, f02=» T L P TBT SBCHEQUE,CD990 ERROR L P B CD130 NEXT CHECK d L P* * L P* SP
0x107d7c…107f10 Dummy {f00=0x003a, 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*
0x107f10…1080a4 Dummy {f00=0x003a, 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 SBCARD,CD990 'C
0x1080a4…108238 Dummy {f00=0x003a, f01=0x0190, f02=»******** P L P* * L P* CHECKS ON NOBOOK * ` L P* * L P********
0x108238…1083cc Dummy {f00=0x003a, f01=0x0190, f02=» ^ L P TBT SBNOBOOK,CD990 ERROR L P B CD140 NEXT CHECK n L P* *
0x1083cc…108560 Dummy {f00=0x003a, f01=0x0190, f02=» * ^ L PCD132 L P CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140 n L P TBF SBNOBOOK,CD140 OK, NEXT CHECK
0x108560…1086f4 (4, 146) Dummy {f00=0x003b, f01=0x0190, f02=»******************************************************************** L P* * L L P* CHECKS ON REVERSAL * L P*
0x1086f4…108888 Dummy {f00=0x003b, f01=0x0190, f02=»0 L P CBNE KDCHECKS(NWKTBIX,KW4),=D'1',CD142 L L P TBT SBRVS,CD990 ERROR L P B CD150 NEXT CHECK
0x108888…108a1c Dummy {f00=0x003b, f01=0x0190, f02=»******************************************************************** L P* * L L P* CHECKS ON CARD * L P*
0x108a1c…108bb0 Dummy {f00=0x003b, f01=0x0190, f02=»0 L P CBNE KDCHECKS(NWKTBIX,KW5),=D'1',CD152 L L P TBT SBCARD,CD990 ERROR L P B CD160 NEXT CHECK
0x108bb0…108d44 Dummy {f00=0x003b, f01=0x0190, f02=»ECIFIC CARD CHECKS * L P* * L L PCD152 L P CBNE KDCHECKS(NWKTBIX,KW5),
0x108d44…108ed8 Dummy {f00=0x003b, f01=0x0190, f02=» SBNOBOOK,CD990 'NOBOOK' MUST BE OFF J P TBT SBCHEQUE,CD990 'CHEQUE' MUST BE OFF J , P TBF SBFLDEMP,CD990 FIELD MUST BE EMPTY PCD154 , P CBNE KDCHECKS(NWKTBIX,KW5),=D'3',CD160 P T
0x108ed8…10906c Dummy {f00=0x003b, f01=0x0190, f02=» * L P* CHECKS ON THE INPUT-FIELD * L L P* * L P****************************
0x10906c…109200 Dummy {f00=0x003b, f01=0x417a, f02=»E KDCHECKS(NWKTBIX,KW6),=D'1',CD999 L P TBF SBFLDEMP,CD990 FIELD NOT EMPTY, ERROR L L P B CD999 NEXT CHECK CD990 0 P PERF XEERR,=W
0x109200…109394 (4, 147) Dummy {f00=0x003b, 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
0x109394…109528 Dummy {f00=0x003b, f01=0x4118, f02=» FCOPY =X'2031' ERASE SCREEN P FTEXT 'DEMO PTS 6800 ' $ P FTEXT '12NC=870155040100 ' D P FTEXT ':' h P FMEND z P* P* PFMTEND FRMT P FCOPY =X'2031' ERASE SCREEN P FTEXT '*' P FMEND P* P* P
0x109528…1096bc Dummy {f00=0x003b, 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 ( @ ( ' ' ' '
0x1096bc…109850 Dummy {f00=0x003b, f01=0x0190, f02=» < H IDENT T:AF00 TRA 4.2 80-02-11 F1 O1112 DATA DIVISION T:AF00 D T:AF00A , V > : T:DF00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 j > : D:TSP0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0I D:UCY0 > : U:UCY0 D:UOP0 U:UOP0
0x109850…1099e4 Dummy {f00=0x003b, f01=0x0190, f02=» * & * & 2 * & = n ` * & [ * & y " * & p +
0x1099e4…109b78 Dummy {f00=0x003b, f01=0x4114, f02=» P t * & R F0 * & + T @ , ( = n , ( M " $ & ( * , . , ( ] 0 2 4 6 8 : < > m l
0x109b78…109d0c Dummy {f00=0x003b, f01=0x40de, f02=» < H IDENT T:DF00 TRA 4.2 80-02-11 F1 O1112 DATA DIVISION T:DF00 D T:DF00D V AAMAIN j * & F0 0 * | * @ 4 6 8 : < > m l
0x109d0c…109ea0 Dummy {f00=0x003b, f01=0x0190, f02=» < H IDENT T:AG00 TRA 4.2 80-02-11 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
0x109ea0…10a034 (4, 148) Opaque[0x194]
0x10a034…10a1c8 # DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0770, f03=0x0000}
0x10a034…10a1c8 IdxSect {
0x10a034…10a1c8 f00 = 0x003b // 0x10a034 @0x0
0x10a034…10a1c8 f01 = 0x0006 // 0x10a036 @0x2
0x10a034…10a1c8 gno = [ // 0x10a038 @0x4
0x10a034…10a1c8 [0x00]: C0x003b.0x2.0
0x10a034…10a1c8 [0x01]: C0x003b.0x3.0
0x10a034…10a1c8 [0x02]: C0x003c.0x0.0
0x10a034…10a1c8 ]
0x10a034…10a1c8 }
0x10a1c8…10a35c Dummy {f00=0x003b, f01=0x0190, f02=» D P IDENT CFCHKH CHECK AVAILABLE HARDWARE DDUM DEMODD L PDIV ` P EXPROC XEERR n ENTRY CFCHKH L P************************************************************************ L P*
0x10a35c…10a4f0 Dummy {f00=0x003b, f01=0x0190, f02=» * x L P************************************************************************ 8 CFCHKH PROC CF000 L P************************************************************************ L P*
0x10a4f0…10a684 Dummy {f00=0x003b, f01=0x0190, f02=» * J L P* * L P************************************************************************ Z L P* * L P* FOR EOI, DEM
0x10a684…10a818 Dummy {f00=0x003b, f01=0x0190, f02=» * J L PCF300 L P CBNE NWKTBIX,=W'1',CF320 NOT 'EOI' Z L PCF310 L P CBE FCFIELD,
0x10a818…10a9ac Dummy {f00=0x003b, f01=0x0190, f02=» J P CBE FCFIELD,=C'6346',CF314 P B CF970 . L PCF312 > L P CBNE RDPRTTYP,=D'0',CF990 NO TP71 AVAILABLE L P B CF320 NEXT CHECK
0x10a9ac…10ab40 Dummy {f00=0x003b, f01=0x0190, f02=»9',CF990 NO VDU AVAILABLE ~ L P************************************************************************ > L P* * L P* FOR LIST, A VIDEO SCREEN MUST BE AVAILAB
0x10ab40…10acd4 (4, 149) Dummy {f00=0x003b, f01=0x0190, f02=» ~ L P CBNE NWKTBIX,=W'2',CF330 NOT 'LIST' > L P CBL RDSCRLNS,=D'19',CF990 NO VDU AVAILABLE L P******************************************
0x10acd4…10ae68 Dummy {f00=0x003b, f01=0x0190, f02=»HANUMERIC KEYBOARD MUST BE AVAILABLE * ~ L P* * > L PCF330 L P CBNE NWKTBIX,=W'3',CF350 NOT 'OPEN'
0x10ae68…10affc Dummy {f00=0x003b, f01=0x0190, f02=»************************ ` P* 6 P* IF 'CARD', A BADGE CARD READER MUST BE AVAILABLE * P* d PCF350 n P TBF SBCARD,CF360 NOT 'CARD' | " P CBE RDBCR,=D'0',CF990 NO BCR . P* IF CARD AND 'OPEN' MSU MUST BE AVAILABLE & P CBNE NWKTBIX,KW
0x10affc…10b190 Dummy {f00=0x003b, f01=0x0190, f02=»E AVAILABLE j P* PCF360 ( P CBNE NWKTBIX,=W'10',CF380 NOT 'OUT' , 0 P TBF SBCHEQUE,CF380 NOT 'CHEQUE', NEXT CHECK X " P CBE RDODR,=D'0',CF990 NO ODR L P************************************************************************ L P*
0x10b190…10b324 Dummy {f00=0x003b, f01=0x0190, f02=» * R L P* A TELLER PRINTER MUST BE AVAILABLE * L P* OR KEY 2 MUST BE ON * b L P* * PCF380
0x10b324…10b4b8 Dummy {f00=0x003b, f01=0x0190, f02=» ` , P CBL RDPRTTYP,=D'2',CF400 TELLER PRINTER ( P TBT SBFT80,CF410 FINANCIAL TERMINAL P & P TBF SBKEY2,CF980 KEY 2 MUST BE ON | PCF400 L P************************************************************************ L P*
0x10b4b8…10b64c Dummy {f00=0x003b, f01=0x0190, f02=» * T L P* * L P************************************************************************ d L P* FOR BLOCK * L PCF41
0x10b64c…10b7e0 Dummy {f00=0x003b, f01=0x0190, f02=» T L P TBF SBKEY2,CF980 KEY 2 MUST BE ON L P* * d L P* FOR UPDATE * L P*
0x10b7e0…10b974 (4, 150) Dummy {f00=0x003c, f01=0x0190, f02=» T L P CBNE NWKTBIX,=W'6',CF430 NOT 'UPDATE' L P CBE SWCCY,=W'0',CF430 CURRENCY IS OFF d L P TBF SBKEY2,CF980 KEY 2 MUST BE ON L P*
0x10b974…10bb08 Dummy {f00=0x003c, f01=0x0190, f02=» * T L P* * L PCF430 d L P CBNE NWKTBIX,=W'9',CF999 NOT 'IN' L P CBN
0x10bb08…10bc9c Dummy {f00=0x003c, f01=0x0190, f02=» T L P TBT SBFLDEMP,CF999 FIELD EMPTY L P* * d L P* CURRENCY IS ON AND FIELD IS NOT EMPTY * L P*
0x10bc9c…10be30 Dummy {f00=0x003c, f01=0x0190, f02=»0 KEY 2 MUST BE ON P B CF999 @ L P************************************************************************ P P* * P* DISPLAY ERROR: UNSERVICABLE REQUEST P* L P**************************************
0x10be30…10bfc4 Dummy {f00=0x003c, f01=0x0190, f02=»************************************** n * . 0 +* DISPLAY ERROR: MASTER KEYSETTING REQUIRED 8 * l L P************************************************************************ v CF980 PERF XEERR,=W'31',KW1 B CF999 L P******
0x10bfc4…10c158 Dummy {f00=0x003c, f01=0x4116, f02=» * L P************************************************************************ CF990 b PERF XEERR,=W'33',KW1 p CF999 RET PEND L P************************************************************************ P E
0x10c158…10c2ec Dummy {f00=0x003c, 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
0x10c2ec…10c480 Dummy {f00=0x003c, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS * H L P* * L PCE360
0x10c480…10c614 (4, 151) Opaque[0x194]
0x10c614…10c7a8 # DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0788, f03=0x0000}
0x10c614…10c7a8 IdxSect {
0x10c614…10c7a8 f00 = 0x003c // 0x10c614 @0x0
0x10c614…10c7a8 f01 = 0x0008 // 0x10c616 @0x2
0x10c614…10c7a8 gno = [ // 0x10c618 @0x4
0x10c614…10c7a8 [0x00]: C0x003c.0x1.0
0x10c614…10c7a8 [0x01]: C0x003c.0x2.0
0x10c614…10c7a8 [0x02]: C0x003c.0x3.0
0x10c614…10c7a8 [0x03]: C0x003d.0x0.0
0x10c614…10c7a8 ]
0x10c614…10c7a8 }
0x10c7a8…10c93c Dummy {f00=0x003c, 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
0x10c93c…10cad0 Dummy {f00=0x003c, f01=0x0190, f02=»******************************** h L P* * ( L P* PROCEDURE: PBBOOK * x L P* FUNCTIONAL DESCRIPTION:
0x10cad0…10cc64 Dummy {f00=0x003c, f01=0x0190, f02=» * h L P* THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE * ( L P* IN UWB 'UA1'. * x L P* THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1'
0x10cc64…10cdf8 Dummy {f00=0x003c, f01=0x0190, f02=»D BY THIS ROUTINE. * h L P* THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED * ( L P* ARE UPDATED IN THE ACCOUNT RECORD. * x L P* IF ANY OF THESE VALUES HAVE BEEN UPDATED IN THE ROUTINE,
0x10cdf8…10cf8c Dummy {f00=0x003c, f01=0x0190, f02=»LOSE LINE MUST BE PRINTED * h L P* AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.' * ( L P* USE OF VARIABLES: * x L P* NDPRTTRS: POINTS TO THE NEXT TRANSACTION TO BE PRINTED.
0x10cf8c…10d120 Dummy {f00=0x003c, f01=0x0190, f02=»RECORD. * h L P* UT2 (UWB): USED TO READ THE TRANSACTION RECORDS. * ( L P* FCBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. * x L P* WORKVARIABLE USED:
0x10d120…10d2b4 (4, 152) Dummy {f00=0x003c, f01=0x0190, f02=» * h L P************************************************************************ ( PPBBOOK PROC PRINT PASSBOOK x L PPB000 ( P PERF PVATTP,DSVCHPRT ATTACH
0x10d2b4…10d448 Dummy {f00=0x003c, f01=0x0190, f02=»AR,=C'1010313801100033000000' * P DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 & P DSC1 DSVCHPRT,X'00',KW0 T P MOVE WW1,=X'8066' t P DSC1 DSVCHPRT,X'0D',WW1 PPB005 P* L P* SAVE ACCOUNT-RECORD VALUES IN WORKFIELDS
0x10d448…10d5dc Dummy {f00=0x003c, f01=0x018e, f02=» p L P* NDNEWLNE WILL POINT TO THE FIRST FREE LINE IN THE BOOK * 8 T P MOVE NDNEWLNE,ADLNENR PPB080 " P PERF XCLAMP,KW4,KW1 LAMP
0x10d5dc…10d770 Dummy {f00=0x003c, f01=0x0190, f02=» L P* * P* START OF THE MAIN LOOP T : P* IN THIS LOOP, ONE TRANSACTION IS PRINTED IN THE BOOK t P* PPB100 6 P CBE ADSTMTRS,ADLASTRS,PB600 NO MORE TRANSACTIONS P*
0x10d770…10d904 Dummy {f00=0x003c, f01=0x0190, f02=» * T P PERF QENTRS,NDPRTTRS D L P MOVE UDTRSRNR,ADACTRNR , P ADD UDTRSRNR,NDPRTTRS TRANS
0x10d904…10da98 Dummy {f00=0x003c, f01=0x0190, f02=»E IT IN UWB UT2 * l L P* * , L P PERF ZCRDD,UDTRSRNR,WDEC1,KW1 | T P TBT SBCANCEL,PB980
0x10da98…10dc2c Dummy {f00=0x003c, f01=0x0190, f02=» * " P* POSITION AND PRINT PASSBOOK N L P* UPDATE LINENUMBER, LAST TRANSACTION STATEMENTED * t 2 P* AND BOOK BALANCE IN THE ACCOUNTRECORD (UWB) L P*
0x10dc2c…10ddc0 Dummy {f00=0x003c, f01=0x0190, f02=» J P PERF PYPOSB P TBT SBCANCEL,PB980 T P MOVE IDAMT2,UDAMOUNT : P* ( P* IF UDTRSCDE = 002, OR 016 OR 012, 0 P* THE AMOUNT MUST BE NEGATED BEFORE PRINTING P* ( P C
0x10ddc0…10df54 (4, 153) Dummy {f00=0x003c, f01=0x018e, f02=» d P B PB450 PPB420 $ P MUL IDAMT2,=D'-1' NEGATE AMOUNT & PPB450 N & P EDWRT DSVCHPRT,PRT014 WRITE LINE , P MOVE ADLNENR,NDNEWLNE UPDATE LINENUMBER 0 P MOVE ADLIMBOK,UDNEWBAL UPDATE BOOK BALANCE T P MOVE ADSTMTRS,NDPRTTRS UPDATE
0x10df54…10e0e8 Dummy {f00=0x003c, f01=0x018e, f02=» , P* NEXT TRANSACTION, END OF THE MAIN LOOP L P* * 4 P B PB100 P* . P* ALL TRANSACTIONS HAVE BEEN STATEMENTED, 2 P* IF THE ACCOUNT IS CLOSED, UPDATE STATUS AND P*
0x10e0e8…10e27c Dummy {f00=0x003c, f01=0x0190, f02=» P PERF PYPOSB P TBT SBCANCEL,PB980 P MOVE SPBINW4,=W'51' 8 . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER T P EDWRT DSVCHPRT,FCBUFFER " P* UPDATE LINENUMBER AND STATUS P MOVE ADLNENR,NDNEWLNE 2 P MOVE ADSTATUS,=D'3' CLOSED WI
0x10e27c…10e410 Dummy {f00=0x003c, f01=0x0190, f02=»N1 v P* > P* RELEASE PASSBOOK H P* b PPB990 l P DSC0 DSVCHPRT,1 z ( P PERF PWDETP,DSVCHPRT DETACH PRINTER L P RET
0x10e410…10e5a4 Dummy {f00=0x003c, f01=0x0190, f02=»********************** ^ L P* * L P* PRINT , PASSBOOK LINE * n L P* *
0x10e5a4…10e738 Dummy {f00=0x003c, f01=0x0190, f02=» ^ P FTEXT ' ' L P FMEL 'ZZZZZZ',UDDATE 2 L P FILLR ' ',3 H P FMEL '999999',UDTRSSEQ
0x10e738…10e8cc Dummy {f00=0x003c, f01=0x0190, f02=» n L P FILLR ' ',2 . " P FMEL 'F*ZVZZZVZZ9,99-',IDAMT2 ~ P FILLR ' ',2 $ P FMEL 'F*ZVZZZVZZ9,99-',UDNEWBAL T P FMEND
0x10e8cc…10ea60 Dummy {f00=0x003c, f01=0x0190, f02=»ROC PPY400 L P* * L P* VALUE OF ADLNENR: * j L P* 0: NEW ACCOUNT, NO LINES PRINTED YET * L
0x10ea60…10ebf4 (4, 154) Dummy {f00=0x003d, f01=0x0190, f02=» * Z L P* CALCULATE THE FIRST FREE LINE IN THE BOOK * L P* * j L P ADD NDNEWLNE,=D'1' L
0x10ebf4…10ed88 Dummy {f00=0x003d, f01=0x018e, f02=» Z PPY300 L P* * ( L P* CHECK PASSBOOK ON NEW PAGE * x L P*
0x10ed88…10ef1c Dummy {f00=0x003d, f01=0x0190, f02=» j L P DSC0 DSVCHPRT,1 RELEASE PASSBOOK 8 P PERF XEERR,=W'50',KW3 'CHECK PASSBOOK ON NEW PAGE' X $ P PERF XCLAMP,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,PY999 L P*
0x10ef1c…10f0b0 Dummy {f00=0x003d, f01=0x0190, f02=» * x PPY500 8 L P MOVE WDEC1,=D'24' F N P SUB WDEC1,NDNEWLNE GET NUMBER OF LINE STEPS L P ADD WDEC1,WDEC1 GET NUMBER OF L
0x10f0b0…10f244 Dummy {f00=0x003d, f01=0x405c, f02=»******************************************************************** END L@ X F N P SUB WDEC1,NDNEWLNE GET NUMBER OF LINE STEPS L P ADD WDEC1,WDEC1 GET NUMBER OF L
0x10f244…10f3d8 Dummy {f00=0x003d, 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
0x10f3d8…10f56c Dummy {f00=0x003d, f01=0x0000, f02=» FILE OPEN UNSUCCESSFULL DISK ERRORE FIELD MUST BE ENTERED ILLEGAL END-OF-ITEM KEY I/O ERROR RECORD PROTECTEDE VALUE NOT IN RANGEB GROSS TURNOVER: # /I GROSS TURNOVER: # / GROSS TURNOVER: # / GROSS
0x10f56c…10f700 Dummy {f00=0x003d, f01=0x0000, f02=» / CASH BALANCE : # / CHEQUE BALANCE : # / PRESS CONT TO CONFIRM ELSE CANC CURRENCY NAME : r CURRENCY CODE : s REL.: y BUYING RATES :(1) "t BUYING RATE :(2) u SELLING RATES:(1) "v SELLING RATE :(2) w
0x10f700…10f894 (4, 155) Opaque[0x194]
0x10f894…10fa28 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x10f894…10fa28 IdxSect {
0x10f894…10fa28 f00 = 0x003d // 0x10f894 @0x0
0x10f894…10fa28 f01 = 0x0012 // 0x10f896 @0x2
0x10f894…10fa28 gno = [ // 0x10f898 @0x4
0x10f894…10fa28 [0x00]: C0x003d.0x1.0
0x10f894…10fa28 [0x01]: C0x003d.0x2.0
0x10f894…10fa28 [0x02]: C0x003d.0x3.0
0x10f894…10fa28 [0x03]: C0x003e.0x0.0
0x10f894…10fa28 [0x04]: C0x003e.0x1.0
0x10f894…10fa28 [0x05]: C0x003e.0x2.0
0x10f894…10fa28 [0x06]: C0x003e.0x3.0
0x10f894…10fa28 [0x07]: C0x003f.0x0.0
0x10f894…10fa28 [0x08]: C0x003f.0x1.0
0x10f894…10fa28 ]
0x10f894…10fa28 }
0x10fa28…10fbbc Dummy {f00=0x003d, f01=0x0190, f02=» D P IDENT PRINT PRINT JOURNAL - VOUCHER L P DDUM DEMODD L L P PDIV P EXPROC DEFDOC P EXPRO
0x10fbbc…10fd50 Dummy {f00=0x003d, 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*
0x10fd50…10fee4 Dummy {f00=0x003d, f01=0x0190, f02=» * L L P* * L P************************************************************************ PPAJRN PROC PWLNETYP P PLIT PWLNETYP L PPA000
0x10fee4…110078 Dummy {f00=0x003d, f01=0x0190, f02=» 0 P DSC1 SPDSPRT,X'0D',WW1 SET PRINT PARAMETER PPA050 8 P MOVE WWINDEX1,PWLNETYP F 2 P IB WWINDEX1,PA100,PA200,PA300,PA400,PA500, C f L P PA600,PA700,PA800 L P*
0x110078…11020c Dummy {f00=0x003d, f01=0x0190, f02=» * L PPA100 L P MOVE SPBINW4,=W'43' . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER P EDWRT SPDSPRT,FCBUFFER L
0x11020c…1103a0 Dummy {f00=0x003d, f01=0x0190, f02=» * Z L P* PRINT LINE TYPE 2: ACCOUNT NUMBER 1 * L P* * j L PPA200 L
0x1103a0…110534 (4, 156) Dummy {f00=0x003d, f01=0x0190, f02=» Z L P* * L P* PRINT LINE TYPE 3: END OF FUNCTION * j L P* * L
0x110534…1106c8 Dummy {f00=0x003d, f01=0x0190, f02=» Z L P MOVE NDTIME,VCTIME L P DIV NDTIME,=D'100' GET RID OF SECONDS j P MOVE SPBINW4,=W'44' . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER L P
0x1106c8…11085c Dummy {f00=0x003d, f01=0x0190, f02=» t L P* * 4 L P* PRINT LINE TYPE 4: AMOUNT * L P*
0x11085c…1109f0 Dummy {f00=0x003d, f01=0x0190, f02=» t L P B PA990 < L P* * L P* PRINT LINE TYPE 5: ALPHA VARIABLE
0x1109f0…110b84 Dummy {f00=0x003d, f01=0x0190, f02=» | P EDWRT SPDSPRT,PRT005 < L P B PA990 Z L P* * L P* PRINT LINE T
0x110b84…110d18 Dummy {f00=0x003d, f01=0x0190, f02=» * J L PPA600 " P EDWRT SPDSPRT,PRT006 Z L P B PA990 L P*
0x110d18…110eac Dummy {f00=0x003d, f01=0x0190, f02=» * p L PPA700 0 L P EDWRT SPDSPRT,PRT007 L P B PA990
0x110eac…111040 Dummy {f00=0x003d, f01=0x0190, f02=»BER 2 * p L P* * 0 L PPA800 T P EDWRT SPDSPRT,PRT008
0x111040…1111d4 (4, 157) Dummy {f00=0x003d, f01=0x0190, f02=» x P* 8 4 P* FOR A GTP AR A TEP, A LINE FEED MUST BE GIVEN B P* z * P CBNE RDPRTTYP,=D'6',PA999 SKIP ALWAYS P PERF PXSKIP,SPDSPRT PPA999 L P RET
0x1111d4…111368 Dummy {f00=0x003d, f01=0x0190, f02=»**************************************************** | L P* * < L P* PRINT VOUCHER * L P*
0x111368…1114fc Dummy {f00=0x003d, f01=0x0190, f02=» | P PLIT PWVCHTYP < L PPC000 R ( P TBT SBFT80,PC9999 NO VOUCHER ONFT80 ( P PERF PVATTP,DSVCHPRT ATTACH PRINTER P SET SBVCH
0x1114fc…111690 Dummy {f00=0x003d, f01=0x0190, f02=» P TBT SBCANCEL,PC900 P CBNE RDPRTTYP,=D'0',PC050 P* B P* 6371-PRINTER CONTROL L P* j P MOVE WW1,=W'18' t . P MOVE VCDOCPAR,=C'1010313801100033000000' * P DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 P DSC1 DSVCHPRT,X'00',KW0
0x111690…111824 Dummy {f00=0x003d, f01=0x0190, f02=»00 t P* P* PRINT DEPOSIT VOUCHER P* 4 L PPC100 > $ P MOVE NDNEWLNE,=D'32' FIRST LINE L P B PC220 P*
0x111824…1119b8 Dummy {f00=0x003d, f01=0x0190, f02=» * L P* POSITION VOUCHER AT START LINE * L L P* * $ P MOVE NDNEWLNE,=D'36' FIRST
0x1119b8…111b4c Dummy {f00=0x003d, f01=0x0190, f02=» z P PERF PZPOSD,NDNEWLNE : L P EDWRT DSVCHPRT,PRT010 DEMO TEXT X $ P SUB NDNEWLNE,=D'4' SKIP 2 LINES * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSV
0x111b4c…111ce0 Dummy {f00=0x003d, f01=0x0190, f02=» v * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER 6 L P EDWRT DSVCHPRT,PRT005 NAME d $ P SUB NDNEWLNE,=D'4' SKIP 2 LINES L P CBE WWINDEX1,=W'2',PC230 WITHDRAWAL VOUCHER
0x111ce0…111e74 (4, 158) Dummy {f00=0x003e, f01=0x0190, f02=»FOR DEPOSIT | L P* * L P CLEAR SBFIL20 d L P SET SBFIL24 L PPC23
0x111e74…112008 Dummy {f00=0x003e, f01=0x0190, f02=» T * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT005 ADDRESS B P CBE WWINDEX1,=W'1',PC240 P* WITHDRAWAL $ P SUB NDNEWLNE,=D'4' SKIP 2 LINES PPC240 L P CLEAR SBF
0x112008…11219c Dummy {f00=0x003e, f01=0x018e, f02=» N * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT005 TOWN < L P* * L P* POSITION FOR TRANSACTION DATA
0x11219c…112330 Dummy {f00=0x003e, f01=0x0190, f02=» P CLEAR SBFIL24 P MOVE NDNEWLNE,=D'14' P MOVE ICTEXT3,YCCCY(KW4) 8 * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER X L P EDWRT DSVCHPRT,PRT007 AMOUNT $ P SUB NDNEWLNE,=D'4' SKIP 2 LINES L P GETTIME V
0x112330…1124c4 Dummy {f00=0x003e, f01=0x0190, f02=» N L P DIV NDTIME,=D'100' GET RID OF SECONDS * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER ^ & P EDWRT DSVCHPRT,PRT011 PRINT CODES L P B PC900 P*
0x1124c4…112658 Dummy {f00=0x003e, f01=0x0190, f02=» R P MOVE NDNEWLNE,=D'44' L P GETTIME VCTIME Z L P MOVE NDTIME,VCTIME L P DIV NDTIME,=D
0x112658…1127ec Dummy {f00=0x003e, f01=0x0190, f02=»ODE LINE x R P MOVE NDNEWLNE,=D'34' 8 R P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT012 CURRENCY EXCH
0x1127ec…112980 Dummy {f00=0x003e, f01=0x0190, f02=» L P DSC0 DSVCHPRT,1 RELEASE VOUCHER D L PPC999 ( P PERF PWDETP,DSVCHPRT DETACH PRINTER
0x112980…112b14 (4, 159) Dummy {f00=0x003e, f01=0x018e, f02=» ^ L P PEND L P************************************************************************ n P* , P* RESERVE A PRINTER FOR THE CURRENT TASK P* L P******
0x112b14…112ca8 Dummy {f00=0x003e, f01=0x0190, f02=» 2 P MOVE WW1,=W'100' TIME OUT VALUE (IN 0.1 SEC) * P DSC1 DATASET,X'0E',WW1 ATTACH PRINTER : P BNOK PV000 RETRY h PPV999 P RET P PEND L P************************************************************************ P* & P* FR
0x112ca8…112e3c Dummy {f00=0x003e, f01=0x0190, f02=»ROC DATASET P PDSET DATASET PPW000 * * P DSC1 DATASET,X'0F',KW0 DETACH PRINTER 8 PPW999 f P RET t P PEND L P************************************************************************ P* 2 P* WRITE A SPACE LINE TO THE SPEC
0x112e3c…112fd0 Dummy {f00=0x003e, f01=0x018e, f02=» P PDSET DATASET ! PPX000 ! P EDWRT DATASET,PRT111 ! ( PPX999 ! F P RET ! T P PEND ! ` L P************************************************************************ ! n L PPRT111 FRMT !
0x112fd0…113164 Dummy {f00=0x003e, f01=0x0190, f02=» L P************************************************************************ " P* " T 8 P* POSITION DOCUMENT ON THE LINE-STEP GIVEN BY XDLINE " ^ L P* NUMBERING STARTS AT THE BOTTOM OF THE DOCUMENT * " L P*
0x113164…1132f8 Dummy {f00=0x003e, f01=0x0190, f02=» PROC XDLINE " P PBCD XDLINE # L PPZ000 # ( P MOVE WDEC1,XDLINE # x P CBG RDPRTTYP,=D'1',PZ999 # P CBE RDPRTTYP,=D'1',PZ100 # P* # P* 6371-PRINTER # < P* LINE NUMBERING S
0x1132f8…11348c Dummy {f00=0x003e, f01=0x0190, f02=»T BE COMPENSATED. # z 2 P* SO SET DSC1-PARAMETER TO (30 - (XDLINE/2) ) $ P* $ P P DIV WDEC1,=D'2' $ Z P MUL WDEC1,=D'-1' $ r P ADD WDEC1,=D'30' $ P B PZ500 $ P* $ P* 6221 OR 6225-PRINTER $ > P* ADD 1 TO XDLINE TO COMPENSATE FOR THE CO
0x11348c…113620 Dummy {f00=0x003e, f01=0x0190, f02=»ENT $ P* % PPZ500 % N P DSC1 DSVCHPRT,6,WDEC1 % $ L PPZ999 % v L P RET
0x113620…1137b4 (4, 160) Dummy {f00=0x003e, f01=0x0190, f02=»****************************** % f P* & & D P* PRINT, LINE TYPE 2 * & 0 L P* * & x L P****************************************************************
0x1137b4…113948 Dummy {f00=0x003e, f01=0x0190, f02=» & h T P FBT SBVCH,P02010 ' . T P FTAB 3 ' L P FMEL 'Z',RDSHRPRT
0x113948…113adc Dummy {f00=0x003e, f01=0x018e, f02=» ' L P FMEL '999999',IDACTNR1 ( N L P FBF SBRVS,P02100 ( T P FTAB 12
0x113adc…113c70 Dummy {f00=0x003e, f01=0x0190, f02=» ( F L PP02100 ) T P FTAB 16 ) X L P FMEL '999',TDTRSCDE ) P FILLR '
0x113c70…113e04 Dummy {f00=0x003e, f01=0x0190, f02=» PP02700 * P FILLR ' ',20 * PP02999 * ( L P FMEND * 6 L P************************************************************************ * P* * " P* PRINT, LINE TYPE 4: AMOUNT * P*
0x113e04…113f98 Dummy {f00=0x003e, f01=0x0190, f02=» * ` L P FTEXT ' ' + T P FBT SBVCH,P04010 + p T P FTAB 3
0x113f98…11412c Dummy {f00=0x003e, f01=0x0190, f02=» + p T P FTAB 5 , 8 P FCOPY ICTEXT3 , T P FTAB 9 , L P FMEL 'ZZV
0x11412c…1142c0 Dummy {f00=0x003e, f01=0x0190, f02=» , b L P************************************************************************ - " P* - r P* PRINT, LINE TYPE 5 : TEXT - | P* - L P************************************************************************ - PPRT005 FRMT -
0x1142c0…114454 (4, 161) Dummy {f00=0x003e, f01=0x0190, f02=» - z P FMEL 'Z',RDSHRPRT . B T PP05010 . P FTAB 5 . P FCOPY ICTEXT2 . P FTAB 25 . T P FBT SBFIL24,P05600
0x114454…1145e8 Dummy {f00=0x003e, f01=0x0190, f02=» . B P FILLR ' ',2 / L P FB P05999 / T PP05600 / n P FILLR ' ',4 / T PP05700
0x1145e8…11477c Dummy {f00=0x003e, f01=0x0190, f02=»************************** / d P* 0 " 4 P* PRINT, LINE TYPE 6: BUYING OR SELLING RATES 0 , P* 0 d J P********************************************************************** 0 n PPRT006 FRMT 0 P FTEXT ' ' 0 P FBT SBVCH,P0601
0x11477c…114910 Dummy {f00=0x003e, f01=0x0190, f02=»DAMT1 0 t P FTAB 16 1 & P FMEL 'ZZVZZZ,ZZ',IDAMT2 1 ( P FILLR ' ',2 1 R P FMEND 1 f L P************************************************************************ 1 | L P*
0x114910…114aa4 Dummy {f00=0x003e, f01=0x0190, f02=» * 1 L P************************************************************************ 2 L PPRT007 FRMT 2 l R P FTEXT ' '
0x114aa4…114c38 Dummy {f00=0x003e, f01=0x0190, f02=» 2 j L P FMEL 'Z',RDSHRPRT 3 2 T PP07010 3 T P FTAB 5
0x114c38…114dcc Dummy {f00=0x003e, f01=0x0190, f02=» 3 H $ P FMEL 'F*ZVZZZVZZ9,99-',TDAMOUNT 4 P FILLR ' ',4 4 8 P FBT SBFIL24,P07600 4 L P FBT SBFIL20,P07700 4 h P FB P07999 4 PP07600 4 P FILLR ' ',4 4 PP07700 4 P FILLR ' ',20 4 PP07999 4 L P FMEND
0x114dcc…114f60 Dummy {f00=0x003e, f01=0x0190, f02=» 4 P* PRINT, LINE TYPE 8: SPECIFICATION OF ACCOUNT 2 5 P* 5 < L P************************************************************************ 5 F L PPRT008 FRMT 5 L P FTEXT ' '
0x114f60…1150f4 (4, 162) Dummy {f00=0x003f, f01=0x0190, f02=»TAB 3 5 L P FMEL 'Z',RDSHRPRT 6 V T PP08010 6 T P FTAB 5
0x1150f4…115288 Dummy {f00=0x003f, f01=0x0190, f02=» 6 V T P FTAB 12 7 L P FTEXT '(R)' 7 n L PP08100 7
0x115288…11541c Dummy {f00=0x003f, f01=0x0190, f02=» 7 f T P FTAB 21 8 & L P FMEL '999999',IDACTNR2 8 ~ L P FMEND
0x11541c…1155b0 Dummy {f00=0x003f, f01=0x0190, f02=» * 8 n : P* PRINT, LINE TYPE 10: TEXT ON VOUCHER, 25 CHAR. LONG 9 . L P* * 9 l L P********************************************************************** * 9
0x1155b0…115744 Dummy {f00=0x003f, f01=0x0190, f02=»********************************************************************** 9 L P* * : N L P* PRINT, LINE TYPE 11: CODE LINE FOR VOUCHER * : L P*
0x115744…1158d8 Dummy {f00=0x003f, f01=0x0190, f02=»T011 FRMT : L P FTEXT ' ' ; L P FMEL '99E-99E-99',NDDATE ; b L P FILLR ' ',2 ; L P FMEL
0x1158d8…115a6c Dummy {f00=0x003f, f01=0x0190, f02=» ; R L P FMEL '999999',TDTRSSEQ < L P FILLR ' ',2 < b L P FMEL '99999',RDOPRNR < L P FILLR
0x115a6c…115c00 Dummy {f00=0x003f, f01=0x0190, f02=» < R L P FILLR ' ',5 = L P FMEND = b L P************************************************************************ = L P*
0x115c00…115d94 (4, 163) Dummy {f00=0x003f, f01=0x0190, f02=» * = R L P* * > L P************************************************************************ > b L PPRT012 FRMT > L P FTEXT
0x115d94…115f28 Dummy {f00=0x003f, f01=0x0190, f02=» > R L P FBF SBCCYIN,P12100 ? L P* CURRENCY BUYING, AMOUNT IN FOREIGN CURRENCY * ? b L P FMEL 'ZZZZZZZZ9,99-',IDAMT2 ? L PP12100
0x115f28…1160bc Dummy {f00=0x003f, f01=0x0190, f02=» ? R L P FCOPY CCCCYCDE @ L P FTAB 27 @ b L P FILLR ' ',6 @ L P FBT S
0x1160bc…116250 Dummy {f00=0x003f, f01=0x0190, f02=» * @ R L P FMEL 'ZZZZZZZZ9,99-',IDAMT2 A L PP12400 A b L P FTAB 46 A L P FMEL
0x116250…1163e4 Dummy {f00=0x003f, f01=0x4156, f02=» A R L P FMEL 'ZZZZZ9,99-',IDAMT1 AMOUNT IN SYSTEM CURRENCY B L P FMEND B b L P************************************************************************ B L P END
0x1163e4…116578 Dummy {f00=0x003f, f01=0x2008, f02=» C x L P FMEL '999',ADTRSCDE 8 L P FMEND L P************************************************
0x116578…11670c Dummy {f00=0x003f, f01=0x0190, f02=»1 C z PF27999 D : L P FMEND D H L P************************************************************************ D L P*
0x11670c…1168a0 Dummy {f00=0x003f, f01=0x0190, f02=» * D L P************************************************************************ E H PMSG030 FRMT E P FSL E P FLOW E T P FTEXT 'BITTE FUNKTION EINGEBEN : '
0x1168a0…116a34 (4, 164) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07f0, f03=0x0000}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x003f // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x0008 // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x003f.0x2.0
0x116a34…116bc8 [0x01]: C0x003f.0x3.0
0x116a34…116bc8 [0x02]: C0x0040.0x0.0
0x116a34…116bc8 [0x03]: C0x0040.0x1.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x003f, f01=0x0190, f02=» 4 P IDENT DLDEP DEPOSIT L P DDUM DEMODD < L P PDIV P P EXPROC PAJRN
0x116d5c…116ef0 Dummy {f00=0x003f, f01=0x0190, f02=»H P P EXPROC QENTRS H P P EXPROC XBFMT P EXPROC ZCRDD P E
0x116ef0…117084 Dummy {f00=0x003f, f01=0x0190, f02=» P ENTRY SPAP11 P ENTRY SPAP12 L P************************************************************************ 4 P* P* DEPOSIT L P* * L P************************
0x117084…117218 Dummy {f00=0x003f, 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*
0x117218…1173ac Dummy {f00=0x003f, f01=0x0190, f02=» * R L P* * L P MOVE TDTRSCDE,=D'1' b L P B DL200 L P*
0x1173ac…117540 Dummy {f00=0x003f, f01=0x0190, f02=» * R L P* * L PDL100 b L P MOVE TDTRSCDE,=D'7' L P*
0x117540…1176d4 (4, 165) Dummy {f00=0x003f, f01=0x0190, f02=» * R L P* * L PDL200 b J P PERF PAJRN,=W'2' N P MOVE TD
0x1176d4…117868 Dummy {f00=0x003f, f01=0x0190, f02=» R L P TBT SBCANCEL,DL999 L P* * b L P* PRINT LINE TYPE 7 * L P*
0x117868…1179fc Dummy {f00=0x003f, f01=0x0190, f02=» PERF PAJRN,=W'7' L P* * L L P* FILL TRANSACTION RECORD * L P* GET NEXT TRANSACTION-RE
0x1179fc…117b90 Dummy {f00=0x003f, 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
0x117b90…117d24 Dummy {f00=0x003f, f01=0x0190, f02=» p L P MUL TDAMOUNT,=D'-1' REVERSAL 0 L PDL300 L P*
0x117d24…117eb8 Dummy {f00=0x003f, 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*
0x117eb8…11804c Dummy {f00=0x003f, 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
0x11804c…1181e0 Dummy {f00=0x003f, 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
0x1181e0…118374 (4, 166) Dummy {f00=0x0040, f01=0x0190, f02=» * V L P* PRINT VOUCHER OR BOOK * 0 P* IF A TELLER TERMINAL PRINTER IS AVAILABLE f L P* * , P CBNL RDPRTTYP,=D
0x118374…118508 Dummy {f00=0x0040, f01=0x0190, f02=» j L P* * * L P* SAVINGS ACCOUNT WITH BOOK * z L P*
0x118508…11869c Dummy {f00=0x0040, f01=0x0190, f02=» v P B DL999 L P* * L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * h L P* * P
0x11869c…118830 Dummy {f00=0x0040, f01=0x0190, f02=» * l P* CANCEL AND NORMAL EXIT , L P* * L L PDL999 L P RET
0x118830…1189c4 Dummy {f00=0x0040, f01=0x0190, f02=»******************************************************************** L P* * L T P* CHECK BOOK BALANCE ENTERED (DLDEP + DMWDR) * L P*
0x1189c4…118b58 Dummy {f00=0x0040, f01=0x0190, f02=» PSPAP10 PROC XWRET P PBIN XWRET L PS10000 2 P MUL ADLIMBOK,=D'1' ( P MUL IDAMT1,=D'1' TRICK FOR COMPARE N P CBE ADLIMBOK,IDAMT1,S10999 CHECK OKE
0x118b58…118cec Dummy {f00=0x0040, f01=0x0190, f02=» * l L P* * , L P MOVE SPBINW4,=W'20' | & P MOVE XWRET,=W'1' INDICATE ERROR1 PS10999 P RET
0x118cec…118e80 Dummy {f00=0x0040, f01=0x0190, f02=» * n T P* CHECK LINE NUMBER ENTERED (DLDEP + DMWDR) * . L P* * L P**************************************************
0x118e80…119014 (4, 167) Dummy {f00=0x0040, f01=0x0190, f02=» T N P CBE ADLNENR,IDNR1,S11999 CHECK OKE L P* * f L P* ERROR: INVALID COMPARISON * L P*
0x119014…1191a8 Dummy {f00=0x0040, f01=0x0190, f02=» V & P MOVE XWRET,=W'1' INDICATE ERROR1 PS11999 @ P RET N P PEND Z L P************************************************************************ h P* L P* CALCULATE NEW BALANCE (DLDEP)
0x1191a8…11933c Dummy {f00=0x0040, f01=0x0190, f02=»************************** b PSPAP12 PROC XWRET " P PBIN XWRET < L PS12000 P N P MOVE TDNEWBAL,TDAMOUNT L P TBF SBRVS,S12100
0x11933c…1194d0 Dummy {f00=0x0040, f01=0x018e, f02=» L PS12100 N P ADD TDNEWBAL,ADBAL NEW BALANCE T L P* * L P* UPDATE NEXT FIEL
0x1194d0…119664 Dummy {f00=0x0040, f01=0x0190, f02=» F P CBL RDSCRLNS,=D'4',S12999 ( P ERASE 0,KW4,KW4 FIRST ERASE LINE 4 * ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 V PS12999 P RET P PEND L P************************************************************************ L P*
0x119664…1197f8 Dummy {f00=0x0040, f01=0x400e, f02=» J@ DSCRLNS,=D'4',S12999 ( P ERASE 0,KW4,KW4 FIRST ERASE LINE 4 * ( P DISPLAY 4,KW4,KW4 REDISPLAY LINE 4 V PS12999 P RET P PEND L P************************************************************************ L P*
0x1197f8…11998c Dummy {f00=0x0040, f01=0x2008, f02=» x L P* * 8 L P************************************************************************ L P*
0x11998c…119b20 Dummy {f00=0x0040, f01=0x0190, f02=» ` L P B DK400 NEXT TRANSACTION L P* * p L P* ALL TRANSACTIONS OF THE SPECIFIED ACCOUNT HAVE BEEN PRINTED, *
0x119b20…119cb4 (4, 168) Opaque[0x194]
0x119cb4…119e48 # DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x119cb4…119e48 IdxSect {
0x119cb4…119e48 f00 = 0x0040 // 0x119cb4 @0x0
0x119cb4…119e48 f01 = 0x0004 // 0x119cb6 @0x2
0x119cb4…119e48 gno = [ // 0x119cb8 @0x4
0x119cb4…119e48 [0x00]: C0x0040.0x2.0
0x119cb4…119e48 [0x01]: C0x0040.0x3.0
0x119cb4…119e48 ]
0x119cb4…119e48 }
0x119e48…119fdc Dummy {f00=0x0040, 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*
0x119fdc…11a170 Dummy {f00=0x0040, f01=0x0190, f02=»VA0 L P EXTRN I:RT1 F L PQEMOVE EQU * L P*
0x11a170…11a304 Dummy {f00=0x0040, 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-
0x11a304…11a498 Dummy {f00=0x0040, 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
0x11a498…11a62c Dummy {f00=0x0040, 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
0x11a62c…11a7c0 Dummy {f00=0x0040, 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
0x11a7c0…11a954 (4, 169) Dummy {f00=0x0040, f01=0x2008, f02=»
0x11a954…11aae8 Dummy {f00=0x0040, f01=0x0190, f02=»****************** Z L PUIF BLK L P* * j L P************************************************************************ L
0x11aae8…11ac7c Dummy {f00=0x0040, f01=0x0190, f02=»L * Z L P* * L P************************************************************************ j L PSBSTTO BOOL FALSE START OPERATOR L
0x11ac7c…11ae10 Dummy {f00=0x0040, f01=0x0190, f02=» Z L PSBBACT BOOL FALSE BLOCK ACCOUNT ! L PSBDACT BOOL FALSE DEBLOCK ACCOUNT ! j L PSBUACT BOOL FALSE UPDATE ACCOUNT ! L
0x11ae10…11afa4 Dummy {f00=0x0040, f01=0x0190, f02=» ! Z L PSBDSTM BOOL FALSE DAYLY STATEMENTS " L PSBCOPR BOOL FALSE OPERATOR CLOSE " j L PSBCSYS BOOL FALSE SYSTEM CLOSE " L
0x11afa4…11b138 Dummy {f00=0x0040, f01=0x0190, f02=» " Z L PSBLACT BOOL FALSE LIST ACCOUNTS # PSBWDR BOOL FALSE # j L PIWINDEX1 BIN # L PIDACTNR1 BCD 12
0x11b138…11b2cc Dummy {f00=0x0040, f01=0x0190, f02=» # r L PIDAMT2 BCD 12 $ 2 L PIDNR1 BCD 12 $ PIDNR2 BCD 12 $ PICTEXT1 STRG 6 $ PICTEXT2 STRG
0x11b2cc…11b460 Dummy {f00=0x0040, f01=0x0190, f02=»**************************** $ d PUCY BLK % $ P* % 4 L P************************************************************************ % > L P* * % L P* CURRENCY RECORD
0x11b460…11b5f4 (4, 170) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»DMWDR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0820, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x0041 // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x0008 // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x0041.0x0.0
0x11b5f4…11b788 [0x01]: C0x0041.0x1.0
0x11b5f4…11b788 [0x02]: C0x0041.0x2.0
0x11b5f4…11b788 [0x03]: C0x0041.0x3.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x0041, f01=0x0190, f02=» 6 P IDENT DMWDR WITHDRAWAL L P DDUM DEMODD > L P PDIV P P EXPROC PAJRN
0x11b91c…11bab0 Dummy {f00=0x0041, f01=0x0190, f02=»VCH P P EXPROC QENTRS J P P EXPROC XBFMT P EXPROC ZCRDD P
0x11bab0…11bc44 Dummy {f00=0x0041, f01=0x0190, f02=» r P ENTRY SPAP14 2 L P************************************************************************ H L P* * L P* WITHDRAWAL OF A CHEQUE OR SAVI
0x11bc44…11bdd8 Dummy {f00=0x0041, f01=0x0190, f02=»**************************************************************** L PDMWDR PROC H L PDM000 P SET SBWDR L P TBT SBCHEQUE,
0x11bdd8…11bf6c Dummy {f00=0x0041, f01=0x0190, f02=» J L P B DM200 L PDM100 Z L P MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON L PDM200
0x11bf6c…11c100 Dummy {f00=0x0041, f01=0x018e, f02=» * J L P* PRINT LINE TYPE 2 * L P* * Z L P PERF PAJRN,=W'2' L P MOVE TDNEWBAL
0x11c100…11c294 (4, 171) Dummy {f00=0x0041, f01=0x0190, f02=» P B DM220 PDM210 L P PERF XBFMT,=W'42' WITHDRAWAL FORMAT " PDM220 r L P TBT SBCANCEL,DM999 L P*
0x11c294…11c428 Dummy {f00=0x0041, f01=0x0190, f02=» * p : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY 0 H P PERF PAJRN,=W'7' n L P* * L
0x11c428…11c5bc Dummy {f00=0x0041, f01=0x018e, f02=» * Z L P* * 4 P PERF QENTRS,ADLASTRS UPDATE TRANSACTION SEQ. NR j . P MOVE TDTRSRNR,ADACTRNR ACCOUNT RECORD NR. , P ADD TDTRSRNR,ADLASTRS TRANS. RECORD KEY 4 P ADD
0x11c5bc…11c750 Dummy {f00=0x0041, f01=0x018e, f02=» < P* TDAMOUNT CONTAINS THE AMOUNT KEYED IN BY THE OPERATOR P* H L P TBF SBRVS,DM250 R L P MUL TDAMOUNT,=D'-1' UPDATE AMOUNT L PDM250
0x11c750…11c8e4 Dummy {f00=0x0041, f01=0x0190, f02=» L P*** MOVE TDCHQNR,FCFIELD * L PDM300 T L P* * L P* FILL ACCOUNT RECOR
0x11c8e4…11ca78 Dummy {f00=0x0041, f01=0x0190, f02=» L P MOVE ADBAL,TDNEWBAL NEW BALANCE L P ADD ADWDRCUM,TDAMOUNT ACCUMULATED WITHDR. T L P MOVE ADLASSEQ,TDTRSSEQ TRANS. SEQ. NR. L P*
0x11ca78…11cc0c Dummy {f00=0x0041, f01=0x0190, f02=» L P* * L PDM700 T L P PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD P TBT SBCANCEL,DM999
0x11cc0c…11cda0 Dummy {f00=0x0041, f01=0x0190, f02=» * | L P* UPDATE OPERATOR BALANCES * < L P* * PDM750 L P SUB ODCASH(KW1,KW4),TDAMOUNT
0x11cda0…11cf34 (4, 172) Dummy {f00=0x0041, f01=0x0190, f02=»BCHEQUE,DM800 L P ADD ODCASH(KW2,KW1),TDAMOUNT ACCUMULATED CHEQUES J L P* * L P* PRINT VOUCHER OR PASSBOOK
0x11cf34…11d0c8 Dummy {f00=0x0041, f01=0x0190, f02=» * PDM800 J N P CBNL RDPRTTYP,=D'2',DM999 NO TERMINAL PRINTER X L P TBT SBCHQACT,DM820 L P*
0x11d0c8…11d25c Dummy {f00=0x0041, f01=0x0190, f02=» * J L P* * < P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK Z P TBT SBCANCEL,DM999 P PERF PBBOOK P B DM999 L P*
0x11d25c…11d3f0 Dummy {f00=0x0041, f01=0x0190, f02=» * z PDM820 : L P TBF SBCHEQUE,DM850 SBCHEQUE IS OFF H L P*** PRINT CHEQUE * PDM850 R P PERF PCVCH,=W'2'
0x11d3f0…11d584 Dummy {f00=0x0041, f01=0x0190, f02=» L P CLEAR SBWDR L P RET L P PEND p L P************************************************************************
0x11d584…11d718 Dummy {f00=0x0041, f01=0x0190, f02=»FMT045(TRANSFER)) ` L P* * L P************************************************************************ j PSPAP14 PROC XWRET P PBIN XWRET L PS14000
0x11d718…11d8ac Dummy {f00=0x0041, f01=0x0190, f02=»VS,S14100 P P MUL TDNEWBAL,=D'-1' NOT REVERSAL H L PS14100 J P ADD TDNEWBAL,ADBAL NEW BALA
0x11d8ac…11da40 Dummy {f00=0x0041, f01=0x0190, f02=»ISPLAY NEXT FIELD IN FORMAT P* $ P TBT SBWDR,S14125 . P* H . P* NOT WITHDRAWAL, NEW BALANCE IS ON LINE 4 R P* P CBL RDSCRLNS,=D'4',S14150 P ERASE 0,KW4,KW4 * P DISPLAY 4,KW4,KW4 DISPLAY NEW BALANCE P B S14150 P
0x11da40…11dbd4 (4, 173) Dummy {f00=0x0041, f01=0x0190, f02=» * t L P* * 4 PS14150 L P MOVE WDEC1,TDNEWBAL L P TBF SBCHQACT,S14200 SAVINGS ACCOUNT
0x11dbd4…11dd68 Dummy {f00=0x0041, f01=0x0190, f02=»NT * L P* * B L P MOVE WDEC1,TDNEWBAL L P ADD WDEC1,ADLIMBOK CREDIT LIMIT
0x11dd68…11defc Dummy {f00=0x0041, f01=0x0190, f02=»CHEQUE ACCOUNT * L P* * B L PS14200 L P CBNL WDEC1,=D'0',S14990 FUNDS ARE SUF
0x11defc…11e090 Dummy {f00=0x0041, f01=0x0190, f02=»FICIENT FUNDS * L P* * B L P MOVE SPBINW4,=W'35' L P MOVE XWRET,=W'1' INDICATE ERROR
0x11e090…11e224 Dummy {f00=0x0041, f01=0x4136, f02=» L P PEND B L P************************************************************************ L P END
0x11e224…11e3b8 Dummy {f00=0x0041, f01=0x2008, f02=» x@ 890 8 L P RET L P PEND
0x11e3b8…11e54c Dummy {f00=0x0041, f01=0x0190, f02=» P P TBT SBCANCEL,CG980 P PERF PAJRN,=W'3' , L P PERF ZLCLSF CLOSE FORMATFILE F N P B CG990 L P*
0x11e54c…11e6e0 Dummy {f00=0x0041, f01=0x0190, f02=» * L PCG980 H L P MOVE YDSTATUS,=D'2' SYSTEM STARTED L P PERF PAJRN,=W'3' LINE TYPE 3
0x11e6e0…11e874 (4, 174) Opaque[0x194]
0x11e874…11ea08 # DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x11e874…11ea08 IdxSect {
0x11e874…11ea08 f00 = 0x0042 // 0x11e874 @0x0
0x11e874…11ea08 f01 = 0x0002 // 0x11e876 @0x2
0x11e874…11ea08 gno = [ // 0x11e878 @0x4
0x11e874…11ea08 [0x00]: C0x0042.0x0.0
0x11e874…11ea08 ]
0x11e874…11ea08 }
0x11ea08…11eb9c Dummy {f00=0x0042, f01=0x0190, f02=» 0 P IDENT DCVDU DEMONSTRATE VIDEO L P DDUM DEMODD 8 L P PDIV P P EXPROC XBFMT
0x11eb9c…11ed30 Dummy {f00=0x0042, f01=0x0190, f02=»**************************************************** | L P* * < L P* DEMONSTRATE VIDEO * L P*
0x11ed30…11eec4 Dummy {f00=0x0042, f01=0x0190, f02=» | L PDC000 < L P PERF XBFMT,=W'12' DEMONSTRATE VIDEO L PDC999
0x11eec4…11f058 Dummy {f00=0x0042, f01=0x40e0, f02=» | L P************************************************************************ < L P END @ 9
0x11f058…11f1ec Dummy {f00=0x0042, f01=0x2008, f02=» x L P************************************************************************ 8 L P END @ 9
0x11f1ec…11f380 Dummy {f00=0x0042, f01=0x0190, f02=»,CF990 NO VDU AVAILABLE | L P************************************************************************ < L P* * L P* FOR LIST, A VIDEO SCREEN MUST BE AVAILABLE
0x11f380…11f514 (4, 175) Opaque[0x194]
0x11f514…11f6a8 # DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0848, f03=0x0000}
0x11f514…11f6a8 IdxSect {
0x11f514…11f6a8 f00 = 0x0042 // 0x11f514 @0x0
0x11f514…11f6a8 f01 = 0x000c // 0x11f516 @0x2
0x11f514…11f6a8 gno = [ // 0x11f518 @0x4
0x11f514…11f6a8 [0x00]: C0x0042.0x1.0
0x11f514…11f6a8 [0x01]: C0x0042.0x2.0
0x11f514…11f6a8 [0x02]: C0x0042.0x3.0
0x11f514…11f6a8 [0x03]: C0x0043.0x0.0
0x11f514…11f6a8 [0x04]: C0x0043.0x1.0
0x11f514…11f6a8 [0x05]: C0x0043.0x2.0
0x11f514…11f6a8 ]
0x11f514…11f6a8 }
0x11f6a8…11f83c Dummy {f00=0x0042, f01=0x0190, f02=» * P IDENT DDTP71 DEMONSTRATE 6371-PRINTER L P DDUM DEMODD 2 L P PDIV P P EXPROC PVATTP
0x11f83c…11f9d0 Dummy {f00=0x0042, f01=0x0190, f02=» z P P EXPROC XEERR > P P EXPROC ZMRDF P P EXPROC DEFDOC
0x11f9d0…11fb64 Dummy {f00=0x0042, f01=0x0190, f02=» P L P************************************************************************ L P* * ` L P* DEMONSTRATE THE 6371-PRINTER * L P*
0x11fb64…11fcf8 Dummy {f00=0x0042, f01=0x0190, f02=»******** P L PDDTP71 PROC L PDD000 ` N P PERF PVATTP,DSVCHPRT ATTACH PRINTER L P*
0x11fcf8…11fe8c Dummy {f00=0x0042, 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
0x11fe8c…120020 Dummy {f00=0x0042, f01=0x0190, f02=» R L P* * L P* DEFINE THE DOCUMENT * b L P* * P MOVE
0x120020…1201b4 (4, 176) Dummy {f00=0x0042, 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*
0x1201b4…120348 Dummy {f00=0x0042, 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'
0x120348…1204dc Dummy {f00=0x0042, 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'
0x1204dc…120670 Dummy {f00=0x0042, 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
0x120670…120804 Dummy {f00=0x0042, f01=0x0190, f02=»PUPOSA,=D'28' L P CALL FMOVE,FCFORMAT,FMTCSET J L P PERF PSWFMT,=W'19' L P*
0x120804…120998 Dummy {f00=0x0042, 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'
0x120998…120b2c Dummy {f00=0x0042, 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'
0x120b2c…120cc0 Dummy {f00=0x0042, 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 '
0x120cc0…120e54 (4, 177) Dummy {f00=0x0042, 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'
0x120e54…120fe8 Dummy {f00=0x0042, 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)'
0x120fe8…12117c Dummy {f00=0x0042, 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
0x12117c…121310 Dummy {f00=0x0042, 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
0x121310…1214a4 Dummy {f00=0x0042, 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'
0x1214a4…121638 Dummy {f00=0x0042, f01=0x0190, f02=» * p L P* RELEASE A4-SHEET AND DETACH PRINTER * 0 L P* * N P DSC0 DSVCHPRT,01 RELEASE DOCUMENT
0x121638…1217cc Dummy {f00=0x0042, f01=0x0190, f02=» t L P RET 4 L P PEND L P****************************************************
0x1217cc…121960 Dummy {f00=0x0042, 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
0x121960…121af4 (4, 178) Dummy {f00=0x0043, 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
0x121af4…121c88 Dummy {f00=0x0043, 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*
0x121c88…121e1c Dummy {f00=0x0043, f01=0x0190, f02=» * P MOVE WW2,PWPRT F P MOVE WW1,KCPRTPAR(WW2) ^ N P DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMTERS ~ L P*
0x121e1c…121fb0 Dummy {f00=0x0043, f01=0x0190, f02=» * p L P PERF PUPOSA,PDPOS 0 L P* * L P* WRITE THE LINE
0x121fb0…122144 Dummy {f00=0x0043, 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
0x122144…1222d8 Dummy {f00=0x0043, f01=0x0190, f02=» P CLEAR SBFIL3 P CLEAR SBFIL4 P CLEAR SBFIL5 4 L PPT999 J L P RET L P PEND
0x1222d8…12246c Dummy {f00=0x0043, f01=0x0190, f02=» * L P* PROCEDURE: PSWFMT * J L P* FUNCTIONAL DESCRIPTION: * L P* WRITE THE FORMAT CONTAI
0x12246c…122600 Dummy {f00=0x0043, f01=0x0190, f02=» * L P************************************************************************ J L PPSWFMT PROC PWPRT P PLIT PWPRT L PPS000
0x122600…122794 (4, 179) Dummy {f00=0x0043, f01=0x0190, f02=»HPRT,5,WW1 SEND PRINTER PARAMETERS N P EDWRT DSVCHPRT,FCFORMAT H L PPS999 L P RET
0x122794…122928 Dummy {f00=0x0043, f01=0x0190, f02=»****************************************************************** L P* * J L P* PROCEDURE: PUPOSA * L P* FUNCTIONAL DESCRIPTION:
0x122928…122abc Dummy {f00=0x0043, f01=0x0190, f02=» * L P************************************************************************ J L PPUPOSA PROC PDLINE P PLIT PDLINE L PPU000
0x122abc…122c50 Dummy {f00=0x0043, f01=0x0190, f02=» L P RET ! F L P PEND ! L P**********************************
0x122c50…122de4 Dummy {f00=0x0043, f01=0x0190, f02=» * ! L P* DEMO TP71: AVAILABLE CHARACTER SET * " F L P* * " L P**********************************
0x122de4…122f78 Dummy {f00=0x0043, f01=0x0190, f02=»' " L P FILLR ' ',15 # F L P FTEXT =X'202122232425262728292A2B2C2D2E2F' # L P FTEXT =X'303132333435363738393A3B
0x122f78…12310c Dummy {f00=0x0043, f01=0x0190, f02=» # L P FTEXT ' ' $ F L P FILLR ' ',15 $ L P FTEXT =X'505152535455565758595A5B
0x12310c…1232a0 Dummy {f00=0x0043, f01=0x0190, f02=»707172737475767778797A7B7C7D7E7F' $ L P FMEND % F L P************************************************************************ % L P*
0x1232a0…123434 (4, 180) Dummy {f00=0x0043, f01=0x0190, f02=» * % L P************************************************************************ & F L PFMTNCV FRMT & L P FTEXT ' '
0x123434…1235c8 Dummy {f00=0x0043, f01=0x0190, f02=»EXT2 & L P FTAB 17 ' F L P FTEXT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x1235c8…12375c Dummy {f00=0x0043, f01=0x409a, f02=»************************************************************** ' L P END ( F@ ( XT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x12375c…1238f0 Dummy {f00=0x0043, f01=0x2008, f02=» ) x L P PEND 8 L P************************************************************************ L P END
0x1238f0…123a84 Dummy {f00=0x0043, 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
0x123a84…123c18 Dummy {f00=0x0043, 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 :
0x123c18…123dac Dummy {f00=0x0043, 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
0x123dac…123f40 Dummy {f00=0x0043, 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
0x123f40…1240d4 (4, 181) Opaque[0x194]
0x1240d4…124268 # DirEnt {nam=»DELACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x1240d4…124268 IdxSect {
0x1240d4…124268 f00 = 0x0043 // 0x1240d4 @0x0
0x1240d4…124268 f01 = 0x000a // 0x1240d6 @0x2
0x1240d4…124268 gno = [ // 0x1240d8 @0x4
0x1240d4…124268 [0x00]: C0x0043.0x3.0
0x1240d4…124268 [0x01]: C0x0044.0x0.0
0x1240d4…124268 [0x02]: C0x0044.0x1.0
0x1240d4…124268 [0x03]: C0x0044.0x2.0
0x1240d4…124268 [0x04]: C0x0044.0x3.0
0x1240d4…124268 ]
0x1240d4…124268 }
0x124268…1243fc Dummy {f00=0x0043, f01=0x018e, f02=» 0 P IDENT DELACT LIST ACCOUNTS L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x1243fc…124590 Dummy {f00=0x0043, f01=0x0190, f02=» B P P EXPROC XAKBIN P P EXPROC XCLAMP P EXPROC XHERAS P P EXPROC ZMRDF
0x124590…124724 Dummy {f00=0x0043, f01=0x0190, f02=» z P ENTRY DELACT > L P************************************************************************ T L P* * L P* LIST ACCOUNTS
0x124724…1248b8 Dummy {f00=0x0043, f01=0x0190, f02=» L P************************************************************************ L PDELACT PROC T L PDE000 L P SET SBLACT
0x1248b8…124a4c Dummy {f00=0x0043, f01=0x0190, f02=»D'30' L P PERF PAJRN,=W'1' PRINT FUNCTION IDENTIFICATION @ L P* * L P* ISSUE AN INITIAL KEYBOARD INPUT (NOWAI
0x124a4c…124be0 Dummy {f00=0x0043, f01=0x0190, f02=»ANSWER GIVEN BY THE OPERATOR * L P* * @ P SET SBNOWAIT P PERF XAKBIN,=W'0' L P* *
0x124be0…124d74 (4, 182) Dummy {f00=0x0044, 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* *
0x124d74…124f08 Dummy {f00=0x0044, 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
0x124f08…12509c Dummy {f00=0x0044, f01=0x0190, f02=» * ` L P* GET THE NEXT ACCOUNT TO BE DISPLAYED * L P* * p L PDE200
0x12509c…125230 Dummy {f00=0x0044, f01=0x0190, f02=»RD INPUT * ` L P* * L P TESTIO SPDSDYKB p L P BNOK DE400
0x125230…1253c4 Dummy {f00=0x0044, 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
0x1253c4…125558 Dummy {f00=0x0044, f01=0x0190, f02=» b L P CBNE SPBINW2,KWEND,DE350 INVALID ANSWER, GO ON " L P* STOP HAS BEEN DEPRESSED * r L PDE340
0x125558…1256ec Dummy {f00=0x0044, 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
0x1256ec…125880 Dummy {f00=0x0044, f01=0x0190, f02=» L P* * L P* CALCULATE NEXT ACCOUNT NUMBER * T L P* * L PDE400
0x125880…125a14 (4, 183) Dummy {f00=0x0044, 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
0x125a14…125ba8 Dummy {f00=0x0044, f01=0x0190, f02=» L P CBNG IDACTNR1,YDLASSAV,DE600 VALID ACCOUNT NUMBER L P B DE460 T L P* CHEQUE ACCOUNT * L PDE450
0x125ba8…125d3c Dummy {f00=0x0044, 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
0x125d3c…125ed0 Dummy {f00=0x0044, 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
0x125ed0…126064 Dummy {f00=0x0044, 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
0x126064…1261f8 Dummy {f00=0x0044, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x1261f8…12638c Dummy {f00=0x0044, 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
0x12638c…126520 Dummy {f00=0x0044, 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*
0x126520…1266b4 (4, 184) Dummy {f00=0x0044, f01=0x0190, f02=» * r L PDE700 2 L P EDWRT SPDSSCRN,FMTLACT ACCOUNT LINE L PDE800
0x1266b4…126848 Dummy {f00=0x0044, 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
0x126848…1269dc Dummy {f00=0x0044, f01=0x0190, f02=»****************************************************************** L P* * J L P* LIST ACCOUNTS, ACCOUNT LINE (DELACT) * L P*
0x1269dc…126b70 Dummy {f00=0x0044, f01=0x0190, f02=»T FRMT L P FNL L L P FMEL '999999',IDACTNR1 L P FTAB 8
0x126b70…126d04 Dummy {f00=0x0044, f01=0x0190, f02=»B 13 L P FCOPY ACNAME L L P FTAB 34 L P FMEL 'ZZZVZZZVZZ9,99',ADDEP
0x126d04…126e98 Dummy {f00=0x0044, f01=0x0190, f02=»L 'ZZZVZZZVZZ9,99',ADWDRCUM L P FTAB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x126e98…12702c Dummy {f00=0x0044, f01=0x4050, f02=» @ LB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x12702c…1271c0 Dummy {f00=0x0044, f01=0x2008, f02=» # x L P************************************************************************ $ 8 L P END $ @ $ E TDAMOUNT,ODCASH(KW1,IWINDEX1)
0x1271c0…127354 (4, 185) Dummy {f00=0x0044, f01=0x0190, f02=» v T P CALL MASK,NWXSTAT,WW1 CHECK DISK-ERRORS > T P BNOK QI050 DISK-ERROR FOUND L P*
0x127354…1274e8 Dummy {f00=0x0044, f01=0x0008, f02=»
0x1274e8…12767c Dummy {f00=0x0044, f01=0x0190, f02=» < P IDENT DAUCCY CURRENCY UPDATE DDUM DEMODD D PDIV X P EXPROC ECICCY f P EXT PAJRN | P EXPROC XBFMT P EXT ZCRDD P EXPROC ZHWRID ENTRY DAUCCY P ENTRY EPPCCY P
0x12767c…127810 Dummy {f00=0x0044, f01=0x0190, f02=» P ENTRY SPAP29 L P************************************************************************ P* n P* UPDATE CURRENCY x * L P************************************************************************ PDAUCCY PROC PDA000
0x127810…1279a4 Dummy {f00=0x0044, f01=0x0190, f02=» MUL CDCCYRNR,KDSHIFT SHIFT NUMBER 8 P PERF ZCRDD,CDCCYRNR,NDLRN1,KW1 READ CURRENCY RECORD * P TBT SBCANCEL,DA999 f P TBT SBRECAVB,DA100 CONTINUE P* & P* INITIALISE A NEW CURRENCY RECORD P* P PERF ECICCY PDA100 * P
0x1279a4…127b38 Dummy {f00=0x0044, f01=0x0190, f02=»NITIALISE CURRENCY | P TBT SBCANCEL,DA999 : P MOVE YCCCY(SWCCY),CCCCYCDE MOVE CURRENCY CODE TO CWB 6 6 P PERF ZHWRID,CDCCYRNR,NDLRN1 WRITE CURRENCY RECORD t P CBNE YDSTATUS,=D'1',DA200 P ADD SWCCY,=W'1' P CBL SWCCY,=W'4',DA050 P B
0x127b38…127ccc Dummy {f00=0x0044, f01=0x0190, f02=»OVE TDTRSSEQ,YDLASSEQ PDA999 P CLEAR SBUCCY , P RET B P PEND V J P********************************************************************** d P* 6 P* PRINT CURRENCY LINE TYPES (UPDATE AND INQUIRY) P* J P********
0x127ccc…127e60 Dummy {f00=0x0044, f01=0x0190, f02=» $ P MOVE ICTEXT2,CCCCYNME P PERF PAJRN,=W'5' 0 P* R P* LINE 6: BUYING RATES P* | P MOVE IDAMT1,CDBUY1 P MOVE IDAMT2,CDBUY2 P PERF PAJRN,=W'6' P* P* LINE 6: SEL
0x127e60…127ff4 (4, 186) Opaque[0x194]
0x127ff4…128188 # DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x127ff4…128188 IdxSect {
0x127ff4…128188 f00 = 0x0045 // 0x127ff4 @0x0
0x127ff4…128188 f01 = 0x0004 // 0x127ff6 @0x2
0x127ff4…128188 gno = [ // 0x127ff8 @0x4
0x127ff4…128188 [0x00]: C0x0045.0x0.0
0x127ff4…128188 [0x01]: C0x0045.0x1.0
0x127ff4…128188 ]
0x127ff4…128188 }
0x128188…12831c Dummy {f00=0x0045, f01=0x0190, f02=» L P EDWRT SPDSSCRN,FMTPIC L P************************************************************************ T L P* * L P* DUMMY FORMAT TO IN
0x12831c…1284b0 Dummy {f00=0x0045, f01=0x0190, f02=» L P************************************************************************ L PFMTPIC FRMT T L P FSL L P FMEL '9',IDNR1
0x1284b0…128644 Dummy {f00=0x0045, f01=0x0190, f02=» L P FMEL '999',IDNR1 L P FMEL '9999',IDNR1 T L P FMEL '99999',IDNR1 L P FMEL '999999',IDNR1
0x128644…1287d8 Dummy {f00=0x0045, f01=0x0190, f02=» L P FMEL 'ZZ',IDNR1 P FMEL 'ZZZ',IDNR1 T P FMEL 'ZZZZ',IDNR1 n L P FMEL 'ZZZZZ',IDNR1 L P FMEL 'ZZZZZZ',IDNR1
0x1287d8…12896c Dummy {f00=0x0045, f01=0x0190, f02=» x L P FMEL 'ZZZ9,99',IDNR1 8 L P FMEL 'ZZZ9,99-',IDNR1 P FMEL 'ZZZZ,ZZ',IDNR1 P FMEL 'ZZZZ9,00',I
0x12896c…128b00 Dummy {f00=0x0045, f01=0x0190, f02=»9,99',IDNR1 P FMEL 'ZZZZZ9,99-',IDNR1 D P FMEL 'ZZZZZZ,ZZ',IDNR1 d L P FMEL 'ZZZZZZZZ9,99',IDNR1 L P FMEL 'ZZZZZZZZ9,99-',IDNR1
0x128b00…128c94 (4, 187) Dummy {f00=0x0045, f01=0x0190, f02=» j P FMEL 'ZZE:ZZ',IDNR1 * & P FMEL 'ZZVZZ9,99',IDNR1 F & P FMEL 'ZZVZZZ,ZZ',IDNR1 p L P FMEL '99E-99E-99',IDNR1 P FMEL 'ZZE-ZZE-ZZ',IDNR1
0x128c94…128e28 Dummy {f00=0x0045, f01=0x40da, f02=»NR1 v L P FMEND 6 L P************************************************************************ @ P FMEL 'ZZE-ZZE-ZZ',IDNR1
0x128e28…128fbc Dummy {f00=0x0045, f01=0x2008, f02=» **************************************** x L P END 8@ L 'ZZE:ZZE:ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1
0x128fbc…129150 Dummy {f00=0x0045, f01=0x0190, f02=» ^ L P MOVE TDAMOUNT,IDAMT1 L P PERF PAJRN,=W'4' AMOUNT QUOTED n L P MOVE ICTEXT3,ICTEXT2 CURRENCY CODE
0x129150…1292e4 Dummy {f00=0x0045, f01=0x0190, f02=» ^ L P* * L P* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED * n L P* WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2. *
0x1292e4…129478 Dummy {f00=0x0045, f01=0x0190, f02=»RRENCY * ^ L P* * L P TBT SBEOI,DP600 n L P* SWAP IDAMT1 AND IDAMT2 *
0x129478…12960c Dummy {f00=0x0045, f01=0x0190, f02=» ^ L P MOVE IDAMT2,WDEC1 L P* * n L P* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE *
0x12960c…1297a0 Dummy {f00=0x0045, f01=0x0190, f02=» ^ L P CBE RDPRTTYP,=D'2',DP700 L P PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER n L P TBT SBCANCEL,DP980
0x1297a0…129934 (4, 188) Opaque[0x194]
0x129934…129ac8 # DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x129934…129ac8 IdxSect {
0x129934…129ac8 f00 = 0x0045 // 0x129934 @0x0
0x129934…129ac8 f01 = 0x0006 // 0x129936 @0x2
0x129934…129ac8 gno = [ // 0x129938 @0x4
0x129934…129ac8 [0x00]: C0x0045.0x2.0
0x129934…129ac8 [0x01]: C0x0045.0x3.0
0x129934…129ac8 [0x02]: C0x0046.0x0.0
0x129934…129ac8 ]
0x129934…129ac8 }
0x129ac8…129c5c Dummy {f00=0x0045, f01=0x0190, f02=» 8 P IDENT DGCACT CLOSE ACCOUNT L P*********************************************************************** @ L P* PROCEDURE NAME : * L P* DGCACT CLOSE ACC
0x129c5c…129df0 Dummy {f00=0x0045, f01=0x0190, f02=» - PRINT JOURNAL-ROLL * L P* - DISPLAY FORMAT 40 ON SCREEN * @ L P* - UPDATE ACCOUNTRECORD * L P* - SAVINGS ACCOUNT: PR
0x129df0…129f84 Dummy {f00=0x0045, f01=0x0190, f02=» RECORDSTATUS BECOMES 2 * L P* - CHEQUE ACCOUNT : IF LAST-TRANSACTION = LAST-TRANS* @ L P* ACTION-STATEMENTED: RECORDSTATUS* L P* BE
0x129f84…12a118 Dummy {f00=0x0045, f01=0x0190, f02=» FORMED IF TERMINALPRINTER IS * L P* PRESENT * @ L P* - REWRITE ACCOUNTRECORD * L P* PROCEDURES USED :
0x12a118…12a2ac Dummy {f00=0x0045, f01=0x0190, f02=» PBBOOK PRINT BOOK * L P* ZZDRWRD WRITE DATABASE-RECORD * @ L P* XBFMT SCREEN-CONTROL * L P****************************************
0x12a2ac…12a440 Dummy {f00=0x0045, 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
0x12a440…12a5d4 (4, 189) Dummy {f00=0x0045, 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
0x12a5d4…12a768 Dummy {f00=0x0045, f01=0x0190, f02=» * L P* SET ACCOUNT STATUS * B L P* * L P MOVE ADSTATUS,=D'2' CLOSED W/O STATEM
0x12a768…12a8fc Dummy {f00=0x0045, 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*
0x12a8fc…12aa90 Dummy {f00=0x0045, f01=0x0190, f02=» * L PDG600 B L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P TBT SBCANCEL,DG999
0x12aa90…12ac24 Dummy {f00=0x0045, f01=0x0190, f02=»EMENTED TRANSACTIONS * L P* * B L P CBE ADSTATUS,=D'3',DG999 NO STATEMENTING NECESSARY L P CBG RDPRTTYP,=D'1',DG999 NO TTP/TEP
0x12ac24…12adb8 Dummy {f00=0x0045, f01=0x0190, f02=»OUNT RECORD FOR PBBOOK OR DKDSTM * L P* * B L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,DG999
0x12adb8…12af4c Dummy {f00=0x0045, f01=0x0190, f02=»UNT, PRINT BOOK * L P PERF PBBOOK B L P B DG999 L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMEN
0x12af4c…12b0e0 Dummy {f00=0x0045, f01=0x40d4, f02=» L PDG999 B P RET P PEND P END @ L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMEN
0x12b0e0…12b274 (4, 190) Dummy {f00=0x0046, 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
0x12b274…12b408 Dummy {f00=0x0046, f01=0x415a, f02=»'29' P MOVE XWRET,=W'1' P B S13999 & PS13200 8 * P MOVE SPBINW4,=W'1' VALUE NOT IN RANGE F P MOVE XWRET,=W'1' t PS13999 P RET P PEND L P************************************************************************ L P E
0x12b408…12b59c Dummy {f00=0x0046, f01=0x2008, f02=» x L P PEND 8 L P END @ BE "CANCE
0x12b59c…12b730 Dummy {f00=0x0046, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x12b730…12b8c4 Dummy {f00=0x0046, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x12b8c4…12ba58 Dummy {f00=0x0046, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x12ba58…12bbec Dummy {f00=0x0046, f01=0x018e, f02=» * L P* * L P************************************************************************ l P OPTNS LITADR=1112 J F**************************************************
0x12bbec…12bd80 Dummy {f00=0x0046, f01=0x0190, f02=» P CWB CSY P TWB TRM P TWB TSP $ P UWB UBF 4 P UWB UIF D P UWB UCY T P UWB UOP d P UWB UA1 t P UWB UA2 P UWB UT1 P UWB UT2 P CWB CK1 P CWB CK2 P UWB UQQ & PSPDSSCRN DSET FC=50,DEV=DY,BUFL=82
0x12bd80…12bf14 (4, 191) Opaque[0x194]
0x12bf14…12c0a8 # DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c8, f03=0x0000}
0x12bf14…12c0a8 IdxSect {
0x12bf14…12c0a8 f00 = 0x0046 // 0x12bf14 @0x0
0x12bf14…12c0a8 f01 = 0x0004 // 0x12bf16 @0x2
0x12bf14…12c0a8 gno = [ // 0x12bf18 @0x4
0x12bf14…12c0a8 [0x00]: C0x0046.0x1.0
0x12bf14…12c0a8 [0x01]: C0x0046.0x2.0
0x12bf14…12c0a8 ]
0x12bf14…12c0a8 }
0x12c0a8…12c23c Dummy {f00=0x0046, f01=0x0190, f02=» 0 P IDENT DHBACT BLOCK / DEBLOCK ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DHBACT
0x12c23c…12c3d0 Dummy {f00=0x0046, f01=0x0190, f02=» | P P EXPROC ZDRWRD @ L PDHBACT PROC (DE-)BLOCK ACCOUNT L PDH000
0x12c3d0…12c564 Dummy {f00=0x0046, 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
0x12c564…12c6f8 Dummy {f00=0x0046, f01=0x0190, f02=» L P* * D L P* PRINT LINE TYPE 1 AND 2 * L P*
0x12c6f8…12c88c Dummy {f00=0x0046, 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
0x12c88c…12ca20 Dummy {f00=0x0046, f01=0x0190, f02=» * h L P MOVE TCTEXT,=C' ' ( L P PERF XBFMT,=W'48' x L P TBT SBCANCEL,DH900
0x12ca20…12cbb4 (4, 192) Dummy {f00=0x0046, f01=0x0190, f02=» h L P MOVE ADLASSEQ,YDLASSEQ ( L P MOVE TDTRSSEQ,YDLASSEQ x L P*
0x12cbb4…12cd48 Dummy {f00=0x0046, 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
0x12cd48…12cedc Dummy {f00=0x0046, f01=0x0190, f02=» * J L P* REWRITE ACCOUNTRECORD * L P* * Z PDH600 L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P
0x12cedc…12d070 Dummy {f00=0x0046, f01=0x412c, f02=» X L P CLEAR SBBACT L P RET h L P PEND P
0x12d070…12d204 Dummy {f00=0x0046, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DHBACT
0x12d204…12d398 Dummy {f00=0x0046, f01=0x0190, f02=»FOR PBBOOK OR DKDSTM * v L P* * 6 L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,DG999
0x12d398…12d52c Dummy {f00=0x0046, f01=0x0190, f02=»OOK * v L P PERF PBBOOK 6 L P B DG999 L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x12d52c…12d6c0 Dummy {f00=0x0046, f01=0x40c8, f02=» v L PDG999 6 P RET P PEND P END @ L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x12d6c0…12d854 (4, 193) Opaque[0x194]
0x12d854…12d9e8 # DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08d8, f03=0x0000}
0x12d854…12d9e8 IdxSect {
0x12d854…12d9e8 f00 = 0x0046 // 0x12d854 @0x0
0x12d854…12d9e8 f01 = 0x0006 // 0x12d856 @0x2
0x12d854…12d9e8 gno = [ // 0x12d858 @0x4
0x12d854…12d9e8 [0x00]: C0x0046.0x3.0
0x12d854…12d9e8 [0x01]: C0x0047.0x0.0
0x12d854…12d9e8 [0x02]: C0x0047.0x1.0
0x12d854…12d9e8 ]
0x12d854…12d9e8 }
0x12d9e8…12db7c Dummy {f00=0x0046, f01=0x018e, f02=» 0 P IDENT DIQACT INQUIRE ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DIQACT INQUIRE ACCOUNT
0x12db7c…12dd10 Dummy {f00=0x0046, f01=0x0190, f02=» P P EXPROC XBFMT P P EXPROC XEERR X P P EXPROC ZCRDD P P EXPROC
0x12dd10…12dea4 Dummy {f00=0x0046, f01=0x0190, f02=»********** * T L P* PROCEDURE NAME : * L P* DIQACT * d L P* FUNCTIONAL DESCRIPTION : * L P*
0x12dea4…12e038 Dummy {f00=0x0046, f01=0x0190, f02=»CTIONS * T L P* ACTIONS : * L P* - PRINT JOURNAL-ROLL * f L P* - UPDATE LAST TRANSACTION SEQUENCE NUMBER * L P*
0x12e038…12e1cc Dummy {f00=0x0046, 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
0x12e1cc…12e360 Dummy {f00=0x0046, f01=0x0190, f02=» END-OF-ITEM OR CANCEL * x N P* NO TRS. INQ. : REWRITE ACCOUNTRECORD * 8 L P* RETURN * , P* CANCEL : RETURN L
0x12e360…12e4f4 (4, 194) Dummy {f00=0x0047, f01=0x0190, f02=» * Z L P* QFLTRS PREVIOUS TRANSACTIONNUMBER * L P* XBFMT SCREEN-CONTROL * j L P* XEERR DISPLAY ERRORR-MESSAGE * L
0x12e4f4…12e688 Dummy {f00=0x0047, f01=0x0190, f02=» * Z L P************************************************************************ L PDIQACT PROC j L PDI000 L
0x12e688…12e81c Dummy {f00=0x0047, f01=0x0190, f02=» Z L P L P MOVE TDTRSCDE,=D'70' j L P PERF PAJRN,=W'2' L
0x12e81c…12e9b0 Dummy {f00=0x0047, 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
0x12e9b0…12eb44 Dummy {f00=0x0047, 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
0x12eb44…12ecd8 Dummy {f00=0x0047, f01=0x0190, f02=»DD UDTRSRNR,TDUMMY L P PERF ZCRDD,UDTRSRNR,NDLRN2,KW1 N P TBT SBCANCEL,DI900 L P TBF SBRECAVB,DI700 L
0x12ecd8…12ee6c Dummy {f00=0x0047, 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
0x12ee6c…12f000 Dummy {f00=0x0047, f01=0x0190, f02=» ~ L P PERF XEERR,=W'38',KW1 > L P* ( ERROR-MESSAGE ; NO (MORE) TRANSACTIONS , ANSWER MUST BE * L P* "CANCEL" )
0x12f000…12f194 (4, 195) Dummy {f00=0x0047, 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
0x12f194…12f328 Dummy {f00=0x0047, f01=0x0190, f02=»0 P CLEAR SBQACT L L P RET b L P PEND L P******
0x12f328…12f4bc Dummy {f00=0x0047, f01=0x4016, f02=» R@ P CLEAR SBQACT L L P RET b L P PEND L P******
0x12f4bc…12f650 Dummy {f00=0x0047, f01=0x2008, f02=» H
0x12f650…12f7e4 Dummy {f00=0x0047, f01=0x0190, f02=» J P P CBG IDNR1,=D'19999',S06400 RANGE ERROR L P* * b L P* OPERATOR IDENTIFICATION IS IN THE RIGHT RANGE * L P*
0x12f7e4…12f978 Dummy {f00=0x0047, f01=0x0190, f02=»R,KDSHIFT SHIFT TO GET RECORDNUMBER T P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 READ OPERATOR RECORD D P TBT SBCANCEL,S06900 N P TBT SBRECAVB,S06990 RECORD IS PRESENT IN THE DBS N
0x12f978…12fb0c Dummy {f00=0x0047, f01=0x0190, f02=» $ P B S06800 ERROR, CLEAR DATA-ITEM L P* * , L P* INITIALISE A NEW OPERATOR RECORD IN THE UWB * | L P*
0x12fb0c…12fca0 Dummy {f00=0x0047, f01=0x0190, f02=»ECORD n P B S06990 . L P* * @ " P* OPERATOR NUMBER NOT IN RANGE L P* * N PS0
0x12fca0…12fe34 (4, 196) Opaque[0x194]
0x12fe34…12ffc8 # DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f0, f03=0x0000}
0x12fe34…12ffc8 IdxSect {
0x12fe34…12ffc8 f00 = 0x0047 // 0x12fe34 @0x0
0x12fe34…12ffc8 f01 = 0x0002 // 0x12fe36 @0x2
0x12fe34…12ffc8 gno = [ // 0x12fe38 @0x4
0x12fe34…12ffc8 [0x00]: C0x0047.0x2.0
0x12fe34…12ffc8 ]
0x12fe34…12ffc8 }
0x12ffc8…13015c Dummy {f00=0x0047, 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,
0x13015c…1302f0 Dummy {f00=0x0047, 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,
0x1302f0…130484 Dummy {f00=0x0047, 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
0x130484…130618 Dummy {f00=0x0047, 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**********
0x130618…1307ac Dummy {f00=0x0047, f01=0x0190, f02=» 3 N L P* * 4 L P************************************************************************ 4 ^ L P* * 4 L P* ACCOUNT
0x1307ac…130940 Dummy {f00=0x0047, 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
0x130940…130ad4 (4, 197) Opaque[0x194]
0x130ad4…130c68 # DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08f8, f03=0x0000}
0x130ad4…130c68 IdxSect {
0x130ad4…130c68 f00 = 0x0047 // 0x130ad4 @0x0
0x130ad4…130c68 f01 = 0x0010 // 0x130ad6 @0x2
0x130ad4…130c68 gno = [ // 0x130ad8 @0x4
0x130ad4…130c68 [0x00]: C0x0047.0x3.0
0x130ad4…130c68 [0x01]: C0x0048.0x0.0
0x130ad4…130c68 [0x02]: C0x0048.0x1.0
0x130ad4…130c68 [0x03]: C0x0048.0x2.0
0x130ad4…130c68 [0x04]: C0x0048.0x3.0
0x130ad4…130c68 [0x05]: C0x0049.0x0.0
0x130ad4…130c68 [0x06]: C0x0049.0x1.0
0x130ad4…130c68 [0x07]: C0x0049.0x2.0
0x130ad4…130c68 ]
0x130ad4…130c68 }
0x130c68…130dfc Dummy {f00=0x0047, f01=0x0190, f02=» < P IDENT DKDSTM DAILY STATEMENTS L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x130dfc…130f90 Dummy {f00=0x0047, f01=0x018e, f02=» EXPROC QENTRS P P EXPROC QGATYP T P EXPROC XCLAMP P EXPROC XEERR P P EXPROC ZCRDD
0x130f90…131124 Dummy {f00=0x0047, f01=0x0190, f02=» P ENTRY DKDSTM P ENTRY EQPDS L P************************************************************************ . L P* * ~ L P* PROCEDURE: DKDSTM
0x131124…1312b8 Dummy {f00=0x0047, 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
0x1312b8…13144c Dummy {f00=0x0047, 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*
0x13144c…1315e0 Dummy {f00=0x0047, 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*
0x1315e0…131774 (4, 198) Dummy {f00=0x0048, 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
0x131774…131908 Dummy {f00=0x0048, 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
0x131908…131a9c Dummy {f00=0x0048, 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
0x131a9c…131c30 Dummy {f00=0x0048, f01=0x0190, f02=»CBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. * L P* * H L P************************************************************************ L PDKDSTM PROC
0x131c30…131dc4 Dummy {f00=0x0048, f01=0x0190, f02=»STM L P MOVE TDTRSCDE,=D'72' H L P PERF PAJRN,=W'1' IDENTIFICATION PRINT L P*
0x131dc4…131f58 Dummy {f00=0x0048, 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
0x131f58…1320ec Dummy {f00=0x0048, 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
0x1320ec…132280 Dummy {f00=0x0048, f01=0x0190, f02=»* P* 6371-PRINTER CONTROL P* ( P MOVE WW1,=W'18' 2 . P MOVE VCDOCPAR,=C'1010313801100030000000' J * P DSC2 DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 | P DSC1 DSVCHPRT,X'00',KW0 P MOVE WW1,=X'8066' P DSC1 DSVCHPRT,X'0D',WW1 PDK01
0x132280…132414 (4, 199) Dummy {f00=0x0048, f01=0x0190, f02=» d L PDK050 $ P CBE YDMLPINT,=D'0',DK060 t P* LINE PRINTER P PERF PVATTP,DSLNEPRT P B DK090 P* GENERAL PRINTER PDK060 P PERF
0x132414…1325a8 Dummy {f00=0x0048, f01=0x0190, f02=»XCLAMP,KW4,KW0 LAMP 4 OFF P TBT SBCANCEL,DK980 " L P CBG IDACTNR2,=D'0',DK300 SINGLE ACCOUNT > L P* * L P* SCAN ALL CHEQUE ACCOUNTS
0x1325a8…13273c Dummy {f00=0x0048, f01=0x0190, f02=»167998' INITIALISE ~ L P* * @ L P* NEXT CHEQUE ACCOUNT * L P*
0x13273c…1328d0 Dummy {f00=0x0048, f01=0x0190, f02=»'2' 8 P CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS @ L P* * | L P* READ THE ACCOUNT RECORD
0x1328d0…132a64 Dummy {f00=0x0048, f01=0x0190, f02=» l L P MUL ADACTRNR,KDSHIFT , L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 | L P TBT SBCANCEL,DK980
0x132a64…132bf8 Dummy {f00=0x0048, f01=0x0190, f02=» * l L P* THE ACCOUNT RECORD HAS BEEN READ * , L P* * | L P CBE ADSTATUS,=D'3',DK200 CLOSED WITH STATEMENTING
0x132bf8…132d8c Dummy {f00=0x0048, f01=0x0190, f02=» * X L P* A NON CLOSED ACCOUNT HAS BEEN READ * L P* * h L PDK300 4 P
0x132d8c…132f20 Dummy {f00=0x0048, f01=0x0190, f02=» X P B DK308 P* ( B P* IF THE REVERSAL SWITCH IS ON, IT MUST BE TEMPORARILY CLEARED 2 & P* FOR THE PRINTING OF LINE TYPE 2 x P* PDK304 P CLEAR SBRVS P PERF PAJRN,=W'2' P SET SBRVS PDK308 L P
0x132f20…1330b4 (4, 200) Dummy {f00=0x0048, f01=0x0190, f02=» * X L P* * L P MOVE ICTEXT2,ACNAME h 8 P CBG IDACTNR2,=D'0',DK320 SINGLE ACCOUNT ON TTP/TEP P CBNE YDMLPINT,=D'1'
0x1330b4…133248 Dummy {f00=0x0048, f01=0x0190, f02=» PERF PXSKIP,SPDSPRT SKIP A LINE L P EDWRT SPDSPRT,PRT013 ( P B DK350 x P* PRINT ON THE TTP/TEP PDK320 P MOVE NDNEWLNE,=D'46' * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER P EDWRT D
0x133248…1333dc Dummy {f00=0x0048, f01=0x0190, f02=» T L P MOVE NDPRTTRS,ADSTMTRS WORKFIELD L P* * d L P* NEXT TRANSACTION TO BE STATEMENTED * L P*
0x1333dc…133570 Dummy {f00=0x0048, f01=0x0190, f02=» T L P CBE ADSTMTRS,ADLASTRS,DK700 NO MORE TRANSACTIONS L P PERF QENTRS,NDPRTTRS NEXT TRANS. TO BE STATEMENTED d L P* * L P* RE
0x133570…133704 Dummy {f00=0x0048, f01=0x0190, f02=» * T L P MOVE UDTRSRNR,ADACTRNR L P ADD UDTRSRNR,NDPRTTRS TRANS. RECORD KEY d L P PERF ZCRDD,UDTRSRNR,WDEC1,KW1 L P TBT
0x133704…133898 Dummy {f00=0x0048, f01=0x0190, f02=» T L P* * L P* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE * d L P* * L PDK50
0x133898…133a2c Dummy {f00=0x0048, f01=0x0190, f02=» * L P* UPDATE LAST TRANSACTION STATEMENTED, FOR A SAVINGS ACCOUNT THE * D L P* ACCOUNT RECORD WILL NOT BE REWRITTEN, SO UPDATING OF THIS FIELD IN * L P* THE UWB WILL DO NO HARM
0x133a2c…133bc0 Dummy {f00=0x0048, f01=0x0190, f02=»RS,NDPRTTRS L P B DK400 NEXT TRANSACTION D L P* * L P* ALL TRANSACTIONS OF THE SPECIFIED
0x133bc0…133d54 (4, 201) Dummy {f00=0x0048, f01=0x0190, f02=» * L PDK700 D , P CBG IDACTNR2,=D'0',DK705 SINGLE ACCOUNT * P CBE YDMLPINT,=D'1',DK705 LINE PRINTER , P PERF PXSKIP,SPDSPRT L
0x133d54…133ee8 Dummy {f00=0x0048, f01=0x0190, f02=»D'2',DK710 L P CBNE ADSTMTRS,ADLASTRS,DK710 ALL TRANS. STATEMENTED ? @ L P MOVE ADSTATUS,=D'3' CLOSED WITH STATEMENTING P* P* REWRITE THE ACCOUNT RECORD
0x133ee8…13407c Dummy {f00=0x0048, f01=0x0190, f02=» h L P TBT SBCANCEL,DK980 ( L PDK750 x , P CBG IDACTNR2,=D'0',DK800 SINGLE ACCOUNT P B DK200 ALL ACC
0x13407c…134210 Dummy {f00=0x0048, f01=0x0190, f02=» * l L P* * ! , L PDK800 ! | L PDK980
0x134210…1343a4 Dummy {f00=0x0048, f01=0x018e, f02=» PERF PWDETP,DSVCHPRT ! P B DK990 " P* " . < P* ALL ACCOUNT OPTION, GIVE A TRANSACTION SEQUENCE NUMBER " 8 P* " x PDK984 " P ADD YDLASSEQ,=D'1' " P MOVE TDTRSSEQ,YDLASSEQ " P CBE YDMLPINT,=D'0',DK986 " P* LINE PRINTER " , P PER
0x1343a4…134538 Dummy {f00=0x0048, f01=0x0190, f02=» P* EXIT FROM D-S # P* # PDK990 # & P CLEAR SBDSTM # 4 L P RET # J L P PEND # L P******************************
0x134538…1346cc Dummy {f00=0x0048, f01=0x0190, f02=»Y-STATEMENT ACCOUNT HEADER LINE * # L P* * $ J L P************************************************************************ $ L PPRT013 FRMT
0x1346cc…134860 Dummy {f00=0x0048, f01=0x0190, f02=»3 $ L P FMEL '999999',IDACTNR1 % J L P FTAB 12 % L P FCOPY ICTEXT2
0x134860…1349f4 (4, 202) Dummy {f00=0x0049, f01=0x018e, f02=» ' ',8 % L P FMEND & J L P************************************************************************ & P* & " P* PRINT A DAILY STAT
0x1349f4…134b88 Dummy {f00=0x0049, f01=0x0190, f02=» & F PEQPDS PROC ' PEQ000 ' L P* CLEAR SWITCHES USED * ' ( N P CLEAR SBDSDEP ' x N P CLEAR SBDSWDR
0x134b88…134d1c Dummy {f00=0x0049, f01=0x0190, f02=» ' n 4 P* SET SWITCHES DEPENDING ON THE TRANSACTION CODE ( . L P CBE UDTRSCDE,=D'1',EQ100 IN ( f L P CBE UDTRSCDE,=D'7',EQ100 NOBOOK IN ( L P C
0x134d1c…134eb0 Dummy {f00=0x0049, f01=0x0190, f02=» ( V L P CBE UDTRSCDE,=D'12',EQ140 TRANSFER (FROM) ) L P CBE UDTRSCDE,=D'11',EQ140 TRANSFER (TO) ) f L P B EQ180 ) L PEQ
0x134eb0…135044 Dummy {f00=0x0049, f01=0x0190, f02=» ) V L P B EQ180 * L PEQ120 * h N P SET SBDSWDR * L
0x135044…1351d8 Dummy {f00=0x0049, f01=0x0190, f02=» * Z N P SET SBDSTRF + L PEQ180 + l L P CBNL UDAMOUNT,=D'0',EQ200 +
0x1351d8…13536c Dummy {f00=0x0049, f01=0x0190, f02=»DIT AMOUNT ? + f P* , L PEQ200 , L P CBE UDTRSCDE,=D'1',EQ250 IN , n L P CBE UDTRSCDE,=D'7',EQ250 NOBOOK IN ,
0x13536c…135500 Dummy {f00=0x0049, f01=0x0190, f02=» * , ^ L P TBT SBDSRVS,EQ290 REVERSAL - L P B EQ270 - n L P* TRANSACTION CODE IS 1, 7 OR 11 * -
0x135500…135694 (4, 203) Dummy {f00=0x0049, f01=0x0190, f02=» - ^ L P* * . L P* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT * . n L P* * .
0x135694…135828 Dummy {f00=0x0049, f01=0x0190, f02=» . ^ L P MOVE IDAMT2,=D'0' / L P B EQ300 / n L P* * /
0x135828…1359bc Dummy {f00=0x0049, f01=0x0190, f02=» * / ^ L PEQ290 0 L P MOVE IDAMT1,=D'0' 0 n L P MOVE IDAMT2,UDAMOUNT 0
0x1359bc…135b50 Dummy {f00=0x0049, f01=0x0190, f02=» * 0 ^ L P* * 1 L PEQ300 1 n P MOVE SPBINW4,=W'61' 1 . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER 1
0x135b50…135ce4 Dummy {f00=0x0049, f01=0x0190, f02=»INT ON LINE PRINTER * 1 P EDWRT DSLNEPRT,FCBUFFER 2 L P B EQ990 2 l L PEQ310 2 | L P* PRINT ON A GTP
0x135ce4…135e78 Dummy {f00=0x0049, f01=0x0190, f02=» 2 l L PEQ320 3 , L P* PRINT ON A TTP/TEP * 3 | " P SUB NDNEWLNE,=D'2' NEXT LINE 3 * P PERF PZPOSD,NDNEWLNE
0x135e78…13600c Dummy {f00=0x0049, f01=0x413e, f02=» 3 p L P CLEAR SBFIRST PRINT STATEMENT DATE ONLY ONCE 4 0 P RET 4 P PEND 4 L P************************************************************************ 4 L P END
0x13600c…1361a0 Dummy {f00=0x0049, f01=0x2008, f02=» 5 2 x L P FILLR ' ',8 3 8 L P FMEND 3 L P************************************************
0x1361a0…136334 (4, 204) Dummy {f00=0x0049, f01=0x0190, f02=»( m n & n & n ( & n 6 ZZZZZZZZ9,99-9 n F " d n d & n t & s n & n & n & n ZZZZZZZZ9,99-9 n " d n & . n ZZZZ9,99
0x136334…1364c8 Dummy {f00=0x0049, f01=0x4016, f02=» n @ o & n & n ( & n 6 ZZZZZZZZ9,99-9 n F " d n d & n t & s n & n & n & n ZZZZZZZZ9,99-9 n " d n & . n ZZZZ9,99
0x1364c8…13665c Dummy {f00=0x0049, f01=0x0190, f02=» @ H IDENT QIRDBS TRA 10.0 80-04-11 F1 O1112 DATABASE RECOVERY p QIRDBS p H $$$TRAR p Z QIRDBS p l @ < MASKR T:DREAT T:IDIS T:XSTA1 ZCRDD ZDRWRDT ZEINSDE ZGREA p 0 T p p 0 p p
0x13665c…1367f0 Dummy {f00=0x0049, f01=0x0190, f02=» + q 1 q 6 q $ 8 q 6 ? q F J F " D L EL L0X E 0X DL0R DX L EL HL R L0X E 0X DL0R DP HL q X B 2 q H q J q Q q S q W q
0x1367f0…136984 Dummy {f00=0x0049, f01=0x0190, f02=»0 y q r J F " D @#HL)_! DL0R D * HL0X 0X DL0R D >A RII2l_H (L )L +L HL@ aL R r 0 ) r l r ~ r 2 r r 0 r 0 r J F " D aL a R I2FI HL#HL
0x136984…136b18 Dummy {f00=0x0049, f01=0x402e, f02=» A aL HL_Y +L4 r ~ s @ s *R D * HL0X 0X DL0R D >A RII2l_H (L )L +L HL@ aL R r 0 ) r l r ~ r 2 r r 0 r 0 r J F " D aL a R I2FI HL#HL
0x136b18…136cac Dummy {f00=0x0049, f01=0x0190, f02=» H H IDENT QMISC TRA 10.0 80-04-11 F1 O1112 MISCELANEOUS SUBROUTINES t > : QAFNKY QBSTKY QCGUWB QDFUWB QENTRS QFLTRS QGATYP t P QHSPKYI t $$$TRA t B > QAFNKYI QBSTKY1 9 QCGUWB- _ QDFUWB1 QENTRSA QFLTRSR t QGATYP
0x136cac…136e40 Dummy {f00=0x0049, f01=0x0190, f02=»3" I0 A0@1W I1 A1@0W 4 D DL6 t p a u . d u @ f u R t u b y u r ~ u J F " D @D W A0W A1W @0W @1 4 0L 0L0X 0R1HP _ AP0X 00X 00X u u u
0x136e40…136fd4 (4, 205) Opaque[0x194]
0x136fd4…137168 # DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0938, f03=0x0000}
0x136fd4…137168 IdxSect {
0x136fd4…137168 f00 = 0x0049 // 0x136fd4 @0x0
0x136fd4…137168 f01 = 0x0012 // 0x136fd6 @0x2
0x136fd4…137168 gno = [ // 0x136fd8 @0x4
0x136fd4…137168 [0x00]: C0x0049.0x3.0
0x136fd4…137168 [0x01]: C0x004a.0x0.0
0x136fd4…137168 [0x02]: C0x004a.0x1.0
0x136fd4…137168 [0x03]: C0x004a.0x2.0
0x136fd4…137168 [0x04]: C0x004a.0x3.0
0x136fd4…137168 [0x05]: C0x004b.0x0.0
0x136fd4…137168 [0x06]: C0x004b.0x1.0
0x136fd4…137168 [0x07]: C0x004b.0x2.0
0x136fd4…137168 [0x08]: C0x004b.0x3.0
0x136fd4…137168 ]
0x136fd4…137168 }
0x137168…1372fc Dummy {f00=0x0049, f01=0x0190, f02=» 0 P IDENT DNTRF TRANSFER L P DDUM DEMODD 8 L P PDIV L P ENTRY DNTRF
0x1372fc…137490 Dummy {f00=0x0049, f01=0x0190, f02=» j P P EXPROC PBBOOK . P P EXPROC PCVCH P EXPROC QENTRS P EXPROC QGATYP P P EXPRO
0x137490…137624 Dummy {f00=0x0049, f01=0x0190, f02=» l P P EXPROC ZHWRID 0 P EXPROC ZGREA L P************************************************************************ L P* PROCEDURE NAME:
0x137624…1377b8 Dummy {f00=0x0049, 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
0x1377b8…13794c Dummy {f00=0x0049, 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
0x13794c…137ae0 Dummy {f00=0x0049, f01=0x0190, f02=» BOTH TRANSACTION AND BOTH ACCOUNT-RECORDS ARE * L P* REWRITTEN TO THE DATABASE. * J L P* * L P* THE OPERATOR-
0x137ae0…137c74 (4, 206) Dummy {f00=0x004a, 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
0x137c74…137e08 Dummy {f00=0x004a, f01=0x0190, f02=» * L P* PROCEDURES USED: * J L P* * L P* PAJRN PR
0x137e08…137f9c Dummy {f00=0x004a, f01=0x0190, f02=» PCVCH PRINT VOUCHER * L P* XBFMT SCREEN-CONTROL * J . P* ZCRDD READ DATABASE L P* ZDRWRD WRITE DATABASE
0x137f9c…138130 Dummy {f00=0x004a, f01=0x0190, f02=»OR INSERT RECORD ON DATABASE * l L P* * , L P************************************************************************ | L PDNTRF PROC
0x138130…1382c4 Dummy {f00=0x004a, 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
0x1382c4…138458 Dummy {f00=0x004a, 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
0x138458…1385ec Dummy {f00=0x004a, 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*
0x1385ec…138780 Dummy {f00=0x004a, f01=0x0190, f02=» R L P* * L P* PRINT JOURNAL-ROLL * b L P* * L P MOVE
0x138780…138914 (4, 207) Dummy {f00=0x004a, 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'
0x138914…138aa8 Dummy {f00=0x004a, f01=0x0190, f02=» PERF PAJRN,=W'8' L PDN100 P L P* * L P* UPDATE ACCOUNT-RECOR
0x138aa8…138c3c Dummy {f00=0x004a, 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
0x138c3c…138dd0 Dummy {f00=0x004a, f01=0x0190, f02=»OVE ADLASSEQ,YDLASSEQ L PDN200 N L P* * L P* UPDATE ACCOUNT-RECORD(
0x138dd0…138f64 Dummy {f00=0x004a, f01=0x0190, f02=»DD BDBAL,TDAMOUNT , P PERF QENTRS,BDLASTRS UPDATE LAST TRANS. N L PDN210 ~ L P ADD BDDEPCUM,TDAMOUNT
0x138f64…1390f8 Dummy {f00=0x004a, f01=0x0190, f02=» n L P* * . L P* UPDATE TRANSACTION-RECORD(FROM) * ~ L P*
0x1390f8…13928c Dummy {f00=0x004a, f01=0x0190, f02=» n L P MOVE TDTRSSEQ,ADLASSEQ . L P MOVE TDNEWBAL,ADBAL ~ PDN400 P* & P* UPDATE TRANSACTION-RECORD(TO)
0x13928c…139420 Dummy {f00=0x004a, 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*
0x139420…1395b4 (4, 208) Dummy {f00=0x004a, 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
0x1395b4…139748 Dummy {f00=0x004a, f01=0x0190, f02=» P* PDN700 P CBG RDPRTTYP,=D'1',DN999 P TBT SBCHQACT,DN710 > < P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 READ ACCOUNT FOR PBBOOK Z P TBT SBCANCEL,DN999 P PERF PBBOOK P B DN999 PDN710 P PERF PCVCH,=W'2' L PDN999
0x139748…1398dc Dummy {f00=0x004a, f01=0x0190, f02=» R L P PEND L P************************************************************************ b L PSPAP19 PROC XWRET P PBIN
0x1398dc…139a70 Dummy {f00=0x004a, f01=0x0190, f02=» p P* P PERF ZGREA P* & 8 P* THE VALUES OF SPBINW2 AND SPINPUT ARE DESTROYED BY 0 < P* THE KI-INSTRUCTIONS IN PBBOOK OR DKDSTM, SO SAVE THEM l " P* SPBINW2 IS SAVED IN IWINDEX1 * P* SPINPUT IS ALREADY SAVED IN IDACTNR1 P*
0x139a70…139c04 Dummy {f00=0x004a, f01=0x0190, f02=»GE ? * x L P* * 8 L P CBL IDACTNR1,=D'168000',S19100 L P CBG IDACTNR1,=D'168999',S19100
0x139c04…139d98 Dummy {f00=0x004a, f01=0x0190, f02=» x L P MOVE XWRET,=W'1' 8 L P MOVE SPBINW4,=W'1' 'VALUE NOT IN RANGE' L P B S19999
0x139d98…139f2c Dummy {f00=0x004a, f01=0x0190, f02=»DACTNR1 T P MUL ADACTRNR,KDSHIFT H $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 T P TBT SBCANCEL,S19999
0x139f2c…13a0c0 Dummy {f00=0x004a, f01=0x0190, f02=»ACCOUNTRECORD NOT CLOSED ? * L P* * L L P CBE ADSTATUS,=D'2',S19950 L P CBE ADSTATUS,=D'3',S19950
0x13a0c0…13a254 (4, 209) Dummy {f00=0x004a, f01=0x0190, f02=» * L P* STATUS DEBLOCKED ? * L L P* * L P CBE ADSTATUS,=D'0',S19900
0x13a254…13a3e8 Dummy {f00=0x004a, f01=0x0190, f02=»E SPBINW4,=W'28' 'ACCOUNT BLOCKED' L P B S19999 L L PS19900 P PERF QGATYP,IDACTNR1 L
0x13a3e8…13a57c Dummy {f00=0x004a, f01=0x0190, f02=» * Z L P* * T P MOVE WDEC1,ADLASTRS j T P PERF QENTRS,WDEC1
0x13a57c…13a710 Dummy {f00=0x004a, f01=0x0190, f02=» * r L P* NO SPACE AVAILABLE FOR TRANSACTIONRECORDS * ! 2 L P* * ! T P CBE RDPRTTYP,=D'2',S19940 NO SUITABLE PRINTER
0x13a710…13a8a4 Dummy {f00=0x004a, f01=0x0190, f02=» * ! L P* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS * " B L P* * " P PERF PBBOOK " P B S19908 " P
0x13a8a4…13aa38 Dummy {f00=0x004a, f01=0x0190, f02=»OR DKDSTM " ^ . P* SO READ IT AGAIN TO GET EXCLUSIVE ACCESS # P* # D $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 # N P TBT SBCANCEL,S19999 # v T PS19910 # P CBL RDSCRLNS,=D'4',S19930 #
0x13aa38…13abcc Dummy {f00=0x004a, f01=0x0190, f02=» SBCHQACT,S19920 # L P* SAVINGS-ACCOUNT * $ P ERASE 2,KW2,KW5 $ h P B S19930 $ L P* CHEQUE-ACCOUNT * $ PS19920 $ P ERASE 2,KW2,KW3 $ P
0x13abcc…13ad60 Dummy {f00=0x004a, f01=0x0190, f02=» $ B 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' % T P MOVE XWRET,=W'1' % B T P B S19999 % PS19950 % . P MOVE SP
0x13ad60…13aef4 (4, 210) Dummy {f00=0x004b, f01=0x0190, f02=» % L P* & " P* RESTORE SPBINW2 AND SPINPUT & P* & < P MOVE SPBINW2,IWINDEX1 & F P MOVE SPINPUT,IDACTNR1 & d L P RET & L P PEND
0x13aef4…13b088 Dummy {f00=0x004b, f01=0x0190, f02=» & r P PBIN XWRET ' 2 L PS20000 ' F L P* * ' L P* ACCOUNTRECORD IN RANGE ?
0x13b088…13b21c Dummy {f00=0x004b, f01=0x0190, f02=»NR2,=D'168000',S20100 ' L P CBG IDACTNR2,=D'168999',S20100 ( F L P B S20200 ( L PS20100
0x13b21c…13b3b0 Dummy {f00=0x004b, f01=0x0190, f02=»NW4,=W'1' 'VALUE NOT IN RANGE' ( L P B S20999 ) F L PS20200 ) L P*
0x13b3b0…13b544 Dummy {f00=0x004b, f01=0x0190, f02=» * ) T P CBNE IDACTNR1,IDACTNR2,S20300 * F L P MOVE XWRET,=W'1' * L P MOVE SPBINW4,=W'36' 'SAME
0x13b544…13b6d8 Dummy {f00=0x004b, f01=0x018e, f02=»0300 * L P* * + N L P* READ ACCOUNT(TO)-RECORD VIA INDEXFILE-1 * + L P*
0x13b6d8…13b86c Dummy {f00=0x004b, f01=0x0190, f02=» + > T P MUL BDACTRNR,KDSHIFT , J P PERF ZCRDD,BDACTRNR,NDLRN2,KW1 , ` T P TBT SBCANCEL,S20999 , L P T
0x13b86c…13ba00 Dummy {f00=0x004b, f01=0x0190, f02=» , V L P* * - L P* ACCOUNT NOT CLOSED ? * - f L P* * - L P C
0x13ba00…13bb94 (4, 211) Dummy {f00=0x004b, f01=0x0190, f02=» - V L PS20600 . L P* * . f L P* STATUS DEBLOCKED ? * . L P*
0x13bb94…13bd28 Dummy {f00=0x004b, f01=0x0190, f02=» . V L P MOVE XWRET,=W'1' / L P MOVE SPBINW4,=W'28' 'ACCOUNT BLOCKED' / f L P B S20999 / T PS2
0x13bd28…13bebc Dummy {f00=0x004b, f01=0x0190, f02=» * / ^ L P* SPACE AVAILABLE FOR TRANSACTION-RECORDS? * 0 L P* * 0 n T P MOVE WDEC1,BDLASTRS
0x13bebc…13c050 Dummy {f00=0x004b, f01=0x0190, f02=»E AVAILABLE 0 n P MOVE XWRET,=W'1' 1 6 4 P MOVE SPBINW4,=W'56' 'NO TRANSACTIONS POSSIBLE' 1 P P B S20999 1 L PS20900 1 L P MOVE XWRET,=W'0' NO ERRORS OC
0x13c050…13c1e4 Dummy {f00=0x004b, f01=0x0190, f02=»E XWRET,=W'1' 1 L PS20999 2 L P RET 2 f L P PEND 2 L P**
0x13c1e4…13c378 Dummy {f00=0x004b, f01=0x0190, f02=» 2 V L PPRT004 FRMT 3 L P FTEXT '0+' 3 f L P FMEL '9',RDSHRPRT 3 L P F
0x13c378…13c50c Dummy {f00=0x004b, f01=0x0190, f02=» 3 V L P FTAB 7 4 L P FMEL 'ZZ.ZZZ.ZZ9,99-',TDAMOUNT 4 f L P FMEND 4 L PPR
0x13c50c…13c6a0 Dummy {f00=0x004b, f01=0x0190, f02=» 4 V L P FMEL '9',RDSHRPRT 5 L P FBF SBRVS,P08100 5 f L P FTAB 10 5 L P F
0x13c6a0…13c834 (4, 212) Dummy {f00=0x004b, f01=0x0190, f02=» 5 V L P FTAB 14 6 L P FMEL '999',TDTRSCDE 6 f L P FTAB 19 6 L P F
0x13c834…13c9c8 Dummy {f00=0x004b, f01=0x0190, f02=» 6 V L P************************************************************************ 7 L P* * 7 f L P* TRANSFER SCREEN * 7 L P*
0x13c9c8…13cb5c Dummy {f00=0x004b, f01=0x0190, f02=»************** 7 V L PFMT045 FRMT 8 L P FSL 8 f L P FTEXT 'TRANSFER FROM ACCOUNT : ' 8 L P F
0x13cb5c…13ccf0 Dummy {f00=0x004b, f01=0x0190, f02=» 8 V L P FMEL 'ZZZZZZ',ADATRNR 9 L P FB F04520 9 f L PF04510 9 L P F
0x13ccf0…13ce84 Dummy {f00=0x004b, f01=0x0190, f02=» 9 V L P FNL : L P FBT SBCHQACT,F04530 : f L P FTEXT 'BOOK BALANCE: ' : L P F
0x13ce84…13d018 Dummy {f00=0x004b, f01=0x0190, f02=» : V L P FTEXT ' LINE: ' ; L P FKI 35,MINL=1,MAXL=2,NUM,ME,APPL=11 ; f L P FMEL 'ZZ',IDNR1 ; L P F
0x13d018…13d1ac Dummy {f00=0x004b, f01=0x0190, f02=» ; V L P FTEXT 'CREDIT LIMIT : ' < L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK < f L PF04540 < L P F
0x13d1ac…13d340 Dummy {f00=0x004b, f01=0x0190, f02=» < V L P FKI 24,MINL=1,MAXL=11,NUM,ME,APPL=14 = L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT = f L P FNL = L P F
0x13d340…13d4d4 (4, 213) Dummy {f00=0x004b, f01=0x0190, f02=» = V L P FNL > L P FTEXT 'TRANSFER TO ACCOUNT : ' > f L P FKI 24,MINL=6,MAXL=6,NUM,ME,APPL=00 > L P F
0x13d4d4…13d668 Dummy {f00=0x004b, f01=0x406a, f02=» > V L P END ? @ ? fXT 'TRANSFER TO ACCOUNT : ' > f L P FKI 24,MINL=6,MAXL=6,NUM,ME,APPL=00 > L P F
0x13d668…13d7fc Dummy {f00=0x004b, 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
0x13d7fc…13d990 Dummy {f00=0x004b, 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
0x13d990…13db24 Dummy {f00=0x004b, 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
0x13db24…13dcb8 Dummy {f00=0x004b, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x13dcb8…13de4c Dummy {f00=0x004b, 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
0x13de4c…13dfe0 Dummy {f00=0x004b, 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*
0x13dfe0…13e174 (4, 214) Opaque[0x194]
0x13e174…13e308 # DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0980, f03=0x0000}
0x13e174…13e308 IdxSect {
0x13e174…13e308 f00 = 0x004c // 0x13e174 @0x0
0x13e174…13e308 f01 = 0x0002 // 0x13e176 @0x2
0x13e174…13e308 gno = [ // 0x13e178 @0x4
0x13e174…13e308 [0x00]: C0x004c.0x0.0
0x13e174…13e308 ]
0x13e174…13e308 }
0x13e308…13e49c Dummy {f00=0x004c, 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**********************************************************************
0x13e49c…13e630 Dummy {f00=0x004c, 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
0x13e630…13e7c4 Dummy {f00=0x004c, 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
0x13e7c4…13e958 Dummy {f00=0x004c, 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
0x13e958…13eaec Dummy {f00=0x004c, 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
0x13eaec…13ec80 Dummy {f00=0x004c, f01=0x0190, f02=»D NEXT RECORD L P* * L . P* 'NO DATA' IS OFF, CHECK FOR DISK-ERRORS L P*
0x13ec80…13ee14 (4, 215) Opaque[0x194]
0x13ee14…13efa8 # DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0988, f03=0x0000}
0x13ee14…13efa8 IdxSect {
0x13ee14…13efa8 f00 = 0x004c // 0x13ee14 @0x0
0x13ee14…13efa8 f01 = 0x000e // 0x13ee16 @0x2
0x13ee14…13efa8 gno = [ // 0x13ee18 @0x4
0x13ee14…13efa8 [0x00]: C0x004c.0x1.0
0x13ee14…13efa8 [0x01]: C0x004c.0x2.0
0x13ee14…13efa8 [0x02]: C0x004c.0x3.0
0x13ee14…13efa8 [0x03]: C0x004d.0x0.0
0x13ee14…13efa8 [0x04]: C0x004d.0x1.0
0x13ee14…13efa8 [0x05]: C0x004d.0x2.0
0x13ee14…13efa8 [0x06]: C0x004d.0x3.0
0x13ee14…13efa8 ]
0x13ee14…13efa8 }
0x13efa8…13f13c Dummy {f00=0x004c, f01=0x0190, f02=» 0 P IDENT DPECCY EXCHANGE CURRENCY L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x13f13c…13f2d0 Dummy {f00=0x004c, f01=0x0190, f02=» L P ENTRY DPECCY D L P ENTRY SPAP26 L P************************************
0x13f2d0…13f464 Dummy {f00=0x004c, f01=0x0190, f02=»E: DPECCY * L P* FUNCTIONAL DESCRIPTION: * D L P* EXCHANGE CURRENCY (BUYING OR SELLING) * L P* - IF THE FUNCTON-CHOISE INPUT
0x13f464…13f5f8 Dummy {f00=0x004c, f01=0x0190, f02=»ERWISE THE CURRENCY BUFFER HAS BEEN INITIALISED AND * L P* CCCCYCDE CONTAINS THE CURRENCY CODE FROM THE INPUT-FIELD. * D L P* - IN THE LAST CASE THE CURRENCY BUFFER IS FURTHER INITIALISED * L P* BY DISPLAYING THE CURRENCY
0x13f5f8…13f78c Dummy {f00=0x004c, f01=0x0190, f02=»E COUNTER VALUE OF THE AMOUNT QUOTED IS CALCULATED * L P* IN SPAP26). * D L P* - THE AMOUNT QUOTED AND THE AMOUNT CALCULATED ARE PRINTED * L P* AND THE OPERATOR BALANCES A
0x13f78c…13f920 Dummy {f00=0x004c, f01=0x0190, f02=»IX: INDEX IN THE FUNCTION KEYTABLE (SET IN BESELF) * L P* SBFLDEMP: INPUT-FIELD EMPTY ? (SET IN BESELF) * D L P* IDNR1: RATE 1 (BUYING OR SELLING) * L P* IDNR2: RATE 2 (BUYING O
0x13f920…13fab4 (4, 216) Dummy {f00=0x004c, f01=0x0190, f02=»1: AMOUNT QUOTED * L P* IDAMT2: AMOUNT CALCULATED (COUNTER VALUE OF IDAMT1) * D L P* ICTEXT1: CURRENCY CODE FOR IDAMT1 * L P* ICTEXT2: CURRENCY CODE FO
0x13fab4…13fc48 Dummy {f00=0x004c, f01=0x0190, f02=»************************************************************ L PDPECCY PROC D L PDP000 L P SET SBECCY
0x13fc48…13fddc Dummy {f00=0x004c, f01=0x0190, f02=» * L P* IF THE INPUT-FIELD CONTAINS A CURRENCY CODE THEN THE CURRENCY * D L P* UPDATE SCREEN MUST BE DISPLAYED TO CREATE A NON-STANDARD * L P* CURRENCY RECORD IN THE CURRENCY BU
0x13fddc…13ff70 Dummy {f00=0x004c, f01=0x018e, f02=»P,DP100 FIELD EMPTY L P PERF XBFMT,=W'15' CURRENCY UPDATE D L P TBT SBCANCEL,DP980 PDP100 L P CBE NWKTBIX,=W'9',DP2
0x13ff70…140104 Dummy {f00=0x004c, f01=0x0190, f02=» L P* 'OUT': CURRENCY SELLING * L P* * T L P MOVE TDTRSCDE,=D'91' L P MOVE IDNR1,CDSEL1 R
0x140104…140298 Dummy {f00=0x004c, f01=0x0190, f02=» L P B DP300 L P* * T L P* 'IN': CURRENCY BUYING * L P*
0x140298…14042c Dummy {f00=0x004c, f01=0x0190, f02=» R L P MOVE TDTRSCDE,=D'92' L P MOVE IDNR1,CDBUY1 RATE 1 b L P MOVE IDNR2,CDBUY2 RATE 2 L P*
0x14042c…1405c0 Dummy {f00=0x004c, f01=0x0190, f02=» * R L P* * L PDP300 b L P MOVE IDNR4,=D'1' INIT CONTINUATION FIELD L P MOVE
0x1405c0…140754 (4, 217) Dummy {f00=0x004c, f01=0x0190, f02=» R L P MOVE IDAMT2,=D'0' INIT COUNTER VALUE . P SET SBCCYKTB USE KTAB WITH CURRENCY KEYS b , P PERF XBFMT,=W'58' CURRENCY EXCH. SCREEN L P TBT SBCANCEL,DP980
0x140754…1408e8 Dummy {f00=0x004c, f01=0x0190, f02=» * d L P ADD YDLASSEQ,=D'1' $ L P MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. t L P*
0x1408e8…140a7c Dummy {f00=0x004c, f01=0x0190, f02=» * d L P MOVE ICTEXT3,ICTEXT1 CURRENCY CODE $ L P MOVE TDAMOUNT,IDAMT1 t L P PERF PAJRN,=W'4' AMOUNT QUOTED
0x140a7c…140c10 Dummy {f00=0x004c, f01=0x0190, f02=» d L P PERF PAJRN,=W'7' AMOUNT CALCULATED $ L P* * t L P* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOS
0x140c10…140da4 Dummy {f00=0x004c, f01=0x0190, f02=»TEM CURRENCY * d L P* AND IDAMT2 CONTAINS THE AMOUNT IN THE FOREIGN CURRENCY * $ L P* * t L P TBT SBEOI,DP700
0x140da4…140f38 Dummy {f00=0x004c, f01=0x0190, f02=» d L P MOVE IDAMT1,IDAMT2 $ L P MOVE IDAMT2,WDEC1 t L P*
0x140f38…1410cc Dummy {f00=0x004c, f01=0x0190, f02=» * d L PDP700 $ L P TBF SBFLDEMP,DP800 t L P TBT SBCCYIN,DP750
0x1410cc…141260 Dummy {f00=0x004c, f01=0x0190, f02=» * d L P* * $ L P ADD ODCASH(KW1,KW4),IDAMT1 CASH BALANCE t L P SUB ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N>
0x141260…1413f4 (4, 218) Dummy {f00=0x004d, f01=0x0190, f02=» & SOLD d L P B DP800 L P* * ` L P* 'IN': CURRENCY BUYING * L P*
0x1413f4…141588 Dummy {f00=0x004d, f01=0x0190, f02=» P L P SUB ODCASH(KW1,KW4),IDAMT1 CASH BALANCE L P ADD ODCASH(KW1,SWCCY),IDAMT2 BALANCE CURRENCY <N> ` L P ADD ODCASH(KW3,KW5),IDAMT1 ACCUM. CCY. BOUGHT - LOC. VAL. 8 P ADD ODC
0x141588…14171c Dummy {f00=0x004d, f01=0x0190, f02=»INT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE * L P* * L L PDP800 L P CBE RDPRTTYP,=D'2',DP999
0x14171c…1418b0 Dummy {f00=0x004d, f01=0x0190, f02=»0 L PDP999 L L P CLEAR SBECCY L P CLEAR SBCCYIN
0x1418b0…141a44 Dummy {f00=0x004d, f01=0x0190, f02=»D L P************************************************************************ L L P* * L P* PROCEDURE: SPAP26
0x141a44…141bd8 Dummy {f00=0x004d, f01=0x0190, f02=» XWRET: RETURN CODE FOR SPAPPL * L P* FUNCTIONAL DESCRIPTION: * L L P* CALCULATE CURRENCY EXCHANGE COUNTER VALUE (DPECCY (FMTO58)), * L P* DISPLAY THE COUNTER V
0x141bd8…141d6c Dummy {f00=0x004d, f01=0x0190, f02=» IF RATE 2 IS NOT ZERO AND THE VALUE OF THE EXCHANGE : P* IN THE SYSTEM CURRENCY IS LARGER THAN CDLIMIT, > 6 P* THEN RATE 2 MUST BE USED FOR THE EXCHANGE. | L P* USE OF VARIABLES: * L P*
0x141d6c…141f00 Dummy {f00=0x004d, f01=0x0190, f02=» * V L P* IDNR3: WILL CONTAIN THE RATE ACTUALLY USED * L P* IDAMT1: AMOUNT QUOTED * f L P* IDAMT2: WILL CONTAIN AMOUNT CALCULATED * L P*
0x141f00…142094 (4, 219) Dummy {f00=0x004d, f01=0x018e, f02=»IS CLOSED WITH V $ P* AN EOI OR NOT L P* * > L P************************************************************************ L PSPAP26 PROC XWRET
0x142094…142228 Dummy {f00=0x004d, f01=0x0190, f02=» L P MOVE IDNR3,IDNR1 INITIALISE AT RATE 1 P CLEAR SBEOI T P* h 8 P* KWSPCONT IS THE LAST NON APPLICATION FUNCTION KEY r 0 P* KEYS WITH A HIGHER INDEX ARE CURRENCY KEYS P* " P CBNG SPBINW2,KWSPCONT,S2640
0x142228…1423bc Dummy {f00=0x004d, f01=0x0190, f02=» * b L P* THEN THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY * " L P* * r < P* TO PREVENT EXIT FROM SCREEN MANAGEMENT, ADAPT SPBINW2 P*
0x1423bc…142550 Dummy {f00=0x004d, f01=0x0190, f02=»OVE ICTEXT2,YCCCY(KW4) SYSTEM CURRENCY L P* * ! N 4 P* COUNTER VALUE = IDAMT1 * 0.01 * RATE / CDRELAT ! L P* IF THE COUNTER VALUE USING RATE 1 IS LARGER T
0x142550…1426e4 Dummy {f00=0x004d, f01=0x0190, f02=» * ! v L P* START THE CALCULATION WITH RATE 1 * " 6 L P* * " L P MOVE IDAMT2,IDAMT1
0x1426e4…142878 Dummy {f00=0x004d, f01=0x018e, f02=» " v P DVR IDAMT2,=D'100' # 6 L P CBE IDNR2,=D'0',S26800 RATE 2 = 0 # R L P CBNG IDAMT2,CDLIMIT,S26800 VALUE =< CDLIMIT # L P* USE RATE 2 FOR THE E
0x142878…142a0c Dummy {f00=0x004d, f01=0x0190, f02=» L P MOVE IDAMT2,IDAMT1 $ L P MUL IDAMT2,IDNR2 $ T L P DVR IDAMT2,CDRELAT $ P DVR IDAMT2,=D'100'
0x142a0c…142ba0 Dummy {f00=0x004d, f01=0x0190, f02=» * $ ` L P* AMOUNT IS CLOSED WITH EOI, * % L P* THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY * % p L P* *
0x142ba0…142d34 (4, 220) Dummy {f00=0x004d, f01=0x0190, f02=» % ` L P MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY & L P MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY & p L P* *
0x142d34…142ec8 Dummy {f00=0x004d, f01=0x0190, f02=» * & J L P MOVE IDAMT2,IDAMT1 ' L P MUL IDAMT2,CDRELAT ' Z P MUL IDAMT2,=D'100' ' L P*
0x142ec8…14305c Dummy {f00=0x004d, f01=0x0190, f02=» * ' f L P* * ( & L P CBE IDNR2,=D'0',S26600 RATE 2 = 0 ( v L P CBNG IDAMT1,CDLIMIT,S26600 IDAMT1 =< CDLIMIT
0x14305c…1431f0 Dummy {f00=0x004d, f01=0x0190, f02=» ( f L P DVR IDAMT2,IDNR2 ) & L P B S26800 ) v L P* USE RATE 1
0x1431f0…143384 Dummy {f00=0x004d, f01=0x0190, f02=» ) f L P* * * & L P* REDISPLAY THE CURRENT LINE AND THE NEXT ONE * * v L P*
0x143384…143518 Dummy {f00=0x004d, f01=0x0190, f02=» * f L P DISPLAY 4,KW3,KW4 + & L PS26999 + v L P RET
0x143518…1436ac Dummy {f00=0x004d, f01=0x407a, f02=»****************************** + f L P END , &@ , v99 + v L P RET
0x1436ac…143840 Dummy {f00=0x004d, f01=0x2008, f02=» - x@ 8AR SBCCYIN 8 L P RET L P PEND
0x143840…1439d4 (4, 221) Dummy {f00=0x004d, f01=0x0190, f02=»12' ~ L P PERF PAJRN,=W'2' > : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY L P PERF PAJRN,=W'4'
0x1439d4…143b68 Dummy {f00=0x004d, f01=0x0190, f02=» l L PDN100 , L P* * | L P* UPDATE ACCOUNT-RECORD(FROM)
0x143b68…143cfc Dummy {f00=0x004d, f01=0x0190, f02=»ANSACTION l P* : P* TDAMOUNT CONTAINS AMOUNT KEYED IN BY THE OPERATOR P* Z P TBF SBRVS,DN110 d P MUL TDAMOUNT,=D'-1' | PDN110 P SUB ADBAL,TDAMOUNT P L P ADD ADWDRCUM,TDAMOUNT
0x143cfc…143e90 Dummy {f00=0x004d, f01=0x0190, f02=» j L PDN200 * L P* * z L P* UPDATE ACCOUNT-RECORD(TO)
0x143e90…144024 Dummy {f00=0x004d, f01=0x0190, f02=» j , P PERF QENTRS,BDLASTRS UPDATE LAST TRANS. * L PDN210 Z L P ADD BDDEPCUM,TDAMOUNT L P MOVE BDLASSEQ
0x144024…1441b8 Dummy {f00=0x004d, f01=0x0190, f02=» J L P* * L P* UPDATE TRANSACTION-RECORD(FROM) * Z L P* * L P MOVE TDTRSRNR
0x1441b8…14434c Dummy {f00=0x004d, f01=0x0190, f02=» J L P MOVE TDTRSSEQ,ADLASSEQ L P MOVE TDNEWBAL,ADBAL Z PDN400 P* & P* UPDATE TRANSACTION-RECORD(TO) P* P MOVE UDTRSRNR,BDA
0x14434c…1444e0 Dummy {f00=0x004d, f01=0x0190, f02=» MOVE UDACTFRM,IDACTNR1 PDN500 L P* * . L P* (RE)WRITE ACCOUNT- AND TRANSACTIONRECORDS * ~ L P*
0x1444e0…144674 (4, 222) Opaque[0x194]
0x144674…144808 # DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09c0, f03=0x0000}
0x144674…144808 IdxSect {
0x144674…144808 f00 = 0x004e // 0x144674 @0x0
0x144674…144808 f01 = 0x0004 // 0x144676 @0x2
0x144674…144808 gno = [ // 0x144678 @0x4
0x144674…144808 [0x00]: C0x004e.0x0.0
0x144674…144808 [0x01]: C0x004e.0x1.0
0x144674…144808 ]
0x144674…144808 }
0x144808…14499c Dummy {f00=0x004e, 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
0x14499c…144b30 Dummy {f00=0x004e, f01=0x0190, f02=»********************************** j P* * P* CLOSE OPERATOR 4 P* L L P************************************************************************ V L PDQCOPR PROC P CLEAR SBOPRCLS
0x144b30…144cc4 Dummy {f00=0x004e, 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
0x144cc4…144e58 Dummy {f00=0x004e, 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
0x144e58…144fec Dummy {f00=0x004e, f01=0x018e, f02=» * L P* PRINT CURRENCY CODES AND OPERATOR BALANCES * J L P* * L P******************************
0x144fec…145180 Dummy {f00=0x004e, f01=0x0190, f02=» T P MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE T P PERF PAJRN,=W'7' L P* * T P MOV
0x145180…145314 (4, 223) Dummy {f00=0x004e, f01=0x0190, f02=»1 T P PERF PAJRN,=W'7' $ L P* * | T P MOVE ICTEXT3,YCCCY(KW2) CURRENCY CODE 2
0x145314…1454a8 Dummy {f00=0x004e, f01=0x0190, f02=» | L P* * D T P MOVE ICTEXT3,YCCCY(KW3) CURRENCY CODE 3 T P MOVE TDAMOUNT,ODCASH(KW1,KW
0x1454a8…14563c Dummy {f00=0x004e, 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
0x14563c…1457d0 Dummy {f00=0x004e, f01=0x4148, f02=» L P RET L P PEND T L P************************************************************************ L P END
0x1457d0…145964 Dummy {f00=0x004e, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x145964…145af8 Dummy {f00=0x004e, 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
0x145af8…145c8c Dummy {f00=0x004e, 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
0x145c8c…145e20 Dummy {f00=0x004e, 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
0x145e20…145fb4 (4, 224) Opaque[0x194]
0x145fb4…146148 # DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d0, f03=0x0000}
0x145fb4…146148 IdxSect {
0x145fb4…146148 f00 = 0x004e // 0x145fb4 @0x0
0x145fb4…146148 f01 = 0x0002 // 0x145fb6 @0x2
0x145fb4…146148 gno = [ // 0x145fb8 @0x4
0x145fb4…146148 [0x00]: C0x004e.0x2.0
0x145fb4…146148 ]
0x145fb4…146148 }
0x146148…1462dc Dummy {f00=0x004e, f01=0x0190, f02=» > P IDENT ZFMTIO FORMAT I/O CONTROL DDUM DEMODD F PDIV Z P EXPROC XAKBIN h ENTRY ZKOPNF ~ ENTRY ZLCLSF PZKOPNF PROC PZK000 P MOVE FCPARAM1,=X'0' P MOVE WW1,=W'16' P MOVE WW
0x1462dc…146470 Dummy {f00=0x004e, f01=0x018e, 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 EDWRT SPDSSCRN,ERROPF PZK
0x146470…146604 Dummy {f00=0x004e, f01=0x415a, f02=» P RET P PEND P* P* ( PERROPF FRMT 2 P FCOPY =X'2031' F * P FTEXT 'FORMATFILE OPEN UNSUCCESSFULL' ^ P FMEND P* P* PZLCLSF PROC PZL000 P CLOSE DSFMTFLE PZL999 P RET P PEND
0x146604…146798 Dummy {f00=0x004e, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x146798…14692c Dummy {f00=0x004e, f01=0x0190, f02=»ZZ9,99- " e ZZZZZZZZZ,ZZ " e < ZZZZZZZZZ,ZZ- L " e j 99E:99 z " e ZZE:ZZ " e ZZVZZ9,99, " e ! ZZVZZZ,ZZ,
0x14692c…146ac0 Dummy {f00=0x004e, f01=0x40d6, f02=» $e % ZZZVZZZVZZ9,99 " %e * & ZZZVZZZVZZZ,ZZ : " &e X ' F*ZVZZZVZZ9,99-N h " 'e ( @24 0X 4 1X FFT M @ 9, " e ! ZZVZZZ,ZZ,
0x146ac0…146c54 (4, 225) Opaque[0x194]
0x146c54…146de8 # DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09d8, f03=0x0000}
0x146c54…146de8 IdxSect {
0x146c54…146de8 f00 = 0x004e // 0x146c54 @0x0
0x146c54…146de8 f01 = 0x000a // 0x146c56 @0x2
0x146c54…146de8 gno = [ // 0x146c58 @0x4
0x146c54…146de8 [0x00]: C0x004e.0x3.0
0x146c54…146de8 [0x01]: C0x004f.0x0.0
0x146c54…146de8 [0x02]: C0x004f.0x1.0
0x146c54…146de8 [0x03]: C0x004f.0x2.0
0x146c54…146de8 [0x04]: C0x004f.0x3.0
0x146c54…146de8 ]
0x146c54…146de8 }
0x146de8…146f7c Dummy {f00=0x004e, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x146f7c…147110 Dummy {f00=0x004e, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x147110…1472a4 Dummy {f00=0x004e, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x1472a4…147438 Dummy {f00=0x004e, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x147438…1475cc Dummy {f00=0x004e, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x1475cc…147760 Dummy {f00=0x004e, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x147760…1478f4 (4, 226) Dummy {f00=0x004f, 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
0x1478f4…147a88 Dummy {f00=0x004f, 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
0x147a88…147c1c Dummy {f00=0x004f, f01=0x0190, f02=» X PCG110 L P B CG990 & L P* * v L P* ALL UWB'S ARE NOT USED
0x147c1c…147db0 Dummy {f00=0x004f, 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*
0x147db0…147f44 Dummy {f00=0x004f, f01=0x0190, f02=» L P* * L P SET SBCSYS T L P PERF PAJRN,=W'1' P* F P* START SE
0x147f44…1480d8 Dummy {f00=0x004f, 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
0x1480d8…14826c Dummy {f00=0x004f, 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
0x14826c…148400 Dummy {f00=0x004f, 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
0x148400…148594 (4, 227) Dummy {f00=0x004f, 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
0x148594…148728 Dummy {f00=0x004f, 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,=
0x148728…1488bc Dummy {f00=0x004f, 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
0x1488bc…148a50 Dummy {f00=0x004f, 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
0x148a50…148be4 Dummy {f00=0x004f, 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
0x148be4…148d78 Dummy {f00=0x004f, 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)
0x148d78…148f0c Dummy {f00=0x004f, 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
0x148f0c…1490a0 Dummy {f00=0x004f, 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*
0x1490a0…149234 (4, 228) Dummy {f00=0x004f, f01=0x0190, f02=» L P* * T PCG350 T T P MOVE ODCASH(KW1,KW1),IDNR1 T P MOV
0x149234…1493c8 Dummy {f00=0x004f, f01=0x0190, f02=» T P MOVE ODCASH(KW1,KW4),IDNR4 $ T P MOVE ODCASH(KW2,KW1),IDACTNR1 | T P MOVE ODCASH(KW3,KW1),IDACTNR2
0x1493c8…14955c Dummy {f00=0x004f, f01=0x0190, f02=»(KW3,KW3),IDAMT2 L P* * L L P* DISPLAY OPERATOR CLOSE SCREENS * L P*
0x14955c…1496f0 Dummy {f00=0x004f, f01=0x0190, f02=» T P PERF XBFMT,=W'60' PCG390 T P TBT SBCANCEL,CG980 j L PCG500
0x1496f0…149884 Dummy {f00=0x004f, f01=0x0190, f02=» b & P MOVE YDSTATUS,=D'3' SYSTEM CLOSED " L P* * L L P* WRITE THE SYSTEM RECORD * L P*
0x149884…149a18 Dummy {f00=0x004f, 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
0x149a18…149bac Dummy {f00=0x004f, f01=0x0190, f02=»* CANCEL EXIT, RESTORE STATUS * L P* * P L PCG980 L P MOVE YDSTATUS,=D'2' SYS
0x149bac…149d40 Dummy {f00=0x004f, 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
0x149d40…149ed4 (4, 229) Dummy {f00=0x004f, f01=0x4086, f02=»****************************************** r L P END 2@
0x149ed4…14a068 Dummy {f00=0x004f, f01=0x2008, f02=» IDENT CGCSYS CLOSE SYSTEM @ D
0x14a068…14a1fc Dummy {f00=0x004f, 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
0x14a1fc…14a390 Dummy {f00=0x004f, 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
0x14a390…14a524 Dummy {f00=0x004f, 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,
0x14a524…14a6b8 Dummy {f00=0x004f, 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
0x14a6b8…14a84c Dummy {f00=0x004f, 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
0x14a84c…14a9e0 Dummy {f00=0x004f, 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
0x14a9e0…14ab74 (4, 230) Opaque[0x194]
0x14ab74…14ad08 # DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a00, f03=0x0000}
0x14ab74…14ad08 IdxSect {
0x14ab74…14ad08 f00 = 0x0050 // 0x14ab74 @0x0
0x14ab74…14ad08 f01 = 0x0004 // 0x14ab76 @0x2
0x14ab74…14ad08 gno = [ // 0x14ab78 @0x4
0x14ab74…14ad08 [0x00]: C0x0050.0x0.0
0x14ab74…14ad08 [0x01]: C0x0050.0x1.0
0x14ab74…14ad08 ]
0x14ab74…14ad08 }
0x14ad08…14ae9c Dummy {f00=0x0050, f01=0x0190, f02=» PASG /2,NO J PTRA AADEMO,NL J PTRA BASPCT,NL d J PTRA BCSTTO,NL J PTRA BESE
0x14ae9c…14b030 Dummy {f00=0x0050, f01=0x0190, f02=» d J PTRA CEGACT,NL " PKPF /O p PSCR ~ J PTRA CFCHKH,NL J PTRA CGCSYS,NL
0x14b030…14b1c4 Dummy {f00=0x0050, f01=0x0190, f02=» R J PTRA DDTP71,NL J PTRA DELACT,NL ^ PKPF /O PSCR J PTRA DFOACT,NL
0x14b1c4…14b358 Dummy {f00=0x0050, f01=0x0190, f02=» b J PTRA DIQACT,NL J PTRA DJUACT,NL n PTRA DKDSTM,NL PKPF /O PSCR J PTRA DLDEP,NL
0x14b358…14b4ec Dummy {f00=0x0050, f01=0x0190, f02=»F,NL J PTRA DOQCCY,NL F J PTRA DPECCY,NL J PTRA DQCOPR,NL
0x14b4ec…14b680 Dummy {f00=0x0050, 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
0x14b680…14b814 (4, 231) Dummy {f00=0x0050, f01=0x018a, f02=» H J PTRA XOPINP,NL PKPF /O V PSCR d J PTRA ZDSCIO,NL p J PTRA ZFMTIO,NL
0x14b814…14b9a8 Dummy {f00=0x0050, f01=0x2008, f02=» TRA XOPINP,NL PKPF /O V PSCR d J PTRA ZDSCIO,NL p J PTRA ZFMTIO,NL
0x14b9a8…14bb3c Dummy {f00=0x0050, f01=0x8190, f02=» p v0 w , x < y L 0 ^ J F " D @ 2R I2+ L ,L , l# RL ` `L l#` `RL `L W 6LRRL@`4 %e r 0 0 0
0x14bb3c…14bcd0 Dummy {f00=0x0050, f01=0xc18a, f02=» e R I2(H ! L ! L %7L 0X W CLW CLW CL LW L4 0 B 0 T f x 0 0 0
0x14bcd0…14be64 Dummy {f00=0x0050, f01=0x8190, f02=» > F IDENT BESELF TRA 3.2 16-07-79 O112 SELECT FUNCTION BESELF F BESELFS X D @ CDCHKY CEGACT CFCHKH DAUCCY DCVDU DDTP71 DELACT: DFOACT l @ < DGCACTS DHBACTA DIQACT6 DJUACTO DKDSTM DLDEP DMWDR DNTRF B > DOQCCY DPECC
0x14be64…14bff8 Dummy {f00=0x0050, f01=0x818e, f02=» 0 . . > # P ' b + t - 2 . 4 J F " D RR@V@2@Q SL@R@S@T@U _LRLRL RA R ! RL %RL-!@L RL _2 AL6A _
0x14bff8…14c18c Dummy {f00=0x0050, f01=0x8190, f02=» J F " D @) SA_.AQ_2AR_6AS_:AT_>b_ @K #@L AURI2 RI2 !RL+!RL'!RL#!SL IU R s 0 R 4 d t & "
0x14c18c…14c320 Dummy {f00=0x0050, f01=0xc18c, f02=» 0 @ P ` p , 0 0
0x14c320…14c4b4 (4, 232) Opaque[0x194]
0x14c4b4…14c648 # DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b20, f03=0x0000}
0x14c4b4…14c648 IdxSect {
0x14c4b4…14c648 f00 = 0x0059 // 0x14c4b4 @0x0
0x14c4b4…14c648 f01 = 0x0004 // 0x14c4b6 @0x2
0x14c4b4…14c648 gno = [ // 0x14c4b8 @0x4
0x14c4b4…14c648 [0x00]: C0x0059.0x0.0
0x14c4b4…14c648 [0x01]: C0x0059.0x1.0
0x14c4b4…14c648 ]
0x14c4b4…14c648 }
0x14c648…14c7dc Dummy {f00=0x0059, f01=0x018e, f02=» H PTRA AADEMO H PTRA BASPCT P H PTRA BCSTTO H PTRA BESELF
0x14c7dc…14c970 Dummy {f00=0x0059, f01=0x0190, f02=» H PTRA CEGACT H PTRA CFCHKH P H PTRA CGCSYS PTRA DAUCCY PTRA DBUOPR
0x14c970…14cb04 Dummy {f00=0x0059, f01=0x0190, f02=» | PTRA DGCACT 8 H PTRA DHBACT J PTRA DIQACT H PTRA DJUACT PTRA DKDSTM H PTR
0x14cb04…14cc98 Dummy {f00=0x0059, f01=0x0190, f02=» R PTRA DNTRF PTRA DOQCCY PTRA DPECCY 2 H PTRA DQCOPR D H PTRA EINIT PTRA PBBOOK H PTRA PRINT
0x14cc98…14ce2c Dummy {f00=0x0059, f01=0x018e, f02=» L PTRA DEMSCR H PTRA SPACHQ PTRA XBFMT f PTRA XMESG x PTRA XOPINP H PTRA ZDSCIO H PTRA ZFMTIO
0x14ce2c…14cfc0 Dummy {f00=0x0059, f01=0x0038, f02=» PASM QEMOVE PASM DEFDOC PASG /E0,TY10 ( PTRA XBFMT f PTRA XMESG x PTRA XOPINP H PTRA ZDSCIO H PTRA ZFMTIO
0x14cfc0…14d154 (4, 233) Dummy {f00=0x0059, f01=0x2008, f02=»
0x14d154…14d2e8 Dummy {f00=0x0059, f01=0x0190, f02=» 0 . . @ P ' b + t / 2 2 3 9 J F " D R R@V@2@Q SL@R@S@T@U _L RL RL RA R % RL %RL.!@L RL _
0x14d2e8…14d47c Dummy {f00=0x0059, f01=0x0190, f02=» J F " D @ _+ SA_0AQ_4AR_8AS_<AT_@b_ @K #@L AU RI2 RI2 !RL.!RL*!RL&!SL ( R 0 b 4 t & "
0x14d47c…14d610 Dummy {f00=0x0059, f01=0x0190, f02=» 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x14d610…14d7a4 Dummy {f00=0x0059, f01=0x4028, f02=» ) L ?R4 v @ $ 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x14d7a4…14d938 Dummy {f00=0x0059, f01=0x0190, f02=» < H IDENT CASTTS TRA 10.0 80-11-17 F1 O1111 SYSTEM START CASTTS CBSTTS SPAP32 D $$$TRAS f $ CASTTS CBSTTSS . SPAP32 x @ < DAUCCYS DBUOPRA EHISYS0 FMOVE QIRDBS1 T:SETTE XBFMT XEERR : 6 ZAOPND ZBCLSDT ZCRDD ZGREA ZHWRI
0x14d938…14dacc Dummy {f00=0x0059, f01=0x0190, f02=» ( 8 # J ( Z +0 j ( | & ( $ &" FORMAT FILE VOLUME NAME ? DSC & M & ( E &
0x14dacc…14dc60 Dummy {f00=0x0059, f01=0x0190, f02=» DSC r & & ( . 00 : 5 L @ J F " D "L L0R^F RLI2 RI2 0R^F RLI2 1% RH2 R "L4 L R I2`I l B I N V0 Z0
0x14dc60…14ddf4 (4, 234) Opaque[0x194]
0x14ddf4…14df88 # DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a20, f03=0x0000}
0x14ddf4…14df88 IdxSect {
0x14ddf4…14df88 f00 = 0x0051 // 0x14ddf4 @0x0
0x14ddf4…14df88 f01 = 0x000c // 0x14ddf6 @0x2
0x14ddf4…14df88 gno = [ // 0x14ddf8 @0x4
0x14ddf4…14df88 [0x00]: C0x0051.0x0.0
0x14ddf4…14df88 [0x01]: C0x0051.0x1.0
0x14ddf4…14df88 [0x02]: C0x0051.0x2.0
0x14ddf4…14df88 [0x03]: C0x0051.0x3.0
0x14ddf4…14df88 [0x04]: C0x0052.0x0.0
0x14ddf4…14df88 [0x05]: C0x0052.0x1.0
0x14ddf4…14df88 ]
0x14ddf4…14df88 }
0x14df88…14e11c Dummy {f00=0x0051, f01=0x0190, f02=» * P IDENT XBFMT SCREEN-CONTROL L P DDUM DEMODD 2 L P PDIV L P ENTRY XBFMT
0x14e11c…14e2b0 Dummy {f00=0x0051, f01=0x0190, f02=»ROC ZMRDF P EXPROC XCLAMP P P EXPROC XEERR f L P************************************************************************ | L P*
0x14e2b0…14e444 Dummy {f00=0x0051, 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
0x14e444…14e5d8 Dummy {f00=0x0051, 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*
0x14e5d8…14e76c Dummy {f00=0x0051, f01=0x0190, f02=» * P L P* FOR AN AD85 SCREEN : FKI 37 * L P* FCOPY DUMMY * ` L P* FOR OTHER SCREENS : FNL * L P*
0x14e76c…14e900 Dummy {f00=0x0051, 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*
0x14e900…14ea94 (4, 235) Dummy {f00=0x0051, 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*
0x14ea94…14ec28 Dummy {f00=0x0051, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x14ec28…14edbc Dummy {f00=0x0051, 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*
0x14edbc…14ef50 Dummy {f00=0x0051, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x14ef50…14f0e4 Dummy {f00=0x0051, 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
0x14f0e4…14f278 Dummy {f00=0x0051, 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
0x14f278…14f40c Dummy {f00=0x0051, 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
0x14f40c…14f5a0 Dummy {f00=0x0051, 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
0x14f5a0…14f734 (4, 236) Dummy {f00=0x0051, 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
0x14f734…14f8c8 Dummy {f00=0x0051, 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
0x14f8c8…14fa5c Dummy {f00=0x0051, 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
0x14fa5c…14fbf0 Dummy {f00=0x0051, 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
0x14fbf0…14fd84 Dummy {f00=0x0051, 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
0x14fd84…14ff18 Dummy {f00=0x0051, 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
0x14ff18…1500ac Dummy {f00=0x0051, 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************************************************************************
0x1500ac…150240 Dummy {f00=0x0051, 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*
0x150240…1503d4 (4, 237) Dummy {f00=0x0051, 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
0x1503d4…150568 Dummy {f00=0x0051, 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
0x150568…1506fc Dummy {f00=0x0051, f01=0x0190, f02=» * L P************************************************************************ @ PSQSCRN PROC T PSQ000 T P TBF SB34KB,
0x1506fc…150890 Dummy {f00=0x0051, f01=0x0190, f02=» T L P* * L P* USE KEYTABLES-2 * l L P* *
0x150890…150a24 Dummy {f00=0x0051, f01=0x0190, f02=» * d T P PERF SPCLRS,SPKTAB2,SPKTAB2,SPEDIT2 $ T P B SQ999 | L P* USE THE CURRENCY KEYTABLE
0x150a24…150bb8 Dummy {f00=0x0051, f01=0x0190, f02=»A,SPKTAB2A,SPEDIT2 | T P B SQ999 D L P* * L P* USE KEYTABLES-1
0x150bb8…150d4c Dummy {f00=0x0051, f01=0x0190, f02=»0 T P TBT SBCCYKTB,SQ600 T L P* USE THE NORMAL SCREEN MANAGEMENT KEYTABLE * T P PERF SPCLRS
0x150d4c…150ee0 Dummy {f00=0x0051, f01=0x0190, f02=» T L P* USE THE CURRENCY KEYTABLE * T PSQ600 l T P PERF SPCLRS,SPKTAB1A,SPKTAB1A,SPEDIT1
0x150ee0…151074 (4, 238) Dummy {f00=0x0052, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x151074…151208 Dummy {f00=0x0052, f01=0x0190, f02=»REEN MANAGEMENT KEYTABLES * L P* * L L P************************************************************************ 2 PSPKTAB1 KTAB X'98',X'A3',X'F
0x151208…15139c Dummy {f00=0x0052, f01=0x0190, f02=»FF',X'FF', C z T P X'FF' B L P* * T PSPKTAB2 KTAB X'D8',X'E3',X'FF'
0x15139c…151530 Dummy {f00=0x0052, 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
0x151530…1516c4 Dummy {f00=0x0052, f01=0x0190, f02=» ! ^ T P X'94' " & L P* * " ~ T PSPKTAB2A KTAB X'D8',X'E3',X'FF',X'D0',X'E2', C
0x1516c4…151858 Dummy {f00=0x0052, 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',
0x151858…1519ec Dummy {f00=0x0052, 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******************************************************************
0x1519ec…151b80 Dummy {f00=0x0052, f01=0x2008, f02=» %
0x151b80…151d14 (4, 239) Dummy {f00=0x0052, 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
0x151d14…151ea8 Dummy {f00=0x0052, 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
0x151ea8…15203c Dummy {f00=0x0052, 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
0x15203c…1521d0 Dummy {f00=0x0052, 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
0x1521d0…152364 Dummy {f00=0x0052, 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
0x152364…1524f8 Dummy {f00=0x0052, 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,
0x1524f8…15268c Dummy {f00=0x0052, 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 % [ ( !!
0x15268c…152820 Dummy {f00=0x0052, 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!
0x152820…1529b4 (4, 240) Opaque[0x194]
0x1529b4…152b48 # DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x1529b4…152b48 IdxSect {
0x1529b4…152b48 f00 = 0x0052 // 0x1529b4 @0x0
0x1529b4…152b48 f01 = 0x0008 // 0x1529b6 @0x2
0x1529b4…152b48 gno = [ // 0x1529b8 @0x4
0x1529b4…152b48 [0x00]: C0x0052.0x2.0
0x1529b4…152b48 [0x01]: C0x0052.0x3.0
0x1529b4…152b48 [0x02]: C0x0053.0x0.0
0x1529b4…152b48 [0x03]: C0x0053.0x1.0
0x1529b4…152b48 ]
0x1529b4…152b48 }
0x152b48…152cdc Dummy {f00=0x0052, 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*
0x152cdc…152e70 Dummy {f00=0x0052, 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
0x152e70…153004 Dummy {f00=0x0052, 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
0x153004…153198 Dummy {f00=0x0052, 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
0x153198…15332c Dummy {f00=0x0052, 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
0x15332c…1534c0 Dummy {f00=0x0052, 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 :
0x1534c0…153654 (4, 241) Dummy {f00=0x0052, 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
0x153654…1537e8 Dummy {f00=0x0052, 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
0x1537e8…15397c Dummy {f00=0x0052, 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
0x15397c…153b10 Dummy {f00=0x0052, f01=0x018e, f02=» $ P MOVE WDEC1,WWCOUNT RECNR TO BCD * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 , P XSTAT DSFMTFLE,WWINDEX1 Z P CALL MASK,WWINDEX1,WWINDEX2 z L P BOK ZM200 N P MOVE WDEC1,XWFMTNR
0x153b10…153ca4 Dummy {f00=0x0052, f01=0x0190, f02=» Z * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 P XSTAT DSFMTFLE,WWINDEX1 6 P CALL MASK,WWINDEX1,WWINDEX2 V L P BNOK ZM900 z L P
0x153ca4…153e38 Dummy {f00=0x0052, f01=0x0190, f02=» j L P SUB WW2,KW2 * L P XCOPY FCFORMAT,KW0,WW2,FCFMTBUF,KW0 z P CBE WWCOUNT,KW1,ZM999 J P* ( FIRST FORMAT-RECORD CONTA
0x153e38…153fcc Dummy {f00=0x0052, f01=0x0190, f02=»WCOUNT,KW0,ZM999 CHECK IF FORMAT IS CONTAINED L P* IN A SINGLE RECORD * N P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,WWCOUNT RECNR TO BCD * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDE
0x153fcc…154160 Dummy {f00=0x0052, f01=0x018e, f02=» V P MOVE WW2,KWFMTLNG P SUB WW2,KW2 0 L P XCOPY FCFORMAT,WW2,WW2,FCFMTBUF,KW0 D ( P XCOPY WWCOUNT,KW0,KW2,FCFMTBUF,WW2 P CBE WWCOUNT,KW0,ZM999 P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,
0x154160…1542f4 (4, 242) Dummy {f00=0x0053, f01=0x0190, f02=» r L P BNOK ZM900 P MOVE WW2,KWFMTLNG X P SUB WW2,KW2 r P MOVE SPBINW1,WW2 P ADD SPBINW1,WW2 , P XCOPY FCFORMAT,SPBINW1,WW2,FCFMTBUF,KW0 L P B ZM999
0x1542f4…154488 Dummy {f00=0x0053, f01=0x0190, f02=» L P* READ MESSAGE-FORMAT * H N P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,WWCOUNT RECNR TO B
0x154488…15461c Dummy {f00=0x0053, f01=0x0190, f02=» P MOVE WDEC1,XWFMTNR D P MOVE WW2,KWFMTLNG ` * P READ .DIR,DSFMTFLE,FCBUFFER,WW2,WDEC1 z P XSTAT DSFMTFLE,WWINDEX1 P CALL MASK,WWINDEX1,WWINDEX2 P BNOK ZM900 PZM600
0x15461c…1547b0 Dummy {f00=0x0053, f01=0x0190, f02=»OUNT,KW0,ZM999 P MOVE WW2,KWFMTLNG P MOVE WDEC1,WWCOUNT 0 * P READ .DIR,DSFMTFLE,FCFMTBUF,WW2,WDEC1 L P BNOK ZM900 z P MOVE WW2,KWFMTLNG P SUB WW2,KW2 P MOVE WWCOUNT,=W'146' , P XCOPY FCBUFFER,WW2,WWCOUNT,FCFMTBUF,KW0
0x1547b0…154944 Dummy {f00=0x0053, f01=0x0190, f02=» j L P EDWRT SPDSSCRN,FMTA WRITE ERROR-MESSAGE * P SET SBCANCEL ABEND z L P L PZM999
0x154944…154ad8 Dummy {f00=0x0053, f01=0x018e, f02=» L P F L PFMTA FRMT P FSL L P FTEXT 'FAILURE ON FOR
0x154ad8…154c6c Dummy {f00=0x0053, f01=0x408e, f02=» & P FTEXT 'FUNCTION ABENDED BY ZMRDF' L P FMEND . P END ~@ F L PFMTA FRMT P FSL L P FTEXT 'FAILURE ON FOR
0x154c6c…154e00 Dummy {f00=0x0053, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x154e00…154f94 (4, 243) Dummy {f00=0x0053, f01=0x0190, f02=»0A Z:TSP0A D:UBF00 U:UBF0F D:UIF0 U:UIF0C D:UCY0R U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D:UA20 U:UA20 D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DA00 800813 T:DA00D AAMAIN * ZDSC
0x154f94…155128 Dummy {f00=0x0053, f01=0x4060, f02=»LOSZ T:COMMZ T:EDWR T:IREA T:IREWA T:IWRI T:OPEN T:RSTAN T:XSTAE XAKBINZ XEERR A20 U:UA20 D:UT10A U:UT10A D:UT200 U:UT20F D:CK10 C:CK10C D:CK20R C:CK20 D:UQQ0 U:UQQ0 E X 6T:DA00 800813 T:DA00D AAMAIN * IZDSC
0x155128…1552bc Dummy {f00=0x0053, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x1552bc…155450 Dummy {f00=0x0053, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x155450…1555e4 Dummy {f00=0x0053, 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 >
0x1555e4…155778 Dummy {f00=0x0053, f01=0x0190, f02=» h 5 N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3
0x155778…15590c Dummy {f00=0x0053, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x15590c…155aa0 Dummy {f00=0x0053, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x155aa0…155c34 (4, 244) Opaque[0x194]
0x155c34…155dc8 # DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0548, f03=0x0000}
0x155c34…155dc8 IdxSect {
0x155c34…155dc8 f00 = 0x002a // 0x155c34 @0x0
0x155c34…155dc8 f01 = 0x0006 // 0x155c36 @0x2
0x155c34…155dc8 gno = [ // 0x155c38 @0x4
0x155c34…155dc8 [0x00]: C0x002a.0x1.0
0x155c34…155dc8 [0x01]: C0x002a.0x2.0
0x155c34…155dc8 [0x02]: C0x002a.0x3.0
0x155c34…155dc8 ]
0x155c34…155dc8 }
0x155dc8…155f5c Dummy {f00=0x002a, f01=0x0190, f02=» 8 P IDENT CASTTS SYSTEM START P DDUM DEMODDIV @ P 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
0x155f5c…1560f0 Dummy {f00=0x002a, 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************************************************************
0x1560f0…156284 Dummy {f00=0x002a, 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
0x156284…156418 Dummy {f00=0x002a, 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 ~ P* PCA900 4 P MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED PCA999 P RET P PEND J P**
0x156418…1565ac Dummy {f00=0x002a, f01=0x0190, f02=»******************************************************************* PFMTVOL FRMT L P FSL b 6 P FTEXT 'FORMAT FILE VOLUME NAME ? DSC' v . P FKI 31,MINL=1,MAXL=3,NUM,NEOI P FCOPY VCVOLNR2 P
0x1565ac…156740 Dummy {f00=0x002a, f01=0x0190, f02=»LUME NUMBERS t P* L P************************************************************************ PFMTSYS FRMT n P FSL P FTEXT 'SYSTEM LANGUAGE ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=5 P FMEL '9',YDSYSLGG P FNL
0x156740…1568d4 (4, 245) Dummy {f00=0x002a, f01=0x0190, f02=» L P************************************************************************ P* T P* SYSTEM START - PART 2 ^ * ~ L P************************************************************************ PCBSTTS PROC PCB000 P* P* RE
0x1568d4…156a68 Dummy {f00=0x002a, f01=0x0190, f02=»READ SYSTEM RECORD p P TBT SBCANCEL,CB900 P TBT SBRECAVB,CB050 6 P* R 4 P* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS P* P PERF EHISYS P* . P* WRITE THE SYSTEM RECORD TO THE DATABASE : P* AND UPDATE THE LRN ON DI
0x156a68…156bfc Dummy {f00=0x002a, f01=0x0190, f02=»0 ~ . P PERF ZBCLSD CLOSE DATABASE TO UPDATE LRN P TBT SBCANCEL,CB900 < ( P PERF ZAOPND AND OPEN DATABASE AGAIN X P TBT SBCANCEL,CB900 P B CB500 CONTINUE PCB050 P* 4 P* CHECK WETHER OR NOT THE SYSTEM HAS BEEN CLOSED (
0x156bfc…156d90 Dummy {f00=0x002a, f01=0x0190, f02=» @ P* , P* SYSTEM NOT CLOSED PROPERLY LAST TIME, ( P* ENSURE THE DATABASE CONSISTENCY B P* n 0 P MOVE YDSTATUS,=D'1' FIRST RESTORE YDSTATUS x " P PERF QIRDBS RESTORE DATABASE P TBT SBCANCEL,CB900 PCB500 * P MOVE YDSTAT
0x156d90…156f24 Dummy {f00=0x002a, f01=0x0190, f02=»ANCEL,CB900 P* 4 P* REWRITE SYSTEM RECORD, TO COVER THE SITUATION 6 P* WHERE A BREAKDOWN OCCURS IN DAUCCY OR DBUOPR V P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 T P MUL NDTIME,=D'100' ADD SECONDS
0x156f24…1570b8 Dummy {f00=0x002a, f01=0x0190, f02=»IGN AND FIRST 0 b P SETTIME VCTIME ( P* @ " P* INITIALISE CURRENCY RECORDS J P* p PCB600 z P PERF DAUCCY P TBT SBCANCEL,CB900 P* " P* INITIALISE OPERATOR RECORDS P* PCB700
0x1570b8…15724c Dummy {f00=0x002a, f01=0x0190, f02=»ORD ~ P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 : P B CB999 V L P* * f L P* DISPLAY ERROR: DISK ERROR * L P*
0x15724c…1573e0 Dummy {f00=0x002a, f01=0x0190, f02=» V T P PERF XEERR,=W'6',KW1 ANSWER MUST BE CANCEL PCB900 v $ P PERF ZGREA RELEASE EXCL. ACCES P* P* CLOSE FILES P* P PERF ZBCLSD P PERF ZLCLSF L P MOVE YDST
0x1573e0…157574 (4, 246) Dummy {f00=0x002a, f01=0x0190, f02=»********************************************** v P* 6 ( P* CHECK DATE ENTERED IN SYSTEM START @ P* l L P************************************************************************ v PSPAP32 PROC XWRET P PBIN XWRET PS32000 P*
0x157574…157708 Dummy {f00=0x002a, f01=0x0190, f02=»YEAR P MOVE WDEC1,WDEC2 & P DIV WDEC1,=D'100' GET RID OF YEAR & P MUL WDEC1,=D'-100' P * P ADD WDEC1,WDEC2 TO GET 'YY' IN WDEC1 l * P CBL WDEC1,=D'79',S32900 NOT IN RANGE P* CHECK MONTH * P DIV WDEC2,=D'100' NOW IN WDEC2: DDMM
0x157708…15789c Dummy {f00=0x002a, f01=0x0190, f02=»EC1 n ( P CBL WDEC1,=D'1',S32900 NOT IN RANGE * P CBG WDEC1,=D'12',S32900 NOT IN RANGE 8 P* CHECK DAY f * P DIV WDEC2,=D'100' TO GET DAY IN WDEC2 z ( P CBL WDEC2,=D'1',S32900 NOT IN RANGE P CBL WDEC2,=D'32',S32999 OKE PS32900 P M
0x15789c…157a30 Dummy {f00=0x002a, f01=0x404c, f02=»**************************************************** | P END <@ H2900 NOT IN RANGE 8 P* CHECK DAY f * P DIV WDEC2,=D'100' TO GET DAY IN WDEC2 z ( P CBL WDEC2,=D'1',S32900 NOT IN RANGE P CBL WDEC2,=D'32',S32999 OKE PS32900 P M
0x157a30…157bc4 Dummy {f00=0x002a, 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
0x157bc4…157d58 Dummy {f00=0x002a, f01=0x0190, f02=»6 $ : ! P # P J : )@ 2! K Y " ) 6 ) 6 !0 J ; )@ X "T X )* 2 )6 )@ 6 !0 J X )< )( ) ' 6 ! Y 0T V ) ; : )@ 2' K 6 " P # P
0x157d58…157eec Dummy {f00=0x002a, f01=0x0190, f02=» X :c 2" K H ):@ W W W W W W W )@ Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 W U X Q ! W Y 0 "P / /& )@ 9H Y * W W /& X 0T K X 2Z X +" X *9h P: R Y >_ P R
0x157eec…158080 Dummy {f00=0x002a, f01=0x0190, f02=» W Y ( C )@ X *! P V L ! )< 4 X 0 Y 8 > P ) Y 0 X 0 X 2] X 8 Y 0 > : X 0 :H* )H : X 2T Y 2 : C 1 B ] /J : X +! K X +! U 9K Y ( Y + "P )@9H Y * 2 Y ( Y > Y + 6 4 0 5
0x158080…158214 (4, 247) Opaque[0x194]
0x158214…1583a8 # DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x158214…1583a8 IdxSect {
0x158214…1583a8 f00 = 0x0054 // 0x158214 @0x0
0x158214…1583a8 f01 = 0x0008 // 0x158216 @0x2
0x158214…1583a8 gno = [ // 0x158218 @0x4
0x158214…1583a8 [0x00]: C0x0054.0x1.0
0x158214…1583a8 [0x01]: C0x0054.0x2.0
0x158214…1583a8 [0x02]: C0x0054.0x3.0
0x158214…1583a8 [0x03]: C0x0055.0x0.0
0x158214…1583a8 ]
0x158214…1583a8 }
0x1583a8…15853c Dummy {f00=0x0054, 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
0x15853c…1586d0 Dummy {f00=0x0054, f01=0x0190, f02=»********************************************************** * B P* UPDATE OPERATOR L * f L P************************************************************************ p L PDBUOPR PROC
0x1586d0…158864 Dummy {f00=0x0054, f01=0x0190, f02=» ` L P* * " L P* SYSTEM START PROGRESSING, * r L P* READ ALL OPERATOR RECORDS AND RESET STATUS TO
0x158864…1589f8 Dummy {f00=0x0054, 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
0x1589f8…158b8c Dummy {f00=0x0054, 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
0x158b8c…158d20 Dummy {f00=0x0054, f01=0x018e, f02=»UFFER,WW1,KW1 z P BOK DB110 P XSTAT DSDBS,NWXSTAT ( * P MOVE WW1,=X'5000' 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
0x158d20…158eb4 (4, 248) Dummy {f00=0x0054, 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
0x158eb4…159048 Dummy {f00=0x0054, f01=0x0190, f02=» L P MOVE ODSTATUS,=D'0' L P PERF ZDRWRD,ODOPRRNR,NDLRN1 X L P TBT SBCANCEL,DB900 L P* READ THE NEXT
0x159048…1591dc Dummy {f00=0x0054, f01=0x0190, f02=»X-FILE TO ZERO, (AT LEAST IN RELEASE 3.2) 2 P* THE RECORD JUST REWRITTEN MUST BE READ AGAIN 2 $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 h P TBT SBCANCEL,DB900 P B DB100 L P* *
0x1591dc…159370 Dummy {f00=0x0054, f01=0x0190, f02=» * L PDB200 P MOVE IDNR1,=X'FF' l L P PERF XBFMT,=W'16' GET OPERATOR NUMBER L P TBT SBCANCEL,DB900
0x159370…159504 Dummy {f00=0x0054, f01=0x018e, f02=»ED AS FOLLOWS: * v J P* IDNR1 CAN ONLY BE ZERO IF YDSTATUS = 1 (EXIT FROM OPERATOR INIT). 6 B P* IF IDNR1 IS NOT ZERO THEN IDNR1 IS IN RANGE [10001,19999] B P* AND THE OPERATOR RECORD HAS BEEN READ OR A NEW OPERATOR
0x159504…159698 Dummy {f00=0x0054, f01=0x0190, f02=» F 2 P CBE IDNR1,=D'0',DB999 EXIT FROM OPERATOR INIT L PDB300 > P* L P* DISPLAY OPERATOR SPECIFICATION * P* 0 P MOVE IDNR1,=D'0' INIT
0x159698…15982c Dummy {f00=0x0054, f01=0x0190, f02=» v N P CBE IDNR1,=D'1',DB400 ZEROISE ACCUMULATORS 6 L P* * L P* DISPLAY OPERATOR ACCUMULATORS
0x15982c…1599c0 Dummy {f00=0x0054, f01=0x0190, f02=»TOR ACCUMULATORS x L P TBT SBCANCEL,DB900 8 L P B DB500 L P*
0x1599c0…159b54 (4, 249) Dummy {f00=0x0054, f01=0x0190, f02=» * x L PDB400 8 L P PERF EBZACC L PDB500
0x159b54…159ce8 Dummy {f00=0x0054, f01=0x0190, f02=»LRN1 WRITE OPERATOR RECORD x < P CBE YDSTATUS,=D'1',DB200 NEXT OPERATOR IF SYSTEM START " L PDB900 b L PDB999 L P RET
0x159ce8…159e7c Dummy {f00=0x0054, f01=0x0190, f02=» R L P************************************************************************ L P* * b L P* CHECK OPERATOR IDENTIFICATION IN OPERATOR UPDATE * L P*
0x159e7c…15a010 Dummy {f00=0x0054, f01=0x0190, f02=»********** R PSPAP06 PROC XWRET P PBIN XWRET , N PS06000 @ , P MUL IDNR1,=D'1' REPRESENT ZERO UNIQUELY P CBNE IDNR1,=D'0',S06050 0 P CBE YDSTATUS,=D'1',S06990 SYSTEM STAR
0x15a010…15a1a4 Dummy {f00=0x0054, f01=0x0190, f02=»400 RANGE ERROR x L P* * < L P* OPERATOR IDENTIFICATION IS IN THE RIGHT RANGE * L P*
0x15a1a4…15a338 Dummy {f00=0x0054, f01=0x018e, f02=» ^ T P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 READ OPERATOR RECORD P TBT SBCANCEL,S06900 v N P TBT SBRECAVB,S06990 RECORD IS PRESENT IN THE DBS N P CBE RDALFKB,=D'1',S06100
0x15a338…15a4cc Dummy {f00=0x0054, f01=0x0190, f02=» n L P* * L P* INITIALISE A NEW OPERATOR RECORD IN THE UWB * X L P* * N PS06100
0x15a4cc…15a660 Dummy {f00=0x0054, f01=0x0190, f02=» J P B S06990 L P* * " P* OPERATOR NUMBER NOT IN RANGE l L P* * N PS06400
0x15a660…15a7f4 (4, 250) Dummy {f00=0x0055, f01=0x412a, f02=» P B S06999 PS06900 & P MOVE XWRET,=W'3' INDICATE CANCEL $ P B S06999 N PS06990 ` 0 P MOVE SPBINW2,KWSPCONT CONTINUE FROM SCREEN n PS06999 P RET P PEND L P**************************************************************
0x15a7f4…15a988 Dummy {f00=0x0055, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x15a988…15ab1c Dummy {f00=0x0055, f01=0x0190, f02=» P L P TBT SBCHEQUE,CD990 ERROR L P B CD130 NEXT CHECK ` L P* * L P* SPECIF
0x15ab1c…15acb0 Dummy {f00=0x0055, f01=0x0190, f02=» * P L PCD122 @ P CBNE KDCHECKS(NWKTBIX,KW2),=D'2',CD130 NO SPECIFIC CHECK ` L P TBF SBCHEQUE,CD130 ONLY IF CHEQUE IS ON L P*
0x15acb0…15ae44 Dummy {f00=0x0055, f01=0x0190, f02=» L P* * J P TBT SBRVS,CD990 'REVERSAL' MUST BE OFF T J P TBT SBNOBOOK,CD990 'NOBOOK' MUST BE OFF ( P TBT SBCARD,CD990 'CARD'
0x15ae44…15afd8 Dummy {f00=0x0055, f01=0x0190, f02=»**** L L P* * L P* CHECKS ON NOBOOK * L P* * L P************
0x15afd8…15b16c Dummy {f00=0x0055, f01=0x0190, f02=» Z L P TBT SBNOBOOK,CD990 ERROR L P B CD140 NEXT CHECK j L P* * L
0x15b16c…15b300 Dummy {f00=0x0055, f01=0x0190, f02=» * Z L PCD132 L P CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140 j L P TBF SBNOBOOK,CD140 OK, NEXT CHECK J
0x15b300…15b494 (4, 251) Opaque[0x194]
0x15b494…15b628 # DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0aa8, f03=0x0000}
0x15b494…15b628 IdxSect {
0x15b494…15b628 f00 = 0x0055 // 0x15b494 @0x0
0x15b494…15b628 f01 = 0x0008 // 0x15b496 @0x2
0x15b494…15b628 gno = [ // 0x15b498 @0x4
0x15b494…15b628 [0x00]: C0x0055.0x1.0
0x15b494…15b628 [0x01]: C0x0055.0x2.0
0x15b494…15b628 [0x02]: C0x0055.0x3.0
0x15b494…15b628 [0x03]: C0x0056.0x0.0
0x15b494…15b628 ]
0x15b494…15b628 }
0x15b628…15b7bc Dummy {f00=0x0055, 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
0x15b7bc…15b950 Dummy {f00=0x0055, f01=0x0190, f02=» SPAP28 P ENTRY SPAP29 L P************************************************************************ & P* v P* UPDATE CURRENCY * L P************************************************************************ PDAUCCY PROC P
0x15b950…15bae4 Dummy {f00=0x0055, 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
0x15bae4…15bc78 Dummy {f00=0x0055, 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
0x15bc78…15be0c Dummy {f00=0x0055, 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
0x15be0c…15bfa0 Dummy {f00=0x0055, 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
0x15bfa0…15c134 (4, 252) Dummy {f00=0x0055, 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
0x15c134…15c2c8 Dummy {f00=0x0055, 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**********************
0x15c2c8…15c45c Dummy {f00=0x0055, 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
0x15c45c…15c5f0 Dummy {f00=0x0055, 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
0x15c5f0…15c784 Dummy {f00=0x0055, 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
0x15c784…15c918 Dummy {f00=0x0055, 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
0x15c918…15caac Dummy {f00=0x0055, 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
0x15caac…15cc40 Dummy {f00=0x0055, 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
0x15cc40…15cdd4 (4, 253) Dummy {f00=0x0055, 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
0x15cdd4…15cf68 Dummy {f00=0x0055, 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
0x15cf68…15d0fc Dummy {f00=0x0055, 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
0x15d0fc…15d290 Dummy {f00=0x0055, 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
0x15d290…15d424 Dummy {f00=0x0055, f01=0x0190, f02=»5999 P RET P PEND B P************************************************************* 6 B P* * | B P* CDBUY1 MUST BE GREATER THEN ZERO * : P
0x15d424…15d5b8 Dummy {f00=0x0055, 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
0x15d5b8…15d74c Dummy {f00=0x0055, 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*
0x15d74c…15d8e0 Dummy {f00=0x0055, f01=0x018e, f02=» * @ P* CDSEL2 AND REDISPLAY THE WHOLE LINE * @ P* * R @ P*********************************************************** PSPAP29 PROC XWRET P PBIN XWRET P
0x15d8e0…15da74 (4, 254) Dummy {f00=0x0056, 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************************************
0x15da74…15dc08 Dummy {f00=0x0056, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x15dc08…15dd9c Dummy {f00=0x0056, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x15dd9c…15df30 Dummy {f00=0x0056, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x15df30…15e0c4 Dummy {f00=0x0056, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x15e0c4…15e258 Dummy {f00=0x0056, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x15e258…15e3ec Dummy {f00=0x0056, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x15e3ec…15e580 Dummy {f00=0x0056, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x15e580…15e714 (4, 255) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x0056 // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x000a // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x0056.0x1.0
0x15e714…15e8a8 [0x01]: C0x0056.0x2.0
0x15e714…15e8a8 [0x02]: C0x0056.0x3.0
0x15e714…15e8a8 [0x03]: C0x0057.0x0.0
0x15e714…15e8a8 [0x04]: C0x0057.0x1.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x0056, 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
0x15ea3c…15ebd0 Dummy {f00=0x0056, 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
0x15ebd0…15ed64 Dummy {f00=0x0056, 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.
0x15ed64…15eef8 Dummy {f00=0x0056, 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
0x15eef8…15f08c Dummy {f00=0x0056, 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
0x15f08c…15f220 Dummy {f00=0x0056, 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
0x15f220…15f3b4 (4, 256) Dummy {f00=0x0056, 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
0x15f3b4…15f548 Dummy {f00=0x0056, 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 ?
0x15f548…15f6dc Dummy {f00=0x0056, 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
0x15f6dc…15f870 Dummy {f00=0x0056, 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
0x15f870…15fa04 Dummy {f00=0x0056, 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,
0x15fa04…15fb98 Dummy {f00=0x0056, 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
0x15fb98…15fd2c Dummy {f00=0x0056, 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**************************************************
0x15fd2c…15fec0 Dummy {f00=0x0056, 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
0x15fec0…160054 (4, 257) Dummy {f00=0x0056, 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,='
0x160054…1601e8 Dummy {f00=0x0056, 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
0x1601e8…16037c Dummy {f00=0x0056, 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*
0x16037c…160510 Dummy {f00=0x0056, 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
0x160510…1606a4 Dummy {f00=0x0056, 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
0x1606a4…160838 Dummy {f00=0x0056, 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
0x160838…1609cc Dummy {f00=0x0056, 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
0x1609cc…160b60 Dummy {f00=0x0056, f01=0x0190, f02=»SPECIAL 8 P CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP P EDWRT SPDSPRT,FMTSKIP L L P************************************************************************ j P MOVE SPBINW3,='1' P PRINT SPDSPRT,SPBINW3,='0' $ P B SETCREAD SET
0x160b60…160cf4 (4, 258) Dummy {f00=0x0057, f01=0x0190, f02=»N x P BZ UPD260 DUPL ALLOWED 0 P MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY * P B ERRPRINT DUPL NOT ALLOWED ^ P EJECT P* P* EDIT FIELD P* PKEDIT P GETCTL 1,SPBINW3 GET MAXL P CBNE SPBINW3,='0',KED100
0x160cf4…160e88 Dummy {f00=0x0057, f01=0x0190, f02=»2,SPBINW4 P BL ERRPRT ERROR L P************************************************************************ * P* PTSDEMO SPECIAL z B P PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB3 ADAPT SPBINW2 FOR KB34 L P**********************************************
0x160e88…16101c Dummy {f00=0x0057, f01=0x0190, f02=» ( P SET SPCHANGE ITEM CLEARED BY EDFLD " P B DYKOUT CONTINUE AS FOR DYKI 0 P* V P* ENTER KEY ` P* v PKENTER 0 P MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND , P MOVE SPBINW1,='0' INDICATE NO CLEARING 2 P MOVE SPBINW2,='0' SET
0x16101c…1611b0 Dummy {f00=0x0057, f01=0x018e, f02=» & P TSTCTL 2 LOOK IF COMPULSORY FIELD P BZ KENT05 NO! . . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD D P BP KENT10 YES! v PKENT05 4 P MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED P RET P* & P* EMPTY COMPULSORY FIELD FO
0x1611b0…161344 Dummy {f00=0x0057, f01=0x0190, f02=» * P CBE SPBINW2,='16',KEDIT JUMP IF EDIT * P CBE SPBINW2,='4',CANC JUMP IF CANCEL1 6 * P CBE SPBINW2,='5',CANC JUMP IF CANCEL2 d P* P* ERROR HANDLING P* PERRPRINT 0 P CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT L P**
0x161344…1614d8 Dummy {f00=0x0057, f01=0x0190, f02=» ERROR p L P************************************************************************ P* ^ P* READ AFTER ERROR h P* PERREAD ( P SETCUR SET CURSOR AT THE BEGINNING P OF THE CURRENT FIELD PERR100 * P MOVE SPBINW3,=W
0x1614d8…16166c Dummy {f00=0x0057, f01=0x0190, f02=»********************************************************** P* PTSDEMO SPECIAL B P MOVE SPBINW3,KWSPEOI $ P ADD SPBINW3,=W'1' ADJUST INDEX z B P PERF QHSPKY,SPBINW2,SPBINW3,KWSPKTB ADAPT SPBINW2 FOR KB34 L P********************************
0x16166c…161800 Dummy {f00=0x0057, f01=0x0190, f02=» ERRCONT,ERR100,ERRCONT,ERRCONT P B ERR100 CONTINUE ( P* B P* CLEAR ERROR PRINTOUT L P* n PERRCONT x L P************************************************************************ P* PTSDEMO SPECIAL ( P PERF XCLAMP,KW3,KW0 E
0x161800…161994 (4, 259) Dummy {f00=0x0057, f01=0x018e, f02=»******************************************** z , P ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE 4 & P SUB SPBINW2,='1' ADJUST KEY INDEX d PCANC 0 P CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 0 P MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS 4 P MOVE
0x161994…161b28 Dummy {f00=0x0057, f01=0x0190, f02=» PERRC10 $ P IB SPBINW2,CLEAR1,CLEAR2,DUMMY 0 P SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2 : P RET n PCLEAR1 z 0 P CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 ( P SET SPCHANGE INDICATE CHANGED FIELD PERRC20 P B SETCREAD CONTIN
0x161b28…161cbc Dummy {f00=0x0057, f01=0x0190, f02=» PCLEA20 * P GETABX SPBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD @ P B SETCREAD CONTINUE p P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND P L P****************************************
0x161cbc…161e50 Dummy {f00=0x0057, f01=0x4072, f02=»******************************************************************** P PEND ! L P ! Z P END ! b@ ! n SETCREAD CONTINUE p P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND P L P****************************************
0x161e50…161fe4 Dummy {f00=0x0057, 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
0x161fe4…162178 Dummy {f00=0x0057, f01=0x0190, f02=» CALCULATE THE NEXT TRANSACTION NUMBER. * " L P* THE TRANSACTIONS BELONGING TO AN ACCOUNT ARE NUMBERED FROM * # N L P* 1 TO 8 AND ARE USED CIRCULARLY. * # L P* TO GET THE NEXT TRA
0x162178…16230c Dummy {f00=0x0057, f01=0x0190, f02=» * # L P************************************************************************ $ N L PQENTRS PROC XDTRS $ L PQE000
0x16230c…1624a0 Dummy {f00=0x0057, f01=0x0190, f02=»BL XDTRS,=D'9',QE999 OKE $ L P MOVE XDTRS,=D'1' NEXT SEQ NR. IS 1 % N L PQE999 % L P RET
0x1624a0…162634 (4, 260) Opaque[0x194]
0x162634…1627c8 # DirEnt {nam=»MMU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fa8, f03=0x0000}
0x162634…1627c8 IdxSect {
0x162634…1627c8 f00 = 0x00fd // 0x162634 @0x0
0x162634…1627c8 f01 = 0x0002 // 0x162636 @0x2
0x162634…1627c8 gno = [ // 0x162638 @0x4
0x162634…1627c8 [0x00]: C0x00fd.0x1.0
0x162634…1627c8 ]
0x162634…1627c8 }
0x1627c8…16295c Dummy {f00=0x00fd, f01=0x0190, f02=» PMES * $ PMES * GENERATION OF DEMOPACKAGE PMES * REL 10.0 : PMES * V PSCR d PNOD C p PPRT MMU ~ PPRT DEMCON PTRA DEMODD,NL PINC ZFMTIO PNOD R PINC AADEMO PINC BASPCT PINC CASTTS
0x16295c…162af0 Dummy {f00=0x00fd, f01=0x018e, f02=» PINC XMESG PINC XOPINP PNOD R , PINC ZDSCIO : PINC ZMRDF L PINC BCSTTO ^ PINC DNTRF p PNOD R PINC BESELF PINC CFCHKH PINC DDTP71 PINC SPACHQ PNOD R PINC PRINT PINC CDCHKY
0x162af0…162c84 Dummy {f00=0x00fd, f01=0x014c, f02=» PINC DJUACT PINC DKDSTM PINC DLDEP , PINC DMWDR > PNOD R P PINC DOQCCY ^ PINC DPECCY p PINC DQCOPR PINC PBBOOK PINC DEMSCR PTLK U,2K PINC /OBJCT,INT:PROD PLKE M PKPF /L,A:DEMO 0 P
0x162c84…162e18 Dummy {f00=0x00fd, f01=0x2008, f02=» INC DJUACT PINC DKDSTM PINC DLDEP , PINC DMWDR > PNOD R P PINC DOQCCY ^ PINC DPECCY p PINC DQCOPR PINC PBBOOK PINC DEMSCR PTLK U,2K PINC /OBJCT,INT:PROD PLKE M PKPF /L,A:DEMO 0 P
0x162e18…162fac Dummy {f00=0x00fd, f01=0x40da, f02=» < H IDENT Z:TRM0 TRA 10.0 80-11-26 F1 O1111 DATA DIVISION Z:TRM0 D Z:TRM0T V & j * 2 2 @ N = N @ &
0x162fac…163140 Dummy {f00=0x00fd, f01=0x40da, f02=» < H IDENT D:TRM0 TRA 10.0 80-11-26 F1 O1111 DATA DIVISION D:TRM0 D D:TRM0T V * & : 0 0 0 0 0 " j ( $ 0 #0 %0 &0 '0 (0 )0 * : @ N = N @ &
0x163140…1632d4 (4, 261) Opaque[0x194]
0x1632d4…163468 # DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0af8, f03=0x0000}
0x1632d4…163468 IdxSect {
0x1632d4…163468 f00 = 0x0057 // 0x1632d4 @0x0
0x1632d4…163468 f01 = 0x0002 // 0x1632d6 @0x2
0x1632d4…163468 gno = [ // 0x1632d8 @0x4
0x1632d4…163468 [0x00]: C0x0057.0x3.0
0x1632d4…163468 ]
0x1632d4…163468 }
0x163468…1635fc Dummy {f00=0x0057, f01=0x0096, f02=» SCR PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,2K R LKE M d PKPF /L,DEMO r ASG /E0,TY10
0x1635fc…163790 Dummy {f00=0x0057, f01=0x2008, f02=» PNOD C TRA DEMODD,NL INC ZFMTIO 4 NOD F PTLK U,X,2K R LKE M d PKPF /L,DEMO r ASG /E0,TY10
0x163790…163924 Dummy {f00=0x0057, f01=0x0000, f02=»99 999999 d s d . g 7 c ZZZZZZZZ9,99-- , ZZZZ9,99-- D ZZZZZ9,99-Z9,99- ZZZVZZZVZZ9,99 ZZZVZZZVZZZ,ZZ F*ZVZZZVZZ9,99-9 99999 999999 8 ZZZ P ZZZZ h ZZZZZ ZZZZZZ ZZZZ9 ZZZ9,99 ZZZ9,99- ZZZZ,ZZ ZZ
0x163924…163ab8 Dummy {f00=0x0057, f01=0x0190, f02=»5-02 F1 O1112 DATA DIVISION t D:UT20 $ D:UT20U 6 * & 20 0 0 0 0 0 0 J 0 !0 '0 -0 3 7 x 2 < H IDENT C:CK10 TRA 10.0 80-05-02 F1 O1112 DATA DIVISION C:CK10 C:CK1
0x163ab8…163c4c Dummy {f00=0x0057, f01=0x0190, f02=»0.0 80-05-02 F1 O1112 DATA DIVISION | D:CK10 , D:CK10C > * & > R * & 0 0 0 0 0 = > < H IDENT C:CK20 TRA 10.0 80-05-02 F1 O1112 DATA DIVISI
0x163c4c…163de0 Dummy {f00=0x0057, f01=0x018e, f02=» = D U U f D f H = H 4 < H IDENT D:CK20 TRA 10.0 80-05-02 F1 O1112 DATA DIVISION F D:CK20 D:CK20C * & > * &
0x163de0…163f74 (4, 262) Opaque[0x194]
0x163f74…164108 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b30, f03=0x0000}
0x163f74…164108 IdxSect {
0x163f74…164108 f00 = 0x0059 // 0x163f74 @0x0
0x163f74…164108 f01 = 0x0004 // 0x163f76 @0x2
0x163f74…164108 gno = [ // 0x163f78 @0x4
0x163f74…164108 [0x00]: C0x0059.0x2.0
0x163f74…164108 [0x01]: C0x0059.0x3.0
0x163f74…164108 ]
0x163f74…164108 }
0x164108…16429c Dummy {f00=0x0059, f01=0x0190, f02=» ( P IDENT CTAB01 FT80 CONVERSION TABLSE P ENTRY CTAB01 0 P ENTRY CTAB02 F P ENTRY CTAB03 L P************************************************************************ r P* 0 P* CONVERSION TABLES FOR 6236/71/72 KEYBOARDS 0 P* USED F
0x16429c…164430 Dummy {f00=0x0059, f01=0x0190, f02=»AB01 EQU * PCTAB02 EQU * PCTAB03 EQU * & F P DATA FUNCTN,FUNCTN,UNSHFT,SHIFT,UNSHFT,SHIFT : L P************************************************************************ L P*
0x164430…1645c4 Dummy {f00=0x0059, f01=0x0190, f02=» * t L P************************************************************************ 4 L PFUNCTN DATA /8C83,/878B,/8188,/8A84,/8289,/8586,/9297,/98A3 L P DATA /3031,/3233,/3435,/3637,/3839,/BABB,/9096,/91A
0x1645c4…164758 Dummy {f00=0x0059, f01=0x0190, f02=»******************************************** t L P* * 4 L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * L P*
0x164758…1648ec Dummy {f00=0x0059, f01=0x0190, f02=»8,/9597,/9487,/8BAB,/8586,/92BA t : P DATA /3031,/3233,/3435,/3637,/3839,/A096,/A2A3,/90BB ( L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F f L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/2BFF L P**
0x1648ec…164a80 Dummy {f00=0x0059, f01=0x0190, f02=» * V L P* CONVERSION TABLE FOR SHIFTED CHARACTERS * L P* * f L P************************************************************************ L PSH
0x164a80…164c14 (4, 263) Dummy {f00=0x0059, f01=0x415a, f02=» V L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF f L P************************************************************************ L P E
0x164c14…164da8 Dummy {f00=0x0059, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x164da8…164f3c Dummy {f00=0x0059, f01=0x0190, f02=»L !_L !_L !_L Wo):LwW %7Lq)RL %7Li)RL !8LaHT !;LZ(R !;LR)RL H D0 F H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x164f3c…1650d0 Dummy {f00=0x0059, f01=0x4056, f02=» ! ! RL W RL W RL 4 : ! ! @@ ! R H X L j P0 | Z a e l p t J F " D @Q !<LG%R
0x1650d0…165264 Dummy {f00=0x0059, f01=0x0190, f02=» < H IDENT CGCSYS TRA 10.0 80-11-17 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 "
0x165264…1653f8 Dummy {f00=0x0059, 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 #
0x1653f8…16558c Dummy {f00=0x0059, f01=0x0190, f02=» # b0 $ d $ g $ * i $ < q $ L v H $ x $ n ~ $ ~ $ J F " D @ R IL JL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL $ $ 0
0x16558c…165720 Dummy {f00=0x0059, f01=0x0190, f02=» a b c d _z e f g h a b c $ % D ; % T % f < % v 0 < % 0 < % % % $ % % % ' % ,0
0x165720…1658b4 (4, 264) Opaque[0x194]
0x1658b4…165a48 # DirEnt {nam=»DEMCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1968, f03=0x0000}
0x1658b4…165a48 IdxSect {
0x1658b4…165a48 f00 = 0x00cb // 0x1658b4 @0x0
0x1658b4…165a48 f01 = 0x0002 // 0x1658b6 @0x2
0x1658b4…165a48 gno = [ // 0x1658b8 @0x4
0x1658b4…165a48 [0x00]: C0x00cb.0x1.0
0x1658b4…165a48 ]
0x1658b4…165a48 }
0x165a48…165bdc Dummy {f00=0x00cb, f01=0x018e, f02=» PT; P01; PTID=A0; PTCL=A0; * PLEV=60; : P02; J PTDC=T02; V PLC=01L; f PTDC=T04; v PLC=01L; P00; PT; P01; PTID=B0; PTCL=A0; PLEV=60; P02; PTDC=T03; PLC=0
0x165bdc…165d70 Dummy {f00=0x00cb, f01=0x015c, f02=» PTDC=T05; PLC=02L; P00; $ PC; 0 P00; : P02; F PSDC=S02; R PSDC=S03; b U; r 009; | UBF; 003; UIF; 003; UCY; 003; UOP; 003; UA1; 003; UA2;
0x165d70…165f04 Dummy {f00=0x00cb, f01=0x2008, f02=» T05; PLC=02L; P00; $ PC; 0 P00; : P02; F PSDC=S02; R PSDC=S03; b U; r 009; | UBF; 003; UIF; 003; UCY; 003; UOP; 003; UA1; 003; UA2;
0x165f04…166098 Dummy {f00=0x00cb, 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
0x166098…16622c Dummy {f00=0x00cb, 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
0x16622c…1663c0 Dummy {f00=0x00cb, 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
0x1663c0…166554 (4, 265) Opaque[0x194]
0x166554…1666e8 # DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x22a0, f03=0x0000}
0x166554…1666e8 IdxSect {
0x166554…1666e8 f00 = 0x0115 // 0x166554 @0x0
0x166554…1666e8 f01 = 0x001a // 0x166556 @0x2
0x166554…1666e8 gno = [ // 0x166558 @0x4
0x166554…1666e8 [0x00]: C0x0115.0x0.0
0x166554…1666e8 [0x01]: C0x0115.0x1.0
0x166554…1666e8 [0x02]: C0x0115.0x2.0
0x166554…1666e8 [0x03]: C0x0115.0x3.0
0x166554…1666e8 [0x04]: C0x0116.0x0.0
0x166554…1666e8 [0x05]: C0x0116.0x1.0
0x166554…1666e8 [0x06]: C0x0116.0x2.0
0x166554…1666e8 [0x07]: C0x0116.0x3.0
0x166554…1666e8 [0x08]: C0x0117.0x0.0
0x166554…1666e8 [0x09]: C0x0117.0x1.0
0x166554…1666e8 [0x0a]: C0x0118.0x3.0
0x166554…1666e8 [0x0b]: C0x0119.0x0.0
0x166554…1666e8 [0x0c]: C0x0119.0x1.0
0x166554…1666e8 ]
0x166554…1666e8 }
0x1666e8…16687c Dummy {f00=0x0115, f01=0x0190, f02=»An _WP *CR5 R < :R A R F >R K R P R U PR Z B n " p + 1 b 0 p
0x16687c…166a10 Dummy {f00=0x0115, f01=0x0190, f02=» N V 2 r A0 0 * V 8 |UBF UIF zUCY UOP UA1 NUA2 UT1 UT2 UQQ
0x166a10…166ba4 Dummy {f00=0x0115, f01=0x0190, f02=» 0 f B n N 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0
0x166ba4…166d38 Dummy {f00=0x0115, f01=0x0190, f02=»0 0 0 >
0x166d38…166ecc Dummy {f00=0x0115, f01=0x0190, f02=»
[…0x2…]
0x1671f4…167388 Dummy {f00=0x0115, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0
0x167388…16751c Dummy {f00=0x0115, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x16751c…1676b0 Dummy {f00=0x0115, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x1676b0…167844 Dummy {f00=0x0115, 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 >
0x167844…1679d8 Dummy {f00=0x0115, f01=0x0190, f02=» An ^ h 5 Aj N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3.(1 .V- n j V ,&. 0 + W,00. / .h) 0p/ 0^/ T / . . . . W 0 +>0 ~ )V B L p
0x1679d8…167b6c Dummy {f00=0x0115, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x167b6c…167d00 Dummy {f00=0x0115, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x167d00…167e94 (4, 267) Dummy {f00=0x0115, f01=0x0190, f02=» N P R T V 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 % + 1 7 =
0x167e94…168028 Dummy {f00=0x0115, f01=0x0190, f02=» K ! R DB C & + P _ A DB DB;d # + A DB #0 0T ' A ' _ DB #0 0T & ! T P & ! X T C A J X x & Y " X R W ) P _ Y $ *V DB *b )| X "
0x168028…1681bc Dummy {f00=0x0115, f01=0x0190, f02=» ) J X x & Y " *V DB *b !0P< <! T( T W$ < X ! P ?A W ?AW <! P X " X R W V, y & Y $ 8 " X X ) x ( y $ ) ) ) DB Y Y DB & DB ( : : p !L Y ( x P Y
0x1681bc…168350 Dummy {f00=0x0115, f01=0x0190, f02=» C ( Y * X Y , ! X X C & C C ( B Ph9 R^9 < X !@PP X X * b ) Y * Y , X , ! x X *YrP y X " x Y X " T Y _ _ B U C Q C D R J X X X * $" ~_> @ Y X *
0x168350…1684e4 Dummy {f00=0x0115, f01=0x0190, f02=»# X * !( y _< X # X * y !( X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : : ' Y C p y x C y X C C X ( x Tf B |9 R 9 < X ! T _ y
0x1684e4…168678 Dummy {f00=0x0115, f01=0x0190, f02=» ! T X !@X y C _d y C C X !? x P Q( B y " y $ c ) C _$ _ y _6 x X@ X ! X # !( C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ! & x X X # !(_ B C
0x168678…16880c Dummy {f00=0x0115, f01=0x0190, f02=» Y Y . : C DB DB " DB $ : ) 2! Y " *V DB *b DB H ) X "T X ) !. ) ) DB X ) ) *V ' DB ! Y 0T V *b H : ) 2' DB R P P X ' ' A
0x16880c…1689a0 Dummy {f00=0x0115, f01=0x0190, f02=» W W W W W W ) Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 ! W U X Q " W Y 0 ! # 2 1 ) 9H Y * W W 1 X 0 X +" X *9h P2 R Y >_ P P Y +W^ Y + v ! WL T v 8W> Q W
0x1689a0…168b34 (4, 268) Dummy {f00=0x0115, f01=0x0190, f02=» 0 X 2] X 8 Y 0 f : X 0 :H* ) : X 2T Y 2 : C 1 B ] 2 : X +! U 9K Y ( Y + ! # ) 9H Y * 2 Y ( Y > Y + DB 4 0 C 6 2 : C ( C : C B _( _ X ! !L P !( B _N (
0x168b34…168cc8 Dummy {f00=0x0115, f01=0x0190, f02=»_>S<S:DBS:S:S:S S(S$P O P O #T$ $ S:#FS:P W W X 0Q " " Y ( Y *P 1 N ! X <' X X N ) X *# X ( " Qp " P X 0P: Vp_` " P4 T ' *bWT " P Y 0] Y (_t " X _. 1 X *# P B 1 1 W " P X X$
0x168cc8…168e5c Dummy {f00=0x0115, f01=0x0190, f02=»#FS:P ) Y . Y ,W ) Y . X ( X ." PV X 0RzT$ Y *P U :H ) # K T P W P X . X 2QH Y *T2 P : " P$ X 0U X *# P P T " T : Y . ' Y ( O ) Y *T " T ! 1 W ! ) P : ) Pn R P & Y *T
0x168e5c…168ff0 Dummy {f00=0x0115, f01=0x0190, f02=» Y " X .9H $ R P & X ( " Qv Y +Q R " P W " U & Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P ' P< '`WZ X ! X $" P<Q X (# P2 X # :! R$W '` ' T$ @ Y (W Y , ' W ' Y ( O : X *:h X (
0x168ff0…169184 Dummy {f00=0x0115, f01=0x0190, f02=»P Y (_ P* '8 P| Y 8 $L X 8 X $ ) Wh_ " P X ( T X & V H "@TF '8 P6 V Y X (P )( ' X (P & )| 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 )( DB 8 V Y 8 : " P X & V ( P '8 : :
0x169184…169318 Dummy {f00=0x0115, f01=0x0190, f02=» V H " V Y : X $ ) X : * : X Y " X Y $ X Y & X @W X < Y = " *V ! T W S@ ! P =H S@ ( X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X ) W Y ( : X , Y X $ Y X &T
0x169318…1694ac Dummy {f00=0x0115, f01=0x0190, f02=»DB P : 2' " P T F2W C Q : ) : ) 1 )p C ) X ) : "0P ' Q W ' Y : W C V P2 ) Y Y Y < V E A B X _ v : C C 2 : C 2 :( R : V E V
0x1694ac…169640 Dummy {f00=0x0115, f01=0x0190, f02=»+V V W + . 2 / + W 2 / + 2 1& 2 / + 2 2 ' / DB C 1& DB C DB &P C DB & C : ( A 2 "R V I A 2 ( T _& @V X, @V _6 DB ( A DB
0x169640…1697d4 (4, 269) Dummy {f00=0x0116, f01=0x0190, f02=» : ( A 2 & >A >A 2 $ DB & V D 9a 9 V @ ,W @ R T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4
0x1697d4…169968 Dummy {f00=0x0116, f01=0x0190, f02=» L ;a ; R@ @ R 8 ? X Q* ( V )<B ?H ( A -d( 2 DB "$ P B B U W U A DB V G 9h ' A 2 # 9 2! P T 0 / 1& 2 #/ C _ ( DB ' A 2 V C
0x169968…169afc Dummy {f00=0x0116, f01=0x0190, f02=» 0 C ( B B @ C ( ( B B C C ( C C 1: 2 V C <H / 1* 2 C _ 0 ( C _> 2 V C 2 <H / 1. 0 2 . C _" W 2 1* 0 /
0x169afc…169c90 Dummy {f00=0x0116, f01=0x0190, f02=» C J0 ' W 781"&$ 39#$;< '()*+,-! 2 3< 2 DB P _D 2 B DB 'W 2 ( W DB 2 2 ( 1W C C C ( ' P. 1p P$ "! P V W B % P C + U A 2d I "%@P
0x169c90…169e24 Dummy {f00=0x0116, f01=0x0190, f02=» I C B : ( ' P 2d I : 2 2 % Y C C DB & R V C DB : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D E W"' #? E ;D:B " : _ DB C :
0x169e24…169fb8 Dummy {f00=0x0116, f01=0x0190, f02=» V :a 4 3 2 ' ( 3 ( J V T P W * 3 1> 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : 4 D T> E D :A D ;A 9A Q 5 U _
0x169fb8…16a14c Dummy {f00=0x0116, f01=0x0190, f02=» C C _, M : ( ' P 2d I : 2 2 % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D W"' #? ;D:B " : _ C :
0x16a14c…16a2e0 Dummy {f00=0x0116, f01=0x0190, f02=» V :a 2 ' ( ( J V T P W * 1> 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A 9A Q 5 U _
0x16a2e0…16a474 (4, 270) Dummy {f00=0x0116, f01=0x0190, f02=» C C _, M : ( ' P 2d I : 2 2 % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D W"' #? ;D:B " : _ C :
0x16a474…16a608 Dummy {f00=0x0116, f01=0x0190, f02=» V :a 2 ' ( ( J V T P W * 1> 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A 9A Q 5 U _
0x16a608…16a79c Dummy {f00=0x0116, f01=0x0190, f02=» C C _, M : ( ' P 2d I : 2 2 % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D W"' #? ;D:B " : _ C :
0x16a79c…16a930 Dummy {f00=0x0116, f01=0x0190, f02=» V :a 2 ' ( ( J V T P W * 1> 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A 9A Q 5 U _
0x16a930…16aac4 Dummy {f00=0x0116, f01=0x0190, f02=» C C _, M : ( ' P 2d I : 2 2 % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ P" T # ' ?D W"' #? ;D:B " : _ C :
0x16aac4…16ac58 Dummy {f00=0x0116, f01=0x0190, f02=» V :a 2 ' ( ( J V T P W * 1> 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A 9A Q 5 U _
0x16ac58…16adec Dummy {f00=0x0116, f01=0x0190, f02=» C C _, M : ( ' P 2d I : 2 2 % Y C 2 / DB C DB &P C DB & C A A A BjCVA CNH F~F G J L2L2B B B B C A B B O,T*S SrS T*SLCvCrC|C~ * W V 7 @ L! P * P W A
0x16adec…16af80 Dummy {f00=0x0116, f01=0x0190, f02=» V P L , V 2P " 2 P V D ! R T V P V * W V _ 8^n DAT 2 ! 9B V T W V P D $ V 6 V % V E @ P' T 2 % 7_ 2 # L DB 2" &] Y $! 6P Q $ T 9B B _ _ 6 @
0x16af80…16b114 (4, 271) Dummy {f00=0x0116, f01=0x0190, f02=»:l:d:h DB W W P W 6 2# E W4 @ N EC " T> ; [ # E :H 2 T Z L LC D V, W # E LC E V $ W D V LC , W 6 2 E W$ " P& Pd" # E ;b Wv " ;d# _ [ v [
0x16b114…16b2a8 Dummy {f00=0x0116, f01=0x0190, f02=» [ DB z ;AV$ Z H # F" ; DB : & Z 4 F" : Z 4 " 2@P : [ [ DB & @ N! P [ 6 [ Z 7 C Z 7 : ( :A ( @ P" P ! P [ :;H 2
0x16b2a8…16b43c Dummy {f00=0x0116, f01=0x0190, f02=» W " T & T + : * & !@P `1` P HDQ [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@
0x16b43c…16b5d0 Dummy {f00=0x0116, f01=0x0190, f02=»!`P :J +_ +Q HD_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 J P P PF P 0 - P0 _ 4 V
0x16b5d0…16b764 Dummy {f00=0x0116, f01=0x0190, f02=»V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P.
0x16b764…16b8f8 Dummy {f00=0x0116, f01=0x0190, f02=» V P W T V E + : & [ [ [ [ $ [ [ >h [ [ NFH NFH NFF Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P NFF~ V H )_ NFL _X z R z ! P 1` { V (9h T W z 9e! I
0x16b8f8…16ba8c Dummy {f00=0x0116, f01=0x0190, f02=» R P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $ [ [ &! P N NFH NFH NFF z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z NFHD
0x16ba8c…16bc20 Dummy {f00=0x0116, f01=0x0190, f02=»Q* NFF~ NFHD R [ Z { NFF~ z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 S>C C FDS@F2C DBS<P Q P PnS:S S(
0x16bc20…16bdb4 (4, 272) Dummy {f00=0x0116, f01=0x0190, f02=» O PX V Z P 2 " T W "@T '?W "? HN " K :e J J " J _Z Z P2 [ Z P * [ V 7_ Z PX @ L! P * Z 7 Z Z P * : V R (Q V : ^ ^ :
0x16bdb4…16bf48 Dummy {f00=0x0116, f01=0x0190, f02=»P K W. _& X 1 W X & 1 J K : V : 1 : + DB [ [ < !AAP !TTT W !**T * [ R !FFP !EET W IR 6 * B Z 9 ! ; *Xt 8 ! DR 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1
0x16bf48…16c0dc Dummy {f00=0x0116, f01=0x0190, f02=»_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W Qx 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 Pn R : ! P ! P ! P ! P DB ! P C W : ! )P9H # T &W &" :I : S@ : P & _ &X _ : : :
0x16c0dc…16c270 Dummy {f00=0x0116, f01=0x0190, f02=» R" P $ 1T Y W 5 _$ : T $ R W R # P W ) V E T WX T [ T : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : H : DB DB jP kT T : & 9!
0x16c270…16c404 Dummy {f00=0x0116, f01=0x0190, f02=» C : UF C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W B B " U : PV V PR LVv R R _ R _ # Q R V > _V X^ ' h
0x16c404…16c598 Dummy {f00=0x0116, f01=0x0190, f02=» C #0 T B ' : B B U : C P C #0 T & C C : UF C C : DB ( A DB ( _ DB DB DB F 8 1 Y A R ! :DW ! 9 R R _. : H : DB DB jP kT T : & 9!
0x16c598…16c72c Dummy {f00=0x0116, f01=0x0190, f02=» : . 2 61 I5 J1 W @2 1 W "R !"T<I5 A " A 0 &)6l I5 H1 W )6T W "SBJ1E !"T _M _Q1 0 H5 "S LS 7R 8l :R ;RW2 7R LR!"S I2d I2G I2B 1% eW I26 Le 7e!7R 7R R 2 32 3 I5' I2 6R);S A6!"S" I2 W )"R "lW GI2 6RW 6l4 !eR
0x16c72c…16c8c0 Dummy {f00=0x0116, f01=0x0190, f02=»I2`I I2T I2O I2JW !"T "R I2< "R %1 I20 I2) t Z b Z 0 I2 I2 "S I2 W "l4 J IJ It Iu IJ%Is" Jt IJ It Iu IJ%IR #IZ Jt%JR %Jr C 4 0 0 0 0R JP !0 ? #0 ? "RAj R A I2 w Il Jl el fl gl hl al bl
0x16c8c0…16ca54 (4, 273) Dummy {f00=0x0117, f01=0x0190, f02=»b c d _z e f g h a b c d A BI2 +R + "T I2 I2 W "S @j4 )"R S pS pY p p I21I !"R Af I2 #Ss p )"R S S 8W +R +@f4 kr ct du cv dw l#S y l# x 4 %yR #yv W C 4 !ul $tu
0x16ca54…16cbe8 Dummy {f00=0x0117, f01=0x0190, f02=» C W !xl C W 4 #tl C W um%7T 0 0 4 #vl C W wm%7U 0 0 4 )"R` R A I2 w Di0 D P 0 Dk0 DT- WV0 e e ew/#ex l I29 I21_G eo I2&!el" el !I2 !eR "I2 W R "R/4 eR)el !"R3%ew"#ex e
0x16cbe8…16cd7c Dummy {f00=0x0117, f01=0x0190, f02=» B J % Y + d N 3 H P $ 2 y O * FORMAT FILE VOLUME NAME ? DSC O DEMO PTS 6800 12NC=870155040100 : SYSTEM LANGUAGE ? ! @ % DATA BASE VOLUME NAME ? DSC
0x16cd7c…16cf10 Dummy {f00=0x0117, f01=0x0190, f02=» { r r w { % E E Ew E 4 D E D E DEw E D 4 q{ rr sr tx uw vx ww xw yR { r r r r w w w y y w w w w4 { r r r r w w w y y w w w w4 { w 2 = w w w w w r4 { w 2 = w w w w w r4
0x16cf10…16d0a4 Dummy {f00=0x0117, f01=0x0190, f02=»* H 0 0 Dq0 D >0 A II2l_K (~ )} +w H @ a~ aS a I2FI H #H:/_ H I $a( (aW $a) )a$ + + % S w I2 _LI A a} H _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
0x16d0a4…16d238 Dummy {f00=0x0117, f01=0x0190, f02=»W 4 D !D D I2 H Dm Wu P h^PDW P PD0 ] #L]s)LR 0 ] D7 Wt Q FP FQ Q h^QFW T Q 9 H #Qj& HD!d] Q^ f^ Q PQWZ#Qj d] P^ P WI D $D Q _Of^ Q PQ P cWF W>#Pl D d^PD] 0 ^ P W D Wt Q _ I2 A A H P W A24 Wsj] W 0 ] 4 H3 H1
0x16d238…16d3cc Dummy {f00=0x0117, f01=0x0190, f02=» A _ A A _ A A _#A2 DL0 DD 4 1 4 @ @ I 0 K @A @ )A& A5W A W 0 K @A@ 4 I6 0 @ 0 K @A aKW&0 0 E 0 KEF(E F F _ aK0 4 ( Z Wv E jW EZ 0 0 0 W0 4 !"wg!8R I3`) !I3Y DE0 D0 D# I3 DhW% D W I3 E E
0x16d3cc…16d560 Dummy {f00=0x0117, f01=0x0190, f02=» + 7 4 ~ ;%; 00 % y y O % m m 0 0 0 0 0 0 0 !0 % @ + + A H P W A24 Wsj] W 0 ] 4 H3 H1
0x16d560…16d6f4 (4, 274) Dummy {f00=0x0117, f01=0x0190, f02=» > 2 6 : N D j D D E X}j DEX D' WPj D W D*j D DF E'j D E Dmj D Dnj D Doj D Dpj D Dqj D Drj D Ds0 DT 0 W 0 1 A A24 0 P 4 R Du { J J E j EJ 0 D 0 W j 0 D 0 I2 H I 0 @ 4 |0
0x16d6f4…16d888 Dummy {f00=0x0117, f01=0x0190, f02=» t%I u%I J I JI)J~ tW l4 @ D 0 DP W Dw0 DP W Dx0 DT A 4 H1$H H H H Gz E IH0 ]EI0 F0 FGP I E 0 ]EI0 F0 FGT E E j^ E] H jH ]E H E IH0 ]EI0 F0 FGT E E j^EE] jH ]E H E IH0 ]EI0 F0 FGTo E E @E @Ej^@E] Wa E
0x16d888…16da1c Dummy {f00=0x0117, f01=0x0190, f02=» f~ % 1 I2kH4 ' J1 @4_)H5 HW &I2@ 6T S =e 2 I2- +R + l# ` ` l#` ` ` W 6S @`4 %e 2#e . e I2(H ! ~ ! S %7T 0 W CiW ChW C W 4 I5 I1 (j W fR!fT Cj W A4 A 4 0 #I2 6S 4 e C$
0x16da1c…16dbb0 Dummy {f00=0x0117, f01=0x0190, f02=» a I20 I2) I2" I2 #:R I I2 W 4 `A%a #a W C W a I2yH p! Sl! Th! ~ C)Wb a I I( I !:SCI W I2E I2=%7U&0 0 ~0 0 I 0 W 0 W C> W C* A` Ka4 %b #b W C WN(ab CkWB b
0x16dbb0…16dd44 Dummy {f00=0x0117, f01=0x0190, f02=» J { ! $ K L U X a b d f x + DATABA O FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDFS "
0x16dd44…16ded8 Dummy {f00=0x0117, f01=0x0190, f02=» O ^ d @V@2@Q S @R@S@T@U _l + 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!_o W* W& W" W W W W
0x16ded8…16e06c Dummy {f00=0x0117, f01=0x0190, f02=» %:S I5 H1/)R H1()R !S H1 )R #)R !S IU I5 H1 W W , W . 4 E I2 D" V{0 VD0 Dj0 D Dh D ik XR YS ZU il [T V ]W ^ DF D ! _0 ^ !# a0 ^ kp ! ku ! kt ! ks ! kv ! kx ! kq ! kw ! ky ! kz ! kr !% Di D !
0x16e06c…16e200 Dummy {f00=0x0117, f01=0x0190, f02=»4 I 0 I4 0 K 6B ).38=BGLQV[`ejoty~ W IK JB%I| "IJ W C W IK%I| ,I W C W # W $ W} % Wx & Ws ' Wn ( Wi ) Wd * W_ + WZ , WU - WP . WK / WF 0 WA 1 W< 2 W7 3 W2 4 W- 5 W( 6 W# 7 W 8 W 9 W : W ; W < W = W I2 6 W B W A B W B 4 IK%I
0x16e200…16e394 (4, 275) Dummy {f00=0x0118, f01=0x0190, f02=» E + + N @ 7 Y - o ! l a 7 m Z t 2 D P ` I 4 # Z 9 $ A C f 634463466371D,
0x16e394…16e528 Dummy {f00=0x0118, f01=0x0190, f02=» k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ d $ , 4 < D L T d l0 0 0 y t Z IK%I
0x16e528…16e6bc Dummy {f00=0x0118, f01=0x0190, f02=» O ^ t ):o Dm0 D F 6F ,28>D Ch C 0 W=1 W70 u Ci C 0 W 1 W 1 W 1 W 1 W 1 W ):W 4 I5 AY = I2 ):o D" Vn0 VD0 Dm0 D F 6F z TrW TtAX k' T1 TU T1 TU k T1 TU!F @XAW k T1 !F TU@W k T
0x16e6bc…16e850 Dummy {f00=0x0118, f01=0x0190, f02=»4 I #:R !:R IS Ip IaW IR0 I4 ) R R )S W ) R S !S IQ IR IT IS~W HUy) R R IQpW ) R S HQ ISbIR_IT HUY) R R IRPW ) R S HR ITBHU?) R R IS6W ) R R IT+W ) R S HT IR IQ HU ) R T HT HQ ) R R HU W 4 )R IT ? HT (H2 ? H6 F I6 (A - _ HQ ? (H2 ? )R )ao !:
0x16e850…16e9e4 Dummy {f00=0x0118, f01=0x0190, f02=» W I2 W ! o !R !R H1 !R !R Wy)R ) o_)R #:R?)R HQ H G!R !R !R W% I I( I !:S%I IR W I2T I2LWJ . W= W7 > W1 / W+ 0 W% $ W - W ) W H6 HT F F ? * I2 ? 4 4 Am a A az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x16e9e4…16eb78 Dummy {f00=0x0118, f01=0x0190, f02=» Z I t a 7 + z m ! E d + , 7 d f1010313801100033000000 2 4 6 y k Y 9 %c &d Y 9 l 1 a "2 12 @ *
0x16eb78…16ed0c Dummy {f00=0x0118, f01=0x0190, f02=»9 l 4 W X Y 9 a S (R) W X 0 "0 #0 $0 &0 (0 *0 ,0 .0 10 40 70 :0 >0 B ( = T l ! - $ x x az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x16ed0c…16eea0 Dummy {f00=0x0118, f01=0x0190, f02=» P ) 8 8 D H LIQ (S#(~@ a(W )S#)~4 a)Aa u bI2$HQ RHT a +R + W ` @a4 % { # | A I2 I W C* W C 4 Ab v 2I28 +R + @b SH ( T I2 ! T #:R I2 I W 4 ! R Ac wW Ad x k 8I2 +R + +! R RW
0x16eea0…16f034 (4, 276) Dummy {f00=0x0119, f01=0x0190, f02=» ;I2 W z <I2k +R + + RH1 ( WR " X W S I2$ I2 ! S W @e4 I I( I C>W 4 Ah t ba !bm' ):m D" Vl0 VD0 Dj0 D D W !&m W C I2 #bm# a} aS"a)
0x16f034…16f1c8 Dummy {f00=0x0119, f01=0x0190, f02=» U_ #bm !&R H ) S ( T I2 #bm _ !bm 0 W +R +!&m W @h4 @ @ @ @ ! R ! X ! S ! q ! Z ! o W A W A W A - m A ! R ! X ! o I W H c dmW cm d Ci C #bm )&R 0 W 0 W TS T0 @ 4 IR H5 ARW RW X m 3I2V l# +R +HS n
0x16f1c8…16f35c Dummy {f00=0x0119, f01=0x0190, f02=» 4 AnIQ SW q mH5 IW 4I2a l# +R +HS nH I22 I2+ HQ -:S I I2 W HQ @n4 IS n In %7U 0 0 W %7V 0 0 I H I I -Im Ch 4 % + ! J 7
0x16f35c…16f4f0 Dummy {f00=0x0119, f01=0x0190, f02=» 0 0 0 0 !0 #0 %0 '0 )0 +0 -0 /0 10 30 50 70 :0 =0 A @ @ A W A W A - m A ! R ! X ! o I W H c dmW cm d Ci C #bm )&R 0 W 0 W TS T0 @ 4 IR H5 ARW RW X m 3I2V l# +R +HS n
0x16f4f0…16f684 Dummy {f00=0x0119, f01=0x0190, f02=» B : 6 : >Al H5 KW ?I2 +R + @l4 Ak IU I2 !R r ev fwW A s et fu hR jj kj dmA @I2_ hm +R + lj c lk d I Ic cd dIHU-I c Sd c SdW c Sd c Sd!:S @k@ 4 ge@ *A / A js k# dc de dy dt!fm:*dx6 gf dc df dy dtW%A
0x16f684…16f818 Dummy {f00=0x0119, f01=0x0190, f02=»B@2 l# l# l# l# R I2 +R + m 6SW S@i4 ):m D" Vl0 VD0 Di0 D U T 9 I2d B U U I I2KI 1 WB I2= d ! S ! Z ! o W dn1 T U_F% S I2 Ch C 0 T T 0 4 TR%Tq TR) p 0
0x16f818…16f9ac Dummy {f00=0x0119, f01=0x0190, f02=»1 @ 0"CR 0# CBP R CB_ 0$0%K @AC: A +A p2A !@ B0& C!C 3C 2B C W 0& B)B _S C 0& B!B ) 2B W 0 KAA2A A 4 C #0 K_%0'W 0(W 0)W 0*W 0+W 0,W 0-W 0.X Z [ B 7A FF:FF:6:::6:6_ :S 1 B 1/ B _ A 00KX C WZ0& B
0x16f9ac…16fb40 Dummy {f00=0x0119, f01=0x0190, f02=»B AB A 2A _& BL0 BB A !@ K k0"C0 CC2A A 4 !@ AA? !@ K0"C0 CC? N B t 0 [ Q p X ~ { J a 7 + m
0x16fb40…16fcd4 (4, 277) Dummy {f00=0x0119, f01=0x0190, f02=» a 4d 4 0 0 0 0 0 "0 $0 &0 (0 * * * & B)B _S C 0& B!B ) 2B W 0 KAA2A A 4 C #0 K_%0'W 0(W 0)W 0*W 0+W 0,W 0-W 0.X Z [ B 7A FF:FF:6:::6:6_ :S 1 B 1/ B _ A 00KX C WZ0& B
0x16fcd4…16fe68 Dummy {f00=0x0119, f01=0x0002, f02=»#(
0x16fe68…16fffc Dummy {f00=0x0119, f01=0x2008, f02=»
0x16fffc…170190 Dummy {f00=0x0119, f01=0x0190, f02=»0 D:TSP0T * & 6 $ 0 0 0 > L 6 t < H IDENT U:UBF0 TRA 10.0 80-11-26 F1 O1111 DATA DIVISION U:UBF0 U:UBF0U &
0x170190…170324 Dummy {f00=0x0119, f01=0x0190, f02=» & - & K & i 0 & @ & P & ` & p & & & ; & Y & w & & & &
0x170324…1704b8 Dummy {f00=0x0119, f01=0x0190, f02=» & & 9 & W 0 & u @ & P & ` & p & & & ) & G & e & & & &
0x1704b8…17064c Dummy {f00=0x0119, f01=0x0190, f02=»SION D:UBF0 D:UBF0U * & B 0 0 2 * & & , 4 < H a ` = B < H IDENT U:UIF0 TRA 10.0 80-11-26 F1 O1111 DATA DIVISION U:UIF0
0x17064c…1707e0 Dummy {f00=0x0119, f01=0x0190, f02=» * d [ d $ < H IDENT D:UIF0 TRA 10.0 80-11-26 F1 O1111 DATA DIVISION 6 D:UIF0 v D:UIF0U * & : 0 0 0 0 0 0 $ ( $ 0 *0 0 6 7 = V Z : < H
0x1707e0…170974 (4, 278) Opaque[0x194]
0x170974…170b08 # DirEnt {nam=»EMPTY «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06d8, f03=0x0000}
0x170974…170b08 IdxSect {
0x170974…170b08 f00 = 0x0036 // 0x170974 @0x0
0x170974…170b08 f01 = 0x0002 // 0x170976 @0x2
0x170974…170b08 gno = [ // 0x170978 @0x4
0x170974…170b08 [0x00]: C0x0036.0x3.0
0x170974…170b08 ]
0x170974…170b08 }
0x170b08…170c9c Dummy {f00=0x0036, f01=0x0008, f02=» P MO,/L HRUN PDISC,0 A=A:DEMO $ HOPT OUT=@A,FC=F4,FT=A,INP=A:DEMO 6 HMOV DEMCON,/A ^ HRUN PDISC,0 C=DEMCON t & HOPT OUT=@C=,FC=F4,FT=C,INP=DEMCON H$PDISCE P=A:DEMO H$PDISCE P=DEMCON * HMES ILLEGAL PARAMETER COMBINAT
0x170c9c…170e30 Dummy {f00=0x0036, f01=0x2008, f02=» MO,/L HRUN PDISC,0 A=A:DEMO $ HOPT OUT=@A,FC=F4,FT=A,INP=A:DEMO 6 HMOV DEMCON,/A ^ HRUN PDISC,0 C=DEMCON t & HOPT OUT=@C=,FC=F4,FT=C,INP=DEMCON H$PDISCE P=A:DEMO H$PDISCE P=DEMCON * HMES ILLEGAL PARAMETER COMBINAT
0x170e30…170fc4 Dummy {f00=0x0036, f01=0x2008, f02=» 3 M,M+MU,M+MOUT,M+MU+MOUT HMES 4 FC * : HMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, : 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN x 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED HEND HMES ILLEGAL PARAMETER COMBINAT
0x170fc4…171158 Dummy {f00=0x0036, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R _ @ r T T S S S S >T T S S S S @ p - - T A r
0x171158…1712ec Dummy {f00=0x0036, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l
0x1712ec…171480 Dummy {f00=0x0036, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R LPOP 0XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP !> A n : @ j! P P !> A n
0x171480…171614 (4, 279) Opaque[0x194]
0x171614…1717a8 # DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1960, f03=0x0000}
0x171614…1717a8 IdxSect {
0x171614…1717a8 f00 = 0x00cb // 0x171614 @0x0
0x171614…1717a8 f01 = 0x0002 // 0x171616 @0x2
0x171614…1717a8 gno = [ // 0x171618 @0x4
0x171614…1717a8 [0x00]: C0x00cb.0x0.0
0x171614…1717a8 ]
0x171614…1717a8 }
0x1717a8…17193c Dummy {f00=0x00cb, f01=0x018e, 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; P02; PTDC=T02; PLC=01L; PTDC=T04; PLC=01L; P00;
0x17193c…171ad0 Dummy {f00=0x00cb, f01=0x018e, f02=» PLC=01L; P00; PT; P01; * PTID=C0; 6 PTCL=A0; F PLEV=60; V P01; f PTDC=T05; r PLC=02L; P00; PC; P00; P02; PSDC=S02; PSDC=S03; U; 009; UBF; 003;
0x171ad0…171c64 Dummy {f00=0x00cb, f01=0x003c, f02=» 003; UT2; 003; UQQ; ( P003; 4; 6 PTCL=A0; F PLEV=60; V P01; f PTDC=T05; r PLC=02L; P00; PC; P00; P02; PSDC=S02; PSDC=S03; U; 009; UBF; 003;
0x171c64…171df8 Dummy {f00=0x00cb, f01=0x2008, f02=» UT2; 003; UQQ; ( P003; 4; 6 PTCL=A0; F PLEV=60; V P01; f PTDC=T05; r PLC=02L; P00; PC; P00; P02; PSDC=S02; PSDC=S03; U; 009; UBF; 003;
0x171df8…171f8c Dummy {f00=0x00cb, f01=0x0190, f02=» X (P )` 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 8 V Y 8 : " P X & V ( P ) : : )` "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : X : X ( T X & V H " V Y : X $
0x171f8c…172120 Dummy {f00=0x00cb, f01=0x0190, f02=» *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y W Y ! P W V Y + V Y : : 2' " P T
0x172120…172dc0 (5, 0) DirGranule ((5, 0)) {
0x172120…172dc0 DirEnt {nam=»M:DEMO«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0a10, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»M:DEMO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a18, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b80, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c10, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c38, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d08, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e70, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e80, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e90, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e98, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ea0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f58, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fa8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1658, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c68, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1090, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1468, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1560, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMOPCL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1558, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b98, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1510, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15e0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1610, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1628, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1240, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1698, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1778, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1798, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17a8, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18a0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVT103«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18d0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18e0, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1900, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x172120…172dc0 DirEnt {nam=»M:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0690, f03=0x0000}
0x172120…172dc0 }
0x172dc0…172f54 (5, 1) Opaque[0x194]
0x172f54…1730e8 # DirEnt {nam=»M:DEMO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0a18, f03=0x0000}
0x172f54…1730e8 IdxSect {
0x172f54…1730e8 f00 = 0x0050 // 0x172f54 @0x0
0x172f54…1730e8 f01 = 0x0014 // 0x172f56 @0x2
0x172f54…1730e8 gno = [ // 0x172f58 @0x4
0x172f54…1730e8 [0x00]: C0x0050.0x3.0
0x172f54…1730e8 [0x01]: C0x0058.0x0.0
0x172f54…1730e8 [0x02]: C0x0058.0x1.0
0x172f54…1730e8 [0x03]: C0x0058.0x2.0
0x172f54…1730e8 [0x04]: C0x0058.0x3.0
0x172f54…1730e8 [0x05]: C0x005a.0x0.0
0x172f54…1730e8 [0x06]: C0x005a.0x2.0
0x172f54…1730e8 [0x07]: C0x005a.0x3.0
0x172f54…1730e8 [0x08]: C0x005b.0x0.0
0x172f54…1730e8 [0x09]: C0x005b.0x1.0
0x172f54…1730e8 ]
0x172f54…1730e8 }
0x1730e8…17327c Dummy {f00=0x0050, 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
0x17327c…173410 Dummy {f00=0x0050, 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
0x173410…1735a4 Dummy {f00=0x0050, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR MOV ST8000,/S,TOSSWORK
0x1735a4…173738 Dummy {f00=0x0050, f01=0x0190, f02=»,LKMAL SCR MOV CTABX,/S,TOSSWORK KPF /S,CTABX 8 SCR L MOV DSKSUB,/S,TOSSWORK X KPF /S,DSKSUB v SCR LED DSKSUB !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ (
0x173738…1738cc Dummy {f00=0x0050, f01=0x0190, f02=» SCR LED SYSTAB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ R ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ~ !!EN ASM /S KPF /O KPF /S SCR LED TDISP ( #!!CH $$CRE
0x1738cc…173a60 Dummy {f00=0x0050, f01=0x0190, f02=»M /S KPF /O KPF /S SCR ( LED LRPINT 4 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ F ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ r ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x173a60…173bf4 (5, 2) Dummy {f00=0x0058, f01=0x018e, f02=»2 EQU 0$$ v !!EN ASM /S KPF /O , KPF /S : SCR H LED MSUBS T ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ f ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF
0x173bf4…173d88 Dummy {f00=0x0058, f01=0x0190, f02=» j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED TOSSIO v ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x173d88…173f1c Dummy {f00=0x0058, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED SYSLDA ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$C
0x173f1c…1740b0 Dummy {f00=0x0058, f01=0x0190, f02=»U 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H !!EN t ASM /S KPF /O KPF /S SCR LED DRSW01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x1740b0…174244 Dummy {f00=0x0058, f01=0x0190, f02=»D ST8000 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ < ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ h !!EN ASM /S KPF /O KPF /S SCR MOV DVTKB,/S,TOSSWORK KPF /S,DVTKB
0x174244…1743d8 Dummy {f00=0x0058, f01=0x018e, f02=»MOV DVTDY,/S,TOSSWORK KPF /S,DVTDY SCR 2 MOV DVTT1,/S,TOSSWORK > KPF /S,DVTT1 SCR p MOV DTTP03,/S,TOSSWORK | KPF /S,DTTP03 SCR INC DTTP03,TOSSWORK KPF /O LED DTTP03 ( #!!CH $$CREDIT EQ
0x1743d8…17456c Dummy {f00=0x0058, f01=0x0190, f02=» KPF /O KPF /S SCR $ MOV DRKB03,/S,TOSSWORK 0 KPF /S,DRKB03 N SCR d MOV DRGP01,/S,TOSSWORK p KPF /S,DRGP01 SCR MOV DRDI01,/S,TOSSWORK KPF /S,DRDI01 SCR MOV DRDY01,/S,TOSSWORK
0x17456c…174700 Dummy {f00=0x0058, f01=0x0190, f02=»F /S,DRTP03 SCR MOV DRTW01,/S,TOSSWORK KPF /S,DRTW01 > SCR T MOV DRFD01,/S,TOSSWORK ` KPF /S,DRFD01 ~ SCR LED DRKB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$
0x174700…174894 (5, 3) Dummy {f00=0x0058, f01=0x0190, f02=»1$$ !!CH $$ X:J$$ 080$$ !!CH $$ X:K$$ 50$$ ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x174894…174a28 Dummy {f00=0x0058, f01=0x0190, f02=»0$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 0$$ & !!CH $$ X:H$$ 123$$ @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O
0x174a28…174bbc Dummy {f00=0x0058, f01=0x0190, f02=» ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 0 !!EN ASM /S h KPF /O v KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:
0x174bbc…174d50 Dummy {f00=0x0058, f01=0x0190, f02=»EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ J !!EN v ASM /S KPF /O KPF /S SCR LED DRLT01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:
0x174d50…174ee4 Dummy {f00=0x0058, f01=0x0190, f02=»PAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN @ ASM /S L KPF /O Z KPF /S h SCR v LED DRTP03 !!CH $$ X:A$$ 06$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$
0x174ee4…175078 Dummy {f00=0x0058, f01=0x0190, f02=»PAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN @ ASM /S L KPF /O Z KPF /S h SCR v LED DRTW01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 040$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x175078…17520c Dummy {f00=0x0058, f01=0x0190, f02=»KPF /S SCR LED DRFD01 !!CH $$ X:A$$ 1$$ , !!CH $$ X:B$$ 1$$ F !!CH $$ X:C$$ 0$$ ` !!CH $$ X:D$$ 0$$ z !!CH $$ X:E$$ 300$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #
0x17520c…1753a0 Dummy {f00=0x0058, f01=0x0190, f02=» KPF /S,EBCDIC SCR LED EBCDIC & !!DL 34,65 8 !!DL 75,91 J !!EN ASM /S h KPF /O v KPF /S SCR LED DRKB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:
0x1753a0…175534 (5, 4) Dummy {f00=0x0058, f01=0x018e, f02=»$ !!CH $$ X:J$$ 080$$ !!CH $$ X:K$$ 50$$ & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ @ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ l ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LE
0x175534…1756c8 Dummy {f00=0x0058, f01=0x0190, f02=» DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 " DATA 0, @ !!EN P ASM /S KPF /O j KPF /S x SCR LED DRSW01 !!CH $$ X:B$$ 01$$ !!CH $$ X:C$$ 00$$ !!CH $$ X:D$$ 00$$ !!CH $$ X:E$$ 01$$
0x1756c8…17585c Dummy {f00=0x0058, f01=0x0190, f02=» !!EN ASM /S KPF /O KPF /S , SCR : MOV TIMER,/S,TOSSWORK F KPF /S,TIMER d SCR x MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV TMMLKM,/S,TOSSWORK KPF /S,TMMLKM SCR MOV TL
0x17585c…1759f0 Dummy {f00=0x0058, f01=0x0190, f02=»TOSSWORK KPF /S,MONTIM SCR & MOV TOSSFM,/S,TOSSWORK 2 KPF /S,TOSSFM P SCR f LED TIMER r ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x1759f0…175b84 Dummy {f00=0x0058, f01=0x0190, f02=»MUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN P ASM /S KPF /O j KPF /S x SCR LED TMMLKM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU85
0x175b84…175d18 Dummy {f00=0x0058, f01=0x0190, f02=»$CREDIT EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ D !!EN p ASM /S | KPF /O KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMU
0x175d18…175eac Dummy {f00=0x0058, f01=0x0190, f02=»NTIM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 8 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ d !!EN ASM /S KPF /O KPF /S SCR LED TOSSFM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x175eac…176040 Dummy {f00=0x0058, f01=0x0190, f02=»KPF /S SCR LED LKMAL !!DL 019 , !!DL 022 < !!DL 027 L !!DL 028 !!DL 042 l DATA 00 | !!DL 045 DATA 00 !!DL 050 !!DL 051 !!EN ASM /S KPF /O
0x176040…1761d4 (5, 5) Dummy {f00=0x0058, f01=0x0190, f02=» MOV TIODM,/S,TOSSWORK KPF /S,TIODM " SCR 6 MOV DMTASK,/S,TOSSWORK B KPF /S,DMTASK ` SCR v MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR MOV DMOPCL,/S,TOSSWORK KPF /S,DMOPCL SCR MOV D
0x1761d4…176368 Dummy {f00=0x0058, f01=0x0190, f02=»WORK ~ KPF /S,DFTAB SCR MOV DMSUBX,/S,TOSSWORK , KPF /S,DMSUBX J SCR ` MOV ADDMOD,/S,TOSSWORK l KPF /S,ADDMOD SCR MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD SCR MOV MPYMOD,/S,TOSSWORK
0x176368…1764fc Dummy {f00=0x0058, f01=0x0190, f02=»,DMSUBR SCR LED TIODM !!CH $$ X:A$$ 00001$$ . ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SC
0x1764fc…176690 Dummy {f00=0x0058, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ! ( !!EN ! T ASM /S ! ` KPF /O ! n KPF /S ! | SCR ! LED DMTASK ! !!CH $$ X:B$$ 00001$$ ! !!CH $$ X:C$$ 00007$$ ! ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x176690…176824 Dummy {f00=0x0058, f01=0x0190, f02=»KPF /S ! SCR " LED DFTAB " !!DL 022 " , !!DL 023 " < !!DL 024 " L !!DL 026 " !!DL 027 " l !!IL 29 " | DATA /0000,/0000' " !!IL 30 " DATA /0101,/0101' " !!EN " ASM /S " KPF /O " KPF /S " SC
0x176824…1769b8 Dummy {f00=0x0058, f01=0x0190, f02=»0$$CREDIT EQU 1$$ " ~ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ # ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ # F !!EN # r ASM /S # ~ KPF /O # KPF /S # SCR # LED DMOPCL # !!CH $$ X:B$$ 00001$$ # ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x1769b8…176b4c Dummy {f00=0x0058, f01=0x0190, f02=»KPF /S # SCR $ LED DMINIT $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ $ , ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ $ X ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN $ ASM /S $ KPF /O $ KPF /S $ SCR $ LED DMOPCL $ ( #!!CH
0x176b4c…176ce0 Dummy {f00=0x0058, f01=0x0190, f02=» ASM /S % KPF /O % KPF /S % SCR % . LED DMSUBX % : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ % L ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ % x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ % !!EN % ASM /S % KPF /O % KPF /S % SC
0x176ce0…176e74 (5, 6) Dummy {f00=0x005a, f01=0x0190, f02=»$CPU852 EQU 0$$ % | !!EN & ASM /S & $ KPF /O & 2 KPF /S & @ SCR & N LED DSUMOD & Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ & l ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ & ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ & !!EN & ASM /S &
0x176e74…177008 Dummy {f00=0x005a, f01=0x0190, f02=»1$$ & p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ' !!EN ' 8 ASM /S ' D KPF /O ' R KPF /S ' ` SCR ' n LED DIVMOD ' z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ' ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x177008…17719c Dummy {f00=0x005a, f01=0x0190, f02=»!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ' ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( , !!EN ( X ASM /S ( d KPF /O ( r KPF /S ( SCR ( MOV FMTASK,/S,TOSSWORK ( KPF /S,FMTASK ( SCR ( LED FMTASK ( ( #!!CH $$CREDIT EQU 0$$CREDIT
0x17719c…177330 Dummy {f00=0x005a, f01=0x018e, f02=» ( KPF /S ) SCR ) LED DRTW01 ) " !!CH $$ X:F$$ /5F5E$$ ) 4 !!CH $$ X:G$$ /0D00$$ ) R !!EN ) p ASM /S ) | KPF /O ) KPF /S ) SCR ) LED SYSTAB ) !!CH $$IHINPT$$TRAP$$ ) !!CH $$ X:A$$ 00005$$ ) !!CH $$
0x177330…1774c4 Dummy {f00=0x005a, f01=0x0190, f02=» !!CH $$ X:D$$ 00006$$ * !!CH $$ X:F$$ 00118$$ * " !!DL 85 * @ !!DL 123 * P DATA ILLINT * ` !!DL 124 * DATA ILLINT * !!DL 125 * DATA ILLINT * !!DL 126 * DATA ILLINT
0x1774c4…177658 Dummy {f00=0x005a, f01=0x0190, f02=» ILLINT * !!DL 132 + DATA ILLINT + !!DL 133 + @ DATA ILLINT + P !!DL 134 + p DATA ILLINT + !!DL 135 + DATA ILLINT + !!DL 136 + DATA ILLINT + !!DL 138
0x177658…1777ec Dummy {f00=0x005a, f01=0x018e, f02=»!!DL 142 + DATA ILLINT , !!DL 149 , 0 DATA ILLINT , @ !!DL 150 , ` DATA ILLINT , p !!DL 155 , DATA ILLINT , !!DL 156 , DATA ILLINT , !!DL 159 ,
0x1777ec…177980 Dummy {f00=0x005a, f01=0x0190, f02=» LED PFTAB - !!IL 12 - !!IL 41 - & !!DL 043 - 6 !!DL 044 - F !!DL 046 - V !!DL 047 - f !!DL 048 - v !!DL 050 - !!DL 051 - !!DL 052 - !!DL 053 - !!DL 054 - !!DL 057 - !!DL 058 - !!DL 059 - !!
0x177980…177b14 (5, 7) Dummy {f00=0x005a, f01=0x0190, f02=»PAG EQU 0$$MMUPAG EQU 1$$ - ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ . " !!CH $$DVTKB$$DVKB00$$ . N !!CH $$KBAD$$KBAD3$$ . l !!CH $$/1111$$/1100$$ . !!CH $$BCA$$FF0F$$ . !!CH $$ED0$$BBBA$$ . " !!CH $$0 CODE $$CTAB01 CODE $$ . !!CH $$E
0x177b14…177ca8 Dummy {f00=0x005a, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ / ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ / 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ / !!CH $$DVTDI$$DVDI00$$ / !!CH $$2010$$0000$$ / !!CH $$/1111$$/9010$$ / !!EN / ASM /S / KPF /O /
0x177ca8…177e3c Dummy {f00=0x005a, f01=0x018e, f02=» $$CPU852 EQU 1$$CPU852 EQU 0$$ / !!CH $$DVTDY$$DVDY00$$ 0 ( !!CH $$/ABC$$/1850$$ 0 F !!CH $$/1111$$/C020$$ 0 b !!EN 0 ASM /S 0 KPF /O 0 KPF /S 0 SCR 0 LED DVTKB 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 0 ( #!!CH $$M
0x177e3c…177fd0 Dummy {f00=0x005a, f01=0x0190, f02=» !!CH $$/1111$$/1100$$ 1 !!CH $$BCA$$FFFF$$ 1 " !!CH $$ED0$$BBBA$$ 1 < " !!CH $$0 CODE $$CTAB02 CODE $$ 1 V !!CH $$ECH$$DVDY01$$ 1 | !!DL 5 1 EXTRN CTAB02 1 !!EN 1 ASM /S 1 KPF /O 1 KPF /S 1 SCR 1 LED DVTDI
0x177fd0…178164 Dummy {f00=0x005a, f01=0x0190, f02=» !!CH $$DVTDI$$DVDI01$$ 2 !!CH $$2010$$0000$$ 2 " !!CH $$/1111$$/9010$$ 2 > !!EN 2 ASM /S 2 h KPF /O 2 v KPF /S 2 SCR 2 LED DVTDY 2 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 2 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 2 ( #
0x178164…1782f8 Dummy {f00=0x005a, f01=0x0190, f02=» 2 ASM /S 3 KPF /O 3 KPF /S 3 $ SCR 3 2 LED DVTKB 3 > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 3 P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 3 | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 3 !!CH $$DVTKB$$DVKB02$$ 3 !!CH $$KBAD$$KBAD3$$ 3
0x1782f8…17848c Dummy {f00=0x005a, f01=0x0190, f02=»$$DVDY02$$ 3 !!DL 5 4 EXTRN CTAB03 4 !!EN 4 6 ASM /S 4 B KPF /O 4 P KPF /S 4 ^ SCR 4 l LED DVTDI 4 x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 4
0x17848c…178620 Dummy {f00=0x005a, f01=0x0190, f02=»F /S 4 SCR 5 LED DVTDY 5 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 5 * ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 5 V ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 5 !!CH $$DVTDY$$DVDY02$$ 5 !!CH $$/ABC$$/0628$$ 5 !!CH $$/1111$$/D020$$ 5 !!
0x178620…1787b4 (5, 8) Dummy {f00=0x005a, f01=0x0190, f02=»PAG EQU 0$$MMUPAG EQU 1$$ 5 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 6 " !!CH $$DVTT1$$DVT103$$ 6 N !!CH $$/1111$$/A100$$ 6 l !!EN 6 ASM /S 6 KPF /O 6 KPF /S 6 SCR 6 LED DVTT1 6 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 (
0x1787b4…178948 Dummy {f00=0x005a, f01=0x0190, f02=»100$$ 6 !!EN 7 ASM /S 7 KPF /O 7 ( KPF /S 7 6 SCR 7 D LED DVTKB 7 P ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 7 b ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 7 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 7 !!CH $$DVTKB$$DVKB04$$ 7 !!CH
0x178948…178adc Dummy {f00=0x005a, f01=0x018e, f02=» 7 r !!CH $$ECH$$DVDY04$$ 8 !!DL 5 8 $ EXTRN CTAB05 8 2 !!EN 8 H ASM /S 8 T KPF /O 8 b KPF /S 8 p SCR 8 ~ LED DVTGP 8 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 8 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 8 ( #!!CH $$CPU852 EQU 1$
0x178adc…178c70 Dummy {f00=0x005a, f01=0x0190, f02=» SCR 9 LED DVTDI 9 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 9 " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ 9 N ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ 9 z !!CH $$DVTDI$$DVDI04$$ 9 !!CH $$2010$$0000$$ 9 !!CH $$/1111$$/9010$$ 9 !!EN 9
0x178c70…178e04 Dummy {f00=0x005a, f01=0x0190, f02=»0$$MMUPAG EQU 1$$ 9 ~ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ : !!CH $$DVTDY$$DVDY04$$ : F !!CH $$/ABC$$/1850$$ : d !!CH $$/1111$$/C000$$ : !!EN : ASM /S : KPF /O : KPF /S : SCR : LED TCLASS : !!IL 6 :
0x178e04…178f98 Dummy {f00=0x005a, f01=0x0190, f02=» DVDI01 : EXTRN DVDY01 ; EXTRN DVKB02 ; 0 EXTRN DVDI02 ; P EXTRN DVDY02 ; p EXTRN DVT103 ; EXTRN DVKB04 ; EXTRN DVGP04 ; EXTRN DVDI04
0x178f98…17912c Dummy {f00=0x005a, f01=0x018e, f02=»02 ; | DATA TC03 < DATA TC04 < ( !!IL 12 < F TC00 DATA TC00E-* < V DATA /0020 < x DATA DVKB00 < DATA /00410 < DATA DVDI00 < DATA
0x17912c…1792c0 Dummy {f00=0x005a, f01=0x0190, f02=» < v DATA DVKB01 = DATA /00411 = ( DATA DVDI01 = H DATA /00501 = h DATA DVDY01 = TC01E EQU * = TC02 DATA TC02E-* = DATA /00201 =
0x1792c0…179454 (5, 9) Dummy {f00=0x005b, f01=0x018e, f02=»ATA DVDY02 = TC02E EQU * > TC03 DATA TC03E-* > 2 DATA /00302 > T DATA DVT103 > t DATA /01313 > DATA DVT103 > TC03E EQU * > TC04 DATA TC04E-
0x179454…1795e8 Dummy {f00=0x005b, f01=0x0190, f02=» DATA /00414 ? DATA DVDI04 ? $ DATA /00504 ? D DATA DVDY04 ? d TC04E EQU * ? !!EN ? ASM /S ? KPF /O ? KPF /S ? SCR ? LED SCLASS ? !!IL 6 ?
0x1795e8…17977c Dummy {f00=0x005b, f01=0x0190, f02=» DATA TC01 ? DATA TC02 @ DATA TC03 @ < !!IL 12 @ Z TC00 DATA TC00E-* @ j DATA /00211 @ DATA DWTW01 @ DATA /00311 @ DATA DWTW01 @
0x17977c…179910 Dummy {f00=0x005b, f01=0x0190, f02=» EQU * @ TC02 DATA TC02E-* A DATA /00CA1 A 8 DATA DWDM01 A X TC02E EQU * A x TC03 DATA TC03E-* A DATA /00F81 A DATA DWFD01 A DATA /01F91 A
0x179910…179aa4 Dummy {f00=0x005b, f01=0x018e, f02=»03E EQU * A !!EN B ASM /S B & KPF /O B 4 KPF /S B B SCR B P LED MONTAB B !!IL 19 B n **** B ~ EXTRN CTAB01 B EXTRN CTAB02 B EXTRN CTAB03 B EXTRN CTAB05 B !!DL 021 B !!DL 022 B !!DL 0
0x179aa4…179c38 Dummy {f00=0x005b, f01=0x0190, f02=» !!IL 50 C **** C DATA CTAB01 C DATA CTAB02 C 6 DATA CTAB03 C L DATA CTAB05 C b !!DL 052 C x !!DL 053 C !!DL 055 C !!DL 059 C !!DL 060 C !!DL 061 C !!DL 062 C !!DL 063 C !!DL 065 C
0x179c38…179dcc Dummy {f00=0x005b, f01=0x0040, f02=»STAB C LKE M D KPF /L,M:DEMO D ASG /E0,TY10 D 0B02 C 6 DATA CTAB03 C L DATA CTAB05 C b !!DL 052 C x !!DL 053 C !!DL 055 C !!DL 059 C !!DL 060 C !!DL 061 C !!DL 062 C !!DL 063 C !!DL 065 C
0x179dcc…179f60 Dummy {f00=0x005b, f01=0x2008, f02=» E LKE M D KPF /L,M:DEMO D ASG /E0,TY10 D 0B02 C 6 DATA CTAB03 C L DATA CTAB05 C b !!DL 052 C x !!DL 053 C !!DL 055 C !!DL 059 C !!DL 060 C !!DL 061 C !!DL 062 C !!DL 063 C !!DL 065 C
0x179f60…17a0f4 (5, 10) Dummy {f00=0x005b, f01=0x0190, f02=» N N N $ & 01 N 4 & N D 999999 N R " a1 N h & N x & k N & N & N ( N (0 N ,0 N 00 N 40 N
0x17a0f4…17a288 Dummy {f00=0x005b, f01=0x0002, f02=» h
0x17a288…17a41c Dummy {f00=0x005b, f01=0x0190, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWDM01 P EXTRN DWFD01 P* P* P* P* PSCLASS DATA TCLASE-* P
0x17a41c…17a5b0 Dummy {f00=0x005b, f01=0x0190, f02=» P DATA /00C0 P DATA DWDM01 $ PTC00E EQU * D PTC01 DATA TC01E-* ` P DATA /00CA P DATA DWDM01 PTC01E EQU * PTC02 DATA TC02E-* P
0x17a5b0…17a744 Dummy {f00=0x005b, f01=0x4074, f02=»A DWFD01 P DATA /03FB P DATA DWFD01 2 PTC02E EQU * H P END d@ p01E-* ` P DATA /00CA P DATA DWDM01 PTC01E EQU * PTC02 DATA TC02E-* P
0x17a744…17a8d8 Dummy {f00=0x005b, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x17a8d8…17aa6c Dummy {f00=0x005b, f01=0x0190, f02=» LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * $ " P LD A2,TABBE GET PAGE ADDRESS 8 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ^ P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P
0x17aa6c…17ac00 Dummy {f00=0x005b, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x17ac00…17ad94 (5, 11) Opaque[0x194]
0x17ad94…17af28 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c0, f03=0x0000}
0x17ad94…17af28 IdxSect {
0x17ad94…17af28 f00 = 0x001e // 0x17ad94 @0x0
0x17ad94…17af28 f01 = 0x0004 // 0x17ad96 @0x2
0x17ad94…17af28 gno = [ // 0x17ad98 @0x4
0x17ad94…17af28 [0x00]: C0x001e.0x0.0
0x17ad94…17af28 [0x01]: C0x001e.0x3.0
0x17ad94…17af28 ]
0x17ad94…17af28 }
0x17af28…17b0bc Dummy {f00=0x001e, f01=0x018e, f02=» 0 P IDENT CTAB01 6236/71/72 CONVERSION TABLES L P ENTRY CTAB01 8 P ENTRY CTAB02 P ENTRY CTAB03 P ENTRY CTAB05 L P**************************************************************
0x17b0bc…17b250 Dummy {f00=0x001e, f01=0x0190, f02=» L P************************************************************************ PCTAB05 EQU * X PCTAB03 EQU * l PCTAB02 EQU * L PCTAB01 DATA FUNCTN,FUNCTN,UNSHFT,SHIFT,UNSHFT,SHIFT L P************************************
0x17b250…17b3e4 Dummy {f00=0x001e, f01=0x0190, f02=» TABLE FOR THE FUNCTION CLUSTER * L P* * D L P************************************************************************ L PFUNCTN DATA /8C83,/878B,/8188,/8A84,
0x17b3e4…17b578 Dummy {f00=0x001e, f01=0x0190, f02=»/9980,/9394,/959A L P************************************************************************ D L P* * L P* CONVERSION TABLE FOR UNSHIFTED CHA
0x17b578…17b70c Dummy {f00=0x001e, f01=0x0190, f02=»************************************************************ L PUNSHFT DATA /20FF,/FFFF,/FFFF,/FF60,/3C3C,/FF40,/2C2D,/2EFF D L P DATA /3031,/3233,/3435,/3637,/3839,/903B,/3C3D,/3E3F L P DATA /2741,/4243,/4445,/4647,/4849,
0x17b70c…17b8a0 Dummy {f00=0x001e, f01=0x0190, f02=»************************************************************ L P* * D L P* CONVERSION TABLE FOR SHIFTED CHARACTERS * L P*
0x17b8a0…17ba34 (5, 12) Dummy {f00=0x001e, f01=0x0190, f02=»20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2425,/262F,/2829,/D03B,/3C3D,/3E3F D L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,
0x17ba34…17bbc8 Dummy {f00=0x001e, f01=0x4048, f02=» @ DA /3D21,/2223,/2425,/262F,/2829,/D03B,/3C3D,/3E3F D L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,
0x17bbc8…17bd5c Dummy {f00=0x001e, f01=0x2008, f02=» T L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF d L P************************************************************************ L P END
0x17bd5c…17bef0 Dummy {f00=0x001e, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x17bef0…17c084 Dummy {f00=0x001e, 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 >
0x17c084…17c218 Dummy {f00=0x001e, f01=0x0190, f02=» 3x ^ h 5 3t N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3+ . + + $ Bcl*:, - * - + , + ) - - - - 2 -(+ + ,Z,Hc - ) . x( < d N v
0x17c218…17c3ac Dummy {f00=0x001e, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x17c3ac…17c540 Dummy {f00=0x001e, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x17c540…17c6d4 (5, 13) Opaque[0x194]
0x17c6d4…17c868 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x17c6d4…17c868 IdxSect {
0x17c6d4…17c868 f00 = 0x005c // 0x17c6d4 @0x0
0x17c6d4…17c868 f01 = 0x00a4 // 0x17c6d6 @0x2
0x17c6d4…17c868 gno = [ // 0x17c6d8 @0x4
0x17c6d4…17c868 [0x00]: C0x005c.0x1.0
0x17c6d4…17c868 [0x01]: C0x005c.0x2.0
0x17c6d4…17c868 [0x02]: C0x005d.0x0.0
0x17c6d4…17c868 [0x03]: C0x005d.0x2.0
0x17c6d4…17c868 [0x04]: C0x005e.0x0.0
0x17c6d4…17c868 [0x05]: C0x0081.0x2.0
0x17c6d4…17c868 [0x06]: C0x0081.0x1.0
0x17c6d4…17c868 [0x07]: C0x0081.0x3.0
0x17c6d4…17c868 [0x08]: C0x0082.0x1.0
0x17c6d4…17c868 [0x09]: C0x0060.0x3.0
0x17c6d4…17c868 [0x0a]: C0x0083.0x1.0
0x17c6d4…17c868 [0x0b]: C0x0062.0x2.0
0x17c6d4…17c868 [0x0c]: C0x0086.0x2.0
0x17c6d4…17c868 [0x0d]: C0x0086.0x3.0
0x17c6d4…17c868 [0x0e]: C0x008b.0x0.0
0x17c6d4…17c868 [0x0f]: C0x008b.0x1.0
0x17c6d4…17c868 [0x10]: C0x008b.0x2.0
0x17c6d4…17c868 [0x11]: C0x008e.0x3.0
0x17c6d4…17c868 [0x12]: C0x008f.0x0.0
0x17c6d4…17c868 [0x13]: C0x008f.0x1.0
0x17c6d4…17c868 [0x14]: C0x0071.0x3.0
0x17c6d4…17c868 [0x15]: C0x0073.0x0.0
0x17c6d4…17c868 [0x16]: C0x0073.0x3.0
0x17c6d4…17c868 [0x17]: C0x0076.0x3.0
0x17c6d4…17c868 [0x18]: C0x009c.0x0.0
0x17c6d4…17c868 [0x19]: C0x009b.0x3.0
0x17c6d4…17c868 [0x1a]: C0x0079.0x0.0
0x17c6d4…17c868 [0x1b]: C0x009e.0x0.0
0x17c6d4…17c868 [0x1c]: C0x009e.0x1.0
0x17c6d4…17c868 [0x1d]: C0x007d.0x2.0
0x17c6d4…17c868 [0x1e]: C0x009e.0x3.0
0x17c6d4…17c868 [0x1f]: C0x009f.0x0.0
0x17c6d4…17c868 [0x20]: C0x0092.0x3.0
0x17c6d4…17c868 [0x21]: C0x00a0.0x3.0
0x17c6d4…17c868 [0x22]: C0x00a1.0x0.0
0x17c6d4…17c868 [0x23]: C0x0096.0x2.0
0x17c6d4…17c868 [0x24]: C0x0098.0x2.0
0x17c6d4…17c868 [0x25]: C0x00a2.0x0.0
0x17c6d4…17c868 [0x26]: C0x00a2.0x1.0
0x17c6d4…17c868 [0x27]: C0x00a3.0x2.0
0x17c6d4…17c868 [0x28]: C0x00a3.0x3.0
0x17c6d4…17c868 [0x29]: C0x00a4.0x0.0
0x17c6d4…17c868 [0x2a]: C0x00a5.0x2.0
0x17c6d4…17c868 [0x2b]: C0x00a6.0x0.0
0x17c6d4…17c868 [0x2c]: C0x00a6.0x3.0
0x17c6d4…17c868 [0x2d]: C0x00a1.0x2.0
0x17c6d4…17c868 [0x2e]: C0x00b7.0x3.0
0x17c6d4…17c868 [0x2f]: C0x00b8.0x0.0
0x17c6d4…17c868 [0x30]: C0x00a7.0x1.0
0x17c6d4…17c868 [0x31]: C0x00b9.0x3.0
0x17c6d4…17c868 [0x32]: C0x00ba.0x0.0
0x17c6d4…17c868 [0x33]: C0x00ba.0x1.0
0x17c6d4…17c868 [0x34]: C0x00a8.0x1.0
0x17c6d4…17c868 [0x35]: C0x00a8.0x3.0
0x17c6d4…17c868 [0x36]: C0x00ba.0x2.0
0x17c6d4…17c868 [0x37]: C0x00ba.0x3.0
0x17c6d4…17c868 [0x38]: C0x00ab.0x2.0
0x17c6d4…17c868 [0x39]: C0x00ae.0x3.0
0x17c6d4…17c868 [0x3a]: C0x00af.0x1.0
0x17c6d4…17c868 [0x3b]: C0x00b0.0x0.0
0x17c6d4…17c868 [0x3c]: C0x00b0.0x3.0
0x17c6d4…17c868 [0x3d]: C0x00b1.0x2.0
0x17c6d4…17c868 [0x3e]: C0x00bc.0x1.0
0x17c6d4…17c868 [0x3f]: C0x00bc.0x2.0
0x17c6d4…17c868 [0x40]: C0x00c5.0x1.0
0x17c6d4…17c868 [0x41]: C0x00c5.0x2.0
0x17c6d4…17c868 [0x42]: C0x007f.0x1.0
0x17c6d4…17c868 [0x43]: C0x0091.0x3.0
0x17c6d4…17c868 [0x44]: C0x0092.0x1.0
0x17c6d4…17c868 [0x45]: C0x00b4.0x2.0
0x17c6d4…17c868 [0x46]: C0x00b5.0x0.0
0x17c6d4…17c868 [0x47]: C0x00bc.0x0.0
0x17c6d4…17c868 [0x48]: C0x00bd.0x0.0
0x17c6d4…17c868 [0x49]: C0x00c4.0x3.0
0x17c6d4…17c868 [0x4a]: C0x00c5.0x3.0
0x17c6d4…17c868 [0x4b]: C0x00c6.0x1.0
0x17c6d4…17c868 [0x4c]: C0x00c6.0x3.0
0x17c6d4…17c868 [0x4d]: C0x00c7.0x1.0
0x17c6d4…17c868 [0x4e]: C0x00c8.0x1.0
0x17c6d4…17c868 [0x4f]: C0x0108.0x2.0
0x17c6d4…17c868 [0x50]: C0x0109.0x0.0
0x17c6d4…17c868 [0x51]: C0x010a.0x0.0
0x17c6d4…17c868 ]
0x17c6d4…17c868 }
0x17c868…17c9fc Dummy {f00=0x005c, f01=0x0190, f02=» 0 F IDENT CTAB01 6236/71/72 CONVERSION TABLES & " CTAB01K CTAB02 CTAB03 CTAB05 8 CTAB05 b CTAB03 v CTAB02 CTAB01K , ( 0123 , ( ! 456789 `<<
0x17c9fc…17cb90 Dummy {f00=0x005c, f01=0x4070, f02=»BCDEFGHIJK r LMNOPQRSTUVWXYZ{|}* 4 t 4 t 6 Z@ l b CTAB03 v CTAB02 CTAB01K , ( 0123 , ( ! 456789 `<<
0x17cb90…17cd24 Dummy {f00=0x005c, f01=0xc0b0, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x17cd24…17ceb8 Dummy {f00=0x005c, f01=0x4166, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d DWTW01 x DWDM01 , ( " ! 1 DWFD01 * & "H
0x17ceb8…17d04c Dummy {f00=0x005c, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x17d04c…17d1e0 Dummy {f00=0x005c, f01=0x418a, f02=» INTRT4 SYSLOD CTAB01 0 CTAB02 B * & T CTAB03 CTAB05 KBAD3 GPADN DIADN DYADN TPAD3 , (
0x17d1e0…17d374 (5, 14) Dummy {f00=0x005c, f01=0xc01a, f02=» 4 @ SYSLOD KBAD3 0 KBADN @ * & P TPADN ~ GPADN DNADN DIADN DYADN MSADN ODADN TPAD3 , (
0x17d374…17d508 Dummy {f00=0x005c, f01=0x0190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x17d508…17d69c Dummy {f00=0x005c, f01=0x0190, f02=» H X H | VOLADR < DWTOR 0 DWTVOL @ , ( 5 p ^ > X $ ^ R NVLCHK R DWTORD DWTNVL: * & Q$ W X Y :g H I , ( i ! P X
0x17d69c…17d830 Dummy {f00=0x005c, f01=0x0190, f02=»VOL SCTFWTC , ( Z.?AZ2 @ Q X " FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM NVLDMT , (
0x17d830…17d9c4 Dummy {f00=0x005c, f01=0x4042, f02=» w { }P P P P T t ,@ >" FWTEW1 P EWTVOL b FWTPAR t , ( $XJ ( I T E INXDWTL NVLTAB TTABFM NVLDMT , (
0x17d9c4…17db58 Dummy {f00=0x005c, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x17db58…17dcec Dummy {f00=0x005c, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x17dcec…17de80 Dummy {f00=0x005c, f01=0x0190, f02=» IHRTC ILLINTM IHTWN " , ( 2 CHLT1 b IHFDN r , ( , ( ! , ( 1
0x17de80…17e014 (5, 15) Dummy {f00=0x005d, f01=0x0190, f02=» r , ( q HALTN B R SCTMSZK j SCTSFA ~ SCTEFA SCTIPL SCTANO SCTADA , ( @
0x17e014…17e1a8 Dummy {f00=0x005d, f01=0x0190, f02=»PSZ SCTMMC SCTLAC " SCTMMPL 6 SCTLAP0 J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x17e1a8…17e33c Dummy {f00=0x005d, f01=0x4058, f02=» ~ _ " B@ T J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x17e33c…17e4d0 Dummy {f00=0x005d, f01=0x0190, f02=» J F IDENT TDISP REL 10.0 80-03-14 870105041000 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x17e4d0…17e664 Dummy {f00=0x005d, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x17e664…17e7f8 Dummy {f00=0x005d, f01=0x4048, f02=» > r W !W CP YP* ]P cU 2@ D TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x17e7f8…17e98c Dummy {f00=0x005d, f01=0x018e, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A$
0x17e98c…17eb20 Dummy {f00=0x005d, f01=0x0190, f02=» LKM030 H SWL48 * & 5 HP c P W A , LKMAL Z * & O V ( U P @ j LKMERR t HALTN LKMRQE z * & i V L U LKMQDI
0x17eb20…17ecb4 (5, 16) Dummy {f00=0x005d, f01=0x0190, f02=»FARC , ( A A Q ? > DISQUEA > , ( ? @ X@ ) A A _L A P PFINIT IHRTC , ( A A _^ A A QMJOB SWLXY , ( Q > ? A
0x17ecb4…17ee48 Dummy {f00=0x005d, f01=0x4140, f02=» 8 x FREBLK , ( K D Q Z P 0 9 " "_ * , ( e _, ? _ P H Z TIMQUE@ H H D ! %T 5P ;P ?W6 UV eP kV Q Q > < Q $
0x17ee48…17efdc Dummy {f00=0x005d, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x17efdc…17f170 Dummy {f00=0x005d, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x17f170…17f304 Dummy {f00=0x005d, f01=0x0190, f02=» J F IDENT MSUBS REL 10.0 80-03-14 870105041000 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2' IHRET8V IHRET2 IHRET18
0x17f304…17f498 Dummy {f00=0x005d, f01=0x018e, f02=» ! $P T I QMJOB J . TTMJOB @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA , ( Y $ W ? T T U U U TTB:ID TTB:SBM
0x17f498…17f62c Dummy {f00=0x005d, f01=0x0190, f02=» , ( B - 1_( U T P 0 U GETBLK 4 FREQUE H , ( _t ? @ T Z FREBLKL * & 0 A 1 Q Q > > 0 @ FNDDWT TTB:TD , ( 1 A P
0x17f62c…17f7c0 Dummy {f00=0x005d, f01=0x0190, f02=»CTTCT * & 3 R Y P _ W 8 X W ? ` , ( Q @ @ P $ H W < IHRET8V l l IHRET2 p IHRET18 t IHRTN v PFINIT x PFTAB , ( i W > > > > > > @ V ?
0x17f7c0…17f954 (5, 17) Dummy {f00=0x005e, f01=0x4122, f02=»TY , ( ! Y ^ _ ? RELPAG < RELPA2' P LKMERRD d A. v H D ! 4 $ 1P ;R SW [W gT$ T P T R #P , ( 5R ;P CW0 KW( ]P gW kW V
0x17f954…17fae8 Dummy {f00=0x005e, f01=0x0190, f02=» J F IDENT TTMJOB REL 10.0 80-03-14 870105041000 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTMJOB TTB:QLL TTB:ID R . * TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB ,
0x17fae8…17fc7c Dummy {f00=0x005e, f01=0x40d6, f02=»:ID TTB:ST TTB:PP " TTB:PW 6 TTB:SA J , ( ! #M 1 ^ TTB:TD ( A N @ MK TTB:MT TTB:CB ,
0x17fc7c…17fe10 Dummy {f00=0x005e, f01=0x8190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x17fe10…17ffa4 Dummy {f00=0x005e, f01=0x8190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x17ffa4…180138 Dummy {f00=0x005e, f01=0x8190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 " DWTTP $ DWTORD $ DWTNVL & DWTECH & DWTVOLA .
0x180138…1802cc Dummy {f00=0x005e, f01=0x8190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x1802cc…180460 Dummy {f00=0x005e, f01=0x8190, f02=» ! $ TIOERR L , LKMQDI @ , ( A ( , 0 4 8 < C C R QUEDEV f QUEFIL h TTB:STM , ( _ 8W T 8P Y ^ TTB:SA TDISP
0x180460…1805f4 (5, 18) Dummy {f00=0x0081, f01=0x8190, f02=» XF Y @ t , ( P R T X &P Xh I TTB:PW D , ( Y T # C C V , ( W O " # X Y ) , ( C C x # P Y GETBLKS QTJOB , (
0x1805f4…180788 Dummy {f00=0x0081, f01=0x8190, f02=» h , ( X $? P $ > > , ( 8 , ( F C h , ( F C > B R Q F ! P C TTB:MTO , ( > C > F :c" H ,
0x180788…18091c Dummy {f00=0x0081, f01=0x8190, f02=» j , ( U H Q X D B , ( $ T C x > C $ ) _ : DISENDA j , ( X 9BV X & X | , ( D C > X H U H B , ( P P $ # Q >
0x18091c…180ab0 Dummy {f00=0x0081, f01=0x8190, f02=»_2 B U X > ? , ( _ X T (@ ^ DC:MIN@ P , ( > > ? _ X T (@ X d , ( L U L Q M , ( X D D P ( ) TENDIO , (
0x180ab0…180c44 Dummy {f00=0x0081, f01=0x8190, f02=» h , ( c _ T " # p , ( " X L R P P P (@ 8 , ( ^ X P P # P T h FREBLK: * & P 0P 1 _ ACTOTPO & " W Y
0x180c44…180dd8 Dummy {f00=0x0081, f01=0xc12e, f02=» T P T W4 /P ` H D ! CT GP KW [P aR cP iT m s uP Q P GQ~ QP0 WP* H D !! mT yQL } U( Q2 T V UJ P PL 'Q -P GT OP }U h H D ! U Q4 P !P )P /T OP ]PJ R P P P P8 P0 P P
0x180dd8…180f6c Dummy {f00=0x0081, f01=0x018e, f02=» J F IDENT SYSLDM REL 10.0 80-03-31 870105041000 SYSLDMK R SYSLDMK d SCTSFAD x SYSBAS SCTEFA TCLASS( , ( I A SCLASSL SAV
0x180f6c…181100 Dummy {f00=0x0081, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x181100…181294 (5, 19) Dummy {f00=0x0081, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x181294…181428 Dummy {f00=0x0081, f01=0x0190, f02=» " A : FREQUE " SCTBLK 4 , ( eI 4 ` & @ 6 P F BUFSIZM v , ( } _ 3 S S V 8 V SYSBUFM , ( HB W 8 : @ @ , ( @T
0x181428…1815bc Dummy {f00=0x0081, f01=0x0190, f02=» COP W @ > 3 V @ 3 SAVE30M 0 SCTLAC B , ( @ B 3 @ D T NUMSEG , ( # $ S @ D F V @P , ( = @ 9h !RRP @ ! T SCTADA , (
0x1815bc…181750 Dummy {f00=0x0081, f01=0x0190, f02=» h * & " : @ SCTDMIL 6 , ( & @ @ J #D# P ; V H , ( _ : @ " P @ P 3 x , ( @ _ @ " P V B 3 , ( S 1 S 9J S ( 3 , (
0x181750…1818e4 Dummy {f00=0x0081, f01=0x0190, f02=»E19E , ( o N . !TTP " SAVE16 < , ( @H W P N =H N W R V < CR N SAVE17 ~ CONVRT , ( @T N =H N W T N =H N SAVE24 , ( H@ V W X ( @ % 5 T
0x1818e4…181a78 Dummy {f00=0x0081, f01=0x0190, f02=» " U " , ( 1 _2 P & , ( Q " U " V , ( m _2 V P * & @P R * & " S ( V X S =J
0x181a78…181c0c Dummy {f00=0x0081, f01=0x0190, f02=» N _ r bREL , ( H N $ !TTT , ( %D : . !TTP P , ( ?H " V W P * , ( Y P , ( w _ P W T
0x181c0c…181da0 Dummy {f00=0x0081, f01=0x0190, f02=» K T + Y@ V , ( T _f V P Y $ !TTX @ , ( @ T " P * & # @ : W N % @ P _ * & ; @ 0 R @ 2 , ( S W N R @
0x181da0…181f34 (5, 20) Dummy {f00=0x0081, f01=0x0190, f02=» l , ( $ A V W SAVE15 : * & W P P W ` L SAVE14P z , ( ( W b , ( G =h G V b V < , ( V ` P W `
0x181f34…1820c8 Dummy {f00=0x0081, f01=0x0190, f02=» $ ! | , ( TTX !CCT P V , ( @ 4 U " $ $ L , ( _. P V | , ( 4 U " $ $ SCTDCT , ( _. @ d @
0x1820c8…18225c Dummy {f00=0x0081, f01=0x0190, f02=» Q P W ` W b V b , ( k V < V ` _2 0 , ( U V ` * & 8 8 8 4 D P ^ @ , ( # P H I K , ( T + Y@
0x18225c…1823f0 Dummy {f00=0x0081, f01=0x0190, f02=» 3 @ " : W h , ( M V h F !SST W !AAT 0 SAVE06 ` , ( k W V 0 V N 0 V jP r SAVE07 , ( _ W l $ q > R P >b SYSLOD , ( W >b &
0x1823f0…182584 Dummy {f00=0x0081, f01=0x0190, f02=» h , ( pP V ` T @ 1 DWTSQ 8 , ( Q a r I r I r H , ( - $# P V l -W W D x , ( K @ V ` T @ 1 Q a , ( g : @ % P H I , (
0x182584…182718 Dummy {f00=0x0081, f01=0x0190, f02=» h , ( P @ @ @ D , ( (P W H $ I p % E 8 , ( , a : V h Q R h , ( - $ F !LLT # W j;I , ( K # ;b W 0;a W # T W jW , ( g # T
0x182718…1828ac Dummy {f00=0x0081, f01=0x0190, f02=» , ( Z t @ tT A t V INTSL 8 , ( W Y0 Z6 v @ vT A H , ( v V L >A 8T 9 0 x , ( @ 1 8 $; # V h ;c F * & + !AAP # $ < $ :
0x1828ac…182a40 Dummy {f00=0x0081, f01=0x0190, f02=» _ / P *_ , ( *T P _ .P _ / V * * & z U Y$ P W X V Z , ( z 3 % W INTLT1 , ( HP _ V XP V x ] |W * & @ x
0x182a40…182bd4 (5, 21) Dummy {f00=0x0082, f01=0x0190, f02=» (P ) @ v @ @ , ( u T " & , ( : N =H N V : N =H N V , ( V : &=H F V : F =H F , ( @ V : F =H F V : , ( @ P N =H N T
0x182bd4…182d68 Dummy {f00=0x0082, f01=0x0190, f02=» d v , ( ] * & t F @ R @ D $ D I:RSTEM F SCTIOE0 X * & y$ L ~ A CRT M " j SYSLDX H D !pC P # N / N G B WP@ P P V P T ;P$ MT wP {
0x182d68…182efc Dummy {f00=0x0082, f01=0x0190, f02=» T T W ` H D ! @ V W V P0 #U E MP0 Q _U P R T T 9P H D ! K a eP i Pd P$ P T 3P AR UWT cR W& T h H D !oJ P PT ! > )P 7 aT Tr P, U H D ! }
0x182efc…183090 Dummy {f00=0x0082, f01=0x4162, f02=» L H D !` P H V W R W PV Tp P T 1P8 AW( E H GW" MV H D ! ST qPD P( U P P: P W #Q )R =T WWR [T eW, iT uW T H D ! {T W R T W T T /P yT }P P T P$ P U P H D ! W P P W P #P
0x183090…183224 Dummy {f00=0x0082, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-05-29 870105041000 D @ JUMPY SYSLDX dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MULTY MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF D @ M:REL I:RSTE SAVE01 SAVE12B SAV
0x183224…1833b8 Dummy {f00=0x0082, f01=0x0190, f02=» SAVE18 SAVE19 SAVE20 SAVE21S SAVE220 v F B SAVE23 SAVE24V SAVE25 SAVE26 SAVE27 SAVE282 SAVE29 SAVE30 0 APPTYPN z I:RSTE * |REL $ W W " , ( 1 ; Z [ : : [ [
0x1833b8…18354c Dummy {f00=0x0082, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12B SAVE1
0x18354c…1836e0 Dummy {f00=0x0082, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x1836e0…183874 (5, 22) Dummy {f00=0x0060, f01=0x0190, f02=» j MMTAB TABBE MMEND , , ( > ERROR n MOVEY " SCTEFA , ( W Z A. c @ , ( @ + V W U R $ ) , (
0x183874…183a08 Dummy {f00=0x0060, f01=0x0190, f02=» , ( W ^< _@ V _P , ( V V : V 4 , ( J P r d , ( V U _ V , ( + Z K W W :K , ( K W r
0x183a08…183b9c Dummy {f00=0x0060, f01=0x0190, f02=» <B W |P v , ( @ v : $ V |P v $ , ( w v : V $ V l $ T , ( V M : W V , ( + R R > R W , ( K > <B V x
0x183b9c…183d30 Dummy {f00=0x0060, f01=0x0190, f02=» " D P t , ( W V P $;A^ D E , ( D P V P D , ( A P T E _J E _T t , ( + " D T E E D E , ( K % : " R ;B " , (
0x183d30…183ec4 Dummy {f00=0x0060, f01=0x0190, f02=»9a _ " ( ) 8 x , ( ( ) : " $ V P 9A _ 0 : MULTY H , ( W W W ?AP ^ 0 : W ; Z , ( V : : , SCTTCT , ( + X G : J @ 0 V , ( I @
0x183ec4…184058 Dummy {f00=0x0060, f01=0x0190, f02=» RETUR8 , ( 0 R P P B _ , ( : V ) v : 4 @ TTB:SA9 p * & P " D < , H H , ( M v b - I Y0 SCTSFA , ( : @ ` V
0x184058…1841ec Dummy {f00=0x0060, f01=0x0190, f02=» , ( U P _ " = D 4 , ( T u Q _n < ^ P = G 4 , ( V W d , ( $ V E J K _X V r * & @ V :B A V 9n A , ( @ @ A
0x1841ec…184380 Dummy {f00=0x0060, f01=0x0190, f02=» @ P P P P _ SCTPSZ ( , ( =" _ @ 9N @ :b @ :b : , ( W V W U j , ( w T 9BW P P , ( P V W U " @ Q V P , ( A.
0x184380…184514 (5, 23) Dummy {f00=0x0083, f01=0x0190, f02=»QUE , ( Y& P , ( ) S P 3 < SCTBUGY l , ( G _ 3 A. ~ SCTSTB , ( c@ @ j " @ W PFINIT , (
0x184514…1846a8 Dummy {f00=0x0083, f01=0x018e, f02=» V pT : r , ( N V l W H V ]" , ( . nT W v W n V ~P B , ( @ W x r , ( @ 9 _v V d , V , ( Y P _ N L % V d V f v , ( @ y
0x1846a8…18483c Dummy {f00=0x0083, f01=0x0190, f02=» , ( V x % V v % : V V , ( N 9k! P % _ 4 , ( V V W W r d , ( @ 9 W V v ) W b , ( Y@ G v ) - V , ( w W f
0x18483c…1849d0 Dummy {f00=0x0083, f01=0x0190, f02=»_ ` @ ` W W ~ , ( pP 2 V W % $ , ( R , T , ( A 3 " E R W ~ R , ( S R P R Xv _|W T : , ( QA s W x _ V P
0x1849d0…184b64 Dummy {f00=0x0083, f01=0x0190, f02=» H - t , ( V I " R E , ( R T E D E @ v D , ( + H v E P #_v W | t , ( K ;b W W t V b v , ( k ( v W p V ` $ W ` N C
0x184b64…184cf8 Dummy {f00=0x0083, f01=0x0190, f02=» .=H p GETNUM , ( N N : d $ SYSLDX T , ( 8" R _ ZY QY : " h , ( @ V H W z W | CRP , ( ' W ` ` H W d , ( B E 2 ;A @
0x184cf8…184e8c Dummy {f00=0x0083, f01=0x0190, f02=» " T @ N =H , ( N @ ) !TTXX !CC ( , ( T !UUT d W X , ( @ 2 .:H N P , ( V _ R :h " , ( ?
0x184e8c…185020 Dummy {f00=0x0083, f01=0x018e, f02=» @ W x , ( D V W W , ( ` " W p @ F , ( pP " 4X 1 v , ( R Z0 _ W l a w , ( 3 ` :A W V d 4 W P , (
0x185020…1851b4 (5, 24) Dummy {f00=0x0062, f01=0x0190, f02=» f x H D ! W> 2 0 . 1 2 C S Y -V 1W 5U AR w yQ@ R( $ H D !e P V U #V ' ] _Q aR m oV V W V p H D ! P P 7RR ?R GW kP P Pd PL P. V P T 1T H D
0x1851b4…185348 Dummy {f00=0x0062, f01=0x410a, f02=» W U T H D ! Q P P V !P4 ?P ] h } R T T" P D ' MV H D ! 0 [P U P V P P P0 P Pn WP [ j e j iW oT P8 Pl H D ! T R %P WR {P T W8 T T T Wh P V P. MP @
0x185348…1854dc Dummy {f00=0x0062, f01=0x0190, f02=» J F IDENT LDTASK REL 10.0 80-03-14 870105041000 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x1854dc…185670 Dummy {f00=0x0062, f01=0x0190, f02=» TLDS15 , ( W $V QMEXITL J PAGQUE PAG:QB n , ( u H A 8( @ X PAG:SB , ( H H A ( 1 ) @ H P 1 SEG:PB# T
0x185670…185804 Dummy {f00=0x0062, f01=0x0190, f02=» M | SCTPSZ0 SEG:ELT . TTB:SP @ SEG:FC R * & " (@ @ <a D >a d PAG:PAP SEG:DS ECBCW1I ECBCW2 , ( H D $! C " ,
0x185804…185998 Dummy {f00=0x0062, f01=0x0190, f02=» ( C l ECBEL , ( A *9b!0 # U B , C , ( ] * # C & C $S L , ( w B p ' C " C $ | ECBRC , ( _"( B . T :" U RELPA2 SCTIOES
0x185998…185b2c Dummy {f00=0x0062, f01=0x408c, f02=» QLTASK ACTOT @ 4 f < 6 " , ( iV P V +P* K OU* oS s T F v@ ' C " C $ | ECBRC , ( _"( B . T :" U RELPA2 SCTIOES
0x185b2c…185cc0 Dummy {f00=0x0062, f01=0x0190, f02=» J F IDENT DRSW01 REL 10.0 80-03-14 870105041000 H D ! OUTLINK OUTPUT LDREG LDREGE LDREGF STREG GETCHR@ ECHRTN ECHOY R ECHENDN OUTLINK OUTLRT OUTPUT , ( ? 8! W "
0x185cc0…185e54 (5, 25) Dummy {f00=0x0086, f01=0x0190, f02=»WTA5 TDISP LDREG D * & ; @ Y X X Y . LDREGF R LDREGE V p DWTOR DWTECB , ( Q H X X X X ' GETCHR@ j , ( g 4 B U B (
0x185e54…185fe8 Dummy {f00=0x0086, f01=0x4104, f02=» DWTSB2 DWTADR , ( H 9BV X Y X ( ECHADR X ECHRTN j TENDIO ~ * & D V X R , ( W0 P T !P< %P8 qU W V$ V @ (
0x185fe8…18617c Dummy {f00=0x0086, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x18617c…186310 Dummy {f00=0x0086, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x186310…1864a4 Dummy {f00=0x0086, f01=0x40c4, f02=» J F IDENT DTTP03 REL 10.0 80-03-14 870105041000 DTTP03K TLTP03 R DTTP03K l TLTP03 D : @ 12 P IFF DN=13 P IFF DN=14 P* DOCUMENT TABLE 15
0x1864a4…186638 Dummy {f00=0x0086, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b DWTST t , ( 2 P Y U , ( R -P X , ) Y . X * & ? " P :A: R Q W
0x186638…1867cc Dummy {f00=0x0086, f01=0x0190, f02=» X . $ r STREG , ( 4 T % X ,T ! W " ECHON R , ( Y . V ! B P X b , ( " _Z B P $$ R % , ( C * ! W Y +P Y *P , ( / Y (P Y )P
0x1867cc…186960 Dummy {f00=0x0086, f01=0x0190, f02=» X . 0T P W X , ( ,P Y . 0 %_. % Y . W _p " ECHEND R * & P _ C ! d DISEND , ( " Q R X # LDREG * & P X R ;GV P
0x186960…186af4 (5, 26) Dummy {f00=0x0086, f01=0x0190, f02=»W Y , - t , ( U ? X :a Z T T W , ( q @ P X :d Y > > | B , ( V ? 8 R @R V @% =cW R r , ( P R P 9 W _ _ , ( _ _ %0=c X 0P > 0 , (
0x186af4…186c88 Dummy {f00=0x0086, f01=0x4166, f02=» P T H D ! T T T W V P P$ R W 'PH -P> H D ! 3P 9P = CR GQ MP QR UR YW kWr oW } T W P W H D !` P QX R PN R( V$ V P8 R2 #V. ;P A GT KW H D ! iT mT oW sP
0x186c88…186e1c Dummy {f00=0x0086, f01=0x0190, f02=» J F IDENT DRGP01 REL 10.0 80-03-14 870105041000 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ { P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x186e1c…186fb0 Dummy {f00=0x0086, f01=0x0190, f02=» Y , ( U P T Y &_. P R P , ( @ O]> V _F T Y Y & V P , ( @D Y _^ C _P " DWTBC * & $ P X & X ]r ! * & Y Y
0x186fb0…187144 Dummy {f00=0x0086, f01=0x0190, f02=» X C _ X Y ~ , ( G & Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x187144…1872d8 Dummy {f00=0x0086, f01=0x4166, f02=» ? X Z t , ( @ ! P P X _ X , ( / @" ! ! X & D K 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T R
0x1872d8…18746c Dummy {f00=0x0086, f01=0x0190, f02=» J F IDENT DRDI01 REL 10.0 80-03-14 870105041000 DIADY R DIADY b , ( ! P B 8# T $ t DISIOE` , ( ! # ;D !99P 7P P Y X SETIMP , ( ? T
0x18746c…187600 Dummy {f00=0x0086, f01=0x0190, f02=» GETCHR , ( Y X Y 8# T W , ( P <d R Q 1_ J , ( @ Y W C _. T X $ T z DWTECB * & @ 8# P P X $ ( OUTLINA TDISP
0x187600…187794 (5, 27) Dummy {f00=0x008b, f01=0x407e, f02=» 3PZ AT M r cP iW: qW2 yP W l < 8 W TJ Wj P R Q W T> T P. P* P V ( 4 h@ z @ Y W C _. T X $ T z DWTECB * & @ 8# P P X $ ( OUTLINA TDISP
0x187794…187928 Dummy {f00=0x008b, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( , ( !@ ! 8! P ! P P DISIOE , ( =
0x187928…187abc Dummy {f00=0x008b, f01=0x0190, f02=» &_. 8$ T B 1 ! , ( B B U $ ! T _ 0 , ( U D ! T _ $$ X" X& ` GETCHR , ( X* C X`" E , ( P 8'0P E T ! T 9 , ( 5
0x187abc…187c50 Dummy {f00=0x008b, f01=0x0190, f02=» X &" r * & X )# C V C ! , ( Y B ! Y _^ C @ , ( " _ " $ P X ' p , ( @ X ] ! , ( B 8! T ! ! ! , ( !
0x187c50…187de4 Dummy {f00=0x008b, f01=0x0190, f02=» }@ ! W Y &_ Y & B , ( Y )U X ) T T W V X ' 0 , ( Y )U P R ! _ R ` , ( _ ! Y ' " ! , ( 8!0T 8 !@P ! $ P , ( D ! !
0x187de4…187f78 Dummy {f00=0x008b, f01=0x0190, f02=» " X &" r DWTST LDREG " , ( c Y )Q Y > X Z2<BR > 2 , ( ? Y 8" P ! b , ( @ ! T 8" P d ! Y , ( !" ! *0 ! X ! * & Y & Z
0x187f78…18810c Dummy {f00=0x008b, f01=0x0190, f02=» VW F v , ( # X $ X ! _ X $ X , ( = 8! P ! _( X & ! ! D , ( ]! Y _D X " X &" Y )U t , ( y W ! ! ! , ( @ Y 4 B U , (
0x18810c…1882a0 Dummy {f00=0x008b, f01=0x018e, f02=» , ( ! ! ! 4 , ( % ! V ! V 4 , ( A W :h ! 4 X )" X '# R d _ 4 F > H D ! ` f n )P 5P 9P ? L E OP _P cP. iT {R H D !0 R
0x1882a0…188434 (5, 28) Dummy {f00=0x008b, f01=0x411a, f02=» J H D ! ] _W iU uR wP W U T T W V U P" R R T H D ! P P F )P 5T gQ wR P T> P T P d R V P T H D !. P" W 1 d AP E d Q [ wU {W U R@ V R /V =V AW ]R
0x188434…1885c8 Dummy {f00=0x008b, f01=0x018e, f02=» J F IDENT DRLT01 REL 10.0 80-03-14 870105041000 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLRT CHLTON LOCHANL RECHAN REMFC R DWREMU LOCHANL RECHAN REMFC DWREMU INTLT1
0x1885c8…18875c Dummy {f00=0x008b, f01=0x0190, f02=» f , ( J ;h # <c$ " P DWTOTQD 8 DWTOCH J OUTLIN , ( = P 4 5 T P ? X U X n DWTST , ( Y > P P P P 0 X , ( u T Y W U U
0x18875c…1888f0 Dummy {f00=0x008b, f01=0x0190, f02=»> 8' T Y X ~ DWTADR RECADR . DWTSB2 @ , ( " ' T P X P R , ( > Z X "X DWTOR DWTECB * & ! 8' T 8Z" X ' X INT
0x1888f0…188a84 Dummy {f00=0x008b, f01=0x4156, f02=»P _ E W Q Y W 8 CHLTON ( , ( @" E 4 % E Y > > < $ $ B @ P A T l H D !@ 3 9P =PR GP _PZ cPF gP kP uT Wn . Tx Rt WP B H D ! P> P4 R0 T T P P B )T
0x188a84…188c18 Dummy {f00=0x008b, f01=0x0190, f02=» J F IDENT DRTP03 REL 10.0 80-04-24 870105041000 TPAD3 R TPAD3 b , ( d $ t , ( ! 8 7 $ ' DWTOR , ( A D X " :F 8 9 8
0x188c18…188dac Dummy {f00=0x008b, f01=0x0190, f02=» , ( 8# T !"P ! " W !@P , ( 8! T B R b " +P P 8 , ( T ! ! ! " T Y ( h GETCHR , ( 9 X ) Y ( P ! ! , ( P Z P T ,
0x188dac…188f40 Dummy {f00=0x008b, f01=0x0190, f02=» X -$ P | , ( B R b " X + +P P , ( T Y 0Q Y * Y , ! ! L , ( P Z P T | , ( W R _R X$ /P ! W W Y * , ( @ ! _> ! !EP ! T " T
0x188f40…1890d4 (5, 29) Dummy {f00=0x008b, f01=0x0190, f02=» Y * l TLTP03 , ( H B <C DTTP03 N , ( Q X -! T ! . P % ` * & ! 8 ! ! , ( X & B V " Y & # T , ( # # P Y (
0x1890d4…189268 Dummy {f00=0x008b, f01=0x0190, f02=» ! Q Q ! :K | , ( s@ Q ! Q ! P ! R ! , ( P PQ ! P Q Q ! L , ( Q :C Q ! Q :E Q ! | , ( Q :F Q b ! P ! R C , ( Q ! P R b ! R Q ! (
0x189268…1893fc Dummy {f00=0x008b, f01=0x0190, f02=» _ l , ( a , ! " Q 4" 0Z@ YD * & 9 4 ! ! ! T Y , Y * < STREG j , ( " ! W ! ! z DWTST , ( H@ ! Y 4 ! W " LDREG TDISP ,
0x1893fc…189590 Dummy {f00=0x008b, f01=0x0190, f02=»R @ D Y & 6 P | , ( - ^ ! ! ! X & , ( $A ; ! ! X ) ! X + "? ! J , ( [ "@ ! X - ! . , ! z * & { ! "@P Y , Y * X X H D ! F " @
0x189590…189724 Dummy {f00=0x008b, f01=0x0190, f02=» T Pf 'P6 /P$ 3T 9W =R CR GP K H D ! OW0 SW a gP kT oT }W P R P P T Q P6 @ H D ! @ P$ T W R R P W8 W P !T %T -W KP@ QQ: H D ! [ a e kP oT sT Q6 T,
0x189724…1898b8 Dummy {f00=0x008b, f01=0x40c2, f02=» Qx > Qj PD L RT QP L P p H D ! - RD R, Q L R0 Q, W L P" Q L !W C t U t [R g t , 0 , T W, W U T T R P x @ T -W KP@ QQ: H D ! [ a e kP oT sT Q6 T,
0x1898b8…189a4c Dummy {f00=0x008b, f01=0x0190, f02=» J F IDENT DRTW01 REL 10.0 80-03-14 870105041000 TWADY IHTWY TWONY DWTW01 R TWADY v , ( P B U P R DISIOEA , ( ! U ! ! W ! Q ! B , ( ? Z P
0x189a4c…189be0 Dummy {f00=0x008b, 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 , ( = _.
0x189be0…189d74 (5, 30) Dummy {f00=0x008e, f01=0x0190, f02=»WTOR , ( y " h Y _p ? X R X DWTECBN < DWTSB2 N , ( D X ' & P ` DISENDL IHTWY INTSAV * & ! X , _V A * & ? X
0x189d74…189f08 Dummy {f00=0x008e, f01=0x0190, f02=» 8 J P 8 B W B W PFPOST " * & ; B W B @ T 8 T Y 4 DWTA4 b DWTA5 r TDISP , ( W H Y Y Y Y . * & @ m ! : X ._B B 1 4 X X , ( X X
0x189f08…18a09c Dummy {f00=0x008e, f01=0x415c, f02=» _^ H D ! U P R !U + 4 -W 1 P 5Q 9 v CP M : Q WP cR H D ! R s v P. P( P R Q W R U v P 4 P: P @ U j H D !1 T W @ +P /R 7U G M SP m @ R P 4 @ <
0x18a09c…18a230 Dummy {f00=0x008e, f01=0x0190, f02=» J F IDENT DRFD01 REL 10.0 80-03-14 870105041000 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( X 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x18a230…18a3c4 Dummy {f00=0x008e, f01=0x0190, f02=» &R ECBRL " ECBCW2 2 * & oB B X ; Z Y B D , ( < Z*:A Z4 ^: Y: Y Y r ECBBA , ( B Y ""0 Y V , ( Y Y Y X X T
0x18a3c4…18a558 Dummy {f00=0x008e, f01=0x0190, f02=» _ r , ( C X x ^ Y ! P @ 9 , ( c W ! X P Y ! X P X B , ( _ X p ^ P P r DWTSB2 * & ! # T X Y , ( ! _ # 4 ! #
0x18a558…18a6ec Dummy {f00=0x008e, f01=0x0190, f02=» , ( X C X U X Y R TENDIO 4 TDISP F DWTST V * & ; V Y 8 Y f FDONY X DWTA2 , ( U _ ? Y Y X P SETIMPT , ( o y _*
0x18a6ec…18a880 Dummy {f00=0x008e, f01=0x0190, f02=» j , ( @ B ! X ^< Y Y Y , ( X P Y : ! ! X # : DWTECB j , ( P Y :A , Y & H Y | , ( $ X Y C '? 8 X IHFDY B INTSAVN , ( 5"
0x18a880…18aa14 (5, 31) Dummy {f00=0x008f, f01=0x0190, f02=» & X :AZl X P Y , ( ! P + 7P $ P + 0 , ( < $ <C ! 9 9 4 X ` , ( 9C X : X X 4 ! VOLGET * & # T X T * * & %
0x18aa14…18aba8 Dummy {f00=0x008f, f01=0x0190, f02=» r , ( $ B H D ! 8 TL ' 7 F O S * [R a Z V ` V ^ X j H D ! V ` T V" X R d f h PN P PF !P / 3 h H D !I( 5
0x18aba8…18ad3c Dummy {f00=0x008f, f01=0x4160, f02=»W N H D ! T P R H TF SF W@ Z T0 ^ Z ! X ) +U / V 5 V H D ! 7R ;V A ` ] i L kP s L w L L F * P W V H D ! @ F N P * P N J K Q P U R [P0 aT e T gT H D ! H J P J P
0x18ad3c…18aed0 Dummy {f00=0x008f, f01=0x40aa, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 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
0x18aed0…18b064 Dummy {f00=0x008f, f01=0x4138, f02=» J F IDENT DVTKB REL 10.0 80-03-14 870105041000 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x18b064…18b1f8 Dummy {f00=0x008f, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x18b1f8…18b38c Dummy {f00=0x008f, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x18b38c…18b520 Dummy {f00=0x008f, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 " DWTTP $ DWTORD $ DWTNVL & DWTECH & DWTVOLA .
0x18b520…18b6b4 (5, 32) Dummy {f00=0x008f, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x18b6b4…18b848 Dummy {f00=0x008f, f01=0x018e, f02=» ! $ FREBLK: , * & A ( , 0 4 8 < ( H 0 ) > TTB:SA l , ( _ $P $ ) U ~ TTB:MTO , ( @ { @ T C @ ,W 0P , ( P > T C
0x18b848…18b9dc Dummy {f00=0x008f, f01=0x0190, f02=» SETIMPR , ( A A L W @W T QTJOB F , ( P X T X P 4 Y V TIOERR 2 LKMQDI QUEDEV L , ( / C C 8W QUEFIL N T
0x18b9dc…18bb70 Dummy {f00=0x008f, f01=0x0190, f02=» i @P U , ( XT ! X ! X P , , ( X T _l Xf Y @ P R , ( T X &P P H T _ X TTB:PW , ( I Y T # , (
0x18bb70…18bd04 Dummy {f00=0x008f, f01=0x0190, f02=» a$ W Y P R R P , ( } T P (@ (@ " 2 . , ( @ _ > X $? P $ > > ^ , ( , ( , ( F C F C >
0x18bd04…18be98 Dummy {f00=0x008f, f01=0x0190, f02=» P B P ~ , ( { 0$ T # R Q > , ( X B U H Q X D B N , ( $ T C x > C $ ) ~ DISENDA , ( _ X 9BV X & , ( @ X D C
0x18be98…18c02c Dummy {f00=0x008f, f01=0x0190, f02=» > P p (_H , ( y _2 B U X DC:MOT P , ( @ > ? _ X T (@ d DC:MIN@ , ( @ ^ > > ? _ X T , ( (@ X L U L Q M , (
0x18c02c…18c1c0 Dummy {f00=0x008f, f01=0x0190, f02=» X T 4 Y X | , ( S 1 1 X P - M T , ( q $ P _ T " # L , ( p X L R P P P | , ( (@ ^ X P P # , ( P T P 0P 1
0x18c1c0…18c354 (5, 33) Dummy {f00=0x0071, f01=0x0190, f02=» N H D ! @ ! # % ' ) + W iP W P T T" V$ Pp Wb H D ! P^ T& RP P" WF W( T$ P T #P IW WP iP { P V H D ! T P. T& P P T T W4 EP YT ]P aW qP wR yP T H D ! P Q
0x18c354…18c4e8 Dummy {f00=0x0071, f01=0x4048, f02=»PJ R P P P P8 P0 P P P W 2@ DPp Wb H D ! P^ T& RP P" WF W( T$ P T #P IW WP iP { P V H D ! T P. T& P P T T W4 EP YT ]P aW qP wR yP T H D ! P Q
0x18c4e8…18c67c Dummy {f00=0x0071, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x18c67c…18c810 Dummy {f00=0x0071, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x18c810…18c9a4 Dummy {f00=0x0071, f01=0x0190, f02=» J F IDENT TMMLKM REL 10.0 80-03-14 870105041000 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x18c9a4…18cb38 Dummy {f00=0x0071, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x18cb38…18cccc Dummy {f00=0x0071, f01=0x0190, f02=» J F IDENT TLDSEG REL 10.0 80-03-14 870105041000 TLDSEGK TLDS15 TLDS20 R TLDSEGK t TTB:SP SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:D
0x18cccc…18ce60 Dummy {f00=0x0071, f01=0x4116, f02=»CTMMP SCTNPE , ( 5 D " @ @ - U SCTLAP P TTB:MT b TTB:CB@ t TTB:SA , ( M $ _ 9B @ T u g@ X > R U 'T 1W. KU l
0x18ce60…18cff4 (5, 34) Dummy {f00=0x0073, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x18cff4…18d188 Dummy {f00=0x0073, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x18d188…18d31c Dummy {f00=0x0073, f01=0x0190, f02=» J F IDENT MONTIM REL 10.0 80-03-14 870105041000 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ $ , ( P B $ 9H C ">h # TTB:SA L
0x18d31c…18d4b0 Dummy {f00=0x0073, f01=0x40b2, f02=»P ?_" = > = > = =_D , ( R _ 00 > & <h$ P ( > X ( $ P ?P eP s wP R P p @ $ , ( P B $ 9H C ">h # TTB:SA L
0x18d4b0…18d644 Dummy {f00=0x0073, f01=0x018e, f02=» J F IDENT TOSSFM REL 10.0 80-03-14 870105041000 TOSSFMK FCHECK FCHEC2 R TOSSFMK t , ( " 2 P P P P P P FM:ADM TTABFM ACTDIS , ( ! T
0x18d644…18d7d8 Dummy {f00=0x0073, f01=0x018e, f02=» EWTEXL , ( U T L L R Q EWTEXB J * & o U , , _D , ECBRL , ( V :a B # S EWTVOL FNDDWD DWTST , ( H
0x18d7d8…18d96c Dummy {f00=0x0073, f01=0x4180, f02=» FCHEC2 SCTNOF SCTFWT . , ( " _6 _6 " " P @ Q " @ FWTTAB0 p FWTPARL * & @ , Y ," P L $P T L $ &R :AV ' > _ H D ! P* P P" P P P !
0x18d96c…18db00 Dummy {f00=0x0073, f01=0x0190, f02=» J F IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x18db00…18dc94 (5, 35) Dummy {f00=0x0073, f01=0x4096, f02=» TCHPAGC , ( J TCHMMU F # X & p & @ EXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x18dc94…18de28 Dummy {f00=0x0073, f01=0x0190, f02=» J F IDENT TIODM REL 10.0 80-03-14 870105041000 D @ TIODM FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNR FDBLRNC R D @ FDBNIF FDBEAL FDBCRL FDBKA FDBMIA FDBADF@ FDBAI1 CRNTID F B CRNCDF CRNSTA FDBBLZ FDBDMI FDB
0x18de28…18dfbc Dummy {f00=0x0073, f01=0x0190, f02=»R PROERR REQERR LGTERR EOFERRS EDMERR0 z EOMERR 2 PROTY @ F NODERR X KEYERR l PROERR REQERR REQER2( LGTERR EDMERR0 EOFERRS RETRIEW
0x18dfbc…18e150 Dummy {f00=0x0073, f01=0x0190, f02=»1 6 , ( ! !" , ( A < , ( a l $ 6 FDBECB . FDBSNR < FDBRRO @ FDBRL
0x18e150…18e2e4 Dummy {f00=0x0073, f01=0x0190, f02=»DBKA N FDBMIA P FDBADF@ R " FDBAI1 T 6 FDBDBR: J FDBDMI ] ^ FDBMRO ^ r FDBBLZ ` FDBMEC b FDBKEY p CRNTID CRNSTA CRNCDF TIODM
0x18e2e4…18e478 Dummy {f00=0x0073, f01=0x0190, f02=» P _ Y E X T X * & `% T U $P ^ =A Y $ CRNGETG R , ( 6T P d , ( $ H I T I $ C C , ( 5 T X?j ?j , ( U W X #
0x18e478…18e60c Dummy {f00=0x0073, f01=0x0190, f02=» , ( @ H H ?j W @ DWTECB 4 * & @ Y T X F , ( @ I X I H B I p t ECBBA , ( Y B N p B U MOVZUS DWTOPT , (
0x18e60c…18e7a0 Dummy {f00=0x0073, f01=0x0190, f02=» B z , ( { Y @ H H C C FNDFDB J , ( _ X "" 6 Q , ( X G X HT T W Y H , ( $ H S W W B B , ( @ B W Y
0x18e7a0…18e934 (5, 36) Dummy {f00=0x0076, f01=0x0190, f02=» X T Y | FWTFNR CRNCIF . * & ] Y X Q T P @ , ( s P S W W <j n * & H B B $ T _( C C EATEST , ( W B B X R R
0x18e934…18eac8 Dummy {f00=0x0076, f01=0x018e, f02=» X ] " P H $P X DFTAB $ DMTIDSC 4 , ( D & ] (P _ * " F TASHLT v HALTN DMTASKS ACTOT TDISP , ( $T , . 0 2 RELPROV
0x18eac8…18ec5c Dummy {f00=0x0076, f01=0x4136, f02=» J H D ! ! $ # ? I P T T P 4 T P 7 4 ?T M Q 2 W H D !9 YWp mT s { " P T W U 3T$ =T ST [W" aP T H D ! @ o 4 } 4 T T W S W W 0 W P 1WF oT {S }W 0 , W T W Rd Tf V(
0x18ec5c…18edf0 Dummy {f00=0x0076, f01=0x0190, f02=» J F IDENT DMBUF REL 10.0 80-03-14 870105041000 D @ CURBUFK BUFLNK BUFDMI BUFSNR BUFOR BUFSTA DMTGBU DMTRBUC R BLKMXL CLRBUF DMI020 BLKMXL CURBUFK BUFLNK BUFDMI
0x18edf0…18ef84 Dummy {f00=0x0076, f01=0x0190, f02=» ~ # DMTGBU , " , ( - @ , L T L P ?A M 6 , ( M L T L T M W L T f , ( m L T M M L Q L A @ HALTN , ( Z @ P % P % T W [ , (
0x18ef84…18f118 Dummy {f00=0x0076, f01=0x018e, f02=» @ (@ : DMI020 SCTFWT . FDBSTA @ CRNQUE@ R CRBUFL d CRNEND v , ( I$ @ A A , ( % @ , - M M M DMI010 , ( C M @
0x18f118…18f2ac Dummy {f00=0x0076, f01=0x403a, f02=» J W T ) P _Q $@ 6 . FDBSTA @ CRNQUE@ R CRBUFL d CRNEND v , ( I$ @ A A , ( % @ , - M M M DMI010 , ( C M @
0x18f2ac…18f440 Dummy {f00=0x0076, f01=0x0190, f02=» J F IDENT DMTASK REL 10.0 80-05-28 870105041000 . * DMTASKK DMTERX QOPEN QRFP dQCL RECBFZ R RECBFZ QOPEN DMOPEN tQCL DMCLOS , (
0x18f440…18f5d4 (5, 37) Dummy {f00=0x009c, f01=0x0190, f02=» (@ X R X z FDBKA DWTOR * DWTECBj : ECBCW L * & 7 Q D '? T F FDBLRN EOFERR * & M F E R Q D U FDBDBRD FDBECBL GTBKB
0x18f5d4…18f768 Dummy {f00=0x009c, f01=0x0190, f02=» DMTIOT , ( L " C ( $ DMTRBU F ECBBA X , ( & _z ( $ B h BUFSTA , ( $ (W Y * C ( FDBRLE , ( A X '? X X
0x18f768…18f8fc Dummy {f00=0x009c, f01=0x018e, f02=» DMTREMM , ( P F 2 X ,U X , G 4 , ( /B 6 F S W G B EATEST r , ( ID G F F 8 CALSNO , ( a@ X $? : * & } H X
0x18f8fc…18fa90 Dummy {f00=0x009c, f01=0x0190, f02=» , ( <W P P P P , ( 8 R P P X 4 FDBAI1 d , ( P W R H > v , ( ! X D "? X P D ." & FDBKEY DWTTABW , ( =I X
0x18fa90…18fc24 Dummy {f00=0x009c, f01=0x018e, f02=» F Xd <W X ~ FDBTNR0 RELPROE . PROERR @ , ( $ '?W 0W H J R * & L T H P L DMTBM , ( X L , @ N , ( & X , X
0x18fc24…18fdb8 Dummy {f00=0x009c, f01=0x0190, f02=» , ( $ F F D '? P , ( 5 P P P P P T 4 CRNCDFI d * & U V K R K RW K v EASETB , ( o R K R D $ P 8 T , ( TW E E _
0x18fdb8…18ff4c Dummy {f00=0x009c, f01=0x0190, f02=» l FNDKEYL , ( $ X X * & $? T X .$ P T D N * & * D , H G | * & H H G GTLGRN , ( 3 @ P Z N
0x18ff4c…1900e0 Dummy {f00=0x009c, f01=0x0190, f02=» Y n , ( { Y L D * FDBMRO > , ( H * D , )P D ` E P , ( Z E R Q D R W , ( D W D * D , NXTKYSX ECBRC KEY
0x1900e0…190274 (5, 38) Dummy {f00=0x009b, f01=0x0190, f02=» h , ( D$ j_ X # T B ( * , ( + & X '? P P X X 8 , ( E H E X E Y P h , ( [$ W D X _8 < , ( wD @ , X , ( @
0x190274…190408 Dummy {f00=0x009b, f01=0x0190, f02=» _$ H X, D D `T DMTIOZ ( , ( ( l hW : , ( X N - - j , ( 1 - T T = = = , ( M = Z [ [ , ( k $ P
0x190408…19059c Dummy {f00=0x009b, f01=0x0190, f02=» l , ( N X ^" # * FDBBLZ < FDBSNR N , ( H C ( X p:H C 2 X r C ` , ( H X r C ( l , ( X ` Y )P h , ( HW W X _
0x19059c…190730 Dummy {f00=0x009b, f01=0x018e, f02=» & r , ( D m X X , $ S , ( @ T D D R P . B , ( @$ hW * D , r , ( )XJ D ` E _( D [ T , ( H$ b S d * X , (
0x190730…1908c4 Dummy {f00=0x009b, f01=0x0190, f02=» DSUMOD , ( = B Z xP : , ( W T P ( l F , ( @ u & hW _ v , ( "$ T `W T , U * , ( @ T , 1 | T P T ^ , (
0x1908c4…190a58 Dummy {f00=0x009b, f01=0x0190, f02=» ! 3R H D ! ET" WR YQ _U g }R8 PN T> W T P T0 T( W" B H D ! P %U 5 =S ?W _ m T P P P T W P H D ! P P P R P P P W
0x190a58…190bec Dummy {f00=0x009b, f01=0x40f8, f02=»T GT MV P( R Q R W@ W0 T r H D ! D W T 7P. YP [W p Tn W W P T W mP P . H D ! P W !W 7R 9Q ?U T P0 W T ;T OP [T eP W W z T V W P @ P W
0x190bec…190d80 Dummy {f00=0x009b, f01=0x40fa, f02=» J F IDENT DFTAB REL 10.0 80-03-14 870105041000 $ DFTAB DFTABE DMTIDP DMTIDS R DFTAB z DFTABE DMTIDP DMTIDS @ PDMTIDP E
0x190d80…190f14 (5, 39) Dummy {f00=0x0079, f01=0x417e, f02=» J F IDENT DMFDB REL 10.0 80-03-14 870105041000 $ CRNQUEK CRBUFL CRNEND MXIND R CRBUFL z CRNQUEK CRNEND MXIND , ( d ,
0x190f14…1910a8 Dummy {f00=0x0079, f01=0x0190, f02=» J F IDENT DMOPCL REL 10.0 80-03-14 870105041000 DMOPENK DMCLOS DMRFP R , ( I1M1I2M2I3M3I4M4 r , ( ! , ( A a
0x1910a8…19123c Dummy {f00=0x0079, f01=0x0190, f02=»MOPENK DWTOPT , ( @ @ L <a Q _ h J " , ( " T # T W 0T # P P R I R DWTECBV ECBBA DWTTABV MOV:US * & 9 _ J L u J DMTBM
0x19123c…1913d0 Dummy {f00=0x0079, f01=0x0190, f02=»U j , ( F D A a N % R H T H FDBECB : * & $ M T ( M J _" h L FPB:SHY z FDBSTA , ( " F % G G DMTIOTC , ( @@ T ( T 9a "
0x1913d0…191564 Dummy {f00=0x0079, f01=0x0190, f02=» $ I & v ECBRC , ( - - G ( W " & , ( G H_* _ # ( G ( h V , ( c T @ ` Yf?A W ' FPB:USR , ( @D ^ S G F * FDBDBR *
0x191564…1916f8 Dummy {f00=0x0079, f01=0x0190, f02=» ] _ @ ^ O z FPB:RL FDBRLEV , FPB:BF2 > FDBBLFN P , ( H , F 0 O 2 F 4 O 6 @ ` b FPB:FR FDBLRN` , ( I$ O F 8 O : F 8 O : V FDBMIA FPB:KA
0x1916f8…19188c Dummy {f00=0x0079, f01=0x018e, f02=»LD DFTAB DMTIDP FDBDMI , , ( I , N D Y FP _ X H O > MPYMOD@ n FDBMROV * & a J N 2 N 6 L O BLKMXL , ( w N N 2 :h! P O B:G , (
0x19188c…191a20 Dummy {f00=0x0079, f01=0x0190, f02=» , ( V T @ F 8 L9 :a MXIND 4 * & P @ R Q T RX T D * & RZ Z U R ' ] , F r , ( / $ 8 - F 0 M C C * & G V D RR D R E , ( a
0x191a20…191bb4 (5, 40) Dummy {f00=0x009e, f01=0x018e, f02=» 5 A V(@ T 0 B , ( C _B B G ECBFC P CLRBUF ` , ( " 8 ?a C X Z r * & ( 0 hW @ " L , ( G D G D ;a R F , (
0x191bb4…191d48 Dummy {f00=0x009e, f01=0x0190, f02=» , ( S$ H F ^ F ^ N B& ` < FPB:V1: 8 , ( k G @ G B b : J FWTPAR z , ( @ T @ " D d!>P FPB:FNN DMTWM , ( @ ?A G f b b
0x191d48…191edc Dummy {f00=0x009e, f01=0x0190, f02=» G @ G N ,:n , ( BH G V ^ V ^ N B& , ( ) $ ` < N 6' L W ^ W P , ( A $ ^ ^2 8 0 J P ECBEL , ( Y D U Q l P MOV:SU DMT
0x191edc…192070 Dummy {f00=0x009e, f01=0x0190, f02=» " A J t FNDFDBT , ( H r $ T $ & , ( P _ , % @ V ) A V(@ : N V * & " P :C;B F J L , ( D B U B M l L B DMTERXM DMCLOS < ,
0x192070…192204 Dummy {f00=0x009e, f01=0x0190, f02=»RNCIF * & [ H & I x I x I z I z F , ( o X R P P < , ( I < L : : , U " l DWTOR , ( <a Q Q <B 6 8_H A QRFP , ( D J |" ~ t
0x192204…192398 Dummy {f00=0x009e, f01=0x0190, f02=» FDBEALR TASHLTE , ( $ (@ N d%? T N " * & - T 4 5W P 0 @ V 1 A R * & G V(@_ ,P @ R P R T , ( a R T RR T R U R , ( y R @ R hW
0x192398…19252c Dummy {f00=0x009e, f01=0x4170, f02=» n H D ! R P T !T #W 'T +P /P 5R uP@ U R T T T$ PJ H D !"A W P ; ?W gT {W P2 R R P ?P UP P V H D ! P Q IV( OR" P& P T W TF P R P _U H D ! TZ R P P U A
0x19252c…1926c0 Dummy {f00=0x009e, f01=0x40ec, f02=» J F IDENT DMINIT REL 10.0 80-03-14 870105041000 DMINITK DMI010 R DMINITK l INIFLG DMI020 DMI010 H @ > @ NIFLG P EXTRN DMI020
0x1926c0…192854 (5, 41) Dummy {f00=0x009e, f01=0x0190, f02=» J F IDENT DMSUBX REL 10.0 80-03-14 870105041000 > : FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD GTLGRN CRNCIFL R CRNCIFL FNDKMXK MPYMOD * & 4U :! 4 U , (
0x192854…1929e8 Dummy {f00=0x009e, f01=0x0190, f02=» , )Q p RDNXTR , ( } R V _ W W : T $ GTBKBU# T DMTIOZ f * & ; [ V ( x FDBRRO , ( T E W D V ; FDBMRO FDBRLE
0x1929e8…192b7c Dummy {f00=0x009e, f01=0x0190, f02=» DMTRBUT , ( E E W _| , ( # P [ Z : B FNDKEY B r FDBMIA CALSNOH , ( A : D ; Z BUFSTA , ( @ ] T
0x192b7c…192d10 Dummy {f00=0x009e, f01=0x0190, f02=» EOFRC , ( D W Z r Q R W NOKEY > , ( K ]f J _l W W N CRNUPD ~ FDBADF FDBCRL , ( : : "W FWTFNR , ( P T $
0x192d10…192ea4 Dummy {f00=0x009e, f01=0x018e, f02=» S _P (@ : T ~ DSUMOD DIVMOD 0 , ( a T ( T B FDBBLF r , ( y $ * T , T , ( T ^ S W : H D ! UP U 3
0x192ea4…193038 Dummy {f00=0x009e, f01=0x404e, f02=» 0 , W W W W PL R #Q 3R S W 8@ J T ( T B FDBBLF r , ( y $ * T , T , ( T ^ S W : H D ! UP U 3
0x193038…1931cc Dummy {f00=0x009e, f01=0x40ea, f02=» J F IDENT ADDMOD REL 10.0 80-03-14 870105041000 ADDMODK R ADDMODK d , ( P Q R ;A [ [ x ! : P Q R $ @ RTN A14 P
0x1931cc…193360 Dummy {f00=0x009e, f01=0x40ea, f02=» J F IDENT DSUMOD REL 10.0 80-03-14 870105041000 DSUMODK R DSUMODK d , ( P Q R ;A [ [ x ! : P Q R $ @
0x193360…1934f4 (5, 42) Dummy {f00=0x007d, f01=0x40ec, f02=» J F IDENT MPYMOD REL 10.0 80-03-14 870105041000 MPYMODK R MPYMODK d , ( P Q R ;A [ x ! [ : P Q R & @ P XIF P END
0x1934f4…193688 Dummy {f00=0x007d, f01=0x40ea, f02=» J F IDENT DIVMOD REL 10.0 80-03-14 870105041000 DIVMODK R DIVMODK d , ( Q R P ;A [ [ x ! : Q R P $ @ P CWK A1,/
0x193688…19381c Dummy {f00=0x007d, f01=0x0190, f02=» J F IDENT DMSUBR REL 10.0 80-03-14 870105041000 J F " DMTENDK RELPRO DMTWM DMTBM DMTBMR FNDFDB GETA14@ DMTREM EATESTC R F B EASETB EARELBN CRNGET CALSNO GTBKBU@ DMTIOT DMTIOZ MOV:US MOV:SU MOVZUS MOVZSU
0x19381c…1939b0 Dummy {f00=0x007d, f01=0x0190, f02=»2E SCTTCTV , ( B $ : ' P W @ TTB:SA L QTJOB ^ , ( 9 D P _ U n TDISP DMTWM f , ( WH R $ - DMTBM ~ DMT
0x1939b0…193b44 Dummy {f00=0x007d, f01=0x0190, f02=» l SCTCDT , ( 0 W T ` U @ DMTREM N FDBRRO b DWTTABS t ECBBA , ( D , @ W : X X GETA14@ PRUN EATESTC FDBEAL:
0x193b44…193cd8 Dummy {f00=0x007d, f01=0x0190, f02=» GETBLK: , ( P W : X EARELBN D F , ( 5 X 1 Y (@ : 4 Z , ( M W 0P R Q P W R FREQUE , ( m T D Q , 0 5 @ " 1 A CRNGET
0x193cd8…193e6c Dummy {f00=0x007d, f01=0x0190, f02=» & W @ (T * ( A CRBUFL $ * & ( , U 1_ D I 6 CALSNO d FDBBLF x DIVMOD2 , ( & D $ ) E $(@ : T . , ( @ 0S P W . U MPYMOD
0x193e6c…194000 Dummy {f00=0x007d, f01=0x0190, f02=»_ 8W t DMTIOT B FDBECB ( DMTIOZ H : ECBCW N , ( ;B$ U : : D 4 C < D ^ DWTECB ECBRC RETRIEN , ( S 4 C < > B @P T BUFSTA0 B
0x194000…194194 (5, 43) Dummy {f00=0x009e, f01=0x0190, f02=»D X H"? JT _$ : X L ECBRL * , ( I X 4 X 4 >! # X =H C : DMTGBUN j , ( N PW C < C < | * & D C X H%? : C < X MOV:US TTB:MT , (
0x194194…194328 Dummy {f00=0x009e, f01=0x0190, f02=»T $ T $ T x : : $ T $ ) , ( 3 ] $ ) Y _$ U x & MOV:SU n V , ( S 0 )_8 $_ $ ) YP_J P j , ( s R @ Q R(@ @ T @ MOVZSU , ( Q R(@ : U ; $ T $ T
0x194328…1944bc Dummy {f00=0x009e, f01=0x415a, f02=» p n 0_8 $_< H D !D P D +P 1W ?P I d iR wP R U W T U W n W ( H D ! P P !W MW SP< WR eW kR oT W P W6 T U SB P t H D ! W U0 S W )P 7W cP. iT sW T W U T T !T&
0x1944bc…194650 Dummy {f00=0x009e, f01=0x0190, f02=» J F IDENT FMTASK REL 10.0 80-03-15 870105041000 F B FMRDWRK FM:ADM FMINIT TTABFM FWTPAR FWTFNR FWTTABL FWTEW1 R F B FWTEXB FWTVOL EWTEXL EWTEXB EWTVOL FPB:RLL FPB:BF0 FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1B
0x194650…1947e4 Dummy {f00=0x009e, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL " d FWTEXB $ x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BF0 FPB:FO F
0x1947e4…194978 Dummy {f00=0x009e, f01=0x0190, f02=» FPB:V3 & FPB:S3 , FPB:V4 0 ( FPB:S4 6 < FPB:FR : P FPB:US > d FPB:SHL @ x FPB:MN A FPB:SNI B FPB:IF C FPB:KAV D FPB:CD F FPB:RP L T
0x194978…194b0c Dummy {f00=0x009e, f01=0x0190, f02=»T SCTNOF TIODM FDBMECS , , ( > A @ @ > SCTFWL n , ( A @ R P % % DWTST DWTADRI * & @ I I I I DWTME
0x194b0c…194ca0 Dummy {f00=0x009e, f01=0x0190, f02=» 9 V 1 Y , NVLEND * NVLBITS < & " = P :A A > N FM:ADM x TTB:MTO ECBBA , ( f & T M F , ( @ h Px ' !
0x194ca0…194e34 (5, 44) Dummy {f00=0x009f, f01=0x018e, f02=» n FNDDWD , ( U W A " X* X2 " DWTNVLI P , ( u "(@ I $ V V " L b GETBLK * & P V : V V P , ( &W Y Y " V V T Y , (
0x194e34…194fc8 Dummy {f00=0x009f, f01=0x018e, f02=» , ( + $ $P # ' P @T #? , ( K W #?$? : _2 J @" P Y 4 , ( k 9 @ J ! T " Y X & $ d ECBRC , ( ' ! P C ( , ( P J : J < W W P X V , (
0x194fc8…19515c Dummy {f00=0x009f, f01=0x0190, f02=» , ( % % Y Y V + V K V , ( E K : V K < V K A V % K C 4 , ( e V & K D X P K @ X 9AV K d , ( 9 !? K > F & G , ( R N ! , ( N P N
0x19515c…1952f0 Dummy {f00=0x009f, f01=0x0190, f02=» ,( B ( v TTB:SAR , ( P U . T . 8 ( FREBLKS X , ( 5 X>_. : X P 0(@ Y Y j , ( S Y :" "(@ X $ T ( DWTVOLR DFTAB DFTABE , ( o
0x1952f0…195484 Dummy {f00=0x009f, f01=0x0190, f02=» T X p ECBFC , ( " C : X V P _ : C , ( U : @ @ P , ( V )$ T B , * Y $ * & ! : & $ Y : @ , ( ? P 8 T _ &
0x195484…195618 Dummy {f00=0x009f, f01=0x4184, f02=» R* P P #V =P P< : P& P6 P H D !Ga T ) n /W 5W 9W = : E S z WW _ g P P W T B H D ! 9 P( T P P 1P, AP ET KW eP uT P P* H D ! G P V W Q : W W T
0x195618…1957ac Dummy {f00=0x009f, f01=0x4116, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b TWONN t CHLTONA FDONN FMINIT DMINIT` " U@
0x1957ac…195940 Dummy {f00=0x009f, f01=0x0190, f02=» J F IDENT DVKB00 REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x195940…195ad4 (5, 45) Dummy {f00=0x0092, f01=0x402a, f02=» P - 0 / 0 @ & REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x195ad4…195c68 Dummy {f00=0x0092, f01=0x4106, f02=» J F IDENT DVDI00 REL 10.0 80-03-14 870105041000 DVDI00K R DVDI00K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x195c68…195dfc Dummy {f00=0x0092, f01=0x4104, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x * & Y % P @ 8 , 8 @
0x195dfc…195f90 Dummy {f00=0x0092, f01=0x0190, f02=» J F IDENT DVKB01 REL 10.0 80-03-14 870105041000 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( KB DVDY01 , ( %@
0x195f90…196124 Dummy {f00=0x0092, f01=0x402a, f02=» P - 0 / 0 @ & REL 10.0 80-03-14 870105041000 DVKB01K R DVKB01K d KBAD3 x CTAB02 , ( KB DVDY01 , ( %@
0x196124…1962b8 Dummy {f00=0x0092, f01=0x4106, f02=» J F IDENT DVDI01 REL 10.0 80-03-14 870105041000 DVDI01K R DVDI01K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x1962b8…19644c Dummy {f00=0x0092, f01=0x4104, f02=» J F IDENT DVDY01 REL 10.0 80-03-14 870105041000 DVDY01K R DVDY01K d DYADN x * & Y % ( @ 8 , 8 @
0x19644c…1965e0 Dummy {f00=0x0092, f01=0x0190, f02=» J F IDENT DVKB02 REL 10.0 80-03-14 870105041000 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( A KB DVDY02 , ( %@
0x1965e0…196774 (5, 46) Dummy {f00=0x00a0, f01=0x402a, f02=» P - 0 / 0 @ & REL 10.0 80-03-14 870105041000 DVKB02K R DVKB02K d KBAD3 x CTAB03 , ( A KB DVDY02 , ( %@
0x196774…196908 Dummy {f00=0x00a0, f01=0x4106, f02=» J F IDENT DVDI02 REL 10.0 80-03-14 870105041000 DVDI02K R DVDI02K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x196908…196a9c Dummy {f00=0x00a0, f01=0x4104, f02=» J F IDENT DVDY02 REL 10.0 80-03-14 870105041000 DVDY02K R DVDY02K d DYADN x * & Y % ( @ 8 , 8 @
0x196a9c…196c30 Dummy {f00=0x00a0, f01=0x4128, f02=» J F IDENT DVT103 REL 10.0 80-03-14 870105041000 DVT103K R DVT103K d TPAD3 x , ( TP , ( ? @ D
0x196c30…196dc4 Dummy {f00=0x00a0, f01=0x0190, f02=» J F IDENT DVKB04 REL 10.0 80-03-14 870105041000 DVKB04K R DVKB04K d KBAD3 x CTAB05 , ( KB DVDY04 , ( %@
0x196dc4…196f58 Dummy {f00=0x00a0, f01=0x402a, f02=» P - 0 / 0 @ & REL 10.0 80-03-14 870105041000 DVKB04K R DVKB04K d KBAD3 x CTAB05 , ( KB DVDY04 , ( %@
0x196f58…1970ec Dummy {f00=0x00a0, f01=0x4100, f02=» J F IDENT DVGP04 REL 10.0 80-03-14 870105041000 DVGP04K R DVGP04K d GPADN x * & P % @ 4 ( 4 @ ECB ADD
0x1970ec…197280 Dummy {f00=0x00a0, f01=0x4106, f02=» J F IDENT DVDI04 REL 10.0 80-03-14 870105041000 DVDI04K R DVDI04K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x197280…197414 (5, 47) Dummy {f00=0x00a1, f01=0x4104, f02=» J F IDENT DVDY04 REL 10.0 80-03-14 870105041000 DVDY04K R DVDY04K d DYADN x * & Y % P @ 8 , 8 @
0x197414…1975a8 Dummy {f00=0x00a1, f01=0x0190, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDI00 DVDY00 , ( A P DVKB01 DVDI01 DVD
0x1975a8…19773c Dummy {f00=0x00a1, f01=0x40e2, f02=»B04 , ( 1 " P 0 1 DVGP04 < DVDI04L N DVDY040 ` GI 0 A P r 4 0 | ( 6 @ ) 7 A R @ VKB01 DVDI01 DVD
0x19773c…1978d0 Dummy {f00=0x00a1, f01=0x2008, f02=» L = KMD020 DATE = 801103 6876PACK NBR = 0020 ?
0x1978d0…197a64 Dummy {f00=0x00a1, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x197a64…197bf8 Dummy {f00=0x00a1, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x197bf8…197d8c Dummy {f00=0x00a1, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x197d8c…197f20 Dummy {f00=0x00a1, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x197f20…1980b4 (5, 48) Dummy {f00=0x0096, f01=0x0190, f02=» " P LD A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 * , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA B P LDR A3,A2 r P RF(NN) FD:009 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01
0x1980b4…198248 Dummy {f00=0x0096, f01=0x018e, f02=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 6 P SC A1,DWT:PA+2,A6 b P ANKL A2,/FFF | P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER A
0x198248…1983dc Dummy {f00=0x0096, f01=0x018e, f02=» P RF(Z) FD:060 BASIC READ P SUK A1,4 $ P RF(Z) FD:015 BASIC WRITE 6 P SUK A1,12 X P RF(Z) FD:060 PHYSICAL READ j P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU *
0x1983dc…198570 Dummy {f00=0x0096, f01=0x0190, f02=» P* ! & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! 8 P ADK A4,4 ! b " PFD:015 EQU * BASIC WRITE ORDER ! t P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P I
0x198570…198704 Dummy {f00=0x0096, f01=0x0190, f02=» ! 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS " ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " @ P LDR A7,A3 REQUESTED LENGTH " l P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU
0x198704…198898 Dummy {f00=0x0096, f01=0x0190, f02=»TACK " r P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # * PFD:019 EQU * # ^ P XIF # r P* # ~ P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3
0x198898…198a2c Dummy {f00=0x0096, f01=0x0190, f02=»* # " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ 0 P RF(Z) FD:020 $ ^ P LDK A3,/40 INDICATE ERROR $ t , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT
0x198a2c…198bc0 Dummy {f00=0x0096, f01=0x0190, f02=»************* $ P* % PFD:060 CF A5,BIO % P* % 8 P IFT MMUPAG=1 % B P IFT CHAN=0 % X P IFT TOSS+IBM=2 % l P LD A1,DWTFIB,A6 % P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN S
0x198bc0…198d54 (5, 49) Dummy {f00=0x0098, f01=0x0190, f02=» ] P***************** ^ P* * ^ " P* BIOSQ * ^ < P* * ^ V P***************** ^ p P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD U
0x198d54…198ee8 Dummy {f00=0x0098, f01=0x0190, f02=» ^ P IFT IBM=1 _ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ D & P ADR A2,A4 COMPLETE BIO WITH ORDER _ p P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _
0x198ee8…19907c Dummy {f00=0x0098, f01=0x0190, f02=»GTH _ t P RTN A5 ` P XIF ` P* ` ( P EJECT DRFD01 ` 2 P* ` H P****************** ` R P* VO:NAM * ` l P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P*
0x19907c…199210 Dummy {f00=0x0098, f01=0x018e, f02=»O ` P LDKL A4,BUF READ TO BUFFER a P CF A5,FD:REA a . P ANK A3,/17 FATAL ERROR a D P RF(NZ) VOL:40 a d P IFT IBM=1 a z P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a
0x199210…1993a4 Dummy {f00=0x0098, f01=0x0190, f02=» a P EJECT DRFD01 b P* b P* b * P IFT TOSS=1 b 4 P LDKL A2,BUF b H P IFT IBM=1 b P RF VOL:20 b n P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFE
0x1993a4…199538 Dummy {f00=0x0098, f01=0x0190, f02=»L A1,/400 b , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c B 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c f 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P
0x199538…1996cc Dummy {f00=0x0098, f01=0x0190, f02=»US c t * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d 8 . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d L P LD A8,DWTECB,A6 d ~ P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d
0x1996cc…199860 Dummy {f00=0x0098, f01=0x0190, f02=» P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e $ & P* INPUT: A7 NO OF CHARACTERS e V P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P
0x199860…1999f4 (5, 50) Dummy {f00=0x00a2, 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
0x1999f4…199b88 Dummy {f00=0x00a2, 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
0x199b88…199d1c Dummy {f00=0x00a2, 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
0x199d1c…199eb0 Dummy {f00=0x00a2, 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
0x199eb0…19a044 Dummy {f00=0x00a2, 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*
0x19a044…19a1d8 Dummy {f00=0x00a2, 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
0x19a1d8…19a36c Dummy {f00=0x00a2, 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
0x19a36c…19a500 Dummy {f00=0x00a2, 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*
0x19a500…19a694 (5, 51) Dummy {f00=0x00a2, 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
0x19a694…19a828 Dummy {f00=0x00a2, 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
0x19a828…19a9bc Dummy {f00=0x00a2, f01=0x0000, f02=»
[…0x5…]
0x19b1a0…19b334 (5, 52) Dummy {f00=0x00a3, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x19b334…19b4c8 Dummy {f00=0x00a3, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x19b4c8…19b65c Dummy {f00=0x00a3, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x19b65c…19b7f0 Dummy {f00=0x00a3, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x19b7f0…19b984 Dummy {f00=0x00a3, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x19b984…19bb18 Dummy {f00=0x00a3, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x19bb18…19bcac Dummy {f00=0x00a3, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x19bcac…19be40 Dummy {f00=0x00a3, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x19be40…19bfd4 (5, 53) Dummy {f00=0x00a3, f01=0x0000, f02=»
0x19bfd4…19c168 Dummy {f00=0x00a3, f01=0x0002, f02=» x
0x19c168…19c2fc Dummy {f00=0x00a3, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x19c2fc…19c490 Dummy {f00=0x00a3, f01=0x4102, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F8F9,/FAFB h PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0000 PDMTIDS EQU * P DATA /0101,/0101 P END @ 8
0x19c490…19c624 Dummy {f00=0x00a3, 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*
0x19c624…19c7b8 Dummy {f00=0x00a3, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x19c7b8…19c94c Dummy {f00=0x00a3, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x19c94c…19cae0 Dummy {f00=0x00a3, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x19cae0…19cc74 (5, 54) Dummy {f00=0x00a4, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x19cc74…19ce08 Dummy {f00=0x00a4, 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
0x19ce08…19cf9c Dummy {f00=0x00a4, f01=0x0190, f02=» 0 P IDENT DMFDB REL 10.0 80-03-14 870105041000 P 8 8 P**************************************************** @ P* | $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* THIS MODULE CONTAINS AREAS FOR : P* CURRENCY P* MASTER I
0x19cf9c…19d130 Dummy {f00=0x00a4, f01=0x0190, f02=»RY CRNEND P ENTRY MXIND P EJECT & P* 4 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN > P* WORDS x P* PX:C EQU 0 & PMXSIZ EQU 00100 MASTER INDEX AREA P IFF MXSIZ=0 INDEXES " PCRBUFL EQU 12 SIZE CRN BUFFE
0x19d130…19d2c4 Dummy {f00=0x00a4, f01=0x0190, f02=» ARERA IN WORDS h 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* P PX:B EQU 50 Z " PCRNBAR EQU 00108 CURRENCY AREA l P* P* PX:A EQU 250 P* P EJECT P* PCRNQUE DATA 0 CRN LINK ROOT P IFF CRN
0x19d2c4…19d458 Dummy {f00=0x00a4, f01=0x4174, f02=»NDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE D P IFF MXSIZ=0 j * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ~ * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF PMXINDE EQU * END INDEX INDEX 2
0x19d458…19d5ec Dummy {f00=0x00a4, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x19d5ec…19d780 Dummy {f00=0x00a4, f01=0x0190, f02=»-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 2 PQSTIND EQU *-ORDERS H P DATA DMSTIN START INDEXED d P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPCL
0x19d780…19d914 (5, 55) Dummy {f00=0x00a5, f01=0x0190, f02=» FDB ADDR P RB RDN040 NEXT SECTOR P* 0 P* EXIT : P* J PRDN900 EQU * T P LDR A5,A1 RET CODE h P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO BUFFER " P CF A14,DMTRBU RELEASE BUFFER PRD
0x19d914…19daa8 Dummy {f00=0x00a5, f01=0x0002, f02=»
0x19daa8…19dc3c Dummy {f00=0x00a5, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x19dc3c…19ddd0 Dummy {f00=0x00a5, f01=0x4102, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F8F9,/FAFB h PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0000 PDMTIDS EQU * P DATA /0101,/0101 P END @ 8
0x19ddd0…19df64 Dummy {f00=0x00a5, 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*
0x19df64…19e0f8 Dummy {f00=0x00a5, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x19e0f8…19e28c Dummy {f00=0x00a5, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x19e28c…19e420 Dummy {f00=0x00a5, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x19e420…19e5b4 (5, 56) Dummy {f00=0x00a6, f01=0x0190, f02=»US DONE IN TIODM z PQRFP EQU *-ORDERS $ P DATA DMRFP READ FILE PARAMETERS 2 P EJECT Z P************** h P* DMTASK * ~ P************** P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH P CF
0x19e5b4…19e748 Dummy {f00=0x00a6, f01=0x0190, f02=»D RFP,OPEN,STARTINDEXED P LD A4,FDBADF,A6 DATA FILE * P CM FDBKA,A4 MARK 1ST PASS INDEXED DEL B PDMT020 EQU * p P* < P* LOOP ENTRY FOR INDEXED READ,INDEXED NEXT,INDEXED DEL P* START, AND SEQ READ P* P LD A7,DWTOR,A1
0x19e748…19e8dc Dummy {f00=0x00a6, f01=0x018e, f02=» P LD A2,ECBCW,A9 P LD A3,ECBCW+2,A9 REC NR P CC A2,FDBLRN,A1 @ P RF(L) SQR430 NO EOF X P RF(G) SQR410 EOF t P CW A3,FDBLRN+1,A1 P RF(NG) SQR430 NO EOF PSQR410 EQU * P LDKL A1,EOFERR EOF P ABL DMTERX ERR
0x19e8dc…19ea70 Dummy {f00=0x00a6, f01=0x0190, f02=» $ P CF A14,GTBKBU GET BLOCK BUFFER P LDR A2,A2 , $ P RF(N) DMT030 NO DATA IN BUFFER > P EJECT f P* t " P* DELAYED BUFFER IS WRITTEN ~ & P* IF IT IS NOT THE WANTED BLOCK P* P LC A7,BUFOR,A3 DELAY FLAG P ANK A7,/3
0x19ea70…19ec04 Dummy {f00=0x00a6, f01=0x0190, f02=»NR z P ST A7,ECBCW,A8 P LD A7,BUFSNR+2,A3 " P ST A7,ECBCW+2,A8 < P LDK A7,/95 WRITE WAIT V P LKM t P DATA 15 4 P CF A14,DMTIOT RET CODE CHECK AND RESET SECT NR P LDR A1,A1 P ABL(NZ) DMTERR ERR " P CF A14,DMTRBU REL
0x19ec04…19ed98 Dummy {f00=0x00a6, f01=0x018e, f02=»BUFFER | P* P LDK A7,/91 PHYSICAL READ P LKM : P DATA 15 FM READ BLOCK F 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O d P LDR A1,A1 P ABL(NZ) DMTERR P LD A5,ECBBA,A8 P RF DMT090 . PDMT070 EQU * RIGHT DELAY
0x19ed98…19ef2c Dummy {f00=0x00a6, f01=0x018e, f02=» P LDR A5,A3 & P ADKL A5,BUFSTA SKIP BUFFER HEADER * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB @ PDMT090 EQU * n P LDR A1,A6 P LD A7,DWTOR,A6 P* A7 = INTERNAL ORDER CODE P ANK A7,/3F ( P ABI ORDERS,A7 DMTASK FUNCTION TABLE
0x19ef2c…19f0c0 Dummy {f00=0x00a6, f01=0x0190, f02=» " P* A7 = ORDER CODE ALL ORDERS P* (A8 = FDBECB ADDRESS ) * P* (A9 = USER ECB ADDRESS ) L P EJECT p PDMSQRE EQU * SEQUENTIAL READ ~ P* PDMRDRE EQU * RANDOM READ P* PDMSTDI EQU * START DIRECT P* P* CH
0x19f0c0…19f254 (5, 57) Dummy {f00=0x00a6, f01=0x0190, f02=» CF A14,MPYMOD A1,A2=(I-1)*EL P SRC A1,1 & P ORR A2,A1 GET MOST SIGN BIT 8 PFND025 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 p P ADK A2,2 ENTRY KEY ADR P LDR A1,A2 SAVE ENTRY ADR P LDR A3,A8 SEARCH KEY ADR P LDR A6,A11 MA
0x19f254…19f3e8 Dummy {f00=0x00a6, f01=0x0190, f02=» 15 P SRA A7,1 M/2 FLOOR P ADR A6,A7 M/2 CEILING ( P LDR A3,A3 CHKKEY RTN INF F . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL h P* P* SEARCHED KEY GREATER P* P LDR A10,A10 M P RF(Z) FND050 SEARCH READY P A
0x19f3e8…19f57c Dummy {f00=0x00a6, f01=0x0190, f02=» P RF(Z) FND060 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) * P RB FND030 L PFND045 EQU * NO MASTER INDEX ^ P LDK A1,0 P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU *
0x19f57c…19f710 Dummy {f00=0x00a6, f01=0x0190, f02=» LDK A1,0 P LCR A1,A3 P ADK A3,1 $ P LCR A2,A3 6 P ADK A3,1 H P ECR A2,A2 Z P LCR A2,A3 l PFND070 EQU * ~ P RTN A14 P EJECT 8 P****DESCRIPTION************************************* P* . P* CHKKEY COMPARE
0x19f710…19f8a4 Dummy {f00=0x00a6, f01=0x0190, f02=»Y x P* A3 = ADR OF SEARCH KEY * P* A6 = MAX NO OF CAHARACTERS IN KEY , 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY Z P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS********************************* P* : P*
0x19f8a4…19fa38 Dummy {f00=0x00a6, f01=0x0190, f02=»IS LESS t N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY " P* A6 = MAX NO OF CHAR IN KEY b P* 8 P****USED REGISTERS********************************** P* P* A2-A4,A6-A7 < P************************
0x19fa38…19fbcc Dummy {f00=0x00a6, f01=0x0190, f02=»AR TO TEST z PCHK020 EQU * P LCR A4,A3 SEARCED KEY CHAR & P CCR A4,A2 SC=EC? J P RF(G) CHK100 SC GT TH EC d " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL) CHK060 ALL CHAR CHEC
0x19fbcc…19fd60 Dummy {f00=0x00a6, f01=0x0190, f02=» P RF CHK140 PCHK120 EQU * $ P LDKL A3,-1 SEARCHED KEY SMALLER * P RF CHK140 R PCHK100 EQU * d $ P LDK A3,1 SEARCHED KEY SGREATER x PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*************************************
0x19fd60…19fef4 (5, 58) Dummy {f00=0x00a1, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x19fef4…1a0088 Dummy {f00=0x00a1, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x1a0088…1a021c Dummy {f00=0x00a1, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x1a021c…1a03b0 Dummy {f00=0x00a1, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x1a03b0…1a0544 Dummy {f00=0x00a1, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x1a0544…1a06d8 Dummy {f00=0x00a1, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x1a06d8…1a086c Dummy {f00=0x00a1, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x1a086c…1a0a00 Dummy {f00=0x00a1, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x1a0a00…1a0b94 (5, 59) Dummy {f00=0x00b7, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x1a0b94…1a0d28 Dummy {f00=0x00b7, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x1a0d28…1a0ebc Dummy {f00=0x00b7, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x1a0ebc…1a1050 Dummy {f00=0x00b7, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x1a1050…1a11e4 Dummy {f00=0x00b7, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x1a11e4…1a1378 Dummy {f00=0x00b7, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x1a1378…1a150c Dummy {f00=0x00b7, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x1a150c…1a16a0 Dummy {f00=0x00b7, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x1a16a0…1a1834 (5, 60) Dummy {f00=0x00b8, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x1a1834…1a19c8 Dummy {f00=0x00b8, f01=0x0002, f02=»
0x1a19c8…1a1b5c Dummy {f00=0x00b8, f01=0x0190, f02=» 2 P IDENT DVT100 REL 10.0 80-03-14 870105041000 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVT100 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x1a1b5c…1a1cf0 Dummy {f00=0x00b8, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVT100 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
0x1a1cf0…1a1e84 Dummy {f00=0x00b8, f01=0x0190, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x1a1e84…1a2018 Dummy {f00=0x00b8, f01=0x401e, f02=» P* P END @ P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x1a2018…1a21ac Dummy {f00=0x00b8, 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
0x1a21ac…1a2340 Dummy {f00=0x00b8, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x1a2340…1a24d4 (5, 61) Dummy {f00=0x00a7, f01=0x0190, f02=» P ECR A4,A7 . P ANK A4,/7 OPTION . P SUK A4,1 . 0 P RF(NZ) TIODMA NOT GREATER . B P RB IXR020 GET NEXT REC NR . d P EJECT . P* . P************************* . P* DMTASK ACTIVATION * . P************************* . P* .
0x1a24d4…1a2668 Dummy {f00=0x00a7, f01=0x0190, f02=» LD A3,ECBCW+2,A8 . PTIODMC EQU * / P* / . P* NO EA FOR OTHER TASK / 8 P* / X P LD A1,FDBADF,A6 FDB ADDR / b P CF A14,EATEST / P LDR A4,A4 RTN INF / P RF(N) TIODPE EA OTHER TASK / PTIODMD EQU * / P LDR A1,A2 / P LDR A2,A3
0x1a2668…1a27fc Dummy {f00=0x00a7, f01=0x0190, f02=» P* 0 . P* ACTIVATE DMTASK WITH FDB ADDRESS IN A1 0 P* 0 @ PTIOD68 EQU * 0 J P* 0 ^ P* PREPARE DM INTERFACE 0 h P* 0 P LDKL A8,'#D' 0 P INH 0 P LDK A7,0 0 P LD A1,DWTOR,A6 ORDER 0 P ANK A1,/FF 0 P SUK A1,OPENOF 0
0x1a27fc…1a2990 Dummy {f00=0x00a7, f01=0x0190, f02=» P LDR A5,A2 1 P RF(Z) TASHLT 1 P LD A1,TTB:SA,A2 1 , P RF(Z) TIOD70 NOT ACTIVE 1 D P LDK A7,0 1 d P EJECT 1 v P* 1 P* GET SECONDARY DMTASK 1 P* 1 & P LC A1,FWTVOL,A6 VOLUME FILE CODE 1 PTIOD69 EQU * 1 P CC A1,DFTAB,A7 1
0x1a2990…1a2b24 Dummy {f00=0x00a7, f01=0x018e, f02=»ASK REL ID 1 r PTIOD72 EQU * 2 P ADR A7,A8 TASK ID 2 & P CF A15,FNDTID A2:=TTAB ADDR 2 @ P LDR A5,A2 2 d P RF(NZ) TIOD70 2 v ( PTASHLT EQU * ABNORMAL SYSTEM ERRORS 2 P LDK A1,/11 DM ERR 2 P CF A15,HALT 2 * PTIOD70 LDKL A2,DMTASK DISPATCH ADD
0x1a2b24…1a2cb8 Dummy {f00=0x00a7, f01=0x0190, f02=» P EJECT 3 P* 3 P************** 3 P* TIODME * 3 2 P************** 3 H P* 3 ^ J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x1a2cb8…1a2e4c Dummy {f00=0x00a7, f01=0x40ae, f02=»DDR 3 p PTIODMX EQU * 4 P* A1 = ERROR CODE 4 P* A6 = FDB ADDRESS 4 < P INH 4 X , P ABL DISEND CALL TENDIO GOTO DISPATCHER 4 d P* 4 P END 4 @ 4 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x1a2e4c…1a2fe0 Dummy {f00=0x00a7, f01=0x2008, f02=» 5
0x1a2fe0…1a3174 (5, 62) Dummy {f00=0x00b9, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x1a3174…1a3308 Dummy {f00=0x00b9, f01=0x0002, f02=» 8
0x1a3308…1a349c Dummy {f00=0x00b9, f01=0x0190, f02=» 2 P IDENT DVT100 REL 10.0 80-03-14 870105041000 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVT100 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x1a349c…1a3630 Dummy {f00=0x00b9, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVT100 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
0x1a3630…1a37c4 Dummy {f00=0x00b9, f01=0x0190, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x1a37c4…1a3958 Dummy {f00=0x00b9, f01=0x401e, f02=» P* P END @ P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x1a3958…1a3aec Dummy {f00=0x00b9, 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
0x1a3aec…1a3c80 Dummy {f00=0x00b9, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x1a3c80…1a3e14 (5, 63) Dummy {f00=0x00ba, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x1a3e14…1a3fa8 Dummy {f00=0x00ba, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x1a3fa8…1a413c Dummy {f00=0x00ba, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x1a413c…1a42d0 Dummy {f00=0x00ba, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x1a42d0…1a4464 Dummy {f00=0x00ba, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x1a4464…1a45f8 Dummy {f00=0x00ba, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x1a45f8…1a478c Dummy {f00=0x00ba, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x1a478c…1a4920 Dummy {f00=0x00ba, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x1a4920…1a4ab4 (5, 64) Dummy {f00=0x00ba, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x1a4ab4…1a4c48 Dummy {f00=0x00ba, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x1a4c48…1a4ddc Dummy {f00=0x00ba, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x1a4ddc…1a4f70 Dummy {f00=0x00ba, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x1a4f70…1a5104 Dummy {f00=0x00ba, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x1a5104…1a5298 Dummy {f00=0x00ba, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x1a5298…1a542c Dummy {f00=0x00ba, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x1a542c…1a55c0 Dummy {f00=0x00ba, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x1a55c0…1a5754 (5, 65) Dummy {f00=0x00a8, f01=0x0190, f02=»US DONE IN TIODM z PQRFP EQU *-ORDERS $ P DATA DMRFP READ FILE PARAMETERS 2 P EJECT Z P************** h P* DMTASK * ~ P************** P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH P CF
0x1a5754…1a58e8 Dummy {f00=0x00a8, f01=0x0190, f02=»D RFP,OPEN,STARTINDEXED P LD A4,FDBADF,A6 DATA FILE * P CM FDBKA,A4 MARK 1ST PASS INDEXED DEL B PDMT020 EQU * p P* < P* LOOP ENTRY FOR INDEXED READ,INDEXED NEXT,INDEXED DEL P* START, AND SEQ READ P* P LD A7,DWTOR,A1
0x1a58e8…1a5a7c Dummy {f00=0x00a8, f01=0x018e, f02=» P LD A2,ECBCW,A9 P LD A3,ECBCW+2,A9 REC NR P CC A2,FDBLRN,A1 @ P RF(L) SQR430 NO EOF X P RF(G) SQR410 EOF t P CW A3,FDBLRN+1,A1 P RF(NG) SQR430 NO EOF PSQR410 EQU * P LDKL A1,EOFERR EOF P ABL DMTERX ERR
0x1a5a7c…1a5c10 Dummy {f00=0x00a8, f01=0x0190, f02=» $ P CF A14,GTBKBU GET BLOCK BUFFER P LDR A2,A2 , $ P RF(N) DMT030 NO DATA IN BUFFER > P EJECT f P* t " P* DELAYED BUFFER IS WRITTEN ~ & P* IF IT IS NOT THE WANTED BLOCK P* P LC A7,BUFOR,A3 DELAY FLAG P ANK A7,/3
0x1a5c10…1a5da4 Dummy {f00=0x00a8, f01=0x0190, f02=»NR z P ST A7,ECBCW,A8 P LD A7,BUFSNR+2,A3 " P ST A7,ECBCW+2,A8 < P LDK A7,/95 WRITE WAIT V P LKM t P DATA 15 4 P CF A14,DMTIOT RET CODE CHECK AND RESET SECT NR P LDR A1,A1 P ABL(NZ) DMTERR ERR " P CF A14,DMTRBU REL
0x1a5da4…1a5f38 Dummy {f00=0x00a8, f01=0x018e, f02=»BUFFER | P* P LDK A7,/91 PHYSICAL READ P LKM : P DATA 15 FM READ BLOCK F 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O d P LDR A1,A1 P ABL(NZ) DMTERR P LD A5,ECBBA,A8 P RF DMT090 . PDMT070 EQU * RIGHT DELAY
0x1a5f38…1a60cc Dummy {f00=0x00a8, f01=0x018e, f02=» P LDR A5,A3 & P ADKL A5,BUFSTA SKIP BUFFER HEADER * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB @ PDMT090 EQU * n P LDR A1,A6 P LD A7,DWTOR,A6 P* A7 = INTERNAL ORDER CODE P ANK A7,/3F ( P ABI ORDERS,A7 DMTASK FUNCTION TABLE
0x1a60cc…1a6260 Dummy {f00=0x00a8, f01=0x0190, f02=» " P* A7 = ORDER CODE ALL ORDERS P* (A8 = FDBECB ADDRESS ) * P* (A9 = USER ECB ADDRESS ) L P EJECT p PDMSQRE EQU * SEQUENTIAL READ ~ P* PDMRDRE EQU * RANDOM READ P* PDMSTDI EQU * START DIRECT P* P* CH
0x1a6260…1a63f4 (5, 66) Dummy {f00=0x00a8, f01=0x018e, f02=» P CF A14,EATEST P LDR A4,A4 RTN CODE P RF(N) DMEAER EA OTHER TASK 6 PDMS100 EQU * Z P LDK A3,0 STATUS FREE n P IFT INDXAC=1 P LDR A2,A7 P SUK A2,QIRW " P RF(E) CHK010 INDEXED REWRITE P LDR A2,A7 P SUK A2,
0x1a63f4…1a6588 Dummy {f00=0x00a8, f01=0x0190, f02=» P SUK A2,QDEL P RF(E) CHK010 INDEXED DELETE P XIF < P LDR A2,A7 H P SUK A2,QRD Z P ABL(E) DMT350 RANDOM DELETE n P RF DMT310 P IFT INDXAC=1 P EJECT PCHK010 EQU * F P* INDEXED REWRITE,INDEXED INSERT AND INDEX
0x1a6588…1a671c Dummy {f00=0x00a8, f01=0x0190, f02=»QU * P SUK A5,2 $ P RF(N) CHK100 ALL INDEX CHECKED P LDR A2,A1 FDB ADD F P ADR A2,A5 ` ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE r P RB(Z) CHK040 NO INDEX P LD A2,DWTOR,A1 P ANK A2,/3F ORDER INDEX P CWK A2,QINS $ P
0x1a671c…1a68b0 Dummy {f00=0x00a8, f01=0x0190, f02=»/4 * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT ! PCHK050 EQU * ! 8 P* ! L P IFT MMUPAG=1 ! V P LDR A7,A1 SAVE A1 ! l * P LD A1,FDBKA,A6 GET KEY START ADDRESS ! P AD A1,ECBBA,A9 ! 2 P LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT ! P ADR A
0x1a68b0…1a6a44 Dummy {f00=0x00a8, f01=0x0190, f02=»A7 GET TTAB ADDRESS ! , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA " P LDR A1,A7 RESTORE A1 " L P LDR A2,A13 RESTORE A2 " j * P LD A3,FDBKA,A6 GET KEY START ADDRESS " P XIF " P* " P IFT INDXAC=1 " P IFT MMUPAG=0 " " P LD A2,FDBKA,A6
0x1a6a44…1a6bd8 Dummy {f00=0x00a8, f01=0x0190, f02=»A1 " P ADR A3,A11 KEY IN FILE # P LDK A7,0 # * " P LD A6,FDBRLE,A6 RECORD LENGTH # < P SUK A6,6 KEY LENGTH # b P CF A14,CHKKEY COMPARE KEYS # ~ P CWR A6,A7 # * P RB(E) CHK040 KEY UNCHANGED CHECK NEXT # P LDR A6,A1 FDB ADDR # P LDKL A1,P
0x1a6bd8…1a6d6c Dummy {f00=0x00a8, f01=0x0190, f02=»DEX # | P RF DMT310 $ P XIF $ P EJECT $ * " PDMERND LDKL A1,NODERR NO DATA $ 8 P RF DMERR $ ^ * PDMEAER EQU * RELEASE EA FOR ALL FILES $ p P SUR A9,A9 $ " P LC A9,FDBTNR,A6 USER TASK ID $ " P CF A14,RELPRO RELEASE PROTECT $ P LDKL A1,PRO
0x1a6d6c…1a6f00 Dummy {f00=0x00a8, f01=0x0190, f02=»C=1 $ P CWK A7,QDEL % P RF(NE) DMT313 NOT INDEX DEL % P* % D " P* MOVE KEYS TO FDB KEY AREAS % N P* % t P LDK A5,8 % ~ PIXINS3 EQU * % P LDR A2,A6 FDB DATA % P ADR A2,A5 % P LD A3,FDBADF,A2 FDB INDEX % P RF(Z) IXINS4 NO IND
0x1a6f00…1a7094 (5, 67) Dummy {f00=0x00ba, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x1a7094…1a7228 Dummy {f00=0x00ba, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x1a7228…1a73bc Dummy {f00=0x00ba, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x1a73bc…1a7550 Dummy {f00=0x00ba, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x1a7550…1a76e4 Dummy {f00=0x00ba, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x1a76e4…1a7878 Dummy {f00=0x00ba, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x1a7878…1a7a0c Dummy {f00=0x00ba, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x1a7a0c…1a7ba0 Dummy {f00=0x00ba, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x1a7ba0…1a7d34 (5, 68) Dummy {f00=0x00ba, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x1a7d34…1a7ec8 Dummy {f00=0x00ba, f01=0x0002, f02=» X
0x1a7ec8…1a805c Dummy {f00=0x00ba, f01=0x0190, f02=» 2 P IDENT DVDI01 REL 10.0 80-03-14 870105041000 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI01 DISPLAY INDICATOR 03 P* P*
0x1a805c…1a81f0 Dummy {f00=0x00ba, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI01 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x1a81f0…1a8384 Dummy {f00=0x00ba, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x1a8384…1a8518 Dummy {f00=0x00ba, 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
0x1a8518…1a86ac Dummy {f00=0x00ba, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x1a86ac…1a8840 Dummy {f00=0x00ba, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x1a8840…1a89d4 (5, 69) Dummy {f00=0x00ab, f01=0x0190, f02=» 1 = DATA FILE P* 2 = INDEX 1 P* 3 = MASTER INDEX 1 6 P* 4 = INDEX 2 Z P* ETC x P* P* CLEAR WORK AREA P* & P LDK A2,OPEEND NR OF BYTE TO CLEAR POPE050 EQU * P SUK A2,2
0x1a89d4…1a8b68 Dummy {f00=0x00ab, f01=0x0190, f02=»RAMETER BLOCK P* $ P LD A3,DWTECB,A10 USER ECB ADDR " P LD A1,ECBBA,A3 FD ADDR USER H " P ADK A1,FPBRES RESERVED FIELDS n P LDR A2,A9 FPB ADDR $ P LDK A3,FPB:L4+1 MAX SIGN LENGTH P IFT MMUPAG=1 $ P LD A4,DWTTAB,A10 USER TTA
0x1a8b68…1a8cfc Dummy {f00=0x00ab, f01=0x0190, f02=» XIF P IFT INDXAC=1 P* " $ P* SAVE VOLUME NAME INDEX FILES , P* T P LDR A1,A9 FPB ADDR ^ P ADKL A1,FPB:IV FROM ADDR z P LDKL A3,INDVOL TO ADDR P LDK A2,6 P CF A14,DMTBM P XIF " P LC A5,FPB:BO,A9 TOSS OP
0x1a8cfc…1a8e90 Dummy {f00=0x00ab, f01=0x0190, f02=» RF(Z) OPE099 STANDARD FILE $ P LD A5,DWTECB,A10 USER ECB ADDR $ P LD A5,ECBRL,A5 REQ LGTH L P CWK A5,FPB:NI+FPBRES l P RF(NG) OPEERR NO INDEX " P LC A5,FPB:NI,A9 NR OF INDEXES P SC A5,NROFIX+1 P EJECT P* ( P* SAVE
0x1a8e90…1a9024 Dummy {f00=0x00ab, f01=0x0190, f02=»FSET INDEX 1 POPE070 EQU * P SUK A5,1 ( P RF(N) OPE099 ALL INDEXES : P LDK A1,0 P LC A1,-1,A2 NR OF KEY ITEMS n P SUK A1,1 P RF(NZ) OPEER4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 P LDR* A1,A2 KEY OFFS
0x1a9024…1a91b8 Dummy {f00=0x00ab, f01=0x0190, f02=»L A12,1 DATA FILE INDEX POPE100 EQU * FILE LOOP P* > P* OPEN FM FILE H P* ` P LDKL A9,OPEFPB FPB ADDR j P LDR A8,A10 P ADKL A8,FDBECB ECB ADDR P ST A9,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A9 P ANK A5,1 ( P
0x1a91b8…1a934c Dummy {f00=0x00ab, f01=0x0190, f02=»10 READ FILE PAR ORDER P LDK A7,/A1 OPEN P LKM 6 P DATA 15 B P LDR A1,A10 MAIN FDB R P CF A14,DMTIOT ERR CHECK n P LDR A1,A1 P RF(NZ) OPEER0 ERR P EJECT P* P* STORE FILE NR P* P LDR A1,A12 LOOP I
0x1a934c…1a94e0 Dummy {f00=0x00ab, f01=0x0190, f02=» IN A11 P* P ANK A6,/FF " P LDKL A11,FDBSTA SYST FDB ADDR . P LDR A3,A6 FILE NR T POPE150 EQU * n P RF(Z) OPE190 END COUNT P LDR* A11,A11 NEXT FDB P ANKL A11,/FFFE USE BIT P SUK A3,1 P RB OPE150 P EJE
0x1a94e0…1a9674 (5, 70) Dummy {f00=0x00ae, f01=0x018e, f02=»MTASK = t P EJECT > PDMCLOS EQU * CLOSE > P* > 6 P* A1 = A6 > @ " P* (A3= BLOCK BUFFER ADDRESS ) > T P* (A5 = BLOCK ADDRESS ) > z $ P* A6 = FDB ADDRESS ALL ORDERS > " P* A7 = ORDER CODE ALL ORDERS > P* (A8 = FDBECB ADDRESS ) >
0x1a9674…1a9808 Dummy {f00=0x00ae, f01=0x018e, f02=» > P DATA 15 FM IO ? P CF A14,DMTIOT ERR CHECK ? PCLO200 EQU * ? > " P CF A14,DMTRBU RELEASE BUFFER ? R P* ? x P* CLEAR CURRENCY ? P* ? P LDR A1,A6 FDB ADDR =1 ? * P CF A14,CRNGET GET CURRENCY BUFFER =1 ? P LDK A1,0 ? P SC
0x1a9808…1a999c Dummy {f00=0x00ae, f01=0x0190, f02=» ? ~ P XIF @ P* @ P* BUILD CLOSE TABLES @ P* @ < P LC A7,ECBFC,A9 FILE CODE @ F P LDK A5,10 2 * FILES @ h PCLO210 EQU * @ P SUK A5,2 @ P RF(N) CLO300 ALL FILES @ P LDR A4,A6 @ P ADR A4,A5 @ P LDK A1,0 @ P LDK A2,
0x1a999c…1a9b30 Dummy {f00=0x00ae, f01=0x0190, f02=»,FDBMIA,A3 MASTER INDEX ADDR @ P LC A2,FWTFNR,A3 FILE NR A $ P LC A9,FDBLRN,A3 LAST REC NR A D P LD A10,FDBLRN+1,A3 A h PCLO230 EQU * A P ST A8,OPEMXI,A5 A P ST A3,OPEFWT,A5 A P LDR A4,A5 A P SRL A4,1 A P SC A2,OPEFNR,A4 FILE NR A
0x1a9b30…1a9cc4 Dummy {f00=0x00ae, f01=0x0190, f02=»FILE A PCLO300 EQU * B P SC A7,OPEFCD FILE CODE B P LDR A10,A6 MAIN FDB ADDR B @ P EJECT B b $ POPEER1 EQU * RECOVERY AT ERRORS B p P LDR A6,A10 MAIN FDB B P LD A2,DWTOR,A10 ORDER B P ANK A2,/FF B P CWK A2,QRFP READ FILE PAR B P
0x1a9cc4…1a9e58 Dummy {f00=0x00ae, f01=0x0190, f02=»A12,1 B P RF(NN) OPEE20 MORE FILES C P LDR A6,A10 MAIN FDB ADDR C 0 P LDK A1,0 RET CODE C R P ABL DMTERX C l POPEE20 EQU * C P* RESET FILE CODE* C P* C P LC A2,OPEFCD,A12 FILE CODE C P ANK A2,/FF C P RF(Z) OPEE25 NO CODE
0x1a9e58…1a9fec Dummy {f00=0x00ae, f01=0x018e, f02=»PEE25 NO ENTRY C $ P LDKL A7,FDBSTA SYSTEM FDB ADDR D P ST A7,2,A4 SYSTEM FWT ADDR D > POPEE25 EQU * D b P EJECT D v P* D P* RELEASE EA+CRN BUFFERS D P* D P LDR A7,A12 D P SLL A7,1 WORDS D P LD A11,OPEFWT,A7 FDB ADDR D P
0x1a9fec…1aa180 Dummy {f00=0x00ae, f01=0x0190, f02=» D P LC A5,FWTPAR,A11 E P ANK A5,/3F NR OF USERS E " P SUK A5,1 E B & P RF(NZ) DMT894 MORE THAN ONE OPEN E T P LD A5,FDBEAL,A11 PRO LINK E ~ P ABL(NZ) TASHLT DM ERR E P EJECT E P* E P* RELEASE CURRENCY BUFFERS E P* E P LDK
0x1aa180…1aa314 (5, 71) Dummy {f00=0x00af, f01=0x4044, f02=»ROGRAM X P RTN A14 P END ,@ @
0x1aa314…1aa4a8 Dummy {f00=0x00af, f01=0x000c, f02=»
0x1aa4a8…1aa63c Dummy {f00=0x00af, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* 8 P**************
0x1aa63c…1aa7d0 Dummy {f00=0x00af, f01=0x0190, f02=» P*************** P* ENTRIES * P*************** 8 P* P P ENTRY FNDKMX,CHKKEY Z P ENTRY RDNXTR v P ENTRY FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN P ENTRY CRNCIF P* P***************** P
0x1aa7d0…1aa964 Dummy {f00=0x00af, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR P EXTRN FDBRRO,FDBBLF,BUFSNR & P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF D . P EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU n P EXTRN DMTIOZ P EXTRN DIVMOD,DSUMOD P EXTRN EOFRC,NOKEY P EJECT 8 P****DESCRIPTIO
0x1aa964…1aaaf8 Dummy {f00=0x00af, f01=0x0190, f02=»RCH IS USED. REF : KNUTH PAGE 411 ALG. U. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : 2 P* - NO OF ENTRIES N f $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P* P* A5 = MAS
0x1aaaf8…1aac8c Dummy {f00=0x00af, f01=0x0190, f02=»* 8 P****EXIT PARAMETERS********************************* P* F 0 P* A1,A2 = LOGICAL RECORD NO IN INDEX FILE P P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P* A1 - A11 P*
0x1aac8c…1aae20 Dummy {f00=0x00af, f01=0x0190, f02=»MX EQU * P LDR* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX 4 P LDR A9,A2 Z P ANKL A9,/1 GET BIT 15 l P SRA A2,1 P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU *
0x1aae20…1aafb4 (5, 72) Dummy {f00=0x00b0, f01=0x0190, f02=» FDB ADDR P RB RDN040 NEXT SECTOR P* 0 P* EXIT : P* J PRDN900 EQU * T P LDR A5,A1 RET CODE h P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO BUFFER " P CF A14,DMTRBU RELEASE BUFFER PRD
0x1aafb4…1ab148 Dummy {f00=0x00b0, f01=0x0190, f02=» ADKL A14,4 P LDR* A7,A14 PRDN950 EQU * ( P RTN A14 < P EJECT L 8 P****DESCRIPTION************************************* Z P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE * P* SPECIFIED KEY OR NEXT HIGHER KEY
0x1ab148…1ab2dc Dummy {f00=0x00b0, f01=0x0190, f02=»* P* A1 = FDB ADDRESS P* A8 = SEARCH KEY ADDR & & P* A11 = NO OF CHARACTERS IN KEY F " P* A13= PHYSICAL ECB ADDRESS p P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = FDB ADDRESS 0 P*
0x1ab2dc…1ab470 Dummy {f00=0x00b0, f01=0x0190, f02=»* = RETURN CODE WHEN KEY IS NOT FOUND 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER 2 P* A3 = BUFFER ADDRESS j & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARACTERS " P* A8 = PHYSICAL ECB ADDRESS P* A11
0x1ab470…1ab604 Dummy {f00=0x00b0, f01=0x0190, f02=»ACK l P* : P****************************************************** P EJECT T PFNDKEY EQU * b P* v & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF MASTER INDEX $ P STR A1,A14 FDB ADDRESS IS SAVED
0x1ab604…1ab798 Dummy {f00=0x00b0, f01=0x018e, f02=»R | P CF A14,CALSNO GET PHYS ADDR P LDR A1,A1 . P RF(NZ) FKY900 ERROR @ P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY v $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9 NO BUFFER TO START WITH P LDR A8,A13 ECB ADDR
0x1ab798…1ab92c Dummy {f00=0x00b0, f01=0x0190, f02=» P RF FKY900 ERROR EXIT P* " " P* BUFFER AND ADATA IS FOUND , P* R PFKY150 EQU * P LDR A9,A3 BUFFER ADDR p P ADR A2,A3 BUFFER ADR P ADKL A2,BUFSTA P LDR A10,A2 SAVE REC ADDR * P AD A10,FDBRLE,A1 ADDR OF STATUS C
0x1ab92c…1abac0 Dummy {f00=0x00b0, f01=0x018e, f02=»CORDS IN THIS SECTOR P* * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET & P LD A4,FDBMRO,A1 T & P ST A4,FDBRRO,A1 LAST REC IN SECT n P* P* *CHECK IF EOF P* P LDR A10,A7 CHAR ADDR " P CF A14,GTLGRN GET LOG REC NR
0x1abac0…1abc54 (5, 73) Dummy {f00=0x00b0, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x1abc54…1abde8 Dummy {f00=0x00b0, f01=0x0004, f02=»
0x1abde8…1abf7c Dummy {f00=0x00b0, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x1abf7c…1ac110 Dummy {f00=0x00b0, f01=0x0190, f02=»UTER P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 & $ P* AG-A7 = ARG2 N P* CF A14,ADDMOD v & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED. P ENT
0x1ac110…1ac2a4 Dummy {f00=0x00b0, f01=0x0190, f02=» . P***************************************** P* 6 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION @ . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. z P* PCPU852 EQU 1 P* P EJECT PADDMOD EQU * P LDK A3,0 P
0x1ac2a4…1ac438 Dummy {f00=0x00b0, f01=0x0190, f02=» P ADR A2,A7 P RF(3) OVER1 $ 0 PNOVER ADR A1,A6 * NO OVERFLOW D P RF(1) END1 x P RF(2) END2 P RF(3) END3 PNOVER1 ADK A2,0 P RF(0) END0
0x1ac438…1ac5cc Dummy {f00=0x00b0, f01=0x0190, f02=» RB(7) NOVER POVER3 ADR A1,A6 P RF(2) END3 < P ADK A1,0 Z P RF(1) END1 x P RB(7) NOVER1 P XIF P IFF CPU852=1 P RF(0) END0 P RF(1) END1 P RF(2) E
0x1ac5cc…1ac760 Dummy {f00=0x00b0, f01=0x411e, f02=»LL A3,1 ********************************** P ANK.L A3,/0300 < P LDK.L A4,/FCFF ^ P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 P
0x1ac760…1ac8f4 (5, 74) Dummy {f00=0x00b1, f01=0x4044, f02=»ROGRAM X P RTN A14 P END ,@ @
0x1ac8f4…1aca88 Dummy {f00=0x00b1, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x1aca88…1acc1c Dummy {f00=0x00b1, f01=0x0190, f02=»ATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR F ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR v P* P XIF P* P EJECT P* P* : P************************************
0x1acc1c…1acdb0 Dummy {f00=0x00b1, f01=0x018e, f02=»***** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* P PCWTLT3 EQU * Z P* n P IFT LOCHAN=3 x P* P* P* PDWA3 EQU /23 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST O
0x1acdb0…1acf44 Dummy {f00=0x00b1, 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
0x1acf44…1ad0d8 Dummy {f00=0x00b1, f01=0x0190, f02=»E ADDRESS ~ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD < P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE
0x1ad0d8…1ad26c Dummy {f00=0x00b1, f01=0x0190, f02=»LATOR v , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR > P* j P XIF t P* P EJECT P* P* : P***************************************************** : P* C W T L T 4
0x1ad26c…1ad400 Dummy {f00=0x00b1, f01=0x0190, f02=»L CHANNEL NO. 4 p P* PCWTLT4 EQU * " P* 6 P IFT LOCHAN=4 @ P* V P* ` P* j PDWA4 EQU /33 t P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT4 INTERRUPT TABLE P INR A2,0,DWA4 INR
0x1ad400…1ad594 (5, 75) Dummy {f00=0x00bc, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x1ad594…1ad728 Dummy {f00=0x00bc, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x1ad728…1ad8bc Dummy {f00=0x00bc, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x1ad8bc…1ada50 Dummy {f00=0x00bc, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x1ada50…1adbe4 Dummy {f00=0x00bc, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x1adbe4…1add78 Dummy {f00=0x00bc, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x1add78…1adf0c Dummy {f00=0x00bc, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x1adf0c…1ae0a0 Dummy {f00=0x00bc, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x1ae0a0…1ae234 (5, 76) Dummy {f00=0x00bc, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x1ae234…1ae3c8 Dummy {f00=0x00bc, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x1ae3c8…1ae55c Dummy {f00=0x00bc, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x1ae55c…1ae6f0 Dummy {f00=0x00bc, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x1ae6f0…1ae884 Dummy {f00=0x00bc, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x1ae884…1aea18 Dummy {f00=0x00bc, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x1aea18…1aebac Dummy {f00=0x00bc, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x1aebac…1aed40 Dummy {f00=0x00bc, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x1aed40…1aeed4 (5, 77) Dummy {f00=0x00c5, f01=0x0190, f02=»RD ?] _ X X &" X )# C V C !#2 Y B !#2 Y _^ C _ # # " $ P X ' X ] !#2 - + B 8! T !/ !/ !#2 - !/ R !#2_ B !/ V Z, !#2_ 8! T B Y & !/ W B Y (U X ( X & R P !#2
0x1aeed4…1af068 Dummy {f00=0x00c5, f01=0x0190, f02=»#2 8!0T 8 !@P !#2$ P !#2 !#2 - !#2 1P X & C ,T Y & "" X Y & Y > X " X &" Y )Q Y > X Z2<BR > #f ? Y 8" P !#2 !#2 T> 8" P d !#2 Y !#2 *0 !#2 X !#2 Y & Z - T _ !#2 X $ P !. +
0x1af068…1af1fc Dummy {f00=0x00c5, f01=0x0190, f02=» &" Y )U W !#2 !#2 !#2 Y 4 B +@ U )X R@ X X &" Y * X ) V Y !/ X $ X & !/ X * + +@ `R Y !#2 !#2 !#2 4 !#2 V !#2 V W :h !#2 4 X )" X '# R 4 - > d 0D 4
0x1af1fc…1af390 Dummy {f00=0x00c5, f01=0x0190, f02=» !4 !4 ! P !4 !4 C W 8# T !"P ! " W !@P " 8! T< B R b " +P* P T !4 !4 !4 " T Y ( 9 X ) Y ( # Pf !4 !4 # P6 Z P$ T W R _X"R /P !4 W0 W Y ( !#2_> !4 !'P ! T " T X ( Y )W
0x1af390…1af524 Dummy {f00=0x00c5, f01=0x0190, f02=»R _R X$ /P !4 W8 W Y * !#2_> !4 !EP ! T " T W X , X * Y - Y + " " B P@ Y 0Q: Y , !4 !4 !4 !EP ! T " T X .!xX6 Y - Y * " " B <C Q6 X -! T, !4 . P]< % !4 8 !4 ! " " X & B V " Y & # T
0x1af524…1af6b8 Dummy {f00=0x00c5, f01=0x0190, f02=»]< !4<:K Q]< !4J Q !4J P !4J R !4J P PQ !4< P Q Q]< !4< Q :C Q]< !4< Qx:E Q]< !4< Qj:F Q]< b ! PD !4J RT CQP !4J P RD b ! R,Q !4J (R0 9Q,W !4J P" (Q !4JW Q]< Q]< " " , !4r" 4 , !4r" R _ , !4r" Q]<
0x1af6b8…1af84c Dummy {f00=0x00c5, f01=0x0190, f02=» X ! "" " ? X T Y Y X &R @0B Y & 6 P]< - ^ !4 !4 !4 X & !4 !4 X ) !4 X + "? !4 "@ !4 X - !4 . , !4 !4 "@P Y , Y * X 0V " ' "?:B ] P H U _ T U P U ;C ,$ T -_> -
0x1af84c…1af9e0 Dummy {f00=0x00c5, f01=0x0190, f02=» ? <(@ 6 $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h 6 P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2 P* P P" P P P TX P " 7 P " B B T P* & T$
0x1af9e0…1afb74 (5, 78) Dummy {f00=0x00c5, f01=0x0190, f02=» < h _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ 9f9f9f9f9 9 9 9 9 9 9 9 ; ; : : 9R: !" 8 8 8d T -_> 8
0x1afb74…1afd08 Dummy {f00=0x00c5, f01=0x0004, f02=»
0x1afd08…1afe9c Dummy {f00=0x00c5, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVT100 P
0x1afe9c…1b0030 Dummy {f00=0x00c5, f01=0x0190, f02=» DVDI02 P EXTRN DVDY02 P EXTRN DVGP03 0 P* P P* Z P* d P* n PTCLASS DATA TCLASE-* x P DATA TC00 P DATA TC01 P DATA TC02 P DATA TC03
0x1b0030…1b01c4 Dummy {f00=0x00c5, f01=0x0190, f02=» /0041 P DATA DVDI00 P DATA /0050 2 P DATA DVDY00 R P DATA /0030 r P DATA DVT100 P DATA /0131 P DATA DVT100 PTC00E EQU *
0x1b01c4…1b0358 Dummy {f00=0x00c5, f01=0x0190, f02=» DATA DVDI01 P DATA /0050 P DATA DVDY01 @ PTC01E EQU * ` PTC02 DATA TC02E-* | P DATA /0020 P DATA DVKB02 P DATA /0041 P D
0x1b0358…1b04ec Dummy {f00=0x00c5, f01=0x4078, f02=»E-* z P DATA /0030 P DATA DVGP03 , PTC03E EQU * L P END h@ t PTC02 DATA TC02E-* | P DATA /0020 P DATA DVKB02 P DATA /0041 P D
0x1b04ec…1b0680 Dummy {f00=0x00c5, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x1b0680…1b0814 (5, 79) Dummy {f00=0x007f, f01=0x0190, f02=»ASK IN SYSTEM P* P EJECT SYSTAB P* 8 P* SYSTEM CONTROL TABLE B P* ` PSCT EQU * j P | * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTI
0x1b0814…1b09a8 Dummy {f00=0x007f, f01=0x0190, f02=»A 0,0 APPLICATION DISC SECTOR ADDRESS . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS . PSCTTCT DATA 0 TCTAB ADDRESS ` PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF
0x1b09a8…1b0b3c Dummy {f00=0x007f, f01=0x0190, f02=»LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY & P INDEX REL TTAB P * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES j ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA X:A MONITOR OP
0x1b0b3c…1b0cd0 Dummy {f00=0x007f, f01=0x0190, f02=»X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE H P EJECT SYSTAB | P* P* * PSCTFWT DATA 0 FWT CHAIN START ADDRESS $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DAT
0x1b0cd0…1b0e64 Dummy {f00=0x007f, f01=0x413e, f02=»X:G DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB $ P < P* D P* SYSTEM STACK N P* d P RES 143 n P DATA /FCC0 AND PSW ~ & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP
0x1b0e64…1b0ff8 Dummy {f00=0x007f, 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
0x1b0ff8…1b118c Dummy {f00=0x007f, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x1b118c…1b1320 Dummy {f00=0x007f, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x1b1320…1b14b4 (5, 80) Dummy {f00=0x0091, f01=0x0190, f02=»WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 : P RB(Z) RED040 LAST CHARACTER N P CWK A7,5 r P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK A1,/07
0x1b14b4…1b1648 Dummy {f00=0x0091, f01=0x0004, f02=» 8 @
0x1b1648…1b17dc Dummy {f00=0x0091, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x1b17dc…1b1970 Dummy {f00=0x0091, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x1b1970…1b1b04 Dummy {f00=0x0091, f01=0x0190, f02=» IHRTC ILLINTM IHTWN " , ( 2 CHLT1 b IHFDN r , ( , ( ! , ( 1
0x1b1b04…1b1c98 Dummy {f00=0x0091, f01=0x0190, f02=» r , ( q HALTN B R SCTMSZK j SCTSFA ~ SCTEFA SCTIPL SCTANO SCTADA , ( @
0x1b1c98…1b1e2c Dummy {f00=0x0091, f01=0x0190, f02=»PSZ SCTMMC SCTLAC " SCTMMPL 6 SCTLAP0 J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x1b1e2c…1b1fc0 Dummy {f00=0x0091, f01=0x4058, f02=» ~ _ " B@ T J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x1b1fc0…1b2154 (5, 81) Dummy {f00=0x0092, f01=0x0190, f02=» P RTN A5 RETURN VIA A5-STACK & P EJECT & ( P* & 6 P* & @ P* G E T C H R & J P* & b 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER & l P* & P* ON ENTRY: & P* & P* A3 = BUFFER INDEX & P* A8 = ECB-ADDRESS &
0x1b2154…1b22e8 Dummy {f00=0x0092, f01=0x0190, f02=» IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH & P* ' J P* ' T PGETCHR EQU * ' ^ P LD A1,4,A8 REQUESTED LENGTH ' r P SUR A1,A3 ' * P RF(NP) GCH010 LAST CHARACTER REACHED ' " P LD A1,2,A8 GET BUFFER ADDRESS ' P ADR A1,A3 '
0x1b22e8…1b247c Dummy {f00=0x0092, f01=0x0190, f02=»EFFECTIVE LENGTH ' x P RTN A5 ( P EJECT ( ( P* ( 6 ( P* DEVICE WORK TABLE FOR TYPEWRITER ( @ P* ( l P* ( v PDWTW01 EQU * TABLE ENTRY ( " P DATA /0010 CHANNEL PARAMETER ( 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ( P DATA 0 ECB AD
0x1b247c…1b2610 Dummy {f00=0x0092, f01=0x0190, f02=»TOR ( t P DATA 0 TERMINAL QUEUE ) IFT MMUPAG=1 ) * & " DATA 0 SAVE AREA USER ECB ADDRESS ) @ DATA DEVECB MMU ECB ADDRESS ) j XIF ) P DATA 0 OUTPUT QUEUE LINK ) P DATA 0 SAVE AREA FOR A3 ) P DATA 0 SAVE AREA FOR A4 ) P DATA 0 SAVE
0x1b2610…1b27a4 Dummy {f00=0x0092, f01=0x018e, f02=»KEY ) p P RIGHT BYTE CANCEL KEY * & P DATA /0D00 LEFT BYTE STANDARD EOR * , P RIGHT BYTE DOUBLE ZERO * V " P DATA 0 HEAD POSITION POINETR * x P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=1 *
0x1b27a4…1b2938 Dummy {f00=0x0092, f01=0x4036, f02=» * P* + P* + P* + P END + &@ + 20 LEFT BYTE STANDARD EOR * , P RIGHT BYTE DOUBLE ZERO * V " P DATA 0 HEAD POSITION POINETR * x P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=1 *
0x1b2938…1b2acc Dummy {f00=0x0092, f01=0x2008, f02=» ,
0x1b2acc…1b2c60 Dummy {f00=0x0092, f01=0x0190, f02=»WRDO20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER , P LDR A1,A1 - : " P RF(Z) WRDO50 BUFFER FINISHED - L P LDR A1,A2 GET CHARACTER - r P - 8 P* EXAMINE CHARACTER AND UPDATE PRINT POS AND SEND - & P* DEPENDING ON TYPE OF CHARACTER - P - P
0x1b2c60…1b2df4 (5, 82) Dummy {f00=0x00b4, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x1b2df4…1b2f88 Dummy {f00=0x00b4, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x1b2f88…1b311c Dummy {f00=0x00b4, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x1b311c…1b32b0 Dummy {f00=0x00b4, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x1b32b0…1b3444 Dummy {f00=0x00b4, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x1b3444…1b35d8 Dummy {f00=0x00b4, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x1b35d8…1b376c Dummy {f00=0x00b4, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x1b376c…1b3900 Dummy {f00=0x00b4, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x1b3900…1b3a94 (5, 83) Dummy {f00=0x00b5, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x1b3a94…1b3c28 Dummy {f00=0x00b5, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x1b3c28…1b3dbc Dummy {f00=0x00b5, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x1b3dbc…1b3f50 Dummy {f00=0x00b5, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x1b3f50…1b40e4 Dummy {f00=0x00b5, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x1b40e4…1b4278 Dummy {f00=0x00b5, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x1b4278…1b440c Dummy {f00=0x00b5, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x1b440c…1b45a0 Dummy {f00=0x00b5, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x1b45a0…1b4734 (5, 84) Dummy {f00=0x00bc, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x1b4734…1b48c8 Dummy {f00=0x00bc, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x1b48c8…1b4a5c Dummy {f00=0x00bc, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x1b4a5c…1b4bf0 Dummy {f00=0x00bc, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x1b4bf0…1b4d84 Dummy {f00=0x00bc, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x1b4d84…1b4f18 Dummy {f00=0x00bc, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x1b4f18…1b50ac Dummy {f00=0x00bc, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x1b50ac…1b5240 Dummy {f00=0x00bc, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x1b5240…1b53d4 (5, 85) Dummy {f00=0x00bd, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x1b53d4…1b5568 Dummy {f00=0x00bd, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x1b5568…1b56fc Dummy {f00=0x00bd, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x1b56fc…1b5890 Dummy {f00=0x00bd, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x1b5890…1b5a24 Dummy {f00=0x00bd, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x1b5a24…1b5bb8 Dummy {f00=0x00bd, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x1b5bb8…1b5d4c Dummy {f00=0x00bd, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x1b5d4c…1b5ee0 Dummy {f00=0x00bd, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x1b5ee0…1b6074 (5, 86) Dummy {f00=0x00c4, f01=0x0190, f02=»P P P (@ ^ X P8 P0 # P T P 0P 1 _ W Y > > T > . "" d ( > 2 _ " ? ^ 4 _ d d @ 1 A _ P 9 > > T R L U R9C
0x1b6074…1b6208 Dummy {f00=0x00c4, f01=0x0004, f02=»
0x1b6208…1b639c Dummy {f00=0x00c4, f01=0x0190, f02=» J F IDENT FMTASK REL 10.0 80-03-15 870105041000 F B FMRDWRK FM:ADM FMINIT TTABFM FWTPAR FWTFNR FWTTABL FWTEW1 R F B FWTEXB FWTVOL EWTEXL EWTEXB EWTVOL FPB:RLL FPB:BF0 FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1B
0x1b639c…1b6530 Dummy {f00=0x00c4, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL " d FWTEXB $ x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BF0 FPB:FO F
0x1b6530…1b66c4 Dummy {f00=0x00c4, f01=0x0190, f02=» FPB:V3 & FPB:S3 , FPB:V4 0 ( FPB:S4 6 < FPB:FR : P FPB:US > d FPB:SHL @ x FPB:MN A FPB:SNI B FPB:IF C FPB:KAV D FPB:CD F FPB:RP L T
0x1b66c4…1b6858 Dummy {f00=0x00c4, f01=0x0190, f02=»T SCTNOF TIODM FDBMECS , , ( > A @ @ > SCTFWL n , ( A @ R P % % DWTST DWTADRI * & @ I I I I DWTME
0x1b6858…1b69ec Dummy {f00=0x00c4, f01=0x0190, f02=» 9 V 1 Y , NVLEND * NVLBITS < & " = P :A A > N FM:ADM x TTB:MTO ECBBA , ( f & T M F , ( @ h Px ' !
0x1b69ec…1b6b80 Dummy {f00=0x00c4, f01=0x018e, f02=» n FNDDWD , ( U W A " X* X2 " DWTNVLI P , ( u "(@ I $ V V " L b GETBLK * & P V : V V P , ( &W Y Y " V V T Y , (
0x1b6b80…1b6d14 (5, 87) Dummy {f00=0x00c5, f01=0x0190, f02=» C C _ X "" 8d Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y 9 X X T 9 X Q T P P S W W <j 9 B B @
0x1b6d14…1b6ea8 Dummy {f00=0x00c5, f01=0x0190, f02=»W R [ [ M M M M A<h -(@ : - : @<h , L T M @<h (@ :FHFHI I F F F H F F F F FHI QfW H Q< (@ X @R X R Q N D '? T" F F E GR Q D HU I Y . R8 L ' PN M ' T> L C L C ( R H E4
0x1b6ea8…1b703c Dummy {f00=0x00c5, f01=0x0190, f02=» BU X B G Hr F S W G G F F G X $? Hr H X # T B E4 E @ B F F +P P P T @W P P P P R P P X N HP P HPW Rh H TX D "?
0x1b703c…1b71d0 Dummy {f00=0x00c5, f01=0x0190, f02=» H T, H RP L N X @ L B p & Jv X B X @ F X + X R ( R T W Y F F D '? PD P> PN P2 PB P T V K K W K K D $ P T 6W E G E H_ Jv X
0x1b71d0…1b7364 Dummy {f00=0x00c5, f01=0x0190, f02=» H G H H G R [ N '? T V K K F K F K X K Y Y F D @ D B )P( D ^ E @ [ E GR Q D HR W@ W0 D @ D B I T G I8 W Y _n I H !' _ X
0x1b7364…1b74f8 Dummy {f00=0x00c5, f01=0x0190, f02=» Z Jl X X !? L Tn U D @W Y W M D B )P D ^ E @_$ H X, D @ D ^T ( X H Y W M X - - - T T = = = = [ [ [ P 9A X ^
0x1b74f8…1b768c Dummy {f00=0x00c5, f01=0x0190, f02=»H X ^ Y @ )P Y W W X _ [ E GR Q D HU Y G Y H G [2 E4 J Jl X @ X B $ S T D D R P0 . Y W Jl D B )XJ D ^ E @_( D [ T S X @ X ^ X @ -
0x1b768c…1b7820 Dummy {f00=0x00c5, f01=0x0190, f02=» E4 Y W _ T ^W T B U @ T B 1 | T R T I T [ C C Z G V G W P ( X H L - - - T T = = = = [ [ P 9A X ^
0x1b7820…1b79b4 (5, 88) Dummy {f00=0x00c6, f01=0x2008, f02=»
0x1b79b4…1b7b48 Dummy {f00=0x00c6, f01=0x001a, f02=» !P!X!`!h!p!x! ! ! ! ! !
0x1b7b48…1b7cdc Dummy {f00=0x00c6, f01=0x0190, f02=»]^ ` L L L L L L L L L L L $ L L L L L L L L L L L L L $ L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ v z ^ ^ j X H 2 Z i% z
0x1b7cdc…1b7e70 Dummy {f00=0x00c6, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A H " ! _ @! > > U # T @ H ( ( P c P W6 ~ A! $ V ( U P @ V L
0x1b7e70…1b8004 Dummy {f00=0x00c6, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 " Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ ! $P T I R $ 5 % > ? W ? W ? T
0x1b8004…1b8198 Dummy {f00=0x00c6, f01=0x0190, f02=» @ T R 0 A 1 Q Q > > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x1b8198…1b832c Dummy {f00=0x00c6, f01=0x0190, f02=» " P PR 4 5 T P ? X U X #" > PZ PF P P 0 X T Y Wn U U T X^ T E "" Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > "" Z X "X 8' T 8Z" X ' X
0x1b832c…1b84c0 Dummy {f00=0x00c6, f01=0x0190, f02=» >B @ P A #" X !6 9 ! ! T 9 ! X $ Y X Y $ 9 X !P T4 A W A @ A. P @ "" Y P W" L r Y ! X &R J " " !6 B X ; Z Y B < Z*:A Z4 ^: Y: Y ` Y ^ B Y Z
0x1b84c0…1b8654 (5, 89) Dummy {f00=0x00c6, f01=0x0190, f02=» .V 3 S Y& P4 S P 3 _ 3 h A. @ j @ W A : A A "" > l : olR mF W n V pT : N V l W H V ]" .
0x1b8654…1b87e8 Dummy {f00=0x00c6, f01=0x001a, f02=» ! ! ! ! !(!8!@!H
0x1b87e8…1b897c Dummy {f00=0x00c6, f01=0x0190, f02=»]^ ` L L L L L L L L L L L $ L L L L L L L L L L L L L $ L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ v z ^ ^ j X H 2 Z i% z
0x1b897c…1b8b10 Dummy {f00=0x00c6, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A H " ! _ @! > > U # T @ H ( ( P c P W6 ~ A! $ V ( U P @ V L
0x1b8b10…1b8ca4 Dummy {f00=0x00c6, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 " Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ ! $P T I R $ 5 % > ? W ? W ? T
0x1b8ca4…1b8e38 Dummy {f00=0x00c6, f01=0x0190, f02=» @ T R 0 A 1 Q Q > > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x1b8e38…1b8fcc Dummy {f00=0x00c6, f01=0x0190, f02=» " P PR 4 5 T P ? X U X #" > PZ PF P P 0 X T Y Wn U U T X^ T E "" Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > "" Z X "X 8' T 8Z" X ' X
0x1b8fcc…1b9160 Dummy {f00=0x00c6, f01=0x0190, f02=» >B @ P A #" X !6 9 ! ! T 9 ! X $ Y X Y $ 9 X !P T4 A W A @ A. P @ "" Y P W" L r Y ! X &R J " " !6 B X ; Z Y B < Z*:A Z4 ^: Y: Y ` Y ^ B Y Z
0x1b9160…1b92f4 (5, 90) Dummy {f00=0x00c7, f01=0x0190, f02=»P P P (@ ^ X P8 P0 # P T P 0P 1 _ W Y > > T > . "" d ( > 2 _ " ? ^ 4 _ d d @ 1 A _ P 9 > > T R L U R9C
0x1b92f4…1b9488 Dummy {f00=0x00c7, f01=0x0190, f02=»7 65 5 8d $" P E ` T(@ $ : ' P W @ D P _ t U "" R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X @ X F ~ : ! ( H > D J
0x1b9488…1b961c Dummy {f00=0x00c7, f01=0x0190, f02=» D E Q , 0 5 @ 1 A ZB : D LW (P D E I W6 @NpT R ( ANp U 1_ D E I D L ) E L(@ : T D dSB P W D U0 T ` > S W U < U > P T B _ W U @ : . D < C D > C B P. T G W B
0x1b961c…1b97b0 Dummy {f00=0x00c7, f01=0x0190, f02=» @! Q (@ @ @! Q (@ : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J P @! Q (@ @ @! Q (@ : U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ )
0x1b97b0…1b9944 Dummy {f00=0x00c7, f01=0x0190, f02=» 5 @ 1 A ZB : D W (P D I W @ T R ( A U 1_ D I D > A @ @ 8 b @ R*P % % @ I I I I _> @ P ! #D9 V 1 Y ! ,P :A ! A! >W B
0x1b9944…1b9ad8 Dummy {f00=0x00c7, f01=0x0190, f02=» T M F Px ' " ! A B P< Z P& 8! P6 K @P X T X !? ? W W @W Z & W A B X* X2 " (@ I ' V V " LP V : V V P dW Y Y " V V T Y " Y
0x1b9ad8…1b9c6c Dummy {f00=0x00c7, f01=0x0190, f02=»P @T #?W #?$? Z _2 J @" P Y 9 @ J ! T " Y X & $ ' ! P C P* J : J < W W P X V C W & X ! "? K >Q 9 ZW Y B W _.! T T P % Y % Y Y V + V K V K
0x1b9c6c…1b9e00 Dummy {f00=0x00c7, f01=0x0190, f02=» N ! N P N & N T _ - M @ F Pp G " _ W C ( B P U T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : Nc NhP" $ z 8X 8 , Y $ : _ & 7 (@
0x1b9e00…1b9f94 (5, 91) Dummy {f00=0x00c8, f01=0x0190, f02=»RD ?] _ X X &" X )# C V C !#2 Y B !#2 Y _^ C _ # # " $ P X ' X ] !#2 - + B 8! T !/ !/ !#2 - !/ R !#2_ B !/ V Z, !#2_ 8! T B Y & !/ W B Y (U X ( X & R P !#2
0x1b9f94…1ba128 Dummy {f00=0x00c8, f01=0x0190, f02=»#2 8!0T 8 !@P !#2$ P !#2 !#2 - !#2 1P X & C ,T Y & "" X Y & Y > X " X &" Y )Q Y > X Z2<BR > #f ? Y 8" P !#2 !#2 T> 8" P d !#2 Y !#2 *0 !#2 X !#2 Y & Z - T _ !#2 X $ P !. +
0x1ba128…1ba2bc Dummy {f00=0x00c8, f01=0x0190, f02=» &" Y )U W !#2 !#2 !#2 Y 4 B +@ U )X R@ X X &" Y * X ) V Y !/ X $ X & !/ X * + +@ `R Y !#2 !#2 !#2 4 !#2 V !#2 V W :h !#2 4 X )" X '# R 4 - > d 0D 4
0x1ba2bc…1ba450 Dummy {f00=0x00c8, f01=0x0190, f02=» !4 !4 ! P !4 !4 C W 8# T !"P ! " W !@P " 8! T< B R b " +P* P T !4 !4 !4 " T Y ( 9 X ) Y ( # Pf !4 !4 # P6 Z P$ T W R _X"R /P !4 W0 W Y ( !#2_> !4 !'P ! T " T X ( Y )W
0x1ba450…1ba5e4 Dummy {f00=0x00c8, f01=0x0190, f02=»R _R X$ /P !4 W8 W Y * !#2_> !4 !EP ! T " T W X , X * Y - Y + " " B P@ Y 0Q: Y , !4 !4 !4 !EP ! T " T X .!xX6 Y - Y * " " B <C Q6 X -! T, !4 . P]< % !4 8 !4 ! " " X & B V " Y & # T
0x1ba5e4…1ba778 Dummy {f00=0x00c8, f01=0x0190, f02=»]< !4<:K Q]< !4J Q !4J P !4J R !4J P PQ !4< P Q Q]< !4< Q :C Q]< !4< Qx:E Q]< !4< Qj:F Q]< b ! PD !4J RT CQP !4J P RD b ! R,Q !4J (R0 9Q,W !4J P" (Q !4JW Q]< Q]< " " , !4r" 4 , !4r" R _ , !4r" Q]<
0x1ba778…1ba90c Dummy {f00=0x00c8, f01=0x0190, f02=» X ! "" " ? X T Y Y X &R @0B Y & 6 P]< - ^ !4 !4 !4 X & !4 !4 X ) !4 X + "? !4 "@ !4 X - !4 . , !4 !4 "@P Y , Y * X 0V " ' "?:B ] P H U _ T U P U ;C ,$ T -_> -
0x1ba90c…1baaa0 Dummy {f00=0x00c8, f01=0x0190, f02=» ? <(@ 6 $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h 6 P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2 P* P P" P P P TX F " 7 P " B B T P* & T$
0x1baaa0…1bac34 (5, 92) Dummy {f00=0x0108, f01=0x0190, f02=» C C _ X "" 8d Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y 9 X X T 9 X Q T P P S W W <j 9 B B @
0x1bac34…1badc8 Dummy {f00=0x0108, f01=0x0190, f02=»W R [ [ M M M M A<h -(@ : - : @<h , L T M @<h (@ :FHFHI I F F F H F F F F FHI QfW H Q< (@ X @R X R Q N D '? T" F F E GR Q D HU I Y . R8 L ' PN M ' T> L C L C ( R H E4
0x1badc8…1baf5c Dummy {f00=0x0108, f01=0x0190, f02=» BU X B G Hr F S W G G F F G X $? Hr H X # T B E4 E @ B F F +P P P T @W P P P P R P P X N HP P HPW Rh H TX D "?
0x1baf5c…1bb0f0 Dummy {f00=0x0108, f01=0x0190, f02=» H T, H RP L N X @ L B p & Jv X B X @ F X + X R ( R T W Y F F D '? PD P> PN P2 PB P T V K K W K K D $ P T 6W E G E H_ Jv X
0x1bb0f0…1bb284 Dummy {f00=0x0108, f01=0x0190, f02=» H G H H G R [ N '? T V K K F K F K X K Y Y F D @ D B )P( D ^ E @ [ E GR Q D HR W@ W0 D @ D B I T G I8 W Y _n I H !' _ X
0x1bb284…1bb418 Dummy {f00=0x0108, f01=0x0190, f02=» Z Jl X X !? L Tn U D @W Y W M D B )P D ^ E @_$ H X, D @ D ^T ( X H Y W M X - - - T T = = = = [ [ [ P 9A X ^
0x1bb418…1bb5ac Dummy {f00=0x0108, f01=0x0190, f02=»H X ^ Y @ )P Y W W X _ [ E GR Q D HU Y G Y H G [2 E4 J Jl X @ X B $ S T D D R P0 . Y W Jl D B )XJ D ^ E @_( D [ T S X @ X ^ X @ -
0x1bb5ac…1bb740 Dummy {f00=0x0108, f01=0x0190, f02=» E4 Y W _ T ^W T B U @ T B 1 | T R T I T [ C C Z G V G W P ( X H L - - - T T = = = = [ [ P 9A X ^
0x1bb740…1bb8d4 (5, 93) Dummy {f00=0x0109, f01=0x0190, f02=»]f J _l W W : : R LW PL T S Y R Y Q Z$ Z* Z R R R [ S S _P (@ : T < T > T ` d T D > T B T @ ^ S W : P Q R ;A [ [
0x1bb8d4…1bba68 Dummy {f00=0x0109, f01=0x0190, f02=» 0123456789 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ ~ ?;_: =!"#$%&/() ;<=>?^ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}* D : ($SWAP A A A A A. j UU @ @ !
0x1bba68…1bbbfc Dummy {f00=0x0109, f01=0x0190, f02=»]H :d @ # U R>P0 P k f Ajd f P2 e _ * A hTW * A g W :a2 * A fJ jd & W F W @ F W CRP BAP COP A W F A @ : V, @ P k ;b=H : ` F ` W =J : R F P W W @ $ P @ R| W W
0x1bbbfc…1bbd90 Dummy {f00=0x0109, f01=0x0190, f02=» A @ o:U U^ A Q o:VD Y2 W V @ " TJ W P o:Y k a@ k Y P @ P @ T W - k P _ T <B :L A W
0x1bbd90…1bbf24 Dummy {f00=0x0109, f01=0x0190, f02=» :L < P W <9B @ V W Q k W @k A i @ bB V W bB! P W @ V P _ @ ! P* j 9h !RRP V V bB W _> k j j jZ V V PZ W @ @ ! T
0x1bbf24…1bc0b8 Dummy {f00=0x0109, f01=0x0190, f02=» W W f f PH e dlW> f T e f W e c h W @]F W d d d d d e@ ep e d eH ep e d eP ep d d d d V 00P& e eX ep d d e` ep d d _0 d d V 00P e eh ep d d _ 0 !TTX
0x1bc0b8…1bc24c Dummy {f00=0x0109, f01=0x0190, f02=» k W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W k nX T d : f b : k d : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 Ad P.=H_, !11R T$ 0
0x1bc24c…1bc3e0 Dummy {f00=0x0109, f01=0x0190, f02=» e : e : e : 0 )T : !00T W : k TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : e C. e X C.9h! e e # " e e :A K : A T.I T P 1 I P < R P A _> k : @ " P P ^ f
0x1bc3e0…1bc574 (5, 94) Dummy {f00=0x010a, f01=0x0190, f02=» P0 r " U k _2 P0 " U k _2 V tP o:R k S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W
0x1bc574…1bc708 Dummy {f00=0x010a, f01=0x0190, f02=» _ Pd W p V 8 8 4 D P$ k @ # P H I K T + Y@ V p _f V t Y wB !TTX @ @ T k : W % @ P _ R @ WT R @ 0
0x1bc708…1bc89c Dummy {f00=0x010a, f01=0x0190, f02=» ( W d $ p G =h G V d V r < V f P W f _B 0 V W V t Yv wB !TTX @ @ T k : wB !TTX !CCTr P, V r 4 U k $ $ _. P, V 4 U k
0x1bc89c…1bca30 Dummy {f00=0x010a, f01=0x0190, f02=» $ V d V r < V f _2 0 U^ V 8 8 8 4 D P$ k @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T k : W V F !SST .WJ !AAT
0x1bca30…1bcbc4 Dummy {f00=0x010a, f01=0x0190, f02=» D k ) $ PV D L Tp D &P V ` T @ 1 Q a 0 I , I . $# P8 V -W( W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P V : ` P: @
0x1bcbc4…1bcd58 Dummy {f00=0x010a, f01=0x0190, f02=» ;a WR# T W W,# T W W # T W W W R _ $ W : k Y Z @ T A V W Y0 Z6 @ T A V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x1bcd58…1bceec Dummy {f00=0x010a, f01=0x0190, f02=» Y$ P W | V z 3 % W P _ V |P V v ] W v P _ @ P V k A (P ) @ @ P V k A (P ) @ @ @ T k : N =H N w( : N =H N w( : &=H F w( : F =H F w( : F
0x1bceec…1bd080 Dummy {f00=0x010a, f01=0x0190, f02=» : z {h { |8 } } ~ @ R @ $ D L * A CRT M " " 0 A P 0 T 1 T A & P X A P P 0 > D J 8d 8d t t t t # KB # $
0x1bd080…1bd214 (5, 95) Opaque[0x194]
0x1bd214…1bd3a8 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2118, f03=0x0000}
0x1bd214…1bd3a8 IdxSect {
0x1bd214…1bd3a8 f00 = 0x0108 // 0x1bd214 @0x0
0x1bd214…1bd3a8 f01 = 0x0004 // 0x1bd216 @0x2
0x1bd214…1bd3a8 gno = [ // 0x1bd218 @0x4
0x1bd214…1bd3a8 [0x00]: C0x0108.0x3.0
0x1bd214…1bd3a8 [0x01]: C0x0109.0x1.0
0x1bd214…1bd3a8 ]
0x1bd214…1bd3a8 }
0x1bd3a8…1bd53c Dummy {f00=0x0108, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDI00 P EXTRN DVDY00 P EXTRN DVKB01 P
0x1bd53c…1bd6d0 Dummy {f00=0x0108, f01=0x0190, f02=» DVDY02 P EXTRN DVT103 P EXTRN DVKB04 0 P EXTRN DVGP04 P P EXTRN DVDI04 p P EXTRN DVDY04 P* P* P* P* PTCLASS DATA TCLASE-* P DATA TC
0x1bd6d0…1bd864 Dummy {f00=0x0108, f01=0x0190, f02=» EQU * PTC00 DATA TC00E-* P DATA /0020 0 P DATA DVKB00 P P DATA /0041 p P DATA DVDI00 P DATA /0050 P DATA DVDY00 PTC00E EQU *
0x1bd864…1bd9f8 Dummy {f00=0x0108, f01=0x0190, f02=» DATA DVDI01 P DATA /0050 P DATA DVDY01 > PTC01E EQU * ^ PTC02 DATA TC02E-* z P DATA /0020 P DATA DVKB02 P DATA /0041 P DAT
0x1bd9f8…1bdb8c Dummy {f00=0x0108, f01=0x0190, f02=»* x P DATA /0030 P DATA DVT103 * P DATA /0131 J P DATA DVT103 j PTC03E EQU * PTC04 DATA TC04E-* P DATA /0020 P DATA DVKB04 P
0x1bdb8c…1bdd20 Dummy {f00=0x0108, f01=0x4064, f02=» DATA /0050 P DATA DVDY04 PTC04E EQU * 8 P END T@ ` J P DATA DVT103 j PTC03E EQU * PTC04 DATA TC04E-* P DATA /0020 P DATA DVKB04 P
0x1bdd20…1bdeb4 (5, 96) Dummy {f00=0x0109, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x1bdeb4…1be048 Dummy {f00=0x0109, f01=0x0190, f02=» ! j : h Ajd Ad Ah Ai Ah ! T h h W Ah Ah I ! : 9D @ @]Hr s @]FA I T - A _ I N T V S : k h i 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P w( @ T X W n
0x1be048…1be1dc Dummy {f00=0x0109, f01=0x0190, f02=» W X X S W W W : V W V T W P jh V T W F P P V W @ $ P p W k T : Ai jd_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A A
0x1be1dc…1be370 Dummy {f00=0x0109, f01=0x0190, f02=» W A A I ! : 9D W Z A. c @ V W U k R $ )_ : W W W W W o:Q@ V V v x W V V v p R( W
0x1be370…1be504 Dummy {f00=0x0109, f01=0x0190, f02=» m$ _ V m$ Z K W W :K W r o:Q R t o:V k k v : V W V k ) : V <B W |P v v : $ lv V |P v w v : V $ V l $ lv V M :
0x1be504…1be698 Dummy {f00=0x0109, f01=0x0190, f02=» : W R R o P mF ml W x m o _ V : " D Pd W V PL $;A^ D E D P. V k P k P T k E _J lv E _T " D T E lv E D E % : " R ;B lv " R P( |P v
0x1be698…1be82c Dummy {f00=0x0109, f01=0x0190, f02=» ; V : : , X G : J @ 0 V @ k 0 H W : ? ? R 0 R P P B _ ! : V ) o v : 4P: " D o , H H $ M v b - I Y0 : @ ` V b
0x1be82c…1be9c0 Dummy {f00=0x0109, f01=0x0190, f02=» o o p@ n = G $ n* V W $ nX V E J K _X V r V :B A V 9n A @ A A V V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW
0x1be9c0…1beb54 (5, 97) Opaque[0x194]
0x1beb54…1bece8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b80, f03=0x0000}
0x1beb54…1bece8 IdxSect {
0x1beb54…1bece8 f00 = 0x005c // 0x1beb54 @0x0
0x1beb54…1bece8 f01 = 0x0002 // 0x1beb56 @0x2
0x1beb54…1bece8 gno = [ // 0x1beb58 @0x4
0x1beb54…1bece8 [0x00]: C0x005c.0x0.0
0x1beb54…1bece8 ]
0x1beb54…1bece8 }
0x1bece8…1bee7c Dummy {f00=0x005c, f01=0x0190, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWTW01 P EXTRN DWDM01 P EXTRN DWFD01 P* P* P* P* P
0x1bee7c…1bf010 Dummy {f00=0x005c, f01=0x0190, f02=»TC03 ~ PTCLASE EQU * PTC00 DATA TC00E-* P DATA /0021 B P DATA DWTW01 b P DATA /0031 P DATA DWTW01 PTC00E EQU * PTC01 DATA TC01E-* P
0x1bf010…1bf1a4 Dummy {f00=0x005c, f01=0x4170, f02=»/00CA ~ P DATA DWDM01 PTC02E EQU * . PTC03 DATA TC03E-* J P DATA /00F8 l P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA DWFD01
0x1bf1a4…1bf338 Dummy {f00=0x005c, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x1bf338…1bf4cc Dummy {f00=0x005c, f01=0x0190, f02=» LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * $ " P LD A2,TABBE GET PAGE ADDRESS 8 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ^ P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P
0x1bf4cc…1bf660 Dummy {f00=0x005c, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x1bf660…1bf7f4 (5, 98) Opaque[0x194]
0x1bf7f4…1bf988 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ba8, f03=0x0000}
0x1bf7f4…1bf988 IdxSect {
0x1bf7f4…1bf988 f00 = 0x005d // 0x1bf7f4 @0x0
0x1bf7f4…1bf988 f01 = 0x0002 // 0x1bf7f6 @0x2
0x1bf7f4…1bf988 gno = [ // 0x1bf7f8 @0x4
0x1bf7f4…1bf988 [0x00]: C0x005d.0x1.0
0x1bf7f4…1bf988 ]
0x1bf7f4…1bf988 }
0x1bf988…1bfb1c Dummy {f00=0x005d, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x1bfb1c…1bfcb0 Dummy {f00=0x005d, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN CTAB01 ^ P EXTRN CTAB02 t P EXTRN CTAB03 P EXTRN CTAB05 P EXTRN KBAD3 P EXTRN GPAD P EXTRN DIAD P EXTRN DYAD P*
0x1bfcb0…1bfe44 Dummy {f00=0x005d, f01=0x0190, f02=»T2 DATA 0 PINTLT3 DATA 0 PINTLT4 DATA 0 ( PINTRT1 DATA 0 > PINTRT2 DATA 0 T PINTRT3 DATA 0 j PINTRT4 DATA 0 P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA CTAB05
0x1bfe44…1bffd8 Dummy {f00=0x005d, f01=0x4054, f02=»DATA 0 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) P END D@ PINTRT2 DATA 0 T PINTRT3 DATA 0 j PINTRT4 DATA 0 P DATA SYSLOD P**** P DATA CTAB01 P DATA CTAB02 P DATA CTAB03 P DATA CTAB05
0x1bffd8…1c016c Dummy {f00=0x005d, 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
0x1c016c…1c0300 Dummy {f00=0x005d, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x1c0300…1c0494 (5, 99) Opaque[0x194]
0x1c0494…1c0628 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1220, f03=0x0000}
0x1c0494…1c0628 IdxSect {
0x1c0494…1c0628 f00 = 0x0091 // 0x1c0494 @0x0
0x1c0494…1c0628 f01 = 0x0006 // 0x1c0496 @0x2
0x1c0494…1c0628 gno = [ // 0x1c0498 @0x4
0x1c0494…1c0628 [0x00]: C0x0091.0x0.0
0x1c0494…1c0628 [0x01]: C0x0091.0x1.0
0x1c0494…1c0628 [0x02]: C0x0091.0x2.0
0x1c0494…1c0628 ]
0x1c0494…1c0628 }
0x1c0628…1c07bc Dummy {f00=0x0091, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x1c07bc…1c0950 Dummy {f00=0x0091, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x1c0950…1c0ae4 Dummy {f00=0x0091, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x1c0ae4…1c0c78 Dummy {f00=0x0091, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x1c0c78…1c0e0c Dummy {f00=0x0091, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x1c0e0c…1c0fa0 Dummy {f00=0x0091, f01=0x0190, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x1c0fa0…1c1134 (5, 100) Dummy {f00=0x0091, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x1c1134…1c12c8 Dummy {f00=0x0091, f01=0x0190, f02=»QU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY . $ PSWB:EL EQU 4 SWB LENGTH (BYTES) d & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB P* P* INTE
0x1c12c8…1c145c Dummy {f00=0x0091, f01=0x0190, f02=» | P DATA ILLINT 4 P DATA ILLINT 5 $ P DATA ILLINT 6 @ P DATA IHTW 7 P DATA ILLINT v P DATA ILLINT P DATA ILLINT P DATA ILLINT P DATA
0x1c145c…1c15f0 Dummy {f00=0x0091, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT < P DATA ILLINT P DATA ILLINT | P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA IL
0x1c15f0…1c1784 Dummy {f00=0x0091, f01=0x018e, f02=»A IHFD 30 P DATA ILLINT 31 P DATA ILLINT 32 2 P DATA ILLINT 33 N P DATA ILLINT j P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLI
0x1c1784…1c1918 Dummy {f00=0x0091, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT 45 $ P DATA ILLINT 46 @ P DATA ILLINT 47 P DATA ILLINT x P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P
0x1c1918…1c1aac Dummy {f00=0x0091, f01=0x0190, f02=» P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 < P DATA ILLINT 61 X P DATA ILLINT 62 t P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P*
0x1c1aac…1c1c40 Dummy {f00=0x0091, f01=0x0190, f02=»LT P P* P* DEBUG RESTART ENTRY P* : P XRR A13,A13 D P XRR A14,A14 X P LD A1,SCTBUG l P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA M
0x1c1c40…1c1dd4 (5, 101) Dummy {f00=0x0091, f01=0x0190, f02=» OF FILES/TASK z $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM > P* b P EJECT SYSTAB l P* P* SYSTEM CONTROL TABLE P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DAT
0x1c1dd4…1c1f68 Dummy {f00=0x0091, f01=0x0190, f02=» MD:F4,F5 FD:F8,F9 | $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS B . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS z PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB
0x1c1f68…1c20fc Dummy {f00=0x0091, f01=0x0190, f02=»MMU TABLE COMMON PART ENTRY P INDEX REL TTAB $ 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART > & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY r P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES
0x1c20fc…1c2290 Dummy {f00=0x0091, f01=0x0190, f02=» 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA 0 DEBUGGER " ( PSCTDMT DATA 00003 DMTASKS IN SYSTEM @ & P BIT 12:#G, 13:#F, 14:#E, 15:#D l 2 PSCTDMI DATA 00007 DM INDEX RECORD BUFFER SIZE P EJECT SYSTAB P* P* * PSCTFWT DATA 0 FW
0x1c2290…1c2424 Dummy {f00=0x0091, f01=0x018c, f02=»FILE WORK TABLE LENGTH ~ ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE J P EJECT SYSTAB z P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR
0x1c2424…1c25b8 Dummy {f00=0x0091, f01=0x4008, f02=»@ K TABLE LENGTH ~ ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE J P EJECT SYSTAB z P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR
0x1c25b8…1c274c Dummy {f00=0x0091, 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
0x1c274c…1c28e0 Dummy {f00=0x0091, f01=0x0190, f02=» PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF P SUK A3,1 @ P RF(NZ) WRT030 R P LDK A2,/0C SEND FORM FEED j P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P* PWRT040
0x1c28e0…1c2a74 (5, 102) Opaque[0x194]
0x1c2a74…1c2c08 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bc8, f03=0x0000}
0x1c2a74…1c2c08 IdxSect {
0x1c2a74…1c2c08 f00 = 0x005e // 0x1c2a74 @0x0
0x1c2a74…1c2c08 f01 = 0x0008 // 0x1c2a76 @0x2
0x1c2a74…1c2c08 gno = [ // 0x1c2a78 @0x4
0x1c2a74…1c2c08 [0x00]: C0x005e.0x1.0
0x1c2a74…1c2c08 [0x01]: C0x005e.0x2.0
0x1c2a74…1c2c08 [0x02]: C0x005e.0x3.0
0x1c2a74…1c2c08 [0x03]: C0x007f.0x2.0
0x1c2a74…1c2c08 ]
0x1c2a74…1c2c08 }
0x1c2c08…1c2d9c Dummy {f00=0x005e, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x1c2d9c…1c2f30 Dummy {f00=0x005e, 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.
0x1c2f30…1c30c4 Dummy {f00=0x005e, 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
0x1c30c4…1c3258 Dummy {f00=0x005e, 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
0x1c3258…1c33ec Dummy {f00=0x005e, 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
0x1c33ec…1c3580 Dummy {f00=0x005e, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x1c3580…1c3714 (5, 103) Dummy {f00=0x005e, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x1c3714…1c38a8 Dummy {f00=0x005e, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x1c38a8…1c3a3c Dummy {f00=0x005e, f01=0x0190, f02=»U852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x1c3a3c…1c3bd0 Dummy {f00=0x005e, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x1c3bd0…1c3d64 Dummy {f00=0x005e, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x1c3d64…1c3ef8 Dummy {f00=0x005e, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x1c3ef8…1c408c Dummy {f00=0x005e, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x1c408c…1c4220 Dummy {f00=0x005e, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x1c4220…1c43b4 (5, 104) Dummy {f00=0x005e, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x1c43b4…1c4548 Dummy {f00=0x005e, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x1c4548…1c46dc Dummy {f00=0x005e, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x1c46dc…1c4870 Dummy {f00=0x005e, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x1c4870…1c4a04 Dummy {f00=0x005e, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x1c4a04…1c4b98 Dummy {f00=0x005e, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x1c4b98…1c4d2c Dummy {f00=0x005e, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x1c4d2c…1c4ec0 Dummy {f00=0x005e, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x1c4ec0…1c5054 (5, 105) Dummy {f00=0x007f, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x1c5054…1c51e8 Dummy {f00=0x007f, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x1c51e8…1c537c Dummy {f00=0x007f, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x1c537c…1c5510 Dummy {f00=0x007f, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x1c5510…1c56a4 Dummy {f00=0x007f, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x1c56a4…1c5838 Dummy {f00=0x007f, 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
0x1c5838…1c59cc Dummy {f00=0x007f, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTB SCTPAG SCTSWB
0x1c59cc…1c5b60 Dummy {f00=0x007f, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x1c5b60…1c5cf4 (5, 106) Opaque[0x194]
0x1c5cf4…1c5e88 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc0, f03=0x0000}
0x1c5cf4…1c5e88 IdxSect {
0x1c5cf4…1c5e88 f00 = 0x007e // 0x1c5cf4 @0x0
0x1c5cf4…1c5e88 f01 = 0x000a // 0x1c5cf6 @0x2
0x1c5cf4…1c5e88 gno = [ // 0x1c5cf8 @0x4
0x1c5cf4…1c5e88 [0x00]: C0x007e.0x0.0
0x1c5cf4…1c5e88 [0x01]: C0x007e.0x1.0
0x1c5cf4…1c5e88 [0x02]: C0x0085.0x3.0
0x1c5cf4…1c5e88 [0x03]: C0x00a1.0x3.0
0x1c5cf4…1c5e88 [0x04]: C0x00a6.0x2.0
0x1c5cf4…1c5e88 ]
0x1c5cf4…1c5e88 }
0x1c5e88…1c601c Dummy {f00=0x007e, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x1c601c…1c61b0 Dummy {f00=0x007e, f01=0x0190, f02=» P* P* : P* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS P* FOR TOSS. THESE ARE: V P* v P* -IHLKM: LKM INTERRUPT P* P* -IHRTC: RTC INTERRUPT P* ( P* -IHPFAR: POWER FAILURE INTERRUPT P*
0x1c61b0…1c6344 Dummy {f00=0x007e, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x1c6344…1c64d8 Dummy {f00=0x007e, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x1c64d8…1c666c Dummy {f00=0x007e, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x1c666c…1c6800 Dummy {f00=0x007e, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x1c6800…1c6994 (5, 107) Dummy {f00=0x007e, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x1c6994…1c6b28 Dummy {f00=0x007e, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x1c6b28…1c6cbc Dummy {f00=0x007e, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x1c6cbc…1c6e50 Dummy {f00=0x007e, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x1c6e50…1c6fe4 Dummy {f00=0x007e, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x1c6fe4…1c7178 Dummy {f00=0x007e, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x1c7178…1c730c Dummy {f00=0x007e, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x1c730c…1c74a0 Dummy {f00=0x007e, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x1c74a0…1c7634 (5, 108) Dummy {f00=0x0085, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x1c7634…1c77c8 Dummy {f00=0x0085, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x1c77c8…1c795c Dummy {f00=0x0085, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x1c795c…1c7af0 Dummy {f00=0x0085, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x1c7af0…1c7c84 Dummy {f00=0x0085, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x1c7c84…1c7e18 Dummy {f00=0x0085, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x1c7e18…1c7fac Dummy {f00=0x0085, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x1c7fac…1c8140 Dummy {f00=0x0085, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x1c8140…1c82d4 (5, 109) Dummy {f00=0x00a1, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x1c82d4…1c8468 Dummy {f00=0x00a1, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x1c8468…1c85fc Dummy {f00=0x00a1, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x1c85fc…1c8790 Dummy {f00=0x00a1, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x1c8790…1c8924 Dummy {f00=0x00a1, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x1c8924…1c8ab8 Dummy {f00=0x00a1, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x1c8ab8…1c8c4c Dummy {f00=0x00a1, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x1c8c4c…1c8de0 Dummy {f00=0x00a1, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x1c8de0…1c8f74 (5, 110) Dummy {f00=0x00a6, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x1c8f74…1c9108 Dummy {f00=0x00a6, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x1c9108…1c929c Dummy {f00=0x00a6, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x1c929c…1c9430 Dummy {f00=0x00a6, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x1c9430…1c95c4 Dummy {f00=0x00a6, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x1c95c4…1c9758 Dummy {f00=0x00a6, 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
0x1c9758…1c98ec Dummy {f00=0x00a6, f01=0x0190, f02=»DEX # | P RF DMT310 $ P XIF $ P EJECT $ * " PDMERND LDKL A1,NODERR NO DATA $ 8 P RF DMERR $ ^ * PDMEAER EQU * RELEASE EA FOR ALL FILES $ p P SUR A9,A9 $ " P LC A9,FDBTNR,A6 USER TASK ID $ " P CF A14,RELPRO RELEASE PROTECT $ P LDKL A1,PRO
0x1c98ec…1c9a80 Dummy {f00=0x00a6, f01=0x0190, f02=»C=1 $ P CWK A7,QDEL % P RF(NE) DMT313 NOT INDEX DEL % P* % D " P* MOVE KEYS TO FDB KEY AREAS % N P* % t P LDK A5,8 % ~ PIXINS3 EQU * % P LDR A2,A6 FDB DATA % P ADR A2,A5 % P LD A3,FDBADF,A2 FDB INDEX % P RF(Z) IXINS4 NO IND
0x1c9a80…1c9c14 (5, 111) Opaque[0x194]
0x1c9c14…1c9da8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x1c9c14…1c9da8 IdxSect {
0x1c9c14…1c9da8 f00 = 0x0062 // 0x1c9c14 @0x0
0x1c9c14…1c9da8 f01 = 0x0006 // 0x1c9c16 @0x2
0x1c9c14…1c9da8 gno = [ // 0x1c9c18 @0x4
0x1c9c14…1c9da8 [0x00]: C0x0062.0x1.0
0x1c9c14…1c9da8 [0x01]: C0x0062.0x3.0
0x1c9c14…1c9da8 [0x02]: C0x0063.0x0.0
0x1c9c14…1c9da8 ]
0x1c9c14…1c9da8 }
0x1c9da8…1c9f3c Dummy {f00=0x0062, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x1c9f3c…1ca0d0 Dummy {f00=0x0062, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x1ca0d0…1ca264 Dummy {f00=0x0062, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x1ca264…1ca3f8 Dummy {f00=0x0062, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x1ca3f8…1ca58c Dummy {f00=0x0062, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* P EJECT TPROC P* P* P******** P* WAIT *
0x1ca58c…1ca720 Dummy {f00=0x0062, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x1ca720…1ca8b4 (5, 112) Dummy {f00=0x0062, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x1ca8b4…1caa48 Dummy {f00=0x0062, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x1caa48…1cabdc Dummy {f00=0x0062, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x1cabdc…1cad70 Dummy {f00=0x0062, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x1cad70…1caf04 Dummy {f00=0x0062, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x1caf04…1cb098 Dummy {f00=0x0062, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x1cb098…1cb22c Dummy {f00=0x0062, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x1cb22c…1cb3c0 Dummy {f00=0x0062, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x1cb3c0…1cb554 (5, 113) Dummy {f00=0x0063, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x1cb554…1cb6e8 Dummy {f00=0x0063, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x1cb6e8…1cb87c Dummy {f00=0x0063, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x1cb87c…1cba10 Dummy {f00=0x0063, 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
0x1cba10…1cbba4 Dummy {f00=0x0063, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x1cbba4…1cbd38 Dummy {f00=0x0063, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x1cbd38…1cbecc Dummy {f00=0x0063, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x1cbecc…1cc060 Dummy {f00=0x0063, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x1cc060…1cc1f4 (5, 114) Opaque[0x194]
0x1cc1f4…1cc388 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c10, f03=0x0000}
0x1cc1f4…1cc388 IdxSect {
0x1cc1f4…1cc388 f00 = 0x0060 // 0x1cc1f4 @0x0
0x1cc1f4…1cc388 f01 = 0x000e // 0x1cc1f6 @0x2
0x1cc1f4…1cc388 gno = [ // 0x1cc1f8 @0x4
0x1cc1f4…1cc388 [0x00]: C0x0060.0x2.0
0x1cc1f4…1cc388 [0x01]: C0x0061.0x0.0
0x1cc1f4…1cc388 [0x02]: C0x0061.0x1.0
0x1cc1f4…1cc388 [0x03]: C0x0061.0x2.0
0x1cc1f4…1cc388 [0x04]: C0x0082.0x0.0
0x1cc1f4…1cc388 [0x05]: C0x0082.0x2.0
0x1cc1f4…1cc388 [0x06]: C0x0082.0x3.0
0x1cc1f4…1cc388 ]
0x1cc1f4…1cc388 }
0x1cc388…1cc51c Dummy {f00=0x0060, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x1cc51c…1cc6b0 Dummy {f00=0x0060, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x1cc6b0…1cc844 Dummy {f00=0x0060, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x1cc844…1cc9d8 Dummy {f00=0x0060, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x1cc9d8…1ccb6c Dummy {f00=0x0060, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x1ccb6c…1ccd00 Dummy {f00=0x0060, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x1ccd00…1cce94 (5, 115) Dummy {f00=0x0061, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x1cce94…1cd028 Dummy {f00=0x0061, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x1cd028…1cd1bc Dummy {f00=0x0061, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x1cd1bc…1cd350 Dummy {f00=0x0061, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x1cd350…1cd4e4 Dummy {f00=0x0061, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x1cd4e4…1cd678 Dummy {f00=0x0061, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x1cd678…1cd80c Dummy {f00=0x0061, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x1cd80c…1cd9a0 Dummy {f00=0x0061, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x1cd9a0…1cdb34 (5, 116) Dummy {f00=0x0061, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x1cdb34…1cdcc8 Dummy {f00=0x0061, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x1cdcc8…1cde5c Dummy {f00=0x0061, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x1cde5c…1cdff0 Dummy {f00=0x0061, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x1cdff0…1ce184 Dummy {f00=0x0061, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x1ce184…1ce318 Dummy {f00=0x0061, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x1ce318…1ce4ac Dummy {f00=0x0061, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x1ce4ac…1ce640 Dummy {f00=0x0061, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x1ce640…1ce7d4 (5, 117) Dummy {f00=0x0061, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x1ce7d4…1ce968 Dummy {f00=0x0061, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x1ce968…1ceafc Dummy {f00=0x0061, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x1ceafc…1cec90 Dummy {f00=0x0061, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x1cec90…1cee24 Dummy {f00=0x0061, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x1cee24…1cefb8 Dummy {f00=0x0061, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x1cefb8…1cf14c Dummy {f00=0x0061, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x1cf14c…1cf2e0 Dummy {f00=0x0061, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x1cf2e0…1cf474 (5, 118) Dummy {f00=0x0082, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x1cf474…1cf608 Dummy {f00=0x0082, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x1cf608…1cf79c Dummy {f00=0x0082, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x1cf79c…1cf930 Dummy {f00=0x0082, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x1cf930…1cfac4 Dummy {f00=0x0082, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x1cfac4…1cfc58 Dummy {f00=0x0082, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x1cfc58…1cfdec Dummy {f00=0x0082, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x1cfdec…1cff80 Dummy {f00=0x0082, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x1cff80…1d0114 (5, 119) Dummy {f00=0x0082, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x1d0114…1d02a8 Dummy {f00=0x0082, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x1d02a8…1d043c Dummy {f00=0x0082, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x1d043c…1d05d0 Dummy {f00=0x0082, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x1d05d0…1d0764 Dummy {f00=0x0082, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x1d0764…1d08f8 Dummy {f00=0x0082, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x1d08f8…1d0a8c Dummy {f00=0x0082, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x1d0a8c…1d0c20 Dummy {f00=0x0082, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x1d0c20…1d0db4 (5, 120) Dummy {f00=0x0082, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x1d0db4…1d0f48 Dummy {f00=0x0082, 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. "
0x1d0f48…1d10dc Dummy {f00=0x0082, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x1d10dc…1d1270 Dummy {f00=0x0082, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x1d1270…1d1404 Dummy {f00=0x0082, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x1d1404…1d1598 Dummy {f00=0x0082, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x1d1598…1d172c Dummy {f00=0x0082, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x1d172c…1d18c0 Dummy {f00=0x0082, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x1d18c0…1d1a54 (5, 121) Opaque[0x194]
0x1d1a54…1d1be8 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c38, f03=0x0000}
0x1d1a54…1d1be8 IdxSect {
0x1d1a54…1d1be8 f00 = 0x0061 // 0x1d1a54 @0x0
0x1d1a54…1d1be8 f01 = 0x0004 // 0x1d1a56 @0x2
0x1d1a54…1d1be8 gno = [ // 0x1d1a58 @0x4
0x1d1a54…1d1be8 [0x00]: C0x0061.0x3.0
0x1d1a54…1d1be8 [0x01]: C0x0062.0x0.0
0x1d1a54…1d1be8 ]
0x1d1a54…1d1be8 }
0x1d1be8…1d1d7c Dummy {f00=0x0061, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x1d1d7c…1d1f10 Dummy {f00=0x0061, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x1d1f10…1d20a4 Dummy {f00=0x0061, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P*
0x1d20a4…1d2238 Dummy {f00=0x0061, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x1d2238…1d23cc Dummy {f00=0x0061, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x1d23cc…1d2560 Dummy {f00=0x0061, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x1d2560…1d26f4 (5, 122) Dummy {f00=0x0062, f01=0x4014, f02=» P END @
0x1d26f4…1d2888 Dummy {f00=0x0062, 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,
0x1d2888…1d2a1c Dummy {f00=0x0062, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x1d2a1c…1d2bb0 Dummy {f00=0x0062, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x1d2bb0…1d2d44 Dummy {f00=0x0062, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x1d2d44…1d2ed8 Dummy {f00=0x0062, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x1d2ed8…1d306c Dummy {f00=0x0062, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x1d306c…1d3200 Dummy {f00=0x0062, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x1d3200…1d3394 (5, 123) Opaque[0x194]
0x1d3394…1d3528 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e30, f03=0x0000}
0x1d3394…1d3528 IdxSect {
0x1d3394…1d3528 f00 = 0x0071 // 0x1d3394 @0x0
0x1d3394…1d3528 f01 = 0x0022 // 0x1d3396 @0x2
0x1d3394…1d3528 gno = [ // 0x1d3398 @0x4
0x1d3394…1d3528 [0x00]: C0x0071.0x2.0
0x1d3394…1d3528 [0x01]: C0x0072.0x0.0
0x1d3394…1d3528 [0x02]: C0x0072.0x1.0
0x1d3394…1d3528 [0x03]: C0x0072.0x2.0
0x1d3394…1d3528 [0x04]: C0x0099.0x1.0
0x1d3394…1d3528 [0x05]: C0x0099.0x2.0
0x1d3394…1d3528 [0x06]: C0x0099.0x3.0
0x1d3394…1d3528 [0x07]: C0x009a.0x0.0
0x1d3394…1d3528 [0x08]: C0x009a.0x1.0
0x1d3394…1d3528 [0x09]: C0x009a.0x2.0
0x1d3394…1d3528 [0x0a]: C0x009a.0x3.0
0x1d3394…1d3528 [0x0b]: C0x009b.0x0.0
0x1d3394…1d3528 [0x0c]: C0x009b.0x1.0
0x1d3394…1d3528 [0x0d]: C0x009b.0x2.0
0x1d3394…1d3528 [0x0e]: C0x00a0.0x1.0
0x1d3394…1d3528 [0x0f]: C0x00a0.0x2.0
0x1d3394…1d3528 [0x10]: C0x00a1.0x1.0
0x1d3394…1d3528 ]
0x1d3394…1d3528 }
0x1d3528…1d36bc Dummy {f00=0x0071, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x1d36bc…1d3850 Dummy {f00=0x0071, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x1d3850…1d39e4 Dummy {f00=0x0071, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x1d39e4…1d3b78 Dummy {f00=0x0071, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x1d3b78…1d3d0c Dummy {f00=0x0071, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x1d3d0c…1d3ea0 Dummy {f00=0x0071, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x1d3ea0…1d4034 (5, 124) Dummy {f00=0x0072, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x1d4034…1d41c8 Dummy {f00=0x0072, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x1d41c8…1d435c Dummy {f00=0x0072, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x1d435c…1d44f0 Dummy {f00=0x0072, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x1d44f0…1d4684 Dummy {f00=0x0072, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x1d4684…1d4818 Dummy {f00=0x0072, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x1d4818…1d49ac Dummy {f00=0x0072, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 1 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P*
0x1d49ac…1d4b40 Dummy {f00=0x0072, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU 1 P* P EJECT TOSSIO P* P* P*******************
0x1d4b40…1d4cd4 (5, 125) Dummy {f00=0x0072, f01=0x0190, f02=» P* P********************* P* DWT DISPLACEMENTS * 0 P********************* N P* l 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART v P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU /0
0x1d4cd4…1d4e68 Dummy {f00=0x0072, f01=0x0190, f02=» EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK & PDWTTAB EQU /0A TTAB ADDRESS R * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR v PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB A
0x1d4e68…1d4ffc Dummy {f00=0x0072, f01=0x0190, f02=»1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF B P* N P EJECT TOSSIO X P* p , P* DWT DISPLACEMENTS: DRIVER DEFINED PART z P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x1d4ffc…1d5190 Dummy {f00=0x0072, f01=0x0190, f02=»B1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT . & PDWTTP EQU DWTDRD+/10 TIMER POINTER ` 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWTDR
0x1d5190…1d5324 Dummy {f00=0x0072, f01=0x0190, f02=» TOSSIO P* P* P********************* & P* DAB DISPLACEMENTS * D P********************* b P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LENGT
0x1d5324…1d54b8 Dummy {f00=0x0072, f01=0x0190, f02=»RUPT ADDRESS ~ 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) J " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE IND
0x1d54b8…1d564c Dummy {f00=0x0072, f01=0x0190, f02=»OUTINE P F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* X $ PDC:DIX EQU -2 DATA COMMUNICATION b PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6
0x1d564c…1d57e0 Dummy {f00=0x0072, f01=0x0190, f02=»* P********************* P* ECB DISPLACEMENTS * ( P********************* F P* d ( P* EVENT CONTROL BLOCK DISPLACEMENTS n P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENGTH
0x1d57e0…1d5974 (5, 126) Dummy {f00=0x0072, f01=0x0190, f02=»ORD 1 x " PECBCW2 EQU /0C CONTROL WORD 2 P* 4 P EJECT TOSSIO > P* V P* ` P IFT MMUPAG=1 j P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM
0x1d5974…1d5b08 Dummy {f00=0x0072, f01=0x0190, f02=»CI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT $ $ P DATA TIOKBI KEYBOARD/CTW, INPUT D 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT l P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, O
0x1d5b08…1d5c9c Dummy {f00=0x0072, f01=0x0190, f02=» P DATA TIODKO DISC, OUTPUT P* & P EJECT TOSSIO 0 P* H P* R P********** P* TENTAB * n P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/ROUTI
0x1d5c9c…1d5e30 Dummy {f00=0x0072, f01=0x0190, f02=», INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT 8 P DATA TENDKI DISC, INPUT l , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P D
0x1d5e30…1d5fc4 Dummy {f00=0x0072, f01=0x018e, f02=» P* P********** P* MONMMU * P********** 2 P* D P* MONITOR (SYSTEM) MMU TABLE N P* r PMONMMU EQU * | P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,/280
0x1d5fc4…1d6158 Dummy {f00=0x0072, f01=0x0190, f02=» P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* H P* T I M O U T R P* h P* INPUT: A1 = DWT ADDRESS r . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTAB
0x1d6158…1d62ec Dummy {f00=0x0072, f01=0x0190, f02=»MER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK < P LDR* A1,A4 R " P STR A1,A2 REMOVE FROM ATT:CH f P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR A
0x1d62ec…1d6480 Dummy {f00=0x0072, f01=0x0190, f02=»IM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND . P* N P EJECT TOSSIO X P* p & P* TTAB FOUND - REMOVE FROM QUEUE z P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P ADS
0x1d6480…1d6614 (5, 127) Dummy {f00=0x0099, f01=0x0190, f02=» P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB $ P XIF R P* ^ P IFT ATTDET=1 h P IFT MMUPAG=1 ~ . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD MONI
0x1d6614…1d67a8 Dummy {f00=0x0099, f01=0x0190, f02=»OSSIO P* P* F N D B L K P* . ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH 8 P* d P* INPUT: A5 = TTAB ADDRESS n P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x1d67a8…1d693c Dummy {f00=0x0099, f01=0x0190, f02=»D OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND ( P* H PFND:20 EQU * R P IFT CPU852=1 f P ABL IHRTN RETURN | P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P* P I
0x1d693c…1d6ad0 Dummy {f00=0x0099, f01=0x0190, f02=»ATTACH * P********** ! P* ! " P* ! , * P* THIS MODULE IS CALLED FROM TIO WITH ! 6 P* THE FOLLOWING PARAMETERS: ! d P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P* A6
0x1d6ad0…1d6c64 Dummy {f00=0x0099, f01=0x0190, f02=»ADDRESS BLOCK ! v P* A13 DWT STATUS " P* " 0 PATTACH EQU * ENTRY " : P ADK A4,0 SET CR " T * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " l P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=1 "
0x1d6c64…1d6df8 Dummy {f00=0x0099, f01=0x0190, f02=»FT ATTDET=1 " P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # ( P LDR A13,A13 # V P RF(NN) ATT:50 DEVICE BUSY # j P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN
0x1d6df8…1d6f8c Dummy {f00=0x0099, f01=0x0190, f02=»* # & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ 4 P CM* 2,A4 FREE TIMER $ > " P LDR* A3,A4 REMOVE FROM ATT:CH $ Z P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(E) TIOER
0x1d6f8c…1d7120 Dummy {f00=0x0099, f01=0x0190, f02=» P* % P* SET TIMER % P* % & P IFT MMUPAG=0 % 0 P LD A1,ECBCW,A8 TIME % F P XIF % b P* % n P EJECT TOSSIO % x P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* % P IFT A
0x1d7120…1d72b4 (5, 128) Dummy {f00=0x0099, f01=0x0190, f02=»B ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & . P ST A4,ATT:CH UPDATE ANCHOR & J $ P ADK A4,2 TIMER POINTER ADDRESS & n P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 & P*
0x1d72b4…1d7448 Dummy {f00=0x0099, f01=0x0190, f02=» RETURN & P* ' P EJECT TOSSIO ' P* ' 2 P* ' < P********** ' F P* DETACH * ' X P********** ' j P* ' | * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A4,0 SET
0x1d7448…1d75dc Dummy {f00=0x0099, f01=0x0190, f02=»F(NE) TIOERR ATTACHED TO OTHER TASK ' P XRS A10,DWTST,A6 DETACH ( , P LDR A3,A5 SAVE TTAB ADDRESS ( L P LD A5,DWTTQ,A6 QUEUE ANCHOR ( p P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,QTJOB QUEU
0x1d75dc…1d7770 Dummy {f00=0x0099, f01=0x0190, f02=»XIT ( f PDETRTN LDK A3,0 RETURN CODE ) P XIF ) 0 P* ) < P EJECT TOSSIO ) F P* ) ^ P* ) h P********** ) r P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) ( P* FOR MO
0x1d7770…1d7904 Dummy {f00=0x0099, f01=0x0190, f02=»M ECBEL,A8 RESET EFFECTIVE LENGTH ) P XIF * * P* * 6 P IFT MMUPAG=1 * @ * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * V P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEUE TASK AND
0x1d7904…1d7a98 Dummy {f00=0x0099, f01=0x018e, f02=» * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + X @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT
0x1d7a98…1d7c2c Dummy {f00=0x0099, f01=0x0190, f02=» + PTIOQ00 LDR A6,A2 , P* , P* QUEUE DEVICE FIRST , * P* , F $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , P P LDR A2,A6 , x P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* , . PQUED
0x1d7c2c…1d7dc0 Dummy {f00=0x0099, f01=0x0190, f02=»NT , h P LD A1,TTB:ST+1,A5 LEVEL - P* - * P EJECT TOSSIO - 4 P* - L * P* SEARCH QUEUE FOR PLACE OF INSERTION - V P* - PTIOQ30 LDR A2,A6 - $ P LDR* A6,A6 FOLLOW QUEUE TO END - P RF(Z) TIOQ40 END FOUND - & P CC A1,TTB:ST+1,A6 COMPARE
0x1d7dc0…1d7f54 (5, 129) Dummy {f00=0x0099, f01=0x0190, f02=»4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . , P ADK A4,0 SET CR . > P RF(Z) TIOQ50 NO ACTIVATION . V P SUK A3,2 ACTIVATION . z P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDISP GO TO D
0x1d7f54…1d80e8 Dummy {f00=0x0099, f01=0x0190, f02=» . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / 6 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / l 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OPTION SPECI
0x1d80e8…1d827c Dummy {f00=0x0099, f01=0x0190, f02=»TH THE FOLLOWING PARAMETERS:- / P* 0 & . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 0 P* 0 b $ P* A4 = ZERO, NORMAL I/O REQUEST 0 l ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDER CODE 0
0x1d827c…1d8410 Dummy {f00=0x0099, f01=0x018e, f02=»IVATION DRIVER 0 f * P* WITH THE FOLLOWING REGISTER VAULES:- 1 P* 1 D P* A5 = STACK BASE 2 IN DWT 1 N P* 1 r P* A6 = DWT ADDRESS 1 | P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS TO DRIVER AD
0x1d8410…1d85a4 Dummy {f00=0x0099, f01=0x0190, f02=» 1 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 B " P* -DWTOR DWT INDEX AND ORDER 2 L P* -DWTECB ECB ADDRESS 2 r $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2 . P* -DW
0x1d85a4…1d8738 Dummy {f00=0x0099, f01=0x0190, f02=» FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 8 P* 3 V P EJECT TOSSIO 3 ` P* 3 x . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU * ENTRY U
0x1d8738…1d88cc Dummy {f00=0x0099, f01=0x0190, f02=»R FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 P LD A13,DWTST,A6 DWT STATUS 4 V P* 4 z P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDET=1 4
0x1d88cc…1d8a60 Dummy {f00=0x0099, f01=0x0190, f02=»RDER 4 z P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 P CW A5,DWTTAB,A6 5 B * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 Z P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTIO020 EQU *
0x1d8a60…1d8bf4 (5, 130) Dummy {f00=0x009a, f01=0x0190, f02=»HECK IF ECHO DEVICE IS BUSY/ATTACHED 5 p P* 6 , * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 6 P LDK A2,/40 CHECK IF ECHO 6 d P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF KEYBOARD 6
0x1d8bf4…1d8d88 Dummy {f00=0x009a, f01=0x0190, f02=»CE 6 v $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 2 P IFT ATTDET=1 7 < P TM A10,A14 7 R * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 f P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ) TIO060 E
0x1d8d88…1d8f1c Dummy {f00=0x009a, f01=0x0190, f02=»TIO050 TM A3,A14 7 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 P* 8 > PTIO060 LDKL A3,/A000 8 H : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 d P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS
0x1d8f1c…1d90b0 Dummy {f00=0x009a, f01=0x0190, f02=»00 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 2 , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 b ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9 P EJECT
0x1d90b0…1d9244 Dummy {f00=0x009a, f01=0x0190, f02=»WORD OF USER ECB 9 z 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : P ESR A3,A8 : L ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : ^ , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR A9,A8 :
0x1d9244…1d93d8 Dummy {f00=0x009a, f01=0x0190, f02=» PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; $ ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; : P ADK A2,ECBRL ; f P LDK A3,8 ; | . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P IFT MMUPAG=
0x1d93d8…1d956c Dummy {f00=0x009a, f01=0x0190, f02=» RESET RETURN CODE ; P XIF < P* < ( P EJECT TOSSIO < 2 P* < J P* < T PTIO110 EQU * < ^ P ECR A3,A7 < r P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT < P* <
0x1d956c…1d9700 Dummy {f00=0x009a, f01=0x0190, f02=»SS IN DWTTAB < p P* = PTIO130 EQU * = P IFT MMUPAG=0 = 2 & P ST A8,DWTECB,A6 SET ECB ADDRESS = H P XIF = r P* = ~ P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMETER = & P
0x1d9700…1d9894 (5, 131) Dummy {f00=0x009a, f01=0x0190, f02=»1 INDICATE WAIT = P RF TIO230 > P* > * < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > 4 P* > t 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > ~ P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P* > P EJE
0x1d9894…1d9a28 Dummy {f00=0x009a, f01=0x0190, f02=» MODE > t " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? 4 " P RF(Z) TIO240 DATA MANAGEMENT ? d P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P* ? " P* PE
0x1d9a28…1d9bbc Dummy {f00=0x009a, f01=0x018e, f02=»TE ? f . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ < PTIO240 EQU * @ F P ENB @ Z < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ f P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 LDK A5,DWTSB2
0x1d9bbc…1d9d50 Dummy {f00=0x009a, f01=0x0190, f02=» @ P* A P********** A P* SWITCH * A $ P********** A 6 P* A H P* SWITCH PRIORITY LEVEL: A R P* A r ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A | ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A P* A $
0x1d9d50…1d9ee4 Dummy {f00=0x009a, f01=0x0190, f02=»U851: LEVEL 12 A P XIF B P* B " P IFF CPU852+CPU857=0 B , ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B H P XIF B t P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P* B P
0x1d9ee4…1da078 Dummy {f00=0x009a, f01=0x018e, f02=» @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C P* IN
0x1da078…1da20c Dummy {f00=0x009a, f01=0x0190, f02=» . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D 6 P* A4 IS DESTROYED D f P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D P L
0x1da20c…1da3a0 Dummy {f00=0x009a, f01=0x0190, f02=» READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E P* E F P EJECT TOSSIO E P P* E h P* E r P********** E | P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =0: NO RE
0x1da3a0…1da534 (5, 132) Dummy {f00=0x009a, f01=0x0190, f02=»,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 0 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F R P BYTES TINDEX+1,0 /08, /09 F | P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0,1 /10,
0x1da534…1da6c8 Dummy {f00=0x009a, f01=0x0190, f02=» 0,0 /1A, /1B F P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G 2 P BYTES 0,TINDEX+1 /20, /21 G N P BYTES TINDEX+1,0 /22, /23 G p P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /2A, /2B G
0x1da6c8…1da85c Dummy {f00=0x009a, f01=0x0190, f02=»34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H , P BYTES 0,0 /3A, /3B H H P BYTES 0,0 /3C, /3D H d P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLED BY 'TIO'
0x1da85c…1da9f0 Dummy {f00=0x009a, f01=0x018e, f02=»ON OF THE REQUEST IS 'TEN:DM'. H P* I & " P* INPUT: A8 = DWT ECB ADDRESS I 0 $ P* A9 = USER ECB ADDRESS I V P* I ~ P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUFFER ADDRES
0x1da9f0…1dab84 Dummy {f00=0x009a, f01=0x0190, f02=» I PA15RTN EQU * J P RTN A15 J P* J , P EJECT TOSSIO J 6 P* J N P* T I O P C I J X P* J n B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J x > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B P* TIOPCI
0x1dab84…1dad18 Dummy {f00=0x009a, f01=0x0190, f02=»ESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K . 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K ^ P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS TO DRIVER
0x1dad18…1daeac Dummy {f00=0x009a, f01=0x0190, f02=»8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L P P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L * P RF(
0x1daeac…1db040 Dummy {f00=0x009a, f01=0x0190, f02=» L d P ANS A1,ECBBA,A8 M P RTN A15 M P* M 0 P EJECT TOSSIO M : P* M R P* T I O M X I M P* M r B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M | > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M > P* TI
0x1db040…1db1d4 (5, 133) Dummy {f00=0x009a, f01=0x0190, f02=» CALLED BY 'TENDIO' AT M v , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N N P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = USER ECB ADD
0x1db1d4…1db368 Dummy {f00=0x009a, f01=0x0190, f02=» PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O $ P ECR A2,A1 O P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O b P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 PHYSICAL PA
0x1db368…1db4fc Dummy {f00=0x009a, f01=0x0190, f02=» A2,4 O P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P P RTN A15 P V P* P f P EJECT TOSSIO P p P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* ISSUED AND THE
0x1db4fc…1db690 Dummy {f00=0x009a, f01=0x0190, f02=»' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q ( , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q ` P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P* A9 = USER
0x1db690…1db824 Dummy {f00=0x009a, f01=0x018e, f02=» * KEYBOARD/CTW Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH R 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R @ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R v 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK ORDER CODE R
0x1db824…1db9b8 Dummy {f00=0x009a, f01=0x0190, f02=» R P EJECT TOSSIO S P* S P* S * P LDR A1,A9 S 4 P ADK A1,8 S F P ADKL A8,12 S X * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S l P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 KEYTABLE ADDR
0x1db9b8…1dbb4c Dummy {f00=0x009a, f01=0x0190, f02=» 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T 8 P CF A15,TIPO05 T X & P SUKL A8,8 ADJUST DWT ECB ADDRESS T n P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I T I T P
0x1dbb4c…1dbce0 Dummy {f00=0x009a, f01=0x0190, f02=»T T t P* U P EJECT TOSSIO U P* U , P* T I O P C O U 6 P* U L B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES
0x1dbce0…1dbe74 (5, 134) Dummy {f00=0x009b, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V 8 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V h F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO USED BY 'DC
0x1dbe74…1dc008 Dummy {f00=0x009b, f01=0x0190, f02=» V r P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W B $ P LD A3,ECBRL,A8 REQUESTED LENGTH W z ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE W 6 P RF(
0x1dc008…1dc19c Dummy {f00=0x009b, f01=0x018e, f02=» P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X L . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X ^ ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADD
0x1dc19c…1dc330 Dummy {f00=0x009b, f01=0x018e, f02=» 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y > PTIPO20 RTN A15 Y H P* Y ^ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y h 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER Y 2 P
0x1dc330…1dc4c4 Dummy {f00=0x009b, f01=0x018e, f02=» Y j ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z 4 P EJECT TOSSIO Z > P* Z V P* I O : E R R Z ` P* Z v , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRANCH TO DISPAT
0x1dc4c4…1dc658 Dummy {f00=0x009b, f01=0x0190, f02=» Z n P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ * P RF(NN) IO:E10 NOT ECHO [ J P LDR A1,A6 SAVE DWT ADDRESS [ j & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ PIO:E10 EQU
0x1dc658…1dc7ec Dummy {f00=0x009b, f01=0x0190, f02=» [ P* T I O M X O P* " PTIOMXO EQU TIOMXI MUX, OUTPUT ( P* N P* T I O K B O X P* n * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT x P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x1dc7ec…1dc980 Dummy {f00=0x009b, f01=0x0190, f02=»D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] P D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P* A8 = USE
0x1dc980…1dcb14 (5, 135) Dummy {f00=0x009b, f01=0x0190, f02=»MEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ P ES A1,ECBCW2,A8 ^ J P RTN A15 ^ b P* ^ r P EJECT TOSSIO ^ | P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN ^ @ P*
0x1dcb14…1dcca8 Dummy {f00=0x009b, f01=0x0190, f02=» THE USER BUFFER. ^ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ b P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P* OUTPUT: A1
0x1dcca8…1dce3c Dummy {f00=0x009b, f01=0x0190, f02=»EL,A2 EFFECTIVE LENGTH _ " P RF(NP) TEPI30 NO MOVE IF ZERO ` & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` D P* ` n . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` x ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES ` P TM A3,A1
0x1dce3c…1dcfd0 Dummy {f00=0x009b, f01=0x0190, f02=»EVEN ` n P* a P EJECT TOSSIO a P* a . P* a 8 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a B 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a x P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANKL A8,/FF00 SKI
0x1dcfd0…1dd164 Dummy {f00=0x009b, f01=0x0190, f02=»DK A2,1 a P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b " P RTN A15 NO, RETURN b P P* b l PTEPI20 TM A3,A2 b v * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE LENGTH b
0x1dd164…1dd2f8 Dummy {f00=0x009b, f01=0x0190, f02=»ACTER b t 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c F 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c t P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR A3,A4 CHECK R
0x1dd2f8…1dd48c Dummy {f00=0x009b, f01=0x0190, f02=» P* d PTEPI30 RTN A15 d P* d $ , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d . ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d ^ , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER d
0x1dd48c…1dd620 Dummy {f00=0x009b, f01=0x0190, f02=» d f P ELR A3,A2 e P RB TEPI15 e P* e , . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e 6 " P LDR A3,A1 DWT BUFFER ADDRESS e h $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE B
0x1dd620…1dd7b4 (5, 136) Dummy {f00=0x009b, f01=0x0190, f02=»ACTERS TO MOVE e x . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f H P RB TEPI25 f v P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P* f P* T E
0x1dd7b4…1dd948 Dummy {f00=0x009b, f01=0x018e, f02=»K COMMUNICATION, INPUT f v P* g P* T E N D K I g ( P* g > " PTENDKI EQU TEN:DM DISC, INPUT g H P* g n P EJECT TOSSIO g x P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P* T E N M X O g
0x1dd948…1ddadc Dummy {f00=0x009b, f01=0x0190, f02=» g h P* h P* T E N D K O h P* h ( " PTENDKO EQU TEN:DM DISC, OUTPUT h 2 P* h X P EJECT TOSSIO h b P* h z P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FOR INTERTASK
0x1ddadc…1ddc70 Dummy {f00=0x009b, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. h P* i , P* INPUT: A6 = DWT ADDRESS i 6 P* i X & P* OUTPUT: A1-A4, A8 ARE DESTROYED i b P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECBEL,A8 EFFECT
0x1ddc70…1dde04 Dummy {f00=0x009b, f01=0x0190, f02=» i PTEIO10 RTN A15 j P* j P EJECT TOSSIO j ( P* j @ P* D C : M O T j J P* j ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFER. THE MOVE
0x1dde04…1ddf98 Dummy {f00=0x009b, f01=0x0190, f02=»NO REGISTERS ARE DESTROYED j P* k " , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k , " P MSR 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k $ P TL TTB:MT
0x1ddf98…1de12c Dummy {f00=0x009b, f01=0x0190, f02=»DC:RTN EQU * RETURN TO DC DRIVER k . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l ( $ P ADKL A15,32 ADJUST STACKPOINTER l Z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l P* l P*
0x1de12c…1de2c0 Dummy {f00=0x009b, f01=0x0190, f02=»RIVER BUFFER TO THE USER BUFFER. l f P* m ( P* INPUT: A1 = RETURN CODE m 2 ( P* A4 = DRIVER BUFFER ADDRESS m T P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT MMUPAG=0 m
0x1de2c0…1de454 (5, 137) Dummy {f00=0x00a0, f01=0x0190, f02=» STACK m x P* n P IFT MMUPAG=1 n $ P SUKL A15,32 ADJUST STACKPOINTER n . * P TS 2,A15 SAVE MMU REGISTERS ON STACK n V " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n P* n
0x1de454…1de5e8 Dummy {f00=0x00a0, f01=0x018e, f02=»SS n x P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o P ENB o : P LD A3,DWTECB,A6 ECB ADDRESS o F * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o j $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHECK IF USER BUFF
0x1de5e8…1de77c Dummy {f00=0x00a0, f01=0x0190, f02=» o j P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p F P SUK A2,2 p x , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P* p PMIN:
0x1de77c…1de910 Dummy {f00=0x00a0, f01=0x0190, f02=»2,2 DECREMENT LOOP COUNTER p 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q " P* q X PMIN:20 EQU * q b P ADK A2,1 q v P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOVE ONE CHARACTE
0x1de910…1deaa4 Dummy {f00=0x00a0, f01=0x0190, f02=» MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE q P XIF r 4 P* r @ P IFT MMUPAG=1 r J * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r ` $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRESS r ( P CF
0x1deaa4…1dec38 Dummy {f00=0x00a0, f01=0x0190, f02=»O r P* s P* s PMIN:40 EQU * s P INH s 2 " P CF A15,TENDIO PERFORM TENDIO s > P* s d P* RELEASE BUFFER s n P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLADR,A1 BUFFER PO
0x1dec38…1dedcc Dummy {f00=0x00a0, f01=0x0190, f02=»,A2 NEXT BUFFER ADDRESS s , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t P* t P $ P* INSERT BUFFER AT END OF CHAIN t Z P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P ABL IHRET8 RESTOR
0x1dedcc…1def60 Dummy {f00=0x00a0, f01=0x018e, f02=» MLR 8,A15 RESTORE A1-A8 FROM STACK... t P* u . PDC:MOT RTN A15 ...AND RETURN u 8 P XIF u P* u h P IFT MMUPAG=1 u r " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ERROR EXIT u 2 P
0x1def60…1df0f4 (5, 138) Dummy {f00=0x00a0, f01=0x0190, f02=» P* v P IFT MMUPAG=0 v P IFT CPU852=1 v $ PDC:MOT EQU * v : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v N P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v P* v P*
0x1df0f4…1df288 Dummy {f00=0x00a0, f01=0x0190, f02=» v * P* ACTOTP IS CALLED TO START THE TASK w P* w 6 P* -IF NORMAL I/O WITH WAIT:- w @ P* w d * P* QTJOB IS CALLED TO QUEUE THE TASK w n 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w P* w $
0x1df288…1df41c Dummy {f00=0x00a0, f01=0x0190, f02=»TTQ NOT ZERO) w d J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x P* x d P EJECT TOSSIO x n P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x P* A6 = D
0x1df41c…1df5b0 Dummy {f00=0x00a0, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. x P* y & P EJECT TOSSIO y 0 P* y H P* END I/O ENTRY y R P* y j PTENDIO EQU * y t P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH y " P MSR 8,A
0x1df5b0…1df744 Dummy {f00=0x00a0, f01=0x0190, f02=» DWT STATUS y z P INH z ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z P RF(Z) TEN110 NO TASK QUEUED z L P LDKL A2,/800 ATTACH BIT z p P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z ( P RF(NE) TE
0x1df744…1df8d8 Dummy {f00=0x00a0, f01=0x0190, f02=»HOR ADDRESS z t P ST A3,DWTTQ,A6 { . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { , P* { ^ P* UPDATE ECB AND DWT { h P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDICATE DEVICE READ
0x1df8d8…1dfa6c Dummy {f00=0x00a0, f01=0x0190, f02=»CH IF ENTERED FROM ECHO OR RECOVERY { ~ P* | , P EJECT TOSSIO | 6 P* | N P* | X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | b , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW | " P ANK A4,1 SY
0x1dfa6c…1dfc00 Dummy {f00=0x00a0, f01=0x0190, f02=»5,32 ADJUST STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK } . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } N P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRESS } P ELR A
0x1dfc00…1dfd94 (5, 139) Dummy {f00=0x00a1, f01=0x0190, f02=»DK A2,ECBEL } P LDK A4,6 ~ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ & P* ~ ^ 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ h " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P RF(Z) TEN140 DATA
0x1dfd94…1dff28 Dummy {f00=0x00a1, f01=0x018e, f02=» , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER 4 P* f PTEN140 EQU * p P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P* P* RESTORE MM
0x1dff28…1e00bc Dummy {f00=0x00a1, f01=0x0190, f02=» d $ P ADKL A15,32 ADJUST STACKPOINTER P XIF 0 P* < P EJECT TOSSIO F P* ^ : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION h P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WA
0x1e00bc…1e0250 Dummy {f00=0x00a1, f01=0x0190, f02=»ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* 6 P IFT MMUPAG=1 @ * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT V P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU * 4 P ST A8
0x1e0250…1e03e4 Dummy {f00=0x00a1, f01=0x0190, f02=»XT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S P CMR A4 SET TO NO WAIT AGAIN : P LDR A4,A3 ^ P RB TEN220 p P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P
0x1e03e4…1e0578 Dummy {f00=0x00a1, f01=0x4150, f02=»PATCHING j P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS . P* V PTEN260 EQU * ` P IFT CPU852=1 t P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND
0x1e0578…1e070c Dummy {f00=0x00a1, f01=0x2008, f02=» NT TOSSIO END @ &
0x1e070c…1e08a0 Dummy {f00=0x00a1, f01=0x0000, f02=»
0x1e08a0…1e0a34 (5, 140) Opaque[0x194]
0x1e0a34…1e0bc8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x1e0a34…1e0bc8 IdxSect {
0x1e0a34…1e0bc8 f00 = 0x0064 // 0x1e0a34 @0x0
0x1e0a34…1e0bc8 f01 = 0x003e // 0x1e0a36 @0x2
0x1e0a34…1e0bc8 gno = [ // 0x1e0a38 @0x4
0x1e0a34…1e0bc8 [0x00]: C0x0064.0x0.0
0x1e0a34…1e0bc8 [0x01]: C0x0064.0x1.0
0x1e0a34…1e0bc8 [0x02]: C0x0064.0x2.0
0x1e0a34…1e0bc8 [0x03]: C0x0064.0x3.0
0x1e0a34…1e0bc8 [0x04]: C0x0065.0x0.0
0x1e0a34…1e0bc8 [0x05]: C0x0065.0x1.0
0x1e0a34…1e0bc8 [0x06]: C0x0065.0x2.0
0x1e0a34…1e0bc8 [0x07]: C0x0065.0x3.0
0x1e0a34…1e0bc8 [0x08]: C0x0066.0x0.0
0x1e0a34…1e0bc8 [0x09]: C0x0066.0x1.0
0x1e0a34…1e0bc8 [0x0a]: C0x0066.0x2.0
0x1e0a34…1e0bc8 [0x0b]: C0x0066.0x3.0
0x1e0a34…1e0bc8 [0x0c]: C0x0067.0x0.0
0x1e0a34…1e0bc8 [0x0d]: C0x0067.0x1.0
0x1e0a34…1e0bc8 [0x0e]: C0x0067.0x2.0
0x1e0a34…1e0bc8 [0x0f]: C0x0067.0x3.0
0x1e0a34…1e0bc8 [0x10]: C0x0068.0x0.0
0x1e0a34…1e0bc8 [0x11]: C0x0086.0x0.0
0x1e0a34…1e0bc8 [0x12]: C0x0086.0x1.0
0x1e0a34…1e0bc8 [0x13]: C0x0087.0x0.0
0x1e0a34…1e0bc8 [0x14]: C0x0087.0x1.0
0x1e0a34…1e0bc8 [0x15]: C0x0087.0x2.0
0x1e0a34…1e0bc8 [0x16]: C0x0087.0x3.0
0x1e0a34…1e0bc8 [0x17]: C0x0088.0x0.0
0x1e0a34…1e0bc8 [0x18]: C0x0088.0x1.0
0x1e0a34…1e0bc8 [0x19]: C0x0088.0x2.0
0x1e0a34…1e0bc8 [0x1a]: C0x0088.0x3.0
0x1e0a34…1e0bc8 [0x1b]: C0x0089.0x0.0
0x1e0a34…1e0bc8 [0x1c]: C0x0089.0x1.0
0x1e0a34…1e0bc8 [0x1d]: C0x0089.0x2.0
0x1e0a34…1e0bc8 [0x1e]: C0x0089.0x3.0
0x1e0a34…1e0bc8 ]
0x1e0a34…1e0bc8 }
0x1e0bc8…1e0d5c Dummy {f00=0x0064, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x1e0d5c…1e0ef0 Dummy {f00=0x0064, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x1e0ef0…1e1084 Dummy {f00=0x0064, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x1e1084…1e1218 Dummy {f00=0x0064, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x1e1218…1e13ac Dummy {f00=0x0064, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x1e13ac…1e1540 Dummy {f00=0x0064, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x1e1540…1e16d4 (5, 141) Dummy {f00=0x0064, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x1e16d4…1e1868 Dummy {f00=0x0064, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 1 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 0 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x1e1868…1e19fc Dummy {f00=0x0064, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x1e19fc…1e1b90 Dummy {f00=0x0064, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x1e1b90…1e1d24 Dummy {f00=0x0064, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x1e1d24…1e1eb8 Dummy {f00=0x0064, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x1e1eb8…1e204c Dummy {f00=0x0064, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x1e204c…1e21e0 Dummy {f00=0x0064, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x1e21e0…1e2374 (5, 142) Dummy {f00=0x0064, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x1e2374…1e2508 Dummy {f00=0x0064, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x1e2508…1e269c Dummy {f00=0x0064, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x1e269c…1e2830 Dummy {f00=0x0064, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x1e2830…1e29c4 Dummy {f00=0x0064, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x1e29c4…1e2b58 Dummy {f00=0x0064, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x1e2b58…1e2cec Dummy {f00=0x0064, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x1e2cec…1e2e80 Dummy {f00=0x0064, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x1e2e80…1e3014 (5, 143) Dummy {f00=0x0064, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x1e3014…1e31a8 Dummy {f00=0x0064, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x1e31a8…1e333c Dummy {f00=0x0064, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x1e333c…1e34d0 Dummy {f00=0x0064, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x1e34d0…1e3664 Dummy {f00=0x0064, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x1e3664…1e37f8 Dummy {f00=0x0064, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x1e37f8…1e398c Dummy {f00=0x0064, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x1e398c…1e3b20 Dummy {f00=0x0064, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x1e3b20…1e3cb4 (5, 144) Dummy {f00=0x0065, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x1e3cb4…1e3e48 Dummy {f00=0x0065, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x1e3e48…1e3fdc Dummy {f00=0x0065, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x1e3fdc…1e4170 Dummy {f00=0x0065, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x1e4170…1e4304 Dummy {f00=0x0065, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x1e4304…1e4498 Dummy {f00=0x0065, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x1e4498…1e462c Dummy {f00=0x0065, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x1e462c…1e47c0 Dummy {f00=0x0065, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x1e47c0…1e4954 (5, 145) Dummy {f00=0x0065, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x1e4954…1e4ae8 Dummy {f00=0x0065, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x1e4ae8…1e4c7c Dummy {f00=0x0065, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x1e4c7c…1e4e10 Dummy {f00=0x0065, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x1e4e10…1e4fa4 Dummy {f00=0x0065, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x1e4fa4…1e5138 Dummy {f00=0x0065, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x1e5138…1e52cc Dummy {f00=0x0065, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x1e52cc…1e5460 Dummy {f00=0x0065, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x1e5460…1e55f4 (5, 146) Dummy {f00=0x0065, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x1e55f4…1e5788 Dummy {f00=0x0065, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x1e5788…1e591c Dummy {f00=0x0065, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x1e591c…1e5ab0 Dummy {f00=0x0065, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x1e5ab0…1e5c44 Dummy {f00=0x0065, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x1e5c44…1e5dd8 Dummy {f00=0x0065, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x1e5dd8…1e5f6c Dummy {f00=0x0065, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x1e5f6c…1e6100 Dummy {f00=0x0065, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x1e6100…1e6294 (5, 147) Dummy {f00=0x0065, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x1e6294…1e6428 Dummy {f00=0x0065, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x1e6428…1e65bc Dummy {f00=0x0065, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x1e65bc…1e6750 Dummy {f00=0x0065, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x1e6750…1e68e4 Dummy {f00=0x0065, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x1e68e4…1e6a78 Dummy {f00=0x0065, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x1e6a78…1e6c0c Dummy {f00=0x0065, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x1e6c0c…1e6da0 Dummy {f00=0x0065, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x1e6da0…1e6f34 (5, 148) Dummy {f00=0x0066, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x1e6f34…1e70c8 Dummy {f00=0x0066, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x1e70c8…1e725c Dummy {f00=0x0066, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x1e725c…1e73f0 Dummy {f00=0x0066, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x1e73f0…1e7584 Dummy {f00=0x0066, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x1e7584…1e7718 Dummy {f00=0x0066, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x1e7718…1e78ac Dummy {f00=0x0066, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x1e78ac…1e7a40 Dummy {f00=0x0066, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x1e7a40…1e7bd4 (5, 149) Dummy {f00=0x0066, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x1e7bd4…1e7d68 Dummy {f00=0x0066, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x1e7d68…1e7efc Dummy {f00=0x0066, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x1e7efc…1e8090 Dummy {f00=0x0066, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x1e8090…1e8224 Dummy {f00=0x0066, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x1e8224…1e83b8 Dummy {f00=0x0066, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x1e83b8…1e854c Dummy {f00=0x0066, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x1e854c…1e86e0 Dummy {f00=0x0066, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x1e86e0…1e8874 (5, 150) Dummy {f00=0x0066, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x1e8874…1e8a08 Dummy {f00=0x0066, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x1e8a08…1e8b9c Dummy {f00=0x0066, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x1e8b9c…1e8d30 Dummy {f00=0x0066, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x1e8d30…1e8ec4 Dummy {f00=0x0066, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x1e8ec4…1e9058 Dummy {f00=0x0066, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x1e9058…1e91ec Dummy {f00=0x0066, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x1e91ec…1e9380 Dummy {f00=0x0066, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x1e9380…1e9514 (5, 151) Dummy {f00=0x0066, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x1e9514…1e96a8 Dummy {f00=0x0066, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x1e96a8…1e983c Dummy {f00=0x0066, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x1e983c…1e99d0 Dummy {f00=0x0066, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x1e99d0…1e9b64 Dummy {f00=0x0066, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x1e9b64…1e9cf8 Dummy {f00=0x0066, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x1e9cf8…1e9e8c Dummy {f00=0x0066, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x1e9e8c…1ea020 Dummy {f00=0x0066, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x1ea020…1ea1b4 (5, 152) Dummy {f00=0x0067, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x1ea1b4…1ea348 Dummy {f00=0x0067, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x1ea348…1ea4dc Dummy {f00=0x0067, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x1ea4dc…1ea670 Dummy {f00=0x0067, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x1ea670…1ea804 Dummy {f00=0x0067, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x1ea804…1ea998 Dummy {f00=0x0067, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x1ea998…1eab2c Dummy {f00=0x0067, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x1eab2c…1eacc0 Dummy {f00=0x0067, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x1eacc0…1eae54 (5, 153) Dummy {f00=0x0067, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x1eae54…1eafe8 Dummy {f00=0x0067, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x1eafe8…1eb17c Dummy {f00=0x0067, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x1eb17c…1eb310 Dummy {f00=0x0067, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x1eb310…1eb4a4 Dummy {f00=0x0067, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x1eb4a4…1eb638 Dummy {f00=0x0067, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x1eb638…1eb7cc Dummy {f00=0x0067, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x1eb7cc…1eb960 Dummy {f00=0x0067, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x1eb960…1ebaf4 (5, 154) Dummy {f00=0x0067, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x1ebaf4…1ebc88 Dummy {f00=0x0067, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x1ebc88…1ebe1c Dummy {f00=0x0067, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x1ebe1c…1ebfb0 Dummy {f00=0x0067, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x1ebfb0…1ec144 Dummy {f00=0x0067, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x1ec144…1ec2d8 Dummy {f00=0x0067, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x1ec2d8…1ec46c Dummy {f00=0x0067, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x1ec46c…1ec600 Dummy {f00=0x0067, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x1ec600…1ec794 (5, 155) Dummy {f00=0x0067, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x1ec794…1ec928 Dummy {f00=0x0067, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x1ec928…1ecabc Dummy {f00=0x0067, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x1ecabc…1ecc50 Dummy {f00=0x0067, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x1ecc50…1ecde4 Dummy {f00=0x0067, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x1ecde4…1ecf78 Dummy {f00=0x0067, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x1ecf78…1ed10c Dummy {f00=0x0067, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x1ed10c…1ed2a0 Dummy {f00=0x0067, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x1ed2a0…1ed434 (5, 156) Dummy {f00=0x0068, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x1ed434…1ed5c8 Dummy {f00=0x0068, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x1ed5c8…1ed75c Dummy {f00=0x0068, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x1ed75c…1ed8f0 Dummy {f00=0x0068, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x1ed8f0…1eda84 Dummy {f00=0x0068, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x1eda84…1edc18 Dummy {f00=0x0068, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x1edc18…1eddac Dummy {f00=0x0068, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x1eddac…1edf40 Dummy {f00=0x0068, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x1edf40…1ee0d4 (5, 157) Dummy {f00=0x0086, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x1ee0d4…1ee268 Dummy {f00=0x0086, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x1ee268…1ee3fc Dummy {f00=0x0086, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x1ee3fc…1ee590 Dummy {f00=0x0086, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x1ee590…1ee724 Dummy {f00=0x0086, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x1ee724…1ee8b8 Dummy {f00=0x0086, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x1ee8b8…1eea4c Dummy {f00=0x0086, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x1eea4c…1eebe0 Dummy {f00=0x0086, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x1eebe0…1eed74 (5, 158) Dummy {f00=0x0086, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x1eed74…1eef08 Dummy {f00=0x0086, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x1eef08…1ef09c Dummy {f00=0x0086, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x1ef09c…1ef230 Dummy {f00=0x0086, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x1ef230…1ef3c4 Dummy {f00=0x0086, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x1ef3c4…1ef558 Dummy {f00=0x0086, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x1ef558…1ef6ec Dummy {f00=0x0086, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x1ef6ec…1ef880 Dummy {f00=0x0086, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x1ef880…1efa14 (5, 159) Dummy {f00=0x0087, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x1efa14…1efba8 Dummy {f00=0x0087, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x1efba8…1efd3c Dummy {f00=0x0087, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x1efd3c…1efed0 Dummy {f00=0x0087, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x1efed0…1f0064 Dummy {f00=0x0087, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x1f0064…1f01f8 Dummy {f00=0x0087, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x1f01f8…1f038c Dummy {f00=0x0087, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x1f038c…1f0520 Dummy {f00=0x0087, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x1f0520…1f06b4 (5, 160) Dummy {f00=0x0087, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x1f06b4…1f0848 Dummy {f00=0x0087, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x1f0848…1f09dc Dummy {f00=0x0087, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x1f09dc…1f0b70 Dummy {f00=0x0087, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x1f0b70…1f0d04 Dummy {f00=0x0087, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x1f0d04…1f0e98 Dummy {f00=0x0087, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x1f0e98…1f102c Dummy {f00=0x0087, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x1f102c…1f11c0 Dummy {f00=0x0087, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x1f11c0…1f1354 (5, 161) Dummy {f00=0x0087, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x1f1354…1f14e8 Dummy {f00=0x0087, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x1f14e8…1f167c Dummy {f00=0x0087, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x1f167c…1f1810 Dummy {f00=0x0087, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x1f1810…1f19a4 Dummy {f00=0x0087, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x1f19a4…1f1b38 Dummy {f00=0x0087, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x1f1b38…1f1ccc Dummy {f00=0x0087, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x1f1ccc…1f1e60 Dummy {f00=0x0087, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x1f1e60…1f1ff4 (5, 162) Dummy {f00=0x0087, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x1f1ff4…1f2188 Dummy {f00=0x0087, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x1f2188…1f231c Dummy {f00=0x0087, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x1f231c…1f24b0 Dummy {f00=0x0087, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x1f24b0…1f2644 Dummy {f00=0x0087, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x1f2644…1f27d8 Dummy {f00=0x0087, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x1f27d8…1f296c Dummy {f00=0x0087, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x1f296c…1f2b00 Dummy {f00=0x0087, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x1f2b00…1f2c94 (5, 163) Dummy {f00=0x0088, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x1f2c94…1f2e28 Dummy {f00=0x0088, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x1f2e28…1f2fbc Dummy {f00=0x0088, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x1f2fbc…1f3150 Dummy {f00=0x0088, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x1f3150…1f32e4 Dummy {f00=0x0088, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x1f32e4…1f3478 Dummy {f00=0x0088, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x1f3478…1f360c Dummy {f00=0x0088, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x1f360c…1f37a0 Dummy {f00=0x0088, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x1f37a0…1f3934 (5, 164) Dummy {f00=0x0088, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x1f3934…1f3ac8 Dummy {f00=0x0088, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x1f3ac8…1f3c5c Dummy {f00=0x0088, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x1f3c5c…1f3df0 Dummy {f00=0x0088, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x1f3df0…1f3f84 Dummy {f00=0x0088, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x1f3f84…1f4118 Dummy {f00=0x0088, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x1f4118…1f42ac Dummy {f00=0x0088, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x1f42ac…1f4440 Dummy {f00=0x0088, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x1f4440…1f45d4 (5, 165) Dummy {f00=0x0088, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x1f45d4…1f4768 Dummy {f00=0x0088, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x1f4768…1f48fc Dummy {f00=0x0088, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x1f48fc…1f4a90 Dummy {f00=0x0088, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x1f4a90…1f4c24 Dummy {f00=0x0088, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x1f4c24…1f4db8 Dummy {f00=0x0088, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x1f4db8…1f4f4c Dummy {f00=0x0088, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x1f4f4c…1f50e0 Dummy {f00=0x0088, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x1f50e0…1f5274 (5, 166) Dummy {f00=0x0088, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x1f5274…1f5408 Dummy {f00=0x0088, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x1f5408…1f559c Dummy {f00=0x0088, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x1f559c…1f5730 Dummy {f00=0x0088, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x1f5730…1f58c4 Dummy {f00=0x0088, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x1f58c4…1f5a58 Dummy {f00=0x0088, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x1f5a58…1f5bec Dummy {f00=0x0088, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x1f5bec…1f5d80 Dummy {f00=0x0088, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x1f5d80…1f5f14 (5, 167) Dummy {f00=0x0089, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x1f5f14…1f60a8 Dummy {f00=0x0089, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x1f60a8…1f623c Dummy {f00=0x0089, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x1f623c…1f63d0 Dummy {f00=0x0089, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x1f63d0…1f6564 Dummy {f00=0x0089, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x1f6564…1f66f8 Dummy {f00=0x0089, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x1f66f8…1f688c Dummy {f00=0x0089, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x1f688c…1f6a20 Dummy {f00=0x0089, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x1f6a20…1f6bb4 (5, 168) Dummy {f00=0x0089, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x1f6bb4…1f6d48 Dummy {f00=0x0089, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x1f6d48…1f6edc Dummy {f00=0x0089, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x1f6edc…1f7070 Dummy {f00=0x0089, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x1f7070…1f7204 Dummy {f00=0x0089, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x1f7204…1f7398 Dummy {f00=0x0089, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x1f7398…1f752c Dummy {f00=0x0089, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x1f752c…1f76c0 Dummy {f00=0x0089, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x1f76c0…1f7854 (5, 169) Dummy {f00=0x0089, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x1f7854…1f79e8 Dummy {f00=0x0089, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x1f79e8…1f7b7c Dummy {f00=0x0089, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x1f7b7c…1f7d10 Dummy {f00=0x0089, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x1f7d10…1f7ea4 Dummy {f00=0x0089, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x1f7ea4…1f8038 Dummy {f00=0x0089, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x1f8038…1f81cc Dummy {f00=0x0089, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x1f81cc…1f8360 Dummy {f00=0x0089, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x1f8360…1f84f4 (5, 170) Dummy {f00=0x0089, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x1f84f4…1f8688 Dummy {f00=0x0089, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x1f8688…1f881c Dummy {f00=0x0089, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x1f881c…1f89b0 Dummy {f00=0x0089, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x1f89b0…1f8b44 Dummy {f00=0x0089, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x1f8b44…1f8cd8 Dummy {f00=0x0089, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x1f8cd8…1f8e6c Dummy {f00=0x0089, f01=0x2008, f02=» P X ` h p
0x1f8e6c…1f9000 Dummy {f00=0x0089, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x1f9000…1f9194 (5, 171) Opaque[0x194]
0x1f9194…1f9328 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d08, f03=0x0000}
0x1f9194…1f9328 IdxSect {
0x1f9194…1f9328 f00 = 0x0068 // 0x1f9194 @0x0
0x1f9194…1f9328 f01 = 0x0056 // 0x1f9196 @0x2
0x1f9194…1f9328 gno = [ // 0x1f9198 @0x4
0x1f9194…1f9328 [0x00]: C0x0068.0x1.0
0x1f9194…1f9328 [0x01]: C0x0068.0x2.0
0x1f9194…1f9328 [0x02]: C0x0068.0x3.0
0x1f9194…1f9328 [0x03]: C0x0069.0x0.0
0x1f9194…1f9328 [0x04]: C0x0069.0x1.0
0x1f9194…1f9328 [0x05]: C0x0069.0x2.0
0x1f9194…1f9328 [0x06]: C0x0069.0x3.0
0x1f9194…1f9328 [0x07]: C0x006a.0x0.0
0x1f9194…1f9328 [0x08]: C0x006a.0x1.0
0x1f9194…1f9328 [0x09]: C0x006a.0x2.0
0x1f9194…1f9328 [0x0a]: C0x006a.0x3.0
0x1f9194…1f9328 [0x0b]: C0x006b.0x0.0
0x1f9194…1f9328 [0x0c]: C0x006b.0x1.0
0x1f9194…1f9328 [0x0d]: C0x006b.0x2.0
0x1f9194…1f9328 [0x0e]: C0x006b.0x3.0
0x1f9194…1f9328 [0x0f]: C0x006c.0x0.0
0x1f9194…1f9328 [0x10]: C0x006c.0x1.0
0x1f9194…1f9328 [0x11]: C0x006c.0x2.0
0x1f9194…1f9328 [0x12]: C0x006c.0x3.0
0x1f9194…1f9328 [0x13]: C0x006d.0x0.0
0x1f9194…1f9328 [0x14]: C0x006d.0x1.0
0x1f9194…1f9328 [0x15]: C0x006d.0x2.0
0x1f9194…1f9328 [0x16]: C0x006d.0x3.0
0x1f9194…1f9328 [0x17]: C0x006e.0x0.0
0x1f9194…1f9328 [0x18]: C0x006e.0x1.0
0x1f9194…1f9328 [0x19]: C0x006e.0x2.0
0x1f9194…1f9328 [0x1a]: C0x006e.0x3.0
0x1f9194…1f9328 [0x1b]: C0x006f.0x0.0
0x1f9194…1f9328 [0x1c]: C0x006f.0x1.0
0x1f9194…1f9328 [0x1d]: C0x006f.0x2.0
0x1f9194…1f9328 [0x1e]: C0x006f.0x3.0
0x1f9194…1f9328 [0x1f]: C0x008a.0x0.0
0x1f9194…1f9328 [0x20]: C0x008a.0x1.0
0x1f9194…1f9328 [0x21]: C0x008a.0x2.0
0x1f9194…1f9328 [0x22]: C0x008a.0x3.0
0x1f9194…1f9328 [0x23]: C0x008b.0x3.0
0x1f9194…1f9328 [0x24]: C0x008c.0x0.0
0x1f9194…1f9328 [0x25]: C0x008c.0x1.0
0x1f9194…1f9328 [0x26]: C0x008c.0x2.0
0x1f9194…1f9328 [0x27]: C0x008c.0x3.0
0x1f9194…1f9328 [0x28]: C0x008d.0x0.0
0x1f9194…1f9328 [0x29]: C0x008d.0x1.0
0x1f9194…1f9328 [0x2a]: C0x008d.0x2.0
0x1f9194…1f9328 ]
0x1f9194…1f9328 }
0x1f9328…1f94bc Dummy {f00=0x0068, f01=0x018e, f02=» 2 P IDENT SYSLDA REL 10.0 80-05-29 870105041000 P : P REL 10.0 80-03-14 B * P =1,FAULTY STACK BASE WHEN USING MMU ^ P P > P********************************************************** P* $ P* PHILIPS TERMINAL SYS
0x1f94bc…1f9650 Dummy {f00=0x0068, f01=0x0190, f02=» P* > P********************************************************** P* T P* ^ F P* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION h B P* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS F P* ENTERED AFTE
0x1f9650…1f97e4 Dummy {f00=0x0068, f01=0x0190, f02=» P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * F P* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S x $ P* MM-TABLES ARE FILLED IN. P* P* CREDIT APPLICATI
0x1f97e4…1f9978 Dummy {f00=0x0068, f01=0x0190, f02=»REAL TASKS & ^ . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE F , P* DDIV-PROTOTYPE TO FOLLOW SYSLDA. P* H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES
0x1f9978…1f9b0c Dummy {f00=0x0068, f01=0x0190, f02=»LLOCATED AT 'BOTTOM' OF d H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSLDA. l P* H P* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES F P* IN USER TASK TTAB'S ARE FILLED. A
0x1f9b0c…1f9ca0 Dummy {f00=0x0068, f01=0x0190, f02=»* v P* * P* ENTRIES AND EXTERNALS * . P* * R P*************************** v P P* LABEL ENTRIES , P ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE P ENTRY SYSLDX P ENT
0x1f9ca0…1f9e34 (5, 172) Dummy {f00=0x0068, f01=0x0190, f02=»RROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK j * P ENTRY CONVRT CONVERSION ASCII-BINARY 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P E
0x1f9e34…1f9fc8 Dummy {f00=0x0068, f01=0x0190, f02=»BSOLUTE START ADDRESS OF WORK-TAB 1 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 , 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' d , P ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE . P ENTRY SYSBUF TEMPORARY MOVE-BUFFER START 4 P ENTRY M:REL
0x1f9fc8…1fa15c Dummy {f00=0x0068, f01=0x0190, f02=»NTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ( & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 R & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 | & P ENTRY SAVE21,SAVE22,SAVE23,SAVE24 & P ENTRY SAVE25,SAVE26,SAVE27,SAVE28 P ENTRY SAVE29,
0x1fa15c…1fa2f0 Dummy {f00=0x0068, f01=0x0190, f02=» FREE AREA z 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS H P EXTRN SCTSTB A15 STACK-BASE l " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMM
0x1fa2f0…1fa484 Dummy {f00=0x0068, f01=0x0190, f02=» TABLE f P EXTRN SCTBUG BUGGER ADDRESS P 2 P* EXTERNAL LABELS : 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART T $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P EXTRN PFINI
0x1fa484…1fa618 Dummy {f00=0x0068, f01=0x0190, f02=»XTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS . P EJECT j P x P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P********************************
0x1fa618…1fa7ac Dummy {f00=0x0068, f01=0x0190, f02=»ER z P PMMUSWB EQU MMUPAG+SWPBLK P 2 PSWBMMU EQU SWPBLK-MMUPAG : P EJECT Z P h P PROGRAM STRUCTURE: p P F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x1fa7ac…1fa940 Dummy {f00=0x0068, f01=0x0190, f02=»-------------------------------------------! z F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! 4 F P* !-----------------------------------------------------! ~ F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.
0x1fa940…1faad4 (5, 173) Dummy {f00=0x0068, f01=0x018e, f02=» ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! j F P* ! -FILL MM-TABLE IN TTAB ! F P*
0x1faad4…1fac68 Dummy {f00=0x0068, f01=0x0190, f02=» F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! N F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !--------------------------
0x1fac68…1fadfc Dummy {f00=0x0068, f01=0x0190, f02=»OVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! F P* ! ! : F P* ! C O M D A T ! F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & U
0x1fadfc…1faf90 Dummy {f00=0x0068, f01=0x0190, f02=» ! b F P* ! ! F P* ! C L A D A T ! f F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* !
0x1faf90…1fb124 Dummy {f00=0x0068, f01=0x0190, f02=» ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S ! H F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F P* ! -SEARCH DBLK-TAB FOR DWB'S. MO
0x1fb124…1fb2b8 Dummy {f00=0x0068, f01=0x0190, f02=» ! p F P* ! P R O D A T ! * F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! t F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P
0x1fb2b8…1fb44c Dummy {f00=0x0068, f01=0x0190, f02=» ! R F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! V F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x1fb44c…1fb5e0 Dummy {f00=0x0068, f01=0x0190, f02=» ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! @ F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! F P* ! ! -QUEUE 1:S
0x1fb5e0…1fb774 (5, 174) Dummy {f00=0x0069, f01=0x0190, f02=»-------------------------! h F P* ! REAL TASKS' IS BUILT AT ! " F P* ! THE END OF MONITOR. ! l F P* ! U:BTAB: ! F P*
0x1fb774…1fb908 Dummy {f00=0x0069, f01=0x0190, f02=» F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! N F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U
0x1fb908…1fba9c Dummy {f00=0x0069, f01=0x0190, f02=» ! v F P* ! -CONTINUE IN PART 2.A ! 0 F P* !-----------------------------------------------------! z P EJECT P P ***************** P ************
0x1fba9c…1fbc30 Dummy {f00=0x0069, f01=0x0190, f02=»********* P P********** P* P:MTAB * 0 P********** B PT:ATAB EQU 0 T PU:BTAB EQU 2 h PP:BAS EQU 6 SEGMENT BASE | . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42
0x1fbc30…1fbdc4 Dummy {f00=0x0069, f01=0x0190, f02=»ITIAL U:BTAB p " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME : 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ^ P* . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNU
0x1fbdc4…1fbf58 Dummy {f00=0x0069, f01=0x0190, f02=»*********** | $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* < P d P* TASK DEFINITION BLOCK: p PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK ID START VALUE
0x1fbf58…1fc0ec Dummy {f00=0x0069, f01=0x0190, f02=»VICE CLASSES f P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS H PTLC EQU 6 LINE CONNECTION p ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON
0x1fc0ec…1fc280 Dummy {f00=0x0069, f01=0x018e, f02=»+2 FIRST SDC-RECORD P* P* & & P* USER WORK BLOCK TYPE DEF. BLOCK 0 PUDBBT EQU 0 1A BLOCK TYPE Z , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES | P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL
0x1fc280…1fc414 (5, 175) Dummy {f00=0x0069, f01=0x018e, f02=» P* T:A * P********* PT:ASTA EQU -14 T:A START ( 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) H $ PCSB EQU -12 CURRENT SEGMENT BASE 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH 2 P OF ALL DSCB
0x1fc414…1fc5a8 Dummy {f00=0x0069, f01=0x0190, f02=» j P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END 2 PPA EQU 0 STACK POINTER P PSTKB EQU 2 STACK BASE n " PWATFST EQU 4 FIRST WAT-ELEMENT P* P* DSCB-RECORD: PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDR
0x1fc5a8…1fc73c Dummy {f00=0x0069, f01=0x0190, f02=» P********* P* T:D * P********* , ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A > , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) j , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FO
0x1fc73c…1fc8d0 Dummy {f00=0x0069, f01=0x0190, f02=»4 MASK FOR UWB'S -"- ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! " P ! N . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! V P ! P ! P**************** ! P* SOP-HANDLING * ! P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P !
0x1fc8d0…1fca64 Dummy {f00=0x0069, f01=0x0190, f02=» /100 MEMORY OVERFLOW ! & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " H " PLMP6 EQU /20 UWB OR SWB ERROR " f " PLMP7 EQU /10 MM-TABLE OVERFLOW " PLMP8 EQU 8 " PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT "
0x1fca64…1fcbf8 Dummy {f00=0x0069, f01=0x0190, f02=»OCK " r , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # < P # f $ PFCBDD1 EQU 8 DISP TO FIRST DSET # r $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # P # $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID
0x1fcbf8…1fcd8c Dummy {f00=0x0069, f01=0x0190, f02=» P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ , * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ ^ P $ ( PNTPA EQU 4 INTERPRETER START ADDRESS $ & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ $ PRTCDA EQU /1B RTC DEVICE ADDRE
0x1fcd8c…1fcf20 Dummy {f00=0x0069, f01=0x018e, f02=»A13 * $ h F P* DATA [REL-ADDRESS] * % " F P* * % l F P***************************************************************** % P %
0x1fcf20…1fd0b4 (5, 176) Dummy {f00=0x0069, f01=0x0190, f02=» % 6 P************************************************** & 6 P** ** & B 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & | 6 P** ** & 6 P************************
0x1fd0b4…1fd248 Dummy {f00=0x0069, f01=0x0190, f02=»HANDLER & p & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' : P* ADJUST FOR PSW-ROUTINE * ' N P************************** ' p 4 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ' P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS T
0x1fd248…1fd3dc Dummy {f00=0x0069, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x1fd3dc…1fd570 Dummy {f00=0x0069, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x1fd570…1fd704 Dummy {f00=0x0069, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x1fd704…1fd898 Dummy {f00=0x0069, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x1fd898…1fda2c Dummy {f00=0x0069, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x1fda2c…1fdbc0 Dummy {f00=0x0069, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x1fdbc0…1fdd54 (5, 177) Dummy {f00=0x0069, f01=0x0190, f02=»SS INDICATOR - v P FOR TABLE-SCANNING . P DATA 0 . 2 : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . B P DATA 0 . @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRE
0x1fdd54…1fdee8 Dummy {f00=0x0069, f01=0x0190, f02=» . 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / B " PUWB EQU *-REL U.W.B. INDICATOR / R P DATA 0 / x & PAPPTYP EQU *-REL APPLICATION TYPE / P DATA 0 / $ PSAVE01 EQU *-REL TEMPORARY SAVE / P DATA 0 / PSAVE02 EQU *-R
0x1fdee8…1fe07c Dummy {f00=0x0069, f01=0x018e, f02=»0 / PSAVE06 EQU *-REL 0 P DATA 0 0 " PSAVE07 EQU *-REL 0 2 P DATA 0 0 J PSAVE08 EQU *-REL 0 Z P DATA 0 0 r PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 PSAVE10 EQU *-REL 0 P DATA 0 0 PSAVE11 EQU *-REL 0 P DATA 0 0 PSA
0x1fe07c…1fe210 Dummy {f00=0x0069, f01=0x018e, f02=» 0 ~ P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 0 PSAVE27 EQU *-REL 1 @ P DATA 0 1 X PSAVE28 EQU *-REL 1 h P DATA 0 1 PSAVE29 EQU *-REL 1 P DATA 0 1 PSAVE30 EQU *-REL 1 P DATA 0 1 & PWBADD EQU *-REL W.B.-ADDRESS SAVE 1
0x1fe210…1fe3a4 Dummy {f00=0x0069, f01=0x0190, f02=» 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 @ * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P P DATA 0 2 ~ ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 2 P DATA 0 2 * PM:REL EQU *-REL RELOCATION FOR SYSLDM 2 P DATA 0 2 P
0x1fe3a4…1fe538 Dummy {f00=0x0069, f01=0x0190, f02=» *-REL MMTABLE ADDRESS 2 P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 . P DATA 0 3 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 3 l P DATA 0 3 PFSTPAG EQU *-REL 3 ( P DATA 0 FIRST FREE PAGE (PHYSICALL) 3 ( PTTAB EQU *-REL CORRE
0x1fe538…1fe6cc Dummy {f00=0x0069, f01=0x0190, f02=»H 3 r P 4 P 4 P 4 & P********************************* 4 " & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 L & P********************************* 4 v P 4 PSAVE14 EQU U:BTOD 4 PSAVE15 EQU U:BTNW 4 PSAVE16 EQU MOVADD 4 PSAVE17 EQU ENDADD
0x1fe6cc…1fe860 Dummy {f00=0x0069, f01=0x0190, f02=»SAVE24 EQU FLAG 4 P EJECT 5 P 5 & P* MMU TABLES * 5 . P 5 D P 5 L . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5 T P IFT MMUPAG=1 5 P RES 16 5 P XIF 5 P 5 $ PMMTAB EQU *-REL WORK AREA MM-TAB 5 PTABBE EQU * 5 P IFT MMUPAG=
0x1fe860…1fe9f4 (5, 178) Dummy {f00=0x006a, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x1fe9f4…1feb88 Dummy {f00=0x006a, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x1feb88…1fed1c Dummy {f00=0x006a, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x1fed1c…1feeb0 Dummy {f00=0x006a, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x1feeb0…1ff044 Dummy {f00=0x006a, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x1ff044…1ff1d8 Dummy {f00=0x006a, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x1ff1d8…1ff36c Dummy {f00=0x006a, f01=0x0190, f02=» ; 4 P** M O V I N G ** < 4 P** ** < D 4 P** ** < | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < 4 P** ASSUMED TO BE DATA-PART
0x1ff36c…1ff500 Dummy {f00=0x006a, f01=0x0190, f02=» 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** = t 4 P** WORK-REG: A4 ** = 4 P************************************
0x1ff500…1ff694 (5, 179) Dummy {f00=0x006a, f01=0x0190, f02=»FE MAKE EVEN ADDRESS = P ST A11,SAVE01,A13 SAVE A11 > P ST A9,SAVE12,A13 SAVE A9 > @ P LDR A11,A2 > b * P LD A9,DATEND,A13 END OF PROTOTYP AREA > v " P CALL CMPADR COMPARE ADDRESSES > P RF(NL) MOV020 > ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW >
0x1ff694…1ff828 Dummy {f00=0x006a, f01=0x0190, f02=»A13 NEW ADDRESS > ( P LD A9,SAVE12,A13 RESTORE REGISTERS ? P LD A11,SAVE01,A13 ? D P RB MOVES ? ^ P XIF ? p P IFT CREDIT+MMUPAG=2 ? | P EJECT ? ? 4 P** X M O V E ** ? 4 P**
0x1ff828…1ff9bc Dummy {f00=0x006a, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** ? 4 P** -MOVE TO USER AREA ** @ 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** @ n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** @ 4 P**
0x1ff9bc…1ffb50 Dummy {f00=0x006a, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** @ 4 P** WORK.REGS:A4,A10 ** A . 4 P************************************************ A f P A PXMOVE EQU * A P ST A1,SAVE09,A13 A P ST A1,SAVE07,A13 A P ST A2,SAVE10,A13 A P
0x1ffb50…1ffce4 Dummy {f00=0x006a, f01=0x0190, f02=» PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE B h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE B . P CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH B " RF(G) SPLIT
0x1ffce4…1ffe78 Dummy {f00=0x006a, f01=0x0190, f02=»ER START-ADDRESS B p $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C @ 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS C p P LD A1,SYSBUF,A13 C 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS C LDR A3,A10 GET LENGTH
0x1ffe78…20000c Dummy {f00=0x006a, f01=0x0190, f02=»V30 NO! C P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D $ * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D X $ SUR A3,A10 SUBTRACT MOVED PART D P ST A3,SAVE11,A13 SAVE D P CWR A3,A10 D P RB(NL) XMOV10 D P LDR A10,A3 LAST L
0x20000c…2001a0 Dummy {f00=0x006a, f01=0x0190, f02=» DV BUFSIZ,A13 AND DIVIDE E 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) E & & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 E E 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' E , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' E P LD
0x2001a0…200334 (5, 180) Dummy {f00=0x006a, f01=0x0190, f02=»N G ** E v 4 P** ** F 4 P** ** F V 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** F 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** F 4 P** IS ALW
0x200334…2004c8 Dummy {f00=0x006a, f01=0x0190, f02=» &FYSPAG ** F n 4 P** IS UPDATED AND CHECKED. ** G 4 P** ** G N 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** G 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** G 4 P** OUTPUT:A2=LOGI
0x2004c8…20065c Dummy {f00=0x006a, f01=0x0190, f02=»***** G f P H PMOVING EQU * H P ST A11,SAVE01,A13 SAVE A11 H * P ST A9,SAVE12,A13 SAVE A9 H N . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE H p & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS H 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB H " LDR*
0x20065c…2007f0 Dummy {f00=0x006a, f01=0x0190, f02=»400 ADJUST FOR 'SETTAB' H $ P CALL SETTAB NEW PAGE IN TABLE! I 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS I H ANKL A11,/FFF I * P LDR A9,A3 GET LENGTH OF AREA TO MOVE I 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? I P RF(NL) MOV020
0x2007f0…200984 Dummy {f00=0x006a, f01=0x0190, f02=» ADKL A11,4096 PHYSICAL PAGE INCREMENT I P RB MOV015 J . 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J @ PMOV025 RF(NN) MOV050 J v * PMOV030 CALL SETTAB NEW PAGE IN TABLE! J & ! ADKL A11,4096 NEW PAGE INCREMENT J ( P RB(N) MOV030 NOT ENOUGH. NEW
0x200984…200b18 Dummy {f00=0x006a, f01=0x0190, f02=» J t " P* A2=CURRENT ENTRY IN MM-TABLE K K . PMOV050 EQU * K 6 , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB K J 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER K z 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. K & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS
0x200b18…200cac Dummy {f00=0x006a, f01=0x0190, f02=» * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE L P ANKL A2,/FFFE EVEN ADDRESS L 2 , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS L V P* CHECK ADDRESSES * L P L * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE L P ST A11,SAVE07,A13 SAVE A11 L P LD A11,FYSP
0x200cac…200e40 Dummy {f00=0x006a, f01=0x0190, f02=» P LD A9,FSTADR,A13 M P CALL CMPADR M P RF(NL) MOV090 OK! M 2 PMOV070 LDKL A1,LMP3 M L P CALL ERROR M h PMOV090 EQU * M | P CALL XMOVE MOVE M P LD A9,SAVE12,A13 M ( P LD A11,SAVE01,A13 RESTORE REGISTERS M $ P TL* MMFROM,A13 RESTORE MM
0x200e40…200fd4 (5, 181) Dummy {f00=0x006a, f01=0x0190, f02=» ** M v 6 P** ** N 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N Z 6 P** OVERFLOW. ** N 6 P** ** N 6 P
0x200fd4…201168 Dummy {f00=0x006a, f01=0x0190, f02=»S UPDATED ** N | 6 P** WORK.REG: A9 ** O & 6 P************************************************* O ` P O PSETTAB EQU * O SUKL A4,/400 GET NEXT PAGE O SUK A2,2 GET NEXT ENTRY O P O " P* CHEC
0x201168…2012fc Dummy {f00=0x006a, f01=0x0190, f02=» O r P RF(NN) SETT00 P P CWR A9,A2 P P RF SETT05 P 0 PSETT00 CWR A2,A9 OVERFLOW? P B PSETT05 RF(NL) SETT10 NO P d P LDK A1,LMP7 P P CALL ERROR P PSETT10 EQU * P STR A4,A2 STORE IN TABLE P RTN A14 P P XIF P P IFF CREDI
0x2012fc…201490 Dummy {f00=0x006a, f01=0x018e, f02=» ** P f 4 P** ** Q 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** Q F 4 P** MENT IN T:A ** Q ~ 4 P** ** Q 4 P** INPUT : A8= POINTER TO
0x201490…201624 Dummy {f00=0x006a, f01=0x0190, f02=» Q ^ 4 P** TADISP=A4 ** R 4 P** A11=W.B.-ADDRESS ** R @ 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** R x 4 P*********************************************** R P R PGETWB EQU * R " P
0x201624…2017b8 Dummy {f00=0x006a, f01=0x0190, f02=»T R n P IFT CREDIT-MMUPAG=1 S P LDR* A11,A8 GET T:A-ADDRESS S & P ADR A11,A4 ADD DISPLACEMENT S J P ST A11,WBADD,A13 SAVE S n " P LDR* A11,A11 GET W.B.-ADDRESS S P XIF S P IFT CREDIT+MMUPAG=2 S 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? S
0x2017b8…20194c Dummy {f00=0x006a, f01=0x0190, f02=»NT S v P ST A11,WBADD,A13 SAVE T " P ELR A11,A11 GET W.B.-ADDRESS T ( & P TL* MMFROM,A13 RELOAD FROM-TABLE T N P XIF T x P IFF CREDIT=0 T P RTN A14 T P EJECT T P T P T 8 P** M O V W B ** T
0x20194c…201ae0 Dummy {f00=0x006a, f01=0x0190, f02=»K-BLOCK. W.B.-ADDRESS IS UPDATED ** T 8 P** ** U 0 8 P** INPUT: A11=W.B.-ADDRESS ** U l 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** U 8 P** WORK-REGS: A1-A4
0x201ae0…201c74 (5, 182) Dummy {f00=0x006b, f01=0x0190, f02=»ESS U | P ADKL A1,WBLEN FROM-ADDRESS V P IFT CREDIT-MMUPAG=1 V 0 P LDR* A3,A1 LENGTH V L P CALL MOVING V f 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT V z 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P XIF V P IFT CREDIT+MMUP
0x201c74…201e08 Dummy {f00=0x006b, f01=0x0190, f02=» DATA-PART PROCESSING? V | P RF(Z) MOVW10 NO! W P TL* MMTO,A13 LOAD TO-TABLE W 8 : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE W P XIF W P IFF CREDIT=0 W P RTN A14 W P EJECT W P
0x201e08…201f9c Dummy {f00=0x006b, f01=0x0190, f02=» W Z : P** ** X : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** X F : P** ** X : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** X : P** OUTP
0x201f9c…202130 Dummy {f00=0x006b, f01=0x018e, f02=»********************************* X | P Y * PMOVDT EQU * Y 6 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT Y J & P SUK A1,2 POINTER TO D.T.-ADDRESS Y P IFT CREDIT-MMUPAG=1 Y P LDR* A1,A1 D.T.-ADDRESS Y * P ADKL A1,DTLEN ADJUST FOR LENG
0x202130…2022c4 Dummy {f00=0x006b, f01=0x0190, f02=» Y P SUKL A1,DTLEN Z 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Z P XIF Z V P IFT CREDIT+MMUPAG=2 Z b P ELR A1,A1 D.T.-ADDRESS Z ~ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P ELR A3,A1 LENGTH Z P
0x2022c4…202458 Dummy {f00=0x006b, f01=0x0190, f02=» Z ` P XIF [ P IFF CREDIT=0 [ P RTN A14 [ * P EJECT [ : P [ H < P** M O V D W B ** [ T < P** ** [ < P**
0x202458…2025ec Dummy {f00=0x006b, f01=0x0190, f02=» < P** ** < P** INPUT : A12=T:D-ADDRESS ** D < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** < P**
0x2025ec…202780 Dummy {f00=0x006b, f01=0x0190, f02=»MOVDWB EQU * P ST A6,SAVE05,A13 SAVE A5 ] P LDK A6,0 ] 6 ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER ] H " P ADK A4,1 FIRST WAT-ELEMENT =1 ] t P IFT CREDIT-MMUPAG=1 ] P LD A2,WATLEN,A12 ] P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A1
0x202780…202914 (5, 183) Dummy {f00=0x006b, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x202914…202aa8 Dummy {f00=0x006b, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x202aa8…202c3c Dummy {f00=0x006b, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x202c3c…202dd0 Dummy {f00=0x006b, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x202dd0…202f64 Dummy {f00=0x006b, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x202f64…2030f8 Dummy {f00=0x006b, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x2030f8…20328c Dummy {f00=0x006b, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x20328c…203420 Dummy {f00=0x006b, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x203420…2035b4 (5, 184) Dummy {f00=0x006b, f01=0x0190, f02=» A L L B U F ** e 4 P** ** f 0 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** f h 4 P** TERMINAL STACK ** f 4 P** **
0x2035b4…203748 Dummy {f00=0x006b, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x203748…2038dc Dummy {f00=0x006b, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x2038dc…203a70 Dummy {f00=0x006b, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x203a70…203c04 Dummy {f00=0x006b, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x203c04…203d98 Dummy {f00=0x006b, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x203d98…203f2c Dummy {f00=0x006b, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x203f2c…2040c0 Dummy {f00=0x006b, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x2040c0…204254 (5, 185) Dummy {f00=0x006b, f01=0x0190, f02=» A9,A3 ALLOCATE BUFFER FROM TOP m P ADKL A9,1 n ( P ANKL A9,/FFFE EVEN ADDRESS n : P* CHECK ADDRESS: n ^ P n v " P LD A11,LSTADR,A13 DATA START n P CALL CMPADR n P RF(NL) ALLB60 OK! n P LDKL A1,LMP3 n P CALL ERROR n PALLB60 E
0x204254…2043e8 Dummy {f00=0x006b, f01=0x0190, f02=»FROM 'BOTTOM' n n & P ES A2,BA,A1 STORE BUFFER ADDRESS o P XIF o @ P IFF CREDIT=0 o L P RB ALLB10 o b P o t , P* RESERVE STACK AND SET STACKPOINTERS * o P o PALLB70 EQU * o P IFT CREDIT-MMUPAG=1 o P LDR* A1,A8 GET T:A-ADDRESS o
0x2043e8…20457c Dummy {f00=0x006b, f01=0x0190, f02=»E o r PALLB80 EQU * p P ST A4,STKB,A1 SET STACKBASE p P STR A4,A1 STACK POINTER p B P CALL MOVING ALLOCATE STACK p b P ST A2,STKE,A1 SET STACK-END p P XIF p P IFT CREDIT+MMUPAG=2 p P ELR A1,A8 GET T:A-ADDRESS p P EL A3,CSE,A1 GET ST
0x20457c…204710 Dummy {f00=0x006b, f01=0x0190, f02=»ZE p n P CALL MOVING ALLOCATE STACK q " P ES A2,STKE,A1 STORE STACK END q . " P EL A3,STKB,A1 GET STACK SIZE q T " P ADR A2,A3 COMPUTE STACK BASE q z . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 q $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STO
0x204710…2048a4 Dummy {f00=0x006b, f01=0x0190, f02=» ** q p 4 P** ** r 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** r P 4 P** FORMAT CONTROL BLOCK ** r 4 P** ** r 4 P** INPUT : A8=T
0x2048a4…204a38 Dummy {f00=0x006b, f01=0x0190, f02=»ART ** r h 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** s 4 P** WORKREGS: A1-A4 ** s H 4 P************************************************ s P s PMOVT:A EQU * s P IFT CREDIT-MMUPAG=1 s P LDR* A1,A8 GET T:A-ADDR
0x204a38…204bcc Dummy {f00=0x006b, f01=0x0190, f02=»WATFST A3=LENGTH s P AD A1,CIA,A1 FROM-ADDRESS t P CALL MOVING t : P LDR* A4,A8 t N " P SU A2,CIA,A4 NEW T:A-ADDRESS t b $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t P t P LD A3,FCD,A
0x204bcc…204d60 Dummy {f00=0x006b, f01=0x0190, f02=»TASK DATA PROCESSING? t z P RF(Z) MOVT05 NO! u : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) u 8 PMOVT05 EQU * u v P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u PMOVT10 RTN A14 u P XIF u P IFT CREDIT+MMUPAG=2 u P u P ELR
0x204d60…204ef4 (5, 186) Dummy {f00=0x006c, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x204ef4…205088 Dummy {f00=0x006c, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x205088…20521c Dummy {f00=0x006c, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x20521c…2053b0 Dummy {f00=0x006c, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x2053b0…205544 Dummy {f00=0x006c, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x205544…2056d8 Dummy {f00=0x006c, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x2056d8…20586c Dummy {f00=0x006c, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x20586c…205a00 Dummy {f00=0x006c, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x205a00…205b94 (5, 187) Dummy {f00=0x006c, f01=0x0190, f02=»UK A2,1 DECREMENT BIT COUNTER } P RB IBAM10 ~ & P* ~ 8 & P* UPDATE MOVED MASK IN FIRST T:A ~ B P* ~ l P XIF ~ v P IFT CREDIT-MMUPAG=1 ~ & PIBAM20 LDR* A2,A8 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURR
0x205b94…205d28 Dummy {f00=0x006c, f01=0x0190, f02=»* A2,A6 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED H * P STR A3,A2 STORE NEW MOVED BLOCK MASK x P XIF P IFT CREDIT+MMUPAG=2 $ PIBAM20 ELR A2,A8 GET T:A POINTER $ P ELR A3,A2 GET MOV
0x205d28…205ebc Dummy {f00=0x006c, f01=0x0190, f02=»MOVED MASK IN SECOND T:A P* P ELR A2,A6 GET T:A POINTER * $ P ELR A3,A2 GET MOVED BLOCK MASK L , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED t * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF P IFF CREDIT=0 P RTN A14 P EJE
0x205ebc…206050 Dummy {f00=0x006c, f01=0x0190, f02=» * ` J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ===================================== * l J P* * J P
0x206050…2061e4 Dummy {f00=0x006c, f01=0x0190, f02=» * V J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * b J P* * J P* EXIT:
0x2061e4…206378 Dummy {f00=0x006c, f01=0x0190, f02=»* L J P* WORK REGISTER: A1,A2 * J P* * X J P* SUBROUTINES: * J P*
0x206378…20650c Dummy {f00=0x006c, f01=0x0190, f02=» EJECT PCHKMVD EQU * P IFT CREDIT-MMUPAG=1 " P LDR* A1,A8 GET T:A POINTER > $ P LDR* A1,A1 GET MOVED BLOCK MASK b P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P
0x20650c…2066a0 Dummy {f00=0x006c, f01=0x0190, f02=»LL A1,1 NEXT BIT IN MOVED BLOCK MASK $ P SUK A2,1 DECREMENT BIT COUNTER , P RB CHKM10 T PCHKM20 ADK A1,0 SET CR f * P CFI A14,PSW,A13 PUT CONDITION IN PSW P RTN A14 P EJECT P P : P***** S * U * P * E * R * L
0x2066a0…206834 (5, 188) Dummy {f00=0x006c, f01=0x018e, f02=» ** d : P** ** : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** P : P** INPUT : A7=MASK WORD ** : P** OUTPUT: BIT=BIT NUMBER ** :
0x206834…2069c8 Dummy {f00=0x006c, f01=0x0190, f02=» PSHIFT EQU * " P CM BIT,A13 RESET BIT COUNTER P LDR A7,A7 > P RF SHIF20 P & PSKIFTA EQU * ENTRY: CONTINUE SHIFT b PSHIF10 IM BIT,A13 P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 *
0x2069c8…206b5c Dummy {f00=0x006c, f01=0x0190, f02=»L T ** z 4 P** ** " 4 P** ** Z 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** 4 P** ** 4 P** IN
0x206b5c…206cf0 Dummy {f00=0x006c, f01=0x0190, f02=»****************** r PMULT EQU * P ST A3,MUL,A13 , " P STR A2,A14 SAVE A2 TEMPORARY B P LDK A3,0 h PADD AD A3,MUL,A13 z P SUK A2,1 P RB(NZ) ADD P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT
0x206cf0…206e84 Dummy {f00=0x006c, f01=0x0190, f02=» ** 4 P** FIND LAST USED ENTRY IN MM-TAB. SCAN ** * 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** b 4 P** ** 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4
0x206e84…207018 Dummy {f00=0x006c, f01=0x0190, f02=»TAB=A3 ** z 4 P** A1=CONTENTS OF 1:ST USED ENTRY ** " 4 P*********************************************** Z P PMMENT EQU * P LDR A9,A3 GET TABLE ADDRESS 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)
0x207018…2071ac Dummy {f00=0x006c, f01=0x0190, f02=»1,/FC00 P RB(Z) MMEN10 2 P ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS & P RTN A14 P XIF l P IFF CREDIT=0 x P EJECT P 2 P** G E T T A B ** 2 P** **
0x2071ac…207340 Dummy {f00=0x006c, f01=0x0190, f02=» ** | 2 P** INPUT :A8=POINTER TO T:A IN T:ATAB ** " 2 P** OUTPUT:A2=TTAB-ADDRESS ** X 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P**************
0x207340…2074d4 (5, 189) Dummy {f00=0x006c, f01=0x018e, f02=»D A1,T:ATID,A10 GET TID TO MATCH " P LD A12,T:DAD,A10 T:D-ADDRESS ( P XIF N P IFT MMUPAG=1 Z P ELR A10,A8 T:A-ADDRESS p P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4
0x2074d4…207668 Dummy {f00=0x006c, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTB:PP,A2 TCL EQUAL? P RB(NE) GETT10 NO! P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0
0x207668…2077fc Dummy {f00=0x006c, f01=0x0190, f02=» ** d 8 P** ** 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** L 8 P** 0, ENB. ** 8 P** ** 8 P** INPU
0x2077fc…207990 Dummy {f00=0x006c, f01=0x0190, f02=»SS ** x 8 P*************************************************** $ P ` PQUEJOB EQU * h P* QUEUE THIS TASK (THIS TID) | P 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS P ADR A3,A13 RELOCATE P STR A3,A15 PUT
0x207990…207b24 Dummy {f00=0x006c, f01=0x0190, f02=»ABORT INDICATOR $ P LD A8,SCTLAC GET P:MTAB-ADDRESS P LDR A5,A2 GET TTAB-ADDRESS @ P IFT CREDIT-MMUPAG=1 d , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDR
0x207b24…207cb8 Dummy {f00=0x006c, f01=0x0190, f02=»ETT40 ALL! P LD A1,4,A4 DISP ADDRESS P LD A3,2,A4 SEGMENT NUMBER 2 , P LD A2,NTPA,A8 INTERPRETER START ADDRESS T P XIF P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK
0x207cb8…207e4c Dummy {f00=0x006c, f01=0x0190, f02=»1 DEC. NUMBER OF STARTPOINTS P RF(N) GETT40 ALL! $ P EL A1,4,A4 DISP ADDRESS > P EL A3,2,A4 SEGMENT NUMBER ^ , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT
0x207e4c…207fe0 Dummy {f00=0x006c, f01=0x0190, f02=» P EJECT P 4 P** M O V M M T ** 4 P** ** R 4 P** ** 4 P** MOVE MM-TABLE ** 4 P**
0x207fe0…208174 (5, 190) Dummy {f00=0x006d, f01=0x0190, f02=» ** j 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** 4 P** A9=TTAB ADDRESS ** J 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** P PMOVMMT EQU *
0x208174…208308 Dummy {f00=0x006d, f01=0x0190, f02=»T FILL LAST ENTRY ADDRESS P TL* MMFROM,A13 RELOAD TABLE " P RTN A14 F P XIF V P IFF CREDIT=0 b P EJECT x @ P************************************************************ @ P* *
0x208308…20849c Dummy {f00=0x006d, f01=0x0190, f02=» R @ P* ====================================================== * @ P* * L @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B.
0x20849c…208630 Dummy {f00=0x006d, f01=0x0190, f02=» * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * @ P* * T @ P* EXIT: * @ P*
0x208630…2087c4 Dummy {f00=0x006d, f01=0x0190, f02=» * d @ P* SUBROUTINES: GETTTB * @ P* * @ P************************************************************ PCHTAID EQU * 2 P LDR A8,A7 GET N
0x2087c4…208958 Dummy {f00=0x006d, f01=0x0190, f02=» ENTRY IN REAL T:ATAB | P IFT CREDIT-MMUPAG=1 ( P LDR* A1,A8 GET POINTER TO REAL T:A : $ P LD A1,T:ATID,A1 GET TCL IN T:A f . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB 6 P LD A3,TTB:SA+26,A2 GET CO
0x208958…208aec Dummy {f00=0x006d, f01=0x0190, f02=» COMPUTE ENTRY IN AUX. TID TABLE ~ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE ( P XIF X P IFT CREDIT+MMUPAG=2 d & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR
0x208aec…208c80 Dummy {f00=0x006d, f01=0x0190, f02=»TID IN TTAB *79-04-11* v 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* X 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AU
0x208c80…208e14 (5, 191) Dummy {f00=0x006d, f01=0x0190, f02=»L SAVE AREA z P SUK A1,1 DECREMENT TCL P SUKL A8,2 DECREMENT 4 ( P SUK A6,1 DECREMENT NUMBER OF COPIES P P RB(P) CHT:20 NEXT COPY | PCHT:90 RTN A14 P EJECT P P 4 P************************************************ 4 P
0x208e14…208fa8 Dummy {f00=0x006d, f01=0x0190, f02=» ** x 4 P************************************************ P X 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * ` 4 P* SHADOW TABLE * 4 P* * 4 P
0x208fa8…20913c Dummy {f00=0x006d, f01=0x0190, f02=»A MONITOR END ADDRESS . P LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P P ADK A7,2 ~ P ST A8,SAVE03,A13 SAVE A8 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 P ADKL A8,2 P CW A8,ENDADD,A13 ALL?
0x20913c…2092d0 Dummy {f00=0x006d, f01=0x0190, f02=»TTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB . : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) B " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA320 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL
0x2092d0…209464 Dummy {f00=0x006d, f01=0x0190, f02=» STORE IN REAL T:ATAB P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES 0 P EJECT X PSYA340 SUK A6,1 f P RF(P) SYA345 NEXT TASK ~ 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DA
0x209464…2095f8 Dummy {f00=0x006d, f01=0x0190, f02=»8,A7 CHANGE T:A TO COPY 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK V 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB z " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO!
0x2095f8…20978c Dummy {f00=0x006d, f01=0x0190, f02=»48 ADK A7,2 NEXT ENTRY IN REAL T:ATAB 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S . " P CALL ALLBUF ALLOCATE BUFFERS d P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD P P LDR A1,A5 * P AD* A1,SCTSFA
0x20978c…209920 Dummy {f00=0x006d, f01=0x0190, f02=»GETTAB GET CORRESPONDING TTAB : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) & P LDR A1,A10 GET T:A-ADDRESS d 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST
0x209920…209ab4 (5, 192) Dummy {f00=0x006d, f01=0x0190, f02=»ATA TABLE | , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P B P SUK A2,2 START OF TABLE J P LDKL A12,/FC00 j PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL? P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 P
0x209ab4…209c48 Dummy {f00=0x006d, f01=0x0190, f02=»L A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES J PSYA340 SUK A6,1 r P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS PSYA345
0x209c48…209ddc Dummy {f00=0x006d, f01=0x0190, f02=» TO TTAB v P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB . @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS V P LDR A8,A2 GET T:A-ADDRESS 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE I
0x209ddc…209f70 Dummy {f00=0x006d, f01=0x0190, f02=»WB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE * . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE N P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB
0x209f70…20a104 Dummy {f00=0x006d, f01=0x0190, f02=» T:A t P XIF P IFF CREDIT=0 P RB SYA340 . P XIF @ P EJECT L PFINISH EQU *-REL Z P r P* ADJUST START OF FREE AREA z P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF FREE AREA . P LD A14,SA
0x20a104…20a298 Dummy {f00=0x006d, f01=0x0190, f02=»2 P ORR A1,A2 P XIF P IFF CREDIT=1 ( P LD A1,SCTLAC > P XIF T P IFT MMUPAG-CREDIT=1 ` P ANKL A1,/03FF | P SLL A1,2 P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CRED
0x20a298…20a42c Dummy {f00=0x006d, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA $ P RF(NZ) SYA355 P P XIF f P LD A1,SCTSFA r PSYA355 ST A1,SCTSFA+2 P CM SCTSFA P IFT CREDIT=1 P EJECT D ?********************************************
0x20a42c…20a5c0 Dummy {f00=0x006d, f01=0x0190, f02=»E TABLE * l D ?* ========================= * $ D ?* * l D ?* REFERENCED IN: SYSLDA * D ?*
0x20a5c0…20a754 (5, 193) Dummy {f00=0x006d, f01=0x0190, f02=» SCTEFA - END OF FREE AREA * D P* SAVE29 - NUMBER OF SEGMENTS * D D ?* SCTNOP - NUMBER OF PAGES * D ?* SCTPSZ - PAGE SIZE
0x20a754…20a8e8 Dummy {f00=0x006d, f01=0x0190, f02=» * d D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * d D ?* * D ?* WORK REGISTERS:
0x20a8e8…20aa7c Dummy {f00=0x006d, f01=0x0190, f02=»ES: * D ?* * < D ?* * D ?************************************************************
0x20aa7c…20ac10 Dummy {f00=0x006d, f01=0x0190, f02=»ATION? h P ABR(Z) A2 NO! " LD A1,SCTOPT GET OPTION WORD $ ANK A1,3 PAGING? J P ABR(Z) A2 NO! d * z L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * , ' LD A11,SCTSFA+2 GET START OF FREE AREA
0x20ac10…20ada4 Dummy {f00=0x006d, f01=0x0190, f02=» A7,0 RESET PAGE COUNTER PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? 4 RF(E) PAG:30 YES! d $ LDK A1,0 RESET NUMBER OF WORDS ~ PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIM
0x20ada4…20af38 Dummy {f00=0x006d, f01=0x0190, f02=»RAM OVERWRITE z " RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 < 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER N RB PAG:10 PAG:30 EQU * * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH
0x20af38…20b0cc Dummy {f00=0x006d, f01=0x0190, f02=»BITS OF 18-BITS ADDRESS p 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS X & ! SRL A2,2 SKIP TWO RIGHTMOST BITS , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2
0x20b0cc…20b260 Dummy {f00=0x006d, f01=0x018e, f02=»RESS h ( # ANKL A2,/0300 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT 8 ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT Z P XIF P IFT CREDIT-MMUPAG=1 $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT C
0x20b260…20b3f4 (5, 194) Dummy {f00=0x006e, f01=0x0190, f02=» P CWR A10,A6 P RF PAG:33 PPAG:32 CWR A6,A10 * PPAG:33 RF(NG) PAG:40 D , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE ` LDR A1,A6 GET PAGE ADDRESS P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PA
0x20b3f4…20b588 Dummy {f00=0x006e, f01=0x018e, f02=»PAG:34 LDK A1,0 END OF FREE AREA P XIF ( P IFT CREDIT=1 4 & "PAG:36 LDK A2,0 RESET WORD COUNTER J * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD t RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE?
0x20b588…20b71c Dummy {f00=0x006e, f01=0x0190, f02=» P RF(NN) PAG382 P CWR A11,A1 P RF PAG384 . PPAG382 CWR A1,A11 @ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! Z PPAG:39 EQU * " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP
0x20b71c…20b8b0 Dummy {f00=0x006e, f01=0x0190, f02=» RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW : HLT HALT PROGRAM h 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE
0x20b8b0…20ba44 Dummy {f00=0x006e, f01=0x0190, f02=»NOP SAVE NUMBER OF PAGES ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE L P XIF d P IFT CREDIT+MMUPAG=2 p * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P X
0x20ba44…20bbd8 Dummy {f00=0x006e, f01=0x0190, f02=»TORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * 2 LDK A1,0 < @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. N . P LD A11,SAVE30,A13 START OF SEGMENT TABLE , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START
0x20bbd8…20bd6c Dummy {f00=0x006e, f01=0x0190, f02=» GET STATUS . ) RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS F , ' STR A1,A12 RESET QUEUE POINTER FORWARD t . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,
0x20bd6c…20bf00 Dummy {f00=0x006e, f01=0x0190, f02=»DKL A12,8 NEXT PAGE BLOCK 4 /PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER " RB(P) PAG:60 Z * p < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE z * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A1
0x20bf00…20c094 (5, 195) Dummy {f00=0x006e, f01=0x0190, f02=» d LDK A2,0 . *PAG:70 ST A11,2,A12 STORE BACKWARD POINTER $ ST A9,4,A12 STORE PAGE ADDRESS L $ ST A2,6,A12 INDICATE PAGE FREE t * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , '
0x20c094…20c228 Dummy {f00=0x006e, f01=0x0190, f02=»DR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE " RB PAG:70 @ PAG:80 EQU * R & ! LDKL A1,PAGQUE POINTER TO PAGQUE f $ STR A1,A12 STORE IN LAST BLOCK & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL
0x20c228…20c3bc Dummy {f00=0x006e, f01=0x0190, f02=»DIT=0 , P LD A14,SCTLAC TRUE START OF APPLICATION P XIF > P =1 J P =1 X P =1 f P SUKL A14,8 ADJUST FOR MAP t * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1
0x20c3bc…20c550 Dummy {f00=0x006e, f01=0x0190, f02=»3,SYA370 RESTORE PROGRAM BASE OINTER P* , P* INIT A15 STACK 6 P* P P LD A15,SCTSTB Z P SUKL A15,4 p P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1
0x20c550…20c6e4 Dummy {f00=0x006e, f01=0x0190, f02=» INITIALIZE DEVICES P CF A15,SAVE8 SAVE REGISTERS P* @ F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER J P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH
0x20c6e4…20c878 Dummy {f00=0x006e, f01=0x0190, f02=»ES =1 ~ P* =1 P CIO A1,0,SOP =1 $ P ABL TDISP BRANCH TO DISPATCHER : P =1 b P =1 p P =1 ~ P =1 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTCDA P R
0x20c878…20ca0c Dummy {f00=0x006e, f01=0x0190, f02=» *** 6 P** SYSLOAD PART 2.A ** * 6 P** ** d 6 P************************************************* P 6 P* BUILD COMMON AND TASKCLASS DATA AREA
0x20ca0c…20cba0 Dummy {f00=0x006e, f01=0x0190, f02=»*********************************************** P 8 PPART2A EQU *-REL @ P X 0 P******************************************** ` 0 P*** *** 0 P** S U B R O U T I N E S ** 0 P************
0x20cba0…20cd34 (5, 196) Dummy {f00=0x006e, f01=0x0190, f02=» ** | 4 P** ** $ 4 P** GET T:D - ADDRESS ** 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 4 P**
0x20cd34…20cec8 Dummy {f00=0x006e, f01=0x0190, f02=»DIT-MMUPAG=1 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 4 P XIF N P IFT CREDIT+MMUPAG=2 Z P ELR A12,A8 T:A ADDRESS v P EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 P AD A12,MOVADD,A13 RELOCATE P RTN A14 P E
0x20cec8…20d05c Dummy {f00=0x006e, f01=0x0190, f02=» ** f 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** J 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 6 P** TO COMMON AREA ** 6 P**
0x20d05c…20d1f0 Dummy {f00=0x006e, f01=0x0190, f02=»ASK ** l 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** P 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** 6 P************************************************* P
0x20d1f0…20d384 Dummy {f00=0x006e, f01=0x0190, f02=»A-DISPL b ( P ST A11,SAVE06,A13 SAVE W.B.-ADDRESS ( P CM MOVED,A13 CLEAR MOVED INDICATOR < P LDR A6,A8 h PMOVC10 ADK A6,2 NEXT T:A z P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1
0x20d384…20d518 Dummy {f00=0x006e, f01=0x0190, f02=»D A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT,A13 ENOUGHT? . 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A N . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF
0x20d518…20d6ac Dummy {f00=0x006e, f01=0x0190, f02=»,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS . P CW A2,BIT,A13 ENOUGHT? ^ 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A ~ . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P ELR A11,A11 . P CW A11,SA
0x20d6ac…20d840 Dummy {f00=0x006e, f01=0x0190, f02=»D? n . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE < & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS f P CALL MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO
0x20d840…20d9d4 (5, 197) Dummy {f00=0x006e, f01=0x0190, f02=»CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER P ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS t & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS P CALL MOVDWB
0x20d9d4…20db68 Dummy {f00=0x006e, f01=0x0190, f02=» G E T P R O ** 4 P** ** . 4 P** ** f 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB **
0x20db68…20dcfc Dummy {f00=0x006e, f01=0x0190, f02=»T W.B. - ADDRESS ** ~ 4 P** OUTPUT: A2=NEW ADDRESS ** & 4 P** WORK-REGS: A1-A5,A9 ** ^ 4 P************************************************ P PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BT
0x20dcfc…20de90 Dummy {f00=0x006e, f01=0x0190, f02=»ENGTH d P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! $ P CALL ERROR H PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? p , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMB
0x20de90…20e024 Dummy {f00=0x006e, f01=0x0190, f02=»11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF D , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT X . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 " P ST A4,URLENG,A9 STORE LENGTH * P ST A5,URNUMB,A9 STORE
0x20e024…20e1b8 Dummy {f00=0x006e, f01=0x0190, f02=»1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 * PGETP40 CALL MOVWB @ P SUK A5,1 Z P RB(NZ) GETP40 l P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * 6 P ST A2,URADDR,A9 S
0x20e1b8…20e34c Dummy {f00=0x006e, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x20e34c…20e4e0 Dummy {f00=0x006e, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x20e4e0…20e674 (5, 198) Dummy {f00=0x006f, f01=0x0190, f02=» " P ES A4,URLENG,A9 STORE LENGTH & P TL* MMFROM,A13 RELOAD FROM TABLE * 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * T 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP
0x20e674…20e808 Dummy {f00=0x006f, f01=0x0190, f02=»************* | PGETP50 EQU * P TL* MMTO,A13 * 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB @ P TL* MMFROM,A13 z P XIF P IFF CREDIT=0 P RTN A14 P EJECT P 2 P** M O V C L A
0x20e808…20e99c Dummy {f00=0x006f, f01=0x0190, f02=»B. ALREADY MOVED TO COMMON ** 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** & 2 P** CHECK IF ANY DWB'S ** 2 P** ** 2 P** A LOT OF WORKREGS. ** 2 P**********
0x20e99c…20eb30 Dummy {f00=0x006f, f01=0x0190, f02=»-ADDRESS TO A11 z & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! B , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING
0x20eb30…20ecc4 Dummy {f00=0x006f, f01=0x0190, f02=»WB'S z P RB MVCL20 P EJECT P , P 8 6 P** C H A D R ** D 6 P** ** ~ 6 P** ** 6 P** CHANGE ADDRESS TO
0x20ecc4…20ee58 Dummy {f00=0x006f, f01=0x0190, f02=» ** f 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS ** J 6 P** NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 6 P** WORK.REGS: A
0x20ee58…20efec Dummy {f00=0x006f, f01=0x0190, f02=» CREDIT-MMUPAG=1 P LDR* A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS 8 P LD A2,NEWAD2,A13 j P STR A2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 P STR A2,A1 P XIF P IFT CREDIT+MMUP
0x20efec…20f180 Dummy {f00=0x006f, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P ESR A2,A1 D P XIF V P IFF CREDIT=0 b P RTN A14 x P XIF P IFT CREDIT+SWPBLK=2 P EJECT B P************************************************************** B P*
0x20f180…20f314 (5, 199) Dummy {f00=0x006f, f01=0x0190, f02=»* B:RSWT - BUILD REAL SWB CONTROL TABLE * B P* ===================================== * F B P* * B P* REFERENCED IN: SYSLDA
0x20f314…20f4a8 Dummy {f00=0x006f, f01=0x0190, f02=»BTAB * ^ B P* A5 - LENGTH OF REAL S:BTAB * B P* * Z B P* EXIT: * B P*
0x20f4a8…20f63c Dummy {f00=0x006f, f01=0x0190, f02=» * r B P* SUBROUTINES: * ( B P* * n B P************************************************************** P EJECT P
0x20f63c…20f7d0 Dummy {f00=0x006f, f01=0x0190, f02=» IN APPLICATION z P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE < P LDK A6,0 Z P SUK A5,2 SKIP LENGTH WORD l PRSWB10 ADK A1,2 NEXT TYPE P LDR* A4,A1 POINTER TO BLOCK P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4
0x20f7d0…20f964 Dummy {f00=0x006f, f01=0x0190, f02=»B IN BYTES r P XIF P IFT CREDIT+SWBMMU=2 & P ST A6,2,A2 STORE NUMBER OF COPIES : , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES d P XIF P IFT CREDIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLO
0x20f964…20faf8 Dummy {f00=0x006f, f01=0x018e, f02=»OR EACH SWB TYPE p ( P* AND RESET ALL WORDS IN TID BLOCKS P* D PRSWB20 EQU * N ( P LDR A6,A2 GET ADDRESS TO TID BLOCK b $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO C
0x20faf8…20fc8c Dummy {f00=0x006f, f01=0x0190, f02=» f . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES : P RB(P) RSWB30 NEXT COPY b P XIF P IFT CREDIT+MMUSWB=3 $ P EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINT
0x20fc8c…20fe20 Dummy {f00=0x006f, f01=0x0190, f02=»REAL S:BTAB r ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY @ P XIF ` P IFT CREDIT+SWPBLK=2 l PRSWB50 ADKL A8,6 P CWR A8,A4 P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES P
0x20fe20…20ffb4 (5, 200) Dummy {f00=0x006f, f01=0x018e, f02=»********************** " P* START OF PROGRAM PART 2.A * " P***************************** D P j P* LOAD BASE ADDRESS * r P********************* P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS P* SA
0x20ffb4…210148 Dummy {f00=0x006f, f01=0x0190, f02=» ~ " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION ROUTINE . P CFR A8,A5 Z P* MOVE DDIV * l P & P LD A1,SAVE04,A13 GET FROM-ADDRESS $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV
0x210148…2102dc Dummy {f00=0x006f, f01=0x0190, f02=»OSGMT NO! ( P LDKL A8,0 RESET FSTADR IF SEGMENTS! P RF SEGMTS > 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP P " PSEGMTS ST A8,FSTADR,A13 STORE PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2
0x2102dc…210470 Dummy {f00=0x006f, f01=0x0190, f02=» MM-TABLE x P " P LDR A1,A9 GET P:MTAB ADDRESS $ P SRL A1,11 ADJUST FOR ADDRESSING @ P ANK A1,/1E h & P LDK A2,MMTAB-2 GET TABLE ADDRESS | P ADR A2,A13 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 PSYA205 CWR
0x210470…210604 Dummy {f00=0x006f, f01=0x0190, f02=» EQU * P* CHANGE TABLE-ADDRESSES P LD A4,MMFROM,A13 . P LD A5,MMTO,A13 H P ST A4,MMTO,A13 ` P ST A5,MMFROM,A13 x P XIF P IFF CREDIT=0 P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P
0x210604…210798 Dummy {f00=0x006f, f01=0x0190, f02=»RENT MM-TABLE z P ADR A3,A13 , P* FIND LAST USED ENTRY IN REAL MMUTAB * * P Z P CALL MMENT b P ST A9,TTAB,A13 v * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE * P CALL
0x210798…21092c Dummy {f00=0x006f, f01=0x0190, f02=»SAVE NEW T:ATAB ADDRESS ~ P ADK A2,2 SKIP LENGTH WORD $ P LD A9,SCTLAC GET P:MTAB ADDRESS B $ P ES A2,T:ATAB,A9 STORE IN P:MTAB j $ P* RESERVE PLACE FOR T:AID TABLE P P LDR A3,A5 GET LENGTH P CALL MOVING P TL* MMTO,A13
0x21092c…210ac0 Dummy {f00=0x006f, f01=0x0190, f02=»ADJUST TABLE ADDRESS P ESR A2,A3 STORE IN P:MTAB P XIF > P IFF CREDIT=0 J ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH ` P LDR A5,A3 SAVE P CALL MOVING RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDI
0x210ac0…210c54 (5, 201) Dummy {f00=0x006f, f01=0x0190, f02=»,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE ( * P CALL MOVING RESERVE SPACE FOR T:ATAB @ " P STR A5,A2 STORE T:ATAB LENGTH n . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESE
0x210c54…210de8 Dummy {f00=0x006f, f01=0x018e, f02=»ENGTH-WORD z , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB P XIF B P IFT CREDIT+MMUPAG=2 N $ P TL* MMTO,A13 SET CORRECT TABLE j P ESR A5,A2 STORE LENGTH P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P
0x210de8…210f7c Dummy {f00=0x006f, f01=0x0190, f02=» f P LDR A5,A3 SAVE P CALL MOVING P ST A2,S:BTNW,A13 4 P XIF N P IFT CREDIT+MMUSWB=3 Z P TL* MMTO,A13 v P ESR A5,A2 P ADK A2,2 P ES A2,S:BTAB,A9 P CALL B:RSWT P XIF P IFT CREDIT+SWBMMU=2 P STR
0x210f7c…211110 Dummy {f00=0x006f, f01=0x018e, f02=»AD TABLE | P XIF P IFF CREDIT=0 P EJECT 4 P B P* BUILD COMMON DATA AREA * N P************************** p P* SEARCH CWB'S: P ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A3,A
0x211110…2112a4 Dummy {f00=0x006f, f01=0x0190, f02=» 0 P ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS PSYA210 EQU * < & P CM UWB,A13 INDICATE CWB-SCANNING P P ADKL A8,2 z P CW A8,ENDADD,A13 ALL DONE? P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1
0x2112a4…211438 Dummy {f00=0x006f, f01=0x0190, f02=» P CALL SHIFT SUPER-LOOPA PSYA220 RF(Z) UWBCOM ALL! ( P CALL MOVCOM H P CALL SKIFTA P RB SYA220 p P EJECT P P PUWBCOM EQU * P* SEARCH UWB'S: P* & P IM UWB,A13 INDICATE UWB-SCANNING P
0x211438…2115cc Dummy {f00=0x006f, f01=0x0190, f02=» CREDIT=0 P CALL SHIFT " PSYA230 RB(Z) SYA210 ALL DONE! & PSYA235 CALL MOVCOM L PSYA240 CALL SKIFTA f P RB SYA230 P EJECT P * P* TASK CLASS DATA CONFIGURATION PART * * P************************************** P
0x2115cc…211760 Dummy {f00=0x006f, f01=0x0190, f02=»TE CWB x ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 : P RF(E) SYA270 ALL T:A'S DONE T ( P CALL T:DADD GET T:D ADDRESS TO A12 x P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB
0x211760…2118f4 (5, 202) Dummy {f00=0x008a, f01=0x0190, f02=»NTS n P ADR A3,A12 ADD T:D-ADDRESS P LDR* A3,A3 . 0 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH F P CALL MULT AND MULTIPLY z P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE
0x2118f4…211a88 Dummy {f00=0x008a, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 ( P* INITIATE MM-ADDRESS TABLE POINTER $ P P $ P LD A1,SCTSFA SHADOW TABLE START X & P AD* A1,SCTSFA ADDRESS TABLE START P ST A1,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x211a88…211c1c Dummy {f00=0x008a, f01=0x0190, f02=»E MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE P 8 P LD A1,SAVE06,A13 @ & P ADK A1,2 INCREMENT TABLE POINTER Z P ST A1,SAVE06,A13 RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE '
0x211c1c…211db0 Dummy {f00=0x008a, f01=0x0190, f02=» ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST 6 , P LDR A3,A1 GET NUMB. OF START-POINTS... b P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY
0x211db0…211f44 Dummy {f00=0x008a, f01=0x0190, f02=»1,A8 GET T:A ADDRESS * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK J P XIF p P IFF CREDIT=0 | P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P*************************
0x211f44…2120d8 Dummy {f00=0x008a, f01=0x0190, f02=»DIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF . P IFF CREDIT=0 : P CALL MOVCLA P P EJECT d P r P ~ " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT CREDIT-MMUPAG=1
0x2120d8…21226c Dummy {f00=0x008a, f01=0x0190, f02=»UPAG=2 P EL A7,SWBMSK,A12 P RF(Z) SYA265 NONE ( P CALL SKRITT B PSYA265 EL A7,TWBMSK,A12 V P XIF v P IFF CREDIT=0 P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P
0x21226c…212400 Dummy {f00=0x008a, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x212400…212594 (5, 203) Dummy {f00=0x008a, f01=0x0190, f02=» P & P* BUILD TASKDATA PROTOTYPE AREA * & P********************************* : PPRODAT EQU * d P =00001 x , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 &
0x212594…212728 Dummy {f00=0x008a, f01=0x018e, f02=»E MMU TABLE P XIF P IFF CREDIT=0 , P LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A 6 P CALL MOVING GET P:BAS f P IFT CREDIT-MMUPAG=1 & P LD A1,SCTLAC GET START OF P:MTAB P LD A1,P:BAS,A1 GET P:BAS $ P STR A1,A2 SAVE IN TRABUG'S
0x212728…2128bc Dummy {f00=0x008a, f01=0x018e, f02=» 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER PSYA272 EQU * 8 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE L P ST A2,TTB:SA+26,A8 SAVE A13 P IFT CREDIT+MMUPAG=2 & P LD A1,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT T
0x2128bc…212a50 Dummy {f00=0x008a, f01=0x0190, f02=» & P TL* MMFROM,A13 RELOAD DDIV TABLE P XIF =00001 . P IFF CREDIT=0 =00001 D PSYA275 EQU * b P =00001 v P =00001 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x212a50…212be4 Dummy {f00=0x008a, f01=0x0190, f02=»T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P H " P* CALCULATE LENGTH OF DSCB'S * T " P*** *** z P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL
0x212be4…212d78 Dummy {f00=0x008a, f01=0x0190, f02=»EMENT r P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) 0 , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD Z 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START " P LD A2,STKB,A1 GET STACK SIZE $ P ST A2,CSE,A1 AND SAVE TEMPORA
0x212d78…212f0c Dummy {f00=0x008a, f01=0x0190, f02=»OCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB 4 P XIF b P IFT CREDIT+MMUPAG=2 n * P CALL GETTAB SET CORRECT TTAB-ADDRESS , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN
0x212f0c…2130a0 Dummy {f00=0x008a, f01=0x0190, f02=»A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE 4 P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P***
0x2130a0…213234 (5, 204) Dummy {f00=0x008a, f01=0x018e, f02=»H x ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S 6 ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT ` P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 P
0x213234…2133c8 Dummy {f00=0x008a, f01=0x0190, f02=» & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE . P EL A2,P:BAS,A2 GET P:BAS V & P TL* MMFROM,A13 RELOAD DDIV TABLE x P ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P ESR
0x2133c8…21355c Dummy {f00=0x008a, f01=0x0190, f02=»M FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA 6 P f . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS n P ADR A2,A13 ABSOLUT DITO P IFT CREDIT+MMUPAG=2 P LDR A3,A2 P ANKL A3,/F000 $ P SRL
0x21355c…2136f0 Dummy {f00=0x008a, f01=0x0190, f02=» P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS " P XIF P P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS x P* MOVE T:ATAB P . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS P LDR* A1,A2 REAL L
0x2136f0…213884 Dummy {f00=0x008a, f01=0x0190, f02=»1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 4 P CALL MOVE R P XIF d P IFT CREDIT+MMUPAG=2 p $ P TL* MMTO,A13 LOAD CORRECT TABLE & P ELR A1,A2 GET REAL T:ATAB LENGTH P TL* MMFROM,A13 RELOAD TABLE P ADR A
0x213884…213a18 Dummy {f00=0x008a, f01=0x0190, f02=» GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 2 P CALL XMOVE P P XIF d P IFF CREDIT=0 p P P* CONTINUE IN PART 2.B * P * P LDKL A5,PART2B RELATIVE START ADDRESS P ADR A5,A13 ADD BASE ADDRESS P
0x213a18…213bac Dummy {f00=0x008a, f01=0x0190, f02=»***** h 2 P******* ******* 2 P** ** D 2 P* SYSLOAD PART 1 * z 2 P** ** 2 P*****
0x213bac…213d40 Dummy {f00=0x008a, f01=0x0190, f02=» 2 P* SHADOW-TABLES * 2 P* * : 2 P********************************************* p P P XIF P P * P************************************* * P***
0x213d40…213ed4 (5, 205) Dummy {f00=0x008a, f01=0x0190, f02=»********************************* P EJECT * P 8 P D 6 P** C O N V R T ** P 6 P** ** 6 P** ** 6 P** CONVER
0x213ed4…214068 Dummy {f00=0x008a, f01=0x018e, f02=» ** r 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2 ** V 6 P************************************************** P PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG
0x214068…2141fc Dummy {f00=0x008a, f01=0x0190, f02=» P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 0 P ANK A3,/F GET ONE'S B P ADR A1,A3 ^ P RTN A14 p P EJECT P 6 P** N X T B L K ** 6 P** ** 6
0x2141fc…214390 Dummy {f00=0x008a, f01=0x0190, f02=» ** ~ 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ( 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** b 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** 6 P** WORKREGS: A1,A3-A5 **
0x214390…214524 Dummy {f00=0x008a, f01=0x0190, f02=»CLASSES f 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 F P SLL A5,8 Z P LC A5,1,A11 l P CALL CONVRT P LDK A2,TDBREC P LDR A3,A1 P CALL MULT P ADR A11,A3 P ADKL A11,2 0 P LCR A5,A11 GET NU
0x214524…2146b8 Dummy {f00=0x008a, f01=0x0190, f02=» P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK ( P ADKL A11,2 J $ P LC A2,TDBBT,A11 GET BLOCK TYPE ^ P RTN A14 P P 8 P** G E T N U M ** 8 P**
0x2146b8…21484c Dummy {f00=0x008a, f01=0x0190, f02=» ** b 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** J 8 P** OUTPUT: A5=BINARY VALUE ** 8 P** WORK.REGS: A2,A4 ** 8 P**********
0x21484c…2149e0 Dummy {f00=0x008a, f01=0x0190, f02=»SULT REG ~ P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT . P LCR A2,A6 GET CHAR P P ANK A2,/F l PGET050 SUK A2,1 ~ " P RF(N) GET100 THIS DIGIT READY P ADR A5,A4 ACCUMULATE P RB GET050 , PGET100 SUK A4,90 NEXT INCREM
0x2149e0…214b74 (5, 206) Dummy {f00=0x008b, f01=0x0190, f02=»JECT P P* START OF PROGRAM PART 1 * P 8 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS @ $ P* SAVE09=EXECUTION START ADDRESS x P " PSYSLDX EQU *-REL PROGRAM START P* P* INIT A15 STACK P* P LD A15,
0x214b74…214d08 Dummy {f00=0x008b, f01=0x0190, f02=»NTIFICATION r P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## 6 P EL A2,CREID,A2 P P XIF h 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM t P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION? ( P RF(E) SYA100 YES! START CONFIGURA
0x214d08…214e9c Dummy {f00=0x008b, f01=0x0190, f02=»CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK 8 P LDKL A4,/00C0 X P STR A4,A15 PUT PSW ON STACK n P RTN A15 PSYA103 EQU *-REL P XIF P IFT MMUPAG-CREDIT=1 ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS
0x214e9c…215030 Dummy {f00=0x008b, f01=0x0190, f02=»ENGTH OF TC:TAB | $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE @ 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER X * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN P* P* INIT UNUSED MMU ENTRIES P* P LDKL A1,/FC00 P L
0x215030…2151c4 Dummy {f00=0x008b, f01=0x0190, f02=»F(E) SYA105 P SUK A4,2 P STR A1,A4 & P RB SYA:10 8 PSYA105 SUK A5,2 ALL? J P RF(N) SYA107 YES! f P LDR* A2,A6 TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE P ADK A6,2 NEXT TTAB P RB SYA105 PSYA107 EQU * P XIF
0x2151c4…215358 Dummy {f00=0x008b, f01=0x0190, f02=»D A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER * P CF A15,ACTOT QUEUE TASK J " P LDKL A1,FINISH END OF SYSLDA j P ADR A1,A13 P ABR A1 P XIF PSYA100 EQU * P IFF CREDIT=0 P EJECT P , P* RE
0x215358…2154ec Dummy {f00=0x008b, f01=0x018e, f02=» LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS * & P SUKL A12,2 ADJUST FOR LENGTH-WORD R P ST A12,T:ATOD,A13 SAVE | , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB " P SUK A4,2 INCLUDE LENGTH-WORD $ P ST A4,U:BTOD,A13 SAVE
0x2154ec…215680 Dummy {f00=0x008b, f01=0x0190, f02=» n P ST A4,S:BTOD,A13 SAVE P XIF & P IFT CREDIT-MMUPAG=1 2 P* T:ATAB PROCESSING: N P j P LDR* A4,A12 T:ATAB-LENGTH v P LDR A3,A4 SAVE * P AD A3,SCTSFA ADD MONITOR END ADDRESS P* CHECK ADDRESSES P " P LDR A11
0x215680…215814 (5, 207) Dummy {f00=0x008c, f01=0x0190, f02=»RFLOW x P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS " P LDK A2,0 N P* CLEAR T:ATAB SHADOW-TABLE: ` P PZERO SUK A3,2 NEXT P STR A2,A3 CLEAR P CW A3,SCTSFA ALL? P RB(NE) ZERO NO! " P STR A4,A3 STORE TAB
0x215814…2159a8 Dummy {f00=0x008c, f01=0x0190, f02=» SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR 8 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID L P SLL A2,8 . x P LC A2,TDBMC+5,A11 ... P CWK A2,'TB' BUGGER TASK? P RF(NE) SYA125 NO! : P ST A2,SAVE02,A13 INDICATE BUGGER
0x2159a8…215b3c Dummy {f00=0x008c, f01=0x0190, f02=» ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 @ P RF(NZ) SYA135 R 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) h P CALL ERROR PSYA135 EQU * P CW A2,T:ATID,A6 TID EQUAL? P RB(NE) SYA130 NO! P SUR*
0x215b3c…215cd0 Dummy {f00=0x008c, f01=0x0190, f02=»DDRESS v $ P SUKL A12,2 INCLUDE LENGTH WORD ! & P ST A12,T:ATOD,A13 SAVE IN SYSLDA ! 6 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS ! ` $ P SUK A4,2 ADJUST FOR LENGTH WORD ! $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA ! P XIF ! P IFT CREDIT+MMUSWB=3 ! ( P EL A4,S
0x215cd0…215e64 Dummy {f00=0x008c, f01=0x0190, f02=»=2 ! ~ P* T:ATAB PROCESSING: " P " & P ELR A4,A12 T:ATAB-LENGTH " 2 P LDR A3,A4 SAVE " T 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE " l * P AD A3,SCTSFA ADD MONITOR END ADDRESS " P* CHECK ADDRESSES " P " $ P LDR A11,A3 END OF SHADO
0x215e64…215ff8 Dummy {f00=0x008c, f01=0x0190, f02=» CALL ERROR " ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS # P* CLEAR T:ATAB SHADOW-TABLE: # @ P # d PSYA115 SUK A3,2 NEXT # p P CMR A3 CLEAR # P CW A3,SCTSFA ALL? # P RB(NE) SYA115 NO! # " P STR A4,A3 STORE TABLE LENGTH # ( P LD A11,SAVE
0x215ff8…21618c Dummy {f00=0x008c, f01=0x0190, f02=»P4 NO TASK PRESENT # P CALL ERROR $ ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID $ . P SLL A2,8 . $ Z P LC A2,TDBMC+5,A11 ... $ n P CWK A2,'TB' BUGGER TASK? $ P RF(NE) SYA125 NO! $ 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' $ P RF SYA1
0x21618c…216320 Dummy {f00=0x008c, f01=0x0190, f02=»ET T:A ADDRESS $ P SUK A4,2 % P RF(NZ) SYA135 % ( , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) % > P CALL ERROR % n PSYA135 EQU * % P EL A10,T:ATID,A6 GET TID % P CWR A2,A10 TID EQUAL? % P RB(NE) SYA130 NO! % P ELR A10,A12 % P SUR
0x216320…2164b4 (5, 208) Dummy {f00=0x008c, f01=0x0190, f02=»UMBER OF TASKS % z P SLL A5,8 & P LC A5,TDBNT+1,A11 & ( P CALL CONVRT & B ( P LD A2,SCTSFA START OF SHADOW TABLE & V P ADR A2,A4 & 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE & P & P* SKIP TO NEXT BLOCK & P & PSYA136
0x2164b4…216648 Dummy {f00=0x008c, f01=0x0190, f02=» & * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ' P CALL NXTCOM SKIP COMMON DEF ' 6 PSYA140 CCK A2,'UU' ' Z P RF(NE) SYA141 NO UWB'S ' t 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ' 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ' PSYA1
0x216648…2167dc Dummy {f00=0x008c, f01=0x0190, f02=» ' ~ P CALL USWBTP ( P XIF ( P IFT CREDIT=1 ( ( P RF SYA152 ( > P EJECT ( P L P*********************************************************************** ( ^ L P* * ( L P* USWBTP
0x2167dc…216970 Dummy {f00=0x008c, f01=0x0190, f02=»== * ( N L P* * ) L P* REFERENCED IN: SYSLDA * ) ^ L P* * ) L P* ENTRY:
0x216970…216b04 Dummy {f00=0x008c, f01=0x0190, f02=» * ) N L P* * * L P* EXIT: * * ^ L P* * * L P* WORK RE
0x216b04…216c98 Dummy {f00=0x008c, f01=0x0190, f02=» * * N L P* SUBROUTINES: GETNUM,ERROR * + L P* * + ^ L P*********************************************************************** + P + PUS
0x216c98…216e2c Dummy {f00=0x008c, f01=0x018e, f02=»T IN A5 + r $ P LDR A1,A5 SAVE NUMBER OF UWB'S , PSYA142 EQU * , 8 P LDR A12,A8 , L " P LDR* A3,A12 LENGTH OF U:BTAB , ` ( P ADKL A11,UDBFST-1 FIRST UDB RECORD , PSYA145 EQU * , 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG , P SLL A2,8 ,
0x216e2c…216fc0 Dummy {f00=0x008c, f01=0x0190, f02=» , h 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S - P RF(NN) SYA150 - < P LDK A1,LMP6 UWB NOT FOUND - R P CALL ERROR - t PSYA150 EQU * - ( P ADKL A12,UP:REC ADD TO NEXT RECORD - P RB SYA145 - $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR - P CC A2
0x216fc0…217154 (5, 209) Dummy {f00=0x008c, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x217154…2172e8 Dummy {f00=0x008c, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x2172e8…21747c Dummy {f00=0x008c, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x21747c…217610 Dummy {f00=0x008c, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x217610…2177a4 Dummy {f00=0x008c, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x2177a4…217938 Dummy {f00=0x008c, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x217938…217acc Dummy {f00=0x008c, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x217acc…217c60 Dummy {f00=0x008c, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x217c60…217df4 (5, 210) Dummy {f00=0x008c, f01=0x0190, f02=»F P:MTAB 5 v P IFT CREDIT-MMUPAG=1 6 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 , P XIF 6 X P IFT CREDIT+MMUPAG=2 6 d ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 P XIF 6 P IFF CREDIT=0 6 . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 6 P CALL MU
0x217df4…217f88 Dummy {f00=0x008c, f01=0x0190, f02=»L,A13 AND ADJUST RELOCATION BASE 6 P IFT CREDIT+MMUPAG=2 7 ( P 7 D . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 L P XIF 7 ~ P IFT CREDIT-MMUPAG=1 7 , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 7 P XIF 7 P IFF CREDIT=0 7 " P SUR A6,A1 RELOC
0x217f88…21811c Dummy {f00=0x008c, f01=0x0190, f02=»L (=REAL) LENGTH * 7 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 8 " . P* A9=P:MTAB A6=MOVE-RELOC * 8 T . P***************************************** 8 P IFT CREDIT-MMUPAG=1 8 P 8 P* INITIATE POINTERS 8 P 8 ( P LD A8,T
0x21811c…2182b0 Dummy {f00=0x008c, f01=0x0190, f02=»CTSFA GET START OF T:ATAB SHADOW-TAB 8 P LDR A4,A5 2:ND POINTER 9 , & P LDR A2,A8 2:ND POINTER IN T:ATAB 9 L & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 9 v . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 9 P 9 P* SCAN T:ATAB: 9 P 9 " PSYA160 ADKL A8,2
0x2182b0…218444 Dummy {f00=0x008c, f01=0x018e, f02=»A 9 ~ * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB : , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! : 8 " P ADR A11,A7 ACCUMULATE LENGTH : h , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH : , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS : ( P ADK A2,2 UPDATE 2:ND T:AT
0x218444…2185d8 Dummy {f00=0x008c, f01=0x018e, f02=» : z . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ; P* RELOCATE W.B.-ADDRESSES ; : P ; $ P LD A12,T:DAD,A1 GET T:D-ADDRESS ; d $ P LD A7,WATLEN,A12 LENGTH OF WAT ; . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS ; PSYA165 SUK A7,1 DEC. COUNTER ;
0x2185d8…21876c Dummy {f00=0x008c, f01=0x0190, f02=» ; z P < P LD A8,T:ATOD,A13 T:ATAB < P ELR A3,A8 GET LENGTH < 0 P ADR A3,A8 END OF T:ATAB < N P ST A3,ENDADD,A13 SAVE < n 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB < P LDR A4,A5 2:ND POINTER < & P LDR A2,A8 2:ND POINTER IN T:ATAB < &
0x21876c…218900 Dummy {f00=0x008c, f01=0x0190, f02=»60 ADKL A8,2 TAKE NEXT T:A < $ P ADK A5,2 NEXT T:A IN SHADOW-TAB = " P CW A8,ENDADD,A13 = J P RF(E) SYA170 ALL DONE = d P ELR A1,A8 GET T:A = * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB = , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! = " P ADR A11,A7 AC
0x218900…218a94 (5, 211) Dummy {f00=0x008d, f01=0x0190, f02=» 2:ND T:ATAB ADDRESS = 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) > P ELR A10,A8 GET T:A-ADDRESS > X P ADR A10,A6 RELOCATE > | . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) > P* RELOCATE W.B.-ADDRESSES > P > $ P EL A12,T:DAD,A1 GET
0x218a94…218c28 Dummy {f00=0x008d, f01=0x0190, f02=»ER > v P RB(N) SYA160 TAKE NEXT T:A ? P ELR A10,A1 GET ADDRESS ? . P ADR A10,A6 RELOCATE ? N P ESR A10,A1 ? j P XIF ? ~ P IFF CREDIT=0 ? P ADK A1,4 NEXT W.B. ? P RB SYA165 ? P ? PSYA170 EQU * ? P ST A6,MOVADD,A13 SAVE ? 8 P
0x218c28…218dbc Dummy {f00=0x008d, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 @ $ P ST* A3,T:ATOD,A13 AND IN T:ATAB @ P XIF @ H P IFF CREDIT=0 @ T 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR @ j ( P SLL A2,1 CALC. REAL LENGTH (BYTES) @ P ADK A2,2 @ 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S
0x218dbc…218f50 Dummy {f00=0x008d, f01=0x0190, f02=» LEN.) * @ x $ P******************************** A P A 8 P IFT CREDIT-MMUPAG=1 A @ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS A P LDR* A3,A5 LENGTH A P ST A3,SAVE06,A13 A P ADK A5,2 SKIP LENGTH WORD A P SUK A3,2 -"- A " PSYA180 RF(Z) SYA185 AL
0x218f50…2190e4 Dummy {f00=0x008d, f01=0x0190, f02=»ABLE LENGTH A , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB B P ADK A5,2 B D P SUK A3,2 SUB LENGTH-WORD B V PSYA180 RF(Z) SYA185 B x P ELR A10,A5 GET ADDRESS B P ADR A10,A6 RELOCATE B P ESR A10,A5 B P XIF B P IFF CREDIT=0 B 8 P A
0x2190e4…219278 Dummy {f00=0x008d, f01=0x0190, f02=» CREDIT+MMUSWB=3 B P* C $ P* COMPUTE REAL LENGTH OF S:BTAB C " P* C J $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS C T " P ELR A3,A5 LENGTH OF PROTOTYPE C | P LDR A2,A3 SAVE C " P SUK A3,2 EXCLUDE LENGTH WORD C , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED!
0x219278…21940c Dummy {f00=0x008d, f01=0x0190, f02=»BER OF COPIES C v P ANK A4,/FF GET RIGHT BYTE D . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! D 8 P ADK A2,2 INCREMENT LENGTH D j ( P SUK A4,1 DECREMENT NUMBER OF COPIES D P RB SYA192 D 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE D $ P S
0x21940c…2195a0 Dummy {f00=0x008d, f01=0x0190, f02=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE D P LDR A2,A3 SAVE E . " P SUK A3,2 EXCLUDE LENGTH WORD E F , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! E l $ P LD A4,2,A5 GET PROT. W.B.-ADDR. E P ADR A4,A6 RELOCATE E P ST A4,2,A5 STORE IT BACK E , P LD A4
0x2195a0…219734 (5, 212) Dummy {f00=0x008d, f01=0x0190, f02=»TH E x ( P SUK A4,1 DECREMENT NUMBER OF COPIES F P RB SYA196 F 6 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F H $ P SUK A3,UP:REC DECREMENT LENGTH F P RB SYA195 F P XIF F P IFT CREDIT+SWPBLK=2 F 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPU
0x219734…2198c8 Dummy {f00=0x008d, f01=0x0190, f02=» F P ADS A6,T:ATOD,A13 G P ADS A6,U:BTOD,A13 G " P IFT CREDIT+SWPBLK=2 G < P ADS A6,S:BTOD,A13 G X P XIF G r P IFT CREDIT-MMUPAG=1 G ~ P* CALCULATE NEW DDIV END G P G P LDR A5,A9 G P SU A5,SAVE04,A13 END-START G $ P AD A5,SAVE12,A1
0x2198c8…219a5c Dummy {f00=0x008d, f01=0x0190, f02=» G v P H P LDK A4,MMDDIV H " P ADR A4,A13 GET TABLE ADDRESS H & & P LDR A5,A13 CALC. REAL RELOCATION H L P SU A5,SAVE12,A13 H v P SU A5,MMREL1,A13 H P SUR A4,A5 RELOCATE H P ST A4,MMTO,A13 AND SAVE H P LDK A4,MMTAB H $ P ADR A4,A13
0x219a5c…219bf0 Dummy {f00=0x008d, f01=0x0190, f02=»D H ~ P SU A5,SAVE04,A13 ENT-START I $ P AD A5,SAVE12,A13 ADD NEW START I . P LDR A6,A5 I V 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) I h $ P SRL A6,11 ADJUST FOR ADDRESSING I . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS I P ADR A6,A13 RELOCA
0x219bf0…219d84 Dummy {f00=0x008d, f01=0x0190, f02=»3 AND SAVE I P XIF J P IFF CREDIT=0 J P* CONTINUE IN PART 2 * J 4 P J R . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) J ^ ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS J P LDR A5,A2 SAVE J 0 P LDKL A7,START2 GET EXECUTION START ADDRESS J P
0x219d84…219f18 Dummy {f00=0x008d, f01=0x0190, f02=»DIT-MMUPAG=1 J PNXTMOV LDR* A4,A1 GET WORD K P STR A4,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x219f18…21a0ac Dummy {f00=0x008d, f01=0x403c, f02=»ITOR K t P XIF L PLDAEND EQU * L P END L ,@ L 84,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x21a0ac…21a240 Dummy {f00=0x008d, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x21a240…21a3d4 (5, 213) Dummy {f00=0x008d, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x21a3d4…21a568 Dummy {f00=0x008d, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x21a568…21a6fc Dummy {f00=0x008d, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x21a6fc…21a890 Dummy {f00=0x008d, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x21a890…21aa24 Dummy {f00=0x008d, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x21aa24…21abb8 Dummy {f00=0x008d, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x21abb8…21ad4c Dummy {f00=0x008d, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x21ad4c…21aee0 Dummy {f00=0x008d, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x21aee0…21b074 (5, 214) Opaque[0x194]
0x21b074…21b208 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e00, f03=0x0000}
0x21b074…21b208 IdxSect {
0x21b074…21b208 f00 = 0x0070 // 0x21b074 @0x0
0x21b074…21b208 f01 = 0x000c // 0x21b076 @0x2
0x21b074…21b208 gno = [ // 0x21b078 @0x4
0x21b074…21b208 [0x00]: C0x0070.0x0.0
0x21b074…21b208 [0x01]: C0x0070.0x1.0
0x21b074…21b208 [0x02]: C0x0070.0x2.0
0x21b074…21b208 [0x03]: C0x0070.0x3.0
0x21b074…21b208 [0x04]: C0x0071.0x0.0
0x21b074…21b208 [0x05]: C0x0071.0x1.0
0x21b074…21b208 ]
0x21b074…21b208 }
0x21b208…21b39c Dummy {f00=0x0070, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x21b39c…21b530 Dummy {f00=0x0070, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x21b530…21b6c4 Dummy {f00=0x0070, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x21b6c4…21b858 Dummy {f00=0x0070, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x21b858…21b9ec Dummy {f00=0x0070, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x21b9ec…21bb80 Dummy {f00=0x0070, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x21bb80…21bd14 (5, 215) Dummy {f00=0x0070, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x21bd14…21bea8 Dummy {f00=0x0070, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x21bea8…21c03c Dummy {f00=0x0070, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x21c03c…21c1d0 Dummy {f00=0x0070, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x21c1d0…21c364 Dummy {f00=0x0070, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x21c364…21c4f8 Dummy {f00=0x0070, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x21c4f8…21c68c Dummy {f00=0x0070, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x21c68c…21c820 Dummy {f00=0x0070, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x21c820…21c9b4 (5, 216) Dummy {f00=0x0070, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x21c9b4…21cb48 Dummy {f00=0x0070, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x21cb48…21ccdc Dummy {f00=0x0070, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x21ccdc…21ce70 Dummy {f00=0x0070, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x21ce70…21d004 Dummy {f00=0x0070, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x21d004…21d198 Dummy {f00=0x0070, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x21d198…21d32c Dummy {f00=0x0070, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x21d32c…21d4c0 Dummy {f00=0x0070, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x21d4c0…21d654 (5, 217) Dummy {f00=0x0070, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x21d654…21d7e8 Dummy {f00=0x0070, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x21d7e8…21d97c Dummy {f00=0x0070, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x21d97c…21db10 Dummy {f00=0x0070, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x21db10…21dca4 Dummy {f00=0x0070, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x21dca4…21de38 Dummy {f00=0x0070, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x21de38…21dfcc Dummy {f00=0x0070, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x21dfcc…21e160 Dummy {f00=0x0070, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x21e160…21e2f4 (5, 218) Dummy {f00=0x0071, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x21e2f4…21e488 Dummy {f00=0x0071, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x21e488…21e61c Dummy {f00=0x0071, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x21e61c…21e7b0 Dummy {f00=0x0071, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x21e7b0…21e944 Dummy {f00=0x0071, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x21e944…21ead8 Dummy {f00=0x0071, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x21ead8…21ec6c Dummy {f00=0x0071, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x21ec6c…21ee00 Dummy {f00=0x0071, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x21ee00…21ef94 (5, 219) Dummy {f00=0x0071, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x21ef94…21f128 Dummy {f00=0x0071, f01=0x2008, f02=» ' NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x21f128…21f2bc Dummy {f00=0x0071, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x21f2bc…21f450 Dummy {f00=0x0071, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x21f450…21f5e4 Dummy {f00=0x0071, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x21f5e4…21f778 Dummy {f00=0x0071, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x21f778…21f90c Dummy {f00=0x0071, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x21f90c…21faa0 Dummy {f00=0x0071, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x21faa0…21fc34 (5, 220) Opaque[0x194]
0x21fc34…21fdc8 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e70, f03=0x0000}
0x21fc34…21fdc8 IdxSect {
0x21fc34…21fdc8 f00 = 0x0073 // 0x21fc34 @0x0
0x21fc34…21fdc8 f01 = 0x0008 // 0x21fc36 @0x2
0x21fc34…21fdc8 gno = [ // 0x21fc38 @0x4
0x21fc34…21fdc8 [0x00]: C0x0073.0x2.0
0x21fc34…21fdc8 [0x01]: C0x0098.0x1.0
0x21fc34…21fdc8 [0x02]: C0x0098.0x3.0
0x21fc34…21fdc8 [0x03]: C0x0099.0x0.0
0x21fc34…21fdc8 ]
0x21fc34…21fdc8 }
0x21fdc8…21ff5c Dummy {f00=0x0073, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x21ff5c…2200f0 Dummy {f00=0x0073, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x2200f0…220284 Dummy {f00=0x0073, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x220284…220418 Dummy {f00=0x0073, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x220418…2205ac Dummy {f00=0x0073, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x2205ac…220740 Dummy {f00=0x0073, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x220740…2208d4 (5, 221) Dummy {f00=0x0098, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x2208d4…220a68 Dummy {f00=0x0098, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x220a68…220bfc Dummy {f00=0x0098, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 0 P* P EJECT P* P* O U T L I N P
0x220bfc…220d90 Dummy {f00=0x0098, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x220d90…220f24 Dummy {f00=0x0098, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x220f24…2210b8 Dummy {f00=0x0098, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x2210b8…22124c Dummy {f00=0x0098, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x22124c…2213e0 Dummy {f00=0x0098, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x2213e0…221574 (5, 222) Dummy {f00=0x0098, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x221574…221708 Dummy {f00=0x0098, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x221708…22189c Dummy {f00=0x0098, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x22189c…221a30 Dummy {f00=0x0098, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x221a30…221bc4 Dummy {f00=0x0098, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x221bc4…221d58 Dummy {f00=0x0098, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x221d58…221eec Dummy {f00=0x0098, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x221eec…222080 Dummy {f00=0x0098, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x222080…222214 (5, 223) Dummy {f00=0x0099, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x222214…2223a8 Dummy {f00=0x0099, f01=0x0190, f02=»PUT DRIVE NO IN CIO INSTRUCTION n P* o ( 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o 2 P* o n P* OUTPUT: A3 CHANGED o x P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P SLL A3,4 o P ORS A
0x2223a8…22253c Dummy {f00=0x0099, f01=0x0190, f02=»**** o P* p : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p 0 P* EBCDIC-CODED DIGITS (DECIMAL) p T P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p P* A7 CHANGED
0x22253c…2226d0 Dummy {f00=0x0099, f01=0x0190, f02=»7,10 p P SLL A3,8 q * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q P ORKL A3,/F0F0 EBCDIC CODED q L P RTN A5 q p P* q P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION: PREPARE FOR READING DATA
0x2226d0…222864 Dummy {f00=0x0099, f01=0x0190, f02=» A3 128 q ( P* A4 DRIVER BUFFER ADDRESS r P* A6 DWT ADDRESS r F P* A1 IS CHANGED r h P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A3,128 r P LDKL A4,B
0x222864…2229f8 Dummy {f00=0x0099, f01=0x0190, f02=» FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT r P* s 8 P* INPUT: A6 DWT ADDRESS s B P* s d P* OUTPUT: A2 EOD ADDRESS s n , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTEOD s P CF A5,DSPAD s
0x2229f8…222b8c Dummy {f00=0x0099, f01=0x0190, f02=»* s P* t 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t J P* t P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRESS TO DATA t P*
0x222b8c…222d20 Dummy {f00=0x0099, f01=0x0190, f02=»2,A1 t P RTN A5 u P* u P EJECT DRFD01 u & P* u > P********* u H P* STDWT * u Z P********* u l P* u ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P* INPUT: A1 OFFSET TO
0x222d20…222eb4 (5, 224) Opaque[0x194]
0x222eb4…223048 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e58, f03=0x0000}
0x222eb4…223048 IdxSect {
0x222eb4…223048 f00 = 0x0072 // 0x222eb4 @0x0
0x222eb4…223048 f01 = 0x0004 // 0x222eb6 @0x2
0x222eb4…223048 gno = [ // 0x222eb8 @0x4
0x222eb4…223048 [0x00]: C0x0072.0x3.0
0x222eb4…223048 [0x01]: C0x0073.0x1.0
0x222eb4…223048 ]
0x222eb4…223048 }
0x223048…2231dc Dummy {f00=0x0072, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x2231dc…223370 Dummy {f00=0x0072, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x223370…223504 Dummy {f00=0x0072, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x223504…223698 Dummy {f00=0x0072, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x223698…22382c Dummy {f00=0x0072, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x22382c…2239c0 Dummy {f00=0x0072, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x2239c0…223b54 (5, 225) Dummy {f00=0x0073, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x223b54…223ce8 Dummy {f00=0x0073, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x223ce8…223e7c Dummy {f00=0x0073, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x223e7c…224010 Dummy {f00=0x0073, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x224010…2241a4 Dummy {f00=0x0073, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x2241a4…224338 Dummy {f00=0x0073, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x224338…2244cc Dummy {f00=0x0073, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x2244cc…224660 Dummy {f00=0x0073, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x224660…2247f4 (5, 226) Opaque[0x194]
0x2247f4…224988 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd8, f03=0x0000}
0x2247f4…224988 IdxSect {
0x2247f4…224988 f00 = 0x007e // 0x2247f4 @0x0
0x2247f4…224988 f01 = 0x0002 // 0x2247f6 @0x2
0x2247f4…224988 gno = [ // 0x2247f8 @0x4
0x2247f4…224988 [0x00]: C0x007e.0x3.0
0x2247f4…224988 ]
0x2247f4…224988 }
0x224988…224b1c Dummy {f00=0x007e, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x224b1c…224cb0 Dummy {f00=0x007e, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x224cb0…224e44 Dummy {f00=0x007e, f01=0x0190, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x224e44…224fd8 Dummy {f00=0x007e, f01=0x4038, f02=»ND OF TABLE P* P* P END (@ 4 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x224fd8…22516c Dummy {f00=0x007e, 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
0x22516c…225300 Dummy {f00=0x007e, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x225300…225494 (5, 227) Opaque[0x194]
0x225494…225628 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a8, f03=0x0000}
0x225494…225628 IdxSect {
0x225494…225628 f00 = 0x0085 // 0x225494 @0x0
0x225494…225628 f01 = 0x0004 // 0x225496 @0x2
0x225494…225628 gno = [ // 0x225498 @0x4
0x225494…225628 [0x00]: C0x0085.0x1.0
0x225494…225628 [0x01]: C0x0085.0x2.0
0x225494…225628 ]
0x225494…225628 }
0x225628…2257bc Dummy {f00=0x0085, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x2257bc…225950 Dummy {f00=0x0085, 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
0x225950…225ae4 Dummy {f00=0x0085, f01=0x0190, f02=»MTEND DATA MANAGEMENT COMMIT " P EXTRN TCHPAG CHANGE MMU PAGE $ " P EXTRN TCHMMU CHANGE MMU TABLE J P EJECT p P* ~ $ PLKMAL DATA LKMALE-* TABLE LENGTH P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXI
0x225ae4…225c78 Dummy {f00=0x0085, f01=0x0190, f02=»E WAIT | $ P DATA TLUSEG LOCK/UNLOCK SEGMENT P DATA TLDSEG SEGMENT TLDSEG 6 P DATA TABORT ABORT FUNCTION Z P DATA 0 ~ 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA
0x225c78…225e0c Dummy {f00=0x0085, f01=0x404c, f02=»HMMU CHANGE MMU TABLE PLKMALE EQU * P* 2 P END <@ HLDSEG 6 P DATA TABORT ABORT FUNCTION Z P DATA 0 ~ 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK " P DATA SETTIM SET MONITOR CLOCK P DATA
0x225e0c…225fa0 Dummy {f00=0x0085, 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
0x225fa0…226134 (5, 228) Dummy {f00=0x0085, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x226134…2262c8 Dummy {f00=0x0085, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x2262c8…22645c Dummy {f00=0x0085, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x22645c…2265f0 Dummy {f00=0x0085, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x2265f0…226784 Dummy {f00=0x0085, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x226784…226918 Dummy {f00=0x0085, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x226918…226aac Dummy {f00=0x0085, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x226aac…226c40 Dummy {f00=0x0085, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x226c40…226dd4 (5, 229) Opaque[0x194]
0x226dd4…226f68 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fd0, f03=0x0000}
0x226dd4…226f68 IdxSect {
0x226dd4…226f68 f00 = 0x007e // 0x226dd4 @0x0
0x226dd4…226f68 f01 = 0x0002 // 0x226dd6 @0x2
0x226dd4…226f68 gno = [ // 0x226dd8 @0x4
0x226dd4…226f68 [0x00]: C0x007e.0x2.0
0x226dd4…226f68 ]
0x226dd4…226f68 }
0x226f68…2270fc Dummy {f00=0x007e, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x2270fc…227290 Dummy {f00=0x007e, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x227290…227424 Dummy {f00=0x007e, f01=0x2008, f02=» C7 EQU 0 7 * 4 * > * H CTABX DATA C1 R DATA C2 h DATA C2 x DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END @
0x227424…2275b8 Dummy {f00=0x007e, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x2275b8…22774c Dummy {f00=0x007e, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x22774c…2278e0 Dummy {f00=0x007e, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x2278e0…227a74 (5, 230) Opaque[0x194]
0x227a74…227c08 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x227a74…227c08 IdxSect {
0x227a74…227c08 f00 = 0x0080 // 0x227a74 @0x0
0x227a74…227c08 f01 = 0x000a // 0x227a76 @0x2
0x227a74…227c08 gno = [ // 0x227a78 @0x4
0x227a74…227c08 [0x00]: C0x0080.0x0.0
0x227a74…227c08 [0x01]: C0x0080.0x1.0
0x227a74…227c08 [0x02]: C0x0080.0x2.0
0x227a74…227c08 [0x03]: C0x0080.0x3.0
0x227a74…227c08 [0x04]: C0x0081.0x0.0
0x227a74…227c08 ]
0x227a74…227c08 }
0x227c08…227d9c Dummy {f00=0x0080, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x227d9c…227f30 Dummy {f00=0x0080, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x227f30…2280c4 Dummy {f00=0x0080, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x2280c4…228258 Dummy {f00=0x0080, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x228258…2283ec Dummy {f00=0x0080, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x2283ec…228580 Dummy {f00=0x0080, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x228580…228714 (5, 231) Dummy {f00=0x0080, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x228714…2288a8 Dummy {f00=0x0080, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 0 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0
0x2288a8…228a3c Dummy {f00=0x0080, f01=0x0190, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU 1 P* P* 2 P* A PROG
0x228a3c…228bd0 Dummy {f00=0x0080, f01=0x0190, f02=» P* P EJECT DSKSUB P* & P* 0 P********** : P* VOLCLR * L P********** ^ P* p P* z 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBER OF
0x228bd0…228d64 Dummy {f00=0x0080, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* @ PVCLR10 EQU * J P CMR A1 CLEAR ONE WORD ^ P ADK A1,2 INCREMENT POINTER | $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DSKSUB
0x228d64…228ef8 Dummy {f00=0x0080, f01=0x0190, f02=»ME OF SELECTED DISC n 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* T P* INPUT: A6 = DWT ADDRESS ^ P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A8 RE
0x228ef8…22908c Dummy {f00=0x0080, f01=0x0190, f02=»,ECBEL,A8 SET EFFECTIVE LENGTH P* & P IFT MMUPAG=0 0 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS F P* r P EJECT DSKSUB | P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT BUFF
0x22908c…229220 Dummy {f00=0x0080, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU P P TL TTB:MT,A2 LOAD USER MMU t & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME NAME
0x229220…2293b4 (5, 232) Dummy {f00=0x0080, f01=0x0190, f02=»** P* VOLADR * P********** P* . P* 8 P* INPUT: A6 = DWT ADDRESS B P* f ( P* OUTPUT: A1 = VOLUME NAME ADDRESS p P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x2293b4…229548 Dummy {f00=0x0080, f01=0x0190, f02=» P RB(NN) VOLA10 P LDK A4,6 P RF RETURN 0 P* B P EJECT DSKSUB L P* d P* n P********** x P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO CHE
0x229548…2296dc Dummy {f00=0x0080, f01=0x0190, f02=» DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) 0 P* A2 = DWT ADDRESS + DOUBLE INDEX X $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,
0x2296dc…229870 Dummy {f00=0x0080, f01=0x0190, f02=»ESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 & P ANK A1,/FF CHECK IF NVL > " P RF(Z) RETURN RETURN IF NO NVL ^ " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P*
0x229870…229a04 Dummy {f00=0x0080, f01=0x018e, f02=»CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK B * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB f P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETURN NO
0x229a04…229b98 Dummy {f00=0x0080, f01=0x0190, f02=» P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P****
0x229b98…229d2c Dummy {f00=0x0080, f01=0x0190, f02=»ISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* < ( P* INPUT: A2 = DISC BUFFER ADDRESS F 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) r 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P* 0
0x229d2c…229ec0 Dummy {f00=0x0080, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 2 P* R PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME p , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P STR
0x229ec0…22a054 (5, 233) Dummy {f00=0x0080, f01=0x0190, f02=» POINTERS v P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER $ P RB(P) VGET10 L P CF A15,INXDWT b P ADK A7,0 CHECK NVL FLAG x " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST STATU
0x22a054…22a1e8 Dummy {f00=0x0080, f01=0x0190, f02=» DISC h P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL P* H P EJECT DSKSUB R P* j P* t P********** ~ P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS 4
0x22a1e8…22a37c Dummy {f00=0x0080, f01=0x0190, f02=»CONCERNED FILE CODE AND FILES | 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE & 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE b ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER) ( P
0x22a37c…22a510 Dummy {f00=0x0080, f01=0x0190, f02=» A1-A2 ARE DESTROYED P* PNEWVOL EQU * & P LD A2,NVLBIT NVL BIT MASK : 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB P*
0x22a510…22a6a4 Dummy {f00=0x0080, f01=0x0190, f02=»NTER n P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* X PNEW:10 EQU * b P LDR* A2,A1 NEXT FWT ADDRESS v P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST EWT S
0x22a6a4…22a838 Dummy {f00=0x0080, f01=0x0190, f02=») NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED . P RB NEW:10 b P* t PNEW:30 EQU * ~ . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTINUE
0x22a838…22a9cc Dummy {f00=0x0080, f01=0x0190, f02=» P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* h P* INPUT: A6 = DWT ADDRESS r P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x22a9cc…22ab60 Dummy {f00=0x0080, f01=0x0190, f02=» P* P EJECT DSKSUB P* & P* 0 P********** : P* NVLTAB * L P********** ^ P* p P* z 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS BEE
0x22ab60…22acf4 (5, 234) Dummy {f00=0x0081, f01=0x0190, f02=» P DATA TTABLD LDTASK TTAB P XIF $ P* 0 PNVLDMT EQU * : P IFT FILMAN=1 N P IFT DATMAN=1 d P DATA 0 TTAB #D z P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1 PNV
0x22acf4…22ae88 Dummy {f00=0x0081, f01=0x4160, f02=»MAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB * P* J PNVLEND EQU * T P* h PNVLBIT DATA 3 NVL BIT MASK r P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLB
0x22ae88…22b01c Dummy {f00=0x0081, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x22b01c…22b1b0 Dummy {f00=0x0081, f01=0x018e, f02=»$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ! !!EN ! D ASM /S ! P KPF /O ! ^ KPF /S ! l SCR ! z MOV FMTASK,/S,TOSSWORK ! KPF /S,FMTASK ! SCR ! LED FMTASK ! ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ! ( #!!CH
0x22b1b0…22b344 Dummy {f00=0x0081, f01=0x0190, f02=» SCR " LED SYSTAB " !!CH $$IHINPT$$TRAP$$ " " !!CH $$ X:A$$ 00005$$ " @ !!CH $$ EXTRN BUG$$*$$ " ^ !!CH $$ BUG$$ 0$$ " | !!CH $$ X:B$$ 00003$$ " !!CH $$ X:C$$ 00007$$ " !!CH $$ X:E$$ 00006$$ " !!CH $$ X:D$$ 00006$$ "
0x22b344…22b4d8 Dummy {f00=0x0081, f01=0x0190, f02=»LINT " | !!DL 124 # DATA ILLINT # !!DL 125 # < DATA ILLINT # L !!DL 126 # l DATA ILLINT # | !!DL 127 # DATA ILLINT # !!DL 128 # DATA ILLINT # !!DL 131 #
0x22b4d8…22b66c Dummy {f00=0x0081, f01=0x0190, f02=» 134 # DATA ILLINT $ !!DL 135 $ , DATA ILLINT $ < !!DL 136 $ DATA ILLINT $ l !!DL 138 $ DATA ILLINT $ !!DL 140 $ DATA ILLINT $ !!DL 141 $ DAT
0x22b66c…22b800 Dummy {f00=0x0081, f01=0x0190, f02=» DATA ILLINT $ !!DL 155 % DATA ILLINT % , !!DL 156 % L DATA ILLINT % !!DL 159 % | DATA ILLINT % !!DL 163 % DATA ILLINT % !!EN % ASM /S % KPF /O % KPF
0x22b800…22b994 (5, 235) Opaque[0x194]
0x22b994…22bb28 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x22b994…22bb28 IdxSect {
0x22b994…22bb28 f00 = 0x0098 // 0x22b994 @0x0
0x22b994…22bb28 f01 = 0x0002 // 0x22b996 @0x2
0x22b994…22bb28 gno = [ // 0x22b998 @0x4
0x22b994…22bb28 [0x00]: C0x0098.0x0.0
0x22b994…22bb28 ]
0x22b994…22bb28 }
0x22bb28…22bcbc Dummy {f00=0x0098, f01=0x0190, f02=» 0 P IDENT DVTKB REL 10.0 80-03-14 870105041000 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x22bcbc…22be50 Dummy {f00=0x0098, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x22be50…22bfe4 Dummy {f00=0x0098, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x22bfe4…22c178 Dummy {f00=0x0098, f01=0x40e0, f02=»PAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 " P DATA 0,0,0,0,0,0,0,0 < P DATA 0,0,0,0,0,0,0,0 Z P DATA 0,0,0,0,0,0,0,0 x P DATA 0 P XIF PDWTEND EQU * P* P END @ ST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x22c178…22c30c Dummy {f00=0x0098, 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
0x22c30c…22c4a0 Dummy {f00=0x0098, f01=0x2008, f02=»
0x22c4a0…22c634 (5, 236) Opaque[0x194]
0x22c634…22c7c8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e80, f03=0x0000}
0x22c634…22c7c8 IdxSect {
0x22c634…22c7c8 f00 = 0x0074 // 0x22c634 @0x0
0x22c634…22c7c8 f01 = 0x0002 // 0x22c636 @0x2
0x22c634…22c7c8 gno = [ // 0x22c638 @0x4
0x22c634…22c7c8 [0x00]: C0x0074.0x0.0
0x22c634…22c7c8 ]
0x22c634…22c7c8 }
0x22c7c8…22c95c Dummy {f00=0x0074, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x22c95c…22caf0 Dummy {f00=0x0074, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x22caf0…22cc84 Dummy {f00=0x0074, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x22cc84…22ce18 Dummy {f00=0x0074, 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
0x22ce18…22cfac Dummy {f00=0x0074, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x22cfac…22d140 Dummy {f00=0x0074, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x22d140…22d2d4 (5, 237) Opaque[0x194]
0x22d2d4…22d468 # DirEnt {nam=»DVTDI «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x22d2d4…22d468 IdxSect {
0x22d2d4…22d468 f00 = 0x0074 // 0x22d2d4 @0x0
0x22d2d4…22d468 f01 = 0x0002 // 0x22d2d6 @0x2
0x22d2d4…22d468 gno = [ // 0x22d2d8 @0x4
0x22d2d4…22d468 [0x00]: C0x0074.0x1.0
0x22d2d4…22d468 ]
0x22d2d4…22d468 }
0x22d468…22d5fc Dummy {f00=0x0074, f01=0x0190, f02=» 0 P IDENT DVTDI REL 10.0 80-03-14 870105041000 P 8 P =1,HANG UP AT /03 OUTPUT @ P REL 9.1 79-05-23 d P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVTDI DISPLAY INDICATOR 03 P* P*
0x22d5fc…22d790 Dummy {f00=0x0074, f01=0x0190, f02=»METER x 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS B P DATA DWTEND-DVTDI ORDER ^ ( P DATA DIAD POINTER TO ADDRESS-BLOCK ~ 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x22d790…22d924 Dummy {f00=0x0074, f01=0x415e, f02=» | P DATA /2010 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS 6 P DATA 0 TIMER POINTER d P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DATA 0,
0x22d924…22dab8 Dummy {f00=0x0074, 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
0x22dab8…22dc4c Dummy {f00=0x0074, f01=0x0190, f02=»A2 # P CM MTTIM INDICATE NO TIMER $ P RB ENDIO8 $ . P EJECT DRMT01 $ @ P $ X P* $ ` * P* SBOW SEARCH BOT AND WAIT FOR REWIND $ j P* $ P* ENTRY: $ P* $ P* A6: DWT ADDRESS $ P* $ P* EXIT: $ P* $ P* A1: STATUS
0x22dc4c…22dde0 Dummy {f00=0x0074, f01=0x0190, f02=» * PSBOW LDKL A1,-MTRTOT-1 SET UP TIME OUT % P ST A1,MTCTR % 2 P % F PSBOW10 CF A5,SBOT SEARCH BOT % N P SLC A1,2 CHECK IF READY % r " P RF(N) SBOW30 STILL REWINDING % P % PSBOW20 SRC A1,2 % P RTN A5 RETURN % P % & PSBOW30 IM MTCTR CH
0x22dde0…22df74 (5, 238) Opaque[0x194]
0x22df74…22e108 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e90, f03=0x0000}
0x22df74…22e108 IdxSect {
0x22df74…22e108 f00 = 0x0074 // 0x22df74 @0x0
0x22df74…22e108 f01 = 0x0002 // 0x22df76 @0x2
0x22df74…22e108 gno = [ // 0x22df78 @0x4
0x22df74…22e108 [0x00]: C0x0074.0x2.0
0x22df74…22e108 ]
0x22df74…22e108 }
0x22e108…22e29c Dummy {f00=0x0074, f01=0x0190, f02=» 0 P IDENT DVTDY REL 10.0 80-03-14 870105041000 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x22e29c…22e430 Dummy {f00=0x0074, 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
0x22e430…22e5c4 Dummy {f00=0x0074, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x22e5c4…22e758 Dummy {f00=0x0074, 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
0x22e758…22e8ec Dummy {f00=0x0074, f01=0x0190, f02=»DDRESS TO CHANNEL STATUS 3 P* A6: DWT ADDRESS 4 P* 4 : P* EXIT: 4 D P* 4 T P* A1: STATUS AFTER RECOVERY 4 ^ $ P* A2: ADDRESS TO CHANNEL STATUS 4 P* A6: DWT ADDRESS 4 P* 4 P 4 P 4 & PMTRC LDR A7,A2 CALC CHANNEL NUMBER 4 P
0x22e8ec…22ea80 Dummy {f00=0x0074, f01=0x0190, f02=» 4 t P CF A5,ONLI 5 P LDR* A3,A2 GET SEQ COUNTER 5 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 5 @ 8 P LDK A7,MTRBLK REVERSE TAPE TO AVOID ANY OLD BLOCKS 5 j PMTRC05 CF A5,SKPR 5 P SUK A7,1 5 P RB(NZ) MTRC05 5 P 5 * PMTRC10 CF A5,RSQN READ S
0x22ea80…22ec14 (5, 239) Opaque[0x194]
0x22ec14…22eda8 # DirEnt {nam=»DVTT1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e98, f03=0x0000}
0x22ec14…22eda8 IdxSect {
0x22ec14…22eda8 f00 = 0x0074 // 0x22ec14 @0x0
0x22ec14…22eda8 f01 = 0x0002 // 0x22ec16 @0x2
0x22ec14…22eda8 gno = [ // 0x22ec18 @0x4
0x22ec14…22eda8 [0x00]: C0x0074.0x3.0
0x22ec14…22eda8 ]
0x22ec14…22eda8 }
0x22eda8…22ef3c Dummy {f00=0x0074, f01=0x0190, f02=» 0 P IDENT DVTT1 REL 10.0 80-03-14 870105041000 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.
0x22ef3c…22f0d0 Dummy {f00=0x0074, 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
0x22f0d0…22f264 Dummy {f00=0x0074, f01=0x018e, f02=» DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER P DATA 0 PRINTER PARAMETERS : 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,0 DOCUME
0x22f264…22f3f8 Dummy {f00=0x0074, f01=0x4018, f02=» P END @ P DATA 0 TIMER POINTER P DATA 0 PRINTER PARAMETERS : 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,0 DOCUME
0x22f3f8…22f58c Dummy {f00=0x0074, 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
0x22f58c…22f720 Dummy {f00=0x0074, f01=0x0190, f02=»* ORDER 24 : SET PRINTER PARAMETERS , P* CONTROL WORD CONTAINS: - . B P* BIT 0 : INDICATE CHANGE OF CH FONT AND NCV =4 - P F P* BIT 01-03 : CHARACTER FONT =4 - F P* BIT 04-07 : NATIONAL CHARACTER VARIA
0x22f720…22f8b4 (5, 240) Opaque[0x194]
0x22f8b4…22fa48 # DirEnt {nam=»DTTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ec0, f03=0x0000}
0x22f8b4…22fa48 IdxSect {
0x22f8b4…22fa48 f00 = 0x0076 // 0x22f8b4 @0x0
0x22f8b4…22fa48 f01 = 0x0006 // 0x22f8b6 @0x2
0x22f8b4…22fa48 gno = [ // 0x22f8b8 @0x4
0x22f8b4…22fa48 [0x00]: C0x0076.0x0.0
0x22f8b4…22fa48 [0x01]: C0x0076.0x1.0
0x22f8b4…22fa48 [0x02]: C0x0076.0x2.0
0x22f8b4…22fa48 ]
0x22f8b4…22fa48 }
0x22fa48…22fbdc Dummy {f00=0x0076, f01=0x0190, f02=» 2 P IDENT DTTP03 REL 10.0 80-03-14 870105041000 P : P* B < P******************************************************* L < P* * < P* PHILIPS TERMINAL SYSTEM PTS *
0x22fbdc…22fd70 Dummy {f00=0x0076, f01=0x018e, f02=» * < P* * < < P* * | < P******************************************************* P* @ P*
0x22fd70…22ff04 Dummy {f00=0x0076, 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*
0x22ff04…230098 Dummy {f00=0x0076, f01=0x018e, f02=»IVER SPECIFICATION TSB 429/78. P EJECT & P 4 P < P D N P* PARAMETERS LIMITS UNITS APPL. FOR DT STD. A4 L P* J P* 1 DT=DOCUMENT TYPE 0-3 - 0 1 2 3 1 J P* 2 TO=TIME OUT
0x230098…23022c Dummy {f00=0x0076, f01=0x0190, f02=» J P* 4 NL=NUMBER OF LINES 1-99 - X X X X 68 J P* 5 BL=BOTTOM LINE 14-99 1/60" X X X X 17 R J P* 6 MA=MARGIN 1-80 1/10" X X X X 2 J P* 7 MF=MARGIN FINE
0x23022c…2303c0 Dummy {f00=0x0076, f01=0x0190, f02=» CM=CRITICAL MARGIN 0,1 - X X X X 0 J P* 10 HP=HIGH PRINT PRESS 0,1 - X X X X 0 H J P* 11 UE=UPPER EDGE 15-82 1/5" X 58 J P* UE=UPPER EDGE 15-82
0x2303c0…230554 (5, 241) Dummy {f00=0x0076, f01=0x0190, f02=»NT WITDH 40-97 1/10" X - J P* UL=UPPER LINES 1-40 - X - > J P* 14 CW=CENTER WITDH 0-99 1/60" X X - P EJECT P P P * P ENTRY D
0x230554…2306e8 Dummy {f00=0x0076, f01=0x0190, f02=»F USED h . P* DOCUMENT TABLES CAN BE CHANGED (1-16) P @ $ PNOFDOC EQU 1 NUMBER OF DOCUMENTS H P p * PDN EQU NOFDOC-1 NUMBEROF EXTRA TABLES x 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,6,10,11,12,13
0x2306e8…23087c Dummy {f00=0x0076, f01=0x0190, f02=»0 f P P IFF DN=0 P* DOCUMENT TABLE 1 $ P* @ P J 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 R P XIF P P IFF DN=0 P IFF DN=1 P* DOCUMENT TABLE 2 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,
0x23087c…230a10 Dummy {f00=0x0076, f01=0x018e, f02=» 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF < P H P IFF DN=0 P P IFF DN=1 b P IFF DN=2 t 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 P XIF P
0x230a10…230ba4 Dummy {f00=0x0076, f01=0x0190, f02=» 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 P XIF < P H P IFF DN=0 P P IFF DN=1 b P IFF DN=2 t P IFF DN=3 P IFF DN=4 P IFF DN=5 P* DOCUMENT TABLE 6 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,
0x230ba4…230d38 Dummy {f00=0x0076, f01=0x0190, f02=» DN=5 P IFF DN=6 P* DOCUMENT TABLE 7 P* < P F 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 N 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 DN=5 P IFF D
0x230d38…230ecc Dummy {f00=0x0076, f01=0x0190, f02=» P P IFF DN=0 P IFF DN=1 P IFF DN=2 0 P IFF DN=3 B P IFF DN=4 T P IFF DN=5 f P IFF DN=6 x P IFF DN=7 P IFF DN=8 P* DOCUMENT TABLE 9 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00
0x230ecc…231060 Dummy {f00=0x0076, f01=0x0190, f02=» IFF DN=6 P IFF DN=7 P IFF DN=8 $ P IFF DN=9 6 P* DOCUMENT TABLE 10 H P* f P p 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 x P XIF P P IFF DN=0 P IFF DN=1 P IFF DN=2 P IFF DN=3 P
0x231060…2311f4 (5, 242) Dummy {f00=0x0076, f01=0x0190, f02=»NT TABLE 11 P* P 0 P DOCPAR 1,0,10,68,17,02,2,0,0,0,58,00,00,00 & P XIF Z P f P IFF DN=0 n 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 P IFF DN=8
0x2311f4…231388 Dummy {f00=0x0076, f01=0x0190, f02=»0,0,0,58,00,00,00 v P XIF P & P IFF DN=0 . P IFF DN=1 @ P IFF DN=2 R P IFF DN=3 d P IFF DN=4 v 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 IFF DN=11 P I
0x231388…23151c Dummy {f00=0x0076, f01=0x0190, f02=» IFF DN=0 P IFF DN=1 P IFF DN=2 $ P IFF DN=3 6 P IFF DN=4 H P IFF DN=5 Z P IFF DN=6 l 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 P* DOCUMENT
0x23151c…2316b0 Dummy {f00=0x0076, f01=0x0190, f02=» P IFF DN=2 P IFF DN=3 P IFF DN=4 , P IFF DN=5 > P IFF DN=6 P P IFF DN=7 b P IFF DN=8 t 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* DOCUMENT TABLE 15
0x2316b0…231844 Dummy {f00=0x0076, f01=0x402a, f02=»OTAL TABLE LENGTH v P END @ & P IFF DN=4 , P IFF DN=5 > P IFF DN=6 P P IFF DN=7 b P IFF DN=8 t 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* DOCUMENT TABLE 15
0x231844…2319d8 Dummy {f00=0x0076, 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
0x2319d8…231b6c Dummy {f00=0x0076, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x231b6c…231d00 Dummy {f00=0x0076, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x231d00…231e94 (5, 243) Opaque[0x194]
0x231e94…232028 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12b0, f03=0x0000}
0x231e94…232028 IdxSect {
0x231e94…232028 f00 = 0x0095 // 0x231e94 @0x0
0x231e94…232028 f01 = 0x0010 // 0x231e96 @0x2
0x231e94…232028 gno = [ // 0x231e98 @0x4
0x231e94…232028 [0x00]: C0x0095.0x2.0
0x231e94…232028 [0x01]: C0x0095.0x3.0
0x231e94…232028 [0x02]: C0x0096.0x1.0
0x231e94…232028 [0x03]: C0x0096.0x3.0
0x231e94…232028 [0x04]: C0x0097.0x0.0
0x231e94…232028 [0x05]: C0x0097.0x1.0
0x231e94…232028 [0x06]: C0x0097.0x2.0
0x231e94…232028 [0x07]: C0x0097.0x3.0
0x231e94…232028 ]
0x231e94…232028 }
0x232028…2321bc Dummy {f00=0x0095, f01=0x018e, f02=» 2 P IDENT DRKB03 REL 10.0 80-03-14 870105041000 P : & P =1,CIRCULAR BUFFER SIZE CHANGED B P REL 9.1 79-05-23 l P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x2321bc…232350 Dummy {f00=0x0095, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, P , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS $ P* ARE HANDL
0x232350…2324e4 Dummy {f00=0x0095, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x2324e4…232678 Dummy {f00=0x0095, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x232678…23280c Dummy {f00=0x0095, f01=0x0190, f02=» A6 : DWT-ADDRESS P* A7 : ORDER " P* A8 : ECB-ADDRESS @ P* f P* p P* z P* SYSTEM ADAPTATION P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD
0x23280c…2329a0 Dummy {f00=0x0095, f01=0x0190, f02=» P* , P* IF TIMING IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. > 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS n 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $
0x2329a0…232b34 (5, 244) Dummy {f00=0x0095, f01=0x0190, f02=»D VALUE IS 7 CHARACTERS t 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM P EJECT x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P
0x232b34…232cc8 Dummy {f00=0x0095, f01=0x0190, f02=»IFT-FUNCTION | , P* -----KEYBOARD LOCK IF NO KEYLOCK ON P* D P* ENTRIES N P* b P* l P ENTRY KBAD3 ADDRESS-BLOCK v P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P* P* P* $ P EXTRN DIS
0x232cc8…232e5c Dummy {f00=0x0095, f01=0x018e, f02=»TRY v 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER @ , P EXTRN LDREGE RETURN FROM ECHOE HANDLING x P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P E
0x232e5c…232ff0 Dummy {f00=0x0095, f01=0x0190, f02=» r P* P* P* P* DWT PARAMETERS & P* B P* L P* V " P EXTRN DWTCHP CHANEL PARAMETER ` P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3
0x232ff0…233184 Dummy {f00=0x0095, f01=0x018e, f02=» DEVICE DWT ~ P EXTRN DWTTP TIMER POINTER P EXTRN DWTWAT SAVE INPUT DWT 6 P EJECT Z P* h P* r P* | P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:F EQU 8 LENGTH OF
0x233184…233318 Dummy {f00=0x0095, f01=0x0190, f02=» P* " PTIME EQU 300 TIME OUT CONSTANT P* 4 P EJECT > P* L P* V , P**************************************** ` , P* CONDITIONAL ASSEMBLY * , P**************************************** P* . P* TIME OUT
0x233318…2334ac Dummy {f00=0x0095, f01=0x0190, f02=»NCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. " P* @ PX:B EQU 1 J PCECHO EQU 1 P* p > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION z & P* IS INCLUDED IN THE DRIVER. < P* IF THERE IS A READ REQUEST
0x2334ac…233640 Dummy {f00=0x0095, f01=0x0190, f02=»T V @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB N P* d P* n PX:E EQU 0 x PPOWOFF EQU 0 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
0x233640…2337d4 (5, 245) Dummy {f00=0x0096, f01=0x0190, f02=»I EQU 0 PKBLOCK EQU 1 P* $ P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x2337d4…233968 Dummy {f00=0x0096, f01=0x0190, f02=» PX:J EQU 10 PDVBLEN EQU 080 P* 0 P* : P* MMU KEY TABLE SIZE D P* b P* l PX:K EQU 10 v PDVBKTB EQU 50 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /
0x233968…233afc Dummy {f00=0x0096, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * * PDWTCON EQU START+/00 CONVERSION TABLE 4 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE b 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTE
0x233afc…233c90 Dummy {f00=0x0096, f01=0x0190, f02=»ART+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER $ . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER P PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P
0x233c90…233e24 Dummy {f00=0x0096, f01=0x0190, f02=»A 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER " P IFT POWOFF=1 F P DATA RCKB RECOVERY ROUTINE P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT P* RCKB
0x233e24…233fb8 Dummy {f00=0x0096, f01=0x0190, f02=» P XIF P* P IFT POWOFF=1 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF
0x233fb8…23414c Dummy {f00=0x0096, f01=0x0190, f02=» ACKB P* : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND P* V @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER ` P* P* TO THREAT P* P* P* P* PACKB EQU * P LDKL A1
0x23414c…2342e0 Dummy {f00=0x0096, f01=0x0190, f02=» P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 ( P RF(N) AKB200 ORDER 1,2 OR 3 : P SUK A4,/2D ^ P RF(Z) AKB110 ORDER 31 r * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P* P* & P* ORD
0x2342e0…234474 (5, 246) Dummy {f00=0x0096, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDIO P* 2 P EJECT < P* J P* T P* ORDER 1,2,3 ^ P* x P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO
0x234474…234608 Dummy {f00=0x0096, f01=0x0190, f02=»F(E) AKB205 P CM 10,A8 INDICATE POWER OFF P RF AKB218 8 P XIF J PAKB205 EQU * V P IFT CTIMUT=1 j P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING
0x234608…23479c Dummy {f00=0x0096, f01=0x0190, f02=»OINTER z P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 0 P CF A15,SETIMP SET TIME B 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME b . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF ANY KEY-LOCK:
0x23479c…234930 Dummy {f00=0x0096, f01=0x0190, f02=» IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. > P* h P* r PAKB210 EQU * | " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A
0x234930…234ac4 Dummy {f00=0x0096, f01=0x0190, f02=»B212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 0 P SLL A4,4 B P AN A4,DWTST,A6 T P STR A4,A15 SAVE A4 l P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AKB213 P A
0x234ac4…234c58 Dummy {f00=0x0096, f01=0x0190, f02=»15 RESTORE A4 P CWK A7,1 $ P RF(E) AKB307 JUMP IF BASIC READ ( " PAKB214 NGR A2,A1 MAKE ECB CODE P P LDR A4,A4 KEY FLAG v P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL AKB380 ( PAKB2
0x234c58…234dec Dummy {f00=0x0096, f01=0x0190, f02=»A1,2,A8 BUFFER ADDRESS P SUK A1,1 P ADR A1,A2 0 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER B P SUK A1,1 l P SUK A2,1 ~ P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF
0x234dec…234f80 Dummy {f00=0x0096, f01=0x018e, f02=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 2 " P CF A5,STREG NOTHING IN QUEUE J P IFT CTIMUT=1 p * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT P XIF
0x234f80…235114 (5, 247) Dummy {f00=0x0097, f01=0x0190, f02=» l PAKB257 EQU * P LDR A4,A7 P SUK A4,2 . P RF(NN) AKB310 ORDER 2 OR 3 @ P EJECT d P* r P* | P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO
0x235114…2352a8 Dummy {f00=0x0097, f01=0x0190, f02=» KEYS? | P ANK A2,/F P RB(NZ) AKB210 P RB AKB225 6 P EJECT H P* V P* ` P* j 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ t P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) P* P*
0x2352a8…23543c Dummy {f00=0x0097, f01=0x0190, f02=»ABLE LENGTH IN A4 P ANK A4,/FF & P ADR A1,A4 LAST PLACE IN KEY-TABLE . P ADK A1,1 X PAKB355 SUK A4,1 j , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1
0x23543c…2355d0 Dummy {f00=0x0097, f01=0x0190, f02=»OR-CHARACTER z " P CF A5,ECHO ECHO EOR-CHARACTER ! P XIF ! : P RF AKB380 ! F PAKB360 EQU * ! X P LDR A4,A2 ! l P CC A4,KBMZ2,A6 ! ~ P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P
0x2355d0…235764 Dummy {f00=0x0097, f01=0x018e, f02=»ED CHARACTER ! x P RF(N) AKB364 LESS THAN /20 " P SUK A4,/5F CHARACTER > /7F " 8 P RF(P) AKB364 YES " P CWK A7,2 " v $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ
0x235764…2358f8 Dummy {f00=0x0097, f01=0x018e, f02=» " P XIF # P CW A3,4,A8 LENGTH OVERFLOW? # " PAKB367 ABL(L) AKB210 NO RETURN # 8 & PAKB368 LDK A1,8 YES SET ERROR CODE # ^ P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DO
0x2358f8…235a8c Dummy {f00=0x0097, f01=0x018e, f02=» # P IFT CECHO=1 $ P CF A5,ECHO $ P XIF $ 0 P CW A3,4,A8 $ < P RB(L) KBMZ25 $ P PKBMZ27 EQU * $ f P SUK A4,1 ANY MORE ZEROES $ z $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6
0x235a8c…235c20 Dummy {f00=0x0097, f01=0x0190, f02=» P SUK A1,1 % P RF KBMZ40 % 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % ( P SUK A1,1 % ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % p P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STOR
0x235c20…235db4 (5, 248) Dummy {f00=0x0097, f01=0x0190, f02=» P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & ( P LDK A1,/A SET RETURN CODE FOR BOTH & > . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & j P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18 & P RB AKB366 &
0x235db4…235f48 Dummy {f00=0x0097, f01=0x0190, f02=»AR IN ECB-BUFFER & x P CF A15,STORE ' P SUK A3,1 ' . PKBSP15 LDK A2,/8 ' @ P RB AKB366 ' X P* ' j P* ' t PAKB380 LDK A1,0 RETURN CODE ' ~ P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET E
0x235f48…2360dc Dummy {f00=0x0097, f01=0x0190, f02=»NH ' P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( 8 P CM* DWTTP,A6 RESET TIMER ( f P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* ( P IFT CEC
0x2360dc…236270 Dummy {f00=0x0097, f01=0x0190, f02=» ( P* ) P EJECT ) P* ) P* ) * P* ) 4 P* IHKB ) > P* ) P P* ) Z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) d P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT
0x236270…236404 Dummy {f00=0x0097, f01=0x0190, f02=»D A3,DWTST,A6 NORMAL CHAR ) P IFT KBLOCK=1 * " P ANK A3,/FF * 8 P RF(Z) EXIT * L P LD A3,DWTST,A6 I/O REQUEST? * ` P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15 NO, STORE CHARACTER I
0x236404…236598 Dummy {f00=0x0097, f01=0x0190, f02=»IME * x P ST* A3,DWTTP,A6 + P XIF + $ , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + 0 , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + ` P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P
0x236598…23672c Dummy {f00=0x0097, f01=0x0190, f02=»A6 + P ABL AKB210 , P , PIHKB15 LD A1,DWTINQ,A6 , & P LCR A4,A1 , D " P XRK A4,/FF ALREADY OVERFLOW? , V P RF(E) EXIT YES , | P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ)
0x23672c…2368c0 Dummy {f00=0x0097, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x2368c0…236a54 (5, 249) Dummy {f00=0x0097, f01=0x0190, f02=»ATCH IF NO REQUEST ON - , P RB IHKB07 RESTORE REGISTER AND END I/O . P XIF . N P EJECT . Z P* . h P* . r P* . | P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . P* . @ P* ON EXI
0x236a54…236be8 Dummy {f00=0x0097, f01=0x0190, f02=» P LDKL A2,/100 / PSET100 SRL A2,1 / P ADK A4,2 IN A4: 1=OFF 0=ON / 2 P RB(N) SET100 / V $ P ANR A3,A2 CHEC OLD KEY POSITION / l " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 /
0x236be8…236d7c Dummy {f00=0x0097, f01=0x0190, f02=»DK A3,1 A3=1 IF KEY LOCK HAS CHANGED / PSET500 LDR* A4,A15 0 , P RTN A15 0 F P EJECT 0 V P* 0 d P* 0 n P* 0 x P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0
0x236d7c…236f10 Dummy {f00=0x0097, f01=0x0190, f02=»RL,SHIFT 0 P $ P* A5 IS DESTROYED! 1 P* 1 8 P* 1 B PKONVER EQU * 1 L P LDR A4,A2 1 ` P IFT NSHIFT=0 1 r P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARAC
0x236f10…2370a4 Dummy {f00=0x0097, f01=0x0190, f02=»N) KON180 ALFANUMERIC 1 P SUK A4,/10 FUNCTION 2 P RF(NN) KON110 NO 2 : P SUK A2,/40 YES 2 T PKON105 EQU * 2 l P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-LOCK 2 P RF(
0x2370a4…237238 Dummy {f00=0x0097, f01=0x0190, f02=»4,2 2 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 . " P RF KON160 NUMERICAL SHIFT OFF 3 V P XIF 3 | PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P R
0x237238…2373cc Dummy {f00=0x0097, f01=0x0190, f02=» P LDK A2,/90 4 P RF KON150 4 P XIF 4 * PKON145 EQU * 4 6 P LDK A2,/10 SHIFT 4 J PKON150 ORR A5,A2 4 d P RB KON130 4 | PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4
0x2373cc…237560 Dummy {f00=0x0097, f01=0x0190, f02=» P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 P ANK A5,/30 5 : P SRL A5,3 5 N P ADK A5,4 5 ` 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 r P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15
0x237560…2376f4 (5, 250) Dummy {f00=0x0097, f01=0x018e, f02=»15 5 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 P RB KON300 6 B P IFT NSHIFT=0 6 T PKON500 EQU * 6 j P LDR A4,A4 KEY CODE /7C 6 ~ P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 P RTN A15 6 PKON600 EQU * 6 P S
0x2376f4…237888 Dummy {f00=0x0097, f01=0x0190, f02=» 6 ^ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 P* 7 B P* ON ENTRY: 7 L P* 7 b P* A2 = CHARACTER TO STORE 7 l P* A3 = BUFFER INDEX 7 P* 7 P* 7 PSTORE EQU * 7 P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD B
0x237888…237a1c Dummy {f00=0x0097, f01=0x018e, f02=»P,A15 7 P EJECT 8 P* 8 P* 8 & 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 0 P* 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x237a1c…237bb0 Dummy {f00=0x0097, f01=0x406c, f02=» * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 PEOQU10 ADR A1,A6 9 2 P RB STORTN 9 J P END 9 @ 9 h 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x237bb0…237d44 Dummy {f00=0x0097, f01=0x2008, f02=» : WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x237d44…237ed8 Dummy {f00=0x0097, f01=0x0190, f02=» MMUPAG=1 J P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K & P XIF K N P* K Z P IFF TOSS+IBM=0 K d 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K | P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* R
0x237ed8…23806c Dummy {f00=0x0097, f01=0x0190, f02=» SC A4,DWTA3+1,A6 SAVE IT K P CF A5,SETCIO L " P LDK A2,/14 L 8 P CF A5,FD:REA LOCK L L P ANK A3,1 L f P RF(Z) FDON19 OPERABLE L x P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P*
0x23806c…238200 Dummy {f00=0x0097, f01=0x0190, f02=» PFDON21 EQU * M P LDK A2,/C M P CF A5,FD:REA UNLOCK M * P LDK A3,0 M F , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M X P SUK A3,1 M P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6
0x238200…238394 (5, 251) Opaque[0x194]
0x238394…238528 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ea0, f03=0x0000}
0x238394…238528 IdxSect {
0x238394…238528 f00 = 0x0075 // 0x238394 @0x0
0x238394…238528 f01 = 0x000e // 0x238396 @0x2
0x238394…238528 gno = [ // 0x238398 @0x4
0x238394…238528 [0x00]: C0x0075.0x0.0
0x238394…238528 [0x01]: C0x0075.0x1.0
0x238394…238528 [0x02]: C0x0075.0x2.0
0x238394…238528 [0x03]: C0x0075.0x3.0
0x238394…238528 [0x04]: C0x0077.0x0.0
0x238394…238528 [0x05]: C0x0077.0x1.0
0x238394…238528 [0x06]: C0x0077.0x2.0
0x238394…238528 ]
0x238394…238528 }
0x238528…2386bc Dummy {f00=0x0075, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x2386bc…238850 Dummy {f00=0x0075, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x238850…2389e4 Dummy {f00=0x0075, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x2389e4…238b78 Dummy {f00=0x0075, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x238b78…238d0c Dummy {f00=0x0075, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x238d0c…238ea0 Dummy {f00=0x0075, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x238ea0…239034 (5, 252) Dummy {f00=0x0075, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x239034…2391c8 Dummy {f00=0x0075, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x2391c8…23935c Dummy {f00=0x0075, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x23935c…2394f0 Dummy {f00=0x0075, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x2394f0…239684 Dummy {f00=0x0075, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x239684…239818 Dummy {f00=0x0075, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 1 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x239818…2399ac Dummy {f00=0x0075, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x2399ac…239b40 Dummy {f00=0x0075, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x239b40…239cd4 (5, 253) Dummy {f00=0x0075, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 0 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x239cd4…239e68 Dummy {f00=0x0075, f01=0x0190, f02=» d P* PCPU852 EQU 0 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 123 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x239e68…239ffc Dummy {f00=0x0075, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x239ffc…23a190 Dummy {f00=0x0075, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x23a190…23a324 Dummy {f00=0x0075, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x23a324…23a4b8 Dummy {f00=0x0075, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x23a4b8…23a64c Dummy {f00=0x0075, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x23a64c…23a7e0 Dummy {f00=0x0075, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x23a7e0…23a974 (5, 254) Dummy {f00=0x0075, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x23a974…23ab08 Dummy {f00=0x0075, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x23ab08…23ac9c Dummy {f00=0x0075, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x23ac9c…23ae30 Dummy {f00=0x0075, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x23ae30…23afc4 Dummy {f00=0x0075, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x23afc4…23b158 Dummy {f00=0x0075, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x23b158…23b2ec Dummy {f00=0x0075, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x23b2ec…23b480 Dummy {f00=0x0075, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x23b480…23b614 (5, 255) Dummy {f00=0x0077, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x23b614…23b7a8 Dummy {f00=0x0077, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x23b7a8…23b93c Dummy {f00=0x0077, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x23b93c…23bad0 Dummy {f00=0x0077, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x23bad0…23bc64 Dummy {f00=0x0077, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x23bc64…23bdf8 Dummy {f00=0x0077, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x23bdf8…23bf8c Dummy {f00=0x0077, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x23bf8c…23c120 Dummy {f00=0x0077, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x23c120…23c2b4 (5, 256) Dummy {f00=0x0077, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x23c2b4…23c448 Dummy {f00=0x0077, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x23c448…23c5dc Dummy {f00=0x0077, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x23c5dc…23c770 Dummy {f00=0x0077, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x23c770…23c904 Dummy {f00=0x0077, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x23c904…23ca98 Dummy {f00=0x0077, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x23ca98…23cc2c Dummy {f00=0x0077, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x23cc2c…23cdc0 Dummy {f00=0x0077, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x23cdc0…23cf54 (5, 257) Dummy {f00=0x0077, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x23cf54…23d0e8 Dummy {f00=0x0077, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x23d0e8…23d27c Dummy {f00=0x0077, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x23d27c…23d410 Dummy {f00=0x0077, f01=0x0190, f02=»RACTER,POS IF CTRL,SHIFT 0 ` $ P* A5 IS DESTROYED! 1 P* 1 H P* 1 R PKONVER EQU * 1 P LDR A4,A2 1 p P IFT NSHIFT=0 1 P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,
0x23d410…23d5a4 Dummy {f00=0x0077, f01=0x0190, f02=»/40 1 P RF(N) KON180 ALFANUMERIC 2 P SUK A4,/10 FUNCTION 2 . P RF(NN) KON110 NO 2 J P SUK A2,/40 YES 2 d PKON105 EQU * 2 | P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-
0x23d5a4…23d738 Dummy {f00=0x0077, f01=0x0190, f02=»1 2 P SUK A4,2 3 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 > " P RF KON160 NUMERICAL SHIFT OFF 3 f P XIF 3 PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A
0x23d738…23d8cc Dummy {f00=0x0077, f01=0x0190, f02=»SHIFT NOT ON 3 P LDK A2,/90 4 P RF KON150 4 ( P XIF 4 : PKON145 EQU * 4 F P LDK A2,/10 SHIFT 4 Z PKON150 ORR A5,A2 4 t P RB KON130 4 PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDK
0x23d8cc…23da60 Dummy {f00=0x0077, f01=0x0190, f02=» A2,/20 CTRL 4 P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 & P ANK A5,/30 5 J P SRL A5,3 5 ^ P ADK A5,4 5 p 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5
0x23da60…23dbf4 (5, 258) Opaque[0x194]
0x23dbf4…23dd88 # DirEnt {nam=»DRDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef8, f03=0x0000}
0x23dbf4…23dd88 IdxSect {
0x23dbf4…23dd88 f00 = 0x0077 // 0x23dbf4 @0x0
0x23dbf4…23dd88 f01 = 0x0008 // 0x23dbf6 @0x2
0x23dbf4…23dd88 gno = [ // 0x23dbf8 @0x4
0x23dbf4…23dd88 [0x00]: C0x0077.0x3.0
0x23dbf4…23dd88 [0x01]: C0x0078.0x0.0
0x23dbf4…23dd88 [0x02]: C0x0078.0x1.0
0x23dbf4…23dd88 [0x03]: C0x0078.0x2.0
0x23dbf4…23dd88 ]
0x23dbf4…23dd88 }
0x23dd88…23df1c Dummy {f00=0x0077, f01=0x0190, f02=» 2 P IDENT DRDI01 REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY P*
0x23df1c…23e0b0 Dummy {f00=0x0077, f01=0x0190, f02=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 B " P* 6233, 6236 AND 633, 62361. P* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* 4 P* TH
0x23e0b0…23e244 Dummy {f00=0x0077, f01=0x0190, f02=»LER t P* " P* R C D I : RECOVERY ROUTINE P* < * P* THE FOLLOWING ORDERS ARE TREATED: F P* t " P* ORDER 05: WRITE LIGHTS ON ~ " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM DISPLAY , P* 39:
0x23e244…23e3d8 Dummy {f00=0x0077, f01=0x0190, f02=» t P* A2: OUTPUT " P* A3: WORK REGISTER ( " P* A4: WORK REGISTER N " P* A5: WORK REGISTER t P* A6: DWT-ADDRESS P* A7: ORDER P* A8: ECB-ADDRESS P*
0x23e3d8…23e56c Dummy {f00=0x0077, f01=0x0190, f02=» 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6232,6331,6236 , , P* BIT 11 = 0 FOR PTS 6241,6242,6233 P* : P* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL ASSEMBLY P* P EJECT
0x23e56c…23e700 Dummy {f00=0x0077, f01=0x0190, f02=»-BLOCK r P* P******************* P* EXTERNALS * 4 P******************* P P* l P EXTRN SAVE8 SAVE REGS v P EXTRN TENDIO END I/O . P EXTRN DISEND PERFORM END I/O AND DISPATCH * P EXTRN TDISP DISPATCHER ORDINARY INT
0x23e700…23e894 (5, 259) Dummy {f00=0x0078, f01=0x0190, f02=» STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS 2 P* T P EXTRN SETIMP SET TIMER ^ P* ~ P* P EJECT P* P* P*************** P* TABLES * P*************** P* P*
0x23e894…23ea28 Dummy {f00=0x0078, f01=0x0190, f02=»DRIVER z " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHDI INTERRUPT HANDLER 4 P DATA RCDI RECOVERY ROUTINE X P* | " PCCERR EQU /4 CODE CHECK ERROR P* P EJECT P* P* P************************* P* CONDITIONAL
0x23ea28…23ebbc Dummy {f00=0x0078, f01=0x0190, f02=»* SETTING X:A=0 P* PX:A EQU 0 $ PORD7 EQU 1 6 P* H P* R 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS P* BY SETTING CREDIT = 1 0 P* ORDERS 05,06AND 07 ARE THEN REPLACED BY P* ORDERS 37,38 AND 06
0x23ebbc…23ed50 Dummy {f00=0x0078, f01=0x0190, f02=»Y SETTING X:B=1 | P* PX:B EQU 0 " PFLASH EQU 1 4 P* H P* R . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING
0x23ed50…23eee4 Dummy {f00=0x0078, f01=0x018e, f02=»* P* P* MMU BUFFER SIZE P* 0 PX:C EQU 4 : PDVBLEN EQU X:C L P* b P* l P********************* v P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFIN
0x23eee4…23f078 Dummy {f00=0x0078, f01=0x0190, f02=» | P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE D & PDWTTP EQU START+/0A TIMER POINTER z PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P* AC
0x23f078…23f20c Dummy {f00=0x0078, f01=0x0190, f02=»EDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 $ P XIF D P IFT ORD7+CREDIT=2 P P CCK A7,/0606 j P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO C
0x23f20c…23f3a0 Dummy {f00=0x0078, f01=0x0190, f02=» P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * < P IFT FLASH=1 P P CCK A7,/3939 d P RF(E) FLA05 z P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P RF(
0x23f3a0…23f534 (5, 260) Dummy {f00=0x0078, f01=0x0190, f02=»* P* P IFT FLASH=1 P* ( P* FLASH ORDER /39 2 P* R P* , PFLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE f & P LD A1,DWTTP,A6 GET TIMER POINTER ( P RF(NZ) FLA10 TIMER ALREADY STARTED P LDK A4,DWTTP START TIMER
0x23f534…23f6c8 Dummy {f00=0x0078, f01=0x0190, f02=»NRS A4,A6 CHECK ON-OFF INDICATOR PFLA10 EQU * ( P LD A4,DWTFLA,A6 < & P LDR* A2,A6 CHECK ON-OFF INDICATOR T P ANK A2,/40 ~ * P RF(Z) FLA20 WRITE FLASHING LIGHTS OFF P ORS A4,DWTDIB,A6 ON + FLASH P RF ADI030 TURN ON LAMPS PFLA2
0x23f6c8…23f85c Dummy {f00=0x0078, f01=0x0190, f02=»A1 P LD A4,DWTFLA,A6 < P RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER " P LDKL A1,-TIME RESTART TIMER b P ST* A1,DWTTP,A6 P LDK A4,/40 " P XRRS A4,A6 SWITCH 0N-OFF FLAG P RB FLA10 PFLA30 CM DWTTP,A6 P RF
0x23f85c…23f9f0 Dummy {f00=0x0078, f01=0x0190, f02=» A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER P IFT FLASH=1 . 0 P ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE B P XIF v P RF ADI030 P* P* P EJECT P* P* P* ORDER 05: TURN ON LAMPS P* P* P*
0x23f9f0…23fb84 Dummy {f00=0x0078, f01=0x0190, f02=»AGE h P XIF . PADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER PADI035 LDK A1,1 J 6 P SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER b P LDR* A3,A6 TWO OUTPUTS ? P ANK A3,/10 P RF(NZ) IHDI10 NO P RF IHDI20 YES P*
0x23fb84…23fd18 Dummy {f00=0x0078, f01=0x0190, f02=»0 & PADI060 CF A15,GETCHR GET CHARACTER P LDR A1,A1 LAST CHARACTER ? 4 P RF(Z) ADI070 YES X P LDR A4,A2 r P SRL A4,4 $ P SUK A4,3 UNDEFINED CHARACTER ? P RF(L) ADI100 YES P CWK A4,3 UNDEFINED ? P RF(G) ADI100 YES
0x23fd18…23feac Dummy {f00=0x0078, f01=0x0190, f02=» < PADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER P RF IHDI10 SEND CHARACTERS D P* f P* p P* CODE CHECK ERROR z P* ( PADI100 LDK A1,CCERR SET RETURN CODE P ORS A1,8,A8 IN ECB " P RB ADI060 GET NEXT CHARACTER
0x23feac…240040 Dummy {f00=0x0078, f01=0x0190, f02=»* PIHDI EQU * P LDR A1,A1 RETURN CODE P RF(NE) ENDIO YES END I/O : P LD A4,DWTST,A6 GET STATUS P ANK A4,/FF ~ P SUK A4,2 TWO CHARS. SENT P IFT ORD7=1 P RF(NZ) IHDI05 NO & P LDR* A3,A6 GET CHANNEL PARAMETER
0x240040…2401d4 (5, 261) Dummy {f00=0x0078, f01=0x018e, f02=»RFORM ENDIO | PIHDI10 LDKL A2,DWTDIB P ADR A2,A6 2 P LD A4,DWTST,A6 F P ANK A4,/FF ^ P ADR A2,A4 r P LCR A2,A2 GET CHARACTER P XIF P IFT ORD7=0 P RF(Z) ENDIO 2 PIHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER
0x2401d4…240368 Dummy {f00=0x0078, f01=0x0190, f02=» P ORK A2,/40 INDICATE BELL P* & . POUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER 0 & PIHDI20 CF A15,OUTLIN OUTPUT CHAR. b PEXIT ABL TDISP 2 PENDIO ABL DISEND PERFORM END I/O AND DISPATCH P* P EJECT P* P* R C D I
0x240368…2404fc Dummy {f00=0x0078, f01=0x018e, f02=»RMATION Z , P* OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & P CF A15,SAVE8 SAVE A1-A8 ON STACK | P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x2404fc…240690 Dummy {f00=0x0078, f01=0x4014, f02=» P @ OM PROGRAM DISPLAY IS ALSO RESTORED P* @ P* J PRCDI EQU * T P IFT CPU852=1 f & P CF A15,SAVE8 SAVE A1-A8 ON STACK | P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P*
0x240690…240824 Dummy {f00=0x0078, 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
0x240824…2409b8 Dummy {f00=0x0078, f01=0x0190, f02=»ORT ROUTINE ADDRESS P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE @ . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE d P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P*
0x2409b8…240b4c Dummy {f00=0x0078, f01=0x0190, f02=» X H P* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. T P* x > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER " P* FROM ECB-BUFFER P* F P* ORDER 06: STAND
0x240b4c…240ce0 Dummy {f00=0x0078, f01=0x018e, f02=» * P LDK A2,STX START OF MESSAGE P LDR A3,A7 =1 . P RF(Z) ACGP10 ORDER 0 =2 D P SUK A3,5 =1 d P RF(E) ACGP09 ORDER 5 =1 z P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1
0x240ce0…240e74 (5, 262) Opaque[0x194]
0x240e74…241008 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f18, f03=0x0000}
0x240e74…241008 IdxSect {
0x240e74…241008 f00 = 0x0078 // 0x240e74 @0x0
0x240e74…241008 f01 = 0x0018 // 0x240e76 @0x2
0x240e74…241008 gno = [ // 0x240e78 @0x4
0x240e74…241008 [0x00]: C0x0078.0x3.0
0x240e74…241008 [0x01]: C0x0079.0x1.0
0x240e74…241008 [0x02]: C0x0079.0x2.0
0x240e74…241008 [0x03]: C0x0079.0x3.0
0x240e74…241008 [0x04]: C0x007a.0x0.0
0x240e74…241008 [0x05]: C0x007a.0x1.0
0x240e74…241008 [0x06]: C0x007a.0x2.0
0x240e74…241008 [0x07]: C0x009c.0x1.0
0x240e74…241008 [0x08]: C0x009c.0x2.0
0x240e74…241008 [0x09]: C0x009c.0x3.0
0x240e74…241008 [0x0a]: C0x009d.0x0.0
0x240e74…241008 [0x0b]: C0x009d.0x1.0
0x240e74…241008 ]
0x240e74…241008 }
0x241008…24119c Dummy {f00=0x0078, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 10.0 80-03-14 870105041000 P : . P =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE B P PRR 10.0 79-12-07 t 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING P REL 10.1 79-10-19 P =5,ABORT ROUTINE P REL 1
0x24119c…241330 Dummy {f00=0x0078, f01=0x0190, f02=».1 79-04-06 , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 D . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 ` P PRR 9.1 79-01-12 P P* 6 P************************************************** P* $ P*
0x241330…2414c4 Dummy {f00=0x0078, f01=0x0190, f02=» P* P* 6 P************************************************** P* R P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS f @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 6 P* T
0x2414c4…241658 Dummy {f00=0x0078, f01=0x0190, f02=»HO-FUNCTIONS d : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE R ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P*
0x241658…2417ec Dummy {f00=0x0078, f01=0x018e, f02=»ERY ROUTINE x P* & P* E C H O D Y ECHO FUNCTIONS P* H P R P Z P b P* j * P* THE FOLLOWING ORDERS ARE TREATED: t P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE " P* 06: STANDARD
0x2417ec…241980 Dummy {f00=0x0078, f01=0x0190, f02=» P* NORMAL REGISTER USAGE P* & " P* REGISTER A1 = RETURN CODE 0 ( P* A2 = OUTPUT CHARACTER V $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6
0x241980…241b14 (5, 263) Dummy {f00=0x0079, f01=0x0190, f02=»* SYSTEM ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. ( P* h * P* --------------------------------- r P* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 * P* 0
0x241b14…241ca8 Dummy {f00=0x0079, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT 8 , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 p : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD
0x241ca8…241e3c Dummy {f00=0x0079, f01=0x0190, f02=»JECT P* P* P* P* * P*********** 4 P* ENTRIES * H P*********** P* p P* z P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* P* P*
0x241e3c…241fd0 Dummy {f00=0x0079, f01=0x0190, f02=»******************* z P* P* & $ P EXTRN DISIOE I/O REQUEST ERROR 0 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER X P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O .
0x241fd0…242164 Dummy {f00=0x0079, f01=0x0190, f02=» ECB-BUFFER p P EJECT P* " P************************ , P* DWT PARAMETERS * L P************************ l P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P* P EJECT P**
0x242164…2422f8 Dummy {f00=0x0079, f01=0x018e, f02=»RESS t " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP 2 & PLISTAR EQU /1E LOW INTENSITY START X & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME ( P
0x2422f8…24248c Dummy {f00=0x0079, f01=0x0190, f02=» z PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE , PETX EQU /03 LAST DUMMY N . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE l * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOLD FO
0x24248c…242620 Dummy {f00=0x0079, f01=0x0190, f02=»** ~ P* RETURN CODES * P******************** & P* B " PCCERR EQU /4 CODE CHECK ERROR L ( POPERR EQU /1 NOT OPERABLE, POWER OFF r P* P EJECT P* P* . P***************************************** . P* CONDITI
0x242620…2427b4 (5, 264) Dummy {f00=0x0079, f01=0x0190, f02=»VER CAN HANDLE GRAFIC MODE FOR PTS 6351 t P* 0 PX:A EQU 0 : PGRAFIC EQU 0 L P* ` < P* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 j P* PX:B EQU 1 PWHATDY EQU 0 P* P* 8 P* BY SETTING X:C TO 1 L
0x2427b4…242948 Dummy {f00=0x0079, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. : 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 v P* PX:D EQU 0 PEORECH EQU 0 P* 0 P* BY SETTING THE CONSTANT
0x242948…242adc Dummy {f00=0x0079, f01=0x0190, f02=» P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING R PX:F EQU 0 r PSTEADY EQU 0 P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 P*
0x242adc…242c70 Dummy {f00=0x0079, f01=0x0190, f02=»852 EQU 0. p P* PCPU852 EQU 0 P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : < P* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. v P P P* CODE COUNTRY P P* 0 GB/NL/B P* 1 D/A/L/CH
0x242c70…242e04 Dummy {f00=0x0079, f01=0x0190, f02=»0 PCOUNTRY EQU 6 P* & P* MEMORY MANAGEMENT BUFFER SIZE * P* T P* ^ PX:H EQU 64 h PDVBLEN EQU 162 z P* P EJECT P* P* $ P******************************** $ P* DWT-DISPLACEMENT *
0x242e04…242f98 Dummy {f00=0x0079, f01=0x0190, f02=»G=0 PSTART EQU DWTDRD P XIF $ P* 0 P IFT MMUPAG=1 : PSTART EQU DWTDRD+4 P P XIF j P* v . PDWTAP EQU START+/12 HEAD POSITION POINTER " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES & PDWTBIN EQU STA
0x242f98…24312c Dummy {f00=0x0079, f01=0x018e, f02=»* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX , PDYAD EQU * ADDRESS BLOCK H P DATA ACDY ACTIVATION DRIVER h $ P DATA ABDY ABORT ROUTINE ADDRESS P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE . P DATA ECHODY
0x24312c…2432c0 Dummy {f00=0x0079, f01=0x0190, f02=» P EJECT P* P* A C D Y P* 0 * P* ACDY = ACTIVATION DRIVER DISPLAY : P* h H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE r 2 P* IS SET IF DISPLAY NOT OPERABLE P* P* > P
0x2432c0…243454 (5, 265) Dummy {f00=0x0079, f01=0x0190, f02=» ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. H P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST O
0x243454…2435e8 Dummy {f00=0x0079, f01=0x0190, f02=»1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER P * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AND STANDARD W
0x2435e8…24377c Dummy {f00=0x0079, f01=0x0190, f02=» V @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. L P* p < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE z < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x24377c…243910 Dummy {f00=0x0079, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. 0 PACDY EQU * ^ P LDK A3,0 START BUFFER INDEX p P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MESSAGE P
0x243910…243aa4 Dummy {f00=0x0079, f01=0x0190, f02=»NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 < P XIF R P IFT WHATDY=0 ^ . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE t P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 ORDER 5
0x243aa4…243c38 Dummy {f00=0x0079, f01=0x0190, f02=» SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES " P* < & PDYERR ABL DISIOE I/O REQUEST ERROR F P EJECT p : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER ~ P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD
0x243c38…243dcc Dummy {f00=0x0079, f01=0x0190, f02=», LF z P* PACDY20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH * P RF(E) ACDY25 R P LDK A3,2 START BUFFER INDEX h " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU * * P SUK
0x243dcc…243f60 Dummy {f00=0x0079, f01=0x0190, f02=»ED v " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 0 ( P ADK A4,1 INDICATE DOUBLE LINE FEED F P r P z $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIA
0x243f60…2440f4 (5, 266) Dummy {f00=0x007a, f01=0x018e, f02=»F(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES ( P CC A1,DWTAP,A6 LAST LINE ? F P RF(L) ACDY55 j ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50 ( PACDY65 L
0x2440f4…244288 Dummy {f00=0x007a, f01=0x018e, f02=» & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) . P* P PACDY70 EQU * Z P IFT WHATDY=0 n & P LDR* A4,A6 GET CHANNEL PARAMETER P ANK A4,/10 $ P RF(NZ) ACDY75 NOT 6344 OR 6386 P XIF P LD A4,2,A8 2
0x244288…24441c Dummy {f00=0x007a, f01=0x0190, f02=» P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING P IFT TRASPA=1 T ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) j ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 P RF(NG
0x24441c…2445b0 Dummy {f00=0x007a, f01=0x0190, f02=»IP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! : P RF(NG) SKIP30 RL < 5 ! R P LC A4,-2,A1 GET CHAR ! p $ P CCK A4,/1111 TABULATION CHAR ? ! P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! P SUK A2,2 DECR RL ! P RB
0x2445b0…244744 Dummy {f00=0x007a, f01=0x0190, f02=»P07 YES! SKIP IT! ! P SUK A4,/C LOW INT. START? " P RB(Z) SKIP07 YES! " < P SUK A4,1 LOW INT. STOP? " V P RB(Z) SKIP07 YES! " v P* " " PSKIP30 ST A2,4,A8 STORE NEW RL " P XIF " PACDY90 LDK A4,0 " 6 PADY100 CF A15,GETCHR GET CHARACTER F
0x244744…2448d8 Dummy {f00=0x007a, f01=0x0190, f02=»/7F " P LDK A1,5 SET TABLE POINTER # " P CC A2,TABSPE,A1 FAST OUTPUT? # 0 P RF(E) ADY125 # V P SUK A1,1 NO! # l " P LDR* A7,A6 CHANNEL PARAMETER # P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PAD
0x2448d8…244a6c Dummy {f00=0x007a, f01=0x0190, f02=»4,/80 # , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE $ P LDK A4,0 $ > P RB ACDY50 $ P $ PADY122 CCK A2,/1212 UNDERLINE ? $ b P RF(NE) ADY125 $ " P LDK A4,/40 SET UNDERLINE MODE $ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A
0x244a6c…244c00 Dummy {f00=0x007a, f01=0x0190, f02=» LD A4,4,A8 REQ LENGTH $ P SUR A4,A3 NUMBER OF CHARS % P RF(Z) ADY127 NONE % @ P* % Z P IFT WHATDY=0 % d & P LDR* A7,A6 GET CHANNEL PARAMETER % z P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % P LDR A3,A1 NO!
0x244c00…244d94 (5, 267) Dummy {f00=0x007a, f01=0x0190, f02=» EQU * % P SUK A1,1 GET NEXT & P RB(NN) ADY110 NOT AT END & ( P LDR A1,A2 MOVE CHARACTER & J P SUK A1,/11 TAB CHAR? (11) & l P RF(E) ADY140 & P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & P SUK A1,/3F GREATER THAN /
0x244d94…244f28 Dummy {f00=0x007a, f01=0x0190, f02=»/40 TO /5F & x P XIF ' P RB ACDY70 ' P* ' 0 P* ' : P IFT WHATDY=0 ' D POTHER EQU * ' Z P************************ ' n P* A3 = INDEX ' P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' P LC A2,DWTBC,A6 ' P
0x244f28…2450bc Dummy {f00=0x007a, f01=0x0190, f02=» ANK A3,/FF ' P ST A4,10,A8 SAVE LENGTH ( P SUR A3,A2 COMPARE ( 4 P RF(NN) OT030 LENGTH OK ( N P ADR A4,A3 ( n P ST A4,10,A8 SAVE LENGTH ( 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( & P LDR A3,A1 SAVE CHARACTER TO SEN
0x2450bc…245250 Dummy {f00=0x007a, f01=0x0190, f02=»,10,A8 GET ACT. LENGTH ( POT040 LDK A2,BACKSP ) P CF A5,OUTPUT SENDBACKSPACE ) : P SUK A4,1 DECREMENT LENGTH ) ^ P RB(P) OT040 ) P RB ADY127 ) P XIF ) P EJECT ) P* ) P* CODE CHECK ERROR ) P* ) PADY130 EQU * ) P L
0x245250…2453e4 Dummy {f00=0x007a, f01=0x0190, f02=»QU * ) , P CF A15,GETCHR GET FIRST ASCII CHARACTER * P LDR A4,A2 * < . P CF A15,GETCHR GET SECOND ASCII CHARACTER * N P ANK A2,/F * P ANK A4,/F * P RF(E) ADY144 * 0 PADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL * P SUK A4,1 * P RB(NE)
0x2453e4…245578 Dummy {f00=0x007a, f01=0x0190, f02=»EQUESTS POSITION COUNTER * & P TO GET NUMBER OF SPACES TO SEND + P RB(NP) ADY100 + J P LDR A4,A2 + ` & PADY145 LDK A2,CURRIG CURSOR RIGHT + r PADY146 CF A5,OUTPUT + , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + P RB(NE
0x245578…24570c Dummy {f00=0x007a, f01=0x0190, f02=» CHAR TO ERASE + p P IFT WHATDY=0 , " P LDR* A1,A6 CHANNEL PARAMETER , , P ANK A1,/10 GRAFIC DISPLAY? , R P RF(NE) ADY166 YES =2 , v P XIF , & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , P CF A5,FASTER FAST OUTPUT , PADY165 L
0x24570c…2458a0 Dummy {f00=0x007a, f01=0x0190, f02=»ET LENGTH TO ERASE =2 , P* - $ PADY170 SUK A4,1 DECR NO OF CHAR - ( P RF(N) ADY180 ERASE READY - P P LDK A2,/20 SPACE - r P CF A5,OUTPUT SEND IT - P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - P LDR A3,
0x2458a0…245a34 (5, 268) Dummy {f00=0x007a, f01=0x0190, f02=» RB(N) ADY165 CURSOR IN ORIGIN POSITION - P LDK A2,BACKSP CURSOR LEFT . 0 P CF A5,OUTPUT SEND IT . R P RB ADY186 AGAIN . p P XIF . P EJECT . P* . * P* ORDER /B CURSOR POSITIONING PART . P* . PADY200 EQU * . P* . P IFT W
0x245a34…245bc8 Dummy {f00=0x007a, f01=0x0190, f02=» SET CURSOR ADDRESS DIRECT . | P XIF / " * P LD A4,10,A8 GET REQUESTED CURSOR POS / . . P ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER / P CF A5,CURPOS SET CURSOR / P RF ADY380 / P IFT WHATDY=0 / P* GET LINE / * PADY205 LC A4,10,A8 GET REQUE
0x245bc8…245d5c Dummy {f00=0x007a, f01=0x0190, f02=» PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 PADY210 CWR A4,A3 0 @ . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 0 X P RF(E) ADY300 SAME LINE 0 P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 PADY230 CF A5,OUTPUT
0x245d5c…245ef0 Dummy {f00=0x007a, f01=0x0190, f02=»ME HOME 0 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3,DWTAP,A6 RESET POSITION 1 : P RB ADY230 1 ` P* 1 r P* GET POSITION 1 | P* 1 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 $ P CC A4
0x245ef0…246084 Dummy {f00=0x007a, f01=0x0190, f02=»SITION ? 1 ~ P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ? 2 * P RF(NE) ADY305 NO 2 J P LDK A2,HOME CURSOR GO HOME 2 d P RF ADY330 2 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 2 P LDK A4,1 2 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2
0x246084…246218 Dummy {f00=0x007a, f01=0x0190, f02=» ADY370 POSITION FOUND 2 P RF(N) ADY340 BACK 3 P LDK A2,CURRIG CURSOR RIGHT 3 8 & P ADK A3,1 UPDATE POSITION COUNTER 3 PADY330 CF A5,OUTPUT SEND 3 P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS W
0x246218…2463ac Dummy {f00=0x007a, f01=0x0190, f02=»Y330 3 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT SEND 4 2 P SUK A3,1 LAST BACKSPACE ? 4 L P RB(NE) ADY345 4 n 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 P XIF 4 & PADY380 LDK A3,2 START BUFFER INDEX 4 P ABL ACDY90 4
0x2463ac…246540 Dummy {f00=0x007a, f01=0x0190, f02=» 4 P* 5 P* 5 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 5 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 5 X P* 5 PADY405 EQU * 5 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 P RF(NE) ADY407 NO 5
0x246540…2466d4 (5, 269) Dummy {f00=0x009c, f01=0x0190, f02=» P CF A5,OUTPUT 6 * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 6 P RF(E) ADY407 6 H & P LDK A2,LISTOP LOW INTENSITY STOP 6 ^ P CF A5,OUTPUT 6 PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 0 P CF A15,UP
0x2466d4…246868 Dummy {f00=0x009c, f01=0x018e, f02=»F(Z) ADY415 ORDER ERASE =7 6 * P LD A4,DWTAP,A6 GET CURSOR POSITION =4 7 " , P ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 7 P PADY415 EQU * 7 P ADK A7,/31-5 =7 7 ( P RF(NE) ADY420 NOT ORDER BASIC WRITE 7 P LDKL A4,/101 HOME POSITION 7 P ST A4,DWT
0x246868…2469fc Dummy {f00=0x009c, f01=0x018e, f02=» 7 P* 8 P EJECT 8 P* 8 P* GRAPHIC PART 8 * P* 8 D PADY500 EQU * 8 N P LDK A2,/11 8 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 8 v & PADY510 CF A15,GETCHR GET CHARACTER 8 P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 P LDR A
0x2469fc…246b90 Dummy {f00=0x009c, f01=0x0190, f02=» 8 t P* 9 P* ADDRESS MESSAGE 9 P* 9 . P* SET FIRST OUT PUT IN A2 9 8 P* AND SECOND IN A4 9 P* 9 z P SLL A1,4 9 P LDR A4,A2 9 P SRL A4,4 9 P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 P ORK A2,/20 9 , PAD
0x246b90…246d24 Dummy {f00=0x009c, f01=0x0190, f02=»Y510 9 P EJECT : P* : P* DATA MESSAGE : $ P* : > " P* FIRST OUTPUT IS SET IN A2 : H P* AND SECOND IN A4 : n P* : PADY530 SLL A1,13 : P LDR A4,A2 : P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : P LDK A2,0 : P
0x246d24…246eb8 Dummy {f00=0x009c, f01=0x0190, f02=»ADY540 : PADY560 LDR A4,A2 ; P SRL A4,4 ; & P ANK A4,/3F ; 8 P ANK A2,/F ; L P ORK A2,/60 ; ^ P RB ADY515 ; r P* ; P XIF ; P* ; P EJECT ; P* ; , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINT
0x246eb8…24704c Dummy {f00=0x009c, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER ; P LDK A3,0 < . , P SC A3,DWTBC,A6 RESET POSITION COUNTER < @ P RTN A15 < p P* < 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION < 0 P* POINTER WHEN REQUEST RUNNING. < > P* A
0x24704c…2471e0 Dummy {f00=0x009c, f01=0x0190, f02=» < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER = P ANK A2,/FF = > " P CC A2,DWTPOS,A6 END OF ROW ? = R P RF(P) POSU10 = x , P IM DWTST,A6 INCREMENT POSITION COUNTER = PPOSU10 RTN A15 = P EJECT = P* = P* I H D Y = P* =
0x2471e0…247374 (5, 270) Dummy {f00=0x009c, f01=0x0190, f02=»F(N) IHDY10 = . P LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? > P RB(NE) ADY420 YES > F 4 PIHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 > ` P EJECT > P* > P* R C D Y > P* > ( P* RCDY = RECOVERY ROUTINE DISPLAY > P* > P* >
0x247374…247508 Dummy {f00=0x009c, f01=0x0190, f02=»T-ADDRESS > P* A7 = ORDER ? P* A8 = ECB-ADDRESS ? * PRCDY EQU * ? H P IFT CPU852=1 ? Z & P CF A15,SAVE8 SAVE A1-A8 ON STACK ? p P XIF ? P* ? P IFT CPU852=0 ? " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? P* ? P =3
0x247508…24769c Dummy {f00=0x009c, f01=0x0190, f02=» =1 ? P =1 @ P =1 @ P* @ ( P IFT WHATDY=0 @ 2 P* @ H " P LDR* A2,A6 CHANNEL PARAMETER @ R " P ANK A2,/10 GRAPHIC DISPLAY ? @ x P RF(E) RCDY10 NO @ . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ P* @ P
0x24769c…247830 Dummy {f00=0x009c, f01=0x0190, f02=»BLOCK ? @ x P RF(NE) RCDY20 A P IFT WHATDY=0 =1 A & P IFF STEADY+COUNTRY=0 =1 A @ * P LDR* A2,A6 GET CHANNEL PARAMETERS =1 A b " P ANK A2,/20 PTS 6385/6386 ? =1 A P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 L
0x247830…2479c4 Dummy {f00=0x009c, f01=0x0190, f02=» SUK A3,1 DEC TRANSFER COUNTER =3 A , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B * . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B Z P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPUT =1 B P
0x2479c4…247b58 Dummy {f00=0x009c, f01=0x0190, f02=» HOME B x P CF A5,OUTPUT SEND C P LDKL A2,/101 C ( 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C > P LDR A3,A3 GET OLD STATUS C x P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P EJECT C P*
0x247b58…247cec Dummy {f00=0x009c, f01=0x0190, f02=» LDK A1,2 INDICATE THROUGHPUT ERROR C P RB RCDY15 D , & PRCDY25 LDK A2,STX START OF MESSAGE D > P CF A5,OUTPUT D h 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D ~ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OU
0x247cec…247e80 Dummy {f00=0x009c, f01=0x0190, f02=»CHODY = DEVICE-DEPENDENT ECHO-ROUTINE D P* E . PECHODY EQU * E 8 P LDR A7,A7 EOR? E L P RF(N) ECDY17 YES E d P LDR A3,A2 SAVE CHARACTER E ~ P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E P A
0x247e80…248014 (5, 271) Dummy {f00=0x009c, f01=0x0190, f02=»EAR E & PECDY10 CF A5,OUTPUT SEND CHARACTER F , P CF A15,POSUPD POSITION COUNTER UPDATING F 6 P RF ECDY20 F f 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER F x ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F P* BACKSPACE F P* F PEC
0x248014…2481a8 Dummy {f00=0x009c, f01=0x0190, f02=» ONE BACKSTEP F ~ P CF A5,BACCAN BACK G P RB ECDY20 G 0 P EJECT G B P* G P P* CLEAR G Z P* G l PECDY50 EQU * G v ( P LC A4,DWTBC,A6 GET POSITION COUNTER G P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G & P LDR
0x2481a8…24833c Dummy {f00=0x009c, f01=0x0190, f02=» P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H > P CF A5,CURPOS SET CURSOR H x P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF A5,FASTER FAST OUT
0x24833c…2484d0 Dummy {f00=0x009c, f01=0x0190, f02=»CAN = SUBROUTINE TO POSITION CURSOR H 0 P* AT THE PLACE BEFORE REQUEST IF I , 0 P* CLEAR OR BACKWARDS ONE STEP IF I ` P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GET POSITION COUNTER
0x2484d0…248664 Dummy {f00=0x009c, f01=0x0190, f02=» RF(NP) BACA10 NO I $ P LDK A2,SPACE DESTRUCTIVE SPACE J P RF BACA20 J B " PBACA10 LDK A2,BACKSP BACKSPACE J T P CF A5,OUTPUT SEND J z $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J PBACA20 CF A5,OUTPU
0x248664…2487f8 Dummy {f00=0x009c, f01=0x018e, f02=» RTN A5 J P EJECT K 4 P*********************************************** K 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K V 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P*
0x2487f8…24898c Dummy {f00=0x009c, f01=0x0190, f02=» K P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L P ABL(NP) ACDY75 YES! L > , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L Z ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L P SUK A1,1
0x24898c…248b20 Dummy {f00=0x009c, f01=0x0190, f02=»S! L POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M P RF(L) NOFAST NO! M V & P********************************** M p & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M
0x248b20…248cb4 (5, 272) Dummy {f00=0x009d, f01=0x0190, f02=»/LINE M j P SUR A3,A2 AND COMPARE N P SUR A3,A4 N , P RF(NN) HIT N > P ADR A4,A3 N R P ADK A4,1 N d ( PHIT ADS A4,DWTST,A6 UPDATE POSITION N v P*********************** N P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N P C
0x248cb4…248e48 Dummy {f00=0x009d, f01=0x0190, f02=»6 INC HEAD POS POINTER N P CF A5,CURPOS O " P***************************** O 4 " P* RESTORE A3 (BUFFER INDEX) * O Z * P LD A3,DWTBIN,A6 RESTORE BUFFER INDEX O P SUK A3,1 O P ABL ACDY90 READ NEXT CHAR O P* O . PNOFAST LDR A2,A7 RESTORE OUT
0x248e48…248fdc Dummy {f00=0x009d, f01=0x0190, f02=» 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS P P* P < PFASTER EQU * P F P CWK A4,/60 P Z . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG P n P LDK A4,/59 P PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P
0x248fdc…249170 Dummy {f00=0x009d, f01=0x0190, f02=» P P EJECT Q P* Q P* Q * P* CURPOS = SUBROUTINE TO SET CURSOR Q * > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) Q X P* Q PCURPOS EQU * Q P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q P CF A5,OUTPUT SEND
0x249170…249304 Dummy {f00=0x009d, f01=0x018e, f02=»A4 Q & P CF A5,OUTPUT OUTPUT POSITION (X) R P LDR A2,A4 R 4 P RF(NN) CURR10 Y < /80! R F P LDK A2,/7F R f P RF CURR15 R z PCURR10 EQU * R P SRL A2,8 SHIFT RIGHT R PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R P RTN A5 R P E
0x249304…249498 Dummy {f00=0x009d, f01=0x0190, f02=» R 0 P* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 S . P* AT EXIT A4 = CHAR TO END OF SCREEN =2 S < P* =2 S n PERA EQU * =2 S | " P LD A2,DWTPOS,A6 MAX CHAR. =2 S P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2
0x249498…24962c Dummy {f00=0x009d, f01=0x4144, f02=»SIDE SCREEN =2 S P RF(L) ERAEND NO =2 T . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 T 2 P LDKL A3,/FFFF SET OVER =4 T d " PERAEND EQU * END SUBROUTINE =2 T P RTN A5 RETURN =2 T PABDY EQU * T , P CF A15,UPDAPP UPDATE CURSOR POSITION =5 T ( P
0x24962c…2497c0 Dummy {f00=0x009d, f01=0x2008, f02=» U NE) BACA10 7 P NGR A3,A3 NEGATE REGISTER 7 , P ADS A3,DWTST,A6 UPDATE POSITION COUNTER 7 < P RTN A5 7 l P END 7 |@ 7 6 t P* 6 PBACCAN EQU * 6 P LDR A3,A4 6 " PBACA10 LDK A2,BACKSP BACKSPACE 6 P CF A5,OUTPUT SEND 6 $ P LDK
0x2497c0…249954 (5, 273) Dummy {f00=0x009d, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x249954…249ae8 Dummy {f00=0x009d, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x249ae8…249c7c Dummy {f00=0x009d, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x249c7c…249e10 Dummy {f00=0x009d, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x249e10…249fa4 Dummy {f00=0x009d, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x249fa4…24a138 Dummy {f00=0x009d, f01=0x0190, f02=» , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c 4 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c X 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P* c PVOL:
0x24a138…24a2cc Dummy {f00=0x009d, f01=0x0190, f02=»L A3,/8000 INDICATE NO NEW NVL SET c PVOL:30 EQU * d * . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d > P LD A8,DWTECB,A6 d p P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d P* d P
0x24a2cc…24a460 Dummy {f00=0x009d, f01=0x0190, f02=» ASCII CODE d . P* INPUT STRING ADDRESS IS BUF e & P* INPUT: A7 NO OF CHARACTERS e H P* A4 = BUFFER ADDRESS e r P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P* e PASCI
0x24a460…24a5f4 (5, 274) Opaque[0x194]
0x24a5f4…24a788 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f58, f03=0x0000}
0x24a5f4…24a788 IdxSect {
0x24a5f4…24a788 f00 = 0x007a // 0x24a5f4 @0x0
0x24a5f4…24a788 f01 = 0x0014 // 0x24a5f6 @0x2
0x24a5f4…24a788 gno = [ // 0x24a5f8 @0x4
0x24a5f4…24a788 [0x00]: C0x007a.0x3.0
0x24a5f4…24a788 [0x01]: C0x007b.0x0.0
0x24a5f4…24a788 [0x02]: C0x007b.0x1.0
0x24a5f4…24a788 [0x03]: C0x007b.0x2.0
0x24a5f4…24a788 [0x04]: C0x007b.0x3.0
0x24a5f4…24a788 [0x05]: C0x007c.0x0.0
0x24a5f4…24a788 [0x06]: C0x007c.0x1.0
0x24a5f4…24a788 [0x07]: C0x007c.0x2.0
0x24a5f4…24a788 [0x08]: C0x007c.0x3.0
0x24a5f4…24a788 [0x09]: C0x007d.0x0.0
0x24a5f4…24a788 ]
0x24a5f4…24a788 }
0x24a788…24a91c Dummy {f00=0x007a, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 10.0 80-03-14 870105041000 P : & P =9,RTN FROM OUTLRT IN INH MODE B P PRR 10.1 79-09-03 l P =8,UPDATE TO 10.1 STATUS P REL 9.1 79-05-23 * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-1
0x24a91c…24aab0 Dummy {f00=0x007a, f01=0x0190, f02=» =1-4, GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-04-02 ( P =4,TIMER RESET CORRECTED D P REL 8.2 79-03-22 h P =3,NAK HANDLING CORRECTED P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =
0x24aab0…24ac44 Dummy {f00=0x007a, f01=0x0190, f02=»****************************** | P* & $ P* PHILIPS TERMINAL SYSTEM PTS 0 P* X $ P* DRLT01 = DRIVER CHANNEL UNIT b $ P* FOR LOCAL TERMINALS P* P* P* P* P* 2 P************************************
0x24ac44…24add8 Dummy {f00=0x007a, f01=0x0190, f02=»GISTER A2. IF DATA d D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER P* FOR ACTUAL DEVICE. b D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUD
0x24add8…24af6c Dummy {f00=0x007a, f01=0x0190, f02=»TART ON EVERY CHLT IN SYSTEM t P* $ 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE . P* INCLUDED IN THE DRIVER. d P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE
0x24af6c…24b100 Dummy {f00=0x007a, f01=0x0190, f02=»WT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS ( P* D P* N P* X P EJECT b P* p P*********** z P* ENTRIES * P*********** P* P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRU
0x24b100…24b294 (5, 275) Dummy {f00=0x007b, f01=0x0190, f02=» p P ENTRY CHLTON START OF CHLT 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS , 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ` P ENTRY REMFC DUMMY ENTRY P ENTRY DWREMU DUMMY ENTRY P* P EJECT P* . P****************
0x24b294…24b428 Dummy {f00=0x007b, f01=0x018e, f02=» P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER < P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUP
0x24b428…24b5bc Dummy {f00=0x007b, f01=0x0190, f02=» . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE P* 6 P* @ ( P*********************************** J ( P* DWT PARAMETERS * v ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR ORDER ( P EXT
0x24b5bc…24b750 Dummy {f00=0x007b, f01=0x0190, f02=»TPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER < 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT ^ 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT P* P EJECT P P* P************* P*
0x24b750…24b8e4 Dummy {f00=0x007b, f01=0x0190, f02=» t PDRQTIM EQU 30 P* P EJECT ( P* 6 P************************ @ P* CONDITIONAL ASSEMBLY * ` P************************ P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRI
0x24b8e4…24ba78 Dummy {f00=0x007b, f01=0x0190, f02=» ` . P* CHANNELS BY SETTING X:B TO 1,2,3 OR 4 P* : PX:B EQU 1 D PLOCHAN EQU 1 V P* j 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND t 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION C
0x24ba78…24bc0c Dummy {f00=0x007b, f01=0x0190, f02=»TTING X:D = 1 A SOFTWARE TIME OUT HANDLING < P* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED 2 P* IN THE DRIVER. r < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:
0x24bc0c…24bda0 Dummy {f00=0x007b, f01=0x0190, f02=»SET IS OBTAINED BY SETTING CPU852 EQU 0. P* 0 PCPU852 EQU 0 : P* N P EJECT X P f P n PRECHAN EQU 0 v PREMFC EQU 0 PCWTRT1 EQU * PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU * PCWTRT6
0x24bda0…24bf34 (5, 276) Dummy {f00=0x007b, f01=0x0190, f02=»************************* t : P* C W T L T 1 * " : P***************************************************** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 P* P* PDWA1 EQU /03 DEVICEA
0x24bf34…24c0c8 Dummy {f00=0x007b, f01=0x0190, f02=»-CWTLT1 P DATA 0 LAST OUTPUT WORD * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 0 P DATA INTLT1 ^ PCWTINR EQU *-CWTLT1 INR r P INR A2,0,DWA1 PCWTOTR EQU *-CWTLT1 OTR P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START P CIO
0x24c0c8…24c25c Dummy {f00=0x007b, f01=0x0190, f02=» PCWTADD EQU *-CWTLT1 P* P IFT ACKMUL=1 * P* @ P DATA 0 NAK-ACKUMULATOR J $ P DATA 0 RETR. FAULT-ACKUMULATOR j , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x24c25c…24c3f0 Dummy {f00=0x007b, f01=0x0190, f02=» * : P***************************************************** . P* l 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 v P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVICE ADDRESS
0x24c3f0…24c584 Dummy {f00=0x007b, f01=0x0190, f02=»DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START * " P DATA 0 RETRANSMISSION COUNTER J P DATA 0 END OF QUEUE p P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UN
0x24c584…24c718 Dummy {f00=0x007b, f01=0x0190, f02=»* P EJECT P XIF P IFT LOCHAN=3 $ PDWA2 EQU /13 DEVICE ADDRESS : P* ^ $ P DATA 0 LAST OUTPUT DWT-ADDRESS h P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P
0x24c718…24c8ac Dummy {f00=0x007b, f01=0x0190, f02=» P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR $ , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR L ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR | P* P XIF P* P* P XIF P IFT LOCHAN=4 P* P* 6 P
0x24c8ac…24ca40 Dummy {f00=0x007b, f01=0x0190, f02=»T-ADDRESS z P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 2 P INR A2,0,DWA2 INR V P OTR A2,0,DWA2 OTR p P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMUL=1
0x24ca40…24cbd4 (5, 277) Dummy {f00=0x007b, f01=0x0190, f02=»ATA 0 PRINTER TIMEOUT ACKUMULATOR P* * P XIF 4 P EJECT @ P* N P* X 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 b P* PCWTLT3 EQU * P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P DATA 0 LA
0x24cbd4…24cd68 Dummy {f00=0x007b, f01=0x0190, f02=»A3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER . P DATA 0 END OF QUEUE T P* p P IFT ACKMUL=1 z P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULAT
0x24cd68…24cefc Dummy {f00=0x007b, f01=0x0190, f02=»E ADDRESS ~ P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD D P DATA INTLT3 INTERRUPT TABLE d P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA
0x24cefc…24d090 Dummy {f00=0x007b, f01=0x0190, f02=» DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 0 P* P XIF f P EJECT r P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 P* PCWTLT4 EQU * P* P* P IFT LOCHAN=4
0x24d090…24d224 Dummy {f00=0x007b, f01=0x0190, f02=»ERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR . P CIO A2,1,DWA4 CIO-START H " P DATA 0 RETRANSMISSION COUNTER h P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-
0x24d224…24d3b8 Dummy {f00=0x007b, f01=0x0190, f02=» P EJECT P* 2 P********************************************** 2 P* C H T A B * V 2 P********************************************** P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK 8 P*
0x24d3b8…24d54c Dummy {f00=0x007b, f01=0x0190, f02=»ABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 * P IFT LOCHAN=3 > P DATA CWTLT3 T P XIF h P IFT LOCHAN=4 t P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P* P
0x24d54c…24d6e0 Dummy {f00=0x007b, f01=0x0190, f02=»R CHLT l P* P* C H L T 1 P* INTERRUPT FROM CHLT1 . P* N P XIF X P IFT LOCHAN=2 d PCHLT3 EQU * z PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU
0x24d6e0…24d874 (5, 278) Dummy {f00=0x007b, f01=0x0190, f02=»E A1-A8 ON STACK P XIF P* $ P IFF LOCHAN=1 . . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 D P RF CLT010 v P* P* C H L T 2 P* INTERRUPT FROM CHLT2 P* PCHLT2 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x24d874…24da08 Dummy {f00=0x007b, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P IFF LOCHAN=1 < . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 R P XIF P IFT LOCHAN=2 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P IFT LOCHAN=3
0x24da08…24db9c Dummy {f00=0x007b, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 , & P CF A15,SAVE8 SAVE A1-A8 ON STACK B P XIF l P* x P IFT LOCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT LOCHAN=3 . P LDKL A5
0x24db9c…24dd30 Dummy {f00=0x007b, f01=0x0190, f02=» P* ! P* ! P* C H L T 2 ! P* INTERRUPT FROM CHLT3 ! 2 P* ! R PCHLT3 EQU * ! $ P ST P,INTSAV SAVE LAST INTERRUPT ! p P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P* ! P IFT LOCHAN=4 ! P IFT
0x24dd30…24dec4 Dummy {f00=0x007b, f01=0x0190, f02=»CHLT3 ! l P RF CLT010 " P* C H L T 4 " P* INTERRUPT FROM CHLT4 " 6 P* " V PCHLT4 EQU * " ` $ P ST P,INTSAV SAVE LAST INTERRUPT " t P IFT CPU852=1 " & P CF A15,SAVE8 SAVE A1-A8 ON STACK " P XIF " P* " P IFT LOCHAN=4 " P
0x24dec4…24e058 Dummy {f00=0x007b, f01=0x0190, f02=»FOR CHLT4 " p $ PCLT010 EX CWTINR,A5 EXECUTE INR # P XIF # : P* # F P IFT LOCHAN=1 # P P* # f P* # p P* C H L T 1 # z P* # P* INTERRUPT FROM CHLT1 # P* # PCHLT1 EQU * # PCHLT2 EQU * # PCHLT3 EQU * # PCHLT4
0x24e058…24e1ec Dummy {f00=0x007b, f01=0x0190, f02=» # " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ . P* $ : P IFT LOCHAN=1 $ D $ P LDKL A5,CWTLT1 GET CWT-ADDRESS $ Z $ P ST P,INTSAV SAVE LAST INTERRUPT $ P INR A2,0,DWA1 $ P* $ P XIF $ P* $ P IFT LOGING=1 $ . P CF A15,LOGG ** LO
0x24e1ec…24e380 Dummy {f00=0x007b, f01=0x018e, f02=»DK A1,0 RESET RETURN CODE $ P LDR A3,A2 INPUT WORD IN A3 % " P SRL A3,8 % F P LDR A4,A3 % X $ P ANK A3,/E 2 * LINE NUMBER IN A3 % j P SRL A4,3 % & P ANK A4,/E 2 * DEVICE NUMBER IN A4 % . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER % P ANK A2,
0x24e380…24e514 (5, 279) Dummy {f00=0x007c, f01=0x0190, f02=» % z P* & P* & 0 P* CHECK QUEUE AND SEND IF SOMETHING THERE & P* & P & P LDR* A7,A5 LAST OUTPUT DWT IN A7 & Z P CMR A5 RESET LAST OUTPUT & P LD A6,CWTEQ,A5 OUTPUT QUEUE & P RF(E) CLT020 & P STR A2,A15 SAVE A2 & $ P LD A2,DWTOT
0x24e514…24e6a8 Dummy {f00=0x007c, f01=0x0190, f02=» & r P LDR* A2,A15 RELOAD A2 ' P EJECT ' & P* ' 4 P* ' > 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- ' H 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT ' ~ ( P* OR UNDEFINED CONTROL CHARACTER ' P* ' PCLT020 EQU * ' P LDR A6,A7
0x24e6a8…24e83c Dummy {f00=0x007c, f01=0x0190, f02=» ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( $ P* ( > P IFT ACKMUL=1 ( H P* ( ^ P =1 ( h P =1 ( v P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025 ADR A7,
0x24e83c…24e9d0 Dummy {f00=0x007c, f01=0x0190, f02=»* ( P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) H P* ) p : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) z 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT OPERABL
0x24e9d0…24eb64 Dummy {f00=0x007c, f01=0x018e, f02=» ) b P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * R 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NOERR INDI
0x24eb64…24ecf8 Dummy {f00=0x007c, f01=0x0190, f02=» * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + X @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE DRIVER
0x24ecf8…24ee8c Dummy {f00=0x007c, f01=0x0190, f02=» 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , : P SUK A4,7 SEVEN TIMES ? , ^ P RB(E) CLT015 =7(=3) , ~ * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION ,
0x24ee8c…24f020 Dummy {f00=0x007c, f01=0x0190, f02=»CT , P* - P* - P* ACK DATA = 07 - P* - > 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - H . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - ~ P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF - 6 P A
0x24f020…24f1b4 (5, 280) Dummy {f00=0x007c, f01=0x0190, f02=»A7,A6 DEVICE WITHOUT DATA REQUEST? - , P RF(N) CLT110 YES. SIMULATE DATA REQUEST . * P* . Z P IFF SOFTIM=1 . d P* . z PCLT062 EQU * . P RF EXIT . P* . P XIF . P* . P* . P IFT SOFTIM=1 . P* . P EJECT . P* .
0x24f1b4…24f348 Dummy {f00=0x007c, f01=0x0190, f02=» BLOCK . p P RF(E) CLT060 / P* / $ P* RESTART TIMER / . P* / H " P LDKL A3,-DRQTIM RESTART TIMER / R P ST* A3,DWTTP,A6 / x P RF EXIT / P* / P* START TIMER / P* / PCLT060 LDR A1,A6 PARAMETER / P LDKL A4,DWTTP TIMER POINT
0x24f348…24f4dc Dummy {f00=0x007c, f01=0x0190, f02=»AND DELAY / ` PCLT062 EQU * 0 P RF EXIT 0 & P 0 6 P EJECT 0 > P* 0 L P* 0 V P* RESET TIMER IF STARTED 0 ` P* 0 P =4 0 P =4 0 P =4 0 P =4 0 P =4 0 P EJECT 0 P* 0 6 P* TIME-OUT ROUTINE HANDLI
0x24f4dc…24f670 Dummy {f00=0x007c, f01=0x0190, f02=»ET POINTER TO TIMER BLOCK 0 P LD A3,DWTST,A6 1 " P SLL A3,2 ECHO MODE ? 1 : P RF(N) CLT110 YES 1 X P* 1 r P IFT ACKMUL=1 1 | P IFF LOCHAN=1 1 P* 1 " P LDR* A5,A6 CHANNEL PARAMETER 1 P ANK A5,/F 1 P SLL A5,1 2 * INDEX 1 ( P A
0x24f670…24f804 Dummy {f00=0x007c, f01=0x0190, f02=» XIF 1 P IFT SOFTIM=1 2 P IFT ACKMUL=1 2 " P IFT LOCHAN=1 2 8 P* 2 N $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 2 X ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 2 P* 2 P XIF 2 P IFT SOFTIM=1 2 P* 2 $ P LD A7,DWTOR,A6 TEST ORDER ? =2 2
0x24f804…24f998 Dummy {f00=0x007c, f01=0x0190, f02=» P* 3 P XIF 3 P* 3 P EJECT 3 $ P* 3 2 P* POWER ON DATA = 03 3 < P* 3 ^ 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 h 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 3 $ P* UNIT OR THOSE IN ECHO MODE. 3 P* 3
0x24f998…24fb2c Dummy {f00=0x007c, f01=0x0190, f02=»* A7 = ORDER 3 P* 4 PCHPOWO EQU * 4 " P CF A15,GETLIN 4 6 $ P LDR* A2,A5 GET LAST OUTPUT DWT 4 L . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 4 t P LDK A4,0 4 P LDR A3,A6 DEVICE COUNTER 4 P LDR A1,A8 ADDRESS POINTER 4 $ P RF(Z) EXIT
0x24fb2c…24fcc0 Dummy {f00=0x007c, f01=0x0190, f02=»F(N) CPO030 4 P SLC A6,1 5 " P LCR A7,A6 LEFT BYTE OF DWTCHP 5 & P ANK A7,1 INPUT DEVICE ? 5 L P RF(NE) CPO025 YES 5 l P LDKL A7,/EFFF 5 ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 5 P LC A7,DWTST,A6 5 P ANK A7,/20 ECHO MODE ? 5 P RF(NE)
0x24fcc0…24fe54 (5, 281) Dummy {f00=0x007c, f01=0x0190, f02=»ESSBLOCK IN A7 5 j . P LD A7,RECADR,A7 ADDRESS TO RECOVERY IN A7 6 P RF(E) CPO030 NO RECOVERY 6 H P LDKL A5,DWTSB2 STACKBASE 6 j P ADR A5,A6 6 P INH 6 & P CFR A15,A7 GO TO RECOVERY ROUTINE 6 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 6 P 6 P
0x24fe54…24ffe8 Dummy {f00=0x007c, f01=0x0190, f02=»F A15,GETLIN GET DWT-ADDRESS 6 P SUR A6,A4 VALID INTERRUPT ? 7 $ P RB(N) EXIT 7 H P LDR A8,A8 7 P RB(Z) EXIT EXIT NOT DEFINED 7 n P LDR* A6,A8 GET DWT 7 P RB(E) EXIT 7 P ANKL A6,/FFFE 7 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER 7
0x24ffe8…25017c Dummy {f00=0x007c, f01=0x0190, f02=»OR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 2 P IFT SOFTIM=1 8 ` * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 v P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO =4 8 $ P L
0x25017c…250310 Dummy {f00=0x007c, f01=0x0190, f02=»E) CLT120 NO =4 8 P INH =4 9 P CM* DWTTP,A6 RESET TIMER =4 9 * 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 N PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 GO TO INTERRU
0x250310…2504a4 Dummy {f00=0x007c, f01=0x0190, f02=»:- 9 f P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : @ P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* : P* G E
0x2504a4…250638 Dummy {f00=0x007c, f01=0x0190, f02=» P* ; P* ON ENTRY:- ; P* ; $ P* A3 = LINE NUMBER * 2 ; . P* A4 = DEVICE NUMBER * 2 ; N P* ; p P* ON EXIT:- ; z P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FO
0x250638…2507cc Dummy {f00=0x007c, f01=0x018e, f02=»8,A3 POSITION IN TABLE ; , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < ( P RF(Z) GTL010 RETURN IF NOT DEFINED < N P LDR* A6,A8 GET ID-WORD < z , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION < PGTL010
0x2507cc…250960 Dummy {f00=0x007c, f01=0x0190, f02=» P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = L < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = V 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* = P* ON E
0x250960…250af4 (5, 282) Dummy {f00=0x007c, f01=0x0190, f02=» = P IFF LOCHAN=1 > P* > " P LDR* A1,A6 CHANNEL PARAMETER > ( P ANK A1,/F CHANNEL INDEX > N P SLL A1,1 > n P ADK A1,2 > * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 > P* > P XIF > P* > P* > P IFT LOCHAN=1 > P* >
0x250af4…250c88 Dummy {f00=0x007c, f01=0x0190, f02=»0 YES > P EJECT ? P* ? P* QUEUE OUTPUT ? & P* ? @ & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE ? J P RF(E) OUL020 ? t POUL010 CWR A6,A4 ? . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE ? P LD A3,DWTOTQ,A4 ? & P RF(E) OUL030 END OF THREAD
0x250c88…250e1c Dummy {f00=0x007c, f01=0x0190, f02=»A6,DWTOTQ,A4 QUEUE DWT ? * POUL040 CM DWTOTQ,A6 SET END OF THREAD @ P RF OUL060 @ L P EJECT @ ^ P* @ l P* SEND CHARACTER @ v P* @ , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS @ P ANKL A3,/7F00 @ P ANK A2,/FF @ P ORR A2,A3 @ P
0x250e1c…250fb0 Dummy {f00=0x007c, f01=0x0190, f02=»ING=1 @ 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** A P XIF A B 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) A N 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT A POUL070 EQU * A P IFT CPU852=1 A ( P ABL IHRET8 RESTORE A1-A8 AN
0x250fb0…251144 Dummy {f00=0x007c, f01=0x0190, f02=»...ADJUST STACK POINTER... =9 A P LDR* P,A15 ...AND RETURN =9 B & P XIF B J P* B V P EJECT B ` P* B n P* C H L T O N B x P* B > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY B @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERE
0x251144…2512d8 Dummy {f00=0x007c, f01=0x0190, f02=»TREATED ? B | P RF(NZ) CON020 NO TAKE NEXT C P ABL RTNA15 RETURN AND ENB C 6 * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS C X P RB(Z) CON010 C $ P EX CWTCIS,A5 EXECUTE CIO-START C P LDR* A6,A5 GET LAST DWT C P RB(Z) CON010 C P CMR A5 RESET
0x2512d8…25146c Dummy {f00=0x007c, f01=0x0190, f02=»* C P IFT LOCHAN=1 D P* D P CIO A2,1,DWA1 CIO-START D * P LD A6,CWTLT1 GET LAST DWT D J P RF(Z) CON010 D l P CM CWTLT1 RESET LAST OUTPUT D P LDK A2,0 D " P CF A15,OUTLIN SEND CHARACTER D $ PCON010 ABL RTNA15 RETURN AND ENB D P*
0x25146c…251600 Dummy {f00=0x007c, f01=0x0190, f02=»INPUT AND D f $ P* OUTPUT CHARACTER ARE LOGGED E P* E : P* E D P* E N P IFT LOGING=1 E X P* E n PLOGG STR A1,A15 E x P LD A1,POINT E P ADK A1,2 E & P CWK A1,BUFE BUFE IS MAX LOGG AREA E P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST
0x251600…251794 (5, 283) Dummy {f00=0x007d, f01=0x40b8, f02=»DR* P,A15 RETURN E P* F P* F " PPOINT DATA BUF LOGG POINTER F , P* F P PBUF RES 63 LOGG AREA F Z PBUFE EQU * F v P* F P XIF F P* F P END F @ F
0x251794…251928 Dummy {f00=0x007d, f01=0x2008, f02=» G PPOINT DATA BUF LOGG POINTER 9 P* 9 2 PBUF RES 63 LOGG AREA 9 < PBUFE EQU * 9 X P* 9 j P XIF 9 t P* 9 P END 9 @ 9 A1,BUFE BUFE IS MAX LOGG AREA 8 P RF(NE) L1 8 ( P LDKL A1,BUF SET FIRST LOGG ADDRESS 8 PL1 ST A1,P
0x251928…251abc Dummy {f00=0x007d, f01=0x0190, f02=» P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H " 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H P P CF A5,CURPOS SET CURSOR H P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF
0x251abc…251c50 Dummy {f00=0x007d, f01=0x0190, f02=»* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR I 0 P* AT THE PLACE BEFORE REQUEST IF I > 0 P* CLEAR OR BACKWARDS ONE STEP IF I r P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GE
0x251c50…251de4 Dummy {f00=0x007d, f01=0x0190, f02=»T POSITION I | P RF(NP) BACA10 NO J $ P LDK A2,SPACE DESTRUCTIVE SPACE J , P RF BACA20 J T " PBACA10 LDK A2,BACKSP BACKSPACE J f P CF A5,OUTPUT SEND J $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J P
0x251de4…251f78 Dummy {f00=0x007d, f01=0x0190, f02=»ON COUNTER J r P RTN A5 K P EJECT K " 4 P*********************************************** K 0 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K h 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 *
0x251f78…25210c Dummy {f00=0x007d, f01=0x018e, f02=» P* L P* L P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L , P ABL(NP) ACDY75 YES! L N , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L j ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L
0x25210c…2522a0 Dummy {f00=0x007d, f01=0x0190, f02=» P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M . P RF(L) NOFAST NO! M h & P********************************** M & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P A
0x2522a0…252434 (5, 284) Opaque[0x194]
0x252434…2525c8 # DirEnt {nam=»DRTP03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fa8, f03=0x0000}
0x252434…2525c8 IdxSect {
0x252434…2525c8 f00 = 0x007d // 0x252434 @0x0
0x252434…2525c8 f01 = 0x0018 // 0x252436 @0x2
0x252434…2525c8 gno = [ // 0x252438 @0x4
0x252434…2525c8 [0x00]: C0x007d.0x1.0
0x252434…2525c8 [0x01]: C0x008d.0x3.0
0x252434…2525c8 [0x02]: C0x008e.0x0.0
0x252434…2525c8 [0x03]: C0x008e.0x1.0
0x252434…2525c8 [0x04]: C0x008e.0x2.0
0x252434…2525c8 [0x05]: C0x008f.0x2.0
0x252434…2525c8 [0x06]: C0x008f.0x3.0
0x252434…2525c8 [0x07]: C0x0090.0x0.0
0x252434…2525c8 [0x08]: C0x0090.0x1.0
0x252434…2525c8 [0x09]: C0x0090.0x2.0
0x252434…2525c8 [0x0a]: C0x0090.0x3.0
0x252434…2525c8 [0x0b]: C0x009d.0x2.0
0x252434…2525c8 ]
0x252434…2525c8 }
0x2525c8…25275c Dummy {f00=0x007d, f01=0x0190, f02=» 2 P IDENT DRTP03 REL 10.0 80-04-24 870105041000 P : " P =9,TOTAL UPDATE FOR REMOTE B P REL 9.2 80-03-15 h P =8,REMOTE RECOVERY ERROR P REL 9.2 80-02-28 " P =7,UPDATE FOR REMOTE CONN. P REL 9.2 79-11-16 P
0x25275c…2528f0 Dummy {f00=0x007d, f01=0x0190, f02=»N UPDATE REL 10 P REL 9.1 79-09-26 P =3,ANK A2,/7F 4 P PRR 9.1 79-08-14 L P =2,GEN UPDATE h P PRR 9.1 79-06-20 P =1,GEN UPDATE P PRR 9.1 79-06-17 P EJECT P* < P********************************
0x2528f0…252a84 Dummy {f00=0x007d, f01=0x0190, f02=» * h < P* * < P* DRTP03 = DRIVER TELLER TERMINAL PRINTER * X < P* * < P* ADAPTED FOR TOSS RELEASE INDICATED IN "REL E
0x252a84…252c18 Dummy {f00=0x007d, f01=0x0190, f02=» X P* < P* THIS DRIVER HANDLES TELLER TERMINAL PRINTER PTS 6371 P* R , P* AND CONSISTS OF THE FOLLOWING PARTS: P* $ P* A C T P : ACTIVATION PART P* & P* I H T P : INTERRUPT HANDLER P* $ P* R C T P
0x252c18…252dac Dummy {f00=0x007d, f01=0x0190, f02=»NSFERED TO THE PRINTER. r > P* THE STRING BEGINS WITH A DEDICATED PRINTER CHARACTER. > P* THE CONTENTS OF THE STRING IS EITHER A FIXED FORMATTED b 2 P* BUFFER OR FOR ORDER WRITE THE USER BUFFER. > P* THE STRING IS TERMINATED WITH AN EXECUTION
0x252dac…252f40 Dummy {f00=0x007d, f01=0x0190, f02=»DER. Z P* D P* THE INTERRUPT HANDLER IS ENTERED FOR EACH OUTPUTED CHARACTER P* ^ > P* THE RECOVERY ROUTINE IS ENTERED AFTER PROGRAM LOADING, h @ P* AFTER POWER ON FROM TERMINAL SIDE AND AFTER TRANSMISSION P* TIME OUT. > P*
0x252f40…2530d4 (5, 285) Dummy {f00=0x008d, f01=0x0190, f02=»D STATUS FOR THE PRINTER. P EJECT " P* 0 * P* THE FOLLOWING ORDERS ARE TREATED: : P* h $ P* ORDER 00 : TEST STATUS r P* ORDER 06 : WRITE * P* ORDER 0B : POSITION DOCUMENT . P* ORDER 24 : SET PRINTE
0x2530d4…253268 Dummy {f00=0x008d, f01=0x0190, f02=»R 38 : RELEASE DOCUMENT P* $ , P* THE FOLLOWING RETURN CODES ARE USED: . P* ^ & P* BIT 0 : REQUEST ERROR h 8 P* BIT 2 : END OF JOURNAL **IN REL 10...** 8 P* BIT 10 : END OF JOURNAL **IN REL 8 & 9** $
0x253268…2533fc Dummy {f00=0x008d, f01=0x0190, f02=»* P* NORMAL REGISTER USAGE: P* , " P* REGISTER A1: WORK REGISTER 6 " P* A2: INPUT/OUTPUT $ P* A3: BUFFER POINTER $ P* A4: OUTPUT COUNTER " P* A5: STACK POINTER P* A6:
0x2533fc…253590 Dummy {f00=0x008d, f01=0x0190, f02=»***** P* ENTRIES * P*********** " P* 6 P* @ P ENTRY TPAD3 ADDRESS BLOCK J P* l P* v P* P************* P* EXTERNALS * P************* P* P* , P EXTRN TDISP DISPATCHING FROM INTERRUPT
0x253590…253724 Dummy {f00=0x008d, f01=0x0190, f02=»RN LDREG RESTORE REGISTERS P EXTRN SAVE8 SAVE REG. A1-A8 " 0 P EXTRN GETCHR GET CHARACTER FROM ECB BUFFER F ( P EXTRN DWTST DWT STATUS DISPLACEMENT z & P EXTRN DWTECB DWT ECB DISPLACEMENT ( P EXTRN DWTOR DWT ORDER DISPLACEMENT ( P EXTRN DTTP0
0x253724…2538b8 Dummy {f00=0x008d, f01=0x0190, f02=» P* P************* P* CONSTANTS * ( P************* > & PREL EQU 10 ADAPTED FOR TOSS REL 10 T P* ~ , P* DEDICATED PRINTER CHARACTERS (/00-/0F) P* PPOTEST EQU /00 TEST PPORECV EQU /01 RECOVERY & PRESTRT EQU
0x2538b8…253a4c Dummy {f00=0x008d, f01=0x018e, f02=»C STATUS x " PEXE EQU /06 EXECUTE (NOT USED) 0 PPOTDOC EQU /07 TRANSFER DOCUMENT PARAMETERS 6 $ PPORDOC EQU /08 RELEASE DOCUMENT j " PPOWDOC EQU /09 WRITE DOCUMENT $ PLF EQU /0A LINE FEED (NOT USED) $ PPOPDOC EQU /0B POSITION DOCUMENT P
0x253a4c…253be0 Dummy {f00=0x008d, f01=0x0190, f02=» r P* PSTB EQU /82 START BLOCK CHAR PETB EQU /97 END BLOCK CHAR 6 P* X P IFT REL=8 b & PENDJ EQU /20 END OF JOURNAL STATUS t P XIF P IFT REL=9 & PENDJ EQU /20 END OF JOURNAL STATUS P XIF P IFF REL=8 P IFF
0x253be0…253d74 (5, 286) Dummy {f00=0x008e, f01=0x0190, f02=»************************ P* CONDITIONAL ASSEMBLY * P************************ @ P* ` 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOSEN j 8 P* BY SETTING X:A TO 0-10 ACCORDING TO THE LIST BELOW P* P* NCV = 0 GREAT BRITAIN P
0x253d74…253f08 Dummy {f00=0x008e, f01=0x0190, f02=»7 PORTUGAL 6 P* 8 YUGOSLAVIA OR FRANCE 2 (DEPENDING ON CHAR GEN) P* 9 USA L P* 10 DENMARK, NORWAY 2 P* z PX:A EQU 0 PSTDNCV EQU 06 P* 4 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTING X:B=1 P
0x253f08…25409c Dummy {f00=0x008e, f01=0x0190, f02=»ETTING X:C TO : 0=15 CH/INCH, 1=12 CH/INCH OR 2=10 CH/INCH P* B PX:C EQU 2 L PSTDCPD EQU 0 ^ P* r * P* THE JOURNAL STATION CAN BE EXCLUDED | P* BY SETTING X:D=0 P* PX:D EQU 1 PJOURNL EQU 1 P* D P* THE STAN
0x25409c…254230 Dummy {f00=0x008e, f01=0x018e, f02=» PX:E EQU 0 PSTDCPJ EQU 0 P* . : P* THE "SET PARAMETER" ORDERS 24 AND 27 CAN BE INCLUDED 8 P* BY SETTING X:F=1 v P* PX:F EQU 0 PPARORD EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINE
0x254230…2543c4 Dummy {f00=0x008e, f01=0x0190, f02=» . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* : PCPU852 EQU 0 D P* X P* MMU BUFFER SIZE b P* ~ PX:G EQU 095 PDVBLEN EQU 100 P* : P* A REQUEST IS ALLWAYS ENDED FOR NOT OPERABLE PRINTERS P* BY SETTING X
0x2543c4…254558 Dummy {f00=0x008e, f01=0x0190, f02=»DCPJ,2=1,2=STDCPD d P EJECT P* ( 2 P********************* : P* DWT-DISPLACEMENTS * X P********************* v P* P* P* 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PST
0x254558…2546ec Dummy {f00=0x008e, f01=0x0190, f02=»NTER PARAMETERS z * PDWTPPJ EQU START+20 PRINT POS JOURNAL 0 PDWTAPJ EQU DWTPPJ+1 ACTUAL PRINT POS JOURNAL F 2 PDWTRPJ EQU DWTPPJ REQUESTED PRINT POS JOURNAL z * PDWTPPD EQU START+22 PRINT POS DOCUMENT 2 PDWTAPD EQU DWTPPD+1 ACTUAL PRINT POS DOCUM
0x2546ec…254880 Dummy {f00=0x008e, f01=0x0190, f02=»CTUAL LINE NUMBER ON DOCUMENT | 6 PDWTRLN EQU DWTLN REQUESTED LINE NUMBER ON DOCUMENT & * PDWTDP EQU START+26 DOCUMENT PARAMETERS ` P* P* P********************* P* ECB-DISPLACEMENTS * P********************* P* & PEC
0x254880…254a14 (5, 287) Dummy {f00=0x008e, f01=0x0190, f02=»U 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD IN ECB P EJECT F P* T P********** ^ P* TABLES * p P********** P* P* P* ADDRESS BLOCK P* P DATA DVBLEN MMU BUFFER SIZE P DATA 2 DEVICE INDEX
0x254a14…254ba8 Dummy {f00=0x008e, f01=0x0190, f02=»IF U =6 P DATA IHTP INTERRUPT HANDLER P DATA RCTP RECOVERY ROUTINE 4 P* X , P* VALID ORDERS WITH ACTIVATION ADDRESSES b P* PTPTAB EQU * ( P DATA TPTAB0 DEVICE INDEX 0 TABLE =9 ( P DATA TPTAB1 DEVICE INDEX 1 TABLE =9 ( P
0x254ba8…254d3c Dummy {f00=0x008e, f01=0x018e, f02=» IFT JOURNL=1 $ P DATA 0 TEST STATUS (JOURNAL) =9 P DATA TSTSTA U =9 > P DATA 6 WRITE JOURNAL =9 X P DATA WRTJRL U =9 x P IFT PARORD=1 ( P DATA /24 SET PRINTER PARAMETERS =9 P DATA PRTPAR U =9 P XIF P DATA /FFFF EN
0x254d3c…254ed0 Dummy {f00=0x008e, f01=0x0190, f02=» P DATA 6 WRITE DOCUMENT =9 P DATA WRTDOC U =9 & " P DATA /0B POSITION DOCUMENT =9 @ P DATA POSDOC U =9 f " P DATA /38 RELEASE DOCUMENT =9 P DATA RELDOC U =9 . P DATA /37 TRANSFER DOCUMENT PARAMETERS =9 P DATA TRFDOC U =9
0x254ed0…255064 Dummy {f00=0x008e, f01=0x0190, f02=» P DATA DOCPAR U =9 P XIF P DATA /FFFF END OF ORDERS =9 * P* N " PTPTAB2 EQU * DEVICE INDEX 2 =9 X P DATA /FFFF END OF ORDERS =9 ~ P* " PTPTAB3 EQU * DEVICE INDEX 3 =9 P DATA /FFFF END OF ORDERS =9 P* ( P* SYSTEM
0x255064…2551f8 Dummy {f00=0x008e, f01=0x0190, f02=»C T P P* 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR N P* P* P* PACTP EQU * ACTIVATION ENTRY P* P* , P* GET DWT INDEX: 0=JOURNAL, 1=DO
0x2551f8…25538c Dummy {f00=0x008e, f01=0x0190, f02=»VICE INDEX =9 z 0 P ANKL A3,/FF1F RESET OLD INDEX AND LF IND =9 P IFT REL=8 U =9 J , P ORKL A3,/8100 SET UP NO DATA REQUEST =9 b P XIF U =9 P ORR A3,A2 U =9 " P STR A3,A6 STORE NEW INDEX =9 * PACT005 LDR* A1,A6 GET DEVICE INDEX =9
0x25538c…255520 Dummy {f00=0x008e, f01=0x0190, f02=» * P ABL(N) DISIOE NO MORE VALID ORDERS =9 & P SUR A3,A7 TEST IF ORDER VALID =9 2 & P RF(E) ACT020 VALID ORDER FOUND =9 P ADK A2,4 TRY NEXT ORDER =9 P RB ACT010 U =9 PACT020 EQU * P ABI 2,A2 EXECUTE ORDER =9 P EJECT P*
0x255520…2556b4 (5, 288) Dummy {f00=0x008e, f01=0x0190, f02=»LEAR CONTROL WORD =7 " P LDK A3,POTEST LOAD TEST ORDER P CF A5,ORDER AND SEND B * P CF A5,EXECUT EXECUTE ORDER IN PRINTER ` $ P LDR A1,A2 GET PRINTER STATUS =9 & P ANK A1,/15 TEST PRINTER STATUS =9 ( P RF(Z) TSST10 NO PERMANENT ERRORS =9
0x2556b4…255848 Dummy {f00=0x008e, f01=0x0190, f02=» 4 P SC A2,ECBCW+1,A8 SET UP DIAGN STATUS IN ECB =9 & P LDK A1,1 INDICATE NOT OPERABLE =9 < P RF TSST80 U =9 f * PTSST10 LDR A1,A2 GET PRINTER STATUS =9 ~ P IFT JOURNL=1 U =9 $ P LDR* A3,A6 GET DEVICE INDEX =9 $ P ANK A3,/C0 TEST DEVICE IN
0x255848…2559dc Dummy {f00=0x008e, f01=0x0190, f02=» A1,2 TEST PRINTER STATUS =9 , P RB(NZ) TSST05 JOURNAL ERROR = NOT OP =9 $ $ P LDKL A1,ENDJ END OF JOURNAL =9 T P RF TSST80 U =9 | P XIF U =9 , PTSST40 ANK A1,/40 TEST PRINTER STATUS =9 P RF(Z) TSST80 NO ERRORS =9 " P LDK A1,DOCOUT D
0x2559dc…255b70 Dummy {f00=0x008e, f01=0x0190, f02=» P* ! P IFT JOURNL=1 ! PWRTJRL EQU * ! ( * P LDR* A1,A6 GET CHANNEL PARAMETERS =9 ! < $ P ANK A1,/20 TEST LF INDICATOR =9 ! j " P RF(NZ) WRJL10 LF EXECUTED =9 ! , P LD A1,ECBRL,A8 GET REQUESTED LENGTH =9 ! & P SUK A1,2 TEST REQUESTED LENGTH
0x255b70…255d04 Dummy {f00=0x008e, f01=0x0190, f02=»ST CTRL CHAR =9 ! $ P RF(Z) WRJL10 CTRL CHAR =/2B =9 " , P LDK A4,2 SET UP 2 LF (CTRL CH =/30) =9 " @ P SUK A2,5 TEST CTRL CHAR =9 " p $ P RF(Z) WRJL05 CTRL CHAR =/30 =9 " . P LDK A4,1 SET UP 1 LF (CTRL CH NOT DEF) =9 " P SUK A2,1 TEST CTRL CHAR =
0x255d04…255e98 Dummy {f00=0x008e, f01=0x0190, f02=»URNAL ORDER =9 " n P CF A5,ORDER AND SEND =9 # ( P LDR A2,A4 RELOAD NO OF LINE FEED =9 # 6 P CF A5,OUT AND SEND =9 # b * P CF A5,EXECUT EXECUTE ORDER IN PRINTER # $ P ANK A2,7 TEST PRINTER STATUS =9 # . P RF(NZ) WRJL65 JOURNAL LINE FEED ERROR =9 # * P
0x255e98…25602c Dummy {f00=0x008e, f01=0x0190, f02=»WRJL10 LC A1,DWTAPJ,A6 GET ACTUAL PRINT POS =9 # 2 P SC A1,DWTRPJ,A6 SET UP START REQ PRINT POS =9 $ 6 & P LDK A3,2 SET UP BUFFER POINTER =9 $ l 4 P CF A15,GETCHR GET CHARACTER FROM ECB BUFFER =9 $ $ P LDR A1,A1 TEST IF NO BUFFER =9 $ ( P RF(Z) WRJL60 NO B
0x25602c…2561c0 Dummy {f00=0x008e, f01=0x0190, f02=»D =9 $ t P CF A5,OUT AND SEND =9 % 2 P LDKL A4,/100 SET UP NORMAL CHAR COUNTER IN A4 % * $ P LDK A3,2 SET UP BUFFER POINTER % ` 6 PWRJL20 CF A15,GETCHR GET CHARACTER FROM ECB BUFFER % P LDR A1,A1 % " P RF(Z) WRJL50 BUFFER FINISHED % P LDR A1,A2 GET
0x2561c0…256354 (5, 289) Dummy {f00=0x008f, f01=0x018e, f02=» SUK A1,/10 % P RB(N) WRJL20 CHAR </10 & P RF(Z) WRJL30 CHAR = /10 & 4 P SUK A1,9 & T * P RF(NZ) WRJL25 CHAR NOT /19 (=EXPAND) & f , P XRKL A4,/300 SWITCH CHAR COUNTER IN A4 & P RF WRJL40 SEND EXPAND CHAR & PWRJL25 SUK A1,7 & P RF(N) W
0x256354…2564e8 Dummy {f00=0x008f, f01=0x0190, f02=» P RF(Z) WRJL28 CHAR =/AE ' * P CF A5,ERROR ILLEGAL CHAR = SEND RESET ' $ & P LDK A1,4 IND CODE CHECK ERROR =9 ' R P RF WRJL70 U =9 ' | PWRJL28 LDK A2,/0E ' P RF WRJL40 ' P ' P* UPDATE PRINT POSITION ' P ' 8 PWRJL30 ADS A4,DWTRPJ,A
0x2564e8…25667c Dummy {f00=0x008f, f01=0x0190, f02=»WRJL20 GET NEXT CHARACTER ' P ( " P* SEND ETX ( * P ( > 0 PWRJL50 CF A5,EXECUT EXECUTE ORDER IN PRINTER ( F $ P LDR A1,A2 GET PRINTER STATUS =9 ( z & P ANK A1,/27 TEST PRINTER STATUS =9 ( P RF(Z) WRJL60 NO ERRORS =9 ( $ P ANK A1,3 TEST PRINTER STA
0x25667c…256810 Dummy {f00=0x008f, f01=0x0190, f02=»L A1,ENDJ END OF JOURNAL =9 ( : PWRJL60 LC A3,DWTRPJ,A6 GET REQUESTED PRINT POSITION =9 ) $ 4 P SC A3,DWTAPJ,A6 SET UP ACTUAL PRINT POSITION =9 ) b P RF WRJL70 U =9 ) , PWRJL65 LDK A1,1 INDICATE NOT OPERABLE =9 ) $ PWRJL70 ABL DISEND END REQUEST =9 ) 8
0x256810…2569a4 Dummy {f00=0x008f, f01=0x0190, f02=»UMENT ) x P* * P* * PWRTDOC EQU * * " $ P LC A4,DWTALN,A6 GET ACTUAL LINE * 6 P ANK A4,/FF * ^ , P RF(Z) WRDO80 DOCUMENT NOT POSITIONED =9 * r , P LD A1,ECBRL,A8 GET REQUESTED LENGTH =9 * & P SUK A1,2 TEST REQUESTED LENGTH =9 * " P RF(N) WRDO8
0x2569a4…256b38 Dummy {f00=0x008f, f01=0x0190, f02=»NT POS =9 * l P SUK A2,/2B + " P RF(Z) WRDO07 CTRL CHAR = /2B + & * P LDK A3,0 PREPARE NEW REQ PRINT POS =9 + L * P ADK A4,2 SET REQ LINE = ACT LINE + 2 + z P SUK A2,5 + " P RF(Z) WRDO05 CTRL CHAR = /30 + * P SUK A4,1 SET REQ LINE = ACT LINE + 1 +
0x256b38…256ccc Dummy {f00=0x008f, f01=0x0190, f02=»G) WRDO80 REQ LINE > MAX LINES =9 + 8 PWRDO07 SC A3,DWTRPD,A6 SET UP START REQ PRINT POS =9 , * * P SC A4,DWTRLN,A6 SET UP REQ LINE NO =9 , f . PWRDO10 LDK A3,POWDOC SET UP PRINTER ORDER , P CF A5,ORDER AND SEND , " P LDR A2,A4 GET REQ LINE NO =9 ,
0x256ccc…256e60 Dummy {f00=0x008f, f01=0x0190, f02=»5,GETCHR GET CHARACTER FROM ECB BUFFER , P LDR A1,A1 - . " P RF(Z) WRDO50 BUFFER FINISHED - @ P LDR A1,A2 GET CHARACTER - f P - 8 P* EXAMINE CHARACTER AND UPDATE PRINT POS AND SEND - & P* DEPENDING ON TYPE OF CHARACTER - P - P SUK A1,/10
0x256e60…256ff4 (5, 290) Dummy {f00=0x008f, f01=0x0190, f02=»ND) - n , 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 . x P SUK A1,/5F . P RF(N) WRDO30 CHAR = NORMAL . P RB(Z) WRDO20 CHAR = /7F =9 . P SUK A1,/2F .
0x256ff4…257188 Dummy {f00=0x008f, f01=0x0190, f02=» & PWRDO28 LDK A2,SPEC SET UP CHAR /0E / P RF WRDO40 / . P / @ P* UPDATE PRINT POS / H P / d 8 PWRDO30 ADS A4,DWTRPD,A6 ADD 1 OR 2 TO REQ PRINT POS / l P / " P* SEND CHARACTER TO PRINTER / P / & PWRDO40 CF A5,OUTPUT SEND CHARACTER / P
0x257188…25731c Dummy {f00=0x008f, f01=0x0190, f02=»RINTER STATUS =9 / & P ANK A1,/45 TEST PRINTER STATUS =9 0 P RF(Z) WRDO60 NO ERRORS =9 0 B $ P ANK A1,1 TEST PRINTER STATUS =9 0 d " P RF(NZ) WRDO80 NOT OPERABLE =9 0 $ P ANK A2,4 TEST PRINTER STATUS =9 0 $ P RF(NZ) WRDO80 REQUEST ERROR =9 0 " P LDK A
0x25731c…2574b0 Dummy {f00=0x008f, f01=0x0190, f02=»9 0 8 PWRDO60 LC A3,DWTRLN,A6 GET REQUESTED LINE NUMBER =9 1 4 P LC A4,DWTRPD,A6 GET REQUESTED PRINT POSITION =9 1 F 8 PWRDO65 SC A3,DWTALN,A6 SET UP ACTUAL LINE NUMBER =9 1 ~ 4 P SC A4,DWTAPD,A6 SET UP ACTUAL PRINT POSITION =9 1 $ PWRDO70 ABL DISEND END
0x2574b0…257644 Dummy {f00=0x008f, f01=0x0190, f02=»DOCUMENT 1 x 0 P* CONTROL WORD CONTAINS REQUESTED LINE NO 2 P* 2 D P* 2 N PPOSDOC EQU * 2 X $ P LD A4,ECBCW,A8 GET REQ LINE NO 2 l " P RF(Z) PDOC80 REQ LINE = 0 =9 2 P CC A4,DWTDP+2,A6 2 ( P RF(G) PDOC80 REQ LINE > MAX LINE =9 2 ( P SC A4,D
0x257644…2577d8 Dummy {f00=0x008f, f01=0x0190, f02=»A4 SET UP LINE NO 2 P CF A5,OUT AND SEND 3 * P CF A5,EXECUT EXECUTE ORDER IN PRINTER 3 6 $ P LDR A1,A2 GET PRINTER STATUS =9 3 d & P ANK A1,/45 TEST PRINTER STATUS =9 3 P RF(Z) PDOC10 NO ERRORS =9 3 $ P ANK A1,1 TEST PRINTER STATUS =9 3 " P RF(NZ)
0x2577d8…25796c Dummy {f00=0x008f, f01=0x0190, f02=»UT =9 3 v * P ANK A1,/78 TEST DOC PAR (TIME OUT) =9 4 4 P RB(Z) POSDOC NO TIME OUT USED, REPEAT ORDER =9 4 < , P LDK A1,DOCOUT INDICATE DOCUMENT OUT =9 4 t $ P LDK A4,0 RESET LINE COUNTER =9 4 4 PPDOC10 SC A4,DWTALN,A6 UPDATE OF LINE COUNTER =9 4 2 P CM
0x25796c…257b00 Dummy {f00=0x008f, f01=0x0190, f02=»OR =9 4 b P EJECT 5 P* 5 P* 5 ( 0 P* ORDER 37 : TRANSFER DOCUMENT PARAMETERS 5 2 4 P* CONTROL WORD CONTAINS DOCUMENT TABLE NUMBER 5 f P* 5 P* 5 PTRFDOC EQU * 5 P LD A1,ECBCW,A8 5 P ADK A1,1 5 P LDR A4,A1 5 P SLL A
0x257b00…257c94 (5, 291) Dummy {f00=0x0090, f01=0x0190, f02=»T DOCTAB POINTER 5 ( P LC A1,DWTALN,A6 GET ACTUAL LINE =9 6 $ P ANK A1,/FF TEST LINE NUMBER =9 6 D 2 P RF(NZ) ODOC80 DOCUMENT ALREADY POSITIONED =9 6 l 2 P LDK A3,POTDOC LOAD TRANSFER DOC PAR ORDER =9 6 P CF A5,ORDER AND SEND 6 P LDK A3,DWTDP SET
0x257c94…257e28 Dummy {f00=0x0090, f01=0x0190, f02=» ADK A4,1 6 P ADK A3,1 7 P CWK A3,DWTDP+10 7 $ ( P RB(NE) ODOC30 WHOLE TABLE NOT SENT 7 < * P CF A5,EXECUT EXECUTE ORDER IN PRINTER 7 h $ P LDR A1,A2 GET PRINTER STATUS =9 7 $ P ANK A1,1 TEST PRINTER STATUS =9 7 $ PODOC70 ABL DISEND END REQUEST =9 7
0x257e28…257fbc Dummy {f00=0x0090, f01=0x0190, f02=»ERS 7 n P* CONTROL WORD CONTAINS: 8 B P* BIT 0 : INDICATE CHANGE OF CH FONT AND NCV =4 8 . F P* BIT 01-03 : CHARACTER FONT =4 8 t F P* BIT 04-07 : NATIONAL CHARACTER VARIATION =4 8 F P
0x257fbc…258150 Dummy {f00=0x0090, f01=0x0190, f02=» =4 8 R P* 9 P* 9 P IFT PARORD=1 9 PPRTPAR EQU * 9 6 P LDK A2,0 9 J & P LD A4,DWTPP,A6 GET OLD DWT VALUE 9 $ P LD A1,ECBCW,A8 GET CONTROL WORD 9 4 P RF(NN) PPAR10 NO NEW L/NCV SET UP IN CTRL WORD 9 P ECR A2,A1 9 P ANK A2,/FF 9
0x258150…2582e4 Dummy {f00=0x0090, f01=0x0190, f02=»AR15 NEW CPJ SET UP IN CTRL WORD =1 9 P LDR A3,A4 : , P ANK A3,/F0 : > P U =5(=1) : R PPPAR15 EQU * U =5(=1) : f & P ORR A2,A3 STORE NEW CPJ IN A2 =5 : P XRR A3,A4 U =5 : * P ANK A3,/F0 NEW AND OLD CPJ EQUAL ? =5 : P RF(Z) PPAR22 YES =5
0x2582e4…258478 Dummy {f00=0x0090, f01=0x0190, f02=» 2 P RF(NZ) PPAR25 NEW CPD SET UP IN CTRL WORD =1 ; P LDR A3,A4 ; : P ANK A3,/F GET CPD FROM DWT ; L P U =5(=1) ; p PPPAR25 EQU * U =5(=1) ; & P ORR A2,A3 STORE NEW CPD IN A2 =5 ; P XRR A3,A4 U =5 ; * P ANK A3,/F NEW AND OLD CPD EQUAL ? =
0x258478…25860c Dummy {f00=0x0090, f01=0x0190, f02=»ORE NEW PARAMETERS IN DWT ; | 8 P LDK A3,POPPAR LOAD PRINTER PRINTER PARAMETER ORDER < " P CF A5,ORDER AND SEND < ^ P LC A2,DWTPP,A6 < | P U =4(=2) < P CF A5,OUT SEND L/NCV < P LC A2,DWTPP+1,A6 < P U =9 < P CF A5,OUT SEND CPJ/CPD
0x25860c…2587a0 Dummy {f00=0x0090, f01=0x0190, f02=»AR70 ABL DISEND END REQUEST =9 < P XIF = & P EJECT = 2 P* = B P* = L * P* ORDER 27 : SET DOCUMENT PARAMETERS = V : P* CONTROL WORD CONTAINS TABLE NO OF GIVEN PARAMETERS = P* = P* = P IFT PARORD=1 = PDOCPAR EQU * = $ P LD A1,E
0x2587a0…258934 (5, 292) Dummy {f00=0x0090, f01=0x018e, f02=» = * P RF(G) DPAR80 DEFINED TABLE TOO SMALL > $ P SUK A4,10 ADJUST DOCTAB POINTER > 6 & P LD A3,ECBBA,A8 GET BUFFER ADDRESS > ^ P CF A5,BYTE1 GET DOC TYPE > P SUK A1,3 > P RF(P) DPAR80 ILLEGAL VALUE > P U =2 > P SC A2,DTTP03,A4 > $ P
0x258934…258ac8 Dummy {f00=0x0090, f01=0x018e, f02=» P RF(P) DPAR80 TOO LARGE ? P CF A5,DOC GET NO OF LINES ? $ P SUK A2,0 ? F P RF(Z) DPAR80 NO LINES ? X P CF A5,DOC GET BOTTOM LINES ? v P SUK A2,14 ? P RF(N) DPAR80 TOO SMALL ? P CF A5,DOC GET MARGIN ? P SUK A2,0 ? P RF(Z) DPAR8
0x258ac8…258c5c Dummy {f00=0x0090, f01=0x0190, f02=» ? P RF(Z) DPAR80 TOO SMALL @ P SUK A1,7 @ ( P RF(P) DPAR80 TOO LARGE @ : P SC A2,DTTP03,A4 @ Z P CF A5,BYTE1 GET LEFT MARGIN @ r P SUK A1,1 @ P RF(P) DPAR80 ILLEGAL VALUE @ P SLL A2,3 @ P ORS A2,DTTP03,A4 @ $ P CF A5,BYTE1 GET
0x258c5c…258df0 Dummy {f00=0x0090, f01=0x0190, f02=»ET HIGH PRINT PRESSURE @ P SUK A1,1 A P RF(P) DPAR80 ILLEGAL VALUE A 0 P SLL A2,6 A T P ORS A2,DTTP03,A4 A f " P LC* A1,ECBBA,A8 GET DOC TYPE A P ANK A1,/F A P RF(Z) DPAR60 DOC TYPE = 0 A P CF A5,DOC GET UPPER EDGE A P SUK A2,15 A
0x258df0…258f84 Dummy {f00=0x0090, f01=0x0190, f02=» P RF(Z) DPAR30 OK B P SUK A2,24 B P RF(N) DPAR80 TOO SMALL B . ( PDPAR30 LC* A1,ECBBA,A8 GET DOC TYPE B N P ANK A1,/F B z P SUK A1,2 B P RF(N) DPAR70 DOC TYPE = 1 B P RF(P) DPAR40 DOC TYPE = 3 B " P CF A5,DOC GET DOCUMENT WIDTH B P
0x258f84…259118 Dummy {f00=0x0090, f01=0x0190, f02=»ET UPPER LINES B ~ P SUK A2,0 C P RF(Z) DPAR80 TOO SMALL C ( P SUK A2,40 C H P RF(P) DPAR80 TOO LARGE C Z & PDPAR50 CF A5,DOC GET CENTER WIDTH C z P RF DPAR75 OK C 0 PDPAR60 LDK A2,0 DT=0 SET 4 LAST PARAMETERS=0 C P ADK A4,1 C P ST A2,D
0x259118…2592ac Dummy {f00=0x0090, f01=0x0190, f02=»DK A1,0 IND STATUS OK FOR RETURN CODE C P ABL DISEND END REQUEST =9 D . 8 PDPAR80 ABL DISIOE END REQUEST WITH REQUEST ERROR =9 D P P D 2 P* GET ONE BYTE FROM ECB BUFFER TO A1 AND A2 D $ P* CONVERTED TO HEXA FROM ASCII D P D " PBYTE1 LCR A2,A
0x2592ac…259440 Dummy {f00=0x0090, f01=0x0190, f02=»ECB BUFFER POINTER D P RTN A5 E P E * , P* GET TWO BYTES FROM ECB BUFFER TO A2 E 2 2 P* CONVERTED TO HEXA AND STORED IN DOC TABLE E b P E " PDOC LDK A1,0 CLEAR HEXA VALUE E P ADK A4,1 INC TABLE POINTER E , P LCR A2,A3 GET CHARACTER FROM
0x259440…2595d4 (5, 293) Dummy {f00=0x0090, f01=0x0190, f02=»1,10 UPDATE TENTH E P RB DOC10 F * PDOC20 ADK A3,1 INC ECB BUFFER POINTER F , 2 P LCR A2,A3 GET NEXT CHARACTER FROM ECB BUFFER F Z P CF A5,CHECK TEST IF NUMERIC F P ANK A2,/F F & P ADR A2,A1 ADD TO PREV HEXA VALUE F ( P SC A2,DTTP03,A4 STORE I
0x2595d4…259768 Dummy {f00=0x0090, f01=0x0190, f02=»K A2,/FF MASK OUT CHARACTER F P SUK A2,/30 G $ " P RB(N) DPAR80 TOO LOW ERROR =9 G 8 P SUK A2,9 G ^ $ P RB(P) DPAR80 TOO HIGH ERROR =9 G p " P ADK A2,/39 RESTORE CHARACTER G P RTN A5 G P 2 LINES DELETED =9 G P XIF G P EJECT G P
0x259768…2598fc Dummy {f00=0x0090, f01=0x0190, f02=»ORDER G l P CF A5,ORDER AND SEND H * P CF A5,EXECUT EXECUTE ORDER IN PRINTER H , $ P LDR A1,A2 GET PRINTER STATUS =9 H Z $ P ANK A1,1 TEST PRINTER STATUS =9 H " P RF(NZ) RDOC70 NOT OPERABLE =9 H ( P CM DWTLN,A6 RESET LINE COUNTERS =9 H 2 P CM DWTPPD,A
0x2598fc…259a90 Dummy {f00=0x0090, f01=0x018e, f02=» REL=9 U =9 H , P LDK A1,DOCOUT INDICATE DOCUMENT OUT =9 I P XIF U =9 I D $ PRDOC70 ABL DISEND END REQUEST =9 I V P 68 LINES DELETED =9 I ~ P EJECT I P* I P* S U B R O U T I N E S I P* I P* I P I P* I P* O R D E
0x259a90…259c24 Dummy {f00=0x0090, f01=0x0190, f02=» I z P CF A5,OUTPUT J P LDR A2,A3 J $ P RF OUT10 SEND PRINTER ORDER =9 J 0 P U =9 J X P J h P* J p P* E X E C U T E J z L P* SEND EXECUTE CHAR (/03) TO PRINTER AND END OF BLOCK CHAR TO COM. =7 J P* J PEXECUT EQU * J 0 P LDK A
0x259c24…259db8 Dummy {f00=0x0090, f01=0x018e, f02=»,STREG GET STATUS CHARACTER J , P SC A2,DWTST+1,A6 SAVE IN DWT STATUS =9 K $ P RTN A5 K T P* K d 6 P* E R R O R =9(=8) K n 6 P* SEND RESET CODE (/0C) TO PRINTER =9(=8) K P* K PERROR EQU * K P LDK A2,
0x259db8…259f4c Dummy {f00=0x0090, f01=0x0190, f02=» P* L P* 0 U T L P* ADD CONST. AND SEND L P* L @ POUT EQU * U =3 L J P ANK A2,/7F U =3 L ` P ADK A2,/10 U =3 L x P CWK A2,/7F U =1 L 4 P RF(NG) OUT10 CHARACTER NOT GREATER THAN /7F =1 L . P LDK A2,/7F IF GREATER SET CHAR TO /7F =
0x259f4c…25a0e0 Dummy {f00=0x0090, f01=0x0190, f02=»P L P* M 0 P* INTERRUPT HANDLER: PROCESS OF INTERRUPT M P* M H P* M R P* M PIHTP EQU * M f P LDR A1,A1 M x ( P RF(NZ) IHTP60 LINE NOT OPERABLE =7 M P 17 LINES DELETED =9 M 4 PIHTP40 ABL LDREG RETURN FROM CF A5,OUTPUT/STREG M
0x25a0e0…25a274 (5, 294) Dummy {f00=0x0090, f01=0x0190, f02=» M l , P ABL(NZ) TDISP NO, DISPATCH ELSE =9(=7) N P XIF U =7 N 8 * P LDK A1,1 INDICATE NOT OPERABLE =9(=7) N J & P ABL DISEND END OF REQUEST =9(=7) N x P EJECT N P* N P* R C T P N P* N 2 P* THIS IS THE RECOVERY ROUTINE FOR THE DRIVER N
0x25a274…25a408 Dummy {f00=0x0090, f01=0x0190, f02=»RAM LOADING SYSTEM PARAMETERS ARE SET UP IN DWT N 6 P* TEST STRING IS SENT TO PRINTER TO GET SYNCRONISM O 8 @ P* A FIXED FORMATTED RECOVERY STRING IS THEN SENT TO PRINTER O r @ P* THIS STRING CONTAINS THE ACTUAL PARAMETERS AND THE ACTUAL O P* STATUS FOR T
0x25a408…25a59c Dummy {f00=0x0090, f01=0x0190, f02=»SAVE8 SAVE REG. A1-A8 =9 O P XIF U =9 P P IFT CPU852=0 U =9 P 2 " P MSR 8,A15 SAVE REG. A1-A8 =9 P L P XIF U =9 P r P IFT REL=8 U =7 P 6 P LDKL A1,/8100 ADJUST DWTCHP TO MATCH FINAL PRT =7 P P ORRS A1,A6 U =7 P P XIF U =7 P ( P LD A1,D
0x25a59c…25a730 Dummy {f00=0x0090, f01=0x0190, f02=» ( P LDKL A1,/7FFF INDICATE DEVICE BUSY Q P ANS A1,DWTST,A6 Q 0 P =8 Q H P LD A1,DWTPP,A6 Q V 6 P RF(N) RCTP08 NOT SYSTEM START UP RECOVERY =9(=2) Q n P 5 LINES DELETED =9 Q , P LD A3,STDPP SET UP ST PR PAR IN DWT =2 Q P ST A3,DWTPP,A6 U
0x25a730…25a8c4 Dummy {f00=0x0090, f01=0x0190, f02=» =2 Q x P STR A1,A3 U =2 R P SUK A3,2 U =2 R $ P SUK A4,2 U =2 R : P RB(NN) RCTP05 U =2 R P : PRCTP08 LDK A3,POTEST LOAD PRINTER ORDER TEST STATUS =9 R l P CF A5,ORDER AND SEND =9 R . P CF A5,EXECUT EXECUTE ORDER IN PRINTER =9 R : PRCTP10 LDK A
0x25a8c4…25aa58 Dummy {f00=0x0090, f01=0x0190, f02=» LINES DELETED =9 R PRCTP20 ECR A2,A3 S P U =4(=2) S 2 P CF A5,OUT SEND L/NCV S F P LDR A2,A3 S d P U =9 S v P CF A5,OUT SEND CPJ/CPD S , P LC A2,DWTAPJ,A6 GET ACTUAL POS JOURNAL S P CF A5,OUT AND SEND S , P LC A2,DWTAPD,A6 GET A
0x25aa58…25abec Dummy {f00=0x0090, f01=0x0190, f02=» POS BACK S ~ P ANK A2,/40 MASK OUT MSB T P CF A5,OUT SEND AP6 T 2 ( P LC A2,DWTALN,A6 GET ACTUAL LINE NO T N P CF A5,OUT AND SEND T z P 10 LINES DELETED =9 T PRCTP40 LDK A4,10 T P LDR A3,A6 T P ADK A3,DWTDP T & PRCTP50 LCR A2,A3 GET
0x25abec…25ad80 Dummy {f00=0x0090, f01=0x0190, f02=»R T r ( P RB(NZ) RCTP50 WHOLE TABLE NOT SENT U 4 PRCTP60 CF A5,EXECUT EXECUTE RECOVERY IN PRINTER U 6 & P ANK A2,/40 TEST PRINTER STATUS =9 U n * P RF(Z) RCTP70 DOCUMENT STILL INSIDE =9 U ( P CM DWTLN,A6 RESET LINE COUNTERS =9 U 2 P CM DWTPPD,A6 RESET PR
0x25ad80…25af14 (5, 295) Dummy {f00=0x009d, f01=0x400e, f02=»ND U @ V
0x25af14…25b0a8 Dummy {f00=0x009d, f01=0x2008, f02=» W z P END V @ V
0x25b0a8…25b23c Dummy {f00=0x009d, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( , ( !@ ! 8! P ! P P DISIOE , ( =
0x25b23c…25b3d0 Dummy {f00=0x009d, f01=0x0190, f02=» &_. 8$ T B 1 ! , ( B B U $ ! T _ 0 , ( U D ! T _ $$ X" X& ` GETCHR , ( X* C X`" E , ( P 8'0P E T ! T 9 , ( 5
0x25b3d0…25b564 Dummy {f00=0x009d, f01=0x0190, f02=» X &" r * & X )# C V C ! , ( Y B ! Y _^ C @ , ( " _ " $ P X ' p , ( @ X ] ! , ( B 8! T ! ! ! , ( !
0x25b564…25b6f8 Dummy {f00=0x009d, f01=0x0190, f02=» }@ ! W Y &_ Y & B , ( Y )U X ) T T W V X ' 0 , ( Y )U P R ! _ R ` , ( _ ! Y ' " ! , ( 8!0T 8 !@P ! $ P , ( D ! !
0x25b6f8…25b88c Dummy {f00=0x009d, f01=0x0190, f02=» " X &" r DWTST LDREG " , ( c Y )Q Y > X Z2<BR > 2 , ( ? Y 8" P ! b , ( @ ! T 8" P d ! Y , ( !" ! *0 ! X ! * & Y & Z
0x25b88c…25ba20 Dummy {f00=0x009d, f01=0x0190, f02=» VW F v , ( # X $ X ! _ X $ X , ( = 8! P ! _( X & ! ! D , ( ]! Y _D X " X &" Y )U t , ( y W ! ! ! , ( @ Y 4 B U , (
0x25ba20…25bbb4 (5, 296) Opaque[0x194]
0x25bbb4…25bd48 # DirEnt {nam=»DRTW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1658, f03=0x0000}
0x25bbb4…25bd48 IdxSect {
0x25bbb4…25bd48 f00 = 0x00b2 // 0x25bbb4 @0x0
0x25bbb4…25bd48 f01 = 0x000c // 0x25bbb6 @0x2
0x25bbb4…25bd48 gno = [ // 0x25bbb8 @0x4
0x25bbb4…25bd48 [0x00]: C0x00b2.0x3.0
0x25bbb4…25bd48 [0x01]: C0x00b3.0x0.0
0x25bbb4…25bd48 [0x02]: C0x00b3.0x1.0
0x25bbb4…25bd48 [0x03]: C0x00b3.0x2.0
0x25bbb4…25bd48 [0x04]: C0x00b3.0x3.0
0x25bbb4…25bd48 [0x05]: C0x00b4.0x0.0
0x25bbb4…25bd48 ]
0x25bbb4…25bd48 }
0x25bd48…25bedc Dummy {f00=0x00b2, f01=0x0190, f02=» 2 P IDENT DRTW01 REL 10.0 80-03-14 870105041000 P : P B P J P R 6 P************************************************** Z P* $ P* PHILIPS TERMINAL SYSTE PTS P* , P* DRTW01 = DRIVER TYPEWRITER PTS 6862 P*
0x25bedc…25c070 Dummy {f00=0x00b2, f01=0x0190, f02=»HANDLES INPUT AND OUTPUT TO TYPEWRITERS P* PTS 6862 0 P* D P* N P EJECT X P* f P* p P*********** z P* ENTRIES * P*********** P* P ENTRY TWAD ADDRESS BLOCK P ENTRY IHTW P ENTRY TWON
0x25c070…25c204 Dummy {f00=0x00b2, f01=0x0190, f02=»R v P EXTRN TDISP DISPATCH $ P EXTRN DISEND DISPATCH AND ENDIO ( * P EXTRN SETIME SET TIME BEFORE TIME-OUT P . P EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK ~ EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS
0x25c204…25c398 Dummy {f00=0x00b2, f01=0x0190, f02=»EA A5 | & ! EXTRN DWTSB1 STACK BASE 1 IN DWT & ! EXTRN DWTSB2 STACK BASE 2 IN DWT 8 P EXTRN DWTTP TIMER POINTER b * P EXTRN INTSAV SAVE AREA LAST INTRRUPT * P EXTRN PFPOST PWF POST PROCESSING FLAG P EJECT P* P* P******
0x25c398…25c52c Dummy {f00=0x00b2, f01=0x0190, f02=»EQU /4280 CIO-HALT PTWINR EQU /4A00 INPUT PTWOTR EQU /4200 OUTPUT 8 PTWSST EQU /4AC0 SENSE STATUS V P* z P* P EJECT P* P* P************* P* CONSTANTS * P************* P* P* PCR
0x25c52c…25c6c0 Dummy {f00=0x00b2, f01=0x0190, f02=»TIME EQU 300 TIME BEFORE TIME-OUT P* * P* 4 P************************ > P* CONDITIONAL ASSEMBLY* ^ P************************ ~ P* P* PX:A EQU 0 PX:B EQU 0 PX:C EQU 60 PX:D EQU 10 PX:E EQU 6
0x25c6c0…25c854 (5, 297) Dummy {f00=0x00b3, f01=0x0190, f02=»QU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. H P* v PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQ
0x25c854…25c9e8 Dummy {f00=0x00b3, f01=0x0190, f02=»* | P********************* P* ( P* 2 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART < P* p P IFT MMUPAG=0 z PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF P* PDWTH
0x25c9e8…25cb7c Dummy {f00=0x00b3, f01=0x0190, f02=» DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE . P DATA DEVIND DEVICE INDEX Z PTWAD EQU * | P DATA TWA ACTIVATION PART " P DATA 0 ABORT ROUTINE ADDRESS P EJECT P* P* 2 P* ACTIVATION P
0x25cb7c…25cd10 Dummy {f00=0x00b3, f01=0x018e, f02=»BL(Z) IHTW50 REQUESTED LENGTH =0 P* ( P* 2 P LDR A2,A7 COPY ORDER < P RF(NP) TWAERR REQUEST ERROR Z P SUK A2,4 ~ P RF(Z) TWAERR REQUEST ERROR P RF(N) TWAIN INPUT REQUEST P SUK A2,2 " P RF(NP) TWAOUT OUTPUT REQUEST
0x25cd10…25cea4 Dummy {f00=0x00b3, f01=0x0190, f02=» & P LD A2,DWTTP,A6 GET TIMER POINTER * P RF(Z) TWA010 NO TIMING ON THIS DEVICE 2 P LDR A1,A6 SAVE DWT-ADDRESS ` P CF A15,SETIME P DATA TWTUT,TIME , P ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS P XIF PTWA010 EQU * P IFT P
0x25cea4…25d038 Dummy {f00=0x00b3, f01=0x018e, f02=»TST,A6 RESET POINTER P LDKL A2,-2 " P ST A2,10,A8 INDICATE POWER UP 0 P ABL IHTW35 PERFORM ENDIO V P XIF x PTWA020 LDK A2,/21 P* P* ( PREAD CF A5,STRTIO EXECUTE CIO-START P RF RED030 & PRED020 CF A5,STREG SAVE
0x25d038…25d1cc Dummy {f00=0x00b3, f01=0x0190, f02=» P LDR A1,A1 P RF(NZ) RED037 P XIF , P SUK A7,1 8 P RF(P) RED050 ORDERS 02/03 J P* l P* v 0 PRED035 CF A5,STORE STORE CHARACTER IN BUFFER P CW A3,4,A8 $ P RB(L) RED020 GET NEXT CHARACTER P LDR A7,A7 P RF(Z)
0x25d1cc…25d360 Dummy {f00=0x00b3, f01=0x0190, f02=» P EJECT P PRED040 EQU * P . P IFT TIMOUT=1 6 P LD A7,DWTOR,A6 GET ORDER L P ANK A7,/FF MASK ORDER n P CWK A7,4 P RF(G) RED045 WRITE ORDER " P LD A4,DWTTP,A6 TIMER POINTER * P RF(Z) RED045 NO TIMIMG ON THIS DE
0x25d360…25d4f4 (5, 298) Dummy {f00=0x00b3, f01=0x0190, f02=»PERFORM TENDIO P EJECT P* $ P* . P* 8 P* ORDERS 02,03 B P* Z P* d PRED050 EQU * n " P LD A1,10,A8 GET CONTROL WORD P RF(Z) RED080 NO KEYTABLE " P LCR A4,A1 GET NUMBER OF KEYS P ANK A4,/FF " P ADR
0x25d4f4…25d688 Dummy {f00=0x00b3, f01=0x0190, f02=»T ADDRESS ~ $ P CCR A2,A1 CHECK IF IN KEYTABLE " P RB(NE) RED060 NOT IN KEYTABLE : P ADR A4,A4 DOUBLE INDEX ` , P ST A4,10,A8 STORE INDEX IN CONTROL WORD , PRED070 CF A5,STORE STORE KEY IN KEYTABLE P RB RED040 EXECUTE CIO-HALT PRED0
0x25d688…25d81c Dummy {f00=0x00b3, f01=0x0190, f02=» P RF(E) RED110 CLEAR P EJECT $ P* 2 P* < ( P* CHARACTER NOT FOUND IN KEYTABLE F P* r P* | P* $ PRED090 LDR A4,A2 COPY CHARACTER P ANK A4,/FF MASK P LDR A1,A7 P SUK A1,1 P RF(Z) RED100 ORDER
0x25d81c…25d9b0 Dummy {f00=0x00b3, f01=0x0190, f02=»D110 P* P* PRED100 SUK A4,/20 P RF(N) CODERR LESS THAN /20 : P SUK A4,/3F ^ $ P RF(NP) RED110 CORRECT CHARACTER r P* P* $ PCODERR LDK A1,4 CODE CHECK ERROR P ORS A1,8,A8 . P CF A5,STORE STORE CHARACTER I
0x25d9b0…25db44 Dummy {f00=0x00b3, f01=0x0190, f02=»SP,A6 P RF(E) RED120 BACKSPACE P CC A2,TWCLR,A6 . P RB(NE) RED035 F P* P* f P LDK A3,0 CLEAR ECB-BUFFER p " P RB RED020 GET NEXT CHARACTER P* P* PRED120 SUK A3,1 BACKSPACE & P RB(NN) RED020 GET NEXT CH
0x25db44…25dcd8 Dummy {f00=0x00b3, f01=0x0190, f02=»* W R I T E P* 4 P* ORDERS 05 AND 06: BASIC AND STANDARD WRITE P* X P* b PWRITE EQU * l PTWAOUT EQU * P INH P LDK A4,0 P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START P* P* P CWK A7,
0x25dcd8…25de6c Dummy {f00=0x00b3, f01=0x0190, f02=» ANK A3,/FF P SUK A3,/2B P RF(Z) WRT030 NO CR OR LF ( P* J P* T , P ST A4,DWTHP,A6 HEAD POSITION INDICATOR ^ P LDK A4,2 $ P LDK A2,CR SEND CARRIAGE RETURN P EJECT P* P* P* $ PWRT010 CF A5,OTR SEN
0x25de6c…25e000 Dummy {f00=0x00b3, f01=0x0190, f02=» PWRT020 SUK A3,5 P RB(Z) WRT015 SEND SECOND LF P SUK A3,1 @ P RF(NZ) WRT030 R P LDK A2,/0C SEND FORM FEED j P RB WRT010 " PWRT030 LDK A3,2 BUFFER POINTER P RF WRT050 GET CHARACTER P* P* P* PWRT040
0x25e000…25e194 (5, 299) Dummy {f00=0x00b3, f01=0x0190, f02=»WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER P LDR A1,A1 : P RB(Z) RED040 LAST CHARACTER N P CWK A7,5 r P RB(Z) WRT040 BASIC WRITE P* P* ( P LDR A1,A2 ORDER 06: STANDARD WRITE P ANK A1,/FF P SUK A1,/07
0x25e194…25e328 Dummy {f00=0x00b3, f01=0x0190, f02=»SS THAN /20 P SUK A1,/3F " P RB(NP) WRT040 BETWEEN /20-/5F ( P SUK A1,/20 N " P RF(NP) WRT060 BETWEEN /60-/7F b P* P* PERRCOD LDK A1,4 P ORS A1,8,A8 " P RB WRT050 GET NEXT CHARACTER P* P* PWRT060
0x25e328…25e4bc Dummy {f00=0x00b3, f01=0x0190, f02=» PWRTTAB EQU * 2 P CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER P LDR A4,A2 COPY R 4 P CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER j P ANK A2,/F P ANK A4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A P SUK A4,1 P R
0x25e4bc…25e650 Dummy {f00=0x00b3, f01=0x0190, f02=» SPACES TO BE SENT | , P RB(NP) WRT050 NO SPACES SHOULD BE SENT P LDR A4,A2 J " PTAB030 LDK A2,/20 SEND BALNKS $ PTAB040 CF A5,OTR SEND CHARACTER ( P IM DWTST,A6 INCREMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND ANOTHER SPAC
0x25e650…25e7e4 Dummy {f00=0x00b3, f01=0x018e, f02=» r " P RB WRT050 GET NEXT CHARACTER P EJECT . P* < P* F P* RECOVERY ROUTINE P P* l P* v P* PTWON EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P
0x25e7e4…25e978 Dummy {f00=0x00b3, f01=0x0190, f02=» & P ORS A1,DWTST,A6 INDICATE POWER UP P XIF 2 P LD A1,DWTST,A6 > P RF(N) EXIT DEVICE NOT BUSY V PTWON10 LD A3,DWTA3,A6 z P LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB2
0x25e978…25eb0c Dummy {f00=0x00b3, f01=0x0190, f02=» P INH P LDK A2,0 $ P CF A5,STRTIO EXECUTE CIO-START " P LDK A2,CR J P LDK A3,0 P LD A4,DWTHP,A6 n P ADK A4,1 $ P RB TAB040 REPRINT LAST REQUEST P* PTWON20 LDK A1,TPERR ORDER 05 P ABL DISEND P*
0x25eb0c…25eca0 Dummy {f00=0x00b3, f01=0x0190, f02=» P* PIHTW EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 H & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P LDKL A6,DWTW01 P
0x25eca0…25ee34 (5, 300) Dummy {f00=0x00b3, f01=0x0190, f02=»ST P EXR A2 EXECUTE SST P RF(A) IHTW30 ENDIO & P LD A7,DWTOR,A6 GET ORDER B P ANK A7,/FF d P SUK A7,4 x P RF(P) IHTW30 " P LDR* A2,A6 GET DEVICE ADDRESS P ORKL A2,TWINR P EXR A2 EXECUTE INR $ P ANK A2,/7F MA
0x25ee34…25efc8 Dummy {f00=0x00b3, f01=0x0190, f02=»G ON THIS DEVICE z P LDKL A1,-TIME P ST* A1,DWTTP,A6 . P XIF F P* R P* PIHTW30 LDK A1,0 f P RF LDREGE RESTORE REGISTERS ~ P P PIHTW35 EQU * P IFT POWUP+TIMOUT=2 P " P LD A1,DWTTP,A6 TIMER POINTER
0x25efc8…25f15c Dummy {f00=0x00b3, f01=0x0190, f02=»TW40 EQU * P* P* , PIHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH & PIHTW55 SUK A7,4 V P RF(NP) IHTW60 READ ORDER n P* P* $ P LC A3,DWTBC,A6 GET BYTE COUNTER * P ADS A3,DWTHP,A6 UPDATE HEAD POSITION P LDK A3,0
0x25f15c…25f2f0 Dummy {f00=0x00b3, f01=0x0190, f02=» A1,2 P SRL A1,1 ! P ST A1,10,A8 ! P XIF ! 4 P LDK A1,0 ! @ P ABL DISEND PERFORM TENDIO ! R P* ! t P* ! ~ P ! PSKIP LDR* A2,A6 ! P ORKL A2,TWSST ! P EXR A2 SST ! P RF(A) EXIT ! P LDR* A2,A6 ! P ORKL A2,TWHLT
0x25f2f0…25f484 Dummy {f00=0x00b3, f01=0x0190, f02=»STRTIO LDKL A1,TWSTRT EXECUTE CIO-START ! P RF EXECIO " 0 ( PHLTIO LDKL A1,TWHLT CIO-HALT " B P RF EXECIO " n " POTR LDKL A1,TWOTR OTR " P* " P* " PEXECIO LD A7,PFPOST " P RF(NZ) STREG PFINIT PENDING " P ORR* A1,A6 GE
0x25f484…25f618 Dummy {f00=0x00b3, f01=0x0190, f02=»ICATE INTERRUPTS ALLOWED " | $ P ST A3,DWTA3,A6 SAVE REGISTER A3 # $ P ST A4,DWTA4,A6 A4 # H $ P ST A5,DWTA5,A6 A5 # p PEXIT ABL TDISP # PHALT ST A2,DWTA2,A6 # " P CF A5,HLTIO EXECUTE CIO-HALT # P LD A2,DWTA2,A6 # P
0x25f618…25f7ac Dummy {f00=0x00b3, f01=0x0190, f02=» P* $ P* $ ( PSTORE LD A4,2,A8 GET BUFFER ADDRESS $ $ P ADR A4,A3 GET CHARACTER ADDRESS $ D P SCR A2,A4 STORE CHARACTER $ l $ P ADK A3,1 INCREMENT BUFFER INDEX $ P RTN A5 $ P* $ P* $ P* $ P IFT TIMOUT=1 $ P* $ P* $
0x25f7ac…25f940 Dummy {f00=0x00b3, f01=0x0190, f02=»DE $ r P XIF % P* % P* % P EJECT % * P* % 8 P* % B P* L D R E G E % L P* % d 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 % n P* % P* % PLDREGE EQU * % & P LD A3,DWTA3,A6 RELOAD REGISTER A3 % & P LD A4,DWTA4
0x25f940…25fad4 (5, 301) Dummy {f00=0x00b4, f01=0x0190, f02=» P RTN A5 RETURN VIA A5-STACK & P EJECT & ( P* & 6 P* & @ P* G E T C H R & J P* & b 8 P* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER & l P* & P* ON ENTRY: & P* & P* A3 = BUFFER INDEX & P* A8 = ECB-ADDRESS &
0x25fad4…25fc68 Dummy {f00=0x00b4, f01=0x0190, f02=» IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH & P* ' J P* ' T PGETCHR EQU * ' ^ P LD A1,4,A8 REQUESTED LENGTH ' r P SUR A1,A3 ' * P RF(NP) GCH010 LAST CHARACTER REACHED ' " P LD A1,2,A8 GET BUFFER ADDRESS ' P ADR A1,A3 '
0x25fc68…25fdfc Dummy {f00=0x00b4, f01=0x0190, f02=»EFFECTIVE LENGTH ' x P RTN A5 ( P EJECT ( ( P* ( 6 ( P* DEVICE WORK TABLE FOR TYPEWRITER ( @ P* ( l P* ( v PDWTW01 EQU * TABLE ENTRY ( " P DATA /0010 CHANNEL PARAMETER ( 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY ( P DATA 0 ECB AD
0x25fdfc…25ff90 Dummy {f00=0x00b4, f01=0x0190, f02=»TOR ( t P DATA 0 TERMINAL QUEUE ) IFT MMUPAG=1 ) * & " DATA 0 SAVE AREA USER ECB ADDRESS ) @ DATA DEVECB MMU ECB ADDRESS ) j XIF ) P DATA 0 OUTPUT QUEUE LINK ) P DATA 0 SAVE AREA FOR A3 ) P DATA 0 SAVE AREA FOR A4 ) P DATA 0 SAVE
0x25ff90…260124 Dummy {f00=0x00b4, f01=0x018e, f02=»KEY ) p P RIGHT BYTE CANCEL KEY * & P DATA /0D00 LEFT BYTE STANDARD EOR * , P RIGHT BYTE DOUBLE ZERO * V " P DATA 0 HEAD POSITION POINETR * x P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=1 *
0x260124…2602b8 Dummy {f00=0x00b4, f01=0x4036, f02=» * P* + P* + P* + P END + &@ + 20 LEFT BYTE STANDARD EOR * , P RIGHT BYTE DOUBLE ZERO * V " P DATA 0 HEAD POSITION POINETR * x P DATA 0 SAVE AREA FOR A2 * P* * P EJECT DRTW01 * P* * P* * P IFT MMUPAG=1 *
0x2602b8…26044c Dummy {f00=0x00b4, f01=0x2008, f02=» ,
0x26044c…2605e0 Dummy {f00=0x00b4, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x2605e0…260774 (5, 302) Opaque[0x194]
0x260774…260908 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1250, f03=0x0000}
0x260774…260908 IdxSect {
0x260774…260908 f00 = 0x0092 // 0x260774 @0x0
0x260774…260908 f01 = 0x0022 // 0x260776 @0x2
0x260774…260908 gno = [ // 0x260778 @0x4
0x260774…260908 [0x00]: C0x0092.0x2.0
0x260774…260908 [0x01]: C0x0093.0x0.0
0x260774…260908 [0x02]: C0x0093.0x1.0
0x260774…260908 [0x03]: C0x0093.0x2.0
0x260774…260908 [0x04]: C0x0093.0x3.0
0x260774…260908 [0x05]: C0x0094.0x0.0
0x260774…260908 [0x06]: C0x0094.0x1.0
0x260774…260908 [0x07]: C0x0094.0x2.0
0x260774…260908 [0x08]: C0x0094.0x3.0
0x260774…260908 [0x09]: C0x0095.0x0.0
0x260774…260908 [0x0a]: C0x0095.0x1.0
0x260774…260908 [0x0b]: C0x009d.0x3.0
0x260774…260908 [0x0c]: C0x009e.0x2.0
0x260774…260908 [0x0d]: C0x009f.0x1.0
0x260774…260908 [0x0e]: C0x009f.0x2.0
0x260774…260908 [0x0f]: C0x009f.0x3.0
0x260774…260908 [0x10]: C0x00a0.0x0.0
0x260774…260908 ]
0x260774…260908 }
0x260908…260a9c Dummy {f00=0x0092, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-03-14 870105041000 P : P* B 2 P********************************************** L P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK P* P* P* P*
0x260a9c…260c30 Dummy {f00=0x0092, f01=0x0190, f02=»FOUR DAISY n . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON D & P* MULTIPLEX OR PROGRAMMED CHANNEL x P* P* P EJECT DRFD01 P* P* ORDERS: P* P* /00 TEST STATUS
0x260c30…260dc4 Dummy {f00=0x0092, f01=0x0190, f02=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ H P* /15 PHYSICAL WRITE f P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x260dc4…260f58 Dummy {f00=0x0092, f01=0x0190, f02=» A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER 6 P* A8 ECB-ADDRESS L P EJECT DRFD01 h P* P*********** P* * P* ENTRIES * P* * P*********** P* $ P ENTRY FDADR AC
0x260f58…2610ec Dummy {f00=0x0092, f01=0x0190, f02=»CT DRFD01 P* P************* P* * 4 P* EXTERNALS * J P* * ` P************* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERF
0x2610ec…261280 Dummy {f00=0x0092, f01=0x018e, f02=»TO DWT AND SET NVL v . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS L EXTRN DWTECB ECB ADDRESS h " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXT
0x261280…261414 (5, 303) Dummy {f00=0x0093, f01=0x0190, f02=» ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER 0 & P EXTRN INTSAV INTERRUPT SAVE AREA L & P EXTRN PFPOST PWF POST PROC. FLAG v & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/C
0x261414…2615a8 Dummy {f00=0x0093, f01=0x0190, f02=»TIVE LENGTH z $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 < P EJECT DRFD01 d P* | P************************ P* * P* CONDITIONAL ASSEMBLY * P* * P**
0x2615a8…26173c Dummy {f00=0x0093, f01=0x0190, f02=»X:A EQU 1 PCHAN EQU 1 P* $ 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT . ( P* IS OBTAINED BY SETTING TOSS EQU 1. d P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x26173c…2618d0 Dummy {f00=0x0093, f01=0x0190, f02=» * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 2 PMMUPAG EQU 1 < P* P P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT DRFD01
0x2618d0…261a64 Dummy {f00=0x0093, f01=0x0190, f02=»DED BY SETTING OPCLOS =1 h P* PX:D EQU 0 * POPCLOS EQU 0 < P* P P EJECT DRFD01 Z P* r P* | P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF P* P IFT MMUPAG=1
0x261a64…261bf8 Dummy {f00=0x0093, f01=0x0190, f02=»ND EQU 10 P* P EJECT DRFD01 P* 4 P************* > P* * T P* CONSTANTS * j P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS (
0x261bf8…261d8c Dummy {f00=0x0093, f01=0x0190, f02=»923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION & & PEOE EQU 34 END OF EXTENT POSITION R $ PEOD EQU 74 END OF DATA POSITION | PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDERS P* $ PDIXTAB EQU *
0x261d8c…261f20 Dummy {f00=0x0093, f01=0x0190, f02=» * P* TABLES * P* * P********** 0 P* B P IFF CHAN+IBM=0 L ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE d P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MMU BUFFER P XIF P* P
0x261f20…2620b4 (5, 304) Dummy {f00=0x0093, f01=0x0190, f02=»D01 P* P*************** P* * . P* TEST STATUS * F P* * ^ P*************** v P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR P XIF
0x2620b4…262248 Dummy {f00=0x0093, f01=0x0190, f02=»7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 $ P* 8 P IFF TOSS+IBM=0 B " P CF A5,VO:NAM GET VOLUME NAME Z , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P* P
0x262248…2623dc Dummy {f00=0x0093, f01=0x0190, f02=» P* ACTIVATION * P* * P************** 4 P* J PFDAD EQU * ACTIVATION ENTRY T P IFT MMUPAG=1 x P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,A6 S
0x2623dc…262570 Dummy {f00=0x0093, f01=0x018e, f02=» P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER $ P* N P LDR A1,A7 ORDER X P SUK A1,/21 p P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********* P
0x262570…262704 Dummy {f00=0x0093, f01=0x0190, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* : " P LDKL A1,/8000 MASK FOR BIT 0 D & P ORS A1,SPDLCI SET OPEN/CLOSE BIT j P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* * P
0x262704…262898 Dummy {f00=0x0093, f01=0x0190, f02=»* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT B P* n POPEN10 EQU * x 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DRIVE TO B
0x262898…262a2c Dummy {f00=0x0093, f01=0x0190, f02=»DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME , P ABL TDISP EXIT ^ P* v POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE ( P RF DI
0x262a2c…262bc0 Dummy {f00=0x0093, f01=0x018e, f02=»FD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK , P* P IFT IBM+TOSS=2 f P AN A2,DWTLAB,A6 ~ ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P* P E
0x262bc0…262d54 (5, 305) Dummy {f00=0x0093, f01=0x0190, f02=» " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 * P ABL(NP) LOAD LOAD/UNLOAD < P XIF ^ P* j P IFT IBM=1 t P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL READ P SUK A3,3 P RF(Z)
0x262d54…262ee8 Dummy {f00=0x0093, f01=0x0190, f02=» n P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK A3,7 6 P ABL(NP) LOAD LOAD/UNLOAD H P XIF j P* v PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF P* P IFT
0x262ee8…26307c Dummy {f00=0x0093, f01=0x0190, f02=»REQERR ABL DISIOE REQUEST ERROR P* ( 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT 2 P LDKL A1,/8008 RETURN CODE f P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P EJECT DRFD01 P* P* INPU
0x26307c…263210 Dummy {f00=0x0093, f01=0x018e, f02=»1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF 4 P* @ P LD A3,ECBRL,A8 J 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL b ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL P CWK A3,/01FF
0x263210…2633a4 Dummy {f00=0x0093, f01=0x0190, f02=» P LD A4,DWTFIB,A6 P RF(NZ) INTES5 IBM-DISC P XIF < P* H P IFT TOSS=1 R P LDR A4,A3 f 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS x 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P SLL A2,1 TRANSFER TOSS-SEC. NO
0x2633a4…263538 Dummy {f00=0x0093, f01=0x018e, f02=»ECTOR NUMBER v P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC 8 P RB(NN) REQERR REQUEST ERROR P P ADR A4,A3 t " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC
0x263538…2636cc Dummy {f00=0x0093, f01=0x0190, f02=» P ANK A2,/30 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS P XIF T P* ` P EJECT DRFD01 j P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P IFT CHAN=0 P LD A2,DWT:BF,A6
0x2636cc…263860 Dummy {f00=0x0093, f01=0x0190, f02=»05 FOUR PHYS. SEC. IO P* PFD:003 SUK A2,128 ( P SUK A4,1 B P ADK A3,1 T P RB(NZ) FD:003 f P* | PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO . P ST A3,DWTNOS,A6
0x263860…2639f4 (5, 306) Dummy {f00=0x0093, f01=0x0190, f02=»D A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 $ , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA < P LDR A3,A2 l P RF(NN) FD:009 ~ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01 P*
0x2639f4…263b88 Dummy {f00=0x0093, f01=0x0190, f02=»,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 0 P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF v P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS
0x263b88…263d1c Dummy {f00=0x0093, f01=0x0190, f02=»Z) FD:060 BASIC READ P SUK A1,4 P RF(Z) FD:015 BASIC WRITE . P SUK A1,12 P P RF(Z) FD:060 PHYSICAL READ b P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU * P
0x263d1c…263eb0 Dummy {f00=0x0093, f01=0x0190, f02=» & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! . P ADK A4,4 ! X " PFD:015 EQU * BASIC WRITE ORDER ! j P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P IFT TOSS+IB
0x263eb0…264044 Dummy {f00=0x0093, f01=0x018e, f02=»D A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ! ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " 6 P LDR A7,A3 REQUESTED LENGTH " b P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU " ( P T
0x264044…2641d8 Dummy {f00=0x0093, f01=0x018e, f02=» P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # " PFD:019 EQU * # V P XIF # j P* # v P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3 NO OF C
0x2641d8…26436c Dummy {f00=0x0093, f01=0x0190, f02=» " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ * P RF(Z) FD:020 $ X P LDK A3,/40 INDICATE ERROR $ n , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT DRF
0x26436c…264500 Dummy {f00=0x0093, f01=0x0190, f02=»******* $ P* % PFD:060 CF A5,BIO % P* % 2 P IFT MMUPAG=1 % < P IFT CHAN=0 % R P IFT TOSS+IBM=2 % f P LD A1,DWTFIB,A6 % ~ P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM
0x264500…264694 (5, 307) Dummy {f00=0x0094, f01=0x0190, f02=»FFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & F P XIF & z P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6
0x264694…264828 Dummy {f00=0x0094, f01=0x0190, f02=»M=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' $ P XIF ' B P* ' N P IFT IBM=1 ' X P IFT MMUPAG=0 ' j ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII ' P
0x264828…2649bc Dummy {f00=0x0094, f01=0x0190, f02=»S+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( ( P XIF ( H P* ( T P IFT MMUPAG=1 ( ^ P IFF CHAN+IBM=0 ( t 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 REQUESTE
0x2649bc…264b50 Dummy {f00=0x0094, f01=0x0190, f02=»E ( n 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) @ P XIF ) j PFD:100 EQU * ) v P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* * )
0x264b50…264ce4 Dummy {f00=0x0094, f01=0x0190, f02=»Z) LOAD00 LOAD ORDER ) P ADK A3,17 * $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * . P* * V PLOAD00 EQU * * ` P LDK A2,/14 LOCK * t P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P LD A1,D
0x264ce4…264e78 Dummy {f00=0x0094, f01=0x018e, f02=» * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + ( " P CF A5,LD:RC CHECK RETURN CODE + > P EJECT DRFD01 + d P* + | P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR + P S
0x264e78…26500c Dummy {f00=0x0094, f01=0x0190, f02=» P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , > 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , ` PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS ,
0x26500c…2651a0 Dummy {f00=0x0094, f01=0x0190, f02=» $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - , P LDK A1,DWTCRN - B P CF A5,STDWT - X P ADK A4,EOE-BOE EOE ADDRESS - l P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS - P
0x2651a0…265334 (5, 308) Dummy {f00=0x0094, f01=0x0190, f02=» EOD NO IN DWT - ~ P* . PLOA:65 EQU * . P LDKL A3,/400 . 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . J P* . z PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLOA:80 EQU * . P ABL END:RC .
0x265334…2654c8 Dummy {f00=0x0094, f01=0x0190, f02=» . P* / P EJECT DRFD01 / P* / * P* / 4 P IFF TOSS+IBM=0 / > P* / V P* ERROR , UNLOCK / ` P* / z PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:80 /
0x2654c8…26565c Dummy {f00=0x0094, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS / P RTN A5 0 $ P XIF 0 4 P* 0 @ P EJECT DRFD01 0 J P* 0 b P********** 0 l P* * 0 ~ P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P IFT IBM=1 0 P* 0 P* DAT
0x26565c…2657f0 Dummy {f00=0x0094, f01=0x018e, f02=»2,A8 STORE EOD-NO IN CONTROL WORD OF ECB 0 P* 1 0 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 : P* 1 j P CF A5,DSLIO PREPARE FOR I/O 1 t & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 1 P ENB 1 P* 1 < P* TRANS
0x2657f0…265984 Dummy {f00=0x0094, f01=0x0190, f02=» P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 8 P ADK A1,1 2 N P RB UNL:10 2 ` P* 2 r P EJECT DRFD01 2 | P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2 * P* A7 = SECTOR NO WITHIN TRAC
0x265984…265b18 Dummy {f00=0x0094, f01=0x0190, f02=» A4,1 2 P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 * P LDR A7,A1 TRACK 3 L ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 d P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS INHIBIT 3
0x265b18…265cac Dummy {f00=0x0094, f01=0x0190, f02=»WRITE WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 " P CF A5,DSOPCH 4 J P CMR A2 INDICATE NOT OPEN 4 ` P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P C
0x265cac…265e40 Dummy {f00=0x0094, f01=0x0190, f02=»LOCK IN DWT 4 t P RB LOA:80 END:IO 5 P* 5 . P IFT IBM=1 5 8 P* 5 J P* UNLOAD RETURN CODE CHECK 5 T P* 5 x PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 & P RF(Z) RTN:A5 NOT WRITE PROTECTED
0x265e40…265fd4 (5, 309) Dummy {f00=0x0094, f01=0x0190, f02=»EMPORARY RETURN CODE 5 | PRTN:A5 EQU * 6 P RTN A5 6 0 P* 6 @ P EJECT DRFD01 6 J P* 6 b P* 6 l ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 v P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6 P ADK A1,0 6 & P ABL(NZ) END:IO
0x265fd4…266168 Dummy {f00=0x0094, f01=0x0190, f02=»,DWTOR+1,A6 ORDER CODE 6 P SUK A1,49 7 P RF(Z) REWIND REWIND FILE 7 0 * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 R P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUENTIAL WRITE 7 P ADK A1,4 7 0
0x266168…2662fc Dummy {f00=0x0094, f01=0x0190, f02=»AL READ * 7 P******************* 8 P* 8 . . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 8 P LDR* A3,A2 CRN 8 j P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) FD:DIS REQUEST ERROR 8 P CWR A3,
0x2662fc…266490 Dummy {f00=0x0094, f01=0x0190, f02=» 8 b P* 9 P IFT MMUPAG=0 9 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 ( P XIF 9 T P* 9 ` P IFT IBM=1 9 j P LDK A7,SECLEN 9 | $ P CF A5,ASCII TRANSFORM TO ASCII 9 P* 9 P EJECT DRFD01 9 P* 9 P* 9 P IFT MMUPAG=1 9 ( P T
0x266490…266624 Dummy {f00=0x0094, f01=0x0190, f02=»BUFFER ADDRESS 9 | & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : @ P LDK A7,SECLEN LENGTH : l ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK : P XIF : P* : P IFT IBM=1 :
0x266624…2667b8 Dummy {f00=0x0094, f01=0x0190, f02=»,/1000 RETURN CODE : P RF END:IO ; P* ; , P EJECT DRFD01 ; 6 P* ; N P******************* ; X P* SEQUENTIAL WRITE * ; t P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF END OF EXTENT ; P* ; P LDK A1,
0x2667b8…26694c Dummy {f00=0x0094, f01=0x0190, f02=»DIS REQUEST ERROR ; P CWR* A7,A2 < P RF(G) ENDEOE END OF EXTENT < . P* < R P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < r " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE < & P LD A1,DWTUEC,A6 USER ECB ADDRES
0x26694c…266ae0 Dummy {f00=0x0094, f01=0x0190, f02=»OVE SECTOR TO DRIVER BUFFER < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = $ P XIF = T P* = ` P IFT IBM=1 = j P LDK A4,5 BIO WRITE = | P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF = P* = P EJECT DRFD
0x266ae0…266c74 (5, 310) Dummy {f00=0x0094, f01=0x0190, f02=»S A1,A6 UPDATE TEMPORARY RETURN CODE = PSQW:05 EQU * > , P CF A5,DSOPCH > @ PSQW:10 EQU * > V 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > j P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT > P LDK A2,SECLEN > , P ST A2,ECBEL,A
0x266c74…266e08 Dummy {f00=0x0094, f01=0x0190, f02=»RFD01 > P* ? P********** ? P* REWIND * ? * P********** ? < P* ? N PREWIND EQU * ? X P LDR A3,A2 SAVE EOD ADDRESS ? l P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD = BOE ? P LDK A1,DWTCRN ? P CF
0x266e08…266f9c Dummy {f00=0x0094, f01=0x018e, f02=» ? P EJECT DRFD01 @ P* @ P***************** @ * P* * @ D P* PERFORM ORDER * @ ^ P* * @ x P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @ 0 P* A3 NO OF BYTES TO BE TRA
0x266f9c…267130 Dummy {f00=0x0094, f01=0x0190, f02=» P XIF A P IFT CHAN=1 A " P LDK A1,0 INDICATOR WRITE MODE A $ P XIF A J P RF FD:800 A V P* A h PFD:REA EQU * A r P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/8000 WORDS READ A P XIF A PFD:8
0x267130…2672c4 Dummy {f00=0x0094, f01=0x0190, f02=»PAG=1 A 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B D 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B p P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B P* B P IFT CHAN=0 B P O
0x2672c4…267458 Dummy {f00=0x0094, f01=0x0190, f02=»JECT DRFD01 B P* C . P* PUT BUFFER START AND END ADDRESS IN DWT C P* C R " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P ST A5,DWTA5,A6 SAVE STACK POINTER C P
0x267458…2675ec Dummy {f00=0x0094, f01=0x0190, f02=»R CIO START C ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D P RF T:DISP D @ P* D R P EJECT DRFD01 D P* D t * P************************************* D ~ P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * D * P*
0x2675ec…267780 Dummy {f00=0x0094, f01=0x0190, f02=»ER D p P LDR* A1,A6 RETURN CODE E & P ANK A1,/7F GET ERROR RETURN CODE E * P RF(NZ) END:RC E T 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E j $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P ADS A2,ECBEL,A8 UPDATE ECBEL E P LD
0x267780…267914 (5, 311) Dummy {f00=0x0095, f01=0x0190, f02=»PDATE BUFFER POINTER E P ST A2,DWTBA,A6 F & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F 4 P ADK A4,0 F ^ ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F p P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1 EQU * F P XIF F P* F P IFT
0x267914…267aa8 Dummy {f00=0x0095, f01=0x0190, f02=» P EJECT DRFD01 G P* G P********** G & P* * G 8 P* END:IO * G J P* * G P********** G n P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G P RF END:IO G P XIF G P* G
0x267aa8…267c3c Dummy {f00=0x0095, f01=0x0190, f02=»D:30 EQU * CU ADDRESS UNKNOWN G P LDK A1,1 NOT OPERABLE H & * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H D P RB END:IO H r P EJECT DRFD01 H P* H P******************** H P* * H P* RECOVERY ROUTINE * H P*
0x267c3c…267dd0 Dummy {f00=0x0095, f01=0x0190, f02=»IF H P* I P IFT CPU852=0 I " P MSR 8,A15 SAVE A1-A8 ON STACK I * P XIF I P P* I P LDKL A6,DWFD01 DWT ADDRESS I f P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I P* DELAY 2 SEC I P* I P LD A4
0x267dd0…267f64 Dummy {f00=0x0095, f01=0x018e, f02=» LDK A4,DWTTP I P ADR A4,A6 J P LDR A1,A6 SAVE A6 J ( P CF A15,SETIMP J B P DATA FDON20,TIME J X P* J r PF:DISP EQU * J | P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,A1 J P CM DWTTP,A6 J P LDKL A5,D
0x267f64…2680f8 Dummy {f00=0x0095, f01=0x0190, f02=» P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K P XIF K @ P* K L P IFF TOSS+IBM=0 K V 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K n P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* READ VOLUME NAM
0x2680f8…26828c Dummy {f00=0x0095, f01=0x0190, f02=»,A6 SAVE IT K P CF A5,SETCIO L P LDK A2,/14 L * P CF A5,FD:REA LOCK L > P ANK A3,1 L X P RF(Z) FDON19 OPERABLE L j P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P* L PFDON19
0x26828c…268420 Dummy {f00=0x0095, f01=0x0190, f02=» * L P LDK A2,/C M P CF A5,FD:REA UNLOCK M P LDK A3,0 M 8 , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M J P SUK A3,1 M z P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6 INDICATE VOLU
0x268420…2685b4 (5, 312) Dummy {f00=0x0095, f01=0x0190, f02=» ORDER IF RUNNING M l P* N " P LD A4,DWTTP2,A6 TIMER POINTER N $ P RF(Z) FDON09 NOT RUNNING N J P CMR A4 STOP TIMER N l $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE N P*
0x2685b4…268748 Dummy {f00=0x0095, f01=0x018e, f02=» N p P ORS A2,DWTOCF,A6 SAVE O ( P XRRS A2,A4 SET STATUS WORD TO OPEN O & P LDR* A2,A4 O R & P OTR A2,0,SOPDA SET DRIVE TO OPEN O f P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* LOCK DOORS O P* O P LDK A2,1 O
0x268748…2688dc Dummy {f00=0x0095, f01=0x0190, f02=» O z P* P P EJECT P P* P P* PUT DRIVE NO IN CIO INSTR P * P* P N P SRN A2,A3 DRIVE NO IN A3 P X * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P z P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3,A6 DRIVE IND. P P ANK A3,1 P
0x2688dc…268a70 Dummy {f00=0x0095, f01=0x018e, f02=»ON25 P P* Q P IFT OPCLOS=1 Q P* Q , D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q 6 P* Q ~ $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF,A6 CLEAR FLAG Q $ P LD A2,SPDLCI OPEN
0x268a70…268c04 Dummy {f00=0x0095, f01=0x0190, f02=» Q P* R P CM DWTA2,A6 RESET FDON FLAG R PFDON60 EQU * R 6 P LD A8,DWTECB,A6 R J 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R b P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R P LD A7,DWTORD,A6 R , P ST A7,DWT
0x268c04…268d98 Dummy {f00=0x0095, f01=0x0190, f02=»* R P EJECT DRFD01 S P* S " P******************** S , P* * S H P* READY INTERRUPT * S d P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP POWER ON ROUT
0x268d98…268f2c Dummy {f00=0x0095, f01=0x0190, f02=»* S P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T " P RB FDONVL READ VOLUME NAMES T D P XIF T h P* T t P EJECT DRFD01 T ~ P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x268f2c…2690c0 Dummy {f00=0x0095, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS ON STACK T P XIF U . P* U : P IFT CPU852=0 U D " P MSR 8,A15 SAVE A1-A8 ON STACK U Z P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER U " P LD
0x2690c0…269254 (5, 313) Dummy {f00=0x009d, f01=0x0190, f02=»RRUPT U x P LD A3,PFPOST V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V $ ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V T P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P LDR* A3,A1 ONE WORD FROM BUFFER V
0x269254…2693e8 Dummy {f00=0x009d, f01=0x018e, f02=» A2,0,CUADR CIO HALT V PIHDISP EQU * W P ABL TDISP GOTO DISPATCHER W 0 P* W R PIH050 EQU * W P INR A3,0,CUADR READ W p P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER POINTER W P SUK A2,2 W P RB(P)
0x2693e8…26957c Dummy {f00=0x009d, f01=0x0190, f02=» P* X P EJECT DRFD01 X P* X & P* X 0 P IFT CHAN=0 X : P SST A3,CUADR STATUS X N P XIF X j P LD A8,DWTECB,A6 ECB ADDRESS X v " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1 X P RB(N) FDRE READY INTERRUPT
0x26957c…269710 Dummy {f00=0x009d, f01=0x0190, f02=»LT, NOT OPERABLE X ~ P RF(Z) IH:10 RETURN CODE OK Y P ORK A3,4 Y < PIH:10 EQU * Y N P* Y b P EJECT DRFD01 Y l P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80 Y P LDR A1,A3 Y " P ANKL A3,/
0x269710…2698a4 Dummy {f00=0x009d, f01=0x0190, f02=»O Y x PIH:70 EQU * Z P LDR A4,A1 Z P ANKL A4,/0400 BIT 5 Z 0 P SLC A4,7 TO BIT 14 Z L P ORR A3,A4 Z h P* Z z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P ORR A3,A4 Z P XIF Z P* Z
0x2698a4…269a38 Dummy {f00=0x009d, f01=0x018e, f02=» Z ~ P ORR A3,A1 [ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ P ANKL A3,/F7FF [ J PIH:80 EQU * [ ` P LDR A1,A3 [ t P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P******************************************* [ 0 P*
0x269a38…269bcc Dummy {f00=0x009d, f01=0x0190, f02=» 0 P******************************************* P* 8 P******* B P* * R P* BIO * b P* * r P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P* OUTPUT: A2 BITS 0-12 OF CONTRO
0x269bcc…269d60 Dummy {f00=0x009d, f01=0x0190, f02=»EQU * & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] 8 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] d P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BIO WITH ORDER ] " P LD A4,DWTBA,A
0x269d60…269ef4 (5, 314) Dummy {f00=0x009e, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x269ef4…26a088 Dummy {f00=0x009e, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x26a088…26a21c Dummy {f00=0x009e, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x26a21c…26a3b0 Dummy {f00=0x009e, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x26a3b0…26a544 Dummy {f00=0x009e, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x26a544…26a6d8 Dummy {f00=0x009e, f01=0x0190, f02=» , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c 4 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c X 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P* c PVOL:
0x26a6d8…26a86c Dummy {f00=0x009e, f01=0x0190, f02=»L A3,/8000 INDICATE NO NEW NVL SET c PVOL:30 EQU * d * . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d > P LD A8,DWTECB,A6 d p P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d P* d P
0x26a86c…26aa00 Dummy {f00=0x009e, f01=0x0190, f02=» ASCII CODE d . P* INPUT STRING ADDRESS IS BUF e & P* INPUT: A7 NO OF CHARACTERS e H P* A4 = BUFFER ADDRESS e r P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P* e PASCI
0x26aa00…26ab94 (5, 315) Dummy {f00=0x009f, f01=0x0190, f02=» A4,A7 e PASC:10 EQU * f P SUK A4,1 f " P LCR A1,A4 EBCDIC CHARACTER f 4 P ANK A1,/FF f X ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f l 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC:10 f P RF EBC:90 f P*
0x26ab94…26ad28 Dummy {f00=0x009f, f01=0x0190, f02=»ES A STRING FROM ASCII TO f r P* EBCDIC CODE g " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g D P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUTPUT: A1 CHANGED g P*
0x26ad28…26aebc Dummy {f00=0x009f, f01=0x018e, f02=»BUFFER ADDRESS g | P XIF h P* h " P IFT IBM=1 h , P ADR A4,A7 h > PEBC:10 EQU * h P P SUK A4,1 h d P LCR A1,A4 GET ASCII CHAR. h v P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,1 h P RB(P) EBC:10 h & P L
0x26aebc…26b050 Dummy {f00=0x009f, f01=0x0190, f02=» h ~ P* i P********** i P* LOGSEC * i $ P********* i 6 P* i H @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i R , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) i * P*
0x26b050…26b1e4 Dummy {f00=0x009f, f01=0x0190, f02=»SECTOR NO i x . P* A4 ADDRESS TO PHYS. SEC. + 4 j P* j D PLOGSEC EQU * j N P CF A5,DECBIN j b P LDR A3,A1 SAVE j x P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P LDR A2,A1 j P SLL A2,2 j
0x26b1e4…26b378 Dummy {f00=0x009f, f01=0x018e, f02=»CT DRFD01 j P* k P* CHECK SECTOR NO k P* k 8 P LDR A1,A3 k B P SUK A1,25 k T P RF(NP) LOG:10 k f P CWK A4,BUF+EOD+4 EOD k | P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k " P* CHECK EOD LESS/EQUAL 74001 k
0x26b378…26b50c Dummy {f00=0x009f, f01=0x0190, f02=» P RTN A5 l P* l P* FATAL ERROR l P* l 4 ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l > " PLOG:10 LDK A1,/10 RETURN CODE l j , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL LOA:90 ERROR ROUTINE l P* l
0x26b50c…26b6a0 Dummy {f00=0x009f, f01=0x0190, f02=»O EBCDIC CODED DIGITS TO l n D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m , P* INPUT: A4 ADDRESS TO FIRST DIGIT m h P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN LDK A1,0 m P LDK A7,2 m
0x26b6a0…26b834 (5, 316) Dummy {f00=0x009f, f01=0x0190, f02=» m x P ADK A2,9 n P SUK A7,1 n P RF(Z) DEC:30 n , & P ADK A4,1 ADDRESS TO SECOND DIGIT n B PDEC:20 SUK A2,1 n l P RB(N) DEC:10 NEXT DIGIT n P ADK A1,/A MULTIPLY BY 10 n P RB DEC:20 n PDEC:30 ADR A1,A2 n P RTN A5 n P XIF n
0x26b834…26b9c8 Dummy {f00=0x009f, f01=0x018e, f02=»NO IN CIO INSTRUCTION n x P* o 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o ( P* o d P* OUTPUT: A3 CHANGED o n P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P SLL A3,4 o P ORS A3,FD:CIO o
0x26b9c8…26bb5c Dummy {f00=0x009f, f01=0x0190, f02=» P* p : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p 0 P* EBCDIC-CODED DIGITS (DECIMAL) p L P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p P* A7 CHANGED p P
0x26bb5c…26bcf0 Dummy {f00=0x009f, f01=0x0190, f02=» P SLL A3,8 q * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q P ORKL A3,/F0F0 EBCDIC CODED q D P RTN A5 q h P* q x P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION: PREPARE FOR READING DATA SET LAB
0x26bcf0…26be84 Dummy {f00=0x009f, f01=0x0190, f02=» A3 128 q ( P* A4 DRIVER BUFFER ADDRESS r P* A6 DWT ADDRESS r > P* A1 IS CHANGED r ` P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A3,128 r P LDKL A4,BUF r
0x26be84…26c018 Dummy {f00=0x009f, f01=0x018e, f02=»N: GET EOD-NO AND EOD-NO ADDRESS IN DWT r P* s 0 P* INPUT: A6 DWT ADDRESS s : P* s P* OUTPUT: A2 EOD ADDRESS s f , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTEOD s P CF A5,DSPAD s P L
0x26c018…26c1ac Dummy {f00=0x009f, f01=0x018e, f02=» P* t 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t D P* t ~ P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRESS TO DATA t P* A
0x26c1ac…26c340 Dummy {f00=0x009f, f01=0x0190, f02=» t P RTN A5 u P* u P EJECT DRFD01 u " P* u : P********* u D P* STDWT * u V P********* u h P* u z : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P* INPUT: A1 OFFSET TO DWT
0x26c340…26c4d4 (5, 317) Dummy {f00=0x009f, f01=0x0190, f02=» u v 0 P* A2 ADDRESS TO WORD IN DWT AREA v P* A3 UNCHANGED v < P* A6 UNCHANGED v ^ P* v PSTDWT EQU * v P CF A5,DSPAD v P STR A3,A2 v P RTN A5 v P XIF v P* v P EJECT DRFD01 v P* v
0x26c4d4…26c668 Dummy {f00=0x009f, f01=0x018e, f02=»OSS=1 v P IFT IBM=0 w " P DATA 0,0,0 VOLUME NAME BUFFER w P IFT MMUPAG+CHAN=2 w F P RES DVBLEN-3 MMU BUFFER w ` P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P XIF w P* w P EJECT DRF
0x26c668…26c7fc Dummy {f00=0x009f, f01=0x0190, f02=» w x P********************* x P* x & PDWFD01 EQU * x 0 ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x D P DATA 0 x p P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADDRESS x P DATA 0 TTAB-ADDRE
0x26c7fc…26c990 Dummy {f00=0x009f, f01=0x0190, f02=»CB ADDRESS x x DATA DEVECB MMU ECB ADDRESS y XIF y 6 P* y B PDWTA3 EQU *-DWFD01 y L P DATA 0 y f P DATA 0 SAVE AREA y v P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE AREA y P* y P EJECT
0x26c990…26cb24 Dummy {f00=0x009f, f01=0x0190, f02=»A /8000 NVL INDICATOR 2 y P DATA /8000 NVL INDICATOR 3 z ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z D P DATA /FFFF,/FFFF,/FFFF z p ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z P
0x26cb24…26ccb8 Dummy {f00=0x009f, f01=0x0190, f02=»TUS WORD z t P DATA 0 { P XIF { PDWTA5 EQU *-DWFD01 { , P DATA 0 { F * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { V P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 { P* { P* { P IFT I
0x26ccb8…26ce4c Dummy {f00=0x009f, f01=0x0190, f02=»R { j P DATA 0 | P* | P IFT OPCLOS=1 | $ . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | : P DATA 0 | l 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | | P DATA 0 | P XIF | P* | P EJECT DRFD01 | P* | P* | P I
0x26ce4c…26cfe0 Dummy {f00=0x009f, f01=0x0190, f02=» P DATA 0 } , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } P DATA 0 } D P XIF } T P* } ` P IFT IBM=1 } j , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } | P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA } P DATA 0,0,0,0 } & PDWTEOE E
0x26cfe0…26d174 (5, 318) Dummy {f00=0x00a0, f01=0x0190, f02=»-DWFD01 DATA SET LABEL SECTOR } P DATA 0,0,0,0 ~ & P XIF ~ < P* ~ H P EJECT DRFD01 ~ R P* ~ j P* ~ t & PDWTBA EQU *-DWFD01 BUFFER POINTER ~ ~ P DATA 0 ~ ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO ~ P DATA 0 ~ & PDWTCW2 EQU *-DWFD01
0x26d174…26d308 Dummy {f00=0x00a0, f01=0x0190, f02=»CTORS IN SUB IO ~ p P DATA 0 P* ( P IFT IBM+TOSS=2 2 & PDWTFIB EQU *-DWFD01 IBM INDICATOR J P DATA 0 t P XIF P* P EJECT DRFD01 P* P* P IFT MMUPAG=1 PDWT:BF EQU *-DWFD01 $ P DATA 0 SAVE ARE
0x26d308…26d49c Dummy {f00=0x00a0, f01=0x4132, f02=»0 6 BIT PHYSICAL BUFFER ADDRESS P DATA 0 SECOND MMU ENTRY ( P* H PDWT:LA EQU *-DWFD01 R * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS n P XIF P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0,0 P XIF P*
0x26d49c…26d630 Dummy {f00=0x00a0, f01=0x2008, f02=» END @
0x26d630…26d7c4 Dummy {f00=0x00a0, f01=0x402a, f02=» P - 0 / 0 @ & REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 , ( KB DVDY00 , ( %@
0x26d7c4…26d958 Dummy {f00=0x00a0, f01=0x4106, f02=» J F IDENT DVDI00 REL 10.0 80-03-14 870105041000 DVDI00K R DVDI00K d DIADN x , ( DI ?O_o @ 2 & 2 @ 0,
0x26d958…26daec Dummy {f00=0x00a0, f01=0x4104, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x * & Y % ( @ 8 , 8 @
0x26daec…26dc80 Dummy {f00=0x00a0, f01=0x4128, f02=» J F IDENT DVT100 REL 10.0 80-03-14 870105041000 DVT100K R DVT100K d TPAD3 x , ( TP , ( ? @ D
0x26dc80…26de14 (5, 319) Opaque[0x194]
0x26de14…26dfa8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c0, f03=0x0000}
0x26de14…26dfa8 IdxSect {
0x26de14…26dfa8 f00 = 0x0096 // 0x26de14 @0x0
0x26de14…26dfa8 f01 = 0x0002 // 0x26de16 @0x2
0x26de14…26dfa8 gno = [ // 0x26de18 @0x4
0x26de14…26dfa8 [0x00]: C0x0096.0x0.0
0x26de14…26dfa8 ]
0x26de14…26dfa8 }
0x26dfa8…26e13c Dummy {f00=0x0096, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 10.0 80-03-14 870105041000 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x26e13c…26e2d0 Dummy {f00=0x0096, 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*
0x26e2d0…26e464 Dummy {f00=0x0096, 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*
0x26e464…26e5f8 Dummy {f00=0x0096, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x26e5f8…26e78c Dummy {f00=0x0096, f01=0x0190, f02=»A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME 4 P ABL TDISP EXIT f P* ~ POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE (
0x26e78c…26e920 Dummy {f00=0x0096, f01=0x0190, f02=» PFD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK 4 P* d P IFT IBM+TOSS=2 n P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P*
0x26e920…26eab4 (5, 320) Opaque[0x194]
0x26eab4…26ec48 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x26eab4…26ec48 IdxSect {
0x26eab4…26ec48 f00 = 0x00a2 // 0x26eab4 @0x0
0x26eab4…26ec48 f01 = 0x0006 // 0x26eab6 @0x2
0x26eab4…26ec48 gno = [ // 0x26eab8 @0x4
0x26eab4…26ec48 [0x00]: C0x00a2.0x2.0
0x26eab4…26ec48 [0x01]: C0x00a2.0x3.0
0x26eab4…26ec48 [0x02]: C0x00a3.0x0.0
0x26eab4…26ec48 ]
0x26eab4…26ec48 }
0x26ec48…26eddc Dummy {f00=0x00a2, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x26eddc…26ef70 Dummy {f00=0x00a2, 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
0x26ef70…26f104 Dummy {f00=0x00a2, 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
0x26f104…26f298 Dummy {f00=0x00a2, 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**
0x26f298…26f42c Dummy {f00=0x00a2, 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
0x26f42c…26f5c0 Dummy {f00=0x00a2, 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
0x26f5c0…26f754 (5, 321) Dummy {f00=0x00a2, 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
0x26f754…26f8e8 Dummy {f00=0x00a2, 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
0x26f8e8…26fa7c Dummy {f00=0x00a2, 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
0x26fa7c…26fc10 Dummy {f00=0x00a2, 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
0x26fc10…26fda4 Dummy {f00=0x00a2, 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*
0x26fda4…26ff38 Dummy {f00=0x00a2, 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
0x26ff38…2700cc Dummy {f00=0x00a2, 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
0x2700cc…270260 Dummy {f00=0x00a2, 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*
0x270260…2703f4 (5, 322) Dummy {f00=0x00a3, 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
0x2703f4…270588 Dummy {f00=0x00a3, f01=0x0018, f02=» ` p 0 8 @ H P h p
0x270588…27071c Dummy {f00=0x00a3, f01=0x0190, f02=» 2 P IDENT DMTASK REL 10.0 80-05-28 870105041000 P : P =4 , PR 6249 B P 80-03-14 Z P =3 ,DUPL KEY ONLY SEQ n P 79-11-28 P =2 , START NOT USED OK P 79-11-22 " P =1 , INDEXED START NOT LESS P 79-11-0
0x27071c…2708b0 Dummy {f00=0x00a3, f01=0x0190, f02=»TASK = HANDLES DATAMANAGEMENT DISC I/O P* . P* 8 P* B P* L P* V 8 P**************************************************** ` P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT PARAMETERS: P* A1 = F
0x2708b0…270a44 Dummy {f00=0x00a3, f01=0x018e, f02=»DB (FDBDMI, , -SNR). d : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS BLOCK F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET Z D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT 8 P* THE BLOCK MUST FIRST BE
0x270a44…270bd8 Dummy {f00=0x00a3, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x270bd8…270d6c Dummy {f00=0x00a3, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x270d6c…270f00 Dummy {f00=0x00a3, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x270f00…271094 (5, 323) Opaque[0x194]
0x271094…271228 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c68, f03=0x0000}
0x271094…271228 IdxSect {
0x271094…271228 f00 = 0x0063 // 0x271094 @0x0
0x271094…271228 f01 = 0x0006 // 0x271096 @0x2
0x271094…271228 gno = [ // 0x271098 @0x4
0x271094…271228 [0x00]: C0x0063.0x1.0
0x271094…271228 [0x01]: C0x0063.0x2.0
0x271094…271228 [0x02]: C0x0063.0x3.0
0x271094…271228 ]
0x271094…271228 }
0x271228…2713bc Dummy {f00=0x0063, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x2713bc…271550 Dummy {f00=0x0063, 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**
0x271550…2716e4 Dummy {f00=0x0063, 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
0x2716e4…271878 Dummy {f00=0x0063, 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.
0x271878…271a0c Dummy {f00=0x0063, 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
0x271a0c…271ba0 Dummy {f00=0x0063, 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
0x271ba0…271d34 (5, 324) Dummy {f00=0x0063, 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*
0x271d34…271ec8 Dummy {f00=0x0063, 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
0x271ec8…27205c Dummy {f00=0x0063, 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
0x27205c…2721f0 Dummy {f00=0x0063, 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 &
0x2721f0…272384 Dummy {f00=0x0063, 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,
0x272384…272518 Dummy {f00=0x0063, 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
0x272518…2726ac Dummy {f00=0x0063, 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 *
0x2726ac…272840 Dummy {f00=0x0063, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x272840…2729d4 (5, 325) Dummy {f00=0x0063, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x2729d4…272b68 Dummy {f00=0x0063, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x272b68…272cfc Dummy {f00=0x0063, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x272cfc…272e90 Dummy {f00=0x0063, 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
0x272e90…273024 Dummy {f00=0x0063, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x273024…2731b8 Dummy {f00=0x0063, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x2731b8…27334c Dummy {f00=0x0063, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x27334c…2734e0 Dummy {f00=0x0063, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x2734e0…273674 (5, 326) Opaque[0x194]
0x273674…273808 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bf8, f03=0x0000}
0x273674…273808 IdxSect {
0x273674…273808 f00 = 0x005f // 0x273674 @0x0
0x273674…273808 f01 = 0x0006 // 0x273676 @0x2
0x273674…273808 gno = [ // 0x273678 @0x4
0x273674…273808 [0x00]: C0x005f.0x3.0
0x273674…273808 [0x01]: C0x0060.0x0.0
0x273674…273808 [0x02]: C0x0060.0x1.0
0x273674…273808 ]
0x273674…273808 }
0x273808…27399c Dummy {f00=0x005f, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x27399c…273b30 Dummy {f00=0x005f, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT & P ENTRY TLDS15
0x273b30…273cc4 Dummy {f00=0x005f, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS $ P EXTRN SEG:NS NUMBER OF SEGMENTS
0x273cc4…273e58 Dummy {f00=0x005f, f01=0x0190, f02=»TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE 6 ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ` ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK & P EXTRN SCTMMP MMU TABLE PA
0x273e58…273fec Dummy {f00=0x005f, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x273fec…274180 Dummy {f00=0x005f, f01=0x0190, f02=»ETTING CPU852 EQU 0. z P* PCPU852 EQU 0 & P* : * D . ** A PROGRAM VERSION USING TOSS DISC PAGING N * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 0 * P EJECT TLDSEG P* P* P******
0x274180…274314 (5, 327) Dummy {f00=0x0060, f01=0x0190, f02=» IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: ( P* R 4 P* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM) P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER P* ( P* IT RETURNS TO CALLING TASK WITH " P
0x274314…2744a8 Dummy {f00=0x0060, f01=0x0190, f02=» ERROR, ELSE z ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P* A7 = -3 IF DISC NOT OPERABLE @ P* h 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: r < P* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER > P* COMPLETION, THUS NO TASK SWI
0x2744a8…27463c Dummy {f00=0x0060, f01=0x0190, f02=»S NOT IN CORE TLDSEG WILL t : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. " P* ` P* j P EJECT TLDSEG t P* & P* CHECK VALIDITY OF SEGMENT NUMBER P* PTLDSEG EQU * LOAD SEGMENT $ P LD A3,TTB:SP,A5 SEGTAB ADDR
0x27463c…2747d0 Dummy {f00=0x0060, f01=0x0190, f02=»OO BIG f P RF(NG) TLDS00 OK P* ( $ PTLDERR LDK A6,/FF INDICATE ERROR 2 , P ABL LKM030 BRANCH TO LKM REQUEST ERROR Z P* P* GET SEGMENT BLOCK ADDRESS. P* UPDATE RETURN ADDRESS P* PTLDS00 EQU * , P SLL A1,3 ADJUST F
0x2747d0…274964 Dummy {f00=0x0060, f01=0x0190, f02=»S v P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER * . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK R P XIF P* " P ADK A7,0 CHECK SEGMENT NUMBER P RF(NZ) TLDS05 NOT SEGMENT 0 0 P ST A7,TTB:SB,A3 RESET SEGMENT BLOCK
0x274964…274af8 Dummy {f00=0x0060, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x274af8…274c8c Dummy {f00=0x0060, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x274c8c…274e20 Dummy {f00=0x0060, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x274e20…274fb4 (5, 328) Dummy {f00=0x0060, f01=0x0190, f02=»NTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE ADDRESS P* F P IFT MMUPAG=1 P P ECR A2,A1 f P ANK A2,/FC x P* 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY
0x274fb4…275148 Dummy {f00=0x0060, f01=0x0190, f02=»A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP) TLDS30 NO MORE PAGE ENTRIES . & P ADK A3,2 POINT TO NEXT PAGE ENTRY Z " P ADK A2,4 UPDATE PAGE ADDRESS P RB TLDS25 P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 CO
0x275148…2752dc Dummy {f00=0x0060, f01=0x018e, f02=» 2 P ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE P XIF > P* J P IFT MMUPAG=0 T PTLDS40 EQU * j 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE ~ P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 REST
0x2752dc…275470 Dummy {f00=0x0060, f01=0x40f0, f02=» n P LD A2,TTB:SA+4,A5 P LD A3,TTB:SA+6,A5 " P LD A4,TTB:SA+8,A5 < P LD A6,TTB:SA+12,A5 V P LD A5,TTB:SA+10,A5 r $ P RTN A15 RETURN TO CALLING TASK P XIF P* P* P* END @ P ML 6,TTB:SA+2,A6 REST
0x275470…275604 Dummy {f00=0x0060, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x275604…275798 Dummy {f00=0x0060, f01=0x0190, f02=»** r b 4 P************************************************ s P s B PMOVT:A EQU * s J P IFT CREDIT-MMUPAG=1 s ^ P LDR* A1,A8 GET T:A-ADDRESS s z ( P LD A3,WATLEN,A12 GET LENGTH OF WAT s P SLL A3,2 BYTES s , P SU A3,CIA,A1 ADD DISPLACEMENT TO STAR
0x275798…27592c Dummy {f00=0x0060, f01=0x0190, f02=»A-ADDRESS s | $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t : 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t B P t ~ P LD A3,FCD,A12 ANY FCD? t P RF(Z) MOVT10 NO! t P ADR A3,A2 START OF FCB t P LDR A4,A2 SAVE T:A-ADDRESS t 0 P LD
0x27592c…275ac0 Dummy {f00=0x0060, f01=0x0190, f02=»MOVT05 EQU * t P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u . PMOVT10 RTN A14 u H P XIF u ^ P IFT CREDIT+MMUPAG=2 u j P u P ELR A1,A8 GET T:A-ADDRESS u ( P EL A3,WATLEN,A12 GET LENGTH OF WAT u P SLL A3,2 BYTES u P EL A10,CIA,A1 u $
0x275ac0…275c54 (5, 329) Opaque[0x194]
0x275c54…275de8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b70, f03=0x0000}
0x275c54…275de8 IdxSect {
0x275c54…275de8 f00 = 0x005b // 0x275c54 @0x0
0x275c54…275de8 f01 = 0x0004 // 0x275c56 @0x2
0x275c54…275de8 gno = [ // 0x275c58 @0x4
0x275c54…275de8 [0x00]: C0x005b.0x2.0
0x275c54…275de8 [0x01]: C0x005b.0x3.0
0x275c54…275de8 ]
0x275c54…275de8 }
0x275de8…275f7c Dummy {f00=0x005b, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x275f7c…276110 Dummy {f00=0x005b, 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*
0x276110…2762a4 Dummy {f00=0x005b, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x2762a4…276438 Dummy {f00=0x005b, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x276438…2765cc Dummy {f00=0x005b, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x2765cc…276760 Dummy {f00=0x005b, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x276760…2768f4 (5, 330) Dummy {f00=0x005b, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST
0x2768f4…276a88 Dummy {f00=0x005b, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x276a88…276c1c Dummy {f00=0x005b, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x276c1c…276db0 Dummy {f00=0x005b, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x276db0…276f44 Dummy {f00=0x005b, f01=0x2008, f02=»
0x276f44…2770d8 Dummy {f00=0x005b, 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 #
0x2770d8…27726c Dummy {f00=0x005b, f01=0x0190, f02=» # b0 $ d $ g $ * i $ < q $ L v H $ x $ n ~ $ ~ $ J F " D @ R IL JL eL fL gL hL aL bL cL dL R DL0X D P 0X DL0R DT` RL $ $ 0
0x27726c…277400 Dummy {f00=0x005b, f01=0x0190, f02=» a b c d _z e f g h a b c $ % D ; % T % f < % v 0 < % 0 < % % % $ % % % ' % ,0
0x277400…277594 (5, 331) Opaque[0x194]
0x277594…277728 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x277594…277728 IdxSect {
0x277594…277728 f00 = 0x0083 // 0x277594 @0x0
0x277594…277728 f01 = 0x0006 // 0x277596 @0x2
0x277594…277728 gno = [ // 0x277598 @0x4
0x277594…277728 [0x00]: C0x0083.0x3.0
0x277594…277728 [0x01]: C0x0084.0x0.0
0x277594…277728 [0x02]: C0x0084.0x1.0
0x277594…277728 ]
0x277594…277728 }
0x277728…2778bc Dummy {f00=0x0083, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x2778bc…277a50 Dummy {f00=0x0083, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x277a50…277be4 Dummy {f00=0x0083, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x277be4…277d78 Dummy {f00=0x0083, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 1 P* P EJECT MONTIM P* P* P* G E T T I
0x277d78…277f0c Dummy {f00=0x0083, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x277f0c…2780a0 Dummy {f00=0x0083, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x2780a0…278234 (5, 332) Dummy {f00=0x0084, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x278234…2783c8 Dummy {f00=0x0084, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x2783c8…27855c Dummy {f00=0x0084, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x27855c…2786f0 Dummy {f00=0x0084, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x2786f0…278884 Dummy {f00=0x0084, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x278884…278a18 Dummy {f00=0x0084, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x278a18…278bac Dummy {f00=0x0084, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x278bac…278d40 Dummy {f00=0x0084, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x278d40…278ed4 (5, 333) Dummy {f00=0x0084, 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
0x278ed4…279068 Dummy {f00=0x0084, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x279068…2791fc Dummy {f00=0x0084, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x2791fc…279390 Dummy {f00=0x0084, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x279390…279524 Dummy {f00=0x0084, f01=0x2008, f02=»
0x279524…2796b8 Dummy {f00=0x0084, f01=0x0190, f02=» v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DATA /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVTAB DATA /1909,/1101,/082
0x2796b8…27984c Dummy {f00=0x0084, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x27984c…2799e0 Dummy {f00=0x0084, f01=0x0190, f02=»**************** P* CONDITIONAL ASSEMBLY * P************************** : 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC 8 PMFDISC EQU 1
0x2799e0…279b74 (5, 334) Opaque[0x194]
0x279b74…279d08 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1090, f03=0x0000}
0x279b74…279d08 IdxSect {
0x279b74…279d08 f00 = 0x0084 // 0x279b74 @0x0
0x279b74…279d08 f01 = 0x000a // 0x279b76 @0x2
0x279b74…279d08 gno = [ // 0x279b78 @0x4
0x279b74…279d08 [0x00]: C0x0084.0x2.0
0x279b74…279d08 [0x01]: C0x0084.0x3.0
0x279b74…279d08 [0x02]: C0x0085.0x0.0
0x279b74…279d08 [0x03]: C0x00a5.0x3.0
0x279b74…279d08 [0x04]: C0x00a6.0x1.0
0x279b74…279d08 ]
0x279b74…279d08 }
0x279d08…279e9c Dummy {f00=0x0084, f01=0x0190, f02=» 2 P IDENT TOSSFM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TOSSFM = TOSS FILE MANAGEMENT LKM PROC
0x279e9c…27a030 Dummy {f00=0x0084, f01=0x0190, f02=» TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 4 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE l " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TOSSFM P* P* P
0x27a030…27a1c4 Dummy {f00=0x0084, f01=0x018e, f02=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P ENTRY FCHEC2 FCHECK 2ND ENTRY > P EJECT TOSSFM d P* | P* P************* P* EXTERNALS * P************* P* P* P EXTRN FMRDWR FM READ/WRITE .
0x27a1c4…27a358 Dummy {f00=0x0084, f01=0x0190, f02=» " P EXTRN TIO:FM FM ENTRY IN TIO , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * " P EXTRN FNDDWD FIND DWT ADDRESS Z 0 P EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH * P EXTRN SCTFWT FWT CHAIN START ADDRESS " P EXTRN SCTNOF NUMBER OF FILES ( P
0x27a358…27a4ec Dummy {f00=0x0084, f01=0x0190, f02=»LOCK IN FWT n P EXTRN EWTEXL EXTENT LENGTH P EXTRN EWTEXB EXTENT BASE 8 " P EXTRN EWTVOL VOLUME FILE CODE Z & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN DWTST D
0x27a4ec…27a680 Dummy {f00=0x0084, f01=0x0190, f02=»L ASSEMBLY P* , P**************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1 P* P* 6 P* A PROGRAM VERSION USING THE EX
0x27a680…27a814 (5, 335) Dummy {f00=0x0084, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x27a814…27a9a8 Dummy {f00=0x0084, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x27a9a8…27ab3c Dummy {f00=0x0084, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x27ab3c…27acd0 Dummy {f00=0x0084, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x27acd0…27ae64 Dummy {f00=0x0084, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x27ae64…27aff8 Dummy {f00=0x0084, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x27aff8…27b18c Dummy {f00=0x0084, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x27b18c…27b320 Dummy {f00=0x0084, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x27b320…27b4b4 (5, 336) Dummy {f00=0x0085, f01=0x0190, f02=»RE d P LDKL A14,/7FFF P* " P EJECT TOSSFM , P* D ( P* SEARCH THE FILE EXTENT THAT HOLDS N P* THE REQUESTED SECTORS z * PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH P LD A7,EWTEXL,A3 " P CWR A1,A6
0x27b4b4…27b648 Dummy {f00=0x0085, f01=0x0190, f02=»ENT FOUND ~ * PFM:080 EQU * P IFT CPU852=0 0 . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER F P XIF x P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7 P RF(NN) FM:090 NOT UNDERFLOW
0x27b648…27b7dc Dummy {f00=0x0085, f01=0x0190, f02=»DRESS TO 2ND EWT BLOCK . ) LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE $ P RB(NZ) FM:070 CHECK NEXT EXTENT P * x 4 /FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT P LDKL A1,/A000 REQUEST ERROR P RB FM:040 * EJECT TOSSF
0x27b7dc…27b970 Dummy {f00=0x0085, f01=0x0190, f02=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE P LD A11,EWTEXB,A4 , * F IFT CPU852=0 P " P DAR A10 COMPUTE SECTOR NUMBER f XIF * IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR NUMBER P ADR A2,A11 RF(O) FM:140 OVER
0x27b970…27bb04 Dummy {f00=0x0085, f01=0x018e, f02=»ON t SUK A1,1 * EJECT TOSSFM & * > * H PFM:115 EQU * R " P LDR A12,A1 SAVE SECTOR NUMBER f P LDR A13,A2 P* IFT MMUPAG=0 . P LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF *
0x27bb04…27bc98 Dummy {f00=0x0085, f01=0x0190, f02=» . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW 6 * T PFM:120 EQU * ^ 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT r P ADR A7,A11 P RF(O) FM:160 OVERFLOW * PFM:125 EQU * P CWR A6,A1 0 P
0x27bc98…27be2c Dummy {f00=0x0085, f01=0x0190, f02=» P CWR A7,A2 4 P RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT P XIF N P* Z P IFT XTSPLI=1 d 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT z P CWR A7,A2 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT P XIF
0x27be2c…27bfc0 Dummy {f00=0x0085, f01=0x0190, f02=» = DISC INDEX (FROM FNDDWD) 0 P* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) $ P* A5 = TTAB ADDRESS X * P* A6 = DISC DWT ADDRESS (FROM FNDDWD) t P* A7 = ORDER CODE P* A8 = ECB ADDRESS * PFM:130 EQU * $ P LC A2,EWTVOL,A4 FIL
0x27bfc0…27c154 (5, 337) Dummy {f00=0x00a5, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x27c154…27c2e8 Dummy {f00=0x00a5, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x27c2e8…27c47c Dummy {f00=0x00a5, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x27c47c…27c610 Dummy {f00=0x00a5, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x27c610…27c7a4 Dummy {f00=0x00a5, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x27c7a4…27c938 Dummy {f00=0x00a5, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x27c938…27cacc Dummy {f00=0x00a5, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x27cacc…27cc60 Dummy {f00=0x00a5, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x27cc60…27cdf4 (5, 338) Dummy {f00=0x00a6, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x27cdf4…27cf88 Dummy {f00=0x00a6, 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
0x27cf88…27d11c Dummy {f00=0x00a6, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* 8 P**************
0x27d11c…27d2b0 Dummy {f00=0x00a6, f01=0x0190, f02=» P*************** P* ENTRIES * P*************** 8 P* P P ENTRY FNDKMX,CHKKEY Z P ENTRY RDNXTR v P ENTRY FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN P ENTRY CRNCIF P* P***************** P
0x27d2b0…27d444 Dummy {f00=0x00a6, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR P EXTRN FDBRRO,FDBBLF,BUFSNR & P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF D . P EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU n P EXTRN DMTIOZ P EXTRN DIVMOD,DSUMOD P EXTRN EOFRC,NOKEY P EJECT 8 P****DESCRIPTIO
0x27d444…27d5d8 Dummy {f00=0x00a6, f01=0x0190, f02=»RCH IS USED. REF : KNUTH PAGE 411 ALG. U. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : 2 P* - NO OF ENTRIES N f $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P* P* A5 = MAS
0x27d5d8…27d76c Dummy {f00=0x00a6, f01=0x0190, f02=»* 8 P****EXIT PARAMETERS********************************* P* F 0 P* A1,A2 = LOGICAL RECORD NO IN INDEX FILE P P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P* A1 - A11 P*
0x27d76c…27d900 Dummy {f00=0x00a6, f01=0x0190, f02=»MX EQU * P LDR* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX 4 P LDR A9,A2 Z P ANKL A9,/1 GET BIT 15 l P SRA A2,1 P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU *
0x27d900…27da94 (5, 339) Opaque[0x194]
0x27da94…27dc28 # DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1468, f03=0x0000}
0x27da94…27dc28 IdxSect {
0x27da94…27dc28 f00 = 0x00a3 // 0x27da94 @0x0
0x27da94…27dc28 f01 = 0x000c // 0x27da96 @0x2
0x27da94…27dc28 gno = [ // 0x27da98 @0x4
0x27da94…27dc28 [0x00]: C0x00a3.0x1.0
0x27da94…27dc28 [0x01]: C0x00a4.0x1.0
0x27da94…27dc28 [0x02]: C0x00a4.0x2.0
0x27da94…27dc28 [0x03]: C0x00a4.0x3.0
0x27da94…27dc28 [0x04]: C0x00a5.0x0.0
0x27da94…27dc28 [0x05]: C0x00a5.0x1.0
0x27da94…27dc28 ]
0x27da94…27dc28 }
0x27dc28…27ddbc Dummy {f00=0x00a3, f01=0x0190, f02=» SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ " ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ N ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ z !!EN ASM /S KPF /O KPF /S SCR LED MONTIM ( #!!CH $$CREDIT
0x27ddbc…27df50 Dummy {f00=0x00a3, f01=0x018e, f02=» KPF /O KPF /S SCR $ LED TOSSFM 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x27df50…27e0e4 Dummy {f00=0x00a3, f01=0x0190, f02=» DATA 0 !!DL 050 $ !!DL 051 4 !!EN D ASM /S P KPF /O ^ KPF /S l SCR z LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S SCR MOV TIODM,/S,TOSSWO
0x27e0e4…27e278 Dummy {f00=0x00a3, f01=0x0190, f02=»KPF /S,DMINIT SCR MOV DMOPCL,/S,TOSSWORK " KPF /S,DMOPCL @ SCR V MOV DMBUF,/S,TOSSWORK b KPF /S,DMBUF SCR MOV DMFDB,/S,TOSSWORK KPF /S,DMFDB SCR MOV DFTAB,/S,TOSSWORK KPF /S,DFTAB
0x27e278…27e40c Dummy {f00=0x00a3, f01=0x0190, f02=»SCR MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD * SCR @ MOV MPYMOD,/S,TOSSWORK L KPF /S,MPYMOD j SCR MOV DIVMOD,/S,TOSSWORK KPF /S,DIVMOD SCR MOV DMSUBR,/S,TOSSWORK KPF /S,DMSUBR SCR
0x27e40c…27e5a0 Dummy {f00=0x00a3, f01=0x0190, f02=» ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 0 ASM /S < KPF /O J KPF /S X SCR f LED DMBUF r !!CH $$ X:A$$ 00004$$ !!CH $$ X:B$$ 00256$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG
0x27e5a0…27e734 (5, 340) Dummy {f00=0x00a4, f01=0x018e, f02=» !!CH $$ X:B$$ 00001$$ !!CH $$ X:C$$ 00007$$ & ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ D ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ p ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x27e734…27e8c8 Dummy {f00=0x00a4, f01=0x0190, f02=» | !!IL 30 DATA /0101,/0101 !!EN 2 ASM /S > KPF /O L KPF /S Z SCR h LED DMFDB t !!CH $$ X:B$$ 00108$$ !!CH $$ X:C$$ 00100$$ !!CH $$ X:D$$ 00120$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x27e8c8…27ea5c Dummy {f00=0x00a4, f01=0x0190, f02=»/S SCR LED DMOPCL !!CH $$ X:B$$ 00001$$ ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ F ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ r ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR
0x27ea5c…27ebf0 Dummy {f00=0x00a4, f01=0x018e, f02=»2 EQU 0$$ v !!EN ASM /S KPF /O , KPF /S : SCR H LED DMOPCL T ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ f ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF
0x27ebf0…27ed84 Dummy {f00=0x00a4, f01=0x0190, f02=» j ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN 4 ASM /S @ KPF /O N KPF /S SCR j LED ADDMOD v ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$
0x27ed84…27ef18 Dummy {f00=0x00a4, f01=0x0190, f02=» $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED MPYMOD ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$C
0x27ef18…27f0ac Dummy {f00=0x00a4, f01=0x0190, f02=»U 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ H !!EN t ASM /S KPF /O KPF /S SCR LED DMSUBR ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$
0x27f0ac…27f240 Dummy {f00=0x00a4, f01=0x0190, f02=»V FMTASK,/S,TOSSWORK KPF /S,FMTASK SCR 2 LED FMTASK > ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ P ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ | ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S
0x27f240…27f3d4 (5, 341) Dummy {f00=0x00a4, f01=0x0190, f02=»/S SCR LED SYSTAB !!CH $$IHINPT$$TRAP$$ ( !!CH $$ X:A$$ 00005$$ F !!CH $$ EXTRN BUG$$*$$ d !!CH $$ BUG$$ 0$$ !!CH $$ X:B$$ 00003$$ !!CH $$ X:C$$ 00007$$ !!CH $$ X:E$$ 00006$$ !!CH $$ X:D$$ 0000
0x27f3d4…27f568 Dummy {f00=0x00a4, f01=0x018e, f02=» ILLINT !!DL 125 DATA ILLINT " !!DL 126 B DATA ILLINT R !!DL 127 r DATA ILLINT !!DL 128 DATA ILLINT !!DL 131 DATA ILLINT !!DL 1
0x27f568…27f6fc Dummy {f00=0x00a4, f01=0x0190, f02=» !!DL 135 DATA ILLINT !!DL 136 4 DATA ILLINT D !!DL 138 d DATA ILLINT t !!DL 140 DATA ILLINT !!DL 141 DATA ILLINT !!DL 142
0x27f6fc…27f890 Dummy {f00=0x00a4, f01=0x0190, f02=» DATA ILLINT !!DL 156 $ DATA ILLINT 4 !!DL 159 T DATA ILLINT d !!DL 163 DATA ILLINT !!EN ASM /S KPF /O KPF /S SCR LED PFTAB
0x27f890…27fa24 Dummy {f00=0x00a4, f01=0x0190, f02=» !!DL 052 !!DL 053 !!DL 054 ( !!DL 057 8 !!DL 058 H !!DL 059 X !!EN h ASM /S t KPF /O KPF /S SCR LED DVTKB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU
0x27fa24…27fbb8 Dummy {f00=0x00a4, f01=0x0190, f02=» z !!CH $$BCA$$FF0F$$ !!CH $$ED0$$BBBA$$ " " !!CH $$0 CODE $$CTAB01 CODE $$ < !!CH $$ECH$$DVDY00$$ b !!DL 5 ~ EXTRN CTAB01 !!EN ASM /S KPF /O KPF /S SCR LED DVTDI ( #!!CH $$CREDIT EQU
0x27fbb8…27fd4c Dummy {f00=0x00a4, f01=0x0190, f02=» z !!CH $$2010$$0000$$ !!CH $$/1111$$/9010$$ $ !!EN B ASM /S N KPF /O KPF /S j SCR x LED DVTDY ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU85
0x27fd4c…27fee0 Dummy {f00=0x00a4, f01=0x018e, f02=»/O KPF /S SCR LED DVTKB $ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 6 ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ b ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTKB$$DVKB01$$ !!CH $$KBAD$$KBAD3$$ !!CH $$/1111$$/1100$
0x27fee0…280074 (5, 342) Dummy {f00=0x00a4, f01=0x0190, f02=» EXTRN CTAB02 !!EN ASM /S * KPF /O 8 KPF /S F SCR T LED DVTDI ` ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ r ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTDI$$DVDI
0x280074…280208 Dummy {f00=0x00a4, f01=0x0190, f02=»LED DVTDY ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ > ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ j !!CH $$DVTDY$$DVDY01$$ !!CH $$/ABC$$/0128$$ !!CH $$/1111$$/B020$$ !!EN ASM /S
0x280208…28039c Dummy {f00=0x00a4, f01=0x0190, f02=»$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTKB$$DVKB02$$ 6 !!CH $$KBAD$$KBAD3$$ T !!CH $$/1111$$/4100$$ p !!CH $$BCA$$FFFF$$ !!CH $$ED0$$BBBA$$ " !!CH $$0 CODE $$CTAB03 CODE $$ !!CH $$ECH$$DVDY02$$ !!DL
0x28039c…280530 Dummy {f00=0x00a4, f01=0x0190, f02=»$CREDIT EQU 1$$ | ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ D !!CH $$DVTDI$$DVDI02$$ p !!CH $$2010$$0000$$ !!CH $$/1111$$/C010$$ !!EN ASM /S KPF /O KPF /S SCR
0x280530…2806c4 Dummy {f00=0x00a4, f01=0x018e, f02=»EQU 0$$ t !!CH $$DVTDY$$DVDY02$$ !!CH $$/ABC$$/0628$$ . !!CH $$/1111$$/D020$$ J !!EN h ASM /S t KPF /O KPF /S SCR LED DVTT1 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU
0x2806c4…280858 Dummy {f00=0x00a4, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED DVTT1 0 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ B ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ n ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTT1$$DVT103$$ !!CH $$/1111$$/A100$$ !!EN
0x280858…2809ec Dummy {f00=0x00a4, f01=0x0190, f02=»EQU 0$$MMUPAG EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTKB$$DVKB04$$ J !!CH $$KBAD$$KBAD3$$ h !!CH $$/1111$$/1100$$ !!CH $$BCA$$FFFF$$ !!CH $$ED0$$BBBA$$ " !!CH $$0 CODE $$CTAB05 CODE $$ !!CH $$ECH$$
0x2809ec…280b80 Dummy {f00=0x00a4, f01=0x0190, f02=»!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ , ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ X !!CH $$DVTGP$$DVGP04$$ !!CH $$/1111$$/2000$$ !!EN ASM /S KPF /O KPF /S SCR LED D
0x280b80…280d14 (5, 343) Dummy {f00=0x00a5, f01=0x0190, f02=» l !!CH $$DVTDI$$DVDI04$$ !!CH $$2010$$0000$$ & !!CH $$/1111$$/9010$$ B !!EN ` ASM /S l KPF /O z KPF /S SCR LED DVTDY ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$
0x280d14…280ea8 Dummy {f00=0x00a5, f01=0x0190, f02=»!!EN ASM /S KPF /O KPF /S ( SCR 6 LED TCLASS B !!IL 6 T EXTRN DVKB00 b EXTRN DVDI00 EXTRN DVDY00 EXTRN DVKB01 EXTRN DVDI01
0x280ea8…28103c Dummy {f00=0x00a5, f01=0x0190, f02=» DVT103 EXTRN DVKB04 EXTRN DVGP04 2 EXTRN DVDI04 R EXTRN DVDY04 r !!IL 11 DATA TC00 DATA TC01 DATA TC02 DAT
0x28103c…2811d0 Dummy {f00=0x00a5, f01=0x0190, f02=» DATA DVKB00 DATA /0041 ! DATA DVDI00 ! : DATA /0050 ! Z DATA DVDY00 ! z TC00E EQU * ! TC01 DATA TC01E-* ! DATA /0020 ! DATA
0x2811d0…281364 Dummy {f00=0x00a5, f01=0x0190, f02=» ! x TC01E EQU * " TC02 DATA TC02E-* " $ DATA /0020 " F DATA DVKB02 " f DATA /0041 " DATA DVDI02 " DATA /0050 " DATA DVDY02 " TC
0x281364…2814f8 Dummy {f00=0x00a5, f01=0x0190, f02=»A /0131 " DATA DVT103 # TC03E EQU * # 4 TC04 DATA TC04E-* # P DATA /0020 # r DATA DVKB04 # DATA /0030 # DATA DVGP04 # DATA /004
0x2814f8…28168c Dummy {f00=0x00a5, f01=0x0190, f02=»EN # ASM /S $ KPF /O $ KPF /S $ & SCR $ 4 LED SCLASS $ @ !!IL 6 $ R EXTRN DWTW01 $ ` EXTRN DWDM01 $ EXTRN DWFD01 $ !!IL 11 $ DATA TC00 $ DATA TC01 $
0x28168c…281820 Dummy {f00=0x00a5, f01=0x0190, f02=»1 $ z DATA DWTW01 % DATA /0031 % * DATA DWTW01 % J TC00E EQU * % j TC01 DATA TC01E-* % DATA /00C0 % DATA DWDM01 % TC01E EQU * % TC02
0x281820…2819b4 (5, 344) Dummy {f00=0x00a5, f01=0x0190, f02=» TC03E-* % DATA /00F8 & DATA DWFD01 & 4 DATA /01F9 & J DATA DWFD01 & j DATA /02FA & DATA DWFD01 & DATA /03FB & DATA DWFD01 & TC03E EQU * &
0x2819b4…281b48 Dummy {f00=0x00a5, f01=0x0190, f02=»XTRN CTAB02 & EXTRN CTAB03 ' EXTRN CTAB05 ' * !!DL 021 ' @ !!DL 022 ' P !!DL 024 ' ` !!DL 028 ' p !!DL 029 ' !!DL 030 ' !!DL 031 ' !!DL 032 ' !!DL 034 ' !!DL 035 ' !!DL 036 ' !!IL 50 ' **** '
0x281b48…281cdc Dummy {f00=0x00a5, f01=0x012c, f02=» !!DL 059 ( !!DL 060 ( !!DL 061 ( $ !!DL 062 ( 4 !!DL 063 ( D !!DL 065 ( T !!DL 066 ( d !!DL 067 ( t !!EN ( ASM /S ( KPF /O ( KPF /S ( SCR ( ASG /02,LP0F ( SCR ( INC SYSTAB ( LKE M ( KP
0x281cdc…281e70 Dummy {f00=0x00a5, f01=0x2008, f02=» ) 059 ( !!DL 060 ( !!DL 061 ( $ !!DL 062 ( 4 !!DL 063 ( D !!DL 065 ( T !!DL 066 ( d !!DL 067 ( t !!EN ( ASM /S ( KPF /O ( KPF /S ( SCR ( ASG /02,LP0F ( SCR ( INC SYSTAB ( LKE M ( KP
0x281e70…282004 Dummy {f00=0x00a5, f01=0x0190, f02=»* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF H P* r PORDERS EQU * | PQRR EQU *-ORDERS P DATA DMRDRE RANDOM READ PQSR EQU *-ORDERS P DATA DMSQRE SEQUENTIAL READ P IFT
0x282004…282198 Dummy {f00=0x00a5, f01=0x018e, f02=» P XIF P IFT INDXAC=0 P DATA DMTERR,DMTERR & P XIF B PQRW EQU *-ORDERS N P DATA DMRDWR RANDOM WRITE f PQSW EQU *-ORDERS " P DATA DMSQWR SEQUENTIAL WRITE P IFT INDXAC=1 PQINS EQU *-ORDERS P DATA DMINS INDEXE
0x282198…28232c Dummy {f00=0x00a5, f01=0x0190, f02=» P DATA DMREWR RANDOM REWRITE P IFT INDXAC=1 ( PQIRW EQU *-ORDERS > P DATA DMIRW INDEXED REWRITE X P XIF | P IFT INDXAC=0 P DATA DMTERR P XIF PQRD EQU *-ORDERS P DATA DMRDDE RANDOM DELETE P IFT INDXAC=1
0x28232c…2824c0 Dummy {f00=0x00a5, f01=0x0190, f02=»IR EQU *-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 : PQSTIND EQU *-ORDERS P P DATA DMSTIN START INDEXED l P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPC
0x2824c0…282654 (5, 345) Opaque[0x194]
0x282654…2827e8 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16a8, f03=0x0000}
0x282654…2827e8 IdxSect {
0x282654…2827e8 f00 = 0x00b5 // 0x282654 @0x0
0x282654…2827e8 f01 = 0x0010 // 0x282656 @0x2
0x282654…2827e8 gno = [ // 0x282658 @0x4
0x282654…2827e8 [0x00]: C0x00b5.0x1.0
0x282654…2827e8 [0x01]: C0x00b5.0x2.0
0x282654…2827e8 [0x02]: C0x00b5.0x3.0
0x282654…2827e8 [0x03]: C0x00b6.0x0.0
0x282654…2827e8 [0x04]: C0x00b6.0x1.0
0x282654…2827e8 [0x05]: C0x00b6.0x2.0
0x282654…2827e8 [0x06]: C0x00b6.0x3.0
0x282654…2827e8 [0x07]: C0x00b7.0x0.0
0x282654…2827e8 ]
0x282654…2827e8 }
0x2827e8…28297c Dummy {f00=0x00b5, f01=0x0190, f02=» 0 P IDENT TIODM REL 10.0 80-03-14 870105041000 P 8 P =1, COMMIT CHECK @ P 79-11-02 8 P**************************************************** p P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MANAGEMENT ACT
0x28297c…282b10 Dummy {f00=0x00b5, f01=0x0190, f02=» P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE T P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED P*
0x282b10…282ca4 Dummy {f00=0x00b5, f01=0x0190, f02=» A7 = ORDER WORD WITH W BIT = 0 P* A8 = ECB ADDRESS ( P* L P* V P* ` 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT j P* 4 P* THE FOLLOWING WORDS WILL BE SET IN THE FDB: & P* FDBSNR SECTOR NUMBER IN FILE
0x282ca4…282e38 Dummy {f00=0x00b5, f01=0x018e, f02=»T BLOCK POINTER v P* P* " D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: , P* LDKL A1,/<RETURN CODE> t P* ABL DISEND P* P* P EJECT P* P************** P* ENTRIES *
0x282e38…282fcc Dummy {f00=0x00b5, f01=0x0190, f02=» P ENTRY FDBRLE P ENTRY FDBBLF P ENTRY FDBTNR 4 P ENTRY FDBLRN J 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 E
0x282fcc…283160 Dummy {f00=0x00b5, f01=0x0190, f02=»HLT,FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR 0 , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR f P ENTRY EOFERR,EDMERR P EJECT P EXTRN SCTTCT P EXTRN RELPRO P EXTRN TDISP P EXTRN H
0x283160…2832f4 (5, 346) Dummy {f00=0x00b5, f01=0x0190, f02=» ORDER v P EXTRN DWTOPT OPTION BYTE & P EXTRN DWTTAB DM TASK TTAB ADDRESS 0 P EXTRN TTB:ID TASK ID Z P EXTRN MOVZUS,MOVZSU x P EXTRN DMTASK P EXTRN CALSNO P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL
0x2832f4…283488 Dummy {f00=0x00b5, f01=0x0190, f02=»XTRN FWTEW1 P EXTRN FWTFNR FILE NR P EXTRN FNDFDB DMTASK ROUTINE 2 P EXTRN FPB:FR V P EXTRN TTB:SA,QTJOB l P EXTRN DMTBM P EXTRN DMTIDS P EXTRN DFTAB,FWTVOL ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EJECT P
0x283488…28361c Dummy {f00=0x00b5, f01=0x0190, f02=»ION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 : * P* INDXAC EQU 0 OTHRERWISE ^ PX:A EQU 0 PINDXAC EQU 00001 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTI
0x28361c…2837b0 Dummy {f00=0x00b5, f01=0x0190, f02=»00 OUTSIDE MEDIUM LIMITS & PPROT EQU /0040 THIS DATA PROTECTED & PNODERR EQU /8800 NO EXPECTED DATA J , PKEYERR EQU /8400 EXPECTED KEY NOT FOUND t 2 PPROERR EQU /0010 ROLLBACK FOR PROTECT REASONS * PREQERR EQU /8000 GENERAL REQUEST ERROR " P
0x2837b0…283944 Dummy {f00=0x00b5, f01=0x018e, f02=» /9000 END OF FILE P* P* MESSAGES $ P* 8 " PRETRIE EQU /0100 DISC RETRIES B $ PNOKEY EQU /0400 NOT SEARCHED KEY h " PNXTKYS EQU /0200 NEXT KEY SAME PEOFRC EQU /1000 END OF FILE P* " PFCUSED EQU 7 INVALID FILE CODE
0x283944…283ad8 Dummy {f00=0x00b5, f01=0x018e, f02=» P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA READ DIRECT RANDOM F P DATA READ SEQUENTIAL f P IFT INDXAC=1 P DATA READ INDEXED P DATA READ INDEXED NEXT P XIF P IFT INDXAC=0 P DATA TIOD19,TIOD1
0x283ad8…283c6c Dummy {f00=0x00b5, f01=0x018e, f02=» t P XIF P IFT INDXAC=0 P DATA TIOD19 * P XIF > P DATA WRITE (RESERVED) J P DATA REWRIT REWRITE DIRECT h P IFT INDXAC=1 P DATA REWRIT REWRITE INDEXED P XIF P IFT INDXAC=0 P DATA TIOD19 P XIF P
0x283c6c…283e00 Dummy {f00=0x00b5, f01=0x0190, f02=» P DATA TIOD19 P XIF PQSTA EQU *-TIODMF $ P DATA STARTO START DIRECT > P IFT INDXAC=1 ` P DATA STARTO START INDEXED v P XIF P IFT INDXAC=0 P DATA TIOD19 P XIF P* F P* FOLLOWING FILE ADMINISTRATION FU
0x283e00…283f94 (5, 347) Dummy {f00=0x00b5, f01=0x0190, f02=»IODMF P DATA OPEN PCLOSOF EQU *-TIODMF P DATA CLOSE < PRDSTOF EQU *-TIODMF P P DATA RDSTAT READ STATUS l PRDFPOF EQU *-TIODMF & P DATA RDFILP READ FILE PARAMETERS P EJECT P* PTIODMO EQU * DM ORDERS P
0x283f94…284128 Dummy {f00=0x00b5, f01=0x0190, f02=» ~ P DATA /0BFF START P DATA /2122 OPEN,CLOSE " 0 P DATA /0003 READ STATUS,READ FILE PARAMETERS @ P* t $ PNOOFOR EQU 18 NO OF ORDER CODES ~ P* P EJECT P* 0 PDWTDRD EQU 42 START OF NON-STANDARD DWT PART P* P I
0x284128…2842bc Dummy {f00=0x00b5, f01=0x0190, f02=»EXTINGUISHED v P XIF P EJECT P* . P* FDB OFFSET DEFINITIONS 8 P* Z PFDBSTA EQU * d PDWDM01 EQU * x . P DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD P IFT MMUPAG=1 $ P DATA 0,FDBMMU SPECIAL DWT ITEMS P XIF P
0x2842bc…284450 Dummy {f00=0x00b5, f01=0x0190, f02=»TA FDBADF 4 P DATA 0,0,0,0,0,0,0 54,BYTE FDB AREA SYSTEM FDB P IFT MMUPAG=1 J PFDBMMU RES 7 MMU ECB AREA ` P XIF P EJECT PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER . PFDBRRO EQU START+20 RELATIVE R
0x284450…2845e4 Dummy {f00=0x00b5, f01=0x018e, f02=»R CALLING TASK r * PFDBLRN EQU START+27 LAST RECORD NUMBER * PFDBNIF EQU START+26 NO OF INDEX FILES D $ PFDBEAL EQU START+30 EA LINK ROOT r & PFDBCRL EQU START+32 CRN LINK ROOT 0 PFDBKA EQU START+34 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START
0x2845e4…284778 Dummy {f00=0x00b5, f01=0x0190, f02=» ` 8 PFDBDBR EQU START+48 DELAY,BASIC AND REL BUFFER FLAGS * PFDBDMI EQU START+49 RELATIVE DMTASK ID D " PFDBMRO EQU START+50 MAX FDBRRO r , PFDBBLZ EQU START+52 NR OF SECT IN BLOCK , PFDBMEC EQU START+54 MMU ECB DISPLACEMENT P IFT MMUPAG=1
0x284778…28490c Dummy {f00=0x00b5, f01=0x0190, f02=» INDEXED ACC p P XIF P* & P* CRN BUFFER OFFSET DEFINITIONS * P* T PCRNTID EQU 2 TASK ID ^ PCRNSTA EQU 3 CURRENT STATUS z " PCRNCDF EQU 4 CURRENT DATA FILE P EJECT ( P DATA 0 DATA MANAGEMENT DEVICE INDEX & PTIODM DATA
0x28490c…284aa0 Dummy {f00=0x00b5, f01=0x0190, f02=»,A6 USE ECB AS STACK P ENB P* ( 6 P* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR 2 P* l P LDK A2,0 v PTIOD05 LD A1,SCTTCT P ADR A1,A2 P LD A3,2,A1 P CW A3,DWTTAB,A6 P RF(E) TIOD10 THIS TASK P ADK A
0x284aa0…284c34 (5, 348) Dummy {f00=0x00b6, f01=0x018e, f02=»T ORDER INDEX IN DWTOR RIGHT BYTE P* * P LD A7,DWTOR,A6 ORDER WORD 4 P LDR A5,A7 V & P ANKL A5,/C0C0 SOME BITS FORBIDDEN h P RF(NZ) TIOD19 ERR P LD A5,FDBBLZ,A6 =1 P ANK A5,/FF =1 $ P RF(NZ) TIOD19 COMMIT MISSING =1 & P
0x284c34…284dc8 Dummy {f00=0x00b6, f01=0x0190, f02=» P RB(NN) TIOD15 >= 0 PTIOD19 EQU * $ P LDKL A1,REQERR 8 P ABL TIODMX ERR P PTIOD20 EQU * h P SLL A5,1 *2 | & P SC A5,DWTOR+1,A6 SAVE ORDER INDEX P CWK A6,FDBSTA " P RF(NE) TIOD25 NOT SYSTEM FWT P CWK A5,RDSTOF
0x284dc8…284f5c Dummy {f00=0x00b6, f01=0x0190, f02=» P CF A14,CRNGET CURRENCY P LDK A3,0 NEW STATUS $ P LC A4,CRNSTA,A2 OLD STATUS @ P SC A3,CRNSTA,A2 d ( P ABI TIODMF,A5 BRANCH TO DM FUNCTION | P* " P* A1 = FDB ADDRESS DATA FILE $ P* A2 = CURRENCY BUFFER ADDRESS & P* A4 =
0x284f5c…2850f0 Dummy {f00=0x00b6, f01=0x018e, f02=»A7 = USER ORDER WORD P* A8 = USER ECB ADDRESS P EJECT > PRDSTAT EQU * READ STATUS L P SC A4,CRNSTA,A2 STATUS CHAR l P ANK A4,/FF " P ST A4,ECBCW,A8 RETURN STATUS P CM ECBCW+2,A8 P LDK A1,0 RET CODE OK P ABL TIODM
0x2850f0…285284 Dummy {f00=0x00b6, f01=0x018e, f02=» P LDKL A3,/700 P TM A3,A7 ( P RB(NZ) TIOD19 NOT OPTION SEQUENTIAL , P SRL A7,10 INDEX * 2 X P ABL(Z) SEQREA SEQ READ t & P ABL IXRDNX INDEXED SEQ READ NEXT PREADDI EQU * DIRECT READ P SRL A7,10 INDEX * 2 & P ABL(Z) RANREA
0x285284…285418 Dummy {f00=0x00b6, f01=0x0190, f02=» PIXINS EQU * P RB TIOD19 P XIF . P EJECT : PWRITE EQU * WRITE ORDERS H P LC A3,FDBDBR,A6 h P ANK A3,/3 SHARABILITY & P RB(Z) TIOD19 ONLY INPUT ACCEPTED P LDKL A4,/100 " P LC A3,FDBNIF,A6 NR OF INDEXES P ANK
0x285418…2855ac Dummy {f00=0x00b6, f01=0x0190, f02=»NTIAL WRITE | P RB TIOD19 ERR PWRITE2 EQU * INDEXED * P TM A4,A7 F " P ABL(NZ) IXINS INDEXED INSERT X P RB TIOD19 NOT ALLOWED ~ P EJECT PREWRIT EQU * REWRITE ORDERS P* PDELETE EQU * DELETE ORDERS P* P LC
0x2855ac…285740 Dummy {f00=0x00b6, f01=0x0190, f02=»F P RF(Z) REW010 NO INDEX P LDK A3,2 ( P ADS A3,DWTOR,A6 ORDER INDEX : PREW010 EQU * ^ P LDKL A4,/400 r P TM A4,A7 P RF(NZ) REW020 CURRENT P SRL A7,8 P SUK A7,1 P RB(NZ) TIOD19 ERROR P ABL TIODMB DIRE
0x285740…2858d4 (5, 349) Dummy {f00=0x00b6, f01=0x0190, f02=» ID FOR DATA FILE) p P ABL TIODMA P IFT INDXAC=1 . P EJECT D PSTAIND EQU * START INDEXED R P SRL A7,10 INDEX * 2 t P LD A9,ECBRL,A8 KEY LENGTH P LDK A1,2 P RF STA090 P EJECT $ PIXRARE EQU * INDEXED RANDOM READ
0x2858d4…285a68 Dummy {f00=0x00b6, f01=0x0190, f02=» P LDR A2,A7 P ANKL A2,/FFF9 1-4 INDEXES P RB(NZ) TIOD19 ERROR < P ADR A7,A6 BASE IN DATA FDB X $ P LD A2,FDBAI1,A7 INDEX FDB ADDR | P ABL(Z) TIOD19 ERR P LDR A7,A2 P* P* COPY DWT ITEMS P* P LD A1,DWT
0x285a68…285bfc Dummy {f00=0x00b6, f01=0x018e, f02=»A1,FDBRLE,A2 P SUK A1,6 KEY LENGTH PIXR050 EQU * 0 P CM FDBKEY,A2 D P ADK A2,2 Z P SUK A1,2 l P RB(P) IXR050 MORE TO CLEAR ~ P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR
0x285bfc…285d90 Dummy {f00=0x00b6, f01=0x0190, f02=» d P* ! P LD A2,FDBRLE,A7 ! P SUK A2,6 MAX KEY LGTH ! * P CWR A2,A9 ! H P RF(NG) IXR070 ! Z " P LDR A2,A9 TAKE SMALLEST LGTH ! r PIXR070 EQU * ! P LDR A9,A2 SAVE ! P IFT MMUPAG=0 ! P CF A14,DMTBM FETCH KEY ! P XIF ! P I
0x285d90…285f24 Dummy {f00=0x00b6, f01=0x0190, f02=» ! P IFT INDXAC=1 " P* " 0 P* INCREASE KEY IF 'START GREATER ' IS REQ " ( P* " P CWK A5,QSTA " f P RF(NE) STA020 NOT START " z P LC A2,DWTOPT,A7 " P ANK A2,/7 OPTION " P SUK A2,1 " P RF(NZ) STA020 NOT GREATER " P LDR A2,
0x285f24…2860b8 Dummy {f00=0x00b6, f01=0x0190, f02=»E " x P LCR A1,A3 # P ADK A1,1 NEXT HIGHER KEY # P SCR A1,A3 # > P ANK A1,/FF OVERFLOW ? # P P RF(NZ) STA020 NO # n P CWR A2,A3 # P RB(NE) STA010 MORE BYTES # PSTA020 EQU * # P* # P* SWITCH TO INDEX FDB # P* # P LDR
0x2860b8…28624c Dummy {f00=0x00b6, f01=0x0190, f02=» # t P LDKL A1,EDMERR $ P LDK A4,FCUSED FC USED $ P SC A4,CRNSTA,A2 STATUSA $ > P ABL TIODMX $ ^ POPE050 EQU * $ r P LDK A1,LGTERR $ P LDKL A4,FPB:FR+8 MIN LGTH $ P CW A4,ECBRL,A8 REQ $ P ABL(G) TIODMX ERR $ PTIORRO EQU * $ P
0x28624c…2863e0 Dummy {f00=0x00b6, f01=0x0190, f02=»ERS $ r P LD A3,CRNCDF+2,A2 % $ P LD A2,CRNCDF,A2 CURRENT RECORD % & P ST A2,ECBCW,A8 % N P ST A3,ECBCW+2,A8 % f P RB TIORRO % P EJECT % PCLOSE EQU * CLOSE FILE % P* % ( P* CONNECT FILE CODE TO SYSTEM FWT % P* % $ P LD A1,DWT
0x2863e0…286574 (5, 350) Dummy {f00=0x00b6, f01=0x0190, f02=»EARCH % $ P LDKL A2,FDBSTA SYSTEM FWT ADDR & P ST A2,2,A4 FC ENTRY & 6 P LDK A2,0 & R P LC A2,FDBLRN,A6 & d & P LD A3,FDBLRN+1,A6 LAST RECORD NR & | P RF(NZ) CLO100 & P LDR A2,A2 & P RF(NZ) CLO100 & P LDK A3,1 LRN & PCLO100 EQU * &
0x286574…286708 Dummy {f00=0x00b6, f01=0x0190, f02=»,CRNCDF+2,A2 CURR LOG REC NO & . P LD A2,CRNCDF,A2 NO FILE ID FOR DATA FILE ' $ P ADK A3,1 CRN+1 ' V P RF(O) SEQR10 OVERFLOW ' n P RF SEQR20 ' PSEQR10 EQU * ' " P ANKL A3,/7FFF REMOVE OVERFLOW ' P ADK A2,1 ADD CARRY ' PSEQR20 EQU * ' P
0x286708…28689c Dummy {f00=0x00b6, f01=0x018e, f02=»CW,A8 REC NR ' P LD A3,ECBCW+2,A8 ( PRAN050 EQU * ( . $ P LDK A1,LGTERR INCORRECT LENGTH ( B P LD A4,ECBRL,A8 ( j , P ABL(NP) TIODME ERROR RETURN IF RL <= 0 ( P RF TIODMA ( P EJECT ( P IFT INDXAC=1 ( PIXINS EQU * INDEXED INSRERT (
0x28689c…286a30 Dummy {f00=0x00b6, f01=0x0190, f02=» P LDK A5,8 ) PIXINS3 EQU * ) P LDR A2,A6 FDB DATA ) * P ADR A2,A5 ) F P LD A3,FDBADF,A2 FDB INDEX ) X P RF(Z) IXINS4 NO INDEX ) z P LD A1,FDBKA,A3 KEY ADDR ) & P AD A1,ECBBA,A8 ADD USER BUF ADDR ) " P LDK A2,FDBKEY KEY AREA DISPL ) P
0x286a30…286bc4 Dummy {f00=0x00b6, f01=0x0190, f02=» EQU * ) P SUK A5,2 * P RB(NZ) IXINS3 MORE INDEXS * P XIF * B P* * N $ PSEQWRITE EQU * SEQUENTIAL WRITE * X P* * P LDK A2,2 * P ADS A2,DWTOR,A6 ORDER INDEX * P LC A2,FDBLRN,A6 * P LD A3,FDBLRN+1,A6 LRN * P IFT INDXAC=1 *
0x286bc4…286d58 Dummy {f00=0x00b6, f01=0x0190, f02=»6 * P ADS A1,DWTOR,A6 ORDER INDEX + P SUK A7,2 + . P LDR A2,A7 + @ P ANKL A2,/FFF9 1-4 INDEXES + R P ABL(NZ) TIOD19 ERR + t P LD A2,DWTOR,A6 + ( P LD A3,DWTECB,A6 ITEMS TO INDEX FDB + P* + P* SWITCH FDB + P* + P ADR A7,A6
0x286d58…286eec Dummy {f00=0x00b6, f01=0x0190, f02=»MS FROM DATA FILE + | P* , P* GET CRN , $ P* , 8 P LDK A2,0 , B P LDK A3,0 , T P* , f P* CHECK THAT FILE ID IS OK , p P* , P LC A7,FWTFNR,A6 FILE NR , P CC A7,CRNCIF,A4 , . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT , P
0x286eec…287080 Dummy {f00=0x00b6, f01=0x018e, f02=»XR030 OVERFLOW , P RF IXR040 - , PIXR030 ANKL A3,/7FFF REMOVE OVERFLOW BIT - ( P ADK A2,1 ADK CARRY - X PIXR040 EQU * - t * P RF TIODMA DO NOT CHECK EOF CONDITION - P EJECT - PSTARTO EQU * START ORDER - P IFT INDXAC=1 - P LDR A4,A7 -
0x287080…287214 (5, 351) Dummy {f00=0x00b6, f01=0x0190, f02=» P ECR A4,A7 . P ANK A4,/7 OPTION . P SUK A4,1 . 0 P RF(NZ) TIODMA NOT GREATER . B P RB IXR020 GET NEXT REC NR . d P EJECT . P* . P************************* . P* DMTASK ACTIVATION * . P************************* . P* .
0x287214…2873a8 Dummy {f00=0x00b6, f01=0x0190, f02=» LD A3,ECBCW+2,A8 . PTIODMC EQU * / P* / . P* NO EA FOR OTHER TASK / 8 P* / X P LD A1,FDBADF,A6 FDB ADDR / b P CF A14,EATEST / P LDR A4,A4 RTN INF / P RF(N) TIODPE EA OTHER TASK / PTIODMD EQU * / P LDR A1,A2 / P LDR A2,A3
0x2873a8…28753c Dummy {f00=0x00b6, f01=0x0190, f02=» P* 0 . P* ACTIVATE DMTASK WITH FDB ADDRESS IN A1 0 P* 0 @ PTIOD68 EQU * 0 J P* 0 ^ P* PREPARE DM INTERFACE 0 h P* 0 P LDKL A8,'#D' 0 P INH 0 P LDK A7,0 0 P LD A1,DWTOR,A6 ORDER 0 P ANK A1,/FF 0 P SUK A1,OPENOF 0
0x28753c…2876d0 Dummy {f00=0x00b6, f01=0x0190, f02=» P LDR A5,A2 1 P RF(Z) TASHLT 1 P LD A1,TTB:SA,A2 1 , P RF(Z) TIOD70 NOT ACTIVE 1 D P LDK A7,0 1 d P EJECT 1 v P* 1 P* GET SECONDARY DMTASK 1 P* 1 & P LC A1,FWTVOL,A6 VOLUME FILE CODE 1 PTIOD69 EQU * 1 P CC A1,DFTAB,A7 1
0x2876d0…287864 Dummy {f00=0x00b6, f01=0x018e, f02=»ASK REL ID 1 r PTIOD72 EQU * 2 P ADR A7,A8 TASK ID 2 & P CF A15,FNDTID A2:=TTAB ADDR 2 @ P LDR A5,A2 2 d P RF(NZ) TIOD70 2 v ( PTASHLT EQU * ABNORMAL SYSTEM ERRORS 2 P LDK A1,/11 DM ERR 2 P CF A15,HALT 2 * PTIOD70 LDKL A2,DMTASK DISPATCH ADD
0x287864…2879f8 Dummy {f00=0x00b6, f01=0x0190, f02=» P EJECT 3 P* 3 P************** 3 P* TIODME * 3 2 P************** 3 H P* 3 ^ J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x2879f8…287b8c Dummy {f00=0x00b6, f01=0x40ae, f02=»DDR 3 p PTIODMX EQU * 4 P* A1 = ERROR CODE 4 P* A6 = FDB ADDRESS 4 < P INH 4 X , P ABL DISEND CALL TENDIO GOTO DISPATCHER 4 d P* 4 P END 4 @ 4 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x287b8c…287d20 Dummy {f00=0x00b6, f01=0x2008, f02=» 5
0x287d20…287eb4 (5, 352) Dummy {f00=0x00b7, f01=0x0190, f02=»00 EQU * % P ENB & P RTN A14 & P EJECT DMSUBR & , 8 P****DESCRIPTION************************************* & D P* & 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO & P* RELATIVE & P* SECTOR AND OFFSET & P* & 8 P****ENTRY PA
0x287eb4…288048 Dummy {f00=0x00b7, f01=0x0190, f02=»CF A14,CALSNO & P* ' 8 P****EXIT PARAMETERS********************************* ' " P* ' ^ P* A1 = 0 OK ' h , P* NE 0 , ERROR =/A000=END OF MEDIUM ' ~ P* A6 = UNCHANGED ' $ P* IN FDB : FDBSNR = SECTOR NR ' * P* FDBRRO = OF
0x288048…2881dc Dummy {f00=0x00b7, f01=0x0190, f02=»R ' PCALSNO EQU * ( P* ( " P* FIND BLOCK NO WITHIN FILE ( ( P* ( N P LDR A5,A6 SAVE FDB ADDR ( X P LDK A6,0 ( x $ P LC A6,FDBBLF,A5 BLOCKING FACTOR ( , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER ( P RF(O) CALERR OVERFLOW ( P LDR A3,
0x2881dc…288370 Dummy {f00=0x00b7, f01=0x0190, f02=»OD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK ( PTIOD40 EQU * ) . * P* FIND LOGICAL SECTOR NUMBER ON DISC ) B P* ) p P LDR A6,A3 BLOCK NR ) z P RF(NP) CALERR ) P SUK A6,1 ) P LDK A7,0 ) ( P LC A7,FDBBLZ,A5 NR OF SECT IN BLOCK ) P CF A14,MPYM
0x288370…288504 Dummy {f00=0x00b7, f01=0x0190, f02=»L090 EQU * ) P ST A1,FDBSNR,A5 * P ST A2,FDBSNR+2,A5 SECT NR * * 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK * L P* * P LDK A3,0 * " P LDR A2,A9 REL REC NR IN BLOCK * PTIOD60 EQU * * P SUK A2,1 A2=REL REC NR * ( P RF(Z) TIOD65 REL
0x288504…288698 Dummy {f00=0x00b7, f01=0x0190, f02=»A1,EOMERR OUT OF MEDIUM * P RF TIODMF + P* + 2 , P* STORE RELATIVE REC OFFSET IN FBDRRO + < P* + l PTIOD65 EQU * + v P LDK A1,0 OK + P ST A3,FDBRRO,A5 + PTIODMF EQU * + P LDR A6,A5 FDB ADDR + P RTN A14 + P EJECT DMSUBR +
0x288698…28882c Dummy {f00=0x00b7, f01=0x0190, f02=»S DISC I/O + ` P* , P* INPUT A1 = FDB ADDRESS , P* , @ P* OUTPUT A6 = FDB ADDRESS , J P* A1 = 0 WHEN OK , n $ P* = ERROR CODE ELSE , $ P* A9 = DM ECB ADDRESS , * P* A8 = PHYS I/O ECB ADDRESS ,
0x28882c…2889c0 Dummy {f00=0x00b7, f01=0x018e, f02=» P LDKL A8,FDBECB - P ADR A8,A1 - P* - . P P* DMTIOZ IS THE SAME AS DMTIOT WITH DIFFERENCE THAT ECB ADDR IS INPUT PAR - 8 P* - PDMTIOZ EQU * - P* - P* RESTORE SECTOR NUMBER - P* - P LD A6,FDBSNR,A1 - P ST A6,ECBCW,A8
0x2889c0…288b54 (5, 353) Opaque[0x194]
0x288b54…288ce8 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14e0, f03=0x0000}
0x288b54…288ce8 IdxSect {
0x288b54…288ce8 f00 = 0x00a7 // 0x288b54 @0x0
0x288b54…288ce8 f01 = 0x0018 // 0x288b56 @0x2
0x288b54…288ce8 gno = [ // 0x288b58 @0x4
0x288b54…288ce8 [0x00]: C0x00a7.0x0.0
0x288b54…288ce8 [0x01]: C0x00a7.0x2.0
0x288b54…288ce8 [0x02]: C0x00ad.0x2.0
0x288b54…288ce8 [0x03]: C0x00ad.0x3.0
0x288b54…288ce8 [0x04]: C0x00ae.0x0.0
0x288b54…288ce8 [0x05]: C0x00ae.0x1.0
0x288b54…288ce8 [0x06]: C0x00ae.0x2.0
0x288b54…288ce8 [0x07]: C0x00b7.0x1.0
0x288b54…288ce8 [0x08]: C0x00b7.0x2.0
0x288b54…288ce8 [0x09]: C0x00b8.0x1.0
0x288b54…288ce8 [0x0a]: C0x00b8.0x2.0
0x288b54…288ce8 [0x0b]: C0x00b8.0x3.0
0x288b54…288ce8 ]
0x288b54…288ce8 }
0x288ce8…288e7c Dummy {f00=0x00a7, f01=0x0190, f02=» 2 P IDENT DMTASK REL 10.0 80-05-28 870105041000 P : P =4 , PR 6249 B P 80-03-14 Z P =3 ,DUPL KEY ONLY SEQ n P 79-11-28 P =2 , START NOT USED OK P 79-11-22 " P =1 , INDEXED START NOT LESS P 79-11-0
0x288e7c…289010 Dummy {f00=0x00a7, f01=0x0190, f02=»TASK = HANDLES DATAMANAGEMENT DISC I/O P* . P* 8 P* B P* L P* V 8 P**************************************************** ` P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT PARAMETERS: P* A1 = F
0x289010…2891a4 Dummy {f00=0x00a7, f01=0x018e, f02=»DB (FDBDMI, , -SNR). d : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS BLOCK F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET Z D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT 8 P* THE BLOCK MUST FIRST BE
0x2891a4…289338 Dummy {f00=0x00a7, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x289338…2894cc Dummy {f00=0x00a7, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x2894cc…289660 Dummy {f00=0x00a7, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x289660…2897f4 (5, 354) Dummy {f00=0x00a7, f01=0x0190, f02=»O P EXTRN DSUMOD . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU P EXTRN FNDKEY R P EXTRN CRNCIF,CRNCDF,CRNQUE h P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RDNXTR 6 P EXTRN FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS P EXTRN GTLGR
0x2897f4…289988 Dummy {f00=0x00a7, f01=0x018e, f02=»ONMMU , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK ( P EXTRN SCTPLD PROGRAM LOADING DEVICE > P EXTRN DMOPEN,DMCLOS,DMRFP j P EXTRN RELPRO & P EXTRN EOFRC,REQERR,NODERR,PROERR P EXTRN PROT,KEYERR,NXTKYS P EXTRN EOFERR P EXT
0x289988…289b1c Dummy {f00=0x00a7, f01=0x018e, f02=» P* P* P************************ P* CONDITIONAL ASSEMBLY * 8 P************************ X P* x P* P* PX:B EQU 0 PX:C EQU 0 PX:E EQU 1 P* 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH
0x289b1c…289cb0 Dummy {f00=0x00a7, f01=0x0190, f02=» 6 PRECBFZ EQU 00007 INDEX RECORD BUFFER SIZE IN WORDS 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 > P* r P* | P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 1
0x289cb0…289e44 Dummy {f00=0x00a7, f01=0x0190, f02=»* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF H P* r PORDERS EQU * | PQRR EQU *-ORDERS P DATA DMRDRE RANDOM READ PQSR EQU *-ORDERS P DATA DMSQRE SEQUENTIAL READ P IFT
0x289e44…289fd8 Dummy {f00=0x00a7, f01=0x018e, f02=» P XIF P IFT INDXAC=0 P DATA DMTERR,DMTERR & P XIF B PQRW EQU *-ORDERS N P DATA DMRDWR RANDOM WRITE f PQSW EQU *-ORDERS " P DATA DMSQWR SEQUENTIAL WRITE P IFT INDXAC=1 PQINS EQU *-ORDERS P DATA DMINS INDEXE
0x289fd8…28a16c Dummy {f00=0x00a7, f01=0x0190, f02=» P DATA DMREWR RANDOM REWRITE P IFT INDXAC=1 ( PQIRW EQU *-ORDERS > P DATA DMIRW INDEXED REWRITE X P XIF | P IFT INDXAC=0 P DATA DMTERR P XIF PQRD EQU *-ORDERS P DATA DMRDDE RANDOM DELETE P IFT INDXAC=1
0x28a16c…28a300 Dummy {f00=0x00a7, f01=0x0190, f02=»IR EQU *-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 : PQSTIND EQU *-ORDERS P P DATA DMSTIN START INDEXED l P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPC
0x28a300…28a494 (5, 355) Dummy {f00=0x00ad, f01=0x018e, f02=»EAD STATUS DONE IN TIODM PQRFP EQU *-ORDERS $ P DATA DMRFP READ FILE PARAMETERS : P EJECT b P************** p P* DMTASK * P************** P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH
0x28a494…28a628 Dummy {f00=0x00ad, f01=0x0190, f02=» " P* AND RFP,OPEN,STARTINDEXED P LD A4,FDBADF,A6 DATA FILE * * P CM FDBKA,A4 MARK 1ST PASS INDEXED DEL L PDMT020 EQU * z P* < P* LOOP ENTRY FOR INDEXED READ,INDEXED NEXT,INDEXED DEL P* START, AND SEQ READ P* P LD A7
0x28a628…28a7bc Dummy {f00=0x00ad, f01=0x0190, f02=» r P* P LD A2,ECBCW,A9 P LD A3,ECBCW+2,A9 REC NR * P CC A2,FDBLRN,A1 J P RF(L) SQR430 NO EOF b P RF(G) SQR410 EOF ~ P CW A3,FDBLRN+1,A1 P RF(NG) SQR430 NO EOF PSQR410 EQU * P LDKL A1,EOFERR EOF P ABL DMT
0x28a7bc…28a950 Dummy {f00=0x00ad, f01=0x0190, f02=»ADDR | $ P CF A14,GTBKBU GET BLOCK BUFFER P LDR A2,A2 4 $ P RF(N) DMT030 NO DATA IN BUFFER F P EJECT n P* | " P* DELAYED BUFFER IS WRITTEN & P* IF IT IS NOT THE WANTED BLOCK P* P LC A7,BUFOR,A3 DELAY FLAG P ANK A
0x28a950…28aae4 Dummy {f00=0x00ad, f01=0x0190, f02=»A3 SECT NR P ST A7,ECBCW,A8 P LD A7,BUFSNR+2,A3 * P ST A7,ECBCW+2,A8 D P LDK A7,/95 WRITE WAIT ^ P LKM | P DATA 15 4 P CF A14,DMTIOT RET CODE CHECK AND RESET SECT NR P LDR A1,A1 P ABL(NZ) DMTERR ERR " P CF A14,DM
0x28aae4…28ac78 Dummy {f00=0x00ad, f01=0x0190, f02=»CK INTO BUFFER P* P LDK A7,/91 PHYSICAL READ P LKM B P DATA 15 FM READ BLOCK N 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O l P LDR A1,A1 P ABL(NZ) DMTERR P LD A5,ECBBA,A8 P RF DMT090 . PDMT070 EQU * RIG
0x28ac78…28ae0c Dummy {f00=0x00ad, f01=0x0190, f02=»ER f P LDR A5,A3 & P ADKL A5,BUFSTA SKIP BUFFER HEADER * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB F PDMT090 EQU * t P LDR A1,A6 P LD A7,DWTOR,A6 P* A7 = INTERNAL ORDER CODE P ANK A7,/3F ( P ABI ORDERS,A7 DMTASK FUNCTION
0x28ae0c…28afa0 Dummy {f00=0x00ad, f01=0x0190, f02=» p " P* A7 = ORDER CODE ALL ORDERS P* (A8 = FDBECB ADDRESS ) . P* (A9 = USER ECB ADDRESS ) P P EJECT t PDMSQRE EQU * SEQUENTIAL READ P* PDMRDRE EQU * RANDOM READ P* PDMSTDI EQU * START DIRECT P* P*
0x28afa0…28b134 (5, 356) Dummy {f00=0x00ad, f01=0x0190, f02=»TE IN A1 | P RF(NE) DMT200 USED P CWK A7,QRR , P RF(E) DMT190 RANDOM READ @ P CWK A7,QSTDIR b P RF(NE) DMT250 NOT START x P LC A1,DWTOPT,A6 P ANK A1,7 OPTION P RF(NZ) DMT250 NOT EQUAL P RF DMT230 EQUAL =2 PDM
0x28b134…28b2c8 Dummy {f00=0x00ad, f01=0x0190, f02=»230 START P LD A2,ECBRL,A9 REQ LGTH P CW A2,FDBRLE,A6 RECORD LGTH 2 P RF(NG) DMT220 V P LD A2,FDBRLE,A6 MAX LGTH l & PDMT220 ST A2,ECBEL,A9 SET EFF LGTH P* P* MOVE THE RECORD P* P CF A14,DMTREM P* 0 P
0x28b2c8…28b45c Dummy {f00=0x00ad, f01=0x0190, f02=»DATA AT SEQ READ P* P* GET NEXT RECORD " P* > P LD A2,ECBCW+2,A9 REC NR H P ADK A2,1 h P RF(O) DMT260 OVERFLOW z P RF DMT270 PDMT260 ANKL A2,/7FFF P IM ECBCW,A9 CARRY PDMT270 ST A2,ECBCW+2,A9 PDMT280 E
0x28b45c…28b5f0 Dummy {f00=0x00ad, f01=0x0190, f02=» CF A14,EATEST P LDR A4,A4 P ABL(N) DMEAER PROTECT ERROR * P IFT INDXAC=1 N P LD A4,DWTOR,A6 ORDER d P ANK A4,/3F P CWK A4,QSTIND P ABL(E) DMT400 START INDEXED P XIF P LDR A1,A2 P LDR A2,A3 REC NR P
0x28b5f0…28b784 Dummy {f00=0x00ad, f01=0x0190, f02=» P LDR A1,A6 FDB ADDRESS P LC A3,FDBDBR,A6 DELAY " P ANK A3,/10 @ P RF(NZ) DMT295 KEEP BUFFER T P LD A3,ECBBA,A8 v P SUKL A3,BUFSTA BUFFER ADDR P* P* RELEASE BLOCK BUFFER P* P CF A14,DMTRBU PDMT295 EQU *
0x28b784…28b918 Dummy {f00=0x00ad, f01=0x018e, f02=»* PDMREWR EQU * RANDOM REWRITE P* . PDMRDDE EQU * RANDOM DELETE 8 P* Z PDMINS EQU * INDEXED INSERT d P* PDMDEL EQU * INDEXED DELETE P* PDMIRW EQU * INDEXED REWRITE P* P* TEST STATUS P LD A1
0x28b918…28baac Dummy {f00=0x00ad, f01=0x0190, f02=» ~ P LD A3,ECBCW+2,A9 LOG REC NR P LDK A4,0 , P CCR A4,A10 > P RF(E) DMS010 FREE R P IFT INDXAC=1 l P LDR A4,A7 P SUK A4,QINS P RF(E) DMS008 INDEXED INSERT P XIF P LDR A4,A7 P SUK A4,QRW P RF(E) DMS
0x28baac…28bc40 Dummy {f00=0x00ad, f01=0x018e, f02=»ECTED ~ P RF DMERR PDMS010 EQU * P IFT INDXAC=1 4 P LDR A4,A7 J P SUK A4,QIRW " P RF(Z) DMERND INDEXED REWRITE p P LDR A4,A7 P SUK A4,QDEL P RF(Z) DMERND INDEXED DELETE P XIF P LDR A4,A7 P SUK A4,QR
0x28bc40…28bdd4 (5, 357) Dummy {f00=0x00ae, f01=0x018e, f02=» P CF A14,EATEST P LDR A4,A4 RTN CODE P RF(N) DMEAER EA OTHER TASK : PDMS100 EQU * ^ P LDK A3,0 STATUS FREE r P IFT INDXAC=1 P LDR A2,A7 P SUK A2,QIRW " P RF(E) CHK010 INDEXED REWRITE P LDR A2,A7 P SUK
0x28bdd4…28bf68 Dummy {f00=0x00ae, f01=0x0190, f02=» P SUK A2,QDEL P RF(E) CHK010 INDEXED DELETE P XIF @ P LDR A2,A7 L P SUK A2,QRD ^ P ABL(E) DMT350 RANDOM DELETE r P RF DMT310 P IFT INDXAC=1 P EJECT PCHK010 EQU * F P* INDEXED REWRITE,INDEXED INSERT AND I
0x28bf68…28c0fc Dummy {f00=0x00ae, f01=0x0190, f02=»40 EQU * P SUK A5,2 $ P RF(N) CHK100 ALL INDEX CHECKED " P LDR A2,A1 FDB ADD J P ADR A2,A5 d ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE v P RB(Z) CHK040 NO INDEX P LD A2,DWTOR,A1 P ANK A2,/3F ORDER INDEX P CWK A2,QINS
0x28c0fc…28c290 Dummy {f00=0x00ae, f01=0x0190, f02=» A2,/4 * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT ! PCHK050 EQU * ! < P* ! P P IFT MMUPAG=1 ! Z P LDR A7,A1 SAVE A1 ! p * P LD A1,FDBKA,A6 GET KEY START ADDRESS ! P AD A1,ECBBA,A9 ! 2 P LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT ! P A
0x28c290…28c424 Dummy {f00=0x00ae, f01=0x0190, f02=»TAB,A7 GET TTAB ADDRESS ! , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA " P LDR A1,A7 RESTORE A1 " P P LDR A2,A13 RESTORE A2 " n * P LD A3,FDBKA,A6 GET KEY START ADDRESS " P XIF " P* " P IFT INDXAC=1 " P IFT MMUPAG=0 " " P LD A2,FDBKA
0x28c424…28c5b8 Dummy {f00=0x00ae, f01=0x0190, f02=»RRO,A1 " P ADR A3,A11 KEY IN FILE # P LDK A7,0 # . " P LD A6,FDBRLE,A6 RECORD LENGTH # @ P SUK A6,6 KEY LENGTH # f P CF A14,CHKKEY COMPARE KEYS # P CWR A6,A7 # * P RB(E) CHK040 KEY UNCHANGED CHECK NEXT # P LDR A6,A1 FDB ADDR # P LDKL
0x28c5b8…28c74c Dummy {f00=0x00ae, f01=0x0190, f02=»R INDEX # P RF DMT310 $ P XIF $ " P EJECT $ . " PDMERND LDKL A1,NODERR NO DATA $ < P RF DMERR $ b * PDMEAER EQU * RELEASE EA FOR ALL FILES $ t P SUR A9,A9 $ " P LC A9,FDBTNR,A6 USER TASK ID $ " P CF A14,RELPRO RELEASE PROTECT $ P LDKL A1
0x28c74c…28c8e0 Dummy {f00=0x00ae, f01=0x0190, f02=»NDXAC=1 $ P CWK A7,QDEL % P RF(NE) DMT313 NOT INDEX DEL % $ P* % H " P* MOVE KEYS TO FDB KEY AREAS % R P* % x P LDK A5,8 % PIXINS3 EQU * % P LDR A2,A6 FDB DATA % P ADR A2,A5 % P LD A3,FDBADF,A2 FDB INDEX % P RF(Z) IXINS4 NO
0x28c8e0…28ca74 (5, 358) Dummy {f00=0x00ae, f01=0x018e, f02=»RLE,A3 REC LGTH % P SUK A2,6 KEY LGTH & P ADKL A3,FDBKEY TO ADDR & 2 " P CF A14,DMTBM KEY TO FDB AREA & R PIXINS4 EQU * & x P SUK A5,2 & P RB(NZ) IXINS3 MORE INDEXS & P ABL DMXDEL INDEXED DEL & PDMT313 EQU * & P XIF & " P LD A2,F
0x28ca74…28cc08 Dummy {f00=0x00ae, f01=0x0190, f02=» P* ' P IFT MMUPAG=0 ' P XRR A4,A1 ' $ P ANK A4,/01 ' 6 ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN ' J & P CF A14,DMTBM ONE ODD AND ONE EVEN ' v P RF DMT340 ' P* ' PDMT320 LDR A4,A3 ' P ANK A4,/01 ' P RF(E) DMT330 BOTH EVEN ' P
0x28cc08…28cd9c Dummy {f00=0x00ae, f01=0x0190, f02=»* ' P XIF ( P* ( P IFT MMUPAG=1 ( P LDR A3,A2 GET LENGTH ( 6 , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS ( T & P LD A4,DWTTAB,A6 GET TTAB ADDRESS ( 8 P CF A14,MOV:US MOVE RECORD FROM USER TO SYSTEM AREA ( P XIF ( P EJECT ( P* (
0x28cd9c…28cf30 Dummy {f00=0x00ae, f01=0x018e, f02=» ( P RF(N) DMT390 DELAY NO WRITE ) P LDK A7,/95 PHYSICAL WRITE ) , P* ) N P* WRITE BLOCK TO DISC ) X P* ) x ( P LDR A1,A6 FDB ADDRESS AS PARAMETER ) P LKM ) P DATA 15 FM WRITE ) " P CF A14,DMTIOT CHECK DISC I/O ) P LDR A1,A1 )
0x28cf30…28d0c4 Dummy {f00=0x00ae, f01=0x0190, f02=» PDMT400 EQU * * " P LDR A1,A6 FDB ADDR DATA FILE * & P CF A14,CRNGET GET CURRENCY BUFFER * > P LDR A10,A2 BUFFER ADDR * h P LD A2,ECBCW,A9 * P LD A3,ECBCW+2,A9 LOG REC NR * P LD A7,DWTOR,A1 * P ANK A7,/3F ORDER INDEX * P LDK A4,QRW
0x28d0c4…28d258 Dummy {f00=0x00ae, f01=0x0190, f02=»4,QSW * P CWR A7,A4 + P RF(E) DMT460 SEQ WRITE + P IFT INDXAC=1 + @ P LDK A4,QIRW + V P CWR A7,A4 + j P RF(E) DMT420 IND REWR + | P LDK A4,QINS + P CWR A7,A4 + P RF(E) DMT460 INDEXED INSERT + P CWK A7,QSTIND + P RF(E) DMT40
0x28d258…28d3ec Dummy {f00=0x00ae, f01=0x0190, f02=»A2 + P LDR A5,A3 , P SUK A5,1 , P RF(NN) DMT408 , . P ANKL A5,/7FFF , D P SUK A4,1 , Z PDMT408 EQU * , l " P ST A4,CRNCDF,A10 NEW CURRENCY , P ST A5,CRNCDF+2,A10 , P RF DMT420 , PDMT409 EQU * , P ST A2,CRNCDF,A10 , & P ST A3
0x28d3ec…28d580 Dummy {f00=0x00ae, f01=0x0190, f02=» , P RF(Z) DMT470 NOT PROTECT - P* - * " P* CHECK IF EA IS SET ALREADY - 4 P* - Z P CF A14,EATEST CHECK EA - d P LDR A4,A4 - " P RF(NZ) DMT470 EA ALREADY SET - P* - P* SET EA - P* - P CF A14,EASETB - P RF DMT470 -
0x28d580…28d714 (5, 359) Dummy {f00=0x00ae, f01=0x0190, f02=»70 EQU * - P IFT INDXAC=1 . P LDK A4,QINS . & P CWR A7,A4 . : " P ABL(E) DMINS2 INDEXED INSERT . L P XIF . r P EJECT . ~ " PDMTAEX LDK A1,0 CORRECT RETURN . P* . PDMTERR LC A3,FDBDBR,A6 . P ANK A3,/10 . P RF(NZ) DMTERX KEEP BUFFER
0x28d714…28d8a8 Dummy {f00=0x00ae, f01=0x0190, f02=» GET FDB DATA FILE . P INH / P* A1 = RET CODE / & P* A6 = DWT ADDR / @ P CF A15,TENDIO / Z P ENB / p P LKM / | P DATA 3 / P IFT INDXAC=1 / P EJECT / $ PDMIRR EQU * INDEXED RANDOM READ / P* / PDMSTIN EQU * START INDEXED
0x28d8a8…28da3c Dummy {f00=0x00ae, f01=0x0190, f02=»FDBRLE,A1 REC LGTH INDEX / P SUKL A11,6 KEY LENGTH 0 P LDR A13,A1 0 > P ADKL A13,FDBECB ECB ADDR 0 R $ P CF A14,FNDKEY GET INDEX RECORD 0 t ( PDMR006 EQU * FROM INDEXED READ NEXT 0 P LD A9,DWTECB,A1 0 P LDR A6,A1 FDB ADR 0 P LDKL A8,FDBEC
0x28da3c…28dbd0 Dummy {f00=0x00ae, f01=0x0190, f02=» 0 x P LC A4,DWTOPT,A6 1 P ANK A4,7 OPTION 1 P RF(Z) DMR007 EQUAL 1 8 " P ANKL A2,/FBFF IGNORE NOKEY =1 1 T PDMR007 EQU * 1 z P LDR A2,A2 RET CODE 1 $ P RF(NZ) DMI037 KEY NOT FOUND =4 1 $ P LD A2,FDBRRO,A1 RECORD ADDR =3 1 P ADKL A2,BUFST
0x28dbd0…28dd64 Dummy {f00=0x00ae, f01=0x0190, f02=» P* MOVE LOG REC NO TO ECB 2 P* 2 & P LDK A5,0 2 0 P LC A5,3,A2 2 B P ST A5,ECBCW,A9 2 V P LC A5,4,A2 2 n P ECR A5,A5 2 P LC A5,5,A2 2 P ST A5,ECBCW+2,A9 2 P* SET CRN 2 P* 2 $ P LD A11,FDBADF,A6 FDB DATA FILE 2 P
0x28dd64…28def8 Dummy {f00=0x00ae, f01=0x0190, f02=»X FILE 2 x ( P CF A14,GTLGRN GET INDE X LOG REC NO 3 P LDK A5,QRR RANDOM READ 3 : P LD A7,DWTOR,A11 3 Z P ANK A7,/3F ORDER 3 r P SUK A7,QSTIND 3 P RF(NE) DMR025 INDEXED READ 3 P LDK A5,QSTIND START INDEXED 3 P SUK A3,1 3 P RF(NN) DMR0
0x28def8…28e08c Dummy {f00=0x00ae, f01=0x0190, f02=»INDEX FILE 3 x P LD A2,ECBCW,A9 REC NR DATA 4 P ST A2,CRNCDF,A10 4 6 P LD A2,ECBCW+2,A9 4 P P ST A2,CRNCDF+2,A10 4 j P LC A2,FWTFNR,A6 FILE NR 4 P SC A2,CRNCIF,A10 4 P LDR A6,A11 FDB DATA 4 P SC A5,DWTOR+1,A6 NEW ORDER 4 P LDKL A2
0x28e08c…28e220 Dummy {f00=0x00ae, f01=0x0190, f02=»******************************************* 4 " P LD A2,FDBRRO,A1 RECORD OFFSET 5 4 P LDR A3,A5 5 Z P SUKL A3,BUFSTA 5 l PDMI100 EQU * 5 P ADR A2,A3 BUFFADR 5 P ADKL A2,BUFSTA 5 ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR 5 P LDK A5,/FF USED M
0x28e220…28e3b4 (5, 360) Dummy {f00=0x00b7, f01=0x018e, f02=» P* CHECK IF END OF FILE 6 P* 6 $ P LDR A9,A3 SAVE 6 . P CF A14,GTLGRN GET REC NR 6 F P CC A2,FDBLRN,A1 6 h P RF(L) DMI106 NOT EOF 6 P RF(G) DMI105 EOF 6 P CW A3,FDBLRN+1,A1 6 P RF(L) DMI106 NOT EOF 6 PDMI105 LDR A3,A9 6 P
0x28e3b4…28e548 Dummy {f00=0x00b7, f01=0x0190, f02=» 6 P* INDEX RECORD IS FOUND 7 P* 7 * P LD A9,DWTECB,A1 USER ECB 7 4 P* 7 V P* KEY RECORD FOUN 7 ` . P* CHECK IF NEXT RECORD HAS THE SAME KEY 7 | P* 7 " P LD A2,FDBRRO,A1 RECORD OFFSET 7 P ADKL A2,BUFSTA 7 P ADR A2,A3 REC ADD
0x28e548…28e6dc Dummy {f00=0x00b7, f01=0x0190, f02=») DMR020 NEXT KEY NOT SAME 7 P LDKL A5,NXTKYS BIT 6 8 " " P ORS A5,ECBRC,A9 NEXT KEY SAME 8 @ PDMR020 EQU * 8 f P LDK A2,0 MARK FOUND 8 z . P ABL DMR006 CONT AS FOR INDEXED RAND READ 8 * PDMI037 LDKL A1,KEYERR KEY NOT FOUND =4 8 P RF DMI035 =4 8
0x28e6dc…28e870 Dummy {f00=0x00b7, f01=0x0190, f02=»QU * 8 P LDKL A1,NODERR NO IDENT 9 PDMI035 EQU * 9 , P LDR A3,A3 BUFFER ADDR 9 @ P ABL(Z) DMTERX NO BUFFER 9 ^ P ABL DMTERR ERROR AND BUFFER 9 ~ PDMI036 EQU * 9 P ANK A1,/27 9 " P RB(NZ) DMI035 BIT 10,13,14,15 9 " P LDKL A1,EOMERR GRAVE ER
0x28e870…28ea04 Dummy {f00=0x00b7, f01=0x0190, f02=»******************************************* 9 P LC A3,FDBDBR,A6 : 4 P ANK A3,/10 : L P RF(NZ) DXI010 KEEP BUFFER : ` P LD A3,ECBBA,A8 : P SUKL A3,BUFSTA : " P CF A14,DMTRBU RELEASE BUFFER : PDXI010 EQU * : P LDK A5,10 LOOPER : PDX
0x28ea04…28eb98 Dummy {f00=0x00b7, f01=0x0190, f02=» A4,A6 FDB DATA : P ADR A4,A5 ; P LD A1,FDBADF,A4 FDB INDEX ; * P RB(Z) DXI020 NO INDEX ; L P LD A2,DWTOR,A6 ORDER ; j P ST A2,DWTOR,A1 ; " P LD A2,DWTECB,A6 USER ECB ADDR ; P ST A2,DWTECB,A1 ; P ST A5,FDBKA,A6 SAVE COUNTER ; P SUK A
0x28eb98…28ed2c Dummy {f00=0x00b7, f01=0x0190, f02=» P* < PDMTAR5 EQU * < " P LD A6,FDBADF,A1 FDB DATA FILE < " * P LD A5,FDBKA,A6 GET COUNTER OF INDEXES < H P RB DXI020 TAKE NEXT INDEX < v PDXI100 EQU * INDEXES READY < P LDK A1,0 RET CODE < P SUK A7,QINS INDEXED INSERT < P ABL(E) DMTERX R
0x28ed2c…28eec0 Dummy {f00=0x00b7, f01=0x0190, f02=» < P* GET KEY IN USER BUFFER = P* = * P LD A4,FDBADF,A1 DATA FDB = 4 P LD A4,DWTECB,A4 USER ECB = V P LD A8,ECBBA,A4 USER BUFFER = x P AD A8,FDBKA,A1 KEY ADDR = P RF INS010 = P XIF = P IFT INDXAC=1 = P* = $ PDMDELX EQU * D
0x28eec0…28f054 (5, 361) Dummy {f00=0x00b7, f01=0x0190, f02=» EQU * = P LDR A12,A8 > $ P LD A11,FDBRLE,A1 RECORD LENGTH > " P SUKL A11,6 KEY LENGTH > J P LDR A13,A14 > h 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS > | $ P CF A14,FNDKEY GET INDEX RECORD > P LDR A6,A1 FDB ADDR > P LDR A1,A2 RET CODE
0x28f054…28f1e8 Dummy {f00=0x00b7, f01=0x0190, f02=»,DWTOR,A6 > P ANK A1,/3F ? P SUK A1,QDEL ? & & P ABL(E) DEL000 DELETE INDEX RECORD ? : P* ? d ( P* SET RC BIT 6 TO USER IF NEXT KEY ? n " P* IS SAME IN REQUESTED INDEX ? P* ? P LDR A2,A2 ? $ P RF(NZ) INS050 NEXT KEY NOT SAME ? " P LDK
0x28f1e8…28f37c Dummy {f00=0x00b7, f01=0x0190, f02=»* ? P LDR A1,A6 FDB @ P LD A2,FDBRRO,A1 REC OFFS @ P RF INS100 @ B PINS080 EQU * @ T P CF A14,RDNXTR GET NEXT REC @ h P RF INS100 OK @ P ABL DEL045 ERROR @ PINS100 EQU * @ P ADR A2,A3 @ P ADKL A2,BUFSTA @ P AD A2,FDBRLE,
0x28f37c…28f510 Dummy {f00=0x00b7, f01=0x0190, f02=»B INS080 GET FIRST RE C IN NXT SECT @ PINS150 EQU * A , P LC A5,-4,A2 DUPL KEY CHAR A @ P CWR A5,A11 KEY LENGTH A b $ P RB(E) INS080 NEXT SAME GET NEXT A P* A P* UPDATE LAST SAME RECORD A P* A P SC A11,-4,A2 NEXT SAME A P LD A7,F
0x28f510…28f6a4 Dummy {f00=0x00b7, f01=0x0190, f02=»5 WRITE,WAIT A P LKM B P DATA 15 FM B P CF A14,DMTIOZ IO CHECK B 4 P LDR A1,A1 B T P ABL(NZ) DMTERR B f P* B ~ P* GET NEXT RECORD B P* B PINS160 EQU * B " P LDR A7,A5 NR OF SAME IN NEXT B P LDR A1,A6 FDB B P CF A14,RD
0x28f6a4…28f838 Dummy {f00=0x00b7, f01=0x0190, f02=»B,A6 USER ECB ADDR B P XIF C P IFT INDXAC=1 C & PINS050 EQU * C < P* C P ( P* CREATE AN INDE XRECORD IN AREA 1 C Z P* C P LDR A1,A12 FROM ADDR C P* C P LDR A3,A14 C P ADK A3,2 TO ADDR C P LDR A2,A11 KEY LENGTH C P CF
0x28f838…28f9cc Dummy {f00=0x00b7, f01=0x0190, f02=»A3 NR OF SAME CHAR C P ADK A3,1 D " P LDR A7,A3 ADDR OF LOG REC NR D , P LD A2,ECBCW,A5 D R * P LD A3,ECBCW+2,A5 REC NR DATA FILE REC D j P SCR A2,A7 D P ADK A7,2 D P SCR A3,A7 D P ECR A3,A3 D P SUK A7,1 D P SCR A3,A7 LOG REC NR
0x28f9cc…28fb60 Dummy {f00=0x00b7, f01=0x018e, f02=»DEX D t P* E , P* SAVE RECORD NR FOR FIRST MOVED INDEX E P* E F P ST A2,-28,A14 E P P ST A3,-26,A14 E f P EJECT E | P* E : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING E $ P* USED RECORDS ROLLED FORWARD E $ P* A6,A11,A13
0x28fb60…28fcf4 (5, 362) Dummy {f00=0x00b8, f01=0x0190, f02=» P* A10 = AREA ADDR F " P* A11 = RECORD LENGTH INDEX F , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 F F $ P* A13 = BUFFER ADDRESS BLOCK F v P* F PINS190 EQU * F P LDKL A12,1 BUFADR2 F PINS200 EQU * F P LDK A1,0 F P LDR A12,A
0x28fcf4…28fe88 Dummy {f00=0x00b8, f01=0x0190, f02=»1,2 F ( P ADR A10,A1 RECORD BUFFER AREA ADDR G P* G 8 P* SAVE LAST RECORD G B P* G ^ P LDR A1,A13 G h P ADKL A1,BUFSTA G | . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT G P LDR A2,A11 G P LDR A3,A10 G " P CF A14,DMTBM SAVE LAST RE
0x28fe88…29001c Dummy {f00=0x00b8, f01=0x0190, f02=» A5,A1 G P LD A2,FDBMRO,A6 H P SU A2,FDBRRO,A6 NR OF CHAR H & P LDR A3,A1 H J P ADR A3,A11 TO ADDR H P CF A14,DMTBMR MOVE H x P* INSERT NEW RECORD H P* H P LDKL A1,RECBFZ BUFFER SIZE H P SLL A1,1 BYTE NO H P LDR A12,A12 H
0x29001c…2901b0 Dummy {f00=0x00b8, f01=0x018e, f02=» ADDR H P LDR A2,A11 NR OF CHAR I P LDR A3,A5 TO ADDR I , P CF A14,DMTBM MOVE I F P* WRITE BUFFER I ` P* I x P LDR A8,A14 USE STACK AS ECB I P SUKL A8,24 I " P LC A2,FWTFNR,A6 VOL DEV CODE I P ANK A2,/FF I P STR A2,A8 I P
0x2901b0…290344 Dummy {f00=0x00b8, f01=0x0190, f02=» I | P ST A2,ECBRL,A8 J P LD A2,FDBSNR,A6 SECTOR NR J P ST A2,ECBCW,A8 SECTOR NR J B P LD A3,FDBSNR+2,A6 J d P ST A3,ECBCW+2,A8 SECT NR J ~ P LDK A7,/95 WRITE , WAIT J P LKM J P DATA 15 FM J P LDR A1,A6 FDB INDEX J P CF A14,DMTI
0x290344…2904d8 Dummy {f00=0x00b8, f01=0x0190, f02=» P LDR A2,A10 RECORD AREA ADDR K P ADR A2,A11 REC LGTH K ( " P SUK A2,1 ADDR OF STATUS CHAR K D P LD A4,FDBMRO,A6 K j ( P ST A4,FDBRRO,A6 MAX OFFSET IN SECT K P CCR A1,A2 K P RF(Z) INS400 FREE RECORD K P* K P* GET NEXT BLOCK K P*
0x2904d8…29066c Dummy {f00=0x00b8, f01=0x0190, f02=» K P RF DEL045 ERR L PINS260 EQU * L P LDR A13,A3 NEW BUFFER ADDR L 2 P LDR A12,A12 L V ( P RB(Z) INS190 SWITCH RECORD BUFFERS L j P SUR A12,A12 L P RB INS200 L P EJECT L PINS400 EQU * L P* L ( P* UPDATE LRN IF EOF IS ENCOUNT
0x29066c…290800 Dummy {f00=0x00b8, f01=0x0190, f02=»410 EOF L P CW A3,FDBLRN+1,A1 M P RF(NG) INS430 NO EOF M * PINS410 EQU * M H " P SC A2,FDBLRN,A6 LLAST REC NR M P ST A3,FDBLRN+1,A6 M P LDKL A1,EOFRC END OF FILE M P ORS A1,ECBRC,A9 TO USER M P EJECT M PINS430 EQU * M P* M
0x290800…290994 (5, 363) Dummy {f00=0x00b8, f01=0x0190, f02=»REC NR MOVED M P LD A10,-28,A14 N & P LD A11,-26,A14 FIRST REC NR MOVED N , * P CF A14,CRNUPD ADD 1 TO RECORD NUMBERS N V PINS440 EQU * N P LDR A1,A5 FDB INDEX N P LDR A3,A13 BUFFER ADDR N P CF A14,DMTRBU REL BUFFER N * P ABL DMTAR5 ONE IN
0x290994…290b28 Dummy {f00=0x00b8, f01=0x0190, f02=» PDEL010 EQU * O " P ABL(NZ) DMI036 KEY NOT FOUND O P* O > P* CHECK RECORD NR DATA REC O H P* O l PDEL020 EQU * O v P LD A1,FDBRRO,A6 O P ADR A1,A3 O P AD A1,FDBRLE,A6 O " P ADK A1,7 BUFSTA-3=ADDR REC NR O P LCR A2,A1 O P CC
0x290b28…290cbc Dummy {f00=0x00b8, f01=0x0190, f02=»,ECBCW+2,A12 O P RF(E) DEL200 RECORD FOUND P PDEL030 EQU * P 6 P EJECT P J P* P X P* CHECK IF NEXT KEY SAME P b P* P P CC A11,-1,A1 KEY LENGTH P $ P RB(NE) DEL010 NEXT KEY NOT SAME P P LDR A1,A6 FDB INDEX P PDEL040 EQU * P ( P C
0x290cbc…290e50 Dummy {f00=0x00b8, f01=0x0190, f02=» * P P* Q P* CHECK IF RECORD IS USED Q P* Q 8 P LDR A13,A3 NEW BUFFER ADDR Q B P ADR A2,A3 Q f P ADKL A2,BUFSTA Q x $ P AD A2,FDBRLE,A1 ADDR OF STATUS Q P LDK A5,/FF Q P CCR A5,A2 Q P RB(E) DEL020 USED Q P LD A4,FDBMRO,A1
0x290e50…290fe4 Dummy {f00=0x00b8, f01=0x018e, f02=»RC BIT 6 IF NEXT KEY SAME Q P* R " P LDK A7,0 R , P LC A7,-1,A1 NR OF SAME CHAR R > 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB R b P CWR A11,A7 KEY LENGTH R $ P RF(NE) DEL220 NEXT KEY NOT SAME R P LDKL A4,NXTKYS R $ P ORS A4,ECBRC,A12
0x290fe4…291178 Dummy {f00=0x00b8, f01=0x018e, f02=» R n P LDR A3,A13 S P ADKL A3,BUFSTA S P AD A3,FDBRRO,A6 TO ADDR S 4 P LDR A1,A3 S T P ADR A1,A11 FROM ADDR S f P LD A2,FDBMRO,A6 S P SU A2,FDBRRO,A6 NR OF CHAR S P CF A14,DMTBM MOVE S P* S P* SET LAST RECORD FREE S P* S
0x291178…29130c Dummy {f00=0x00b8, f01=0x0190, f02=» S n P* T P LDR A1,A6 FDB ADDR T P CF A14,GTLGRN GET REC NR T . P LDR A10,A2 T P " P LDR A11,A3 FIRST REC NR MOVED T d P LD A12,FDBRRO,A6 OLD OFFSET T P LD A4,FDBMRO,A6 T P ST A4,FDBRRO,A6 MAX OFFSET T $ P CF A14,GTLGRN LAST REC NR MOV
0x29130c…2914a0 Dummy {f00=0x00b8, f01=0x018e, f02=»N BUFFERS T x $ P LDKL A12,1 MARK BUFFER CHANGED U PDEL240 EQU * U : P LD A4,FDBRRO,A5 U N $ P RF(NZ) DEL290 NOT FIRST RECORD U f P LDR A1,A5 FDB U P CF A14,GTLGRN GET REC NR U P LDR A1,A2 U P LDR A2,A3 U P LDK A6,0 U P LDK A7,1 U
0x2914a0…291634 (5, 364) Dummy {f00=0x00b8, f01=0x0190, f02=» U r P LDR A5,A6 FDB ADDR V P LDR A1,A1 V $ P RF(NZ) DEL600 FILE START V 6 P LDR A8,A14 V X P ADKL A8,2 ECB ADDR V l P LDR A12,A12 V $ P RF(Z) DEL245 BUFFER NOT CHANGED V P* V P* WRITE SECTOR V P* V P LDK A7,/95 WRITE WAIT V
0x291634…2917c8 Dummy {f00=0x00b8, f01=0x0190, f02=»UR A12,A12 BUFFER NOT CHANGED YET V PDEL245 EQU * W * P LDR A3,A13 W > " P CF A14,DMTRBU RELEASE BUFFER W R P* W x P* GET PREVIOUS SECTOR W P* W P LDR A1,A5 FDB ADDR W P LDK A3,0 W P CF A14,RDNXTR GET SECTOR W P RF DEL250 O
0x2917c8…29195c Dummy {f00=0x00b8, f01=0x018e, f02=»D A4,FDBMRO,A5 W P RF DEL300 X PDEL290 EQU * X ( P SU A4,FDBRLE,A5 X < P SUK A4,1 X T PDEL300 EQU * X f * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET X z P ADKL A4,BUFSTA X P ADR A4,A13 RECORD ADDR X & P AD A4,FDBRLE,A5 STATUS CHAR ADDR X
0x29195c…291af0 Dummy {f00=0x00b8, f01=0x0190, f02=» X x P LD A1,FDBADF,A5 FDB DATA F Y " P CF A14,CRNGET GET CRN BUFFER Y , " P LC A1,FWTFNR,A5 INDEX FILE NR Y R $ P CC A1,CRNCIF,A2 LAST REF INDEX Y x P RF(NE) DEL350 NOT THIS IND Y P* Y P* UPDATE CURRENCY Y P* Y P LDR A8,A2 CRN ADDR
0x291af0…291c84 Dummy {f00=0x00b8, f01=0x0190, f02=» * Y . P LC A2,17,A14 NR OF SAME IN DELETED RECORD Z " P* WAS SAVED AT LABEL DEL200 Z < P CC A2,-4,A9 Z b P RF(NL) DEL600 Z v ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER Z P RF DEL700 WRITE SECTOR Z PDEL600 EQU * Z P LDR A12,A12 Z $ P RF(Z) D
0x291c84…291e18 Dummy {f00=0x00b8, f01=0x40f0, f02=» Z | P LDK A7,/95 WRITE WAIT [ P LKM [ & P DATA 15 FM [ 2 P LDR A1,A5 FDB ADDR [ F P CF A14,DMTIOZ IO CHECK [ b P LDR A1,A1 [ P ABL(NZ) DMTERR [ PDEL900 EQU * [ P ABL INS440 [ P XIF [ P END [ @ [ A12,A12 Z $ P RF(Z) D
0x291e18…291fac Dummy {f00=0x00b8, f01=0x2008, f02=» + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x291fac…292140 Dummy {f00=0x00b8, f01=0x0190, f02=»A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) < . P* A3 = NUMBER OF BYTES TO BE MOVED = 4 $ P* A4 = USER TTAB ADDRESS = f P* = " P* OUTPUT: A1-A4 ARE DESTROYED = P* = PMOV:SU EQU * = P INH = P TL TTB:MT,A4 SET USER MMU =
0x292140…2922d4 (5, 365) Opaque[0x194]
0x2922d4…292468 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1560, f03=0x0000}
0x2922d4…292468 IdxSect {
0x2922d4…292468 f00 = 0x00ab // 0x2922d4 @0x0
0x2922d4…292468 f01 = 0x0002 // 0x2922d6 @0x2
0x2922d4…292468 gno = [ // 0x2922d8 @0x4
0x2922d4…292468 [0x00]: C0x00ab.0x0.0
0x2922d4…292468 ]
0x2922d4…292468 }
0x292468…2925fc Dummy {f00=0x00ab, f01=0x0190, f02=» 2 P IDENT DMINIT REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P* P*
0x2925fc…292790 Dummy {f00=0x00ab, f01=0x0190, f02=»FFER HEADER IN DM BUFFERS p P* " , P* DMINIT IS CALLED AS A PFINIT ROUTINE , P* " P* REGISTERS A1 - A6 ARE USED f P EJECT P* P ENTRY DMINIT P ENTRY DMI010 FROM DMBUF P* P EXTRN INIFLG P EXTRN DMI020
0x292790…292924 Dummy {f00=0x00ab, f01=0x406e, f02=» . P ABL(NZ) DMI020 FIRST ACTIVATION AFTER IPL PDMI010 EQU * : P RTN A15 N P END ^@ jSTERS A1 - A6 ARE USED f P EJECT P* P ENTRY DMINIT P ENTRY DMI010 FROM DMBUF P* P EXTRN INIFLG P EXTRN DMI020
0x292924…292ab8 Dummy {f00=0x00ab, 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
0x292ab8…292c4c Dummy {f00=0x00ab, f01=0x0190, f02=» P EXTRN CRNSTA,DFTAB,DMTIDP P EXTRN MONMMU,DMTERX,QCL * P EXTRN DMTRBU,DMTBM J P EXTRN DMTIOT f P EXTRN EARELB | P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN DMTBMR P EJECT DMTASK P
0x292c4c…292de0 Dummy {f00=0x00ab, f01=0x0190, f02=»* IS OBTAINED BY SETTING MMUPAG EQU 1. P* . PMMUPAG EQU 0 8 P* L * V P* ` 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING j * P* IS OBTAINED BY SETTING INDXAC = 1 PX:B EQU 0 PINDXAC EQU X:B P* P*
0x292de0…292f74 (5, 366) Opaque[0x194]
0x292f74…293108 # DirEnt {nam=»DMOPCL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1558, f03=0x0000}
0x292f74…293108 IdxSect {
0x292f74…293108 f00 = 0x00aa // 0x292f74 @0x0
0x292f74…293108 f01 = 0x0014 // 0x292f76 @0x2
0x292f74…293108 gno = [ // 0x292f78 @0x4
0x292f74…293108 [0x00]: C0x00aa.0x3.0
0x292f74…293108 [0x01]: C0x00ab.0x1.0
0x292f74…293108 [0x02]: C0x00ab.0x3.0
0x292f74…293108 [0x03]: C0x00ac.0x0.0
0x292f74…293108 [0x04]: C0x00ac.0x1.0
0x292f74…293108 [0x05]: C0x00ac.0x2.0
0x292f74…293108 [0x06]: C0x00ac.0x3.0
0x292f74…293108 [0x07]: C0x00ad.0x0.0
0x292f74…293108 [0x08]: C0x00ad.0x1.0
0x292f74…293108 [0x09]: C0x00b9.0x0.0
0x292f74…293108 ]
0x292f74…293108 }
0x293108…29329c Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P IDENT DMOPCL REL 10.0 80-03-14 870105041000 P : P =3 ,RECORD LGTH 256 B P 79-11-28 ` P =2, COMMIT CHECK t P 79-11-22 P =1 ,CONCURRENT OPEN P 79-11-02 8 P**************************************************
0x29329c…293430 Dummy {f00=0x00aa, f01=0x0190, f02=»IT IS ACTIVATED FROM DMTASK P* $ P* . P* 8 P* B P* L 8 P**************************************************** V P* P EJECT P* P*************** P* ENTRIES * P*************** P* P*
0x293430…2935c4 Dummy {f00=0x00aa, f01=0x0190, f02=» ~ P* . P EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE P EXTRN ECBRC D 4 P EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN X . P EXTRN FDBMEC,FDBMIA,FDBNIF,FDBRLE,FDBSTA P EXTRN FDBTNR P EXTRN FNDFDB,DMTWM P EXTRN FWTFNR,FWTPAR
0x2935c4…293758 Dummy {f00=0x00aa, f01=0x0190, f02=»FDBBLZ t P EXTRN ECBFC P EXTRN ECBBA " P EXTRN ECBEL 6 P EXTRN ECBRL J P EXTRN DWTECB ^ P EXTRN DWTOR t P EXTRN DWTTAB,DWTOPT,BLKMXL 4 P EXTRN FPB:RL,FPB:BF,FPB:FO,FPB:BO,FPB:FN,FPB:EL B P EXTRN FPB:V1,FPB:S1,FPB:V2,FPB:S2,F
0x293758…2938ec Dummy {f00=0x00aa, f01=0x0190, f02=» P EXTRN CRNSTA,DFTAB,DMTIDP P EXTRN MONMMU,DMTERX,QCL * P EXTRN DMTRBU,DMTBM J P EXTRN DMTIOT f P EXTRN EARELB | P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN DMTBMR P EJECT DMTASK P
0x2938ec…293a80 Dummy {f00=0x00aa, f01=0x018e, f02=»* IS OBTAINED BY SETTING MMUPAG EQU 1. P* . PMMUPAG EQU 1 8 P* L * V P* ` 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING j * P* IS OBTAINED BY SETTING INDXAC = 1 PX:B EQU 0 PINDXAC EQU 00001 P* P*
0x293a80…293c14 (5, 367) Dummy {f00=0x00ab, f01=0x0190, f02=» n $ PFPB:NI EQU FPBSTA+68 NR OF INDEX $ PFPB:I1 EQU FPBSTA+70 INDEX ID 1 0 ( PFPB:K1 EQU FPBSTA+77 NR OF KEY ITEMS X $ PFPB:A1 EQU FPBSTA+78 KEY ADDR 1 & PFPB:L1 EQU FPBSTA+80 KEY LENGTH 1 PFPB:I2 EQU FPBSTA+82 PFPB:L4 EQU FPBSTA+116
0x293c14…293da8 Dummy {f00=0x00ab, f01=0x0190, f02=» 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK P* 2 $ PNOCORE EQU 1 NO CORE ERROR CODE < P* d " PERPAR EQU 4 WRONG PAR ERR CODE n P* POFLW EQU 3 OVERFLOW ERR CODE P* " PERKEYL EQU 8 LONG KEY ERR CODE P EJECT P********
0x293da8…293f3c Dummy {f00=0x00ab, f01=0x0190, f02=»ERS : ` ( P* OPEN,CLOSE,READ FILE PARAMETERS. P* : POPESPA DATA ' ' 2 SPACES D " POPEFN EQU * FILE NAME PREFIXES f P DATA ' ' P DATA 'I1M1' P DATA 'I2M2' P DATA 'I3M3' P DATA 'I4M4' POPEFNR EQU * OPENED FILE
0x293f3c…2940d0 Dummy {f00=0x00ab, f01=0x0190, f02=»0,0 ( POPEMXI EQU * MASTER INDEX ADDRESSES P DATA 0,0,0,0,0 8 0 POPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS P ( POPEKAD DATA 0,0,0,0,0 KEY ADDRESSES $ POPEKYL DATA 0,0,0,0,0 KEY LENGTH PDELAY DATA 0 $ PNROFIX DATA 0 NR OF INDEX FI
0x2940d0…294264 Dummy {f00=0x00ab, f01=0x018e, f02=» p P EJECT $ PDMRFP EQU * READ FILE PARAMETERS P* > P* A1 = A6 H $ P* A6 = FDB ADDRESS ALL ORDERS " P* A7 = ORDER CODE ALL ORDERS P* P LDR A10,A6 FBD ADDR " P LC A6,FDBNIF,A10 NR OF INDEX P ANK A6,/FF
0x294264…2943f8 Dummy {f00=0x00ab, f01=0x0190, f02=» P RF(N) OPE099 ALL FILES P LDR A4,A10 $ P ADR A4,A5 8 P LD A3,FDBADF,A4 FDB ADDR J P RF(Z) RFP130 NO FILE l P LC A6,FWTFNR,A3 FILE NR PRFP130 EQU * P LDR A4,A5 P SRL A4,1 " P SC A6,OPEFNR,A4 SAVE FILE NR P
0x2943f8…29458c Dummy {f00=0x00ab, f01=0x0190, f02=» P* PDMOPEN EQU * OPEN P* ( P* A8 = ECB ADDR 2 P* A9 = FPB ADDR L P* A10= SYSTEM FWT ADDR f P* A11= CURRENT FWT ADDR & P* A12= LOOP COUNTER (FILE INDEX) P* P LDKL A9,OPEFPB AS ABOVE P* CHECK OP
0x29458c…294720 Dummy {f00=0x00ab, f01=0x0190, f02=» A2,/FC P SUK A2,/8 P RF(NZ) OPE020 NOT INPUT " P ANK A3,/3 B P RF(NZ) OPEERR ONLY UNPROT T P RF OPE030 v POPE020 EQU * P SUK A2,/30 P RF(NZ) OPEERR NOT INP/OUTP P ANK A3,/3 $ P RF(Z) OPEERR UNPROT NOT ALLOWED
0x294720…2948b4 (5, 368) Dummy {f00=0x00ab, f01=0x0190, f02=» 1 = DATA FILE P* 2 = INDEX 1 P* 3 = MASTER INDEX 1 < P* 4 = INDEX 2 ` P* ETC ~ P* P* CLEAR WORK AREA P* & P LDK A2,OPEEND NR OF BYTE TO CLEAR POPE050 EQU * P SUK A
0x2948b4…294a48 Dummy {f00=0x00ab, f01=0x018e, f02=» IN PARAMETER BLOCK P* $ P LD A3,DWTECB,A10 USER ECB ADDR & " P LD A1,ECBBA,A3 FD ADDR USER N " P ADK A1,FPBRES RESERVED FIELDS t P LDR A2,A9 FPB ADDR $ P LDK A3,FPB:L4+1 MAX SIGN LENGTH P IFT MMUPAG=1 $ P LD A4,DWTTAB,A10 US
0x294a48…294bdc Dummy {f00=0x00ab, f01=0x0190, f02=» P XIF P IFT INDXAC=1 P* * $ P* SAVE VOLUME NAME INDEX FILES 4 P* P LDR A1,A9 FPB ADDR f P ADKL A1,FPB:IV FROM ADDR P LDKL A3,INDVOL TO ADDR P LDK A2,6 P CF A14,DMTBM P XIF " P LC A5,FPB:BO,A9
0x294bdc…294d70 Dummy {f00=0x00ab, f01=0x0190, f02=» P RF(Z) OPE099 STANDARD FILE $ P LD A5,DWTECB,A10 USER ECB ADDR , P LD A5,ECBRL,A5 REQ LGTH T P CWK A5,FPB:NI+FPBRES t P RF(NG) OPEERR NO INDEX " P LC A5,FPB:NI,A9 NR OF INDEXES P SC A5,NROFIX+1 P EJECT P* ( P
0x294d70…294f04 Dummy {f00=0x00ab, f01=0x0190, f02=» A3,2 OFFSET INDEX 1 POPE070 EQU * P SUK A5,1 0 P RF(N) OPE099 ALL INDEXES B P LDK A1,0 d P LC A1,-1,A2 NR OF KEY ITEMS v P SUK A1,1 P RF(NZ) OPEER4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 P LDR* A1,A2
0x294f04…295098 Dummy {f00=0x00ab, f01=0x0190, f02=»E099 LDKL A12,1 DATA FILE INDEX POPE100 EQU * FILE LOOP ( P* F P* OPEN FM FILE P P* h P LDKL A9,OPEFPB FPB ADDR r P LDR A8,A10 P ADKL A8,FDBECB ECB ADDR P ST A9,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A9 P ANK A5,1
0x295098…29522c Dummy {f00=0x00ab, f01=0x0190, f02=»NE) OPE110 READ FILE PAR ORDER P LDK A7,/A1 OPEN & P LKM > P DATA 15 J P LDR A1,A10 MAIN FDB Z P CF A14,DMTIOT ERR CHECK v P LDR A1,A1 P RF(NZ) OPEER0 ERR P EJECT P* P* STORE FILE NR P* P LDR A1,A1
0x29522c…2953c0 Dummy {f00=0x00ab, f01=0x0190, f02=»FWT ADDR IN A11 P* P ANK A6,/FF " " P LDKL A11,FDBSTA SYST FDB ADDR 6 P LDR A3,A6 FILE NR POPE150 EQU * v P RF(Z) OPE190 END COUNT P LDR* A11,A11 NEXT FDB P ANKL A11,/FFFE USE BIT P SUK A3,1 P RB OPE150
0x2953c0…295554 (5, 369) Dummy {f00=0x00ac, f01=0x0190, f02=»6,A5 P ANK A6,/F BIT 4-7 IN RC " P RF(Z) OPEERA NO SPECIAL CODE , & P ANK A6,/A GET BIT 4 AND 6 FROM RC R P ADK A6,1 B4=9,B5=1,B6=3 | POPEERS EQU * P LDR A1,A10 SYST FDB & P CF A14,CRNGET GET CURRENCY BUFFER P SC A6,CRNSTA,A2 S
0x295554…2956e8 Dummy {f00=0x00ac, f01=0x0190, f02=» $ P LD A9,DWTECB,A10 USER ECB ADDR P ORS A1,ECBRC,A9 SEND CODE , P ABL OPEER1 N POPEER3 LDK A6,OFLW OVERFLOW b P RF OPEERQ ( POPEER4 LDK A6,ERPAR WRONG PARAMETER POPEERQ LDKL A5,REQERR BIT 0 P RB OPEERS " POPEER8 LDK A6,
0x2956e8…29587c Dummy {f00=0x00ac, f01=0x0190, f02=» P STR A6,A8 FILE NR P LDK A7,/83 RFP " P LKM : P DATA 15 F P LDR A1,A10 MAIN FDB V P CF A14,DMTIOT ERR CHECK r P ORS A1,ECBRC,A9 RET CODE P LDKL A9,OPEFPB FPB ADDR P CWK A12,1 P RF(NE) OPE192 INDEX FILE P
0x29587c…295a10 Dummy {f00=0x00ac, f01=0x0190, f02=»,A7 NEW LOOPER , P SUR A13,A13 REL ADDR IN TABLES OF OPEN P RF OPE191 F POPE192 EQU * X P LDR A7,A12 l P ANK A7,/FE REL ADDR P LDR A13,A7 POPE191 EQU * P CWK A10,FDBSTA ( P ABL(NE) OPE300 READ FILE PAR ORDER P
0x295a10…295ba4 Dummy {f00=0x00ac, f01=0x0190, f02=»PB:FO,A9 P RB(NE) OPEERR NOT STD FILE P LC A3,FPB:US,A9 NR OF USERS 4 P SUK A3,1 X P RF(Z) OPE195 FIRST OPEN j P LC A3,DWTOPT,A10 OPTION P LDR A2,A3 P ANK A3,/02 EXCL , P RB(NZ) OPEERR EXCLUSIVE WANTED IN VAIN P ANK
0x295ba4…295d38 Dummy {f00=0x00ac, f01=0x0190, f02=» LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE P CW A3,NROFIX NR OF INDEXES : $ P RB(NE) OPEER4 ALW SAME INDEXES ^ P LD A2,DELAY * P RF(N) OPE193 2ND DELAY WANTED IN VAIN P LDKL A2,/7FFF P ANS A2,FDBDBR,A11 NO DELAY POPE193
0x295d38…295ecc Dummy {f00=0x00ac, f01=0x018e, f02=»UKL A2,FDBECB LENGTH POPE196 EQU * P SUK A2,2 0 P RF(N) OPE200 OK B P LDR A7,A11 Z P ADR A7,A2 n P CM FDBECB,A7 P RB OPE196 POPE200 EQU * P LD A2,DELAY , P ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE P EJECT
0x295ecc…296060 Dummy {f00=0x00ac, f01=0x0190, f02=» n P LC A3,FPB:BF,A9 " P SC A3,FDBBLF,A11 BLOCK FACTOR P LD A3,NROFIX NR OF INDEXES F ( P SC A3,FDBNIF,A11 NR OF INDEX FILES j P LC A3,FPB:FR+1,A9 P SC A3,FDBLRN,A11 P LD A3,FPB:FR+2,A9 $ P ST A3,FDBLRN+1,A11 LAST REC NR
0x296060…2961f4 (5, 370) Dummy {f00=0x00ac, f01=0x0190, f02=» CW A3,OPEKAD,A13 P RB(NE) OPEER4 WRONG KEY P ST A3,FDBKA,A11 KEY ADDR : POPE255 EQU * P LC A3,FPB:BO,A9 p * P SLL A3,6 TOSS OPTIONS DELAY AND BASIC P LC A4,DWTOPT,A10 P ANK A4,/3 OPTIONS P ORR A3,A4 P ANK A4,1 =
0x2961f4…296388 Dummy {f00=0x00ac, f01=0x0190, f02=»BDBR,A11 BASIC + OPTION P* CALCULATE DMTASK ID P* @ , P LC A3,FWTVOL,A11 FIRST EXTENT VOLUME FC J P LDK A6,0 z POPE260 CC A3,DFTAB,A6 P RF(E) OPE270 THIS DISC P ADK A6,1 $ P RB OPE260 SEARCH NEXT DISC CODE ( POPE2
0x296388…29651c Dummy {f00=0x00ac, f01=0x018e, f02=»A6,FDBRLE,A11 REC LENGTH P ADK A6,1 P LDK A7,0 2 P LC A7,FDBBLF,A11 BLOCK FACT D P SUK A7,1 h P CF A14,MPYMOD A1,A2=A6*A7 z P ST A2,FDBMRO,A11 MAX FDBRRO P* CALCULATE BLOCK SIZE P* P AD A2,FDBRLE,A11 BLOCK LGTH
0x29651c…2966b0 Dummy {f00=0x00ac, f01=0x018e, f02=» P ADK A2,1 ! POPE290 EQU * ! P SC A2,FDBBLZ,A11 BLOCK SIZE ! * P SLL A2,7 WORDS ! N P CWK A2,BLKMXL ! f ( P ABL(G) OPEER4 TOO LARGE BLOCK SIZE ! | P ST A11,FDBADF,A11 ! POPE300 EQU * ! $ P ST A11,OPEFWT,A13 SAVE FWT ADDR ! P LDR A13
0x2966b0…296844 Dummy {f00=0x00ac, f01=0x0190, f02=» P EJECT " $ POPE400 EQU * MASTER INDEX BRANCH " P CWK A10,FDBSTA " : ( P ABL(NE) OPE700 ORDER READ FILE PAR " R P LDR A8,A10 " ~ P ADKL A8,FDBECB ECB ADDR " P LD* A3,DWTECB,A10 FILE CODE " P ANK A3,/FF " * P ST A3,-36,A14 FC ENTRY IN TTA
0x296844…2969d8 Dummy {f00=0x00ac, f01=0x0190, f02=»,FDBBLZ+1,A11 NO COMMIT CHECK =2 " P LDK A2,1 # ( 4 P SC A2,FDBDMI,A11 LET DMTASK 1 READ MASTER INDEX # : P* # r 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX # | P* # P LD A6,FPB:RL,A9 REC LGTH # P LDR A1,A6 # P SUK A1,3 KEY LENGTH #
0x2969d8…296b6c Dummy {f00=0x00ac, f01=0x0190, f02=» NEEDED # p P SRC A1,1 $ P ORR A2,A1 GET MOST SIGN BIT $ " P ADK A2,5 $ F P SRL A2,1 NO OF WORDS NEEDED $ X P RF(Z) DMT570 WRONG SIZE $ | P LD A4,MXIND LENGTH MXIND $ P SUK A4,4 MAX A5 VALUE $ P LDKL A5,-2 OFFSET $ PDMT540 EQU * $
0x296b6c…296d00 Dummy {f00=0x00ac, f01=0x0190, f02=» P LD A6,MXIND+2,A5 % P RB(N) DMT540 ENTRY USED % P SUR A6,A2 NO OF SPARE WORDS % > & P RB(N) DMT540 LARGER ENTRY NEEDED % b P* % P* SUFFICIENT SPACE FOUND % P* % P LDKL A1,/8000 USED BIT % & P ORS A1,MXIND+2,A5 MARK ENTRY USED %
0x296d00…296e94 (5, 371) Dummy {f00=0x00ac, f01=0x018e, f02=» % x P LD A1,FPB:RL,A9 & P ST A1,2,A3 ENTRY LENGTH & P ADK A3,4 SKIP MX HEADRER & @ P ST A3,ECBBA,A8 BUFFER ADDR & b 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) DMT590 LAS
0x296e94…297028 Dummy {f00=0x00ac, f01=0x0190, f02=» & P LD A2,MXIND+2,A1 ' " P ANKL A2,/7FFF REMOVE USE BIT ' " P SUR A2,A6 ' H P ORKL A2,/8000 USE BIT ' Z P ST A2,MXIND+2,A1 ' x . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER ' $ P LD A7,MXIND,A1 PREVIOUS POINTER ' P SLL A2,1 NO OF BYTES '
0x297028…2971bc Dummy {f00=0x00ac, f01=0x0190, f02=» ' b P* ( P LDKL A7,/0082 SEQ READ ( P LKM ( 2 P DATA 1 ( > P LD A2,ECBRC,A8 ( N & P ANKL A2,/FEFF BIT 7 ONLY RETRIES ( f P RF(Z) DMT560 NO ERROR ( P* ( " P* REMOVE THE ONLY CRN BUFFER ( P* ( P LDR A4,A11 FDB ADDR ( P LD
0x2971bc…297350 Dummy {f00=0x00ac, f01=0x0190, f02=»T A5,CRNQUE ( P ENB ) PDMT553 EQU * ) P LDR A1,A2 ) 4 P ANKL A2,/1000 BIT 3 = EOF ) F 0 P RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ ) h P ABL OPEER2 ERR ) PDMT560 EQU * ) P* ) P* RECORD READ,READ NEXRT ) P* ) P LD A2,ECB
0x297350…2974e4 Dummy {f00=0x00ac, f01=0x0190, f02=» ) r P ABL OPEERQ * P* CLOSE MASTER INDEX FILE * P* * @ PDMT595 EQU * * J " P ST A10,-34,A14 CLOSE FC ENTRY * ^ P LDR A8,A10 FWT ADDR * P ADKL A8,FDBECB ECB ADDR * $ P CM FPB:FR+2,A9 DO NOT WRITE LRN * P LDR A7,A12 LOOP COUNT * P S
0x2974e4…297678 Dummy {f00=0x00ac, f01=0x0190, f02=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS * P LKM + 0 P DATA 15 + < P LDR A1,A10 MAIN FDB + L P CF A14,DMTIOT ERR CHECK + h P LDR A1,A1 + P ABL(NZ) OPEER2 + P LDKL A9,OPEFPB FPB ADDR + P RF OPE700 NEXT FILE + P EJECT + POPE600 EQU *
0x297678…29780c Dummy {f00=0x00ac, f01=0x0190, f02=»M FPB:NI,A9 FILLER + P SC A2,FPB:NI,A9 NR OF INDEX , P LDR A3,A12 , > P SRL A3,1 , R P LDR A2,A3 , d P LDR A4,A9 , v P LDKL A5,FPB:I2 , P SUKL A5,FPB:I1 OFFSET , P SUR A4,A5 , POPE630 EQU * , P ADR A4,A5 REL ADDR , P SUK A2,
0x29780c…2979a0 Dummy {f00=0x00ac, f01=0x0190, f02=»,A4 , P CM FPB:I1+4,A4 - P LDK A7,1 - $ " P ST A7,FPB:I1+6,A4 NR OF ITEMS - 6 P LD A7,FDBKA,A11 KEY OFFSET - P ST A7,FPB:A1,A4 KEY ADDR - P LD A7,FDBRLE,A11 REC LGTH - P SUK A7,6 - P CM FPB:L1,A4 FILLER - P SC A7,FPB:L1,A4 KEY L
0x2979a0…297b34 (5, 372) Dummy {f00=0x00ac, f01=0x018e, f02=»CALCULATE INDEX SIZE - P* . P LD A1,FPB:S1,A9 . & & P LD A2,FPB:S1+2,A9 SIZE IN SECTORS . > P LC A6,FDBBLZ,A11 BLOCK SIZE . h P ANK A6,/FF . P CF A14,DIVMOD . P ABL(O) OPEER3 LONG FILE . P CM FPB:IS,A9 . & P ST A2,FPB:IS+2,A9 SIZE IN B
0x297b34…297cc8 Dummy {f00=0x00ac, f01=0x0190, f02=» . z P ADR A3,A9 TO / P LDK A2,6 LGTH / P CF A14,DMTBM MOVE / 4 P XIF / N P EJECT / Z P* / h POPE700 EQU * NEXT FILE / r P IFF INDXAC=1 NO INDEX / P RF OPE900 NO INDEX / P XIF / P IFT INDXAC=1 INDEXES YES / P SUKL A12,1 FILE
0x297cc8…297e5c Dummy {f00=0x00ac, f01=0x0190, f02=» / n P* 0 , P* SKIP MASTER INDEX AT SECONDARY OPEN 0 P* 0 B P LD A1,OPEFWT DATA FILE 0 L P LC A1,FWTPAR,A1 0 l $ P ANK A1,/3E NR OF OPEN BEYOND 1 0 P RF(Z) OPE710 FIRST 0 P ANKL A12,/E NO MASTER INDEX 0 POPE710 EQU * 0 P* 0
0x297e5c…297ff0 Dummy {f00=0x00ac, f01=0x0190, f02=»:FN,A9 FILE NAME 0 P* 1 & P* FETCH VOLUME NAME FOR INDEXES 1 " P* 1 L P LDKL A1,INDVOL FROM ADDR 1 V P LDR A3,A9 1 x P ADKL A3,FPB:V1 TO ADDR 1 P LDK A2,6 1 " P CF A14,DMTWM MOVE VOLUME NAME 1 P* 1 * P* MOVE SPACES TO OTHER VOL
0x297ff0…298184 Dummy {f00=0x00ac, f01=0x0190, f02=»DKL A1,OPESPA FROM ADDR 1 P LDR A3,A9 2 P ADKL A3,FPB:V2 2 2 P ADR A3,A6 TO ADDR 2 J P LDK A2,6 NR OF CHAR 2 d P CF A14,DMTWM 2 P RB OPE750 2 . POPE740 EQU * GET FILE NR FOR READ FILE PAR 2 P LDR A7,A12 2 P SRL A7,1 2 P LC A6,O
0x298184…298318 Dummy {f00=0x00ac, f01=0x0190, f02=» XIF 2 P EJECT 3 POPE800 EQU * DATA FILE 3 P* 3 8 P* UPDATE USER PAR BLOCK 3 B P* 3 d P LC A2,FDBNIF,A11 3 n P ANK A2,/FF 3 P RF(Z) OPE830 NO INDEX 3 P LDK A2,1 3 POPE830 EQU * 3 P SC A2,FPB:FO,A9 FILE ORG 3 P LDK A
0x298318…2984ac Dummy {f00=0x00ac, f01=0x0190, f02=»2,14 3 . P SC A2,FPB:BO,A9 DELAY BASIC TOSS OPTIONS 4 P* 4 > & P* CONVERT SIZE TO NR OF RECORDS 4 H P* 4 r P LDK A5,3 4 VOLUMES 4 | P LDR A13,A9 4 POPE850 EQU * 4 ( P LD A1,FPB:S1,A13 LENGTH IN SECTORS 4 P LD A2,FPB:S1+2,A13 4 * P
0x2984ac…298640 Dummy {f00=0x00ac, f01=0x0190, f02=» BLOCKS 4 ( P LC A7,FDBBLF,A11 NR OF REC IN BLOCK 5 P ANK A7,/FF 5 < P CF A14,MPYMOD NR OF RECS 5 P P ST A1,FPB:S1,A13 5 r P ST A2,FPB:S1+2,A13 5 P ADKL A13,10 5 P SUK A5,1 5 P RB(NN) OPE850 MORE VOLUMES 5 P* 5 " P* MOVE PAR
0x298640…2987d4 (5, 373) Dummy {f00=0x00ad, f01=0x0190, f02=»,ECBRL,A4 REQ LENGTH 5 P SUK A1,FPBRES RESERVED 6 P CWR A3,A1 6 < P RF(NG) OPE860 TAKE SHORTEST 6 N P LDR A3,A1 6 r POPE860 EQU * 6 P LDR A1,A3 6 P ADK A1,FPBRES 6 ( P ST A1,ECBEL,A4 SET EFFECTIVE LENGTH 6 P LDR A1,A9 FROM ADDR 6 P
0x2987d4…298968 Dummy {f00=0x00ad, f01=0x0190, f02=»A14,MOV:SU 6 P XIF 7 P IFT MMUPAG=0 7 P LDR A2,A3 LENGTH 7 4 P LD A3,ECBBA,A4 TO ADDR 7 N P ADK A3,FPBRES RESERVED ITEM 7 n P CF A14,DMTBM MOVE 7 P XIF 7 P* 7 $ P* ADJUST FILE NAME FOR INDEXES 7 P* 7 P LDR A1,A9 7 P A
0x298968…298afc Dummy {f00=0x00ad, f01=0x0190, f02=»0 7 P EJECT 8 POPE900 EQU * FINISH 8 & P LD A11,OPEFWT FDB ADDR DATA FILE 8 4 P CWK A10,FDBSTA 8 ^ & P RF(NE) OPE990 READ FILE PAR ORDER 8 v P* 8 ( P* STORE FDB ADDRESSES IN ALL FDB'S 8 P* 8 P LDK A5,10 NR OF FILES * 2 8 PDMT625
0x298afc…298c90 Dummy {f00=0x00ad, f01=0x018e, f02=»NDEX FILE 8 ~ P LDKL A1,OPEFWT FROM ADDR 9 P ADKL A3,FDBADF TO ADDR 9 4 P LDK A2,10 NO OF BYTES 9 T P CF A14,DMTWM MOVE 5 WORDS 9 r P RB DMT625 9 PDMT635 EQU * 9 P* 9 & P* CONNECT FILE CODE OF DATA FILE 9 P* 9 P LD* A2,DWTECB,A
0x298c90…298e24 Dummy {f00=0x00ad, f01=0x0190, f02=» P CF A14,FNDFDB : P ST A11,2,A4 FWT ADDR : P* : 8 P* REMOVE CURRENCY BUFFER : B P* : d P LDR A1,A10 : n P CF A14,CRNGET ADDR IN A2 : P ADKL A1,FDBCRL ROOT : P INH : POPE940 EQU * : P LDR* A3,A1 NEXT BUFFER : P CWR A3,
0x298e24…298fb8 Dummy {f00=0x00ad, f01=0x018e, f02=»D A3,CRNQUE : P STR A3,A2 ; P ST A2,CRNQUE ; & P ENB =1 ; < POPE990 EQU * ; N P* ; b 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK ; l P* ; P LDK A1,FPB:IV ; " P LC A2,FDBNIF,A11 NR OF INDEX ; P ANK A2,/F ; P IFT INDXAC=1
0x298fb8…29914c Dummy {f00=0x00ad, f01=0x0190, f02=» " P SUR A2,A1 MAX NR OF REM CHAR < POPE994 EQU * < * P XIF < > P ADR A1,A9 FROM ADDR < J P LD A3,DWTECB,A10 USER ECB < f P LD A4,ECBRL,A3 TOT LGTH < P SUK A4,FPB:IV+FPBRES < P CWR A2,A4 REM LGTH < P RF(NG) OPE995 TAKE SHORTEST < P L
0x29914c…2992e0 Dummy {f00=0x00ad, f01=0x0190, f02=» < P LD A3,ECBBA,A3 TO ADDR = P ADK A3,FPB:IV+FPBRES = ( P CF A14,DMTBM MOVE = F P XIF = ` P IFT MMUPAG=1 = l P LDR A4,A2 = P LD A2,ECBBA,A3 = " P ADK A2,FPB:IV+FPBRES TO ADDER = P LDR A3,A4 LENGTH = $ P LD A4,DWTTAB,A10 USER TTAB
0x2992e0…299474 (5, 374) Dummy {f00=0x00ad, f01=0x018e, f02=»MTASK = t P EJECT > PDMCLOS EQU * CLOSE > P* > 6 P* A1 = A6 > @ " P* (A3= BLOCK BUFFER ADDRESS ) > T P* (A5 = BLOCK ADDRESS ) > z $ P* A6 = FDB ADDRESS ALL ORDERS > " P* A7 = ORDER CODE ALL ORDERS > P* (A8 = FDBECB ADDRESS ) >
0x299474…299608 Dummy {f00=0x00ad, f01=0x018e, f02=» > P DATA 15 FM IO ? P CF A14,DMTIOT ERR CHECK ? PCLO200 EQU * ? > " P CF A14,DMTRBU RELEASE BUFFER ? R P* ? x P* CLEAR CURRENCY ? P* ? P LDR A1,A6 FDB ADDR =1 ? * P CF A14,CRNGET GET CURRENCY BUFFER =1 ? P LDK A1,0 ? P SC
0x299608…29979c Dummy {f00=0x00ad, f01=0x0190, f02=» ? ~ P XIF @ P* @ P* BUILD CLOSE TABLES @ P* @ < P LC A7,ECBFC,A9 FILE CODE @ F P LDK A5,10 2 * FILES @ h PCLO210 EQU * @ P SUK A5,2 @ P RF(N) CLO300 ALL FILES @ P LDR A4,A6 @ P ADR A4,A5 @ P LDK A1,0 @ P LDK A2,
0x29979c…299930 Dummy {f00=0x00ad, f01=0x0190, f02=»,FDBMIA,A3 MASTER INDEX ADDR @ P LC A2,FWTFNR,A3 FILE NR A $ P LC A9,FDBLRN,A3 LAST REC NR A D P LD A10,FDBLRN+1,A3 A h PCLO230 EQU * A P ST A8,OPEMXI,A5 A P ST A3,OPEFWT,A5 A P LDR A4,A5 A P SRL A4,1 A P SC A2,OPEFNR,A4 FILE NR A
0x299930…299ac4 Dummy {f00=0x00ad, f01=0x0190, f02=»FILE A PCLO300 EQU * B P SC A7,OPEFCD FILE CODE B P LDR A10,A6 MAIN FDB ADDR B @ P EJECT B b $ POPEER1 EQU * RECOVERY AT ERRORS B p P LDR A6,A10 MAIN FDB B P LD A2,DWTOR,A10 ORDER B P ANK A2,/FF B P CWK A2,QRFP READ FILE PAR B P
0x299ac4…299c58 Dummy {f00=0x00ad, f01=0x0190, f02=»A12,1 B P RF(NN) OPEE20 MORE FILES C P LDR A6,A10 MAIN FDB ADDR C 0 P LDK A1,0 RET CODE C R P ABL DMTERX C l POPEE20 EQU * C P* RESET FILE CODE* C P* C P LC A2,OPEFCD,A12 FILE CODE C P ANK A2,/FF C P RF(Z) OPEE25 NO CODE
0x299c58…299dec Dummy {f00=0x00ad, f01=0x018e, f02=»PEE25 NO ENTRY C $ P LDKL A7,FDBSTA SYSTEM FDB ADDR D P ST A7,2,A4 SYSTEM FWT ADDR D > POPEE25 EQU * D b P EJECT D v P* D P* RELEASE EA+CRN BUFFERS D P* D P LDR A7,A12 D P SLL A7,1 WORDS D P LD A11,OPEFWT,A7 FDB ADDR D P
0x299dec…299f80 Dummy {f00=0x00ad, f01=0x0190, f02=» D P LC A5,FWTPAR,A11 E P ANK A5,/3F NR OF USERS E " P SUK A5,1 E B & P RF(NZ) DMT894 MORE THAN ONE OPEN E T P LD A5,FDBEAL,A11 PRO LINK E ~ P ABL(NZ) TASHLT DM ERR E P EJECT E P* E P* RELEASE CURRENCY BUFFERS E P* E P LDK
0x299f80…29a114 (5, 375) Dummy {f00=0x00b9, f01=0x0190, f02=»DR A4,A5 BUFFER ADDRESS E PDMT830 EQU * F & P RF(Z) DMT840 ALL BUFFER S REMOVED F 4 $ P LDR* A5,A4 NEXT BUFFER ADDRESS F ^ P* F P* RETIURN BUFFER TO POOL F P* F P INH F P LD A3,CRNQUE F P STR A3,A4 F P ST A4,CRNQUE F P E
0x29a114…29a2a8 Dummy {f00=0x00b9, f01=0x0190, f02=»PEMXI,A7 MASTER INDEX ADDR F P RF(Z) DMT894 NO MX G " P LD A5,MXIND LENTH G > P SUK A5,2 G X PDMT885 EQU * G j P SUK A5,4 G ~ P RF(Z) DMT890 FIRST INDEX G P RF(N) DMT894 NO MATER IX G P CW A1,MXIND+2,A5 G P RB(NE) DMT885 G P LD
0x29a2a8…29a43c Dummy {f00=0x00b9, f01=0x0190, f02=» ADS A4,MXIND,A5 NR OF WORDS G P EJECT H $ P* H 2 P* H < P* MOVE UP REST OF MXIND H F P* H h P LDKL A1,MXIND+6 H r P ADR A1,A5 FROM ADDR H P LDR A3,A1 H P SUK A3,4 TO ADDR H P LD A2,MXIND H P SUR A2,A5 H P SUK A2,2 NO OF
0x29a43c…29a5d0 Dummy {f00=0x00b9, f01=0x0190, f02=» H n P XIF I P EJECT I P* I " P* CLOSE FILE I , P* I B PDMT894 LDR A8,A10 I L P ADKL A8,FDBECB ECB ADDR I f P LDKL A9,OPEFPB FPB ADDR I P LDR A7,A12 I P SLL A7,2 2 WORD INDEX I P LD A1,OPELRN,A7 LAST REC NR I P ST A1,FPB:F
0x29a5d0…29a764 Dummy {f00=0x00b9, f01=0x4152, f02=»ED I v P ST A7,ECBFC-1,A8 FILE NR J " P ST A9,ECBBA,A8 PAR BLOCK ADDR J , P LDK A7,/A2 CLOSE J R & P CF A14,CLRBUF CLEAR FREE BUFFERS J l P LKM J P DATA 15 J P LDR A1,A10 MAIN FDB J P CF A14,DMTIOT ERR CHECK J P ORS A1,ECBRC,A9 SEND CODE
0x29a764…29a8f8 Dummy {f00=0x00b9, f01=0x2008, f02=» K 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
0x29a8f8…29aa8c Dummy {f00=0x00b9, f01=0x0190, f02=» ] _ @ ^ O z FPB:RL FDBRLEV , FPB:BF2 > FDBBLFN P , ( H , F 0 O 2 F 4 O 6 @ ` b FPB:FR FDBLRN` , ( I$ O F 8 O : F 8 O : V FDBMIA FPB:KA
0x29aa8c…29ac20 Dummy {f00=0x00b9, f01=0x018e, f02=»LD DFTAB DMTIDP FDBDMI , , ( I , N D Y FP _ X H O > MPYMOD@ n FDBMROV * & a J N 2 N 6 L O BLKMXL , ( w N N 2 :h! P O B:G , (
0x29ac20…29adb4 (5, 376) Opaque[0x194]
0x29adb4…29af48 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b98, f03=0x0000}
0x29adb4…29af48 IdxSect {
0x29adb4…29af48 f00 = 0x005c // 0x29adb4 @0x0
0x29adb4…29af48 f01 = 0x000a // 0x29adb6 @0x2
0x29adb4…29af48 gno = [ // 0x29adb8 @0x4
0x29adb4…29af48 [0x00]: C0x005c.0x3.0
0x29adb4…29af48 [0x01]: C0x005f.0x0.0
0x29adb4…29af48 [0x02]: C0x005f.0x1.0
0x29adb4…29af48 [0x03]: C0x005f.0x2.0
0x29adb4…29af48 [0x04]: C0x007f.0x3.0
0x29adb4…29af48 ]
0x29adb4…29af48 }
0x29af48…29b0dc Dummy {f00=0x005c, f01=0x0190, f02=» 0 P IDENT DMBUF REL 10.0 80-03-14 870105041000 P 8 8 P**************************************************** @ P* | $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P* P
0x29b0dc…29b270 Dummy {f00=0x005c, f01=0x0190, f02=» l P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* D L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL N P* P* MAX VALUE OF QNBUF IS 16 P* P* P EJECT P* P***************
0x29b270…29b404 Dummy {f00=0x005c, f01=0x0190, f02=» v P ENTRY BUFDMI DMTASK IDENT P ENTRY BUFSNR SECTOR NO * P ENTRY BUFOR ORDER J * P ENTRY BUFSTA DATA AREA START ADDRESS d P ENTRY DMTGBU GET A BUFFER " P ENTRY DMTRBU RELEASE A BUFFER $ P ENTRY BLKMXL MAXIMUM BLOCK SIZE * P ENTRY
0x29b404…29b598 Dummy {f00=0x005c, f01=0x0190, f02=» EXTRN CRNQUE,CRNEND,CRBUFL P EXTRN FDBSTA $ P EXTRN SCTFWT : P EJECT P PX:B EQU 128 ^ $ PBLKMXL EQU 00256 MAX BLOCK SIZE r $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00004 P* P* PCURBUF DATA BUF1 PNE
0x29b598…29b72c Dummy {f00=0x005c, f01=0x018e, f02=» z P DATA 0 PBUFSNR EQU *-BUF1 SECTOR NO P DATA 0 < P DATA 0 L PBUFOR EQU *-BUF1 LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ~ ( PBUFSTA EQU *-BUF1 DATA BUFFER START PBUFAR EQU * P RES BLKMXL P* P*
0x29b72c…29b8c0 Dummy {f00=0x005c, f01=0x0190, f02=» P RES BLKMXL P XIF P* ( P* 2 P IFT QNBUF=2 < PBUF3 EQU BUF1 P P XIF f P* r P* | P IFF QNBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0,0 P RES BLKMXL P XIF P* P*
0x29b8c0…29ba54 (5, 377) Dummy {f00=0x005f, f01=0x0190, f02=» PBUF4 DATA BUF5 P DATA 0,0,0,0 P RES BLKMXL 0 P XIF D P* P P* Z P IFT QNBUF=4 d PBUF5 EQU BUF1 x P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 PBUF5 DATA
0x29ba54…29bbe8 Dummy {f00=0x005f, 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 PBUF6 DATA BUF7 | P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT QNBUF=6 PBUF7 EQU BUF1 P X
0x29bbe8…29bd7c Dummy {f00=0x005f, f01=0x0190, f02=»NBUF=6 PBUF7 DATA BUF8 P DATA 0,0,0,0 $ P RES BLKMXL : P XIF N P* Z P* d P IFT QNBUF=7 n PBUF8 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P
0x29bd7c…29bf10 Dummy {f00=0x005f, f01=0x018e, f02=»* P* P IFT QNBUF=8 PBUF9 EQU BUF1 ( P XIF > P* J P* T P IFF QNBUF=1 ^ P IFF QNBUF=2 r 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
0x29bf10…29c0a4 Dummy {f00=0x005f, f01=0x018e, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 0 P IFF QNBUF=3 D P IFF QNBUF=4 X P IFF QNBUF=5 l 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 BLKMX
0x29c0a4…29c238 Dummy {f00=0x005f, f01=0x0190, f02=» P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 , P IFF QNBUF=6 @ P IFF QNBUF=7 T P IFF QNBUF=8 h P IFF QNBUF=9 | P IFF QNBUF=10 PBUF11 DATA BUF12 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=11
0x29c238…29c3cc Dummy {f00=0x005f, f01=0x0190, f02=» IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 ( P IFF QNBUF=8 < P IFF QNBUF=9 P P IFF QNBUF=10 d P IFF QNBUF=11 z PBUF12 DATA BUF13 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=12 PBUF13 EQU BUF1
0x29c3cc…29c560 Dummy {f00=0x005f, f01=0x0190, f02=»FF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 & P IFF QNBUF=9 : P IFF QNBUF=10 N P IFF QNBUF=11 d P IFF QNBUF=12 z PBUF13 DATA BUF14 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=13 PBUF14 EQU BUF1
0x29c560…29c6f4 (5, 378) Dummy {f00=0x005f, f01=0x0190, f02=»FF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 & P IFF QNBUF=9 : P IFF QNBUF=10 N P IFF QNBUF=11 d P IFF QNBUF=12 z P IFF QNBUF=13 PBUF14 DATA BUF15 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=14
0x29c6f4…29c888 Dummy {f00=0x005f, f01=0x0190, f02=» IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 ( P IFF QNBUF=8 < P IFF QNBUF=9 P P IFF QNBUF=10 d P IFF QNBUF=11 z P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 PBUF15 DATA BUF16 P DATA 0,0,0,0 P RES BLK
0x29c888…29ca1c Dummy {f00=0x005f, f01=0x0190, f02=» P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 , P IFF QNBUF=6 @ P IFF QNBUF=7 T P IFF QNBUF=8 h P IFF QNBUF=9 | P IFF QNBUF=10 P IFF QNBUF=11 P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF
0x29ca1c…29cbb0 Dummy {f00=0x005f, f01=0x018e, f02=»* DMTGBU * P************** P* , * P* ENTRY DMTGBU GET A DISC BUFFER 6 P* d P* INPUT A1 = FILE NR n " P* A2 = SECTOR NUMBER $ P* A4 = SECT NR PART 2 P* $ P* OUTPUT A3 = BUFFER ADDRESS
0x29cbb0…29cd44 Dummy {f00=0x005f, f01=0x0190, f02=» P* USED REGS A1-A5,A7 P* ( P* ALL BUFFERS ARE SEARCED. 2 6 P* ONE BUFFER IS SELECTED IN FOLLOWING PRIORITY : V P* , P* 1. USED BUFFER IN REQ FILE ( DELAY) P* 2. REQ FILE AND SECT NR P* 3. OLDEST UNUSED
0x29cd44…29ced8 Dummy {f00=0x005f, f01=0x0190, f02=» NR . P* BUFOR BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE > P* BUFSTA= BLOCK AREA d P* P* P EJECT PDMTGBU EQU * P INH INH P LD A3,CURBUF P LDK A5,0 PDMT010 LDR* A3,A3
0x29ced8…29d06c Dummy {f00=0x005f, f01=0x0190, f02=»015 FREE P SLL A7,1 P SC A7,BUFOR,A3 MARK DELAY " PDMT015 EQU * D P CW A2,BUFSNR,A3 X P RF(NE) DMT020 p P CW A4,BUFSNR+2,A3 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A3 MARK SAME SECT NR P RF
0x29d06c…29d200 Dummy {f00=0x005f, f01=0x0190, f02=»IN BIT 15 x P RF(NZ) DMT030 USED P IM BUFOR,A3 MAKE OLDER . $ P SC A7,BUFOR,A3 CLEAR LEFT BYTE N PDMT030 EQU * v P CW A5,BUFOR,A3 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A3 P ST A3,NEWBUF PDMT041 EQU * P CW
0x29d200…29d394 (5, 379) Dummy {f00=0x005f, f01=0x0190, f02=»* $ P LD A3,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 2 P LDR A5,A5 D P RF(Z) DMT042 NO BUFFER V P ANK A5,/3 v P RF(Z) DMT043 NO DATA P ANK A5,/2 P RF(NZ) DMT051 DELAY P RF DMT050 FREE SECTOR FOUND PDMT042 EQU *
0x29d394…29d528 Dummy {f00=0x005f, f01=0x018e, f02=»ORDS n P* P IM 4,A14 P IM 4,A14 SKIP RETURN ( P ST A1,BUFDMI,A3 DMIDENT, FC F " P ST A2,BUFSNR,A3 SECTOR NUMBER j P ST A4,BUFSNR+2,A3 PDMT050 EQU * " P CM BUFOR,A3 RESET OLD-COUNTER PDMT051 EQU * DELAY USE P ST A3
0x29d528…29d6bc Dummy {f00=0x005f, f01=0x0190, f02=» P************** P* DMTRBU * P************** 0 P* F . P* ENTRY DMTRBU RELEASE A DISC BUFFER P P* $ P* INPUT A3 = BUFFER ADDRESS P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2
0x29d6bc…29d850 Dummy {f00=0x005f, f01=0x0190, f02=»**************************************************** P INH < P LD A3,CURBUF H PDMT700 LDR* A3,A3 ^ P ANKL A3,/FFFE x P LDK A2,1 P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE PDMT750 CW A3,CURBUF
0x29d850…29d9e4 Dummy {f00=0x005f, f01=0x018e, f02=»MINIT, BUT d . P* IS OVERLAYED ON THE FIRST BLOCK BUFFER P* D PDMIFIN EQU * N P RORG BUFAR b P* v PDMI020 EQU * P* P* INITIALIZE SYSTEM FWT P* P LD A3,SCTFWT ADDR FIRST FWT & P ST A3,FDBSTA QUEUE FIRST
0x29d9e4…29db78 Dummy {f00=0x005f, f01=0x0190, f02=» P LDKL A6,CRNEND P CF A15,DMIN30 P* 2 < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS < P* | P LDKL A2,/FFFE P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM
0x29db78…29dd0c Dummy {f00=0x005f, f01=0x018e, f02=»CT P* P* P* IN; A2 = LENGTH P* A3= LINK ROOT 8 P* A6= AREA END ADDR V PDMIN30 LDR A4,A3 x P ADR A4,A2 P* P* DIV W. 2 FOR 16 K LIMIT P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6
0x29dd0c…29dea0 Dummy {f00=0x005f, f01=0x4098, f02=» PDMIN40 EQU * P SUR A3,A2 P CMR A3 END OF FDB CHAIN . P ADKL A15,4 N P ABR* A15 b P RORG DMIFIN t P END @ A2 P* P* DIV W. 2 FOR 16 K LIMIT P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6
0x29dea0…29e034 (5, 380) Dummy {f00=0x007f, 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
0x29e034…29e1c8 Dummy {f00=0x007f, f01=0x0190, f02=» P LDR A2,A7 P ANKL A2,/FFF9 1-4 INDEXES P RB(NZ) TIOD19 ERROR 8 P ADR A7,A6 BASE IN DATA FDB T $ P LD A2,FDBAI1,A7 INDEX FDB ADDR x P ABL(Z) TIOD19 ERR P LDR A7,A2 P* P* COPY DWT ITEMS P* P LD A1,DWTECB,
0x29e1c8…29e35c Dummy {f00=0x007f, f01=0x018e, f02=»DBRLE,A2 P SUK A1,6 KEY LENGTH PIXR050 EQU * , P CM FDBKEY,A2 @ P ADK A2,2 V P SUK A1,2 h P RB(P) IXR050 MORE TO CLEAR z P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P A
0x29e35c…29e4f0 Dummy {f00=0x007f, f01=0x0190, f02=» P* ! P LD A2,FDBRLE,A7 ! P SUK A2,6 MAX KEY LGTH ! & P CWR A2,A9 ! D P RF(NG) IXR070 ! V " P LDR A2,A9 TAKE SMALLEST LGTH ! n PIXR070 EQU * ! P LDR A9,A2 SAVE ! P IFT MMUPAG=0 ! P CF A14,DMTBM FETCH KEY ! P XIF ! P IFT M
0x29e4f0…29e684 Dummy {f00=0x007f, f01=0x018e, f02=» P IFT INDXAC=1 " P* " 0 P* INCREASE KEY IF 'START GREATER ' IS REQ " $ P* " X P CWK A5,QSTA " b P RF(NE) STA020 NOT START " v P LC A2,DWTOPT,A7 " P ANK A2,/7 OPTION " P SUK A2,1 " P RF(NZ) STA020 NOT GREATER " P LDR A2,A7 "
0x29e684…29e818 Dummy {f00=0x007f, f01=0x018e, f02=» " t P LCR A1,A3 # P ADK A1,1 NEXT HIGHER KEY # P SCR A1,A3 # < P ANK A1,/FF OVERFLOW ? # N P RF(NZ) STA020 NO # l P CWR A2,A3 # P RB(NE) STA010 MORE BYTES # PSTA020 EQU * # P* # P* SWITCH TO INDEX FDB # P* # P LDR A
0x29e818…29e9ac Dummy {f00=0x007f, f01=0x0190, f02=» # r P LDKL A1,EDMERR $ P LDK A4,FCUSED FC USED $ P SC A4,CRNSTA,A2 STATUSA $ > P ABL TIODMX $ ^ POPE050 EQU * $ r P LDK A1,LGTERR $ P LDKL A4,FPB:FR+8 MIN LGTH $ P CW A4,ECBRL,A8 REQ $ P ABL(G) TIODMX ERR $ PTIORRO EQU * $ P
0x29e9ac…29eb40 Dummy {f00=0x007f, f01=0x0190, f02=»ERS $ r P LD A3,CRNCDF+2,A2 % $ P LD A2,CRNCDF,A2 CURRENT RECORD % & P ST A2,ECBCW,A8 % N P ST A3,ECBCW+2,A8 % f P RB TIORRO % P EJECT % PCLOSE EQU * CLOSE FILE % P* % ( P* CONNECT FILE CODE TO SYSTEM FWT % P* % $ P LD A1,DWT
0x29eb40…29ecd4 (5, 381) Opaque[0x194]
0x29ecd4…29ee68 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1500, f03=0x0000}
0x29ecd4…29ee68 IdxSect {
0x29ecd4…29ee68 f00 = 0x00a8 // 0x29ecd4 @0x0
0x29ecd4…29ee68 f01 = 0x0002 // 0x29ecd6 @0x2
0x29ecd4…29ee68 gno = [ // 0x29ecd8 @0x4
0x29ecd4…29ee68 [0x00]: C0x00a8.0x0.0
0x29ecd4…29ee68 ]
0x29ecd4…29ee68 }
0x29ee68…29effc Dummy {f00=0x00a8, f01=0x0190, f02=» 0 P IDENT DMFDB REL 10.0 80-03-14 870105041000 P 8 8 P**************************************************** @ P* | $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* THIS MODULE CONTAINS AREAS FOR : P* CURRENCY P* MASTER I
0x29effc…29f190 Dummy {f00=0x00a8, f01=0x0190, f02=»RY CRNEND P ENTRY MXIND P EJECT & P* 4 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN > P* WORDS x P* PX:C EQU 0 & PMXSIZ EQU 00100 MASTER INDEX AREA P IFF MXSIZ=0 INDEXES " PCRBUFL EQU 12 SIZE CRN BUFFE
0x29f190…29f324 Dummy {f00=0x00a8, f01=0x0190, f02=» ARERA IN WORDS h 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* P PX:B EQU 50 Z " PCRNBAR EQU 00108 CURRENCY AREA l P* P* PX:A EQU 250 P* P EJECT P* PCRNQUE DATA 0 CRN LINK ROOT P IFF CRN
0x29f324…29f4b8 Dummy {f00=0x00a8, f01=0x4174, f02=»NDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE D P IFF MXSIZ=0 j * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ~ * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF PMXINDE EQU * END INDEX INDEX 2
0x29f4b8…29f64c Dummy {f00=0x00a8, f01=0x2008, f02=» PFDBSTA EQU * P RES QFDBAR PFDBEND EQU * 2 P END F@ R OF CONDITIONAL ASSEMBLY QFDBAR WORDS WILL BE ALLOCATED J P* P ENTRY FDBLEN P ENTRY FDBSTA P ENTRY FDBEND P ENTRY QFDBFL P* P*
0x29f64c…29f7e0 Dummy {f00=0x00a8, f01=0x0190, f02=»-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 2 PQSTIND EQU *-ORDERS H P DATA DMSTIN START INDEXED d P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPCL
0x29f7e0…29f974 (5, 382) Opaque[0x194]
0x29f974…29fb08 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x14f8, f03=0x0000}
0x29f974…29fb08 IdxSect {
0x29f974…29fb08 f00 = 0x00a7 // 0x29f974 @0x0
0x29f974…29fb08 f01 = 0x0002 // 0x29f976 @0x2
0x29f974…29fb08 gno = [ // 0x29f978 @0x4
0x29f974…29fb08 [0x00]: C0x00a7.0x3.0
0x29f974…29fb08 ]
0x29f974…29fb08 }
0x29fb08…29fc9c Dummy {f00=0x00a7, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x29fc9c…29fe30 Dummy {f00=0x00a7, f01=0x4102, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F8F9,/FAFB h PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0000 PDMTIDS EQU * P DATA /0101,/0101 P END @ 8
0x29fe30…29ffc4 Dummy {f00=0x00a7, 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*
0x29ffc4…2a0158 Dummy {f00=0x00a7, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x2a0158…2a02ec Dummy {f00=0x00a7, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x2a02ec…2a0480 Dummy {f00=0x00a7, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x2a0480…2a0614 (5, 383) Opaque[0x194]
0x2a0614…2a07a8 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1510, f03=0x0000}
0x2a0614…2a07a8 IdxSect {
0x2a0614…2a07a8 f00 = 0x00a8 // 0x2a0614 @0x0
0x2a0614…2a07a8 f01 = 0x000c // 0x2a0616 @0x2
0x2a0614…2a07a8 gno = [ // 0x2a0618 @0x4
0x2a0614…2a07a8 [0x00]: C0x00a8.0x2.0
0x2a0614…2a07a8 [0x01]: C0x00a9.0x0.0
0x2a0614…2a07a8 [0x02]: C0x00a9.0x1.0
0x2a0614…2a07a8 [0x03]: C0x00a9.0x2.0
0x2a0614…2a07a8 [0x04]: C0x00a9.0x3.0
0x2a0614…2a07a8 [0x05]: C0x00aa.0x0.0
0x2a0614…2a07a8 ]
0x2a0614…2a07a8 }
0x2a07a8…2a093c Dummy {f00=0x00a8, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* 8 P**************
0x2a093c…2a0ad0 Dummy {f00=0x00a8, f01=0x0190, f02=» P*************** P* ENTRIES * P*************** 8 P* P P ENTRY FNDKMX,CHKKEY Z P ENTRY RDNXTR v P ENTRY FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN P ENTRY CRNCIF P* P***************** P
0x2a0ad0…2a0c64 Dummy {f00=0x00a8, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR P EXTRN FDBRRO,FDBBLF,BUFSNR & P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF D . P EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU n P EXTRN DMTIOZ P EXTRN DIVMOD,DSUMOD P EXTRN EOFRC,NOKEY P EJECT 8 P****DESCRIPTIO
0x2a0c64…2a0df8 Dummy {f00=0x00a8, f01=0x0190, f02=»RCH IS USED. REF : KNUTH PAGE 411 ALG. U. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : 2 P* - NO OF ENTRIES N f $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P* P* A5 = MAS
0x2a0df8…2a0f8c Dummy {f00=0x00a8, f01=0x0190, f02=»* 8 P****EXIT PARAMETERS********************************* P* F 0 P* A1,A2 = LOGICAL RECORD NO IN INDEX FILE P P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P* A1 - A11 P*
0x2a0f8c…2a1120 Dummy {f00=0x00a8, f01=0x0190, f02=»MX EQU * P LDR* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX 4 P LDR A9,A2 Z P ANKL A9,/1 GET BIT 15 l P SRA A2,1 P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU *
0x2a1120…2a12b4 (5, 384) Dummy {f00=0x00a9, f01=0x0190, f02=» CF A14,MPYMOD A1,A2=(I-1)*EL P SRC A1,1 & P ORR A2,A1 GET MOST SIGN BIT 8 PFND025 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 p P ADK A2,2 ENTRY KEY ADR P LDR A1,A2 SAVE ENTRY ADR P LDR A3,A8 SEARCH KEY ADR P LDR A6,A11 MA
0x2a12b4…2a1448 Dummy {f00=0x00a9, f01=0x0190, f02=» 15 P SRA A7,1 M/2 FLOOR P ADR A6,A7 M/2 CEILING ( P LDR A3,A3 CHKKEY RTN INF F . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL h P* P* SEARCHED KEY GREATER P* P LDR A10,A10 M P RF(Z) FND050 SEARCH READY P A
0x2a1448…2a15dc Dummy {f00=0x00a9, f01=0x0190, f02=» P RF(Z) FND060 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) * P RB FND030 L PFND045 EQU * NO MASTER INDEX ^ P LDK A1,0 P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU *
0x2a15dc…2a1770 Dummy {f00=0x00a9, f01=0x0190, f02=» LDK A1,0 P LCR A1,A3 P ADK A3,1 $ P LCR A2,A3 6 P ADK A3,1 H P ECR A2,A2 Z P LCR A2,A3 l PFND070 EQU * ~ P RTN A14 P EJECT 8 P****DESCRIPTION************************************* P* . P* CHKKEY COMPARE
0x2a1770…2a1904 Dummy {f00=0x00a9, f01=0x0190, f02=»Y x P* A3 = ADR OF SEARCH KEY * P* A6 = MAX NO OF CAHARACTERS IN KEY , 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY Z P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS********************************* P* : P*
0x2a1904…2a1a98 Dummy {f00=0x00a9, f01=0x0190, f02=»IS LESS t N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY " P* A6 = MAX NO OF CHAR IN KEY b P* 8 P****USED REGISTERS********************************** P* P* A2-A4,A6-A7 < P************************
0x2a1a98…2a1c2c Dummy {f00=0x00a9, f01=0x0190, f02=»AR TO TEST z PCHK020 EQU * P LCR A4,A3 SEARCED KEY CHAR & P CCR A4,A2 SC=EC? J P RF(G) CHK100 SC GT TH EC d " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL) CHK060 ALL CHAR CHEC
0x2a1c2c…2a1dc0 Dummy {f00=0x00a9, f01=0x0190, f02=» P RF CHK140 PCHK120 EQU * $ P LDKL A3,-1 SEARCHED KEY SMALLER * P RF CHK140 R PCHK100 EQU * d $ P LDK A3,1 SEARCHED KEY SGREATER x PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*************************************
0x2a1dc0…2a1f54 (5, 385) Dummy {f00=0x00a9, f01=0x0190, f02=»AD BEFORE, THE FIRST RECORD IN SPECIFIED x & P* SECTOR WILL BE MADE AVAILABLE 0 P* Z 8 P****ENTRY PARAMETERS******************************** d P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDBCEX,FDBSNR B P*
0x2a1f54…2a20e8 Dummy {f00=0x00a9, f01=0x0190, f02=» ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED 6 P* A8 = ECB ADDRESS x P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT ADDR 0 WHEN OK AND A5
0x2a20e8…2a227c Dummy {f00=0x00a9, f01=0x0190, f02=»N NO BUFFER IS ALLOCATED ^ $ P* A2 = FDBRRO = RECORD OFFSET P* A3 = BUFFER ADDRESS H * P* = 0 WHEN NO BUFFER IS ALLOCATED h P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS********************************** P* 2 P* A1
0x2a227c…2a2410 Dummy {f00=0x00a9, f01=0x0190, f02=»********************************** | P EJECT * PRDNXTR EQU * 8 P LDR A10,A3 SAVE BUFFER ADDR L P RF(NZ) RDN200 BUFFER EXIST p P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU *
0x2a2410…2a25a4 Dummy {f00=0x00a9, f01=0x018e, f02=»CK FROM DISC P* P LDR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT > P LKM f P DATA 15 FILE MANAGEMENT IO r & P CF A14,DMTIOZ CHECK RETURN CODES P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR
0x2a25a4…2a2738 Dummy {f00=0x00a9, f01=0x0190, f02=» P* P* BUFFER WAS BEFORE P* , PRDN200 EQU * 6 $ P LD A2,FDBRRO,A1 REC ORD OFFSET J P RF(NN) RDN220 NOT FIRST REC r P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHEC
0x2a2738…2a28cc Dummy {f00=0x00a9, f01=0x018e, f02=»HIS REC LAST IN BUFFER P* , P* GET NEXT REC IN CURRENT BLOCKBUFFER ( P* X $ P AD A2,FDBRLE,A1 RECOR D LENGTH b P ADK A2,1 STATUS CHAR P ST A2,FDBRRO,A1 NEW OFFSET P RF RDN950 RETURN P* PRDN300 EQU * P STR
0x2a28cc…2a2a60 Dummy {f00=0x00a9, f01=0x0190, f02=» $ P LC A5,FDBBLZ,A1 SECT PER BLOCK P ADR A3,A5 NEXT SECT 0 P RF(O) RDN380 L P RF RDN390 b PRDN380 ANKL A3,/7FFF t P IM FDBSNR,A1 PRDN390 ST A3,FDBSNR+2,A1 P LDR A6,A1 FDB ADDR P RF RDN500 P* P* P
0x2a2a60…2a2bf4 (5, 386) Dummy {f00=0x00a9, f01=0x0190, f02=» FDB ADDR P RB RDN040 NEXT SECTOR P* 0 P* EXIT : P* J PRDN900 EQU * T P LDR A5,A1 RET CODE h P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO BUFFER " P CF A14,DMTRBU RELEASE BUFFER PRD
0x2a2bf4…2a2d88 Dummy {f00=0x00a9, f01=0x0190, f02=» ADKL A14,4 P LDR* A7,A14 PRDN950 EQU * ( P RTN A14 < P EJECT L 8 P****DESCRIPTION************************************* Z P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE * P* SPECIFIED KEY OR NEXT HIGHER KEY
0x2a2d88…2a2f1c Dummy {f00=0x00a9, f01=0x0190, f02=»* P* A1 = FDB ADDRESS P* A8 = SEARCH KEY ADDR & & P* A11 = NO OF CHARACTERS IN KEY F " P* A13= PHYSICAL ECB ADDRESS p P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = FDB ADDRESS 0 P*
0x2a2f1c…2a30b0 Dummy {f00=0x00a9, f01=0x0190, f02=»* = RETURN CODE WHEN KEY IS NOT FOUND 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER 2 P* A3 = BUFFER ADDRESS j & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARACTERS " P* A8 = PHYSICAL ECB ADDRESS P* A11
0x2a30b0…2a3244 Dummy {f00=0x00a9, f01=0x0190, f02=»ACK l P* : P****************************************************** P EJECT T PFNDKEY EQU * b P* v & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF MASTER INDEX $ P STR A1,A14 FDB ADDRESS IS SAVED
0x2a3244…2a33d8 Dummy {f00=0x00a9, f01=0x018e, f02=»R | P CF A14,CALSNO GET PHYS ADDR P LDR A1,A1 . P RF(NZ) FKY900 ERROR @ P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY v $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9 NO BUFFER TO START WITH P LDR A8,A13 ECB ADDR
0x2a33d8…2a356c Dummy {f00=0x00a9, f01=0x0190, f02=» P RF FKY900 ERROR EXIT P* " " P* BUFFER AND ADATA IS FOUND , P* R PFKY150 EQU * P LDR A9,A3 BUFFER ADDR p P ADR A2,A3 BUFFER ADR P ADKL A2,BUFSTA P LDR A10,A2 SAVE REC ADDR * P AD A10,FDBRLE,A1 ADDR OF STATUS C
0x2a356c…2a3700 Dummy {f00=0x00a9, f01=0x018e, f02=»CORDS IN THIS SECTOR P* * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET & P LD A4,FDBMRO,A1 T & P ST A4,FDBRRO,A1 LAST REC IN SECT n P* P* *CHECK IF EOF P* P LDR A10,A7 CHAR ADDR " P CF A14,GTLGRN GET LOG REC NR
0x2a3700…2a3894 (5, 387) Dummy {f00=0x00a9, f01=0x0190, f02=» | P CW A3,FDBLRN+1,A1 P RB(L) FKY100 NOT EOF " PFKY180 EQU * @ P* T P* EOF IS IN THIS SECTOR ^ P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR OF SAME CHAR P LDKL A2,EOFRC EOF P RF FKY950
0x2a3894…2a3a28 Dummy {f00=0x00a9, f01=0x0190, f02=»OMPARE KEYS P LDR A3,A3 & P RF(P) FKY840 SEARCHED KEY GREATER & " P RF(N) FKY850 SEARCH KEY LESS P P RF FKY870 KEY FOUNFD v PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR B P*
0x2a3a28…2a3bbc Dummy {f00=0x00a9, f01=0x0190, f02=»0 REDUCE NO OF SAME CHARACTERS P RB FKY100 NEXT KEY & PFKY850 EQU * B P LDKL A2,NOKEY KEY NOT FOUND V P RF FKY950 z PFKY870 EQU * P LDK A2,0 KEY FOUND P RF FKY950 PFKY900 EQU * P SUR A9,A9 NO BUFFERS P LDR A2,
0x2a3bbc…2a3d50 Dummy {f00=0x00a9, f01=0x0190, f02=» z P LDR A3,A9 BUFFER ADDR ! P RTN A14 ! & P EJECT ! 6 P* ! D J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX ! N P* RECORDS ARE UPDATED ! P* ! P* IN: ! & P* A8,A9 = LAST RECORD NR MOVED ! & P* A10,
0x2a3d50…2a3ee4 Dummy {f00=0x00a9, f01=0x018e, f02=»TERS: ! P* A1 -A12 " P* " " P* OUT: " , P* A5 = FDB ADDR INDEX " < P* A10,A11 = UNCHANGED " P* " | PCRNUPD EQU * " P STR A12,A14 " P SUKL A14,2 " $ P LD A12,FDBADF,A5 FDB DATA FILE " P INH " $ P LD A12,FDBCRL,A12
0x2a3ee4…2a4078 Dummy {f00=0x00a9, f01=0x0190, f02=» " t P CC A7,CRNCIF,A12 # P RB(NE) CRU100 WRONG FC # " P CC A10,CRNCIF+1,A12 # B P RB(G) CRU100 # ^ P RF(L) CRU200 # t P CW A11,CRNCIF+2,A12 # P RB(G) CRU100 # PCRU200 EQU * # P CC A8,CRNCIF+1,A12 # P RF(G) CRU300 # P RB(L)
0x2a4078…2a420c Dummy {f00=0x00a9, f01=0x0190, f02=»,A14 ADD PARAM # P LDR A6,A7 $ P RF(N) CRU230 -1 $ ( P LDK A6,0 $ @ PCRU230 EQU * $ R P ANKL A7,/7FFF $ f P LDK A1,0 $ | P LC A1,CRNCIF+1,A12 $ P LD A2,CRNCIF+2,A12 $ P CF A14,ADDMOD $ P SC A1,CRNCIF+1,A12 $ P ST A2,CRNCIF+2,
0x2a420c…2a43a0 Dummy {f00=0x00a9, f01=0x0190, f02=»N************************************* $ P* % . D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO % 8 P* % 8 P****ENTRY PARAMETERS******************************** % P* % P* A1 = FDB ADDRESS % & P* FDBSNR,FDBRRO,F
0x2a43a0…2a4534 (5, 388) Dummy {f00=0x00aa, f01=0x0190, f02=»3 = LOG RECORD NO % P* & 8 P****USED REGISTERS********************************** & $ P* & ` P* A1 - A7 & j P* & ~ : P****************************************************** & P EJECT DMSUBR & PGTLGRN EQU * & P LDK A6,0 & P LDR
0x2a4534…2a46c8 Dummy {f00=0x00aa, f01=0x0190, f02=» & P LC A6,FDBBLZ,A5 BLOCK SIZE ' P ST A8,-4,A14 ' , P CF A14,DIVMOD ' B P LD A8,-4,A14 ' X P LDR A6,A2 BLOCKS - 1 ' n P* ' ( P* CONVERT FDBRRO TO NO OF RECORDS ' P* ' P LDK A7,0 ' " P LC A7,FDBBLF,A5 BLOCK FACTOR ' P CF
0x2a46c8…2a485c Dummy {f00=0x00aa, f01=0x018e, f02=»FFSET IN SECTOR ' ~ P ADK A6,1 ( PGTL150 EQU * ( * P ADK A7,1 RECORD COUNTER ( > P SUR A6,A4 ( ^ * P RB(NN) GTL150 COUNT RECORDS IN SECTOR ( p P* ( , P* ADD SECT*BLOCFACT AND RECINCURRSECT ( P* ( P ADR A2,A7 ( P RF(O) GTL160 OVERFL
0x2a485c…2a49f0 Dummy {f00=0x00aa, f01=0x4076, f02=» P LDR A3,A2 ) P LDR A2,A1 ) P LDR A1,A5 FDB ADDR ) ( P LDR A6,A5 ) D P RTN A14 ) V P END ) f@ ) r) GTL150 COUNT RECORDS IN SECTOR ( p P* ( , P* ADD SECT*BLOCFACT AND RECINCURRSECT ( P* ( P ADR A2,A7 ( P RF(O) GTL160 OVERFL
0x2a49f0…2a4b84 Dummy {f00=0x00aa, f01=0x2008, f02=» * + t P INH , P CF A15,TENDIO , P ENB , 2 P* , > P* EXIT , H P* , X P LKM , b P DATA 3 , n P* , ~ P END , @ , RD ADDR A2:=EA BIT + & P C1R A2,A2 ONE COMPLEMENT BIT MASK + P ANRS A2,A3 SET OFF EA BIT + P* +
0x2a4b84…2a4d18 Dummy {f00=0x00aa, f01=0x0190, f02=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS * P LKM + 0 P DATA 15 + < P LDR A1,A10 MAIN FDB + L P CF A14,DMTIOT ERR CHECK + h P LDR A1,A1 + P ABL(NZ) OPEER2 + P LDKL A9,OPEFPB FPB ADDR + P RF OPE700 NEXT FILE + P EJECT + POPE600 EQU *
0x2a4d18…2a4eac Dummy {f00=0x00aa, f01=0x0190, f02=»M FPB:NI,A9 FILLER + P SC A2,FPB:NI,A9 NR OF INDEX , P LDR A3,A12 , > P SRL A3,1 , R P LDR A2,A3 , d P LDR A4,A9 , v P LDKL A5,FPB:I2 , P SUKL A5,FPB:I1 OFFSET , P SUR A4,A5 , POPE630 EQU * , P ADR A4,A5 REL ADDR , P SUK A2,
0x2a4eac…2a5040 Dummy {f00=0x00aa, f01=0x0190, f02=»,A4 , P CM FPB:I1+4,A4 - P LDK A7,1 - $ " P ST A7,FPB:I1+6,A4 NR OF ITEMS - 6 P LD A7,FDBKA,A11 KEY OFFSET - P ST A7,FPB:A1,A4 KEY ADDR - P LD A7,FDBRLE,A11 REC LGTH - P SUK A7,6 - P CM FPB:L1,A4 FILLER - P SC A7,FPB:L1,A4 KEY L
0x2a5040…2a51d4 (5, 389) Opaque[0x194]
0x2a51d4…2a5368 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x2a51d4…2a5368 IdxSect {
0x2a51d4…2a5368 f00 = 0x00aa // 0x2a51d4 @0x0
0x2a51d4…2a5368 f01 = 0x0004 // 0x2a51d6 @0x2
0x2a51d4…2a5368 gno = [ // 0x2a51d8 @0x4
0x2a51d4…2a5368 [0x00]: C0x00aa.0x1.0
0x2a51d4…2a5368 [0x01]: C0x00aa.0x2.0
0x2a51d4…2a5368 ]
0x2a51d4…2a5368 }
0x2a5368…2a54fc Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x2a54fc…2a5690 Dummy {f00=0x00aa, f01=0x0190, f02=»UTER P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 & $ P* AG-A7 = ARG2 N P* CF A14,ADDMOD v & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED. P ENT
0x2a5690…2a5824 Dummy {f00=0x00aa, f01=0x0190, f02=» . P***************************************** P* 6 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION @ . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. z P* PCPU852 EQU 0 P* P EJECT PADDMOD EQU * P LDK A3,0 P
0x2a5824…2a59b8 Dummy {f00=0x00aa, f01=0x0190, f02=» P ADR A2,A7 P RF(3) OVER1 $ 0 PNOVER ADR A1,A6 * NO OVERFLOW D P RF(1) END1 x P RF(2) END2 P RF(3) END3 PNOVER1 ADK A2,0 P RF(0) END0
0x2a59b8…2a5b4c Dummy {f00=0x00aa, f01=0x0190, f02=» RB(7) NOVER POVER3 ADR A1,A6 P RF(2) END3 < P ADK A1,0 Z P RF(1) END1 x P RB(7) NOVER1 P XIF P IFF CPU852=1 P RF(0) END0 P RF(1) END1 P RF(2) E
0x2a5b4c…2a5ce0 Dummy {f00=0x00aa, f01=0x411e, f02=»LL A3,1 ********************************** P ANK.L A3,/0300 < P LDK.L A4,/FCFF ^ P AN.S A4,2,A14 B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 P
0x2a5ce0…2a5e74 (5, 390) Dummy {f00=0x00aa, 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
0x2a5e74…2a6008 Dummy {f00=0x00aa, f01=0x0190, f02=»A14,MOV:SU 6 P XIF 7 P IFT MMUPAG=0 7 P LDR A2,A3 LENGTH 7 4 P LD A3,ECBBA,A4 TO ADDR 7 N P ADK A3,FPBRES RESERVED ITEM 7 n P CF A14,DMTBM MOVE 7 P XIF 7 P* 7 $ P* ADJUST FILE NAME FOR INDEXES 7 P* 7 P LDR A1,A9 7 P A
0x2a6008…2a619c Dummy {f00=0x00aa, f01=0x0190, f02=»0 7 P EJECT 8 POPE900 EQU * FINISH 8 & P LD A11,OPEFWT FDB ADDR DATA FILE 8 4 P CWK A10,FDBSTA 8 ^ & P RF(NE) OPE990 READ FILE PAR ORDER 8 v P* 8 ( P* STORE FDB ADDRESSES IN ALL FDB'S 8 P* 8 P LDK A5,10 NR OF FILES * 2 8 PDMT625
0x2a619c…2a6330 Dummy {f00=0x00aa, f01=0x018e, f02=»NDEX FILE 8 ~ P LDKL A1,OPEFWT FROM ADDR 9 P ADKL A3,FDBADF TO ADDR 9 4 P LDK A2,10 NO OF BYTES 9 T P CF A14,DMTWM MOVE 5 WORDS 9 r P RB DMT625 9 PDMT635 EQU * 9 P* 9 & P* CONNECT FILE CODE OF DATA FILE 9 P* 9 P LD* A2,DWTECB,A
0x2a6330…2a64c4 Dummy {f00=0x00aa, f01=0x0190, f02=» P CF A14,FNDFDB : P ST A11,2,A4 FWT ADDR : P* : 8 P* REMOVE CURRENCY BUFFER : B P* : d P LDR A1,A10 : n P CF A14,CRNGET ADDR IN A2 : P ADKL A1,FDBCRL ROOT : P INH : POPE940 EQU * : P LDR* A3,A1 NEXT BUFFER : P CWR A3,
0x2a64c4…2a6658 Dummy {f00=0x00aa, f01=0x018e, f02=»D A3,CRNQUE : P STR A3,A2 ; P ST A2,CRNQUE ; & P ENB =1 ; < POPE990 EQU * ; N P* ; b 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK ; l P* ; P LDK A1,FPB:IV ; " P LC A2,FDBNIF,A11 NR OF INDEX ; P ANK A2,/F ; P IFT INDXAC=1
0x2a6658…2a67ec Dummy {f00=0x00aa, f01=0x0190, f02=» " P SUR A2,A1 MAX NR OF REM CHAR < POPE994 EQU * < * P XIF < > P ADR A1,A9 FROM ADDR < J P LD A3,DWTECB,A10 USER ECB < f P LD A4,ECBRL,A3 TOT LGTH < P SUK A4,FPB:IV+FPBRES < P CWR A2,A4 REM LGTH < P RF(NG) OPE995 TAKE SHORTEST < P L
0x2a67ec…2a6980 Dummy {f00=0x00aa, f01=0x0190, f02=» < P LD A3,ECBBA,A3 TO ADDR = P ADK A3,FPB:IV+FPBRES = ( P CF A14,DMTBM MOVE = F P XIF = ` P IFT MMUPAG=1 = l P LDR A4,A2 = P LD A2,ECBBA,A3 = " P ADK A2,FPB:IV+FPBRES TO ADDER = P LDR A3,A4 LENGTH = $ P LD A4,DWTTAB,A10 USER TTAB
0x2a6980…2a6b14 (5, 391) Opaque[0x194]
0x2a6b14…2a6ca8 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15e0, f03=0x0000}
0x2a6b14…2a6ca8 IdxSect {
0x2a6b14…2a6ca8 f00 = 0x00af // 0x2a6b14 @0x0
0x2a6b14…2a6ca8 f01 = 0x0004 // 0x2a6b16 @0x2
0x2a6b14…2a6ca8 gno = [ // 0x2a6b18 @0x4
0x2a6b14…2a6ca8 [0x00]: C0x00af.0x0.0
0x2a6b14…2a6ca8 [0x01]: C0x00af.0x2.0
0x2a6b14…2a6ca8 ]
0x2a6b14…2a6ca8 }
0x2a6ca8…2a6e3c Dummy {f00=0x00af, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x2a6e3c…2a6fd0 Dummy {f00=0x00af, f01=0x0190, f02=»OMPUTER P*CALLING SEQUENCE $ P* A1-A2 = ARG1 * $ P* A6-A7 = ARG2 R P* CF A14,DSUMOD z & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED. P
0x2a6fd0…2a7164 Dummy {f00=0x00af, f01=0x0190, f02=» . P***************************************** P* : 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION D . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. ~ P* PCPU852 EQU 0 P* P EJECT PDSUMOD EQU * P LDK A3,0
0x2a7164…2a72f8 Dummy {f00=0x00af, f01=0x0190, f02=» P ANK.L A7,X'7FFF' P ANK.L A2,/7FFF ( P ADK A7,1 J P RF(1) NOVER1 h P ADK A6,1 P RF(3) OVER4 P RF(7) NOVER PNOVER1 ADR A2,A7 P
0x2a72f8…2a748c Dummy {f00=0x00af, f01=0x0190, f02=» END3 P ADK A2,0 P RF(0) END0 . P RF(7) END1 L POVER1 ANK.L A2,X'7FFF' j P ADK A1,1 P RF(3) OVER4 P RB(7) NOVER POVER4 ADR A1,A6
0x2a748c…2a7620 Dummy {f00=0x00af, f01=0x0190, f02=» END0 P RF(1) END1 P RF(2) END2 " P XIF 6 PEND3 ADK A3,/80 B PEND2 ADK A3,/80 d PEND1 ADK A3,/80 F PEND0 SLL A3,1 ************************************* P ANK.L A3,/
0x2a7620…2a77b4 (5, 392) Dummy {f00=0x00af, f01=0x4044, f02=»ROGRAM X P RTN A14 P END ,@ @
0x2a77b4…2a7948 Dummy {f00=0x00af, f01=0x2008, f02=» ,0 P RB(7) NOVER2 PEND3 ADK A3,/80 6 PEND2 ADK A3,/80 X PEND1 ADK A3,/80 z PEND0 SLL1 A3 P ANK.L A3,/0300 P LDK.L A4,/FCFF P A
0x2a7948…2a7adc Dummy {f00=0x00af, f01=0x0190, f02=» P RF(Z) FND060 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) * P RB FND030 L PFND045 EQU * NO MASTER INDEX ^ P LDK A1,0 P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU *
0x2a7adc…2a7c70 Dummy {f00=0x00af, f01=0x0190, f02=» LDK A1,0 P LCR A1,A3 P ADK A3,1 $ P LCR A2,A3 6 P ADK A3,1 H P ECR A2,A2 Z P LCR A2,A3 l PFND070 EQU * ~ P RTN A14 P EJECT 8 P****DESCRIPTION************************************* P* . P* CHKKEY COMPARE
0x2a7c70…2a7e04 Dummy {f00=0x00af, f01=0x0190, f02=»Y x P* A3 = ADR OF SEARCH KEY * P* A6 = MAX NO OF CAHARACTERS IN KEY , 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY Z P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS********************************* P* : P*
0x2a7e04…2a7f98 Dummy {f00=0x00af, f01=0x0190, f02=»IS LESS t N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY " P* A6 = MAX NO OF CHAR IN KEY b P* 8 P****USED REGISTERS********************************** P* P* A2-A4,A6-A7 < P************************
0x2a7f98…2a812c Dummy {f00=0x00af, f01=0x0190, f02=»AR TO TEST z PCHK020 EQU * P LCR A4,A3 SEARCED KEY CHAR & P CCR A4,A2 SC=EC? J P RF(G) CHK100 SC GT TH EC d " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL) CHK060 ALL CHAR CHEC
0x2a812c…2a82c0 Dummy {f00=0x00af, f01=0x0190, f02=» P RF CHK140 PCHK120 EQU * $ P LDKL A3,-1 SEARCHED KEY SMALLER * P RF CHK140 R PCHK100 EQU * d $ P LDK A3,1 SEARCHED KEY SGREATER x PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*************************************
0x2a82c0…2a8454 (5, 393) Opaque[0x194]
0x2a8454…2a85e8 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x2a8454…2a85e8 IdxSect {
0x2a8454…2a85e8 f00 = 0x00af // 0x2a8454 @0x0
0x2a8454…2a85e8 f01 = 0x0004 // 0x2a8456 @0x2
0x2a8454…2a85e8 gno = [ // 0x2a8458 @0x4
0x2a8454…2a85e8 [0x00]: C0x00af.0x3.0
0x2a8454…2a85e8 [0x01]: C0x00b0.0x1.0
0x2a8454…2a85e8 ]
0x2a8454…2a85e8 }
0x2a85e8…2a877c Dummy {f00=0x00af, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x2a877c…2a8910 Dummy {f00=0x00af, f01=0x0190, f02=»LLING SEQUENCE: ( P* LD A6,ARG1 ( P* LD A7,ARG1 D P* CF A14,MPYMOD p ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRUSHED P ENTRY MP
0x2a8910…2a8aa4 Dummy {f00=0x00af, f01=0x0190, f02=»************************************* P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 0 P* P EJECT PMPYMOD EQU * P IFF CPU852=1 P LDK
0x2a8aa4…2a8c38 Dummy {f00=0x00af, f01=0x0190, f02=» ERROR EXIT Z P CWR A3,A6 P RF(4) SUITE 4 P CWR A3,A7 T P RF(0) END3 t < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7,A3 * EXCHANGE A6-A7 .
0x2a8c38…2a8dcc Dummy {f00=0x00af, f01=0x0190, f02=» x P ADK A6,0 P RF(0) END0 & P RF(6) ARG1PS D 0 P ADK A3,1 *ARG1 NEGATIVE d P C1R A6,A6 P ADK A6,1 PARG1PS ADK A7,0 P RF(0) EN
0x2a8dcc…2a8f60 Dummy {f00=0x00af, f01=0x0190, f02=»DK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 4 P RF(6) NOVER1 R P ADR A1,A6 r PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L A2,/4000
0x2a8f60…2a90f4 (5, 394) Dummy {f00=0x00b0, f01=0x0190, f02=»ND* RESTORE SI=N p P RF(0) END1 P C1R A1,A1 6 P C1R A2,A2 V P ADK A2,1 v D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (
0x2a90f4…2a9288 Dummy {f00=0x00b0, f01=0x0190, f02=»FF x P RF(7) END2 P XIF ( P IFF CPU852=1 4 P RF(0) END0 J P RF(1) END1 ^ P RF(2) END2 r P XIF PEND3 ADK A3,/81 PEND2 ADK A3,/81 PEND1 ADK A3,/81 PEND0 SLL A3,1
0x2a9288…2a941c Dummy {f00=0x00b0, f01=0x4114, f02=» UPDATE CR IN PSW CALLING PROGRAM v P RTN A14 , P IFT CPU852=1 J : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 ` . P* *AND A1= A6 P RB(7) NOVER3 P XIF P END
0x2a941c…2a95b0 Dummy {f00=0x00b0, f01=0x2008, f02=» 4 : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 . P* *AND A1= A6 P P RB(7) NOVER3 P END @
0x2a95b0…2a9744 Dummy {f00=0x00b0, f01=0x018e, f02=»TERS: ! P* A1 -A12 " P* " " P* OUT: " , P* A5 = FDB ADDR INDEX " < P* A10,A11 = UNCHANGED " P* " | PCRNUPD EQU * " P STR A12,A14 " P SUKL A14,2 " $ P LD A12,FDBADF,A5 FDB DATA FILE " P INH " $ P LD A12,FDBCRL,A12
0x2a9744…2a98d8 Dummy {f00=0x00b0, f01=0x0190, f02=» " t P CC A7,CRNCIF,A12 # P RB(NE) CRU100 WRONG FC # " P CC A10,CRNCIF+1,A12 # B P RB(G) CRU100 # ^ P RF(L) CRU200 # t P CW A11,CRNCIF+2,A12 # P RB(G) CRU100 # PCRU200 EQU * # P CC A8,CRNCIF+1,A12 # P RF(G) CRU300 # P RB(L)
0x2a98d8…2a9a6c Dummy {f00=0x00b0, f01=0x0190, f02=»,A14 ADD PARAM # P LDR A6,A7 $ P RF(N) CRU230 -1 $ ( P LDK A6,0 $ @ PCRU230 EQU * $ R P ANKL A7,/7FFF $ f P LDK A1,0 $ | P LC A1,CRNCIF+1,A12 $ P LD A2,CRNCIF+2,A12 $ P CF A14,ADDMOD $ P SC A1,CRNCIF+1,A12 $ P ST A2,CRNCIF+2,
0x2a9a6c…2a9c00 Dummy {f00=0x00b0, f01=0x0190, f02=»N************************************* $ P* % . D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO % 8 P* % 8 P****ENTRY PARAMETERS******************************** % P* % P* A1 = FDB ADDRESS % & P* FDBSNR,FDBRRO,F
0x2a9c00…2a9d94 (5, 395) Opaque[0x194]
0x2a9d94…2a9f28 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1610, f03=0x0000}
0x2a9d94…2a9f28 IdxSect {
0x2a9d94…2a9f28 f00 = 0x00b0 // 0x2a9d94 @0x0
0x2a9d94…2a9f28 f01 = 0x0004 // 0x2a9d96 @0x2
0x2a9d94…2a9f28 gno = [ // 0x2a9d98 @0x4
0x2a9d94…2a9f28 [0x00]: C0x00b0.0x2.0
0x2a9d94…2a9f28 [0x01]: C0x00b1.0x0.0
0x2a9d94…2a9f28 ]
0x2a9d94…2a9f28 }
0x2a9f28…2aa0bc Dummy {f00=0x00b0, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x2aa0bc…2aa250 Dummy {f00=0x00b0, f01=0x0190, f02=»ING SEQUENCE & P* A1-A2= DIVIDEND $ P* A6 = DIVISOR > P* CF A14,DIVMOD f B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.
0x2aa250…2aa3e4 Dummy {f00=0x00b0, f01=0x018e, f02=» z P* . P***************************************** P* D 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION N . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P EJECT PDIVMOD EQU * P LDK
0x2aa3e4…2aa578 Dummy {f00=0x00b0, f01=0x0190, f02=» ^ P ADK A6,0 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW & P ADK A1,0 j P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0) END0 * IF DIVIDEND IS NULL, CR = 0
0x2aa578…2aa70c Dummy {f00=0x00b0, f01=0x0190, f02=» ADK A1,0 *SIGN OF DIVIDEND P RF(6) DIVENP 0 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P P C1R A1,A1 P C1R A2,A2 P ANK.L A2,X'7FFF' P ADK A2,1
0x2aa70c…2aa8a0 Dummy {f00=0x00b0, f01=0x0190, f02=» DIVISOR j P RF(6) DIVORP 4 P SUK A3,1 *NEGATIVE DIVISOR 0 P C1R A6,A6 h P ADK A6,1 < P ADK A6,0 RESET IF OVERFLOW P RF(5) CASSPE PDI
0x2aa8a0…2aaa34 (5, 396) Dummy {f00=0x00b1, f01=0x0190, f02=»A6 d P RF(0) END P SLL A1,1 ( P SLL A7,1 F P SLL A2,1 d P RF(6) *+4 P ADK A1,1 P ADK A1,0 P RF(2) CASSP1 P CWR
0x2aaa34…2aabc8 Dummy {f00=0x00b1, f01=0x0190, f02=»T z 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS PEND LDR A2,A7 B P ADK A3,0 b P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR + , P C1R A1,A1 *REMAINDER
0x2aabc8…2aad5c Dummy {f00=0x00b1, f01=0x0190, f02=»CTION IS ABSOLUTELY NECESSARY TO SET CR x > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) 0 P ADK A2,0 r P XIF P IFF CPU852=1 P RF(1) END1 P XIF P RF(2) END2 P RF(0) END0
0x2aad5c…2aaef0 Dummy {f00=0x00b1, f01=0x018e, f02=»**************************** n P ANK.L A3,/0300 $ P LDK.L A4,/FCFF F P AN.S A4,2,A14 h B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 P IFT CPU852=1 8 PNOSI
0x2aaef0…2ab084 Dummy {f00=0x00b1, f01=0x418e, f02=» . P ADK A1,1 REMAINDER - PBB ADK A2,0 : P RB(0) END0 X P RB(2) END2 v P RB(7) END1 PCASSPE LDR A7,A1 P LDR A1,A2 P CWK A1,/
0x2ab084…2ab218 Dummy {f00=0x00b1, f01=0x2008, f02=» A2,0 P RB(0) END0 P RB(2) END2 2 P RB(7) END1 P PCASSPE LDR A7,A1 n P LDR A1,A2 P CWK A1,/8000 P RB(4) END P LDK A1,0 P
0x2ab218…2ab3ac Dummy {f00=0x00b1, f01=0x0190, f02=»X EQU /03 LAST DUMMY . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE N " PPOINT EQU /2E POINT CHARACTER | 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /
0x2ab3ac…2ab540 Dummy {f00=0x00b1, f01=0x0190, f02=»R EQU /4 CODE CHECK ERROR ( POPERR EQU /1 NOT OPERABLE, POWER OFF " P* N P EJECT X P* f P* p . P***************************************** z . P* CONDITIONAL ASSEMBLY * . P*****************************************
0x2ab540…2ab6d4 (5, 397) Opaque[0x194]
0x2ab6d4…2ab868 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1628, f03=0x0000}
0x2ab6d4…2ab868 IdxSect {
0x2ab6d4…2ab868 f00 = 0x00b1 // 0x2ab6d4 @0x0
0x2ab6d4…2ab868 f01 = 0x0014 // 0x2ab6d6 @0x2
0x2ab6d4…2ab868 gno = [ // 0x2ab6d8 @0x4
0x2ab6d4…2ab868 [0x00]: C0x00b1.0x1.0
0x2ab6d4…2ab868 [0x01]: C0x00b1.0x3.0
0x2ab6d4…2ab868 [0x02]: C0x00b2.0x0.0
0x2ab6d4…2ab868 [0x03]: C0x00b2.0x1.0
0x2ab6d4…2ab868 [0x04]: C0x00b2.0x2.0
0x2ab6d4…2ab868 [0x05]: C0x00b9.0x1.0
0x2ab6d4…2ab868 [0x06]: C0x00b9.0x2.0
0x2ab6d4…2ab868 [0x07]: C0x00bb.0x0.0
0x2ab6d4…2ab868 [0x08]: C0x00bb.0x1.0
0x2ab6d4…2ab868 [0x09]: C0x00bb.0x2.0
0x2ab6d4…2ab868 ]
0x2ab6d4…2ab868 }
0x2ab868…2ab9fc Dummy {f00=0x00b1, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 10.0 80-03-14 870105041000 P : P =2 , COMMIT CHECK B P 79-11-22 ^ P =1 , PARAM TEST COMMIT r P 79-11-05 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTE
0x2ab9fc…2abb90 Dummy {f00=0x00b1, f01=0x0190, f02=»**************************************** 8 P****THIS MODULE IS ACTIVATED FROM :***************** 0 P* l P* DMTASK,TIODM,DMTASS v P* P*************** P* ENTRIES * P*************** P* P* P ENTRY DMTEN
0x2abb90…2abd24 Dummy {f00=0x00b1, f01=0x018e, f02=»SNO P ENTRY GTBKBU P ENTRY DMTIOT " P ENTRY DMTIOZ 8 0 P ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA N 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P ENTRY MOVZUS,MOVZSU P* P***************** P* EXTERNALS *
0x2abd24…2abeb8 Dummy {f00=0x00b1, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR & P EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL P EXTRN TTB:TD,SCTCDT,PRUN J 2 P EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR l " P EXTRN ECBRC,ECBFC,ECBCW,ECBBA P EXTRN DIVMOD,MPYMOD P EXTRN CRNTID P EXTRN DMTGBU
0x2abeb8…2ac04c Dummy {f00=0x00b1, f01=0x0190, f02=» HALT,DSUMOD,ECBRL P EXTRN EOMERR,RETRIE P EXTRN REQER2,QTJOB,TDISP 6 & P EXTRN DWTTAB,MONMMU,TTB:ID,TTB:MT X P EXTRN QCL P EJECT DMSUBR TOSSIO P* P* . P***************************************** P* P* CO
0x2ac04c…2ac1e0 Dummy {f00=0x00b1, f01=0x018e, f02=»G h * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 8 PMMUPAG EQU 1 B P* V P EJECT ` P* n > P* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION x P* ( P* ENTRY : A9 = DM INTERNAL USER ID P* P* USED REGS
0x2ac1e0…2ac374 (5, 398) Dummy {f00=0x00b1, f01=0x0190, f02=» P LDR* A2,A1 P ANK A2,/1 P RF(Z) REL053 NOT USED * 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK H P LDKL A5,/FF00 =2 | & P ANS A5,FDBBLZ,A1 COMMIT CHECK =2 P CF A14,EARELB P ENB PREL053 EQU * P LDR* A1,A1
0x2ac374…2ac508 Dummy {f00=0x00b1, f01=0x0190, f02=» COMMIT l P* PDMTEND EQU * COMMIT P LDR A6,A5 TTAB USER 6 P ANK A7,/7F =1 R P RF(Z) DMTE10 OK ORDER j P LDKL A7,REQER2 REQUES ERR P RF DMTE40 ERR PDMTE10 EQU * P* P* DECIDE USER TASK ID P* P
0x2ac508…2ac69c Dummy {f00=0x00b1, f01=0x0190, f02=» P RB DMTE20 TRY NEXT PDMTE30 LDR A9,A2 P LDKL A14,STACK STACK BASE 8 " P CF A14,RELPRO RELEASE PROTECT Z PDMTE40 EQU * P LDR A5,A6 TTAB USER & P ST A7,TTB:SA+14,A5 RET CODE IN A7 P INH P CF A15,QTJOB RESTART USER P
0x2ac69c…2ac830 Dummy {f00=0x00b1, f01=0x0190, f02=»****** P* " P* ENTRY DMTWM WORD MOVE P* > " P* INPUT A1 = FROM ADDRESS H , P* A2 = NO OF BYTES TO BE MOVED n P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* P
0x2ac830…2ac9c4 Dummy {f00=0x00b1, f01=0x0190, f02=» A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 : P LCR A4,A1 MOVE LAST CHAR P P SCR A4,A3 r PDMTW20 RTN A14 P EJECT P* P************* P* DMTBM * P************* P* " P* ENTRY
0x2ac9c4…2acb58 Dummy {f00=0x00b1, f01=0x0190, f02=»A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED " P* J P* OUTPUT A3 = NEXT CHAR T P* v P* PDMTBM EQU * P SUK A2,1 " P RF(N) DMTB10 LAST BYTE MOVED P LCR A4,A1 P SCR A4,A3 P ADK A1,1
0x2acb58…2accec Dummy {f00=0x00b1, f01=0x0190, f02=»FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 6 PDMTB20 SUK A2,1 H P RB(N) DMTB10 ` P SUK A1,1 v P SUK A3,1 P LCR A4,A1 P SCR A4,A3 P RB DMTB20 P EJECT 8 P****DESCRIPTION***************************
0x2accec…2ace80 Dummy {f00=0x00b1, f01=0x0190, f02=»**************** l P* P* A1 = TTAB ADDR " $ P* A2 = FILE CODE TO SEARCH FOR < 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED d P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = UNCHANGED 2 P*
0x2ace80…2ad014 (5, 399) Dummy {f00=0x00b2, f01=0x0190, f02=»CTCDT = 1 WHEN TTAB v P* 8 P****USED REGISTERS********************************** & P* b P* A1-A5 l P* ~ : P****************************************************** P* " P* LOOK FOR FILE CODE IN TTAB P* PFNDFDB E
0x2ad014…2ad1a8 Dummy {f00=0x00b2, f01=0x018e, f02=» LDR A4,A1 P ADKL A4,TTB:TD P ADR A4,A3 * P CWR* A2,A4 < P RB(NE) FND030 P P LDK A5,1 f " P RF FND080 CODE FOUND IN TTAB x P* " P* SEARCH FILE CODE IN SCTCDT P* PFND040 EQU * P LDR A5,A5 ( P RF(NZ) FN
0x2ad1a8…2ad33c Dummy {f00=0x00b2, f01=0x018e, f02=» P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 , P RB(NE) FND050 @ P AD A4,SCTCDT V P RF FND080 CODE FOUND l PFND060 EQU * P LDK A2,0 NO CODE PFND080 EQU * P RTN A14 P EJECT P* P**************
0x2ad33c…2ad4d0 Dummy {f00=0x00b2, f01=0x0190, f02=» 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN A5 8 * P* USER REC AREA IN ECBBA,A9 ` $ P* RECORD LENGTH IN A2 P* P* P* P* MOVE THE RECORD > P* IF (FROM) AND (TO) A
0x2ad4d0…2ad664 Dummy {f00=0x00b2, f01=0x0190, f02=»TIONS AND THE REST WITH WORD MOVE x : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC * P* h PDMTREM EQU * r P LD A1,FDBRRO,A6 P ADR A1,A5 FROM ADDRESS P* P IFT MMUPAG=0 P LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRE
0x2ad664…2ad7f8 Dummy {f00=0x00b2, f01=0x0190, f02=»F DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 2 P RF(E) DMT220 BOTH EVEN F P SUK A2,1 BOTH ODD f P LCR A4,A1 P SCR A4,A3 P ADK A1,1 P ADK A3,1 " PDMT220 CF A14,DMTWM WORD MOVE PDMT225 EQU * P XIF
0x2ad7f8…2ad98c Dummy {f00=0x00b2, f01=0x0190, f02=»ING BUFFER ADDRESS v 8 P CF A14,MOV:SU MOVE RECORD FROM SYSTEM TO USER AREA P XIF V P* b P RTN A14 l P EJECT | P* P* SET UP A14 STACK P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14
0x2ad98c…2adb20 Dummy {f00=0x00b2, f01=0x0190, f02=»SCRIPTION************************************* P* 6 < P* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. @ P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB ADRESS P* A2,A3 = LOG RECORD NO
0x2adb20…2adcb4 (5, 400) Dummy {f00=0x00b2, f01=0x0190, f02=»UNCHANGED P* A4 = 0 NO EA AT ALL * P* = +1 EA FOUND FOR ACTUAL TASK 4 * P* = -1 EA FOUND FO R OTHER TASK b P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR
0x2adcb4…2ade48 Dummy {f00=0x00b2, f01=0x0190, f02=»EAT030 EQU * $ P RF(Z) EAT100 EMPTY QUEUE,NO EA P* < P* SEARCH LOG REC NO F P* d P CC A2,3,A4 FIRST CHAR n P RB(NE) EAT020 P CW A3,4,A4 2 AND 3 CHAR P RB(NE) EAT020 P* P* RECORD NO FOUND P* P
0x2ade48…2adfdc Dummy {f00=0x00b2, f01=0x018e, f02=» * P LDK A4,1 EA SAME ATASK PEAT100 EQU * * P RTN A14 > P EJECT DMSUBR N 8 P****DESCRIPTION************************************* f P* B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK L P* IF NO BUFFERS ARE
0x2adfdc…2ae170 Dummy {f00=0x00b2, f01=0x0190, f02=» P* A6 = FDB ADDR " P* A2,A3 = LOGICAL RECORD NO P* D P* CF A14,EASETB N P* j 8 P****EXIT PARAMETERS********************************* t P* P* A6 = FDB ADDR P* 8 P****USED REGISTERS************************
0x2ae170…2ae304 Dummy {f00=0x00b2, f01=0x0190, f02=»R PEASETB EQU * P ECR A2,A2 P LC A2,FDBTNR,A6 TASK ID 0 P ECR A2,A2 P P LDR A1,A3 LOG REC NO b P INH , P CF A15,GETBLK GET BUFF AND STORE A1,A2 P* P* LINK BUFFER TO FDB P* P LD A2,FDBEAL,A6 LINK ROOT
0x2ae304…2ae498 Dummy {f00=0x00b2, f01=0x0190, f02=»************************************ P* , 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM 6 P* TIO THE FREE LINK. r P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB-ADDRESS " P* A2,A3 =
0x2ae498…2ae62c Dummy {f00=0x00b2, f01=0x0190, f02=» ARE REMOVED. P* A2: BIT 0=1,BIT 1=1 4 P* AND A9 NOT EQ 0 ALL BUFFERS ON FDB WITH @ @ P* TASK ID AS SPEC IN A3 ARE RELEASED x < P* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED. J P* BIT
0x2ae62c…2ae7c0 Dummy {f00=0x00b2, f01=0x0190, f02=» PARAMETERS********************************* P* 4 P* A1 = UNCHANGED > P* X 8 P****USED REGISTERS********************************** b P* P* A1 - A5,A9 P* 6 P************************************************* P*
0x2ae7c0…2ae954 (5, 401) Dummy {f00=0x00b2, f01=0x018e, f02=»DR* A4,A5 EA ROOT P RF EAR030 PEAR020 EQU * , P LDR A5,A4 SAVE OLD ROOT @ P LDR* A4,A4 NEXT BUFFER ADR ` PEAR030 EQU * P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P
0x2ae954…2aeae8 Dummy {f00=0x00b2, f01=0x0190, f02=» PEAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED > P LDR A3,A9 REQ TASK ID r P RF(NZ) EAR065 TASK ID IN A3 PEAR060 EQU * P* P* SEARCH TASK IDENT P* P LC A3,FDBTNR,
0x2aeae8…2aec7c Dummy {f00=0x00b2, f01=0x0190, f02=»QU * P LDR* A3,A4 NEXT BUFADR & P STR A3,A5 REMOVE BUFFER FROM LINK , P* V P* RETURN BUFFER TO POOL ` P* P INH P LD A3,FREQUE P STR A3,A4 NEXT FREE P ST A4,FREQUE NEW ROOT P LDR A4,A5 BUFFER ROOT P L
0x2aec7c…2aee10 Dummy {f00=0x00b2, f01=0x0190, f02=»************************** v P* ! " D P* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS ! , D P* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH ! t H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ! 0 P
0x2aee10…2aefa4 Dummy {f00=0x00b2, f01=0x018e, f02=»********************** ! r P* " " P* A1 = FDB ADDRESS DATA FILE " ( P* " N 8 P****EXIT PARAMETERS********************************* " X P* " P* A1 = UNCHANGED " ( P* A2 = ADDRESS OF FOUND CRN-BUFFER " P* " 8 P****USED REGISTERS********
0x2aefa4…2af138 Dummy {f00=0x00b2, f01=0x0190, f02=» " P EJECT DMSUBR # PCRNGET EQU * # P LD A2,FDBCRL,A1 CRN ROOT # 4 P RF CRN030 # V PCRN020 EQU * # h P LDR* A2,A2 NEXT BUFFER # | PCRN030 EQU * # P RF(Z) CRN100 LINK END # P* # P* CHECK ATASK IDENT # P* # P LC A3,F
0x2af138…2af2cc Dummy {f00=0x00b2, f01=0x0190, f02=»BUFFER # P* $ PCRN100 EQU * $ P INH $ , P LD A2,CRNQUE FREE LINK ROOT $ 8 P RF(NZ) CRN120 $ P LDK A1,3 LAMP 10 AND 11 $ r P CF A15,HALT NO MORE BUFFERS $ PCRN120 EQU * $ P LDR* A3,A2 NEXT FREE $ P ST A3,CRNQUE UPD ROOT $ P*
0x2af2cc…2af460 Dummy {f00=0x00b2, f01=0x0190, f02=»WORDS 2 - N $ P RF(NP) CRN160 BUFFER ZEROED % P LDR A4,A2 BUFFER ADR % 8 P ADR A4,A3 OFFSET IN BUFFER % V P CMR A4 % z P RB CRN140 MORE WORDS % P* % " P* CONNECT NEW BUFFER TO LINK % P* % PCRN160 EQU * % P LC A3,FDBTNR,A1 %
0x2af460…2af5f4 (5, 402) Dummy {f00=0x00b9, f01=0x0190, f02=»00 EQU * % P ENB & P RTN A14 & P EJECT DMSUBR & , 8 P****DESCRIPTION************************************* & D P* & 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO & P* RELATIVE & P* SECTOR AND OFFSET & P* & 8 P****ENTRY PA
0x2af5f4…2af788 Dummy {f00=0x00b9, f01=0x0190, f02=»CF A14,CALSNO & P* ' 8 P****EXIT PARAMETERS********************************* ' " P* ' ^ P* A1 = 0 OK ' h , P* NE 0 , ERROR =/A000=END OF MEDIUM ' ~ P* A6 = UNCHANGED ' $ P* IN FDB : FDBSNR = SECTOR NR ' * P* FDBRRO = OF
0x2af788…2af91c Dummy {f00=0x00b9, f01=0x0190, f02=»R ' PCALSNO EQU * ( P* ( " P* FIND BLOCK NO WITHIN FILE ( ( P* ( N P LDR A5,A6 SAVE FDB ADDR ( X P LDK A6,0 ( x $ P LC A6,FDBBLF,A5 BLOCKING FACTOR ( , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER ( P RF(O) CALERR OVERFLOW ( P LDR A3,
0x2af91c…2afab0 Dummy {f00=0x00b9, f01=0x0190, f02=»OD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK ( PTIOD40 EQU * ) . * P* FIND LOGICAL SECTOR NUMBER ON DISC ) B P* ) p P LDR A6,A3 BLOCK NR ) z P RF(NP) CALERR ) P SUK A6,1 ) P LDK A7,0 ) ( P LC A7,FDBBLZ,A5 NR OF SECT IN BLOCK ) P CF A14,MPYM
0x2afab0…2afc44 Dummy {f00=0x00b9, f01=0x0190, f02=»L090 EQU * ) P ST A1,FDBSNR,A5 * P ST A2,FDBSNR+2,A5 SECT NR * * 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK * L P* * P LDK A3,0 * " P LDR A2,A9 REL REC NR IN BLOCK * PTIOD60 EQU * * P SUK A2,1 A2=REL REC NR * ( P RF(Z) TIOD65 REL
0x2afc44…2afdd8 Dummy {f00=0x00b9, f01=0x0190, f02=»A1,EOMERR OUT OF MEDIUM * P RF TIODMF + P* + 2 , P* STORE RELATIVE REC OFFSET IN FBDRRO + < P* + l PTIOD65 EQU * + v P LDK A1,0 OK + P ST A3,FDBRRO,A5 + PTIODMF EQU * + P LDR A6,A5 FDB ADDR + P RTN A14 + P EJECT DMSUBR +
0x2afdd8…2aff6c Dummy {f00=0x00b9, f01=0x0190, f02=»S DISC I/O + ` P* , P* INPUT A1 = FDB ADDRESS , P* , @ P* OUTPUT A6 = FDB ADDRESS , J P* A1 = 0 WHEN OK , n $ P* = ERROR CODE ELSE , $ P* A9 = DM ECB ADDRESS , * P* A8 = PHYS I/O ECB ADDRESS ,
0x2aff6c…2b0100 Dummy {f00=0x00b9, f01=0x018e, f02=» P LDKL A8,FDBECB - P ADR A8,A1 - P* - . P P* DMTIOZ IS THE SAME AS DMTIOT WITH DIFFERENCE THAT ECB ADDR IS INPUT PAR - 8 P* - PDMTIOZ EQU * - P* - P* RESTORE SECTOR NUMBER - P* - P LD A6,FDBSNR,A1 - P ST A6,ECBCW,A8
0x2b0100…2b0294 (5, 403) Dummy {f00=0x00b9, f01=0x0190, f02=» - ~ P RF(Z) DMTIOX DISC I/O OK . P ANKL A1,/FEFF . * $ P RF(NZ) DMTIT1 NOT ONLY RETRIES . @ P LDKL A2,RETRIE . h PDMTIOC EQU * . P ORS A2,ECBRC,A9 USER RC . P RF DMTIOX . PDMTIT1 EQU * . P LD A2,ECBBA,A8 . P* GET BUFFE
0x2b0294…2b0428 Dummy {f00=0x00b9, f01=0x0190, f02=» P SUKL A2,QCL / P RF(NZ) DMTIOX NOT CLOSE / P LDR A2,A1 / 8 P LDK A1,0 / J P RB DMTIOC / PDMTIOX RTN A14 / n P EJECT DMSUBR / 8 P****DESCRIPTION************************************* / P* / 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR
0x2b0428…2b05bc Dummy {f00=0x00b9, f01=0x018e, f02=»** / ^ P* 0 P* A1 = FDB ADDRESS 0 P* A8 = ECB ADDR 0 0 P* 0 J 8 P****EXIT PARAMETERS********************************* 0 T P* 0 P* A1 = A6 = FDB ADDR 0 0 P* A2 = FDBRRO WHEN SECTOR IS FOUND IN CORE 0 B P*
0x2b05bc…2b0750 Dummy {f00=0x00b9, f01=0x0190, f02=» P* A5 = ORDE R CODE 1 P* A8 = ECB ADDR 1 P* A9 = DM ECB ADDR 1 : P* 1 V 8 P****USED REGISTERS********************************** 1 ` P* 1 P* A1 - A9 1 P* 1 : P****************************************************** 1 PGTBKBU
0x2b0750…2b08e4 Dummy {f00=0x00b9, f01=0x0190, f02=»A6 1 P LD A9,DWTECB,A6 DM ECB 2 P ANK A1,/FF 2 * P STR A1,A8 FILE NR 2 > P LC A5,FDBBLZ,A6 2 X " P SLL A5,8 BLOCK SIZE IN BYTYE 2 p P ST A5,ECBRL,A8 BLOCK LENGTH 2 ( P CF A14,DMTGBU A3 := BUFFER ADDRESS 2 0 P RF GTB100 RETURN IF SECTOR FOUND
0x2b08e4…2b0a78 Dummy {f00=0x00b9, f01=0x0190, f02=» EQU * 2 P ST A4,ECBCW+2,A8 SECT NR 3 P LDR A5,A3 3 0 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS 3 B P ST A5,ECBBA,A8 3 x P LD A5,DWTOR,A6 3 P ANK A5,/3F 3 ( P LDR A1,A6 FDB ADDRESS AS PARAMETER 3 P RTN A14 3 PGTB100 EQU * 3
0x2b0a78…2b0c0c Dummy {f00=0x00b9, f01=0x0190, f02=» P* 4 P* 4 P IFT MMUPAG=1 4 P* 4 . P* M O V : U S 4 8 P* 4 N D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO 4 X L P* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA 4 J P* ARE USED, DEPENDING ON
0x2b0c0c…2b0da0 Dummy {f00=0x00b9, f01=0x0190, f02=» = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 4 . P* A3 = NUMBER OF BYTES TO BE MOVED 5 4 $ P* A4 = USER TTAB ADDRESS 5 f P* 5 " P* OUTPUT: A1-A4 ARE DESTROYED 5 P* 5 PMOV:US EQU * 5 P INH 5 P TL TTB:MT,A4 SET USER MMU 5
0x2b0da0…2b0f34 (5, 404) Dummy {f00=0x00bb, f01=0x0190, f02=» 5 P TS TTB:MT,A4 6 P ENB 6 P RTN A14 6 * PMOVZUS EQU * 6 : & P LDR A3,A3 CHECK REQUESTED LENGTH 6 N 4 P RF(NP) MVUS35 NO MOVE IF REQUESTED LENGTH <= 0 6 x P STR A5,A14 SAVE A5 6 ( P LDR A4,A1 CHECK USER BUFFER ADDRESS 6 P ANK A4,1 6 .
0x2b0f34…2b10c8 Dummy {f00=0x00bb, f01=0x0190, f02=»YSTEM BUFFER ADDRESS UNEVEN? 6 P* 7 $ , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 7 . P ANK A4,1 7 ^ , P RF(NZ) MVUS60 REQUESTED LENGTH UNEVEN? 7 p P* 7 PMVUS20 MVUS A3 7 P* 7 " PMVUS30 LDR* A5,A14 RESTORE A5 7 P* 7 PMVUS35 EQU * 7
0x2b10c8…2b125c Dummy {f00=0x00bb, f01=0x018e, f02=»A2 CHECK SYSTEM BUFFER ADDRESS 7 P ANK A4,1 8 & 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 8 8 4 P ELR A4,A1 NO, GET FIRST CHAR. FROM USER BUFFER 8 l P* 8 2 PMVUS50 SCR A4,A2 STORE CHAR. IN SYSTEM BUFFER 8 * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRE
0x2b125c…2b13f0 Dummy {f00=0x00bb, f01=0x0190, f02=» 8 f P* 9 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 9 P ECR A5,A4 9 N 0 P SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER 9 ` * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS 9 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 9 & P RB(P) MVUS50 MORE CHAR. T
0x2b13f0…2b1584 Dummy {f00=0x00bb, f01=0x0190, f02=»EVEN 9 l ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN : * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? : 8 P LDR A4,A1 NO, SAVE A1 : f P LDR A5,A3 SAVE A3 : P MVUS A3 : * P ADR A4,A5 UPDATE USER BUFFER ADDRESS : . P ELR A5,A4 GET LAST CHAR. FROM USER BUFFER :
0x2b1584…2b1718 Dummy {f00=0x00bb, f01=0x0190, f02=»LR A5,A1 GET LAST CHAR. FROM USER BUFFER : P RB MVUS65 ; 0 P* ; B 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN ; L 0 P ELR A4,A1 GET FIRST CHAR. FROM USER BUFFER ; 2 P SCR A4,A2 STORE FIRST CHAR. IN SYSTEM BUFFER ; & P ADK A1,1 UPDATE BUFFER ADDR
0x2b1718…2b18ac Dummy {f00=0x00bb, f01=0x0190, f02=»URN ; ~ P* < P EJECT DMSUBR < P* < . P* M O V : S U < 8 P* < N F P* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO < X J P* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA < J P* ARE USED, DEPENDING ON
0x2b18ac…2b1a40 Dummy {f00=0x00bb, f01=0x0190, f02=»A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) < . P* A3 = NUMBER OF BYTES TO BE MOVED = 4 $ P* A4 = USER TTAB ADDRESS = f P* = " P* OUTPUT: A1-A4 ARE DESTROYED = P* = PMOV:SU EQU * = P INH = P TL TTB:MT,A4 SET USER MMU =
0x2b1a40…2b1bd4 (5, 405) Dummy {f00=0x00bb, f01=0x0190, f02=» = P TS TTB:MT,A4 > P ENB > P RTN A14 > * PMOVZSU EQU * > : & P LDR A3,A3 CHECK REQUESTED LENGTH > N 4 P RF(NP) MVSU35 NO MOVE IF REQUESTED LENGTH <= 0 > x P STR A5,A14 SAVE A5 > ( P LDR A4,A2 CHECK USER BUFFER ADDRESS > P ANK A4,1 > .
0x2b1bd4…2b1d68 Dummy {f00=0x00bb, f01=0x0190, f02=»YSTEM BUFFER ADDRESS UNEVEN? > P* ? $ , PMVSU10 LDR A4,A3 CHECK REQUESTED LENGTH ? . P ANK A4,1 ? ^ , P RF(NZ) MVSU90 REQUESTED LENGTH UNEVEN? ? p P* ? PMVSU20 MVSU A3 ? P* ? " PMVSU30 LDR* A5,A14 RESTORE A5 ? P* ? PMVSU35 RTN A14
0x2b1d68…2b1efc Dummy {f00=0x00bb, f01=0x0190, f02=»M BUFFER ADDRESS ? z P ANK A4,1 @ 0 P RF(NZ) MVSU80 SYSTEM BUFFER ADDRESS UNEVEN? @ * 4 P ELR A4,A2 NO, GET FIRST CHAR. FROM USER BUFFER @ ^ P RF MVSU65 @ P* @ 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN @ 0 P LCR A4,A1 GET ONE CHAR. FROM SY
0x2b1efc…2b2090 Dummy {f00=0x00bb, f01=0x018e, f02=»MVSU70 IS THIS LAST CHARACTER? @ P* A & : PMVSU65 LCR A4,A1 NO, GET NEXT CHAR. FROM SYSTEM BUFFER A 0 . P ESR A4,A2 STORE TWO CHAR. IN USER BUFFER A n & P ADK A1,1 UPDATE BUFFER ADDRESSES A P ADK A2,2 A ( P SUK A3,1 DECREMENT REQUESTED LENGTH A & P
0x2b2090…2b2224 Dummy {f00=0x00bb, f01=0x0190, f02=» $ P ANK A3,/FF SKIP LEFT CHARACTER B ( P ANKL A4,/FF00 SKIP RIGHT CHARACTER B , P ORR A3,A4 B X . P ESR A3,A2 STORE LAST CHAR. IN USER BUFFER B j P RB MVSU30 RETURN B P* B P EJECT DMSUBR B P* B P* B 2 PMVSU80 EQU * BOTH BUFFER ADD
0x2b2224…2b23b8 Dummy {f00=0x00bb, f01=0x0190, f02=» A4,/FF SKIP LEFT CHARACTER B ( P ANKL A5,/FF00 SKIP RIGHT CHARACTER C $ P ORR A4,A5 C P 0 P ESR A4,A2 STORE FIRST CHAR. IN USER BUFFER C b & P ADK A1,1 UPDATE BUFFER ADDRESSES C P ADK A2,1 C ( P SUK A3,1 DECREMENT REQUESTED LENGTH C * P RB(P) MVS
0x2b23b8…2b254c Dummy {f00=0x00bb, f01=0x0190, f02=»KE REQUESTED LENGTH EVEN C * P RF(NP) MVSU95 ONLY ONE CHAR. TO MOVE? D P LDR A4,A1 NO, SAVE A1 D N P LDR A5,A3 SAVE A3 D l P MVSU A3 D & P ADR A4,A5 UPDATE BUFFER ADDRESSES D P ADR A2,A5 D 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER D P
0x2b254c…2b26e0 Dummy {f00=0x00bb, f01=0x40e4, f02=»PAG=0 D 2 PMOV:US EQU * DUMMY LABELS FOR NON-MMU SYSTEMS E PMOV:SU EQU * E D PMOVZSU EQU * E X PMOVZUS EQU * E l 0 P ABL TASHLT HALT SYSTEM DUE TO SYSGEN ERROR E P XIF E P* E P* E P END E @ E ST CHAR. FROM SYSTEM BUFFER D P
0x2b26e0…2b2874 (5, 406) Dummy {f00=0x00bb, f01=0x2008, f02=» F + 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* +
0x2b2874…2b2a08 Dummy {f00=0x00bb, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x2b2a08…2b2b9c Dummy {f00=0x00bb, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x2b2b9c…2b2d30 Dummy {f00=0x00bb, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x2b2d30…2b2ec4 Dummy {f00=0x00bb, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x2b2ec4…2b3058 Dummy {f00=0x00bb, f01=0x0190, f02=»AG EQU 1 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * PCPU852 EQU 0 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x2b3058…2b31ec Dummy {f00=0x00bb, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x2b31ec…2b3380 Dummy {f00=0x00bb, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x2b3380…2b3514 (5, 407) Opaque[0x194]
0x2b3514…2b36a8 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17b0, f03=0x0000}
0x2b3514…2b36a8 IdxSect {
0x2b3514…2b36a8 f00 = 0x00bd // 0x2b3514 @0x0
0x2b3514…2b36a8 f01 = 0x001e // 0x2b3516 @0x2
0x2b3514…2b36a8 gno = [ // 0x2b3518 @0x4
0x2b3514…2b36a8 [0x00]: C0x00bd.0x2.0
0x2b3514…2b36a8 [0x01]: C0x00bd.0x3.0
0x2b3514…2b36a8 [0x02]: C0x00be.0x0.0
0x2b3514…2b36a8 [0x03]: C0x00be.0x1.0
0x2b3514…2b36a8 [0x04]: C0x00be.0x2.0
0x2b3514…2b36a8 [0x05]: C0x00be.0x3.0
0x2b3514…2b36a8 [0x06]: C0x00bf.0x0.0
0x2b3514…2b36a8 [0x07]: C0x00bf.0x1.0
0x2b3514…2b36a8 [0x08]: C0x00bf.0x2.0
0x2b3514…2b36a8 [0x09]: C0x00bf.0x3.0
0x2b3514…2b36a8 [0x0a]: C0x00c0.0x0.0
0x2b3514…2b36a8 [0x0b]: C0x00c0.0x1.0
0x2b3514…2b36a8 [0x0c]: C0x00c0.0x3.0
0x2b3514…2b36a8 [0x0d]: C0x00c4.0x1.0
0x2b3514…2b36a8 [0x0e]: C0x00c4.0x2.0
0x2b3514…2b36a8 ]
0x2b3514…2b36a8 }
0x2b36a8…2b383c Dummy {f00=0x00bd, f01=0x0190, f02=» 2 P IDENT FMTASK REL 10.0 80-03-15 870105041000 P : * B * L 6 2************************************************** V * 6 2* PHILIPS TERMINAL SYSTEM PTS * * 6 2* FMTASK = TOSS FILE MANAGEMENT TASK
0x2b383c…2b39d0 Dummy {f00=0x00bd, f01=0x0190, f02=» TOSS FILE MANAGEMENT TASK CONTAINS THE . ** FOLLOWING FILE ADMINISTRATION MODULES: 0 * b * &* - FMOPEN OPEN/CREATE/EXTEND FILE l $ * - FMCLOS CLOSE/DELETE FILE ( #* - FMRDFP READ FILE PARAMETERS * ( P* A SPECIAL EN
0x2b39d0…2b3b64 Dummy {f00=0x00bd, f01=0x0190, f02=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * 4 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT > . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. r P* * EJECT FMTASK * * *********** * ENTRIES *
0x2b3b64…2b3cf8 Dummy {f00=0x00bd, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x2b3cf8…2b3e8c Dummy {f00=0x00bd, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x2b3e8c…2b4020 Dummy {f00=0x00bd, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x2b4020…2b41b4 (5, 408) Dummy {f00=0x00bd, f01=0x0190, f02=»F NUMBER OF INDEX FILES ( # ENTRY FPB:KA KEY ADDRESS IN RECORD P ENTRY FPB:CD CREATION DATE L " P ENTRY FPB:RP RETENTION PERIOD p EJECT FMTASK * * ************* * EXTERNALS * ************* *
0x2b41b4…2b4348 Dummy {f00=0x00bd, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x2b4348…2b44dc Dummy {f00=0x00bd, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x2b44dc…2b4670 Dummy {f00=0x00bd, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x2b4670…2b4804 Dummy {f00=0x00bd, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x2b4804…2b4998 Dummy {f00=0x00bd, f01=0x0190, f02=»AG EQU 1 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * PCPU852 EQU 0 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x2b4998…2b4b2c Dummy {f00=0x00bd, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x2b4b2c…2b4cc0 Dummy {f00=0x00bd, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x2b4cc0…2b4e54 (5, 409) Dummy {f00=0x00be, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x2b4e54…2b4fe8 Dummy {f00=0x00be, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x2b4fe8…2b517c Dummy {f00=0x00be, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x2b517c…2b5310 Dummy {f00=0x00be, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x2b5310…2b54a4 Dummy {f00=0x00be, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x2b54a4…2b5638 Dummy {f00=0x00be, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x2b5638…2b57cc Dummy {f00=0x00be, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x2b57cc…2b5960 Dummy {f00=0x00be, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x2b5960…2b5af4 (5, 410) Dummy {f00=0x00be, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x2b5af4…2b5c88 Dummy {f00=0x00be, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x2b5c88…2b5e1c Dummy {f00=0x00be, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x2b5e1c…2b5fb0 Dummy {f00=0x00be, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x2b5fb0…2b6144 Dummy {f00=0x00be, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x2b6144…2b62d8 Dummy {f00=0x00be, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x2b62d8…2b646c Dummy {f00=0x00be, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x2b646c…2b6600 Dummy {f00=0x00be, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x2b6600…2b6794 (5, 411) Dummy {f00=0x00be, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x2b6794…2b6928 Dummy {f00=0x00be, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x2b6928…2b6abc Dummy {f00=0x00be, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x2b6abc…2b6c50 Dummy {f00=0x00be, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x2b6c50…2b6de4 Dummy {f00=0x00be, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x2b6de4…2b6f78 Dummy {f00=0x00be, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x2b6f78…2b710c Dummy {f00=0x00be, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x2b710c…2b72a0 Dummy {f00=0x00be, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x2b72a0…2b7434 (5, 412) Dummy {f00=0x00be, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x2b7434…2b75c8 Dummy {f00=0x00be, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x2b75c8…2b775c Dummy {f00=0x00be, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x2b775c…2b78f0 Dummy {f00=0x00be, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x2b78f0…2b7a84 Dummy {f00=0x00be, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x2b7a84…2b7c18 Dummy {f00=0x00be, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x2b7c18…2b7dac Dummy {f00=0x00be, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x2b7dac…2b7f40 Dummy {f00=0x00be, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x2b7f40…2b80d4 (5, 413) Dummy {f00=0x00bf, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x2b80d4…2b8268 Dummy {f00=0x00bf, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x2b8268…2b83fc Dummy {f00=0x00bf, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x2b83fc…2b8590 Dummy {f00=0x00bf, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x2b8590…2b8724 Dummy {f00=0x00bf, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x2b8724…2b88b8 Dummy {f00=0x00bf, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x2b88b8…2b8a4c Dummy {f00=0x00bf, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x2b8a4c…2b8be0 Dummy {f00=0x00bf, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x2b8be0…2b8d74 (5, 414) Dummy {f00=0x00bf, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x2b8d74…2b8f08 Dummy {f00=0x00bf, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x2b8f08…2b909c Dummy {f00=0x00bf, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x2b909c…2b9230 Dummy {f00=0x00bf, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x2b9230…2b93c4 Dummy {f00=0x00bf, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x2b93c4…2b9558 Dummy {f00=0x00bf, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x2b9558…2b96ec Dummy {f00=0x00bf, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x2b96ec…2b9880 Dummy {f00=0x00bf, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x2b9880…2b9a14 (5, 415) Dummy {f00=0x00bf, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x2b9a14…2b9ba8 Dummy {f00=0x00bf, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x2b9ba8…2b9d3c Dummy {f00=0x00bf, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x2b9d3c…2b9ed0 Dummy {f00=0x00bf, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x2b9ed0…2ba064 Dummy {f00=0x00bf, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x2ba064…2ba1f8 Dummy {f00=0x00bf, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x2ba1f8…2ba38c Dummy {f00=0x00bf, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x2ba38c…2ba520 Dummy {f00=0x00bf, 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
0x2ba520…2ba6b4 (5, 416) Dummy {f00=0x00bf, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x2ba6b4…2ba848 Dummy {f00=0x00bf, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x2ba848…2ba9dc Dummy {f00=0x00bf, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x2ba9dc…2bab70 Dummy {f00=0x00bf, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x2bab70…2bad04 Dummy {f00=0x00bf, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x2bad04…2bae98 Dummy {f00=0x00bf, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x2bae98…2bb02c Dummy {f00=0x00bf, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x2bb02c…2bb1c0 Dummy {f00=0x00bf, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x2bb1c0…2bb354 (5, 417) Dummy {f00=0x00c0, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x2bb354…2bb4e8 Dummy {f00=0x00c0, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x2bb4e8…2bb67c Dummy {f00=0x00c0, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x2bb67c…2bb810 Dummy {f00=0x00c0, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x2bb810…2bb9a4 Dummy {f00=0x00c0, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x2bb9a4…2bbb38 Dummy {f00=0x00c0, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x2bbb38…2bbccc Dummy {f00=0x00c0, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x2bbccc…2bbe60 Dummy {f00=0x00c0, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x2bbe60…2bbff4 (5, 418) Dummy {f00=0x00c0, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x2bbff4…2bc188 Dummy {f00=0x00c0, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x2bc188…2bc31c Dummy {f00=0x00c0, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x2bc31c…2bc4b0 Dummy {f00=0x00c0, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x2bc4b0…2bc644 Dummy {f00=0x00c0, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x2bc644…2bc7d8 Dummy {f00=0x00c0, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x2bc7d8…2bc96c Dummy {f00=0x00c0, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x2bc96c…2bcb00 Dummy {f00=0x00c0, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x2bcb00…2bcc94 (5, 419) Dummy {f00=0x00c0, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x2bcc94…2bce28 Dummy {f00=0x00c0, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x2bce28…2bcfbc Dummy {f00=0x00c0, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x2bcfbc…2bd150 Dummy {f00=0x00c0, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x2bd150…2bd2e4 Dummy {f00=0x00c0, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x2bd2e4…2bd478 Dummy {f00=0x00c0, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x2bd478…2bd60c Dummy {f00=0x00c0, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x2bd60c…2bd7a0 Dummy {f00=0x00c0, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x2bd7a0…2bd934 (5, 420) Dummy {f00=0x00c4, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x2bd934…2bdac8 Dummy {f00=0x00c4, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x2bdac8…2bdc5c Dummy {f00=0x00c4, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x2bdc5c…2bddf0 Dummy {f00=0x00c4, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x2bddf0…2bdf84 Dummy {f00=0x00c4, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x2bdf84…2be118 Dummy {f00=0x00c4, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x2be118…2be2ac Dummy {f00=0x00c4, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x2be2ac…2be440 Dummy {f00=0x00c4, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x2be440…2be5d4 (5, 421) Dummy {f00=0x00c4, f01=0x0190, f02=» P* n EJECT FMTASK n * n & * n 0 ********** n : * FMRDWR * n L ********** n ^ * n p P* n z $ * FILE MANAGEMENT I/O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x2be5d4…2be768 Dummy {f00=0x00c4, f01=0x4098, f02=»SION n l XIF o * o IFT XTSPLI=1 o " " ABL LKMERR TO BE IMPLEMENTED o 8 XIF o ^ * o j * o t * o ~ END o @ o O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x2be768…2be8fc Dummy {f00=0x00c4, f01=0x2008, f02=» p FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x2be8fc…2bea90 Dummy {f00=0x00c4, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2bea90…2bec24 Dummy {f00=0x00c4, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2bec24…2bedb8 Dummy {f00=0x00c4, 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
0x2bedb8…2bef4c Dummy {f00=0x00c4, f01=0x0190, f02=» $ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X D
0x2bef4c…2bf0e0 Dummy {f00=0x00c4, f01=0x0190, f02=» $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M X D D P ( ) 1_f _& ?(@
0x2bf0e0…2bf274 (5, 422) Opaque[0x194]
0x2bf274…2bf408 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fb8, f03=0x0000}
0x2bf274…2bf408 IdxSect {
0x2bf274…2bf408 f00 = 0x007d // 0x2bf274 @0x0
0x2bf274…2bf408 f01 = 0x0002 // 0x2bf276 @0x2
0x2bf274…2bf408 gno = [ // 0x2bf278 @0x4
0x2bf274…2bf408 [0x00]: C0x007d.0x3.0
0x2bf274…2bf408 ]
0x2bf274…2bf408 }
0x2bf408…2bf59c Dummy {f00=0x007d, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 1 P*
0x2bf59c…2bf730 Dummy {f00=0x007d, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x2bf730…2bf8c4 Dummy {f00=0x007d, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FF0F BACKSPACE AND CANCEL $ P DATA /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x2bf8c4…2bfa58 Dummy {f00=0x007d, f01=0x4102, f02=»A 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * 0 P DATA 0,0,0,0,0,0 D P DATA 0,0,0,0,0,0,0,0 ^ P DATA 0,0,0,0,0,0,0,0 | P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ T PLAC
0x2bfa58…2bfbec Dummy {f00=0x007d, 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
0x2bfbec…2bfd80 Dummy {f00=0x007d, f01=0x2008, f02=»
0x2bfd80…2bff14 (5, 423) Opaque[0x194]
0x2bff14…2c00a8 # DirEnt {nam=»DVDI00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x2bff14…2c00a8 IdxSect {
0x2bff14…2c00a8 f00 = 0x007f // 0x2bff14 @0x0
0x2bff14…2c00a8 f01 = 0x0002 // 0x2bff16 @0x2
0x2bff14…2c00a8 gno = [ // 0x2bff18 @0x4
0x2bff14…2c00a8 [0x00]: C0x007f.0x0.0
0x2bff14…2c00a8 ]
0x2bff14…2c00a8 }
0x2c00a8…2c023c Dummy {f00=0x007f, f01=0x0190, f02=» 2 P IDENT DVDI00 REL 10.0 80-03-14 870105041000 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI00 DISPLAY INDICATOR 03 P* P*
0x2c023c…2c03d0 Dummy {f00=0x007f, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI00 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2c03d0…2c0564 Dummy {f00=0x007f, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x2c0564…2c06f8 Dummy {f00=0x007f, 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
0x2c06f8…2c088c Dummy {f00=0x007f, f01=0x0190, f02=» 60 P DATA ILLINT 61 P DATA ILLINT 62 ( P DATA TRAP TRAP ROUTINE D P EJECT SYSTAB d P | P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP P*
0x2c088c…2c0a20 Dummy {f00=0x007f, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x2c0a20…2c0bb4 (5, 424) Opaque[0x194]
0x2c0bb4…2c0d48 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1240, f03=0x0000}
0x2c0bb4…2c0d48 IdxSect {
0x2c0bb4…2c0d48 f00 = 0x0092 // 0x2c0bb4 @0x0
0x2c0bb4…2c0d48 f01 = 0x0002 // 0x2c0bb6 @0x2
0x2c0bb4…2c0d48 gno = [ // 0x2c0bb8 @0x4
0x2c0bb4…2c0d48 [0x00]: C0x0092.0x0.0
0x2c0bb4…2c0d48 ]
0x2c0bb4…2c0d48 }
0x2c0d48…2c0edc Dummy {f00=0x0092, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY00 EQU * T
0x2c0edc…2c1070 Dummy {f00=0x0092, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c1070…2c1204 Dummy {f00=0x0092, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c1204…2c1398 Dummy {f00=0x0092, 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
0x2c1398…2c152c Dummy {f00=0x0092, f01=0x0190, f02=» P* $ P* $ ( PSTORE LD A4,2,A8 GET BUFFER ADDRESS $ $ P ADR A4,A3 GET CHARACTER ADDRESS $ D P SCR A2,A4 STORE CHARACTER $ l $ P ADK A3,1 INCREMENT BUFFER INDEX $ P RTN A5 $ P* $ P* $ P* $ P IFT TIMOUT=1 $ P* $ P* $
0x2c152c…2c16c0 Dummy {f00=0x0092, f01=0x0190, f02=»DE $ r P XIF % P* % P* % P EJECT % * P* % 8 P* % B P* L D R E G E % L P* % d 8 P* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 % n P* % P* % PLDREGE EQU * % & P LD A3,DWTA3,A6 RELOAD REGISTER A3 % & P LD A4,DWTA4
0x2c16c0…2c1854 (5, 425) Opaque[0x194]
0x2c1854…2c19e8 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x2c1854…2c19e8 IdxSect {
0x2c1854…2c19e8 f00 = 0x00b4 // 0x2c1854 @0x0
0x2c1854…2c19e8 f01 = 0x0002 // 0x2c1856 @0x2
0x2c1854…2c19e8 gno = [ // 0x2c1858 @0x4
0x2c1854…2c19e8 [0x00]: C0x00b4.0x1.0
0x2c1854…2c19e8 ]
0x2c1854…2c19e8 }
0x2c19e8…2c1b7c Dummy {f00=0x00b4, 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 1 P*
0x2c1b7c…2c1d10 Dummy {f00=0x00b4, 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
0x2c1d10…2c1ea4 Dummy {f00=0x00b4, 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
0x2c1ea4…2c2038 Dummy {f00=0x00b4, f01=0x4102, f02=»A 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * 0 P DATA 0,0,0,0,0,0 D P DATA 0,0,0,0,0,0,0,0 ^ P DATA 0,0,0,0,0,0,0,0 | P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ T PLAC
0x2c2038…2c21cc Dummy {f00=0x00b4, 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
0x2c21cc…2c2360 Dummy {f00=0x00b4, f01=0x2008, f02=»
0x2c2360…2c24f4 (5, 426) Opaque[0x194]
0x2c24f4…2c2688 # DirEnt {nam=»DVDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1698, f03=0x0000}
0x2c24f4…2c2688 IdxSect {
0x2c24f4…2c2688 f00 = 0x00b4 // 0x2c24f4 @0x0
0x2c24f4…2c2688 f01 = 0x0002 // 0x2c24f6 @0x2
0x2c24f4…2c2688 gno = [ // 0x2c24f8 @0x4
0x2c24f4…2c2688 [0x00]: C0x00b4.0x3.0
0x2c24f4…2c2688 ]
0x2c24f4…2c2688 }
0x2c2688…2c281c Dummy {f00=0x00b4, f01=0x0190, f02=» 2 P IDENT DVDI01 REL 10.0 80-03-14 870105041000 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI01 DISPLAY INDICATOR 03 P* P*
0x2c281c…2c29b0 Dummy {f00=0x00b4, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI01 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2c29b0…2c2b44 Dummy {f00=0x00b4, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x2c2b44…2c2cd8 Dummy {f00=0x00b4, 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
0x2c2cd8…2c2e6c Dummy {f00=0x00b4, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x2c2e6c…2c3000 Dummy {f00=0x00b4, 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
0x2c3000…2c3194 (5, 427) Opaque[0x194]
0x2c3194…2c3328 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1778, f03=0x0000}
0x2c3194…2c3328 IdxSect {
0x2c3194…2c3328 f00 = 0x00bb // 0x2c3194 @0x0
0x2c3194…2c3328 f01 = 0x0002 // 0x2c3196 @0x2
0x2c3194…2c3328 gno = [ // 0x2c3198 @0x4
0x2c3194…2c3328 [0x00]: C0x00bb.0x3.0
0x2c3194…2c3328 ]
0x2c3194…2c3328 }
0x2c3328…2c34bc Dummy {f00=0x00bb, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY01 EQU * T
0x2c34bc…2c3650 Dummy {f00=0x00bb, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c3650…2c37e4 Dummy {f00=0x00bb, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /0128 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c37e4…2c3978 Dummy {f00=0x00bb, 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
0x2c3978…2c3b0c Dummy {f00=0x00bb, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x2c3b0c…2c3ca0 Dummy {f00=0x00bb, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x2c3ca0…2c3e34 (5, 428) Opaque[0x194]
0x2c3e34…2c3fc8 # DirEnt {nam=»DVKB02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1798, f03=0x0000}
0x2c3e34…2c3fc8 IdxSect {
0x2c3e34…2c3fc8 f00 = 0x00bc // 0x2c3e34 @0x0
0x2c3e34…2c3fc8 f01 = 0x0002 // 0x2c3e36 @0x2
0x2c3e34…2c3fc8 gno = [ // 0x2c3e38 @0x4
0x2c3e34…2c3fc8 [0x00]: C0x00bc.0x3.0
0x2c3e34…2c3fc8 ]
0x2c3e34…2c3fc8 }
0x2c3fc8…2c415c Dummy {f00=0x00bc, f01=0x0190, f02=» 2 P IDENT DVKB02 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB02 TABLE ENTRY r P EXTRN CTAB03 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY02 PMMUPAG EQU 1 P*
0x2c415c…2c42f0 Dummy {f00=0x00bc, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB02 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x2c42f0…2c4484 Dummy {f00=0x00bc, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY02 DVDY02O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB02 POINTER TO FIRST PLAC
0x2c4484…2c4618 Dummy {f00=0x00bc, f01=0x4102, f02=»A 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * 0 P DATA 0,0,0,0,0,0 D P DATA 0,0,0,0,0,0,0,0 ^ P DATA 0,0,0,0,0,0,0,0 | P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ T PLAC
0x2c4618…2c47ac Dummy {f00=0x00bc, 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
0x2c47ac…2c4940 Dummy {f00=0x00bc, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x2c4940…2c4ad4 (5, 429) Opaque[0x194]
0x2c4ad4…2c4c68 # DirEnt {nam=»DVDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17a8, f03=0x0000}
0x2c4ad4…2c4c68 IdxSect {
0x2c4ad4…2c4c68 f00 = 0x00bd // 0x2c4ad4 @0x0
0x2c4ad4…2c4c68 f01 = 0x0002 // 0x2c4ad6 @0x2
0x2c4ad4…2c4c68 gno = [ // 0x2c4ad8 @0x4
0x2c4ad4…2c4c68 [0x00]: C0x00bd.0x1.0
0x2c4ad4…2c4c68 ]
0x2c4ad4…2c4c68 }
0x2c4c68…2c4dfc Dummy {f00=0x00bd, f01=0x0190, f02=» 2 P IDENT DVDI02 REL 10.0 80-03-14 870105041000 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI02 DISPLAY INDICATOR 03 P* P*
0x2c4dfc…2c4f90 Dummy {f00=0x00bd, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI02 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2c4f90…2c5124 Dummy {f00=0x00bd, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x2c5124…2c52b8 Dummy {f00=0x00bd, 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
0x2c52b8…2c544c Dummy {f00=0x00bd, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l
0x2c544c…2c55e0 Dummy {f00=0x00bd, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R LPOP 0XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP !> A n : @ j! P P !> A n
0x2c55e0…2c5774 (5, 430) Opaque[0x194]
0x2c5774…2c5908 # DirEnt {nam=»DVDY02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18a0, f03=0x0000}
0x2c5774…2c5908 IdxSect {
0x2c5774…2c5908 f00 = 0x00c5 // 0x2c5774 @0x0
0x2c5774…2c5908 f01 = 0x0002 // 0x2c5776 @0x2
0x2c5774…2c5908 gno = [ // 0x2c5778 @0x4
0x2c5774…2c5908 [0x00]: C0x00c5.0x0.0
0x2c5774…2c5908 ]
0x2c5774…2c5908 }
0x2c5908…2c5a9c Dummy {f00=0x00c5, f01=0x0190, f02=» 2 P IDENT DVDY02 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY02 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY02 EQU * T
0x2c5a9c…2c5c30 Dummy {f00=0x00c5, f01=0x0190, f02=» DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c5c30…2c5dc4 Dummy {f00=0x00c5, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /0628 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c5dc4…2c5f58 Dummy {f00=0x00c5, 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
0x2c5f58…2c60ec Dummy {f00=0x00c5, f01=0x0190, f02=»#2 P0 P X _ X " '$ !#2 !#2 X & ( (B )j *D* ! P B 8# T $ # ;D !99P 7Pj PZ " Y X T @) Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y W Y Y W Y Y X Y 8# TJWj # P <d R
0x2c60ec…2c6280 Dummy {f00=0x00c5, f01=0x0190, f02=»/ . . . - !#2 8! P !#2 P P , & , " B P B H " +P P. T Y ' !#2 R X ( Y &R Y & _ Y &_. 8$ T B 1 /, !#2 - B B U4 $ ! T _ U D ! T _ $$ X" X& X* C # - X`
0x2c6280…2c6414 (5, 431) Opaque[0x194]
0x2c6414…2c65a8 # DirEnt {nam=»DVT103«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18d0, f03=0x0000}
0x2c6414…2c65a8 IdxSect {
0x2c6414…2c65a8 f00 = 0x00c6 // 0x2c6414 @0x0
0x2c6414…2c65a8 f01 = 0x0002 // 0x2c6416 @0x2
0x2c6414…2c65a8 gno = [ // 0x2c6418 @0x4
0x2c6414…2c65a8 [0x00]: C0x00c6.0x2.0
0x2c6414…2c65a8 ]
0x2c6414…2c65a8 }
0x2c65a8…2c673c Dummy {f00=0x00c6, f01=0x0190, f02=» 2 P IDENT DVT103 REL 10.0 80-03-14 870105041000 P : 4 P* DEVICE WORK TABLE FOR TELLER TERMINAL PRINTER B P* z P ENTRY DVT103 TABLE ENTRY P* P* * P EXTRN TPAD3 POINTER TO ADDRESS-BLOCK $ PMMUPAG EQU 1 MEM. MAN.UNIT COND.
0x2c673c…2c68d0 Dummy {f00=0x00c6, f01=0x018e, f02=» P DATA 0 ECB ADDRESS P DATA DWTEND-DVT103 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
0x2c68d0…2c6a64 Dummy {f00=0x00c6, f01=0x0190, f02=» f P DATA 0,0,0,0 STACK P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x2c6a64…2c6bf8 Dummy {f00=0x00c6, f01=0x401e, f02=» P* P END @ P DATA 0 TIMER POINTER $ P DATA 0 PRINTER PARAMETERS B 0 P DATA 0 REQUESTED, ACTUAL PRINT POS JOURNAL d 0 P DATA 0 REQUESTED, ACTUAL PRINT POS DOCUMENT * P DATA 0 REQUESTED, ACTUAL LINE NUMBER ( P DATA 0,0,0,0,
0x2c6bf8…2c6d8c Dummy {f00=0x00c6, 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
0x2c6d8c…2c6f20 Dummy {f00=0x00c6, f01=0x0190, f02=» o o p@ n = G $ n* V W $ nX V E J K _X V r V :B A V 9n A @ A A V V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW
0x2c6f20…2c70b4 (5, 432) Opaque[0x194]
0x2c70b4…2c7248 # DirEnt {nam=»DVKB04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18c0, f03=0x0000}
0x2c70b4…2c7248 IdxSect {
0x2c70b4…2c7248 f00 = 0x00c6 // 0x2c70b4 @0x0
0x2c70b4…2c7248 f01 = 0x0002 // 0x2c70b6 @0x2
0x2c70b4…2c7248 gno = [ // 0x2c70b8 @0x4
0x2c70b4…2c7248 [0x00]: C0x00c6.0x0.0
0x2c70b4…2c7248 ]
0x2c70b4…2c7248 }
0x2c7248…2c73dc Dummy {f00=0x00c6, f01=0x0190, f02=» 2 P IDENT DVKB04 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB04 TABLE ENTRY r P EXTRN CTAB05 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY04 PMMUPAG EQU 1 P*
0x2c73dc…2c7570 Dummy {f00=0x00c6, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB04 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
0x2c7570…2c7704 Dummy {f00=0x00c6, 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 DVDY04 DVDY04O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /BBBA EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB04 POINTER TO FIRST PLAC
0x2c7704…2c7898 Dummy {f00=0x00c6, f01=0x4102, f02=»A 0,0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * 0 P DATA 0,0,0,0,0,0 D P DATA 0,0,0,0,0,0,0,0 ^ P DATA 0,0,0,0,0,0,0,0 | P DATA 0,0,0,0,0,0,0,0 P DATA 0 P XIF PDWTEND EQU * P* P END @ T PLAC
0x2c7898…2c7a2c Dummy {f00=0x00c6, 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
0x2c7a2c…2c7bc0 Dummy {f00=0x00c6, f01=0x0190, f02=» W 4 4 , , , : , )Q R V _ W W : T. ; [ V ( X Td E @Wl D @V ; [ _ D ^V D B E @WR ; [ D > D ` S W E < E > W E4 _| P E4 [ Z : : D P ; YB Z
0x2c7bc0…2c7d54 (5, 433) Opaque[0x194]
0x2c7d54…2c7ee8 # DirEnt {nam=»DVGP04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x18e0, f03=0x0000}
0x2c7d54…2c7ee8 IdxSect {
0x2c7d54…2c7ee8 f00 = 0x00c7 // 0x2c7d54 @0x0
0x2c7d54…2c7ee8 f01 = 0x0002 // 0x2c7d56 @0x2
0x2c7d54…2c7ee8 gno = [ // 0x2c7d58 @0x4
0x2c7d54…2c7ee8 [0x00]: C0x00c7.0x0.0
0x2c7d54…2c7ee8 ]
0x2c7d54…2c7ee8 }
0x2c7ee8…2c807c Dummy {f00=0x00c7, f01=0x018e, f02=» 2 P IDENT DVGP04 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP04 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVGP04 EQU *
0x2c807c…2c8210 Dummy {f00=0x00c7, f01=0x0190, f02=» P DATA DWTEND-DVGP04 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x2c8210…2c83a4 Dummy {f00=0x00c7, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x2c83a4…2c8538 Dummy {f00=0x00c7, 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
0x2c8538…2c86cc Dummy {f00=0x00c7, f01=0x0190, f02=» $ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X D
0x2c86cc…2c8860 Dummy {f00=0x00c7, f01=0x0190, f02=» $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M X D D P ( ) 1_f _& ?(@
0x2c8860…2c89f4 (5, 434) Opaque[0x194]
0x2c89f4…2c8b88 # DirEnt {nam=»DVDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1900, f03=0x0000}
0x2c89f4…2c8b88 IdxSect {
0x2c89f4…2c8b88 f00 = 0x00c8 // 0x2c89f4 @0x0
0x2c89f4…2c8b88 f01 = 0x0002 // 0x2c89f6 @0x2
0x2c89f4…2c8b88 gno = [ // 0x2c89f8 @0x4
0x2c89f4…2c8b88 [0x00]: C0x00c8.0x0.0
0x2c89f4…2c8b88 ]
0x2c89f4…2c8b88 }
0x2c8b88…2c8d1c Dummy {f00=0x00c8, f01=0x0190, f02=» 2 P IDENT DVDI04 REL 10.0 80-03-14 870105041000 P : P =1,HANG UP AT /03 OUTPUT B P REL 9.1 79-05-23 f P* . P* DEVICE WORK TABLE FOR DISPLAY INDICATOR P* P* & P ENTRY DVDI04 DISPLAY INDICATOR 03 P* P*
0x2c8d1c…2c8eb0 Dummy {f00=0x00c8, f01=0x0190, f02=»RAMETER z 0 P DATA /8000 STATUS. /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS D P DATA DWTEND-DVDI04 ORDER ` ( P DATA DIAD POINTER TO ADDRESS-BLOCK 6 P DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS $ P DATA 0 ECB QUEUE ANCHOR ADDRESS
0x2c8eb0…2c9044 Dummy {f00=0x00c8, f01=0x4162, f02=»UEUE P DATA /0000 P DATA /3F4F,/5F6F * P DATA 0 SAVE AREA FOR FLASHING LIGHTS : P DATA 0 TIMER POINTER h P DATA 0 DUMMY WORD =1 P DATA 0 DUMMY WORD =1 " P DATA 0 DUMMY TIMER POINTER =1 P IFT MMUPAG=1 PDEVECB DAT
0x2c9044…2c91d8 Dummy {f00=0x00c8, 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
0x2c91d8…2c936c Dummy {f00=0x00c8, f01=0x0190, f02=»#2 P0 P X _ X " '$ !#2 !#2 X & ( (B )j *D* ! P B 8# T $ # ;D !99P 7Pj PZ " Y X T @) Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y W Y Y W Y Y X Y 8# TJWj # P <d R
0x2c936c…2c9500 Dummy {f00=0x00c8, f01=0x0190, f02=»/ . . . - !#2 8! P !#2 P P , & , " B P B H " +P P. T Y ' !#2 R X ( Y &R Y & _ Y &_. 8$ T B 1 /, !#2 - B B U4 $ ! T _ U D ! T _ $$ X" X& X* C # - X`
0x2c9500…2c9694 (5, 435) Opaque[0x194]
0x2c9694…2c9828 # DirEnt {nam=»DVDY04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2108, f03=0x0000}
0x2c9694…2c9828 IdxSect {
0x2c9694…2c9828 f00 = 0x0108 // 0x2c9694 @0x0
0x2c9694…2c9828 f01 = 0x0002 // 0x2c9696 @0x2
0x2c9694…2c9828 gno = [ // 0x2c9698 @0x4
0x2c9694…2c9828 [0x00]: C0x0108.0x1.0
0x2c9694…2c9828 ]
0x2c9694…2c9828 }
0x2c9828…2c99bc Dummy {f00=0x0108, f01=0x0190, f02=» 2 P IDENT DVDY04 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY04 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 1 P* PDVDY04 EQU * T
0x2c99bc…2c9b50 Dummy {f00=0x0108, f01=0x0190, f02=» DATA DWTEND-DVDY04 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c9b50…2c9ce4 Dummy {f00=0x0108, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c9ce4…2c9e78 Dummy {f00=0x0108, 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
0x2c9e78…2ca00c Dummy {f00=0x0108, f01=0x0190, f02=» C C _ X "" 8d Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y 9 X X T 9 X Q T P P S W W <j 9 B B $
0x2ca00c…2ca1a0 Dummy {f00=0x0108, f01=0x0190, f02=» T R "" E X R " W X # Xr X F# T _ _ X # <l Y T ?h H H ?j W @ Y T 9 X I X I H B I p Y B N p B U
0x2ca1a0…2ca334 (5, 436) Opaque[0x194]
0x2ca334…2ca4c8 # DirEnt {nam=»M:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0690, f03=0x0000}
0x2ca334…2ca4c8 IdxSect {
0x2ca334…2ca4c8 f00 = 0x0034 // 0x2ca334 @0x0
0x2ca334…2ca4c8 f01 = 0x001a // 0x2ca336 @0x2
0x2ca334…2ca4c8 gno = [ // 0x2ca338 @0x4
0x2ca334…2ca4c8 [0x00]: C0x0034.0x2.0
0x2ca334…2ca4c8 [0x01]: C0x0034.0x3.0
0x2ca334…2ca4c8 [0x02]: C0x0035.0x0.0
0x2ca334…2ca4c8 [0x03]: C0x0035.0x1.0
0x2ca334…2ca4c8 [0x04]: C0x0035.0x2.0
0x2ca334…2ca4c8 [0x05]: C0x0035.0x3.0
0x2ca334…2ca4c8 [0x06]: C0x0036.0x0.0
0x2ca334…2ca4c8 [0x07]: C0x0036.0x1.0
0x2ca334…2ca4c8 [0x08]: C0x0053.0x3.0
0x2ca334…2ca4c8 [0x09]: C0x0054.0x0.0
0x2ca334…2ca4c8 [0x0a]: C0x0083.0x0.0
0x2ca334…2ca4c8 [0x0b]: C0x0083.0x2.0
0x2ca334…2ca4c8 [0x0c]: C0x0103.0x2.0
0x2ca334…2ca4c8 ]
0x2ca334…2ca4c8 }
0x2ca4c8…2ca65c Dummy {f00=0x0034, f01=0x0190, f02=»`H c L L L L 8 L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L R c @ v z ^ r h V H 2 Z f9 z
0x2ca65c…2ca7f0 Dummy {f00=0x0034, f01=0x0190, f02=» 4c : @Y/ pJ @ d _ 2Z $"z y ?H T+ V y J t Dh i VR 1H W ] [ ? d % L X! "~ T &b Cn 1 d _ A H " $ _ @$ > > U # T @ H ( ( P c P W6 d A$ $ V ( U P @ V L
0x2ca7f0…2ca984 Dummy {f00=0x0034, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 $ Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $ $P T I R $ 5 % > ? W ? W ? T
0x2ca984…2cab18 Dummy {f00=0x0034, f01=0x0190, f02=» @# T R 0 A# 1 Q Q > > 0 @# 1 A# P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @# V ? # > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x2cab18…2cacac Dummy {f00=0x0034, f01=0x0190, f02=» " P PR 4 5 T P ? X U X & > PZ PF P P 0 X T Y Wn U U T X^ T E % Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P " > % Z X "X 8' T 8Z" X ' X
0x2cacac…2cae40 Dummy {f00=0x0034, f01=0x0190, f02=» >B @ P A & P | B j U P R U % ! ! W ! Q ! B Z P C ! j B P $$ R % C ! _, Y *X Y (P. Y )P( $ P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! P: B L # +P Y ,
0x2cae40…2cafd4 (5, 437) Dummy {f00=0x0034, f01=0x0190, f02=» X ]T ! Y h Y _p ? ( X R X X ' " P ! X , _V % A H ? ( X RJ 8 J P X ' Q 8 J " W C U X Y , Y B 9a C % 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y
0x2cafd4…2cb168 Dummy {f00=0x0034, f01=0x0190, f02=» > _^ z P B U P R U ! ! W ! Q ! B Z P C ! B P $$ R % X $ 9 ! ! TL 9 ! X $ Y # X Y $ 9 X L Y ! XL &R f % % $ B X ; Z
0x2cb168…2cb2fc Dummy {f00=0x0034, f01=0x0190, f02=» Y d Y f ) Y h X !? PN P PF P ! X hP _ X 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
0x2cb2fc…2cb490 Dummy {f00=0x0034, f01=0x0190, f02=» y L_* L & R _: Y L " Y F Y L Y ! ! # P # W ! 9 ! X ^< Y Y F Y X N P Y : ! ! X # P Y N:A , Y Y J X $ Y C '? X " Y _ A H ? ^(@ X P X R K P0 @ T X TT $C Y
0x2cb490…2cb624 Dummy {f00=0x0034, f01=0x0190, f02=» X Z9C X ^: X V X X 4 ! # T X FT $d 4 A ;D A 4 Y ! P @ 9W ! X P Y ! X P X _ X p ^ P P ! # T X Y ! _ # 4 ! # & X Y _0 W Y Y Y
0x2cb624…2cb7b8 Dummy {f00=0x0034, f01=0x0190, f02=» y _* _: Y Y Y L Y ! ! # P W ! 9 ! X ^< Y Y Y X P Y : ! ! X # P Y :A , Y Y X Y C '? X Y _ A H ? (@ X X K P @ T X T $C Y
0x2cb7b8…2cb94c Dummy {f00=0x0034, f01=0x0190, f02=» * p p ` $ ( , 0 4 8 < ( H b 0 ) $P $ ) U @ T C @ W t 0P P > T C T" V$ Y b Pp q 0 ) Wb X
0x2cb94c…2cbae0 Dummy {f00=0x0034, f01=0x0190, f02=» 8W T 8P Y ^ 5 ) P U % r XT ! X ! X P X T _l Xf Y @ P. R T& X &P P H T _ X I Y T # C C W4 O " # X Y ) C C x # P Y
0x2cbae0…2cbc74 (5, 438) Dummy {f00=0x0035, f01=0x0190, f02=» > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ P0 B P* 0$ T # R QL > X B U( H Q2 X D B
0x2cbc74…2cbe08 Dummy {f00=0x0035, f01=0x0190, f02=» Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ p ^ > > ? _ X T (@ X L U L Q4 M X D D P ( ) 1_f _& ?(@ X P
0x2cbe08…2cbf9c Dummy {f00=0x0035, f01=0x0190, f02=» zP (@ ^ X P8 P0 # P T P 0P 1 _ W Y > > T $ % d $ _ $ ? ^ 4 _ d d @ 1 A _ P 9 > > T R L U R9C _
0x2cbf9c…2cc130 Dummy {f00=0x0035, f01=0x0190, f02=»;N $" P E ` :(@ $ : ' P W @ D P _ Z U % R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X @ X F d : $ ( H > D JW 0P Q
0x2cc130…2cc2c4 Dummy {f00=0x0035, f01=0x0190, f02=» 0 5 @# 1 A# ZB : D LW (P D E I W6 @QZT R ( AQZ U 1_ D E I D L ) E L(@ : T D _NSB P W D U0 T ` _( S W U < U > P T B _ W U @ : . D < C D > C B P. T G W B I X
0x2cc2c4…2cc458 Dummy {f00=0x0035, f01=0x0190, f02=»(@ @ @$ Q (@ : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J P @$ Q (@ @ @$ Q (@ : U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR_L
0x2cc458…2cc5ec Dummy {f00=0x0035, f01=0x0190, f02=» 5 @ 1 A ZB : D W (P D I W @ T R ( A U 1_ D I D > A @ @ ; b @ R*P % % @ I I I I _> @ P $ #D9 V 1 Y $ ,P :A $ A$ >W B I X
0x2cc5ec…2cc780 Dummy {f00=0x0035, f01=0x0190, f02=» n Px ' ! ! " A ( " P< #@ P& 8! P6 K @P X T X !? ? t W W @W "@ ! & # W A ( " X* " X2 " (@ I ' V V " LP V : V V P dW Y Y " V V T Y " Y $ #
0x2cc780…2cc914 (5, 439) Dummy {f00=0x0035, f01=0x0190, f02=»W #?$? @ _2 J @" P Y 9 @ J ! T " Y X & $ ' ! ! " " P C P* ! J : J < W W P X V C W " X ! "? K >Q 9 "@W Y B W _.! T " T P % Y % Y Y V + V K V K : V K <
0x2cc914…2ccaa8 Dummy {f00=0x0035, f01=0x0190, f02=»! N P N & N T _ - M @ F Pp G $ _ W C ( B P U ! T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : QM QRP" $ "` 8X 8 , Y $ : _ & : (@ T X " C
0x2ccaa8…2ccc3c Dummy {f00=0x0035, f01=0x0190, f02=» @ P0 8 T _ & & Y " 4 : : $ - Y : ~ $ " `H_r_r_r_r& * ,L- 2 $ % Y W B T| $ C X _ H X H p ^ > X ( $ ^ WB X Y $:g H & I &! P& X $
0x2ccc3c…2ccdd0 Dummy {f00=0x0035, f01=0x0190, f02=»T E _ (X _ X $ _t , > > @$ A$ DW W ^ ! Z2 $ (X: @$ P T M ]J , ) A$ P* P Y U ( ) 5 & > > [ [ $ Z Z Z ? Z > P~ "R~ Y % Pj T P` $ <UR "R4
0x2ccdd0…2ccf64 Dummy {f00=0x0035, f01=0x0190, f02=»P8 & Y Y Y Y % X X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X & Y " X D V X &^ 2 P & ( Y U R -P ( X , ) Y . ( X " PP:A: R Q W Y <D
0x2ccf64…2cd0f8 Dummy {f00=0x0035, f01=0x0190, f02=» ) Y . V ) !& B P X " _Z B P$ $$ R % C ) * !& W Y +PH Y *P> Y (P Y )P ) R _Q P OR R W " !& B ' Wr W 0 Z ) !& B Z Z& X . 0T P W X ,P Y . 0 %_. % Y . W _p P )
0x2cd0f8…2cd28c Dummy {f00=0x0035, f01=0x0190, f02=»* W Y , - % ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > PT 0 _ !"$&;<>@^_ { * + + + PB P8 % B P B
0x2cd28c…2cd420 Dummy {f00=0x0035, f01=0x0190, f02=»R( Pj O]> V _F T Y Y & V Y _^ C _P &v &v" $ P X & X ]r !& Y Y Y _ &v" H) _ !& !& +6 % X C _ X Y & Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P j &P X _x
0x2cd420…2cd5b4 (5, 440) Dummy {f00=0x0035, f01=0x0190, f02=»P0 P X _ X " * !& !& X & * +, ,T -.-t ! P B 8# T $ # ;D !99P 7Pj PZ % Y X T &, Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y W Y Y W Y Y X Y 8# TJWj &v P <d R Q
0x2cd5b4…2cd748 Dummy {f00=0x0035, f01=0x0190, f02=»1z 0 !& 8! P !& P P / & / % B P B H " +P P. T Y ' !& R X ( Y &R Y & _ Y &_. 8$ T B 1 2 !& 0 B B U4 $ ! T _ U D ! T _ $$ X" X& X* C &v 0t X`" E
0x2cd748…2cd8dc Dummy {f00=0x0035, f01=0x0190, f02=»_ X X &" X )# C V C !& Y B !& Y _^ C _ &v &v" $ P X ' X ] !& 0 .| B 8! T !2 !2~ !& 0 !2 R !& _ B !2 V Z, !& _ 8! T B Y & !2 W B Y (U X ( X & R P !& W
0x2cd8dc…2cda70 Dummy {f00=0x0035, f01=0x0190, f02=»T 8 !@P !& $ P !& !& 0 !& 1P X & C ,T Y & % X Y & Y > X " X &" Y )Q Y > X Z2<BR > &P ? Y 8" P !& !& T> 8" P d !& Y !& *0 !& X !& Y & Z 0 T _ !& X $ P !1 .z R
0x2cda70…2cdc04 Dummy {f00=0x0035, f01=0x0190, f02=» )U W !& !& !& Y 4 B .* U )X R@ X X &" Y * X ) V Y !2~ X $ X & !2 X * .z .* `R Y !& !& !& 4 !& V !& V W :h !& 4 X )" X '# R 4 0 > d 3. 7 7 2 3
0x2cdc04…2cdd98 Dummy {f00=0x0035, f01=0x0190, f02=»7 ! P !7 !7 C W 8# T !"P ! " W !@P % 8! T< B R b " +P* P T !7 !7 !7 " T Y ( 9 X ) Y ( &v Pf !7 !7 &v P6 Z P$ T W R _X"R /P !7 W0 W Y ( !& _> !7 !'P ! T " T X ( Y )W % %
0x2cdd98…2cdf2c Dummy {f00=0x0035, f01=0x0190, f02=»X$ /P !7 W8 W Y * !& _> !7 !EP ! T " T W X , X * Y - Y + % % B P@ Y 0Q: Y , !7 !7 !7 !EP ! T " T X .!xX6 Y - Y * % % B <C Q6 X -! T, !7 . P`& % !7 8 !7 ! % % X & B V " Y & # T #
0x2cdf2c…2ce0c0 Dummy {f00=0x0035, f01=0x0190, f02=»:K Q`& !74 Q !74 P !74 R !74 P PQ !7& P Q Q`& !7& Q :C Q`& !7& Qx:E Q`& !7& Qj:F Q`& b ! PD !74 RT CQP !74 P RD b ! R,Q !74 (R0 9Q,W !74 P" (Q !74W Q`& Q`& % % , !7 " 4 , !7 " R _ , !7 " Q`& 4" 0
0x2ce0c0…2ce254 (5, 441) Dummy {f00=0x0035, f01=0x0190, f02=» % % ? X T Y Y X &R @3, Y & 6 P`& - ^ !7 !7 !7 X & !7 !7 X ) !7 X + "? !7 "@ !7 X - !7 . , !7 !7 "@P Y , Y * X 3@ % ' "?:B ] P H U _ T U P U ;C ,$ T -_> - _H
0x2ce254…2ce3e8 Dummy {f00=0x0035, f01=0x0190, f02=»(@ 9 $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h 9 P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2 P* P P" P P P TX , $ : P B B T P* & T$
0x2ce3e8…2ce57c Dummy {f00=0x0035, f01=0x0190, f02=» N _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ <P<P<P<P<r<r<r<r< < < < > > =t= <<= !" ; ; ;N T -_> ; .
0x2ce57c…2ce710 Dummy {f00=0x0035, f01=0x0190, f02=» T; I $ C C ?L T X?j = >J?j = Wp X # Xr X F# T > >:_ > _ X # X X F# P Y T ?h > H H > ?j W @ Y T < X I X I H B I p Y B N p B U
0x2ce710…2ce8a4 Dummy {f00=0x0035, f01=0x0190, f02=» _ X "" ;N Q X G X HT T W Y H H S W W B B B ?HW Y H RP L N B p L B $ Y X G X HWF Y < X X T < Y Y X Q T P P S W W <j < B B $ T _(
0x2ce8a4…2cea38 Dummy {f00=0x0035, f01=0x0190, f02=» R Hl % E X R % ?V A` @ A;N Q AQZ R4 ? @?R , - M M M M @?R * =a 9a Q - _ - > ?j W @ Y T < X I X I H B I p Y B N p B U
0x2cea38…2cebcc Dummy {f00=0x0035, f01=0x0190, f02=» _ X "" ;N Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y < X X T < Cj X Q T P P S W W <j < B B $ T _(
0x2cebcc…2ced60 Dummy {f00=0x0035, f01=0x0190, f02=» R % E X R % W X # Xr X F# T _ _ X # X X F# P Y T ?h H H ?j W @ Y T < X I X I H B I p Y B N p B U
0x2ced60…2ceef4 (5, 442) Dummy {f00=0x0036, f01=0x0190, f02=» _ X "" ;N Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y < X X T < X Q T P P S W W <j < B B $ T _(
0x2ceef4…2cf088 Dummy {f00=0x0036, f01=0x0190, f02=» R % E X R % W X # Xr X F# T _ _ X # ?V Y T ?h H H ?j W @ Y T < X I X I H B I p Y B N p B U
0x2cf088…2cf21c Dummy {f00=0x0036, f01=0x0190, f02=» _ X "" ;N Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B $ Y X G X HW Y < X X T < X Q T P P S W W <j < B B @?R ,
0x2cf21c…2cf3b0 Dummy {f00=0x0036, f01=0x0190, f02=» R [ [ M M M M A?R -(@ : - : @?R , L T M @?R (@ :I2I2L L I I I K I I I I I2L TPZ K T& (@ X @R X R Q N D '? T" F F E GR Q D HU K Y . R8 L ' PN M ' T> L C L C ( 8 K H _z
0x2cf3b0…2cf544 Dummy {f00=0x0036, f01=0x0190, f02=» B G K F S W G G F F J X $? K K X # T B H H @ B F F +P P P T @W P P P P R P P X N K: P K:W Rh H TX D "? X
0x2cf544…2cf6d8 Dummy {f00=0x0036, f01=0x0190, f02=»K T, H RP L N X @ L B p t & M` X B X @ F X + X R ( 8 T W Y F F D '? PD P> PN P2 PB P T V K K W K K D $ P T W E G E H_ M` X # T B
0x2cf6d8…2cf86c Dummy {f00=0x0036, f01=0x0190, f02=» G H H G R ^ N '? T V K K F K F K X K Y Y I D @ D B )P( D ^ E @ ^ E GR Q D HR W@ W0 D @ D B I T G L" W _n K K !' _ X # T
0x2cf86c…2cfa00 Dummy {f00=0x0036, f01=0x0190, f02=» MV X X !? O Tn U D @W W O D B )P D ^ E @_$ H X, D @ D ^T ( > K W O X t - - - T T = = = = ^ [ [ P 9A X ^ t X @
0x2cfa00…2cfb94 (5, 443) Dummy {f00=0x0036, f01=0x0190, f02=» X ^ Y @ )P W W X _ ^ E GR Q D HU Y G Y H G ^ H M MV X @ X B $ S T D D R P0 . W MV D B )XJ D ^ E @_( D [ T S X @ X ^ X @ t - ^
0x2cfb94…2cfd28 Dummy {f00=0x0036, f01=0x0190, f02=» W _ T ^W T B U @ T B 1 | T R T I T ^ C C Z G V G W P ( > K O t - - - T T = = = = [ [ P 9A X ^ t X @
0x2cfd28…2cfebc Dummy {f00=0x0036, f01=0x0190, f02=» H G H M MV X @ X B $ S T D D R P . W MV D B )XJ D ^ E @_( D [ T S X @ X ^ X @ t -
0x2cfebc…2d0050 Dummy {f00=0x0036, f01=0x0190, f02=» W _ T ^W T B U @ T B 1 | T R T I T C C Z G V G W P J F& AS R P RP L <a QS _ S J " T # T W 0T # P P R IS _ J L u J : S t F % =N AS F % P@ J
0x2d0050…2d01e4 Dummy {f00=0x0036, f01=0x0190, f02=» T$ 9a " ES & ;N PJ _ W & P & I - G [ W _* _ # ( 8 G S T @S Yf?A W ' ;N V ^ S G F > P2 J # " N # N F @S ~ @S R O V b . R ] ._ @S O F
0x2d01e4…2d0378 Dummy {f00=0x0036, f01=0x0190, f02=» N B N D _( O ^ N B :h! P O `:G U R Sh Y4 # X: ;N X . j # [ # O O a O ] F VS U F < _(9 :aP @R4 Q TR4X TR6Z Z UR6 ' ]Sr F < - F M C C V( DR:R" DR6 ER6 ER: DR4
0x2d0378…2d050c Dummy {f00=0x0036, f01=0x0190, f02=» H&( 8 Uv S W @Sh L F G D G D ;a R F Q F Q H Q J Q L N N Q N N B Q P Q P ?a U F F N `& _N U G @ G B : t Y ;NTF @Sh D !>P ?A SH G S R SF _ ?a S
0x2d050c…2d06a0 Dummy {f00=0x0036, f01=0x0190, f02=» J P U Q P J d X Sh ;NTZ R TShX Sh R _ j " ASb J L $ P _ , % @QZ ) AQZ(@ : N F" P :C;B F J L B U B M L B J d K D V ( 8 H I
0x2d06a0…2d0834 (5, 444) Dummy {f00=0x0053, f01=0x0190, f02=» " K V K RSb" P J P ;N Q ?A ShP :(@ N %? Tt N J ?& L 4 5W P 0 @QZ 1 AQZ(@_ SrPD @R4 P2R8 TR6 TR4R$ TR8 UR4 R: @R4 W UR8 . S ?B S| G : S~ G < RS ' P C H&(
0x2d0834…2d09c8 Dummy {f00=0x0053, f01=0x0190, f02=» 4 , , , : , )Q R V _ W W : T. ; [ V ( > Td E @Wl D @V ; [ _ D ^V D B E @WR ; [ D > D ` S W E < E > W H _| P H [ Z : : D P ; , Z T
0x2d09c8…2d0b5c Dummy {f00=0x0053, f01=0x0190, f02=»_l W W : : R LW PL T S Y R Y Q Z$ Z* Z R R R ^ S S _P (@ : T < T > _ T ` _N T D _( T B T @ ^ S W : P Q R ;A [ [ :
0x2d0b5c…2d0cf0 Dummy {f00=0x0053, f01=0x0190, f02=»_ _ _ 0123456789 `<< @,-. 0123456789 ;<=>?'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ ~ ?;_: =!"#$%&/() ;<=>?^ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}* D : ($SWAP A A A A A. m UU @ @ ! P$>B
0x2d0cf0…2d0e84 Dummy {f00=0x0053, f01=0x0190, f02=» @ # U R>P0 P n h AmN h P2 h _ * A k>W * A j W :a2 * A i4 mN & W F W @ F W CRP BAP COP A W F A @ : V, @ P n ;b=H : c F c W =J : R F P W W @ $ P @ R| W W
0x2d0e84…2d1018 Dummy {f00=0x0053, f01=0x0190, f02=» @ r$U U^ A Q r$VD Y2 W V @ " TJ W P r$Y n d* n Y P @ P @ T W - n P _ T <B :L A W
0x2d1018…2d11ac Dummy {f00=0x0053, f01=0x0190, f02=» :L < P W <9B @ V W Q n W @np A l @ e, V W e,! P W @ V P _ @ ! P* mt9h !RRP V V e, W _> n mt mt mD V V PZ W @ @ ! T _
0x2d11ac…2d1340 Dummy {f00=0x0053, f01=0x0190, f02=» h h PH h gVW> h T h h W h f k W @`0 W gn gx f g f h* hZ g f h2 hZ g f h: hZ g f g f V 00P& hj hB hZ g f hJ hZ g f _0 g f V 00P hj hR hZ g f _ 0 !TTX W A
0x2d1340…2d14d4 (5, 445) Dummy {f00=0x0054, f01=0x0190, f02=» n W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W n nX T gn : h et : n gp : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 Ag P.=H_, !11R T$ 0 !LLP
0x2d14d4…2d1668 Dummy {f00=0x0054, f01=0x0190, f02=» : h : h : 0 )T : !00T W : n TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : h C. h X C.9h! h h # " h h :A K : A T.I T P 1 I P < R P A _> n : @ " P P a i Ai A
0x2d1668…2d17fc Dummy {f00=0x0054, f01=0x0190, f02=»A I " @`6! P " :B A`8 t q B J " n : 0 R _ <d?d A`4U <e @`6P A`6<C, D L " @`6$ P " :B A`8 t w B J " r R,Q$ @ ( = @`4Q @`8 "| _@ _$ : Aj Aj Ak, Ak0 j AmN Agp Ak
0x2d17fc…2d1990 Dummy {f00=0x0054, f01=0x0190, f02=» : k| AmN Agp Ak Ak Ak ! T k k W Ak Ak I ! : 9D @ @`2r s @`0A I T - A _ I N T V S : n k k 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P z @ T X W n :
0x2d1990…2d1b24 Dummy {f00=0x0054, f01=0x0190, f02=» X S W W W : V W V T W P mR V T W F P P V W @ $ P p W n T : Al mN_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A Agp 2 ;
0x2d1b24…2d1cb8 Dummy {f00=0x0054, f01=0x0190, f02=» W A A I ! : 9D W Z A. c @ V W U n R $ )_ : W W W W W r$Q@ V V v x W V V v p R( W V
0x2d1cb8…2d1e4c Dummy {f00=0x0054, f01=0x0190, f02=» _ V p Z K W W :K W r r$Q R t r$V n n v : V W V n ) : V <B W |P v v : $ o` V |P v w v : V $ V l $ o` V M : W
0x2d1e4c…2d1fe0 Dummy {f00=0x0054, f01=0x0190, f02=» R R rnP p0 pV W x p rv_ V : " D Pd W V PL $;A^ D E D P. V n P n P T n E _J o` E _T " D T E o` E D E % : " R ;B o` " R P( |P v v
0x2d1fe0…2d2174 (5, 446) Dummy {f00=0x0083, f01=0x0190, f02=» : : , X G : J @ 0 V @ n 0 H W : ? ? R 0 R P P B _ $ : V ) r v : 4P: " D r , H H $ M v b - I Y0 : @ ` V b
0x2d2174…2d2308 Dummy {f00=0x0083, f01=0x0190, f02=» r s* q = G $ q V W $ qB V E J K _X V r V :B A V 9n A @ A A V V @ ! @ P P P P|_ _ @ 9N @ :b @ :b V W U6 T 9BW P
0x2d2308…2d249c Dummy {f00=0x0083, f01=0x0190, f02=» .V 3 S Y& P4 # # S P 3 _ # 3 # h A. @ j @ W A : A A % > l : rVR p0 W n V pT : N V l W H V ]" . nT"
0x2d249c…2d2630 Dummy {f00=0x0083, f01=0x0190, f02=» v G G v U pV v G v : rnP p0 rVV rv : pz pV V ~P v W x p _$ 8 V V x % V v % : V V n 9k! P % _ V V W W r r W V o` v ) W b G o` v ) - V
0x2d2630…2d27c4 Dummy {f00=0x0083, f01=0x0190, f02=» W ~ pPn r s* V W % v2 R , r o` " E R w" W ~ R w" R P x R Xv x _|W rnT : p0 pz W x p rv_ V P8 r I s* o` C C $ @ v D B I v W z ` pPl r H - V r
0x2d27c4…2d2958 Dummy {f00=0x0083, f01=0x0190, f02=» b v ( v W p V ` $ W ` n ;h 0 :C # : .=H N z r .=H N z r N : d 8" R _ ZY QY : @ V H W z W | CRP W ` ` H W d 2 ;A @ r$R n - @
0x2d2958…2d2aec Dummy {f00=0x0083, f01=0x0190, f02=»CCT z0 !UUT d {|Wh zj 2 .:H N P V n _ R :h " zj YV : v `?A @ W W :b / W W @ W D r V W W ` " W p @
0x2d2aec…2d2c80 Dummy {f00=0x0083, f01=0x0190, f02=» _ W ` W d V V W W V V >k 8 W W t V V x A `0 0P } W r 0 } W @ @ % V , P@ , - 4 ] 4 r$Y 5 X * _6 : W
0x2d2c80…2d2e14 (5, 447) Dummy {f00=0x0083, f01=0x0190, f02=» : ` @ V :a @ r @ A @ r ;a P$ W @ A @ T n A : # ` @ P _ 3 S S V V W @ @ T n : P S S _ : V CRP COP W @ 3 V 3 3 @
0x2d2e14…2d2fa8 Dummy {f00=0x0083, f01=0x0190, f02=»n 3 S J S Yd @ @ T n : @ @ @ #D# P ; V , _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T n : W . !TTP n W t N
0x2d2fa8…2d313c Dummy {f00=0x0083, f01=0x0190, f02=» P0 r " U n _2 P0 " U n _2 V tP r$R n S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W
0x2d313c…2d32d0 Dummy {f00=0x0083, f01=0x0190, f02=» _ Pd W p V 8 8 4 D P$ n @ # P H I K T + Y@ V p _f V t Y z, !TTX @ @ T n : W % @ P _ R @ WT R @ 0 W `
0x2d32d0…2d3464 Dummy {f00=0x0083, f01=0x0190, f02=» W d Z G =h G V d V r < V f P W f _B V W V t Yv z, !TTX @ @ T n : z, !TTX !CCTr P, V r 4 U n $ $ _. P, V 4 U n $ $
0x2d3464…2d35f8 Dummy {f00=0x0083, f01=0x0190, f02=» V d V r < V f _2 U^ V 8 8 8 4 D P$ n @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T n : W V F !SST WJ !AAT W>
0x2d35f8…2d378c Dummy {f00=0x0083, f01=0x0190, f02=» n ) $ PV D L Tp D &P V ` T @ 1 Q a 0 I , I . $# P8 V -W( W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P V : ` P: @ @
0x2d378c…2d3920 Dummy {f00=0x0083, f01=0x0190, f02=»WR# T W W,# T W W # T W W W R _ $ W : n Y Z # @# T A# V W Y0 Z6 # @# T A# V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x2d3920…2d3ab4 (5, 448) Dummy {f00=0x0103, f01=0x0190, f02=» P W | V z 3 % W P _ V |P V v ]# W v P _ @# P V n A# (P ) @# @# P V n A# (P ) @# @ @ T n : N =H N z : N =H N z : &=H F z : F =H F z : F =H F
0x2d3ab4…2d3c48 Dummy {f00=0x0103, f01=0x0190, f02=» ~R ~ " l h @ R @ $ D L * A CRT M " b A P " Z A P R A P 0 J 1 J 0 A P P : D J P ! ( 1 ( ;N ;N ^ ^ ^ ^ & KB _r W | "
0x2d3c48…2d3ddc Dummy {f00=0x0103, f01=0x0190, f02=» ?O_o 8- Y N W v P & KB _r @# P 2,LDI ?O_o
0x2d3ddc…2d3f70 Dummy {f00=0x0103, f01=0x0190, f02=» 2,LDI ?O_o 8- Y > ( 1 ( ( D2 TP
0x2d3f70…2d4104 Dummy {f00=0x0103, f01=0x0190, f02=» 4* P D P 2,LDI v ?O_o 8- Y P 2,LDI ?O_o
0x2d4104…2d4298 Dummy {f00=0x0103, f01=0x0190, f02=»****************************************************** ~ L P* * > L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * L P*
0x2d4298…2d442c Dummy {f00=0x0103, f01=0x0190, f02=»/FFFF,/FFFF,/FF60,/3C3C,/FF40,/2C2D,/2EFF ~ L P DATA /3031,/3233,/3435,/3637,/3839,/903B,/3C3D,/3E3F > L P DATA /2741,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,
0x2d442c…2d45c0 Dummy {f00=0x0103, f01=0x0190, f02=» * ~ L P* CONVERSION TABLE FOR SHIFTED CHARACTERS * > L P* * L P******************************************
0x2d45c0…2d5260 (6, 0) DirGranule ((6, 0)) {
0x2d45c0…2d5260 DirEnt {nam=»HJFORM«, typ=»AT«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»FORMAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e8, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x1820, f03=0x2020}
0x2d45c0…2d5260 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x434b, f01=0x204e, f02=0x1880, f03=0x203d}
0x2d45c0…2d5260 DirEnt {nam=»FORMIO«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x18f8, f03=0x0005}
0x2d45c0…2d5260 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»FORMAT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»NEDDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b0, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»GERDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae0, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»ENGDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»LSTFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d50, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1d60, f03=0xffff}
0x2d45c0…2d5260 DirEnt {nam=»FRADEF«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x1db0, f03=0xffff}
0x2d45c0…2d5260 DirEnt {nam=»LISTEN«, typ=»UF«, f00=0xffff, f01=0xffff, f02=0x1ef8, f03=0xffff}
0x2d45c0…2d5260 DirEnt {nam=»NEDDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1f00, f03=0xffff}
0x2d45c0…2d5260 DirEnt {nam=»GERDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1f50, f03=0xffff}
0x2d45c0…2d5260 DirEnt {nam=»TALEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06e0, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»FORCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d58, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»ENG «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fb0, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»FRADEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x2d45c0…2d5260 DirEnt {nam=»A:FORM«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x2d45c0…2d5260 }
0x2d5260…2d53f4 (6, 1) Opaque[0x194]
0x2d53f4…2d5588 # DirEnt {nam=»FORMAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06e8, f03=0x0000}
0x2d53f4…2d5588 IdxSect {
0x2d53f4…2d5588 f00 = 0x0037 // 0x2d53f4 @0x0
0x2d53f4…2d5588 f01 = 0x0008 // 0x2d53f6 @0x2
0x2d53f4…2d5588 gno = [ // 0x2d53f8 @0x4
0x2d53f4…2d5588 [0x00]: C0x0037.0x1.0
0x2d53f4…2d5588 [0x01]: C0x0057.0x2.0
0x2d53f4…2d5588 [0x02]: C0x00c0.0x2.0
0x2d53f4…2d5588 [0x03]: C0x00fd.0x0.0
0x2d53f4…2d5588 ]
0x2d53f4…2d5588 }
0x2d5588…2d571c Dummy {f00=0x0037, f01=0x0190, f02=» P IDENT FORMAT L P************************************************************************ " L P* FUNCTIONAL DESCRIPTION : * r L P* BUILDING 100 FORMATS OF THE FORMAT-FILE IN A
0x2d571c…2d58b0 Dummy {f00=0x0037, 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
0x2d58b0…2d5a44 Dummy {f00=0x0037, 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
0x2d5a44…2d5bd8 Dummy {f00=0x0037, 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-
0x2d5bd8…2d5d6c Dummy {f00=0x0037, 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 )
0x2d5d6c…2d5f00 Dummy {f00=0x0037, f01=0x0190, f02=»T-FILE ) * b L P************************************************************************ " P DDUM DEMODD r P PDIV L P************************************************************************ L P* FUNCTIONAL DESCRIPTION
0x2d5f00…2d6094 (6, 2) Dummy {f00=0x0057, 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
0x2d6094…2d6228 Dummy {f00=0x0057, 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*
0x2d6228…2d63bc Dummy {f00=0x0057, 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*
0x2d63bc…2d6550 Dummy {f00=0x0057, 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************************
0x2d6550…2d66e4 Dummy {f00=0x0057, 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
0x2d66e4…2d6878 Dummy {f00=0x0057, 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
0x2d6878…2d6a0c Dummy {f00=0x0057, 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'
0x2d6a0c…2d6ba0 Dummy {f00=0x0057, 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
0x2d6ba0…2d6d34 (6, 3) Dummy {f00=0x00c0, 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
0x2d6d34…2d6ec8 Dummy {f00=0x00c0, 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
0x2d6ec8…2d705c Dummy {f00=0x00c0, 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
0x2d705c…2d71f0 Dummy {f00=0x00c0, 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
0x2d71f0…2d7384 Dummy {f00=0x00c0, f01=0x0190, f02=» XCOPY FCFMTBUF,NWTOTBYT,KW2,WW2,KW0 P DISCARD .DIR,DSFMTFLE,KD1 . & P WRITE .DIR,DSFMTFLE,FCFMTBUF,KD1 P P XSTAT DSFMTFLE,NWXSTAT z P B AA920 PAA900 ( P RSTAT DSFMTFLE,NWXSTAT READ STATUS P EDWRT SPDSSCRN,FMTI , P EDWRT S
0x2d7384…2d7518 Dummy {f00=0x00c0, f01=0x0190, f02=» B AA999 PAA920 P EDWRT SPDSSCRN,FMTI ( P EDWRT SPDSSCRN,FMTH SUCCESSFULL END : P B AA999 f PAA930 v P EDWRT SPDSSCRN,FMTI " P EDWRT SPDSSCRN,FMTE OVERFLOW P B AA999 PAA940 P EDWRT SPDSSCRN,FMTI , P EDWRT S
0x2d7518…2d76ac Dummy {f00=0x00c0, f01=0x0190, f02=»********************************************************************** L P* FUNCTIONAL DESCRIPTION : * N L P* LOOKING FOR A FREE LANGUAGE-NUMBER * L P* LA
0x2d76ac…2d7840 Dummy {f00=0x00c0, f01=0x0190, f02=» RECORD OF THE CONCERNED LANGUAGE, L P* THE PROCEDURE "MASK" GIVES A CONDITION-CODE EQUAL > L P* 1 WHEN THE FORMAT-RECORD CONTAINS NO DATA * L P* THE MAXIMUM AMOUNT
0x2d7840…2d79d4 (6, 4) Dummy {f00=0x00fd, f01=0x0190, f02=» MOVE WWCOUNT,KW0 INITIATE AMOUNT OF TRIES P MOVE WW1,KDMAXLGG D PBA100 ^ P EDWRT SPDSSCRN,FMTI l P EDWRT SPDSSCRN,FMTB P DSC0 SPDSDYKB,02 P MOVE KWCONT,KW1 8 P NKI SPDSDYKB,VCVOLNR1,KTB,KWC
0x2d79d4…2d7b68 Dummy {f00=0x00fd, f01=0x0190, f02=» WWINDEX2,KW0,BA200 & P CBNL WWINDEX2,WW1,BA200 H P MUL WWINDEX2,KWNRFMT COUNT RELATIVE-RECORD-NUMBER F H P ADD WWINDEX2,KW1 COUNT RELATIVE-RECORD-NUMBER P MOVE KWCONT,KWFMTLNG P MOVE WDEC1,
0x2d7b68…2d7cfc Dummy {f00=0x00fd, f01=0x0190, f02=»MASK,WW1,WWINDEX1 P BNOK BA900 PBA200 . P COMMIT NWXSTAT < P ADD WWCOUNT,KW1 T & P CBNG WWCOUNT,=W'6',BA100 v $ P* TO PREVENT AN ENDLESS LOOP P B AA940 PBA900 P COMMIT NWXSTAT P SUB WWIND
0x2d7cfc…2d7e90 Dummy {f00=0x00fd, f01=0x0190, f02=»****************************************************************** P* J P* T PFMTA FRMT ^ P FSL r 0 P FTEXT ' VOLUME-NAME ? : DSC' ~ P FMEND PFMTB FRMT P FSL 6 P FTEXT 'LANGUAGE-NUMBER ?
0x2d7e90…2d8024 Dummy {f00=0x00fd, f01=0x0190, f02=» PFMTD FRMT P FSL 0 P FTEXT 'MORE THAN 6 LANGUAGE-NUMBERS TRIED' $ P FNL X , P FTEXT 'PERHAPS NO FREE LANGUAGE-NUMBER' j P FMEND PFMTE FRMT P FSL 0 P FTEXT 'OVERFLOW OF OVERFLOW-AREA' P
0x2d8024…2d81b8 Dummy {f00=0x00fd, f01=0x418c, f02=»NTINUE' x P FMEND PFMTG FRMT $ P FNL 8 ( P FTEXT 'I/O ERROR WHILE READING OR ' L P FSL x P FTEXT 'WRITING FORMAT-FILE' P FMEND PFMTH FRMT P FNL 0 P FTEXT 'PGM "FORMAT" SUCCESSFULLY
0x2d81b8…2d834c Dummy {f00=0x00fd, 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 )
0x2d834c…2d84e0 Dummy {f00=0x00fd, f01=0x0190, f02=»LS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W ^ <a R 9a V NX : K( @NVP ( _ @P P @P Pj Pf O V $ $T$ D BR V T D P T D @PL E @W . @PXP$ O PZ $ $P BT , D
0x2d84e0…2d8674 (6, 5) Opaque[0x194]
0x2d8674…2d8808 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x3131, f01=0x3033, f02=0x1820, f03=0x2020}
0x2d8674…2d8808 IdxSect {
0x2d8674…2d8808 f00 = 0x00c1 // 0x2d8674 @0x0
0x2d8674…2d8808 f01 = 0x0018 // 0x2d8676 @0x2
0x2d8674…2d8808 gno = [ // 0x2d8678 @0x4
0x2d8674…2d8808 [0x00]: C0x00c1.0x0.0
0x2d8674…2d8808 [0x01]: C0x00c1.0x1.0
0x2d8674…2d8808 [0x02]: C0x00c1.0x2.0
0x2d8674…2d8808 [0x03]: C0x00c1.0x3.0
0x2d8674…2d8808 [0x04]: C0x00c2.0x0.0
0x2d8674…2d8808 [0x05]: C0x00c2.0x1.0
0x2d8674…2d8808 [0x06]: C0x00c2.0x2.0
0x2d8674…2d8808 [0x07]: C0x00c2.0x3.0
0x2d8674…2d8808 [0x08]: C0x00c3.0x0.0
0x2d8674…2d8808 [0x09]: C0x00c3.0x1.0
0x2d8674…2d8808 [0x0a]: C0x00c3.0x2.0
0x2d8674…2d8808 [0x0b]: C0x00c3.0x3.0
0x2d8674…2d8808 ]
0x2d8674…2d8808 }
0x2d8808…2d899c Dummy {f00=0x00c1, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x2d899c…2d8b30 Dummy {f00=0x00c1, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x2d8b30…2d8cc4 Dummy {f00=0x00c1, 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
0x2d8cc4…2d8e58 Dummy {f00=0x00c1, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x2d8e58…2d8fec Dummy {f00=0x00c1, 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
0x2d8fec…2d9180 Dummy {f00=0x00c1, 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
0x2d9180…2d9314 (6, 6) Dummy {f00=0x00c1, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x2d9314…2d94a8 Dummy {f00=0x00c1, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x2d94a8…2d963c Dummy {f00=0x00c1, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x2d963c…2d97d0 Dummy {f00=0x00c1, 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)
0x2d97d0…2d9964 Dummy {f00=0x00c1, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x2d9964…2d9af8 Dummy {f00=0x00c1, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x2d9af8…2d9c8c Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x2d9c8c…2d9e20 Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x2d9e20…2d9fb4 (6, 7) Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x2d9fb4…2da148 Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x2da148…2da2dc Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x2da2dc…2da470 Dummy {f00=0x00c1, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x2da470…2da604 Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x2da604…2da798 Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x2da798…2da92c Dummy {f00=0x00c1, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J F************************************************************
0x2da92c…2daac0 Dummy {f00=0x00c1, 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=50,DEV=DY,BUFL=82 z PSPDSDYKB DSET FC=20,DEV=KA PDSDI DSET FC=41,DEV=DI & PSPDSPRT DSET FC=30,DEV=GP,BUFL=112
0x2daac0…2dac54 (6, 8) Dummy {f00=0x00c1, f01=0x0190, f02=»DBS DSET FC=C0,DEV=DL PDSFMTFLE DSET FC=CA,DEV=DL 6 PDSLNEPRT DSET FC=80,DEV=LP,BUFL=110,BUFDS=SPDSPRT @ ( $ FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN z P START AAMAIN P STACK 256 P EJECT P* PCW1 BLK P* PVCVOLNR1
0x2dac54…2dade8 Dummy {f00=0x00c1, f01=0x0190, f02=»PARAM1 STRG 66 8 P* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY) PKDCHECKS BCDI (11,6), C R L P '1','1','1','1','1','2', 1:EOI C r L P '1','1','1','1','1','1', 2:LIST C
0x2dade8…2daf7c Dummy {f00=0x00c1, f01=0x0190, f02=» b L P '1','1','1','1','0','1', 5:BLOCK C " L P '2','1','1','1','0','1', 6:UPDATE C r L P '2','1','1','1','0','1', 7:INQUIRY C
0x2daf7c…2db110 Dummy {f00=0x00c1, f01=0x0190, f02=» b L P '2','2','1','0','2','0', 10:OUT C " L P '1','1','1','0','0','1' 11:TRANSFER r L P* COLUMN CODING:
0x2db110…2db2a4 Dummy {f00=0x00c1, f01=0x0190, f02=» * b L P* COLUMN 3: CHECK NOBOOK OFF * " L P* COLUMN 4: CHECK REVERSAL OFF * r L P* COLUMN 5: CHECK CARD OFF
0x2db2a4…2db438 Dummy {f00=0x00c1, f01=0x018e, f02=» * b L P* THEN FOR FUNCTION I, CHECK J WILL BE PERFORMED * " P* IF KDCHECKS(I,J) = 2 r > P* THEN FOR FUNCTION I, A SPECIFIC VERSION OF CHECK J P* WILL BE PERFORMED L P**********************
0x2db438…2db5cc Dummy {f00=0x00c1, f01=0x0190, f02=» L P* * L P************************************************************************ T L P* * L P* SYSTEM RECORD
0x2db5cc…2db760 Dummy {f00=0x00c1, f01=0x0190, f02=» L P************************************************************************ L PYDSYSRNR BCD 12 RECORD NUMBER T L PYDUMMY BCD 6 PYDSTATUS BCD 2 L
0x2db760…2db8f4 (6, 9) Dummy {f00=0x00c2, f01=0x0190, f02=»2 = SYSTEM STARTED * P* 3 = SYSTEM CLOSED L L PYCCCY STRGI (4)4 CURRENCIES j L PYDSYSLGG BCD 2 SYSTEM LANGUAGE L
0x2db8f4…2dba88 Dummy {f00=0x00c2, f01=0x0190, f02=» Z L PYDLASSAV BCD 12 LAST SAVINGS ACCOUNT NUMBER L PYDLASCHQ BCD 12 LAST CHEQUE ACCOUNT NUMBER j L PYDLASCRD BCD 6 LAST DUMMY CARD NUMBER L
0x2dba88…2dbc1c Dummy {f00=0x00c2, f01=0x0190, f02=»****************** Z P* P* TWB VARIABLES $ P* < L P************************************************************************ F L PTRM BLK L P*
0x2dbc1c…2dbdb0 Dummy {f00=0x00c2, f01=0x0190, f02=»L FALSE L PSBCANCEL BOOL FALSE ! F L PSB34KB BOOL FALSE 6231 OR 6234 TYPE KEYBOARD ! ( PSBTRMBLK BOOL FALSE TERMINAL BLOCK
0x2dbdb0…2dbf44 Dummy {f00=0x00c2, f01=0x0190, f02=» ! Z $ PNDTRMLGG BCD 2 TERMINAL LANGUAGE " " PNDTRMNR BCD 4 TERMINAL NUMBER " B L P************************************************************************ " h L P* * " L P
0x2dbf44…2dc0d8 Dummy {f00=0x00c2, f01=0x0190, f02=» * " X L P************************************************************************ # L PRDTRMRNR BCD 12 RECORD NUMBER # h L PRDUMMY BCD 6 # L P
0x2dc0d8…2dc26c Dummy {f00=0x00c2, f01=0x0190, f02=» # X L P* 0 = TERMINAL NOT SPECIFIED * $ L P* 1 = TERMINAL SPECIFIED * $ h L P* 2 = TERMINAL STARTED * $ L P
0x2dc26c…2dc400 Dummy {f00=0x00c2, f01=0x0190, f02=»FKB BCD 2D'0' ALPHANUMERIC KEYBOARD $ L PRDSHRPRT BCD 2D'0' SHARED PRINTER % L L PRDPRTTYP BCD 2D'0' PRINTER TYPE % L PRDBCR BCD 2D'0' BADGE CARD R
0x2dc400…2dc594 (6, 10) Dummy {f00=0x00c2, f01=0x0190, f02=»RNR BCD 6 OPERATOR NUMBER % L P************************************************************************ & " P* & r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES & | P* & L P************************************************************************ &
0x2dc594…2dc728 Dummy {f00=0x00c2, f01=0x0190, f02=»W'0' & PSPBINW2 BIN W'0' ' PSPBINW3 BIN W'0' ' $ PSPBINW4 BIN W'0' ' < . P* WORKFIELDS, MAY BE USED BY ALL ROUTINES ' T PWW1 BIN ' PWW2 BIN ' PWWINDEX1 BIN ' PWWINDEX2 BIN ' PWWCOUNT BIN ' PWDEC1 BCD 12 ' PWDEC2 BCD 12 ' &
0x2dc728…2dc8bc Dummy {f00=0x00c2, f01=0x0190, f02=»****************************************************** ' ~ L P* * ( > 6 P* MISCELANEOUS RESERVED VARIABLES AND I/O-BUFFERS ( L P*
0x2dc8bc…2dca50 Dummy {f00=0x00c2, f01=0x0190, f02=»FALSE UWB USED ( " P* RESERVED VARIABLES FOR XBFMT ) 0 PNWTOTBYT BIN BYTES TO BE PROCESSED (XBFMT) ) < $ PNWPTR BIN MATCH POINTER (XBFMT) ) p $ P* RESERVED VARIABLES FOR BESELF ) ( PNWKTBIX BIN KEYTABLE INDEX (BESELF) ) P* SWITCHES USED BY BESELF )
0x2dca50…2dcbe4 Dummy {f00=0x00c2, f01=0x0190, f02=»CH (BESELF) ) r PSBCARD BOOL FALSE * 2 PSBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF) * . 0 PSBOPRCLS BOOL FALSE OPERATOR CLOSE (BESELF) * d 0 P* VARIABLES RESERVED FOR THE PRINT ROUTINES * . PSBFIL24 BOOL FALSE )CONTROL POSITIONING OF * ( PSBFIL20 BO
0x2dcbe4…2dcd78 Dummy {f00=0x00c2, f01=0x018e, f02=» BCD 12 NEXT TRS. FOR PRINT (PRT RT'S) * , PVCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER + . ( PSBFIL1 BOOL FALSE ***************** + ^ $ PSBFIL2 BOOL FALSE FILLERSIZE IN + $ PSBFIL3 BOOL FALSE TITLE LINE OF + ( PSBFIL4 BOOL FALSE TP71 DEMONSTATION + ( PSB
0x2dcd78…2dcf0c Dummy {f00=0x00c2, f01=0x0190, f02=» PWC2STRG8 STRG 8 , PWCSTRG12 STRG 12 , PWCSTRG25 STRG 25 , 4 L P************************************************************************ , L P* , P* I/O-BUFFERS , P* , L P******************************************************************
0x2dcf0c…2dd0a0 Dummy {f00=0x00c2, f01=0x0190, f02=» * , f L P* IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE * - & L P* BUFFER 'FCFORMAT'. * - v L P* IF THEN THE FORMAT MUST BE SPLIT INTO PARTS 'FCFMTBUF' IS USED
0x2dd0a0…2dd234 (6, 11) Dummy {f00=0x00c2, f01=0x0190, f02=» BUFFERS MAY NOT BE USED!!! * - f L P* 'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE, * . & L P* TO READ ERRORS AND MESSAGES FROM THE FORMAT FILE OR TO * . v L P* READ PRINT FORMATS FROM THE FORMAT FILE.
0x2dd234…2dd3c8 Dummy {f00=0x00c2, f01=0x0190, f02=»MSG'S . f $ PFCFMTBUF STRG 255 FORMAT BUFFER / $ PFCFORMAT STRG 800 FORMAT STORAGE / 6 2 PFCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOISE / ^ L P************************************************************************ / L PUIF BLK
0x2dd3c8…2dd55c Dummy {f00=0x00c2, f01=0x0190, f02=»************************************************************ / L P* * 0 D L P* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPPL * 0 L P*
0x2dd55c…2dd6f0 Dummy {f00=0x00c2, f01=0x0190, f02=»FALSE START OPERATOR 0 L PSBOACT BOOL FALSE OPEN ACCOUNT 1 D L PSBCACT BOOL FALSE CLOSE ACCOUNT 1 L PSBBACT BOOL FALSE BLOCK ACCOUNT
0x2dd6f0…2dd884 Dummy {f00=0x00c2, f01=0x0190, f02=»FALSE UPDATE ACCOUNT 1 L PSBUCCY BOOL FALSE UPDATE CURRENCY 2 D L PSBQACT BOOL FALSE INQUIRY ACCOUNT 2 L PSBDSTM BOOL FALSE DAYLY STATEMENTS
0x2dd884…2dda18 Dummy {f00=0x00c2, f01=0x0190, f02=»FALSE SYSTEM CLOSE 2 L PSBECCY BOOL FALSE CURRENCY EXCHANGE 3 D L PSBQCCY BOOL FALSE CURRENCY INQUIRY 3 L PSBLACT BOOL FALSE LIST ACCOUNTS
0x2dda18…2ddbac Dummy {f00=0x00c2, f01=0x0190, f02=» 3 L L PIDACTNR1 BCD 12 4 L PIDACTNR2 BCD 12 4 L PIDAMT1 BCD 12 4 L PIDAMT2 BCD 2
0x2ddbac…2ddd40 Dummy {f00=0x00c2, f01=0x0190, f02=» 4 L PIDNR2 BCD 12 5 PIDNR3 BCD 12 5 PIDNR4 BCD 12 5 4 PICSTRG1 STRG 1 5 H PICTEXT1 STRG 6 5 ^ PICTEXT2 STRG 25 5 t PICTEXT3 STRG 4 5 L PICDUMMY STRG 5 5 L P**********************
0x2ddd40…2dded4 (6, 12) Dummy {f00=0x00c2, f01=0x018e, f02=»******************** 5 L P* * 6 L P* CURRENCY RECORD * 6 l L P* * 6
0x2dded4…2de068 Dummy {f00=0x00c2, f01=0x0190, f02=» 6 " PCCCCYNME STRG 20 CURRENCY NAME 7 " PCCCCYCDE STRG 4 CURRENCY CODE 7 . PCDBUY1 BCD 8 BUYING RATE 1 7 T PCDBUY2 BCD 8 BUYING RATE 2 7 v PCDSEL1 BCD 8 SELLING RATE 1 7 PCDSEL2 BCD 8 SELLING RATE 2 7 " PCDLIMIT BCD 12 LIMIT OF RATE 1 7 PCD
0x2de068…2de1fc Dummy {f00=0x00c2, f01=0x0190, f02=» 7 t L P* * 8 4 L P************************************************************************ 8 L P*
0x2de1fc…2de390 Dummy {f00=0x00c2, f01=0x0190, f02=» * 8 t L P************************************************************************ 9 4 L PODOPRRNR BCD 12 RECORD NUMBER 9 L PODUMMY BCD 6
0x2de390…2de524 Dummy {f00=0x00c2, f01=0x0190, f02=» 9 t L PODSTATUS BCD 2 : 4 L P* 0 = OPERATOR NOT IN USE * : L P* 1 = OPERATOR INITIALISED
0x2de524…2de6b8 Dummy {f00=0x00c2, f01=0x0190, f02=»R : t L PODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR ; 4 L PODCASH BCDI (3,5)12 BALANCES AND ACCUMULATORS ; L P* USAGE AS FOLLOWS:
0x2de6b8…2de84c Dummy {f00=0x00c2, f01=0x0190, f02=» * ; t L P* 1,3 : BALANCE CURRENCY 3 * < 4 L P* 1,4 : BALANCE CASH * < L P* 1,5 : UNUSED
0x2de84c…2de9e0 Dummy {f00=0x00c2, f01=0x0190, f02=»ERS * < t L P* 2,3 : ACCUMULATED DEPOSITS * = 4 L P* 2,4 : ACCUMULATED WITHDRAWALS * = L P* 2,5 : UNUSED
0x2de9e0…2deb74 (6, 13) Dummy {f00=0x00c3, f01=0x0190, f02=»CY 2 - BOUGHT AND SOLD * = t L P* 3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SOLD * > 4 L P* 3,4 : ACCUMULATED CURRENCY SOLD - LOCAL VALUE * > L P* 3,5 : ACCUMULATED CURRENCY BOUGHT - LOCAL VALUE
0x2deb74…2ded08 Dummy {f00=0x00c3, f01=0x0190, f02=» > t L P* * ? 4 0 PSBCHQACT BOOL FALSE IS ACCOUNT A CHEQUE ACC ? L P************************************************************************ ? L P
0x2ded08…2dee9c Dummy {f00=0x00c3, f01=0x0190, f02=» * ? X L P* * @ L P************************************************************************ @ h L PADACTRNR BCD 12 RECORD NUMBER @ L P
0x2dee9c…2df030 Dummy {f00=0x00c3, f01=0x0190, f02=» @ X L PACADDRES STRG 20 A L PACTOWN STRG 20 A h L PACPASS STRG 6 PASSWORD A L P
0x2df030…2df1c4 Dummy {f00=0x00c3, f01=0x0190, f02=» * A X L P* 1 = BLOCKED * B L P* 2 = CLOSED WITHOUT STATEMENT * B h L P* 3 = CLOSED WITH STATEMENT * B L P
0x2df1c4…2df358 Dummy {f00=0x00c3, f01=0x0190, f02=» B X L PADLASTRS BCD 12 LAST TRANSACTION C L PADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED C h ( PADLNENR BCD 4 LAST USED LINE IN BOOK C L PADDEPCUM BCD 12 ACCUMULATED DEPOSITS
0x2df358…2df4ec Dummy {f00=0x00c3, f01=0x018e, f02=» 12 LAST TRANSACTION SEQUENCE NR. C ( PACRECNR STRG 3 INDEX 2 FOR DATABASE D * L P************************************************************************ D V L PUA2 BLK D L P*
0x2df4ec…2df680 Dummy {f00=0x00c3, f01=0x0190, f02=» D F L P* * E L P* ACCOUNT RECORD 2 * E X L P* * E L P****************
0x2df680…2df814 (6, 14) Dummy {f00=0x00c3, f01=0x0190, f02=» E H L PBDCARDNR BCD 6 CARD NUMBER F L PBCNAME STRG 20 F X L PBCADDRES STRG 20 F L PBCTOWN STRG 20
0x2df814…2df9a8 Dummy {f00=0x00c3, f01=0x0190, f02=» F H L PBDSTATUS BCD 2 G L P* 0 = DEBLOCKED * G X L P* 1 = BLOCKED * G L P* 2 = CLOSED W
0x2df9a8…2dfb3c Dummy {f00=0x00c3, f01=0x0190, f02=» G H L PBDBAL BCD 12 BALANCE H L PBDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE H X L PBDLASTRS BCD 12 LAST TRANSACTION H L PBDSTMTRS BCD 12
0x2dfb3c…2dfcd0 Dummy {f00=0x00c3, f01=0x0190, f02=» H H L PBDDEPCUM BCD 12 ACCUMULATED DEPOSITS I L PBDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS I X 2 PBDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. I L P******************************************
0x2dfcd0…2dfe64 Dummy {f00=0x00c3, f01=0x0190, f02=» * I ~ L P************************************************************************ J > L P* * J L P* TRANSACTION RECORD 1
0x2dfe64…2dfff8 Dummy {f00=0x00c3, f01=0x0190, f02=»****************************************************** J ~ L PTDTRSRNR BCD 12 RECORD NUMBER K > L PTDUMMY BCD 6 K L PTDTRSCDE BCD 4 TRANSACTION CODE
0x2dfff8…2e018c Dummy {f00=0x00c3, f01=0x0190, f02=»MINAL NUMBER OF ISSUE K ~ L PTDOPRNR BCD 12 OPERATOR NUMBER L > L PTDTRSSEQ BCD 12 SEQUENCE NUMBER L L PTDAMOUNT BCD 12
0x2e018c…2e0320 Dummy {f00=0x00c3, f01=0x0190, f02=»COUNT FROM L ~ L PTDCHQNR BCD 8 CHEQUE NUMBER M > L PTCTEXT STRG 20 M L P******************************************
0x2e0320…2e04b4 (6, 15) Dummy {f00=0x00c3, f01=0x0190, f02=» * M ~ L P************************************************************************ N > L P* * N L P* TRANSACTION RECORD 2
0x2e04b4…2e0648 Dummy {f00=0x00c3, f01=0x0190, f02=»****************************************************** N ~ L PUDTRSRNR BCD 12 RECORD NUMBER O > L PUDUMMY BCD 6 O L PUDTRSCDE BCD 4 TRANSACTION CODE
0x2e0648…2e07dc Dummy {f00=0x00c3, f01=0x0190, f02=»MINAL NUMBER OF ISSUE O ~ L PUDOPRNR BCD 12 OPERATOR NUMBER P > L PUDTRSSEQ BCD 12 SEQUENCE NUMBER P L PUDAMOUNT BCD 12
0x2e07dc…2e0970 Dummy {f00=0x00c3, f01=0x0190, f02=»COUNT FROM P ~ L PUDCHQNR BCD 8 CHEQUE NUMBER Q > L PUCTEXT STRG 20 Q L P******************************************
0x2e0970…2e0b04 Dummy {f00=0x00c3, f01=0x0190, f02=»****************************************** Q r PCK1 BLK R 2 P* R B PKW0 BIN W'0' R L PKW1 BIN W'1' R ` PKW2 BIN W'2' R t PKW3 BIN W'3' R PKW4 BIN W'4' R PKW5 BIN W'5' R PKW6 BIN W'6' R , PKWFMTLNG BIN W'255' FORMATRECORD LENGTH R ( P
0x2e0b04…2e0c98 Dummy {f00=0x00c3, f01=0x0190, f02=» TO GET RECORD NUMBER R x PNDDATE BCD 8 S PNDTIME BCD 8 S 2 PVCTIME STRG 6 S F L P************************************************************************ S P* S , P* COMMON WORK-BLOCK CONTAINING CONSTANTS S P* S L P************************
0x2e0c98…2e0e2c Dummy {f00=0x00c3, f01=0x0190, f02=»START BIN W'3' S PKWEND BIN W'4' T PKWEOI BIN W'1' T , PKWCONT BIN W'20' T B PKWCANCEL BIN W'19' T Z PKWCLEAR BIN W'21' T t . P* LENGTH OF THE FUNCTION KEYTABLE 'FNCKTB' T 2 PKWAPLKTB BIN W'22' LENGTH OF FUNCTION KEYTABLE T 0 P* INDICES IN THE S
0x2e0e2c…2e0fc0 Dummy {f00=0x00c3, f01=0x0190, f02=»LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES T * PKWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 U 2 ( PKWSPKTB3 BIN W'12' LENGTH OF SPKTAB3 U ` , P* 6371 PRINTER PARAMETERS FOR DEMO TP71 U PKCPRTPAR STRGI (21), C U 6 P 4X'9066',4X'9266',4X'9366',4X'9466',4X'956
0x2e0fc0…2e1154 (6, 16) Dummy {f00=0x00c3, f01=0x0190, f02=»044',4X'9055',4X'9055',4X'9066',4X'9044', C U P 4X'9A66' V 4 L P************************************************************************ V F P* V & P* MISCELANEOUS RESERVED VARIABLES V P* V L P****************************************************
0x2e1154…2e12e8 Dummy {f00=0x00c3, f01=0x0190, f02=» P* SWITCHES USED BY XAKBIN W . PSBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN) W & P* SWITCHES USED BY DPECCY W X 4 PSBEOI BOOL FALSE AMT. QUOTED IN SY.CCY (DPECCY) W z 0 PSBCCYIN BOOL FALSE CURRENCY BUYING (DPECCY) W 2 PSBCCYKTB BOOL FALSE USE CCY KEYTAB
0x2e12e8…2e147c Dummy {f00=0x00c3, f01=0x0190, f02=»IS A DEPOSIT (DKDSTM) W v 6 PSBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) X 4 PSBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM) X X 4 PSBDSTRF BOOL FALSE TRANS. IS A TRANSFER (DKDSTM) X P* VARIABLES USED BY ZDSCIO X & PNWXSTAT BIN EXTENDED STATUS C
0x2e147c…2e1610 Dummy {f00=0x00c3, f01=0x413c, f02=» NUMBER (ZDSCIO) X t * PNDLRN3 BCD 12 LOGICAL REC.NR. (ZDSCIO) Y 6 PSBNOCOPY BOOL FALSE COPY NOT FROM/TO UWB (ZDSCIO) Y F 6 PSBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO) Y L P************************************************************************ Y
0x2e1610…2e17a4 Dummy {f00=0x00c3, f01=0x2008, f02=» Z 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
0x2e17a4…2e1938 Dummy {f00=0x00c3, f01=0x0190, f02=» Z I t a . " z m ! 8 W + , 7 d f1010313801100033000000 2 4 6 y k Y 9 %c &d Y 9 l 1 a "2 12 @ *
0x2e1938…2e1acc Dummy {f00=0x00c3, f01=0x0190, f02=»9 l 4 W X Y 9 a S (R) W X 0 "0 #0 $0 &0 (0 *0 ,0 .0 10 40 70 :0 >0 B ( = T l ! - $ x x az eR Dj D 0 ^0 T*0! T A A o A c(A A `
0x2e1acc…2e1c60 Dummy {f00=0x00c3, f01=0x0190, f02=» P ) 8 8 D H LIQ (S#(~@ a(W )S#)~4 a)Aa u bI2$HQ RHT a +R + W ` @a4 % { # | A I2 I W C* W C 4 Ab v 2I28 +R + @b SH ( T I2 ! T #:R I2 I W 4 ! R Ac wW Ad x k 8I2 +R + +! R RW
0x2e1c60…2e1df4 (6, 17) Opaque[0x194]
0x2e1df4…2e1f88 # DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x434b, f01=0x204e, f02=0x1880, f03=0x203d}
0x2e1df4…2e1f88 IdxSect {
0x2e1df4…2e1f88 f00 = 0x00c4 // 0x2e1df4 @0x0
0x2e1df4…2e1f88 f01 = 0x0004 // 0x2e1df6 @0x2
0x2e1df4…2e1f88 gno = [ // 0x2e1df8 @0x4
0x2e1df4…2e1f88 [0x00]: C0x00c4.0x0.0
0x2e1df4…2e1f88 [0x01]: C0x00c7.0x2.0
0x2e1df4…2e1f88 ]
0x2e1df4…2e1f88 }
0x2e1f88…2e211c Dummy {f00=0x00c4, f01=0x0190, f02=» L P EDWRT SPDSSCRN,FMTPIC L P************************************************************************ T L P* * L P* DUMMY FORMAT TO IN
0x2e211c…2e22b0 Dummy {f00=0x00c4, f01=0x0190, f02=» L P************************************************************************ L PFMTPIC FRMT T L P FSL L P FMEL '9',IDNR1
0x2e22b0…2e2444 Dummy {f00=0x00c4, f01=0x0190, f02=» L P FMEL '999',IDNR1 L P FMEL '9999',IDNR1 T L P FMEL '99999',IDNR1 L P FMEL '999999',IDNR1
0x2e2444…2e25d8 Dummy {f00=0x00c4, f01=0x0190, f02=» L P FMEL 'ZZ',IDNR1 P FMEL 'ZZZ',IDNR1 T P FMEL 'ZZZZ',IDNR1 n L P FMEL 'ZZZZZ',IDNR1 L P FMEL 'ZZZZZZ',IDNR1
0x2e25d8…2e276c Dummy {f00=0x00c4, f01=0x0190, f02=» x L P FMEL 'ZZZ9,99',IDNR1 8 L P FMEL 'ZZZ9,99-',IDNR1 P FMEL 'ZZZZ,ZZ',IDNR1 P FMEL 'ZZZZ9,00',I
0x2e276c…2e2900 Dummy {f00=0x00c4, f01=0x0190, f02=»9,99',IDNR1 P FMEL 'ZZZZZ9,99-',IDNR1 D P FMEL 'ZZZZZZ,ZZ',IDNR1 d L P FMEL 'ZZZZZZZZ9,99',IDNR1 L P FMEL 'ZZZZZZZZ9,99-',IDNR1
0x2e2900…2e2a94 (6, 18) Dummy {f00=0x00c7, f01=0x0190, f02=» j P FMEL 'ZZE:ZZ',IDNR1 * & P FMEL 'ZZVZZ9,99',IDNR1 F & P FMEL 'ZZVZZZ,ZZ',IDNR1 p L P FMEL '99E-99E-99',IDNR1 P FMEL 'ZZE-ZZE-ZZ',IDNR1
0x2e2a94…2e2c28 Dummy {f00=0x00c7, f01=0x40da, f02=»NR1 v L P FMEND 6 L P************************************************************************ @ P FMEL 'ZZE-ZZE-ZZ',IDNR1
0x2e2c28…2e2dbc Dummy {f00=0x00c7, f01=0x2008, f02=» **************************************** x L P END 8@ L 'ZZE:ZZE:ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1
0x2e2dbc…2e2f50 Dummy {f00=0x00c7, f01=0x0190, f02=» ^ L P MOVE TDAMOUNT,IDAMT1 L P PERF PAJRN,=W'4' AMOUNT QUOTED n L P MOVE ICTEXT3,ICTEXT2 CURRENCY CODE
0x2e2f50…2e30e4 Dummy {f00=0x00c7, f01=0x0190, f02=» ^ L P* * L P* IF THE AMOUNT QUOTED IS IN A FOREIGN CURRENCY (I.E. AMOUNT IS CLOSED * n L P* WITH A CURRENCY KEY), THEN SWAP IDAMT1 AND IDAMT2. *
0x2e30e4…2e3278 Dummy {f00=0x00c7, f01=0x0190, f02=»RRENCY * ^ L P* * L P TBT SBEOI,DP600 n L P* SWAP IDAMT1 AND IDAMT2 *
0x2e3278…2e340c Dummy {f00=0x00c7, f01=0x0190, f02=» ^ L P MOVE IDAMT2,WDEC1 L P* * n L P* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE *
0x2e340c…2e35a0 Dummy {f00=0x00c7, f01=0x0190, f02=» ^ L P CBE RDPRTTYP,=D'2',DP700 L P PERF PCVCH,=W'3' CURRENCY EXCH. VOUCHER n L P TBT SBCANCEL,DP980
0x2e35a0…2e3734 (6, 19) Opaque[0x194]
0x2e3734…2e38c8 # DirEnt {nam=»FORMIO«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x18f8, f03=0x0005}
0x2e3734…2e38c8 IdxSect {
0x2e3734…2e38c8 f00 = 0x00c7 // 0x2e3734 @0x0
0x2e3734…2e38c8 f01 = 0x0002 // 0x2e3736 @0x2
0x2e3734…2e38c8 gno = [ // 0x2e3738 @0x4
0x2e3734…2e38c8 [0x00]: C0x00c7.0x3.0
0x2e3734…2e38c8 ]
0x2e3734…2e38c8 }
0x2e38c8…2e3a5c Dummy {f00=0x00c7, 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
0x2e3a5c…2e3bf0 Dummy {f00=0x00c7, 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
0x2e3bf0…2e3d84 Dummy {f00=0x00c7, 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
0x2e3d84…2e3f18 Dummy {f00=0x00c7, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x2e3f18…2e40ac Dummy {f00=0x00c7, 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
0x2e40ac…2e4240 Dummy {f00=0x00c7, 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
0x2e4240…2e43d4 (6, 20) Opaque[0x194]
0x2e43d4…2e4568 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x1910, f03=0x0000}
0x2e43d4…2e4568 IdxSect {
0x2e43d4…2e4568 f00 = 0x00c8 // 0x2e43d4 @0x0
0x2e43d4…2e4568 f01 = 0x001e // 0x2e43d6 @0x2
0x2e43d4…2e4568 gno = [ // 0x2e43d8 @0x4
0x2e43d4…2e4568 [0x00]: C0x00c8.0x2.0
0x2e43d4…2e4568 [0x01]: C0x00c8.0x3.0
0x2e43d4…2e4568 [0x02]: C0x00c9.0x0.0
0x2e43d4…2e4568 [0x03]: C0x00c9.0x1.0
0x2e43d4…2e4568 [0x04]: C0x00c9.0x2.0
0x2e43d4…2e4568 [0x05]: C0x00c9.0x3.0
0x2e43d4…2e4568 [0x06]: C0x00ca.0x0.0
0x2e43d4…2e4568 [0x07]: C0x00ca.0x1.0
0x2e43d4…2e4568 [0x08]: C0x00cb.0x2.0
0x2e43d4…2e4568 [0x09]: C0x00cb.0x3.0
0x2e43d4…2e4568 [0x0a]: C0x00cc.0x0.0
0x2e43d4…2e4568 [0x0b]: C0x00cc.0x1.0
0x2e43d4…2e4568 [0x0c]: C0x00cc.0x2.0
0x2e43d4…2e4568 [0x0d]: C0x00cc.0x3.0
0x2e43d4…2e4568 [0x0e]: C0x00cd.0x0.0
0x2e43d4…2e4568 ]
0x2e43d4…2e4568 }
0x2e4568…2e46fc Dummy {f00=0x00c8, f01=0x0190, f02=» . H IDENT FORMIO TRA 10.0 80-08-12 F1 O1111 ZKOPNF ZLCLSF 6 $$$TRAR P ZKOPNF ZLCLSF 6 b . * T:CLOSR T:COMMA T:EDWR0 T:OPENF T:XSTA R FORMFILE
0x2e46fc…2e4890 Dummy {f00=0x00c8, f01=0x0190, f02=» @ B J F " D L DL FL XLj DFX DL WLj D W DLj D DL0X D0X 4 0X 0X 4 1 K j & z 9 " e 99 " e 999 " e 9999 "
0x2e4890…2e4a24 Dummy {f00=0x00c8, f01=0x0190, f02=» " e ZZZ " e ( ZZZZ 8 " e L ZZZZZ " e r ZZZZZZ " e Z9 " e ZZZZ9 " e ZZZ9,99
0x2e4a24…2e4bb8 Dummy {f00=0x00c8, f01=0x0190, f02=» ZZZZ9,99 " e ZZZZ9,99-L ( " e B ZZZZZ9,99L R " e l ZZZZZ9,99- | " e ZZZZZZ,ZZ- " e ZZZZZZZZ9,99 " e ZZZZ
0x2e4bb8…2e4d4c Dummy {f00=0x00c8, f01=0x018e, f02=»99 " e ZZE:ZZ " e 0 ZZVZZ9,99, @ " e Z ZZVZZZ,ZZ, j " e 99E-99E-99 " e ! ZZE-ZZE-ZZ " !e " ZZVZZZVZZ9,99-
0x2e4d4c…2e4ee0 Dummy {f00=0x00c8, f01=0x4048, f02=» " %e ( @X FB C 2@ DZZVZZ9,99, @ " e Z ZZVZZZ,ZZ, j " e 99E-99E-99 " e ! ZZE-ZZE-ZZ " !e " ZZVZZZVZZ9,99-
0x2e4ee0…2e5074 (6, 21) Dummy {f00=0x00c8, f01=0x0190, f02=» . H IDENT FORMAT TRA 10.0 80-11-21 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
0x2e5074…2e5208 Dummy {f00=0x00c8, 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
0x2e5208…2e539c Dummy {f00=0x00c8, f01=0x0190, f02=» ] 0X D FL0RDFT 0X jE ]P R F 0X G F r 0 @ P b t J F " D "F 0R^FF ]Lj] P^ jB ^P CL IG(BC 0X ]I0X ^6W|j]P E 0X ]I ]Lj]
0x2e539c…2e5530 Dummy {f00=0x00c8, f01=0x018e, f02=»P^@ JE0X ]J0 V $ 4 D " T $ d & t ( , . 0 2 6 8 :
0x2e5530…2e56c4 Dummy {f00=0x00c8, f01=0x018e, 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 H D 1X
0x2e56c4…2e5858 Dummy {f00=0x00c8, f01=0x0190, f02=» * d " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x2e5858…2e59ec Dummy {f00=0x00c8, f01=0x0190, f02=» " ; " " " = . " < " J " X " f " t " " " " > " B " G " M " T " W " ]
0x2e59ec…2e5b80 Dummy {f00=0x00c8, f01=0x018e, f02=» " " " & " 4 " B " P " ^ " l " z " " " " " " " " "
0x2e5b80…2e5d14 (6, 22) Dummy {f00=0x00c9, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " " " (
0x2e5d14…2e5ea8 Dummy {f00=0x00c9, f01=0x0190, f02=»SPLAY 01/06/08/20/24 ? & 99 0 " e B ( R q ^ & n & | & *****A @ ; &9 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT & *****S & &
0x2e5ea8…2e603c Dummy {f00=0x00c9, f01=0x0190, f02=» & . * &( $PHILIPS PTS 6344 VISUAL DISPLAY UNIT & $ H & $ V & $ d & $ r & & . * &( $PHILIPS PTS 6344 VISUAL DISPLAY UNIT & $ & $ & $ $ & AVAILABLE
0x2e603c…2e61d0 Dummy {f00=0x00c9, f01=0x0190, f02=»DEFGHIJKLMNO & & " & 0 & PQRSTUVWXYZ[ ]^_ > & `abcdefghijklmno & pqrstuvwxyz{|}~ z & & & NATIONAL VERSION : & & #@[ ]`{|}~ &
0x2e61d0…2e6364 Dummy {f00=0x00c9, f01=0x0190, f02=» OPTIONAL : & , ' &% !24 LINES / 80 CHARACTERS PER LINEN & & ! V & ! d & ! r & & NAME : & @ E & & & ADDRESS :8 & ,@ R &
0x2e6364…2e64f8 Dummy {f00=0x00c9, f01=0x0190, f02=»@ Y & & & ( & BRANCHNR : 6 & N N ZZZZ ` " f t & & ACCOUNTNR :8 & , O ZZZZZZ " e ( &
0x2e64f8…2e668c Dummy {f00=0x00c9, f01=0x0190, f02=»=0,L=1,R=2) ?N x & ! @ 9@ ( " 9 : & J $ & TEP(=0) TTP(=1) GTP(=2) ?R X & ! @ 9@ " : & " & NO(=0),BCR(=1),MSU(=2) ? & ! @ 9@
0x2e668c…2e6820 Dummy {f00=0x00c9, f01=0x018e, f02=»TERMINAL I.D. :M & 999N & " 2E : & J & 8 E X & TERMINAL NAME ?M h & M & 5 & ' & TERMINAL NAME :M & & FRONT OFFICE( 999
0x2e6820…2e69b4 (6, 23) Dummy {f00=0x00c9, f01=0x0190, f02=» 9@ " & & & & SYSTEM CURRENCY CODE ? 4 & ! X & 8 Y f & ! @T v & # & # & TEXT ? & & 8 E & @T & ' & '
0x2e69b4…2e6b48 Dummy {f00=0x00c9, f01=0x0190, f02=» ZZE-ZZE-ZZ " " ( 2 > & N & CURRENCY NAME : & 8 U z & @R & r & r & CURRENCY CODE : & 8 U & @R & s
0x2e6b48…2e6cdc Dummy {f00=0x00c9, f01=0x018e, f02=»& ZZZ9,99- " t ( & 8 & (2) F & X ZZZZ,ZZT j " u & & SELLING RATES :(1) & ZZZ9,99- " v &
0x2e6cdc…2e6e70 Dummy {f00=0x00c9, f01=0x0190, f02=» ZZZZZZ,ZZ1 " x ( . : & J & OPERATOR I.D. :( X & v ZZZZZR " e ( & & OPERATOR NAME :( & 8 P
0x2e6e70…2e7004 Dummy {f00=0x00c9, f01=0x0190, f02=» :( & @ 9@ " 2 & B & P & ^ & l & z & CASH BALANCES :( & & # A & H ZZZZZZZZ9,99-( " H
0x2e7004…2e7198 Dummy {f00=0x00c9, f01=0x0190, f02=» & # & H ! ZZZZZZZZ9,99-( " " ! H @ & ! R & ` & # n & H ~ " ZZZZZZZZ9,99-( " " H & " * & &$ ZEROISE ACCUMULATORS (N=0,Y=1) ? & # @
0x2e7198…2e732c Dummy {f00=0x00c9, f01=0x0190, f02=» & H % ZZZZZZZZ9,99- " % H 8 & % J & CASH WITHDRAWALS : X & x & # A & H & ZZZZZZZZ9,99-S " & H & & & ACCUM. CHEQUES :
0x2e732c…2e74c0 Dummy {f00=0x00c9, f01=0x0190, f02=» & & # C & U " ( ZZZZZZZZ9,99-S 4 " ( U R & ( d & ( r & ( & ( & CURRENCY SOLD : & # U & R ) ZZZZZZZZ9,99- " ) R
0x2e74c0…2e7654 (6, 24) Dummy {f00=0x00c9, f01=0x018e, f02=»& * & CURRENCY ACCUM. : & # U , & R < + ZZZZZZZZ9,99- N " + R l & + ~ & & # & R , ZZZZZZZZ9,99- " , R & , &
0x2e7654…2e77e8 Dummy {f00=0x00c9, f01=0x0190, f02=» & ' & TERMINAL :C & , & 8 E : & 5 J & X & FRONT OFFICE(M f / 999 " /2R & )R & & " 0 999 " 02R & 0 &
0x2e77e8…2e797c Dummy {f00=0x00c9, f01=0x0190, f02=» 2 ZZE-ZZE-ZZ " 2e ( . 3 Q : & 2 J & OPERATOR I.D. : X & v 4 ZZZZZR " 4e & 4 & PASSWORD : & & j & j
0x2e797c…2e7b10 Dummy {f00=0x00c9, f01=0x0190, f02=»OR NAME : & & & CASH BALANCES : . & L & # A Z & j 7 ZZZZZZZZ9,99- x " 7 H & 7 & & # & 8 ZZZZZZZZ9,99- " 8
0x2e7b10…2e7ca4 Dummy {f00=0x00c9, f01=0x0190, f02=» & # & : ZZZZZZZZ9,99- & " : H D & : V . ) &' #PRESS CONT. TO CONFIRM, ELSE CANCELT d & $ S & W ( ; t & W & T/ & 6 & PU
0x2e7ca4…2e7e38 Dummy {f00=0x00c9, f01=0x0190, f02=» & # " & ACCOUNT OR CARD NUMBER : & 8 < ZZZZZZ J " <a ` ( p = $ | & < & < * & &$ PLEASE ENTER REQUIRED FUNCTION: ( > & & Q"L
0x2e7e38…2e7fcc Dummy {f00=0x00c9, f01=0x0190, f02=» ?aP & ? & NAME :U & 2 & D & R & ADDRESS :U ` & x & & & TOWN :U & & & & Q & PASSWO
0x2e7fcc…2e8160 Dummy {f00=0x00c9, f01=0x0190, f02=» CREDIT LIMIT: & E A ZZZZZZZZ9,99 * " A F ( V B b & A r & $ ! & CLOSE SAVINGS ACCOUNT NR : & $ ! & CLOSE CHEQUE ACCOUNT NR : & C 9999
0x2e8160…2e82f4 (6, 25) Dummy {f00=0x00c9, f01=0x0190, f02=» D ZZZZZZZZ9,99- " D U & D . & U < & BOOK BALANCE : L & l & CREDIT LIMIT : z & E ZZZZZZZZ9,99- " E R & E & R & PASSWORD
0x2e82f4…2e8488 Dummy {f00=0x00c9, f01=0x0190, f02=» ( G ! & F ! & A ! * $ & DEPOSIT - SAVINGS ACCOUNT: ! : & ! b $ & DEPOSIT - CHEQUE ACCOUNT:: ! p & ! H 999999 ! " HaE ! & H ! & -E ! & R*E ! & BOOK BAL
0x2e8488…2e861c Dummy {f00=0x00c9, f01=0x0190, f02=»ZZ ! " Je " & " & NAME :Q " ( & " D & " R & " ` & AMOUNT :Q " n & " K ZZZZZZZZZ,ZZ " " K " & K " & NEW BALANCE :Q " & " L
0x2e861c…2e87b0 Dummy {f00=0x00c9, f01=0x0190, f02=» " & # & CHEQUEW # & ACCOUNT:L # , & # D N 999999 # R " NaA # h & N # x & A # & # & - PASSWORD : # & # & # & + # & Q # & NAME
0x2e87b0…2e8944 Dummy {f00=0x00c9, f01=0x0190, f02=» & * $ & BOOK BALANCE: $ & $ 0 O ZZZZZZZZZ,ZZ $ B " Oc $ ^ & $ n & LINE:B $ | & # $ P ZZ $ " Pe $ & $ & CREDIT LIMIT: $ & $ Q ZZZZ
0x2e8944…2e8ad8 Dummy {f00=0x00c9, f01=0x0190, f02=» & R $ & NEW BALANCE : % & % * S ZZZZZZZZZ,ZZ- % 8 " S E % V ( % f T 0 % r & % & Y % & % U Z % " U9 % & % & ` % & OPERATOR START %
0x2e8ad8…2e8c6c Dummy {f00=0x00c9, f01=0x0190, f02=» d L % & DEBLOCK ACCOUNT & & e E & * & UPDATE ACCOUNT & : & f P & V & UPDATE CURRENCY & f & g P & & INQUIRY ACCOUNT & & h N & & DAILY STATEMENT & & i A & & OPERATOR CLOSE &
0x2e8c6c…2e8e00 Dummy {f00=0x00c9, f01=0x0190, f02=»& m U & & LIST ACCOUNTS. ' & ' * & ` I ' 8 & i I ' H & Y I ' X & ' h & ' v V ZZZZZZ ' " V I ' & W I ' & X I ' & ' & ' & ' ( ' W 4
0x2e8e00…2e8f94 (6, 26) Dummy {f00=0x00ca, f01=0x0190, f02=» & ' Y 999999 ( " Y A ( $ & ( 4 Z 99999C ( B " Z=A ( X & ( h [ 999L ( v " [2A ( & ( 99E:99 ( " A ( & W A ( & X A ( & ( & (
0x2e8f94…2e9128 Dummy {f00=0x00ca, f01=0x0190, f02=» ZZZZZZ ( " ^a ) & ) & ) . _ 999999 ) < " _a ) R & _ ) b & + ) p & BOOK BALANCE: ) & ) ` ZZZZZZZZZ,ZZ ) " `c ) & LINE: ) & " ) a
0x2e9128…2e92bc Dummy {f00=0x00ca, f01=0x0190, f02=» & AMOUNT : * & * c ZZZZZZZZZ,ZZ * 2 " c * N & c * ^ & NEW BALANCE : * l & * d ZZZZZZZZZ,ZZ-C * " d E * & d * " & TRANSFER TO ACCOUNT : * & *
0x2e92bc…2e9450 Dummy {f00=0x00ca, f01=0x0190, f02=» & + " & INQUIRY CHEQUE ACCOUNT : + & + 8 g 999999 + F " gaN + & g + l & BALANCE : + z & + h ZZZZZZZZ9,99- + " h A + & h + & A + & BOOK BALANCE :
0x2e9450…2e95e4 Dummy {f00=0x00ca, f01=0x0190, f02=»US : + & , j 9T , " " j T , 4 & j , D ( $ &" LAST TRANS. REQ. (NO=0,YES=1)? , R & @ , ~ k 9@ , " ke , ( , l , & k , $ & TRANSACTION INQUIRY-A/C :S , &
0x2e95e4…2e9778 Dummy {f00=0x00ca, f01=0x0190, f02=» /R , o 99999T - " o R - " & /R - 2 p 999999 - B " p R - X & /R - h q 99E-99E-99 - x " q R - & q - & AMOUNT : - & - r ZZZZZZZZ9,99- - " r M -
0x2e9778…2e990c Dummy {f00=0x00ca, f01=0x0190, f02=»NO=0,YES=1)? - x & @ . t 9@ . & " te . 8 ( . H u # . T & t . d & C . r & c . & " & BLOCK SAVINGS ACCOUNT NR. : . & a . & " & DEBLOCK SAVINGS ACCOUNT NR.: . & A . & c .
0x2e990c…2e9aa0 Dummy {f00=0x00ca, f01=0x0190, f02=» " vaE / & v / & NAME : / " & / : & / H & / V & CURRENT BALANCE :C / d & / w ZZZZZZZZ9,99- / " w U / & w / & U / & BOOK BALANCE :C / & /
0x2e9aa0…2e9c34 (6, 27) Dummy {f00=0x00ca, f01=0x0190, f02=» " y R 0 & y 0 & 8 R 0 " & COMMENT :M 0 2 & @ @M 0 J & 0 & ! 0 j * % &# PRESS CONT TO CONFIRM ELSE CANC 0 x ( 0 z , 0 & 0 , ( && "MOUNT PASS-BOOK IN VOUCHER-PRINTER 0 & $
0x2e9c34…2e9dc8 Dummy {f00=0x00ca, f01=0x0190, f02=» ( 1 | 1 & 1 } ZZZZZZ 1 . " } 1 D & 1 T ~ ZZZZZZ 1 b " ~a 1 x & 1 & ** CLOSED ** 1 ( 1 1 & 1 & !* 1 & # &! UPDATE SAVINGS ACCOUNT
0x2e9dc8…2e9f5c Dummy {f00=0x00ca, f01=0x018e, f02=» & NAME :E 1 & 2 & 8 A 2 & & @ 2 6 & 2 H & 2 V & ADDRESS :E 2 d & 2 | & 8 D 2 & @ 2 & 2 & 2 & TOWN :E 2 & 2 & 8 O 2 & @
0x2e9f5c…2ea0f0 Dummy {f00=0x00ca, f01=0x0190, f02=» & 3 & CREDIT LIMIT : 3 & D 3 . ZZZZZZZZ9,99-C 3 @ " 3 ^ ( 3 n > 3 z & 3 & ! 3 & # &! UPDATE SAVINGS ACCOUNT NR. : 3 & 3 & # &! UPDATE CHEQUE ACCOUNT NR. : 3
0x2ea0f0…2ea284 Dummy {f00=0x00ca, f01=0x0190, f02=» ZZZZZZZZ9,99 3 " 4 & LINE: 4 & & " 4 : 99 4 L " 4 ^ & 4 n & CREDIT LIMIT: 4 | & D 4 ZZZZZZZZ9,99-C 4 " 4 & 4 & BALANCE : 4 &
0x2ea284…2ea418 Dummy {f00=0x00ca, f01=0x0190, f02=» " 4 & 5 & 5 & LAST TRANSACTION : 5 , & 5 P 99 5 b " 5 t & 5 & LAST PRINTED : 5 & 5 99 5 " 5 & 5 & ACCUM. DEP
0x2ea418…2ea5ac Dummy {f00=0x00ca, f01=0x0190, f02=» U 5 ZZZZZZZZ9,99 6 " 6 * ( 6 : * 6 F & 6 V * & &$ MOUNT VOUCHER IN VOUCHER-PRINTER 6 d & " N 6 & m 6 ( 6 < 6 & m 6 & m 6 & ACC. 6 & 6
0x2ea5ac…2ea740 Dummy {f00=0x00ca, f01=0x0190, f02=» 6 & ST 7 ( 7 7 $ & 7 4 & CURRENCY NAME : 7 B & 7 ` & r 7 n & r 7 | & CURRENCY CODE : 7 & 7 & s 7 & 7 & REL.: 7 & 7 ZZZZ9Y 7
0x2ea740…2ea8d4 (6, 28) Dummy {f00=0x00cb, f01=0x0190, f02=» (2)I 7 & 8 ZZZ9,99T 8 " u2 8 4 & 8 D & SELLING RATES :(1) 8 R & 8 r ZZZ9,99- 8 " vE 8 & 8 & (2)L 8 & 8 ZZZ9,99A 8 " w2 8 & 8
0x2ea8d4…2eaa68 Dummy {f00=0x00cb, f01=0x0190, f02=» CURRENCY EXCHANGE 8 & U 9 & (SELLING)E 9 , & 9 D & (BUYING) 9 R & 9 h & RATE:N 9 v & 9 & # A 9 & 9 & A 9 ZZZZ9,99 9 " vA 9 & 9 ZZZZ
0x2eaa68…2eabfc Dummy {f00=0x00cb, f01=0x0190, f02=» & AMOUNT QUOTED :G : & : " & j : 0 & : > ZZZZZZZZZ,ZZ : P " c : l & : | & AMOUNT CALCUL.:G : & : & k : & : ZZZZZZZZZ,ZZ : " dM : & :
0x2eabfc…2ead90 Dummy {f00=0x00cb, f01=0x018e, f02=» : & CASH BALANCES : ; & ; ( & # A ; 6 & ; F ZZZZZZZZ9,99- ; T " H ; r & ; & ; & # ; & ; ZZZZZZZZ9,99- ; " H ; & ; & ;
0x2ead90…2eaf24 Dummy {f00=0x00cb, f01=0x0190, f02=» ZZZZZZZZ9,99- < " H < " & < 4 & CHEQUE BALANCE : < B & < b & # H < p & < ZZZZZZZZ9,99- < " Q < & < , ' &% !PRESS CONT TO CONFIRM ELSE CANCELR < ( <
0x2eaf24…2eb0b8 Dummy {f00=0x00cb, f01=0x0190, f02=» " IR < & = & = & # R = , & = < ZZZZZZZZ9,99- = J " S = h & = z & = & # = & = ZZZZZZZZ9,99- = " S = & = & = & #
0x2eb0b8…2eb24c Dummy {f00=0x00cb, f01=0x0190, f02=» U = & > ZZZZZZZZ9,99- > " JU > 6 ( > F T > R & > b & > p 999999 > ~ " > & > & > 99E-99E-99 > " > & > & >
0x2eb24c…2eb3e0 Dummy {f00=0x00cb, f01=0x0190, f02=» TRANSFER > & ? 99E-99E-99 ? " R ? : & * ? J ZZZVZZZVZZZ,ZZ ? X " cR ? v & = ? ZZZVZZZVZZZ,ZZ ? " dR ? ( ? M ? & ? & &&R ? , ( && "MOUNT
0x2eb3e0…2eb574 (6, 29) Dummy {f00=0x00cb, f01=0x0190, f02=» ( # &! MOUNT DAILY-STATEMENT-VOUCHERN @ ( @ 0 @ < & @ L $ & MOUNT A4-SHEET IN PRINTERC @ Z ( @ B @ & @ & Z O @ & @ & [ O @ & @ & O @ & @
0x2eb574…2eb708 Dummy {f00=0x00cb, f01=0x0190, f02=»( @ " A & A & A ( $ & AVAILABLE CHARACTER SETS: A 6 ( A ^ V A j & A z & A & SPECIAL CHARACTERS : A & A & 0 1 2 3 4 5 6 7 8 9 A " & : ; < 0 1 2 3 4 5 6S A
0x2eb708…2eb89c Dummy {f00=0x00cb, f01=0x0190, f02=»" < A & B & TERMINAL I.D. : B & B : 999N B H " 2E B & B l & TERM.NAME :D B z & B & FRONT OFFICE( B 999 B " 2R B & )R B ( B B
0x2eb89c…2eba30 Dummy {f00=0x00cb, f01=0x0190, f02=» B ZZZZZZZZ9,99- C " H C ( & C : & CASH BALANCE : C H & C d & # A C r & C ZZZZZZZZ9,99- C " H C & C & CASH BALANCE : C & C & # A C
0x2eba30…2ebbc4 Dummy {f00=0x00cb, f01=0x0190, f02=»& C ZZZZZZZZ9,99- D " H D * & D < * % &# PRESS CONT TO CONFIRM ELSE CANCE D J & S D x & W D ( D D & W D & D $ & WITHDRAWAL - SAVINGS ACC.: D & D $
0x2ebbc4…2ebd58 Dummy {f00=0x00cb, f01=0x0190, f02=» & - PASSWORD : D & E & E * & ' E 8 & Q E F & NAME : E V & E j & E x & E & E & - CHEQUE NR. : E & E & _ E & _ E & ) E & BOOK BALAN
0x2ebd58…2ebeec Dummy {f00=0x00cb, f01=0x0190, f02=» E " e F & F & CREDIT LIMIT:: F & & F B ZZZZZZZZ9,99 F P " R F l & F | & AMOUNT :: F & F ZZZZZZZZZ,ZZ F " F & F & NEW BALANCE :: F
0x2ebeec…2ec080 Dummy {f00=0x00cb, f01=0x0190, f02=»: F t & T R G & G ZZZZZZ G , " a G B & G R & G ` 999999 G n " a G & G & , G & BOOK BALANCE: G & G ZZZZZZZZZ,ZZ G " c G
0x2ec080…2ec214 (6, 30) Dummy {f00=0x00cc, f01=0x0190, f02=» G ZZZZZZZZ9,99 H " R H & & H 6 & AMOUNT : H D & H ` ZZZZZZZZZ,ZZ H r " H & H & NEW BALANCE : H & H ZZZZZZZZZ,ZZ-C H " E H &
0x2ec214…2ec3a8 Dummy {f00=0x00cc, f01=0x0190, f02=» H & CURRENCY NAME : I & I ( & r I 6 & r I D & CURRENCY CODE : I R & I p & s I ~ & I & REL.: I & I ZZZZ9Y I " yE I & I & BUYING RATES :(1)N
0x2ec3a8…2ec53c Dummy {f00=0x00cc, f01=0x0190, f02=» ZZZ9,99T I " uU J & J ( & SELLING RATES:(1)N J 6 & J V ZZZ9,99- J d " vE J | & J & SELLING RATE :(2)N J & J ZZZ9,99A J " wE J & J & LIMI
0x2ec53c…2ec6d0 Dummy {f00=0x00cc, f01=0x0190, f02=» :N J ~ & K & # A K & K , ZZZZZZZZ9,99- K : " H K X & K j & CASH BALANCE : K x & K & # A K & K ZZZZZZZZ9,99- K " H K & K & CASH
0x2ec6d0…2ec864 Dummy {f00=0x00cc, f01=0x018e, f02=»ALANCE : K & L & # A L & L . ZZZZZZZZ9,99- L < " H L Z & L l & CHEQUE BALANCE: L z & L & # H L & L ZZZZZZZZ9,99- L " Q L & L * % &#
0x2ec864…2ec9f8 Dummy {f00=0x00cc, f01=0x0190, f02=» L & M ZZZZZZZZ9,99-O M " IR M 4 & M D & GROSS TURNOVER:O M R & M p & # R M ~ & M ZZZZZZZZ9,99-O M " S M & M & GROSS TURNOVER:O M & M
0x2ec9f8…2ecb8c Dummy {f00=0x00cc, f01=0x0190, f02=»& # R M & N ZZZZZZZZ9,99-O N " S N : & N L & CURR. TURNOVER:O N Z & N x & # U N & N ZZZZZZZZ9,99-O N " JU N ( N N & N & VALUE
0x2ecb8c…2ecd20 Dummy {f00=0x00cc, f01=0x018e, f02=»& I/O ERRORO N ( O O " & O 2 " & ILLEGAL END-OF-ITEM KEYL O @ ( O f O r & O & FIELD MUST BE ENTEREDE O ( O O & O & DISK ERROR O ( O
0x2ecd20…2eceb4 (6, 31) Dummy {f00=0x00cc, f01=0x0190, f02=» O P & P & VALUE MUST BE ZERO P & ( P F P R & P b & UNSERVICEABLE REQUESTL P p ( P P & P & INVALID COMPARISON P ( P P & P
0x2eceb4…2ed048 Dummy {f00=0x00cc, f01=0x018e, f02=» & Q & WRONG PASSWORD Q ( Q . % Q : & Q J , ( && "TERMINAL BLOCKED - CALL SUPERVISOR Q X ( Q Q & " Q & ACCOUNT BLOCKEDD Q ( Q Q & Q & RECORD K
0x2ed048…2ed1dc Dummy {f00=0x00cc, f01=0x0190, f02=» Q & INPUT DEVICE FAILURE R ( R * % R 6 & R F , ( && "REQUIRED DEVICE TYPE NOT SPECIFIED R T ( R R & " R & SAVINGS ACCOUNT R ( R R & R & INSUFFICIENT
0x2ed1dc…2ed370 Dummy {f00=0x00cc, f01=0x0190, f02=»LANCE NOT ZERO R & S ZZZZZZZZ9,99-O S $ " A S B ( S R S ^ & S n & NO TRANSACTIONSO S | ( S S & S " & NO TRANSACTIONS POSSIBLE S ( S S
0x2ed370…2ed504 Dummy {f00=0x00cc, f01=0x018e, f02=» S h ( T # T & " T $ * & &$ OPEN FORMAT-FILE NOT SUCCESSFULL T 2 ( T ` G T l & T | , ( && "MORE THAN 6 LANGUAGE-NUMBERS TRIED T & " T * % &# PERHAPS NO FREE LANGUAGE-NUMBERI T ( T
0x2ed504…2ed698 Dummy {f00=0x00cc, f01=0x0190, f02=» & U & PRESS CONTINUE U ( U . 4 U : & U J $ ! & I/O ERROR WHILE READING OR U X & U & WRITING FORMAT-FILED U ( U % U & U , ( && "PGM "FORMAT" SUCCESSFULLY EXECUTED U
0x2ed698…2ed82c Dummy {f00=0x00cc, f01=0x401e, f02=» U T V @ V
0x2ed82c…2ed9c0 Dummy {f00=0x00cc, f01=0xc0d2, f02=»&& "PGM "FORMAT" SUCCESSFULLY EXECUTED V ( W . W : 1 W J $ G W ( W l @ < : GD G G ID0X ] I0X D FL0RDFT 0X H HLQ_e0X G 4 W x W @ W CONTINUE V ( V 4 V & V
0x2ed9c0…2edb54 (6, 32) Dummy {f00=0x00cc, f01=0x2008, f02=» L = SSTS35 DATE = 80 01 21 1215PACK NBR = 0035 f
0x2edb54…2edce8 Dummy {f00=0x00cc, f01=0x4114, f02=» < H IDENT U:UT10 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION U:UT10 D U:UT10U V * & j * & = * P = P
0x2edce8…2ede7c Dummy {f00=0x00cc, f01=0x40d2, f02=» < H IDENT D:UT10 TRA 10.0 80-08-21 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
0x2ede7c…2ee010 Dummy {f00=0x00cc, f01=0x4114, f02=» < H IDENT U:UT20 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION U:UT20 D U:UT20U V * & j * & = * P = P
0x2ee010…2ee1a4 Dummy {f00=0x00cc, f01=0x40d2, f02=» < H IDENT D:UT20 TRA 10.0 80-08-21 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
0x2ee1a4…2ee338 Dummy {f00=0x00cc, f01=0x40d6, f02=» < H IDENT C:CK10 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION " C:CK10 " D C:CK10C " V * & d " j " ( " ( " @ " * P = P
0x2ee338…2ee4cc Dummy {f00=0x00cc, f01=0x40ee, f02=» < H IDENT D:CK10 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION # D:CK10 # D D:CK10C # V * & > # j * & 0 0 0 0 0 # = # > # @ # P = P
0x2ee4cc…2ee660 Dummy {f00=0x00cc, f01=0x410c, f02=» < H IDENT C:CK20 TRA 10.0 80-08-21 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 $ @
0x2ee660…2ee7f4 (6, 33) Dummy {f00=0x00cc, f01=0x40ee, f02=» < H IDENT D:CK20 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION % D:CK20 % D D:CK20C % V * & > % j * & % = % > % @ % $ = H $ @
0x2ee7f4…2ee988 Dummy {f00=0x00cc, f01=0x40c0, f02=» < H IDENT U:UQQ0 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION & U:UQQ0 & D U:UQQ0U & V ( $ & j & & @ &
0x2ee988…2eeb1c Dummy {f00=0x00cc, f01=0x40aa, f02=» < H IDENT D:UQQ0 TRA 10.0 80-08-21 F1 O1111 DATA DIVISION ' D:UQQ0 ' D D:UQQ0U ' V & " 0 0 0 ' j :U ' @ ' & @ &
0x2eeb1c…2eecb0 Dummy {f00=0x00cc, f01=0x0190, f02=» IDENT P:MTAB ( P:MTAB ( " P:MTAB ( 4 T:ATAB ( H U:BTAB ( Z I:NTPA ( l P:BAS ( ~ T:BAT ( T:CAT ( T:PAT ( T:LIT ( , ( ( T:KEY (
0x2eecb0…2eee44 Dummy {f00=0x00cc, f01=0x4036, f02=» 'P ( 4 ) @ ) 2 P:MTAB ( 4 T:ATAB ( H U:BTAB ( Z I:NTPA ( l P:BAS ( ~ T:BAT ( T:CAT ( T:PAT ( T:LIT ( , ( ( T:KEY (
0x2eee44…2eefd8 Dummy {f00=0x00cc, 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 * AAMAIN * ` AAMAIN * r P:BAS * * & 0 1 1 0 W " * * & " E E E 1 1 ,0 0 * * & = 0
0x2eefd8…2ef16c Dummy {f00=0x00cc, f01=0x0190, f02=»C 0 ]I0 ^6W|j]P E * ~ * & 0 ]I ] j] P^P JE @P @PjB ^@ + * & (BC 0 ]J E _i E j]P E 0 ]J ] + J * & j] P^@ JE0 ]J0 E _ j]P E + x * & 0 0 ] 0 W 0 1 1 3W&1 + * & - 1 <W 1 1 7W 1 1 ;W 1 + * & K
0x2ef16c…2ef300 Dummy {f00=0x00cc, f01=0x0190, f02=» H H Q_e0 G 4 D F X + * & j DFX D W j D W D j D D , * & " 0 D0 4 0 0 4 1 B , X T:CAT , T:DSC0 , T:EDWR , T:KI , T:NKI , T:USE , T:DREA , T:XSTA ,
0x2ef300…2ef494 (6, 34) Dummy {f00=0x00cd, f01=0x018e, f02=» T:RSTA , T:EXIT - T:OPEN - $ , ( - 6 T:CLOS - f - x T:BAT - T:PAT - * & U B - * & ; 1DSC001FORMFILE 9Z99Z9ZZ999 -
0x2ef494…2ef628 Dummy {f00=0x00cd, f01=0x40aa, f02=» < H IDENT D:UQQ0 TRA 10.0 80-08-20 F1 O1111 DATA DIVISION ' D:UQQ0 ' D D:UQQ0U ' V & " 0 0 0 ' j :U ' @ ' & @ &
0x2ef628…2ef7bc Dummy {f00=0x00cd, f01=0x0190, f02=» IDENT P:MTAB ( P:MTAB ( " P:MTAB ( 4 T:ATAB ( H U:BTAB ( Z I:NTPA ( l P:BAS ( ~ T:BAT ( T:CAT ( T:PAT ( T:LIT ( , ( ( T:KEY (
0x2ef7bc…2ef950 Dummy {f00=0x00cd, f01=0x4036, f02=» 'P ( 4 ) @ ) 2 P:MTAB ( 4 T:ATAB ( H U:BTAB ( Z I:NTPA ( l P:BAS ( ~ T:BAT ( T:CAT ( T:PAT ( T:LIT ( , ( ( T:KEY (
0x2ef950…2efae4 Dummy {f00=0x00cd, 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 * AAMAIN * ` AAMAIN * r P:BAS * * & 0 1 1 0 W " * * & " E E E 1 1 .0 0 * * & = 0
0x2efae4…2efc78 Dummy {f00=0x00cd, f01=0x0190, f02=»C 0 ]I0 ^6W|j]P E * ~ * & 0 ]I ] j] P^P JE @P @PjB ^@ + * & (BC 0 ]J E _i E j]P E 0 ]J ] + J * & j] P^@ JE0 ]J0 E _ j]P E + x * & 0 0 ] 0 W 0 1 1 1W&1 + * & - 1 =W 1 1 8W 1 1 ;W 1 + * & K
0x2efc78…2efe0c Dummy {f00=0x00cd, f01=0x0190, f02=» H H Q_e0 G 4 D F X + * & j DFX D W j D W D j D D , * & " 0 D0 4 0 0 4 1 A , X T:CAT , T:DSC0 , T:EDWR , T:KI , T:NKI , T:USE , T:DREA , T:XSTA ,
0x2efe0c…2effa0 Dummy {f00=0x00cd, f01=0x018e, f02=» T:RSTA , T:EXIT - T:OPEN - $ , ( - 6 T:CLOS - f - x T:BAT - T:PAT - * & U B - * & ; 1DSC001FORMFILE 9Z99Z9ZZ999 -
0x2effa0…2f0134 (6, 35) Opaque[0x194]
0x2f0134…2f02c8 # DirEnt {nam=»FORMAT«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x19a8, f03=0x0000}
0x2f0134…2f02c8 IdxSect {
0x2f0134…2f02c8 f00 = 0x00cd // 0x2f0134 @0x0
0x2f0134…2f02c8 f01 = 0x0002 // 0x2f0136 @0x2
0x2f0134…2f02c8 gno = [ // 0x2f0138 @0x4
0x2f0134…2f02c8 [0x00]: C0x00cd.0x1.0
0x2f0134…2f02c8 ]
0x2f0134…2f02c8 }
0x2f02c8…2f045c Dummy {f00=0x00cd, f01=0x0018, f02=» FORMAT,HJFORMAT
0x2f045c…2f05f0 Dummy {f00=0x00cd, f01=0x2008, f02=» AT,HJFORMAT
0x2f05f0…2f0784 Dummy {f00=0x00cd, f01=0x40de, f02=» F0 , ( ) , ( 9 " $ & P , ( I ( * , . 0 2 4 6 Y 8 : I @ U * & 1 P
0x2f0784…2f0918 Dummy {f00=0x00cd, f01=0x40c4, f02=» * F IDENT T:DF00 TRA 3.2 27-03- O111 T:DF00 2 T:DF00D D AAMAIN X * & F0 0 * . j @ " @ I @ U * & 1 P
0x2f0918…2f0aac Dummy {f00=0x00cd, f01=0x0190, f02=» * F IDENT T:AG00 TRA 3.2 27-03- O111 T:AG00 2 T:AG00A D > : T:DG00 D:CW10 C:CW10 D:CSY0 C:CSY0 D:TRM0 Z:TRM0 X > : D:TSP0A Z:TSP0A D:UBF07 U:UBF0O D:UIF0 U:UIF0 D:UCY0 > : U:UCY0 D:UOP0 U:UOP0 D:UA10 U:UA10 D
0x2f0aac…2f0c40 Dummy {f00=0x00cd, f01=0x0190, f02=» r * & * & = > * & [ l * & y " W p [ * & 2 U * & 1 P
0x2f0c40…2f0dd4 (6, 36) Opaque[0x194]
0x2f0dd4…2f0f68 # DirEnt {nam=»NEDDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x19b0, f03=0x0000}
0x2f0dd4…2f0f68 IdxSect {
0x2f0dd4…2f0f68 f00 = 0x00cd // 0x2f0dd4 @0x0
0x2f0dd4…2f0f68 f01 = 0x004c // 0x2f0dd6 @0x2
0x2f0dd4…2f0f68 gno = [ // 0x2f0dd8 @0x4
0x2f0dd4…2f0f68 [0x00]: C0x00cd.0x2.0
0x2f0dd4…2f0f68 [0x01]: C0x00cd.0x3.0
0x2f0dd4…2f0f68 [0x02]: C0x00ce.0x0.0
0x2f0dd4…2f0f68 [0x03]: C0x00ce.0x1.0
0x2f0dd4…2f0f68 [0x04]: C0x00ce.0x2.0
0x2f0dd4…2f0f68 [0x05]: C0x00ce.0x3.0
0x2f0dd4…2f0f68 [0x06]: C0x00cf.0x0.0
0x2f0dd4…2f0f68 [0x07]: C0x00cf.0x1.0
0x2f0dd4…2f0f68 [0x08]: C0x00cf.0x2.0
0x2f0dd4…2f0f68 [0x09]: C0x00cf.0x3.0
0x2f0dd4…2f0f68 [0x0a]: C0x00d0.0x0.0
0x2f0dd4…2f0f68 [0x0b]: C0x00d0.0x1.0
0x2f0dd4…2f0f68 [0x0c]: C0x00d0.0x2.0
0x2f0dd4…2f0f68 [0x0d]: C0x00d0.0x3.0
0x2f0dd4…2f0f68 [0x0e]: C0x00d1.0x0.0
0x2f0dd4…2f0f68 [0x0f]: C0x00d1.0x1.0
0x2f0dd4…2f0f68 [0x10]: C0x00d1.0x2.0
0x2f0dd4…2f0f68 [0x11]: C0x00d1.0x3.0
0x2f0dd4…2f0f68 [0x12]: C0x00d2.0x0.0
0x2f0dd4…2f0f68 [0x13]: C0x00d2.0x1.0
0x2f0dd4…2f0f68 [0x14]: C0x00d2.0x2.0
0x2f0dd4…2f0f68 [0x15]: C0x00d2.0x3.0
0x2f0dd4…2f0f68 [0x16]: C0x00d3.0x0.0
0x2f0dd4…2f0f68 [0x17]: C0x00d3.0x1.0
0x2f0dd4…2f0f68 [0x18]: C0x00d3.0x2.0
0x2f0dd4…2f0f68 [0x19]: C0x00d3.0x3.0
0x2f0dd4…2f0f68 [0x1a]: C0x00d4.0x0.0
0x2f0dd4…2f0f68 [0x1b]: C0x00d4.0x1.0
0x2f0dd4…2f0f68 [0x1c]: C0x00d4.0x2.0
0x2f0dd4…2f0f68 [0x1d]: C0x00d4.0x3.0
0x2f0dd4…2f0f68 [0x1e]: C0x00d5.0x0.0
0x2f0dd4…2f0f68 [0x1f]: C0x00d5.0x1.0
0x2f0dd4…2f0f68 [0x20]: C0x00d5.0x2.0
0x2f0dd4…2f0f68 [0x21]: C0x00d5.0x3.0
0x2f0dd4…2f0f68 [0x22]: C0x00d6.0x0.0
0x2f0dd4…2f0f68 [0x23]: C0x00d6.0x1.0
0x2f0dd4…2f0f68 [0x24]: C0x00d6.0x2.0
0x2f0dd4…2f0f68 [0x25]: C0x00d6.0x3.0
0x2f0dd4…2f0f68 ]
0x2f0dd4…2f0f68 }
0x2f0f68…2f10fc Dummy {f00=0x00cd, 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
0x2f10fc…2f1290 Dummy {f00=0x00cd, 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
0x2f1290…2f1424 Dummy {f00=0x00cd, 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,FMTDUM, C , P FMTDUM,F
0x2f1424…2f15b8 Dummy {f00=0x00cd, f01=0x0190, f02=»FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM, C ( P FMTDUM,FMTDUM,FMTDUM,FMTDUM,FMTDUM . P* Z P* d PFMTDUM FRMT n P FSL P FTEXT 'NOG NIET IN GEBRUIK' P FKI 25 P FCOPY ICDUMMY P FMEND L P**********************************
0x2f15b8…2f174c Dummy {f00=0x00cd, f01=0x0190, f02=»EN PARAMETER * * F L P************************************************************************ P PFMT011 FRMT FSL $ P FTEXT 'SCHERM 01/06/08/20/24 ?' 8 P FKI 32,ME,MINL=1,MAXL=2,NUM,NCL
0x2f174c…2f18e0 Dummy {f00=0x00cd, f01=0x018e, f02=»** J L P* * L P* DEMONSTRATE VIDEO SCREEN * Z L P* * L P**************
0x2f18e0…2f1a74 (6, 37) Dummy {f00=0x00cd, f01=0x018e, f02=» < P FTEXT 'DEMONSTRATIE VAN PHILIPS PTS 6346 BEELDSCHERM ' P FTEXT '*********' D FNL ^ FNL j P FLOW v P FTAB 16 * P FTEXT 'PHILIPS PTS 6346 BEELDSCHERM' P FNL P FNL P FHIGH P FTAB 16 P FUL
0x2f1a74…2f1c08 Dummy {f00=0x00cd, f01=0x0190, f02=» * P FTEXT 'PHILIPS PTS 6346 BEELDSCHERM' P FNUL 2 FNL @ FNL L " P FTEXT 'BESCHIKBARE TEKENS :' X P FNL ~ P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2E2F' . P FTEXT X'303132333435363738393A3B3C3D3E3F' .
0x2f1c08…2f1d9c Dummy {f00=0x00cd, f01=0x0190, f02=»65758595A5B5C5D5E5F' n . P FTEXT X'606162636465666768696A6B6C6D6E6F' . P FTEXT X'707172737475767778797A7B7C7D7E7F' N P FNL P FLOW " P FTEXT 'NEDERLANDSE VERSIE :' P FHIGH " P FTEXT X'23405B5C5D607B7C7D7E' P FNL
0x2f1d9c…2f1f30 Dummy {f00=0x00cd, f01=0x0190, f02=»L' Z P FNL P FLOW P FTEXT 'NAAR KEUZE : ' 4 P FHIGH T < P FTEXT '24 REGELS / 80 CHARACTERS PER REGEL' j P FLOW P FNL P FNL P FTAB 5 P FTEXT
0x2f1f30…2f20c4 Dummy {f00=0x00cd, f01=0x018e, f02=»ADRES :' * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACADDRES B P FNL d P FTAB 5 x P FTEXT 'POSTCODE :' 0 P FKI 16,MINL=4,MAXL=7,ALPHA,NEOI P FCOPY WCSTRG12 P
0x2f20c4…2f2258 Dummy {f00=0x00cd, f01=0x0190, f02=» P FTAB 5 P FTEXT 'KANTOORNR:' " P FKI 16,MINL=4,MAXL=4,ME,NEOI 4 P FMEL 'ZZZZ',IDNR2 Z P FTAB 32 t P FTEXT 'REKENINGNR :' P FKI 44,MAXL=6,ME,NEOI P FMEL 'ZZZZZZ',IDNR1 P FMEND L P******************************
0x2f2258…2f23ec Dummy {f00=0x00cd, f01=0x0190, f02=»INAL SPECIFICATION * L P* * J L P************************************************************************ PFMT013 FRMT P FSL *
0x2f23ec…2f2580 Dummy {f00=0x00cd, f01=0x0190, f02=» . P FTEXT 'GEDEELDE PRINTER (N=0,L=1,R=2) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 6 P FMEL '9',RDSHRPRT l P FNL & P FTEXT 'TEP(=0) TTP(=1) GTP(=2) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDPRTTYP
0x2f2580…2f2714 (6, 38) Dummy {f00=0x00ce, f01=0x0190, f02=» FNL P FTEXT 'ODR (N=0,J=1) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 , P FMEL '9',RDODR b P FNL z P FTEXT 'TERMINAL NUM. :' P FTAB 31 P FMEL '999',NDTRMNR P FNL P FBZ RDALFKB,F01310 P FTEXT 'TERMIN
0x2f2714…2f28a8 Dummy {f00=0x00ce, f01=0x0190, f02=»AAM :' ~ P FTAB 17 P FTEXT 'FRONT OFFICE(' P FMEL '999',NDTRMNR < P FTEXT ')' X PF01390 j P FMEND x L P************************************************************************ L P*
0x2f28a8…2f2a3c Dummy {f00=0x00ce, f01=0x018e, f02=» * v L P************************************************************************ 6 & PFMT014 FRMT SYSTEM START - PART 2 L P FSL ***************************** & P FTEXT '
0x2f2a3c…2f2bd0 Dummy {f00=0x00ce, f01=0x0190, f02=» P FNL $ P FTEXT 'SYSTEEM VALUTA KODE ? ' T P FTAB 33 @ P FBZ RDALFKB,F01410 8 P FKI 33,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01410 P F
0x2f2bd0…2f2d64 Dummy {f00=0x00ce, f01=0x0190, f02=» Z P FBZ RDALFKB,F01420 " : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR > PF01420 | P FCOPY YCTEXT P FNL P FTEXT 'TIJD (UUMM) ? ' T P FKI 22,ME,MINL=4,MAXL=4,NUM,NEOI,REWRT
0x2f2d64…2f2ef8 Dummy {f00=0x00ce, f01=0x0190, f02=» FNL P FTEXT 'DATUM (DDMMJJ) ? ' @ 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
0x2f2ef8…2f308c Dummy {f00=0x00ce, f01=0x0190, f02=» * Z L P* * L P************************************************************************ j ( PFMT015 FRMT CURRENCY INITIALISATION L P FSL
0x2f308c…2f3220 Dummy {f00=0x00ce, f01=0x018e, f02=»1,MAXL=20,ALPHA,NEOI,NCLR t PF01510 " P FCOPY CCCCYNME 0 P FNL R P FTEXT 'VALUTAKODE : ' f P FBZ RDALFKB,F01520 8 P FKI 17,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01520 P FCOPY CCCCYCDE
0x2f3220…2f33b4 (6, 39) Dummy {f00=0x00ce, f01=0x0190, f02=» N $ P FMEL 'ZZZZ9',CDRELAT P FNL 0 P FTEXT 'INKOOPKOERSEN :(1)' D D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=28 h & P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 P FTEXT '
0x2f33b4…2f3548 Dummy {f00=0x00ce, f01=0x0190, f02=» FTEXT 'VERKOOPKOERSEN:(1)' D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 , & P FMEL 'ZZZ9,99-',CDSEL1 t P FTAB 27 P FTEXT '(2)' D P FKI 30,ME,MINL=1,MAXL=6,NUM,NEOI,NC
0x2f3548…2f36dc Dummy {f00=0x00ce, f01=0x0190, f02=»MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT r P FMEL 'ZZZZZZ,ZZ',CDLIMIT * P FMEND L L P************************************************************************ b L P* * L P* GET
0x2f36dc…2f3870 Dummy {f00=0x00ce, f01=0x0190, f02=» * R L P************************************************************************ L PFMT016 FRMT OPERATOR IDENTIFICATION b L P FSL L P FTEXT
0x2f3870…2f3a04 Dummy {f00=0x00ce, f01=0x0190, f02=»IDNR1 L P FMEND @ L P************************************************************************ L P*
0x2f3a04…2f3b98 Dummy {f00=0x00ce, f01=0x0190, f02=» * L P************************************************************************ @ ( PFMT017 FRMT OPERATOR SPECIFICATION L P FSL
0x2f3b98…2f3d2c Dummy {f00=0x00ce, f01=0x018e, f02=»8,NCLR,NEOI,ALPHA x PF01710 > L P FCOPY OCNAME L L P FNL L P FTEXT 'WACHTWOORD :'
0x2f3d2c…2f3ec0 Dummy {f00=0x00ce, f01=0x0190, f02=» L P FCOPY OCPASS L P FNL T L P FTEXT 'TAAL :' R P FKI 17,ME,MINL=1,MA
0x2f3ec0…2f4054 (6, 40) Dummy {f00=0x00ce, f01=0x0190, f02=» J L P FNL L P FNL Z P FNL L P FNL L P F
0x2f4054…2f41e8 Dummy {f00=0x00ce, f01=0x0190, f02=» V P FTAB 20 L P FCOPY YCCCY(KW4) & P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT v R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x2f41e8…2f437c Dummy {f00=0x00ce, f01=0x0190, f02=»W1) P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT @ R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) L P FNL
0x2f437c…2f4510 Dummy {f00=0x00ce, f01=0x0190, f02=» J P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ! R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) ! ^ L P FNL ! P FTA
0x2f4510…2f46a4 Dummy {f00=0x00ce, f01=0x0190, f02=»T ! d R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) " ( L P FNL " ~ . P FTEXT 'TOTALEN OP NUL ZETTEN (N=0,J=1) ?' " R P FKI 35,
0x2f46a4…2f4838 Dummy {f00=0x00ce, f01=0x0190, f02=» " V L P FMEND # L P************************************************************************ # h L P* * # L P
0x2f4838…2f49cc Dummy {f00=0x00ce, f01=0x0190, f02=» * # X L P************************************************************************ $ L PFMT018 FRMT $ h L P FSL $ P
0x2f49cc…2f4b60 Dummy {f00=0x00ce, f01=0x0190, f02=»(KW4) $ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT % L L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW3) % L P FNL
0x2f4b60…2f4cf4 (6, 41) Dummy {f00=0x00ce, f01=0x0190, f02=» % d T P FCOPY YCCCY(KW4) & , P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT & L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW4)
0x2f4cf4…2f4e88 Dummy {f00=0x00ce, f01=0x0190, f02=» :' & x T P FTAB 20 ' 8 T P FCOPY YCCCY(KW4) ' P P FKI 24,ME,MINL=1,MAXL=11,NCLR,N
0x2f4e88…2f501c Dummy {f00=0x00ce, f01=0x0190, f02=» ' P FTEXT 'OVERSCHRIJVINGEN :' ( L T P FTAB 20 ( p T P FCOPY YCCCY(KW4)
0x2f501c…2f51b0 Dummy {f00=0x00ce, f01=0x0190, f02=»(KW2,KW2) ( t L P FNL ) 4 L P FNL ) L P FNL
0x2f51b0…2f5344 Dummy {f00=0x00ce, f01=0x0190, f02=» ) t L P FCOPY YCCCY(KW4) * P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT * X L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) * L P FNL
0x2f5344…2f54d8 Dummy {f00=0x00ce, f01=0x0190, f02=» * p P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + 0 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) + L P FNL
0x2f54d8…2f566c Dummy {f00=0x00ce, f01=0x0190, f02=» + t P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT , 4 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) , L P FNL
0x2f566c…2f5800 Dummy {f00=0x00ce, f01=0x0190, f02=» , x P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - 8 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) - L P FNL
0x2f5800…2f5994 (6, 42) Dummy {f00=0x00cf, f01=0x0190, f02=» - | P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT . < L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) . L P FMEND
0x2f5994…2f5b28 Dummy {f00=0x00cf, f01=0x0190, f02=» * . L P* TERMINAL START, USED BY CCSTTT * / @ L P* * / L P****************************************
0x2f5b28…2f5cbc Dummy {f00=0x00cf, f01=0x0190, f02=» / L P FCOPY YCTEXT 0 @ L P FNL 0 T P FTEXT 'TERMINAL :'
0x2f5cbc…2f5e50 Dummy {f00=0x00cf, f01=0x0190, f02=» FBZ RDALFKB,F01910 0 P FCOPY RCTRMNME 1 P FB F01920 1 4 PF01910 1 F P FTEXT 'FRONT OFFICE(' 1 T L P FMEL '999',NDTRMNR 1 r P FTEXT ')' 1 P FB FB01930 1 PF01920 1 T P FTAB 34
0x2f5e50…2f5fe4 Dummy {f00=0x00cf, f01=0x0190, f02=» 1 N PFB01930 2 L P FNL 2 & P FTEXT 'TIJD (UUMM) : ' 2 v P FTAB 20 2 T P FMEL 'ZZE:ZZ',NDTIME 2 L P FNL
0x2f5fe4…2f6178 Dummy {f00=0x00cf, f01=0x0190, f02=»EOI,REWRT,APPL=7 2 r L P FMEL 'ZZE-ZZE-ZZ',IDNR1 3 2 L P FMEND 3 L P******************************************************
0x2f6178…2f630c Dummy {f00=0x00cf, f01=0x0190, f02=»BY BCSTTO * 3 r L P* * 4 2 L P************************************************************************ 4 L PFMT021 FRMT
0x2f630c…2f64a0 Dummy {f00=0x00cf, f01=0x0190, f02=» 4 r F P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=8 5 2 J P FMEL 'ZZZZZ',IDNR1 5 | L P FNL
0x2f64a0…2f6634 (6, 43) Dummy {f00=0x00cf, f01=0x0190, f02=»PL=9 5 j N P FCOPY ICTEXT1 6 * L P FNL 6 | L P FTEXT 'TAAL : '
0x2f6634…2f67c8 Dummy {f00=0x00cf, f01=0x0190, f02=» 6 R L P FMEND 7 L P************************************************************************ 7 b L P* * 7 L P* OPER
0x2f67c8…2f695c Dummy {f00=0x00cf, f01=0x0190, f02=» * 7 R L P************************************************************************ 8 L PFMT022 FRMT 8 b L P FSL 8 L P FTEXT
0x2f695c…2f6af0 Dummy {f00=0x00cf, f01=0x0190, f02=» 8 R L P FNL 9 L P FTEXT 'KAS TOTAAL : ' 9 b P FTAB 20 9 L P FCOPY YCCCY(KW4)
0x2f6af0…2f6c84 Dummy {f00=0x00cf, f01=0x0190, f02=» 9 ~ L P FCOPY YCCCY(KW1) : > P FTAB 24 : L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) : P FNL : L P FTAB 20
0x2f6c84…2f6e18 Dummy {f00=0x00cf, f01=0x0190, f02=» : J P FTAB 24 ; L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) ; P FNL ; j L P FTAB 20 ; v L P FCOPY YCCCY(KW3)
0x2f6e18…2f6fac Dummy {f00=0x00cf, f01=0x0190, f02=»ONT VOOR AKKOORD ANDERS CANC' ; P FKI 36 < & P FCOPY WCSTRG6 < 6 L P FMEND < L L P************************************************************************ < L P*
0x2f6fac…2f7140 Dummy {f00=0x00cf, f01=0x0190, f02=» * < L P************************************************************************ = L L PFMT027 FRMT = L P FSL
0x2f7140…2f72d4 (6, 44) Dummy {f00=0x00cf, f01=0x0190, f02=» SBMSU,F27100 = P* > P* MAGETISCHE STREEP APPARAAT > P* > D P FTEXT 'STEEK KAART IN MSU' > N P FB F27999 > r PF27100 > L P* * > L P* BADGE CARD READER INPUT
0x2f72d4…2f7468 Dummy {f00=0x00cf, f01=0x0190, f02=»AART DOOR BCR' > L P FB F27999 ? L PF27200 ? f L P FBF SBCHEQUE,F27300 ? L P*
0x2f7468…2f75fc Dummy {f00=0x00cf, f01=0x0190, f02=» * ? V L P* * @ " P FTEXT 'TREK CHEQUE DOOR ODR' @ f L P FB F27999 @ L P*
0x2f75fc…2f7790 Dummy {f00=0x00cf, f01=0x0190, f02=» * @ | PF27300 A < & P FTEXT 'REKENING OF KAARTNUMMER: ' A J T P FKI 27,ME,MINL=4,MAXL=6,NUM,NEOI,APPL=22,REWRT A t L P FMEL 'ZZZZZZ',IDACTNR1
0x2f7790…2f7924 Dummy {f00=0x00cf, f01=0x0190, f02=»************************************************** A z L P* * B : L P* ENTER REQUIRED FUNCTION (BESELF) * B L P*
0x2f7924…2f7ab8 Dummy {f00=0x00cf, f01=0x018e, f02=»SL B P FLOW C , P FTEXT 'DRUK OP GEWENSTE FUNKTIETOETS :' C P FMEND C H L P************************************************************************ C V L P* * C L P* OPEN ACCOUNT (DF
0x2f7ab8…2f7c4c Dummy {f00=0x00cf, f01=0x0190, f02=» C F L P************************************************************************ D PFMT039 FRMT OPEN ACCOUNT D X L P FSL D z L P FBT SBCHEQUE,F03910
0x2f7c4c…2f7de0 Dummy {f00=0x00cf, f01=0x0190, f02=» D J L PF03910 E , P FTEXT 'OPENEN PRIVE REKENING NUMMER: ' E Z L PF03920 E L P FMEL '999999',IDACTNR1
0x2f7de0…2f7f74 (6, 45) Dummy {f00=0x00cf, f01=0x0190, f02=» E z T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 F : L P FCOPY ACNAME F L P FNL
0x2f7f74…2f8108 Dummy {f00=0x00cf, f01=0x018e, f02=»,MAXL=20,ALPHA,ME,NEOI,APPL=18 F L P FCOPY ACADDRES G J L P FNL G L P FTEXT 'PLAATS :'
0x2f8108…2f829c Dummy {f00=0x00cf, f01=0x0190, f02=» L P FCOPY ACTOWN H L P FNL H T L P FBT SBCHEQUE,F03930 H P FTEXT 'KENWOORD:' H
0x2f829c…2f8430 Dummy {f00=0x00cf, f01=0x0190, f02=» H f L P FB F03940 I & L PF03930 I v T P FTEXT 'KRT :'
0x2f8430…2f85c4 Dummy {f00=0x00cf, f01=0x0190, f02=» I N L P FTEXT ' KREDIETGRENS:' J T P FKI 25,MAXL=11,ME,NCLR,NUM,NEOI,REWRT J ^ T P FMEL 'ZZZZZZZZ9,99',ADLIMBOK J
0x2f85c4…2f8758 Dummy {f00=0x00cf, f01=0x0190, f02=»E ACCOUNT (DGCACT) * J P* K J L P************************************************************************ K T 8 PFMT040 FRMT CLOSE ACCOUNT K P FSL K & P FBT S
0x2f8758…2f88ec Dummy {f00=0x00cf, f01=0x0190, f02=»E REKENING NR. : ' K | PF04020 L T P FTAB 30 L ( ( P FMEL '999999',IDACTNR1 L P FNL L " P FTEXT 'NAAM : ' L P FCOPY ACNAME L P
0x2f88ec…2f8a80 Dummy {f00=0x00cf, f01=0x0190, f02=» L @ , P FMEL 'ZZZZZZZZ9,99-',ADBAL M P FNL M 8 & P FBT SBCHQACT,F04030 M L , P FTEXT 'SALDO BOEKJE : ' M v P FB F04040 M PF04030 M , P FTEXT 'KREDIETGRENS : ' M PF0
0x2f8a80…2f8c14 (6, 46) Dummy {f00=0x00d0, f01=0x0190, f02=»DLIMBOK M l P FNL N & P FBT SBCHQACT,F04050 N $ , P FTEXT 'WACHTWOORD : ' N N T P FTAB 24 N ~ P FCOPY ACPASS N P FB
0x2f8c14…2f8da8 Dummy {f00=0x00d0, f01=0x0190, f02=» N X & P FMEL '9999',ADCARDNR O PF04060 O J P FMEND O X L P************************************************************************ O n L P* * O
0x2f8da8…2f8f3c Dummy {f00=0x00d0, f01=0x0190, f02=» * O ^ L P************************************************************************ P L PFMT041 FRMT P n L P FSL P
0x2f8f3c…2f90d0 Dummy {f00=0x00d0, f01=0x0190, f02=»20 P L PF04110 Q H & P FTEXT 'STORTEN PRIVE REKENING: ' Q L PF04120
0x2f90d0…2f9264 Dummy {f00=0x00d0, f01=0x0190, f02=» Q b L P FNL R " L P FBT SBCHQACT,F04130 R r L P FBT SBNOBOOK,F04130
0x2f9264…2f93f8 Dummy {f00=0x00d0, f01=0x0190, f02=» * R b L P* * S " L P FTEXT 'SALDO BOEKJE:' S r P P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT
0x2f93f8…2f958c Dummy {f00=0x00d0, f01=0x0190, f02=» S f L P FTEXT 'REGEL' T & J P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 T v L P FMEL 'ZZ',IDNR1
0x2f958c…2f9720 Dummy {f00=0x00d0, f01=0x0190, f02=» * T d L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * U $ L P* * U t L PF04130
0x2f9720…2f98b4 (6, 47) Dummy {f00=0x00d0, f01=0x0190, f02=» U d L P FCOPY ACNAME V $ L PF04140 V t P FNL V L P FTEXT 'BEDRAG :'
0x2f98b4…2f9a48 Dummy {f00=0x00d0, f01=0x0190, f02=»T V t L P FNL W 4 L P FTEXT 'NIEUW SALDO :' W L P FTAB 20
0x2f9a48…2f9bdc Dummy {f00=0x00d0, f01=0x0190, f02=» W x L P************************************************************************ X 8 L P* * X L P* WITHDRAWAL (DMWDR)
0x2f9bdc…2f9d70 Dummy {f00=0x00d0, f01=0x0190, f02=»************************************************ X x L PFMT042 FRMT Y 8 L P FSL Y P FTEXT 'OPNAME ' Y P FBT SBCHQACT,F04210 Y
0x2f9d70…2f9f04 Dummy {f00=0x00d0, f01=0x0190, f02=» Y t P FTEXT 'PRIVE ' Z 4 L PF04220 Z L P FTEXT 'REKENING NR. : ' Z L P FTAB 31 Z
0x2f9f04…2fa098 Dummy {f00=0x00d0, f01=0x0190, f02=» Z L P FBT SBCHQACT,F04230 [ L P* * [ l L P* SAVINGS ACCOUNT * [
0x2fa098…2fa22c Dummy {f00=0x00d0, f01=0x0190, f02=» [ L P FTEXT '- WACHTWOORD :' L P FTAB 31 l L P FCOPY ACPASS
0x2fa22c…2fa3c0 Dummy {f00=0x00d0, f01=0x0190, f02=» L P FBT SBCHEQUE,F04240 ] L P* * ] l L P* CHEQUE ACCOUNT, NO ODR * ]
0x2fa3c0…2fa554 (6, 48) Dummy {f00=0x00d0, f01=0x0190, f02=» ] L P FTAB 17 ^ $ L P FCOPY ACNAME ^ t L P FB F04250
0x2fa554…2fa6e8 Dummy {f00=0x00d0, f01=0x0190, f02=» * ^ d L P* * _ $ L PF04240 _ t L P FTAB 12
0x2fa6e8…2fa87c Dummy {f00=0x00d0, f01=0x0190, f02=» _ d L P FCOPY FCFIELD ` $ L PF04250 ` t L P FNL
0x2fa87c…2faa10 Dummy {f00=0x00d0, f01=0x0190, f02=» * ` d L P* SAVINGS ACCOUNT * a $ L P* * a t L P FTEXT 'SALDO BOEKJE:'
0x2faa10…2faba4 Dummy {f00=0x00d0, f01=0x0190, f02=» a d L P FTAB 29 b $ L P FTEXT 'REGEL' b t L P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11
0x2faba4…2fad38 Dummy {f00=0x00d0, f01=0x0190, f02=» b d L P* * c $ L P* CHEQUE ACCOUNT * c t L P*
0x2fad38…2faecc Dummy {f00=0x00d0, f01=0x0190, f02=» c d P FTAB 24 d $ L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK d 4 L PF04270 d P FNL d L P FTEXT 'BEDRAG :'
0x2faecc…2fb060 Dummy {f00=0x00d0, f01=0x0190, f02=»,ZZ',TDAMOUNT d L P FNL e @ L P FTEXT 'NIEUW SALDO :' e L P FTAB 24
0x2fb060…2fb1f4 (6, 49) Dummy {f00=0x00d0, f01=0x0190, f02=» e L P************************************************************************ f D L P* * f L P* PRINT, LINE TYPE 1: FUNCTION IDENT
0x2fb1f4…2fb388 Dummy {f00=0x00d0, f01=0x0190, f02=»************************************************************ f L PPRT043 FRMT g D T P FTEXT ' ' g T P FBT SBVCH,P043005
0x2fb388…2fb51c Dummy {f00=0x00d0, f01=0x0190, f02=» g D L P FMEL 'Z',RDSHRPRT h T PP043005 h T P FTAB 5 h
0x2fb51c…2fb6b0 Dummy {f00=0x00d0, f01=0x0190, f02=» h L PP043020 i L P FBF SBOACT,P043030 i l P FTEXT 'OPENEN REKENING' i L PP043030
0x2fb6b0…2fb844 Dummy {f00=0x00d0, f01=0x0190, f02=»' i | L PP043040 j L P FBF SBBACT,P043050 j Z P FTEXT 'BLOKKEREN REK.' j L PP043050
0x2fb844…2fb9d8 Dummy {f00=0x00d0, f01=0x0190, f02=» j L P FBF SBUACT,P043070 k H P FTEXT 'VERANDEREN REK.' k L PP043070 k L P
0x2fb9d8…2fbb6c Dummy {f00=0x00d0, f01=0x0190, f02=» k x L P FBF SBQACT,P043090 l 8 P FTEXT 'REKENINGOVERZ.' l L PP043090 l L P FBF SBDSTM,P043
0x2fbb6c…2fbd00 Dummy {f00=0x00d0, f01=0x0190, f02=» l f L P FBF SBCOPR,P043110 m & P FTEXT 'AFSLUITEN OPER.' m v L PP043110 m L P FBF SBCSYS,P043120
0x2fbd00…2fbe94 (6, 50) Dummy {f00=0x00d1, f01=0x0190, f02=» m V L P FBF SBECCY,P043130 n P FTEXT 'GELDWISSELING' n f L PP043130 n L P FBF SBQCCY,P043140
0x2fbe94…2fc028 Dummy {f00=0x00d1, f01=0x018e, f02=» L P FBF SBLACT,P043300 o P FTEXT 'REKENINGENLIJST' o T L PP043300 o t T P FTAB 21
0x2fc028…2fc1bc Dummy {f00=0x00d1, f01=0x0190, f02=» o PP043400 p L P FMEL 'ZZZZZZ',NDDATE p PP043500 p h P FBT SBFIL24,P043600 p x P FBT SBFIL20,P043700 p P FB P043999 p PP043600 p P FILLR ' ',4 p PP043700 p P FILLR ' ',20 p
0x2fc1bc…2fc350 Dummy {f00=0x00d1, f01=0x0190, f02=» * p | L P* PRINT, LINE TYPE 3: END OF FUNCTION * q < L P* * q L P********************************************
0x2fc350…2fc4e4 Dummy {f00=0x00d1, f01=0x0190, f02=» q | T P FBT SBVCH,P044010 r D T P FTAB 3 r L P FMEL 'Z',RDSHRPRT
0x2fc4e4…2fc678 Dummy {f00=0x00d1, f01=0x0190, f02=» r D T P FTAB 5 s N P FBF SBCANCEL,P044100 s d L P FTEXT 'CANCEL' s N P F
0x2fc678…2fc80c Dummy {f00=0x00d1, f01=0x0190, f02=» s X L P FMEL '999999',TDTRSSEQ t N PP044200 t j L P FTAB 12 t
0x2fc80c…2fc9a0 Dummy {f00=0x00d1, f01=0x0190, f02=» t L P FMEL '999',NDTRMNR u L P FTAB 22 u l L P FMEL '99E:99',NDTIME u
0x2fc9a0…2fcb34 (6, 51) Dummy {f00=0x00d1, f01=0x0190, f02=»LR ' ',20 u PP044999 v L P FMEND v " L P************************************************************************ v r L P*
0x2fcb34…2fccc8 Dummy {f00=0x00d1, f01=0x0190, f02=» * v b L P************************************************************************ w " L PFMT045 FRMT w r L P FSL
0x2fccc8…2fce5c Dummy {f00=0x00d1, f01=0x0190, f02=» FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT w L P FMEL 'ZZZZZZ',IDACTNR1 x 8 L P FB F04520 x L PF04510
0x2fce5c…2fcff0 Dummy {f00=0x00d1, f01=0x0190, f02=» x L P FNL y H L P FBT SBCHQACT,F04530 y L P FTEXT 'SALDO BOEKJE: '
0x2fcff0…2fd184 Dummy {f00=0x00d1, f01=0x0190, f02=» FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 y L P FTEXT ' REGEL:' z P T P FKI 34,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT z L P FMEL 'ZZ',IDNR1
0x2fd184…2fd318 Dummy {f00=0x00d1, f01=0x0190, f02=» z H L PF04530 { P FTEXT 'KREDIETGRENS:' { X P FTAB 24 { v L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK { L PF04540
0x2fd318…2fd4ac Dummy {f00=0x00d1, f01=0x0190, f02=» T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT | L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT | L P FNL | P FTEXT 'NIEU
0x2fd4ac…2fd640 Dummy {f00=0x00d1, f01=0x0190, f02=» | | & P FTEXT 'OVERSCHR. NAAR REKENING :' } < R P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 } f L P FMEL 'ZZZZZZ',IDACTNR2 }
0x2fd640…2fd7d4 (6, 52) Dummy {f00=0x00d1, f01=0x0190, f02=»******************** } L P* * ~ L P* ACCOUNT INQUIRY (DIQACT) * ~ l L P* * ~
0x2fd7d4…2fd968 Dummy {f00=0x00d1, f01=0x0190, f02=» ~ L P FSL L P FBT SBCHQACT,F04610 l & P FTEXT 'OVERZICHT SPAARREK.NR. : ' L P FB F04620
0x2fd968…2fdafc Dummy {f00=0x00d1, f01=0x0190, f02=»ERZICHT REK.COUR,NR: ' L PF04620 T P FTAB 26 n L P FMEL '999999',IDACTNR1
0x2fdafc…2fdc90 Dummy {f00=0x00d1, f01=0x0190, f02=» f T P FTAB 20 " L P FMEL 'ZZZZZZZZ9,99-',ADBAL z L P FNL
0x2fdc90…2fde24 Dummy {f00=0x00d1, f01=0x0190, f02=» j L P FB F04640 & L PF04630 v L P FTEXT 'KREDIETGRENS : '
0x2fde24…2fdfb8 Dummy {f00=0x00d1, f01=0x0190, f02=» f L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK . L P FNL ~ H P FTEXT 'STATUS : '
0x2fdfb8…2fe14c Dummy {f00=0x00d1, f01=0x0190, f02=» r L P FNL 2 , P FTEXT 'LAATSTE TRANS.GEWENST(N=0,J=1)?' T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 T
0x2fe14c…2fe2e0 Dummy {f00=0x00d1, f01=0x0190, f02=» b L P************************************************************************ " L P* * r L P* TRANSACTION INQUIRY (DIQACT)
0x2fe2e0…2fe474 (6, 53) Dummy {f00=0x00d1, f01=0x0190, f02=»************************** b L PFMT047 FRMT INQUIRY TRANSACTION " L P FSL r & P FTEXT 'TRANSACTIE OVERZICHT REK:' T P FTAB 26
0x2fe474…2fe608 Dummy {f00=0x00d1, f01=0x0190, f02=» L P FNL H P FTEXT 'TRANS:' T T P FTAB 7 L P FMEL '999',UDTR
0x2fe608…2fe79c Dummy {f00=0x00d1, f01=0x0190, f02=» H L P FMEL '99999',UDOPRNR L P FTEXT '/' X L P FMEL '999999',UDTRSSEQ L P FTEXT '/'
0x2fe79c…2fe930 Dummy {f00=0x00d1, f01=0x0190, f02=» H L P FNL H P FTEXT 'BEDRAG : ' X T P FTAB 20 L P FMEL 'ZZZZZ
0x2fe930…2feac4 Dummy {f00=0x00d1, f01=0x0190, f02=» L H P FTEXT 'NIEUW SALDO: ' T P FTAB 20 X T P FMEL 'ZZZZZZZZ9,99-',UDNEWBAL L P
0x2feac4…2fec58 Dummy {f00=0x00d1, f01=0x0190, f02=»ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 T P FMEL '9',IDNR1 P L P FMEND L P****************
0x2fec58…2fedec Dummy {f00=0x00d1, f01=0x0190, f02=» H L P* BLOCK/DEBLOCK ACCOUNT (DHBACT) * L P* * X L P************************************************************************ L PFMT048 FRMT (DE
0x2fedec…2fef80 Dummy {f00=0x00d1, f01=0x0190, f02=» H L P FBT SBCHQACT,F04820 L P* * X L P* SAVINGS ACCOUNT * L P*
0x2fef80…2ff114 (6, 54) Dummy {f00=0x00d2, f01=0x0190, f02=» H & P FTEXT 'BLOKKEREN SPAARREK.NR. :' PF04810 2 L P FB F04840 @ & P FTEXT 'DEBLOKKEREN SPAARREKNR.:' L P FB F04840 L
0x2ff114…2ff2a8 Dummy {f00=0x00d2, f01=0x0190, f02=» PF04830 D ( P FTEXT 'DEBLOKKEREN PRIVE REKNR.: ' R PF04840 ~ P FTAB 26 L P FMEL '999999',IDACTNR1 P FNL H P FTEXT 'NAAM
0x2ff2a8…2ff43c Dummy {f00=0x00d2, f01=0x0190, f02=» D L P FCOPY ACNAME L P FNL P FTEXT 'HUIDIG SALDO :' T P FTAB 20
0x2ff43c…2ff5d0 Dummy {f00=0x00d2, f01=0x0190, f02=»F04860 PF04850 B L P FTEXT 'SALDO BOEKJE :' P T P FTAB 20 L P FMEL 'ZZZZZZZZ9
0x2ff5d0…2ff764 Dummy {f00=0x00d2, f01=0x0190, f02=» H PF04860 L P FTEXT 'KREDIETGRENS :' T P FTAB 20 n L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x2ff764…2ff8f8 Dummy {f00=0x00d2, f01=0x0190, f02=» z L P FTEXT 'COMMENT :' : $ P FKI 12,MAXL=20,ALPHA,NCLR,NEOI P FCOPY TCTEXT L P FB F04899
0x2ff8f8…2ffa8c Dummy {f00=0x00d2, f01=0x018e, f02=» R L P************************************************************************ PMSG049 FRMT b P FSL v . P FTEXT 'PLAATS SPAARBANKBOEKJE IN PRINTER' P FKI 36 P FCOPY ICDUMMY P FMEND L P********************************
0x2ffa8c…2ffc20 Dummy {f00=0x00d2, f01=0x0190, f02=» P FCOPY ICDUMMY P FMEND L P************************************************************************ ( L P* * x P* PRINT: PASSBOOK CLOSE LINE L P*
0x2ffc20…2ffdb4 (6, 55) Dummy {f00=0x00d2, f01=0x0190, f02=»51 FRMT P FTEXT ' ' L L P FMEL 'ZZZZZZ',NDDATE ` N P FILLR ' ',13 L P FMEL
0x2ffdb4…2fff48 Dummy {f00=0x00d2, f01=0x0190, f02=» R T P FTEXT '** CLOSED **' P FMEND l L P************************************************************************ z L P*
0x2fff48…3000dc Dummy {f00=0x00d2, f01=0x018e, f02=» * j L P************************************************************************ * J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1 z L P FSL
0x3000dc…300270 Dummy {f00=0x00d2, f01=0x0190, f02=» h L P FB F05220 L PF05210 X * P FTEXT 'VERANDEREN PRIVE REK.NR. : ' L PF05220
0x300270…300404 Dummy {f00=0x00d2, f01=0x0190, f02=» V R P FTEXT 'NAAM :' T P FTAB 16 l L P FBZ RDALFKB,F05230
0x300404…300598 Dummy {f00=0x00d2, f01=0x0190, f02=» l L P FCOPY ACNAME , L P FNL | P FTEXT 'ADRES : ' T P FTAB 16
0x300598…30072c Dummy {f00=0x00d2, f01=0x0190, f02=» T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 L PF05240 L P FCOPY ACADDRES L P FNL
0x30072c…3008c0 Dummy {f00=0x00d2, f01=0x0190, f02=» L T P FTAB 16 L P FBZ RDALFKB,F05250 j T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18
0x3008c0…300a54 (6, 56) Dummy {f00=0x00d2, f01=0x0190, f02=» b L P FNL " L P FBT SBCHQACT,F05270 r P* P* SAVINGS ACCOUNT P* L P FTEXT 'KENWOORD:'
0x300a54…300be8 Dummy {f00=0x00d2, f01=0x0190, f02=» B L P FBZ RDALFKB,F05260 " P FKI 16,MAXL=6,ALPHA,NCLR,NEOI Z L PF05260 L P FCOPY ACPASS
0x300be8…300d7c Dummy {f00=0x00d2, f01=0x0190, f02=»TGRENS :' T P FKI 24,MAXL=11,ME,NUM,NCLR,NEOI,REWRT B L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK PF05299 L P FMEND
0x300d7c…300f10 Dummy {f00=0x00d2, f01=0x0190, f02=» H L P* * L P* UPDATE ACCOUNT, MASTER KEYSETTING ON (DJUACT) * X L P* * L P****************
0x300f10…3010a4 Dummy {f00=0x00d2, f01=0x0190, f02=» H L P FSL L P FBT SBCHQACT,F05310 X * P FTEXT 'VERANDEREN SPAARREKENINGNR.: ' L P FB F05320
0x3010a4…301238 Dummy {f00=0x00d2, f01=0x0190, f02=»EK.NR. : ' v PF05320 P FTAB 30 " P FMEL '999999',IDACTNR1 2 P FNL R L P FBT SBCHQACT,F05330 ^ L P FTEXT 'SALDO BOEKJE: ' R P FKI 15,MA
0x301238…3013cc Dummy {f00=0x00d2, f01=0x0190, f02=» T L P FTEXT ' REGEL' R P FKI 34,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=16 d L P FMEL '99',ADLNENR L
0x3013cc…301560 Dummy {f00=0x00d2, f01=0x0190, f02=» Z L P FTEXT 'KREDIETGRENS:' R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT j N P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x301560…3016f4 (6, 57) Dummy {f00=0x00d2, f01=0x0190, f02=» b L P FTEXT 'TOTAAL :' " L P r T P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT,APPL=30
0x3016f4…301888 Dummy {f00=0x00d2, f01=0x0190, f02=» n L P FTEXT 'STATUS :' . R P FKI 35,MAXL=1,NUM,ME,NEOI,NCLR,REWRT,APPL=3 ~ L P FMEL '9',ADSTATUS
0x301888…301a1c Dummy {f00=0x00d2, f01=0x0190, f02=»TRANSACTIE : ' R P FKI 24,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=17 L P FMEL '99',ADLASTRS n L P FNL
0x301a1c…301bb0 Dummy {f00=0x00d2, f01=0x0190, f02=»L '99',ADSTMTRS L P FNL L $ P FTEXT 'TOTAAL INGELEGD : ' R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT
0x301bb0…301d44 Dummy {f00=0x00d2, f01=0x0190, f02=» j $ P FTEXT 'TOTAAL OPGENOMEN : ' * * P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT R L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM L P FMEND
0x301d44…301ed8 Dummy {f00=0x00d2, f01=0x0190, f02=» ( P FTEXT 'PLAATS FORMULIER IN PRINTER' D L P FKI 34 p L P FCOPY ICDUMMY
0x301ed8…30206c Dummy {f00=0x00d2, f01=0x0190, f02=» * n L P* LIST ACCOUNTS, HEADER LINE (DELACT) * . L P* * ~ L P**********************************************************
0x30206c…302200 Dummy {f00=0x00d2, f01=0x0190, f02=» n L P FNL . P FTEXT 'REKNR.' ~ L P FTAB 8 P FTEXT 'KRT.' L P FTAB 13
0x302200…302394 (6, 58) Dummy {f00=0x00d3, f01=0x0190, f02=» L L P FTAB 36 P FTEXT 'TOT.INGELEGD' L P FTAB 49 z P FTEXT 'TOT.OPGENOMEN' L P FTAB 63
0x302394…302528 Dummy {f00=0x00d3, f01=0x018e, f02=» J P********************************************************************** H P* P* CURRENCY INQUIRY (DQCCY) P* J P**********************************************************
0x302528…3026bc Dummy {f00=0x00d3, f01=0x0190, f02=» P FTEXT 'VALUTAKODE : ' P FTAB 17 & P FCOPY CCCCYCDE 6 P FTAB 26 N P FTEXT 'REL.: ' ^ P FTAB 32 v P FMEL 'ZZZZ9',CDRELAT P FNL P FTEXT 'INKOOPKOERSEN :(1)' P FTAB 19 P FMEL 'ZZZ9,99-',CDBUY1 P FTA
0x3026bc…302850 Dummy {f00=0x00d3, f01=0x0190, f02=» P FMEL 'ZZZ9,99-',CDSEL1 P FTAB 27 ( P FTEXT '(2)' 8 P FTAB 30 L P FMEL 'ZZZ9,99',CDSEL2 P FNL z P FTEXT 'LIMIET KOERS 1:' P FTAB 28 P FMEL 'ZZZZZ9,99',CDLIMIT P FMEND L P**********************************
0x302850…3029e4 Dummy {f00=0x00d3, f01=0x0190, f02=» EXCHANGE (DPECCY) * L P* * F L P************************************************************************ L PFMT058 FRMT
0x3029e4…302b78 Dummy {f00=0x00d3, f01=0x0190, f02=»LDWISSELING ' L P FBT SBCCYIN,F058100 L P FTEXT '(VERKOOP)' f L P FB F058200 L PF0
0x302b78…302d0c Dummy {f00=0x00d3, f01=0x0190, f02=» V L PF058200 L P FNL f L P FTEXT 'KOERS:' L P F
0x302d0c…302ea0 Dummy {f00=0x00d3, f01=0x0190, f02=» V L P FTAB 11 L P FBT SBCCYIN,F058220 f L P* CURRENCY SELLING * L P F
0x302ea0…303034 (6, 59) Dummy {f00=0x00d3, f01=0x0190, f02=» V L P* CURRENCY BUYING * L PF058220 f L P FMEL 'ZZZZ9,99',CDBUY1 L PF0
0x303034…3031c8 Dummy {f00=0x00d3, f01=0x0190, f02=» V L P FTAB 21 L P FCOPY CCCCYCDE d L P FTAB 25 L P FME
0x3031c8…30335c Dummy {f00=0x00d3, f01=0x0190, f02=» T P FTEXT 'GEVRAAGD BEDRAG :' L P FTAB 16 6 L P FCOPY ICTEXT1 CURRENCY CODE 1 L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI,APPL=26,REWRT
0x30335c…3034f0 Dummy {f00=0x00d3, f01=0x0190, f02=» v P FTEXT 'BEREKEND BEDRAG :' 6 L P FTAB 16 X L P FCOPY ICTEXT2 CURRENCY CODE 2 L P FTAB 20
0x3034f0…303684 Dummy {f00=0x00d3, f01=0x0190, f02=» H L P FNL . P FTEXT 'WISSELING VOORTZETTEN (N=0,J=1)?' X L P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 L P FMEL '9',IDNR4
0x303684…303818 Dummy {f00=0x00d3, f01=0x0190, f02=»************************************************** z L P* * : L P* CLOSE OPERATOR (PART1) * L P*
0x303818…3039ac Dummy {f00=0x00d3, f01=0x0190, f02=» z T P FSL B T P FTEXT 'KAS TOTAAL :' T P FTAB 20
0x3039ac…303b40 Dummy {f00=0x00d3, f01=0x0190, f02=» J T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) j T P FNL
0x303b40…303cd4 (6, 60) Dummy {f00=0x00d3, f01=0x0190, f02=» r T P FTAB 24 : T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL
0x303cd4…303e68 Dummy {f00=0x00d3, f01=0x0190, f02=» B T P FCOPY YCCCY(KW2) T P FTAB 24 b T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2)
0x303e68…303ffc Dummy {f00=0x00d3, f01=0x018e, f02=» j T P FCOPY YCCCY(KW3) 2 T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3)
0x303ffc…304190 Dummy {f00=0x00d3, f01=0x0190, f02=» T P FTEXT 'CHEQUE TOTAAL :' T P FTAB 20 T P FCOPY YCCCY(KW4)
0x304190…304324 Dummy {f00=0x00d3, f01=0x0190, f02=» d T P FNL , 0 P FTEXT 'DRUK CONT VOOR AKKOORD ANDERS CANC' T P FMEND
0x304324…3044b8 Dummy {f00=0x00d3, f01=0x0190, f02=» * ` N P* OPERATOR TURNOVER SCREEN * L P* * r L P**********************************************************************
0x3044b8…30464c Dummy {f00=0x00d3, f01=0x0190, f02=» FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL $ P FTAB 20 0 P FCOPY YCCCY(KW1) @ P FTAB 24 Z * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) j P FNL P FTAB 20 P FCOPY YCCCY(KW2) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2)
0x30464c…3047e0 Dummy {f00=0x00d3, f01=0x0190, f02=»XT 'VALUTA OMZET :' P FTAB 20 P FCOPY YCCCY(KW4) 0 T P FTAB 24 J P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND L P****************************************************
0x3047e0…304974 (6, 61) Dummy {f00=0x00d3, f01=0x0190, f02=» * t L P* * 4 L P************************************************************************ L PPRT061 FRMT
0x304974…304b08 Dummy {f00=0x00d3, f01=0x0190, f02=»9',UDTRSSEQ P FTAB 10 D L P FBF SBFIRST,P061050 T L P FMEL '99E-99E-99',NDDATE PP061050 L P FTA
0x304b08…304c9c Dummy {f00=0x00d3, f01=0x0190, f02=»P061400 SKIP FURTHER INDICATIONS PP061100 ( N P FBF SBDSDEP,P061200 8 P FTEXT 'INLEG ' L PP061200 N P FBF SBDSWDR,P061300
0x304c9c…304e30 Dummy {f00=0x00d3, f01=0x0190, f02=» N P FBF SBDSTRF,P061400 P FTEXT 'OVERSCHR. ' n L PP061400 L P FTAB 32
0x304e30…304fc4 Dummy {f00=0x00d3, f01=0x0190, f02=» z L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT1 : L P FTAB 61 L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT2
0x304fc4…305158 Dummy {f00=0x00d3, f01=0x0190, f02=»************************************************** z T PMSG062 FRMT : T P FSL T P FBNZ YDMLPINT,M062100
0x305158…3052ec Dummy {f00=0x00d3, f01=0x0190, f02=» n T PM062100 6 ( P FTEXT 'PLAATS KETTINGPAPIER IN LP' T PM062999
0x3052ec…305480 Dummy {f00=0x00d3, f01=0x0190, f02=»********************************** j T PMSG063 FRMT * T P FSL , P FTEXT 'PLAATS DAGAFSCHRIFT IN PRINTER' T
0x305480…305614 (6, 62) Dummy {f00=0x00d4, f01=0x0190, f02=»************************** b PMSG064 FRMT " P FSL 6 , P FTEXT 'PLAATS A4-FORMULIER IN PRINTER' B P FMEND r L P************************************************************************ L P*
0x305614…3057a8 Dummy {f00=0x00d4, f01=0x0190, f02=» * p L P************************************************************************ 0 L PFMT065 FRMT P FILLR ' ',6 P FBT SBFIL1,FMT65A P FILLR ' '
0x3057a8…30593c Dummy {f00=0x00d4, f01=0x0190, f02=» ',5 P FBT SBFIL5,FMT65A P FILLR ' ',12 & PFMT65A < L P FCOPY ICSTRG1 J L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' L P FCOPY ICSTRG1
0x30593c…305ad0 Dummy {f00=0x00d4, f01=0x0190, f02=»****************************************************************** L P* * J L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * L P*
0x305ad0…305c64 Dummy {f00=0x00d4, f01=0x0190, f02=» FRMT L P FTEXT ' ' J L P FILLR ' ',6 " P FTEXT 'BESCHIKBARE TEKENS : '
0x305c64…305df8 Dummy {f00=0x00d4, f01=0x0190, f02=»************************ ` L P* * L P* DEMO TP71: SPECIAL CHARACTERS * p L P* *
0x305df8…305f8c Dummy {f00=0x00d4, f01=0x0190, f02=» ` L P FTEXT ' ' L P FILLR ' ',6 p P FTEXT 'SPECIALE TEKENS : ' L P FILLR ' ',6
0x305f8c…306120 Dummy {f00=0x00d4, f01=0x0190, f02=» =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' P* ROOMLESS POINT < P FTEXT =X'AE37AE38AE39' T L P FMEND t L P********************************************************************
0x306120…3062b4 (6, 63) Dummy {f00=0x00d4, f01=0x0190, f02=» * L P************************************************************************ J PFMT068 FRMT P FSL P FTEXT 'ODR (N=0,Y=1) ?' 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1
0x3062b4…306448 Dummy {f00=0x00d4, f01=0x0190, f02=»XT 'TERM.NAAM :' P FTAB 12 P FTEXT 'FRONT OFFICE(' ( P FMEL '999',NDTRMNR F P FTEXT ')' b P FMEND t L P************************************************************************ L P*
0x306448…3065dc Dummy {f00=0x00d4, f01=0x0190, f02=» * l L P************************************************************************ , L PFMT069 FRMT | L P FSL
0x3065dc…306770 Dummy {f00=0x00d4, f01=0x0190, f02=» h L P FNL ( L P FTEXT 'KAS TOTAAL : ' x P FTAB 16 L P FCOPY YCCCY(KW4)
0x306770…306904 Dummy {f00=0x00d4, f01=0x0190, f02=» P FTEXT 'KAS TOTAAL : ' L P FTAB 16 $ L P FCOPY YCCCY(KW1) t P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1)
0x306904…306a98 Dummy {f00=0x00d4, f01=0x0190, f02=» P L P FCOPY YCCCY(KW2) P FTAB 20 ` L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) p P FNL P FTEXT 'KAS TOTAAL : ' L P FTAB 16
0x306a98…306c2c Dummy {f00=0x00d4, f01=0x0190, f02=»B 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) P FNL . P FTEXT 'DRUK CONT VOOR AKK. ANADERS CANC' h P FKI 32 P FCOPY WCSTRG6 L P FMEND
0x306c2c…306dc0 Dummy {f00=0x00d4, f01=0x0190, f02=» * ` T P* WITHDRAWAL (DMWDR) FOR FT80 L P* * x L P****************************************************************
0x306dc0…306f54 (6, 64) Dummy {f00=0x00d4, f01=0x0190, f02=» h L P FBT SBCHQACT,F07010 ( & P FTEXT 'OPNAME SPAARREKENINGNR.: ' x L P FB F07020 L PF07010
0x306f54…3070e8 Dummy {f00=0x00d4, f01=0x0190, f02=» l L P FTAB 27 , L P FMEL '999999',IDACTNR1 | L P FNL
0x3070e8…30727c Dummy {f00=0x00d4, f01=0x0190, f02=» * l L P* SAVINGS ACCOUNT * , L P* * | L P FTAB 12
0x30727c…307410 Dummy {f00=0x00d4, f01=0x0190, f02=» h L P FCOPY ACPASS ( L P FB F07050 x L PF07030
0x307410…3075a4 Dummy {f00=0x00d4, f01=0x0190, f02=» * h L P* CHEQUE ACCOUNT, NO ODR * ( L P* * x L P FTEXT 'NAAM :'
0x3075a4…307738 Dummy {f00=0x00d4, f01=0x0190, f02=» h L P FB F07050 ( L P* * x L P* CHEQUE ACCOUNT, CHEQUE INPUT
0x307738…3078cc Dummy {f00=0x00d4, f01=0x0190, f02=» h L P FTAB 12 ( H P FTEXT '- CHEQUE NR. :' x L P FTAB 27
0x3078cc…307a60 Dummy {f00=0x00d4, f01=0x0190, f02=» d L P FNL $ L P FBT SBCHQACT,F07060 t L P*
0x307a60…307bf4 (6, 65) Dummy {f00=0x00d4, f01=0x0190, f02=» * d L P FTEXT 'SALDO BOEKJE:' $ L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT t L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1
0x307bf4…307d88 Dummy {f00=0x00d4, f01=0x0190, f02=»I,APPL=11 p L P FMEL 'ZZ',IDNR1 0 L P FB F07070 L P*
0x307d88…307f1c Dummy {f00=0x00d4, f01=0x0190, f02=» * p L PF07060 0 P FTEXT 'KREDIETGRENS:' P FTAB 20 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK L PF07070
0x307f1c…3080b0 Dummy {f00=0x00d4, f01=0x0190, f02=» Z L P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT j L P FNL L
0x3080b0…308244 Dummy {f00=0x00d4, f01=0x0190, f02=» Z P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL L P FMEND n L P************************************************************************
0x308244…3083d8 Dummy {f00=0x00d4, f01=0x0190, f02=» ^ L P* * & L P************************************************************************ v L PFMT071 FRMT
0x3083d8…30856c Dummy {f00=0x00d4, f01=0x0190, f02=» FBT SBCARD,F07110 4 P FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT P L P FMEL 'ZZZZZZ',IDACTNR1 L P FB F07120
0x30856c…308700 Dummy {f00=0x00d4, f01=0x0190, f02=»99999',IDACTNR1 L PF07120 H L P FNL L P FBT SBCHQACT,F07130
0x308700…308894 (6, 66) Dummy {f00=0x00d5, f01=0x0190, f02=»MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 P P FNL P FTEXT ' REGEL:' T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT
0x308894…308a28 Dummy {f00=0x00d5, f01=0x0190, f02=» l L PF07130 , P FTEXT 'KREDIETGRENS:' | P FTAB 20 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK L PF07140
0x308a28…308bbc Dummy {f00=0x00d5, f01=0x0190, f02=» J P FTEXT 'BEDRAG :' T P FKI 20,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT ( L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT L P FNL
0x308bbc…308d50 Dummy {f00=0x00d5, f01=0x0190, f02=» N L P FNL & P FTEXT 'OVERSCHRYVING NAAR REKNR:' ` R P FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 L P FMEL 'ZZZZZZ',IDACTNR2
0x308d50…308ee4 Dummy {f00=0x00d5, f01=0x0190, f02=»****************************************************** P* > ( P* CURRENCY INQUIRY (DQCCY) FOR FT80 H P* t J P********************************************************************** ~ PFMT072 FRMT P FSL P FTEXT 'VALUTA NAAM : '
0x308ee4…309078 Dummy {f00=0x00d5, f01=0x0190, f02=»B 22 P FTEXT 'REL.: ' P FTAB 28 $ P FMEL 'ZZZZ9',CDRELAT 4 P FNL R P FTEXT 'INKOOPKOERS :(1)' ^ P FTAB 19 P FMEL 'ZZZ9,99-',CDBUY1 P FNL P FTEXT 'INKOOPKOERS :(2)' P FTAB 19 P FTAB 26 P FMEL 'ZZZ
0x309078…30920c Dummy {f00=0x00d5, f01=0x0190, f02=»VERKOOPKOERS :(2)' P FTAB 19 P FMEL 'ZZZ9,99',CDSEL2 * P FNL H P FTEXT 'LIMIET KOERS 1 :' T P FTAB 24 v P FMEL 'ZZZZZ9,99',CDLIMIT P FMEND L P************************************************************************ L P*
0x30920c…3093a0 Dummy {f00=0x00d5, f01=0x0190, f02=» V L P* * L P************************************************************************ n T PFMT073 FRMT
0x3093a0…309534 (6, 67) Dummy {f00=0x00d5, f01=0x018e, f02=» n T P FTAB 16 6 T P FCOPY YCCCY(KW4) T P FTAB 20
0x309534…3096c8 Dummy {f00=0x00d5, f01=0x0190, f02=» > T P FNL P FTEXT 'KAS TOTAAL : ' ` T P FTAB 16 T P FCOPY YCCCY(KW1)
0x3096c8…30985c Dummy {f00=0x00d5, f01=0x0190, f02=»ZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL P P FTEXT 'KAS TOTAAL : ' T P FTAB 16
0x30985c…3099f0 Dummy {f00=0x00d5, f01=0x0190, f02=» x T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) @ T P FNL P FTEXT 'KAS TOTAAL : '
0x3099f0…309b84 Dummy {f00=0x00d5, f01=0x0190, f02=» h T P FTAB 20 0 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) T P FNL
0x309b84…309d18 Dummy {f00=0x00d5, f01=0x0190, f02=»TAB 16 T P FCOPY YCCCY(KW4) V T P FTAB 20 T P F
0x309d18…309eac Dummy {f00=0x00d5, f01=0x0190, f02=» ^ , P FTEXT 'DRUK CONT VOOR AKK. ANDERS CANC' & T P FMEND V L P************************************************************************ L P*
0x309eac…30a040 Dummy {f00=0x00d5, f01=0x0190, f02=» N L P* * L P************************************************************************ f PFMT074 FRMT P FSL P FTEXT 'TOTAAL OMZET :' P FTAB 16 P F
0x30a040…30a1d4 (6, 68) Dummy {f00=0x00d5, f01=0x0190, f02=» FCOPY YCCCY(KW1) P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) * P FNL X P FTEXT 'GROSS TURNOVER:' d P FTAB 16 P FCOPY YCCCY(KW2) P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL P FTEXT 'TOTAAL O
0x30a1d4…30a368 Dummy {f00=0x00d5, f01=0x0190, f02=»XT 'VALUTA OMZET :' P FTAB 16 P FCOPY YCCCY(KW4) , T P FTAB 20 F P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND L P********************************************************
0x30a368…30a4fc Dummy {f00=0x00d5, f01=0x0190, f02=»****** * p L P* * 0 L P************************************************************************ PERR001 FRMT P FSL P FTEXT 'WAARDE ONGELDIG'
0x30a4fc…30a690 Dummy {f00=0x00d5, f01=0x0190, f02=»TEXT 'INVOER/UITVOER FOUT' P FMEND " PERR004 FRMT 0 P FSL D P FTEXT 'FOUTIEVE TOETS' P P FMEND p PERR005 FRMT ~ P FSL ( P FTEXT 'VELD MOET INGEGEVEN WORDEN' P FMEND L PERR006 FRMT
0x30a690…30a824 Dummy {f00=0x00d5, f01=0x0190, f02=» x L P FMEND 8 L PERR007 FRMT L P FSL
0x30a824…30a9b8 Dummy {f00=0x00d5, f01=0x0190, f02=» P L PERR008 FRMT L P FSL ` P FTEXT 'BALIE' L P FMEND
0x30a9b8…30ab4c Dummy {f00=0x00d5, f01=0x0190, f02=» f " P FTEXT 'WAARDE MOET NUL ZIJN' & L P FMEND L L PERR010 FRMT L P FSL
0x30ab4c…30ace0 Dummy {f00=0x00d5, f01=0x0190, f02=» b L PERR020 FRMT " L P FSL r $ P FTEXT 'ONGELDIGE VERGELIJKING' L P FMEND
0x30ace0…30ae74 (6, 69) Dummy {f00=0x00d5, f01=0x0190, f02=» " P FTEXT 'OPERATEUR NIET BEKEND' J L P FMEND p L PERR024 FRMT
0x30ae74…30b008 Dummy {f00=0x00d5, f01=0x0190, f02=» L PERR025 FRMT D L P FSL P FTEXT 'VERKEERD WACHTWOORD' L P
0x30b008…30b19c Dummy {f00=0x00d5, f01=0x0190, f02=» X L P FSL $ P FTEXT 'TOETSENBORD GEBLOKKEERD' h L P FMEND L PERR028 FRMT
0x30b19c…30b330 Dummy {f00=0x00d5, f01=0x0190, f02=» GEBLOKKEERD' L P FMEND L PERR029 FRMT f L P FSL P F
0x30b330…30b4c4 Dummy {f00=0x00d5, f01=0x0190, f02=» v L P FSL 6 " P FTEXT 'MANAGER SLEUTEL NODIG' L P FMEND L PERR032 FRMT
0x30b4c4…30b658 Dummy {f00=0x00d5, f01=0x0190, f02=» L $ P FTEXT 'INVOER APPARAAT DEFECT' L P FMEND 4 L PERR033 FRMT L P FSL
0x30b658…30b7ec Dummy {f00=0x00d5, f01=0x0190, f02=» Z L PERR034 FRMT L P FSL j P FTEXT 'SPAARREKENING' L P FMEND
0x30b7ec…30b980 Dummy {f00=0x00d5, f01=0x0190, f02=» FSL P FTEXT 'DEZELFDE NUMMERS' P FMEND . PERR037 FRMT < P FSL P P FTEXT 'SALDO NIET NUL' P FTAB 20 | P FMEL 'ZZZZZZZZ9,99-',ADBAL P FMEND PERR038 FRMT P FSL P FTEXT 'GEEN TRANSACTIES' P FMEND
0x30b980…30bb14 (6, 70) Dummy {f00=0x00d6, f01=0x402a, f02=»****************************** f@ & P ` h p x
0x30bb14…30bca8 Dummy {f00=0x00d6, 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
0x30bca8…30be3c Dummy {f00=0x00d6, f01=0x0190, f02=» L P FMEND L P* * T L P* * L P*
0x30be3c…30bfd0 Dummy {f00=0x00d6, f01=0x0190, f02=» L P FSL L P FTEXT 'WACHTWOORD :' T P P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,NUM L P FCOPY OCPASS
0x30bfd0…30c164 Dummy {f00=0x00d6, 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
0x30c164…30c2f8 Dummy {f00=0x00d6, 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
0x30c2f8…30c48c Dummy {f00=0x00d6, f01=0x0190, f02=» P L P FNL L P FTEXT 'KAS TOTAAL S :' ` L P FCOPY YCCCY(KW4) P P FKI 24,
0x30c48c…30c620 Dummy {f00=0x00d6, 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
0x30c620…30c7b4 (6, 71) Dummy {f00=0x00d6, 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)
0x30c7b4…30c948 Dummy {f00=0x00d6, 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
0x30c948…30cadc Dummy {f00=0x00d6, f01=0x0190, f02=» h L P FMEL '9',WD1 , L P FMEND | L P*
0x30cadc…30cc70 Dummy {f00=0x00d6, f01=0x0190, f02=» * l L PFMT018 FRMT OPERATOR ACCUMULATORS , L P FSL | L P FTEXT 'CASH DEPOSITS :'
0x30cc70…30ce04 Dummy {f00=0x00d6, f01=0x0190, f02=») p L P FNL 0 L P FMEND L P*
0x30ce04…30cf98 Dummy {f00=0x00d6, 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
0x30cf98…30d12c Dummy {f00=0x00d6, f01=0x0190, f02=» PERR005 FRMT P FSL P FTEXT 'ERR0R 5' ( P FMEND @ L P************************************************************************ N L P* * L P* ERR0R 10
0x30d12c…30d2c0 Dummy {f00=0x00d6, f01=0x0190, f02=»********************************************************************** PERR010 FRMT N P FSL b P FTEXT 'VALUE NOT IN RANGE' n P FMEND L P************************************************************************ L P*
0x30d2c0…30d454 (6, 72) Dummy {f00=0x00d6, f01=0x0190, f02=»* * L P************************************************************************ P L PERR020 FRMT L P FSL
0x30d454…30d5e8 Dummy {f00=0x00d6, f01=0x0190, f02=» FMEND L P************************************************************************ P L P* * L P* ERR0R 23
0x30d5e8…30d77c Dummy {f00=0x00d6, f01=0x0190, f02=»************************************************************************ L PERR023 FRMT P L P FSL L P FTEXT 'OPERATOR UNKNOWN
0x30d77c…30d910 Dummy {f00=0x00d6, f01=0x0190, f02=»************************************************************************ L P* * ! P L P* ERR0R 24 * ! L P*
0x30d910…30daa4 Dummy {f00=0x00d6, f01=0x0190, f02=»ERR024 FRMT ! L P FSL " P L P FTEXT 'OPERATOR ALREADY LOGGED ON' " L P FMEND
0x30daa4…30dc38 Dummy {f00=0x00d6, f01=0x0190, f02=»* * " L P* ERR0R 25 * # P L P* * # L P************************
0x30dc38…30ddcc Dummy {f00=0x00d6, f01=0x0190, f02=» FSL # L P FTEXT 'WRONG PASSWORD' $ P L P FMEND $ L P************************
0x30ddcc…30df60 Dummy {f00=0x00d6, f01=0x0190, f02=»* ERR0R 26 * $ L P* * % P L P************************************************************************ % L PERR026 FRMT
0x30df60…30e0f4 (6, 73) Dummy {f00=0x00d6, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR % L P FMEND & P L P************************************************************************ & L P*
0x30e0f4…30e288 Dummy {f00=0x00d6, f01=0x0190, f02=»* * & L P************************************************************************ ' P L PERR027 FRMT ' L P FSL
0x30e288…30e41c Dummy {f00=0x00d6, f01=0x009c, f02=» FMEND ' L P************************************************************************ ( P L PERR027 FRMT ' L P FSL
0x30e41c…30e5b0 Dummy {f00=0x00d6, f01=0x2008, f02=» ) ' L P************************************************************************ ( P L PERR027 FRMT ' L P FSL
0x30e5b0…30e744 Dummy {f00=0x00d6, f01=0x0190, f02=» V L P************************************************************************ L P* * f L P* DEMO TP71: SPECIAL CHARACTERS * L P*
0x30e744…30e8d8 Dummy {f00=0x00d6, f01=0x0190, f02=»************** V L PFMT067 FRMT L P FTEXT ' ' f L P FILLR ' ',6 L P F
0x30e8d8…30ea6c Dummy {f00=0x00d6, f01=0x0190, f02=» V 8 P FTEXT =X'1A301A311A321A331A341A351A361A371A381A39' P* OCR CHARACTERS R > P FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE33AE34AE35AE36' l P* ROOMLESS POINT P FTEXT =X'AE37AE38AE39' L P FMEND
0x30ea6c…30ec00 Dummy {f00=0x00d6, f01=0x0190, f02=» * " P* FORMATS FOR COMPACT TERMINAL F L P* * l L P************************************************************************
0x30ec00…30ed94 (6, 74) Opaque[0x194]
0x30ed94…30ef28 # DirEnt {nam=»GERDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ae0, f03=0x0000}
0x30ed94…30ef28 IdxSect {
0x30ed94…30ef28 f00 = 0x00d7 // 0x30ed94 @0x0
0x30ed94…30ef28 f01 = 0x004e // 0x30ed96 @0x2
0x30ed94…30ef28 gno = [ // 0x30ed98 @0x4
0x30ed94…30ef28 [0x00]: C0x00d7.0x0.0
0x30ed94…30ef28 [0x01]: C0x00d7.0x1.0
0x30ed94…30ef28 [0x02]: C0x00d7.0x2.0
0x30ed94…30ef28 [0x03]: C0x00d7.0x3.0
0x30ed94…30ef28 [0x04]: C0x00d8.0x0.0
0x30ed94…30ef28 [0x05]: C0x00d8.0x1.0
0x30ed94…30ef28 [0x06]: C0x00d8.0x2.0
0x30ed94…30ef28 [0x07]: C0x00d8.0x3.0
0x30ed94…30ef28 [0x08]: C0x00d9.0x0.0
0x30ed94…30ef28 [0x09]: C0x00d9.0x1.0
0x30ed94…30ef28 [0x0a]: C0x00d9.0x2.0
0x30ed94…30ef28 [0x0b]: C0x00d9.0x3.0
0x30ed94…30ef28 [0x0c]: C0x00da.0x0.0
0x30ed94…30ef28 [0x0d]: C0x00da.0x1.0
0x30ed94…30ef28 [0x0e]: C0x00da.0x2.0
0x30ed94…30ef28 [0x0f]: C0x00da.0x3.0
0x30ed94…30ef28 [0x10]: C0x00db.0x0.0
0x30ed94…30ef28 [0x11]: C0x00db.0x1.0
0x30ed94…30ef28 [0x12]: C0x00db.0x2.0
0x30ed94…30ef28 [0x13]: C0x00db.0x3.0
0x30ed94…30ef28 [0x14]: C0x00dc.0x0.0
0x30ed94…30ef28 [0x15]: C0x00dc.0x1.0
0x30ed94…30ef28 [0x16]: C0x00dc.0x2.0
0x30ed94…30ef28 [0x17]: C0x00dc.0x3.0
0x30ed94…30ef28 [0x18]: C0x00dd.0x0.0
0x30ed94…30ef28 [0x19]: C0x00dd.0x1.0
0x30ed94…30ef28 [0x1a]: C0x00dd.0x2.0
0x30ed94…30ef28 [0x1b]: C0x00dd.0x3.0
0x30ed94…30ef28 [0x1c]: C0x00de.0x0.0
0x30ed94…30ef28 [0x1d]: C0x00de.0x1.0
0x30ed94…30ef28 [0x1e]: C0x00de.0x2.0
0x30ed94…30ef28 [0x1f]: C0x00de.0x3.0
0x30ed94…30ef28 [0x20]: C0x00df.0x0.0
0x30ed94…30ef28 [0x21]: C0x00df.0x1.0
0x30ed94…30ef28 [0x22]: C0x00df.0x2.0
0x30ed94…30ef28 [0x23]: C0x00df.0x3.0
0x30ed94…30ef28 [0x24]: C0x00e0.0x0.0
0x30ed94…30ef28 [0x25]: C0x00e0.0x1.0
0x30ed94…30ef28 [0x26]: C0x00e0.0x2.0
0x30ed94…30ef28 ]
0x30ed94…30ef28 }
0x30ef28…30f0bc Dummy {f00=0x00d7, 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
0x30f0bc…30f250 Dummy {f00=0x00d7, 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
0x30f250…30f3e4 Dummy {f00=0x00d7, 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,FMTDUM, C , P FMTDUM,F
0x30f3e4…30f578 Dummy {f00=0x00d7, f01=0x018e, f02=»FMTDUM,FMTDUM,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
0x30f578…30f70c Dummy {f00=0x00d7, 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**************************************************************
0x30f70c…30f8a0 Dummy {f00=0x00d7, f01=0x0190, f02=» * j L P* * * L P************************************************************************ z PFMT012 FRMT FSL P FHIGH P FTEXT '********
0x30f8a0…30fa34 (6, 75) Dummy {f00=0x00d7, 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
0x30fa34…30fbc8 Dummy {f00=0x00d7, 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'
0x30fbc8…30fd5c Dummy {f00=0x00d7, 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
0x30fd5c…30fef0 Dummy {f00=0x00d7, 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
0x30fef0…310084 Dummy {f00=0x00d7, 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
0x310084…310218 Dummy {f00=0x00d7, 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
0x310218…3103ac Dummy {f00=0x00d7, 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 :'
0x3103ac…310540 Dummy {f00=0x00d7, f01=0x0190, f02=»NTO NR. :' P FKI 44,MAXL=6,ME,NEOI N P FMEL 'ZZZZZZZZZZZZ',IDNR1 l P FMEND L P************************************************************************ L P*
0x310540…3106d4 (6, 76) Dummy {f00=0x00d7, f01=0x0190, f02=» * L P************************************************************************ L PFMT013 FRMT P FSL T P FTEXT 'ALPHANUM. TASTATUR (N=0,J=1) ?'
0x3106d4…310868 Dummy {f00=0x00d7, 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) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDPRTTYP
0x310868…3109fc Dummy {f00=0x00d7, f01=0x0190, f02=» P FNL T P FTEXT 'ODR (N=0,J=1) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 h P FMEL '9',RDODR P FNL T P FTEXT 'TERMINAL NR. :'
0x3109fc…310b90 Dummy {f00=0x00d7, f01=0x0190, f02=» n ( P FKI 17,ME,MINL=1,MAXL=20,ALPHA,NEOI 6 P FCOPY RCTRMNME b P FB F01390 z PF01310 T P FTEXT 'NAME TERMINAL :' P FTAB 17 P FTEXT
0x310b90…310d24 Dummy {f00=0x00d7, f01=0x0190, f02=»********************************** j L P* * * L P* SYSTEM START - PART 2 * z L P*
0x310d24…310eb8 Dummy {f00=0x00d7, f01=0x0190, f02=» L P FSL ***************************** T P FTEXT 'MLP INTEGRIERT (N=0,J=1) ' T > P FKI 36,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=1 " P FMEL '9',YDMLP
0x310eb8…31104c Dummy {f00=0x00d7, f01=0x0190, f02=» FBZ RDALFKB,F01410 8 P FKI 33,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF01410 X P FCOPY YCCCY(KW4) f P FNL P FTEXT 'TEXT ? ' P FTAB 12 P FBZ RDALFKB,F01420 : P FKI 12,ME,MINL=
0x31104c…3111e0 Dummy {f00=0x00d7, f01=0x0190, f02=» l , P FKI 22,ME,MINL=4,MAXL=4,NUM,NEOI,REWRT 2 P FMEL 'ZZE:ZZ',NDTIME b P FNL P FTEXT 'DATUM (TTMMJJ) ? ' 4 P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,REWRT,APPL=32 P FMEL 'ZZE-ZZE-ZZ',NDDATE P
0x3111e0…311374 (6, 77) Dummy {f00=0x00d7, f01=0x0190, f02=» * n L P* * . L P************************************************************************ ~ ( PFMT015 FRMT CURRENCY INITIALISATION L P FSL
0x311374…311508 Dummy {f00=0x00d7, f01=0x0190, f02=» J P FBZ RDALFKB,F01510 : P FKI 17,ME,MINL=1,MAXL=20,ALPHA,NEOI,NCLR . PF01510 l P FCOPY CCCCYNME z P FNL T P FTEXT 'WAEHRUNGSCODE : ' P
0x311508…31169c Dummy {f00=0x00d7, f01=0x0190, f02=» FTAB 26 P FTEXT 'REL.: ' D P FKI 32,ME,MINL=1,MAXL=5,NUM,NEOI,NCLR,APPL=21,REWRT > $ P FMEL 'ZZZZ9',CDRELAT P FNL T P FTEXT 'ANKAUFSKURSE :(1)'
0x31169c…311830 Dummy {f00=0x00d7, f01=0x0190, f02=» FTAB 27 P FTEXT '(2)' D P FKI 30,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=23 6 & P FMEL 'ZZZZ,ZZ',CDBUY2 ~ P FNL T P FTEXT 'VERKAUFSKURSE :(1)'
0x311830…3119c4 Dummy {f00=0x00d7, f01=0x0190, f02=»TAB 27 P FTEXT '(2)' D P FKI 30,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=24 0 & P FMEL 'ZZZZ,ZZ',CDSEL2 x P FNL T P FTEXT 'WAEHRUNGSLIMIT:'
0x3119c4…311b58 Dummy {f00=0x00d7, f01=0x0190, f02=» L P************************************************************************ L P* * X L P* GET OPERATOR IDENTIFICATION (DBUOPR) * L P*
0x311b58…311cec Dummy {f00=0x00d7, f01=0x0190, f02=» H L PFMT016 FRMT OPERATOR IDENTIFICATION L P FSL X T P FTEXT 'BEDIENER NR. :' , P FKI 17,
0x311cec…311e80 Dummy {f00=0x00d7, f01=0x0190, f02=» ~ L P************************************************************************ > L P* * L P* OPERATOR UPDATE (DBUOPR)
0x311e80…312014 (6, 78) Dummy {f00=0x00d8, f01=0x018e, f02=»****************************************************** ~ ( PFMT017 FRMT OPERATOR SPECIFICATION > L P FSL j T P FTEXT 'NAME BEDIENER :'
0x312014…3121a8 Dummy {f00=0x00d8, f01=0x0190, f02=» L P FCOPY OCNAME L P FNL T T P FTEXT 'KENNWORT :' R P FKI 17,ME,M
0x3121a8…31233c Dummy {f00=0x00d8, f01=0x0190, f02=» R L P FNL T P FTEXT 'SPRACHE :' b R P FKI 17,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=5
0x31233c…3124d0 Dummy {f00=0x00d8, f01=0x0190, f02=» ` L P FNL ! P FNL ! p L P FNL ! | L P FNL
0x3124d0…312664 Dummy {f00=0x00d8, f01=0x0190, f02=»Y(KW4) ! P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT " D R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) " L P FNL
0x312664…3127f8 Dummy {f00=0x00d8, f01=0x0190, f02=» " N P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT # R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) # b L P FNL # P
0x3127f8…31298c Dummy {f00=0x00d8, f01=0x0190, f02=»,REWRT # h R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) $ , L P FNL $ P FTAB 20 $ L P FCOPY YCCCY(KW3)
0x31298c…312b20 Dummy {f00=0x00d8, f01=0x0190, f02=»ZZZZZ9,99-',ODCASH(KW1,KW3) $ L P FNL % L T P FTEXT 'AKK. AUF NULL STELLEN (N=0,J=1) ?' % R P FKI 35,ME,MINL=1,MA
0x312b20…312cb4 (6, 79) Dummy {f00=0x00d8, f01=0x0190, f02=» % J L P FMEND & L P************************************************************************ & L P* * & L P* OPERATOR A
0x312cb4…312e48 Dummy {f00=0x00d8, f01=0x0190, f02=» * & L L P************************************************************************ ' L PFMT018 FRMT ' L P FSL ' T P FTEXT 'EINZ
0x312e48…312fdc Dummy {f00=0x00d8, f01=0x0190, f02=»MAXL=11,NCLR,NEOI,NUM,REWRT ' ~ L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW3) ( B L P FNL ( T P FTEXT 'AUSZAHLUNGEN :'
0x312fdc…313170 Dummy {f00=0x00d8, f01=0x0190, f02=»T ( d L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW4) ) ( L P FNL ) x T P FTEXT 'AKKUM. SCHECKS :'
0x313170…313304 Dummy {f00=0x00d8, f01=0x0190, f02=» ) J L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) * L P FNL * ^ T P FTEXT 'AKKUM. UEBERWEIS. :' * P F
0x313304…313498 Dummy {f00=0x00d8, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW2,KW2) * L P FNL + D L P FNL + L P FNL
0x313498…31362c Dummy {f00=0x00d8, f01=0x0190, f02=»RUNGSVERKAEUFE:' + L P FCOPY YCCCY(KW4) , L P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT , L P FMEL 'ZZZZZZZZ9,99-',OD
0x31362c…3137c0 Dummy {f00=0x00d8, f01=0x0190, f02=» FTEXT 'WAEHRUNGSANKAEUFE :' , L P FCOPY YCCCY(KW4) - X P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - L P FMEL 'ZZZZZ
0x3137c0…313954 (6, 80) Dummy {f00=0x00d8, f01=0x0190, f02=» - L T P FTEXT 'WAEHRUNGS AKKUM. :' . L P FCOPY YCCCY(KW1) . d P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT . L P
0x313954…313ae8 Dummy {f00=0x00d8, f01=0x0190, f02=» . X L P FTAB 20 / L P FCOPY YCCCY(KW2) / h P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT /
0x313ae8…313c7c Dummy {f00=0x00d8, f01=0x0190, f02=» / L P FTAB 20 0 L P FCOPY YCCCY(KW3) 0 l P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT
0x313c7c…313e10 Dummy {f00=0x00d8, f01=0x0190, f02=» 0 ` L P************************************************************************ 1 L P* * 1 p L P* TERMINAL START, USED BY CCSTTT *
0x313e10…313fa4 Dummy {f00=0x00d8, f01=0x0190, f02=»************************ 1 ` L PFMT019 FRMT 2 L P FSL 2 p L P FCOPY YCTEXT
0x313fa4…314138 Dummy {f00=0x00d8, f01=0x0190, f02=» 2 ` P FTAB 13 3 $ P FBZ RDALFKB,F01910 3 4 P FCOPY RCTRMNME 3 P P FB F01920 3 h PF01910 3 z T P FTEXT 'SCHALTER NR.(' 3 L P FMEL '999',NDTRMNR
0x314138…3142cc Dummy {f00=0x00d8, f01=0x0190, f02=» 3 | T P FTEXT 'ZEIT (SSMM) : ' 4 < P FTAB 20 4 P FMEL 'ZZE:ZZ',NDTIME 4 L P FNL
0x3142cc…314460 Dummy {f00=0x00d8, f01=0x0190, f02=»T,APPL=7 4 j L P FMEL 'ZZE-ZZE-ZZ',IDNR1 5 * L P FMEND 5 z L P**************************************************************
0x314460…3145f4 (6, 81) Dummy {f00=0x00d8, f01=0x0190, f02=»O * 5 j L P* * 6 * L P************************************************************************ 6 z L PFMT021 FRMT
0x3145f4…314788 Dummy {f00=0x00d8, f01=0x0190, f02=» 6 j F P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=8 7 2 J P FMEL 'ZZZZZ',IDNR1 7 | L P FNL
0x314788…31491c Dummy {f00=0x00d8, f01=0x0190, f02=»,NEOI,APPL=9 7 r N P FCOPY ICTEXT1 8 2 L P FNL 8 T P FTEXT 'SPRACHE : '
0x31491c…314ab0 Dummy {f00=0x00d8, f01=0x0190, f02=» 8 b L P FMEND 9 " L P************************************************************************ 9 r L P*
0x314ab0…314c44 Dummy {f00=0x00d8, f01=0x0190, f02=» * 9 b L P************************************************************************ : " L PFMT022 FRMT : r L P FSL
0x314c44…314dd8 Dummy {f00=0x00d8, f01=0x018e, f02=» : j L P FNL ; * T P FTEXT 'KASSENBESTAND : ' ; z P FTAB 20 ; L P FCOPY YCCCY(KW4)
0x314dd8…314f6c Dummy {f00=0x00d8, f01=0x0190, f02=» P FNL < L P FTAB 20 < L P FCOPY YCCCY(KW1) < ` P FTAB 24 < L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1)
0x314f6c…315100 Dummy {f00=0x00d8, f01=0x0190, f02=» < l P FTAB 24 = , L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) = < P FNL = L P FTAB 20 = L P FCOPY YCCCY(KW3)
0x315100…315294 (6, 82) Dummy {f00=0x00d9, f01=0x0190, f02=» = H P FNL > T P FTEXT 'TASTE CONT ODER TASTE CANCEL' > T P FKI 36 > l P FCOPY WCSTRG6 > L P FMEND
0x315294…315428 Dummy {f00=0x00d9, f01=0x0190, f02=» > z L P FSL ? : L P FBF SBCARD,F27200 ? P FBF SBMSU,F27100 ? P* ? P* MAGNETIC
0x315428…3155bc Dummy {f00=0x00d9, f01=0x0190, f02=» * ? j L P* BADGE CARD READER INPUT * @ * L P* * @ z T P FTEXT 'ZIEHE KARTE DURCH BCR'
0x3155bc…315750 Dummy {f00=0x00d9, f01=0x0190, f02=» @ r L P FBF SBCHEQUE,F27300 A 2 L P* * A L P* OPTICAL DOCUMENT READER INPUT
0x315750…3158e4 Dummy {f00=0x00d9, f01=0x0190, f02=»' A r L P FB F27999 B : L P* * B L P* KEYBOARD INPUT
0x3158e4…315a78 Dummy {f00=0x00d9, f01=0x0190, f02=» B z T P FTEXT 'KONTO ODER KARTENNUMMER : ' C : T P FKI 27,ME,MINL=4,MAXL=6,NUM,NEOI,REWRT,APPL=22 C L P FMEL 'ZZZZZZ',IDACTNR1
0x315a78…315c0c Dummy {f00=0x00d9, f01=0x0190, f02=» C H L P************************************************************************ D L P* * D X L P* ENTER REQUIRED FUNCTION (BESELF) * D L P*
0x315c0c…315da0 Dummy {f00=0x00d9, f01=0x0190, f02=» D H PMSG030 FRMT E P FSL E P FLOW E ( T P FTEXT 'BITTE FUNKTION EINGEBEN : ' E 6 P FMEND E L P************************************************************************ E L P* OPEN ACCOUNT (DFOACT)
0x315da0…315f34 (6, 83) Dummy {f00=0x00d9, f01=0x0190, f02=»******************************************************************** E PFMT039 FRMT OPEN ACCOUNT F L L P FSL F n L P FBT SBCHEQUE,F03910 F
0x315f34…3160c8 Dummy {f00=0x00d9, f01=0x0190, f02=» F f L PF03910 G & T P FTEXT 'EROEFNNE GIROKONTO NUMMER : ' G v L PF03920
0x3160c8…31625c Dummy {f00=0x00d9, f01=0x0190, f02=» G n L P FTEXT 'NAME :' H . T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 H ~ L P FCOPY ACNAME
0x31625c…3163f0 Dummy {f00=0x00d9, f01=0x0190, f02=» H v T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 I > L P FCOPY ACADDRES I L P FNL
0x3163f0…316584 Dummy {f00=0x00d9, f01=0x0190, f02=»KI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 I L P FCOPY ACTOWN J V L P FNL J L P FBT SBCHEQUE,F039
0x316584…316718 Dummy {f00=0x00d9, f01=0x0190, f02=» J F T P FKI 11,MAXL=6,ALPHA,ME,NCLR K L P FCOPY ACPASS K f L P FB F03940 K L PF0
0x316718…3168ac Dummy {f00=0x00d9, f01=0x0190, f02=»E,NEOI K n L P FMEL 'ZZZZ',ADCARDNR L T P FTEXT ' KREDIT LIMIT:' L ^ & P FKI 25,MAXL=11,NUM,ME,NCLR,REWRT L P P FMEL 'ZZZZZZZ9,99',ADLIMBOK
0x3168ac…316a40 Dummy {f00=0x00d9, f01=0x0190, f02=»************** L V P* M L P* CLOSE ACCOUNT (DGCACT) * M P* M p L P************************************************************************ M z 8 PFMT040 FRMT CLOSE ACCOUNT M P
0x316a40…316bd4 (6, 84) Dummy {f00=0x00d9, f01=0x0190, f02=» M D P FB F04020 N PF04010 N . T P FTEXT 'ABSCHLUSS GIROKONTO NR. : ' N < PF04020 N P FTAB 30 N ( P FMEL '999999',IDACTNR1 N P FNL N " P FTEXT 'NA
0x316bd4…316d68 Dummy {f00=0x00d9, f01=0x018e, f02=» N N P FTAB 24 O , P FMEL 'ZZZZZZZZ9,99',ADBAL O & P FNL O V & P FBT SBCHQACT,F04030 O j T P FTEXT 'BUCH SALDO : ' O P FB F04040 O
0x316d68…316efc Dummy {f00=0x00d9, f01=0x018e, f02=» . P FMEL 'ZZZZZZZZ9,99',ADLIMBOK P P FNL P 6 & P FBT SBCHQACT,F04050 P J T P FTEXT 'KENNWORT : ' P t P FTAB 24 P P FCOPY ACPASS P P F
0x316efc…317090 Dummy {f00=0x00d9, f01=0x018e, f02=» P & P FMEL '9999',ADCARDNR Q PF04060 Q 2 P FMEND Q @ L P************************************************************************ Q V L P* * Q L P* DEPOSIT
0x317090…317224 Dummy {f00=0x00d9, f01=0x0190, f02=» Q F L P************************************************************************ R L PFMT041 FRMT R X L P FSL R L P FBT SBCHQACT,F0
0x317224…3173b8 Dummy {f00=0x00d9, f01=0x0190, f02=» R H L P FB F04120 S L PF04110 S ^ R P FTEXT 'EINZAHLUNG - GIROKONTO:' S L PF041
0x3173b8…31754c Dummy {f00=0x00d9, f01=0x0190, f02=» S T L P FMEL '999999',IDACTNR1 T L P FNL T d L P FBT SBCHQACT,F04130 T L P FBT
0x31754c…3176e0 Dummy {f00=0x00d9, f01=0x0190, f02=» * T T L P* SAVINGS ACCOUNT WITH BOOK * U L P* * U d T P FTEXT 'BUCH SALDO :' U
0x3176e0…317874 (6, 85) Dummy {f00=0x00d9, f01=0x0190, f02=» U ` T P FTAB 28 V T P FTEXT 'ZEILE:' V x J P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11
0x317874…317a08 Dummy {f00=0x00d9, f01=0x0190, f02=» V n L P* * W . L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * W ~ L P*
0x317a08…317b9c Dummy {f00=0x00d9, f01=0x0190, f02=» W n L P FTAB 16 X . L P FCOPY ACNAME X ~ L PF04140
0x317b9c…317d30 Dummy {f00=0x00d9, f01=0x0190, f02=»L=1,MAXL=9,NUM,NEOI,APPL=12,REWRT X L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT Y F L P FNL Y T P FTEXT 'NEUER SALDO :'
0x317d30…317ec4 Dummy {f00=0x00d9, f01=0x018e, f02=»MEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL Y L P FMEND Z R L P************************************************************************ Z L P*
0x317ec4…318058 Dummy {f00=0x00d9, f01=0x0190, f02=» L P* * [ L P************************************************************************ [ T L PFMT042 FRMT [ L P FSL
0x318058…3181ec Dummy {f00=0x00d9, f01=0x0190, f02=» [ ` P FTEXT 'SPAR' L P FB F04220 6 L PF04210 P FTEXT 'GIRO' L PF04220
0x3181ec…318380 Dummy {f00=0x00d9, f01=0x0190, f02=» V L P FMEL '999999',IDACTNR1 ] L P FNL ] f L P FBT SBCHQACT,F04230 ] L P*
0x318380…318514 (6, 86) Dummy {f00=0x00da, f01=0x0190, f02=» * ] V L P* * ^ L P FTAB 12 ^ f T P FTEXT '- KENNWORT :' ^
0x318514…3186a8 Dummy {f00=0x00da, f01=0x0190, f02=» ^ ^ L P FB F04250 _ L PF04230 _ n L P FBT SBCHEQUE,F04240 _
0x3186a8…31883c Dummy {f00=0x00da, f01=0x0190, f02=» * _ ^ L P* * ` L P FTEXT 'NAME :' ` n L P FTAB 17 `
0x31883c…3189d0 Dummy {f00=0x00da, f01=0x0190, f02=» ` ^ L P* * a L P* CHEQUE ACCOUNT, CHEQUE INPUT * a n L P* * a
0x3189d0…318b64 Dummy {f00=0x00da, f01=0x0190, f02=» a ^ T P FTEXT '- SCHECK NR. :' b L P FTAB 31 b v L P FCOPY FCFIELD
0x318b64…318cf8 Dummy {f00=0x00da, f01=0x0190, f02=» b f L P FBT SBCHQACT,F04260 c & L P* * c v L P* SAVINGS ACCOUNT
0x318cf8…318e8c Dummy {f00=0x00da, f01=0x0190, f02=» c f L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT d . L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 d ~ T P FTAB 28
0x318e8c…319020 Dummy {f00=0x00da, f01=0x0190, f02=»MAXL=2,NUM,NEOI,APPL=11 d ~ L P FMEL 'ZZ',IDNR1 e > L P FB F04270 e L P*
0x319020…3191b4 (6, 87) Dummy {f00=0x00da, f01=0x018e, f02=» * e ~ L PF04260 f > T P FTEXT 'KREDIT LIMIT:' f P FTAB 24 f L P FMEL 'ZZZZZZZZ9,9
0x3191b4…319348 Dummy {f00=0x00da, f01=0x0190, f02=» f F P FNL g T P FTEXT 'BETRAG :' g L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT g l L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT g
0x319348…3194dc Dummy {f00=0x00da, f01=0x0190, f02=» g L P FTAB 24 h $ P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL h t L P FMEND
0x3194dc…319670 Dummy {f00=0x00da, f01=0x0190, f02=» * h h D P* PRINT, LINE TYPE 1 * i ( L P* * i p L P************************************************************************
0x319670…319804 Dummy {f00=0x00da, f01=0x0190, f02=» i ` P FBT SBVCH,P043005 j & L P FMEL 'Z',RDSHRPRT j @ L P FTAB 3 j PP043005 j P FTAB 5 j L P FBF SBS
0x319804…319998 Dummy {f00=0x00da, f01=0x0190, f02=» j P L PP043020 k L P FBF SBOACT,P043030 k h T P FTEXT 'KONTO EROEFFNEN'
0x319998…319b2c Dummy {f00=0x00da, f01=0x0190, f02=» k ` T P FTEXT 'KONTO ABSCHLUSS' l L PP043040 l x L P FBF SBBACT,P043050
0x319b2c…319cc0 Dummy {f00=0x00da, f01=0x0190, f02=» l p L P FBF SBDACT,P043060 m 0 T P FTEXT 'K. ENTSPERREN' m L PP043060
0x319cc0…319e54 (6, 88) Dummy {f00=0x00da, f01=0x0190, f02=» m x L PP043070 n @ L P FBF SBUCCY,P043080 n T P FTEXT 'WAEHR. AENDERN'
0x319e54…319fe8 Dummy {f00=0x00da, f01=0x0190, f02=»ACT,P043090 n T P FTEXT 'KONTO ABFRAGE' o H L PP043090 o L P FBF SBDSTM,P043100
0x319fe8…31a17c Dummy {f00=0x00da, f01=0x0190, f02=» o @ L PP043100 p L P FBF SBCOPR,P043110 p X T P FTEXT 'BED. ABSCHLUSS' p L PP043110
0x31a17c…31a310 Dummy {f00=0x00da, f01=0x0190, f02=» p P T P FTEXT 'SYST. ABSCHLUSS' q L PP043120 q h L P FBF SBECCY,P043130 q T P
0x31a310…31a4a4 Dummy {f00=0x00da, f01=0x0190, f02=» q ` L P FBF SBQCCY,P043140 r T P FTEXT 'WAEHR. ABFRAGE' r p L PP043140
0x31a4a4…31a638 Dummy {f00=0x00da, f01=0x018e, f02=» r h L PP043300 s 0 P FTAB 21 s P FBT SBSTTO,P043400 s P FBT SBCOPR,P043400 s P FBT SBVCH,P043400 s P FILLR ' ',6 s P FB P043500 s
0x31a638…31a7cc Dummy {f00=0x00da, f01=0x0190, f02=» s z P FBT SBFIL20,P043700 t P FB P043999 t $ PP043600 t 8 P FILLR ' ',4 t H PP043700 t P FILLR ' ',20 t l PP043999 t P FMEND t L P************************************************************************ t L P*
0x31a7cc…31a960 Dummy {f00=0x00da, f01=0x0190, f02=»* * t L P************************************************************************ u P L PPRT044 FRMT u R P FTEXT ' '
0x31a960…31aaf4 (6, 89) Dummy {f00=0x00da, f01=0x0190, f02=» u p PP044010 v 0 L P FTAB 5 v @ N P FBF SBCANCEL,P044100 v T P FTEXT 'ABBRUCH'
0x31aaf4…31ac88 Dummy {f00=0x00da, f01=0x0190, f02=»100 v L P FMEL '999999',TDTRSSEQ w N N PP044200 w L P FTAB 12
0x31ac88…31ae1c Dummy {f00=0x00da, f01=0x0190, f02=» FTAB 18 w L P FMEL '999',NDTRMNR x P L P FTAB 22 x L P FMEL '99E:99',NDTIME
0x31ae1c…31afb0 Dummy {f00=0x00da, f01=0x018e, f02=»600 x P FILLR ' ',4 y PP044700 y P FILLR ' ',20 y 0 PP044999 y F L P FMEND y V L P************************************************************************ y L P*
0x31afb0…31b144 Dummy {f00=0x00da, f01=0x0190, f02=» y F L P* * z L P************************************************************************ z X L PFMT045 FRMT z L P FSL
0x31b144…31b2d8 Dummy {f00=0x00da, f01=0x0190, f02=» z H L P FBT SBCARD,F04510 { 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT { ` L P FMEL 'ZZZZZZ',IDACTNR1 { L P FB F04520
0x31b2d8…31b46c Dummy {f00=0x00da, f01=0x0190, f02=» { L P FMEL '999999',IDACTNR1 | L PF04520 | X L P FNL | L P FBT SBCHQACT,F0
0x31b46c…31b600 Dummy {f00=0x00da, f01=0x0190, f02=» | H T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT } L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 } h T P FTEXT 'ZEILE: '
0x31b600…31b794 (6, 90) Dummy {f00=0x00db, f01=0x018e, f02=» } h L P FB F04540 ~ ( L PF04530 ~ x P FTEXT 'KREDIT LIMIT:' ~ P FTAB 24 ~ L P FMEL 'ZZZZZZZZ9,9
0x31b794…31b928 Dummy {f00=0x00db, f01=0x0190, f02=» ~ F L P FNL P FTEXT 'BETRAG :' X T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT v L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT
0x31b928…31babc Dummy {f00=0x00db, f01=0x0190, f02=» n P FTAB 24 6 N P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL F P FNL T P FTEXT 'UEBERWEISUNG AUF KONTO: ' R P FKI 30,MINL
0x31babc…31bc50 Dummy {f00=0x00db, f01=0x0190, f02=» R L P FMEND L P************************************************************************ b L P* * L P* ACC
0x31bc50…31bde4 Dummy {f00=0x00db, f01=0x0190, f02=» * R L P************************************************************************ L PFMT046 FRMT INQUIRE ACCOUNT b L P FSL L P FBT S
0x31bde4…31bf78 Dummy {f00=0x00db, f01=0x0190, f02=» R L P FB F04620 L PF04610 j T P FTEXT 'ABFRAGE GIROKONTO NUMMER : '
0x31bf78…31c10c Dummy {f00=0x00db, f01=0x0190, f02=» r L P FNL 2 T P FTEXT 'SALDO : ' P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ADBAL
0x31c10c…31c2a0 Dummy {f00=0x00db, f01=0x018e, f02=»BCHQACT,F04630 T P FTEXT 'BUCH SALDO : ' J L P FB F04640 L PF04630
0x31c2a0…31c434 (6, 91) Dummy {f00=0x00db, f01=0x0190, f02=» B L PF04640 P FTAB 20 X L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK h L P FNL H P
0x31c434…31c5c8 Dummy {f00=0x00db, f01=0x0190, f02=» T L P FMEL '9',ADSTATUS L P FNL l , P FTEXT 'LETZTE TRANS.VERLANGT(N=0,J=1)' * P FKI 32,APPL=1,MAXL=1,NUM,NC
0x31c5c8…31c75c Dummy {f00=0x00db, f01=0x0190, f02=»********************************************************** L P* * B L P* TRANSACTION INQUIRY (DIQACT) * L P*
0x31c75c…31c8f0 Dummy {f00=0x00db, f01=0x0190, f02=»NQUIRY TRANSACTION L P FSL B * P FTEXT 'TRANSAKTION ABFRAGE-KONTONR: ' P FTAB 26 L P FMEL '999999',IDACTNR1
0x31c8f0…31ca84 Dummy {f00=0x00db, f01=0x0190, f02=» p P FTAB 7 0 L P FMEL '999',UDTRSCDE @ L P FTEXT '/' L P FMEL '99999',UDOPRNR
0x31ca84…31cc18 Dummy {f00=0x00db, f01=0x0190, f02=»DTRSSEQ L P FTEXT '/' @ L P FMEL '99E-99E-99',UDDATE L P FNL
0x31cc18…31cdac Dummy {f00=0x00db, f01=0x0190, f02=» L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT L P FNL X P P FTEXT 'NEUER SALDO: ' P FTAB 20
0x31cdac…31cf40 Dummy {f00=0x00db, f01=0x0190, f02=» d , P FTEXT 'VORH. TRANS. VERLANGT (N=0,J=1)' $ * P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 T P FMEL '9',IDNR1 L P FMEND L P******************************
0x31cf40…31d0d4 (6, 92) Dummy {f00=0x00db, f01=0x0190, f02=»CK / DEBLOCK SCREEN (DHBACT) * L P* * J L P************************************************************************ L PFMT048 FRMT (DE-)BLOCK SCREEN
0x31d0d4…31d268 Dummy {f00=0x00db, f01=0x0190, f02=»BCHQACT,F04820 L P* * J L P* SAVINGS ACCOUNT * L P*
0x31d268…31d3fc Dummy {f00=0x00db, f01=0x0190, f02=» 'SPERREN SPARKONTO NUMMER :' L P FB F04840 R 0 PF04810 FTEXT 'ENTSPERREN SPARKONTO NUMMER:' L P FB F04840
0x31d3fc…31d590 Dummy {f00=0x00db, f01=0x0190, f02=»NUMMER :' v L P FB F04840 > 0 PF04830 FTEXT 'ENTSPERREN GIROKONTO NUMMER:' PF04840 P FTAB 30 L P FMEL '999999',IDACTNR1
0x31d590…31d724 Dummy {f00=0x00db, f01=0x0190, f02=»B 16 L P FCOPY ACNAME L P FNL T P FTEXT 'AKTUELLER SALDO :' P FTA
0x31d724…31d8b8 Dummy {f00=0x00db, f01=0x0190, f02=» p PF04850 0 T P FTEXT 'BUCH SALDO :' > P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK P FB F04865 P
0x31d8b8…31da4c Dummy {f00=0x00db, f01=0x0190, f02=»'ZZZZZZZZ9,99-',ADLIMBOK PF04865 J P FNL X L P FBZ RDALFKB,F04870 d T P FTEXT 'BEMERKUNG :'
0x31da4c…31dbe0 Dummy {f00=0x00db, f01=0x0190, f02=» 0 PF04870 FTEXT 'TASTE CONT ODER TASTE CANCEL' D L PF04899 FMEND x L P****************************************************************
0x31dbe0…31dd74 (6, 93) Dummy {f00=0x00db, f01=0x0190, f02=» FKI 36 P FCOPY ICDUMMY P FMEND & L P************************************************************************ 4 PMSG050 FRMT P FSL T P FTEXT 'PRUEFUNG NEUER SPARBUCHSEITE' T P FKI 29
0x31dd74…31df08 Dummy {f00=0x00db, f01=0x0190, f02=»************************************************ x L P* * 8 L P* PRINT: PASSBOOK CLOSE LINE * L P*
0x31df08…31e09c Dummy {f00=0x00db, f01=0x0190, f02=» x P FTEXT ' ' 8 L P FMEL 'ZZZZZZ',NDDATE L N P FILLR ' ',13 L P FMEL 'ZZZZZZ',IDACTNR1
0x31e09c…31e230 Dummy {f00=0x00db, f01=0x0190, f02=»P05110 FTEXT '** ABGESCHL.**' PP05120 FMEND & L P************************************************************************ : L P* * L P* UPDATE ACCOUNT, MASTER KEYSETTING OFF (DJU
0x31e230…31e3c4 Dummy {f00=0x00db, f01=0x0190, f02=»************************************************** z J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1 : L P FSL L P FBT SBCHQACT,F05210
0x31e3c4…31e558 Dummy {f00=0x00db, f01=0x0190, f02=» L PF05210 @ T P FTEXT 'AENDERN GIROKONTO NUMMER : ' L PF05220
0x31e558…31e6ec Dummy {f00=0x00db, f01=0x0190, f02=» h L P FTEXT 'NAME :' ( P FTAB 16 x L P FBZ RDALFKB,F05230 T P FKI 16,MAXL=20,ALPHA,ME,NCLR,APPL=18,NEOI
0x31e6ec…31e880 Dummy {f00=0x00db, f01=0x0190, f02=» L P FNL @ T P FTEXT 'ADRESSE :' P FTAB 16 L P FBZ RDALFKB,F05
0x31e880…31ea14 (6, 94) Dummy {f00=0x00dc, f01=0x0190, f02=» H L PF05240 L P FCOPY ACADDRES ` L P FNL T P FTEXT '
0x31ea14…31eba8 Dummy {f00=0x00dc, f01=0x0190, f02=» X T P FKI 16,MAXL=20,ALPHA,ME,NCLR,NEOI,APPL=18 L PF05250 p L P FCOPY ACTOWN
0x31eba8…31ed3c Dummy {f00=0x00dc, f01=0x0190, f02=» ` L P* * L P* SAVINGS ACCOUNT * p L P* *
0x31ed3c…31eed0 Dummy {f00=0x00dc, f01=0x0190, f02=» x N P FKI 30,MAXL=6,ALPHA,NEOI,NCLR 8 L PF05260 L P FCOPY ACPASS
0x31eed0…31f064 Dummy {f00=0x00dc, f01=0x0190, f02=»XT 'KREDIT LIMIT :' T P FKI 24,MAXL=11,NUM,NCLR,REWRT,ME,NEOI T L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK PF05299 L
0x31f064…31f1f8 Dummy {f00=0x00dc, f01=0x0190, f02=»****************** Z L P* * L P* UPDATE ACCOUNT, MASTER KEYSETTING ON (DJUACT) * j L P* * L
0x31f1f8…31f38c Dummy {f00=0x00dc, f01=0x0190, f02=» Z L P FSL L P FBT SBCHQACT,F05310 j T P FTEXT 'AENDERN SPARKONTO NUMMER : '
0x31f38c…31f520 Dummy {f00=0x00dc, f01=0x0190, f02=» b T P FTEXT 'AENDERN GIROKONTO NUMMER : ' " PF05320 z P FTAB 30 P FMEL '999999',IDACTNR1 P FNL L P FBT SBCHQACT,F05330
0x31f520…31f6b4 (6, 95) Dummy {f00=0x00dc, f01=0x0190, f02=»OI l L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK 2 T P FTEXT 'ZEILE:' R P FKI 34,MAXL=2,NUM,ME,NCLR,REWRT,APPL=16,NEOI
0x31f6b4…31f848 Dummy {f00=0x00dc, f01=0x0190, f02=» L PF05330 @ T P FTEXT 'KREDIT LIMIT:' R P FKI 24,MAXL=11,NUM,ME,NCLR,REWR
0x31f848…31f9dc Dummy {f00=0x00dc, f01=0x0190, f02=»5340 L P FNL N T P FTEXT 'SALDO :' L P
0x31f9dc…31fb70 Dummy {f00=0x00dc, f01=0x0190, f02=» F L P FMEL 'ZZZZZZZZ9,99-',ADBAL L P FNL ^ L P FTEXT 'STATUS :' R P FKI 35,MA
0x31fb70…31fd04 Dummy {f00=0x00dc, f01=0x0190, f02=» T L P FNL P FNL d T P FTEXT 'LETZTER TRANSAKTION :' p R P FKI 24,NEOI,MAXL=2,NUM,ME,NCLR,REWRT,APPL=17
0x31fd04…31fe98 Dummy {f00=0x00dc, f01=0x0190, f02=» n T P FTEXT 'LETZTER GEDRUCKT :' . R P FKI 24,NEOI,MAXL=2,NUM,ME,NCLR,REWRT,APPL=17 L P FMEL '99',ADSTMTRS
0x31fe98…32002c Dummy {f00=0x00dc, f01=0x018e, f02=»HLUNGEN :' | R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT D L P FMEL 'ZZZZZZZZ9,99',ADDEPCUM L P FNL
0x32002c…3201c0 Dummy {f00=0x00dc, f01=0x0190, f02=» R P FKI 24,NEOI,MAXL=11,NUM,ME,NCLR,REWRT L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM Z L P FMEND L P**************
0x3201c0…320354 (6, 96) Dummy {f00=0x00dc, f01=0x0190, f02=» P FKI 34 P FCOPY ICDUMMY P FMEND * L P*********************************************************************** 8 L P* * L P* LIST ACCOUNTS, HEADER LINE (DELACT)
0x320354…3204e8 Dummy {f00=0x00dc, f01=0x0190, f02=»************************************************ x L PFMT055 FRMT 8 L P FNL L P FNL
0x3204e8…32067c Dummy {f00=0x00dc, f01=0x0190, f02=» T P FTEXT 'KARTE' @ L P FTAB 13 L P FTEXT 'NAME'
0x32067c…320810 Dummy {f00=0x00dc, f01=0x0190, f02=»EINZAHLUNGEN' L P FTAB 49 P T P FTEXT 'AUSZAHLUNGEN' L P FTAB 63
0x320810…3209a4 Dummy {f00=0x00dc, f01=0x0190, f02=» H L P FMEND J P********************************************************************** X P* P* CURRENCY INQUIRY (DQCCY) P* J P******************************************
0x3209a4…320b38 Dummy {f00=0x00dc, f01=0x018e, f02=» L P FTAB 17 P FCOPY CCCCYNME $ P FNL < T P FTEXT 'WAEHRUNGSCODE : ' H P FTAB 17 P FCOPY CCCCYCDE P FTAB 26 P FTEXT 'REL.: ' P FTAB 32 P FMEL 'Z
0x320b38…320ccc Dummy {f00=0x00dc, f01=0x0190, f02=» P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 $ P FTEXT '(2)' 4 P FTAB 30 H P FMEL 'ZZZ9,99',CDBUY2 X P FNL v T P FTEXT 'VERKAUFSKURSE :(1)' P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1
0x320ccc…320e60 Dummy {f00=0x00dc, f01=0x0190, f02=» j P FTAB 28 2 P FMEL 'ZZZZZ9,99',CDLIMIT B P FMEND d L P************************************************************************ r L P*
0x320e60…320ff4 (6, 97) Dummy {f00=0x00dc, f01=0x0190, f02=» * b L P************************************************************************ " L PFMT058 FRMT r L P FSL
0x320ff4…321188 Dummy {f00=0x00dc, f01=0x0190, f02=» j T P FTEXT '(VERKAUF)' * L P FB F058200 L PF058100
0x321188…32131c Dummy {f00=0x00dc, f01=0x0190, f02=» z L P FNL : T P FTEXT 'KURS:' L P FTAB 6
0x32131c…3214b0 Dummy {f00=0x00dc, f01=0x0190, f02=» L P FBT SBCCYIN,F058220 B L P* CURRENCY SELLING * L P FMEL 'ZZZZ9,99',CDSEL1
0x3214b0…321644 Dummy {f00=0x00dc, f01=0x0190, f02=»ING * L PF058220 B L P FMEL 'ZZZZ9,99',CDBUY1 L PF058240
0x321644…3217d8 Dummy {f00=0x00dc, f01=0x0190, f02=» L P FCOPY CCCCYCDE B L P FTAB 25 L P FMEL 'ZZZZ9,00',CDRELAT
0x3217d8…32196c Dummy {f00=0x00dc, f01=0x0190, f02=» :' L P FTAB 16 F L P FCOPY ICTEXT1 CURRENCY CODE 1 L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI
0x32196c…321b00 Dummy {f00=0x00dc, f01=0x0190, f02=» P P FTEXT 'UMGER. BETRAG:' F L P FTAB 16 L P FCOPY ICTEXT2 CURRENCY CODE 2
0x321b00…321c94 (6, 98) Dummy {f00=0x00dd, f01=0x018e, f02=»'ZZZZZZZZZ,ZZ',IDAMT2 L P FNL J T P FTEXT 'WEITERER GELDWECHSEL (N=0,J=1)?' L P FKI 32,ME,MAXL=1,NUM,
0x321c94…321e28 Dummy {f00=0x00dd, f01=0x0190, f02=» L P FMEND L P************************************************************************ T L P* * L P* CLOSE OPERATOR (
0x321e28…321fbc Dummy {f00=0x00dd, f01=0x0190, f02=» L P************************************************************************ T PFMT059 FRMT T T P FSL T P FTE
0x321fbc…322150 Dummy {f00=0x00dd, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) $ T P FTAB 24 | T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x322150…3222e4 Dummy {f00=0x00dd, f01=0x0190, f02=» T P FCOPY YCCCY(KW1) L T P FTAB 24 T P FMEL 'ZZZZZ
0x3222e4…322478 Dummy {f00=0x00dd, f01=0x0190, f02=» T T P FTAB 20 T P FCOPY YCCCY(KW2) t T P FTAB 24
0x322478…32260c Dummy {f00=0x00dd, f01=0x0190, f02=» | T P FTAB 20 D T P FCOPY YCCCY(KW3) T P FTAB 24
0x32260c…3227a0 Dummy {f00=0x00dd, f01=0x0190, f02=» L T P FNL T P FTEXT 'SCHECK SALDO :' l T P FTAB 20
0x3227a0…322934 (6, 99) Dummy {f00=0x00dd, f01=0x0190, f02=» t T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) < T P FNL T P FTEXT 'TASTE CONT ODER TAST
0x322934…322ac8 Dummy {f00=0x00dd, f01=0x0190, f02=» D L P************************************************************************ L P* * N P* OPERATOR TURNOVER SCREEN * L P*
0x322ac8…322c5c Dummy {f00=0x00dd, f01=0x0190, f02=»****** N PFMT060 FRMT P FSL " T P FTEXT 'GESAMTUMSATZ :' . P FTAB 20 P FCOPY YCCCY(KW4) P FTAB 24 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL P FTAB 20 P FCOPY Y
0x322c5c…322df0 Dummy {f00=0x00dd, f01=0x018e, f02=»TAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL < P FTAB 20 H P FCOPY YCCCY(KW3) X P FTAB 24 r * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL T P FTEXT 'WAEHRUNGSUMSATZ :'
0x322df0…322f84 Dummy {f00=0x00dd, f01=0x0190, f02=» > P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND , L P************************************************************************ : L P* * L P* DAILY-STATEMENT LINE
0x322f84…323118 Dummy {f00=0x00dd, f01=0x0190, f02=»************************************************** z L PPRT061 FRMT : L P FTEXT ' ' P FTAB 3 L P FMEL '999999',UDTRSSEQ
0x323118…3232ac Dummy {f00=0x00dd, f01=0x0190, f02=» J L P FMEL '99E-99E-99',NDDATE PP061050 Z L P FTAB 19 j P FBF SBDSRVS,P061100 T P FTEXT 'UMGEKEHRT'
0x3232ac…323440 Dummy {f00=0x00dd, f01=0x0190, f02=» j T P FTEXT 'EINZAHLUNG' , L PP061200 N P FBF SBDSWDR,P061300
0x323440…3235d4 (6, 100) Dummy {f00=0x00dd, f01=0x0190, f02=» ~ N P FBF SBDSTRF,P061400 > T P FTEXT 'UEBERWEISUNG' L PP061400
0x3235d4…323768 Dummy {f00=0x00dd, f01=0x0190, f02=»9E-99E-99',UDDATE L P FTAB 42 H L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT1 L P FTAB 61
0x323768…3238fc Dummy {f00=0x00dd, f01=0x0190, f02=» L P************************************************************************ H T PMSG062 FRMT T P FSL
0x3238fc…323a90 Dummy {f00=0x00dd, f01=0x0190, f02=» H T P FTEXT 'ENDLOSFORMULAR IN GTP EINLEGEN' T P FB M062999 h T PM062100
0x323a90…323c24 Dummy {f00=0x00dd, f01=0x0190, f02=» p T P FMEND 8 L P************************************************************************ T PMSG063 FRMT
0x323c24…323db8 Dummy {f00=0x00dd, f01=0x0190, f02=» FTEXT 'TAGESAUSZUG EINLEGEN' T P FMEND X L P************************************************************************ PMSG064 F
0x323db8…323f4c Dummy {f00=0x00dd, f01=0x0190, f02=»************************************************************** L P* * F L P* DEMO TP71: TITLE LINE * L P*
0x323f4c…3240e0 Dummy {f00=0x00dd, f01=0x0190, f02=»T P FILLR ' ',6 F P FBT SBFIL1,FMT65A Z P FILLR ' ',9 t P FBT SBFIL2,FMT65A P FILLR ' ',8 P FBT SBFIL3,FMT65A P FILLR ' ',3 P FBT SBFIL4,FMT65A P FILLR ' '
0x3240e0…324274 (6, 101) Dummy {f00=0x00dd, f01=0x0190, f02=» P L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' L P FCOPY ICSTRG1 ` L P FMEND L P********
0x324274…324408 Dummy {f00=0x00dd, f01=0x0190, f02=» * P L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * L P* * ` L P************************************************************************ L PFMT066 F
0x324408…32459c Dummy {f00=0x00dd, f01=0x0190, f02=» P L P FILLR ' ',6 T P FTEXT 'VORHANDENER ZEICHENVORRAT:' ` L P FMEND L P
0x32459c…324730 Dummy {f00=0x00dd, f01=0x0190, f02=» * X L P* DEMO TP71: SPECIAL CHARACTERS * L P* * h L P************************************************************************ L P
0x324730…3248c4 Dummy {f00=0x00dd, f01=0x0190, f02=» X L P FILLR ' ',6 T P FTEXT 'SPEZIELLER ZEICHEN : ' h L P FILLR ' ',6
0x3248c4…324a58 Dummy {f00=0x00dd, f01=0x0190, f02=»33AE34AE35AE36' f P* ROOMLESS POINT P FTEXT =X'AE37AE38AE39' 0 L P FMEND P L P************************************************************************ L P*
0x324a58…324bec Dummy {f00=0x00dd, f01=0x0190, f02=»* * L P************************************************************************ P L P* * " P* FORMATS FOR COMPACT TE
0x324bec…324d80 Dummy {f00=0x00dd, f01=0x018e, f02=»****************************** f PFMT068 FRMT & P FSL : P FTEXT 'ODR (N=0,Y=1) ?' F 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 f P FMEL '9',RDODR P FNL P FTEXT 'TERMINAL NR. :' P FTAB 28 P FMEL '999',NDTRMNR
0x324d80…324f14 (6, 102) Dummy {f00=0x00de, f01=0x0190, f02=» P FMEND L P************************************************************************ L P* * b F P* OPERATOR BALANCES, FOR FT80 * L P*
0x324f14…3250a8 Dummy {f00=0x00de, f01=0x0190, f02=»**** L L PFMT069 FRMT L P FSL H P FTEXT 'BEDIENER : ' L P FCOPY OCNAME
0x3250a8…32523c Dummy {f00=0x00de, f01=0x0190, f02=» H P FTEXT 'KASSENBESTAND: ' P FTAB 16 ( L P FCOPY YCCCY(KW4) 8 P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) P FNL P FTEXT 'KASSENBESTAN
0x32523c…3253d0 Dummy {f00=0x00de, f01=0x0190, f02=» d P FTAB 20 $ L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) 4 P FNL P FTEXT 'KASSENBESTAND: ' L P FTAB 16 L P FCOPY Y
0x3253d0…325564 Dummy {f00=0x00de, f01=0x0190, f02=» ` P FNL P FTEXT 'KASSENBESTAND: ' , L P FTAB 16 L L P FCOPY YCCCY(KW3) P FTAB 20 L P FMEL 'ZZZZZ
0x325564…3256f8 Dummy {f00=0x00de, f01=0x0190, f02=» P FCOPY WCSTRG6 L P FMEND L P************************************************************************ j L P* * T
0x3256f8…32588c Dummy {f00=0x00de, f01=0x0190, f02=» * b L P************************************************************************ " L PFMT070 FRMT r L P FSL
0x32588c…325a20 Dummy {f00=0x00de, f01=0x0190, f02=»F07020 L PF07010 L & P FTEXT 'AUSZAHLUNG - GIROKONTO: ' L PF07020
0x325a20…325bb4 (6, 103) Dummy {f00=0x00de, f01=0x0190, f02=» f L P FNL & L P FBT SBCHQACT,F07030 v L P*
0x325bb4…325d48 Dummy {f00=0x00de, f01=0x0190, f02=» * f L P FTAB 12 & H P FTEXT '- KENNWORT :' v L P FTAB 27
0x325d48…325edc Dummy {f00=0x00de, f01=0x0190, f02=» b L PF07030 " L P FBT SBCHEQUE,F07040 r L P*
0x325edc…326070 Dummy {f00=0x00de, f01=0x0190, f02=» * b L P FTEXT 'NAME :' " L P FTAB 13 r L P FCOPY ACNAME
0x326070…326204 Dummy {f00=0x00de, f01=0x0190, f02=» * b L P* CHEQUE ACCOUNT, CHEQUE INPUT * " L P* * r L PF07040
0x326204…326398 Dummy {f00=0x00de, f01=0x0190, f02=» b L P FTAB 27 L P FCOPY FCFIELD n L PF07050
0x326398…32652c Dummy {f00=0x00de, f01=0x0190, f02=» ^ L P* * L P* SAVINGS ACCOUNT * n L P* *
0x32652c…3266c0 Dummy {f00=0x00de, f01=0x0190, f02=»,IDAMT1 | P FNL < N P FTEXT 'ZEILE:' H L P FKI 10,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 L P FMEL 'ZZ',IDNR1
0x3266c0…326854 (6, 104) Dummy {f00=0x00de, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT * J L P* * L PF07060
0x326854…3269e8 Dummy {f00=0x00de, f01=0x0190, f02=»20 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK L PF07070 Z P FNL L P FTEXT 'BETRAG :' L P F
0x3269e8…326b7c Dummy {f00=0x00de, f01=0x0190, f02=» V L P FNL P FTEXT 'NEUER SALDO: ' f L P FTAB 20 P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL
0x326b7c…326d10 Dummy {f00=0x00de, f01=0x0190, f02=»************************************************ x L P* * 8 T P* TRANSFER (DNTRF) FOR FT80 L P*
0x326d10…326ea4 Dummy {f00=0x00de, f01=0x0190, f02=» L P FSL @ $ P FTEXT 'UEBERWEISUNG AB KONTO: ' L P FBT SBCARD,F07110 4 P
0x326ea4…327038 Dummy {f00=0x00de, f01=0x0190, f02=» FB F07120 L PF07110 P P FTAB 26 L P FMEL '999999',IDACTNR1 L PF07120
0x327038…3271cc Dummy {f00=0x00de, f01=0x0190, f02=» P L P FBT SBCHQACT,F07130 P FTEXT 'BUCH SALDO : ' ` T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT ~ L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1
0x3271cc…327360 Dummy {f00=0x00de, f01=0x0190, f02=»,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT L P FMEL 'ZZ',IDNR1 J L P FB F07140 L PF07130
0x327360…3274f4 (6, 105) Dummy {f00=0x00de, f01=0x0190, f02=» h L PF07140 ( L P FNL x P FTEXT 'BETRAG :' T P FKI 20,MINL=1,MAXL=11,NUM,ME,NEOI
0x3274f4…327688 Dummy {f00=0x00de, f01=0x0190, f02=»NL P FTEXT 'NEUER SALDO: ' N P FTAB 20 l N P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL | L P FNL
0x327688…32781c Dummy {f00=0x00de, f01=0x0190, f02=» H L P FMEL 'ZZZZZZ',IDACTNR2 L P FMEND ^ J P********************************************************************** P* ( P*
0x32781c…3279b0 Dummy {f00=0x00de, f01=0x0190, f02=» FRMT P FSL P FTEXT 'WAEHRUNGSNAME: ' P FTAB 17 : P FCOPY CCCCYNME J P FNL b P FTEXT 'WAEHRUNGSCODE: ' n P FTAB 17 P FCOPY CCCCYCDE P FTAB 22 P FTEXT 'REL.: ' P FTAB 28 P FMEL 'ZZZZ9',CDRELAT
0x3279b0…327b44 Dummy {f00=0x00de, f01=0x0190, f02=» v P FTAB 19 P FTAB 26 P FMEL 'ZZZ9,99',CDBUY2 ( P FNL F P FTEXT 'VERKAUFSKURSE:(1)' T P FTAB 19 v P FMEL 'ZZZ9,99-',CDSEL1 P FNL P FTEXT 'VERKAUFSKURSE:(2)' P FTAB 19 P FMEL 'ZZZ9,99',CDSEL2 P FNL
0x327b44…327cd8 Dummy {f00=0x00de, f01=0x0190, f02=»**************************************** p L P* * 0 T P* CLOSE OPERATOR (PART1) FOR FT80 L P*
0x327cd8…327e6c Dummy {f00=0x00de, f01=0x0190, f02=» x T P FSL @ P FTEXT 'KASSENBESTAND: ' T P FTAB 16
0x327e6c…328000 Dummy {f00=0x00de, f01=0x0190, f02=» h T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) 0 T P FNL P FTEXT 'KASSENBESTAND : ' T P FTAB
0x328000…328194 (6, 106) Dummy {f00=0x00df, f01=0x0190, f02=» Z T P FTAB 20 " T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) z T P FNL
0x328194…328328 Dummy {f00=0x00df, f01=0x018e, f02=» L T P FCOPY YCCCY(KW2) T P FTAB 20 l T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2)
0x328328…3284bc Dummy {f00=0x00df, f01=0x0190, f02=» t T P FTAB 16 T P FCOPY YCCCY(KW3) ` T P FTAB 20
0x3284bc…328650 Dummy {f00=0x00df, f01=0x0190, f02=» h P FTEXT 'SCHECK SALDO : ' 0 T P FTAB 16 P T P FCOPY YCCCY(KW4) T P FTAB 20
0x328650…3287e4 Dummy {f00=0x00df, f01=0x0190, f02=» X T P FNL ( P FTEXT 'TASTE CONT ODER TASTE CANC' x T P FMEND L P************
0x3287e4…328978 Dummy {f00=0x00df, f01=0x0190, f02=» * L T P* OPERATOR TURNOVER SCREEN FOR FT80 L P* * d L P************************************************************************ PFMT0
0x328978…328b0c Dummy {f00=0x00df, f01=0x0190, f02=»9-',WDEC1 ~ P FNL P FTEXT 'GESAMTUMSATZ: ' P FTAB 16 > P FCOPY YCCCY(KW1) N P FTAB 20 h * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) x P FNL P FTEXT 'GESAMTUMSATZ: ' P FTAB 16 P FCOPY YCCCY(KW2) P FTAB 20
0x328b0c…328ca0 Dummy {f00=0x00df, f01=0x0190, f02=» FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL > P FTEXT 'WAEHRUNGSUMSATZ: ' J P FTAB 16 l P FCOPY YCCCY(KW4) | T P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC
0x328ca0…328e34 (6, 107) Dummy {f00=0x00df, f01=0x0190, f02=» FTEXT 'UNGUELTIGER WERT' P FMEND X PERR002 FRMT f P FSL z T P FTEXT 'GESCHUETZTER DATENSATZ' P FMEND PERR003 FRMT P FSL
0x328e34…328fc8 Dummy {f00=0x00df, f01=0x0190, f02=» T P FMEND PERR005 FRMT * P FSL > T P FTEXT 'FELD EINGEBEN' J P FMEND L PERR006 FRMT L P FSL
0x328fc8…32915c Dummy {f00=0x00df, f01=0x0190, f02=» P L P FMEND L PERR007 FRMT h L P FSL T P
0x32915c…3292f0 Dummy {f00=0x00df, f01=0x0190, f02=» ` L PERR008 FRMT L P FSL p T P FTEXT 'SCHALTER TERMINAL'
0x3292f0…329484 Dummy {f00=0x00df, f01=0x0190, f02=» h L P FSL ( T P FTEXT 'WERT MUSS NULL SEIN' x L P FMEND
0x329484…329618 Dummy {f00=0x00df, f01=0x0190, f02=» p T P FTEXT 'BEDIENUNGSFEHLER' 0 L P FMEND L PERR020 FRMT
0x329618…3297ac Dummy {f00=0x00df, f01=0x0190, f02=»LEICH' x L P FMEND @ L PERR023 FRMT L P FSL
0x3297ac…329940 Dummy {f00=0x00df, f01=0x0190, f02=» L PERR024 FRMT H L P FSL T P FTEXT 'BEDIENER BEREITS ANGEMEL
0x329940…329ad4 (6, 108) Dummy {f00=0x00df, f01=0x0190, f02=»ERR025 FRMT L P FSL P T P FTEXT 'FALSCHES KENNWORT' L P FMEND
0x329ad4…329c68 Dummy {f00=0x00df, f01=0x0190, f02=» H L P FSL T P FTEXT 'TERM. GESPERRT, REVISION VERST,' X L P FMEND L PERR028 F
0x329c68…329dfc Dummy {f00=0x00df, f01=0x0190, f02=» P T P FTEXT 'KONTO GESPERRT' L P FMEND h L PERR029 FRMT L P
0x329dfc…329f90 Dummy {f00=0x00df, f01=0x0190, f02=» X L P FMEND L PERR031 FRMT p L P FSL
0x329f90…32a124 Dummy {f00=0x00df, f01=0x0190, f02=» h L PERR032 FRMT ( L P FSL x T P FTEXT 'AUSFALL EINGABEGERAET'
0x32a124…32a2b8 Dummy {f00=0x00df, f01=0x0190, f02=» p L P FSL 0 T P FTEXT 'VERLANGTES GERAET NICHT SPEZIFIERT' L P FMEND
0x32a2b8…32a44c Dummy {f00=0x00df, f01=0x0190, f02=» x T P FTEXT 'SPARKONTO' 8 L P FMEND PERR035 FRMT P FSL T P FTEXT '
0x32a44c…32a5e0 Dummy {f00=0x00df, f01=0x0190, f02=»EICHE KEYWERTE' P FMEND N PERR037 FRMT P FSL p T P FTEXT 'SALDO NICHT NULL' | P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',ADBAL P
0x32a5e0…32a774 (6, 109) Dummy {f00=0x00df, f01=0x40ba, f02=»MEND PERR056 FRMT P FSL ( P FTEXT 'KEINE TRANSAKTION MOEGLICH' , P FMEND X L P************************************************************************ f@
0x32a774…32a908 Dummy {f00=0x00df, 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
0x32a908…32aa9c Dummy {f00=0x00df, f01=0x0190, f02=» L P FMEND L P* * T L P* * L P*
0x32aa9c…32ac30 Dummy {f00=0x00df, 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
0x32ac30…32adc4 Dummy {f00=0x00df, 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
0x32adc4…32af58 Dummy {f00=0x00df, 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
0x32af58…32b0ec Dummy {f00=0x00df, f01=0x0190, f02=» P L P FNL L P FTEXT 'CASH BALANCES :' ` L P FCOPY YCCCY(KW4) P P FKI 24,
0x32b0ec…32b280 Dummy {f00=0x00df, 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
0x32b280…32b414 (6, 110) Dummy {f00=0x00e0, 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)
0x32b414…32b5a8 Dummy {f00=0x00e0, 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
0x32b5a8…32b73c Dummy {f00=0x00e0, f01=0x0190, f02=» h L P FMEL '9',WD1 , L P FMEND | L P*
0x32b73c…32b8d0 Dummy {f00=0x00e0, f01=0x0190, f02=» * l L PFMT018 FRMT OPERATOR ACCUMULATORS ! , L P FSL ! | L P FTEXT 'CASH DEPOSITS :'
0x32b8d0…32ba64 Dummy {f00=0x00e0, f01=0x0190, f02=») ! p L P FNL " 0 L P FMEND " L P*
0x32ba64…32bbf8 Dummy {f00=0x00e0, 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
0x32bbf8…32bd8c Dummy {f00=0x00e0, f01=0x0190, f02=» # PERR005 FRMT $ P FSL $ P FTEXT 'ERR0R 5' $ ( P FMEND $ @ L P************************************************************************ $ N L P* * $ L P* ERR0R 10
0x32bd8c…32bf20 Dummy {f00=0x00e0, f01=0x0190, f02=»********************************************************************** $ PERR010 FRMT % N P FSL % b P FTEXT 'VALUE NOT IN RANGE' % n P FMEND % L P************************************************************************ % L P*
0x32bf20…32c0b4 (6, 111) Dummy {f00=0x00e0, f01=0x0190, f02=»* * % L P************************************************************************ & P L PERR020 FRMT & L P FSL
0x32c0b4…32c248 Dummy {f00=0x00e0, f01=0x0190, f02=» FMEND & L P************************************************************************ ' P L P* * ' L P* ERR0R 23
0x32c248…32c3dc Dummy {f00=0x00e0, f01=0x0190, f02=»************************************************************************ ' L PERR023 FRMT ( P L P FSL ( L P FTEXT 'OPERATOR UNKNOWN
0x32c3dc…32c570 Dummy {f00=0x00e0, f01=0x0190, f02=»************************************************************************ ( L P* * ) P L P* ERR0R 24 * ) L P*
0x32c570…32c704 Dummy {f00=0x00e0, f01=0x0190, f02=»ERR024 FRMT ) L P FSL * P L P FTEXT 'OPERATOR ALREADY LOGGED ON' * L P FMEND
0x32c704…32c898 Dummy {f00=0x00e0, f01=0x0190, f02=»* * * L P* ERR0R 25 * + P L P* * + L P************************
0x32c898…32ca2c Dummy {f00=0x00e0, f01=0x0190, f02=» FSL + L P FTEXT 'WRONG PASSWORD' , P L P FMEND , L P************************
0x32ca2c…32cbc0 Dummy {f00=0x00e0, f01=0x0190, f02=»* ERR0R 26 * , L P* * - P L P************************************************************************ - L PERR026 FRMT
0x32cbc0…32cd54 (6, 112) Dummy {f00=0x00e0, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR - L P FMEND . P L P************************************************************************ . L P*
0x32cd54…32cee8 Dummy {f00=0x00e0, f01=0x0190, f02=»* * . L P************************************************************************ / P L PERR027 FRMT / L P FSL
0x32cee8…32d07c Dummy {f00=0x00e0, f01=0x009c, f02=» FMEND / L P************************************************************************ 0 P L PERR027 FRMT / L P FSL
0x32d07c…32d210 Dummy {f00=0x00e0, f01=0x2008, f02=» 1 / L P************************************************************************ 0 P L PERR027 FRMT / L P FSL
0x32d210…32d3a4 Dummy {f00=0x00e0, f01=0x0190, f02=» h P FNL ( P FTEXT 'KAS TOTAAL : ' 4 L P FTAB 16 T L P FCOPY YCCCY(KW1) P FTAB 20 L P FME
0x32d3a4…32d538 Dummy {f00=0x00e0, f01=0x0190, f02=» L P FCOPY YCCCY(KW2) @ P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) P FNL P FTEXT 'KAS
0x32d538…32d6cc Dummy {f00=0x00e0, f01=0x0190, f02=» l P FTAB 20 , L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) < P FNL . P FTEXT 'DRUK CONT VOOR AKK. ANADERS CANC' P FKI 32 P FCOPY WCSTRG6 L P FMEND
0x32d6cc…32d860 Dummy {f00=0x00e0, f01=0x0190, f02=»* * T P* WITHDRAWAL (DMWDR) FOR FT80 P L P* * L P****************
0x32d860…32d9f4 (6, 113) Opaque[0x194]
0x32d9f4…32db88 # DirEnt {nam=»ENGDEF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1c18, f03=0x0000}
0x32d9f4…32db88 IdxSect {
0x32d9f4…32db88 f00 = 0x00e0 // 0x32d9f4 @0x0
0x32d9f4…32db88 f01 = 0x004e // 0x32d9f6 @0x2
0x32d9f4…32db88 gno = [ // 0x32d9f8 @0x4
0x32d9f4…32db88 [0x00]: C0x00e0.0x3.0
0x32d9f4…32db88 [0x01]: C0x00e1.0x0.0
0x32d9f4…32db88 [0x02]: C0x00e1.0x1.0
0x32d9f4…32db88 [0x03]: C0x00e1.0x2.0
0x32d9f4…32db88 [0x04]: C0x00e1.0x3.0
0x32d9f4…32db88 [0x05]: C0x00e2.0x0.0
0x32d9f4…32db88 [0x06]: C0x00e2.0x1.0
0x32d9f4…32db88 [0x07]: C0x00e2.0x2.0
0x32d9f4…32db88 [0x08]: C0x00e2.0x3.0
0x32d9f4…32db88 [0x09]: C0x00e3.0x0.0
0x32d9f4…32db88 [0x0a]: C0x00e3.0x1.0
0x32d9f4…32db88 [0x0b]: C0x00e3.0x2.0
0x32d9f4…32db88 [0x0c]: C0x00e3.0x3.0
0x32d9f4…32db88 [0x0d]: C0x00e4.0x0.0
0x32d9f4…32db88 [0x0e]: C0x00e4.0x1.0
0x32d9f4…32db88 [0x0f]: C0x00e4.0x2.0
0x32d9f4…32db88 [0x10]: C0x00e4.0x3.0
0x32d9f4…32db88 [0x11]: C0x00e5.0x0.0
0x32d9f4…32db88 [0x12]: C0x00e5.0x1.0
0x32d9f4…32db88 [0x13]: C0x00e5.0x2.0
0x32d9f4…32db88 [0x14]: C0x00e5.0x3.0
0x32d9f4…32db88 [0x15]: C0x00e6.0x0.0
0x32d9f4…32db88 [0x16]: C0x00e6.0x1.0
0x32d9f4…32db88 [0x17]: C0x00e6.0x2.0
0x32d9f4…32db88 [0x18]: C0x00e6.0x3.0
0x32d9f4…32db88 [0x19]: C0x00e7.0x0.0
0x32d9f4…32db88 [0x1a]: C0x00e7.0x1.0
0x32d9f4…32db88 [0x1b]: C0x00e7.0x2.0
0x32d9f4…32db88 [0x1c]: C0x00e7.0x3.0
0x32d9f4…32db88 [0x1d]: C0x00e8.0x0.0
0x32d9f4…32db88 [0x1e]: C0x00e8.0x1.0
0x32d9f4…32db88 [0x1f]: C0x00e8.0x2.0
0x32d9f4…32db88 [0x20]: C0x00e8.0x3.0
0x32d9f4…32db88 [0x21]: C0x00e9.0x0.0
0x32d9f4…32db88 [0x22]: C0x00e9.0x1.0
0x32d9f4…32db88 [0x23]: C0x00e9.0x2.0
0x32d9f4…32db88 [0x24]: C0x00e9.0x3.0
0x32d9f4…32db88 [0x25]: C0x00ea.0x0.0
0x32d9f4…32db88 [0x26]: C0x00ea.0x1.0
0x32d9f4…32db88 ]
0x32d9f4…32db88 }
0x32db88…32dd1c Dummy {f00=0x00e0, 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
0x32dd1c…32deb0 Dummy {f00=0x00e0, 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
0x32deb0…32e044 Dummy {f00=0x00e0, 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,FMTDUM, C , P FMTDUM,F
0x32e044…32e1d8 Dummy {f00=0x00e0, f01=0x0190, f02=»FMTDUM,FMTDUM,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**********************************
0x32e1d8…32e36c Dummy {f00=0x00e0, 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
0x32e36c…32e500 Dummy {f00=0x00e0, f01=0x0190, f02=»**** L L P* * L P* DEMONSTRATE VIDEO SCREEN * L P* * L P************
0x32e500…32e694 (6, 114) Dummy {f00=0x00e1, 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
0x32e694…32e828 Dummy {f00=0x00e1, 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
0x32e828…32e9bc Dummy {f00=0x00e1, 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
0x32e9bc…32eb50 Dummy {f00=0x00e1, 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
0x32eb50…32ece4 Dummy {f00=0x00e1, 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
0x32ece4…32ee78 Dummy {f00=0x00e1, 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
0x32ee78…32f00c Dummy {f00=0x00e1, f01=0x0190, f02=» * x L P* TERMINAL SPECIFICATION * 8 L P* * L P************************************************
0x32f00c…32f1a0 Dummy {f00=0x00e1, 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) ?' 2 P FKI 33,ME,MINL=1,
0x32f1a0…32f334 (6, 115) Dummy {f00=0x00e1, f01=0x0190, f02=»XL=1,NUM,NCLR,NEOI,APPL=2 | P FMEL '9',RDBCR " P FNL : P FTEXT 'ODR (N=0,Y=1) ?' F 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 f P FMEL '9',RDODR P FNL P FTEXT 'TERMINAL I.D. :' P FTAB 31 P FMEL '999',NDTRMNR
0x32f334…32f4c8 Dummy {f00=0x00e1, f01=0x0190, f02=» P FB F01390 PF01310 P FTEXT 'TERMINAL NAME :' ( P FTAB 17 H P FTEXT 'FRONT OFFICE(' X P FMEL '999',NDTRMNR v P FTEXT ')' PF01390 P FMEND L P************************************************************************
0x32f4c8…32f65c Dummy {f00=0x00e1, f01=0x0190, f02=» * ` L P* * L P************************************************************************ p & PFMT014 FRMT SYSTEM START - PART 2 L P FSL
0x32f65c…32f7f0 Dummy {f00=0x00e1, f01=0x0190, f02=»=1,NUM,NEOI,NCLR,APPL=1 n " P FMEL '9',YDMLPINT P FNL F . P FTEXT 'SYSTEM CURRENCY CODE ? ' Z T P FTAB 33 P FBZ RDALFKB,F01410 8 P
0x32f7f0…32f984 Dummy {f00=0x00e1, f01=0x0190, f02=» 'TEXT ? ' T P FTAB 12 P FBZ RDALFKB,F01420 l : P FKI 12,ME,MINL=1,MAXL=25,ALPHA,NEOI,NCLR PF01420 P FCOPY YCTEXT P FNL & P
0x32f984…32fb18 Dummy {f00=0x00e1, f01=0x0190, f02=»'ZZE:ZZ',NDTIME P FNL R ( P FTEXT 'DATE (DDMMYY) ? ' f @ P FKI 19,ME,MINL=6,MAXL=6,NUM,NEOI,APPL=32,REWRT ( P FMEL 'ZZE-ZZE-ZZ',NDDATE P
0x32fb18…32fcac Dummy {f00=0x00e1, f01=0x0190, f02=» * h L P* CURRENCY UPDATE (DAUCCY) * ( L P* * x L P****************************************************************
0x32fcac…32fe40 Dummy {f00=0x00e1, f01=0x0190, f02=» ( P FTEXT 'CURRENCY NAME : ' P FBZ RDALFKB,F01510 0 : P FKI 17,ME,MINL=1,MAXL=20,ALPHA,NEOI,NCLR L PF01510 P FCOPY CCCCYNME P FNL ( P FTEXT 'CURRENCY CODE : ' P FBZ RDALFKB,F
0x32fe40…32ffd4 (6, 116) Dummy {f00=0x00e1, f01=0x0190, f02=» 26 P FTEXT 'REL.: ' D P FKI 32,ME,MINL=1,MAXL=5,NUM,NEOI,NCLR,APPL=21,REWRT 0 $ P FMEL 'ZZZZ9',CDRELAT x P FNL P FTEXT 'BUYING RATES :(1)' D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NC
0x32ffd4…330168 Dummy {f00=0x00e1, f01=0x0190, f02=» 30,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=23 P FMEL 'ZZZZ,ZZ',CDBUY2 < P FNL Z * P FTEXT 'SELLING RATES :(1)' n D P FKI 19,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=29 & P FMEL 'ZZZ9,99-',CDSEL1
0x330168…3302fc Dummy {f00=0x00e1, f01=0x0190, f02=» FMEL 'ZZZZ,ZZ',CDSEL2 P FNL P FTEXT 'LIMIT RATE 1 :' 2 D P FKI 28,ME,MINL=1,MAXL=8,NUM,NEOI,NCLR,APPL=25,REWRT R P FMEL 'ZZZZZZ,ZZ',CDLIMIT P FMEND L P******************************************************
0x3302fc…330490 Dummy {f00=0x00e1, f01=0x0190, f02=»(DBUOPR) * r L P* * 2 L P************************************************************************ L PFMT016 FRMT OPERATOR IDENTIFICATION
0x330490…330624 Dummy {f00=0x00e1, f01=0x0190, f02=» r , P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=6 2 J P FMEL 'ZZZZZ',IDNR1 b L P FMEND L P********
0x330624…3307b8 Dummy {f00=0x00e1, f01=0x0190, f02=» * P L P* OPERATOR UPDATE (DBUOPR) * L P* * ` L P************************************************************************ ( PFMT017 F
0x3307b8…33094c Dummy {f00=0x00e1, f01=0x0190, f02=»E :' | P FBZ RDALFKB,F01710 < R P FKI 17,ME,MINL=1,MAXL=18,NCLR,NEOI,ALPHA X PF01710 L P FCOPY OCNAME
0x33094c…330ae0 Dummy {f00=0x00e1, f01=0x0190, f02=» R P FKI 17,ME,MINL=1,MAXL=6,NCLR,NEOI,ALPHA L P FCOPY OCPASS r L P FNL
0x330ae0…330c74 (6, 117) Dummy {f00=0x00e1, f01=0x0190, f02=» b L P FMEL '9',ODOPRLGG ( L P FNL x L P FNL
0x330c74…330e08 Dummy {f00=0x00e1, f01=0x0190, f02=» t L P FTEXT 'CASH BALANCES :' 4 P FTAB 20 L P FCOPY YCCCY(KW4) P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,
0x330e08…330f9c Dummy {f00=0x00e1, f01=0x0190, f02=»NL P FTAB 20 N L P FCOPY YCCCY(KW1) ^ P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT R P FMEL
0x330f9c…331130 Dummy {f00=0x00e1, f01=0x0190, f02=» X P FTAB 20 ! L P FCOPY YCCCY(KW2) ! ( P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ! x R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2)
0x331130…3312c4 Dummy {f00=0x00e1, f01=0x0190, f02=»(KW3) ! P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT " B R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) " L P FNL
0x3312c4…331458 Dummy {f00=0x00e1, f01=0x0190, f02=» 35,ME,MINL=1,MAXL=1,NCLR,NEOI,NUM,APPL=1 " N P FMEL '9',IDNR1 # R L P FMEND # L P********************
0x331458…3315ec Dummy {f00=0x00e1, f01=0x0190, f02=» L P* OPERATOR ACCUMULATORS, USED BY DBUOPR * $ L P* * $ T L P************************************************************************ $ L PFMT018 FRMT
0x3315ec…331780 Dummy {f00=0x00e1, f01=0x0190, f02=» L P FTEXT 'CASH DEPOSITS :' % T P FTAB 20 % T T P FCOPY YCCCY(KW4) % P P FKI
0x331780…331914 (6, 118) Dummy {f00=0x00e2, f01=0x0190, f02=» % X L P FNL & L P FTEXT 'CASH WITHDRAWALS :' & h T P FTAB 20
0x331914…331aa8 Dummy {f00=0x00e2, f01=0x0190, f02=»REWRT & h L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW4) ' , L P FNL ' | L P FTEXT 'ACCUM. CHEQUES :'
0x331aa8…331c3c Dummy {f00=0x00e2, f01=0x0190, f02=» ' t P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ( < L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) ( L P FNL
0x331c3c…331dd0 Dummy {f00=0x00e2, f01=0x0190, f02=» ( T P FCOPY YCCCY(KW4) ) H P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ) L P FMEL 'ZZZZZZZZ9,99-
0x331dd0…331f64 Dummy {f00=0x00e2, f01=0x0190, f02=» L P FNL * L P FNL * T L P FNL * L P FTEXT 'CURRENCY SOL
0x331f64…3320f8 Dummy {f00=0x00e2, f01=0x0190, f02=» P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) + X L P FNL + L P FTEXT 'CURRENCY
0x3320f8…33228c Dummy {f00=0x00e2, f01=0x0190, f02=» + H P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT , L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) , L P FNL , L P FTEXT 'CURR
0x33228c…332420 Dummy {f00=0x00e2, f01=0x0190, f02=» , L P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT - L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) - ` L P FNL - L P FTAB 20
0x332420…3325b4 (6, 119) Dummy {f00=0x00e2, f01=0x0190, f02=» - P P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT . L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) . d L P FNL . L P FTA
0x3325b4…332748 Dummy {f00=0x00e2, f01=0x0190, f02=» . T P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT / L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) / h L P FMEND / L P
0x332748…3328dc Dummy {f00=0x00e2, f01=0x0190, f02=» * / X L P* TERMINAL START, USED BY CCSTTT * 0 L P* * 0 h L P************************************************************************ 0 L P
0x3328dc…332a70 Dummy {f00=0x00e2, f01=0x0190, f02=» 0 X L P FCOPY YCTEXT 1 L P FNL 1 h T P FTEXT 'TERMINAL :'
0x332a70…332c04 Dummy {f00=0x00e2, f01=0x0190, f02=»NME 1 P FB F01920 2 PF01910 2 P FTEXT 'FRONT OFFICE(' 2 , L P FMEL '999',NDTRMNR 2 J P FTEXT ')' 2 P FB FB01930 2 PF01920 2 T P FTAB 34
0x332c04…332d98 Dummy {f00=0x00e2, f01=0x0190, f02=»NL 2 P FTEXT 'TIME (HHMM) : ' 3 N P FTAB 20 3 p T P FMEL 'ZZE:ZZ',NDTIME 3 L P FNL
0x332d98…332f2c Dummy {f00=0x00e2, f01=0x0190, f02=» 3 J L P FMEL 'ZZE-ZZE-ZZ',IDNR1 4 L P FMEND 4 Z L P************************************************************************ 4 L P*
0x332f2c…3330c0 Dummy {f00=0x00e2, f01=0x0190, f02=» * 4 J L P* * 5 L P************************************************************************ 5 Z L PFMT021 FRMT 5 L P FSL
0x3330c0…333254 (6, 120) Dummy {f00=0x00e2, f01=0x018e, f02=» 5 J F P FKI 17,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=8 6 J P FMEL 'ZZZZZ',IDNR1 6 T L P FNL 6 L P FTEXT 'PASSWORD
0x333254…3333e8 Dummy {f00=0x00e2, f01=0x0190, f02=» N P FCOPY ICTEXT1 7 L P FNL 7 V L P FTEXT 'LANGUAGE : ' 7 2 P FKI 17,ME,MINL=1,
0x3333e8…33357c Dummy {f00=0x00e2, f01=0x0190, f02=» 7 | L P************************************************************************ 8 < L P* * 8 L P* OPERATOR BALANCES, USED BY BCSTTO
0x33357c…333710 Dummy {f00=0x00e2, f01=0x0190, f02=»**************************************************** 8 | L PFMT022 FRMT 9 < L P FSL 9 L P FTEXT 'OPERATOR NAME : '
0x333710…3338a4 Dummy {f00=0x00e2, f01=0x0190, f02=» 9 | L P FTEXT 'CASH BALANCES : ' : < P FTAB 20 : L P FCOPY YCCCY(KW4) : P FTAB 24 : L P FMEL 'ZZZZZ
0x3338a4…333a38 Dummy {f00=0x00e2, f01=0x0190, f02=» : X L P FCOPY YCCCY(KW1) ; P FTAB 24 ; h L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) ; x P FNL ; L P FTAB 20
0x333a38…333bcc Dummy {f00=0x00e2, f01=0x0190, f02=»ZZZ9,99-',ODCASH(KW1,KW2) ; P FNL < D L P FTAB 20 < P L P FCOPY YCCCY(KW3) < P FTAB 24 < L P FMEL 'Z
0x333bcc…333d60 Dummy {f00=0x00e2, f01=0x0190, f02=» FKI 36 < P FCOPY WCSTRG6 = L P FMEND = & L P************************************************************************ = v L P*
0x333d60…333ef4 (6, 121) Dummy {f00=0x00e2, f01=0x0190, f02=» * = f L P************************************************************************ > & L PFMT027 FRMT > v L P FSL
0x333ef4…334088 Dummy {f00=0x00e2, f01=0x0190, f02=»ETIC STRIPE UNIT > P* ? P FTEXT 'PUT CARD IN MSU' ? " P FB F27999 ? B PF27100 ? T L P* * ? b L P* BADGE CARD READER INPUT * ? L P*
0x334088…33421c Dummy {f00=0x00e2, f01=0x0190, f02=» ? R L P FB F27999 @ L PF27200 @ b L P FBF SBCHEQUE,F27300 @ L P*
0x33421c…3343b0 Dummy {f00=0x00e2, f01=0x0190, f02=» * @ R L P* * A L P FTEXT 'DRAW CHEQUE THROUGH ODR' A b P FB F27999 A L P*
0x3343b0…334544 Dummy {f00=0x00e2, f01=0x0190, f02=» * A d L PF27300 B $ L P FTEXT 'ACCOUNT OR CARD NUMBER : ' B t T P FKI 27,ME,MINL=4,MAXL=6,NUM,NEOI,APPL=22,REWRT
0x334544…3346d8 Dummy {f00=0x00e2, f01=0x0190, f02=» B z L P************************************************************************ C : L P* * C L P* ENTER REQUIRED FUNCTION (BESELF)
0x3346d8…33486c Dummy {f00=0x00e2, f01=0x0190, f02=»************************************************** C z PMSG030 FRMT D : P FSL D N P FLOW D Z . P FTEXT 'PLEASE ENTER REQUIRED FUNCTION: ' D h P FMEND D L P************************************************************************ D L P*
0x33486c…334a00 Dummy {f00=0x00e2, f01=0x0190, f02=» D H L P* * E L P************************************************************************ E X PFMT039 FRMT OPEN ACCOUNT E L P FSL
0x334a00…334b94 (6, 122) Dummy {f00=0x00e3, f01=0x0190, f02=»' E j L P FB F03920 F * L PF03910 F z L P FTEXT 'OPEN CHEQUE ACCOUNT NUMBER : '
0x334b94…334d28 Dummy {f00=0x00e3, f01=0x0190, f02=» F j L P FNL G * L P FTEXT 'NAME :' G z T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18
0x334d28…334ebc Dummy {f00=0x00e3, f01=0x0190, f02=» G r L P FTEXT 'ADDRESS :' H 2 T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 H L P FCOPY ACADDRES
0x334ebc…335050 Dummy {f00=0x00e3, f01=0x0190, f02=» H z T P FKI 11,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 I : L P FCOPY ACTOWN I L P FNL
0x335050…3351e4 Dummy {f00=0x00e3, f01=0x0190, f02=»RD:' I T P FKI 11,MAXL=6,ME,NCLR,ALPHA J B L P FCOPY ACPASS J L P FB F03940
0x3351e4…335378 Dummy {f00=0x00e3, f01=0x0190, f02=» 'CARD:' J , P FKI 7,APPL=13,MINL=4,MAXL=4,NUM,ME,NEOI K R L P FMEL 'ZZZZ',ADCARDNR K L P FTEXT ' CREDIT LIMIT:'
0x335378…33550c Dummy {f00=0x00e3, f01=0x0190, f02=»DLIMBOK K z PF03940 L B P FMEND L P L P************************************************************************ L d P* L L P* CLOSE ACCOUNT (DGCACT) * L
0x33550c…3356a0 Dummy {f00=0x00e3, f01=0x0190, f02=»LOSE ACCOUNT L h P FSL M & P FBT SBCHQACT,F04010 M ( 4 P FTEXT 'CLOSE SAVINGS ACCOUNT NR : ' M R P FB F04020 M PF04010 M 4 P FTEXT 'CLOSE CHEQUE ACCOUNT NR : ' M PF04020 M T P FTAB 30
0x3356a0…335834 (6, 123) Dummy {f00=0x00e3, f01=0x0190, f02=» M " P FTEXT 'NAME : ' N P FCOPY ACNAME N . P FNL N P , P FTEXT 'CURRENT BALANCE : ' N d T P FTAB 24 N , P FMEL 'ZZZZZZZZ
0x335834…3359c8 Dummy {f00=0x00e3, f01=0x0190, f02=» FB F04040 N PF04030 O , P FTEXT 'CREDIT LIMIT : ' O * PF04040 O Z T P FTAB 24 O h 0 P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK O P FNL O & P
0x3359c8…335b5c Dummy {f00=0x00e3, f01=0x0190, f02=» O b P FCOPY ACPASS P * P FB F04060 P L PF04050 P n , P FTEXT 'CARD NUMBER : ' P | T P FTAB 24 P & P
0x335b5c…335cf0 Dummy {f00=0x00e3, f01=0x0190, f02=»********** P R L P* * Q L P* DEPOSIT (DLDEP) * Q b L P* * Q L P******
0x335cf0…335e84 Dummy {f00=0x00e3, f01=0x0190, f02=» Q R L P FSL R L P FBT SBCHQACT,F04110 R b J P FTEXT 'DEPOSIT - SAVINGS ACCOUNT:' R L P FB F041
0x335e84…336018 Dummy {f00=0x00e3, f01=0x0190, f02=» R P J P FTEXT 'DEPOSIT - CHEQUE ACCOUNT:' S L PF04120 S ^ L P FTAB 27 S L P FMEL '999
0x336018…3361ac Dummy {f00=0x00e3, f01=0x0190, f02=» S N L P FBT SBCHQACT,F04130 T L P FBT SBNOBOOK,F04130 T ^ L P* * T L P* SAVINGS
0x3361ac…336340 Dummy {f00=0x00e3, f01=0x0190, f02=» * T N L P FTEXT 'BOOK BALANCE:' U P P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT U ^ L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 U L P FTAB
0x336340…3364d4 (6, 124) Dummy {f00=0x00e3, f01=0x0190, f02=» U R J P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 V L P FMEL 'ZZ',IDNR1 V ` L P FB F04140 V L P*
0x3364d4…336668 Dummy {f00=0x00e3, f01=0x0190, f02=» * V P L P* * W L PF04130 W ` L P FTEXT 'NAME :' W L P FTAB 16
0x336668…3367fc Dummy {f00=0x00e3, f01=0x0190, f02=» W P L PF04140 X P FNL X ` L P FTEXT 'AMOUNT :' X l P P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT
0x3367fc…336990 Dummy {f00=0x00e3, f01=0x0190, f02=» X ` L P FTEXT 'NEW BALANCE :' Y L P FTAB 20 Y p P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL
0x336990…336b24 Dummy {f00=0x00e3, f01=0x0190, f02=»**************************** Y d L P* * Z $ L P* WITHDRAWAL (DMWDR) * Z t L P*
0x336b24…336cb8 Dummy {f00=0x00e3, f01=0x0190, f02=» Z d L P FSL [ $ P FTEXT 'WITHDRAWAL - ' [ t P FBT SBCHQACT,F04210 [ P FTEXT 'SAVINGS' [ P FB F04220 [ L PF04210
0x336cb8…336e4c Dummy {f00=0x00e3, f01=0x0190, f02=» FTEXT ' ACCOUNT:' [ L P FTAB 31 L P FMEL '999999',IDACTNR1 j L P FNL L
0x336e4c…336fe0 Dummy {f00=0x00e3, f01=0x0190, f02=» * Z L P* SAVINGS ACCOUNT * ] L P* * ] j L P FTAB 12 ] L
0x336fe0…337174 (6, 125) Dummy {f00=0x00e3, f01=0x0190, f02=» ] Z L P FCOPY ACPASS ^ L P FB F04250 ^ j L PF04230 ^ L
0x337174…337308 Dummy {f00=0x00e3, f01=0x0190, f02=» * ^ Z L P* CHEQUE ACCOUNT, NO ODR * _ L P* * _ j L P FTEXT 'NAME :' _ L
0x337308…33749c Dummy {f00=0x00e3, f01=0x0190, f02=» _ Z L P FB F04250 ` L P* * ` j L P* CHEQUE ACCOUNT, CHEQUE INPUT * ` L
0x33749c…337630 Dummy {f00=0x00e3, f01=0x0190, f02=» ` Z L P FTAB 12 a L P FTEXT '- CHEQUE NR. :' a j L P FTAB 31 a L
0x337630…3377c4 Dummy {f00=0x00e3, f01=0x0190, f02=» a Z L P FNL b L P FBT SBCHQACT,F04260 b j L P* * b L
0x3377c4…337958 Dummy {f00=0x00e3, f01=0x0190, f02=» * b Z L P FTEXT 'BOOK BALANCE:' c L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT c j L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 c L
0x337958…337aec Dummy {f00=0x00e3, f01=0x0190, f02=» c Z L P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 d L P FMEL 'ZZ',IDNR1 d j L P FB F04270 d L
0x337aec…337c80 Dummy {f00=0x00e3, f01=0x0190, f02=» * d Z L P* * e L PF04260 e j L P FTEXT 'CREDIT LIMIT:' e
0x337c80…337e14 (6, 126) Dummy {f00=0x00e4, f01=0x0190, f02=» e j P FNL f * L P FTEXT 'AMOUNT :' f 6 L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT f L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT
0x337e14…337fa8 Dummy {f00=0x00e4, f01=0x0190, f02=» f v L P FTAB 24 g 6 P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL g L P FMEND
0x337fa8…33813c Dummy {f00=0x00e4, f01=0x0190, f02=» * g z L P* PRINT, LINE TYPE 1: FUNCTION IDENTIFICATION * h : L P* * h L P**********************************************
0x33813c…3382d0 Dummy {f00=0x00e4, f01=0x0190, f02=» h z T P FBT SBVCH,P043005 i B T P FTAB 3 i L P FMEL 'Z',RDSHRPRT
0x3382d0…338464 Dummy {f00=0x00e4, f01=0x0190, f02=» i B T P FTAB 5 j L P FBF SBSTTO,P043020 j b L P FTEXT 'OPERATOR START' j L PP04302
0x338464…3385f8 Dummy {f00=0x00e4, f01=0x0190, f02=» j R L P FTEXT 'OPEN ACCOUNT' k L PP043030 k b L P FBF SBCACT,P043040 k L P FTEXT
0x3385f8…33878c Dummy {f00=0x00e4, f01=0x0190, f02=» k R L P FBF SBBACT,P043050 l L P FTEXT 'BLOCK ACCOUNT' l b L PP043050 l L P FBF S
0x33878c…338920 Dummy {f00=0x00e4, f01=0x0190, f02=» l R L PP043060 m L P FBF SBUACT,P043070 m b L P FTEXT 'UPDATE ACCOUNT' m L PP04307
0x338920…338ab4 (6, 127) Dummy {f00=0x00e4, f01=0x0190, f02=» m R L P FTEXT 'UPDATE CURRENCY' n L PP043080 n b L P FBF SBQACT,P043090 n L P FTEXT
0x338ab4…338c48 Dummy {f00=0x00e4, f01=0x0190, f02=» n R L P FBF SBDSTM,P043100 o L P FTEXT 'DAILY STATEMENT' o b L PP043100 o L P FBF S
0x338c48…338ddc Dummy {f00=0x00e4, f01=0x0190, f02=» o R L PP043110 p L P FBF SBCSYS,P043120 p b L P FTEXT 'SYSTEM CLOSE' p L PP04312
0x338ddc…338f70 Dummy {f00=0x00e4, f01=0x0190, f02=» p R L P FTEXT 'CURRENCY EXCH.' q L PP043130 q b L P FBF SBQCCY,P043140 q L P FTEXT
0x338f70…339104 Dummy {f00=0x00e4, f01=0x018e, f02=» q R L P FBF SBLACT,P043300 r L P FTEXT 'LIST ACCOUNTS' r b L PP043300 r T P FTAB
0x339104…339298 Dummy {f00=0x00e4, f01=0x0190, f02=» P FBT SBVCH,P043400 s P FILLR ' ',6 s P FB P043500 s 2 PP043400 s F L P FMEL 'ZZZZZZ',NDDATE s V PP043500 s P FBT SBFIL24,P043600 s P FBT SBFIL20,P043700 s P FB P043999 s PP04360
0x339298…33942c Dummy {f00=0x00e4, f01=0x0190, f02=»********************************** s j L P* * t * L P* PRINT, LINE TYPE 3: END OF FUNCTION * t z L P*
0x33942c…3395c0 Dummy {f00=0x00e4, f01=0x0190, f02=» t j T P FTEXT ' ' u * T P FBT SBVCH,P044010 u T P FTAB 3
0x3395c0…339754 (6, 128) Dummy {f00=0x00e4, f01=0x018e, f02=» u T P FTAB 5 v J N P FBF SBCANCEL,P044100 v L P FTEXT 'CANCEL'
0x339754…3398e8 Dummy {f00=0x00e4, f01=0x0190, f02=» v D N PP044100 w L P FMEL '999999',TDTRSSEQ w Z N PP044200 w L P FTAB 12
0x3398e8…339a7c Dummy {f00=0x00e4, f01=0x0190, f02=» w L L P FTAB 18 x L P FMEL '999',NDTRMNR x L P FTAB 22 x L P FMEL '99E:9
0x339a7c…339c10 Dummy {f00=0x00e4, f01=0x0190, f02=» x PP044600 y P FILLR ' ',4 y PP044700 y , P FILLR ' ',20 y < PP044999 y R L P FMEND y b L P************************************************************************ y L P*
0x339c10…339da4 Dummy {f00=0x00e4, f01=0x0190, f02=» * y R L P* * z L P************************************************************************ z b L PFMT045 FRMT z L P FSL
0x339da4…339f38 Dummy {f00=0x00e4, f01=0x0190, f02=» z R L P FBT SBCARD,F04510 { 4 P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT { b L P FMEL 'ZZZZZZ',IDACTNR1 { L P FB F04520
0x339f38…33a0cc Dummy {f00=0x00e4, f01=0x0190, f02=»30 { L P FMEL '999999',IDACTNR1 | L PF04520 | Z L P FNL | L P FBT SBCHQACT,
0x33a0cc…33a260 Dummy {f00=0x00e4, f01=0x0190, f02=» | J T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT } L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 } b L P FTEXT ' LINE: ' } T P FKI 3
0x33a260…33a3f4 (6, 129) Dummy {f00=0x00e4, f01=0x0190, f02=» } Z L P FB F04540 ~ L PF04530 ~ j P FTEXT 'CREDIT LIMIT:' ~ P FTAB 24 ~ L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK
0x33a3f4…33a588 Dummy {f00=0x00e4, f01=0x0190, f02=» ~ P FTEXT 'AMOUNT :' H T P FKI 24,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT f L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT
0x33a588…33a71c Dummy {f00=0x00e4, f01=0x0190, f02=»L 'ZZZZZZZZZ,ZZ-',TDNEWBAL L P FNL N $ P FTEXT 'TRANSFER TO ACCOUNT :' R P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20
0x33a71c…33a8b0 Dummy {f00=0x00e4, f01=0x0190, f02=» l L P************************************************************************ , L P* * | L P* ACCOUNT INQUIRY (DIQACT)
0x33a8b0…33aa44 Dummy {f00=0x00e4, f01=0x0190, f02=»************************************ l L PFMT046 FRMT INQUIRE ACCOUNT , L P FSL | L P FBT SBCHQACT,F04610
0x33aa44…33abd8 Dummy {f00=0x00e4, f01=0x0190, f02=» l L PF04610 , H P FTEXT 'INQUIRY CHEQUE ACCOUNT :' | L PF04620
0x33abd8…33ad6c Dummy {f00=0x00e4, f01=0x0190, f02=» p L P FNL 0 H P FTEXT 'BALANCE : ' T P FTAB 24
0x33ad6c…33af00 Dummy {f00=0x00e4, f01=0x0190, f02=» t L P FBT SBCHQACT,F04630 4 H P FTEXT 'BOOK BALANCE : ' L P FB F04640
0x33af00…33b094 (6, 130) Dummy {f00=0x00e5, f01=0x0190, f02=» p L PF04640 0 T P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x33b094…33b228 Dummy {f00=0x00e5, f01=0x0190, f02=» ' x T P FTAB 20 4 L P FMEL '9',ADSTATUS L P FNL
0x33b228…33b3bc Dummy {f00=0x00e5, f01=0x0190, f02=» T P FMEL '9',IDNR1 $ L P FMEND | L P************************************************************
0x33b3bc…33b550 Dummy {f00=0x00e5, f01=0x0190, f02=» * l L P* * , L P************************************************************************ | L PFMT047 FRMT INQUIRY TRANSACTION
0x33b550…33b6e4 Dummy {f00=0x00e5, f01=0x0190, f02=» l T P FTAB 26 ( L P FMEL '999999',IDACTNR1 L P FNL
0x33b6e4…33b878 Dummy {f00=0x00e5, f01=0x0190, f02=» l L P FMEL '999',UDTRSCDE 4 L P FTEXT '/' L P FMEL '99999',UDOPRNR
0x33b878…33ba0c Dummy {f00=0x00e5, f01=0x0190, f02=» t L P FTEXT '/' 4 L P FMEL '99E-99E-99',UDDATE L P FNL
0x33ba0c…33bba0 Dummy {f00=0x00e5, f01=0x0190, f02=» p L P FMEL 'ZZZZZZZZ9,99-',UDAMOUNT 8 L P FNL H P FTEXT 'NEW BALANCE: '
0x33bba0…33bd34 (6, 131) Dummy {f00=0x00e5, f01=0x0190, f02=»',UDNEWBAL | L P FNL D , P FTEXT 'LAST TRANS. REQ. (NO=0,YES=1)?' T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1
0x33bd34…33bec8 Dummy {f00=0x00e5, f01=0x0190, f02=» t L P************************************************************************ 4 L P* * L P* BLOCK/DEBLOCK ACCOUNT (DHBACT)
0x33bec8…33c05c Dummy {f00=0x00e5, f01=0x0190, f02=»******************************************** t L PFMT048 FRMT (DE-)BLOCK SCREEN 4 L P FSL L P FBT SBCHQACT,F04820
0x33c05c…33c1f0 Dummy {f00=0x00e5, f01=0x0190, f02=» * t L P* * 4 L P FBF SBBACT,F04810 L P FTEXT 'BLOCK SAVINGS ACCOUNT NR. :'
0x33c1f0…33c384 Dummy {f00=0x00e5, f01=0x0190, f02=»S ACCOUNT NR.:' t L P FB F04840 4 L PF04820 FBF SBBACT,F04830 L P FTEXT 'BLOCK CHEQUE ACCOUNT NR. :'
0x33c384…33c518 Dummy {f00=0x00e5, f01=0x0190, f02=» ACCOUNT NR. :' t PF04840 4 P FTAB 30 B L P FMEL '999999',IDACTNR1 R P FNL H P FTEXT 'NAME : ' T P FTAB 16
0x33c518…33c6ac Dummy {f00=0x00e5, f01=0x0190, f02=» R L P FNL L P FTEXT 'CURRENT BALANCE :' b T P FTAB 24 L
0x33c6ac…33c840 Dummy {f00=0x00e5, f01=0x018e, f02=» f PF04850 & L P FTEXT 'BOOK BALANCE :' 4 T P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK
0x33c840…33c9d4 (6, 132) Dummy {f00=0x00e5, f01=0x0190, f02=» L P FTEXT 'CREDIT LIMIT :' T P FTAB 24 T L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK T PF04865
0x33c9d4…33cb68 Dummy {f00=0x00e5, f01=0x0190, f02=» ` L P FTEXT 'COMMENT :' $ P FKI 16,MAXL=20,ALPHA,NCLR,NEOI p P FCOPY TCTEXT L P FB F04899 J PF04870 FTE
0x33cb68…33ccfc Dummy {f00=0x00e5, f01=0x0190, f02=» L L P************************************************************************ PMSG049 FRMT P FSL p 0 P FTEXT 'MOUNT PASS-BOOK IN VOUCHER-PRINTER' | P FKI 36 P FCOPY ICDUMMY P FMEND L P************************************
0x33ccfc…33ce90 Dummy {f00=0x00e5, f01=0x0190, f02=» FCOPY ICDUMMY P FMEND L P************************************************************************ $ L P* * t P* PRINT: PASSBOOK CLOSE LINE L P*
0x33ce90…33d024 Dummy {f00=0x00e5, f01=0x0190, f02=»RMT P FTEXT ' ' H L P FMEL 'ZZZZZZ',NDDATE N P FILLR ' ',13 L P FMEL 'ZZZ
0x33d024…33d1b8 Dummy {f00=0x00e5, f01=0x0190, f02=» N T P FTEXT '** CLOSED **' T P FMEND h L P************************************************************************
0x33d1b8…33d34c Dummy {f00=0x00e5, f01=0x0190, f02=» * ` L P* * L P************************************************************************ p J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1
0x33d34c…33d4e0 Dummy {f00=0x00e5, f01=0x0190, f02=» ^ L P FTEXT 'UPDATE SAVINGS ACCOUNT NR. : ' L P FB F05220 n L PF05210
0x33d4e0…33d674 (6, 133) Dummy {f00=0x00e5, f01=0x018e, f02=» ^ P FTAB 30 P FMEL '999999',IDACTNR1 . L P FNL N L P FTEXT 'NAME :' T P FTAB 16
0x33d674…33d808 Dummy {f00=0x00e5, f01=0x0190, f02=» F T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 L PF05230 ` L P FCOPY ACNAME L P FNL
0x33d808…33d99c Dummy {f00=0x00e5, f01=0x0190, f02=» P T P FTAB 16 L P FBZ RDALFKB,F05240 h T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18
0x33d99c…33db30 Dummy {f00=0x00e5, f01=0x0190, f02=» ` L P FNL L P FTEXT 'TOWN :' p T P FTAB 16
0x33db30…33dcc4 Dummy {f00=0x00e5, f01=0x018e, f02=»18 h L PF05250 0 L P FCOPY ACTOWN L P FNL
0x33dcc4…33de58 Dummy {f00=0x00e5, f01=0x0190, f02=» z P* L P FTEXT 'PASSWORD:' T P FTAB 30 b L P FBZ RDALFKB,F05260 "
0x33de58…33dfec Dummy {f00=0x00e5, f01=0x0190, f02=» P FB F05299 @ L PF05270 R L P FTEXT 'CREDIT LIMIT :' T P FKI 24,MAXL=11,ME,NUM
0x33dfec…33e180 Dummy {f00=0x00e5, f01=0x0190, f02=» J PF05299 L P FMEND L P************************************************************************ h L P* * L P
0x33e180…33e314 (6, 134) Dummy {f00=0x00e6, f01=0x0190, f02=» * X L P************************************************************************ L PFMT053 FRMT h L P FSL L P
0x33e314…33e4a8 Dummy {f00=0x00e6, f01=0x0190, f02=» X L P FB F05320 L PF05310 h L P FTEXT 'UPDATE CHEQUE ACCOUNT NR. : ' P
0x33e4a8…33e63c Dummy {f00=0x00e6, f01=0x0190, f02=» R L P FTEXT 'BOOK BALANCE: ' R P FKI 15,MAXL=11,NUM,ME,NEOI,NCLR,REWRT b L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK L P
0x33e63c…33e7d0 Dummy {f00=0x00e6, f01=0x0190, f02=» X L P FMEL '99',ADLNENR L P FB F05340 n L PF05330
0x33e7d0…33e964 Dummy {f00=0x00e6, f01=0x0190, f02=» ^ N P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK $ L PF05340 v L P FNL
0x33e964…33eaf8 Dummy {f00=0x00e6, f01=0x0190, f02=» f T P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT,APPL=30 & P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL ~ L P FNL
0x33eaf8…33ec8c Dummy {f00=0x00e6, f01=0x0190, f02=»R,REWRT,APPL=3 r L P FMEL '9',ADSTATUS 8 P FNL L P FNL $ P FTEXT 'LAST TRANSACTION :'
0x33ec8c…33ee20 Dummy {f00=0x00e6, f01=0x0190, f02=» b L P FNL " $ P FTEXT 'LAST PRINTED :' r R P FKI 24,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=17 L P FMEL '99',ADSTMTRS
0x33ee20…33efb4 (6, 135) Dummy {f00=0x00e6, f01=0x018e, f02=» FTEXT 'ACCUM. DEPOSITS :' R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT P L P FMEL 'ZZZZZZZZ9,99',ADDEPCUM L P FNL
0x33efb4…33f148 Dummy {f00=0x00e6, f01=0x0190, f02=» F * P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT L P FMEL 'ZZZZZZZZ9,99',ADWDRCUM 6 L P FMEND L P**************************************************
0x33f148…33f2dc Dummy {f00=0x00e6, f01=0x0190, f02=» 'MOUNT VOUCHER IN VOUCHER-PRINTER' L P FKI 34 J L P FCOPY ICDUMMY P FMEND L P****************
0x33f2dc…33f470 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P* LIST ACCOUNTS, HEADER LINE (DELACT) * L P* * X L P************************************************************************ L PFMT055 FRMT
0x33f470…33f604 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FNL L P FTEXT 'ACC.' X L P FTAB 8 L P FTEXT 'CARD'
0x33f604…33f798 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FTEXT 'NAME' L P FTAB 34 X L P FTEXT 'ACCUM.DEP.' L P FTAB 49
0x33f798…33f92c Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FTAB 63 L P FTEXT 'ST' X L P FMEND J P****************
0x33f92c…33fac0 Dummy {f00=0x00e6, f01=0x018e, f02=»**************************************************** ~ PFMT057 FRMT < P FSL P P FTEXT 'CURRENCY NAME : ' P FTAB 17 ~ P FCOPY CCCCYNME P FNL P FTEXT 'CURRENCY CODE : ' P FTAB 17 P FCOPY CCCCYCDE P FTAB 26
0x33fac0…33fc54 (6, 136) Dummy {f00=0x00e6, f01=0x018e, f02=» P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 $ P FTEXT '(2)' 4 P FTAB 30 H P FMEL 'ZZZ9,99',CDBUY2 X P FNL v P FTEXT 'SELLING RATES :(1)' P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 P FTAB 27 P FTEXT '(2)' P FTAB 30
0x33fc54…33fde8 Dummy {f00=0x00e6, f01=0x0190, f02=» L P************************************************************************ L P* * X L P* CURRENCY EXCHANGE (DPECCY) * L P*
0x33fde8…33ff7c Dummy {f00=0x00e6, f01=0x0190, f02=» H L PFMT058 FRMT L P FSL X L P FTEXT 'CURRENCY EXCHANGE ' L P FBT SBCCYIN,F05
0x33ff7c…340110 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FB F058200 L PF058100 X L P FTEXT '(BUYING)' L PF058200
0x340110…3402a4 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FTEXT 'RATE:' L P FTAB 6 X L P FCOPY YCCCY(KW4) L P FTAB 10
0x3402a4…340438 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P* CURRENCY SELLING * L P FMEL 'ZZZZ9,99',CDSEL1 X L P FB F058240 L P* CURRENCY BUYIN
0x340438…3405cc Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FMEL 'ZZZZ9,99',CDBUY1 L PF058240 X L P FTEXT ' / ' L P FTAB 21
0x3405cc…340760 Dummy {f00=0x00e6, f01=0x018e, f02=» H L P FTAB 25 L P FMEL 'ZZZZ9,00',CDRELAT X L P FNL J P FTEXT 'AMOUNT Q
0x340760…3408f4 (6, 137) Dummy {f00=0x00e6, f01=0x018e, f02=» F L P FCOPY ICTEXT1 CURRENCY CODE 1 L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI,APPL=26,REWRT X L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 L P FNL
0x3408f4…340a88 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FTAB 16 L P FCOPY ICTEXT2 CURRENCY CODE 2 X L P FTAB 20 L P FMEL 'ZZZZZZZZZ
0x340a88…340c1c Dummy {f00=0x00e6, f01=0x0190, f02=» H L P FTEXT 'CONTINUE EXCHANGE (NO=0,YES=1) ?' L P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 X L P FMEL '9',IDNR4 L P FMEND
0x340c1c…340db0 Dummy {f00=0x00e6, f01=0x0190, f02=» H L P* * L P* CLOSE OPERATOR (PART1) * X L P* * L P****************
0x340db0…340f44 Dummy {f00=0x00e6, f01=0x0190, f02=» H T P FSL T P FTEXT 'CASH BALANCES :' h T P FTAB 20
0x340f44…3410d8 Dummy {f00=0x00e6, f01=0x0190, f02=» p T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) 8 T P FNL T P FTAB 20
0x3410d8…34126c Dummy {f00=0x00e6, f01=0x0190, f02=» @ T P FTAB 24 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) ` T P FNL
0x34126c…341400 Dummy {f00=0x00e6, f01=0x0190, f02=» h T P FTAB 24 0 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) T P FNL
0x341400…341594 (6, 138) Dummy {f00=0x00e7, f01=0x0190, f02=» FCOPY YCCCY(KW3) T P FTAB 24 X T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) T P
0x341594…341728 Dummy {f00=0x00e7, f01=0x0190, f02=» ` T P FTAB 20 ( T P FCOPY YCCCY(KW4) T P FTAB 24
0x341728…3418bc Dummy {f00=0x00e7, f01=0x0190, f02=» T P FTEXT 'PRESS CONT TO CONFIRM ELSE CANCEL' P T P FMEND L P********
0x3418bc…341a50 Dummy {f00=0x00e7, f01=0x0190, f02=» * P N P* OPERATOR TURNOVER SCREEN * L P* * b L P************************************************************************ PFMT060
0x341a50…341be4 Dummy {f00=0x00e7, f01=0x0190, f02=»,99-',WDEC1 P FNL P FTAB 20 P FCOPY YCCCY(KW1) 0 P FTAB 24 J * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) Z P FNL P FTAB 20 P FCOPY YCCCY(KW2) P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL P
0x341be4…341d78 Dummy {f00=0x00e7, f01=0x0190, f02=»ER :' | P FTAB 20 P FCOPY YCCCY(KW4) T P FTAB 24 : P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND L P********************************************************************
0x341d78…341f0c Dummy {f00=0x00e7, f01=0x0190, f02=» * d L P* * $ L P************************************************************************ t L PPRT061 FRMT
0x341f0c…3420a0 Dummy {f00=0x00e7, f01=0x0190, f02=» t P FTAB 10 4 L P FBF SBFIRST,P061050 D L P FMEL '99E-99E-99',NDDATE PP061050 L P FTAB 19
0x3420a0…342234 (6, 139) Dummy {f00=0x00e7, f01=0x0190, f02=»ER INDICATIONS z PP061100 N P FBF SBDSDEP,P061200 & L P FTEXT 'DEPOSIT' x L PP061200
0x342234…3423c8 Dummy {f00=0x00e7, f01=0x0190, f02=» j L PP061300 * N P FBF SBDSTRF,P061400 z L P FTEXT 'TRANSFER'
0x3423c8…34255c Dummy {f00=0x00e7, f01=0x0190, f02=» l L P FMEL '99E-99E-99',UDDATE , L P FTAB 42 | L P FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT1
0x34255c…3426f0 Dummy {f00=0x00e7, f01=0x0190, f02=» l L P FMEND , L P************************************************************************ | T PMSG062 FRMT
0x3426f0…342884 Dummy {f00=0x00e7, f01=0x0190, f02=»00 | T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON GTP' D T P FB M062999 T PM062100
0x342884…342a18 Dummy {f00=0x00e7, f01=0x0190, f02=» L T PM062999 T P FMEND l L P********************************************************************
0x342a18…342bac Dummy {f00=0x00e7, f01=0x0190, f02=» l T P FTEXT 'MOUNT DAILY-STATEMENT-VOUCHER' 4 T P FMEND L P************************************
0x342bac…342d40 Dummy {f00=0x00e7, f01=0x0190, f02=»******************************************************************** L P* * L L P* DEMO TP71: TITLE LINE * L P*
0x342d40…342ed4 (6, 140) Dummy {f00=0x00e7, f01=0x0190, f02=»65 FRMT P FILLR ' ',6 L P FBT SBFIL1,FMT65A ` P FILLR ' ',9 z P FBT SBFIL2,FMT65A P FILLR ' ',8 P FBT SBFIL3,FMT65A P FILLR ' ',3 P FBT SBFIL4,FMT65A P FIL
0x342ed4…343068 Dummy {f00=0x00e7, f01=0x0190, f02=» V L P FTEXT 'PHILIPS PTS 6371 TERMINAL PRINTER' L P FCOPY ICSTRG1 f L P FMEND L P**
0x343068…3431fc Dummy {f00=0x00e7, f01=0x0190, f02=» * V L P* DEMO TP71: HEADING AVAILABLE CHARACTER SET * L P* * f L P************************************************************************ L PFM
0x3431fc…343390 Dummy {f00=0x00e7, f01=0x0190, f02=» V L P FILLR ' ',6 L P FTEXT 'AVAILABLE CHARACTER SETS: ' f L P FMEND L P**
0x343390…343524 Dummy {f00=0x00e7, f01=0x0190, f02=» * V L P* DEMO TP71: SPECIAL CHARACTERS * L P* * f L P************************************************************************ L PFM
0x343524…3436b8 Dummy {f00=0x00e7, f01=0x0190, f02=» V L P FILLR ' ',6 L P FTEXT 'SPECIAL CHARACTERS : ' f L P FILLR ' ',6 8 P F
0x3436b8…34384c Dummy {f00=0x00e7, f01=0x0190, f02=»AE36' P* ROOMLESS POINT P FTEXT =X'AE37AE38AE39' & L P FMEND F L P************************************************************************ L P*
0x34384c…3439e0 Dummy {f00=0x00e7, f01=0x0190, f02=» * L P************************************************************************ PFMT068 FRMT l P FSL P FTEXT 'ODR (N=0,Y=1) ?' 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 P FMEL '9',RDODR P FNL P F
0x3439e0…343b74 (6, 141) Dummy {f00=0x00e7, f01=0x0190, f02=» 'FRONT OFFICE(' P FMEL '999',NDTRMNR P FTEXT ')' 4 P FMEND F L P************************************************************************ T L P* * F P* OPERATOR BALANCES,
0x343b74…343d08 Dummy {f00=0x00e7, f01=0x0190, f02=»********************************************************************** L PFMT069 FRMT N L P FSL H P FTEXT 'OPERATOR : '
0x343d08…343e9c Dummy {f00=0x00e7, f01=0x0190, f02=» L P FTEXT 'CASH BALANCE : ' J P FTAB 16 L P FCOPY YCCCY(KW4) P FTAB 20 L
0x343e9c…344030 Dummy {f00=0x00e7, f01=0x0190, f02=» L P FCOPY YCCCY(KW1) F P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) P FNL P FTEXT
0x344030…3441c4 Dummy {f00=0x00e7, f01=0x0190, f02=» r P FTAB 20 2 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) B P FNL P FTEXT 'CASH BALANCE : ' L P FTAB 16
0x3441c4…344358 Dummy {f00=0x00e7, f01=0x0190, f02=»W3) n P FNL . , P FTEXT 'PRESS CONT TO CONFIRM ELSE CANC' : P FKI 32 j P FCOPY WCSTRG6 z L P FMEND L P****************************************
0x344358…3444ec Dummy {f00=0x00e7, f01=0x0190, f02=»WDR) FOR FT80 L P* * H L P************************************************************************ L PFMT070 FRMT
0x3444ec…344680 Dummy {f00=0x00e7, f01=0x0190, f02=»HQACT,F07010 J P FTEXT 'WITHDRAWAL - SAVINGS ACC.:' H L P FB F07020 L PF07010
0x344680…344814 (6, 142) Dummy {f00=0x00e8, f01=0x0190, f02=» L P FTAB 27 D L P FMEL '999999',IDACTNR1 L P FNL
0x344814…3449a8 Dummy {f00=0x00e8, f01=0x0190, f02=» * L P* SAVINGS ACCOUNT * D L P* * L P FTAB 12
0x3449a8…344b3c Dummy {f00=0x00e8, f01=0x0190, f02=» L P FCOPY ACPASS @ L P FB F07050 L PF07030
0x344b3c…344cd0 Dummy {f00=0x00e8, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT, NO ODR * @ L P* * L P FTEXT 'NAME :'
0x344cd0…344e64 Dummy {f00=0x00e8, f01=0x0190, f02=» L P FB F07050 @ L P* * L P* CHEQUE ACCOUNT, CHEQUE INPUT
0x344e64…344ff8 Dummy {f00=0x00e8, f01=0x0190, f02=» L P FTAB 12 @ H P FTEXT '- CHEQUE NR. :' L P FTAB 27
0x344ff8…34518c Dummy {f00=0x00e8, f01=0x0190, f02=» | L P FNL < L P FBT SBCHQACT,F07060 L P*
0x34518c…345320 Dummy {f00=0x00e8, f01=0x0190, f02=» * | L P FTEXT 'BOOK BALANCE:' < L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1
0x345320…3454b4 (6, 143) Dummy {f00=0x00e8, f01=0x0190, f02=»ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 L P FMEL 'ZZ',IDNR1 H L P FB F07070 L P*
0x3454b4…345648 Dummy {f00=0x00e8, f01=0x0190, f02=» * L PF07060 H L P FTEXT 'CREDIT LIMIT:' P FTAB 20 L P FMEL 'ZZZZZZZZ9
0x345648…3457dc Dummy {f00=0x00e8, f01=0x0190, f02=» H P FNL L P FTEXT 'AMOUNT :' L P FKI 20,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT d L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT L P FNL
0x3457dc…345970 Dummy {f00=0x00e8, f01=0x0190, f02=» T L P FTAB 20 P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL d L P FMEND L P
0x345970…345b04 Dummy {f00=0x00e8, f01=0x0190, f02=» * X T P* TRANSFER (DNTRF) FOR FT80 L P* * p L P************************************************************************
0x345b04…345c98 Dummy {f00=0x00e8, f01=0x0190, f02=» ` L P FTEXT 'TRANSFER FROM ACCOUNT : ' L P FBT SBCARD,F07110 p 4 P FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=19,REWRT L P FMEL 'ZZZZZZ',I
0x345c98…345e2c Dummy {f00=0x00e8, f01=0x0190, f02=» H L PF07110 P FTAB 26 X L P FMEL '999999',IDACTNR1 h L PF07120 L P
0x345e2c…345fc0 Dummy {f00=0x00e8, f01=0x0190, f02=» X L P FTEXT 'BOOK BALANCE: ' T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT h L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1
0x345fc0…346154 (6, 144) Dummy {f00=0x00e8, f01=0x0190, f02=»PL=11,REWRT l L P FMEL 'ZZ',IDNR1 4 L P FB F07140 L PF07130
0x346154…3462e8 Dummy {f00=0x00e8, f01=0x0190, f02=» R L PF07140 L P FNL b P FTEXT 'AMOUNT :' T P FKI 20,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=14,REWRT
0x3462e8…34647c Dummy {f00=0x00e8, f01=0x0190, f02=» x P FTEXT 'NEW BALANCE :' 8 P FTAB 20 V N P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL f L P FNL $ P
0x34647c…346610 Dummy {f00=0x00e8, f01=0x018e, f02=»ZZZ',IDACTNR2 L P FMEND F J P********************************************************************** P* ( P* CURRENCY INQUIRY (DQCCY
0x346610…3467a4 Dummy {f00=0x00e8, f01=0x018e, f02=» P FTEXT 'CURRENCY NAME : ' P FTAB 17 & P FCOPY CCCCYNME 6 P FNL N P FTEXT 'CURRENCY CODE : ' Z P FTAB 17 | P FCOPY CCCCYCDE P FTAB 22 P FTEXT 'REL.: ' P FTAB 28 P FMEL 'ZZZZ9',CDRELAT P FNL P F
0x3467a4…346938 Dummy {f00=0x00e8, f01=0x0190, f02=» P FTAB 26 P FMEL 'ZZZ9,99',CDBUY2 P FNL 6 P FTEXT 'SELLING RATES:(1)' D P FTAB 19 f P FMEL 'ZZZ9,99-',CDSEL1 v P FNL P FTEXT 'SELLING RATE :(2)' P FTAB 19 P FMEL 'ZZZ9,99',CDSEL2 P FNL P FTEXT 'LI
0x346938…346acc Dummy {f00=0x00e8, f01=0x0190, f02=»********************** ^ L P* * T P* CLOSE OPERATOR (PART1) FOR FT80 n L P*
0x346acc…346c60 Dummy {f00=0x00e8, f01=0x0190, f02=» f T P FSL . T P FTEXT 'CASH BALANCE :' T P FTAB 16
0x346c60…346df4 (6, 145) Dummy {f00=0x00e8, f01=0x0190, f02=»TAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) V T P FNL P F
0x346df4…346f88 Dummy {f00=0x00e8, f01=0x0190, f02=» ~ T P FTAB 20 F T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL
0x346f88…34711c Dummy {f00=0x00e8, f01=0x018e, f02=» n T P FCOPY YCCCY(KW2) 6 T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,K
0x34711c…3472b0 Dummy {f00=0x00e8, f01=0x0190, f02=» > P FTEXT 'CASH BALANCE : ' T P FTAB 16 ( T P FCOPY YCCCY(KW3) T P FTAB 20
0x3472b0…347444 Dummy {f00=0x00e8, f01=0x0190, f02=» R P FTEXT 'CHEQUE BALANCE:' P T P FTAB 16 T P FCOPY YCC
0x347444…3475d8 Dummy {f00=0x00e8, f01=0x0190, f02=» V T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) T P FNL v R P FTEXT 'PRESS CONT TO CONFIRM ELSE CANC'
0x3475d8…34776c Dummy {f00=0x00e8, f01=0x0190, f02=»**************************************************** | L P* * < T P* OPERATOR TURNOVER SCREEN FOR FT80 L P*
0x34776c…347900 Dummy {f00=0x00e8, f01=0x0190, f02=» P FSL P FTEXT 'GROSS TURNOVER:' P FTAB 16 4 P FCOPY YCCCY(KW4) D P FTAB 20 ^ P FMEL 'ZZZZZZZZ9,99-',WDEC1 n P FNL P FTEXT 'GROSS TURNOVER:' P FTAB 16 P FCOPY YCCCY(KW1) P FTAB 20 * P FMEL 'ZZZZZZZZ9
0x347900…347a94 (6, 146) Dummy {f00=0x00e9, f01=0x0190, f02=»L 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL * P FTEXT 'GROSS TURNOVER:' 6 P FTAB 16 V P FCOPY YCCCY(KW3) f P FTAB 20 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) P FNL P FTEXT 'CURR. TURNOVER:' P FTAB 16 P FCOPY YCCCY(K
0x347a94…347c28 Dummy {f00=0x00e9, f01=0x0190, f02=» FMEND L P************************************************************************ L P* * ^ L P* ********** ERROR MESSAGES ********** * L P*
0x347c28…347dbc Dummy {f00=0x00e9, f01=0x0190, f02=»****** N PERR001 FRMT P FSL " P FTEXT 'VALUE NOT IN RANGE' . P FMEND R PERR002 FRMT ` P FSL t P FTEXT 'RECORD PROTECTED' P FMEND PERR003 FRMT P FSL P FTEXT 'I/O ERROR' P FMEND PERR004 FRMT
0x347dbc…347f50 Dummy {f00=0x00e9, f01=0x0190, f02=» P FMEND L PERR006 FRMT L P FSL b L P FTEXT 'DISK ERROR' L P FMEND
0x347f50…3480e4 Dummy {f00=0x00e9, f01=0x0190, f02=» R L P FSL L P FTEXT 'FILE OPEN UNSUCCESSFULL' b L P FMEND L PERR008
0x3480e4…348278 Dummy {f00=0x00e9, f01=0x0190, f02=» R L P FTEXT 'FRONT OFFICE' L P FMEND b L PERR009 FRMT L P FSL
0x348278…34840c Dummy {f00=0x00e9, f01=0x0190, f02=» R L P FMEND L PERR010 FRMT b L P FSL N P FTEXT
0x34840c…3485a0 Dummy {f00=0x00e9, f01=0x0190, f02=» T L PERR020 FRMT L P FSL d P FTEXT 'INVALID COMPARISON' L P FMEND
0x3485a0…348734 (6, 147) Dummy {f00=0x00e9, f01=0x0190, f02=» x L P FTEXT 'OPERATOR UNKNOWN' 8 L P FMEND L PERR024 FRMT
0x348734…3488c8 Dummy {f00=0x00e9, f01=0x0190, f02=» LOGGED ON' x L P FMEND 8 L PERR025 FRMT L P FSL
0x3488c8…348a5c Dummy {f00=0x00e9, f01=0x0190, f02=» x L PERR026 FRMT 8 L P FSL N P FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR'
0x348a5c…348bf0 Dummy {f00=0x00e9, f01=0x0190, f02=» z L P FSL : L P FTEXT 'ACCOUNT BLOCKED' L P FMEND
0x348bf0…348d84 Dummy {f00=0x00e9, f01=0x0190, f02=» z L P FTEXT 'RECORD KEY INVALID' : L P FMEND L PERR031 FRMT
0x348d84…348f18 Dummy {f00=0x00e9, f01=0x0190, f02=»ING REQUIRED' z L P FMEND : L PERR032 FRMT L P FSL
0x348f18…3490ac Dummy {f00=0x00e9, f01=0x0190, f02=» z L PERR033 FRMT : L P FSL L P FTEXT 'REQUIRED DEVICE TYPE NOT SPECIFIED'
0x3490ac…349240 Dummy {f00=0x00e9, f01=0x0190, f02=» z L P FSL : P FTEXT 'SAVINGS ACCOUNT' L P FMEND PERR035 FRMT
0x349240…3493d4 (6, 148) Dummy {f00=0x00e9, f01=0x4188, f02=»ND PERR037 FRMT P FSL P FTEXT 'BALANCE NOT ZERO' * P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ADBAL P FMEND PERR038 FRMT P FSL P FTEXT 'NO TRANSACTIONS' P FMEND PERR056 FRMT P FSL & P FTEXT 'NO T
0x3493d4…349568 Dummy {f00=0x00e9, 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
0x349568…3496fc Dummy {f00=0x00e9, f01=0x0190, f02=» L P FMEND L P* * T L P* * L P*
0x3496fc…349890 Dummy {f00=0x00e9, 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
0x349890…349a24 Dummy {f00=0x00e9, 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
0x349a24…349bb8 Dummy {f00=0x00e9, 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
0x349bb8…349d4c Dummy {f00=0x00e9, f01=0x0190, f02=» P L P FNL L P FTEXT 'CASH BALANCES :' ` L P FCOPY YCCCY(KW4) P P FKI 24,
0x349d4c…349ee0 Dummy {f00=0x00e9, 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
0x349ee0…34a074 (6, 149) Dummy {f00=0x00e9, 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)
0x34a074…34a208 Dummy {f00=0x00e9, 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
0x34a208…34a39c Dummy {f00=0x00e9, f01=0x0190, f02=» h L P FMEL '9',WD1 , L P FMEND | L P*
0x34a39c…34a530 Dummy {f00=0x00e9, f01=0x0190, f02=» * l L PFMT018 FRMT OPERATOR ACCUMULATORS ! , L P FSL ! | L P FTEXT 'CASH DEPOSITS :'
0x34a530…34a6c4 Dummy {f00=0x00e9, f01=0x0190, f02=») ! p L P FNL " 0 L P FMEND " L P*
0x34a6c4…34a858 Dummy {f00=0x00e9, 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
0x34a858…34a9ec Dummy {f00=0x00e9, f01=0x0190, f02=» # PERR005 FRMT $ P FSL $ P FTEXT 'ERR0R 5' $ ( P FMEND $ @ L P************************************************************************ $ N L P* * $ L P* ERR0R 10
0x34a9ec…34ab80 Dummy {f00=0x00e9, f01=0x0190, f02=»********************************************************************** $ PERR010 FRMT % N P FSL % b P FTEXT 'VALUE NOT IN RANGE' % n P FMEND % L P************************************************************************ % L P*
0x34ab80…34ad14 (6, 150) Dummy {f00=0x00ea, f01=0x0190, f02=»* * % L P************************************************************************ & P L PERR020 FRMT & L P FSL
0x34ad14…34aea8 Dummy {f00=0x00ea, f01=0x0190, f02=» FMEND & L P************************************************************************ ' P L P* * ' L P* ERR0R 23
0x34aea8…34b03c Dummy {f00=0x00ea, f01=0x0190, f02=»************************************************************************ ' L PERR023 FRMT ( P L P FSL ( L P FTEXT 'OPERATOR UNKNOWN
0x34b03c…34b1d0 Dummy {f00=0x00ea, f01=0x0190, f02=»************************************************************************ ( L P* * ) P L P* ERR0R 24 * ) L P*
0x34b1d0…34b364 Dummy {f00=0x00ea, f01=0x0190, f02=»ERR024 FRMT ) L P FSL * P L P FTEXT 'OPERATOR ALREADY LOGGED ON' * L P FMEND
0x34b364…34b4f8 Dummy {f00=0x00ea, f01=0x0190, f02=»* * * L P* ERR0R 25 * + P L P* * + L P************************
0x34b4f8…34b68c Dummy {f00=0x00ea, f01=0x0190, f02=» FSL + L P FTEXT 'WRONG PASSWORD' , P L P FMEND , L P************************
0x34b68c…34b820 Dummy {f00=0x00ea, f01=0x0190, f02=»* ERR0R 26 * , L P* * - P L P************************************************************************ - L PERR026 FRMT
0x34b820…34b9b4 (6, 151) Dummy {f00=0x00ea, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR - L P FMEND . P L P************************************************************************ . L P*
0x34b9b4…34bb48 Dummy {f00=0x00ea, f01=0x0190, f02=»* * . L P************************************************************************ / P L PERR027 FRMT / L P FSL
0x34bb48…34bcdc Dummy {f00=0x00ea, f01=0x009c, f02=» FMEND / L P************************************************************************ 0 P L PERR027 FRMT / L P FSL
0x34bcdc…34be70 Dummy {f00=0x00ea, f01=0x2008, f02=» 1 / L P************************************************************************ 0 P L PERR027 FRMT / L P FSL
0x34be70…34c004 Dummy {f00=0x00ea, f01=0x0000, f02=»
[…0x3…]
0x34c4c0…34c654 (6, 152) Opaque[0x194]
0x34c654…34c7e8 # DirEnt {nam=»LSTFMT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d50, f03=0x0000}
0x34c654…34c7e8 IdxSect {
0x34c654…34c7e8 f00 = 0x00ea // 0x34c654 @0x0
0x34c654…34c7e8 f01 = 0x0002 // 0x34c656 @0x2
0x34c654…34c7e8 gno = [ // 0x34c658 @0x4
0x34c654…34c7e8 [0x00]: C0x00ea.0x2.0
0x34c654…34c7e8 ]
0x34c654…34c7e8 }
0x34c7e8…34c97c Dummy {f00=0x00ea, f01=0x4164, f02=» ( P IDENT LSTFMT LIST FORMATS IN FMTDEF L P DDUM DEMODD 0 L P PDIV P ENTRY LSTFMT PLSTFMT P INCLUDE FRADEF,LIST
0x34c97c…34cb10 Dummy {f00=0x00ea, f01=0x2008, f02=» H
0x34cb10…34cca4 Dummy {f00=0x00ea, f01=0x018e, f02=» k " t " y " z & " { 4 " ~ B " P " ^ " l " z " " " " " " " " "
0x34cca4…34ce38 Dummy {f00=0x00ea, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " " " " "
0x34ce38…34cfcc Dummy {f00=0x00ea, f01=0x0190, f02=» NOCH NICHT IMPLEMENTIERT & H " & m 4 ( B & N & m ^ & ! & BILDSCHIRM 01/06/08/20/24 ? l & 99 " e ( z & & &
0x34cfcc…34d160 Dummy {f00=0x00ea, f01=0x0190, f02=» & , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! F & ! T & ! b & p & ~ , ' &% !PHILIPS PTS 6344 BILDSCHIRMGERAETS & ! & ! & ! & ! & &
0x34d160…34d2f4 (6, 153) Opaque[0x194]
0x34d2f4…34d488 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2130, f03=0x0000}
0x34d2f4…34d488 IdxSect {
0x34d2f4…34d488 f00 = 0x0109 // 0x34d2f4 @0x0
0x34d2f4…34d488 f01 = 0x0002 // 0x34d2f6 @0x2
0x34d2f4…34d488 gno = [ // 0x34d2f8 @0x4
0x34d2f4…34d488 [0x00]: C0x0109.0x2.0
0x34d2f4…34d488 ]
0x34d2f4…34d488 }
0x34d488…34d61c Dummy {f00=0x0109, f01=0x000c, f02=»801121 _ ^ 801121 $$$TRAR ZKOPNF ZLCLSF 6 T:CLOSR T:COMMA T:EDWR0 T:OPENF T:XSTA C FORMAT X W801121 $$$TRAR AAMAIN FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKO
0x34d61c…34d7b0 Dummy {f00=0x0109, f01=0x4120, f02=» jFORMIO 801121 $$$TRAR ZKOPNF ZLCLSF 6 T:CLOSR T:COMMA T:EDWR0 T:OPENF T:XSTA C FORMAT X W801121 $$$TRAR AAMAIN FMOVE MASK T:COMM. T:DDIS- T:DREA1 T:DSC0 T:DWRI T:EDWR T:EXIT T:KI T:NKI T:RSTA T:USE T:XSTA ZKO
0x34d7b0…34d944 Dummy {f00=0x0109, f01=0x0190, f02=» & AMOUNT : * & * c ZZZZZZZZZ,ZZ * 2 " c * N & c * ^ & NEW BALANCE : * l & * d ZZZZZZZZZ,ZZ-C * " d E * & d * " & TRANSFER TO ACCOUNT : * & *
0x34d944…34dad8 Dummy {f00=0x0109, f01=0x0190, f02=» & + " & INQUIRY CHEQUE ACCOUNT : + & + 8 g 999999 + F " gaN + & g + l & BALANCE : + z & + h ZZZZZZZZ9,99- + " h A + & h + & A + & BOOK BALANCE :
0x34dad8…34dc6c Dummy {f00=0x0109, f01=0x0190, f02=»US : + & , j 9T , " " j T , 4 & j , D ( $ &" LAST TRANS. REQ. (NO=0,YES=1)? , R & @ , ~ k 9@ , " ke , ( , l , & k , $ & TRANSACTION INQUIRY-A/C :S , &
0x34dc6c…34de00 Dummy {f00=0x0109, f01=0x0190, f02=» /R , o 99999T - " o R - " & /R - 2 p 999999 - B " p R - X & /R - h q 99E-99E-99 - x " q R - & q - & AMOUNT : - & - r ZZZZZZZZ9,99- - " r M -
0x34de00…34df94 (6, 154) Opaque[0x194]
0x34df94…34e128 # DirEnt {nam=»ENGDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1d60, f03=0xffff}
0x34df94…34e128 IdxSect {
0x34df94…34e128 f00 = 0x00eb // 0x34df94 @0x0
0x34df94…34e128 f01 = 0x0014 // 0x34df96 @0x2
0x34df94…34e128 gno = [ // 0x34df98 @0x4
0x34df94…34e128 [0x00]: C0x00eb.0x0.0
0x34df94…34e128 [0x01]: C0x00eb.0x1.0
0x34df94…34e128 [0x02]: C0x00eb.0x2.0
0x34df94…34e128 [0x03]: C0x00eb.0x3.0
0x34df94…34e128 [0x04]: C0x00ec.0x0.0
0x34df94…34e128 [0x05]: C0x00ec.0x1.0
0x34df94…34e128 [0x06]: C0x00ec.0x2.0
0x34df94…34e128 [0x07]: C0x00ec.0x3.0
0x34df94…34e128 [0x08]: C0x00ed.0x0.0
0x34df94…34e128 [0x09]: C0x00ed.0x1.0
0x34df94…34e128 ]
0x34df94…34e128 }
0x34e128…34e2bc Dummy {f00=0x00eb, f01=0x0190, f02=»?F Lo CR% 6" n " p + 1 b 0 p A
0x34e2bc…34e450 Dummy {f00=0x00eb, f01=0x0190, f02=» * 4 , 8 RUBF UIF PUCY UOP bUA1 $UA2 UT1 `UT2 UQQ
0x34e450…34e5e4 Dummy {f00=0x00eb, f01=0x0190, f02=» 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 * D
0x34e5e4…34e778 Dummy {f00=0x00eb, f01=0x0190, f02=»
[…0x3…]
0x34ec34…34edc8 Dummy {f00=0x00eb, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0 0 0 $0 *0 0 6 7 = V Z >
0x34edc8…34ef5c Dummy {f00=0x00eb, f01=0x0190, f02=» * &0 0 0 !0 "0 $ %
0x34ef5c…34f0f0 Dummy {f00=0x00eb, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0
0x34f0f0…34f284 Dummy {f00=0x00eb, f01=0x0190, f02=» 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 >
0x34f284…34f418 Dummy {f00=0x00eb, f01=0x0190, f02=» ?B 0 1 1 0 W " " E E E 1 1 .0 0 0 T P P 0 ] 0 D F 0 DFT 0 jE ]P F 0 G F "F 0 ^eF ] j] P^ jB ^P C IG(BC 0 ]I0 ^6W|j]P E 0 ]I ] j] P^P JE @P @PjB ^@(BC 0 ]J E _i E j]P E 0 ]J ] j] P^@ JE0
0x34f418…34f5ac Dummy {f00=0x00eb, f01=0x0190, f02=» ( - 1 G1 G #,GD G G ID0 ] I0 D F 0 DFT 0 H H Q_e0 G 4 D F X j DFX D W j D W D j D D 0 D0 4 0 0 4 1 A 9 ;49^9b6~84:86V8 6"8n9 8"7 7 7 U B 1DSC001FORMFILE 9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99
0x34f5ac…34f740 Dummy {f00=0x00eb, f01=0x0190, f02=»-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- I/O ERROR DISK ERROR FRONT OFFICE WRONG PASSWORD PRESS CONTINUE NO TRANSACTIONS SAME KEY VALUES SAVINGS ACCOUNT
0x34f740…34f8d4 (6, 156) Dummy {f00=0x00eb, f01=0x0190, f02=»PARISON VALUE MUST BE ZERO VALUE NOT IN RANGE BALANCE NOT ZERO / INPUT DEVICE FAILURE UNSERVICEABLE REQUEST FIELD MUST BE ENTERED FILE OPEN UNSUCCESSFULL ILLEGAL END-OF-ITEM KEY OPERATOR I.D. : e NO TRANSACTIONS POSSIBLE a **
0x34f8d4…34fa68 Dummy {f00=0x00eb, f01=0x0190, f02=»LEMENTED m VOLUME-NAME ? : DSC MOUNT DAILY-STATEMENT-VOUCHER 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 ): "REQUIRE
0x34fa68…34fbfc Dummy {f00=0x00eb, f01=0x0190, f02=»MAT" SUCCESSFULLY EXECUTED MOUNT VOUCHER IN VOUCHER-PRINTER " m "MOUNT PASS-BOOK IN VOUCHER-PRINTER $ m OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** Y 9 2 CANCEL = 2 W X I/O ERROR WHILE READING OR WRITING FORMAT-FILE
0x34fbfc…34fd90 Dummy {f00=0x00eb, f01=0x0190, f02=»INAL PRINTER i "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER 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.e0e e e%e&e*e+e1e2e3e4e && "MOUNT CONTINUOUS STATIONARY ON GTP # !MOUNT CONTINUOUS STATIONARY ON LP OPERATOR I.D. : e
0x34fd90…34ff24 Dummy {f00=0x00eb, f01=0x0190, f02=»L TRANSFER * *3c =3d 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 : # /I # / # / # /
0x34ff24…3500b8 Dummy {f00=0x00eb, f01=0x0190, f02=»DDMMYY) : +e T/ 6 PUT CARD IN MSU Z DRAW CARD THROUGH BCR A Q DRAW CHEQUE THROUGH ODR # ACCOUNT OR CARD NUMBER : a OPERATOR NAME : CASH BALANCES : # / # / # / # / #PRESS CONT. TO CONFIRM, ELSE CANCEL $
0x3500b8…35024c Dummy {f00=0x00eb, f01=0x0190, f02=»ONT TO CONFIRM ELSE CANCEL GROSS TURNOVER: # /I GROSS TURNOVER: # / GROSS TURNOVER: # / GROSS TURNOVER: # / CURR. TURNOVER: # /J MLP INTEGRATED (N=0,Y=1) $ @ & SYSTEM CURRENCY CODE ? ! 8 ! @ # TEXT ? 8 @ '
0x35024c…3503e0 Dummy {f00=0x00eb, f01=0x0190, f02=» AMOUNT : / NEW BALANCE: / 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) "v (2) w LIMIT RATE 1 : (x OPERATOR :
0x3503e0…350574 (6, 157) Dummy {f00=0x00eb, f01=0x0190, f02=» PRESS CONT TO CONFIRM ELSE CANC W DEPOSIT - SAVINGS ACCOUNT: DEPOSIT - CHEQUE ACCOUNT: a - R* BOOK BALANCE: .c LINE: # e NAME : AMOUNT : . NEW BALANCE : 0 CURRENCY NAME : r CURRENCY CODE :
0x350574…350708 Dummy {f00=0x00eb, f01=0x0190, f02=» w LIMIT RATE 1 : (x CASH BALANCE : # / CASH BALANCE : # / CASH BALANCE : # / CASH BALANCE : # / CHEQUE BALANCE: # / PRESS CONT TO CONFIRM ELSE CANC CURRENCY EXCHANGE (SELLING) (BUYING) RATE:
0x350708…35089c Dummy {f00=0x00eb, f01=0x0190, f02=»=1) ? @ h TRANSFER FROM ACCOUNT : T a a + BOOK BALANCE: .c LINE: " e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 TRANSFER TO ACCOUNT : b CURRENCY NAME : 8 @ r CURRENCY CODE : 8 @ s
0x35089c…350a30 Dummy {f00=0x00eb, f01=0x0190, f02=»RATE 1 : )x TRANSFER FROM ACCOUNT : T a a , BOOK BALANCE: .c LINE: e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 TRANSFER TO ACCOUNT : b Q" OPEN SAVINGS ACCOUNT NUMBER : OPEN CHEQUE ACCO
0x350a30…350bc4 Dummy {f00=0x00eb, f01=0x0190, f02=» CREDIT LIMIT: - ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT : / OPERATOR NAME : 8 @ PASSWORD
0x350bc4…350d58 Dummy {f00=0x00eb, f01=0x0190, f02=» / ZEROISE ACCUMULATORS (N=0,Y=1) ? # @ e CLOSE SAVINGS ACCOUNT NR : CLOSE CHEQUE ACCOUNT NR : a NAME : CURRENT BALANCE : / BOOK BALANCE : CREDIT LIMIT : / PASSWORD : CARD NUMBER :
0x350d58…350eec Dummy {f00=0x00eb, f01=0x0190, f02=»: CREDIT LIMIT : / STATUS : LAST TRANS. REQ. (NO=0,YES=1)? @ e WITHDRAWAL - SAVINGS CHEQUE ACCOUNT: a - PASSWORD : + Q NAME : - CHEQUE NR. : _ * BOOK BALANCE: .c L
0x350eec…351080 Dummy {f00=0x00eb, f01=0x0190, f02=» WITHDRAWAL - CHEQUE ACC. : a - PASSWORD : ' Q NAME : - CHEQUE NR. : _ ) BOOK BALANCE: .c LINE: e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 ALPHA KEYBOARD (N=0,Y=1) ? ! @ 8 SHARED PRINTING (N
0x351080…351214 (6, 158) Dummy {f00=0x00ec, f01=0x0190, f02=» @ < TERMINAL I.D. : 2 8 TERMINAL NAME ? 5 ' TERMINAL NAME : FRONT OFFICE( 2 ) CASH DEPOSITS : # / CASH WITHDRAWALS : # / ACCUM. CHEQUES : # / ACCUM. TRANSFERS : # / CURRENCY SOLD : #
0x351214…3513a8 Dummy {f00=0x00ec, f01=0x0190, f02=» c BLOCK SAVINGS ACCOUNT 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 CO
0x3513a8…35153c Dummy {f00=0x00ec, f01=0x0190, f02=» 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 ACCOUNTS ` i Y W X ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHE
0x35153c…3516d0 Dummy {f00=0x00ec, f01=0x0190, f02=»/ STATUS : # LAST TRANSACTION : LAST PRINTED : ACCUM. DEPOSITS : - ACCUM. WITHDRAWALS : - ***** 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT ***** $PHILIPS PTS 6344 VISUAL DISPL
0x3516d0…351864 Dummy {f00=0x00ec, f01=0x0190, f02=»HARACTER SET : !#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONAL VERSION : #@[ ]`{|}~ SCREEN-SIZE : !20 LINES / 64 CHARACTERS PER LINE OPTIONAL : !24 LINES / 80 CHARACTERS
0x351864…3519f8 Dummy {f00=0x00ec, f01=0x0190, f02=»: f ACCOUNTNR : , e &$ % #2d_MV'Z`H CJ , 6I 3+"5 ! X[Q]b<U Na:7)Yc9>(OTKGDB/*?0FEP^WRSL-------------------------- 0 !0 " % + 1 7 = D K
0x3519f8…351b8c Dummy {f00=0x00ec, f01=0x0190, f02=» # : Q i " ? y " # # $ % C % h % % % * , & 0 R 4 4 < B & G h K M Q G T T V @ ` f t T i 0 C m + s
0x351b8c…351d20 Dummy {f00=0x00ec, f01=0x0190, f02=»Bl#0 T Bl#0 T V ? V 2 & V >A >A 2 $ Bl & V D 9a 9 V @ W @ ( T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V
0x351d20…351eb4 (6, 159) Dummy {f00=0x00ec, f01=0x0190, f02=» # 9 2! P T 9 / : <, #/ C _ ( Bl ' ? <, > C : 9 > : 9 8T : _ A &:K : 9 / : 9 / > : 9 / _ _. 9 / : 9 C ( B B @ C (
0x351eb4…352048 Dummy {f00=0x00ec, f01=0x0190, f02=» ( C _> W ; : 9 / : _ <, < < P Bl <H : 9 W <, < Bl &P B V C / <H "!@ V : <, < C C W < C C J9 ' W 781"&$ 39#$;< '()*+,-! < < < Bl P _D <, B Bl 'W <,
0x352048…3521dc Dummy {f00=0x00ec, f01=0x0190, f02=» P$ "! P > W B % P C + = ? ; I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : <, ;j N ;T C : C B B P C ; : "!@T V V I C B : ( ' P ; I : <, < % Y A C
0x3521dc…352370 Dummy {f00=0x00ec, f01=0x0190, f02=»T # ' ?D D^W.' #? DH V H V ;D:B " : _, Bl C : : <, < "! P > : A P C W $0 P V C = : C "!@P ") # B C B % C : A #0 T & C C : =( C C : & T ;d#
0x352370…352504 Dummy {f00=0x00ec, f01=0x0190, f02=» P>r > PR L>^ R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 > A #0 T B ' : V B B =
0x352504…352698 Dummy {f00=0x00ec, f01=0x0190, f02=»R S`R^? A A A A ? ? ? ? o> W V 7 @ "! P o: P W ?~ @?@R V Y @ pVP 9c D> Bl A Q ? W F` :aW, @?@YRP U @?@]^ V @?@]h U _n V 2 P V W< _ 2 # ;B A> V T PW V
0x352698…35282c Dummy {f00=0x00ec, f01=0x0190, f02=» PW V P D $ V 6 V % V E @ &' T 2 % 7_ 2 # PH L .PB Bl 2" &] Y $! 6P Q $ T 9BP @ _ _ W ? 6 @ &" T 7 $ V P o: W _ > ? D V & @ H?@ 'W 'W '
0x35282c…3529c0 Dummy {f00=0x00ec, f01=0x0190, f02=» L LA D V, W # DH LA E V $ W D V LA , W 6 2 D^W$ " P& Pd" # DH ;b Wv " ;d# _ [ v [ o~ Bl o Z Z : R ; Bl 6 : F _v V :B
0x3529c0…352b54 (6, 160) Dummy {f00=0x00ec, f01=0x0190, f02=» : Z L # & V V & Z 4 D : Z 4 " 2@P : [ [ Bl & @ $! P V Z V [ 6 [ Z 7 A Z 7 : ( :A ( @ &" P ! P [ :;H 2 B B ;h DR :
0x352b54…352ce8 Dummy {f00=0x00ec, f01=0x0190, f02=» # V " T & T + : * & !@P `1` P F Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `
0x352ce8…352e7c Dummy {f00=0x00ec, f01=0x0190, f02=» : * & !`P :J +_ +Q F _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b H P P PF P 0 - P0 _
0x352e7c…353010 Dummy {f00=0x00ec, f01=0x0190, f02=» 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 : V &9d! + P( & T 9d! T 7 V Y " WJ Q
0x353010…3531a4 Dummy {f00=0x00ec, f01=0x0190, f02=» &V : V S W P 9 S W _ V P W T V E + : & 6 V [ [ [ [ $ [ [ >h [ [ M(GT M(GT M(D Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P M(D V H )_
0x3531a4…353338 Dummy {f00=0x00ec, f01=0x0190, f02=»:d" 5 : 0 V !0 V " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 V [ [ [ [ $ [ [ &! P L M(GT
0x353338…3534cc Dummy {f00=0x00ec, f01=0x0190, f02=» [ M(M [ Q@ [ M(D { R [ _ M(D M(J Z ! Z $ Z %_N [ Q* M(D M(F R [ Z { M(D z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x3534cc…353660 Dummy {f00=0x00ec, f01=0x0190, f02=»O M 6 N K K K K V K : Bl M M M A V O N OF V Z P 2 " T W "@T '?W "? HMb" K :e J J " J _Z Z O [ Z P o: [ V V 7_
0x353660…3537f4 (6, 161) Dummy {f00=0x00ec, f01=0x0190, f02=» v I < : J Qx : Pn 4 ! Th_ PX 4 WT K O WJ O W +_ O O K W. _& X ;RW X & ;N J K : V : J T V 1 : + Bl [ [ < !AAP !TTT W !**T * [ R !FFP !EET W IQ 6
0x3537f4…353988 Dummy {f00=0x00ec, f01=0x0190, f02=» V 1 Pp !00T ; O _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? V Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W Pp 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 O Q : ! P
0x353988…353b1c Dummy {f00=0x00ec, f01=0x0190, f02=»_ &X _ : V : : : Tl N : { : TT$0T S Pb 9 _ TT$0T [ TT$0T Z : R$ P $ 1T Y TdW 5 _& : TT$0TH $ R W R # P W ) V E Tl$0T
0x353b1c…353cb0 Dummy {f00=0x00ec, f01=0x0190, f02=»R _. : Gr : Bl Bl#03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : S A #03 T $_X S _^ W V T p *1 TID ADDR OP CR LVL MODIFIED OPERAND
0x353cb0…353e44 Dummy {f00=0x00ec, f01=0x0190, f02=»' $ * AT T( T| ( AT AT ( T p AT ) Y V AT T V V Y . 1 V Y v Y AT : T W T 2 T Y @ &# T R Y Bl Y & Y T Q T AT W> T T V D ! )0 1 @ &# T
0x353e44…353fd8 Dummy {f00=0x00ec, f01=0x0190, f02=»WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W W W T ** AT AT ER AT R AT T Y Wp R 4 Y 4 $ AT T U 4 - _ V T @T [8 ?~ ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD A
0x353fd8…35416c Dummy {f00=0x00ec, f01=0x0190, f02=»FLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT
0x35416c…354300 Dummy {f00=0x00ec, f01=0x0190, f02=»KIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W 4 6"<a R 9a V Z& : V @Z$P ( _ @ P @ Pj Pf [ V $ $T$ D BR V T D P T D @PL E @W . @ &P$ Z ( $
0x354300…354494 (6, 162) Dummy {f00=0x00ed, f01=0x0190, f02=» R W Z& TB( ^ : TB( ^ : A A E AZ$ V A @ "# P ( R4 TB( ^ ( AZ$ @ V P ( R W :
0x354494…354628 Dummy {f00=0x00ed, f01=0x0190, f02=»KIA STACK LEVELS DISC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W 4 6"<a R 9a V : V @Z$P ( _ @ P @ P P V $ $T D R V T D P T D P E W . @ P
0x354628…3547bc Dummy {f00=0x00ed, f01=0x0190, f02=» n ( ( n ( ] m D "! A] n m @ @ @] P ( ] V m R ] V W Z T] _" = n T ] m m m W m , n 9a m @] P n m m n m @ P m @ m A A] o. A] "V # (
0x3547bc…354950 Dummy {f00=0x00ed, f01=0x0190, f02=»g Rg Vg. Kh m n _ _ m _ NO! A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ i(P A_ A_ k ` ` ,`. +` -` ;` :` (`Z .` ] m X " , A_ L A_ L @ A_ A_ _T i( X ,T i( X ) A_ A_
0x354950…354ae4 Dummy {f00=0x00ed, f01=0x0190, f02=»_ T " @_ @_ P A_ A_ " _ @_ m ^ T @] A_ @] A_ @] A_ @^ A_ @_ Al @_ A] @_ A^ @_ A] P lf W @_ T @_ Z d @l A] n c W m W 0 m Al m W m Al Al @l m W n @] A_ @] A_ _x ] A] PZ @_ & n 0
0x354ae4…354c78 Dummy {f00=0x00ed, f01=0x0190, f02=» m W T @R n m W m m m B "T" @] A_ @] A_ @] A_ @] A_ W @_ T @_ W @_ @_ @_ R d >a Al A] @_ A] m @_ A] P lf W @_ T @_ Z d Al @o. ^ @l A] m m m k m m lV m Am ^ @_ R V
0x354c78…354e0c Dummy {f00=0x00ed, f01=0x0190, f02=» Q P " ^ T @] A_ @] A_ @] A_ @] A_ @_ Al @_ A] @_ A] @_ A] P lf W @_ T d @_ V @l A] 0 m m _ P _ @_ P @_ 1 ^ m m Al @l m n @] A_ @] A_ _ @] P @_ V @ ( _ V " @_ T @ k$TP @_
0x354e0c…354fa0 Dummy {f00=0x00ed, f01=0x0190, f02=»RX Al *9l! P2 a| e &9d! ) e W P$ &9d e & e _ e & e ^ _ Ae Ae m @o.Z m " ! U 0 Ae U e _ m "P` @_ @_ T @ i PF R % < < n ! m m _ T @_ P @_ ! 5 = ^ _ _
0x354fa0…355134 (6, 163) Dummy {f00=0x00ed, f01=0x0190, f02=» A] _ @ hJ _ @_ @_ T I @_:P hx @ h _ A] _ A @_ A ^ @_ ! A?@ ^ Pd @_ @_ PL @_ P n$ n$ k g R @_ T @ g V k (Rt ) I I @ I B A &W P g RV )W ( i A & ^ ( , Ag Ag :B Ag Q (P _ H B @_ T @ H
0x355134…3552c8 Dummy {f00=0x00ed, f01=0x0190, f02=» [ ( R ( @_ V @ H B W # + C " [ B Ah Ah :B Ah _ (P _ B @_ @_ @_ P hJ _ @_ V @ Q B 1 @_ Q Q @ A[ " [ ( R$ ( @_ V @ H B ) I B " _ $ % " n$ # C C C C *T
0x3552c8…35545c Dummy {f00=0x00ed, f01=0x0190, f02=» & W T C B B B B B " _ Aj Aj Aj Aj Aj Aj Aj k$R Q ! 9D# 9hP Q " ;B 2 Pl L ?b j P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL k k W C
0x35545c…3555f0 Dummy {f00=0x00ed, f01=0x0190, f02=» W* @] " P ( _ $ C " :T n$ n$ n$ " " Ak A_ .T @] P m P " A_ " m X X _ " , , Ak Ak :B Ak Q (P _ # # H Ak " Am Am 4 m m 4 @m IlV T Am Al Al T Am T lf @_
0x3555f0…355784 Dummy {f00=0x00ed, f01=0x0190, f02=»_ @l " :S :X :Y :Z n$ $P WH n$ Am Am 0R 9Q 0 Am :B n$_" Am " n$ Amn 0R$ 9U AR FQ 0:D Amn n$_* 'T n$:H_ Amn " Am Am 4 m m T Am Am " , m "! R _U .
0x355784…355918 Dummy {f00=0x00ed, f01=0x0190, f02=»T n| AnB nF n ( @n Anz " n| nr n ( A( np( Anz " An n @n n P An n ( n An " !n 1n n Q (P _ # # H A " A A 4 4 @ I T A A A T A T @
0x355918…355aac Dummy {f00=0x00ed, f01=0x0190, f02=» F m ( C ( a ( r z t J F D ( ( p 2 8 2 2 z 2 2 2 p < f < & F f 2 J F D F F " F & F * R P * P 0 P L P ] z P r P P p J F D P Z E Z _ Z Z Z d " d / d 4
0x355aac…355c40 Dummy {f00=0x00ed, f01=0x0190, f02=» $ $ @ > j J F D W b > { > 4 E * I * V t ( J F D , 8 D d * 6 B b v J F D H N H R V , , 2 , S 6 . 6 K 6 h 6
0x355c40…355dd4 (6, 164) Opaque[0x194]
0x355dd4…355f68 # DirEnt {nam=»FRADEF«, typ=»SC«, f00=0xffff, f01=0xffff, f02=0x1db0, f03=0xffff}
0x355dd4…355f68 IdxSect {
0x355dd4…355f68 f00 = 0x00ed // 0x355dd4 @0x0
0x355dd4…355f68 f01 = 0x0052 // 0x355dd6 @0x2
0x355dd4…355f68 gno = [ // 0x355dd8 @0x4
0x355dd4…355f68 [0x00]: C0x00ed.0x2.0
0x355dd4…355f68 [0x01]: C0x00ed.0x3.0
0x355dd4…355f68 [0x02]: C0x00ee.0x0.0
0x355dd4…355f68 [0x03]: C0x00ee.0x1.0
0x355dd4…355f68 [0x04]: C0x00ee.0x2.0
0x355dd4…355f68 [0x05]: C0x00ee.0x3.0
0x355dd4…355f68 [0x06]: C0x00ef.0x0.0
0x355dd4…355f68 [0x07]: C0x00ef.0x1.0
0x355dd4…355f68 [0x08]: C0x00ef.0x2.0
0x355dd4…355f68 [0x09]: C0x00ef.0x3.0
0x355dd4…355f68 [0x0a]: C0x00f0.0x0.0
0x355dd4…355f68 [0x0b]: C0x00f0.0x1.0
0x355dd4…355f68 [0x0c]: C0x00f0.0x2.0
0x355dd4…355f68 [0x0d]: C0x00f0.0x3.0
0x355dd4…355f68 [0x0e]: C0x00f1.0x0.0
0x355dd4…355f68 [0x0f]: C0x00f1.0x1.0
0x355dd4…355f68 [0x10]: C0x00f1.0x2.0
0x355dd4…355f68 [0x11]: C0x00f1.0x3.0
0x355dd4…355f68 [0x12]: C0x00f2.0x0.0
0x355dd4…355f68 [0x13]: C0x00f2.0x1.0
0x355dd4…355f68 [0x14]: C0x00f2.0x2.0
0x355dd4…355f68 [0x15]: C0x00f2.0x3.0
0x355dd4…355f68 [0x16]: C0x00f3.0x0.0
0x355dd4…355f68 [0x17]: C0x00f3.0x1.0
0x355dd4…355f68 [0x18]: C0x00f3.0x2.0
0x355dd4…355f68 [0x19]: C0x00f3.0x3.0
0x355dd4…355f68 [0x1a]: C0x00f4.0x0.0
0x355dd4…355f68 [0x1b]: C0x00f4.0x1.0
0x355dd4…355f68 [0x1c]: C0x00f4.0x2.0
0x355dd4…355f68 [0x1d]: C0x00f4.0x3.0
0x355dd4…355f68 [0x1e]: C0x00f5.0x0.0
0x355dd4…355f68 [0x1f]: C0x00f5.0x1.0
0x355dd4…355f68 [0x20]: C0x00f5.0x2.0
0x355dd4…355f68 [0x21]: C0x00f5.0x3.0
0x355dd4…355f68 [0x22]: C0x00f6.0x0.0
0x355dd4…355f68 [0x23]: C0x00f6.0x1.0
0x355dd4…355f68 [0x24]: C0x00f6.0x2.0
0x355dd4…355f68 [0x25]: C0x00f6.0x3.0
0x355dd4…355f68 [0x26]: C0x00f7.0x0.0
0x355dd4…355f68 [0x27]: C0x00f7.0x1.0
0x355dd4…355f68 [0x28]: C0x00f7.0x2.0
0x355dd4…355f68 ]
0x355dd4…355f68 }
0x355f68…3560fc Dummy {f00=0x00ed, 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
0x3560fc…356290 Dummy {f00=0x00ed, 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
0x356290…356424 Dummy {f00=0x00ed, 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,FMTDUM, C , P FMTDUM,F
0x356424…3565b8 Dummy {f00=0x00ed, f01=0x0190, f02=»FMTDUM,FMTDUM,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**********************************
0x3565b8…35674c Dummy {f00=0x00ed, 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
0x35674c…3568e0 Dummy {f00=0x00ed, f01=0x0190, f02=»**** L L P* * L P* DEMONSTRATE VIDEO SCREEN * L P* * L P************
0x3568e0…356a74 (6, 165) Dummy {f00=0x00ed, f01=0x0190, f02=»******' z T P FTEXT 'DEMONSTRATION DE L' T P FTEXT X'27' h T P FTEXT 'ECRAN VIDEO PHILIPS PTS 6344'
0x356a74…356c08 Dummy {f00=0x00ed, f01=0x0190, f02=»PTS 6344' t P FNL < P FNL P P FHIGH P FTAB 16 j P FUL z T P FTEXT 'ECRAN VIDEO PHILIPS PTS 6344' P FNL P FNL P FLOW
0x356c08…356d9c Dummy {f00=0x00ed, f01=0x0190, f02=»NUL FNL FNL T P FTEXT 'CARACTERES DISPONIBLES :' $ P FNL | P FTAB 10 P FHIGH , P FTEXT X'2021232425262728292A2B2C2D2E2F' . P FTEXT X'303132333435363738393A3B3C3D3E3F' . P
0x356d9c…356f30 Dummy {f00=0x00ed, f01=0x0190, f02=»758595A5B5C5D5E5F' l . P FTEXT X'606162636465666768696A6B6C6D6E6F' . P FTEXT X'707172737475767778797A7B7C7D7E7F' L P FNL ~ P FLOW T P FTEXT 'SOUS-ENSEMBLE SPECIFIQUE A LA FRANCE :' P FHIGH " P F
0x356f30…3570c4 Dummy {f00=0x00ed, f01=0x0190, f02=» T T P FTEXT X'27' T P FTEXT 'ECRAN : ' t P FHIGH T P FTEXT '20 LIGNES / 64 CARACTERES PAR
0x3570c4…357258 Dummy {f00=0x00ed, f01=0x0190, f02=» d P FHIGH , T P FTEXT '24 LIGNES / 80 CARACTERES PAR LIGNE' B P FLOW P FNL P FNL T P FTAB 2
0x357258…3573ec Dummy {f00=0x00ed, f01=0x0190, f02=» FKI 16,MAXL=15,ALPHA,NEOI P FCOPY ACNAME & P FTAB 32 F T P FTEXT 'ADRESSE :' b * P FKI 44,MAXL=15,ALPHA,NEOI P FCOPY ACADDRES
0x3573ec…357580 Dummy {f00=0x00ed, f01=0x0190, f02=» v 0 P FKI 16,MINL=4,MAXL=7,ALPHA,NEOI > P FCOPY WCSTRG12 r P FTAB 32 T P FTEXT 'VILLE :' * P
0x357580…357714 (6, 166) Dummy {f00=0x00ee, f01=0x0190, f02=» b T P FTEXT 'NR D' * T P FTEXT X'27' T P FTEXT 'AGENCE :'
0x357714…3578a8 Dummy {f00=0x00ee, f01=0x0190, f02=»CPTE:' P FKI 44,MAXL=6,ME,NEOI J P FMEL 'ZZZZZZ',IDNR1 h P FMEND L P************************************************************************ L P*
0x3578a8…357a3c Dummy {f00=0x00ee, f01=0x0190, f02=» * L P************************************************************************ B PFMT013 FRMT P FSL T P FTEXT 'CLAVIER ALPHA (N=0,O=1) ?' 2
0x357a3c…357bd0 Dummy {f00=0x00ee, f01=0x0190, f02=» f 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 . P FMEL '9',RDSHRPRT d P FNL ~ & P FTEXT 'TEP(=0) TTP(=1) GTP(=2) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=2 P FMEL '9',RDPRTTYP P FNL
0x357bd0…357d64 Dummy {f00=0x00ee, f01=0x0190, f02=» P FTEXT 'ODR (N=0,O=1) ?' 2 P FKI 33,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 $ P FMEL '9',RDODR Z P FNL r T P FTEXT 'IDENT. TERMINAL:' ~ P FTAB 31 P FMEL '999',NDTRMNR P FNL
0x357d64…357ef8 Dummy {f00=0x00ee, f01=0x0190, f02=»L=1,MAXL=19,ALPHA,NEOI P FCOPY RCTRMNME J P FB F01390 b PF01310 t T P FTEXT 'NOM DU TERMINAL:' P FTAB 22 T P FTEXT 'GUICHET('
0x357ef8…35808c Dummy {f00=0x00ee, f01=0x0190, f02=»******************************************************************** L P* * L L P* SYSTEM START - PART 2 * L P*
0x35808c…358220 Dummy {f00=0x00ee, f01=0x0190, f02=»14 FRMT SYSTEM START - PART 2 L P FSL ***************************** & 0 P FTEXT 'MLP INTEGRATED (N=0,Y=1) ' v > P FKI 36,ME,MINL=1,MAXL=1,NUM,NEOI,NCLR,APPL=1 " P FMEL '9',YDMLPIN
0x358220…3583b4 (6, 167) Dummy {f00=0x00ee, f01=0x018e, f02=» X P FBZ RDALFKB,F01410 8 P FKI 33,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR < PF01410 x P FCOPY YCCCY(KW4) P FNL P FTEXT 'TEXT ? ' T P FTAB 12
0x3583b4…358548 Dummy {f00=0x00ee, f01=0x0190, f02=» PF01420 P FCOPY YCTEXT P FNL 2 & P FTEXT 'TIME (HHMM) ? ' F T P FKI 22,ME,MINL=4,MAXL=4,NUM,NEOI,REWRT p T P FMEL 'ZZE:ZZ',NDTIME
0x358548…3586dc Dummy {f00=0x00ee, f01=0x018e, f02=»PL=32,REWRT ` ( P FMEL 'ZZE-ZZE-ZZ',NDDATE P FMEND @ L P************************************************************************ V L P* * L P* CURRENCY UPDATE
0x3586dc…358870 Dummy {f00=0x00ee, f01=0x0190, f02=» F L P************************************************************************ ( PFMT015 FRMT CURRENCY INITIALISATION X L P FSL ***************************** T P FTEXT 'NOM DE LA DEVISE:'
0x358870…358a04 Dummy {f00=0x00ee, f01=0x0190, f02=» H PF01510 P FCOPY CCCCYNME P FNL @ T P FTEXT 'CODE DEVISE :' T P FBZ RDALFKB,F01520 8 P FKI 19,ME,MINL=1,MAXL=4,ALPHA,NEOI,NCLR PF015
0x358a04…358b98 Dummy {f00=0x00ee, f01=0x0190, f02=»MAXL=5,NUM,NEOI,NCLR,APPL=21,REWRT r $ P FMEL 'ZZZZ9',CDRELAT * P FNL R T P FTEXT 'COURS D' f T P FTEXT X'27'
0x358b98…358d2c Dummy {f00=0x00ee, f01=0x0190, f02=»=6,NUM,NEOI,NCLR,REWRT,APPL=28 n & P FMEL 'ZZZ9,99-',CDBUY1 & P FTAB 27 P P FTEXT '(2)' l D P FKI 30,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=23 P FMEL 'ZZZZ,ZZ',CDBUY2 P FNL T P FTE
0x358d2c…358ec0 Dummy {f00=0x00ee, f01=0x018e, f02=»EWRT,APPL=29 & P FMEL 'ZZZ9,99-',CDSEL1 P FTAB 27 > P FTEXT '(2)' Z D P FKI 30,ME,MINL=1,MAXL=6,NUM,NEOI,NCLR,REWRT,APPL=24 x P FMEL 'ZZZZ,ZZ',CDSEL2 P FNL T P FTEXT 'COURS LIMITE 1
0x358ec0…359054 (6, 168) Dummy {f00=0x00ee, f01=0x0190, f02=» P FMEL 'ZZZZZZ,ZZ',CDLIMIT P FMEND & L P************************************************************************ < L P* * L P* GET OPERATOR IDENTIFICATION (DBUOPR)
0x359054…3591e8 Dummy {f00=0x00ee, f01=0x0190, f02=»**************************************************** | L PFMT016 FRMT OPERATOR IDENTIFICATION < L P FSL T P FTEXT 'IDENT. OPERATEUR :'
0x3591e8…35937c Dummy {f00=0x00ee, f01=0x0190, f02=» d L P FMEND " L P************************************************************************ r L P*
0x35937c…359510 Dummy {f00=0x00ee, f01=0x0190, f02=» * b L P************************************************************************ ! " ( PFMT017 FRMT OPERATOR SPECIFICATION ! r L P FSL ! T P FTEXT 'NOM OPERATEUR :'
0x359510…3596a4 Dummy {f00=0x00ee, f01=0x0190, f02=» ! b PF01710 " ( L P FCOPY OCNAME " 6 L P FNL " T P FTEXT 'MOT DE PASSE :'
0x3596a4…359838 Dummy {f00=0x00ee, f01=0x018e, f02=»S " L P FNL # D T P FTEXT 'LANGUE :' # R P FKI 17,ME,MINL=1,MAXL=1,NCL
0x359838…3599cc Dummy {f00=0x00ee, f01=0x0190, f02=» L P FNL $ L P FNL $ T P FNL $ L P FNL $ L P FNL
0x3599cc…359b60 Dummy {f00=0x00ee, f01=0x0190, f02=» $ P P FTAB 20 % L P FCOPY YCCCY(KW4) % ( P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT % x R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x359b60…359cf4 (6, 169) Dummy {f00=0x00ee, f01=0x0190, f02=»(KW1) % P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT & B R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) & L P FNL
0x359cf4…359e88 Dummy {f00=0x00ee, f01=0x0190, f02=» & L P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT ' R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) ' ` L P FNL ' P F
0x359e88…35a01c Dummy {f00=0x00ee, f01=0x0190, f02=»WRT ' f R P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) ( * L P FNL ( T P FTEXT 'REMISE A ZERO (NON=0,OUI=1) ?'
0x35a01c…35a1b0 Dummy {f00=0x00ee, f01=0x0190, f02=» ( ~ L P FMEND ) @ L P************************************************************************ ) L P*
0x35a1b0…35a344 Dummy {f00=0x00ee, f01=0x0190, f02=» * ) L P************************************************************************ * @ L PFMT018 FRMT * L P FSL
0x35a344…35a4d8 Dummy {f00=0x00ee, f01=0x0190, f02=» * T P FCOPY YCCCY(KW4) + P P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT + L P FMEL 'ZZZZZ
0x35a4d8…35a66c Dummy {f00=0x00ee, f01=0x0190, f02=» + L T P FTEXT 'RETRAITS CAISSE :' , T P FTAB 20 , d T P FCOPY YCCCY(KW4)
0x35a66c…35a800 Dummy {f00=0x00ee, f01=0x0190, f02=» , h L P FNL - ( T P FTEXT 'TOTAL CHEQUES :' - x T P FTAB 20
0x35a800…35a994 (6, 170) Dummy {f00=0x00ef, f01=0x0190, f02=»1,MAXL=11,NCLR,NEOI,NUM,REWRT - L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) . D L P FNL . T P FTEXT 'TOTAL VIREMENTS :'
0x35a994…35ab28 Dummy {f00=0x00ef, f01=0x0190, f02=» T P FCOPY YCCCY(KW4) / P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT / L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW2) / L P FNL
0x35ab28…35acbc Dummy {f00=0x00ef, f01=0x0190, f02=» / P L P FNL 0 L P FNL 0 ` T P FTEXT 'DEVISE VENDUE : ' 0 L P
0x35acbc…35ae50 Dummy {f00=0x00ef, f01=0x0190, f02=» 0 X L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW4) 1 L P FNL 1 l T P FTEXT 'DEVISE ACHETEE : '
0x35ae50…35afe4 Dummy {f00=0x00ef, f01=0x0190, f02=»T 1 d L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW5) 2 ( L P FNL 2 x T P FTEXT 'TOTAL DEVISE : '
0x35afe4…35b178 Dummy {f00=0x00ef, f01=0x0190, f02=»EOI,NUM,REWRT 2 p L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) 3 4 L P FNL 3 L P FTAB 20
0x35b178…35b30c Dummy {f00=0x00ef, f01=0x0190, f02=»LR,NEOI,NUM,REWRT 3 t L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) 4 8 L P FNL 4 L P FTAB 20
0x35b30c…35b4a0 Dummy {f00=0x00ef, f01=0x0190, f02=»1,NCLR,NEOI,NUM,REWRT 4 x L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW3) 5 < L P FMEND 5 L P********************************************
0x35b4a0…35b634 (6, 171) Dummy {f00=0x00ef, f01=0x0190, f02=»ED BY CCSTTT * 5 | L P* * 6 < L P************************************************************************ 6 L PFMT019 FRMT
0x35b634…35b7c8 Dummy {f00=0x00ef, f01=0x0190, f02=» 6 | L P FNL 7 < T P FTEXT 'TERMINAL :' 7 T P FTAB 13
0x35b7c8…35b95c Dummy {f00=0x00ef, f01=0x0190, f02=» FTEXT 'GUICHET(' 7 L P FMEL '999',NDTRMNR 8 X P FTEXT ')' 8 P FB F01930 8 PF01920 8 T P FTAB 34
0x35b95c…35baf0 Dummy {f00=0x00ef, f01=0x0190, f02=» 8 L P FNL 9 T P FTEXT 'HEURE (HHMM) : ' 9 X P FTAB 20 9 T P FMEL 'ZZE:ZZ',NDTIME
0x35baf0…35bc84 Dummy {f00=0x00ef, f01=0x0190, f02=»7,ME,MINL=6,MAXL=6,NUM,NEOI,REWRT,APPL=7 9 L P FMEL 'ZZE-ZZE-ZZ',IDNR1 : J L P FMEND : L P******************************
0x35bc84…35be18 Dummy {f00=0x00ef, f01=0x0190, f02=»ATOR START SCREEN, USED BY BCSTTO * : L P* * ; J L P************************************************************************ ; L PFMT021 FRMT
0x35be18…35bfac Dummy {f00=0x00ef, f01=0x018e, f02=» 'IDENT. OPERATEUR : ' ; F P FKI 21,ME,MINL=5,MAXL=5,NUM,NEOI,APPL=8 < R J P FMEL 'ZZZZZ',IDNR1 < L P FNL
0x35bfac…35c140 Dummy {f00=0x00ef, f01=0x0190, f02=» L P FKI 21,ME,MINL=1,MAXL=6,ALPHA,NEOI,APPL=9 = N P FCOPY ICTEXT1 = T L P FNL = T P FTEXT 'LANGUE
0x35c140…35c2d4 (6, 172) Dummy {f00=0x00ef, f01=0x0190, f02=»OPRLGG = L P FMEND > D L P************************************************************************ > L P*
0x35c2d4…35c468 Dummy {f00=0x00ef, f01=0x0190, f02=» * > L P************************************************************************ ? D L PFMT022 FRMT ? L P FSL
0x35c468…35c5fc Dummy {f00=0x00ef, f01=0x0190, f02=»XT X'27' ? T P FTEXT 'OPERATEUR:' @ T L P FCOPY OCNAME @ L P FNL
0x35c5fc…35c790 Dummy {f00=0x00ef, f01=0x0190, f02=» @ L P FTAB 20 A L P FCOPY YCCCY(KW4) A $ P FTAB 24 A t L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) A P FNL A L P FTAB 20
0x35c790…35c924 Dummy {f00=0x00ef, f01=0x0190, f02=» FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) A P FNL B P L P FTAB 20 B L P FCOPY YCCCY(KW2) B P FTAB 24 B
0x35c924…35cab8 Dummy {f00=0x00ef, f01=0x0190, f02=» B h L P FCOPY YCCCY(KW3) C ( P FTAB 24 C x L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) C P FNL C T P FTEXT 'VALIDER OU ANNULER'
0x35cab8…35cc4c Dummy {f00=0x00ef, f01=0x0190, f02=» C b L P************************************************************************ D " L P* * D r L P* GET ACCOUNT NUMBER (CEGACT)
0x35cc4c…35cde0 Dummy {f00=0x00ef, f01=0x0190, f02=»************************** D b L PFMT027 FRMT E " L P FSL E r L P FBF SBCARD,F27200
0x35cde0…35cf74 (6, 173) Dummy {f00=0x00ef, f01=0x0190, f02=»7999 E PF27100 F L P* * F L P* BADGE CARD READER INPUT * F j L P* * F T
0x35cf74…35d108 Dummy {f00=0x00ef, f01=0x0190, f02=» F b L PF27200 G " L P FBF SBCHEQUE,F27300 G r L P*
0x35d108…35d29c Dummy {f00=0x00ef, f01=0x0190, f02=» * G b T P FTEXT 'INTRODUIRE LE CHEQUE' H " L P FB F27999 H z L P*
0x35d29c…35d430 Dummy {f00=0x00ef, f01=0x0190, f02=» * H j L PF27300 I * T P FTEXT 'NR DE CPTE OU DU BADGE : ' I z T P FKI 27,ME,MINL=4,MAXL=6,NUM,NEOI,APPL=22,REWRT
0x35d430…35d5c4 Dummy {f00=0x00ef, f01=0x0190, f02=» I L P************************************************************************ J H L P* * J L P* ENTER REQUIRED FUNCTION (BESEL
0x35d5c4…35d758 Dummy {f00=0x00ef, f01=0x0190, f02=»**************************************************************** J PMSG030 FRMT K H P FSL K P FLOW K h T P FTEXT 'CHOISISSEZ LA FONCTION : ' K v P FMEND K L P********************************************
0x35d758…35d8ec Dummy {f00=0x00ef, f01=0x0190, f02=»CT) * K | L P* * L < L P************************************************************************ L PFMT039 FRMT OPEN ACCOUNT L L P FSL
0x35d8ec…35da80 Dummy {f00=0x00ef, f01=0x0190, f02=» L N T P FTEXT 'OUVERTURE CPTE D' M T P FTEXT X'27' M f T P FTEXT 'EPARGNE NR.:'
0x35da80…35dc14 (6, 174) Dummy {f00=0x00f0, f01=0x0190, f02=» M f T P FTEXT 'OUVERTURE CPTE COURANT NR. : ' N & L PF03920 N ~ L P FMEL '999999',IDACTNR1
0x35dc14…35dda8 Dummy {f00=0x00f0, f01=0x0190, f02=» N n T P FKI 15,MINL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 O 6 L P FCOPY ACNAME O L P FNL
0x35dda8…35df3c Dummy {f00=0x00f0, f01=0x0190, f02=»NL=1,MAXL=20,ALPHA,ME,NEOI,APPL=18 O L P FCOPY ACADDRES P N L P FNL P T P FTEXT 'VILLE : '
0x35df3c…35e0d0 Dummy {f00=0x00f0, f01=0x0190, f02=» P F L P FCOPY ACTOWN Q L P FNL Q ^ L P FBT SBCHEQUE,F03930 Q T P FTEXT 'M
0x35e0d0…35e264 Dummy {f00=0x00f0, f01=0x018e, f02=» Q V L P FCOPY ACPASS R L P FB F03940 R n L PF03930 R
0x35e264…35e3f8 Dummy {f00=0x00f0, f01=0x0190, f02=» R f L P FMEL 'ZZZZ',ADCARDNR S T P FTEXT ' DECOUV. AUT.:' S X T P FKI 25,MAXL=11,ME,NCLR,NUM,NEOI,REWRT S T P
0x35e3f8…35e58c Dummy {f00=0x00f0, f01=0x0190, f02=»********************************************************** S P* T B L P* CLOSE ACCOUNT (DGCACT) * T L P* T L P************************************************************************ T 8 PFMT040 FRMT
0x35e58c…35e720 Dummy {f00=0x00f0, f01=0x0190, f02=» T p T P FTEXT X'27' U 8 T P FTEXT 'EPARGNE :' U P FB F04020 U
0x35e720…35e8b4 (6, 175) Dummy {f00=0x00f0, f01=0x0190, f02=» U ~ ( P FMEL '999999',IDACTNR1 V F P FNL V r T P FTEXT 'NOM : ' V P FCOPY ACNAME V P
0x35e8b4…35ea48 Dummy {f00=0x00f0, f01=0x0190, f02=» V l , P FMEL 'ZZZZZZZZ9,99-',ADBAL W 4 P FNL W d & P FBT SBCHQACT,F04030 W x T P FTEXT 'SOLDE LIVRET : ' W P FB
0x35ea48…35ebdc Dummy {f00=0x00f0, f01=0x0190, f02=» FTAB 24 W 0 P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK X X P FNL X & P FBT SBCHQACT,F04050 X T P FTEXT 'MOT DE PASSE : '
0x35ebdc…35ed70 Dummy {f00=0x00f0, f01=0x0190, f02=»ASS X z P FB F04060 Y PF04050 Y . T P FTEXT 'NUMERO DE BADGE : ' Y < T P FTAB 24 Y & P FMEL '9999',AD
0x35ed70…35ef04 Dummy {f00=0x00f0, f01=0x0190, f02=» * Y L P* DEPOSIT (DLDEP) * Z J L P* * Z L P******************************
0x35ef04…35f098 Dummy {f00=0x00f0, f01=0x0190, f02=» Z L P FBT SBCHQACT,F04110 [ J T P FTEXT 'DEPOT / COMPTE D' [ T P FTEXT X'27'
0x35f098…35f22c Dummy {f00=0x00f0, f01=0x0190, f02=» [ J L P FB F04120 L PF04110 b R P FTEXT 'DEPOT / COMPTE COURANT: ' L P
0x35f22c…35f3c0 Dummy {f00=0x00f0, f01=0x0190, f02=» X L P FMEL '999999',IDACTNR1 ] L P FNL ] h L P FBT SBCHQACT,F04130 ] L P
0x35f3c0…35f554 (6, 176) Dummy {f00=0x00f0, f01=0x0190, f02=» * ] X L P* SAVINGS ACCOUNT WITH BOOK * ^ L P* * ^ h T P FTEXT 'SOLDE LIVRET:'
0x35f554…35f6e8 Dummy {f00=0x00f0, f01=0x0190, f02=» ^ d L P FTAB 29 _ $ T P FTEXT 'LIGNE:' _ t J P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11
0x35f6e8…35f87c Dummy {f00=0x00f0, f01=0x0190, f02=» _ j L P* * ` * L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * ` z L P*
0x35f87c…35fa10 Dummy {f00=0x00f0, f01=0x0190, f02=» ` j L P FTAB 16 a 2 L P FCOPY ACNAME a L PF04140
0x35fa10…35fba4 Dummy {f00=0x00f0, f01=0x018e, f02=»,MINL=1,MAXL=9,NUM,NEOI,APPL=12,REWRT a L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT b J L P FNL b T P FTEXT 'NOUVEAU SOLDE :'
0x35fba4…35fd38 Dummy {f00=0x00f0, f01=0x0190, f02=» P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL c L P FMEND c X L P************************************************************************ c L P*
0x35fd38…35fecc Dummy {f00=0x00f0, f01=0x0190, f02=» c H L P* * d L P************************************************************************ d X L PFMT042 FRMT d L P FSL
0x35fecc…360060 Dummy {f00=0x00f0, f01=0x0190, f02=» d H P FBT SBCHQACT,F04210 e P FTEXT X'4427' e , T P FTEXT 'EPARGNE:' e B L P FB F04220 e L PF04210
0x360060…3601f4 (6, 177) Dummy {f00=0x00f0, f01=0x0190, f02=» e V L P FTAB 31 f L P FMEL '999999',IDACTNR1 f f L P FNL f L P F
0x3601f4…360388 Dummy {f00=0x00f0, f01=0x0190, f02=» * f V L P* SAVINGS ACCOUNT * g L P* * g f L P FTAB 12 g T P F
0x360388…36051c Dummy {f00=0x00f0, f01=0x0190, f02=» g ^ L P FCOPY ACPASS h L P FB F04250 h n L PF04230 h
0x36051c…3606b0 Dummy {f00=0x00f0, f01=0x0190, f02=» * h ^ L P* CHEQUE ACCOUNT, NO ODR * i L P* * i n T P FTEXT 'NOM :'
0x3606b0…360844 Dummy {f00=0x00f0, f01=0x0190, f02=» i f L P FB F04250 j & L P* * j v L P* CHEQUE ACCOUNT, CHEQUE INPUT
0x360844…3609d8 Dummy {f00=0x00f0, f01=0x0190, f02=» j f L P FTAB 12 k & L P FTEXT '- CHEQUE NR. :' k v L P FTAB 31
0x3609d8…360b6c Dummy {f00=0x00f0, f01=0x0190, f02=» k f L P FNL l & L P FBT SBCHQACT,F04260 l v L P*
0x360b6c…360d00 Dummy {f00=0x00f0, f01=0x0190, f02=» * l f T P FTEXT 'SOLDE LIVRET :' m & L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT m ~ L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1
0x360d00…360e94 (6, 178) Dummy {f00=0x00f1, f01=0x0190, f02=» m n L P FKI 35,ME,MINL=1,MAXL=2,NUM,NEOI,APPL=11 n 6 L P FMEL 'ZZ',IDNR1 n L P FB F04270
0x360e94…361028 Dummy {f00=0x00f1, f01=0x0190, f02=» * n v L P* * o 6 L PF04260 o T P FTEXT 'DECOUV. AUT. :'
0x361028…3611bc Dummy {f00=0x00f1, f01=0x0190, f02=»4270 o P FNL p N T P FTEXT 'MONTANT :' p Z L P FKI 24,ME,MINL=1,MAXL=9,NUM,NEOI,APPL=14,REWRT p L P FMEL
0x3611bc…361350 Dummy {f00=0x00f1, f01=0x0190, f02=» p R T P FTEXT 'NOUVEAU SOLDE:' q L P FTAB 24 q j P P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL q
0x361350…3614e4 Dummy {f00=0x00f1, f01=0x0190, f02=»********************** q ^ L P* * r L P* PRINT, LINE TYPE 1: FUNCTION IDENTIFICATION * r n L P* * r
0x3614e4…361678 Dummy {f00=0x00f1, f01=0x0190, f02=» r ^ T P FTEXT ' ' s T P FBT SBVCH,P043005 s v T P FTAB 3
0x361678…36180c Dummy {f00=0x00f1, f01=0x0190, f02=» s v T P FTAB 5 t > L P FBF SBSTTO,P043020 t T P FTEXT 'DEBUT OPERATEUR'
0x36180c…3619a0 Dummy {f00=0x00f1, f01=0x0190, f02=»BF SBOACT,P043030 t T P FTEXT 'OUVERTURE CPTE' u N L PP043030 u L P FBF SBCACT,P04304
0x3619a0…361b34 (6, 179) Dummy {f00=0x00f1, f01=0x0190, f02=» u F L PP043040 v L P FBF SBBACT,P043050 v ^ T P FTEXT 'BLOCAGE COMPTE' v L PP0
0x361b34…361cc8 Dummy {f00=0x00f1, f01=0x0190, f02=» v V T P FTEXT 'DEBLOCAGE CPTE' w L PP043060 w n L P FBF SBUACT,P043070 w
0x361cc8…361e5c Dummy {f00=0x00f1, f01=0x0190, f02=» w f L P FBF SBUCCY,P043080 x & T P FTEXT 'MISE A JOUR DEV' x v L PP043080
0x361e5c…361ff0 Dummy {f00=0x00f1, f01=0x0190, f02=» x n L PP043090 y 6 L P FBF SBDSTM,P043100 y T P FTEXT 'RELEVE'
0x361ff0…362184 Dummy {f00=0x00f1, f01=0x0190, f02=»0 y ~ T P FTEXT 'FIN OPERATEUR' z > L PP043110 z L P FBF SBCSYS,P043120
0x362184…362318 Dummy {f00=0x00f1, f01=0x018e, f02=»43120 z L P FBF SBECCY,P043130 { N T P FTEXT 'CHANGE' { L PP043130
0x362318…3624ac Dummy {f00=0x00f1, f01=0x0190, f02=» { F T P FTEXT 'INTERR. DEVISE' | L PP043140 | ` L P FBF SBLACT,P043300 | T P FTEXT '
0x3624ac…362640 Dummy {f00=0x00f1, f01=0x018e, f02=» | X T P FTAB 21 } P FBT SBSTTO,P043400 } p P FBT SBCOPR,P043400 } P FBT SBVCH,P043400 } P FILLR ' ',6 } P FB P043500 } PP043400 } L P FMEL 'ZZZZZZ'
0x362640…3627d4 (6, 180) Dummy {f00=0x00f1, f01=0x0190, f02=» P FB P043999 ~ PP043600 ~ P FILLR ' ',4 ~ ( PP043700 ~ < P FILLR ' ',20 ~ L PP043999 ~ b P FMEND ~ r L P************************************************************************ ~ L P*
0x3627d4…362968 Dummy {f00=0x00f1, f01=0x0190, f02=» * ~ p L P************************************************************************ 0 L PPRT044 FRMT T P FTEXT ' '
0x362968…362afc Dummy {f00=0x00f1, f01=0x0190, f02=» L P FMEL 'Z',RDSHRPRT H T PP044010 T P FTAB 5
0x362afc…362c90 Dummy {f00=0x00f1, f01=0x0190, f02=» H T P FTEXT 'ANNUL.' N P FB P044200 b N PP044100 L P F
0x362c90…362e24 Dummy {f00=0x00f1, f01=0x0190, f02=» V L P FTAB 12 L P FMEL '99999',RDOPRNR h L P FTAB 18 L P
0x362e24…362fb8 Dummy {f00=0x00f1, f01=0x0190, f02=» X L P FMEL '99E:99',NDTIME P FBT SBFIL24,P044600 h P FBT SBFIL20,P044700 P FB P044999 PP044600 P FILLR ' ',4 PP044700 P FILLR ' ',20 PP044999
0x362fb8…36314c Dummy {f00=0x00f1, f01=0x0190, f02=»********************** ^ L P* * L P* TRANSFER (DNTRF) * n L P* *
0x36314c…3632e0 Dummy {f00=0x00f1, f01=0x0190, f02=» ^ L P FSL * P FTEXT 'VIREMENT DU COMPTE ORIGINE :' n L P FBT SBCARD,F04510 4 P FKI 30,MINL=6,MAXL=6,NUM,ME
0x3632e0…363474 (6, 181) Dummy {f00=0x00f1, f01=0x0190, f02=» t L PF04510 4 P FTAB 30 L P FMEL '999999',IDACTNR1 L PF04520
0x363474…363608 Dummy {f00=0x00f1, f01=0x0190, f02=»T,F04530 T P FTEXT 'SOLDE LIVRET :' D T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT L P FMEL 'ZZZZZZZZZ,ZZ
0x363608…36379c Dummy {f00=0x00f1, f01=0x0190, f02=» D T P FKI 34,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT L P FMEL 'ZZ',IDNR1 d L P FB F04540 L PF045
0x36379c…363930 Dummy {f00=0x00f1, f01=0x0190, f02=» T P FTAB 24 L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK , L PF04540 | L P FNL
0x363930…363ac4 Dummy {f00=0x00f1, f01=0x0190, f02=»E,NEOI,APPL=14,REWRT t L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT < L P FNL P FTEXT 'NOUVEAU SOLDE:' P FTAB 24
0x363ac4…363c58 Dummy {f00=0x00f1, f01=0x0190, f02=» ^ T P FTEXT 'VIREMENT AU CPTE DESTINAT.:' R P FKI 30,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 v L P FMEL 'ZZZZZZ',IDACTNR2
0x363c58…363dec Dummy {f00=0x00f1, f01=0x0190, f02=»************************************ l L P* * , L P* ACCOUNT INQUIRY (DIQACT) * | L P*
0x363dec…363f80 Dummy {f00=0x00f1, f01=0x0190, f02=» l L P FSL , L P FBT SBCHQACT,F04610 | T P FTEXT 'INTERR. CPTE D'
0x363f80…364114 (6, 182) Dummy {f00=0x00f2, f01=0x0190, f02=» ' | L P FB F04620 D L PF04610 T P FTEXT 'INTERR. CPTE COURANT NR.: '
0x364114…3642a8 Dummy {f00=0x00f2, f01=0x0190, f02=»B 27 L P FMEL '999999',IDACTNR1 T L P FNL P P FTEXT 'SOLDE
0x3642a8…36443c Dummy {f00=0x00f2, f01=0x0190, f02=» H L P FMEL 'ZZZZZZZZ9,99-',ADBAL L P FNL ` L P FBT SBCHQACT,F04630 P P FTEXT '
0x36443c…3645d0 Dummy {f00=0x00f2, f01=0x0190, f02=» T L PF04630 P P FTEXT 'DECOUV. AUT. : ' d L PF04640 T P
0x3645d0…364764 Dummy {f00=0x00f2, f01=0x0190, f02=» ` L P FNL P P FTEXT 'ETAT : ' p T P FTAB 20
0x364764…3648f8 Dummy {f00=0x00f2, f01=0x0190, f02=» l R P FTEXT 'INTERR. DERN. TRANS.(N=0,O=1)?' , T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 T P FMEL '9',IDNR1
0x3648f8…364a8c Dummy {f00=0x00f2, f01=0x0190, f02=»********************************************************** L P* * B L P* TRANSACTION INQUIRY (DIQACT) * L P*
0x364a8c…364c20 Dummy {f00=0x00f2, f01=0x0190, f02=»NQUIRY TRANSACTION L P FSL B R P FTEXT 'INTERR. TRANSACT.CPTE NR: ' T P FTAB 26
0x364c20…364db4 (6, 183) Dummy {f00=0x00f2, f01=0x0190, f02=» FNL H P FTEXT 'TRANS.' P T P FTAB 7 L P FMEL '999',UDTRSCDE
0x364db4…364f48 Dummy {f00=0x00f2, f01=0x0190, f02=» L P FMEL '99999',UDOPRNR L P FTEXT '/' T L P FMEL '999999',UDTRSSEQ L P FTEXT '/'
0x364f48…3650dc Dummy {f00=0x00f2, f01=0x0190, f02=» L P FNL P P FTEXT 'MONTANT : ' T T P FTAB 20 L P FMEL 'Z
0x3650dc…365270 Dummy {f00=0x00f2, f01=0x0190, f02=» P P P FTEXT 'NOUVEAU SOLDE: ' T P FTAB 20 d T P FMEL 'ZZZZZZZZ9,99-',UDNEWBAL
0x365270…365404 Dummy {f00=0x00f2, f01=0x0190, f02=» d T P FKI 32,ME,MAXL=1,NUM,NCLR,NEOI,APPL=1 * T P FMEL '9',IDNR1 L P FMEND
0x365404…365598 Dummy {f00=0x00f2, f01=0x0190, f02=» * z L P* BLOCK/DEBLOCK ACCOUNT (DHBACT) * : L P* * L P**********************************************
0x365598…36572c Dummy {f00=0x00f2, f01=0x0190, f02=» z L P FBT SBCHQACT,F04820 : L P* * L P* SAVINGS ACCOUNT
0x36572c…3658c0 Dummy {f00=0x00f2, f01=0x018e, f02=» z T P FTEXT 'BLOCAGE CPTE D' : T P FTEXT X'27' T P FTEXT 'EPARGNE NR :'
0x3658c0…365a54 (6, 184) Dummy {f00=0x00f2, f01=0x0190, f02=» PF04810 T P FTEXT 'DEBLOCAGE CPTE D' T P FTEXT X'27' j T P FTEXT 'EPARGNE NR:'
0x365a54…365be8 Dummy {f00=0x00f2, f01=0x0190, f02=» j T P FTEXT 'BLOCAGE COMPTE COURANT NR :' * L P FB F04840 PF04830 T P FTEXT 'DEBLOCAGE COMPTE COURANT NR:'
0x365be8…365d7c Dummy {f00=0x00f2, f01=0x0190, f02=» V P FNL T P FTEXT 'NOM : ' " T P FTAB 16 z L P FCOPY ACNAME
0x365d7c…365f10 Dummy {f00=0x00f2, f01=0x0190, f02=» r T P FTAB 24 : L P FMEL 'ZZZZZZZZ9,99-',ADBAL P FNL L P FBT SBCHQACT,F04860
0x365f10…3660a4 Dummy {f00=0x00f2, f01=0x0190, f02=» L T P FTAB 24 L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK l T P FB F04865
0x3660a4…366238 Dummy {f00=0x00f2, f01=0x018e, f02=» z L P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK B T PF04865 P FNL L P FBZ RDALFKB,F0487
0x366238…3663cc Dummy {f00=0x00f2, f01=0x0190, f02=» F $ P FKI 16,MAXL=20,ALPHA,NCLR,NEOI P FCOPY TCTEXT 0 L P FB F04899 F PF04870 T P FTEXT 'VALIDER OU ANNULER' L PF04899 FMEND
0x3663cc…366560 Dummy {f00=0x00f2, f01=0x0190, f02=»**** L PMSG049 FRMT P FSL T P FTEXT 'INSERER LE LIVRET' , P FKI 36 P FCOPY ICDUMMY P FMEND L P************************************************************************ P
0x366560…3666f4 (6, 185) Dummy {f00=0x00f2, f01=0x0190, f02=» FCOPY ICDUMMY P FMEND L P************************************************************************ $ L P* * t P* PRINT: PASSBOOK CLOSE LINE L P*
0x3666f4…366888 Dummy {f00=0x00f2, f01=0x0190, f02=»RMT P FTEXT ' ' H L P FMEL 'ZZZZZZ',NDDATE N P FILLR ' ',13 L P FMEL 'ZZZ
0x366888…366a1c Dummy {f00=0x00f2, f01=0x0190, f02=» N T P FTEXT '** FERME **' T P FMEND h L P************************************************************************
0x366a1c…366bb0 Dummy {f00=0x00f2, f01=0x0190, f02=» * ` L P* * L P************************************************************************ p J PFMT052 FRMT UPDATE ACCOUNT SCREEN 1
0x366bb0…366d44 Dummy {f00=0x00f2, f01=0x0190, f02=» ^ T P FTEXT 'MISE A JOUR COMPTE EP. NR.:' L P FB F05220 v L PF05210
0x366d44…366ed8 Dummy {f00=0x00f2, f01=0x0190, f02=» n P FTAB 30 . P FMEL '999999',IDACTNR1 > L P FNL ^ T P FTEXT 'NOM :' T P F
0x366ed8…36706c Dummy {f00=0x00f2, f01=0x0190, f02=» ^ T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 L PF05230 v L P FCOPY ACNAME
0x36706c…367200 Dummy {f00=0x00f2, f01=0x0190, f02=» f T P FTAB 16 . L P FBZ RDALFKB,F05240 T P FKI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18
0x367200…367394 (6, 186) Dummy {f00=0x00f3, f01=0x0190, f02=» ~ L P FNL > T P FTEXT 'VILLE :' T P FTAB 16
0x367394…367528 Dummy {f00=0x00f3, f01=0x018e, f02=»KI 16,MAXL=20,ALPHA,ME,NEOI,NCLR,APPL=18 L PF05250 V L P FCOPY ACTOWN L P FNL
0x367528…3676bc Dummy {f00=0x00f3, f01=0x0190, f02=» F P* P* SAVINGS ACCOUNT P* . T P FTEXT 'MOT DE PASSE:' 8 T P FTAB 30 L P FBZ RDALFKB,F05260
0x3676bc…367850 Dummy {f00=0x00f3, f01=0x0190, f02=» ^ L P FCOPY ACPASS P FB F05299 n L PF05270 T P FTEXT 'DECOUV. AUT. :'
0x367850…3679e4 Dummy {f00=0x00f3, f01=0x0190, f02=»,99-',ADLIMBOK PF05299 @ L P FMEND N L P************************************************************************ L P*
0x3679e4…367b78 Dummy {f00=0x00f3, f01=0x0190, f02=» * L P************************************************************************ N L PFMT053 FRMT L P FSL
0x367b78…367d0c Dummy {f00=0x00f3, f01=0x0190, f02=»TEXT 'MISE A JOUR COMPTE EP. NR.:' L P FB F05320 V L PF05310 T P FTEXT 'MISE A JOU
0x367d0c…367ea0 Dummy {f00=0x00f3, f01=0x0190, f02=» L P FBT SBCHQACT,F05330 T P FTEXT 'SOLDE LIVRET: ' X R P FKI 15,MAXL=11,NUM,ME,NEOI,NCLR,REWRT L P F
0x367ea0…368034 (6, 187) Dummy {f00=0x00f3, f01=0x0190, f02=» V R P FKI 34,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=16 L P FMEL '99',ADLNENR t L P FB F05340
0x368034…3681c8 Dummy {f00=0x00f3, f01=0x0190, f02=» d R P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT , N P FMEL 'ZZZZZZZZ9,99-',ADLIMBOK L PF05340
0x3681c8…36835c Dummy {f00=0x00f3, f01=0x0190, f02=» t L P < T P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REWRT,APPL=30 P P FMEL 'ZZZZZZZZ9,99-',TDNEWBAL
0x36835c…3684f0 Dummy {f00=0x00f3, f01=0x0190, f02=»ETAT :' R P FKI 35,MAXL=1,NUM,ME,NEOI,NCLR,REWRT,APPL=3 P L P FMEL '9',ADSTATUS P FNL L P FNL
0x3684f0…368684 Dummy {f00=0x00f3, f01=0x0190, f02=» R R P FKI 24,MAXL=2,NUM,ME,NEOI,NCLR,REWRT,APPL=17 L P FMEL '99',ADLASTRS p L P FNL
0x368684…368818 Dummy {f00=0x00f3, f01=0x0190, f02=»PL=17 h L P FMEL '99',ADSTMTRS . L P FNL ~ T P FTEXT 'TOTAL DEPOTS :'
0x368818…3689ac Dummy {f00=0x00f3, f01=0x0190, f02=»,ADDEPCUM | L P FNL < T P FTEXT 'TOTAL RETRAITS :' * P FKI 24,MAXL=11,NUM,ME,NEOI,NCLR,REW
0x3689ac…368b40 Dummy {f00=0x00f3, f01=0x0190, f02=» b L P************************************************************************ " PMSG054 FRMT r L P FSL T P FTEXT 'INTRODUIRE LE DOCUMENT'
0x368b40…368cd4 (6, 188) Dummy {f00=0x00f3, f01=0x0190, f02=» ~ P FMEND > L P************************************************************************ L L P* * L P* LIST ACCOUNTS, HEADER LINE
0x368cd4…368e68 Dummy {f00=0x00f3, f01=0x0190, f02=»******************************************************************** L PFMT055 FRMT L L P FNL L P FNL
0x368e68…368ffc Dummy {f00=0x00f3, f01=0x0190, f02=» L P FTAB 7 T P FTEXT 'BADGE' T L P FTAB 13 T P FTEXT 'NOM'
0x368ffc…369190 Dummy {f00=0x00f3, f01=0x0190, f02=» T T P FTEXT 'TOTAL DEP.' L P FTAB 49 l T P FTEXT 'TOTAL RETR.'
0x369190…369324 Dummy {f00=0x00f3, f01=0x0190, f02=» d L P FMEND $ J P********************************************************************** t P* P* CURRENCY INQUIRY (DQCCY) P* J P**************
0x369324…3694b8 Dummy {f00=0x00f3, f01=0x0190, f02=» h P FTAB 17 0 P FCOPY CCCCYNME @ P FNL X T P FTEXT 'CODE DEVISE : ' d P FTAB 17 P FCOPY CCCCYCDE P FTAB 26 P FTEXT 'REL.: '
0x3694b8…36964c Dummy {f00=0x00f3, f01=0x0190, f02=» F T P FTEXT X'27' T P FTEXT 'ACHAT :(1)' f P FTAB 19 P FMEL 'ZZZ9,99-',CDBUY1 P FTAB 27 P FTEXT '(2
0x36964c…3697e0 Dummy {f00=0x00f3, f01=0x0190, f02=» N P FTAB 19 P FMEL 'ZZZ9,99-',CDSEL1 & P FTAB 27 F P FTEXT '(2)' V P FTAB 30 j P FMEL 'ZZZ9,99',CDSEL2 z P FNL T P FTEXT 'COURS LIMITE 1:' P FTAB 28
0x3697e0…369974 (6, 189) Dummy {f00=0x00f3, f01=0x0190, f02=» * L P* CURRENCY EXCHANGE (DPECCY) * L L P* * L P****************************
0x369974…369b08 Dummy {f00=0x00f3, f01=0x0190, f02=» T P FTEXT 'CHANGE ' L L P FBT SBCCYIN,F058100 T P FTEXT '(VENTE) '
0x369b08…369c9c Dummy {f00=0x00f3, f01=0x0190, f02=» L L PF058100 T P FTEXT '(ACHAT) ' L PF058200 L P FNL
0x369c9c…369e30 Dummy {f00=0x00f3, f01=0x0190, f02=» T L P FTAB 7 L P FCOPY YCCCY(KW4) l L P FTAB 11
0x369e30…369fc4 Dummy {f00=0x00f3, f01=0x0190, f02=» * L P FMEL 'ZZZZ9,99',CDSEL1 L P FB F058240 l L P* CURRENCY BUYING *
0x369fc4…36a158 Dummy {f00=0x00f3, f01=0x0190, f02=» L PF058240 J P FTEXT '/' l L P FTAB 21 L
0x36a158…36a2ec Dummy {f00=0x00f3, f01=0x0190, f02=» Z L P FMEL 'ZZZZ9,00',CDRELAT L P FNL j P P FTEXT 'MONTANT ....:'
0x36a2ec…36a480 Dummy {f00=0x00f3, f01=0x0190, f02=» ^ L P FKI 20,ME,MINL=1,MAXL=11,NUM,NEOI,APPL=26,REWRT L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 n L P FNL
0x36a480…36a614 (6, 190) Dummy {f00=0x00f4, f01=0x0190, f02=»RENCY CODE 2 ~ L P FTAB 20 > L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT2 L P FNL
0x36a614…36a7a8 Dummy {f00=0x00f4, f01=0x0190, f02=»,MAXL=1,NUM,NCLR,NEOI,APPL=1 L P FMEL '9',IDNR4 F L P FMEND L P**********************************
0x36a7a8…36a93c Dummy {f00=0x00f4, f01=0x018e, f02=»OPERATOR (PART1) * L P* * F L P************************************************************************ T PFMT059 FRMT
0x36a93c…36aad0 Dummy {f00=0x00f4, f01=0x0190, f02=» > T P FTEXT 'TOTAUX CAISSE :' T P FTAB 20 ` T P FCOPY YCCCY(KW4)
0x36aad0…36ac64 Dummy {f00=0x00f4, f01=0x0190, f02=» h T P FNL 0 T P FTAB 20 T P FCOPY YCCCY(KW1)
0x36ac64…36adf8 Dummy {f00=0x00f4, f01=0x0190, f02=» FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) T P FNL X T P FTAB 20 T P
0x36adf8…36af8c Dummy {f00=0x00f4, f01=0x0190, f02=» ` T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW2) ( T P FNL T P FTAB 20
0x36af8c…36b120 Dummy {f00=0x00f4, f01=0x0190, f02=» T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) P T P FNL T P FTEXT '
0x36b120…36b2b4 (6, 191) Dummy {f00=0x00f4, f01=0x0190, f02=» X T P FCOPY YCCCY(KW4) T P FTAB 24 x T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1)
0x36b2b4…36b448 Dummy {f00=0x00f4, f01=0x018e, f02=»OU ANNULER' T P FMEND H L P************************************************************************ L P*
0x36b448…36b5dc Dummy {f00=0x00f4, f01=0x018e, f02=» L P* * L P************************************************************************ T PFMT060 FRMT P FSL T P FTEXT 'CH. D AFFAIRE TOT.:'
0x36b5dc…36b770 Dummy {f00=0x00f4, f01=0x0190, f02=» P FCOPY YCCCY(KW1) P FTAB 24 " * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW1) 2 P FNL ` P FTAB 20 l P FCOPY YCCCY(KW2) | P FTAB 24 * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL P FTAB 20 P FCOPY YCCCY(KW3)
0x36b770…36b904 Dummy {f00=0x00f4, f01=0x0190, f02=» T P FTAB 20 P FCOPY YCCCY(KW4) , T P FTAB 24 F P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND L P********************************************************
0x36b904…36ba98 Dummy {f00=0x00f4, f01=0x0190, f02=» * p L P* * 0 L P************************************************************************ L PPRT061 FRMT
0x36ba98…36bc2c Dummy {f00=0x00f4, f01=0x0190, f02=»DTRSSEQ P FTAB 10 @ L P FBF SBFIRST,P061050 P L P FMEL '99E-99E-99',NDDATE PP061050 L P FTAB 19
0x36bc2c…36bdc0 Dummy {f00=0x00f4, f01=0x0190, f02=»0 SKIP FURTHER INDICATIONS PP061100 " N P FBF SBDSDEP,P061200 2 T P FTEXT 'DEPOT' L PP061200
0x36bdc0…36bf54 (6, 192) Dummy {f00=0x00f4, f01=0x0190, f02=» ~ L PP061300 F N P FBF SBDSTRF,P061400 T P FTEXT 'VIREMENT'
0x36bf54…36c0e8 Dummy {f00=0x00f4, f01=0x0190, f02=» FTAB 32 L P FMEL '99E-99E-99',UDDATE P L P FTAB 42 L P FMEL 'ZZZVZZZVZZZ,ZZ',I
0x36c0e8…36c27c Dummy {f00=0x00f4, f01=0x0190, f02=» FMEL 'ZZZVZZZVZZZ,ZZ',IDAMT2 L P FMEND P L P************************************************************************ T PMSG062 FRMT
0x36c27c…36c410 Dummy {f00=0x00f4, f01=0x0190, f02=» H T P FBNZ YDMLPINT,M062100 T P FTEXT 'PAPIER CONTINU SUR GTP' h T P FB M062999
0x36c410…36c5a4 Dummy {f00=0x00f4, f01=0x0190, f02=» p T PM062999 8 T P FMEND L P********************************
0x36c5a4…36c738 Dummy {f00=0x00f4, f01=0x0190, f02=» FSL T P FTEXT 'INTRODUIRE FEVILLE D' X T P FTEXT X'27' T P
0x36c738…36c8cc Dummy {f00=0x00f4, f01=0x0190, f02=» ` L P************************************************************************ ( PMSG064 FRMT x P FSL T P FTEXT 'INTRODUIRE PAGE A4' P FMEND L P**********
0x36c8cc…36ca60 Dummy {f00=0x00f4, f01=0x0190, f02=» * N L P* DEMO TP71: TITLE LINE * L P* * ^ L P************************************************************************ L PFMT065 FRM
0x36ca60…36cbf4 (6, 193) Dummy {f00=0x00f4, f01=0x0190, f02=» FBT SBFIL2,FMT65A P FILLR ' ',8 P FBT SBFIL3,FMT65A . P FILLR ' ',3 H P FBT SBFIL4,FMT65A P FILLR ' ',5 v P FBT SBFIL5,FMT65A P FILLR ' ',12 PFMT65A L P FCOPY ICSTRG1
0x36cbf4…36cd88 Dummy {f00=0x00f4, f01=0x0190, f02=» h L P FMEND ( L P************************************************************************ x L P*
0x36cd88…36cf1c Dummy {f00=0x00f4, f01=0x0190, f02=» * h L P************************************************************************ ( L PFMT066 FRMT x L P FTEXT ' '
0x36cf1c…36d0b0 Dummy {f00=0x00f4, f01=0x0190, f02=» h L P FMEND 0 L P************************************************************************ L P*
0x36d0b0…36d244 Dummy {f00=0x00f4, f01=0x0190, f02=» * p L P************************************************************************ 0 L PFMT067 FRMT L P FTEXT ' '
0x36d244…36d3d8 Dummy {f00=0x00f4, f01=0x0190, f02=» p L P FILLR ' ',6 8 8 P FTEXT =X'1A301A311A321A331A341A351A361A371A381A39' P* OCR CHARACTERS > P FTEXT =X'1A3A1A3B1A3C202020AE30AE31AE32AE
0x36d3d8…36d56c Dummy {f00=0x00f4, f01=0x018e, f02=» X L P************************************************************************ L P* * h " P* FORMATS FOR COMPACT TERMINAL L P*
0x36d56c…36d700 Dummy {f00=0x00f4, f01=0x0190, f02=» P FSL P FTEXT 'ODR (N=0,Y=1) ?' 2 P FKI 30,ME,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=1 0 P FMEL '9',RDODR f P FNL ~ P FTEXT 'IDENT. TERMINAL : ' P FTAB 28 P FMEL '999',NDTRMNR P FNL P FTEXT 'NOM DU TERMINAL : '
0x36d700…36d894 (6, 194) Dummy {f00=0x00f5, f01=0x0190, f02=»**************************************** p L P* * 0 F P* OPERATOR BALANCES, FOR FT80 * L P*
0x36d894…36da28 Dummy {f00=0x00f5, f01=0x0190, f02=» j L P FSL * J P FTEXT 'OPERATEUR : ' z L P FCOPY OCNAME
0x36da28…36dbbc Dummy {f00=0x00f5, f01=0x0190, f02=» L P FCOPY YCCCY(KW4) P FTAB 20 X L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4) h P FNL P FTEXT 'TOTAUX CAISE : ' L P FTAB 16
0x36dbbc…36dd50 Dummy {f00=0x00f5, f01=0x0190, f02=» L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW1) P FNL T P FTEXT 'TOTAUX CAISE : ' ` L P FTAB 16 L P FCOPY YCCCY(KW2)
0x36dd50…36dee4 Dummy {f00=0x00f5, f01=0x0190, f02=»XT 'TOTAUX CAISE : ' L P FTAB 16 L P FCOPY YCCCY(KW3) l P FTAB 20 L P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3)
0x36dee4…36e078 Dummy {f00=0x00f5, f01=0x0190, f02=» r L P************************************************************************ 2 L P* * T P* WITHDRAWAL (DMWDR) FOR FT80
0x36e078…36e20c Dummy {f00=0x00f5, f01=0x0190, f02=»************************************************** z L PFMT070 FRMT : L P FSL L P FBT SBCHQACT,F07010
0x36e20c…36e3a0 Dummy {f00=0x00f5, f01=0x0190, f02=» T P FTEXT 'EPARGNE:' J L P FB F07020 L PF07010
0x36e3a0…36e534 (6, 195) Dummy {f00=0x00f5, f01=0x0190, f02=» n L P FTAB 27 . L P FMEL '999999',IDACTNR1 ~ L P FNL
0x36e534…36e6c8 Dummy {f00=0x00f5, f01=0x0190, f02=» * n L P* SAVINGS ACCOUNT * . L P* * ~ L P FTAB 12
0x36e6c8…36e85c Dummy {f00=0x00f5, f01=0x0190, f02=» FCOPY ACPASS L P FB F07050 P L PF07030 L P FBT SBCHEQUE,F07040
0x36e85c…36e9f0 Dummy {f00=0x00f5, f01=0x0190, f02=»* CHEQUE ACCOUNT, NO ODR * L P* * P L P FTEXT 'NOM :' L P FTAB 13
0x36e9f0…36eb84 Dummy {f00=0x00f5, f01=0x0190, f02=» FB F07050 L P* * P L P* CHEQUE ACCOUNT, CHEQUE INPUT * L P*
0x36eb84…36ed18 Dummy {f00=0x00f5, f01=0x0190, f02=» FTAB 12 H P FTEXT '- CHEQUE NR. :' P L P FTAB 27 L P FCOPY FCFIELD
0x36ed18…36eeac Dummy {f00=0x00f5, f01=0x0190, f02=» L P FBT SBCHQACT,F07060 L L P* * L P* SAVINGS ACCOUNT
0x36eeac…36f040 Dummy {f00=0x00f5, f01=0x0190, f02=»XT 'SOLDE LIVRET: ' L P FKI 15,ME,MINL=1,MAXL=10,NUM,NEOI,APPL=10,REWRT L P FMEL 'ZZZZZZZZZ,ZZ',IDAMT1 l P FNL N P FTEXT 'LIGNE:'
0x36f040…36f1d4 (6, 196) Dummy {f00=0x00f5, f01=0x0190, f02=» j L P FB F07070 * L P* * z L P* CHEQUE ACCOUNT
0x36f1d4…36f368 Dummy {f00=0x00f5, f01=0x0190, f02=» j P FTEXT 'DECOUV.AUT.: ' * P FTAB 20 H L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK X L PF07070 P FNL L P FTE
0x36f368…36f4fc Dummy {f00=0x00f5, f01=0x0190, f02=» T L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT L P FNL d P FTEXT 'NOUVEAU SOLDE : ' L P FTAB 20
0x36f4fc…36f690 Dummy {f00=0x00f5, f01=0x0190, f02=» z L P************************************************************************ : L P* * T P* TRANSFER (DNTRF) FOR FT80
0x36f690…36f824 Dummy {f00=0x00f5, f01=0x018e, f02=»********************************************************** L PFMT071 FRMT B L P FSL ( P FTEXT 'VIREMENT DU COMPTE ORIG.: '
0x36f824…36f9b8 Dummy {f00=0x00f5, f01=0x0190, f02=» ^ L P FMEL 'ZZZZZZ',IDACTNR1 L P FB F07120 X L PF07110 P FTAB 26 L P
0x36f9b8…36fb4c Dummy {f00=0x00f5, f01=0x0190, f02=» X L P FNL L P FBT SBCHQACT,F07130 h P FTEXT 'SOLDE LIVRET: ' T P FKI 15,MINL=1,MAXL=11,NUM,ME,NEOI,APPL=10,REWRT
0x36fb4c…36fce0 Dummy {f00=0x00f5, f01=0x0190, f02=»XT ' LIGNE: ' T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT L L P FMEL 'ZZ',IDNR1 L P FB F07140
0x36fce0…36fe74 (6, 197) Dummy {f00=0x00f5, f01=0x0190, f02=» P FTEXT 'DECOUV. AUT.: ' P FTAB 20 $ L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK 4 L PF07140 L P FNL
0x36fe74…370008 Dummy {f00=0x00f5, f01=0x0190, f02=» B L P FMEL 'ZZZZZZZZZ,ZZ',TDAMOUNT L P FNL Z P FTEXT 'NOUVEAU SOLDE : ' P FTAB 20 N P FMEL 'ZZZZZZZZZ,ZZ-',TDNEWBAL
0x370008…37019c Dummy {f00=0x00f5, f01=0x0190, f02=»U COMPTE DEST.: ' ~ R P FKI 26,MINL=6,MAXL=6,NUM,ME,NEOI,APPL=20 L P FMEL 'ZZZZZZ',IDACTNR2 p L P FMEND
0x37019c…370330 Dummy {f00=0x00f5, f01=0x0190, f02=» P* J P********************************************************************** PFMT072 FRMT P FSL p P FTEXT 'NOM DEVISE : ' | P FTAB 17 P FCOPY CCCCYNME P FNL P FTEXT 'CODE DEVISE : ' P FTAB 17 P FCOPY C
0x370330…3704c4 Dummy {f00=0x00f5, f01=0x0190, f02=» z T P FTEXT X'27' B T P FTEXT 'ACHAT :(1)' P FTAB 19 P FMEL
0x3704c4…370658 Dummy {f00=0x00f5, f01=0x0190, f02=»7' T P FTEXT 'ACHAT :(1)' N P FTAB 19 P FTAB 26 P FMEL 'ZZZ9,99',CDBUY2 P FNL P FTEXT 'COURS DE VENTE
0x370658…3707ec Dummy {f00=0x00f5, f01=0x0190, f02=»ZZ9,99',CDSEL2 P FNL P FTEXT 'COURS LIMIT 1 : ' " P FTAB 24 D P FMEL 'ZZZZZ9,99',CDLIMIT T P FMEND v L P************************************************************************ L P*
0x3707ec…370980 Dummy {f00=0x00f5, f01=0x0190, f02=» * | L P************************************************************************ < T PFMT073 FRMT T P FSL
0x370980…370b14 (6, 198) Dummy {f00=0x00f6, f01=0x0190, f02=» ^ T P FCOPY YCCCY(KW4) & T P FTAB 20 ~ T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW4)
0x370b14…370ca8 Dummy {f00=0x00f6, f01=0x0190, f02=»TAUX CAISSE :' T P FTAB 16 T P FCOPY YCCCY(KW1) p T P FTAB 20
0x370ca8…370e3c Dummy {f00=0x00f6, f01=0x0190, f02=» x P FTEXT 'TOTAUX CAISSE: ' @ T P FTAB 16 ` T P FCOPY YCCCY(KW2)
0x370e3c…370fd0 Dummy {f00=0x00f6, f01=0x0190, f02=» h T P FNL 0 P FTEXT 'TOTAUX CAISSE: ' T P FTAB 16 T P FCOPY Y
0x370fd0…371164 Dummy {f00=0x00f6, f01=0x0190, f02=» X T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW1,KW3) T P FNL x P FTEXT 'SOLDE CHEQUES: ' T P FTAB 16
0x371164…3712f8 Dummy {f00=0x00f6, f01=0x018e, f02=» H T P FTAB 20 T P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW2,KW1) h T P FNL
0x3712f8…37148c Dummy {f00=0x00f6, f01=0x0190, f02=» L P************************************************************************ L P* * T T P* OPERATOR TURNOVER SCREEN FOR FT80 L P*
0x37148c…371620 Dummy {f00=0x00f6, f01=0x018e, f02=»**** L PFMT074 FRMT P FSL P FTEXT 'CH.D' , P FTEXT X'27' B P FTEXT 'AFF. TOT.: ' V P FTAB 16 r P FCOPY YCCCY(KW4) P FTAB 20 P FMEL 'ZZZZZZZZ9,99-',WDEC1 P FNL P FTEXT 'CH.D' P FTEXT X'27' P F
0x371620…3717b4 (6, 199) Dummy {f00=0x00f6, f01=0x018e, f02=» P FTEXT 'CH.D' P FTEXT X'27' P FTEXT 'AFF. TOT.: ' 2 P FTAB 16 N P FCOPY YCCCY(KW2) ^ P FTAB 20 x * P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3,KW2) P FNL P FTEXT 'CH.D' P FTEXT X'27' P FTEXT 'AFF. TOT.: ' P
0x3717b4…371948 Dummy {f00=0x00f6, f01=0x0190, f02=» P FTEXT X'27' P FTEXT 'AFF. DEV.: ' P FTAB 16 4 P FCOPY YCCCY(KW4) D T P FTAB 20 ^ P FMEL 'ZZZZZZZZ9,99-',WDEC2 P FMEND L P********************************
0x371948…371adc Dummy {f00=0x00f6, f01=0x0190, f02=»**** ERROR MESSAGES ********** * L P* * H L P************************************************************************ PERR001 FRMT P FSL T P
0x371adc…371c70 Dummy {f00=0x00f6, f01=0x0190, f02=»TEXT 'ENREGISTREMENT PROTEGEE' P FMEND V PERR003 FRMT d P FSL x T P FTEXT 'ERREUR E/S' P FMEND PERR004 FRMT P FSL T
0x371c70…371e04 Dummy {f00=0x00f6, f01=0x0190, f02=» FTEXT 'ZONE OBLIGATOIRE' P FMEND X L PERR006 FRMT f L P FSL T P F
0x371e04…371f98 Dummy {f00=0x00f6, f01=0x0190, f02=» ^ L PERR007 FRMT L P FSL n T P FTEXT 'ERREUR OUVERTURE FICHIER'
0x371f98…37212c Dummy {f00=0x00f6, f01=0x0190, f02=» f L P FSL & T P FTEXT 'GUICHET' v L P FMEND
0x37212c…3722c0 Dummy {f00=0x00f6, f01=0x0190, f02=» n T P FTEXT 'DOIT ETRE NUL' . L P FMEND L PERR010 FRMT
0x3722c0…372454 (6, 200) Dummy {f00=0x00f6, f01=0x0190, f02=»' v L P FMEND > L PERR020 FRMT L P FSL
0x372454…3725e8 Dummy {f00=0x00f6, f01=0x0190, f02=» L PERR023 FRMT F L P FSL T P FTEXT 'OPERATEUR INCONNU'
0x3725e8…37277c Dummy {f00=0x00f6, f01=0x018e, f02=»R024 FRMT L P FSL N T P FTEXT 'OPERATEUR DEJA ENREGISTRE' L P FMEND
0x37277c…372910 Dummy {f00=0x00f6, f01=0x0190, f02=» F L P FSL ! T P FTEXT 'MOT DE PASSE ERRONE' ! X L P FMEND ! L PERR026 F
0x372910…372aa4 Dummy {f00=0x00f6, f01=0x0190, f02=» ! P T P FTEXT 'TERMINAL BLOQUE - APPELER CHEF OPER.' " L P FMEND " h L PERR028 FRMT " L P
0x372aa4…372c38 Dummy {f00=0x00f6, f01=0x0190, f02=» " X L P FMEND # L PERR029 FRMT # p L P FSL
0x372c38…372dcc Dummy {f00=0x00f6, f01=0x0190, f02=»FRMT # L P FSL $ H & P FTEXT 'ENTRER LA CLE PRINCIPALE' $ L P FMEND
0x372dcc…372f60 Dummy {f00=0x00f6, f01=0x0190, f02=» $ b $ P FTEXT 'INCIDENT DISP. D ENTREE' % " L P FMEND % J L PERR033 FRMT % L P FSL
0x372f60…3730f4 (6, 201) Dummy {f00=0x00f6, f01=0x0190, f02=» % b L PERR034 FRMT & " L P FSL & r T P FTEXT 'COMPTE D'
0x3730f4…373288 Dummy {f00=0x00f6, f01=0x018e, f02=» & r L P FMEND ' : PERR035 FRMT ' P FSL ' T P FTEXT 'PROVISION INSUFFISANTE' ' P FMEND
0x373288…37341c Dummy {f00=0x00f6, f01=0x0190, f02=» ' PERR037 FRMT ( P FSL ( T P FTEXT 'SOLDE NON NUL' ( ( P FTAB 20 ( P FMEL 'ZZZZZZZZ9,99-',ADBAL ( P FMEND ( PERR038 FRMT ( P FSL ( T P FTEXT 'PAS DE TRANSACTIONS'
0x37341c…3735b0 Dummy {f00=0x00f6, f01=0x4092, f02=» ( h P FMEND ) 0 L P************************************************************************ ) >@ ) MEL 'ZZZZZZZZ9,99-',ADBAL ( P FMEND ( PERR038 FRMT ( P FSL ( T P FTEXT 'PAS DE TRANSACTIONS'
0x3735b0…373744 Dummy {f00=0x00f6, 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
0x373744…3738d8 Dummy {f00=0x00f6, f01=0x0190, f02=» L P FMEND + L P* * + T L P* * + L P*
0x3738d8…373a6c Dummy {f00=0x00f6, 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
0x373a6c…373c00 Dummy {f00=0x00f6, 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
0x373c00…373d94 (6, 202) Dummy {f00=0x00f7, 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
0x373d94…373f28 Dummy {f00=0x00f7, f01=0x0190, f02=» . P L P FNL / L P FTEXT 'CASH BALANCES :' / ` L P FCOPY YCCCY(KW4) / P P FKI 24,
0x373f28…3740bc Dummy {f00=0x00f7, f01=0x0190, f02=» / T L P FNL 0 L P FCOPY YCCCY(KW1) 0 f P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 0 N
0x3740bc…374250 Dummy {f00=0x00f7, f01=0x0190, f02=» 0 L P FCOPY YCCCY(KW2) 1 P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 1 l N P FMEL 'ZZZZZZZ9,99-',ODCASH(KW2)
0x374250…3743e4 Dummy {f00=0x00f7, f01=0x0190, f02=» 1 b P P FKI 24,ME,MINL=1,MAXL=11,NCLR,NEOI,NUM,REWRT 2 " N P FMEL 'ZZZZZZZZ9,99-',ODCASH(KW3) 2 v L P FNL
0x3743e4…374578 Dummy {f00=0x00f7, f01=0x0190, f02=» 2 h L P FMEL '9',WD1 3 , L P FMEND 3 | L P*
0x374578…37470c Dummy {f00=0x00f7, f01=0x0190, f02=» * 3 l L PFMT018 FRMT OPERATOR ACCUMULATORS 4 , L P FSL 4 | L P FTEXT 'CASH DEPOSITS :'
0x37470c…3748a0 Dummy {f00=0x00f7, f01=0x0190, f02=») 4 p L P FNL 5 0 L P FMEND 5 L P*
0x3748a0…374a34 (6, 203) Dummy {f00=0x00f7, f01=0x0190, f02=» * 5 p PERR001 FRMT 6 0 P FSL 6 D P FTEXT 'ERR0R 1' 6 P P FMEND 6 h P* 6 v P* 6 PERR002 FRMT 6 P FSL 6 P FTEXT 'ERR0R 2' 6 P FMEND 6 P* 6 P* 6 PERR003 FRMT 6 P FSL 6 P FTE
0x374a34…374bc8 Dummy {f00=0x00f7, f01=0x0190, f02=» 6 PERR005 FRMT 7 P FSL 7 P FTEXT 'ERR0R 5' 7 ( P FMEND 7 @ L P************************************************************************ 7 N L P* * 7 L P* ERR0R 10
0x374bc8…374d5c Dummy {f00=0x00f7, f01=0x0190, f02=»********************************************************************** 7 PERR010 FRMT 8 N P FSL 8 b P FTEXT 'VALUE NOT IN RANGE' 8 n P FMEND 8 L P************************************************************************ 8 L P*
0x374d5c…374ef0 Dummy {f00=0x00f7, f01=0x0190, f02=»* * 8 L P************************************************************************ 9 P L PERR020 FRMT 9 L P FSL
0x374ef0…375084 Dummy {f00=0x00f7, f01=0x0190, f02=» FMEND 9 L P************************************************************************ : P L P* * : L P* ERR0R 23
0x375084…375218 Dummy {f00=0x00f7, f01=0x0190, f02=»************************************************************************ : L PERR023 FRMT ; P L P FSL ; L P FTEXT 'OPERATOR UNKNOWN
0x375218…3753ac Dummy {f00=0x00f7, f01=0x0190, f02=»************************************************************************ ; L P* * < P L P* ERR0R 24 * < L P*
0x3753ac…375540 Dummy {f00=0x00f7, f01=0x0190, f02=»ERR024 FRMT < L P FSL = P L P FTEXT 'OPERATOR ALREADY LOGGED ON' = L P FMEND
0x375540…3756d4 (6, 204) Dummy {f00=0x00f7, f01=0x0190, f02=»* * = L P* ERR0R 25 * > P L P* * > L P************************
0x3756d4…375868 Dummy {f00=0x00f7, f01=0x0190, f02=» FSL > L P FTEXT 'WRONG PASSWORD' ? P L P FMEND ? L P************************
0x375868…3759fc Dummy {f00=0x00f7, f01=0x0190, f02=»* ERR0R 26 * ? L P* * @ P L P************************************************************************ @ L PERR026 FRMT
0x3759fc…375b90 Dummy {f00=0x00f7, f01=0x0190, f02=» FTEXT 'TERMINAL BLOCKED - CALL SUPERVISOR @ L P FMEND A P L P************************************************************************ A L P*
0x375b90…375d24 Dummy {f00=0x00f7, f01=0x0190, f02=»* * A L P************************************************************************ B P L PERR027 FRMT B L P FSL
0x375d24…375eb8 Dummy {f00=0x00f7, f01=0x009c, f02=» FMEND B L P************************************************************************ C P L PERR027 FRMT B L P FSL
0x375eb8…37604c Dummy {f00=0x00f7, f01=0x2008, f02=» D B L P************************************************************************ C P L PERR027 FRMT B L P FSL
0x37604c…3761e0 Dummy {f00=0x00f7, f01=0x0190, f02=» v T P FKI 10,MINL=1,MAXL=2,NUM,ME,NEOI,APPL=11,REWRT 6 L P FMEL 'ZZ',IDNR1 L P FB F07140
0x3761e0…376374 (6, 205) Opaque[0x194]
0x376374…376508 # DirEnt {nam=»LISTEN«, typ=»UF«, f00=0xffff, f01=0xffff, f02=0x1ef8, f03=0xffff}
0x376374…376508 IdxSect {
0x376374…376508 f00 = 0x00f7 // 0x376374 @0x0
0x376374…376508 f01 = 0x0002 // 0x376376 @0x2
0x376374…376508 gno = [ // 0x376378 @0x4
0x376374…376508 [0x00]: C0x00f7.0x3.0
0x376374…376508 ]
0x376374…376508 }
0x376508…37669c Dummy {f00=0x00f7, f01=0x0190, f02=» LED LSTFMT !!RE 5,$$ENG$$NED$$ !!EN 2 KPF /S > SCR L TRA LSTFMT X SCR j LED LSTFMT v !!RE 5,$$NED$$GER$$ !!EN KPF /S SCR TRA LSTFMT SCR LED LSTFMT !!RE 5,$$GER$$
0x37669c…376830 Dummy {f00=0x00f7, f01=0x002e, f02=» KPF /S SCR ASG /E0,TY10 !!EN 2 KPF /S > SCR L TRA LSTFMT X SCR j LED LSTFMT v !!RE 5,$$NED$$GER$$ !!EN KPF /S SCR TRA LSTFMT SCR LED LSTFMT !!RE 5,$$GER$$
0x376830…3769c4 Dummy {f00=0x00f7, f01=0x2008, f02=» /S SCR ASG /E0,TY10 !!EN 2 KPF /S > SCR L TRA LSTFMT X SCR j LED LSTFMT v !!RE 5,$$NED$$GER$$ !!EN KPF /S SCR TRA LSTFMT SCR LED LSTFMT !!RE 5,$$GER$$
0x3769c4…376b58 Dummy {f00=0x00f7, f01=0x0190, f02=»0 0 0 >
0x376b58…376cec Dummy {f00=0x00f7, f01=0x0190, f02=»
[…0x1…]
0x376e80…377014 (6, 206) Opaque[0x194]
0x377014…3771a8 # DirEnt {nam=»NEDDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1f00, f03=0xffff}
0x377014…3771a8 IdxSect {
0x377014…3771a8 f00 = 0x00f8 // 0x377014 @0x0
0x377014…3771a8 f01 = 0x0014 // 0x377016 @0x2
0x377014…3771a8 gno = [ // 0x377018 @0x4
0x377014…3771a8 [0x00]: C0x00f8.0x0.0
0x377014…3771a8 [0x01]: C0x00f8.0x1.0
0x377014…3771a8 [0x02]: C0x00f8.0x2.0
0x377014…3771a8 [0x03]: C0x00f8.0x3.0
0x377014…3771a8 [0x04]: C0x00f9.0x0.0
0x377014…3771a8 [0x05]: C0x00f9.0x1.0
0x377014…3771a8 [0x06]: C0x00f9.0x2.0
0x377014…3771a8 [0x07]: C0x00f9.0x3.0
0x377014…3771a8 [0x08]: C0x00fa.0x0.0
0x377014…3771a8 [0x09]: C0x00fa.0x1.0
0x377014…3771a8 ]
0x377014…3771a8 }
0x3771a8…37733c Dummy {f00=0x00f8, f01=0x0190, f02=»?2 Lo CR% 6 n " p + 1 b 0 p A
0x37733c…3774d0 Dummy {f00=0x00f8, f01=0x0190, f02=» * 4 , 8 RUBF UIF PUCY UOP bUA1 $UA2 UT1 `UT2 UQQ
0x3774d0…377664 Dummy {f00=0x00f8, f01=0x0190, f02=» 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 * D
0x377664…3777f8 Dummy {f00=0x00f8, f01=0x0190, f02=»
[…0x3…]
0x377cb4…377e48 Dummy {f00=0x00f8, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0 0 0 $0 *0 0 6 7 = V Z >
0x377e48…377fdc Dummy {f00=0x00f8, f01=0x0190, f02=» * &0 0 0 !0 "0 $ %
0x377fdc…378170 Dummy {f00=0x00f8, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0
0x378170…378304 Dummy {f00=0x00f8, f01=0x0190, f02=» 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 >
0x378304…378498 Dummy {f00=0x00f8, f01=0x0190, f02=» ?. 0 1 1 0 W " " E E E 1 1 /0 0 0 T P P 0 ] 0 D F 0 DFT 0 jE ]P F 0 G F "F 0 ^eF ] j] P^ jB ^P C IG(BC 0 ]I0 ^6W|j]P E 0 ]I ] j] P^P JE @P @PjB ^@(BC 0 ]J E _i E j]P E 0 ]J ] j] P^@ JE0
0x378498…37862c Dummy {f00=0x00f8, f01=0x0190, f02=» ( - 1 G1 G #,GD G G ID0 ] I0 D F 0 DFT 0 H H Q_e0 G 4 D F X j DFX D W j D W D j D D 0 D0 4 0 0 4 1 B 9 ; 9J9N6j8 :$6B7 6 8Z9 8 7 7 7 U B 1DSC001FORMFILE 9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99
0x37862c…3787c0 Dummy {f00=0x00f8, f01=0x0190, f02=»-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- BALIE DISK FOUT SPAARREKENING FOUTIEVE TOETS PRESS CONTINUE ONGELDIG NUMMER WAARDE ONGELDIG GEEN TRANSACTIES
0x3787c0…378954 (6, 208) Dummy {f00=0x00f8, f01=0x0190, f02=»VOER FOUT ONVOLDOENDE MIDDELEN REKENING GEBLOKKEERD WAARDE MOET NUL ZIJN MANAGER SLEUTEL NODIG OPERATEUR NIET BEKEND ONUITVOERBAAR VERZOEK INVOER APPARAAT DEFECT ONGELDIGE VERGELIJKING OPENEN BESTAND MISLUKT TOETSENBORD GEBLOKKEERD OPERATOR N
0x378954…378ae8 Dummy {f00=0x00f8, f01=0x0190, f02=»NGEGEVEN WORDEN NOG NIET IN GEBRUIK m VOLUME-NAME ? : DSC PLAATS A4-FORMULIER IN PRINTER PLAATS DAGAFSCHRIFT IN PRINTER SCHERM 01/06/08/20/24 ? e OPEN FORMAT-FILE NOT SUCCESSFULL NIEUWE PAGINA VOOR BOEKJE m DRUK OP GEWENSTE
0x378ae8…378c7c Dummy {f00=0x00f8, f01=0x0190, f02=»FULLY EXECUTED %BENODIGD APPARAAT NIET GESPECIFICEERD !PLAATS SPAARBANKBOEKJE IN PRINTER $ m OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** Y 9 2 CANCEL = 2 W X I/O ERROR WHILE READING OR WRITING FORMAT-FILE & PLAATS KE
0x378c7c…378e10 Dummy {f00=0x00f8, f01=0x0190, f02=»T Z [ ] ^ i !PHILIPS PTS 6371 TERMINAL PRINTER i "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER 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.e0e e e%e&e*e+e1e2e3e4e OPERATOR NR. : e WACHTWOORD :
0x378e10…378fa4 Dummy {f00=0x00f8, f01=0x0190, f02=»9 * TEGENBOEK. & INLEG OPNAME OVERSCHR. * *3c =3d ODR (N=0,Y=1) ? @ < TERMINAL NUM. : 2 TERM.NAAM : FRONT OFFICE( 2 ) TOTAAL OMZET : # /I # / # / # / VALUTA OMZET : # /
0x378fa4…379138 Dummy {f00=0x00f8, f01=0x0190, f02=»6 STEEK KAART IN MSU U TREK KAART DOOR BCR > Q TREK CHEQUE DOOR ODR # REKENING OF KAARTNUMMER: a OPERATOR NAAM : KAS TOTAAL : # / # / # / # / "DRUK CONT VOOR AKKOORD ANDERS CANC $ W KAS TOTAAL :
0x379138…3792cc Dummy {f00=0x00f8, f01=0x0190, f02=»C TOTAAL OMZET : # /I TOTAAL OMZET : # / GROSS TURNOVER: # / TOTAAL OMZET : # / VALUTA OMZET : # /J LP IN SYSTEEM (N=0,J=1) ? $ @ & SYSTEEM VALUTA KODE ? ! 8 ! @ # TEKST ? 8 @ ' TIJD (UUMM) ?
0x3792cc…379460 Dummy {f00=0x00f8, f01=0x0190, f02=» (2) u VERKOOPKOERSEN:(1) "v (2) w LIMIET KOERS 1: (x TRANSACTIE OVERZICHT REK: a TRANS: / / /* BEDRAG : / NIEUW SALDO: / VORIGE TRANS.GEWENST (N=0,J=1)? @ e INLEG SPAARREKENING : STORTEN
0x379460…3795f4 (6, 209) Dummy {f00=0x00f8, f01=0x0190, f02=» NIEUW SALDO : 0 OPERATOR : KAS TOTAAL : # / KAS TOTAAL : # / KAS TOTAAL : # / KAS TOTAAL : # / DRUK CONT VOOR AKK. ANADERS CANC W KAS TOTAAL : # / KAS TOTAAL : # / KAS T
0x3795f4…379788 Dummy {f00=0x00f8, f01=0x0190, f02=»C VALUTA NAAM : r VALUTA KODE : s REL.: y INKOOPKOERS :(1) "t INKOOPKOERS :(2) u VERKOOPKOERS :(1) "v VERKOOPKOERS :(2) w LIMIET KOERS 1 : (x GELDWISSELING (VERKOOP) (INKOOP) KOERS: # $v $t / s #y
0x379788…37991c Dummy {f00=0x00f8, f01=0x0190, f02=»M : 8 @ r VALUTAKODE : 8 @ s REL.: y INKOOPKOERSEN :(1) "t (2) !u VERKOOPKOERSEN:(1) "v (2) !w LIMIET KOERS 1: )x OVERSCHRIJVING VAN REKNR: T a a , SALDO BOEKJE: .c REGEL:
0x37991c…379ab0 Dummy {f00=0x00f8, f01=0x0190, f02=»RSCHRIJVING VAN REKENING: T a a + SALDO BOEKJE: .c REGEL: " e KREDIETGRENS: - BEDRAG : . NIEUW SALDO : 0 OVERSCHR. NAAR REKENING : b Q" OPEN SPAARREKENING NUMMER : OPENEN PRIVE REKENING NUMMER: a N
0x379ab0…379c44 Dummy {f00=0x00f8, f01=0x0190, f02=» - OPERATOR NAAM : 8 @ WACHTWOORD : @ TAAL : @ KAS TOTAAL : # / # / # / # / !TOTALEN OP NUL ZETTEN (N=0,J=1) ? # @ e OVERZICHT SPAARREK.NR. : OVERZICHT REK.COUR,
0x379c44…379dd8 Dummy {f00=0x00f8, f01=0x0190, f02=» LAATSTE TRANS.GEWENST(N=0,J=1)? @ e VERANDEREN SPAARREK.NR. : VERANDEREN PRIVE REK.NR. : a NAAM : 8 @ ADRES : 8 @ PLAATS : 8 @ KENWOORD: 8 @ @ KREDIETGRENS : / !
0x379dd8…379f6c Dummy {f00=0x00f8, f01=0x0190, f02=» SALDO BOEKJE : KREDIETGRENS : / WACHTWOORD : KAARTNUMMER : OPNAME SPAARREKENINGNR.: OPNAME PRIVE REKENINGNR.: a - WACHTWOORD : ' Q NAAM : - CHEQUE NR. : _ ) SALDO BOEKJE: .c REGE
0x379f6c…37a100 Dummy {f00=0x00f8, f01=0x0190, f02=»ING NR. : a - WACHTWOORD : 2 Q NAAM : - CHEQUE NR. : _ * SALDO BOEKJE: .c REGEL # e KREDIETGRENS: - BEDRAG : . NIEUW SALDO : 0 ALPHA TOETSENBORD (N=0,J=1) ? ! @ 8 GEDEELDE PRINTER
0x37a100…37a294 (6, 210) Dummy {f00=0x00f9, f01=0x0190, f02=»? ! @ < TERMINAL NUM. : 2 8 TERMINAL NAAM ? 5 ' TERMINAL NAAM : FRONT OFFICE( 2 ) KAS INGELEGD : # / KAS OPGENOMEN : # / TOTAAL CHEQUES : # / OVERSCHRIJVINGEN : # / VALUTA INKOOP
0x37a294…37a428 Dummy {f00=0x00f9, f01=0x0190, f02=» ; c BLOKKEREN SPAARREK.NR. : X DEBLOKKEREN SPAARREKNR.: < c BLOKKEREN PRIVE REK.NR.: DEBLOKKEREN PRIVE REKNR.: a NAAM : HUIDIG SALDO : / SALDO BOEKJE : / KREDIETGRENS : / 8 COMMENT : @ @ $ "DRUK CONT VOOR AK
0x37a428…37a5bc Dummy {f00=0x00f9, f01=0x0190, f02=»BLOKKEREN e VERANDEREN REK. f VERANDER KOERS g REKENINGOVERZ. h DAGAFSCHRIFT i AFSLUITEN OPER. j SLUITEN SYSTEEM k GELDWISSELING l KOERS OVERZICHT m REKENINGENLIJST ` i Y W X ! VERANDEREN SPAARREKENINGNR.: VERANDEREN PR
0x37a5bc…37a750 Dummy {f00=0x00f9, f01=0x0190, f02=» STATUS : # LAATSTE TRANSACTIE : LAATSTE GEPRINT : TOTAAL INGELEGD : - TOTAAL OPGENOMEN : - ********* .DEMONSTRATIE VAN PHILIPS PTS 6346 BEELDSCHERM ********* PHILIPS PTS 6346 BEELDSCHER
0x37a750…37a8e4 Dummy {f00=0x00f9, f01=0x0190, f02=»()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NEDERLANDSE VERSIE : #@[ ]`{|}~ SCHERMGROOTTE: #20 REGELS / 64 CHARACTERS PER REGEL NAAR KEUZE : #24 REGELS / 80 CHARACTERS PER REGEL NAAM
0x37a8e4…37aa78 Dummy {f00=0x00f9, f01=0x0190, f02=»R : , e - ' !$2d_MU)Y`H&CJ# (I 5"%9 X P^b<WZOa:4*[c7?+NTKGE>10@,DFQ]VSRL.......................... 0 !0 " % + 1 7 = D K S [ c l u
0x37aa78…37ac0c Dummy {f00=0x00f9, f01=0x0190, f02=» ) @ X p # ? y ! ! " # # ; # ^ % % % ( + 0 C 4 s 4 ? A B [ G K Q / S T T ' ` { j r E : P v + T d 8
0x37ac0c…37ada0 Dummy {f00=0x00f9, f01=0x0190, f02=» V ? V 2 & V~ >A >A 2 $ BX & V D 9a 9 V @ W @ ( T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4
0x37ada0…37af34 (6, 211) Dummy {f00=0x00f9, f01=0x0190, f02=»T 9p/ : < #/ C _ ( BX ' ? < > C : 9 > : 9 8@ : _ A &:K : 9l/ : 9l/ > : 9l/ _ _. 9l/ : 9l C ( B B @ C ( ( B
0x37af34…37b0c8 Dummy {f00=0x00f9, f01=0x0190, f02=»_> W ; : 9l/ : _ < < <l P BX <H : 9 W < <l BX &P B V C / <H "!@ V : < <| C C W < C C J9 ' W 781"&$ 39#$;< '()*+,-! < < <l BX P _D < B BX 'W < ( Wb BX <|
0x37b0c8…37b25c Dummy {f00=0x00f9, f01=0x0190, f02=» B % P C + =v ? ; I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : < ;V N ;@ C : C B B P C ;z : "!@T V V I C B : ( ' P ; I : < <l % Y A C BX & V
0x37b25c…37b3f0 Dummy {f00=0x00f9, f01=0x0190, f02=» D4 V H V ;D:B " : _, BX C : : < <| "! P > : A P C W $0 P Vv C < : C "!@P ") # B C B % C : A #0 T & C C : = C C : & T ;d# P V P
0x37b3f0…37b584 Dummy {f00=0x00f9, f01=0x0190, f02=» P>^ >tPR L>J R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 >t A #0 T B ' : Vv B B = : A P C
0x37b584…37b718 Dummy {f00=0x00f9, f01=0x0190, f02=»? ? o* W V 7 @ "! P o& P W ?j @?,R VH Y @x pVP 9c D> BX A Q > W FL :aW, @?,YRP U @?,]^ V @?,]h U _n V 2 P V W< _ 2 # ;B A* V T PW V P L , V
0x37b718…37b8ac Dummy {f00=0x00f9, f01=0x0190, f02=» V 6 V % V E @ &' T 2 % 7_ 2 # PH L .PB BX 2" &] Y $! 6P Q $ T 9BP @ _ _ W ? 6 @ &" T 7 $ V P o& W _ > ? D V & ? H?, 'W 'W '_6 :l
0x37b8ac…37ba40 Dummy {f00=0x00f9, f01=0x0190, f02=» W # D4 LA E V $ W D V LA , W 6 2 DJW$ " P& Pd" # D4 ;b Wv " ;d# _ [ v [ oj BX ov Z Z : R ; BX 6 : F _v V :B , (V ; H
0x37ba40…37bbd4 (6, 212) Dummy {f00=0x00f9, f01=0x0190, f02=» V & Z 4 D : Z 4 " 2@P : [ [ BX & @ $! P V Z V [ 6 [ Z 7 A Z 7 : ( :A ( @ &" P ! P [ :;H 2 B B ;h D> : ; V Y : 2!
0x37bbd4…37bd68 Dummy {f00=0x00f9, f01=0x0190, f02=» + : * & !@P `1` P F Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <#
0x37bd68…37befc Dummy {f00=0x00f9, f01=0x0190, f02=» +_ +Q F _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b H P P PF P 0 - P0 _ 4 V W Q P
0x37befc…37c090 Dummy {f00=0x00f9, f01=0x0190, f02=»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 : V &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y
0x37c090…37c224 Dummy {f00=0x00f9, f01=0x0190, f02=»W P 9 S W _ V P W T V E + : & 6 V [ [ [ [ $ [ [ >h [ [ M G@ M G@ M D Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P M D V H )_ M J _X z R z
0x37c224…37c3b8 Dummy {f00=0x00f9, f01=0x0190, f02=»Vv !0 Vr" Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 V [ [ [ [ $ [ [ &! P L M G@ M G@ M D z
0x37c3b8…37c54c Dummy {f00=0x00f9, f01=0x0190, f02=» [ M D { R [ _ M D M J Z ! Z $ Z %_N [ Q* M D M F R [ Z { M D z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !!
0x37c54c…37c6e0 Dummy {f00=0x00f9, f01=0x0190, f02=»N K K K K V K : BX M M M A V O N O2 V Z P 2 " T W "@T '?W "? HMN" K :e J J " J _Z Z O [ Z P o& [ V V 7_ Z O2 @ "! P o&
0x37c6e0…37c874 (6, 213) Dummy {f00=0x00f9, f01=0x0190, f02=» J Qx : Pn 4 ! Th_ PX 4 WT K O WJ O W +_ O O K W. _& X ;>W X & ;: J K : V : J T V 1 : + BX [ [ < !AAP !TTT W !**T * [ R !FFP !EET W IQ 6 * B Z 9 !
0x37c874…37ca08 Dummy {f00=0x00f9, f01=0x0190, f02=» ; O _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? V Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W P 8 !++P !-- z ;$# + ^" _( |`. PT*AXYZ9 OH Q : ! P ! P
0x37ca08…37cb9c Dummy {f00=0x00f9, f01=0x0190, f02=» : TX M : { : T@$0T S Pb 9 _ T@$0T [ T@$0T Z : R$ P $ 1T Y TdW 5 _& : T@$0TH $ R W R # P W ) V E TX$0T Wr W W
0x37cb9c…37cd30 Dummy {f00=0x00f9, f01=0x0190, f02=» G^ : BX BX#03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : S A #03 T $_X S _^ W V Tv p *1 TID ADDR OP CR LVL MODIFIED OPERAND
0x37cd30…37cec4 Dummy {f00=0x00f9, f01=0x0190, f02=» ( ATl ATv ( Tv p ATl ) Y V ATz T~ V V Y . 1 V Y v Y ATl : T W T 2 T Y @ &# T R Y BX Y & Y T Q Tv ATlW> T T V D ! )0 1 @ &# T 6 V ^
0x37cec4…37d058 Dummy {f00=0x00f9, f01=0x0190, f02=»W8 W4 W0 W, W( W$ W W W W W W W W W T ** ATx AT| ER AT R AT T Y W R 4 Y 4 $ ATl T U 4 - _ VH T @Tl [$ ?j ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL TYPE ODD WORD ADDR MISSING ENTRY
0x37d058…37d1ec Dummy {f00=0x00f9, f01=0x0190, f02=» DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED
0x37d1ec…37d380 Dummy {f00=0x00f9, f01=0x0190, f02=»SC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W 4 6 <a R 9a V Z : V @Z P ( _ @ P @ Pj Pf [ V $ $T$ D BR V T D P T D @PL E @W . @ P$ Z $ $P BT , D E @
0x37d380…37d514 (6, 214) Dummy {f00=0x00fa, f01=0x0190, f02=»( ] : TB( ^ : A A E AZ V A @ "# P ( R4 TB( ] ( AZ @ V P ( R W :
0x37d514…37d6a8 Dummy {f00=0x00fa, f01=0x0190, f02=»SC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W 4 6 <a R 9a V : V @Z P ( _ @ P @ P P V $ $T D R V T D P T D P E W . @ P 4
0x37d6a8…37d83c Dummy {f00=0x00fa, f01=0x0190, f02=» ]n m D "! A] m m @ @ @] P ( ]p V m R ]p V W Z T] _" = m T ]p m m m W m , m 9a m @] P m m m m m @ P m @ m A A] o A] "V # ( ]n m A] P UW T
0x37d83c…37d9d0 Dummy {f00=0x00fa, f01=0x0190, f02=»m _ _ m _ NO! A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ i P A_ A_ k _ ` ,` +` -` ;` :` (`F .` ]p m X " , A_ L A_ L @ A_ A_ _T i X ,T i X ) A_ A_ n k `x ` ;`
0x37d9d0…37db64 Dummy {f00=0x00fa, f01=0x0190, f02=»_ A_ " _r @_ m ^ T @] A_ @] A_ @] A_ @] A_ @_ Al @_ A] @_ A] @_ A] P lR W @_ T @_ Z d @l A] m c W m W 0 m Al m W m Al Al @l m W m @] A_ @] A_ _x ]p A] PZ @_ & m 0 m P P m
0x37db64…37dcf8 Dummy {f00=0x00fa, f01=0x0190, f02=»m m W m m m B "T" @] A_ @] A_ @] A_ @] A_ W @_ T @_ W @_ @_ @_ R d >a Al A] @_ A] m @_ A] P lR W @_ T @_ Z d Al @o ^ @l A] m m m k m m lB m Am ^ @_ R V ;a Q m _ n 1
0x37dcf8…37de8c Dummy {f00=0x00fa, f01=0x0190, f02=» @] A_ @] A_ @] A_ @] A_ @_ Al @_ A] @_ A] @_ A] P lR W @_ T d @_ V @l A] 0 m m _ P _r @_ P @_ 1 ^ m m Al @l m m @] A_ @] A_ _ @] P @_ V @ ( _r V " @_ T @ k TP @_ P @_ Al A]
0x37de8c…37e020 Dummy {f00=0x00fa, f01=0x0190, f02=»ah e &9d! ) e W P$ &9d e & e _ e & e ^ _r Ae Ae m @o Z m " ! U 0 Ae U e _ m "P` @_ @_ T @ i PF R % < < m ! m m _ T @_ P @_ ! 5 = ^ _r _r hd ^ P @_ _r
0x37e020…37e1b4 (6, 215) Dummy {f00=0x00fa, f01=0x0190, f02=» @_ @_ T I @_:P hd @ h _ A] _| A @_ A ^ @_ ! A?, ^ Pd @_ @_ PL @_ P n n k g R @_ T @ g V k Rt ) I I @ I B A W P g RV )W i A ^ , Ag Ag :B Ag Q (P _ H B @_ T @ H Ag " _r
0x37e1b4…37e348 Dummy {f00=0x00fa, f01=0x0190, f02=»_ V @ H B W # + C " [ B Ah Ah :B Ah _r (P _ B @_ @_ @_ P h6 _| @_ V @ Q B 1 @_ Q Q @ A[ " [ ( R$ ( @_ V @ H B ) I B " _r $ % " n # C C C C *T W #T A_ n
0x37e348…37e4dc Dummy {f00=0x00fa, f01=0x0190, f02=» B B B B " _r Aj Aj Aj Aj Aj Aj Aj k R Q ! 9D# 9hP Q " ;B 2 Pl L ?b j P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL j j W C "
0x37e4dc…37e670 Dummy {f00=0x00fa, f01=0x0190, f02=» _r $ C " :T n n n " " Ak A_ .T @] P m P " A_ " m X X _r " , , Ak Ak :B Ak Q (P _ # # H Ak " Am Am 4 m m 4 @m IlB T Am Al Al T Am T lR @_ R d Am N @l
0x37e670…37e804 Dummy {f00=0x00fa, f01=0x0190, f02=» :Y :Z n $P WH n Am Am 0R 9Q 0 Am :B n _" Am " n AmZ 0R$ 9U AR FQ 0:D AmZ n _* 'T n :H_ AmZ " Am Am 4 m m T Am Am " , m "! R _U .WV Am : m A
0x37e804…37e998 Dummy {f00=0x00fa, f01=0x0190, f02=»( @n Anf " nh n^ n ( A( n ( Anf " An n @n n P An n ( n An " !n 1n n Q (P _ # # H A " A A 4 4 @ I T A A A T A T @ ( R :
0x37e998…37eb2c Dummy {f00=0x00fa, f01=0x0190, f02=» J q ( @ ( ^ ( o z t J F D ( ( p 2 6 2 2 z 2 2 2 p < f < ) F f 2 J F D F F " F & F * R P , P 2 P N P _ z P t P P p J F D P Z @ Z Z Z Z Z d " d / d 4
0x37eb2c…37ecc0 Dummy {f00=0x00fa, f01=0x0190, f02=» $ $ # D > j J F D W b > { > 4 B * F * Q q ( J F D , 8 D d * 6 B b v J F D H N H R V , , 2 , S 6 . 6 K 6 h 6
0x37ecc0…37ee54 (6, 216) Opaque[0x194]
0x37ee54…37efe8 # DirEnt {nam=»GERDEF«, typ=»LM«, f00=0xffff, f01=0xffff, f02=0x1f50, f03=0xffff}
0x37ee54…37efe8 IdxSect {
0x37ee54…37efe8 f00 = 0x00fa // 0x37ee54 @0x0
0x37ee54…37efe8 f01 = 0x0014 // 0x37ee56 @0x2
0x37ee54…37efe8 gno = [ // 0x37ee58 @0x4
0x37ee54…37efe8 [0x00]: C0x00fa.0x2.0
0x37ee54…37efe8 [0x01]: C0x00fa.0x3.0
0x37ee54…37efe8 [0x02]: C0x00fb.0x0.0
0x37ee54…37efe8 [0x03]: C0x00fb.0x1.0
0x37ee54…37efe8 [0x04]: C0x00fb.0x2.0
0x37ee54…37efe8 [0x05]: C0x00fb.0x3.0
0x37ee54…37efe8 [0x06]: C0x00fc.0x0.0
0x37ee54…37efe8 [0x07]: C0x00fc.0x1.0
0x37ee54…37efe8 [0x08]: C0x00fc.0x2.0
0x37ee54…37efe8 [0x09]: C0x00fc.0x3.0
0x37ee54…37efe8 ]
0x37ee54…37efe8 }
0x37efe8…37f17c Dummy {f00=0x00fa, f01=0x0190, f02=»?b Mo CR& 6> n " p + 1 b 0 p A
0x37f17c…37f310 Dummy {f00=0x00fa, f01=0x0190, f02=» * 4 , 8 RUBF UIF PUCY UOP bUA1 $UA2 UT1 `UT2 UQQ
0x37f310…37f4a4 Dummy {f00=0x00fa, f01=0x0190, f02=» 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 * D
0x37f4a4…37f638 Dummy {f00=0x00fa, f01=0x0190, f02=»
[…0x3…]
0x37faf4…37fc88 Dummy {f00=0x00fa, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0 0 0 $0 *0 0 6 7 = V Z >
0x37fc88…37fe1c Dummy {f00=0x00fa, f01=0x0190, f02=» * &0 0 0 !0 "0 $ %
0x37fe1c…37ffb0 Dummy {f00=0x00fa, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0
0x37ffb0…380144 Dummy {f00=0x00fa, f01=0x0190, f02=» 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 >
0x380144…3802d8 Dummy {f00=0x00fa, f01=0x0190, f02=» ?^ 0 1 1 0 W " " E E E 1 1 ,0 0 0 T P P 0 ] 0 D F 0 DFT 0 jE ]P F 0 G F "F 0 ^eF ] j] P^ jB ^P C IG(BC 0 ]I0 ^6W|j]P E 0 ]I ] j] P^P JE @P @PjB ^@(BC 0 ]J E _i E j]P E 0 ]J ] j] P^@ JE0
0x3802d8…38046c Dummy {f00=0x00fa, f01=0x0190, f02=» ( - 1 G1 G #,GD G G ID0 ] I0 D F 0 DFT 0 H H Q_e0 G 4 D F X j DFX D W j D W D j D D 0 D0 4 0 0 4 1 B 9 ;P9z9~6 8P:T6r8&6>8 928>7 7 8 U B 1DSC001FORMFILE 9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99
0x38046c…380600 Dummy {f00=0x00fa, f01=0x0190, f02=»-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZ9,99ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZZZZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- SPARKONTO I/O ERROR FELD EINGEBEN KONTO GESPERRT PLATTEN-FEHLER PRESS CONTINUE GLEICHE KEY
0x380600…380794 (6, 218) Dummy {f00=0x00fb, f01=0x0190, f02=» TRANSAKTIONEN WERT MUSS NULL SEIN FILE-OPEN ERFOLGLOS EOI-KEY UNZULAESSIG SALDO NICHT NULL 1 UNGENUEGENDE DECKUNG RECORD KEY UNGUELTIG TAGESAUSZUG EINLEGEN AUSFALL EINGABEGERAET UNGUELTIGER VERGLEICH GESCHUETZTER DATENSATZ BEDIENER NR. :
0x380794…380928 Dummy {f00=0x00fb, f01=0x0190, f02=» : DSC BEDIENER BEREITS ANGEMELDET BITTE FUNKTION EINGEBEN : VORHANDENER ZEICHENVORRAT: TERM. GESPERRT, REVISION VERST, A4-FORMULAR IN DRUCKER EINLEGEN NOCH NICHT IMPLEMENTIERT m OPEN FORMAT-FILE NOT SUCCESSFULL BELEG IN DRUCKER EI
0x380928…380abc Dummy {f00=0x00fb, f01=0x0190, f02=»LLY EXECUTED PRUEFUNG NEUER SPARBUCHSEITE m SPARBUCH IN DRUCKER EINLEGEN $ m BILDSCHIRM 01/06/08/20/24 ? e OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** I/O ERROR WHILE READING OR WRITING FORMAT-FILE Y 9 2 ABBRUCH = 2
0x380abc…380c50 Dummy {f00=0x00fb, f01=0x0190, f02=»ILIPS PTS 6371 TERMINAL PRINTER i &" ENDLOSFORMULAR IN GTP EINLEGEN ENDLOSFORMULAR IN LP EINLEGEN "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER e e e e e e e e e e e e e e e"e!e#e$e'e(e,e)e.e1e/e2e e e%e&e*e+e3e4e5e6e BEDIENER NR.
0x380c50…380de4 Dummy {f00=0x00fb, f01=0x0190, f02=» NAME TERM.: SCHALTER TRM.( 2 ) SPEZIELLER ZEICHEN : 0 1 2 3 4 5 6 7 8 9 : ; < 0 1 2 3 4 5 6 7 8 9 * UMGEKEHRT / EINZAHLUNG AUSZAHLUNG UEBERWEISUNG * *5c =5d GESAMTUMSATZ : # 1I # 1 #
0x380de4…380f78 Dummy {f00=0x00fb, f01=0x0190, f02=» : DATUM (TTMMJJ): +e T3 6 STECHE KARTE IN MSU Z ZIEHE KARTE DURCH BCR A Q ZIEHE SCHECK DURCH OCR $ KONTO ODER KARTENNUMMER : a NAME BEDIENER : KASSENBESTAND : # 1 # 1 # 1 # 1 TASTE CONT ODER TA
0x380f78…38110c Dummy {f00=0x00fb, f01=0x0190, f02=» 1 TASTE CONT ODER TASTE CANCEL GESAMTUMSATZ: # 1I GESAMTUMSATZ: # 1 GESAMTUMSATZ: # 1 GESAMTUMSATZ: # 1 WAEHRUNGSUMSATZ: # 1J MLP INTEGRIERT (N=0,J=1) $ @ & SYSTEM WAEHRUNG ? ! 8 ! @ # TEXT ? 8
0x38110c…3812a0 Dummy {f00=0x00fb, f01=0x0190, f02=» y ANKAUFSKURSE :(1) "t (2) u VERKAUFSKURSE :(1) "v (2) w WAEHRUNGSLIMIT: (x TRANSAKTION ABFRAGE-KONTONR: a TRANS. : / / /* BETRAG : 1 NEUER SALDO: 1 VORH. TRANS. VERLANGT (N=0,J=1) @ e
0x3812a0…381434 (6, 219) Dummy {f00=0x00fb, f01=0x0190, f02=»BESTAND: # 1 TASTE CONT ODER TASTE CANC W KASSENBESTAND: # 1 KASSENBESTAND : # 1 KASSENBESTAND : # 1 KASSENBESTAND : # 1 SCHECK SALDO : # 1 TASTE CONT ODER TASTE CANC WAEHRUNGSNAME: r WAEHRU
0x381434…3815c8 Dummy {f00=0x00fb, f01=0x0190, f02=»KURSE:(2) w WAEHRUNGSLIMIT: (x EINZAHLUNG - SPARKONTO: EINZAHLUNG - GIROKONTO: a . R+ BUCH SALDO : /c ZEILE: # e NAME : BETRAG : / NEUER SALDO : 2 GELDWECHSEL (VERKAUF) (ANKAUF)
0x3815c8…38175c Dummy {f00=0x00fb, f01=0x0190, f02=» (N=0,J=1)? @ h UEBERWEISUNG AB KONTO: T a a + BUCH SALDO : /c ZEILE: e KREDIT LIMIT: . BETRAG : / NEUER SALDO: 2 UEBERWEISUNG AUF KONTO: b WAEHRUNGSNAME : 8 @ r WAEHRUNGSCODE : 8 @
0x38175c…3818f0 Dummy {f00=0x00fb, f01=0x0190, f02=»EHRUNGSLIMIT: )x Q EROEFFNE SPARKONTO NUMMER : EROEFNNE GIROKONTO NUMMER : a NAME : ADRESSE : ORT : Q KENNWORT: @ ' KART.: KREDIT LIMIT: - UEBERWEISUNG AB KONTO : T a a +
0x3818f0…381a84 Dummy {f00=0x00fb, f01=0x0190, f02=»WEISUNG AUF KONTO: b ! AENDERN SPARKONTO NUMMER : AENDERN GIROKONTO NUMMER : a NAME : 8 @ ADRESSE : 8 @ ORT : 8 @ KENNWORT: 8 @ @ KREDIT LIMIT : 1 NAME BEDIENER : 8 @ KENNWOR
0x381a84…381c18 Dummy {f00=0x00fb, f01=0x0190, f02=» 1 !AKK. AUF NULL STELLEN (N=0,J=1) ? # @ e ABSCHLUSS SPARKONTO NR. : ABSCHLUSS GIROKONTO NR. : a NAME : AKTUELLER SALDO : . BUCH SALDO : KREDIT LIMIT : . KENNWORT : KARTENNUMMER :
0x381c18…381dac Dummy {f00=0x00fb, f01=0x0190, f02=»LDO : KREDIT LIMIT : 1 STATUS : LETZTE TRANS.VERLANGT(N=0,J=1) @ e AUSZAHLUNG SPAR GIRO KONTO : a - KENNWORT : , Q NAME : - SCHECK NR. : _ + BUCH SALDO : /c Z
0x381dac…381f40 Dummy {f00=0x00fb, f01=0x0190, f02=»AUSZAHLUNG - GIROKONTO: a - KENNWORT : ' Q NAME : - CHEQUE NR. : _ * BUCH SALDO : /c ZEILE: e KREDIT LIMIT: . BETRAG : / NEUER SALDO: 2 ALPHANUM. TASTATUR (N=0,J=1) ? ! @ 8 GEMEINS. DRUCKEN
0x381f40…3820d4 (6, 220) Dummy {f00=0x00fb, f01=0x0190, f02=») ? ! @ < TERMINAL NR. : 2 8 NAME TERMINAL ? 5 ' NAME TERMINAL : SCHALTER TRM( 2 ) EINZAHLUNGEN : # 1 AUSZAHLUNGEN : # 1 AKKUM. SCHECKS : # 1 AKKUM. UEBERWEIS. : # 1 WAEHRUNGSVER
0x3820d4…382268 Dummy {f00=0x00fb, f01=0x0190, f02=» 1 C c SPERREN SPARKONTO NUMMER : a ENTSPERREN SPARKONTO NUMMER: A c SPERREN GIROKONTO NUMMER : ENTSPERREN GIROKONTO NUMMER: a NAME : AKTUELLER SALDO : 1 BUCH SALDO : 1 KREDIT LIMIT : 1 8 BEMERKUNG : @
0x382268…3823fc Dummy {f00=0x00fb, f01=0x0190, f02=» KONTO SPERREN d K. ENTSPERREN e KONTO AENDERN f WAEHR. AENDERN g KONTO ABFRAGE h TAGESAUSZUG i BED. ABSCHLUSS j SYST. ABSCHLUSS k TAGESWAEHRUNG l WAEHR. ABFRAGE m KONTEN LISTEN ` i Y W X ! AENDERN SPARKONTO NUMMER :
0x3823fc…382590 Dummy {f00=0x00fb, f01=0x0190, f02=» : 1 STATUS : # LETZTER TRANSAKTION : LETZTER GEDRUCKT : AKKUM. EINZAHLUNGEN : . AKKUM. AUSZAHLUNGEN : . ********* -VORFUEHRUNG PHILIPS PTS 6344 BILDSCHIRMGERAET ********* !PHILIPS PTS 6344 B
0x382590…382724 Dummy {f00=0x00fb, f01=0x0190, f02=»ER ZEICHENVORRAT : !#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONALER VERSION : #@[ ]`{|}~ BILDSCHIRMGROESSE : 20 ZEILEN / 64 ZEICHEN PER ZEILE OPTION : !24 LINES / 80
0x382724…3828b8 Dummy {f00=0x00fb, f01=0x0190, f02=» ZWEIGSTELLENR : e KONTO NR. : , 0e ' :d_MV(Z`H&CJ - 0I #.+%6 " ! W[S]b=X Oa98)Yc4>*NTKGF@$1?/EDP^URQL22222222222222222222222222 0 !0 " % +
0x3828b8…382a4c Dummy {f00=0x00fb, f01=0x0190, f02=» * ; L ] p + B Y p # @ ^ | " " " " # " # E % h % % & & & # 0 I 4 y 5 @ B " E d G K Q ; T W 7 ` d x W } L Z + 7
0x382a4c…382be0 Dummy {f00=0x00fb, f01=0x0190, f02=» P _ V ? B #0 T B #0 T V ? W 2 & V >A >A 2 $ B & V D 9a 9 V @ W @ ( T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ?
0x382be0…382d74 (6, 221) Dummy {f00=0x00fb, f01=0x0190, f02=»T I Y ? ( <H # 9 2! P T 9 / : <H #/ C _ ( B ' ? <H > C : 9 > : 9 8p : _ A &:K : 9 / : 9 / > : 9 / _ _. 9 / : 9 C ( B
0x382d74…382f08 Dummy {f00=0x00fb, f01=0x0190, f02=»: <H C _ 9 ( C _> W ; : 9 / : _ <H < < P B <H : 9 W <H < B &P B V C / <H "!@ V : <H < C C W < C C J: ' W 781"&$ 39#$;< '()*+,-! < = < B P
0x382f08…38309c Dummy {f00=0x00fb, f01=0x0190, f02=» " W ( ' P. ; P$ "! P > W B % P C + = ? < I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : <H ; N0 ;p C ; C B B P C ; : "!@T W V I C B : ( ' P < I :
0x38309c…383230 Dummy {f00=0x00fb, f01=0x0190, f02=» V : 2 ' W 2 6 2 @ &" T # ' ?D DzW.' #? Dd V H W ;D:B " : _, B C : : <H < "! P > : A P C W $0 P V C =$ : C "!@P ") # B C B % C : A #0 T & C C : =D C C
0x383230…3833c4 Dummy {f00=0x00fb, f01=0x0190, f02=» 'W V B B " = : P> > PR L>z R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 > A #0
0x3833c4…383558 Dummy {f00=0x00fb, f01=0x0190, f02=»K @ A A A A A`? A A N*S|S R R S|Rz@ A A A A @ @ @ @ oZ W V 7 @ "! P oV P W ? @? R Vx Z @ pVP 9c D? B A Q ? W F| :aW, @? YRP U @? ]^ V2 @? ]h U _n W 2 P V W< _ 2
0x383558…3836ec Dummy {f00=0x00fb, f01=0x0190, f02=»^t D?< 2 ! 9BP V T PW V P D $ V 6 V % V E @ &' T 2 % 7_ 2 # PH L .PB B 2" &] Y $! 6P Q $ T 9BP @< _ _ W @ 6 @ &" T 7 $ V P oV W _ > ? D V &
0x3836ec…383880 Dummy {f00=0x00fb, f01=0x0190, f02=» # Dd:H 2 T Z L LA D V, W # Dd LA E V $ W D V LA , W 6 2 DzW$ " P& Pd" # Dd ;b Wv " ;d# _ [ v [ o B o Z Z : R ; B 6
0x383880…383a14 (6, 222) Dummy {f00=0x00fc, f01=0x0190, f02=»# D ; 6 V B : Z L # & V V & Z 4 D : Z 4 " 2@P : [ [ B & @ $! P V Z V [ 6 [ Z 7 A Z 7 : ( :A ( @ &" P ! P [ :;H 2
0x383a14…383ba8 Dummy {f00=0x00fc, f01=0x0190, f02=»;f" #?_" W V # V " T & T + : * & !@P `1` P F Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =#
0x383ba8…383d3c Dummy {f00=0x00fc, f01=0x0190, f02=» #0 V P8" T * & : * & !`P :J +_ +Q F _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b H P P
0x383d3c…383ed0 Dummy {f00=0x00fc, 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 : V &9d! + P( & T 9d! T 7 V Y
0x383ed0…384064 Dummy {f00=0x00fc, f01=0x0190, f02=» V !0 V " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 V [ [ [ [ $ [ [ >h [ [ MDGp MDGp MDE Z PP [ 9a Z $" T 9d! P6 P( [ Z w
0x384064…3841f8 Dummy {f00=0x00fc, f01=0x0190, f02=» 59D_ " P P [ ! :d" 5 : 0 V !0 V " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 V [ [ [ [ $ [ [
0x3841f8…38438c Dummy {f00=0x00fc, f01=0x0190, f02=»MDF Q MDJ P _ T { [ MDM& [ Q@ [ MDE { R [ _ MDE MDJ Z ! Z $ Z %_N [ Q* MDE MDF R [ Z { MDE z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H
0x38438c…384520 Dummy {f00=0x00fc, f01=0x0190, f02=»RdR"RRRNO N O N O Q Q P O RdO N 6 N K K K K V K : B M M N A V O< N Ob V Z P 2 " T W "@T '?W "? HM~" K :e J J " J _Z Z O< [ Z P oV [ V
0x384520…3846b4 (6, 223) Dummy {f00=0x00fc, f01=0x0190, f02=» V : 4 4 : M J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K P WJ O W +_ O O K W. _& X ;nW X & ;j J K : V : J T V 1 : + B [ [ < !AAP !TTT W !**T * [
0x3846b4…384848 Dummy {f00=0x00fc, f01=0x0190, f02=» ! XBW *X& FWH :P"# U J V 1 P !00T ; P _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? V Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W P 8 !++P !-- z ;$# + ^" _( |`.
0x384848…3849dc Dummy {f00=0x00fc, f01=0x0190, f02=»:I : Rn : P & _ &X _ : V : : : T N. : { : Tp$0T S Pb 9 _ Tp$0T [ Tp$0T Z : R$ P $ 1T Y TdW 5 _& : Tp$0TH $ R W R # P W
0x3849dc…384b70 Dummy {f00=0x00fc, f01=0x0190, f02=»" 8 R ! :DW ! 9 R R _. : G : B B #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : S A #03 T $_X S _^ W W T p *1 TID ADDR OP CR LV
0x384b70…384d04 Dummy {f00=0x00fc, f01=0x0190, f02=» AT T ( @T ' $ * AT T( T ( AT AT ( T p AT ) Y V AT T V V Y . 1 V Y v Y AT : U W U 2 T Y @ &# T R Y B Y & Y U Q T AT W> U
0x384d04…384e98 Dummy {f00=0x00fc, f01=0x0190, f02=»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 U ** AT AT ER AT R AT T Y W R 4 Y 4 $ AT T U 4 - _ Vx T @T [T ? ILLEGAL OPERATION MIXED ARITHMET
0x384e98…38502c Dummy {f00=0x00fc, f01=0x0190, f02=» STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BUFFER NOT ALLOWED ILLEGAL CONTROL CODE
0x38502c…3851c0 Dummy {f00=0x00fc, f01=0x0190, f02=»T REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W 4 6><a R 9a V ZB : W @Z@P ( _ @ P @ Pj Pf [ V $ $T$ D BR V T D P T D @PL
0x3851c0…385354 (6, 224) Dummy {f00=0x00fc, f01=0x0190, f02=»^*( AZ@ @ V P ( R W ZB TB( ^ : TB( _ : A A E AZ@ V A @ "# P ( R4 TB( ^*( AZ@ @ V P ( R W :
0x385354…3854e8 Dummy {f00=0x00fc, f01=0x0190, f02=»T REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W 4 6><a R 9a V : W @Z@P ( _ @ P @ P P V $ $T D R V T D P T D P
0x3854e8…38567c Dummy {f00=0x00fc, f01=0x0190, f02=» n ( ( n ( ] n D "! A^ n, n @ @ @^ P ( ] V m R ] V W Z T] _" = n, T ] m n n W m , n, 9a m @^ P n& m n n" m @ P n @ m A
0x38567c…385810 Dummy {f00=0x00fc, f01=0x0190, f02=»eT Jf Tfx Yf Gf Lf Pg Hg" Rg< VgJ Kh" n n _ _ m _ NO! A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ iDP A_ A_ k `* a ,`J +` -` ;` :` (`v .` ] m:X " , A_ L A_ L @ A_ A_ _T iD X
0x385810…3859a4 Dummy {f00=0x00fc, f01=0x0190, f02=»_ k A_ @_ V k a " @_ T " @_ @_ P A_ A_ " _ @_ m _ T @^ A_ @^ A_ @^ A_ @^ A_ @_ Al @_ A^ @_ A^ @_ A^ P l W @_ T @_ Z d @l A^ n* c W n W 0 n Al n W n Al Al @l m W n, @^ A_ @^ A_ _x ] A
0x3859a4…385b38 Dummy {f00=0x00fc, f01=0x0190, f02=»br _ 4 m T P n" m W T @R n& m W n n n B "T" @^ A_ @^ A_ @^ A_ @^ A_ W @_ T @_ W @_ @_ @_ R d >a Al A^ @_ A^ n @_ A^ P l W @_ T @_ Z d Al @oJ _ @l A^ n m n l n n
0x385b38…385ccc Dummy {f00=0x00fc, f01=0x0190, f02=»_ P @_ 1 @^ P @_ Q @ @_ Q P " _ T @^ A_ @^ A_ @^ A_ @^ A_ @_ Al @_ A^ @_ A^ @_ A^ P l W @_ T d @_ V @l A^ 0 m n _ P _ @_ P @_ 1 _ n n Al @l m n* @^ A_ @^ A_ _ @^ P @_ V @ (
0x385ccc…385e60 Dummy {f00=0x00fc, f01=0x0190, f02=» @_ @_ @_ @_ T @ j RX Al *9l! P2 a e &9d! ) f W P$ &9d e & e _ e & f _ _ Ae Ae n @oJZ n " ! U 0 Ae U e _ m "P` @_ @_ T @ j PF R % < < n* ! m n _ T @_ P @
0x385e60…385ff4 (6, 225) Dummy {f00=0x00fc, f01=0x0190, f02=»_ R A A^ A @ ( _ A^ _ @ hf _ @_ @_ T I @_:P h @ i _ A^ _ A @_ A _ @_ ! A? _ Pd @_ @_ PL @_ P n@ n@ k h R @_ T @ g V k DRt ) I I @ I B A BW P g RV )W D i8 A B _ D , Ah Ah :B Ah Q
0x385ff4…386188 Dummy {f00=0x00fc, f01=0x0190, f02=»( _ _ L U [ ( R ( @_ V @ H B W # + C " [ B Ah Ah :B Ah _ (P _ B @_ @_ @_ P hf _ @_ V @ Q B 1 @_ Q Q @ A[ " [ ( R$ ( @_ V @ H B ) I B " _ $ % " n@ # C C
0x386188…38631c Dummy {f00=0x00fc, f01=0x0190, f02=» j R: ?aP *:l" T* & W T C B B B B B " _ Aj Aj Aj Aj Aj Aj Aj k@R Q ! 9D# 9hP Q " ;B 2 Pl L ?b j P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL k$ k$ W
0x38631c…3864b0 Dummy {f00=0x00fc, f01=0x0190, f02=» " F <P W* @^ " P ( _ $ C " :T n@ n@ n@ " " Ak A_ .T @^ P m:P " A_ " m:X X _ " , , Al Al :B Al Q (P _ # # H Al " Am Am 4 n m 4 @m Ilr T Am A
0x3864b0…386644 Dummy {f00=0x00fc, f01=0x0190, f02=» ( @l "( _ @l " :S :X :Y :Z n@ $P WH n@ Am8 Am0 0R 9Q 0 Am8 :B n@_" Am8 " n@ Am 0R$ 9U AR FQ 0:D Am n@_* 'T n@:H_ Am " Am Am 4 n m T Am Am " ,
0x386644…3867d8 Dummy {f00=0x00fc, f01=0x0190, f02=»W / an An T n " @n T n An^ nb n ( @n An " n n n ( A( n ( An " An n @n n P An n ( n An " !n 1n n Q (P _ # # H A " A A 4 4 @ I T A A
0x3867d8…38696c Dummy {f00=0x00fc, f01=0x0190, f02=» V W V Y =P oV : _ @ " :S :X :Y :Z $P W A A 0R 9Q 0 A :B _" A " A 0R 9U AR FQ 0:D A _* 'T :H_ A " A A 4 T A A " ,
0x38696c…386b00 Dummy {f00=0x00fc, f01=0x0190, f02=» $ $ @ > j J F D W b * { * E I V s p p ( J F D , 8 D d * 6 B b v J F D 4 V 4 Z ^ 1 S " - " J " g "
0x386b00…386c94 (6, 226) Opaque[0x194]
0x386c94…386e28 # DirEnt {nam=»TALEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x06e0, f03=0x0000}
0x386c94…386e28 IdxSect {
0x386c94…386e28 f00 = 0x0037 // 0x386c94 @0x0
0x386c94…386e28 f01 = 0x0002 // 0x386c96 @0x2
0x386c94…386e28 gno = [ // 0x386c98 @0x4
0x386c94…386e28 [0x00]: C0x0037.0x0.0
0x386c94…386e28 ]
0x386c94…386e28 }
0x386e28…386fbc Dummy {f00=0x0037, f01=0x0190, f02=» ASG 2,NO SCR LED FORMAT P!!RE 218,$$FRA$$NED$$ 2 !!EN P KPF /S SCR j TRA FORMAT,NL v KPF /O SCR TRA DEMODD,NL TLK U LKE KPF /L,NEDDEF SCR LED FORMAT
0x386fbc…387150 Dummy {f00=0x0037, f01=0x018e, f02=» TLK U LKE KPF /L,ENGDEF SCR 4 LED FORMAT @ P!!RE 218,$$ENG$$GER$$ R !!EN p KPF /S | SCR TRA FORMAT,NL KPF /O SCR TRA DEMODD,NL TLK U LKE KPF /L,GERDEF
0x387150…3872e4 Dummy {f00=0x0037, f01=0x0072, f02=» SCR TRA DEMODD,NL TLK U & LKE 4 KPF /L,FRADEF @ SCR V ASG /E0,TY10 bEN p KPF /S | SCR TRA FORMAT,NL KPF /O SCR TRA DEMODD,NL TLK U LKE KPF /L,GERDEF
0x3872e4…387478 Dummy {f00=0x0037, f01=0x2008, f02=» TRA DEMODD,NL TLK U & LKE 4 KPF /L,FRADEF @ SCR V ASG /E0,TY10 bEN p KPF /S | SCR TRA FORMAT,NL KPF /O SCR TRA DEMODD,NL TLK U LKE KPF /L,GERDEF
0x387478…38760c Dummy {f00=0x0037, f01=0x018e, 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 H D 1X
0x38760c…3877a0 Dummy {f00=0x0037, f01=0x0190, f02=» * d " ( " 6 " D " R " ` " n " | " " " " " " " " "
0x3877a0…387934 (6, 227) Opaque[0x194]
0x387934…387ac8 # DirEnt {nam=»FORCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d58, f03=0x0000}
0x387934…387ac8 IdxSect {
0x387934…387ac8 f00 = 0x00ea // 0x387934 @0x0
0x387934…387ac8 f01 = 0x0002 // 0x387936 @0x2
0x387934…387ac8 gno = [ // 0x387938 @0x4
0x387934…387ac8 [0x00]: C0x00ea.0x3.0
0x387934…387ac8 ]
0x387934…387ac8 }
0x387ac8…387c5c Dummy {f00=0x00ea, f01=0x00bc, f02=» PT; P01; PTID=A0; PTCL=A0; * PLEV=60; : P01; J PTDC=T03; V PLC=03L; f P01; v PSDC=S01; U; 001; UBF; 001;
0x387c5c…387df0 Dummy {f00=0x00ea, f01=0x2008, f02=» P01; PTID=A0; PTCL=A0; * PLEV=60; : P01; J PTDC=T03; V PLC=03L; f P01; v PSDC=S01; U; 001; UBF; 001;
0x387df0…387f84 Dummy {f00=0x00ea, f01=0x2008, f02=» MES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED < HEND p * HMES ILLEGAL PARAMETER COMBINATION !!! | * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+
0x387f84…388118 Dummy {f00=0x00ea, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x388118…3882ac Dummy {f00=0x00ea, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x3882ac…388440 Dummy {f00=0x00ea, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x388440…3885d4 (6, 228) Opaque[0x194]
0x3885d4…388768 # DirEnt {nam=»ENG «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1fb0, f03=0x0000}
0x3885d4…388768 IdxSect {
0x3885d4…388768 f00 = 0x00fd // 0x3885d4 @0x0
0x3885d4…388768 f01 = 0x0002 // 0x3885d6 @0x2
0x3885d4…388768 gno = [ // 0x3885d8 @0x4
0x3885d4…388768 [0x00]: C0x00fd.0x2.0
0x3885d4…388768 ]
0x3885d4…388768 }
0x388768…3888fc Dummy {f00=0x00fd, f01=0x0088, f02=» TRA FORMAT KPF /O SCR $ TRA DEMODD,NL 0 TLK U F LKE M T KPF /L,ENGDEF b ASG /E0,TY10 x
0x3888fc…388a90 Dummy {f00=0x00fd, f01=0x2008, f02=» FORMAT KPF /O SCR $ TRA DEMODD,NL 0 TLK U F LKE M T KPF /L,ENGDEF b ASG /E0,TY10 x
0x388a90…388c24 Dummy {f00=0x00fd, f01=0x0190, f02=» " e ZZZ " e ( ZZZZ 8 " e L ZZZZZ " e r ZZZZZZ " e Z9 " e ZZZZ9 " e ZZZ9,99
0x388c24…388db8 Dummy {f00=0x00fd, f01=0x0190, f02=» ZZZZ9,99 " e ZZZZ9,99-L ( " e B ZZZZZ9,99L R " e l ZZZZZ9,99- | " e ZZZZZZ,ZZ- " e ZZZZZZZZ9,99 " e ZZZZ
0x388db8…388f4c Dummy {f00=0x00fd, f01=0x018e, f02=»99 " e ZZE:ZZ " e 0 ZZVZZ9,99, @ " e Z ZZVZZZ,ZZ, j " e 99E-99E-99 " e ! ZZE-ZZE-ZZ " !e " ZZVZZZVZZ9,99-
0x388f4c…3890e0 Dummy {f00=0x00fd, f01=0x4048, f02=» " %e ( @X FB C 2@ DZZVZZ9,99, @ " e Z ZZVZZZ,ZZ, j " e 99E-99E-99 " e ! ZZE-ZZE-ZZ " !e " ZZVZZZVZZ9,99-
0x3890e0…389274 (6, 229) Opaque[0x194]
0x389274…389408 # DirEnt {nam=»FRADEF«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1fb8, f03=0x0000}
0x389274…389408 IdxSect {
0x389274…389408 f00 = 0x00fd // 0x389274 @0x0
0x389274…389408 f01 = 0x0014 // 0x389276 @0x2
0x389274…389408 gno = [ // 0x389278 @0x4
0x389274…389408 [0x00]: C0x00fd.0x3.0
0x389274…389408 [0x01]: C0x00fe.0x0.0
0x389274…389408 [0x02]: C0x00fe.0x1.0
0x389274…389408 [0x03]: C0x00fe.0x2.0
0x389274…389408 [0x04]: C0x00fe.0x3.0
0x389274…389408 [0x05]: C0x00ff.0x0.0
0x389274…389408 [0x06]: C0x00ff.0x1.0
0x389274…389408 [0x07]: C0x00ff.0x2.0
0x389274…389408 [0x08]: C0x00ff.0x3.0
0x389274…389408 [0x09]: C0x0100.0x0.0
0x389274…389408 ]
0x389274…389408 }
0x389408…38959c Dummy {f00=0x00fd, f01=0x0190, f02=»? Mo CR&26f n " p + 1 b 0 p A
0x38959c…389730 Dummy {f00=0x00fd, f01=0x0190, f02=» * 4 , 8 RUBF UIF PUCY UOP bUA1 $UA2 UT1 `UT2 UQQ
0x389730…3898c4 Dummy {f00=0x00fd, f01=0x0190, f02=» 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 * D
0x3898c4…389a58 Dummy {f00=0x00fd, f01=0x0190, f02=»
[…0x2…]
0x389d80…389f14 (6, 230) Dummy {f00=0x00fe, f01=0x0190, f02=»
0x389f14…38a0a8 Dummy {f00=0x00fe, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0 0 0 $0 *0 0 6 7 = V Z >
0x38a0a8…38a23c Dummy {f00=0x00fe, f01=0x0190, f02=» * &0 0 0 !0 "0 $ %
0x38a23c…38a3d0 Dummy {f00=0x00fe, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0
0x38a3d0…38a564 Dummy {f00=0x00fe, f01=0x0190, f02=» 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 >
0x38a564…38a6f8 Dummy {f00=0x00fe, f01=0x0190, f02=» ? 0 1 1 0 W " " E E E 1 1 00 0 0 T P P 0 ] 0 D F 0 DFT 0 jE ]P F 0 G F "F 0 ^eF ] j] P^ jB ^P C IG(BC 0 ]I0 ^6W|j]P E 0 ]I ] j] P^P JE @P @PjB ^@(BC 0 ]J E _i E j]P E 0 ]J ] j] P^@ JE0
0x38a6f8…38a88c Dummy {f00=0x00fe, f01=0x0190, f02=» ( - 1 G1 G #,GD G G ID0 ] I0 D F 0 DFT 0 H H Q_e0 G 4 D F X j DFX D W j D W D j D D 0 D0 4 0 0 4 1 B : ;x9 9 6 8x:|6 8N6f8 9Z8f8 8 8< U B 1DSC001FORMFILE 9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99
0x38a88c…38aa20 Dummy {f00=0x00fe, f01=0x0190, f02=»-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- GUICHET ERREUR E/S HORS LIMITES COMPTE BLOQUE DOIT ETRE NUL ERREUR DISQUE PRESS CONTINUE CLES IDENTIQUES ZONE
0x38aa20…38abb4 (6, 231) Dummy {f00=0x00fe, f01=0x0190, f02=»4 PAS DE TRANSACTIONS MOT DE PASSE ERRONE COMPTE D ' EPARGNE COMPARAISION INVALIDE PROVISION INSUFFISANTE CLE DE ENREG. INVALIDE DISPOSITIF NON-SPECIFIE INCIDENT DISP. D ENTREE ENREGISTREMENT PROTEGEE ENTRER LA CLE PRINCIPALE ERREUR OUVERTU
0x38abb4…38ad48 Dummy {f00=0x00fe, f01=0x0190, f02=» : e NOT YET IMPLEMENTED m CHOISISSEZ LA FONCTION : VOLUME-NAME ? : DSC AUCUNE TRANSACTION POSSIBLE CARACTERES DISPONIBLES: INTRODUIRE LE DOCUMENT " m INTRODUIRE FEVILLE D ' ARRETE OPEN FORMAT-FILE NOT SUCCESSFULL
0x38ad48…38aedc Dummy {f00=0x00fe, f01=0x0190, f02=»MINAL BLOQUE - APPELER CHEF OPER. !VERIFIER LIVRET SUR NOUVELLE PAGE $ m OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** Y 9 2 ANNUL. = 2 W X I/O ERROR WHILE READING OR WRITING FORMAT-FILE & PAPIER CONTINU SUR GTP PAPI
0x38aedc…38b070 Dummy {f00=0x00fe, f01=0x0190, f02=»IPS PTS 6371 TERMINAL PRINTER i "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER 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.e0e e e%e&e*e+e1e2e3e4e * REVERSAL # DEPOT RETRAIT VIREMENT * *3c =3d
0x38b070…38b204 Dummy {f00=0x00fe, f01=0x0190, f02=». TERMINAL : 2 NOM DU TERMINAL : GUICHET( 2 ) IDENT. OPERATEUR : e MOT DE PASSE : j LANGUE : @ ' TERMINAL : 8 5 GUICHET( 2 ) " 2 HEURE (HHMM) : DATE (JJMMAA) : +e CH. D AFFAIRE TOT.:
0x38b204…38b398 Dummy {f00=0x00fe, f01=0x0190, f02=»# / # / # / SOLDE CHEQUES : # / VALIDER OU ANNULER NOM DE L ' OPERATEUR: TOTAUX CAISE : # / # / # / # / VALIDER OU ANNULER $ W TE 6 PLACER LE BADGE DANS LE MSU a PASSER LE BADGE DA
0x38b398…38b52c Dummy {f00=0x00fe, f01=0x0190, f02=»& SYSTEM CURRENCY CODE ? ! 8 ! @ # TEXT ? 8 @ ' TIME (HHMM) ? DATE (DDMMYY) ? + INTERR. TRANSACT.CPTE NR: a TRANS. / / /* MONTANT : / NOUVEAU SOLDE: / INTERR. DERN. TRANS.(N=0,O=1)?
0x38b52c…38b6c0 Dummy {f00=0x00fe, f01=0x0190, f02=»DE VENTE:(1) "v (2) w COURS LIMITE 1: (x OPERATEUR : TOTAUX CAISE : # / TOTAUX CAISE : # / TOTAUX CAISE : # / TOTAUX CAISE : # / VALIDER OU ANULER W CH.D ' AFF. TOT.: # /I CH.D ' AFF. TOT.
0x38b6c0…38b854 (6, 232) Dummy {f00=0x00fe, f01=0x0190, f02=»J TOTAUX CAISSE : # / TOTAUX CAISSE : # / TOTAUX CAISSE: # / TOTAUX CAISSE: # / SOLDE CHEQUES: # / VALIDER OU ANULER CHANGE (VENTE) (ACHAT) COURS: # $v $t / s #y MONTANT
0x38b854…38b9e8 Dummy {f00=0x00fe, f01=0x0190, f02=»GNE : DEPOT / COMPTE COURANT: a . R+ SOLDE LIVRET: .c LIGNE: # e NOM : MONTANT : . NOUVEAU SOLDE : 0 NOM DE LA DEVISE: 8 @ r CODE DEVISE : 8 @ s REL.: y COURS D ' ACHAT :(1)
0x38b9e8…38bb7c Dummy {f00=0x00fe, f01=0x0190, f02=»ORIG.: T a a - SOLDE LIVRET: .c LIGNE: e DECOUV. AUT.: - MONTANT : . NOUVEAU SOLDE : 0 VIREMENT AU COMPTE DEST.: b VIREMENT DU COMPTE ORIGINE : T a a + SOLDE LIVRET : .c LIGNE:
0x38bb7c…38bd10 Dummy {f00=0x00fe, f01=0x0190, f02=» NOM OPERATEUR : 8 @ MOT DE PASSE : @ LANGUE : @ TOTAUX CAISSE : # / # / # / # / REMISE A ZERO (NON=0,OUI=1) ? # @ e NOM DEVISE : r CODE DEVISE : s REL.: y COURS
0x38bd10…38bea4 Dummy {f00=0x00fe, f01=0x0190, f02=»(2) w COURS LIMIT 1 : (x MISE A JOUR COMPTE EP. NR.: MISE A JOUR CPTE COUR. NR.: a NOM : 8 @ ADRESSE : 8 @ VILLE : 8 @ MOT DE PASSE: 8 @ @ DECOUV. AUT. : / Q% OUVERTURE CPTE D
0x38bea4…38c038 Dummy {f00=0x00fe, f01=0x0190, f02=» : Q MOT DE PASSE: @ ' BADGE: DECOUV. AUT.: - $ INTERR. CPTE D ' EPARGNE NR.: INTERR. CPTE COURANT NR.: a SOLDE : / SOLDE LIVRET : DECOUV. AUT. : / ETAT : INTERR
0x38c038…38c1cc Dummy {f00=0x00fe, f01=0x0190, f02=»OM : SOLDE : / SOLDE LIVRET : DECOUVERT AUT. : / MOT DE PASSE : NUMERO DE BADGE : RETRAIT / COMPTE D' EPARGNE: COURANT : a - MOT DE PASSE : + Q NOM : - CHEQUE NR.
0x38c1cc…38c360 Dummy {f00=0x00fe, f01=0x0190, f02=»OLDE: 0 % RETRAIT / COMPTE D ' EPARGNE: RETRAIT / COMPTE COURANT: a -MOT DE PASSE : & Q NOM : - CHEQUE NR. : _ + SOLDE LIVRET: .c LIGNE: e DECOUV.AUT.: - MONTANT : . NOUVEAU SOLDE : 0
0x38c360…38c4f4 (6, 233) Dummy {f00=0x00fe, f01=0x0190, f02=»: NON(=0),BCR(=1),MSU(=2) ? ! @ ; ODR (N=0,O=1) ? ! @ < IDENT. TERMINAL: 2 8 NOM DU TERMINAL? 5 # NOM DU TERMINAL: GUICHET( 2 ) DEPOTS CAISSE : # / RETRAITS CAISSE : # / TOTAL CHEQUES : # / TOTA
0x38c4f4…38c688 Dummy {f00=0x00fe, f01=0x0190, f02=»SE : # / # / # / K c$ BLOCAGE CPTE D ' EPARGNE NR : e DEBLOCAGE CPTE D ' EPARGNE NR: A c BLOCAGE COMPTE COURANT NR : DEBLOCAGE COMPTE COURANT NR: a NOM : SOLDE ACTUEL : / SOLDE LIVRET
0x38c688…38c81c Dummy {f00=0x00fe, f01=0x0190, f02=» OUVERTURE CPTE b FERMETURE CPTE c BLOCAGE COMPTE d DEBLOCAGE CPTE e MISE A JOUR CPT f MISE A JOUR DEV g INTERR. COMPTE h RELEVE i FIN OPERATEUR j FERMETURE SYST. k CHANGE l INTERR. DEVISE m LISTE DES CPTES ` i Y W X
0x38c81c…38c9b0 Dummy {f00=0x00fe, f01=0x0190, f02=» DECOUV. AUT.: / SOLDE : / ETAT : # DERNIERE TRANS. : DERNIERE IMPRIMEE : TOTAL DEPOTS : - TOTAL RETRAITS : - ******** DEMONSTRATION DE L ' ECRAN VIDEO PHILIPS PTS 6344 *****
0x38c9b0…38cb44 Dummy {f00=0x00fe, f01=0x0190, f02=» CARACTERES DISPONIBLES : !#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ &SOUS-ENSEMBLE SPECIFIQUE A LA FRANCE : #@[ ]`{|}~ TAILLE DE L ' ECRAN : #20 LIGNES / 64 CARACTERES PAR LIGN
0x38cb44…38ccd8 Dummy {f00=0x00fe, f01=0x0190, f02=» CODE POSTAL : D Z VILLE : ,@ NR D ' AGENCE : f NR DE CPTE: , e ' ) 6d_LT-W`G"FJ , 9K $/(&%!# Z S]b<V[Ma*:+Yc3?1NRIHC>4 @2DEO^UXQP.......................... 0 !0 "
0x38ccd8…38ce6c Dummy {f00=0x00fe, f01=0x0190, f02=» ( 8 H X i { 6 N g ; W t " * # L # o % % ' + 0 . 4 ^ 4 6 ; B 7 G y K O V Z Y Z a c b y & y
0x38ce6c…38d000 Dummy {f00=0x00fe, f01=0x0190, f02=» ^4f 4 4 B #0 V B & + P _ W& @ B #0 T B #0 T V @ W: 2 & V >A >A 2 $ B & V D 9a 9 V @ W @ ( T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9
0x38d000…38d194 (6, 234) Dummy {f00=0x00ff, f01=0x0190, f02=» W, V P& W$ U V X 9T I Y @$( <p # 9 2! P T 9 / : <p #/ C _ ( B ' @ <p > C : 9 > : 9 8 : _ B &:K : 9 / : 9 / > : 9 / _ _.
0x38d194…38d328 Dummy {f00=0x00ff, f01=0x0190, f02=» C C : <p > C <H / : <p C _ 9 ( C _> W ; : 9 / : _ <p =$ < P B <H : 9 W <p < B &P B V C / <H "!@ W : <p < C C W < C C J:B ' W 781"&$ 39#$
0x38d328…38d4bc Dummy {f00=0x00ff, f01=0x0190, f02=»( 1W" C C C " W* ( ' P. ;2 P$ "! P > W B % P C + = @ <> I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : <p ; NX ; C ;. C B B P C ; : "!@T W: V I C
0x38d4bc…38d650 Dummy {f00=0x00ff, f01=0x0190, f02=»W : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D D W.' #? D V H W. ;D:B " : _, B C : : <p < "! P > : B P C W $0 P V C =L : C "!@P ") # B C B
0x38d650…38d7e4 Dummy {f00=0x00ff, f01=0x0190, f02=»X R _ V 4 _P :#0 T B 'W V 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@ ' d w5
0x38d7e4…38d978 Dummy {f00=0x00ff, f01=0x0190, f02=» =l C C :? ? ? @ A @6A G E8E>F I K6K6@0A.A.ABABA @ ABABNRS SFR R S R @0A A A A @0@0@0@0 o W V 7 @ "! P o~ P W ? @? R V Z. @ pVP 9c D?6 B B Q ?DW F :aW, @? YRP U @? ]^ VZ @? ]h U _n
0x38d978…38db0c Dummy {f00=0x00ff, f01=0x0190, f02=»R T V P V o~ W V P _ 8^t D?d 2 ! 9BP V T PW V P D $ V 6 V % V E @ &' T 2 % 7_ 2 # PH L .PB B 2" &] Y $! 6P Q $ T 9BP @d _ _ W @2 6 @ &" T 7 $ V P
0x38db0c…38dca0 Dummy {f00=0x00ff, f01=0x0190, f02=» P W 6 2# D W4 @ $ EA " T> ; [ # D :H 2 T Z L LA D V, W # D LA E V $ W D V LA , W 6 2 D W$ " P& Pd" # D ;b Wv " ;d# _ [ v [ o B o Z Z
0x38dca0…38de34 (6, 235) Dummy {f00=0x00ff, f01=0x0190, f02=» (;AR H WD V V Z H # D ; 6 V B : Z L # & V V & Z 4 D : Z 4 " 2@P : [ [ B & @ $! P V Z V [ 6 [ Z 7 B Z 7 : (
0x38de34…38dfc8 Dummy {f00=0x00ff, f01=0x0190, f02=» " # D ;b ; : ;f" #?_" W V # V " T & T + : * & !@P `1` P G Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R
0x38dfc8…38e15c Dummy {f00=0x00ff, f01=0x0190, f02=» P 1`! T "# 9e! # K : #0 V P8" T * & : * & !`P :J +_ +Q G _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
0x38e15c…38e2f0 Dummy {f00=0x00ff, f01=0x0190, f02=» & P Q H: ,^ , < HB # ; [ _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 : V &9d! +
0x38e2f0…38e484 Dummy {f00=0x00ff, f01=0x0190, f02=»P 7 Y Z $ _ : V ) 0 V !0 V " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 V [ [ [ [ $ [ [ >h [ [ MlG MlG MlE> Z PP [
0x38e484…38e618 Dummy {f00=0x00ff, f01=0x0190, f02=»W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 V !0 V " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 V
0x38e618…38e7ac Dummy {f00=0x00ff, f01=0x0190, f02=»P ! R 2` { 1 ! { [ Z MlG Q MlK P _ T { [ MlMN [ Q@ [ MlE> { R [ _ MlE8 MlK Z ! Z $ Z %_N [ Q* MlE8 MlG R [ Z { MlE8 z 9e! W Z : V I _ , " -! 9H X" ,9 -
0x38e7ac…38e940 Dummy {f00=0x00ff, f01=0x0190, f02=» R B B D R D B B R O PFO O R RJRzRvP O P N O R R P(O R O N2 6 N K K K K V K : B M M N2 B V Od N O V Z P 2 " T W "@T '?W "? HM " K :e J J " J _Z Z Od
0x38e940…38ead4 (6, 236) Dummy {f00=0x00ff, f01=0x0190, f02=» : V R (Q V : 4 4 : M J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K P2WJ O W +_ P P K W. _& X ; W X & ; J K : V : J T V 1 : + B [
0x38ead4…38ec68 Dummy {f00=0x00ff, f01=0x0190, f02=» 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J V 1 P !00T ; P4 _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? V Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W P 8 !++
0x38ec68…38edfc Dummy {f00=0x00ff, f01=0x0190, f02=»W : ! )P9H " V # T &W &" :I : R : P & _ &X _ : W : : : T NV : { : T $0T T Pb 9 _ T $0T [ T $0T Z : R$ P $ 1T Y TdW 5 _& :
0x38edfc…38ef90 Dummy {f00=0x00ff, f01=0x0190, f02=» : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : G : B B #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q0 R W Q$ : T B #03 T $_X T _^ W W:
0x38ef90…38f124 Dummy {f00=0x00ff, f01=0x0190, f02=» @T P ( _ AT AT T ( @T ' $ * AT T( T ( AT AT ( T p AT ) Y V AT T V V Z . 1 V Z v Z AT : U@W U@ 2 T Z @ &# T R Z B
0x38f124…38f2b8 Dummy {f00=0x00ff, f01=0x0190, f02=» ( ( AT : 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 U@ ** AT AT ER AT R AT T Z W R 4 Z 4 $ AT T U 4 - _ V T @T [|
0x38f2b8…38f44c Dummy {f00=0x00ff, f01=0x0190, f02=»TH STACK UNDERFLOW ARITHM OVERFLOW STACK OVERFLOW INDEX OVERFLOW ILL INDEX TYPE DIV BY ZERO EDIT BUFFER OVFL EDIT PICTURE OVERFLOW "ALLOCATION ERR AT INITIALIZATION ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED FIX BU
0x38f44c…38f5e0 Dummy {f00=0x00ff, f01=0x0190, f02=»NGTH ERROR DATASET BUSY ILLEGAL DATASET REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REENTER POINT W 9 " R 0 1 Y : ;a V P V P W 4 6f<a R 9a V Zj : W: @ZhP ( _ @ P @ Pj Pf [ V
0x38f5e0…38f774 (6, 237) Dummy {f00=0x00ff, f01=0x0190, f02=»W TW V AZh V A TB( ^R( AZh @ V P ( R W Zj TB( ^F : TB( _6 : A A E AZh V A @ "# P ( R4 TB( ^R( AZh @ V P ( R W :
0x38f774…38f908 Dummy {f00=0x00ff, f01=0x0190, f02=» T REFERENCE TOO MANY KIA/NKIA STACK LEVELS DISC ERROR; NO REE W 9 " R 0 1 Y : ;a V P V P W 4 6f<a R 9a V : W: @ZhP ( _ @ P @ P P V
0x38f908…38fa9c Dummy {f00=0x00ff, f01=0x0190, f02=» n ( ( n ( ] n8 D "! A^( nT n4 @ @ @^(P ( ] V m R ] V W Z T^ _" = nT T ] m n. n4W m , nT 9a n" @^(P nN
0x38fa9c…38fc30 Dummy {f00=0x00ff, f01=0x0190, f02=»l _ @_ _ =aP Wa` Qb Mb /d6 Se Ie| Jf: Tf Yf Gf Lg Pg: HgJ Rgd Vgr KhJ n4 nF_ _ m _ NO! A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ A_ ilP A_ A_ l `R a, ,`r +` -` ;` :a (` .a" ] mbX "
0x38fc30…38fdc4 Dummy {f00=0x00ff, f01=0x0190, f02=»_ _ a2 @_ A_ @_ A_ @_ A_ @_ A_ _ k A_ @_ V k a2 " @_ T " @_ @_ P A_ A_ " _ @_ m _6T @^2 A_ @^8 A_ @^> A_ @^D A_ @_ Al @_ A^> @_ A^D @_ A^8P l W @_ T @_ Z d @l A^2 nR c W nBW 0 n8 Al n.W n. Al Al
0x38fdc4…38ff58 Dummy {f00=0x00ff, f01=0x0190, f02=» nB n. n" nT_T n8 n. b _6 4 m T P nJ m W T @R nN n W n. n4 n4 B "T" @^0 A_ @^6 A_ @^< A_ @^B A_ W @_ T @_ W @_ @_ @_ R d >a Al A^< @_ A^B n8 @_ A^6P l W @_ T @_ Z d Al
0x38ff58…3900ec Dummy {f00=0x00ff, f01=0x0190, f02=»m n4 Ad. ` P 3P _ C @_ P @_ 1 @^,P @_ Q @ @_ Q P " _6T @^. A_ @^4 A_ @^: A_ @^@ A_ @_ Al @_ A^: @_ A^@ @_ A^4P l W @_ T d @_ V @l A^. 0 n n4 ` P _ @_ P @_ 1 _6 nB n. Al @l m nR @
0x3900ec…390280 Dummy {f00=0x00ff, f01=0x0190, f02=»n" n4 ` T @_ P @_ " 1 _6 _ Px @_ @_ @_ @_ T @ j2RX Al *9l! P2 a e &9d! ) f(W P$ &9d f & f _ e & f( _6 _ Af Af n8 @orZ n. " ! U 0 Af U e _ m "P` @_ @_ T @ j2 PF R %
0x390280…390414 (6, 238) Dummy {f00=0x0100, f01=0x0190, f02=» % A[ _6T @ W @_ A^* _ @_ R A A^* A @ ( _6 A^* _ @ h _ @_ @_ T I @_:P h @ i._ A^* _ A @_ A _6 @_ ! A? _6Pd @_ @_ PL @_ P nh nh l h.R @_ T @ g V l lRt ) I I @ I B A jW P g RV )W
0x390414…3905a8 Dummy {f00=0x0100, f01=0x0190, f02=» P2 @^( R* nh l h @_ P Q hv ( _6 _ L U [ ( R ( @_ V @ H B W # + C " [ B Ah Ah :B Ah _ (P _ B @_ @_ @_ P h _ @_ V @ Q B 1 @_ Q Q @ A[ " [ ( R$ ( @_ V @ H B
0x3905a8…39073c Dummy {f00=0x0100, f01=0x0190, f02=»Pl ,T il P^ )TX nh k A_ T @ j2R: ?aP *:l" T* & W T C B B B B B " _ Ak Ak Ak Ak Ak Ak Ak khR Q ! 9D# 9hP Q " ;B 2 Pl L ?b k& P ,R PLW~ Pz9AR Tr L Qj W" P` L $
0x39073c…3908d0 Dummy {f00=0x0100, f01=0x0190, f02=» _ W " Akd < V " F <P W* @^(" P ( _ $ C " :T nh nh nh " " Ak A_ .T @^(P mbP " A_ " mbX X _ " , , Al8 Al8:B Al8Q (P _ # # H Al8 " A
0x3908d0…390a64 Dummy {f00=0x0100, f01=0x0190, f02=»PD @_ T @ l l Q";H @l ;d l ( @l "( _ @l " :S :X :Y :Z nh $P WH nh Am` AmX 0R 9Q 0 Am` :B nh_" Am` " nh Am 0R$ 9U AR FQ 0:D Am nh_* 'T nh:H_ Am "
0x390a64…390bf8 Dummy {f00=0x0100, f01=0x0190, f02=» :W& nT W nT W W ?W :W .W / ao Ao T n " @n T n An n n ( @o An " n n n ( A( n ( An " An n @o o P Ao n ( o Ao " !o 1o o Q (P _ # # H A " A
0x390bf8…390d8c Dummy {f00=0x0100, f01=0x0190, f02=» $ W6 W o~ P @ X =' V W V Y =P o~ : _ @ " :S :X :Y :Z $P W A A 0R 9Q 0 A :B _" A " A 0R 9U AR FQ 0:D A _* 'T :H_ A "
0x390d8c…390f20 Dummy {f00=0x0100, f01=0x0190, f02=» $ $ 5 > j J F D [ f > > 4 E * I * T q ( J F D , 8 D d ! + 7 C d v J F D H I H M Q , , 5 , X 6 / 6 L 6 i 6
0x390f20…3910b4 (6, 239) Opaque[0x194]
0x3910b4…391248 # DirEnt {nam=»A:FORM«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x3910b4…391248 IdxSect {
0x3910b4…391248 f00 = 0x010d // 0x3910b4 @0x0
0x3910b4…391248 f01 = 0x0016 // 0x3910b6 @0x2
0x3910b4…391248 gno = [ // 0x3910b8 @0x4
0x3910b4…391248 [0x00]: C0x010d.0x1.0
0x3910b4…391248 [0x01]: C0x010d.0x2.0
0x3910b4…391248 [0x02]: C0x010d.0x3.0
0x3910b4…391248 [0x03]: C0x010e.0x0.0
0x3910b4…391248 [0x04]: C0x010e.0x1.0
0x3910b4…391248 [0x05]: C0x010e.0x2.0
0x3910b4…391248 [0x06]: C0x010e.0x3.0
0x3910b4…391248 [0x07]: C0x010f.0x0.0
0x3910b4…391248 [0x08]: C0x010f.0x1.0
0x3910b4…391248 [0x09]: C0x0112.0x0.0
0x3910b4…391248 [0x0a]: C0x0112.0x1.0
0x3910b4…391248 ]
0x3910b4…391248 }
0x391248…3913dc Dummy {f00=0x010d, f01=0x0190, f02=»ar Rw0 CR% 6" n " p + 1 b 0 p A
0x3913dc…391570 Dummy {f00=0x010d, f01=0x0190, f02=» * 4 , 8 RUBF UIF PUCY UOP bUA1 $UA2 UT1 `UT2 UQQ
0x391570…391704 Dummy {f00=0x010d, f01=0x0190, f02=» 20 0 0 0 0 0 50 ;0 A0 D 2 * : 0 0 0 0 0 "0 #0 %0 &0 '0 (0 )0 * D
0x391704…391898 Dummy {f00=0x010d, f01=0x0190, f02=»
[…0x3…]
0x391d54…391ee8 Dummy {f00=0x010d, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0 0 0 $0 *0 0 6 7 = V Z >
0x391ee8…39207c Dummy {f00=0x010d, f01=0x0190, f02=» * &0 0 0 !0 "0 $ %
0x39207c…392210 Dummy {f00=0x010d, f01=0x0190, f02=» >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P * 20 0 0 0 0
0x392210…3923a4 Dummy {f00=0x010d, f01=0x0190, f02=» 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 >
0x3923a4…392538 Dummy {f00=0x010d, f01=0x0190, f02=» an 0 1 1 0 W " " E E E 1 1 .0 0 0 T P P 0 ] 0 D F 0 DFT 0 jE ]P F 0 G F "F 0 ^eF ] j] P^ jB ^P C IG(BC 0 ]I0 ^6W|j]P E 0 ]I ] j] P^P JE @P @PjB ^@(BC 0 ]J E _i E j]P E 0 ]J ] j] P^@ JE0
0x392538…3926cc Dummy {f00=0x010d, f01=0x0190, f02=» ( - 1 G1 G #,GD G G ID0 ] I0 D F 0 DFT 0 H H Q_e0 G 4 D F X j DFX D W j D W D j D D 0 D0 4 0 0 4 1 A PbQ O O L*N P K Nl6"N OxN M N,NZ U B 1DSC001FORMFILE 9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99
0x3926cc…392860 Dummy {f00=0x010d, f01=0x0190, f02=»-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,ZZ-ZZVZZZVZZ9,99-ZZZVZZZVZZ9,99ZZZVZZZVZZZ,ZZF*ZVZZZVZZ9,99- I/O ERROR DISK ERROR FRONT OFFICE WRONG PASSWORD PRESS CONTINUE NO TRANSACTIONS SAME KEY VALUES SAVINGS ACCOUNT
0x392860…3929f4 (6, 241) Dummy {f00=0x010d, f01=0x0190, f02=»PARISON VALUE MUST BE ZERO VALUE NOT IN RANGE BALANCE NOT ZERO / INPUT DEVICE FAILURE UNSERVICEABLE REQUEST FIELD MUST BE ENTERED FILE OPEN UNSUCCESSFULL ILLEGAL END-OF-ITEM KEY OPERATOR I.D. : e NO TRANSACTIONS POSSIBLE a **
0x3929f4…392b88 Dummy {f00=0x010d, f01=0x0190, f02=»LEMENTED m VOLUME-NAME ? : DSC MOUNT DAILY-STATEMENT-VOUCHER 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 ): "REQUIRE
0x392b88…392d1c Dummy {f00=0x010d, f01=0x0190, f02=»MAT" SUCCESSFULLY EXECUTED MOUNT VOUCHER IN VOUCHER-PRINTER " m "MOUNT PASS-BOOK IN VOUCHER-PRINTER $ m OVERFLOW OF OVERFLOW-AREA ** JOB ABENDED ** Y 9 2 CANCEL = 2 W X I/O ERROR WHILE READING OR WRITING FORMAT-FILE
0x392d1c…392eb0 Dummy {f00=0x010d, f01=0x0190, f02=»INAL PRINTER i "MORE THAN 6 LANGUAGE-NUMBERS TRIED PERHAPS NO FREE LANGUAGE-NUMBER 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.e0e e e%e&e*e+e1e2e3e4e && "MOUNT CONTINUOUS STATIONARY ON GTP # !MOUNT CONTINUOUS STATIONARY ON LP OPERATOR I.D. : e
0x392eb0…393044 Dummy {f00=0x010d, f01=0x0190, f02=»L TRANSFER * *3c =3d 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 : # /I # / # / # /
0x393044…3931d8 Dummy {f00=0x010d, f01=0x0190, f02=»DDMMYY) : +e T/ 6 PUT CARD IN MSU Z DRAW CARD THROUGH BCR A Q DRAW CHEQUE THROUGH ODR # ACCOUNT OR CARD NUMBER : a OPERATOR NAME : CASH BALANCES : # / # / # / # / #PRESS CONT. TO CONFIRM, ELSE CANCEL $
0x3931d8…39336c Dummy {f00=0x010d, f01=0x0190, f02=»ONT TO CONFIRM ELSE CANCEL GROSS TURNOVER: # /I GROSS TURNOVER: # / GROSS TURNOVER: # / GROSS TURNOVER: # / CURR. TURNOVER: # /J MLP INTEGRATED (N=0,Y=1) $ @ & SYSTEM CURRENCY CODE ? ! 8 ! @ # TEXT ? 8 @ '
0x39336c…393500 Dummy {f00=0x010d, f01=0x0190, f02=» AMOUNT : / NEW BALANCE: / 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) "v (2) w LIMIT RATE 1 : (x OPERATOR :
0x393500…393694 (6, 242) Dummy {f00=0x010e, f01=0x0190, f02=» PRESS CONT TO CONFIRM ELSE CANC W DEPOSIT - SAVINGS ACCOUNT: DEPOSIT - CHEQUE ACCOUNT: a - R* BOOK BALANCE: .c LINE: # e NAME : AMOUNT : . NEW BALANCE : 0 CURRENCY NAME : r CURRENCY CODE :
0x393694…393828 Dummy {f00=0x010e, f01=0x0190, f02=» w LIMIT RATE 1 : (x CASH BALANCE : # / CASH BALANCE : # / CASH BALANCE : # / CASH BALANCE : # / CHEQUE BALANCE: # / PRESS CONT TO CONFIRM ELSE CANC CURRENCY EXCHANGE (SELLING) (BUYING) RATE:
0x393828…3939bc Dummy {f00=0x010e, f01=0x0190, f02=»=1) ? @ h TRANSFER FROM ACCOUNT : T a a + BOOK BALANCE: .c LINE: " e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 TRANSFER TO ACCOUNT : b CURRENCY NAME : 8 @ r CURRENCY CODE : 8 @ s
0x3939bc…393b50 Dummy {f00=0x010e, f01=0x0190, f02=»RATE 1 : )x TRANSFER FROM ACCOUNT : T a a , BOOK BALANCE: .c LINE: e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 TRANSFER TO ACCOUNT : b Q" OPEN SAVINGS ACCOUNT NUMBER : OPEN CHEQUE ACCO
0x393b50…393ce4 Dummy {f00=0x010e, f01=0x0190, f02=» CREDIT LIMIT: - ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHEQUE ACCOUNT NR. : a NAME : 8 @ ADDRESS : 8 @ TOWN : 8 @ PASSWORD: 8 @ @ CREDIT LIMIT : / OPERATOR NAME : 8 @ PASSWORD
0x393ce4…393e78 Dummy {f00=0x010e, f01=0x0190, f02=» / ZEROISE ACCUMULATORS (N=0,Y=1) ? # @ e CLOSE SAVINGS ACCOUNT NR : CLOSE CHEQUE ACCOUNT NR : a NAME : CURRENT BALANCE : / BOOK BALANCE : CREDIT LIMIT : / PASSWORD : CARD NUMBER :
0x393e78…39400c Dummy {f00=0x010e, f01=0x0190, f02=»: CREDIT LIMIT : / STATUS : LAST TRANS. REQ. (NO=0,YES=1)? @ e WITHDRAWAL - SAVINGS CHEQUE ACCOUNT: a - PASSWORD : + Q NAME : - CHEQUE NR. : _ * BOOK BALANCE: .c L
0x39400c…3941a0 Dummy {f00=0x010e, f01=0x0190, f02=» WITHDRAWAL - CHEQUE ACC. : a - PASSWORD : ' Q NAME : - CHEQUE NR. : _ ) BOOK BALANCE: .c LINE: e CREDIT LIMIT: - AMOUNT : . NEW BALANCE : 0 ALPHA KEYBOARD (N=0,Y=1) ? ! @ 8 SHARED PRINTING (N
0x3941a0…394334 (6, 243) Dummy {f00=0x010e, f01=0x0190, f02=» @ < TERMINAL I.D. : 2 8 TERMINAL NAME ? 5 ' TERMINAL NAME : FRONT OFFICE( 2 ) CASH DEPOSITS : # / CASH WITHDRAWALS : # / ACCUM. CHEQUES : # / ACCUM. TRANSFERS : # / CURRENCY SOLD : #
0x394334…3944c8 Dummy {f00=0x010e, f01=0x0190, f02=» c BLOCK SAVINGS ACCOUNT 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 CO
0x3944c8…39465c Dummy {f00=0x010e, f01=0x0190, f02=» 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 ACCOUNTS ` i Y W X ! UPDATE SAVINGS ACCOUNT NR. : UPDATE CHE
0x39465c…3947f0 Dummy {f00=0x010e, f01=0x0190, f02=»/ STATUS : # LAST TRANSACTION : LAST PRINTED : ACCUM. DEPOSITS : - ACCUM. WITHDRAWALS : - ***** 5DEMONSTRATION OF PHILIPS PTS 6344 VISUAL DISPLAY UNIT ***** $PHILIPS PTS 6344 VISUAL DISPL
0x3947f0…394984 Dummy {f00=0x010e, f01=0x0190, f02=»HARACTER SET : !#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ NATIONAL VERSION : #@[ ]`{|}~ SCREEN-SIZE : !20 LINES / 64 CHARACTERS PER LINE OPTIONAL : !24 LINES / 80 CHARACTERS
0x394984…394b18 Dummy {f00=0x010e, f01=0x0190, f02=»: f ACCOUNTNR : , e &$ % #2d_MV'Z`H CJ , 6I 3+"5 ! X[Q]b<U Na:7)Yc9>(OTKGDB/*?0FEP^WRSL-------------------------- 0 !0 " % + 1 7 = D K
0x394b18…394cac Dummy {f00=0x010e, f01=0x0190, f02=» # : Q i " ? y " # # $ % C % h % % % * , & 0 R 4 4 < B & G h K M Q G T T V @ ` f t T i 0 C m + s
0x394cac…394e40 Dummy {f00=0x010e, f01=0x0190, f02=»# + a dF #0 0T ' a ' _ dF #0 0T & ! T P & ! X T C a 8N X x & Y " X R W I P _ Y $ JZ dF Jf I X " X $ 7v ! P W2 X $ X " R W V R W V % _
0x394e40…394fd4 (6, 244) Dummy {f00=0x010e, f01=0x0190, f02=» < X ! P ?A W ?AW <! P X " X R W V, y & Y $ 8 " X X = I x ( y $ I I I dF Y Y dF & dF ( : => =t AP Y ( x P Y * : x y Wv X " 9 X X . 8 = I X 0P X T 5 !
0x394fd4…395168 Dummy {f00=0x010e, f01=0x0190, f02=» B Ph9 R^9 <@ X !@PP X X * b ) Y * Y , X , A x X *YrP y X " x Y X " T Y _ < _ B U C Q C D9 9 9 : :V<N< : X X * $" ~_> @ Y X * 9 _R X !@XX y X # x V y X X * A, P P 1 _ 1 : X
0x395168…3952fc Dummy {f00=0x010e, f01=0x0190, f02=» y _ x T = < X H X X * , )$ P _ : => ' Y c =t y x C y X C C X ( x Tf B < 9 R 9 <@ X ! T < _ y C Q " T AP A, X ! =* X X ! x Y~ Y _ X "@P B
0x3952fc…395490 Dummy {f00=0x010e, f01=0x0190, f02=» c I C _$ _ < y _6 ; x X@ X A X # A, C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x A =* ; x X X # A,_ B < C A : + AP X A A, ( JZ dF ( Jf I : B =: C _J + .
0x395490…395624 Dummy {f00=0x010e, f01=0x0190, f02=»JZ dF Jf dF h I X "T X I A2 I I dF X I = I JZ ' dF ! Y 0T V Jf h : I 2' dF R P P X ' ' a X _ X ' _ X '?_ I dF X ' I X ! I I I X " 9b! X
0x395624…3957b8 Dummy {f00=0x010e, f01=0x0190, f02=» Y 0 A W U X Q B W Y 0 A C R Q I 9H Y * @ W W @ Q X 0 X +" X *9h P2 R Y >_ P P Y +W^ @ Y + @z A WL T @z @<W> Q W Y + U Q P W W Y ( A C I X *! P V L
0x3957b8…39594c Dummy {f00=0x010e, f01=0x0190, f02=»R : @ X +! U 9K Y ( Y + A C I 9H Y * 2 Y ( Y > Y + dF 4 0 c 6 2 : C ( C : C B _( _ X A AP P A, B _N ( JZ X D D : K + Q 2 P. P8 c q ( Jf B
0x39594c…395ae0 Dummy {f00=0x010e, f01=0x0190, f02=»P Q n A X <' X X n I X *# X ( " Qp " P X 0P: Vp_` " P4 T G JfWT " P Y 0] Y (_t " X _. Q X *# P B 1 Q W " P X X$ C : X *! P Q It C W @ X (T W X y 6 Y ( : X (;n
0x395ae0…395c74 (6, 245) Dummy {f00=0x010e, f01=0x0190, f02=»I C" K T p W p X . X 2QH Y *T2 p : " P$ X 0U X *# P P T " T : Y . G Y ( o I Y *T " T ! 1 W ! ) p : I pr r P & Y *T DP : X > T X & V D ! T W p I, I X >P( R Q" X & V D ! P
0x395c74…395e08 Dummy {f00=0x010e, f01=0x0190, f02=»" Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P G P< GdWZ X ! X $" P<Q X (# P2 X # :! R$W Gd G T$ @ Y (W Y , G W G Y ( o : X *:h X (! # P X & V L TbW X , X 0P@ G T, X *:h XF XL X (!@T @ Y
0x395e08…395f9c Dummy {f00=0x010e, f01=0x0190, f02=» X & V H "@TF G< P6 V Y X (P I, G X (P G I 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 I, dF 8 V Y 8 : " P X & V ( P G< : : G "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y
0x395f9c…396130 Dummy {f00=0x010e, f01=0x0190, f02=» = " JZ ! T W sD ! P =H sD H X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X I W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y dFW Y ! P
0x396130…3962c4 Dummy {f00=0x010e, f01=0x0190, f02=» I X I : "0P ' Q W ' Y : W c V p6 I Y Y Y < V E a B X _ v : C C R : C R :( R : V E V D ' $ T ( W J P a X =' V W V Y =P J
0x3962c4…396458 Dummy {f00=0x010e, f01=0x0190, f02=» R ' / dF C Q* dF C dF &P C dF & C : ( a R "R V I a R ( T _& @v X, @v _6 dF ( a dF dF V a 2 ;B P0 J T 4 L ( av
0x396458…3965ec Dummy {f00=0x010e, f01=0x0190, f02=» V @ W @ ( T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V ( - 4T V 5 ( W, V P& W$ U V X 9T I Y
0x3965ec…396780 Dummy {f00=0x010e, f01=0x0190, f02=»( a Mh( R dF "$ P B B u W u a dF V G 9h ' a R # 9 2! P T P / Q* R #/ C _ ( dF ' a R v C Q. P< v Q. P< N Q* _ c &:K : P / Q2 P / v
0x396780…396914 (6, 246) Dummy {f00=0x010f, f01=0x0190, f02=» C C ( C C Q> R v C <H / Q. R C _ P ( C _> R v C R <H / Q2 P R N C _" W R$ Q. P / Q2 _ R S< R P dF <H : P<W R R dF &P B V C
0x396914…396aa8 Dummy {f00=0x010f, f01=0x0190, f02=» B dF 'W R ( W dF R R ( 1W C C C ( ' P. Qt P$ "! P v W B % P C + u a Rh I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : R Q o6 Q C
0x396aa8…396c3c Dummy {f00=0x010f, f01=0x0190, f02=» C dF & R V C dF : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D e W"' #? e ;D:B " : _ dF C : : R R "! P v : c P C W $0 P C u* : C "!@P "
0x396c3c…396dd0 Dummy {f00=0x010f, f01=0x0190, f02=»S QB 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : T D T> E D :A D ;A 9A Q 5 U _ 5 S Av T Av T *! P * P _ W *) + T : T $: R P $
0x396dd0…396f64 Dummy {f00=0x010f, f01=0x0190, f02=» C & R V C : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D W"' #? ;D:B " : _ C : : R R "! P : P C W $0 P C : C "!@P "
0x396f64…3970f8 Dummy {f00=0x010f, f01=0x0190, f02=»S QB 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 S A T A *! P * P _ W *) + : $: R P $
0x3970f8…39728c Dummy {f00=0x010f, f01=0x0190, f02=» C & R V C : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D W"' #? ;D:B " : _ C : : R R "! P : P C W $0 P C : C "!@P "
0x39728c…397420 Dummy {f00=0x010f, f01=0x0190, f02=»S QB 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 S A T A *! P * P _ W *) + : $: R P $
0x397420…3975b4 (6, 247) Dummy {f00=0x010f, f01=0x0190, f02=» C & R V C : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D W"' #? ;D:B " : _ C : : R R "! P : P C W $0 P C : C "!@P "
0x3975b4…397748 Dummy {f00=0x010f, f01=0x0190, f02=»S QB 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 S A T A *! P * P _ W *) + : $: R P $
0x397748…3978dc Dummy {f00=0x010f, f01=0x0190, f02=» C & R V C : B T T T V : 2 ' W 2 6 2 @ &" T # ' ?D W"' #? ;D:B " : _ C : : R R "! P : P C W $0 P C : C "!@P "
0x3978dc…397a70 Dummy {f00=0x010f, f01=0x0190, f02=»S QB 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T> E D :A D ;A 9A Q 5 U _ 5 S A T A *! P * P _ W *) + : $: R P $
0x397a70…397c04 Dummy {f00=0x010f, f01=0x0190, f02=» C R / dF C dF &P C dF & C a a a bncZa cRh f f g j l6l6b b b b c a b b o0t.s svs t.sPczcvc c J W V 7 @ "! P J P W a bz 9c Da, dF c Q a:W g :aW _B( 2 P
0x397c04…397d98 Dummy {f00=0x010f, f01=0x0190, f02=» _ 8^n DaX 2 ! 9B V T PW V P D $ V 6 V % V E @ &' T 2 % 7_ 2 # L . dF 2" &] Y $! 6P Q $ T 9B b _ _ 6 @ &" T 7 $ V P J W _ ` a fH V &
0x397d98…397f2c Dummy {f00=0x010f, f01=0x0190, f02=»:H 2 T Z L Lc D V, W # e Lc E V $ W D V Lc , W 6 2 e W$ " P& Pd" # e ;b Wv " ;d# _ [ v [ JZ dF Jf Z Z : R ; dF 6 : F
0x397f2c…3980c0 Dummy {f00=0x010f, f01=0x0190, f02=» f& : Z 4 " 2@P : [ [ dF & @ $! P [ 6 [ Z 7 c Z 7 : ( :A ( @ &" P ! P [ :;H 2 d~ d ;h e : ; V Y : 2! : 6 2 e W& " # e ;b
0x3980c0…398254 (6, 248) Dummy {f00=0x0112, f01=0x0190, f02=» ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K
0x398254…3983e8 Dummy {f00=0x0112, f01=0x0190, f02=» R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b j P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q if ,^ , < in #
0x3983e8…39857c Dummy {f00=0x0112, f01=0x0190, f02=» V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) " TV *V &V
0x39857c…398710 Dummy {f00=0x0112, f01=0x0190, f02=»$ [ [ >h [ [ nJh nJh nJf Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P nJf V H )_ nJl _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *
0x398710…3988a4 Dummy {f00=0x0112, f01=0x0190, f02=» + : V & [ [ [ [ $ [ [ &! P n nJh nJh nJf z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z nJhH Q nJl P _ T { [ nJn, [ Q@ [ nJf { R [ _ nJf
0x3988a4…398a38 Dummy {f00=0x0112, f01=0x0190, f02=» _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 sBc c fHsDf6c dFs@p q p prs>s s,s(p o p o p r r p p s>p o 6 o K K K K V K :
0x398a38…398bcc Dummy {f00=0x0112, f01=0x0190, f02=» J J " J _Z Z p6 [ Z P J [ V 7_ Z p @ "! P J Z 7 Z Z P J : V R (Q V : 4 4 : n J P v I < : J Qx : Pn 4 ! Th_
0x398bcc…398d60 Dummy {f00=0x0112, f01=0x0190, f02=» [ [ < !AAP !TTT W !**T * [ R !FFP !EET W Ir 6 * B Z 9 ! ; *Xt 8 ! Dr 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 q| !00T ; q _ 9P F " X6# ; W )0_: J R( Z R 4! P
0x398d60…398ef4 (6, 249) Dummy {f00=0x0112, f01=0x0190, f02=» z ;$# + ^" _( T tX. PT*AXYZ9 pr r : ! P ! P ! P ! P dF ! P c W : ! )P9H # T &W &" :I : sD : P & _ &X _ : : : : t o4 : { : t t PX 9 _ t
0x398ef4…399088 Dummy {f00=0x0112, f01=0x0190, f02=» W ) V E t WX t [ t : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : h : dF dF jP kT T : & 9! " : $ : t c $ : R u dF &P C u&/ Q* R u u&
0x399088…39921c Dummy {f00=0x0112, f01=0x0190, f02=»9A:AV X R _ V 4 _P :#0 T B 'W B B " u : Pv v PR Lvz R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ '
0x39921c…3993b0 Dummy {f00=0x0112, f01=0x0190, f02=» C C : dF ( a dF ( _ : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : h : dF dF jP kT T : & 9! " : $ : t c $ : R u dF &P C / Q* R u
0x3993b0…399544 Dummy {f00=0x0112, f01=0x0000, f02=»
[…0x3…]
0x399a00…39a6a0 (7, 0) DirGranule ((7, 0)) {
0x399a00…39a6a0 DirEnt {nam=»MONTOR«, typ=» «, f00=0x0000, f01=0x0000, f02=0x2008, f03=0x0000}
0x399a00…39a6a0 DirEnt {nam=»DEMMN1«, typ=»LM«, f00=0x2020, f01=0x2020, f02=0x2010, f03=0x4441}
0x399a00…39a6a0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x399a00…39a6a0 DirEnt {nam=»DEMMN2«, typ=»LM«, f00=0x434b, f01=0x204e, f02=0x2080, f03=0x203d}
0x399a00…39a6a0 DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x20f0, f03=0x0005}
0x399a00…39a6a0 DirEnt {nam=»CON1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20f8, f03=0x0000}
0x399a00…39a6a0 DirEnt {nam=»CON2 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2100, f03=0x0000}
0x399a00…39a6a0 }
0x39a6a0…39a834 (7, 1) Opaque[0x194]
0x39a834…39a9c8 # DirEnt {nam=»DEMMN1«, typ=»LM«, f00=0x2020, f01=0x2020, f02=0x2010, f03=0x4441}
0x39a834…39a9c8 IdxSect {
0x39a834…39a9c8 f00 = 0x0100 // 0x39a834 @0x0
0x39a834…39a9c8 f01 = 0x0018 // 0x39a836 @0x2
0x39a834…39a9c8 gno = [ // 0x39a838 @0x4
0x39a834…39a9c8 [0x00]: C0x0100.0x2.0
0x39a834…39a9c8 [0x01]: C0x0100.0x3.0
0x39a834…39a9c8 [0x02]: C0x0101.0x0.0
0x39a834…39a9c8 [0x03]: C0x0101.0x1.0
0x39a834…39a9c8 [0x04]: C0x0101.0x2.0
0x39a834…39a9c8 [0x05]: C0x0101.0x3.0
0x39a834…39a9c8 [0x06]: C0x0102.0x0.0
0x39a834…39a9c8 [0x07]: C0x0102.0x1.0
0x39a834…39a9c8 [0x08]: C0x0102.0x2.0
0x39a834…39a9c8 [0x09]: C0x0102.0x3.0
0x39a834…39a9c8 [0x0a]: C0x0103.0x0.0
0x39a834…39a9c8 [0x0b]: C0x0103.0x1.0
0x39a834…39a9c8 ]
0x39a834…39a9c8 }
0x39a9c8…39ab5c Dummy {f00=0x0100, f01=0x0190, f02=»]b ] 0 Z c @ v z ^ ^ j X H 2 Z i% z
0x39ab5c…39acf0 Dummy {f00=0x0100, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A > !N & ? ? ? ? ? ? ? @!N > > U H ( ( P c P WN T P ,$ T T _ V A
0x39acf0…39ae84 Dummy {f00=0x0100, f01=0x0190, f02=» @!L XV ) A!L A _b A A ` A!N_t A A Q > A ( A Q _ A < Q P Q Z Y _ 8 !f Q Z P 0 9 _ x _, _ P H H ? ? ? ? ? ^ A _ _
0x39ae84…39b018 Dummy {f00=0x0100, f01=0x0190, f02=» 4 T - 1_& U T P 0 U _r ? @ T 0 A 1 Q Q >W 0 @ 1 A P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ?
0x39b018…39b1ac Dummy {f00=0x0100, f01=0x0190, f02=»P A : > _ #M 1 A A Q _ A < Q P Q Z Y _ 8 Q Z P 0 9 _ _, _ P H H ? ? ? ? ? ^ A _ _
0x39b1ac…39b340 Dummy {f00=0x0100, f01=0x0190, f02=» $V !b A :( @ X H A ( 1 ) @ H P 1 % E I (@ @ <a D >a H D $! u " C C 6 V P C j U4 B 0 C # C C S j Y ' !b C
0x39b340…39b4d4 (7, 2) Dummy {f00=0x0100, f01=0x0190, f02=» A J ;h # <c$ "" P P` 4 5 T P ? X U X #( > P P P P( P ] 0 X T Y W U @ U U T Xp T E ! Y T 8R X P y W Wp Y X ;BR U X ' X~_ r 4 U
0x39b4d4…39b668 Dummy {f00=0x0100, f01=0x0190, f02=» X # T 8R X P y Y X (@ L P P "& (@ > $P$ D P P4 P P _ E W Q Y W 8 " E 4 % E Y HB @ P A #( ? @ T A % > > 0 C # C C S j Y ' C
0x39b668…39b7fc Dummy {f00=0x0100, f01=0x0190, f02=» ! Q ! B Z P C ! B P $$ R % C ! _, Y &X Y $P. Y %P( $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! 0 X X ! X P R ?]*
0x39b7fc…39b990 Dummy {f00=0x0100, f01=0x0190, f02=» P ! X ( _X ! A L X RJ 8 J P X ' Q 8 J " W C U X Y ( Y B 9a C ! 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y ! Y * ! X *_B B 1 4 X X X X ' 4 B U B $
0x39b990…39bb24 Dummy {f00=0x0100, f01=0x0190, f02=» X Y 9 X !P T4 A <W A < @ <A. L ! Y L W" L x Y ! z X &R !| ! B X ; Z Y B < Z*:A Z4 ^: Y: Y Y Z B Y V V Y ^ Y X Y X !? P* P P" P ! 4 ! P @ 9
0x39bb24…39bcb8 Dummy {f00=0x0100, f01=0x0190, f02=» Y D @ T4B S4W. Y Z 8! T X ^ Y Z X X C X U Y V f 8 J ! Y _ Y Y X HP y H_, H _< Y H Y B Y L x Y ! z ! # P >W ! N 9 ! X ^< Y Y B Y X LP 1 Y L < 0 Y N 1 0B. X J P Y : ! z
0x39bcb8…39be4c Dummy {f00=0x0100, f01=0x0190, f02=» P X R K P0 @ T X TT $C Y B ! K & % Y B K X D :AZn X FP Y F ! P + 7P, $ P + < $ <C ! 9 9 4 X Z9C X ^: X V X X 4 ! # T X BT 4 A 2;D A 2 4
0x39be4c…39bfe0 Dummy {f00=0x0100, f01=0x0190, f02=» U @ C W < 0P P X T C T" V$ Y ( Pp q 0 ) Wb X P^ ( T& B RPP" A @ < A < WD @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U !
0x39bfe0…39c174 (7, 3) Dummy {f00=0x0101, f01=0x0190, f02=» C C # P Y '? Y Y T # P W Y (@ 2 @ _ > (@ X L U0 L QL L # T R < 5 ^ R < 5 Y J X D D P ( ) 1 H _( X (@ X P 0P X T 4 Y X 1 1 X P> - M X P.
0x39c174…39c308 Dummy {f00=0x0101, f01=0x0190, f02=»_ !v ^ 4 _ @ 1 A _ P 9 H T R L U ~9C T M D _ W8 M $R M A!N ! _ D $P D % 1 I D u T T T T T T > & " !p" ! " 5 V5J 5 5 6@ *4 5 7 $" P
0x39c308…39c49c Dummy {f00=0x0101, f01=0x0190, f02=» : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X < F $ P W $ P $ - j : !N ( H > D FW 0P Q P P E AP W : X A X F 1 Y F(@ : F 4W 0P< R Q P W R
0x39c49c…39c630 Dummy {f00=0x0101, f01=0x0190, f02=» H(@ : T @ [ SB P W @ U0 T [V S W U 8 U : P T > _ W U < : * D 8 C D : C B P. T G W B I X "? T _$ : X X 8 X : ! # X =H C C W C C C X %? : C X <_"
0x39c630…39c7c4 Dummy {f00=0x0101, f01=0x0190, f02=» R&P % % @ I I I I _4 @ P !B #D9 V ( 1 Y !> ,P :A !J A!J >P W $ P $ - j : ( H > D W 0P Q P P E P W : X X 1 Y (@ J ' x ! x A
0x39c7c4…39c958 Dummy {f00=0x0101, f01=0x0190, f02=»X2 " (@ I # V V " LP V : V V P W Y Y " V V T Y Y P(_t (@ - $T 1 %_" Y (_ @ 0P $P X X $ $P, # ' P @T #?W #?$? _2 J @" P Y 9 @ J
0x39c958…39caec Dummy {f00=0x0101, f01=0x0190, f02=» W Y B W _.! T , T P % Y % Y Y V + V K V K : V K < V K A V % K C V & K D X P K @ X 9AV K 9 !? K > F " G R N ! N P" N & N T S _ _& - M
0x39caec…39cc80 Dummy {f00=0x0101, f01=0x0190, f02=» (@ X $ T ( _ ^ $ : Mu MzP" $ 8X 8 , Y $ : _ & 74(@ T X C X r V P _ : C @ X @ | T N V )$ T B * Y $ : " $ Y : @ P0 8 T _ " &
0x39cc80…39ce14 (7, 4) Dummy {f00=0x0101, f01=0x0190, f02=» Tr p C B $ ) Y WX X $ $ ^ WB X Y :g H " I "! P& X !> !JP ,P 9A _ H "P I " X p P Y !2 X$; [(;! P "Z0?AZ4 @!J Q " X " $XL ( I T E _ (X _ X $ _v > > > >
0x39ce14…39cfa8 Dummy {f00=0x0101, f01=0x0190, f02=» Y U ( ) 5 & > > > > > > > $ " [ [ [ [ [ [ [ > > [ [ !N Z P D 0P P - I 1 P { Z Z ? ? Z Z Z Z Z Z Z " $ & > P~ "R~ Y ! ( Pj T P` !v <UR
0x39cfa8…39d13c Dummy {f00=0x0101, f01=0x0190, f02=»P T 8! P< P8 #( Y Y Y Y ! X X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X " Y X D V J X #| $ % Y U R -P % X ( ) Y * % X " PP:A: R Q
0x39d13c…39d2d0 Dummy {f00=0x0101, f01=0x0190, f02=»% X (T !#TW & Y * V & !# B P X " _Z B P$ $$ R % C & * !# W Y 'PH Y &P> Y $P Y %P & R _Q P OR R W " !# B $2 Wr W 0 Z & !# B Z Z& X * ,T L W X (P Y * 0 %_. % Y * W _p
0x39d2d0…39d464 Dummy {f00=0x0101, f01=0x0190, f02=» X *T * W Y ( - ! ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > LT , _ !"$&;<>@^_ x '$ (X( (t PB P8 !| B
0x39d464…39d5f8 Dummy {f00=0x0101, f01=0x0190, f02=» R( Pj O]: V _B T Y Y " R Y _Z C _P # # " $ P X " X ]r !#: Y Y Y _ # " H' _ !#: !#: (H J ! X C _ X Y " Y > X Z$<BR P 0 #n X _> R0 V0 ! P* P P P" R ?Q !#: Y R Q (H
0x39d5f8…39d78c Dummy {f00=0x0101, f01=0x0190, f02=»(> ). ) * B 8# T $ # ;D !99P 7Pj PZ !| Y X T ) Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y Y W Y Y X Y 8# T W$ T( X $ P X P B V *@ Y #( ! ! X _H * /R-z- -
0x39d78c…39d920 Dummy {f00=0x0101, f01=0x0190, f02=» " _ Y "_. 8$ T B 1 . !#: -b B B U4 $ ! T _ U D ! T _ $$ X" X& X* C # - X`" E* P( 8'0P E* TJ ! T 9 _ ! T @_ ! # B P 8' T& !. B C - ^T PP RD ?] _ X X "" X
0x39d920…39dab4 (7, 5) Dummy {f00=0x0101, f01=0x0190, f02=» B 8! T !/6 !. !#: -, !/6 R !#:_ B !/6 V Z, !#:_ 8! T B Y " !/ W B Y $U X $ X " R P !#: W Y "_ Y " B Y %U X % T T W V X # Y %U P"R !#:_ R _ !#: Y # + " !#: 8!0T 8 !@P !#:
0x39dab4…39dc48 Dummy {f00=0x0101, f01=0x0190, f02=» #n Y 8" P !#: !#: T X !#: Y " Zz -J T _ !#: X $ P !.P + R V P P" !#: -bW -R # X $ X !.P_ X $ X 8! P !.P_( X " !/ !. Y _D X " X "" Y %U W !#: !#: !#: Y 4 B *
0x39dc48…39dddc Dummy {f00=0x0101, f01=0x0190, f02=» !#: !#: 4 !#: V !#: V W :h !#: 4 X %" X ## R 4 -R > / 424J/l/z/ / / 0 $26 / 0 1 83 71 $26 '2 D X " :F 8 9 8! 9e D/d ( !| P _ H C !3 !4 ! P !3 !4 C W 8# T !"P ! " W
0x39dddc…39df70 Dummy {f00=0x0101, f01=0x0190, f02=» # P6 Z P$ T W R _X"R /P !4 W0 W Y $ !#:_> !4 !'P ! T " T X $ Y %W ! !| X )$ P B R b " X ' +P P T Y ,Q Y & Y ( !3 !4 # P6 Z P$ T W R _R X$ /P !4 W8 W Y & !#:_> !4 !EP ! T " T
0x39df70…39e104 Dummy {f00=0x0101, f01=0x0190, f02=»<C Q6 X )! T, !3 * P]@ % !4 4 !4 ! ! !| X " B V " Y " # T # # P Y $ # T # # P Y & Y # !3 X " !4 X # !4 !4 ! ! B <C Q B !3 Q Q]@ !3 :K Q]@ !3 Q !3 P !3 R !3 P PQ !3
0x39e104…39e298 Dummy {f00=0x0101, f01=0x0190, f02=» !3 P" (Q !3 W Q]@ Q]@ ! !| , !3 " 4 , !3 " R _ , !3 " Q]@ 4" 0Z@ YD 9 4 !3 !4 ! T Y ( Y & ! !#: W, !#: !#: !#T Y 4 !#: W " U !#: 4 T #n X ! ! ! X T Y Y X "R @/ Y "
0x39e298…39e42c Dummy {f00=0x0101, f01=0x0190, f02=» ( Y & X / ! ' "?:B ] ( P H U _ T U P U ;C ,$ T -_> - _H "RT PL X TF X R@? V X " X H P J X P Y X H P @ J < ? < ? <(@ 6 C # P >_ < U =
0x39e42c…39e5c0 Dummy {f00=0x0101, f01=0x0190, f02=»P P T` N !v 72 P B B T P2 & T, L L R Q U V , , " _L , SF V :a B # S6 S6 Q Z: Z> P X _L _< _< " " P2 @ Q, , Y ," P L P T L
0x39e5c0…39e754 (7, 6) Dummy {f00=0x0101, f01=0x0190, f02=» 7 8 * (@ @ D X P _ Y A X T X % T U7 P ^ ;l=A Y 7 T P H I T7v I $ C C ;l T X?j :$ :j?j :@Wp X X# Xr X B# T :
0x39e754…39e8e8 Dummy {f00=0x0101, f01=0x0190, f02=» 8T X I X I H > I ^ Y B J ^ > U T$ " T ^ , -! T W" 7 P I ;l B B ;l Y < ; H H C C _ X "" 7 Q X C X DT T W Y H H S W W B B B
0x39e8e8…39ea7c Dummy {f00=0x0101, f01=0x0190, f02=»<j 9$ B B $ T _( C C W B B X N Rd Tf #D X ! V( X Y ( P$ H P$ X ]MvP _ M~ ( T D : ! A X N ! ;v = @ A7 M AM N ; @;r , - M M M M @;r X
0x39ea7c…39ec10 Dummy {f00=0x0101, f01=0x0190, f02=» 8T X I X I H > I ^ Y B J ^ > U T " T ^ , -! T W 7 P I B B Y < H H C C _ X "" 7 Q X C X DT T W Y H H S W W B B B
0x39ec10…39eda4 Dummy {f00=0x0101, f01=0x0190, f02=»<j 9$ B B $ T _( C C W B B X N Rd Tf #D X ! V( X Y ( P$ H P$ X ] P _ ( T : ! A X N ! C T X?j ?j W X X# Xr X B# T
0x39eda4…39ef38 Dummy {f00=0x0101, f01=0x0190, f02=» 8T X I X I H > I ^ Y B J ^ > U T " T ^ ,A W 7 P I B B Y < H H C C _ X "" 7 Q X C X DT T W Y H H S W W B B B
0x39ef38…39f0cc Dummy {f00=0x0101, f01=0x0190, f02=»<j 9$ B B $ T _( C C W B B X N Rd Tf #D X ! V( X Y ( P$ H P$ X ] P _ ( T : ! A X N ! C T X?j ?j W X X# ;v # T
0x39f0cc…39f260 Dummy {f00=0x0101, f01=0x0190, f02=» 8T X I X I H > I ^ Y B J ^ > U T " T ^ , W 7 P I B B Y < H H C C _ X "" 7 Q X C X DT T W Y H H S W W B B B
0x39f260…39f3f4 (7, 7) Dummy {f00=0x0102, f01=0x0190, f02=»<j 9$ B B @;r , L T" L P ?A M L T L T M W L T L T M M L Q L A;t @;r Z @;t P % P % T W [ [ M M M M A;r -(@ : - : @;r , L T M @;r (@ :ERERH H F F F G F F F F ERH P0VXG P (@ X
0x39f3f4…39f588 Dummy {f00=0x0102, f01=0x0190, f02=»( ^ G D> _z ( ^ G B W Y X C X '? Dh X < X > )T P T0 X ! T(W" G P F X >U X > G Gr F S W G G F F F X $? Gr G X X# T B D> D < > F
0x39f588…39f71c Dummy {f00=0x0102, f01=0x0190, f02=» H PX D "? X P D " & X J F D < X > Xt XF @W X '?W W A G T, H NP L J X < L > ^ & Iv X > X < F $ P W $ P $ - j + X XR ( ^ T W Y X F F D '?
0x39f71c…39f8b0 Dummy {f00=0x0102, f01=0x0190, f02=»Iv X X# T B D> X N J(@( ^ > * YD * X $? T X $ P T D < D > H G H H G N Z N '? T V K K F K F K X K Y Y X E D < D > )P( D
0x39f8b0…39fa44 Dummy {f00=0x0102, f01=0x0190, f02=» _ X X# T B D> X '? P. P NX X E X E Y J P W* D N X J_8 H D D N P JW ^ > YD Il X X !? K Tn U D <W X W L D > )P D Z E <_$ H X, D < D ZT ( d G
0x39fa44…39fbd8 Dummy {f00=0x0102, f01=0x0190, f02=» X Z X < X Z X < 9A P X " # C X :H C X 8 C X : C ( d G X Z Y < )P X W W X _ Z E CR Q D DU Y C Y D G Y D> I Il X < X
0x39fbd8…39fd6c Dummy {f00=0x0102, f01=0x0190, f02=» X Z X < - Z < X Z Y < Z < Y T <T Z [ P T P ( d G D> X W _ T ZW T > U < T > 1 | T N T I T Z C C Z G V G W P (
0x39fd6c…39ff00 Dummy {f00=0x0102, f01=0x0190, f02=» X Z X < X Z X < 9A P FN^ d G X Z Y < )P W W X _ E CR Q D DU Y C Y D G D> I Il X < X
0x39ff00…3a0094 (7, 8) Dummy {f00=0x0102, f01=0x0190, f02=» < T <T P T P ( d G D> W _ T ZW T > U < J B& AO R P NP L <a QO<_ O J " T # T W 0T # P P
0x3a0094…3a0228 Dummy {f00=0x0102, f01=0x0190, f02=» H MOz ( MOp _" O * F % G G @ 7 T ( ^ T$ 9a " EO<& 7 PJ _ W & P & I - G V W _* _ # ( ^ G O T @O Yf?A W ' 7 R ^ S G F > P2 J # "
0x3a0228…3a03bc Dummy {f00=0x0102, f01=0x0190, f02=» O LP F D VOp O J F ;F J $ $ P O ;H O X N YMvP _ XMz O Y N > N @ [V O Z N > :h! P O :G Qf N OH U # T 7 T * j # [ # O X O ] O Y F VOz Qf F < [V9 :aP @N Q TN X TN Z Z U
0x3a03bc…3a0550 Dummy {f00=0x0102, f01=0x0190, f02=» @M 5 AM (@ T QV B C _B Qh * G < ?a O< C DF( ^ QV O W @OH L B G D G D ;a R F Q F Q H Q J Q L N J Q N N > Q P Q P ?a Qn F F N & [ Qb G @ G B : U 7 TF @OH D
0x3a0550…3a06e4 Dummy {f00=0x0102, f01=0x0190, f02=» N X:n G V V N & [ Qb N @' [V W W ^2 : J P U Q P T OH 7 TZ R TOHX OH N j_ j " AOB J H $ P _ , % @M ) AM (@ : N B" P :C;B F J L B
0x3a06e4…3a0878 Dummy {f00=0x0102, f01=0x0190, f02=» L L C D OR UOH <a QO< QOB<B O O^_H AOB J " " H V H ROB" P J P 7 Q ?A OHP `(@ N %? Tt N F ;F H 4 5W P 0 @M 1 AM (@_ ORPD @N P2R8 TN TN R$ TN UN N @N jW U
0x3a0878…3a0a0c Dummy {f00=0x0102, f01=0x0190, f02=»[V9 Xt & ?! U P _: P _ W 4 4 , , , : , )Q R V _ W W : T. ; [ V ( d Td E <Wl D <V ; [ _ D ZV D > E <WR ; [ D : D S W E 8 E : W D> _|
0x3a0a0c…3a0ba0 Dummy {f00=0x0102, f01=0x0190, f02=» Z E CZ<Q D DZD < W, Z Xt Q R W K ]f J _l W W : : N HW PL T S Y R Y Q Z$ Z* Z R R R Z S S _P (@ : T 8 T : [ T [ T @ [V T > T < ^
0x3a0ba0…3a0d34 (7, 9) Dummy {f00=0x0102, f01=0x0190, f02=»Q S W S Q R S P W S _ R _ ;A [ [ : T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P
0x3a0d34…3a0ec8 Dummy {f00=0x0102, f01=0x0190, f02=» 0123456789 `<< @,-. 0123456789 ;<=>?'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ ~ ?;_: =!"#$%&/() ;<=>?^ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}* D : ($SWAP A A A A A. j UU @ @
0x3a0ec8…3a105c Dummy {f00=0x0102, f01=0x0190, f02=»Q" ]L :d @ # U R>P0 P kp f Ajh f P2 e _ * A hXW * A g W :a2 * A fN jh & W F W @ F W CRP BAP COP A W F A @ : V, @ P kp;b=H : ` F ` W =J : R F P W W @ $ P @ R| W
0x3a105c…3a11f0 Dummy {f00=0x0102, f01=0x0190, f02=» PF A @ m U U^ A Q m VD Y2 W V @ " TJ W P m Y kp aD kj Y P @ P @ T W - kjP _ T <B :L A W
0x3a11f0…3a1384 Dummy {f00=0x0102, f01=0x0190, f02=» = :L < P W <9B @ V W Q kp W @kj A i @ bF V W bF! P W @ V P _ @ ! P* j 9h !RRP V V bF W _> kp j j j^ V V PZ W @ @
0x3a1384…3a1518 Dummy {f00=0x0102, f01=0x0190, f02=» W W f f PH e dpW> f T e f W e c h W @]J W d d d d d eD et e d eL et e d eT et d d d d V 00P& e e et d d ed et d d _0 d d V 00P e el et d d _ 0 !
0x3a1518…3a16ac Dummy {f00=0x0102, f01=0x0190, f02=» k W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W k nX T d : f b : kp d : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 Ad P.=H_, !11R
0x3a16ac…3a1840 Dummy {f00=0x0102, f01=0x0190, f02=» : e : e : e : 0 )T : !00T W : kpTID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : e C. e X C.9h! e e # " e e :A K : A T.I T P 1 I P < R P A _> kp : @ " P P ^
0x3a1840…3a19d4 (7, 10) Dummy {f00=0x0102, f01=0x0190, f02=»P A]P9C) A I " @]P! P " :B A]R t q B J " n : 0 R _ <d?d A]NU <e @]PP A]P<C, D L " @]P$ P " :B A]R t w B J " r R,Q$ @ ( = @]NQ @]R "| _@ _$ : Ah Ah AhF AhJ g A
0x3a19d4…3a1b68 Dummy {f00=0x0102, f01=0x0190, f02=» I ! j : h Ajh Ad Ah Ai Ah ! T h h W Ah Ah I ! : 9D @ @]Lr s @]JA I T - A _ I N T V S : kp h i 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P t8 @ T X
0x3a1b68…3a1cfc Dummy {f00=0x0102, f01=0x0190, f02=» W W X X S W W W : V W V T W P jl V T W F P P V W @ $ P p W k T : Ai jh_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A
0x3a1cfc…3a1e90 Dummy {f00=0x0102, f01=0x0190, f02=» T W Z A. c @ V W U kp R $ )_ : V r m V kp t m Z W r _j V <B W : $ k w : V $ V l $ k V M :
0x3a1e90…3a2024 Dummy {f00=0x0102, f01=0x0190, f02=» V : t " D P W V Pv $;A^ D E D P. V kpP kp P T kp E _N T k E _ r m V kp t_~ " V r D T E % k E : " R ;B D D k " P P R P |P M M : V W
0x3a2024…3a21b8 Dummy {f00=0x0102, f01=0x0190, f02=» @ 0 V @ kp 0 H W : ? ? R 0 R P P B : _ !P : 4P0 " D n, H H $ M v b - I Y& : @ ` V b pPp n" nN $ @ ! P I " = 4 Q n _D mp I
0x3a21b8…3a234c Dummy {f00=0x0102, f01=0x0190, f02=» @ P P^ P PR_ _ @ V W U( P P( P V W U " @ Q V P A. V P _T A A V .V 3 S Y& P4 S P 3 _
0x3a234c…3a24e0 Dummy {f00=0x0102, f01=0x0190, f02=»R k W n V pT : N V l W H V ]" . nT" l W v l W n V ~P q W x l@ r m l@ _v V d , V kp P _ N L % V d V f G G U l G : m P k m V m : l l V ~P q W x l@_$ 8 V
0x3a24e0…3a2674 (7, 11) Dummy {f00=0x0103, f01=0x0190, f02=» G k ) G ` " W p W ~ pP0 q R m P q m _ W ~ R m X4 q m _ ` W ~ pPV q R , n k " E R q W ~ R q R P sX R X^ sX_dW m T : k l W x l@ m _ V P. n, I k @ D ) @
0x3a2674…3a2808 Dummy {f00=0x0103, f01=0x0190, f02=» | j W V b ( W p V ` $ W ` k 0 ;h 0 :C # : .=H N t8 n .=H N t8 n N : d 8" R _ ZY QY : @ H W z W | CRP W ` ` H W d 2 @ m R kp - @
0x3a2808…3a299c Dummy {f00=0x0103, f01=0x0190, f02=»T tV !UUT d u WT t 2 .:H N R P V kp _ N S t S YB : v ` @ W W W @ W D n V W W ` " W p @ pP* " 4X 1 R Z0 %
0x3a299c…3a2b30 Dummy {f00=0x0103, f01=0x0190, f02=»]J P w@ W r w@ W @ @ % 4 V , P@ , - 4 ] 4 m Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP kp @ T kp Y tR !TTX" A 9 A
0x3a2b30…3a2cc4 Dummy {f00=0x0103, f01=0x0190, f02=» x 3 S S V V W @ @ T kp : P S S _ : V CRP COP W @ 3 V 3 3 @ S @ V Pf 9h !RRP @ ! T W* @ S W @ U
0x3a2cc4…3a2e58 Dummy {f00=0x0103, f01=0x0190, f02=»@ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T kp : W . !TTP kp W t N =H N W l V CRT N =H N W p N =H N t8 W | ( @ % 5 T W @ = V W = V
0x3a2e58…3a2fec Dummy {f00=0x0103, f01=0x0190, f02=» _2 V tP m R kp S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W _ tR !TTT zv j : . !TTP kp V W t * P r
0x3a2fec…3a3180 Dummy {f00=0x0103, f01=0x0190, f02=»Y@ V p _f V t Y tR !TTX @ @ T kp : W % @ P _ R @ WT R @ 0 W ` W W& T kp P _ V A V W W t PT W f (
0x3a3180…3a3314 (7, 12) Dummy {f00=0x0103, f01=0x0190, f02=» T kp : tR !TTX !CCTr P, V r 4 U kp $ $ _. P, V 4 U kp $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W P0 W f W d
0x3a3314…3a34a8 Dummy {f00=0x0103, f01=0x0190, f02=» K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T kp : W V F !SST WJ !AAT W> V V 0 V P _ W $ q > R P >b W >b & 8P : V ]b V W R 9 W D
0x3a34a8…3a363c Dummy {f00=0x0103, f01=0x0190, f02=» ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P < V : ` P: @ @ @ D (P W H $ I " % E , a : V Q R $ F !LLT # W ;I # ;b W ;a
0x3a363c…3a37d0 Dummy {f00=0x0103, f01=0x0190, f02=» 8T A 8 V W Y0 Z6 : @ :T A : V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$
0x3a37d0…3a3964 Dummy {f00=0x0103, f01=0x0190, f02=» @ 8 @ :P V k A : (P ) @ : @ @ T kp : N =H N t8 : N =H N t8 : &=H F t8 : F =H F t8 : F =H F t8 : P N =H N T tR_ : @ ! P (W ( : 00=H 00 P P _ _ : w
0x3a3964…3a3af8 Dummy {f00=0x0103, f01=0x0190, f02=» A P 0 F 1 F " z 7 7 ! L 1 L L# KB AAP " " $' P T P ")&DI ?O_o (* Y z P
0x3a3af8…3a3c8c Dummy {f00=0x0103, f01=0x0190, f02=» (* Y k A : ( 4/ TP A L# KB ]4 =H F P N =H N T tR_ : @ ! P (W ( : 00=H 00 P P _ _ : w
0x3a3c8c…3a3e20 Dummy {f00=0x0103, f01=0x0190, f02=» . !TTP m W t N =H N W l V CRT N =H N @ W p N =H N v W | ( @ % 5 T W @ = V W = V P0 r " U m _2 P0 " U m
0x3a3e20…3a3fb4 (7, 13) Opaque[0x194]
0x3a3fb4…3a4148 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03c8, f03=0x0000}
0x3a3fb4…3a4148 IdxSect {
0x3a3fb4…3a4148 f00 = 0x001e // 0x3a3fb4 @0x0
0x3a3fb4…3a4148 f01 = 0x0004 // 0x3a3fb6 @0x2
0x3a3fb4…3a4148 gno = [ // 0x3a3fb8 @0x4
0x3a3fb4…3a4148 [0x00]: C0x001e.0x1.0
0x3a3fb4…3a4148 [0x01]: C0x001e.0x2.0
0x3a3fb4…3a4148 ]
0x3a3fb4…3a4148 }
0x3a4148…3a42dc Dummy {f00=0x001e, f01=0x018e, f02=» 0 P IDENT CTAB01 6236/71/72 CONVERSION TABLES L P ENTRY CTAB01 8 P ENTRY CTAB02 P ENTRY CTAB03 P ENTRY CTAB05 L P**************************************************************
0x3a42dc…3a4470 Dummy {f00=0x001e, f01=0x0190, f02=» L P************************************************************************ PCTAB05 EQU * X PCTAB03 EQU * l PCTAB02 EQU * L PCTAB01 DATA FUNCTN,FUNCTN,UNSHFT,SHIFT,UNSHFT,SHIFT L P************************************
0x3a4470…3a4604 Dummy {f00=0x001e, f01=0x0190, f02=» TABLE FOR THE FUNCTION CLUSTER * L P* * D L P************************************************************************ L PFUNCTN DATA /8C83,/878B,/8188,/8A84,
0x3a4604…3a4798 Dummy {f00=0x001e, f01=0x0190, f02=»/9980,/9394,/959A L P************************************************************************ D L P* * L P* CONVERSION TABLE FOR UNSHIFTED CHA
0x3a4798…3a492c Dummy {f00=0x001e, f01=0x0190, f02=»************************************************************ L PUNSHFT DATA /20FF,/FFFF,/FFFF,/FF60,/3C3C,/FF40,/2C2D,/2EFF D L P DATA /3031,/3233,/3435,/3637,/3839,/903B,/3C3D,/3E3F L P DATA /2741,/4243,/4445,/4647,/4849,
0x3a492c…3a4ac0 Dummy {f00=0x001e, f01=0x0190, f02=»************************************************************ L P* * D L P* CONVERSION TABLE FOR SHIFTED CHARACTERS * L P*
0x3a4ac0…3a4c54 (7, 14) Dummy {f00=0x001e, f01=0x0190, f02=»20FF,/FFFF,/FFFF,/FF7E,/FFFF,/FF3F,/3B5F,/3AFF L P DATA /3D21,/2223,/2425,/262F,/2829,/D03B,/3C3D,/3E3F D L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,
0x3a4c54…3a4de8 Dummy {f00=0x001e, f01=0x4048, f02=» @ DA /3D21,/2223,/2425,/262F,/2829,/D03B,/3C3D,/3E3F D L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,
0x3a4de8…3a4f7c Dummy {f00=0x001e, f01=0x2008, f02=» T L P DATA /5E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F L P DATA /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF d L P************************************************************************ L P END
0x3a4f7c…3a5110 Dummy {f00=0x001e, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x3a5110…3a52a4 Dummy {f00=0x001e, 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 >
0x3a52a4…3a5438 Dummy {f00=0x001e, f01=0x0190, f02=» 3x ^ h 5 3t N D E XQj DEX D' WPj D W D*j D DF0 DP 1 A A24 0 4 1 3+ . + + $ Bcl*:, - * - + , + ) - - - - 2 -(+ + ,Z,Hc - ) . x( < d N v
0x3a5438…3a55cc Dummy {f00=0x001e, f01=0x0190, f02=»MFILE & ( ) 0 9 D E F P S9Z99Z9ZZ999ZZZ9999ZZZZ99999ZZZZ9ZZZZZ99999999E:99ZZE:ZZZZZZZZZZZ9,99ZZZZ,ZZZZZ9,99-ZZZZ9,00ZZZZ9,99ZZVZZ9,99ZZVZZZ,ZZZZZZ9,99-ZZZZZ9,99ZZZZZZ,ZZ99E-99E-99ZZE-ZZE-ZZZZZZZ9,99-ZZZZZZZZ9,99ZZZZZZZZZ,ZZZZZZZZZZ9,99-ZZZZZZZZZ,Z
0x3a55cc…3a5760 Dummy {f00=0x001e, f01=0x0190, f02=» < < < , O 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.e0e e e%e&e*e+e1e2e3e4e)
0x3a5760…3a58f4 (7, 15) Opaque[0x194]
0x3a58f4…3a5a88 # DirEnt {nam=»DEMMN2«, typ=»LM«, f00=0x434b, f01=0x204e, f02=0x2080, f03=0x203d}
0x3a58f4…3a5a88 IdxSect {
0x3a58f4…3a5a88 f00 = 0x0104 // 0x3a58f4 @0x0
0x3a58f4…3a5a88 f01 = 0x001c // 0x3a58f6 @0x2
0x3a58f4…3a5a88 gno = [ // 0x3a58f8 @0x4
0x3a58f4…3a5a88 [0x00]: C0x0104.0x0.0
0x3a58f4…3a5a88 [0x01]: C0x0104.0x1.0
0x3a58f4…3a5a88 [0x02]: C0x0104.0x2.0
0x3a58f4…3a5a88 [0x03]: C0x0104.0x3.0
0x3a58f4…3a5a88 [0x04]: C0x0105.0x0.0
0x3a58f4…3a5a88 [0x05]: C0x0105.0x1.0
0x3a58f4…3a5a88 [0x06]: C0x0105.0x2.0
0x3a58f4…3a5a88 [0x07]: C0x0105.0x3.0
0x3a58f4…3a5a88 [0x08]: C0x0106.0x0.0
0x3a58f4…3a5a88 [0x09]: C0x0106.0x1.0
0x3a58f4…3a5a88 [0x0a]: C0x0106.0x2.0
0x3a58f4…3a5a88 [0x0b]: C0x0106.0x3.0
0x3a58f4…3a5a88 [0x0c]: C0x0107.0x0.0
0x3a58f4…3a5a88 [0x0d]: C0x0107.0x1.0
0x3a58f4…3a5a88 ]
0x3a58f4…3a5a88 }
0x3a5a88…3a5c1c Dummy {f00=0x0104, f01=0x0190, f02=»f g L L L L ^ L L L L L L L L L L L L L L L L L L L L L L L L l L L L L L ( ( L L L L L L L L L L L L L L L L L L L L L R c @ v z ^ ^ j X H 2 Z i% z
0x3a5c1c…3a5db0 Dummy {f00=0x0104, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A H " )` _ @)` > > U # T @ | H ( ( P c P W6 A)` $ V ( U P @ JV L J
0x3a5db0…3a5f44 Dummy {f00=0x0104, f01=0x0190, f02=» H A Q > ? A H A FQ 2_ A F < Q @ P @ Q @ Z Y _ 8 )j Q Z P 0 9 _ z $ _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ )^ $P T I R $ 5 % > ? W ? W ? T
0x3a5f44…3a60d8 Dummy {f00=0x0104, f01=0x0190, f02=» @( T R 0 A( 1 Q Q > > 0 @( 1 A( P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @( V ? ( > _ > ? _ > > ? ^ ! Y ^ _ R ? JA. ~
0x3a60d8…3a626c Dummy {f00=0x0104, f01=0x0190, f02=»;h # <c$ "" P P` 4 5 T P ? X U X * > P P P P( P ] 0 X T Y W U @ U U T Xp T E ) Y T 8R X $P y $W $ Wp Y $ X ;BR U X ' X~_ r 4 U P> $P4>
0x3a626c…3a6400 Dummy {f00=0x0104, f01=0x0190, f02=» X $P y $ Y $ X (@ L P P "& (@ > $P$ D P P4 P P _ E W Q Y W 8 " E 4 % E Y > >B @ P A * ? @ T A % > > _ > > ? ^ ! Y ^ _ R ? JA. ~
0x3a6400…3a6594 (7, 16) Dummy {f00=0x0104, f01=0x0190, f02=» B Z P C ! B P $$ R % C ! _, Y *X Y (P. Y )P( $ P 0R Q W R ?U C ! _f Y (P Y ) _ ^ _ ! P: B L # +P Y , ! U _ X T _ W ! Y ! 2 X X ! X P R ?]* U C _.
0x3a6594…3a6728 Dummy {f00=0x0104, f01=0x0190, f02=» ! X , _V ) A H ? N X RJ 8 J P X ' Q 8 J " W C U X Y , Y B 9a C ) 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y ) Y . ! X ._B B 1 4 X X X X ' 4 B U B $" 4 C 4
0x3a6728…3a68bc Dummy {f00=0x0104, f01=0x0190, f02=» B Z P C ! B P $$ R % C ! _, Y *X Y (P Y )P $ P W R ?U C ! _f Y (P Y ) _ ^ _ ! P B L # +P Y , ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _.
0x3a68bc…3a6a50 Dummy {f00=0x0104, f01=0x0190, f02=» ! X , _V A H ? N X RJ 8 J P X ' Q 8 J " W C U X Y , Y B 9a C Y " Y H X Qj p "9 ! :a ! ( T8 C Y Y F ! T X $ Y (Z Y F P P P P P ) r B ! T 9 !
0x3a6a50…3a6be4 Dummy {f00=0x0104, f01=0x0190, f02=» H V^ H VY B 9 R0P 9 ! B W" ! B H R T ! B WJ ! B @WB ! B U ! B ! B _ P Q R" ! B W ! B ! B @W ! B ! B r 8;e ! H RPt I R ! ! 9 R ! 9 R Y " ! I R W0 ! H R;E Y ! Y H ! X ! ! P Y " P r !
0x3a6be4…3a6d78 Dummy {f00=0x0104, f01=0x0190, f02=» I ^ W :A H I Y Y Y H ! ! W, t R Y H ! t 9A ! 9D ! HW Y H ! 9 t " :A C :a X ! U 4 ! ! ! &! ! P Y " ! r 4 X ;F 8 X P^ ! ! ! ! ! P Y " r X HT$ X P _ X X L ^ W :A H W @ ! H
0x3a6d78…3a6f0c Dummy {f00=0x0104, f01=0x0190, f02=» 4 Y 8 9 Y Y :c Y 4 8 X HP T X :F Y 4 X P* X X P _ X X I ^ W :A I Y 4 H R;C+ W( W$ W X HT X :AW "9 q r Y @ T )F Q J j Y Y ) ? ( p Y Y F @ T Y ! ! Tn Y ! ! T` Y ! ! P Y
0x3a6f0c…3a70a0 Dummy {f00=0x0104, f01=0x0190, f02=» & Y Y F p _ A H ? (I F 9AZL9a P D ) X FV # T( X X X 4 Y W C X "P v ) ! ! T 9 ! I R Y H ! ! ! Tr " X FP ( @ B TOT2 @ J 1T( @ R )F # " Q ^ P R P Q V X X X Y !
0x3a70a0…3a7234 (7, 17) Dummy {f00=0x0104, f01=0x0190, f02=» T 1 WP B B PD P ) V - 0 P A 0# +T W Q P P 1 ! B T V C B Q 1 v ) Y @ r t @ B X _" ? X Z,W A H ?I X ' { B C X 4
0x3a7234…3a73c8 Dummy {f00=0x0104, f01=0x0190, f02=» Y Y _ A H ? I F 9AZL9a P D ) X V # T X L ^ ~ ~ ~ ~ N N N $ ( , 0 4 8 < ( H 0 ) $P $ ) U @ T C @ |W 0P P > T C T" V$ Y Pp
0x3a73c8…3a755c Dummy {f00=0x0104, f01=0x0190, f02=» C C 8W T 8P Y ^ 5 ) P U ) XT ! X ! X P X T _l Xf Y @ P. R T& X &P P H T _ X I Y T # C C W4 O " # X Y ) C C
0x3a755c…3a76f0 Dummy {f00=0x0104, f01=0x0190, f02=»$? P $ > > F C F C > B R Q F ! P C > C > F :c" H :b"? #" : C > B R Q~ h P0 B P* 0$ T # R QL > X B U( H Q2 X
0x3a76f0…3a7884 Dummy {f00=0x0104, f01=0x0190, f02=» P PL $ # Q > P _0 # T p > P p (_H _2 B U X > ? _ X T (@ ^ > > ? _ X T (@ X L U L Q4 M j v X D D P ( ) 1_f _&
0x3a7884…3a7a18 Dummy {f00=0x0104, f01=0x0190, f02=» L R P P P (@ f ^ X P8 P0 # P T P 0P 1 _ W Y > > T d ) d _ )z ? ^ 4 _ d d @ 1 A _ P 9 > > T R L U
0x3a7a18…3a7bac Dummy {f00=0x0104, f01=0x0190, f02=» ?j? @( > > A $" P E ` (@ $ : ' P W @ D P _ p U ) R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X @ X F : )` (
0x3a7bac…3a7d40 Dummy {f00=0x0104, f01=0x0190, f02=» R T D E Q , 0 5 @( 1 A( ZB : D LW (P D E I W6 @W T R ( AW U 1_ D E I D L ) E L(@ : T D e SB P W D U0 T ` e^ S W U < U > P T B _ W U @ : . D < C D > C B P. T G
0x3a7d40…3a7ed4 (7, 18) Dummy {f00=0x0104, f01=0x0190, f02=» @_" P @)` Q (@ z @ | @)` Q (@ : U ; $ T $ T $ T&x : : $ T2 $ ) ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J P @)` Q (@ ! @ | @)` Q (@ : U ; $ T $ T $ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($
0x3a7ed4…3a8068 Dummy {f00=0x0104, f01=0x0190, f02=» ": 5 @ 1 A ZB : D W (P D I W @ T R ( A U 1_ D I D > A"8 @ @ A b @ R*P % % @ I I I I _> @ P )T #D9 V 1 Y )R ,P :A ) A)
0x3a8068…3a81fc Dummy {f00=0x0104, f01=0x0190, f02=» ! ! T M F ! Px ' % % ! & A! ' P< ' P& 8! P6 K @P X T X !? ? $ W W @W & &x & ' W A! ' X* 'b X2 " (@ I ' V V " LP V : V V P dW Y Y " V V
0x3a81fc…3a8390 Dummy {f00=0x0104, f01=0x0190, f02=»# ' P @T #?W #?$? # _2 J @" P Y 9 @ J ! T " Y X & $ ' &x! & '4 P C P* &x J : J < W W P X V C W & X ! "? K >Q 9 & W Y B W _.! T '4 T P % Y % Y Y V + V K
0x3a8390…3a8524 Dummy {f00=0x0104, f01=0x0190, f02=» & ' N ! N P N & N T _ - M @ F Pp G )f _ W C ( B P U %| T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ ( : W W P" $ & 8X 8 , Y $ : _ &
0x3a8524…3a86b8 Dummy {f00=0x0104, f01=0x0190, f02=» $ Y : @ P0 8 T _ & & Y " 4 : : $ - Y : ~ f"8bX f e e f +Z.x0 1j6 9" ( % Y W B T| ( C X _ H X H p ^ > X ( $ ^ WB X Y $:g H &
0x3a86b8…3a884c Dummy {f00=0x0104, f01=0x0190, f02=» $XJ ( I T E _ (X _ X $ _t! > > @)` A)` DW W v ^ ! Z2 )^ (X: @)`P T M ]J , ) A)` P* P Y U ( ) 5 & > > [ [ )` Z Z Z ? Z > P~ "R~ Y ) Pj T P` )z
0x3a884c…3a89e0 Dummy {f00=0x0104, f01=0x0190, f02=»" P T 8! P< P8 * Y Y Y Y ) X X Y X X X X ' 4 B U B (" W C (@ > Y Y Y X 9BV$ X & Y " X D V v X * < +b -D Y U R -P -8 X , ) Y . -2 X " PP:A:
0x3a89e0…3a8b74 (7, 19) Dummy {f00=0x0105, f01=0x0190, f02=» % - X ,T !* W .Z Y . V .J !+ B P X " _Z B P$ $$ R % C .J* !+ W Y +PH Y *P> Y (P Y )P .J R _Q P OR R W " !+ B + Wr W 0 Z .J !+ B Z Z& X . 0T P W X ,P Y . 0 %_. % Y . W
0x3a8b74…3a8d08 Dummy {f00=0x0105, f01=0x0190, f02=» .Z X .T * W Y , - ) ? X :a Z T T W P X :d Y > > |Vd ? 8 R @R6 V @% =cW2 RBP R P 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > PT 0 _ !"$&;<>@^_ x . / 04/ PB P8
0x3a8d08…3a8e9c Dummy {f00=0x0105, f01=0x0190, f02=»_* P4 R( Pj O]: V _B T Y Y & R Y _Z C _P * * " $ P X & X ]r !* Y Y Y _ * " H.j_ !* !* / v ) X C _ X Y & Y > X Z$<BR P 0 * X _> R0 V0 ! P* P P P" R ?Q !* Y R Q
0x3a8e9c…3a9030 Dummy {f00=0x0105, f01=0x0190, f02=» / 0 1.1^ B 8# T $ # ;D !99P 7Pj PZ ) Y X T 0 Y 9 X 8"@P Y W: Y W2 X P y @ 9_. Y WP Y Y W Y Y X Y 8# T W$ T( X $ P X P B V *@ Y * ) ) ? X _F R 1z6 4 4 5B
0x3a9030…3a91c4 Dummy {f00=0x0105, f01=0x0190, f02=» Y & _ Y &_. 8$ T B 1 5 !* 4 B B U4 $ ! T _ U D ! T _ $$ X" X& X* C * 4^ X`" E1tP( 8'0P E1tTJ ! T 9 _ ! T @_ ! * B P 8' T& !6F B C 4^ ^T PP RD ?] _ X X &"
0x3a91c4…3a9358 Dummy {f00=0x0105, f01=0x0190, f02=»2f B 8! T !6 !6F !* 4 !6 R !* _ B !6 V Z, !* _ 8! T B Y & !6dW B Y (U X ( X & R P !* W Y &_ Y & B Y )U X ) T T W V X ' Y )U P"R !* _ R _ !* Y ' 2d " !* 8!0T 8 !@P !
0x3a9358…3a94ec Dummy {f00=0x0105, f01=0x0190, f02=» > * ? Y 8" P !* !* T X !* Y & Zx 4 T _ !* X $ P !5 2d R V P P" !* 4 W 4 +D X $ X !5 _ X $ X 8! P !5 _( X & !6d !6F Y _D X " X &" Y )U W !* !* !* Y 4 B 2
0x3a94ec…3a9680 Dummy {f00=0x0105, f01=0x0190, f02=» !* !* 4 !* V !* V W :h !* 4 X )" X '# R 4 4 > 6 8 8 7&! 7 7.7 8d6 Q6 P ^ ) P6 B T Y (W Y ( W( X " T !* !* X T Y W ) X " T X (R$ B Zr Yx !* !7 6
0x3a9680…3a9814 (7, 20) Dummy {f00=0x0105, f01=0x0190, f02=» 4 X " P _ Y * B X (R hY ;W -Y = Y * !* * P 8 X _ ? Y * !* X **0 !* X (R !* !* Xj ^l Xv X~ _ X " T !* !* X T Y _ _ " X V P T Y ) " P 7P 7 &P P * Y _F ? Y
0x3a9814…3a99a8 Dummy {f00=0x0105, f01=0x0190, f02=» ;d 8= 7; $; '<d D X " :F 8 9 8! 9e D9* ( ) P _ H C != != ! P != != C W 8# T !"P ! " W !@P ) 8! T< B R b " +P* P T != != != " T Y ( 9 X ) Y ( * Pf != != * P6 Z P$
0x3a99a8…3a9b3c Dummy {f00=0x0105, f01=0x0190, f02=» +P P T Y 0Q Y * Y , != != * P6 Z P$ T W R _R X$ /P != W8 W Y * !* _> != !EP ! T " T W X , X * Y - Y + ) ) B P@ Y 0Q: Y , != != != !EP ! T " T X .!xX6 Y - Y * ) ) B <C Q6 X -
0x3a9b3c…3a9cd0 Dummy {f00=0x0105, f01=0x0190, f02=»P Y * Y ' != X & != X ' != != ! ) B <C Q B != Q Qfh != :K Qfh !=j Q !=j P !=j R !=j P PQ != P Q Qfh != Q :C Qfh != Qx:E Qfh != Qj:F Qfh b ! PD !=j RT CQP !=j P RD b ! R,Q !=j (R0 9Q,W !=j P" (Q !=jW
0x3a9cd0…3a9e64 Dummy {f00=0x0105, f01=0x0190, f02=» Y , Y * ) !* W, !* !* !* Y 4 !* W " U !* 4 T * X ! ) ) ? X T Y Y X &R @9b Y & 6 Pfh - ^ != != != X & != != X ) != X + "? != "@ != X - != . , != != "@P Y , Y * X 9v ) '
0x3a9e64…3a9ff8 Dummy {f00=0x0105, f01=0x0190, f02=»V X & X H P v X P Y X H P @ v D < ? < ? <(@ @ $ P B $ 9H C ">h # P >_2 < U = D (@ " $ P B >H<h @ P ?_" = > = > = =_D R _ 00 > & <h$ P > " 2
0x3a9ff8…3aa18c Dummy {f00=0x0105, f01=0x0190, f02=» _D , V :a B # S0 S0 Q Z8 Z< P X _6 _6 " " P2 @ Q, , Y ," P L P T L R :AV ' > _ B B B B B B B B B B B B D D C C BrC !" A A
0x3aa18c…3aa320 Dummy {f00=0x0105, f01=0x0190, f02=»_ Y E X T X `% T UArP ^ E =A Y A T P H I TAN I $ C C E T X?j D D ?j D0Wp X # Xr X F# T D Dp_ DD_ X # X X F# P Y T ?h D H H D ?j W @ Y
0x3aa320…3aa4b4 (7, 21) Dummy {f00=0x0105, f01=0x0190, f02=» p , -! T W" A P I E B B E Y @ E H H C C _ X "" A Q X G X HT T W Y H H S W W B B B E~W Y H RP L N B p L B z $ Y X G X HWF Y B> X
0x3aa4b4…3aa648 Dummy {f00=0x0105, f01=0x0190, f02=» Rd R Tf #D X ! V( X ] P$ H P$ X " ]W P _ W T R N ) E p X R ) E G @ AA W AW Xj E @E , - M M M M @E b` =a 9a Q - _ - > ?j W @ Y
0x3aa648…3aa7dc Dummy {f00=0x0105, f01=0x0190, f02=» p , -! T W A P I B B Y @ H H C C _ X "" A Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B z $ Y X G X HW Y B> X
0x3aa7dc…3aa970 Dummy {f00=0x0105, f01=0x0190, f02=» Rd R Tf #D X ! V( X ] P$ H P$ X " ] P _ T R ) E p X R ) W X # Xr X F# T _ _ X # X X F# P Y T ?h H H ?j W @ Y
0x3aa970…3aab04 Dummy {f00=0x0105, f01=0x0190, f02=» p , -! T W A P I K Y @ H H C C _ X "" A Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B z $ Y X G X HW Y B> X
0x3aab04…3aac98 Dummy {f00=0x0105, f01=0x0190, f02=» Rd R Tf #D X ! V( X ] P$ H P$ X " ] P _ T R ) E p X R ) W X # Xr X F# T _ _ X # E Y T ?h H H ?j W @ Y
0x3aac98…3aae2c Dummy {f00=0x0105, f01=0x0190, f02=» p , -! T W A P I Y @ H H C C _ X "" A Q X G X HT T W Y H H S W W B B B W Y H RP L N B p L B z $ Y X G X HW Y B> X
0x3aae2c…3aafc0 Dummy {f00=0x0105, f01=0x0190, f02=» T L T M W L T L T M M L Q L AE @E Z @E P % P % T W R [ [ M M M M AE -(@ : - : @E , L T M @E (@ :OhOhR@S P P P R P P P P OhR@Z ` R Z ^(@ X @R X R Q N D '? T" F F E GR Q D HU
0x3aafc0…3ab154 (7, 22) Dummy {f00=0x0105, f01=0x0190, f02=» C X '? N~ X @ X B )T P T0 X ! T(W" R P F X BU X B G H Q F S W G G F F l Q X $? Q R R X # T B NT N @ B F F +P P P T @W P P
0x3ab154…3ab2e8 Dummy {f00=0x0105, f01=0x0190, f02=» X B T X N D @ X B b Xd @W X '?W W E p R T, H RP L N X @ L B p & S X B X @ F X T + X R ( T W Y F F D '? PD P> PN P2 PB P
0x3ab2e8…3ab47c Dummy {f00=0x0105, f01=0x0190, f02=» p B . c . X $? T X $ P T D @ D B H G H H G R d N '? T V K K F K F K X K Y Y O D @ D B )P( D ^ E @ d E GR Q D HR W@ W0
0x3ab47c…3ab610 Dummy {f00=0x0105, f01=0x0190, f02=» P RX X E X E Y N P W D R X N_8 R0 N p B c S X X !? U Tn U D @W b W V( D B )P D ^ E @_$ H X, D @ D ^T ( R b W V( X - - - T T =
0x3ab610…3ab7a4 Dummy {f00=0x0105, f01=0x0190, f02=» X " # C X `:H C X < C X > C ( R X ^ Y @ )P b W W X _ d E GR Q D HU Y G Y H G dR NT S S X @ X B $ S T D D R P0 . b W S D
0x3ab7a4…3ab938 Dummy {f00=0x0105, f01=0x0190, f02=» dR T @T d e:P R T P ( R NT b W _ T ^W T B U @ T B 1 | T R T I T d C C Z G V G W P ( R U - - - T T =
0x3ab938…3abacc Dummy {f00=0x0105, f01=0x0190, f02=» X " # C X `:H C X < C X > C ( FX d H G NT S S X @ X B $ S T D D R P . W S D
0x3abacc…3abc60 Dummy {f00=0x0105, f01=0x0190, f02=» R NT W _ T ^W T B U @ T B 1 | T R T I T C C Z G V G W P J F& AY R P RP L <a QY _ Y J " T # T W
0x3abc60…3abdf4 (7, 23) Dummy {f00=0x0106, f01=0x0190, f02=» R H T H MY ( MY _" Y . F % G G @ A T ( T$ 9a " EY & A PJ _ W & P & I - G a< W _* _ # ( G Y T @Y Yf?A W ' A ] ^ S G F >
0x3abdf4…3abf88 Dummy {f00=0x0106, f01=0x0190, f02=» G F < O H VY O PP F D VY O N F ;F J $ $ P O `;H O N " YW P _ XW O ] N B N D e^ O ^ N B :h! P O `:G [ R Y _j # ^p A ^ . j # [ # O O a O ] F VY [ F < e^9 :aP @Xj Q TXjX T
0x3abf88…3ac11c Dummy {f00=0x0106, f01=0x0190, f02=» P LP Q L @W 5 AW (@ T [ B C _B [ . G < ?a Y C N ( [ Y W @Y L F G D G D ;a R F Q F Q H Q J Q L N N Q N N B Q P Q P ?a [ F F N `& e [ G @ G B :
0x3ac11c…3ac2b0 Dummy {f00=0x0106, f01=0x0190, f02=» G @Y G N :n G V V N `& e [ N D' e^ W W ^2 : J P U Q P J ^ Y A TZ R TY X Y R _ j " AY J L $ P _ , % @W ) AW (@ : N F" P :C;B
0x3ac2b0…3ac444 Dummy {f00=0x0106, f01=0x0190, f02=»RD P RP P L G H Y UY <a QY QY <B Y Y _H AY J " " R0 V R0 RY " P J P A Q ?A Y P (@ N %? Tt N J E L 4 5W P 0 @W 1 AW (@_ Y PD @Xj P2R8 TXl TXjR$ TXn UXj Xp
0x3ac444…3ac5d8 Dummy {f00=0x0106, f01=0x0190, f02=» :! 4 U e^9 b & ?! U P _: P _ W 4 4 , , , : , )Q R V _ W W : T. ; [ V ( Td E @Wl D @V ; [ _ D ^V D B E @WR ; [ D > D ` S W E
0x3ac5d8…3ac76c Dummy {f00=0x0106, f01=0x0190, f02=» B +P0 @ D ^ E @ d E GZ<Q D HZD @ W, Z b Q R W K ]f J _l W W : : R LW PL T S Y R Y Q Z$ Z* Z R R R e S S _P (@ : T < T > e: T ` e T D
0x3ac76c…3ac900 Dummy {f00=0x0106, f01=0x0190, f02=» [ : P Q R ;A [ [ : Q R P ;A [ [ :e e e f e f 0123456789 `<< @,-. 0123456789 ;<=>?'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ ~ ?;_: =!"#$%&/() ;<=>?^ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}*
0x3ac900…3aca94 (7, 24) Dummy {f00=0x0106, f01=0x0190, f02=»t E D P _ $ % $P _ % A >f A A A @ " Q" ft :d @ # U R>P0 P t o, As o, P2 n _ * A q W * A p W :a2 * A ov s & W F W @ F W CRP BAP COP A W F A @ : V, @
0x3aca94…3acc28 Dummy {f00=0x0106, f01=0x0190, f02=»R" W W V V 8 !RRT W V X W W V V V PF A @ xnU U^ A Q xnVD Y2 W V @ " TJ W P xnY t jl t
0x3acc28…3acdbc Dummy {f00=0x0106, f01=0x0190, f02=»W t T F W V t = V W Y( P Z& = :L < P W <9B @ V W Q t W @t A s @ kn V W kn! P W @ V P _ @ ! P* s 9h !RRP V
0x3acdbc…3acf50 Dummy {f00=0x0106, f01=0x0190, f02=» :l 9b ) V _ @ V^ m m| W Am| AmP W W o, o, PH n m W> o, T o$ o,W o$ l r W @fr W m m m< m m< nl n n@ m< nt n n@ m< n| n m m< m m< V
0x3acf50…3ad0e4 Dummy {f00=0x0106, f01=0x0190, f02=»m m _ 0 !;; n m<_ S ArI Ar r @ R @ ! T Aq Aq @fr V V I t W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W t nX T m : o, k : t m
0x3ad0e4…3ad278 Dummy {f00=0x0106, f01=0x0190, f02=»SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : n : n : n : n : n : n : 0 )T : !00T W : t TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : o$ C. n X C.9h! o$ o$# " o$ o$ :A K :
0x3ad278…3ad40c Dummy {f00=0x0106, f01=0x0190, f02=»p@ Afr Apz Ap~ Ap Ap As Am Ar Ar, : 9e :e Q P 9e @fxP Afx9C) A I " @fx! P " :B Afz t q B J " n : 0 R _ <d?d AfvU <e @fxP Afx<C, D L " @fx$ P " :B Afz t w B
0x3ad40c…3ad5a0 Dummy {f00=0x0106, f01=0x0190, f02=»:B* Afz @fxP AfxB J 4R 4 :B 4 @fx: V V 49B @fz 4R @ t w A I ! j : q As Am Ar Ar, Aq ! T q q W Aq Aq I ! : 9D @ @ftr s @frA I T - A _ I N T V S : t r
0x3ad5a0…3ad734 (7, 25) Dummy {f00=0x0106, f01=0x0190, f02=» !CCTx xB. n <X B.9 Hf| Q q _ ov_ !SSTF 0 Uf P A X X W W X X S W W W : V W V T W P s V T W F P P V W @ $ P p W t T : As s _
0x3ad734…3ad8c8 Dummy {f00=0x0106, f01=0x0190, f02=» [ [ : W A A I ! : 9D W Z A. c @ V W U t R $ )
0x3ad8c8…3ada5c Dummy {f00=0x0106, f01=0x0190, f02=»^B _F 9o V _X V V : V J P vX r xnV U vX _ V vX Z K W W :K W r xnQ R t xnV t u v : V W V t ) : V <B W
0x3ada5c…3adbf0 Dummy {f00=0x0106, f01=0x0190, f02=» R RR > R W > <B V x V |P v 1 v W V z ` v _f V : W R R x P vz v W x v x _ V : " D Pd W V PL $;A^ D E D P. V t P t P T t E _J u E _T " D T
0x3adbf0…3add84 Dummy {f00=0x0106, f01=0x0190, f02=»V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : , X G : J @ 0 V @ t 0 H W : ? ? R 0 R P P B _ )b :
0x3add84…3adf18 Dummy {f00=0x0106, f01=0x0190, f02=» pP ` $ $ W y $ I H y, ) P _ " = D 4 Q y _n y y, yt x = G $ w^ V W $ w V E J K _X V r V :B A V 9n A @ A A ^ V @ ! @
0x3adf18…3ae0ac Dummy {f00=0x0106, f01=0x0190, f02=»P( P V W U " @ Q V P A. V P _b A 9n A :B A V .V 3 S Y& P4 ( ( S P 3 _ ( 3 ( p A. @ r @ W A A :
0x3ae0ac…3ae240 Dummy {f00=0x0106, f01=0x0190, f02=» v W n V ~P } W x v } x~ v _v V d , V t P _ N L % V d V f v G G v U v v G v : x P vz x V x : v v V ~P } W x v _$ 8 V V x % V v % : V V u 9k! P
0x3ae240…3ae3d4 (7, 26) Dummy {f00=0x0106, f01=0x0190, f02=» v ) G v ` " W p W ~ pP0 || R x P | x _ W ~ R x X4 | x _ ` @ ` W W ~ pPn y yt V W % || R , x u " E R }l W ~ R }l R P 8 R Xv 8_|W x T : vz v W x v x _ V
0x3ae3d4…3ae568 Dummy {f00=0x0106, f01=0x0190, f02=»w^ " R x E R T E D E @ v H v E w x #_v W | ;b W W t V b v ( v W p V ` $ W ` u ;h 0 :C # : .=H N x .=H N x N : d 8" R _ ZY QY
0x3ae568…3ae6fc Dummy {f00=0x0106, f01=0x0190, f02=» N !TTP t N :H N TBT W W8 2 " T @ t N =H N @ ) v !TTXX !CCT z !UUT d Wh 2 .:H N P V t _ R :h " YV : v `?A @ W
0x3ae6fc…3ae890 Dummy {f00=0x0106, f01=0x0190, f02=» pP. " 4X 1 R Z0 _ W l a w ` :A W V d 4 W P _ W ` W d V V W W V V >k 8 W W t V V x A fr ( fP W r f W
0x3ae890…3aea24 Dummy {f00=0x0106, f01=0x0190, f02=» ] @ P @ " P : V _ W W . !TTP t @ T t Y v !TTX" A 9 A : ` @ V :a @ x @ A @ x ;a P$ W @ A @ T t A : ( ` @ P R_ R 3 S S V V W @
0x3aea24…3aebb8 Dummy {f00=0x0106, f01=0x0190, f02=» S @ V Pf 9h !RRP @ ! T W* @ S W @ U t 3 S S Yd @ @ T t : @ @ @ #D# P ; V v _ : @ " P @ P 3 _ @ " P V 3 S 1
0x3aebb8…3aed4c Dummy {f00=0x0106, f01=0x0190, f02=» W l V CRT N =H N h W p N =H N W | ( @ % 5 T W @ = V W = V * P0 H r " U t _2 : P0 H " U t _2 V tP xnR
0x3aed4c…3aeee0 Dummy {f00=0x0106, f01=0x0190, f02=» v !TTT s : . !TTP t V W t * * P H r _ : Pd W p H V 8 8 4 D P$ t @ # P H I K T + Y@ V p _f V t Y v !TTX @ @ T
0x3aeee0…3af074 (7, 27) Dummy {f00=0x0107, f01=0x0190, f02=» T t P _ V A V W W t * PT W f ( H W d X G =h G V d V r < V f P W f _B d V W V t Yv v !TTX @ @ T t : v !TTX !CC
0x3af074…3af208 Dummy {f00=0x0107, f01=0x0190, f02=» _. @ @ @ ! P V 8 8 8 3 . !CCP W P0 W f H W d X V d V r < V f _2 d : U^ H V 8 8 8 4 D P$ t @ # P H I K T + Y@ _`R& @ @ @
0x3af208…3af39c Dummy {f00=0x0107, f01=0x0190, f02=» V 0 V P _ W $ q > R P >b W >b & 8P B V f V W R 9 W D t ) $ PV D L Tp D &P V ` T @ 1 Q a 0 I , I . $# P8 V -W( W" D V ` T @ 1 Q a : @ % PD H
0x3af39c…3af530 Dummy {f00=0x0107, f01=0x0190, f02=» D (P W H $ I & % E , a : V Q R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : t Y Z (D @(DT A(D V W Y0 Z6 (F @(FT A(F V
0x3af530…3af6c4 Dummy {f00=0x0107, f01=0x0190, f02=» z *T P _ / P *_ *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ]( W v P _ @(DP V t A(D (P ) @(D @(FP V t A(F (P ) @(F @
0x3af6c4…3af858 Dummy {f00=0x0107, f01=0x0190, f02=» P N =H N T v_ : @ ! P (W ( : 00=H 00 P P _ _ : & l N @ R @ $ D L * A CRT M " 2 D Z ` 0 4 A h P A j P 0 1 " " p z
0x3af858…3af9ec Dummy {f00=0x0107, f01=0x0190, f02=» 4.x P | V z 3 20 DI ?O_o 81j Y P ) @(D P +ZKB "e
0x3af9ec…3afb80 Dummy {f00=0x0107, f01=0x0190, f02=» 20 DI ?O_o 81j Y _ : ( D9"TP A +ZKB hf A H H
0x3afb80…3afd14 (7, 28) Dummy {f00=0x0107, f01=0x0190, f02=» 4.x P | V z 3 20 DI ?O_o 81j Y P ) @(D P +ZKB e
0x3afd14…3afea8 Dummy {f00=0x0107, f01=0x0000, f02=»
[…0x6…]
0x3b0820…3b09b4 (7, 29) Opaque[0x194]
0x3b09b4…3b0b48 # DirEnt {nam=»CTAB02«, typ=»SC«, f00=0x0010, f01=0x0003, f02=0x20f0, f03=0x0005}
0x3b09b4…3b0b48 IdxSect {
0x3b09b4…3b0b48 f00 = 0x0107 // 0x3b09b4 @0x0
0x3b09b4…3b0b48 f01 = 0x0002 // 0x3b09b6 @0x2
0x3b09b4…3b0b48 gno = [ // 0x3b09b8 @0x4
0x3b09b4…3b0b48 [0x00]: C0x0107.0x2.0
0x3b09b4…3b0b48 ]
0x3b09b4…3b0b48 }
0x3b0b48…3b0cdc Dummy {f00=0x0107, f01=0x4074, f02=» & P IDENT CTAB02 BCR CONVERSION TABLE ENTRY CTAB03 . CTAB03 DATA 0,0,0,0,0,0 D END d@ p
0x3b0cdc…3b0e70 Dummy {f00=0x0107, f01=0x2008, f02=» NT CTAB03 ENTRY CTAB03 CTAB03 DATA 0,0,0,0,0,0 0 END P@
0x3b0e70…3b1004 Dummy {f00=0x0107, f01=0x0190, f02=» X Y 9 X !P T4 A >W A > @ >A. L ! Y L W" L x Y ! z X &R !~ ! B X ; Z Y B < Z*:A Z4 ^: Y: Y Y Z B Y V V Y ^ Y X Y X !? P* P P" P ! 4 ! P @ 9
0x3b1004…3b1198 Dummy {f00=0x0107, f01=0x0190, f02=» Y D @ T4B S4W. Y Z 8! T X ^ Y Z X X C X U Y V f 8 J ! Y _ Y Y X HP y H_, H _< Y H Y B Y L x Y ! z ! # P @W ! N 9 ! X ^< Y Y B Y X LP 1 Y L > 0 Y N 1 0B. X J P Y : ! z
0x3b1198…3b132c Dummy {f00=0x0107, f01=0x0190, f02=» P X R K P0 @ T X TT $C Y B ! K & % Y B K X D :AZn X FP Y F ! P + 7P, $ P + < $ <C ! 9 9 4 X Z9C X ^: X V X X 4 ! # T X BT 4 A 2;D A 2 4
0x3b132c…3b14c0 Dummy {f00=0x0107, f01=0x0190, f02=» U @ C W < 0P P X T C T" V$ Y ( Pp q 0 ) Wb X P^ ( T& B RPP" A @ < A < WD @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U !
0x3b14c0…3b1654 (7, 30) Opaque[0x194]
0x3b1654…3b17e8 # DirEnt {nam=»CON1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x20f8, f03=0x0000}
0x3b1654…3b17e8 IdxSect {
0x3b1654…3b17e8 f00 = 0x0107 // 0x3b1654 @0x0
0x3b1654…3b17e8 f01 = 0x0002 // 0x3b1656 @0x2
0x3b1654…3b17e8 gno = [ // 0x3b1658 @0x4
0x3b1654…3b17e8 [0x00]: C0x0107.0x3.0
0x3b1654…3b17e8 ]
0x3b1654…3b17e8 }
0x3b17e8…3b197c Dummy {f00=0x0107, f01=0x0190, f02=» T; 01; TID=A0; TCL=A0; * PLEV=60; : 01; J TDC=T01; V LC=01L; f 00; v T; 01; TID=B0; TCL=A0; LEV=60; 02; TDC=T02; LC=01L; TDC=T03; LC=0
0x3b197c…3b1b10 Dummy {f00=0x0107, f01=0x00bc, f02=»UIF; 002; UCY; 002; $ UOP; 0 002; < UA1; H 002; T UA2; ` 002; l UT1; x 002; UT2; 002; UQQ; 002; 60; 02; TDC=T02; LC=01L; TDC=T03; LC=0
0x3b1b10…3b1ca4 Dummy {f00=0x0107, f01=0x2008, f02=» 002; UCY; 002; $ UOP; 0 002; < UA1; H 002; T UA2; ` 002; l UT1; x 002; UT2; 002; UQQ; 002; 60; 02; TDC=T02; LC=01L; TDC=T03; LC=0
0x3b1ca4…3b1e38 Dummy {f00=0x0107, f01=0x0000, f02=»
[…0x2…]
0x3b2160…3b22f4 (7, 31) Opaque[0x194]
0x3b22f4…3b2488 # DirEnt {nam=»CON2 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2100, f03=0x0000}
0x3b22f4…3b2488 IdxSect {
0x3b22f4…3b2488 f00 = 0x0108 // 0x3b22f4 @0x0
0x3b22f4…3b2488 f01 = 0x0002 // 0x3b22f6 @0x2
0x3b22f4…3b2488 gno = [ // 0x3b22f8 @0x4
0x3b22f4…3b2488 [0x00]: C0x0108.0x0.0
0x3b22f4…3b2488 ]
0x3b22f4…3b2488 }
0x3b2488…3b261c Dummy {f00=0x0108, f01=0x018e, f02=» T; 01; TID=A0; TCL=A0; * LEV=60; : 01; J TDC=T01; V LC=01L; f 00; v T; 01; TID=B0; TCL=A0; LEV=60; 02; TDC=T02; PLC=02L; TDC=T03; LC=0
0x3b261c…3b27b0 Dummy {f00=0x0108, f01=0x015c, f02=» TDC=T04; LC=03L; 00; $ C; 0 00; : 02; F SDC=S01; R SDC=S02; b U; r 009; | UBF; 003; UIF; 003; UCY; 003; UOP; 003; UA1; 003; UA2;
0x3b27b0…3b2944 Dummy {f00=0x0108, f01=0x2008, f02=» T04; LC=03L; 00; $ C; 0 00; : 02; F SDC=S01; R SDC=S02; b U; r 009; | UBF; 003; UIF; 003; UCY; 003; UOP; 003; UA1; 003; UA2;
0x3b2944…3b2ad8 Dummy {f00=0x0108, f01=0x0000, f02=»
[…0x2…]