|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A B C D E F K L M N O P Q S T U X Z p ½
Length: 1147360 (0x1181e0)
Description: Bits:30009696 Philips computer tape "600413"
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 |
| DEMO6800 | «none» |
| DEMO6800//OBJCT.OB | ⟦ea1a01607⟧ 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 |
| 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=0x019a, f01=0x0198, f02=0x0018, f03=0x0008}
0x000ca0…001940 DirEnt {nam=»LEDLS «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0028, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EQUATE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0030, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TEST «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0040, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB99«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»NJ «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0058, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CURSOR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0060, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0088, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»BDEINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0098, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ENQ «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»EXPAND«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00c0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»FINDLN«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KBREAD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LEAD «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»SCWRIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x00f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»UNPCK «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0108, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»UNPPRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0120, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PUSH «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0130, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»KTABBE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0140, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ERASUP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0148, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»LED «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0158, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»XRF «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0170, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBGEN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0178, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0180, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TSTGEN«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TESTFI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x01f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x01f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»A:TEST«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»NJDDIV«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x0018, f03=0x0008}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x0004 // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0000, 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=0x0000, 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=0x0000, 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=0x0000, 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=0x0000, 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=0x0000, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0028, f03=0x0000}
0x003414…0035a8 IdxSect {
0x003414…0035a8 f00 = 0x0001 // 0x3414 @0x0
0x003414…0035a8 f01 = 0x0002 // 0x3416 @0x2
0x003414…0035a8 gno = [ // 0x3418 @0x4
0x003414…0035a8 [0x00]: C0x0001.0x1.0
0x003414…0035a8 ]
0x003414…0035a8 }
0x0035a8…00373c Dummy {f00=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0030, f03=0x0000}
0x0040b4…004248 IdxSect {
0x0040b4…004248 f00 = 0x0001 // 0x40b4 @0x0
0x0040b4…004248 f01 = 0x0002 // 0x40b6 @0x2
0x0040b4…004248 gno = [ // 0x40b8 @0x4
0x0040b4…004248 [0x00]: C0x0001.0x2.0
0x0040b4…004248 ]
0x0040b4…004248 }
0x004248…0043dc Dummy {f00=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, f01=0x0000, f02=»
[…0x1…]
0x004bc0…004d54 (1, 5) Opaque[0x194]
0x004d54…004ee8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0038, f03=0x0000}
0x004d54…004ee8 IdxSect {
0x004d54…004ee8 f00 = 0x0001 // 0x4d54 @0x0
0x004d54…004ee8 f01 = 0x0002 // 0x4d56 @0x2
0x004d54…004ee8 gno = [ // 0x4d58 @0x4
0x004d54…004ee8 [0x00]: C0x0001.0x3.0
0x004d54…004ee8 ]
0x004d54…004ee8 }
0x004ee8…00507c Dummy {f00=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0001, 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=0x0040, f03=0x0000}
0x0059f4…005b88 IdxSect {
0x0059f4…005b88 f00 = 0x0002 // 0x59f4 @0x0
0x0059f4…005b88 f01 = 0x0004 // 0x59f6 @0x2
0x0059f4…005b88 gno = [ // 0x59f8 @0x4
0x0059f4…005b88 [0x00]: C0x0002.0x0.0
0x0059f4…005b88 [0x01]: C0x0002.0x1.0
0x0059f4…005b88 ]
0x0059f4…005b88 }
0x005b88…005d1c Dummy {f00=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0050, f03=0x0000}
0x007334…0074c8 IdxSect {
0x007334…0074c8 f00 = 0x0002 // 0x7334 @0x0
0x007334…0074c8 f01 = 0x0002 // 0x7336 @0x2
0x007334…0074c8 gno = [ // 0x7338 @0x4
0x007334…0074c8 [0x00]: C0x0002.0x2.0
0x007334…0074c8 ]
0x007334…0074c8 }
0x0074c8…00765c Dummy {f00=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0058, f03=0x0000}
0x007fd4…008168 IdxSect {
0x007fd4…008168 f00 = 0x0002 // 0x7fd4 @0x0
0x007fd4…008168 f01 = 0x0002 // 0x7fd6 @0x2
0x007fd4…008168 gno = [ // 0x7fd8 @0x4
0x007fd4…008168 [0x00]: C0x0002.0x3.0
0x007fd4…008168 ]
0x007fd4…008168 }
0x008168…0082fc Dummy {f00=0x0002, f01=0x0048, f02=» TRA KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x0082fc…008490 Dummy {f00=0x0002, f01=0x2008, f02=» KBREAD TRA TEST SCR & ASG /E0,DK,TSTGEN 2
0x008490…008624 Dummy {f00=0x0002, 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=0x0002, 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=0x0002, 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=0x0002, 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=0x0060, f03=0x0000}
0x008c74…008e08 IdxSect {
0x008c74…008e08 f00 = 0x0003 // 0x8c74 @0x0
0x008c74…008e08 f01 = 0x000a // 0x8c76 @0x2
0x008c74…008e08 gno = [ // 0x8c78 @0x4
0x008c74…008e08 [0x00]: C0x0003.0x0.0
0x008c74…008e08 [0x01]: C0x0003.0x1.0
0x008c74…008e08 [0x02]: C0x0003.0x2.0
0x008c74…008e08 [0x03]: C0x0003.0x3.0
0x008c74…008e08 [0x04]: C0x0004.0x0.0
0x008c74…008e08 ]
0x008c74…008e08 }
0x008e08…008f9c Dummy {f00=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0003, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0088, f03=0x0000}
0x00cb94…00cd28 IdxSect {
0x00cb94…00cd28 f00 = 0x0004 // 0xcb94 @0x0
0x00cb94…00cd28 f01 = 0x0004 // 0xcb96 @0x2
0x00cb94…00cd28 gno = [ // 0xcb98 @0x4
0x00cb94…00cd28 [0x00]: C0x0004.0x1.0
0x00cb94…00cd28 [0x01]: C0x0004.0x2.0
0x00cb94…00cd28 ]
0x00cb94…00cd28 }
0x00cd28…00cebc Dummy {f00=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, f01=0x000a, f02=» 0 x h
0x00d9c8…00db5c Dummy {f00=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0098, f03=0x0000}
0x00e4d4…00e668 IdxSect {
0x00e4d4…00e668 f00 = 0x0004 // 0xe4d4 @0x0
0x00e4d4…00e668 f01 = 0x0004 // 0xe4d6 @0x2
0x00e4d4…00e668 gno = [ // 0xe4d8 @0x4
0x00e4d4…00e668 [0x00]: C0x0004.0x3.0
0x00e4d4…00e668 [0x01]: C0x0005.0x0.0
0x00e4d4…00e668 ]
0x00e4d4…00e668 }
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0004, 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=0x0005, f01=0x4042, f02=» PBDEI099 P RET P PEND $ P END 2@ >
0x00f174…00f308 Dummy {f00=0x0005, f01=0x2008, f02=» NT BDEINP 80.10.09 NJ @ &
0x00f308…00f49c Dummy {f00=0x0005, 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=0x0005, 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=0x0005, f01=0x2008, f02=» ********************* * & * KEYTABLE USED FOR BDE/ENQ 0 * T ***** ^@ lTR j z R_ @ = $ < V B @ & &
0x00f7c4…00f958 Dummy {f00=0x0005, 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=0x0005, 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=0x0005, 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=0x00a8, f03=0x0000}
0x00fe14…00ffa8 IdxSect {
0x00fe14…00ffa8 f00 = 0x0005 // 0xfe14 @0x0
0x00fe14…00ffa8 f01 = 0x0006 // 0xfe16 @0x2
0x00fe14…00ffa8 gno = [ // 0xfe18 @0x4
0x00fe14…00ffa8 [0x00]: C0x0005.0x1.0
0x00fe14…00ffa8 [0x01]: C0x0005.0x2.0
0x00fe14…00ffa8 [0x02]: C0x0005.0x3.0
0x00fe14…00ffa8 ]
0x00fe14…00ffa8 }
0x00ffa8…01013c Dummy {f00=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, 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=0x0005, f01=0x2008, f02=» NT ENQ 80.10.09 NJ @ "
0x011f38…0120cc Dummy {f00=0x0005, 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=0x0005, 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=0x00c0, f03=0x0000}
0x0123f4…012588 IdxSect {
0x0123f4…012588 f00 = 0x0006 // 0x123f4 @0x0
0x0123f4…012588 f01 = 0x0004 // 0x123f6 @0x2
0x0123f4…012588 gno = [ // 0x123f8 @0x4
0x0123f4…012588 [0x00]: C0x0006.0x0.0
0x0123f4…012588 [0x01]: C0x0006.0x1.0
0x0123f4…012588 ]
0x0123f4…012588 }
0x012588…01271c Dummy {f00=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, f01=0x2008, f02=» NT EXPAND 30.10.09 NJ @ &
0x012f00…013094 (1, 23) Dummy {f00=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x00d0, f03=0x0000}
0x013d34…013ec8 IdxSect {
0x013d34…013ec8 f00 = 0x0006 // 0x13d34 @0x0
0x013d34…013ec8 f01 = 0x0002 // 0x13d36 @0x2
0x013d34…013ec8 gno = [ // 0x13d38 @0x4
0x013d34…013ec8 [0x00]: C0x0006.0x2.0
0x013d34…013ec8 ]
0x013d34…013ec8 }
0x013ec8…01405c Dummy {f00=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, f01=0x2008, f02=» NT FINDLN 80.10.09 NJ @ &
0x0146ac…014840 Dummy {f00=0x0006, 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=0x00d8, f03=0x0000}
0x0149d4…014b68 IdxSect {
0x0149d4…014b68 f00 = 0x0006 // 0x149d4 @0x0
0x0149d4…014b68 f01 = 0x0006 // 0x149d6 @0x2
0x0149d4…014b68 gno = [ // 0x149d8 @0x4
0x0149d4…014b68 [0x00]: C0x0006.0x3.0
0x0149d4…014b68 [0x01]: C0x0007.0x0.0
0x0149d4…014b68 [0x02]: C0x0007.0x1.0
0x0149d4…014b68 ]
0x0149d4…014b68 }
0x014b68…014cfc Dummy {f00=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0006, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, 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=0x0007, f01=0x2008, f02=» NT KBREAD 80.10.09 NJ @ &
0x016964…016af8 Dummy {f00=0x0007, 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=0x0007, 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=0x0007, 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=0x00f0, f03=0x0000}
0x016fb4…017148 IdxSect {
0x016fb4…017148 f00 = 0x0007 // 0x16fb4 @0x0
0x016fb4…017148 f01 = 0x0002 // 0x16fb6 @0x2
0x016fb4…017148 gno = [ // 0x16fb8 @0x4
0x016fb4…017148 [0x00]: C0x0007.0x2.0
0x016fb4…017148 ]
0x016fb4…017148 }
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» 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=0x0007, 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=0x0007, f01=0x2008, f02=» NT LEAD 80,10,09 NJ @ $
0x017604…017798 Dummy {f00=0x0007, 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=0x0007, 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=0x0007, 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=0x00f8, f03=0x0000}
0x017c54…017de8 IdxSect {
0x017c54…017de8 f00 = 0x0007 // 0x17c54 @0x0
0x017c54…017de8 f01 = 0x0004 // 0x17c56 @0x2
0x017c54…017de8 gno = [ // 0x17c58 @0x4
0x017c54…017de8 [0x00]: C0x0007.0x3.0
0x017c54…017de8 [0x01]: C0x0008.0x0.0
0x017c54…017de8 ]
0x017c54…017de8 }
0x017de8…017f7c Dummy {f00=0x0007, f01=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=0x0108, f03=0x0000}
0x019594…019728 IdxSect {
0x019594…019728 f00 = 0x0008 // 0x19594 @0x0
0x019594…019728 f01 = 0x0006 // 0x19596 @0x2
0x019594…019728 gno = [ // 0x19598 @0x4
0x019594…019728 [0x00]: C0x0008.0x1.0
0x019594…019728 [0x01]: C0x0008.0x2.0
0x019594…019728 [0x02]: C0x0008.0x3.0
0x019594…019728 ]
0x019594…019728 }
0x019728…0198bc Dummy {f00=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, f01=0x2008, f02=» NT UNPCK 80.10.09 NJ @ $
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0008, 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=0x0120, f03=0x0000}
0x01bb74…01bd08 IdxSect {
0x01bb74…01bd08 f00 = 0x0009 // 0x1bb74 @0x0
0x01bb74…01bd08 f01 = 0x0004 // 0x1bb76 @0x2
0x01bb74…01bd08 gno = [ // 0x1bb78 @0x4
0x01bb74…01bd08 [0x00]: C0x0009.0x0.0
0x01bb74…01bd08 [0x01]: C0x0009.0x1.0
0x01bb74…01bd08 ]
0x01bb74…01bd08 }
0x01bd08…01be9c Dummy {f00=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, f01=0x2008, f02=» NT UNPPRT 80.10.09 NJ DDUM NJDDIV & PDIV : ENTRY UNPPRT H EXT EXPAND ^ EXT PRTLN r@
0x01c814…01c9a8 Dummy {f00=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0130, f03=0x0000}
0x01d4b4…01d648 IdxSect {
0x01d4b4…01d648 f00 = 0x0009 // 0x1d4b4 @0x0
0x01d4b4…01d648 f01 = 0x0004 // 0x1d4b6 @0x2
0x01d4b4…01d648 gno = [ // 0x1d4b8 @0x4
0x01d4b4…01d648 [0x00]: C0x0009.0x2.0
0x01d4b4…01d648 [0x01]: C0x0009.0x3.0
0x01d4b4…01d648 ]
0x01d4b4…01d648 }
0x01d648…01d7dc Dummy {f00=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0009, 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=0x0140, 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.0x0.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=0x0148, f03=0x0000}
0x01fa94…01fc28 IdxSect {
0x01fa94…01fc28 f00 = 0x000a // 0x1fa94 @0x0
0x01fa94…01fc28 f01 = 0x0004 // 0x1fa96 @0x2
0x01fa94…01fc28 gno = [ // 0x1fa98 @0x4
0x01fa94…01fc28 [0x00]: C0x000a.0x1.0
0x01fa94…01fc28 [0x01]: C0x000a.0x2.0
0x01fa94…01fc28 ]
0x01fa94…01fc28 }
0x01fc28…01fdbc Dummy {f00=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x0158, f03=0x0000}
0x0213d4…021568 IdxSect {
0x0213d4…021568 f00 = 0x000a // 0x213d4 @0x0
0x0213d4…021568 f01 = 0x0006 // 0x213d6 @0x2
0x0213d4…021568 gno = [ // 0x213d8 @0x4
0x0213d4…021568 [0x00]: C0x000a.0x3.0
0x0213d4…021568 [0x01]: C0x000b.0x0.0
0x0213d4…021568 [0x02]: C0x000b.0x1.0
0x0213d4…021568 ]
0x0213d4…021568 }
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=» : 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000a, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x0170, f03=0x0000}
0x0239b4…023b48 IdxSect {
0x0239b4…023b48 f00 = 0x000b // 0x239b4 @0x0
0x0239b4…023b48 f01 = 0x0002 // 0x239b6 @0x2
0x0239b4…023b48 gno = [ // 0x239b8 @0x4
0x0239b4…023b48 [0x00]: C0x000b.0x2.0
0x0239b4…023b48 ]
0x0239b4…023b48 }
0x023b48…023cdc Dummy {f00=0x000b, f01=0x0190, f02=» | 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, 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=0x0178, f03=0x0000}
0x024654…0247e8 IdxSect {
0x024654…0247e8 f00 = 0x000b // 0x24654 @0x0
0x024654…0247e8 f01 = 0x0002 // 0x24656 @0x2
0x024654…0247e8 gno = [ // 0x24658 @0x4
0x024654…0247e8 [0x00]: C0x000b.0x3.0
0x024654…0247e8 ]
0x024654…0247e8 }
0x0247e8…02497c Dummy {f00=0x000b, f01=0x0190, f02=» 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=0x000b, 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=0x000b, 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=0x000b, 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=0x000b, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x024fcc…025160 Dummy {f00=0x000b, 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=0x0180, f03=0x0000}
0x0252f4…025488 IdxSect {
0x0252f4…025488 f00 = 0x000c // 0x252f4 @0x0
0x0252f4…025488 f01 = 0x0016 // 0x252f6 @0x2
0x0252f4…025488 gno = [ // 0x252f8 @0x4
0x0252f4…025488 [0x00]: C0x000c.0x0.0
0x0252f4…025488 [0x01]: C0x000c.0x1.0
0x0252f4…025488 [0x02]: C0x000c.0x2.0
0x0252f4…025488 [0x03]: C0x000c.0x3.0
0x0252f4…025488 [0x04]: C0x000d.0x0.0
0x0252f4…025488 [0x05]: C0x000d.0x1.0
0x0252f4…025488 [0x06]: C0x000d.0x2.0
0x0252f4…025488 [0x07]: C0x000d.0x3.0
0x0252f4…025488 [0x08]: C0x000e.0x0.0
0x0252f4…025488 [0x09]: C0x000e.0x1.0
0x0252f4…025488 [0x0a]: C0x000e.0x2.0
0x0252f4…025488 ]
0x0252f4…025488 }
0x025488…02561c Dummy {f00=0x000c, 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=0x000c, f01=0x401e, f02=» z @ 80.10.30 NJ CTAB01K @ CTAB01K R , ( / # 0123 f , ( ! 456789 < @ , ( A ,-. 0123456789 'ABCDEFGHIJK , ( a LMNOPQRSTU
0x0257b0…025944 Dummy {f00=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, f01=0x0190, f02=» & ; & Y & w $ & 4 & D & T & d & t & + & I & g & & & & & &
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0190, f02=» & ) & G & e $ & 4 & D & T & d & t & & 7 & U & s & & & & &
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» & & 5 & S $ & q 4 & D & T & d & t & & % & C & a & & & & &
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x407e, f02=» & & # & A $ & _ 4 $ } D T } h@ z t & & % & C & a & & & & &
0x0270f0…027284 Dummy {f00=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, f01=0x0190, f02=» $ 4 D T d t
0x027a68…027bfc Dummy {f00=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000c, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, f01=0x018e, f02=» & ( & ENQUIRIES AVAILABLE ) & ) 0 & ) > & ) L SAVINGS ) Z $ N ) r ACCOUNT ) $ N ) BALANCE ) $ N ) & ) 01 ) $ N ) &
0x0296d0…029864 Dummy {f00=0x000d, f01=0x0190, f02=» ) " AND LAST FIVE ENTRIES * $ N * . 02 * > $ N * P & * ` & * n CURRENT * | $ N * ACCOUNT * $ N * BALANCE * $ N * & *
0x029864…0299f8 Dummy {f00=0x000d, f01=0x0190, f02=» BALANCE * $ N + " AND LAST FIVE ENTRIES + ( $ N + N 04 + ^ $ N + p & + & + CURRENT + $ N + ACCOUNT + $ N + DETAILS + $
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=»ACCOUNT + $ N , VOUCHERS , $ N , 8 & , H 06 , V $ N , h & , x & , ACCOUNT , $ N , INTERIM STATEMENT , $ N , & , 07 ,
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x40e2, f02=» & , ! TYPE - $ ! - " & - 2 " PRINTER - @ $ " - X & - h # VOUCHER - v $ # - & - ( - 4 R - - @ - N , & , 07 ,
0x029d20…029eb4 (1, 52) Dummy {f00=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000d, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, f01=0x2008, f02=» B L = KMD020 DATE = 801103 6876PACK NBR = 0020
0x02be44…02bfd8 Dummy {f00=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, f01=0x0190, f02=» $ 4 D T d t
0x02c628…02c7bc Dummy {f00=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, 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=0x01d8, f03=0x0000}
0x02ddd4…02df68 IdxSect {
0x02ddd4…02df68 f00 = 0x000e // 0x2ddd4 @0x0
0x02ddd4…02df68 f01 = 0x0002 // 0x2ddd6 @0x2
0x02ddd4…02df68 gno = [ // 0x2ddd8 @0x4
0x02ddd4…02df68 [0x00]: C0x000e.0x3.0
0x02ddd4…02df68 ]
0x02ddd4…02df68 }
0x02df68…02e0fc Dummy {f00=0x000e, 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=0x000e, 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=0x000e, 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=0x000e, f01=0x0190, f02=»
[…0x2…]
0x02e8e0…02ea74 (1, 58) Opaque[0x194]
0x02ea74…02ec08 # DirEnt {nam=»ATTRIB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x01e0, f03=0x0000}
0x02ea74…02ec08 IdxSect {
0x02ea74…02ec08 f00 = 0x000f // 0x2ea74 @0x0
0x02ea74…02ec08 f01 = 0x0004 // 0x2ea76 @0x2
0x02ea74…02ec08 gno = [ // 0x2ea78 @0x4
0x02ea74…02ec08 [0x00]: C0x000f.0x0.0
0x02ea74…02ec08 [0x01]: C0x000f.0x1.0
0x02ea74…02ec08 ]
0x02ea74…02ec08 }
0x02ec08…02ed9c Dummy {f00=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x01f0, f03=0x0000}
0x0303b4…030548 IdxSect {
0x0303b4…030548 f00 = 0x000f // 0x303b4 @0x0
0x0303b4…030548 f01 = 0x0002 // 0x303b6 @0x2
0x0303b4…030548 gno = [ // 0x303b8 @0x4
0x0303b4…030548 [0x00]: C0x000f.0x2.0
0x0303b4…030548 ]
0x0303b4…030548 }
0x030548…0306dc Dummy {f00=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x01f8, f03=0x0000}
0x031054…0311e8 IdxSect {
0x031054…0311e8 f00 = 0x000f // 0x31054 @0x0
0x031054…0311e8 f01 = 0x000e // 0x31056 @0x2
0x031054…0311e8 gno = [ // 0x31058 @0x4
0x031054…0311e8 [0x00]: C0x000f.0x3.0
0x031054…0311e8 [0x01]: C0x0010.0x0.0
0x031054…0311e8 [0x02]: C0x0010.0x1.0
0x031054…0311e8 [0x03]: C0x0010.0x2.0
0x031054…0311e8 [0x04]: C0x0010.0x3.0
0x031054…0311e8 [0x05]: C0x0011.0x0.0
0x031054…0311e8 [0x06]: C0x0011.0x1.0
0x031054…0311e8 ]
0x031054…0311e8 }
0x0311e8…03137c Dummy {f00=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x000f, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, f01=0x0190, f02=» P ?_ = > = > = =_: R _ 00 > & <h$ P > !"#$%& () +,-./ N / # 0123456789 < @,-. 0123456789 'ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]+ > ?;_: =!"#$%&/() ^ABCDEFGHI
0x032fe4…033178 Dummy {f00=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, f01=0x0190, f02=» : [ [ : 56 T W Z A. c @ V W U ) R $ )_ : V r + V ) t + Z W r
0x033fac…034140 Dummy {f00=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0010, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, f01=0x4150, f02=» P ~ , ( ! Q , ( 1 Q N , ( A Q ~ , ( Q Q , ( a Q
0x0360d0…036264 Dummy {f00=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0230, f03=0x0000}
0x0368b4…036a48 IdxSect {
0x0368b4…036a48 f00 = 0x0011 // 0x368b4 @0x0
0x0368b4…036a48 f01 = 0x0010 // 0x368b6 @0x2
0x0368b4…036a48 gno = [ // 0x368b8 @0x4
0x0368b4…036a48 [0x00]: C0x0011.0x2.0
0x0368b4…036a48 [0x01]: C0x0011.0x3.0
0x0368b4…036a48 [0x02]: C0x0012.0x0.0
0x0368b4…036a48 [0x03]: C0x0012.0x1.0
0x0368b4…036a48 [0x04]: C0x0012.0x2.0
0x0368b4…036a48 [0x05]: C0x0012.0x3.0
0x0368b4…036a48 [0x06]: C0x0013.0x0.0
0x0368b4…036a48 [0x07]: C0x0013.0x1.0
0x0368b4…036a48 ]
0x0368b4…036a48 }
0x036a48…036bdc Dummy {f00=0x0011, f01=0x0190, f02=»$ :U tCR 0 P d r K0 Z 8 4 K0 0 * * ^ $ P B
0x036bdc…036d70 Dummy {f00=0x0011, f01=0x0190, f02=»
[…0x7…]
0x03787c…037a10 Dummy {f00=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0011, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0012, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0270, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»XOPINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»XMESG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0dd0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e08, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»QMISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e48, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DFOACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»AADEMO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f10, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»EINIT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f20, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»NJ1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f40, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»BESELF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f78, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fa8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1048, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DMWDR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1098, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DELACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1108, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1120, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1130, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1148, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1150, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1190, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1258, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1268, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1320, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»MMU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1348, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1350, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1358, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»DEMCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»EMPTY «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x03cc20…03d8c0 DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13e0, f03=0x0000}
0x03cc20…03d8c0 }
0x03d8c0…03da54 (2, 1) Opaque[0x194]
0x03da54…03dbe8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x03da54…03dbe8 IdxSect {
0x03da54…03dbe8 f00 = 0x0013 // 0x3da54 @0x0
0x03da54…03dbe8 f01 = 0x004c // 0x3da56 @0x2
0x03da54…03dbe8 gno = [ // 0x3da58 @0x4
0x03da54…03dbe8 [0x00]: C0x0013.0x3.0
0x03da54…03dbe8 [0x01]: C0x0014.0x0.0
0x03da54…03dbe8 [0x02]: C0x0014.0x1.0
0x03da54…03dbe8 [0x03]: C0x0014.0x2.0
0x03da54…03dbe8 [0x04]: C0x0014.0x3.0
0x03da54…03dbe8 [0x05]: C0x0015.0x0.0
0x03da54…03dbe8 [0x06]: C0x0015.0x1.0
0x03da54…03dbe8 [0x07]: C0x0015.0x2.0
0x03da54…03dbe8 [0x08]: C0x0015.0x3.0
0x03da54…03dbe8 [0x09]: C0x0016.0x0.0
0x03da54…03dbe8 [0x0a]: C0x0016.0x1.0
0x03da54…03dbe8 [0x0b]: C0x0016.0x2.0
0x03da54…03dbe8 [0x0c]: C0x0016.0x3.0
0x03da54…03dbe8 [0x0d]: C0x0017.0x0.0
0x03da54…03dbe8 [0x0e]: C0x0017.0x1.0
0x03da54…03dbe8 [0x0f]: C0x0017.0x2.0
0x03da54…03dbe8 [0x10]: C0x0017.0x3.0
0x03da54…03dbe8 [0x11]: C0x0018.0x0.0
0x03da54…03dbe8 [0x12]: C0x0018.0x1.0
0x03da54…03dbe8 [0x13]: C0x0018.0x2.0
0x03da54…03dbe8 [0x14]: C0x0018.0x3.0
0x03da54…03dbe8 [0x15]: C0x0019.0x0.0
0x03da54…03dbe8 [0x16]: C0x0019.0x1.0
0x03da54…03dbe8 [0x17]: C0x0019.0x2.0
0x03da54…03dbe8 [0x18]: C0x0019.0x3.0
0x03da54…03dbe8 [0x19]: C0x001a.0x0.0
0x03da54…03dbe8 [0x1a]: C0x001a.0x1.0
0x03da54…03dbe8 [0x1b]: C0x001a.0x2.0
0x03da54…03dbe8 [0x1c]: C0x001a.0x3.0
0x03da54…03dbe8 [0x1d]: C0x001b.0x0.0
0x03da54…03dbe8 [0x1e]: C0x001b.0x1.0
0x03da54…03dbe8 [0x1f]: C0x001b.0x2.0
0x03da54…03dbe8 [0x20]: C0x001b.0x3.0
0x03da54…03dbe8 [0x21]: C0x001c.0x0.0
0x03da54…03dbe8 [0x22]: C0x001c.0x1.0
0x03da54…03dbe8 [0x23]: C0x001c.0x2.0
0x03da54…03dbe8 [0x24]: C0x001c.0x3.0
0x03da54…03dbe8 [0x25]: C0x001d.0x0.0
0x03da54…03dbe8 ]
0x03da54…03dbe8 }
0x03dbe8…03dd7c Dummy {f00=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0013, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, f01=0x018e, f02=» !0 2 ( D & T ( $ &" FORMAT FILE VOLUME NAME ? DSC b & M & ( E & & SYSTEM LANGUAGE ?E & ! @
0x03f9e4…03fb78 Dummy {f00=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, 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=0x0014, f01=0x400c, f02=» @ c d _z e f g h a b c D ; T f < v 0 < 0 < $ % ' ,0
0x04164c…0417e0 Dummy {f00=0x0014, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, f01=0x0190, f02=»L4 L 0 0 0 . @ R 0 d v % *0 . 1 60 90
0x041e30…041fc4 Dummy {f00=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, f01=0x0190, f02=» J K0 L0 , N > O N P0 ` Q0 r S T U0 V0 X 4 Y0 & B ^
0x042c64…042df8 Dummy {f00=0x0015, 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=0x0015, f01=0x0190, f02=» " S,SF " 0 @ DK,N R " f v P " US " YU
0x042f8c…043120 Dummy {f00=0x0015, 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=0x0015, 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=0x0015, f01=0x018c, f02=» z & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x043448…0435dc Dummy {f00=0x0015, f01=0x4008, f02=»@ & @ABCDEFGHIJKLMNO & & & 4 & B & PQRSTUVWXYZ[ ]^_ P & `abcdefghijklmno n & pqrstuvwxyz{|}~ ( & & & k & & :
0x0435dc…043770 Dummy {f00=0x0015, 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=0x0015, 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=0x0015, f01=0x0190, f02=» $ 0 A 4 F V 0 A f x & 999999 " a & 9999 " & &
0x043a98…043c2c Dummy {f00=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0015, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, f01=0x0190, f02=» $ & 01 4 & D 999999 R " a1 h & x & k & & ( (0 ,0 00 40
0x04556c…045700 Dummy {f00=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, 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=0x0016, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x046d18…046eac Dummy {f00=0x0016, f01=0x4104, f02=» x , ( @ F0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x046eac…047040 Dummy {f00=0x0016, 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=0x0016, 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=0x0016, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x047368…0474fc Dummy {f00=0x0016, f01=0x4104, f02=» x , ( @ G0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @ 1
0x0474fc…047690 Dummy {f00=0x0016, 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=0x0016, 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=0x0016, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x4104, f02=» x , ( @ H0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x047b4c…047ce0 Dummy {f00=0x0016, 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=0x0017, 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=0x0017, 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=0x0017, 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=0x0017, 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 & * & * &
0x048330…0484c4 Dummy {f00=0x0017, 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 @ &
0x0484c4…048658 Dummy {f00=0x0017, 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 @
0x048658…0487ec Dummy {f00=0x0017, 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 @
0x0487ec…048980 Dummy {f00=0x0017, 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 * : @
0x048980…048b14 (2, 15) Dummy {f00=0x0017, 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 @
0x048b14…048ca8 Dummy {f00=0x0017, 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 @
0x048ca8…048e3c Dummy {f00=0x0017, 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 & & & &
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=» & & & ; $ & Y 4 & w D & T & d & t & & & + & I & g & & & &
0x048fd0…049164 Dummy {f00=0x0017, f01=0x40e4, f02=» & & & ) $ & G 4 & e D & T & d & t & & * @ & &
0x049164…0492f8 Dummy {f00=0x0017, 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 @
0x0492f8…04948c Dummy {f00=0x0017, 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
0x04948c…049620 Dummy {f00=0x0017, 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
0x049620…0497b4 (2, 16) Dummy {f00=0x0017, 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
0x0497b4…049948 Dummy {f00=0x0017, 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
0x049948…049adc Dummy {f00=0x0017, f01=0x415c, f02=» @ H IDENT U:UOP0 TRA 10.0 80-05-13 F1 O1111 CURRENCY INQUIRY # U:UOP0 # H U:UOP0U # Z & # n * & # * & = # * & [
0x049adc…049c70 Dummy {f00=0x0017, 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 % $ & $ @ $ # * & [
0x049c70…049e04 Dummy {f00=0x0017, 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 *
0x049e04…049f98 Dummy {f00=0x0017, 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 & @ &
0x049f98…04a12c Dummy {f00=0x0017, 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 '
0x04a12c…04a2c0 Dummy {f00=0x0017, 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 '
0x04a2c0…04a454 (2, 17) Dummy {f00=0x0017, 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 ) =
0x04a454…04a5e8 Dummy {f00=0x0017, 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 ) =
0x04a5e8…04a77c Dummy {f00=0x0017, 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 + =
0x04a77c…04a910 Dummy {f00=0x0017, 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 + =
0x04a910…04aaa4 Dummy {f00=0x0017, 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 + =
0x04aaa4…04ac38 Dummy {f00=0x0017, 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 . = . > . @ .
0x04ac38…04adcc Dummy {f00=0x0017, 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 /
0x04adcc…04af60 Dummy {f00=0x0017, 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 /
0x04af60…04b0f4 (2, 18) Dummy {f00=0x0018, 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 /
0x04b0f4…04b288 Dummy {f00=0x0018, 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 /
0x04b288…04b41c Dummy {f00=0x0018, 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
0x04b41c…04b5b0 Dummy {f00=0x0018, 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
0x04b5b0…04b744 Dummy {f00=0x0018, 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
0x04b744…04b8d8 Dummy {f00=0x0018, 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
0x04b8d8…04ba6c Dummy {f00=0x0018, 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
0x04ba6c…04bc00 Dummy {f00=0x0018, 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
0x04bc00…04bd94 (2, 19) Dummy {f00=0x0018, 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
0x04bd94…04bf28 Dummy {f00=0x0018, 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
0x04bf28…04c0bc Dummy {f00=0x0018, 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 ;
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x0190, f02=» ; Z0 < ]0 < ` < , c < < f < L i < l0 < l o0 < ~ r0 < u0 < x0 < {0 < ~0 < 0 < J F " D @ qL rL
0x04c250…04c3e4 Dummy {f00=0x0018, 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
0x04c3e4…04c578 Dummy {f00=0x0018, 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
0x04c578…04c70c Dummy {f00=0x0018, 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
0x04c70c…04c8a0 Dummy {f00=0x0018, 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
0x04c8a0…04ca34 (2, 20) Dummy {f00=0x0018, 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
0x04ca34…04cbc8 Dummy {f00=0x0018, f01=0x018e, f02=»! L ! L W dL1X F T U_F% L j ( 3 8 J Z 0 3 j | & ZZZZZZ " & 99
0x04cbc8…04cd5c Dummy {f00=0x0018, 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
0x04cd5c…04cef0 Dummy {f00=0x0018, 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
0x04cef0…04d084 Dummy {f00=0x0018, 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
0x04d084…04d218 Dummy {f00=0x0018, 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
0x04d218…04d3ac Dummy {f00=0x0018, 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
0x04d3ac…04d540 Dummy {f00=0x0018, 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
0x04d540…04d6d4 (2, 21) Dummy {f00=0x0018, 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
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x0190, f02=»T1X FW TL0X L RT1X F TL RT1X l E * I _ : U d J W ` l g | i & & ( q0 u0 y0
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x018e, f02=» - & & Y , & < Z J " 9 & l 999999 z " a & S & & (R) & 999 " R &
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x018e, f02=» & Y & Z " " 9 4 & D & l R & ` ZZVZZZVZZ9,99- n " & ( & & Y & Z "
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=» ( & $ & Y 2 & B Z P " 9 b & r ZZVZZ9,999 " c & ZZVZZZ,ZZ9 " d & ( !
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x018e, f02=»ZZZVZZ9,99-4 " & $ & W 2 & X B & R & ` & n ( | & & Y & Z " 9 & & S &
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» & & & & k 4 & B & P ( ^ j & z 99E-99E-99 " & 99E:99 " & 999999
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x018e, f02=»( & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x04e1e0…04e374 (2, 22) Dummy {f00=0x0019, f01=0x4008, f02=»@ & & ( & 6 ZZZZZZZZ9,99-9 F " d d & t & s & & & ZZZZZZZZ9,99-9 " d & . ZZZZ9,99
0x04e374…04e508 Dummy {f00=0x0019, 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
0x04e508…04e69c Dummy {f00=0x0019, 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
0x04e69c…04e830 Dummy {f00=0x0019, 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
0x04e830…04e9c4 Dummy {f00=0x0019, 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
0x04e9c4…04eb58 Dummy {f00=0x0019, 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
0x04eb58…04ecec Dummy {f00=0x0019, 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
0x04ecec…04ee80 Dummy {f00=0x0019, 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%
0x04ee80…04f014 (2, 23) Dummy {f00=0x0019, 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
0x04f014…04f1a8 Dummy {f00=0x0019, 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 %
0x04f1a8…04f33c Dummy {f00=0x0019, 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 "
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=» $ 4 D T d t K X &
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=» & * < J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S N & l B
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=» . > 9 N ^ n ~ B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRRRRRR A
0x04f7f8…04f98c Dummy {f00=0x0019, 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
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=» " D @F BL1X BL_ AL0XKX CLWZ0X B)BL 1X F_ 0XK @ACR7 RA AL @L AA_ N ` r ( > (
0x04fb20…04fcb4 (2, 24) Dummy {f00=0x0019, f01=0x018e, f02=»!ALG!ALC!CLb RC 0X BL0 ` ! ! 0 ! @ ! R ! b ! r ! ! ! D ! D ! " ! ! !
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x4152, f02=» ! " " " ( " : l " L " " $ " n % " ~ * l " " & " & " ( " " & 00 " ( " 6 1 /
0x04fe48…04ffdc Dummy {f00=0x0019, 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
0x04ffdc…050170 Dummy {f00=0x0019, 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 $
0x050170…050304 Dummy {f00=0x0019, 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 % % % %
0x050304…050498 Dummy {f00=0x0019, 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 &
0x050498…05062c Dummy {f00=0x0019, 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 '
0x05062c…0507c0 Dummy {f00=0x0019, 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 - { - -
0x0507c0…050954 (2, 25) Dummy {f00=0x0019, 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 . . & . & . ( .
0x050954…050ae8 Dummy {f00=0x0019, f01=0x404e, f02=» 1 . $ / ( / / ( / 8@ / JC 4 1X F R W R DL DL DL0X D R 0X . 4 E . F . m . r . v . . & . & . ( .
0x050ae8…050c7c Dummy {f00=0x0019, 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 -,
0x050c7c…050e10 Dummy {f00=0x0019, 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
0x050e10…050fa4 Dummy {f00=0x0019, 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
0x050fa4…051138 Dummy {f00=0x0019, 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
0x051138…0512cc Dummy {f00=0x0019, 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
0x0512cc…051460 Dummy {f00=0x0019, 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
0x051460…0515f4 (2, 26) Dummy {f00=0x001a, f01=0x0190, f02=»9999 " e 99999 " e 2 999999 B " e X Z h " e z ZZ " e ZZZ " e ZZZZ " e ZZZZZ
0x0515f4…051788 Dummy {f00=0x001a, 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 "
0x051788…05191c Dummy {f00=0x001a, f01=0x0190, f02=» ZZZZZZZZ9,99- " e " ZZZZZZZZZ,ZZ 2 " e N ZZZZZZZZZ,ZZ- ^ " e | 99E:99 " e ZZE:ZZ " e ZZVZZ9,99, " e !
0x05191c…051ab0 Dummy {f00=0x001a, 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 !
0x051ab0…051c44 Dummy {f00=0x001a, 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 : >
0x051c44…051dd8 Dummy {f00=0x001a, 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
0x051dd8…051f6c Dummy {f00=0x001a, f01=0x40ee, f02=» : * & : & ! & FAILURE ON FORMAT-FILE-DISK H & r $ & FUNCTION ABENDED BY ZMRDFS ( E HLj EH] W 1X FA24 @
0x051f6c…052100 Dummy {f00=0x001a, f01=0x40f0, f02=» > F IDENT QEMOVE DATATRANSP. BUFFER <--> UWB QEMOVEK F QEMOVEK X I:EVA0 l , ( D@ F 8 1 ~ I:RT1 Y $ @
0x052100…052294 (2, 27) Dummy {f00=0x001a, 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
0x052294…052428 Dummy {f00=0x001a, 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 & * & * &
0x052428…0525bc Dummy {f00=0x001a, 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
0x0525bc…052750 Dummy {f00=0x001a, f01=0x0190, f02=» v * & * & 6 * & = n d * & [ * & y " p * & + 1
0x052750…0528e4 Dummy {f00=0x001a, f01=0x4104, f02=» x , ( @ A0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @
0x0528e4…052a78 Dummy {f00=0x001a, 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 @
0x052a78…052c0c Dummy {f00=0x001a, 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
0x052c0c…052da0 Dummy {f00=0x001a, 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
0x052da0…052f34 (2, 28) Dummy {f00=0x001a, 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
0x052f34…0530c8 Dummy {f00=0x001a, 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
0x0530c8…05325c Dummy {f00=0x001a, 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
0x05325c…0533f0 Dummy {f00=0x001a, 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 +
0x0533f0…053584 Dummy {f00=0x001a, f01=0x4028, f02=»0R DT A 4 X @ $
0x053584…053718 Dummy {f00=0x001a, 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 '
0x053718…0538ac Dummy {f00=0x001a, 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
0x0538ac…053a40 Dummy {f00=0x001a, f01=0x0190, f02=» " & 2 & @ & m R ( ` l & % | & m ( J F " D DL WL Q
0x053a40…053bd4 (2, 29) Dummy {f00=0x001a, f01=0x0190, f02=» ( 8 H X h x " < " < "
0x053bd4…053d68 Dummy {f00=0x001a, f01=0x4046, f02=» I RKKKW RKKKW I RKKKW RKKK@ 4 % 0@ B H X h x " < " < "
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=» B F IDENT CTAB01 FT80 CONVERSION TABLSE CTAB01K CTAB02 CTAB03 J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x053efc…054090 Dummy {f00=0x001a, f01=0x4066, f02=» h LMNOPQRSTUVWXYZ{|}* 4 t 4 t , P@ b J CTAB01K l CTAB02 CTAB03 , ( 0123 , ( ! 456789 , (
0x054090…054224 Dummy {f00=0x001a, f01=0x2008, f02=» L = KMD020 DATE = 801103 6876PACK NBR = 0020 0
0x054224…0543b8 Dummy {f00=0x001a, 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
0x0543b8…05454c Dummy {f00=0x001a, 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
0x05454c…0546e0 Dummy {f00=0x001a, 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
0x0546e0…054874 (2, 30) Dummy {f00=0x001b, 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
0x054874…054a08 Dummy {f00=0x001b, 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
0x054a08…054b9c Dummy {f00=0x001b, 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 %
0x054b9c…054d30 Dummy {f00=0x001b, 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
0x054d30…054ec4 Dummy {f00=0x001b, f01=0x0190, f02=» ( 8 H X h x L Y &
0x054ec4…055058 Dummy {f00=0x001b, f01=0x018e, f02=» & . @ J F " D p2A RRRRRRRRRRRRRRRR!@LB0X C!CL 3C RRRRRRR2B RRR CLW 0X B)BL _S R & l
0x055058…0551ec Dummy {f00=0x001b, f01=0x018e, f02=» $ 4 D 9 T d t B 4 J F " D CL0X B!BL) R2B RRRW 0X KAA2A RRRRRRRRRRRRR
0x0551ec…055380 Dummy {f00=0x001b, 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
0x055380…055514 (2, 31) Dummy {f00=0x001b, 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 ! ( ! > ! ! ! ( ! !
0x055514…0556a8 Dummy {f00=0x001b, f01=0x0190, f02=»X BAW ALS!ALG!ALC!CLb RC 0X B ! h * " & " 6 " H " X " j " z " " " " D " D " " " "
0x0556a8…05583c Dummy {f00=0x001b, f01=0x416a, f02=» " " # # # . # > # P l # b # r $ $ # ' # , l # # & # & # ( # # & 00 #
0x05583c…0559d0 Dummy {f00=0x001b, 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
0x0559d0…055b64 Dummy {f00=0x001b, 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 %
0x055b64…055cf8 Dummy {f00=0x001b, 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 & & & &
0x055cf8…055e8c Dummy {f00=0x001b, 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 '
0x055e8c…056020 Dummy {f00=0x001b, 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 (
0x056020…0561b4 (2, 32) Dummy {f00=0x001b, 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 ) ) ) ) ' )
0x0561b4…056348 Dummy {f00=0x001b, 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 * * * *
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=» * + + " & + 2 & + @ & m + R ( + ` + l & % + | & m + ( + + + + + + J F " D W DL WL
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=» + , , , ( , 8 , H , X , h , x , ! , " , " < , " < , "
0x056670…056804 Dummy {f00=0x001b, f01=0x4048, f02=» H1 I RKKKW RKKKW I RKKKW RKKK@ 4 , ' - 2@ - D , H , X , h , x , ! , " , " < , " < , "
0x056804…056998 Dummy {f00=0x001b, 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 %
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x056cc0…056e54 (2, 33) Dummy {f00=0x001b, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x056fe8…05717c Dummy {f00=0x001b, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x05717c…057310 Dummy {f00=0x001b, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x057310…0574a4 Dummy {f00=0x001b, f01=0x018e, f02=» * L P* * L P************************************************************************ l P OPTNS LITADR=1112 J F**************************************************
0x0574a4…057638 Dummy {f00=0x001b, 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
0x057638…0577cc Dummy {f00=0x001b, 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
0x0577cc…057960 Dummy {f00=0x001b, 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
0x057960…057af4 (2, 34) Dummy {f00=0x001c, 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
0x057af4…057c88 Dummy {f00=0x001c, 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 ]
0x057c88…057e1c Dummy {f00=0x001c, 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
0x057e1c…057fb0 Dummy {f00=0x001c, 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
0x057fb0…058144 Dummy {f00=0x001c, 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
0x058144…0582d8 Dummy {f00=0x001c, 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
0x0582d8…05846c Dummy {f00=0x001c, f01=0x0190, f02=»N RECORD-KEY * l L P* - IF XWINDFLE = 1, A READ IS PERFORMED VIA INDEXFILE-1 * , L P* - IF XWINDFLE = 2, A READ IS PERFORMED VIA INDEXFILE-2 * | L P* USE OF VARIABLES:
0x05846c…058600 Dummy {f00=0x001c, f01=0x0190, f02=» FOR DATABASE-RECORDS * l L P* NWXSTAT : EXTENDED STATUS CODE * , L P* NWRECLNG : UWB-RECORDLENGTH * | L P* SBRECAVB : RECORD AVAILABLE AFTER READ
0x058600…058794 (2, 35) Dummy {f00=0x001c, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x058794…058928 Dummy {f00=0x001c, f01=0x0190, f02=»************************************ l 6 PZCRDD PROC XDRECNR,XDLOGRNR,XWINDFLE READ DATABASE , P PBCD XDRECNR,XDLOGRNR f P PBIN XWINDFLE L PZCOOO P* 4 P* THE NEXT STATEMENT
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=»1' . P MOVE WW1,=W'127' SET SIZE TO RECORDLENGTH P MOVE FCBUFFER,=' ' < L P* * X L P* DECIDE WHICH INDEXFILE SHOULD BE USED TO READ DATABASE * L P*
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=» * h L P* READ DATABASE VIA INDEXFILE-2 * ( L P* * x P MOVE WDEC2,XDRECNR , P MUL WDEC2,=D'1000000' SHIFT CARD NU
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=» ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW2 6 P XSTAT DSDBS,NWXSTAT EXTENDED ST,CODE-->WORKFIELD 0 * P MUL XDRECNR,KDSHIFT SHIFT FOR ZYRLNG j P B ZC500 L PZC300 L P*
0x058de4…058f78 Dummy {f00=0x001c, f01=0x0190, f02=» H L P* * P* GET SYMBOLIC KEY X ( P XCOPY FCBUFFER,KW0,KW6,XDRECNR,KW0 r ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P XSTAT DSDBS,NWXSTAT EXT STATUSCODE -->
0x058f78…05910c Dummy {f00=0x001c, 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*
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x0592a0…059434 (2, 36) Dummy {f00=0x001c, 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*
0x059434…0595c8 Dummy {f00=0x001c, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x0595c8…05975c Dummy {f00=0x001c, 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
0x05975c…0598f0 Dummy {f00=0x001c, 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
0x0598f0…059a84 Dummy {f00=0x001c, 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
0x059a84…059c18 Dummy {f00=0x001c, 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
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x059dac…059f40 Dummy {f00=0x001c, f01=0x0008, f02=» p
0x059f40…05a0d4 (2, 37) Dummy {f00=0x001c, 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 <
0x05a0d4…05a268 Dummy {f00=0x001c, 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
0x05a268…05a3fc Dummy {f00=0x001c, 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
0x05a3fc…05a590 Dummy {f00=0x001c, 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
0x05a590…05a724 Dummy {f00=0x001c, 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
0x05a724…05a8b8 Dummy {f00=0x001c, 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
0x05a8b8…05aa4c Dummy {f00=0x001c, 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 . [ .
0x05aa4c…05abe0 Dummy {f00=0x001c, 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 /
0x05abe0…05ad74 (2, 38) Dummy {f00=0x001d, 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 /
0x05ad74…05af08 Dummy {f00=0x001d, 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 ************************************
0x05af08…05b09c Dummy {f00=0x001d, 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
0x05b09c…05b230 Dummy {f00=0x001d, 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
0x05b230…05b3c4 Dummy {f00=0x001d, 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
0x05b3c4…05b558 Dummy {f00=0x001d, 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
0x05b558…05b6ec Dummy {f00=0x001d, 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=0x001d, 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) Opaque[0x194]
0x05ba14…05bba8 # DirEnt {nam=»DJUACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x05ba14…05bba8 IdxSect {
0x05ba14…05bba8 f00 = 0x001d // 0x5ba14 @0x0
0x05ba14…05bba8 f01 = 0x0004 // 0x5ba16 @0x2
0x05ba14…05bba8 gno = [ // 0x5ba18 @0x4
0x05ba14…05bba8 [0x00]: C0x001d.0x1.0
0x05ba14…05bba8 [0x01]: C0x001d.0x2.0
0x05ba14…05bba8 ]
0x05ba14…05bba8 }
0x05bba8…05bd3c 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********
0x05bd3c…05bed0 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,
0x05bed0…05c064 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
0x05c064…05c1f8 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,
0x05c1f8…05c38c 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 *
0x05c38c…05c520 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
0x05c520…05c6b4 (2, 40) 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
0x05c6b4…05c848 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
0x05c848…05c9dc 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*
0x05c9dc…05cb70 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 @
0x05cb70…05cd04 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 @
0x05cd04…05ce98 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 +!
0x05ce98…05d02c 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 .
0x05d02c…05d1c0 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
0x05d1c0…05d354 (2, 41) Opaque[0x194]
0x05d354…05d4e8 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x05d354…05d4e8 IdxSect {
0x05d354…05d4e8 f00 = 0x001d // 0x5d354 @0x0
0x05d354…05d4e8 f01 = 0x0008 // 0x5d356 @0x2
0x05d354…05d4e8 gno = [ // 0x5d358 @0x4
0x05d354…05d4e8 [0x00]: C0x001d.0x3.0
0x05d354…05d4e8 [0x01]: C0x0064.0x1.0
0x05d354…05d4e8 [0x02]: C0x0064.0x2.0
0x05d354…05d4e8 [0x03]: C0x0064.0x3.0
0x05d354…05d4e8 ]
0x05d354…05d4e8 }
0x05d4e8…05d67c Dummy {f00=0x001d, 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
0x05d67c…05d810 Dummy {f00=0x001d, 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
0x05d810…05d9a4 Dummy {f00=0x001d, 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
0x05d9a4…05db38 Dummy {f00=0x001d, 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
0x05db38…05dccc Dummy {f00=0x001d, 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
0x05dccc…05de60 Dummy {f00=0x001d, 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 >
0x05de60…05dff4 (2, 42) Dummy {f00=0x0064, 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
0x05dff4…05e188 Dummy {f00=0x0064, 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
0x05e188…05e31c Dummy {f00=0x0064, 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
0x05e31c…05e4b0 Dummy {f00=0x0064, 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
0x05e4b0…05e644 Dummy {f00=0x0064, 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
0x05e644…05e7d8 Dummy {f00=0x0064, 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
0x05e7d8…05e96c Dummy {f00=0x0064, 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
0x05e96c…05eb00 Dummy {f00=0x0064, 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 *
0x05eb00…05ec94 (2, 43) Dummy {f00=0x0064, 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
0x05ec94…05ee28 Dummy {f00=0x0064, 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
0x05ee28…05efbc Dummy {f00=0x0064, 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
0x05efbc…05f150 Dummy {f00=0x0064, 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
0x05f150…05f2e4 Dummy {f00=0x0064, 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
0x05f2e4…05f478 Dummy {f00=0x0064, 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
0x05f478…05f60c Dummy {f00=0x0064, 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
0x05f60c…05f7a0 Dummy {f00=0x0064, 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
0x05f7a0…05f934 (2, 44) Dummy {f00=0x0064, 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
0x05f934…05fac8 Dummy {f00=0x0064, 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
0x05fac8…05fc5c Dummy {f00=0x0064, 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
0x05fc5c…05fdf0 Dummy {f00=0x0064, 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 !:
0x05fdf0…05ff84 Dummy {f00=0x0064, 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 `
0x05ff84…060118 Dummy {f00=0x0064, 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 @ *
0x060118…0602ac Dummy {f00=0x0064, 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 `
0x0602ac…060440 Dummy {f00=0x0064, 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
0x060440…0605d4 (2, 45) Opaque[0x194]
0x0605d4…060768 # DirEnt {nam=»DEMODD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x0605d4…060768 IdxSect {
0x0605d4…060768 f00 = 0x0065 // 0x605d4 @0x0
0x0605d4…060768 f01 = 0x0018 // 0x605d6 @0x2
0x0605d4…060768 gno = [ // 0x605d8 @0x4
0x0605d4…060768 [0x00]: C0x0065.0x0.0
0x0605d4…060768 [0x01]: C0x0065.0x1.0
0x0605d4…060768 [0x02]: C0x0065.0x2.0
0x0605d4…060768 [0x03]: C0x0065.0x3.0
0x0605d4…060768 [0x04]: C0x0066.0x0.0
0x0605d4…060768 [0x05]: C0x0066.0x1.0
0x0605d4…060768 [0x06]: C0x0066.0x2.0
0x0605d4…060768 [0x07]: C0x0066.0x3.0
0x0605d4…060768 [0x08]: C0x0067.0x0.0
0x0605d4…060768 [0x09]: C0x0067.0x1.0
0x0605d4…060768 [0x0a]: C0x0067.0x2.0
0x0605d4…060768 [0x0b]: C0x0067.0x3.0
0x0605d4…060768 ]
0x0605d4…060768 }
0x060768…0608fc Dummy {f00=0x0065, f01=0x0190, f02=» : P IDENT DEMODD DATA DIVISION DDIV B L P************************************************************************ P L P* * L P* DATA DIVISION
0x0608fc…060a90 Dummy {f00=0x0065, f01=0x0190, f02=»************************************************************************ L P* * P L P* KEY TO THE VARIABLE NAMES USED. * L P*
0x060a90…060c24 Dummy {f00=0x0065, 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
0x060c24…060db8 Dummy {f00=0x0065, f01=0x0190, f02=»* Y: SYSTEM RECORD * L P* R: TERMINAL RECORD * P L P* C: CURRENCY RECORD * L P* O: OPERATOR REC
0x060db8…060f4c Dummy {f00=0x0065, 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
0x060f4c…0610e0 Dummy {f00=0x0065, 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
0x0610e0…061274 (2, 46) Dummy {f00=0x0065, f01=0x0190, f02=»* V: TEXT VARIABLES * L P* W: WORKVARIABLES, MAY BE USED BY ALL ROUTINES * P L P* * L P* SECOND LETTER: INDI
0x061274…061408 Dummy {f00=0x0065, f01=0x0190, f02=»* B: BOOLEAN * L P* C: STRING * P L P* D: BINARY CODED DECIMAL (BCD) * L P* W: BINARY
0x061408…06159c Dummy {f00=0x0065, f01=0x0190, f02=»* * L P* FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED: * P L P* (LENGTH =< 3) * L P*
0x06159c…061730 Dummy {f00=0x0065, 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)
0x061730…0618c4 Dummy {f00=0x0065, f01=0x0190, f02=»* CFG: CONFIGURATION CHK: CHECK * L P* CHQ: CHEQUE CLS: CLOSE * P L P* CLR: CLEAR CMN: COMMON * L P* CNT: CONTINUE
0x0618c4…061a58 Dummy {f00=0x0065, f01=0x0190, f02=»* CUR: CURRENT * P* DEL: DELETE P L P* DEP: DEPOSIT DI: INDICATOR DISPLAY * l L P* DMO: DEMONSTRATION DS: DATASET *
0x061a58…061bec Dummy {f00=0x0065, f01=0x0190, f02=» * L P* ERR: ERROR * L P* FLE: FILE FNC: FUNCTION * l L P* FMT: FORMAT FRM: FROM *
0x061bec…061d80 Dummy {f00=0x0065, f01=0x0190, f02=» * L P* ID: IDENTIFICATION IND: INDICATOR * L P* INP: INPUT INQ: INQUIRY * l L P* INS: INSERT IX: INDEX *
0x061d80…061f14 (2, 47) Dummy {f00=0x0065, f01=0x0190, f02=» * L P* KY: KEY * L P* LAS: LAST LGG: LANGUAGE * l L P* LMT: LIMIT LNE: LINE *
0x061f14…0620a8 Dummy {f00=0x0065, f01=0x0190, f02=» * L P* LT: LAST TRANSACTION LTS: LAST TRANS. STATM. * L P* NME: NAME NR: NUMBER * l L P* NUM: NUMERIC *
0x0620a8…06223c Dummy {f00=0x0065, f01=0x0190, f02=» * L P* PDU: PLASMA DISPLAY PRS: PRESENT * L P* PRT: PRINT(ER) PTR: POINTER * l L P* RD: READ RDY: READY *
0x06223c…0623d0 Dummy {f00=0x0065, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x0623d0…062564 Dummy {f00=0x0065, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x062564…0626f8 Dummy {f00=0x0065, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x0626f8…06288c Dummy {f00=0x0065, f01=0x0190, f02=» * L P* * L P************************************************************************ l P TERM A0 J F************************************************************
0x06288c…062a20 Dummy {f00=0x0065, 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
0x062a20…062bb4 (2, 48) Dummy {f00=0x0065, 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
0x062bb4…062d48 Dummy {f00=0x0065, 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
0x062d48…062edc Dummy {f00=0x0065, 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
0x062edc…063070 Dummy {f00=0x0065, 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:
0x063070…063204 Dummy {f00=0x0065, 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
0x063204…063398 Dummy {f00=0x0065, 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**********************
0x063398…06352c Dummy {f00=0x0065, f01=0x0190, f02=» L P* * L P************************************************************************ T L P* * L P* SYSTEM RECORD
0x06352c…0636c0 Dummy {f00=0x0065, f01=0x0190, f02=» L P************************************************************************ L PYDSYSRNR BCD 12 RECORD NUMBER T L PYDUMMY BCD 6 PYDSTATUS BCD 2 L
0x0636c0…063854 (2, 49) Dummy {f00=0x0066, 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
0x063854…0639e8 Dummy {f00=0x0066, 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
0x0639e8…063b7c Dummy {f00=0x0066, f01=0x0190, f02=»****************** Z P* P* TWB VARIABLES $ P* < L P************************************************************************ F L PTRM BLK L P*
0x063b7c…063d10 Dummy {f00=0x0066, f01=0x0190, f02=»L FALSE L PSBCANCEL BOOL FALSE ! F L PSB34KB BOOL FALSE 6231 OR 6234 TYPE KEYBOARD ! ( PSBTRMBLK BOOL FALSE TERMINAL BLOCK
0x063d10…063ea4 Dummy {f00=0x0066, f01=0x0190, f02=» ! Z $ PNDTRMLGG BCD 2 TERMINAL LANGUAGE " " PNDTRMNR BCD 4 TERMINAL NUMBER " B L P************************************************************************ " h L P* * " L P
0x063ea4…064038 Dummy {f00=0x0066, f01=0x0190, f02=» * " X L P************************************************************************ # L PRDTRMRNR BCD 12 RECORD NUMBER # h L PRDUMMY BCD 6 # L P
0x064038…0641cc Dummy {f00=0x0066, f01=0x0190, f02=» # X L P* 0 = TERMINAL NOT SPECIFIED * $ L P* 1 = TERMINAL SPECIFIED * $ h L P* 2 = TERMINAL STARTED * $ L P
0x0641cc…064360 Dummy {f00=0x0066, 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
0x064360…0644f4 (2, 50) Dummy {f00=0x0066, f01=0x0190, f02=»RNR BCD 6 OPERATOR NUMBER % L P************************************************************************ & " P* & r 4 P* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES & | P* & L P************************************************************************ &
0x0644f4…064688 Dummy {f00=0x0066, 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 ' &
0x064688…06481c Dummy {f00=0x0066, f01=0x0190, f02=»****************************************************** ' ~ L P* * ( > 6 P* MISCELANEOUS RESERVED VARIABLES AND I/O-BUFFERS ( L P*
0x06481c…0649b0 Dummy {f00=0x0066, 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 )
0x0649b0…064b44 Dummy {f00=0x0066, 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
0x064b44…064cd8 Dummy {f00=0x0066, 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
0x064cd8…064e6c Dummy {f00=0x0066, f01=0x0190, f02=» PWC2STRG8 STRG 8 , PWCSTRG12 STRG 12 , PWCSTRG25 STRG 25 , 4 L P************************************************************************ , L P* , P* I/O-BUFFERS , P* , L P******************************************************************
0x064e6c…065000 Dummy {f00=0x0066, 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
0x065000…065194 (2, 51) Dummy {f00=0x0066, 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.
0x065194…065328 Dummy {f00=0x0066, 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
0x065328…0654bc Dummy {f00=0x0066, f01=0x0190, f02=»************************************************************ / L P* * 0 D L P* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPPL * 0 L P*
0x0654bc…065650 Dummy {f00=0x0066, 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
0x065650…0657e4 Dummy {f00=0x0066, 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
0x0657e4…065978 Dummy {f00=0x0066, 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
0x065978…065b0c Dummy {f00=0x0066, f01=0x0190, f02=» 3 L L PIDACTNR1 BCD 12 4 L PIDACTNR2 BCD 12 4 L PIDAMT1 BCD 12 4 L PIDAMT2 BCD 2
0x065b0c…065ca0 Dummy {f00=0x0066, 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**********************
0x065ca0…065e34 (2, 52) Dummy {f00=0x0066, f01=0x018e, f02=»******************** 5 L P* * 6 L P* CURRENCY RECORD * 6 l L P* * 6
0x065e34…065fc8 Dummy {f00=0x0066, 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
0x065fc8…06615c Dummy {f00=0x0066, f01=0x0190, f02=» 7 t L P* * 8 4 L P************************************************************************ 8 L P*
0x06615c…0662f0 Dummy {f00=0x0066, f01=0x0190, f02=» * 8 t L P************************************************************************ 9 4 L PODOPRRNR BCD 12 RECORD NUMBER 9 L PODUMMY BCD 6
0x0662f0…066484 Dummy {f00=0x0066, f01=0x0190, f02=» 9 t L PODSTATUS BCD 2 : 4 L P* 0 = OPERATOR NOT IN USE * : L P* 1 = OPERATOR INITIALISED
0x066484…066618 Dummy {f00=0x0066, 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:
0x066618…0667ac Dummy {f00=0x0066, f01=0x0190, f02=» * ; t L P* 1,3 : BALANCE CURRENCY 3 * < 4 L P* 1,4 : BALANCE CASH * < L P* 1,5 : UNUSED
0x0667ac…066940 Dummy {f00=0x0066, f01=0x0190, f02=»ERS * < t L P* 2,3 : ACCUMULATED DEPOSITS * = 4 L P* 2,4 : ACCUMULATED WITHDRAWALS * = L P* 2,5 : UNUSED
0x066940…066ad4 (2, 53) Dummy {f00=0x0067, 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
0x066ad4…066c68 Dummy {f00=0x0067, f01=0x0190, f02=» > t L P* * ? 4 0 PSBCHQACT BOOL FALSE IS ACCOUNT A CHEQUE ACC ? L P************************************************************************ ? L P
0x066c68…066dfc Dummy {f00=0x0067, f01=0x0190, f02=» * ? X L P* * @ L P************************************************************************ @ h L PADACTRNR BCD 12 RECORD NUMBER @ L P
0x066dfc…066f90 Dummy {f00=0x0067, f01=0x0190, f02=» @ X L PACADDRES STRG 20 A L PACTOWN STRG 20 A h L PACPASS STRG 6 PASSWORD A L P
0x066f90…067124 Dummy {f00=0x0067, 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
0x067124…0672b8 Dummy {f00=0x0067, 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
0x0672b8…06744c Dummy {f00=0x0067, 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*
0x06744c…0675e0 Dummy {f00=0x0067, f01=0x0190, f02=» D F L P* * E L P* ACCOUNT RECORD 2 * E X L P* * E L P****************
0x0675e0…067774 (2, 54) Dummy {f00=0x0067, 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
0x067774…067908 Dummy {f00=0x0067, 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
0x067908…067a9c Dummy {f00=0x0067, 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
0x067a9c…067c30 Dummy {f00=0x0067, 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******************************************
0x067c30…067dc4 Dummy {f00=0x0067, f01=0x0190, f02=» * I ~ L P************************************************************************ J > L P* * J L P* TRANSACTION RECORD 1
0x067dc4…067f58 Dummy {f00=0x0067, f01=0x0190, f02=»****************************************************** J ~ L PTDTRSRNR BCD 12 RECORD NUMBER K > L PTDUMMY BCD 6 K L PTDTRSCDE BCD 4 TRANSACTION CODE
0x067f58…0680ec Dummy {f00=0x0067, 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
0x0680ec…068280 Dummy {f00=0x0067, f01=0x0190, f02=»COUNT FROM L ~ L PTDCHQNR BCD 8 CHEQUE NUMBER M > L PTCTEXT STRG 20 M L P******************************************
0x068280…068414 (2, 55) Dummy {f00=0x0067, f01=0x0190, f02=» * M ~ L P************************************************************************ N > L P* * N L P* TRANSACTION RECORD 2
0x068414…0685a8 Dummy {f00=0x0067, f01=0x0190, f02=»****************************************************** N ~ L PUDTRSRNR BCD 12 RECORD NUMBER O > L PUDUMMY BCD 6 O L PUDTRSCDE BCD 4 TRANSACTION CODE
0x0685a8…06873c Dummy {f00=0x0067, 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
0x06873c…0688d0 Dummy {f00=0x0067, f01=0x0190, f02=»COUNT FROM P ~ L PUDCHQNR BCD 8 CHEQUE NUMBER Q > L PUCTEXT STRG 20 Q L P******************************************
0x0688d0…068a64 Dummy {f00=0x0067, 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
0x068a64…068bf8 Dummy {f00=0x0067, 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************************
0x068bf8…068d8c Dummy {f00=0x0067, 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
0x068d8c…068f20 Dummy {f00=0x0067, 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
0x068f20…0690b4 (2, 56) Dummy {f00=0x0067, 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****************************************************
0x0690b4…069248 Dummy {f00=0x0067, 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
0x069248…0693dc Dummy {f00=0x0067, 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
0x0693dc…069570 Dummy {f00=0x0067, 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
0x069570…069704 Dummy {f00=0x0067, 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
0x069704…069898 Dummy {f00=0x0067, 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 @ *
0x069898…069a2c Dummy {f00=0x0067, 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 `
0x069a2c…069bc0 Dummy {f00=0x0067, 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
0x069bc0…069d54 (2, 57) Opaque[0x194]
0x069d54…069ee8 # DirEnt {nam=»DEMO «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x069d54…069ee8 IdxSect {
0x069d54…069ee8 f00 = 0x0068 // 0x69d54 @0x0
0x069d54…069ee8 f01 = 0x001c // 0x69d56 @0x2
0x069d54…069ee8 gno = [ // 0x69d58 @0x4
0x069d54…069ee8 [0x00]: C0x0068.0x0.0
0x069d54…069ee8 [0x01]: C0x0068.0x1.0
0x069d54…069ee8 [0x02]: C0x0068.0x2.0
0x069d54…069ee8 [0x03]: C0x0068.0x3.0
0x069d54…069ee8 [0x04]: C0x0069.0x0.0
0x069d54…069ee8 [0x05]: C0x0069.0x1.0
0x069d54…069ee8 [0x06]: C0x0069.0x2.0
0x069d54…069ee8 [0x07]: C0x0069.0x3.0
0x069d54…069ee8 [0x08]: C0x006a.0x0.0
0x069d54…069ee8 [0x09]: C0x006a.0x1.0
0x069d54…069ee8 [0x0a]: C0x006a.0x2.0
0x069d54…069ee8 [0x0b]: C0x006a.0x3.0
0x069d54…069ee8 [0x0c]: C0x006b.0x0.0
0x069d54…069ee8 [0x0d]: C0x006b.0x1.0
0x069d54…069ee8 ]
0x069d54…069ee8 }
0x069ee8…06a07c Dummy {f00=0x0068, 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
0x06a07c…06a210 Dummy {f00=0x0068, f01=0x0190, f02=» N V 2 r A0 0 * V 8 |UBF UIF zUCY UOP UA1 NUA2 UT1 UT2 UQQ
0x06a210…06a3a4 Dummy {f00=0x0068, 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
0x06a3a4…06a538 Dummy {f00=0x0068, f01=0x0190, f02=»0 0 0 >
0x06a538…06a6cc Dummy {f00=0x0068, f01=0x0190, f02=»
[…0x2…]
0x06a9f4…06ab88 Dummy {f00=0x0068, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0
0x06ab88…06ad1c Dummy {f00=0x0068, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x06ad1c…06aeb0 Dummy {f00=0x0068, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x06aeb0…06b044 Dummy {f00=0x0068, 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 >
0x06b044…06b1d8 Dummy {f00=0x0068, 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
0x06b1d8…06b36c Dummy {f00=0x0068, 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
0x06b36c…06b500 Dummy {f00=0x0068, 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)
0x06b500…06b694 (2, 59) Dummy {f00=0x0068, 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 =
0x06b694…06b828 Dummy {f00=0x0068, 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
0x06b828…06b9bc Dummy {f00=0x0068, 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
0x06b9bc…06bb50 Dummy {f00=0x0068, 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
0x06bb50…06bce4 Dummy {f00=0x0068, 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
0x06bce4…06be78 Dummy {f00=0x0068, 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
0x06be78…06c00c Dummy {f00=0x0068, 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
0x06c00c…06c1a0 Dummy {f00=0x0068, 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
0x06c1a0…06c334 (2, 60) Dummy {f00=0x0068, 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
0x06c334…06c4c8 Dummy {f00=0x0068, 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
0x06c4c8…06c65c Dummy {f00=0x0068, 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 ,
0x06c65c…06c7f0 Dummy {f00=0x0068, 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 $
0x06c7f0…06c984 Dummy {f00=0x0068, 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
0x06c984…06cb18 Dummy {f00=0x0068, 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
0x06cb18…06ccac Dummy {f00=0x0068, 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
0x06ccac…06ce40 Dummy {f00=0x0068, 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
0x06ce40…06cfd4 (2, 61) Dummy {f00=0x0069, 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
0x06cfd4…06d168 Dummy {f00=0x0069, 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
0x06d168…06d2fc Dummy {f00=0x0069, 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.' #?
0x06d2fc…06d490 Dummy {f00=0x0069, 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 :
0x06d490…06d624 Dummy {f00=0x0069, 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 / "
0x06d624…06d7b8 Dummy {f00=0x0069, 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
0x06d7b8…06d94c Dummy {f00=0x0069, 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
0x06d94c…06dae0 Dummy {f00=0x0069, 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
0x06dae0…06dc74 (2, 62) Dummy {f00=0x0069, 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
0x06dc74…06de08 Dummy {f00=0x0069, 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
0x06de08…06df9c Dummy {f00=0x0069, 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
0x06df9c…06e130 Dummy {f00=0x0069, 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
0x06e130…06e2c4 Dummy {f00=0x0069, 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
0x06e2c4…06e458 Dummy {f00=0x0069, 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,
0x06e458…06e5ec Dummy {f00=0x0069, 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 % [ ( !!
0x06e5ec…06e780 Dummy {f00=0x0069, 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!
0x06e780…06e914 (2, 63) Dummy {f00=0x0069, 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
0x06e914…06eaa8 Dummy {f00=0x0069, 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
0x06eaa8…06ec3c Dummy {f00=0x0069, 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
0x06ec3c…06edd0 Dummy {f00=0x0069, 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
0x06edd0…06ef64 Dummy {f00=0x0069, 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
0x06ef64…06f0f8 Dummy {f00=0x0069, 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
0x06f0f8…06f28c Dummy {f00=0x0069, 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
0x06f28c…06f420 Dummy {f00=0x0069, 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
0x06f420…06f5b4 (2, 64) Dummy {f00=0x0069, 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 :
0x06f5b4…06f748 Dummy {f00=0x0069, 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
0x06f748…06f8dc Dummy {f00=0x0069, 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
0x06f8dc…06fa70 Dummy {f00=0x0069, 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
0x06fa70…06fc04 Dummy {f00=0x0069, 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
0x06fc04…06fd98 Dummy {f00=0x0069, 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&_
0x06fd98…06ff2c Dummy {f00=0x0069, 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
0x06ff2c…0700c0 Dummy {f00=0x0069, 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
0x0700c0…070254 (2, 65) Dummy {f00=0x006a, 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 "
0x070254…0703e8 Dummy {f00=0x006a, 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
0x0703e8…07057c Dummy {f00=0x006a, 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
0x07057c…070710 Dummy {f00=0x006a, 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
0x070710…0708a4 Dummy {f00=0x006a, 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 :
0x0708a4…070a38 Dummy {f00=0x006a, 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
0x070a38…070bcc Dummy {f00=0x006a, 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
0x070bcc…070d60 Dummy {f00=0x006a, 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 %
0x070d60…070ef4 (2, 66) Dummy {f00=0x006a, 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
0x070ef4…071088 Dummy {f00=0x006a, 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
0x071088…07121c Dummy {f00=0x006a, 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
0x07121c…0713b0 Dummy {f00=0x006a, 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
0x0713b0…071544 Dummy {f00=0x006a, 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
0x071544…0716d8 Dummy {f00=0x006a, 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>#
0x0716d8…07186c Dummy {f00=0x006a, 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
0x07186c…071a00 Dummy {f00=0x006a, 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>#
0x071a00…071b94 (2, 67) Dummy {f00=0x006a, 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
0x071b94…071d28 Dummy {f00=0x006a, 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
0x071d28…071ebc Dummy {f00=0x006a, 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(
0x071ebc…072050 Dummy {f00=0x006a, 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
0x072050…0721e4 Dummy {f00=0x006a, 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(
0x0721e4…072378 Dummy {f00=0x006a, 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 _
0x072378…07250c Dummy {f00=0x006a, 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#
0x07250c…0726a0 Dummy {f00=0x006a, 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!
0x0726a0…072834 (2, 68) Dummy {f00=0x006a, 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
0x072834…0729c8 Dummy {f00=0x006a, 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 # $ =
0x0729c8…072b5c Dummy {f00=0x006a, 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
0x072b5c…072cf0 Dummy {f00=0x006a, 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
0x072cf0…072e84 Dummy {f00=0x006a, 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
0x072e84…073018 Dummy {f00=0x006a, 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
0x073018…0731ac Dummy {f00=0x006a, 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
0x0731ac…073340 Dummy {f00=0x006a, 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
0x073340…0734d4 (2, 69) Dummy {f00=0x006b, 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
0x0734d4…073668 Dummy {f00=0x006b, 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 (
0x073668…0737fc Dummy {f00=0x006b, 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
0x0737fc…073990 Dummy {f00=0x006b, 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
0x073990…073b24 Dummy {f00=0x006b, 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
0x073b24…073cb8 Dummy {f00=0x006b, f01=0x0190, f02=» d f x ~ + 00DATABA O % m m O FILE OPEN UNSUCCESFULL FAILURE ON FORMAT-FILE-DISK FUNCTION ABENDED BY ZMRDFS " $ & ( ) * + ,
0x073cb8…073e4c Dummy {f00=0x006b, 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&
0x073e4c…073fe0 Dummy {f00=0x006b, 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
0x073fe0…074174 (2, 70) Dummy {f00=0x006b, 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
0x074174…074308 Dummy {f00=0x006b, 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
0x074308…07449c Dummy {f00=0x006b, 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 ( $
0x07449c…074630 Dummy {f00=0x006b, 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
0x074630…0747c4 Dummy {f00=0x006b, f01=0x018e, f02=» ~ FMOVE T:SETT , T:USE > T:XREA N T:XSTA ` MASK r QEMOVE T:DSC2 , ( ] T:DSC1 T:DSC0 T:TEST
0x0747c4…074958 Dummy {f00=0x006b, 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
0x074958…074aec Dummy {f00=0x006b, 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 `
0x074aec…074c80 Dummy {f00=0x006b, 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 * &
0x074c80…074e14 (2, 71) Opaque[0x194]
0x074e14…074fa8 # DirEnt {nam=»XOPINP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d70, f03=0x0000}
0x074e14…074fa8 IdxSect {
0x074e14…074fa8 f00 = 0x006b // 0x74e14 @0x0
0x074e14…074fa8 f01 = 0x000e // 0x74e16 @0x2
0x074e14…074fa8 gno = [ // 0x74e18 @0x4
0x074e14…074fa8 [0x00]: C0x006b.0x2.0
0x074e14…074fa8 [0x01]: C0x006b.0x3.0
0x074e14…074fa8 [0x02]: C0x006c.0x0.0
0x074e14…074fa8 [0x03]: C0x006c.0x1.0
0x074e14…074fa8 [0x04]: C0x006c.0x2.0
0x074e14…074fa8 [0x05]: C0x006c.0x3.0
0x074e14…074fa8 [0x06]: C0x006d.0x0.0
0x074e14…074fa8 ]
0x074e14…074fa8 }
0x074fa8…07513c Dummy {f00=0x006b, 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**********************************
0x07513c…0752d0 Dummy {f00=0x006b, 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',
0x0752d0…075464 Dummy {f00=0x006b, 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*
0x075464…0755f8 Dummy {f00=0x006b, 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
0x0755f8…07578c Dummy {f00=0x006b, f01=0x0190, f02=»**************************************************** | L P* * < L P* PROCEDURE: XAKBIN * L P* PARAMETER:
0x07578c…075920 Dummy {f00=0x006b, 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
0x075920…075ab4 (2, 72) Dummy {f00=0x006b, 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
0x075ab4…075c48 Dummy {f00=0x006b, 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
0x075c48…075ddc Dummy {f00=0x006b, 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
0x075ddc…075f70 Dummy {f00=0x006b, 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
0x075f70…076104 Dummy {f00=0x006b, 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
0x076104…076298 Dummy {f00=0x006b, f01=0x0190, f02=» * | L P* FNCKTB: KEYTABLE CONTAINING THE ALLOWED EOI-KEYS * < L P* SPINTPUT: INPUT BUFFER * L P* SPBINW1: REQUESTED LENGTH (BEFORE K
0x076298…07642c Dummy {f00=0x006b, 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
0x07642c…0765c0 Dummy {f00=0x006b, f01=0x0190, f02=» * | L P************************************************************************ < J PXAKBIN PROC PKWLNG P PLIT PKWLNG L PXA000
0x0765c0…076754 (2, 73) Dummy {f00=0x006c, f01=0x0190, f02=» SPBINW1,=W'1' ADJUST FOR EOI-KEY L P* * * L P* ASK FOR KEYBOARD INPUT * z L P*
0x076754…0768e8 Dummy {f00=0x006c, 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*
0x0768e8…076a7c Dummy {f00=0x006c, 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
0x076a7c…076c10 Dummy {f00=0x006c, f01=0x0190, f02=»******** P L P* * T P* GET INPUT FROM A BADGE CARD READER OR MAGNETIC STRIPE UNIT ` L P* * L P
0x076c10…076da4 Dummy {f00=0x006c, 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
0x076da4…076f38 Dummy {f00=0x006c, 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
0x076f38…0770cc Dummy {f00=0x006c, f01=0x0190, f02=»CIMAL l P DSC0 DSBCR,4 RELEASE BADGE L PXD999 2 L P RET L P PEND
0x0770cc…077260 Dummy {f00=0x006c, 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
0x077260…0773f4 (2, 74) Dummy {f00=0x006c, 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*
0x0773f4…077588 Dummy {f00=0x006c, f01=0x0190, f02=» * ~ L P************************************************************************ > L PBCRKTB KTAB X'3F',X'09' L P*
0x077588…07771c Dummy {f00=0x006c, f01=0x0190, f02=»OR * ~ L P* '0E': DOCUMENT ESCAPE * > L P* * J P******************************************
0x07771c…0778b0 Dummy {f00=0x006c, f01=0x0190, f02=» * | L P* PROCEDURE: XCLAMP * < L P* PARAMETERS: XWINDEX (INPUT) * L P* XWON (INPUT)
0x0778b0…077a44 Dummy {f00=0x006c, 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
0x077a44…077bd8 Dummy {f00=0x006c, 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
0x077bd8…077d6c Dummy {f00=0x006c, f01=0x0190, f02=»BLES: * | L P* WW1: DSC1- PARAMETER * < L P* WW2: WORKFIELD * L P*
0x077d6c…077f00 Dummy {f00=0x006c, f01=0x0190, f02=»XWON | P PBIN XWINDEX,XWON D T PXC000 ^ T P CBE YDSTATUS,=D'0',XC999 KEYBOARD TYPE NOT KNOWN YET
0x077f00…078094 (2, 75) Dummy {f00=0x006c, f01=0x0190, f02=»KEYBOARD) * ^ L P* DOES NOT HAVE LAMPS * L P* * n T P CBE RDALFKB,=D'1',XC050 ALPHANUMERIC KEYBOARD
0x078094…078228 Dummy {f00=0x006c, f01=0x0190, f02=» * n L P* CHECK THE AVAILIBILITY OF LAMPS, THERE IS NO LAMP 5 ON THE * . L P* 6234-KEYBOARD * ~ L P*
0x078228…0783bc Dummy {f00=0x006c, f01=0x0190, f02=» v T P TBT SB34KB,XC999 > L P* * L P* 6236-KEYBOARD AND LAMP 5, SOUND
0x0783bc…078550 Dummy {f00=0x006c, f01=0x0190, f02=»=W'64' T P DSC1 DSDI,00,WW1 ! N * P DSC1 DSDI,01,WW1 TURN BELL OFF AGAIN ! L P*
0x078550…0786e4 Dummy {f00=0x006c, f01=0x0190, f02=»MPS MUST BE CONTROLLED * ! t L P* * " 4 T P CBG XWINDEX,=W'0',XC100 " T P TBT SB34KB,XC080
0x0786e4…078878 Dummy {f00=0x006c, f01=0x0190, f02=»C600 " T PXC080 # T T P MOVE WW1,=W'15' 6234-KEYBOARD # T P B X
0x078878…078a0c Dummy {f00=0x006c, 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) * $
0x078a0c…078ba0 Dummy {f00=0x006c, f01=0x0190, f02=» * $ L P* * % T PXC100 % l T P TBT SB34KB,XC150
0x078ba0…078d34 (2, 76) Dummy {f00=0x006c, f01=0x0190, f02=» % l T P SUB WW2,XWINDEX & 4 T P B XC200 & T PXC150
0x078d34…078ec8 Dummy {f00=0x006c, f01=0x0190, f02=»E WW2,XWINDEX & T P SUB WW2,=W'1' ' T L P* * ' L P* NOW CALCUL
0x078ec8…07905c Dummy {f00=0x006c, f01=0x0190, f02=» * ' L T PXC200 ( T P MOVE WW1,=W'1' ( d T PXC210
0x07905c…0791f0 Dummy {f00=0x006c, f01=0x0190, f02=» ( l T P SUB WW2,=W'1' ) 4 T P B XC210 ) L P*
0x0791f0…079384 Dummy {f00=0x006c, f01=0x0190, f02=» * ) T PXC600 * D T P MOVE WW2,XWON * P IB WW2,XC710,XC720
0x079384…079518 Dummy {f00=0x006c, f01=0x0190, f02=» * * ` L P* * + T P DSC1 DSDI,01,WW1 + p T P B XC999
0x079518…0796ac Dummy {f00=0x006c, f01=0x0190, f02=» * + p L P* * , 0 T PXC710 , T P DSC1 DSDI,00,WW1
0x0796ac…079840 Dummy {f00=0x006c, f01=0x0190, f02=» * , L P* SET LAMP FLASHING * - H L P* * - T PXC720
0x079840…0799d4 (2, 77) Dummy {f00=0x006d, f01=0x4170, f02=» - @ T PXC999 . T P RET . ` T P PEND
0x0799d4…079b68 Dummy {f00=0x006d, 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
0x079b68…079cfc Dummy {f00=0x006d, 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
0x079cfc…079e90 Dummy {f00=0x006d, 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 &
0x079e90…07a024 Dummy {f00=0x006d, 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 &
0x07a024…07a1b8 Dummy {f00=0x006d, 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
0x07a1b8…07a34c Dummy {f00=0x006d, 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
0x07a34c…07a4e0 Dummy {f00=0x006d, 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 "
0x07a4e0…07a674 (2, 78) Opaque[0x194]
0x07a674…07a808 # DirEnt {nam=»XMESG «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x07a674…07a808 IdxSect {
0x07a674…07a808 f00 = 0x006d // 0x7a674 @0x0
0x07a674…07a808 f01 = 0x000a // 0x7a676 @0x2
0x07a674…07a808 gno = [ // 0x7a678 @0x4
0x07a674…07a808 [0x00]: C0x006d.0x1.0
0x07a674…07a808 [0x01]: C0x006d.0x2.0
0x07a674…07a808 [0x02]: C0x006d.0x3.0
0x07a674…07a808 [0x03]: C0x006e.0x0.0
0x07a674…07a808 [0x04]: C0x006e.0x1.0
0x07a674…07a808 ]
0x07a674…07a808 }
0x07a808…07a99c Dummy {f00=0x006d, 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
0x07a99c…07ab30 Dummy {f00=0x006d, f01=0x0190, f02=» * ` L P* PROCEDURE: XDMSG * L P* PARAMETER: * p L P* PWMSGNR (INPUT): NUMBER OF THE MESSAGE TO BE DISPLAYED. *
0x07ab30…07acc4 Dummy {f00=0x006d, 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 *
0x07acc4…07ae58 Dummy {f00=0x006d, f01=0x0190, f02=»************************ ` L PXDMSG PROC PWMSGNR P PLIT PWMSGNR p L PXD000 L P*
0x07ae58…07afec Dummy {f00=0x006d, 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
0x07afec…07b180 Dummy {f00=0x006d, f01=0x0190, f02=» F L P PEND L P************************************************************************ X L P* * L P* PROCEDURE:
0x07b180…07b314 (2, 79) Dummy {f00=0x006d, 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
0x07b314…07b4a8 Dummy {f00=0x006d, 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*
0x07b4a8…07b63c Dummy {f00=0x006d, f01=0x0190, f02=» H L P************************************************************************ L PXEERR PROC PWERRNR,XWANSWER X P PLIT PWERRNR P PBIN XWANSWER L PXE000
0x07b63c…07b7d0 Dummy {f00=0x006d, f01=0x0190, f02=»R t L PXE999 4 L P RET L P PEND
0x07b7d0…07b964 Dummy {f00=0x006d, f01=0x0190, f02=» * t L P* PROCEDURE: XFERR1 * 4 L P* PARAMETERS: * L P* PWERRNR (INPUT): NUMBER OF THE ERROR OR MESSA
0x07b964…07baf8 Dummy {f00=0x006d, 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.
0x07baf8…07bc8c Dummy {f00=0x006d, 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;
0x07bc8c…07be20 Dummy {f00=0x006d, 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
0x07be20…07bfb4 (2, 80) Dummy {f00=0x006d, 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
0x07bfb4…07c148 Dummy {f00=0x006d, f01=0x018e, f02=» * t L P************************************************************************ 4 L PXFERR1 PROC XWERRNR,XWANSWER P PBIN XWERRNR,XWANSWER L PXF000
0x07c148…07c2dc Dummy {f00=0x006d, 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
0x07c2dc…07c470 Dummy {f00=0x006d, 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
0x07c470…07c604 Dummy {f00=0x006d, f01=0x0190, f02=» d L P* * $ L P* ANSWER EXPECTED * t L P*
0x07c604…07c798 Dummy {f00=0x006d, f01=0x0190, f02=» d " P IB XWANSWER,XF100,XF200,XF300 $ L P* * J L P* CANCEL EXPECTED * L P*
0x07c798…07c92c Dummy {f00=0x006d, f01=0x0190, f02=» H L P B XF050 L P* * X P* CANCEL OR CLEAR EXPECTED L P*
0x07c92c…07cac0 Dummy {f00=0x006d, f01=0x0190, f02=» j N P CBE SPBINW2,KWCLEAR,XF995 * L P B XF050 | P* P* CANCEL OR CONT EXPECTED P* PXF300
0x07cac0…07cc54 (2, 81) Dummy {f00=0x006e, f01=0x0190, f02=» * f L P* CANCEL PRESSED * & L P* * v L PXF990
0x07cc54…07cde8 Dummy {f00=0x006e, 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
0x07cde8…07cf7c Dummy {f00=0x006e, f01=0x0190, f02=»**************************************** p L P* * 0 P* SOUND BELL L P* * L P************************************
0x07cf7c…07d110 Dummy {f00=0x006e, f01=0x0190, f02=» L P FILLR X'07',1 BELL D L P FMEND L P************************************
0x07d110…07d2a4 Dummy {f00=0x006e, f01=0x0190, f02=»E: XHERAS * L P* FUNCTIONAL DESCRIPTION: * D L P* ERASE THE SCREEN. * L P*
0x07d2a4…07d438 Dummy {f00=0x006e, f01=0x0190, f02=»C PXH000 & P EDWRT SPDSSCRN,FMTERASE PXH999 B P RET P P PEND d L P************************************************************************ z L P*
0x07d438…07d5cc Dummy {f00=0x006e, f01=0x0188, f02=»******************************************************** L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x07d5cc…07d760 Dummy {f00=0x006e, f01=0x2008, f02=» ************************************************ L PFMTERASE FRMT @ L P FCOPY =X'2031' ERASE SCREEN L P FMEND
0x07d760…07d8f4 (2, 82) Dummy {f00=0x006e, f01=0x0190, f02=» L P CBL WDEC1,=D'1',S16500 L P CBG WDEC1,=D'24',S16500 T L P B S16900 L PS16500
0x07d8f4…07da88 Dummy {f00=0x006e, f01=0x0190, f02=» L P MOVE SPBINW4,=W'1' L PS16900 T L P RET L P PEND
0x07da88…07dc1c Dummy {f00=0x006e, f01=0x0190, f02=» L P* * L P* CHECK POINTER TO TRANSACTION-RECORD ( BETWEEN 1 AND 8 ) * T L P* * L P********************
0x07dc1c…07ddb0 Dummy {f00=0x006e, 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
0x07ddb0…07df44 Dummy {f00=0x006e, f01=0x0190, f02=» L PS17500 " L P MOVE XWRET,=W'1' " T L P MOVE SPBINW4,=W'1' " L PS17900
0x07df44…07e0d8 Dummy {f00=0x006e, f01=0x0190, f02=» L P PEND # L P************************************************************************ # T L P* * # L P* INPUT-FIELD MUST
0x07e0d8…07e26c Dummy {f00=0x006e, f01=0x0190, f02=» L P************************************************************************ $ L PSPAP18 PROC XWRET $ T L PS18000 $ L P MOVE WCSTRG25,=C' '
0x07e26c…07e400 Dummy {f00=0x006e, f01=0x0190, f02=» L P CBE WCSTRG25,=C' ',S18500 % L P B S18900 % T L PS18500 % L P MOVE XWRET,=W'1'
0x07e400…07e594 (2, 83) Opaque[0x194]
0x07e594…07e728 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0dd0, f03=0x0000}
0x07e594…07e728 IdxSect {
0x07e594…07e728 f00 = 0x006e // 0x7e594 @0x0
0x07e594…07e728 f01 = 0x0002 // 0x7e596 @0x2
0x07e594…07e728 gno = [ // 0x7e598 @0x4
0x07e594…07e728 [0x00]: C0x006e.0x2.0
0x07e594…07e728 ]
0x07e594…07e728 }
0x07e728…07e8bc Dummy {f00=0x006e, 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
0x07e8bc…07ea50 Dummy {f00=0x006e, 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
0x07ea50…07ebe4 Dummy {f00=0x006e, 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
0x07ebe4…07ed78 Dummy {f00=0x006e, f01=0x0190, f02=» , H0 0 * l " p + 2 T 1 R 0 p A
0x07ed78…07ef0c Dummy {f00=0x006e, 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
0x07ef0c…07f0a0 Dummy {f00=0x006e, f01=0x0190, f02=» 0 6080>0D F 0 0 $ 001 D d n p
0x07f0a0…07f234 (2, 84) Opaque[0x194]
0x07f234…07f3c8 # DirEnt {nam=»SPACHQ«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x07f234…07f3c8 IdxSect {
0x07f234…07f3c8 f00 = 0x006e // 0x7f234 @0x0
0x07f234…07f3c8 f01 = 0x000c // 0x7f236 @0x2
0x07f234…07f3c8 gno = [ // 0x7f238 @0x4
0x07f234…07f3c8 [0x00]: C0x006e.0x3.0
0x07f234…07f3c8 [0x01]: C0x006f.0x0.0
0x07f234…07f3c8 [0x02]: C0x006f.0x1.0
0x07f234…07f3c8 [0x03]: C0x006f.0x2.0
0x07f234…07f3c8 [0x04]: C0x006f.0x3.0
0x07f234…07f3c8 [0x05]: C0x0070.0x0.0
0x07f234…07f3c8 ]
0x07f234…07f3c8 }
0x07f3c8…07f55c Dummy {f00=0x006e, 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
0x07f55c…07f6f0 Dummy {f00=0x006e, f01=0x0190, f02=»19 P P EXPROC SPAP20 H T P EXPROC SPAP21 T P EXPROC SPAP23
0x07f6f0…07f884 Dummy {f00=0x006e, 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
0x07f884…07fa18 Dummy {f00=0x006e, 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*
0x07fa18…07fbac Dummy {f00=0x006e, 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
0x07fbac…07fd40 Dummy {f00=0x006e, 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
0x07fd40…07fed4 (2, 85) Dummy {f00=0x006f, 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.
0x07fed4…080068 Dummy {f00=0x006f, 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
0x080068…0801fc Dummy {f00=0x006f, 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
0x0801fc…080390 Dummy {f00=0x006f, 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
0x080390…080524 Dummy {f00=0x006f, f01=0x0190, f02=» * L P************************************************************************ N L PSPAPPL PROC L PSP000
0x080524…0806b8 Dummy {f00=0x006f, 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
0x0806b8…08084c Dummy {f00=0x006f, 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 =<
0x08084c…0809e0 Dummy {f00=0x006f, 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
0x0809e0…080b74 (2, 86) Dummy {f00=0x006f, f01=0x0190, f02=» t L P MOVE SPBINW4,=W'1' RANGE ERROR 6 P B SP850 L P************************************************************************ L P*
0x080b74…080d08 Dummy {f00=0x006f, f01=0x018e, f02=» * ^ L P************************************************************************ L PSP050 n * P MOVE WDEC1,SPINPUT CONVERT TO DECIMAL ( P CBL WDEC1,=D'0',S05800 RANG
0x080d08…080e9c Dummy {f00=0x006f, 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
0x080e9c…081030 Dummy {f00=0x006f, 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
0x081030…0811c4 Dummy {f00=0x006f, f01=0x0190, f02=» B SP700 L PSP170 L P PERF SPAP17,NWRETCDE ` L P B SP700 L PSP180
0x0811c4…081358 Dummy {f00=0x006f, f01=0x0190, f02=» P L P B SP700 L PSP190 ` L P PERF SPAP19,NWRETCDE L P B SP700
0x081358…0814ec Dummy {f00=0x006f, f01=0x0190, f02=» P L P PERF SPAP20,NWRETCDE L P B SP700 ` T PSP210 T P
0x0814ec…081680 Dummy {f00=0x006f, f01=0x0190, f02=» ` T PSP220 ( T P PERF SPAP22,NWRETCDE T P B SP700
0x081680…081814 (2, 87) Dummy {f00=0x006f, f01=0x0190, f02=»AP23,NWRETCDE T P B SP700 P T PSP240 T P PERF SP
0x081814…0819a8 Dummy {f00=0x006f, f01=0x0190, f02=» X T PSP250 T P PERF SPAP25,NWRETCDE x T P B SP700
0x0819a8…081b3c Dummy {f00=0x006f, 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
0x081b3c…081cd0 Dummy {f00=0x006f, 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****
0x081cd0…081e64 Dummy {f00=0x006f, f01=0x018e, f02=» L P************************************************************************ PSP850 T & P MOVE SPBINW3,=W'3' INDICATE ERROR b P B SP999 L P************************************************************************ P* P* CANCEL EXIT
0x081e64…081ff8 Dummy {f00=0x006f, f01=0x0190, f02=» P MOVE SPBINW3,=W'0' P B SP999 L P************************************************************************ 0 P* P* OK EXIT P* L P************************************************************************ PSP990 P MOV
0x081ff8…08218c Dummy {f00=0x006f, f01=0x0190, f02=» p L P PEND 0 L P************************************************************************ L P********************************************************
0x08218c…082320 Dummy {f00=0x006f, f01=0x0190, f02=»KEYED IN BY OPERATOR * p L P* * 0 L P************************************************************************ L PSPAP16 PROC XWRET
0x082320…0824b4 (2, 88) Dummy {f00=0x006f, 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
0x0824b4…082648 Dummy {f00=0x006f, f01=0x0190, f02=»=W'1' L P MOVE SPBINW4,=W'1' D L PS16900 L P RET
0x082648…0827dc Dummy {f00=0x006f, f01=0x0190, f02=»************************************************************ L P* * D L P* CHECK POINTER TO TRANSACTION-RECORD ( BETWEEN 1 AND 8 ) * L P*
0x0827dc…082970 Dummy {f00=0x006f, 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'
0x082970…082b04 Dummy {f00=0x006f, f01=0x0190, f02=» ! H L P B S17900 " L PS17500 " X L P MOVE XWRET,=W'1' " L P MOVE SPBINW4,=W
0x082b04…082c98 Dummy {f00=0x006f, f01=0x0190, f02=» " H L P RET # L P PEND # X L P************************************************************************ # L P*
0x082c98…082e2c Dummy {f00=0x006f, f01=0x0190, f02=» # H L P* * $ L P************************************************************************ $ X L PSPAP18 PROC XWRET $ L PS18000
0x082e2c…082fc0 Dummy {f00=0x006f, 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
0x082fc0…083154 (2, 89) Dummy {f00=0x0070, f01=0x0190, f02=» % H L P MOVE SPBINW4,=W'1' & L PS18900 & X L P RET & L P PEND
0x083154…0832e8 Dummy {f00=0x0070, f01=0x0190, f02=» & H L P* * ' $ P* CONTINUE FROM CURRENT SCREEN ' X L P* * ' L P********************************************************
0x0832e8…08347c Dummy {f00=0x0070, f01=0x0190, f02=» P PEND ( J P********************************************************************* ( P* ( ` 0 P* VALUE ENTERED MUST BE GREATER THEN ZERO ( j P* ( J P********************************************************************* ( PSPAP27 PROC X
0x08347c…083610 Dummy {f00=0x0070, 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******************************
0x083610…0837a4 Dummy {f00=0x0070, 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 *
0x0837a4…083938 Dummy {f00=0x0070, 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 *
0x083938…083acc Dummy {f00=0x0070, f01=0x0190, f02=» SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * + L P* WORKVARIABLE: * , N L P* WDEC1 * , L P*
0x083acc…083c60 Dummy {f00=0x0070, f01=0x0190, f02=»ATYP PROC XDACTNR , L PQG000 - N L P CLEAR SBCHQACT - L P*
0x083c60…083df4 (2, 90) Opaque[0x194]
0x083df4…083f88 # DirEnt {nam=»BASPCT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e08, f03=0x0000}
0x083df4…083f88 IdxSect {
0x083df4…083f88 f00 = 0x0070 // 0x83df4 @0x0
0x083df4…083f88 f01 = 0x0006 // 0x83df6 @0x2
0x083df4…083f88 gno = [ // 0x83df8 @0x4
0x083df4…083f88 [0x00]: C0x0070.0x1.0
0x083df4…083f88 [0x01]: C0x0070.0x2.0
0x083df4…083f88 [0x02]: C0x0070.0x3.0
0x083df4…083f88 ]
0x083df4…083f88 }
0x083f88…08411c Dummy {f00=0x0070, 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
0x08411c…0842b0 Dummy {f00=0x0070, 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
0x0842b0…084444 Dummy {f00=0x0070, 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
0x084444…0845d8 Dummy {f00=0x0070, 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
0x0845d8…08476c Dummy {f00=0x0070, 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
0x08476c…084900 Dummy {f00=0x0070, 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
0x084900…084a94 (2, 91) Dummy {f00=0x0070, 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
0x084a94…084c28 Dummy {f00=0x0070, 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
0x084c28…084dbc Dummy {f00=0x0070, 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
0x084dbc…084f50 Dummy {f00=0x0070, f01=0x0190, f02=»****************************************************** ~ L P* * > L P* CHECK SCREEN PARAMETER ENTERED * L P*
0x084f50…0850e4 Dummy {f00=0x0070, f01=0x0190, f02=» ~ P PBIN XWRET F T PS15000 Z R P CBE IDNR1,=D'1',S15900 P
0x0850e4…085278 Dummy {f00=0x0070, f01=0x0190, f02=»15900 ~ R P CBE IDNR1,=D'20',S15900 D R P CBE IDNR1,=D'24',S15900 L P*
0x085278…08540c Dummy {f00=0x0070, f01=0x0190, f02=»* * T P MOVE XWRET,=W'1' INDICATE ERROR P T P MOVE SPBINW4,=W'1' 'RANGE ERROR' T PS15900
0x08540c…0855a0 Dummy {f00=0x0070, f01=0x0190, f02=» X P PEND L P************************************************************************ . P* ~ : P* CHECK ANSWER TO ALPHANUMERIC KEYBOARD IN TERM. SPEC. P* L P********************************************************
0x0855a0…085734 (2, 92) Dummy {f00=0x0070, 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
0x085734…0858c8 Dummy {f00=0x0070, 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
0x0858c8…085a5c Dummy {f00=0x0070, 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
0x085a5c…085bf0 Dummy {f00=0x0070, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x085bf0…085d84 Dummy {f00=0x0070, 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 >
0x085d84…085f18 Dummy {f00=0x0070, 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
0x085f18…0860ac Dummy {f00=0x0070, 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
0x0860ac…086240 Dummy {f00=0x0070, 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)
0x086240…0863d4 (2, 93) Opaque[0x194]
0x0863d4…086568 # DirEnt {nam=»QIRDBS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e20, f03=0x0000}
0x0863d4…086568 IdxSect {
0x0863d4…086568 f00 = 0x0071 // 0x863d4 @0x0
0x0863d4…086568 f01 = 0x000a // 0x863d6 @0x2
0x0863d4…086568 gno = [ // 0x863d8 @0x4
0x0863d4…086568 [0x00]: C0x0071.0x0.0
0x0863d4…086568 [0x01]: C0x0071.0x1.0
0x0863d4…086568 [0x02]: C0x0071.0x2.0
0x0863d4…086568 [0x03]: C0x0071.0x3.0
0x0863d4…086568 [0x04]: C0x0072.0x0.0
0x0863d4…086568 ]
0x0863d4…086568 }
0x086568…0866fc Dummy {f00=0x0071, f01=0x0190, f02=» > P IDENT QIRDBS DATABASE RECOVERY L P DDUM DEMODD F L P PDIV P EXPROC ZAOPND P EXPROC ZBCL
0x0866fc…086890 Dummy {f00=0x0071, f01=0x0190, f02=» f P P EXPROC ZEINSD * P EXPROC ZGREA ~ P P EXPROC MASK L P ENTRY QIRDBS
0x086890…086a24 Dummy {f00=0x0071, f01=0x0190, f02=» * L P* DATABASE RECOVERY * H L P* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE * L P* - UPDATE SYSTEM RECORD VARI
0x086a24…086bb8 Dummy {f00=0x0071, f01=0x0190, f02=»ESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED * L P* * H L P************************************************************************ L PQIRDBS PROC
0x086bb8…086d4c Dummy {f00=0x0071, f01=0x0190, f02=» * L P* UPDATE THE LAST RECORD NUMBER OF THE DATABASE * H L P* * L P* TO DO THIS, THE RECORDS BEHIND
0x086d4c…086ee0 Dummy {f00=0x0071, 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
0x086ee0…087074 (2, 94) Dummy {f00=0x0071, 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
0x087074…087208 Dummy {f00=0x0071, 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
0x087208…08739c Dummy {f00=0x0071, f01=0x0190, f02=» * h L P* * ( T P SUB NDLRN2,=D'1' x L P*
0x08739c…087530 Dummy {f00=0x0071, 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
0x087530…0876c4 Dummy {f00=0x0071, 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
0x0876c4…087858 Dummy {f00=0x0071, 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
0x087858…0879ec Dummy {f00=0x0071, 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
0x0879ec…087b80 Dummy {f00=0x0071, f01=0x0190, f02=»OMPLETED l T P B QI050 READ NEXT RECORD 4 L P* * . P* 'NO DATA' IS OFF, CHECK FOR DISK-ERRORS
0x087b80…087d14 (2, 95) Dummy {f00=0x0071, 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
0x087d14…087ea8 Dummy {f00=0x0071, f01=0x018e, f02=» * ~ L P* DO THE INDEXED DELETE AND THE INDEXED INSERT * > L P* * T P MOVE WWCOUNT,=W'0' RESET COUNT
0x087ea8…08803c Dummy {f00=0x0071, 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
0x08803c…0881d0 Dummy {f00=0x0071, f01=0x0190, f02=» * P COMMIT NWXSTAT F T P SET SBNOCOPY ^ T P PERF ZEINSD,WDEC1 INSERT, PARAMETER IS A DUMMY
0x0881d0…088364 Dummy {f00=0x0071, f01=0x0190, f02=» f L P* * . P* END OF LRN UPDATE ~ L P* * L P*
0x088364…0884f8 Dummy {f00=0x0071, 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*
0x0884f8…08868c Dummy {f00=0x0071, 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
0x08868c…088820 Dummy {f00=0x0071, 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
0x088820…0889b4 (2, 96) Dummy {f00=0x0071, f01=0x0190, f02=»DACTRNR,KDSHIFT L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 J L P TBT SBCANCEL,QI980 L P TBT SBRECAVB,QI200
0x0889b4…088b48 Dummy {f00=0x0071, f01=0x0190, f02=»WCOUNT,=W'1' L P CBG WWCOUNT,=W'50',QI700 READY, STOP J L P B QI150 NEXT ACCOUNT L P*
0x088b48…088cdc Dummy {f00=0x0071, f01=0x0190, f02=»PDATE SYSTEM RECORD VARIABLES * L P* * J L PQI200 L P MOVE WWCOUNT,=W'0' RESET COUN
0x088cdc…088e70 Dummy {f00=0x0071, f01=0x0190, f02=»TE LAST SAVINGS/CHEQUE ACCOUNT NUMBER * L P* * J L P TBT SBCHQACT,QI300 L P*
0x088e70…089004 Dummy {f00=0x0071, f01=0x0190, f02=» * L P CBL IDACTNR1,YDLASSAV,QI400 J L P MOVE YDLASSAV,IDACTNR1 UPDATE L P B QI400
0x089004…089198 Dummy {f00=0x0071, f01=0x0190, f02=»UE ACCOUNT * L P* * J L PQI300 L P CBL IDACTNR1,YDLASCHQ,QI400
0x089198…08932c Dummy {f00=0x0071, f01=0x0190, f02=» * L P* UPDATE LAST TRANSACTION SEQUENCE NUMBER * J L P* * L PQI400
0x08932c…0894c0 Dummy {f00=0x0071, f01=0x0190, f02=»YDLASSEQ,ADLASSEQ UPDATE L P* * J L P* RESET ACCOUNT STATUS TO DEBLOCKED, * L P* IF ACCOUNT WAS CLOSED
0x0894c0…089654 (2, 97) Dummy {f00=0x0072, 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
0x089654…0897e8 Dummy {f00=0x0072, f01=0x0190, f02=» L P B QI150 J L P* * L P* UPDATE SYSTEM RECORD VARIABL
0x0897e8…08997c Dummy {f00=0x0072, f01=0x0190, f02=» * L PQI700 J L P TBT SBCHQACT,QI980 READY L P* DO THE CHEQUE ACCOUNTS
0x08997c…089b10 Dummy {f00=0x0072, 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
0x089b10…089ca4 Dummy {f00=0x0072, f01=0x40fc, f02=» ! H L P PEND " L P************************************************************************ " X L P END " @ "
0x089ca4…089e38 Dummy {f00=0x0072, f01=0x2008, f02=» # x L P RET 8 L P PEND L P************************************************
0x089e38…089fcc Dummy {f00=0x0072, 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
0x089fcc…08a160 Dummy {f00=0x0072, 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
0x08a160…08a2f4 (2, 98) Opaque[0x194]
0x08a2f4…08a488 # DirEnt {nam=»QMISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e48, f03=0x0000}
0x08a2f4…08a488 IdxSect {
0x08a2f4…08a488 f00 = 0x0072 // 0x8a2f4 @0x0
0x08a2f4…08a488 f01 = 0x0010 // 0x8a2f6 @0x2
0x08a2f4…08a488 gno = [ // 0x8a2f8 @0x4
0x08a2f4…08a488 [0x00]: C0x0072.0x1.0
0x08a2f4…08a488 [0x01]: C0x0072.0x2.0
0x08a2f4…08a488 [0x02]: C0x0072.0x3.0
0x08a2f4…08a488 [0x03]: C0x0073.0x0.0
0x08a2f4…08a488 [0x04]: C0x0073.0x1.0
0x08a2f4…08a488 [0x05]: C0x0073.0x2.0
0x08a2f4…08a488 [0x06]: C0x0073.0x3.0
0x08a2f4…08a488 [0x07]: C0x0074.0x0.0
0x08a2f4…08a488 ]
0x08a2f4…08a488 }
0x08a488…08a61c Dummy {f00=0x0072, 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
0x08a61c…08a7b0 Dummy {f00=0x0072, f01=0x0190, f02=» * L P* PROCEDURE: QAFNKY * F L P* PARAMETERS: * L P* XWINDEX (UPDATE): INDEX IN
0x08a7b0…08a944 Dummy {f00=0x0072, 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.
0x08a944…08aad8 Dummy {f00=0x0072, 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
0x08aad8…08ac6c Dummy {f00=0x0072, 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
0x08ac6c…08ae00 Dummy {f00=0x0072, 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
0x08ae00…08af94 (2, 99) Dummy {f00=0x0072, 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
0x08af94…08b128 Dummy {f00=0x0072, f01=0x0190, f02=»EY2: IS KEY 2 ON ? * L P* WORKVARIABLE: * F L P* WW1 * L P*
0x08b128…08b2bc Dummy {f00=0x0072, f01=0x0190, f02=»C XWINDEX,XWADAPT,XWKTBLNG " P PBIN XWINDEX,XWADAPT,XWKTBLNG F L PQA000 l L P* *
0x08b2bc…08b450 Dummy {f00=0x0072, f01=0x0190, f02=» * L P PERF QBSTKY,XWINDEX,XWADAPT L P* * l L P* CHECK IF INDEX POINTS INTO THE KEYTABLE *
0x08b450…08b5e4 Dummy {f00=0x0072, 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
0x08b5e4…08b778 Dummy {f00=0x0072, f01=0x0190, f02=» * L P* CHECK KEYBOARD TYPE * L P* * l L P CBG XWINDEX,XWKTBLNG,QA300 6231/34 KEYBOARD WITH KEY 2 ON
0x08b778…08b90c Dummy {f00=0x0072, 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
0x08b90c…08baa0 Dummy {f00=0x0072, 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
0x08baa0…08bc34 (2, 100) Dummy {f00=0x0072, f01=0x0190, f02=» b QA999 RET PEND " L P************************************************************************ 0 L P* * L P* PROCEDURE: QBSTKY
0x08bc34…08bdc8 Dummy {f00=0x0072, 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
0x08bdc8…08bf5c Dummy {f00=0x0072, 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
0x08bf5c…08c0f0 Dummy {f00=0x0072, f01=0x0190, f02=» TURNED XWINDEX MUST BE SET TO XWADAPT * p L P* * 0 L P* VARIABLES USED: * L P* SB34KB: 6234/31-KEYBOARD ?
0x08c0f0…08c284 Dummy {f00=0x0072, f01=0x0190, f02=» * p L P* WORKVARIABLE: * 0 L P* WW1 * L P*
0x08c284…08c418 Dummy {f00=0x0072, 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*
0x08c418…08c5ac Dummy {f00=0x0072, 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
0x08c5ac…08c740 Dummy {f00=0x0072, f01=0x0190, f02=» L P MOVE XWINDEX,XWADAPT J L PQB999 P RET P PEND L P****
0x08c740…08c8d4 (2, 101) Dummy {f00=0x0073, 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*
0x08c8d4…08ca68 Dummy {f00=0x0073, 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*
0x08ca68…08cbfc Dummy {f00=0x0073, 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****
0x08cbfc…08cd90 Dummy {f00=0x0073, f01=0x0190, f02=» T L PQC000 L P MOVE NWUWBNR,=W'0' d L P* * L P* TR
0x08cd90…08cf24 Dummy {f00=0x0073, f01=0x0190, f02=» * T L PQC100 L P ADD NWUWBNR,=W'1' d L P USE UBF,NWUWBNR L P BER
0x08cf24…08d0b8 Dummy {f00=0x0073, 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*
0x08d0b8…08d24c Dummy {f00=0x0073, f01=0x0190, f02=» T L P SET SBUSEDWB L P USE UCY,NWUWBNR d P USE UIF,NWUWBNR L P USE UOP,NWUWBNR
0x08d24c…08d3e0 Dummy {f00=0x0073, f01=0x0190, f02=» l L P USE UT1,NWUWBNR , L P USE UT2,NWUWBNR | P USE UQQ,NWUWBNR L P B QC999
0x08d3e0…08d574 (2, 102) Dummy {f00=0x0073, f01=0x0190, f02=»B'S * L P* * D L PQC500 L P MOVE NWUWBNR,=W'0' INDICATE NO F
0x08d574…08d708 Dummy {f00=0x0073, f01=0x0190, f02=» L P PEND D L P************************************************************************ L P*
0x08d708…08d89c Dummy {f00=0x0073, f01=0x0190, f02=»AL DESCRIPTION: * L P* FREE TGHE UWB'S RESERVED BEFORE BY CLEARING SBUSEDWB. * D L P* * L P************************************
0x08d89c…08da30 Dummy {f00=0x0073, f01=0x0190, f02=» L P CLEAR SBUSEDWB ! D L PQD999 ! L P RET
0x08da30…08dbc4 Dummy {f00=0x0073, f01=0x0190, f02=»************************************************************ ! L P* * " D L P* PROCEDURE: QENTRS * " L P* PARAMETER:
0x08dbc4…08dd58 Dummy {f00=0x0073, 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
0x08dd58…08deec Dummy {f00=0x0073, f01=0x0190, f02=» = 9, RESET XDTRS TO 1. * # L P* * $ D L P************************************************************************ $ L PQENTRS PROC XDTRS
0x08deec…08e080 Dummy {f00=0x0073, 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
0x08e080…08e214 (2, 103) Dummy {f00=0x0073, f01=0x0190, f02=» % H L P PEND & L P************************************************************************ & X L P* * & L P* PROCEDURE:
0x08e214…08e3a8 Dummy {f00=0x0073, 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
0x08e3a8…08e53c Dummy {f00=0x0073, f01=0x0190, f02=» ' H L P* * ( L P************************************************************************ ( X L PQFLTRS PROC XDTRS ( P PBCD XDTRS (
0x08e53c…08e6d0 Dummy {f00=0x0073, 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 )
0x08e6d0…08e864 Dummy {f00=0x0073, f01=0x0190, f02=» ) L P************************************************************************ * L P* * * l L P* PROCEDURE: QGATYP * *
0x08e864…08e9f8 Dummy {f00=0x0073, 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 * +
0x08e9f8…08eb8c Dummy {f00=0x0073, f01=0x0190, f02=» * + L P* VARIABLES USED: * , L P* SBCHQACT: IS ACCOUNT A CHEQUE ACCOUNT ? * , l L P* WORKVARIABLE: * ,
0x08eb8c…08ed20 Dummy {f00=0x0073, f01=0x0190, f02=» * , L P************************************************************************ - L PQGATYP PROC XDACTNR - l P PBCD XDACTNR - L PQG000
0x08ed20…08eeb4 (2, 104) Dummy {f00=0x0073, f01=0x0190, f02=» * - r L P* TEST ACCOUNTNUMBER IS ODD/EVEN * . 2 L P* * . L P MOVE WDEC1,XDACTNR
0x08eeb4…08f048 Dummy {f00=0x0073, f01=0x0190, f02=» . r L P CBNE WDEC1,XDACTNR,QG200 NUMBER IS ODD / 2 L P SET SBCHQACT EVEN NUMBER - CHEQUE ACCOUNT / L PQG200
0x08f048…08f1dc Dummy {f00=0x0073, f01=0x0190, f02=» / r L P************************************************************************ 0 2 L P* * 0 L P* PROCEDURE: QHSPKY
0x08f1dc…08f370 Dummy {f00=0x0073, 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:
0x08f370…08f504 Dummy {f00=0x0073, 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
0x08f504…08f698 Dummy {f00=0x0073, f01=0x0190, f02=» * 2 r L P************************************************************************ 3 2 L PQHSPKY PROC XWINDEX,XWADAPT,XWKTBLNG 3 " P PBIN XWINDEX,XWADAPT,XWKTBLNG 3 L PQH000
0x08f698…08f82c Dummy {f00=0x0073, 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*
0x08f82c…08f9c0 Dummy {f00=0x0073, 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'
0x08f9c0…08fb54 (2, 105) Dummy {f00=0x0074, 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
0x08fb54…08fce8 Dummy {f00=0x0074, 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
0x08fce8…08fe7c Dummy {f00=0x0074, 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
0x08fe7c…090010 Dummy {f00=0x0074, 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
0x090010…0901a4 Dummy {f00=0x0074, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x0901a4…090338 Dummy {f00=0x0074, 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
0x090338…0904cc Dummy {f00=0x0074, 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
0x0904cc…090660 Dummy {f00=0x0074, 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
0x090660…0907f4 (2, 106) Opaque[0x194]
0x0907f4…090988 # DirEnt {nam=»ZDSCIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0e88, f03=0x0000}
0x0907f4…090988 IdxSect {
0x0907f4…090988 f00 = 0x0074 // 0x907f4 @0x0
0x0907f4…090988 f01 = 0x0014 // 0x907f6 @0x2
0x0907f4…090988 gno = [ // 0x907f8 @0x4
0x0907f4…090988 [0x00]: C0x0074.0x1.0
0x0907f4…090988 [0x01]: C0x0074.0x2.0
0x0907f4…090988 [0x02]: C0x0074.0x3.0
0x0907f4…090988 [0x03]: C0x0075.0x0.0
0x0907f4…090988 [0x04]: C0x0075.0x1.0
0x0907f4…090988 [0x05]: C0x0075.0x2.0
0x0907f4…090988 [0x06]: C0x0075.0x3.0
0x0907f4…090988 [0x07]: C0x0076.0x0.0
0x0907f4…090988 [0x08]: C0x0076.0x1.0
0x0907f4…090988 [0x09]: C0x0076.0x2.0
0x0907f4…090988 ]
0x0907f4…090988 }
0x090988…090b1c Dummy {f00=0x0074, f01=0x0190, f02=» 0 P IDENT ZDSCIO DISC I/O OPERATIONS L P DDUM DEMODD 8 L P PDIV L P ENTRY ZAOPND
0x090b1c…090cb0 Dummy {f00=0x0074, f01=0x0190, f02=» x L P ENTRY ZDRWRD 8 L P ENTRY ZEINSD P ENTRY ZGREA P ENTRY ZHWRID P
0x090cb0…090e44 Dummy {f00=0x0074, f01=0x0190, f02=» P EXPROC MASK P EXPROC XAKBIN P EXPROC XEERR . L P EJECT D L P************************************************************************ L P*
0x090e44…090fd8 Dummy {f00=0x0074, 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
0x090fd8…09116c Dummy {f00=0x0074, 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*
0x09116c…091300 Dummy {f00=0x0074, 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,
0x091300…091494 (2, 107) Dummy {f00=0x0074, 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
0x091494…091628 Dummy {f00=0x0074, 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
0x091628…0917bc Dummy {f00=0x0074, 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
0x0917bc…091950 Dummy {f00=0x0074, f01=0x0190, f02=» R L P RET L P PEND b P* P* PERROPN FRMT P FCOPY =X'2031' $ P FTEXT 'FILE OPEN UNSU
0x091950…091ae4 Dummy {f00=0x0074, f01=0x0190, f02=»************************************************ x L P* PROCEDURE: ZBCLSD * 8 L P* FUNCTIONAL DESCRIPTION: * L P* CLOSE DATABASE FOR BOTH INDEXFILES
0x091ae4…091c78 Dummy {f00=0x0074, f01=0x0190, f02=»************************************************ x PZBCLSD PROC 8 L PZB000 N P CLOSE DSDBS P BOK ZB900 L PZB500
0x091c78…091e0c Dummy {f00=0x0074, f01=0x0190, f02=» l L P RET , L P PEND | L P EJECT
0x091e0c…091fa0 Dummy {f00=0x0074, f01=0x0190, f02=» * l L P* PARAMETERS: XDRECNR (INPUT) * , L P* XDLOGRNR (OUTPUT) * | L P* XWINDFLE (INPUT)
0x091fa0…092134 (2, 108) Dummy {f00=0x0074, 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:
0x092134…0922c8 Dummy {f00=0x0074, 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
0x0922c8…09245c Dummy {f00=0x0074, f01=0x0190, f02=» * l L P* WW1 : DATABASE-RECORDLENGTH * , L P* WW2 : KEYLENGTH TO BE COPIED * | L P* WDEC2 : WORKFIELD
0x09245c…0925f0 Dummy {f00=0x0074, 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
0x0925f0…092784 Dummy {f00=0x0074, 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*
0x092784…092918 Dummy {f00=0x0074, 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
0x092918…092aac Dummy {f00=0x0074, 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*
0x092aac…092c40 Dummy {f00=0x0074, 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 -->
0x092c40…092dd4 (2, 109) Dummy {f00=0x0075, f01=0x0190, f02=» * j " P* CHECK EXTENDED STATUS CODE * L P* * P L P PERF ZZERR I/O ERROR-HANDLING > P TBT SBCAN
0x092dd4…092f68 Dummy {f00=0x0075, 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
0x092f68…0930fc Dummy {f00=0x0075, f01=0x0190, f02=» CLEAR SBNOCOPY L P RET L P PEND h L P EJECT L P
0x0930fc…093290 Dummy {f00=0x0075, f01=0x0190, f02=» * X L P* PROCEDURE: ZDRWRD * L P* PARAMETERS: XDRECNR (INPUT) * h L P* XDLOGRNR (INPUT) * L P
0x093290…093424 Dummy {f00=0x0075, f01=0x0190, f02=» * X L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTFIELD FOR DATABASE-RECORDS * h L P* NWRECLNG : UWB-RECORDLENGTH * L P
0x093424…0935b8 Dummy {f00=0x0075, f01=0x0190, f02=» * X L P************************************************************************ 2 PZDRWRD PROC XDRECNR,XDLOGRNR REWRITE DATABASE h P PBCD XDRECNR,XDLOGRNR L PZD000
0x0935b8…09374c Dummy {f00=0x0075, f01=0x0190, f02=»* * L P* REWRITE DATABASE VIA INDEXFILE-1 * P L P* * PZD100 " P REWRITE .
0x09374c…0938e0 Dummy {f00=0x0075, 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
0x0938e0…093a74 (2, 110) Dummy {f00=0x0075, f01=0x0190, f02=»TENDED STATUS CODE, SET SBRECAVB AS REQUIRED L P* * 4 L P PERF ZZERR L PZD900
0x093a74…093c08 Dummy {f00=0x0075, f01=0x0190, f02=» t P EJECT 4 J P********************************************************************* J L P* * L P* PROCEDURE: ZEINSD
0x093c08…093d9c Dummy {f00=0x0075, f01=0x0190, f02=»UNCTIONAL DESCRIPTION: * L P* INSERT RECORD IN DATABASE * H L P* USE OF VARIABLES: * L P* FCBUFFER : INPUTF
0x093d9c…093f30 Dummy {f00=0x0075, f01=0x0190, f02=» NWXSTAT : EXTENDED STATUS CODE * L P* SBNOPY : DON'T COPY RECORD INTO UWB * ! H L P* * ! J P********************************
0x093f30…0940c4 Dummy {f00=0x0075, 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
0x0940c4…094258 Dummy {f00=0x0075, 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
0x094258…0943ec Dummy {f00=0x0075, 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******************
0x0943ec…094580 Dummy {f00=0x0075, f01=0x0190, f02=» RET $ P PEND % P EJECT % ( J P********************************************************************* % 6 L P* * % L P* PROCEDURE: ZHWRID
0x094580…094714 (2, 111) Dummy {f00=0x0075, 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
0x094714…0948a8 Dummy {f00=0x0075, f01=0x0190, f02=» * & t L P* SBNOPY : DON'T COPY RECORD INTO UWB * ' 4 L P* SBRECAVB : RECORD AVAILABLE AFTER READ * ' J P****************************************************
0x0948a8…094a3c Dummy {f00=0x0075, f01=0x0190, f02=»ZH000 ' L P* * ( P L P* TEST RECORD IN DATABASE AND SET SBRECAVB ACCORDINGLY * ( L P*
0x094a3c…094bd0 Dummy {f00=0x0075, f01=0x0190, f02=» ( h L P TBT SBCANCEL,ZH999 ) ( L PZH100 ) x L P TBT SBRECAVB,ZH200
0x094bd0…094d64 Dummy {f00=0x0075, f01=0x0190, f02=»NSERTED IN THE DATABASE * ) h L P* * * ( L P PERF ZEINSD,XDRECNR * x L P B ZH999
0x094d64…094ef8 Dummy {f00=0x0075, f01=0x0190, f02=»MUST BE * * h L P* REWRITTEN TO THE DATABASE * + ( L P* * + x L PZH200
0x094ef8…09508c Dummy {f00=0x0075, f01=0x0190, f02=»LEAR SBNOCOPY + L P RET , L P PEND , f L P EJECT , L P**
0x09508c…095220 Dummy {f00=0x0075, f01=0x018e, f02=» * , V L P* PROCEDURE: ZYRLNG * - L P* PARAMETERS: XDRECNR (INPUT) * - f < P* - CONTAINS THE SHIFTED RECORD NUMBER - L P* FUNCTIONAL
0x095220…0953b4 (2, 112) Dummy {f00=0x0075, f01=0x0190, f02=» - F L P* ON RECORD-NUMBER. * . L P* SYSTEMRECORD : 74 BYTES * . X L P* CURRENCYRECORD : 58 BYTES * . L P*
0x0953b4…095548 Dummy {f00=0x0075, f01=0x0190, f02=» . H L P* TRANSACTIONRECORD : 75 BYTES * / L P* USE OF VARIABLES: * / X L P* WDEC1 : NON-SHIFTED RECORDNUMBER * / L P* WD
0x095548…0956dc Dummy {f00=0x0075, f01=0x0190, f02=» / H L P* * 0 L P************************************************************************ 0 X PZYRLNG PROC XDRECNR 0 P PBCD XDRECNR 0 L PZY000
0x0956dc…095870 Dummy {f00=0x0075, 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
0x095870…095a04 Dummy {f00=0x0075, f01=0x0190, f02=» 1 V L P* * 2 L P* RECNR BELONGS TO CURRENCYRECORD ? * 2 f L P* * 2 0 P M
0x095a04…095b98 Dummy {f00=0x0075, 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
0x095b98…095d2c Dummy {f00=0x0075, 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
0x095d2c…095ec0 Dummy {f00=0x0075, 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*
0x095ec0…096054 (2, 113) Dummy {f00=0x0076, 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
0x096054…0961e8 Dummy {f00=0x0076, 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
0x0961e8…09637c Dummy {f00=0x0076, f01=0x0190, f02=» 7 n L P EJECT 8 . L P************************************************************************ 8 ~ L P*
0x09637c…096510 Dummy {f00=0x0076, 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
0x096510…0966a4 Dummy {f00=0x0076, f01=0x0190, f02=» * 9 n L P* * : . L P* BIT ERROR MESSAGE * : ~ L P* 2 RECORD PROTECTED RECORD PROTECTED
0x0966a4…096838 Dummy {f00=0x0076, 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
0x096838…0969cc Dummy {f00=0x0076, 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
0x0969cc…096b60 Dummy {f00=0x0076, f01=0x0190, f02=»E CHECKED * < n L P* * = . L P************************************************************************ = ~ L P
0x096b60…096cf4 (2, 114) Dummy {f00=0x0076, f01=0x0190, f02=» = n L P CLEAR SBRECAVB > . L PZZ100 > ~ L P MOVE WW1,=X'0010' SET BIT 2 IN WORKFIELD
0x096cf4…096e88 Dummy {f00=0x0076, 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
0x096e88…09701c Dummy {f00=0x0076, f01=0x0190, f02=» * ? L P* CHECK ON DISK ERRORS * @ D L P* * @ L PZZ200
0x09701c…0971b0 Dummy {f00=0x0076, 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
0x0971b0…097344 Dummy {f00=0x0076, 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
0x097344…0974d8 Dummy {f00=0x0076, f01=0x0190, f02=» B L P RET C D L P PEND C L P*
0x0974d8…09766c Dummy {f00=0x0076, f01=0x4048, f02=» C @ D D C D L P PEND C L P*
0x09766c…097800 Dummy {f00=0x0076, f01=0x2008, f02=» E & x L P PEND ' 8 L P END ' @ ' SBIOERR I/O ERROR OCCURED
0x097800…097994 (2, 115) Dummy {f00=0x0076, 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 "
0x097994…097b28 Dummy {f00=0x0076, 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
0x097b28…097cbc Dummy {f00=0x0076, 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
0x097cbc…097e50 Dummy {f00=0x0076, 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
0x097e50…097fe4 Dummy {f00=0x0076, 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 :
0x097fe4…098178 Dummy {f00=0x0076, 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
0x098178…09830c Dummy {f00=0x0076, 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
0x09830c…0984a0 Dummy {f00=0x0076, 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 %
0x0984a0…098634 (2, 116) Opaque[0x194]
0x098634…0987c8 # DirEnt {nam=»DFOACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ed8, f03=0x0000}
0x098634…0987c8 IdxSect {
0x098634…0987c8 f00 = 0x0076 // 0x98634 @0x0
0x098634…0987c8 f01 = 0x0006 // 0x98636 @0x2
0x098634…0987c8 gno = [ // 0x98638 @0x4
0x098634…0987c8 [0x00]: C0x0076.0x3.0
0x098634…0987c8 [0x01]: C0x0077.0x0.0
0x098634…0987c8 [0x02]: C0x0077.0x1.0
0x098634…0987c8 ]
0x098634…0987c8 }
0x0987c8…09895c Dummy {f00=0x0076, f01=0x0190, f02=» * P IDENT DFOACT OPEN ACCOUNT L P************************************************************************ 2 L P* MODULE-NAME : * L P* DFOACT OPEN ACCOUNT-NUMBER
0x09895c…098af0 Dummy {f00=0x0076, f01=0x0190, f02=»RITE JOURNAL * r L P* XBFMT SCREEN-CONTROL * 2 L P* XEERR ERROR-ROUTINE * L P* ZEINSD WRITE ACCOUNT-RECORD
0x098af0…098c84 Dummy {f00=0x0076, f01=0x0190, f02=»EAD ACCOUNT-RECORD * r L P* * 2 L P************************************************************************ L P DDUM DEMODD
0x098c84…098e18 Dummy {f00=0x0076, f01=0x018e, f02=» r P ENTRY SPAP13 2 " P EXPROC XHMSU WRITE BADGE CARD H P P EXPROC PAJRN n P P EXPROC XBFMT
0x098e18…098fac Dummy {f00=0x0076, f01=0x0190, f02=» B L P EJECT L P************************************************************************ X P* & P* OPEN ACCOUNT (CHEQUE OR SAVINGS) P* L P**********************************
0x098fac…099140 Dummy {f00=0x0076, f01=0x0190, f02=» L P TBT SBCHEQUE,DF100 F L P ADD YDLASSAV,=D'2' J P CBG YDLASSAV,=D'168999',DF900
0x099140…0992d4 (2, 117) Dummy {f00=0x0077, f01=0x0190, f02=» L PDF100 D J P ADD YDLASCHQ,=D'2' J P CBG YDLASCHQ,=D'168999',DF900
0x0992d4…099468 Dummy {f00=0x0077, 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'
0x099468…0995fc Dummy {f00=0x0077, f01=0x0190, f02=» SCREEN v P* L PDF300 L P PERF XBFMT,=D'39' j L P TBT SBCANCEL,DF999
0x0995fc…099790 Dummy {f00=0x0077, 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
0x099790…099924 Dummy {f00=0x0077, f01=0x0190, f02=» | L P MOVE ADLASSEQ,YDLASSEQ > L P MOVE TDTRSSEQ,ADLASSEQ L PDF400
0x099924…099ab8 Dummy {f00=0x0077, f01=0x0190, f02=»RNR ~ L P B DF999 > L PDF900 L P PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANS
0x099ab8…099c4c Dummy {f00=0x0077, f01=0x0190, f02=» ~ P CLEAR SBOACT > L P RET T L P PEND P EJECT L P******
0x099c4c…099de0 Dummy {f00=0x0077, 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****************************************************
0x099de0…099f74 (2, 118) Dummy {f00=0x0077, 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
0x099f74…09a108 Dummy {f00=0x0077, 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****************************************
0x09a108…09a29c Dummy {f00=0x0077, f01=0x2008, f02=» x L P PEND 8 L P END @ BE "CANCE
0x09a29c…09a430 Dummy {f00=0x0077, f01=0x0190, f02=»**************************** d * $ P* UPDATE OPERATOR . * H L P************************************************************************ R L PDBUOPR PROC L PDB000
0x09a430…09a5c4 Dummy {f00=0x0077, 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
0x09a5c4…09a758 Dummy {f00=0x0077, 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*
0x09a758…09a8ec Dummy {f00=0x0077, 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
0x09a8ec…09aa80 Dummy {f00=0x0077, 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
0x09aa80…09ac14 (2, 119) Opaque[0x194]
0x09ac14…09ada8 # DirEnt {nam=»BCSTTO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ef0, f03=0x0000}
0x09ac14…09ada8 IdxSect {
0x09ac14…09ada8 f00 = 0x0077 // 0x9ac14 @0x0
0x09ac14…09ada8 f01 = 0x0008 // 0x9ac16 @0x2
0x09ac14…09ada8 gno = [ // 0x9ac18 @0x4
0x09ac14…09ada8 [0x00]: C0x0077.0x2.0
0x09ac14…09ada8 [0x01]: C0x0077.0x3.0
0x09ac14…09ada8 [0x02]: C0x0078.0x0.0
0x09ac14…09ada8 [0x03]: C0x0078.0x1.0
0x09ac14…09ada8 ]
0x09ac14…09ada8 }
0x09ada8…09af3c Dummy {f00=0x0077, f01=0x0190, f02=» 0 P IDENT BCSTTO START OPERATOR L P DDUM DEMODD 8 L P PDIV P EXPROC PAJRN P P EXPROC XBFMT
0x09af3c…09b0d0 Dummy {f00=0x0077, 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
0x09b0d0…09b264 Dummy {f00=0x0077, 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
0x09b264…09b3f8 Dummy {f00=0x0077, 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
0x09b3f8…09b58c Dummy {f00=0x0077, 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
0x09b58c…09b720 Dummy {f00=0x0077, f01=0x0190, f02=»NSWER t L P TBF SBKEY2,BC200 WAIT FOR KEY2 L P* * ^ L P* KEY2 ON * L P*
0x09b720…09b8b4 (2, 120) Dummy {f00=0x0077, 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
0x09b8b4…09ba48 Dummy {f00=0x0077, 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
0x09ba48…09bbdc Dummy {f00=0x0077, f01=0x0190, f02=»OVE TDTRSCDE,=D'901' L P ADD YDLASSEQ,=D'1' N L P MOVE TDTRSSEQ,YDLASSEQ L P*
0x09bbdc…09bd70 Dummy {f00=0x0077, 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'
0x09bd70…09bf04 Dummy {f00=0x0077, f01=0x0190, f02=» x L PBC500 8 L P ADD IWINDEX1,=W'1' , P MOVE ICTEXT3,YCCCY(IWINDEX1) L P
0x09bf04…09c098 Dummy {f00=0x0077, 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
0x09c098…09c22c Dummy {f00=0x0077, f01=0x0190, f02=» SBSTTO L P RET L P PEND ` L P************************************************************************ L P*
0x09c22c…09c3c0 Dummy {f00=0x0077, f01=0x0190, f02=» * P L P* * L P************************************************************************ ` PSPAP08 PROC XWRET P PBIN XWRET N PS08000
0x09c3c0…09c554 (2, 121) Dummy {f00=0x0078, 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
0x09c554…09c6e8 Dummy {f00=0x0078, 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
0x09c6e8…09c87c Dummy {f00=0x0078, 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
0x09c87c…09ca10 Dummy {f00=0x0078, f01=0x0190, f02=»ET P PEND L P************************************************************************ L P* * h L P* CHECK OPERATOR PASSWORD IN OPERATOR START * L P
0x09ca10…09cba4 Dummy {f00=0x0078, 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
0x09cba4…09cd38 Dummy {f00=0x0078, f01=0x0190, f02=» * h L P* PASSWORD NOT OK * ( L P* * x N PS09200
0x09cd38…09cecc Dummy {f00=0x0078, 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
0x09cecc…09d060 Dummy {f00=0x0078, f01=0x0190, f02=» * X N PS09400 L P SET SBTRMBLK j N P MOVE SPBINW2,KWSPCONT RETURN TO APPLICATION
0x09d060…09d1f4 (2, 122) Dummy {f00=0x0078, f01=0x0190, f02=» START TERMINAL PROCEDURE * P* N L P************************************************************************ X L PCCSTTT PROC L PCC000
0x09d1f4…09d388 Dummy {f00=0x0078, 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
0x09d388…09d51c Dummy {f00=0x0078, f01=0x0190, f02=» v L PCC900 6 L P RET L P PEND
0x09d51c…09d6b0 Dummy {f00=0x0078, f01=0x0190, f02=» * v L P* TERMINAL START, CHECK DATE * 6 L P* * L P**************************************************
0x09d6b0…09d844 Dummy {f00=0x0078, 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
0x09d844…09d9d8 Dummy {f00=0x0078, f01=0x2008, f02=» x L P END 8@ F ZZOUTP L PCC900
0x09d9d8…09db6c Dummy {f00=0x0078, 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
0x09db6c…09dd00 Dummy {f00=0x0078, 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
0x09dd00…09de94 (2, 123) Opaque[0x194]
0x09de94…09e028 # DirEnt {nam=»AADEMO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f10, f03=0x0000}
0x09de94…09e028 IdxSect {
0x09de94…09e028 f00 = 0x0078 // 0x9de94 @0x0
0x09de94…09e028 f01 = 0x0004 // 0x9de96 @0x2
0x09de94…09e028 gno = [ // 0x9de98 @0x4
0x09de94…09e028 [0x00]: C0x0078.0x2.0
0x09de94…09e028 [0x01]: C0x0078.0x3.0
0x09de94…09e028 ]
0x09de94…09e028 }
0x09e028…09e1bc Dummy {f00=0x0078, 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
0x09e1bc…09e350 Dummy {f00=0x0078, f01=0x018e, f02=»******************************************************** P* @ P* COMMON ENTRY POINT J P* f L P************************************************************************ p PAAMAIN PAA000 P EDWRT SPDSSCRN,FMTSTT P PERF XAKBIN,=
0x09e350…09e4e4 Dummy {f00=0x0078, 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',
0x09e4e4…09e678 Dummy {f00=0x0078, 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
0x09e678…09e80c Dummy {f00=0x0078, 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*
0x09e80c…09e9a0 Dummy {f00=0x0078, 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
0x09e9a0…09eb34 (2, 124) Dummy {f00=0x0078, 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
0x09eb34…09ecc8 Dummy {f00=0x0078, 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
0x09ecc8…09ee5c Dummy {f00=0x0078, 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 ( @ ( ' ' ' '
0x09ee5c…09eff0 Dummy {f00=0x0078, 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
0x09eff0…09f184 Dummy {f00=0x0078, 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
0x09f184…09f318 Dummy {f00=0x0078, f01=0x0190, f02=» Z v * & [ * & [ 6 * & = n [ d * & [ [ * & y " p [ * & + 1
0x09f318…09f4ac Dummy {f00=0x0078, f01=0x4104, f02=» [ x , ( @ F0 , ( % F , ( 5 " $ & ( * v , ( E , . 0 2 4 6 8 : U < > E X @ 1
0x09f4ac…09f640 Dummy {f00=0x0078, 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
0x09f640…09f7d4 (2, 125) Opaque[0x194]
0x09f7d4…09f968 # DirEnt {nam=»EINIT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f20, f03=0x0000}
0x09f7d4…09f968 IdxSect {
0x09f7d4…09f968 f00 = 0x0079 // 0x9f7d4 @0x0
0x09f7d4…09f968 f01 = 0x0008 // 0x9f7d6 @0x2
0x09f7d4…09f968 gno = [ // 0x9f7d8 @0x4
0x09f7d4…09f968 [0x00]: C0x0079.0x0.0
0x09f7d4…09f968 [0x01]: C0x0079.0x1.0
0x09f7d4…09f968 [0x02]: C0x0079.0x2.0
0x09f7d4…09f968 [0x03]: C0x0079.0x3.0
0x09f7d4…09f968 ]
0x09f7d4…09f968 }
0x09f968…09fafc Dummy {f00=0x0079, 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
0x09fafc…09fc90 Dummy {f00=0x0079, f01=0x0190, f02=»SE AN OPERATOR RECORD IN UWB UOP L P* * ( L P************************************************************************ x L PEAIOPR PROC
0x09fc90…09fe24 Dummy {f00=0x0079, f01=0x0190, f02=»,=C' ' L P MOVE OCNAME,=C' ' D L P MOVE ODSTATUS,=D'0' N P MOVE ODTRMNR,=X'FF'
0x09fe24…09ffb8 Dummy {f00=0x0079, f01=0x0190, f02=» V L PEA100 L P ADD WW2,=W'1' f L P MOVE ODCASH(KW1,WW2),=D'0' L P C
0x09ffb8…0a014c Dummy {f00=0x0079, f01=0x0190, f02=» j L P RET * L P PEND z L P**************************************************************
0x0a014c…0a02e0 Dummy {f00=0x0079, f01=0x0190, f02=»********************** ^ L PEBZACC PROC L PEB000 n L P MOVE WW1,=W'1'
0x0a02e0…0a0474 (2, 126) Dummy {f00=0x0079, f01=0x0190, f02=» l L PEB200 , L P ADD WW2,=W'1' NEXT COLUMN | L P MOVE ODCASH(WW1,WW2),=D'0'
0x0a0474…0a0608 Dummy {f00=0x0079, f01=0x0190, f02=» l L PEB999 , L P RET | L P PEND
0x0a0608…0a079c Dummy {f00=0x0079, 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' '
0x0a079c…0a0930 Dummy {f00=0x0079, 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
0x0a0930…0a0ac4 Dummy {f00=0x0079, f01=0x0190, f02=» H L P MOVE CDRELAT,=D'1' L P PEND X L P************************************************************************ L P*
0x0a0ac4…0a0c58 Dummy {f00=0x0079, f01=0x0190, f02=» * z L P************************************************************************ : L PEDIAC1 PROC L PED000
0x0a0c58…0a0dec Dummy {f00=0x0079, f01=0x0190, f02=» H L P MOVE ACADDRES,=C' ' L P MOVE ACTOWN,=C' ' X L P MOVE ACPASS,=C' ' L P MOVE ADSTATUS,
0x0a0dec…0a0f80 Dummy {f00=0x0079, 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
0x0a0f80…0a1114 (2, 127) Dummy {f00=0x0079, f01=0x0190, f02=» H L P MOVE ADWDRCUM,=D'0' L P MOVE ADLASSEQ,=D'0' X P RET L P PEND L P****
0x0a1114…0a12a8 Dummy {f00=0x0079, f01=0x0190, f02=» * T . P* INITIALISE AN ACCOUNT RECORD IN UWB UA2 L P* * F L P************************************************************************ L PEFIAC2 PROC
0x0a12a8…0a143c Dummy {f00=0x0079, f01=0x0190, f02=» b L P MOVE BCADDRES,=C' ' " L P MOVE BCTOWN,=C' ' r L P MOVE BCPASS,=C' '
0x0a143c…0a15d0 Dummy {f00=0x0079, f01=0x0190, f02=» b L P MOVE BDLIMBOK,=D'0' " L P MOVE BDLASTRS,=D'8' r L P MOVE BDSTMTRS,=D'8'
0x0a15d0…0a1764 Dummy {f00=0x0079, f01=0x0190, f02=» b L P MOVE BDWDRCUM,=D'0' " L P MOVE BDLASSEQ,=D'0' r P RET L P PEND
0x0a1764…0a18f8 Dummy {f00=0x0079, f01=0x0190, f02=» * n 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT1 . L P* * b L P************************************************************************ L PEEITR1
0x0a18f8…0a1a8c Dummy {f00=0x0079, 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'
0x0a1a8c…0a1c20 Dummy {f00=0x0079, f01=0x0190, f02=»RM,=D'0' L P MOVE TDCHQNR,=D'0' D L P MOVE TCTEXT,=C' ' P RET L P PEND
0x0a1c20…0a1db4 (2, 128) Dummy {f00=0x0079, f01=0x0190, f02=»* * 0 P* INITIALISE A TRANSACTION RECORD IN UWB UT2 P L P* * L P****************************************************
0x0a1db4…0a1f48 Dummy {f00=0x0079, 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
0x0a1f48…0a20dc Dummy {f00=0x0079, f01=0x0190, f02=» V L P MOVE UDACTFRM,=D'0' L P MOVE UDCHQNR,=D'0' f L P MOVE UCTEXT,=C' ' P R
0x0a20dc…0a2270 Dummy {f00=0x0079, f01=0x0190, f02=»************************** b L P* * " B P* INITIALISE THE ACCOUNT AND TRANSACTION RECORDS IN THE UWB'S r L P* * L P
0x0a2270…0a2404 Dummy {f00=0x0079, 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********************************************************************
0x0a2404…0a2598 Dummy {f00=0x0079, 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
0x0a2598…0a272c Dummy {f00=0x0079, 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
0x0a272c…0a28c0 Dummy {f00=0x0079, 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
0x0a28c0…0a2a54 (2, 129) Opaque[0x194]
0x0a2a54…0a2be8 # DirEnt {nam=»NJ1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0f40, f03=0x0000}
0x0a2a54…0a2be8 IdxSect {
0x0a2a54…0a2be8 f00 = 0x007a // 0xa2a54 @0x0
0x0a2a54…0a2be8 f01 = 0x0002 // 0xa2a56 @0x2
0x0a2a54…0a2be8 gno = [ // 0xa2a58 @0x4
0x0a2a54…0a2be8 [0x00]: C0x007a.0x0.0
0x0a2a54…0a2be8 ]
0x0a2a54…0a2be8 }
0x0a2be8…0a2d7c Dummy {f00=0x007a, 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
0x0a2d7c…0a2f10 Dummy {f00=0x007a, 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
0x0a2f10…0a30a4 Dummy {f00=0x007a, 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
0x0a30a4…0a3238 Dummy {f00=0x007a, 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
0x0a3238…0a33cc Dummy {f00=0x007a, 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*
0x0a33cc…0a3560 Dummy {f00=0x007a, 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**********************************************************************
0x0a3560…0a36f4 (2, 130) Opaque[0x194]
0x0a36f4…0a3888 # DirEnt {nam=»BESELF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f48, f03=0x0000}
0x0a36f4…0a3888 IdxSect {
0x0a36f4…0a3888 f00 = 0x007a // 0xa36f4 @0x0
0x0a36f4…0a3888 f01 = 0x000c // 0xa36f6 @0x2
0x0a36f4…0a3888 gno = [ // 0xa36f8 @0x4
0x0a36f4…0a3888 [0x00]: C0x007a.0x1.0
0x0a36f4…0a3888 [0x01]: C0x007a.0x2.0
0x0a36f4…0a3888 [0x02]: C0x007a.0x3.0
0x0a36f4…0a3888 [0x03]: C0x007b.0x0.0
0x0a36f4…0a3888 [0x04]: C0x007b.0x1.0
0x0a36f4…0a3888 [0x05]: C0x007b.0x2.0
0x0a36f4…0a3888 ]
0x0a36f4…0a3888 }
0x0a3888…0a3a1c Dummy {f00=0x007a, 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
0x0a3a1c…0a3bb0 Dummy {f00=0x007a, f01=0x0190, f02=» F P P EXPROC DOQCCY P P EXPROC DPECCY ^ P P EXPROC DCVDU P P E
0x0a3bb0…0a3d44 Dummy {f00=0x007a, f01=0x0190, f02=» Z P P EXPROC DFOACT P P EXPROC DGCACT r P P EXPROC DHBACT
0x0a3d44…0a3ed8 Dummy {f00=0x007a, f01=0x0190, f02=» n P P EXPROC DKDSTM 2 P P EXPROC DLDEP P P EXPROC DMWDR
0x0a3ed8…0a406c Dummy {f00=0x007a, 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
0x0a406c…0a4200 Dummy {f00=0x007a, f01=0x0190, f02=»EXCL. ACCES | L P* * L P* RESET ALL SWITCHES * d L P* * * P CLE
0x0a4200…0a4394 (2, 131) Dummy {f00=0x007a, 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
0x0a4394…0a4528 Dummy {f00=0x007a, f01=0x0190, f02=»* * L P* ACCEPT A FUNCTION KEY * P L P* * PBE004 & P PERF XDMS
0x0a4528…0a46bc Dummy {f00=0x007a, 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*
0x0a46bc…0a4850 Dummy {f00=0x007a, 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
0x0a4850…0a49e4 Dummy {f00=0x007a, 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
0x0a49e4…0a4b78 Dummy {f00=0x007a, f01=0x0190, f02=» BE006 ACCEPT NEXT FUNCTION KEY L PBE020 N L P SET SBCHEQUE L P B BE006 ACCEPT NEXT FUNCT
0x0a4b78…0a4d0c Dummy {f00=0x007a, f01=0x0190, f02=»ET SBNOBOOK L P B BE006 ACCEPT NEXT FUNCTION KEY N L PBE040 L P SET SBRVS REVERSAL
0x0a4d0c…0a4ea0 Dummy {f00=0x007a, f01=0x0190, f02=»050 L P SET SBCARD L P B BE006 ACCEPT NEXT FUNCTION KEY L P* * L P* NON PREFIX
0x0a4ea0…0a5034 (2, 132) Dummy {f00=0x007a, 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
0x0a5034…0a51c8 Dummy {f00=0x007a, f01=0x018e, f02=» COMBINATIONS | P* L P************************************************************************ PBE110 p P PERF CDCHKY ~ & P TBT SBCANCEL,BE990 ERROR DETECTED L P************************************************************************
0x0a51c8…0a535c Dummy {f00=0x007a, f01=0x0190, f02=» L P* * L P************************************************************************ X P PERF CFCHKH P TBT SBCANCEL,BE990 L P************************************************
0x0a535c…0a54f0 Dummy {f00=0x007a, f01=0x0190, f02=» * x L P* * 8 L P************************************************************************ L PBE500
0x0a54f0…0a5684 Dummy {f00=0x007a, f01=0x0190, f02=» 'LIST' x L P CBE NWKTBIX,=W'3',BE600 'OPEN' 8 L P CBE SWCCY,=W'0',BE550 L P*
0x0a5684…0a5818 Dummy {f00=0x007a, f01=0x0190, f02=» * x L P TBT SBFLDEMP,BE520 8 L P* * L P* CURRENCY IS ON AND THE FIELD IS NOT EMPTY
0x0a5818…0a59ac Dummy {f00=0x007a, 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
0x0a59ac…0a5b40 Dummy {f00=0x007a, f01=0x0190, f02=»LD IS EMPTY * x L P* READ CURRENCY RECORD * 8 L P* * L PBE520
0x0a5b40…0a5cd4 (2, 133) Dummy {f00=0x007b, 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
0x0a5cd4…0a5e68 Dummy {f00=0x007b, f01=0x0190, f02=» * l L P* GET OPERATOR INPUT * , L P* * | L PBE550
0x0a5e68…0a5ffc Dummy {f00=0x007b, 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*
0x0a5ffc…0a6190 Dummy {f00=0x007b, 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*
0x0a6190…0a6324 Dummy {f00=0x007b, f01=0x0190, f02=» * V L P************************************************************************ L P* * f L P* SELECT FUNCTION * L P*
0x0a6324…0a64b8 Dummy {f00=0x007b, f01=0x0190, f02=»************** V L PBE600 L P TBF SBOPRCLS,BE610 f P PERF DQCOPR OPERATOR CLOSE L P B BE900
0x0a64b8…0a664c Dummy {f00=0x007b, f01=0x0190, f02=» * z L P* * : L PBE610 L P CBE SWCCY,=W'0',BE700
0x0a664c…0a67e0 Dummy {f00=0x007b, f01=0x0190, f02=» * z L P* * : L P CBNE NWKTBIX,=W'6',BE620 NOT 'UPDATE' P PERF DAUCCY CURRENCY UPDATE L P B BE900
0x0a67e0…0a6974 (2, 134) Dummy {f00=0x007b, f01=0x0190, f02=» N L P CBNE NWKTBIX,=W'7',BE630 NOT 'INQUIRY' " P PERF DOQCCY CURRENCY INQUIRY ^ L P B BE900 L PBE630
0x0a6974…0a6b08 Dummy {f00=0x007b, f01=0x0190, f02=» J PBE640 " P PERF DPECCY CURRENCY EXCHANGE L P B BE900 > L P* * L P* BRANCH TO SEVERAL FUNCTIONS
0x0a6b08…0a6c9c Dummy {f00=0x007b, 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
0x0a6c9c…0a6e30 Dummy {f00=0x007b, f01=0x0190, f02=» v L PBE712 ! 6 L P PERF DDTP71 DEMONSTRATE TP71 ! L P B BE900
0x0a6e30…0a6fc4 Dummy {f00=0x007b, f01=0x0190, f02=» ! v L P B BE900 " 6 L PBE730 " L P PERF DFOACT OPEN ACCOUNT
0x0a6fc4…0a7158 Dummy {f00=0x007b, f01=0x0190, f02=» " v L P PERF DGCACT CLOSE ACCOUNT # 6 L P B BE900 # L PBE750
0x0a7158…0a72ec Dummy {f00=0x007b, f01=0x0190, f02=» # v L PBE760 $ 6 L P PERF DJUACT UPDATE ACCOUNT $ L P B BE900
0x0a72ec…0a7480 Dummy {f00=0x007b, f01=0x0190, f02=»NT $ v L P B BE900 % 6 L PBE780 % L P PERF DKDSTM DAILY STATEMENT
0x0a7480…0a7614 (2, 135) Dummy {f00=0x007b, f01=0x0190, f02=» % v L P PERF DLDEP DEPOSIT & 6 L P B BE900 & L PBE800
0x0a7614…0a77a8 Dummy {f00=0x007b, f01=0x0190, f02=» & v L PBE810 ' 6 L P PERF DNTRF TRANSFER ' L P*
0x0a77a8…0a793c Dummy {f00=0x007b, 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
0x0a793c…0a7ad0 Dummy {f00=0x007b, f01=0x0190, f02=»E ODSTATUS,=D'2',BE999 OPERATOR CLOSE HAS SUCCEEDED ( L P* * ) L P* RE-EXECUTE FUNCTION CHOISE ) L P* *
0x0a7ad0…0a7c64 Dummy {f00=0x007b, f01=0x0190, f02=» ) ` L P* * * L P* RETURN TO CALLING MODULE * * p L P* *
0x0a7c64…0a7df8 Dummy {f00=0x007b, f01=0x40d8, f02=» * ` L P PEND + P* + p P* + z L P END + @ + *
0x0a7df8…0a7f8c Dummy {f00=0x007b, f01=0x2008, f02=» , x L P SET SBCHEQUE 8 L P B BE050 ACCEPT NEXT FUNCTION KEY L PBE030
0x0a7f8c…0a8120 Dummy {f00=0x007b, 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 (
0x0a8120…0a82b4 (2, 136) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»CEGACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0f78, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x007b // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x000c // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x007b.0x3.0
0x0a82b4…0a8448 [0x01]: C0x007c.0x0.0
0x0a82b4…0a8448 [0x02]: C0x007c.0x1.0
0x0a82b4…0a8448 [0x03]: C0x007c.0x2.0
0x0a82b4…0a8448 [0x04]: C0x007c.0x3.0
0x0a82b4…0a8448 [0x05]: C0x007d.0x0.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc Dummy {f00=0x007b, f01=0x0190, f02=» 8 P IDENT CEGACT GET ACCOUNT L P DDUM DEMODD @ L P PDIV P EXPROC DKDSTM P EXPROC PBBOOK
0x0a85dc…0a8770 Dummy {f00=0x007b, f01=0x0190, f02=»ROC XEERR P EXPROC XGBCR P P EXPROC ZCRDD ( P EXPROC ZGREA | L P ENTRY CEGACT L P**************************************
0x0a8770…0a8904 Dummy {f00=0x007b, f01=0x0190, f02=» L P* * L P************************************************************************ X L PCEGACT PROC L PCE000
0x0a8904…0a8a98 Dummy {f00=0x007b, f01=0x0190, f02=»NSFER' AND 'CARD' z & P B CE999 'TRANSFER' AND NOT 'CARD' L P* * D L P* GET ADDITIONAL INPUT * L P*
0x0a8a98…0a8c2c Dummy {f00=0x007b, f01=0x0190, f02=»CE120 L P* * D L P* BADGE CARD READER INPUT * L P*
0x0a8c2c…0a8dc0 Dummy {f00=0x007b, 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
0x0a8dc0…0a8f54 (2, 137) Dummy {f00=0x007c, f01=0x0190, f02=»CE120 L P TBF SBCHEQUE,CE130 P L P* * L P* OPTICAL DOCUMENT READE
0x0a8f54…0a90e8 Dummy {f00=0x007c, f01=0x0190, f02=» B CE970 READ ACCOUNT RECORD P* P L P* KEYBOARD INPUT * Z L P* * L PCE130
0x0a90e8…0a927c Dummy {f00=0x007c, f01=0x0190, f02=» J P TBF SBCANCEL,CE140 P B CE999 CANCEL & L P********************************************************************** * > L P* * L P* PERFORM CHECKS ON NUMBER ENTERED
0x0a927c…0a9410 Dummy {f00=0x007c, 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'
0x0a9410…0a95a4 Dummy {f00=0x007c, 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
0x0a95a4…0a9738 Dummy {f00=0x007c, 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
0x0a9738…0a98cc Dummy {f00=0x007c, 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
0x0a98cc…0a9a60 Dummy {f00=0x007c, f01=0x0190, f02=»99 RETURN L P* * L P* RECORD NUMBER IS IN THE RIGHT RANGE * b L P* * L PCE200
0x0a9a60…0a9bf4 (2, 138) Dummy {f00=0x007c, 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
0x0a9bf4…0a9d88 Dummy {f00=0x007c, f01=0x0190, f02=»CEL,CE999 L P TBF SBRECAVB,CE990 RECORD NOT AVAILABLE F L P********************************************************************** * L P*
0x0a9d88…0a9f1c Dummy {f00=0x007c, f01=0x0190, f02=»CHECKS ON THE RECORD READ L P* * " L P********************************************************************** * r L PCE300
0x0a9f1c…0aa0b0 Dummy {f00=0x007c, 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
0x0aa0b0…0aa244 Dummy {f00=0x007c, 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*
0x0aa244…0aa3d8 Dummy {f00=0x007c, 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* *
0x0aa3d8…0aa56c Dummy {f00=0x007c, f01=0x0190, f02=» p L P* * 0 L P* SAVINGS ACCOUNT, PRINT PASSBOOK * < P* PRINT ALL UNSTATEMENTED TRANSACTIONS AND A CLOSE LINE
0x0aa56c…0aa700 Dummy {f00=0x007c, f01=0x0190, f02=» B CE370 L P* * L P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS * ` L P* * L PCE360
0x0aa700…0aa894 (2, 139) Dummy {f00=0x007c, f01=0x0190, f02=» CE990 L PCE400 N L P CBE ADSTATUS,=D'0',CE500 DEBLOCKED L P*
0x0aa894…0aaa28 Dummy {f00=0x007c, 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
0x0aaa28…0aabbc Dummy {f00=0x007c, f01=0x018e, f02=» l L P B CE980 ERROR, ACCOUNT BLOCKED , L P********************************************************************** * | P* P* ADDITONAL CHECKS L P*
0x0aabbc…0aad50 Dummy {f00=0x007c, 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
0x0aad50…0aaee4 Dummy {f00=0x007c, 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
0x0aaee4…0ab078 Dummy {f00=0x007c, 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
0x0ab078…0ab20c Dummy {f00=0x007c, 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
0x0ab20c…0ab3a0 Dummy {f00=0x007c, 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********
0x0ab3a0…0ab534 (2, 140) Dummy {f00=0x007c, 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:
0x0ab534…0ab6c8 Dummy {f00=0x007c, f01=0x0190, f02=»F XEERR,=W'1',KW2 P B CE998 L P************************************************************************ * P* z . P* DISPLAY ERROR: NO TRANSACTIONS POSSIBLE P* L P************************************************************************
0x0ab6c8…0ab85c Dummy {f00=0x007c, 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****************************************************
0x0ab85c…0ab9f0 Dummy {f00=0x007c, 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************************
0x0ab9f0…0abb84 Dummy {f00=0x007c, 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
0x0abb84…0abd18 Dummy {f00=0x007c, f01=0x0190, f02=» * " Z L P* DISPLAY ERROR: ACCOUNT BLOCKED * # L P* * # j L P************************************************************************ # L
0x0abd18…0abeac Dummy {f00=0x007c, f01=0x018e, f02=»**************************************************************** # L P* * $ H L P* DISPLAY ERROR: RECORD KEY INVALID * $ L P*
0x0abeac…0ac040 Dummy {f00=0x007c, 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
0x0ac040…0ac1d4 (2, 141) Dummy {f00=0x007d, f01=0x4138, f02=» % L P PEND & D L P************************************************************************ & L P END
0x0ac1d4…0ac368 Dummy {f00=0x007d, f01=0x2008, f02=» ' x@ 8 8 L P PEND L P*
0x0ac368…0ac4fc Dummy {f00=0x007d, 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
0x0ac4fc…0ac690 Dummy {f00=0x007d, f01=0x0190, f02=» * ( ~ P* RE-EXECUTE FUNCTION CHOISE ) > L P* * ) b L PBE990 ) L P B BE0
0x0ac690…0ac824 Dummy {f00=0x007d, f01=0x0190, f02=» * ) R L P* RETURN TO CALLING MODULE * * L P* * * b L PBE999 * L P RET
0x0ac824…0ac9b8 Dummy {f00=0x007d, f01=0x407a, f02=» * R P* + P* + L P END + &@ + v * * b L PBE999 * L P RET
0x0ac9b8…0acb4c Dummy {f00=0x007d, f01=0x2008, f02=» , x L P SET SBCHEQUE 8 L P B BE050 ACCEPT NEXT FUNCTION KEY L PBE030
0x0acb4c…0acce0 Dummy {f00=0x007d, f01=0x0190, f02=» ` L P MOVE TDTRSCDE,=D'7' L P* * p L P* PRINT LINE TYPE 2 *
0x0acce0…0ace74 (2, 142) Opaque[0x194]
0x0ace74…0ad008 # DirEnt {nam=»CDCHKY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fa8, f03=0x0000}
0x0ace74…0ad008 IdxSect {
0x0ace74…0ad008 f00 = 0x007d // 0xace74 @0x0
0x0ace74…0ad008 f01 = 0x0008 // 0xace76 @0x2
0x0ace74…0ad008 gno = [ // 0xace78 @0x4
0x0ace74…0ad008 [0x00]: C0x007d.0x1.0
0x0ace74…0ad008 [0x01]: C0x007d.0x2.0
0x0ace74…0ad008 [0x02]: C0x007d.0x3.0
0x0ace74…0ad008 [0x03]: C0x007e.0x0.0
0x0ace74…0ad008 ]
0x0ace74…0ad008 }
0x0ad008…0ad19c Dummy {f00=0x007d, 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
0x0ad19c…0ad330 Dummy {f00=0x007d, f01=0x0190, f02=»CHKY PROC PCD000 L P************************************************************************ L P* * p L P* CHECKS ON CURRENCY *
0x0ad330…0ad4c4 Dummy {f00=0x007d, f01=0x0190, f02=»************************ ` L PCD110 L P CBNE KDCHECKS(NWKTBIX,KW1),=D'1',CD112 p L P CBNE SWCCY,=W'0',CD990 ERROR
0x0ad4c4…0ad658 Dummy {f00=0x007d, f01=0x0190, f02=» * ` L P* SPECIFIC CURRENCY CHECKS * L P* * p L PCD112
0x0ad658…0ad7ec Dummy {f00=0x007d, f01=0x0190, f02=» T L P* * L P* CURRENCY IS ON * d L P* * L P TBT
0x0ad7ec…0ad980 Dummy {f00=0x007d, f01=0x0190, f02=» T L P TBT SBCARD,CD990 L P TBT SBRVS,CD990 ERRORS d L P B CD120 NEXT CHECK L P*
0x0ad980…0adb14 (2, 143) Dummy {f00=0x007d, f01=0x0190, f02=» * T L P* * L PCD115 d L P TBF SBFLDEMP,CD990 FIELD NOT EMPTY L P****
0x0adb14…0adca8 Dummy {f00=0x007d, f01=0x0190, f02=» * T L P* CHECKS ON CHEQUE * L P* * d L P************************************************************************ L PCD12
0x0adca8…0ade3c Dummy {f00=0x007d, f01=0x0190, f02=» T L P TBT SBCHEQUE,CD990 ERROR L P B CD130 NEXT CHECK d L P* * L P* SP
0x0ade3c…0adfd0 Dummy {f00=0x007d, 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*
0x0adfd0…0ae164 Dummy {f00=0x007d, 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
0x0ae164…0ae2f8 Dummy {f00=0x007d, f01=0x0190, f02=»******** P L P* * L P* CHECKS ON NOBOOK * ` L P* * L P********
0x0ae2f8…0ae48c Dummy {f00=0x007d, f01=0x0190, f02=» ^ L P TBT SBNOBOOK,CD990 ERROR L P B CD140 NEXT CHECK n L P* *
0x0ae48c…0ae620 Dummy {f00=0x007d, f01=0x0190, f02=» * ^ L PCD132 L P CBNE KDCHECKS(NWKTBIX,KW3),=D'2',CD140 n L P TBF SBNOBOOK,CD140 OK, NEXT CHECK
0x0ae620…0ae7b4 (2, 144) Dummy {f00=0x007d, f01=0x0190, f02=»******************************************************************** L P* * L L P* CHECKS ON REVERSAL * L P*
0x0ae7b4…0ae948 Dummy {f00=0x007d, 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
0x0ae948…0aeadc Dummy {f00=0x007d, f01=0x0190, f02=»******************************************************************** L P* * L L P* CHECKS ON CARD * L P*
0x0aeadc…0aec70 Dummy {f00=0x007d, 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
0x0aec70…0aee04 Dummy {f00=0x007d, f01=0x0190, f02=»ECIFIC CARD CHECKS * L P* * L L PCD152 L P CBNE KDCHECKS(NWKTBIX,KW5),
0x0aee04…0aef98 Dummy {f00=0x007d, 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
0x0aef98…0af12c Dummy {f00=0x007d, f01=0x0190, f02=» * L P* CHECKS ON THE INPUT-FIELD * L L P* * L P****************************
0x0af12c…0af2c0 Dummy {f00=0x007d, 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
0x0af2c0…0af454 (2, 145) Dummy {f00=0x007e, 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
0x0af454…0af5e8 Dummy {f00=0x007e, 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
0x0af5e8…0af77c Dummy {f00=0x007e, 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 ( @ ( ' ' ' '
0x0af77c…0af910 Dummy {f00=0x007e, 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
0x0af910…0afaa4 Dummy {f00=0x007e, f01=0x0190, f02=» * & * & 2 * & = n ` * & [ * & y " * & p +
0x0afaa4…0afc38 Dummy {f00=0x007e, f01=0x4114, f02=» P t * & R F0 * & + T @ , ( = n , ( M " $ & ( * , . , ( ] 0 2 4 6 8 : < > m l
0x0afc38…0afdcc Dummy {f00=0x007e, 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
0x0afdcc…0aff60 Dummy {f00=0x007e, 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
0x0aff60…0b00f4 (2, 146) Opaque[0x194]
0x0b00f4…0b0288 # DirEnt {nam=»CFCHKH«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fc8, f03=0x0000}
0x0b00f4…0b0288 IdxSect {
0x0b00f4…0b0288 f00 = 0x007e // 0xb00f4 @0x0
0x0b00f4…0b0288 f01 = 0x0006 // 0xb00f6 @0x2
0x0b00f4…0b0288 gno = [ // 0xb00f8 @0x4
0x0b00f4…0b0288 [0x00]: C0x007e.0x1.0
0x0b00f4…0b0288 [0x01]: C0x007e.0x2.0
0x0b00f4…0b0288 [0x02]: C0x007e.0x3.0
0x0b00f4…0b0288 ]
0x0b00f4…0b0288 }
0x0b0288…0b041c Dummy {f00=0x007e, f01=0x0190, f02=» D P IDENT CFCHKH CHECK AVAILABLE HARDWARE DDUM DEMODD L PDIV ` P EXPROC XEERR n ENTRY CFCHKH L P************************************************************************ L P*
0x0b041c…0b05b0 Dummy {f00=0x007e, f01=0x0190, f02=» * x L P************************************************************************ 8 CFCHKH PROC CF000 L P************************************************************************ L P*
0x0b05b0…0b0744 Dummy {f00=0x007e, f01=0x0190, f02=» * J L P* * L P************************************************************************ Z L P* * L P* FOR EOI, DEM
0x0b0744…0b08d8 Dummy {f00=0x007e, f01=0x0190, f02=» * J L PCF300 L P CBNE NWKTBIX,=W'1',CF320 NOT 'EOI' Z L PCF310 L P CBE FCFIELD,
0x0b08d8…0b0a6c Dummy {f00=0x007e, 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
0x0b0a6c…0b0c00 Dummy {f00=0x007e, f01=0x0190, f02=»9',CF990 NO VDU AVAILABLE ~ L P************************************************************************ > L P* * L P* FOR LIST, A VIDEO SCREEN MUST BE AVAILAB
0x0b0c00…0b0d94 (2, 147) Dummy {f00=0x007e, f01=0x0190, f02=» ~ L P CBNE NWKTBIX,=W'2',CF330 NOT 'LIST' > L P CBL RDSCRLNS,=D'19',CF990 NO VDU AVAILABLE L P******************************************
0x0b0d94…0b0f28 Dummy {f00=0x007e, f01=0x0190, f02=»HANUMERIC KEYBOARD MUST BE AVAILABLE * ~ L P* * > L PCF330 L P CBNE NWKTBIX,=W'3',CF350 NOT 'OPEN'
0x0b0f28…0b10bc Dummy {f00=0x007e, 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
0x0b10bc…0b1250 Dummy {f00=0x007e, 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*
0x0b1250…0b13e4 Dummy {f00=0x007e, f01=0x0190, f02=» * R L P* A TELLER PRINTER MUST BE AVAILABLE * L P* OR KEY 2 MUST BE ON * b L P* * PCF380
0x0b13e4…0b1578 Dummy {f00=0x007e, 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*
0x0b1578…0b170c Dummy {f00=0x007e, f01=0x0190, f02=» * T L P* * L P************************************************************************ d L P* FOR BLOCK * L PCF41
0x0b170c…0b18a0 Dummy {f00=0x007e, f01=0x0190, f02=» T L P TBF SBKEY2,CF980 KEY 2 MUST BE ON L P* * d L P* FOR UPDATE * L P*
0x0b18a0…0b1a34 (2, 148) Dummy {f00=0x007e, 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*
0x0b1a34…0b1bc8 Dummy {f00=0x007e, f01=0x0190, f02=» * T L P* * L PCF430 d L P CBNE NWKTBIX,=W'9',CF999 NOT 'IN' L P CBN
0x0b1bc8…0b1d5c Dummy {f00=0x007e, 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*
0x0b1d5c…0b1ef0 Dummy {f00=0x007e, f01=0x0190, f02=»0 KEY 2 MUST BE ON P B CF999 @ L P************************************************************************ P P* * P* DISPLAY ERROR: UNSERVICABLE REQUEST P* L P**************************************
0x0b1ef0…0b2084 Dummy {f00=0x007e, 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******
0x0b2084…0b2218 Dummy {f00=0x007e, f01=0x4116, f02=» * L P************************************************************************ CF990 b PERF XEERR,=W'33',KW1 p CF999 RET PEND L P************************************************************************ P E
0x0b2218…0b23ac Dummy {f00=0x007e, 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
0x0b23ac…0b2540 Dummy {f00=0x007e, f01=0x0190, f02=» * L P* CHEQUE ACCOUNT, PRINT DAILY STATEMENTS * H L P* * L PCE360
0x0b2540…0b26d4 (2, 149) Opaque[0x194]
0x0b26d4…0b2868 # DirEnt {nam=»PBBOOK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0fe0, f03=0x0000}
0x0b26d4…0b2868 IdxSect {
0x0b26d4…0b2868 f00 = 0x007f // 0xb26d4 @0x0
0x0b26d4…0b2868 f01 = 0x0008 // 0xb26d6 @0x2
0x0b26d4…0b2868 gno = [ // 0xb26d8 @0x4
0x0b26d4…0b2868 [0x00]: C0x007f.0x0.0
0x0b26d4…0b2868 [0x01]: C0x007f.0x1.0
0x0b26d4…0b2868 [0x02]: C0x007f.0x2.0
0x0b26d4…0b2868 [0x03]: C0x007f.0x3.0
0x0b26d4…0b2868 ]
0x0b26d4…0b2868 }
0x0b2868…0b29fc Dummy {f00=0x007f, 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
0x0b29fc…0b2b90 Dummy {f00=0x007f, f01=0x0190, f02=»******************************** h L P* * ( L P* PROCEDURE: PBBOOK * x L P* FUNCTIONAL DESCRIPTION:
0x0b2b90…0b2d24 Dummy {f00=0x007f, 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'
0x0b2d24…0b2eb8 Dummy {f00=0x007f, 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,
0x0b2eb8…0b304c Dummy {f00=0x007f, 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.
0x0b304c…0b31e0 Dummy {f00=0x007f, 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:
0x0b31e0…0b3374 (2, 150) Dummy {f00=0x007f, f01=0x0190, f02=» * h L P************************************************************************ ( PPBBOOK PROC PRINT PASSBOOK x L PPB000 ( P PERF PVATTP,DSVCHPRT ATTACH
0x0b3374…0b3508 Dummy {f00=0x007f, 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
0x0b3508…0b369c Dummy {f00=0x007f, 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
0x0b369c…0b3830 Dummy {f00=0x007f, 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*
0x0b3830…0b39c4 Dummy {f00=0x007f, f01=0x0190, f02=» * T P PERF QENTRS,NDPRTTRS D L P MOVE UDTRSRNR,ADACTRNR , P ADD UDTRSRNR,NDPRTTRS TRANS
0x0b39c4…0b3b58 Dummy {f00=0x007f, f01=0x0190, f02=»E IT IN UWB UT2 * l L P* * , L P PERF ZCRDD,UDTRSRNR,WDEC1,KW1 | T P TBT SBCANCEL,PB980
0x0b3b58…0b3cec Dummy {f00=0x007f, 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*
0x0b3cec…0b3e80 Dummy {f00=0x007f, 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
0x0b3e80…0b4014 (2, 151) Dummy {f00=0x007f, 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
0x0b4014…0b41a8 Dummy {f00=0x007f, 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*
0x0b41a8…0b433c Dummy {f00=0x007f, 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
0x0b433c…0b44d0 Dummy {f00=0x007f, 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
0x0b44d0…0b4664 Dummy {f00=0x007f, f01=0x0190, f02=»********************** ^ L P* * L P* PRINT , PASSBOOK LINE * n L P* *
0x0b4664…0b47f8 Dummy {f00=0x007f, f01=0x0190, f02=» ^ P FTEXT ' ' L P FMEL 'ZZZZZZ',UDDATE 2 L P FILLR ' ',3 H P FMEL '999999',UDTRSSEQ
0x0b47f8…0b498c Dummy {f00=0x007f, 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
0x0b498c…0b4b20 Dummy {f00=0x007f, f01=0x0190, f02=»ROC PPY400 L P* * L P* VALUE OF ADLNENR: * j L P* 0: NEW ACCOUNT, NO LINES PRINTED YET * L
0x0b4b20…0b4cb4 (2, 152) Dummy {f00=0x007f, f01=0x0190, f02=» * Z L P* CALCULATE THE FIRST FREE LINE IN THE BOOK * L P* * j L P ADD NDNEWLNE,=D'1' L
0x0b4cb4…0b4e48 Dummy {f00=0x007f, f01=0x018e, f02=» Z PPY300 L P* * ( L P* CHECK PASSBOOK ON NEW PAGE * x L P*
0x0b4e48…0b4fdc Dummy {f00=0x007f, 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*
0x0b4fdc…0b5170 Dummy {f00=0x007f, 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
0x0b5170…0b5304 Dummy {f00=0x007f, 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
0x0b5304…0b5498 Dummy {f00=0x007f, 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
0x0b5498…0b562c Dummy {f00=0x007f, 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
0x0b562c…0b57c0 Dummy {f00=0x007f, 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
0x0b57c0…0b5954 (2, 153) Opaque[0x194]
0x0b5954…0b5ae8 # DirEnt {nam=»PRINT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1000, f03=0x0000}
0x0b5954…0b5ae8 IdxSect {
0x0b5954…0b5ae8 f00 = 0x0080 // 0xb5954 @0x0
0x0b5954…0b5ae8 f01 = 0x0012 // 0xb5956 @0x2
0x0b5954…0b5ae8 gno = [ // 0xb5958 @0x4
0x0b5954…0b5ae8 [0x00]: C0x0080.0x0.0
0x0b5954…0b5ae8 [0x01]: C0x0080.0x1.0
0x0b5954…0b5ae8 [0x02]: C0x0080.0x2.0
0x0b5954…0b5ae8 [0x03]: C0x0080.0x3.0
0x0b5954…0b5ae8 [0x04]: C0x0081.0x0.0
0x0b5954…0b5ae8 [0x05]: C0x0081.0x1.0
0x0b5954…0b5ae8 [0x06]: C0x0081.0x2.0
0x0b5954…0b5ae8 [0x07]: C0x0081.0x3.0
0x0b5954…0b5ae8 [0x08]: C0x0082.0x0.0
0x0b5954…0b5ae8 ]
0x0b5954…0b5ae8 }
0x0b5ae8…0b5c7c Dummy {f00=0x0080, f01=0x0190, f02=» D P IDENT PRINT PRINT JOURNAL - VOUCHER L P DDUM DEMODD L L P PDIV P EXPROC DEFDOC P EXPRO
0x0b5c7c…0b5e10 Dummy {f00=0x0080, 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*
0x0b5e10…0b5fa4 Dummy {f00=0x0080, f01=0x0190, f02=» * L L P* * L P************************************************************************ PPAJRN PROC PWLNETYP P PLIT PWLNETYP L PPA000
0x0b5fa4…0b6138 Dummy {f00=0x0080, 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*
0x0b6138…0b62cc Dummy {f00=0x0080, f01=0x0190, f02=» * L PPA100 L P MOVE SPBINW4,=W'43' . P PERF ZMRDF,SPBINW4,KW1 READ INTO FCBUFFER P EDWRT SPDSPRT,FCBUFFER L
0x0b62cc…0b6460 Dummy {f00=0x0080, f01=0x0190, f02=» * Z L P* PRINT LINE TYPE 2: ACCOUNT NUMBER 1 * L P* * j L PPA200 L
0x0b6460…0b65f4 (2, 154) Dummy {f00=0x0080, f01=0x0190, f02=» Z L P* * L P* PRINT LINE TYPE 3: END OF FUNCTION * j L P* * L
0x0b65f4…0b6788 Dummy {f00=0x0080, 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
0x0b6788…0b691c Dummy {f00=0x0080, f01=0x0190, f02=» t L P* * 4 L P* PRINT LINE TYPE 4: AMOUNT * L P*
0x0b691c…0b6ab0 Dummy {f00=0x0080, f01=0x0190, f02=» t L P B PA990 < L P* * L P* PRINT LINE TYPE 5: ALPHA VARIABLE
0x0b6ab0…0b6c44 Dummy {f00=0x0080, f01=0x0190, f02=» | P EDWRT SPDSPRT,PRT005 < L P B PA990 Z L P* * L P* PRINT LINE T
0x0b6c44…0b6dd8 Dummy {f00=0x0080, f01=0x0190, f02=» * J L PPA600 " P EDWRT SPDSPRT,PRT006 Z L P B PA990 L P*
0x0b6dd8…0b6f6c Dummy {f00=0x0080, f01=0x0190, f02=» * p L PPA700 0 L P EDWRT SPDSPRT,PRT007 L P B PA990
0x0b6f6c…0b7100 Dummy {f00=0x0080, f01=0x0190, f02=»BER 2 * p L P* * 0 L PPA800 T P EDWRT SPDSPRT,PRT008
0x0b7100…0b7294 (2, 155) Dummy {f00=0x0080, 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
0x0b7294…0b7428 Dummy {f00=0x0080, f01=0x0190, f02=»**************************************************** | L P* * < L P* PRINT VOUCHER * L P*
0x0b7428…0b75bc Dummy {f00=0x0080, 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
0x0b75bc…0b7750 Dummy {f00=0x0080, 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
0x0b7750…0b78e4 Dummy {f00=0x0080, 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*
0x0b78e4…0b7a78 Dummy {f00=0x0080, f01=0x0190, f02=» * L P* POSITION VOUCHER AT START LINE * L L P* * $ P MOVE NDNEWLNE,=D'36' FIRST
0x0b7a78…0b7c0c Dummy {f00=0x0080, 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
0x0b7c0c…0b7da0 Dummy {f00=0x0080, 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
0x0b7da0…0b7f34 (2, 156) Dummy {f00=0x0080, f01=0x0190, f02=»FOR DEPOSIT | L P* * L P CLEAR SBFIL20 d L P SET SBFIL24 L PPC23
0x0b7f34…0b80c8 Dummy {f00=0x0080, 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
0x0b80c8…0b825c Dummy {f00=0x0080, f01=0x018e, f02=» N * P PERF PZPOSD,NDNEWLNE POSITION VOUCHER L P EDWRT DSVCHPRT,PRT005 TOWN < L P* * L P* POSITION FOR TRANSACTION DATA
0x0b825c…0b83f0 Dummy {f00=0x0080, 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
0x0b83f0…0b8584 Dummy {f00=0x0080, 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*
0x0b8584…0b8718 Dummy {f00=0x0080, f01=0x0190, f02=» R P MOVE NDNEWLNE,=D'44' L P GETTIME VCTIME Z L P MOVE NDTIME,VCTIME L P DIV NDTIME,=D
0x0b8718…0b88ac Dummy {f00=0x0080, 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
0x0b88ac…0b8a40 Dummy {f00=0x0080, f01=0x0190, f02=» L P DSC0 DSVCHPRT,1 RELEASE VOUCHER D L PPC999 ( P PERF PWDETP,DSVCHPRT DETACH PRINTER
0x0b8a40…0b8bd4 (2, 157) Dummy {f00=0x0081, f01=0x018e, f02=» ^ L P PEND L P************************************************************************ n P* , P* RESERVE A PRINTER FOR THE CURRENT TASK P* L P******
0x0b8bd4…0b8d68 Dummy {f00=0x0081, 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
0x0b8d68…0b8efc Dummy {f00=0x0081, 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
0x0b8efc…0b9090 Dummy {f00=0x0081, f01=0x018e, f02=» P PDSET DATASET ! PPX000 ! P EDWRT DATASET,PRT111 ! ( PPX999 ! F P RET ! T P PEND ! ` L P************************************************************************ ! n L PPRT111 FRMT !
0x0b9090…0b9224 Dummy {f00=0x0081, 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*
0x0b9224…0b93b8 Dummy {f00=0x0081, 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
0x0b93b8…0b954c Dummy {f00=0x0081, 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
0x0b954c…0b96e0 Dummy {f00=0x0081, f01=0x0190, f02=»ENT $ P* % PPZ500 % N P DSC1 DSVCHPRT,6,WDEC1 % $ L PPZ999 % v L P RET
0x0b96e0…0b9874 (2, 158) Dummy {f00=0x0081, f01=0x0190, f02=»****************************** % f P* & & D P* PRINT, LINE TYPE 2 * & 0 L P* * & x L P****************************************************************
0x0b9874…0b9a08 Dummy {f00=0x0081, f01=0x0190, f02=» & h T P FBT SBVCH,P02010 ' . T P FTAB 3 ' L P FMEL 'Z',RDSHRPRT
0x0b9a08…0b9b9c Dummy {f00=0x0081, f01=0x018e, f02=» ' L P FMEL '999999',IDACTNR1 ( N L P FBF SBRVS,P02100 ( T P FTAB 12
0x0b9b9c…0b9d30 Dummy {f00=0x0081, f01=0x0190, f02=» ( F L PP02100 ) T P FTAB 16 ) X L P FMEL '999',TDTRSCDE ) P FILLR '
0x0b9d30…0b9ec4 Dummy {f00=0x0081, f01=0x0190, f02=» PP02700 * P FILLR ' ',20 * PP02999 * ( L P FMEND * 6 L P************************************************************************ * P* * " P* PRINT, LINE TYPE 4: AMOUNT * P*
0x0b9ec4…0ba058 Dummy {f00=0x0081, f01=0x0190, f02=» * ` L P FTEXT ' ' + T P FBT SBVCH,P04010 + p T P FTAB 3
0x0ba058…0ba1ec Dummy {f00=0x0081, f01=0x0190, f02=» + p T P FTAB 5 , 8 P FCOPY ICTEXT3 , T P FTAB 9 , L P FMEL 'ZZV
0x0ba1ec…0ba380 Dummy {f00=0x0081, f01=0x0190, f02=» , b L P************************************************************************ - " P* - r P* PRINT, LINE TYPE 5 : TEXT - | P* - L P************************************************************************ - PPRT005 FRMT -
0x0ba380…0ba514 (2, 159) Dummy {f00=0x0081, 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
0x0ba514…0ba6a8 Dummy {f00=0x0081, f01=0x0190, f02=» . B P FILLR ' ',2 / L P FB P05999 / T PP05600 / n P FILLR ' ',4 / T PP05700
0x0ba6a8…0ba83c Dummy {f00=0x0081, 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
0x0ba83c…0ba9d0 Dummy {f00=0x0081, 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*
0x0ba9d0…0bab64 Dummy {f00=0x0081, f01=0x0190, f02=» * 1 L P************************************************************************ 2 L PPRT007 FRMT 2 l R P FTEXT ' '
0x0bab64…0bacf8 Dummy {f00=0x0081, f01=0x0190, f02=» 2 j L P FMEL 'Z',RDSHRPRT 3 2 T PP07010 3 T P FTAB 5
0x0bacf8…0bae8c Dummy {f00=0x0081, 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
0x0bae8c…0bb020 Dummy {f00=0x0081, 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 ' '
0x0bb020…0bb1b4 (2, 160) Dummy {f00=0x0081, f01=0x0190, f02=»TAB 3 5 L P FMEL 'Z',RDSHRPRT 6 V T PP08010 6 T P FTAB 5
0x0bb1b4…0bb348 Dummy {f00=0x0081, f01=0x0190, f02=» 6 V T P FTAB 12 7 L P FTEXT '(R)' 7 n L PP08100 7
0x0bb348…0bb4dc Dummy {f00=0x0081, f01=0x0190, f02=» 7 f T P FTAB 21 8 & L P FMEL '999999',IDACTNR2 8 ~ L P FMEND
0x0bb4dc…0bb670 Dummy {f00=0x0081, f01=0x0190, f02=» * 8 n : P* PRINT, LINE TYPE 10: TEXT ON VOUCHER, 25 CHAR. LONG 9 . L P* * 9 l L P********************************************************************** * 9
0x0bb670…0bb804 Dummy {f00=0x0081, f01=0x0190, f02=»********************************************************************** 9 L P* * : N L P* PRINT, LINE TYPE 11: CODE LINE FOR VOUCHER * : L P*
0x0bb804…0bb998 Dummy {f00=0x0081, f01=0x0190, f02=»T011 FRMT : L P FTEXT ' ' ; L P FMEL '99E-99E-99',NDDATE ; b L P FILLR ' ',2 ; L P FMEL
0x0bb998…0bbb2c Dummy {f00=0x0081, f01=0x0190, f02=» ; R L P FMEL '999999',TDTRSSEQ < L P FILLR ' ',2 < b L P FMEL '99999',RDOPRNR < L P FILLR
0x0bbb2c…0bbcc0 Dummy {f00=0x0081, f01=0x0190, f02=» < R L P FILLR ' ',5 = L P FMEND = b L P************************************************************************ = L P*
0x0bbcc0…0bbe54 (2, 161) Dummy {f00=0x0082, f01=0x0190, f02=» * = R L P* * > L P************************************************************************ > b L PPRT012 FRMT > L P FTEXT
0x0bbe54…0bbfe8 Dummy {f00=0x0082, 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
0x0bbfe8…0bc17c Dummy {f00=0x0082, f01=0x0190, f02=» ? R L P FCOPY CCCCYCDE @ L P FTAB 27 @ b L P FILLR ' ',6 @ L P FBT S
0x0bc17c…0bc310 Dummy {f00=0x0082, f01=0x0190, f02=» * @ R L P FMEL 'ZZZZZZZZ9,99-',IDAMT2 A L PP12400 A b L P FTAB 46 A L P FMEL
0x0bc310…0bc4a4 Dummy {f00=0x0082, 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
0x0bc4a4…0bc638 Dummy {f00=0x0082, f01=0x2008, f02=» C x L P FMEL '999',ADTRSCDE 8 L P FMEND L P************************************************
0x0bc638…0bc7cc Dummy {f00=0x0082, f01=0x0190, f02=»1 C z PF27999 D : L P FMEND D H L P************************************************************************ D L P*
0x0bc7cc…0bc960 Dummy {f00=0x0082, f01=0x0190, f02=» * D L P************************************************************************ E H PMSG030 FRMT E P FSL E P FLOW E T P FTEXT 'BITTE FUNKTION EINGEBEN : '
0x0bc960…0bcaf4 (2, 162) Opaque[0x194]
0x0bcaf4…0bcc88 # DirEnt {nam=»DLDEP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1048, f03=0x0000}
0x0bcaf4…0bcc88 IdxSect {
0x0bcaf4…0bcc88 f00 = 0x0082 // 0xbcaf4 @0x0
0x0bcaf4…0bcc88 f01 = 0x0008 // 0xbcaf6 @0x2
0x0bcaf4…0bcc88 gno = [ // 0xbcaf8 @0x4
0x0bcaf4…0bcc88 [0x00]: C0x0082.0x1.0
0x0bcaf4…0bcc88 [0x01]: C0x0082.0x2.0
0x0bcaf4…0bcc88 [0x02]: C0x0082.0x3.0
0x0bcaf4…0bcc88 [0x03]: C0x0083.0x0.0
0x0bcaf4…0bcc88 ]
0x0bcaf4…0bcc88 }
0x0bcc88…0bce1c Dummy {f00=0x0082, f01=0x0190, f02=» 4 P IDENT DLDEP DEPOSIT L P DDUM DEMODD < L P PDIV P P EXPROC PAJRN
0x0bce1c…0bcfb0 Dummy {f00=0x0082, f01=0x0190, f02=»H P P EXPROC QENTRS H P P EXPROC XBFMT P EXPROC ZCRDD P E
0x0bcfb0…0bd144 Dummy {f00=0x0082, f01=0x0190, f02=» P ENTRY SPAP11 P ENTRY SPAP12 L P************************************************************************ 4 P* P* DEPOSIT L P* * L P************************
0x0bd144…0bd2d8 Dummy {f00=0x0082, 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*
0x0bd2d8…0bd46c Dummy {f00=0x0082, f01=0x0190, f02=» * R L P* * L P MOVE TDTRSCDE,=D'1' b L P B DL200 L P*
0x0bd46c…0bd600 Dummy {f00=0x0082, f01=0x0190, f02=» * R L P* * L PDL100 b L P MOVE TDTRSCDE,=D'7' L P*
0x0bd600…0bd794 (2, 163) Dummy {f00=0x0082, f01=0x0190, f02=» * R L P* * L PDL200 b J P PERF PAJRN,=W'2' N P MOVE TD
0x0bd794…0bd928 Dummy {f00=0x0082, f01=0x0190, f02=» R L P TBT SBCANCEL,DL999 L P* * b L P* PRINT LINE TYPE 7 * L P*
0x0bd928…0bdabc Dummy {f00=0x0082, f01=0x0190, f02=» PERF PAJRN,=W'7' L P* * L L P* FILL TRANSACTION RECORD * L P* GET NEXT TRANSACTION-RE
0x0bdabc…0bdc50 Dummy {f00=0x0082, 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
0x0bdc50…0bdde4 Dummy {f00=0x0082, f01=0x0190, f02=» p L P MUL TDAMOUNT,=D'-1' REVERSAL 0 L PDL300 L P*
0x0bdde4…0bdf78 Dummy {f00=0x0082, 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*
0x0bdf78…0be10c Dummy {f00=0x0082, 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
0x0be10c…0be2a0 Dummy {f00=0x0082, 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
0x0be2a0…0be434 (2, 164) Dummy {f00=0x0082, 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
0x0be434…0be5c8 Dummy {f00=0x0082, f01=0x0190, f02=» j L P* * * L P* SAVINGS ACCOUNT WITH BOOK * z L P*
0x0be5c8…0be75c Dummy {f00=0x0082, f01=0x0190, f02=» v P B DL999 L P* * L P* CHEQUE ACCOUNT OR SAVINGS ACCOUNT WITHOUT BOOK * h L P* * P
0x0be75c…0be8f0 Dummy {f00=0x0082, f01=0x0190, f02=» * l P* CANCEL AND NORMAL EXIT , L P* * L L PDL999 L P RET
0x0be8f0…0bea84 Dummy {f00=0x0082, f01=0x0190, f02=»******************************************************************** L P* * L T P* CHECK BOOK BALANCE ENTERED (DLDEP + DMWDR) * L P*
0x0bea84…0bec18 Dummy {f00=0x0082, 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
0x0bec18…0bedac Dummy {f00=0x0082, f01=0x0190, f02=» * l L P* * , L P MOVE SPBINW4,=W'20' | & P MOVE XWRET,=W'1' INDICATE ERROR1 PS10999 P RET
0x0bedac…0bef40 Dummy {f00=0x0082, f01=0x0190, f02=» * n T P* CHECK LINE NUMBER ENTERED (DLDEP + DMWDR) * . L P* * L P**************************************************
0x0bef40…0bf0d4 (2, 165) Dummy {f00=0x0083, f01=0x0190, f02=» T N P CBE ADLNENR,IDNR1,S11999 CHECK OKE L P* * f L P* ERROR: INVALID COMPARISON * L P*
0x0bf0d4…0bf268 Dummy {f00=0x0083, 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)
0x0bf268…0bf3fc Dummy {f00=0x0083, f01=0x0190, f02=»************************** b PSPAP12 PROC XWRET " P PBIN XWRET < L PS12000 P N P MOVE TDNEWBAL,TDAMOUNT L P TBF SBRVS,S12100
0x0bf3fc…0bf590 Dummy {f00=0x0083, f01=0x018e, f02=» L PS12100 N P ADD TDNEWBAL,ADBAL NEW BALANCE T L P* * L P* UPDATE NEXT FIEL
0x0bf590…0bf724 Dummy {f00=0x0083, 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*
0x0bf724…0bf8b8 Dummy {f00=0x0083, 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*
0x0bf8b8…0bfa4c Dummy {f00=0x0083, f01=0x2008, f02=» x L P* * 8 L P************************************************************************ L P*
0x0bfa4c…0bfbe0 Dummy {f00=0x0083, f01=0x0190, f02=» ` L P B DK400 NEXT TRANSACTION L P* * p L P* ALL TRANSACTIONS OF THE SPECIFIED ACCOUNT HAVE BEEN PRINTED, *
0x0bfbe0…0bfd74 (2, 166) Opaque[0x194]
0x0bfd74…0bff08 # DirEnt {nam=»QEMOVE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1068, f03=0x0000}
0x0bfd74…0bff08 IdxSect {
0x0bfd74…0bff08 f00 = 0x0083 // 0xbfd74 @0x0
0x0bfd74…0bff08 f01 = 0x0004 // 0xbfd76 @0x2
0x0bfd74…0bff08 gno = [ // 0xbfd78 @0x4
0x0bfd74…0bff08 [0x00]: C0x0083.0x1.0
0x0bfd74…0bff08 [0x01]: C0x0083.0x2.0
0x0bfd74…0bff08 ]
0x0bfd74…0bff08 }
0x0bff08…0c009c Dummy {f00=0x0083, 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*
0x0c009c…0c0230 Dummy {f00=0x0083, f01=0x0190, f02=»VA0 L P EXTRN I:RT1 F L PQEMOVE EQU * L P*
0x0c0230…0c03c4 Dummy {f00=0x0083, 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-
0x0c03c4…0c0558 Dummy {f00=0x0083, 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
0x0c0558…0c06ec Dummy {f00=0x0083, 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
0x0c06ec…0c0880 Dummy {f00=0x0083, 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
0x0c0880…0c0a14 (2, 167) Dummy {f00=0x0083, f01=0x2008, f02=»
0x0c0a14…0c0ba8 Dummy {f00=0x0083, f01=0x0190, f02=»****************** Z L PUIF BLK L P* * j L P************************************************************************ L
0x0c0ba8…0c0d3c Dummy {f00=0x0083, f01=0x0190, f02=»L * Z L P* * L P************************************************************************ j L PSBSTTO BOOL FALSE START OPERATOR L
0x0c0d3c…0c0ed0 Dummy {f00=0x0083, f01=0x0190, f02=» Z L PSBBACT BOOL FALSE BLOCK ACCOUNT ! L PSBDACT BOOL FALSE DEBLOCK ACCOUNT ! j L PSBUACT BOOL FALSE UPDATE ACCOUNT ! L
0x0c0ed0…0c1064 Dummy {f00=0x0083, f01=0x0190, f02=» ! Z L PSBDSTM BOOL FALSE DAYLY STATEMENTS " L PSBCOPR BOOL FALSE OPERATOR CLOSE " j L PSBCSYS BOOL FALSE SYSTEM CLOSE " L
0x0c1064…0c11f8 Dummy {f00=0x0083, f01=0x0190, f02=» " Z L PSBLACT BOOL FALSE LIST ACCOUNTS # PSBWDR BOOL FALSE # j L PIWINDEX1 BIN # L PIDACTNR1 BCD 12
0x0c11f8…0c138c Dummy {f00=0x0083, f01=0x0190, f02=» # r L PIDAMT2 BCD 12 $ 2 L PIDNR1 BCD 12 $ PIDNR2 BCD 12 $ PICTEXT1 STRG 6 $ PICTEXT2 STRG
0x0c138c…0c1520 Dummy {f00=0x0083, f01=0x0190, f02=»**************************** $ d PUCY BLK % $ P* % 4 L P************************************************************************ % > L P* * % L P* CURRENCY RECORD
0x0c1520…0c16b4 (2, 168) Opaque[0x194]
0x0c16b4…0c1848 # DirEnt {nam=»DMWDR «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1078, f03=0x0000}
0x0c16b4…0c1848 IdxSect {
0x0c16b4…0c1848 f00 = 0x0083 // 0xc16b4 @0x0
0x0c16b4…0c1848 f01 = 0x0008 // 0xc16b6 @0x2
0x0c16b4…0c1848 gno = [ // 0xc16b8 @0x4
0x0c16b4…0c1848 [0x00]: C0x0083.0x3.0
0x0c16b4…0c1848 [0x01]: C0x0084.0x0.0
0x0c16b4…0c1848 [0x02]: C0x0084.0x1.0
0x0c16b4…0c1848 [0x03]: C0x0084.0x2.0
0x0c16b4…0c1848 ]
0x0c16b4…0c1848 }
0x0c1848…0c19dc Dummy {f00=0x0083, f01=0x0190, f02=» 6 P IDENT DMWDR WITHDRAWAL L P DDUM DEMODD > L P PDIV P P EXPROC PAJRN
0x0c19dc…0c1b70 Dummy {f00=0x0083, f01=0x0190, f02=»VCH P P EXPROC QENTRS J P P EXPROC XBFMT P EXPROC ZCRDD P
0x0c1b70…0c1d04 Dummy {f00=0x0083, f01=0x0190, f02=» r P ENTRY SPAP14 2 L P************************************************************************ H L P* * L P* WITHDRAWAL OF A CHEQUE OR SAVI
0x0c1d04…0c1e98 Dummy {f00=0x0083, f01=0x0190, f02=»**************************************************************** L PDMWDR PROC H L PDM000 P SET SBWDR L P TBT SBCHEQUE,
0x0c1e98…0c202c Dummy {f00=0x0083, f01=0x0190, f02=» J L P B DM200 L PDM100 Z L P MOVE TDTRSCDE,=D'16' SBCHEQUE IS ON L PDM200
0x0c202c…0c21c0 Dummy {f00=0x0083, f01=0x018e, f02=» * J L P* PRINT LINE TYPE 2 * L P* * Z L P PERF PAJRN,=W'2' L P MOVE TDNEWBAL
0x0c21c0…0c2354 (2, 169) Dummy {f00=0x0084, f01=0x0190, f02=» P B DM220 PDM210 L P PERF XBFMT,=W'42' WITHDRAWAL FORMAT " PDM220 r L P TBT SBCANCEL,DM999 L P*
0x0c2354…0c24e8 Dummy {f00=0x0084, f01=0x0190, f02=» * p : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY 0 H P PERF PAJRN,=W'7' n L P* * L
0x0c24e8…0c267c Dummy {f00=0x0084, 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
0x0c267c…0c2810 Dummy {f00=0x0084, 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
0x0c2810…0c29a4 Dummy {f00=0x0084, f01=0x0190, f02=» L P*** MOVE TDCHQNR,FCFIELD * L PDM300 T L P* * L P* FILL ACCOUNT RECOR
0x0c29a4…0c2b38 Dummy {f00=0x0084, 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*
0x0c2b38…0c2ccc Dummy {f00=0x0084, f01=0x0190, f02=» L P* * L PDM700 T L P PERF ZHWRID,TDTRSRNR,NDLRN2 TRANSACTION RECORD P TBT SBCANCEL,DM999
0x0c2ccc…0c2e60 Dummy {f00=0x0084, f01=0x0190, f02=» * | L P* UPDATE OPERATOR BALANCES * < L P* * PDM750 L P SUB ODCASH(KW1,KW4),TDAMOUNT
0x0c2e60…0c2ff4 (2, 170) Dummy {f00=0x0084, f01=0x0190, f02=»BCHEQUE,DM800 L P ADD ODCASH(KW2,KW1),TDAMOUNT ACCUMULATED CHEQUES J L P* * L P* PRINT VOUCHER OR PASSBOOK
0x0c2ff4…0c3188 Dummy {f00=0x0084, f01=0x0190, f02=» * PDM800 J N P CBNL RDPRTTYP,=D'2',DM999 NO TERMINAL PRINTER X L P TBT SBCHQACT,DM820 L P*
0x0c3188…0c331c Dummy {f00=0x0084, 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*
0x0c331c…0c34b0 Dummy {f00=0x0084, 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'
0x0c34b0…0c3644 Dummy {f00=0x0084, f01=0x0190, f02=» L P CLEAR SBWDR L P RET L P PEND p L P************************************************************************
0x0c3644…0c37d8 Dummy {f00=0x0084, f01=0x0190, f02=»FMT045(TRANSFER)) ` L P* * L P************************************************************************ j PSPAP14 PROC XWRET P PBIN XWRET L PS14000
0x0c37d8…0c396c Dummy {f00=0x0084, f01=0x0190, f02=»VS,S14100 P P MUL TDNEWBAL,=D'-1' NOT REVERSAL H L PS14100 J P ADD TDNEWBAL,ADBAL NEW BALA
0x0c396c…0c3b00 Dummy {f00=0x0084, 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
0x0c3b00…0c3c94 (2, 171) Dummy {f00=0x0084, f01=0x0190, f02=» * t L P* * 4 PS14150 L P MOVE WDEC1,TDNEWBAL L P TBF SBCHQACT,S14200 SAVINGS ACCOUNT
0x0c3c94…0c3e28 Dummy {f00=0x0084, f01=0x0190, f02=»NT * L P* * B L P MOVE WDEC1,TDNEWBAL L P ADD WDEC1,ADLIMBOK CREDIT LIMIT
0x0c3e28…0c3fbc Dummy {f00=0x0084, f01=0x0190, f02=»CHEQUE ACCOUNT * L P* * B L PS14200 L P CBNL WDEC1,=D'0',S14990 FUNDS ARE SUF
0x0c3fbc…0c4150 Dummy {f00=0x0084, f01=0x0190, f02=»FICIENT FUNDS * L P* * B L P MOVE SPBINW4,=W'35' L P MOVE XWRET,=W'1' INDICATE ERROR
0x0c4150…0c42e4 Dummy {f00=0x0084, f01=0x4136, f02=» L P PEND B L P************************************************************************ L P END
0x0c42e4…0c4478 Dummy {f00=0x0084, f01=0x2008, f02=» x@ 890 8 L P RET L P PEND
0x0c4478…0c460c Dummy {f00=0x0084, 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*
0x0c460c…0c47a0 Dummy {f00=0x0084, f01=0x0190, f02=» * L PCG980 H L P MOVE YDSTATUS,=D'2' SYSTEM STARTED L P PERF PAJRN,=W'3' LINE TYPE 3
0x0c47a0…0c4934 (2, 172) Opaque[0x194]
0x0c4934…0c4ac8 # DirEnt {nam=»DCVDU «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1098, f03=0x0000}
0x0c4934…0c4ac8 IdxSect {
0x0c4934…0c4ac8 f00 = 0x0084 // 0xc4934 @0x0
0x0c4934…0c4ac8 f01 = 0x0002 // 0xc4936 @0x2
0x0c4934…0c4ac8 gno = [ // 0xc4938 @0x4
0x0c4934…0c4ac8 [0x00]: C0x0084.0x3.0
0x0c4934…0c4ac8 ]
0x0c4934…0c4ac8 }
0x0c4ac8…0c4c5c Dummy {f00=0x0084, f01=0x0190, f02=» 0 P IDENT DCVDU DEMONSTRATE VIDEO L P DDUM DEMODD 8 L P PDIV P P EXPROC XBFMT
0x0c4c5c…0c4df0 Dummy {f00=0x0084, f01=0x0190, f02=»**************************************************** | L P* * < L P* DEMONSTRATE VIDEO * L P*
0x0c4df0…0c4f84 Dummy {f00=0x0084, f01=0x0190, f02=» | L PDC000 < L P PERF XBFMT,=W'12' DEMONSTRATE VIDEO L PDC999
0x0c4f84…0c5118 Dummy {f00=0x0084, f01=0x40e0, f02=» | L P************************************************************************ < L P END @ 9
0x0c5118…0c52ac Dummy {f00=0x0084, f01=0x2008, f02=» x L P************************************************************************ 8 L P END @ 9
0x0c52ac…0c5440 Dummy {f00=0x0084, f01=0x0190, f02=»,CF990 NO VDU AVAILABLE | L P************************************************************************ < L P* * L P* FOR LIST, A VIDEO SCREEN MUST BE AVAILABLE
0x0c5440…0c55d4 (2, 173) Opaque[0x194]
0x0c55d4…0c5768 # DirEnt {nam=»DDTP71«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x0c55d4…0c5768 IdxSect {
0x0c55d4…0c5768 f00 = 0x0085 // 0xc55d4 @0x0
0x0c55d4…0c5768 f01 = 0x000c // 0xc55d6 @0x2
0x0c55d4…0c5768 gno = [ // 0xc55d8 @0x4
0x0c55d4…0c5768 [0x00]: C0x0085.0x0.0
0x0c55d4…0c5768 [0x01]: C0x0085.0x1.0
0x0c55d4…0c5768 [0x02]: C0x0085.0x2.0
0x0c55d4…0c5768 [0x03]: C0x0085.0x3.0
0x0c55d4…0c5768 [0x04]: C0x0086.0x0.0
0x0c55d4…0c5768 [0x05]: C0x0086.0x1.0
0x0c55d4…0c5768 ]
0x0c55d4…0c5768 }
0x0c5768…0c58fc Dummy {f00=0x0085, f01=0x0190, f02=» * P IDENT DDTP71 DEMONSTRATE 6371-PRINTER L P DDUM DEMODD 2 L P PDIV P P EXPROC PVATTP
0x0c58fc…0c5a90 Dummy {f00=0x0085, f01=0x0190, f02=» z P P EXPROC XEERR > P P EXPROC ZMRDF P P EXPROC DEFDOC
0x0c5a90…0c5c24 Dummy {f00=0x0085, f01=0x0190, f02=» P L P************************************************************************ L P* * ` L P* DEMONSTRATE THE 6371-PRINTER * L P*
0x0c5c24…0c5db8 Dummy {f00=0x0085, f01=0x0190, f02=»******** P L PDDTP71 PROC L PDD000 ` N P PERF PVATTP,DSVCHPRT ATTACH PRINTER L P*
0x0c5db8…0c5f4c Dummy {f00=0x0085, 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
0x0c5f4c…0c60e0 Dummy {f00=0x0085, f01=0x0190, f02=» R L P* * L P* DEFINE THE DOCUMENT * b L P* * P MOVE
0x0c60e0…0c6274 (2, 174) Dummy {f00=0x0085, 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*
0x0c6274…0c6408 Dummy {f00=0x0085, 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'
0x0c6408…0c659c Dummy {f00=0x0085, 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'
0x0c659c…0c6730 Dummy {f00=0x0085, 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
0x0c6730…0c68c4 Dummy {f00=0x0085, f01=0x0190, f02=»PUPOSA,=D'28' L P CALL FMOVE,FCFORMAT,FMTCSET J L P PERF PSWFMT,=W'19' L P*
0x0c68c4…0c6a58 Dummy {f00=0x0085, 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'
0x0c6a58…0c6bec Dummy {f00=0x0085, 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'
0x0c6bec…0c6d80 Dummy {f00=0x0085, 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 '
0x0c6d80…0c6f14 (2, 175) Dummy {f00=0x0085, 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'
0x0c6f14…0c70a8 Dummy {f00=0x0085, 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)'
0x0c70a8…0c723c Dummy {f00=0x0085, 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
0x0c723c…0c73d0 Dummy {f00=0x0085, 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
0x0c73d0…0c7564 Dummy {f00=0x0085, 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'
0x0c7564…0c76f8 Dummy {f00=0x0085, f01=0x0190, f02=» * p L P* RELEASE A4-SHEET AND DETACH PRINTER * 0 L P* * N P DSC0 DSVCHPRT,01 RELEASE DOCUMENT
0x0c76f8…0c788c Dummy {f00=0x0085, f01=0x0190, f02=» t L P RET 4 L P PEND L P****************************************************
0x0c788c…0c7a20 Dummy {f00=0x0085, 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
0x0c7a20…0c7bb4 (2, 176) Dummy {f00=0x0085, 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
0x0c7bb4…0c7d48 Dummy {f00=0x0085, 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*
0x0c7d48…0c7edc Dummy {f00=0x0085, f01=0x0190, f02=» * P MOVE WW2,PWPRT F P MOVE WW1,KCPRTPAR(WW2) ^ N P DSC1 DSVCHPRT,5,WW1 SEND PRINTER PARAMTERS ~ L P*
0x0c7edc…0c8070 Dummy {f00=0x0085, f01=0x0190, f02=» * p L P PERF PUPOSA,PDPOS 0 L P* * L P* WRITE THE LINE
0x0c8070…0c8204 Dummy {f00=0x0085, 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
0x0c8204…0c8398 Dummy {f00=0x0085, f01=0x0190, f02=» P CLEAR SBFIL3 P CLEAR SBFIL4 P CLEAR SBFIL5 4 L PPT999 J L P RET L P PEND
0x0c8398…0c852c Dummy {f00=0x0085, f01=0x0190, f02=» * L P* PROCEDURE: PSWFMT * J L P* FUNCTIONAL DESCRIPTION: * L P* WRITE THE FORMAT CONTAI
0x0c852c…0c86c0 Dummy {f00=0x0085, f01=0x0190, f02=» * L P************************************************************************ J L PPSWFMT PROC PWPRT P PLIT PWPRT L PPS000
0x0c86c0…0c8854 (2, 177) Dummy {f00=0x0086, f01=0x0190, f02=»HPRT,5,WW1 SEND PRINTER PARAMETERS N P EDWRT DSVCHPRT,FCFORMAT H L PPS999 L P RET
0x0c8854…0c89e8 Dummy {f00=0x0086, f01=0x0190, f02=»****************************************************************** L P* * J L P* PROCEDURE: PUPOSA * L P* FUNCTIONAL DESCRIPTION:
0x0c89e8…0c8b7c Dummy {f00=0x0086, f01=0x0190, f02=» * L P************************************************************************ J L PPUPOSA PROC PDLINE P PLIT PDLINE L PPU000
0x0c8b7c…0c8d10 Dummy {f00=0x0086, f01=0x0190, f02=» L P RET ! F L P PEND ! L P**********************************
0x0c8d10…0c8ea4 Dummy {f00=0x0086, f01=0x0190, f02=» * ! L P* DEMO TP71: AVAILABLE CHARACTER SET * " F L P* * " L P**********************************
0x0c8ea4…0c9038 Dummy {f00=0x0086, f01=0x0190, f02=»' " L P FILLR ' ',15 # F L P FTEXT =X'202122232425262728292A2B2C2D2E2F' # L P FTEXT =X'303132333435363738393A3B
0x0c9038…0c91cc Dummy {f00=0x0086, f01=0x0190, f02=» # L P FTEXT ' ' $ F L P FILLR ' ',15 $ L P FTEXT =X'505152535455565758595A5B
0x0c91cc…0c9360 Dummy {f00=0x0086, f01=0x0190, f02=»707172737475767778797A7B7C7D7E7F' $ L P FMEND % F L P************************************************************************ % L P*
0x0c9360…0c94f4 (2, 178) Dummy {f00=0x0086, f01=0x0190, f02=» * % L P************************************************************************ & F L PFMTNCV FRMT & L P FTEXT ' '
0x0c94f4…0c9688 Dummy {f00=0x0086, f01=0x0190, f02=»EXT2 & L P FTAB 17 ' F L P FTEXT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x0c9688…0c981c Dummy {f00=0x0086, f01=0x409a, f02=»************************************************************** ' L P END ( F@ ( XT ': ' ' L P FTEXT =X'23405B5C5D607B7C7D7E'
0x0c981c…0c99b0 Dummy {f00=0x0086, f01=0x2008, f02=» ) x L P PEND 8 L P************************************************************************ L P END
0x0c99b0…0c9b44 Dummy {f00=0x0086, 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
0x0c9b44…0c9cd8 Dummy {f00=0x0086, 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 :
0x0c9cd8…0c9e6c Dummy {f00=0x0086, 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
0x0c9e6c…0ca000 Dummy {f00=0x0086, 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
0x0ca000…0ca194 (2, 179) Opaque[0x194]
0x0ca194…0ca328 # DirEnt {nam=»DELACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d0, f03=0x0000}
0x0ca194…0ca328 IdxSect {
0x0ca194…0ca328 f00 = 0x0086 // 0xca194 @0x0
0x0ca194…0ca328 f01 = 0x000a // 0xca196 @0x2
0x0ca194…0ca328 gno = [ // 0xca198 @0x4
0x0ca194…0ca328 [0x00]: C0x0086.0x2.0
0x0ca194…0ca328 [0x01]: C0x0086.0x3.0
0x0ca194…0ca328 [0x02]: C0x0087.0x0.0
0x0ca194…0ca328 [0x03]: C0x0087.0x1.0
0x0ca194…0ca328 [0x04]: C0x0087.0x2.0
0x0ca194…0ca328 ]
0x0ca194…0ca328 }
0x0ca328…0ca4bc Dummy {f00=0x0086, f01=0x018e, f02=» 0 P IDENT DELACT LIST ACCOUNTS L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x0ca4bc…0ca650 Dummy {f00=0x0086, f01=0x0190, f02=» B P P EXPROC XAKBIN P P EXPROC XCLAMP P EXPROC XHERAS P P EXPROC ZMRDF
0x0ca650…0ca7e4 Dummy {f00=0x0086, f01=0x0190, f02=» z P ENTRY DELACT > L P************************************************************************ T L P* * L P* LIST ACCOUNTS
0x0ca7e4…0ca978 Dummy {f00=0x0086, f01=0x0190, f02=» L P************************************************************************ L PDELACT PROC T L PDE000 L P SET SBLACT
0x0ca978…0cab0c Dummy {f00=0x0086, f01=0x0190, f02=»D'30' L P PERF PAJRN,=W'1' PRINT FUNCTION IDENTIFICATION @ L P* * L P* ISSUE AN INITIAL KEYBOARD INPUT (NOWAI
0x0cab0c…0caca0 Dummy {f00=0x0086, f01=0x0190, f02=»ANSWER GIVEN BY THE OPERATOR * L P* * @ P SET SBNOWAIT P PERF XAKBIN,=W'0' L P* *
0x0caca0…0cae34 (2, 180) Dummy {f00=0x0086, 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* *
0x0cae34…0cafc8 Dummy {f00=0x0086, 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
0x0cafc8…0cb15c Dummy {f00=0x0086, f01=0x0190, f02=» * ` L P* GET THE NEXT ACCOUNT TO BE DISPLAYED * L P* * p L PDE200
0x0cb15c…0cb2f0 Dummy {f00=0x0086, f01=0x0190, f02=»RD INPUT * ` L P* * L P TESTIO SPDSDYKB p L P BNOK DE400
0x0cb2f0…0cb484 Dummy {f00=0x0086, 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
0x0cb484…0cb618 Dummy {f00=0x0086, f01=0x0190, f02=» b L P CBNE SPBINW2,KWEND,DE350 INVALID ANSWER, GO ON " L P* STOP HAS BEEN DEPRESSED * r L PDE340
0x0cb618…0cb7ac Dummy {f00=0x0086, 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
0x0cb7ac…0cb940 Dummy {f00=0x0086, f01=0x0190, f02=» L P* * L P* CALCULATE NEXT ACCOUNT NUMBER * T L P* * L PDE400
0x0cb940…0cbad4 (2, 181) Dummy {f00=0x0087, 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
0x0cbad4…0cbc68 Dummy {f00=0x0087, f01=0x0190, f02=» L P CBNG IDACTNR1,YDLASSAV,DE600 VALID ACCOUNT NUMBER L P B DE460 T L P* CHEQUE ACCOUNT * L PDE450
0x0cbc68…0cbdfc Dummy {f00=0x0087, 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
0x0cbdfc…0cbf90 Dummy {f00=0x0087, 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
0x0cbf90…0cc124 Dummy {f00=0x0087, 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
0x0cc124…0cc2b8 Dummy {f00=0x0087, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x0cc2b8…0cc44c Dummy {f00=0x0087, 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
0x0cc44c…0cc5e0 Dummy {f00=0x0087, 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*
0x0cc5e0…0cc774 (2, 182) Dummy {f00=0x0087, f01=0x0190, f02=» * r L PDE700 2 L P EDWRT SPDSSCRN,FMTLACT ACCOUNT LINE L PDE800
0x0cc774…0cc908 Dummy {f00=0x0087, 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
0x0cc908…0cca9c Dummy {f00=0x0087, f01=0x0190, f02=»****************************************************************** L P* * J L P* LIST ACCOUNTS, ACCOUNT LINE (DELACT) * L P*
0x0cca9c…0ccc30 Dummy {f00=0x0087, f01=0x0190, f02=»T FRMT L P FNL L L P FMEL '999999',IDACTNR1 L P FTAB 8
0x0ccc30…0ccdc4 Dummy {f00=0x0087, f01=0x0190, f02=»B 13 L P FCOPY ACNAME L L P FTAB 34 L P FMEL 'ZZZVZZZVZZ9,99',ADDEP
0x0ccdc4…0ccf58 Dummy {f00=0x0087, f01=0x0190, f02=»L 'ZZZVZZZVZZ9,99',ADWDRCUM L P FTAB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x0ccf58…0cd0ec Dummy {f00=0x0087, f01=0x4050, f02=» @ LB 64 L L P FMEL '9',ADSTATUS L P FMEND
0x0cd0ec…0cd280 Dummy {f00=0x0087, f01=0x2008, f02=» # x L P************************************************************************ $ 8 L P END $ @ $ E TDAMOUNT,ODCASH(KW1,IWINDEX1)
0x0cd280…0cd414 (2, 183) Dummy {f00=0x0087, f01=0x0190, f02=» v T P CALL MASK,NWXSTAT,WW1 CHECK DISK-ERRORS > T P BNOK QI050 DISK-ERROR FOUND L P*
0x0cd414…0cd5a8 Dummy {f00=0x0087, f01=0x0008, f02=»
0x0cd5a8…0cd73c Dummy {f00=0x0087, 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
0x0cd73c…0cd8d0 Dummy {f00=0x0087, f01=0x0190, f02=» P ENTRY SPAP29 L P************************************************************************ P* n P* UPDATE CURRENCY x * L P************************************************************************ PDAUCCY PROC PDA000
0x0cd8d0…0cda64 Dummy {f00=0x0087, 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
0x0cda64…0cdbf8 Dummy {f00=0x0087, 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
0x0cdbf8…0cdd8c Dummy {f00=0x0087, 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********
0x0cdd8c…0cdf20 Dummy {f00=0x0087, 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
0x0cdf20…0ce0b4 (2, 184) Opaque[0x194]
0x0ce0b4…0ce248 # DirEnt {nam=»FMTPIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f8, f03=0x0000}
0x0ce0b4…0ce248 IdxSect {
0x0ce0b4…0ce248 f00 = 0x0087 // 0xce0b4 @0x0
0x0ce0b4…0ce248 f01 = 0x0004 // 0xce0b6 @0x2
0x0ce0b4…0ce248 gno = [ // 0xce0b8 @0x4
0x0ce0b4…0ce248 [0x00]: C0x0087.0x3.0
0x0ce0b4…0ce248 [0x01]: C0x0088.0x0.0
0x0ce0b4…0ce248 ]
0x0ce0b4…0ce248 }
0x0ce248…0ce3dc Dummy {f00=0x0087, f01=0x0190, f02=» L P EDWRT SPDSSCRN,FMTPIC L P************************************************************************ T L P* * L P* DUMMY FORMAT TO IN
0x0ce3dc…0ce570 Dummy {f00=0x0087, f01=0x0190, f02=» L P************************************************************************ L PFMTPIC FRMT T L P FSL L P FMEL '9',IDNR1
0x0ce570…0ce704 Dummy {f00=0x0087, f01=0x0190, f02=» L P FMEL '999',IDNR1 L P FMEL '9999',IDNR1 T L P FMEL '99999',IDNR1 L P FMEL '999999',IDNR1
0x0ce704…0ce898 Dummy {f00=0x0087, 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
0x0ce898…0cea2c Dummy {f00=0x0087, 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
0x0cea2c…0cebc0 Dummy {f00=0x0087, 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
0x0cebc0…0ced54 (2, 185) Dummy {f00=0x0088, 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
0x0ced54…0ceee8 Dummy {f00=0x0088, f01=0x40da, f02=»NR1 v L P FMEND 6 L P************************************************************************ @ P FMEL 'ZZE-ZZE-ZZ',IDNR1
0x0ceee8…0cf07c Dummy {f00=0x0088, f01=0x2008, f02=» **************************************** x L P END 8@ L 'ZZE:ZZE:ZZ',IDNR1 L P FMEL 'F*ZVZZZVZZ9,99-',IDNR1
0x0cf07c…0cf210 Dummy {f00=0x0088, f01=0x0190, f02=» ^ L P MOVE TDAMOUNT,IDAMT1 L P PERF PAJRN,=W'4' AMOUNT QUOTED n L P MOVE ICTEXT3,ICTEXT2 CURRENCY CODE
0x0cf210…0cf3a4 Dummy {f00=0x0088, 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. *
0x0cf3a4…0cf538 Dummy {f00=0x0088, f01=0x0190, f02=»RRENCY * ^ L P* * L P TBT SBEOI,DP600 n L P* SWAP IDAMT1 AND IDAMT2 *
0x0cf538…0cf6cc Dummy {f00=0x0088, f01=0x0190, f02=» ^ L P MOVE IDAMT2,WDEC1 L P* * n L P* PRINT CURRENCY EXCHANGE VOUCHER IF A TELLER PRINTER IS AVAILABLE *
0x0cf6cc…0cf860 Dummy {f00=0x0088, 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
0x0cf860…0cf9f4 (2, 186) Opaque[0x194]
0x0cf9f4…0cfb88 # DirEnt {nam=»DGCACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1108, f03=0x0000}
0x0cf9f4…0cfb88 IdxSect {
0x0cf9f4…0cfb88 f00 = 0x0088 // 0xcf9f4 @0x0
0x0cf9f4…0cfb88 f01 = 0x0006 // 0xcf9f6 @0x2
0x0cf9f4…0cfb88 gno = [ // 0xcf9f8 @0x4
0x0cf9f4…0cfb88 [0x00]: C0x0088.0x1.0
0x0cf9f4…0cfb88 [0x01]: C0x0088.0x2.0
0x0cf9f4…0cfb88 [0x02]: C0x0088.0x3.0
0x0cf9f4…0cfb88 ]
0x0cf9f4…0cfb88 }
0x0cfb88…0cfd1c Dummy {f00=0x0088, f01=0x0190, f02=» 8 P IDENT DGCACT CLOSE ACCOUNT L P*********************************************************************** @ L P* PROCEDURE NAME : * L P* DGCACT CLOSE ACC
0x0cfd1c…0cfeb0 Dummy {f00=0x0088, f01=0x0190, f02=» - PRINT JOURNAL-ROLL * L P* - DISPLAY FORMAT 40 ON SCREEN * @ L P* - UPDATE ACCOUNTRECORD * L P* - SAVINGS ACCOUNT: PR
0x0cfeb0…0d0044 Dummy {f00=0x0088, f01=0x0190, f02=» RECORDSTATUS BECOMES 2 * L P* - CHEQUE ACCOUNT : IF LAST-TRANSACTION = LAST-TRANS* @ L P* ACTION-STATEMENTED: RECORDSTATUS* L P* BE
0x0d0044…0d01d8 Dummy {f00=0x0088, f01=0x0190, f02=» FORMED IF TERMINALPRINTER IS * L P* PRESENT * @ L P* - REWRITE ACCOUNTRECORD * L P* PROCEDURES USED :
0x0d01d8…0d036c Dummy {f00=0x0088, f01=0x0190, f02=» PBBOOK PRINT BOOK * L P* ZZDRWRD WRITE DATABASE-RECORD * @ L P* XBFMT SCREEN-CONTROL * L P****************************************
0x0d036c…0d0500 Dummy {f00=0x0088, 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
0x0d0500…0d0694 (2, 187) Dummy {f00=0x0088, 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
0x0d0694…0d0828 Dummy {f00=0x0088, f01=0x0190, f02=» * L P* SET ACCOUNT STATUS * B L P* * L P MOVE ADSTATUS,=D'2' CLOSED W/O STATEM
0x0d0828…0d09bc Dummy {f00=0x0088, 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*
0x0d09bc…0d0b50 Dummy {f00=0x0088, f01=0x0190, f02=» * L PDG600 B L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P TBT SBCANCEL,DG999
0x0d0b50…0d0ce4 Dummy {f00=0x0088, 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
0x0d0ce4…0d0e78 Dummy {f00=0x0088, f01=0x0190, f02=»OUNT RECORD FOR PBBOOK OR DKDSTM * L P* * B L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,DG999
0x0d0e78…0d100c Dummy {f00=0x0088, f01=0x0190, f02=»UNT, PRINT BOOK * L P PERF PBBOOK B L P B DG999 L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMEN
0x0d100c…0d11a0 Dummy {f00=0x0088, f01=0x40d4, f02=» L PDG999 B P RET P PEND P END @ L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMEN
0x0d11a0…0d1334 (2, 188) Dummy {f00=0x0088, 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
0x0d1334…0d14c8 Dummy {f00=0x0088, 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
0x0d14c8…0d165c Dummy {f00=0x0088, f01=0x2008, f02=» x L P PEND 8 L P END @ BE "CANCE
0x0d165c…0d17f0 Dummy {f00=0x0088, f01=0x0190, f02=») * L P* RWR: REWRITE * L P* SAV: SAVE, SAVINGS ACCOUNT SCR: SCREEN * l L P* SEL: SELL(ING) SEQ: SEQUENCE *
0x0d17f0…0d1984 Dummy {f00=0x0088, f01=0x0190, f02=» * L P* STM: STATEMENT STT: START * L P* SYS: SYSTEM * l L P* TAB: TABLE TRF: TRANSFER *
0x0d1984…0d1b18 Dummy {f00=0x0088, f01=0x0190, f02=» * L P* TYP: TYPE * L P* UPD: UPDATE * l L P* VCH: VOUCHER VDU: VIDEO *
0x0d1b18…0d1cac Dummy {f00=0x0088, f01=0x018e, f02=» * L P* * L P************************************************************************ l P OPTNS LITADR=1112 J F**************************************************
0x0d1cac…0d1e40 Dummy {f00=0x0088, 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
0x0d1e40…0d1fd4 (2, 189) Opaque[0x194]
0x0d1fd4…0d2168 # DirEnt {nam=»DHBACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1120, f03=0x0000}
0x0d1fd4…0d2168 IdxSect {
0x0d1fd4…0d2168 f00 = 0x0089 // 0xd1fd4 @0x0
0x0d1fd4…0d2168 f01 = 0x0004 // 0xd1fd6 @0x2
0x0d1fd4…0d2168 gno = [ // 0xd1fd8 @0x4
0x0d1fd4…0d2168 [0x00]: C0x0089.0x0.0
0x0d1fd4…0d2168 [0x01]: C0x0089.0x1.0
0x0d1fd4…0d2168 ]
0x0d1fd4…0d2168 }
0x0d2168…0d22fc Dummy {f00=0x0089, f01=0x0190, f02=» 0 P IDENT DHBACT BLOCK / DEBLOCK ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DHBACT
0x0d22fc…0d2490 Dummy {f00=0x0089, f01=0x0190, f02=» | P P EXPROC ZDRWRD @ L PDHBACT PROC (DE-)BLOCK ACCOUNT L PDH000
0x0d2490…0d2624 Dummy {f00=0x0089, 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
0x0d2624…0d27b8 Dummy {f00=0x0089, f01=0x0190, f02=» L P* * D L P* PRINT LINE TYPE 1 AND 2 * L P*
0x0d27b8…0d294c Dummy {f00=0x0089, 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
0x0d294c…0d2ae0 Dummy {f00=0x0089, f01=0x0190, f02=» * h L P MOVE TCTEXT,=C' ' ( L P PERF XBFMT,=W'48' x L P TBT SBCANCEL,DH900
0x0d2ae0…0d2c74 (2, 190) Dummy {f00=0x0089, f01=0x0190, f02=» h L P MOVE ADLASSEQ,YDLASSEQ ( L P MOVE TDTRSSEQ,YDLASSEQ x L P*
0x0d2c74…0d2e08 Dummy {f00=0x0089, 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
0x0d2e08…0d2f9c Dummy {f00=0x0089, f01=0x0190, f02=» * J L P* REWRITE ACCOUNTRECORD * L P* * Z PDH600 L P PERF ZDRWRD,ADACTRNR,NDLRN1 L P
0x0d2f9c…0d3130 Dummy {f00=0x0089, f01=0x412c, f02=» X L P CLEAR SBBACT L P RET h L P PEND P
0x0d3130…0d32c4 Dummy {f00=0x0089, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DHBACT
0x0d32c4…0d3458 Dummy {f00=0x0089, f01=0x0190, f02=»FOR PBBOOK OR DKDSTM * v L P* * 6 L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,DG999
0x0d3458…0d35ec Dummy {f00=0x0089, f01=0x0190, f02=»OOK * v L P PERF PBBOOK 6 L P B DG999 L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x0d35ec…0d3780 Dummy {f00=0x0089, f01=0x40c8, f02=» v L PDG999 6 P RET P PEND P END @ L P* CHEQUE ACCOUNT, PRINT DAILY-STATEMENTS
0x0d3780…0d3914 (2, 191) Opaque[0x194]
0x0d3914…0d3aa8 # DirEnt {nam=»DIQACT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1130, f03=0x0000}
0x0d3914…0d3aa8 IdxSect {
0x0d3914…0d3aa8 f00 = 0x0089 // 0xd3914 @0x0
0x0d3914…0d3aa8 f01 = 0x0006 // 0xd3916 @0x2
0x0d3914…0d3aa8 gno = [ // 0xd3918 @0x4
0x0d3914…0d3aa8 [0x00]: C0x0089.0x2.0
0x0d3914…0d3aa8 [0x01]: C0x0089.0x3.0
0x0d3914…0d3aa8 [0x02]: C0x008a.0x0.0
0x0d3914…0d3aa8 ]
0x0d3914…0d3aa8 }
0x0d3aa8…0d3c3c Dummy {f00=0x0089, f01=0x018e, f02=» 0 P IDENT DIQACT INQUIRE ACCOUNT L P DDUM DEMODD 8 L P PDIV L P ENTRY DIQACT INQUIRE ACCOUNT
0x0d3c3c…0d3dd0 Dummy {f00=0x0089, f01=0x0190, f02=» P P EXPROC XBFMT P P EXPROC XEERR X P P EXPROC ZCRDD P P EXPROC
0x0d3dd0…0d3f64 Dummy {f00=0x0089, f01=0x0190, f02=»********** * T L P* PROCEDURE NAME : * L P* DIQACT * d L P* FUNCTIONAL DESCRIPTION : * L P*
0x0d3f64…0d40f8 Dummy {f00=0x0089, f01=0x0190, f02=»CTIONS * T L P* ACTIONS : * L P* - PRINT JOURNAL-ROLL * f L P* - UPDATE LAST TRANSACTION SEQUENCE NUMBER * L P*
0x0d40f8…0d428c Dummy {f00=0x0089, 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
0x0d428c…0d4420 Dummy {f00=0x0089, f01=0x0190, f02=» END-OF-ITEM OR CANCEL * x N P* NO TRS. INQ. : REWRITE ACCOUNTRECORD * 8 L P* RETURN * , P* CANCEL : RETURN L
0x0d4420…0d45b4 (2, 192) Dummy {f00=0x0089, f01=0x0190, f02=» * Z L P* QFLTRS PREVIOUS TRANSACTIONNUMBER * L P* XBFMT SCREEN-CONTROL * j L P* XEERR DISPLAY ERRORR-MESSAGE * L
0x0d45b4…0d4748 Dummy {f00=0x0089, f01=0x0190, f02=» * Z L P************************************************************************ L PDIQACT PROC j L PDI000 L
0x0d4748…0d48dc Dummy {f00=0x0089, f01=0x0190, f02=» Z L P L P MOVE TDTRSCDE,=D'70' j L P PERF PAJRN,=W'2' L
0x0d48dc…0d4a70 Dummy {f00=0x0089, 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
0x0d4a70…0d4c04 Dummy {f00=0x0089, 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
0x0d4c04…0d4d98 Dummy {f00=0x0089, f01=0x0190, f02=»DD UDTRSRNR,TDUMMY L P PERF ZCRDD,UDTRSRNR,NDLRN2,KW1 N P TBT SBCANCEL,DI900 L P TBF SBRECAVB,DI700 L
0x0d4d98…0d4f2c Dummy {f00=0x0089, 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
0x0d4f2c…0d50c0 Dummy {f00=0x0089, f01=0x0190, f02=» ~ L P PERF XEERR,=W'38',KW1 > L P* ( ERROR-MESSAGE ; NO (MORE) TRANSACTIONS , ANSWER MUST BE * L P* "CANCEL" )
0x0d50c0…0d5254 (2, 193) Dummy {f00=0x008a, 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
0x0d5254…0d53e8 Dummy {f00=0x008a, f01=0x0190, f02=»0 P CLEAR SBQACT L L P RET b L P PEND L P******
0x0d53e8…0d557c Dummy {f00=0x008a, f01=0x4016, f02=» R@ P CLEAR SBQACT L L P RET b L P PEND L P******
0x0d557c…0d5710 Dummy {f00=0x008a, f01=0x2008, f02=» H
0x0d5710…0d58a4 Dummy {f00=0x008a, 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*
0x0d58a4…0d5a38 Dummy {f00=0x008a, 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
0x0d5a38…0d5bcc Dummy {f00=0x008a, f01=0x0190, f02=» $ P B S06800 ERROR, CLEAR DATA-ITEM L P* * , L P* INITIALISE A NEW OPERATOR RECORD IN THE UWB * | L P*
0x0d5bcc…0d5d60 Dummy {f00=0x008a, f01=0x0190, f02=»ECORD n P B S06990 . L P* * @ " P* OPERATOR NUMBER NOT IN RANGE L P* * N PS0
0x0d5d60…0d5ef4 (2, 194) Opaque[0x194]
0x0d5ef4…0d6088 # DirEnt {nam=»DEFDOC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1148, f03=0x0000}
0x0d5ef4…0d6088 IdxSect {
0x0d5ef4…0d6088 f00 = 0x008a // 0xd5ef4 @0x0
0x0d5ef4…0d6088 f01 = 0x0002 // 0xd5ef6 @0x2
0x0d5ef4…0d6088 gno = [ // 0xd5ef8 @0x4
0x0d5ef4…0d6088 [0x00]: C0x008a.0x1.0
0x0d5ef4…0d6088 ]
0x0d5ef4…0d6088 }
0x0d6088…0d621c Dummy {f00=0x008a, 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,
0x0d621c…0d63b0 Dummy {f00=0x008a, 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,
0x0d63b0…0d6544 Dummy {f00=0x008a, 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
0x0d6544…0d66d8 Dummy {f00=0x008a, 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**********
0x0d66d8…0d686c Dummy {f00=0x008a, f01=0x0190, f02=» 3 N L P* * 4 L P************************************************************************ 4 ^ L P* * 4 L P* ACCOUNT
0x0d686c…0d6a00 Dummy {f00=0x008a, 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
0x0d6a00…0d6b94 (2, 195) Opaque[0x194]
0x0d6b94…0d6d28 # DirEnt {nam=»DKDSTM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1150, f03=0x0000}
0x0d6b94…0d6d28 IdxSect {
0x0d6b94…0d6d28 f00 = 0x008a // 0xd6b94 @0x0
0x0d6b94…0d6d28 f01 = 0x0010 // 0xd6b96 @0x2
0x0d6b94…0d6d28 gno = [ // 0xd6b98 @0x4
0x0d6b94…0d6d28 [0x00]: C0x008a.0x2.0
0x0d6b94…0d6d28 [0x01]: C0x008a.0x3.0
0x0d6b94…0d6d28 [0x02]: C0x008b.0x0.0
0x0d6b94…0d6d28 [0x03]: C0x008b.0x1.0
0x0d6b94…0d6d28 [0x04]: C0x008b.0x2.0
0x0d6b94…0d6d28 [0x05]: C0x008b.0x3.0
0x0d6b94…0d6d28 [0x06]: C0x008c.0x0.0
0x0d6b94…0d6d28 [0x07]: C0x008c.0x1.0
0x0d6b94…0d6d28 ]
0x0d6b94…0d6d28 }
0x0d6d28…0d6ebc Dummy {f00=0x008a, f01=0x0190, f02=» < P IDENT DKDSTM DAILY STATEMENTS L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x0d6ebc…0d7050 Dummy {f00=0x008a, f01=0x018e, f02=» EXPROC QENTRS P P EXPROC QGATYP T P EXPROC XCLAMP P EXPROC XEERR P P EXPROC ZCRDD
0x0d7050…0d71e4 Dummy {f00=0x008a, f01=0x0190, f02=» P ENTRY DKDSTM P ENTRY EQPDS L P************************************************************************ . L P* * ~ L P* PROCEDURE: DKDSTM
0x0d71e4…0d7378 Dummy {f00=0x008a, 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
0x0d7378…0d750c Dummy {f00=0x008a, 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*
0x0d750c…0d76a0 Dummy {f00=0x008a, 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*
0x0d76a0…0d7834 (2, 196) Dummy {f00=0x008a, 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
0x0d7834…0d79c8 Dummy {f00=0x008a, 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
0x0d79c8…0d7b5c Dummy {f00=0x008a, 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
0x0d7b5c…0d7cf0 Dummy {f00=0x008a, f01=0x0190, f02=»CBUFFER: BUFFER FOR DATABASE-I/O AND FORMAT-I/O. * L P* * H L P************************************************************************ L PDKDSTM PROC
0x0d7cf0…0d7e84 Dummy {f00=0x008a, f01=0x0190, f02=»STM L P MOVE TDTRSCDE,=D'72' H L P PERF PAJRN,=W'1' IDENTIFICATION PRINT L P*
0x0d7e84…0d8018 Dummy {f00=0x008a, 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
0x0d8018…0d81ac Dummy {f00=0x008a, 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
0x0d81ac…0d8340 Dummy {f00=0x008a, 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
0x0d8340…0d84d4 (2, 197) Dummy {f00=0x008b, 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
0x0d84d4…0d8668 Dummy {f00=0x008b, 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
0x0d8668…0d87fc Dummy {f00=0x008b, f01=0x0190, f02=»167998' INITIALISE ~ L P* * @ L P* NEXT CHEQUE ACCOUNT * L P*
0x0d87fc…0d8990 Dummy {f00=0x008b, f01=0x0190, f02=»'2' 8 P CBG IDACTNR1,YDLASCHQ,DK800 NO MORE CHEQUE ACCOUNTS @ L P* * | L P* READ THE ACCOUNT RECORD
0x0d8990…0d8b24 Dummy {f00=0x008b, f01=0x0190, f02=» l L P MUL ADACTRNR,KDSHIFT , L P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 | L P TBT SBCANCEL,DK980
0x0d8b24…0d8cb8 Dummy {f00=0x008b, f01=0x0190, f02=» * l L P* THE ACCOUNT RECORD HAS BEEN READ * , L P* * | L P CBE ADSTATUS,=D'3',DK200 CLOSED WITH STATEMENTING
0x0d8cb8…0d8e4c Dummy {f00=0x008b, f01=0x0190, f02=» * X L P* A NON CLOSED ACCOUNT HAS BEEN READ * L P* * h L PDK300 4 P
0x0d8e4c…0d8fe0 Dummy {f00=0x008b, 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
0x0d8fe0…0d9174 (2, 198) Dummy {f00=0x008b, 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'
0x0d9174…0d9308 Dummy {f00=0x008b, 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
0x0d9308…0d949c Dummy {f00=0x008b, f01=0x0190, f02=» T L P MOVE NDPRTTRS,ADSTMTRS WORKFIELD L P* * d L P* NEXT TRANSACTION TO BE STATEMENTED * L P*
0x0d949c…0d9630 Dummy {f00=0x008b, 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
0x0d9630…0d97c4 Dummy {f00=0x008b, 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
0x0d97c4…0d9958 Dummy {f00=0x008b, f01=0x0190, f02=» T L P* * L P* TRANSACTION RECORD HAS BEEN FOUND, PRINT A LINE * d L P* * L PDK50
0x0d9958…0d9aec Dummy {f00=0x008b, 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
0x0d9aec…0d9c80 Dummy {f00=0x008b, f01=0x0190, f02=»RS,NDPRTTRS L P B DK400 NEXT TRANSACTION D L P* * L P* ALL TRANSACTIONS OF THE SPECIFIED
0x0d9c80…0d9e14 (2, 199) Dummy {f00=0x008b, 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
0x0d9e14…0d9fa8 Dummy {f00=0x008b, 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
0x0d9fa8…0da13c Dummy {f00=0x008b, 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
0x0da13c…0da2d0 Dummy {f00=0x008b, f01=0x0190, f02=» * l L P* * ! , L PDK800 ! | L PDK980
0x0da2d0…0da464 Dummy {f00=0x008b, 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
0x0da464…0da5f8 Dummy {f00=0x008b, f01=0x0190, f02=» P* EXIT FROM D-S # P* # PDK990 # & P CLEAR SBDSTM # 4 L P RET # J L P PEND # L P******************************
0x0da5f8…0da78c Dummy {f00=0x008b, f01=0x0190, f02=»Y-STATEMENT ACCOUNT HEADER LINE * # L P* * $ J L P************************************************************************ $ L PPRT013 FRMT
0x0da78c…0da920 Dummy {f00=0x008b, f01=0x0190, f02=»3 $ L P FMEL '999999',IDACTNR1 % J L P FTAB 12 % L P FCOPY ICTEXT2
0x0da920…0daab4 (2, 200) Dummy {f00=0x008b, f01=0x018e, f02=» ' ',8 % L P FMEND & J L P************************************************************************ & P* & " P* PRINT A DAILY STAT
0x0daab4…0dac48 Dummy {f00=0x008b, f01=0x0190, f02=» & F PEQPDS PROC ' PEQ000 ' L P* CLEAR SWITCHES USED * ' ( N P CLEAR SBDSDEP ' x N P CLEAR SBDSWDR
0x0dac48…0daddc Dummy {f00=0x008b, 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
0x0daddc…0daf70 Dummy {f00=0x008b, 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
0x0daf70…0db104 Dummy {f00=0x008b, f01=0x0190, f02=» ) V L P B EQ180 * L PEQ120 * h N P SET SBDSWDR * L
0x0db104…0db298 Dummy {f00=0x008b, f01=0x0190, f02=» * Z N P SET SBDSTRF + L PEQ180 + l L P CBNL UDAMOUNT,=D'0',EQ200 +
0x0db298…0db42c Dummy {f00=0x008b, 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 ,
0x0db42c…0db5c0 Dummy {f00=0x008b, f01=0x0190, f02=» * , ^ L P TBT SBDSRVS,EQ290 REVERSAL - L P B EQ270 - n L P* TRANSACTION CODE IS 1, 7 OR 11 * -
0x0db5c0…0db754 (2, 201) Dummy {f00=0x008c, f01=0x0190, f02=» - ^ L P* * . L P* AMOUNT MUST BE PRINTED AS DEBIT AMOUNT * . n L P* * .
0x0db754…0db8e8 Dummy {f00=0x008c, f01=0x0190, f02=» . ^ L P MOVE IDAMT2,=D'0' / L P B EQ300 / n L P* * /
0x0db8e8…0dba7c Dummy {f00=0x008c, f01=0x0190, f02=» * / ^ L PEQ290 0 L P MOVE IDAMT1,=D'0' 0 n L P MOVE IDAMT2,UDAMOUNT 0
0x0dba7c…0dbc10 Dummy {f00=0x008c, 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
0x0dbc10…0dbda4 Dummy {f00=0x008c, 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
0x0dbda4…0dbf38 Dummy {f00=0x008c, 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
0x0dbf38…0dc0cc Dummy {f00=0x008c, 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
0x0dc0cc…0dc260 Dummy {f00=0x008c, f01=0x2008, f02=» 5 2 x L P FILLR ' ',8 3 8 L P FMEND 3 L P************************************************
0x0dc260…0dc3f4 (2, 202) Dummy {f00=0x008c, 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
0x0dc3f4…0dc588 Dummy {f00=0x008c, 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
0x0dc588…0dc71c Dummy {f00=0x008c, 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
0x0dc71c…0dc8b0 Dummy {f00=0x008c, 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
0x0dc8b0…0dca44 Dummy {f00=0x008c, 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
0x0dca44…0dcbd8 Dummy {f00=0x008c, 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
0x0dcbd8…0dcd6c Dummy {f00=0x008c, 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
0x0dcd6c…0dcf00 Dummy {f00=0x008c, 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
0x0dcf00…0dd094 (2, 203) Opaque[0x194]
0x0dd094…0dd228 # DirEnt {nam=»DNTRF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1190, f03=0x0000}
0x0dd094…0dd228 IdxSect {
0x0dd094…0dd228 f00 = 0x008c // 0xdd094 @0x0
0x0dd094…0dd228 f01 = 0x0012 // 0xdd096 @0x2
0x0dd094…0dd228 gno = [ // 0xdd098 @0x4
0x0dd094…0dd228 [0x00]: C0x008c.0x2.0
0x0dd094…0dd228 [0x01]: C0x008c.0x3.0
0x0dd094…0dd228 [0x02]: C0x008d.0x0.0
0x0dd094…0dd228 [0x03]: C0x008d.0x1.0
0x0dd094…0dd228 [0x04]: C0x008d.0x2.0
0x0dd094…0dd228 [0x05]: C0x008d.0x3.0
0x0dd094…0dd228 [0x06]: C0x008e.0x0.0
0x0dd094…0dd228 [0x07]: C0x008e.0x1.0
0x0dd094…0dd228 [0x08]: C0x008e.0x2.0
0x0dd094…0dd228 ]
0x0dd094…0dd228 }
0x0dd228…0dd3bc Dummy {f00=0x008c, f01=0x0190, f02=» 0 P IDENT DNTRF TRANSFER L P DDUM DEMODD 8 L P PDIV L P ENTRY DNTRF
0x0dd3bc…0dd550 Dummy {f00=0x008c, f01=0x0190, f02=» j P P EXPROC PBBOOK . P P EXPROC PCVCH P EXPROC QENTRS P EXPROC QGATYP P P EXPRO
0x0dd550…0dd6e4 Dummy {f00=0x008c, f01=0x0190, f02=» l P P EXPROC ZHWRID 0 P EXPROC ZGREA L P************************************************************************ L P* PROCEDURE NAME:
0x0dd6e4…0dd878 Dummy {f00=0x008c, 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
0x0dd878…0dda0c Dummy {f00=0x008c, 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
0x0dda0c…0ddba0 Dummy {f00=0x008c, f01=0x0190, f02=» BOTH TRANSACTION AND BOTH ACCOUNT-RECORDS ARE * L P* REWRITTEN TO THE DATABASE. * J L P* * L P* THE OPERATOR-
0x0ddba0…0ddd34 (2, 204) Dummy {f00=0x008c, 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
0x0ddd34…0ddec8 Dummy {f00=0x008c, f01=0x0190, f02=» * L P* PROCEDURES USED: * J L P* * L P* PAJRN PR
0x0ddec8…0de05c Dummy {f00=0x008c, f01=0x0190, f02=» PCVCH PRINT VOUCHER * L P* XBFMT SCREEN-CONTROL * J . P* ZCRDD READ DATABASE L P* ZDRWRD WRITE DATABASE
0x0de05c…0de1f0 Dummy {f00=0x008c, f01=0x0190, f02=»OR INSERT RECORD ON DATABASE * l L P* * , L P************************************************************************ | L PDNTRF PROC
0x0de1f0…0de384 Dummy {f00=0x008c, 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
0x0de384…0de518 Dummy {f00=0x008c, 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
0x0de518…0de6ac Dummy {f00=0x008c, 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*
0x0de6ac…0de840 Dummy {f00=0x008c, f01=0x0190, f02=» R L P* * L P* PRINT JOURNAL-ROLL * b L P* * L P MOVE
0x0de840…0de9d4 (2, 205) Dummy {f00=0x008d, 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'
0x0de9d4…0deb68 Dummy {f00=0x008d, f01=0x0190, f02=» PERF PAJRN,=W'8' L PDN100 P L P* * L P* UPDATE ACCOUNT-RECOR
0x0deb68…0decfc Dummy {f00=0x008d, 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
0x0decfc…0dee90 Dummy {f00=0x008d, f01=0x0190, f02=»OVE ADLASSEQ,YDLASSEQ L PDN200 N L P* * L P* UPDATE ACCOUNT-RECORD(
0x0dee90…0df024 Dummy {f00=0x008d, f01=0x0190, f02=»DD BDBAL,TDAMOUNT , P PERF QENTRS,BDLASTRS UPDATE LAST TRANS. N L PDN210 ~ L P ADD BDDEPCUM,TDAMOUNT
0x0df024…0df1b8 Dummy {f00=0x008d, f01=0x0190, f02=» n L P* * . L P* UPDATE TRANSACTION-RECORD(FROM) * ~ L P*
0x0df1b8…0df34c Dummy {f00=0x008d, f01=0x0190, f02=» n L P MOVE TDTRSSEQ,ADLASSEQ . L P MOVE TDNEWBAL,ADBAL ~ PDN400 P* & P* UPDATE TRANSACTION-RECORD(TO)
0x0df34c…0df4e0 Dummy {f00=0x008d, 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*
0x0df4e0…0df674 (2, 206) Dummy {f00=0x008d, 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
0x0df674…0df808 Dummy {f00=0x008d, 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
0x0df808…0df99c Dummy {f00=0x008d, f01=0x0190, f02=» R L P PEND L P************************************************************************ b L PSPAP19 PROC XWRET P PBIN
0x0df99c…0dfb30 Dummy {f00=0x008d, 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*
0x0dfb30…0dfcc4 Dummy {f00=0x008d, f01=0x0190, f02=»GE ? * x L P* * 8 L P CBL IDACTNR1,=D'168000',S19100 L P CBG IDACTNR1,=D'168999',S19100
0x0dfcc4…0dfe58 Dummy {f00=0x008d, 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
0x0dfe58…0dffec Dummy {f00=0x008d, f01=0x0190, f02=»DACTNR1 T P MUL ADACTRNR,KDSHIFT H $ P PERF ZCRDD,ADACTRNR,NDLRN1,KW1 T P TBT SBCANCEL,S19999
0x0dffec…0e0180 Dummy {f00=0x008d, f01=0x0190, f02=»ACCOUNTRECORD NOT CLOSED ? * L P* * L L P CBE ADSTATUS,=D'2',S19950 L P CBE ADSTATUS,=D'3',S19950
0x0e0180…0e0314 (2, 207) Dummy {f00=0x008d, f01=0x0190, f02=» * L P* STATUS DEBLOCKED ? * L L P* * L P CBE ADSTATUS,=D'0',S19900
0x0e0314…0e04a8 Dummy {f00=0x008d, f01=0x0190, f02=»E SPBINW4,=W'28' 'ACCOUNT BLOCKED' L P B S19999 L L PS19900 P PERF QGATYP,IDACTNR1 L
0x0e04a8…0e063c Dummy {f00=0x008d, f01=0x0190, f02=» * Z L P* * T P MOVE WDEC1,ADLASTRS j T P PERF QENTRS,WDEC1
0x0e063c…0e07d0 Dummy {f00=0x008d, f01=0x0190, f02=» * r L P* NO SPACE AVAILABLE FOR TRANSACTIONRECORDS * ! 2 L P* * ! T P CBE RDPRTTYP,=D'2',S19940 NO SUITABLE PRINTER
0x0e07d0…0e0964 Dummy {f00=0x008d, f01=0x0190, f02=» * ! L P* SAVINGS ACCOUNT, PRINT UNSTATEMENTED TRANSACTIONS * " B L P* * " P PERF PBBOOK " P B S19908 " P
0x0e0964…0e0af8 Dummy {f00=0x008d, 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 #
0x0e0af8…0e0c8c Dummy {f00=0x008d, 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
0x0e0c8c…0e0e20 Dummy {f00=0x008d, 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
0x0e0e20…0e0fb4 (2, 208) Dummy {f00=0x008d, 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
0x0e0fb4…0e1148 Dummy {f00=0x008d, f01=0x0190, f02=» & r P PBIN XWRET ' 2 L PS20000 ' F L P* * ' L P* ACCOUNTRECORD IN RANGE ?
0x0e1148…0e12dc Dummy {f00=0x008d, f01=0x0190, f02=»NR2,=D'168000',S20100 ' L P CBG IDACTNR2,=D'168999',S20100 ( F L P B S20200 ( L PS20100
0x0e12dc…0e1470 Dummy {f00=0x008d, f01=0x0190, f02=»NW4,=W'1' 'VALUE NOT IN RANGE' ( L P B S20999 ) F L PS20200 ) L P*
0x0e1470…0e1604 Dummy {f00=0x008d, f01=0x0190, f02=» * ) T P CBNE IDACTNR1,IDACTNR2,S20300 * F L P MOVE XWRET,=W'1' * L P MOVE SPBINW4,=W'36' 'SAME
0x0e1604…0e1798 Dummy {f00=0x008d, f01=0x018e, f02=»0300 * L P* * + N L P* READ ACCOUNT(TO)-RECORD VIA INDEXFILE-1 * + L P*
0x0e1798…0e192c Dummy {f00=0x008d, f01=0x0190, f02=» + > T P MUL BDACTRNR,KDSHIFT , J P PERF ZCRDD,BDACTRNR,NDLRN2,KW1 , ` T P TBT SBCANCEL,S20999 , L P T
0x0e192c…0e1ac0 Dummy {f00=0x008d, f01=0x0190, f02=» , V L P* * - L P* ACCOUNT NOT CLOSED ? * - f L P* * - L P C
0x0e1ac0…0e1c54 (2, 209) Dummy {f00=0x008e, f01=0x0190, f02=» - V L PS20600 . L P* * . f L P* STATUS DEBLOCKED ? * . L P*
0x0e1c54…0e1de8 Dummy {f00=0x008e, 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
0x0e1de8…0e1f7c Dummy {f00=0x008e, f01=0x0190, f02=» * / ^ L P* SPACE AVAILABLE FOR TRANSACTION-RECORDS? * 0 L P* * 0 n T P MOVE WDEC1,BDLASTRS
0x0e1f7c…0e2110 Dummy {f00=0x008e, 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
0x0e2110…0e22a4 Dummy {f00=0x008e, f01=0x0190, f02=»E XWRET,=W'1' 1 L PS20999 2 L P RET 2 f L P PEND 2 L P**
0x0e22a4…0e2438 Dummy {f00=0x008e, f01=0x0190, f02=» 2 V L PPRT004 FRMT 3 L P FTEXT '0+' 3 f L P FMEL '9',RDSHRPRT 3 L P F
0x0e2438…0e25cc Dummy {f00=0x008e, 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
0x0e25cc…0e2760 Dummy {f00=0x008e, 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
0x0e2760…0e28f4 (2, 210) Dummy {f00=0x008e, 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
0x0e28f4…0e2a88 Dummy {f00=0x008e, f01=0x0190, f02=» 6 V L P************************************************************************ 7 L P* * 7 f L P* TRANSFER SCREEN * 7 L P*
0x0e2a88…0e2c1c Dummy {f00=0x008e, f01=0x0190, f02=»************** 7 V L PFMT045 FRMT 8 L P FSL 8 f L P FTEXT 'TRANSFER FROM ACCOUNT : ' 8 L P F
0x0e2c1c…0e2db0 Dummy {f00=0x008e, f01=0x0190, f02=» 8 V L P FMEL 'ZZZZZZ',ADATRNR 9 L P FB F04520 9 f L PF04510 9 L P F
0x0e2db0…0e2f44 Dummy {f00=0x008e, f01=0x0190, f02=» 9 V L P FNL : L P FBT SBCHQACT,F04530 : f L P FTEXT 'BOOK BALANCE: ' : L P F
0x0e2f44…0e30d8 Dummy {f00=0x008e, 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
0x0e30d8…0e326c Dummy {f00=0x008e, f01=0x0190, f02=» ; V L P FTEXT 'CREDIT LIMIT : ' < L P FMEL 'ZZZZZZZZ9,99',ADLIMBOK < f L PF04540 < L P F
0x0e326c…0e3400 Dummy {f00=0x008e, 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
0x0e3400…0e3594 (2, 211) Dummy {f00=0x008e, 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
0x0e3594…0e3728 Dummy {f00=0x008e, 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
0x0e3728…0e38bc Dummy {f00=0x008e, 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
0x0e38bc…0e3a50 Dummy {f00=0x008e, 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
0x0e3a50…0e3be4 Dummy {f00=0x008e, 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
0x0e3be4…0e3d78 Dummy {f00=0x008e, f01=0x0190, f02=» L PDE600 L P MOVE ADACTRNR,IDACTNR1 T L P MUL ADACTRNR,KDSHIFT L P MOVE WW1,=W'132' RE
0x0e3d78…0e3f0c Dummy {f00=0x008e, 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
0x0e3f0c…0e40a0 Dummy {f00=0x008e, 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*
0x0e40a0…0e4234 (2, 212) Opaque[0x194]
0x0e4234…0e43c8 # DirEnt {nam=»DOQCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11d8, f03=0x0000}
0x0e4234…0e43c8 IdxSect {
0x0e4234…0e43c8 f00 = 0x008e // 0xe4234 @0x0
0x0e4234…0e43c8 f01 = 0x0002 // 0xe4236 @0x2
0x0e4234…0e43c8 gno = [ // 0xe4238 @0x4
0x0e4234…0e43c8 [0x00]: C0x008e.0x3.0
0x0e4234…0e43c8 ]
0x0e4234…0e43c8 }
0x0e43c8…0e455c Dummy {f00=0x008e, 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**********************************************************************
0x0e455c…0e46f0 Dummy {f00=0x008e, 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
0x0e46f0…0e4884 Dummy {f00=0x008e, 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
0x0e4884…0e4a18 Dummy {f00=0x008e, 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
0x0e4a18…0e4bac Dummy {f00=0x008e, 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
0x0e4bac…0e4d40 Dummy {f00=0x008e, f01=0x0190, f02=»D NEXT RECORD L P* * L . P* 'NO DATA' IS OFF, CHECK FOR DISK-ERRORS L P*
0x0e4d40…0e4ed4 (2, 213) Opaque[0x194]
0x0e4ed4…0e5068 # DirEnt {nam=»DPECCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11e0, f03=0x0000}
0x0e4ed4…0e5068 IdxSect {
0x0e4ed4…0e5068 f00 = 0x008f // 0xe4ed4 @0x0
0x0e4ed4…0e5068 f01 = 0x000e // 0xe4ed6 @0x2
0x0e4ed4…0e5068 gno = [ // 0xe4ed8 @0x4
0x0e4ed4…0e5068 [0x00]: C0x008f.0x0.0
0x0e4ed4…0e5068 [0x01]: C0x008f.0x1.0
0x0e4ed4…0e5068 [0x02]: C0x008f.0x2.0
0x0e4ed4…0e5068 [0x03]: C0x008f.0x3.0
0x0e4ed4…0e5068 [0x04]: C0x0090.0x0.0
0x0e4ed4…0e5068 [0x05]: C0x0090.0x1.0
0x0e4ed4…0e5068 [0x06]: C0x0090.0x2.0
0x0e4ed4…0e5068 ]
0x0e4ed4…0e5068 }
0x0e5068…0e51fc Dummy {f00=0x008f, f01=0x0190, f02=» 0 P IDENT DPECCY EXCHANGE CURRENCY L P DDUM DEMODD 8 L P PDIV P P EXPROC PAJRN
0x0e51fc…0e5390 Dummy {f00=0x008f, f01=0x0190, f02=» L P ENTRY DPECCY D L P ENTRY SPAP26 L P************************************
0x0e5390…0e5524 Dummy {f00=0x008f, f01=0x0190, f02=»E: DPECCY * L P* FUNCTIONAL DESCRIPTION: * D L P* EXCHANGE CURRENCY (BUYING OR SELLING) * L P* - IF THE FUNCTON-CHOISE INPUT
0x0e5524…0e56b8 Dummy {f00=0x008f, 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
0x0e56b8…0e584c Dummy {f00=0x008f, 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
0x0e584c…0e59e0 Dummy {f00=0x008f, 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
0x0e59e0…0e5b74 (2, 214) Dummy {f00=0x008f, 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
0x0e5b74…0e5d08 Dummy {f00=0x008f, f01=0x0190, f02=»************************************************************ L PDPECCY PROC D L PDP000 L P SET SBECCY
0x0e5d08…0e5e9c Dummy {f00=0x008f, 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
0x0e5e9c…0e6030 Dummy {f00=0x008f, 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
0x0e6030…0e61c4 Dummy {f00=0x008f, f01=0x0190, f02=» L P* 'OUT': CURRENCY SELLING * L P* * T L P MOVE TDTRSCDE,=D'91' L P MOVE IDNR1,CDSEL1 R
0x0e61c4…0e6358 Dummy {f00=0x008f, f01=0x0190, f02=» L P B DP300 L P* * T L P* 'IN': CURRENCY BUYING * L P*
0x0e6358…0e64ec Dummy {f00=0x008f, 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*
0x0e64ec…0e6680 Dummy {f00=0x008f, f01=0x0190, f02=» * R L P* * L PDP300 b L P MOVE IDNR4,=D'1' INIT CONTINUATION FIELD L P MOVE
0x0e6680…0e6814 (2, 215) Dummy {f00=0x008f, 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
0x0e6814…0e69a8 Dummy {f00=0x008f, f01=0x0190, f02=» * d L P ADD YDLASSEQ,=D'1' $ L P MOVE TDTRSSEQ,YDLASSEQ TRANSACTION SEQUENCE NR. t L P*
0x0e69a8…0e6b3c Dummy {f00=0x008f, 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
0x0e6b3c…0e6cd0 Dummy {f00=0x008f, 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
0x0e6cd0…0e6e64 Dummy {f00=0x008f, 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
0x0e6e64…0e6ff8 Dummy {f00=0x008f, f01=0x0190, f02=» d L P MOVE IDAMT1,IDAMT2 $ L P MOVE IDAMT2,WDEC1 t L P*
0x0e6ff8…0e718c Dummy {f00=0x008f, f01=0x0190, f02=» * d L PDP700 $ L P TBF SBFLDEMP,DP800 t L P TBT SBCCYIN,DP750
0x0e718c…0e7320 Dummy {f00=0x008f, 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>
0x0e7320…0e74b4 (2, 216) Dummy {f00=0x008f, f01=0x0190, f02=» & SOLD d L P B DP800 L P* * ` L P* 'IN': CURRENCY BUYING * L P*
0x0e74b4…0e7648 Dummy {f00=0x008f, 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
0x0e7648…0e77dc Dummy {f00=0x008f, 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
0x0e77dc…0e7970 Dummy {f00=0x008f, f01=0x0190, f02=»0 L PDP999 L L P CLEAR SBECCY L P CLEAR SBCCYIN
0x0e7970…0e7b04 Dummy {f00=0x008f, f01=0x0190, f02=»D L P************************************************************************ L L P* * L P* PROCEDURE: SPAP26
0x0e7b04…0e7c98 Dummy {f00=0x008f, 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
0x0e7c98…0e7e2c Dummy {f00=0x008f, 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*
0x0e7e2c…0e7fc0 Dummy {f00=0x008f, 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*
0x0e7fc0…0e8154 (2, 217) Dummy {f00=0x0090, f01=0x018e, f02=»IS CLOSED WITH V $ P* AN EOI OR NOT L P* * > L P************************************************************************ L PSPAP26 PROC XWRET
0x0e8154…0e82e8 Dummy {f00=0x0090, 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
0x0e82e8…0e847c Dummy {f00=0x0090, 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*
0x0e847c…0e8610 Dummy {f00=0x0090, 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
0x0e8610…0e87a4 Dummy {f00=0x0090, f01=0x0190, f02=» * ! v L P* START THE CALCULATION WITH RATE 1 * " 6 L P* * " L P MOVE IDAMT2,IDAMT1
0x0e87a4…0e8938 Dummy {f00=0x0090, 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
0x0e8938…0e8acc Dummy {f00=0x0090, f01=0x0190, f02=» L P MOVE IDAMT2,IDAMT1 $ L P MUL IDAMT2,IDNR2 $ T L P DVR IDAMT2,CDRELAT $ P DVR IDAMT2,=D'100'
0x0e8acc…0e8c60 Dummy {f00=0x0090, f01=0x0190, f02=» * $ ` L P* AMOUNT IS CLOSED WITH EOI, * % L P* THEN THE AMOUNT QUOTED IS IN THE SYSTEM CURRENCY * % p L P* *
0x0e8c60…0e8df4 (2, 218) Dummy {f00=0x0090, f01=0x0190, f02=» % ` L P MOVE ICTEXT1,YCCCY(KW4) SYSTEM CURRENCY & L P MOVE ICTEXT2,CCCCYCDE FOREIGN CURRENCY & p L P* *
0x0e8df4…0e8f88 Dummy {f00=0x0090, f01=0x0190, f02=» * & J L P MOVE IDAMT2,IDAMT1 ' L P MUL IDAMT2,CDRELAT ' Z P MUL IDAMT2,=D'100' ' L P*
0x0e8f88…0e911c Dummy {f00=0x0090, 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
0x0e911c…0e92b0 Dummy {f00=0x0090, f01=0x0190, f02=» ( f L P DVR IDAMT2,IDNR2 ) & L P B S26800 ) v L P* USE RATE 1
0x0e92b0…0e9444 Dummy {f00=0x0090, f01=0x0190, f02=» ) f L P* * * & L P* REDISPLAY THE CURRENT LINE AND THE NEXT ONE * * v L P*
0x0e9444…0e95d8 Dummy {f00=0x0090, f01=0x0190, f02=» * f L P DISPLAY 4,KW3,KW4 + & L PS26999 + v L P RET
0x0e95d8…0e976c Dummy {f00=0x0090, f01=0x407a, f02=»****************************** + f L P END , &@ , v99 + v L P RET
0x0e976c…0e9900 Dummy {f00=0x0090, f01=0x2008, f02=» - x@ 8AR SBCCYIN 8 L P RET L P PEND
0x0e9900…0e9a94 (2, 219) Dummy {f00=0x0090, f01=0x0190, f02=»12' ~ L P PERF PAJRN,=W'2' > : P MOVE ICTEXT3,YCCCY(KW4) SYSTEM CURRENCY L P PERF PAJRN,=W'4'
0x0e9a94…0e9c28 Dummy {f00=0x0090, f01=0x0190, f02=» l L PDN100 , L P* * | L P* UPDATE ACCOUNT-RECORD(FROM)
0x0e9c28…0e9dbc Dummy {f00=0x0090, 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
0x0e9dbc…0e9f50 Dummy {f00=0x0090, f01=0x0190, f02=» j L PDN200 * L P* * z L P* UPDATE ACCOUNT-RECORD(TO)
0x0e9f50…0ea0e4 Dummy {f00=0x0090, f01=0x0190, f02=» j , P PERF QENTRS,BDLASTRS UPDATE LAST TRANS. * L PDN210 Z L P ADD BDDEPCUM,TDAMOUNT L P MOVE BDLASSEQ
0x0ea0e4…0ea278 Dummy {f00=0x0090, f01=0x0190, f02=» J L P* * L P* UPDATE TRANSACTION-RECORD(FROM) * Z L P* * L P MOVE TDTRSRNR
0x0ea278…0ea40c Dummy {f00=0x0090, 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
0x0ea40c…0ea5a0 Dummy {f00=0x0090, f01=0x0190, f02=» MOVE UDACTFRM,IDACTNR1 PDN500 L P* * . L P* (RE)WRITE ACCOUNT- AND TRANSACTIONRECORDS * ~ L P*
0x0ea5a0…0ea734 (2, 220) Opaque[0x194]
0x0ea734…0ea8c8 # DirEnt {nam=»DQCOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x0ea734…0ea8c8 IdxSect {
0x0ea734…0ea8c8 f00 = 0x0090 // 0xea734 @0x0
0x0ea734…0ea8c8 f01 = 0x0004 // 0xea736 @0x2
0x0ea734…0ea8c8 gno = [ // 0xea738 @0x4
0x0ea734…0ea8c8 [0x00]: C0x0090.0x3.0
0x0ea734…0ea8c8 [0x01]: C0x0091.0x0.0
0x0ea734…0ea8c8 ]
0x0ea734…0ea8c8 }
0x0ea8c8…0eaa5c Dummy {f00=0x0090, 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
0x0eaa5c…0eabf0 Dummy {f00=0x0090, f01=0x0190, f02=»********************************** j P* * P* CLOSE OPERATOR 4 P* L L P************************************************************************ V L PDQCOPR PROC P CLEAR SBOPRCLS
0x0eabf0…0ead84 Dummy {f00=0x0090, 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
0x0ead84…0eaf18 Dummy {f00=0x0090, 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
0x0eaf18…0eb0ac Dummy {f00=0x0090, f01=0x018e, f02=» * L P* PRINT CURRENCY CODES AND OPERATOR BALANCES * J L P* * L P******************************
0x0eb0ac…0eb240 Dummy {f00=0x0090, f01=0x0190, f02=» T P MOVE TDAMOUNT,ODCASH(KW1,KW4) CASH BALANCE T P PERF PAJRN,=W'7' L P* * T P MOV
0x0eb240…0eb3d4 (2, 221) Dummy {f00=0x0091, f01=0x0190, f02=»1 T P PERF PAJRN,=W'7' $ L P* * | T P MOVE ICTEXT3,YCCCY(KW2) CURRENCY CODE 2
0x0eb3d4…0eb568 Dummy {f00=0x0091, f01=0x0190, f02=» | L P* * D T P MOVE ICTEXT3,YCCCY(KW3) CURRENCY CODE 3 T P MOVE TDAMOUNT,ODCASH(KW1,KW
0x0eb568…0eb6fc Dummy {f00=0x0091, 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
0x0eb6fc…0eb890 Dummy {f00=0x0091, f01=0x4148, f02=» L P RET L P PEND T L P************************************************************************ L P END
0x0eb890…0eba24 Dummy {f00=0x0091, f01=0x2008, f02=» x L P PEND 8 L P END @ RY DQCOPR
0x0eba24…0ebbb8 Dummy {f00=0x0091, 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
0x0ebbb8…0ebd4c Dummy {f00=0x0091, 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
0x0ebd4c…0ebee0 Dummy {f00=0x0091, 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
0x0ebee0…0ec074 (2, 222) Opaque[0x194]
0x0ec074…0ec208 # DirEnt {nam=»ZFMTIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1228, f03=0x0000}
0x0ec074…0ec208 IdxSect {
0x0ec074…0ec208 f00 = 0x0091 // 0xec074 @0x0
0x0ec074…0ec208 f01 = 0x0002 // 0xec076 @0x2
0x0ec074…0ec208 gno = [ // 0xec078 @0x4
0x0ec074…0ec208 [0x00]: C0x0091.0x1.0
0x0ec074…0ec208 ]
0x0ec074…0ec208 }
0x0ec208…0ec39c Dummy {f00=0x0091, 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
0x0ec39c…0ec530 Dummy {f00=0x0091, 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
0x0ec530…0ec6c4 Dummy {f00=0x0091, 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
0x0ec6c4…0ec858 Dummy {f00=0x0091, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x0ec858…0ec9ec Dummy {f00=0x0091, 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,
0x0ec9ec…0ecb80 Dummy {f00=0x0091, 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,
0x0ecb80…0ecd14 (2, 223) Opaque[0x194]
0x0ecd14…0ecea8 # DirEnt {nam=»CGCSYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1230, f03=0x0000}
0x0ecd14…0ecea8 IdxSect {
0x0ecd14…0ecea8 f00 = 0x0091 // 0xecd14 @0x0
0x0ecd14…0ecea8 f01 = 0x000a // 0xecd16 @0x2
0x0ecd14…0ecea8 gno = [ // 0xecd18 @0x4
0x0ecd14…0ecea8 [0x00]: C0x0091.0x2.0
0x0ecd14…0ecea8 [0x01]: C0x0091.0x3.0
0x0ecd14…0ecea8 [0x02]: C0x0092.0x0.0
0x0ecd14…0ecea8 [0x03]: C0x0092.0x1.0
0x0ecd14…0ecea8 [0x04]: C0x0092.0x2.0
0x0ecd14…0ecea8 ]
0x0ecd14…0ecea8 }
0x0ecea8…0ed03c Dummy {f00=0x0091, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x0ed03c…0ed1d0 Dummy {f00=0x0091, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x0ed1d0…0ed364 Dummy {f00=0x0091, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x0ed364…0ed4f8 Dummy {f00=0x0091, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x0ed4f8…0ed68c Dummy {f00=0x0091, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x0ed68c…0ed820 Dummy {f00=0x0091, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x0ed820…0ed9b4 (2, 224) Dummy {f00=0x0091, 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
0x0ed9b4…0edb48 Dummy {f00=0x0091, 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
0x0edb48…0edcdc Dummy {f00=0x0091, f01=0x0190, f02=» X PCG110 L P B CG990 & L P* * v L P* ALL UWB'S ARE NOT USED
0x0edcdc…0ede70 Dummy {f00=0x0091, 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*
0x0ede70…0ee004 Dummy {f00=0x0091, f01=0x0190, f02=» L P* * L P SET SBCSYS T L P PERF PAJRN,=W'1' P* F P* START SE
0x0ee004…0ee198 Dummy {f00=0x0091, 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
0x0ee198…0ee32c Dummy {f00=0x0091, 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
0x0ee32c…0ee4c0 Dummy {f00=0x0091, 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
0x0ee4c0…0ee654 (2, 225) Dummy {f00=0x0092, 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
0x0ee654…0ee7e8 Dummy {f00=0x0092, 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,=
0x0ee7e8…0ee97c Dummy {f00=0x0092, 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
0x0ee97c…0eeb10 Dummy {f00=0x0092, 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
0x0eeb10…0eeca4 Dummy {f00=0x0092, 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
0x0eeca4…0eee38 Dummy {f00=0x0092, 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)
0x0eee38…0eefcc Dummy {f00=0x0092, 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
0x0eefcc…0ef160 Dummy {f00=0x0092, 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*
0x0ef160…0ef2f4 (2, 226) Dummy {f00=0x0092, f01=0x0190, f02=» L P* * T PCG350 T T P MOVE ODCASH(KW1,KW1),IDNR1 T P MOV
0x0ef2f4…0ef488 Dummy {f00=0x0092, f01=0x0190, f02=» T P MOVE ODCASH(KW1,KW4),IDNR4 $ T P MOVE ODCASH(KW2,KW1),IDACTNR1 | T P MOVE ODCASH(KW3,KW1),IDACTNR2
0x0ef488…0ef61c Dummy {f00=0x0092, f01=0x0190, f02=»(KW3,KW3),IDAMT2 L P* * L L P* DISPLAY OPERATOR CLOSE SCREENS * L P*
0x0ef61c…0ef7b0 Dummy {f00=0x0092, f01=0x0190, f02=» T P PERF XBFMT,=W'60' PCG390 T P TBT SBCANCEL,CG980 j L PCG500
0x0ef7b0…0ef944 Dummy {f00=0x0092, f01=0x0190, f02=» b & P MOVE YDSTATUS,=D'3' SYSTEM CLOSED " L P* * L L P* WRITE THE SYSTEM RECORD * L P*
0x0ef944…0efad8 Dummy {f00=0x0092, 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
0x0efad8…0efc6c Dummy {f00=0x0092, f01=0x0190, f02=»* CANCEL EXIT, RESTORE STATUS * L P* * P L PCG980 L P MOVE YDSTATUS,=D'2' SYS
0x0efc6c…0efe00 Dummy {f00=0x0092, 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
0x0efe00…0eff94 (2, 227) Dummy {f00=0x0092, f01=0x4086, f02=»****************************************** r L P END 2@
0x0eff94…0f0128 Dummy {f00=0x0092, f01=0x2008, f02=» IDENT CGCSYS CLOSE SYSTEM @ D
0x0f0128…0f02bc Dummy {f00=0x0092, 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
0x0f02bc…0f0450 Dummy {f00=0x0092, 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
0x0f0450…0f05e4 Dummy {f00=0x0092, 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,
0x0f05e4…0f0778 Dummy {f00=0x0092, 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
0x0f0778…0f090c Dummy {f00=0x0092, 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
0x0f090c…0f0aa0 Dummy {f00=0x0092, 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
0x0f0aa0…0f0c34 (2, 228) Opaque[0x194]
0x0f0c34…0f0dc8 # DirEnt {nam=»TRNLKO«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1258, f03=0x0000}
0x0f0c34…0f0dc8 IdxSect {
0x0f0c34…0f0dc8 f00 = 0x0092 // 0xf0c34 @0x0
0x0f0c34…0f0dc8 f01 = 0x0004 // 0xf0c36 @0x2
0x0f0c34…0f0dc8 gno = [ // 0xf0c38 @0x4
0x0f0c34…0f0dc8 [0x00]: C0x0092.0x3.0
0x0f0c34…0f0dc8 [0x01]: C0x0093.0x0.0
0x0f0c34…0f0dc8 ]
0x0f0c34…0f0dc8 }
0x0f0dc8…0f0f5c Dummy {f00=0x0092, f01=0x0190, f02=» PASG /2,NO J PTRA AADEMO,NL J PTRA BASPCT,NL d J PTRA BCSTTO,NL J PTRA BESE
0x0f0f5c…0f10f0 Dummy {f00=0x0092, f01=0x0190, f02=» d J PTRA CEGACT,NL " PKPF /O p PSCR ~ J PTRA CFCHKH,NL J PTRA CGCSYS,NL
0x0f10f0…0f1284 Dummy {f00=0x0092, f01=0x0190, f02=» R J PTRA DDTP71,NL J PTRA DELACT,NL ^ PKPF /O PSCR J PTRA DFOACT,NL
0x0f1284…0f1418 Dummy {f00=0x0092, f01=0x0190, f02=» b J PTRA DIQACT,NL J PTRA DJUACT,NL n PTRA DKDSTM,NL PKPF /O PSCR J PTRA DLDEP,NL
0x0f1418…0f15ac Dummy {f00=0x0092, f01=0x0190, f02=»F,NL J PTRA DOQCCY,NL F J PTRA DPECCY,NL J PTRA DQCOPR,NL
0x0f15ac…0f1740 Dummy {f00=0x0092, 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
0x0f1740…0f18d4 (2, 229) Dummy {f00=0x0093, f01=0x018a, f02=» H J PTRA XOPINP,NL PKPF /O V PSCR d J PTRA ZDSCIO,NL p J PTRA ZFMTIO,NL
0x0f18d4…0f1a68 Dummy {f00=0x0093, f01=0x2008, f02=» TRA XOPINP,NL PKPF /O V PSCR d J PTRA ZDSCIO,NL p J PTRA ZFMTIO,NL
0x0f1a68…0f1bfc Dummy {f00=0x0093, 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
0x0f1bfc…0f1d90 Dummy {f00=0x0093, 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
0x0f1d90…0f1f24 Dummy {f00=0x0093, 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
0x0f1f24…0f20b8 Dummy {f00=0x0093, 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 _
0x0f20b8…0f224c Dummy {f00=0x0093, 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 & "
0x0f224c…0f23e0 Dummy {f00=0x0093, f01=0xc18c, f02=» 0 @ P ` p , 0 0
0x0f23e0…0f2574 (2, 230) Opaque[0x194]
0x0f2574…0f2708 # DirEnt {nam=»TRANSL«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1268, f03=0x0000}
0x0f2574…0f2708 IdxSect {
0x0f2574…0f2708 f00 = 0x0093 // 0xf2574 @0x0
0x0f2574…0f2708 f01 = 0x0004 // 0xf2576 @0x2
0x0f2574…0f2708 gno = [ // 0xf2578 @0x4
0x0f2574…0f2708 [0x00]: C0x0093.0x1.0
0x0f2574…0f2708 [0x01]: C0x0093.0x2.0
0x0f2574…0f2708 ]
0x0f2574…0f2708 }
0x0f2708…0f289c Dummy {f00=0x0093, f01=0x018e, f02=» H PTRA AADEMO H PTRA BASPCT P H PTRA BCSTTO H PTRA BESELF
0x0f289c…0f2a30 Dummy {f00=0x0093, f01=0x0190, f02=» H PTRA CEGACT H PTRA CFCHKH P H PTRA CGCSYS PTRA DAUCCY PTRA DBUOPR
0x0f2a30…0f2bc4 Dummy {f00=0x0093, f01=0x0190, f02=» | PTRA DGCACT 8 H PTRA DHBACT J PTRA DIQACT H PTRA DJUACT PTRA DKDSTM H PTR
0x0f2bc4…0f2d58 Dummy {f00=0x0093, f01=0x0190, f02=» R PTRA DNTRF PTRA DOQCCY PTRA DPECCY 2 H PTRA DQCOPR D H PTRA EINIT PTRA PBBOOK H PTRA PRINT
0x0f2d58…0f2eec Dummy {f00=0x0093, f01=0x018e, f02=» L PTRA DEMSCR H PTRA SPACHQ PTRA XBFMT f PTRA XMESG x PTRA XOPINP H PTRA ZDSCIO H PTRA ZFMTIO
0x0f2eec…0f3080 Dummy {f00=0x0093, f01=0x0038, f02=» PASM QEMOVE PASM DEFDOC PASG /E0,TY10 ( PTRA XBFMT f PTRA XMESG x PTRA XOPINP H PTRA ZDSCIO H PTRA ZFMTIO
0x0f3080…0f3214 (2, 231) Dummy {f00=0x0093, f01=0x2008, f02=»
0x0f3214…0f33a8 Dummy {f00=0x0093, 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 _
0x0f33a8…0f353c Dummy {f00=0x0093, 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 & "
0x0f353c…0f36d0 Dummy {f00=0x0093, f01=0x0190, f02=» 0 @ P ` p J F " D L )RL RW@6R $(,0!_L RW* RW& RW" RW RW RW RW RW RW
0x0f36d0…0f3864 Dummy {f00=0x0093, 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
0x0f3864…0f39f8 Dummy {f00=0x0093, 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
0x0f39f8…0f3b8c Dummy {f00=0x0093, f01=0x0190, f02=» ( 8 # J ( Z +0 j ( | & ( $ &" FORMAT FILE VOLUME NAME ? DSC & M & ( E &
0x0f3b8c…0f3d20 Dummy {f00=0x0093, 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
0x0f3d20…0f3eb4 (2, 232) Opaque[0x194]
0x0f3eb4…0f4048 # DirEnt {nam=»XBFMT «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x0f3eb4…0f4048 IdxSect {
0x0f3eb4…0f4048 f00 = 0x0093 // 0xf3eb4 @0x0
0x0f3eb4…0f4048 f01 = 0x000c // 0xf3eb6 @0x2
0x0f3eb4…0f4048 gno = [ // 0xf3eb8 @0x4
0x0f3eb4…0f4048 [0x00]: C0x0093.0x3.0
0x0f3eb4…0f4048 [0x01]: C0x0094.0x0.0
0x0f3eb4…0f4048 [0x02]: C0x0094.0x1.0
0x0f3eb4…0f4048 [0x03]: C0x0094.0x2.0
0x0f3eb4…0f4048 [0x04]: C0x0094.0x3.0
0x0f3eb4…0f4048 [0x05]: C0x0095.0x0.0
0x0f3eb4…0f4048 ]
0x0f3eb4…0f4048 }
0x0f4048…0f41dc Dummy {f00=0x0093, f01=0x0190, f02=» * P IDENT XBFMT SCREEN-CONTROL L P DDUM DEMODD 2 L P PDIV L P ENTRY XBFMT
0x0f41dc…0f4370 Dummy {f00=0x0093, f01=0x0190, f02=»ROC ZMRDF P EXPROC XCLAMP P P EXPROC XEERR f L P************************************************************************ | L P*
0x0f4370…0f4504 Dummy {f00=0x0093, 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
0x0f4504…0f4698 Dummy {f00=0x0093, 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*
0x0f4698…0f482c Dummy {f00=0x0093, f01=0x0190, f02=» * P L P* FOR AN AD85 SCREEN : FKI 37 * L P* FCOPY DUMMY * ` L P* FOR OTHER SCREENS : FNL * L P*
0x0f482c…0f49c0 Dummy {f00=0x0093, 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*
0x0f49c0…0f4b54 (2, 233) Dummy {f00=0x0094, 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*
0x0f4b54…0f4ce8 Dummy {f00=0x0094, f01=0x0190, f02=»ULE * P L P* PARAMETERS : * L P* FORMATNUMBER ( INPUT ) * ` L P* CANCEL-SWITCH ( OUTPUT ) * L P*
0x0f4ce8…0f4e7c Dummy {f00=0x0094, 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*
0x0f4e7c…0f5010 Dummy {f00=0x0094, f01=0x0190, f02=» * P L P************************************************************************ PXBFMT PROC PWFMTNR ` P PLIT PWFMTNR L PXB000 P MOVE WW1,PWFMTNR
0x0f5010…0f51a4 Dummy {f00=0x0094, 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
0x0f51a4…0f5338 Dummy {f00=0x0094, 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
0x0f5338…0f54cc Dummy {f00=0x0094, 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
0x0f54cc…0f5660 Dummy {f00=0x0094, 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
0x0f5660…0f57f4 (2, 234) Dummy {f00=0x0094, 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
0x0f57f4…0f5988 Dummy {f00=0x0094, 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
0x0f5988…0f5b1c Dummy {f00=0x0094, 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
0x0f5b1c…0f5cb0 Dummy {f00=0x0094, 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
0x0f5cb0…0f5e44 Dummy {f00=0x0094, 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
0x0f5e44…0f5fd8 Dummy {f00=0x0094, 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
0x0f5fd8…0f616c Dummy {f00=0x0094, 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************************************************************************
0x0f616c…0f6300 Dummy {f00=0x0094, 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*
0x0f6300…0f6494 (2, 235) Dummy {f00=0x0094, 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
0x0f6494…0f6628 Dummy {f00=0x0094, 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
0x0f6628…0f67bc Dummy {f00=0x0094, f01=0x0190, f02=» * L P************************************************************************ @ PSQSCRN PROC T PSQ000 T P TBF SB34KB,
0x0f67bc…0f6950 Dummy {f00=0x0094, f01=0x0190, f02=» T L P* * L P* USE KEYTABLES-2 * l L P* *
0x0f6950…0f6ae4 Dummy {f00=0x0094, f01=0x0190, f02=» * d T P PERF SPCLRS,SPKTAB2,SPKTAB2,SPEDIT2 $ T P B SQ999 | L P* USE THE CURRENCY KEYTABLE
0x0f6ae4…0f6c78 Dummy {f00=0x0094, f01=0x0190, f02=»A,SPKTAB2A,SPEDIT2 | T P B SQ999 D L P* * L P* USE KEYTABLES-1
0x0f6c78…0f6e0c Dummy {f00=0x0094, f01=0x0190, f02=»0 T P TBT SBCCYKTB,SQ600 T L P* USE THE NORMAL SCREEN MANAGEMENT KEYTABLE * T P PERF SPCLRS
0x0f6e0c…0f6fa0 Dummy {f00=0x0094, f01=0x0190, f02=» T L P* USE THE CURRENCY KEYTABLE * T PSQ600 l T P PERF SPCLRS,SPKTAB1A,SPKTAB1A,SPEDIT1
0x0f6fa0…0f7134 (2, 236) Dummy {f00=0x0094, f01=0x0190, f02=» t T P RET < T P PEND L P****************************
0x0f7134…0f72c8 Dummy {f00=0x0094, f01=0x0190, f02=»REEN MANAGEMENT KEYTABLES * L P* * L L P************************************************************************ 2 PSPKTAB1 KTAB X'98',X'A3',X'F
0x0f72c8…0f745c Dummy {f00=0x0094, f01=0x0190, f02=»FF',X'FF', C z T P X'FF' B L P* * T PSPKTAB2 KTAB X'D8',X'E3',X'FF'
0x0f745c…0f75f0 Dummy {f00=0x0094, 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
0x0f75f0…0f7784 Dummy {f00=0x0094, f01=0x0190, f02=» ! ^ T P X'94' " & L P* * " ~ T PSPKTAB2A KTAB X'D8',X'E3',X'FF',X'D0',X'E2', C
0x0f7784…0f7918 Dummy {f00=0x0094, 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',
0x0f7918…0f7aac Dummy {f00=0x0094, 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******************************************************************
0x0f7aac…0f7c40 Dummy {f00=0x0094, f01=0x2008, f02=» %
0x0f7c40…0f7dd4 (2, 237) Dummy {f00=0x0095, 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
0x0f7dd4…0f7f68 Dummy {f00=0x0095, 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
0x0f7f68…0f80fc Dummy {f00=0x0095, 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
0x0f80fc…0f8290 Dummy {f00=0x0095, 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
0x0f8290…0f8424 Dummy {f00=0x0095, 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
0x0f8424…0f85b8 Dummy {f00=0x0095, 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,
0x0f85b8…0f874c Dummy {f00=0x0095, 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 % [ ( !!
0x0f874c…0f88e0 Dummy {f00=0x0095, 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!
0x0f88e0…0f8a74 (2, 238) Opaque[0x194]
0x0f8a74…0f8c08 # DirEnt {nam=»ZMRDF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12a8, f03=0x0000}
0x0f8a74…0f8c08 IdxSect {
0x0f8a74…0f8c08 f00 = 0x0095 // 0xf8a74 @0x0
0x0f8a74…0f8c08 f01 = 0x0008 // 0xf8a76 @0x2
0x0f8a74…0f8c08 gno = [ // 0xf8a78 @0x4
0x0f8a74…0f8c08 [0x00]: C0x0095.0x1.0
0x0f8a74…0f8c08 [0x01]: C0x0095.0x2.0
0x0f8a74…0f8c08 [0x02]: C0x0095.0x3.0
0x0f8a74…0f8c08 [0x03]: C0x0096.0x0.0
0x0f8a74…0f8c08 ]
0x0f8a74…0f8c08 }
0x0f8c08…0f8d9c Dummy {f00=0x0095, 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*
0x0f8d9c…0f8f30 Dummy {f00=0x0095, 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
0x0f8f30…0f90c4 Dummy {f00=0x0095, 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
0x0f90c4…0f9258 Dummy {f00=0x0095, 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
0x0f9258…0f93ec Dummy {f00=0x0095, 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
0x0f93ec…0f9580 Dummy {f00=0x0095, 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 :
0x0f9580…0f9714 (2, 239) Dummy {f00=0x0095, 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
0x0f9714…0f98a8 Dummy {f00=0x0095, 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
0x0f98a8…0f9a3c Dummy {f00=0x0095, 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
0x0f9a3c…0f9bd0 Dummy {f00=0x0095, 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
0x0f9bd0…0f9d64 Dummy {f00=0x0095, 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
0x0f9d64…0f9ef8 Dummy {f00=0x0095, 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
0x0f9ef8…0fa08c Dummy {f00=0x0095, 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
0x0fa08c…0fa220 Dummy {f00=0x0095, 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,
0x0fa220…0fa3b4 (2, 240) Dummy {f00=0x0095, 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
0x0fa3b4…0fa548 Dummy {f00=0x0095, f01=0x0190, f02=» L P* READ MESSAGE-FORMAT * H N P MOVE WW2,KWFMTLNG $ P MOVE WDEC1,WWCOUNT RECNR TO B
0x0fa548…0fa6dc Dummy {f00=0x0095, 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
0x0fa6dc…0fa870 Dummy {f00=0x0095, 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
0x0fa870…0faa04 Dummy {f00=0x0095, f01=0x0190, f02=» j L P EDWRT SPDSSCRN,FMTA WRITE ERROR-MESSAGE * P SET SBCANCEL ABEND z L P L PZM999
0x0faa04…0fab98 Dummy {f00=0x0095, f01=0x018e, f02=» L P F L PFMTA FRMT P FSL L P FTEXT 'FAILURE ON FOR
0x0fab98…0fad2c Dummy {f00=0x0095, 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
0x0fad2c…0faec0 Dummy {f00=0x0095, f01=0x2008, f02=» PEND * * $ * . ZCRDD PROC XDRECNR 8 RET R PEND ^ * l * v * ZDRWRD PROC XDRECNR RET PEND * * * @ ENTRY ZMRDF ENTRY ZNW
0x0faec0…0fb054 (2, 241) Dummy {f00=0x0096, 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
0x0fb054…0fb1e8 Dummy {f00=0x0096, 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
0x0fb1e8…0fb37c Dummy {f00=0x0096, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x0fb37c…0fb510 Dummy {f00=0x0096, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x0fb510…0fb6a4 Dummy {f00=0x0096, 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 >
0x0fb6a4…0fb838 Dummy {f00=0x0096, 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
0x0fb838…0fb9cc Dummy {f00=0x0096, 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
0x0fb9cc…0fbb60 Dummy {f00=0x0096, 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)
0x0fbb60…0fbcf4 (2, 242) Opaque[0x194]
0x0fbcf4…0fbe88 # DirEnt {nam=»CASTTS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12c8, f03=0x0000}
0x0fbcf4…0fbe88 IdxSect {
0x0fbcf4…0fbe88 f00 = 0x0096 // 0xfbcf4 @0x0
0x0fbcf4…0fbe88 f01 = 0x0006 // 0xfbcf6 @0x2
0x0fbcf4…0fbe88 gno = [ // 0xfbcf8 @0x4
0x0fbcf4…0fbe88 [0x00]: C0x0096.0x1.0
0x0fbcf4…0fbe88 [0x01]: C0x0096.0x2.0
0x0fbcf4…0fbe88 [0x02]: C0x0096.0x3.0
0x0fbcf4…0fbe88 ]
0x0fbcf4…0fbe88 }
0x0fbe88…0fc01c Dummy {f00=0x0096, 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
0x0fc01c…0fc1b0 Dummy {f00=0x0096, 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************************************************************
0x0fc1b0…0fc344 Dummy {f00=0x0096, 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
0x0fc344…0fc4d8 Dummy {f00=0x0096, 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**
0x0fc4d8…0fc66c Dummy {f00=0x0096, 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
0x0fc66c…0fc800 Dummy {f00=0x0096, 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
0x0fc800…0fc994 (2, 243) Dummy {f00=0x0096, f01=0x0190, f02=» L P************************************************************************ P* T P* SYSTEM START - PART 2 ^ * ~ L P************************************************************************ PCBSTTS PROC PCB000 P* P* RE
0x0fc994…0fcb28 Dummy {f00=0x0096, 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
0x0fcb28…0fccbc Dummy {f00=0x0096, 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 (
0x0fccbc…0fce50 Dummy {f00=0x0096, 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
0x0fce50…0fcfe4 Dummy {f00=0x0096, 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
0x0fcfe4…0fd178 Dummy {f00=0x0096, 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
0x0fd178…0fd30c Dummy {f00=0x0096, 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*
0x0fd30c…0fd4a0 Dummy {f00=0x0096, 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
0x0fd4a0…0fd634 (2, 244) Dummy {f00=0x0096, 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*
0x0fd634…0fd7c8 Dummy {f00=0x0096, 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
0x0fd7c8…0fd95c Dummy {f00=0x0096, 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
0x0fd95c…0fdaf0 Dummy {f00=0x0096, 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
0x0fdaf0…0fdc84 Dummy {f00=0x0096, 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
0x0fdc84…0fde18 Dummy {f00=0x0096, 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
0x0fde18…0fdfac Dummy {f00=0x0096, 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
0x0fdfac…0fe140 Dummy {f00=0x0096, 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
0x0fe140…0fe2d4 (2, 245) Opaque[0x194]
0x0fe2d4…0fe468 # DirEnt {nam=»DBUOPR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x0fe2d4…0fe468 IdxSect {
0x0fe2d4…0fe468 f00 = 0x0097 // 0xfe2d4 @0x0
0x0fe2d4…0fe468 f01 = 0x0008 // 0xfe2d6 @0x2
0x0fe2d4…0fe468 gno = [ // 0xfe2d8 @0x4
0x0fe2d4…0fe468 [0x00]: C0x0097.0x0.0
0x0fe2d4…0fe468 [0x01]: C0x0097.0x1.0
0x0fe2d4…0fe468 [0x02]: C0x0097.0x2.0
0x0fe2d4…0fe468 [0x03]: C0x0097.0x3.0
0x0fe2d4…0fe468 ]
0x0fe2d4…0fe468 }
0x0fe468…0fe5fc Dummy {f00=0x0097, 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
0x0fe5fc…0fe790 Dummy {f00=0x0097, f01=0x0190, f02=»********************************************************** * B P* UPDATE OPERATOR L * f L P************************************************************************ p L PDBUOPR PROC
0x0fe790…0fe924 Dummy {f00=0x0097, f01=0x0190, f02=» ` L P* * " L P* SYSTEM START PROGRESSING, * r L P* READ ALL OPERATOR RECORDS AND RESET STATUS TO
0x0fe924…0feab8 Dummy {f00=0x0097, 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
0x0feab8…0fec4c Dummy {f00=0x0097, 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
0x0fec4c…0fede0 Dummy {f00=0x0097, 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
0x0fede0…0fef74 (2, 246) Dummy {f00=0x0097, 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
0x0fef74…0ff108 Dummy {f00=0x0097, 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
0x0ff108…0ff29c Dummy {f00=0x0097, 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* *
0x0ff29c…0ff430 Dummy {f00=0x0097, 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
0x0ff430…0ff5c4 Dummy {f00=0x0097, 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
0x0ff5c4…0ff758 Dummy {f00=0x0097, 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
0x0ff758…0ff8ec Dummy {f00=0x0097, f01=0x0190, f02=» v N P CBE IDNR1,=D'1',DB400 ZEROISE ACCUMULATORS 6 L P* * L P* DISPLAY OPERATOR ACCUMULATORS
0x0ff8ec…0ffa80 Dummy {f00=0x0097, f01=0x0190, f02=»TOR ACCUMULATORS x L P TBT SBCANCEL,DB900 8 L P B DB500 L P*
0x0ffa80…0ffc14 (2, 247) Dummy {f00=0x0097, f01=0x0190, f02=» * x L PDB400 8 L P PERF EBZACC L PDB500
0x0ffc14…0ffda8 Dummy {f00=0x0097, 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
0x0ffda8…0fff3c Dummy {f00=0x0097, f01=0x0190, f02=» R L P************************************************************************ L P* * b L P* CHECK OPERATOR IDENTIFICATION IN OPERATOR UPDATE * L P*
0x0fff3c…1000d0 Dummy {f00=0x0097, 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
0x1000d0…100264 Dummy {f00=0x0097, f01=0x0190, f02=»400 RANGE ERROR x L P* * < L P* OPERATOR IDENTIFICATION IS IN THE RIGHT RANGE * L P*
0x100264…1003f8 Dummy {f00=0x0097, 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
0x1003f8…10058c Dummy {f00=0x0097, f01=0x0190, f02=» n L P* * L P* INITIALISE A NEW OPERATOR RECORD IN THE UWB * X L P* * N PS06100
0x10058c…100720 Dummy {f00=0x0097, f01=0x0190, f02=» J P B S06990 L P* * " P* OPERATOR NUMBER NOT IN RANGE l L P* * N PS06400
0x100720…1008b4 (2, 248) Dummy {f00=0x0097, 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**************************************************************
0x1008b4…100a48 Dummy {f00=0x0097, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x100a48…100bdc Dummy {f00=0x0097, f01=0x0190, f02=» P L P TBT SBCHEQUE,CD990 ERROR L P B CD130 NEXT CHECK ` L P* * L P* SPECIF
0x100bdc…100d70 Dummy {f00=0x0097, 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*
0x100d70…100f04 Dummy {f00=0x0097, 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'
0x100f04…101098 Dummy {f00=0x0097, f01=0x0190, f02=»**** L L P* * L P* CHECKS ON NOBOOK * L P* * L P************
0x101098…10122c Dummy {f00=0x0097, f01=0x0190, f02=» Z L P TBT SBNOBOOK,CD990 ERROR L P B CD140 NEXT CHECK j L P* * L
0x10122c…1013c0 Dummy {f00=0x0097, 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
0x1013c0…101554 (2, 249) Opaque[0x194]
0x101554…1016e8 # DirEnt {nam=»DAUCCY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x101554…1016e8 IdxSect {
0x101554…1016e8 f00 = 0x0098 // 0x101554 @0x0
0x101554…1016e8 f01 = 0x0008 // 0x101556 @0x2
0x101554…1016e8 gno = [ // 0x101558 @0x4
0x101554…1016e8 [0x00]: C0x0098.0x0.0
0x101554…1016e8 [0x01]: C0x0098.0x1.0
0x101554…1016e8 [0x02]: C0x0098.0x2.0
0x101554…1016e8 [0x03]: C0x0098.0x3.0
0x101554…1016e8 ]
0x101554…1016e8 }
0x1016e8…10187c Dummy {f00=0x0098, 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
0x10187c…101a10 Dummy {f00=0x0098, f01=0x0190, f02=» SPAP28 P ENTRY SPAP29 L P************************************************************************ & P* v P* UPDATE CURRENCY * L P************************************************************************ PDAUCCY PROC P
0x101a10…101ba4 Dummy {f00=0x0098, 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
0x101ba4…101d38 Dummy {f00=0x0098, 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
0x101d38…101ecc Dummy {f00=0x0098, 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
0x101ecc…102060 Dummy {f00=0x0098, 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
0x102060…1021f4 (2, 250) Dummy {f00=0x0098, 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
0x1021f4…102388 Dummy {f00=0x0098, 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**********************
0x102388…10251c Dummy {f00=0x0098, 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
0x10251c…1026b0 Dummy {f00=0x0098, 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
0x1026b0…102844 Dummy {f00=0x0098, 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
0x102844…1029d8 Dummy {f00=0x0098, 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
0x1029d8…102b6c Dummy {f00=0x0098, 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
0x102b6c…102d00 Dummy {f00=0x0098, 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
0x102d00…102e94 (2, 251) Dummy {f00=0x0098, 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
0x102e94…103028 Dummy {f00=0x0098, 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
0x103028…1031bc Dummy {f00=0x0098, 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
0x1031bc…103350 Dummy {f00=0x0098, 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
0x103350…1034e4 Dummy {f00=0x0098, f01=0x0190, f02=»5999 P RET P PEND B P************************************************************* 6 B P* * | B P* CDBUY1 MUST BE GREATER THEN ZERO * : P
0x1034e4…103678 Dummy {f00=0x0098, 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
0x103678…10380c Dummy {f00=0x0098, 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*
0x10380c…1039a0 Dummy {f00=0x0098, f01=0x018e, f02=» * @ P* CDSEL2 AND REDISPLAY THE WHOLE LINE * @ P* * R @ P*********************************************************** PSPAP29 PROC XWRET P PBIN XWRET P
0x1039a0…103b34 (2, 252) Dummy {f00=0x0098, 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************************************
0x103b34…103cc8 Dummy {f00=0x0098, f01=0x2008, f02=» NT DA/DB DDUM DEMODD PDIV , EXT XBFMT : EXT EAINIO L EXT EBZACC ` ENTRY DAUCCY t ENTRY DBUOPR * * * * END @
0x103cc8…103e5c Dummy {f00=0x0098, f01=0x0190, f02=» < 7 IDENT CGCSYS CLOSE SYSTEM L P DDUM DEMODD D L P PDIV P P EXPROC PAJRN
0x103e5c…103ff0 Dummy {f00=0x0098, f01=0x0190, f02=»ROC QDFUWB T P EXPROC QEMOVE T P EXPROC XBFMT j P P EXPROC XEERR
0x103ff0…104184 Dummy {f00=0x0098, f01=0x0190, f02=» j P EXPROC ZGREA 2 P P EXPROC ZLCLSF H P P EXPROC ZHWRID P EXPROC ZYRLNG P E
0x104184…104318 Dummy {f00=0x0098, f01=0x0190, f02=»********************************** j L P* * * L P* CLOSE SYSTEM * z L P*
0x104318…1044ac Dummy {f00=0x0098, f01=0x0190, f02=» j L PCG000 * L P* * z L P* ENSURE THAT NO OPERATOR IS BUSY
0x1044ac…104640 Dummy {f00=0x0098, f01=0x0190, f02=» j L P* * * L P* TEST NEXT UWB-NUMBER * z L P*
0x104640…1047d4 (2, 253) Opaque[0x194]
0x1047d4…104968 # DirEnt {nam=»DEMSCR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1320, f03=0x0000}
0x1047d4…104968 IdxSect {
0x1047d4…104968 f00 = 0x0099 // 0x1047d4 @0x0
0x1047d4…104968 f01 = 0x000a // 0x1047d6 @0x2
0x1047d4…104968 gno = [ // 0x1047d8 @0x4
0x1047d4…104968 [0x00]: C0x0099.0x0.0
0x1047d4…104968 [0x01]: C0x0099.0x1.0
0x1047d4…104968 [0x02]: C0x0099.0x2.0
0x1047d4…104968 [0x03]: C0x0099.0x3.0
0x1047d4…104968 [0x04]: C0x009a.0x0.0
0x1047d4…104968 ]
0x1047d4…104968 }
0x104968…104afc Dummy {f00=0x0099, 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
0x104afc…104c90 Dummy {f00=0x0099, 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
0x104c90…104e24 Dummy {f00=0x0099, 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.
0x104e24…104fb8 Dummy {f00=0x0099, 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
0x104fb8…10514c Dummy {f00=0x0099, 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
0x10514c…1052e0 Dummy {f00=0x0099, 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
0x1052e0…105474 (2, 254) Dummy {f00=0x0099, 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
0x105474…105608 Dummy {f00=0x0099, 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 ?
0x105608…10579c Dummy {f00=0x0099, 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
0x10579c…105930 Dummy {f00=0x0099, 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
0x105930…105ac4 Dummy {f00=0x0099, 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,
0x105ac4…105c58 Dummy {f00=0x0099, 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
0x105c58…105dec Dummy {f00=0x0099, 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**************************************************
0x105dec…105f80 Dummy {f00=0x0099, 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
0x105f80…106114 (2, 255) Dummy {f00=0x0099, 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,='
0x106114…1062a8 Dummy {f00=0x0099, 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
0x1062a8…10643c Dummy {f00=0x0099, 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*
0x10643c…1065d0 Dummy {f00=0x0099, 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
0x1065d0…106764 Dummy {f00=0x0099, 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
0x106764…1068f8 Dummy {f00=0x0099, 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
0x1068f8…106a8c Dummy {f00=0x0099, 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
0x106a8c…106c20 Dummy {f00=0x0099, 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
0x106c20…106db4 (2, 256) Dummy {f00=0x0099, 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
0x106db4…106f48 Dummy {f00=0x0099, 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**********************************************
0x106f48…1070dc Dummy {f00=0x0099, 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
0x1070dc…107270 Dummy {f00=0x0099, 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
0x107270…107404 Dummy {f00=0x0099, 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**
0x107404…107598 Dummy {f00=0x0099, 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
0x107598…10772c Dummy {f00=0x0099, 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********************************
0x10772c…1078c0 Dummy {f00=0x0099, 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
0x1078c0…107a54 (2, 257) Dummy {f00=0x009a, 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
0x107a54…107be8 Dummy {f00=0x009a, 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
0x107be8…107d7c Dummy {f00=0x009a, 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****************************************
0x107d7c…107f10 Dummy {f00=0x009a, 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****************************************
0x107f10…1080a4 Dummy {f00=0x009a, 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
0x1080a4…108238 Dummy {f00=0x009a, 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
0x108238…1083cc Dummy {f00=0x009a, f01=0x0190, f02=» * # L P************************************************************************ $ N L PQENTRS PROC XDTRS $ L PQE000
0x1083cc…108560 Dummy {f00=0x009a, 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
0x108560…1086f4 (2, 258) Opaque[0x194]
0x1086f4…108888 # DirEnt {nam=»MMU «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1348, f03=0x0000}
0x1086f4…108888 IdxSect {
0x1086f4…108888 f00 = 0x009a // 0x1086f4 @0x0
0x1086f4…108888 f01 = 0x0002 // 0x1086f6 @0x2
0x1086f4…108888 gno = [ // 0x1086f8 @0x4
0x1086f4…108888 [0x00]: C0x009a.0x1.0
0x1086f4…108888 ]
0x1086f4…108888 }
0x108888…108a1c Dummy {f00=0x009a, 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
0x108a1c…108bb0 Dummy {f00=0x009a, 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
0x108bb0…108d44 Dummy {f00=0x009a, 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
0x108d44…108ed8 Dummy {f00=0x009a, 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
0x108ed8…10906c Dummy {f00=0x009a, 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 @ &
0x10906c…109200 Dummy {f00=0x009a, 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 @ &
0x109200…109394 (2, 259) Opaque[0x194]
0x109394…109528 # DirEnt {nam=»LINDEM«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1350, f03=0x0000}
0x109394…109528 IdxSect {
0x109394…109528 f00 = 0x009a // 0x109394 @0x0
0x109394…109528 f01 = 0x0002 // 0x109396 @0x2
0x109394…109528 gno = [ // 0x109398 @0x4
0x109394…109528 [0x00]: C0x009a.0x2.0
0x109394…109528 ]
0x109394…109528 }
0x109528…1096bc Dummy {f00=0x009a, 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
0x1096bc…109850 Dummy {f00=0x009a, 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
0x109850…1099e4 Dummy {f00=0x009a, 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
0x1099e4…109b78 Dummy {f00=0x009a, 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
0x109b78…109d0c Dummy {f00=0x009a, 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
0x109d0c…109ea0 Dummy {f00=0x009a, 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 * & > * &
0x109ea0…10a034 (2, 260) Opaque[0x194]
0x10a034…10a1c8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1358, f03=0x0000}
0x10a034…10a1c8 IdxSect {
0x10a034…10a1c8 f00 = 0x009a // 0x10a034 @0x0
0x10a034…10a1c8 f01 = 0x0004 // 0x10a036 @0x2
0x10a034…10a1c8 gno = [ // 0x10a038 @0x4
0x10a034…10a1c8 [0x00]: C0x009a.0x3.0
0x10a034…10a1c8 [0x01]: C0x009b.0x0.0
0x10a034…10a1c8 ]
0x10a034…10a1c8 }
0x10a1c8…10a35c Dummy {f00=0x009a, 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
0x10a35c…10a4f0 Dummy {f00=0x009a, f01=0x0190, f02=»AB01 EQU * PCTAB02 EQU * PCTAB03 EQU * & F P DATA FUNCTN,FUNCTN,UNSHFT,SHIFT,UNSHFT,SHIFT : L P************************************************************************ L P*
0x10a4f0…10a684 Dummy {f00=0x009a, 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
0x10a684…10a818 Dummy {f00=0x009a, f01=0x0190, f02=»******************************************** t L P* * 4 L P* CONVERSION TABLE FOR UNSHIFTED CHARACTERS * L P*
0x10a818…10a9ac Dummy {f00=0x009a, 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**
0x10a9ac…10ab40 Dummy {f00=0x009a, f01=0x0190, f02=» * V L P* CONVERSION TABLE FOR SHIFTED CHARACTERS * L P* * f L P************************************************************************ L PSH
0x10ab40…10acd4 (2, 261) Dummy {f00=0x009b, 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
0x10acd4…10ae68 Dummy {f00=0x009b, f01=0x2008, f02=» A /5051,/5253,/5455,/5657,/5859,/5A7B,/7C7D,/2AFF L P************************************************************************ T L P END @
0x10ae68…10affc Dummy {f00=0x009b, 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
0x10affc…10b190 Dummy {f00=0x009b, 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
0x10b190…10b324 Dummy {f00=0x009b, 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 "
0x10b324…10b4b8 Dummy {f00=0x009b, 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 #
0x10b4b8…10b64c Dummy {f00=0x009b, 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
0x10b64c…10b7e0 Dummy {f00=0x009b, f01=0x0190, f02=» a b c d _z e f g h a b c $ % D ; % T % f < % v 0 < % 0 < % % % $ % % % ' % ,0
0x10b7e0…10b974 (2, 262) Opaque[0x194]
0x10b974…10bb08 # DirEnt {nam=»DEMCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1368, f03=0x0000}
0x10b974…10bb08 IdxSect {
0x10b974…10bb08 f00 = 0x009b // 0x10b974 @0x0
0x10b974…10bb08 f01 = 0x0002 // 0x10b976 @0x2
0x10b974…10bb08 gno = [ // 0x10b978 @0x4
0x10b974…10bb08 [0x00]: C0x009b.0x1.0
0x10b974…10bb08 ]
0x10b974…10bb08 }
0x10bb08…10bc9c Dummy {f00=0x009b, 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
0x10bc9c…10be30 Dummy {f00=0x009b, 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;
0x10be30…10bfc4 Dummy {f00=0x009b, 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;
0x10bfc4…10c158 Dummy {f00=0x009b, 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
0x10c158…10c2ec Dummy {f00=0x009b, 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
0x10c2ec…10c480 Dummy {f00=0x009b, 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
0x10c480…10c614 (2, 263) Opaque[0x194]
0x10c614…10c7a8 # DirEnt {nam=»A:DEMO«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1370, f03=0x0000}
0x10c614…10c7a8 IdxSect {
0x10c614…10c7a8 f00 = 0x009b // 0x10c614 @0x0
0x10c614…10c7a8 f01 = 0x001a // 0x10c616 @0x2
0x10c614…10c7a8 gno = [ // 0x10c618 @0x4
0x10c614…10c7a8 [0x00]: C0x009b.0x2.0
0x10c614…10c7a8 [0x01]: C0x009b.0x3.0
0x10c614…10c7a8 [0x02]: C0x009c.0x0.0
0x10c614…10c7a8 [0x03]: C0x009c.0x1.0
0x10c614…10c7a8 [0x04]: C0x009c.0x2.0
0x10c614…10c7a8 [0x05]: C0x009c.0x3.0
0x10c614…10c7a8 [0x06]: C0x009d.0x0.0
0x10c614…10c7a8 [0x07]: C0x009d.0x1.0
0x10c614…10c7a8 [0x08]: C0x009d.0x2.0
0x10c614…10c7a8 [0x09]: C0x009d.0x3.0
0x10c614…10c7a8 [0x0a]: C0x009e.0x0.0
0x10c614…10c7a8 [0x0b]: C0x009e.0x1.0
0x10c614…10c7a8 [0x0c]: C0x009e.0x2.0
0x10c614…10c7a8 ]
0x10c614…10c7a8 }
0x10c7a8…10c93c Dummy {f00=0x009b, 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
0x10c93c…10cad0 Dummy {f00=0x009b, f01=0x0190, f02=» N V 2 r A0 0 * V 8 |UBF UIF zUCY UOP UA1 NUA2 UT1 UT2 UQQ
0x10cad0…10cc64 Dummy {f00=0x009b, 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
0x10cc64…10cdf8 Dummy {f00=0x009b, f01=0x0190, f02=»0 0 0 >
0x10cdf8…10cf8c Dummy {f00=0x009b, f01=0x0190, f02=»
[…0x2…]
0x10d2b4…10d448 Dummy {f00=0x009b, f01=0x0190, f02=» * B 0 0 & , 4 < H a d * : 0 0 0 0
0x10d448…10d5dc Dummy {f00=0x009b, f01=0x0190, f02=» 0 !0 %0 )0 -0 10 7 * &0 0 0 !0 "0 $ %
0x10d5dc…10d770 Dummy {f00=0x009b, f01=0x0190, f02=» d0 f0 l0 r x | >0 0 1 E0 K0 L0 R0 X0 ^0 d0 f0 l0 r P
0x10d770…10d904 Dummy {f00=0x009b, 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 >
0x10d904…10da98 Dummy {f00=0x009b, 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
0x10da98…10dc2c Dummy {f00=0x009b, 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
0x10dc2c…10ddc0 Dummy {f00=0x009b, 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)
0x10ddc0…10df54 (2, 265) Dummy {f00=0x009c, 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 =
0x10df54…10e0e8 Dummy {f00=0x009c, 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 "
0x10e0e8…10e27c Dummy {f00=0x009c, 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
0x10e27c…10e410 Dummy {f00=0x009c, 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 *
0x10e410…10e5a4 Dummy {f00=0x009c, 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
0x10e5a4…10e738 Dummy {f00=0x009c, 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
0x10e738…10e8cc Dummy {f00=0x009c, 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
0x10e8cc…10ea60 Dummy {f00=0x009c, 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
0x10ea60…10ebf4 (2, 266) Dummy {f00=0x009c, 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 (
0x10ebf4…10ed88 Dummy {f00=0x009c, 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$
0x10ed88…10ef1c Dummy {f00=0x009c, 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
0x10ef1c…10f0b0 Dummy {f00=0x009c, 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 (
0x10f0b0…10f244 Dummy {f00=0x009c, 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 : :
0x10f244…10f3d8 Dummy {f00=0x009c, 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
0x10f3d8…10f56c Dummy {f00=0x009c, 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
0x10f56c…10f700 Dummy {f00=0x009c, 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
0x10f700…10f894 (2, 267) Dummy {f00=0x009c, 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
0x10f894…10fa28 Dummy {f00=0x009c, 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
0x10fa28…10fbbc Dummy {f00=0x009c, 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 /
0x10fbbc…10fd50 Dummy {f00=0x009c, 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
0x10fd50…10fee4 Dummy {f00=0x009c, 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 :
0x10fee4…110078 Dummy {f00=0x009c, 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 _
0x110078…11020c Dummy {f00=0x009c, 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 :
0x11020c…1103a0 Dummy {f00=0x009c, 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 _
0x1103a0…110534 (2, 268) Dummy {f00=0x009c, 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 :
0x110534…1106c8 Dummy {f00=0x009c, 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 _
0x1106c8…11085c Dummy {f00=0x009c, 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 :
0x11085c…1109f0 Dummy {f00=0x009c, 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 _
0x1109f0…110b84 Dummy {f00=0x009c, 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 :
0x110b84…110d18 Dummy {f00=0x009c, 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 _
0x110d18…110eac Dummy {f00=0x009c, 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
0x110eac…111040 Dummy {f00=0x009c, 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 @
0x111040…1111d4 (2, 269) Dummy {f00=0x009d, 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 [
0x1111d4…111368 Dummy {f00=0x009d, 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
0x111368…1114fc Dummy {f00=0x009d, 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 ^< `_@
0x1114fc…111690 Dummy {f00=0x009d, 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
0x111690…111824 Dummy {f00=0x009d, 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.
0x111824…1119b8 Dummy {f00=0x009d, 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
0x1119b8…111b4c Dummy {f00=0x009d, 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
0x111b4c…111ce0 Dummy {f00=0x009d, 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(
0x111ce0…111e74 (2, 270) Dummy {f00=0x009d, 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 : ^ ^ :
0x111e74…112008 Dummy {f00=0x009d, 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
0x112008…11219c Dummy {f00=0x009d, 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 _ : : :
0x11219c…112330 Dummy {f00=0x009d, 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!
0x112330…1124c4 Dummy {f00=0x009d, 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
0x1124c4…112658 Dummy {f00=0x009d, 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!
0x112658…1127ec Dummy {f00=0x009d, 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
0x1127ec…112980 Dummy {f00=0x009d, 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
0x112980…112b14 (2, 271) Dummy {f00=0x009d, 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
0x112b14…112ca8 Dummy {f00=0x009d, 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
0x112ca8…112e3c Dummy {f00=0x009d, 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
0x112e3c…112fd0 Dummy {f00=0x009d, 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
0x112fd0…113164 Dummy {f00=0x009d, 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
0x113164…1132f8 Dummy {f00=0x009d, 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
0x1132f8…11348c Dummy {f00=0x009d, 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
0x11348c…113620 Dummy {f00=0x009d, 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
0x113620…1137b4 (2, 272) Dummy {f00=0x009d, 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
0x1137b4…113948 Dummy {f00=0x009d, 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
0x113948…113adc Dummy {f00=0x009d, 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$
0x113adc…113c70 Dummy {f00=0x009d, 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
0x113c70…113e04 Dummy {f00=0x009d, 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 "
0x113e04…113f98 Dummy {f00=0x009d, 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
0x113f98…11412c Dummy {f00=0x009d, 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 !
0x11412c…1142c0 Dummy {f00=0x009d, 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
0x1142c0…114454 (2, 273) Dummy {f00=0x009e, 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,
0x114454…1145e8 Dummy {f00=0x009e, f01=0x0190, f02=» k : #@[ ]`{|}~ !"#$%&'()*+,-./ 0123456789:;<=>? @ABCDEFGHIJKLMNO PQRSTUVWXYZ[ ]^_ `abcdefghijklmno pqrstuvwxyz{|}~ d $ , 4 < D L T d l0 0 0 y t Z IK%I
0x1145e8…11477c Dummy {f00=0x009e, 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
0x11477c…114910 Dummy {f00=0x009e, 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 !:
0x114910…114aa4 Dummy {f00=0x009e, 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 `
0x114aa4…114c38 Dummy {f00=0x009e, 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 @ *
0x114c38…114dcc Dummy {f00=0x009e, 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 `
0x114dcc…114f60 Dummy {f00=0x009e, 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
0x114f60…1150f4 (2, 274) Dummy {f00=0x009e, 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)
0x1150f4…115288 Dummy {f00=0x009e, 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
0x115288…11541c Dummy {f00=0x009e, 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
0x11541c…1155b0 Dummy {f00=0x009e, 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
0x1155b0…115744 Dummy {f00=0x009e, 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
0x115744…1158d8 Dummy {f00=0x009e, 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
0x1158d8…115a6c Dummy {f00=0x009e, 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
0x115a6c…115c00 Dummy {f00=0x009e, 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
0x115c00…115d94 (2, 275) Dummy {f00=0x009e, 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
0x115d94…115f28 Dummy {f00=0x009e, f01=0x0002, f02=»#(
0x115f28…1160bc Dummy {f00=0x009e, f01=0x2008, f02=»
0x1160bc…116250 Dummy {f00=0x009e, 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 &
0x116250…1163e4 Dummy {f00=0x009e, f01=0x0190, f02=» & - & K & i 0 & @ & P & ` & p & & & ; & Y & w & & & &
0x1163e4…116578 Dummy {f00=0x009e, f01=0x0190, f02=» & & 9 & W 0 & u @ & P & ` & p & & & ) & G & e & & & &
0x116578…11670c Dummy {f00=0x009e, 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
0x11670c…1168a0 Dummy {f00=0x009e, 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
0x1168a0…116a34 (2, 276) Opaque[0x194]
0x116a34…116bc8 # DirEnt {nam=»EMPTY «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13d8, f03=0x0000}
0x116a34…116bc8 IdxSect {
0x116a34…116bc8 f00 = 0x009e // 0x116a34 @0x0
0x116a34…116bc8 f01 = 0x0002 // 0x116a36 @0x2
0x116a34…116bc8 gno = [ // 0x116a38 @0x4
0x116a34…116bc8 [0x00]: C0x009e.0x3.0
0x116a34…116bc8 ]
0x116a34…116bc8 }
0x116bc8…116d5c Dummy {f00=0x009e, 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
0x116d5c…116ef0 Dummy {f00=0x009e, 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
0x116ef0…117084 Dummy {f00=0x009e, 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
0x117084…117218 Dummy {f00=0x009e, 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
0x117218…1173ac Dummy {f00=0x009e, 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
0x1173ac…117540 Dummy {f00=0x009e, 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
0x117540…1176d4 (2, 277) Opaque[0x194]
0x1176d4…117868 # DirEnt {nam=»TSTCON«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x13e0, f03=0x0000}
0x1176d4…117868 IdxSect {
0x1176d4…117868 f00 = 0x009f // 0x1176d4 @0x0
0x1176d4…117868 f01 = 0x0002 // 0x1176d6 @0x2
0x1176d4…117868 gno = [ // 0x1176d8 @0x4
0x1176d4…117868 [0x00]: C0x009f.0x0.0
0x1176d4…117868 ]
0x1176d4…117868 }
0x117868…1179fc Dummy {f00=0x009f, 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;
0x1179fc…117b90 Dummy {f00=0x009f, 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;
0x117b90…117d24 Dummy {f00=0x009f, 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;
0x117d24…117eb8 Dummy {f00=0x009f, 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;
0x117eb8…11804c Dummy {f00=0x009f, 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 $
0x11804c…1181e0 Dummy {f00=0x009f, 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