|
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: B F G K O R S U V W p ½
Length: 1905680 (0x1d1410)
Description: Bits:30009713 Philips computer tape "WSM"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| WSM:CREA | «none» |
| WSM:CREA/ &ID. | «none» |
| WSM:CREA/. | «none» |
| WSM:CREA/14SC L. | «none» |
| WSM:CREA/16SC L. | «none» |
| WSM:CREA/33SC L. | «none» |
| WSM:CREA/ALSC L. | «none» |
| WSM:CREA/ALSC L. | «none» |
| WSM:CREA/FSDISC.SC | ⟦0887b689a⟧ pts_type |
| WSM:CREA/FSINIT.SC | ⟦2e01c15bd⟧ pts_type |
| WSM:CREA/FSMSPP.SC | ⟦17c0ad8ef⟧ pts_type |
| WSM:CREA/FSNAME.SC | ⟦e0c49fd58⟧ pts_type |
| WSM:CREA/FSUPDT.SC | ⟦8a4c95713⟧ pts_type |
| WSM:CREA/ID. | «none» |
| WSM:CREA/KEYT1.SC | ⟦5ddabf60d⟧ pts_type |
| WSM:CREA/KEYT2.SC | ⟦e8543b2b8⟧ pts_type |
| WSM:CREA/KEYT3.SC | ⟦94cb8da21⟧ pts_type |
| WSM:CREA/KEYT4.SC | ⟦7a106b309⟧ pts_type |
| WSM:CREA/KEYT5.SC | ⟦2d64df74f⟧ pts_type |
| WSM:CREA/KEYT6.SC | ⟦6b040b1b8⟧ pts_type |
| WSM:CREA/KEYT7.SC | ⟦4476b90e0⟧ pts_type |
| WSM:CREA/KEYT8.SC | ⟦412309221⟧ pts_type |
| WSM:CREA/KEYT9.SC | ⟦d3fff0449⟧ pts_type |
| WSM:CREA/OBJVAL.SC | ⟦d55b12ebf⟧ pts_type |
| WSM:CREA/OCUF V. | «none» |
| WSM:CREA/PSSC L. | «none» |
| WSM:CREA/READIN.SC | ⟦b7226bdfe⟧ pts_type |
| WSM:CREA/RTSC L. | «none» |
| WSM:CREA/SYNVAL.SC | ⟦eda9b075f⟧ pts_type |
| WSM:CREA/USINFO.UF | ⟦e0bf0fd71⟧ pts_type |
| WSM:CREA/VALPRC.SC | ⟦52a0e67d6⟧ pts_type |
| WSM:CREA/WSMAPP.SC | ⟦443867b41⟧ pts_type |
| WSM:CREA/WSMDDV.SC | ⟦08d46e459⟧ pts_type |
| WSM:CREA/WSMDDV.UF | ⟦af7080318⟧ pts_type |
| WSM:CREA/WSMERR.SC | ⟦d9e2b0884⟧ pts_type |
| WSM:CREA/WSMKEY.SC | ⟦5af56fb9a⟧ pts_type |
| WSM:INTO | «none» |
| WSM:INTO/W:INIT.SC | ⟦667944afc⟧ pts_type |
| WSM:LMC | «none» |
| WSM:LMC/USINFO.UF | ⟦572472936⟧ pts_type |
| WSM:LMC/W:CRT.LM | ⟦b8da7801e⟧ pts_type |
| WSM:LMC/W:CRTB.LM | ⟦f633f30f7⟧ pts_type |
| WSM:LMIN | «none» |
| WSM:LMIN/GENINF.UF | ⟦5502e57c4⟧ pts_type |
| WSM:LMIN/USINFO.UF | ⟦39f94ae3b⟧ pts_type |
| WSM:LMIN/W:INT.LM | ⟦b05db2fdd⟧ pts_type |
| WSM:LMU | «none» |
| WSM:LMU/USINFO.UF | ⟦ac7861ddd⟧ pts_type |
| WSM:LMU/W:UTIB.LM | ⟦d5b4ac635⟧ pts_type |
| WSM:LMU/W:UTIL.LM | ⟦0c58ade7e⟧ pts_type |
| WSM:PROC | «none» |
| WSM:PROC/SUMMAC.UF | ⟦f49843a30⟧ pts_type |
| WSM:PROC/SYSMAC.UF | ⟦e15c30a16⟧ pts_type |
| WSM:PROC/USINFO.UF | ⟦f5745a9f4⟧ pts_type |
| WSM:UTIL | «none» |
| WSM:UTIL/B:PROC.UF | ⟦45513c301⟧ pts_type |
| WSM:UTIL/USINFO.UF | ⟦cb72b7fe5⟧ pts_type |
| WSM:UTIL/WSMCAL.SC | ⟦fc1ca6440⟧ pts_type |
| WSM:UTIL/WUASS.SC | ⟦9a02d1f5c⟧ pts_type |
| WSM:UTIL/WUCOP.SC | ⟦775e5e7f4⟧ pts_type |
| WSM:UTIL/WUCRF.SC | ⟦3d0a55c3a⟧ pts_type |
| WSM:UTIL/WUCRV.SC | ⟦fec89d677⟧ pts_type |
| WSM:UTIL/WUCVN.SC | ⟦92bab3ed5⟧ pts_type |
| WSM:UTIL/WUDEN.SC | ⟦b4a5fefe1⟧ pts_type |
| WSM:UTIL/WUDIV.SC | ⟦c55d1ec19⟧ pts_type |
| WSM:UTIL/WUDIV.UF | ⟦97191d684⟧ pts_type |
| WSM:UTIL/WUDLF.SC | ⟦235b91949⟧ pts_type |
| WSM:UTIL/WUEXT.SC | ⟦bb25a9bcc⟧ pts_type |
| WSM:UTIL/WUFIL.SC | ⟦878b6a189⟧ pts_type |
| WSM:UTIL/WUINT.SC | ⟦db593d2eb⟧ pts_type |
| WSM:UTIL/WULIT.SC | ⟦d597ab463⟧ pts_type |
| WSM:UTIL/WUPRF.SC | ⟦880e50e16⟧ pts_type |
| WSM:UTIL/WUPRV.SC | ⟦8d37ae84c⟧ pts_type |
| WSM:UTIL/WUUTI.SC | ⟦5945f4795⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»WSM:IN«, typ=»TO«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»W:INIT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0148, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»USRLIB«, typ=»OB«, f00=0xab4c, f01=0x0000, f02=0x0280, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x03b8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»WSMMM «, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x03d0, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»WSMGM «, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x03d8, f03=0x0000}
0x000000…000ca0 DirEnt {nam=»B:PROC«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x03e0, f03=0x0000}
0x000000…000ca0 }
0x000ca0…000cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000cc0…000cd0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x000cd0…000e64 (0, 1) Opaque[0x194]
0x000e64…000e6a 00 00 00 00 00 00 ┆ ┆
0x000e6a…000ffe # DirEnt {nam=»W:INIT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0148, f03=0x0000}
0x000e6a…000ffe IdxSect {
0x000e6a…000ffe f00 = 0x000a // 0xe6a @0x0
0x000e6a…000ffe f01 = 0x004e // 0xe6c @0x2
0x000e6a…000ffe gno = [ // 0xe6e @0x4
0x000e6a…000ffe [0x00]: C0x000a.0x1.0
0x000e6a…000ffe [0x01]: C0x000a.0x2.0
0x000e6a…000ffe [0x02]: C0x000a.0x3.0
0x000e6a…000ffe [0x03]: C0x000b.0x0.0
0x000e6a…000ffe [0x04]: C0x000b.0x1.0
0x000e6a…000ffe [0x05]: C0x000b.0x2.0
0x000e6a…000ffe [0x06]: C0x000b.0x3.0
0x000e6a…000ffe [0x07]: C0x000c.0x0.0
0x000e6a…000ffe [0x08]: C0x000c.0x1.0
0x000e6a…000ffe [0x09]: C0x000c.0x2.0
0x000e6a…000ffe [0x0a]: C0x000c.0x3.0
0x000e6a…000ffe [0x0b]: C0x000d.0x0.0
0x000e6a…000ffe [0x0c]: C0x000d.0x1.0
0x000e6a…000ffe [0x0d]: C0x000d.0x2.0
0x000e6a…000ffe [0x0e]: C0x000d.0x3.0
0x000e6a…000ffe [0x0f]: C0x000e.0x0.0
0x000e6a…000ffe [0x10]: C0x000e.0x1.0
0x000e6a…000ffe [0x11]: C0x000e.0x2.0
0x000e6a…000ffe [0x12]: C0x000e.0x3.0
0x000e6a…000ffe [0x13]: C0x000f.0x0.0
0x000e6a…000ffe [0x14]: C0x000f.0x1.0
0x000e6a…000ffe [0x15]: C0x000f.0x2.0
0x000e6a…000ffe [0x16]: C0x000f.0x3.0
0x000e6a…000ffe [0x17]: C0x0010.0x0.0
0x000e6a…000ffe [0x18]: C0x0010.0x1.0
0x000e6a…000ffe [0x19]: C0x0010.0x2.0
0x000e6a…000ffe [0x1a]: C0x0010.0x3.0
0x000e6a…000ffe [0x1b]: C0x0011.0x0.0
0x000e6a…000ffe [0x1c]: C0x0011.0x1.0
0x000e6a…000ffe [0x1d]: C0x0011.0x2.0
0x000e6a…000ffe [0x1e]: C0x0011.0x3.0
0x000e6a…000ffe [0x1f]: C0x0012.0x0.0
0x000e6a…000ffe [0x20]: C0x0012.0x1.0
0x000e6a…000ffe [0x21]: C0x0012.0x2.0
0x000e6a…000ffe [0x22]: C0x0012.0x3.0
0x000e6a…000ffe [0x23]: C0x0013.0x0.0
0x000e6a…000ffe [0x24]: C0x0013.0x1.0
0x000e6a…000ffe [0x25]: C0x0013.0x2.0
0x000e6a…000ffe [0x26]: C0x0013.0x3.0
0x000e6a…000ffe ]
0x000e6a…000ffe }
0x000ffe…001000 00 00 ┆ ┆
0x001000…001004 00 00 00 00 ┆ ┆
0x001004…001198 Dummy {f00=0x000a, f01=0x0190, f02=» 0 P IDENT W:INIT W,REL=2.3,850901,870155940230 P 8 P @ P H P P J P********************************************************************** X J P** ** J P** W:INIT
0x001198…00119e 00 00 00 00 00 00 ┆ ┆
0x00119e…001332 Dummy {f00=0x000a, f01=0x0190, f02=»** DESCRIPTION: WSM INTERPRETER INITIAL MODULE WITH ** J P** THINGS POSSIBLE FOR THE USER TO ALTER. ** N J P** ** J P** 0. NORMA
0x001332…001338 00 00 00 00 00 00 ┆ ┆
0x001338…0014cc Dummy {f00=0x000a, f01=0x0190, f02=» 1. SIZES OF: ** J P** . - WSM WORK ITEMS ** D J P** . - DYNAMIC FIELDS DATA AREA ** J P** . - SECTION SEQUE
0x0014cc…0014d2 00 00 00 00 00 00 ┆ ┆
0x0014d2…001666 Dummy {f00=0x000a, f01=0x0190, f02=» . - INPUT (KEY BOARD) BUFFER ** | J P** . - OUTPUT (DISPLAY/PRINTER) BUFFER ** : J P** . - WSM BASIC WORK AREA ** J P** 2. DEVICE PARAMETERS:
0x001666…00166c 00 00 00 00 00 00 ┆ ┆
0x00166c…001800 Dummy {f00=0x000a, f01=0x0190, f02=»SOR MODE ** r J P** . - FILLER ECHO CHARACTER ** 0 J P** . - ONE OR TWO MESSAGE LINES ** ~ J P** 3. KEY CODES & KEY TABLES.
0x001800…001806 00 00 00 00 00 00 ┆ ┆
0x001806…00199a Dummy {f00=0x000a, f01=0x0190, f02=»ORY BUFFER POOL. ** h J P** 6. WSM FILE HANDLER. ** & J P** 7. INCLUDED WSM INSTRUCTIONS. ** t J P** 8. INCLUDED WSM VALIDATION STATEMENTS **
0x00199a…0019a0 00 00 00 00 00 00 ┆ ┆
0x0019a0…001b34 (0, 2) Dummy {f00=0x000a, f01=0x0190, f02=» ** ^ J P** 9. USER DEFINED SUBROUTINES ** J P** - CALLED FROM THE APPLICATION ** j J P** - CALLED FROM WSM TO MODIFY PBLK BUFFER ** J P**
0x001b34…001b3a 00 00 00 00 00 00 ┆ ┆
0x001b3a…001cce Dummy {f00=0x000a, f01=0x0190, f02=» ** T J P** ** P EJECT ` J P** ** n J P** ** J
0x001cce…001cd4 00 00 00 00 00 00 ┆ ┆
0x001cd4…001e68 Dummy {f00=0x000a, f01=0x0190, f02=»T OR COMMA ** X J P** . IN NUMERIC DATA RETURNED TO APPLICATION. ** J P** 11. BASIC DEBUGGER FOR WSM VALIDATION. ** d J P** ** J P**
0x001e68…001e6e 00 00 00 00 00 00 ┆ ┆
0x001e6e…002002 Dummy {f00=0x000a, f01=0x0190, f02=» ** N J P********************************************************************** P EJECT Z P h P p P** HIST: x P P P** 0 P** 1985-09-01 /CJ REL 2.3 -> ACTION-CENTRE 4 P** 1985-03-01 /CJ IRL OF REL 2.2 FOR TOSS 13.2
0x002002…002008 00 00 00 00 00 00 ┆ ┆
0x002008…00219c Dummy {f00=0x000a, f01=0x0190, f02=»** 1984-03-19 /GB ADJUST FOR HANDLING OF THE '/5C' CHARACTER F P** 1984-02-07 /ME INITIALIZE SCREEN BACKGROUND TO BLACK FOR ALL F : P** TYPE OF VDU:S EXCEPT 6391 (VD82). > P** 1983-09-25 /ME DELAY IF WORK STATION IS NOT OPERABLE.
0x00219c…0021a0 00 00 00 00 ┆ ┆
0x0021a0…0021a2 00 00 ┆ ┆
0x0021a2…002336 Dummy {f00=0x000a, f01=0x018e, f02=»UDE BASIC DEBUGGER AND ADJUST USERKEYS. x 2 P** 1983-03-28 /TS BASIC READ ON SYSTEM LINE. 0 : P** AND MSG LINE EQU CHANGED TO DATA. f 6 P** 1983-03-02 /GB ADJUST W:INIT TO WSMGEN REL 2 6 P** 1983-01-20 /TS SET STANDARD KEYCHECK
0x002336…00233c 00 00 00 00 00 00 ┆ ┆
0x00233c…0024d0 Dummy {f00=0x000a, f01=0x0190, f02=» . P** 1982-11-26 /TS .. & INITIATE W:KTB1. 6 P** 1982-11-12 /ME BASIC DEBUGGER OPTION ADDED. 6 4 P** 1982-10-11 /ME EXTENDED NO OF POOL UNITS. p < P** 1982-10-06 /ME ABSENCE OF WSM WORK ITEMS HANDLED. B P** 1982-09-10 /TS FUNCTION CO
0x0024d0…0024d6 00 00 00 00 00 00 ┆ ┆
0x0024d6…00266a Dummy {f00=0x000a, f01=0x0190, f02=» ^ , P** 1982-06-14 /TS TWO MESSAGE LINES. 2 P** 1982-04-22 /ME TUP & TDOWN IMPLEMENTED. 8 2 P** 1982-03-30 /ME POSSIBILITY TO CALL USER- n : P** / DEFINED SUBROUTINES IMPLEMENTED. 2 P** 1982-03-16 /ME WSM BASIC DIVISIO
0x00266a…002670 00 00 00 00 00 00 ┆ ┆
0x002670…002804 (0, 3) Dummy {f00=0x000a, f01=0x0190, f02=»04 /ME FUNC & VAL.STMT & VAL. OP TAB:S INC. 0 P** 1981-10-19 /GM VALIDATION ERROR ADDED 6 : P** 1981-10-15 /GM READ SCREEN SIZE LKM IMPLEMENTED j 6 P** 1981-09-18 /ME FILE HANDLER TASK IMPLEMENTED 8 P** 1981-09-08 /ME SCREEN EQUATES MO
0x002804…00280a 00 00 00 00 00 00 ┆ ┆
0x00280a…00299e Dummy {f00=0x000a, f01=0x0190, f02=» 1981-07-10 /ME SOME KEYS ADDED... > P** 1981-06-30 /ME CHANGED SEQUENCE IN EXTERNAL EQUATES . 2 P** 1981-06-26 /ME W:KMP INCLUDED IN W:INIT p 2 P** 1981-06-18 /GM WSM POOL MOVED TO W:KMP. 4 P** 1981-05-27 /ME CHANGED LAYOUT OF WWI-A
0x00299e…0029a0 00 00 ┆ ┆
0x0029a0…0029a4 00 00 00 00 ┆ ┆
0x0029a4…002b38 Dummy {f00=0x000a, f01=0x018e, f02=»:INIT , P ENTRY S:GTAB DESCRIPTOR USED BY SYSLOD , P ENTRY W:ICFC INTERTASK COMM. FILE CODES > $ P ENTRY W:DYFC DISPLAY FILE CODES n & P ENTRY W:CUMO DISPLAY CURSOR MODE " P ENTRY W:BZFC BUZZER FILE CODE P ENTRY W:ECHO P ENTRY W:KTB
0x002b38…002b3e 00 00 00 00 00 00 ┆ ┆
0x002b3e…002cd2 Dummy {f00=0x000a, f01=0x0190, f02=» P ENTRY W:SM01 P ENTRY W:SM02 P ENTRY W:SM03 4 P ENTRY W:SM04 J P ENTRY W:SM05 ` P ENTRY W:SM5C v P ENTRY W:SM5S P ENTRY W:SM5F P ENTRY S:POOL P ENTRY S:POLA P ENTRY S:FILT P ENTRY S:POLF
0x002cd2…002cd8 00 00 00 00 00 00 ┆ ┆
0x002cd8…002e6c Dummy {f00=0x000a, f01=0x0190, f02=»GUAGE STATEMENTS t 0 P ENTRY W:OPER VALIDATION LANGUAGE OPERATORS . P ENTRY W:FHCA -> TO WSM FILE HANDLER CODE L 8 P ENTRY W:DSPA -> TO DISPLAY WRITING/CLEARING ROUTINE ~ * P ENTRY W:USRU USERDEFINED ASS. ROUTINE P ENTRY W:PBUF "
0x002e6c…002e72 00 00 00 00 00 00 ┆ ┆
0x002e72…003006 Dummy {f00=0x000a, f01=0x0190, f02=» P EJECT P J P********************************************************************** J P** EXTERNAL TO: ** h J P** WSM INTERPRETER MAIN LOOP. ** J P****
0x003006…00300c 00 00 00 00 00 00 ┆ ┆
0x00300c…0031a0 Dummy {f00=0x000a, f01=0x0190, f02=»********************************************** x J P** EXTERNAL TO: ** 6 J P** FILE HANDLER TASK. ** J P******************************************************
0x0031a0…0031a6 00 00 00 00 00 00 ┆ ┆
0x0031a6…00333a Dummy {f00=0x000a, f01=0x018e, f02=»************** X J P** EXTERNALS TO: ** J P** WSM FUNCTIONS. ** d J P********************************************************************** P P
0x00333a…003340 00 00 00 00 00 00 ┆ ┆
0x003340…0034d4 (0, 4) Dummy {f00=0x000b, f01=0x0190, f02=» P EXTRN W:PRNT WPRINT P EXTRN W:CLOSE WCLOSE P EXTRN W:SAVE WSAVE > P EXTRN W:DLET WDLETE Z P EXTRN W:FATR WFATTR v P EXTRN W:CODE WCODE P EXTRN W:FID WFID & P EXTRN W:GTPM GET FIELD PARAMETERS P EXTRN W:ENDR P
0x0034d4…0034da 00 00 00 00 00 00 ┆ ┆
0x0034da…00366e Dummy {f00=0x000b, f01=0x0190, f02=» ** d J P** WSM VALIDATION LANGUAGE - STATEMENTS. ** " J P********************************************************************** p P 4 P EXTRN W:VEVA VALIDATION EVALUATION MAIN ROUTINE P & P E
0x00366e…003674 00 00 00 00 00 00 ┆ ┆
0x003674…003808 Dummy {f00=0x000b, f01=0x0190, f02=»NO t & P EXTRN W:V008 IF...THEN STATEMENT * P EXTRN W:V00A ON...GO TO/GOTO LINE NO 4 P EXTRN W:V00C CALL b P EXTRN W:V00E SECT | P EXTRN W:V010 ATTR P EXTRN W:V012 STOP P EXTRN W:V014 EXIT P EXTRN W:V016 ERR P EXTRN W:V
0x003808…00380e 00 00 00 00 00 00 ┆ ┆
0x00380e…0039a2 Dummy {f00=0x000b, f01=0x0190, f02=»********************** ` J P** EXTERNALS TO: ** J P** WSM VALIDATION LANGUAGE - OPERATORS. ** l J P********************************************************************** P
0x0039a2…0039a8 00 00 00 00 00 00 ┆ ┆
0x0039a8…003b3c Dummy {f00=0x000b, f01=0x0190, f02=»0 STR P EXTRN W:OP11 MAKE POSITIVE P EXTRN W:OP12 NEGATE 2 P EXTRN W:OP13 ADD N P EXTRN W:OP14 SUBTRACT h P EXTRN W:OP15 DIVIDE P EXTRN W:OP16 MULTIPLY P EXTRN W:OP17 ABS P EXTRN W:OP18 INT P EXTRN W:OP19 SGN
0x003b3c…003b40 00 00 00 00 ┆ ┆
0x003b40…003b42 00 00 ┆ ┆
0x003b42…003cd6 Dummy {f00=0x000b, f01=0x0190, f02=» EXTRN W:OP1F DAT P EXTRN W:OP20 CDV P EXTRN W:OP21 POS 4 ( P EXTRN W:EXP5 DUMMY ENTRY IN W:EXPR N P EJECT z J P********************************************************************** J P**
0x003cd6…003cdc 00 00 00 00 00 00 ┆ ┆
0x003cdc…003e70 Dummy {f00=0x000b, f01=0x0190, f02=» ** r J P********************************************************************** 0 P ~ P EXTRN W:BBUG P J P********************************************************************** J P**
0x003e70…003e76 00 00 00 00 00 00 ┆ ┆
0x003e76…00400a Dummy {f00=0x000b, f01=0x0190, f02=»******************************************************************** P L P EXTRN W:WDSP T P j P r P z J P********************************************************************** J P** EXTERNAL:
0x00400a…004010 00 00 00 00 00 00 ┆ ┆
0x004010…0041a4 (0, 5) Dummy {f00=0x000b, f01=0x0190, f02=»UT DECIMAL POINT OR COMMA. ** l J P********************************************************************** * P x P EXTRN W:NPA2 P EXTRN W:NPA3 P EJECT P J P**********************************************************************
0x0041a4…0041aa 00 00 00 00 00 00 ┆ ┆
0x0041aa…00433e Dummy {f00=0x000b, f01=0x0190, f02=»M THE VALIDATION ** ^ J P** AND LINKED WITH WSM. ** J P********************************************************************** j P P EXTRN UF00 P EXTRN UF01 P EXTRN UF02 P EXTRN UF03
0x00433e…004340 00 00 ┆ ┆
0x004340…004344 00 00 00 00 ┆ ┆
0x004344…0044d8 Dummy {f00=0x000b, f01=0x0190, f02=»F10 P EXTRN UF11 P EXTRN UF12 P EXTRN UF13 4 P EXTRN UF14 H P EXTRN UF15 P EXTRN UF16 p P EXTRN UF17 P EXTRN UF18 P EXTRN UF19 P EXTRN UF20 P EXTRN UF21 P EXTRN UF22 P EXTRN UF23
0x0044d8…0044de 00 00 00 00 00 00 ┆ ┆
0x0044de…004672 Dummy {f00=0x000b, f01=0x0190, f02=»F30 P EXTRN UF31 ! P EXTRN UF32 ! P EXTRN UF33 ! 4 P EXTRN UF34 ! H P EXTRN UF35 ! P EXTRN UF36 ! p P EXTRN UF37 ! P EXTRN UF38 ! P EXTRN UF39 ! P EXTRN UF40 ! P EXTRN UF41 ! P EXTRN UF42 ! P EXTRN UF43
0x004672…004678 00 00 00 00 00 00 ┆ ┆
0x004678…00480c Dummy {f00=0x000b, f01=0x0190, f02=»F50 ! P EXTRN UF51 " P EXTRN UF52 " P EXTRN UF53 " 4 P EXTRN UF54 " H P EXTRN UF55 " P EXTRN UF56 " p P EXTRN UF57 " P EXTRN UF58 " P EXTRN UF59 " P EXTRN UF60 " P EXTRN UF61 " P EXTRN UF62 " P EXTRN UF63
0x00480c…004812 00 00 00 00 00 00 ┆ ┆
0x004812…0049a6 Dummy {f00=0x000b, f01=0x0190, f02=»F70 " P EXTRN UF71 # P EXTRN UF72 # P EXTRN UF73 # 4 P EXTRN UF74 # H P EXTRN UF75 # P EXTRN UF76 # p P EXTRN UF77 # P EXTRN UF78 # P EXTRN UF79 # P EXTRN UF80 # P EXTRN UF81 # P EXTRN UF82 # P EXTRN UF83
0x0049a6…0049ac 00 00 00 00 00 00 ┆ ┆
0x0049ac…004b40 Dummy {f00=0x000b, f01=0x0190, f02=»F90 # P EXTRN UF91 $ P EXTRN UF92 $ P EXTRN UF93 $ 4 P EXTRN UF94 $ H P EXTRN UF95 $ P EXTRN UF96 $ p P EXTRN UF97 $ P EXTRN UF98 $ P EXTRN UF99 $ P EJECT $ P $ J P**************************************************
0x004b40…004b46 00 00 00 00 00 00 ┆ ┆
0x004b46…004cda Dummy {f00=0x000b, f01=0x0190, f02=»NED ASSEMBLER ROUTINE LINKED WITH ** $ r J P** WSM. ** % 0 J P** REPLACE EXTERNALS BELOW WITH NAME OF THE ** % ~ J P** ASSEMBLER ROUTINE
0x004cda…004ce0 00 00 00 00 00 00 ┆ ┆
0x004ce0…004e74 (0, 6) Dummy {f00=0x000b, f01=0x0190, f02=»904 % P EJECT & P & & P NLIST GLOBAL EQUATES (SEE W:EQU) & " P EJECT & L P & Z P & b P & j P & r , P**************************************** & z , P** LATEST UPDATING: 1983-05-04 BY: TS * & , P**************************************** &
0x004e74…004e7a 00 00 00 00 00 00 ┆ ┆
0x004e7a…00500e Dummy {f00=0x000b, f01=0x0190, f02=»00 & P*UNPCK EQU - ' PWMSG EQU /0300 ' & PWSEND EQU /0400 ' < PWPRINT EQU /0500 ' T PWCLOSE EQU /0600 ' l PWSAVE EQU /0700 ' PWDLETE EQU /0800 ' PWFATTR EQU /0900 ' PWCODE EQU /0A00 ' PWFID EQU /0B00 ' P EJECT ' P
0x00500e…005014 00 00 00 00 00 00 ┆ ┆
0x005014…0051a8 Dummy {f00=0x000b, f01=0x0190, f02=» ' P ( 2 PPOLSIZ EQU 248 SIZE OF POOL UNITS IN THE POOL ( 0 PPOLDIS EQU 6 USER DISPLACEMENT IN POOL-UNITS ( F * PPADLEN EQU 12 LENGTS OF POOL-ADM-DATA ( z ( PFIDSIZ EQU 4 SIZE OF FIELD IDENTITY ( P ( 4 P** SCRSIZ & EKOCHR MOVED 1981-09-07 TO W:INI
0x0051a8…0051ae 00 00 00 00 00 00 ┆ ┆
0x0051ae…005342 Dummy {f00=0x000b, f01=0x018e, f02=»INPDEV EQU 0 =12 IF OTHER INPUT DEVICE THAN KEYBOARD ... ( P ... IN SYSTEM, ELSE =0 ) @ P ) b P** ) j P** BUFFER SIZES ) t P** ) P ) $ P** MOVED 1981-08-04 TO W:INIT ** ) P EJECT ) P ) P** ) P** DISPLACEMENTS IN ECB ) P**
0x005342…005348 00 00 00 00 00 00 ┆ ┆
0x005348…0054dc Dummy {f00=0x000b, f01=0x0190, f02=» P EJECT * P * P** * * P** ORDERS TO THE POOL & FILE HANDLER * $ P** * R P * PPF:RD EQU /01 READ * d PPF:GET EQU /02 GET * ~ PPF:SCH EQU /04 SEARCH * PPF:WRT EQU /05 WRITE * PPF:CLO EQU /08 CLO * PPF:OFR EQU /10 LOCK * P
0x0054dc…0054e0 00 00 00 00 ┆ ┆
0x0054e0…0054e2 00 00 ┆ ┆
0x0054e2…005676 Dummy {f00=0x000b, f01=0x0190, f02=»OUS * | PINDEX EQU /0400 BY INDEX + PALL EQU /0800 ALL ON LRU QUE + , . PNOWAIT EQU /1000 USED FOR READ WITH NOWAIT + P P EJECT + P** + : P** DISPLACEMENTS IN THE POOL & FILE HANDLER COM. AREA + P** + P + $ PPF:BF1 EQU 0 ADDRESS TO BUFFER
0x005676…00567c 00 00 00 00 00 00 ┆ ┆
0x00567c…005810 Dummy {f00=0x000b, f01=0x0190, f02=» P** , 6 P** THIS PART OF THE COM. AREA IS THE ECB , P** , H ( PPF:ECB EQU PF:NAM+6 START OF THE ECB , R $ PPF:FNR EQU PF:ECB+1 FILE NUMBER , ~ 2 PPF:IOB EQU PF:FNR+1 ADDRESS TO THE I/O-BUFFER , ( PPF:RLN EQU PF:IOB+2 REQUESTED LENGTH , ( P
0x005810…005816 00 00 00 00 00 00 ┆ ┆
0x005816…0059aa Dummy {f00=0x000b, f01=0x0190, f02=» PF:CW1+2 CONTROL WORD 2 , P** - : P** THIS PART OF THE COM. AREA IS FOR THE FPB - * P** - h & PPF:FIL EQU PF:CW2+2 THE FILE NAME - r ( PPF:VOL EQU PF:FIL+8 THE VOLUME NAME - PPF:RN1 EQU PF:VOL+6 RECNO 1 - PPF:RN2 EQU PF:RN1+2 RECNO 2
0x0059aa…0059b0 00 00 00 00 00 00 ┆ ┆
0x0059b0…005b44 (0, 7) Dummy {f00=0x000b, f01=0x0190, f02=»UNITS IN THIS AREA - x , PPP:LEN EQU PP:CON+2 LENGTH OF THIS AREA . * PPP:NAM EQU PP:LEN+2 NAME OF THIS AREA . J 2 PPP:BIT EQU PP:NAM+2 FREE-SPACE INDICATOR BITS . x P** . P EJECT . P** . $ P** LAYOUT OF FREE-SPACE ON DISC . P** . PDS:TYP
0x005b44…005b4a 00 00 00 00 00 00 ┆ ┆
0x005b4a…005cde Dummy {f00=0x000b, f01=0x0190, f02=»MBER OF RECORDS . z . PDS:NOF EQU DS:NUM+2 NUMBER OF FREE RECORDS / ( PDS:FI1 EQU DS:NOF+2 FIRST REL.RECNO / J * PDS:FI2 EQU DS:FI1+2 USED AS REC.BASE / v * PDS:REL EQU DS:FI2+2 RELATIV FR.SP.REC. / , PDS:PTR EQU DS:REL+1 FREE-SPACE POINTERS / P /
0x005cde…005ce0 00 00 ┆ ┆
0x005ce0…005ce4 00 00 00 00 ┆ ┆
0x005ce4…005e78 Dummy {f00=0x000b, f01=0x0190, f02=» $ PPA:IDE EQU PA:TYP+1 NAME OF DATA 0 $ PPA:FIL EQU PA:IDE+6 FILE NUMBER 0 , ( PPA:NUM EQU PA:FIL+1 NUMBER OF USERS 0 T & PPA:SEG EQU PA:NUM+1 SEGMENT NUMBER 0 " PPA:UNI EQU PA:SEG+1 POOL-UNIT 0 $ PPA:LNK EQU PA:UNI+1 LINK TO NEXT 0 P EJECT 0 P**
0x005e78…005e7e 00 00 00 00 00 00 ┆ ┆
0x005e7e…006012 Dummy {f00=0x000b, f01=0x0190, f02=» FILE CODE 0 ~ * PPT:CON EQU PT:FC+1 COMPULSURY COUNTER 1 & PPT:OC EQU PT:CON+1 OPEN/CLOSE BYTE 1 @ & PPT:ACT EQU PT:OC+1 ACTIVE COUNTER 1 j & PPT:LEN EQU 18 LENGTH OF ONE ENTRY 1 & PPT:END EQU 72 LENGT OF FILE-TABLE 1 P 1 P** 1 P** ORDER-DATA
0x006012…006018 00 00 00 00 00 00 ┆ ┆
0x006018…0061ac Dummy {f00=0x000b, f01=0x0190, f02=» * PPO:LNK EQU PO:FIL+1 LINK TO NEXT ORDER 2 & PPO:LEN EQU 12 LENGTH OF ONE ORDER 2 2 PPO:STA EQU 4 START OF ORDERS 2 ( PPO:END EQU 256 LENGTH OF ORDER-TABLE 2 $ PPO:RDY EQU /8000 ORDER EXECUTED 2 PPO:DLY EQU 1 DELAY TIME 2 P EJECT 2 P 2
0x0061ac…0061b2 00 00 00 00 00 00 ┆ ┆
0x0061b2…006346 Dummy {f00=0x000b, f01=0x0190, f02=»2+2 PARAMETER BLOCK LENGTH 2 > PKB:EKO EQU KB:PBL+1 ECHO CHARACTER (/00 => ORDINARY ECHO) 3 " & PKB:PW EQU KB:EKO+1 PARAMETER WORD 3 d , PKB:CUR EQU KB:PW+2 CURSOR POSITION WORD 3 * PKB:SHB EQU KB:CUR+2 SHIFT BUFFER BYTE 3 * PKB:CND EQU KB:SHB+1 CURRENT
0x006346…00634c 00 00 00 00 00 00 ┆ ┆
0x00634c…0064e0 Dummy {f00=0x000b, f01=0x0190, f02=»+1 INPUT LENGTH 3 ( PKB:POS EQU KB:IL+1 POSITION IN FIELD 4 2 PKB:PNT EQU KB:POS+1 DECIMAL POINT STATUS WORD 4 D & PKB:MNI EQU KB:PNT+2 MAX # INTEGERS 4 z & PKB:MND EQU KB:MNI+1 MAX # DECIMALS 4 PKB:END EQU KB:MND+1 4 P EJECT 4 P 4 P** 4
0x0064e0…0064e6 00 00 00 00 00 00 ┆ ┆
0x0064e6…00667a Dummy {f00=0x000b, f01=0x0190, f02=»TION CODE 4 p 4 PTC:SCR EQU TC:FC+1 BITS FOR WATTCH, WRCIVE ETC.: 5 P BIT 0: 5 J P - DURING WRCIVE: 5 6 P . = 1 IF INPUT BUFFER CHANGED BY DUPLICATION 5 x 2 P . OR VALIDATION OR IF MINUS KEY USED 5 P BIT 1: 5 P - DURING WR
0x00667a…006680 00 00 00 00 00 00 ┆ ┆
0x006680…006814 (0, 8) Dummy {f00=0x000c, f01=0x0190, f02=»SECTION 5 j P BIT 3: 6 P - DURING WRCIVE: 6 " $ P . = 1 IF PB BUFFER IS FULL 6 > P ******* 6 f P BIT 4: 6 x P - DURING WRCIVE: 6 . P . = 1 IF VALIDATION AFTER ENTER KEY 6 P BIT 5: 6 P - DURING WATTCH: 6 0 P
0x006814…00681a 00 00 00 00 00 00 ┆ ┆
0x00681a…0069ae Dummy {f00=0x000c, f01=0x0190, f02=» , P BIT 7 =1 IF WANTED PAGE IS ON SCREEN 7 P EJECT 7 4 P 7 B & PTC:MSC EQU TC:FC+2 MISCELLANEOUS: 7 J P BIT 0-1: 7 t P - NOT USED 7 P ******* 7 P BIT 2: 7 ( P - =1 IF LOOP DETECTOR RUNNING 7 P BIT 3: 7 $ P -
0x0069ae…0069b4 00 00 00 00 00 00 ┆ ┆
0x0069b4…006b48 Dummy {f00=0x000c, f01=0x0190, f02=»R LINE 7 v P BIT 6: 8 ( P - =1 IF ERROR MSG ON ERROR LINE 8 P BIT 7: 8 L ( P - =1 IF EXT.PROMPT OR GUID. MSG 8 ^ . P . OR WMSG ON HLP LINE OR SEC,FUN 8 P BIT 8: 8 P - = 1 IF ALL KEY USED 8 P BIT 9: 8 2 P -
0x006b48…006b4e 00 00 00 00 00 00 ┆ ┆
0x006b4e…006ce2 Dummy {f00=0x000c, f01=0x0190, f02=» CURSOR OFF ) 8 P BIT 11: 9 " P - = 1 IF BLACK BACKGROUND 9 ( P ******* 9 N P BIT 12: 9 ` ( P - = 1 IF VD82/83 (8 SUBSCREENS, 9 r * P . 1 SYSTEM LINE) 9 P BIT 13: 9 P - NOT USED 9 P BIT 14: 9 . P
0x006ce2…006ce8 00 00 00 00 00 00 ┆ ┆
0x006ce8…006e7c Dummy {f00=0x000c, f01=0x0190, f02=»** INFORMATION ABOUT TWO MESSAGELINES: ** 9 P : 2 8 PTC:MSG EQU TC:MSC+2 SEE W:MESS AND W:MESG IN W:INIT : : P : v P** SUBSCREEN INFORMATION: ** : ~ P : , PTC:SZE EQU TC:MSG+2 SIZE OF SUBSCREEN 1 : 6 PTC:SIZ EQU TC:SZE+2 CURRENT SCREEN/SUBSCREEN S
0x006e7c…006e80 00 00 00 00 ┆ ┆
0x006e80…006e82 00 00 ┆ ┆
0x006e82…007016 Dummy {f00=0x000c, f01=0x0190, f02=» FOLLOWED BY 1:ST FREE LINE OF : P ... 9 SUBSCREENS ; & > PTC:FRD EQU TC:LIN+11 DISPL. TO BE ADDED TO 1:ST FREE LINE ; B 4 P ... WHEN HAVING SECTIONS ON MSG LINE ON OTHER ; 0 P ... DISPLAYS THAN VD82 (RIGHT BYTE REQ.) ; P ; * P** CURRENT FORMA
0x007016…00701c 00 00 00 00 00 00 ┆ ┆
0x00701c…0071b0 Dummy {f00=0x000c, f01=0x0190, f02=» ; 8 PTC:SST EQU TC:FDC+2 0. ADDR. TO 1:ST BYTE AFTER SST < * P 2. " " CURRENT SECTION IN SST < D & P 4. " " LAST SECTION IN SST < r 0 P 6. LARGEST SECTION SEQUENCE NUMBER IN USE < * P 8. SST ADDR. OF SECTION ON MSG LINE < P < & P**
0x0071b0…0071b6 00 00 00 00 00 00 ┆ ┆
0x0071b6…00734a Dummy {f00=0x000c, f01=0x0190, f02=»URRENT DYN. FIELD CODE < r . P " " " " " " (REL) = 2 PTC:DFD EQU TC:CFC+4 " " 1:ST BYTE IN DFD = P 8 PTC:CFD EQU TC:DFD+2 ADDR. TO CURRENT DYN. FIELD DATA = 4 PTC:CFX EQU TC:CFD+2 INDEX OF CURRENT DYN. FIELD = . PTC:KY1 EQU TC:
0x00734a…007350 00 00 00 00 00 00 ┆ ┆
0x007350…0074e4 (0, 9) Dummy {f00=0x000c, f01=0x0190, f02=»UFFER:S AND STACK: ** = ~ P > 2 PTC:CN1 EQU TC:KTV+2 LOOP COUNTER SECTION LEVEL > & 0 PTC:CN2 EQU TC:CN1+2 LOOP COUNTER FIELD LEVEL > < PTC:IIE EQU TC:CN2+2 ADDR TO 1ST BYTE AFTER INPUT BUFFER > 4 PTC:WWI EQU TC:IIE+2 ADDR. TO WWI:S, EQUAL TO ... > : P
0x0074e4…0074ea 00 00 00 00 00 00 ┆ ┆
0x0074ea…00767e Dummy {f00=0x000c, f01=0x0190, f02=»POOL & FILE HANDLER COM. AREA ... > | @ PTC:FIL EQU TC:PFB+PF:ECB ... INCLUDING DISC FILE PARAMETERS ? * . PTC:IC EQU TC:PFB+PF:END INTERTASK COM. ECB ? n $ PTC:KB EQU TC:IC+14 KEYBOARD ECB ? , PTC:EKO EQU TC:KB+KB:END ECHO DEVICE ECB ? . PTC:PRT EQU TC:EK
0x00767e…007680 00 00 ┆ ┆
0x007680…007684 00 00 00 00 ┆ ┆
0x007684…007818 Dummy {f00=0x000c, f01=0x0190, f02=»TER BLOCK ? P** @ P @ * PPB:FC EQU TC:INP+12 WSM FUNCTION CODE @ $ 6 PPB:FOR EQU PB:FC+2 CURRENT FORMAT DEFINITION NAME @ R 4 PPB:SEC EQU PB:FOR+6 CURRENT FORMAT SECTION NAME @ 8 PPB:SSN EQU PB:SEC+6 CURRENT SECTION SEQUENCE NUMBER @ * PPB:SUS E
0x007818…00781e 00 00 00 00 00 00 ┆ ┆
0x00781e…0079b2 Dummy {f00=0x000c, f01=0x0190, f02=»ENTITY @ l $ PPB:FNO EQU PB:FID+4 FIELD NUMBER A " PPB:RC EQU PB:FNO+2 RETURN CODE A 6 $ PPB:KID EQU PB:RC+2 KEY ID 1 & 2 A , PPB:XIT EQU PB:KID+4 EXIT ROUTINE NUMBER A < PPB:EBL EQU PB:XIT+2 EFFECTIVE LENGTH OF BUFFER CONTENTS A : PPB:MBL EQU PB:EBL+4
0x0079b2…0079b8 00 00 00 00 00 00 ┆ ┆
0x0079b8…007b4c Dummy {f00=0x000c, f01=0x0190, f02=»E A d 0 PPB:BUF EQU PB:PRFC+1 PARAMETER BLOCK BUFFER B P EJECT B > P B L P** B T 8 P** DISPLACEMENTS IN SECTION SEQUENCE TABLE ELEMENTS B ^ P** B P B @ P* 0 SECTION DFD ADDRESS B " PSS:DFD EQU 2 SECTION DFD
0x007b4c…007b52 00 00 00 00 00 00 ┆ ┆
0x007b52…007ce6 Dummy {f00=0x000c, f01=0x0190, f02=»EN & SECTION SEQUENCE NO. B v > PSS:LIN EQU SS:SS+2 (SUB-)SCREEN START LINE & NO. OF LINES C " P 1:ST & LAST+1 LINE SHOWN C d 4 PSS:CFX EQU SS:LIN+4 CURRENT DYNAMIC FIELD INDEX C $ PSS:SEC EQU SS:CFX+2 SECTION NAME C . PSS:LEN EQU SS:SEC+6 LENGTH OF SS
0x007ce6…007cec 00 00 00 00 00 00 ┆ ┆
0x007cec…007e80 Dummy {f00=0x000c, f01=0x0190, f02=»T CHOISE SECTION WWI:S C z : PWWI:LF EQU WWI:NF+1 LENGTH OF ONE FAST CHOISE SECT WWI D , PWWI:NN EQU WWI:LF+1 NO OF NUMERIC WWI:S D 2 PWWI:LN EQU WWI:NN+1 LENGTH OF ONE NUMERIC WWI D 4 PWWI:AN EQU WWI:LN+1 ADDRESS TO FIRST NUMERIC WWI D 0 PWWI:NA EQU WWI
0x007e80…007e86 00 00 00 00 00 00 ┆ ┆
0x007e86…00801a Dummy {f00=0x000c, f01=0x0190, f02=»HANUMERIC WWI D h . PWWI:LO EQU WWI:AA+2 LENGTH OF WWI OVERHEAD E P EJECT E H P E V P** E ^ P** FORMAT DEFINITION CODE E h P** E P E ( PFD:FOR EQU 0 FORMAT DEFINITION NAME E , PFD:ISN EQU FD:FOR+6 INTIAL SECTION NAME E 2 PFD:DSK EQU FD:IS
0x00801a…008020 00 00 00 00 00 00 ┆ ┆
0x008020…0081b4 (0, 10) Dummy {f00=0x000c, f01=0x018e, f02=»FORMAT SECTION CODE E P** F P F & P** SECTION TYPES F . P F H & PRWS EQU 1 REMOVABLE WITH SCROLLING F P $ PRWP EQU 2 REMOVABLE WITH PAGING F z PFIX EQU 4 FIXED F 0 PFOB EQU RWS FIXED ON BOTTOM LINES OF SCREEN F * PFONP EQU RWP FIXED ON TOP
0x0081b4…0081ba 00 00 00 00 00 00 ┆ ┆
0x0081ba…00834e Dummy {f00=0x000c, f01=0x0190, f02=» PSO:SEC EQU 0 SECTION NAME G $ PSO:PSW EQU SO:SEC+6 ( PASSWORD ) G & , PSO:DSK EQU SO:PSW+6 NO. OF DISC SECTORS G N , PSO:ONO EQU SO:PSW+7 OBJECT CODE VERSION G ~ 2 PSO:VNO EQU SO:DSK+4 SECTION VERSION NO. & TYPE G F PSO:SIZ EQU SO:VNO+2 DEFINED SECTION
0x00834e…008354 00 00 00 00 00 00 ┆ ┆
0x008354…0084e8 Dummy {f00=0x000c, f01=0x0190, f02=» ADDR TO STATIC FIELDS G x 0 PSO:PP EQU SO:SFC+2 " " " PICTURE POOL H 2 PSO:DFC EQU SO:PP+2 " " " DYNAMIC FIELDS H R @ PSO:NDF EQU SO:DFC+2 DEC POINT OR COMMA & NO. OF DYN. FIELDS H 6 PSO:BGA EQU SO:NDF+4 BACKGROUND DEFAULT ATTRIBUTES H 8 PSO
0x0084e8…0084ee 00 00 00 00 00 00 ┆ ┆
0x0084ee…008682 Dummy {f00=0x000c, f01=0x0190, f02=»DEFAULT GUIDING MESSAGE H | P EJECT I P I . P** STATIC FIELDS I 6 P I P * PSF:DEC EQU /1F LARGEST DECORATION BYTE I X $ PSF:SPA EQU /80 COMPRESSED SPACES I PSF:DF EQU /FB DYNAMIC FIELDS I PSF:HL EQU /FC HEADER LINES I PSF:EOL EQU /FD END O
0x008682…008688 00 00 00 00 00 00 ┆ ┆
0x008688…00881c Dummy {f00=0x000c, f01=0x0190, f02=» P J ( P DYNAMIC FIELD TABLE DISPLACEMENTS J P J 8 PDF:FID EQU 0 FIELD IDENTITY J @ > PDF:COD EQU DF:FID+4 FIELD CODE ADDR: POOL & REL POOL ADDR J d F PDF:DAT EQU DF:COD+2 FIELD DATA DISPL. EXCL. TEMP. DECORATIONS ETC. J 2 PDF:TLN EQU DF:DAT+2 FIEL
0x00881c…008820 00 00 00 00 ┆ ┆
0x008820…008822 00 00 ┆ ┆
0x008822…0089b6 Dummy {f00=0x000c, f01=0x0190, f02=»NAL PARTS J b 0 PDF:SCR EQU DF:ALN+2 REL. POSITION IN SECTION K 6 PDF:FLN EQU DF:SCR+2 MAX. EFFECTIVE & EDITED LENGTH K F > PDF:TYP EQU DF:FLN+2 NUM- & ALPHANUM DEPENDANT INFORMATION K 6 PDF:INP EQU DF:TYP+2 BITS CONCERNING INPUT HANDLING K ( PDF:DEC EQU D
0x0089b6…0089bc 00 00 00 00 00 00 ┆ ┆
0x0089bc…008b50 Dummy {f00=0x000c, f01=0x0190, f02=»ATION K ~ PDF:ACC EQU 2 ACCUMULATION L $ PDF:DUP EQU 3 DUPLICATION ORIGIN L 0 $ PDF:AM EQU 4 APPLICATION MESSAGE L X . PDF:IFC EQU 5 FILE CODE, OTHER INPUT DEVICE L PDF:DEF EQU 6 DEFAULT VALUE L & PDF:OUT EQU 7 OUTPUT PRINT POSITION L PDF:GM EQU
0x008b50…008b56 00 00 00 00 00 00 ┆ ┆
0x008b56…008cea Dummy {f00=0x000c, f01=0x0190, f02=» WSM VALIDATION STATEMENT TYPES ** L J P********************************************************************** M D P M * PVS:ALE EQU /00 ALPHANUM LET EXCL. LET M * PVS:ALI EQU /01 ALPHANUM LET INCL. LET M * PVS:NLE EQU /02 NUM
0x008cea…008cf0 00 00 00 00 00 00 ┆ ┆
0x008cf0…008e84 (0, 11) Dummy {f00=0x000c, f01=0x0190, f02=» EQU /06 IF <REL. EXPR.> THEN LINENO M 2 PVS:IFS EQU /08 IF <REL. EXPR.> THEN STATEMENT N , 0 PVS:OGO EQU /0A ON <EXPR.> GO TO LINENUMBERS N b 0 PVS:OGT EQU /0B ON <EXPR.> GOTO LINENUMBERS N PVS:CAL EQU /0C CALL N PVS:SEC EQU /0E SECT N PVS:ATT
0x008e84…008e8a 00 00 00 00 00 00 ┆ ┆
0x008e8a…00901e Dummy {f00=0x000c, f01=0x0190, f02=»EM EQU /1A REM N PVS:EMP EQU /0C EMPTY O P EJECT O 2 P O @ J P********************************************************************** O H J P** VALIDATION OPERATOR EQUATES ** O J P************************************
0x00901e…009020 00 00 ┆ ┆
0x009020…009024 00 00 00 00 ┆ ┆
0x009024…0091b8 Dummy {f00=0x000c, f01=0x0190, f02=»VO:AGE EQU 3 >=, " O PVO:AGT EQU 4 > , " P PVO:ALE EQU 5 <=, " P 4 PVO:ALT EQU 6 < , " P N PVO:ANE EQU 7 <>, " P h ( PVO:NEQ EQU 8 = , NUMERIC COMPARISON P PVO:NGE EQU 9 >=, " P PVO:NGT EQU /0A > , " P PVO:NLE EQU /0B <=, " P PVO:NLT E
0x0091b8…0091be 00 00 00 00 00 00 ┆ ┆
0x0091be…009352 Dummy {f00=0x000c, f01=0x0190, f02=»CTION P z PVO:UPL EQU /11 UNARY PLUS Q * PVO:UMI EQU /12 " MINUS <=> NEGATE Q 0 PVO:ADD EQU /13 ADD Q ^ PVO:SUB EQU /14 SUBTRACT Q x PVO:DIV EQU /15 DIVIDE Q PVO:MUL EQU /16 MULTIPLY Q PVO:ABS EQU /17 ABS FUNCTION Q PVO:INT EQU /18
0x009352…009358 00 00 00 00 00 00 ┆ ┆
0x009358…0094ec Dummy {f00=0x000c, f01=0x0190, f02=» /1D LEN " Q PVO:NUM EQU /1E NUM " R PVO:DAT EQU /1F DAT " R . PVO:CDV EQU /20 CDV " R J PVO:POS EQU /21 POS " R f PVO:PAR EQU /22 PARANTHESIS R P EJECT R P R J P********************************************************************** R J P
0x0094ec…0094f2 00 00 00 00 00 00 ┆ ┆
0x0094f2…009686 Dummy {f00=0x000c, f01=0x0190, f02=»************ R V P S P** S P** KEYTABLE 1 & 2 S & P** S @ P S J PK1:CUP EQU 1 S R PK1:CDW EQU K1:CUP+1 S f PK1:TFD EQU K1:CDW+1 S PK1:TBD EQU K1:TFD+1 S PK1:PRT EQU K1:TBD+1 S PK1:LIN EQU K1:PRT+1 S PK1:HLP EQU K1:LIN+1 S
0x009686…00968c 00 00 00 00 00 00 ┆ ┆
0x00968c…009820 Dummy {f00=0x000c, f01=0x018e, f02=» S ~ PK1:DUP EQU K1:CR+1 T PK1:ENT EQU K1:DUP+1 T " PK1:FUN EQU K1:ENT+1 T > PK1:CAN EQU K1:FUN+1 T Z < PK1:USR EQU K1:CAN+1 K1:USR & ABOVE ARE USER DEFINED KEYS T v P EJECT T P** T P** KEYTABLE 3 T P** T P T PK3:INS EQU 1 T
0x009820…009826 00 00 00 00 00 00 ┆ ┆
0x009826…0099ba Dummy {f00=0x000c, f01=0x0190, f02=» T z PK3:CAN EQU K3:CLR+1 U PK3:USR EQU K3:CAN+1 U $ P U @ P** U H P** KEYTABLE 4 U R P** U h P U r PK4:CLR EQU 1 U z PK4:ENT EQU K4:CLR+1 U PK4:CAN EQU K4:ENT+1 U PK4:USR EQU K4:CAN+1 U P U P** U P** KEYTABLE 5 & 6 U
0x0099ba…0099c0 00 00 00 00 00 00 ┆ ┆
0x0099c0…009b54 (0, 12) Dummy {f00=0x000d, f01=0x0190, f02=»K6:OV EQU K5:CAN+1 U < PK6:USR EQU K6:OV+1 K6:USR & ABOVE ARE USER DEFINED KEYS V P EJECT V Z PBYTE2 FORM 8,8 V h . PBIT16 FORM 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 V ~ P LIST V P V P V P V P V P V J P**********************************
0x009b54…009b5a 00 00 00 00 00 00 ┆ ┆
0x009b5a…009cee Dummy {f00=0x000d, f01=0x018e, f02=» APPLICATION DEPENDANT DATA. ** V J P********************************************************************** W @ P W J P********************************************************************** W J P** 0. MINI INTERP
0x009cee…009cf4 00 00 00 00 00 00 ┆ ┆
0x009cf4…009e88 Dummy {f00=0x000d, f01=0x0190, f02=» W J P********************************************************************** X J P** ** X V J P** WSM INTERPRETER FOR FILE HANDLING ONLY ** X J P**
0x009e88…009e8e 00 00 00 00 00 00 ┆ ┆
0x009e8e…00a022 Dummy {f00=0x000d, f01=0x0190, f02=»LY. X x P** Y 4 P** THIS IS INTERESTING TO HAVE IN E.G. THE 6911 Y 2 P** OF A SYSTEM CONSISTING OF A 6911 WITH DISK Y N P** AND VD83:S. Y P** Y 8 P** THIS INTERPRETER CAN BE GENERATED BY TAKING THE Y P** FOLLOWING ACTIONS: Y P** Y 8
0x00a022…00a028 00 00 00 00 00 00 ┆ ┆
0x00a028…00a1bc Dummy {f00=0x000d, f01=0x0190, f02=»). SET PBBUF TO 256. Y 0 P** B) UNDER POINT 2 KEEP THE DEFAULT VALUES. Z P** C) UNDER POINTS 3 AND 4 Z P P** DELETE ALL LINES. Z r 0 P** D) UNDER POINT 5 (WSM MEMORY BUFFER POOL) Z 6 P** DEFINE A POOL BIG ENOUGH TO HOUSE THE LARGEST Z 4 P** FORMAT
0x00a1bc…00a1c0 00 00 00 00 ┆ ┆
0x00a1c0…00a1c2 00 00 ┆ ┆
0x00a1c2…00a356 Dummy {f00=0x000d, f01=0x018e, f02=»HE DEFAULT VALUES. Z v 4 P** F) UNDER POINT 7 (WSM INSTRUCTION SELECTION) [ 6 P** EXCLUDE ALL INSTRUCTIONS EXCEPT WOPEN, WCLOSE [ R P** AND WCODE AND/OR WSAVE. [ 4 P** G) UNDER POINT 8 (VALIDATION .... SELECTION) [ ( P** EXCLUDE THE COMPLETE VALIDAT
0x00a356…00a35c 00 00 00 00 00 00 ┆ ┆
0x00a35c…00a4f0 Dummy {f00=0x000d, f01=0x0190, f02=» P EJECT P** . P** J) REPLACE 0 (ZERO) BELOW WITH 1 (ONE). P** A N P** ! r P** --------- P** ! P** V PX:WDSP EQU 0 P** 4 P** THE FILE HANDLER TASK "FW" AND
0x00a4f0…00a4f6 00 00 00 00 00 00 ┆ ┆
0x00a4f6…00a68a Dummy {f00=0x000d, f01=0x0190, f02=» ** R J P********************************************************************** ] P ] ^ J P********************************************************************** ] f J P** EQUATES FOR WSMGEN ** ] J P**
0x00a68a…00a690 00 00 00 00 00 00 ┆ ┆
0x00a690…00a824 (0, 13) Dummy {f00=0x000d, f01=0x0190, f02=»****** ] P P NLIST ^ PXWDSP EQU X:WDSP ^ P IFT XWDSP=0 ^ 4 PWDSP EQU 1 ^ H P XIF ^ Z P NLIST ^ f P IFT XWDSP=1 ^ t PWDSP EQU 0 ^ P XIF ^ P EJECT ^ P ^ P ^ P ^ P ^ P ^ P ^ P ^ P ^ P ^ P ^ P ^
0x00a824…00a82a 00 00 00 00 00 00 ┆ ┆
0x00a82a…00a9be Dummy {f00=0x000d, f01=0x0190, f02=»EA SIZES: ** ^ b J P********************************************************************** _ P EJECT _ n P _ | J P********************************************************************** _ J P**
0x00a9be…00a9c0 00 00 ┆ ┆
0x00a9c0…00a9c4 00 00 00 00 ┆ ┆
0x00a9c4…00ab58 Dummy {f00=0x000d, f01=0x0190, f02=»RE APPLICATION DEPENDANT AND ** _ n J P** SHOULD BE ESTIMATED FOR ONLY O N E TASK. ** ` , J P** ** ` z P ` 8 PX:INOF EQU 9 NUMBER OF FAST CHOICE SECTIONS ( <10 ) `
0x00ab58…00ab5e 00 00 00 00 00 00 ┆ ┆
0x00ab5e…00acf2 Dummy {f00=0x000d, f01=0x018e, f02=» OF NUMERIC WSM WORK ITEMS ` | 2 PX:INUM EQU 100 SIZE OF NUMERIC WORK ITEMS AREA a " , P ( = NO OF ITEMS * SIZE OF ONE ITEM ) a X P a 4 PX:INOA EQU 10 NUMBER OF ALPHANUM WSM WORK ITEMS a 4 PX:IALP EQU 100 SIZE OF ALPHANUM WORK ITEMS AREA a , P ( = N
0x00acf2…00acf8 00 00 00 00 00 00 ┆ ┆
0x00acf8…00ae8c Dummy {f00=0x000d, f01=0x0190, f02=» * P FOLLOWING TABLES, ONE STARTING FROM b * P THE TOP, THE OTHER FROM THE BOTTOM: b 2 P b ` * P 1. SECTION SEQUENCE TABLE ( SST ) : b h , P EACH SECTION THAT IS ATTACHED BETWEEN b ( P OPEN AND CLOSE REQUIRES 20 BYTES. b P b , P 2. DYNAMIC
0x00ae8c…00ae92 00 00 00 00 00 00 ┆ ┆
0x00ae92…00b026 Dummy {f00=0x000d, f01=0x0190, f02=» + 1 BYTE FOR THE SIGN OF NUMERIC FIELDS. b P c 2 " P ESTIMATE FOR "WORST CASE" ! c : P c ` P EJECT c h P c v 2 PX:BBUF EQU 256 WSM PARAMETER BLOCK BUFFER SIZE c ~ P c 6 PX:NBUF EQU 100 INPUT (KEY BOARD) BUFFER SIZE (>=6) c P c 8 PX:TBUF EQU
0x00b026…00b02c 00 00 00 00 00 00 ┆ ┆
0x00b02c…00b1c0 Dummy {f00=0x000d, f01=0x0190, f02=» ** c J P********************************************************************** d B P d J P********************************************************************** d J P** EQUATES FOR
0x00b1c0…00b1c6 00 00 00 00 00 00 ┆ ┆
0x00b1c6…00b35a Dummy {f00=0x000d, f01=0x0190, f02=»******************************************************** d P NLIST e @ PXINOF EQU X:INOF e N PWWINOF EQU XINOF e f PXIFCS EQU X:IFCS e ~ PWWIFCS EQU XIFCS e PXINON EQU X:INON e PWWINON EQU XINON e PXINUM EQU X:INUM e PWWINUM EQU XINUM e
0x00b35a…00b360 00 00 00 00 00 00 ┆ ┆
0x00b360…00b4f4 (0, 14) Dummy {f00=0x000d, f01=0x0190, f02=» XTDFD e PXBBUF EQU X:BBUF f PPBBUF EQU XBBUF f & PXNBUF EQU X:NBUF f > PINBUF EQU XNBUF f V PXTBUF EQU X:TBUF f n POUTBUF EQU XTBUF f P LIST f P EJECT f P f J P**********************************************************************
0x00b4f4…00b4fa 00 00 00 00 00 00 ┆ ┆
0x00b4fa…00b68e Dummy {f00=0x000d, f01=0x0190, f02=»USER) ** f ^ J P********************************************************************** g P NLIST g j P g x 0 PSTKSIZ EQU 200 WSM STACK SIZE, NO. OF BYTES g < PWWIWK1 EQU WWI:LO+WWIFCS OVERHEAD + FAST CHOISE SECTIONS g : PWWIWK2 EQU WWINUM+WW
0x00b68e…00b694 00 00 00 00 00 00 ┆ ┆
0x00b694…00b828 Dummy {f00=0x000d, f01=0x0190, f02=»OCK g j < PTCSIZ2 EQU PBBUF+INBUF PAR. BLOCK BUFFER + INPUT BUFFER h PTCSIZ3 EQU OUTBUF+WWISIZ h L PTCSIZ4 EQU SSTDFD h l * PTCSIZ5 EQU TCSIZ4+STKSIZ DFD+SST+STACK h 4 PTCSIZ6 EQU TCSIZ1+TCSIZ2 TCA+PBLOCK+PBLBUF+INBUF h 6 PTCSIZ7 EQU TCSIZ3+TCSIZ5 OUT
0x00b828…00b82e 00 00 00 00 00 00 ┆ ┆
0x00b82e…00b9c2 Dummy {f00=0x000d, f01=0x0190, f02=» 6 PMSGLIN EQU /02 BIT MASK WHEN MESSAGE LINE OVERLAPS i P ... OTHER LINE i > . PVD82 EQU /08 BIT MASK WHEN VD82/83 IS USED i X P LIST i P i PS:GTAB EQU * i J P********************************************************************** i J
0x00b9c2…00b9c8 00 00 00 00 00 00 ┆ ┆
0x00b9c8…00bb5c Dummy {f00=0x000d, f01=0x0190, f02=» ** i X J P** (MUST NOT BE ALTERED BY THE USER) ** j J P** ** j d J P********************************************************************** j P NLIST j
0x00bb5c…00bb60 00 00 00 00 ┆ ┆
0x00bb60…00bb62 00 00 ┆ ┆
0x00bb62…00bcf6 Dummy {f00=0x000d, f01=0x0190, f02=»0,0 NOT USED j 0 PAPPSTA DATA W:INIT APPLICATION START ADDRESS k 6 PAPPERR DATA 0 APPL. ERROR HANDLING (0 = NOT USED) k H PAPPWRK DATA WRKSIZ k P EJECT k P k J P********************************************************************** k J P**
0x00bcf6…00bcfc 00 00 00 00 00 00 ┆ ┆
0x00bcfc…00be90 Dummy {f00=0x000d, f01=0x018e, f02=» k p 2 P** OR ERASING ALL SUBSCREENS USED BY ONE TASK. l , P** ZERO IF INTERPRETER WITH FILE HANDLER l > P** ONLY. l n J P** ** l ~ J P************************************************************
0x00be90…00be96 00 00 00 00 00 00 ┆ ┆
0x00be96…00c02a Dummy {f00=0x000d, f01=0x0190, f02=» P LIST m P EJECT m P m P m ( P m 0 P m 8 P m @ P m H P m P P m X P m ` P m h J P********************************************************************** m p J P** 2. DEVICE PARAMETERS: ** m
0x00c02a…00c030 00 00 00 00 00 00 ┆ ┆
0x00c030…00c1c4 (0, 15) Dummy {f00=0x000d, f01=0x0190, f02=»************************************** m p J P** ** n . J P** DEVICE FILE-CODES ** n | J P** THESE CODES CAN BE ALTERED BY THE USER.
0x00c1c4…00c1ca 00 00 00 00 00 00 ┆ ┆
0x00c1ca…00c35e Dummy {f00=0x000d, f01=0x0190, f02=» n ~ PX:DYFC EQU /58 SYSTEM LINE o " PX:DYFD EQU /50 SCREEN OR ... o , P 1ST LOGICAL SCREEN o R " PX:ICFC EQU /D0 INTERTASK INPUT o r $ PX:ICFD EQU /D1 INTERTASK OUTPUT o P o P** o > P** NOTE: KB BUZZER FILE CODE = 0 => SCREEN BUZZER IS U
0x00c35e…00c360 00 00 ┆ ┆
0x00c360…00c364 00 00 00 00 ┆ ┆
0x00c364…00c4f8 Dummy {f00=0x000d, f01=0x0190, f02=»D THIS FILE CODE. o ` H P** IF KEYBOARD BUZZER REQUESTS FAIL p D P** THE SCREEN BUZZER IS TRIED. p f L P** DRKB04 USES THE KB BUZZER IF A KB WITH BUZZER IS USED. ON OTHER p L P** K
0x00c4f8…00c4fe 00 00 00 00 00 00 ┆ ┆
0x00c4fe…00c692 Dummy {f00=0x000d, f01=0x0190, f02=»2/83:S. p X < P** ON OTHER DISPLAYS THE LAST SCREEN LINE IS USED. q P** q P D P** NOTE: LOGICAL SCREENS ON VD82/83:S SHOULD HAVE FILE CODES IN q Z < P** SEQUENCE STARTING WITH THE ONE SPECIFIED ABOVE. q P** q J P** NOTE: PRINTER FILE CODE I
0x00c692…00c698 00 00 00 00 00 00 ┆ ┆
0x00c698…00c82c Dummy {f00=0x000d, f01=0x0190, f02=» ** q r J P********************************************************************** r 0 P r ~ J P********************************************************************** r J P** EQUATES FOR WSMGEN
0x00c82c…00c832 00 00 00 00 00 00 ┆ ┆
0x00c832…00c9c6 Dummy {f00=0x000d, f01=0x018e, f02=»************************************** r p P NLIST s . PKB EQU X:KB s < PW:BZFC EQU * s P * P DATA X:BZFC KEY BOARD BUZZER (OUTPUT) s d P NLIST s PXDYFC EQU X:DYFC s PXDYFD EQU X:DYFD s P - LEFT BYTE = SYSTEM LINE s PW:DYFC EQU * s & P
0x00c9c6…00c9cc 00 00 00 00 00 00 ┆ ┆
0x00c9cc…00cb60 Dummy {f00=0x000d, f01=0x0190, f02=» s h PXICFC EQU X:ICFC t PXICFD EQU X:ICFD t PW:ICFC BYTE2 XICFC,XICFD t 8 P LIST t X P t f P EJECT t n P t | J P********************************************************************** t J P**
0x00cb60…00cb66 00 00 00 00 00 00 ┆ ┆
0x00cb66…00ccfa Dummy {f00=0x000d, f01=0x0190, f02=»FINES THE LAYOUT OF THE CURSOR ** t n J P** ** u , P u z ( P 1 & 3 => INVERSED BLOCK, BLINKING u & P 2 => INVERSED BLOCK, STEADY u " P 4 => UNDERLINE, STEADY u $ P 5 =
0x00ccfa…00cd00 00 00 00 00 00 00 ┆ ┆
0x00cd00…00ce94 (0, 16) Dummy {f00=0x000e, f01=0x0190, f02=» ** u ` J P********************************************************************** v P v l J P********************************************************************** v t J P** EQUATES FOR WSMGEN **
0x00ce94…00ce9a 00 00 00 00 00 00 ┆ ┆
0x00ce9a…00d02e Dummy {f00=0x000e, f01=0x0190, f02=»******************** v ^ P NLIST w PXCUMO EQU X:CUMO w * P w B PW:CUMO EQU * w J P DATA XCUMO w ^ P EJECT w r P w J P********************************************************************** w J P**
0x00d02e…00d034 00 00 00 00 00 00 ┆ ┆
0x00d034…00d1c8 Dummy {f00=0x000e, f01=0x018e, f02=»RACTER WILL BE ECHOED INSTEAD OF ** w r J P** INPUT CHAR. WHEN PICTURE CODE "*" IS USED ** x 0 J P** ** x ~ P x PX:ECHO EQU '*' x P x J P**
0x00d1c8…00d1ce 00 00 00 00 00 00 ┆ ┆
0x00d1ce…00d362 Dummy {f00=0x000e, f01=0x0190, f02=» x J P********************************************************************** y J P** EQUATES FOR WSMGEN ** y V J P** ( MUST NOT BE ALTERED BY THE USER ) ** y J P**********************
0x00d362…00d368 00 00 00 00 00 00 ┆ ┆
0x00d368…00d4fc Dummy {f00=0x000e, f01=0x0190, f02=» P z P EJECT z J P********************************************************************** z J P** ** z h J P** ONE OR TWO MESSAGE LINES. ** z J P**
0x00d4fc…00d500 00 00 00 00 ┆ ┆
0x00d500…00d502 00 00 ┆ ┆
0x00d502…00d696 Dummy {f00=0x000e, f01=0x0190, f02=»TO USE TWO MESSAGE LINES. WHEN DOING THIS z | @ P** THEY ARE REFERRED TO AS THE HELP AND THE ERROR LINE AND { 2 ( P** CONTAIN THE FOLLOWING MESSAGES: { v P** { P** -THE HELP LINE { @ P** EXTENDED PROMPT MESSAGES, GUIDING MESSAGES (HELP) , { .
0x00d696…00d69c 00 00 00 00 00 00 ┆ ┆
0x00d69c…00d830 Dummy {f00=0x000e, f01=0x0190, f02=»DATION ERRORS), { b @ P** WMSG,SECTION ON MESSAGE LINE AND WSM BASIC ERRORS. | P** | > P** IF TWO MESSAGELINES ARE USED THEN SET THE BITS BELOW | f 6 P** FOR VD 82/83 AND/OR OTHER VDU:S RESPECTIVELY | 8 P** IF ONE MESSAGELINE IS USED KEEP D
0x00d830…00d836 00 00 00 00 00 00 ┆ ┆
0x00d836…00d9ca Dummy {f00=0x000e, f01=0x0190, f02=» ** | l J P********************************************************************** } * P EJECT } x J P********************************************************************** } J P**
0x00d9ca…00d9d0 00 00 00 00 00 00 ┆ ┆
0x00d9d0…00db64 (0, 17) Dummy {f00=0x000e, f01=0x018e, f02=» ** } p P** ~ . P ~ 8 P ~ @ ( PX:MES1 EQU 0 ONE OR TWO MESSAGELINES ~ H < PX:MES2 EQU 0 IMMEDIATE OR DELAYED ERASE OF ERRORMESSAGE ~ t P ~ P** ~ P** TWO MESSAGE LINES: ~ P** ~ & P** SET THE FOLLOWING B
0x00db64…00db6a 00 00 00 00 00 00 ┆ ┆
0x00db6a…00dcfe Dummy {f00=0x000e, f01=0x0190, f02=» @ P** X:MES2=0 INDICATES THAT ERRORMESSAGES ARE ERASED 8 P** WHEN ACKNOWLEDGING THE MESSAGE H @ P** X:MES2=1 INDICATES THAT ERRORMESSAGES ARE ERASED H P** AFTER CORRECTION OF THE ERROR (DELAYED ERAS
0x00dcfe…00dd00 00 00 ┆ ┆
0x00dd00…00dd04 00 00 00 00 ┆ ┆
0x00dd04…00de98 Dummy {f00=0x000e, f01=0x0190, f02=» V B P** ERROR LINE IS ALWAYS = /58 (SYSTEM LINE). P** N J P** ** X J P** ** J P********************
0x00de98…00de9e 00 00 00 00 00 00 ┆ ┆
0x00de9e…00e032 Dummy {f00=0x000e, f01=0x0190, f02=» J J P** EQUATES FOR WSMGEN ** J P** ( MUST NOT BE ALTERED BY THE USER ) ** V J P********************************************************************** P NLIST P IFT X:M
0x00e032…00e038 00 00 00 00 00 00 ┆ ┆
0x00e038…00e1cc Dummy {f00=0x000e, f01=0x0190, f02=»FC EQU /57 HELPLINE FILECODE DEFAULT =/57 P XIF 2 P NLIST > PXMESS1 EQU X:MES1 L PXMESS2 EQU X:MES2 f PXHLPFC EQU X:HLFC PBYTMES FORM 1,1,6=0,8 & PW:MESS BYTMES XMESS1,XMESS2,XHLPFC P LIST P EJECT J P**********
0x00e1cc…00e1d2 00 00 00 00 00 00 ┆ ┆
0x00e1d2…00e366 Dummy {f00=0x000e, f01=0x0190, f02=»** L J P** OTHER VDU:S THAN VD82/83 ** J P** ** X P** P ( PX:MEG1 EQU 0 ONE OR TWO MESSAGELINES : PX:MEG2 EQU 0 IMMEDIATE OR DELAYED ER
0x00e366…00e36c 00 00 00 00 00 00 ┆ ┆
0x00e36c…00e500 Dummy {f00=0x000e, f01=0x0190, f02=» MESSAGE LINES: P** & P** SET THE FOLLOWING BITS ABOVE: " P** L 2 P** X:MEG1=0 INDICATES ONE MESSGAELINE V 2 P** X:MEG1=1 INDICATES TWO MESSAGELINES D P** X:MEG2=0 INDICATES THAT ERRORMESSAGES ARE ERASED WHEN 2
0x00e500…00e506 00 00 00 00 00 00 ┆ ┆
0x00e506…00e69a Dummy {f00=0x000e, f01=0x0190, f02=» CORRECTION OF THE ERROR (DELAYED ERASE) 6 P** X:MEG3=0 LAST LINE BUT ONE = ERRORLINE, > . P** LAST LINE = HELPLINE. x 6 P** X:MEG3=1 LAST LINE BUT ONE = HELPLINE, . P** LAST LINE = ERRO
0x00e69a…00e6a0 00 00 00 00 00 00 ┆ ┆
0x00e6a0…00e834 (0, 18) Dummy {f00=0x000e, f01=0x0190, f02=» ** n J P********************************************************************** , P z J P********************************************************************** J P** EQUATES FOR WSMGEN
0x00e834…00e83a 00 00 00 00 00 00 ┆ ┆
0x00e83a…00e9ce Dummy {f00=0x000e, f01=0x0190, f02=»********************************** l P NLIST * PXMESG1 EQU X:MEG1 8 PXMESG2 EQU X:MEG2 R PXMESG3 EQU X:MEG3 l PBYTMEG FORM 1,1,13=0,1 & PW:MESG BYTMEG XMESG1,XMESG2,XMESG3 P LIST P EJECT P P P P
0x00e9ce…00e9d4 00 00 00 00 00 00 ┆ ┆
0x00e9d4…00eb68 Dummy {f00=0x000e, f01=0x0190, f02=» 3. DEFINITION OF KEY CODES AND KEY TABLES: ** J P********************************************************************** F P IFT XWDSP=0 P EJECT P J P**********************************************************************
0x00eb68…00eb6e 00 00 00 00 00 00 ┆ ┆
0x00eb6e…00ed02 Dummy {f00=0x000e, f01=0x0190, f02=»TER. ** Z J P** THESE KEY CODES MIGHT BE ALTERED BY THE USER ** J P** ** f P P XIF PNOKEY EQU /EE P IFT XWDSP=0 PCLR EQU /8F CLEAR/RECA
0x00ed02…00ed08 00 00 00 00 00 00 ┆ ┆
0x00ed08…00ee9c Dummy {f00=0x000e, f01=0x0190, f02=»LP PENT EQU /80 ENTER PCAN EQU /91 CANCEL $ PPRT EQU /98 PRINT > PSEC EQU /8E SECTION X " POV EQU /8D OVERRIDE VALIDATION t PDUP EQU /90 DUPLICATE $ PASD EQU /92 AUTO SKIP/DUP/BYPASS " PFUN EQU /93 FUNCTION SELECTION " PTU
0x00ee9c…00eea0 00 00 00 00 ┆ ┆
0x00eea0…00eea2 00 00 ┆ ┆
0x00eea2…00f036 Dummy {f00=0x000e, f01=0x0190, f02=» ** J P********************************************************************** P EJECT h P v J P********************************************************************** ~ J P**
0x00f036…00f03c 00 00 00 00 00 00 ┆ ┆
0x00f03c…00f1d0 Dummy {f00=0x000e, f01=0x0190, f02=»IMPLEMENTED THESE KEYS ** h J P** WILL ALSO BE POSSIBLE TO ALTER. ** & J P** ** t P " PARI EQU NOKEY ARITHMETICS /?? PLIN EQU NOKEY LINE /81
0x00f1d0…00f1d6 00 00 00 00 00 00 ┆ ┆
0x00f1d6…00f36a Dummy {f00=0x000e, f01=0x0190, f02=»**************************** f P EJECT $ P 2 J P********************************************************************** : J P** ** J P** INFORMATION ON KEYS HANDLED
0x00f36a…00f370 00 00 00 00 00 00 ┆ ┆
0x00f370…00f504 (0, 19) Dummy {f00=0x000e, f01=0x0190, f02=»*** ******** ** r J P** ** 0 P ~ PINS EQU /0F INSERT PDEL EQU /0E DELETE PCFD EQU /10 CURSOR FORWARD PCBD EQU /09 CURSOR BACKWARD PBSP EQU
0x00f504…00f50a 00 00 00 00 00 00 ┆ ┆
0x00f50a…00f69e Dummy {f00=0x000e, f01=0x0190, f02=»OMBINATIONS: r P - ALL + CFD P - ALL + CBD , P ARE SUPPORTED. D P ON VD82/83: ^ PSUP EQU /11 SCROLL UP t PSDWN EQU /12 SCROLL DOWN PSLFT EQU /13 SCROLL LEFT PSRGT EQU /14 SCROLL RIGHT P J P**
0x00f69e…00f6a0 00 00 ┆ ┆
0x00f6a0…00f6a4 00 00 00 00 ┆ ┆
0x00f6a4…00f838 Dummy {f00=0x000e, f01=0x0190, f02=» J P P J P********************************************************************** J P** EQUATES FOR WSMGEN ** f J P** ( MUST NOT BE ALTERED BY THE USER ) ** J P******
0x00f838…00f83e 00 00 00 00 00 00 ┆ ┆
0x00f83e…00f9d2 Dummy {f00=0x000e, f01=0x0190, f02=»EQU TFD PTFD1 EQU TFD01 PTFD02 EQU TFD & PTFD2 EQU TFD02 < PTBD01 EQU TBD R PTBD1 EQU TBD01 h PTBD02 EQU TBD ~ PTBD2 EQU TBD02 PCR01 EQU CR PCR1 EQU CR01 PCR02 EQU CR PCR2 EQU CR02 PHLP01 EQU HLP
0x00f9d2…00f9d8 00 00 00 00 00 00 ┆ ┆
0x00f9d8…00fb6c Dummy {f00=0x000e, f01=0x0190, f02=» PENT2 EQU ENT02 PCAN01 EQU CAN PCAN1 EQU CAN01 0 PCAN02 EQU CAN F PCAN2 EQU CAN02 PPRT01 EQU PRT r PPRT1 EQU PRT01 PPRT02 EQU PRT PPRT2 EQU PRT02 PSEC01 EQU SEC PSEC1 EQU SEC01 PSEC02 EQU SEC
0x00fb6c…00fb72 00 00 00 00 00 00 ┆ ┆
0x00fb72…00fd06 Dummy {f00=0x000e, f01=0x0190, f02=»FUN1 EQU FUN01 PFUN02 EQU FUN PFUN2 EQU FUN02 , PTUP01 EQU TUP B PTUP1 EQU TUP01 X PTUP02 EQU TUP n PTUP2 EQU TUP02 PTDW01 EQU TDW PTDW1 EQU TDW01 PTDW02 EQU TDW PTDW2 EQU TDW02 PARI01 EQU ARI P
0x00fd06…00fd0c 00 00 00 00 00 00 ┆ ┆
0x00fd0c…00fea0 Dummy {f00=0x000e, f01=0x0190, f02=» EQU INS03 PDEL03 EQU DEL PDEL3 EQU DEL03 ( PTFD03 EQU TFD > PTFD3 EQU TFD03 T PTBD03 EQU TBD j PTBD3 EQU TBD03 PPRT03 EQU PRT PPRT3 EQU PRT03 PCLR03 EQU CLR PCLR3 EQU CLR03 PCAN03 EQU CAN PCAN3
0x00fea0…00fea6 00 00 00 00 00 00 ┆ ┆
0x00fea6…01003a Dummy {f00=0x000e, f01=0x0190, f02=» CAN04 PCLR05 EQU CLR PCLR5 EQU CLR05 $ PCAN05 EQU CAN : PCAN5 EQU CAN05 P PCLR06 EQU CLR f PCLR6 EQU CLR06 | PCAN06 EQU CAN PCAN6 EQU CAN06 POV06 EQU OV POV6 EQU OV06 PUKEY EQU 0 PX:UKEY EQU UKEY
0x01003a…010040 00 00 00 00 00 00 ┆ ┆
0x010040…0101d4 (0, 20) Dummy {f00=0x000f, f01=0x0190, f02=» PUK07 EQU NOKEY PUK08 EQU NOKEY PUK09 EQU NOKEY 0 PUK10 EQU NOKEY F PUK11 EQU NOKEY PUK12 EQU NOKEY r PUK13 EQU NOKEY PUK14 EQU NOKEY PUK15 EQU NOKEY PUK16 EQU NOKEY PUK17 EQU NOKEY PUK18 EQU NOKEY
0x0101d4…0101da 00 00 00 00 00 00 ┆ ┆
0x0101da…01036e Dummy {f00=0x000f, f01=0x0190, f02=»UK25 EQU NOKEY PUK011 EQU UK01 PUK012 EQU UK01 , PUK021 EQU UK02 B PUK022 EQU UK02 X PUK031 EQU UK03 n PUK032 EQU UK03 PUK041 EQU UK04 PUK042 EQU UK04 PUK051 EQU UK05 PUK052 EQU UK05 PUK061 EQU UK06 P
0x01036e…010374 00 00 00 00 00 00 ┆ ┆
0x010374…010508 Dummy {f00=0x000f, f01=0x0190, f02=»2 EQU UK09 PUK101 EQU UK10 PUK102 EQU UK10 ( PUK111 EQU UK11 > PUK112 EQU UK11 T PUK121 EQU UK12 j PUK122 EQU UK12 PUK131 EQU UK13 PUK132 EQU UK13 PUK141 EQU UK14 PUK142 EQU UK14 PUK151 EQU UK15 PUK15
0x010508…01050e 00 00 00 00 00 00 ┆ ┆
0x01050e…0106a2 Dummy {f00=0x000f, f01=0x0190, f02=»U UK18 PUK191 EQU UK19 PUK192 EQU UK19 $ PUK201 EQU UK20 : PUK202 EQU UK20 P PUK211 EQU UK21 f PUK212 EQU UK21 | PUK221 EQU UK22 PUK222 EQU UK22 PUK231 EQU UK23 PUK232 EQU UK23 PUK241 EQU UK24 PUK242 EQ
0x0106a2…0106a8 00 00 00 00 00 00 ┆ ┆
0x0106a8…01083c Dummy {f00=0x000f, f01=0x018e, f02=»22 PU031 EQU UK031 PU032 EQU UK032 PU041 EQU UK041 6 PU042 EQU UK042 L PU051 EQU UK051 b PU052 EQU UK052 x PU061 EQU UK061 PU062 EQU UK062 PU071 EQU UK071 PU072 EQU UK072 PU081 EQU UK081 PU082 EQU UK0
0x01083c…010840 00 00 00 00 ┆ ┆
0x010840…010842 00 00 ┆ ┆
0x010842…0109d6 Dummy {f00=0x000f, f01=0x0190, f02=» PU121 EQU UK121 PU122 EQU UK122 PU131 EQU UK131 4 PU132 EQU UK132 J PU141 EQU UK141 ` PU142 EQU UK142 v PU151 EQU UK151 PU152 EQU UK152 PU161 EQU UK161 PU162 EQU UK162 PU171 EQU UK171 PU172 EQU UK172
0x0109d6…0109dc 00 00 00 00 00 00 ┆ ┆
0x0109dc…010b70 Dummy {f00=0x000f, f01=0x0190, f02=» PU211 EQU UK211 PU212 EQU UK212 PU221 EQU UK221 0 PU222 EQU UK222 F PU231 EQU UK231 PU232 EQU UK232 r PU241 EQU UK241 PU242 EQU UK242 PU251 EQU UK251 PU252 EQU UK252 P LIST P EJECT P P XIF
0x010b70…010b76 00 00 00 00 00 00 ┆ ┆
0x010b76…010d0a Dummy {f00=0x000f, f01=0x0190, f02=» ** J P** W:KTB1 KEYTABLE 1. USED IN: ** L J P** 1. NORMAL READ IN NOT PROTECTED DYN FIELDS. ** J P**
0x010d0a…010d10 00 00 00 00 00 00 ┆ ┆
0x010d10…010ea4 (0, 21) Dummy {f00=0x000f, f01=0x0190, f02=» WHEN DOING THIS REMEMBER: ** J P** ** B J P** 1. USER KEYS MUST BE ADDED TO THE END ** J P** . OF THE KEYTABLE.
0x010ea4…010eaa 00 00 00 00 00 00 ┆ ┆
0x010eaa…01103e Dummy {f00=0x000f, f01=0x0190, f02=». BE ALTERED. ** z J P** 3. KEYS HANDLED BY WSM BUT NOT USED IN YOUR ** 8 J P** . SYSTEM SHOULD BE SET TO NOKEY IN THE KEY ** J P** . CODE LIST ABOVE.
0x01103e…011040 00 00 ┆ ┆
0x011040…011044 00 00 00 00 ┆ ┆
0x011044…0111d8 Dummy {f00=0x000f, f01=0x0190, f02=»************************************** p P . J P********************************************************************** 6 J P** KEY TABLE FORMS ** J P** (MUST NOT BE ALTERED BY THE USER
0x0111d8…0111de 00 00 00 00 00 00 ┆ ┆
0x0111de…011372 Dummy {f00=0x000f, f01=0x0190, f02=»KT08 FORM 8,8,8,8,8,8,8,8 $ PKT07 FORM 8,8,8,8,8,8,8,8=NOKEY " PKT06 FORM 8,8,8,8,8,8 J PKT05 FORM 8,8,8,8,8,8=NOKEY h PKT04 FORM 8,8,8,8 PKT03 FORM 8,8,8,8=NOKEY PKT02 FORM 8,8 PKT01 FORM 8,8=NOKEY P LIST P I
0x011372…011378 00 00 00 00 00 00 ┆ ┆
0x011378…01150c Dummy {f00=0x000f, f01=0x0190, f02=» ** ~ 4 P** NUMBER OF KEYS. INCREMENT THIS NUMBER WITH AS < . P** ! MANY KEYS AS YOU WANT TO ADD. t P** ! P** V PKTB1L EQU 16+X:UKEY P 2 P KT08 KTB1L,TUP1,TDW1,TFD1,TBD1,PR
0x01150c…011512 00 00 00 00 00 00 ┆ ┆
0x011512…0116a6 Dummy {f00=0x000f, f01=0x0190, f02=»** ! ADD HERE YOUR KEY CODES WITH COMMAS P** ! IN BETWEEN. 6 P** ! T < P** INCREMENT THIS DIGIT WITH AS MANY KEYS AS YOU WANT d P** TO ADD. P** > P** IF MORE THAN 7 EXTRA KEYS ARE NEEDED, INCREMENT WITH 7 < P**
0x0116a6…0116ac 00 00 00 00 00 00 ┆ ┆
0x0116ac…011840 Dummy {f00=0x000f, f01=0x0190, f02=» K1,K2,...,KX P 6 P** WHERE X DENOTES THE NUMBER OF KEYS ON THE LINE. P** X > P** A KEY IS EXCLUDED BY REPLACING ITS EQUATE BY THE EQUATE b P** NOKEY. P** J P**********************************************************************
0x011840…011846 00 00 00 00 00 00 ┆ ┆
0x011846…0119da Dummy {f00=0x000f, f01=0x0190, f02=»SEMBLY FOR WSMGEN ** r J P********************************************************************** 0 P IFF X:UKEY=0 ~ P IFF X:UKEY=1 P KT02 U021,U031 P IFF X:UKEY=2 P IFF X:UKEY=3 P KT02 U041,U051 P I
0x0119da…0119e0 00 00 00 00 00 00 ┆ ┆
0x0119e0…011b74 (0, 22) Dummy {f00=0x000f, f01=0x018e, f02=»FF X:UKEY=8 P IFF X:UKEY=9 P KT02 U101,U111 * P IFF X:UKEY=10 B P IFF X:UKEY=11 X P KT02 U121,U131 n P IFF X:UKEY=12 P IFF X:UKEY=13 P KT02 U141,U151 P IFF X:UKEY=14 P IFF X:UKEY=15 P KT02 U161,U171
0x011b74…011b7a 00 00 00 00 00 00 ┆ ┆
0x011b7a…011d0e Dummy {f00=0x000f, f01=0x0190, f02=» ~ P IFF X:UKEY=20 P IFF X:UKEY=21 P KT02 U221,U231 4 P IFF X:UKEY=22 L P IFF X:UKEY=23 b P KT02 U241,U251 x P XIF P IFT XWDSP=0 P EJECT P** KEYVALIDATION-BITMAP: P** < P** IT IS POSSIBLE TO SELECT WHET
0x011d0e…011d14 00 00 00 00 00 00 ┆ ┆
0x011d14…011ea8 Dummy {f00=0x000f, f01=0x0190, f02=»M KEY IS PERFORMED h P** OR NOT. P** , P** IN THE BITMAP BELOW 6 < P** CTU ,CTD ,CTF ,...,CCA CORRESPOND TO THE KEYS T @ P** TUP1 ,TDW1 ,TFD1 ,...,CAN1 IN W:KTB1 ( OR TO THE KEYS 2 P** NOKEY,NOKEY,TFD2 ,...,CAN2 IN W:KTB2 ).
0x011ea8…011eae 00 00 00 00 00 00 ┆ ┆
0x011eae…012042 Dummy {f00=0x000f, f01=0x018e, f02=»BIT X < P** MAP CORRESPONDING WITH THE USED FUNCTION KEY IS SET: P** L . P** AS DEFAULT THE FOLLOWING BITS ARE SET: V 8 P** CTF,CTB,CAS,CSE,CCR,CDU,CEN AND CFU I.E THE KEYS 4 P** TFD,TBD,ASD,SEC,CR,DUP,ENT AND FUN WILL GIVE P** VALIDATIO
0x012042…012048 00 00 00 00 00 00 ┆ ┆
0x012048…0121dc Dummy {f00=0x000f, f01=0x0190, f02=» P** P NLIST PKTU EQU 0 PKTD EQU 0 . PKTF EQU 1 @ PKTB EQU 1 R PKPR EQU 0 d PKLI EQU 0 v PKHL EQU 0 PKAR EQU 0 PKAS EQU 1 PKCL EQU 0 PKSE EQU 1 PKCR EQU 1 PKDU EQU 1 PKE
0x0121dc…0121e0 00 00 00 00 ┆ ┆
0x0121e0…0121e2 00 00 ┆ ┆
0x0121e2…012376 Dummy {f00=0x000f, f01=0x0190, f02=»QU 0 PK7 EQU 0 PK8 EQU 0 PK9 EQU 0 , PK10 EQU 0 < PK11 EQU 0 N PK12 EQU 0 ` PK13 EQU 0 r PK14 EQU 0 PK15 EQU 0 PK16 EQU 0 PK17 EQU 0 PK18 EQU 0 PK19 EQU 0 PK20 EQU 0 PK21 EQ
0x012376…01237c 00 00 00 00 00 00 ┆ ┆
0x01237c…012510 Dummy {f00=0x000f, f01=0x0190, f02=» PCTB EQU KTB PCPR EQU KPR PCLI EQU KLI 0 PCHL EQU KHL D PCAR EQU KAR X PCAS EQU KAS l PCCL EQU KCL PCSE EQU KSE PCCR EQU KCR PCDU EQU KDU PCEN EQU KEN PCFU EQU KFU PCCA EQU KCA
0x012510…012516 00 00 00 00 00 00 ┆ ┆
0x012516…0126aa Dummy {f00=0x000f, f01=0x0190, f02=» K8 PC9 EQU K9 PC10 EQU K10 PC11 EQU K11 2 PC12 EQU K12 F PC13 EQU K13 Z PC14 EQU K14 n PC15 EQU K15 PC16 EQU K16 PC17 EQU K17 PC18 EQU K18 PC19 EQU K19 PC20 EQU K20 PC21 EQU K21
0x0126aa…0126b0 00 00 00 00 00 00 ┆ ┆
0x0126b0…012844 (0, 23) Dummy {f00=0x000f, f01=0x0190, f02=» P XIF PW:KT1V EQU * P IFT XWDSP=0 $ H P BIT16 0,CTU,CTD,CTF,CTB,CPR,CLI,CHL,CAR,CAS,CCL,CSE,CCR,CDU,CEN,CFU 8 B P BIT16 CCA,C1,C2,C3,C4,C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15 < P BIT16 C16,C17,C18,C19,C20,C21,C22,C23,C24,C25,0,0,0,0,0
0x012844…01284a 00 00 00 00 00 00 ┆ ┆
0x01284a…0129de Dummy {f00=0x000f, f01=0x0190, f02=»N CHECKS ARE NEVER PERFORMED. r P** & > P** NOTE: THE ASD BIT SHOULD BE SET LIKE THE TFD BIT. ( BY 0 > P** TURNING ON THE AUTO S/D/B SWITCH AT A FIELD WITH r < P** E.G. THE AUTO SKIP ATTRIBUTE SET INPUT TO THAT ( P** FIELD WILL
0x0129de…0129e0 00 00 ┆ ┆
0x0129e0…0129e4 00 00 00 00 ┆ ┆
0x0129e4…012b78 Dummy {f00=0x000f, f01=0x0190, f02=»IT IS MODIFIED AND NOT EMPTY OR j > P** IF IT HAS THE MANDATORY VALIDATION ATTRIBUTE SET. ( J P** ** j J P********************************************************************** P
0x012b78…012b7e 00 00 00 00 00 00 ┆ ┆
0x012b7e…012d12 Dummy {f00=0x000f, f01=0x0190, f02=»********************** ` J P** ** J P** W:KTB2 KEYTABLE 2. USED IN: ** l J P** 1. NORMAL READ IN PROTECTED DYN FIELDS. ** J P
0x012d12…012d18 00 00 00 00 00 00 ┆ ┆
0x012d18…012eac Dummy {f00=0x000f, f01=0x0190, f02=»R IN THE ** V J P** SAME WAY AS KEYTABLE 1. ** J P** ** b J P********************************************************************** P PKT
0x012eac…012eb2 00 00 00 00 00 00 ┆ ┆
0x012eb2…013046 Dummy {f00=0x000f, f01=0x0190, f02=»T02 CAN2,U012 P P J P********************************************************************** & J P** COND. ASSEMBLY FOR WSMGEN ** t J P** ( MUST NOT BE ALTERED BY THE USER ) **
0x013046…01304c 00 00 00 00 00 00 ┆ ┆
0x01304c…0131e0 Dummy {f00=0x000f, f01=0x018e, f02=»U022,U032 P IFF X:UKEY=2 P IFF X:UKEY=3 ( P KT02 U042,U052 > P IFF X:UKEY=4 V P IFF X:UKEY=5 l P KT02 U062,U072 P IFF X:UKEY=6 P IFF X:UKEY=7 P KT02 U082,U092 P IFF X:UKEY=8 P IFF X:UKEY=9
0x0131e0…0131e6 00 00 00 00 00 00 ┆ ┆
0x0131e6…01337a Dummy {f00=0x000f, f01=0x0190, f02=» P KT02 U142,U152 P IFF X:UKEY=14 P IFF X:UKEY=15 2 P KT02 U162,U172 H P IFF X:UKEY=16 ` P IFF X:UKEY=17 v P KT02 U182,U192 P IFF X:UKEY=18 P IFF X:UKEY=19 P KT02 U202,U212 P IFF X:UKEY=20 P IFF X:UKE
0x01337a…013380 00 00 00 00 00 00 ┆ ┆
0x013380…013514 (0, 24) Dummy {f00=0x0010, f01=0x0190, f02=» EJECT P P XIF PW:KTB3 EQU * " P IFT XWDSP=0 > J P********************************************************************** R J P** ** J P** W:KTB3 KEYT
0x013514…01351a 00 00 00 00 00 00 ┆ ┆
0x01351a…0136ae Dummy {f00=0x0010, f01=0x0190, f02=» NOTE: ** J P** 1. THE NUMBER OF KEYS MUST NOT BE ALTERED. ** H J P** 2. KEYS CAN BE REPLACED BY OTHER KEYS OR ** J P** BE EXCLUDED.
0x0136ae…0136b4 00 00 00 00 00 00 ┆ ┆
0x0136b4…013848 Dummy {f00=0x0010, f01=0x018e, f02=» SHOULD BE USED. ** J P** 4. ONLY THE POSITION IN THE KEY TABLE ** > J P** DETERMINE THE FUNCTION OF THE KEY. ** J P**
0x013848…01384e 00 00 00 00 00 00 ┆ ┆
0x01384e…0139e2 Dummy {f00=0x0010, f01=0x0190, f02=» 2 P KT08 KTB3L,INS3,DEL3,TFD3,TBD3,PRT3,CLR3,CAN3 P : P XIF B PW:KTB4 EQU * N P IFT XWDSP=0 j J P********************************************************************** ~ J P**
0x0139e2…0139e8 00 00 00 00 00 00 ┆ ┆
0x0139e8…013b7c Dummy {f00=0x0010, f01=0x0190, f02=»ER SECTION KEY STROKE ** h J P** 2. 1:ST READ AFTER FUNCTION KEY STROKE. ** & J P** NOTE: SEE W:KTB3. ** t J P** **
0x013b7c…013b80 00 00 00 00 ┆ ┆
0x013b80…013b82 00 00 ┆ ┆
0x013b82…013d16 Dummy {f00=0x0010, f01=0x018e, f02=»CAN4 z P EJECT P P XIF " PW:KTB5 EQU * . P IFT XWDSP=0 J J P********************************************************************** ^ J P** ** J P** W:KTB5
0x013d16…013d1c 00 00 00 00 00 00 ┆ ┆
0x013d1c…013eb0 Dummy {f00=0x0010, f01=0x0190, f02=» H J P** NOTE: SEE W:KTB3. ** J P** ** V J P********************************************************************** P PKTB5L EQU 2
0x013eb0…013eb6 00 00 00 00 00 00 ┆ ┆
0x013eb6…01404a Dummy {f00=0x0010, f01=0x0190, f02=»************************************** p J P** ** . J P** W:KTB6 KEYTABLE 6.USED IN: ** | J P** WARNING SITUATIONS.
0x01404a…014050 00 00 00 00 00 00 ┆ ┆
0x014050…0141e4 (0, 25) Dummy {f00=0x0010, f01=0x0190, f02=» ** f J P********************************************************************** $ P r PKTB6L EQU 3 z P KT04 KTB6L,CLR6,CAN6,OV6 P XIF P EJECT P P P P P P P P
0x0141e4…0141ea 00 00 00 00 00 00 ┆ ┆
0x0141ea…01437e Dummy {f00=0x0010, f01=0x0190, f02=»YSTEM MESSAGES: ** h J P********************************************************************** & P IFT XWDSP=0 t P EJECT P PW:SM EQU * J P********************************************************************** J P
0x01437e…014380 00 00 ┆ ┆
0x014380…014384 00 00 00 00 ┆ ┆
0x014384…014518 Dummy {f00=0x0010, f01=0x0190, f02=» ** V J P** ** J P** ALL 5 MESSAGES CAN BE CHANGED OR TRANSLATED ** b J P** BY THE USER. ** J P**
0x014518…01451e 00 00 00 00 00 00 ┆ ┆
0x01451e…0146b2 Dummy {f00=0x0010, f01=0x0190, f02=»** L J P********************************************************************** P X P ` J P********************************************************************** h J P** EQUATES FOR WSMGEN ** J P**
0x0146b2…0146b8 00 00 00 00 00 00 ┆ ┆
0x0146b8…01484c Dummy {f00=0x0010, f01=0x0190, f02=»******** R P NLIST PX:SM01 EQU 0 PXSM01 EQU X:SM01 2 PX:SM02 EQU 0 J PXSM02 EQU X:SM02 ^ PX:SM03 EQU 0 v PXSM03 EQU X:SM03 PX:SM04 EQU 0 PXSM04 EQU X:SM04 PX:SM05 EQU 0 PXSM05 EQU X:SM05 PX:SM5C EQU 0
0x01484c…014852 00 00 00 00 00 00 ┆ ┆
0x014852…0149e6 Dummy {f00=0x0010, f01=0x0190, f02=»ANDATORY FIELD FOUND | P IFT XWDSP=0 2 P DATA SM01E-W:SM01 *************************** 0 P IFT XSM01=0 f P DATA 'MANDATORY FIELD' z P XIF P IFT XWDSP=0 P IFF XSM01=0 P DATA SM01R01 P IFF XSM01=1 P DATA SM01R02
0x0149e6…0149ec 00 00 00 00 00 00 ┆ ┆
0x0149ec…014b80 Dummy {f00=0x0010, f01=0x0190, f02=» XSM01=5 P DATA SM01R05 P IFF XSM01=6 & P DATA SM01R06 : P IFF XSM01=7 P P DATA SM01R07 d P IFF XSM01=8 z P DATA SM01R08 P IFF XSM01=9 P DATA SM01R09 P IFF XSM01=10 P DATA SM01R10 P IFF XSM01=11
0x014b80…014b86 00 00 00 00 00 00 ┆ ┆
0x014b86…014d1a Dummy {f00=0x0010, f01=0x0190, f02=» P DATA SM01R14 P IFF XSM01=15 P DATA SM01R15 0 P XIF F PSM01E EQU * R 0 PW:SM02 EQU * NOT FULL MUST FILL FIELD FOUND f P IFT XWDSP=0 6 P DATA SM02E-W:SM02 ****************************** P IFT XSM02=0 $ P DATA 'DIGIT
0x014d1a…014d20 00 00 00 00 00 00 ┆ ┆
0x014d20…014eb4 (0, 26) Dummy {f00=0x0010, f01=0x0190, f02=» P IFF XSM02=2 P DATA SM02R03 P IFF XSM02=3 2 P DATA SM02R04 F P IFF XSM02=4 P DATA SM02R04 p P IFF XSM02=5 P DATA SM02R05 P IFF XSM02=6 P DATA SM02R06 P IFF XSM02=7 P DATA SM02R07 P IFF
0x014eb4…014eba 00 00 00 00 00 00 ┆ ┆
0x014eba…01504e Dummy {f00=0x0010, f01=0x0190, f02=»1 P DATA SM02R11 P IFF XSM02=12 P DATA SM02R12 6 P IFF XSM02=13 L P DATA SM02R13 b P IFF XSM02=14 x P DATA SM02R14 P IFF XSM02=15 P DATA SM02R15 P XIF PSM02E EQU * P EJECT P 0 PW:
0x01504e…015054 00 00 00 00 00 00 ┆ ┆
0x015054…0151e8 Dummy {f00=0x0010, f01=0x0190, f02=»03=0 P DATA 'F:' P XIF P IFT XWDSP=0 * P IFF XSM03=0 > P DATA SM03R01 R P IFF XSM03=1 h P DATA SM03R02 | P IFF XSM03=2 P DATA SM03R03 P IFF XSM03=3 P DATA SM03R04 P IFF XSM03=4 P DATA SM03R04
0x0151e8…0151ee 00 00 00 00 00 00 ┆ ┆
0x0151ee…015382 Dummy {f00=0x0010, f01=0x0190, f02=»FF XSM03=8 P DATA SM03R08 P IFF XSM03=9 ( P DATA SM03R09 < P IFF XSM03=10 R P DATA SM03R10 h P IFF XSM03=11 ~ P DATA SM03R11 P IFF XSM03=12 P DATA SM03R12 P IFF XSM03=13 P DATA SM03R13 P IFF X
0x015382…015388 00 00 00 00 00 00 ┆ ┆
0x015388…01551c Dummy {f00=0x0010, f01=0x0190, f02=»HOWN AFTER SECTION-KEY STROKE P IFT XWDSP=0 & 6 P DATA SM04E-W:SM04 ****************************** : P IFT XSM04=0 t P DATA 'S:' P XIF P IFT XWDSP=0 P IFF XSM04=0 P DATA SM04R01 P IFF XSM04=1 P DATA SM04R02
0x01551c…015520 00 00 00 00 ┆ ┆
0x015520…015522 00 00 ┆ ┆
0x015522…0156b6 Dummy {f00=0x0010, f01=0x0190, f02=» XSM04=5 P DATA SM04R05 P IFF XSM04=6 & P DATA SM04R06 : P IFF XSM04=7 P P DATA SM04R07 d P IFF XSM04=8 z P DATA SM04R08 P IFF XSM04=9 P DATA SM04R09 P IFF XSM04=10 P DATA SM04R10 P IFF XSM04=11
0x0156b6…0156bc 00 00 00 00 00 00 ┆ ┆
0x0156bc…015850 Dummy {f00=0x0010, f01=0x0190, f02=» P DATA SM04R14 P IFF XSM04=15 P DATA SM04R15 0 P XIF F PSM04E EQU * R , PW:SM05 EQU * SHOWN AFTER WSM BASIC ERROR f P IFT XWDSP=0 2 P DATA SM05E-W:SM05 *************************** P DATA /1E1E - LOW INTENSITY P IFT
0x015850…015856 00 00 00 00 00 00 ┆ ┆
0x015856…0159ea Dummy {f00=0x0010, f01=0x018e, f02=» P DATA SM05R02 P IFF XSM05=2 P DATA SM05R03 . P IFF XSM05=3 D P DATA SM05R04 X P IFF XSM05=4 n P DATA SM05R04 P IFF XSM05=5 P DATA SM05R05 P IFF XSM05=6 P DATA SM05R06 P IFF XSM05=7 P DATA SM
0x0159ea…0159f0 00 00 00 00 00 00 ┆ ┆
0x0159f0…015b84 (0, 27) Dummy {f00=0x0010, f01=0x0190, f02=» P IFF XSM05=11 P DATA SM05R11 P IFF XSM05=12 4 P DATA SM05R12 J P IFF XSM05=13 ` P DATA SM05R13 v P IFF XSM05=14 P DATA SM05R14 P IFF XSM05=15 P DATA SM05R15 P XIF P IFT XWDSP=0 ( P DAT
0x015b84…015b8a 00 00 00 00 00 00 ┆ ┆
0x015b8a…015d1e Dummy {f00=0x0010, f01=0x0190, f02=»SM BASIC ERROR CODE z & P DATA /1E1D - LOW INTENSITY,NORMAL P IFT XSM5C=0 F P DATA ' S:' Z P XIF n P IFT XWDSP=0 z P IFF XSM5C=0 P DATA ' ' P DATA SM5CR01 P IFF XSM5C=1 P DATA P DATA SM5CR02 P IFF X
0x015d1e…015d20 00 00 ┆ ┆
0x015d20…015d24 00 00 00 00 ┆ ┆
0x015d24…015eb8 Dummy {f00=0x0010, f01=0x0190, f02=» P DATA SM5CR04 P IFF XSM5C=5 P DATA . P DATA SM5CR05 < P IFF XSM5C=6 R P DATA f P DATA SM5CR06 t P IFF XSM5C=7 P DATA P DATA SM5CR07 P IFF XSM5C=8 P DATA P DATA SM5CR08 P IFF XSM5C=9
0x015eb8…015ebe 00 00 00 00 00 00 ┆ ┆
0x015ebe…016052 Dummy {f00=0x0010, f01=0x0190, f02=» DATA SM5CR11 P IFF XSM5C=12 P DATA , P DATA SM5CR12 : P IFF XSM5C=13 P P DATA f P DATA SM5CR13 t P IFF XSM5C=14 P DATA P DATA SM5CR14 P IFF XSM5C=15 P DATA P DATA SM5CR15 P XIF
0x016052…016058 00 00 00 00 00 00 ┆ ┆
0x016058…0161ec Dummy {f00=0x0010, f01=0x0190, f02=»ED FOR SECTION NAME ~ & P DATA /1E1D - LOW INTESITY,NORMAL P IFT XSM5S=0 F P DATA ' F:' Z P XIF n P IFT XWDSP=0 z P IFF XSM5S=0 P DATA ' ' P DATA SM5SR01 P IFF XSM5S=1 P DATA P DATA SM5SR02 P IFF X
0x0161ec…0161f2 00 00 00 00 00 00 ┆ ┆
0x0161f2…016386 Dummy {f00=0x0010, f01=0x0190, f02=» P DATA SM5SR04 P IFF XSM5S=5 P DATA . P DATA SM5SR05 < P IFF XSM5S=6 R P DATA f P DATA SM5SR06 t P IFF XSM5S=7 P DATA P DATA SM5SR07 P IFF XSM5S=8 P DATA P DATA SM5SR08 P IFF XSM5S=9
0x016386…01638c 00 00 00 00 00 00 ┆ ┆
0x01638c…016520 Dummy {f00=0x0010, f01=0x0190, f02=» DATA SM5SR11 P IFF XSM5S=12 P DATA , P DATA SM5SR12 : P IFF XSM5S=13 P P DATA f P DATA SM5SR13 t P IFF XSM5S=14 P DATA P DATA SM5SR14 P IFF XSM5S=15 P DATA P DATA SM5SR15 P XIF
0x016520…016526 00 00 00 00 00 00 ┆ ┆
0x016526…0166ba Dummy {f00=0x0010, f01=0x0190, f02=»OR NAME OF DYNAMIC ~ * P DATA 0 ... FIELD WHERE ERROR OCCURRED P DATA /1D1D - NORMAL IMAGE H PSM05E EQU * j P XIF ~ P EJECT P P P P P P P P P P J P********************************
0x0166ba…0166c0 00 00 00 00 00 00 ┆ ┆
0x0166c0…016854 (0, 28) Dummy {f00=0x0011, f01=0x0190, f02=»********************************************************** P EJECT B J P********************************************************************** P J P** ** J P** WSM ME
0x016854…01685a 00 00 00 00 00 00 ┆ ┆
0x01685a…0169ee Dummy {f00=0x0011, f01=0x0190, f02=»NES SHOULD BE ALTERED TO GET THE DESIRED 2 P** POOL SIZE. AS AN EXAMPLE A POOL SIZE OF 10 0 P** POOL UNITS IS USED. f 0 P** ASSUME A SIZE OF N POOL UNITS IS WANTED. P** THEN: P** P** LINE 1: & P** ! DEFINE N ( 2
0x0169ee…0169f4 00 00 00 00 00 00 ┆ ┆
0x0169f4…016b88 Dummy {f00=0x0011, f01=0x0190, f02=») d P** ! P** V PX:POOL EQU 3200 & P** > P** LINE 3: H 2 P** ! RESERVE N*6 WORDS ( 25*6 => 150 ) P** ! P** V PX:OLAD EQU 150 P** P** P** P** P EJECT P P**
0x016b88…016b8e 00 00 00 00 00 00 ┆ ┆
0x016b8e…016d22 Dummy {f00=0x0011, f01=0x018e, f02=» ** d J P** ( MUST NOT BE ALTERED BY THE USER ) ** " J P********************************************************************** p P NLIST PPOOLNO EQU X:OLNO PPOOL RES X:POOL PPOOLAD RES
0x016d22…016d28 00 00 00 00 00 00 ┆ ┆
0x016d28…016ebc Dummy {f00=0x0011, f01=0x018e, f02=» P** P** LINE 4: < P** ! DEFINE M WORDS WHERE M EQUALS THE INTEGER PART OF & 6 P** ! (N+15)/16. ( M=INT((25+15)/16)=2 ) f P** ! < P** ! IN THESE WORDS, SET THE N FIRST BITS TO 1 AND THE & P** ! FOLLOWING BITS TO 0
0x016ebc…016ec0 00 00 00 00 ┆ ┆
0x016ec0…016ec2 00 00 ┆ ┆
0x016ec2…017056 Dummy {f00=0x0011, f01=0x0190, f02=» P** P EJECT P P** ( P** 2 J P********************************************************************** < J P** COND. ASSEMBLY FOR WSMGEN ** J P************************************************
0x017056…01705c 00 00 00 00 00 00 ┆ ┆
0x01705c…0171f0 Dummy {f00=0x0011, f01=0x0190, f02=»A /FFFF,/FFFF,/FFFF,/FFFF,/FFFF ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF ( ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF T P XIF P IFT XNMASK=15 ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF " P DATA /FFFF,/F
0x0171f0…0171f6 00 00 00 00 00 00 ┆ ┆
0x0171f6…01738a Dummy {f00=0x0011, f01=0x0190, f02=»F n P DATA /FFFF,/FFFF,/FFFF P XIF * P IFT XNMASK=13 6 ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF L ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF x P DATA /FFFF,/FFFF P XIF P IFT XNMASK=12 ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF
0x01738a…017390 00 00 00 00 00 00 ┆ ┆
0x017390…017524 (0, 29) Dummy {f00=0x0011, f01=0x0190, f02=»F n ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF P XIF 6 P IFT XNMASK=10 B ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF X " P DATA /FFFF,/FFFF,/FFFF,/FFFF P XIF P IFT XNMASK=9 ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF P DATA /FFFF,/FFF
0x017524…01752a 00 00 00 00 00 00 ┆ ┆
0x01752a…0176be Dummy {f00=0x0011, f01=0x0190, f02=» XNMASK=7 ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF P DATA /FFFF > P XIF R P IFT XNMASK=6 ^ ( P DATA /FFFF,/FFFF,/FFFF,/FFFF,/FFFF t P XIF P IFT XNMASK=5 " P DATA /FFFF,/FFFF,/FFFF,/FFFF P XIF P IFT XNMASK=4
0x0176be…0176c0 00 00 ┆ ┆
0x0176c0…0176c4 00 00 00 00 ┆ ┆
0x0176c4…017858 Dummy {f00=0x0011, f01=0x0190, f02=»FFF P XIF P DATA XPMASK P** , P** 6 P** @ P** J P****NLIST T PFSEND DATA 0,0 f P****LIST | P EJECT P P P P P P P P P P P J P**********************
0x017858…01785e 00 00 00 00 00 00 ┆ ┆
0x01785e…0179f2 Dummy {f00=0x0011, f01=0x0190, f02=»******************************************************************** P EJECT L P Z J P********************************************************************** b J P** ** J P**
0x0179f2…0179f8 00 00 00 00 00 00 ┆ ┆
0x0179f8…017b8c Dummy {f00=0x0011, f01=0x0190, f02=»** L 2 P** THE WSM FILE HANDLER IS A SEPARATE PART OF 0 P** THE WSM INTERPRETER AND ALSO A SEPARATE @ P** TASK. t P** 4 P** IN INTELLIGENT WORKSTATIONS (E.G. VD83) WITH 6 P** NO FILES THE FILE HANDLER SHOULD BE EXCLUDED. P**
0x017b8c…017b92 00 00 00 00 00 00 ┆ ┆
0x017b92…017d26 Dummy {f00=0x0011, f01=0x018e, f02=» P** ! P** V PX:FHCA EQU 0 P** 4 0 P** THE FILE HANDLER TASK "FW" MUST ALSO BE @ , P** DELETED FROM THE CONFIGURATION FILE. t J P** ** J P**********************
0x017d26…017d2c 00 00 00 00 00 00 ┆ ┆
0x017d2c…017ec0 Dummy {f00=0x0011, f01=0x018e, f02=» H J P** EQUATES FOR WSMGEN ** J P** ( MUST NOT BE ALTERED BY THE USER ) ** V J P********************************************************************** P NLIST PXFHCA EQ
0x017ec0…017ec6 00 00 00 00 00 00 ┆ ┆
0x017ec6…01805a Dummy {f00=0x0011, f01=0x0190, f02=» P EJECT P P J P********************************************************************** & J P** POOL & FILE HANDLER POINTERS. ** t J P** (MUST NOT BE CHANGED.) **
0x01805a…018060 00 00 00 00 00 00 ┆ ┆
0x018060…0181f4 (0, 30) Dummy {f00=0x0011, f01=0x0190, f02=» RES 128 ORDER-DATA TO FILE-HANDLER P , " PS:POOL DATA POOL -> POOL START 4 2 PS:POLA DATA POOLAD -> POOL ADMINISTRATION DATA Z $ PS:FILT DATA FILTAB -> FILE TABLE 0 PS:POLF DATA POOLFS -> POOL FREE SPACE VECTOR 4 PS:FORD DATA FORDER -> ORDER-
0x0181f4…0181fa 00 00 00 00 00 00 ┆ ┆
0x0181fa…01838e Dummy {f00=0x0011, f01=0x0190, f02=»********************************************************************** J P** 7. WSM INSTRUCTION SELECTION: ** N J P********************************************************************** P EJECT P PWSMTAB
0x01838e…018394 00 00 00 00 00 00 ┆ ┆
0x018394…018528 Dummy {f00=0x0011, f01=0x0190, f02=» ** j J P** WSMTAB WSM INSTRUCTIONS - BRANCH TABLE ** ( J P** ** v : P** TO EXCLUDE INSTRUCTIONS NOT IN USE IN YOUR SYSTEM, J P** RE
0x018528…01852e 00 00 00 00 00 00 ┆ ┆
0x01852e…0186c2 Dummy {f00=0x0011, f01=0x0190, f02=» ! ! 8 P** ------- --------- 8 0 P** ! ! t 0 P** V V P P IFT XWDSP=0 P DATA W:OPEN WOP
0x0186c2…0186c8 00 00 00 00 00 00 ┆ ┆
0x0186c8…01885c Dummy {f00=0x0011, f01=0x0190, f02=» | P DATA W:CLOSE WCLOSE P DATA W:SAVE WSAVE $ P DATA W:DLET WDLETE > P DATA W:FATR WFATTR Z P DATA W:CODE WCODE v P DATA W:FID WFID & P DATA W:GTPM GET FIELD PARAMETERS P XIF P IFT XWDSP=1 P DATA W:OPEN WOPEN
0x01885c…018860 00 00 00 00 ┆ ┆
0x018860…018862 00 00 ┆ ┆
0x018862…0189f6 Dummy {f00=0x0011, f01=0x018e, f02=»A W:SAVE WSAVE P DATA W:ENDR P DATA W:ENDR * P DATA W:CODE WCODE > P DATA W:ENDR X P DATA W:ENDR l P XIF P J P** ** J P**************************************
0x0189f6…0189fc 00 00 00 00 00 00 ┆ ┆
0x0189fc…018b90 Dummy {f00=0x0011, f01=0x018e, f02=» P P P P J P********************************************************************** ( J P** 8. VALIDATION STATEMENT & FUNCTION ** v J P** . & OPERATOR SELECTION:
0x018b90…018b96 00 00 00 00 00 00 ┆ ┆
0x018b96…018d2a Dummy {f00=0x0011, f01=0x0190, f02=» J P********************************************************************** J P** ** R J P** W:VALA VALIDATION LANGUAGE - MAIN ROUTINE. ** P** , P** TO EXCLUDE T
0x018d2a…018d30 00 00 00 00 00 00 ┆ ┆
0x018d30…018ec4 (0, 31) Dummy {f00=0x0011, f01=0x0190, f02=»CH TABLE AND VALIDATION OPERATORS r P** BRANCH TABLE BELOW ! * P** J P T PX:VEVA EQU 1 P p J P** ** x J P******************************************************************
0x018ec4…018eca 00 00 00 00 00 00 ┆ ┆
0x018eca…01905e Dummy {f00=0x0011, f01=0x018e, f02=»EN ** j J P** ( MUST NOT BE ALTERED BY THE USER ) ** ( J P********************************************************************** v P NLIST PXVEVA EQU X:VEVA P IFT XVEVA=0 P DATA 0
0x01905e…019060 00 00 ┆ ┆
0x019060…019064 00 00 00 00 ┆ ┆
0x019064…0191f8 Dummy {f00=0x0011, f01=0x0190, f02=» z P IFT XVEVA=1 J P********************************************************************** J P** ** j J P** W:STMT VALIDATION STATEMENTS - BRANCH TABLE ** P**
0x0191f8…0191fe 00 00 00 00 00 00 ┆ ┆
0x0191fe…019392 Dummy {f00=0x0011, f01=0x0190, f02=»MENTS BY W:V01C! 8 P** A A 8 P** ! ! T 8 P** ------- --------- 0 P** ! ! 0 P**
0x019392…019398 00 00 00 00 00 00 ┆ ┆
0x019398…01952c Dummy {f00=0x0011, f01=0x0190, f02=»V004 GO TO/GOTO " P DATA W:V006 IF...THEN LIN NO $ P DATA W:V008 IF...THEN STATEMENT > ( P DATA W:V00A ON...GO TO/GOTO LINE NO f P DATA W:V00C CALL P DATA W:V00E SECT P DATA W:V010 ATTR P DATA W:V012 STOP P DATA W:V014 E
0x01952c…019532 00 00 00 00 00 00 ┆ ┆
0x019532…0196c6 Dummy {f00=0x0011, f01=0x0190, f02=» ** J P********************************************************************** H P EJECT J P********************************************************************** J P**
0x0196c6…0196cc 00 00 00 00 00 00 ┆ ┆
0x0196cc…019860 Dummy {f00=0x0011, f01=0x0190, f02=» BRANCH TABLES. ** P** L > P** TO EXCLUDE VALIDATION OPERATORS & FUNCTIONS NOT IN USE V P** IN YOUR SYSTEM, H P** REPLACE LABELS CORRESPONDING WITH EXCLUDED OPERATORS BY W:EXP5! 8 P**
0x019860…019866 00 00 00 00 00 00 ┆ ┆
0x019866…0199fa Dummy {f00=0x0011, f01=0x0190, f02=» --------- x 0 P** ! ! $ 0 P** V V X $ P DATA W:CMP RELATIONAL OPERATORS P XIF PW:OPER EQU * P IFT XVEVA=1 P DATA W:OP0E CONCATENATE P
0x0199fa…019a00 00 00 00 00 00 00 ┆ ┆
0x019a00…019b94 (0, 32) Dummy {f00=0x0012, f01=0x0190, f02=» P DATA W:OP14 SUBTRACT P DATA W:OP15 DIVIDE " P DATA W:OP16 MULTIPLY > P DATA W:OP17 ABS P DATA W:OP18 INT t P DATA W:OP19 SGN P DATA W:OP1A TIM P DATA W:OP1B DAY P DATA W:OP1C SYS P DATA W:OP1D LEN P DAT
0x019b94…019b9a 00 00 00 00 00 00 ┆ ┆
0x019b9a…019d2e Dummy {f00=0x0012, f01=0x0190, f02=» ** J P********************************************************************** H P EJECT P P P P J P********************************************************************
0x019d2e…019d34 00 00 00 00 00 00 ┆ ┆
0x019d34…019ec8 Dummy {f00=0x0012, f01=0x0190, f02=» ** ` J P** DEFINE A NUMBER OF ASSEMBLER ROUTINES ** J P** THAT CORRESPOND TO CALLS FROM YOUR VALIDATION.** l J P** A CONSECUTIVE TABLE OF ENTRIES ** J P
0x019ec8…019ece 00 00 00 00 00 00 ┆ ┆
0x019ece…01a062 Dummy {f00=0x0012, f01=0x0190, f02=»************ V P PX:UFNR EQU 0 P 0 J P********************************************************************** 8 J P** EQUATES FOR WSMGEN ** J P** ( MUST NOT BE ALTERED BY THE U
0x01a062…01a068 00 00 00 00 00 00 ┆ ┆
0x01a068…01a1fc Dummy {f00=0x0012, f01=0x0190, f02=»QU XUFNR+XUFNR P : P DATA XUFNR2-2 W:UFTB LENGTH EQUATES MAX UF INDEX * 2 4 P* AND IS NEGATIVE (-2) IF NO UF:S ARE DEFINED P XIF PW:UFTB EQU * P IFT XVEVA=1 P IFF XUFNR=0 P DATA UF00 P IFF XUFNR=1 P DATA
0x01a1fc…01a200 00 00 00 00 ┆ ┆
0x01a200…01a202 00 00 ┆ ┆
0x01a202…01a396 Dummy {f00=0x0012, f01=0x018e, f02=»=5 P DATA UF05 P IFF XUFNR=6 P DATA UF06 0 P IFF XUFNR=7 B P DATA UF07 V P IFF XUFNR=8 h P DATA UF08 | P IFF XUFNR=9 P DATA UF09 P IFF XUFNR=10 P DATA UF10 P IFF XUFNR=11 P DATA UF11 P IFF
0x01a396…01a39c 00 00 00 00 00 00 ┆ ┆
0x01a39c…01a530 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF15 P IFF XUFNR=16 P DATA UF16 , P IFF XUFNR=17 > P DATA UF17 T P IFF XUFNR=18 f P DATA UF18 | P IFF XUFNR=19 P DATA UF19 P IFF XUFNR=20 P DATA UF20 P IFF XUFNR=21 P DATA UF21 P I
0x01a530…01a536 00 00 00 00 00 00 ┆ ┆
0x01a536…01a6ca Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF25 P IFF XUFNR=26 P DATA UF26 , P IFF XUFNR=27 > P DATA UF27 T P IFF XUFNR=28 f P DATA UF28 | P IFF XUFNR=29 P DATA UF29 P IFF XUFNR=30 P DATA UF30 P IFF XUFNR=31 P DATA UF31 P I
0x01a6ca…01a6d0 00 00 00 00 00 00 ┆ ┆
0x01a6d0…01a864 (0, 33) Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF35 P IFF XUFNR=36 P DATA UF36 , P IFF XUFNR=37 > P DATA UF37 T P IFF XUFNR=38 f P DATA UF38 | P IFF XUFNR=39 P DATA UF39 P IFF XUFNR=40 P DATA UF40 P IFF XUFNR=41 P DATA UF41 P I
0x01a864…01a86a 00 00 00 00 00 00 ┆ ┆
0x01a86a…01a9fe Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF45 P IFF XUFNR=46 P DATA UF46 , P IFF XUFNR=47 > P DATA UF47 T P IFF XUFNR=48 f P DATA UF48 | P IFF XUFNR=49 P DATA UF49 P IFF XUFNR=50 P DATA UF50 P IFF XUFNR=51 P DATA UF51 P I
0x01a9fe…01aa00 00 00 ┆ ┆
0x01aa00…01aa04 00 00 00 00 ┆ ┆
0x01aa04…01ab98 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF55 P IFF XUFNR=56 P DATA UF56 , P IFF XUFNR=57 > P DATA UF57 T P IFF XUFNR=58 f P DATA UF58 | P IFF XUFNR=59 P DATA UF59 P IFF XUFNR=60 P DATA UF60 P IFF XUFNR=61 P DATA UF61 P I
0x01ab98…01ab9e 00 00 00 00 00 00 ┆ ┆
0x01ab9e…01ad32 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF65 P IFF XUFNR=66 P DATA UF66 , P IFF XUFNR=67 > P DATA UF67 T P IFF XUFNR=68 f P DATA UF68 | P IFF XUFNR=69 P DATA UF69 P IFF XUFNR=70 P DATA UF70 P IFF XUFNR=71 P DATA UF71 P I
0x01ad32…01ad38 00 00 00 00 00 00 ┆ ┆
0x01ad38…01aecc Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF75 P IFF XUFNR=76 P DATA UF76 , P IFF XUFNR=77 > P DATA UF77 T P IFF XUFNR=78 f P DATA UF78 | P IFF XUFNR=79 P DATA UF79 P IFF XUFNR=80 P DATA UF80 P IFF XUFNR=81 P DATA UF81 P I
0x01aecc…01aed2 00 00 00 00 00 00 ┆ ┆
0x01aed2…01b066 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF85 P IFF XUFNR=86 P DATA UF86 , P IFF XUFNR=87 > P DATA UF87 T P IFF XUFNR=88 f P DATA UF88 | P IFF XUFNR=89 P DATA UF89 P IFF XUFNR=90 P DATA UF90 P IFF XUFNR=91 P DATA UF91 P I
0x01b066…01b06c 00 00 00 00 00 00 ┆ ┆
0x01b06c…01b200 Dummy {f00=0x0012, f01=0x0190, f02=» P DATA UF95 P IFF XUFNR=96 P DATA UF96 , P IFF XUFNR=97 > P DATA UF97 T P IFF XUFNR=98 f P DATA UF98 | P IFT XUFNR=99 P DATA UF99 P XIF P EJECT P P P P P P P P
0x01b200…01b206 00 00 00 00 00 00 ┆ ┆
0x01b206…01b39a Dummy {f00=0x0012, f01=0x018e, f02=» 9. USER DEFINED ASSEMBLER ROUTINE LINKED ** J P** . WITH THE WSM INTERPRETER: ** D J P********************************************************************** P EJECT P J P******************
0x01b39a…01b3a0 00 00 00 00 00 00 ┆ ┆
0x01b3a0…01b534 (0, 34) Dummy {f00=0x0012, f01=0x0190, f02=» J P** IT IS POSSIBLE TO LINK AN USERDEFINED ** J P** ASEMBLER ROUTINE WITH THE WSM INTER- ** R J P** PRETER TO BE CALLED FROM THE APPLICATION OR ** J P** THE
0x01b534…01b53a 00 00 00 00 00 00 ┆ ┆
0x01b53a…01b6ce Dummy {f00=0x0012, f01=0x0190, f02=» PLACING THE ZERO BELOW WITH THE NAME OF ** J P** THE ASSEMBLER SUBROUTINE. THIS NAME MUST ** H J P** ALSO BE DEFINED AS EXTERNAL ACCORDING ** J P** TO "EXTRN"-DEC
0x01b6ce…01b6d4 00 00 00 00 00 00 ┆ ┆
0x01b6d4…01b868 Dummy {f00=0x0012, f01=0x0190, f02=» ** J P** 1. SUBROUTINE CALLED FROM THE APPLICATION ** > P** P NLIST PX:USRU EQU 0 PXUSRU EQU X:USRU P LIST P IFT XUSRU=0 PW:USRU DATA 0 P
0x01b868…01b86e 00 00 00 00 00 00 ┆ ┆
0x01b86e…01ba02 Dummy {f00=0x0012, f01=0x018e, f02=» ** N J P** 2. SUBROUTINE CALLED FROM WSM INTERPRETER ** J P** . DURING A WRCIVE REQUEST E.G TO MODIFY THE ** Z J P** . PBLK BUFFER RETURNED TO THE APPLICATION ** P** P NLIST
0x01ba02…01ba08 00 00 00 00 00 00 ┆ ┆
0x01ba08…01bb9c Dummy {f00=0x0012, f01=0x0190, f02=» PW:PBUF DATA Q:S904 P XIF P * P EJECT 2 J P** ** @ J P** NOTE: ** J P** THIS INTERFACE SHOULD
0x01bb9c…01bba0 00 00 00 00 ┆ ┆
0x01bba0…01bba2 00 00 ┆ ┆
0x01bba2…01bd36 Dummy {f00=0x0012, f01=0x0190, f02=»LLED FROM WSM BASIC. ** x J P** ** 6 J P** NOTE: ** J P** THIS INTERFACE IS NOT RECOMMENDE
0x01bd36…01bd3c 00 00 00 00 00 00 ┆ ┆
0x01bd3c…01bed0 Dummy {f00=0x0012, f01=0x0190, f02=» ** n J P********************************************************************** , P EJECT z P P P P P P P P P P P P P P P J P********
0x01bed0…01bed6 00 00 00 00 00 00 ┆ ┆
0x01bed6…01c06a Dummy {f00=0x0012, f01=0x0190, f02=» ** N J P********************************************************************** P EJECT Z P h P p P x J P********************************************************************** J P**
0x01c06a…01c070 00 00 00 00 00 00 ┆ ┆
0x01c070…01c204 (0, 35) Dummy {f00=0x0012, f01=0x0190, f02=»UFFER TO BE SENT BACK TO ** j J P** THE APPLICATION IT IS POSSIBLE TO EXCLUDE ** ( J P** THE DECIMAL POINT OR COMMA. ** v J P** THIS IS DONE BY REPLACING THE PACKROUTINE
0x01c204…01c20a 00 00 00 00 00 00 ┆ ┆
0x01c20a…01c39e Dummy {f00=0x0012, f01=0x0190, f02=» ** ` J P** ** J P********************************************************************** l P PW:NUMP EQU * P IFT XWDSP=0 P DATA W:NPA2 P XIF
0x01c39e…01c3a0 00 00 ┆ ┆
0x01c3a0…01c3a4 00 00 00 00 ┆ ┆
0x01c3a4…01c538 Dummy {f00=0x0012, f01=0x0190, f02=»********************************************************************** J P** 11.WSM BASIC DEBUGGER. ** N J P********************************************************************** P P EJECT J P********
0x01c538…01c53e 00 00 00 00 00 00 ┆ ┆
0x01c53e…01c6d2 Dummy {f00=0x0012, f01=0x018e, f02=» ** N J P** THE WSM VALIDATION BASIC LANGUAGE DEBUGGER. ** J P** ** Z J P** W:BBUG ** J P**
0x01c6d2…01c6d8 00 00 00 00 00 00 ┆ ┆
0x01c6d8…01c86c Dummy {f00=0x0012, f01=0x018e, f02=» J P** EXCLUDE THE DEBUGGER. ** J P** SET THE DATA WORD BELOW TO W:BBUG TO ** R J P** INCLUDE THE DEBUGGER. ** J P**
0x01c86c…01c872 00 00 00 00 00 00 ┆ ┆
0x01c872…01ca06 Dummy {f00=0x0012, f01=0x0190, f02=» PW:BUGG EQU * P IFT XWDSP=0 PWBBUG DATA 0 , P XIF @ P EJECT L P Z P b P j P r P z P P P P P P P P P P J P******************************************************
0x01ca06…01ca0c 00 00 00 00 00 00 ┆ ┆
0x01ca0c…01cba0 Dummy {f00=0x0012, f01=0x018e, f02=»DEPENDANT DATA. ** n J P********************************************************************** , P EJECT z P PW:INIT EQU * J P********************************************************************** J P**
0x01cba0…01cba6 00 00 00 00 00 00 ┆ ┆
0x01cba6…01cd3a Dummy {f00=0x0012, f01=0x0190, f02=» H J P** ** J P** ** V J P** INPUT: A2 = TASK-ID ** J P**
0x01cd3a…01cd40 00 00 00 00 00 00 ┆ ┆
0x01cd40…01ced4 (0, 36) Dummy {f00=0x0013, f01=0x0190, f02=» OUTPUT: A13 -> WSM-TCA ** J P** A14 -> WSM-STACK ** L J P** TCA & ECB:S & WWI INITIALIZED ** J P**
0x01ced4…01ceda 00 00 00 00 00 00 ┆ ┆
0x01ceda…01d06e Dummy {f00=0x0013, f01=0x0190, f02=»****************************************************************** J P** SET A13 -> WSM-TCA ** J J P** SET A14 -> WSM-STACK ** J P**********************************
0x01d06e…01d074 00 00 00 00 00 00 ┆ ┆
0x01d074…01d208 Dummy {f00=0x0013, f01=0x0190, f02=»IRST WORD n * P SUKL A14,2 A14 -> "BOTTOM" STACK WORD P EJECT @ J P********************************************************************** N J P** CHECK IF FILE-HANDLER TASK. ** J P******************************
0x01d208…01d20e 00 00 00 00 00 00 ┆ ┆
0x01d20e…01d3a2 Dummy {f00=0x0013, f01=0x0190, f02=»HCA FILE HANDLER IN SYSTEM ? P RF(Z) INIT10 - NO ! $ & P ABR A1 ACTIVATE FILE HANDLER TASK @ PINIT10 EQU * j P ~ P J P********************************************************************** J P** SET BUFFER ADDR IN INT
0x01d3a2…01d3a8 00 00 00 00 00 00 ┆ ┆
0x01d3a8…01d53c Dummy {f00=0x0013, f01=0x0190, f02=»> WSM-TCA 2 P ADKL A5,PB:FC A5 -> WSM PARAMETER BLOCK START 4 P ST A5,TC:IC+ECB:BA,A13 SET BUF. ADDR IN IC-ECB H P P J P********************************************************************** J P** STORE TASK-ID AND ST
0x01d53c…01d540 00 00 00 00 ┆ ┆
0x01d540…01d542 00 00 ┆ ┆
0x01d542…01d6d6 Dummy {f00=0x0013, f01=0x0190, f02=»-ID z $ P ST A14,TC:STK,A13 STACK POINTER P EJECT 4 J P********************************************************************** B J P** INITIALIZE ECB:S ** J P******************************************
0x01d6d6…01d6dc 00 00 00 00 00 00 ┆ ┆
0x01d6dc…01d870 Dummy {f00=0x0013, f01=0x0190, f02=»E CODE r P SC A1,TC:EKO+1,A13 * P PRINTER FILE CODE IS SET IN APPL. ! * P X P LDR A1,A13 A1 -> WSM-TCA ` 2 P ADKL A1,PB:BUF+PBBUF A1 -> INPUT BUFFER START 6 P ST A1,TC:KB+ECB:BA,A13 SET BUFFER ADDRESS FOR KB , P ADKL A1,INBUF A1 -> O
0x01d870…01d876 00 00 00 00 00 00 ┆ ┆
0x01d876…01da0a Dummy {f00=0x0013, f01=0x0190, f02=» 8 P ST A1,TC:PRT+ECB:BA,A13 SET BUFFER ADDRESS FOR PRT P IC:ECB-BA IS SET ABOVE ! D ( P LDR A5,A1 A5 -> OUTPUT BUFFER START h P P LDR A1,A13 A1 -> WSM-TCA : P ADK A1,TC:KB+KB:PBL A1 -> KEY BOARD INPUT PAR. BLOCK : P ST A1,TC:KB
0x01da0a…01da10 00 00 00 00 00 00 ┆ ┆
0x01da10…01dba4 (0, 37) Dummy {f00=0x0013, f01=0x0190, f02=»E IN KB-ECB t P EJECT J P********************************************************************** " J P** INITIALIZE WSM WORK ITEMS AREA. ** p J P** STORE WWI-ADDRESS IN WS:TCA. **
0x01dba4…01dbaa 00 00 00 00 00 00 ┆ ┆
0x01dbaa…01dd3e Dummy {f00=0x0013, f01=0x0190, f02=»A5 -> 1ST BYTE AFTER OUTPUT BUFFER & P ST A5,TC:WWI,A13 STORE IN WS:TCA * 4 P LDK A2,WWINOF A2 := NO OF FAST CHOISE SECTIONS T P SCR A2,A5 STORE IN WWI-AREA : P LDK A3,WWIFCL A3 := LENGTH OF ONE FAST CHOISE SECT WI & P SC A3,WWI:LF,A5 STORE IN
0x01dd3e…01dd40 00 00 ┆ ┆
0x01dd40…01dd44 00 00 00 00 ┆ ┆
0x01dd44…01ded8 Dummy {f00=0x0013, f01=0x0190, f02=»A p & P ST A2,WWI:AN,A5 STORE IN WWI-AREA , P ADKL A2,WWINUM A2 -> ALPHANUM WWI-AREA 4 & P ST A2,WWI:AA,A5 STORE IN WWI-AREA d 2 P LDK A3,WWINON A3 := NO OF NUMERIC WORK ITEMS & P SC A3,WWI:NN,A5 STORE IN WWI-AREA 6 P LDKL A2,WWINUM A2 := TOTA
0x01ded8…01dede 00 00 00 00 00 00 ┆ ┆
0x01dede…01e072 Dummy {f00=0x0013, f01=0x0190, f02=»A5 RESULT, LENGTH OF EACH NUM WORK ITEM, | P IS STORED IN WWI-AREA ! 0 < P LDK A3,WWINOA SAME PROCEDURE FOR ALPHANUM WORK ITEMS ! ! P P SC A3,WWI:NA,A5 ! P LDKL A2,WWIALP ! P RF(Z) INIT25 ! P DVR A3 ! PINIT25 SC A2,WWI:LA,A5 ! P EJE
0x01e072…01e078 00 00 00 00 00 00 ┆ ┆
0x01e078…01e20c Dummy {f00=0x0013, f01=0x0190, f02=»ESS ** ! ` J P********************************************************************** " P " l " P ADKL A5,WWISIZ A5 -> DFD-AREA " t P ST A5,TC:DFD,A13 " J P********************************************************************** " J P**
0x01e20c…01e212 00 00 00 00 00 00 ┆ ┆
0x01e212…01e3a6 Dummy {f00=0x0013, f01=0x0190, f02=»****** " P P # 2 P ADKL A5,SSTDFD A5 -> 1ST BYTE AFTER SST-AREA # P ST A5,TC:SST,A13 # L P # f P # n J P********************************************************************** # v J P** SET STANDARD KEY TABLE AND BITMAP
0x01e3a6…01e3ac 00 00 00 00 00 00 ┆ ┆
0x01e3ac…01e540 Dummy {f00=0x0013, f01=0x018e, f02=»3 # P LDKL A5,W:KT1V $ P ST A5,TC:KTV,A13 $ " P $ < P EJECT $ D P $ R J P********************************************************************** $ Z J P** GET SCREEN SIZE AND TYPE OF VDU ** $ J P**
0x01e540…01e546 00 00 00 00 00 00 ┆ ┆
0x01e546…01e6da Dummy {f00=0x0013, f01=0x0190, f02=» P % PINIT35 EQU * % " P LDR A8,A13 A8 -> DISPLAY ECB % P ADKL A8,TC:EKO % F $ P LDK A1,2 - SET REQUESTED LENGTH % ^ P ST A1,ECB:RL,A8 % & P CM ECB:CW,A8 LOGICAL SIZE WANTED % , P LDK A7,/AC A7 := READ SCREEN SIZE ORDER % P LKM % P DAT
0x01e6da…01e6e0 00 00 00 00 00 00 ┆ ┆
0x01e6e0…01e874 (0, 38) Dummy {f00=0x0013, f01=0x0190, f02=».THE REQUEST IS MADE ON % z P SC A3,1,A8 SYSTEM LINE & . P MAKE BASIC READ TO FIND OUT IF VD82/83 & @ ( P LDK A7,/81 - A7 := BASIC READ ORDER & r P LKM & P DATA 1 & P ECR A3,A3 & * P SC A3,1,A8 RETURN FC FOR SUBSCREEN 1 & P LDK A3,VD82
0x01e874…01e87a 00 00 00 00 00 00 ┆ ┆
0x01e87a…01ea0e Dummy {f00=0x0013, f01=0x0190, f02=»************************* & ^ P P** ** ' " P P** IF RC IS NOT NEGATIVE (=/8000) AND NOT = ZERO, THE WORK STATION IS ** ' v P P** NOT OPERABLE. THIS DEPENDS ON:
0x01ea0e…01ea14 00 00 00 00 00 00 ┆ ┆
0x01ea14…01eba8 Dummy {f00=0x0013, f01=0x0190, f02=»CONTROL UNIT IS A LITTLE BIT SLOW... ** ' r P P** THEREFORE A NEW ATTEMPT TO READ THE WORK STATION IS PERFORMED, AFTER ** ( 6 P P** A TASK DELAY. THIS FIRM-WARE ERROR WAS DETECTED 1983-09-09 AT LMO ** ( P P** SWEDEN (BANKDATA / VD82). WHEN REPAIRE
0x01eba8…01ebae 00 00 00 00 00 00 ┆ ┆
0x01ebae…01ed42 Dummy {f00=0x0013, f01=0x0190, f02=» ** ( P P*************************************************************************** ) J P ) . P LD A1,ECB:RC,A8 BASIC READ OK -> VD82,83 ) P RF(Z) INIT50 VD82,83 ) < P RF(N) INIT40 REQU
0x01ed42…01ed48 00 00 00 00 00 00 ┆ ┆
0x01ed48…01eedc Dummy {f00=0x0013, f01=0x0190, f02=»A 6 ) P RB INIT35 AGAIN! * P * & PINIT40 EQU * * . 8 P LD A5,W:MESG INFO ABOUT TWO MSGLINES IF NOT VD82,83 * B P CWK A2,/0200 TYPE OF VDU: * ~ . P RF(NL) INIT60 ORDINARY VDU (NOT ONELINE) * $ P LDK A3,MSGLIN ONE LINE DISPLAY * & P LDK A5,0 TWO
0x01eedc…01eee0 00 00 00 00 ┆ ┆
0x01eee0…01eee2 00 00 ┆ ┆
0x01eee2…01f076 Dummy {f00=0x0013, f01=0x0190, f02=» LDK A6,0 SCREEN BACKGROUND IS WHITE * . P CC A5,W:DYFC IF FILECODES FOR HELP AND.. + , : P RF(NE) INIT55 ..ERRORLINES ARE EQUAL THEN INDICATE.. + ^ $ P LDK A5,0 ..ONE MSG LINE IN A5. + PINIT55 EQU * + & P ORS A3,TC:MSC,A13 SET TYPE OF VDU + P RF IN
0x01f076…01f07c 00 00 00 00 00 00 ┆ ┆
0x01f07c…01f210 Dummy {f00=0x0013, f01=0x0190, f02=»NR A5,A5 TWO MSGLINES? + P RF(NN) INIT99 NO.. , , P SUKL A2,/0100 EXCLUDE ONE MORE MSG LINE , : P , j , PINIT99 EQU * SET CURRENT SUBSCREEN PAR.S , r P LDK A1,1 , & P ST A1,TC:SUS,A13 - SUBSCREEN NO. , & P SC A1,TC:LIN,A13 - 1:ST FREE LINE , & P
0x01f210…01f216 00 00 00 00 00 00 ┆ ┆
0x01f216…01f3aa Dummy {f00=0x0013, f01=0x40c2, f02=»NES , d 0 P ADR A1,A6 ADD INFO ABOUT SCREEN BACKGROUND - . P ORS A1,TC:MSC,A13 SET AUTO SWITCH ACTIVE - @ , P ABL W:STRT BRANCH TO WSM START ROUTINE - r P - P END W:INIT - @ - A13 - SUBSCREEN NO. , & P SC A1,TC:LIN,A13 - 1:ST FREE LINE , & P
0x01f3aa…01f3b0 00 00 00 00 00 00 ┆ ┆
0x01f3b0…01f544 (0, 39) Dummy {f00=0x0013, f01=0x2008, f02=» . 9 9 9 9 9(90989@9H9P9X9`9h9p9x9 9 9 9 9 9 9 9 9 9 9 9 9 9 : : : : : :(
0x01f544…01f54a 00 00 00 00 00 00 ┆ ┆
0x01f54a…01f6de Dummy {f00=0x0013, f01=0x6a56, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01f6de…01f6e0 30 30 ┆00┆
0x01f6e0…01f6e4 30 30 30 30 ┆0000┆
0x01f6e4…01f878 Dummy {f00=0x0013, f01=0x6a60, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01f878…01f87e 30 30 30 30 30 30 ┆000000┆
0x01f87e…01fa12 Dummy {f00=0x0013, f01=0x6a43, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01fa12…01fa18 30 30 30 30 30 30 ┆000000┆
0x01fa18…01fbac Dummy {f00=0x0013, f01=0x6a4d, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01fbac…01fbb2 30 30 30 30 30 30 ┆000000┆
0x01fbb2…01fd46 Dummy {f00=0x0013, f01=0x6a57, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01fd46…01fd4c 30 30 30 30 30 30 ┆000000┆
0x01fd4c…01fee0 Dummy {f00=0x0013, f01=0x6a61, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x01fee0…01fee6 30 30 30 30 30 30 ┆000000┆
0x01fee6…02007a Dummy {f00=0x0013, f01=0x6a44, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x02007a…020080 30 30 30 30 30 30 ┆000000┆
0x020080…020214 (0, 40) Opaque[0x194]
0x020214…02021a 00 00 00 00 00 00 ┆ ┆
0x02021a…0203ae # DirEnt {nam=»USRLIB«, typ=»OB«, f00=0xab4c, f01=0x0000, f02=0x0280, f03=0x0000}
0x02021a…0203ae IdxSect {
0x02021a…0203ae f00 = 0x0014 // 0x2021a @0x0
0x02021a…0203ae f01 = 0x0190 // 0x2021c @0x2
0x02021a…0203ae gno = [ // 0x2021e @0x4
0x02021a…0203ae [0x00]: C0x0014.0x0.0
0x02021a…0203ae [0x01]: C0x0014.0x1.0
0x02021a…0203ae [0x02]: C0x0014.0x2.0
0x02021a…0203ae [0x03]: C0x0014.0x3.0
0x02021a…0203ae [0x04]: C0x0015.0x0.0
0x02021a…0203ae [0x05]: C0x0015.0x1.0
0x02021a…0203ae [0x06]: C0x0015.0x2.0
0x02021a…0203ae [0x07]: C0x0015.0x3.0
0x02021a…0203ae [0x08]: C0x0016.0x0.0
0x02021a…0203ae [0x09]: C0x0016.0x1.0
0x02021a…0203ae [0x0a]: C0x0016.0x2.0
0x02021a…0203ae [0x0b]: C0x0016.0x3.0
0x02021a…0203ae [0x0c]: C0x0017.0x0.0
0x02021a…0203ae [0x0d]: C0x0017.0x1.0
0x02021a…0203ae [0x0e]: C0x0017.0x2.0
0x02021a…0203ae [0x0f]: C0x0017.0x3.0
0x02021a…0203ae [0x10]: C0x0018.0x0.0
0x02021a…0203ae [0x11]: C0x0018.0x1.0
0x02021a…0203ae [0x12]: C0x0018.0x2.0
0x02021a…0203ae [0x13]: C0x0018.0x3.0
0x02021a…0203ae [0x14]: C0x0019.0x0.0
0x02021a…0203ae [0x15]: C0x0019.0x1.0
0x02021a…0203ae [0x16]: C0x0019.0x2.0
0x02021a…0203ae [0x17]: C0x0019.0x3.0
0x02021a…0203ae [0x18]: C0x001a.0x0.0
0x02021a…0203ae [0x19]: C0x001a.0x1.0
0x02021a…0203ae [0x1a]: C0x001a.0x2.0
0x02021a…0203ae [0x1b]: C0x001a.0x3.0
0x02021a…0203ae [0x1c]: C0x001b.0x0.0
0x02021a…0203ae [0x1d]: C0x001b.0x1.0
0x02021a…0203ae [0x1e]: C0x001b.0x2.0
0x02021a…0203ae [0x1f]: C0x001b.0x3.0
0x02021a…0203ae [0x20]: C0x001c.0x0.0
0x02021a…0203ae [0x21]: C0x001c.0x1.0
0x02021a…0203ae [0xc3]: C0x001c.0x2.0
0x02021a…0203ae [0xc4]: C0x001c.0x3.0
0x02021a…0203ae [0xc5]: C0x001d.0x0.0
0x02021a…0203ae [0xc6]: C0x001d.0x1.0
0x02021a…0203ae [0xc7]: C0x001d.0x2.0
0x02021a…0203ae ]
0x02021a…0203ae }
0x0203ae…0203b4 00 00 00 00 00 00 ┆ ┆
0x0203b4…020548 Dummy {f00=0x0014, f01=0x0190, f02=» 0 H IDENT PWRITE W,REL=2.3,850901,870155940230 H D ! POPEN PWRITE PREAD PDLETE PSEARC PCLOSE WUFIL S:POLA S:POOL 8 S:POLF S:FILT S:FORD S:POOL R S:POLA T S:FILT V , ( 9 B1
0x020548…02054e 00 2e 00 2a 30 30 ┆ . *00┆
0x02054e…0206e2 Dummy {f00=0x0014, f01=0x0190, f02=» r * & w T K K K K , ( R F Q ' _ ' @ PSEARC p POPEN PDLETE PREAD , ( @ @ TW W W @W @ T , ( % ^ @ X B
0x0206e2…0206e8 00 2e 00 2a 30 30 ┆ . *00┆
0x0206e8…02087c Dummy {f00=0x0014, f01=0x4134, f02=» R r WD:CLE QUEST $ QUEND 4 , ( ' V H W A A D I:RT1 t WUFIL T WD:FIL * & ? R Q [ _ _ T [ 0 , Q W| W W W T
0x02087c…020880 00 2e 00 2a ┆ . *┆
0x020880…020882 30 30 ┆00┆
0x020882…020a16 Dummy {f00=0x0014, f01=0x4140, f02=» 0 H IDENT WD:BUF W,REL=2.3,850901,870155940230 WD:COP WD:CLE WD:CMP 8 WD:COP Z WD:CMP n , ( ; P 8 ' _ ; P 8 ' WD:CLE 8 , ( ! T _ W [ : : X A ' _
0x020a16…020a1c 00 00 00 00 00 00 ┆ ┆
0x020a1c…020bb0 Dummy {f00=0x0014, f01=0x018e, f02=» 0 H IDENT W:POOL W,REL=2.3,850901,870155940230 W:POOL QUEST QUEND 8 QUEST V QUEND h W:POOL z , ( [ & , ( ! P & P &@T WP:PUT WP:PA
0x020bb0…020bb6 00 00 00 00 00 00 ┆ ┆
0x020bb6…020d4a Dummy {f00=0x0014, f01=0x0190, f02=» , ( { @W R W Y P T & S:FILT 8 , ( @ U T @ P Q J * & T P T Z z , ( T U T T T S:POLA , ( P @ A @
0x020d4a…020d50 00 00 00 00 00 00 ┆ ┆
0x020d50…020ee4 (0, 41) Dummy {f00=0x0014, f01=0x0190, f02=»W T T z * & i T R T T & WP:GPO H WP:SET Z * & B l , ( T P Q Z S:POOL , ( ' P _x B
0x020ee4…020eea 00 00 00 00 00 00 ┆ ┆
0x020eea…02107e Dummy {f00=0x0014, f01=0x018e, f02=»P l , ( 3 T R T T U T , ( Q @ P T < * & m U B T T Z P Q l , ( T >H W , ( Q R _( W W , ( W
0x02107e…021080 00 00 ┆ ┆
0x021080…021084 00 00 00 00 ┆ ┆
0x021084…021218 Dummy {f00=0x0014, f01=0x4132, f02=» J H D !! {W RD W P T T TN T& P@ W P 1W 7R< ; H D !@ GP K WW _T gT oTV uR wT T Pj T W T T H D ! T W W" T P )W /P 7T| =R ?Td eT mU wTZ yT. W: Q, , ( R. W" W W W W
0x021218…02121e 00 00 00 00 00 00 ┆ ┆
0x02121e…0213b2 Dummy {f00=0x0014, f01=0x0190, f02=» 0 H IDENT WP:ADM W,REL=2.3,850901,870155940230 WP:PAD WP:PAE WP:SET 8 WP:SET Z WD:COP n S:POOL , ( P W B WP:PAE 8 S:POLA * & >h U U [
0x0213b2…0213b8 00 00 00 00 00 00 ┆ ┆
0x0213b8…02154c Dummy {f00=0x0014, f01=0x0190, f02=» U @ H P W QUEST 0 * & s @ C P W @ @ * & P @ n , ( T T " C T & T W T " , ( P @ _@ B U T , ( @" T
0x02154c…021552 00 00 00 00 00 00 ┆ ┆
0x021552…0216e6 Dummy {f00=0x0014, f01=0x40ac, f02=» [ j 7 : H D ! 8 P W( EP MW iP qW P WL P T T Tl W Pf TJ ( $ P, P@ P T #T )W -W 1W j : @ " C T & T W T " , ( P @ _@ B U T , ( @" T
0x0216e6…0216ec 00 00 00 00 00 00 ┆ ┆
0x0216ec…021880 Dummy {f00=0x0014, f01=0x018e, f02=» 0 H IDENT WP:FIL W,REL=2.3,850901,870155940230 WP:FIL 8 WP:FIL J S:FORD ^ , ( @ @ P p S:FILT , ( @T T ( _. @ H WD:CMP , ( =
0x021880…021886 00 00 00 00 00 00 ┆ ┆
0x021886…021a1a Dummy {f00=0x0014, f01=0x0190, f02=» f W:FHCA , ( T @ T W , ( @ @ Y J , ( @ ` T W P I W z , ( P Y T W K W J , ( $ K a Y T ( *
0x021a1a…021a20 00 00 00 00 00 00 ┆ ┆
0x021a20…021bb4 (0, 42) Dummy {f00=0x0014, f01=0x4070, f02=»P mT sW T T W T W8 P W* P T z W W %T4 ;P AW YW 6 h Z@ l J , ( @ ` T W P I W z , ( P Y T W K W J , ( $ K a Y T ( *
0x021bb4…021bba 00 00 00 00 00 00 ┆ ┆
0x021bba…021d4e Dummy {f00=0x0014, f01=0x8000, f02=»
0x021d4e…021d54 00 00 00 00 00 00 ┆ ┆
0x021d54…021ee8 Dummy {f00=0x0014, f01=0x8000, f02=»
0x021ee8…021eee 00 00 00 00 00 00 ┆ ┆
0x021eee…022082 Dummy {f00=0x0014, f01=0x8000, f02=»
0x022082…022088 00 00 00 00 00 00 ┆ ┆
0x022088…02221c Dummy {f00=0x0014, f01=0x8000, f02=»
0x02221c…022220 00 00 00 00 ┆ ┆
0x022220…022222 00 00 ┆ ┆
0x022222…0223b6 Dummy {f00=0x0014, f01=0x0190, f02=» 0 H IDENT W:DISC W,REL=2.3,850901,870155940230 W:DISC 8 J W:DISC ^ , ( [ [ C A A r S:BUFF , ( / A @ C P P WD:ORW WD:CHN , (
0x0223b6…0223bc 00 00 00 00 00 00 ┆ ┆
0x0223bc…022550 Dummy {f00=0x0014, f01=0x0190, f02=» A P @ S:POOL , , ( @ X C ( T ` =H > , ( B _F W T n S:FRSP WD:GFR , ( A C ( T , ( P J
0x022550…022556 00 00 00 00 00 00 ┆ ┆
0x022556…0226ea Dummy {f00=0x0014, f01=0x0190, f02=» , ( K >H W K , ( g @ C ( J A B =H K 4 * & T @ T P @ d * & ` P >H , ( _ _l @ C ( , ( @ T
0x0226ea…0226f0 00 00 00 00 00 00 ┆ ┆
0x0226f0…022884 (0, 43) Dummy {f00=0x0014, f01=0x4082, f02=» W TJ T* P0 T h D @ T /T0 5T* CQ _W: Tb T P2 P T R Q W W W $ l@ ~ @ d * & ` P >H , ( _ _l @ C ( , ( @ T
0x022884…02288a 00 00 00 00 00 00 ┆ ┆
0x02288a…022a1e Dummy {f00=0x0014, f01=0x018e, f02=» 0 H IDENT WD:ORW W,REL=2.3,850901,870155940230 WD:ORW 8 WD:ORW J S:FILT ^ , ( ; @ H p WD:CMP , ( P P @ , ( = H P & P
0x022a1e…022a20 00 00 ┆ ┆
0x022a20…022a24 00 00 00 00 ┆ ┆
0x022a24…022bb8 Dummy {f00=0x0014, f01=0x0190, f02=» , ( P & T Q P , ( C W 8 , ( @ h , ( ( B P X , ( T B Q Q Z P B ( , ( 1 C B *
0x022bb8…022bbe 00 00 00 00 00 00 ┆ ┆
0x022bbe…022d52 Dummy {f00=0x0014, f01=0x4116, f02=» P $ , ( P C W @ C ( $ W W : [ : X H D ! , -P> 9P IP S kWT yP T@ W T T W P T +P UT 0 , [Tt ePj gW mT^ sT> }W P6 W W W
0x022d52…022d58 00 00 00 00 00 00 ┆ ┆
0x022d58…022eec Dummy {f00=0x0014, f01=0x0190, f02=» 0 H IDENT WD:GOR W,REL=2.3,850901,870155940230 WD:GFR WD:OFR WD:RFR 8 WD:GFR Z S:FRSP n , ( @ @ T C ( C * 4<H , ( T _ R <A_ <A <a ^ C , ( ? *<h 5 @ T ( 8 Y U
0x022eec…022ef2 00 00 00 00 00 00 ┆ ┆
0x022ef2…023086 Dummy {f00=0x0014, f01=0x0190, f02=» h WD:ORW , ( C ( T , ( J C ( J J ( J * & ,V J J N_T B ( * z , ( R _ *<H P < , ( P R W V @ , (
0x023086…02308c 00 00 00 00 00 00 ┆ ┆
0x02308c…023220 Dummy {f00=0x0014, f01=0x408e, f02=» ! j T +R a | eW iW {T P V. T V R P P RP !W ( $ %VD 9R [T iW qW sR wW {W L x@ N_T B ( * z , ( R _ *<H P < , ( P R W V @ , (
0x023220…023226 00 00 00 00 00 00 ┆ ┆
0x023226…0233ba Dummy {f00=0x0014, f01=0x0190, f02=» 0 H IDENT WD:CHN W,REL=2.3,850901,870155940230 WD:CHN 8 WD:CHN J , ( B TP B ^ , ( ! W B S:BUFF WD:ORW , ( A P P
0x0233ba…0233c0 00 00 00 00 00 00 ┆ ┆
0x0233c0…023554 (0, 44) Dummy {f00=0x0015, f01=0x0190, f02=» K W Z WD:GFR $ , ( P J T 6 * & K C ( T _. B ( f , ( K J C ( T , ( @ J C ( , ( % T J
0x023554…02355a 00 00 00 00 00 00 ┆ ┆
0x02355a…0236ee Dummy {f00=0x0015, f01=0x0190, f02=» $ x WD:COP , ( } * E J E 2 * WD:RFR Z , ( T J W C ( l , ( @T T J " , ( &W Z T D K , (
0x0236ee…0236f4 00 00 00 00 00 00 ┆ ┆
0x0236f4…023888 Dummy {f00=0x0015, f01=0x409e, f02=» 7W YP cT yT T P W 4 P( T , T T %T| ]Px @ < gP T W T Tr WR T& T 'T +W 3W ;W =R AW D J @ @T T J " , ( &W Z T D K , (
0x023888…02388e 00 00 00 00 00 00 ┆ ┆
0x02388e…023a22 Dummy {f00=0x0015, f01=0x8000, f02=»
0x023a22…023a28 00 00 00 00 00 00 ┆ ┆
0x023a28…023bbc Dummy {f00=0x0015, f01=0x8000, f02=»
0x023bbc…023bc0 00 00 00 00 ┆ ┆
0x023bc0…023bc2 00 00 ┆ ┆
0x023bc2…023d56 Dummy {f00=0x0015, f01=0x8000, f02=»
0x023d56…023d5c 00 00 00 00 00 00 ┆ ┆
0x023d5c…023ef0 Dummy {f00=0x0015, f01=0x8000, f02=»
0x023ef0…023ef6 00 00 00 00 00 00 ┆ ┆
0x023ef6…02408a Dummy {f00=0x0015, f01=0x416c, f02=» 0 H IDENT CDVRUT W,REL=2.3,850901,870155940230 CDV10 CDV110 CDV111 8 CDV110 X CDV111 l CDV10 , ( W _ P T !00R , ( ! !99Q $ Y T U , ( A U _6
0x02408a…024090 00 00 00 00 00 00 ┆ ┆
0x024090…024224 (0, 45) Dummy {f00=0x0015, f01=0x417c, f02=» 0 H IDENT DATCHK W,REL=2.3,850901,870155940230 DDMMCK MMDDCK 8 MMDDCK R , ( P P f DDMMCK 2 , ( ! V V : _4 ^ , ( A 9C : T _* 4 !00 $
0x024224…02422a 00 00 00 00 00 00 ┆ ┆
0x02422a…0243be Dummy {f00=0x0015, f01=0x0190, f02=» 0 H IDENT W:ADS W,REL=2.3,850901,870155940230 6 2 W:OP11 W:OP12 W:OP13 W:OP14 W:AC13 W:AC14 8 W:OP11 r W:EXP5 W:OP12 W:OP13 W:OP14 W:EVOF , ( @ _ _ _
0x0243be…0243c0 00 00 ┆ ┆
0x0243c0…0243c4 00 00 00 00 ┆ ┆
0x0243c4…024558 Dummy {f00=0x0015, f01=0x0190, f02=» [ - +P + - 'P + [ W:CPNA , ( [ [ ! 1 P Q 2 W:BSGN b W:CNID t * & y Z [ W , ( Q , ( Q W Z ,
0x024558…02455e 00 00 00 00 00 00 ┆ ┆
0x02455e…0246f2 Dummy {f00=0x0015, f01=0x0190, f02=»! 4 t , ( / R W V " [ S T , ( O W " Z P V W R ; D , ( o <$! 0 - Z + :" P Z Z V t W:RWA2 W:NPAC , ( P 1 - Z ( Z W:IWA1
0x0246f2…0246f8 00 00 00 00 00 00 ┆ ┆
0x0246f8…02488c Dummy {f00=0x0015, f01=0x403c, f02=»W$ WP [V _W gR P V P v &@ 8 , ( O W " Z P V W R ; D , ( o <$! 0 - Z + :" P Z Z V t W:RWA2 W:NPAC , ( P 1 - Z ( Z W:IWA1
0x02488c…024892 00 00 00 00 00 00 ┆ ┆
0x024892…024a26 Dummy {f00=0x0015, f01=0x0190, f02=» 0 H IDENT W:ATCH W,REL=2.3,850901,870155940230 W:ATCH 8 W:ATCH J , ( ^ W:SSTB , ( ! [ V W V , ( ? " :c H @W V X >d W , ( _
0x024a26…024a2c 00 00 00 00 00 00 ┆ ┆
0x024a2c…024bc0 Dummy {f00=0x0015, f01=0x0190, f02=» V r , ( T V P X ! Y Y , ( X $ [ X >l W B W:GSUS r , ( W [ & V [ P W:PRLT W:PRDS , ( V T V P V & S , (
0x024bc0…024bc6 00 00 00 00 00 00 ┆ ┆
0x024bc6…024d5a Dummy {f00=0x0015, f01=0x0190, f02=» h , ( ! pV Z R P Z , ( L $ R & 9AV & W 8 , ( W V P Z W Z h , ( Z P Z P Q Z Q W:SBGD , ( V P R W W L ! P ,
0x024d5a…024d60 00 00 00 00 00 00 ┆ ┆
0x024d60…024ef4 (0, 46) Dummy {f00=0x0015, f01=0x0190, f02=» P j , ( ! X P W V [ U , ( [ [ R & Z R V P Z : , ( 9AV W P P ! T W j , ( W V # Z [ , ( P ! [ Z T V , ( 5 P X
0x024ef4…024efa 00 00 00 00 00 00 ┆ ┆
0x024efa…02508e Dummy {f00=0x0015, f01=0x0190, f02=» Z L R Z 9BV T " , ( [ T L ! T Z P L L * , ( W L W L ! T @) M Z , ( L h R ?A^r B [ , ( R L _ Z D ' Z , ( 5 # P Z P Q :FV
0x02508e…025094 00 00 00 00 00 00 ┆ ┆
0x025094…025228 Dummy {f00=0x0015, f01=0x0190, f02=» Z W V % P z , ( P " P P P " T P R , ( % Q W P X " X W R " J , ( T R P " T z , ( V " 0% 0 P Y , ( 5 _ Z % Z T Z P R 9BR 9b T ,
0x025228…02522e 00 00 00 00 00 00 ┆ ┆
0x02522e…0253c2 Dummy {f00=0x0015, f01=0x0190, f02=»W j , ( *@ U T @ [ P , ( V ! T T P " : , ( Y < 0 Z P Y _ Z j , ( V 9DV Z [ R ! [ , ( 5 U [ R ! Z X R :A^Z Z , ( U `
0x0253c2…0253c8 00 00 00 00 00 00 ┆ ┆
0x0253c8…02555c Dummy {f00=0x0015, f01=0x0190, f02=» W $ Z P R 9AR R , ( # T V R [ [ Z W * W:GSTD Z , ( V P R " R l , ( " R P =BV U P Z , ( 3 P V P W W:DSTD
0x02555c…025560 00 00 00 00 ┆ ┆
0x025560…025562 00 00 ┆ ┆
0x025562…0256f6 Dummy {f00=0x0015, f01=0x0190, f02=» x l , ( V 9L 1 Q R R R " W:IDFD < , ( Z Z " P V V N , ( % pR R + pT 3 ~ W:TDY1 , ( Q R Q 9h Q , ( % P W $ V !
0x0256f6…0256fc 00 00 00 00 00 00 ┆ ┆
0x0256fc…025890 Dummy {f00=0x0015, f01=0x0190, f02=» N $ . P 4 , ( y N W R R N $ W:KTB1 T W:KT1V f , ( B W W W 2 x W:KBLK W:ENDR W:ERPF , ( W 4 " $ W &W
0x025890…025896 00 00 00 00 00 00 ┆ ┆
0x025896…025a2a Dummy {f00=0x0015, f01=0x0190, f02=»_2 V & n W:PREL , ( / P & W Z P W H >d& , ( M P W W &_ V P $ i [ R [ [ Z : H D ! b H L b b 3 H D !HQ KW U aW mP
0x025a2a…025a30 00 00 00 00 00 00 ┆ ┆
0x025a30…025bc4 (0, 47) Dummy {f00=0x0015, f01=0x0190, f02=» P Q4 P !R 3P I P UP qP yP }W* P P W U R H D ! PX VP WL P P6 T& W4 /T 5P^ =PV AT, GP& M [T H H D ! _ d c k j mW uT W R V8 T4 T T P d WJ j H D ! 2 W T R R j % d 7P ?P AQ
0x025bc4…025bca 00 00 00 00 00 00 ┆ ┆
0x025bca…025d5e Dummy {f00=0x0015, f01=0x0190, f02=» AT GP IR MR ST WV [ Z _P kP oW T x H D ! T W T P R W U T8 P0 T T P PR V V 5U 4 H D ! C KR [Wf cT kUR sRJ uW }T U R P. P$ V V R H D ! W P$ R R T P " > !V )UJ -P& 5P =P W
0x025d5e…025d60 00 00 ┆ ┆
0x025d60…025d64 00 00 00 00 ┆ ┆
0x025d64…025ef8 Dummy {f00=0x0015, f01=0x4016, f02=» @ V [ Z _P kP oW T x H D ! T W T P R W U T8 P0 T T P PR V V 5U 4 H D ! C KR [Wf cT kUR sRJ uW }T U R P. P$ V V R H D ! W P$ R R T P " > !V )UJ -P& 5P =P W
0x025ef8…025efe 00 00 00 00 00 00 ┆ ┆
0x025efe…026092 Dummy {f00=0x0015, f01=0x4160, f02=» 0 H IDENT W:ATTR W,REL=2.3,850901,870155940230 W:V010 8 W:V010 J W:CFA ^ W:LOAD n W:FDDA , ( D v W:CTFA * & V ; T W . W W:V
0x026092…026098 00 00 00 00 00 00 ┆ ┆
0x026098…02622c Dummy {f00=0x0015, f01=0x8000, f02=»
0x02622c…026232 00 00 00 00 00 00 ┆ ┆
0x026232…0263c6 Dummy {f00=0x0015, f01=0x8000, f02=»
0x0263c6…0263cc 00 00 00 00 00 00 ┆ ┆
0x0263cc…026560 Dummy {f00=0x0015, f01=0x8000, f02=»
0x026560…026566 00 00 00 00 00 00 ┆ ┆
0x026566…0266fa Dummy {f00=0x0015, f01=0x8000, f02=»
0x0266fa…026700 00 00 00 00 00 00 ┆ ┆
0x026700…026894 (0, 48) Dummy {f00=0x0016, f01=0x8000, f02=»
0x026894…02689a 00 00 00 00 00 00 ┆ ┆
0x02689a…026a2e Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:BIAS W,REL=2.3,850901,870155940230 & " W:BIAS W:ASBI W:CPSS W:PDEC 8 W:BIAS b , ( ' d P ; P + V v , ( ! - 9 P T P 0 :P 9 W:EVOF * & A P 0 :P 9
0x026a2e…026a34 00 00 00 00 00 00 ┆ ┆
0x026a34…026bc8 Dummy {f00=0x0016, f01=0x4140, f02=»PSS W:APAC W:NPAC * & : : H H P W 2 W:PDEC ` , ( H H I I ) : & t & " P 0 G P !. P _ : H D ! PN V +P 3T 7P =P QP eP8 oP T W P P
0x026bc8…026bce 00 00 00 00 00 00 ┆ ┆
0x026bce…026d62 Dummy {f00=0x0016, f01=0x4134, f02=» 0 H IDENT W:CALL W,REL=2.3,850901,870155940230 W:V00C 8 W:V00C J W:LOAD ^ W:EXPR p W:UFTB , ( @B ; @ W:VEVB , ( R :>A @ Q X P
0x026d62…026d68 00 00 00 00 00 00 ┆ ┆
0x026d68…026efc Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:CDV W,REL=2.3,850901,870155940230 W:OP1F W:OP20 8 MMDDCK R DDMMCK d CDV10 v CDV110 CDV111 W:OP1F W:OP20 W:GWA2 , ( W
0x026efc…026f00 00 00 00 00 ┆ ┆
0x026f00…026f02 00 00 ┆ ┆
0x026f02…027096 Dummy {f00=0x0016, f01=0x4080, f02=»V z W:EXP5 O 0 ' , W #P /R 9R ?V J X j@ | v CDV110 CDV111 W:OP1F W:OP20 W:GWA2 , ( W
0x027096…02709c 00 00 00 00 00 00 ┆ ┆
0x02709c…027230 Dummy {f00=0x0016, f01=0x018e, f02=» 0 H IDENT W:CLCK W,REL=2.3,850901,870155940230 W:OP1A W:OP1B 8 W:OP1A R W:OP1B f W:GWA1 z W:ASBI W:RWA1 , ( W W:IWA1 , ( ! P
0x027230…027236 00 00 00 00 00 00 ┆ ┆
0x027236…0273ca Dummy {f00=0x0016, f01=0x404a, f02=» , ( W P )P 5P =T2 KW$ SR UP cW t 4@ F 8 W:OP1A R W:OP1B f W:GWA1 z W:ASBI W:RWA1 , ( W W:IWA1 , ( ! P
0x0273ca…0273d0 00 00 00 00 00 00 ┆ ┆
0x0273d0…027564 (0, 49) Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:CMP W,REL=2.3,850901,870155940230 W:CMP W:CPNA 8 W:CMP P W:GWA2 b , ( R - +T 'P W 'T t , ( W W , ( ? P (! T P ,! T W
0x027564…02756a 00 00 00 00 00 00 ┆ ┆
0x02756a…0276fe Dummy {f00=0x0016, f01=0x4180, f02=» W:CNID , ( H ' , ( A R W B , ( 0 R P (! Q V r , ( W R P -V -W T P X< _@ : H D ! R( T P W T #
0x0276fe…027700 00 00 ┆ ┆
0x027700…027704 00 00 00 00 ┆ ┆
0x027704…027898 Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:CODE W,REL=2.3,850901,870155940230 W:CODE W:RC00 W:RC97 8 W:PRDD Z W:PRDF l W:PRDS ~ W:CODE , ( R V T V , ( @W w : V " T w : W
0x027898…02789e 00 00 00 00 00 00 ┆ ┆
0x02789e…027a32 Dummy {f00=0x0016, f01=0x40e0, f02=»0 , ( w T w : W W R V T P W W:RC97 < W:ENDR P $ W V T ( W W b < 8 T W 3TP OT UP* iV wT W( W$ R P W W @ w : V " T w : W
0x027a32…027a38 00 00 00 00 00 00 ┆ ┆
0x027a38…027bcc Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:CONC W,REL=2.3,850901,870155940230 W:OP0E 8 W:OP0E J W:GWA2 ^ , ( @ [ [ p W:RWA2 W:IWA1 , ( D H ;o H 9n! # , ( ; P P # T
0x027bcc…027bd2 00 00 00 00 00 00 ┆ ┆
0x027bd2…027d66 Dummy {f00=0x0016, f01=0x408a, f02=» P v " P 4 1 Y : 4 0 ;P8 AP& ET KW$ ] e gW o s W P < t@ [ p W:RWA2 W:IWA1 , ( D H ;o H 9n! # , ( ; P P # T
0x027d66…027d6c 00 00 00 00 00 00 ┆ ┆
0x027d6c…027f00 Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:COPY W,REL=2.3,850901,870155940230 & " W:COPY W:CPST W:CPFM W:SKIP 8 W:COPY b , ( P T ; [ [ v , ( ! ?oP W @ P , ( A W : : R , (
0x027f00…027f06 00 00 00 00 00 00 ┆ ┆
0x027f06…02809a Dummy {f00=0x0016, f01=0x0190, f02=» W Z x W:ROUN W:CPST * , ( Q V W Z * _8 > , ( P R P & T _ n , ( _ P + _ U , ( P & T _ + W:CPFM
0x02809a…0280a0 00 00 00 00 00 00 ┆ ┆
0x0280a0…028234 (0, 50) Dummy {f00=0x0016, f01=0x018e, f02=»W Z ' P r , ( Z Z V Z V , ( [ Z P J % T 0 K B , ( Z & & T r , ( T P R W 0 P + _ , ( 0 P 9 _ P W , ( =
0x028234…02823a 00 00 00 00 00 00 ┆ ┆
0x02823a…0283ce Dummy {f00=0x0016, f01=0x0190, f02=» , ( T 0 ' W + : Z , ( Q Z P *' T 4 , ( K _ : Z ` P d W:SKIP , ( Z U *' P & C P 0R , ( Q W , (
0x0283ce…0283d4 00 00 00 00 00 00 ┆ ┆
0x0283d4…028568 Dummy {f00=0x0016, f01=0x0190, f02=» z : : H D !, PN T # j )P - T 1 3W ;P ? x AW E B I WR _ mP {U` 6 H D ! ! P P W* Q V W P< R P. T P U$ #P +T / H D ! GP MU oQ$ {P T W P V V Pn T T
0x028568…02856e 00 00 00 00 00 00 ┆ ┆
0x02856e…028702 Dummy {f00=0x0016, f01=0x4048, f02=»WF CT MW, SP& WR [Q ]W f yW " 2@ DP - T 1 3W ;P ? x AW E B I WR _ mP {U` 6 H D ! ! P P W* Q V W P< R P. T P U$ #P +T / H D ! GP MU oQ$ {P T W P V V Pn T T
0x028702…028708 00 00 00 00 00 00 ┆ ┆
0x028708…02889c Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:DFC W,REL=2.3,850901,870155940230 W:DFCI W:ODFC W:SDFC 8 W:DFCI Z W:PIX n , ( S Q T R P ; R ~ , ( ! R & ?C V % , ( ? F T &
0x02889c…0288a0 00 00 00 00 ┆ ┆
0x0288a0…0288a2 00 00 ┆ ┆
0x0288a2…028a36 Dummy {f00=0x0016, f01=0x4166, f02=» , ( W T V , ( &?d' Z P Q &' ?H F _R 4 , ( W &% =H F d W:SDFC * & : ; [ [ R * & [ _ Z : : H D !
0x028a36…028a3c 00 00 00 00 00 00 ┆ ┆
0x028a3c…028bd0 Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:DIV W,REL=2.3,850901,870155940230 W:OP15 W:IFRE 8 W:OP15 R W:EVDZ f , ( [ [ [ x , ( ! [ + [ P - [ Z Q , ( ? Z Z Q Z H H Z
0x028bd0…028bd6 00 00 00 00 00 00 ┆ ┆
0x028bd6…028d6a Dummy {f00=0x0016, f01=0x0190, f02=»:GWA1 , ( H - i P H Z $ , ( % H P _. Z H T H > W:ROUN n , ( , Z T [ 0 -W , - H W:AC13 , ( @ W [ H H W:RWA2 * &
0x028d6a…028d70 00 00 00 00 00 00 ┆ ┆
0x028d70…028f04 (0, 51) Dummy {f00=0x0016, f01=0x0190, f02=» + t W:EVOF , ( o T 1 X P & S P ' & , ( P +P T -W P T T P V , ( W Y6W & P 1 , ( X^_ U 0 R U 1 X| , ( _ : H
0x028f04…028f0a 00 00 00 00 00 00 ┆ ┆
0x028f0a…02909e Dummy {f00=0x0016, f01=0x4152, f02=» l , ( G # P P < S T W .X W:CPSS < " g T Y : N H D ! Z Z -P =Q GQ mU P P Pd T, T W W* t H D ! Q oT PN P$ P" P T W P T T P W W P U
0x02909e…0290a0 00 00 ┆ ┆
0x0290a0…0290a4 00 00 00 00 ┆ ┆
0x0290a4…029238 Dummy {f00=0x0016, f01=0x018e, f02=» 0 H IDENT W:DLET W,REL=2.3,850901,870155940230 W:DLET 8 W:DLET J W:PDAL ^ , ( V W "T W & V P R p , ( $ T V P $ T $ , ( ? 9h% W T W ! P W:ELI
0x029238…02923e 00 00 00 00 00 00 ┆ ┆
0x02923e…0293d2 Dummy {f00=0x0016, f01=0x4122, f02=» f , ( @ V V P T W T T W:DSTD 8 , ( @ ! T U _$ W V ! J W:END z W:ENDR $ T W $ W D @ T W P %T +P 5T QT ]P mT wW P T T T W
0x0293d2…0293d8 00 00 00 00 00 00 ┆ ┆
0x0293d8…02956c Dummy {f00=0x0016, f01=0x0190, f02=» 0 H IDENT W:DYUT W,REL=2.3,850901,870155940230 F B W:BUZ1 W:BUZ2 W:KBLK W:KBL2 W:CUON W:BLOC W:BLOE W:CUOF 8 F B W:COF2 W:COF3 W:SBGD W:GSUS W:CSSU W:WLIN W:SCWR W:WDOT F B W:WSPA W:ESCR W:ELIN W:IMES W:IMSG W:OMES W:AMES W
0x02956c…029572 00 00 00 00 00 00 ┆ ┆
0x029572…029706 Dummy {f00=0x0016, f01=0x018e, f02=» ! V ' P ' P W V T V V ' W:DYFC , * & A ?D ?d ?H V w U W @ > * & _ T V V P & W @ l , ( { W W V P , ( W V ' P C , ( B
0x029706…02970c 00 00 00 00 00 00 ┆ ┆
0x02970c…0298a0 Dummy {f00=0x0016, f01=0x0190, f02=» W:BUZ1 W:BUZ2 W:BZFC 0 , ( W V T V P [ :'@P B , ( @ @ P # C ( B r W:KBLK N , ( 7 + # C W V T @ W:KBL2 ` W:SBGD j
0x0298a0…0298a6 00 00 00 00 00 00 ┆ ┆
0x0298a6…029a3a Dummy {f00=0x0016, f01=0x018e, f02=» W : V ' P W:BLOC " , ( V ' P W W V ' T 6 W:CUOF f W:COF3 z W:COF2 W:CUON W:CUMO , ( W W W _4 W @ W:WLIN
0x029a3a…029a40 00 00 00 00 00 00 ┆ ┆
0x029a40…029bd4 (0, 52) Dummy {f00=0x0017, f01=0x0190, f02=» W:WDOT > W:PEKO W:EDEC * , ( + C ( : . < W:WSPA l W:ESCR ` , ( I # C ( _ W , ( @ g Q R V $T V ! P V % T W:ELIN , (
0x029bd4…029bda 00 00 00 00 00 00 ┆ ┆
0x029bda…029d6e Dummy {f00=0x0017, f01=0x0190, f02=» W:WSL , ( 9H W P R W >D W:WSEC @ * & D D & W R W:OMES W:ODFC , ( W U W V * W:IMES $ W:IMSG ( W:AMES
0x029d6e…029d74 00 00 00 00 00 00 ┆ ┆
0x029d74…029f08 Dummy {f00=0x0017, f01=0x0190, f02=» h W:WMES ^ , ( ! Y W >D V W:CFA L , ( y V ! T & W , ( @ : V $P V T V V : V : [ : H D ! P T T 'P +P0 -W 5T =V YUF [W< c
0x029f08…029f0e 00 00 00 00 00 00 ┆ ┆
0x029f0e…02a0a2 Dummy {f00=0x0017, f01=0x40bc, f02=»Tn . W W W W2 kQ mR" sT r H D ! }P T W P R P( R W W W U W Px #W . ( $ 'W QPB T W P T V V z @ : V : [ : H D ! P T T 'P +P0 -W 5T =V YUF [W< c
0x02a0a2…02a0a8 00 00 00 00 00 00 ┆ ┆
0x02a0a8…02a23c Dummy {f00=0x0017, f01=0x8000, f02=»
0x02a23c…02a240 00 00 00 00 ┆ ┆
0x02a240…02a242 00 00 ┆ ┆
0x02a242…02a3d6 Dummy {f00=0x0017, f01=0x8000, f02=»
0x02a3d6…02a3dc 00 00 00 00 00 00 ┆ ┆
0x02a3dc…02a570 Dummy {f00=0x0017, f01=0x8000, f02=»
0x02a570…02a576 00 00 00 00 00 00 ┆ ┆
0x02a576…02a70a Dummy {f00=0x0017, f01=0x8000, f02=»
0x02a70a…02a710 00 00 00 00 00 00 ┆ ┆
0x02a710…02a8a4 (0, 53) Dummy {f00=0x0017, f01=0x404e, f02=» 0 H IDENT W:EQU W,REL=2.3,850901,870155940230 8@ J
0x02a8a4…02a8aa 00 00 00 00 00 00 ┆ ┆
0x02a8aa…02aa3e Dummy {f00=0x0017, f01=0x411a, f02=» 0 H IDENT W:EXIT W,REL=2.3,850901,870155940230 W:V014 8 W:V014 J W:EXPR ^ W:GWA1 p W:ASBI , ( $@ U W:VEVB U
0x02aa3e…02aa40 00 00 ┆ ┆
0x02aa40…02aa44 00 00 00 00 ┆ ┆
0x02aa44…02abd8 Dummy {f00=0x0017, f01=0x0190, f02=» 0 H IDENT W:EXPR W,REL=2.3,850901,870155940230 W:EXPR W:EXP2 W:EXP5 8 W:EXPR Z W:SWA0 n W:EXP2 W:LOAD , ( @ [ [ W:EVOB * & [ P & P % T AR
0x02abd8…02abde 00 00 00 00 00 00 ┆ ┆
0x02abde…02ad72 Dummy {f00=0x0017, f01=0x0190, f02=» z W:FDDA W:EVWW , , ( s@" W v > , ( P (XR F =h W n , ( Z T [ [ W:OPER * & W " ; >A V @
0x02ad72…02ad78 00 00 00 00 00 00 ┆ ┆
0x02ad78…02af0c Dummy {f00=0x0017, f01=0x4034, f02=»Wx P W T2 W" V f @ 0W , , ( s@" W v > , ( P (XR F =h W n , ( Z T [ [ W:OPER * & W " ; >A V @
0x02af0c…02af12 00 00 00 00 00 00 ┆ ┆
0x02af12…02b0a6 Dummy {f00=0x0017, f01=0x0190, f02=» 0 H IDENT W:FATR W,REL=2.3,850901,870155940230 W:FATR W:CTFA 8 W:FATR R , ( P & V ! V f W:DFCI , ( ! " P 0# V [ Q [ , ( A [ Z Z Z _( V
0x02b0a6…02b0ac 00 00 00 00 00 00 ┆ ┆
0x02b0ac…02b240 Dummy {f00=0x0017, f01=0x412c, f02=»:ENDR W:CTFA , ( H P P ! P " W:TFPT R * & < P W = d W:CFLD & " R T W W : D @ P #P8 7QZ K oP" W P: P6 P P W R
0x02b240…02b246 00 00 00 00 00 00 ┆ ┆
0x02b246…02b3da Dummy {f00=0x0017, f01=0x018e, f02=» 0 H IDENT W:FDDA W,REL=2.3,850901,870155940230 W:FDDA 8 W:FDDA J W:PNXT ^ * & 8 T p , ( _ - Y : [ < W:GDFT , ( = WAP WNP WSP U
0x02b3da…02b3e0 00 00 00 00 00 00 ┆ ┆
0x02b3e0…02b574 (0, 54) Dummy {f00=0x0017, f01=0x4110, f02=» , ( T & W J J J W , ( J J J W * J # 4 , ( " 9h! 9C R W d : @ < T APd GPn MPx WU [W cV kT qP WT W W R W
0x02b574…02b57a 00 00 00 00 00 00 ┆ ┆
0x02b57a…02b70e Dummy {f00=0x0017, f01=0x0190, f02=» 0 H IDENT W:FID W,REL=2.3,850901,870155940230 W:FID 8 W:FID H W:GDFT Z , ( P & l , ( Q V Q W T X W:GNPO , ( ? <'@P 8 % X E V
0x02b70e…02b714 00 00 00 00 00 00 ┆ ┆
0x02b714…02b8a8 Dummy {f00=0x0017, f01=0x402c, f02=»P [V sP {W z @ (230 W:FID 8 W:FID H W:GDFT Z , ( P & l , ( Q V Q W T X W:GNPO , ( ? <'@P 8 % X E V
0x02b8a8…02b8ae 00 00 00 00 00 00 ┆ ┆
0x02b8ae…02ba42 Dummy {f00=0x0017, f01=0x4122, f02=» 0 H IDENT W:FSPT W,REL=2.3,850901,870155940230 W:FSPT 8 W:FSPT J S:POLF ^ , ( @ T 4R <AR p W:LKMH , ( Y @ T ; : _& R" R
0x02ba42…02ba48 00 00 00 00 00 00 ┆ ┆
0x02ba48…02bbdc Dummy {f00=0x0017, f01=0x40c8, f02=» 0 H IDENT W:GDFT W,REL=2.3,850901,870155940230 W:GDFT 8 W:GDFT J W:PIX ^ , ( R R ' n : " @
0x02bbdc…02bbe0 00 00 00 00 ┆ ┆
0x02bbe0…02bbe2 00 00 ┆ ┆
0x02bbe2…02bd76 Dummy {f00=0x0017, f01=0x40c8, f02=» 0 H IDENT W:GNPO W,REL=2.3,850901,870155940230 W:GNPO 8 W:GNPO J W:PNXT ^ , ( p : @
0x02bd76…02bd7c 00 00 00 00 00 00 ┆ ┆
0x02bd7c…02bf10 Dummy {f00=0x0017, f01=0x40da, f02=» 0 H IDENT W:GOTO W,REL=2.3,850901,870155940230 W:V004 W:V005 8 W:V004 R W:V005 f W:LOAD z W:VEVB " D@ @
0x02bf10…02bf16 00 00 00 00 00 00 ┆ ┆
0x02bf16…02c0aa Dummy {f00=0x0017, f01=0x415e, f02=» 0 H IDENT W:GTPM W,REL=2.3,850901,870155940230 W:GTPM 8 W:GTPM J W:FDDA ^ , ( V P < & P P p W:TSTO , ( W T &:A <:e :H W:ENDR , ( = F W
0x02c0aa…02c0b0 00 00 00 00 00 00 ┆ ┆
0x02c0b0…02c244 (0, 55) Dummy {f00=0x0017, f01=0x4162, f02=» 0 H IDENT W:IF W,REL=2.3,850901,870155940230 W:V006 W:V008 8 W:V006 R W:V008 f W:EXPR z , ( @ W ; h ' Q W:LOAD , ( D : P W W:VEVB
0x02c244…02c24a 00 00 00 00 00 00 ┆ ┆
0x02c24a…02c3de Dummy {f00=0x0017, f01=0x0190, f02=» 0 H IDENT W:INAB W,REL=2.3,850901,870155940230 W:OP17 W:OP18 8 W:OP17 R W:GWA1 f W:OP18 x , ( @ P * +P T W W:PDEC W:RWA1 W:IWA1 , ( @ H
0x02c3de…02c3e0 00 00 ┆ ┆
0x02c3e0…02c3e4 00 00 00 00 ┆ ┆
0x02c3e4…02c578 Dummy {f00=0x0017, f01=0x4020, f02=»P v R @ 01,870155940230 W:OP17 W:OP18 8 W:OP17 R W:GWA1 f W:OP18 x , ( @ P * +P T W W:PDEC W:RWA1 W:IWA1 , ( @ H
0x02c578…02c57e 00 00 00 00 00 00 ┆ ┆
0x02c57e…02c712 Dummy {f00=0x0017, f01=0x0190, f02=» 0 H IDENT W:KBIN W,REL=2.3,850901,870155940230 W:ADIN W:NOIN 8 W:NOIN R , ( W v | V W W w | f W:ADIN & , ( ! W : | V : z C C , ( A ( B T W B R ' W
0x02c712…02c718 00 00 00 00 00 00 ┆ ┆
0x02c718…02c8ac Dummy {f00=0x0017, f01=0x40f4, f02=»W @ n W:BLOC W:CFA W:WFLD 0 W:CRC2 B W:RCIE T , ( $ T @ ) f ^* : ( $ 0 ITL WR gQR mT yP W T @ B R ' W
0x02c8ac…02c8b2 00 00 00 00 00 00 ┆ ┆
0x02c8b2…02ca46 Dummy {f00=0x0017, f01=0x4138, f02=» 0 H IDENT W:LEN W,REL=2.3,850901,870155940230 W:OP1D 8 W:OP1D J W:GWA1 ^ W:RWA1 p , ( @ P *! P _ W:BIAS W:IWA1 W:EXP5 " @
0x02ca46…02ca4c 00 00 00 00 00 00 ┆ ┆
0x02ca4c…02cbe0 Dummy {f00=0x0017, f01=0x018e, f02=» 0 H IDENT W:LET W,REL=2.3,850901,870155940230 & " W:V000 W:V001 W:V002 W:V003 8 W:V000 b W:V001 v W:V002 W:V003 W:EXPR W:GWA2 , ( H W ; , (
0x02cbe0…02cbe6 00 00 00 00 00 00 ┆ ┆
0x02cbe6…02cd7a Dummy {f00=0x0017, f01=0x0190, f02=» f W:COPY , ( } W @ Z [ Z , ( P H , P $ W , X % P , J W:CFA z W:TFPT , ( - T W W & W:WFLD W:VEVB , ( R
0x02cd7a…02cd80 00 00 00 00 00 00 ┆ ┆
0x02cd80…02cf14 (0, 56) Dummy {f00=0x0018, f01=0x4074, f02=»T [W cW$ kT wP {W b < 8 @ W PB P W P T W R T" T R P ^@ p J W:CFA z W:TFPT , ( - T W W & W:WFLD W:VEVB , ( R
0x02cf14…02cf1a 00 00 00 00 00 00 ┆ ┆
0x02cf1a…02d0ae Dummy {f00=0x0018, f01=0x408c, f02=» 0 H IDENT W:LKMH W,REL=2.3,850901,870155940230 W:LKMH 8 W:LKMH J ( ^ v@
0x02d0ae…02d0b4 00 00 00 00 00 00 ┆ ┆
0x02d0b4…02d248 Dummy {f00=0x0018, f01=0x40e6, f02=» 0 H IDENT W:LOAD W,REL=2.3,850901,870155940230 W:LOAD 8 W:LOAD J W:PNXT ^ , ( .& T ; p : _( : T . @
0x02d248…02d24e 00 00 00 00 00 00 ┆ ┆
0x02d24e…02d3e2 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:MSG W,REL=2.3,850901,870155940230 W:MSG 8 W:MSG H W:BUZ1 Z W:NMES l , ( V V ! T V V V P ~ W:NMSG W:PEKO W:EDEC * & D@ W W &
0x02d3e2…02d3e8 00 00 00 00 00 00 ┆ ┆
0x02d3e8…02d57c Dummy {f00=0x0018, f01=0x40ca, f02=» , ( s V V V P W:BLOC 4 W:END F * & B W V , ( T V P #Wz )Wt QR [P }V P @ W:EDEC * & D@ W W &
0x02d57c…02d580 00 00 00 00 ┆ ┆
0x02d580…02d582 00 00 ┆ ┆
0x02d582…02d716 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:MUL W,REL=2.3,850901,870155940230 W:OP16 8 W:OP16 J W:GWA2 ^ W:GWA1 p , ( @ [ [ [ ( W:EVOF , ( P * S P !. P ! W:IWA1 , (
0x02d716…02d71c 00 00 00 00 00 00 ┆ ┆
0x02d71c…02d8b0 Dummy {f00=0x0018, f01=0x018e, f02=» R X [ U Z , ( @ [ Y _: - i T * W:PDEC Z , ( i T + i Z P l , ( H P W:RWA2 , ( [ Z
0x02d8b0…02d8b6 00 00 00 00 00 00 ┆ ┆
0x02d8b6…02da4a Dummy {f00=0x0018, f01=0x413a, f02=» , ( C W $! X S X* +X X X8! , ( c [ [ : Z Z 4 , ( : Z P H H I d ) I 0 5 Y : H D ! )P 1P 7P ;P q ( wR0 } l U l T T P P P R
0x02da4a…02da50 00 00 00 00 00 00 ┆ ┆
0x02da50…02dbe4 (0, 57) Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:NUST W,REL=2.3,850901,870155940230 W:OP10 W:OP1E 8 W:OP10 R W:OP1E f W:GWA1 z , ( h +P P W ` <H W:EVOF W:COPY , ( $ P H H
0x02dbe4…02dbea 00 00 00 00 00 00 ┆ ┆
0x02dbea…02dd7e Dummy {f00=0x0018, f01=0x4088, f02=» W:CPSS W:EXP5 " uB@ ` ( P P W %PZ ?T$ cW N r@ , ( h +P P W ` <H W:EVOF W:COPY , ( $ P H H
0x02dd7e…02dd80 00 00 ┆ ┆
0x02dd80…02dd84 00 00 00 00 ┆ ┆
0x02dd84…02df18 Dummy {f00=0x0018, f01=0x417c, f02=» 0 H IDENT W:ONTO W,REL=2.3,850901,870155940230 W:V00A 8 W:V00A J W:EXPR ^ W:GWA1 p W:PDEC W:ASBI , ( $ ; W:LOAD * & Z P
0x02df18…02df1e 00 00 00 00 00 00 ┆ ┆
0x02df1e…02e0b2 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:OPEN W,REL=2.3,850901,870155940230 . * W:OPEN W:CLOS W:CRC1 W:CRC2 W:ERPF 8 W:OPEN j W:PRDD ~ , ( V W Z , ( T W v <" V < W:CLOS L , (
0x02e0b2…02e0b8 00 00 00 00 00 00 ┆ ┆
0x02e0b8…02e24c Dummy {f00=0x0018, f01=0x018e, f02=» W $ V ; : W V P W:PRLT ( , ( V & S V P D V V : , ( V %x W W W j , ( V V %x W W W:CRC1 W:CRC2 W:ERPF , (
0x02e24c…02e252 00 00 00 00 00 00 ┆ ┆
0x02e252…02e3e6 Dummy {f00=0x0018, f01=0x401a, f02=» * @ V P W:PRLT ( , ( V & S V P D V V : , ( V %x W W W j , ( V V %x W W W:CRC1 W:CRC2 W:ERPF , (
0x02e3e6…02e3ec 00 00 00 00 00 00 ┆ ┆
0x02e3ec…02e580 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:PDYN W,REL=2.3,850901,870155940230 W:PDYN 8 W:PDYN J W:PRDS ^ , ( V P V | P P W p SECERR W:PEKO W:DFCI , ( ! [ $
0x02e580…02e586 00 00 00 00 00 00 ┆ ┆
0x02e586…02e71a Dummy {f00=0x0018, f01=0x0190, f02=»N , ( s _ P | G , ( G _. U : W:WCHR j W:EDEC | * & _ [ [ z & W:EPIC , ( @ Z Z Z , (
0x02e71a…02e720 00 00 00 00 00 00 ┆ ┆
0x02e720…02e8b4 (0, 58) Dummy {f00=0x0018, f01=0x4046, f02=» P W AP SP ]T oT yP* U P . 0@ B _. U : W:WCHR j W:EDEC | * & _ [ [ z & W:EPIC , ( @ Z Z Z , (
0x02e8b4…02e8ba 00 00 00 00 00 00 ┆ ┆
0x02e8ba…02ea4e Dummy {f00=0x0018, f01=0x018e, f02=» 0 H IDENT W:PFIF W,REL=2.3,850901,870155940230 F B W:PNXT W:PREL W:PRLT W:PRSL W:PRES W:PWRT W:PDLT W:PDAL 8 4 0 W:PRDD W:PRDF W:PRDN W:PRDS W:PIX W:LPOL W:LPOL W:PNXT , ( V W L W Z [ :
0x02ea4e…02ea54 00 00 00 00 00 00 ┆ ┆
0x02ea54…02ebe8 Dummy {f00=0x0018, f01=0x0190, f02=» W:PWRT N W:PDLT R W:PDAL , , ( A @ W B W W W B @W @ @ W:PIX h p W:PRDD | , ( a W ' W @ P SW D W:PRDN W:PRDF W:PRDS , (
0x02ebe8…02ebee 00 00 00 00 00 00 ┆ ┆
0x02ebee…02ed82 Dummy {f00=0x0018, f01=0x4052, f02=» )W| 5Wf ;W MWJ QWJ [W< gW4 qPV {W W W W <@ N W W W B @W @ @ W:PIX h p W:PRDD | , ( a W ' W @ P SW D W:PRDN W:PRDF W:PRDS , (
0x02ed82…02ed88 00 00 00 00 00 00 ┆ ┆
0x02ed88…02ef1c Dummy {f00=0x0018, f01=0x018e, f02=» 0 H IDENT W:POS W,REL=2.3,850901,870155940230 W:OP21 8 W:OP21 J W:GW2R ^ , ( @ P & P +P _ p , ( P &! P P +X W:RWA2 W:BIAS W:IWA1
0x02ef1c…02ef20 00 00 00 00 ┆ ┆
0x02ef20…02ef22 00 00 ┆ ┆
0x02ef22…02f0b6 Dummy {f00=0x0018, f01=0x4008, f02=»@ NT W:POS W,REL=2.3,850901,870155940230 W:OP21 8 W:OP21 J W:GW2R ^ , ( @ P & P +P _ p , ( P &! P P +X W:RWA2 W:BIAS W:IWA1
0x02f0b6…02f0bc 00 00 00 00 00 00 ┆ ┆
0x02f0bc…02f250 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:PRNT W,REL=2.3,850901,870155940230 W:PRNT 8 W:PRNT J , ( ; V V V " T T v | ^ , ( ! [ W W % P V W V W:ADPR , ( A @ V ' P ( ( , ( _
0x02f250…02f256 00 00 00 00 00 00 ┆ ┆
0x02f256…02f3ea Dummy {f00=0x0018, f01=0x0190, f02=» w | D $ r , ( % T % T D # P % T W:PRDS B , ( % P D E V T W:PLIN W:PREL , ( E Z V W:PDYN , ( @ V | U % P
0x02f3ea…02f3f0 00 00 00 00 00 00 ┆ ┆
0x02f3f0…02f584 (0, 59) Dummy {f00=0x0018, f01=0x4160, f02=» q @ _ V V W:CRC2 * W:ENDR < , ( T V P *W N V W > : ~ H D ! @ T T 'W 1P 9 ;W KPJ eR oW$ P T W T P T H D ! TR T P TL P8 V.
0x02f584…02f58a 00 00 00 00 00 00 ┆ ┆
0x02f58a…02f71e Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:PRUT W,REL=2.3,850901,870155940230 W:ADPR W:EJEC W:PLIN 8 W:ADPR Z W:EJEC n , ( V # T W W W d C W W:PLIN . , ( ! 1 W B V ' , ( A P c
0x02f71e…02f720 00 00 ┆ ┆
0x02f720…02f724 00 00 00 00 ┆ ┆
0x02f724…02f8b8 Dummy {f00=0x0018, f01=0x408c, f02=» h W:PREL W:ENDR " @ : , T WF W0 -W AP mQ6 R v@ # T W W W d C W W:PLIN . , ( ! 1 W B V ' , ( A P c
0x02f8b8…02f8be 00 00 00 00 00 00 ┆ ┆
0x02f8be…02fa52 Dummy {f00=0x0018, f01=0x0190, f02=» 0 H IDENT W:RCIV W,REL=2.3,850901,870155940230 W:RCIV W:RCIE 8 W:ROP R W:RMRY b , ( t W:RCIV $ , ( P x W 6 & , ( = W V 0 V P P
0x02fa52…02fa58 00 00 00 00 00 00 ┆ ┆
0x02fa58…02fbec Dummy {f00=0x0018, f01=0x0190, f02=» V T P T V ~ , ( P U P P W W W , ( V " T V " P Z N W:RCIE ~ W:COF3 W:ENDR , ( $ V ! 9d" P W , ( _ ; [ [ V " T
0x02fbec…02fbf2 00 00 00 00 00 00 ┆ ┆
0x02fbf2…02fd86 Dummy {f00=0x0018, f01=0x0190, f02=» j , ( O T v _t V ' P , ( m P W V T R V S ]z : , ( W R Y:_ [ [ V XL j , ( W T [ V P , ( 0 V P Z Z W W:PRES
0x02fd86…02fd8c 00 00 00 00 00 00 ┆ ┆
0x02fd8c…02ff20 Dummy {f00=0x0018, f01=0x0190, f02=»p U r , ( ' X _. V W ] [ , ( E v T ( W B , ( c V Z P W v W 0 ( r , ( @ W * W . Z V $ P W 6 , ( R 3 V 0 V % T R , (
0x02ff20…02ff26 00 00 00 00 00 00 ┆ ┆
0x02ff26…0300ba Dummy {f00=0x0018, f01=0x0190, f02=» : Q [ W W:TDWN $ W:CHLI 6 , ( Q V P " P [ H , ( 7 W V ! P W W [ x W:FSIM * & W W V ! P Z W:TSTP , ( u $
0x0300ba…0300c0 00 00 00 00 00 00 ┆ ┆
0x0300c0…030254 (0, 60) Dummy {f00=0x0019, f01=0x0190, f02=» " [ W [ R ! T V (P , ( &P Z [ W P * , ( P P V ' T [ Q Z , ( + W Z R Q T W T T , ( K Z Q Q W Z W Q R * & k P B p
0x030254…03025a 00 00 00 00 00 00 ┆ ┆
0x03025a…0303ee Dummy {f00=0x0019, f01=0x0190, f02=»@ P Z R Z Q : Z W:EVSE * , ( 0 ,P Z P _ : < , ( * : ; Z P (T :W : l , ( ! [ R R [ Z , ( A & [ & Z $ P [ $ , ( _ Z
0x0303ee…0303f4 00 00 00 00 00 00 ┆ ┆
0x0303f4…030588 Dummy {f00=0x0019, f01=0x0190, f02=»P N H D ! uTX T P T P U P P T, P" P TX -T 5T H D ! CW OT _ x kP0 oP sW yT T( P P W U P U !U E V H D ! Q h UT" kPH oWD P R T6 R U Vh P P QL W H D ! Qv +P 3Pb ;W CP Y
0x030588…03058e 00 00 00 00 00 00 ┆ ┆
0x03058e…030722 Dummy {f00=0x0019, f01=0x40c4, f02=»T6 =W CT* IT OQ S | UQ WW gQ iR mP T W T H D ! P P P P2 R, Q& n P P P T WD -R 1R B @ MP k n uP P U @ T6 R U Vh P P QL W H D ! Qv +P 3Pb ;W CP Y
0x030722…030728 00 00 00 00 00 00 ┆ ┆
0x030728…0308bc Dummy {f00=0x0019, f01=0x40bc, f02=» 0 H IDENT W:REM W,REL=2.3,850901,870155940230 W:V01A 8 W:V01A J W:VEVB ^ W:LOAD p _ @
0x0308bc…0308c0 00 00 00 00 ┆ ┆
0x0308c0…0308c2 00 00 ┆ ┆
0x0308c2…030a56 Dummy {f00=0x0019, f01=0x0190, f02=» 0 H IDENT W:RMRY W,REL=2.3,850901,870155940230 . * W:RMRY W:NPAC W:NPA2 W:NPA3 W:APAC 8 W:RMRY j , ( P F & V & P <!@T V ~ , ( ! ! P W & W <' , ( A 7 P F V V P
0x030a56…030a5c 00 00 00 00 00 00 ┆ ┆
0x030a5c…030bf0 Dummy {f00=0x0019, f01=0x0190, f02=» H V : W P W:NUMP 0 , ( R @ W V ! T I B W:PBUF r , ( @ W 5 @ P T W:APAC W:NPAC , ( W W W : ; W ;
0x030bf0…030bf6 00 00 00 00 00 00 ┆ ┆
0x030bf6…030d8a Dummy {f00=0x0019, f01=0x40ce, f02=» $ W _ U 9h 5 U :h U : H D !@ P& P T %P )W" 7W CP _P gP wT Qx T X P$ W , < 8 P R W T W P T W W P$ P +P x n @ PAC , ( W W W : ; W ;
0x030d8a…030d90 00 00 00 00 00 00 ┆ ┆
0x030d90…030f24 (0, 61) Dummy {f00=0x0019, f01=0x0190, f02=» 0 H IDENT W:ROP W,REL=2.3,850901,870155940230 W:ROP 8 W:RCIE H W:KTB6 Z W:KTB5 l W:ROP ~ , ( [ [ , ( P ; W V U Q W:TFPT W:C
0x030f24…030f2a 00 00 00 00 00 00 ┆ ┆
0x030f2a…0310be Dummy {f00=0x0019, f01=0x0190, f02=»W Q z W:OMES , ( q T V W , W:CFA , ( V * W W F W 9h l , ( F # T * F &R *` F $ <a , ( # P # T W ;d$ P , ( W
0x0310be…0310c0 00 00 ┆ ┆
0x0310c0…0310c4 00 00 00 00 ┆ ┆
0x0310c4…031258 Dummy {f00=0x0019, f01=0x018e, f02=» W <! 1 9C V " W W:TINP , ( C@ W [ T T 2 W:EPIC b , ( ] V V ! U [ t W:WDOT W:PIB , ( { [ v . V . 0 V W:TSTO
0x031258…03125e 00 00 00 00 00 00 ┆ ┆
0x03125e…0313f2 Dummy {f00=0x0019, f01=0x0190, f02=» , ( $H 2 & P ( * W:BLOC 4 , ( , H . W V V V F , ( ! P W ' T W &R V | v , ( P F & T ! P , ( % =d V V | W , R , (
0x0313f2…0313f8 00 00 00 00 00 00 ┆ ┆
0x0313f8…03158c Dummy {f00=0x0019, f01=0x0190, f02=» P T V ! T 2P &R F ! W:SM01 * , ( @ P T F ! P 4W F !@P < W:SM02 l * & P W V 6 F ! T ~ W:VALA , ( @ 2P P @ 8P , ( P V W
0x03158c…031592 00 00 00 00 00 00 ┆ ┆
0x031592…031726 Dummy {f00=0x0019, f01=0x0190, f02=» T W r W:CDFL , ( IH >T V ! T V ! P & $ , ( e V F " T F V P V F T W:WSPA , ( W Z P Z < @W V W:NMES , ( ! P " T B V V V ' P >A
0x031726…03172c 00 00 00 00 00 00 ┆ ┆
0x03172c…0318c0 Dummy {f00=0x0019, f01=0x0190, f02=»:FUSE , ( H $ H H V Z W , ( @ : W W Z V . , F > W:NUMP n W:APAC * & 5 ' ! T &R @ J W W:BUZ2 W:IMES , ( Q L W W
0x0318c0…0318c6 00 00 00 00 00 00 ┆ ┆
0x0318c6…031a5a Dummy {f00=0x0019, f01=0x0190, f02=» W V ' T &R F ' T W:EDEC & , ( A R v . T V | V " 8 W:WCHR h , ( $ !++P G U R $ V z W:SCWR , ( H_ F % XW N $ Z * & ' W W
0x031a5a…031a60 00 00 00 00 00 00 ┆ ┆
0x031a60…031bf4 (0, 62) Dummy {f00=0x0019, f01=0x0190, f02=» D V J z W:KLC A Z * H D ! J P( -U6 5 v 9Q* A r E I WR ]T cW iQ sT J H D ! yV W T RP P T W P W P W P T ST2 YT, uU H D ! P V( W P P T Rj Pb
0x031bf4…031bfa 00 00 00 00 00 00 ┆ ┆
0x031bfa…031d8e Dummy {f00=0x0019, f01=0x4108, f02=»P P, T ?V ETV GWP QTJ YT> aP$ eV2 mT* yP" z H D ! W P W P T V P V TV T P P T, P T W 6 H D ! AT ER MW cW qW T Wt R T RV TL P U R W AV GP [V _T gW qP uT @
0x031d8e…031d94 00 00 00 00 00 00 ┆ ┆
0x031d94…031f28 Dummy {f00=0x0019, f01=0x0190, f02=» 0 H IDENT W:ROPK W,REL=2.3,850901,870155940230 : 6 W:ROPK W:KLC W:FUSE W:TUP W:TDWN W:CHLI W:FSIM 8 W:ROPK v , ( P V , ( ! W R 9A D V V # T W:TSTP , ( A T 2@
0x031f28…031f2e 00 00 00 00 00 00 ┆ ┆
0x031f2e…0320c2 Dummy {f00=0x0019, f01=0x0190, f02=» W r , ( y @ P W W:OMES B , ( V ' P W S T W:AMES , ( T R (% P ' S W W:APAC W:ODFC * & t _X
0x0320c2…0320c8 00 00 00 00 00 00 ┆ ┆
0x0320c8…03225c Dummy {f00=0x0019, f01=0x018e, f02=» l , ( % P P < ! T &R F W W:DFCP < W:COPY N , ( E T ( | V | ` , ( a ( W &R - 1T F # T + 1 W:PIB W:PREL * & @ P V
0x03225c…032260 00 00 00 00 ┆ ┆
0x032260…032262 00 00 ┆ ┆
0x032262…0323f6 Dummy {f00=0x0019, f01=0x018e, f02=» f W:DYFC W:KBL2 W:COF2 , , ( V # P @ V V " > W:EIB n W:SM03 ~ W:IMSG , ( $ $ P V | & ( * W:WDOT W:CUON * & A Z
0x0323f6…0323fc 00 00 00 00 00 00 ┆ ┆
0x0323fc…032590 Dummy {f00=0x0019, f01=0x0190, f02=» f , ( [ W [ V ! P V D ! P W:NMES 8 W:KBLK J W:SM04 , ( {I $ 2 4 Z H n , ( 6 * Z @ 6 W:KTB3 , ( $ , . 8 R
0x032590…032596 00 00 00 00 00 00 ┆ ┆
0x032596…03272a Dummy {f00=0x0019, f01=0x0190, f02=» p , ( # _ W W W W W W W:ADIN @ , ( C W W W W W : R W:TUP b , ( a : [ [ P Q Z , ( [ _ P & Z W:TDWN , (
0x03272a…032730 00 00 00 00 00 00 ┆ ┆
0x032730…0328c4 (0, 63) Dummy {f00=0x0019, f01=0x0190, f02=» h W:PIX W:LOAD , ( R < R ' : > * W:FSIM & Z , ( Z Q >W : [ v n W:DFCI , ( 7 T Z P W @ W . W:CHLI b , ( S ( W * Z
0x0328c4…0328ca 00 00 00 00 00 00 ┆ ┆
0x0328ca…032a5e Dummy {f00=0x0019, f01=0x0190, f02=» : : H D ! X t PX V )R =T AT H D !* GW MT W cU s {P P S T P S W P P H D ! W" P T %P` +P 5T 9R AW ET mR sT {T P P W W H D ! W W P V
0x032a5e…032a60 00 00 ┆ ┆
0x032a60…032a64 00 00 00 00 ┆ ┆
0x032a64…032bf8 Dummy {f00=0x0019, f01=0x404a, f02=» R & W Q !W 7T EP GW gPR U( V 4@ FR =T AT H D !* GW MT W cU s {P P S T P S W P P H D ! W" P T %P` +P 5T 9R AW ET mR sT {T P P W W H D ! W W P V
0x032bf8…032bfe 00 00 00 00 00 00 ┆ ┆
0x032bfe…032d92 Dummy {f00=0x0019, f01=0x0190, f02=» 0 H IDENT W:ROPS W,REL=2.3,850901,870155940230 H D ! W:PIB W:EIB W:TSTP W:TINP W:TMOD W:TCHK W:FPOS W:CFA W:CFII 8 W:TSTO W:TFPT W:CFA W:PIB , ( V . ( : V & # T F &R , ( ! - 1T .@ W
0x032d92…032d98 00 00 00 00 00 00 ┆ ┆
0x032d98…032f2c Dummy {f00=0x0019, f01=0x0190, f02=» W:TSTP , ( V :P % _ : ; V " :cT V W:TSTO H , ( P V :AR <:g" T &"@P A V , ( P "@2@P F P P : 2 W W:TINP , ( <" :e2 [ : : @ V :f_ V W:TMO
0x032f2c…032f32 00 00 00 00 00 00 ┆ ┆
0x032f32…0330c6 Dummy {f00=0x0019, f01=0x0190, f02=»S X , ( A =c V 4 4 & = % : V V W:CFII < , ( a W V H V 9H F H :H : P W:FDDA , ( ; V 0 V ! P V ! T v W:TFPT , ( @ 4 V E : : [ * &
0x0330c6…0330cc 00 00 00 00 00 00 ┆ ┆
0x0330cc…033260 Dummy {f00=0x0019, f01=0x403e, f02=» T %T ;P [ ]V cW P T (@ : W:CFII < , ( a W V H V 9H F H :H : P W:FDDA , ( ; V 0 V ! P V ! T v W:TFPT , ( @ 4 V E : : [ * &
0x033260…033266 00 00 00 00 00 00 ┆ ┆
0x033266…0333fa Dummy {f00=0x0019, f01=0x4162, f02=» 0 H IDENT W:ROUN W,REL=2.3,850901,870155940230 W:ROUN 8 W:ROUN J , ( & 5R R & Q ^ , ( ! _ Z Z $ Q X 0 %_ /0 , ( A % 5 : ; +P P P P a P W [ : :
0x0333fa…033400 00 00 00 00 00 00 ┆ ┆
0x033400…033594 (0, 64) Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:SAVE W,REL=2.3,850901,870155940230 W:SAVE 8 W:SAVE J , ( V T V @W V " P ^ W:PRSL , ( ! DW D S# P F P T W:PNXT , ( ? w : $ 9 P v
0x033594…03359a 00 00 00 00 00 00 ┆ ┆
0x03359a…03372e Dummy {f00=0x001a, f01=0x407a, f02=» W <W W < 8 T W. P #W /P 7PD =TL WP( cT kT sT {W W $ d@ v V " P ^ W:PRSL , ( ! DW D S# P F P T W:PNXT , ( ? w : $ 9 P v
0x03372e…033734 00 00 00 00 00 00 ┆ ┆
0x033734…0338c8 Dummy {f00=0x001a, f01=0x4142, f02=» 0 H IDENT W:SECT W,REL=2.3,850901,870155940230 W:V00E 8 W:V00E J W:EXPR ^ W:GWAR p , ( $ ( W * W:PRDN W:VEVB * & ) U X _
0x0338c8…0338ce 00 00 00 00 00 00 ┆ ┆
0x0338ce…033a62 Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:SEND W,REL=2.3,850901,870155940230 W:SEND W:CFLD 8 W:SEND R , ( & V V ! f , ( ! R P " P W R # W 0# V W:DFCI , ( A Q P _
0x033a62…033a68 00 00 00 00 00 00 ┆ ┆
0x033a68…033bfc Dummy {f00=0x001a, f01=0x018e, f02=» W _L V V z , ( V V & (% P , ( P _< W _ J W:COF3 z W:END W:ENDR , ( W W W , ( P F T G R
0x033bfc…033c00 00 00 00 00 ┆ ┆
0x033c00…033c02 00 00 ┆ ┆
0x033c02…033d96 Dummy {f00=0x001a, f01=0x0190, f02=» , ( s T @ F >h W:TFPT 4 , ( Z < F $ P * T * W " = F , ( @ T W T @W <H v W:CFLD , ( @ : V ! T V D W:BLOC W:WFLD
0x033d96…033d9c 00 00 00 00 00 00 ┆ ┆
0x033d9c…033f30 Dummy {f00=0x001a, f01=0x409e, f02=» P T H D ! V< P P P )TP /R0 ;P ?T EU OU uT P T W T ( $ W T W T( P V R @ v W:CFLD , ( @ : V ! T V D W:BLOC W:WFLD
0x033f30…033f36 00 00 00 00 00 00 ┆ ┆
0x033f36…0340ca Dummy {f00=0x001a, f01=0x416c, f02=» 0 H IDENT W:SGN W,REL=2.3,850901,870155940230 W:OP19 8 W:OP19 J W:GWA1 ^ W:CPNA p * & @ ; [ 00 W:RWA1 , ( P +1 - #T -1 Z W:IWA1 W
0x0340ca…0340d0 00 00 00 00 00 00 ┆ ┆
0x0340d0…034264 (0, 65) Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:SSTR W,REL=2.3,850901,870155940230 W:OP0F 8 W:OP0F J W:GWA1 ^ W:ASBI p W:RWA1 , ( D V W:GWAR , ( H V
0x034264…03426a 00 00 00 00 00 00 ┆ ┆
0x03426a…0343fe Dummy {f00=0x001a, f01=0x4076, f02=»XP5 m V + _ , ( V #V 5Q 9W =Q AW ]P aQ oV 0 ~ `@ rSBI p W:RWA1 , ( D V W:GWAR , ( H V
0x0343fe…034400 00 00 ┆ ┆
0x034400…034404 00 00 00 00 ┆ ┆
0x034404…034598 Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:STD W,REL=2.3,850901,870155940230 > : W:TSTD W:GSTD W:DSTD W:IDFD W:SSTB W:DFCP W:DFDB 8 W:TSTD z W:GSTD , ( P : V , , ( ! P P " Q " B W " , ( A
0x034598…03459e 00 00 00 00 00 00 ┆ ┆
0x03459e…034732 Dummy {f00=0x001a, f01=0x0190, f02=» U _ V v , ( W V V W V $P W:IDFD F W:DFCI Z , ( V W $p Z : v l W:ODFC , ( P P F W:COPY W:SSTB , (
0x034732…034738 00 00 00 00 00 00 ┆ ┆
0x034738…0348cc Dummy {f00=0x001a, f01=0x40ce, f02=» ; $ F & T , < F F & : ( $ [ v P <& =_ : , H D ! P #P> )P8 3Q ;W MT P U V P V P0 P 4 'P 9R X ET iP t @ P F W:COPY W:SSTB , (
0x0348cc…0348d2 00 00 00 00 00 00 ┆ ┆
0x0348d2…034a66 Dummy {f00=0x001a, f01=0x40d8, f02=» 0 H IDENT W:STOP W,REL=2.3,850901,870155940230 W:V012 8 W:V012 J W:FDDA ^ W:VEVB p , ( P v P @
0x034a66…034a6c 00 00 00 00 00 00 ┆ ┆
0x034a6c…034c00 Dummy {f00=0x001a, f01=0x018e, f02=» 0 H IDENT W:STRT W,REL=2.3,850901,870155940230 W:STRT W:END W:ENDR 8 W:STRT X W:ICFC l , ( l @ C C ( @ ~ , ( C C ( W V v , ( = l C @ C V | C
0x034c00…034c06 00 00 00 00 00 00 ┆ ┆
0x034c06…034d9a Dummy {f00=0x001a, f01=0x0190, f02=» , ( ! T v : V E' P ! P ! , ( P ! P ! P ! P ! P ! 4 WSMTAB d W:USRU v , ( P W W P V 9g D @ W:ENDR W:END , ( P W V W > l @
0x034d9a…034da0 00 00 00 00 00 00 ┆ ┆
0x034da0…034f34 (0, 66) Dummy {f00=0x001a, f01=0x403c, f02=»P P P P Z P < &@ 8 P ! P ! P ! P ! P ! 4 WSMTAB d W:USRU v , ( P W W P V 9g D @ W:ENDR W:END , ( P W V W > l @
0x034f34…034f3a 00 00 00 00 00 00 ┆ ┆
0x034f3a…0350ce Dummy {f00=0x001a, f01=0x40f8, f02=» 0 H IDENT W:SVAL W,REL=2.3,850901,870155940230 W:SVAL 8 W:SVAL J W:COPY ^ , ( , p , ( " d L " L " W ? : @ @
0x0350ce…0350d4 00 00 00 00 00 00 ┆ ┆
0x0350d4…035268 Dummy {f00=0x001a, f01=0x413c, f02=» 0 H IDENT W:SYS W,REL=2.3,850901,870155940230 W:OP1C 8 W:OP1C J W:GWA1 ^ W:RWA1 p , ( @ P * _ 1T V W:BIAS W:IWA1 W:EXP5 & "
0x035268…03526e 00 00 00 00 00 00 ┆ ┆
0x03526e…035402 Dummy {f00=0x001a, f01=0x8000, f02=»
0x035402…035408 00 00 00 00 00 00 ┆ ┆
0x035408…03559c Dummy {f00=0x001a, f01=0x8000, f02=»
0x03559c…0355a0 00 00 00 00 ┆ ┆
0x0355a0…0355a2 00 00 ┆ ┆
0x0355a2…035736 Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:VEVA W,REL=2.3,850901,870155940230 F B W:VEVA W:VEVB W:V01C W:EVOF W:EVSE W:EVWW W:EVOB W:EVDZ 8 W:VEVA W:ODFC * & x W 8 V * W:LOAD , ( P [ Z V
0x035736…03573c 00 00 00 00 00 00 ┆ ┆
0x03573c…0358d0 Dummy {f00=0x001a, f01=0x018e, f02=»@ Z Z _X [ , ( [ V R _ [ ( W:STMT X W:VEVB j W:V01C ~ W:BUGG * & [ V ! P W 8V @ , ( P Z Z Q R _ Z W:E
0x0358d0…0358d6 00 00 00 00 00 00 ┆ ┆
0x0358d6…035a6a Dummy {f00=0x001a, f01=0x018e, f02=» W:SM5C , ( W 03W 04W 05W 06 A W:SM5S J , ( # & V 0 V ! P V ! T W:DFCI W:SM5F W:SM05 W:BUZ2 , ( A $ W v 4 A W
0x035a6a…035a70 00 00 00 00 00 00 ┆ ┆
0x035a70…035c04 (0, 67) Dummy {f00=0x001a, f01=0x404a, f02=» J ( $ W W W W W 3P ;T EW f 4@ F W:SM5S J , ( # & V 0 V ! P V ! T W:DFCI W:SM5F W:SM05 W:BUZ2 , ( A $ W v 4 A W
0x035c04…035c0a 00 00 00 00 00 00 ┆ ┆
0x035c0a…035d9e Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:VWE W,REL=2.3,850901,870155940230 W:V016 W:V018 8 W:V016 R W:V018 f W:VEVB z W:SWA0 W:LOAD , ( $ W W:BUZ1 W:EDEC * &
0x035d9e…035da0 00 00 ┆ ┆
0x035da0…035da4 00 00 00 00 ┆ ┆
0x035da4…035f38 Dummy {f00=0x001a, f01=0x4090, f02=» , ( Q H ' H ' " o Z ' : 8 W MQ ^ z@ :SWA0 W:LOAD , ( $ W W:BUZ1 W:EDEC * &
0x035f38…035f3e 00 00 00 00 00 00 ┆ ┆
0x035f3e…0360d2 Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:WAOC W,REL=2.3,850901,870155940230 F B W:GWAR W:GW2R W:GWA1 W:GWA2 W:RWA1 W:RWA2 W:IWA1 W:SWA0 8 W:CNID W:BSGN W:GWAR W:GW2R W:GWA1 W:GWA2 , ( P *! T _
0x0360d2…0360d8 00 00 00 00 00 00 ┆ ┆
0x0360d8…03626c Dummy {f00=0x001a, f01=0x0190, f02=» : 8 R 9 : W:EVOF ( , ( a $ T I : W:SWA0 j W:CNID ~ , ( I : V : V < ) I : ; , ( P $# ,P T R %W ; _ W:BSGN , (
0x03626c…036272 00 00 00 00 00 00 ┆ ┆
0x036272…036406 Dummy {f00=0x001a, f01=0x4020, f02=»T N @ W:EVOF ( , ( a $ T I : W:SWA0 j W:CNID ~ , ( I : V : V < ) I : ; , ( P $# ,P T R %W ; _ W:BSGN , (
0x036406…03640c 00 00 00 00 00 00 ┆ ┆
0x03640c…0365a0 Dummy {f00=0x001a, f01=0x0190, f02=» 0 H IDENT W:WSCR W,REL=2.3,850901,870155940230 W:WDSP W:WSCR 8 W:ESCR R W:WDSP d , ( V V " T T x W:GSUS , ( P ,$ P | W:WSCR T , ( = |
0x0365a0…0365a6 00 00 00 00 00 00 ┆ ┆
0x0365a6…03673a Dummy {f00=0x001a, f01=0x0190, f02=» V W D :l W , ( T D P P P D # W:GSTD P W:DSTD b W:TFPT t , ( " P W P Q V , ( W W V E D W R W:ELIN , ( @$ W V
0x03673a…036740 00 00 00 00 00 00 ┆ ┆
0x036740…0368d4 (0, 68) Dummy {f00=0x001b, f01=0x412e, f02=» W j * & G R V # V W U W:PRDS 8 W:PREL J W:COF3 * & c H V : n H D ! N T T !P -P _ v oT sT T P P P Pt Wx P& Q , ( WT R( V P P W -P
0x0368d4…0368da 00 00 00 00 00 00 ┆ ┆
0x0368da…036a6e Dummy {f00=0x001b, f01=0x0190, f02=» 0 H IDENT W:WSEC W,REL=2.3,850901,870155940230 D @ W:WSEC W:WSE2 W:WSL W:CWSL W:CWCL W:CDFL W:WCHR W:WFLD 8 SECERR W:WSEC W:PRDS , ( T W:PREL SECERR *
0x036a6e…036a74 00 00 00 00 00 00 ┆ ┆
0x036a74…036c08 Dummy {f00=0x001b, f01=0x0190, f02=» _ t W:CWCL ^ W:CFA & W:CWSL b 6 , ( W W _& R Q W J , ( s W # D D $ E R E z , ( U D W Q ;H W:WSL , ( E D D W
0x036c08…036c0e 00 00 00 00 00 00 ┆ ┆
0x036c0e…036da2 Dummy {f00=0x001b, f01=0x018e, f02=» W:WSE2 W:PIX * & V [ :$ ; [ R $ , ( / R & [ [ Z [ R , ( M @R [ [ Z & P W:LOAD , ( k @ [ [ V Z , ( U aU
0x036da2…036da8 00 00 00 00 00 00 ┆ ┆
0x036da8…036f3c Dummy {f00=0x001b, f01=0x018e, f02=» f , ( W W R V T W , ( Z Z W _ 8 W:DFCI h , ( _ [ $ < Z z W:EPIC , ( 9 [ [ Z _ W:WFLD X W:TFP
0x036f3c…036f40 00 00 00 00 ┆ ┆
0x036f40…036f42 00 00 ┆ ┆
0x036f42…0370d6 Dummy {f00=0x001b, f01=0x414c, f02=» f W:WCHR , ( @ <P # : C > C : L H D ! h > > T E IP e gR iQ mWn ^ H D ! R U W Q U T P V P R V MR U R gP m < 8 V8 U U
0x0370d6…0370dc 00 00 00 00 00 00 ┆ ┆
0x0370dc…037270 Dummy {f00=0x001b, f01=0x8000, f02=»
0x037270…037276 00 00 00 00 00 00 ┆ ┆
0x037276…03740a Dummy {f00=0x001b, f01=0x8000, f02=»
0x03740a…037410 00 00 00 00 00 00 ┆ ┆
0x037410…0375a4 (0, 69) Dummy {f00=0x001b, f01=0x8000, f02=»
0x0375a4…0375aa 00 00 00 00 00 00 ┆ ┆
0x0375aa…03773e Dummy {f00=0x001b, f01=0x8000, f02=»
0x03773e…037740 00 00 ┆ ┆
0x037740…037744 00 00 00 00 ┆ ┆
0x037744…0378d8 Dummy {f00=0x001b, f01=0x8000, f02=»
0x0378d8…0378de 00 00 00 00 00 00 ┆ ┆
0x0378de…037a72 Dummy {f00=0x001b, f01=0x8000, f02=»
0x037a72…037a78 00 00 00 00 00 00 ┆ ┆
0x037a78…037c0c Dummy {f00=0x001b, f01=0x8000, f02=»
0x037c0c…037c12 00 00 00 00 00 00 ┆ ┆
0x037c12…037da6 Dummy {f00=0x001b, f01=0x8000, f02=»
0x037da6…037dac 00 00 00 00 00 00 ┆ ┆
0x037dac…037f40 Dummy {f00=0x001b, f01=0x8000, f02=»
0x037f40…037f46 00 00 00 00 00 00 ┆ ┆
0x037f46…0380da Dummy {f00=0x001b, f01=0x8000, f02=»
0x0380da…0380e0 00 00 00 00 00 00 ┆ ┆
0x0380e0…038274 (0, 70) Dummy {f00=0x001b, f01=0x0190, f02=» 0 H IDENT WD:FIL W,REL=2.3,850901,870155940230 WD:FIL S:BUFF S:FRSP 8 S:BUFF Z S:FRSP n WD:FIL S:FORD * & D A A ` , ( T ( _ P X _ 8
0x038274…03827a 00 00 00 00 00 00 ┆ ┆
0x03827a…03840e Dummy {f00=0x001b, f01=0x0190, f02=»PAD W:DISC * & y [ T R P WP:SET L , ( R Q T W T U Z ^ , ( P " T T P T U , ( W P Q W R Q Z Z , ( , P Z
0x03840e…038414 00 00 00 00 00 00 ┆ ┆
0x038414…0385a8 Dummy {f00=0x001b, f01=0x0190, f02=» A p , ( A @ W P L M QUEND @ , ( _! @ I A U W W P WP:BPO , ( { W W P Z P , ( Q T B [ Z , ( C Z ,
0x0385a8…0385ae 00 00 00 00 00 00 ┆ ┆
0x0385ae…038742 Dummy {f00=0x001b, f01=0x4112, f02=» a W B M M 3 " " H D ! !T 3P TR R P R Q T W T T P W W R Q 8 H D ! P T T` !T -T& 1P SW WPf sWJ wW {W W P T PV P( ( $ P P W W P P W W 8
0x038742…038748 00 00 00 00 00 00 ┆ ┆
0x038748…0388dc Dummy {f00=0x001b, f01=0x8000, f02=»
0x0388dc…0388e0 00 00 00 00 ┆ ┆
0x0388e0…0388e2 00 00 ┆ ┆
0x0388e2…038a76 Dummy {f00=0x001b, f01=0x0190, f02=» > @ IDENT W:INIT W,REL=2.3,850901,870155940230 F B W:INIT S:GTAB W:ICFC W:DYFC W:CUMO W:BZFC W:ECHO W:KTB1 F F B W:KT1V W:KTB2 W:KTB3 W:KTB4 W:KTB5 W:KTB6 W:SM01 W:SM02 F B W:SM03 W:SM04 W:SM05 W:SM5C W:SM5S W:S
0x038a76…038a7c 00 00 00 00 00 00 ┆ ┆
0x038a7c…038c10 Dummy {f00=0x001b, f01=0x0190, f02=» W:NUMP W:UFTB n S:GTAB W:WDSP , W:DSPA > W:BZFC R W:DYFC f W:ICFC z W:CUMO W:ECHO , ( @ AS ( OXP ** W:KTB1 " W:KT1V 4
0x038c10…038c16 00 00 00 00 00 00 ┆ ┆
0x038c16…038daa Dummy {f00=0x001b, f01=0x0190, f02=» W:KTB6 , ( ? W:SM01 ` B W:SM02 r V , ( _ MANDATORY FIELD DIGITS OR j W:SM03 W:SM04 W:SM05 , ( CHAR.S MISSING F: S: WSM BA
0x038daa…038db0 00 00 00 00 00 00 ┆ ┆
0x038db0…038f44 (0, 71) Dummy {f00=0x001b, f01=0x0190, f02=»FIL W:FHCA B1 S:POOL J B S:POLA L V S:FILT N j S:POLF P ~ S:FORD R WSMTAB T W:OPEN W:ATCH W:RCIV W:MSG W:SEN
0x038f44…038f4a 00 00 00 00 00 00 ┆ ┆
0x038f4a…0390de Dummy {f00=0x001b, f01=0x0190, f02=»R W:CODE W:FID W:GTPM , W:VALA n > W:VEVA R , ( _ d W:STMT p W:V000 W:V002 W:V004 W:V006 W:V008 W:V
0x0390de…0390e0 00 00 ┆ ┆
0x0390e0…0390e4 00 00 00 00 ┆ ┆
0x0390e4…039278 Dummy {f00=0x001b, f01=0x0190, f02=»:V014 W:V016 W:V018 W:V01A 2 W:V01C D W:CMP V , ( 0 2 4 6 8 : < > f W:OPER W:OP0E W:OP0F W:OP10 W:OP11 W:OP12 W
0x039278…03927e 00 00 00 00 00 00 ┆ ┆
0x03927e…039412 Dummy {f00=0x001b, f01=0x0190, f02=» W:OP18 W:OP19 W:OP1A " W:OP1B 4 W:OP1C F W:OP1D X , ( P R T V X Z ^ j W:OP1E W:OP1F W:OP20 W:OP21 W:EXP5 W:UFTB
0x039412…039418 00 00 00 00 00 00 ┆ ┆
0x039418…0395ac Dummy {f00=0x001b, f01=0x0190, f02=» W:INIT , ( l FWT @ P , ( W n W > W z @ W L , ( W | d W : W W W | , ( W d W < 5 U U , ( ? d U U dP U U
0x0395ac…0395b2 00 00 00 00 00 00 ┆ ┆
0x0395b2…039746 Dummy {f00=0x001b, f01=0x4140, f02=» l , ( @ @ B P R 2( _H @ V , ( W A T W W < , ( V W W W W W W l W:STRT n H D ! a s 2 T P SP eP P R V
0x039746…03974c 00 00 00 00 00 00 ┆ ┆
0x03974c…0398e0 Dummy {f00=0x001b, f01=0x8000, f02=»
0x0398e0…0398e6 00 00 00 00 00 00 ┆ ┆
0x0398e6…039a7a Dummy {f00=0x001b, f01=0x8000, f02=»
0x039a7a…039a80 00 00 00 00 00 00 ┆ ┆
0x039a80…039c14 (0, 72) Dummy {f00=0x001c, f01=0x0190, f02=» 0 H IDENT WP:POL W,REL=2.3,850901,870155940230 6 2 WP:GPO WP:RPO WP:OPO WP:BPO WP:PUT WP:LUT 8 WP:RPO r WP:OPO S:POLF , ( W R _ & , ( <H P < T W
0x039c14…039c1a 00 00 00 00 00 00 ┆ ┆
0x039c1a…039dae Dummy {f00=0x001c, f01=0x0190, f02=» 4<HT _ R S:POOL , ( <A_ <A <a ^ <h 5 P ;H 2 , ( ' T P X b WP:LUT QUEST , ( _* : C W C [ : @ WP:PUT , (
0x039dae…039db4 00 00 00 00 00 00 ┆ ┆
0x039db4…039f48 Dummy {f00=0x001c, f01=0x0190, f02=»T A W @ | , ( K A W Q T :H S:FILT J , ( g & T @ P WD:CLE WP:BPO , ( Q W [ : B , ( @ :h :H
0x039f48…039f4e 00 00 00 00 00 00 ┆ ┆
0x039f4e…03a0e2 Dummy {f00=0x001c, f01=0x4030, f02=»W ;T AW QW W r @ , T :H S:FILT J , ( g & T @ P WD:CLE WP:BPO , ( Q W [ : B , ( @ :h :H
0x03a0e2…03a0e8 00 00 00 00 00 00 ┆ ┆
0x03a0e8…03a27c Dummy {f00=0x001c, f01=0x8000, f02=»
0x03a27c…03a280 00 00 00 00 ┆ ┆
0x03a280…03a282 00 00 ┆ ┆
0x03a282…03a416 Dummy {f00=0x001c, f01=0x018e, f02=» 0 H IDENT W:EPIC W,REL=2.3,850901,870155940230 W:EPIC W:EDEC W:PEKO 8 , ( $*#+-B.,9Z Z W:EDEC & , ( ! ;K?K ;A?A V J W:WCHR W:EPIC R , ( A V >h
0x03a416…03a41c 00 00 00 00 00 00 ┆ ┆
0x03a41c…03a5b0 Dummy {f00=0x001c, f01=0x0190, f02=» , ( >AV (& , ( P _ ; [ 8 W:PIX h W:SDFC x , ( R R & Z W:LOAD , ( @ Z , ( R
0x03a5b0…03a5b6 00 00 00 00 00 00 ┆ ┆
0x03a5b6…03a74a Dummy {f00=0x001c, f01=0x0190, f02=» s * P $ P # T W , ( T [ _ X W Z , , ( Xd W P ] , ( P !+ -W ( !0 T T , ( X N W [ ! T _ , ( z !++P !--T Z
0x03a74a…03a750 00 00 00 00 00 00 ┆ ┆
0x03a750…03a8e4 (0, 73) Dummy {f00=0x001c, f01=0x018e, f02=» !99Q R | , ( <P P < -_ _@ [ , ( R _ L W:PEKO | : : # : H D ! f ! f # V % " 9V AV q uVP yP T H D !4 R
0x03a8e4…03a8ea 00 00 00 00 00 00 ┆ ┆
0x03a8ea…03aa7e Dummy {f00=0x001c, f01=0x405e, f02=» J < 8 3T APl OT YP _P cW sP: {R2 Q, R P P R H@ Z R _ L W:PEKO | : : # : H D ! f ! f # V % " 9V AV q uVP yP T H D !4 R
0x03aa7e…03aa80 00 00 ┆ ┆
0x03aa80…03aa84 00 00 00 00 ┆ ┆
0x03aa84…03ac18 Dummy {f00=0x001c, f01=0x0190, f02=» 0 H IDENT W:BBUG W,REL=2.3,850901,870155940230 W:BBUG 8 , ( LE J , ( ! T LET GOTOIF IF ON CALLSECTAT z , ( A TRSTOPEXITERR WARNREM EMPT , ( a NEXT LINE TRUE NEXT LINE ,
0x03ac18…03ac1e 00 00 00 00 00 00 ┆ ┆
0x03ac1e…03adb2 Dummy {f00=0x001c, f01=0x0190, f02=»S j W:BBUG , ( CLEAR/OV/CAN V ! W:SWA0 N , ( Z & D ) P ` W:COPY , ( 1U 1 Z " W:BIAS , ( = 5 Y ' / '
0x03adb2…03adb8 00 00 00 00 00 00 ┆ ┆
0x03adb8…03af4c Dummy {f00=0x001c, f01=0x018e, f02=» & R _ & t * & P 1U 1 W:TDY1 B W:COF3 T W:WMSG f * & V x , ( W V V v | W , ( W z C C ( W V , (
0x03af4c…03af52 00 00 00 00 00 00 ┆ ┆
0x03af52…03b0e6 Dummy {f00=0x001c, f01=0x0190, f02=» f , ( @ : < B , ( |T V % W : 8 , ( X _ X _ _ _ V _. ; h W:NMSG , ( @ [ h [ Z : i Z : H D !
0x03b0e6…03b0ec 00 00 00 00 00 00 ┆ ┆
0x03b0ec…03b280 Dummy {f00=0x001c, f01=0x4026, f02=» T W @ " B , ( |T V % W : 8 , ( X _ X _ _ _ V _. ; h W:NMSG , ( @ [ h [ Z : i Z : H D !
0x03b280…03b286 00 00 00 00 00 00 ┆ ┆
0x03b286…03b41a Dummy {f00=0x001c, f01=0x8000, f02=»
0x03b41a…03b420 00 00 00 00 00 00 ┆ ┆
0x03b420…03b5b4 (0, 74) Dummy {f00=0x001c, f01=0x7812, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x03b5b4…03b5ba 30 30 30 30 30 30 ┆000000┆
0x03b5ba…03b74e Dummy {f00=0x001c, f01=0x4038, f02=»O OLA QUEND W:SWPI W:FWPI S:FILT WD:CLE WP:BPO ^ nW:SWPS 040785 W:SWPI S:POLF W:SWPS S:GSUM W:BFLG W:FWPI W:FWPS WP:POL 040785
0x03b74e…03b754 00 00 00 00 00 00 ┆ ┆
0x03b754…03b8e8 Dummy {f00=0x001c, f01=0x0190, f02=» W:SWPS W:FWPS WP:LUT j QUEST WP:PUT v S:POLA QUEND W:SWPI W:FWPI S:FILT WD:CLE WP:BPO ^ n SWPS 220885 W:SWPI S:POLF W:SWPS S:GSUM W:BFLG W:FWPI W:FWPS WP:POL 020985
0x03b8e8…03b8ee 00 00 00 00 00 00 ┆ ┆
0x03b8ee…03ba82 Dummy {f00=0x001c, f01=0x0190, f02=» WP:SET WD:COP S:POOL WP:PAE 8 S:POLA S:POLF WP:PAD N S:FILT WD:CMP QUEST QUEND : :POL ! 250685 WP:RPO WP:OPO WP:GPO v S:GSUM W:FWPS WP:LUT Z QUEST WP:PUT f S:POLA QUEND
0x03ba82…03ba88 00 00 00 00 00 00 ┆ ┆
0x03ba88…03bc1c Dummy {f00=0x001c, f01=0x0190, f02=» W:DISC 020985 W:DISC S:BUFF WD:ORW WD:CHN WP:GPO WD:COP S:POOL S:FRSP WD:GFR WP:PAD W:POOL 020985 QUEST QUEND
0x03bc1c…03bc20 00 00 00 00 ┆ ┆
0x03bc20…03bc22 00 00 ┆ ┆
0x03bc22…03bdb6 Dummy {f00=0x001c, f01=0x0190, f02=»01A W:V01C W:CMP W:OPER W:OP0E W:OP0F W:OP10 W:OP11 W:OP12 W:OP13 W:OP14 W:OP15 W:OP16 W:OP17 W:OP18 W:OP19 W:OP1A W:OP1B W:OP1C W:OP1D W:OP1E W:OP1F W:OP20 W:OP21 W:EXP5 W:UFTB W:USR
0x03bdb6…03bdbc 00 00 00 00 00 00 ┆ ┆
0x03bdbc…03bf50 Dummy {f00=0x001c, f01=0x0190, f02=» W:SM5F WD:FIL W:FHCA S:POOL J S:POLA L S:FILT N S:POLF P S:FORD R WSMTAB T W:OPEN W:ATCH W:RCIV W:MSG W:SEND W:PRNT W:CLOS W:SAVE W:DLET W:FATR W:CODE W:FID W:GTPM W:VALA n W:VEVA W:STMT p
0x03bf50…03bf56 00 00 00 00 00 00 ┆ ┆
0x03bf56…03c0ea Dummy {f00=0x001c, f01=0x0190, f02=»PAD W:DISC WP:SET QUEST S:POLA QUEND WP:BPO 8 W:INIT 010985 S:GTAB W:WDSP W:DSPA W:BZFC W:DYFC W:ICFC W:CUMO W:ECHO W:KTB1 " W:KT1V 4 W:KTB2
0x03c0ea…03c0f0 00 00 00 00 00 00 ┆ ┆
0x03c0f0…03c284 (0, 75) Dummy {f00=0x001c, f01=0x0190, f02=» :FIL 110685 S:BUFF S:FRSP WD:FIL S:POLF W:FWPS S:FORD WD:ACT J S:FILT WD:COP WP:PAD W:DISC WP:SET QUEST S:POLA QUEND WP:BPO b hWP:FIL 020985 WP:FIL S:FORD S:FILT WD:CMP
0x03c284…03c28a 00 00 00 00 00 00 ┆ ┆
0x03c28a…03c41e Dummy {f00=0x001c, f01=0x0190, f02=» W:V012 W:V014 W:V016 W:V018 W:V01A W:V01C W:CMP W:OPER . W:OP0E W:OP0F W:OP10 W:OP11 W:OP12 W:OP13 W:OP14 W:OP15 W:OP16 W:OP17 W:OP18 W:OP19 W:OP1A W:OP1B W:OP1C W:OP1D W:OP1E W:OP1F W:O
0x03c41e…03c420 00 00 ┆ ┆
0x03c420…03c424 00 00 00 00 ┆ ┆
0x03c424…03c5b8 Dummy {f00=0x001c, f01=0x0190, f02=»:UN1 W:UN2 W:UN3 W:UN4 W:UN5 W:UN6 W:UN7 WD:FIL W:FHCA S:POLA S:FILT S:POLF S:FORD WSMTAB W:OPEN W:ATCH W:RCIV W:MSG W:SEND W:PRNT W:CLOS W:SAVE W:DLET W:FATR W:CODE W:FID
0x03c5b8…03c5be 00 00 00 00 00 00 ┆ ┆
0x03c5be…03c752 Dummy {f00=0x001c, f01=0x0190, f02=»:FPOS W:SCWR W:WCHR INIT 090685 W:POLS W:UNIT S:GTAB S:GSUM W:WDSP W:DSPA W:BZFC W:DYFC W:ICFC W:CUMO W:ECHO W:KTB1 " W:KT1V 4 W:KTB2 : W:KTB3 L W:KTB4 T W:KTB5 X
0x03c752…03c758 00 00 00 00 00 00 ┆ ┆
0x03c758…03c8ec Dummy {f00=0x001c, f01=0x0190, f02=»0985 W:ESCR W:WDSP W:GSUS W:WSCR T W:CUOF W:SBGD W:GSTD W:DSTD W:TFPT W:ELIN W:WSEC W:PRDS W:PREL W:COF3 x W:WSEC 020985 W:WSEC W:PRDS W:PREL SECERR * W:PEKO W:PLIN W:WLIN W
0x03c8ec…03c8f2 00 00 00 00 00 00 ┆ ┆
0x03c8f2…03ca86 Dummy {f00=0x001c, f01=0x0190, f02=»C W:SM5S W:DFCI W:SM5F W:SM05 W:BUZ2 W:IMES W:RCIE f W:VWE 020985 W:V016 W:V018 W:VEVB W:SWA0 W:LOAD W:BUZ1 W:EDEC W:IWA1 W:EXP2 W:APAC W:WAOC 050985 W:GWAR W:GW2
0x03ca86…03ca8c 00 00 00 00 00 00 ┆ ┆
0x03ca8c…03cc20 Dummy {f00=0x001c, f01=0x0190, f02=»L W:COPY @ ^W:SYS 020985 W:OP1C W:GWA1 W:RWA1 W:BIAS W:IWA1 W:EXP5 0 d SWPS 240685 W:SWPI S:POLF W:SWPS S:GSUM W:FWPI p W:FWPS ~ W:VEVA 020985 W:VEVA W:O
0x03cc20…03cc26 00 00 00 00 00 00 ┆ ┆
0x03cc26…03cdba Dummy {f00=0x001c, f01=0x0190, f02=»:IWA1 W:COPY W:EXP5 ~ W:STD 020985 W:TSTD W:GSTD W:DSTD j W:IDFD W:DFCI W:ODFC W:COPY W:SSTB W:DFCP 4 W:DFDB Z t @W:STOP 020985 W:V012 W:FDDA W:VEVB tW:STRT
0x03cdba…03cdc0 00 00 00 00 00 00 ┆ ┆
0x03cdc0…03cf54 (0, 76) Dummy {f00=0x001d, f01=0x0190, f02=»85 W:V00E W:EXPR W:GWAR W:PRDN W:VEVB : W:SEND 020985 W:SEND W:DFCI W:FDDA W:COF3 W:END W:ENDR W:SKIP W:COPY W:TFPT W:CFLD W:BLOC W:WFLD ^W:SGN 020985 W:OP19 W
0x03cf54…03cf5a 00 00 00 00 00 00 ┆ ┆
0x03cf5a…03d0ee Dummy {f00=0x001d, f01=0x0190, f02=» W:PIX W:LOAD W:FSIM & W:DFCI W:CHLI b W:ROPS 020985 W:CFA W:PIB W:EIB v W:TSTP W:TSTO W:TINP W:TMOD W:TCHK . W:FPOS X W:CFII W:FDDA W:TFPT ,W:ROUN 020985 W:ROUN
0x03d0ee…03d0f4 00 00 00 00 00 00 ┆ ┆
0x03d0f4…03d288 Dummy {f00=0x001d, f01=0x0190, f02=»:WCHR W:SCWR W:KLC W:ROPK 020985 W:ROPK W:TSTP W:BLOC W:CFA W:WFLD W:KLC t W:OMES W:AMES W:APAC W:ODFC W:PRDS W:FDDA W:DFCP W:COPY W:PIB W:PREL W:FUSE W:GSUS W:DYFC W:KBL2 W:C
0x03d288…03d28e 00 00 00 00 00 00 ┆ ┆
0x03d28e…03d422 Dummy {f00=0x001d, f01=0x0190, f02=» W:ROP W:TFPT W:CWCL W:WFLD W:TSTP W:CFII W:OMES W:CFA W:ECHO W:FPOS W:TINP W:EPIC W:WDOT W:PIB W:TSTO W:BLOE W:ADIN W:KTB2 W:NOIN W:ROPK W:BLOC W:TCHK W:TMOD W:SM01 W:SM02 W:VALA W:DFC
0x03d422…03d428 00 00 00 00 00 00 ┆ ┆
0x03d428…03d5bc Dummy {f00=0x001d, f01=0x0190, f02=» W:FDDA W:DFCI W:PRES W:LPOL W:CRC1 W:PNXT W:PRLT W:TUP W:TDWN W:CHLI W:FSIM W:TSTP W:ODFC W:EVSE @W:REM 020985 W:V01A W:VEVB W:LOAD W:RMRY 020985 W:RMRY W:CFA W:E
0x03d5bc…03d5c0 00 00 00 00 ┆ ┆
0x03d5c0…03d5c2 00 00 ┆ ┆
0x03d5c2…03d756 Dummy {f00=0x001d, f01=0x0190, f02=» W:RWA2 W:BIAS W:IWA1 W:EXP5 Z W:PRNT 020985 W:PRNT W:ADPR W:EJEC W:PRDS W:PLIN W:PREL W:PDYN W:WSEC W:CRC2 W:ENDR bW:PRUT 020985 W:ADPR W:EJEC W:PLIN . W:COPY W:PREL
0x03d756…03d75c 00 00 00 00 00 00 ┆ ┆
0x03d75c…03d8f0 Dummy {f00=0x001d, f01=0x0190, f02=»020985 W:PDYN W:PRDS SECERR W:PEKO W:DFCI W:ODFC W:PNXT W:PLIN W:WCHR W:EDEC W:EPIC W:PREL . W:PFIF 020985 W:LPOL W:PNXT W:PRLT * W:PREL . W:PRSL 6 W:PRES < W:PWRT N W:PDLT R
0x03d8f0…03d8f6 00 00 00 00 00 00 ┆ ┆
0x03d8f6…03da8a Dummy {f00=0x001d, f01=0x0190, f02=» W:EXP5 ~W:NUST 020985 W:OP10 W:OP1E W:GWA1 W:EVOF W:COPY W:RWA1 W:IWA1 W:CPSS W:EXP5 hW:ONTO 020985 W:V00A W:EXPR W:GWA1 W:PDEC W:ASBI W:LOAD W:VEVB J W:OPEN
0x03da8a…03da90 00 00 00 00 00 00 ┆ ┆
0x03da90…03dc24 (0, 77) Dummy {f00=0x001d, f01=0x0190, f02=» W:TFPT W:WFLD W:VEVB ,W:LKMH 020985 W:LKMH 6W:LOAD 020985 W:LOAD W:PNXT . W:MSG 020985 W:MSG W:BUZ1 W:NMES W:NMSG W:PEKO W:EDEC W:COF3 W:WMSG W:BLOC W:END
0x03dc24…03dc2a 00 00 00 00 00 00 ┆ ┆
0x03dc2a…03ddbe Dummy {f00=0x001d, f01=0x0190, f02=» W:PDEC W:RWA1 W:IWA1 W:COPY W:EXP5 R W:KBIN y 020985 W:NOIN W:ADIN & W:TFPT W:WDSP W:KLC W:BLOC W:CFA W:WFLD W:CRC2 W:RCIE ^W:LEN { 020985 W:OP1D W:GWA1 W:RWA1 W:BIAS W:I
0x03ddbe…03ddc0 00 00 ┆ ┆
0x03ddc0…03ddc4 00 00 00 00 ┆ ┆
0x03ddc4…03df58 Dummy {f00=0x001d, f01=0x0190, f02=» 020985 W:GDFT W:PIX " 6W:GNPO s 020985 W:GNPO W:PNXT LW:GOTO t 020985 W:V004 W:V005 W:LOAD W:VEVB JW:GTPM u 020985 W:GTPM W:FDDA W:TSTO W:ENDR Z VW:IF v
0x03df58…03df5e 00 00 00 00 00 00 ┆ ┆
0x03df5e…03e0f2 Dummy {f00=0x001d, f01=0x0190, f02=»:EVWW W:OPER W:EXP5 tW:FATR k 020985 W:FATR W:DFCI W:FDDA W:COF3 W:ENDR W:CTFA W:TFPT W:CFLD RW:FDDA m 020985 W:FDDA W:PNXT W:GDFT W:GNPO W:PIX PW:FID o 020985
0x03e0f2…03e0f8 00 00 00 00 00 00 ┆ ┆
0x03e0f8…03e28c Dummy {f00=0x001d, f01=0x0190, f02=» W:WMSG V W:WMES ^ W:CFA tW:EPIC 020985 W:EDEC & W:WCHR W:EPIC R W:ECHO W:PIX W:SDFC W:LOAD W:PEKO W:EQU f 020985 TW:EXIT g 020985 W:V014 W:EXPR W:GWA1 W:ASBI W
0x03e28c…03e292 00 00 00 00 00 00 ┆ ┆
0x03e292…03e426 Dummy {f00=0x001d, f01=0x0190, f02=» W:CSSU W:TDY1 W:TDY2 W:BUZ1 W:BUZ2 W:BZFC W:KBLK N W:KBL2 ` W:SBGD j W:BLOE W:BLOC W:CUOF W:COF3 W:COF2 W:CUON W:CUMO W:WLIN W:SCWR W:WCHR W:WDOT > W:PEKO W:EDEC W:WSPA
0x03e426…03e42c 00 00 00 00 00 00 ┆ ┆
0x03e42c…03e5c0 Dummy {f00=0x001d, f01=0x0190, f02=»0985 W:DFCI W:PIX W:ODFC j W:PNXT W:SDFC 4 W:DIV T 020985 W:OP15 W:EVDZ W:IWA1 W:AC14 W:GWA1 W:ROUN W:AC13 W:RWA2 W:EXP5 W:EVOF W:IFRE W:COPY W:CPSS x pW:DLET X 020985
0x03e5c0…03e5c6 00 00 00 00 00 00 ┆ ┆
0x03e5c6…03e75a Dummy {f00=0x001d, f01=0x0190, f02=»XP5 W:CPNA W:BSGN W:CNID W:CODE H 020985 W:PRDD W:PRDF W:PRDS W:CODE W:PNXT W:PREL W:RC00 W:RC97 W:ENDR ^W:CONC J 020985 W:OP0E W:GWA2 W:RWA2 W:IWA1 W:CPSS W:EXP5
0x03e75a…03e760 00 00 00 00 00 00 ┆ ┆
0x03e760…03e8f4 (0, 78) Dummy {f00=0x001d, f01=0x0190, f02=» W:V00C W:LOAD W:EXPR W:UFTB W:VEVB 4 W:CDV B 020985 MMDDCK DDMMCK CDV10 CDV110 CDV111 W:OP1F W:OP20 W:GWA2 W:ASBI W:RWA2 W:IWA1 W:EXP5 X jW:CLCK D 020985 W:OP1A W:O
0x03e8f4…03e8fa 00 00 00 00 00 00 ┆ ┆
0x03e8fa…03ea8e Dummy {f00=0x001d, f01=0x0190, f02=» W:KT1V W:KBLK W:ENDR W:ERPF W:PREL W:ATTR 9 020985 W:V010 W:CFA W:LOAD W:FDDA W:CTFA W:VEVB J rW:BBUG 020985 W:BBUG W:SWA0 W:COPY W:BIAS W:TDY1 W:COF3 W:WMSG W:NMSG
0x03ea8e…03ea94 00 00 00 00 00 00 ┆ ┆
0x03ea94…03ec28 Dummy {f00=0x001d, f01=0x0190, f02=»K DDMMCK 2 x W:ADS ' 020985 W:OP11 W:EXP5 W:OP12 W:OP13 W:OP14 W:EVOF W:AC13 6 W:AC14 6 W:GWA2 W:CPNA W:BSGN W:CNID W:RWA2 W:NPAC W:IWA1 W:ATCH + 020985 W:ATCH W:S
0x03ec28…03ec2e 00 00 00 00 00 00 ┆ ┆
0x03ec2e…03edc2 Dummy {f00=0x001d, f01=0x0190, f02=» 020985 WD:CHN S:BUFF WD:ORW S:FRSP WD:GFR WD:CLE WD:CMP WD:COP WD:RFR J :POL ! 100685 WP:RPO WP:OPO WP:GPO v S:GSUM W:FWPS WP:LUT @ QUEST WP:PUT L S:POLA QUEND W:FWPI S:F
0x03edc2…03edc8 00 00 00 00 00 00 ┆ ┆
0x03edc8…03ef5c Dummy {f00=0x001d, f01=0x0190, f02=»ILT WD:COP WP:PAD W:DISC WP:SET QUEST S:POLA QUEND WP:BPO F | DISC 090685 W:DISC S:BUFF WD:ORW WD:CHN WP:GPO WD:COP S:FRSP WD:GFR WP:PAD R TWD:ORW 020985 WD:ORW S:FILT
0x03ef5c…03ef60 00 00 00 00 ┆ ┆
0x03ef60…03ef62 00 00 ┆ ┆
0x03ef62…03f0f6 Dummy {f00=0x001d, f01=0x0190, f02=»T WP:FIL S:FILT S:POLA WP:GPO WP:SET :ADM 090685 WP:SET WD:COP WP:PAE T S:POLA S:POLF WP:PAD l S:FILT WD:CMP QUEST W:SWPI QUEND | ^ :FIL 080685 WP:FIL S:FORD S:FILT
0x03f0f6…03f0fc 00 00 00 00 00 00 ┆ ┆
0x03f0fc…03f290 Dummy {f00=0x001d, f01=0x0190, f02=» PWRITE 020985 S:POOL R S:POLA T S:FILT V S:POLF X S:FORD Z PWRITE I:EVA0 WD:COP PSEARC POPEN PDLETE PREAD PCLOSE W:POOL WD:CLE QUEST QUEND I:RT1 WUFIL T WD:FIL DWD:BUF 0209
0x03f290…03f296 00 00 00 00 00 00 ┆ ┆
0x03f296…03f42a Dummy {f00=0x001d, f01=0x000c, f02=»080685 &
0x03f42a…03f430 00 00 00 00 00 00 ┆ ┆
0x03f430…03f5c4 (0, 79) Dummy {f00=0x001d, f01=0x0000, f02=»
0x03f5c4…03f5ca 00 00 00 00 00 00 ┆ ┆
0x03f5ca…03f75e Dummy {f00=0x001d, f01=0x0006, f02=»
0x03f75e…03f760 00 00 ┆ ┆
0x03f760…03f764 00 00 00 00 ┆ ┆
0x03f764…03f8f8 Dummy {f00=0x001d, f01=0x0190, f02=» H PIDENT: USINFO DATE: 85-09-01 CONTENTS: INFORMATION ABOUT THIS USER P P PUSER: WSM:INTO X P************** n P $ P OBJECT OF WSM INTERPRETER. H P SOURCE OF WSM INTERPRETER MODULE W:INIT IN WHICH THE FOLLOWING > P CA
0x03f8f8…03f8fe 00 00 00 00 00 00 ┆ ┆
0x03f8fe…03fa92 Dummy {f00=0x001d, f01=0x0190, f02=»- SECRET ECHO CHARACTER P - KEY CODES P - KEY TABLES : P - SYSTEM MESSAGES T $ P - MEMORY BUFFER POOL SIZE t P ETC... 6 P MACROS ARE NOT USED IN W:INIT ON THIS USER. 2 P ACL-PROCEDURE WINT IS
0x03fa92…03fa98 00 00 00 00 00 00 ┆ ┆
0x03fa98…03fc2c Dummy {f00=0x001d, f01=0x0190, f02=» THE WSM INTERPRETER > P__________________________________________________________ P b P j . P 85-09-01 REL 2.3 -> ACTION-CENTRE r P 85-05-14 W:DYUT 0 P -CHANGED BLOCKING SEQUENCE. P 85-04-14
0x03fc2c…03fc32 00 00 00 00 00 00 ┆ ┆
0x03fc32…03fdc6 Dummy {f00=0x001d, f01=0x0190, f02=» OF SEPARATOR WHEN SIGN LAST. t P 85-02-04 W:EPIC & 8 P -SEPARATOR ADJUSTMENT IF FLOAT NUM. F P 85-02-02 W:EPIC , P -LEADING FLOATING SIGN. $ P 85-03-01 CRL OF REL 2.2 P 84-11-22
0x03fdc6…03fdcc 00 00 00 00 00 00 ┆ ┆
0x03fdcc…03ff60 Dummy {f00=0x001d, f01=0x0190, f02=»ODE | < P -CLEAR POOL CHAIN ADDRESS AT CODE ENTRY P 84-10-03 W:MSG L @ P -CORRECT STOP BLOCKING,WRONG REGISTER USE. j . P 84-10-02 PREPARATIONS FOR REL 2.2 " P W:INIT,W:EQU P P
0x03ff60…03ff66 00 00 00 00 00 00 ┆ ┆
0x03ff66…0400fa Dummy {f00=0x001d, f01=0x0190, f02=»... Z 0 P 84-10-01 W:MSG (SUBSTITUTES 830516) @ P - STOP BLOCKING BEFORE WRITING THE MESSAGE. @ 0 P W:RCIV (SUBSTITUTES 840320) B P - NO MORE INITIAL CURSOR-ON COMMAND => CURSOR H P
0x0400fa…040100 00 00 00 00 00 00 ┆ ┆
0x040100…040294 (0, 80) Dummy {f00=0x001e, f01=0x0190, f02=» NEG. SIGN WAS LOST IN "WSEND" IF NUMBER OF SIGNIFICANT ~ H P DIGITS IN THE SENDING FIELD WERE EQUAL TO NUMBER @ L P OF DIGITS IN THE RECEIVING FIELD. A DEFAULT PLUS-SIGN F P WAS ADDED IN W:COPY, WHIC
0x040294…04029a 00 00 00 00 00 00 ┆ ┆
0x04029a…04042e Dummy {f00=0x001e, f01=0x0190, f02=» 12.1 ---------********* ` P 0 P 84-03-20 W:RCIV (SUBSTITUTES 840220) ( J P - IF NO TARGET CAN BE FOUND FOR CR (CARRIAGE RETURN) F P AND TDOWN (TABULATION DOWN), THESE KEYS WILL BE @ P I
0x04042e…040434 00 00 00 00 00 00 ┆ ┆
0x040434…0405c8 Dummy {f00=0x001e, f01=0x0190, f02=» TURNOFF CURSOR WHEN DEBUGGING A l 2 P SECTION ON THE SYSTEM LINE. ( 0 P 84-02-20 W:RCIV (SUBSTITUTES 840125) ^ J P - FOR INPUT RETURN CODES MEANING "CONTINUE ACCORDING J P TO EOI-KEY" (RC=4, 7)
0x0405c8…0405ce 00 00 00 00 00 00 ┆ ┆
0x0405ce…040762 Dummy {f00=0x001e, f01=0x0190, f02=»ABULATION FORWARD". x < P 84-02-07 W:INIT (SUBSTITUTES 830925 & 840125...) D P - INITIALIZE SCREEN BACKGROUND TO BLACK FOR ALL B P OTHER VDU:S THAN 6391 (=VD82). CORRECTS THE B P PROBLEM WIT
0x040762…040768 00 00 00 00 00 00 ┆ ┆
0x040768…0408fc Dummy {f00=0x001e, f01=0x0190, f02=»" IS EXECUTED AND THE d F P BUFFER CONTAINS A FIELD NOT PRESENT IN CURRENT J P SECTION, A LOOP-FOREVER MIGHT OCCUR IF THE OPERATOR h @ P PRESSES THE KEYS "ALL" AND "TAB-FORWARD". 0 P
0x0408fc…040900 00 00 00 00 ┆ ┆
0x040900…040902 00 00 ┆ ┆
0x040902…040a96 Dummy {f00=0x001e, f01=0x0190, f02=»TY BYTE(-S) (X'00') AND WAS EQUAL TO THE LAST z , P TARGET POSITION(-S). 6 0 P 83-12-05 W:ATCH (SUBSTITUTES 830516) f > P - SET ON SCREEN BITS FOR 1-LINE DISPLAY. 2 P W:SEND (SUBSTITUTES (831006
0x040a96…040a9c 00 00 00 00 00 00 ┆ ┆
0x040a9c…040c30 Dummy {f00=0x001e, f01=0x0190, f02=» - 1. WHEN A SENDING FIELD IN A WSM-COPY CONSISTS OF ONLY N P A SIGN, IT IS SIMULATED TO HAVE ALSO AN ASCII ZERO, L J P I.E. HEX /2B30. THIS CHANGE CAUSES AN ARITHMETIC L P CALCUL
0x040c30…040c36 00 00 00 00 00 00 ┆ ┆
0x040c36…040dca Dummy {f00=0x001e, f01=0x0190, f02=» 2. ROUNDING NOW OCCURS WHEN FLOATING FIELDS ARE NOT ABLE R P TO HOLD ENOUGH NUMBER OF DECIMALS (EARLIER TRUNCATION). P P P 3. ROUNDING OF FIX/MAX-FIELDS NOW IN W:ROUN (SEE BELOW!). 0 P
0x040dca…040dd0 00 00 00 00 00 00 ┆ ┆
0x040dd0…040f64 (0, 81) Dummy {f00=0x001e, f01=0x0190, f02=» 2. ROUNDING IMPLEMENTED (W:ROUN INTERFACE). " P W:ROUN (NEW) : H P - GENERAL WSM ROUNDING MODULE CREATED (EARLIER ONLY ` H P OF NUMERIC FIELDS WITH FIXED OR MAXIMIZED NUMBER $ P
0x040f64…040f6a 00 00 00 00 00 00 ┆ ┆
0x040f6a…0410fe Dummy {f00=0x001e, f01=0x0190, f02=»XTENDED TO 4 SECONDS T 0 P 83-10-06 W:SEND (SUBSTITUTES 830516) L P - SENDING OF EDITED NUMERIC DATA CORRECTED (TFP USAGE). P 0 P W:ROPS (SUBSTITUTES 830516) L P - STOP WHEN AN ERROR IS DETECTED AN
0x0410fe…041100 00 00 ┆ ┆
0x041100…041104 00 00 00 00 ┆ ┆
0x041104…041298 Dummy {f00=0x001e, f01=0x0190, f02=» TO KEY INDEX IN WSM PBLOCK). t 0 P 83-09-25 W:INIT (SUBSTITUTES 830516) & H P - WHEN A WORK STATION IS "NOT OPERABLE" AS RESPONSE Z L P TO A BASIC READ FROM A WSM TASK, THIS IS DELAYED AND F P
0x041298…04129e 00 00 00 00 00 00 ┆ ┆
0x04129e…041432 Dummy {f00=0x001e, f01=0x0190, f02=» (SUBSTITUTES 830516) z J P - NO CHECKS (I.E. "MANDATORY", "MUST FILL", MANDATORY L P VALIDATION ETC.) WILL FROM NOW ON BE PERFORMED, WHEN l L P ANY OF THE KEYS "PRINT", "SECT" OR "FUNC" ARE PRESSED
0x041432…041438 00 00 00 00 00 00 ┆ ┆
0x041438…0415cc Dummy {f00=0x001e, f01=0x0190, f02=»). Z 0 P W:KBIN (SUBSTITUTES 830516) D P - A KEYBOARD TIME-OUT WILL NOW CAUSE REWRITE OF > D P CURRENT FIELD. EARLIER THE SCREEN AND MEMORY > P CONTENTS COULD DIFFER AFTER A TIME-OUT.
0x0415cc…0415d2 00 00 00 00 00 00 ┆ ┆
0x0415d2…041766 Dummy {f00=0x001e, f01=0x018e, f02=»ITH (OR T F P BUFFER CONTENTS OF) MORE THAN 62 FIELDS. SOLVES H P THE PROBLEM OF OVER-WRITTEN POOL UNITS/POINTERS. Z @ P 83-09-09 W:COPY W:PFIF (SUBSTITUTES 830516/830516) @ P - NO MORE LOA
0x041766…04176c 00 00 00 00 00 00 ┆ ┆
0x04176c…041900 Dummy {f00=0x001e, f01=0x40ba, f02=» N P 83-06-06 W:RCIV F P - CORRECTION OF STOPFIELD 0 FOR FIELD-LIST CASE. ( @ P 83-05-16 WSM INTERPRETER TRANSFERRED TO WSM 2.0 DISK r@ OPY W:PFIF (SUBSTITUTES 830516/830516) @ P - NO MORE LOA
0x041900…041906 00 00 00 00 00 00 ┆ ┆
0x041906…041a9a Dummy {f00=0x001e, f01=0x2008, f02=» 83-06-06 W:RCIV F P - CORRECTION OF STOPFIELD 0 FOR FIELD-LIST CASE. ( @ P 83-05-16 WSM INTERPRETER TRANSFERRED TO WSM 2.0 DISK r@ OPY W:PFIF (SUBSTITUTES 830516/830516) @ P - NO MORE LOA
0x041a9a…041aa0 00 00 00 00 00 00 ┆ ┆
0x041aa0…041c34 (0, 82) Dummy {f00=0x001e, f01=0x0000, f02=»
0x041c34…041c3a 00 00 00 00 00 00 ┆ ┆
0x041c3a…041dce Dummy {f00=0x001e, f01=0x0002, f02=»
0x041dce…041dd4 00 00 00 00 00 00 ┆ ┆
0x041dd4…041f68 Dummy {f00=0x001e, f01=0x410e, f02=» P%%PACEDI 0 P%%PACMOV USID=WSM:INTO,SCI=W:INIT,SCO=W:INIT 0 P%%PACMOV USID=WSM:INTO,SCI=W:INIT,SCO=WS:INI H " PMES INCLUDE ALL OBJECT MODULES | PASGT /D5,TYPE=OB PLIB PINC USRLIB,,WSM:INTO,/FF PKOM LIBR=WSMGEN PLEN @
0x041f68…041f6e 00 00 00 00 00 00 ┆ ┆
0x041f6e…042102 Dummy {f00=0x001e, f01=0x2008, f02=» CEDI 0 P%%PACMOV USID=WSM:INTO,SCI=W:INIT,SCO=W:INIT 0 P%%PACMOV USID=WSM:INTO,SCI=W:INIT,SCO=WS:INI H " PMES INCLUDE ALL OBJECT MODULES | PASGT /D5,TYPE=OB PLIB PINC USRLIB,,WSM:INTO,/FF PKOM LIBR=WSMGEN PLEN @
0x042102…042108 00 00 00 00 00 00 ┆ ┆
0x042108…04229c Dummy {f00=0x001e, f01=0x2020, f02=» -EXTENSION OF IC-ECB WITH CW2 TO MEET TOSS INCOMPATIBILITY WHEN DGH IS PRESENT,HOWEVER NOT USED... THIS USER 84-10-01 W:MSG (SUBSTITUTES 830516) REGISTER USE. OLLOWING - STOP BL
0x04229c…0422a0 00 00 00 00 ┆ ┆
0x0422a0…0422a2 00 00 ┆ ┆
0x0422a2…042436 Dummy {f00=0x001e, f01=0x2020, f02=» - NO MORE INITIAL CURSOR-ON COMMAND => CURSOR OMPATIBILITY WILL APPEAR ONLY IF KEYBOARD INPUT FIELD EXISTS. 84-04-25 W:SEND (SUBSTITUTES 831205) REGISTER USE. OLLOWING - NEG. SI
0x042436…04243c 00 00 00 00 00 00 ┆ ┆
0x04243c…0425d0 Dummy {f00=0x001e, f01=0x2020, f02=» OF DIGITS IN THE RECEIVING FIELD. A DEFAULT PLUS-SIGN TY WAS ADDED IN W:COPY, WHICH MEANS THE FIELD WAS . CONVERTED TO POSITIVE. 5) REGISTER USE. OLLOWING - NEG. SI
0x0425d0…0425d6 00 00 00 00 00 00 ┆ ┆
0x0425d6…04276a Dummy {f00=0x001e, f01=0x0d20, f02=» OF DIGITS IN THE RECEIVING FIELD. A DEFAULT PLUS-SIGN TY 84-03-20 W:RCIV (SUBSTITUTES 840220) MEANS THE FIELD WAS . - IF NO TARGET CAN BE FOUND FOR CR (CARRIAGE RETURN) AND TDO
0x04276a…042770 00 00 00 00 00 00 ┆ ┆
0x042770…042904 (0, 83) Dummy {f00=0x001e, f01=0x0000, f02=»
0x042904…04290a 00 00 00 00 00 00 ┆ ┆
0x04290a…042a9e Dummy {f00=0x001e, f01=0x0002, f02=»
0x042a9e…042aa0 00 00 ┆ ┆
0x042aa0…042aa4 00 00 00 00 ┆ ┆
0x042aa4…042c38 Dummy {f00=0x001e, f01=0x40ea, f02=» PASM SIZE=MAX POPT PROG=W:INIT,LIST=NO PLIB 8 PKOM LIBR=WSMGEN D PLEN PSCR /D5 h PINC WSMGEN,W:INIT x PTLKE SIZE=MAX . POPT MAP=YES,SLIB=NO,ULIB=WSMGEN,CATL=W:INT P:EOJ @
0x042c38…042c3e 00 00 00 00 00 00 ┆ ┆
0x042c3e…042dd2 Dummy {f00=0x001e, f01=0x2008, f02=» SIZE=MAX POPT PROG=W:INIT,LIST=NO PLIB 8 PKOM LIBR=WSMGEN D PLEN PSCR /D5 h PINC WSMGEN,W:INIT x PTLKE SIZE=MAX . POPT MAP=YES,SLIB=NO,ULIB=WSMGEN,CATL=W:INT P:EOJ @
0x042dd2…042dd8 00 00 00 00 00 00 ┆ ┆
0x042dd8…042f6c Dummy {f00=0x001e, f01=0x40a2, f02=»ENT STATEMENTS, THE DATE IS TAKEN FROM THE MACRO LIBRARY. 6 P - FRAMES ARE GENERATED FROM A FEW KEY WORDS. B P - HISTORY COMMENTS. |@ G MACRO PROCEDURES. : P WITHIN ASSEMBLER SOURCE, A LINE BEGINNING WITH $ : P IS A S
0x042f6c…042f72 00 00 00 00 00 00 ┆ ┆
0x042f72…043106 Dummy {f00=0x001e, f01=0x2008, f02=» EMENTS, THE DATE IS TAKEN FROM THE MACRO LIBRARY. 6 P - FRAMES ARE GENERATED FROM A FEW KEY WORDS. B P - HISTORY COMMENTS. |@ G MACRO PROCEDURES. : P WITHIN ASSEMBLER SOURCE, A LINE BEGINNING WITH $ : P IS A S
0x043106…04310c 00 00 00 00 00 00 ┆ ┆
0x04310c…0432a0 Dummy {f00=0x001e, f01=0x0190, f02=» A P @ S:POOL , , ( @ X C ( T ` =H > , ( B _F W T n S:FRSP WD:GFR , ( A C ( T , ( P J
0x0432a0…0432a6 00 00 00 00 00 00 ┆ ┆
0x0432a6…04343a Dummy {f00=0x001e, f01=0x0190, f02=» , ( K >H W K , ( g @ C ( J A B =H K 4 * & T @ T P @ d * & ` P >H , ( _ _l @ C ( , ( @ T
0x04343a…043440 00 00 00 00 00 00 ┆ ┆
0x043440…0435d4 (0, 84) Dummy {f00=0x001f, f01=0x0000, f02=»
0x0435d4…0435da 00 00 00 00 00 00 ┆ ┆
0x0435da…04376e Dummy {f00=0x001f, f01=0x0002, f02=»
0x04376e…043774 00 00 00 00 00 00 ┆ ┆
0x043774…043908 Dummy {f00=0x001f, f01=0x4096, f02=» P%%A72 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:INTO & PLIB V PKOM @LIBR.USRLIB b PLEN z PPEND @
0x043908…04390e 00 00 00 00 00 00 ┆ ┆
0x04390e…043aa2 Dummy {f00=0x001f, f01=0x2008, f02=» 2 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:INTO & PLIB V PKOM @LIBR.USRLIB b PLEN z PPEND @
0x043aa2…043aa8 00 00 00 00 00 00 ┆ ┆
0x043aa8…043c3c Dummy {f00=0x001f, f01=0x2020, f02=» -EXTENSION OF IC-ECB WITH CW2 TO MEET TOSS INCOMPATIBILITY WHEN DGH IS PRESENT,HOWEVER NOT USED... THIS USER 84-10-01 W:MSG (SUBSTITUTES 830516) REGISTER USE. OLLOWING - STOP BL
0x043c3c…043c40 00 00 00 00 ┆ ┆
0x043c40…043c42 00 00 ┆ ┆
0x043c42…043dd6 Dummy {f00=0x001f, f01=0x2020, f02=» - NO MORE INITIAL CURSOR-ON COMMAND => CURSOR OMPATIBILITY WILL APPEAR ONLY IF KEYBOARD INPUT FIELD EXISTS. 84-04-25 W:SEND (SUBSTITUTES 831205) REGISTER USE. OLLOWING - NEG. SI
0x043dd6…043ddc 00 00 00 00 00 00 ┆ ┆
0x043ddc…043f70 Dummy {f00=0x001f, f01=0x2020, f02=» OF DIGITS IN THE RECEIVING FIELD. A DEFAULT PLUS-SIGN TY WAS ADDED IN W:COPY, WHICH MEANS THE FIELD WAS . CONVERTED TO POSITIVE. 5) REGISTER USE. OLLOWING - NEG. SI
0x043f70…043f76 00 00 00 00 00 00 ┆ ┆
0x043f76…04410a Dummy {f00=0x001f, f01=0x0d20, f02=» OF DIGITS IN THE RECEIVING FIELD. A DEFAULT PLUS-SIGN TY 84-03-20 W:RCIV (SUBSTITUTES 840220) MEANS THE FIELD WAS . - IF NO TARGET CAN BE FOUND FOR CR (CARRIAGE RETURN) AND TDO
0x04410a…044110 00 00 00 00 00 00 ┆ ┆
0x044110…044db0 (1, 0) DirGranule ((1, 0)) {
0x044110…044db0 DirEnt {nam=»WSM:PR«, typ=»OC«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x044110…044db0 DirEnt {nam=»SYSMAC«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x03f0, f03=0x0000}
0x044110…044db0 DirEnt {nam=»SUMMAC«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0438, f03=0x0000}
0x044110…044db0 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0440, f03=0x0000}
0x044110…044db0 }
0x044db0…044dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x044dc0…044de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x044de0…044f74 (1, 1) Opaque[0x194]
0x044f74…044f7a 00 00 00 00 00 00 ┆ ┆
0x044f7a…04510e # DirEnt {nam=»SYSMAC«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x03f0, f03=0x0000}
0x044f7a…04510e IdxSect {
0x044f7a…04510e f00 = 0x001f // 0x44f7a @0x0
0x044f7a…04510e f01 = 0x0012 // 0x44f7c @0x2
0x044f7a…04510e gno = [ // 0x44f7e @0x4
0x044f7a…04510e [0x00]: C0x001f.0x2.0
0x044f7a…04510e [0x01]: C0x001f.0x3.0
0x044f7a…04510e [0x02]: C0x0020.0x0.0
0x044f7a…04510e [0x03]: C0x0020.0x1.0
0x044f7a…04510e [0x04]: C0x0020.0x2.0
0x044f7a…04510e [0x05]: C0x0020.0x3.0
0x044f7a…04510e [0x06]: C0x0021.0x0.0
0x044f7a…04510e [0x07]: C0x0021.0x1.0
0x044f7a…04510e [0x08]: C0x0021.0x2.0
0x044f7a…04510e ]
0x044f7a…04510e }
0x04510e…045114 00 00 00 00 00 00 ┆ ┆
0x045114…0452a8 Dummy {f00=0x001f, f01=0x0190, f02=» P IDENT SYSMAC PMACRO EQU " P$ MACRO EQU; 4 P EJECT L P Z P b P j P r , P**************************************** z , P** NOTE THAT THIS SYSMAC IS ONLY FOR: ** , P** WSM CREATOR AND UTILITIES ** ,
0x0452a8…0452ae 00 00 00 00 00 00 ┆ ┆
0x0452ae…045442 Dummy {f00=0x001f, f01=0x0190, f02=»** j P EJECT P** P** WSM FUNCTION CODES " P** @ P J PWOPEN EQU /0000 R PWATTCH EQU /0100 j PWRCIVE EQU /0200 P*UNPCK EQU - PWMSG EQU /0300 PWSEND EQU /0400 PWPRINT EQU /0500 PWCLOSE EQU /
0x045442…045448 00 00 00 00 00 00 ┆ ┆
0x045448…0455dc Dummy {f00=0x001f, f01=0x0190, f02=» P P** P** WSM SYSTEM PARAMETERS P** < P F 2 PTFP EQU 1 CONDITIONAL ASSEMBLY FOR TFP PACKAGE N PCPU EQU 857 P 2 PPOLSIZ EQU 248 SIZE OF POOL UNITS IN THE POOL 0 PPOLDIS EQU 6 USER DISPLACEMENT IN POOL-UNITS *
0x0455dc…0455e0 00 00 00 00 ┆ ┆
0x0455e0…0455e2 00 00 ┆ ┆
0x0455e2…045776 Dummy {f00=0x001f, f01=0x018e, f02=»TO W:INIT ** l P P** P** OPTIONAL DEVICES & P** B P L 8 PPRTDEV EQU 12 =12 IF PRINT DEVICE IN SYSTEM, ELSE =0 T < PINPDEV EQU 0 =12 IF OTHER INPUT DEVICE THAN KEYBOARD ... P ... IN SYSTEM, ELSE =0 P P** P**
0x045776…04577c 00 00 00 00 00 00 ┆ ┆
0x04577c…045910 Dummy {f00=0x001f, f01=0x0190, f02=» v P** P PECB:FC EQU 0 PECB:BA EQU 2 . PECB:RL EQU 4 B PECB:EL EQU 6 V PECB:RC EQU 8 j PECB:CW EQU 10 ~ P EJECT P P** * P** ORDERS TO THE POOL & FILE HANDLER P** P PPF:RD EQU /01 READ
0x045910…045916 00 00 00 00 00 00 ┆ ┆
0x045916…045aaa Dummy {f00=0x001f, f01=0x0190, f02=» | PPF:RLS EQU /20 RELEASE PPF:DLT EQU /40 DELETE & PPF:OPN EQU /80 OPEN D PNEXT EQU /0100 NEXT ` PPREV EQU /0200 PREVIOUS | PINDEX EQU /0400 BY INDEX PALL EQU /0800 ALL ON LRU QUE . PNOWAIT EQU /1000 USED FOR READ WITH NOWA
0x045aaa…045ab0 00 00 00 00 00 00 ┆ ┆
0x045ab0…045c44 (1, 2) Dummy {f00=0x001f, f01=0x0190, f02=»O BUFFER 1 z , PPF:BF2 EQU PF:BF1+2 ADDRESS TO BUFFER 2 $ PPF:TYP EQU PF:BF2+3 TYPE OF DATA B & PPF:NAM EQU PF:TYP+1 IDENTIFICATION j P** 6 P** THIS PART OF THE COM. AREA IS THE ECB P** ( PPF:ECB EQU PF:NAM+6 START OF THE ECB
0x045c44…045c4a 00 00 00 00 00 00 ┆ ┆
0x045c4a…045dde Dummy {f00=0x001f, f01=0x0190, f02=» l ( PPF:ELN EQU PF:RLN+2 EFFECTIVE LENGTH $ PPF:RET EQU PF:ELN+2 RETURN CODE 4 & PPF:CW1 EQU PF:RET+2 CONTROL WORD 1 & PPF:CW2 EQU PF:CW1+2 CONTROL WORD 2 P** : P** THIS PART OF THE COM. AREA IS FOR THE FPB P** & PPF:FIL
0x045dde…045de0 00 00 ┆ ┆
0x045de0…045de4 00 00 00 00 ┆ ┆
0x045de4…045f78 Dummy {f00=0x001f, f01=0x018e, f02=»RECNO 2 | PPF:END EQU PF:RN2+2 P EJECT , P** : & P** LAYOUT OF POOL-FREE-SPACE AREA D P** n . PPP:CON EQU 0 NO OF FREE UNITS IN THIS AREA x , PPP:LEN EQU PP:CON+2 LENGTH OF THIS AREA * PPP:NAM EQU PP:LEN+2 NAME OF THIS AREA 2 P
0x045f78…045f7e 00 00 00 00 00 00 ┆ ┆
0x045f7e…046112 Dummy {f00=0x001f, f01=0x0190, f02=» PDS:TYP EQU 0 TYPE = "FS" ( PDS:LK1 EQU DS:TYP+2 LINK FORWARD 1 $ ( PDS:LK2 EQU DS:LK1+2 - " - 2 P * PDS:NUM EQU DS:LK2+2 NUMBER OF RECORDS | . PDS:NOF EQU DS:NUM+2 NUMBER OF FREE RECORDS ( PDS:FI1 EQU DS:NOF+2 FIRST REL.RECNO * P
0x046112…046118 00 00 00 00 00 00 ┆ ┆
0x046118…0462ac Dummy {f00=0x001f, f01=0x0190, f02=» P PDS:RLN EQU 256 RECORD LENGTH P** 0 P** POOL-ADMINSTRATION DATA : P** ^ * PPA:TYP EQU 0 TYPE OF DATA IN THE UNIT h $ PPA:IDE EQU PA:TYP+1 NAME OF DATA $ PPA:FIL EQU PA:IDE+6 FILE NUMBER ( PPA:NUM EQU PA:FIL+1 NUMBER OF USER
0x0462ac…0462b2 00 00 00 00 00 00 ┆ ┆
0x0462b2…046446 Dummy {f00=0x001f, f01=0x0190, f02=» P** P** FILE-TABLE LAYOUT P** 0 PPT:FIL EQU 0 FILENAME : $ PPT:VOL EQU PT:FIL+8 VOLUME NAME X PPT:FC EQU PT:VOL+6 FILE CODE * PPT:CON EQU PT:FC+1 COMPULSURY COUNTER & PPT:OC EQU PT:CON+1 OPEN/CLOSE BYTE & PPT:ACT EQU P
0x046446…04644c 00 00 00 00 00 00 ┆ ┆
0x04644c…0465e0 Dummy {f00=0x001f, f01=0x0190, f02=»ORDER-DATA LAYOUT P** PPO:ORD EQU 0 ORDER $ $ PPO:TYP EQU PO:ORD+2 TYPE + NAME > , PPO:FIL EQU PO:TYP+7 FILE TABLE NO. (0-3) f * PPO:LNK EQU PO:FIL+1 LINK TO NEXT ORDER & PPO:LEN EQU 12 LENGTH OF ONE ORDER PPO:STA EQU 4 START OF ORDE
0x0465e0…0465e6 00 00 00 00 00 00 ┆ ┆
0x0465e6…04677a Dummy {f00=0x001f, f01=0x0190, f02=» P P** : P** KEYBOARD ECB AND PARAMETER BLOCK FOR ADVANCED READ P** T P ^ PKB:CW2 EQU ECB:CW+2 f . PKB:PBL EQU KB:CW2+2 PARAMETER BLOCK LENGTH > PKB:EKO EQU KB:PBL+1 ECHO CHARACTER (/00 => ORDINARY ECHO) & PKB:PW EQU KB:EKO+1
0x04677a…046780 00 00 00 00 00 00 ┆ ┆
0x046780…046914 (1, 3) Dummy {f00=0x0020, f01=0x018e, f02=»1 CURRENT # DECIMALS ~ & PKB:PL EQU KB:CND+1 PICTURE LENGTH 8 PKB:CNI EQU KB:PL+1 CURRENT # INTEGERS OR CHARACTERS F $ PKB:IL EQU KB:CNI+1 INPUT LENGTH ( PKB:POS EQU KB:IL+1 POSITION IN FIELD 2 PKB:PNT EQU KB:POS+1 DECIMAL POINT STATUS WORD
0x046914…04691a 00 00 00 00 00 00 ┆ ┆
0x04691a…046aae Dummy {f00=0x0020, f01=0x0190, f02=» P** P** WS:TCA P** WSM TASK CONTROL AREA P** B P L PTC:TID EQU 0 WSM TASK ID T . PTC:FC EQU TC:TID+2 PREVIOUS FUNCTION CODE t 4 PTC:SCR EQU TC:FC+1 BITS FOR WATTCH, WRCIVE ETC.: P BIT 0: P - DURING WRCIVE:
0x046aae…046ab4 00 00 00 00 00 00 ┆ ┆
0x046ab4…046c48 Dummy {f00=0x0020, f01=0x0190, f02=» - DURING WRCIVE: " P . = 1 IF NEGATIVE INPUT P BIT 2: @ P - DURING WRCIVE: R 2 P . = 1 IF FIELDLIST FIELD NOT IN SECTION n P BIT 3: P - DURING WRCIVE: $ P . = 1 IF PB BUFFER IS FULL P *******
0x046c48…046c4e 00 00 00 00 00 00 ┆ ┆
0x046c4e…046de2 Dummy {f00=0x0020, f01=0x0190, f02=»: ~ 0 P . = 1 IF WANTED SECTION IS BEFORE ... ( P . ATTACHED SECTION IN SST > * P BIT 6 = 1 IF WATTCH WITHOUT DISPLAY j , P BIT 7 =1 IF WANTED PAGE IS ON SCREEN P EJECT P & PTC:MSC EQU TC:FC+2 MISCELLANEOUS: P
0x046de2…046de8 00 00 00 00 00 00 ┆ ┆
0x046de8…046f7c Dummy {f00=0x0020, f01=0x0190, f02=»3: ( P - = 1 IF BASIC DEBUGGER IS ON P BIT 4: 6 0 P - =1 IF WMSG ON HLP LINE (2 MSG LINES) H P BIT 5: | $ P - =1 IF WMSG ON ERROR LINE P BIT 6: ( P - =1 IF ERROR MSG ON ERROR LINE P BIT 7: ( P
0x046f7c…046f80 00 00 00 00 ┆ ┆
0x046f80…046f82 00 00 ┆ ┆
0x046f82…047116 Dummy {f00=0x0020, f01=0x0190, f02=» P BIT 9: 2 P - = 1 IF CORRECTION AFTER ERROR HANDLING P BIT 10: L 4 P - = 1 IF LKM BLOCKING ON CURRENT SUBSCREEN ^ P . ( <=> CURSOR OFF ) P BIT 11: " P - = 1 IF BLACK BACKGROUND P ******* P B
0x047116…04711c 00 00 00 00 00 00 ┆ ┆
0x04711c…0472b0 Dummy {f00=0x0020, f01=0x0190, f02=»D P BIT 14: . P - = 1 IF PD85 ETC (ONE-LINE DISPLAYS) P BIT 15: N * P - = 1 IF AUTO SKIP/DUP FLAG IS ON ` P P EJECT . P** INFORMATION ABOUT TWO MESSAGELINES: ** P 8 PTC:MSG EQU TC:MSC+2 SEE W:MESS AND W:MESG
0x0472b0…0472b6 00 00 00 00 00 00 ┆ ┆
0x0472b6…04744a Dummy {f00=0x0020, f01=0x0190, f02=»2 CURRENT SCREEN/SUBSCREEN SIZE ~ . PTC:SUS EQU TC:SIZ+2 CURRENT SUBSCREEN NO. ( @ PTC:LIN EQU TC:SUS+2 1:ST FREE LINE ON CURR. SCREEN/SUBSCREEN Z ( P ... FOLLOWED BY 1:ST FREE LINE OF P ... 9 SUBSCREENS > PTC:FRD EQU TC:LIN+11 DISPL. TO BE
0x04744a…047450 00 00 00 00 00 00 ┆ ┆
0x047450…0475e4 (1, 4) Dummy {f00=0x0020, f01=0x0190, f02=» P * P** CURRENT FORMAT DEF INFORMATION: ** P : 8 PTC:FDC EQU TC:FRD+1 ADDR. TO FORMAT DEFINITION CODE B P ~ P** SST INFORMATION: ** P 8 PTC:SST EQU TC:FDC+2 0. ADDR. TO 1:ST BYTE AFTER SST * P 2. " " CURRENT SECTION I
0x0475e4…0475ea 00 00 00 00 00 00 ┆ ┆
0x0475ea…04777e Dummy {f00=0x0020, f01=0x0190, f02=»N MSG LINE t P P EJECT & P** CURRENT SECTION INFORMATION: ** ( P R 6 PTC:FSC EQU TC:SST+10 ADDR. TO FORMAT SECTION CODE Z 8 PTC:CFC EQU TC:FSC+2 " " CURRENT DYN. FIELD CODE . P " " " " " " (REL) 2 PTC:DFD
0x04777e…047780 00 00 ┆ ┆
0x047780…047784 00 00 00 00 ┆ ┆
0x047784…047918 Dummy {f00=0x0020, f01=0x0190, f02=» CURRENT DYN. FIELD t . PTC:KY1 EQU TC:CFX+2 ADDRESS TO KEYTABLE 1. 8 PTC:KTV EQU TC:KY1+2 ADDRESS TO BITMASK FOR KEYCHECKS N 4 PTC:CN1 EQU TC:KTV+2 LOOP COUNTER - SECTION LEVEL 2 PTC:CN2 EQU TC:CN1+2 LOOP COUNTER - FIELD LEVEL P P EJECT
0x047918…04791e 00 00 00 00 00 00 ┆ ┆
0x04791e…047ab2 Dummy {f00=0x0020, f01=0x0190, f02=» TC:IIE+2 ADDR. TO WWI:S, EQUAL TO ... : PTC:IOE EQU TC:WWI ADDR TO 1ST BYTE AFTER OUTPUT BUFFER . 2 PTC:STK EQU TC:IOE+2 ADDR TO THE STACK, WS:STK l : PTC:PFB EQU TC:STK+2 POOL & FILE HANDLER COM. AREA ... @ PTC:FIL EQU TC:PFB+PF:ECB ... INCLUDING D
0x047ab2…047ab8 00 00 00 00 00 00 ┆ ┆
0x047ab8…047c4c Dummy {f00=0x0020, f01=0x0190, f02=»B:END ECHO DEVICE ECB ~ . PTC:PRT EQU TC:EKO+PRTDEV PRINT DEVICE ECB 4 PTC:INP EQU TC:PRT+INPDEV OTHER INPUT DEVICE ECB P P EJECT P P** P** WSM PARAMETER BLOCK P** P * PPB:FC EQU TC:INP+12 WSM FUNCTION CODE 6 P
0x047c4c…047c52 00 00 00 00 00 00 ┆ ┆
0x047c52…047de6 Dummy {f00=0x0020, f01=0x0190, f02=»RRENT SECTION SEQUENCE NUMBER z * PPB:SUS EQU PB:SSN+2 CURRENT SUBSCREEN & : PPB:INP EQU PB:SUS+1 INPUT ALLOWED, =0 IF YES, =1 IF NO T . PPB:FID EQU PB:INP+1 CURRENT FIELD IDENTITY $ PPB:FNO EQU PB:FID+4 FIELD NUMBER " PPB:RC EQU PB:FNO+2 RETURN CO
0x047de6…047dec 00 00 00 00 00 00 ┆ ┆
0x047dec…047f80 Dummy {f00=0x0020, f01=0x0190, f02=»F BUFFER CONTENTS j : PPB:MBL EQU PB:EBL+4 MAXIMUM LENGTH OF BUFFER CONTENTS . PPB:BLO EQU PB:MBL+2 TYPE OF BUFFER LAYOUT X 2 PPB:PRFC EQU PB:BLO+1 PRINTER DEVICE FILE CODE 0 PPB:BUF EQU PB:PRFC+1 PARAMETER BLOCK BUFFER P EJECT P
0x047f80…047f86 00 00 00 00 00 00 ┆ ┆
0x047f86…04811a Dummy {f00=0x0020, f01=0x0190, f02=»N DFD ADDRESS b " PSS:DFD EQU 2 SECTION DFD SIZE 4 PSS:SCR EQU SS:DFD+2 SECTION ON SCREEN INDICATION < $ PSS:TYP EQU SS:SCR+1 SECTION TYPE t 8 PSS:SS EQU SS:SCR+2 SUBSCREEN & SECTION SEQUENCE NO. > PSS:LIN EQU SS:SS+2 (SUB-)SCREEN START LINE & NO.
0x04811a…048120 00 00 00 00 00 00 ┆ ┆
0x048120…0482b4 (1, 5) Dummy {f00=0x0020, f01=0x0190, f02=»N NAME v . PSS:LEN EQU SS:SEC+6 LENGTH OF SST ELEMENT P @ P H P** P 0 P** DISPLACEMENTS IN WSM WORK ITEMS OVERHEAD Z P** P 0 PWWI:NF EQU 0 NO OF FAST CHOISE SECTION WWI:S : PWWI:LF EQU WWI:NF+1 LENGTH OF ONE FAST CHOISE SECT W
0x0482b4…0482ba 00 00 00 00 00 00 ┆ ┆
0x0482ba…04844e Dummy {f00=0x0020, f01=0x0190, f02=»ESS TO FIRST NUMERIC WWI x 0 PWWI:NA EQU WWI:AN+2 NO OF ALPHANUMERIC WWI:S 6 PWWI:LA EQU WWI:NA+1 LENGTH OF ONE ALPHANUMERIC WWI T : PWWI:AA EQU WWI:LA+1 ADDRESS TO FIRST ALPHANUMERIC WWI . PWWI:LO EQU WWI:AA+2 LENGTH OF WWI OVERHEAD P EJECT
0x04844e…048454 00 00 00 00 00 00 ┆ ┆
0x048454…0485e8 Dummy {f00=0x0020, f01=0x0190, f02=»6 INTIAL SECTION NAME ~ 2 PFD:DSK EQU FD:ISN+6 # DISC SECTORS (BITS 0-7) : PFD:FCS EQU FD:DSK+4 LIST OF FAST CHOICE SECTION NAMES T P EJECT P P** P** FORMAT SECTION CODE P** P P** SECTION TYPES P & PRW
0x0485e8…0485ee 00 00 00 00 00 00 ┆ ┆
0x0485ee…048782 Dummy {f00=0x0020, f01=0x0190, f02=»S OF SCREEN p * PFONP EQU RWP FIXED ON TOP OF NEW PAGE ! PTEMP EQU 8 TEMPORARY ! B * PSECMSK EQU /F MASK ISOLATING TYPE BITS ! ^ P ! P** SECTION OVERHEAD ! P ! PSO:SEC EQU 0 SECTION NAME ! $ PSO:PSW EQU SO:SEC+6 ( PASSWORD ) ! , PSO:DSK
0x048782…048788 00 00 00 00 00 00 ┆ ┆
0x048788…04891c Dummy {f00=0x0020, f01=0x0190, f02=» ! b F PSO:SIZ EQU SO:VNO+2 DEFINED SECTION SIZE, ROWS & COLUMNS, AND ... " " P ... EFFECTIVE SECTION SIZE " R PSO:DFD EQU SO:SIZ+4 DFD SIZE " x 2 PSO:SFC EQU SO:DFD+2 REL. ADDR TO STATIC FIELDS " 0 PSO:PP EQU SO:SFC+2 " " " PICTURE POOL " 2 PSO
0x04891c…048920 00 00 00 00 ┆ ┆
0x048920…048922 00 00 ┆ ┆
0x048922…048ab6 Dummy {f00=0x0020, f01=0x0190, f02=»F+4 BACKGROUND DEFAULT ATTRIBUTES " 8 PSO:SFA EQU SO:BGA+1 STATIC FIELD DEFAULT ATTRIBUTES # * 6 PSO:DFA EQU SO:SFA+1 DYN. FIELD DEFAULT ATTRIBUTES # f 0 PSO:MES EQU SO:DFA+4 DEFAULT GUIDING MESSAGE # P EJECT # P # P** STATIC FIELDS # P #
0x048ab6…048abc 00 00 00 00 00 00 ┆ ┆
0x048abc…048c50 Dummy {f00=0x0020, f01=0x0190, f02=»/FC HEADER LINES # PSF:EOL EQU /FD END OF LINE $ " PSF:EOS EQU /FE END OF SECTION $ : $ PSF:EOP EQU /FF END OF POOL UNIT $ ` P EJECT $ P $ P** DYNAMIC FIELDS $ P $ ( P DYNAMIC FIELD TABLE DISPLACEMENTS $ P $ PDF:FID EQU 0 FIELD I
0x048c50…048c56 00 00 00 00 00 00 ┆ ┆
0x048c56…048dea Dummy {f00=0x0020, f01=0x0190, f02=»RATIONS ETC. $ Z 2 PDF:TLN EQU DF:DAT+2 FIELD TABLE ELEMENT LENGTH % P % J ( P DYNAMIC FIELD CODE DISPLACEMENTS % R P % ~ < PDF:ALN EQU 0 ATTRIBUTE AREA LENGTH INCL. OPTIONAL PARTS % 0 PDF:SCR EQU DF:ALN+2 REL. POSITION IN SECTION % 6 PDF:FLN EQU DF:
0x048dea…048df0 00 00 00 00 00 00 ┆ ┆
0x048df0…048f84 (1, 6) Dummy {f00=0x0020, f01=0x0190, f02=»ONCERNING INPUT HANDLING % v ( PDF:DEC EQU DF:INP+2 DECORATION BITS & . PDF:OPT EQU DF:DEC+2 START OF OPTIONAL PART & L P & ~ P OPTIONS: & P & PDF:VAL EQU 1 VALIDATION & PDF:ACC EQU 2 ACCUMULATION & $ PDF:DUP EQU 3 DUPLICATION ORIGIN &
0x048f84…048f8a 00 00 00 00 00 00 ┆ ┆
0x048f8a…04911e Dummy {f00=0x0020, f01=0x0190, f02=»QU 7 OUTPUT PRINT POSITION & PDF:GM EQU 15 GUIDING MESSAGE ' " P EJECT ' F P ' T J P********************************************************************** ' J P** WSM VALIDATION STATEMENT TYPES ** ' J P****************
0x04911e…049120 00 00 ┆ ┆
0x049120…049124 00 00 00 00 ┆ ┆
0x049124…0492b8 Dummy {f00=0x0020, f01=0x0190, f02=»NUM LET INCL. LET ' | * PVS:NLE EQU /02 NUMERIC LET EXCL. LET ( * PVS:NLI EQU /03 NUMERIC LET INCL. LET ( H PVS:GO EQU /04 GO TO ( v PVS:GOT EQU /05 GOTO ( . PVS:IFL EQU /06 IF <REL. EXPR.> THEN LINENO ( 2 PVS:IFS EQU /08 IF <REL. EXPR.> THEN STAT
0x0492b8…0492be 00 00 00 00 00 00 ┆ ┆
0x0492be…049452 Dummy {f00=0x0020, f01=0x0190, f02=»L ( ~ PVS:SEC EQU /0E SECT ) PVS:ATT EQU /10 ATTR ) & PVS:STO EQU /12 STOP ) B PVS:EXI EQU /14 EXIT ) ^ PVS:ERR EQU /16 ERR ) z PVS:WAR EQU /18 WARN ) PVS:REM EQU /1A REM ) PVS:EMP EQU /0C EMPTY ) P EJECT ) P ) J P************
0x049452…049458 00 00 00 00 00 00 ┆ ┆
0x049458…0495ec Dummy {f00=0x0020, f01=0x0190, f02=» ) J J P********************************************************************** * P * V " PVO:EEX EQU 1 END OF EXPRESSION * ^ , PVO:AEQ EQU 2 = , ALPHANUMERIC COMPARISON * PVO:AGE EQU 3 >=, " * PVO:AGT EQU 4 > , " * PVO:ALE EQU 5 <=, " * PVO:ALT
0x0495ec…0495f2 00 00 00 00 00 00 ┆ ┆
0x0495f2…049786 Dummy {f00=0x0020, f01=0x0190, f02=» * | PVO:NLE EQU /0B <=, " + PVO:NLT EQU /0C < , " + $ PVO:NNE EQU /0D <>, " + @ PVO:CON EQU /0E CONCATENATE + PVO:SUS EQU /0F SUBSTRING + ~ PVO:STR EQU /10 STR FUNCTION + PVO:UPL EQU /11 UNARY PLUS + * PVO:UMI EQU /12 " MINUS <=> NEGAT
0x049786…04978c 00 00 00 00 00 00 ┆ ┆
0x04978c…049920 Dummy {f00=0x0020, f01=0x0190, f02=» EQU /17 ABS FUNCTION + PVO:INT EQU /18 INT " , PVO:SGN EQU /19 SGN " , : PVO:TIM EQU /1A TIM " , V PVO:DAY EQU /1B DAY " , r PVO:SYS EQU /1C SYS " , PVO:LEN EQU /1D LEN " , PVO:NUM EQU /1E NUM " , PVO:DAT EQU /1F DAT " , PVO:CDV EQU
0x049920…049926 00 00 00 00 00 00 ┆ ┆
0x049926…049aba Dummy {f00=0x0020, f01=0x0190, f02=»************************************ , n J P** EQUATES TO THE DIFFERENT KEYTABLES ** - , J P********************************************************************** - z P - P** - P** KEYTABLE 1 & 2 - P** - P - PK1
0x049aba…049ac0 00 00 00 00 00 00 ┆ ┆
0x049ac0…049c54 (1, 7) Dummy {f00=0x0021, f01=0x0190, f02=» EQU K1:PRT+1 - PK1:HLP EQU K1:LIN+1 . PK1:ARI EQU K1:HLP+1 . 2 PK1:ASD EQU K1:ARI+1 . N PK1:CLR EQU K1:ASD+1 . j PK1:SEC EQU K1:CLR+1 . PK1:CR EQU K1:SEC+1 . PK1:DUP EQU K1:CR+1 . PK1:ENT EQU K1:DUP+1 . PK1:FUN EQU K1:ENT+1 .
0x049c54…049c5a 00 00 00 00 00 00 ┆ ┆
0x049c5a…049dee Dummy {f00=0x0021, f01=0x0190, f02=» . P** / P / PK3:INS EQU 1 / PK3:DEL EQU K3:INS+1 / . PK3:TFD EQU K3:DEL+1 / J PK3:TBD EQU K3:TFD+1 / f PK3:PRT EQU K3:TBD+1 / PK3:CLR EQU K3:PRT+1 / PK3:CAN EQU K3:CLR+1 / PK3:USR EQU K3:CAN+1 / P / P** / P** K
0x049dee…049df4 00 00 00 00 00 00 ┆ ┆
0x049df4…049f88 Dummy {f00=0x0021, f01=0x0190, f02=» P 0 P** 0 P** KEYTABLE 5 & 6 0 P** 0 0 P 0 : PK5:CLR EQU 1 0 B PK5:CAN EQU K5:CLR+1 0 V < PK5:USR EQU K5:CAN+1 K5:USR & ABOVE ARE USER DEFINED KEYS 0 r PK6:OV EQU K5:CAN+1 0 < PK6:USR EQU K6:OV+1 K6:USR & ABOVE ARE USER DEFINED KEYS 0
0x049f88…049f8e 00 00 00 00 00 00 ┆ ┆
0x049f8e…04a122 Dummy {f00=0x0021, f01=0x0190, f02=»******************************** 0 j J P** WSM RETURN CODES ** 1 ( J P********************************************************************** 1 v P 1 P 1 , P** LATEST UPDATING: 1983-04-25 BY: GM * 1 P 1
0x04a122…04a128 00 00 00 00 00 00 ┆ ┆
0x04a128…04a2bc Dummy {f00=0x0021, f01=0x0190, f02=»D 1 f 2 PRC:KEY EQU 3 OK, NO DATA TRANSFERRED, KEYLOCK 2 & PRC:EXI EQU 4 EXIT ROUTINE REQUEST 2 @ " PRC:EWA EQU 5 EXTERNAL WARNING 2 j PRC:EER EQU 6 EXTERNAL ERROR 2 6 PRC:VCU EQU 7 VALIDATION FROM CURRENT FIELD AND ON 2 " PRC:ORM EQU 7 ORIGIN MEDIUM
0x04a2bc…04a2c0 00 00 00 00 ┆ ┆
0x04a2c0…04a2c2 00 00 ┆ ┆
0x04a2c2…04a456 Dummy {f00=0x0021, f01=0x0190, f02=» TRANSFERRED 2 f 4 PRC:DN3 EQU 13 AS RC:DN1 BUT LACK OF BUFFER SPACE 3 ( PRC:CNF EQU 20 SECT/DEF/TAB NOT FOUND 3 L $ PRC:NOP EQU 21 FORMAT NOT OPENED 3 x . PRC:NAT EQU 22 FORMAT SECTION NOT ATTACHED 3 . PRC:ISS EQU 23 ILLEGAL SECTION SEQUENCE NO. 3 . PRC:P
0x04a456…04a45c 00 00 00 00 00 00 ┆ ┆
0x04a45c…04a5f0 Dummy {f00=0x0021, f01=0x0190, f02=»RC:OLD EQU 27 OLD SECTION FOUND 3 , PRC:ISE EQU 28 ILLEGAL SECTION REFERENCE 4 ( PRC:SEC EQU 29 ILLEGAL ATTACH 4 X PRC:POL EQU 30 POOL ERROR 4 | . PRC:STO EQU 31 SECTION SEQ. TABLE OVERFLOW 4 . PRC:SNO EQU 32 SECTION SEQ. NUMBER OVERFLOW 4 . PRC:LRU E
0x04a5f0…04a5f6 00 00 00 00 00 00 ┆ ┆
0x04a5f6…04a78a Dummy {f00=0x0021, f01=0x0190, f02=»VICE I/O-ERROR 4 z 2 PRC:EJN EQU 45 PRINT WITHOUT EJECT/TOP-OF-FORM 5 ( PRC:EJO EQU 46 EJECT/TOP-OF-FORM ONLY 5 L $ PRC:VER EQU 50 VALIDATION ERRORS: 5 x 4 PRC:VOF EQU '01' - VALIDATION WORK AREA OVERFLOW 5 2 PRC:VSE EQU '02' - VALIDATION STOP TARGET ERROR 5
0x04a78a…04a790 00 00 00 00 00 00 ┆ ┆
0x04a790…04a924 (1, 8) Dummy {f00=0x0021, f01=0x0190, f02=» DIVISION BY ZERO 5 t 2 PRC:LP2 EQU '06' - VALIDATION LOOP WITHIN FIELD 6 ( PRC:LP1 EQU 51 LOOP ON SECTION LEVEL 6 P 2 PRC:PBI EQU 60 PAR. BLOCK HOLDES ILLEGAL VALUE 6 | 2 PRC:DIV EQU 61 FIELD NOT FOUND IN DATA DIVISION 6 $ PRC:LKE EQU 62 LKM REQUEST ERROR
0x04a924…04a92a 00 00 00 00 00 00 ┆ ┆
0x04a92a…04aabe Dummy {f00=0x0021, f01=0x0190, f02=» ** 6 P$ MEND; 7 PEOS 7 . PMACRO FRAME 7 : P$ MACRO FRAME; 7 N J P********************************************************************** 7 j P$ MEND; 7 PEOS 7 PMACRO CVERS 7 P$ MACRO CVERS; 7 J P
0x04aabe…04aac0 00 00 ┆ ┆
0x04aac0…04aac4 00 00 00 00 ┆ ┆
0x04aac4…04ac58 Dummy {f00=0x0021, f01=0x0190, f02=» ** 7 V J P** CREDIT INTERPRETER VERSION: ** 8 PTEST EQU 1 8 b PNOTEST EQU 0 8 t PPARM EQU TEST 8 J P** ** 8 J P****************************
0x04ac58…04ac5e 00 00 00 00 00 00 ┆ ┆
0x04ac5e…04adf2 Dummy {f00=0x0021, f01=0x0190, f02=»; 8 l 0 P IDENT $NAME. W,REL=2.3,850901,870155940230 9 P 9 > P 9 F P 9 N J P********************************************************************** 9 V J P** ** 9 J P** $NAME.
0x04adf2…04adf8 00 00 00 00 00 00 ┆ ┆
0x04adf8…04af8c Dummy {f00=0x0021, f01=0x0190, f02=» DESCRIPTION: $CONT. ** 9 P$ MEND; : L PEOS : ` PMACRO DUMMY : l P$ MACRO DUMMY; : P****** STANDARD IDENT: : P IDENT $NAME. $DATE. /$AUT. : * P****** CREDIT TEST INTERPRETER IDENT: :
0x04af8c…04af92 00 00 00 00 00 00 ┆ ┆
0x04af92…04b126 Dummy {f00=0x0021, f01=0x0190, f02=»870137141200 : p " P****** WSM INTERPRETER IDENT: ; 0 P IDENT $NAME. W,REL=12.1,811111,870155941200 ; : P$ MEND; ; n PEOS ; PMACRO HIST ; & P$ MACRO HIST AUT,DATE,CONT; ; P** $DATE. /$AUT. $CONT. ; P$ MEND; ; PEOS ;
0x04b126…04b12c 00 00 00 00 00 00 ┆ ┆
0x04b12c…04b2c0 Dummy {f00=0x0021, f01=0x0190, f02=»********************************** ; l J P** ** < * J P** $NAME. $CONT. ** < x P$ MEND; < PEOS < PMACRO RUT < P$ MACRO RUT
0x04b2c0…04b2c6 00 00 00 00 00 00 ┆ ┆
0x04b2c6…04b45a Dummy {f00=0x0021, f01=0x018e, f02=»**** < N J P** ** = J P** $NAME. $CONT. ** = Z P$ MEND; = PEOS = PMACRO OUTP = P$ MACRO OUTP TXT; = J P** OUTPUT:
0x04b45a…04b460 00 00 00 00 00 00 ┆ ┆
0x04b460…04b5f4 (1, 9) Dummy {f00=0x0021, f01=0x018e, f02=» = x J P** ** > J P** INPUT: $TXT. ** > V P$ MEND; > PEOS > PMACRO CRUT > P$ MACRO CRUT TXT; > J P** CALLED ROUTINES:
0x04b5f4…04b5fa 00 00 00 00 00 00 ┆ ┆
0x04b5fa…04b78e Dummy {f00=0x0021, f01=0x0190, f02=» J P** DESTROYED REG.S: $TXT. ** ? P$ MEND; ? R PEOS ? f PMACRO DMEM ? r P$ MACRO DMEM TXT; ? J P** DESTROYED MEM. : $TXT. ** ? P$ MEND; ? PEOS
0x04b78e…04b794 00 00 00 00 00 00 ┆ ┆
0x04b794…04b928 Dummy {f00=0x0021, f01=0x0190, f02=» ? P @ * P* LATEST UPDATING: 1981-08-25 BY: ME @ P @ > ( PFIDSIZ EQU 4 SIZE OF FIELD IDENTITY @ F P @ r ( PPBLGTH EQU 46 PARAMETER BLOCK LENGTH @ z 0 PWNOLGH EQU 1 LENGTH OF ONE WORK BLOCK NUMBER @ ( PWBLNOS EQU 0 WORK BLOCK NUMBER AREA @ PFI
0x04b928…04b92e 00 00 00 00 00 00 ┆ ┆
0x04b92e…04bac2 Dummy {f00=0x0021, f01=0x0190, f02=»NAME @ v , PSEQNO EQU SECT+6 SECTION SEQUENCE NUMBER A ( PSUBSCR EQU SEQNO+2 SUBSCREEN NUMBER A < * PINPAWD EQU SUBSCR+1 INPUT ALLOWED CODE A h ( PCURFID EQU INPAWD+1 CURRENT FIELD-ID A * PFIELNO EQU CURFID+FIDSIZ FIELD NUMBER A $ PRETCOD EQU FIELNO+2 RETU
0x04bac2…04bac8 00 00 00 00 00 00 ┆ ┆
0x04bac8…04bc5c Dummy {f00=0x0021, f01=0x412e, f02=» ROUTINE NUMBER A x , PRECLGH EQU EXITNO+2 RECEIVED DATA LENGTH B & PBUFLGH EQU RECLGH+3 BUFFER LENGTH B H * PBUFLAY EQU BUFLGH+3 BUFFER LAYOUT CODE B r 0 PPRINFC EQU BUFLAY+1 PRINTER DEVICE FILE CODE B $ PBUFFER EQU WBLNOS+PBLGTH BUFFER B P EJECT B
0x04bc5c…04bc60 00 00 00 00 ┆ ┆
0x04bc60…04bc62 00 00 ┆ ┆
0x04bc62…04bdf6 Dummy {f00=0x0021, f01=0x2008, f02=» C NUMBER A x , PRECLGH EQU EXITNO+2 RECEIVED DATA LENGTH B & PBUFLGH EQU RECLGH+3 BUFFER LENGTH B H * PBUFLAY EQU BUFLGH+3 BUFFER LAYOUT CODE B r 0 PPRINFC EQU BUFLAY+1 PRINTER DEVICE FILE CODE B $ PBUFFER EQU WBLNOS+PBLGTH BUFFER B P EJECT B
0x04bdf6…04bdfc 00 00 00 00 00 00 ┆ ┆
0x04bdfc…04bf90 Dummy {f00=0x0021, f01=0x0190, f02=»********************************** ; l J P** ** < * J P** $NAME. $CONT. ** < x P$ MEND; < PEOS < PMACRO RUT < P$ MACRO RUT
0x04bf90…04bf96 00 00 00 00 00 00 ┆ ┆
0x04bf96…04c12a Dummy {f00=0x0021, f01=0x018e, f02=»**** < N J P** ** = J P** $NAME. $CONT. ** = Z P$ MEND; = PEOS = PMACRO OUTP = P$ MACRO OUTP TXT; = J P** OUTPUT:
0x04c12a…04c130 00 00 00 00 00 00 ┆ ┆
0x04c130…04c2c4 (1, 10) Opaque[0x194]
0x04c2c4…04c2ca 00 00 00 00 00 00 ┆ ┆
0x04c2ca…04c45e # DirEnt {nam=»SUMMAC«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0438, f03=0x0000}
0x04c2ca…04c45e IdxSect {
0x04c2ca…04c45e f00 = 0x0021 // 0x4c2ca @0x0
0x04c2ca…04c45e f01 = 0x0002 // 0x4c2cc @0x2
0x04c2ca…04c45e gno = [ // 0x4c2ce @0x4
0x04c2ca…04c45e [0x00]: C0x0021.0x3.0
0x04c2ca…04c45e ]
0x04c2ca…04c45e }
0x04c45e…04c460 00 00 ┆ ┆
0x04c460…04c464 00 00 00 00 ┆ ┆
0x04c464…04c5f8 Dummy {f00=0x0021, f01=0x00ed, f02=» SYSMAC SYSMAC 0 EQU T / F RC 5 < C 6 J FRAME 6 CVERS 7 h MOD 9 | DUMMY : HIST : LABEL ; RUT < OUTP < t INP = CRUT = p DREG > DMEM > AIEQU1 z G A
0x04c5f8…04c5fe 00 16 07 00 ef 40 ┆ @┆
0x04c5fe…04c792 Dummy {f00=0x0021, f01=0x0190, f02=» l & PKOM LIBR=CREOBJ,MNAM=W:DISC,WSMLMC & PKOM LIBR=CREOBJ,MNAM=WD:ORW,WSMLMC 2 & PKOM LIBR=CREOBJ,MNAM=WD:GOR,WSMLMC & PKOM LIBR=CREOBJ,MNAM=WD:CHN,WSMLMC & PKOM LIBR=CREOBJ,MNAM=WP:POL,WSMLMC PLEN PSCR /D5 PNOD C PINC
0x04c792…04c798 42 20 43 52 45 4f ┆B CREO┆
0x04c798…04c92c Dummy {f00=0x0021, f01=0x0190, f02=»CTASK,WSMLMC PNOD R PINC CREOBJ,FDUPDT,WSMLMC " PINC CREOBJ,FSUPDT,WSMLMC B PINC CREOBJ,FSINIT,WSMLMC b PINC CREOBJ,FSDISC,WSMLMC PNOD R PINC CREOBJ,FSMODL,WSMLMC PNOD R PINC CREOBJ,FSPARM,WSMLMC PNOD R
0x04c92c…04c932 42 20 43 52 45 4f ┆B CREO┆
0x04c932…04cac6 Dummy {f00=0x0021, f01=0x0190, f02=»MC z PINC CREOBJ,UDFVAL,WSMLMC PNOD R * PINC CREOBJ,VALPRC,WSMLMC 8 PINC CREOBJ,SYNVAL,WSMLMC X PNOD R x PINC CREOBJ,OBJVAL,WSMLMC PINC CREOBJ,MOVVAL,WSMLMC PINC CREOBJ,PRNTFS,WSMLMC PTLK SIZE=MAX . POPT MAP=NO,XRE
0x04cac6…04cacc 42 20 43 52 45 4f ┆B CREO┆
0x04cacc…04cc60 Dummy {f00=0x0021, f01=0x001c, f02=» PLEN PPEND WSMLMC PNOD R * PINC CREOBJ,VALPRC,WSMLMC 8 PINC CREOBJ,SYNVAL,WSMLMC X PNOD R x PINC CREOBJ,OBJVAL,WSMLMC PINC CREOBJ,MOVVAL,WSMLMC PINC CREOBJ,PRNTFS,WSMLMC PTLK SIZE=MAX . POPT MAP=NO,XRE
0x04cc60…04cc66 42 20 43 52 45 4f ┆B CREO┆
0x04cc66…04cdfa Dummy {f00=0x0021, f01=0x2008, f02=» LEN PPEND WSMLMC PNOD R * PINC CREOBJ,VALPRC,WSMLMC 8 PINC CREOBJ,SYNVAL,WSMLMC X PNOD R x PINC CREOBJ,OBJVAL,WSMLMC PINC CREOBJ,MOVVAL,WSMLMC PINC CREOBJ,PRNTFS,WSMLMC PTLK SIZE=MAX . POPT MAP=NO,XRE
0x04cdfa…04ce00 42 20 43 52 45 4f ┆B CREO┆
0x04ce00…04cf94 (1, 11) Opaque[0x194]
0x04cf94…04cf9a 00 00 00 00 00 00 ┆ ┆
0x04cf9a…04d12e # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0440, f03=0x0000}
0x04cf9a…04d12e IdxSect {
0x04cf9a…04d12e f00 = 0x0022 // 0x4cf9a @0x0
0x04cf9a…04d12e f01 = 0x0002 // 0x4cf9c @0x2
0x04cf9a…04d12e gno = [ // 0x4cf9e @0x4
0x04cf9a…04d12e [0x00]: C0x0022.0x0.0
0x04cf9a…04d12e ]
0x04cf9a…04d12e }
0x04d12e…04d134 00 00 00 00 00 00 ┆ ┆
0x04d134…04d2c8 Dummy {f00=0x0022, f01=0x0190, f02=» Pfile USINFO,UF,0 in on /00 N P 0 IDENT: USINFO DATE: 85-09-01 CONTENTS: INFORMATION ABOUT THIS USER ( P 1 z P 2 USER: WSM:PROC P 3 ************** P 4 $ P 5 SYSMAC, MACRO LIBRARY * P 6 SUMMAC, MAC
0x04d2c8…04d2ce 00 00 00 00 00 00 ┆ ┆
0x04d2ce…04d462 Dummy {f00=0x0022, f01=0x0190, f02=»USERDEFINED ASSEMBLERROUTINES d > P 9 " " WUTIL TO LINK WSM UTILITIES PROD & > P 10 " " WUTILT TO LINK WSM UTILITIES TEST h : P 11 " " CREA TO LINK WSM CREATOR PROD < P 12 " " CREAT T
0x04d462…04d468 00 00 00 00 00 00 ┆ ┆
0x04d468…04d5fc Dummy {f00=0x0022, f01=0x0190, f02=»E WSM INTERPRETER f P P 15 " " PACGEN TO GENERATE WSM INTERPRETER (HELP PROCEDURE) P 16 n P 17 z . P 18 HOW TO USE THE MACRO FACILITY: 6 P 19 1. EDIT THE MACRO "SOURCE" FILE SYSMAC. , P 20 2. RUN THE
0x04d5fc…04d600 00 00 00 00 ┆ ┆
0x04d600…04d602 00 00 ┆ ┆
0x04d602…04d796 Dummy {f00=0x0022, f01=0x0190, f02=»INED ASSEMBLERROUTINES: l B P 24 1. MACRO $EQU MUST BE USED TO PROVIDE CORRECT TASK & P 25 AREA DISPLACEMENTS. f P 26 < P 27 THE WSM INTERPRETER IS WRITTEN IN ASSEMBLER. 6 P 28 ALL MODULES ARE USING MACRO PROCE
0x04d796…04d79c 00 00 00 00 00 00 ┆ ┆
0x04d79c…04d930 Dummy {f00=0x0022, f01=0x411e, f02=»ED BY Z 6 P 31 THE MACRO PROCESSOR (LOAD MODULE MAC). P 32 EXAMPLES: H L P 33 - IDENT STATEMENTS, THE DATE IS TAKEN FROM THE MACRO LIBRARY. d < P 34 - FRAMES ARE GENERATED FROM A FEW KEY WORDS. " P 35 - HISTORY
0x04d930…04d936 00 00 00 00 00 00 ┆ ┆
0x04d936…04daca Dummy {f00=0x0022, f01=0x2008, f02=» Z 6 P 31 THE MACRO PROCESSOR (LOAD MODULE MAC). P 32 EXAMPLES: H L P 33 - IDENT STATEMENTS, THE DATE IS TAKEN FROM THE MACRO LIBRARY. d < P 34 - FRAMES ARE GENERATED FROM A FEW KEY WORDS. " P 35 - HISTORY
0x04daca…04dad0 00 00 00 00 00 00 ┆ ┆
0x04dad0…04e770 (2, 0) DirGranule ((2, 0)) {
0x04dad0…04e770 DirEnt {nam=»WSM:LM«, typ=»IN«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x04dad0…04e770 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0450, f03=0x0000}
0x04dad0…04e770 DirEnt {nam=»GENINF«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0458, f03=0x0000}
0x04dad0…04e770 DirEnt {nam=»W:INT «, typ=»LM«, f00=0xab4e, f01=0x0000, f02=0x0460, f03=0x0000}
0x04dad0…04e770 }
0x04e770…04e780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x04e780…04e7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x04e7a0…04e934 (2, 1) Opaque[0x194]
0x04e934…04e93a 00 00 00 00 00 00 ┆ ┆
0x04e93a…04eace # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0450, f03=0x0000}
0x04e93a…04eace IdxSect {
0x04e93a…04eace f00 = 0x0022 // 0x4e93a @0x0
0x04e93a…04eace f01 = 0x0002 // 0x4e93c @0x2
0x04e93a…04eace gno = [ // 0x4e93e @0x4
0x04e93a…04eace [0x00]: C0x0022.0x2.0
0x04e93a…04eace ]
0x04e93a…04eace }
0x04eace…04ead4 00 00 00 00 00 00 ┆ ┆
0x04ead4…04ec68 Dummy {f00=0x0022, f01=0x018e, f02=» H PIDENT: USINFO DATE: 85-09-01 CONTENTS: INFORMATION ABOUT THIS USER P P 2 PUSER: WSM:LMIN (LOAD MODULE INTERPRETER) X P************** H P W:INT = INTERPRETER LOAD MODULE WITH DEFAULT PARAMETERS @ P WINT <DADFC> = ACL
0x04ec68…04ec6e 00 00 00 00 00 00 ┆ ┆
0x04ec6e…04ee02 Dummy {f00=0x0022, f01=0x0190, f02=» 2 P 85-09-01 WSM REL 2.3 -> ACTION-CENTRE D P 85-03-01 WSM RELEASE 2.2 FOR TOSS 13.1 TO ACTION-CENTRE : * P 85-02-05 CONVERSION TO MAS-SDS $ P 84-11-13 IRL OF REL 2.2 * P 84-10-02 CONVERSION TO REL 2.2 ( P
0x04ee02…04ee08 00 00 00 00 00 00 ┆ ┆
0x04ee08…04ef9c Dummy {f00=0x0022, f01=0x0190, f02=»ON, BETA TEST CORRECTIONS. r 8 P 84-02-10 NEW VERSION ON THE CRL-DISC (TFST). " @ P 84-01-25 NEW VERSION CREATED WITHIN TFST (BNP USE). ^ L P----------------------------------------------------------------------- ( P 83-12-05 NEW V
0x04ef9c…04efa0 00 00 00 00 ┆ ┆
0x04efa0…04efa2 00 00 ┆ ┆
0x04efa2…04f136 Dummy {f00=0x0022, f01=0x4024, f02=» 83-05-16 WSM REL 2.0 @ 84-02-10 NEW VERSION ON THE CRL-DISC (TFST). " @ P 84-01-25 NEW VERSION CREATED WITHIN TFST (BNP USE). ^ L P----------------------------------------------------------------------- ( P 83-12-05 NEW V
0x04f136…04f13c 00 00 00 00 00 00 ┆ ┆
0x04f13c…04f2d0 Dummy {f00=0x0022, f01=0x2008, f02=» 16 WSM REL 2.0 @ 84-02-10 NEW VERSION ON THE CRL-DISC (TFST). " @ P 84-01-25 NEW VERSION CREATED WITHIN TFST (BNP USE). ^ L P----------------------------------------------------------------------- ( P 83-12-05 NEW V
0x04f2d0…04f2d6 00 00 00 00 00 00 ┆ ┆
0x04f2d6…04f46a Dummy {f00=0x0022, f01=0x2020, f02=» - 1. PRECISION PROBLEM CORRECTED, TO FEW DECIMALS CALCULATED. 2. ROUNDING IMPLEMENTED (W:ROUN INTERFACE). ARE NOT ABLE W:ROUN (NEW) ENOUGH NUMBER OF DECIMALS (EARLIER TRUNCATION). - GENERAL
0x04f46a…04f470 00 00 00 00 00 00 ┆ ┆
0x04f470…04f604 (2, 2) Opaque[0x194]
0x04f604…04f60a 00 00 00 00 00 00 ┆ ┆
0x04f60a…04f79e # DirEnt {nam=»GENINF«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0458, f03=0x0000}
0x04f60a…04f79e IdxSect {
0x04f60a…04f79e f00 = 0x0022 // 0x4f60a @0x0
0x04f60a…04f79e f01 = 0x0002 // 0x4f60c @0x2
0x04f60a…04f79e gno = [ // 0x4f60e @0x4
0x04f60a…04f79e [0x00]: C0x0022.0x3.0
0x04f60a…04f79e ]
0x04f60a…04f79e }
0x04f79e…04f7a0 00 00 ┆ ┆
0x04f7a0…04f7a4 00 00 00 00 ┆ ┆
0x04f7a4…04f938 Dummy {f00=0x0022, f01=0x0190, f02=» < PUSER: WSM:LMIN GENINF = INFORMATION OF WSM GENERATION P*************** D P 6 P HOW TO GENERATE A WSM INTERPRETER UNDER MAS. d P : P 1. USER WSM:INTO FROM THE WSM RELEASE IS NECESSARY. P B P 2. DECLARE YOUR OWN WORK-
0x04f938…04f93e 00 00 00 00 00 00 ┆ ┆
0x04f93e…04fad2 Dummy {f00=0x0022, f01=0x0190, f02=»T (USE <USER>,<DAD>) | P * P 4. RUN THE ACL PROCEDURE: WSMGEN XY $ 4 P WHERE X IS RELEASE NUMBER AND Y IS LEVEL. R 8 P A COMMAND OUTPUT FILE (OUTWSM) IS THEN CREATED P FOR W:INIT. P : P 5. THE LAST QUESTION PUT TO Y
0x04fad2…04fad8 00 00 00 00 00 00 ┆ ┆
0x04fad8…04fc6c Dummy {f00=0x0022, f01=0x0190, f02=»N". f J P THE SUBMISSION OF THE GENERATION TO BATCH IS THEN DONE EITHER BY B P THE ACL PROCEDURE OR BY YOURSELF DEPENDING ON YOUR REPLY Z P : P 6. W:INIT IS THEN EDITED AND THE WSM INTERPRETER IS * P LINKED TO THE LOADMODULE W:I
0x04fc6c…04fc72 00 00 00 00 00 00 ┆ ┆
0x04fc72…04fe06 Dummy {f00=0x0022, f01=0x018e, f02=»WSM INTERPRETER OBJECT USE l D P ACL-PROCEDURE WINT,<DADFC>,<WUSID> FROM USID WSM:LMIN AND " F P YOU WILL OBTAIN A NEW VERSION OF W:INT LM ON USID WSM:LMIN. j < P WUSID= WORK USID WHERE YOU HAVE PERFORMED WSMGEN. J P IF WUSID IS NO
0x04fe06…04fe0c 00 00 00 00 00 00 ┆ ┆
0x04fe0c…04ffa0 Dummy {f00=0x0022, f01=0x4140, f02=» P P P************* P * P HISTORY: 2 0 P 84-04-01 CONVERSION OF WSMGEN TO MAS H @ P 84-04-01 CORRECTION TO HANDLE THE SWEDISH LETTER ' ' | . P 83-04-26 WWI CORRECTION, ALPHA TEST & P 82-10-20 WSMLOG
0x04ffa0…04ffa6 00 00 00 00 00 00 ┆ ┆
0x04ffa6…05013a Dummy {f00=0x0022, f01=0x2008, f02=» P P************* P * P HISTORY: 2 0 P 84-04-01 CONVERSION OF WSMGEN TO MAS H @ P 84-04-01 CORRECTION TO HANDLE THE SWEDISH LETTER ' ' | . P 83-04-26 WWI CORRECTION, ALPHA TEST & P 82-10-20 WSMLOG
0x05013a…050140 00 00 00 00 00 00 ┆ ┆
0x050140…0502d4 (2, 3) Opaque[0x194]
0x0502d4…0502da 00 00 00 00 00 00 ┆ ┆
0x0502da…05046e # DirEnt {nam=»W:INT «, typ=»LM«, f00=0xab4e, f01=0x0000, f02=0x0460, f03=0x0000}
0x0502da…05046e IdxSect {
0x0502da…05046e f00 = 0x0023 // 0x502da @0x0
0x0502da…05046e f01 = 0x0018 // 0x502dc @0x2
0x0502da…05046e gno = [ // 0x502de @0x4
0x0502da…05046e [0x00]: C0x0023.0x0.0
0x0502da…05046e [0x01]: C0x0023.0x1.0
0x0502da…05046e [0x02]: C0x0023.0x2.0
0x0502da…05046e [0x03]: C0x0023.0x3.0
0x0502da…05046e [0x04]: C0x0024.0x0.0
0x0502da…05046e [0x05]: C0x0024.0x1.0
0x0502da…05046e [0x06]: C0x0024.0x2.0
0x0502da…05046e [0x07]: C0x0024.0x3.0
0x0502da…05046e [0x08]: C0x0025.0x0.0
0x0502da…05046e [0x09]: C0x0025.0x1.0
0x0502da…05046e [0x0a]: C0x0025.0x2.0
0x0502da…05046e [0x0b]: C0x0025.0x3.0
0x0502da…05046e ]
0x0502da…05046e }
0x05046e…050474 00 00 00 00 00 00 ┆ ┆
0x050474…050608 Dummy {f00=0x0023, f01=0x0190, f02=» X AS (` OXP ** _ MANDATORY FIELD DIGITS OR CHAR.S MISSING F: S: 2 WSM BASIC ERR: S: F:
0x050608…05060e 00 00 00 00 00 00 ┆ ┆
0x05060e…0507a2 Dummy {f00=0x0023, f01=0x0190, f02=»
0x0507a2…0507a8 00 00 00 00 00 00 ┆ ┆
0x0507a8…05093c Dummy {f00=0x0023, f01=0x0190, f02=»
0x05093c…050940 00 00 00 00 ┆ ┆
0x050940…050942 00 00 ┆ ┆
0x050942…050ad6 Dummy {f00=0x0023, f01=0x0190, f02=»
0x050ad6…050adc 00 00 00 00 00 00 ┆ ┆
0x050adc…050c70 Dummy {f00=0x0023, f01=0x0190, f02=»
0x050c70…050c76 00 00 00 00 00 00 ┆ ┆
0x050c76…050e0a Dummy {f00=0x0023, f01=0x0190, f02=»
0x050e0a…050e10 00 00 00 00 00 00 ┆ ┆
0x050e10…050fa4 (2, 4) Dummy {f00=0x0023, f01=0x0190, f02=»
0x050fa4…050faa 00 00 00 00 00 00 ┆ ┆
0x050faa…05113e Dummy {f00=0x0023, f01=0x0190, f02=»
0x05113e…051140 00 00 ┆ ┆
0x051140…051144 00 00 00 00 ┆ ┆
0x051144…0512d8 Dummy {f00=0x0023, f01=0x0190, f02=»
0x0512d8…0512de 00 00 00 00 00 00 ┆ ┆
0x0512de…051472 Dummy {f00=0x0023, f01=0x0190, f02=»
0x051472…051478 00 00 00 00 00 00 ┆ ┆
0x051478…05160c Dummy {f00=0x0023, f01=0x0190, f02=»
0x05160c…051612 00 00 00 00 00 00 ┆ ┆
0x051612…0517a6 Dummy {f00=0x0023, f01=0x0190, f02=»
0x0517a6…0517ac 00 00 00 00 00 00 ┆ ┆
0x0517ac…051940 Dummy {f00=0x0023, f01=0x0190, f02=»
0x051940…051946 00 00 00 00 00 00 ┆ ┆
0x051946…051ada Dummy {f00=0x0023, f01=0x0190, f02=»
0x051ada…051ae0 00 00 00 00 00 00 ┆ ┆
0x051ae0…051c74 (2, 5) Dummy {f00=0x0023, f01=0x0190, f02=»
0x051c74…051c7a 00 00 00 00 00 00 ┆ ┆
0x051c7a…051e0e Dummy {f00=0x0023, f01=0x0190, f02=»
0x051e0e…051e14 00 00 00 00 00 00 ┆ ┆
0x051e14…051fa8 Dummy {f00=0x0023, f01=0x0190, f02=»
0x051fa8…051fae 00 00 00 00 00 00 ┆ ┆
0x051fae…052142 Dummy {f00=0x0023, f01=0x0190, f02=»
0x052142…052148 00 00 00 00 00 00 ┆ ┆
0x052148…0522dc Dummy {f00=0x0023, f01=0x0190, f02=» B1 d
0x0522dc…0522e0 00 00 00 00 ┆ ┆
0x0522e0…0522e2 00 00 ┆ ┆
0x0522e2…052476 Dummy {f00=0x0023, f01=0x0190, f02=» R> C ; W A"? W60 6 + 8|9P] :l:r9@9 9 > ) W )d N5 _<_FI ^ * ,XZ > , 0 6 <.6<T9 : Z *:*>] :@> ) ) @ 6n Jj FWT @ P W n W
0x052476…05247c 00 00 00 00 00 00 ┆ ┆
0x05247c…052610 Dummy {f00=0x0023, f01=0x0190, f02=» U dP U W , W * W 2 < W 4 C C ( b @ C ( C @ & B P R 2( _H @ ( V W A T W W V W W W W W W j 6n B_ b_ b_ 4 ^ 5 ; U &
0x052610…052616 00 00 00 00 00 00 ┆ ┆
0x052616…0527aa Dummy {f00=0x0023, f01=0x0190, f02=» Q W Z ,V ,V L H ^ [ [ ; 8 R W V ! [ S PR! 4 R W V " [ S T W$" Z P V W R ; <$! 0 - Z + :" P Z Z V P 1 - Z ` ( Z J6 (
0x0527aa…0527b0 00 00 00 00 00 00 ┆ ┆
0x0527b0…052944 (2, 6) Dummy {f00=0x0023, f01=0x0190, f02=»P V V ( X ;FP^_ Z P@ V ! 9D${ " :G V V <c P V T V P X ! ( Y Y X $ [ X >l W W [ & 1 ( V [ P V T V P0 V & S @( @ ( W & Y ( Y ( V V P$ P 9d W U _
0x052944…05294a 00 00 00 00 00 00 ┆ ┆
0x05294a…052ade Dummy {f00=0x0023, f01=0x0190, f02=» W Z & ' Z P Z P Q Z Q4 V P R W W L ! P 3 L L M (4 P Q P Z :o W P & P P P W* P P _" P P ! X P W V [ U [ [ R & Z R V PX Z 9AVP WL P P6 ! T&
0x052ade…052ae0 00 00 ┆ ┆
0x052ae0…052ae4 00 00 00 00 ┆ ┆
0x052ae4…052c78 Dummy {f00=0x0023, f01=0x0190, f02=» )H & X )NW X " T @* Y Z " :f & W Z L R Z 9BV8 T4 " [ T L ! T Z P L L )HWJ L )NW L ! T @) M L h R ?A^r B [ R L )N_ )H Z D ' Z # P Z P Q :FVb &@ % =DP V " TB
0x052c78…052c7e 00 00 00 00 00 00 ┆ ┆
0x052c7e…052e12 Dummy {f00=0x0023, f01=0x0190, f02=»% Q W PB X " X W6 R " T. &@ R &@ P " T V " 0% &@ 0 P Y _ Z % Z T Z P R 9BR 9b T 9FV &> P X X ! P *0W * X % ! T T *@W T P X R W *@ U T8 @ [ P0 V !
0x052e12…052e18 00 00 00 00 00 00 ┆ ┆
0x052e18…052fac Dummy {f00=0x0023, f01=0x0190, f02=» :A^Z Z %DWf T R UR ; [ RJW D " T D U [ R P. _ P$ Z V :EV [ : R [ ( W % Z P$R 9AR R # T V R [ [ Z W V P R " ( (" Z R " R P =BV UJ P& Z P V P W
0x052fac…052fb2 00 00 00 00 00 00 ┆ ┆
0x052fb2…053146 Dummy {f00=0x0023, f01=0x0190, f02=»" [ Z Z " P V V % pR R + pT 3 [ Q R Q 9h Q 2 P W $ V ! P [ Q W V ! P ` & V P 4 N $ . - P 4 N W R R N W W * W 2 < W 4 2 ]` ? W &W&
0x053146…05314c 00 00 00 00 00 00 ┆ ┆
0x05314c…0532e0 Dummy {f00=0x0023, f01=0x0190, f02=»P$ W H >d& 1 @ P W W &_ V [ R [ [ Z : T ; v 7t V ; T W . W 7, : W ^ ; ; 5 @ R :>A @ Q X P ^ y y y yNyDyJ W _ z| P R 9A R V )
0x0532e0…0532e6 00 00 00 00 00 00 ┆ ┆
0x0532e6…05347a Dummy {f00=0x0023, f01=0x0190, f02=» C W B " C # 6n _ R( - +T 'P W 'T WN +<W< P (! T P ,! T +bW P V Q U R T C+ ` ' ` 6n ` `Z `Z R W 0 R P (! Q V W R P -V -W T P
0x05347a…053480 00 00 00 00 00 00 ┆ ┆
0x053480…053614 (2, 7) Dummy {f00=0x0024, f01=0x0190, f02=» V V W v : @,T w : W( W$R V T P W W V T ( W W ]` _ [ [ H ;o H 9n! ` ` # P8 P&# T W$ Z Z , , W , , z 6n W P P 4 1 Y : S Q` T R PV ;
0x053614…05361a 00 00 00 00 00 00 ┆ ┆
0x05361a…0537ae Dummy {f00=0x0024, f01=0x0190, f02=» PL [ - Z T W T V @ &?d' Z P Q &' ?H F _R W &% =H F - : ; [ [ R @ [ _ Z : : [ / [ [ / ^ [ + [ P - [ Z Q Z Z Q Z H H
0x0537ae…0537b4 00 00 00 00 00 00 ┆ ┆
0x0537b4…053948 Dummy {f00=0x0024, f01=0x0190, f02=» H T, H , Z T [ 0 -W , - H V W* [ 00 b H H 0 5 I ) I _ H H ` Y Z Z <D 0N 6n ( H + T ^ 1 X PN & S P$' P" +P T -W P T T P W Y6W & P 1 X^_
0x053948…05394e 00 00 00 00 00 00 ┆ ┆
0x05394e…053ae2 Dummy {f00=0x0024, f01=0x0190, f02=»{ # P" P < S T W .X T Y ` z : V W "T @ZW & V P R $ T V P $ T $ 9h% W T W ! P 4. V T W V S @( Z V V P T W T T ! T U _$ [D W V
0x053ae2…053ae8 00 00 00 00 00 00 ┆ ┆
0x053ae8…053c7c Dummy {f00=0x0024, f01=0x0190, f02=»UFW< @ T V V P & W @ W W 3 V P WB V ' P C B ' T C W v W W W W [ : V X >d& _ W V T V P [ :'@P @ P # C ( B 3 + # C W V T @ W @
0x053c7c…053c80 00 00 00 00 ┆ ┆
0x053c80…053c82 00 00 ┆ ┆
0x053c82…053e16 Dummy {f00=0x0024, f01=0x0190, f02=» W 3 W 3^W 3 _4 W @ ">F C C W2 V ' V ?H d d W C ( : . k h # C 3 _ W 2 Q R" V $T V ! P V % T 1 2 V 3^# k 3 3N : W V ' P V R 9H W 56P(R
0x053e16…053e1c 00 00 00 00 00 00 ┆ ┆
0x053e1c…053fb0 Dummy {f00=0x0024, f01=0x0190, f02=» T % PB W >D V 1 3 V ! T & 1 W 2 T : V $P V T V V : V : [ : 5 _ z| U ^ `D 6 [ [ ; [ P & P % T. AR Z ^ W< ; & T | V % WZ T W>&
0x053fb0…053fb6 00 00 00 00 00 00 ┆ ┆
0x053fb6…05414a Dummy {f00=0x0024, f01=0x0190, f02=»^ ; >A V @ X : Z Z Z : P & V ! V " P8 0# V [ QZ [ - [ 7, Z Z Z _( V [ P" [ 7t [ 7, Z Z Z _& W W 3| ]` P: P6 ! P < P W = V
0x05414a…054150 00 00 00 00 00 00 ┆ ┆
0x054150…0542e4 (2, 8) Dummy {f00=0x0024, f01=0x0190, f02=» V 9 8T X P _& T T @f T & WT J J J W J J J W * J # " 9h! 9C R W : Pv & 8 QL V Q: W T X <'@P 8 % X E V
0x0542e4…0542ea 00 00 00 00 00 00 ┆ ┆
0x0542ea…05447e Dummy {f00=0x0024, f01=0x0190, f02=»; ^ V PN < & 7t P6 P2 W U T &:A <:e :H F W W W W ]` W ; 5 h ' Q : P W ; ; P ^ _ P * +P T W _ z H ` ` # P P { 6n _ P *! P
0x05447e…054480 00 00 ┆ ┆
0x054480…054484 00 00 00 00 ┆ ┆
0x054484…054618 Dummy {f00=0x0024, f01=0x0190, f02=»T @ W W$ B ! T B ! P $ W W @ Z [ ;V { Z PB H , P $ W , X % P , - T T W W & V R dt ^ ! T" V & , E T . R P _ = : .& T ; @ : _( : V 2 V ! T V V V
0x054618…05461e 00 00 00 00 00 00 ┆ ┆
0x05461e…0547b2 Dummy {f00=0x0024, f01=0x0190, f02=»3| 4 3^ W ]d _ [ [ [ ( _ ^ P * S P !. P ! P - _( [ ` ` { =| Z R0X = [ U = b Z [ Y = b_: - i T i T + i Z z P H z P
0x0547b2…0547b8 00 00 00 00 00 00 ┆ ┆
0x0547b8…05494c Dummy {f00=0x0024, f01=0x0190, f02=» X8! [ [ : Z Z ` { : Z P H H I ) I 0 5 Y : h +P P W ` <H _ PZ H ^ { H ! T$ _ { ) I I W H ` ` ` z 6n ; 5 _ z z| Z P
0x05494c…054952 00 00 00 00 00 00 ┆ ┆
0x054952…054ae6 Dummy {f00=0x0024, f01=0x0190, f02=» V < V ,P ) _ ?F ]` @ P W $ V ; : W V P V & S @( V P D @( V V V %x W W W V V %x W W W : V T W W : W ( Z ?FZ V T' X( : V W L W Z [ : W @ W| W E W
0x054ae6…054aec 00 00 00 00 00 00 ┆ ┆
0x054aec…054c80 Dummy {f00=0x0024, f01=0x0190, f02=» F @ k Z [ V @ : _ P< & P4 +P _ P &! P P +X _: ` z& ` 6n ; V V V " T T v | [ W W % P V B W V V ' PJ ( B ( "R Y ( W$( V B
0x054c80…054c86 00 00 00 00 00 00 ┆ ┆
0x054c86…054e1a Dummy {f00=0x0024, f01=0x0190, f02=» C B E Z @, V V | U % P j B W V W. Z P $ b, [ B V % P V | T T % T V P _ V @ @, V B T V P ? *W ]` V W > : V # T W WF W d C W0 1 W B V ' P c
0x054e1a…054e20 00 00 00 00 00 00 ┆ ┆
0x054e20…054fb4 (2, 9) Dummy {f00=0x0024, f01=0x0190, f02=»J I&G F F G F F F F G GzF P x W 6 & W V 0 V P P~ V " P V " P V [ ! TX ` & 3^ V T 4 P T V P U P P W W W D| V " T, V " P" Z D| V ! 9d" P 3| ]` W _ ; [ [ V " TX R
0x054fb4…054fba 00 00 00 00 00 00 ┆ ┆
0x054fba…05514e Dummy {f00=0x0024, f01=0x0190, f02=» S ]z W R Y:_ [ [ V XL W T( [ V P 0 V P Z Z W U _ @: ? P ? Dn [ U p U @ X _. V W ] [ H v 7t H T" ( W V Z PH WD v - W 0 ( W * W .
0x05514e…055154 00 00 00 00 00 00 ┆ ┆
0x055154…0552e8 Dummy {f00=0x0024, f01=0x0190, f02=» @( ? : QL S [ W Qv S V P T Pb [ W V ! P W W [ W V ! P* Z H TR P UvT W $W [ Wh Z P: V ! P& Z H TR P UvT W " [ W( [ R ! T V (P UvP Z [ W
0x0552e8…0552ee 00 00 00 00 00 00 ┆ ┆
0x0552ee…055482 Dummy {f00=0x0024, f01=0x0190, f02=» E E H TR T W &'@T V * -l P <' P Z [ : P v 7t P2 Z R, Z Q& : Z H 0 H ,P Z P _ : ^ H : ; Z P (T :WD : [ R R [ Z & [ & Z $ P @ E [ $ Z Z : H : ; Z P
0x055482…055488 00 00 00 00 00 00 ┆ ┆
0x055488…05561c Dummy {f00=0x0024, f01=0x0190, f02=» V V P V $ P F ! & T V Qx& T " J~ P$ ; T i V : W P R @ W J. V ! T I W 5 @ P T T W W W : ; W ; 0 P$ -P , 5 P ,! X X X 5_ : : ; + _6 ;
0x05561c…055620 00 00 00 00 ┆ ┆
0x055620…055622 00 00 ┆ ┆
0x055622…0557b6 Dummy {f00=0x0024, f01=0x0190, f02=»V R bzT dtW UvQ Vh UvT V V dtW bz 4 T V * W W F W 9h F # T * F &RP*` F $ <a # P # T W ;d$ P W . S P W W W W F $ <C # P @ $#@T W W W <! 1 9C V " W V@ W [ UvT2 U T,
0x0557b6…0557bc 00 00 00 00 00 00 ┆ ┆
0x0557bc…055950 Dummy {f00=0x0024, f01=0x0190, f02=»J 3^ W V V V ! P W ' T W &Rj V | Pb F & T ! P =d V V | W , R T 0 Q 1 R 1 " ^$ V !@9e + 1 V P V P P P P T V ! T U Pd &R F ! P, T F ! P hW F !@P P W V z N F
0x055950…055956 00 00 00 00 00 00 ┆ ┆
0x055956…055aea Dummy {f00=0x0024, f01=0x0190, f02=»TVWP T b TJ V ! T> V ! P$ &V2 F " T* F V P" V F W Z P Z < 3 W dt V ! P " T 4F V V V ' P >AV 4J V TV &"@T V P V * -l P <' T, V P T 3> Q HJ V Z W : W W Z Vh V . , F ' ! T &R @
0x055aea…055af0 00 00 00 00 00 00 ┆ ┆
0x055af0…055c84 (2, 10) Dummy {f00=0x0024, f01=0x0190, f02=» TL k v . h V | V " $ !++P G U R $ d _ F % 3 W 2 3> Z ' J W W @ W ~ Z0 V Z V P T <* = [ V V T :A J W V ! P " T 4F 4J V J M P N Q P Q P Q Q Q Q Q P P PX V W R 9A
0x055c84…055c8a 00 00 00 00 00 00 ┆ ┆
0x055c8a…055e1e Dummy {f00=0x0024, f01=0x0190, f02=» W Q 4 S T R (% P ' 4 S W J. P _X V * -l P P v W" V V P 8 @ T 7t P` P < ! T &R F W T ( | { V | ( W &R - 1T F # T + 1 T P @, V @ @, P
0x055e1e…055e20 00 00 ┆ ┆
0x055e20…055e24 00 00 00 00 ┆ ┆
0x055e24…055fb8 Dummy {f00=0x0024, f01=0x0190, f02=» 3 3 SV R R&Q( b W P ;h # " W W W [ V ! P V D ! P 3 4F 2 Z HP< 4 1 Z @ 3 3 T SV R Z|Xt_r b ! @R* V 3 & SV R Y Z W V < ]z 1Y~ 0"
0x055fb8…055fbe 00 00 00 00 00 00 ┆ ┆
0x055fbe…056152 Dummy {f00=0x0024, f01=0x0190, f02=» P TR Uv & Z [ _0 Z T : ; T( T> P,Z T> P R Z X TR Uv Z W _& : R @f R ' : ; Z Q ; W : [ v T 7t Z P W - W . ( W * Z : PR TR F ! [ [ T> U( TR Uv
0x056152…056158 00 00 00 00 00 00 ┆ ┆
0x056158…0562ec Dummy {f00=0x0024, f01=0x0190, f02=» T &R F # X ?H W W % _2 W >h W % V :P % _ : T ; V " :cTJ V PJ V :AR <:g" T2 &"@P* A V P$"@2@P F P P : 2 W <" :e2 [ : : @ V :f_ V & T v .& : U T V & T V & T [ : V % 5 P V =c V 4 4 &
0x0562ec…0562f2 00 00 00 00 00 00 ┆ ┆
0x0562f2…056486 Dummy {f00=0x0024, f01=0x0190, f02=» V D ! " :c [ Z :& 5RD R. & W Q _ Z Z $ W Q X 0 %_ /0 % 5 : ; +P P P P P W [ : : V T V @W. V " P DW D S# P F PD @4TL w : $ 9 @ P( v : V " T @LT @,T w :
0x056486…05648c 00 00 00 00 00 00 ┆ ┆
0x05648c…056620 Dummy {f00=0x0024, f01=0x0190, f02=» P " P2W R # W 0# V Q - P Y _ " TL V V 7t V ! R P Y _, P % P Y _D W _L V V V< - V & (% P P Y _< W _ W 3| W ]d W ]` P F TP
0x056620…056626 00 00 00 00 00 00 ┆ ┆
0x056626…0567ba Dummy {f00=0x0024, f01=0x0190, f02=» F $ P * T * W " = V T Y W T @W <H { : V ! T( V D " P F E V E R 3^ dt : _ ; [ 00 +<P +1 - #T -1 Z ` ` G >h ' 6n _ z| V ` _ z| V ` _ Q W Q W
0x0567ba…0567c0 00 00 00 00 00 00 ┆ ┆
0x0567c0…056954 (2, 11) Dummy {f00=0x0025, f01=0x0190, f02=» B W " T 0 : _> : [ < x V V P $ U _ V W V V W V $P V W $p Z : v - P0 -l P F & >F F K { _@ : ? P C _ :, &R $ F
0x056954…05695a 00 00 00 00 00 00 ┆ ┆
0x05695a…056aee Dummy {f00=0x0025, f01=0x0190, f02=» C C ( W V v l C @ C V | C ( B !@ V # V $ ! P ! T, T V P v :P @, ! T v : V E' P @P ! P( ! P" ! P ! P ! P ! P ! P W W P V 9g D @ P W V W > l @ C V ( C ( B
0x056aee…056af4 00 00 00 00 00 00 ┆ ┆
0x056af4…056c88 Dummy {f00=0x0025, f01=0x0190, f02=» Z V ; SR W [ ; & ; [ [ Z R _< U Z U Z ; Z Z _X [ ; ; [ V R. ; _ [ [ x V ! P W 8VT @ P Z Z Q R _ Z ] _ T W : 01W 02W 03W 04W 05W 06 A & V 0 V !
0x056c88…056c8e 00 00 00 00 00 00 ┆ ┆
0x056c8e…056e22 Dummy {f00=0x0025, f01=0x0190, f02=» ` 5 H Q ( H ' J. H ' Z h ' : _ P *! T _ : _ _ W X X : ` 8 R 9 : $ T ^ I I : V : V < ) I : ; P $# ,P T R %W ; _ :
0x056e22…056e28 00 00 00 00 00 00 ┆ ┆
0x056e28…056fbc Dummy {f00=0x0025, f01=0x0190, f02=» : W V ! b 3v V D ! T " T 3 3 V W D :l W T D P P P D # Pt Z [D Wx V P&Q V W WT V E D W R($ W V D P 4. D "@P D b,W D % D W V P D " E V W V R V #
0x056fbc…056fc0 00 00 00 00 ┆ ┆
0x056fc0…056fc2 00 00 ┆ ┆
0x056fc2…057156 Dummy {f00=0x0025, f01=0x0190, f02=»C _ 3 W _& T b R Q Wn W # D D $ E R E U D W Q ;H E D D W c6 T V W U W [ : V F V $T V $ P V V $ P E R E V [ :$ ; [ R @f R & [ [ Z [ R [
0x057156…05715c 00 00 00 00 00 00 ┆ ┆
0x05715c…0572f0 Dummy {f00=0x0025, f01=0x0190, f02=» Z & P Z h Z V | Z U C W* W R V T W Z h Z 3 W _ ; _ [ ; $ - < Z [ h [ i Z _ : V R b TD k < h i V V@ 3 <P # : C > C : d Ad Ad ` ZT
0x0572f0…0572f6 00 00 00 00 00 00 ┆ ┆
0x0572f6…05748a Dummy {f00=0x0025, f01=0x0190, f02=»q R Q n T W T U Z P " T T q P T U W P Q W q R Q Z Z , P o$ Z P Q T q T` T U T T @k T& P @ T Ak @ T W Pf L M @k I Ak U WJ W W W P h Z P
0x05748a…057490 00 00 00 00 00 00 ┆ ┆
0x057490…057624 (2, 12) Dummy {f00=0x0025, f01=0x0190, f02=» _ I W a ZW B M M d W X R _ &<H P < T W R < _ <h ' X : ; @ X T V g Tt Z _ U @ X 4<HT _ R <A_ <A <a ^ <h 5 P ;H R ' T P X _* :
0x057624…05762a 00 00 00 00 00 00 ┆ ┆
0x05762a…0577be Dummy {f00=0x0025, f01=0x0190, f02=» T Ak W Q T f :H R & T @ V P Q k W [ : B R :h f :H R & : $*#+-B.,9Zj j j jvjvjlj$j$j i ;K?K ;A?A V Jh V >h d ^ : ; F # ;C F $ (& k| &VP P F ! $# T d
0x0577be…0577c0 00 00 ┆ ┆
0x0577c0…0577c4 00 00 00 00 ┆ ┆
0x0577c4…057958 Dummy {f00=0x0025, f01=0x0190, f02=» j ; R Kh Jh ( !0 T. T, T ( S T 0W XRW ( [ ! T _ S X T * P $ P # T Wx T [ _ X WX Z Xd WN P ] P0 !+ -W& ( !0 T T X N W [ ! T _ d
0x057958…05795e 00 00 00 00 00 00 ┆ ┆
0x05795e…057af2 Dummy {f00=0x0025, f01=0x0190, f02=»R2 !99Q, R <P P < -_ _@ [ R d _ : : # : ; P, 8 ' _ ; P 8 'T _ W [ : : X ' _ [ & m> m Pd & n P &@T n P g X n o$R T T
0x057af2…057af8 00 00 00 00 00 00 ┆ ┆
0x057af8…057c8c Dummy {f00=0x0025, f01=0x0190, f02=» Z o$ T U TN T T& P@ @ T Ak @ T W P L M @k I Ak U W o$R< n T P n T . U W T T TV o$R T T & n g B gT n n n p T P Q Z ' Pj o$_x B R
0x057c8c…057c92 00 00 00 00 00 00 ┆ ┆
0x057c92…057e26 Dummy {f00=0x0025, f01=0x0190, f02=» U T @ V P T p U B TZT. Z P Q o$ T R >H W: p Q,R. o$ _( p W" W W W W W C W W Z [ : o P W( k B R >h U U [ : @ T @ X 4# P W @ V H
0x057e26…057e2c 00 00 00 00 00 00 ┆ ┆
0x057e2c…057fc0 Dummy {f00=0x0025, f01=0x0190, f02=» @ T _@ B U T " TJ @k P, P@ @ T T M U P T Ak Ak @k T Ak W W W [ : @ Z P TL T ( _. @ V H k PB @ V H P P T @W Q k P Q
0x057fc0…057fc6 00 00 00 00 00 00 ┆ ┆
0x057fc6…05815a Dummy {f00=0x0025, f01=0x0190, f02=» J $ K a Z Y T4( X ` Z P X W a Z Y Y X W C [ : [ [ qx C Aqx Aq Aq| @d C P P Pv @Pv s Wt v Tn @d X >h Aq gTTX [ @d q k Aq P2 @d X C
0x05815a…058160 00 00 00 00 00 00 ┆ ┆
0x058160…0582f4 (2, 13) Dummy {f00=0x0025, f01=0x0190, f02=»s T J _D B ( @q T0 @q T* Aq Aqx o$Q T Z >H R q W: d K @q C ( J Aq B =H K s Tb @q T P2 @q d k `q P >H R q _ _l @q| C ( d s T qx v R Q W C W W Z Z [ : ;
0x0582f4…0582fa 00 00 00 00 00 00 ┆ ┆
0x0582fa…05848e Dummy {f00=0x0025, f01=0x0190, f02=» P T@ P C W T P & T Q k P C W k k k ( B P X T B Q Q Z P B ( C B * C / ' ( B T Tt Z PjW T^ T> @ V H
0x05848e…058494 00 00 00 00 00 00 ┆ ┆
0x058494…058628 Dummy {f00=0x0025, f01=0x0190, f02=»v C ( C * 4<HT _ R <A_ <A <a ^ C *<h 5 @d T ( 8 Y U v W W B ( K J T P B ( d *V. K C ( d s T J C ( d J J ( ,V J J N_T B ( * d R _ *<H P <
0x058628…05862e 00 00 00 00 00 00 ┆ ┆
0x05862e…0587c2 Dummy {f00=0x0025, f01=0x0190, f02=» : B TP, B W B P d P s T K C ( s T @d T d J < @ P K W Z y. d uvP( d J T y& K C ( s T _. B ( d K J C ( s
0x0587c2…0587c8 00 00 00 00 00 00 ┆ ┆
0x0587c8…05895c Dummy {f00=0x0025, f01=0x0190, f02=» k * E J E 2 s T J W C ( u T d s Tr J " &WR Z T& D K Xv k _l @T _0 X C ( s T W @ C W C W R W [ : W _ P2 T !00R$ !99Q $ Y T
0x05895c…058960 00 00 00 00 ┆ ┆
0x058960…058962 00 00 ┆ ┆
0x058962…058af6 Dummy {f00=0x0025, f01=0x0190, f02=» 9C : T _* 4 !00Z !99Y ! : ' d PN ; Pz + V - 9 P T P 0 :P 9 Pz 0 :P 9 : : ^ P8 ; P 0" _ 0 -T W +P " : : H H P J.W J6 H H I I ) :
0x058af6…058afc 00 00 00 00 00 00 ┆ ┆
0x058afc…058c90 Dummy {f00=0x0025, f01=0x0190, f02=» R { Z Z P + _ : U` P [ & ; C P ] Z W* Z Q V W Z * V _8 P<R P. & T ~ _ _ P + _ U$ P & T ~ _ + _ :<d$ P U ; [
0x058c90…058c96 00 00 00 00 00 00 ┆ ┆
0x058c96…058e2a Dummy {f00=0x0025, f01=0x0190, f02=» Pn J % T 0 K Z & & T T P.R W. 0 P" + _ 0 P 9 _ P0 { W* { Z P & ; C X V : ?l' P> U & T ~ _ +P -P +W T 0 ' W + : Z Q" Z P *
0x058e2a…058e30 00 00 00 00 00 00 ┆ ┆
0x058e30…058fc4 (2, 14) Dummy {f00=0x0025, f01=0x0190, f02=» 0 K W, *' P& 0R Q W 0 ' *W 4 : ; @ : : W v | V W W ~ w | W : | V : z C C ( B TL W B R ' W ! C QR V T V H ! P P I V ` P W @T 3^ T dt @
0x058fc4…058fca 00 00 00 00 00 00 ┆ ┆
0x058fca…05915e Dummy {f00=0x0025, f01=0x0190, f02=» @ _ 8 T @ _ P* | G C G k _. U d _ [ [ z & h Z i Z Z z ' h Z Z _ V P | G C @, : { ," d L " L "
0x05915e…059160 00 00 ┆ ┆
0x059160…059164 00 00 00 00 ┆ ┆
0x059164…0592f8 Dummy {f00=0x0025, f01=0x0190, f02=» ( ( ( . ( ! > ( A N ( a ^ ( n ( ~ ( ( ( ( ! ( A ( a ( (
0x0592f8…0592fe 00 00 00 00 00 00 ┆ ┆
0x0592fe…059492 Dummy {f00=0x0025, f01=0x0190, f02=» ( ( ( ! . ( A > ( a N ( ^ ( n ( ~ ( ( ( ! ( A ( a ( ( (
0x059492…059498 00 00 00 00 00 00 ┆ ┆
0x059498…05962c Dummy {f00=0x0025, f01=0x0190, f02=» ( ( ! ( A . ( a > ( N ( ^ ( n ( ~ ( ( ! ( A ( a ( ( ( (
0x05962c…059632 00 00 00 00 00 00 ┆ ┆
0x059632…0597c6 Dummy {f00=0x0025, f01=0x0190, f02=» ( ! ( A ( a . ( > ( N ( ^ ( n ( ~ ( ! ( A ( a ( ( ( ( (
0x0597c6…0597cc 00 00 00 00 00 00 ┆ ┆
0x0597cc…059960 Dummy {f00=0x0025, f01=0x0190, f02=» ! ( A ( a ( . ( > ( N ( ^ ( n ( ! ~ ( A ( a ( ( ( ( ( ( !
0x059960…059966 00 00 00 00 00 00 ┆ ┆
0x059966…059afa Dummy {f00=0x0025, f01=0x0190, f02=» A ( a ( ( . ( > ( N ( ^ ( ! n ( A ~ ( a ( ( ( ( ( ( ! ( A
0x059afa…059b00 00 00 00 00 00 00 ┆ ┆
0x059b00…05a7a0 (3, 0) DirGranule ((3, 0)) {
0x059b00…05a7a0 DirEnt {nam=»WSM:CR«, typ=»EA«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab5c, f01=0x0000, f02=0x04c8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»WSMERR«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x04e0, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»WSMDDV«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x04f0, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»OBJVAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0520, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»FSINIT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x05a8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»VALPRC«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x05c8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»FSMSPP«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0608, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»FSDISC«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0650, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»FSUPDT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0660, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»FSNAME«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0688, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»READIN«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06b8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»WSMKEY«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06d8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT1 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06e0, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT2 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06e8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT3 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06f0, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT4 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06f8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»WSMDDV«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0700, f03=0x4000}
0x059b00…05a7a0 DirEnt {nam=»SYNVAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0718, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»WSMAPP«, typ=»SC«, f00=0xab5c, f01=0x0000, f02=0x0798, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT5 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07e8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT6 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07f0, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT7 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07f8, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT8 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0800, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»KEYT9 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0808, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»PSSC L«, typ=» «, f00=0x0c98, f01=0x0000, f02=0x4b45, f03=0x5954}
0x059b00…05a7a0 DirEnt {nam=»16SC L«, typ=» «, f00=0x0cb8, f01=0x0000, f02=0x4b45, f03=0x5954}
0x059b00…05a7a0 DirEnt {nam=»33SC L«, typ=» «, f00=0x0cc0, f01=0x0000, f02=0x5753, f03=0x4d50}
0x059b00…05a7a0 DirEnt {nam=»RTSC L«, typ=» «, f00=0x0cc8, f01=0x0000, f02=0x4b45, f03=0x5954}
0x059b00…05a7a0 DirEnt {nam=»14SC L«, typ=» «, f00=0x0ce0, f01=0x0000, f02=0x5753, f03=0x4d43}
0x059b00…05a7a0 DirEnt {nam=»ALSC L«, typ=» «, f00=0x0ce8, f01=0x0000, f02=0x423a, f03=0x5052}
0x059b00…05a7a0 DirEnt {nam=»OCUF V«, typ=» «, f00=0x0d00, f01=0x0000, f02=0x4d4f, f03=0x5656}
0x059b00…05a7a0 DirEnt {nam=»ALSC L«, typ=» «, f00=0x0d08, f01=0x0000, f02=0xffff, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=»ID «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=» «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x059b00…05a7a0 DirEnt {nam=» &ID «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x059b00…05a7a0 }
0x05a7a0…05a7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x05a7c0…05a7d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x05a7d0…05a964 (3, 1) Opaque[0x194]
0x05a964…05a96a 00 00 00 00 00 00 ┆ ┆
0x05a96a…05aafe # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab5c, f01=0x0000, f02=0x04c8, f03=0x0000}
0x05a96a…05aafe IdxSect {
0x05a96a…05aafe f00 = 0x0026 // 0x5a96a @0x0
0x05a96a…05aafe f01 = 0x0006 // 0x5a96c @0x2
0x05a96a…05aafe gno = [ // 0x5a96e @0x4
0x05a96a…05aafe [0x00]: C0x0026.0x1.0
0x05a96a…05aafe [0x01]: C0x0026.0x2.0
0x05a96a…05aafe [0x02]: C0x0026.0x3.0
0x05a96a…05aafe ]
0x05a96a…05aafe }
0x05aafe…05ab00 00 00 ┆ ┆
0x05ab00…05ab04 00 00 00 00 ┆ ┆
0x05ab04…05ac98 Dummy {f00=0x0026, f01=0x0190, f02=» P P N P************************************************************************* N P** ** f N P** W S M CREATOR TOOLS USER INFORMATION - ADAPTED FOR MAS/SDS ** N
0x05ac98…05ac9e 00 00 00 00 00 00 ┆ ┆
0x05ac9e…05ae32 Dummy {f00=0x0026, f01=0x0190, f02=»********************* P P DIRECTORY= WSM:CREA & P H P P 2 P - SOURCE AND OBJECT OF WSM CREATOR TOOLS. X > P USE %%CRE TO TRANSLATE SOURCE MODULES (SEE B:PROC). " P OBJECT LIBRARY: CREOBJ. P P - CREA <DADFC>
0x05ae32…05ae38 00 00 00 00 00 00 ┆ ┆
0x05ae38…05afcc Dummy {f00=0x0026, f01=0x0190, f02=»BUG J P ( P OFFICIAL RELEASE DATE: 850901 P RELEASE DATES: @ F P 850901 WSM REL 2.3 -> ACTION-CENTRE ^ @ P 840401 UPDATED VERSION OF 2.2 < P
0x05afcc…05afd2 00 00 00 00 00 00 ┆ ┆
0x05afd2…05b166 Dummy {f00=0x0026, f01=0x0190, f02=»1210 " " " " p : P 841201 WSM RELEASE 2.2 $ @ P 841101 UPDATED VERSION OF 2.1 b : P 841001 WSM RELEASE 2.1 ( P 840402
0x05b166…05b16c 00 00 00 00 00 00 ┆ ┆
0x05b16c…05b300 Dummy {f00=0x0026, f01=0x0190, f02=» ( P 830601 ( P 830407 0 P HISTORY: P r P z 8 P 851025 WSMAPP SECTION NAME CHECK CORRECTED. B P 851010 FSINIT "-"SIGN EOI FOR SEC GUID MESS - SOLVED. J P
0x05b300…05b306 00 00 00 00 00 00 ┆ ┆
0x05b306…05b49a Dummy {f00=0x0026, f01=0x0190, f02=»TED. R F P 850808 WSMERR CHANGE IN FORMAT WSMERS FROM DISC TO DISK. 8 P 850701 WSMDDV RELDAT=850701 AND RELNUM=3.0. V P 850702/03 FSPARM,OBJVAL: @ P VALBUF EMPY ? NOK WHEN COMPL. DELETED H P 850613
0x05b49a…05b4a0 00 00 00 00 00 00 ┆ ┆
0x05b4a0…05b634 (3, 2) Dummy {f00=0x0026, f01=0x018e, f02=» CHECK OVFL.ENTRIES IN ATTAB.'DISPLY' COULD FAIL 8 P 850605 FSMODL CHECK TIME-OUT ON KEY-BOARD. > J P 850531 VALPRC DIRECT VAL.OBJ. MOVE, NOK WHEN DELETE FULL LINE z H P 85-05-09 SYNVAL&OBJVAL: FID CONTROL CHANGED TO AVOID CONFLI
0x05b634…05b63a 00 00 00 00 00 00 ┆ ┆
0x05b63a…05b7ce Dummy {f00=0x0026, f01=0x0190, f02=» : P 85-04-03 VALPRC STOBUF ERROR WHEN VALPAGE FULL F P 85-03-27 OBJVAL SYNTAX ERROR FOUND WHEN: ERR "HI","HI...." B @ P 85-03-21 MOVVAL ERROR WHEN POOL EXACTLY FULL - SOLVED : P 85-03-21 FSPARM CLEAR TKBOOL AT END OF SECTION
0x05b7ce…05b7d4 00 00 00 00 00 00 ┆ ┆
0x05b7d4…05b968 Dummy {f00=0x0026, f01=0x018e, f02=» TO NEW BPOOL X H P 85-03-18 MOVVAL CREATED 850222/HL USED BY PROJECT MOVE OBJECT J P 85-03-13 PROJECT MOVE OBJECT DIRECT FROM OLD BPOOL TO NEW BPOOL b F P CHANGES MADE IN FOLLOWING MODULES: WSMDDV, D P
0x05b968…05b96e 00 00 00 00 00 00 ┆ ┆
0x05b96e…05bb02 Dummy {f00=0x0026, f01=0x0190, f02=» J F P 85-03-06 FSMODL ATTAB ERROR WHEN CONC A NEW ENTRY - SOLVED F P 85-03-06 FSPARM TAKING CARE OF SYNTAX-ERROR FROM "OBJVAL" R H P 85-03-06 UDFVAL ERR WHEN NUM CONST 1ST OPERAND LEFT - SOLVED < P 85-03-05 OBJVAL OBJECT ER
0x05bb02…05bb08 00 00 00 00 00 00 ┆ ┆
0x05bb08…05bc9c Dummy {f00=0x0026, f01=0x0190, f02=»01 h B P 85-02-21 SYNVAL FASTER PROCESSING OF EVALUATION OF FIDS < P 85-02-20 VALPRC OBJECT ERROR "DISASTER" - SOLVED P D P 85-02-14 OBJVAL FASTER PROCESSING OF EVALUATION OF FIDS < P 85-02-11 UDFVAL ERR CAUSED BY REP 840821
0x05bc9c…05bca0 00 00 00 00 ┆ ┆
0x05bca0…05bca2 00 00 ┆ ┆
0x05bca2…05be36 Dummy {f00=0x0026, f01=0x0190, f02=»1220 j J P 84-12-14 FSMODL ERROR CAUSED BY OLD REP. - SPCBAR POS 0 SOLVED . P 84-12-10 WSMDDV RELEASE DATE 841210 Z J P 84-12-07 UNPACK DEF GUID MESS ERR - CLEAR GST80I(W1) INITIALLY N P 84-12-07 UDFVAL CONC IN ERRMSG NOT OK E
0x05be36…05be3c 00 00 00 00 00 00 ┆ ┆
0x05be3c…05bfd0 Dummy {f00=0x0026, f01=0x0190, f02=»ION - ASSEMBLERROUTINE WITH MUL,DIV AND SHIFT. t B P 84-11-20 FOLLOWING MODULES NOW USE MUL&DIV FROM WSMCAL: 6 L P UDFVAL,FSMODL,OBJVAL,VALPRC,FSMSPP,FSINIT,WSMAPP,FSPARM, | 6 P PRNTFS,SYNVAL,UNPACK,FSNAME,WSMCRT ( P
0x05bfd0…05bfd6 00 00 00 00 00 00 ┆ ┆
0x05bfd6…05c16a Dummy {f00=0x0026, f01=0x0190, f02=» WSMDDV BPOOL SIZE DEFINED =60 POOLUNITS A' 256 BYTES B P 84-10-17 VALPRC ERROR AFTER INS NEW LINE + TFD - SOLVED @ P 84-10-01 WSMCRT,WSMDDV > P INTERTASK COMMUNICATION IMPLEMENTED D P 84-09-25 FSNAME MODIF
0x05c16a…05c170 00 00 00 00 00 00 ┆ ┆
0x05c170…05c304 (3, 3) Dummy {f00=0x0026, f01=0x40f0, f02=»02 - SOLVED ` @ P 84-08-21 WSMDDV VBOOL9 DEFINED FOR UDFVAL CONC ERROR > P 84-04-02 PRNTFS <PRINT> VIA VD47/81 NOT OK - SOLVED X P F P****** ALL USERINFO BEFORE 840101 IS DELETED /CJ 850701 ****** @
0x05c304…05c30a 00 00 00 00 00 00 ┆ ┆
0x05c30a…05c49e Dummy {f00=0x0026, f01=0x2008, f02=» VED ` @ P 84-08-21 WSMDDV VBOOL9 DEFINED FOR UDFVAL CONC ERROR > P 84-04-02 PRNTFS <PRINT> VIA VD47/81 NOT OK - SOLVED X P F P****** ALL USERINFO BEFORE 840101 IS DELETED /CJ 850701 ****** @
0x05c49e…05c4a0 00 00 ┆ ┆
0x05c4a0…05c4a4 00 00 00 00 ┆ ┆
0x05c4a4…05c638 Dummy {f00=0x0026, f01=0x5c4d, f02=»OVE LBIN3,W4 NOT OK EDIT-MODE RITE' DISPLAY ********************* O=18 RET 3 BIN3,W1 OK UNCOND DISPLAY SAGE AT ERROR AY NE EJECT BIN3,W3 NOT OK ERROR MESSAGE -NUMBER AT ERROR Y "GO DIRECT" **************************
0x05c638…05c63e 00 00 00 00 00 00 ┆ ┆
0x05c63e…05c7d2 Dummy {f00=0x0026, f01=0x2a20, f02=» APPLICATION-ROUTINE NO=1 E RITE' DISPLAY ********************* O=18 * WSMENU FUNCTION VALUE PLAY SAGE AT ERROR AY NE * JECT BIN3,W3 NOT OK ERROR MESSAGE -NUMBER AT ERROR Y "GO DIRECT" **************************
0x05c7d2…05c7d8 00 00 00 00 00 00 ┆ ┆
0x05c7d8…05c96c Dummy {f00=0x0026, f01=0x5c50, f02=»ERF RANGE,W1,W4 ***RANGE 1-4 RITE' DISPLAY ********************* O=18 BOK APPOK0 OK NCTION VALUE PLAY SAGE AT ERROR AY NE MOVE LBIN4,W6 NOT OK ERROR MESSAGE -NUMBER AT ERROR Y "GO DIRECT" B APNOK3 NOT OK *********
0x05c96c…05c972 00 00 00 00 00 00 ┆ ┆
0x05c972…05cb06 Dummy {f00=0x0026, f01=0x2a2a, f02=»********************************************************************** * OK APPOK0 OK NCTION VALUE PLAY SAGE AT ERROR AY NE * APPLICATION-ROUTINE NO=2 SSAGE -NUMBER AT ERROR Y "GO DIRECT" * SECTION NAME CONTROL
0x05cb06…05cb0c 00 00 00 00 00 00 ┆ ┆
0x05cb0c…05cca0 Dummy {f00=0x0026, f01=0x2a20, f02=» -NOT FOUND? ****************************************************** * -1ST POSITION ALPHABETIC Y SAGE AT ERROR AY NE * APPLICATION-ROUTINE NO=2 SSAGE -NUMBER AT ERROR Y "GO DIRECT" **************************
0x05cca0…05cca6 00 00 00 00 00 00 ┆ ┆
0x05cca6…05ce3a Dummy {f00=0x0026, f01=0x5c4d, f02=»OVE LSTR1,LSTR81 ***************************************************** MOVE LBIN3,W6 FIELD LENGTH:=6 Y SAGE AT ERROR AY NE CBL LSTR1,=C'A',APP029 NO=2 SSAGE -NUMBER AT ERROR Y "GO DIRECT" CBG LSTR1,=C'Z',APP029 **
0x05ce3a…05ce40 00 00 00 00 00 00 ┆ ┆
0x05ce40…05cfd4 (3, 4) Opaque[0x194]
0x05cfd4…05cfda 00 00 00 00 00 00 ┆ ┆
0x05cfda…05d16e # DirEnt {nam=»WSMERR«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x04e0, f03=0x0000}
0x05cfda…05d16e IdxSect {
0x05cfda…05d16e f00 = 0x0027 // 0x5cfda @0x0
0x05cfda…05d16e f01 = 0x0004 // 0x5cfdc @0x2
0x05cfda…05d16e gno = [ // 0x5cfde @0x4
0x05cfda…05d16e [0x00]: C0x0027.0x0.0
0x05cfda…05d16e [0x01]: C0x0027.0x1.0
0x05cfda…05d16e ]
0x05cfda…05d16e }
0x05d16e…05d174 00 00 00 00 00 00 ┆ ┆
0x05d174…05d308 Dummy {f00=0x0027, f01=0x0190, f02=» . P IDENT WSMERR REL=2.3,850808,870155940230 P 6 B P************************************************************** > P* ( P* LATEST UPDATE 850808 MADE BY CJ P* P* HISTORY= P* B P* 850808/CJ CHANGE IN FORMA
0x05d308…05d30e 00 00 00 00 00 00 ┆ ┆
0x05d30e…05d4a2 Dummy {f00=0x0027, f01=0x0190, f02=»OR-MESSAGE NO=38,39 AND 40 IMPLEMENTED FOR OVE. v L P* 840119/CJ CHANGE OF ERR.MESS: FORMAT -> FORM , TOO -> TO. 8 D P* 830921/CJ TESTING ON LBOOL4 WHEN <DUPL> CANCELLED. @ P* 830615/CJ ACOUSTIC ALARM FOR ALL SCREENS IM
0x05d4a2…05d4a8 00 00 00 00 00 00 ┆ ┆
0x05d4a8…05d63c Dummy {f00=0x0027, f01=0x0190, f02=»LBIN2 = 0 POWER OFF v 4 P* = 1 CLEAR-KEY 6 P* = 2 CANCEL-KEY V 4 P* = 3 RETUR-KEY : P* = 4 EDIT-KEY (CFW) P D
0x05d63c…05d640 00 00 00 00 ┆ ┆
0x05d640…05d642 00 00 ┆ ┆
0x05d642…05d7d6 Dummy {f00=0x0027, f01=0x0190, f02=»OS z P PKTAB KEYT1 P PLIT COLPOS & P MOVE LBIN2,W1 INDICATE CLEAR-KEY 2 P* P* ERROR HANDLING f P* ( P MOVE LBIN3,=X'4F' FC FOR KB-BUZZER 6 P CALL CHANFC,SYSL,LBIN3 ---CHANGE FC TO KB-BUZZER ( P MOVE LBIN3,=X'8000' B
0x05d7d6…05d7dc 00 00 00 00 00 00 ┆ ┆
0x05d7dc…05d970 Dummy {f00=0x0027, f01=0x0190, f02=»OW 01 COL. 1 z $ P TBT VD82,ERR010 JUMP IF VD82/83 0 P CALL CHANFC,SYSL,SCRNFC ---CHANGE FILE CODE < & P MOVE LBIN3,=X'1801' ROW 24 COL. 1 p PERR010 * P* EDWRT SYSL,BELL ACOUSTIC ALARM VD46 . P CBNG LBIN4,W0,ERR900 JUMP IF NO PRINTOUT ( P
0x05d970…05d976 00 00 00 00 00 00 ┆ ┆
0x05d976…05db0a Dummy {f00=0x0027, f01=0x0190, f02=» & P DSC SYSL,2,COLS ERASE OLD CONTENT P*ERR020 . , P DSC SYSL,6,LBIN3 SET CURSOR ON LAST ROW > P EDWRT SYSL,WFMTERR(LBIN4) n P EJECT P* P* READ AFTER ERROR P* ( P SETCUR SET CURSOR AT THE BEGINNING P OF THE CU
0x05db0a…05db10 00 00 00 00 00 00 ┆ ┆
0x05db10…05dca4 (3, 5) Dummy {f00=0x0027, f01=0x0190, f02=»R100 JUMP IF NOT OK * P CBE LBIN2,W0,ERR900 JUMP IF POWER OFF P EJECT J P* X P* CLEAR ERROR PRINTOUT b P* & P MOVE LBIN3,=X'0101' ROW 01 COL. 1 $ P TBT VD82,ERR200 JUMP IF VD82/83 & P MOVE LBIN3,=X'1801' ROW 24 COL. 1
0x05dca4…05dcaa 00 00 00 00 00 00 ┆ ┆
0x05dcaa…05de3e Dummy {f00=0x0027, f01=0x0190, f02=»ST LINE t , P CBNE LBIN2,W1,ERR900 JUMP IF NOT CLEAR , P CBE LBIN1,W0,ERR900 JUMP IF LENGTH = 0 @ 0 P MOVE LSTR81,:FMTITEM SAVE CURRENT CONTENTS p P MOVE LSTR1,=X'3100' 4 P MOVE :FMTITEM,LSTR1 PUT SOMETHING IN THE FIELD $ P GETABX LBIN4 GE
0x05de3e…05de40 00 00 ┆ ┆
0x05de40…05de44 00 00 00 00 ┆ ┆
0x05de44…05dfd8 Dummy {f00=0x0027, f01=0x0176, f02=»T CURRENT TAB INDEX . P TBT LBOOLD,ERR250 DISPLAY PROMPT + FIELDS ( P DISPLAY 1,LBIN4,LBIN4 DISPLAY FIELD N P B ERR900 z , PERR250 DISPLAY 4,W1,W0 DISPLAY HOLD LINE P* PERR900 P RET P EJECT P*BELL FRMT P* FSL
0x05dfd8…05dfde 00 00 00 00 00 00 ┆ ┆
0x05dfde…05e172 Dummy {f00=0x0027, f01=0x2008, f02=» T TAB INDEX . P TBT LBOOLD,ERR250 DISPLAY PROMPT + FIELDS ( P DISPLAY 1,LBIN4,LBIN4 DISPLAY FIELD N P B ERR900 z , PERR250 DISPLAY 4,W1,W0 DISPLAY HOLD LINE P* PERR900 P RET P EJECT P*BELL FRMT P* FSL
0x05e172…05e178 00 00 00 00 00 00 ┆ ┆
0x05e178…05e30c Dummy {f00=0x0027, f01=0x5c46, f02=»LINK ERFM06 E (.) OR (,)' )' LPHBETIC (A-Z)' FTEXT 'MUST BE (M:) OR (S:)' -6' ED' FMEND 'MUST BE WITHIN ' POOL-ERROR C G ALL ERROR MESSAGES * FM13 FRMT ,GBCD3I(VBIN5)
0x05e30c…05e312 00 00 00 00 00 00 ┆ ┆
0x05e312…05e4a6 Dummy {f00=0x0027, f01=0x4552, f02=»FM15 FRMT 6 E (.) OR (,)' )' LPHBETIC (A-Z)' FSL T 'MUST BE (M:) OR (S:)' -6' ED' FTEXT 'FIELD NAME ALREADY DEFINED' C G ALL ERROR MESSAGES FMEND FRMT ,GBCD3I(VBIN5)
0x05e4a6…05e4ac 00 00 00 00 00 00 ┆ ┆
0x05e4ac…05e640 Dummy {f00=0x0027, f01=0x4552, f02=»FM16 FRMT 6 E (.) OR (,)' )' LPHBETIC (A-Z)' FSL T 'MUST BE (M:) OR (S:)' -6' ED' FTEXT 'WSM WORK ITEM (WS../WA../WN..) NOT ALLOWED' ESSAGES FMEND FRMT ,GBCD3I(VBIN5)
0x05e640…05e646 00 00 00 00 00 00 ┆ ┆
0x05e646…05e7da Dummy {f00=0x0027, f01=0x4552, f02=»FM17 FRMT 6 E (.) OR (,)' )' LPHBETIC (A-Z)' FSL T 'MUST BE (M:) OR (S:)' -6' ED' FTEXT 'MUST BE A FIELD NAME, WSM WORK ITEM OR A DATA TABLE' FMEND FRMT ,GBCD3I(VBIN5)
0x05e7da…05e7e0 00 00 00 00 00 00 ┆ ┆
0x05e7e0…05e974 (3, 6) Opaque[0x194]
0x05e974…05e97a 00 00 00 00 00 00 ┆ ┆
0x05e97a…05eb0e # DirEnt {nam=»WSMDDV«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x04f0, f03=0x0000}
0x05e97a…05eb0e IdxSect {
0x05e97a…05eb0e f00 = 0x0027 // 0x5e97a @0x0
0x05e97a…05eb0e f01 = 0x000c // 0x5e97c @0x2
0x05e97a…05eb0e gno = [ // 0x5e97e @0x4
0x05e97a…05eb0e [0x00]: C0x0027.0x2.0
0x05e97a…05eb0e [0x01]: C0x0027.0x3.0
0x05e97a…05eb0e [0x02]: C0x0028.0x0.0
0x05e97a…05eb0e [0x03]: C0x0028.0x1.0
0x05e97a…05eb0e [0x04]: C0x0028.0x2.0
0x05e97a…05eb0e [0x05]: C0x0028.0x3.0
0x05e97a…05eb0e ]
0x05e97a…05eb0e }
0x05eb0e…05eb14 00 00 00 00 00 00 ┆ ┆
0x05eb14…05eca8 Dummy {f00=0x0027, f01=0x0190, f02=» . P IDENT WSMDDV REL=2.3,850901,870155940230 P 6 F P***************************************************************** > P* P* W S M P* : P* WORK STATION MANAGEMENT CREATOR TOOLS DATADIVISION P* ( P* LATEST
0x05eca8…05ecae 4c 55 4d 45 2d 4e ┆LUME-N┆
0x05ecae…05ee42 Dummy {f00=0x0027, f01=0x0190, f02=»* 841001/ME INTERTASK COMMUNICATION IMPLEMENTED > P* 840821/CJ VBOOL9 DEFINED FOR UDFVAL CONC ERR B : P* 831214/CJ SLBIN1-9 WORK-VARIABLES DEFINED 8 P* 831207/CJ OFBOOL,CMBOOL,OBBOOL DEFINED > P*
0x05ee42…05ee48 4c 55 4d 45 2d 4e ┆LUME-N┆
0x05ee48…05efdc Dummy {f00=0x0027, f01=0x0190, f02=» 830919/CJ VBBOOL T IF VALBUF OVERFLOW OCCUR > P* 830919/CJ VD82CW DEFINED CONTROLWORD FOR VD82 6 < P* 830802/CJ SCBIN,WRBIN,CUBIN,OVBOOL DEFINED x < P* 830727/CJ NSTR4A DEFINED, USED BY NEW <OVE> < P* 8307
0x05efdc…05efe0 4c 55 4d 45 ┆LUME┆
0x05efe0…05efe2 2d 4e ┆-N┆
0x05efe2…05f176 Dummy {f00=0x0027, f01=0x0190, f02=»ELEASE NUMBER IN TRANSFER STRG "RELNUM" x P* 0 F P***************************************************************** : P DDIV P TERM C1 P CWB CB1 P CWB CB2 P CWB CB3 P TWB TB1 P TWB TB2 P TWB TB3 P TWB T
0x05f176…05f17c 4c 55 4d 45 2d 4e ┆LUME-N┆
0x05f17c…05f310 Dummy {f00=0x0027, f01=0x0190, f02=» v PKEYB DSET FC=X'20' PPRNT DSET FC=X'30',BUFL=130 " PSCRN DSET FC=X'50',BUFL=100 F PSYSL DSET FC=X'58',DSCB=SCRN j , PITCIN DSET FC=X'D0' =ITC INTERTASK INPUT : PITCOUT DSET FC=X'D1',DSCB=ITCIN =ITC INTERTASK OUTPUT P FMTCTL INDS
0x05f310…05f316 4c 55 4d 45 2d 4e ┆LUME-N┆
0x05f316…05f4aa Dummy {f00=0x0027, f01=0x0190, f02=» P CWB CB3 P EJECT P STACK 60 " P START FCTASK 4 P EJECT J P* X P* COMMONWORKBLOCK b P* PCB1 BLK PW0 BIN W'0' CONSTANT PW1 BIN W'1' CONSTANT PW2 BIN W'2' CONSTANT PW3 BIN W'3' CONSTANT
0x05f4aa…05f4b0 4c 55 4d 45 2d 4e ┆LUME-N┆
0x05f4b0…05f644 (3, 7) Dummy {f00=0x0027, f01=0x0190, f02=» | PW9 BIN W'9' CONSTANT PW10 BIN W'10' CONSTANT $ PW11 BIN W'11' CONSTANT B PW12 BIN W'12' CONSTANT ` PW13 BIN W'13' CONSTANT ~ PW14 BIN W'14' CONSTANT PW15 BIN W'15' CONSTANT P EJECT P* P* COMMON WORKBLOC
0x05f644…05f64a 00 00 00 00 00 00 ┆ ┆
0x05f64a…05f7de Dummy {f00=0x0027, f01=0x018e, f02=»19' CONSTANT PW20 BIN W'20' CONSTANT PW21 BIN W'21' CONSTANT 2 PW22 BIN W'22' CONSTANT P PW23 BIN W'23' CONSTANT n PW24 BIN W'24' CONSTANT PW80 BIN W'80' CONSTANT " PLPBIN BIN LENGTH OF POOL-UNIT & PDPBIN BIN DIMENSION OF PO
0x05f7de…05f7e0 00 00 ┆ ┆
0x05f7e0…05f7e4 00 00 00 00 ┆ ┆
0x05f7e4…05f978 Dummy {f00=0x0027, f01=0x0190, f02=» j D PDUNIT STRG X'F0F0F1F2F3F8F9FAFBF4F5F6F7FCFDFEFF' DISC-UNIT CODES : P* 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 P : P* 1 1 1 1 1 1 1 2 P* DISC CODE : F0 = FIX 1 F1 = CART.1 2 P*
0x05f978…05f97e 00 00 00 00 00 00 ┆ ┆
0x05f97e…05fb12 Dummy {f00=0x0027, f01=0x0190, f02=» FB = FLOPPY 4 p 4 P* F4 = MINFIX1 F5 = MINFIX 2 4 P* F6 = MINFIX3 F7 = MINFIX 4 P 6 P* FC = 80M/WCH 1 FD = 80M/WCH 2 6 P* FE = 80M/WCH 3 FF = 80M/WCH 4 P EJECT
0x05fb12…05fb18 00 00 00 00 00 00 ┆ ┆
0x05fb18…05fcac Dummy {f00=0x0027, f01=0x0190, f02=» BYTES ADM-DATA P 248 BYTES OBJECT CODE P 2 BYTES ADM DATA : P* V P* STATEMENT TEXT STRING ` P* PSTMTS STRG 71'LETLET 01,03 C P GO TOGOTO 04,05 C P IFTHEN 06 C P IFTHEN 08 C P ONGO TO 0A C
0x05fcac…05fcb2 00 00 00 00 00 00 ┆ ┆
0x05fcb2…05fe46 Dummy {f00=0x0027, f01=0x0190, f02=»16 C P WARN 18 C P REM 1A C P ;' 1C 2 P EJECT B P* P P* STATEMENT VALUE STRING Z P* ~ . PSTVAL STRG X'01FFFF03FFFF 01=LET,03=LET C , P 04FFFFFFFF05FFFFFF 04=GO TO,05=GOTO C ( P 06FF06FFFFFF 06=IF THEN LINE
0x05fe46…05fe4c 00 00 00 00 00 00 ┆ ┆
0x05fe4c…05ffe0 Dummy {f00=0x0027, f01=0x0190, f02=»FF 0C=CALL C P 0EFFFFFF 0E=SECT C P 10FFFFFF 10=ATTR C 0 P 12FFFFFF 12=STOP C L P 14FFFFFF 14=EXIT C h P 16FFFF 16=ERR C P 18FFFFFF 18=WARN C P 1AFFFF 1A=REM C P 1C' 1C=;=EMPTY STMT P EJECT P*
0x05ffe0…05ffe6 00 00 00 00 00 00 ┆ ┆
0x05ffe6…06017a Dummy {f00=0x0027, f01=0x0190, f02=»POS)' | P* P* OPERATOR VALUES P* 6 > POPRVAL STRG X'02040603FF05FF07FF080A0C09FF0BFF0DFF0E0F C @ 4 P 10FFFF11121314151617FFFF18FFFF19FFFF1AFFFF C 4 P 1BFFFF1CFFFF1DFFFF1EFFFF1FFFFF20FFFF21FFFF22' P* P* DECORA
0x06017a…060180 00 00 00 00 00 00 ┆ ┆
0x060180…060314 (3, 8) Dummy {f00=0x0028, f01=0x0190, f02=»CVAL STRG X'01FF02FF04FF08FF40FF10FF21FF22FF24FF28FF30FF80FFA0FF' P EJECT J P* X P* STRING CONSTANTS b P* PYES STRG C'Y' YES PNO STRG C'N' NO PLEFT STRG C'L' LEFT PRIGHT STRG C'R' RIGHT PDUPL STRG C'D' DUP
0x060314…06031a 00 00 00 00 00 00 ┆ ┆
0x06031a…0604ae Dummy {f00=0x0028, f01=0x0190, f02=»TRG C'8 C P 01;01;24;80;1?; C P 25;01;01;80;0=' . P EJECT H P* V P* GLOBAL WORKITEMS ` P* PTB1 BLK PGBIN1 BIN FUNCTIONNUMBER PGBIN2 BIN RETUR-CODE " PGBIN3 BIN BUFFERPOOLINDEX 1ST & PGBIN4
0x0604ae…0604b4 00 00 00 00 00 00 ┆ ┆
0x0604b4…060648 Dummy {f00=0x0028, f01=0x0190, f02=»AVED STARTPOINTER IN BUFF L , PGBIN8 BIN SAVED STARTBUFFERINDEX RETUR $ , PGBIN9 BIN SAVED STARTPOINTER IN BUFF R T " PGBIN10 BIN BACKGROUND DEFAULT $ PGBIN11 BIN STATIC FIELD DEFAULT & PGBIN12 BIN DYNAMIC FIELD DEFAULT PGBIN13 BIN
0x060648…06064e 00 00 00 00 00 00 ┆ ┆
0x06064e…0607e2 Dummy {f00=0x0028, f01=0x018e, f02=»ITEMS | P* PTB2 BLK 4 PGBINIA BINI (20) 1=NUMB OF CHARS DEF.GUID.MESS. ( $ P 2=NUMB OF CHARS DEFAULT VALUE ` $ P 3=NUMB OF CHARS GUID MESSAGE $ P 4=NUMB OF CHARS APPL MESSAGE " P 5=NUMB OF CHARS VALIDATION $ P 6=NUMB
0x0607e2…0607e8 00 00 00 00 00 00 ┆ ┆
0x0607e8…06097c Dummy {f00=0x0028, f01=0x0190, f02=» n $ P 10=NUMB OF CHARS BASIC LINE 2 $ P 11=NUMB OF CHARS BASIC LINE 3 0 $ P 12=NUMB OF CHARS BASIC LINE 4 X $ P 13=NUMB OF CHARS BASIC LINE 5 $ P 14=NUMB OF CHARS BASIC LINE 6 $ P 15=NUMB OF CHARS BASIC LINE 7 $ P 16=NUMB OF CH
0x06097c…060980 00 00 00 00 ┆ ┆
0x060980…060982 00 00 ┆ ┆
0x060982…060b16 Dummy {f00=0x0028, f01=0x0190, f02=» STRG 6 DUPLICATION PGSTR6C STRG 6 VOLUME NAME ( PGSTR6D STRG 6 FORMAT DEFINITION NAME > ( PGSTR6I STRGI (10),6 1=INITIAL FORMAT j P 2-10=SECTION 1-9 PGSTR8A STRG 8 FILENAME P EJECT 2 PGST80I STRGI (7),82 1=DEFAULT GUIDING MESS
0x060b16…060b1c 00 00 00 00 00 00 ┆ ┆
0x060b1c…060cb0 Dummy {f00=0x0028, f01=0x018e, f02=»ESSAGE ~ ( PGBCD3I BCDI (16),4 1=FUNCTIONNUMBER P 2=SECTION TYPE : " P 3=FORMAT SECTION SIZE ROWS T " P 4=FORMAT SECTION SIZE COLS z P 5=VERSION NO P 6=LINE NUMBER P 7=ORIGIN MEDIA TYPE P 8=PR.OUT POS ROW
0x060cb0…060cb6 00 00 00 00 00 00 ┆ ┆
0x060cb6…060e4a Dummy {f00=0x0028, f01=0x0190, f02=» z P 14=PRINTOUT COL & P 15=FORMAT SECTION EFF LINESIZE " $ P 16=FORMAT SECTION EFF COLSIZE L P EJECT t ( PGSTR1I STRGI (24),1 1=AUTO ENTERING P 2=SCREEN BACKGR. 1 P 3=SCREEN BACKGR. 2 P 4=STATIC FIELD DECOR 1
0x060e4a…060e50 00 00 00 00 00 00 ┆ ┆
0x060e50…060fe4 (3, 9) Dummy {f00=0x0028, f01=0x0190, f02=» P 9=DYNAMIC FIELD DECOR 2 P 10=DYNAMIC FIELD DECOR 3 & P 11=DYNAMIC FIELD DECOR 4 J P 12=MUST ENTER n P 13=MUST FILL P 14=AUTO E-O-I P 15=VERIFY P 16=AUTO SKIP/DUP P 17=L/R ADJUST P 18=FIX
0x060fe4…060fea 00 00 00 00 00 00 ┆ ┆
0x060fea…06117e Dummy {f00=0x0028, f01=0x0190, f02=» 23=DECIMAL CHARACTER P 24=DUPLICATE Y/N P EJECT < P* J P* LOCAL WORKITEMS T P* t PTB3 BLK ~ PLBOOL1 BOOL PLBOOL2 BOOL PLBOOL3 BOOL PLBOOL4 BOOL PLBOOL5 BOOL PLBOOL6 BOOL PLB
0x06117e…061180 00 00 ┆ ┆
0x061180…061184 00 00 00 00 ┆ ┆
0x061184…061318 Dummy {f00=0x0028, f01=0x0190, f02=»FOR WSMERR-MODULE ~ & PLBOOLE BOOL USED IN WSMPRT-MODULE PLBIN1 BIN D PLBIN2 BIN V PLBIN3 BIN h PLBIN4 BIN z PLBIN5 BIN PLBIN6 BIN PLBIN7 BIN PLBIN8 BIN PLBIN9 BIN PLBIN10 BIN PLBCD3A BCD 4
0x061318…06131e 00 00 00 00 00 00 ┆ ┆
0x06131e…0614b2 Dummy {f00=0x0028, f01=0x0190, f02=»* LOCAL WORKITEMS P* PTB4 BLK * PVD82 BOOL T=VD82 DISPLAY : , PTKBOOL BOOL TKBOOL:=T IF <OVE> PRESSED . PPRBOOL BOOL PRBOOL:=T IF CONFIRM BY PRINT 2 PUPBOOL BOOL UPBOOL=T IF UPDATE 82 SEC. BY 81 0 POVBOOL BOOL T=IF OV
0x0614b2…0614b8 00 00 00 00 00 00 ┆ ┆
0x0614b8…06164c Dummy {f00=0x0028, f01=0x0190, f02=» T=IF NEW BPOOL EXEEDED , POBBOOL BOOL T=IF SYNTAXERROR IN OBJVAL 0 PCHABOL BOOL T=IF VALIDATION BUFFER MODIFIED P PLBIN11 BIN PLBIN12 BIN PLBIN13 BIN PLBIN14 BIN PLBIN15 BIN PLBIN16 BIN PLBIN17 BIN PLBIN18
0x06164c…061652 00 00 00 00 00 00 ┆ ┆
0x061652…0617e6 Dummy {f00=0x0028, f01=0x0190, f02=» ~ P 2 POS = COLUMNNR P 3 POS = 00 NEW DYN.F. & P > 00 OLD DYN.F. H P = FF STATIC F. j P 4 POS = ATTRIBUTE P 1024/4=256 ELEMENTS ( PFIDTAB STRG 635 =127 DYN F. MAX 127 & P 5 BYTES = 1 FIELD
0x0617e6…0617ec 00 00 00 00 00 00 ┆ ┆
0x0617ec…061980 Dummy {f00=0x0028, f01=0x0190, f02=» PLSTR89 STRG 89 ( PGBCD80 BCD 80 DEFAULT VALUE NUMERIC P EJECT J PTB5 BLK X PGVDUA STRUC h P* | $ P* SCREENAREA POSITION LEVEL P* PGVDU STRGI (24,80),1 P STRUCE GVDUA PGVDUL DSTRUC GVDUA P*
0x061980…061986 00 00 00 00 00 00 ┆ ┆
0x061986…061b1a Dummy {f00=0x0028, f01=0x0190, f02=» BIN SCREEN SIZE NUMB OF ROWS * PCOLS BIN SCREEN SIZE NUMB OF COLUMNS & $ PSCRNFC BIN X'50' SCRN FILE CODE T $ PSYSLFC BIN X'58' SYSL FILE CODE | 0 PPRNTFC BIN PRNTDEV FILECODE USED IN WSMPRT PLSTR2 STRG 2 P > P********************
0x061b1a…061b20 00 00 00 00 00 00 ┆ ┆
0x061b20…061cb4 (3, 10) Dummy {f00=0x0028, f01=0x0190, f02=»***** P ( PRELDAT STRG C'85 09 01' RELEASE DATE : PPASDAT STRG C'850901' REL.DATE TRANSFERED BY PASSWORD B P P* PREVIOUS RELEASE DATES: P F P* 85 09 01 RELEASE 2.3 -> ACTION-CENTRE @ P*
0x061cb4…061cba 00 00 00 00 00 00 ┆ ┆
0x061cba…061e4e Dummy {f00=0x0028, f01=0x018e, f02=» 84 12 10 UPDATED VERSION REL 2.2 4 P* 84 12 01 RELEASE 2.2 8 & P* 84 04 02 p & P* 84 01 20 & P* 83 12 01 & P*
0x061e4e…061e54 00 00 00 00 00 00 ┆ ┆
0x061e54…061fe8 Dummy {f00=0x0028, f01=0x0190, f02=» l & P* 83 03 25 & P* 83 03 11 2 P P d > P********************************************************* l P* RELEASENUMBER FOR CREATOR > P******************************************************
0x061fe8…061fee 00 00 00 00 00 00 ┆ ┆
0x061fee…062182 Dummy {f00=0x0028, f01=0x0190, f02=»TB7BIN1 BIN " PSCBIN BIN SCREEN DEFINING BIN ! ( PWRBIN BIN WRITE ON SCREEN DEF. BIN ! : " PCUBIN BIN CURSOR DEFINING BIN ! f ( PVD82CW BIN X'0000' CONTROL WORD VD82 ! PSLBIN1 BIN COMMON WORK BIN ! PSLBIN2 BIN COMMON WORK BIN ! PSLBIN3 B
0x062182…062188 00 00 00 00 00 00 ┆ ┆
0x062188…06231c Dummy {f00=0x0028, f01=0x018e, f02=»SLBIN7 BIN COMMON WORK BIN ! PSLBIN8 BIN COMMON WORK BIN " $ PSLBIN9 BIN COMMON WORK BIN " H 2 PVALPTR BIN VALIDATION BUFFER-POINTER (OBJMOV) " l * POBJSTR STRG 200 TRANSFERSTRG -> BPOOL " P EJECT " P* " ( P* VALIDATION DEPENDENT VARIA
0x06231c…062320 00 00 00 00 ┆ ┆
0x062320…062322 00 00 ┆ ┆
0x062322…0624b6 Dummy {f00=0x0028, f01=0x0190, f02=» PVBOOL6 BOOL # PVBOOL7 BOOL # PVBOOL8 BOOL # , PVBOOL9 BOOL # @ & PIC BOOL =ITC INTERTASK INDICATOR # T PVBBIN BIN LENGTH OF VALBUF # ~ PVBIN1 BIN # PVBIN2 BIN # PVBIN3 BIN # PVBIN4 BIN # PVBIN5 BIN # PVBIN6 BIN #
0x0624b6…0624bc 00 00 00 00 00 00 ┆ ┆
0x0624bc…062650 Dummy {f00=0x0028, f01=0x0190, f02=» 2 WORK AREA # & PVALBUF STRG 4095 VALIDATION SOURCE $ & PBASLIN STRGI (8),75 VALBASIC LINE $ > P BUFFER MAX. 4095 BYTES $ h P EJECT $ " PTB9 BLK =ITC INTERTASK BLOCK $ $ PICLEN BIN W'21' =ITC REQ. LENGTH $ , PICTASK BIN =ITC TASK ID OF SENDIN
0x062650…062656 00 00 00 00 00 00 ┆ ┆
0x062656…0627ea Dummy {f00=0x0028, f01=0x0056, f02=»ILENAME+ELEM.TYPE+ELEM.NAME $ P STRUCE ICPOOL =ITC % $ P PDIV % @ P END % NASIC LINE $ > P BUFFER MAX. 4095 BYTES $ h P EJECT $ " PTB9 BLK =ITC INTERTASK BLOCK $ $ PICLEN BIN W'21' =ITC REQ. LENGTH $ , PICTASK BIN =ITC TASK ID OF SENDIN
0x0627ea…0627f0 00 00 00 00 00 00 ┆ ┆
0x0627f0…062984 (3, 11) Dummy {f00=0x0028, f01=0x2008, f02=» &
0x062984…06298a 00 00 00 00 00 00 ┆ ┆
0x06298a…062b1e Dummy {f00=0x0028, f01=0x0190, f02=»CT P* : P* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD 0 P* RETCOD RETURN CODE FROM LKM R P* . P* DSET EVENT CONTROL BLOCK & P* FILECODE FILE NUMBER " P* BUF BUFFE
0x062b1e…062b20 00 00 ┆ ┆
0x062b20…062b24 00 00 00 00 ┆ ┆
0x062b24…062cb8 Dummy {f00=0x0028, f01=0x0190, f02=»ITDK EQU * P LDKL A11,/95 ORDER CODE P RF READ00 2 P* D : P* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD N P* . P* DSET EVENT CONTROL BLOCK & P* FILECODE FILE NUMBER " P* BUF
0x062cb8…062cbe 00 00 00 00 00 00 ┆ ┆
0x062cbe…062e52 Dummy {f00=0x0028, f01=0x0190, f02=» RETCOD RETURN CODE FROM LKM P* ! . PREADDK EQU * ! 8 P LDKL A11,/91 ORDER CODE ! L PREAD00 EQU * ! l ( P CALL T:FDSP GET DSET ADDRESS TO A8 ! P EJECT ! 6 P* GET PARAMETERS FROM PARAMETER LIST AND STORE ! P* THEM IN DSET !
0x062e52…062e58 00 00 00 00 00 00 ┆ ┆
0x062e58…062fec Dummy {f00=0x0028, f01=0x0190, f02=»L I:EVA0 RECORD LENGTH ! P LDR* A6,A9 " P ST A6,4,A8 " 2 P CALL I:EVA0 RECORD NO " F P LDR* A6,A9 " d & P CALL T:BCDB COVERT TO TWO BINARYS " x " P ST A2,12,A8 LEAST SIGNIFICANT " " P ST A1,10,A8 MOST SIGNIFICANT " PREAD20 EQU * " P LDR A
0x062fec…062ff2 00 00 00 00 00 00 ┆ ┆
0x062ff2…063186 Dummy {f00=0x0028, f01=0x0190, f02=» " P DATA 15 # * P AD A12,-12,A13 RESTORE CREDIT RETADR # PREAD40 EQU * # F P ABL RET # Z P EJECT # j P* # x 8 P* CALL CLOSEF,DSET,FILECODE,BUFF,RECNO,RETCOD # P* # 0 P* DSET EVENT CONTROL BLOCK # ( P*
0x063186…06318c 00 00 00 00 00 00 ┆ ┆
0x06318c…063320 Dummy {f00=0x0028, f01=0x0190, f02=» FILE # ^ P* $ 0 P* RETCOD RETURN CODE FROM LKM $ PCLOSEF EQU * $ L P LDR A11,A14 $ ` P RF OPENF0 $ t PCLOS10 EQU * $ ( P CALL T:BCDB CONVERT TO TWO BINARYS $ P LD A6,2,A8 ADR TO FPB $ " P ST A1,58,A6 LEAST SIGNIFICANT $ "
0x063320…063326 00 00 00 00 00 00 ┆ ┆
0x063326…0634ba Dummy {f00=0x0028, f01=0x0190, f02=» CODE $ x P RB READ20 % P EJECT % P* % . < P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME,RETCOD % 8 P* % x 0 P* DSET EVENT CONTROL BLOCK % ( P* FILECODE FILE NUMBER % 2 P* BUF FILE PARAMETE
0x0634ba…0634c0 00 00 00 00 00 00 ┆ ┆
0x0634c0…063654 (3, 12) Opaque[0x194]
0x063654…06365a 00 00 00 00 00 00 ┆ ┆
0x06365a…0637ee # DirEnt {nam=»OBJVAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0520, f03=0x0000}
0x06365a…0637ee IdxSect {
0x06365a…0637ee f00 = 0x0029 // 0x6365a @0x0
0x06365a…0637ee f01 = 0x0022 // 0x6365c @0x2
0x06365a…0637ee gno = [ // 0x6365e @0x4
0x06365a…0637ee [0x00]: C0x0029.0x0.0
0x06365a…0637ee [0x01]: C0x0029.0x1.0
0x06365a…0637ee [0x02]: C0x0029.0x2.0
0x06365a…0637ee [0x03]: C0x0029.0x3.0
0x06365a…0637ee [0x04]: C0x002a.0x0.0
0x06365a…0637ee [0x05]: C0x002a.0x1.0
0x06365a…0637ee [0x06]: C0x002a.0x2.0
0x06365a…0637ee [0x07]: C0x002a.0x3.0
0x06365a…0637ee [0x08]: C0x002b.0x0.0
0x06365a…0637ee [0x09]: C0x002b.0x1.0
0x06365a…0637ee [0x0a]: C0x002b.0x2.0
0x06365a…0637ee [0x0b]: C0x002b.0x3.0
0x06365a…0637ee [0x0c]: C0x002c.0x0.0
0x06365a…0637ee [0x0d]: C0x002c.0x1.0
0x06365a…0637ee [0x0e]: C0x002c.0x2.0
0x06365a…0637ee [0x0f]: C0x002c.0x3.0
0x06365a…0637ee [0x10]: C0x002d.0x0.0
0x06365a…0637ee ]
0x06365a…0637ee }
0x0637ee…0637f4 00 00 00 00 00 00 ┆ ┆
0x0637f4…063988 Dummy {f00=0x0029, f01=0x0190, f02=» . P IDENT OBJVAL REL=2.3,850703,870155940230 P 6 J P********************************************************************** > P* & P* LATEST UPDATE 850703 MADE BY:JE P* P* HISTORY= D P* 850703/JE CHECK IF VALBUF EMP
0x063988…06398e 00 00 00 00 00 00 ┆ ┆
0x06398e…063b22 Dummy {f00=0x0029, f01=0x0190, f02=»F CONTROL CHANGED VARDET BEFORE FUNCTIONS r J P* 850327/JE SYNTAX ERROR NOT FOUND IN ERR "HI............." 2 J P* 850313/JE PERFORMANCE DIRECT MOVE VAL.OBJ. WHEN UNCHANGED J P* 850305/JE SECURITY WHEN DISASTER ERRORS (LOST
0x063b22…063b28 00 00 00 00 00 00 ┆ ┆
0x063b28…063cbc Dummy {f00=0x0029, f01=0x0190, f02=»ROUTINE d @ P* 840921/CJ BASIC ERROR IF FID= AB OR ST - SOLVED 4 P* 831208/CJ ADAPTION TO "NEW" POLICE T H P* 831205/CJ OBJSTR-> INTERMEDIATE BUFFER OBJCT OF 1 LINE J P* 830519/CJ TAKE CARE OF WHEN "VALBUF
0x063cbc…063cc0 00 00 00 00 ┆ ┆
0x063cc0…063cc2 00 00 ┆ ┆
0x063cc2…063e56 Dummy {f00=0x0029, f01=0x0190, f02=»****************************************** t P DDUM WSMDDV 2 P PDIV F * P ENTRY OBJVAL ***OBJECT OF VALIDATION T B P EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL LIMIT CONTROLER , P EXPROC MOVVAL ***MOVE VALIDATION OBJECT P EXT ICLEAR ---C
0x063e56…063e5c 00 00 00 00 00 00 ┆ ┆
0x063e5c…063ff0 Dummy {f00=0x0029, f01=0x0190, f02=» WXMUL ---MULTIPLICATION P EXT WXDIV ---DIVISION P EXT WXSLL ---SHIFT LEFT > P EJECT ^ P* l P* OBJECT OF VALIDATION v P* . P* INPUT : VALBUF = VALIDATION BUFFER 8 P* LBIN2 = OPTIONAL ATTRIBUTE CODE = 1
0x063ff0…063ff6 00 00 00 00 00 00 ┆ ┆
0x063ff6…06418a Dummy {f00=0x0029, f01=0x0190, f02=» GBIN5 = POINTER TO BUFFER POOL P* 2 " P* USED : LBIN1 = WORK < " P* LBIN3 = WORK b " P* LBIN12 = WORK " P* SLBIN6 = WORK " P* LBIN15 = WORK " P*
0x06418a…064190 00 00 00 00 00 00 ┆ ┆
0x064190…064324 (3, 13) Dummy {f00=0x0029, f01=0x0190, f02=» = SAVED START POINTER OF OPTIONAL VALIDATION z 2 P* VBIN2 = LENGTH OF VALIDATION 6 : P* VBIN3 = INTER MEDIATE BUFFER POINTER l : P* VBIN4 = LENGTH-LIMIT OF A SOURCE LINE 8 P* VBIN5 = POINTER
0x064324…06432a 00 00 00 00 00 00 ┆ ┆
0x06432a…0644be Dummy {f00=0x0029, f01=0x0190, f02=»H OF STATEMENT r D P* OBJSTR = INTERMEDIATE BUFFER OBJECT OF ONE LINE P* ^ P EJECT h > P* OUTPUT: LBIN20 = LENGTH OF OPTIONAL PART ADJUSTED v F P* BPOOL = BUFFER POOL STORED WITH VALIDATION OBJECT H P*
0x0644be…0644c0 00 00 ┆ ┆
0x0644c0…0644c4 00 00 00 00 ┆ ┆
0x0644c4…064658 Dummy {f00=0x0029, f01=0x0190, f02=» SLBIN8 = LINE NUMBER OF DISASTER ERROR F P* SLBIN9 = VALBUF-POINTER WHEN DISASTER ERROR FOUND : " P* CR = 0 OK & P* = 1 NOT OK @ P* = 2 DISASTER ERROR SYNTAX ERR
0x064658…06465e 00 00 00 00 00 00 ┆ ┆
0x06465e…0647f2 Dummy {f00=0x0029, f01=0x0190, f02=» P* < P* SAVE START ADRESS WHERE OPTIONAL VALIDATION STARTS P* - BUFFER POOL INDEX N " P* - BUFFER POOL POINTER r P* ( P MOVE LSTR6A,=X'FF' E-O-P-DELIMITER 0 P CLEAR LBOOL4 FALSE NO SPLIT AT POOL CHANGE , P CLEAR
0x0647f2…0647f8 00 00 00 00 00 00 ┆ ┆
0x0647f8…06498c Dummy {f00=0x0029, f01=0x0190, f02=»*POOL LIMIT CONTROLER f & P BG OBJ980 JMP IF MEMORY OVERFLOW . P SET LBOOL4 SPLITT AT POOL CHANGE ALLOWED H & P SET VBOOL8 T COMPULSORY DELIMITER z ( P MOVE VBIN1,GBIN5 STORE POOL-POINTER 8 P XCOPY VBIN1,W0,W1,GBIN4,W1 STORE BUFFER POOL-INDEX
0x06498c…064992 00 00 00 00 00 00 ┆ ┆
0x064992…064b26 Dummy {f00=0x0029, f01=0x0190, f02=»S d P BG OBJ980 JMP IF OVERFLOW P MOVE GBIN5,W4 , POBJ010 B . P ADD GBIN5,W2 ADJUST FOR OPT-TYP & LENGTH P P* J P* MOVE VALIDATION OBJECT IF NO MODIFIED FIELDS/FIELD-TYPE/FIELD-ID P* , P TBT CMBOOL,OBJ020 JMP IF FIELD MODI
0x064b26…064b2c 00 00 00 00 00 00 ┆ ┆
0x064b2c…064cc0 Dummy {f00=0x0029, f01=0x0190, f02=» ***MOVE VALIDATION OBJECT P BG OBJ980 POOL OVERFLOW " P B OBJ990 NORMAL EXIT B POBJ020 ` * P CALL EMPTYT,VALBUF ---CHECK IF EMPTY n P BOK OBJ030 JMP IF NOT EMPTY 8 P XCOPY GBIN4,W1,W1,VBIN1,W0 STORE BUFFER POOL-INDEX : P XCOPY GBIN5
0x064cc0…064cc6 00 00 00 00 00 00 ┆ ┆
0x064cc6…064e5a Dummy {f00=0x0029, f01=0x0190, f02=»IN4,W0 VALIDATION BUFFER POINTER:=0 P EJECT , P* : " P* BASIC LINE INITIALISATION D P* j POBJ050 t , P MOVE VBIN4,W0 SOURCE LINE END LIMIT:=0 6 P CBNL LBIN4,VBBIN,OBJ060 JMP IF VALBUF-MAX REACHED > P XCOPY VBIN4,W1,W1,VALBUF,LB
0x064e5a…064e60 00 00 00 00 00 00 ┆ ┆
0x064e60…064ff4 (3, 14) Dummy {f00=0x0029, f01=0x0190, f02=» h , P ADD VBIN4,LBIN4 CALC-END-OF-LINE LIMIT & P CALL ICLEAR,OBJSTR ---CLEAR ITEM 8 , P MOVE VBIN3,W1 INT.MED.BUFFERPOINTER:=1 b 0 P MOVE SLBIN9,LBIN4 SAVE ST.POINTER OF SOURCE ( P ADD LBIN4,W1 ADJUST VALBUF POINTER 4 P XCOPY LBIN1,W0,W2,VAL
0x064ff4…064ffa 00 00 00 00 00 00 ┆ ┆
0x064ffa…06518e Dummy {f00=0x0029, f01=0x0190, f02=» CHECK IF INDENTION(LEADING SPACES P* * & P PERF INDCNT ***INDENTION COUNTING 4 2 P CALL WXSLL,VBIN7,W11,VBIN7 SHIFT LEFT BIT 0-4 ^ . P ADD VBIN7,LBIN1 INDENTIONS + LINE NUMBER P* 6 P* STORE INDENTIONS BIT 0-4 + LINE NUMBER 5-15
0x06518e…065194 00 00 00 00 00 00 ┆ ┆
0x065194…065328 Dummy {f00=0x0029, f01=0x0190, f02=» P* ( P* BASIC STATEMENT INITIALIZATION P* : POBJ110 D 0 P MOVE VBIN5,VBIN3 SAVE START OF STATEMENTPOS R * P MOVE VBIN8,W2 LENGTH OF STATEMENT:=2 0 P ADD VBIN3,W2 ADJUST INT.MED.BUFFER POINTER P* P* CHECK BASIC VERB
0x065328…06532e 00 00 00 00 00 00 ┆ ┆
0x06532e…0654c2 Dummy {f00=0x0029, f01=0x0190, f02=» BOK OBJ120 BASIC VERB FOUND 8 P PERF BSVOPC,W3,VBIN6 ***BASIC VERB OP-CODE LENGTH=3 $ P BOK OBJ120 BASIC VERB FOUND ` 8 P PERF BSVOPC,W4,VBIN6 ***BASIC VERB OP-CODE LENGTH=4 P BOK OBJ120 BASIC VERB FOUND 8 P PERF BSVOPC,W5,VBIN6 ***BASIC VERB
0x0654c2…0654c8 00 00 00 00 00 00 ┆ ┆
0x0654c8…06565c Dummy {f00=0x0029, f01=0x0190, f02=»W1 ADJUST POINTER * P MATCH STMTS,SLBIN6,W1,VALBUF,LBIN4,W1 ( P BNOK OBJ115 JMP IF NOT ;-STATEMENT H 2 P XCOPY VBIN6,W1,W1,STVAL,SLBIN6 LOAD OP-CODE ; t ( P ADD LBIN4,W1 ADJUST VALBUF POINTER P B OBJ120 POBJ115 * P MOVE VBIN6,W0 ALP
0x06565c…065660 00 00 00 00 ┆ ┆
0x065660…065662 00 00 ┆ ┆
0x065662…0657f6 Dummy {f00=0x0029, f01=0x0190, f02=»T x P* " P* BRANCH ON OPERATION CODE P* : POBJ120 D & P CBE VBIN6,W0,OBJ150 0=ASSIGNMENT R ( P IB VBIN6,OBJ150, 1=ASSIGNMENT LET C | P OBJ150, 2=ASSIGNMNET C P OBJ150, 3=ASSIGNMNET LET C P OBJ200, 4=GO TO C
0x0657f6…0657fc 00 00 00 00 00 00 ┆ ┆
0x0657fc…065990 Dummy {f00=0x0029, f01=0x0190, f02=» P OBJ980, 9=NOT VALID C " P OBJ350, 10=ON .. GO TO.. C $ P OBJ350, 11=ON .. GOTO.. C J P OBJ400, 12=CALL C n P OBJ980, 13=NOT VALID C P OBJ450, 14=SECT C P OBJ980, 15=NOT VALID C P OBJ500, 16=ATTR C P OBJ9
0x065990…065996 00 00 00 00 00 00 ┆ ┆
0x065996…065b2a Dummy {f00=0x0029, f01=0x0190, f02=» C z P OBJ650, 22=ERR C P OBJ980, 23=NOT VALID C $ P OBJ650, 24=WARN C D P OBJ980, 25=NOT VALID C ` P OBJ750, 26=REM C P OBJ980, 27=NOT VALID C P OBJ800 28=; P EJECT P* L P* 0,1,2,3 LET <VARIABLE> = <A
0x065b2a…065b30 00 00 00 00 00 00 ┆ ┆
0x065b30…065cc4 (3, 15) Dummy {f00=0x0029, f01=0x0190, f02=»VARIABLE P* * P PERF VARDET ***VARIABLE DETERMINATION & P BNOK OBJ950 JMP IF DISASTER-ERROR H POBJ152 r & P PERF INDCNT ***INDENTION COUNTING P* " P* ASSIGNMENT OPERATOR '=' P* POBJ155 . P ADD LBIN4,W1 ADJUST I
0x065cc4…065cca 00 00 00 00 00 00 ┆ ┆
0x065cca…065e5e Dummy {f00=0x0029, f01=0x0190, f02=»HMETIC EXPR. r P* $ P* STRING EXPRESSION EXPECTED P* F * P PERF STREXP ***STRING EXPR EVALUATION P & P BNOK OBJ950 JMP IF DISASTER-ERROR ~ P B OBJ890 END OF STATEMENT P* ( P* ARITHMETIC EXPRESSION EXPECTED P*
0x065e5e…065e60 00 00 ┆ ┆
0x065e60…065e64 00 00 00 00 ┆ ┆
0x065e64…065ff8 Dummy {f00=0x0029, f01=0x0190, f02=»DE:=03 v P B OBJ890 END OF STATEMENT P EJECT 0 P* > & P* 4,5 GO TO/GOTO <LINE-NUMBER> H P* r POBJ200 | & P PERF INDCNT ***INDENTION COUNTING P* $ P* LABEL LINE NUMBER EXPECTED P* ( P PERF LABLIN,W4 ***LABEL
0x065ff8…065ffe 00 00 00 00 00 00 ┆ ┆
0x065ffe…066192 Dummy {f00=0x0029, f01=0x018e, f02=» V P* POBJ250 & P PERF INDCNT ***INDENTION COUNTING P* J ( P* ARITHMETIC EXPRESSION EXPECTED T P* P PERF CLRLST ***CLEAR STACK 0 P PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION P BOK OBJ260 JMP OK P* , P*
0x066192…066198 00 00 00 00 00 00 ┆ ┆
0x066198…06632c Dummy {f00=0x0029, f01=0x0190, f02=» & P BNOK OBJ950 JMP IF DISASTER-ERROR P EJECT . P* < P* RELATIONAL OPERATOR F P* h POBJ260 r & P PERF INDCNT ***INDENTION COUNTING P MOVE LBIN3,W0 POINTER:=0 * P MATCH OPRTS,LBIN3,W3,VALBUF,LBIN4,W1 ( P MOVE VBIN7,LB
0x06632c…066332 00 00 00 00 00 00 ┆ ┆
0x066332…0664c6 Dummy {f00=0x0029, f01=0x0190, f02=»LBUF,LBIN4,W2 MATCH FOLLOWING OPERAND x & P BNOK OBJ270 NO FOLLOWING OPERAND . ( P MOVE VBIN7,LBIN3 SAVE FOUND POINTER X ( P ADD LBIN4,W1 ADJUST BUFFER POINTER POBJ270 0 P MOVE SLBIN4,W0 RELATIONAL OPERATOR CODE:=0 6 P XCOPY SLBIN4,W1,W1,OP
0x0664c6…0664cc 00 00 00 00 00 00 ┆ ┆
0x0664cc…066660 Dummy {f00=0x0029, f01=0x0190, f02=»RLST ***CLEAR STACK 0 P TBT VBOOL2,OBJ290 JMP IF STRING EXPRESSION . P ADD SLBIN4,W6 ADJUST REL.OP-CODE NUMERIC P P EJECT P* ( P* ARITHMETIC EXPRESSION EXPECTED P* 0 P PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION & P BNO
0x066660…066666 00 00 00 00 00 00 ┆ ┆
0x066666…0667fa Dummy {f00=0x0029, f01=0x0190, f02=»STREXP ***STRING EXPR EVALUATION & P BNOK OBJ950 JMP IF DISASTER-ERROR ( POBJ300 R P* ` ( P* STORE RELATIONAL OPERATOR CODE j P* 6 P XCOPY OBJSTR,VBIN3,W1,SLBIN4,W1 STORE REL.OP-CODE 0 P ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
0x0667fa…066800 00 00 00 00 00 00 ┆ ┆
0x066800…066994 (3, 16) Dummy {f00=0x002a, f01=0x0190, f02=»DD LBIN4,W4 ADJUST VALBUF POINTER & P PERF INDCNT ***INDENTION COUNTING * P* T $ P* LABEL LINE NUMBER EXPECTED ^ P* ( P PERF LABLIN,W4 ***LABEL LINE NUMBER P BOK OBJ890 END OF STATEMENT P EJECT P* P* STATEMENT
0x066994…06699a 00 00 00 00 00 00 ┆ ┆
0x06699a…066b2e Dummy {f00=0x002a, f01=0x0190, f02=»DCNT ***INDENTION COUNTING P B OBJ110 " P EJECT 4 P* B D P* 10 ON <ARITHMETIC EXPRESSION> GO TO/GOTO <LINE-NUMBER-LIST> L P* POBJ350 & P PERF INDCNT ***INDENTION COUNTING P* * P* ARITHMETIC EXPRESSION EXPECTED
0x066b2e…066b34 00 00 00 00 00 00 ┆ ┆
0x066b34…066cc8 Dummy {f00=0x002a, f01=0x0190, f02=» n & P PERF INDCNT ***INDENTION COUNTING P* 2 & P* STORE END-OF-EXPRESSION '01' < P* f 4 P XCOPY OBJSTR,VBIN3,W1,W1,W1 STORE END-OF-EXPR. p 0 P ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH
0x066cc8…066cce 00 00 00 00 00 00 ┆ ┆
0x066cce…066e62 Dummy {f00=0x002a, f01=0x0190, f02=»1 ***BASIC VERB SEARCH LENGTH=5 | P BOK OBJ360 BASIC VERB FOUND ! ( 8 P PERF BSVOPC,W4,LBIN1 ***BASIC VERB SEARCH LENGTH=4 ! L P ADD VBIN6,W1 OP-CODE:=0B ! P EJECT ! P* ! $ P* LABEL LINE NUMBER EXPECTED ! P* ! POBJ360 ! & P PERF
0x066e62…066e68 00 00 00 00 00 00 ┆ ┆
0x066e68…066ffc Dummy {f00=0x002a, f01=0x0190, f02=» BE OBJ890 END-OF-SOURCE LINE ! & P PERF INDCNT ***INDENTION COUNTING " & P* " P ( P* MATCH FOR LABEL LIST SEPARATOR " Z P* " " P MOVE LSTR1,=C',' SEPARATOR=, " P MOVE LBIN3,W0 POINTER:=0 " 4 P MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH ','
0x066ffc…067000 00 00 00 00 ┆ ┆
0x067000…067002 00 00 ┆ ┆
0x067002…067196 Dummy {f00=0x002a, f01=0x0190, f02=» " P* # , P* 12 CALL UF<DIGIT> !<PARAMETERLIST>! # P* # B POBJ400 # L & P PERF INDCNT ***INDENTION COUNTING # Z P* # " P* USER FUNCTION IDENT 'UF' # P* # ( P ADD LBIN4,W2 ADJUST BUFFER POINTER # P* # P* FUNCTION NUMBER
0x067196…06719c 00 00 00 00 00 00 ┆ ┆
0x06719c…067330 Dummy {f00=0x002a, f01=0x0190, f02=»SOURCE LINE FOUND # ~ P* $ P* PARAMETER-LIST $ $ P* $ @ & P PERF INDCNT ***INDENTION COUNTING $ J P* $ t $ P* BEGIN OF PARAMETER LIST '(' $ ~ P* $ , P MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS $ P MOVE LBIN3,W0 POINTER:=0 $ 4 P MATCH
0x067330…067336 00 00 00 00 00 00 ┆ ┆
0x067336…0674ca Dummy {f00=0x002a, f01=0x0190, f02=»JUST BUFFER POINTER $ & P PERF INDCNT ***INDENTION COUNTING % P* % F $ P* STRING EXPRESSION EXPECTED % P P* % x P PERF CLRLST ***CLEAR STACK % * P PERF STREXP ***STRING EXPR EVALUATION % P BOK OBJ420 EXPR OK % P* % & P* ... OR AR
0x0674ca…0674d0 00 00 00 00 00 00 ┆ ┆
0x0674d0…067664 (3, 17) Dummy {f00=0x002a, f01=0x0190, f02=» JMP IF DISASTER-ERROR % POBJ420 & & P PERF INDCNT ***INDENTION COUNTING & , P* & V , P* PARAMETER EXPRESSION SEPARATOR ',' & ` P* & ( P MOVE LSTR1,=C',' LOAD PAR-SEPARATOR & P MOVE LBIN3,W0 POINT0 & 4 P MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W
0x067664…06766a 00 00 00 00 00 00 ┆ ┆
0x06766a…0677fe Dummy {f00=0x002a, f01=0x0190, f02=»R POINTER & v " P B OBJ890 JMP END OF STATEMENT ' P EJECT ' 8 P* ' F $ P* 14 SECT <STRING EXPRESSION> ' P P* ' x POBJ450 ' & P PERF INDCNT ***INDENTION COUNTING ' P* ' $ P* STRING EXPRESSION EXPECTED ' P* ' P PERF CLRLST ***CL
0x0677fe…067800 00 00 ┆ ┆
0x067800…067804 00 00 00 00 ┆ ┆
0x067804…067998 Dummy {f00=0x002a, f01=0x0190, f02=» P EJECT ( P* ( , P* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD> ( P* ( L POBJ500 ( V & P PERF INDCNT ***INDENTION COUNTING ( d P* ( . P* ATTRIBUTE => DECORATION OR PROTECTION ( P* ( P MOVE LBIN12,=W'26' ( 4 P PERF DECOPC,LBIN12 ***D
0x067998…06799e 00 00 00 00 00 00 ┆ ┆
0x06799e…067b32 Dummy {f00=0x002a, f01=0x0190, f02=»R ( f * P ADD VBIN8,W1 ADJUST STATEMNET LENGTH ) & P PERF INDCNT ***INDENTION COUNTING ) 8 P* ) b P* SEPARATOR ',' ) l P* ) ( P ADD LBIN4,W1 ADJUST BUFFER POINTER ) & P PERF INDCNT ***INDENTION COUNTING ) P* ) P* DYNAMIC FIELD )
0x067b32…067b38 00 00 00 00 00 00 ┆ ┆
0x067b38…067ccc Dummy {f00=0x002a, f01=0x0190, f02=» P EJECT * P* * " P* 18 STOP !<DYNAMIC FIELD>! * P* * B POBJ550 * L 4 P CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT * Z " P BE OBJ890 END-OF-SOURCE LINE * & P PERF INDCNT ***INDENTION COUNTING * P* * ( P* STOP WITH TARGET DYNAM
0x067ccc…067cd2 00 00 00 00 00 00 ┆ ┆
0x067cd2…067e66 Dummy {f00=0x002a, f01=0x0190, f02=»TEMENT * | P EJECT + P* + ( P* 20 EXIT <ARITHMETIC EXPRESSION> + & P* + R POBJ600 + & P PERF INDCNT ***INDENTION COUNTING + j P* + ( P* ARITHMETIC EXPRESSION EXPECTED + P* + P PERF CLRLST ***CLEAR STACK + . P PERF ARTEXP ***
0x067e66…067e6c 00 00 00 00 00 00 ┆ ┆
0x067e6c…068000 Dummy {f00=0x002a, f01=0x0190, f02=» 22 ERR <DECORATION LIST> <STRING-EXPRESSION> + 6 P* 24 WARN <DECORATION LIST> <STRING-EXPRESSION> , 8 P* , r POBJ650 , | & P PERF INDCNT ***INDENTION COUNTING , . P MMOVE LBIN12,SLBIN5,W0 NUMB OF DECORS:=0 , P DECOR BIT PATTERN:=0 , P*
0x068000…068006 00 00 00 00 00 00 ┆ ┆
0x068006…06819a Dummy {f00=0x002a, f01=0x0190, f02=»ENT , t 2 P PERF DECOPC,W10 ***DECORATION OPERATION CODE - P BNOK OBJ675 JMP IF NOT OK - B * P ADD SLBIN5,LBIN1 ADD FOUND DECOR CODE - d & P PERF INDCNT ***INDENTION COUNTING - 0 P ADD LBIN12,W1 INCREMENT NUMB OF DECORATIONS - P EJECT - P* - ( P
0x06819a…0681a0 00 00 00 00 00 00 ┆ ┆
0x0681a0…068334 (3, 18) Dummy {f00=0x002a, f01=0x0190, f02=» P B OBJ660 NEXT DECORATION . P* . & $ P* STRING EXPRESSION EXPECTED . 0 P* . X POBJ675 . b < P XCOPY OBJSTR,VBIN3,W1,SLBIN5,W1 STORE DECOR BIT PATTERN . p 0 P ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER . * P ADD VBIN8,W1 ADJUST STATEMNET LENGT
0x068334…06833a 00 00 00 00 00 00 ┆ ┆
0x06833a…0684ce Dummy {f00=0x002a, f01=0x0190, f02=» OBJ890 END OF STATEMENT . P EJECT / P* / . * P* 26 REM !<ALPHNUMERIC CHARACTERS>! / 8 P* / f POBJ750 / p 4 P CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT / ~ " P BE OBJ890 END-OF-SOURCE LINE / & P PERF INDCNT ***INDENTION COUNTING / 0 P M
0x0684ce…0684d4 00 00 00 00 00 00 ┆ ┆
0x0684d4…068668 Dummy {f00=0x002a, f01=0x0190, f02=»UF,LBIN4 GET REMARKTEXT / r * P ADD LBIN4,LBIN1 ADJUST VALBUF POINTER 0 2 P ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER-POINTER 0 N 0 P ADD VBIN8,LBIN1 ADJUST LENGTH OF STATEMENT 0 P B OBJ890 0 P EJECT 0 P* 0 ( P* 28 ; (BASIC STATEMENT SEPARATOR) 0
0x068668…06866e 00 00 00 00 00 00 ┆ ┆
0x06866e…068802 Dummy {f00=0x002a, f01=0x0190, f02=».MED.BUFFERPOINTER 0 x $ P B OBJ895 NO OBJECT IF SEPARATOR 1 P* 1 B P* END OF STATEMENT 1 L P* 1 j POBJ890 1 t , P PERF STTYLN ***STATEMENT TYPE + LENGTH 1 . P CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE 1 " P BE OBJ900 END-OF-SOURCE LINE 1
0x068802…068808 00 00 00 00 00 00 ┆ ┆
0x068808…06899c Dummy {f00=0x002a, f01=0x0190, f02=»DATION LINE 1 P* 2 POBJ900 2 ( P MOVE LSTR6A,=X'FF' E-O-P-DELIMITER 2 , 6 P XCOPY OBJSTR,W0,W1,VBIN3,W1 STORE LENGTH OF LINE 2 X . P ADD VBIN2,VBIN3 ADJUST LENGTH OF OBJ LINE 2 0 P CMP VBIN2,=X'0FFF' CHECK MAX SIZE OF VALID. 2 & P BG OBJ980 JMP I
0x06899c…0689a0 00 00 00 00 ┆ ┆
0x0689a0…0689a2 00 00 ┆ ┆
0x0689a2…068b36 Dummy {f00=0x002a, f01=0x0190, f02=»PY VBIN4,W1,W1,VALBUF,LBIN4 GET LENGTH OF SOURCE LINE 2 POBJ910 3 > 0 P CBNE VBIN4,W0,OBJ920 CHECK IF END OF VALBUF 3 L 0 P CLEAR VBOOL8 FALSE NO E-O-P NEEDED IF EXACT 3 POBJ920 3 D P PERF POLICE,VBIN3,LBOOL4,VBOOL8,OBJSTR ***POOL-LIMIT CONTROLER 3 &
0x068b36…068b3c 00 00 00 00 00 00 ┆ ┆
0x068b3c…068cd0 Dummy {f00=0x002a, f01=0x0190, f02=»UST BUFFER POINTER 3 | P B OBJ050 NEXT LINE 4 P EJECT 4 6 P* 4 D : P* DISASTER-ERRORS ; -FIELD-ID DELETED OR CHANGED 4 N D P* -FIELD-TYPE (NUM OR ALPHANUM) CHANGED 4 < P* *** WITHOUT SYNTAX CONTROL
0x068cd0…068cd6 00 00 00 00 00 00 ┆ ┆
0x068cd6…068e6a Dummy {f00=0x002a, f01=0x0190, f02=» 4 POBJ980 5 P CMP W1,W0 CR:=1 5 P B OBJ999 5 . P* 5 @ , P* EXIT OK STORE OPTIONAL TYPE $ LENGTH 5 J P* 5 z POBJ990 5 P MOVE LBIN3,W0 WORKITEM:=0 5 8 P XCOPY LBIN3,W1,W1,VBIN1,W0 RELOAD BUFFER POOL-INDEX 5 2 P XCOPY VBIN1,W0,W1,W0,W0
0x068e6a…068e70 00 00 00 00 00 00 ┆ ┆
0x068e70…069004 (3, 19) Dummy {f00=0x002a, f01=0x018e, f02=»WXSLL,LBIN1,W12,LBIN1 SHIFT LEFT BIT 0-3 5 . P ADD LBIN1,VBIN2 ADD LENGTH OF VALIDATION 6 0 > P XCOPY BPOOL(LBIN3),VBIN1,W2,LBIN1,W0 STORE TYPE & LENGTH 6 b 2 P ADD LBIN20,VBIN2 ADJUST OPTIONAL PART LENGTH 6 0 P CMP LBIN20,=X'0FFF' CHECK MAXSIZE OPTIONALS 6
0x069004…06900a 00 00 00 00 00 00 ┆ ┆
0x06900a…06919e Dummy {f00=0x002a, f01=0x0190, f02=» 6 " P* BASIC VERB OPERATION CODE 7 P* 7 . 4 P* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH 7 8 . P* LBIN12 = FILLER CHARACTER /FF 7 p * P* SLBIN6 = LENGTH OF STMTS 7 P* 7 " P* USED : VBIN7 = WORKITEM 7 " P*
0x06919e…0691a0 00 00 ┆ ┆
0x0691a0…0691a4 00 00 00 00 ┆ ┆
0x0691a4…069338 Dummy {f00=0x002a, f01=0x0190, f02=»OBJECT-CODE (BASIC VERB) 7 l P* CR = 0 = OK 8 $ P* = 1 = NOT OK 8 D P* 8 l L P************************************************************************ 8 v PBSVOPC PROC STLEN,OPCODE 8 P PBIN STLEN 8 P PBIN OPCODE 8
0x069338…06933e 00 00 00 00 00 00 ┆ ┆
0x06933e…0694d2 Dummy {f00=0x002a, f01=0x0190, f02=»BIN3,SLBIN6,VALBUF,LBIN4,STLEN BASICVERBMATCH 8 " P BNOK BSV999 JMP IF NOT FOUND 9 6 4 P XCOPY OPCODE,W1,W1,STVAL,LBIN3 LOAD OBJECT CODE 9 . P CBE OPCODE,=X'00FF',BSV980 JMP IF FILLER 9 P EJECT 9 P* 9 P* CHECK IF PROPER LENGTH 9 P* 9 *
0x0694d2…0694d8 00 00 00 00 00 00 ┆ ┆
0x0694d8…06966c Dummy {f00=0x002a, f01=0x0190, f02=»MATCH IF FILLER 9 n . P BOK BSV980 JMP IF FILLER /FF FOUND NOT OK : PBSV100 : J 0 P ADD LBIN4,STLEN ADJUST POINTER WITH LENGTH : X P CMP W1,W1 CR:=0 : P B BSV999 : PBSV980 : P CMP W1,W0 CR:=1 : PBSV999 : P RET : P PEND : P EJE
0x06966c…069672 00 00 00 00 00 00 ┆ ┆
0x069672…069806 Dummy {f00=0x002a, f01=0x0190, f02=»ION BUFFER POINTER : r P* ; $ P* OUTPUT: LBIN4 = ADJUSTED ; $ 0 P* VBIN7 = NUMBER OF INDENTIONS ; L P* ; L P************************************************************************ ; PINDCNT PROC ; , P MOVE LSTR1,=X'20' LOAD SP
0x069806…06980c 00 00 00 00 00 00 ┆ ┆
0x06980c…0699a0 Dummy {f00=0x002a, f01=0x0190, f02=»,LBIN3,W1,VALBUF,LBIN4,W1 MATCH FOR SPACE ; & P BNOK IND999 JMP IF NO MORE SPACES < 2 ( P ADD VBIN7,W1 INCREMENT NO OF SPACES < ( P ADD LBIN4,W1 ADJUST BUFFER-POINTER < P B IND100 GO ON < PIND999 < P RET < P PEND < P EJECT < P* <
0x0699a0…0699a6 00 00 00 00 00 00 ┆ ┆
0x0699a6…069b3a Dummy {f00=0x002a, f01=0x0190, f02=» PROC < 2 P XCOPY OBJSTR,VBIN5,W1,VBIN6,W1 STORE OP-CODE = P ADD VBIN5,W1 ADJUST POINTER = D : P XCOPY OBJSTR,VBIN5,W1,VBIN8,W1 STORE STATEMENT-LENGTH = h P RET = P PEND = P EJECT = P* = P* VARIABLE DETERMINATION = P* = * P*
0x069b3a…069b40 00 00 00 00 00 00 ┆ ┆
0x069b40…069cd4 (3, 20) Dummy {f00=0x002b, f01=0x0190, f02=»ABLE = j 0 P* ATTAB = ATTRIBUTE TABLE > 2 P* GVDUR = SCREEN ROW BUFFER > @ P* > v P* USED : LBIN3 > P* VBIN7 > P* LBIN12 > P* LBIN1 > P*
0x069cd4…069cda 00 00 00 00 00 00 ┆ ┆
0x069cda…069e6e Dummy {f00=0x002b, f01=0x0190, f02=»UE ALPHANUM => STRING VARIABLE > r B P* VBOOL3 = FALSE !INP- OR !FID-ITEM VARIABLE ? ( J P* = TRUE WSM-WORK-ITEM DYNAMIC FIELD VARIABLE ? n $ P* CR = 0 OK ? . P* = 1 OBJECT
0x069e6e…069e74 00 00 00 00 00 00 ┆ ┆
0x069e74…06a008 Dummy {f00=0x002b, f01=0x0190, f02=»2 FALSE = ARITHMETIC VARIABLE ? 0 P CLEAR VBOOL3 FALSE = WSM WORK ITEM VARIABLE @ & & P MOVE SLBIN5,W4 VARIABLE LENGTH:=4 @ Z P EJECT @ P* @ 6 P* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP' @ P* @ . P MOVE LSTR9A,=C'!INP!FID' LOAD IDENTIFIE
0x06a008…06a00e 00 00 00 00 00 00 ┆ ┆
0x06a00e…06a1a2 Dummy {f00=0x002b, f01=0x0190, f02=»CURRENT FID/INP @ x . P CBE LBIN3,W0,VAR010 JMP IF '!INP' = 0000 A $ P SUB LBIN3,W3 CALC '!FID' = 0001 A J PVAR010 A r B P XCOPY OBJSTR,VBIN3,W2,LBIN3,W0 STORE OP-CODE CURRENT FID/INP A & P SUB SLBIN5,W2 VARIABLE LENGTH :=2 A ( P ADD LBIN4,W2 ADJUST BUF
0x06a1a2…06a1a8 00 00 00 00 00 00 ┆ ┆
0x06a1a8…06a33c Dummy {f00=0x002b, f01=0x0190, f02=» PVAR100 B P MOVE LBIN3,W0 WORKITEM B 0 P MOVE LSTR6A,=C'WSWAWN' WSM-WORKITEN PREFIX B 2 @ P MATCH LSTR6A,LBIN3,W6,VALBUF,LBIN4,W2 SEARC WSMITEM PREFIX B f & P BNOK VAR190 JMP IF NOT A WSM-ITEM B P* B P* WSM WORK-ITEM FOUND OK B P* B
0x06a33c…06a340 00 00 00 00 ┆ ┆
0x06a340…06a342 00 00 ┆ ┆
0x06a342…06a4d6 Dummy {f00=0x002b, f01=0x0190, f02=» WSM-ITEM B x PVAR105 C $ P B VAR250 ALPHANUMERIC = STRING C PVAR110 C H " P B VAR300 NUMERIC = ARITHMETIC C V P* C | $ P* DYNAMIC FIELD INVESTIGATION C P* C PVAR190 C 6 P MOVE LSTR6A,=X'422A580020' B*X=ALPHANUMERIC CHARS C F P MOVE LS
0x06a4d6…06a4dc 00 00 00 00 00 00 ┆ ┆
0x06a4dc…06a670 Dummy {f00=0x002b, f01=0x0190, f02=»,W4 ADJUST TO GET MATCH-LIMIT C PVAL192 D & " P MOVE LBIN3,W0 MATCHPOINTER:=0 D 4 , P MATCH LSTR16,LBIN3,W15,VALBUF,LBIN12,W1 D Z & P BOK VAL194 DELIMITER-CHAR. FOUND D . P ADD LBIN12,W1 ADJUST TEMP BUFFER POINTER D . P CBE LBIN12,VBIN4,VAL194 JMP IF E-
0x06a670…06a676 00 00 00 00 00 00 ┆ ┆
0x06a676…06a80a Dummy {f00=0x002b, f01=0x0190, f02=»N12,LBIN4 CALC EFF. FID-LENGTH ? D $ P BE VAR980 IF = 0 => NO VARIABEL E ( P MOVE LBIN3,W0 WORKITEM:=0 E P PVAR200 E r ( P CMP LBIN3,LABIN CHECK IF END ATTAB E P BE VAR980 OBJECT ERROR E 2 P XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL E * P CBE V
0x06a80a…06a810 00 00 00 00 00 00 ┆ ┆
0x06a810…06a9a4 (3, 21) Dummy {f00=0x002b, f01=0x0190, f02=»N7,LBIN9,VAR206 JMP IF OVFL-ENTRY E . P XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET SEQ.NO F * 4 P CBNE VBIN7,=X'00FF',VAR208 JMP IF DYNAMIC FIELD F PVAR206 F ( P ADD LBIN3,W2 ADJUST ATTAB -POINTER F P B VAR200 GO ON F P EJECT F P* F $ P* DYNAM
0x06a9a4…06a9aa 00 00 00 00 00 00 ┆ ┆
0x06a9aa…06ab3e Dummy {f00=0x002b, f01=0x0190, f02=»E LBIN1,VBIN7 LOAD FIDTAB-POINTER F 8 P MATCH FIDTAB,LBIN1,W4,LSTR16,W13,W1 MATCH 1ST SPACE G * , P SUB LBIN1,VBIN7 CALC FIDTAB-FID LENGTH G f 4 P CBNE LBIN12,LBIN1,VAR206 JMP IF NOT SAME LENGTH G D P MATCH FIDTAB,VBIN7,LBIN12,VALBUF,LBIN4,LBIN12 MATCH FIELD
0x06ab3e…06ab40 00 00 ┆ ┆
0x06ab40…06ab44 00 00 00 00 ┆ ┆
0x06ab44…06acd8 Dummy {f00=0x002b, f01=0x0190, f02=» FIELD ID FOUND G P* H . P SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE H " : P XCOPY OBJSTR,VBIN3,W4,FIDTAB,VBIN7 LOAD DYN FIELD ID H T . P MOVE LBIN1,W4 MAXLENGTH OF VARIABLE-NAME H 8 P SUB LBIN1,SLBIN5 CALC NUMBER TO CORRECT OB-LENGTHS H 2 P ADD VBI
0x06acd8…06acde 00 00 00 00 00 00 ┆ ┆
0x06acde…06ae72 Dummy {f00=0x002b, f01=0x0190, f02=» MOVE VBIN7,W0 CLEAR FIRST H . P XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET ROW NO I " & P ADD LBIN3,W1 ADJUST ATTAB-POINTER I T P MOVE LBIN1,W0 WORKITEM:=0 I ~ . P XCOPY LBIN1,W1,W1,ATTAB,LBIN3 GET COL NO I * P SUB LBIN1,W1 ADJUST COL.NO TO POINTER I & P ADD LBI
0x06ae72…06ae78 00 00 00 00 00 00 ┆ ┆
0x06ae78…06b00c Dummy {f00=0x002b, f01=0x0190, f02=»ITEM:=0 I | 4 P XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT ROW NO J 4 P CBNE LBIN12,VBIN7,VAR210 JMP IF NOT SAME ROW NO J H & P ADD LBIN3,W1 ADJUST ATTAB-POINTER J 4 P XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT COL NO J $ P SUB LBIN12,W1 ADUST ENDPOSITION J
0x06b00c…06b012 00 00 00 00 00 00 ┆ ┆
0x06b012…06b1a6 Dummy {f00=0x002b, f01=0x0190, f02=»ION J l . P SUB LBIN3,LBIN1 CALC PICTURESTRING LENGTH K * P MOVE LBIN12,LBIN1 LOAD START POSITION K > > P MATCH GVDUR(VBIN7),LBIN12,LBIN3,LSTR6A,W3,W1 MATCH 1ST 00 K l P BOK VAR215 ENDPOS FOUND K , P MOVE LBIN12,LBIN9 ENDPOS=MAX ENDCOLPOS K PVAR215 K
0x06b1a6…06b1ac 00 00 00 00 00 00 ┆ ┆
0x06b1ac…06b340 Dummy {f00=0x002b, f01=0x0190, f02=» 1ST CHAR K ^ " P BNOK VAR300 NO ALPHANUM CHAR L P* L 8 & P* ALPHANUMERIC CHARACTER FOUND L B P* L l 4 P XCOPY LSTR1,W0,W1,LSTR6A,LBIN3 LOAD FOUND SIGN L v 0 P MOVE GST80I(W7),LSTR1 FILL WITH FOUND CHAR L P MOVE LBIN3,W0 POINTER:=0 L < P MAT
0x06b340…06b346 00 00 00 00 00 00 ┆ ┆
0x06b346…06b4da Dummy {f00=0x002b, f01=0x0190, f02=»ALL CHARACTERS ARE ALPHANUMERIC => STRING VARIABLE L P* M : PVAR250 M D * P SET VBOOL2 TRUE=ALPHANUMERIC =>STRING M R P* M 6 P* NUMERIC DYNAMIC FIELD => ARITHMETIC VARIABLE M P* M PVAR300 M P B VAR990 OK M P* M P* OBJECT E
0x06b4da…06b4e0 00 00 00 00 00 00 ┆ ┆
0x06b4e0…06b674 (3, 22) Dummy {f00=0x002b, f01=0x0190, f02=»DD LBIN4,SLBIN5 ADJUST VALBUF POINTER M 4 P ADD VBIN3,SLBIN5 ADJUST INT.MED.BUFFER-POINTER N . 0 P ADD VBIN8,SLBIN5 ADJUST LENGTH OF STATEMENT N f P CMP W1,W1 CR:=0 N PVAR999 N P RET N P PEND N P EJECT N P* N & P* STRING EXPRESSIO
0x06b674…06b67a 00 00 00 00 00 00 ┆ ┆
0x06b67a…06b80e Dummy {f00=0x002b, f01=0x0190, f02=»************************************************************ N PSTREXP PROC O D " P MOVE LBIN3,=W'62' POINTER:=62 O X < P XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP ) O ~ ( P ADD LBIN2,W1 INCREMENT STACK INDEX O P* O P* STRING CONSTAN
0x06b80e…06b814 00 00 00 00 00 00 ┆ ┆
0x06b814…06b9a8 Dummy {f00=0x002b, f01=0x0190, f02=»N7,W1,VALBUF,LBIN4,W1 MATCH " O ( P BNOK STR100 JMP IF NOTSTRING QUOTE P & * P MOVE VBIN7,LBIN4 LOAD BUFFER POINTER P R P ADD VBIN7,W1 ADJUST FOR " P . P MOVE LBIN1,VBIN4 LOAD END OF SOURCE-LINE P & P SUB LBIN1,VBIN7 CALC MATCH LENGTH P 6 P MATCH VAL
0x06b9a8…06b9ae 00 00 00 00 00 00 ┆ ┆
0x06b9ae…06bb42 Dummy {f00=0x002b, f01=0x0190, f02=» ADD LBIN4,W1 ADJUSTVALBUF POINTER 1ST " P $ P PERF CONSTO ***CONSTANT STORAGE Q 0 P B STR400 OK Q X P EJECT Q l P* Q z P* STRING VARIABLE Q P* Q PSTR100 Q * P PERF VARDET ***VARIABLE DETERMINATION Q P BNOK STR300 JMP IF NOT OK Q .
0x06bb42…06bb48 00 00 00 00 00 00 ┆ ┆
0x06bb48…06bcdc Dummy {f00=0x002b, f01=0x0190, f02=»WRONG TYPE Q p 4 P SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER R . P SUB VBIN8,SLBIN5 ADJUST STATEMENT LENGTH R J P B STR120 R | PSTR110 R 2 P SUB LBIN4,SLBIN5 ADJUST POINTER IF WRONG TYPE R 0 P SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER R * P S
0x06bcdc…06bce0 00 00 00 00 ┆ ┆
0x06bce0…06bce2 00 00 ┆ ┆
0x06bce2…06be76 Dummy {f00=0x002b, f01=0x0190, f02=»STRING R d P* S PSTR200 S P CMP LBIN4,VBIN4 CHECK E-O-L S & P BE STR990 JMP IF E-O-L S J & P PERF INDCNT ***INDENTION COUNTING S j P CMP LBIN4,VBIN4 CHECK E-O-L S P BE STR990 JMP IF E-O-L S P EJECT S P* S P* BEGIN OF SUBSTRING
0x06be76…06be7c 00 00 00 00 00 00 ┆ ┆
0x06be7c…06c010 Dummy {f00=0x002b, f01=0x0190, f02=»'(' S d P BNOK STR400 NO SUBSTRING T ( P ADD LBIN4,W1 ADJUST BUFFER POINTER T . & P PERF INDCNT ***INDENTION COUNTING T Z P* T ( P* ARITHMETIC EXPRESSION EXPECTED T P* T . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION T & P BNOK STR980 JMP I
0x06c010…06c016 00 00 00 00 00 00 ┆ ┆
0x06c016…06c1aa Dummy {f00=0x002b, f01=0x0190, f02=»ADJUST BUFFER POINTER T & P PERF INDCNT ***INDENTION COUNTING U P* U H ( P* ARITHMETIC EXPRESSION EXPECTED U R P* U ~ 0 P PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION U & P BNOK STR980 JMP IF DISASTER ERROR U & P PERF INDCNT ***INDENTION COUNTING
0x06c1aa…06c1b0 00 00 00 00 00 00 ┆ ┆
0x06c1b0…06c344 (3, 23) Dummy {f00=0x002b, f01=0x0190, f02=»P-CODE U ^ 0 P ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER V * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH V B ( P ADD LBIN4,W1 ADJUST BUFFER POINTER V p P B STR400 V P EJECT V P* V P* STRING FUNCTION V P* V PSTR300 V P MOVE LBIN3,W2
0x06c344…06c34a 00 00 00 00 00 00 ┆ ┆
0x06c34a…06c4de Dummy {f00=0x002b, f01=0x0190, f02=»N4,W3 ADJUST BUFFER POINTER V < P XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 STACK FUNC-CODE W $ ( P ADD LBIN2,W1 INCREMENT STACK-INDEX W d & P PERF INDCNT ***INDENTION COUNTING W P EJECT W P* W & P* BEGIN OF PARAMETER LIST '(' W P* W ( P A
0x06c4de…06c4e0 00 00 ┆ ┆
0x06c4e0…06c4e4 00 00 00 00 ┆ ┆
0x06c4e4…06c678 Dummy {f00=0x002b, f01=0x0190, f02=»* W . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION X & P BNOK STR980 JMP IF DISASTER ERROR X < & P PERF INDCNT ***INDENTION COUNTING X f P* X @ P* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION-CODE X P* X & P SUB LBIN2,W1 DECREASE STACK-IND
0x06c678…06c67e 00 00 00 00 00 00 ┆ ┆
0x06c67e…06c812 Dummy {f00=0x002b, f01=0x018e, f02=»1 ADJUST STATEMENT LENGTH X , P MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY Y " ( P ADD LBIN4,W1 ADJUST BUFFER POINTER Y R P* Y ~ ( P* CONCATENATED STRING EXPRESSION Y P* Y PSTR400 Y $ P CMP LBIN4,VBIN4 CHECK E-O-LINE Y P BE STR990 E0L Y &
0x06c812…06c818 00 00 00 00 00 00 ┆ ┆
0x06c818…06c9ac Dummy {f00=0x002b, f01=0x0190, f02=» Y r 2 P MATCH OPRTS,LBIN3,W1,VALBUF,LBIN4,W1 MATCH & Z $ P BNOK STR990 NO CONCATENATED STR Z > 0 P PERF OPSTCK,W14 ***OPERATOR-STACK HANDLING Z f ( P ADD LBIN4,W1 ADJUST BUFFER POINTER Z & P PERF INDCNT ***INDENTION COUNTING Z P B STR000 GO ON Z P
0x06c9ac…06c9b2 00 00 00 00 00 00 ┆ ┆
0x06c9b2…06cb46 Dummy {f00=0x002b, f01=0x0190, f02=»OK Z P* [ PSTR990 [ & P SUB LBIN2,W1 DECREASE STACK INDEX [ " 4 P CBE LSTACK(LBIN2),=X'0022',STR995 JMP IF E-O-E [ L : P XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OPERATOR [ 0 P ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER [ * P ADD VBIN8,W1 ADJU
0x06cb46…06cb4c 00 00 00 00 00 00 ┆ ┆
0x06cb4c…06cce0 Dummy {f00=0x002b, f01=0x018e, f02=» STACK ENTRY [ t ( P SET VBOOL2 TRUE =STRING EXPRESSION P CMP W1,W1 CR:=0 OK @ PSTR999 P RET j P PEND v P EJECT P* * P* ARITHMETC EXPRESSION EVALUATION P* $ P* OUTPUT: CR = 0 OK ( P*
0x06cce0…06cce6 00 00 00 00 00 00 ┆ ┆
0x06cce6…06ce7a Dummy {f00=0x002b, f01=0x0190, f02=» " P MOVE LBIN3,=W'62' POINTER:=62 ] < P XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP ) ] . ( P ADD LBIN2,W1 INCREMENT STACK INDEX ] n P* ] P* SIGNED FACTOR ] P* ] PART000 ] P MOVE LBIN3,W23 POINTER:=23 ] 4 P MATCH OPRTS
0x06ce7a…06ce80 00 00 00 00 00 00 ┆ ┆
0x06ce80…06d014 (3, 24) Dummy {f00=0x002c, f01=0x0190, f02=»BIN4,W1 ADJUST BUFFER POINTER ] & P PERF INDCNT ***INDENTION COUNTING ^ & P EJECT ^ P P* ^ ^ P* ARITHMETIC CONSTNAT ^ h P* ^ PART050 ^ ( P MOVE VBIN7,W0 NUMB OF CHARACTERS:=0 ^ " P CLEAR VBOOL4 FALSE NO DECIMAL ^ * P MOVE LBIN3,LBIN4 LO
0x06d014…06d01a 00 00 00 00 00 00 ┆ ┆
0x06d01a…06d1ae Dummy {f00=0x002c, f01=0x0190, f02=»GIT BUT . OR , ^ j . P CBG LSTR1,=X'39',ART080 JMP IF NOT DIGIT _ PART065 _ H , P ADD VBIN7,W1 ADJUST NUMB OF CHARACTERS _ V ( P ADD LBIN3,W1 ADJUST BUFFER POINTER _ 4 P CMP LBIN3,VBIN4 CHECK END-OF-SOURCE LINE LIMIT _ P BE ART080 OK EXIT _ P B A
0x06d1ae…06d1b4 00 00 00 00 00 00 ┆ ┆
0x06d1b4…06d348 Dummy {f00=0x002c, f01=0x0190, f02=»L CHAR _ d " P SET VBOOL4 TRUE DECIMAL FOUND ` P BOK ART065 OK 1ST DEC CHAR ` 4 P* ` X P* END OF DIGITS ` b P* ` | PART080 ` " P CBE VBIN7,W0,ART100 NO DIGITS ` $ P PERF CONSTO ***CONSTANT STORAGE ` ( P SUB LBIN4,W1 ADJUST VALBUF POINTER `
0x06d348…06d34e 00 00 00 00 00 00 ┆ ┆
0x06d34e…06d4e2 Dummy {f00=0x002c, f01=0x018e, f02=»NATION ` p $ P BNOK ART200 JMP IF OBJECT ERROR a 2 P TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE a 6 0 P TBT VBOOL3,ART110 JMP IF DYN FIELD/WSM-W-I a l . P SUB LBIN4,W4 ADJUST POINTER IF WRONG TYPE a 4 P SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER a .
0x06d4e2…06d4e8 00 00 00 00 00 00 ┆ ┆
0x06d4e8…06d67c Dummy {f00=0x002c, f01=0x0190, f02=» 0 P SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER b * P SUB VBIN8,W4 ADJUST STATEMENT LENGTH b 8 PART120 b f P B ART980 NOT OK b t P EJECT b P* b P* ARITHMETIC FUNCTION b P* b PART200 b 6 P CALL GETIND,OPRTS,VBIN7,LBIN3 ---GET ITEM L
0x06d67c…06d680 00 00 00 00 ┆ ┆
0x06d680…06d682 00 00 ┆ ┆
0x06d682…06d816 Dummy {f00=0x002c, f01=0x0190, f02=»W3 MATCH FUNCTION b j P BNOK ART300 NO FUNCTION c > P XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD FUNC OP-CODE c : ( P ADD LBIN2,W1 INCREMENT STACK INDEX c | ( P ADD LBIN4,W3 ADJUST BUFFER POINTER c & P PERF INDCNT ***INDENTION COUNTING c P* c & P
0x06d816…06d81c 00 00 00 00 00 00 ┆ ┆
0x06d81c…06d9b0 Dummy {f00=0x002c, f01=0x0190, f02=» OR STRING EXPRESSION EXPECTED c P* d & & P PERF INDCNT ***INDENTION COUNTING d 0 0 P MOVE SLBIN5,LBIN2 LOAD CURRENT STACK INDEX d Z , P SUB SLBIN5,W1 CALC PREVIOUS STACK INDEX d : P CBE LSTACK(SLBIN5),=X'001D',ART210 JMP IF STRING-FUNC d : P CBE LSTACK(
0x06d9b0…06d9b6 00 00 00 00 00 00 ┆ ┆
0x06d9b6…06db4a Dummy {f00=0x002c, f01=0x0190, f02=»IC EXPRESSION d x & P BNOK ART980 JMP IF DISASTER ERROR e P B ART220 e @ PART210 e R , P PERF STREXP ***STRING EXPR. EVALUATION e ` & P BNOK ART980 JMP IF DISASTER ERROR e PART220 e & P PERF INDCNT ***INDENTION COUNTING e 0 P MOVE SLBIN5,LBIN2 LOA
0x06db4a…06db50 00 00 00 00 00 00 ┆ ┆
0x06db50…06dce4 (3, 25) Dummy {f00=0x002c, f01=0x0190, f02=» e V P B ART260 NO MORE PARAMETERS f P EJECT f , P* f : & P* PARAMETER LIST SEPARATOR ',' f D P* f n PART230 f x ( P ADD LBIN4,W1 ADJUST BUFFER POINTER f P* f > P* 2ND PARAMETER STRING OR ARITHMETIC EXPRESSION EXPECTED f P* f : P
0x06dce4…06dcea 00 00 00 00 00 00 ┆ ┆
0x06dcea…06de7e Dummy {f00=0x002c, f01=0x0190, f02=»STER ERROR f x P B ART250 g PART240 g $ P PERF STREXP ***STRING EXPR g 2 & P BNOK ART980 JMP IF DISASTER ERROR g V PART250 g & P PERF INDCNT ***INDENTION COUNTING g P* g @ P* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION CODE g P*
0x06de7e…06de80 00 00 ┆ ┆
0x06de80…06de84 00 00 00 00 ┆ ┆
0x06de84…06e018 Dummy {f00=0x002c, f01=0x0190, f02=»,W1 ADJUST INT.MED BUFFER-POINTER g * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH h * , P MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY h X ( P ADD LBIN4,W1 ADJUST BUFFER POINTER h P B ART500 h P EJECT h P* h 6 P* PRIORED EXPRESSION ( <ARITHMETIC EXPR
0x06e018…06e01e 00 00 00 00 00 00 ┆ ┆
0x06e01e…06e1b2 Dummy {f00=0x002c, f01=0x0190, f02=»OVE LBIN3,W0 POINTER: h 4 P MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '(' i & P BNOK ART500 NO PRIORED EXPRESSION i V ( P ADD LBIN4,W1 ADJUST BUFFER POINTER i & P PERF INDCNT ***INDENTION COUNTING i P* i ( P* ARITHMETIC EXPRESSION EXPECTED i
0x06e1b2…06e1b8 00 00 00 00 00 00 ┆ ┆
0x06e1b8…06e34c Dummy {f00=0x002c, f01=0x018e, f02=»UNTING i t P* j $ P* END OF PRIORED EXPRESSION j P* j @ " P MOVE LBIN3,=W'62' POINTER:=62 j J 4 P XCOPY OBJSTR,VBIN3,W1,OPRVAL,LBIN3 STACK )-CODE j p 0 P ADD VBIN3,W1 ADJUST INT MED. BUFFER-POINTER j * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH j (
0x06e34c…06e352 00 00 00 00 00 00 ┆ ┆
0x06e352…06e4e6 Dummy {f00=0x002c, f01=0x0190, f02=» j P CMP LBIN4,VBIN4 CHECK E-O-L k P BE ART655 JMP IF E-O-L k , & P PERF INDCNT ***INDENTION COUNTING k L P CMP LBIN4,VBIN4 CHECK E-O-L k v P BE ART655 JMP IF E-O-L k " P MOVE LBIN3,=W'27' POINTER:=27 k 4 P MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MA
0x06e4e6…06e4ec 00 00 00 00 00 00 ┆ ┆
0x06e4ec…06e680 Dummy {f00=0x002c, f01=0x0190, f02=»-HANDLER k n & P PERF INDCNT ***INDENTION COUNTING l P B ART050 GO ON l : P* l R . P* COMBINED EXPRESSION ADDING OPERATOR l P* l PART600 l " P MOVE LBIN3,=W'25' POINTER:=25 l 4 P MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '+-' l " P BNO
0x06e680…06e686 00 00 00 00 00 00 ┆ ┆
0x06e686…06e81a Dummy {f00=0x002c, f01=0x0190, f02=»DCNT ***INDENTION COUNTING l P B ART050 GO ON m " P EJECT m : P* m H P* END OF EXPRESSION m R P* m p PART650 m z * P SUB LBIN4,VBIN7 ADJUST BUFFER POINTER m PART655 m & P SUB LBIN2,W1 DECREASE STACK INDEX m 4 P CBE LSTACK(LBIN2),=X'0022
0x06e81a…06e820 00 00 00 00 00 00 ┆ ┆
0x06e820…06e9b4 (3, 26) Dummy {f00=0x002c, f01=0x0190, f02=»BIN2),W0 CLEAR STACK ENTRY m P B ART655 n " PART660 n 4 , P MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY n B P B ART990 n r P* n P* OBJECT ERROR n P* n PART980 n P CMP W1,W0 CR:=1 n P B ART999 n P* n P* OK EXIT n P
0x06e9b4…06e9ba 00 00 00 00 00 00 ┆ ┆
0x06e9ba…06eb4e Dummy {f00=0x002c, f01=0x0190, f02=»JECT n P* o P* CONSTANT STORAGE o P* o 4 0 P* INPUT : VALBUF = VALIDATION BUFFER o > < P* LBIN4 = POINTER OF VALIDATION BUFFER o r 2 P* VBIN7 = LENGTH OF CONSTANT o J P* VBIN3 = POINT
0x06eb4e…06eb54 00 00 00 00 00 00 ┆ ┆
0x06eb54…06ece8 Dummy {f00=0x002c, f01=0x0190, f02=» WORK o v P* p D P* OUTPUT : OBJSTR = INTERMEDIATE BUFFER HOLDING ONE LINE p & P* VBIN3 = UPDATED p ` & P* , VBIN8 = UPDATED p & P* LBIN4 = UPDATED p P* p L P********************************
0x06ece8…06ecee 00 00 00 00 00 00 ┆ ┆
0x06ecee…06ee82 Dummy {f00=0x002c, f01=0x0190, f02=»T INDICATOR ITSELF p ~ ( P CALL SETB,LBIN1,W8 ---SET BIT NO:=8 q < P XCOPY OBJSTR,VBIN3,W1,LBIN1,W1 STORE CONSTANT INDICATOR q F 0 P ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER q @ P XCOPY OBJSTR,VBIN3,VBIN7,VALBUF,LBIN4 STORE STRING CONSTANT q 2 P ADD VBIN3
0x06ee82…06ee88 00 00 00 00 00 00 ┆ ┆
0x06ee88…06f01c Dummy {f00=0x002c, f01=0x0190, f02=» q h * P ADD LBIN4,VBIN7 ADJUST VALBUF POINTER r P RET r 6 P PEND r B P EJECT r P P* r ^ P* LABEL LINE NUMBER r h P* r * P* INPUT : VALBUF = BASIC LINE r 2 P* LBIN4 = BASIC LINE POINTER r 4 P* VB
0x06f01c…06f020 00 00 00 00 ┆ ┆
0x06f020…06f022 00 00 ┆ ┆
0x06f022…06f1b6 Dummy {f00=0x002c, f01=0x0190, f02=»SED : LSTR1 r P* s $ P* OUTPUT : CR = 0 OK s ( P* = 1 NOT OK s H > P* VBIN7 = NUMBER OF EXPRESSION CHARACTER s t P* s L P************************************************************************
0x06f1b6…06f1bc 00 00 00 00 00 00 ┆ ┆
0x06f1bc…06f350 Dummy {f00=0x002c, f01=0x0190, f02=»SITION s h , P MOVE VBIN7,W0 NUMB OF LINE-NUMB CHARS: t PLAB100 t > 6 P XCOPY LSTR1,W0,W1,VALBUF,LBIN3 GET ONE CHARACTER t L 0 P CBL LSTR1,=X'30',LAB150 JMP IF NOT A DIGIT t 0 P CBG LSTR1,=X'39',LAB150 JMP IF NOT A DIGIT t 0 P XCOPY LSTR4A,VBIN7,W1,LST
0x06f350…06f356 00 00 00 00 00 00 ┆ ┆
0x06f356…06f4ea Dummy {f00=0x002c, f01=0x0190, f02=»P IF END-OF-SOURCE LINE t v 2 P CBNE VBIN7,LENGTH,LAB100 JMP IF NOT MAXLENGTH u P EJECT u V PLAB150 u d * P CALL EMPTYT,LSTR4A ---CHECK IF EMPTY u r & P BNOK LAB980 JMP IF NO LINE NUMBER u * P MOVE LINNO(W9),LSTR4A CONVERT TO BCD u , P MOVE LBIN3,LINN
0x06f4ea…06f4f0 00 00 00 00 00 00 ┆ ┆
0x06f4f0…06f684 (3, 27) Dummy {f00=0x002c, f01=0x0190, f02=»E LBIN1,LENGTH STORE LENGTH u < P CALL WXDIV,LBIN1,W2,LBIN1 DIVIDE TO GET CONSTANT LENGTH v $ $ P MOVE VBIN7,W2 STORE MAX-LENGTH v d " P SUB VBIN7,LBIN1 CALC POINTER v @ P XCOPY OBJSTR,VBIN3,LBIN1,LBIN3,VBIN7 STORE NUMERIC CONSTANT v 2 P ADD VBIN3,LBIN1 A
0x06f684…06f68a 00 00 00 00 00 00 ┆ ┆
0x06f68a…06f81e Dummy {f00=0x002c, f01=0x0190, f02=» P* OBJECT ERROR w P* w PLAB980 w ( P CMP W1,W0 CR:=1 w 6 PLAB999 w N P RET w P PEND w h P EJECT w v P* w $ P* DECORATION OPERATION CODE w P* w & P* INPUT : VALBUF = BASIC LINE w . P* LBIN4 = BASIC L
0x06f81e…06f820 00 00 ┆ ┆
0x06f820…06f824 00 00 00 00 ┆ ┆
0x06f824…06f9b8 Dummy {f00=0x002c, f01=0x0190, f02=» USED : LBIN3 w P* x P* OUTPUT: CR = 0 OK x $ $ P* = 1 NOT OK x H * P* LBIN1 = DECORATION CODE x p P* x L P************************************************************************ x PDECOPC PROC DSTL
0x06f9b8…06f9be 00 00 00 00 00 00 ┆ ┆
0x06f9be…06fb52 Dummy {f00=0x002c, f01=0x0190, f02=»,W1 ADJUST BUFFER POINTER x P EJECT y " P* y 0 P* DECORATION VERB y : P* y X P MOVE LBIN3,W0 y b : P MATCH DECOR,LBIN3,DSTLEN,VALBUF,LBIN4,W2 MATCH DECOR y x " P BNOK DEC988 JMP IF NOT FOUND y 0 P XCOPY LBIN1,W1,W1,DECVAL,LBIN3 GET OP-CODE
0x06fb52…06fb58 00 00 00 00 00 00 ┆ ┆
0x06fb58…06fcec Dummy {f00=0x002c, f01=0x0190, f02=»" y v P* z ( P MOVE LSTR1,=X'22' LOAD STRING QUOTE z P MOVE LBIN3,W0 z @ @ P MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH DECOR DELIMITOR z V " P BNOK DEC980 JMP IF NOT FOUND z ( P ADD LBIN4,W1 ADJUST BUFFER POINTER z P* z P* OK EXIT z
0x06fcec…06fcf2 00 00 00 00 00 00 ┆ ┆
0x06fcf2…06fe86 Dummy {f00=0x002c, f01=0x0190, f02=»ST WHEN ERROR z ~ PDEC988 { $ P SUB LBIN4,W1 ADJUST WHEN ERROR { $ P CMP W1,W0 CR:=1 { L PDEC999 { d P RET { r P PEND { ~ P EJECT { P* { P* CLEAR LSTACK { P* { . P* INPUT : LSTACK = STACK-INFORMATION { P* { ( P*
0x06fe86…06fe8c 00 00 00 00 00 00 ┆ ┆
0x06fe8c…070020 Dummy {f00=0x002c, f01=0x0190, f02=»******************************************** { t PCLRLST PROC | 4 B P CALL GETIND,LSTACK(W1),LBIN2,LBIN3 ---GET LENGTH & DIMENSION | H " P MOVE LBIN2,W1 STACK-INDEX:=1 | PCLR010 | , P CALL ICLEAR,LSTACK(LBIN2) ---CLEAR ITEM | ( P ADD LBIN2,W1 INCREMEN
0x070020…070026 00 00 00 00 00 00 ┆ ┆
0x070026…0701ba Dummy {f00=0x002c, f01=0x0190, f02=» STACK INDEX:=1 | P RET } P PEND } $ P EJECT } 2 P* } @ P* OPERATOR STACK HANDLING } J P* } n * P* INPUT : OPRVAL = OPERATOR-CODES } x < P* LBIN3 = POINTER TO OPERATOR-CODE(OPRVAL) } P* } P* USED : SLBIN5 }
0x0701ba…0701c0 00 00 00 00 00 00 ┆ ┆
0x0701c0…070354 (3, 28) Dummy {f00=0x002d, f01=0x0190, f02=»VBIN3 = POINTER TO INTERMEDIATE BUFFER } , P* VBIN8 = STATEMENT LENGTH ~ 0 P* ~ ` L P* LSTACK = STACKED OPERATOR CODES CLEARED IF ENTERD IN INTME ~ j D P* LBIN2 = STACK POINTER DECREASED IF ENTRY CLEARED ~ P* ~
0x070354…07035a 00 00 00 00 00 00 ┆ ┆
0x07035a…0704ee Dummy {f00=0x002d, f01=0x0190, f02=» LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD OPERATOR-CODE ~ POPS000 < 0 P MOVE SLBIN5,LBIN2 LOAD CURREEN STACK-INDEX J , P SUB SLBIN5,W1 CALC PREVIOUS STACK-INDEX ~ 4 P CBE LSTACK(SLBIN5),=X'0022',OPS900 JMP IF E-O-E 2 P MOVE VBIN7,LSTACK(LBIN2) LOAD CUR
0x0704ee…0704f4 00 00 00 00 00 00 ┆ ┆
0x0704f4…070688 Dummy {f00=0x002d, f01=0x018e, f02=»PRIOR,OPS010 JMP IF HIGH PRIORITY P MOVE VBIN7,W2 PRIORITY:=2 * P B OPS020 L POPS010 ^ P MOVE VBIN7,W3 PRIORITY:=3 l POPS020 2 P CBG LBIN3,HPRIOR,OPS030 JMP IF HIGH PRIORITY P MOVE LBIN3,W2 PRIORITY:=2 P B OPS040 POP
0x070688…07068e 00 00 00 00 00 00 ┆ ┆
0x07068e…070822 Dummy {f00=0x002d, f01=0x0190, f02=» P* & P* STORE PREVIOUS OPERATOR-CODE P* 8 : P XCOPY OBJSTR,VBIN3,W1,LSTACK(SLBIN5),W1 STOR OP-CODE B ( P ADD VBIN3,W1 ADJUST BUFFER POINTER * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH > P MOVE LSTACK(SLBIN5),LSTACK(LBIN2) POP-UP CURR
0x070822…070828 00 00 00 00 00 00 ┆ ┆
0x070828…0709bc Dummy {f00=0x002d, f01=0x4060, f02=» LBIN2,W1 INCREMENT STACK-INDEX POPS999 ( P RET 6 P PEND B P END P@ SLBIN5),W1 STOR OP-CODE B ( P ADD VBIN3,W1 ADJUST BUFFER POINTER * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH > P MOVE LSTACK(SLBIN5),LSTACK(LBIN2) POP-UP CURR
0x0709bc…0709c0 00 00 00 00 ┆ ┆
0x0709c0…0709c2 00 00 ┆ ┆
0x0709c2…070b56 Dummy {f00=0x002d, f01=0x2008, f02=» 1 INCREMENT STACK-INDEX POPS999 ( P RET 6 P PEND B P END P@ SLBIN5),W1 STOR OP-CODE B ( P ADD VBIN3,W1 ADJUST BUFFER POINTER * P ADD VBIN8,W1 ADJUST STATEMENT LENGTH > P MOVE LSTACK(SLBIN5),LSTACK(LBIN2) POP-UP CURR
0x070b56…070b5c 00 00 00 00 00 00 ┆ ┆
0x070b5c…070cf0 Dummy {f00=0x002d, f01=0x0190, f02=» r0 q q q jR {q r jZ ` 6 6 . " > " N " ^ n ~ J F " D r l 06 06 % 0 O0 0 @`@y Hg 9 9 I`/ k9 ^(^ ^ ^ ^ ^ *
0x070cf0…070cf6 00 00 00 00 00 00 ┆ ┆
0x070cf6…070e8a Dummy {f00=0x002d, f01=0x0190, f02=» (t N ? 9* J F " D ` (` a W j~ ` Id jb ~ btj~ b f~ $w)$ c) c` cc c`*c) o8 H * l Y 9Z-+*$.,BE ~ J F " D @d~ `o o9 a` c`W`d~ w|x }: bw ` h}` ~a P d~a } c a W 6` Y J F " D W ba b
0x070e8a…070e90 00 00 00 00 00 00 ┆ ┆
0x070e90…071024 (3, 29) Opaque[0x194]
0x071024…07102a 00 00 00 00 00 00 ┆ ┆
0x07102a…0711be # DirEnt {nam=»FSINIT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x05a8, f03=0x0000}
0x07102a…0711be IdxSect {
0x07102a…0711be f00 = 0x002d // 0x7102a @0x0
0x07102a…0711be f01 = 0x0008 // 0x7102c @0x2
0x07102a…0711be gno = [ // 0x7102e @0x4
0x07102a…0711be [0x00]: C0x002d.0x1.0
0x07102a…0711be [0x01]: C0x002d.0x2.0
0x07102a…0711be [0x02]: C0x002d.0x3.0
0x07102a…0711be [0x03]: C0x002e.0x0.0
0x07102a…0711be ]
0x07102a…0711be }
0x0711be…0711c0 00 00 ┆ ┆
0x0711c0…0711c4 00 00 00 00 ┆ ┆
0x0711c4…071358 Dummy {f00=0x002d, f01=0x0190, f02=» . P IDENT FSINIT REL=2.3,851010,870155940230 P 6 D P*************************************************************** > P* P* * P* LATEST UPDATE 841010 MADE BY CJ P* P* P* HISTORY= @ P* 8510
0x071358…07135e 00 00 00 00 00 00 ┆ ┆
0x07135e…0714f2 Dummy {f00=0x002d, f01=0x0190, f02=»J REFRESH OF FORMAT FWSINS x J P* 830526/CJ REL.NUMBER TO FWSINS FROM WSMDDV VIA RELNUM $ : P* 830425/CJ REL.DATE STORED IN PASSWORD r P* P* D P***************************************************************
0x0714f2…0714f8 00 00 00 00 00 00 ┆ ┆
0x0714f8…07168c Dummy {f00=0x002d, f01=0x018e, f02=»KTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE 2 $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM n P EXT SETB ---ASSRUT:SET BIT " P EXT WXDIV ---ASSRUT:DIVISION P EJECT P INCLUDE WSMKEY,LIST
0x07168c…071692 00 00 00 00 00 00 ┆ ┆
0x071692…071826 Dummy {f00=0x002d, f01=0x0190, f02=» PFSINIT PROC PFSI000 $ P MOVE GBIN2,W0 CLEAR RETUR-CODE * 0 P ATTFMT FWFSIN ATTACH FORMAT-SECTION FORMAT R & P ERASE 6,W1,W0 ERASE OLD CONTENTS 2 P TBF LBOOL8,FSI030 JUMP IF NEW FORMAT SECTION 0 P PERF USINIT ***UNPACK SECTION INI
0x071826…07182c 00 00 00 00 00 00 ┆ ┆
0x07182c…0719c0 Dummy {f00=0x002d, f01=0x018e, f02=» ENTIRE FORMAT x $ P TBT LBOOL8,FSI050 JMP IF UPDATE " P MOVE LBIN4,W0 FIELD-INDEX:=0 > P B FSI405 d PFSI050 v " P MOVE LBIN4,W4 FIELD-INDEX:=4 P B FSI405 PFSI100 $ P GETABX LBIN4 GET CURRENT INDEX PFSI150 @ P PERF RE
0x0719c0…0719c6 00 00 00 00 00 00 ┆ ┆
0x0719c6…071b5a Dummy {f00=0x002d, f01=0x0190, f02=» P* P* CANCEL-KEY P* & PFSI200 0 & P ERASE 4,W1,W0 ERASE OLD CONTENTS > 2 P TBF LBOOL8,FSI210 JUMP IF NEW FORMAT SECTION h . P PERF USINIT ***UNPACK FORMAT SECTION INIT P B FSI220 PFSI210 , P PERF FSIDEF ***FORMAT S
0x071b5a…071b60 00 00 00 00 00 00 ┆ ┆
0x071b60…071cf4 (3, 30) Dummy {f00=0x002d, f01=0x0190, f02=» P* PFSI300 & P MOVE GBIN2,W1 INDICATE RETUR-KEY P B FSI999 F P EJECT X P* f P* POWER OFF p P* PFSI400 * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT PFSI402 $ P GETABX LBIN4 GET CURRENT FIELD PFSI405
0x071cf4…071cfa 00 00 00 00 00 00 ┆ ┆
0x071cfa…071e8e Dummy {f00=0x002d, f01=0x0190, f02=»IN3 CHANGE INDEX P B FSI405 P EJECT * P* 8 P* END OF FORMAT FOUND B P* b PFSI500 l ( P BZ FSI505 JMP IF ENT AND NOT E-O-F z P MOVE LBIN1,W0 NO CLEAR P MOVE LBIN4,W7 MESSAGE NO 7 8 P PERF WSMERR,KEYT5,=W'0' ***(E
0x071e8e…071e94 00 00 00 00 00 00 ┆ ┆
0x071e94…072028 Dummy {f00=0x002d, f01=0x0190, f02=»05 " P MOVE GBIN3,W1 1ST BUFFERPOOL , P MOVE GBIN4,GBIN3 CURRENT BUFFERPOOL=1ST 0 $ P MOVE GBIN5,W6 BUFFER POINTER:=6 ` 6 P XCOPY GBIN6,W0,W1,GBIN4,W1 SAVE START BUFFERINDEX : P XCOPY GBIN6,W1,W1,GBIN5,W1 SAVE STARTPOINTER IN BUFF . P CALL IC
0x072028…07202e 00 00 00 00 00 00 ┆ ┆
0x07202e…0721c2 Dummy {f00=0x002d, f01=0x0190, f02=»ER:=12 p @ P XCOPY BPOOL(GBIN4),GBIN5,W6,PASDAT,W0 REL.DATE IN PASSWORD * P ADD GBIN5,W7 ADJUST BUFFERPOINTER:=19 R < P XCOPY BPOOL(GBIN4),GBIN5,W1,W1,W1 OBJECT VERSION NO:=1 * P ADD GBIN5,W3 ADJUST BUFFERPOINTER:=22 8 P MOVE LBIN1,GBCD3I(W5) CON
0x0721c2…0721c8 00 00 00 00 00 00 ┆ ┆
0x0721c8…07235c Dummy {f00=0x002d, f01=0x0190, f02=»PY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 VERSION NO * P ADD GBIN5,W1 ADJUST BUFFERPOINTER:=23 4 P MOVE LBIN1,W0 b > P CBNE GSTR1I(W1),YES,FSI510 JUMP IF AUTO ENT. NO OR EMPTY x ( P CALL SETB,LBIN1,W8 ---SET BIT NO:8 PFSI510 4 P MOVE LBIN2,GBCD3I(W
0x07235c…072360 00 00 00 00 ┆ ┆
0x072360…072362 00 00 ┆ ┆
0x072362…0724f6 Dummy {f00=0x002d, f01=0x0190, f02=»FSI520 4,5 AND 6 => NO ADJUSTMENT P ADD LBIN2,W1 ADJUST FOR >7 * PFSI520 N P ADD LBIN1,LBIN2 @ P XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 AUTO ENT AND SEC.TYPE t * P ADD GBIN5,W1 ADJUST BUFFERPOINTER:=24 4 P MOVE LBIN1,GBCD3I(W3) LOAD SEC.SI
0x0724f6…0724fc 00 00 00 00 00 00 ┆ ┆
0x0724fc…072690 Dummy {f00=0x002d, f01=0x0190, f02=»IN1,GBCD3I(W4) LOAD SEC.SIZE COLS BINARY > P XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 SEC.SIZE COLS BINARY 0 $ P ADD GBIN5,W11 BUFFERPOINTER:=36 r B P XCOPY BPOOL(GBIN4),GBIN5,W1,GSTR1I(W23),W0 STORE DECIMAL-CHAR P EJECT $ P ADD GBIN5,W4 BUFFERPOINTE
0x072690…072696 00 00 00 00 00 00 ┆ ┆
0x072696…07282a Dummy {f00=0x002d, f01=0x0190, f02=»ERF DECORD,W2,W3 ***SCREEN BACKGROUND DECOR . P MOVE GBIN10,LBIN1 SAVE BACKGROUND DEFAULT 4 2 P PERF DECORD,W4,W7 ***STATIC FIELD DECORATION f * P MOVE GBIN11,LBIN1 SAVE STATIC DEFAULT 0 P PERF DECORD,W8,W11 ***DYNAMIC FIELD DECOR. , P MOVE GBIN
0x07282a…072830 00 00 00 00 00 00 ┆ ┆
0x072830…0729c4 (3, 31) Dummy {f00=0x002d, f01=0x0190, f02=»LBIN1,GBINIA(W1) WORKITEM:=MESSAGE LENGTH P MOVE LBIN3,W0 WORKITEM:=0 2 6 P MATCH LSTR4A,LBIN3,W4,GST80I(W1),W0,W2 WHAT TYPE? T P BOK FSI530 $ P ADD GBIN5,W1 NO DEFAULT MESSAGE P B FSI540 PFSI530 . P CBE LBIN3,W2,FSI535 JUMP IF L
0x0729c4…0729ca 00 00 00 00 00 00 ┆ ┆
0x0729ca…072b5e Dummy {f00=0x002d, f01=0x0190, f02=»YPE + LEN Z ( P ADD GBIN5,W1 ADJUST BUFFER POINTER . P CBE LBIN3,W2,FSI538 JUMP IF LINE MESSGAE > B P XCOPY BPOOL(GBIN4),GBIN5,W1,W0,W0 LOAD MSG TYPE=SECTION X'00' p ( P ADD GBIN5,W1 ADJUST BUFFER POINTER PFSI538 6 P XCOPY BPOOL(GBIN4),GBIN
0x072b5e…072b60 00 00 ┆ ┆
0x072b60…072b64 00 00 00 00 ┆ ┆
0x072b64…072cf8 Dummy {f00=0x002d, f01=0x0190, f02=»LD-CODE n : P* - BYTES 24-25 (+6) POOL-UNIT-NO + DISPLACEMENT P* N * P MOVE LBIN1,W24 LOAD BUFFERPOINTER:=24 X P ADD LBIN1,W6 GIVING 30 B P XCOPY BPOOL(GBIN4),LBIN1,W1,GBIN4,W1 REL. ADR.ST. FC. POOL NO * P ADD LBIN1,W1 GIVING BUFFERP
0x072cf8…072cfe 00 00 00 00 00 00 ┆ ┆
0x072cfe…072e92 Dummy {f00=0x002d, f01=0x0190, f02=»EN z 4 P MOVE GBIN7,GBIN5 SAVE START ADRESS OF ST FIELD > P XCOPY GBIN7,W0,W1,GBIN4,W1 SAVE START ADRESS OF ST FIELD B ( P MOVE LBIN2,GBIN5 LOAD POINTER VALUE $ P SUB LBIN2,W6 ADJUST FOR OV HEAD B P XCOPY BPOOL(GBIN4),LBIN1,W1,LBIN2,W1 REL. ADR.S
0x072e92…072e98 00 00 00 00 00 00 ┆ ┆
0x072e98…07302c Dummy {f00=0x002d, f01=0x0190, f02=»* FORMAT SECTION DEFAULT VALUES P* * PFSIDEF PROC 4 $ P MOVE GBCD3I(W2),W1 SECTION TYPE H , P MOVE GBCD3I(W3),ROWS SECTION SIZE ROWS p , P MOVE GBCD3I(W4),COLS SECTION SIZE COLS & P MOVE GBCD3I(W5),W0 VERSION NO:=0 , P MOVE GBCD3I(W
0x07302c…073032 00 00 00 00 00 00 ┆ ┆
0x073032…0731c6 Dummy {f00=0x002d, f01=0x0190, f02=»TR1I(W1),NO AUTO ENTERING * P MOVE GSTR1I(W23),=C'.' DECIMAL=POINT " * P MOVE GSTR1I(W8),=C'H' DYNAMIC DECOR 1 P P RET ~ P PEND P EJECT L P************************************************************************ P* P* DEC
0x0731c6…0731cc 00 00 00 00 00 00 ┆ ┆
0x0731cc…073360 Dummy {f00=0x002d, f01=0x0190, f02=» 012 4 8 GIVING CORRESPONDING BIT r > P* LINDEX = LOWEST INDEX OF 'GSTR1I' 2 @ P* HINDEX = HIGHEST INDEX OF 'GSTR1I' t L P* OUTPUT BPOOL = UPDATED WITH A BYTE OF DECORATIONBITS 6 P
0x073360…073366 00 00 00 00 00 00 ┆ ┆
0x073366…0734fa Dummy {f00=0x002d, f01=0x0190, f02=»**** L PDECORD PROC LINDEX,HINDEX P PBIN LINDEX . P PBIN HINDEX B P MOVE LBIN1,W0 WORKITEM:=0 V ( P MOVE LBIN3,LINDEX SAVE START INDEX x PDEC100 P MOVE LBIN2,W0 WORKITEM:=0 . P MATCH LSTR81,LBIN2,W9,GSTR1I(LBIN3),W0,W1 P B
0x0734fa…073500 00 00 00 00 00 00 ┆ ┆
0x073500…073694 (3, 32) Dummy {f00=0x002e, f01=0x40d2, f02=»EC100 NOT GREATER HIGHEST INDEX | < P XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DECORATION DEFAULT ( P ADD GBIN5,W1 ADJUST PONTER h P RET P PEND P INCLUDE FWSINS,LIST P END @
0x073694…07369a 00 00 00 00 00 00 ┆ ┆
0x07369a…07382e Dummy {f00=0x002e, f01=0x2008, f02=» T GREATER HIGHEST INDEX | < P XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DECORATION DEFAULT ( P ADD GBIN5,W1 ADJUST PONTER h P RET P PEND P INCLUDE FWSINS,LIST P END @
0x07382e…073834 00 00 00 00 00 00 ┆ ┆
0x073834…0739c8 Dummy {f00=0x002e, f01=0x0190, f02=»ITION++NOW PRINTING ALREADY DEFINEDFORMAT SECTION:EXTENDED PROMPT :GUIDING MESSAGE :FORMAT DEFINITION:XZTT9TTTZZ9YYYYZZZE/ HURB - - -
0x0739c8…0739ce 00 00 00 00 00 00 ┆ ┆
0x0739ce…073b62 Dummy {f00=0x002e, f01=0x0190, f02=»DTAB PICTUR BPOOL ATTAB K o J N o J K o G N o G L Z M Z I/O-ERROR ILLEGAL TYPE PRINTER OCCUPIED E VALUE : O FIELD-ID NOT FOUND SYNTAX ERROR: ZZj MUST BE (.) OR (,) MUST BE (M:) OR (S:) MUST BE (YES) OR (NO)
0x073b62…073b68 00 00 00 00 00 00 ┆ ┆
0x073b68…073cfc Dummy {f00=0x002e, f01=0x0190, f02=» <ENTER> TO CONFIRM TOO FEW INPUT CHARACTERS PRINT-DEVICE NOT OPERABLE MUST BE (LEFT) OR (RIGHT) FIELD NAME ALREADY DEFINED WORKING AREA Hd EXCEEDED COMPULSORY FIELD NOT ENTERED SPACE NOT ALLOWED IN FIELD ID VALIDATION : " SEC
0x073cfc…073d00 00 00 00 00 ┆ ┆
0x073d00…073d02 00 00 ┆ ┆
0x073d02…073e96 Dummy {f00=0x002e, f01=0x0190, f02=»CEED MAX ROW SIZE: ZZj i DISK POOL -ERROR. STATUS: } #BASIC-VERB OR -FUNCTION NOT ALLOWED FILE: o NOT FOUND ON THIS VOLUME MUST BE WITHIN ZZ9 AND ZZ9j $ILLEGAL DIRECTION TO WANTED FIELD-ID SYNTAX ERROR FOUND IN LINE : 9999 %1ST CHAR
0x073e96…073e9c 00 00 00 00 00 00 ┆ ┆
0x073e9c…074030 Dummy {f00=0x002e, f01=0x0190, f02=»WED #PRINTOUT POSITIONS MUST BE OUTSIDE ZZ9 * ZZ9 3MUST BE A FIELD NAME, WSM WORK ITEM OR A DATA TABLE 6PRESS <ENTER> TO CONFIRM OR <PRINT> TO CONFIRM & PRINT +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT, % <DEL> = DELETION, <DUP> = DUPLICATE. /
0x074030…074036 00 00 00 00 00 00 ┆ ┆
0x074036…0741ca Dummy {f00=0x002e, f01=0x0190, f02=»RSION NO: TYPE: RELEASE DATE: PAGE: WSM REL RELEASE DATE: WSM CREATOR TOOLS FUNCTION SELECTION: 1 = < A H 2 = < A D 3 = = A H 4 = = A D E POSITION FIELD ORG DATA
0x0741ca…0741d0 00 00 00 00 00 00 ┆ ┆
0x0741d0…074364 (3, 33) Opaque[0x194]
0x074364…07436a 00 00 00 00 00 00 ┆ ┆
0x07436a…0744fe # DirEnt {nam=»VALPRC«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x05c8, f03=0x0000}
0x07436a…0744fe IdxSect {
0x07436a…0744fe f00 = 0x002e // 0x7436a @0x0
0x07436a…0744fe f01 = 0x0010 // 0x7436c @0x2
0x07436a…0744fe gno = [ // 0x7436e @0x4
0x07436a…0744fe [0x00]: C0x002e.0x1.0
0x07436a…0744fe [0x01]: C0x002e.0x2.0
0x07436a…0744fe [0x02]: C0x002e.0x3.0
0x07436a…0744fe [0x03]: C0x002f.0x0.0
0x07436a…0744fe [0x04]: C0x002f.0x1.0
0x07436a…0744fe [0x05]: C0x002f.0x2.0
0x07436a…0744fe [0x06]: C0x002f.0x3.0
0x07436a…0744fe [0x07]: C0x0030.0x0.0
0x07436a…0744fe ]
0x07436a…0744fe }
0x0744fe…074500 00 00 ┆ ┆
0x074500…074504 00 00 00 00 ┆ ┆
0x074504…074698 Dummy {f00=0x002e, f01=0x0190, f02=» . P IDENT VALPRC REL=2.3,850531,870155940230 P 6 : P****************************************************** > P* | ( P* LATEST UPDATE 850531 MADE BY JE P* P* HISTORY= N P* 850531/JE DIRECT MOVE VAL.OBJ. NOT OK WH
0x074698…07469e 00 00 00 00 00 00 ┆ ┆
0x07469e…074832 Dummy {f00=0x002e, f01=0x0190, f02=»PERFORMANCE. DIRECT MOVE VAL.OBJ. WHEN UNCHANGED x N P* 850220/JE SIMULATE INPUT OF LINE NUMBER WHEN DISASTER ERROR 8 ( P* FROM OBJVAL 8 P* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE H P* 841017/CJ
0x074832…074838 00 00 00 00 00 00 ┆ ┆
0x074838…0749cc Dummy {f00=0x002e, f01=0x0190, f02=» 830520/CJ TAB FWD (BLAEDDRING) ERROR H P* WHEN VALBUF EXACT FULL LOC:=81 - NOW SOLVED 4 J P* 830520/CJ ERROR IN BUFSEA WHEN VALBUF OVERFLOW - SOLVED D P* 830519/CJ ERROR WHEN VALBUF-MAX REACHED LOC:
0x0749cc…0749d2 00 00 00 00 00 00 ┆ ┆
0x0749d2…074b66 Dummy {f00=0x002e, f01=0x0190, f02=» ENTRY VALPRC $ P ENTRY VLPAGE ***VALIDATION PAGE 8 P EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S > > P EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD z 4 P EXPROC WSMERR,PKTAB,PLIT ***ERR-MESSAGE ROUTINE P EXT ICLEAR ---CLEAR
0x074b66…074b6c 00 00 00 00 00 00 ┆ ┆
0x074b6c…074d00 Dummy {f00=0x002e, f01=0x0190, f02=» ---DIVISION P EJECT P INCLUDE WSMKEY,LIST " P INCLUDE KEYT21,LIST > P INCLUDE KEYT22,LIST Z P INCLUDE KEYT23,LIST v P EJECT P INCLUDE KEYT5,LIST P EJECT P* P* VALIDATION PROCEDURE > P* THIS ROUTI
0x074d00…074d06 00 00 00 00 00 00 ┆ ┆
0x074d06…074e9a Dummy {f00=0x002e, f01=0x0190, f02=»EMS: VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE B P* VBIN2 = INDEX TO VALIDATION LINE OF PAGE 2 L P* VBIN3 = BUFFERPOINTER OF VALIDATION SOURCE BUFFER x 8 P* VBIN4 = END BPOINTER OF VALBUF 8 P*
0x074e9a…074ea0 00 00 00 00 00 00 ┆ ┆
0x074ea0…075034 (3, 34) Dummy {f00=0x002e, f01=0x018e, f02=»R @ P* VBIN7 = LENGTH OF KEYED IN LINE NUMBER P* N & P* OUTPUT CR = 0 OK X 4 P* = 1 GREATER OVERFLOW P* L P********************************************************************
0x075034…07503a 00 00 00 00 00 00 ┆ ┆
0x07503a…0751ce Dummy {f00=0x002e, f01=0x0190, f02=» ( P MOVE LBIN1,W0 BASIC LINE LENGTH:=0 4 P XCOPY LBIN1,W1,W1,VALBUF,VBIN8 GET LINE LENGTH 4 6 P CBE LBIN1,W0,VAL050 JMP IF END OF BUFFER REACHED l & P ADD VBIN8,W1 ADJUST BUFFERPOINTER 4 P XCOPY VBIN5,W0,W2,VALBUF,VBIN8 GET LINE-NUMBER P
0x0751ce…0751d4 00 00 00 00 00 00 ┆ ┆
0x0751d4…075368 Dummy {f00=0x002e, f01=0x0190, f02=» IF LESS P EJECT PVAL050 4 P CALL WXDIV,VBIN5,W10,VBIN5 CALC 1ST FREE LINENO , > P CALL WXMUL,VBIN5,W10,VBIN5 ...BY GETTING EVEV 10-MULTIPEL d P ADD VBIN5,W10 ...AND ADD 10 4 P CBNG VBIN5,=X'07FF',VAL060 LINE NUMBER < = 2047 P B VAL
0x075368…07536e 00 00 00 00 00 00 ┆ ┆
0x07536e…075502 Dummy {f00=0x002e, f01=0x0190, f02=»EX j ( P ADD LBIN4,W10 CALC PROPER FIELD NO $ P GETFLD 1,LBIN4,LBIN3 FINP FIELD 6 . P DISPLAY 2,LBIN4,LBIN4 DISPLAY ROW NUMBER ^ ( P ADD LBIN4,W8 CALC PROPER FKI-SEQ,NO $ P GETFLD 0,LBIN4,LBIN3 FKI-FIELD P SETCUR . P CLEAR OBBOOL CLEAR
0x075502…075508 00 00 00 00 00 00 ┆ ┆
0x075508…07569c Dummy {f00=0x002e, f01=0x0190, f02=»EYT1,KEYT22,KEYT3,=W'0' ***READIN ONE FIELD P IB LBIN2,VAL100,VAL200, C 4 P VAL300,VAL400 X P EJECT p PVAL100 ~ P BNL VAL102 JMP IF NOT E-O-P PVAL101 P SET VBOOL3 TRUE=E-O-P PVAL102 & P TBT LBOOL1,VAL110 JMP IF BACK
0x07569c…0756a0 00 00 00 00 ┆ ┆
0x0756a0…0756a2 00 00 ┆ ┆
0x0756a2…075836 Dummy {f00=0x002e, f01=0x0190, f02=» + EMPTY l $ P TBT VBOOL3,VAL105 JMP IF E-O-P P B VAL500 JMP IF ENT + EMPTY 8 P* P* TAB FORWARD f P* ~ PVAL105 6 P MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER 6 P CBNE LBIN1,VBIN5,VAL120 JMP IF NOT 1ST FREE LINE
0x075836…07583c 00 00 00 00 00 00 ┆ ┆
0x07583c…0759d0 Dummy {f00=0x002e, f01=0x0190, f02=»-PAGE 1ST LENGTH h PVAL107 0 P CBE LBIN1,W0,VAL065 JMP IF NO PAGING NEEDED & 0 P MOVE VBIN3,VBIN4 LOAD CURRENT E-O-P POINTER Z P B VAL116 P EJECT PVAL110 6 P MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER 6 P CBNE LBIN1,VBIN5,
0x0759d0…0759d6 00 00 00 00 00 00 ┆ ┆
0x0759d6…075b6a Dummy {f00=0x002e, f01=0x0190, f02=»1 JMP IF NOT 1ST PAGE ON SCREEN | * P B VAL700 JMP IF 1ST PAGE AND BACKTAB ( PVAL111 V $ P MOVE LBIN1,W0 BUFFER POINTER:=0 d ( P MOVE VBIN8,W0 BASIC LINE LENGTH:=0 & P CALL ICLEAR,LSTR16 ---CLEAR ITEM PVAL112 2 P XCOPY VSTR2,W0,W2,LBIN1
0x075b6a…075b70 00 00 00 00 00 00 ┆ ┆
0x075b70…075d04 (3, 35) Dummy {f00=0x002e, f01=0x0190, f02=»GTH ^ , P CBE VBIN8,W0,VAL114 JMP IF E-O-B FOUND $ P ADD LBIN1,VBIN8 ADJUST POINTER < 4 P CBE LBIN1,VBBIN,VAL114 JMP IF END LIMIT REACHED d 4 P CBNE LBIN1,VBIN3,VAL112 JMP IF B-O-P NOT FOUND PVAL114 > P XCOPY VBIN3,W0,W2,LSTR16,W8 LOAD STAR
0x075d04…075d0a 00 00 00 00 00 00 ┆ ┆
0x075d0a…075e9e Dummy {f00=0x002e, f01=0x0190, f02=»1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 P MOVE VBIN2,W1 LINE INDEX:=1 * ( P MOVE VBIN8,VBIN3 LOAD B-O-P POINTER N $ P MOVE LBIN4,=W'29' FIELD SEQ NO z P B VAL125 P EJECT P* 8 P* DELETION EMPTY BASIC LINE + NOT 1ST FREE LINE P
0x075e9e…075ea0 00 00 ┆ ┆
0x075ea0…075ea4 00 00 00 00 ┆ ┆
0x075ea4…076038 Dummy {f00=0x002e, f01=0x0190, f02=»,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH 2 P TBF VBOOL2,VAL122 JMP IF NOT FOUND NO DELETE 8 0 P DLETE VALBUF,VBIN8,LBIN4 DELET EMPTIED LINE n , P SET CHABOL T=VALIDATION ROUTINE CHANGED , P MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF 8 P PERF
0x076038…07603e 00 00 00 00 00 00 ┆ ┆
0x07603e…0761d2 Dummy {f00=0x002e, f01=0x0190, f02=»BIN4 CALC PROPER FKI FINP P ADD LBIN4,=W'27' ...SEQ.NO " ( P ERASE 2,LBIN4,W0 ERASE REST OF PAGE F PVAL125 r * P CBNE LBIN2,W1,VAL128 JMP IF NOT ENTER $ P TBT VBOOL3,VAL128 JMP IF E-O-P P B VAL500 JMP IF ENTER PVAL128 . P PERF
0x0761d2…0761d8 00 00 00 00 00 00 ┆ ┆
0x0761d8…07636c Dummy {f00=0x002e, f01=0x0190, f02=»F PAGE n P B VAL065 P EJECT PVAL130 . P* < , P* TYPE OF INPUT : 1.ONLY LINE NUMBER F 8 P* 2.LINE NUMBER + BASIC STATMENT v . P* 3.ONLY BASIC STATMENT P* & P CALL ICLEAR,LSTR4A ---CLE
0x07636c…076372 00 00 00 00 00 00 ┆ ┆
0x076372…076506 Dummy {f00=0x002e, f01=0x0190, f02=»1),W4,VAL134 JMP IF GREATER MAXLENGTH 4 P MOVE LBIN1,GBINIA(VBIN1) LOAD ACTUAL LENGTH < 4 . PVAL134 f < P XCOPY LSTR1,W0,W1,BASLIN(VBIN2),VBIN7 GET ONE CHARACTER t 0 P CBL LSTR1,=X'30',VAL136 JMP IF NOT A DIGIT 0 P CBG LSTR1,=X'39',VAL136 JMP IF
0x076506…07650c 00 00 00 00 00 00 ┆ ┆
0x07650c…0766a0 Dummy {f00=0x002e, f01=0x0190, f02=»1,VAL134 JMP IF NOT MAXLENGTH PVAL136 & * P MOVE LINNO(W9),LSTR4A CONVERT TO BCD 4 > P CBNE LINNO(W9),=D'00',VAL141 JMP IF NOT ONLY BASIC STATM b , P B VAL190 JMP WHEN ONLY BASIC STATEMENT PVAL141 $ P CLEAR VBOOL4 FALSE = NO DELETE 6
0x0766a0…0766a6 00 00 00 00 00 00 ┆ ┆
0x0766a6…07683a Dummy {f00=0x002e, f01=0x0190, f02=»8 ***LINE NUMBER WHITIN SCREEN x 6 P TBF VBOOL1,VAL142 JMP IFLINE NUMBER NOT ON SCREEN & P EJECT ` P* n : P* BASIC LINE OVERWRITTEN WITH AT LEAST LINE NUMBER x ( P* DELETE THE OVERWRITTEN LINE P* : P MOVE LINNO(W9),LINNO(VBIN2)
0x07683a…076840 00 00 00 00 00 00 ┆ ┆
0x076840…0769d4 (3, 36) Dummy {f00=0x002f, f01=0x0190, f02=»CH V 2 P TBF VBOOL2,VAL142 JMP IF NOT FOUND IN BUFFER . P DLETE VALBUF,VBIN8,LBIN4 DELET FOUND LINE @ , P SET CHABOL T=VALIDATION ROUTINE CHANGED r , P MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF 8 P PERF ZERFLL,VALBUF,LBIN1,LBIN4 ***ZERO REFILL /00:S
0x0769d4…0769da 00 00 00 00 00 00 ┆ ┆
0x0769da…076b6e Dummy {f00=0x002f, f01=0x0190, f02=»ND | P* PVAL142 < P CBNG GBINIA(VBIN1),VBIN7,VAL143 JMP IF JUST LINE NUMBER " * P ADD VBIN7,W1 ADJUST FOR SPACE BETWEEN b PVAL143 2 P DLETE BASLIN(VBIN2),W0,VBIN7 DLETE LINENUMBER * P SUB GBINIA(VBIN1),VBIN7 ADJUST LENGTH : P PERF
0x076b6e…076b74 00 00 00 00 00 00 ┆ ┆
0x076b74…076d08 Dummy {f00=0x002f, f01=0x0190, f02=»NE FOUND IN SCREEN t PVAL144 0 P MOVE VBIN6,GBINIA(VBIN1) SAVE NUMB OF CHARS ( & P CALL ICLEAR,LSTR81 ---CLEAR ITEM , P XCOPY LSTR81,W0,VBIN6,BASLIN(VBIN2),W0 & P MOVE VBIN2,W1 LINE-NUMBERINDEX:=1 . P MOVE VBIN1,W9 NUMB-OF-CHARS-TABL-INDEX:
0x076d08…076d0e 00 00 00 00 00 00 ┆ ┆
0x076d0e…076ea2 Dummy {f00=0x002f, f01=0x0190, f02=»VBIN8,W0 STARTPOINT AT SEARCH @ P PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH & , P MOVE VBIN3,VBIN8 UPDATE BUFFER POINTER j ( P TBT VBOOL2,VAL170 JMP IF LINE FOUND P MOVE LINNO(VBIN2),LINNO(W9) $ P ADD VBIN2,W1 LINENUMBERINDEX:
0x076ea2…076ea8 00 00 00 00 00 00 ┆ ┆
0x076ea8…07703c Dummy {f00=0x002f, f01=0x018e, f02=» LINE NUMBER OUT OF BUFFER NEW LINE P* , 2 P MOVE VBIN5,LINNO(W9) NEW 1ST FREE LINE NUMBER 6 P MOVE VBIN2,W1 LINE-INDEX:=1 l 0 P MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 4 P MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS > P CBNE GBINIA
0x07703c…077040 00 00 00 00 ┆ ┆
0x077040…077042 00 00 ┆ ┆
0x077042…0771d6 Dummy {f00=0x002f, f01=0x018e, f02=» P* < P* LINE NUMBER OUT OF BUFFER NEW LINE + BASIC STATMENT P* N PVAL145 X B P XCOPY BASLIN(VBIN2),W0,VBIN6,LSTR81,W0 RESTORE BASIC STATMENT f $ P MOVE LBIN1,=W'29' FIELD SEQ NO P DISPLAY 3,LBIN1,W0 DISPLAY $ P B VAL190 STORE
0x0771d6…0771dc 00 00 00 00 00 00 ┆ ┆
0x0771dc…077370 Dummy {f00=0x002f, f01=0x0190, f02=» ( P MOVE VBIN8,VBIN3 LOAD B-O-P POINTER P EJECT 0 P* > 4 P* LINE NUMBER FOUND /NOT FOUND WITHIN BUFFER H P* PVAL170 . P PERF VLPAGE,VBIN8 ***VALIDATION PAGE LOAD 6 P MOVE LINNO(VBIN2),VBIN5 STORE 1ST FREE LINENUMBER $ P MOV
0x077370…077376 00 00 00 00 00 00 ┆ ┆
0x077376…07750a Dummy {f00=0x002f, f01=0x0190, f02=»ATEMNET X 4 P MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS < P PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITHIN SCREEN H P EJECT P* * P* LINE NUMBER FOUND WITHIN SCREEN P* PVAL180 : P CBE GBINIA(VBIN1),W0,VAL185 JMP I
0x07750a…077510 00 00 00 00 00 00 ┆ ┆
0x077510…0776a4 (3, 37) Dummy {f00=0x002f, f01=0x0190, f02=»X p ( P ADD LBIN3,W18 CALC PROPER FIELD NO * P ERASE 10,LBIN3,LBIN3 ERASE OLD VALUE 6 : P XCOPY BASLIN(VBIN8),W0,GBINIA(VBIN1),BASLIN(VBIN2),W0 d , P DISPLAY 1,LBIN3,LBIN3 DISPLAY NEW VALUE P* 8 P* .......BUT NOT FOLLOWED BY A BASIC ST
0x0776a4…0776aa 00 00 00 00 00 00 ┆ ┆
0x0776aa…07783e Dummy {f00=0x002f, f01=0x0190, f02=»RASE 10,LBIN3,LBIN3 ERASE ROW NUMBER ENTERED , P MOVE VBIN2,VBIN8 MAKE NEW LINE CURRENT 4 0 P ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX d 8 P CBE GBINIA(VBIN1),W0,VAL192 JMP IF JUST LINE NUMBER < P MOVE GBINIA(VBIN8),GBINIA(VBIN1) RESTORE NUMB OF CH
0x07783e…077840 00 00 ┆ ┆
0x077840…077844 00 00 00 00 ┆ ┆
0x077844…0779d8 Dummy {f00=0x002f, f01=0x0190, f02=» BASIC LINE IN VALIDATION BUFFER P* * PVAL190 4 . P PERF STOBUF ***STORE BASIC LINE IN BUFFER B & P BG VAL800 JMP IF MEMORY OVERFLOW t , P SET CHABOL T=VALIDATION ROUTINE CHANGED , P MOVE VBIN8,LINNO(VBIN2) CONVERT TO BIN 2 P CBE VBIN8
0x0779d8…0779de 00 00 00 00 00 00 ┆ ┆
0x0779de…077b72 Dummy {f00=0x002f, f01=0x0190, f02=»MBER WITHIN SCREEN l & P MOVE VBIN2,VBIN8 LOAD FOUND INDEX ! 0 P ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX ! D PVAL192 ! x 4 P MOVE VBIN1,VBIN8 LOAD NUMB-OF-CHARS-TABLE-INDEX ! $ P TBT VBOOL3,VAL193 JMP IF E-O-P ! * P CBE LBIN2,W1,VAL500 JMP IF ENTER-
0x077b72…077b78 00 00 00 00 00 00 ┆ ┆
0x077b78…077d0c Dummy {f00=0x002f, f01=0x018e, f02=» P CBL VBIN2,W9,VAL199 E-O-P " , P MOVE VBIN3,LBIN3 LOAD NEW B-O-P POINTER " & 0 P MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 " V P MOVE VBIN2,W1 LINE INDEX:=1 " $ P MOVE LBIN1,=W'29' FIELD SEQ NO " $ P ERASE 2,LBIN1,W0 ERASE VAL PAGE " P EJECT "
0x077d0c…077d12 00 00 00 00 00 00 ┆ ┆
0x077d12…077ea6 Dummy {f00=0x002f, f01=0x0190, f02=» " ~ P* # P* CANCEL KEY # P* # * PVAL200 # 4 P CMP W1,W1 CR:=0 # B P MOVE LBIN2,W2 # Z P B VAL999 # p P* # P* RETUR-KEY # P* # PVAL300 # P CMP W1,W1 CR:=0 # P MOVE LBIN2,W3 # P B VAL999 # P* # P*
0x077ea6…077eac 00 00 00 00 00 00 ┆ ┆
0x077eac…078040 Dummy {f00=0x002f, f01=0x018e, f02=» # PVAL500 $ P MOVE LBIN2,W1 OK $ P B VAL999 $ 0 P* $ B " P* LINE NUMBER OUT OF RANGE $ L P* $ r PVAL600 $ | P MOVE LBIN2,W4 $ P B VAL999 $ P* $ , P* BACKTAB FROM 1ST PAGE OF VALIDATION $ P* $ PVAL700 $ P MOV
0x078040…078046 00 00 00 00 00 00 ┆ ┆
0x078046…0781da Dummy {f00=0x002f, f01=0x018e, f02=» P* % PVAL800 % * P MOVE VBIN8,LBIN5 SAVE CURRENT ROW NO. % " P MOVE LBIN5,W5 VALBUF-OVERFLOW % J P MOVE LBIN1,W0 NO CLEAR % p $ P MOVE LBIN4,W2 ERR-MESSAGE NO:2 % 4 P PERF WSMERR,KEYT5,=W'0' ***ERR-MESSAGE ROUTINE % $ P MOVE LBIN5,VBIN8 RESTOR
0x0781da…0781e0 00 00 00 00 00 00 ┆ ┆
0x0781e0…078374 (3, 38) Dummy {f00=0x002f, f01=0x0190, f02=» % PVAL999 & P RET & P PEND & " P EJECT & 0 P* & > $ P* LINE NUMBER WITHIN BUFFER & H . P* THIS ROUTINE SEARCH'S AND COMPARE & p , P* WHEATHER KEYED IN LINE NUMBER & * P* EXISTS IN VALIDATION OR NOT & P* & 4
0x078374…07837a 00 00 00 00 00 00 ┆ ┆
0x07837a…07850e Dummy {f00=0x002f, f01=0x0190, f02=» OUTPUT: WITHIN = FALSE = NOT FOUND & . P* TRUE = FOUND ' 0 < P* BPOINT =FOUND ENTRY POINT OF VALBUF ' b 0 P* LENGTH = 0 = E-O-B FOUND ' 8 P* > 0 = INSERTTION OF LIN
0x07850e…078514 00 00 00 00 00 00 ┆ ┆
0x078514…0786a8 Dummy {f00=0x002f, f01=0x0190, f02=»T,LENGTH ' l P PBOOL WITHIN ( " P PBIN INLIN INPUT LINE NUMBER ( & , P PBIN BULIN FOUND LINE NUMBER IN BUFFER ( L P PBIN BPOINT BUFFERPOINTER ( | " P PBIN LENGTH BASIC LINE LENGTH ( , P MOVE INLIN,LINNO(W9) CONVERT TO BINARY ( " P CLEAR WITHIN FALSE
0x0786a8…0786ae 00 00 00 00 00 00 ┆ ┆
0x0786ae…078842 Dummy {f00=0x002f, f01=0x018e, f02=»020 JMP IF VALBUF MAX REACHED ( z 0 P XCOPY LENGTH,W1,W1,VALBUF,BPOINT GET LENGTH ) & PBUF020 ) Z , P CBE LENGTH,W0,BUF980 JMP IF E-O-B FOUND ) h ( P ADD BPOINT,W1 ADJUST BUFFER POINTER ) 4 P XCOPY BULIN,W0,W2,VALBUF,BPOINT GET LINE NUMBER ) . P CMP INLIN,B
0x078842…078848 00 00 00 00 00 00 ┆ ┆
0x078848…0789dc Dummy {f00=0x002f, f01=0x0190, f02=» , P ADD BPOINT,LENGTH ADJUST BUFFER POINTER * P B BUF010 GO ON * 4 P* * L P* LINE NUMBER FOUND * V P* * t PBUF100 * ~ P SET WITHIN TRUE = FOUND * P* * P* LINE NUMBER NOT FOUND * P* * PBUF200 * , P SUB BPOINT,W1 ADJUST PO
0x0789dc…0789e0 00 00 00 00 ┆ ┆
0x0789e0…0789e2 00 00 ┆ ┆
0x0789e2…078b76 Dummy {f00=0x002f, f01=0x0190, f02=» THIS ROUTINE UNPACK AND LOAD A VALIDATION PAGE * P* CONSISITING OF 7 LINES + 8 P* + , P* INPUT: VALBUF = VALIDATION BUFFER + f 8 P* VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE + , P* VBIN2 = LINE NUMBER INDEX + 2 P*
0x078b76…078b7c 00 00 00 00 00 00 ┆ ┆
0x078b7c…078d10 Dummy {f00=0x002f, f01=0x0190, f02=» VBIN2 = UPDATED + " P* VBIN1 = UPDATED , , P* BASLIN = BASIC LINE SOURCE , F 6 P* GBINIA = NUMBER CHARS OF BASIC LINE , v P* , L P************************************************************************ ,
0x078d10…078d16 00 00 00 00 00 00 ┆ ┆
0x078d16…078eaa Dummy {f00=0x002f, f01=0x0190, f02=»,W1,W1,VALBUF,STPNT GET BASIC LINE LENGTH , . P CBE LBIN1,W0,VLP900 JMP IF END-OF-BUFFER - 2 & P ADD STPNT,W1 ADJUST BUFFERPOINTER - d 4 P XCOPY LBIN3,W0,W2,VALBUF,STPNT LOAD LINE NUMBER - & P ADD STPNT,W2 ADJUST BUFFERPOINTER - . P MOVE LINNO(VBIN2),LBIN3
0x078eaa…078eb0 00 00 00 00 00 00 ┆ ┆
0x078eb0…079044 (3, 39) Dummy {f00=0x002f, f01=0x018e, f02=»ASLIN(VBIN2),W0,LBIN1,VALBUF,STPNT STORE BASIC LINE - * P ADD STPNT,LBIN1 ADJUST BUFFERPOINTER . < , P ADD VBIN2,W1 INCREMENT LINENUMBER-INDEX . j ( P ADD VBIN1,W1 INCREMENT TABLE-INDEX . 4 P CBE STPNT,VBBIN,VLP900 JMP IF END LIMIT REACHED . * P CBNE VBIN
0x079044…07904a 00 00 00 00 00 00 ┆ ┆
0x07904a…0791de Dummy {f00=0x002f, f01=0x0190, f02=» . r PVLP910 / " P MOVE GBINIA(STPNT),W0 ZEROISE / P ADD STPNT,W1 NEXT INDEX / < 2 P CBL STPNT,W17,VLP910 JMP IF NOT ALL ZEROISED / ^ P RET / P PEND / P EJECT / P* / " P* LINE NUMBER WITHIN SCREEN / P* / 8 P* THIS ROUTINE
0x0791de…0791e0 00 00 ┆ ┆
0x0791e0…0791e4 00 00 00 00 ┆ ┆
0x0791e4…079378 Dummy {f00=0x002f, f01=0x0190, f02=»BER / f P 0 P* 0 . P* OUTPUT:FOUND = FALSE = NOT FOUND 0 * P* = TRUE = FOUND 0 P ( P* LININX = LINE INDEX 0 ~ P* 0 L P************************************************************************ 0 PLINS
0x079378…07937e 00 00 00 00 00 00 ┆ ┆
0x07937e…079512 Dummy {f00=0x002f, f01=0x0190, f02=» 0 4 P CBE LINNO(W9),LINNO(LININX),LIN050 JMP IF EQUAL 1 $ P CBE LININX,W8,LIN999 NOT FOUND 1 @ . P ADD LININX,W1 INCREMENT LINE NUMBER INDEX 1 h P B LIN010 GO ON 1 PLIN050 1 P SET FOUND TRUE = FOUND 1 PLIN999 1 P RET 1 P PEND 1 P
0x079512…079518 00 00 00 00 00 00 ┆ ┆
0x079518…0796ac Dummy {f00=0x002f, f01=0x0190, f02=»T LINE 1 h . P* VBIN2 = INDEX TO BASLIN 2 2 P* GBINIA = NUMB-OF-CHARS-TABLE 2 @ . P* VBIN1 = INDEX TO GBINIA 2 v * P* LINNO = LINE NUMBER 2 < P* VBIN3 = STARTPOINT OF VALIDATION
0x0796ac…0796b2 00 00 00 00 00 00 ┆ ┆
0x0796b2…079846 Dummy {f00=0x002f, f01=0x0190, f02=»* VBIN8 = NEW BASIC LINE LENGTH 2 , P* LBIN3 = POINTER VALBUF 3 8 D P* LSTR4A = INTERMEDIATE BUFFER LENGTH+LINENUMBER 3 h P* 3 8 P* OUTPUT: VALBUF = VALIDATION BUFFER UPDATED 3 " P* CR
0x079846…07984c 00 00 00 00 00 00 ┆ ┆
0x07984c…0799e0 Dummy {f00=0x002f, f01=0x0190, f02=»****************** 3 Z PSTOBUF PROC 4 : P MOVE LINNO(W9),LINNO(VBIN2) LOAD CURRENT LINE NUMBER 4 . 0 P MOVE LBIN3,VBIN3 LOAD STARTPOINT IN BUFFER 4 l @ P PERF BUFSEA,VBOOL2,LBIN1,VBIN8,LBIN3,LBIN4 ***BUFFER SEARCH 4 * P MOVE VBIN8,GBINIA(VBIN1) STORE LENG
0x0799e0…0799e6 00 00 00 00 00 00 ┆ ┆
0x0799e6…079b7a Dummy {f00=0x002f, f01=0x0190, f02=»DY EXIST 4 l * P ADD LBIN4,W3 ADJUST FOR LEN + LINENR 5 P*STB050 5 > * P CMP LBIN4,VBBIN CHECK SIZE OF BUFFER 5 N P BG STB999 JMP IF OVERFLOW 5 | P EJECT 5 , P ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO 5 6 P MOVE LBIN1,LINNO(VBIN2) CONVERT LINENUMBER
0x079b7a…079b80 00 00 00 00 00 00 ┆ ┆
0x079b80…079d14 (3, 40) Dummy {f00=0x0030, f01=0x0190, f02=» SUB VBIN8,W3 ADJUST NEW LENGTH 5 ( P TBT VBOOL2,STB100 JMP IF LINE EXIST 6 ( P* 6 T P* INSERTION OF NEW LINE 6 ^ P* 6 8 P INSRT VALBUF,LBIN3,W3,LSTR4A,W0 INSERT LEN+LINE NO 6 P BOFL STB980 JMP IF OVERFLOW 6 ( P ADD LBIN3,W3 ADJUST BUFFER-PO
0x079d14…079d1a 00 00 00 00 00 00 ┆ ┆
0x079d1a…079eae Dummy {f00=0x0030, f01=0x0190, f02=» ADJUST TO GET B-O-P POINTER 6 , P ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO 7 $ 0 P ADD VBIN4,VBIN8 ADJUST E-O-P BUFFER POINTER 7 T P B STB350 EXIT 7 P* 7 * P* LINE EXIST'S IN VALIDATION BUFFER 7 P* 7 PSTB100 7 , P MOVE LBIN1,W0 OLD BASIC L
0x079eae…079eb4 00 00 00 00 00 00 ┆ ┆
0x079eb4…07a048 Dummy {f00=0x0030, f01=0x018e, f02=»,VBIN8 COMPARE OLD<=>NEW LENGTHS 7 " P BE STB300 JMP IF EQUAL LENGTH 8 ( & P BL STB200 JMP IF OLD < NEW LENGTH 8 N P EJECT 8 x P* 8 P* OLD LENGTH > NEW LENGTH 8 P* 8 6 P XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH 8 & P ADD LBIN3,W3 AD
0x07a048…07a04e 00 00 00 00 00 00 ┆ ┆
0x07a04e…07a1e2 Dummy {f00=0x0030, f01=0x0190, f02=» 8 h 0 P SUB LBIN1,VBIN8 CALC NUMB OF OVERFLOW CHARS 9 . P CBE VBIN4,W0,STB150 JMP IF STILL 1ST PAGE 9 < * P SUB VBIN4,LBIN1 ADJUST E-O-P POINTER 9 n PSTB150 9 8 P DLETE VALBUF,LBIN3,LBIN1 DELETE OVERFLOW CHARACTERS 9 , P MOVE LBIN3,VBBIN LOAD LENGTH OF V
0x07a1e2…07a1e8 00 00 00 00 00 00 ┆ ┆
0x07a1e8…07a37c Dummy {f00=0x0030, f01=0x0190, f02=»NEW LENGTH 9 ~ P* : PSTB200 : 6 P XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH : * ( P ADD LBIN3,W3 ADJUST BUFFER POINTER : d < P XCOPY VALBUF,LBIN3,LBIN1,BASLIN(VBIN2),W0 LOAD 1ST PART : * P ADD LBIN3,LBIN1 ADJUST BUFFERPOINTER : ( P SUB VBIN8
0x07a37c…07a380 00 00 00 00 ┆ ┆
0x07a380…07a382 00 00 ┆ ┆
0x07a382…07a516 Dummy {f00=0x0030, f01=0x0190, f02=» : B P INSRT VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),LBIN1 INSERT 2ND PART ; ( P BOFL STB980 JMP IF MEMORY OVERFLOW ; N P B STB999 ; z P* ; P* OLD LENGTH = NEW LENGTH ; P* ; PSTB300 ; P ADD LBIN3,W3 ADJUST POINTER ; @ P XCOPY VALBUF,LBIN
0x07a516…07a51c 00 00 00 00 00 00 ┆ ┆
0x07a51c…07a6b0 Dummy {f00=0x0030, f01=0x4076, f02=»RFLOW ; P* < PSTB980 < P CMP W1,W0 CR:=1 < & PSTB999 < > P RET < L P PEND < X P END < f@ < r P B STB999 ; z P* ; P* OLD LENGTH = NEW LENGTH ; P* ; PSTB300 ; P ADD LBIN3,W3 ADJUST POINTER ; @ P XCOPY VALBUF,LBIN
0x07a6b0…07a6b6 00 00 00 00 00 00 ┆ ┆
0x07a6b6…07a84a Dummy {f00=0x0030, f01=0x2008, f02=» = P* < PSTB980 < P CMP W1,W0 CR:=1 < & PSTB999 < > P RET < L P PEND < X P END < f@ < r P B STB999 ; z P* ; P* OLD LENGTH = NEW LENGTH ; P* ; PSTB300 ; P ADD LBIN3,W3 ADJUST POINTER ; @ P XCOPY VALBUF,LBIN
0x07a84a…07a850 00 00 00 00 00 00 ┆ ┆
0x07a850…07a9e4 (3, 41) Opaque[0x194]
0x07a9e4…07a9ea 00 00 00 00 00 00 ┆ ┆
0x07a9ea…07ab7e # DirEnt {nam=»FSMSPP«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0608, f03=0x0000}
0x07a9ea…07ab7e IdxSect {
0x07a9ea…07ab7e f00 = 0x0030 // 0x7a9ea @0x0
0x07a9ea…07ab7e f01 = 0x0012 // 0x7a9ec @0x2
0x07a9ea…07ab7e gno = [ // 0x7a9ee @0x4
0x07a9ea…07ab7e [0x00]: C0x0030.0x1.0
0x07a9ea…07ab7e [0x01]: C0x0030.0x2.0
0x07a9ea…07ab7e [0x02]: C0x0030.0x3.0
0x07a9ea…07ab7e [0x03]: C0x0031.0x0.0
0x07a9ea…07ab7e [0x04]: C0x0031.0x1.0
0x07a9ea…07ab7e [0x05]: C0x0031.0x2.0
0x07a9ea…07ab7e [0x06]: C0x0031.0x3.0
0x07a9ea…07ab7e [0x07]: C0x0032.0x0.0
0x07a9ea…07ab7e [0x08]: C0x0032.0x1.0
0x07a9ea…07ab7e ]
0x07a9ea…07ab7e }
0x07ab7e…07ab80 00 00 ┆ ┆
0x07ab80…07ab84 00 00 00 00 ┆ ┆
0x07ab84…07ad18 Dummy {f00=0x0030, f01=0x0190, f02=» . P IDENT FSMSPP REL=2.3,851009,870155940230 P 6 D P*************************************************************** > P* P* & P* LATEST UPDATE 850606 MADE BY CJ P* P* HISTORY= N P* 851009/CJ NO '+/-' ON LEFT
0x07ad18…07ad1e 00 00 00 00 00 00 ┆ ┆
0x07ad1e…07aeb2 Dummy {f00=0x0030, f01=0x0190, f02=» 850201/CJ '+/-' ON LEFT SIDE ON NUMERIC FIELD 0 P* 841120/CJ MUL&DIV DONE BY ASSRUT > 0 P* 831208/CJ MODIFICATION OF POLICE r H P* 830714/CJ GET EFF. FORMAT SIZE JUST AFTER MODDEL. PHASE P* P* D P**
0x07aeb2…07aeb8 00 00 00 00 00 00 ┆ ┆
0x07aeb8…07b04c Dummy {f00=0x0030, f01=0x0190, f02=»ICE ***POOL LIMIT CONTROLER , P ENTRY DISPLY ***DISPLAY FORMAT SECTION $ $ P ENTRY CURSET ***CURSOR SETTING T 0 P ENTRY DECORS ***DECORATION SETTING/CLEARING | * P ENTRY PICPOL ***PICTUR POOL HANDLING $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM P E
0x07b04c…07b052 00 00 00 00 00 00 ┆ ┆
0x07b052…07b1e6 Dummy {f00=0x0030, f01=0x0190, f02=»:DIVISION | P* PBLS EQU X'BD' BLOCK START PBLE EQU X'BE' BLOCK END > P EJECT ^ P* l " P* STORE STATIC FIELD CODE v P* $ P* OUTPUT CR = 0 OK 0 P* = 1 POOL OVERFLOW P*
0x07b1e6…07b1ec 00 00 00 00 00 00 ┆ ┆
0x07b1ec…07b380 Dummy {f00=0x0030, f01=0x0190, f02=»ATIC FIELD OBJECT CODES p * P MOVE LSTR4A,=X'2000' MATCHING STRING P MOVE LBIN3,W0 WORKITEM:=0 N P MOVE LBIN7,W1 DYN SEQ.NO:=1 p $ P MOVE LBIN12,W1 LINE-COUNTER:-1 * P MOVE LBIN11,W0 ATTR-TABLE-POINTER:-0 " P MOVE LBIN14,W0 EFF.COLSIZE:=0
0x07b380…07b386 00 00 00 00 00 00 ┆ ┆
0x07b386…07b51a Dummy {f00=0x0030, f01=0x0190, f02=» 2 P SET VBOOL8 TRUE=COMPULSARY POOL-DELIMITER FF . P CALL EMPTYT,GBCD3I(W10) ---CHECK IF EMPTY : P BNOK STF100 NO HEADLINES l . P MOVE LBIN2,GBCD3I(W10) CONVERT TO BINARY , P CBE LBIN2,W0,STF100 JMP IF NO HEADLINES < P XCOPY LSTR81,W0,W1,LSTR
0x07b51a…07b520 00 00 00 00 00 00 ┆ ┆
0x07b520…07b6b4 (3, 42) Dummy {f00=0x0030, f01=0x0190, f02=» PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF999 JUMP IF POOL OVERFLOW H D P XCOPY BPOOL(GBIN4),GBIN5,LBIN2,LSTR81,W0 STORE NUMB OF H-LINES p ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER P EJECT PSTF100 * P CMP LBI
0x07b6b4…07b6ba 00 00 00 00 00 00 ┆ ┆
0x07b6ba…07b84e Dummy {f00=0x0030, f01=0x0190, f02=»LBIN5,W0,STF150 JUMP IF NOT E-O-SECTION $ P B STF900 JUMP IF END-OF-SECTION 0 PSTF150 X * P MOVE LBIN13,LBIN5 SAVE EFFSIZE ROW NO f 2 P CBNL LBIN12,LBIN5,STF160 JUMP IF NOT NEW LINE P B STF800 JUMP IF NEW LINE PSTF160 ( P ADD LBIN11,W1
0x07b84e…07b854 00 00 00 00 00 00 ┆ ┆
0x07b854…07b9e8 Dummy {f00=0x0030, f01=0x0190, f02=»,LBIN9,STF200 JMP IF OVFL ENTRY P MOVE LBIN2,W0 CLEAR FIRST ( @ P XCOPY LBIN2,W1,W1,ATTAB,LBIN11 STORE SEQ.NO/STATIC F.-CODE J 2 P CBE LBIN2,=X'FF',STF400 JUMP IF STATIC FIELD @ P XCOPY LSTR81,W0,W1,LSTR6A,W1 LOAD DYN FIELD OB.-CODE X'FB' , P
0x07b9e8…07b9ee 00 00 00 00 00 00 ┆ ┆
0x07b9ee…07bb82 Dummy {f00=0x0030, f01=0x0190, f02=»***POOL-LIMIT-CONTROLER h $ P BG STF999 JUMP IF POOL OVERFLOW B P XCOPY BPOOL(GBIN4),GBIN5,LBIN2,LSTR81,W0 STORE DYNAMIC FIELD H " P ADD LBIN7,W1 INCREMENT SEQ.NO ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER PSTF200 ( P ADD LBIN11,W2 ADJUST TABL
0x07bb82…07bb88 00 00 00 00 00 00 ┆ ┆
0x07bb88…07bd1c Dummy {f00=0x0030, f01=0x0190, f02=» P* -CHARACTERS P* PSTF400 * ( P ADD LBIN11,W1 ADJUST TABLE-POINTER 8 0 P MOVE LBIN2,W1 NUMB OF CHARACTERS TO CONTROL d D P PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF999 JUMP IF POOL OVERFLOW > P
0x07bd1c…07bd20 00 00 00 00 ┆ ┆
0x07bd20…07bd22 00 00 ┆ ┆
0x07bd22…07beb6 Dummy {f00=0x0030, f01=0x018e, f02=»E-POINTER v 6 P XCOPY LBIN2,W1,W1,ATTAB,LBIN11 GET "NEXT" ROW NO ( P ADD LBIN11,W1 ADJUST TABLE-POINTER L * P CMP LBIN11,LABIN CHECK IF POINTER OK x $ P BNL STF900 JUMP IF OUT OF SIZE 4 P CBNE LBIN2,LBIN5,STF420 JMP IF NOT SAME ROW NO 6 P X
0x07beb6…07bebc 00 00 00 00 00 00 ┆ ┆
0x07bebc…07c050 Dummy {f00=0x0030, f01=0x0190, f02=» 2 P MOVE LBIN3,LBIN9 LOAD MAXCOL IF NOT SAME ROW PSTF440 : . P SUB LBIN6,W1 ADJUST COLUM FOR 0-COUNTING H PSTF450 z , P MOVE LBIN4,W0 NUMB OF X'20':S/CHARS:=0 & P MOVE LBIN2,W0 MATCHING POINTER:=0 @ P MATCH LSTR4A,LBIN2,W2,GVDUR(LBIN5),LB
0x07c050…07c056 00 00 00 00 00 00 ┆ ┆
0x07c056…07c1ea Dummy {f00=0x0030, f01=0x0190, f02=» X'20':S ARE FOUND . COUNT THEM! P* * PSTF460 4 , P ADD LBIN4,W1 INCREMENT NUMB OF X'20':S B ( P ADD LBIN6,W1 ADJUST COLUMN-POINTER r 4 P CBE LBIN6,LBIN3,STF480 JUMP IF E-O-ATTR-STRING $ P MOVE LBIN2,W0 MATCH POINTER:=0 @ P MATCH LST
0x07c1ea…07c1f0 00 00 00 00 00 00 ┆ ┆
0x07c1f0…07c384 (3, 43) Dummy {f00=0x0030, f01=0x0190, f02=»20':S j P EJECT P* " P* STORE COMPRESSED X'20':S & P* L PSTF480 V 0 P MOVE LBIN2,W1 NUMB OF CHARACTERS TO CONTROL d 6 P CBNG LBIN4,=W'31',STF500 JUMP IF NOT GREATER MAX , P MOVE LBIN10,=X'009F' 31 SPACES HIGHEST PSTF490
0x07c384…07c38a 00 00 00 00 00 00 ┆ ┆
0x07c38a…07c51e Dummy {f00=0x0030, f01=0x0190, f02=»N4),GBIN5,W1,LBIN10,W1 STORE COMPRESSED SPACES ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER 6 , P SUB LBIN4,=W'31' ADJUST NUMB OF X'20':S b 6 P CBNG LBIN4,=W'31',STF500 JUMP IF NOT GREATER MAX * P B STF490 STORE NEXT COMPRESSED SPACES PSTF500 ( P
0x07c51e…07c520 00 00 ┆ ┆
0x07c520…07c524 00 00 00 00 ┆ ┆
0x07c524…07c6b8 Dummy {f00=0x0030, f01=0x018e, f02=»OOL OVERFLOW | B P XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN4,W1 STORE COMPRESSED SPACES ( P ADD GBIN5,LBIN2 ADJUST POOL-POINTER Z : P CBNE LBIN6,LBIN3,STF450 JMP IF STRING MATCH NOT READY P B STF600 STRING MATCH READY P EJECT P* P* ,
0x07c6b8…07c6be 00 00 00 00 00 00 ┆ ┆
0x07c6be…07c852 Dummy {f00=0x0030, f01=0x0190, f02=» . P ADD LBIN4,W1 INCREMENT NUMB OF CHARACTERS $ P ADD LBIN6,W1 ADJUST ROW-POINTER : 2 P CBE LBIN6,LBIN3,STF580 JMP IF E-O-ATTR-STRING b $ P MOVE LBIN2,W0 MATCHING-POINTE=0 B P MATCH LSTR4A,LBIN2,W2,GVDUR(LBIN5),LBIN6,W1 MATCH CHARACTERS * P B
0x07c852…07c858 00 00 00 00 00 00 ┆ ┆
0x07c858…07c9ec Dummy {f00=0x0030, f01=0x018e, f02=»POLICE,LBIN4,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF999 JUMP IF POOL OVERFLOW B D P XCOPY BPOOL(GBIN4),GBIN5,LBIN4,LSTR81,W0 STORE TEXT-CHARACTERS j ( P ADD GBIN5,LBIN4 ADJUST POOL-POINTER & P CBE LBIN2,W1,STF600 JMP IF E-O-R 8 P
0x07c9ec…07c9f2 00 00 00 00 00 00 ┆ ┆
0x07c9f2…07cb86 Dummy {f00=0x0030, f01=0x0190, f02=» ~ P EJECT P* P* NEW LINE FOUND P* < PSTF800 F , P CBG LBIN5,LBIN8,STF900 JUMP IF OVFL-ROW T 0 P MOVE LBIN2,W1 NUMB OF CHARACTERS TO CONTROL D P PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P BG STF9
0x07cb86…07cb8c 00 00 00 00 00 00 ┆ ┆
0x07cb8c…07cd20 Dummy {f00=0x0030, f01=0x0190, f02=»TER n * P PERF EFSIZE ***EFFECTIVE COLUMN SIZE & P ADD GBIN5,W1 ADJUST POOL-POINTER : P B STF150 d P EJECT v P* 2 P* END-OF-SECTION (STATIC-FIELD-CODE) FOUND P* PSTF900 , P MOVE LBIN2,W0 NUMB OF CHARS TO CONTROL
0x07cd20…07cd26 00 00 00 00 00 00 ┆ ┆
0x07cd26…07ceba Dummy {f00=0x0030, f01=0x0190, f02=»GBIN5,W1,LSTR6A,W4 STORE E-O-SECT CD X'FE' | & P ADD GBIN5,W1 ADJUST POOL-POINTER 2 P* ( P* EFFECTIVE SIZE ROWS AND COLUMNS f P* -BYTES 20-21 (+6) P* P MOVE LBIN3,W24 * P ADD LBIN3,W2 ADJUST BUFFERPOINTER:=26 8 P XCOPY
0x07ceba…07cec0 00 00 00 00 00 00 ┆ ┆
0x07cec0…07d054 (3, 44) Dummy {f00=0x0031, f01=0x0190, f02=» l 8 P XCOPY BPOOL(W1),LBIN3,W1,LBIN14,W1 STORE EFF COL NO ( P MOVE LBIN9,LBIN14 MAXSIZE:=EFF SIZE D * P ADD LBIN3,W7 ADJUST BUFFERPOINTER:=34 p . P MOVE GBCD3I(W15),LBIN8 LOAD EFF. LINESIZE . P MOVE GBCD3I(W16),LBIN9 LOAD EFF. COLSIZE P*
0x07d054…07d05a 00 00 00 00 00 00 ┆ ┆
0x07d05a…07d1ee Dummy {f00=0x0031, f01=0x0190, f02=» * P CALL WXDIV,GBIN5,W2,GBIN5 POINTER... $ P ADD GBIN5,GBIN5 ...MUST BE EVEN 2 . P MOVE LBIN2,W8 NUMB OF FID-TAB-EL BYTES:=8 Z 0 P CLEAR LBOOL3 FALSE NO SPLIT AT POOL CHANGE D P PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER $ P
0x07d1ee…07d1f4 00 00 00 00 00 00 ┆ ┆
0x07d1f4…07d388 Dummy {f00=0x0031, f01=0x0190, f02=»ID TAB d * P SUB LBIN10,W6 ADJUST FOR OV HEAD INFO > P XCOPY BPOOL(W1),LBIN3,W2,LBIN10,W0 DISPL WITHIN POOL-UNIT < * P ADD LBIN10,W6 ADJUST FOR OV HEAD INFO ~ 4 P MOVE GBIN8,LBIN10 STORE RETURN-ADRESS STATIC F. P CMP W0,W0 CR:=0 OK PSTF999
0x07d388…07d38e 00 00 00 00 00 00 ┆ ┆
0x07d38e…07d522 Dummy {f00=0x0031, f01=0x0190, f02=» 2 P* COMPERE IF GREATER COLUMN-NO WAS FOUND < P* IF SO STORE THE NEW VALUE AS MEX EFF.COLUMN SIZE : P* z : P* INPUT/OUTPUT : LBIN14 = EFFECTIVE COLUMN SIZE P* L P************************************************************
0x07d522…07d528 00 00 00 00 00 00 ┆ ┆
0x07d528…07d6bc Dummy {f00=0x0031, f01=0x0190, f02=»ARCH 1ST X'00' ` 4 P CBNL LBIN14,LBIN4,EFS999 JMP IF EFF.SIZE > OR = 0 P MOVE LBIN14,LBIN4 STORE NEW EFF.SIZE COLUMN N PEFS999 P RET P PEND P EJECT P* P* POOL LIMIT CONTROLER P* : P* THIS ROUTINE CHECK
0x07d6bc…07d6c0 00 00 00 00 ┆ ┆
0x07d6c0…07d6c2 00 00 ┆ ┆
0x07d6c2…07d856 Dummy {f00=0x0031, f01=0x0190, f02=»BE SPLITTED UP j > P* AND AN'END-OF-POOL-UNIT'-CODE WILL BE GENERATED. . P* NEXT POOL-UNIT BECOMES CURRENT . X 6 P* THE ROUTINE WANTS TO KNOW HOW MANY BYTES " P* IS GOING TO BE STORED P* H P* INPUT PARA
0x07d856…07d85c 00 00 00 00 00 00 ┆ ┆
0x07d85c…07d9f0 Dummy {f00=0x0031, f01=0x0190, f02=»* = TRUE SPLITT OF OBJECT AT POOLCHANGE F P* COMPFF = FALSE COMPULSARY FF NOT NEEDED P B P* = TRUE COMPULSARY FF NEEDED F P* BUFFER = INPU
0x07d9f0…07d9f6 00 00 00 00 00 00 ┆ ┆
0x07d9f6…07db8a Dummy {f00=0x0031, f01=0x0190, f02=» CR = 0 OK ~ 8 P* = 1 POOL OVERFLOW P* Z J P********************************************************************** d * PPOLICE PROC NOCHAR,SPLIT,COMPFF,BUFFER P PBIN NOCHAR P PBOOL SPLIT P
0x07db8a…07db90 00 00 00 00 00 00 ┆ ┆
0x07db90…07dd24 (3, 45) Dummy {f00=0x0031, f01=0x0190, f02=»100 PPOL010 , P MOVE LBIN1,GBIN5 LOAD CURR POOL POINTER ( P ADD LBIN1,NOCHAR ADD NUMB TO STORE J 4 P CBL LBIN1,LPBIN,POL995 JMP IF ENOUGH AT SPLITT v 2 P SUB LBIN1,LPBIN GIVING REST TO STORE OUTSIDE 4 P TBT SPLIT,POL020 JUMP IF SPLITT STR
0x07dd24…07dd2a 00 00 00 00 00 00 ┆ ┆
0x07dd2a…07debe Dummy {f00=0x0031, f01=0x0190, f02=»BT COMPFF,POL030 JMP IF COMPULSARY FF 4 P CBE LBIN1,W0,POL995 JUMP IF LAST BYTE ALSO USED . PPOL030 f P ADD LBIN1,W1 ADJUST FOR /FF t 0 P SUB NOCHAR,LBIN1 GIVING NUMB TO COPY INSIDE 2 P CBE NOCHAR,W0,POL050 JUST ROOM FOR E-O-P CODE B P XCOPY
0x07debe…07dec0 00 00 ┆ ┆
0x07dec0…07dec4 00 00 00 00 ┆ ┆
0x07dec4…07e058 Dummy {f00=0x0031, f01=0x0190, f02=»ADJUST POOL-POINTER ~ PPOL050 6 P MOVE NOCHAR,LBIN1 REST OF NUMBER TO STOR OUTSIDE * B P XCOPY BPOOL(GBIN4),GBIN5,W1,LSTR6A,W5 STORE E-O-POOL CD X'FF' d PPOL100 ( P ADD GBIN4,W1 NEXT POOL UNIT CURRENT , P CMP GBIN4,DPBIN CHECK DIMENSION OF
0x07e058…07e05e 00 00 00 00 00 00 ┆ ┆
0x07e05e…07e1f2 Dummy {f00=0x0031, f01=0x0190, f02=»6 r PPOL995 ! P CMP W0,W0 CR:=0 OK ! PPOL999 ! 4 P RET ! B P PEND ! N P EJECT ! P* ! j ( P* EDIT AND WRITE AT INSERT/DELETE ! t F P* INPUT: LBIN1 = COLUMNCURSORPOSITION ADJUSTED FOR ITEM POS ! J P*
0x07e1f2…07e1f8 00 00 00 00 00 00 ┆ ┆
0x07e1f8…07e38c Dummy {f00=0x0031, f01=0x0190, f02=»****************************************************** ! ~ PDISPLY PROC ENDLIN " > P PBIN ENDLIN " X $ P MOVE LBIN2,LBIN9 MAXSIZE COLUMN " l P MOVE LSTR89,=X'2B2B00' " , P MOVE LSTR1,=X'1B' CONTROL-CODE ST.WRITE " " P CLEAR LBOOL6 CLEAR DECOR OFF " 0
0x07e38c…07e392 00 00 00 00 00 00 ┆ ┆
0x07e392…07e526 Dummy {f00=0x0031, f01=0x018e, f02=» PDIS050 # P MOVE LBIN3,W1 STEP = +1 # PDIS060 # 2 . P SUB LBIN14,LBIN3 ADJUST TO GET PREV DECOR # @ 4 P XCOPY LBIN15,W1,W1,ATTAB,LBIN14 LOAD PREV DECOR # r $ P ADD LBIN14,LBIN3 ADJUST POINTER # P DSC SCRN,BLS BLOCK START # PDIS100 # 0 P PERF
0x07e526…07e52c 00 00 00 00 00 00 ┆ ┆
0x07e52c…07e6c0 Dummy {f00=0x0031, f01=0x0190, f02=» # h 0 P CALL EMPTYT,GVDUR(LBIN16) ---CHECK IF EMPTY $ P BNOK DIS200 JUMP IF EMPTY $ < P EJECT $ ^ PDIS150 $ l 0 P PERF CURSET,LBIN4,LBIN3,SCRN ***CURSOR SET $ z * P CMP LBIN14,LABIN CHECK IF POINTER OK $ P BE DIS180 OK MAXIMUM SIZE $ 4 P XCOPY LBI
0x07e6c0…07e6c6 00 00 00 00 00 00 ┆ ┆
0x07e6c6…07e85a Dummy {f00=0x0031, f01=0x0190, f02=» , P CBG LBIN2,LBIN16,DIS180 JMP IF NEW LINE % " P ADD LBIN14,W1 POINT AT COLUMN % 4 0 P XCOPY LBIN2,W1,W1,ATTAB,LBIN14 LOAD COLUMN % Z . P SUB LBIN2,LBIN1 CALC. SIZE TO END OF ROW % P SUB LBIN2,W1 ADJUST % . P XCOPY LSTR89,W2,LBIN2,GVDUR(LBIN16),LBIN1 %
0x07e85a…07e860 00 00 00 00 00 00 ┆ ┆
0x07e860…07e9f4 (3, 46) Dummy {f00=0x0031, f01=0x0190, f02=»CONTROL-CODE % r 0 P XCOPY LBIN1,W1,W1,ATTAB,LBIN14 SAVE COL NO & $ P SUB LBIN1,W1 ADJUST 0-COUNTING & H P SET LBOOL6 PUT DECOR ON & p , P PERF DECORS,LBIN15,SCRN ***SET DECOR ON & : P WRITE SCRN,LSTR89,LBIN2 ---DISPLAY UNTIL END OF LINE & " P CLEAR LBO
0x07e9f4…07e9fa 00 00 00 00 00 00 ┆ ┆
0x07e9fa…07eb8e Dummy {f00=0x0031, f01=0x0190, f02=»,W1,ATTAB,LBIN14 LOAD DECOR & ( P ADD LBIN14,W1 POINT TO NEXT ATTRROW ' $ * P CMP LBIN14,LABIN CHECK IF POINTER OK ' P P BE DIS180 OK MAXIMUM SIZE ' ~ 0 P XCOPY LBIN2,W1,W1,ATTAB,LBIN14 NEXT ATTRROW ' , P CBE LBIN2,LBIN16,DIS150 JMP IF SAME ROW ' 0 P PER
0x07eb8e…07eb94 00 00 00 00 00 00 ┆ ┆
0x07eb94…07ed28 Dummy {f00=0x0031, f01=0x0190, f02=»BIN1 CALC. SIZE TO END OF ROW ' & P BNL DIS190 JMP IF NOT OVFL ENTRY ( & 2 P MOVE LBIN2,W0 SECURE DISPLAY WHEN OVFL ENTRY ( P PDIS190 ( . P XCOPY LSTR89,W2,LBIN2,GVDUR(LBIN16),LBIN1 ( * P ADD LBIN2,W2 ADJUST FOR CONTROL CODE ( 2 P XCOPY LSTR89,LBIN2,
0x07ed28…07ed2e 00 00 00 00 00 00 ┆ ┆
0x07ed2e…07eec2 Dummy {f00=0x0031, f01=0x0190, f02=»SCRN ***SET DECOR ON ( | : P WRITE SCRN,LSTR89,LBIN2 ---DISPLAY UNTIL END OF LINE ) " P CLEAR LBOOL6 CLEAR DECOR OFF ) Z 2 P PERF DECORS,LBIN15,SCRN ***SET ALL DECORS OFF ) PDIS200 ) P ADD LBIN16,W1 NEXT ROW ) $ P CBG LBIN16,ENDLIN,DIS999 READY? )
0x07eec2…07eec8 00 00 00 00 00 00 ┆ ┆
0x07eec8…07f05c Dummy {f00=0x0031, f01=0x0190, f02=»N4,W0,W1,LBIN16,W1 STORE ROW NO ) P MOVE LBIN3,W0 WORKITEM:=0 * ( * P CMP LBIN14,LABIN CHECK IF POINTER OK * J & P BE DIS999 OK MAXIMUM SIZE = E-O-T * x 0 P XCOPY LBIN3,W1,W1,ATTAB,LBIN14 SAVE ROW POS * & P CBE LBIN3,W0,DIS300 JMP IF E-O-T * 0 P CBE LBI
0x07f05c…07f060 00 00 00 00 ┆ ┆
0x07f060…07f062 00 00 ┆ ┆
0x07f062…07f1f6 Dummy {f00=0x0031, f01=0x0190, f02=»,W1,ATTAB,LBIN14 LOAD DECOR * " P ADD LBIN14,W1 ADJUST POINTER + $ P B DIS100 GO ON NEXT ROW + J PDIS300 + j 0 P PERF CURSET,LBIN4,LBIN3,SCRN ***CURSOR SET + x * P DSC1 SCRN,2,LBIN2 ERASE OLD CONTENTS + PDIS999 + P DSC SCRN,BLE BLOCK END + P
0x07f1f6…07f1fc 00 00 00 00 00 00 ┆ ┆
0x07f1fc…07f390 Dummy {f00=0x0031, f01=0x0190, f02=»MOST BYTE + X F P* LSTR16 = CONTROLCHARACTERS FOR DECOR ON VDU ON/OFF , 0 P* LBOOL6 = FALSE => CLEAR OFF , , P* = TRUE => PUT ON , , P* USED : LBIN3 = BIT MASK INDEX , P* DECORATIONBYTE:
0x07f390…07f396 00 00 00 00 00 00 ┆ ┆
0x07f396…07f52a Dummy {f00=0x0031, f01=0x0190, f02=» BLINKING , ~ , P* REVERSED IMAGE - $ P* UNDERLINE - J ( P* HIGH INTENSITY - r L P************************************************************************ - PDECORS PROC DECPAT,SUBSCR
0x07f52a…07f530 00 00 00 00 00 00 ┆ ┆
0x07f530…07f6c4 (3, 47) Dummy {f00=0x0031, f01=0x0190, f02=»2B1B1B' LOAD CONTROL-CODE - ~ ( P TBF LBOOL6,DEC050 JMP IF CLEAR OFF . " 6 P MOVE LSTR16,=X'0000000000000000000000001F121C17' . N P B DEC100 START . PDEC050 . 6 P MOVE LSTR16,=X'0000000000000000000000001E131D18' . PDEC100 . . P CALL TESTB,DECPAT
0x07f6c4…07f6ca 00 00 00 00 00 00 ┆ ┆
0x07f6ca…07f85e Dummy {f00=0x0031, f01=0x0190, f02=»4A,TB7BIN1 ---SEND OUT DECOR ON VDU . ~ PDEC200 / , P ADD LBIN3,W1 NEXT DECOR / : . P CBNG LBIN3,W15,DEC100 JMP IF END OF DECOR / Z PDEC999 / P RET / P PEND / P EJECT / P* / P* CURSOR SET / P* / 6 P* INPUT PARAMETERS:
0x07f85e…07f860 00 00 ┆ ┆
0x07f860…07f864 00 00 00 00 ┆ ┆
0x07f864…07f9f8 Dummy {f00=0x0031, f01=0x0190, f02=»TA SET / ` P* 0 < P* USED VARIABLES : LSTR1 = CONTROL INFORMATION 0 P* 0 X B P* OUTPUT : CURSOR IS PLACED IN WANTED POSITION 0 b P* 0 L P************************************************************************ 0 " PCURSET
0x07f9f8…07f9fe 00 00 00 00 00 00 ┆ ┆
0x07f9fe…07fb92 Dummy {f00=0x0031, f01=0x0190, f02=»T RESET 0 d P MOVE WORK,W3 LENGTH:=3 1 0 P DSC SUBSCR,06,CURPOS,LSTR4A,WORK SET CURSOR 1 0 P RET 1 d P PEND 1 p P EJECT 1 ~ P* 1 P* PICTURE POOL HANDLING 1 @ P* STORES ACTUAL PICTURE STRING IN PICTURE STRING AREA 1 & P* IF NO
0x07fb92…07fb98 00 00 00 00 00 00 ┆ ┆
0x07fb98…07fd2c Dummy {f00=0x0031, f01=0x0190, f02=»TURE AREA POINTER 1 j J P* LBIN13 = STARTPOINTER IN CURREN ROW (COL-1) 2 P* 2 h 6 P* OUTPUT PARAMETERS : LBIN6 = POINTER UPDATED 2 r 2 P* LBIN14 = DATA LENGTH 2 H P* LBIN15 = NUM
0x07fd2c…07fd32 00 00 00 00 00 00 ┆ ┆
0x07fd32…07fec6 Dummy {f00=0x0031, f01=0x018e, f02=» PIC.-POOL DISPL. (N)/NUMB OF LINES (A 2 n F P* LBOOL5 = 0 FALSE => NUMERIC FIELD FOUND 3 . J P* = 1 TRUE => ALPHANUMERIC FIELD FOUND 3 x H P* LBOOL6 = 0 FALSE => NO MINUS E-O-I-KEY (
0x07fec6…07fecc 00 00 00 00 00 00 ┆ ┆
0x07fecc…080060 Dummy {f00=0x0031, f01=0x0190, f02=» @ P* = 1 PICTURE STRING OVERFLOW 4 P* 4 H L P************************************************************************ 4 R P EJECT 4 PPICPOL PROC 4 P MMOVE LBIN1, WORKITEM:=0 C 4 ( P LBIN15, NUMB DEC:S/ECHO-TYPE:=
0x080060…080066 00 00 00 00 00 00 ┆ ┆
0x080066…0801fa Dummy {f00=0x0031, f01=0x0190, f02=» P LBIN20,W0 INPUT WORD:=0 5 ( P CLEAR LBOOL5 FALSE => NUMERIC FIELD 5 & . P CLEAR LBOOL6 FALSE => NO MINUS E-O-I-KEY 5 R 4 P MOVE LSTR9A,=X'422A5800' B*X ALPHANUMERIC CHARS 5 ( P ADD LBIN11,W4 ADJUST TABLE POINTER 5 2 P CBE LBIN11,LABIN,PIC100 JUMP IF
0x0801fa…080200 00 00 00 00 00 00 ┆ ┆
0x080200…080394 (3, 48) Dummy {f00=0x0032, f01=0x0190, f02=»PIC100 JMP IF E-O-T FOUND 5 0 P CBG LBIN1,LBIN5,PIC100 JMP IF NEXT GREATER 6 " 2 P CBE LBIN11,LABIN,PIC100 JUMP IF END OF TABLE 6 V 6 P XCOPY LBIN1,W1,W1,ATTAB,LBIN11 NEXT COL = END POS 6 P SUB LBIN1,W1 ADJUST END POS 6 P B PIC120 6 PPIC100 6 .
0x080394…08039a 00 00 00 00 00 00 ┆ ┆
0x08039a…08052e Dummy {f00=0x0032, f01=0x0190, f02=»OW 6 j * P SUB LBIN2,LBIN1 CALC MATCHING LENGTH 7 > P MATCH GVDUR(LBIN5),LBIN1,LBIN2,LSTR9A,W3,W1 SEARCH X'00' 7 8 P BOK PIC120 7 z , P MOVE LBIN1,LBIN9 END POS := MAX COL POS 7 P EJECT 7 PPIC120 7 " P MOVE LBIN18,LBIN1 LOAD ENDPOS 7 * P SUB LBI
0x08052e…080534 00 00 00 00 00 00 ┆ ┆
0x080534…0806c8 Dummy {f00=0x0032, f01=0x0190, f02=»NUMERIC 7 r P* 8 P* ALPHANUMERIC FIELD ? 8 P* 8 < 4 P XCOPY LSTR1,W0,W1,LSTR9A,LBIN15 LOAD FOUND SIGN 8 F 2 P MOVE LSTR81,LSTR1 LOAD BUFFER WITH MULT SIGNS 8 ~ : P MATCH LSTR81,LBIN14,LBIN18,GVDUR(LBIN5),LBIN13,LBIN18 8 * P BNOK PIC200 NOT SAME
0x0806c8…0806ce 00 00 00 00 00 00 ┆ ┆
0x0806ce…080862 Dummy {f00=0x0032, f01=0x0190, f02=»ET LBOOL5 TRUE=>ALPHANUMERIC 8 P B PIC990 9 $ P EJECT 9 6 P* 9 D P* NUMERIC FIELD 9 N P* 9 h PPIC200 9 r * P SUB LBIN1,W1 ADJUST TO GET LAST CHAR 9 2 P MOVE LSTR9A,=X'395A2D2B2A23242E2C' 9Z-+#*$., 9 P MOVE LBIN2,W2 WORKITEM:=2 9 @ P M
0x080862…080868 00 00 00 00 00 00 ┆ ┆
0x080868…0809fc Dummy {f00=0x0032, f01=0x018e, f02=» 9 J P* BOK PIC205 + OR - -> OK : P* MOVE LBIN2,W2 WORKITEM:=2 : , D P* MATCH LSTR9A,LBIN2,W2,GVDUR(LBIN5),LBIN13,W1 FIRST POS=(-)(+) : P P BNOK PIC210 NOT + OR - : P*PIC205 : , P SET LBOOL6 TRUE=>MINUS EOI-KEY ALLOWED : PPIC210 : @ P X
0x0809fc…080a00 00 00 00 00 ┆ ┆
0x080a00…080a02 00 00 ┆ ┆
0x080a02…080b96 Dummy {f00=0x0032, f01=0x0190, f02=» . P BOK PIC220 PICTUR STRING FOUND IN P-POOL ; * P MOVE LBIN19,LBIN18 LOAD CURRENT SIZE ; 6 ( P ADD LBIN19,LBIN6 ADD ACTUAL POINTER ; d * P CMP LBIN19,PLBIN CHECK IF POINTER OK ; " P BG PIC999 JUMP IF OUT OF SIZE ; > P XCOPY PICTUR,LBIN6,LBIN18,LSTR81,W0
0x080b96…080b9c 00 00 00 00 00 00 ┆ ┆
0x080b9c…080d30 Dummy {f00=0x0032, f01=0x0190, f02=» P EJECT < PPIC220 < 4 P CBE GSTR1I(W23),=C'.',PIC230 JUMP IF DECIMAL=. < 8 P INSRT LSTR9A,W7,W1,GSTR1I(W23),W0 ADJUST CHARACTER- < X & P -STRING FOR PROPER DECIMAL POS < PPIC230 < P MMOVE LBIN2, COUNTER:=0 C < P LBIN14, DATA LENGTH:=0 C
0x080d30…080d36 00 00 00 00 00 00 ┆ ┆
0x080d36…080eca Dummy {f00=0x0032, f01=0x0190, f02=»INGPOINTER:=0 < | @ P MATCH LSTR9A,LBIN1,W9,LSTR81,LBIN2,W1 SEARCH NUMERIC CHARS = ( P BNOK PIC400 FILL IN CHARACTER FOUND = Z * P CBE LBIN1,W0,PIC300 JUMP IF '9' FOUND = " P IB LBIN1,PIC300,PIC400, Z - C = $ P PIC400,PIC300,PIC300, +# * $ C = * P PIC3
0x080eca…080ed0 00 00 00 00 00 00 ┆ ┆
0x080ed0…081064 (3, 49) Dummy {f00=0x0032, f01=0x0190, f02=»MENT DATA-LENGTH = | . P TBF LBOOL7,PIC400 JMP IF NO DECIMAL FOUND > . P ADD LBIN15,W1 INCREMENT NUMB OF DECIMALS > J P B PIC400 > | P* > P* DECIMAL CHARACTER FOUND > P* > PPIC360 > ( P ADD LBIN14,W1 INREMENT DATA-LENGTH > ( P SET LBO
0x081064…08106a 00 00 00 00 00 00 ┆ ┆
0x08106a…0811fe Dummy {f00=0x0032, f01=0x4130, f02=»N2,W1 COUNTER:=COUNTER+1 > 2 P CBE LBIN2,LBIN18,PIC980 JMP IF PIC-STRG FOUND ? P B PIC240 GO ON ? V PPIC980 ? n ( P ADD LBIN14,W1 ADJUST FOR SIGN BYTE ? | PPIC990 ? " P SUB LBIN11,W5 ADJUST POINTER ? P CMP W0,W0 CR:=0 OK ? PPIC999 ? P R
0x0811fe…081200 00 00 ┆ ┆
0x081200…081204 00 00 00 00 ┆ ┆
0x081204…081398 Dummy {f00=0x0032, f01=0x2008, f02=» @ UNTER:=COUNTER+1 > 2 P CBE LBIN2,LBIN18,PIC980 JMP IF PIC-STRG FOUND ? P B PIC240 GO ON ? V PPIC980 ? n ( P ADD LBIN14,W1 ADJUST FOR SIGN BYTE ? | PPIC990 ? " P SUB LBIN11,W5 ADJUST POINTER ? P CMP W0,W0 CR:=0 OK ? PPIC999 ? P R
0x081398…08139e 00 00 00 00 00 00 ┆ ┆
0x08139e…081532 Dummy {f00=0x0032, f01=0x0000, f02=» O O O O 'O O O O = | / O 5O (O 6 O #O O I O O O E I O < E
0x081532…081538 00 00 00 00 00 00 ┆ ┆
0x081538…0816cc Dummy {f00=0x0032, f01=0x0000, f02=» O O O J O 'k l O O O O 'O O O O O O O 9 O O 9 O O 9 O = | 1
0x0816cc…0816d2 00 00 00 00 00 00 ┆ ┆
0x0816d2…081866 Dummy {f00=0x0032, f01=0x0000, f02=» < L O = | 2 O 5O (O 6 O O M O k p ! O O " O O O O # O O $ O O B % O
0x081866…08186c 00 00 00 00 00 00 ┆ ┆
0x08186c…081a00 Dummy {f00=0x0032, f01=0x0000, f02=» O O * O J + O 'k x , O O O O 'O - O O . Q / O O 0 O O O "O 1 O N 2 P 3 O O R
0x081a00…081a06 00 00 00 00 00 00 ┆ ┆
0x081a06…081b9a Dummy {f00=0x0032, f01=0x0000, f02=» J 9 O 'k : O O O O 'O ; O O < S = O < > O = ? | C 3 O 5O (O 6 D O O # E O #O O T
0x081b9a…081ba0 00 00 00 00 00 00 ┆ ┆
0x081ba0…081d34 (3, 50) Opaque[0x194]
0x081d34…081d3a 00 00 00 00 00 00 ┆ ┆
0x081d3a…081ece # DirEnt {nam=»FSDISC«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0650, f03=0x0000}
0x081d3a…081ece IdxSect {
0x081d3a…081ece f00 = 0x0032 // 0x81d3a @0x0
0x081d3a…081ece f01 = 0x0004 // 0x81d3c @0x2
0x081d3a…081ece gno = [ // 0x81d3e @0x4
0x081d3a…081ece [0x00]: C0x0032.0x2.0
0x081d3a…081ece [0x01]: C0x0032.0x3.0
0x081d3a…081ece ]
0x081d3a…081ece }
0x081ece…081ed4 00 00 00 00 00 00 ┆ ┆
0x081ed4…082068 Dummy {f00=0x0032, f01=0x0190, f02=» . P IDENT FSDISC REL=2.3,830504,870155940230 P 6 F P***************************************************************** > P* ( P* LATEST UPDATE 830504 MADE BY CJ P* P* HISTORY= 4 P* 830504/CJ GIVE MESSEAGE ON S
0x082068…08206e 00 00 00 00 00 00 ┆ ┆
0x08206e…082202 Dummy {f00=0x0032, f01=0x0190, f02=» P ENTRY FSDISC 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM V * P EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE ~ . P EXT PWRITE ---ASSRUT:WRITE POOLS ON DISC * P EXT TESTB ---ASSRUT:TEST BIT POSITION
0x082202…082208 00 00 00 00 00 00 ┆ ┆
0x082208…08239c Dummy {f00=0x0032, f01=0x0190, f02=» P INCLUDE KEYT5,LIST P EJECT PFSDISC PROC . P B P* J P* GET MESSAGE ON SYSLINE T P* v PFSD000 * P MOVE LBIN3,=X'1801' LINE:=24 COL:=01 $ P TBF VD82,FSD010 JMP IF NOT VD82 * P MOVE LBIN3,=X'0101' LINE:=01 COL:=0
0x08239c…0823a0 00 00 00 00 ┆ ┆
0x0823a0…0823a2 00 00 ┆ ┆
0x0823a2…082536 Dummy {f00=0x0032, f01=0x0190, f02=» | P MOVE LSTR1,=X'1B' 8 P XCOPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE " P ADD TB7BIN1,W1 ADJUST ^ . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE | ( P DSC SYSL,2,TB7BIN1 ERASE LAST LINE . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE
0x082536…08253c 00 00 00 00 00 00 ┆ ┆
0x08253c…0826d0 Dummy {f00=0x0032, f01=0x0190, f02=» P* & P CALL ICLEAR,LSTR81 ---CLEAR ITEM . P MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) 8 P TYPE = S(ECTION) j PFSD100 < P XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S D P XCOPY LSTR81,W6,W6,BPOOL(GBIN3),W6 IDENT=DEF,SEC OR
0x0826d0…0826d6 00 00 00 00 00 00 ┆ ┆
0x0826d6…08286a Dummy {f00=0x0032, f01=0x0190, f02=»AME d P ADD LBIN1,W8 ADJUST POINTER 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID 0 PFSD200 h * P XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1 v < P CALL PWRITE,LSTR81,BPOOL(GBIN3) ---WRITE POOLS ON DISC P BOK FSD500 P EJECT P*
0x08286a…082870 00 00 00 00 00 00 ┆ ┆
0x082870…082a04 (3, 51) Dummy {f00=0x0032, f01=0x0190, f02=»--CLOSE DISC-FILE n P MOVE LBIN2,W0 BIT-INDEX:=0 P MOVE LSTR1,=X'31' LOAD '1' > ( P MOVE LSTR16,=X'30' LOAD WITH '0':S b PFSD210 0 P CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) P BOK FSD220 JMP IF FALSE = 0 : P XCOPY LSTR16,LBIN2,
0x082a04…082a0a 00 00 00 00 00 00 ┆ ┆
0x082a0a…082b9e Dummy {f00=0x0032, f01=0x0190, f02=» PFSD230 P MOVE LBIN1,W0 NO CLEAR $ P MOVE LBIN4,W8 ERRORMESSAGE NO:8 2 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE Z & P IB LBIN2,FSD000,FSD300, CLR,CAN C P FSD300,FSD500 RET,ENT * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT
0x082b9e…082ba0 00 00 ┆ ┆
0x082ba0…082ba4 00 00 00 00 ┆ ┆
0x082ba4…082d38 Dummy {f00=0x0032, f01=0x4146, f02=»IN3) ---CLOSE DISC-FILE t * P MOVE LBIN3,=X'1801' LINE:=24 COL:=01 $ P TBF VD82,FSD600 JMP IF NOT VD82 N * P MOVE LBIN3,=X'0101' LINE:=01 COL:=01 v PFSD600 . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE & P DSC SYSL,2,TB7BIN1 CLEAR SYSLINE
0x082d38…082d3e 00 00 00 00 00 00 ┆ ┆
0x082d3e…082ed2 Dummy {f00=0x0032, f01=0x2008, f02=» CLOSE DISC-FILE t * P MOVE LBIN3,=X'1801' LINE:=24 COL:=01 $ P TBF VD82,FSD600 JMP IF NOT VD82 N * P MOVE LBIN3,=X'0101' LINE:=01 COL:=01 v PFSD600 . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE & P DSC SYSL,2,TB7BIN1 CLEAR SYSLINE
0x082ed2…082ed8 01 29 00 00 00 df ┆ ) ┆
0x082ed8…08306c Dummy {f00=0x0032, f01=0x0000, f02=» ~ ~ " $ % ' ( ) * 5 2 !
0x08306c…083072 01 29 00 00 01 51 ┆ ) Q┆
0x083072…083206 Dummy {f00=0x0032, f01=0x0000, f02=» Q F < 7 y ` = l ? G R P T U V W X Y M K N Z [ S d ^ _ ~ e b f n g j i m k p o z +
0x083206…08320c 01 29 00 00 01 93 ┆ ) ┆
0x08320c…0833a0 Dummy {f00=0x0032, f01=0x0000, f02=» . " ! ! ! " " # % % & & ' ' ' ( ( ) ) * * * + - - .
0x0833a0…0833a6 01 29 00 00 00 00 ┆ ) ┆
0x0833a6…08353a Dummy {f00=0x0032, f01=0x0000, f02=» = = > > @ @ K L M M G N R O ] P ^ Q Q Q R - R R S T V V X X _ Y Y 5 Y / Y Y ) Z Z [ [ [ % ] & ] ' ] ] ^ D ^ ( _ 4 _ _ ` J ` : ` a } d , d d ` d 0 e s e 3 f 1 g 2 g H g 7 g 8 g ~ h S h ; h 9 i 6 i = i
0x08353a…083540 00 00 ff ff 00 00 ┆ ┆
0x083540…0836d4 (3, 52) Opaque[0x194]
0x0836d4…0836da 00 00 00 00 00 00 ┆ ┆
0x0836da…08386e # DirEnt {nam=»FSUPDT«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0660, f03=0x0000}
0x0836da…08386e IdxSect {
0x0836da…08386e f00 = 0x0033 // 0x836da @0x0
0x0836da…08386e f01 = 0x000a // 0x836dc @0x2
0x0836da…08386e gno = [ // 0x836de @0x4
0x0836da…08386e [0x00]: C0x0033.0x0.0
0x0836da…08386e [0x01]: C0x0033.0x1.0
0x0836da…08386e [0x02]: C0x0033.0x2.0
0x0836da…08386e [0x03]: C0x0033.0x3.0
0x0836da…08386e [0x04]: C0x0034.0x0.0
0x0836da…08386e ]
0x0836da…08386e }
0x08386e…083874 00 00 00 00 00 00 ┆ ┆
0x083874…083a08 Dummy {f00=0x0033, f01=0x0190, f02=» . P IDENT FSUPDT REL=2.3,850313,870155940230 P 6 @ P************************************************************ > P* & P* LATEST UPDATE 850313 MADE BY JE P* P* HISTORY= P* F P* 850313/JE PERFORMANCE DIRECT M
0x083a08…083a0e 00 00 00 00 00 00 ┆ ┆
0x083a0e…083ba2 Dummy {f00=0x0033, f01=0x0190, f02=»VALBUF OVERFLOW l 2 P* 830630/CJ REFRESH OF FORMAT FWFSUS J P* 830607/CJ CHECK OFF EFF. LENGTH INSTEAD OF DEFINED LENGTH N F P* 830526/CJ REL.NUMBER TO FWFSUS FROM WSMDDV IN "RELNUM" P* B P************************
0x083ba2…083ba8 00 00 00 00 00 00 ┆ ┆
0x083ba8…083d3c Dummy {f00=0x0033, f01=0x0190, f02=»LIT ***READ IN ONE FIELD n 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE 2 P EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION 2 P EXPROC USMODL ***UNPACK FORMAT SECTION MODEL 0 P EXPROC PRNTFS ***PRINT FORMAT SECTION MODEL $ P EXPROC ATTP
0x083d3c…083d40 00 00 00 00 ┆ ┆
0x083d40…083d42 00 00 ┆ ┆
0x083d42…083ed6 Dummy {f00=0x0033, f01=0x0190, f02=»TO POOL-UNITS t * P EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE * P EXT PDLETE ---ASSRUT:DELETE FROM DISC D * P EXT TESTB ---ASSRUT:TEST BIT POSITION r * P EXT CHANFC ---ASSRUT:CHANGE FILE CODE P* $ PGSS EQU X'AC' GET SIZE OF SCREEN $ PCED EQU
0x083ed6…083edc 00 00 00 00 00 00 ┆ ┆
0x083edc…084070 Dummy {f00=0x0033, f01=0x0190, f02=»DE KEYT1,LIST P INCLUDE KEYT2,LIST P INCLUDE KEYT3,LIST 2 P INCLUDE KEYT5,LIST N P INCLUDE KEYT12,LIST j P EJECT PFSUPDT PROC P MOVE LBIN1,W1 * P DSC SCRN,TRP,LBIN1 BACKGROUND:=WHITE PFSU000 " P CLEAR LBOOL4
0x084070…084076 00 00 00 00 00 00 ┆ ┆
0x084076…08420a Dummy {f00=0x0033, f01=0x0190, f02=» OLD CONTENTS | * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT " P MOVE LBIN4,W0 FIELD SEQ NO:=0 D P B FSU405 j PFSU100 | $ P GETABX LBIN4 GET CURRENT INDEX PFSU150 > P PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD * P IB LB
0x08420a…084210 00 00 00 00 00 00 ┆ ┆
0x084210…0843a4 (3, 53) Dummy {f00=0x0033, f01=0x0190, f02=» 5,W1,W0 ERASE OLD CONTENTS 0 P DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS $ P SETCUR X P B FSU100 h P* z P* RETUR-KEY P* PFSU300 & P MOVE GBIN2,W1 INDICATE RETUR-KEY P B FSU999 P* P* POWER OFF
0x0843a4…0843aa 00 00 00 00 00 00 ┆ ┆
0x0843aa…08453e Dummy {f00=0x0033, f01=0x0190, f02=» * P GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS P BNOK FSU410 6 P SETCUR J P B FSU150 Z PFSU410 l " P MOVE LBIN4,LBIN3 CHANGE INDEX z P B FSU405 P EJECT P* P* END OF FORMAT FOUND P* & P* READ IN WANTED
0x08453e…084540 00 00 ┆ ┆
0x084540…084544 00 00 00 00 ┆ ┆
0x084544…0846d8 Dummy {f00=0x0033, f01=0x0190, f02=»OVE GBIN4,DPBIN STORE DIMENSION OF BPOOL P ADD GBIN4,W1 ADJUST 0 & P CALL ICLEAR,LSTR81 ---CLEAR ITEM L & P MOVE LSTR6A,=C' DSDS' TYPE = DSDS v < P XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S > P XCOPY LSTR81,W6,W6,GSTR6A,W0 IDENT=DEF,
0x0846d8…0846de 00 00 00 00 00 00 ┆ ┆
0x0846de…084872 Dummy {f00=0x0033, f01=0x0190, f02=» FILENAME j P ADD LBIN1,W8 ADJUST POINTER 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID 6 P EJECT n PFSU520 | 8 P XCOPY LSTR81,W14,W2,DPBIN,W0 MAX NUMB OF POOL-UNITS * P XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1 , P CLEAR LBOOLA FALSE=
0x084872…084878 00 00 00 00 00 00 ┆ ┆
0x084878…084a0c Dummy {f00=0x0033, f01=0x0190, f02=»ISC-ERROR) x P SET LBOOLA TRUE=POOL-ERROR PFSU525 6 P* D P* ERROR AT READ N P* j 4 P XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN t 6 P CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE P MOVE LBIN2,W0 BIT-INDEX:=0
0x084a0c…084a12 00 00 00 00 00 00 ┆ ┆
0x084a12…084ba6 Dummy {f00=0x0033, f01=0x0190, f02=»EX) h P BOK FSU540 JMP IF FALSE = 0 : P XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 0 PFSU540 n P ADD LBIN2,W1 NEXT BITINDEX | , P CBNG LBIN2,W15,FSU530 GO ON UNTIL > 15 PFSU550 P MOVE LBIN1,W0 NO CLEAR $ P MOVE LBIN
0x084ba6…084bac 00 00 00 00 00 00 ┆ ┆
0x084bac…084d40 Dummy {f00=0x0033, f01=0x0190, f02=»U300,FSU300 RET,ENT * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT P B FSU550 POWER OFF J P EJECT f P* t P* ENTER-KEY ~ P* PFSU590 P CLEAR UPBOOL , P MOVE GBIN3,GBIN4 LOAD STARTPOOL NUMBER 6 P CALL PCLOSE,LSTR81,BP
0x084d40…084d46 00 00 00 00 00 00 ┆ ┆
0x084d46…084eda Dummy {f00=0x0033, f01=0x0190, f02=» D P XCOPY LBIN16,W1,W1,BPOOL(GBIN4),LBIN1 LOAD SECT.SIZE LINES EFF * P SUB LBIN1,W2 ADJUST FOR GIVEN LENGTH L " P TBT VD82,FSU590B JMP IF VD82 z * P CBG LBIN16,W23,FSU591A JMP IF TOO BIG < P XCOPY LBIN4,W1,W1,BPOOL(GBIN4),LBIN1 LOAD DECL. LENGTH
0x084eda…084ee0 00 00 00 00 00 00 ┆ ┆
0x084ee0…085074 (3, 54) Dummy {f00=0x0033, f01=0x018e, f02=»U590B * P CBNG LBIN16,ROWS,FSU591B NOT EXEEDED P EJECT < , PFSU591A MOVE LBIN4,=W'33' MESSAGE NO =33 J 6 P PERF WSMERR,KEYT5,=W'0' ***ERROR-MESSAGE ROUTINE z P IB LBIN2,FSU300,FSU300, C & P FSU300,FSU300 RETURN KEY ALWAYS P B FSU
0x085074…08507a 00 00 00 00 00 00 ┆ ┆
0x08507a…08520e Dummy {f00=0x0033, f01=0x0190, f02=» * P CBNG LBIN16,COLS,FSU591C NOT EXEEDED P B FSU591A ERROR HANDLING 2 PFSU591C T P ADD LBIN1,W1 GIVING 26 d P DLETE LSTR81,W0,LBIN1 0 P MOVE GSTR80,LSTR81 SAVE OLD FILE AND VOLUME P ERASE 0,W1,W10 ERASE SCREEN P* < P*
0x08520e…085214 00 00 00 00 00 00 ┆ ┆
0x085214…0853a8 Dummy {f00=0x0033, f01=0x0190, f02=»ORY OVERFLOW z P* & P* DISPLAY FORMAT SECTION LAYOUT P* H PFSU592 R & P MOVE LBIN1,W2 BACKGROUND :=BLACK ` , P CALL TESTB,GBIN10,W14 ---TEST BIT NO=14 P BF FSU595 JMP IF FALSE = 0 $ P SUB LBIN1,W1 BACKGROUND:=WHITE PFS
0x0853a8…0853ae 00 00 00 00 00 00 ┆ ┆
0x0853ae…085542 Dummy {f00=0x0033, f01=0x0190, f02=»E LBIN14,W0 ATTR.TAB POINTER:=0 P MOVE LBIN1,W0 ( 2 P PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S > & P ATTFMT FHOME SET CURSOR POSITION t P THOME HOME P EJECT P* P* ASK FOR FURTHER ACTIONS P* ENTER=> UPDATE
0x085542…085548 00 00 00 00 00 00 ┆ ┆
0x085548…0856dc Dummy {f00=0x0033, f01=0x0190, f02=» NO CLEAR " P MOVE LBIN4,W22 MESSAGE NO 22 8 P PERF WSMERR,KEYT12,=W'0' ***(ERROR-)MESSAGE ROUTINE 8 P ATTFMT FHOME t P THOME & P IB LBIN2,FSU000,FSU000, CLR,CAN C P FSU300,FSU700, RET,ENT C P FSU800,FSU850, PRT,DEL C P
0x0856dc…0856e0 00 00 00 00 ┆ ┆
0x0856e0…0856e2 00 00 ┆ ┆
0x0856e2…085876 Dummy {f00=0x0033, f01=0x0190, f02=»OLD MODE x P B FSU999 P EJECT $ P* 2 $ P* PRINT OUT OF FORMAT SECTION < P* d PFSU800 n ( P PERF ATTPRT ***CHECK PRINTER-DEVICE | P BNOK FSU810 ( P TBF LBOOLE,FSU810 JMP IF NOT OK " P CBE LBIN2,W0,FSU801 JMP IF OK
0x085876…08587c 00 00 00 00 00 00 ┆ ┆
0x08587c…085a10 Dummy {f00=0x0033, f01=0x018e, f02=»ON n . P TBT VBBOOL,FSU805 JMP IF VALBUF OVERFLOW " P PERF DETPRT ***DETACH PRINTER < P B FSU600 b PFSU805 t " P PERF DETPRT ***DETACH PRINTER P B FSU985 P* P* CHECK PRINTER-DEVICE P* PFSU810 6 P PERF WSMERR
0x085a10…085a16 00 00 00 00 00 00 ┆ ┆
0x085a16…085baa Dummy {f00=0x0033, f01=0x0190, f02=» P* P* DELETE FORMAT SECTION P* 4 PFSU850 > P MOVE LBIN1,W0 NO CLEAR L P MOVE LBIN4,W7 MESSAGE NO:=7 l 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE & P IB LBIN2,FSU600,FSU000, CLR,CAN C P FSU300,FSU860 RE
0x085baa…085bb0 00 00 00 00 00 00 ┆ ┆
0x085bb0…085d44 (3, 55) Dummy {f00=0x0033, f01=0x0190, f02=»AR,LSTR81 ---CLEAR ITEM . P MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) P TYPE = S(ECTION) R < P XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S n D P XCOPY LSTR81,W6,W6,BPOOL(GBIN4),W6 IDENT=DEF,SEC OR TABLE NAME $ P MOVE LBIN1,W12 WO
0x085d44…085d4a 00 00 00 00 00 00 ┆ ┆
0x085d4a…085ede Dummy {f00=0x0033, f01=0x018e, f02=»TORE FILENAME n P ADD LBIN1,W8 ADJUST POINTER 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID : PFSU870 r , P CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) < P CALL PDLETE,LSTR81,BPOOL(GBIN4) ---WRITE POOLS ON DISC P BOK FSU890 & P BL
0x085ede…085ee0 00 00 ┆ ┆
0x085ee0…085ee4 00 00 00 00 ┆ ┆
0x085ee4…086078 Dummy {f00=0x0033, f01=0x0190, f02=» 4 P XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN 6 P CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE < P MOVE LBIN2,W0 BIT-INDEX:=0 v P MOVE LSTR1,=X'31' LOAD '1' ( P MOVE LSTR16,=X'30' LOAD WITH '0':S PFSU875 0 P CALL TESTB,LBIN
0x086078…08607e 00 00 00 00 00 00 ┆ ┆
0x08607e…086212 Dummy {f00=0x0033, f01=0x0190, f02=»U880 P ADD LBIN2,W1 NEXT BITINDEX , P CBNG LBIN2,W15,FSU875 GO ON UNTIL > 15 0 PFSU885 ` P MOVE LBIN1,W0 NO CLEAR n $ P MOVE LBIN4,W8 ERRORMESSAGE NO:8 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE & P IB LBIN2,FSU870,FSU00
0x086212…086218 00 00 00 00 00 00 ┆ ┆
0x086218…0863ac Dummy {f00=0x0033, f01=0x018e, f02=» 6 P CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE P B FSU000 > P EJECT P P* ^ & P* DUPLICATION OF FORMAT SECTION h P* PFSU900 , P DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE 0 P CALL CHANFC,SCRN,SYSLFC ---CHANGE FILE CODE
0x0863ac…0863b2 00 00 00 00 00 00 ┆ ┆
0x0863b2…086546 Dummy {f00=0x0033, f01=0x0190, f02=» " P SET LBOOL4 TRUE = DUPLICATION PFSU940 POWER OFF . P DISPLAY 4,LBIN18,LBIN18 H " P MOVE LBIN4,W3 FIELDNUMBER:=3 h . P GETFLD 0,LBIN4,LBIN3 MAKE FIELD 3 CURRENT P SETCUR PFSU910 P GETABX LBIN4 * P SET LBOOLD FOR WSME
0x086546…08654c 00 00 00 00 00 00 ┆ ┆
0x08654c…0866e0 Dummy {f00=0x0033, f01=0x0190, f02=»0, E-O-F,CANCEL C z $ P FSU300,FSU940 RETURN,POWER OFF P B FSU910 B P EJECT T P* b P* CANCEL KEY l P* PFSU920 P ERASE 1,W1,W0 : P XCOPY GSTR6C,W0,W6,GSTR80,W8 RESTORE OLD VOLUME NAME 8 P XCOPY GSTR8A,W0,W8,GSTR80
0x0866e0…0866e6 00 00 00 00 00 00 ┆ ┆
0x0866e6…08687a Dummy {f00=0x0033, f01=0x0190, f02=» P EJECT P* P* END OF FORMAT FOUND P* < PFSU950 F P MOVE LBIN1,W0 NO CLEAR T P MOVE LBIN4,W7 MESSAGE NO:=7 t 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE & P IB LBIN2,FSU940,FSU920, CLR,CAN C P FSU300,F
0x08687a…086880 00 00 00 00 00 00 ┆ ┆
0x086880…086a14 (3, 56) Dummy {f00=0x0034, f01=0x018e, f02=»6A,W0 RENAME FORMAT SECTION r 2 P XCOPY BPOOL(GBIN4),W22,W1,W1,W1 VERSION NO:=1 $ ( P MOVE GBIN2,W2 INDICATE DIRECT WRITE Z P B FSU999 PFSU985 . P MOVE LBIN5,W5 VALIDATION BUFFER OVERFLOW PFSU980 P MOVE LBIN1,W0 NO CLEAR & P M
0x086a14…086a1a 00 00 00 00 00 00 ┆ ┆
0x086a1a…086bae Dummy {f00=0x0034, f01=0x414a, f02=» l P EJECT P* P* EXIT P* 2 PFSU999 < 0 P CALL CHANFC,SCRN,SCRNFC ---CHANGE FILE CODE J , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVIVE ~ P ATTFMT FHOME P THOME P CLEAR LBOOL4 NO DUPLICATION P RET P PEND
0x086bae…086bb4 00 00 00 00 00 00 ┆ ┆
0x086bb4…086d48 Dummy {f00=0x0034, f01=0x2008, f02=» EJECT P* P* EXIT P* 2 PFSU999 < 0 P CALL CHANFC,SCRN,SCRNFC ---CHANGE FILE CODE J , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVIVE ~ P ATTFMT FHOME P THOME P CLEAR LBOOL4 NO DUPLICATION P RET P PEND
0x086d48…086d4e 00 00 00 00 00 00 ┆ ┆
0x086d4e…086ee2 Dummy {f00=0x0034, f01=0x01dd, f02=» O O k O k O /O cO $ O /O O 6O $ O O 6O O )O cO O
0x086ee2…086ee8 f7 b6 dc b8 1b e6 ┆ ┆
0x086ee8…08707c Dummy {f00=0x0034, f01=0x01e0, f02=» O cO $ O O 6O O 6O O O /O O O O 6 O /O O O 6O O /O O
0x08707c…087080 02 a9 02 aa ┆ ┆
0x087080…087082 02 ab ┆ ┆
0x087082…087216 Dummy {f00=0x0034, f01=0x0000, f02=» % & O O /O ;O / ' O /O ; ( O O / $ ) O O O O O O * O O / + O cO O $ , O O /O cO )O $O c - O .
0x087216…08721c 02 d0 cb d8 1c 08 ┆ ┆
0x08721c…0873b0 Dummy {f00=0x0034, f01=0x4f04, f02=» O e 7 O +O 8 O 3O 9 O 6O : O /O ; O /O O O O 6 < O 6O = O O > O O O O O 6 ? O O @
0x0873b0…0873b6 cb d6 c1 b8 31 5e ┆ 1^┆
0x0873b6…08754a Dummy {f00=0x0034, f01=0x0390, f02=» O cO /O F O 6O G O cO O O O 6 H O cO I O J | N O O 6O P O 6O Q O cO . R O a
0x08754a…087550 04 59 04 5a 04 5b ┆ Y Z [┆
0x087550…0876e4 (3, 57) Opaque[0x194]
0x0876e4…0876ea 00 00 00 00 00 00 ┆ ┆
0x0876ea…08787e # DirEnt {nam=»FSNAME«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0688, f03=0x0000}
0x0876ea…08787e IdxSect {
0x0876ea…08787e f00 = 0x0034 // 0x876ea @0x0
0x0876ea…08787e f01 = 0x000c // 0x876ec @0x2
0x0876ea…08787e gno = [ // 0x876ee @0x4
0x0876ea…08787e [0x00]: C0x0034.0x1.0
0x0876ea…08787e [0x01]: C0x0034.0x2.0
0x0876ea…08787e [0x02]: C0x0034.0x3.0
0x0876ea…08787e [0x03]: C0x0035.0x0.0
0x0876ea…08787e [0x04]: C0x0035.0x1.0
0x0876ea…08787e [0x05]: C0x0035.0x2.0
0x0876ea…08787e ]
0x0876ea…08787e }
0x08787e…087880 00 00 ┆ ┆
0x087880…087884 00 00 00 00 ┆ ┆
0x087884…087a18 Dummy {f00=0x0034, f01=0x0190, f02=» . P IDENT FSNAME REL=2.3,850606,870155940230 P 6 L P*********************************************************************** > P* * P* LATEST UPDATE 850606 MADE BY JE P* P* HISTORY= B P* 850606/JE CHECK OVF
0x087a18…087a1e 00 00 00 00 00 00 ┆ ┆
0x087a1e…087bb2 Dummy {f00=0x0034, f01=0x0190, f02=»E IF DYN FIELD WAS CHANGED d 4 P* 841120/CJ MUL&DIV DONE BY ASSRUT " B P* 840925/CJ ADJUSTMENT FOR CANCEL-KEY IN NAMESET Z 6 P* 831208/CJ ADAPTION TO "NEW" POLICE F P* 831114/CJ NOT OK IF <CAN> ON EM
0x087bb2…087bb8 00 00 00 00 00 00 ┆ ┆
0x087bb8…087d4c Dummy {f00=0x0034, f01=0x0190, f02=»S ` : P* 830426/CJ ADAPTION OF SYS.LINE FOR VD81 P* H J P********************************************************************** R P DDUM WSMDDV P PDIV P ENTRY FSNAME > P EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN
0x087d4c…087d52 00 00 00 00 00 00 ┆ ┆
0x087d52…087ee6 Dummy {f00=0x0034, f01=0x0190, f02=»LLER V 2 P EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION 4 P EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR SETTING B $ P EXPROC STPBLK ***STOP BLOCKING z $ P EXPROC STABLK ***START BLOCKING $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM P EXT EMPTYT ---EMPTY I
0x087ee6…087eec 00 00 00 00 00 00 ┆ ┆
0x087eec…088080 Dummy {f00=0x0034, f01=0x0190, f02=»X'B7' CHANGE ECHO-DEVICE PBRW EQU X'85' BASIC WRITE PERS EQU X'B1' ERASE B P EJECT ^ P INCLUDE WSMKEY,LIST l P EJECT P INCLUDE KEYT5,LIST P INCLUDE KEYT9,LIST P INCLUDE KEYT10,LIST P INCLUDE KEYT11,LIST P I
0x088080…088086 00 00 00 00 00 00 ┆ ┆
0x088086…08821a Dummy {f00=0x0034, f01=0x0190, f02=»Y OVERFLOW x P ATTFMT FHOME P THOME ( . P MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 6 ( P CLEAR LBOOL3 FALSE = FORWARD SEARCH h P CLEAR LBOOLA FALSE=EOI KEY , P CBNE GBIN2,W1,FSN032 JMP IF NOT RETURN P TBT VD82,FSN020 P ERASE 0
0x08821a…088220 00 00 00 00 00 00 ┆ ┆
0x088220…0883b4 (3, 58) Dummy {f00=0x0034, f01=0x018e, f02=»-ADRESS POINTER f 2 P MOVE LBIN10,GBIN8 RESTORE STATIC FIELD DISPL. P MOVE LBIN16,W1 N P MOVE LBIN4,=X'0101' f P MOVE LBIN14,W0 4 P PERF CURSET,LBIN4,LBIN1,SCRN ***CURSOR SETTING $ P TBF VD82,FSN025 JMP IF NOT VD82 " P MOVE LBIN2,W3
0x0883b4…0883ba 00 00 00 00 00 00 ┆ ┆
0x0883ba…08854e Dummy {f00=0x0034, f01=0x0190, f02=» PFSN025 P MOVE LBIN1,W0 0 P PERF DISPLY,LBIN8 ***DISPLAY FORMAT SECTION ( PFSN032 & P TBT LBOOL8,FSN040 JUMP IF UPD OLD j , P CBE GBIN2,W1,FSN040 JMP IF RETURN-KEY PFSN030 . P PERF SEATAB ***SEARCH NEXT DYN.FIELD POS 2 P TBT
0x08854e…088554 00 00 00 00 00 00 ┆ ┆
0x088554…0886e8 Dummy {f00=0x0034, f01=0x0190, f02=»O h " P ADD LBIN11,W2 ADJUST POINTER P B FSN030 0 PFSN038 B . P MOVE LBIN11,W0 ATTRIBUTE-TABLE POINTER:=0 P PFSN040 , P DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE . P CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE P ATTFMT FNAMES * P
0x0886e8…0886ee 00 00 00 00 00 00 ┆ ┆
0x0886ee…088882 Dummy {f00=0x0034, f01=0x0190, f02=»41 0 P PERF CURSET,LBIN18,LBIN2,SYSL ***CURSOR SET & P DSC SYSL,2,COLS ERASE SYSTEMLINE > , P MOVE LBIN18,W1 LOAD FOR DISP. LAST LINE h $ P TBT VD82,FSN050 JMP IF VD82/83 2 P MOVE LBIN18,W24 LOAD FOR DISP SYSLINE VD47/81 P EJECT P*
0x088882…088888 00 00 00 00 00 00 ┆ ┆
0x088888…088a1c Dummy {f00=0x0034, f01=0x0190, f02=» OLD r , P CBE GBIN2,W1,FSN065 JUMP IF RETURN-KEY 0 P CALL ICLEAR,FIDTAB ---CLEAR FIELD-ID-TABLE < P B FSN065 p PFSN060 6 P MOVE LBIN13,GBIN15 LOAD FIRST FREE POS OF FID-TAB PFSN065 $ P MOVE GBIN2,W0 CLEAR RETUR-CODE . P PERF SE
0x088a1c…088a20 00 00 00 00 ┆ ┆
0x088a20…088a22 00 00 ┆ ┆
0x088a22…088bb6 Dummy {f00=0x0034, f01=0x0190, f02=»ANFC,SCRN,SYSLFC CHANGE FILE CODE 8 P DISPLAY 4,LBIN18,LBIN18 DISPLAY FORMAT ON LAST ROW * PFSN098 f . P CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE t ( P ERASE 2,W1,W1 ERASE/CLEAR FIELD-ID 0 P CBE LBIN12,W0,FSN099 JUMP IF NEW DYN FIELD " P M
0x088bb6…088bbc 00 00 00 00 00 00 ┆ ┆
0x088bbc…088d50 Dummy {f00=0x0034, f01=0x0190, f02=»AB,LBIN6 STORE OLD CONTENTS x * P DISPLAY 1,W1,W1 DISPLAY OLD FIELD-ID $ PFSN099 R . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE ` " P DSC1 SCRN,6,LBIN7 SET CURSOR PFSN100 " P MOVE LBIN3,W1 EXPECTED LENGTH * P KI .NE,KEYB,LSTR81,KEYT9,LB
0x088d50…088d56 00 00 00 00 00 00 ┆ ┆
0x088d56…088eea Dummy {f00=0x0034, f01=0x0190, f02=»,CAN C t * P FSN300,FSN260,FSN120, RET,ENT,PLS C P FSN130 BTB < P EJECT P P* ^ P* POWER OFF h P* ~ PFSN110 . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE P MOVE LBIN16,W1 1ST ROW & P MOVE LBIN4,=X'0101' ROW:=1 COL:
0x088eea…088ef0 00 00 00 00 00 00 ┆ ┆
0x088ef0…089084 (3, 59) Dummy {f00=0x0034, f01=0x018e, f02=»CHANFC,SCRN,SYSLFC CHANGE FILE CODE P B FSN095 , P EJECT > P* L P* FORWARD TABULATION V P* t PFSN120 ~ " P ADD LBIN11,W4 NEXT DYN FIELD ( P CLEAR LBOOL3 FALSE = FORWARD SEARCH . P PERF SEATAB ***SEARCH NEXT DYN.FIELD POS
0x089084…08908a 00 00 00 00 00 00 ┆ ┆
0x08908a…08921e Dummy {f00=0x0034, f01=0x0190, f02=» v P* PFSN130 , P CBE LBIN11,W0,FSN135 JUMP IF BEGINOFTAB & P SUB LBIN11,W4 PREVIOUS DYN FIELD P PFSN135 z & P SET LBOOL3 TRUE = BACKWARD SEARCH . P PERF SEATAB ***SEARCH NEXT DYN.FIELD POS 2 P TBT LBOOL4,FSN260 JUMP IF END OF TA
0x08921e…089220 00 00 ┆ ┆
0x089220…089224 00 00 00 00 ┆ ┆
0x089224…0893b8 Dummy {f00=0x0034, f01=0x0190, f02=» 0 P XCOPY LSTR1,W0,W1,LSTR81,W0 COPY 1ST CHAR. 2 P CBL LSTR1,=C'A',FSN100 JMP IF NOT ALPHABETIC 8 2 P CBG LSTR1,=C'Z',FSN100 JMP IF NOT ALPHABETIC n . P CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE ( P MOVE LBIN3,=X'181E' CURSOR POSITION P TBF V
0x0893b8…0893be 00 00 00 00 00 00 ┆ ┆
0x0893be…089552 Dummy {f00=0x0034, f01=0x0190, f02=»HEX-00 n P MOVE LBIN2,W3 , P INSRT LSTR81,W0,W2,LSTR2,W0 PUT IN "++" $ P WRITE SYSL,LSTR81,LBIN2 T $ P DLETE LSTR81,W0,W2 DELETE "++" t . P CBE LBIN12,W0,FSN200 JMP IF NEW FIELD-ID 8 P XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS 6
0x089552…089558 00 00 00 00 00 00 ┆ ┆
0x089558…0896ec Dummy {f00=0x0034, f01=0x0190, f02=» 1ST SPACE f " P BNOK FSN200 JMP IF NO SPACES & P MOVE LBIN3,W4 LOAD LENGTH OF ITEM 8 . P SUB LBIN3,LBIN4 CALC NUMB OF H-00 TO PAD b P SUB LBIN3,W1 ADJUST < P XCOPY LSTR4A,LBIN4,LBIN3,LSTR9A,W1 LOAD EMPTY POSITIONS P EJECT PFSN200
0x0896ec…0896f2 00 00 00 00 00 00 ┆ ┆
0x0896f2…089886 Dummy {f00=0x0034, f01=0x0190, f02=» OR EOI,CAN C t P FSN300,FSN110 RET,POF P EJECT 6 P* D P* CANCEL - KEY N P* h PFSN215 r ( P SUB LBIN11,W4 ADJUST FOR CANCEL-KEY P P* P* END-OF-ITEM-KEY P* PFSN220 P BNZ FSN221 EOI-KEY
0x089886…08988c 00 00 00 00 00 00 ┆ ┆
0x08988c…089a20 Dummy {f00=0x0034, f01=0x0190, f02=»EQNO-POS p < P CBE LBIN1,W0,FSN228 JMP IF SAME FID ENTERED (NO INPUT) , P CBNE LBIN12,W0,FSN222 JUMP IF OLD ENTRY P 2 P MOVE LBIN6,LBIN13 STORE 1ST FREE ENTRY ADRESS PFSN222 P CMP LBIN6,LFBIN JUMP IF P BE FSN984 MEMORY OVERFLOW 4 P X
0x089a20…089a26 00 00 00 00 00 00 ┆ ┆
0x089a26…089bba Dummy {f00=0x0034, f01=0x0190, f02=»LBIN6,W5,LBIN6 CALC SEQ.NO OF FIDTAB : P XCOPY ATTAB,LBIN11,W1,LBIN6,W1 STORE SEQ.NO OF FIDTAB , 0 P ADD LBIN13,W5 ADJUST 1ST FREE ENTRY ADRESS j PFSN225 6 P CBE LBIN12,W0,FSN228 JMP IF NEW FID WAS INSERTED * P SET CMBOOL T=DYN FIELD-ID WAS CHA
0x089bba…089bc0 00 00 00 00 00 00 ┆ ┆
0x089bc0…089d54 (3, 60) Dummy {f00=0x0035, f01=0x0190, f02=»D SEARCH t . P PERF SEATAB ***SEARCH NEXT DYN.FIELD POS P TBT LBOOL4,FSN260 B * P B FSN098 GO ON IF E-O-TABLE NOT FOUND ^ P EJECT P* $ P* CHECK IF ANY EMPTY FIELD-ID P* PFSN260 ( P CLEAR LBOOL3 FALSE = FORWARD SEARCH
0x089d54…089d5a 00 00 00 00 00 00 ┆ ┆
0x089d5a…089eee Dummy {f00=0x0035, f01=0x0190, f02=»N400 JUMP IF END OF TABLE FOUND 2 P CBE LBIN12,W0,FSN275 JUMP IF EMPTY FID FOUND ( " P MOVE LBIN6,LBIN12 LOAD SEQ.NO ^ P CALL WXMUL,LBIN6,W5,LBIN6 & P SUB LBIN6,W5 CALC ELEMENT ADRESS 8 P XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS
0x089eee…089ef4 00 00 00 00 00 00 ┆ ┆
0x089ef4…08a088 Dummy {f00=0x0035, f01=0x0190, f02=»FSN275 $ P CLEAR LBOOLA CLEAR ENT ERR.FLAG P MOVE LBIN1,W0 NO CLEAR 6 P MOVE LBIN4,W5 MESSAGE NO 5 V 8 P PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE z * P CBE LBIN2,W0,FSN270 JUMP IF POWER OFF & P IB LBIN2,FSN098,FSN098, CLR,CAN C
0x08a088…08a08e 00 00 00 00 00 00 ┆ ┆
0x08a08e…08a222 Dummy {f00=0x0035, f01=0x018e, f02=» MOVE LBIN14,W0 ATTR.TAB POINTER:=0 P MOVE LBIN1,W0 , 2 P PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S B P B FSN275 x PFSN280 4 P CBE LBIN11,W0,FSN285 JMP IF ATTAB=0000 0000 ... " P SUB LBIN11,W4 ADJUST POINTER PFSN285 & P SET
0x08a222…08a228 00 00 00 00 00 00 ┆ ┆
0x08a228…08a3bc Dummy {f00=0x0035, f01=0x0190, f02=» ` P B FSN098 P EJECT P* ( P* RETUR-KEY 2 P* H PFSN300 R ( P MOVE GBIN15,LBIN13 LOAD NEW ADRESS ` & P MOVE GBIN2,W1 INDICATE RETUR KEY P B FSN999 P* P* NORMAL END P* PFSN400 4 P CBE LBI
0x08a3bc…08a3c0 00 00 00 00 ┆ ┆
0x08a3c0…08a3c2 00 00 ┆ ┆
0x08a3c2…08a556 Dummy {f00=0x0035, f01=0x018e, f02=»W'37' ***(ERROR-)MESSAGE ROUTINE | * P CBE LBIN2,W0,FSN410 JUMP IF POWER OFF ( & P IB LBIN2,FSN280,FSN280, CLR,CAN C V P FSN300,FSN420 RET,ENT P POWER OFF PFSN410 P MOVE LBIN16,W1 1ST ROW & P MOVE LBIN4,=X'0101' ROW:=1 COL:=1
0x08a556…08a55c 00 00 00 00 00 00 ┆ ┆
0x08a55c…08a6f0 Dummy {f00=0x0035, f01=0x0190, f02=» P EJECT P* P* FIELD-NAME TABLE STORAGE P* D PFSN420 N . P MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 * P MOVE LBIN3,W0 NUMB OF DYN. FIELDS:=0 * P MOVE LBIN2,W8 NUMB OF CHAR TO CONTROL < P MOVE LSTR6A,=X'00FBFCFDFEFF'
0x08a6f0…08a6f6 00 00 00 00 00 00 ┆ ┆
0x08a6f6…08a88a Dummy {f00=0x0035, f01=0x0190, f02=»FSN430 . P PERF SEATAB ***SEARCH NEXT DYNAMIC FIELD ( P TBT LBOOL4,FSN440 JMP IF E-O-TABLE @ P CALL WXMUL,LBIN12,W5,LBIN12 l , P SUB LBIN12,W5 CALC ATTR ELEMENT ADRESS D P PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER & P
0x08a88a…08a890 00 00 00 00 00 00 ┆ ┆
0x08a890…08aa24 (3, 61) Dummy {f00=0x0035, f01=0x0190, f02=» n P LEAVING 4 BYTES EMPTY ( P ADD LBIN11,W4 ADJUST TABLE POINTER ( . P ADD LBIN3,W1 INCREMENT NUMB OF DYN FIELDS T P B FSN430 GO ON PFSN440 P* ( P* STORE NUMBER OF DYNAMIC FIELDS P* . P MOVE LBIN1,=W'37' POINTER T
0x08aa24…08aa2a 00 00 00 00 00 00 ┆ ┆
0x08aa2a…08abbe Dummy {f00=0x0035, f01=0x0190, f02=»OVE GBIN15,W0 MATCH-POINTER:=0 D P MATCH FIDTAB,GBIN15,LFBIN,LSTR6A,W0,W5 MATCH 1ST FREE POSITION & P ADD GBIN15,W1 ADJUST n P CALL WXDIV,GBIN15,W5,GBIN15 : P CALL WXMUL,GBIN15,W5,GBIN15 CALC EVEN 5-MULTIPEL-POS > P XCOPY GBIN9,W0,W1,GBIN4,W
0x08abbe…08abc0 00 00 ┆ ┆
0x08abc0…08abc4 00 00 00 00 ┆ ┆
0x08abc4…08ad58 Dummy {f00=0x0035, f01=0x0190, f02=»* * P* WORKING AREA <DATA-ITEM> EXCEEDED P* 8 PFSN982 B , P MOVE LBIN5,W2 BPOOL DIMENSION OVERFLOW P P B FSN988 P* PFSN984 " P MOVE LBIN5,W4 FIDTAB OVERFLOW PFSN988 P MOVE LBIN1,W0 NO CLEAR & P MOVE LBIN
0x08ad58…08ad5e 00 00 00 00 00 00 ┆ ┆
0x08ad5e…08aef2 Dummy {f00=0x0035, f01=0x0190, f02=»* PFSN999 ! , P DSC KEYB,CED,SCRNFC CHANGE ECHO DEVICE ! . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE ! H P PERF STABLK ! z P RET ! P PEND ! P EJECT ! P* ! > P* SEARCH ATTRIBUTE-TABLE TO FIND ITS ATTRIBUTE -POSITION ! P* !
0x08aef2…08aef8 00 00 00 00 00 00 ┆ ┆
0x08aef8…08b08c Dummy {f00=0x0035, f01=0x0190, f02=» > P* TRUE => BACKWARD SEARCH " H P* OUTPUT : LBIN11 = POINTER ADRESS TO NEXT OR PREVIOUS " F : P* DYNAMIC FIELD POSITON " J P* LBOOL4 = FALSE = DYNAMIC FIELD E
0x08b08c…08b092 00 00 00 00 00 00 ┆ ┆
0x08b092…08b226 Dummy {f00=0x0035, f01=0x018e, f02=»NAMIC FIELD (=0 NEW DYN FI " b L P* LBIN7 = CURSOR-POSITION OF FOUND DYNAMIC FIELD # " P* # r L P************************************************************************ # | PSEATAB PROC # P MOVE LBIN12,W0 WORKITEM:=0 # 0 P CLE
0x08b226…08b22c 00 00 00 00 00 00 ┆ ┆
0x08b22c…08b3c0 Dummy {f00=0x0035, f01=0x0190, f02=» # x P* $ PSEA100 $ 2 P CBE LBIN11,LABIN,SEA200 JUMP IF END OF TABLE $ 8 P XCOPY LBIN1,W0,W2,ATTAB,LBIN11 FETCH ATTRIBUTE-POS. $ V . P CBE LBIN1,W0,SEA200 JUMP IF END-OF-TABLE $ $ P ADD LBIN11,W2 NEXT SEQ. NO-POS $ 8 P XCOPY LBIN12,W1,W1,ATTAB,LB
0x08b3c0…08b3c6 00 00 00 00 00 00 ┆ ┆
0x08b3c6…08b55a Dummy {f00=0x0035, f01=0x0190, f02=» 2 P MOVE LBIN7,LBIN1 LOAD CURSERPOS FOR DYN-FIELD % * P XCOPY LBIN1,W0,W1,W0,W0 DELETE ROW NO % : 0 P CBG LBIN1,LBIN9,SEA100 GO ON IF OVFL ENTRY % h . P SUB LBIN11,W4 ADJUST FOR THIS ELEMENT-POS % P B SEA999 EXIT % PSEA200 % . P SET LBOOL4 TRUE E-O-T
0x08b55a…08b560 00 00 00 00 00 00 ┆ ┆
0x08b560…08b6f4 (3, 62) Dummy {f00=0x0035, f01=0x0190, f02=»GIN OF TABLE REACHED % x $ P ADD LBIN11,W2 NEXT SEQ. NO-POS & 8 P XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. & D P SUB LBIN11,W6 NEXT ATTRPOS & 6 P CBE LBIN12,=X'00FF',SEA300 GO ON IF STATIC FIELD & . P ADD LBIN11,W4 ADJUST FOR THIS ELEMENT-POS
0x08b6f4…08b6fa 00 00 00 00 00 00 ┆ ┆
0x08b6fa…08b88e Dummy {f00=0x0035, f01=0x0190, f02=»PY LBIN1,W0,W1,W0,W0 DELETE ROW NO & 6 P CBNG LBIN1,LBIN9,SEA999 EXIT IF NOT OVFL ENTRY <= ' * * P SUB LBIN11,W4 ADJUST WHEN OVFL ENTRY ' d P B SEA300 EXIT ' PSEA999 ' P RET ' P PEND ' P EJECT ' P INCLUDE FNAMES,LIST ' P* ' ( P*
0x08b88e…08b894 00 00 00 00 00 00 ┆ ┆
0x08b894…08ba28 Dummy {f00=0x0035, f01=0x4008, f02=»@ ( ,W0,W1,W0,W0 DELETE ROW NO & 6 P CBNG LBIN1,LBIN9,SEA999 EXIT IF NOT OVFL ENTRY <= ' * * P SUB LBIN11,W4 ADJUST WHEN OVFL ENTRY ' d P B SEA300 EXIT ' PSEA999 ' P RET ' P PEND ' P EJECT ' P INCLUDE FNAMES,LIST ' P* ' ( P*
0x08ba28…08ba2e 00 00 00 00 00 00 ┆ ┆
0x08ba2e…08bbc2 Dummy {f00=0x0035, f01=0x2008, f02=» ) ,W0,W1,W0,W0 DELETE ROW NO & 6 P CBNG LBIN1,LBIN9,SEA999 EXIT IF NOT OVFL ENTRY <= ' * * P SUB LBIN11,W4 ADJUST WHEN OVFL ENTRY ' d P B SEA300 EXIT ' PSEA999 ' P RET ' P PEND ' P EJECT ' P INCLUDE FNAMES,LIST ' P* ' ( P*
0x08bbc2…08bbc8 00 00 00 00 00 00 ┆ ┆
0x08bbc8…08bd5c Dummy {f00=0x0035, f01=0x4046, f02=» P W AP SP ]T oT yP* U P . 0@ B _. U : W:WCHR j W:EDEC | * & _ [ [ z & W:EPIC , ( @ Z Z Z , (
0x08bd5c…08bd60 00 00 00 00 ┆ ┆
0x08bd60…08bd62 00 00 ┆ ┆
0x08bd62…08bef6 Dummy {f00=0x0035, f01=0x018e, f02=» 0 H IDENT W:PFIF W,REL=3.0,850601,870155940300 F B W:PNXT W:PREL W:PRLT W:PRSL W:PRES W:PWRT W:PDLT W:PDAL 8 4 0 W:PRDD W:PRDF W:PRDN W:PRDS W:PIX W:LPOL W:LPOL W:PNXT , ( V W L W Z [ :
0x08bef6…08befc 00 00 00 00 00 00 ┆ ┆
0x08befc…08c090 Dummy {f00=0x0035, f01=0x0190, f02=» W:PWRT N W:PDLT R W:PDAL , , ( A D W F W W W F @W @ @ W:PIX h p W:PRDD | , ( a W ' W D P SW D W:PRDN W:PRDF W:PRDS , (
0x08c090…08c096 00 00 00 00 00 00 ┆ ┆
0x08c096…08c22a Dummy {f00=0x0035, f01=0x4052, f02=» )W| 5Wf ;W MWJ QWJ [W< gW4 qPV {W W W W <@ N W W W F @W @ @ W:PIX h p W:PRDD | , ( a W ' W D P SW D W:PRDN W:PRDF W:PRDS , (
0x08c22a…08c230 00 00 00 00 00 00 ┆ ┆
0x08c230…08c3c4 (3, 63) Opaque[0x194]
0x08c3c4…08c3ca 00 00 00 00 00 00 ┆ ┆
0x08c3ca…08c55e # DirEnt {nam=»READIN«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06b8, f03=0x0000}
0x08c3ca…08c55e IdxSect {
0x08c3ca…08c55e f00 = 0x0035 // 0x8c3ca @0x0
0x08c3ca…08c55e f01 = 0x0008 // 0x8c3cc @0x2
0x08c3ca…08c55e gno = [ // 0x8c3ce @0x4
0x08c3ca…08c55e [0x00]: C0x0035.0x3.0
0x08c3ca…08c55e [0x01]: C0x0036.0x0.0
0x08c3ca…08c55e [0x02]: C0x0036.0x1.0
0x08c3ca…08c55e [0x03]: C0x0036.0x2.0
0x08c3ca…08c55e ]
0x08c3ca…08c55e }
0x08c55e…08c560 00 00 ┆ ┆
0x08c560…08c564 00 00 00 00 ┆ ┆
0x08c564…08c6f8 Dummy {f00=0x0035, f01=0x0190, f02=» . P IDENT READIN REL=2.3,831116,870155940230 P 6 @ P************************************************************ > P* ( P* LATEST UPDATE 831116 MADE BY CJ P* P* HISTORY= P* B P* 831116/CJ ERASE POS REA993
0x08c6f8…08c6fe 00 00 00 00 ff ff ┆ ┆
0x08c6fe…08c892 Dummy {f00=0x0035, f01=0x0190, f02=»OPY" X P* B P************************************************************* P* $ P* A STANDARD MODULE, HANDLING f ( P* ONE FIELD OF THE CURRENT FORMAT P* * P* OUTPUT LBIN2 = 0 OK GO ON B P*
0x08c892…08c898 00 00 00 00 ff ff ┆ ┆
0x08c898…08ca2c Dummy {f00=0x0035, f01=0x0190, f02=» = 3 ERROR FOUND CONFIRMED WITH RETUR 4 P* = 4 POWER OFF OCCURED 6 2 P* LBOOL1 = FALSE TAB-FORWARD n 2 P* = TRUE TAB-BACKWARD . P* CR /= 2 => ENTER KEY
0x08ca2c…08ca32 00 00 00 00 ff ff ┆ ┆
0x08ca32…08cbc6 Dummy {f00=0x0035, f01=0x0190, f02=»EADIN P ENTRY STPBLK P ENTRY STABLK $ 0 P EXPROC WSMAPP ***APPLIC. ROUTINE (CONTROLS) : 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGEROUTINE n $ P EXPROC ATTPRT ***ATTACH PRINTER $ P EXPROC DETPRT ***DETACH PRINTER . P EXT EMPTYT --
0x08cbc6…08cbcc 00 00 00 00 ff ff ┆ ┆
0x08cbcc…08cd60 Dummy {f00=0x0035, f01=0x0190, f02=»OPBLK EQU X'BE' PSTARTBLK EQU X'BD' P EJECT 2 P INCLUDE WSMKEY,LIST @ P INCLUDE KEYT4,LIST P EJECT x ( PREADIN PROC KEYT1,KEYT2,KEYT3,MSGCOL P PKTAB KEYT1 P PKTAB KEYT2 P PKTAB KEYT3 P PLIT MSGCOL P*
0x08cd60…08cd66 00 00 00 00 ff ff ┆ ┆
0x08cd66…08cefa Dummy {f00=0x0035, f01=0x0190, f02=» j 8 P XCOPY LSTR81,W1,W3,LSTR4A,W1 COPY REST OF OLD CONT. P MOVE LBIN1,W2 GO TO D P B REA775 EDFLD READING ` PREA100 P PERF STPBLK $ P CLEAR LBOOL1 FALSE= TAB FORWARD & P DYKI LSTR81,KEYT1,KEYT2,LBIN1, C P LBIN2,LBIN4
0x08cefa…08cf00 00 00 00 00 ff ff ┆ ┆
0x08cf00…08d094 (3, 64) Dummy {f00=0x0036, f01=0x0190, f02=» . P CBNE LBIN2,W8,REA150 IF KEY = TBWD & ... ( P CMP LBIN1,W0 ... POSITION > 0, ... 6 P BNE REA770 ... START EDIT b PREA150 & P IB LBIN2,REA500,REA650, CLR,CLR C * P REA200,REA993,REA993, EOI,CAN,RET C * P REA200,REA200,REA200, PLS,MI
0x08d094…08d09a 00 00 00 00 00 00 ┆ ┆
0x08d09a…08d22e Dummy {f00=0x0036, f01=0x0190, f02=»E THE RESPECTIVE KEY AS EOI-KEY FIRST P* . PREA200 8 , P CBE LBIN1,W0,REA500 JUMP IF LENGTH = 0 F P* v P* CONDITIONAL DISPLAYING P* 2 P CALL TYPET,LBIN3,:FMTITEM CHECK TYPE OF ITEM ( P CBNE LBIN3,W2,REA210 JMP IF NOT BCD
0x08d22e…08d234 00 00 00 00 00 00 ┆ ┆
0x08d234…08d3c8 Dummy {f00=0x0036, f01=0x0190, f02=»' l . P INSRT LSTR81,W0,W1,LSTR1,W0 INSERT MINUS PREA210 < " P GETCTL 0,LBIN3 GET APPL-VALUE J . P CBE LBIN3,W0,REA600 JUMP IF NO APPL-VALUE p P* ( P* APPL-VALUE DIFFERENT FROM ZERO P* ( P PERF WSMAPP ***APPLICATION CONTROLS
0x08d3c8…08d3ce 00 00 00 00 00 00 ┆ ┆
0x08d3ce…08d562 Dummy {f00=0x0036, f01=0x0190, f02=»K AFTER APPL CONTROL " P* UNCONDITIONAL DISPLAYING P* B $ PREA460 UPDATE CURRENT INPUT... L , P UPDFLD 1,LSTR81 ... FIELD & DISPLAY IT t P EJECT P* $ P* JUMP ON FUNCTION KEY INDEX P* PREA500 & P IB LBIN2,RE
0x08d562…08d568 00 00 00 00 00 00 ┆ ┆
0x08d568…08d6fc Dummy {f00=0x0036, f01=0x0190, f02=»5,REA999, NOK,PRT,DUP C " P REA999,REA790 CFW & CBW,ENT & P SUB LBIN2,W9 ADJUST EOI-KEY INDEX F P B REA999 EXIT p P* PREA600 . P UPDFLD 0,LSTR81 REA200 FIELD DISPL. COND. P B REA500 P* PREA650 ( P GETABX LBIN4
0x08d6fc…08d700 00 00 00 00 ┆ ┆
0x08d700…08d702 00 00 ┆ ┆
0x08d702…08d896 Dummy {f00=0x0036, f01=0x0190, f02=»Y r PREA705 TAB. FORWARD 1 STEP P TFWD . P BE REA990 TAB OK < P BG REA990 CTAB V P BL REA991 E-O-F FOUND n P B REA730 & PREA710 TABULATION 1 STEP BACKW. P SET LBOOL1 TRUE=BACKTAB P TBWD P BE REA990 OK
0x08d896…08d89c 00 00 00 00 00 00 ┆ ┆
0x08d89c…08da30 Dummy {f00=0x0036, f01=0x0190, f02=»RINTER-DEVICE | P BNOK REA980 P TBF LBOOLE,REA980 * . P CBNE LBIN2,W0,REA757 JMP IF CANCEL/RETURN D ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 v $ P TBF VD82,REA756 JMP IF NOT VD82 ( P MOVE LBIN3,=X'0101' ROW:=01,COL:=01 PREA756 ( P CAL
0x08da30…08da36 00 00 00 00 00 00 ┆ ┆
0x08da36…08dbca Dummy {f00=0x0036, f01=0x018e, f02=»COPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE P ADD TB7BIN1,W1 ADJUST : . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE X ( P DSC SYSL,2,TB7BIN1 ERASE LAST LINE . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE : P WRITE SYSL,LSTR81,TB7BIN1 WRITE
0x08dbca…08dbd0 00 00 00 00 00 00 ┆ ┆
0x08dbd0…08dd64 (3, 65) Dummy {f00=0x0036, f01=0x0190, f02=» P MOVE LBIN3,W1 P PRINT PRNT,LBIN3,W0 P BNOK REA759 6 P EJECT J PREA757 X P PERF DETPRT DETACH PRINTER f ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 $ P TBF VD82,REA758 JMP IF NOT VD82 ( P MOVE LBIN3,=X'0101' ROW:=01,COL:=01
0x08dd64…08dd6a 00 00 00 00 00 00 ┆ ┆
0x08dd6a…08defe Dummy {f00=0x0036, f01=0x0190, f02=»EAD v P* PREA759 P PERF DETPRT DETACH PRINTER $ P MOVE LBIN4,=W'34' H P B REA980 b P* t PREA760 DUPLICATION ~ * P MOVE LBIN2,W3 INDICATE COMMON EOI-KEY P DUPL LSTR81 DUPLICATION P BNZ REA762 DUPL ALLOWED . P
0x08defe…08df00 00 00 ┆ ┆
0x08df00…08df04 00 00 00 00 ┆ ┆
0x08df04…08e098 Dummy {f00=0x0036, f01=0x0190, f02=»Y j P B REA980 DUPL NOT ALLOWED P EJECT , P* : P* EDIT FIELD D P* PREA765 EDIT AFTER ERROR f P CBE LBIN1,W0,REA775 PREA770 EDIT AFTER TBWD P MOVE LBIN1,W1 PREA775 NORMAL EDIT P GETCTL 1,LBIN3 GE
0x08e098…08e09e 00 00 00 00 00 00 ┆ ┆
0x08e09e…08e232 Dummy {f00=0x0036, f01=0x0190, f02=» EDFLD LSTR81,KEYT3,LBIN1, C P LBIN2,LBIN4 & P BL REA970 ERROR < 2 P CBNG LBIN2,W0,REA994 POWER OFF OR KEY SWITCH T " P B REA120 CONTINUE AS FOR DYKI P EJECT P* P* ENTER KEY P* PREA790 , P MOVE LBIN4,W5 IND
0x08e232…08e238 00 00 00 00 00 00 ┆ ┆
0x08e238…08e3cc Dummy {f00=0x0036, f01=0x0190, f02=» 8 P GETFLD 0,LBIN2,LBIN3 SEARCH FOR EMPTY COMP. FIELDS ( P BOFL REA796 EMPTY COMP. FIELD FOUND @ $ P TSTCTL 2 LAST FIELD COMPULSORY? l P BZ REA991 NO! END OF FORMAT P CALL EMPTYT,:FMTITEM EMPTY? P BOK REA991 NO! =>EOF P* & P*
0x08e3cc…08e3d2 00 00 00 00 00 00 ┆ ┆
0x08e3d2…08e566 Dummy {f00=0x0036, f01=0x0190, f02=»JECT PREA970 & P CBE LBIN2,W12,REA775 JUMP IF EDIT & P CBE LBIN2,W8,REA770 JUMP IF TBWD D P PERF STABLK n P* P* ERROR HANDLING P* PREA980 8 P PERF WSMERR,KEYT4,MSGCOL ***(ERROR-)MESSAGE ROUTINE & P IB LBIN2,RE
0x08e566…08e56c 00 00 00 00 00 00 ┆ ┆
0x08e56c…08e700 Dummy {f00=0x0036, f01=0x0190, f02=»M z P* PREA990 P MOVE LBIN2,W0 OK " P B REA999 < P* N P* END OF FORMAT FOUND X P* x PREA991 P MOVE LBIN2,W1 EOF P B REA999 P* P* CANCEL RETUR P* PREA993 $ P GETABX LBIN4 GE
0x08e700…08e706 00 00 00 00 00 00 ┆ ┆
0x08e706…08e89a Dummy {f00=0x0036, f01=0x0190, f02=»993B PREA993A MOVE :FMTITEM,LSTR81 4 P ERASE 13,LBIN4,LBIN4 ERASE SCREEN AND DATA ITEM 0 PREA993B h " P SUB LBIN2,W2 ADJUST KEYINDEX x P B REA999 P* P* POWER OFF P* PREA994 P MOVE LBIN2,W4 P B REA999
0x08e89a…08e8a0 00 00 00 00 00 00 ┆ ┆
0x08e8a0…08ea34 (3, 66) Dummy {f00=0x0036, f01=0x0190, f02=»ON AND STOP'S BLOCKING v P* PSTPBLK PROC ( $ P MOVE VD82CW,=X'0080' CURSOR ON < P DSC SCRN,X'11',VD82CW d $ P DSC SCRN,STOPBLK STOP BLOCKING P RET P PEND P* 8 P* STABLK => START'S BLOCKING AND TURNS CURSOR OFF
0x08ea34…08ea3a 00 00 00 00 00 00 ┆ ┆
0x08ea3a…08ebce Dummy {f00=0x0036, f01=0x413c, f02=»',VD82CW * P MOVE VD82CW,=X'0180' INVISIBLE CURSOR P DSC SCRN,X'11',VD82CW > P RET P PEND h P EJECT v PBELL FRMT P FSL P FILLR X'07',1 P FMEND P* P* FORM-FEED FORMAT P* PFORMF FRMT
0x08ebce…08ebd4 00 00 00 00 00 00 ┆ ┆
0x08ebd4…08ed68 Dummy {f00=0x0036, f01=0x2008, f02=» * P MOVE VD82CW,=X'0180' INVISIBLE CURSOR P DSC SCRN,X'11',VD82CW > P RET P PEND h P EJECT v PBELL FRMT P FSL P FILLR X'07',1 P FMEND P* P* FORM-FEED FORMAT P* PFORMF FRMT
0x08ed68…08ed6e 01 34 00 00 57 31 ┆ 4 W1┆
0x08ed6e…08ef02 Dummy {f00=0x0036, f01=0x5c5c, f02=» 1:ST & LAST+1 LINE SHOWN E FFER LAYOUT CE NUMBER AMETERS SS:CFX EQU SS:LIN+4 CURRENT DYNAMIC FIELD INDEX NTS A SS:SEC EQU SS:CFX+2 SECTION NAME OCK BUFFER , =1 IF NO NE SS:LEN EQU SS:SEC+6 LENGTH
0x08ef02…08ef08 00 00 00 00 00 00 ┆ ┆
0x08ef08…08f09c Dummy {f00=0x0036, f01=0x0d5c, f02=» 1:ST & LAST+1 LINE SHOWN E FFER LAYOUT CE NUMBER AMETERS ** CFX EQU SS:LIN+4 CURRENT DYNAMIC FIELD INDEX NTS A ** DISPLACEMENTS IN WSM WORK ITEMS OVERHEAD , =1 IF NO NE ** LEN EQU SS:SEC+6 LENGTH
0x08f09c…08f0a0 00 00 00 00 ┆ ┆
0x08f0a0…08f0a2 00 00 ┆ ┆
0x08f0a2…08f236 Dummy {f00=0x0036, f01=0x5757, f02=»I:NF EQU 0 NO OF FAST CHOISE SECTION WWI:S NUMBER AMETERS WWI:LF EQU WWI:NF+1 LENGTH OF ONE FAST CHOISE SECT WWI WWI:NN EQU WWI:LF+1 NO OF NUMERIC WWI:S EAD , =1 IF NO NE WWI:LN EQU WWI:NN+1 LENGTH
0x08f236…08f23c 00 00 00 00 00 00 ┆ ┆
0x08f23c…08f3d0 Dummy {f00=0x0036, f01=0x5757, f02=»I:NA EQU WWI:AN+2 NO OF ALPHANUMERIC WWI:S NUMBER AMETERS WWI:LA EQU WWI:NA+1 LENGTH OF ONE ALPHANUMERIC WWI WWI WWI:AA EQU WWI:LA+1 ADDRESS TO FIRST ALPHANUMERIC WWI NE WWI:LO EQU WWI:AA+2 LENGTH
0x08f3d0…08f3d6 00 00 00 00 00 00 ┆ ┆
0x08f3d6…08f56a Dummy {f00=0x0036, f01=0x0d57, f02=»I:NA EQU WWI:AN+2 NO OF ALPHANUMERIC WWI:S NUMBER AMETERS ** :LA EQU WWI:NA+1 LENGTH OF ONE ALPHANUMERIC WWI WWI ** FORMAT DEFINITION CODE TO FIRST ALPHANUMERIC WWI NE ** :LO EQU WWI:AA+2 LENGTH
0x08f56a…08f570 00 00 00 00 00 00 ┆ ┆
0x08f570…08f704 (3, 67) Opaque[0x194]
0x08f704…08f70a 00 00 00 00 00 00 ┆ ┆
0x08f70a…08f89e # DirEnt {nam=»WSMKEY«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06d8, f03=0x0000}
0x08f70a…08f89e IdxSect {
0x08f70a…08f89e f00 = 0x0036 // 0x8f70a @0x0
0x08f70a…08f89e f01 = 0x0002 // 0x8f70c @0x2
0x08f70a…08f89e gno = [ // 0x8f70e @0x4
0x08f70a…08f89e [0x00]: C0x0036.0x3.0
0x08f70a…08f89e ]
0x08f70a…08f89e }
0x08f89e…08f8a0 00 00 ┆ ┆
0x08f8a0…08f8a4 00 00 00 00 ┆ ┆
0x08f8a4…08fa38 Dummy {f00=0x0036, f01=0x0190, f02=» P* P* WSM KEY-CODES P* ( PBSP EQU X'08' BACKSPACE 2 PCLR EQU X'8F' CLEAR R $ PSKP EQU X'05' SKIP REST OF FIELD n PCAN EQU X'91' CANCEL PRET EQU X'99' RETUR * PPLS EQU X'8C' PLUS + ,E-O-I ,FORW-TAB PMIN EQU X'2D
0x08fa38…08fa3e 01 35 01 90 43 46 ┆ 5 CF┆
0x08fa3e…08fbd2 Dummy {f00=0x0036, f01=0x0190, f02=»CFW EQU X'10' CURSOR FORWARD PENT EQU X'80' ENTER $ " PCBW EQU X'09' CURSOR BACKWARD @ PINS EQU X'0F' INSERT f PDEL EQU X'0E' DELETE PCUP EQU X'88' CURSOR UPWARD " PCDN EQU X'82' CURSOR DOWNWARD PLIN EQU X'81' LINE PALL EQ
0x08fbd2…08fbd8 01 35 40 ee 47 48 ┆ 5@ GH┆
0x08fbd8…08fd6c Dummy {f00=0x0036, f01=0x40ee, f02=»GH INTENSITY PULN EQU X'55' UNDERLINE 'U' $ PRVS EQU X'52' REVERSED IMAGE 'R' 8 PBLN EQU X'42' BLINKING 'B' ` PHLP EQU X'94' HELP PSPC EQU X'20' SPACE AS EOI ( POVE EQU X'8D' <OVE>:=MULTIPLE ENTER @ U X'81' LINE PALL EQ
0x08fd6c…08fd72 01 35 20 08 20 04 ┆ 5 ┆
0x08fd72…08ff06 Dummy {f00=0x0036, f01=0x2008, f02=» SITY PULN EQU X'55' UNDERLINE 'U' $ PRVS EQU X'52' REVERSED IMAGE 'R' 8 PBLN EQU X'42' BLINKING 'B' ` PHLP EQU X'94' HELP PSPC EQU X'20' SPACE AS EOI ( POVE EQU X'8D' <OVE>:=MULTIPLE ENTER @ U X'81' LINE PALL EQ
0x08ff06…08ff0c 01 35 01 90 3a 58 ┆ 5 :X┆
0x08ff0c…0900a0 Dummy {f00=0x0036, f01=0x0190, f02=»:XX' DID NOT OCCUR WHEN CREATI ^ PNF & 6 P SECTION DIRECT AFTER IPL 0 F P 82-12-09 WSMDDV DEFAULT VALUES 'BPOOL':=48 'VALBUF':=2048 j L P 82-12-09 WSMAPP NEW ERROR MESSAGE AT CONTROL OF GUIDING MESSAGE P P
0x0900a0…0900a6 01 35 01 90 20 20 ┆ 5 ┆
0x0900a6…09023a Dummy {f00=0x0036, f01=0x0190, f02=» 82-11-26 WSMDDV DEFAULT-VALUES OF BUFFERPOOL & VALIDATION BUFFER ENLARG PED T T P 82-11-26 FSPARM DEFAULT-VALUE INPUT CONTROLLED MINL:=NUMBER OF DECIMALS ^ T P 82-11-26 FSMODL OVERWRITE WITH SPACE OF FIRST COL IN ROW CAUSED TROUBLE
0x09023a…090240 00 00 ff ff 00 00 ┆ ┆
0x090240…0903d4 (3, 68) Opaque[0x194]
0x0903d4…0903da 00 00 00 00 00 00 ┆ ┆
0x0903da…09056e # DirEnt {nam=»KEYT1 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06e0, f03=0x0000}
0x0903da…09056e IdxSect {
0x0903da…09056e f00 = 0x0037 // 0x903da @0x0
0x0903da…09056e f01 = 0x0002 // 0x903dc @0x2
0x0903da…09056e gno = [ // 0x903de @0x4
0x0903da…09056e [0x00]: C0x0037.0x0.0
0x0903da…09056e ]
0x0903da…09056e }
0x09056e…090574 00 00 00 00 00 00 ┆ ┆
0x090574…090708 Dummy {f00=0x0037, f01=0x4130, f02=» P* . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ P* OF A FORMAT FIELD P* * PKEYT1 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C * P RET,PLS,MIN,BTB,NOK, 6-10 NOK=HOM C P
0x090708…09070e 01 35 20 08 20 04 ┆ 5 ┆
0x09070e…0908a2 Dummy {f00=0x0037, f01=0x2008, f02=» . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ P* OF A FORMAT FIELD P* * PKEYT1 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C * P RET,PLS,MIN,BTB,NOK, 6-10 NOK=HOM C P
0x0908a2…0908a8 01 35 4d 49 4e 5c ┆ 5MIN ┆
0x0908a8…090a3c Dummy {f00=0x0037, f01=0x4d49, f02=»N EQU X'2D' MINUS - URE POOL HANDLING FSMSPP $ BTB EQU X'8B' BACKTAB DATION I/O PROCEDURE < / FSUPDT TNOK EQU X'EE' NO KEY **VALIDATION PAGE LOAD J Y N GBIN1 K @PRT EQU X'98' PRINT JECT C
0x090a3c…090a40 01 35 43 46 ┆ 5CF┆
0x090a40…090a42 57 5c ┆W ┆
0x090a42…090bd6 Dummy {f00=0x0037, f01=0x4346, f02=»W EQU X'10' CURSOR FORWARD TEM? d H CHLP d ENT EQU X'80' ENTER EV=DL T j INS d ? ? :KEYB F CBW EQU X'09' CURSOR BACKWARD T PKEYT2 + YKEYT3 INS EQU X'0F' INSERT FL=13
0x090bd6…090bdc 01 35 43 55 50 5c ┆ 5CUP ┆
0x090bdc…090d70 Dummy {f00=0x0037, f01=0x4355, f02=»P EQU X'88' CURSOR UPWARD LFBIN K - ^ ^ LIN d CDN EQU X'82' CURSOR DOWNWARD ER LPBIN K * R T LSTR81 I o LIN EQU X'81' LINE I n 4 MIN d - $ H 2NEOI ALL EQU X'03' ALL ST d
0x090d70…090d76 01 35 46 4e 43 5c ┆ 5FNC ┆
0x090d76…090f0a Dummy {f00=0x0037, f01=0x464e, f02=»C EQU X'93' FUNCTION a a PKTAB PLBIN K . bCRL EQU X'0D' CRLF PLS d G 1PRT d HGH EQU X'48' HIGH INTENSITY RELDAT I K K RET d ULN EQU X'55' UNDERLINE 'U
0x090f0a…090f10 01 00 81 57 ff ce ┆ W ┆
0x090f10…0910a4 (3, 69) Opaque[0x194]
0x0910a4…0910aa 00 00 00 00 00 00 ┆ ┆
0x0910aa…09123e # DirEnt {nam=»KEYT2 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06e8, f03=0x0000}
0x0910aa…09123e IdxSect {
0x0910aa…09123e f00 = 0x0037 // 0x910aa @0x0
0x0910aa…09123e f01 = 0x0002 // 0x910ac @0x2
0x0910aa…09123e gno = [ // 0x910ae @0x4
0x0910aa…09123e [0x00]: C0x0037.0x1.0
0x0910aa…09123e ]
0x0910aa…09123e }
0x09123e…091240 00 00 ┆ ┆
0x091240…091244 00 00 00 00 ┆ ┆
0x091244…0913d8 Dummy {f00=0x0037, f01=0x4134, f02=» P* 0 P* KEYTABLE TO BE USED IN 'READIN' MODULE . P* THESE KEYS ARE VALID IN ALL POSITIONS B 6 P* BUT THE VERY FIRST POSITION OF A FORMAT FIELD t P* * PKEYT2 KTAB BSP,NOK,CLR,PLS,CAN, 1-5 C " P RET,PLS,MIN,BTB,NOK, 6-10 C
0x0913d8…0913de 01 35 20 08 20 04 ┆ 5 ┆
0x0913de…091572 Dummy {f00=0x0037, f01=0x2008, f02=» 0 P* KEYTABLE TO BE USED IN 'READIN' MODULE . P* THESE KEYS ARE VALID IN ALL POSITIONS B 6 P* BUT THE VERY FIRST POSITION OF A FORMAT FIELD t P* * PKEYT2 KTAB BSP,NOK,CLR,PLS,CAN, 1-5 C " P RET,PLS,MIN,BTB,NOK, 6-10 C
0x091572…091578 01 35 57 31 32 5c ┆ 5W12 ┆
0x091578…09170c Dummy {f00=0x0037, f01=0x5731, f02=»2 BIN W'12' CONSTANT P070 JUMP IF NOT E-O-S N ? I W13 BIN W'13' CONSTANT ECTION /O PROCEDURE W14 BIN W'14' CONSTANT VALIDATION PAGE LOAD W15 BIN W'15' CONSTANT FI
0x09170c…091712 01 35 2a 0d 4c 5c ┆ 5* L ┆
0x091712…0918a6 Dummy {f00=0x0037, f01=0x2a0d, f02=»L FSP985 JMP IF VALBUF OVERFLOW : @ = > F B H C* COMMON WORKBLOCK NO FIELD FOUND + 6 6 7 7 WSAVE > }0O * HOME MAKE 1ST FIELD CURRENT XSTAT :2=0 FATTR 3GM 3 FB 3QM - CB2 BLK ET CURSOR UT:FORMA
0x0918a6…0918ac 01 35 57 31 37 5c ┆ 5W17 ┆
0x0918ac…091a40 Dummy {f00=0x0037, f01=0x5731, f02=»7 BIN W'17' CONSTANT NT INDEX > ! " " # ) * * , W18 BIN W'18' CONSTANT KI NR 15=GUIDING MESSAGE 2 2 2 2 3 3 4 5 W19 BIN W'19' CONSTANT KI NR 16=EXTENDED PROMPT = = = = ? A A B W20 BIN W'20' CONSTANT IGN
0x091a40…091a46 01 35 57 32 32 5c ┆ 5W22 ┆
0x091a46…091bda Dummy {f00=0x0037, f01=0x5732, f02=»2 BIN W'22' CONSTANT 11,KEYT22,KEYT33,=W'0' ***READ IN ONE FIELD u v v W23 BIN W'23' CONSTANT y z 5 z z z & z P z : { { U } A } ! ~ ~ W24 BIN W'24' CONSTANT - ) ' * , 3 / . 4 0 1 W80 BIN W'80' CONSTANT 2,K
0x091bda…091be0 00 00 ff ff 00 00 ┆ ┆
0x091be0…091d74 (3, 70) Opaque[0x194]
0x091d74…091d7a 00 00 00 00 00 00 ┆ ┆
0x091d7a…091f0e # DirEnt {nam=»KEYT3 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06f0, f03=0x0000}
0x091d7a…091f0e IdxSect {
0x091d7a…091f0e f00 = 0x0037 // 0x91d7a @0x0
0x091d7a…091f0e f01 = 0x0002 // 0x91d7c @0x2
0x091d7a…091f0e gno = [ // 0x91d7e @0x4
0x091d7a…091f0e [0x00]: C0x0037.0x2.0
0x091d7a…091f0e ]
0x091d7a…091f0e }
0x091f0e…091f14 00 00 00 00 00 00 ┆ ┆
0x091f14…0920a8 Dummy {f00=0x0037, f01=0x4136, f02=» P* . P* KEYTABLE TO BE USED IN 'READIN' MODULE 0 P* THESE KEYS ARE JUST ALLOWED IN EDIT MODE @ P* OF A FORMAT FIELD t P* * PKEYT3 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,MIN,BTB,NOK,PRT, 1
0x0920a8…0920ae 01 35 20 08 20 04 ┆ 5 ┆
0x0920ae…092242 Dummy {f00=0x0037, f01=0x2008, f02=» . P* KEYTABLE TO BE USED IN 'READIN' MODULE 0 P* THESE KEYS ARE JUST ALLOWED IN EDIT MODE @ P* OF A FORMAT FIELD t P* * PKEYT3 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,MIN,BTB,NOK,PRT, 1
0x092242…092248 01 35 01 90 52 31 ┆ 5 R1┆
0x092248…0923dc Dummy {f00=0x0037, f01=0x0190, f02=»R16 FORMAT CONDITIONS CHANGED P EXTRN T:EDWI INIT FOR WRITE & P EXTRN T:EDWF J , P EXTRN T:ENIN END HANDLING FOR FINP/FKI ` " P EXTRN T:GRFC GET FCB ADDRESS P EXTRN T:SCUR SETCUR " P EXTRN T:DNL NEW LINE DISPLAY ( P EXTRN T:TINP FI
0x0923dc…0923e0 01 35 01 90 ┆ 5 ┆
0x0923e0…0923e2 52 45 ┆RE┆
0x0923e2…092576 Dummy {f00=0x0037, f01=0x0190, f02=»RETURN v P EXTRN I:EVT P EXTRN I:EVA0 " 0 P EXTRN I:EVNO PROCESS NOT IMPLEMENTED CODES 8 $ P EXTRN I:ESKI DUMMY PROCESS ITEM l ( P EXTRN I:EBRI BRANCH UPON ITEM VALUE , P EXTRN I:EBRB BRANCH UPON BOOLEAN VALUE P EXTRN I:EXIT FEXIT
0x092576…09257c 01 35 01 90 46 58 ┆ 5 FX┆
0x09257c…092710 Dummy {f00=0x0037, f01=0x0190, f02=»FXCOPY @2 " P EXTRN I:RET FORMATLIST RETURN P EXTRN X:RESE NO STD 8 T P EJECT T:DEDT T:DEDT T:DEDT T:DEDT T:DEDT T:DEDT T:DIS2 T T * P* NO STD CONDITIONAL ASSEMBLY FLAGS PNO EQU 0 PYES EQU 1 PRESE EQU NO
0x092710…092716 01 35 01 8e 2a 20 ┆ 5 * ┆
0x092716…0928aa Dummy {f00=0x0037, f01=0x018e, f02=»* PPS EQU A14 STACK POINTER PTCA EQU A13 TCA BASE ADDRESS * PPP EQU A12 PROGRAM POINTER N PRFCB EQU A6 FCB BASE ADDRESS p PPBF EQU A4 BUFFER POINTER P* " PSTKB EQU 2 STACK BASE POINTER P* PWAITBT EQU /80 WAIT BIT
0x0928aa…0928b0 01 00 81 57 ff ce ┆ W ┆
0x0928b0…092a44 (3, 71) Opaque[0x194]
0x092a44…092a4a 00 00 00 00 00 00 ┆ ┆
0x092a4a…092bde # DirEnt {nam=»KEYT4 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x06f8, f03=0x0000}
0x092a4a…092bde IdxSect {
0x092a4a…092bde f00 = 0x0037 // 0x92a4a @0x0
0x092a4a…092bde f01 = 0x0002 // 0x92a4c @0x2
0x092a4a…092bde gno = [ // 0x92a4e @0x4
0x092a4a…092bde [0x00]: C0x0037.0x3.0
0x092a4a…092bde ]
0x092a4a…092bde }
0x092bde…092be0 00 00 ┆ ┆
0x092be0…092be4 00 00 00 00 ┆ ┆
0x092be4…092d78 Dummy {f00=0x0037, f01=0x4074, f02=» P* . P* KETABLE TO BE USED IN 'WSMERR' MODULE P* @ " PKEYT4 KTAB CLR,CAN,RET,CFW 1-4 J@ p
0x092d78…092d7e 01 36 20 08 20 04 ┆ 6 ┆
0x092d7e…092f12 Dummy {f00=0x0037, f01=0x2008, f02=» . P* KETABLE TO BE USED IN 'WSMERR' MODULE P* @ " PKEYT4 KTAB CLR,CAN,RET,CFW 1-4 J@ p
0x092f12…092f18 01 36 01 90 00 06 ┆ 6 ┆
0x092f18…0930ac Dummy {f00=0x0037, f01=0x0190, f02=» P* P* POWER OFF P* $ PWSM400 . * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT < $ P GETABX LBIN4 GET CURRENT FIELD j PWSM405 * P GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS P BNOK WSM410 P SETCUR P B WSM150 PWSM4
0x0930ac…0930b2 01 36 01 90 30 30 ┆ 6 00┆
0x0930b2…093246 Dummy {f00=0x0037, f01=0x0190, f02=»00 2 P MOVE GBIN1,GBCD3I(W1) STORE FUNCTIONNO BINARY P* @ P* EXIT J P* Z P RET d P PEND p P EJECT ~ PFWMENU FRMT P FSL P FTAB 10 P FILLR '*',9 P FNL P FTAB 10 P FTEXT '* W S M *' P F
0x093246…09324c 01 36 01 90 4d 45 ┆ 6 ME┆
0x09324c…0933e0 Dummy {f00=0x0037, f01=0x0190, f02=»MEL 'ZZ',GBCD3I(W1) P FNL P FTEXT '1. ' ( P FCOPY =C'NEW ' < P FCOPY =C'FORMAT ' T P FCOPY =C'DEFINITION' n P FNL P FTEXT '2. ' P FCOPY =C'NEW ' P FCOPY =C'FORMAT ' P FCOPY =C'SECTION' P FNL P FTE
0x0933e0…0933e6 01 36 41 4c 43 4f ┆ 6ALCO┆
0x0933e6…09357a Dummy {f00=0x0037, f01=0x414c, f02=»COPY =C'UPDATE OLD ' P FCOPY =C'FORMAT ' P FCOPY =C'DEFINITION' 6 P FNL T P FTEXT '6. ' ` P FCOPY =C'UPDATE OLD ' t P FCOPY =C'FORMAT ' P FCOPY =C'SECTION' P FNL P FTEXT '7. ' P FCOPY =C'UPDATE OLD ' P FCO
0x09357a…093580 00 00 ff ff 00 00 ┆ ┆
0x093580…093714 (3, 72) Opaque[0x194]
0x093714…09371a 00 00 00 00 00 00 ┆ ┆
0x09371a…0938ae # DirEnt {nam=»WSMDDV«, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0700, f03=0x4000}
0x09371a…0938ae IdxSect {
0x09371a…0938ae f00 = 0x0038 // 0x9371a @0x0
0x09371a…0938ae f01 = 0x0006 // 0x9371c @0x2
0x09371a…0938ae gno = [ // 0x9371e @0x4
0x09371a…0938ae [0x00]: C0x0038.0x0.0
0x09371a…0938ae [0x01]: C0x0038.0x1.0
0x09371a…0938ae [0x02]: C0x0038.0x2.0
0x09371a…0938ae ]
0x09371a…0938ae }
0x0938ae…0938b4 00 00 00 00 00 00 ┆ ┆
0x0938b4…093a48 Dummy {f00=0x0038, f01=0x0190, f02=» TRA01WSMDDV850901 C1 0 3 ( CB1 0 6 A L CB2 0 6 / V p CB3 0 6 =e u TB1 0 9 n TB2 0 9 TB3
0x093a48…093a4e 00 00 00 00 00 00 ┆ ┆
0x093a4e…093be2 Dummy {f00=0x0038, f01=0x0190, f02=» TB7 0 9 TB8 0 9 $ TB9 0 9 H DISC 0 F * l KEYB 0 F + PRNT 0 F , SCRN 0 F - SYSL
0x093be2…093be8 00 00 00 00 00 00 ┆ ┆
0x093be8…093d7c Dummy {f00=0x0038, f01=0x0190, f02=»W0 0 K B W1 0 K C W2 0 K D D W3 0 K E h W4 0 K F W5 0 K G W6 0 K H W7 0
0x093d7c…093d80 00 00 00 00 ┆ ┆
0x093d80…093d82 00 00 ┆ ┆
0x093d82…093f16 Dummy {f00=0x0038, f01=0x0190, f02=» 0 K M W12 0 K N W13 0 K O @ W14 0 K P d W15 0 K Q W16 0 K W W17 0 K ! X W18 0 K
0x093f16…093f1c 00 00 00 00 00 00 ┆ ┆
0x093f1c…0940b0 Dummy {f00=0x0038, f01=0x0190, f02=» 0 K & ] W23 0 K ' ^ W24 0 K ( _ < W80 0 K ) ` ` LPBIN 0 K * a DPBIN 0 K + b LABIN 0 K , c LFBIN 0 K -
0x0940b0…0940b6 00 00 00 00 00 00 ┆ ┆
0x0940b6…09424a Dummy {f00=0x0038, f01=0x0190, f02=» I 2 } STVAL 0 I 3 OPRTS 0 I 4 8 OPRVAL 0 I 5 DECOR 0 I 6 DECVAL 0 I 7 YES 0 I 8 NO 0 I 9
0x09424a…094250 00 00 00 00 00 00 ┆ ┆
0x094250…0943e4 (3, 73) Dummy {f00=0x0038, f01=0x0190, f02=» = | SKIP 0 I > PHYSCR 0 I ? 4 GBIN1 0 K @ X GBIN2 0 K A | GBIN3 0 K B GBIN4 0 K C GBIN5 0 K D
0x0943e4…0943ea 00 00 00 00 00 00 ┆ ┆
0x0943ea…09457e Dummy {f00=0x0038, f01=0x0190, f02=» x GBIN10 0 K I GBIN11 0 K J 0 GBIN12 0 K K T GBIN13 0 K L x GBIN14 0 K M GBIN15 0 K N GSTR80 0 I O
0x09457e…094580 00 00 ┆ ┆
0x094580…094584 00 00 00 00 ┆ ┆
0x094584…094718 Dummy {f00=0x0038, f01=0x0190, f02=» t GSTR6C 0 I U GSTR6D 0 I V , GSTR6I 0 I W P GSTR8A 0 I Y t GST80I 0 I Z GBCD3I 0 J GSTR1I 0 I ^
0x094718…09471e 00 00 00 00 00 00 ┆ ┆
0x09471e…0948b2 Dummy {f00=0x0038, f01=0x0190, f02=» LBOOL5 0 G d 2 LBOOL6 0 G e 3 ( LBOOL7 0 G f 4 L LBOOL8 0 G g 5 p LBOOL9 0 G h 6 LBOOLA 0 G i 7 LBOOLB 0 G j 8 LBOO
0x0948b2…0948b8 00 00 00 00 00 00 ┆ ┆
0x0948b8…094a4c Dummy {f00=0x0038, f01=0x0190, f02=» LBIN2 0 K a = LBIN3 0 K b > $ LBIN4 0 K c ? H LBIN5 0 K d @ l LBIN6 0 K e A LBIN7 0 K f B LBIN8 0 K g C LBIN9
0x094a4c…094a52 00 00 00 00 00 00 ┆ ┆
0x094a52…094be6 Dummy {f00=0x0038, f01=0x0190, f02=»LSTR4A 0 I l H LSTR6A 0 I m I LSTR9A 0 I n J D LSTR81 0 I o K h VD82 0 G p Q TKBOOL 0 G q R PRBOOL 0 G r S UPBOOL 0
0x094be6…094bec 00 00 00 00 00 00 ┆ ┆
0x094bec…094d80 Dummy {f00=0x0038, f01=0x0190, f02=»OL 0 G w X OBBOOL 0 G x Y CHABOL 0 G y Z @ LBIN11 0 K p [ d LBIN12 0 K q LBIN13 0 K r ] LBIN14 0 K s ^ LBIN15 0 K
0x094d80…094d86 00 00 00 00 00 00 ┆ ┆
0x094d86…094f1a Dummy {f00=0x0038, f01=0x0190, f02=» 0 K x c LBIN20 0 K y d ATTAB 0 I z e < FIDTAB 0 I { n ` PICTUR 0 I | r LSTR16 0 I } s LSTR89 0 I ~ t GBCD80 0 J
0x094f1a…094f20 00 00 00 00 00 00 ┆ ┆
0x094f20…0950b4 (3, 74) Dummy {f00=0x0038, f01=0x0190, f02=» I ROWS 0 K COLS 0 K 8 SCRNFC 0 K SYSLFC 0 K PRNTFC 0 K LSTR2 0 I RELDAT 0 I
0x0950b4…0950ba 00 00 00 00 00 00 ┆ ┆
0x0950ba…09524e Dummy {f00=0x0038, f01=0x0190, f02=» | TB7BIN1 0 K SCBIN 0 K 4 WRBIN 0 K X CUBIN 0 K | VD82CW 0 K SLBIN1 0 K SLBIN2 0 K
0x09524e…095254 00 00 00 00 00 00 ┆ ┆
0x095254…0953e8 Dummy {f00=0x0038, f01=0x0190, f02=» x SLBIN7 0 K SLBIN8 0 K 0 SLBIN9 0 K T VALPTR 0 K x OBJSTR 0 I VBOOL1 0 G VBOOL2 0 G
0x0953e8…0953ee 00 00 00 00 00 00 ┆ ┆
0x0953ee…095582 Dummy {f00=0x0038, f01=0x0190, f02=» t VBOOL7 0 G VBOOL8 0 G , VBOOL9 0 G P IC 0 G t VBBIN 0 K VBIN1 0 K VBIN2 0 K
0x095582…095588 00 00 00 00 00 00 ┆ ┆
0x095588…09571c Dummy {f00=0x0038, f01=0x0190, f02=» VBIN7 0 K VBIN8 0 K ( LSTACK 0 K L LINNO 0 J p VSTR2 0 I VALBUF 0 I BASLIN 0 I ICLE
0x09571c…095720 00 00 00 00 ┆ ┆
0x095720…095722 00 00 ┆ ┆
0x095722…0958b6 Dummy {f00=0x0038, f01=0x0044, f02=» ICBUF 0 I TRA99C F 0 I $ ( LSTACK 0 K L LINNO 0 J p VSTR2 0 I VALBUF 0 I BASLIN 0 I ICLE
0x0958b6…0958bc 00 00 00 00 00 00 ┆ ┆
0x0958bc…095a50 Dummy {f00=0x0038, f01=0x2008, f02=» F 0 I TRA99C F 0 I $ ( LSTACK 0 K L LINNO 0 J p VSTR2 0 I VALBUF 0 I BASLIN 0 I ICLE
0x095a50…095a56 00 00 00 00 00 00 ┆ ┆
0x095a56…095bea Dummy {f00=0x0038, f01=0x0190, f02=»R Q ! 9D# 9hP Q " ;B 2 Pl L ?b l P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL W C " _* Q P Q V _ W " A < V
0x095bea…095bf0 00 00 00 00 00 00 ┆ ┆
0x095bf0…095d84 (3, 75) Opaque[0x194]
0x095d84…095d8a 00 00 00 00 00 00 ┆ ┆
0x095d8a…095f1e # DirEnt {nam=»SYNVAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0718, f03=0x0000}
0x095d8a…095f1e IdxSect {
0x095d8a…095f1e f00 = 0x0038 // 0x95d8a @0x0
0x095d8a…095f1e f01 = 0x0020 // 0x95d8c @0x2
0x095d8a…095f1e gno = [ // 0x95d8e @0x4
0x095d8a…095f1e [0x00]: C0x0038.0x3.0
0x095d8a…095f1e [0x01]: C0x0039.0x0.0
0x095d8a…095f1e [0x02]: C0x0039.0x1.0
0x095d8a…095f1e [0x03]: C0x0039.0x2.0
0x095d8a…095f1e [0x04]: C0x0039.0x3.0
0x095d8a…095f1e [0x05]: C0x003a.0x0.0
0x095d8a…095f1e [0x06]: C0x003a.0x1.0
0x095d8a…095f1e [0x07]: C0x003a.0x2.0
0x095d8a…095f1e [0x08]: C0x003a.0x3.0
0x095d8a…095f1e [0x09]: C0x003b.0x0.0
0x095d8a…095f1e [0x0a]: C0x003b.0x1.0
0x095d8a…095f1e [0x0b]: C0x003b.0x2.0
0x095d8a…095f1e [0x0c]: C0x003b.0x3.0
0x095d8a…095f1e [0x0d]: C0x003c.0x0.0
0x095d8a…095f1e [0x0e]: C0x003c.0x1.0
0x095d8a…095f1e [0x0f]: C0x003c.0x2.0
0x095d8a…095f1e ]
0x095d8a…095f1e }
0x095f1e…095f20 00 00 ┆ ┆
0x095f20…095f24 00 00 00 00 ┆ ┆
0x095f24…0960b8 Dummy {f00=0x0038, f01=0x0190, f02=» . P IDENT SYNVAL REL=2.3,850606,870155940230 P 6 B P************************************************************* > P* & P* LATEST UPDATE 850606 MADE BY:JE P* P* HISTORY= J P* 850606/JE CHECK OF OVFL-ENTRIES 'ATTAB'
0x0960b8…0960be 00 00 00 00 00 00 ┆ ┆
0x0960be…096252 Dummy {f00=0x0038, f01=0x0190, f02=»PROCESSING OF EVALUATION OF FID:S r J P* 850211/CJ IDENTION ERROR FOR FID<LEN4 ,"ON FID GOTO ..." * 6 P* 841120/CJ MUL&DIV NOW FROM ASSROUTINE x F P* 840921/CJ BASIC ERROR WHEN USE OF FID=AB,NU - SOLVED @ P*
0x096252…096258 00 00 00 00 00 00 ┆ ┆
0x096258…0963ec Dummy {f00=0x0038, f01=0x0190, f02=» P DDUM WSMDDV P PDIV * P ENTRY SYNVAL ***SYNTAX OF VALIDATION * & P ENTRY BSVSEA ***BASIC VERB SEARCH X 8 P EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S P EXT ICLEAR ---CLEAR ITEM " P EXT EMPTYT ---CHECK IF EMPTY " P E
0x0963ec…0963f2 00 00 00 00 00 00 ┆ ┆
0x0963f2…096586 Dummy {f00=0x0038, f01=0x0190, f02=»X OF VALIDATION 2 P* 1 - CHECK IF A LINE NUMBER WAS ENTERED 2 P* RANGE IT 0000 < LINE NUMBER < 2047 N ( P* 2 - INDENTIONS LEADING BLANKS P* 3 - BASIC VERB $ P* 4 - X - BASIC VERB DEPENDENT P* ( P* I
0x096586…09658c 00 00 00 00 00 00 ┆ ┆
0x09658c…096720 Dummy {f00=0x0038, f01=0x0190, f02=»* LBIN4 = BASIC LINE POINTER P* VBIN6 4 P* VBIN7 R P* VBIN8 p P* LBIN12 P* LBIN17 P* LBIN20 P* : P* OUTPUT: LBIN1
0x096720…096726 00 00 00 00 00 00 ┆ ┆
0x096726…0968ba Dummy {f00=0x0038, f01=0x0190, f02=» = 1 NOT OK P* & L P************************************************************************ 0 PSYNVAL PROC * P MOVE LBIN4,W0 INPUT BUFFER POINTER:=0 & P CALL ICLEAR,LSTR4A ---CLEAR ITEM P EJECT P* * P*
0x0968ba…0968c0 00 00 00 00 00 00 ┆ ┆
0x0968c0…096a54 (3, 76) Dummy {f00=0x0039, f01=0x0190, f02=»E NUMBER l 2 P CBG LBIN1,W4,SYN040 JMP IF GREATER MAXLENGTH , P MOVE LBIN3,LBIN1 LOAD ACTUAL LENGTH < 4 F PSYN040 v 6 P XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER 0 P CBL LSTR1,=X'30',SYN050 JMP IF NOT A DIGIT 0 P CBG LSTR1,=X'39',SYN0
0x096a54…096a5a 00 00 00 00 00 00 ┆ ┆
0x096a5a…096bee Dummy {f00=0x0039, f01=0x018e, f02=»LBIN4,LBIN3,SYN040 JMP IF NOT MAXLENGTH PSYN050 0 * P CALL EMPTYT,LSTR4A ---CHECK IF EMPTY > & P BNOK SYN100 JMP IF NO LINE NUMBER l * P MOVE LINNO(W9),LSTR4A CONVERT TO BCD , P MOVE LBIN3,LINNO(W9) CONVERT TO BINARY , P CBL LBIN3,W1,SYN060
0x096bee…096bf4 00 00 00 00 00 00 ┆ ┆
0x096bf4…096d88 Dummy {f00=0x0039, f01=0x0190, f02=» P* 8 P* SYNTAX ERROR 01 LINE NUMBER OUT OF RANGE 1-2047 P* N PSYN060 X * P MOVE LBIN1,W0 SAVE ERRONEUS POSITION f " P MOVE LBIN4,W1 SYNTAX ERROR:=1 P B SYN980 P EJECT P* * P* CHECK IF INDENTION(LEADING SPAC
0x096d88…096d8e 00 00 00 00 00 00 ┆ ┆
0x096d8e…096f22 Dummy {f00=0x0039, f01=0x0190, f02=»HECK E-O-B ~ P BE SYN990 E-O-B FOUND & P PERF INDCNT ***INDENTION COUNTING 0 P BT SYN108 E-O-B JUST SPACES Z " P MOVE LBIN3,W0 LOAD LOW LIMIT ~ 4 P TBF VBOOL1,SYN102 NO SPACE NEEDED IF NO LINE NO 0 P ADD LBIN3,W1 ADJUST LOW LIMIT IF LINE NUMB
0x096f22…096f28 00 00 00 00 00 00 ┆ ┆
0x096f28…0970bc Dummy {f00=0x0039, f01=0x0190, f02=» SYN110 OK P EJECT P* ( P* SYNTAX ERROR 03 INDENTION ERROR * P* V PSYN103 ` . P MOVE LBIN1,=W'31' LOAD ERRONEUS POSITION n P B SYN106 PSYN105 , P MOVE LBIN1,LBIN4 SAVE ERONEUS POSITION $ P SUB LBIN1,VBIN7 ADJUST
0x0970bc…0970c0 00 00 00 00 ┆ ┆
0x0970c0…0970c2 00 00 ┆ ┆
0x0970c2…097256 Dummy {f00=0x0039, f01=0x0190, f02=»LENGTH x 4 P DLETE LSTR81,LBIN1,VBIN7 DELETE TRAILING BLANKS P MOVE LBIN4,W80 F . P ADD LBIN4,W1 CALC LENGTH OF INPUT BUFFER ^ & P SUB LBIN4,VBIN7 CALC START POINT P MOVE VBIN7,W80 P ADD VBIN7,W1 CALC END LIMIT P MOVE LSTR1,=X'00'
0x097256…09725c 00 00 00 00 00 00 ┆ ┆
0x09725c…0973f0 Dummy {f00=0x0039, f01=0x0190, f02=»HECK END LIMIT ~ ( P BE SYN990 JMP IF END LIMIT REACHED P B SYN109 B P EJECT T P* b P* CHECK BASIC VERB l P* PSYN110 6 P CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH 8 P PERF BSVSEA,W2,VBIN6 ***BASIC VERB SEARCH L
0x0973f0…0973f6 00 00 00 00 00 00 ┆ ┆
0x0973f6…09758a Dummy {f00=0x0039, f01=0x0190, f02=»OUND x 8 P PERF BSVSEA,W4,VBIN6 ***BASIC VERB SEARCH LENGTH=4 P BOK SYN118 BASIC VERB FOUND H 8 P PERF BSVSEA,W5,VBIN6 ***BASIC VERB SEARCH LENGTH=5 l P BOK SYN120 BASIC VERB FOUND & P PERF VARDET ***VARIABLE/!INP/!FID P BNOK SYN112 NOT O
0x09758a…097590 00 00 00 00 00 00 ┆ ┆
0x097590…097724 (3, 77) Dummy {f00=0x0039, f01=0x0190, f02=»E VBIN6,W2 NUMERIC LET WITHOUT LET " P B SYN155 CONTINUE IN LET STMT * 0 PSYN111 MOVE VBIN6,W0 ALPHANUM.LET WITHOUT L P P B SYN155 PSYN112 6 P CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH P SUB VBIN8,W1 ADJUST POINTER * P MATCH
0x097724…09772a 00 00 00 00 00 00 ┆ ┆
0x09772a…0978be Dummy {f00=0x0039, f01=0x0190, f02=»TOR p P* , P* SYNTAX ERROR 02 BASIC VERB EXPECTED P* F PSYN115 P , P MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION ^ $ P MOVE LBIN4,W2 SYNTAX ERROR :=2 P B SYN980 P* " P* CHECK IF 'THEN' WAS FOUND P* PSYN118
0x0978be…0978c0 00 00 ┆ ┆
0x0978c0…0978c4 00 00 00 00 ┆ ┆
0x0978c4…097a58 Dummy {f00=0x0039, f01=0x0190, f02=»CT P* P* BASIC VERB FOUND OK P* 4 PSYN120 > ( P IB VBIN6,SYN150, 1=ASSIGNMENT LET C L P SYN150, 2=ASSIGNMNET C x P SYN150, 3=ASSIGNMNET LET C P SYN200, 4=GO TO C P SYN200, 5=GOTO C $ P SYN250, 6=IF ..THE
0x097a58…097a5e 00 00 00 00 00 00 ┆ ┆
0x097a5e…097bf2 Dummy {f00=0x0039, f01=0x0190, f02=»=ON .. GO TO.. C P SYN350, 11=ON .. GOTO.. C P SYN400, 12=CALL C > P SYN115, 13=NOT VALID C Z P SYN450, 14=SECT C z P SYN115, 15=NOT VALID C P SYN500, 16=ATTR C P SYN115, 17=NOT VALID C P SYN550, 18=STOP C
0x097bf2…097bf8 00 00 00 00 00 00 ┆ ┆
0x097bf8…097d8c Dummy {f00=0x0039, f01=0x0190, f02=»=NOT VALID C P SYN650, 24=WARN C P SYN115, 25=NOT VALID C 0 P SYN750, 26=REM C P P SYN115, 27=NOT VALID C j P SYN800 28=; P EJECT P* H P* 1 LET <VARIABLE> = <ARITHMETIC EXPRESSION>/<STRING EXPRESSION> P*
0x097d8c…097d92 00 00 00 00 00 00 ┆ ┆
0x097d92…097f26 Dummy {f00=0x0039, f01=0x0190, f02=»ON j P* P* TARGET VARIABLE P* 0 * P PERF VARDET ***VARIABLE DETERMINATION : P BNOK SYN905 JMP NOT OK h P CMP LBIN4,LBIN1 CHECK E-O-B P BE SYN904 E-O-B JUST SPACES & P PERF INDCNT ***INDENTION COUNTING P BT SYN904 E-O
0x097f26…097f2c 00 00 00 00 00 00 ┆ ┆
0x097f2c…0980c0 Dummy {f00=0x0039, f01=0x018e, f02=»PRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '=' ( P BNOK SYN906 NO ASSIGNMENT OPERATOR 0 . P ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER P CMP LBIN4,LBIN1 CHECK E-O-B P BE SYN904 E-O-B JUST SPACES & P PERF INDCNT ***INDENTION COUNTING P BT SYN9
0x0980c0…0980c6 00 00 00 00 00 00 ┆ ┆
0x0980c6…09825a Dummy {f00=0x0039, f01=0x0190, f02=» $ P* STRING EXPRESSION EXPECTED P* , * P PERF STREXP ***STRING EXPR EVALUATION 6 P BNOK SYN906 EXPR ERROR d P B SYN800 P* ( P* ARITHMETIC EXPRESSION EXPECTED P* PSYN160 0 P PERF ARTEXP ***ARITHMETIC EXPR. EVA
0x09825a…098260 00 00 00 00 00 00 ┆ ┆
0x098260…0983f4 (3, 78) Dummy {f00=0x0039, f01=0x0190, f02=»OTO <LINE-NUMBER> P* PSYN200 $ & P PERF INDCNT ***INDENTION COUNTING 2 P BT SYN904 E-O-B JUST SPACES & P CMP VBIN7,W1 JMP IF NO INDENTION P BL SYN105 JMP IF LESS P* $ P* LABEL LINE NUMBER EXPECTED P* ( P PER
0x0983f4…0983fa 00 00 00 00 00 00 ┆ ┆
0x0983fa…09858e Dummy {f00=0x0039, f01=0x018e, f02=»CT P* > P* 6 IF <RELATIONAL EXPRESSION> THEN <LINE>/<STATEMENT> P* V PSYN250 ` & P PERF INDCNT ***INDENTION COUNTING n P BT SYN904 E-O-B JUST SPACES & P CMP VBIN7,W1 JMP IF NO INDENTION P BL SYN105 JMP IF LESS P*
0x09858e…098594 00 00 00 00 00 00 ┆ ┆
0x098594…098728 Dummy {f00=0x0039, f01=0x0190, f02=» P BOK SYN260 JMP OK P* . P* ...OR ARITHMETIC EXPRESSION EXPECTED ( P* Z P PERF CLRLST ***CLEAR STACK d 0 P PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION P BNOK SYN906 EXPR ERROR P EJECT P* P* RELATIONAL OPE
0x098728…09872e 00 00 00 00 00 00 ┆ ┆
0x09872e…0988c2 Dummy {f00=0x0039, f01=0x018e, f02=»0 x * P MATCH OPRTS,LBIN3,W3,LSTR81,LBIN4,W1 P BNOK SYN904 8 P MOVE LBIN3,W3 POINTER:=3 L B P MATCH OPRTS,LBIN3,W6,LSTR81,LBIN4,W2 MATCH FOLLOWING OPERAND n & P BNOK SYN280 NO FOLLOWING OPERAND ( P ADD LBIN4,W1 ADJUST BUFFER POINTER
0x0988c2…0988c8 00 00 00 00 00 00 ┆ ┆
0x0988c8…098a5c Dummy {f00=0x0039, f01=0x0190, f02=» n P EJECT P* $ P* STRING EXPRESSION EXPECTED P* H P PERF CLRLST ***CLEAR STACK R ( P TBF VBOOL2,SYN290 JMP IF ARITHMETIC v * P PERF STREXP ***STRING EXPR EVALUATION P BNOK SYN906 P B SYN300 P* ( P* ARI
0x098a5c…098a60 00 00 00 00 ┆ ┆
0x098a60…098a62 00 00 ┆ ┆
0x098a62…098bf6 Dummy {f00=0x0039, f01=0x0190, f02=» x PSYN300 P CMP LBIN4,LBIN1 CHECK E-O-B P BE SYN904 E-O-B OK : & P PERF INDCNT ***INDENTION COUNTING V & P BT SYN904 INCOMPLETE STATEMENT & P CMP VBIN7,W1 CHECK NUMB OF SPACES P BL SYN105 JMP IF LESS P EJECT P*
0x098bf6…098bfc 00 00 00 00 00 00 ┆ ┆
0x098bfc…098d90 Dummy {f00=0x0039, f01=0x0190, f02=»ARACTER l 8 P PERF BSVSEA,W4,LBIN17 ***BASIC VERB SEARCH LENGTH=4 & P BNOK SYN904 INCOMPLETE STATEMENT L ( P CMP LBIN17,W6 CHECK IF OP-CODE = 6 v P BE SYN305 JUMP IF 'THEN' ( P SUB LBIN4,W4 ADJUST BUFFER POINTER $ P B SYN904 INCOMPLETE STA
0x098d90…098d96 00 00 00 00 00 00 ┆ ┆
0x098d96…098f2a Dummy {f00=0x0039, f01=0x0190, f02=» OF SPACES x P BL SYN105 JMP IF LESS P* 0 $ P* LABEL LINE NUMBER EXPECTED : P* b ( P PERF LABLIN,W4 ***LABEL LINE NUMBER l * P BNOK SYN110 NO LINE NUMBER STATEMENT , P B SYN800 BASIC STATEMENT SEPARATOR ; ? P EJECT P*
0x098f2a…098f30 00 00 00 00 00 00 ┆ ┆
0x098f30…0990c4 (3, 79) Dummy {f00=0x0039, f01=0x0190, f02=» n P BT SYN904 E-O-B JUST SPACES & P CMP VBIN7,W1 JMP IF NO INDENTION , P BL SYN105 JMP IF LESS V P* t * P* ARITHMETIC EXPRESSION EXPECTED ~ P* P PERF CLRLST ***CLEAR STACK . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
0x0990c4…0990ca 00 00 00 00 00 00 ┆ ┆
0x0990ca…09925e Dummy {f00=0x0039, f01=0x0190, f02=»F SPACES v P BL SYN105 JMP IF LESS P EJECT . P* < P* MATCH FOR GO TO/GOTO F P* j 6 P CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH t 0 P MOVE LBIN12,=X'00FF' LOAD FILLER CHARACTER 8 P PERF BSVSEA,W4,LBIN17 ***BASIC VERB S
0x09925e…099260 00 00 ┆ ┆
0x099260…099264 00 00 00 00 ┆ ┆
0x099264…0993f8 Dummy {f00=0x0039, f01=0x018e, f02=»VERB FOUND ~ " P B SYN904 INCOMPLET STATEMNET PSYN355 8 & P CBE LBIN17,W4,SYN358 JMP IF GO TO F P SUB LBIN4,W5 p P B SYN904 PSYN356 & P CBE LBIN17,W5,SYN358 JMP IF GOTO ( P SUB LBIN4,W4 ADJUST BUFFER POINTER " P B SYN904 IN
0x0993f8…0993fe 00 00 00 00 00 00 ┆ ┆
0x0993fe…099592 Dummy {f00=0x0039, f01=0x0190, f02=» l P BL SYN105 JMP IF LESS ! P EJECT ! & P* ! 4 $ P* LABEL LINE NUMBER EXPECTED ! > P* ! f PSYN360 ! p ( P PERF LABLIN,W4 ***LABEL LINE NUMBER ! ~ ( P BNOK SYN907 LABEL LINE NUMBER ERROR ! P CMP LBIN4,LBIN1 CHECK E-O-B ! P BE SYN990 E-O
0x099592…099598 00 00 00 00 00 00 ┆ ┆
0x099598…09972c Dummy {f00=0x0039, f01=0x0190, f02=»OR ! n P* " " P MOVE LSTR1,=C',' SEPARATOR=, " P MOVE LBIN3,W0 POINTER:=0 " : 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' " . P BNOK SYN810 BASIC STATEMENT SEPARATOR ; ? " ( P ADD LBIN4,W1 ADJUST BUFFER POINTER " P CMP LBIN4,LBIN1 CHECK
0x09972c…099732 00 00 00 00 00 00 ┆ ┆
0x099732…0998c6 Dummy {f00=0x0039, f01=0x0190, f02=» B SYN360 NEXT LABEL LINE NUMBER " P EJECT # ( P* # 6 , P* 12 CALL UF<DIGIT> !<PARAMETERLIST>! # @ P* # p PSYN400 # z & P PERF INDCNT ***INDENTION COUNTING # P BT SYN904 E-O-B JUST SPACES # & P CMP VBIN7,W1 JMP IF NO INDENTION # P BL SYN1
0x0998c6…0998cc 00 00 00 00 00 00 ┆ ┆
0x0998cc…099a60 Dummy {f00=0x0039, f01=0x0190, f02=»E LBIN3,W0 POINTER:=0 # 4 P MATCH VSTR2,LBIN3,W2,LSTR81,LBIN4,W2 MATCH 'UF' $ & P BNOK SYN904 INCOMPLETE STATEMENT $ V ( P ADD LBIN4,W2 ADJUST BUFFER POINTER $ P CMP LBIN4,LBIN1 CHECK E-O-B $ $ P BE SYN904 INCOMPLETE STATEMENT $ P* $ P* F
0x099a60…099a66 00 00 00 00 00 00 ┆ ┆
0x099a66…099bfa Dummy {f00=0x0039, f01=0x0190, f02=»HECK E-O-B $ ~ P BE SYN990 % & P PERF INDCNT ***INDENTION COUNTING % & $ P BT SYN108 JUST SPACES AT E-O-B % P P EJECT % x P* % $ P* BEGIN OF PARAMETER LIST '(' % P* % , P MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS % P MOVE LBIN3,W0 POINTER
0x099bfa…099c00 00 00 00 00 00 00 ┆ ┆
0x099c00…099d94 (3, 80) Dummy {f00=0x003a, f01=0x0190, f02=» LBIN4,W1 ADJUST BUFFER POINTER % & P PERF INDCNT ***INDENTION COUNTING & ( $ P BT SYN904 INCOMPLETE STATEMNET & R P* & z $ P* STRING EXPRESSION EXPECTED & P* & P PERF CLRLST ***CLEAR STACK & * P PERF STREXP ***STRING EXPR EVALUATION & P
0x099d94…099d9a 00 00 00 00 00 00 ┆ ┆
0x099d9a…099f2e Dummy {f00=0x003a, f01=0x0190, f02=»XP ***ARITHMETIC EXPR EVALUATION & P BNOK SYN906 EXPR ERROR ' ( PSYN420 ' H & P PERF INDCNT ***INDENTION COUNTING ' V $ P BT SYN904 INCOMPLTTE STATEMENT ' P EJECT ' P* ' , P* PARAMETER EXPRESSION SEPARATOR ',' ' P* ' ( P MOVE LSTR1,=C
0x099f2e…099f34 00 00 00 00 00 00 ┆ ┆
0x099f34…09a0c8 Dummy {f00=0x003a, f01=0x0190, f02=»K ' | P* ( P* END OF PARAMETER LIST ( P* ( 6 , P MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS ( @ P MOVE LBIN3,W0 POINTER:=0 ( p 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' ( & P BNOK SYN904 INCOMPLETE STATEMENT ( ( P ADD LBIN4,W1 ADJUST
0x09a0c8…09a0ce 00 00 00 00 00 00 ┆ ┆
0x09a0ce…09a262 Dummy {f00=0x003a, f01=0x0190, f02=»* ( PSYN450 ) & P PERF INDCNT ***INDENTION COUNTING ) P BT SYN904 E-O-B JUST SPACES ) B & P CMP VBIN7,W1 JMP IF NO INDENTION ) f P BL SYN105 JMP IF LESS ) P* ) $ P* STRING EXPRESSION EXPECTED ) P* ) P PERF CLRLST ***CLEAR STACK )
0x09a262…09a268 00 00 00 00 00 00 ┆ ┆
0x09a268…09a3fc Dummy {f00=0x003a, f01=0x0190, f02=»CT ) P* * , P* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD> * P* * D PSYN500 * N & P PERF INDCNT ***INDENTION COUNTING * P BT SYN904 E-O-B JUST SPACES * & P CMP VBIN7,W1 JMP IF NO INDENTION * P BL SYN105 JMP IF LESS * P* * . P* ATTRIBU
0x09a3fc…09a400 00 00 00 00 ┆ ┆
0x09a400…09a402 00 00 ┆ ┆
0x09a402…09a596 Dummy {f00=0x003a, f01=0x0190, f02=» JMP IF NOT OK * P CMP LBIN4,LBIN1 CHECK E-O-B + $ P BE SYN904 INCOMPLETE STATEMENT + : & P PERF INDCNT ***INDENTION COUNTING + b $ P BT SYN904 INCOMPLETE STATEMENT + P* + P* MATCH FOR SEPARATOR + P* + " P MOVE LSTR1,=C',' SEPARATOR=,
0x09a596…09a59c 00 00 00 00 00 00 ┆ ┆
0x09a59c…09a730 Dummy {f00=0x003a, f01=0x0190, f02=» ( P ADD LBIN4,W1 ADJUST BUFFER POINTER , P CMP LBIN4,LBIN1 CHECK E-O-B , 0 $ P BE SYN904 INCOMPLETE STATEMENT , T & P PERF INDCNT ***INDENTION COUNTING , | $ P BT SYN904 INCOMPLETE STATEMNET , P* , P* DYNAMIC FIELD , P* , , P PERF VARD
0x09a730…09a736 00 00 00 00 00 00 ┆ ┆
0x09a736…09a8ca Dummy {f00=0x003a, f01=0x018e, f02=»SIC STATEMENT SEPARATOR ; ? , P EJECT - $ P* - 2 " P* 18 STOP !<DYNAMIC FIELD>! - < P* - b PSYN550 - l P CMP LBIN4,LBIN1 CHECK E-O-B - z $ P BE SYN990 E-O-B SIMPLE STOP OK - & P PERF INDCNT ***INDENTION COUNTING - P BT SYN108 E-O-B JUST SP
0x09a8ca…09a8d0 00 00 00 00 00 00 ┆ ┆
0x09a8d0…09aa64 (3, 81) Dummy {f00=0x003a, f01=0x0190, f02=» P* . , P PERF VARDET ****VARIABLE DETERMINATION . . P BNOK SYN810 BASIC STATEMENT SEPARATOR ; ? . > 0 P TBF VBOOL3,SYN905 JMP IF NOT DYNAMIC FIELD . p , P B SYN800 BASIC STATEMENT SEPARATOR ; ? . P EJECT . P* . ( P* 20 EXIT <ARITHMETIC EXP
0x09aa64…09aa6a 00 00 00 00 00 00 ┆ ┆
0x09aa6a…09abfe Dummy {f00=0x003a, f01=0x0190, f02=»IF NO INDENTION . ~ P BL SYN105 JMP IF LESS / P* / 6 ( P* ARITHMETIC EXPRESSION EXPECTED / @ P* / l P PERF CLRLST ***CLEAR STACK / v . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION / P BNOK SYN906 EXPR ERROR / , P B SYN800 BASIC STATEMENT SE
0x09abfe…09ac00 00 00 ┆ ┆
0x09ac00…09ac04 00 00 00 00 ┆ ┆
0x09ac04…09ad98 Dummy {f00=0x003a, f01=0x0190, f02=»ING-EXPRESSION> / n P* 0 PSYN650 0 " & P PERF INDCNT ***INDENTION COUNTING 0 0 P BT SYN904 E-O-B JUST SPACES 0 Z & P CMP VBIN7,W1 JMP IF NO INDENTION 0 ~ . P MOVE LBIN12,W0 NUMB OF FOUND DECORATIONS 0 . P CLEAR VBOOL5 FALSE DECORATIONS NOT READY 0
0x09ad98…09ad9e 00 00 00 00 00 00 ┆ ┆
0x09ad9e…09af32 Dummy {f00=0x003a, f01=0x018e, f02=»STATEMENT 0 z * P PERF DECSEA,W10 ***DECORATION SEARCH 1 P BNOK SYN675 JMP IF NOT OK 1 @ P CMP LBIN4,LBIN1 CHECK E-O-B 1 b $ P BE SYN904 INCOMPLETE STATEMENT 1 & P PERF INDCNT ***INDENTION COUNTING 1 $ P BT SYN904 INCOMPLETE STATEMENT 1 0 P ADD LBI
0x09af32…09af38 00 00 00 00 00 00 ┆ ┆
0x09af38…09b0cc Dummy {f00=0x003a, f01=0x0190, f02=» 1 " P MOVE LSTR1,=C',' SEPARATOR=, 2 P MOVE LBIN3,W0 POINTER:=0 2 . 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' 2 P . P BNOK SYN906 BASIC STATEMENT SEPARATOR ; ? 2 ( P ADD LBIN4,W1 ADJUST BUFFER POINTER 2 P CMP LBIN4,LBIN1 CHECK E-O-B 2 $
0x09b0cc…09b0d2 00 00 00 00 00 00 ┆ ┆
0x09b0d2…09b266 Dummy {f00=0x003a, f01=0x0190, f02=»XT DECORATION 2 P* 3 $ P* STRING EXPRESSION EXPECTED 3 P* 3 H PSYN675 3 R P PERF CLRLST ***CLEAR STACK 3 ` * P PERF STREXP ***STRING EXPR EVALUATION 3 P BNOK SYN906 EXPR ERROR 3 , P B SYN800 BASIC STATEMENT SEPARATOR ; ? 3 P EJECT
0x09b266…09b26c 00 00 00 00 00 00 ┆ ┆
0x09b26c…09b400 Dummy {f00=0x003a, f01=0x0190, f02=»-O-B SIMPLE STOP OK 3 & P PERF INDCNT ***INDENTION COUNTING 4 P BT SYN108 E-O-B JUST SPACES 4 F P CMP VBIN7,W1 4 j " P BL SYN105 JMP IF NO INDENTION 4 P B SYN990 4 P EJECT 4 P* 4 ( P* 28 ; (BASIC STATEMENT SEPARATOR) 4 P* 4 PSY
0x09b400…09b406 00 00 00 00 00 00 ┆ ┆
0x09b406…09b59a Dummy {f00=0x003a, f01=0x0190, f02=»SPACES 4 z P* 5 2 P* MATCH FOR BASIC STATEMENT SEPARATOR ; 5 P* 5 N PSYN810 5 X " P MOVE LSTR1,=C';' SEPARATOR=; 5 f P MOVE LBIN3,W0 POINTER:=0 5 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ';' 5 & P BNOK SYN815 INCOMPLETE STATEMENT
0x09b59a…09b5a0 00 00 00 00 00 00 ┆ ┆
0x09b5a0…09b734 (3, 82) Dummy {f00=0x003a, f01=0x0190, f02=» & P PERF INDCNT ***INDENTION COUNTING 6 P BT SYN108 JUST SPACES 6 . " P B SYN110 NEXT BASIC STATEMENT 6 L P EJECT 6 r P* 6 4 P* SYNTAX ERROR 04 BASIC STATEMENT INCOMPLETE 6 P* 6 PSYN904 6 , P MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION 6 "
0x09b734…09b73a 00 00 00 00 00 00 ┆ ┆
0x09b73a…09b8ce Dummy {f00=0x003a, f01=0x0190, f02=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION 6 " P MOVE LBIN4,W5 SYNTAX ERROR:=5 7 0 P B SYN980 7 V P* 7 h , P* SYNTAX ERROR 06 ILLEGAL EXPRESSION 7 r P* 7 PSYN906 7 , P MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION 7 " P MOVE LBIN4,W6 SYNTAX ERROR:=6
0x09b8ce…09b8d4 00 00 00 00 00 00 ┆ ┆
0x09b8d4…09ba68 Dummy {f00=0x003a, f01=0x0190, f02=»ONEUS POSITION 7 v " P MOVE LBIN4,W7 SYNTAX ERROR:=7 8 P B SYN980 8 < P EJECT 8 N P* 8 P* SYNTAX ERROR 8 f P* 8 ~ PSYN980 8 * P ADD LBIN1,W1 ADJUST POINTER POSITION 8 P CMP W1,W0 CR:=1 8 P B SYN999 8 P* 8 P* EXIT OK 8
0x09ba68…09ba6e 00 00 00 00 00 00 ┆ ┆
0x09ba6e…09bc02 Dummy {f00=0x003a, f01=0x0190, f02=»CH 8 | P* 9 4 P* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH 9 P* 9 L " P* USED : VBIN7 = WORKITEM 9 V P* 9 | 8 P* OUTPUT: LBIN4 = INPUT BUFFER POINTER ADJUSTED 9 @ P* OPCODE = CORRESPONDING OBJECT-CODE (BASIC VERB) 9 P*
0x09bc02…09bc08 00 00 00 00 00 00 ┆ ┆
0x09bc08…09bd9c Dummy {f00=0x003a, f01=0x0190, f02=»******************** 9 PBSVSEA PROC STLEN,OPCODE : P PBIN STLEN : < P PBIN OPCODE : P ( P MOVE OPCODE,W0 BASIC-VERB OBJECT:=0 : d P MOVE LBIN3,W0 POINTER:=0 : " P MOVE LSTR1,=X'FF' LOAD FILLER : > P MATCH STMTS,LBIN3,VBIN8,LSTR81,LBIN4,STLEN BASI
0x09bd9c…09bda0 00 00 00 00 ┆ ┆
0x09bda0…09bda2 00 00 ┆ ┆
0x09bda2…09bf36 Dummy {f00=0x003a, f01=0x0190, f02=»980 JMP IF FILLER : x P EJECT ; P* ; ( P* CHECK IF PROPER LENGTH ; 2 P* ; T * P MOVE VBIN7,LBIN3 STORE POINTER VALUE ; ^ 2 P ADD VBIN7,STLEN ADD POINTER STATMENT LENGTH ; 6 P MATCH STVAL,VBIN7,W1,LSTR1,W0,W1 MATCH IF FILLER ; . P BOK BSV980
0x09bf36…09bf3c 00 00 00 00 00 00 ┆ ┆
0x09bf3c…09c0d0 Dummy {f00=0x003a, f01=0x018e, f02=»9 ; PBSV980 < P CMP W1,W0 CR:=1 < PBSV999 < 0 P RET < > P PEND < J P EJECT < X P* < f P* INDENTION COUNTING < p P* < ( P* INPUT : LSTR81 = INPUT BUFFER < 0 P* LBIN4 = INPUT BUFFER POINTER < 2 P*
0x09c0d0…09c0d6 00 00 00 00 00 00 ┆ ┆
0x09c0d6…09c26a Dummy {f00=0x003a, f01=0x0190, f02=» < b < P* CR = 0 = FALSE NOT E-O-BUFFER REACHED = 6 P* = 1 = TRUE E-O-BUFFER REACHED = H P* = L P************************************************************************ = PINDCNT PROC = , P MOVE LSTR1,=X'20' LOAD
0x09c26a…09c270 00 00 00 00 00 00 ┆ ┆
0x09c270…09c404 (3, 83) Dummy {f00=0x003a, f01=0x0190, f02=»R1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH FOR SPACE = & P BNOK IND985 JMP IF NO MORE SPACES > 4 ( P ADD VBIN7,W1 INCREMENT NO OF SPACES > ^ ( P ADD LBIN4,W1 ADJUST BUFFER-POINTER > P CMP LBIN4,LBIN1 CHECK E-O-B > P BE IND980 E-O-B JUST SPACES > P B IND100
0x09c404…09c40a 00 00 00 00 00 00 ┆ ┆
0x09c40a…09c59e Dummy {f00=0x003a, f01=0x0190, f02=»E IND980 JMP IF E-O-B > PIND990 ? P CMP W1,W1 CR:=0 ? , PIND999 ? D P RET ? R P PEND ? ^ P EJECT ? l P* ? z P* VARIABLE DETERMINATION ? P* ? * P* INPUT : LSTR81 = BASIC LINE ? 2 P* LBIN4 = BASIC LINE P
0x09c59e…09c5a0 00 00 ┆ ┆
0x09c5a0…09c5a4 00 00 00 00 ┆ ┆
0x09c5a4…09c738 Dummy {f00=0x003a, f01=0x0190, f02=»DUR = SCREEN ROW BUFFER ? | P* @ " P* USED : LBIN3 @ , P* VBIN7 @ L P* VBIN8 @ l P* LBIN12 @ P* LBIN17 @ P* @ D P* OUTPUT : VBOOL2 = FALSE NUMERIC => ARITH
0x09c738…09c73e 00 00 00 00 00 00 ┆ ┆
0x09c73e…09c8d2 Dummy {f00=0x003a, f01=0x0190, f02=»TEM VARIABLE @ d < P* = TRUE DYNAMIC FIELD VARIABLE A $ P* CR = 0 OK A T . P* = 1 SYNTAX ERROR A | P* A L P************************************************************************ A P
0x09c8d2…09c8d8 00 00 00 00 00 00 ┆ ┆
0x09c8d8…09ca6c Dummy {f00=0x003a, f01=0x0190, f02=»4 VARIABLE LENGTH:=4 A P EJECT B P* B * 6 P* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP' B 4 P* B n 0 P MOVE LSTR9A,=C'!FID!INP!' LOAD IDENTIFIERS B x P MOVE LBIN3,W0 POINTER:=0 B B P MATCH LSTR9A,LBIN3,W8,LSTR81,LBIN4,W4 MATCH '!FID' OR '!I
0x09ca6c…09ca72 00 00 00 00 00 00 ┆ ┆
0x09ca72…09cc06 Dummy {f00=0x003a, f01=0x0190, f02=» NOT OK B PVAR010 C 6 P TBF LBOOL5,VAR050 JMP IF CURRENT FIELD ARITHMETIC C " P B VAR250 CURRENT FIELD STRING C X PVAR050 C ~ & P B VAR300 LONG BRANCH CONSTRUCTION C P EJECT C P* C & P* WSM WORK ITEM INVESTIGATION C P* C PVAR100
0x09cc06…09cc0c 00 00 00 00 00 00 ┆ ┆
0x09cc0c…09cda0 Dummy {f00=0x003a, f01=0x0190, f02=» WSMITEM PREFIX C d & P BNOK VAR190 JMP IF NOT A WSM-ITEM D " P CBE LBIN3,W0,VAR102 JMP IF OK D B " P CBE LBIN3,W2,VAR102 JMP IF OK D h " P CBE LBIN3,W4,VAR102 JMP IF OK D P B VAR190 JMP NOT OK D PVAR102 D 4 P MOVE LBIN12,LBIN4 LOAD CURRENT POINTER PO
0x09cda0…09cda6 00 00 00 00 00 00 ┆ ┆
0x09cda6…09cf3a Dummy {f00=0x003a, f01=0x0190, f02=» LESS LOW LIMIT D x P CBL LBIN3,W2,VAR105 JMP IF E 0 P CBG VSTR2,=C'99',VAR108 GREATER HIGH LIMIT E < P B VAR110 JMP IF OK E p PVAR105 E 4 P CBNG VSTR2,=C'09',VAR110 NOT GREATER HIGH LIMIT E PVAR108 E & P B VAR980 LONG BRANCH CONSTRUCTION E
0x09cf3a…09cf40 00 00 00 00 00 00 ┆ ┆
0x09cf40…09d0d4 (3, 84) Dummy {f00=0x003b, f01=0x0190, f02=» E ~ P EJECT F P* F $ P* DYNAMIC FIELD INVESTIGATION F P* F H PVAR190 F R . P SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE F ` 4 P MOVE LSTR6A,=X'422A5800' B*X=ALPHANUMERIC CHARS F F P MOVE LSTR16,=X'2B2D2A2F28293A263D3C3E2C3B2000' +-*/():&=<>,;B
0x09d0d4…09d0da 00 00 00 00 00 00 ┆ ┆
0x09d0da…09d26e Dummy {f00=0x003b, f01=0x0190, f02=»E LBIN3,W0 MATCHPOINTER:=0 F , P MATCH LSTR16,LBIN3,W15,LSTR81,VBIN8,W1 G " & P BOK VAL194 DELIMITER-CHAR. FOUND G R , P ADD VBIN8,W1 ADJUST TEMP BUFFER POINTER G | 4 P CBE VBIN8,VBIN7,VAL194 4 POSITIONS MATCHED. JMP G $ P B VAL192 GO ON MATCH DELIMITER G
0x09d26e…09d274 00 00 00 00 00 00 ┆ ┆
0x09d274…09d408 Dummy {f00=0x003b, f01=0x0190, f02=» PVAR200 H ( P CMP LBIN3,LABIN CHECK IF END ATTAB H P BE VAR980 SYNTAX ERROR H > 2 P XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL H ^ $ P CBE VBIN7,W0,VAR980 E-O-BUFFER H & P ADD LBIN3,W2 ADJUST ATAB-POINTER H * P XCOPY VBIN7,W0,W1,W0,W0 DELETE RO
0x09d408…09d40e 00 00 00 00 00 00 ┆ ┆
0x09d40e…09d5a2 Dummy {f00=0x003b, f01=0x0190, f02=»208 JMP IF DYNAMIC FIELD H x PVAR206 I ( P ADD LBIN3,W2 ADJUST ATTAB -POINTER I . P B VAR200 GO ON I Z P* I r $ P* DYNAMIC FIELD SEQ.NO FOUND I | P* I PVAR208 I P CALL WXMUL,VBIN7,W5,VBIN7 I ( P SUB VBIN7,W5 CALC FIELD-ID POSITION I ,
0x09d5a2…09d5a8 00 00 00 00 00 00 ┆ ┆
0x09d5a8…09d73c Dummy {f00=0x003b, f01=0x0190, f02=»IDTAB-FID LENGTH I x 4 P CBNE LBIN12,VBIN8,VAR206 JMP IF NOT SAME LENGTH J B P MATCH FIDTAB,VBIN7,VBIN8,LSTR81,LBIN4,VBIN8 MATCH FIELD NAME J P $ P BNOK VAR206 JMP IF NO FIELD ID J , P MOVE LBIN17,VBIN8 SAVE FOUND FID-LENGTH J P EJECT J P* J P*
0x09d73c…09d740 00 00 00 00 ┆ ┆
0x09d740…09d742 00 00 ┆ ┆
0x09d742…09d8d6 Dummy {f00=0x003b, f01=0x0190, f02=»,ATTAB,LBIN3 GET ROW NO J ~ & P ADD LBIN3,W1 ADJUST ATTAB-POINTER K P MOVE VBIN8,W0 WORKITEM:=0 K J . P XCOPY VBIN8,W1,W1,ATTAB,LBIN3 GET COL NO K l * P SUB VBIN8,W1 ADJUST COL.NR TO POINTER K & P ADD LBIN3,W3 ADJUST ATTAB-POINTER K ( P CMP LBIN3,LABIN C
0x09d8d6…09d8dc 00 00 00 00 00 00 ┆ ┆
0x09d8dc…09da70 Dummy {f00=0x003b, f01=0x0190, f02=»NEXT ROW NO K l 4 P CBNE LBIN12,VBIN7,VAR210 JMP IF NOT SAME ROW NO L & P ADD LBIN3,W1 ADJUST ATTAB-POINTER L L 4 P XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT COL NO L v $ P SUB LBIN12,W1 ADUST ENDPOSITION L P B VAR215 L P EJECT L P* L P* SEA
0x09da70…09da76 00 00 00 00 00 00 ┆ ┆
0x09da76…09dc0a Dummy {f00=0x003b, f01=0x0190, f02=»TH L h * P MOVE LBIN12,VBIN8 LOAD START POSITION M > P MATCH GVDUR(VBIN7),LBIN12,LBIN3,LSTR6A,W3,W1 MATCH 1ST 00 M 8 P BOK VAR215 ENDPOS FOUND M z , P MOVE LBIN12,LBIN9 ENDPOS=MAX ENDCOLPOS M PVAR215 M * P SUB LBIN12,VBIN8 CALC PICTURE LENGTH M P
0x09dc0a…09dc10 00 00 00 00 00 00 ┆ ┆
0x09dc10…09dda4 (3, 85) Dummy {f00=0x003b, f01=0x018e, f02=» P* N & P* ALPHANUMERIC CHARACTER FOUND N P* N 8 4 P XCOPY LSTR1,W0,W1,LSTR6A,LBIN3 LOAD FOUND SIGN N B 0 P MOVE GST80I(W7),LSTR1 FILL WITH FOUND CHAR N z P MOVE LBIN3,W0 POINTER:=0 N < P MATCH GST80I(W7),LBIN3,LBIN12,GVDUR(VBIN7),VBIN8,LBIN12
0x09dda4…09ddaa 00 00 00 00 00 00 ┆ ┆
0x09ddaa…09df3e Dummy {f00=0x003b, f01=0x0190, f02=» N V P* O PVAR250 O * P SET VBOOL2 TRUE=ALPHANUMERIC =>STRING O P* O N 6 P* NUMERIC DYNAMIC FIELD => ARITHMETIC VARIABLE O X P* O PVAR300 O P B VAR990 OK O P* O P* SYNTAX ERROR O P* O PVAR980 O P CMP W1,W0 CR:
0x09df3e…09df40 00 00 ┆ ┆
0x09df40…09df44 00 00 00 00 ┆ ┆
0x09df44…09e0d8 Dummy {f00=0x003b, f01=0x0190, f02=» W1,W1 CR:=0 O PVAR999 P P RET P " P PEND P . P EJECT P < P* P J & P* STRING EXPRESSION EVALUATION P T P* P ~ $ P* OUTPUT: CR = 0 OK P ( P* = 1 NOT OK P > P* VBIN7 = NUMBER OF EXPRESS
0x09e0d8…09e0de 00 00 00 00 00 00 ┆ ┆
0x09e0de…09e272 Dummy {f00=0x003b, f01=0x0190, f02=» LBIN20,W1 INCREMENT-STACK-INDEX P P CMP LBIN20,GBINIA(W5) Q ( P BG STR980 STACK OVERFLOW Q F P* Q h P* STRING CONSTANT Q r P* Q PSTR000 Q * P MOVE LSTR1,=X'22' LOAD STRING QUOTE " Q P MOVE LBIN3,W0 POINTER:=0 Q 2 P MATCH LSTR1,LBI
0x09e272…09e278 00 00 00 00 00 00 ┆ ┆
0x09e278…09e40c Dummy {f00=0x003b, f01=0x018e, f02=»AD NUMB OF INPUT CHARACTERS Q | & P SUB VBIN7,LBIN4 CALC MATCH LENGTH R $ * P MOVE LBIN12,LBIN4 LOAD BUFFER POINTER R N 8 P MATCH LSTR81,LBIN12,VBIN7,LSTR1,W0,W1 MATCH NEXT " R | & P BNOK STR980 JMP IF NO STRINGQUOTE R , P MOVE LBIN4,LBIN12 STORE 2ND "-POSITIO
0x09e40c…09e412 00 00 00 00 00 00 ┆ ┆
0x09e412…09e5a6 Dummy {f00=0x003b, f01=0x0190, f02=» PSTR100 S * P PERF VARDET ***VARIABLE DETERMINATION S P BNOK STR300 JMP IF NOT OK S @ . P TBT VBOOL2,STR200 JMP IF STRING VARIABLE S b 2 P SUB LBIN4,LBIN17 ADJUST BUFFER POINTER WRONG S P B STR980 SYNTAX ERROR S P* S 2 P* QUALIFIED STRING
0x09e5a6…09e5ac 00 00 00 00 00 00 ┆ ┆
0x09e5ac…09e740 Dummy {f00=0x003b, f01=0x0190, f02=»* BEGIN OF SUBSTRING '(' S P* T $ , P MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS T . P MOVE LBIN3,W0 POINTER:=0 T ^ 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' T P BNOK STR410 NO SUBSTRING T ( P ADD LBIN4,W1 ADJUST BUFFER POINTER T & P P
0x09e740…09e746 00 00 00 00 00 00 ┆ ┆
0x09e746…09e8da Dummy {f00=0x003b, f01=0x0190, f02=»TED T p P* U . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION U & P BNOK STR980 INCOMPLETE STATEMENT U H & P PERF INDCNT ***INDENTION COUNTING U r $ P BT STR980 INCOMPLETE STATEMENT U P* U P* SUBSTRING OPERATOR ':' U P* U P MOVE LBIN3,
0x09e8da…09e8e0 00 00 00 00 00 00 ┆ ┆
0x09e8e0…09ea74 (3, 86) Dummy {f00=0x003b, f01=0x0190, f02=»ADJUST BUFFER POINTER U & P PERF INDCNT ***INDENTION COUNTING V $ P BT STR980 INCOMPLETE STATEMENT V H P* V p ( P* ARITHMETIC EXPRESSION EXPECTED V z P* V . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION V & P BNOK STR980 INCOMPLETE STATEMENT V
0x09ea74…09ea7a 00 00 00 00 00 00 ┆ ┆
0x09ea7a…09ec0e Dummy {f00=0x003b, f01=0x0190, f02=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS V P MOVE LBIN3,W0 POINTER:=0 W 0 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' W R & P BNOK STR980 INCOMPLETE STATEMENT W ( P ADD LBIN4,W1 ADJUST BUFFER POINTER W P B STR400 OK W P* W P* STRIN
0x09ec0e…09ec14 00 00 00 00 00 00 ┆ ┆
0x09ec14…09eda8 Dummy {f00=0x003b, f01=0x0190, f02=» P BNOK STR980 NO FUNCTION NOK X ( P ADD LBIN4,W3 ADJUST BUFFER POINTER X ( & P PERF INDCNT ***INDENTION COUNTING X T $ P BT STR980 INCOMPLETE STATEMENT X ~ P EJECT X P* X $ P* BEGIN OF PARAMETER LIST '(' X P* X , P MOVE LSTR1,=C'(' LOAD L
0x09eda8…09edae 00 00 00 00 00 00 ┆ ┆
0x09edae…09ef42 Dummy {f00=0x003b, f01=0x0190, f02=»E STATEMENT X z ( P ADD LBIN4,W1 ADJUST BUFFER POINTER Y & P PERF INDCNT ***INDENTION COUNTING Y @ $ P BT STR980 INCOMPLETE STATEMNET Y j P* Y ( P* ARITHMETIC EXPRESSION EXPECTED Y P* Y . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION Y & P BNO
0x09ef42…09ef48 00 00 00 00 00 00 ┆ ┆
0x09ef48…09f0dc Dummy {f00=0x003b, f01=0x0190, f02=»ND OF PARAMETER LIST Y P* Z , P MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS Z & P MOVE LBIN3,W0 POINTER:=0 Z V 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' Z x & P BNOK STR980 INCOMPLETE STATEMENT Z ( P ADD LBIN4,W1 ADJUST BUFFER POINTER Z P E
0x09f0dc…09f0e0 00 00 00 00 ┆ ┆
0x09f0e0…09f0e2 00 00 ┆ ┆
0x09f0e2…09f276 Dummy {f00=0x003b, f01=0x018e, f02=»T STR990 E-O-B OK Z PSTR410 [ P MOVE LBIN3,W18 POINTER:=18 [ ( 4 P MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '&' [ L P BNOK STR450 NO CONCA EXPR. [ ( P ADD LBIN4,W1 ADJUST BUFFER POINTER [ & P PERF INDCNT ***INDENTION COUNTING [ $ P BT STR980
0x09f276…09f27c 00 00 00 00 00 00 ┆ ┆
0x09f27c…09f410 Dummy {f00=0x003b, f01=0x0190, f02=» [ P* SYNTAX ERROR P* " PSTR980 , ( P SUB LBIN20,W1 DECREASE STACK INDEX : P CMP W1,W0 CR:=1 f P B STR999 ~ P* P* EXIT OK P* PSTR990 ( P SUB LBIN20,W1 DECREASE STACK INDEX ( P SET VBOOL2 TRUE =STRI
0x09f410…09f416 00 00 00 00 00 00 ┆ ┆
0x09f416…09f5aa Dummy {f00=0x003b, f01=0x0190, f02=»SION EVALUATION z P* ] $ P* OUTPUT: CR = 0 OK ] " ( P* = 1 NOT OK ] J P* ] v L P************************************************************************ ] PARTEXP PROC ] ( P ADD LBIN20,W1 INCREMENT-STACK-INDEX
0x09f5aa…09f5b0 00 00 00 00 00 00 ┆ ┆
0x09f5b0…09f744 (3, 87) Dummy {f00=0x003b, f01=0x0190, f02=»OVE LBIN3,W23 POINTER:=23 ] 4 P MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-' ^ " " P BNOK ART050 NO SIGNED FACTOR ^ Z ( P ADD LBIN4,W1 ADJUST BUFFER POINTER ^ & P PERF INDCNT ***INDENTION COUNTING ^ $ P BT ART980 INCOMPLETE STATEMNET ^ P EJECT ^
0x09f744…09f74a 00 00 00 00 00 00 ┆ ┆
0x09f74a…09f8de Dummy {f00=0x003b, f01=0x0190, f02=»NO DECIMAL FOUND ^ | PART060 _ 6 P XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER _ & 8 P CBL LSTR1,=X'30',ART070 JMP IF NOT DIGIT BUT . OR , _ ` . P CBG LSTR1,=X'39',ART080 JMP IF NOT DIGIT _ PART065 _ , P ADD VBIN7,W1 ADJUST NUMB OF CHARACTERS _
0x09f8de…09f8e0 00 00 ┆ ┆
0x09f8e0…09f8e4 00 00 00 00 ┆ ┆
0x09f8e4…09fa78 Dummy {f00=0x003b, f01=0x0190, f02=» _ " P* DECIMAL CHARACTER FOUND ? ` P* ` . PART070 ` 8 0 P CBNE LSTR1,=C'.',ART080 JMP IF NOT A DIGIT ` F " P SET VBOOL4 TRUE DECIMAL FOUND ` z P BOK ART065 OK 1ST DEC CHAR ` P* ` P* END OF DIGITS ` P* ` PART080 ` " P CBE VBI
0x09fa78…09fa7e 00 00 00 00 00 00 ┆ ┆
0x09fa7e…09fc12 Dummy {f00=0x003b, f01=0x0190, f02=»JMP OK ` P EJECT a P* a P* ARITHMETIC VARIABLE a & P* a F PART100 a P * P PERF VARDET ***VARIABLE DETERMINATION a ^ $ P BNOK ART200 JMP IF SYNTAX ERROR a 2 P TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE a 0 P SUB LBIN4,LBIN17 ADJUST POINT
0x09fc12…09fc18 00 00 00 00 00 00 ┆ ┆
0x09fc18…09fdac Dummy {f00=0x003b, f01=0x0190, f02=»TS,VBIN7,LBIN3 ---GET ITEM LENGTH a " P MOVE LBIN3,=W'29' POINTER:=29 b * * P SUB VBIN7,LBIN3 CALC LENGTH TO MATCH b P < P MATCH OPRTS,LBIN3,VBIN7,LSTR81,LBIN4,W3 MATCH FUNCTION b ~ P BNOK ART300 NO FUNCTION b . P MOVE LSTACK(LBIN20),W0 OPERATION CODE:=0
0x09fdac…09fdb2 00 00 00 00 00 00 ┆ ┆
0x09fdb2…09ff46 Dummy {f00=0x003b, f01=0x0190, f02=»N COUNTING b x $ P BT ART980 INCOMPLETE STATEMENT c P* c : $ P* BEGIN OF PARAMETER LIST '(' c D P* c l , P MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS c v P MOVE LBIN3,W0 POINTER:=0 c 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' c & P BNOK AR
0x09ff46…09ff4c 00 00 00 00 00 00 ┆ ┆
0x09ff4c…0a00e0 Dummy {f00=0x003b, f01=0x0190, f02=»T ART980 INCOMPLETE STATEMNET c 2 P CBL LSTACK(LBIN20),=X'001D',ART230 ARITMETIC d & . P CBL LSTACK(LBIN20),=X'001F',ART220 STRING d 2 P CBL LSTACK(LBIN20),=X'0021',ART230 ARITHMETIC d P EJECT d P* d $ P* STRING EXPRESSION EXPECTED d P* d
0x0a00e0…0a00e6 00 00 00 00 00 00 ┆ ┆
0x0a00e6…0a027a Dummy {f00=0x003b, f01=0x0190, f02=»* ARITHMETIC EXPRESSION EXPECTED d P* e , PART230 e 6 . P PERF ARTEXP ***ARITHMETIC EXPR EVALUATION e D & P BNOK ART980 INCOMPLETE STATEMENT e v PART240 e & P PERF INDCNT ***INDENTION COUNTING e $ P BT ART980 INCOMPLTTE STATEMENT e : P CBL LST
0x0a027a…0a0280 00 00 00 00 00 00 ┆ ┆
0x0a0280…0a0414 (3, 88) Dummy {f00=0x003c, f01=0x0190, f02=»IN20),W4 ADJUST OP-CODE e ( P MOVE LSTR1,=C',' LOAD PAR-SEPARATOR f P MOVE LBIN3,W0 POINT0 f L 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' f j & P BNOK ART980 INCOMPLETE STATEMENT f P B ART210 NEXT PARAMETER f P EJECT f P* f P*
0x0a0414…0a041a 00 00 00 00 00 00 ┆ ┆
0x0a041a…0a05ae Dummy {f00=0x003c, f01=0x0190, f02=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' f & P BNOK ART980 INCOMPLETE STATEMENT g 8 ( P ADD LBIN4,W1 ADJUST BUFFER POINTER g b P B ART500 g P EJECT g P* g 8 P* PRIORED EXPRESSION ( <ARITHMETIC EXPRESSION> ) g ( P* BEGIN OF PRIORE
0x0a05ae…0a05b4 00 00 00 00 00 00 ┆ ┆
0x0a05b4…0a0748 Dummy {f00=0x003c, f01=0x0190, f02=» LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' g & P BNOK ART500 NO PRIORED EXPRESSION h 2 ( P ADD LBIN4,W1 ADJUST BUFFER POINTER h & P PERF INDCNT ***INDENTION COUNTING h $ P BT ART980 INCOMPLETE STATEMNET h P* h ( P* ARITHMETIC EXPRESSION EXPECTED
0x0a0748…0a074e 00 00 00 00 00 00 ┆ ┆
0x0a074e…0a08e2 Dummy {f00=0x003c, f01=0x0190, f02=»COUNTING h v $ P BT ART980 INCOMPLETE STATEMENT i P EJECT i 8 P* i F " P* END OF PRIORED EXPRESSION i P P* i v , P MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS i P MOVE LBIN3,W0 POINTER:=0 i 4 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' i &
0x0a08e2…0a08e8 00 00 00 00 00 00 ┆ ┆
0x0a08e8…0a0a7c Dummy {f00=0x003c, f01=0x0190, f02=»LTIPLY OPERATOR i x P* j PART500 j " & P PERF INDCNT ***INDENTION COUNTING j 0 P BT ART990 END OF LINE OK j Z " P MOVE LBIN3,=W'27' POINTER:=27 j | 4 P MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '/*' j & P BNOK ART600 NO MULTIPLY OPERATOR j ( P ADD
0x0a0a7c…0a0a80 00 00 00 00 ┆ ┆
0x0a0a80…0a0a82 00 00 ┆ ┆
0x0a0a82…0a0c16 Dummy {f00=0x003c, f01=0x0190, f02=»N j P* k 0 P* COMBINED EXPRESSION ADDING OPERATOR ? k P* k H PART600 k R " P MOVE LBIN3,=W'25' POINTER:=25 k ` 4 P MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-' k " P BNOK ART650 NO SIGN-OPERATOR k ( P ADD LBIN4,W1 ADJUST BUFFER POINTER
0x0a0c16…0a0c1c 00 00 00 00 00 00 ┆ ┆
0x0a0c1c…0a0db0 Dummy {f00=0x003c, f01=0x018e, f02=»N4,VBIN7 ADJUST BUFFER POINTER k P B ART990 OK EXIT l & P EJECT l @ P* l N P* SYNTAX ERROR l X P* l r PART980 l | ( P SUB LBIN20,W1 DECREASE STACK-INDEX l P CMP W1,W0 CR:=1 l P B ART999 l P* l P* OK EXIT l P* l P
0x0a0db0…0a0db6 00 00 00 00 00 00 ┆ ┆
0x0a0db6…0a0f4a Dummy {f00=0x003c, f01=0x0190, f02=» l P RET m P PEND m P EJECT m " P* m 0 P* LABEL LINE NUMBER m : P* m X * P* INPUT : LSTR81 = BASIC LINE m b 2 P* LBIN4 = BASIC LINE POINTER m 4 P* LBIN1 = INPUT BUFFER LENGTH m L P*
0x0a0f4a…0a0f50 00 00 00 00 00 00 ┆ ┆
0x0a0f50…0a10e4 (3, 89) Dummy {f00=0x003c, f01=0x0190, f02=»T : CR = 0 OK m ( P* = 1 NOT OK n > P* VBIN7 = NUMBER OF EXPRESSION CHARACTER n F P* n L P************************************************************************ n PLABLIN PROC LENGTH n P PBIN LENGTH
0x0a10e4…0a10ea 00 00 00 00 00 00 ┆ ┆
0x0a10ea…0a127e Dummy {f00=0x003c, f01=0x0190, f02=»1,LBIN4 GET ONE CHARACTER n x 0 P CBL LSTR1,=X'30',LAB150 JMP IF NOT A DIGIT o " 0 P CBG LSTR1,=X'39',LAB150 JMP IF NOT A DIGIT o V 0 P XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT o , P ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH o P ADD LBIN4,W1 ADJUST POINT
0x0a127e…0a1280 00 00 ┆ ┆
0x0a1280…0a1284 00 00 00 00 ┆ ┆
0x0a1284…0a1418 Dummy {f00=0x003c, f01=0x0190, f02=» CALL EMPTYT,LSTR4A ---CHECK IF EMPTY o & P BNOK LAB980 JMP IF NO LINE NUMBER p . * P MOVE LINNO(W9),LSTR4A CONVERT TO BCD p X , P MOVE LBIN3,LINNO(W9) CONVERT TO BINARY p , P CBL LBIN3,W1,LAB160 JMP IF OUT OF RANGE p 2 P CBG LBIN3,=X'07FF',LAB980 JMP IF
0x0a1418…0a141e 00 00 00 00 00 00 ┆ ┆
0x0a141e…0a15b2 Dummy {f00=0x003c, f01=0x0190, f02=»WHEN 'CALL' p v P B LAB980 JMP NOT OK q P* q 0 P* LINE NUMBER FOUND OK q : P* q PLAB990 q f P CMP W1,W1 CR:=0 q t P B LAB999 EXIT q P* q P* SYNTAX ERROR q P* q PLAB980 q P CMP W1,W0 CR:=1 q PLAB999 q P RET
0x0a15b2…0a15b8 00 00 00 00 00 00 ┆ ┆
0x0a15b8…0a174c Dummy {f00=0x003c, f01=0x0190, f02=» LBIN4 = BASIC LINE POINTER q 0 P* LBIN1 = LENGTH OF BASIC LINE r , 8 P* DSTLEN = (FORMAL) DECOR-STRING LENGTH r ` ( P* DECOR = DECOR STRING r P* r P* USED : LSTR1 r P* LBIN3 r
0x0a174c…0a1752 00 00 00 00 00 00 ┆ ┆
0x0a1752…0a18e6 Dummy {f00=0x003c, f01=0x018e, f02=»************************************************************** r PDECSEA PROC DSTLEN s F P PBIN DSTLEN s ` P EJECT s t P* s P* DECORATION DELIMITER s P* s * P MOVE LBIN17,LBIN4 SAVE BUFFER POINTER s * P MOVE LSTR1,=X'22' LOAD STRING QUO
0x0a18e6…0a18ec 00 00 00 00 00 00 ┆ ┆
0x0a18ec…0a1a80 Dummy {f00=0x003c, f01=0x0190, f02=» ( P ADD LBIN17,W1 ADJUST BUFFER POINTER t ( P CMP LBIN17,LBIN1 CHECK END OF LINE t 0 P BE DEC980 JMP IF E-O-B t P* t | P* DECORATION VERB t P* t P MOVE LBIN3,W0 t : P MATCH DECOR,LBIN3,DSTLEN,LSTR81,LBIN17,W2 MATCH DECOR t " P BNOK
0x0a1a80…0a1a86 00 00 00 00 00 00 ┆ ┆
0x0a1a86…0a1c1a Dummy {f00=0x003c, f01=0x0190, f02=»BIN17,W2 ADJUST BUFFER POINTER t " P CMP LBIN17,LBIN1 CHECK E-O-B u & P BE DEC980 u L P* u ^ P* DECORATION DELIMITER " u h P* u * P MOVE LSTR1,=X'22' LOAD STRING QUOTE " u P MOVE LBIN3,W0 POINTER:=0 u 2 P MATCH LSTR1,LBIN3,W1,LSTR81,LBIN1
0x0a1c1a…0a1c20 00 00 00 00 00 00 ┆ ┆
0x0a1c20…0a1db4 (3, 90) Dummy {f00=0x003c, f01=0x0190, f02=»FER POINTER u x P CMP W1,W1 CR:=0 OK v P B DEC999 v 0 P* v B P* SYNTAX ERROR v L P* v f PDEC980 v p P CMP W1,W0 CR:=1 v ~ PDEC999 v P RET v P PEND v P EJECT v P* v P* CLEAR LSTACK v P* v . P* INPUT :
0x0a1db4…0a1dba 00 00 00 00 00 00 ┆ ┆
0x0a1dba…0a1f4e Dummy {f00=0x003c, f01=0x018e, f02=» = 0 v l P* w L P************************************************************************ w PCLRLST PROC w f B P CALL GETIND,LSTACK(W1),LBIN20,LBIN3 ---GET LENGTH & DIMENSION w z " P MOVE LBIN20,W1 STACK-INDEX:=1 w PCLR010 w . P CALL ICLEAR,LSTACK(
0x0a1f4e…0a1f54 00 00 00 00 00 00 ┆ ┆
0x0a1f54…0a20e8 Dummy {f00=0x003c, f01=0x40ec, f02=» P B CLR010 GO ON x PCLR999 x " P MOVE LBIN20,W0 STACK INDEX:=0 x * 6 P CALL WXDIV,LBIN3,W2,LBIN3 DIVIDE STACK DIMENSION x P 4 P MOVE GBINIA(W5),LBIN3 LOAD DIMENSION FOR SYNTAX x P RET x P PEND x P END x @ x w . P CALL ICLEAR,LSTACK(
0x0a20e8…0a20ee 00 00 00 00 00 00 ┆ ┆
0x0a20ee…0a2282 Dummy {f00=0x003c, f01=0x2008, f02=» y (
0x0a2282…0a2288 00 00 00 00 00 00 ┆ ┆
0x0a2288…0a241c Dummy {f00=0x003c, f01=0x0190, f02=» (6 J F " D #k+ A W d k k,d k _y k-d k k.d k bk 6 h z @ J F " D k/ _ d k _@ c
0x0a241c…0a2420 00 00 00 00 ┆ ┆
0x0a2420…0a2422 00 00 ┆ ┆
0x0a2422…0a25b6 Dummy {f00=0x003c, f01=0x0190, f02=» ! 3 T [ " n $ J F " D @_ 4 bk 7 k _ l4bl 6 b l 4 j 4 0 0 4 J F " D m fm % 5 % 6 b m W b m W b m 4 I O Kj J F
0x0a25b6…0a25bc 00 00 00 00 00 00 ┆ ┆
0x0a25bc…0a2750 Dummy {f00=0x003c, f01=0x0190, f02=» w k w W b c _(4 bk h E " & I 8 M J Q U n Y ] c : k , s ) J F " D @ !k9'!k:,!k;(!k< !k= #k> #k? W k@ W
0x0a2750…0a2756 00 00 00 00 00 00 ┆ ┆
0x0a2756…0a28ea Dummy {f00=0x003c, f01=0x0190, f02=» ! ( !! : J F " D %kC W !kD !kE !kFC!kG?!kHwbk !kIS!kJO!kKK!kLG / L @ J F
0x0a28ea…0a28f0 00 00 00 00 00 00 ┆ ┆
0x0a28f0…0a2a84 (3, 91) Opaque[0x194]
0x0a2a84…0a2a8a 00 00 00 00 00 00 ┆ ┆
0x0a2a8a…0a2c1e # DirEnt {nam=»WSMAPP«, typ=»SC«, f00=0xab5c, f01=0x0000, f02=0x0798, f03=0x0000}
0x0a2a8a…0a2c1e IdxSect {
0x0a2a8a…0a2c1e f00 = 0x003c // 0xa2a8a @0x0
0x0a2a8a…0a2c1e f01 = 0x0014 // 0xa2a8c @0x2
0x0a2a8a…0a2c1e gno = [ // 0xa2a8e @0x4
0x0a2a8a…0a2c1e [0x00]: C0x003c.0x3.0
0x0a2a8a…0a2c1e [0x01]: C0x003d.0x0.0
0x0a2a8a…0a2c1e [0x02]: C0x003d.0x1.0
0x0a2a8a…0a2c1e [0x03]: C0x003d.0x2.0
0x0a2a8a…0a2c1e [0x04]: C0x003d.0x3.0
0x0a2a8a…0a2c1e [0x05]: C0x003e.0x0.0
0x0a2a8a…0a2c1e [0x06]: C0x003e.0x1.0
0x0a2a8a…0a2c1e [0x07]: C0x003e.0x2.0
0x0a2a8a…0a2c1e [0x08]: C0x003e.0x3.0
0x0a2a8a…0a2c1e [0x09]: C0x003f.0x0.0
0x0a2a8a…0a2c1e ]
0x0a2a8a…0a2c1e }
0x0a2c1e…0a2c20 00 00 ┆ ┆
0x0a2c20…0a2c24 00 00 00 00 ┆ ┆
0x0a2c24…0a2db8 Dummy {f00=0x003c, f01=0x0190, f02=» . P IDENT WSMAPP REL=2.3,851025,870155940230 P 6 H P******************************************************************* > P* " P* LATEST UPDATE=851025 BY CJ P* P* HISTORY= @ P* 851025/CJ SECTION NAME CHECK CORRE
0x0a2db8…0a2dbe 00 00 00 00 00 00 ┆ ┆
0x0a2dbe…0a2f52 Dummy {f00=0x003c, f01=0x0190, f02=»NO INPUT' WHEN EQUAL FID ENTERED NO=18 n 8 P* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE . F P* 841101/CJ APP NO28 IMPLEMENTED - USED BY "GO DIRECT" j F P* 840924/CJ ILLEGAL NAMESETTING NEAR BASICVERB APP185 P* H P
0x0a2f52…0a2f58 00 00 00 00 00 00 ┆ ┆
0x0a2f58…0a30ec Dummy {f00=0x003c, f01=0x0190, f02=»ROC SYNVAL ***SYNTAX-CONTROL VALIDATION 2 P EXPROC BSVSEA,PBIN,PBIN ***BASIC VERB SEARCH 0 * P EXT GETIND ---ASSRUT:GET ITEM LENGTH f * P EXT CHANFC ---ASSRUT:CHANGE FILE CODE * P EXT GETVOL ---ASSRUT:GET VOLUME NAME ( P EXT EMPTYT ---ASSRUT:CE
0x0a30ec…0a30f2 00 00 00 00 00 00 ┆ ┆
0x0a30f2…0a3286 Dummy {f00=0x003c, f01=0x0190, f02=»T POSITION r ( P EXT POPEN ---ASSRUT:OPEN DISC FILE * P EXT PCLOSE ---ASSRUT:CLOSE DISC FILE > . P EXT PSEARC ---ASSRUT:SEARCH SECTION NAME l " P EXT WXDIV ---ASSRUT:DIVISION P EJECT L P******************************************************
0x0a3286…0a328c 00 00 00 00 00 00 ┆ ┆
0x0a328c…0a3420 Dummy {f00=0x003c, f01=0x0190, f02=»INE DEPENDING ON ROUTINE-NUMBER P* ( 4 P* INPUT: LBIN1 = NUMBER OF INPUT CHARACTERS 2 & P* LBIN2 = EOI-KEY INDEX j 4 P* LBIN3 = APPLICATION ROUTINE NUMBER P* : P* OUTPUT:LBIN1 = CURSOR-POSITION AT 'NOT OK'
0x0a3420…0a3426 00 00 00 00 00 00 ┆ ┆
0x0a3426…0a35ba Dummy {f00=0x003c, f01=0x0190, f02=»UNCONDITIONAL DISPLAY t * P* = 2 = OK NO DISPLAY 4 P* = 3 = NOT OK => ERROR MESSAGE L L P* = 4 = NOT OK => EDIT MODE 'LBIN1' CONTAIN CURSOR-POS P* 2 P* LBIN4 = 0 'BELL'-MESSAGE AT E
0x0a35ba…0a35c0 00 00 00 00 00 00 ┆ ┆
0x0a35c0…0a3754 (3, 92) Dummy {f00=0x003d, f01=0x0190, f02=»****************** Z P EJECT PWSMAPP PROC ( " P IB LBIN3,APP010,APP020, 1-2 C < " P APP030,APP040,APP050, 3-5 C b " P APP060,APP070,APP080, 6-8 C " P APP090,APP100,APP110, 9-11 C $ P APP120,APP130,APP140, 12-14 C $ P APP150,APP
0x0a3754…0a375a 00 00 00 00 00 00 ┆ ┆
0x0a375a…0a38ee Dummy {f00=0x003d, f01=0x0190, f02=»6 C t P APP270,APP280 27-28 PAPPOK0 * P MOVE LBIN3,W0 OK 8 P RET R PAPPOK1 ^ $ P MOVE LBIN3,W1 OK UNCOND DISPLAY l P RET PAPPOK2 P MOVE LBIN3,W2 OK NO DISPLAY P RET PAPNOK3 ( P MOVE LBIN3,W3 NOT OK ERROR
0x0a38ee…0a38f4 00 00 00 00 00 00 ┆ ┆
0x0a38f4…0a3a88 Dummy {f00=0x003d, f01=0x0190, f02=»******************************************** t P* 4 " P* APPLICATION-ROUTINE NO=1 > P* WSMENU FUNCTION VALUE d P* L P************************************************************************ PAPP010 " P PERF RANGE,W1,W4 ***RAN
0x0a3a88…0a3a8e 00 00 00 00 00 00 ┆ ┆
0x0a3a8e…0a3c22 Dummy {f00=0x003d, f01=0x0190, f02=»******************************** h P* ( " P* APPLICATION-ROUTINE NO=2 2 P* SECTION NAME CONTROL X P* -ALREADY DEFINED? z P* -NOT FOUND? " P* -1ST POSITION ALPHABETIC P* L P************************************
0x0a3c22…0a3c28 00 00 00 00 00 00 ┆ ┆
0x0a3c28…0a3dbc Dummy {f00=0x003d, f01=0x0190, f02=»A',APP029 P CBG LSTR1,=C'Z',APP029 " P PERF SPCPAD ***SPACE PADDING 2 , P CALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM X . P MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) P TYPE = S(ECTION) 2 P INSRT LSTR81,W0,W6,LSTR16,W0 NAME=> POS 6-11
0x0a3dbc…0a3dc0 00 00 00 00 ┆ ┆
0x0a3dc0…0a3dc2 00 00 ┆ ┆
0x0a3dc2…0a3f56 Dummy {f00=0x003d, f01=0x0190, f02=» 4 P XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME P ADD LBIN1,W8 ADJUST POINTER < 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID ` , P CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) < P CALL PSEARC,LSTR81,BPOOL(W1) ---SEARCH SECTION ON DISC P
0x0a3f56…0a3f5c 00 00 00 00 00 00 ┆ ┆
0x0a3f5c…0a40f0 Dummy {f00=0x003d, f01=0x0190, f02=»OOL(W1) ---CLOSE DISC FILE z $ P CBL GBIN1,W3,APP027 JMP IF NEW " * P TBT LBOOL4,APP027 JMP IF DUPLICATION J . P TBT LBOOL8,APP027 JMP DUPL CH. SECT.NAME x P EJECT P* P* ERROR AT SEARCH P* 4 P XCOPY LBIN3,W0,W2,LSTR81,W20
0x0a40f0…0a40f6 00 00 00 00 00 00 ┆ ┆
0x0a40f6…0a428a Dummy {f00=0x003d, f01=0x0190, f02=» t ( P MOVE LSTR16,=X'30' LOAD WITH '0':S PAPP025 4 0 P CALL TESTB,LBIN3,LBIN4 ---TEST BIT (INDEX) B P BOK APP026 JMP IF FALSE = 0 v : P XCOPY LSTR16,LBIN4,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 PAPP026 P ADD LBIN4,W1 NEXT BITINDEX ,
0x0a428a…0a4290 00 00 00 00 00 00 ┆ ┆
0x0a4290…0a4424 (3, 93) Dummy {f00=0x003d, f01=0x018e, f02=»W0,W6 DELETE PREVIOUS INSERTION P B APPOK0 OK ( PAPP028 < 4 P CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC FILE J * P TBT LBOOL4,APP02A JMP IF DUPLICATION P MOVE LBIN3,W6 POINTER:=6 : P MATCH LSTR81,LBIN3,W6,GSTR6A,W0,W6 MATCH IF SAME NAME
0x0a4424…0a442a 00 00 00 00 00 00 ┆ ┆
0x0a442a…0a45be Dummy {f00=0x003d, f01=0x0190, f02=» 0 P MOVE LBIN3,=W'28' '.......ALREADY DEFINED' P B APP02C 8 PAPP02B J ( P MOVE LBIN3,=W'26' '......NOT FOUND' X PAPP02C & P DLETE LSTR81,W0,W6 DELETE PREFIX . P DLETE LSTR81,W20,W14 DELETE OVERFLOW INFO * P MOVE LBIN4,GBIN1 LOAD FUN
0x0a45be…0a45c0 00 00 ┆ ┆
0x0a45c0…0a45c4 00 00 00 00 ┆ ┆
0x0a45c4…0a4758 Dummy {f00=0x003d, f01=0x0190, f02=» ERROR-NUMBER t P B APNOK3 PAPP029 ( & P MOVE LBIN4,W9 ERROR MESSAGE NO=9 6 P B APNOK3 NOT OK ` P EJECT x L P************************************************************************ P* " P* APPLICATION-ROUTINE NO=3 P*
0x0a4758…0a475e 00 00 00 00 00 00 ┆ ┆
0x0a475e…0a48f2 Dummy {f00=0x003d, f01=0x0190, f02=» PERF RANGE,W1,W6 ***RANGE 1-6 P BOK APPOK0 & ( P MOVE LBIN4,W10 ERROR-MESSAGE NO=10 : P B APNOK3 NOT OK f P EJECT ~ L P************************************************************************ P* " P* APPLICATION-ROUTINE NO=4
0x0a48f2…0a48f8 00 00 00 00 00 00 ┆ ┆
0x0a48f8…0a4a8c Dummy {f00=0x003d, f01=0x0190, f02=» P MOVE VBIN5,W15 INDEX:=15 4 P MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV ROW SIZE * ( P PERF RANGE,LBIN4,ROWS ***RANGE X-23 b P BOK APPOK0 OK ( P MOVE LBIN4,W11 ERROR MESSAGE NO=11 2 P MOVE LBCD3A,ROWS LOAD HIGH LIMITFOR ERR-TEXT P B
0x0a4a8c…0a4a92 00 00 00 00 00 00 ┆ ┆
0x0a4a92…0a4c26 Dummy {f00=0x003d, f01=0x0190, f02=»-ROUTINE NO=5 " P* SECTION SIZE COLUMNS 1-80 P* < L P************************************************************************ F PAPP050 P MOVE VBIN5,W16 INDEX:=16 8 P MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV COLUMN SIZE ( P PERF
0x0a4c26…0a4c2c 00 00 00 00 00 00 ┆ ┆
0x0a4c2c…0a4dc0 Dummy {f00=0x003d, f01=0x0190, f02=»FOR ERR-TEXT n P B APNOK3 P EJECT & L P************************************************************************ 4 P* " P* APPLICATION-ROUTINE NO=6 P* YES OR NO P* L P**************************************************
0x0a4dc0…0a4dc6 00 00 00 00 00 00 ┆ ┆
0x0a4dc6…0a4f5a Dummy {f00=0x003d, f01=0x0190, f02=»MESSAGE NO=12 z P B APNOK3 P EJECT ( L P************************************************************************ 6 P* " P* APPLICATION-ROUTINE NO=7 & P* SCREEN BACKGROUND DECORATION 2 P* -N. NORMAL VIDEO -R. REVERSED
0x0a4f5a…0a4f60 00 00 00 00 00 00 ┆ ┆
0x0a4f60…0a50f4 (3, 94) Dummy {f00=0x003d, f01=0x0190, f02=» L P************************************************************************ PAPP070 T ( P MOVE LSTR4A,=C'RH' DECORATION CODES b P MOVE LBIN3,W0 POINTER:=0 ( P MATCH LSTR4A,LBIN3,W4,LSTR81,W0,W1 " P BNOK APP079 ILLEGAL DEC. CODE P*
0x0a50f4…0a50fa 00 00 00 00 00 00 ┆ ┆
0x0a50fa…0a528e Dummy {f00=0x003d, f01=0x0190, f02=»PNOK3 NOT OK P EJECT L P************************************************************************ " P* r " P* APPLICATION-ROUTINE NO=8 | ( P* STATIC FIELD DECORATION DEFAULT 2 P* -N. NORMAL VIDEO -R. REVERSED IMAGE P*
0x0a528e…0a5294 00 00 00 00 00 00 ┆ ┆
0x0a5294…0a5428 Dummy {f00=0x003d, f01=0x0190, f02=» BLINKING x P* L P************************************************************************ PAPP080 l * P MOVE LSTR6A,=C'RHUB' DECORATION CODES z P MOVE LBIN3,W0 POINTER:=0 ( P MATCH LSTR6A,LBIN3,W6,LSTR81,W0,W1 " P BNOK APP089 ILLEG
0x0a5428…0a542e 00 00 00 00 00 00 ┆ ┆
0x0a542e…0a55c2 Dummy {f00=0x003d, f01=0x0190, f02=»-MESSAGE NO-6 | P B APNOK3 NOT OK P EJECT . L P************************************************************************ < P* " P* APPLICATION-ROUTINE NO=9 P* NUMBER OF HEADLINES & P* MUST NOT EXCEED MAX ROW NO P*
0x0a55c2…0a55c8 00 00 00 00 00 00 ┆ ┆
0x0a55c8…0a575c Dummy {f00=0x003d, f01=0x018e, f02=»X ROW NO n P BOK APP092 OK ( P MOVE LBIN4,W20 ERROR-MESSAGE NO-20 & & P MOVE LBCD3A,LBIN8 LOAD MAX ROW NO R P B APNOK3 NOT OK | PAPP092 $ P MOVE LBIN1,W0 ATTAB-POINTER:=0 PAPP094 0 P XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE ROW NO
0x0a575c…0a5760 00 00 00 00 ┆ ┆
0x0a5760…0a5762 00 00 ┆ ┆
0x0a5762…0a58f6 Dummy {f00=0x003d, f01=0x0190, f02=» 0 P XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE SEQ NO 6 P CBNE LBIN4,=X'00FF',APP098 JMP IF ERR NOT STATIC 8 P ADD LBIN1,W2 ADJUST POINTER r P B APP094 GO ON PAPP098 ( P MOVE LBIN4,W21 ERROR MESSAGE NO:21 P B APNOK3 PAPP099 P
0x0a58f6…0a58fc 00 00 00 00 00 00 ┆ ┆
0x0a58fc…0a5a90 Dummy {f00=0x003d, f01=0x0190, f02=»TION-ROUTINE NO=10 , P* CONTROL OF DEFAULT GUIDING MESSAGE 4 P* POS 1-2 MUST BE 'S:' FOR A SECTION MESSAGE J 2 P* POS 1-2 MUST BE 'M:' FOR A LINE MESSAGE @ P* NUMBER OF INPUT CHARACTERS MUST BE 1- 6 FOR A SECTION D P* NUMBER
0x0a5a90…0a5a96 00 00 00 00 00 00 ┆ ┆
0x0a5a96…0a5c2a Dummy {f00=0x003d, f01=0x0190, f02=»**************************************************************** PAPP100 H 0 P MOVE LBIN4,W1 LOAD INDEX NUMB-OF-CHARS-TAB V PAPP101 $ P SUB LBIN1,W2 LENGTH ADJUSTMENT 6 P MOVE GBINIA(LBIN4),LBIN1 SAVE NUMB OF CHARACTERS , P MOVE LSTR4A,=
0x0a5c2a…0a5c30 00 00 00 00 00 00 ┆ ┆
0x0a5c30…0a5dc4 (3, 95) Dummy {f00=0x003d, f01=0x0190, f02=»RROR 2 P CBL GBINIA(LBIN4),W1,APP108 INCORRECT LENGTH . P CBE LBIN1,W2,APP105 JUMP IF LINE MESSAGE B 2 P CBG GBINIA(LBIN4),W6,APP108 INCORRECT LENGTH t < P XCOPY LSTR1,W0,W1,LSTR81,W2 COPY 1ST CHARACTER TO CHECK 6 P MOVE LBIN1,GBINIA(LBIN4) RELO
0x0a5dc4…0a5dca 00 00 00 00 00 00 ┆ ┆
0x0a5dca…0a5f5e Dummy {f00=0x003d, f01=0x0190, f02=»ENGTH:=8 z $ P B APP188 OK CHECK 1ST CHARACTER PAPP105 8 6 P CBG GBINIA(LBIN4),=W'78',APP108 INCORRECT LENGTH F P B APPOK0 OK PAPP108 & P MOVE LBIN4,W6 ERROR-MESSAGE NO 6 P B APNOK3 NOT OK PAPP109 ( P MOVE LBIN4,W14 ERROR-
0x0a5f5e…0a5f60 00 00 ┆ ┆
0x0a5f60…0a5f64 00 00 00 00 ┆ ┆
0x0a5f64…0a60f8 Dummy {f00=0x003d, f01=0x018e, f02=» P* " P* APPLICATION-ROUTINE NO=11 " P* ORIGIN-MEDIA TYPE CONTROL 4 P* 0=NO INPUT MEDIA Z P* 1=KEYBOARD INPUT x P* >1=OTHER MEDIA P* L P************************************************************************
0x0a60f8…0a60fe 00 00 00 00 00 00 ┆ ┆
0x0a60fe…0a6292 Dummy {f00=0x003d, f01=0x0190, f02=» ~ P EJECT ! L P************************************************************************ ! P* ! f " P* APPLICATION-ROUTINE NO=12 ! p P* DUPLICATION REFERENCES ! P* ! ( P* FIELD NAME MUST BE DEFINED ! P* -WS99 0<99<10
0x0a6292…0a6298 00 00 00 00 00 00 ┆ ┆
0x0a6298…0a642c Dummy {f00=0x003d, f01=0x0190, f02=»****************** ! Z PAPP120 " 6 P MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX " ( " P MOVE LBIN4,W0 WORKPOINTER:=0 " b 6 P MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK " $ P BOK APP122 JMP IF WSM WORK ITEM " * P CBG LBIN1,W4,APP129 NUMB OF C
0x0a642c…0a6432 00 00 00 00 00 00 ┆ ┆
0x0a6432…0a65c6 Dummy {f00=0x003d, f01=0x0190, f02=» FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME " $ P BOK APPOK0 FIELD NAME FOUND OK # : P B APP129 BRANCH ON ERROR # b P* # $ P* CHECK UP DATA TABLE T99:99 # P* # PAPP122 # , P CBE LBIN1,W4,APP123 JMP IF 4 INP CHARS # & P MOVE LBIN
0x0a65c6…0a65cc 00 00 00 00 00 00 ┆ ┆
0x0a65cc…0a6760 Dummy {f00=0x003d, f01=0x0190, f02=»IGH-LIMIT FOR WS09 # " P CBL LBIN4,W2,APP124 JMP IF WS $ 0 P MOVE LBIN1,=W'99' HIGH-LIMIT FOR WA99 WN99 $ @ PAPP124 $ t ( P PERF RANGE,W0,LBIN1 ***RANGE 0-9/99 $ P BNOK APP128 JMP IF ERROR $ . P COPY LSTR1,W0,W1,LSTR81,W0 1ST DIGIT-POS $ , P CBG L
0x0a6760…0a6766 00 00 00 00 00 00 ┆ ┆
0x0a6766…0a68fa Dummy {f00=0x003d, f01=0x0190, f02=»ORKITEM PREFIX $ d P B APPOK0 % PAPP128 % ( > P INSRT LSTR81,W0,W2,LSTR6A,LBIN4 INSERT WSMWORKITEM PREFIX % 6 PAPP129 % x & P MOVE LBIN4,W17 ERRORMESSAGE NO=17 % P B APNOK3 NOT OK % P EJECT % L P**************************************************
0x0a68fa…0a6900 00 00 00 00 00 00 ┆ ┆
0x0a6900…0a6a94 (3, 96) Dummy {f00=0x003e, f01=0x0190, f02=»************************************************************ % PAPP130 & D P MOVE LSTR1,LSTR81 & R ( P CBE LSTR1,DUPL,APP132 JMP IF 'D' OK & l * P CBE LSTR1,BYPASS,APP138 JMP IF B' OK & ( P CBE LSTR1,SKIP,APP138 JMP IF 'S' OK & & P CBE LSTR1,NO,APP138 J
0x0a6a94…0a6a9a 00 00 00 00 00 00 ┆ ┆
0x0a6a9a…0a6c2e Dummy {f00=0x003e, f01=0x0190, f02=»UPL & n 4 P CBE GSTR1I(W24),YES,APP138 JMP IF Y(ES) DUPL OK ' PAPP137 ' D & P MOVE LBIN4,W6 ERROR-MESSAGE NO=6 ' R P B APNOK3 NOT OK ' | PAPP138 ' P B APPOK0 ' PAPP139 ' ( P MOVE LBIN4,W18 ERROR-MESSAGE NO-18 ' P B APNOK3 NOT OK ' P E
0x0a6c2e…0a6c34 00 00 00 00 00 00 ┆ ┆
0x0a6c34…0a6dc8 Dummy {f00=0x003e, f01=0x0190, f02=» & P* L(EFT) OR R(IGHT) ADJUSTED ? ( P* ( . L P************************************************************************ ( 8 PAPP140 ( P MOVE LSTR1,LSTR81 ( P CBE LSTR1,LEFT,APP145 ( P CBE LSTR1,RIGHT,APP145 ( ( P MOVE LBIN4,W19 ERROR MESS
0x0a6dc8…0a6dce 00 00 00 00 00 00 ┆ ┆
0x0a6dce…0a6f62 Dummy {f00=0x003e, f01=0x0190, f02=»******************************** ( h P* ) ( " P* APPLICATION-ROUTINE NO=15 ) 2 " P* PRINTOUT POSITION CONTROL ) X P* ) ~ L P************************************************************************ ) PAPP150 ) & P MOVE LBIN4,=W'127' HIGHLIMIT=127
0x0a6f62…0a6f68 00 00 00 00 00 00 ┆ ┆
0x0a6f68…0a70fc Dummy {f00=0x003e, f01=0x0190, f02=»BIN4,APP159 ) P B APPOK0 OK * PAPP159 * ( * P MOVE LBIN4,=W'25' ERROR-MESSAGENO=25 * 6 P B APNOK3 NOT OK * d P EJECT * | L P************************************************************************ * P* * " P* APPLICATION-ROUTINE NO=16 * $
0x0a70fc…0a7100 00 00 00 00 ┆ ┆
0x0a7100…0a7102 00 00 ┆ ┆
0x0a7102…0a7296 Dummy {f00=0x003e, f01=0x0190, f02=»60 * & P MOVE LBIN4,=W'127' HIGHLIMIT=127 + ( P PERF RANGE,W1,LBIN4 ***RANGE 1-127 + 4 P BNOK APP169 NOK + ` " P MOVE LBIN4,GBCD3I(W8) ROW NO + x & P XCOPY LBIN3,W0,W1,LBIN4,W1 ROW NO + " P CBNG LBIN3,GBINIA(W7),APP159 + P B APPOK0 + PAPP169 +
0x0a7296…0a729c 00 00 00 00 00 00 ┆ ┆
0x0a729c…0a7430 Dummy {f00=0x003e, f01=0x0190, f02=»ERROR-MESSAGE NO=11 + P B APNOK3 NOT OK , P EJECT , 4 L P************************************************************************ , B P* , " P* APPLICATION-ROUTINE NO=17 , P* DEFAULT VALUE , P* , L P******************************
0x0a7430…0a7436 00 00 00 00 00 00 ┆ ┆
0x0a7436…0a75ca Dummy {f00=0x003e, f01=0x0190, f02=»JECT , L P************************************************************************ - P* - " P* APPLICATION-ROUTINE NO=18 - f P* FIELD NAME CONTROL - P* - L P************************************************************************ - PAP
0x0a75ca…0a75d0 00 00 00 00 00 00 ┆ ┆
0x0a75d0…0a7764 (3, 97) Dummy {f00=0x003e, f01=0x018e, f02=» ID ? - Z P BNE APP180A NOT FOUND . . P ADD LBIN20,W1 ADJUST FOUND SPACE POSITION . , . P CBNL LBIN20,LBIN1,APP180A JMP IF NOT LESS . ^ 4 P MOVE LBIN3,LBIN1 LOAD NUMB OF INPUT CHARACTERS . . P SUB LBIN3,LBIN20 CALC REST TO INVESTIGATE . D P MATCH LSTR81,
0x0a7764…0a776a 00 00 00 00 00 00 ┆ ┆
0x0a776a…0a78fe Dummy {f00=0x003e, f01=0x0190, f02=» . j P B APNOK3 / PAPP180A / 6 P CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH / * * P MOVE LBIN4,W0 INPUT BUFFER POINTER:=0 / d 2 P PERF BSVSEA,LBIN1,VBIN5 ***BASIC VERB SEARCH / $ P BNOK APP185 NO BASIC VERB GO ON / PAPP183 / ( P MOVE LBIN
0x0a78fe…0a7900 00 00 ┆ ┆
0x0a7900…0a7904 00 00 00 00 ┆ ┆
0x0a7904…0a7a98 Dummy {f00=0x003e, f01=0x0190, f02=»TS,VBIN8,LBIN3 ---GET ITEM LENGTH / " P MOVE LBIN3,=W'29' POINTER:=29 0 * * P SUB VBIN8,LBIN3 CALC LENGTH TO MATCH 0 P 8 P MATCH OPRTS,LBIN3,VBIN8,LSTR81,W0,W3 MATCH FUNCTION 0 ~ P BNOK APP187 NO FUNCTION OK 0 6 P XCOPY LBIN4,W1,W1,OPRVAL,LBIN3 GET OPERAT
0x0a7a98…0a7a9e 00 00 00 00 00 00 ┆ ┆
0x0a7a9e…0a7c32 Dummy {f00=0x003e, f01=0x0190, f02=»CH OPRTS,LBIN3,W3,LSTR81,W0,W3 0 & P BOK APP183 NOT OK IF STR FUNCTION 1 & PAPP186 1 P " P MOVE LBIN3,W4 FIELD LENGTH:=4 1 ^ " P PERF SPCPAD ***SPACE PADDING 1 " P MOVE LBIN4,W0 WORKPOINTER:=0 1 < P MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME
0x0a7c32…0a7c38 00 00 00 00 00 00 ┆ ┆
0x0a7c38…0a7dcc Dummy {f00=0x003e, f01=0x0190, f02=»GET SEQ NO 1 p 6 P CBE LBIN3,W0,APP181 NEW FIELD NOT OK WITH SAME ID 2 6 P CBE LBIN3,LBIN12,APP18B SAME SEQ.NO & F-ID => OK 2 L PAPP181 2 P SUB LBIN4,W4 ADJUST 2 * P CALL WXDIV,LBIN4,W5,LBIN4 CALC SEQ NO 2 $ P ADD LBIN4,W1 ....WHEN NEW FIELD 2 0 P C
0x0a7dcc…0a7dd2 00 00 00 00 00 00 ┆ ┆
0x0a7dd2…0a7f66 Dummy {f00=0x003e, f01=0x0190, f02=»E LBIN1,W0 =NO INPUT 2 & P CALL ICLEAR,LSTR81 ---CLEAR ITEM 3 P B APPOK0 3 F PAPP182 3 X 6 P MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX 3 f " P MOVE LBIN4,W0 WORKPOINTER:=0 3 6 P MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK 3 , P BNOK AP
0x0a7f66…0a7f6c 00 00 00 00 00 00 ┆ ┆
0x0a7f6c…0a8100 Dummy {f00=0x003e, f01=0x0190, f02=»TR81 3 " P MOVE LBIN3,W4 FIELD LENGTH:=4 4 PAPP188 4 2 P CBL LSTR1,=C'A',APP189 4 @ P CBG LSTR1,=C'Z',APP189 4 ` " P PERF SPCPAD ***SPACE PADDING 4 P B APPOK0 1ST CHARACTER OK 4 PAPP189 4 & P MOVE LBIN4,W9 ERROR MESSAGE NO=9 4 P B APN
0x0a8100…0a8106 00 00 00 00 00 00 ┆ ┆
0x0a8106…0a829a Dummy {f00=0x003e, f01=0x0190, f02=»ON-ROUTINE NO=19 4 P* VOLUME NAME CONTROL 5 P* 5 8 L P************************************************************************ 5 B PAPP190 5 " P MOVE LBIN3,W6 FIELD LENGTH:=6 5 " P PERF SPCPAD ***SPACE PADDING 5 P MOVE LBIN3,W0 WORKITE=0 5
0x0a829a…0a82a0 00 00 00 00 00 00 ┆ ┆
0x0a82a0…0a8434 (3, 98) Dummy {f00=0x003e, f01=0x0190, f02=»ISC,BPOOL(W1),LSTR6A,LBIN4 ---GET VOLUME NAME 5 4 P CALL CLEARB,LBIN4,W4 ---CLEAR BIT NO:=4 1MB-BIT 6 6 " P CMP LBIN4,W0 CHECKRETURN CODE 6 n P BNOK APP194 JUMP IF ERROR 6 < P MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W6 VOLUME NAME EQUAL ? 6 P BOK APPOK0 FOUND
0x0a8434…0a843a 00 00 00 00 00 00 ┆ ┆
0x0a843a…0a85ce Dummy {f00=0x003e, f01=0x0190, f02=»/NOT LOADED' 6 r P B APNOK3 NOT OK 7 P EJECT 7 , L P************************************************************************ 7 : P* 7 " P* APPLICATION-ROUTINE NO=20 7 P* FILENAME CONTROL 7 P* 7 L P**************************************
0x0a85ce…0a85d4 00 00 00 00 00 00 ┆ ┆
0x0a85d4…0a8768 Dummy {f00=0x003e, f01=0x0190, f02=»ALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM 7 . P MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) 8 . P TYPE = S(ECTION) 8 ` 8 P INSRT LSTR81,W0,W16,LSTR16,W0 FILENAME=> POS 16-23 8 | : P INSRT LSTR81,W16,W10,LSTR16,W0 FILENAME=> POS 26-33 8 < P XCOPY LSTR81,W5,W
0x0a8768…0a876e 00 00 00 00 00 00 ┆ ┆
0x0a876e…0a8902 Dummy {f00=0x003e, f01=0x0190, f02=»1,W6,GSTR6C,W0 STORE VOLUME ID 8 ~ 2 P CALL POPEN,LSTR81,BPOOL(W1) ---OPEN DISC FILE 9 & " P BNOK APP208 JMP IF NOT FOUND 9 4 P CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC-FILE 9 * P SUB LBIN1,W8 ADJUST NUMBER TO DELETE 9 0 P DLETE LSTR81,W0,LBIN1 DELETE OV
0x0a8902…0a8908 00 00 00 00 00 00 ┆ ┆
0x0a8908…0a8a9c Dummy {f00=0x003e, f01=0x0190, f02=»UMBER TO DELETE 9 z 0 P DLETE LSTR81,W0,LBIN1 DELETE OVERFLOW INFO : , P DLETE LSTR81,W8,W6 DELETE OVERFLOW INFO : L ( P MOVE LBIN4,W24 ERROR MESSAGENO:=24 : | P B APNOK3 NOT OK : P EJECT : L P**********************************************************
0x0a8a9c…0a8aa0 00 00 00 00 ┆ ┆
0x0a8aa0…0a8aa2 00 00 ┆ ┆
0x0a8aa2…0a8c36 Dummy {f00=0x003e, f01=0x0190, f02=»****************************************** : r PAPP210 ; 2 P MOVE LSTR1,LSTR81 ; @ P CBE LSTR1,=C'.',APP215 ; Z P CBE LSTR1,=C',',APP215 ; z ( P MOVE LBIN4,W13 ERROR-MESSAGE NO 13 ; P B APNOK3 NOT OK ; PAPP215 OK ; P B APPOK0 OK ; P E
0x0a8c36…0a8c3c 00 00 00 00 00 00 ┆ ┆
0x0a8c3c…0a8dd0 Dummy {f00=0x003e, f01=0x0190, f02=» P* GUIDING MESSAGE < P* < L P************************************************************************ < * PAPP220 < z 0 P MOVE LBIN4,W3 LOAD INDEX NUMB-OF-CHARS-TAB < P B APP101 CHECK MESSAGE TYPE < P EJECT < L P**************************
0x0a8dd0…0a8dd6 00 00 00 00 00 00 ┆ ┆
0x0a8dd6…0a8f6a Dummy {f00=0x003e, f01=0x0190, f02=» < L P************************************************************************ = PAPP230 = X . P MOVE GBINIA(W4),LBIN1 LOAD NUMB OF CHARS = f P B APPOK0 = P EJECT = L P************************************************************************ = P
0x0a8f6a…0a8f70 00 00 00 00 00 00 ┆ ┆
0x0a8f70…0a9104 (3, 99) Dummy {f00=0x003e, f01=0x0190, f02=»************************** = b PAPP240 > " . P PERF SYNVAL ***SYNTAX-CONTROL VALIDATION > 0 P BNOK APP248 JMP IF NOT OK > b < P MOVE GBINIA(VBIN1),LBIN1 SAVE NUMB CHARS OF BASIC LINE > P B APPOK0 > PAPP248 > * P MOVE LBCD3A,LBIN4 SYNTAX ERROR NUMB
0x0a9104…0a910a 00 00 00 00 00 00 ┆ ┆
0x0a910a…0a929e Dummy {f00=0x003e, f01=0x0190, f02=»****************************** > f P* ? & " P* APPLICATION-ROUTINE NO=25 ? 0 P* DUPLICATION ? V P* ? n L P************************************************************************ ? x PAPP250 ? $ P PERF YESVNO ***YES AND NO CHECK ? P BNOK APP2
0x0a929e…0a92a0 00 00 ┆ ┆
0x0a92a0…0a92a4 00 00 00 00 ┆ ┆
0x0a92a4…0a9438 Dummy {f00=0x003e, f01=0x018e, f02=»K ? P B APPOK0 @ PAPP258 @ * P GETABX LBIN4 GET CURRENT FIELD NUMBER @ * , P ADD LBIN4,W2 FIELDNUMBER:=FIELDNUMBER+2 @ X , P GETFLD 0,LBIN4,LBIN3 MAKE FIELD CURRENT @ " P MOVE LBIN4,W6 ERROR-MESSAGE=& @ P B APNOK3 @ PAPP259 @ $ P MOVE LBIN
0x0a9438…0a943e 00 00 00 00 00 00 ┆ ┆
0x0a943e…0a95d2 Dummy {f00=0x003e, f01=0x0190, f02=» @ F P* A " P* APPLICATION-ROUTINE NO=26 A P* SECTION NAME A 8 P* A R L P************************************************************************ A PAPP260 A P MOVE LSTR1,LSTR81 A P MOVE LBIN3,W6 LENGTH=6 A P B APP188 A L P**
0x0a95d2…0a95d8 00 00 00 00 00 00 ┆ ┆
0x0a95d8…0a976c Dummy {f00=0x003e, f01=0x0190, f02=»-DEVICE A P* B L P************************************************************************ B PAPP270 B j P MOVE LSTR2,LSTR81 B x P CBE LSTR2,='LP',OKDEV B P CBE LSTR2,='GP',OKDEV B P MOVE LBIN4,=W'35' B P B APNOK3 B POKDEV B APPOK1
0x0a976c…0a9772 00 00 00 00 00 00 ┆ ┆
0x0a9772…0a9906 Dummy {f00=0x003e, f01=0x0190, f02=»ON-ROUTINE NO=28 B ~ P* OVER-RIDE C P* C 2 J P********************************************************************* C < P C PAPP280 C P MOVE LBIN3,W4 C " P PERF SPCPAD ***SPACE PADDING C " P MOVE LBIN4,W0 WORKPOINTER:=0 C < P MATCH
0x0a9906…0a990c 00 00 00 00 00 00 ┆ ┆
0x0a990c…0a9aa0 Dummy {f00=0x003e, f01=0x018e, f02=»LFBIN,GSTR4A,W0,W4 SEE IF BACKWARD C | , P CBL LBIN4,LBIN3,APP286 JMP IF BACKWARD D * " P MOVE LBIN4,W0 WORKPOINTER:=0 D Z : P MATCH GSTR4A,LBIN4,W4,LSTR81,W0,W4 SEE IF SAME FIELD D P BOK APP284 D P B APPOK0 FIELD NAME FOUND D P EJECT D PAPP282
0x0a9aa0…0a9aa6 00 00 00 00 00 00 ┆ ┆
0x0a9aa6…0a9c3a Dummy {f00=0x003e, f01=0x018e, f02=» D b P B APNOK3 E PAPP286 E @ P MOVE LBIN4,=W'40' "ILLEGAL DIRECTION TO WANTED FIELD-NAME" E ( P B APNOK3 E l P PEND E ~ P EJECT E L P************************************************************************ E P* E " P* RANGE CONTENT O
0x0a9c3a…0a9c40 00 00 00 00 00 00 ┆ ┆
0x0a9c40…0a9dd4 (3, 100) Dummy {f00=0x003f, f01=0x018e, f02=» E L P************************************************************************ F PRANGE PROC LLIMIT,HLIMIT F X P PBIN LLIMIT F x P PBIN HLIMIT F & P PERF STRBIN ***CONVERT TO BINARY F * P CBL LBIN3,LLIMIT,RANGE9 LESS LOWLIMIT F . P CBG LBIN3,HLIMI
0x0a9dd4…0a9dda 00 00 00 00 00 00 ┆ ┆
0x0a9dda…0a9f6e Dummy {f00=0x003f, f01=0x0190, f02=» P PEND G P EJECT G L P************************************************************************ G P* G p 2 P* CONVERT NUMERIC STRING VALUE INTO BINARY G z P* G L P************************************************************************ G
0x0a9f6e…0a9f74 00 00 00 00 00 00 ┆ ┆
0x0a9f74…0aa108 Dummy {f00=0x003f, f01=0x0190, f02=» G L P************************************************************************ H P* H X * P* CONTROL IF INPUT IS Y(ES) OR N(O) H b P* H L P************************************************************************ H PYESVNO PROC H P MOVE LSTR
0x0aa108…0aa10e 00 00 00 00 00 00 ┆ ┆
0x0aa10e…0aa2a2 Dummy {f00=0x003f, f01=0x0190, f02=»MP W0,W0 CLEAR COND-REG=0 H P RET I " P PEND I . P EJECT I < L P************************************************************************ I J P* I F P* PAD REST OF INPUT BUFFER (LSTR81) ,UP TO ACTUAL FIELD LENGTH I P* WITH X'20':S I P
0x0aa2a2…0aa2a8 00 00 00 00 00 00 ┆ ┆
0x0aa2a8…0aa43c Dummy {f00=0x003f, f01=0x0190, f02=» LENGTH I b 2 P* LSTR81 = INPUT BUFFER J P* J F F P* OUTPUT LBIN1 = ACTUAL FIELD LENGTH (MAX-LENGTH) J P F P* LSTR81 = INPUT BUFFER PADDED WITH X'20':S J P* J L P**************************
0x0aa43c…0aa440 00 00 00 00 ┆ ┆
0x0aa440…0aa442 00 00 ┆ ┆
0x0aa442…0aa5d6 Dummy {f00=0x003f, f01=0x40ec, f02=» CALC NUMBER OF EMPTY POSITIONS J $ P BZ SPC999 JUMP IF NO EMPTY POS K ( 4 P XCOPY LSTR81,LBIN1,LBIN3,LSTR9A,W0 COPY X'20':S K P ( P ADD LBIN1,LBIN3 :=MEX FIELD LENGTH K PSPC999 K P RET K P PEND K P END K @ K P**************************
0x0aa5d6…0aa5dc 00 00 00 00 00 00 ┆ ┆
0x0aa5dc…0aa770 Dummy {f00=0x003f, f01=0x2008, f02=» L MBER OF EMPTY POSITIONS J $ P BZ SPC999 JUMP IF NO EMPTY POS K ( 4 P XCOPY LSTR81,LBIN1,LBIN3,LSTR9A,W0 COPY X'20':S K P ( P ADD LBIN1,LBIN3 :=MEX FIELD LENGTH K PSPC999 K P RET K P PEND K P END K @ K P**************************
0x0aa770…0aa776 00 00 00 00 00 00 ┆ ┆
0x0aa776…0aa90a Dummy {f00=0x003f, f01=0x0190, f02=»ORY BUFFER POOL. ** h J P** 6. WSM FILE HANDLER. ** & J P** 7. INCLUDED WSM INSTRUCTIONS. ** t J P** 8. INCLUDED WSM VALIDATION STATEMENTS **
0x0aa90a…0aa910 00 00 00 00 00 00 ┆ ┆
0x0aa910…0aaaa4 (3, 101) Opaque[0x194]
0x0aaaa4…0aaaaa 00 00 00 00 00 00 ┆ ┆
0x0aaaaa…0aac3e # DirEnt {nam=»KEYT5 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07e8, f03=0x0000}
0x0aaaaa…0aac3e IdxSect {
0x0aaaaa…0aac3e f00 = 0x003f // 0xaaaaa @0x0
0x0aaaaa…0aac3e f01 = 0x0002 // 0xaaaac @0x2
0x0aaaaa…0aac3e gno = [ // 0xaaaae @0x4
0x0aaaaa…0aac3e [0x00]: C0x003f.0x1.0
0x0aaaaa…0aac3e ]
0x0aaaaa…0aac3e }
0x0aac3e…0aac40 00 00 ┆ ┆
0x0aac40…0aac44 00 00 00 00 ┆ ┆
0x0aac44…0aadd8 Dummy {f00=0x003f, f01=0x40a2, f02=» P* 2 P* KEYTABLE TO BE USED IN CONFIRMATION STATUS P* D P* BY USING THE ENTER-KEY N P* r PKEYT5 KTAB CLR,CAN,RET,ENT |@
0x0aadd8…0aadde 01 64 20 08 20 04 ┆ d ┆
0x0aadde…0aaf72 Dummy {f00=0x003f, f01=0x2008, f02=» 2 P* KEYTABLE TO BE USED IN CONFIRMATION STATUS P* D P* BY USING THE ENTER-KEY N P* r PKEYT5 KTAB CLR,CAN,RET,ENT |@
0x0aaf72…0aaf78 01 64 01 90 5f 0e ┆ d _ ┆
0x0aaf78…0ab10c Dummy {f00=0x003f, f01=0x0190, f02=»_ 1 X * ( X X * $" X D % " X # X * "t y _< X # X * y "t X 1 1 X !@T X $ " P y _ x T ~ ` X H X X * , )$ P _ : X " X ) X : + + ' Y 5v y x C
0x0ab10c…0ab112 01 64 01 90 19 01 ┆ d ┆
0x0ab112…0ab2a6 Dummy {f00=0x003f, f01=0x0190, f02=» X X ! x Y~ Y _ X "@P B R y C B P 9 V ,_F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c + C _$ _ n y _6 l x X@ X "b X # "t C _. B ]d P C Q8X8_H x XD @ Y
0x0ab2a6…0ab2ac 01 64 01 90 00 02 ┆ d ┆
0x0ab2ac…0ab440 Dummy {f00=0x003f, f01=0x0190, f02=» "J : + " X "b "t ( ,T 6 ( ,` +2 : B C _J + . + X 9 V ! P @ Y 6 #0 J Y Y . X ! J : 5v 6 * 6 * " 6 * $ : ! P # P J : + 2! J Y " ,T 6
0x0ab440…0ab446 01 64 01 90 f6 a1 ┆ d ┆
0x0ab446…0ab5da Dummy {f00=0x003f, f01=0x0190, f02=» 6 ! Y 0T V ,` ; : + 2' J 6 " P # P J R P P X ' ' 3b X _ X ' _ X '?_ + 6 ! P # P J X ' + X ! + + + X " 9b! X :c 2" J H + @ W W W W W W
0x0ab5da…0ab5e0 00 00 ff ff 00 00 ┆ ┆
0x0ab5e0…0ab774 (3, 102) Opaque[0x194]
0x0ab774…0ab77a 00 00 00 00 00 00 ┆ ┆
0x0ab77a…0ab90e # DirEnt {nam=»KEYT6 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07f0, f03=0x0000}
0x0ab77a…0ab90e IdxSect {
0x0ab77a…0ab90e f00 = 0x003f // 0xab77a @0x0
0x0ab77a…0ab90e f01 = 0x0002 // 0xab77c @0x2
0x0ab77a…0ab90e gno = [ // 0xab77e @0x4
0x0ab77a…0ab90e [0x00]: C0x003f.0x2.0
0x0ab77a…0ab90e ]
0x0ab77a…0ab90e }
0x0ab90e…0ab914 00 00 00 00 00 00 ┆ ┆
0x0ab914…0abaa8 Dummy {f00=0x003f, f01=0x4110, f02=» P* 0 P* KEYTABLE TO BE USED IN MODELLING PHASE P* B & PKEYT6 KTAB CFW,CBW,CUP,CDN, 1-4 C L P INS,DEL,CLR,PLS, 5-8 C v P CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP,NOK, 17-20 C P BTB 21
0x0abaa8…0abaae 01 64 20 08 20 04 ┆ d ┆
0x0abaae…0abc42 Dummy {f00=0x003f, f01=0x2008, f02=» 0 P* KEYTABLE TO BE USED IN MODELLING PHASE P* B & PKEYT6 KTAB CFW,CBW,CUP,CDN, 1-4 C L P INS,DEL,CLR,PLS, 5-8 C v P CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP,NOK, 17-20 C P BTB 21
0x0abc42…0abc48 01 64 f6 a1 46 53 ┆ d FS┆
0x0abc48…0abddc Dummy {f00=0x003f, f01=0xf6a1, f02=»FSIFRM 4 4 FSP999 u SFSPBOT G w w ZFSPROW X R r IFSPTOP ' ' :FSPTOS z z FVL100 GBCD3I J % GBCD80 J Z GBIN3 K
0x0abddc…0abde0 01 64 f6 a1 ┆ d ┆
0x0abde0…0abde2 47 53 ┆GS┆
0x0abde2…0abf76 Dummy {f00=0x003f, f01=0xf6a1, f02=»GSTR6B I T C P *GSTR6C I U g )GSTR80 I O X CGSTR8A I Y %GVDUR I 7 F HEADER HGH d H 7HLINES K HLP d ;ICLEAR
0x0abf76…0abf7c 01 64 f6 a1 4c 42 ┆ d LB┆
0x0abf7c…0ac110 Dummy {f00=0x003f, f01=0xf6a1, f02=»LBIN10 K i A LBIN11 K p - B LBIN12 K q l t LBIN13 K r k k LBIN2 K a ! E LBIN20 K y | | LBIN4 K c LBIN5 K d = N LBIN6 K e ? LBIN8 K
0x0ac110…0ac116 01 64 f6 a1 4c 42 ┆ d LB┆
0x0ac116…0ac2aa Dummy {f00=0x003f, f01=0xf6a1, f02=»LBOOL7 G f - LIN d 2LINE LINENO K 2 " LINEST K LINMAX K LINNO J 0 yLIST { LSTR1 I k ? x LSTR16 I
0x0ac2aa…0ac2b0 01 00 81 57 ff ce ┆ W ┆
0x0ac2b0…0ac444 (3, 103) Opaque[0x194]
0x0ac444…0ac44a 00 00 00 00 00 00 ┆ ┆
0x0ac44a…0ac5de # DirEnt {nam=»KEYT7 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x07f8, f03=0x0000}
0x0ac44a…0ac5de IdxSect {
0x0ac44a…0ac5de f00 = 0x003f // 0xac44a @0x0
0x0ac44a…0ac5de f01 = 0x0002 // 0xac44c @0x2
0x0ac44a…0ac5de gno = [ // 0xac44e @0x4
0x0ac44a…0ac5de [0x00]: C0x003f.0x3.0
0x0ac44a…0ac5de ]
0x0ac44a…0ac5de }
0x0ac5de…0ac5e0 00 00 ┆ ┆
0x0ac5e0…0ac5e4 00 00 00 00 ┆ ┆
0x0ac5e4…0ac778 Dummy {f00=0x003f, f01=0x40c6, f02=» P* : P* KEYTABLE TO BE USED WHEN A PRECEEDING PRESSURE OF $ P* THE LINE-KEY HAS BEEN DONE L P* t & PKEYT7 KTAB CLR,CAN,RET,ENT, 1-4 C ~ P INS,DEL,PRT 5-7 @
0x0ac778…0ac77e 01 64 20 08 20 04 ┆ d ┆
0x0ac77e…0ac912 Dummy {f00=0x003f, f01=0x2008, f02=» : P* KEYTABLE TO BE USED WHEN A PRECEEDING PRESSURE OF $ P* THE LINE-KEY HAS BEEN DONE L P* t & PKEYT7 KTAB CLR,CAN,RET,ENT, 1-4 C ~ P INS,DEL,PRT 5-7 @
0x0ac912…0ac918 01 64 50 4c 53 5c ┆ dPLS ┆
0x0ac918…0acaac Dummy {f00=0x003f, f01=0x504c, f02=»S EQU X'9D' PLUS + TRA 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 U:BMIN EQU X'9C' MINUS - Z n :B @ :A BTB EQU X'8B' BACKTAB bL0 b lL0 l 0 oF `L0 o0 J F " D V b b 0 kKba2NOK EQU X'FF' NO KEY ` `
0x0acaac…0acab2 01 64 44 55 50 5c ┆ dDUP ┆
0x0acab2…0acc46 Dummy {f00=0x003f, f01=0x4455, f02=»P EQU X'90' DUPLICATE 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 S:BCFW EQU X'86' CURSOR FORWARD n :B @ :A ENT EQU X'80' ENTER UFL=100 b lL0 l 0 oF `L0 o0 J F " D V b b 0 kKba2CBW EQU X'84' CURSOR BACKW
0x0acc46…0acc4c 01 64 44 45 4c 5c ┆ dDEL ┆
0x0acc4c…0acde0 Dummy {f00=0x003f, f01=0x4445, f02=»L EQU X'89' DELETE TRA 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 T:ACUP EQU X'88' CURSOR UPWARD > : T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB3CDN EQU X'82' CURSOR DOWNWARD :TB10A D:TB201 Z:TB20F D:TB30 Z:TB300 D:TB401 SDS EQU X'92' STATIC/DYNAM
0x0acde0…0acde6 01 64 41 4c 4c 5c ┆ dALL ┆
0x0acde6…0acf7a Dummy {f00=0x003f, f01=0x414c, f02=»L EQU X'83' ALL * & [ d * & FNC EQU X'93' FUNCTION L * & P d 6 d T1W0 BIN W'0' CONSTANT , ( W1 BIN W'1' CONSTANT
0x0acf7a…0acf80 00 00 ff ff 00 00 ┆ ┆
0x0acf80…0ad114 (3, 104) Opaque[0x194]
0x0ad114…0ad11a 00 00 00 00 00 00 ┆ ┆
0x0ad11a…0ad2ae # DirEnt {nam=»KEYT8 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0800, f03=0x0000}
0x0ad11a…0ad2ae IdxSect {
0x0ad11a…0ad2ae f00 = 0x0040 // 0xad11a @0x0
0x0ad11a…0ad2ae f01 = 0x0002 // 0xad11c @0x2
0x0ad11a…0ad2ae gno = [ // 0xad11e @0x4
0x0ad11a…0ad2ae [0x00]: C0x0040.0x0.0
0x0ad11a…0ad2ae ]
0x0ad11a…0ad2ae }
0x0ad2ae…0ad2b4 00 00 00 00 00 00 ┆ ┆
0x0ad2b4…0ad448 Dummy {f00=0x0040, f01=0x40e4, f02=» P* : P* KEYTABLE TO BE USED WHEN A PRECEEDING PRESSURE OF " P* THE ALL-KEY HAS BEEN DONE L P* r & PKEYT8 KTAB CLR,CAN,RET,ENT, 1-4 C | P INS,DEL,CFW,CBW, 5-8 C P CUP,CDN,PRT 9-11 @
0x0ad448…0ad44e 01 64 20 08 20 04 ┆ d ┆
0x0ad44e…0ad5e2 Dummy {f00=0x0040, f01=0x2008, f02=» : P* KEYTABLE TO BE USED WHEN A PRECEEDING PRESSURE OF " P* THE ALL-KEY HAS BEEN DONE L P* r & PKEYT8 KTAB CLR,CAN,RET,ENT, 1-4 C | P INS,DEL,CFW,CBW, 5-8 C P CUP,CDN,PRT 9-11 @
0x0ad5e2…0ad5e8 01 64 50 4c 53 5c ┆ dPLS ┆
0x0ad5e8…0ad77c Dummy {f00=0x0040, f01=0x504c, f02=»S EQU X'9D' PLUS + TRA 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 U:BMIN EQU X'9C' MINUS - Z n :B @ :A BTB EQU X'8B' BACKTAB bL0 b lL0 l 0 oF `L0 o0 J F " D V b b 0 kKba2NOK EQU X'FF' NO KEY ` `
0x0ad77c…0ad780 01 64 44 55 ┆ dDU┆
0x0ad780…0ad782 50 5c ┆P ┆
0x0ad782…0ad916 Dummy {f00=0x0040, f01=0x4455, f02=»P EQU X'90' DUPLICATE 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 S:BCFW EQU X'86' CURSOR FORWARD n :B @ :A ENT EQU X'80' ENTER UFL=100 b lL0 l 0 oF `L0 o0 J F " D V b b 0 kKba2CBW EQU X'84' CURSOR BACKW
0x0ad916…0ad91c 01 64 44 45 4c 5c ┆ dDEL ┆
0x0ad91c…0adab0 Dummy {f00=0x0040, f01=0x4445, f02=»L EQU X'89' DELETE TRA 11.0 81-01-19 F1 O1111 REL 0.0 80-11-10 T:ACUP EQU X'88' CURSOR UPWARD > : T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB3CDN EQU X'82' CURSOR DOWNWARD :TB10A D:TB201 Z:TB20F D:TB30 Z:TB300 D:TB401 SDS EQU X'92' STATIC/DYNAM
0x0adab0…0adab6 01 64 41 4c 4c 5c ┆ dALL ┆
0x0adab6…0adc4a Dummy {f00=0x0040, f01=0x414c, f02=»L EQU X'83' ALL * & [ d * & FNC EQU X'93' FUNCTION L * & P d 6 d T1W0 BIN W'0' CONSTANT , ( W1 BIN W'1' CONSTANT
0x0adc4a…0adc50 01 00 81 57 ff ce ┆ W ┆
0x0adc50…0adde4 (3, 105) Opaque[0x194]
0x0adde4…0addea 00 00 00 00 00 00 ┆ ┆
0x0addea…0adf7e # DirEnt {nam=»KEYT9 «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0808, f03=0x0000}
0x0addea…0adf7e IdxSect {
0x0addea…0adf7e f00 = 0x0040 // 0xaddea @0x0
0x0addea…0adf7e f01 = 0x0002 // 0xaddec @0x2
0x0addea…0adf7e gno = [ // 0xaddee @0x4
0x0addea…0adf7e [0x00]: C0x0040.0x1.0
0x0addea…0adf7e ]
0x0addea…0adf7e }
0x0adf7e…0adf80 00 00 ┆ ┆
0x0adf80…0adf84 00 00 00 00 ┆ ┆
0x0adf84…0ae118 Dummy {f00=0x0040, f01=0x4092, f02=» P* 2 P* KEYTABLE TO BE USED IN NAME-SETTING PHASE P* D & PKEYT9 KTAB CLR,CAN,RET,ENT, 1-4 C N P PLS,BTB 5-6 x@ CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC 13-16 @
0x0ae118…0ae11e 01 65 20 08 20 04 ┆ e ┆
0x0ae11e…0ae2b2 Dummy {f00=0x0040, f01=0x2008, f02=» 2 P* KEYTABLE TO BE USED IN NAME-SETTING PHASE P* D & PKEYT9 KTAB CLR,CAN,RET,ENT, 1-4 C N P PLS,BTB 5-6 x@ CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC 13-16 @
0x0ae2b2…0ae2b8 01 65 2a 20 20 20 ┆ e* ┆
0x0ae2b8…0ae44c Dummy {f00=0x0040, f01=0x2a20, f02=» = 4 POWER OFF OCCURED FSN100 * LBOOL1 = FALSE TAB-FORWARD FSN130 * = TRUE TAB-BACKWARD c FSN200 * CR /
0x0ae44c…0ae452 01 65 5c 50 44 49 ┆ e PDI┆
0x0ae452…0ae5e6 Dummy {f00=0x0040, f01=0x5c50, f02=»DIV 70 Z ; ; FSN275 D / J FSN280 k `* FSN300 t FSN400 y , m FSN410 ENTRY READIN 20 r U c FSN430 FSN440 EXPROC WSMAPP ***APPLIC.
0x0ae5e6…0ae5ec 01 65 5c 45 58 54 ┆ e EXT┆
0x0ae5ec…0ae780 Dummy {f00=0x0040, f01=0x5c45, f02=»XT EMPTYT ---ASSRUT: CHECK IF EMPTY ITEM D i eGBIN8 K G g EXT TYPET ---ASSRUT:CHECK TYPE OF ITEM d H %ICLEAR EJECT INS d J J KEYB F KEYT10 INCLUDE WSMKEY,LIST
0x0ae780…0ae786 01 65 5c 45 4a 45 ┆ e EJE┆
0x0ae786…0ae91a Dummy {f00=0x0040, f01=0x5c45, f02=»JECT K ` u LBIN10 K i n n LBIN11 K p [READIN PROC KEYT1,KEYT2,KEYT3,MSGCOL N13 K r 2 LBIN14 K s PKTAB KEYT1 N16 K u p d LBIN2 K a LBIN3 K b PKTAB KEYT2 LBIN4 K
0x0ae91a…12f7b6 [
0x0ae91a…12f7b6 [0x000]: Pad {f00=0x0000, f01=0xffff, f02=» @
0x0ae91a…12f7b6 [0x001]: Pad {f00=0x0000, f01=0x0000, f02=» @
0x0ae91a…12f7b6 [0x002]: Pad {f00=0x0000, f01=0x0000, f02=» @A, P* . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ P* OF A FORMAT FIELD P* * PKEYT10 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C * P RET,PLS,MIN,BTB,NOK, 6-10 NO
0x0ae91a…12f7b6 [0x003]: Pad {f00=0x0000, f01=0x0000, f02=» e @ . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ P* OF A FORMAT FIELD P* * PKEYT10 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C * P RET,PLS,MIN,BTB,NOK, 6
0x0ae91a…12f7b6 [0x004]: Pad {f00=0x0000, f01=0x0000, f02=» e @ < P MOVE LSTR6A,=X'00FBFCFDFEFF' STATIC FIELD OBJECT CODES * P MOVE LSTR4A,=X'2000' MATCHING STRING H P MOVE LBIN3,W0 WORKITEM:=0 v P MOVE LBIN7,W1 DYN SEQ.NO:=1 $ P MOVE LBIN12,W1 LINE-COUNTER:-1 * P MOVE LB
0x0ae91a…12f7b6 [0x005]: Pad {f00=0x4354, f01=0x4956, f02=»E COLUMN SIZE ^ , P SET e L @ LBOOL3 TRUE=OBJECT SPLIT AT POOLEND 2 P SET VBOOL8 TRUE=COMPULSARY POOL-DELIMITER FF , . P CALL EMPTYT,GBCD3I(W10) ---CHECK IF EMPTY b P BNOK STF100 NO HEADLINES . P MOVE LBIN2,GBCD3I(W10) CONVERT TO BINARY ,
0x0ae91a…12f7b6 [0x006]: Pad {f00=0x4c42, f01=0x494e, f02=»2,W1 STORE NUMB X , P MOVE LB e IN @ IN2,W2 NUMB OF CHARS TO CONTROL < P PERF POLICE,LBIN2,LBOOL3,VBOOL8 ***POOL-LIMIT-CONTROLER ( $ P BG STF999 JUMP IF POOL OVERFLOW h D P XCOPY BPOOL(GBIN4),GBIN5,LBIN2,LSTR81,W0 STORE NUMB OF H-LINES ( P ADD GBI
0x0ae91a…12f7b6 [0x007]: Pad {f00=0x4f46, f01=0x2053, f02=»IZE N 0 P XCOPY LBIN5,W1,W1,ATTAB,L e BI @ BIN11 STORE ROW NO v 2 P CBNE LBIN5,W0,STF150 JUMP IF NOT E-O-SECTION $ P B STF900 JUMP IF END-OF-SECTION P PSTF150 x * P MOVE LBIN13,LBIN5 SAVE EFFSIZE ROW NO 2 P CBNL LBIN12,LBIN5,STF160 JUMP IF NOT
0x0ae91a…12f7b6 [0x008]: Pad {f00=0x4249, f01=0x4e31, f02=»1 STORE COL.NO F ( P ADD LBIN11,W1 ADJUST W @
0x0ae91a…12f7b6 [0x009]: Pad {f00=0x0000, f01=0x0000, f02=» @
0x0ae91a…12f7b6 [0x00a]: Pad {f00=0x0000, f01=0x0000, f02=» @@ P* 8 P* KEYT11 = KEYT1, BUT MINUS-KEY IS NOT INCLUDED P* J * PKEYT11 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C T * P RET,PLS,NOK,BTB,NOK, 6-10 NOK=HOM C P PRT,DUP,CFW,ENT,OVE 11
0x0ae91a…12f7b6 [0x00b]: Pad {f00=0x0000, f01=0x0000, f02=» e @ 8 P* KEYT11 = KEYT1, BUT MINUS-KEY IS NOT INCLUDED P* J * PKEYT11 KTAB BSP,CLR,NOK,PLS,CAN, 1-5 C T * P RET,PLS,NOK,BTB,NOK, 6-10 NOK=HOM C P PRT,DUP,CFW,ENT,
0x0ae91a…12f7b6 [0x00c]: Pad {f00=0x0000, f01=0x0000, f02=» eBPOO @BPOOL STRGI (60),256 BUFFERPOOLS 1 SECTION = 60:2=30 6 BYTES ADM-DATA , 3-5 C 248 BYTES OBJECT CODE -8 C
0x0ae91a…12f7b6 [0x00d]: Pad {f00=0x5350, f01=0x3132, f02=»9 10-?? IF PICTURE-POOL OVERFLOW e* @* STATEMENT TEXT STRING FLOW * P103 OOL4,FSP060 JUMP IF NO FIELD FOUND STMTS STRG 71'LETLET 01,
0x0ae91a…12f7b6 [0x00e]: Pad {f00=0x2020, f01=0x5c5c, f02=»IFTHEN 06 C 7),=D'00',FSP129 JMP IF ORG-MED = 1 OR EMPTY e IF @ IFTHEN 08 C FIELDNO:=8 INDEX ONGO TO 0A C FSP085 FKI NR 15=GUIDING MESSAGE ONGOTO 0B C ,FSP
0x0ae91a…12f7b6 [0x00f]: Pad {f00=0x2020, f01=0x2020, f02=» SECT 0E C e AT @ ATTR 10 C READIN,KEYT11,KEYT22,KEYT33,=W'0' ***READ IN ONE FIELD STOP 12 C FSP10B JMP IF ALPHANUM EXIT 14 C
0x0ae91a…12f7b6 [0x010]: Pad {f00=0x2020, f01=0x2020, f02=» WARN 18 C A
0x0ae91a…12f7b6 [0x011]: Pad {f00=0x0000, f01=0x0000, f02=» A ( 0 8
0x0ae91a…12f7b6 [0x012]: Pad {f00=0x0000, f01=0x0000, f02=» A . P IDENT WSMCRT REL=2.3,841120,870155940230 P 6 F P****************************************************************** > P* P*
0x0ae91a…12f7b6 [0x013]: Pad {f00=0x494e, f01=0x4520, f02=»WSMCAL @ P* 841001/ME INTERTASK COMMUNICATION IMPLEMENTED. 0 2 P* 830926/CJ STPB A LK & STABLK IMPL. t B P* 830725/CJ "PERF USMODL" BEFORE PRINT NEW SECTION 4 P* 830629/CJ FRESH UP OF INITIAL MENU
0x0ae91a…12f7b6 [0x014]: Pad {f00=0x4259, f01=0x203c, f02=»ENTER> OR NOW BY <PRINT> > P* 830426/CJ WRONG MODE IN SYSL. VD81 - SOLVED < F P* 83032 A 5/CJ REL.DATE TAKEN FROM WSMDDV IN STRG RELDAT ~ P* 8 F P****************************************************************** B P
0x0ae91a…12f7b6 [0x015]: Pad {f00=0x0050, f01=0x5c45, f02=»XPROC FSMSPP P EXPROC FSNAME * P EXPROC FSPARM @ P EXPROC FSDISC V P EXPROC FSUPDT l P EXPROC USMODL A P* > P EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD P* T 0 P EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR
0x0ae91a…12f7b6 [0x016]: Pad {f00=0x4348, f01=0x2050, f02=»RINTER $ P EXPROC DETPRT ***DETACH PRINTER $ P EXPROC STPBLK ***STOP BLOCKING F $ P EXPROC STABLK ***START BLOCKINGDL A n . P EXT GETIND ---ASSRUT:GET LENGTH+DIMENSION $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM : P EXT TESTB ---TEST BIT b $ P
0x0ae91a…12f7b6 [0x017]: Pad {f00=0x4745, f01=0x5420, f02=»SIZE OF SCREEN PBRD EQU X'81' BASIC READ & PTRP EQU X'A7' TRANSFORM PARAMETER @ PERS EQU X'B1' ERASE j $ PCED EQU X' A B7' CHANGE ECHO-DEVICE & PTIMOUT EQU X'0B' =ITC SET TIME-OUT P EJECT H P INCLUDE WSMKEY,LIST V P INCLUDE
0x0ae91a…12f7b6 [0x018]: Pad {f00=0x4a45, f01=0x4354, f02=» P* : P* THIS IS THE MAIN-LOOP OF THE WSM CREATOR TOOLS P* T PWSMCRT PROC ^ 0 P MOVE LBIN1,=X'FFFF' =ITC SET A TIME-OUT VALUE r . P DSC1 ITCIN,TIMOUT,LBIN1 =ITC IN-DATA SET 0 P DSC1 ITCOUT,TIMOUT,LBIN1 =ITC OUT-DATA SET
0x0ae91a…12f7b6 [0x019]: Pad {f00=0x5246, f01=0x4c4f, f02=»W LIMIT 4 P CALL WXDIV,DPBIN,W2,DPBIN =SIZE OF ONE SECTION 0 P CALL GETIND,ATTAB,LABIN,LBIN1 ---GET LENGTH F 2 P CALL GETIND,FIDTAB,LF A BIN,LBIN1 ---GET LENGTH z 2 P CALL GETIND,PICTUR,PLBIN,LBIN1 ---GET LENGTH 2 P CALL GETIND,VALBUF,VBBI
0x0ae91a…12f7b6 [0x01a]: Pad {f00=0x5254, f01=0x4153, f02=»K COMMUNICATION P* PITCREC > P RECEIVE ITCIN,ICPOOL,ICLEN =ITC UNADDR READ FROM ANY TASK ( P BNOK ITCNO =ITC j $ P SET IC =ITC I A NDICATE ITC EXISTS > P CALL GETCW,ITCIN,ICTASK =ITC GET TASK-ID OF SENDING TASK PITCNO
0x0ae91a…12f7b6 [0x01b]: Pad {f00=0x4c42, f01=0x494e, f02=»1,W0 WORKITEM:=0 $ P MOVE LBIN2,W80 BUFFERLENGTH:=80 $ P DSC SCRN,BRD,LBIN1,LSTR81,LBIN2 2 P BOK WSM00A IF VD82 Z & P MOVE SYSLFC,SCRNFC SAME F A ILE CODE v . P CALL CHANFC,SYSL,SYSLFC CHANGE FILE CODE $ P MOVE LBIN1,=X'0080' CURSER-MODE
0x0ae91a…12f7b6 [0x01c]: Pad {f00=0x5245, f01=0x454e, f02=» P* * P ADD ROWS,W1 ADJUST NUMBER OF COLUMNS P* , P* DEFINE PHYSICAL SCREEN 6 P* Z 2 P CALL GETIND,PHYSCR,LBIN2,LBIN1 ---GET LENGT A H d ( P MOVE LBIN1,=X'0C81' WORKITEM:=0C81 : P DSC SYSL,TRP,LBIN1,PHYSCR,LBIN2 DEFIN
0x0ae91a…12f7b6 [0x01d]: Pad {f00=0x4954, f01=0x4320, f02=»AGAIN IF NOT INTERTASK COMM. < P SEND .ADDR,ITCOUT,ICPOOL,ICLEN,ICTASK =ITC SEND ANSWER P B ITCREC =ITC J P PEND ` P EJECT n P* | P* SYSTEM A INITIALIZATION P* PWSMENU PROC " P EJECT 6 PWSM000 D P MOV
0x0ae91a…12f7b6 [0x01e]: Pad {f00=0x545c, f01=0x4657, f02=»MENU ATTACH WSMENU FORMAT & P ERASE 3,W1,W0 ERASE OLD CONTENTS P MOVE TB7BIN1,=W'80' , * P MOVE LBIN3,=X'1801' LINE:=24 COL:=01 H $ P TBF VD82,WSM001 JMP IF NO A T VD82 v * P MOVE LBIN3,=X'0101' LINE:=01 COL:=01 PWSM001 < . P DSC S
0x0ae91a…12f7b6 [0x01f]: Pad {f00=0x5753, f01=0x4d30, f02=»05 " P THOME MAKE 1ST FIELD CURRENT P AND SET CURSOR PWSM010 $ $ P GETABX LBIN4 GET CURRENT INDEX 2 P EJECT Z PWSM015 h ( P PERF READIN,KEYT1,KEYT2,K A EYT3,=W'0' v * P IB LBIN2,WSM050,WSM020,WSM900,WSM040 P B WSM010
0x0ae91a…12f7b6 [0x020]: Pad {f00=0x0050, f01=0x2a20, f02=» P* POWER OFF P* PWSM040 * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT $ P GETABX LBIN4 GET CURRENT FIELD 8 P EJECT ` PWSM043 n * P GETFLD 0,LBIN4,LBIN A 3 SEARCH CURR POS | P BNOK WSM046 P SETCUR . P B WSM
0x0ae91a…12f7b6 [0x021]: Pad {f00=0x5753, f01=0x4d30, f02=»50 2 P MOVE GBIN1,GBCD3I(W1) STORE FUNCTIONNO BINARY * P IB GBIN1,WSM300,WSM200,WSM300,WSM400 P B WSM000 < P EJECT N P* P* f 0 P* THIS IS THE FORMAT SECTI A ON MAIN LOOP p P* P* PWSM200 ( P MOVE LB
0x0ae91a…12f7b6 [0x022]: Pad {f00=0x5c4a, f01=0x554d, f02=»P IF RETUR-KEY PWSM210 * P MOVE LBIN1,=X'1801' CURSOR POS:=2401 & P TBF VD82,WSM216 JUMP IF NOT VD82 * P MOVE LBIN1,=X'0101' CURSOR POS:=0101 D $ P MOVE LBIN2,W2 BACKGROUND:=BLA A CK r P CALL TESTB,GBIN10,W14 P BF WSM215 JMP I
0x0ae91a…12f7b6 [0x023]: Pad {f00=0x4552, f01=0x465c, f02=»CURSET,LBIN1,LBIN2,SYSL ***CURSOR SET & P DSC SYSL,2,COLS ERASE SYSTEM LINE , P PERF FSMODL ***FORMAT SECTION MODELLING P MOVE LBIN2,W2 J & P MOVE LSTR9A,=X'2B2B00' LOAD '++' ` 8 P WRITE A SYSL,LSTR9A,LBIN2 ERASE ATTRIBUTES SPEC. VD81
0x0ae91a…12f7b6 [0x024]: Pad {f00=0x465c, f01=0x4355, f02=»RSET,LBIN1,LBIN2,SYSL ***CURSOR SET & P DSC SYSL,2,COLS ERASE SYSTEM LINE * P CBE GBIN2,W1,WSM200 JUMP IF RETUR-KEY 0 P PERF FSMSPP ***FORMSEC. MODL. ST. PIC.POOL @ PWSM220 t 0 P PERF FSNAME * A **FORMAT SECTION NAME-SETTING * P CBE G
0x0ae91a…12f7b6 [0x025]: Pad {f00=0x0026, f01=0x0050, f02=» TBF VD82,WSM236 JUMP IF NOT VD82 * P MOVE LBIN1,=X'0101' CURSOR POS:=0101 $ P MOVE LBIN2,W2 BACKGROUND:=BLACK P CALL TESTB,GBIN10,W14 6 P BF WSM235 JMP IF FALSE=0 T $ P SUB LBIN2,W1 BACKGROUND:= A WHITE v PWSM235 * P DSC SCRN,
0x0ae91a…12f7b6 [0x026]: Pad {f00=0x4e45, f01=0x0013, f02=» . P PERF FSPARM ***FORMAT SECTION PARAMETERS * P CBE GBIN2,W1,WSM220 JUMP IF RETUR-KEY PWSM240 . P PERF FSDISC ***FORMAT SECTION DISC-STORE $ * P CBE GBIN2,W1,WSM230 JUMP IF RETUR-KEY V . P TBT PRBOOL, A WSM250 JMP IF <PRINT> PRESSED
0x0ae91a…12f7b6 [0x027]: Pad {f00=0x4348, f01=0x4543, f02=»K PRINT-DEVICE P BNOK WSM270 JMP IF OCCUPIED $ P TBF LBOOLE,WSM270 JMP IF NOT OK " P CBE LBIN2,W0,WSM260 JMP IF OK P B WSM265 JMP ON OTHER KEYS 2 PWSM260 V . P PERF USMODL ***UNPACK SECTION MODDELLING L, A d ( P PERF PRNTFS ***PR
0x0ae91a…12f7b6 [0x028]: Pad {f00=0x0015, f01=0x008e, f02=» P* P* CHECK OF PRINTER P* PWSM270 & P MOVE LBIN1,W0 NO ERASE ON SCREEN 0 P PERF WSMERR,KEYT5,=W'0' ***ERR/MESS ROUTINE : P IB LBIN2,WSM250,WSM265,WSM265,WSM250 CLR,CAN,RET,ENT F P* PREPARE F A OR POWER OFF P
0x0ae91a…12f7b6 [0x029]: Pad {f00=0x0050, f01=0x5753, f02=»M300 , P PERF FDUPDT ***UPDATE FORMAT DEFINITION * P CBE GBIN2,W1,WSM310 JUMP IF RETUR-KEY , P PERF FSDISC ***FORMAT DEF. DISC STORAGE * P CBE GBIN2,W1,WSM300 JUMP IF RETUR-KEY 8 PWSM310 f P B WSM000 RESTART t P E A JECT P*
0x0ae91a…12f7b6 [0x02a]: Pad {f00=0x2046, f01=0x4f52, f02=»MAT SECTION ~ 4 P IB GBIN2,WSM000,WSM410 JUMP IF RETUR OR DUP-KEY ( P B WSM200 UPDATE OLD FORMAT SECTION PWSM410 . P PERF FSDISC ***FORMAT SECTION DISC-STORE * P CBE GBIN2,W1,WSM400 JUMP IF RETUR-KEY P P B WSM000 RESTART A ~ P
0x0ae91a…12f7b6 [0x02b]: Pad {f00=0x0018, f01=0x008a, f02=» P FATTR .HIGH P FTAB 2 P FTEXT 'WSM REL ' P FCOPY RELNUM P FILLR ' ',7 P FTEXT 'RELEASE DATE: ' P FCOPY RELDAT P FNL 3 4 P FATTR .HIGH B P FTAB 4 V P FATTR .INV f P FTEXT ' WSM CREATOR T A OO
0x0ae91a…12f7b6 [0x02c]: Pad {f00=0x554d, f01=0x2c4d, f02=»AXL=1,NEOI x P FMEL 'Z',GBCD3I(W1) P FATTR .HIGH P FTAB 30 P FTEXT '1 = ' P FCOPY =C'NEW ' P FCOPY =C'FORM ' P FCOPY =C'DEFINITION' $ P FNL B P FATTR .HIGH N P FTAB 30 b P FTEXT '2 = ' r P FCOPY =
0x0ae91a…12f7b6 [0x02d]: Pad {f00=0x0072, f01=0x0014, f02=» P FCOPY =C'OLD ' P FCOPY =C'FORM ' P FCOPY =C'DEFINITION' P FNL P FATTR .HIGH P FTAB 30 P FTEXT '4 = ' P FCOPY =C'OLD ' P FCOPY =C'FORM ' 4 P FCOPY =C'SECTION' L P FNL f P FMEND r P END @
0x0ae91a…12f7b6 [0x02e]: Pad {f00=0x3d20, f01=0x2720, f02=» r P FCOPY =C'OLD ' P FCOPY =C'FORM ' P FCOPY =C'DEFINITION' P FNL P FATTR .HIGH P FTAB 30 P FTEXT '4 = ' P FCOPY =C'OLD ' P FCOPY =C'FORM ' 4 P FCOPY =C'SECTION' L P FNL f P FMEND r P END @
0x0ae91a…12f7b6 [0x02f]: Pad {f00=0x4558, f01=0x5420, f02=»ROW W1 POINT AT COLUMN $ r 0 P XCOPY* P192 GVDUA,LBIN3,LBIN1,LSTR81,W0 FILL WITH X'20':S IN2,LBIN1 CALC. SIZE TO END* 18 STOP !<DYNAMIC FIELD>! GET FILE CODE AB-POS STR89,W2,LBIN2,GVDUR(LBIN16)* ALL CHANFC,DISC,LBIN4 ---CHANGE FILE CODE CURSER POS L 2 P XCOPY LST
0x0ae91a…12f7b6 [0x030]: Pad {f00=0x204e, f01=0x4f3a, f02=»=4 1MB-BIT % R $ P SUB LBIN1,W1 ADJUST 0-C BE SYN990 E-O-B SIMPLE STOP OK ER 1ST " % , P PERF DECORS,LBIN15,SCRN ***SET PERF INDCNT ***INDENTION COUNTING R& N2 ---DISPLAY UNTIL END OF LINE % " P C BT SYN108 E-O-B JUST SPACES ,W0,W6 VOLUME NAME EQUAL ? SCRN ***
0x0ae91a…12f7b6 [0x031]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x032]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x033]: Pad {f00=0x5c45, f01=0x4e54, f02=»RY CLEARB ^ P ENTRY MSKOUT t P ENTRY CHANFC P ENTRY GETVOL P ENTRY GETIND P ENTRY RDSECT P* P EXTRN I:EVA0 P EXTRN I:RT1 P EXTRN T:FDSP P* , P* 6 P* @ PCALL FORM 16=/F6A1,16 J P EJE
0x0ae91a…12f7b6 [0x034]: Pad {f00=0x4e47, f01=0x2053, f02=»TART ADDRESS @ P* p PSEABIT EQU * z PSET050 SUK A3,8 P RF(N) SET100 P ADK A7,1 P CWR A7,A8 & P RB(NE) SET050 CONTINUE IN NOT EOR * P LDK A6,0 INDICATE INCORRECT REC. NO. P RTN A14 8 P* PLACED IN CURRENT BYTE H
0x0ae91a…12f7b6 [0x035]: Pad {f00=0x5a29, f01=0x5c54, f02=»EST IF FIRST BIT N PSET300 EQU * n P SLC A4,1 P SUK A1,1 P RB(NZ) SET300 PTEST EQU * P RTN A14 P EJECT P* . P* SET WANTED BIT IN A STRING OR BIN ITEM & P* SYNTAX: CALL SETB,ITEM,INDEX ( P* R PSETB
0x0ae91a…12f7b6 [0x036]: Pad {f00=0x4f50, f01=0x5920, f02=»ADDRESS @ P LDR A8,A5 COPY ENDADDRESS ` & P CALL I:EVA0 GET ADDRESS TO INDEX P LDR* A3,A9 GET INDEX " P CALL SEABIT SEARCH WANTED BIT P LDR A10,A10 P RF(N) SETB30 IF TEST BIT P RF(Z) SETB20 JUMP IF SETBIT & P* CLEAR BIT J
0x0ae91a…12f7b6 [0x037]: Pad {f00=0x2042, f01=0x4954, f02=» 4 PTES200 SUK A3,1 R P RF(N) TES300 BYTE RESTORED j P SRC A4,1 P RB TES200 * PTES300 SRL A4,8 MOVE TO RIGHTMOST BYTE " P SCR A4,A7 STORE UPDATED BYTE P RF RET PSETB30 EQU * P LDK A1,0 INDICATE FALSE * P LDR A4,A4
0x0ae91a…12f7b6 [0x038]: Pad {f00=0x2042, f01=0x4153, f02=»E * " P SC A1,-2,A4 STORE CR ON STACK N P RF RET t P* * P* CLEAR BIT IN STRING OR BIN VARIABLE ( P* SYNTAX: CALL CLEARB,ITEM,INDEX P* PCLEARB EQU * $ P LDKL A10,1 INDICATE 'CLEAR BIT' P RB SETB10 CONTINUE . P*
0x0ae91a…12f7b6 [0x039]: Pad {f00=0x4641, f01=0x4c53, f02=»E) & P* CR = 1 (BIT IS TRUE) H P* r PTESTB EQU * | $ P LDKL A10,-1 INDICATE 'TEST BIT' P RB SETB10 CONTINUE P EJECT P* . P* MASK OUT WANTED BITS ACCORDING TO MASK & P* SYNTAX: CALL MSKOUT,MASK,BIN 6 P
0x0ae91a…12f7b6 [0x03a]: Pad {f00=0x494e, f01=0x3d20, f02=»BIN HOLDING THE VALUE TO BE MASKED . P* b PMSKOUT EQU * l P CALL I:EVA0 ADDRESS TO MASK P LDR A6,A9 P CALL I:EVA0 ADDRESS TO BIN $ P LDR* A1,A9 GET CONTENTS OF BIN * P ANRS A1,A6 LOGICAL AND WITH MASK AND P STORE RESULT IN
0x0ae91a…12f7b6 [0x03b]: Pad {f00=0x2020, f01=0x2043, f02=»ALL CHANFC,DATASET,FILECODE ( P* V PCHANFC EQU * ` < P CF A14,T:FDSP GET DAT-ENTRY IN A3 AND DSCB-ENTRY IN A8 t P LDR A6,A3 AND SAVE A3 $ P CF A14,I:EVA0 GET ADDR. TO BIN P LC A3,1,A9 GET NEW FC P SC A3,1,A6 AND STORE IN DAT P
0x0ae91a…12f7b6 [0x03c]: Pad {f00=0x4745, f01=0x5456, f02=»OL,DSET,BUFFER,VOLNAM,RETCOD ( P* RETCOD = 0 IF OK, ELSE 1 P P* | PGETVOL EQU * ( P CALL T:FDSP GET DSET ADDRESS TO A8 * P CALL I:EVA0 GET BUFFER ADDRESS TO A9 ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN P ANKL A9,/FFFE , P
0x0ae91a…12f7b6 [0x03d]: Pad {f00=0x4553, f01=0x5420, f02=»STATUS & P CALL I:EVA0 GET ADDRESS TO VOLNAM 4 P LDK A7,/80 LOAD ORDER CODE ^ , P* A7 ORDER CODE FOR TEST STATUS P* A8 DSET ADDRESS P LKM P DATA 1 P LD A1,8,A8 LOAD RETURN CODE " P ANKL A1,/F7FF 1 MB FLOPPY B
0x0ae91a…12f7b6 [0x03e]: Pad {f00=0x0024, f01=0x0050, f02=» LD A1,2,A8 LOAD BUFFER ADDRESS ( P LDK A2,6 NO OF BYTES IN VOLUME NAME H PLOOP EQU * t P LCR A3,A1 P SCR A3,A9 P ADK A1,1 P ADKL A9,1 P SUK A2,1 P RB(P) LOOP P LDK A1,0 PUT EQU * P LDR A6,A1 P C
0x0ae91a…12f7b6 [0x03f]: Pad {f00=0x4558, f01=0x4544, f02=» VARIABLE AND LENGTH P* 6 > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION @ P* : P* ITEM(W1) = CURRENT ITEM F P* LENGTH = BIN HOLDING ITEM LENGTH D P*
0x0ae91a…12f7b6 [0x040]: Pad {f00=0x0050, f01=0x2a20, f02=» PGETIND EQU * P CALL I:EVA0 ADDRESS TO ITEM 0 2 P LD A10,-6,A14 READ DIMENSION STORED BY I:EVA T P LDR A7,A5 COPY END ADDRESS $ P SUR A7,A9 CALCULATE ITEM LENGTH ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM P STR A7,A9 STORE LENGTH
0x0ae91a…12f7b6 [0x041]: Pad {f00=0x4a45, f01=0x4354, f02=» P********************** P* READ DISK SECTOR * 4 P********************** R PRDSECT EQU * p P LDKL A11,/81 BASIC READ PRDS000 EQU * P CALL T:FDSP P CALL I:EVA0 P LDR* A1,A9 P CM 10,A8 $ P ST A1,12,A8 STORE
0x0ae91a…12f7b6 [0x042]: Pad {f00=0x4f52, f01=0x4520, f02=»BUFFER ADRESS P LDK A7,/B7 LOCK P LKM 6 P DATA 1 B P LDR A7,A11 ORDER CODE R P LKM p P DATA 1 | P LDK A7,/B8 UNLOCK P LKM P DATA 1 P RB RET RETURN TO CALLER P END @ P CM 10,A8 $ P ST A1,12,A8
0x0ae91a…12f7b6 [0x043]: Pad {f00=0x2008, f01=0x2004, f02=» BUFFER ADRESS P LDK A7,/B7 LOCK P LKM 6 P DATA 1 B P LDR A7,A11 ORDER CODE R P LKM p P DATA 1 | P LDK A7,/B8 UNLOCK P LKM P DATA 1 P RB RET RETURN TO CALLER P END @ P CM 10,A8 $ P ST A1
0x0ae91a…12f7b6 [0x044]: Pad {f00=0x0000, f01=0x0054, f02=» B T s F O 1O 3O 4O 5O .O 'O (O +O )O *O +O ,O -O .O /O .O .O 2 v w O GO % } G O 'O )O *O 2 } ~ O HO % D H O &O 'O .O +O )O *O +O ,O -O .O /O 0
0x0ae91a…12f7b6 [0x045]: Pad {f00=0x0032, f01=0x4f00, f02=» g C B C O JO % J O 'O )O *O 2O / O KO % H K O &O .O 'O +O )O *O +O .O -O .O /O 0O 3O 2O C | O
0x0ae91a…12f7b6 [0x046]: Pad {f00=0x0002, f01=0x00cd, f02=» g B M O NO OO P O QO OO OO RO S O TO OO OO RO O P O U O NO S O O VO W O Xk @
0x0ae91a…12f7b6 [0x047]: Pad {f00=0x005f, f01=0x0000, f02=» g B ` M O OO S a O b O ck P O d O e d O f O g O h O iO a
0x0ae91a…12f7b6 [0x048]: Pad {f00=0x0000, f01=0x0000, f02=» O g o B oO p O qk X s O rj ` O q t O rO # O O uO oO r s O rM O v s O wO !O x O O yO x O
0x0ae91a…12f7b6 [0x049]: Pad {f00=0x007e, f01=0x4f00, f02=» O W B
0x0ae91a…12f7b6 [0x04a]: Pad {f00=0x0000, f01=0x0000, f02=» B X ` h p x
0x0ae91a…12f7b6 [0x04b]: Pad {f00=0x0000, f01=0x0000, f02=» B . P IDENT UNPACK REL=2.3,850329,870155940230 P 6 D P*************************************************************** > P* P* * P* LATEST UPDATE 850329 MADE BY JE P* P* HIST
0x0ae91a…12f7b6 [0x04c]: Pad {f00=0x4d4f, f01=0x5645, f02=» VAL.OBJ. (UNCHANGED) 6 > P* B 841207/CJ CLEAR DEF GUIDING MESS INITIALLY : P* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE 6 H P* 830721/CJ ADJUST POOLPOINTER WHEN "CONFIRM BY PRINT" t H P* 830607/C
0x0ae91a…12f7b6 [0x04d]: Pad {f00=0x2020, f01=0x2020, f02=» IF MESS. OCCUR IN POOL-EXCHANGE LOC: B = USF690/SOLVED T D P* 830502/CJ PREPARING FOR <PRINT> IN FINAL CONFIRM F P* 830428/CJ ERROR FOR NEGATIVE DEFAULTVALUES - SOLVED ` P* D P****************************
0x0ae91a…12f7b6 [0x04e]: Pad {f00=0x5c55, f01=0x534d, f02=»ODL UNPACK SECTION MODEL LAYOUT P . P ENTRY USFPAR B UNPACK SECTION FIELD PARAM.S 2 P EXPROC UDFVAL ***UNPACK DYN FIELD VALIDATION $ $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM Z $ P EXT CLEARB ---ASSRUT:CLEAR BIT * P EXT TESTB ---ASSRUT:TEST BIT PO
0x0ae91a…12f7b6 [0x04f]: Pad {f00=0x4e20, f01=0x0003, f02=» . P EXT SETB ---ASSRUT:SET BIT Z $ P EXT WXSLL ---ASSR B UT:SHIFT LEFT ~ $ P EXT WXSLR ---ASSRUT:SHIFT RIGHT * P EXT WXC1R ---ASSRUT:ONES COMPLEMENTE > P EJECT l P* z ( P* UNPACK FORMAT SECTION INITIALS P* . P* FO
0x0ae91a…12f7b6 [0x050]: Pad {f00=0x4954, f01=0x5c50, f02=»ROC F P MOVE LBIN13,W0 Z P TBT PRBOOL,USI050 r 4 P MOV B E LBIN13,DPBIN POOL-UNIT NO:=DIMENSION BPOOL PUSI050 4 & P ADD LBIN13,W1 ADJUST POOL-POINTER B , P MOVE LBIN14,W6 STARTPOINT IN BUFFER:=6 l > P XCOPY GSTR6A,W0,W6,BPOOL(LBIN13),
0x0ae91a…12f7b6 [0x051]: Pad {f00=0x5645, f01=0x5253, f02=» , P ADD LBIN14,W3 ADJUST BUFFERPOINTER:=22 P P MOVE LBIN1,W0 W C ORKITEM:=0 < P XCOPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LOAD VERSION NO * P MOVE GBCD3I(W5),LBIN1 CONVERT TO BCD R , P ADD LBIN14,W1 ADJUST BUFFERPOINTER:=23 @ P XCOPY L
0x0ae91a…12f7b6 [0x052]: Pad {f00=0x2046, f01=0x414c, f02=»SE , & P MOVE GSTR1I(W1),YES AUTO ENTER:=Y L 6 P CALL CLEARB,LBIN1,W8 ---C C LEAR BIT POSITION NO:=8 v P B USI105 P EJECT 2 PUSI100 @ & P MOVE GSTR1I(W1),NO AUTO ENTER:=N N PUSI105 x . P CBL LBIN1,W3,USI110 SECTYPE < 3 NO ADJUST
0x0ae91a…12f7b6 [0x053]: Pad {f00=0x5553, f01=0x4931, f02=»10 8 4 P MOVE GBCD3I(W2),LBIN1 CONVERT SECT TYPE TO BCD F , P ADD LBIN14,W1 ADJ C UST BUFFERPOINTER:=24 ~ > P XCOPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LOAD SECT SIZE ROW . P TBF UPBOOL,USI111 JMP IF NOT 82 -> 46/81 ` $ P SUB LBIN1,W1 ADJUST FOR V
0x0ae91a…12f7b6 [0x054]: Pad {f00=0x0050, f01=0x5c58, f02=»COPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LOAD SECT SIZE COLUMNS 4 * P MOVE GBCD3I(W4),LBIN1 C CONVERT TO BCD z , P ADD LBIN14,W1 ADJUST BUFFERPOINTER:=26 > P XCOPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LOAD EFFK SIZE ROW H * P MOVE GBCD3I(W15),LBIN1 CONV
0x0ae91a…12f7b6 [0x055]: Pad {f00=0x0050, f01=0x5c4d, f02=»OVE GBCD3I(W16),LBIN1 CONVERT TO BCD . , P ADD LBIN14,W9 ADJUST BUFFERPOINTER:=36 > P XCO C PY GSTR1I(W23),W0,W1,BPOOL(LBIN13),LBIN14 LOAD DECIMAL , P ADD LBIN14,W4 ADJUST BUFFERPOINTER:=40 > 2 P MOVE LSTR81,=C' HURB' DECORATION LITERALS n
0x0ae91a…12f7b6 [0x056]: Pad {f00=0x444a, f01=0x5553, f02=»T BUFFERPOINTER:=41 D P XCOPY LBIN1,W0,W1,BPOOL(LBIN13),LBIN14 LOAD STATIC FIELD DECOR F , P P C ERF UNPDEC,W4,W7 ***UNPACK DECORATIONS , P ADD LBIN14,W1 ADJUST BUFFERPOINTER:=42 . @ P XCOPY LBIN1,W0,W1,BPOOL(LBIN13),LBIN14 LOAD DYN FIELD DECOR
0x0ae91a…12f7b6 [0x057]: Pad {f00=0x5c57, f01=0x4f52, f02=»KITEM:=0 B P XCOPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LOAD DEF. GUIDE. MESS 4 , P ADD LBIN14,W1 ADJUST C BUFFERPOINTER:=47 z 4 P CALL ICLEAR,GST80I(W1) ---CLEAR DEF. GUID. MESS , P CBE LBIN1,W0,USI200 NO GUIDING MESSAGE R ( P MOVE LSTR81,=C'M:
0x0ae91a…12f7b6 [0x058]: Pad {f00=0x00e4, f01=0x002e, f02=» P CBNE LBIN3,W0,USI120 JMP IF MESSAGE LINE ( P ADD LBIN14,W1 ADJUST BUFFER-POINTER R P SUB LBIN1,W1 ADJU C ST LENGTH ~ P ADD LBIN2,W2 ADJUST PUSI120 . 8 P XCOPY GST80I(W1),W0,W2,LSTR81,LBIN2 LOAD MESS TYPE < @ P XCOPY GST80I(W1),W2,L
0x0ae91a…12f7b6 [0x059]: Pad {f00=0x010c, f01=0x000a, f02=» P EJECT P* ( & P* UNPACK FORMAT SECTION LAYOUT 2 , P* OUTPUT CR = 0 OK B P* C = 1 MEMORY OVERFLOW (GREATER) P* B L P************************************************************
0x0ae91a…12f7b6 [0x05a]: Pad {f00=0x00e4, f01=0x0030, f02=» P CALL ICLEAR,FIDTAB ---CLEAR FIELD-ID TABLE $ P MOVE LBIN1,W0 POOL-UNIT NO STAT H P MOVE LBIN2,W0 DISPL STATIC p C & P MOVE LBIN3,W0 POOL-UNIT NO DYN F P MOVE LBIN4,W0 DISPL DYNAMIC . 0 P MOVE LBIN8,LPBIN STORE LENGTH OF BPOOLUNIT R
0x0ae91a…12f7b6 [0x05b]: Pad {f00=0x5420, f01=0x000f, f02=» P SUB LBIN16,W1 ADJUST * P MOVE LBIN17,W0 POOL-UNIT NO PIC-POOL 0 " P MOVE LBIN18,W0 DISPL PIC POOL ^ & P MOVE LBIN10 C ,W0 FIDTAB-POINTER:=0 , P MOVE LBIN11,W0 ATTRIBUTTABLE POINTER:=0 " P MOVE LBIN13,W0 POOLPOINTER:=0 N . P TBT PRB
0x0ae91a…12f7b6 [0x05c]: Pad {f00=0x504f, f01=0x4f4c, f02=»-POINTER P MOVE LBIN14,W6 & P ADD LBIN14,W24 BUFFERPOINTER:=30 . P EJECT X @ P XCOPY LBIN1,W1,W1,BPOOL(LBIN13),LBIN14 LO C AD POOLUNIT STAT F f , P ADD LBIN14,W1 ADJUST BUFFERPOINTER:=31 > P XCOPY LBIN2,W1,W1,BPOOL(LBIN13),LBIN14 LOAD
0x0ae91a…12f7b6 [0x05d]: Pad {f00=0x0011, f01=0x00bc, f02=» , P ADD LBIN14,W1 ADJUST BUFFERPOINTER:=33 @ P XCOPY LBIN18,W1,W1,BPOOL(LBIN13),LBIN14 LOAD DISPL PIC POOL 4 , P ADD LBIN14,W1 ADJUST BU C FFERPOINTER:=34 x @ P XCOPY LBIN3,W1,W1,BPOOL(LBIN13),LBIN14 LOAD POOLUNIT DYN F , P ADD LBIN14,W1 ADJUS
0x0ae91a…12f7b6 [0x05e]: Pad {f00=0x00cc, f01=0x003e, f02=» P XCOPY GBIN10,W1,W1,BPOOL(LBIN13),LBIN14 BACKGROUND DECOR P* > < P* ADJUST POOL-UNIT NO:S FROM RELATIVE NO TO EFFECTIVE H P* BU C . P TBT PRBOOL,USM005 JMP IF <PRINT> BOOL :=T 4 P ADD LBIN1,DPBIN ADJUST WITH START POOL-UNIT NO 6
0x0ae91a…12f7b6 [0x05f]: Pad {f00=0x00ec, f01=0x0026, f02=» P* ADJUST DISPLACEMENT POINTERS P* PUSM005 * P ADD LBIN2,W6 ADJUST DISPL 8 P ADD LBIN18,W6 ADJUST DISPL Z P ADD LBIN4,W6 ADJU C ST DISPL ~ P* 6 P* SAVE DYNAMIC FIELD POOL-UNIT + DISPLACEMENT & P* (UNPA
0x0ae91a…12f7b6 [0x060]: Pad {f00=0x3136, f01=0x2c3d, f02=»X'FBFCFDFEFF' LOAD STATIC FIELD OBJ CODES ( P MOVE LSTR81,=X'20' LOAD WITH SPACES 2 P MOVE LSTR6A,=C'B*X' LOAD ALPHNUM PICTUR CHARS L * P MOVE LBIN7,=X C '0101' 'CURSERPOS':=0101 P MOVE LBIN5,W1 ROWNO:=1 P MOVE LBIN6,W0 COL.NO:=0 @ .
0x0ae91a…12f7b6 [0x061]: Pad {f00=0x4c28, f01=0x4c42, f02=»IN1),LBIN2,W1 ( P BNOK USM600 JUMP IF DECORATIONS OR P ...COMPRESSED SPACES * < P IB LBIN12,USM200,USM300, HEADER LINE=1,END-OF-LINE=2 C J 2 P USM4 C 00,USM500 END-OF-SECTION=3,END-OF-POOL=4 P EJECT 0 P* > P* DYNAMIC FI
0x0ae91a…12f7b6 [0x062]: Pad {f00=0x00b2, f01=0x000a, f02=» PUSM110 * P CMP LBIN10,LFBIN CHECK IF POINTER OK " P BE USM980 JUMP IF OUT OF SIZE < P XCOPY FIDTAB,LBIN10,W4,BPOOL(LBIN3),LBIN4 LOAD FIELD ID F , P ADD LBIN1 C 0,W4 ADJUST FID TABLE POINTER 0 P ADD LBIN2,W1 ADJUST BUFFERPOINT=>SEQ.NO-POS
0x0ae91a…12f7b6 [0x063]: Pad {f00=0x00b6, f01=0x000a, f02=» PUSM112 > P XCOPY FIDTAB,LBIN10,W1,BPOOL(LBIN1),LBIN2 LOAD OLD SEQ.NO , P ADD LBIN10,W1 ADJUST FID TABLE POINTER . P MOVE LBIN13,W0 ^ P MOVE LBIN14,W0 v . P A C DD LBIN4,W4 ADJUST DYN F ID TABLE DISPL @ P XCOPY LBIN13,W1,W1,BPOOL(LB
0x0ae91a…12f7b6 [0x064]: Pad {f00=0x5420, f01=0x4e4f, f02=» PUSM113 . P ADD LBIN4,W1 ADJUST DYN F ID TABLE DISPL < P XCOPY LBIN14,W1,W1,BPOOL(LBIN3),LBIN4 FETCH DYN F DISPL P ADD LBIN14,W6 ADJUST DISPL ^ . P ADD LBIN4,W3 C ADJUST DYN F ID TABLE DISPL P* $ P* CHECK POOL-LIMIT .
0x0ae91a…12f7b6 [0x065]: Pad {f00=0x3a3d, f01=0x3620, f02=» PUSM115 P* P* CHECK TYPE OF FIELD P* < P XCOPY LBIN15,W0,W1,BPOOL(LBIN13),LBIN14 LOAD TYPE WORD & P CLEAR LBOOL2 FALSE=NUMERIC FIELD Z 4 P CALL TESTB, C LBIN15,W0 ---TEST BIT POSITION NO:=0 P BF USM120 JUMP IF N
0x0ae91a…12f7b6 [0x066]: Pad {f00=0x322c, f01=0x5731, f02=»,W1,BPOOL(LBIN13),LBIN14 LOAD LENGTH * P ADD LBIN14,W1 ADJUST TO GET TYPE WORD 8 P XCOPY LBIN15,W0,W2,BPOOL(LBIN13),LBIN14 GET LENGTH $ * P CLEAR LBOOL3 FALSE= NO POOL-EXCHANGE ` $ P T C BT LBOOL2,USM130 JUMP IF ALPHA P* & P* NUMER
0x0ae91a…12f7b6 [0x067]: Pad {f00=0x3520, f01=0x001b, f02=» * P ADD LBIN15,LBIN18 CALC DISPL PIC POOL , P MOVE LBIN20,LBIN17 LOAD PIC-POOLUNIT NO P EJECT ( P* 6 P* CHECK POOL LIMIT @ P* ^ PUSM121 h 8 P CBL LBIN15,LBIN16,USM122 C JUMP IF DISPL WITHIN POOL v $ P SUB LBIN15,LBIN16
0x0ae91a…12f7b6 [0x068]: Pad {f00=0x0024, f01=0x0050, f02=» MOVE LBIN19,LBIN15 LOAD DISPL. " P ADD LBIN19,LBIN12 CALC ENDPOS 0 P CBNG LBIN19,LBIN16,USM124 ENDPOS < OR = 253 ( P SUB LBIN19,LPBIN CALC NUMB OF CHARS @ P FROM THIS POOL l * P SUB LBIN1 C 9,LBIN12 CALC NUMB OF CHARS * P CALL WXC1
0x0ae91a…12f7b6 [0x069]: Pad {f00=0x4e31, f01=0x3520, f02=» & P ADD LBIN6,LBIN19 ADJUST COLUMNNO 4 P SUB LBIN12,LBIN19 REDUCE LENGTH ALREADY COPIED " P ADD LBIN20,W1 NEXT POOL UNIT " $ P MOVE LBIN15,W6 BUFFERPOINTER:=6 H PUSM124 p : P XCOPY GVDUR(LBIN5 C ),LBIN6,LBIN12,BPOOL(LBIN20),LBIN15 ~
0x0ae91a…12f7b6 [0x06a]: Pad {f00=0x002e, f01=0x0050, f02=» CALL WXSLR,LBIN15,W14,LBIN15 SHIFT RIGHT < P XCOPY LSTR1,W0,W1,LSTR6A,LBIN15 GET ALPHA PICTURE CHAR . P MOVE LSTR89,LSTR1 FILL UP WITH PIC CHAR $ D P XCOPY GVDUR(LBIN5),LBIN6,LBIN12,LSTR89,W0 LOAD ALPHA PIC C CHARS V P* 6 P* END R
0x0ae91a…12f7b6 [0x06b]: Pad {f00=0x4249, f01=0x4e5c, f02=»CHECK IF POINTER OK " P BE USM980 JUMP IF OUT OF SIZE 4 P XCOPY ATTAB,LBIN11,W2,LBIN7,W0 STORE CURSER POS * P ADD LBIN11,W2 ADJUST ATTR TAB POINTER & : P XCOPY ATTAB,LBIN11,W1,BPOOL(LBIN1),LBIN2 STORE SEQ NO TC C ( P ADD LBIN11,W1 ADJUST AT
0x0ae91a…12f7b6 [0x06c]: Pad {f00=0x4249, f01=0x4e36, f02=»,LBIN12 ADJUST COLUMN NO & P ADD LBIN7,LBIN12 ADJUST CUSER POS . P TBF LBOOL3,USM145 FALSE=NO POOL EXCHANGE 0 P ADD LBIN7,LBIN19 ADJUST WITH NUMB OF CHARS " " P ...FROM PREVIOUS POOL-UNIT V PUSM145 | $ P ADD L C BIN2,W1 ADJUST BUFFER
0x0ae91a…12f7b6 [0x06d]: Pad {f00=0x5354, f01=0x2042, f02=»UFFER POSITITON ! < P XCOPY LBIN12,W1,W1,BPOOL(LBIN1),LBIN2 GET NO HEADLINES ! , P MOVE GBCD3I(W10),LBIN12 CONVERT TO BCD ! $ P ADD LBIN2,W1 ADJUST BUFFER POS ! ( P B USM010 GO ON ! P P EJECT ! h P* ! v P* END OF LINE C FD ! P*
0x0ae91a…12f7b6 [0x06e]: Pad {f00=0x4154, f01=0x4943, f02=» F. CHARS " | PUSM310 " P ADD LBIN5,W1 ROWNO:=ROWNO+1 " * P ADD LBIN7,=X'0100' ADJUST 'CURSORPOS' " 2 P XCOPY LBIN7,W1,W1,W1,W1 'CURSORPOS' COLNO:=01 " 2 P CBNG LBIN6,LBIN9,USM320 JMP IF NOT > MAXSIZE " B * P MOVE LBIN9,LBIN6 LOAD M C AX COLUMN
0x0ae91a…12f7b6 [0x06f]: Pad {f00=0x2a20, f01=0x0023, f02=» P* END OF SECTION FE # P* # PUSM400 # , P TBF LBOOL6,USM410 JUMP IF NOT BREAK, IN # " P COUNTING OF STATIC F. CHARS # , P PERF RSCHAR ***RESTORE STATIC F. CHARS # * PUSM410 # Z 2 P CBNG LBIN6,LBIN9,USM420 JMP IF NOT > MA C XSIZ
0x0ae91a…12f7b6 [0x070]: Pad {f00=0x5645, f01=0x204c, f02=»AST POS FIDTAB $ t P CMP W0,W0 CR:=0 $ P B USM999 $ P EJECT $ P* $ P* END OF POOL-UNIT FF $ P* $ PUSM500 $ , P TBF LBOOL6,USM510 JUMP IF NOT BREAK, IN $ " " P COUNTING OF STATIC F. CHARS $ R , P PERF RSCHAR ***RESTORE C
0x0ae91a…12f7b6 [0x071]: Pad {f00=0x0025, f01=0x007a, f02=» P EJECT % P* % P* DECORATIONS 00-0F % P* OR % 2 P* COMPRESSED SPACES 81-9F % 6 P* OR % L P* STATIC FIELD
0x0ae91a…12f7b6 [0x072]: Pad {f00=0x385c, f01=0x2d2d, f02=»-TEST BIT-POSITION NO:=8 & j ( P BT USM700 JUMP IF COMPRESSED SPACES & 8 P CBG LBIN12,W15,USM800 JUMP IF > X'0F' => STAT CHAR & P EJECT & P* & P* DECORATIONS 00-0F & " P* & D , P TBF LBOOL6,USM610 JUMP IF NOT BREAK, IN & N " P COUNTING OF
0x0ae91a…12f7b6 [0x073]: Pad {f00=0x0027, f01=0x0052, f02=» " P BE USM980 JUMP IF OUT OF SIZE ' : P XCOPY ATTAB,LBIN11,W2,LBIN7,W0 STORE CURSOR POSITION ' ( P ADD LBIN11,W2 ADJUST ATTAB POINTER ' > P XCOPY ATTAB,LBIN11,W1,LSTR16,W4 STORE /FF=SEQ NO FOR ST F ' ( P ADD LBIN11,W1 ADJUST ATTAB POINTER ' R 6 P XCOPY A
0x0ae91a…12f7b6 [0x074]: Pad {f00=0x5320, f01=0x0028, f02=» T P B USM010 GO ON ( | P EJECT ( P* ( $ P* COMPRESSED SPACES 81-9F ( P* ( PUSM700 ( , P TBF LBOOL6,USM710 JUMP IF NOT BREAK, IN ( " P COUNTING OF STATIC F. CHARS ( , P PERF RSCHAR ***RESTORE STATIC F. CHARS ( B PUSM710 ( r 8 P
0x0ae91a…12f7b6 [0x075]: Pad {f00=0x4444, f01=0x5c4c, f02=»BIN6,LBIN12 ADJUST COLUMNNO NUMB OF SPACES ) j ( P ADD LBIN7,LBIN12 ADJUST CURSOR POS ) ( P ADD LBIN2,W1 ADJUST BUFFER POINTER ) P B USM010 ) P EJECT ) P* ) * P* STATIC FIELD CHARACTERS 20-7F ) $ P* ) R PUSM800 ) . P TBT LBOOL6,USM8
0x0ae91a…12f7b6 [0x076]: Pad {f00=0x4d42, f01=0x204f, f02=»F CHARS:=0 * T & P MOVE LBIN14,LBIN2 SAVE STARTPOINT * | ( P MOVE LBIN15,LBIN6 SAVE START COLUMN * PUSM810 * * P ADD LBIN13,W1 INREMENT NUMB OF CHARS * ( P ADD LBIN2,W1 ADJUST BUFFER POINTER * " P ADD LBIN6,W1 INCREMENT COL NO * : & P ADD LBIN7,W1 ADJUST
0x0ae91a…12f7b6 [0x077]: Pad {f00=0x5849, f01=0x5420, f02=» + Z P* + l PUSM999 + v P RET + P PEND + P EJECT + P* + ( P* UNPACK SECTION FIELD PARAMETERS + L P* INPUT VARIABLE: LBIN12 = POINTER IN 'FIDTAB' (POINTS AT FIELD-ID + P* + 2 L P**************************************************
0x0ae91a…12f7b6 [0x078]: Pad {f00=0x4420, f01=0x4449, f02=»SPL , @ * P ADD LBIN12,W4 ADJUST FID-TAB POINTER , j P TO GET OLD SEQ.NO POS , P MOVE LBIN3,W0 OLD SEQ.NO:=0 , 0 P XCOPY LBIN3,W1,W1,FIDTAB,LBIN12 LOAD SEQ.NO , , P CBNE LBIN3,W0,USF030 JUMP IF OLD SEQ NO , ( P B USF800 SEQ.NO=0 => NEW DYN FIELD , @
0x0ae91a…12f7b6 [0x079]: Pad {f00=0x5553, f01=0x4630, f02=»40 - T $ P MOVE LBIN4,LBIN2 SAVE FID-DISPL - b & P ADD LBIN2,LBIN3 CALC EFF,FID SIZE - & P SUB LBIN2,W1 CALC EFF FID ENDPOS - . P MOVE LBIN1,LPBIN STORE LENGTH OF POOLUNIT - ( P SUB LBIN1,W1 ADJUST OVERFLOW LIMIT - 0 P CBNG LBIN2,LBIN1,USF100 JUMP IF FID I
0x0ae91a…12f7b6 [0x07a]: Pad {f00=0x2c4c, f01=0x4249, f02=»N1 CALC NO OF FIDS WITHIN POOL . : < P CALL WXMUL,LBIN1,W8,LBIN1 CALC SIZE OF FIDS WITHIN POOL . x & P SUB LBIN3,LBIN1 REDUCE FID DISPL . P WITH PREV POOL FIDS' . * P MOVE LBIN2,W6 DISPL NEXT POOL-UNIT:=6 . & P ADD LBIN12,W1 ADJUST POOL-UNIT NO . 0 P B
0x0ae91a…12f7b6 [0x07b]: Pad {f00=0x4249, f01=0x4e32, f02=»,W3 ADJUST TO REACH POOL+DISPL / B & P MOVE LBIN3,W0 POOL-UNIT DYN FIELD / r $ P MOVE LBIN4,W0 DISPL. DYN FIELD / < P XCOPY LBIN3,W1,W1,BPOOL(LBIN12),LBIN2 LOAD POOL-UNIT NO / , P TBT PRBOOL,USF103 JMP IF CONF. BY PRINT / 2 P ADD LBIN3,DPBIN ADJUST RELATIVE P
0x0ae91a…12f7b6 [0x07c]: Pad {f00=0x4c20, f01=0x4459, f02=»N FIELD 0 ( P ADD LBIN4,W6 ADJUST DISPL DY FIELD 0 V P EJECT 0 P* 0 P* UNPACK LENGTH WORD 0 P* 0 < P XCOPY LBIN12,W0,W2,BPOOL(LBIN3),LBIN4 LOAD LENGTH WORD 0 & P ADD LBIN4,W2 ADJUST POOL-POINTER 0 , P CALL TESTB,LBIN12,W0 ---TEST BIT
0x0ae91a…12f7b6 [0x07d]: Pad {f00=0x4c45, f01=0x4152, f02=» LBOOL5 FALSE=>NUMERIC 1 : PUSF108 1 ^ P MOVE LBIN1,W1 BIT NO:=1 1 l 4 P CBG GBINIA(W8),W0,USF109 JMP IF OBJ VERSION > 0 1 P ADD LBIN1,W5 BIT NO:=6 1 PUSF109 1 . P CALL TESTB,LBIN12,LBIN1 ---TEST BIT NO:=1 1 P BF USF110 JUMP IF FALSE 1 $ ( P MOVE
0x0ae91a…12f7b6 [0x07e]: Pad {f00=0x000a, f01=0x0050, f02=»USF120 2 : 4 P MOVE LBIN1,=X'0FFF' BIT MASK = 0000111111111111 2 H 4 P CBG GBINIA(W8),W0,USF125 JMP IF OBJ VERSION > 0 2 P SUB LBIN1,=X'0E00' 2 PUSF125 2 2 P CALL MSKOUT,LBIN12,LBIN1 ---MASK OUT BIT 0-3 2 P EJECT 2 P* 2 & P* UNPACK SCREEN W
0x0ae91a…12f7b6 [0x07f]: Pad {f00=0x4444, f01=0x5c4c, f02=»BIN4,W2 ADJIUST POOL-POINTER 3 . P* 3 X P* UNPACK TYPE WORD 3 b P* 3 , P TBT LBOOL5,USF160 JUMP IF ALPHANUMERIC 3 * P XCOPY LBIN1,W0,W2,BPOOL(LBIN3),LBIN4 3 * P CALL TESTB,LBIN1,W4 ---TEST BIT NO:=4 3 P BF USF160 3 . P MOVE GSTR1I(W18),YES
0x0ae91a…12f7b6 [0x080]: Pad {f00=0x4254, f01=0x5c4c, f02=»BOOL5,USF167 JMP IF ALPHANUM 4 ( 6 P MOVE LBIN17,=X'F000' BIT MASK = 1111000000000000 4 R 2 P CALL MSKOUT,LBIN1,LBIN17 ---MASK OUT BIT 0-3 4 . P MOVE LBIN17,LBIN1 STORE NUMB OF DECIMALS 4 . P CALL WXSLR,LBIN17,W12,LBIN17 SHIFT RIGHT 4 PUSF167 4 & & P ADD
0x0ae91a…12f7b6 [0x081]: Pad {f00=0x4f4c, f01=0x284c, f02=»BIN3),LBIN4 LOAD INPUT WORD 5 * P MOVE GSTR1I(W16),NO AUTO SKIP/DUP:=N 5 L * P CALL TESTB,LBIN1,W3 ---TEST BIT NO:=3 5 z P BF USF180 JUMP IF FALSE 5 , P MOVE GSTR1I(W16),SKIP AUTO SKIP/DUP:=S 5 P B USF190 5 PUSF180 5 * P CALL TESTB,LBIN1,W4 ---TE
0x0ae91a…12f7b6 [0x082]: Pad {f00=0x5445, f01=0x5354, f02=»B,LBIN1,W13 ---TEST BIT NO:=13 6 P BF USF190 6 H 2 P MOVE GSTR1I(W16),BYPASS AUTO BYPASS:=B(YPASS) 6 Z PUSF190 6 * P CALL TESTB,LBIN1,W5 ---TEST BIT NO:=5 6 P BF USF200 6 0 P MOVE GSTR1I(W17),RIGHT ADJUSTMENT:=R(IGHT) 6 P B USF210 6 PUSF200 6
0x0ae91a…12f7b6 [0x083]: Pad {f00=0x3230, f01=0x0037, f02=» ( P MOVE GSTR1I(W15),YES VERIFY:=Y(ES) 7 " P B USF230 7 N PUSF220 7 ` & P MOVE GSTR1I(W15),NO VERIFY:=N(O) 7 n PUSF230 7 * P CALL TESTB,LBIN1,W7 ---TEST BIT NO:=7 7 P BF USF240 7 , P MOVE GSTR1I(W12),YES MUST ENTER:=Y(ES) 7 P B USF250 7
0x0ae91a…12f7b6 [0x084]: Pad {f00=0x465c, f01=0x5553, f02=»F260 8 . P MOVE GSTR1I(W21),YES MAND. VALID.:=Y(ES) 8 " P B USF270 8 T PUSF260 8 f * P MOVE GSTR1I(W21),NO MAND. VALD.:=N(O) 8 t PUSF270 8 * P CALL TESTB,LBIN1,W9 ---TEST BIT NO:=9 8 P BF USF280 8 * P MOVE GSTR1I(W13),YES MUST FILL:=Y(ES) 8 P B
0x0ae91a…12f7b6 [0x085]: Pad {f00=0x4c5c, f01=0x5445, f02=»STB,LBIN1,W10 ---TEST BIT NO:=10 9 P BF USF296 9 8 P SET LBOOL6 SIGN IN PICTURE 9 J PUSF296 9 n , P CALL TESTB,LBIN1,W11 ---TEST BIT NO:=11 9 | P BF USF300 9 * P MOVE GSTR1I(W14),YES AUTO EOI:=Y(ES) 9 P B USF330 9 PUSF300 9 ( P MOVE GSTR1I(W
0x0ae91a…12f7b6 [0x086]: Pad {f00=0x3139, f01=0x292c, f02=»YES CHANGE PROTECT:=Y(ES) 9 P B USF350 : , PUSF340 : > . P MOVE GSTR1I(W19),NO CHANGE PROTECT:=N(O) : L PUSF350 : ~ , P CALL TESTB,LBIN1,W15 ---TEST BIT NO:=15 : P BF USF360 : . P MOVE GSTR1I(W20),YES DATA TO APPL.:=Y(ES) : P B USF370 : PUS
0x0ae91a…12f7b6 [0x087]: Pad {f00=0x0020, f01=0x0050, f02=»* UNPACK DECORATION WORD ; P* ; ( @ P XCOPY LBIN20,W0,W2,BPOOL(LBIN3),LBIN4 LOAD DECORATION WORD ; 2 * P MOVE GSTR1I(W22),NO VALIDATION:=N(O) ; v ( P MOVE GSTR1I(W24),NO DUPLICATE:=N(O) ; 2 P CBNE LBIN12,W12,USF375 JUMP IF OPTIONAL PART ; P B USF70
0x0ae91a…12f7b6 [0x088]: Pad {f00=0x0000, f01=0x0044, f02=» RPOINTER ; v . P MOVE LBIN19,W12 LENGTH OF ALL OPTIONS:=12 < PUSF380 < B > P CBNE LBIN19,LBIN12,USF382 JUMP IF OPT-LENGTH NOT REACHED < P $ P B USF700 OPTION-LENGTH REACHED < PUSF382 < . P MOVE LBIN2,LPBIN STORE LENGTH OF POOLUNIT < ( P SUB LBIN2,W2
0x0ae91a…12f7b6 [0x089]: Pad {f00=0x4c42, f01=0x0000, f02=» D IN4,W6 BUFFERPOINTER:=6 < PUSF385 = : P XCOPY LBIN2,W0,W2,BPOOL(LBIN3),LBIN4 LOAD TYPE+LENGTH = . 2 P MOVE LBIN1,=X'0FFF' BITMASK:=0000111111111111 = l 6 P CALL MSKOUT,LBIN2,LBIN1 ---MASK OUT OPTION LENGTH = . P ADD LBIN19,LBIN2 ADJST LENGTH OF OPTI
0x0ae91a…12f7b6 [0x08a]: Pad {f00=0x0152, f01=0x0038, f02=» P C D ALL WXDIV,LBIN1,W16,LBIN1 SHIFT RIGHT TO GET INDEX = & P ADD LBIN4,W2 ADJUST BUFFERPOINTER > : * P MOVE LBIN14,W0 OPT-STRING POINTER:=0 > d " P PERF POLCHK ***POOL END CHECK > 2 P IB LBIN1,USF400,USF500, 1=VALID.,2=ACCUMUL. C > 8 P USF630,USF64
0x0ae91a…12f7b6 [0x08b]: Pad {f00=0x003e, f01=0x0180, f02=» P* D UNPACK VALIDATION > P* ? PUSF400 ? $ , P MOVE GSTR1I(W22),YES VALIDATION:=Y(ES) ? 2 2 P MOVE VALPTR,LBIN4 SAVE BUFFER-POINTER RIGHT & ? b P SUB VALPTR,W2 .... ? 4 P XCOPY VALPTR,W0,W1,LBIN3,W1 ..POOL-UNIT NO LEFT ? , P TBT PRBOO
0x0ae91a…12f7b6 [0x08c]: Pad {f00=0x4e41, f01=0x4d45, f02=»-S ? P PUSF440 D ? , P CBNE LBIN15,W0,USF445 JMP NOT NEW POOL @ P ADD LBIN3,W1 NEXT POOL-UNIT @ 8 " P MOVE LBIN4,W6 DISPLACEMENT:=6 @ PUSF445 @ 0 P PERF UDFVAL ***UNPACK DYN FIELD VALIDATION @ ( P BNOK USF999 JMP IF VALBUF OVERFLOW @ P
0x0ae91a…12f7b6 [0x08d]: Pad {f00=0x3434, f01=0x305c, f02=»UNPACK IF "OVE"-HIT 40 D @ ` 0 P TBF LBOOL2,USF460 JUMP IF NO POOL EXCHANGE A P ADD LBIN3,W1 NEXT BUFFER A < $ P MOVE LBIN4,W6 BUFFERPOINTER:=6 A ^ 4 P SUB LBIN2,LBIN15 CALC NUMB OF CHARS IN NEW POOL A " P PERF POLCHK ***POOL END CHECK A P B USF
0x0ae91a…12f7b6 [0x08e]: Pad {f00=0x4154, f01=0x494f, f02=»N STRING A P* A PUS D F500 A * P ADD LBIN4,LBIN2 ADJUST BUFFERPOINTER B P B USF380 GO ON B : P* B R $ P* UNPACK DUPLICATION ORIGIN B P* B PUSF630 B * P MOVE GSTR1I(W24),YES DUPLICATE:=Y(ES) B 0 P TBF LBOOL2,USF635 JUMP IF
0x0ae91a…12f7b6 [0x08f]: Pad {f00=0x4e54, f01=0x4552, f02=» B B P ADD LBIN3,W1 NEXT BUFFER D B v $ P MOVE LBIN4,W6 BUFFERPOINTER:=6 C 4 P SUB LBIN2,LBIN15 CALC NUMB OF CHARS IN NEW POOL C 0 PUSF635 C h D P XCOPY GSTR6B,LBIN14,LBIN2,BPOOL(LBIN3),LBIN4 LOAD DUPL.-STRING C v * P ADD LBIN4,LBIN2 ADJUST BUFFERPO
0x0ae91a…12f7b6 [0x090]: Pad {f00=0x3429, f01=0x2c4c, f02=»BIN2 NUMB OF APPL MES-CHARS C V 0 P TBF D LBOOL2,USF645 JUMP IF NO POOL EXCHANGE C D P XCOPY GST80I(W6),LBIN14,LBIN15,BPOOL(LBIN3),LBIN4 LOAD 1ST PRT D 0 0 P ADD LBIN14,LBIN15 ADJUST OPT-STRING POINTER D x P ADD LBIN3,W1 NEXT BUFFER D $ P MOVE LBIN
0x0ae91a…12f7b6 [0x091]: Pad {f00=0x4f4c, f01=0x284c, f02=»BIN3),LBIN4 LOAD APPL MSG D < * P ADD LBIN4,L D BIN2 ADJUST BUFFER POINTER D P B USF380 GO ON E " P* E : P* UNPACK ORIGIN MEDIUM E D P* E f PUSF650 E p 0 P TBF LBOOL2,USF655 JUMP IF NO POOL EXCHANGE E ~ @ P XCOPY LSTR1,LBIN14,LBIN15,BPOOL
0x0ae91a…12f7b6 [0x092]: Pad {f00=0x5736, f01=0x5c42, f02=»UFFERPOINTER:=6 E L 4 P SUB LBIN2,LBIN15 CALC NUMB E OF CHARS IN NEW POOL E t PUSF655 F D P XCOPY LSTR1,LBIN14,LBIN2,BPOOL(LBIN3),LBIN4 LOAD ORIGIN MEDIUM F * , P XCOPY LBIN1,W1,W1,LSTR1,W0 GET ORG MED F r * P MOVE GBCD3I(W7),LBIN1 CONVERT TO BCD F
0x0ae91a…12f7b6 [0x093]: Pad {f00=0x0046, f01=0x014c, f02=» 2 P MOVE GBINIA(W2),LBIN2 NUMB OF DEF VALUE CHARS F Z 0 P E TBF LBOOL2,USF665 JUMP IF NO POOL EXCHANGE F & P CALL ICLEAR,GSTR80 ---CLEAR ITEM G 4 @ P XCOPY GSTR80,LBIN14,LBIN15,BPOOL(LBIN3),LBIN4 LOAD 1ST PART G ^ 0 P ADD LBIN14,LBIN15 ADJUST OPT-STRING
0x0ae91a…12f7b6 [0x094]: Pad {f00=0x504f, f01=0x4f4c, f02=» G PUSF665 G X @ P XCOPY GSTR80,LBIN14,LBIN2,BPOOL(LBIN3),LB E IN4 LOAD DEF VALUE G f ( P TBT LBOOL5,USF668 JUMP IF ALPHA NUM H & P MOVE GBCD80,GSTR80 CONVERT TO BCD H F . P CBE LBIN17,W0,USF666 JUMP IF NO DECIMALS H p 4 P SUB GBINIA(W2),W1 ADJUST FOR
0x0ae91a…12f7b6 [0x095]: Pad {f00=0x3638, f01=0x0048, f02=» B * P ADD LBIN4,LBIN2 ADJUST BUFFER POINTER H P P B USF380 H ~ P E EJECT H P* I ( P* UNPACK OUTPUT PRINT POSITIONS I P* I D PUSF670 I N 0 P TBF LBOOL2,USF675 JUMP IF NO POOL EXCHANGE I @ P XCOPY LSTR81,LBIN14,LBIN15,BPOOL(LBIN3),L
0x0ae91a…12f7b6 [0x096]: Pad {f00=0x4f49, f01=0x4e54, f02=»ER:=6 I * 4 P SUB LBIN2,LBIN15 CALC NUMB OF CHARS IN NEW POOL I R PUSF675 E I B P XCOPY LSTR81,LBIN14,LBIN2,BPOOL(LBIN3),LBIN4 LOAD PR.OUT POS J . P XCOPY LBIN1,W1,W1,LSTR81,W0 GET PRINT ROW J N * P MOVE GBCD3I(W8),LBIN1 CONVERT TO BCD J . P XCOPY
0x0ae91a…12f7b6 [0x097]: Pad {f00=0x0050, f01=0x5c42, f02=» USF380 J < P EJECT J N P* J P* UNPACK GUIDING MESSAGE J f P* J E PUSF690 K P MOVE LSTR4A,=C'M:S:' K P MOVE LBIN1,W0 WORKITEM0 K 0 . P TBF LBOOL2,USF691 JMP IF NO POOL-EXCHANGE K P , P CBG LBIN15,W0,USF691 JMP INTO THIS POOL K
0x0ae91a…12f7b6 [0x098]: Pad {f00=0x434f, f01=0x5059, f02=» LBIN1,W1,W1,BPOOL(LBIN3),LBIN4 GET 1ST BYTE K 2 * P CBNE LBIN1,W0,USF692 JMP IF MSG-LIN E E K l P SUB LBIN2,W1 ADJUST LENGTH L ( P ADD LBIN4,W1 ADJUST BUFFER POINTER L . P MOVE LBIN1,W2 POINTER:=2 L Z . P TBF LBOOL2,USF693 JMP IF NO POOLEXCH. S: L
0x0ae91a…12f7b6 [0x099]: Pad {f00=0x2857, f01=0x3329, f02=»,LBIN2 NUMB OF OF APPL.CHARS L " 6 P XCOPY GST80I(W5),LBIN14,W2,LSTR4A,LBIN1 LOAD 'M:' L V " P E ADD LBIN14,W2 ADJUST FOR 'M:' L 0 P TBF LBOOL2,USF695 JUMP IF NO POOL EXCHANGE M & D P XCOPY GST80I(W5),LBIN14,LBIN15,BPOOL(LBIN3),LBIN4 LOAD 1ST PRT M Z 0 P
0x0ae91a…12f7b6 [0x09a]: Pad {f00=0x4e32, f01=0x2c4c, f02=»BIN15 CALC NUMB OF CHARS IN NEW POOL M PUSF695 M X D P XCOPY GST80I(W5),LBIN14,LBIN2,BPOOL(LBIN3 E ),LBIN4 LOAD GUID MSG M f * P ADD LBIN4,LBIN2 ADJUST BUFFER POINTER N P B USF380 GO ON N L P* N d P* INDICATE OLD FIELD N n P* N PUSF7
0x0ae91a…12f7b6 [0x09b]: Pad {f00=0x004e, f01=0x0114, f02=» P* N * PUSF800 N 4 " P CLEAR LBOOL1 FALSE=>NEW FIELD N B P CMP W0,W0 CLEAR CONDREG N h P B USF99 E 9 N P EJECT O P* O P* EXIT O " P* O 4 PUSF999 O > P RET O L P PEND O X P EJECT O f P* O t P* POOL LIMIT CHECK O
0x0ae91a…12f7b6 [0x09c]: Pad {f00=0x0050, f01=0x2a20, f02=» OUTPUT LBIN15 = NUMB OF CHARS WITHIN THIS POOL O : P* LBOOL2 = FALSE : NO POOL E ECXHANGE O b @ P* = TRUE : POOL LIMIT WAS REACHED P P* P T L P**************************************************
0x0ae91a…12f7b6 [0x09d]: Pad {f00=0x494f, f01=0x4e20, f02=» P 6 P CBNG LBIN15,LPBIN,POL100 JUMP IF WITHIN POOL-SIZE P " 4 P SUB LBIN15,LPBIN CALC NUMB OF CHARS WITHIN POOL P E 4 P SUB LBIN15,LBIN2 CALC NUMB OF CHARS WITHIN POOL Q 6 P CBE LBIN15,W0,POL050 JUMP IF EXACTLY OUT OF POOL Q < * P CALL WXC1R,LBIN15 -
0x0ae91a…12f7b6 [0x09e]: Pad {f00=0x4c20, f01=0x4558, f02=»CHANGE Q PPOL999 Q " P RET Q 0 P PEND Q < P EJECT Q J P* Q X 6 P* UNPACK DECORATIONS FOR SECTION INITIAL PA E RTS Q b P* R P* FORMAL PARAMETERS: R P* R 6 < P* STIND = START INDEX OF 'GSTR1I(IND)'-ITEM R @ P* R
0x0ae91a…12f7b6 [0x09f]: Pad {f00=0x4e20, f01=0x4259, f02=»TE(LEFTMOST BYTE) R . P* LSTR81 = DECORATION-LITERALS R ( & P* ' HURB' R Z $ P* E 01234567 R L P************************************************************************ S PUNPDEC PROC STIND,
0x0ae91a…12f7b6 [0x0a0]: Pad {f00=0x00e0, f01=0x000a, f02=» PUNP050 S 8 P CALL TESTB,LBIN1,LBIN2 ---TEST BITPOS. NO:='LBIN2' S P BF UNP100 JUMP IF FALSE S T , P XCOPY GSTR1I(LBIN3),W0,W1,L E STR81,LBIN2 S t " P ADD LBIN3,W1 INCREMENT INDEX T 4 P CBG LBIN3,ENIND,UNP999 JUMP IF ENDLIMIT REACHED T : PUNP100
0x0ae91a…12f7b6 [0x0a1]: Pad {f00=0x0050, f01=0x5c45, f02=»JECT T PUNP999 T P RET T P PEND T ( P EJECT T 6 P* T D * P* RESTORE STATIC FIELD CHARACTERS T N P* T | L P********** EA"************************************************************** T PRSCHAR PROC U F D P XCOPY GVDUR(LBIN5),LBIN
0x0ae91a…12f7b6 [0x0a2]: Pad {f00=0x5c52, f01=0x4554, f02=» U P PEND U P END U @ U P PEND T ( P EJECT T 6 P* T D * P* RESTORE STATIC FIELD CHARACTERS T N P* T | L P********** E V X ` h p x 8 @
0x0ae91a…12f7b6 [0x0a3]: Pad {f00=0x0000, f01=0x0000, f02=» E LBIN19 K x 9 & FSP170 > FSP168 % o FSP169 +
0x0ae91a…12f7b6 [0x0a4]: Pad {f00=0x035f, f01=0x0000, f02=» FSP174 [ LEFT I : { EFSP178 n z FSP180 } W21 K % s 080 E FSP182 W13 K ! FSP184 " & FSP186
0x0ae91a…12f7b6 [0x0a5]: Pad {f00=0x2020, f01=0x0000, f02=» " E E 1BYPASS I = H H BFSP192 I I 4W4 K P < FSP196 X <W20 K $ b k E FSP198 c g ALBIN11 K p u ATTAB I z { LPBIN
0x0ae91a…12f7b6 [0x0a6]: Pad {f00=0x4653, f01=0x5032, f02=»00 f mFSP450 , .FSP210 l J tFSP220 o zFSP230 GSTR6B I T 6 E FSP225 ( TYPLEN i GST80I I Z
0x0ae91a…12f7b6 [0x0a7]: Pad {f00=0x042e, f01=0x0002, f02=» GSTR80 I O d Z &FSP251 FSP251A LSTR16 I } 6 W23 K ' @ ' ' FSP280 R ; ; " - _ A E (FSP285 i i LSTR4A I l p FSP282 k {
0x0ae91a…12f7b6 [0x0a8]: Pad {f00=0x0000, f01=0x0051, f02=» DPBIN K + f GSTR6A I S FSP999 _ GBIN10 K I ,FSP403 FSP405 p O ` @ & E FSP410 ' %LINNO J R (SLBIN8 K
0x0ae91a…12f7b6 [0x0a9]: Pad {f00=0xc04b, f01=0x00ad, f02=» ) DVBIN4 K | .VBIN5 K ~ -BASLIN I - W %OBBOOL G x " > f FHOME C C FSP505 O O ` s E FSP503 P P ^PRBOOL G r Z Z FSP508
0x0ae91a…12f7b6 [0x0aa]: Pad {f00=0x3330, f01=0x2020, f02=» < FSP988 R TYP999 TYP100 LBIN13 K r } LBOOL3 G b $ $ LBIN8 K g , , d z p z E
0x0ae91a…12f7b6 [0x0ab]: Pad {f00=0x0000, f01=0x0000, f02=» E
0x0ae91a…12f7b6 [0x0ac]: Pad {f00=0x0000, f01=0x0000, f02=» EA P* 2 P* KEYTABLE TO BE USED IN CONFIRM
0x0ae91a…12f7b6 [0x0ad]: Pad {f00=0x00b2, f01=0x002a, f02=» PKEYT12 KTAB CLR,CAN,RET,ENT,PRT, 1-5 C P DEL,DUP 6-7 @ j E 2 P* KEYTABLE TO BE USED IN C
0x0ae91a…12f7b6 [0x0ae]: Pad {f00=0x0050, f01=0x2a20, f02=» * PKEYT12 KTAB CLR,CAN,RET,ENT,PRT, 1-5 C P DEL,DUP 6-7 @ j LL E LLING STATIC AND DYNAMIC FIELDS x
0x0ae91a…12f7b6 [0x0af]: Pad {f00=0x315c, f01=0x3153, f02=»T ROW & P MOVE LBIN4,=X'0101' ROW:=1 COL:=1 ( P MOVE LBIN14,W0 ATTR.TAB POINTER:=0 P MOVE LBIN1,W0 2 P PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S ( P EJECT ^ P* l P* ASK FOR FURTHER ACTIO j NS E NS v P* ENTER=> UPDAT
0x0ae91a…12f7b6 [0x0b0]: Pad {f00=0x0022, f01=0x0050, f02=» MOVE LBIN4,W22 MESSAGE NO 22 P PERF WSMERR,KEYT12,W0 & P IB LBIN2,FSU500,FSU200 CLR,CAN C P FSU300,FSU700 RET,ENT C P FSU800,FSU900 PRT,DEL 8 P B FSU400 POWER OFF X PFSU700 t & P SET LBOOL8 TR j UE E UE=UPDATE OLD MODE
0x0ae91a…12f7b6 [0x0b1]: Pad {f00=0x524d, f01=0x4154, f02=» SECTION P B FSU600 P EJECT P* P* DELETE FORMAT SECTION P* PFSU900 P B FSU600 P EJECT ( P* 6 P* EXIT @ P* R PFSU999 P RET j P PEND v P EJECT TR j E PFWFSUN FRMT
0x0ae91a…12f7b6 [0x0b2]: Pad {f00=0x0050, f01=0x5c46, f02=»COPY =C'NAME' P FILLR ':',1 4 P FKI 14,APPL=19,ALPHA,MAXL=6,MINL=1,ME,NEOI,NCLR P FCOPY GSTR6C VOLUME NAME P FTAB 24 P FTEXT 'FILE' 0 P FCOPY =C'NAME' F P FILLR ':',1 ^ 4 P FKI 34,APPL=20,ALPHA,MAXL=8,M F
0x0ae91a…12f7b6 [0x0b3]: Pad {f00=0x0000, f01=0x0000, f02=» F
0x0ae91a…12f7b6 [0x0b4]: Pad {f00=0x0000, f01=0x0000, f02=» F
0x0ae91a…12f7b6 [0x0b5]: Pad {f00=0x0000, f01=0x0084, f02=» P* & P* LATEST UPDATE 830701 MADE BY CJ P* P* HISTORY= 0 P* 830701/CJ FRESH UP FORMAT FWFDUS H P* 830526/CJ REL.NUMBER TO FWFDUS FROM WSMDDV VIA "RELNUM" P* ` P* j B P****************************
0x0ae91a…12f7b6 [0x0b6]: Pad {f00=0x4b54, f01=0x4142, f02=»,PKTAB,PLIT ***READ IN ONE FIELD j 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE . P EXPROC ATTPRT ***ATTACH/CHECK OF PRINTER ( P EXPROC DETPRT ***DETACH OF PRINTER $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM F P EXT SETB ---ASSRUT:SET BIT n
0x0ae91a…12f7b6 [0x0b7]: Pad {f00=0x4445, f01=0x4c45, f02=»TE FROM DISC d * P EXT TESTB ---ASSRUT:TEST BIT POSITION P EJECT P INCLUDE WSMKEY,LIST P EJECT P INCLUDE KEYT1,LIST P INCLUDE KEYT2,LIST P INCLUDE KEYT3,LIST 0 P INCLUDE KEYT5,LIST L P INCLUDE KEYT12,LIST h P EJE
0x0ae91a…12f7b6 [0x0b8]: Pad {f00=0x5c43, f01=0x424e, f02=»E GBIN1,W1,FDU040 JUMP IF UPDATE OLD t $ P CLEAR LBOOL2 FALSE=WHOLE FORMAT & P CLEAR LBOOL3 FALSE=NEW FORMAT DEF P B FDU045 PFDU040 P SET LBOOL2 P SET LBOOL3 TRUE=UPDATE OLD * PFDU045 N 0 P ATTFMT FWFDUN ATTACH FORMAT-SECTION F
0x0ae91a…12f7b6 [0x0b9]: Pad {f00=0x2049, f01=0x4620, f02=»OLD FORMAT X P B FDU700 PFDU050 " P MOVE LBIN4,W0 FIELD SEQ NO:=0 P B FDU405 PFDU100 $ P GETABX LBIN4 GET CURRENT INDEX PFDU150 > P PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD * P IB LBIN2,FDU500,FDU200,FD
0x0ae91a…12f7b6 [0x0ba]: Pad {f00=0x5c45, f01=0x5241, f02=»SE OLD CONTENTS Z 0 P DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS P B FDU100 P* P* RETUR-KEY P* PFDU300 & P MOVE GBIN2,W1 INDICATE RETUR-KEY P B FDU999 , P* > P* POWER OFF H P* ^ PFDU400 h * P
0x0ae91a…12f7b6 [0x0bb]: Pad {f00=0x4c42, f01=0x494e, f02=»4,LBIN3 SEARCH CURR POS X P BNOK FDU410 P SETCUR P B FDU150 PFDU410 " P MOVE LBIN4,LBIN3 CHANGE INDEX P B FDU405 P EJECT P* P* END OF FORMAT FOUND P* : & P* READ IN WANTED FORMAT SECTION D : P*
0x0ae91a…12f7b6 [0x0bc]: Pad {f00=0x3030, f01=0x0007, f02=» X . P MOVE GBIN4,DPBIN STORE DIMENSION OF BPOOL f P ADD GBIN4,W1 ADJUST & P CALL ICLEAR,LSTR81 ---CLEAR ITEM & P MOVE LSTR6A,=C' DSDS' TYPE = DSDS < P XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S > P XCOPY LSTR81,W6,W6,GSTR6D,W0 IDEN
0x0ae91a…12f7b6 [0x0bd]: Pad {f00=0x5738, f01=0x2c47, f02=»STR8A,W0 STORE FILENAME B P ADD LBIN1,W8 ADJUST POINTER z 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID P EJECT PFDU520 * P XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1 8 P XCOPY LSTR81,W14,W2,DPBIN,W0 MAX NUMB OF POOL-UNITS , P CLEAR L
0x0ae91a…12f7b6 [0x0be]: Pad {f00=0x5c42, f01=0x4c5c, f02=»FDU525 JMP IF CR=2 (DISC-ERROR) P P SET LBOOLA TRUE=POOL-ERROR | PFDU525 P* P* ERROR AT READ P* 4 P XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN 8 P CALL PCLOSE,LSTR81,BPOOL(GBIN4) ---CLOSE DISC-FILE P MOVE LBIN2,
0x0ae91a…12f7b6 [0x0bf]: Pad {f00=0x5445, f01=0x5354, f02=»B,LBIN3,LBIN2 ---TEST BIT (INDEX) D P BOK FDU540 JMP IF FALSE = 0 x : P XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 PFDU540 P ADD LBIN2,W1 NEXT BITINDEX , P CBNG LBIN2,W15,FDU530 GO ON UNTIL > 15 PFDU550 < P MOVE LBIN1,W0
0x0ae91a…12f7b6 [0x0c0]: Pad {f00=0x4c42, f01=0x494e, f02=»2,FDU520,FDU200, CLR,CAN C @ P FDU300,FDU300 RET,ENT j * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT P B FDU550 POWER OFF P EJECT P* P* UNPACK FORMAT DEFINITION P* PFDU590 , P PERF UNPFDF ***UNPACK FORMAT DEFINITION
0x0ae91a…12f7b6 [0x0c1]: Pad {f00=0x414c, f01=0x4c5c, f02=»PCLOSE,LSTR81,BPOOL(GBIN4) ---CLOSE DISC-FILE < P MOVE LBIN1,W24 x P ADD LBIN1,W2 GIVING 26 P DLETE LSTR81,W0,LBIN1 0 P MOVE GSTR80,LSTR81 SAVE OLD FILE AND VOLUME P* P* ASK FOR FURTHER ACTIONS P* ENTER=> UPDATE 0
0x0ae91a…12f7b6 [0x0c2]: Pad {f00=0x4f56, f01=0x455c, f02=»LBIN1,W0 NO CLEAR 6 " P MOVE LBIN4,W22 MESSAGE NO 22 V 8 P PERF WSMERR,KEYT12,=W'0' ***(ERROR-)MESSAGE ROUTINE | & P IB LBIN2,FDU500,FDU610, CLR,CAN C P FDU300,FDU700, RET,ENT C P FDU800,FDU850, PRT,DEL C P FDU900 DUP & P B FDU400 PO
0x0ae91a…12f7b6 [0x0c3]: Pad {f00=0x474f, f01=0x204f, f02=»N ( P EJECT @ P* N , P* NEW OR UPDATE OLD FORMAT DEFINITION X P* PFDU700 " P MOVE GBIN4,W1 BUFFERINDEX:=1 $ P MOVE GBIN5,W6 BUFFERPOINTER:=6 $ P TBT LBOOL3,FDU705 JMP IF UPDATE " P MOVE LBIN4,W0 FIELD SEQNO:=0 P B F
0x0ae91a…12f7b6 [0x0c4]: Pad {f00=0x4644, f01=0x5537, f02=»15 , > P PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD : * P IB LBIN2,FDU750,FDU720,FDU300,FDU740 | P B FDU710 P EJECT P* P* CANCEL-KEY P* PFDU720 " P TBF LBOOL3,FDU725 JUMP IF NEW , P PERF UNPFDF ***
0x0ae91a…12f7b6 [0x0c5]: Pad {f00=0x504c, f01=0x4159, f02=» 1,W1,W0 DISPLAY JUST FIELD CONTENTS " P B FDU705 V P* h P* POWER OFF r P* PFDU740 * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT PFDU742 $ P GETABX LBIN4 GET CURRENT FIELD PFDU745 * P GETFLD 0,LBIN4,LBIN3 SEARCH CURR
0x0ae91a…12f7b6 [0x0c6]: Pad {f00=0x3734, f01=0x3520, f02=» P EJECT , P* : P* END OF FORMAT FOUND D P* d PFDU750 n * P BZ FDU755 JMP IF ENTER AND NOT E-O-F | P MOVE LBIN1,W0 NO CLEAR P MOVE LBIN4,W7 MESSAGE NO 7 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE & P IB
0x0ae91a…12f7b6 [0x0c7]: Pad {f00=0x2c42, f01=0x504f, f02=»OL(GBIN4) ---CLEAR BUFFER < P XCOPY BPOOL(GBIN4),GBIN5,W6,GSTR6D,W0 F.DEFINITION NAME @ $ P ADD GBIN5,W6 BUFFERPOINTER:=12 . P MOVE LBIN1,W2 LENGTH OF SECTION TABLE:=2 * P MOVE LBIN2,W1 INDEX TO SECTION TABLE < P XCOPY BPOOL(GBIN4),GBIN5,W6,GST
0x0ae91a…12f7b6 [0x0c8]: Pad {f00=0x0170, f01=0x0024, f02=» P ADD GBIN5,W6 BUFFERPOINTER:=24 PFDU760 B " P ADD LBIN2,W1 INCREMENT INDEX P & P CBG LBIN2,W10,FDU770 JMP IF E-O-T v < P XCOPY BPOOL(GBIN4),GBIN5,W6,GSTR6I(LBIN2),W0 SECTION N & P ADD GBIN5,W6 BUFFERPOINTER:=BP+6 & P ADD LBIN1,W6 ADJUST TAB
0x0ae91a…12f7b6 [0x0c9]: Pad {f00=0x5732, f01=0x2c4c, f02=»BIN1,W0 LEN TYP OF SECT-TABLE , P MOVE GBIN3,GBIN4 LOAD STARTPOOL NUMBER 8 P B FDU999 h P EJECT z P* ( P* PRINT OUT OF FORMAT DEFINITION P* PFDU800 * P PERF ATTPRT *** CHECK PRINTER-DEVICE & P BNOK FDU810 JMP IF DEV
0x0ae91a…12f7b6 [0x0ca]: Pad {f00=0x3330, f01=0x305c, f02=»OK,CAN,RET ( P B FDU600 JMP ON ILLEGAL KEYSTROKES PFDU801 J P EDWRT PRNT,FORMF X P BNOK FDU805 r P MOVE LBIN3,W1 P PRINT PRNT,LBIN3,W0 P BNOK FDU805 $ P PERF DETPRT *** DETACH PRINTER P B FDU600 PFDU805 P M
0x0ae91a…12f7b6 [0x0cb]: Pad {f00=0x018c, f01=0x000a, f02=» PFDU810 6 P PERF WSMERR,KEYT5,=W'0' *** ERROR/MESSAGE ROUTINE : P IB LBIN2,FDU800,FDU600,FDU300,FDU800 CLR,CAN,RET,ENT P P B FDU400 P EJECT P* " P* DELETE FORMAT DEFINITION P* PFDU850 P MOVE LBIN1,W0 NO CLEAR
0x0ae91a…12f7b6 [0x0cc]: Pad {f00=0x0046, f01=0x0190, f02=»LR,CAN C v P FDU300,FDU860 RET ENT P B FDU400 POWER OFF 0 PFDU860 L P* Z . P* INITIATE PARAMETER BLOCK (LSTR81) d P* & P CALL ICLEAR,LSTR81 ---CLEAR ITEM . P MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) P TYPE = S(EC
0x0ae91a…12f7b6 [0x0cd]: Pad {f00=0x0000, f01=0x0000, f02=» F LE NAME X $ P MOVE LBIN1,W12 WORKPOINTER:=12 , P XCOPY LSTR81,LBIN1,W1,W1,W1 FILECODE:=1 8 P ADD LBIN1,W14 GIVING 26 h 4 P XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME P ADD LBIN1,W8 ADJUST POINTER 4 P XCOPY LSTR81,LBIN1,W6,GSTR6C,W0
0x0ae91a…12f7b6 [0x0ce]: Pad {f00=0x4f4d, f01=0x2044, f02=»IS F C Z P BOK FDU890 ( P BL FDU872 JMP IF CR=2 (DISC-ERROR) P SET LBOOLA TRUE=POOL-ERROR J PFDU872 n P* | P* ERROR AT DELETE P* 4 P XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN 8 P CALL PCLOSE,LSTR81,BPOO
0x0ae91a…12f7b6 [0x0cf]: Pad {f00=0x4954, f01=0x4820, f02=»'0':S IS F j PFDU875 0 P CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) P BOK FDU880 JMP IF FALSE = 0 J : P XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 n PFDU880 P ADD LBIN2,W1 NEXT BITINDEX , P CBNG LBIN2,W15,FDU875 GO
0x0ae91a…12f7b6 [0x0d0]: Pad {f00=0x2a2a, f01=0x2845, f02=»RROR-)MESSAGE F /ROUTINE d & P IB LBIN2,FDU870,FDU200, CLR,CAN C P FDU300,FDU200 RET,ENT : * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT Z P B FDU885 POWER OFF PFDU890 8 P CALL PCLOSE,LSTR81,BPOOL(GBIN4) ---CLOSE DISC-FILE P B F
0x0ae91a…12f7b6 [0x0d1]: Pad {f00=0x424f, f01=0x4f4c, f02=»4 TRUE=DUPLICATIONE F r PFDU940 POWER OFF P DISPLAY 4,W24,W24 " " P MOVE LBIN4,W3 FIELDNUMBER:=3 < . P GETFLD 0,LBIN4,LBIN3 MAKE FIELD 3 CURRENT b P SETCUR PFDU910 P GETABX LBIN4 * P SET LBOOLD FOR WSMERR; DISPLAY COND
0x0ae91a…12f7b6 [0x0d2]: Pad {f00=0x4c5c, f01=0x4320, f02=» N $ P FDU300,FDU940 RE F TURN,POWER OFF ~ P B FDU910 P* ( P* CANCEL KEY 2 P* J PFDU920 T P ERASE 1,W1,W0 b : P XCOPY GSTR6C,W0,W6,GSTR80,W8 RESTORE OLD VOLUME NAME x 8 P XCOPY GSTR8A,W0,W8,GSTR80,W0 RESTORE OLD FILE N
0x0ae91a…12f7b6 [0x0d3]: Pad {f00=0x0050, f01=0x2a20, f02=» n P* END OF FORMAT FOUND G x P* PFDU950 P MOVE LBIN1,W0 NO CLEAR P MOVE LBIN4,W7 MESSAGE NO:=7 @ 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE d & P IB LBIN2,FDU940,FDU920, CLR,CAN C P FDU300,FDU960 RET,EN
0x0ae91a…12f7b6 [0x0d4]: Pad {f00=0x4d45, f01=0x2046, f02=»ORMAT DEFINITION > 2 P XCOPY BPOOL(G G BIN4),W22,W1,W1,W1 VERSION NO:=1 ( P MOVE GBIN2,W2 INDICATE DIRECT WRITE ( P EJECT T P* b P* EXIT l P* ~ PFDU999 P CLEAR LBOOL4 NO DUPLICATION P RET P PEND P EJECT
0x0ae91a…12f7b6 [0x0d5]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»**************** , PUNPFDF PROC | & P G MOVE GBIN5,W12 BUFFERPOINTER:=12 ( P MOVE LBIN2,W1 SECTIONTABLE-INDEX:=1 * B P XCOPY GSTR6I(LBIN2),W0,W6,BPOOL(GBIN4),GBIN5 RES IN SEC. NAME V $ P ADD GBIN5,W12 BUFFERPOINTER:=24 PUNP100 ( P A
0x0ae91a…12f7b6 [0x0d6]: Pad {f00=0x494e, f01=0x355c, f02=»RESTORE SEC NAME 0 & P ADD GBIN5,W6 ADJUST BUFFE G@ RPOINTER v P B UNP100 ! PUNP999 ! " P RET ! 0 P PEND ! < P EJECT ! J P* ! X P INCLUDE FWFDUS,LIST ! b P END ! ~@ ! . NAME V $ P ADD GBIN5,W12 BUFFERPOINTER:=24 PUNP100
0x0ae91a…12f7b6 [0x0d7]: Pad {f00=0x4e34, f01=0x292c, f02=»GBIN5 RESTORE SEC NAME 0 & P ADD GBIN5,W6 ADJUST BUFFE G " v P B UNP100 ! PUNP999 ! " P RET ! 0 P PEND ! < P EJECT ! J P* ! X P INCLUDE FWFDUS,LIST ! b P END ! ~@ ! . NAME V $ P ADD GBIN5,W12 BUFFERPOINTER:=24 PUNP1
0x0ae91a…12f7b6 [0x0d8]: Pad {f00=0x4f4c, f01=0x2847, f02=»BIN4),GBIN5 RESTORE SEC NAME 0 & P ADD GBIN5,W6 ADJUST BUFFE k .O G .OLIN Q .OPER Q @.PAS Q| 3.PR Q .PREV Q 0 .PROT Qx N.REL Q} ;.RI Q R.REPL Q ` .SCREEN Q A.SECT Q .SEQ Qe 0.S
0x0ae91a…12f7b6 [0x0d9]: Pad {f00=0x5241, f01=0x0000, f02=» LBUFDS= R$ VBUFL= R# !:FMTITEMQA aCTAB QW k DE G DEV= R" cDSCB= R% DUPL= RB F Q" 8FALSE Q" UFC= R! INDS= R1 'LITADR= RR [MAXL= RC ME QT MINL= RD kNCLR QV
0x0ae91a…12f7b6 [0x0da]: Pad {f00=0x5249, f01=0x4620, f02=» QX YDDIV hDDUM EEJECT @ bEND s k EQ G EQU 5EQV vIDENT QINCLUDE LIST @ xNLIST @ zOPTNS $ qPDIV jXXXLABEL XXXXXEOF >ADD 6 M B
0x0ae91a…12f7b6 [0x0db]: Pad {f00=0x0800, f01=0x0047, f02=»BNE 9 MT BNEOF 9 MU *BNERR 9 MV XBNG 9 MU BNL 9 MV l W G
0x0ae91a…12f7b6 [0x0dc]: Pad {f00=0x0000, f01=0x0000, f02=» G
0x0ae91a…12f7b6 [0x0dd]: Pad {f00=0x0000, f01=0x0000, f02=» G P* " P* FORMATS IN PRNTFS MODULE P* 4 P* > P* FORM SECTION TOP LINES H P* l PFSPTOP FRMT v P FILLR ' ',5 P FLINK
0x0ae91a…12f7b6 [0x0de]: Pad {f00=0x5c27, f01=0x2d27, f02=»,20 $ P FEOR : P FMEND H P* V P* FORM SECTION ROWS ` P* ~ PFSPROW F l RM G RMT P FILLR ' ',2 P FMEL 'Z9',LBCD3A P FILLR '!',1 : P FCOPY GSTR80 N P FILLR '!',1 d P FMEL 'Z9',LBCD3A x , P FBF LBOOL7,
0x0ae91a…12f7b6 [0x0df]: Pad {f00=0x0001, f01=0x0122, f02=» " P* FORM SECTION BOTTOM LINES , P* R PFSPBOT FRMT P FILLR ' ',5 p P FILLR '-',6 l 0 G 0 P FILLR '-',20 P FEOR P FILLR ' ',5 . P FLINK ROWPOS B P FEOR X P FILLR ' ',5 f P FLINK ROWP10 z P FEOR
0x0ae91a…12f7b6 [0x0e0]: Pad {f00=0x000c, f01=0x0050, f02=» FTAB 15 " P FILLR '1',1 2 P FTAB 25 F P FILLR '2',1 V P FTAB 35 j P FILLR '3',1 z P F l TA G TAB 45 P FILLR '4',1 P FTAB 55 " P FILLR '5',1 2 P FTAB 65 F P FILLR '6',1 V P FTAB 75 j P FILLR '7',1 z P FTA
0x0ae91a…12f7b6 [0x0e1]: Pad {f00=0x0006, f01=0x0050, f02=»* PROWPOS FRMT & P FCOPY ='1234567890' : P FCOPY ='1234567890' V P FCOPY ='1234567890' r P F l CO G COPY ='1234567890' P FCOPY ='1234567890' P FCOPY ='1234567890' 6 P FCOPY ='1234567890' R P FCOPY ='1234567890' n P F
0x0ae91a…12f7b6 [0x0e2]: Pad {f00=0x0012, f01=0x0050, f02=» FLINK FSHLFR P FEOR 1ST HEADLINE , P FILLR ' ',2 H P FEOR 2ND HEADLINE P FILLR ' ',2 x , P FTE l XT G XT 'POSITION FIELD ORG DATA MUST-' P FTEXT ' AUTO DEC CHANGE ' , > P FTEXT ' DUPLICATE AUTO- L/R PRINTOUT MAND DECORATIO
0x0ae91a…12f7b6 [0x0e3]: Pad {f00=0x2045, f01=0x4f49, f02=»' P FTEXT ' ENT PROTECT' P FILLR ' ',11 8 P FTEXT 'S/D/B ADJ ' N P FCOPY =C'ROW/COLN' j P FTEXT ' V G AL' P FILLR ' ',11 P FTEXT 'HUIB' " P FEOR 4TH HEADLINE 8 P FILLR ' ',2 T P FEOR 5TH HEADLINE h
0x0ae91a…12f7b6 [0x0e4]: Pad {f00=0x2046, f01=0x4f52, f02=»MAT P FILLR ' ',2 " P FMEL 'ZZ9',GBCD3I(W6) LINE-NR * P FILLR '/',1 P " P FMEL 'TT9',GBCD3I(W11) COLUMN d P FTAB m 12 G 12 P FCOPY GSTR4A FIELD ID P FTAB 19 ( P FMEL 'X',GBCD3I(W7) ORIGIN 8 P FTAB 23 $ P FCOPY GSTR1I(
0x0ae91a…12f7b6 [0x0e5]: Pad {f00=0x5441, f01=0x425c, f02=»37 " P FCOPY GSTR1I(W14) AUTO E-O-I P FTAB 42 4 " P FCOPY GSTR1I(W18) FIX DECIMAL D P FTAB 48 j & P FCOPY GSTR1I(W19) CHA m NG G NGE PROTECT z P FTAB 53 $ P FCOPY GSTR1I(W24) DUPLICATE Y N $ P FTAB 55 L P FCOPY GSTR6B DUPL ITEM
0x0ae91a…12f7b6 [0x0e6]: Pad {f00=0x0008, f01=0x00f2, f02=» & P FMEL 'ZZZE/',GBCD3I(W8) SIZE ROWS ( P FMEL 'TTT',GBCD3I(W9) SIZE COLUMNS , P FTAB 83 X ( P FCOPY GSTR1I(W21) MAND. VALIDATION h m G P FTAB 84 P FCOPY LSTR16 DECORATIONS P FEOR DETAIL-LINE 6 P FMEND P P EJECT ^ P*
0x0ae91a…12f7b6 [0x0e7]: Pad {f00=0x0050, f01=0x5c46, f02=»ILLR ' ',2 P FTAB 12 P FCOPY =C'DEFAULT ' P FTEXT 'VALUE' 6 P FTAB 28 L P FILLR ':',1 P FCOPY GSTR80 DEFAULT VALUE p m G P FEOR P FMEND P EJECT P* . F P* PRINT FORMAT, FORM SECTION DYNAMIC FIELD
0x0ae91a…12f7b6 [0x0e8]: Pad {f00=0x494e, f01=0x4720, f02=»MESSAGE :' & P FCOPY GST80I(W5) GUIDING MESSAGE P FEOR . P FMEND < P EJECT J P* X J P* PRINT FORMAT, FORM SECTION DYNAMIC FIE m LD G LDS APPLICATION MESSAGE b P* , PFSDFAM FRMT APPLICATION MSG LINE FORMAT * P FILLR '
0x0ae91a…12f7b6 [0x0e9]: Pad {f00=0x000a, f01=0x0050, f02=» EJECT P* @ P* PRINT FORMAT, FORM SECTION DYNAMIC FIELDS VALIDATION P* H ( PFSDFVL FRMT VALIDATION LINE FORMAT R P FILLR ' ',2 ~IE m G P FTAB 12 P FBT VBOOL7,FVL100 P FTEXT 'VALIDATION' . P FTAB 28 J P F
0x0ae91a…12f7b6 [0x0ea]: Pad {f00=0x4944, f01=0x4154, f02=»ION LINE P FEOR P FMEND P EJECT P* " P* FORM SECTION HEADER LINES * P* P PFSIFRM FRMT Z P FLINK FSHLFR n P FEOR NEW L m IN G INE P FILLR ' ',2 P FEOR P FILLR ' ',5 . ( P FTEXT 'NUMBER OF OC
0x0ae91a…12f7b6 [0x0eb]: Pad {f00=0x5349, f01=0x5a45, f02=» (ROW * COLUMN):' P FMEL 'ZZ9',GBCD3I(W3) ROWS P FTEXT ' * ' " P FMEL 'ZZ9',GBCD3I(W4) COLUMNS 2 P FILLR ' ',3 X P FTEXT 'AUTOMATIC ENTERING:' l $ P W G FCOPY GSTR1I(W1) AUTO ENTERING P FILLR ' ',3 ( $ P FTEXT 'DECIMAL POIN
0x0ae91a…12f7b6 [0x0ec]: Pad {f00=0x5241, f01=0x5449, f02=»ON DEFAULTS. SCREEN:' $ P FCOPY GSTR1I(W2) SCREEN DECOR 1 P FILLR ' ',1 $ P FCOPY GSTR1I(W3) SCREEN DECOR 2 4 P FTAB 46 P FTEXT 'STATIC FIELDS:' l $ P FCO m PY G PY GSTR1I(W4) STATIC DEOR 1 P FTAB 62 $ $ P FCOPY GSTR1I(W5) STAT
0x0ae91a…12f7b6 [0x0ed]: Pad {f00=0x425c, f01=0x3639, f02=» P FTEXT 'DYNAMIC FIELDS:' & P FCOPY GSTR1I(W8) DYNAMIC DECOR 1 P FTAB 86 & & P FCOPY GSTR1I(W9) DYNAMIC DECOR 2 6 P FTAB 88 ` & P FCOPY GSTR1I(W10) DYNAMIC DECOR m 3 G 3 p P FTAB 90 & P FCOPY GSTR1I(W11) DYNAMIC DECOR 4 P
0x0ae91a…12f7b6 [0x0ee]: Pad {f00=0x484c, f01=0x4652, f02=» FRMT & P FTEXT ' +' PRINT WITHOUT ADVANCE P FCOPY =C'FORM ' P FCOPY =C'SECTION' P FILLR ':',1 8 P FCOPY GSTR6A FORM SECTION L P FILLR ' ',2 n P FCOPY =C'VOLU m ME G ME' P FILLR ':',1 P FCOPY GSTR6C VOLUME P F
0x0ae91a…12f7b6 [0x0ef]: Pad {f00=0x3349, f01=0x2857, f02=»5) VERSION NO P FILLR ' ',2 P FTEXT 'TYPE:' P FMEL 'X',GBCD3I(W2) TYPE P FILLR ' ',2 * P FTEXT 'RELEASE DATE: ' > P FCOPY RELDAT ^ P FILLR ' ',6 t P FTEXT ' m PA G PAGE:' $ P FMEL 'ZZ9',GBCD3I(W12) PAGE NO P F
0x0ae91a…12f7b6 [0x0f0]: Pad {f00=0x0012, f01=0x00b8, f02=» P FILLR ' ',5 P FCOPY =C'DEFAULT ' P FCOPY =C'GUIDING MESSAGE' P FILLR ':',1 . P FCOPY GST80I(W1) DEFAULT GUIDING MESSAGE , P FEOR ^ P FMEND l P EJECT z PFORMF FR m@0MT G@0MT P FTEXT ' 1' P FMEND @ ,
0x0ae91a…12f7b6 [0x0f1]: Pad {f00=0x5c46, f01=0x454f, f02=»R P FILLR ' ',5 P FCOPY =C'DEFAULT ' P FCOPY =C'GUIDING MESSAGE' P FILLR ':',1 . P FCOPY GST80I(W1) DEFAULT GUIDING MESSAGE , P FEOR ^ P FMEND l P EJECT z PFORMF FR m G P FTEXT ' 1' P FMEND @
0x0ae91a…12f7b6 [0x0f2]: Pad {f00=0x00a4, f01=0x000a, f02=» P FEOR P FILLR ' ',5 P FCOPY =C'DEFAULT ' P FCOPY =C'GUIDING MESSAGE' P FILLR ':',1 . P FCOPY GST80I(W1) DEFAULT GUIDING MESSAGE , P FEOR ^ P FMEND l P EJECT z PFORMF FR m ,L G ,LABIN CHECK IF END ATTAB < P BE
0x0ae91a…12f7b6 [0x0f3]: Pad {f00=0x5c53, f01=0x5542, f02=» LBIN18,W1 DECREASE VARIABLE LENGTH = , P CBE LBIN18,W0,VAR980 JMP IF NO VARIABLE = P B VAR195 = PVAR204 = & P ADD LBIN3,W2 ADJUST ATAB-POINTER = , P MOVE VBIN7,W0 WORKITEM0 = V . P XCOPY VBIN7,W1,W1,ATTAB,L H
0x0ae91a…12f7b6 [0x0f4]: Pad {f00=0x0000, f01=0x0000, f02=» H
0x0ae91a…12f7b6 [0x0f5]: Pad {f00=0x0000, f01=0x0000, f02=» H@ P* 0 P* K
0x0ae91a…12f7b6 [0x0f6]: Pad {f00=0x2d34, f01=0x5c43, f02=» | P ULN,RVS,BLN 5-7 @ N,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP 17-19 @ m H 0 P
0x0ae91a…12f7b6 [0x0f7]: Pad {f00=0x4847, f01=0x482c, f02=» 1-4 C | P ULN,RVS,BLN 5-7 @ N,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP 17-19 @ m H
0x0ae91a…12f7b6 [0x0f8]: Pad {f00=0x0078, f01=0x0018, f02=» P FCOPY ='1234567890' P FCOPY ='1234567890' P FCOPY ='1234567890' P FCOPY ='1234567890' P FCOPY ='1234567890' P FCOPY ='1234567890' P FMEND < P EJECT J P* X P* FORM-FEED FORMAT b P* PFORMF m IN H IN
0x0ae91a…12f7b6 [0x0f9]: Pad {f00=0x5c46, f01=0x554c, f02=» P FILLR 'Y',1 P FNUL P FTEXT '/N/C):' , P FKI 32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB P FCOPY FDVSTR(W1) P FTAB 46 P FTEXT 'MINIMUM ' ( FCOPY ='LENGTH' B P FTAB 62 Z FILLR ':',1 j , P FKI 64,APPL=105,M m AX
0x0ae91a…12f7b6 [0x0fa]: Pad {f00=0x0004, f01=0x0076, f02=» P FUL P FILLR 'N',1 P FNUL P FTEXT '/C):' , P FKI 32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W2) P FTAB 46 P FTEXT 'AUTO TAB' ( P FTAB 57 B P FTEXT '(Y/' R P FUL f P FILLR 'N',1 r P FNUL
0x0ae91a…12f7b6 [0x0fb]: Pad {f00=0x0050, f01=0x5c46, f02=»TEXT 'DUPLICATE ' ~ P FTAB 29 P FILLR ':',1 2 P FKI 32,APPL=106,ALPHA,MAXL=6,MINL=1,NEOI,CTAB FCOPY DUPL P FTAB 46 P FTEXT 'VERIFY' P FTAB 57 0 P FTEXT '(Y/' @ P FUL T P FILLR 'N',1 ` P FNUL t P FILLR '
0x0ae91a…12f7b6 [0x0fc]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x0fd]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x0fe]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»**************** 6 P* P* , P* LATEST UPDATE= 841120 MADE BY CJ P* P* P* P* HISTORY= : P* 841120/CJ MUL&DIV NOW VIA ASS.ROUTINE B P* 840402/CJ <PRINT> ON VD47/81 NOT OK - SOL
0x0ae91a…12f7b6 [0x0ff]: Pad {f00=0x3220, f01=0x2620, f02=»MODDELLING NOT OK - SOLVED : @ P* 830923/CJ VALBUF OVERFLOW-SIGNAL VIA VBBOOL B P* 830502/CJ MESSAGE ON SYS-LINE "NOW PRINTING" H P* 830325/CJ RELEASE-DATE TAKEN FROM WSMDDV TO FSPTOS P* ` P* j
0x0ae91a…12f7b6 [0x100]: Pad {f00=0x5620, f01=0x0002, f02=» Z P* h * P ENTRY PRNTFS ***PRINT FORMAT SECTION r 0 P ENTRY PRFSMD ***PRINT FORMAT SECTION LAYOUT P* . P EXPROC USINIT ***UNPACK SECTION INITIALS ( P EXPROC USFPAR ***UNPACK NEXT FIELD , P EXPROC SEATAB ***SEARCH ATTRIBUTE-TABLE < 6 P
0x0ae91a…12f7b6 [0x101]: Pad {f00=0x0054, f01=0x002e, f02=» P EXT EMPTYT ---ASSRUT:CHECK IF EMPTY ITEM ^ $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM " P EXT TESTB ---ASSRUT:TEST BIT ( P EXT WXMUL ---ASSRUT:MULTIPLICATION P* P* $ PCED EQU X'B7' CHANGE ECHO-DEVICE P F P EJECT N L P**********
0x0ae91a…12f7b6 [0x102]: Pad {f00=0x4f46, f01=0x2054, f02=»HE FORMAT SECTION & P* p P* -USED VARIABLES : z 0 P* LBIN2 = 0 OK 6 P* = 1 CLEAR-KEY 6 P* = 2 CLEAR-KEY 8 P*
0x0ae91a…12f7b6 [0x103]: Pad {f00=0x5c45, f01=0x4a45, f02=»CT L P INCLUDE WSMKEY,LIST Z P INCLUDE KEYT5,LIST v P P P EJECT P* * P* PRINT USER FORMAT DEFINITION P* PPRNTFS PROC . P PERF USINIT ***UNPACK FORMAT SECTION INIT PPRN000 8 P EDWRT PRNT,FORMF FO
0x0ae91a…12f7b6 [0x104]: Pad {f00=0x0010, f01=0x001c, f02=» P IB LBIN2,PRN000,PRN000 L P CMP W1,W1 CR:=0 l " P B PRN999 CLR-,CAN- OR RET-KEY P* @ P* PRINT INITIAL PARTS AND LAYOUT *** MESSAGE ON SYSLINE P* PPRN030 ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 $ P TBF VD82,PRN035 JMP IF
0x0ae91a…12f7b6 [0x105]: Pad {f00=0x4c53, f01=0x5452, f02=»81,=C'++NOW PRINTING ' : P MOVE LSTR1,=X'1B' b P MOVE TB7BIN1,=W'15' | 8 P XCOPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE P ADD TB7BIN1,W1 ADJUST . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE ( P DSC SYSL,2,TB7BIN1 ERASE LAST LINE $ .
0x0ae91a…12f7b6 [0x106]: Pad {f00=0x4152, f01=0x2c4c, f02=»STR81 ---CLEAR LSTR81 0 " P MOVE GBCD3I(W12),W1 PAGENO:=1 P MOVE LBIN4,W0 WORKITEM:=0 > P XCOPY LBIN4,W1,W1,BPOOL(GBIN3),W18 GET NUMBER OF SECTORS * P MOVE LINNO(W9),LBIN4 CONVERT BIN=>BCD $ P EDWRT PRNT,FSIFRM HEADER LINES P BNOK PRN000
0x0ae91a…12f7b6 [0x107]: Pad {f00=0x5341, f01=0x4745, f02=» P BNOK PRN000 I/O-ERROR @ P* ^ 8 P* PRINT FORMAT SECTION DETAILS OF DYNAMIC FIELDS h P* P MOVE LBIN5,W0 LINENO:=0 , P MOVE LBIN6,W80 LINE-COUNTER:=HIGH-VALUE & P MOVE LBIN10,=W'44' PAGE-SIZE:=44 . P MOVE LBIN11,W0 ATTRIBUTE-
0x0ae91a…12f7b6 [0x108]: Pad {f00=0x000a, f01=0x0050, f02=»PRN040 2 $ P ADD LBIN5,W1 INCREMENT LINE NO @ 0 P CBG LBIN5,LBIN8,PRN980 JUMP IF E-O-SECTION h ( P MOVE GBCD3I(W6),LBIN5 LOAD 'LINENO' PPRN050 & P CALL ICLEAR,GSTR6B ---CLEAR ITEM * P CALL ICLEAR,GBCD3I(W8) ---CLEAR ITEM * P CALL ICLEAR,G
0x0ae91a…12f7b6 [0x109]: Pad {f00=0x4c45, f01=0x4152, f02=»,GST80I(W6) ---CLEAR ITEM * P CALL ICLEAR,GST80I(W7) ---CLEAR ITEM N * P CALL ICLEAR,GST80I(W5) ---CLEAR ITEM | & P CALL ICLEAR,VALBUF ---CLEAR ITEM * P PERF SEATAB ***SERCH ATTRIBUTE TABLE . P TBT LBOOL4,PRN040 JUMP IF NO FIELD FOUND , P M
0x0ae91a…12f7b6 [0x10a]: Pad {f00=0x0034, f01=0x0050, f02=» XCOPY GSTR4A,W0,W4,FIDTAB,LBIN12 LOAD FIELD-ID & P CLEAR VBBOOL ^ 0 P PERF USFPAR ***UNPACK FORMAT SECTION FIELD t P BOK PRN055 , P SET VBBOOL VALIDATION-BUFFER OVERFLOW! P B PRN999 RET WHEN OVERFLOW PPRN055 & P MOVE LSTR16,=C'
0x0ae91a…12f7b6 [0x10b]: Pad {f00=0x422c, f01=0x4c42, f02=»IN20,LBIN2 ---TEST DECOR BIT P BT PRN065 JUMP IF TRUE D 6 P XCOPY LSTR16,LBIN2,W1,LSTR1,W0 SPACE OUT IF FALSE d PPRN065 P ADD LBIN2,W1 NEXT BIT INDEX , P CBNG LBIN2,W15,PRN060 JMP IF NOT E-O-B 2 P PERF PRINT,FSDFHL,FSDFDL, ***PRINT ONE LI
0x0ae91a…12f7b6 [0x10c]: Pad {f00=0x000d, f01=0x017e, f02=» P MOVE GSTR80,GBCD80 PPRN070 : . P CALL EMPTYT,GSTR80 ---CHECK IF EMPTY ITEM H P BNOK PRN100 JUMP IF EMPTY z 2 P PERF PRINT,FSDFHL,FSDFDV, ***PRINT ONE LINE C P LBIN6,LBIN10,W6,W5 ( P CBNE LBIN2,W0,PRN999 JUMP IF NOT OK PPRN100
0x0ae91a…12f7b6 [0x10d]: Pad {f00=0x494e, f01=0x5420, f02=»ONE LINE C P LBIN6,LBIN10,W6,W5 & ( P CBNE LBIN2,W0,PRN999 JUMP IF NOT OK B PPRN150 n 2 P CALL EMPTYT,GST80I(W6) ---CHECK IF EMPTY ITEM | P BNOK PRN200 JUMP IF EMPTY 2 P PERF PRINT,FSDFHL,FSDFAM, ***PRINT ONE LINE C P LBIN6,LBIN10,W6,W5
0x0ae91a…12f7b6 [0x10e]: Pad {f00=0x0010, f01=0x0004, f02=» * P CALL EMPTYT,VALBUF ---CHECK IF EMPTY & P BNOK PRN250 JMP IF NO VALIDATION @ P CLEAR VBOOL7 j & P MOVE VBIN4,W0 E-O-PAGE POINTER:=0 PPRN202 P MOVE VBIN5,W1 INDEX :=1 PPRN205 , P CALL ICLEAR,LINNO(VBIN5) ---CLEAR ITEM , P C
0x0ae91a…12f7b6 [0x10f]: Pad {f00=0x0030, f01=0x0050, f02=» MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 ( P MOVE VBIN2,W1 LINE NUMBER INDEX:=1 < ( P MOVE VBIN5,W1 LINE NUMBER INDEX:=1 h . P MOVE VBIN3,VBIN4 LOAD START OF NEXT PAGE . P PERF VLPAGE,VBIN3 ***VALIDATION PAGE LOAD , P CALL EMPTYT,LINNO(W1) ---
0x0ae91a…12f7b6 [0x110]: Pad {f00=0x018e, f01=0x0018, f02=» P LBIN6,LBIN10,W6,W5 ( P CBNE LBIN2,W0,PRN999 JMP IF NOT OK P SET VBOOL7 L . P ADD VBIN5,W1 INCREMENT LINE NUMBER INDEX ` ( P CBE VBIN5,W8,PRN202 JMP IF NEW PAGE ( P CBE VBIN2,VBIN5,PRN250 JMP IF E-O-V P B PRN220 NEXT LINE PPRN250
0x0ae91a…12f7b6 [0x111]: Pad {f00=0x0000, f01=0x0000, f02=» H P RET P PEND P EJECT P* , < P* THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER. 6 4 P* THE FORMAT OF THE LINE IS DECIDED OF THE v 6 P* PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS, : P* THE HEADER FORMAT WILL
0x0ae91a…12f7b6 [0x112]: Pad {f00=0x5554, f01=0x2050, f02=» H ARAMETERS: HEADER = HEADER FORMAT | 8 P* LINE = LINE FORMAT * @ P* LINENO = ACTUAL LINE NUMBER f L P* LINMAX = MAXIMUM NUMBER OF LINES IN ONE P < P*
0x0ae91a…12f7b6 [0x113]: Pad {f00=0x2020, f01=0x2020, f02=» H OUTPUT VARIABLE : LBIN2 = 0 OK F P* (= 1 CLEAR-KEY, TRY AGAIN) * : P* = 2 CANCEL-KEY t 8 P* = 3 RET-KEY P* L P**
0x0ae91a…12f7b6 [0x114]: Pad {f00=0x0050, f01=0x5c50, f02=»FRMT HEADER I P PFRMT LINE P PBIN LINENO P PBIN LINMAX 0 P PBIN LINEST D P PBIN HLINES X & P MOVE LBIN2,W0 CLEAR ERROR-SIGNAL l P EJECT : P CBNG LINENO,LINMAX,PRI300 JUMP IF LINMAX NOT REACHED ( P EDWRT PRNT,FORMF
0x0ae91a…12f7b6 [0x115]: Pad {f00=0x4427, f01=0x2b31, f02=»' INCREMENT PAGENR I h , P MOVE LINENO,LINEST REINSTATE LINENUMBER , P ADD LINENO,HLINES ADJUST FOR HEADLINES 8 PPRI300 h & P EDWRT PRNT,LINE PRINT DETAIL-LINE v P BOK PRI400 JUMP IF OK PPRI350 ( P MOVE LBIN4,W3 PRINTER NOT OPERABL
0x0ae91a…12f7b6 [0x116]: Pad {f00=0x454e, f01=0x4f2c, f02=»W1 INCREMENT LINE-NUMBER I l P MOVE LBIN2,W0 OK PPRI999 " P RET 0 P PEND < P EJECT J P* X : P* THIS MODULE PRINTS THE FORMAT SECTION MODEL PORT b P* PPRFSMD PROC 0 P EDWRT PRNT,FSPTOP FORMAT SECTION TOP LINE
0x0ae91a…12f7b6 [0x117]: Pad {f00=0x0148, f01=0x0014, f02=» P MOVE LBIN4,W23 t $ P TBF I VD82,PRF100 JMP IF NOT VD82 ( P MOVE LBIN3,=X'0101' ROW:=01,COL:=01 $ P MOVE LBIN4,W24 P PPRF100 h P ADD LBIN4,W1 v ( P CALL ICLEAR,LSTR81 ---INITIAL CLEAR $ P MOVE LSTR81,=C'++NOW PRINTING ' P M
0x0ae91a…12f7b6 [0x118]: Pad {f00=0x0019, f01=0x0152, f02=» . P DSC SYSL,6,LBIN3 SET CURSOR ON I LAST LINE p ( P DSC SYSL,2,TB7BIN1 ERASE LAST LINE . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE > : P WRITE SYSL,LSTR81,TB7BIN1 WRITE QUESTION ON LAST LINE p P EJECT P MOVE LBIN1,W1 ROW.NO:=1 P
0x0ae91a…12f7b6 [0x119]: Pad {f00=0x0050, f01=0x5c4d, f02=»OVE LBCD3A,LBIN1 LOAD ROW NUMBER d B P C I BNG LBCD3A,GBCD3I(W10),PRF210 JMP IF < OR = NUMB OF H-LINES , P CLEAR LBOOL7 FALSE=> NO MORE HEADLINES D PPRF210 t 4 P CALL EMPTYT,GVDUR(LBIN1) ---CHECK IF ROW EMPTY P BNOK PRF240 JUMP IF EMPTY
0x0ae91a…12f7b6 [0x11a]: Pad {f00=0x5552, f01=0x284c, f02=»BIN1),W0 LOAD ROW-LAYOUT B PPRF240 * P C I BE LBIN9,W80,PRF250 JUMP IF MAX SIZE @ P XCOPY GSTR80,LBIN9,W1,LSTR6A,W1 LOAD ENDMARK OF SECTION (!) , PPRF250 p * P EDWRT PRNT,FSPROW FORMAT SECTION ROW ~ P BNOK PRF999 JUMP IF NOT OK P
0x0ae91a…12f7b6 [0x11b]: Pad {f00=0x495a, f01=0x4520, f02=»REACHED , P EJECT j P* x P* END ROWS I EMPTY P* & P MOVE LSTR81,=C'-' LOAD '------..' 8 P XCOPY GSTR80,W0,LBIN9,LSTR81,W0 FILL UP WITH ----- B " P MOVE LBCD3A,LBIN1 LOAD ROW NO ~ * P EDWRT PRNT,FSPROW FORMAT SECTION ROW
0x0ae91a…12f7b6 [0x11c]: Pad {f00=0x4245, f01=0x5c4c, f02=»BIN1,LBIN4,PRF300 JUMP IF END OF ROWS N & P MOVE LBCD3A,L IAPBIN1 LOAD ROW NUMBER * P EDWRT PRNT,FSPROW FORMAT SECTION ROW P BNOK PRF999 JUMP IF NOT OK J P B PRF260 GO ON n PPRF300 2 P EDWRT PRNT,FSPBOT FORMAT SECTION BOTTOM LINES
0x0ae91a…12f7b6 [0x11d]: Pad {f00=0x0000, f01=0x001e, f02=» L I D ROW NUMBER * P EDWRT PRNT,FSPROW FORMAT SECTION ROW P BNOK PRF999 JUMP IF NOT OK J P B PRF260 GO ON n PPRF300 2 P EDWRT PRNT,FSPBOT FORMAT SECTION BOTTOM L
0x0ae91a…12f7b6 [0x11e]: Pad {f00=0x001e, f01=0x0140, f02=»@ L n CMP I CMP LBIN2,LBIN7 COMPARE ATTRPOS & CURSERPOS BUF200 JMP IF INSERT LINE ( ( P BG FSM161 JMP IF GREATER BPOINT,LENGTH ADJUST BUFFER POINTER ( d P B BUF010 BL FSM163 JMP IF LESS NAL
0x0ae91a…12f7b6 [0x11f]: Pad {f00=0x5c43, f01=0x4245, f02=» LBIN11,W0,FSM164 JMP IF BEGIN OF ATTAB TER WHEN FOUND ( P PBUF980 ( P R n CBE I CBE LBIN6,W1,FSM164 JMP IF COLUM=1 P* ) & P* VALIDATION PAGE LOAD ) 0 ADD LBIN11,W2 ADJUST ATTAB-POINTER UFFER POOL-INDEX LIDATION PAGE ) P* XCOPY LBIN3,W0,W2,A
0x0ae91a…12f7b6 [0x120]: Pad {f00=0x2020, f01=0x2020, f02=» CBE LBIN3,=X'FF08',FSM168 JMP IF PREV ATTR = SP-ATTR T = START POINTER IN VALBUF nFSM1 IFSM161 XSLL,LBIN1,W12,LBIN1 SHIFT LEFT BIT 0-3 OF-PAGE BUFFER POINTER (BACK-PAGI MOVE LBIN3,=X'FFFE' STEP = -2 VALIDATION * Z " P* VBIN1 = UPDATED SET LBOOLC TR
0x0ae91a…12f7b6 [0x121]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»********FSM163 IN20,=X'0FFF' CHECK MAXSIZE OPTIONALS LPAGE PROC STPNT * j P PBIN STPNT n ADD I ADD LBIN11,W4 ADJUST POINTER + PVLP020 + $ P MOVE LBIN1,W0 WORKITEM:=0 +FSM164 ,W1 CR:=0 1,W1,W1,VALBUF,STPNT GET BASIC LINE LENGTH + T . P CBE LBIN1,W MOVE LB
0x0ae91a…12f7b6 [0x122]: Pad {f00=0x5450, f01=0x4e54, f02=»,W2 ADJUST BUF ADD LBIN11,LBIN3 ADJUST FOR DECOR-BYTE N3 LOAD LINE NUMBER + P , P SUB LBIN1,W3 n XCO I XCOPY LBIN16,W0,W2,ATTAB,LBIN11 FETCH DECOR NIA(VBIN1),LBIN1 STORE NUMB OF CHAR SUB LBIN11,LBIN3 ADJUS VBIN2),W0,LBIN1,VALBUF,STPNT STORE BASIC LINE , X * P A C
0x0ae91a…12f7b6 [0x123]: Pad {f00=0x5c43, f01=0x4245, f02=» STPNT,VBBIN,VLP900 FSM166 PUT : STLEN =(FORMAL) BASIC VERB LENGTH LP020 JMP IF PAGE FULL , ^ PVLP9 n MOV I MOVE LSTR4A,=X'0000FF08' LOAD STATIC SPACE ATTR UF POINTER - P MOVE STPNT, XCOPY LSTR4A,W0,W2,LBIN7,W0 LOAD CURR POSITION IA(STPNT),W0 ZEROISE - t P
0x0ae91a…12f7b6 [0x124]: Pad {f00=0x0022, f01=0x0050, f02=»* LINE NUMBER WITHIN SC CBE LBIN11,W0,FSM168 JMP IF B-O-T UTINE SEARCH7S AND COMPARE IF KEYED IN - T & P I
0x0ae91a…12f7b6 [0x125]: Pad {f00=0x0000, f01=0x0000, f02=» I 0 8 @ H P X ` h p x
0x0ae91a…12f7b6 [0x126]: Pad {f00=0x0000, f01=0x0000, f02=» I . P IDENT UDFVAL REL=2.3,851009,870155940230 P 6 D P*************************************************************** > P*
0x0ae91a…12f7b6 [0x127]: Pad {f00=0x5252, f01=0x4d45, f02=»SS OR WARN. H P* 850306/JE ERR WHEN NUMERIC CONSTANTS 1ST OPERAND (LEFT) & B P* 850208/CJ ERR FRO I M REP 840821 -- WA01=STR(DAY(2)) r F P* 841207/CJ ERR WHEN CONC ERR "HI","MESSAGE"&WA01(1:4) ( 6 P* 8411
0x0ae91a…12f7b6 [0x128]: Pad {f00=0x4c44, f01=0x2045, f02=»XIT-HANDLING DELETED (S0010 EXIT XX) : P* 831205/CJ EXCHANGE FROM LSTR81 -> 0BJSTR 8 P* v D P**************** I *********************************************** P DDUM WSMDDV 8 P PDIV L 8 P**********************************
0x0ae91a…12f7b6 [0x129]: Pad {f00=0x5641, f01=0x4c49, f02=»DATION OBJECT CODE ( P* LBIN2: NUMBER OF OBJECT BYTES ( P* LBIN3: INDEX TO CURRENT BUFFER L 0 P* LBIN4: POINTER TO S I TART OF OBJECT CODE x & P* LPBIN: LENGTH OF A POOL-UNIT " P* VBBIN : LENGTH OF VALBUF F P* l P
0x0ae91a…12f7b6 [0x12a]: Pad {f00=0x2a20, f01=0x2020, f02=» USED WORKITEMS : 8 P* OBJSTR: WORKBUFFER FOR ONE LINE P* LBIN18: V $ P* V I BIN1,VBIN2 z B P* LSTACK(10): STACK FOR OPERATOR POSITIONS . P*
0x0ae91a…12f7b6 [0x12b]: Pad {f00=0x525c, f01=0x2d2d, f02=»- CLEAR ITEM * P EXT MSKOUT --- MASK A BIT COMBINATION P EXT TESTB --- TEST BIT < P EXT GETIND --- GET LENGTH P EXT CLEARB --- CL I EAR BIT ~ P EXT WXSLR --- SHIFT RIGHT P EXT WXDIV --- DIVISION 2 P EJECT R PUDFVAL PRO
0x0ae91a…12f7b6 [0x12c]: Pad {f00=0x4f4c, f01=0x3320, f02=» P CLEAR VBOOL4 P CLEAR VBOOL5 P CLEAR VBOOL6 ( P CLEAR VBOOL7 > P* T P* LINE ^ P* BEGINS HERE p P* I , PUDF001 MMOVE VBIN2,VBIN8,VBIN4,VBIN6,W0 ( P MOVE OBJSTR,=X'20' CLEAR WORKBUFFER 4 ( P MOV
0x0ae91a…12f7b6 [0x12d]: Pad {f00=0x0050, f01=0x5c50, f02=»ERF READOB,VSTR2,W0,W1 ***READ LINE LENGTH 2 P XCOPY LBIN15,W1,W1,VSTR2,W0 SAVE LINE LENGTH $ P ADD VBIN6,W1 COUNTER OBJ.BYTES V $ P ADD VBIN7,W1 TOTA I L OBJECT BYTES ~ PUDF0011 P* & P* INDENTION + LINE NUMBER 0 P* T P
0x0ae91a…12f7b6 [0x12e]: Pad {f00=0x4e37, f01=0x2c57, f02=»2 TOTAL OBJ.BYTES . P XCOPY VBIN1,W0,W2,VSTR2,W0 INDENT.+LINENR P MOVE LBIN1,W0 4 P EJECT J 2 P MOVE VBIN2,=X'07FF' MASK=X'0000011111111111' X . P C I ALL MSKOUT,VBIN1,VBIN2 LINE NR TO VBIN1 : P XCOPY OBJSTR,VBIN3,W2,VBIN1,W0 LINE NR
0x0ae91a…12f7b6 [0x12f]: Pad {f00=0x5732, f01=0x2c56, f02=»STR2,W0 INDENT.+LINE NR 0 P CALL MSKOUT,VBIN1,VBIN2 INDENTIONS TO VBIN1 , P CALL WXSLR,VBIN1,W11,VBIN1 SHIFT RIGHT 6 0 P CALL CLEARB,VBIN1,W0 CLEAR THE LEFTMOST B I IT f & P ADD VBIN3,VBIN1 INCREASE POINTER P EJECT 4 P* B P* S
0x0ae91a…12f7b6 [0x130]: Pad {f00=0x5c4f, f01=0x424a, f02=»STR,VBIN3,W1,LSTR1,W0 ";" TO BUFFER & P ADD VBIN3,W1 INCR. OUTPUT POINTER P CLEAR VBOOL4 2 PUDF003 H 4 P PERF READOB,VSTR2,W0,W1 ***READ STATEMENT CODE V $ P A I DD VBIN4,W1 COUNTER OBJ.BYTES 0 P XCOPY VBIN5,W1,W1,VSTR2,W0 STRING TO
0x0ae91a…12f7b6 [0x131]: Pad {f00=0x315c, f01=0x434f, f02=»UNTER OBJ.BYTES 2 P CALL GETIND,STMTS,LBIN18,VBIN1 ---GET LENGTH " P IB VBIN5,UDF010, ASSIGNMENT C $ $ P UDF010, ASSIGNMENT WITH LET C J P UDF010, " C r P UD I F040, GO TO OR GOTO C P UDF040, " C P UDF060, IF
0x0ae91a…12f7b6 [0x132]: Pad {f00=0x4f20, f01=0x544f, f02=» C P UDF100, ON GOTO C P UDF120, CALL C P UDF009, NOT VALID C P UDF140, SECT C , P UDF009, NOT VALID C D P UDF150, ATTR C b P UDF009, NOT VALID C I z P UDF140, STOP C P UDF009, NOT VALID C P
0x0ae91a…12f7b6 [0x133]: Pad {f00=0x4630, f01=0x3039, f02=», NOT VALID C P UDF200, REM C P UDF009, NOT VALID C P UDF210 EMPTY STATEMENT ( P CBE VBIN5,W0,UDF010 ALSO ASSIGNMENT 6 PUDF009 b P EJECT p P* ~ . P* AS I SIGNMENT, NUMERIC OR ALPHANUMERIC P* * 8 PUDF010
0x0ae91a…12f7b6 [0x134]: Pad {f00=0x2021, f01=0x4649, f02=»D & P SUB LBIN4,W1 ADJUST INPUT POINTER 6 P PERF READOB,OBJSTR,VBIN3,W4 ***GET ITEM TO BUFF. * P ADD VBIN4,W4 " COUNTER OBJ.BYT. 2 & P PERF DSPACE DELETE SPACES F.FIELD ` PUDF014 J P MOVE LSTR1,=C'=' 6 P COPY OBJSTR,VBIN3
0x0ae91a…12f7b6 [0x135]: Pad {f00=0x305c, f01=0x2045, f02=»ND FOR ALL INTRUCTIONS P* P* !INP OR !FID VARIABLE P* 2 PUDF015 PERF READOB,LSTR1,W0,W1 *** READ 2.BYTE ( P CBE LSTR1,=X'00',UDF016 0000 = !INP J & P MOVE LSTR4A,=C'!FID' 0001 J = !FID v P B UDF017 PUDF016 MOVE
0x0ae91a…12f7b6 [0x136]: Pad {f00=0x002a, f01=0x0050, f02=» ADD VBIN3,W4 INCREASE OUTPUT POINTER P B UDF014 P EJECT P* " P* GO TO OR GOTO STATEMENT P* 6 8 PUDF040 PERF STEXT,STMTS,STVAL *** GET STATEMENT TEXT @ , P PERF LINENR *** GET J THE TARGET LINE NR | P B UDF900 EN
0x0ae91a…12f7b6 [0x137]: Pad {f00=0x5354, f01=0x4558, f02=»T,STMTS,STVAL *** GET STATEMENT TEXT & P PERF EXPR *** EXPRESSION HANDLER $ P SET VBOOL1 SECOND PART OF TEXT > P CALL GETIND,STMTS,LBIN18,VBIN1 ---LENGTH OF STMTS8,VBIN1 0 8 P PERF STEXT,STMTS,STVAL *** ST J ATEMENT TEXT,2ND PART r . P CBE
0x0ae91a…12f7b6 [0x138]: Pad {f00=0x0011, f01=0x00a2, f02=» P* P* ON GO TO OR P* ON GOTO STATEMENT P* > PUDF100 PERF STEXT,STMTS,STVAL ***STATEMENT TEXT TO BUFFER & P PERF EXPR *** EXPRESSION HANDLER @ $ P SET VBOOL1 SECOND PART OF TEXT jST J : P CALL GETIND,STMTS,LBIN1
0x0ae91a…12f7b6 [0x139]: Pad {f00=0x4e45, f01=0x204e, f02=»R ~ P 0 P CBE LBIN1,VBIN4,UDF145 START NEXT STATEMENT P MOVE LSTR1,=C',' $ P COPY OBJSTR,VBIN3,W1,LSTR1,W0 " P ADD VBIN3,W1 INCREASE POINTER . " P B UDF101 GET NEXT LINE NUMBER T P EJECT z P* ST J P* CALL STATEME
0x0ae91a…12f7b6 [0x13a]: Pad {f00=0x5c56, f01=0x4249, f02=»N1,W1,W1,VSTR2,W0 UF-INDEX TO BINARY , P ADD VBIN4,W1 INCR. STATEMENT OBJ.LENGTH " P MOVE VSTR2,=C'UF' CONSTANT UF . P COPY OBJSTR,VBIN3,W2,VSTR2,W0 TO BUFFER " " P ADD VBIN3,W2 INCREASE POINTER T $ P MOVE LBCD3A,VBIN1 IND J EX TO BCD z &
0x0ae91a…12f7b6 [0x13b]: Pad {f00=0x2042, f01=0x5546, f02=»FER d " P ADD VBIN3,W2 INCREASE POINTER , P CBE LBIN1,VBIN4,UDF145 STATEMENT READY? $ P MOVE LSTR1,=C'(' LEFT PARENTHES 2 P COPY OBJSTR,VBIN3,W1,LSTR1,W0 TO WORK BUFFER $ " P ADD VBIN3,W1 INCREASE POINTER Z , PUDF125 PERF EXPR J *** EXPRE
0x0ae91a…12f7b6 [0x13c]: Pad {f00=0x4f20, f01=0x574f, f02=»RK BUFFER l " P ADD VBIN3,W1 INCREASE POINTER P B UDF125 NEXT PARAMETER , PUDF126 MOVE LSTR1,=C')' RIGHT PARENTHES 2 P COPY OBJSTR,VBIN3,W1,LSTR1,W0 TO WORK BUFFER " P ADD VBIN3,W1 INCREASE POINTER R P B UDF900 END OF STATEME J NT
0x0ae91a…12f7b6 [0x13d]: Pad {f00=0x5c4c, f01=0x4249, f02=»N1,VBIN4,UDF141 NOT STMT END & P SUB VBIN3,W1 TAKE AWAY LAST SPACE P B UDF145 PUDF141 $ P PERF EXPR ***EXPRESSION HANDLER PUDF145 $ P B UDF900 END OF STATEMENT 2 P EJECT T P* b P* ATTR STATEMENT l P* J
0x0ae91a…12f7b6 [0x13e]: Pad {f00=0x4c2e, f01=0x0017, f02=» V $ P ADD VBIN4,W1 COUNTER OBJ.BYTES $ P PERF DECORP ***DECORATION TEXT P MOVE LSTR1,=C',' KOMMA 4 P COPY OBJSTR,VBIN3,W1,LSTR1,W0 TO OUTPUT BUFFER & P ADD VBIN3,W1 INCR.OUTPUT POINTER 6 4 P PERF READOB,OBJSTR,VBIN3,W4 *** READ FIELD ID.
0x0ae91a…12f7b6 [0x13f]: Pad {f00=0x0018, f01=0x0078, f02=» P* P* EXIT STATEMENT P* 4 PUDF170 PERF STEXT,STMTS,STVAL *** STATEMENT TEXT . P CBG LBIN1,VBIN4,UDF175 NOT STATEMENT END & P SUB VBIN3,W1 TAKE AWAY LAST SPACE P B UDF176 J PUDF175 $ P PERF EXPR ***EXPRESSION HANDLER
0x0ae91a…12f7b6 [0x140]: Pad {f00=0x2022, f01=0x0019, f02=» j P* 4 PUDF180 PERF STEXT,STMTS,STVAL *** STATEMENT TEXT ( P MOVE VBIN8,W12 START BIT INDEX =12 P MOVE VSTR2,=X'20' P MOVE VBIN2,W0 4 P PERF READOB,VSTR2,W0,W1 ***READ DECORATION BYTE ( P ADD VBIN4,W1 COUNTER OBJ.BYTES/STMT X & P M
0x0ae91a…12f7b6 [0x141]: Pad {f00=0x2c54, f01=0x4553, f02=»T BIT '40 R ( P CALL TESTB,VBIN2,VBIN8 ---TEST BIT P BF UDF186 BIT NOT SET 2 P XCOPY VSTR2,W0,W1,LBIN18,W1 DEC.BIT TO STRING ( P PERF DECORP ***DECORATION TEXT "XX" P MOVE LSTR1,=C',' 4 0 P COPY OBJSTR,VBIN3,W1,LSTR1,W0 "," TO BUFFER N &
0x0ae91a…12f7b6 [0x142]: Pad {f00=0x5c4e, f01=0x4558, f02=»T BIT TO TEST P P B UDF185 PUDF190 & P MOVE VBIN8,W9 '40=BIT POSITION 9 " P MOVE LBIN18,=X'40' 40=BUZZER ( P CALL TESTB,VBIN2,VBIN8 ---TEST BIT P BF UDF199 BIT NOT SET " 4 P XCOPY VSTR2,W0,W1,LBIN18,W1 DECOR.BIT TO STRING @ ( P P
0x0ae91a…12f7b6 [0x143]: Pad {f00=0x5c56, f01=0x4249, f02=»N3,W1 INCR. OUTPUT POINTER b PUDF199 & P PERF EXPR *** EXPRESSION HANDLER P B UDF900 END OF STATEMENT P EJECT P* P* REM STATEMENT P* 4 PUDF200 PERF STEXT,STMTS,STVAL *** STATEMENT TEXT $ & P MOVE VBIN2,LBIN1 STATEM
0x0ae91a…12f7b6 [0x144]: Pad {f00=0x4632, f01=0x3031, f02=» ^ P SUB VBIN2,W2 COMMENT LENGTH l 2 P PERF READOB,OBJSTR,VBIN3,VBIN2 ***READ OBJECT & P ADD VBIN4,VBIN1 COUNTER OBJ.BYTES . P ADD VBIN3,VBIN1 INCR. OUTPUT BUFF.POINTER PUDF205 " P B UDF900 END OF STATEMENT 0 P EJECT R P* ` P*
0x0ae91a…12f7b6 [0x145]: Pad {f00=0x494e, f01=0x335c, f02=»SAVE BUFFER POINTER L $ P SUB VBIN1,W1 LAST POS. IN BUFF. z 2 P COPY VSTR2,W0,W1,OBJSTR,VBIN1 GET LAST CHAR. 0 P CBE LSTR1,VSTR2,UDF211 ';' ALREADY IN BUFF. 2 P INSRT OBJSTR,VBIN3,W1,LSTR1,W0 ';' TO BUFFER " P ADD VBIN3,W1 INCREASE POINTER B P
0x0ae91a…12f7b6 [0x146]: Pad {f00=0x3030, f01=0x5c41, f02=»DD VBIN6,VBIN4 ADD OBJ.B./STMT TO OBJ.B/LINE P , P CBE LBIN15,VBIN6,UDF910 LINE FINISHED ? P B UDF920 STATEMENT FINISHED P* P* PUDF910 P* * P MOVE VBIN1,LBIN14 LOAD VALBUF-POINTER 6 P ADD VBIN1,VBIN3 ADD BUFF.POINT. TO VALB
0x0ae91a…12f7b6 [0x147]: Pad {f00=0x5055, f01=0x5420, f02=»B " P ADD VBIN3,W1 LENGTH=POINTER+1 : P XCOPY LSTR1,W0,W1,VBIN3,W1 LINE NR(1 BYTE) TO STRING 0 P INSRT VALBUF,LBIN14,W1,LSTR1,W0 LINE LENGTH P ADD LBIN14,VBIN3 P MOVE VBIN1,W1 LOOP COUNTER PUDF915 2 . P CALL ICLEAR,LSTACK(VBIN1) -
0x0ae91a…12f7b6 [0x148]: Pad {f00=0x4249, f01=0x4e37, f02=»,VBIN4 ADD OB/STMT TO TOTAL OBJ.BYTES ! B < P CBG LBIN15,VBIN6,UDF952 MORE STATEMENTS ON THE SAME LN ! z 4 P CBG LBIN2,VBIN7,UDF951 SOME OBJECT CODE LEFT ? ! : P CBE LBIN2,VBIN7,UDF955 ALL OBJECT BYTES ARE UNPACKED ! * PUDF951 B UDF001 LONG BRANCH TO NEXT LN
0x0ae91a…12f7b6 [0x149]: Pad {f00=0x5420, f01=0x4f4e, f02=» THE SAME LINE " . PUDF9533 " $ P B UDF002 " NEXT STATEMENT " l PUDF955 RET " P PEND " P EJECT " @ P*********************************************************** " P* " P* EXPR SUBROUTINE " P* " . 2 P* READ AN ARITHMETIC
0x0ae91a…12f7b6 [0x14a]: Pad {f00=0x5920, f01=0x5354, f02=»ACK TABLE LSTACK (10) # " P* # ^ 0 P* INPUT: BPOOL(LBIN3) OBJECT CODE BUFFER # h ( P* LBIN4: POINTER IN INPUT BUFFER # P* # , P* OUTPUT: OBJSTR OUTPUT WORK BUFFER # & P* EXPRESSION IN SOURCE # " P* VBIN3: POINTER IN OBJSTR
0x0ae91a…12f7b6 [0x14b]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»*************** $ PEXPR PROC $ R , P SET VBOOL9 :=T PACKING UP 1:ST ELEMENT $ d ( P MOVE VBIN8,W0 CLEAR STACK POINTER/ $ D P MMOVE LBIN18,VBIN2,W0 CLEAR COUNTER OF READ ITEMS OR CONSTANTS $ 8 PEXP010 PERF READOB,VSTR2,W0,W1 ***GET 1 CHAR. INPUT $ . P
0x0ae91a…12f7b6 [0x14c]: Pad {f00=0x5354, f01=0x414e, f02=»T % : P CBG LSTR1,=X'40',EXP0401 DYN.FIELD OR WSM WORK ITEM ? % > P B EXP020 OPERATOR % | PEXP0101 B EXP050 % PEXP0401 B EXP040 LONG BRANCH % P EJECT % P* % P* CONSTANT % P* % PEXP011 % P MOVE VBIN1,=X'7F' % 0 P CALL MSKOUT
0x0ae91a…12f7b6 [0x14d]: Pad {f00=0x0030, f01=0x0050, f02=» CBE VBIN2,W0,EXP011A ALPHAN.CONST.LENGTH=0 & . 6 P COPY LSTR1,W0,W1,BPOOL(LBIN3),LBIN4 1 BYTE INPUT & b 6 P CBNE LSTR1,=X'FF',EXP0111 POOL-LIMIT NOT COMING & P* CHANGE POOL-UNIT & P ADD LBIN3,W1 NEXT POOL & $ P MOVE LBIN4,W6 START POS IN POOL &
0x0ae91a…12f7b6 [0x14e]: Pad {f00=0x2a2a, f01=0x0027, f02=» * P CBE VBIN5,W22,EXP011A ERROR STATEMENT ' . * P CBE VBIN5,W24,EXP011A WARN. STATEMENT ' & P********************************** ' . P CBL LSTR1,=X'30',EXP0112 JMP NOT NUMERIC ' 0 P CBG LSTR1,=X'39',EXP0112 JMP - NOT NUMERIC ' P B EXP012 NUMERIC CONSTA
0x0ae91a…12f7b6 [0x14f]: Pad {f00=0x5354, f01=0x414e, f02=»T ' ~ P** POS 851009 ** ( , P B EXP012 NUMERIC CONSTANT ( D P* STRING CONSTANT ( f PEXP011A ( P SET VBOOL5 STRING CONSTANT ( P MOVE LSTR1,=C'"' ( 2 P INSRT OBJSTR,VBIN3,W1,LSTR1,W0 '"' TO BUFFER ( " P ADD VBIN3,W1 INCREASE POINTER ( PEX
0x0ae91a…12f7b6 [0x150]: Pad {f00=0x5c56, f01=0x4249, f02=»N4,VBIN2 COUNTER OBJ.BYTES ) PEXP012A ) > ( P ADD VBIN8,W1 INCREASE STACK POINT./ ) N < P MOVE LSTACK(VBIN8),VBIN3 PUT OUTP.BUFF.POSITION T.STACK ) z , P ADD VBIN3,VBIN2 INCREASE OUTPUT POINTER ) 0 P TBF VBOOL5,EXP016 JUMP IF NOT STRING CONST. ) . P SUB LST
0x0ae91a…12f7b6 [0x151]: Pad {f00=0x0022, f01=0x0050, f02=» ADD VBIN3,W1 INCREASE POINTER * P EJECT * < PEXP016 * J , P CBE LBIN1,VBIN4,EXP016A EXPRESSION END? * X , P CBE VBIN5,W12,EXP016A 0C=CALL STATEMENT * P CLEAR VBOOL5 * P CLEAR VBOOL9 * , P B EXP010 GET NEXT CHAR. FROM INPUT BUFF * PEXP016A *
0x0ae91a…12f7b6 [0x152]: Pad {f00=0x002a, f01=0x0172, f02=» $ P CBE VBIN5,W14,EXP016B SECT-STMT + P B EXP090 END OF EXPRESSION + < . PEXP016B MOVE VBIN1,VBIN3 POS. FOR RIGHT " + ` * P PERF FLIP PUT "'S AROUND NUMERICCONS. + PEXP016C CLEAR VBOOL5 + P B EXP090 END OF EXPRESSION + P EJECT + P* + P*
0x0ae91a…12f7b6 [0x153]: Pad {f00=0x002b, f01=0x016e, f02=» 2 PEXP023 MOVE VBIN1,VBIN3 OUTPUT BUFFER POINTER , PEXP024 , D P* RIGHT SIDE OPERAND , R P* , t . P PERF NCONST ***OPERAND NUMERIC CONSTANT? , ~ * P CBL VBIN8,W2,EXP024A STACK POINTER=1 , " P PERF PRIORT ***OPERATOR TYPE , $ P CBE VBIN1,W4,EX
0x0ae91a…12f7b6 [0x154]: Pad {f00=0x2856, f01=0x4249, f02=»N8) SAVE PREV.STACK , ~ P SUB VBIN8,W1 - " P SET VBOOL7 LEFT SIDE OPERAND - 6 P* LEFT SIDE OPERAND - P* - z . P PERF NCONST ***OPERAND NUMERIC CONSTANT? - P CLEAR VBOOL7 - ( P ADD VBIN8,W1 SET BACK STACK POINTER - PEXP024A - " P PERF
0x0ae91a…12f7b6 [0x155]: Pad {f00=0x0000, f01=0x004b, f02=» RENTHES - x . P* = 4 FUNCTION WITH 2 PARAMETERS . P* . B PEXP024B . L * P IB VBIN1,EXP025,EXP035,EXP030,EXP037 . 4 PEXP025 CALL GETIND,OPRTS,LBIN18,VBIN1 GET LENGTH . ( P SET VBOOL2 OPERATOR HANDL.IN STEXT . 2 P PERF STEXT,OPRTS,OPRVAL *
0x0ae91a…12f7b6 [0x156]: Pad {f00=0x4f49, f01=0x0000, f02=» K NTER . p & P PERF PRIORT ***OPERATOR PRIORITY / . P IB VBIN1,EXP0251,EXP0251,EXP0251,EXP0251 / 6 2 P MOVE LSTACK(VBIN8),W0 CLEAR THE STACK PSITION / h P SUB VBIN8,W1 / PEXP0251 / 0 P CBG VBIN8,W1,EXP027 READ NEXT CHAR. OR ITEM / . P CBE VBIN5
0x0ae91a…12f7b6 [0x157]: Pad {f00=0x0050, f01=0x4558, f02=»P025 K 2 / ( P MOVE LBIN18,LBIN1 STATEMENT LENGTH 0 P SUB LBIN18,W2 MINUS 2 0 6 0 P CBE LBIN18,VBIN4,EXP028 END OF EXPRESSION? 0 T P CLEAR VBOOL9 0 P B EXP010 NO 0 0 PEXP026 CBE LBIN1,VBIN4,EXP028 EXPRESSION END 0 PEXP027 0 P CLEAR V
0x0ae91a…12f7b6 [0x158]: Pad {f00=0x5354, f01=0x4143, f02=»K(VBIN8) 1 K .CHAR.OF OPERAND 0 b * P CBG LSTR1,=X'3F',EXP028A NOT NUMERIC 1 & P CBE VBIN5,W2,EXP028A NUMERIC LET 1 F , P CBE VBIN5,W3,EXP028A " " WITH LET 1 p 0 P CBE LSTR1,=X'22',EXP028A " ALREADY THERE 1 * P CBE LSTR1,=X'21',EXP028A !INP OR
0x0ae91a…12f7b6 [0x159]: Pad {f00=0x0050, f01=0x5c43, f02=»OPY LSTR1,W0,W1, K VSTR2,W0 COPY OPERATOR CODE 1 ~ . P CBG LSTR1,=X'07',EXP028A JUMP IF NUMERIC 2 $ P ADD VBIN8,W1 PREV.STACK 2 V 6 P MOVE VBIN1,LSTACK(VBIN8) GET PREV.STACK POSITION 2 v P SET VBOOL6 2 P PERF FLIP *** PUT "'S 2 $ PEXP028A B EXP0
0x0ae91a…12f7b6 [0x15a]: Pad {f00=0x2050, f01=0x4152, f02=»ENTHES 2 D P MOVE LS K TR1,=C'(' 2 B P INSRT OBJSTR,LSTACK(VBIN8),W1,LSTR1,W0 INSERT LEFT PARENTHES 3 * P ADD VBIN3,W2 INCREASE OUTPUT POINTER 3 X $ P B EXP0251 CHECK IF END OF EXPR. 3 P* 3 P* 3 P* FUNCTION 3 ( P* PUT PAREN
0x0ae91a…12f7b6 [0x15b]: Pad {f00=0x5452, f01=0x312c, f02=»=C'(' INSERT 3 h 6 P INSRT O K BJSTR,LSTACK(VBIN8),W1,LSTR1,W0 LEFT PAR. 3 2 P COPY LSTR1,W0,W1,VSTR2,W0 SAVE OPERATOR CODE 4 2 & P ADD VBIN3,W2 INCR. OUTPUT POINTER 4 h < P CBNE LSTR1,=X'0F',EXP025 NO FUNCTION TEXT IN SUBSTRING 4 0 P MOVE LSTACK(VBIN8
0x0ae91a…12f7b6 [0x15c]: Pad {f00=0x0024, f01=0x0050, f02=»* FUNCTION WITH 2 PARAMETERS O K 4 n 6 P* PUT SEPARATOR ':' OR ',' BETWEEN PARAMETERS 5 P* 5 B 2 PEXP037 INSRT OBJSTR,LSTACK(VBIN8),W1,LSTR1,W0 5 L $ P ADD VBIN3,W1 INCR. BUFF.POINTER 5 2 P MOVE VBIN1,LSTACK(VBIN8) SAVE PREV.STACK POS. 5 4
0x0ae91a…12f7b6 [0x15d]: Pad {f00=0x5320, f01=0x0035, f02=» @ P EJECT 5 n P* 5 | ( P* DYNAM K IC FIELD OR WSM WORK ITEM 5 P* 6 " , PEXP040 ADD VBIN8,W1 INCR. STACK POINTER 6 , P SUB LBIN4,W1 BACK 1 BYTE 6 : P PERF READOB,OBJSTR,VBIN3,W4 ***ITEM TO OUTPUT BUFFER 6 ~ P 6 $ P ADD VBIN4,W4 COUNTE
0x0ae91a…12f7b6 [0x15e]: Pad {f00=0x4245, f01=0x5c56, f02=»BIN5,W12,EXP090 0C=CALL STATEMENT 6 , P CBE K LBIN1,VBIN4,EXP090 EXPRESSION END ? 6 P CLEAR VBOOL9 7 , , P B EXP010 READ NEXT CHAR./ITEM/OPERATOR 7 B P EJECT 7 r P* 7 P* !INP OR !FID 7 P* 7 PEXP050 7 . P PERF READOB,VSTR2,W0,
0x0ae91a…12f7b6 [0x15f]: Pad {f00=0x0050, f01=0x5c42, f02=» EXP056 7 Z PEXP055 MOVE LSTR4A,=C'!INP' 7 l @ P K EXP056 COPY OBJSTR,VBIN3,W4,LSTR4A,W0 !INP OR !FID TO BUFF. 7 & P ADD VBIN8,W1 INCR. STACK POINTER 8 D 0 P MOVE LSTACK(VBIN8),VBIN3 STACK THE POSITION 8 n * P ADD VBIN3,W4 INCREASE OUTPUT POINTER 8
0x0ae91a…12f7b6 [0x160]: Pad {f00=0x455c, f01=0x5642, f02=»IN8,W1 CLEAR STACK POINTER 8 N , PEXP099 MOVE LSTACK(VBIN8 K ),W0 CLEAR STACK 8 x ( P CBE VBIN8,=W'32',EXP0999 STACK END 9 ( P ADD VBIN8,W1 INCREASE STACK POINTER 9 D P B EXP099 LOOP 9 p . PEXP0999 MOVE VBIN8,W0 CLEAR STACK POINTER 9 P RET 9 P P
0x0ae91a…12f7b6 [0x161]: Pad {f00=0x0050, f01=0x2a20, f02=» 9 N H P* GET DECORATION BYTE,SEARCH DECOR.VALUE FROM THE TA K BLE 'DECOR' 9 X > P* PUT THE CORRESPONDING DECOR. TEXT TO THE WORKBUFFER : P* AND INCREASE POINTERS : V P* : z " P* LSTR1: DECORATION VALUE : $ P* BPOOL(LBIN3): IN
0x0ae91a…12f7b6 [0x162]: Pad {f00=0x5546, f01=0x4645, f02=»R : & P* : T ( P* USED WORK ITEMS: VBIN1 COUNTER : ^ 6 P* K VSTR1 DECOR. VALUE (STRING) : H P******************************************************************* ; 4 PDECORP PROC ; P MOVE VBIN1,W0 ; PDEC010 ; > P C
0x0ae91a…12f7b6 [0x163]: Pad {f00=0x4541, f01=0x5345, f02=» LOOP COUNTER ; . P B DEC010 LOOP ; Z PDEC015 MOVE LSTR4A,=C'"' ; p 4 P K COPY LSTR4A,W1,W2,DECOR,VBIN1 "DEC.TXT" TO THE ; 6 P COPY OBJSTR,VBIN3,W4,LSTR4A,W0 OUTPUT WORK BUFFER < 8 * P ADD VBIN3,W4 INCREASE OUTPUT POINTER < r P RET < P PEND <
0x0ae91a…12f7b6 [0x164]: Pad {f00=0x2a20, f01=0x003c, f02=» : " P* GET THE TARGET LINE NR < D & P* CONVERT FROM HEXA TO STRING < j K ( P* MOVE IT TO THE OUTPUT BUFFER = P* = 0 D P*************************************************************** = : PLINENR PROC = 2 P PERF READOB,VSTR2,W0,W2
0x0ae91a…12f7b6 [0x165]: Pad {f00=0x292c, f01=0x5642, f02=»IN1 BINARY TO DECIMAL = & , P MOVE LSTR6A,LINNO(W9) DECIMAL TO STRING = V $ P DLETE LST K R6A,W0,W1 DELETE SIGN = 4 P CBL LINNO(W9),=D'+100',LIN100 LINE NR 2 DIGITS > 4 P CBL LINNO(W9),=D'1000',LIN110 LINE NR 3 DIGITS > V : P COPY OBJSTR,VBIN3,W4,LSTR
0x0ae91a…12f7b6 [0x166]: Pad {f00=0x204e, f01=0x5220, f02=»TO BUFFER > & P ADD VBIN3,W2 INCR.OUTPUT POINTER > D P B LIN150 > n < PLIN110 COPY OBJS K TR,VBIN3,W3,LSTR6A,W2 LINE NR TO BUFFER > & P ADD VBIN3,W3 INCR. OUTPUT POINTER ? 0 PLIN150 ? Z P RET ? h P PEND ? t P EJECT ? B P******************
0x0ae91a…12f7b6 [0x167]: Pad {f00=0x5420, f01=0x5641, f02=»LUE ? D P* PROCESSING: PUT THE CORRESPONDING TATEMENT TEXT TO OUTPUT ? 8 P* K BUFFER ? 0 P* INCREASE BUFFER POINTERS @ ( P* OUTPUT: OBJSTR OUTPUT BUFFER @ F P* VBIN3 POINTER @ r 8 P* USED IT
0x0ae91a…12f7b6 [0x168]: Pad {f00=0x2020, f01=0x2056, f02=»STR1 = INCLUDES THE STATEMENT VALUE AS STRING @ ( P* OR X'FF' @ @ P* K LBIN18 = POSITION COUNTER IN STVAL STRING @ P* A < F P***************************************************************** A F PSTEXT
0x0ae91a…12f7b6 [0x169]: Pad {f00=0x5448, f01=0x4f55, f02=»T LET A P CBE VBIN5,W0,STE040 " A . 6 P XCOPY VSTR2,W0,W1,VBIN5,W1 STATM.VALUE TO STRING A N PSTE005 K A * P MMOVE VBIN1,VBIN2,W0 CLEAR WORK ITEMS B @ PSTE010 MATCH VAL,VBIN1,LBIN18,VSTR2,W0,W1 SEARCH STATM.VALUE B 6 P BE STE020 FOUND B z
0x0ae91a…12f7b6 [0x16a]: Pad {f00=0x0042, f01=0x00f6, f02=» ( P ADD VBIN2,W1 " LENGTH COUNTER B 4 P COPY LSTR1,W0,W1,VAL,LBIN18 COPY NEXT CHARACTER B J , P CBE LSTR1,=X' K FF',STE021 SAME STATEMENT B P B STE030 END C " PSTE025 CLEAR VBOOL1 C 8 $ P ADD VBIN1,W1 START POS.2ND TIME C T * P SUB LBIN18,VB
0x0ae91a…12f7b6 [0x16b]: Pad {f00=0x2c57, f01=0x315c, f02=»OPERATOR LEN=1 C 2 PSTE030 TBT VBOOL2,STE040 DONT COPY IF OPERATOR C * @ P COPY OBJSTR,VBIN3,VBIN2,TEXT,VBIN1 STATEMENT TE K XT TO BUFFER C ` , P ADD VBIN3,VBIN2 NEXT POSITION IN BUFFER D ( P ADD VBIN3,W1 FILL 1 SPACE TO BUFF. D D PSTE040 RET D p P P
0x0ae91a…12f7b6 [0x16c]: Pad {f00=0x5445, f01=0x0044, f02=» ( P* CHANGE POOL UNIT IF 'FF FOUND D P* PARAMETERS: D @ 0 P* BUF = READ TO THIS BUFFER D Z 6 P* K POINT = START POINTER IN BUFFER D , P* LEN = REQUESTED LENGTH E 8 P* USED ITEMS : E
0x0ae91a…12f7b6 [0x16d]: Pad {f00=0x435c, f01=0x4255, f02=»F,POINT,LEN E P PSTRG BUF E P PBIN POINT E . P PBIN LEN E B P MOVE VBIN1,W0 E T , P MOVE LBIN18,POINT POINTER TO WORK ITE K M E j @ PREA010 COPY LSTR1,W0,W1,BPOOL(LBIN3),LBIN4 GET 1 BYTE INPUT F . P CBE LSTR1,=X'FF',REA030 END OF POOL FOUND
0x0ae91a…12f7b6 [0x16e]: Pad {f00=0x4552, f01=0x0046, f02=» * P ADD LBIN18,W1 INCREASE BUFFER POINTER F & P CBL VBIN1,LEN,REA010 READ MORE ? F 6 P B REA090 F ` ( PREA030 ADD LBIN3,W1 NEXT POOL K NUMBER F r * P MOVE LBIN4,W6 START POSITION IN POOL G P B REA010 READ NEXT BYTE G < PREA090 RET G P PEN
0x0ae91a…12f7b6 [0x16f]: Pad {f00=0x00f4, f01=0x0028, f02=» P* DEPENDING ON OPERATOR VALUE G " P* SET VBIN1 = 1 +/-SIGN G * $ P* = 2 FUNCTION G P * P* = 3 R K IGHT PARENTHES G x 6 P* = 4 FUNCTION WITH 2 PARAMETERS H . P* PUT PARAMETER SEPAR
0x0ae91a…12f7b6 [0x170]: Pad {f00=0x4952, f01=0x5354, f02=» H 2 P COPY LSTR1,W0,W1,VSTR2,W0 SAVE OPERATOR CODE H , P CBE LSTR1,=X'22',PRI030 RIGHT PARENTHES H 4 $ P CBE LSTR1,=X'12',PRI010 + SIGN H d $ P CBE K LSTR1,=X'11',PRI010 - SIGN H 0 P CBE LSTR1,=X'0F',PRI040 SUBSTRING FUNCTION I $ * P CBE LSTR1,=X'
0x0ae91a…12f7b6 [0x171]: Pad {f00=0x3039, f01=0x3020, f02=» I 0 PPRI040 MOVE LSTR1,=C':' PARAMETER SEPARATOR I PPRI041 MOVE VBIN1,W4 I , P B PRI090 I H 0 PPRI045 MOVE LSTR1,=C',' PARAMETER SEPARATOR I Z P B K PRI041 I PPRI030 ADD VBIN1,W1 VBIN1=3 J & P MOVE LSTR1,=C')' RIGHT PARENTHES J 4 PPR
0x0ae91a…12f7b6 [0x172]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»***************** J P* J P* SUBROUTINE NCONST J P* J . , P* CHECK IF OPERAND NUMERIC CONSTANT J 8 2 P* PUT " AROUND THE CONSTANT IF NECE K SSARY J h $ P* ADJUST STACK POINTERS AND K & P* OUTPUT BUFFER POINTER VBIN3 K
0x0ae91a…12f7b6 [0x173]: Pad {f00=0x3829, f01=0x5c31, f02=» CHAR.OPERAND K P CBL LSTR1,=X'40',NCON010 K $ P B NCON090 NOT NUMERIC CONSTANT K 4 PNCON010 CBE LSTR1,=X'22',NCON090 "ALREADY THERE K D * P CBE LSTR1,=X'21',NC K ON090 !INP OR !FID K | $ P CBE LSTR1,=X'2B',NCON025 +-SIGN L $ P CBE LSTR1,=X'2D',
0x0ae91a…12f7b6 [0x174]: Pad {f00=0x0050, f01=0x5c43, f02=»BE LSTR1,=X'0E',NCON080 CONCATENATE L * P CBE LSTR1,=X'1D',NCON080 LEN-FUNCTION L * P CBE LSTR1,=X'1E',NCON080 NUM-FUNCTION L 8 * P CBE LSTR1,=X'21',NCON080 POS-FUNCTION L f K ( P CBE VBIN5,W6,NCON020 IF THEN LINENR M & P CBE VBIN5,W8,NCON020 IF THEN
0x0ae91a…12f7b6 [0x175]: Pad {f00=0x3033, f01=0x305c, f02=»SECT-STMT M * P* RELATIONAL OPERATOR ALPHANUMERIC? M : PNCON020 MOVE LSTR9A,=X'020304050607' ALPHAN.OPERATORS M P MOVE LBIN18,W0 M V ( P MATCH LSTR9A,LBIN18,W6,LSTR1,W0,W L 1 M n P BE NCON080 FOUND N P B NCON085 N $ * PNCON025 MOVE GBINI
0x0ae91a…12f7b6 [0x176]: Pad {f00=0x4f4e, f01=0x3031, f02=»5 NUMERIC N P B NCON090 NOT NUMERIC N . PNCON030 CBE LSTR1,=X'0F',NCON085 SUBSTRING N * P CBE LSTR1,=X'10',NCON085 STR-FUNCTION N 4 4 P CBNE LBIN1,VBIN4,NCON085 MORE OPERATORS COMIN L G N b 0 PNCON080 PERF FLIP *** PUT "'S AROUND CONST. O P B N
0x0ae91a…12f7b6 [0x177]: Pad {f00=0x494e, f01=0x4941, f02=»(W19),VBIN3 INPUT BUFFER POINTER O P B NCON087 O > PNCON086 MOVE GBINIA(W19),LSTACK(VBIN8) GET NEXT STACK POS. O PNCON087 O H ( P SUB VBIN8,W1 BACK TO CURRENT STACK O X PNCON090 RET L O P PEND P P EJECT P . P************************
0x0ae91a…12f7b6 [0x178]: Pad {f00=0x2020, f01=0x2020, f02=» PUT "'S AROUND NUMERIC CONSTANT P 2 P* ADJUST CURRENT STACK POINTER POSITION P . P* ADJUST OUTPUT BUFFER POINTER VBIN3 P & P* P X . P****************************************** P b L PFLIP PROC Q P MOVE LSTR1,=C'"' Q , P INSRT
0x0ae91a…12f7b6 [0x179]: Pad {f00=0x5348, f01=0x4946, f02=»T 2 POS. RIGHT Q ( P SUB VBIN8,W1 GET BACK CURRENT STACK Q PFLIP010 Q P TBF VBOOL6,FLI010 Q ( P SUB VBIN8,W1 GET BACK CURRENT STACK Q , P CLEAR VBOOL6 Q X PFLI010 Q n 2 P INSRT OBJSTR,LSTACK L (VBIN8),W1,LSTR1,W0 LEFT " Q | & P ADD VBIN3,W2
0x0ae91a…12f7b6 [0x17a]: Pad {f00=0x5554, f01=0x494e, f02=»E DELETE SPACES FROM R P* FIELD ID IN OBJECT CODE R P* R . P* INPUT : OBJSTR BUFFER FOR SOURCE LINE R & P* VBIN3 BUFFER POINTER R 6 P* R ` , P************************************** L * R j PDSPACE PROC S P MOVE LSTR1,
0x0ae91a…12f7b6 [0x17b]: Pad {f00=0x5c42, f01=0x455c, f02=»DSP010 SPACE FOUND S & P ADD VBIN3,W4 FIELD ID LENGTH = 4 S P B DSP050 S . PDSP010 SUB GBINIA(W19),VBIN3 COUNT LENGTH S 2 P ADD VBIN3,GBINIA(W19) INCREASE OUTPUT POINTER S < PDSP050 S r P RET S P PEN L@ D S P END T @ T P MOVE
0x0ae91a…12f7b6 [0x17c]: Pad {f00=0x006c, f01=0x001a, f02=» P BE DSP010 SPACE FOUND S & P ADD VBIN3,W4 FIELD ID LENGTH = 4 S P B DSP050 S . PDSP010 SUB GBINIA(W19),VBIN3 COUNT LENGTH S 2 P ADD VBIN3,GBINIA(W19) INCREASE OUTPUT POINTER S < PDSP050 S r P RET S P PEN L U P END T @ T P
0x0ae91a…12f7b6 [0x17d]: Pad {f00=0x4944, f01=0x203f, f02=» S l P BE DSP010 SPACE FOUND S & P ADD VBIN3,W4 FIELD ID LENGTH = 4 S P B DSP050 S . PDSP010 SUB GBINIA(W19),VBIN3 COUNT LENGTH S 2 P ADD VBIN3,GBINIA(W19) INCREASE OUTPUT POINTER S < PDSP050 S r P RET S P PEN L
0x0ae91a…12f7b6 [0x17e]: Pad {f00=0x0000, f01=0x0000, f02=» L
0x0ae91a…12f7b6 [0x17f]: Pad {f00=0x0000, f01=0x0000, f02=» L . P IDENT F
0x0ae91a…12f7b6 [0x180]: Pad {f00=0x2a20, f01=0x2020, f02=» LATEST UPDATE 850702 MADE BY JE P* P* HISTORY= N P* 850702/JE VALBUF EMPTY ? REMOVED,NOK WHEN COMPL DELET VLD N P* 850613/JE DISPLAY OF CURRENT LINE COPY JUST EFF. USED SIZE 4 N P* L 8
0x0ae91a…12f7b6 [0x181]: Pad {f00=0x5420, f01=0x564c, f02=»D H < P* 850321/JE CLEAR TKBOOL AT END OF SECTION N P* 850319/JE PERFORMANCE DIRECT MOVE VAL.OBJ. WHEN UNCHANGED H P* 850306/JE TAKING CARE OF SYNTAX-ERROR FROM "OBJVAL" , : P* 841120/CJ L
0x0ae91a…12f7b6 [0x182]: Pad {f00=0x4150, f01=0x5449, f02=»ON TO MODIFIED <POLICE> j J P* 831114/CJ <CAN> NOT OK AT END OF PAR.SETTING - SOLVED D P* 830906/CJ DISPLAY OF FWFSPR IF POF OCCUR AT END < P* 830720/CJ DYN. FIELD POINTER IN .BL MODE @ 6 P* 8
0x0ae91a…12f7b6 [0x183]: Pad {f00=0x362f, f01=0x434a, f02=» REL.MUMBER TO FWFSPS FROM WSMDDV IN "RELNUM" l B P* 830429/CJ FINAL CONFIRM BY <ENTER> OR <PRINT> > P* 830427/CJ IMPL. OF <OVE>:= MULTIPLE ENTER P* B D P****************************************************************
0x0ae91a…12f7b6 [0x184]: Pad {f00=0x435c, f01=0x5245, f02=»ADIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD t 8 P EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE B P EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL-LIMIT-CONTROLER 4 P EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR SETTING 8 0 P EXPROC DISPLY,PBIN ***D
0x0ae91a…12f7b6 [0x185]: Pad {f00=0x0050, f01=0x5c45, f02=»XPROC VALPRC ***VALIDATION I/O PROCEDURE v 0 P EXPROC VLPAGE,PBIN ***VALIDATION PAGE LOAD 0 P EXPROC OBJVAL ***OBJECT CONVERT VALIDATION * P EXPROC PRNTFS ***PRINT FORMAT SECTION $ P EXPROC ATTPRT ***ATTACH PRINTER > $ P EXPROC DETPRT ***DETACH PRI
0x0ae91a…12f7b6 [0x186]: Pad {f00=0x0006, f01=0x004e, f02=» $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM v & P EXT EMPTYT ---ASSRUT:EMPTY ITEM? P EXT SETB ---ASSRUT:SET BIT $ P EXT CLEARB ---ASSRUT:CLEAR BIT $ P EXT FMOVE ---ASSRUT:FORMAT MOVE P EXT TESTB ---ASSRUT:TESTBIT < ( P EXT WXMUL ---ASSRUT:MULTIPL
0x0ae91a…12f7b6 [0x187]: Pad {f00=0x4552, f01=0x2050, f02=»ARAMETER T $ PCED EQU X'B7' CHANGE ECHO-DEVICE | PERS EQU X'B1' ERASE PSTOPBLK EQU X'BE' P INCLUDE WSMKEY,LIST P P INCLUDE KEYT1,LIST P INCLUDE KEYT2,LIST P EJECT 6 P INCLUDE KEYT3,LIST D P INCLUDE KEYT5,LIST
0x0ae91a…12f7b6 [0x188]: Pad {f00=0x0008, f01=0x004e, f02=» P EJECT j P INCLUDE KEYT33,LIST x P EJECT PFSPARM PROC PFSP000 0 P CBNE GBIN2,W1,FSP040 JUMP IF NOT RETURN-KEY > P XCOPY GBIN4,W1,W1,GBIN9,W0 RESTORE RETURN-ADRESS BUFFIND > P XCOPY GBIN5,W1,W1,GBIN9,W1 RESTORE RETURN-ADRESS POIN
0x0ae91a…12f7b6 [0x189]: Pad {f00=0x3839, f01=0x2c46, f02=»WSPAN ---FORMAT MOVE L 0 P MOVE LBIN3,=W'81' NUMBER OF 'D9':S TO COPY | $ P MOVE LSTR81,=X'D9' LOAD 'E8':S $ P XCOPY LSTR89,W8,LBIN3,LSTR81,W0 0 P ATTFMT FWFSPR ATTACH FORMAT-SECTION FORMAT & P ERASE 3,W6,W0 ERASE OLD CONTENTS 4 * P PERF INSELV
0x0ae91a…12f7b6 [0x18a]: Pad {f00=0x5645, f01=0x4c20, f02=» 8 2 P CBNE LBIN5,=X'00FF',FSP070 JUMP IF NOT E-O-S b $ P CLEAR TKBOOL RESET <OVE> AT END " P B FSP500 JUMP IF E-O-SECTION PFSP070 ( P PERF INFILV ***INIT ON FIELD LEVEL , P BG FSP983 JUMP IF PICTURE-POOL OVERFLOW & P BL FSP985 JMP IF VA
0x0ae91a…12f7b6 [0x18b]: Pad {f00=0x2220, f01=0x000b, f02=» & P CLEAR TKBOOL STOP ON ACTUAL FIELD Z P EJECT PFSP075 P TBF TKBOOL,FSP077 " P B FSP135 JMP IF <OVE> PRESSED PFSP077 " P MOVE CUBIN,W3 BUFFERLENGTH=3 $ P MOVE VD82CW,=X'0080' CURSOR ON P DSC SYSL,X'11',VD82CW < $ P DSC
0x0ae91a…12f7b6 [0x18c]: Pad {f00=0x0026, f01=0x002c, f02=» P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE P . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE-CODE " P PERF STABLK ***START BLOCKING $ P MOVE VD82CW,=X'0080' CURSOR ON P DSC SCRN,X'11',VD82CW " P THOME MAKE 1ST FIELD CURRENT P AND SET CURSOR
0x0ae91a…12f7b6 [0x18d]: Pad {f00=0x4e34, f01=0x2c57, f02=»16,FSP085 FKI NR 16=EXTENDED PROMPT < * P TBF LBOOL6,FSP085 NO SIGN IN PICTURE t P B FSP090 F PFSP085 PERF READIN,KEYT11,KEYT22,KEYT33,=W'0' ***READ IN ONE FIELD P B FSP091 PFSP090 > P PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE
0x0ae91a…12f7b6 [0x18e]: Pad {f00=0x0050, f01=0x5c47, f02=»ETABX LBIN4 GET FIELD NO @ 2 P TBT LBOOL1,FSP100 JUMP IF BACKWARD TABULATION b P* P* FORWARD TABULATION P* " P IB LBIN4,FSP129,FSP129, 1-2 C " P FSP103,FSP129,FSP129, 3-5 C " P FSP106,FSP129,FSP129, 6-8 C P FSP110 9 >
0x0ae91a…12f7b6 [0x18f]: Pad {f00=0x5030, f01=0x3937, f02=» 6 P B FSP13B D P* V P* BACKWARD TABULATION ` P* PFSP100 " P IB LBIN4,FSP129,FSP129, 1-2 C " P FSP129,FSP129,FSP129, 3-5 C " P FSP116,FSP117,FSP129, 6-8 C P FSP120 9 P B FSP129 10-?? P EJECT 4 P*
0x0ae91a…12f7b6 [0x190]: Pad {f00=0x4345, f01=0x442c, f02=»SYSLFC CHANGE ECHO-DEVICE ( . P CALL CHANFC,SCRN,SYSLFC CHANGE FILE-CODE X P CLEAR OVBOOL P ATTFMT FWSOVE ( P MOVE SCBIN,=X'0101' CURSOR POS=0101 P TBT VD82,FSP10A JMP IF VD82 ( P MOVE SCBIN,=X'1801' CURSOR POS=2401 PFSP10A 2 " P
0x0ae91a…12f7b6 [0x191]: Pad {f00=0x0011, f01=0x000a, f02=» . P MOVE WRBIN,W1 LOAD FOR DISP ON LAST LINE 4 $ P TBT VD82,FSP10C JMP IF VD82/83 f 2 P MOVE WRBIN,W24 LOAD FOR DISP SYSLINE VD47/81 PFSP10C 6 P DISPLAY 4,WRBIN,WRBIN DISPLAY FORMAT ON LAST LINE P THOME P GETABX LBIN4 @ P PERF READ
0x0ae91a…12f7b6 [0x192]: Pad {f00=0x4354, f01=0x0012, f02=» " PFSP10D 0 P SET TKBOOL > ( P CALL ICLEAR,MSTR4A ---INITIAL CLEAR R 6 P CBNE NSTR4A,MSTR4A,FSP1D1 JMP IF NSTR4A NOT EMPTY ~ P SET OVBOOL P MOVE CUBIN,W3 " P PERF CURSET,SCBIN,CUBIN,SYSL P ATTFMT FWSOVE . P MOVE WRBIN,W1 LOAD FO
0x0ae91a…12f7b6 [0x193]: Pad {f00=0x5031, f01=0x4430, f02=» 6 P DISPLAY 4,WRBIN,WRBIN DISPLAY FORMAT ON LAST LINE , P CLEAR OVBOOL f PFSP1D1 | , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE-CODE , P MOVE VD82CW,=X'01C0' DISCONNECT CURSOR P DSC SCRN,X'11',VD
0x0ae91a…12f7b6 [0x194]: Pad {f00=0x4f20, f01=0x4d41, f02=»KE OBJCT OF NEXT FIELDS P EJECT > PFSP10E L P MOVE CUBIN,W3 Z " P PERF CURSET,SCBIN,CUBIN,SYSL p " P DSC SYSL,2,COLS ERASE SYSLINE , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE-CODE P ATTFMT FW
0x0ae91a…12f7b6 [0x195]: Pad {f00=0x5953, f01=0x4c2c, f02=»2,COLS ERASE SYSLINE , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE 4 . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE-CODE d P ATTFMT FWFSPR P DISPLAY 0,W1,W0 P B FSP101 P EJECT PFSP103 . P CALL EMPTYT,GBCD3I(W7) ---CKECK IF EMPTY *
0x0ae91a…12f7b6 [0x196]: Pad {f00=0x2c57, f01=0x355c, f02=»FIELDNO:=8 P B FSP128 $ PFSP10B 6 $ P ADD LBIN4,W1 FIELDNO:=FIELDNO+1 D P B FSP128 l PFSP106 ~ & P TBT LBOOL5,FSP10B JMP IF ALPHANUM . P TBF LBOOL7,FSP10B JMPF NUM AND NO DEC PKT P B FSP129 PFSP110 . P CALL EMPTYT,GSTR1I(
0x0ae91a…12f7b6 [0x197]: Pad {f00=0x0168, f01=0x000e, f02=» P B FSP129 PFSP11B @ P CBNE GSTR1I(W16),DUPL,FSP10B JMP IF AUTO SK.DUP.BYP NOT = D . $ P MOVE LBIN1,W5 ERROR-MESSAGE = 6 r $ P SUB LBIN4,W1 FIELDNO:=FIELDNO-1 P B FSP145 P EJECT PFSP11A $ P SUB LBIN4,W1 FIELDNO:=FIELDNO-1
0x0ae91a…12f7b6 [0x198]: Pad {f00=0x0164, f01=0x000e, f02=» P B FSP129 PFSP117 . P CALL EMPTYT,GBCD3I(W7) ---CKECK IF EMPTY ( * P BNOK FSP129 JMP IF EMPTY = DEF.VAL=1 Z > P CBNE GBCD3I(W7),=D'00',FSP129 JMP IF ORG-MED = 1 OR EMPTY P SUB LBIN4,W5 FIELDNO:=2 P B FSP128 PFSP120 . P CALL
0x0ae91a…12f7b6 [0x199]: Pad {f00=0x004d, f01=0x0190, f02=» = Y j P B FSP11A PFSP128 , P GETFLD 0,LBIN4,LBIN3 MAKE FIELD CURRENT , P SETCUR PFSP129 l , P CBE LBIN2,W1,FSP135 ENT-KEY WAS PRESSED z P B FSP080 NEXT FIELD P EJECT PFSP13A & P SUB LBIN4,W1 ADJUST FIELD SEQ NO ,
0x0ae91a…12f7b6 [0x19a]: Pad {f00=0x0000, f01=0x0000, f02=» M L=N n P B FSP129 PFSP13B , P PERF VALPRC ***VALIDATION I/O PROCEDURE , 6 P IB LBIN2,FSP135,FSP290,FSP300, JMP ON KEY-INDEX C . P FSP135,FSP128 LINE NR OVERFLOW,BACKTAB P EJECT P* & P* STORE DYNAMIC FIELD PARAMETERS
0x0ae91a…12f7b6 [0x19b]: Pad {f00=0x3a3d, f01=0x3132, f02=»VA M r $ P MOVE LBIN1,W5 ERRORMESSAGE NO=5 . P CALL EMPTYT,GBCD3I(W8) ---CHECK IF EMPTY 0 * P BNOK FSP140 JUMP IF 'PRINT-ROW' EMPTY b . P CALL EMPTYT,GBCD3I(W9) ---CHECK IF EMPTY . P BNOK FSP145 'PRROW' FLLD 'PRCOL' EMP NOK , P B FSP142
0x0ae91a…12f7b6 [0x19c]: Pad {f00=0x4c27, f01=0x2045, f02=»MPTY OK M d P SUB LBIN4,W1 FIELD NR:=13 4 P B FSP145 'PR-ROW' EMPTY 'PR-COL' FILLED NOT OK * P EJECT b PFSP142 p * P MOVE LBIN3,GBCD3I(W9) LOAD PROUT COL ~ * P MOVE LBIN2,GBCD3I(W8) LOAD PROUT ROW * P XCOPY LBIN3,W0,W1,LBIN2,W1 PR
0x0ae91a…12f7b6 [0x19d]: Pad {f00=0x0036, f01=0x0050, f02=» GETFLD 0,LBIN M 4,LBIN3 MAKE PROUT-POS FIELD CURRENT P SETCUR SET CURSOR , , P MOVE LBIN4,LBIN1 ERRORMESSAGENO=5 OR 25 H P MOVE LBIN1,W0 NO CLEAR x 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE . P IB LBIN2,FSP148,FSP290,FSP300
0x0ae91a…12f7b6 [0x19e]: Pad {f00=0x5c43, f01=0x4c45, f02=»AR VBOOL8 F NO COMPU M LSARY POOL-DELIMITER x & P ADD GBIN5,W1 ADJUST POOL-POINTER . P MOVE LBIN3,W1 NUMBER OF BYTES TO CONTROL F D P PERF POLICE,LBIN3,LBOOL4,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER x & P BG FSP982 JUMP IF MEMORY OVERFLOW 0 P C
0x0ae91a…12f7b6 [0x19f]: Pad {f00=0x016a, f01=0x0006, f02=» P* x P* LENGTH-WOR M D P* 0 P MOVE LBIN17,W12 LENGTH OF ATTRIBUTE (FIXED) B P PERF POLICE,LBIN17,LBOOL4,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROL H & P BG FSP982 JUMP IF MEMORY OVERFLOW P MOVE LBIN1,W0 . P CALL EMPTYT,GBCD3I(W7)
0x0ae91a…12f7b6 [0x1a0]: Pad {f00=0x424e, f01=0x455c, f02=»GBCD3I(W7),=D'+1',FSP163 j $ P M MOVE LBIN1,W1 CONVERT TO BINARY 4 P CALL WXSLL,LBIN1,W14,LBIN1 SHIFT LEFT TO BIT 1 ( PFSP163 ` ( P ADD LBIN17,LBIN1 LOAD ORIGIN MEDIUM n . P TBF LBOOL5,FSP164 JMP IF NUMERIC D-FIELD ( P CALL SETB,LBIN17,W0
0x0ae91a…12f7b6 [0x1a1]: Pad {f00=0x4520, f01=0x5245, f02=»L ADR TO LENGTH-WORD F < P XCOPY LBI M N17,W1,W1,GBIN5,W1 IN CASE OPT PART UPD LENGTH $ P ADD GBIN5,W2 ADJUST POOLPOINTER ! 6 P* ! ^ < P* SCREEN-WORD (LBIN7 LOADED FROM 'SEATAB'-PROCEDURE ! h P* ! < P XCOPY BPOOL(GBIN4),GBIN5,W2,LBIN7,W0 ST
0x0ae91a…12f7b6 [0x1a2]: Pad {f00=0x4350, f01=0x4f4c, f02=»'-PROCEDURE ! 2 P* ! x ( P MOVE LBIN3,LB M IN14 SAVE DATA-LENGTH ! 0 P CALL WXSLL,LBIN3,W8,LBIN3 SHIFT LEFT TOBIT7 " & P ADD LBIN3,LBIN18 LOAD DATA-LENGTH " R B P XCOPY BPOOL(GBIN4),GBIN5,W2,LBIN3,W0 STORE FIELD-LENGTH-WORD " | $ P ADD GBIN5,W2 ADJU
0x0ae91a…12f7b6 [0x1a3]: Pad {f00=0x4544, f01=0x5552, f02=»E " P* " h & P MOVE LBIN3,LBIN15 LOAD WORK-I M TEM " r 6 P CALL WXSLL,LBIN3,W14,LBIN3 SHIFT LEFT TO BIT 0-3 # $ P ADD LBIN3,LBIN19 LOAD ECHO-TYPE # F P B FSP170 # n P EJECT # P* # @ P* TYPE WORD NUMERIC (LBIN19 LOADE FROM 'PICPOL'-PROC
0x0ae91a…12f7b6 [0x1a4]: Pad {f00=0x4444, f01=0x5c4c, f02=»BIN3,W1 ADJUST DECIMALPOINT=1 FIX # R . P CALL EMPTYT,G M STR1I(W18) ---CHECK IF EMPTY # & P BNOK FSP169 JMP IF EMPTY=>DEFAULT $ $ ( P CBE GSTR1I(W18),NO,FSP169 JMP IF NO $ N . P ADD LBIN3,W2 ADJUST DEC.POINT=3 MAXIMIZED $ z P B FSP169 $ PFSP168 $
0x0ae91a…12f7b6 [0x1a5]: Pad {f00=0x4c42, f01=0x494e, f02=»3 SHIFT LEFT TO BIT 4-5 $ 8 . P ADD LBIN3,LBIN19 LOAD DECIMAL M -POINT-TYPE $ r . P MOVE LBIN20,LBIN15 LOAD NUMB OF DECIMALS % 8 P CALL WXSLL,LBIN20,W12,LBIN20 SHIFT LEFT TO BIT 0-3 % F , P ADD LBIN3,LBIN20 LOAD NUMB OF DECIMALS % PFSP170 % : P X
0x0ae91a…12f7b6 [0x1a6]: Pad {f00=0x2057, f01=0x4f52, f02=»D (LBIN20) % > P* % ` P ADJUSTMENT % j $ P MOVE LBIN20,W0 M CLEAR INPUT WORD % . P CALL EMPTYT,GSTR1I(W17) ---CHECK IF EMPTY & P BOK FSP172 JMP IF NOT EMPTY & J 2 P TBT LBOOL5,FSP176 JMP IF ALPHA NUM=>DEF. LEFT & n P B FSP174 NUM=>DEF. RIGH
0x0ae91a…12f7b6 [0x1a7]: Pad {f00=0x4653, f01=0x5031, f02=»76 VERIFY & B . P CALL EMPTYT,GSTR1I(W15) ---CHECK IF EMPTY & Z P BNO M K FSP178 JMP IF EMPTY & ( P CBE GSTR1I(W15),NO,FSP178 JMP IF NO ' ( P CALL SETB,LBIN20,W6 ---SET BIT NO:6 ' J PFSP178 MUST ENTER ' v . P CALL EMPTYT,GSTR1I(W12) ---CHECK IF
0x0ae91a…12f7b6 [0x1a8]: Pad {f00=0x0050, f01=0x4653, f02=»P180 MANDATORY VALIDATION ' > . P CALL EMPTYT,GSTR1I(W21) ---CHECK IF EMPTYNO M ' d P BNOK FSP182 JMP IF EMPTY ( ( P CBE GSTR1I(W21),NO,FSP182 JMP IF NO ( * ( P CALL SETB,LBIN20,W8 ---SET BIT NO:8 ( V P EJECT ( PFSP182 MUST FILL ( . P CALL
0x0ae91a…12f7b6 [0x1a9]: Pad {f00=0x4249, f01=0x4e32, f02=»0,W9 ---SET BIT NO:9 ( * PFSP184 MINUS E-O-I-KEY ( V , P TBF LBOOL6,FSP186 JMP IF M NO MINUS E-O-I ( v * P CALL SETB,LBIN20,W10 ---SET BIT NO:10 ) PFSP186 AUTO E-O-I ) D . P CALL EMPTYT,GSTR1I(W14) ---CHECK IF EMPTY ) ` P BNOK FSP188 JMP IF EMPT
0x0ae91a…12f7b6 [0x1aa]: Pad {f00=0x5550, f01=0x0029, f02=» . P CALL EMPTYT,GSTR1I(W16) ---CHECK IF EMPTY ) : P BNOK FSP194 JMP IF EMPTY ) l ( P C M BE GSTR1I(W16),NO,FSP194 JMP IF NO ) . P CBE GSTR1I(W16),DUPL,FSP191 JUMP IF 'DUP' * * 0 P CBE GSTR1I(W16),BYPASS,FSP192 JMP IF BYPASS * ( P CALL SETB,LBIN20,W3
0x0ae91a…12f7b6 [0x1ab]: Pad {f00=0x5041, f01=0x5353, f02=» * * P CALL SETB,LBIN20,W13 ---SET BIT NO:13 * 6 P EJECT * d PFSP194 CHANGE PROTECT * r C M . P CALL EMPTYT,GSTR1I(W19) ---CHECK IF EMPTY + P BNOK FSP196 JMP IF EMPTY + 6 ( P CBE GSTR1I(W19),NO,FSP196 JMP IF NO + X * P CALL SETB,LBIN20,W14 ---S
0x0ae91a…12f7b6 [0x1ac]: Pad {f00=0x4245, f01=0x5c47, f02=»STR1I(W20),NO,FSP198 JMP IF NO + " * P CALL SETB,LBIN20,W15 ---SET BIT NO:15 + N PFSP198 + | < P XCOPY M BPOOL(GBIN4),GBIN5,W2,LBIN20,W0 STORE INPUT WORD + & P ADD GBIN5,W2 ADJUST POOL POINTER , : P* , d P* DECORATION WORD , n P* , & P ADD
0x0ae91a…12f7b6 [0x1ad]: Pad {f00=0x522d, f01=0x574f, f02=»RD , & P ADD GBIN5,W1 ADJUST POOL-POINTER , , ( P ADD LBIN11,W1 ADJUST TABLE POINTER , V P EJECT , P M * , * P* UNPACK REL ADR FID-TABLE (LBIN10) - P* - 8 P MOVE LBIN1,W0 WORKITEM:-0 - B P MOVE LBIN2,W0 WORKITEM:=0 - d 4 P MOVE LBIN3,
0x0ae91a…12f7b6 [0x1ae]: Pad {f00=0x4f20, f01=0x002d, f02=» . P XCOPY LBIN2,W1,W1,LBIN10,W1 DISPLACEMENT - " 0 P ADD LBIN2,W4 ADJUST TO REACH REL ADR F-CODE - T * P SUB LBI M N17,W6 ADJUST FOR OV HEAD INFO - @ P XCOPY BPOOL(LBIN1),LBIN2,W2,LBIN17,W0 STORE REL ADR.F-CODE . & . P ADD LBIN2,W2 ADJUST TO REACH REL
0x0ae91a…12f7b6 [0x1af]: Pad {f00=0x0050, f01=0x5c4d, f02=»OVE SLBIN7,LBIN10 SAVE FID-ADRESS (DISASTER ERRORS ?) . , P ADD LBIN10,W8 ADJUST FID-TABLE-POINTER . T , P XCOPY LBIN1 M ,W1,W1,LBIN10,W1 LOAD DISPL . . P CBNG LBIN1,LBIN3,FSP199 JUMP IF NOT E-O-P / $ , P ADD LBIN10,=X'0100' ADJUST POOL UNIT NO / V . P
0x0ae91a…12f7b6 [0x1b0]: Pad {f00=0x455c, f01=0x4c42, f02=»IN2,W1 OPTIONAL INDEX:=1 / ( P MOVE LBIN20,W12 LENGTH OF MAND PART / 0 6 P MOVE GBINIA(W20),LBIN18 SAVE NUMB OF PICTURE CHARN1 M / P* 0 P* VALIDATION 0 P* 0 * PFSP200 0 4 ( P PERF OBJVAL ***OBJECT OF VALIDATION 0 B & P BG FSP982 JUMP IF
0x0ae91a…12f7b6 [0x1b1]: Pad {f00=0x4249, f01=0x4e32, f02=»,W1 OPTIONAL INDEX:=2 (ACC) 0 P EJECT 0 . P* 0 < P* DUPLICATION REFERENCE 0 F P* 0 h PFSP220 0 r * P ADD LBIN2,W1 OP M TIONAL INDEX:=3 (DUP) 0 . P CALL EMPTYT,GSTR1I(W24) ---CHECK IF EMPTY 1 P BNOK FSP230 JUMP IF EMPTY 1 P 4 P CBE GST
0x0ae91a…12f7b6 [0x1b2]: Pad {f00=0x001e, f01=0x0050, f02=» BNOK FSP225 JMP IF EMPTY 1 ( P ADD LBIN3,W4 ADD LENGTH OF OPT PART 1 & PFSP225 1 R " P MOVE LSTR81,GSTR6B LOAD VALUE 1 ` , P PERF TYPL M EN ***TYPE & LENGTH OF OP PART 1 & P BG FSP982 JUMP IF MEMORY OVERFLOW 2 & P* 2 P P* APPLICATION MESSAGE
0x0ae91a…12f7b6 [0x1b3]: Pad {f00=0x4e4f, f01=0x4b5c, f02=»FSP240 JMP IF EMPTY 2 4 P MOVE LBIN3,GBINIA(W4) STORE LENGTH OF OPT PART 2 & P MOVE LSTR81,GST80I(W6) LOAD VALUE 2 R , P PERF TYPLEN ***TYPE M & LENGTH OF OP PART 2 | & P BG FSP982 JUMP IF MEMORY OVERFLOW 3 P EJECT 3 F P* 3 T P* ORIGIN MEDIU
0x0ae91a…12f7b6 [0x1b4]: Pad {f00=0x5c42, f01=0x4e4f, f02=»K FSP250 JMP IF EMPTY 3 2 P CBE GBCD3I(W7),=D'+1',FSP250 JMP IF KEYBOARD 3 , P MOVE LBIN3,W1 STORE LENGTH OF OPT PART 3 L & P MOVE LBIN4,GBCD3I(W M 7) LOAD VALUE 3 | 4 P XCOPY LSTR81,W0,W1,LBIN4,W1 STORE ORIGIN MEDIUM 4 , P PERF TYPLEN ***TYPE & LEN
0x0ae91a…12f7b6 [0x1b5]: Pad {f00=0x2c57, f01=0x315c, f02=»OPTIONAL INDEX:=6 (DEF VAL) 4 & P TBT LBOOL5,FSP252 JMP IF ALPHANUM 4 * P CALL EMPTYT,GBCD80 ---CHECK IF EMPTY 4 @ P BNOK FSP260 JMP IF EMPTY 4 n * P M MOVE GSTR80,GBCD80 LOAD NUM=>ALPANUM 4 . P ADD GBINIA(W2),W1 ADJUST LENGTH FOR SIGN 5 . " P T
0x0ae91a…12f7b6 [0x1b6]: Pad {f00=0x3141, f01=0x0035, f02=» PFSP251 5 . P CBNE GBCD80,=D'00',FSP251A JUMP IF NOT 0 5 . P XCOPY GSTR80,W0,W1,LSTR16,W3 COPY + SIGN 5 2 PFSP251A 5 d ( P TBF LBOOL7,FSP252 JMP IF NO N DECIMAL 5 t P CBE LBIN15,W0,FSP252 6 . P MOVE LBIN3,GBINIA(W2) LOAD NUMB OF CHARS 6 .
0x0ae91a…12f7b6 [0x1b7]: Pad {f00=0x5553, f01=0x5420, f02=»FOR DECIMAL 6 PFSP252 6 * P CALL EMPTYT,GSTR80 ---CHECK IF EMPTY 6 P BNOK FSP260 JMP IF EMPTY 6 6 4 P MOVE LBIN3,GBINIA(W2) STORE LENGTH OF OPT PART 6 X " P N MOVE LSTR81,GSTR80 LOAD VALUE 6 , P PERF TYPLEN ***TYPE & LENGTH OF OP PART 7 & & P
0x0ae91a…12f7b6 [0x1b8]: Pad {f00=0x4e44, f01=0x4558, f02=»:=7 (PR. POS) 7 . P CALL EMPTYT,GBCD3I(W8) ---CHECK IF EMPTY 7 P BNOK FSP280 PRINTOUT EMPTY 7 ( , P MOVE LBIN3,W2 STORE LENGTH OF OPT PART 7 L & P MOVE LBIN4,GBCD3I(W N 8) LOAD VALUE 7 | 0 P XCOPY LSTR81,W0,W1,LBIN4,W1 STORE PRINT ROW 8 & P MOVE
0x0ae91a…12f7b6 [0x1b9]: Pad {f00=0x4f55, f01=0x5420, f02=»POS RRCC 8 : P ADD GBINIA(W7),GBINIA(W20) ADD ACTUAL PICTURE LENGTH 8 8 P ADD LBIN4,GBINIA(W20) ADD PICSTR LEN TO COL NUMBER 8 ( 4 P MOVE GBCD3I(W13),GBCD3I(W8) LOAD MAX PROUT N ROW 8 d . P MOVE GBCD3I(W14),LBIN4 LOAD MAX PROUT COL 9 , P PERF TYPLEN
0x0ae91a…12f7b6 [0x1ba]: Pad {f00=0x00cc, f01=0x000a, f02=» PFSP280 9 0 P ADD LBIN2,W8 OPTIONAL INDEX:=15 (GUI MESS) 9 . P CALL EMPTYT,GST80I(W5) ---CHECK IF EMPTY 9 P BNOK FSP285 JMP IF EMPTY 9 J 4 P MOVE LBIN3,GBINIA(W3) STORE LENGTH N OF OPT PART 9 l & P MOVE LSTR81,GST80I(W5) LOAD VALUE : , P MOVE
0x0ae91a…12f7b6 [0x1bb]: Pad {f00=0x5c4c, f01=0x4249, f02=»N4,W2,FSP282 JMP IF LINE MESSAGE : P MOVE LSTR1,=X'00' : @ P INSRT LSTR81,W2,W1,LSTR1,W0 INSERT SECTION INDICATOR X'00' : $ P ADD LBIN3,W1 ADJUST MES LENGTH : T PFSP282 : | * P DLETE N LSTR81,W0,W2 DELETE TYPE PREFIX : , P PERF TYPLEN ***TYPE &
0x0ae91a…12f7b6 [0x1bc]: Pad {f00=0x0050, f01=0x2a20, f02=» ; PFSP285 ; , P CBE LBIN20,W12,FSP289 JMP IF NO OPTIONS ; & P MMOVE LBIN1,LBIN2,W0 WORKITEMS:=0 ; . P XCOPY LBIN1,W1,W1,LBIN17,W0 POOL-UNIT NO ; 8 . P XCOPY LBIN2,W1,W1,LBIN17,W1 DISPLACEM N ENT ; j * P ADD LBIN2,W6 ADJUST FOR OV HEAD INFO < :
0x0ae91a…12f7b6 [0x1bd]: Pad {f00=0x4a55, f01=0x5354, f02=» LENGTH OF ATTRAREA < > P XCOPY BPOOL(LBIN1),LBIN2,W2,LBIN3,W0 RESTORE LENGTH-WORD < PFSP289 < $ P B FSP070 GO ON WITH NEXT FIELD < . P EJECT < V P* < d P* CANCEL-KEY < n P* < P N FSP290 < P CLEAR TKBOOL KILL <OVE> = P ATT
0x0ae91a…12f7b6 [0x1be]: Pad {f00=0x5420, f01=0x4649, f02=»ELD CONTENTS = > P XCOPY GBIN4,W1,W1,GBIN9,W0 RESTORE RETURN-ADRESS BUFFIND = > P XCOPY GBIN5,W1,W1,GBIN9,W1 RESTORE RETURN-ADRESS POINTER = 6 P MOVE LBIN10,GBIN8 RESTORE ADRESS OF STATIC FIELD = T P B N FSP060 = P* > P* RETUR-KEY >
0x0ae91a…12f7b6 [0x1bf]: Pad {f00=0x422c, f01=0x4345, f02=»D,SCRNFC CHANGE ECHO-DEVICE > . P CALL CHANFC,SCRN,SCRNFC CHANGE FILE-CODE > & P MOVE GBIN2,W1 INDICATE RETUR-KEY > * P TBF LBOOL8,FSP399 JMP IF NEW SECTION > 6 * P MOVE LBIN1,DPBIN LOAD POOL-DIMENSION > d N , P ADD LBIN1,W1 ADJUST TO GET START
0x0ae91a…12f7b6 [0x1c0]: Pad {f00=0x003f, f01=0x009e, f02=» P* ? PFSP400 ? $ P MOVE LBIN1,W2 BACKGROUND:=BLACK ? , P CALL TESTB,GBIN10,W14 ---TESTBIT NO:14 ? P BF FSP403 JUMP IF FALSE ? $ * PFSP403 SUB LBIN1,W1 BACKGROUND:=WHITE ? D . P DSC SCRN,TRP,LBIN1 GET CORREC N T BACKGROUND ? r * P DISPLAY 0,W
0x0ae91a…12f7b6 [0x1c1]: Pad {f00=0x5c42, f01=0x4e4f, f02=»K FSP410 @ P SETCUR @ P B FSP090 @ PFSP410 @ " P MOVE LBIN3,LBIN4 CHANGE INDEX @ P B FSP405 @ P EJECT @ " P* @ 0 ( P* DISASTER ERROR FOUND IN OBJVAL @ : " P* - DISPLAY ERROR MESSAGE @ f . P* N - FORCE OPERATOR INTO SY
0x0ae91a…12f7b6 [0x1c2]: Pad {f00=0x001c, f01=0x0050, f02=» MOVE LBIN1,W0 NO CLEAR A 4 P MOVE LBIN4,=W'41' LOAD ERROR-MESSAGE NUMBER:=41 A 8 P PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE A . P IB LBIN2,FSP460,FSP290,FSP300 CLR,CAN,RET A 8 PFSP460 A j P ADD LBIN17,W6 ADJUST N A x > P XCOPY GBIN4
0x0ae91a…12f7b6 [0x1c3]: Pad {f00=0x2c53, f01=0x4c42, f02=»IN7 RESTORE FIDTAB ADRESS CURR FID B 0 P MOVE VBIN1,W9 INDEX TO NUMB-OF-CHARS-TABLE B $ P MOVE VBIN2,W1 BASIC LINE INDEX B : P MOVE VBIN3,SLBIN9 B-O-PAGE POINTER:=VALBUF POS ERROR B $ * P MOVE VBIN4,W0 END 0F PAGE POINTER:=0 B b $ P N MOVE VBIN5,W0
0x0ae91a…12f7b6 [0x1c4]: Pad {f00=0x2c4c, f01=0x4249, f02=»N1,W0 ERASE ONLY ON SCREEN C 0 P PERF VLPAGE,SLBIN9 ***VALIDATION PAGE LOAD C , P MOVE LSTR6A,LINNO(W9) CONVERT TO STRING C 8 P XCOPY BASLIN(VBIN2),W0,W4,LSTR6A,W2 LOAD LINENUMBER C P MOVE LBIN1,W8 C Z * P ADD LBIN1,VBIN2 CALCULATE INDEX N NUMBER C
0x0ae91a…12f7b6 [0x1c5]: Pad {f00=0x4e54, f01=0x454e, f02=»TS D p . P SET OBBOOL TRUE=DIS-ERROR FOUND IN OBJVAL D ( P SUB LBIN11,W4 ADJUST ATTAB POINTER D & P CLEAR LBOOL1 F=FWD TAB INDICATED D P B FSP13B D $ P EJECT D 6 P* D D P* END OF FORMAT FOUND D N P* D n PFSP500 D x P ATTFMT FH N OM
0x0ae91a…12f7b6 [0x1c6]: Pad {f00=0x294d, f01=0x4553, f02=»SAGE ROUTINE E d & P IB LBIN2,FSP500,FSP290, CLR,CAN C E & P FSP300,FSP505,FSP503 RET,ENT,PRT E * P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT E P ATTFMT FWFSPR E " ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FMT E 8 " P B FSP500 GO AND WAIT ON INPUT E d PFSP503
0x0ae91a…12f7b6 [0x1c7]: Pad {f00=0x4f4f, f01=0x4c2d, f02=»POINTER:=28 F l P* F ( P* STORE DFD-SIZE BYTE 22-23 (+6) F P* F 0 P XCOPY BPOOL(W1),LBIN1,W2,LBIN16,W0 DFD-SIZE F * P ADD LBIN1,W4 ADJUST POOL-POINTER:=32 F P* F < 4 P* STORE REL ADR. PICTURE POOL BYTE 26-27 (+6) F F P* F ~ 0 P MOVE LB
0x0ae91a…12f7b6 [0x1c8]: Pad {f00=0x5c47, f01=0x4249, f02=»N4,W1 NEXT POOL-UNIT G x , P CMP GBIN4,DPBIN CHECK DIMENSION OF POOL G " P BG FSP982 JUMP IF OUT OF SIZE G P MOVE GBIN5,W6 G , P CALL ICLEAR,BPOOL(GBIN4) ---CLEAR ITEM G P EJECT G 8 PFSP508 G F 4 P XCOPY BPOOL(W1),LBIN1,W1,GBIN4,W1 POOL-UNIT NO G T *
0x0ae91a…12f7b6 [0x1c9]: Pad {f00=0x204f, f01=0x5620, f02=»HEAD INFO H ^ 0 P XCOPY BPOOL(W1),LBIN1,W1,LBIN2,W1 DISPL -6 H P* H 4 P* STORE PICTURE-STRING AREA IN BUFFER-POOL(S) H P* H , P MOVE LBIN2,W0 COPY-POINTER PICTUR-AREA H PFSP510 H < , P MOVE LBIN1,LBIN3 LOAD SIZE OF BUFFER-1 H J , P SUB LBIN1
0x0ae91a…12f7b6 [0x1ca]: Pad {f00=0x0049, f01=0x0046, f02=» ( P MOVE LBIN4,LBIN6 LOAD MINIMUM SIZE I x PFSP520 I > P XCOPY BPOOL(GBIN4),GBIN5,LBIN4,PICTUR,LBIN2 STORE PICTURE I . P CBNL LBIN1,LBIN6,FSP530 JMP IF ALL STORED I ( P ADD LBIN2,LBIN4 ADJUST COPY-POINTER I & . P SUB LBIN6,LBIN4 ADJUST LENGTH OF PICTURE I
0x0ae91a…12f7b6 [0x1cb]: Pad {f00=0x5c43, f01=0x4845, f02=»CK DIMENSION OF POOL J Z " P BG FSP982 JUMP IF OUT OF SIZE J " P MOVE GBIN5,W6 POOLPOINTER:=6 J , P CALL ICLEAR,BPOOL(GBIN4) ---CLEAR ITEM J P B FSP510 GO ON J P EJECT J P* J , , P* STORE NUMB OF SECTIONS (POOL-UNITS) J 6 P* J f PFSP530 J
0x0ae91a…12f7b6 [0x1cc]: Pad {f00=0x4545, f01=0x4445, f02=»D K D P* K r PFSP982 K | , P MOVE LBIN5,W2 BPOOL DIMENSION OWERFLOW K P B FSP988 K PFSP983 K ( P MOVE LBIN5,W3 PICTURE-POOL OVERFLOW K P B FSP988 K PFSP985 K . P MOVE LBIN5,W5 VALIDATION-BUFFER OVERFLOW K & PFSP988 K X P MOVE LBIN1,
0x0ae91a…12f7b6 [0x1cd]: Pad {f00=0x4f56, f01=0x455c, f02=»GBIN2,W1 INDICATE RETURN KEY L P* L P* EXIT L P* L PFSP999 L $ P MOVE VD82CW,=X'0080' CURSOR ON L P DSC SCRN,X'11',VD82CW L P RET L P PEND L P EJECT L P* L & 0 P* FIX TYPE AND LENGTH OF AN OPTIONAL PART L 0 P* O
0x0ae91a…12f7b6 [0x1ce]: Pad {f00=0x4152, f01=0x5420, f02=» M . " P* LBIN3 = LENGTH M d 6 P* LSTR81 = TYPE & LENGTH BIT 0-3 TYPE M 8 P* BIT 7-15 LENGTH M 2 P* OPTIONAL ATTRIBUTE CODE M @ P* OUTPUT: LBIN20 = TOTAL LENGTH OF AL
0x0ae91a…12f7b6 [0x1cf]: Pad {f00=0x4f4f, f01=0x4c20, f02=»POINTER UPDATED N , < P* BPOOL = OPTIONAL ATTRIBUTE STORED N n H P* CR = 0 FALSE NO WORKING SPACE LIMIT REACHED N F P* =/0 WORKING SPACE LIMIT REACHED N P* N D < P******************
0x0ae91a…12f7b6 [0x1d0]: Pad {f00=0x5730, f01=0x5c57, f02=»ORKITEM:=0 O @ 0 P XCOPY LBIN4,W0,W1,LBIN2,W1 STORE INDEXTYPE O b 6 P CALL WXMUL,LBIN4,W16,LBIN4 SHIFT LEFT TO BIT 0-3 O " P ADD LBIN4,LBIN3 STORE LENGTH O 6 P XCOPY LSTR4A,W0,W2,LBIN4,W0 STORE IN STRING-ITEM O 8 P INSRT LSTR81,W0,W2,LSTR4A,W0 INSERT TYPE
0x0ae91a…12f7b6 [0x1d1]: Pad {f00=0x424f, f01=0x4f4c, f02=»4 F NO SPLITT IN POLICE P > * P MOVE LBIN4,W2 NUMB OF CHARS TO STORE P j D P PERF POLICE,LBIN4,LBOOL4,VBOOL8,LSTR81 ***POOL-LIMIT CONTROLER P & P BG TYP999 JUMP IF MEMORY OVERFLOW P : P XCOPY BPOOL(GBIN4),GBIN5,W2,LSTR81,W0 STORE OPT PART P & P ADD GBIN5,W
0x0ae91a…12f7b6 [0x1d2]: Pad {f00=0x0010, f01=0x0022, f02=» P SET LBOOL4 T SPLIT IN POLICE Q F PTYP100 Q l . P DLETE LSTR81,W0,W2 DELETE TYPE AND LENGTH Q z D P PERF POLICE,LBIN3,LBOOL4,VBOOL8,LSTR81 ***POOL-LIMIT CONTROLER Q & P BG TYP999 JUMP IF MEMORY OVERFLOW Q < P XCOPY BPOOL(GBIN4),GBIN5,LBIN3,LSTR81,W0 STORE
0x0ae91a…12f7b6 [0x1d3]: Pad {f00=0x000a, f01=0x0050, f02=» EJECT R > P* R L & P* INITIALIZATION SECTION LEVEL R V P* R PINSELV PROC R 4 P MMOVE LBIN5,LBIN6,LBIN11,LBIN13, LINE NO :=0 C R 2 P LBIN16,GBINIA(W7),W0 PICTURE-AREA POINTER:=0 R " P ATTRIBUTE-TABLE POINTER:=0 R P FIELD-MARK POINTER:
0x0ae91a…12f7b6 [0x1d4]: Pad {f00=0x5420, f01=0x504f, f02=»S :=00,00 S ( P CLEAR LBOOL3 FALSE= FORWARD SEARCH S J & P CALL ICLEAR,PICTUR ---CLEAR ITEM S v P MOVE GST80I(W4),=C' ' S P RET S P PEND S P EJECT S P* S P* INITIALIZATION ROW LEVEL S P* S PINROLV PROC S $ P ADD LBIN5,W1 IN
0x0ae91a…12f7b6 [0x1d5]: Pad {f00=0x5c47, f01=0x5354, f02=»80I(W3),W0,LBIN9,GVDUR(LBIN5),W0 LOAD "CURR" T ( . P MOVE LSTR81,=X'1E00' LOAD .NORM IN SLASH T f 4 P INSRT GST80I(W3),W0,W1,LSTR81,W0 ATTR -> .NORM T $ P MOVE LSTR81,=X'20' LOAD BLANKS T " P MOVE LSTR9A,=X'00' LOAD 00'S T P MOVE LBIN4,W0 T P MOVE LB
0x0ae91a…12f7b6 [0x1d6]: Pad {f00=0x4e33, f01=0x2c4c, f02=»BIN4 GET LENGTH U P ADD LBIN3,W1 ADJUST LENGTH U D : P XCOPY GST80I(W3),LBIN4,LBIN3,LSTR81,W0 FILL STR "20" U h PINR600 U * P MOVE LSTR81,=X'1C00' STOP SUPRESSION U P MOVE LBIN4,=W'81' U : P XCOPY GST80I(W3),LBIN4,W1,LSTR81,W0 "1C" IN LAST POS U
0x0ae91a…12f7b6 [0x1d7]: Pad {f00=0x5238, f01=0x3030, f02=» V , P MOVE LBIN5,=X'00FF' E-O-SECTION SIGNAL V . PINR999 V ^ P RET V l P PEND V x P EJECT V P* V " P* INITIALIZATION FIELD LEVEL V P* V PINFILV PROC V 2 P CLEAR OBBOOL FALSE=NO DIS-ERROR FROM "OBJVAL" V 2 P MOVE LSTR4A,=X'172A20'
0x0ae91a…12f7b6 [0x1d8]: Pad {f00=0x0056, f01=0x0186, f02=» * P TBF LBOOL4,INF010 JUMP IF FIELD FOUND W $ $ P B INF995 JUMP IF NO FIELD FOUND W R PINF010 W z P SET LBOOL9 T= FIELD FOUND W . P BT INF015 JMP IF NOT FIRST FIELD IN LINE W ( P ERASE 0,W3,W5 ERASE "PREV" & "CURR" W 2 P DISPLAY 2,W6,W8 DISPLAY"LINNO","P
0x0ae91a…12f7b6 [0x1d9]: Pad {f00=0x4f20, f01=0x0057, f02=» P CALL WXMUL,LBIN12,W5,LBIN12 X * P SUB LBIN12,W5 CALC TAB ELEMENT ADRESS X D 4 P XCOPY GSTR4A,W0,W4,FIDTAB,LBIN12 LOAD FIELD-ID X r 0 P SUB LBIN13,W1 ADJUST COL NO FOR 0-COUNTING X > P XCOPY GST80I(W4),LBIN13,W2,LSTR4A,W0 LOAD FIELD-MARK SIGN X " P ERA
0x0ae91a…12f7b6 [0x1da]: Pad {f00=0x2c47, f01=0x4243, f02=»D80 ---CLEAR ITEM Y & P CALL ICLEAR,VALBUF ---CLEAR ITEM Y . $ P CLEAR LBOOL1 FALSE = NEW FIELD Y X 0 P CLEAR CHABOL F=VALIDATION ROUTINE UNCHANGED Y 0 P MOVE VALPTR,W0 VALIDATION BUFFER POINTER:=0 Y , P TBF LBOOL8,INF020 JUMP IF NEW REG.MODE Y , P PERF
0x0ae91a…12f7b6 [0x1db]: Pad {f00=0x5552, f01=0x452d, f02=»POOL HANDLING Y & P BG INF999 JUMP IF MEMORY OVERFLOW Z $ ( P TBT LBOOL1,INF060 JUMP IF OLD FIELD Z N P* Z z & P* DEFAULT VALUES OF PARAMETERS Z P* Z P MOVE LSTR1,NO Z ( P MOVE GBCD3I(W7),W1 ORIGIN-MEDIUM:=1 Z & P MMOVE GSTR1I(W24), DUPLICATE:
0x0ae91a…12f7b6 [0x1dc]: Pad {f00=0x5c5c, f01=0x4753, f02=»TR1I(W16), AUTO SKIP-DUP:=N C [ & P GSTR1I(W18), DECIMAL ENTER:=N C [ . & P GSTR1I(W19), CHANGE PROTECT:=N C [ X " P GSTR1I(W22), VALIDATION:=N C [ , P GSTR1I(W21),LSTR1 MAND. VALIDATION:=N [ ( P MOVE GSTR1I(W14),YES AUTO E-O-I:=Y [ * P MOVE GSTR1I(W
0x0ae91a…12f7b6 [0x1dd]: Pad {f00=0x0190, f01=0x0028, f02=» P MOVE GSTR1I(W17),LEFT L-R ADJUST:=L P EJECT 0 PINF060 > * P MOVE LBIN2,W8 POINTER TO COPY 'D9':S L 0 P MOVE LBIN4,LBIN18 STORE EFF PICTURE LENGTH z $ P MOVE LSTR81,=X'D9' LOAD 'D9':S " P TBF LBOOL5,INF100 JMP IF NUM , P CALL FMOVE,LSTR
0x0ae91a…12f7b6 [0x1de]: Pad {f00=0x0000, f01=0x0000, f02=» O ( P MOVE LBIN1,LBIN14 LOAD EFF. LENGTH ] ( P TBT LBOOL5,INF120 JMP IF ALPHA NUM ] 4 " P SUB LBIN1,W1 ADJUST FOR SIGN ] ` . P TBF LBOOL7,INF115 JMP IF NO DECIMAL CHAR. ] . P CBNE LBIN15,W0,INF115 JMP IF >0 DECIMALS ] * P SUB LBIN1,W1 ADJ. FOR FLOAT
0x0ae91a…12f7b6 [0x1df]: Pad {f00=0x005d, f01=0x0186, f02=» O 0 P XCOPY LSTR89,W4,W1,LBIN1,W1 LOAD MAXLENGTH ^ & P TBT LBOOL5,INF250 JMP IF ALPHANUM ^ 8 . P XCOPY LBIN3,W1,W1,LSTR89,W3 GET MINLENGTH ^ b , P ADD LBIN3,LBIN15 MINL:=NUMB OF DECIMALS ^ , P XCOPY LSTR89,W3,W1,LBIN3,W1 RELOAD MINL ^ 2 P DLETE LSTR8
0x0ae91a…12f7b6 [0x1e0]: Pad {f00=0x002a, f01=0x0050, f02=» SUB L O BIN4,LBIN1 CALC NUMB OF INS CHAR ^ 0 P ADD LBIN4,LBIN4 INSCHAR => 2 CHAR POSITIONS _ ( ( P ADD LBIN4,LBIN1 ADD EFFECTIV LENGTH _ 2 P CBNG LBIN4,W80,INF125 JMP IF PIC-STRG < = 80 _ P MOVE LSTR81,=C'9' _ 6 P INSRT LSTR89,W8,LBIN1,LSTR81,W0 I
0x0ae91a…12f7b6 [0x1e1]: Pad {f00=0x4c42, f01=0x494e, f02=»1 LOAD PICTU O RE-LENGTH _ t P B INF230 ` PINF125 ` $ > P INSRT LSTR89,W8,LBIN18,PICTUR,LBIN19 INSERT PICTURESTRING ` 2 4 P MOVE LSTR16,=X'395A2D2B2A242E2C4245' 9Z-+*$.,BE ` t . P MOVE LBIN3,LBIN18 LOAD EFF PICTUR LENGTH ` P EJECT ` PINF130 `
0x0ae91a…12f7b6 [0x1e2]: Pad {f00=0x0060, f01=0x0160, f02=» PINF140 ` 0 P O INSERT LSTR89,LBIN2,W1,LSTR16,W9 INSERT 'E' ` , P ADD LBIN4,W1 ADJUST EFF PICTURE LENGTH a 4 0 P ADD LBIN2,W1 ADJUST FORMAT POINTER FOR 'E' a d P B INF200 a PINF150 a P IB LBIN1,INF200, Z C a $ P INF160,INF160,INF200,
0x0ae91a…12f7b6 [0x1e3]: Pad {f00=0x4f52, f01=0x202b, f02=» IN 1ST POS a Z , P CBE O LBIN3,W1,INF200 - OR + IN LAST POS a PINF170 b , P B INF140 GO MAKE INSERT 'E' b : PINF200 b ^ 4 P ADD LBIN2,W1 ADJUST FORMAT POINTER FOR PIC CHAR b l & P SUB LBIN3,W1 ADJUST MATCH COUNTER b , P CBNE LBIN3,W0,INF130 GO O
0x0ae91a…12f7b6 [0x1e4]: Pad {f00=0x455c, f01=0x4c42, f02=»IN15,W0,INF230 b j P SUB LBI O N2,W1 ADJUST b P DLETE LSTR89,LBIN2,W1 c P SUB LBIN4,W1 c 2 PINF230 c H ( P ADD LBIN2,W1 ADJUST FORMAT POINTER c V 4 P XCOPY LSTR89,W7,W1,LBIN4,W1 LOAD PICTURE LENGTH c P EJECT c PINF250 c 0 P MOVE LBIN3,
0x0ae91a…12f7b6 [0x1e5]: Pad {f00=0x4f56, f01=0x455c, f02=»VBIN1,W9 INDEX TO NUMB-OF-CHARS-TABL O E c f $ P MOVE VBIN2,W1 BASIC LINE INDEX d , P MOVE VBIN3,W0 START OF PAGE POINTER:=0 d 2 * P MOVE VBIN4,W0 END 0F PAGE POINTER:=0 d b $ P MOVE VBIN5,W0 1ST FREE LINE:=0 d P MOVE LBIN2,W0 d . P PERF VLPAGE,L
0x0ae91a…12f7b6 [0x1e6]: Pad {f00=0x000a, f01=0x0050, f02=»INF998 d f $ P CMP W0,W1 CR:=2 VALBUF OVER O FLOW d t PINF999 e P RET e P PEND e & P EJECT e 4 P* e B > P* SEARCH ATTRIBUTE-TABLE TO FIND ITS ATTRIBUTE -POSITION e L P* e D P* INPUT : LBIN11 = CURRENT DYNAMIC FIELD POSITIO
0x0ae91a…12f7b6 [0x1e7]: Pad {f00=0x004c, f01=0x0050, f02=»* LBIN12 = SEQ. NO OF DYNA O MIC FIELD (=0 NEW DYN FI e ` L P* LBIN13 = COLUMN-POSITION OF FOUND DYNAMIC FIELD f F P* LBIN7 = CURSOR POSITION CURRENT DYN FIELD f p J P*
0x0ae91a…12f7b6 [0x1e8]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»****************************************************** O ************** f V PSEATAB PROC g ( P MMOVE LBIN1,LBIN12,W0 WORKITEMS:=0 g * 0 P CLEAR LBOOL4 FALSE = DYN FIELD ENTRY FOUND g V P* g P* FORWARD SEARCHING g P* g PSEA100 g 2 P
0x0ae91a…12f7b6 [0x1e9]: Pad {f00=0x5345, f01=0x4138, f02=»00 JUMP IF END-OF-TABLE g B : P CBG LBIN1,LBIN5,SEA800 NO F O IELD FOUND WITHIN CURR ROW g t $ P ADD LBIN11,W2 NEXT SEQ. NO-POS h " 8 P XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. h J . P ADD LBIN11,W2 ADJUST FOR NEXT ELEMENT-POS h 6 P CBE LBIN12,
0x0ae91a…12f7b6 [0x1ea]: Pad {f00=0x4f53, f01=0x0068, f02=» ( P ADD LBIN11,W1 ADJUST FOR COLUMN POS h T < P XCOPY LBIN13,W1 O ,W1,ATTAB,LBIN11 FETCH ATTRIBUTE-COLUMN h 2 P SUB LBIN11,W1 ADJUST FOR FOUND ATRIBUTE ADR. i 0 4 P CBNG LBIN13,LBIN9,SEA999 JMP IF NOT OVFL-ENTRY i f , P ADD LBIN11,W4 ADJUST IF OUTSIDE
0x0ae91a…12f7b6 [0x1eb]: Pad {f00=0x5c52, f01=0x4554, f02=» i D P PEND i P P EJECT i ^ P INCLUDE FWFSPS,LIST i l P END i O@ @ j B,LBIN11 FETCH ATTRIBUTE-COLUMN h 2 P SUB LBIN11,W1 ADJUST FOR FOUND ATRIBUTE ADR. i 0 4 P CBNG LBIN13,LBIN9,SEA999 JMP IF NOT OVFL-ENTRY i f , P ADD LBIN11,W4 ADJUST IF O
0x0ae91a…12f7b6 [0x1ec]: Pad {f00=0x0136, f01=0x0008, f02=» P RET i D P PEND i P P EJECT i ^ P INCLUDE FWFSPS,LIST i l P END i O k B,LBIN11 FETCH ATTRIBUTE-COLUMN h 2 P SUB LBIN11,W1 ADJUST FOR FOUND ATRIBUTE ADR. i 0 4 P CBNG LBIN13,LBIN9,SEA999 JMP IF NOT OVFL-ENTRY i f , P ADD LBIN11,W4 ADJUS
0x0ae91a…12f7b6 [0x1ed]: Pad {f00=0x4139, f01=0x3939, f02=» i 6 P RET i D P PEND i P P EJECT i ^ P INCLUDE FWFSPS,LIST i l P END i O
0x0ae91a…12f7b6 [0x1ee]: Pad {f00=0x0000, f01=0x0000, f02=» O
0x0ae91a…12f7b6 [0x1ef]: Pad {f00=0x0000, f01=0x0000, f02=» O
0x0ae91a…12f7b6 [0x1f0]: Pad {f00=0x0000, f01=0x0000, f02=» O
0x0ae91a…12f7b6 [0x1f1]: Pad {f00=0x0000, f01=0x0000, f02=» OAN P* . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ < P* OF A FORMAT
0x0ae91a…12f7b6 [0x1f2]: Pad {f00=0x4b3d, f01=0x484f, f02=»M C P PRT,DUP,CFW,ENT 11-14 *@ J | O . P* KEYTABLE TO BE USED IN 'READIN' MODULE @ P* THESE KEYS ARE VALID IN ONLY IN THE VERY FIRST POSITION @ < P* OF A F
0x0ae91a…12f7b6 [0x1f3]: Pad {f00=0x2d31, f01=0x3020, f02=»NOK=HOM C P PRT,DUP,CFW,ENT 11-14 *@ J | O l " P LDR* A5,A13 - ... TC:TID, ... ( P LD A6,TC:SST,A13 - ... TC:SST, ... . * P LD A7,TC:DFD,A13 - ... TC:DFD AND ... Z " P
0x0ae91a…12f7b6 [0x1f4]: Pad {f00=0x5c53, f01=0x545c, f02=»A4,PB:MBL,A13 RESTORE SAVE PAR BLOCK ... $ P STR A5,A13 ... AND WS:TCA ITEMS B P ST A6,TC:SST,A13 j P ST A7,TC:DF |A D, OA D,A13 & P LC A1,PB:FC,A13 - SEE IF WOPEN ? P ANK A1,/FF 8 P RF(NZ) RLS400 - NO ! L . P LDKL A1,/100 - YES, SET
0x0ae91a…12f7b6 [0x1f5]: Pad {f00=0x000c, f01=0x0050, f02=»ZZZ END @ RESTORE SAVE PAR BLOCK ... $ P STR A5,A13 ... AND WS:TCA ITEMS B P ST A6,TC:SST,A13 j P ST A7,TC:DF | O & P LC A1,PB:FC,A13 - SEE IF WOPEN ? P ANK A1,/FF 8 P RF(NZ) RLS400 - NO ! L . P LDKL A1,/100 - YE
0x0ae91a…12f7b6 [0x1f6]: Pad {f00=0x3134, f01=0x000b, f02=» PZZZ END @ RESTORE SAVE PAR BLOCK ... $ P STR A5,A13 ... AND WS:TCA ITEMS B P ST A6,TC:SST,A13 j P ST A7,TC:DF | D O DATA I:ESKI P DATA I:ESKI P DATA I:ESKI ( P DATA I:EBRI < P DATA I:EBRB P P DATA I:EBR d
0x0ae91a…12f7b6 [0x1f7]: Pad {f00=0x000d, f01=0x00f0, f02=» P DATA I:ESKI P DATA T:DSL P DATA I:ESKI , P DATA I:ESKI @ P DATA I:RET T P EJECT T:DEDT h P* ~ P* SEAR P
0x0ae91a…12f7b6 [0x1f8]: Pad {f00=0x0000, f01=0x0000, f02=» P
0x0ae91a…12f7b6 [0x1f9]: Pad {f00=0x0000, f01=0x0000, f02=» P@ P* 8 P* KEYT22 = KEYT2, BUT MINUS-KEY IS NOT INCLUDED P* J * PKEYT22 KTAB BSP,
0x0ae91a…12f7b6 [0x1fa]: Pad {f00=0x0000, f01=0x0000, f02=» | P 8 P* KEYT22 = KEYT2, BUT MINUS-KEY IS NOT INCLUDED P* J * PKEYT22 KTA
0x0ae91a…12f7b6 [0x1fb]: Pad {f00=0x0000, f01=0x0000, f02=» |@ GH P@ GH INTENSITY PULN EQU X'55' UNDERLINE 'U' $ PRVS EQU X'52' REVERSED IMAGE 'R'
0x0ae91a…12f7b6 [0x1fc]: Pad {f00=0x4420, f01=0x0001, f02=» PLIN EQU X'81' LINE PALL EQU X'03' ALL ( PSDS EQU X'92' STATIC/DYNAMIC-SWITCH PFNC EQU X'93' FUNCTION H PCRL EQU X'0D' CRLF f PHGH EQU X'48' HI | P SITY PULN EQU X'55' UNDERLINE 'U' $ PRVS EQU X'52' REVERSED IMA
0x0ae91a…12f7b6 [0x1fd]: Pad {f00=0x4f57, f01=0x4e57, f02=»ARD PLIN EQU X'81' LINE PALL EQU X'03' ALL ( PSDS EQU X'92' STATIC/DYNAMIC-SWITCH PFNC EQU X'93' FUNCTION H PCRL EQU X'0D' CRLF f PHGH EQU X'48' HI | FF P FF P B FSN095 PFSN420 0 P TBF LBOOL4,FSN260 JUMP IF TABLE N
0x0ae91a…12f7b6 [0x1fe]: Pad {f00=0x454e, f01=0x4420, f02=» P EJECT P* MESSAGE ROUTINE < P* THIS ROUTINE WRITES A MESSAGE FROM A MESSAGE TABLE 6 P* AND IS WAITING FOR A KEYBOARD PRESSURE WHICH H * P* HAD INFL | UE P UENCE ON THE PROCESSING 8 P* CONFIRMATION MUST BE AVAILABLE I
0x0ae91a…12f7b6 [0x1ff]: Pad {f00=0x2031, f01=0x2d34, f02=». P* B P* INPUT : KEYTX = USED KEYTABLE CLR,CAN,RET,ENT,...,... < P* MESSNO = MESSAGE NO OF THE MESSAGE TABLE * < P* OUTPUT : LBIN2 = CONTAINING KE W P
0x0ae91a…12f7b6 [0x200]: Pad {f00=0x0000, f01=0x0000, f02=» P
0x0ae91a…12f7b6 [0x201]: Pad {f00=0x0000, f01=0x0000, f02=» PAV P* . P* KEYTABLE TO BE USED IN 'READIN' MO
0x0ae91a…12f7b6 [0x202]: Pad {f00=0x0050, f01=0x4b45, f02=»YT3 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,NOK,BTB,NOK,PRT, 11-15 C P NOK,NOK,ENT 16-18 6@ R | P . P* KEYTABLE TO BE USED IN 'READ
0x0ae91a…12f7b6 [0x203]: Pad {f00=0x0000, f01=0x00b2, f02=» * PKEYT3 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,NOK,BTB,NOK,PRT, 11-15 C P NOK,NOK,ENT 16-18 6@ R | R1 P R16 FORMAT CONDITIONS CHANGED P E
0x0ae91a…12f7b6 [0x204]: Pad {f00=0x0002, f01=0x0090, f02=» P EXTRN T:SCUR SETCUR " P EXTRN T:DNL NEW LINE DISPLAY ( P EXTRN T:TINP FINP HANDLER SKIP MODE & P EXTRN T:TKI FKI HANDLER SKIP MODE $ $ P EXTRN T:DSL FIRST LINE DISPLAY N $ P EXTRN T:RCR STORE CR AND | RE P RETURN v P EXTRN I:EVT P
0x0ae91a…12f7b6 [0x205]: Pad {f00=0x2055, f01=0x504f, f02=»N ITEM VALUE , P EXTRN I:EBRB BRANCH UPON BOOLEAN VALUE P EXTRN I:EXIT FEXIT & P EXTRN I:EBR UNCONDITIONAL BRANCH , P EXTRN I:ECWC CONTROL WORD RESET, NO IO 6 P EXTRN I:EFLA FLINK f P EXTRN I:EXPY | FX P FXCOPY @2 " P EXTRN I:R
0x0ae91a…12f7b6 [0x206]: Pad {f00=0x5c54, f01=0x0004, f02=» T * P* NO STD CONDITIONAL ASSEMBLY FLAGS PNO EQU 0 PYES EQU 1 PRESE EQU NO P* " P* CONDITIONAL ASSEMBLY FLAGS P* @ PTEST EQU 1 J PNOTEST EQU 0 PPARM EQU TEST p P* P | * P * PPS EQU A14 S
0x0ae91a…12f7b6 [0x207]: Pad {f00=0x4134, f01=0x5c42, f02=»UFFER POINTER P* " PSTKB EQU 2 STACK BASE POINTER P* PWAITBT EQU /80 WAIT BIT T P EJECT T:DEDT T:DEDT T:DEDT T:DEDT T:DEDT T:DEDT T:DIS2 T P* h P* DISPLAY FUNCTION EQUATES P P
0x0ae91a…12f7b6 [0x208]: Pad {f00=0x0000, f01=0x0000, f02=» P $ ( 0
0x0ae91a…12f7b6 [0x209]: Pad {f00=0x0000, f01=0x0000, f02=» P . P
0x0ae91a…12f7b6 [0x20a]: Pad {f00=0x2020, f01=0x2020, f02=»LATEST UPDATE=850605 BY JE P* P* HISTORY= : P* 850605/JE TEST-OUT TIMEOUT ON KEYBOARD L P* 850313/JE PERFORMANCE INDICATE DYN FIELD MODIFIED/DELETED J P* 850306/JE DESTROYING ATTAB WHEN CON P
0x0ae91a…12f7b6 [0x20b]: Pad {f00=0x3031, f01=0x3920, f02=»- SPCBAR ON POS 0 T 8 P* 841120/CJ MUL&DIV NOW FROM ASSROUTINE J P* 831019/CJ SEQUENCE ERROR IN ATTAB - SOLVED (LOC:FSM11F) 2 P* 830923/CJ STPBLK & STABLK IMPL. , L P* 830606/CJ DECOATION-SETTING NOT
0x0ae91a…12f7b6 [0x20c]: Pad {f00=0x2f43, f01=0x4a20, f02=» SEQUENCE ERROR IN ATTAB , GOT FROM ALFATEST j 4 P* SEE LOC FSM106 & FSM110 P* > P********************************************************* P DDUM WSMDDV : P EJECT N < P************************************************
0x0ae91a…12f7b6 [0x20d]: Pad {f00=0x4e34, f01=0x2020, f02=» WORKITEMS l $ P* LBIN5 CURRENT ROW NO & P* LBIN6 CURRENT COLUMN NO $ P* LBIN7 CURRENT "RR,CC" * P* LBIN8 MAXIMAL USED ROWS NO , P* LBIN9 MAXIMAL USED COLUMNS NO 6 " P* LBIN10 CURRENT DECOR
0x0ae91a…12f7b6 [0x20e]: Pad {f00=0x5620, f01=0x0004, f02=» n P ENTRY FSMODL | ( P ENTRY ZERFLL ***ZEROREFILL X /00:S 2 P EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION 4 P EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR SETTING < P EXPROC DECORS,PBIN,PDSET ***DECORATION SETTING/CLEARING , > P EXPROC READIN,PKTAB
0x0ae91a…12f7b6 [0x20f]: Pad {f00=0x5052, f01=0x494e, f02=»T FORMAT SECTION LAYOUT Z $ P EXPROC ATTPRT ***ATTACH PRINTER $ P EXPROC DETPRT ***DETACH PRINTER $ P EXPROC STPBLK ***STOP BLOCKING $ P EXPROC STABLK ***START BLOCKING $ P EXT ICLEAR ---ASSRUT:CLEAR ITEM 0 " P EXT TESTB ---ASSRUT:TEST BIT X
0x0ae91a…12f7b6 [0x210]: Pad {f00=0x5c45, f01=0x4d50, f02=»TYT ---ASSRUT:EMPTY ITEM b , P EXT GETIND ---ASSRUT:GET LENGTH OF ITEM ( P EXT WXMUL ---ASSRUT:MULTIPLICATION $ P EXT WXSLL ---ASSRUT:SHIFT LEFT P* & PTRP EQU X'A7' TRANSFORM PARAMETER PBLS EQU X'BD' BLOCK START B PBLE EQU X'BE' BL
0x0ae91a…12f7b6 [0x211]: Pad {f00=0x5c4b, f01=0x4559, f02=»T7,LIST X P EJECT t P INCLUDE KEYT8,LIST P INCLUDE KEYT13,LIST P INCLUDE KEYT16,LIST P EJECT PFSMODL PROC P ATTFMT FHOME P THOME 2 P CBNE GBIN2,W1,FSM040 JUMP IF NOT RETURN-CODE > P XCOPY GBIN4,W1,W1,GBIN7,W0
0x0ae91a…12f7b6 [0x212]: Pad {f00=0x4c42, f01=0x494e, f02=»8,GBCD3I(W3) LOAD MAXROW BINARY T . P MOVE LBIN9,GBCD3I(W4) LOAD MAXCOL BINARY . P MOVE LBIN7,=X'0101' LOAD CURSOR POSITION 0 P PERF CURSET,LBIN7,LBIN3,SCRN ***CURSOR SET " P MOVE LBIN2,W2 BUFFERLENGTH:=2 ( P MOVE LSTR9A,=X'203100' ERASE SCREEN
0x0ae91a…12f7b6 [0x213]: Pad {f00=0x0009, f01=0x0042, f02=» P* PFSM050 f . P MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 t " P CLEAR LBOOL6 CLEAR OFF DECOR 8 P PERF DECORS,W15,SYSL ***SET ALL DECORS OFF 00001111 8 P PERF DECORS,W15,SCRN ***SET ALL DECORS OFF 00001111 P MOVE LBIN5,W1 ROWNO.:=1 D
0x0ae91a…12f7b6 [0x214]: Pad {f00=0x002a, f01=0x002e, f02=» P SET LBOOL3 TRUE = BACKW SEARCH IN ATTRTAB T & P SET LBOOL9 TRUE= "S/D" DISPLAYED & P TBT LBOOL8,FSM102 JUMP IF UPD OLD 0 P CLEAR LBOOL3 FALSE=FORWARD SEARCH IN TABLE 0 P CBNE GBIN2,W1,FSM052 JMP IF NOT RETURN-CODE $ P MOVE GBIN2,W0 CLEAR RETUR
0x0ae91a…12f7b6 [0x215]: Pad {f00=0x5220, f01=0x5343, f02=»REEN AREA . ( P PERF ERASE ***ERASE PARTIAL SCREEN ^ 6 P MOVE LBIN12,=X'FFFF' CURR ATTRB(OF TABLE):=1111.. P* & P* 'STATIC' OR 'DYNAMIC' DISPLAY P* PFSM060 , P TBT LBOOL2,FSM065 JUMP IF DYNAMIC FIELD ( P MOVE LSTR81,=C'++STAT
0x0ae91a…12f7b6 [0x216]: Pad {f00=0x4327, f01=0x2b2b, f02=»DYNAMIC L: C: ' 4 6 P MOVE LBIN10,GBIN12 RESTORE DYNAMIC DEFAULT DECOR ` PFSM070 P SET LBOOL6 PUT ON DECOR , P PERF DECORS,LBIN10,SYSL ***SET DECOR ON , P PERF DECORS,LBIN10,SCRN ***SET DECOR ON . P TBF LBOOL9,FSM095 JMP IF "S/D" NO DISPL
0x0ae91a…12f7b6 [0x217]: Pad {f00=0x5552, f01=0x505c, f02=»EDIT ROW NUMBER INTO BUFFER & 2 P MOVE LBCD3A,LBIN6 LOAD CURRENT COLUMN NUMBER d & P MOVE LBIN1,W18 LOAD EDIT POSITION < P EDSUB LSTR81,LBIN1,FCURP EDIT COLUMN NUMBER INTO BUFFER * P MOVE LBIN3,=X'013E' ROW=01;COLUMN=58 $ P TBT VD82,FSM080 JUMP IF
0x0ae91a…12f7b6 [0x218]: Pad {f00=0x0008, f01=0x0032, f02=» P MOVE LBIN2,W21 NUMBER OF POSITIONS TO DISPLAY < $ P XCOPY LSTR81,LBIN2,W1,LSTR4A,W2 r P ADD LBIN2,W1 2 P WRITE SYSL,LSTR81,LBIN2 ---DISPLAY FIELD MODE ( P CLEAR LBOOL9 FALSE=NO DISPLAY "S/D" PFSM095 " P PERF STABLK ***START BLOCKING 0
0x0ae91a…12f7b6 [0x219]: Pad {f00=0x554d, f01=0x5020, f02=»IF EMPTY " * P SET LBOOL1 TRUE=CURR.POS.=<CHARACTER> D P B FSM099 r PFSM097 & P CLEAR LBOOL1 FALSE=CURR.POS.=/00 P EJECT P* P* SET CURSOR P* PFSM099 0 P PERF CURSET,LBIN7,LBIN3,SCRN ***CURSOR SET PFSM100
0x0ae91a…12f7b6 [0x21a]: Pad {f00=0x5c4b, f01=0x495c, f02=»KEYB,LSTR1,KEYT6,LBIN3,LBIN2 * P B FSM10B R PFSM101 d & P KI KEYB,LSTR1,KEYT16,LBIN3,LBIN2 r PFSM10B ( P BL FSM105 ERROR OR MAX SIZE REACHED " P PERF STABLK ***START BLOCKING * P CBE LBIN2,W0,FSM102 JMP IF POWER OFF & P IB LBIN2,FSM1
0x0ae91a…12f7b6 [0x21b]: Pad {f00=0x4d30, f01=0x3530, f02=»,FSM300,FSM400, CAN,RET,ENT C * P FSM100,FSM180,FSM190, BSP,SDS,LIN C N * P FSM200,FSM230,FSM260, ALL,FNC,PRT C | * P FSM125,FSM250,FSM100, CRLF,HLP,SPC C P FSM290 P EJECT P* P* POWER OFF P* PFSM102 $ P MOV
0x0ae91a…12f7b6 [0x21c]: Pad {f00=0x4e31, f01=0x2c57, f02=»1 BACKGROUND:=WHITE PFSM103 > . P DSC SCRN,TRP,LBIN1 SET CORRECT BACKGROUND L $ P MOVE GBIN2,W0 CLEAR RETUR-CODE ~ P MOVE LBIN16,W1 1ST ROW & P MOVE LBIN4,=X'0101' ROW:=1 COL:=1 ( P MOVE LBIN14,W0 ATTR.TAB POINTER:=0 P MOVE LBIN1,W0
0x0ae91a…12f7b6 [0x21d]: Pad {f00=0x5452, f01=0x5545, f02=»=DISPLAY OF "S/D" P B FSM060 6 P EJECT H P* V $ P* CHECK IF ILLEGEAL E-O-I-KEY ` P* PFSM105 " P PERF STABLK ***START BLOCKING * P XSTAT KEYB,LBIN2 GET EXTENDED STATUS * P CALL TESTB,LBIN2,W9 ---TEST BIT NO:9 P BT
0x0ae91a…12f7b6 [0x21e]: Pad {f00=0x5445, f01=0x5354, f02=»B,LBIN2,W14 ---TEST BIT NO:14 * P BT FSM100 JMP IF CIRC BUFFER OVERFLOW < 2 P MOVE GVDU(LBIN5,LBIN6),LSTR1 STORE CHARACTER j 4 P TBF LBOOL2,FSM10F JMP IF EDITING IN STATICMODE . P SET CMBOOL T=UPDATE MADE IN DYNAMIC MODE PFSM10F 0 P MOVE LB
0x0ae91a…12f7b6 [0x21f]: Pad {f00=0x4f54, f01=0x2045, f02=»MPTY POS P MOVE LSTR81,=X'20' . P PERF SPCPAD,LBIN5,LBIN6 ***X'20' PADDING < & P BL FSM106 JUMP IF NO PADDING(TON) n 4 P TBT LBOOL4,FSM10A JUMP IF NOT WITHIN ATTRIBUTE , P TBT LBOOL2,FSM10A ATRIBUTE IF DYNAMIC 8 P CBE LBIN12,W8,FSM109 JUMP
0x0ae91a…12f7b6 [0x220]: Pad {f00=0x4946, f01=0x204f, f02=»UT OF SIZE P MOVE LBIN3,W0 WORKITEM:=0 2 P CBE LBIN11,W0,FSM104 JMP IF BEGINING OF TABLE > . P SUB LBIN11,W4 ADJUST TO REACH PREV ROW NO t 4 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 GET PREV ROW NO P ADD LBIN11,W4 ADJUST 0 P CBL LBIN3,LBIN5,FSM104
0x0ae91a…12f7b6 [0x221]: Pad {f00=0x2041, f01=0x5454, f02=»R f P ADD LBIN11,W2 ADJUST 4 P CBE LBIN3,LBIN2,FSM10C JMP IF DECOR&TYPE = FF08 , PFSM104 d ( P ADD LBIN4,W1 ADJUST FOR X'20' START r 8 P XCOPY LBIN4,W0,W1,LBIN5,W1 LOAD POSITION FOR " " 8 P XCOPY LSTR4A,W0,W2,LBIN4,W0 LOAD ATTRIBUTE POSITION
0x0ae91a…12f7b6 [0x222]: Pad {f00=0x0000, f01=0x0051, f02=» FSM980 JUMP IF MEMORY OVERFLOW ( P ADD LBIN11,W4 ADJUST TABLE POINTER & PFSM10C R , P TBT LBOOL2,FSM107 JUMP IF DYNAMIC FIELD ` 4 P CBE LBIN10,W8,FSM109 JUMP IF STATIC SPACE ATTR P B FSM107 P EJECT PFSM106 0 P TBF LBOOL4,FSM109
0x0ae91a…12f7b6 [0x223]: Pad {f00=0x5354, f01=0x0000, f02=» Q COLUMN f 0 P SUB LBIN11,W2 ADJUST TO GET PREV ATTRIBUTE < P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 GET TYPE OF PREV. ENTRY D & P ADD LBIN11,W1 ADJUST TO GET ATTR. , P CBE LBIN3,=X'00FF',FSM10D JMP IF STATIC P* " P* PREVIOUS ENTRY WAS DYN
0x0ae91a…12f7b6 [0x224]: Pad {f00=0x4e54, f01=0x5259, f02=» WAS Q STATIC z P* PFSM10D . P TBF LBOOL2,FSM10E JMP IF ALSO STAT. MODE ( P ADD LBIN11,W1 ADJUST Z P B FSM107 x PFSM10E 8 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 FETCH PREV ATTRIBUTE . P ADD LBIN11,W1 ADJSUT FOR ALL OTHER CASE
0x0ae91a…12f7b6 [0x225]: Pad {f00=0x4552, f01=0x204f, f02=»K b " P Q BE FSM980 JUMP IF OUT OF SIZE 8 P XCOPY LSTR4A,W0,W2,LBIN7,W0 LOAD ATTRIBUTE POSITION & 0 P XCOPY LSTR4A,W2,W2,LBIN10,W0 LOAD ATTRIBUTE b , P TBT LBOOL2,FSM108 JUMP IF DYNAMIC FIELD 6 P XCOPY LSTR4A,W2,W1,LBIN2,W0 INDICATE STATIC FIE
0x0ae91a…12f7b6 [0x226]: Pad {f00=0x4444, f01=0x5c4c, f02=»BIN11,W4 ADJUST Q TABLE POINTER z . P SET LBOOL5 TRUE=INSERT IN ATTAB WAS MADE PFSM109 H 4 P TBT LBOOL1,FSM11A JUMP IF FILLED POS WAS FILLED V * P B FSM117 JMP IF EMPTY POS WAS FILLED P EJECT PFSM11A , P MOVE LBIN2,LBIN6 STORE
0x0ae91a…12f7b6 [0x227]: Pad {f00=0x001c, f01=0x0158, f02=» 2 P XCOPY LBIN1,W1,W1 Q ,ATTAB,LBIN11 "NEXT" ROW NO ~ 0 P CBE LBIN1,LBIN5,FSM111 JUMP IF SAME ROW NO $ P B FSM115 X PFSM111 j , P ADD LBIN11,W1 ADJUST FOR "NEXT" COLUMN x 2 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 "NEXT" COLUMN 2 P TBF LBOOL5,
0x0ae91a…12f7b6 [0x228]: Pad {f00=0x454c, f01=0x4420, f02=» L . P XCOPY LBIN1,W1,W1,A Q TTAB,LBIN11 GET SEQ.NO | . P ADD LBIN11,W1 ADJUST FOR "NEXT" ATTRIBUTE 2 P CBE LBIN1,=X'00FF',FSM110 JMP IF STATIC FIELD P P* P* "NEXT" ENTRY IS DYNAMIC P* * P TBT LBOOL2,FSM11F JMP IF DYNAMIC INS
0x0ae91a…12f7b6 [0x229]: Pad {f00=0x4c44, f01=0x2049, f02=»NSERT F P B FSM11J OK | P Q EJECT P* N P* "NEXT" ENTRY SAME AS INSERTED ED "NEXT COLUMN-1=CURR POS(=SAME AS INS) P* j PFSM11F t * P CBE LBIN6,W1,FSM11FF JMP IF ON POS 1 & P SUB LBIN3,W1 ADJUST "NEXT" COLUMN P CMP
0x0ae91a…12f7b6 [0x22a]: Pad {f00=0x4e31, f01=0x315c, f02=»"NEXT" ATTRIBUTE H 4 P CBNE LBIN4,LBIN Q 10,FSM11J JUMP IF SAME ATTRIBUTE ( P MOVE LBIN4,W4 NUMB OF DEL CHARS:=4 ( * P TBF LBOOL2,FSM112 JMP IF STATIC FIELD T 0 P SUB LBIN11,W5 ADJUST TO RESTORE SEQUENCE NO < P XCOPY ATTAB,LBIN11,W1,LBIN1,W1 RE
0x0ae91a…12f7b6 [0x22b]: Pad {f00=0x0020, f01=0x0158, f02=» , P CBG LBIN6,LBIN3,FSM11I JUMP IF NOT LESSIN Q f . P TBT LBOOL4,FSM11I JMP UNEQUAL ATTRIBUTES ! ( P SUB LBIN11,W1 ADJUST TABLE POINTER ! : P B FSM120 GO ON ! f PFSM11J ! ~ " P SUB LBIN11,W2 ADJUST POINTER ! P EJECT ! PFSM11I ! ( P SUB
0x0ae91a…12f7b6 [0x22c]: Pad {f00=0x5220, f01=0x0021, f02=» 6 ( P MOVE LBIN4,W4 NUMB OF DEL CHARS:=4 ! b , P C Q BE LBIN2,COLS,FSM112 JUMP IF LAST POS ! & P ADD LBIN2,W1 COLUMNO:=COLUMNNO+1 " . 4 P CALL EMPTYT,GVDU(LBIN5,LBIN2) ---CHECK IF EMPTY " X P BNOK FSM112 JUMP IF EMPTY " 0 P ADD LBIN11,W1 ADJUST FOR
0x0ae91a…12f7b6 [0x22d]: Pad {f00=0x2c4c, f01=0x4249, f02=»N11 "OVERNEXT" ROW NO " : 4 P CBNE LBIN1,LBIN5,FSM114 JUM Q P IF NOT SAME ROW NO " t 0 P ADD LBIN11,W1 ADJUST FOR "OVERNEXT" COLUMN # 6 P XCOPY LBIN1,W1,W1,ATTAB,LBIN11 "OVERNEXT" COLUMN # P " P SUB LBIN1,W1 ADJUST COLUMNNO # 6 P CBNE LBIN1,LBIN6,FSM1
0x0ae91a…12f7b6 [0x22e]: Pad {f00=0x5454, f01=0x5249, f02=»BUTE # ( P SUB LBIN11,W3 ADJUST TABLE-POINTER # & P CBL LBI Q N2,W0,FSM11E JMP IF STATIC # : P XCOPY LBIN2,W0,W1,W0,W1 OVERWRITE SEQ.NO WHEN DYNAMIC $ " PFSM11E $ ` & P CBL LBIN3,W0,FSM11G JMP IF STATIC $ n : P XCOPY LBIN3,W0,W1,W0,W1 OVERWRITE SEQ.N
0x0ae91a…12f7b6 [0x22f]: Pad {f00=0x5c45, f01=0x4a45, f02=»CT $ F PFSM112 $ T ( P SUB LBIN11,W1 ADJUST TABLE POINTER $ b PFS Q M11C $ P MOVE LBIN2,W0 % , P XCOPY LBIN2,W1,W1,ATTAB,LBIN11 "SEQ.NO" % " ( P SUB LBIN11,W2 ADJUST TABLE POINTER % R 8 P DLETE ATTAB,LBIN11,W4 DELETE ONE OR TWO OVFL-ENTRY % ~ , P
0x0ae91a…12f7b6 [0x230]: Pad {f00=0x4544, f01=0x2053, f02=»EQ.NO % & 6 P CBE LBIN3,=X'00FF',FSM11K SEQ.NO=FF STATIC FIELD % R 0 P CBE Q LBIN3,W0,FSM11K SEQ.NO=00 NEW DYNAMIC F % 2 P CALL WXMUL,LBIN3,W5,LBIN3 CALC FIDTAB POINTER & 0 P SUB LBIN3,W5 ADJUST POINTER & f P MOVE LSTR4A,=X'FF' & : P XCOPY FIDTAB,
0x0ae91a…12f7b6 [0x231]: Pad {f00=0x4f46, f01=0x2044, f02=»ELETED & " P ADD LBIN11,W2 ADJUST POINTER & L 0 P CBG LBIN4,W0,FSM11C JUMP IF M Q ORE TO DELETE & r ( P SUB LBIN11,W2 ADJUST TABLE POINTER ' P B FSM120 GO ON ' B P EJECT ' Z PFSM113 ' h ( P SUB LBIN11,W1 ADJUST TABLE POINTER ' v PFSM114 ' (
0x0ae91a…12f7b6 [0x232]: Pad {f00=0x5220, f01=0x0027, f02=» P B FSM120 GO ON ' > PFSM115 ' V 2 P TBF LBOOL5,FSM120 JUMP IF NO INSERT WAS MAD Q E ' d , P ADD LBIN11,W3 ADJUST FOR ATTRIBUTE POS ( , P CBNE LBIN1,LBIN5,FSM118 JMP IF NEW LINE ( : PFSM116 ( j < P CBNL LBIN2,LBIN3,FSM112 JMP NXT CURCOLNO>="NEXT
0x0ae91a…12f7b6 [0x233]: Pad {f00=0x4d31, f01=0x3230, f02=» JUMP IF LAST POS ( & P ADD LBIN2,W1 COLUMNO:=COLUMNNO+1 ( L 4 P CALL EMPTYT,GVDU(LBIN5,LB Q IN2) ---CHECK IF EMPTY ( v $ P BNOK FSM120 JUMP IF NEXT EMPTY ) ( P SUB LBIN11,W8 ADJUST TABLE POINTER ) F > P XCOPY LSTR4A,W0,W4,ATTAB,LBIN11 FETCH OLD SPLIT
0x0ae91a…12f7b6 [0x234]: Pad {f00=0x312c, f01=0x5731, f02=»,LSTR4A,W2 GET SEQ.NO ) 2 P CBE LBIN1,=X'00FF',FSM119 JMP IF STATIC FIELD ) J 4 P XCOPY LSTR4A,W2 Q ,W1,W0,W0 DYN FIELD SPLIT (NEW) ) P =>SEQ.NO:=00 * ( PFSM119 * @ > P INSRT ATTAB,LBIN11,W4,LSTR4A,W0 INSERT NEW SPLITTED ENTRY * N ( P BOFL FSM980
0x0ae91a…12f7b6 [0x235]: Pad {f00=0x4152, f01=0x4420, f02=»-> * P* * 0 PFSM120 * : & P ADD LBIN7,W1 CURPOS:=CURPOS+0001 * H " P ADD LBIN6,W1 COLUMN:=COLUMN+1 Q * r 0 P CLEAR LBOOL3 FALSE = FORW SEARCH IN ATTRTAB + 4 P CBG LBIN6,LBIN9,FSM125 JUMP IF BOARDER REACHED + < P B FSM095 GO ON + t P* + & P
0x0ae91a…12f7b6 [0x236]: Pad {f00=0x4355, f01=0x5250, f02=»OS COL:=01 + P MOVE LBIN6,W1 COLUMNNO.:=1 + 2 P B FSM150 GO ON NEXT LINE + V P* + x P* CURSOR BA Q CKWARD <- + P* , PFSM130 , & P SUB LBIN7,W1 CURPOS:=CURPOS-0001 , * " P SUB LBIN6,W1 COLUMN:=COLUMN-1 , T . P SET LBOOL3 TRUE = BAC
0x0ae91a…12f7b6 [0x237]: Pad {f00=0x4e3a, f01=0x3d4d, f02=»AXCOLUMN , . P ADD LBIN7,LBIN9 ADJUST CURPOS COL:=MAXCOL , * P GO ON PREVIOUS LINE , P EJECT , z P* , BA Q P* CURSOR UPWARD T - P* - PFSM140 - * " P SUB LBIN5,W1 ROWNO:=ROWNO.:=1 - 8 . P SET LBOOL3 TRUE = BACKW SEARCH IN ATTRTAB -
0x0ae91a…12f7b6 [0x238]: Pad {f00=0x0024, f01=0x0050, f02=» MOVE LBIN5,LBIN8 ROWNO.:=MAXROW - P MOVE LBIN7,LBIN8 MAXROWNO - < * P CALL WXSLL,LBIN7,W8,LBIN7 SHIFT LEFT - ^ $ P ADD R LBIN7,LBIN6 LOAD CURSCOLUMN - 0 P CLEAR LBOOL3 FALSE = FORW SEARCH IN ATTRTAB . $ P B FSM095 . X P* . j P* CURSOR DOWN
0x0ae91a…12f7b6 [0x239]: Pad {f00=0x4e35, f01=0x2c4c, f02=»BIN8,FSM155 JUMP IF BOARDER REACHED . , P ADD LBIN7,=X'0100' CURPOS:=CURPOS+0100 . : P B FSM095 . j PFSM155 . | P MOVE R LBIN5,W1 ROWNO.:=1 . $ P MOVE LBIN7,=X'0100' ROWNO:=0100 / & P ADD LBIN7,LBIN6 LOAD CURPOSCOLUMN / B . P SET LBOOL3 TRUE =
0x0ae91a…12f7b6 [0x23a]: Pad {f00=0x4e53, f01=0x4552, f02=»T CHARACTER / P* / PFSM160 / & . P TBF LBOOL1,FSM159 CURRPOS EMPTY=> NO INS / 4 ( P MOVE LBIN1,LBIN6 LOAD CURR COL.POS / fE R ( P SUB LBIN1,W1 ADJUST FOR 0-COUNTING 0 P MOVE LSTR1,=X'20' 0 0 * P INSRT GVDUR(LBIN5),LBIN1,W1,LSTR1,W0 0 J * P
0x0ae91a…12f7b6 [0x23b]: Pad {f00=0x0050, f01=0x5c53, f02=»UB LBIN11,W4 ADJUST TO GET FIRST ENTRY 0 4 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 FETCH FIRST RRCC 0 0 4 P CBE LBIN2,LBIN7,FSM16A JMP IF SAME AS C R URR POS 0 h . P ADD LBIN11,W4 ADJSUT FOR ALL OTHER CASES 1 PFSM162 1 B 2 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 GE
0x0ae91a…12f7b6 [0x23c]: Pad {f00=0x5c4c, f01=0x4249, f02=»N2,LBIN7 COMPARE ATTRPOS & CURSERPOS 1 P BG FSM161 JMP IF GREATER 1 ( P BL FSM163 JMP IF LESS 1 J P IF EQUAL 1 h 0 P CBE LBIN11,W0,FSM16 R 4 JMP IF BEGIN OF ATTAB 1 | ( P CBE LBIN6,W1,FSM164 JMP IF COLUM=1 2 ( P ADD LBIN11,W2 ADJUST ATTAB-POIN
0x0ae91a…12f7b6 [0x23d]: Pad {f00=0x4653, f01=0x4d31, f02=»68 JMP IF PREV ATTR = SP-ATTR 2 PFSM161 2 " P MOVE LBIN3,=X'FFFE' STEP = -2 2 * 0 P SET LBOOLC TRUE POINTER NOT TO BE ADJUSTED 2 P P B FSM165 16 R 2 PFSM163 3 " P ADD LBIN11,W4 ADJUST POINTER 3 PFSM164 3 < P MOVE LBIN3,W2 STEP = +2 3 J
0x0ae91a…12f7b6 [0x23e]: Pad {f00=0x335c, f01=0x4144, f02=»JUS 3 0 P CBNL LBIN16,W0,FSM166 JMP IF DYNAMIC FIELD 3 6 P CBE LBIN16,=X'FF08',FSM168 JMP IF SPACE ATTRIBUTE 3 0 PFSM166 3 j 4 P MOVE LSTR4A,=X'0000FF08 R ' LOAD STATIC SPACE ATTR 3 x 4 P XCOPY LSTR4A,W0,W2,LBIN7,W0 LOAD CURR POSITION 4 D P INSERT
0x0ae91a…12f7b6 [0x23f]: Pad {f00=0x4946, f01=0x2042, f02=»-O-T 4 ( P SUB LBIN11,W4 ADJUST TABLE POINTER 4 > P XCOPY LSTR4A,W0,W4,ATTAB,LBIN11 FETCH OLD SPLITTED ENTRY 4 " , P ADD LBIN11,W8 ADJUST FOR ATTRIBUTE POS 4 d R 0 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 GET POSITION 5 . P CBE LBIN2,LBIN7,FSM169 JMP IF = C
0x0ae91a…12f7b6 [0x240]: Pad {f00=0x4d31, f01=0x3637, f02=» JMP IF STATIC FIELD 5 4 P XCOPY LSTR4A,W2,W1,W0,W0 DYN FIELD SPLIT (NEW) 5 P =>SEQ.NO:=00 5 8 PFSM167 5 P > P INSRT ATTAB,LBIN11,W4,LSTR4A,W0 INSERT NEW SPLITT R ED ENTRY 5 ^ ( P BOFL FSM980 JUMP IF MEMORY OVERFLOW 6 PFSM168 6 < 2 P TBT LBOOL
0x0ae91a…12f7b6 [0x241]: Pad {f00=0x4e34, f01=0x2c57, f02=»0,W1,LBIN5,W1 LOAD ENDLIMIT TO STOP UPDATE 6 4 P PERF ATABUP,W1,LBIN4 ***ATTRIBUTE-TABLE UPDATE 6 ( P MOVE LBIN16,LBIN5 LOAD CURRENT ROW 6 H , P MOVE LBIN4,LBIN7 SAVE CURRE R NT CURSERPOS 6 t * P MOVE LBIN14,LBIN11 LOAD ATTR.POINTER 7 4 P PERF DISPLY
0x0ae91a…12f7b6 [0x242]: Pad {f00=0x0037, f01=0x00d2, f02=» PFSM170 7 , P TBF LBOOL1,FSM159 CURRPOS EMPTY=>NO DEL 7 ( P MOVE LBIN1,LBIN6 LOAD CURR. COL.POS 7 ( P SUB LBIN1,W1 ADJUST FOR 0-COUNTING 7 F P DLETE GVDUR(LBIN5),LBIN1,W1RE R 7 r 8 P CALL GETIND,GVDUR(LBIN5),LBIN2,LBIN3 ---GET LENGTH 8 . P SUB
0x0ae91a…12f7b6 [0x243]: Pad {f00=0x4f49, f01=0x4e54, f02=»ER OK 8 " P BE FSM980 JUMP IF OUT OF SIZE 8 6 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 LOAD ATTR-POSITION 8 . P CBE LBIN2,W0,FSM173 JUMP IF END-OF-TABLE 8 @ 2 P CBNE LBIN2,LBIN7,FSM173 JUMP R IF NOT SAME POS 8 r P MOVE LSTR4A,=X'FF' 9 , P MOVE LBIN4,W4
0x0ae91a…12f7b6 [0x244]: Pad {f00=0x0050, f01=0x5c41, f02=»DD LBIN11,W4 ADJUST TABLE POINTER 9 * P CMP LBIN11,LABIN CHECK IF POINTER OK 9 " P BE FSM980 JUMP IF OUT OF SIZE 9 $ 6 P XCOPY LBIN3,W0,W2,ATTAB,LBIN11 LOAD NEXT ATTR-POS 9 J P SUB LBIN3,W R 1 9 8 P CBNE LBIN2,LBIN3,FSM173 JMP IF NEXT POS NOT=CURRP
0x0ae91a…12f7b6 [0x245]: Pad {f00=0x5554, f01=0x4520, f02=»POS : 4 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 "NEXT" ATTRIBUTE : ( P SUB LBIN11,W6 ADJUST TABLE POINTER : , P CBE LBIN11,W0,FSM171 JMP IF B-O-T FOUNF : 6 ( P SUB LBIN11,W2 ADJUST TABLE POINTER : f,W R 4 P XCOPY LBIN3,W0,W2,ATTAB,LBIN11 "PREV" ATTRIBUTE ;
0x0ae91a…12f7b6 [0x246]: Pad {f00=0x5748, f01=0x454e, f02=» DYNAMIC ; PFSM172 ; & P CBL LBIN3,W0,FSM175 JMP IF STATIC ; : P XCOPY LBIN3,W0,W1,W0,W1 OVERWRITE SEQ.NO WHEN DYNAMIC ; PFSM175 ; F : P CBNE LBIN2,LBIN3,FSM171 JUMP IF PREVATT NOT=NEXTATTR ; T,W R * P ADD LBIN4,W4 ADJUST NUMBER TO DELETE <
0x0ae91a…12f7b6 [0x247]: Pad {f00=0x0036, f01=0x0050, f02=» CBE LBIN3,=X'00FF',FSM174 SEQ.NO=FF STATIC FIELD < 0 P CBE LBIN3,W0,FSM174 SEQ.NO=00 NEW DYNAMIC F < 2 P CALL WXMUL,LBIN3,W5,LBIN3 CALC FIDATB POINTER < ( P SUB LBIN3,W5 ADJUST POINTER < ^ : P XCOPY FIDTAB, R LBIN3,W4,LSTR4A,W0 OVERWRITE FID DELETED <
0x0ae91a…12f7b6 [0x248]: Pad {f00=0x4520, f01=0x454e, f02=»TRY(IES) = , P MOVE LBIN3,LABIN STORE LENGTH OF ATTAB = 6 P PERF ZERFLL,ATTAB,LBIN3,W4 ***ZERO REFILL X /00:S = * P SUB LBIN4,W4 SUBTRACT NUMB OF DELETED = . 0 P CBG LBIN4,W0,FSM171 JUMP IF MORE TO DELETE = 4 P R CBNE LBIN2,=X'0101',FSM173 JMP IF N
0x0ae91a…12f7b6 [0x249]: Pad {f00=0x544f, f01=0x2053, f02=»TOP UPDATE > 2 P MOVE LBIN2,=X'FFFF' STEP TO ADJUST ATTR-TABLE > 6 P PERF ATABUP,LBIN2,LBIN4 ***ATTRIBUTE-TABLE UPDATE > ( P MOVE LBIN16,LBIN5 LOAD CURRENT ROW > 0 , P MOVE LBIN4,LBIN7 SAVE CURRENT CURSERPOS > * P MOV R E LBIN14,LBIN11 LOAD ATTR.POIN
0x0ae91a…12f7b6 [0x24a]: Pad {f00=0x5443, f01=0x4820, f02=» ? P* ? PFSM180 ? " P CLEAR LBOOL6 CLEAR DECOR OFF ? 0 P PERF DECORS,LBIN10,SYSL ***CLEAR DECOR OFF ? 0 P PERF DECORS,LBIN10,SCRN ***CLEAR DECOR OFF ? " " P INV LBOOL2 CHANGE FIELD MODE ? V & P SET LBOOL9 TRUE=DIS R PLAY OF "S/D" ? | 0 P C
0x0ae91a…12f7b6 [0x24b]: Pad {f00=0x0050, f01=0x5c42, f02=» FSM102 POWER OFF @ P EJECT @ P* @ P* LINE KEY @ P* @ PFSM190 @ " P PERF STPBLK ***STOP BLOCKING @ " P MOVE LBIN3,W1 EXPECTED LENGTH @ ( ( P KI .NE,KEYB,LSTR1,KEYT7,LBIN3,LBIN2 @ N P BL FSM095 @ z " P PER R F STABLK ***START
0x0ae91a…12f7b6 [0x24c]: Pad {f00=0x001e, f01=0x0050, f02=» FSM191,FSM191, INS,DEL C A P FSM260 PRT A P B FSM095 A P EJECT A P* A P* LINE+INSERT/DELETE A P* A PFSM191 A $ ( P MOVE LBIN1,LBIN6 LOAD CURR COL.POS A 2 ( P SUB LBIN1,W1 ADJUST FOR 0-COUNTING A ^ & P MOVE R LBIN3,LBIN5
0x0ae91a…12f7b6 [0x24d]: Pad {f00=0x5c4c, f01=0x4249, f02=»N3,LBIN1 ADD BYTES IN CURRENT ROW B & P GIVING ABSOLUT BYTE IN VDU BUF B P MOVE LSTR81,=X'00' B " P SUB LBIN2,W4 ADJUST KEY-INDEX B ( P IB LBIN2,FSM195 JUMP IF INSERT-KEY B , P EJECT B X P* B f P* LINE+DELETE-KEY B p P* E R B &
0x0ae91a…12f7b6 [0x24e]: Pad {f00=0x0084, f01=0x0022, f02=» P MOVE LBIN16,W0 MATCHPOINER:=0 C J P MATCH GVDUR(LBIN2),LBIN16,COLS,LSTR81,W0,W1 MATCH FOR FIRST EMPTY POS C P BNOK FSM19M C " P ADD LBIN16,W1 FIRST EMPTY POS C PFSM19M C @ $ P MOVE LBIN4,COLS LOAD MAX-LENGTH C N 0 P CBNE LBIN5,ROWS,FSM19H JM R
0x0ae91a…12f7b6 [0x24f]: Pad {f00=0x4c49, f01=0x4e45, f02=» D X 0 P CALL GETIND,GVDUA,LBIN2,LBIN3 ---GET LENGTH D : P PERF ZERFLL,GVDUA,LBIN2,LBIN4 ***ZERO REFILL 80 /00:S D & P MOVE LBIN4,LBIN5 LOAD CURRENT ROW D P ADD LBIN4,W1 ROWNO:=ROWNO+1 D . & P MOVE LBIN2,LBIN7 LOAD CURRENT POS D R . P ADD LBIN2,=X'0100'
0x0ae91a…12f7b6 [0x250]: Pad {f00=0x0045, f01=0x0052, f02=» ( P SUB LBIN11,W4 ADJUST ATTAB-POINTER E 6 P XCOPY LBIN3,W0,W2,ATTAB,LBIN11 GET PREVIOUS ENTRY E * P CBE LBIN3,LBIN7,FSM192 JUMP IF EQUAL E ( P ADD LBIN11,W4 ADJUST ATTAB-POINTER E PFSM192 E H P MOVE LBIN3,W0 WORKITEM:=0 E V 0 P XCOPY LBIN3,W1,W1,ATT
0x0ae91a…12f7b6 [0x251]: Pad {f00=0x5454, f01=0x522d, f02=»POSITION F T . P CBE LBIN3,W0,FSM193 JUMP IF END-OF-TABLE F : P CBG LBIN3,LBIN2,FSM193 JMP IF GREATER DELETION LIMIT F 2 P CBL LBIN3,LBIN2,FSM19I JMP IF < CURR-POSITION F , P CBE LBIN6,W1,FSM194 JMP IF 1ST COLUMN F 4 PFSM19I F d ( P ADD LBIN11,W2 ADJUST
0x0ae91a…12f7b6 [0x252]: Pad {f00=0x512e, f01=0x4e4f, f02=» G N 6 P CBE LBIN3,=X'00FF',FSM19F SEQ.NO=FF STATIC FIELD G 0 P CBE LBIN3,W0,FSM19F SEQ.NO=00 NEW DYNAMIC F G 2 P CALL WXMUL,LBIN3,W5,LBIN3 CALC FIDATB POINTER G P SUB LBIN3,W5 ADJUST POINTER G $ : P XCOPY FIDTAB,LBIN3,W4,LSTR4A,W0 OVERWRITE FID DELETED G H
0x0ae91a…12f7b6 [0x253]: Pad {f00=0x5542, f01=0x5c4c, f02=»BIN11,W2 ADJUST TABLE-POINTER H l , P DLETE ATTAB,LBIN11,W4 DELETE ATTR-ENTRY H , P MOVE LBIN3,LABIN STORE LENGTH OF ATTAB H 8 P PERF ZERFLL,ATTAB,LBIN3,W4 ***ZERO REFILL 4 /00:S H ( P SET LBOOL5 TRUE=ATTR-ENTRY DELETED H 4 P B FSM192 GO ON H ` P EJE
0x0ae91a…12f7b6 [0x254]: Pad {f00=0x4e4f, f01=0x4b5c, f02=»FSM194 JMP IF CURRENT ROW EMPTY I f 6 P CBE LBIN6,W1,FSM194 JMP IF DELETE FROM 1ST COLUMN I : P XCOPY LBIN2,W0,W2,LSTR4A,W2 LOAD LAST DEL. ATTRIBUTE I 2 P XCOPY LSTR4A,W0,W1,LBIN5,W1 LOAD ROW POSITION I P MOVE LSTR81,=X'20' I B . P PERF SPCPAD,LBIN5,LBIN6
0x0ae91a…12f7b6 [0x255]: Pad {f00=0x272c, f01=0x4653, f02=»M19D JUMP IF 'SPACE'- ATTRIBUTE J P . P MOVE LSTR81,=X'FF' INDICATE STATIC FIELD J . P CBE LBIN6,LBIN4,FSM194 JMP IF SAME COLUMN J . P CBNE LBIN4,W1,FSM19A JMP IF SPACE PAD IN J P ...THE MIDDLE OF THE ROW J $ P B FSM19B J H PFSM19A J Z . P SUB LBI
0x0ae91a…12f7b6 [0x256]: Pad {f00=0x5220, f01=0x004b, f02=» @ > P CBE LBIN3,=X'FF08',FSM19C JMP IF PREV DECOR = SPACE '08' K f PFSM19B K . P XCOPY LSTR81,W0,W1,LBIN5,W1 LOAD CURR ROW K 4 P XCOPY LSTR81,W1,W1,LBIN4,W1 LOAD ACTUAL COLUMN K 4 P XCOPY LSTR81,W3,W1,W8,W1 LOAD SPACE DECOR '08' K > P INSRT ATTAB,LBIN1
0x0ae91a…12f7b6 [0x257]: Pad {f00=0x0036, f01=0x000a, f02=» PFSM19C L < P CBL LBIN16,LBIN6,FSM194 JMP IF 1ST EMPTY POS < CURR COL L j B P CBE LBIN2,=X'FF08',FSM194 JMP IF LAST DELETED DECOR = 'FF08' L ( P MOVE LBIN4,LBIN6 LOAD ACTUAL COL NO L P B FSM19E JMP AND INSERT L PFSM19D L < 2 P SUB LBIN11,W2 ADJUST TO R
0x0ae91a…12f7b6 [0x258]: Pad {f00=0x4249, f01=0x4e32, f02=»,W0,FSM19N JMP IF STATIC FIELD M J : P XCOPY LBIN2,W0,W1,W0,W1 OVERWRITE SEQ,NO WHEN DYNAMIC M z PFSM19N M , P CBL LBIN3,W0,FSM19P JMP IF STATIC FIELD M : P XCOPY LBIN3,W0,W1,W0,W1 OVERWRITE SEQ,NO WHEN DYNAMIC M PFSM19P M 4 2 P CBE LBIN2,LBIN3,FSM194 JMP
0x0ae91a…12f7b6 [0x259]: Pad {f00=0x5234, f01=0x412c, f02=»W0 N 0 ( P BOFL FSM980 JUMP IF MEMORY OVERFLOW N X " P ADD LBIN11,W4 ADJUST POINTER N PFSM194 N 2 P MOVE LBIN2,=X'FF00' STEP TO ADJUST ATTR-TABLE N P B FSM198 GO ON DISPLAY N P EJECT N P* N P* LINE+INSERT-KEY N & P* N B PFSM195 N L .
0x0ae91a…12f7b6 [0x25a]: Pad {f00=0x4946, f01=0x2043, f02=»URRPOS EMPTY O , PFSM19G O 4 P SUB LBIN2,LBIN1 CALC NUMBER OF X'00' POSITIONS O j PFSM196 O 8 P INSRT GVDUA,LBIN3,LBIN2,LSTR81,W0 FILL WITH X'00':S O & P TBF LBOOL1,FSM197 NO MORE EDITING O 6 P CBE LBIN1,W0,FSM197 JMP IF 1ST COL AND EMPTY ROW O , P C
0x0ae91a…12f7b6 [0x25b]: Pad {f00=0x000c, f01=0x0038, f02=» P INSRT GVDUA,LBIN3,LBIN1,LSTR81,W0 FILL WITH X'20':S P D 8 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 GET CURRENT TAB-POS P : P CBNE LBIN2,LBIN7,FSM19K JMP IF NOT SAME AS CURSER POS P P* P & P* CURSER POS = CURRENT TABLE POS P P* P . * P ADD LBIN11,W2 ADJUS
0x0ae91a…12f7b6 [0x25c]: Pad {f00=0x5c43, f01=0x424e, f02=»E LBIN2,=X'FF08',FSM19J JMP IF NOT STATIC DEFAULT ENTRY Q 8 . P ADD LBIN11,W1 ADJUST TO REACH COLUMN POS Q | . P XCOPY ATTAB,LBIN11,W1,W1,W1 COLUMN POS:=1 Q ( P SUB LBIN11,W1 ADJUST ATTAB-POINTER Q P B FSM197 Q PFSM19J Q < P MOVE LSTR4A,=X'0001FF08'
0x0ae91a…12f7b6 [0x25d]: Pad {f00=0x4c53, f01=0x5452, f02=»4A,W0 INSERT NEW INSERTED ROW ENTRY R ( P BOFL FSM980 JUMP IF MEMORY OVERFLOW R b P B FSM197 R PFSM19K R 2 P SUB LBIN11,W2 ADJUST TO REACH PREV DECOR&TYPE R 8 P XCOPY LBIN2,W0,W2,ATTAB,LBIN11 GET PREV DECOR&TYPE R P ADD LBIN11,W2 ADJUST R D P C
0x0ae91a…12f7b6 [0x25e]: Pad {f00=0x5452, f01=0x5920, f02=» R : P XCOPY LSTR4A,W2,W2,LBIN2,W0 LOAD ATTR SPLITTED ENTRY S 8 , P CBL LBIN2,W0,FSM19L JMP IF STATIC FIELD S v @ P XCOPY LSTR4A,W2,W1,W0,W0 SPLITTED DYNAMIC=> SEQ.NO=0 (NEW) S PFSM19L S : P INSRT ATTAB,LBIN11,W4,LSTR4A,W0 INSERT SPLITTED ENTRY S ( P BOF
0x0ae91a…12f7b6 [0x25f]: Pad {f00=0x4653, f01=0x4d31, f02=»98 T & P MOVE LBIN4,=X'00FE' T 4 < P XCOPY LBIN4,W0,W1,ROWS,W1 LOAD ENDLIMIT TO STOP UPDATE T P 6 P PERF ATABUP,LBIN2,LBIN4 ***ATTRIBUTE-TABLE UPDATE T ( P MOVE LBIN16,LBIN5 LOAD CURRENT ROW T , P MOVE LBIN4,LBIN7 SAVE CURRENT CURSERPOS T * P MOVE LBIN14,L
0x0ae91a…12f7b6 [0x260]: Pad {f00=0x0055, f01=0x001e, f02=» P* LONG BRANCH U ( P* U @ PFSM199 U J P B FSM102 POWER OFF U X P EJECT U t P* U P* ALL KEY U P* U PFSM200 U " P PERF STPBLK ***STOP BLOCKING U " P MOVE LBIN3,W1 EXPECTED LENGTH U ( P KI .NE,KEYB,LSTR1,KEYT8,LBIN3,LBIN2 U
0x0ae91a…12f7b6 [0x261]: Pad {f00=0x534d, f01=0x3035, f02=»0, CLR,CAN C V P FSM300,FSM400, RET,ENT C V 2 P FSM095,FSM095, INS,DEL C V T P FSM210,FSM212, CFW,CBW C V v P FSM214,FSM216, CUP,CDN C V P FSM260 PRT V P B FSM095 V P EJECT V P* V P* ALL-CURSER FORWARD V P* V PFSM210
0x0ae91a…12f7b6 [0x262]: Pad {f00=0x5c58, f01=0x434f, f02=»PY LBIN7,W1,W1,LBIN6,W1 CURSORPOS:=COL:=CC W P B FSM095 GO ON W J P* W b P* ALL-CURSOR BACKWARD W l P* W PFSM212 W P MOVE LBIN6,W1 COLUMN:=1 W P SET LBOOL3 W P B FSM211 LOAD CURSER COLUMN W P* W P* ALL-CURSER UPWARD W
0x0ae91a…12f7b6 [0x263]: Pad {f00=0x0050, f01=0x5c58, f02=»COPY LBIN7,W0,W1,LBIN5,W1 CURSORPOS:=ROW:=RR X P B FSM095 X F P* X X P* ALL-CURSER DOWNWARD X b P* X PFSM216 X $ P MOVE LBIN5,LBIN8 ROWNO.:=MAXROW X P CLEAR LBOOL3 X P B FSM215 LOAD CURSER ROW X P EJECT X P* X P* FUNCT
0x0ae91a…12f7b6 [0x264]: Pad {f00=0x434c, f01=0x4541, f02=»R DECORS OFF X 8 P PERF DECORS,W15,SYSL ***SET ALL DECORS OFF 00001111 Y 8 P PERF DECORS,W15,SCRN ***SET ALL DECORS OFF 00001111 Y P SET LBOOL6 SET DECOR ON Y . P PERF DECORS,W8,SYSL ***SET DECOR ON HIGH Y ( P MOVE LBIN3,=X'0101' LOAD CURSOR-POS Y " P
0x0ae91a…12f7b6 [0x265]: Pad {f00=0x2c53, f01=0x5953, f02=»L ***CURSOR SET Y z 2 P CALL FMOVE,LSTR81,MESTAB(W2) ---LOAD MESSAGE Z P MOVE LBIN13,W0 Z T 8 P XCOPY LBIN13,W1,W1,LSTR81,W2 FETCH NUMBER TO ERASE Z l $ P EDWRT SYSL,LSTR81 WRITE MESSAGE Z " P MOVE LBIN4,W1 EXPECTED LENGTH Z * P KI .NE,KEYB,LSTR1,KEYT13,
0x0ae91a…12f7b6 [0x266]: Pad {f00=0x0053, f01=0x018e, f02=»49,FSM249, 1,2 C Z ( P FSM249,FSM231,FSM231, 3,HGH,UNL C [ P FSM231,FSM231 RVS,BLN [ D P B FSM249 [ d PFSM231 [ v 4 P MOVE LSTR4A,=X'FF' INDICATE STATIC FIELD ATTRIB [ , P ADD LBIN2,W8 ADJUST TO GET BITPOSITION [ & P TBT LBOOL2,FSM240 JMP IF DYNA
0x0ae91a…12f7b6 [0x267]: Pad {f00=0x0000, f01=0x0000, f02=» S & P BF FSM232 JMP IF FALSE(OFF)=>(ON) : P CALL CLEARB,GBIN11,LBIN2 ---CLEAR BIT POSITION:LBIN2 . P CLEAR LBOOL6 (ON)=>(OFF) l P B FSM233 PFSM232 6 P CALL SETB,GBIN11,LBIN2 ---SET BIT POSITION:LBIN2 P SET LBOOL6 (OFF)=>(ON)
0x0ae91a…12f7b6 [0x268]: Pad {f00=0x3339, f01=0x5c4a, f02=»MP S IF FALSE z PFSM234 ] 8 P XCOPY LBIN2,W0,W2,ATTAB,W0 GET VERY 1ST ATTAB-ENTRY ] @ P CBNE LBIN2,LBIN7,FSM23B JMP IF 1ST ENTRY NOT = CURRENT POS ] 0 P CBE LBIN11,W0,FSM23B JMP IF ATTAB-POINTER=0 ] " P SUB LBIN11,W4 ADJUST IF EQUAL ] PFSM2
0x0ae91a…12f7b6 [0x269]: Pad {f00=0x4249, f01=0x4e37, f02=»,FSM23C S JUMP IF SAME POS AS CURPOS ] x ( P SUB LBIN11,W4 ADJUST ATTAB-POINTER ^ " PFSM23C ^ N 6 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD SEQ NO NUMBER ^ ( P ADD LBIN11,W2 ADJUST ATTAB-POINTER ^ : P CBL LBIN3,=X'00FF',FSM239 JUMP IF CURSOR IN DYN FIELD
0x0ae91a…12f7b6 [0x26a]: Pad {f00=0x412c, f01=0x5733, f02=»,W1,GBIN11,W1 S LOAD NEW DECOR ^ r : P INSERT ATTAB,LBIN11,W4,LSTR4A,W0 INSERT NEW STAT ATTR _ ( P BOFL FSM980 JUMP IF MEMORY OVERFLOW _ T ( P SUB LBIN11,W4 ADJUST ATTAB-POINTER _ P B FSM236 _ PFSM235 _ ( P SUB LBIN11,W1 ADJUST ATTAB-POINTER _
0x0ae91a…12f7b6 [0x26b]: Pad {f00=0x2050, f01=0x4f53, f02=»ITIV _ ` * P ADD LBI S N11,W4 ADJUST POINTER FOR NEXT _ P B FSM237 ` & PFSM23A ` 8 . P SUB LBIN11,W4 ADJUST POINTER FOR PREVIOUS ` F P EJECT ` x P* ` P* CHECK PREVIOUS ` P* ` PFSM236 ` 4 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD ROW N
0x0ae91a…12f7b6 [0x26c]: Pad {f00=0x5420, f01=0x4154, f02=»TAB-POINTER ` ^ : P XCOPY S LBIN3,W0,W2,ATTAB,LBIN11 LOAD STATIC? ATTRIBUTE ` ( P ADD LBIN11,W6 ADJUST ATTAB-POINTER a 8 4 P CBNL LBIN3,W0,FSM237 JUMP IF > OR = (DYN ATTR) a d 2 P XCOPY LBIN3,W0,W1,W0,W0 SPACE OUT SEQ NO = FF a 0 P CBNE LBIN3,GBIN11,F
0x0ae91a…12f7b6 [0x26d]: Pad {f00=0x332c, f01=0x4c41, f02=»BIN STORE LENGTH OF ATTAB a bPY S 8 P PERF ZERFLL,ATTAB,LBIN3,W4 ***ZERO REFILL 4 /00:S b P* b @ P* CHECK NEXT b J P* b b PFSM237 b l P MOVE LBIN3,W0 b z 4 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD ROW NUMBER b 4 P CBNE LBIN3,LBIN5,FSM238
0x0ae91a…12f7b6 [0x26e]: Pad {f00=0x0028, f01=0x0050, f02=» SUB LBIN11,W2 ADJUST ATTAB-POINTER PY S b j 4 P CBNL LBIN3,W0,FSM238 JUMP IF > OR = (DYN ATTR) c . P XCOPY LBIN3,W0,W1,W0,W0 SPACE OUT SEQ NO c @ 0 P CBNE LBIN3,GBIN11,FSM238 JUMP IF NOT EQUAL c r , P DLETE ATTAB,LBIN11,W4 DELETE ATTR-ENTRY c , P MOV
0x0ae91a…12f7b6 [0x26f]: Pad {f00=0x0050, f01=0x4653, f02=»M239 LONG BRANCH CONSTRUCTION c b P B F S SM249 c P EJECT d P* d P* DYNAMIC FIELD MODE d & P* d F PFSM240 d P 6 P CALL TESTB,GBIN12,LBIN2 ---TEST BITPOSITION:LBIN2 d ^ & P BF FSM241 JMP IF FALSE(OFF)=>(ON) d 6 P CALL CLEARB,GBIN1
0x0ae91a…12f7b6 [0x270]: Pad {f00=0x4554, f01=0x2042, f02=»ITPOSITION:LBIN2 d > P SET LBOOL6 (OFF)=>(ON) F S d v PFSM242 e . P TBT LBOOL1,FSM242A F:= JUMP IF EMPTY POS e " P B FSM249 LONG BRANCH CONSTR. e H PFSM242A e n 0 P CBNE LBIN12,GBIN12,FSM243 JMP IF SAME ATTR e ~ $ P TBF LBOOL4,FSM249 JUMP IF F
0x0ae91a…12f7b6 [0x271]: Pad {f00=0x4245, f01=0x5c4c, f02=»BIN2,LBIN7,FSM244 JUMP IF SAME POS AS CURPOS e R ( P SUB S LBIN11,W4 ADJUST ATTAB-POINTER e PFSM244 f ( 6 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD SEQ NO NUMBER f 6 ( P ADD LBIN11,W2 ADJUST ATTAB-POINTER f p > P CBE LBIN3,=X'00FF',FSM249 JUMP IF CURSOR IN
0x0ae91a…12f7b6 [0x272]: Pad {f00=0x4e31, f01=0x312c, f02=»W3 ADJUST ATTAB-POINTER f F $ P BG FSM245 JUMP IF STILL POSIT S IV f r * P ADD LBIN11,W4 ADJUST POINTER FOR NEXT g P B FSM246 g 8 PFSM245 g J . P SUB LBIN11,W4 ADJUST POINTER FOR PREVIOUS g X P* g P* CHECK PREVIOUS g P* g 4 P XCOPY LBI
0x0ae91a…12f7b6 [0x273]: Pad {f00=0x5720, f01=0x4e4f, f02=» g ( P SUB LBIN11,W6 ADJUST ATTAB-POINTER g T : P XCOPY LBIN3,W0, S W2,ATTAB,LBIN11 LOAD STATIC? ATTRIBUTE g ( P ADD LBIN11,W6 ADJUST ATTAB-POINTER h . < P CBNG LBIN3,=X'FFFF',FSM246 JUMP IF NOT > (NOT DYN ATTR) h Z . P XCOPY LBIN3,W0,W1,W0,W0 SPACE OUT
0x0ae91a…12f7b6 [0x274]: Pad {f00=0x4d3a, f01=0x3d30, f02=» h , . P XCOPY LBIN2,W1,W1,ATTAB,LBIN11 GET SEQ.NO h N ( P SUB LBIN11,W2 A S DJUST ATTAB POINTER h , P DLETE ATTAB,LBIN11,W4 DELETE ATTR-ENTRY i , P MOVE LBIN3,LABIN STORE LENGTH OF ATTAB i L 8 P PERF ZERFLL,ATTAB,LBIN3,W4 ***ZERO REFILL 4 /00:S i | 0
0x0ae91a…12f7b6 [0x275]: Pad {f00=0x4552, f01=0x0069, f02=» " : P XCOPY FIDTAB,LBIN2,W4,LSTR4A,W0 OVERWRITE FID DELETED i F ( P SET CMBOOL S T=DYNAMIC FIELD DELETED i P* j P* CHECK NEXT j * P* j B PFSM246 j L P MOVE LBIN3,W0 j Z 4 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD ROW NUMBER j p 4 P CBNE LB
0x0ae91a…12f7b6 [0x276]: Pad {f00=0x433f, f01=0x2041, f02=»TTRIBUTE j ( P SUB LBIN11,W2 ADJUST ATTAB-POINTER j J < P CBNG LBIN3,=X'FFFF',FSM24 S 7 JUMP IF NOT > (NOT DYN ATTR) j v P MOVE LBIN2,W0 WORKITEM:=0 k & * P XCOPY LBIN2,W1,W1,LBIN3,W0 GET SEQ.NO k H . P XCOPY LBIN3,W0,W1,W0,W0 SPACE OUT SEQ NO k v 0 P C
0x0ae91a…12f7b6 [0x277]: Pad {f00=0x5441, f01=0x4220, f02=» k 8 P PERF ZERFLL,ATTAB,LBIN3,W4 ***ZERO REFILL 4 /00:S k < 0 P CBE LBIN2,W0,FSM247 SEQ S .NO=00 NEW DYNAMIC F k x 2 P CALL WXMUL,LBIN2,W5,LBIN2 CALC FIDATB POINTER l P SUB LBIN2,W5 ADJUST POINTER l R : P XCOPY FIDTAB,LBIN2,W4,LSTR4A,W0 OVERWRITE FID
0x0ae91a…12f7b6 [0x278]: Pad {f00=0x5731, f01=0x2c41, f02=»TTAB,LBIN11 CURPOS COL:=STARTCOL CURR ATTR l > P XCOPY LBIN6,W1,W1,LBIN7,W1 COL NUMBER:=STARTCOL S CURR ATTR l ` ( P ADD LBIN11,W3 ADJUST ATTAB POINTER m P EJECT m > PFSM248 m L ( P MOVE LBIN16,LBIN5 LOAD CURRENT ROW m Z , P MOVE LBIN4,LBIN7 SAVE C
0x0ae91a…12f7b6 [0x279]: Pad {f00=0x2046, f01=0x4f52, f02=» 0-COUNTING m 6 P PERF DISPLY,LBIN5 ***EDIT AND WRITE TO E-O-SECT. m < PFSM249 m v ( P MOVE LBIN3, T =X'0101' LOAD CURSOR-POS m " P TBT VD82,FSM249A JUMP IF VD82 n ( P MOVE LBIN3,=X'1801' LOAD CURSOR-POS n F PFSM249A n r 0 P PERF CURSET,LBIN3,LBI
0x0ae91a…12f7b6 [0x27a]: Pad {f00=0x5922, f01=0x006e, f02=» 0 P CLEAR LBOOL3 FALSE = FORW SEARCH IN ATTRTAB n ( P B FSM060 n P EJECT n n P* n | P* HARD- T COPY n P* o PFSM260 o " P PERF ATTPRT ***ATTACH PRINTER o $ P BNOK FSM270 JMP IF NOT OK o J $ P TBF LBOOLE,FSM270 JMP IF NOT OK o l .
0x0ae91a…12f7b6 [0x27b]: Pad {f00=0x5c50, f01=0x4552, f02=»F PRFSMD ***PRINT FORMAT SECTION LAYOUT o $ P BNOK FSM268 JMP IF OUT OF PAPER o L P MOVE TB7BIN1,=W'20' o t * P T MOVE LBIN3,=X'1801' LINE:=24 COL:=01 o P TBF VD82,FSM263 p . * P MOVE LBIN3,=X'0101' LINE:=01 COL:=01 p F PFSM263 p t P DSC SYSL,
0x0ae91a…12f7b6 [0x27c]: Pad {f00=0x534d, f01=0x3237, f02=»2 GO ON p PFSM268 p & , P MOVE LBIN4,=W'34' ERROR-MESSAGE NO:=34 p 4 PFSM270 p d " P PERF DETPRT ***DETACH PRINTER T p r P MOVE LBIN1,W0 NO CLEAR q . P PERF WSMERR,KEYT5,=W'0' ***ERROR-MESSAGE q ( P EJECT q Z PFSM272 q h " P CLEAR LBOOL6 CL
0x0ae91a…12f7b6 [0x27d]: Pad {f00=0x5359, f01=0x534c, f02=» SET DECOR ON q P MOVE LBIN2,W3 q & 2 P WRITE SCRN,LSTR4A,LBIN2 DUMMY WRITE ON SCREEN q < P SET LBOOL9 TRUE S/D-DISPLAYER T q r P B FSM060 GO ON r P* r 2 P* CURSOR FORWARD -> 10 POSITIONS ON SCREEN r * P* r ` PFSM280 r j & P ADD LBI
0x0ae91a…12f7b6 [0x27e]: Pad {f00=0x4e36, f01=0x2c4c, f02=»BIN9,FSM285 JUMP IF BOARDER REACHED r P B FSM095 GO ON r 6 P EJECT r N P* r P* NEW LINE r f P* r z PFSM285 r ER T 2 P SUB LBIN6,LBIN9 COLUMNNO.:=COLUMNNO- MAX EOI s , P SUB LBIN7,LBIN9 ADJUST CURPOS COL:=REST s : P B FSM150 GO ON
0x0ae91a…12f7b6 [0x27f]: Pad {f00=0x532d, f01=0x3030, f02=»10 s $ P SUB LBIN6,W10 COLUMN:=COLUMN-10 s . P SET LBOOL3 TRUE = BACKW SEARCH IN ATTRTAB s 6 2 P CBNG LBIN6,W0,FSM295 JUMP IF BOARDER RE T ACHED s h P B FSM095 t PFSM295 t & P ADD LBIN6,LBIN9 COLUMN:=MAXCOLUMN t . . P ADD LBIN7,LBIN9 ADJUST CURP
0x0ae91a…12f7b6 [0x280]: Pad {f00=0x455c, f01=0x4742, f02=»IN2,W1 INDICATE RETUR KEY t P B FSM999 t P* t 2 P* NORMAL END t < P* t R PFSM400 t $ P MOVE GBIN2,W0 CLEAR RETURN-CODE t jRE T P B FSM999 u P* u & P* WORKING AREA 'ATTAB' EXCEEDED u P* u J PFSM980 u T P MOVE LBIN1,
0x0ae91a…12f7b6 [0x281]: Pad {f00=0x5c2a, f01=0x2a2a, f02=»(ERROR-)MESSAGE ROUTINE u " P B FSM300 INDICATE RETURN KEY u P* u > P* EXIT u H P* u X PFSM999 u b P RET u p P PEND u | P EJECT T u P* v P* ERASE PARTIAL SCREEN v P* v 2 PERASE PROC v < " P MOVE LBIN1,LBIN7 LOAD CUR
0x0ae91a…12f7b6 [0x282]: Pad {f00=0x2c57, f01=0x315c, f02=»ADJUST LENGTH v P DSC SCRN,BLS BLOCK START v PERA100 v * 0 P PERF CURSET,LBIN1,LBIN4,SCRN ***CURSOR SET v 8 2 P DSC1 SCRN,2,LBIN3 ERASE LINE OR PAR T T OF LINE v l P ADD LBIN2,W1 NEXT ROW w P CBG LBIN2,LBIN8,ERA999 w 0 P ADD LBIN1,=X'0100
0x0ae91a…12f7b6 [0x283]: Pad {f00=0x0038, f01=0x0050, f02=»* THIS MODULE PADS X'20' BACKWARDS IN A GIVEN ROW w 0 P* UNTIL THE GIVEN ENDPOSITION IN THE ROW w ( P* w 0 P* INPUT : ROWNO = CURRENT ROW NUMB T ER w f > P* ENDPOS = ENDPOSITION OF THE ROW TO WHERE x B P*
0x0ae91a…12f7b6 [0x284]: Pad {f00=0x2020, f01=0x2020, f02=» OUTPUT : GVDUR(ROWNO) = ACTUAL ROW PADDED WITH X'20':S x 2 P* CR = 1 PADDING MADE x & 4 P* 2 NO PADDING MADE x T P* y L P************************************************************************
0x0ae91a…12f7b6 [0x285]: Pad {f00=0x4c42, f01=0x494e, f02=»4,ENDPOS,LSTR9A,W1,W1 SEARCH 1ST /00 y " P BNOK SPC999 NO PADDING NEEDED y $ P MOVE LBIN3,ENDPOS LOAD CURR POS y 2 . P SUB LBIN3,LBIN4 CALC NUMBER OF /20 TO PAD y Z P SUB T LBIN3,W1 ADJUST y : P XCOPY GVDUR(ROWNO),LBIN4,LBIN3,LSTR81,W0 PAD WITH /20 z
0x0ae91a…12f7b6 [0x286]: Pad {f00=0x0050, f01=0x2a20, f02=» OF THE ITEM , TO /00:S z P* z J P* INPUT (FORMAL) PARAMETERS: ITEM = ITEM(VARIABLE) TO BE CHANGED z < P* LENGTH = LENGTH OF IT T EM z Z L P* DLCHRS = NUMBER OF BYTES TO BE
0x0ae91a…12f7b6 [0x287]: Pad {f00=0x5253, f01=0x007b, f02=» P PSTRG ITEM { P PBIN LENGTH { P PBIN DLCHRS { P MOVE LSTR81,=X'00' { * P SUB LENGTH,DLCHRS CALC START POSITION { 2 ( P XCOPY ITEM,LENGTH,DLCHRS,LSTR81,W0 { ` P RET T { P PEND | P EJECT | P* | $ > P* SEARCH ATTRIBUTE-T
0x0ae91a…12f7b6 [0x288]: Pad {f00=0x2020, f01=0x2020, f02=» LBOOL3 = FALSE => FORWARD SEARCH | > P* TRUE => BACKWARD SEARCH | D P* OUTPUT : LBIN11 = POINTER ADRESS TO ELEMENT AFTER | D 4 P* T CURRENT POSITON | : P*
0x0ae91a…12f7b6 [0x289]: Pad {f00=0x2020, f01=0x2020, f02=» = TRUE E-O-TABLE OR B-O-TABLE OR } F P* NO PREVIOUS ROW-ENTRY FOUND } P* } N L P******************************************************** T **************** } X PSEATAB PROC RCPOS ~ P PBIN
0x0ae91a…12f7b6 [0x28a]: Pad {f00=0x4620, f01=0x454d, f02=»PTY ~ P BOK SEA030 JMP IF NOT EMPTY ~ " P MOVE LBIN12,=X'FFFF' NO ENTRY ~ PSEA030 ~ P CBE LBIN11,W0,SEA050 ~ & P SUB LBIN11,W4 ~ D PSEA050 ~ Z 2 P TBT LBOOL3,SEA300 JUMP IF BACKWARD SEAR T CHING ~ h P EJECT P* P* FORWARD
0x0ae91a…12f7b6 [0x28b]: Pad {f00=0x2d4f, f01=0x462d, f02=»TABLE 0 P CBG LBIN1,RCPOS,SEA200 ATTRPOS>CURRENT POS 0 P CBE LBIN1,RCPOS,SEA400 ATTRPOS=CURRENT POS P ADD LBIN11,W4 NEXT ATTRPOS 2 4 P CBE LBIN11,LABIN,SEA200 PHYSICAL LENGTH REACHED V P B T SEA100 GO ON PSEA200 . P CBE LBI
0x0ae91a…12f7b6 [0x28c]: Pad {f00=0x0080, f01=0x009a, f02=» P* PSEA300 8 P XCOPY LBIN1,W0,W2,ATTAB,LBIN11 FETCH ATTRIBUTE-POS. . P CBE LBIN1,W0,SEA400 JUMP IF END-OF-TABLE 0 P CBNG LBIN1,RCPOS,SEA400 ATTRPOS<CURRENT POS @ 0 P CBE LBIN11,W0,SEA610 BEGIN T OF TABLE REACHED t P SUB LBIN11,W4
0x0ae91a…12f7b6 [0x28d]: Pad {f00=0x3d58, f01=0x2746, f02=»FFF',SEA650 JUMP IF NO ENTRY YET 0 P XCOPY LBIN3,W1,W1,ATTAB,LBIN11 LOAD ROW NO 4 P CBG LBIN3,LBIN5,SEA650 JMP IF GRAETER CURR ROW 4 P CBNE LBIN3,LBIN5,SEA600 JUMP IF NOT SAME ROWNO D & P ADD LBIN11,W2 ADJUS T T POINTER ATTR | 0 P XCOPY LBI
0x0ae91a…12f7b6 [0x28e]: Pad {f00=0x5220, f01=0x414e, f02=»D DYNAMIC POS * P B SEA520 DYNAMIC ATTR AND STATIC POS PSEA500 2 P TBF LBOOL2,SEA550 STATIC ATTR AND STATIC POS PSEA520 2 ( P SET LBOOL4 FALSE UNEQUAL ATTRIBUTE @ PSEA550 l " P ADD LBIN11,W1 ADJUST T POINTER z 4 P XCOPY LBI
0x0ae91a…12f7b6 [0x28f]: Pad {f00=0x5252, f01=0x454e, f02=»T POS z . P SUB LBIN11,W4 ADJUST WHEN SAME AS CURRENT PSEA560 8 P CBNE LBIN10,LBIN12,SEA650 JMP IF ATTRIBUTE UNEQUAL P B SEA999 EXIT . PSEA600 D " P ADD LBIN11,W4 ADJUST POINTER R PSEA610 x 2 P MOVE LBIN T 12,=X'00FF' NEW LINE
0x0ae91a…12f7b6 [0x290]: Pad {f00=0x0084, f01=0x0094, f02=» P* : P* THIS MODULE UPDATES THE ATTRIBUTE-TABLE-POSITIONS & P* AT INSERT OR DELETE CHARACTER " P* OR LINE-INSERT OR -DELETE P* : D P* INPUT PARAMETERS: STEP = STEP TO ADJUST TABLE-POSITIONS D 6 P* T
0x0ae91a…12f7b6 [0x291]: Pad {f00=0x4620, f01=0x4154, f02=» DEL CHAR p 6 P* FF00 AT LINE DEL H P* LIMIT = RRFE AT INS CHAR RR=CURRENT ROWNO 6 P* MMFE AT LINE INS 0 6 P* RRFE T AT DEL C
0x0ae91a…12f7b6 [0x292]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»************************************ n PATABUP PROC STEP,LIMIT P PBIN STEP P PBIN LIMIT 2 P MOVE LBIN3,LBIN11 SAVE ACTUAL ATT-TAB POINTER PATA100 8 < P XCOPY LBIN13,W0,W2,ATTAB,LBIN3 FETCH ATTRIBUTE-POSITION F 4 P CBE LBIN1 T 3,
0x0ae91a…12f7b6 [0x293]: Pad {f00=0x5349, f01=0x5449, f02=»ON d 0 P CBL LBIN5,ROWS,ATA050 JMP IF NOT LAST LINE 2 P CBG LBIN13,LIMIT,ATA070 JMP IF GREATER LIMIT P EJECT PATA050 P TBT VD82,ATA055 JMP IF VD82 > P CBG LBIN13,=X'17FF',ATA070 JMP IF GREATER PHYSICAL LIMIT @ P B ATA060
0x0ae91a…12f7b6 [0x294]: Pad {f00=0x5245, f01=0x5354, f02=»ORE UPDATED ATTR-POS. b . P XCOPY LBIN13,W0,W1,W0,W1 SPACE OUT ROW NO 0 P CBNG LBIN13,COLS,ATA300 JUMPF COL < OR = 80 PATA070 P ADD LBIN3,W2 ADJUST POINTER P MOVE LBIN13,W0 WORKITEM:=0 < . P XCOPY LBIN13,W1,W1,ATTAB,LBIN3 GET SEQ.NO `
0x0ae91a…12f7b6 [0x295]: Pad {f00=0x4620, f01=0x4e45, f02=»W DYN FIELD ` 2 P CBE LBIN13,=X'00FF',ATA200 JUMP IF STAT FIELD P CALL WXMUL,LBIN13,W5,LBIN13 P SUB LBIN13,W5 P MOVE LSTR4A,=X'FFFF' < P XCOPY FIDTAB,LBIN13,W4,LSTR4A,W0 OVERWRITE FID DELETED " ( P SET CMBOOL T=DYNAMIC FIELD DELETED b
0x0ae91a…12f7b6 [0x296]: Pad {f00=0x4133, f01=0x3030, f02=» t * P ADD LBIN3,W4 NEXT ATTRIBUTE POSITION PATA400 . P CBL LBIN3,LABIN,ATA100 CHECK PHYSICAL END PATA999 P RET P PEND P* $ PMESTAB FTABLE ERFM07,MSGDEC 1-2 " PERFM07 FRMT J P FSL ^ ( P FTEXT 'PRESS ENTER-KEY TO
0x0ae91a…12f7b6 [0x297]: Pad {f00=0x523e, f01=0x3d52, f02=»EVERSE C @ P <B>=BLINK' P FMEND P EJECT P* ( P* FORMAT CURSOR POSITION EDITING P* PFCURP FRMT P FMELI 'TT9',LBCD3A P FMEND $ P* 2 P* FORM-FEED < P* R PFORMF FRMT P FTEXT ' 1' n
0x0ae91a…12f7b6 [0x298]: Pad {f00=0x5231, f01=0x008c, f02=» ` P FMEND t P END @ P FMEND P EJECT P* ( P* FORMAT CURSOR POSITION EDITING P* PFCURP FRMT P FMELI 'TT9',LBCD3A P FMEND $ P* 2 P* FORM-FEED < P* R PFORMF FRMT P FTEXT ' 1
0x0ae91a…12f7b6 [0x299]: Pad {f00=0x5059, f01=0x5c4c, f02=»STR1 ` P FMEND t P END @ P FMEND P EJECT P* ( P* FORMAT CURSOR POSITION EDITING P* PFCURP FRMT P FMELI 'TT9',LBCD3A P FMEND $ P* 2 P* FORM-FEED < P* R PFORMF FRMT P FTE
0x0ae91a…12f7b6 [0x29a]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x29b]: Pad {f00=0x0c00, f01=0x0c08, f02=»
0x0ae91a…12f7b6 [0x29c]: Pad {f00=0x0104, f01=0xc054, f02=»:AC100 R T:AC100 d F B T:DC100 D:CB100 C:CB100 D:CB200 C:CB200 D:CB300 C:CB300 D:TB100 x F B Z:TB100 D:TB200 Z:TB200 D:TB300 Z:TB300 D:TB400 Z:TB400 D:TB500 F B Z:TB500 D:TB600 Z:TB600 D:TB700 Z:TB700 D:TB800 Z:TB800 D:TB900 Z:TB900
0x0ae91a…12f7b6 [0x29d]: Pad {f00=0x0000, f01=0x0000, f02=» 8 , ( a d h , ( , ( , ( 0 P d X d , ( C1 ( , (
0x0ae91a…12f7b6 [0x29e]: Pad {f00=0x0116, f01=0x0000, f02=» @@ R 8 , ( a d h , ( , ( , ( 0 P d X d , ( C1 (
0x0ae91a…12f7b6 [0x29f]: Pad {f00=0x3031, f01=0x3535, f02=»940230 T:DC100 R T:DC100 d WSMCRT0 x , ( C1 * ! * @ , ( 0 P d X d , ( C1
0x0ae91a…12f7b6 [0x2a0]: Pad {f00=0x3930, f01=0x312c, f02=»870155940230 T:AFC00 R T:AFC00 d > : T:DFC00 D:CB100 C:CB100 D:CB200 C:CB200 D:CB300 C:CB300 x , ( * FC < @ , ( C1
0x0ae91a…12f7b6 [0x2a1]: Pad {f00=0x2e33, f01=0x2c38, f02=»50901,870155940230 T:DFC00 R T:DFC00 d FCTASK0 x * & FC * @ @ , ( C1
0x0ae91a…12f7b6 [0x2a2]: Pad {f00=0x2052, f01=0x454c, f02=»=2.3,850901,870155940230 T:ATAB0 R T:ATAB0 d T:AC100 T:AFC00 x P @
0x0ae91a…12f7b6 [0x2a3]: Pad {f00=0x4f31, f01=0x3131, f02=»1 REL=2.3,850901,870155940230 U:BTAB0 R U:BTAB0 d x @ @
0x0ae91a…12f7b6 [0x2a4]: Pad {f00=0x3031, f01=0x2046, f02=»1 O1111 REL=2.3,850901,870155940230 S:BTAB0 R S:BTAB0 d x @ @
0x0ae91a…12f7b6 [0x2a5]: Pad {f00=0x3835, f01=0x2d30, f02=»9-01 F1 O1111 REL=2.3,850901,870155940230 C:CB100 R C:CB100 d , ( x ! $ $ @
0x0ae91a…12f7b6 [0x2a6]: Pad {f00=0x2031, f01=0x332e, f02=»0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB100 R D:CB100 d , ( B x , ( ! A D @
0x0ae91a…12f7b6 [0x2a7]: Pad {f00=0x3020, f01=0x2054, f02=»RA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB200 R C:CB200 d , ( P x ! 0 4 4 @ @
0x0ae91a…12f7b6 [0x2a8]: Pad {f00=0x2044, f01=0x3a43, f02=»B20 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB200 R D:CB200 d , ( B x , ( ! A D @
0x0ae91a…12f7b6 [0x2a9]: Pad {f00=0x2049, f01=0x4445, f02=»NT C:CB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB300 R C:CB300 d ( x ( ! ( A ( a ( ( ( ( ( ( !
0x0ae91a…12f7b6 [0x2aa]: Pad {f00=0x0190, f01=0x0221, f02=» ( A ( a ( , ( < ( L ( ( l ( ! | ( A ( a ( ( ( ( ( ( ! (
0x0ae91a…12f7b6 [0x2ab]: Pad {f00=0x0000, f01=0x0000, f02=» U A ( a ( ( , ( < ( L ( ( ! l ( A | ( a ( ( ( ( ( ( ! ( A
0x0ae91a…12f7b6 [0x2ac]: Pad {f00=0x0313, f01=0x0000, f02=» U a ( ( ( , ( < ( L ( ! ( A l ( a | ( ( ( ( ( ( ! ( A (
0x0ae91a…12f7b6 [0x2ad]: Pad {f00=0x017c, f01=0x000c, f02=» ( U ( ( ( , ( < ( ! L ( A ( a l ( | ( ( ( ( ( ! ( A ( a
0x0ae91a…12f7b6 [0x2ae]: Pad {f00=0x0e81, f01=0x0000, f02=» | ( U ( ( ( , ( ! < ( A L ( a ( l ( | ( ( ( ( ! ( A ( a (
0x0ae91a…12f7b6 [0x2af]: Pad {f00=0x0028, f01=0x0313, f02=» | ( U ( ( ( ! , ( A < ( a L ( ( l ( | ( ( ( ! ( A ( a ( (
0x0ae91a…12f7b6 [0x2b0]: Pad {f00=0x0013, f01=0x016c, f02=» ( | ( U ( ( ! ( A , ( a < ( L ( ( l ( | ( ( ! ( A ( a ( (
0x0ae91a…12f7b6 [0x2b1]: Pad {f00=0x0000, f01=0x17c1, f02=» l ( | ( U ( ! ( A ( a , ( < ( L ( ( l ( | ( ! ( A ( a ( ( (
0x0ae91a…12f7b6 [0x2b2]: Pad {f00=0x000c, f01=0x0028, f02=» l ( | ( U ! ( A ( a ( , ( < ( L ( ( l ( ! | ( A ( a ( ( ( (
0x0ae91a…12f7b6 [0x2b3]: Pad {f00=0x0000, f01=0x0016, f02=» ( l ( ! | ( U A ( a ( ( , ( < ( L ( ( ! l ( A | ( a ( ( ( (
0x0ae91a…12f7b6 [0x2b4]: Pad {f00=0x0313, f01=0x0000, f02=»! ( !! l ( !A | ( U !a ( ! ( ! ( ! , ( ! < ( " L ( "! ( "A l ( "a | ( " ( " ( " ( " (
0x0ae91a…12f7b6 [0x2b5]: Pad {f00=0x014c, f01=0x000c, f02=» ( $! ( $A l ( $a | ( U $ ( $ ( $ ( $ , ( % < ( %! L ( %A ( %a l ( % | ( % ( % ( % ( &
0x0ae91a…12f7b6 [0x2b6]: Pad {f00=0x2721, f01=0x0000, f02=» L ( 'A ( 'a l ( ' | ( U ' ( ' ( ' ( ( , ( (! < ( (A L ( (a ( ( l ( ( | ( ( ( ( ( ) ( )!
0x0ae91a…12f7b6 [0x2b7]: Pad {f00=0x0028, f01=0x0313, f02=» *A L ( *a ( * l ( * | ( U * ( * ( + ( +! , ( +A < ( +a L ( + ( + l ( + | ( + ( , ( ,! (
0x0ae91a…12f7b6 [0x2b8]: Pad {f00=0x001b, f01=0x013c, f02=» ( -a L ( - ( - l ( - | ( U - ( . ( .! ( .A , ( .a < ( . L ( . ( . l ( . | ( / ( /! ( /A
0x0ae91a…12f7b6 [0x2b9]: Pad {f00=0x0000, f01=0x3061, f02=» < ( 0 L ( 0 ( 0 l ( 0 | ( U 1 ( 1! ( 1A ( 1a , ( 1 < ( 1 L ( 1 ( 1 l ( 2 | ( 2! ( 2A ( 2a
0x0ae91a…12f7b6 [0x2ba]: Pad {f00=0x000c, f01=0x0028, f02=» 3 < ( 3 L ( 3 ( 3 l ( 4 | ( V 4! ( 4A ( 4a ( 4 , ( 4 < ( 4 L ( 4 ( 5 l ( 5! | ( 5A ( 5a (
0x0ae91a…12f7b6 [0x2bb]: Pad {f00=0x0000, f01=0x001e, f02=» , ( 6 < ( 6 L ( 6 ( 7 l ( 7! | ( V 7A ( 7a ( 7 ( 7 , ( 7 < ( 7 L ( 8 ( 8! l ( 8A | ( 8a ( 8
0x0ae91a…12f7b6 [0x2bc]: Pad {f00=0x0313, f01=0x0000, f02=»9 , ( 9 < ( 9 L ( : ( :! l ( :A | ( V :a ( : ( : ( : , ( : < ( ; L ( ;! ( ;A l ( ;a | ( ; (
0x0ae91a…12f7b6 [0x2bd]: Pad {f00=0x00fc, f01=0x002c, f02=» ( <A ERRWARNREM; , , ( <a , ( VA < =><>=<=<>=><>= , ( < <=<>&:STR+-+-/*ABSINTSGNTIMDAYSY ! , , ( < SLENNUMDATCDVPOS) ! , ( <
0x0ae91a…12f7b6 [0x2be]: Pad {f00=0x3d41, f01=0x0000, f02=» YNLRDBS801;01;24;80;1?;25;01 ! =a ;01;80;0=P ! L =j ! f =j ! z@ ! VA J H IDENT D:CB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 " D:CB300 " R D:CB300 " d , ( B < G< G<G
0x0ae91a…12f7b6 [0x2bf]: Pad {f00=0x0028, f01=0x0313, f02=» =A YNLRDBS801;01;24;80;1?;25;01 ! =a ;01;80;0=P ! L =j ! f =j ! z@ ! VA J H IDENT Z:TB10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 # Z:TB100 # R Z:TB100 # d , (
0x0ae91a…12f7b6 [0x2c0]: Pad {f00=0x0021, f01=0x00ec, f02=» , ( =A YNLRDBS801;01;24;80;1?;25;01 ! =a ;01;80;0=P ! L =j ! f =j ! z@ ! VA J H IDENT D:TB10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 $ D:TB100 $ R D:TB100 $ d , ( B
0x0ae91a…12f7b6 [0x2c1]: Pad {f00=0x24ff, f01=0x28ff, f02=»0 ! , ( =A YNLRDBS801;01;24;80;1?;25;01 ! =a ;01;80;0=P ! L =j ! f =j ! z@ ! V J H IDENT Z:TB20 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 % Z:TB200 % R Z:TB200 % d , (
0x0ae91a…12f7b6 [0x2c2]: Pad {f00=0x00c1, f01=0x0000, f02=» % ( % ( % $ ( ! % 4 ( A % D ( a % T ( % d ( % t ( % V@ ( & ( & ( ! & $ ( A & 4 ( a & D ( & T ( & d , (
0x0ae91a…12f7b6 [0x2c3]: Pad {f00=0x0000, f01=0x0000, f02=» VA J H IDENT D:TB20 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ' D:TB200 ' R D:TB200 ' d ,
0x0ae91a…12f7b6 [0x2c4]: Pad {f00=0x0000, f01=0x0027, f02=» V@ J H IDENT Z:TB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ( Z:TB300 ( R Z:TB300
0x0ae91a…12f7b6 [0x2c5]: Pad {f00=0x0000, f01=0x0028, f02=» ' VA J H IDENT D:TB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ) D:TB300 ) R D:T
0x0ae91a…12f7b6 [0x2c6]: Pad {f00=0x0000, f01=0x0044, f02=» ) @ ) V J H IDENT Z:TB40 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 * Z:TB400 * R
0x0ae91a…12f7b6 [0x2c7]: Pad {f00=0x00e0, f01=0x000c, f02=» ( * ( * ( * ( ! * ( A * 0 ( a * @ ( * P ( * ` ( * p ( * ( V * ( ! + ( A + ( a + 0 ( + @ ( + P
0x0ae91a…12f7b6 [0x2c8]: Pad {f00=0x03c1, f01=0x0000, f02=» + ( + ( + ( ! + ( A + ( a + 0 ( + @ ( + P ( + ` ( + p ( + ( V ! + ( A , ( a , ( , 0 ( , @ (
0x0ae91a…12f7b6 [0x2c9]: Pad {f00=0x0028, f01=0x0313, f02=» , ( , ( ! , ( A , , ( a , , ( , P , V@. - - @ - * ( , 0 ( , @ (
0x0ae91a…12f7b6 [0x2ca]: Pad {f00=0x002c, f01=0x00d0, f02=» ( , ( , ( ! , ( A , , ( a , , ( , P , VA J H IDENT D:TB40 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 .
0x0ae91a…12f7b6 [0x2cb]: Pad {f00=0x00a8, f01=0x0010, f02=» A 0( x . D . @ . V J H IDENT Z:TB50 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,87015594
0x0ae91a…12f7b6 [0x2cc]: Pad {f00=0x0313, f01=0x0000, f02=» / ( / ( / ( / ( ! / ( A / ( a / , ( / < ( / L ( / ( / l ( / | ( V ! / ( A 0 ( a 0 ( 0 , (
0x0ae91a…12f7b6 [0x2cd]: Pad {f00=0x00bc, f01=0x000c, f02=» ( 0 ( 0 ( 0 ( ! 0 ( A 0 ( a 0 ( 0 , ( 0 < ( 0 L ( 0 ( 0 l ( ! 0 | ( VAV A 0 ( a 1 ( 1 ( 1 ,
0x0ae91a…12f7b6 [0x2ce]: Pad {f00=0x06c1, f01=0x0000, f02=» 1 ( 1 ( 1 ( ! 1 ( A 1 ( a 1 1 1 , 1 @@ 1 R L ( 0 ( 0 l ( ! 0 | ( V@ J H IDENT D:TB50 TRA 13.0 85-09-01 F1 O1111 REL=2
0x0ae91a…12f7b6 [0x2cf]: Pad {f00=0x0028, f01=0x0313, f02=» 1 ( 1 ( 1 ( ! 1 ( A 1 ( a 1 1 1 , 1 @@ 1 R L ( 0 ( 0 l ( ! 0 | ( V@ J H IDENT Z:TB60 TRA 13.0 85-09-01 F1 O1111
0x0ae91a…12f7b6 [0x2d0]: Pad {f00=0x2020, f01=0x2020, f02=» A 3 * 3 * 3 @ 3 ! 1 ( A 1 ( a 1 1 1 , 1 @@ 1 R L ( 0 ( 0 l ( ! 0 | ( V@ J H IDENT D:TB60 TRA 13.0 85-09-01 F1
0x0ae91a…12f7b6 [0x2d1]: Pad {f00=0x0000, f01=0x0006, f02=» ! 4 0 4 @ 4 3 @ 3 ! 1 ( A 1 ( a 1 1 1 , 1 @@ 1 R L ( 0 ( 0 l ( ! 0 | ( VAD J H IDENT Z:TB70 TRA 13.0 85-09-
0x0ae91a…12f7b6 [0x2d2]: Pad {f00=0x0313, f01=0x0000, f02=» ! 5 ( A 5 ( a 5 ( 5 ( 5 ( 5 5 5 5 .@ 5 @ 1 @@ 1 R L ( 0 ( 0 l ( ! 0 | ( VA J H IDENT D:TB70 TRA 13.0
0x0ae91a…12f7b6 [0x2d3]: Pad {f00=0x0078, f01=0x002c, f02=» ( ! 6 A 6 D 6 @ 6 V J H IDENT Z:TB80 TRA
0x0ae91a…12f7b6 [0x2d4]: Pad {f00=0x0000, f01=0x0000, f02=» 7 x , ( ! 7 , ( A 7 ( a 7 ( 7 * ( 7 : ( 7 J ( 7 Z ( 7 j ( ! 7 z ( A V 7 ( a
0x0ae91a…12f7b6 [0x2d5]: Pad {f00=0x000c, f01=0x0028, f02=» 8 ( 8 ( 8 ( 8 ( 8 ( ! 8 ( A 8 ( a 8 ( 8 ( 8 * ( 8 : ( 8 J ( 8 Z ( ! 8 j ( A 8 z ( a V 8 (
0x0ae91a…12f7b6 [0x2d6]: Pad {f00=0x0000, f01=0x0039, f02=» ( 9 ( 9 ( 9 ( 9 ( ! 9 ( A 9 ( a 9 ( 9 ( 9 ( 9 * ( 9 : ( 9 J ( ! 9 Z ( A 9 j ( a 9 z ( V 9
0x0ae91a…12f7b6 [0x2d7]: Pad {f00=0x0313, f01=0x0000, f02=» : ( : ( : ( : ( ! : ( A : ( a : ( : ( : ( : ( : * ( : : ( ! : J ( A : Z ( a : j ( : z ( V
0x0ae91a…12f7b6 [0x2d8]: Pad {f00=0x007a, f01=0x000c, f02=» ( ; ( ; ( ; ( ! ; ( A ; ( a ; ( ; ( ; ( ; ( ; ( ; * ( ! ; : ( A ; J ( a ; Z ( ; j ( ; z (
0x0ae91a…12f7b6 [0x2d9]: Pad {f00=0x0ec1, f01=0x0000, f02=» < z ( < ( < ( ! < ( A < ( a < ( < ( < ( < ( < ( < ( ! < * ( A < : ( a < J ( < Z ( < j ( < z (
0x0ae91a…12f7b6 [0x2da]: Pad {f00=0x0028, f01=0x0313, f02=» = z ( = ( ! = ( A = ( a = ( = ( = = = = @ = ( ! < * ( A < : ( a < J ( < Z ( < j ( < z
0x0ae91a…12f7b6 [0x2db]: Pad {f00=0x0064, f01=0x002c, f02=» ( F > x , ( ! R m o > A K n > H > @ >
0x0ae91a…12f7b6 [0x2dc]: Pad {f00=0x3030, f01=0x0004, f02=» ? d , ( o ? x ? ? @ ? A K n > H > @ >
0x0ae91a…12f7b6 [0x2dd]: Pad {f00=0xc844, f01=0x3a54, f02=»B900 @ d $ @ x @ @ @ ? @ ? A K n > H > @ >
0x0ae91a…12f7b6 [0x2de]: Pad {f00=0x0010, f01=0x000c, f02=» WSMCRT0 d $$$TRA0 x F B FDUPDT0 FSINIT0 FSMODL0 FSMSPP0 FSNAME0 FSPARM0 FSDISC0 FSUPDT0 F B USMODL0 READIN0 CURSET0 WSMERR0 PRNTFS0 ATTPRT0 DETPRT0 STPBLK0 @ < STABLK0 GETIND0 ICLEAR0 TESTB CHANFC0 GETCW WXDIV T:DSC10 F B T:RECE0 T
0x0ae91a…12f7b6 [0x2df]: Pad {f00=0x001c, f01=0x0018, f02=» - ^ - ~ 0 0 " $ . $ # $ * ( $ : - $ J 2 & Z
0x0ae91a…12f7b6 [0x2e0]: Pad {f00=0x000c, f01=0x0008, f02=» Q 4 X ] * h b x d 0 p $ v x 4 0 J F " D @0 ' ) ` a)04 `oaP 0 ` 00 `W Ap 0 ?a` ` 04 `?a00 * 6 : 0 J 8
0x0ae91a…12f7b6 [0x2e1]: Pad {f00=0x0008, f01=0x0003, f02=» < P > ` @ p J F " D J 06 _Y ` 00 `@g18 0: b Hp b 00 b00 0< 0>0 0 @ P
0x0ae91a…12f7b6 [0x2e2]: Pad {f00=0x0063, f01=0x6254, f02=» 0D_) bc_ @ 6@ _m ` 0 n ~ ( ! 0 & + 0 0 6 ++ 8 F > & J F " D 00 ` A { ` Hp ` a 0
0x0ae91a…12f7b6 [0x2e3]: Pad {f00=0x0038, f01=0x000e, f02=» _ H e Z j ( l s 0 | x } 0 J F " D @p ` `a 00 A V A P@r ` Hp ` a 0 I P a 00 a `a 00 * :
0x0ae91a…12f7b6 [0x2e4]: Pad {f00=0x0022, f01=0x0044, f02=» A 2 A 2Ir ? T Hm a W @r? ` 7a % %_ A < & & & & $ & WSM REL 2
0x0ae91a…12f7b6 [0x2e5]: Pad {f00=0x0019, f01=0x000c, f02=»& WSM CREATOR TOOLS 8 & X & W f & v & & FUNCTION SELECTION: & ZC " & & & 1 = NEW $ * FO
0x0ae91a…12f7b6 [0x2e6]: Pad {f00=0x0024, f01=0x0010, f02=» NEW 6 $ J FORM Z $ n SECTIONI ~ $ & & & & 3 = OLD $ FORM $ DEFINITION
0x0ae91a…12f7b6 [0x2e7]: Pad {f00=0x0005, f01=0x464f, f02=»RM $ $ 8 ! SECTIONI F $ ! ^ & ! n ( | $ A ? 2A _ A ? 4 @ & 3 = OLD $ FORM $ DEFINI
0x0ae91a…12f7b6 [0x2e8]: Pad {f00=0x2046, f01=0x3120, f02=»O1111 REL=2.3,850808,870155940230 WSMERR0 R WSMERR0 d $$$TRA0 x D @ CHANFC0 T:DSC10 T:EDWR0 T:SETC0 T:NKI T:GETA0 T:ERAS0 T:DISP0 O
0x0ae91a…12f7b6 [0x2e9]: Pad {f00=0x003f, f01=0x0008, f02=» J F " D a b10 b b20 b0 b3Ip 0 b4*c m b 0 b0 0 b1 c0 * D x R X ] b s 1 x { J F " D @ b 0 k baZ a D b5Ip b6 b 0 b0 (a
0x0ae91a…12f7b6 [0x2ea]: Pad {f00=0x0002, f01=0x2204, f02=» " & " 4 ( B N & ATTAB ^ ( r ~ & BPOOL ( & PICTUR ( & FIDTAB ( & VA
0x0ae91a…12f7b6 [0x2eb]: Pad {f00=0x0002, f01=0x2204, f02=» " " . " < " J " X " f " t " " " " " " " " " " " "
0x0ae91a…12f7b6 [0x2ec]: Pad {f00=0x2204, f01=0x0029, f02=» " * " + & " , 4 " - B " . P " / ^ ( l x & . " & TOO FEW INPUT CHARACTERS ( & . & WORKING AREA $ d & EXC
0x0ae91a…12f7b6 [0x2ed]: Pad {f00=0x261b, f01=0xc317, f02=»ILLEGAL END-OF-ITEM KEYS ( * 6 & F & " & COMPULSORY FIELD NOT ENTERED T ( ~ & & ILLEGAL TYPE ( & " & PRESS <ENTER> TO CONFIRM
0x0ae91a…12f7b6 [0x2ee]: Pad {f00=0x5553, f01=0x3a4f, f02=» ~ & } ( ( & & 6 0 + &) %1ST CHARACTER MUST BE ALPHBETIC (A-Z) D ( x & " & SECTION TYPE MUST BE 1-6 ( & & & MUST BE WITHIN
0x0ae91a…12f7b6 [0x2ef]: Pad {f00=0x0000, f01=0x0057, f02=» ( $ A & MUST BE (.) OR (,) 0 ( P $ A l & MUST BE (M:) OR (S:) | ( & $ & FIELD NAME ALREADY DEFINED ( -
0x0ae91a…12f7b6 [0x2f0]: Pad {f00=0x454c, f01=0x0000, f02=» W D NAME, WSM WORK ITEM OR A DATA TABLE | ( . ) : & J 0 , &* &MUST BE (SKIP),(DUPL),(BYPASS) OR (NO) X ( & $ & MUST BE (LEFT) OR (RIGHT)P ( % &
0x0ae91a…12f7b6 [0x2f1]: Pad {f00=0x594e, f01=0x414d, f02=»IC F W IELDS p ( U & * 6 1 &/ +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT,` 8 0 + &) % <DEL> = DELETION, <DUP> = DUPLICATE.) r ( & + & VOLUME:= & o &
0x0ae91a…12f7b6 [0x2f2]: Pad {f00=0x4420, f01=0x4f4e, f02=» THIS VOLU W ME t ( 6 & & , ) &' #PRINTOUT POSITIONS MUST BE OUTSIDE 4 & ZZ9 O d & * x & ZZ9 O ( & * & SYNTAX ERROR: & ZZjN (
0x0ae91a…12f7b6 [0x2f3]: Pad {f00=0x000a, f01=0x016a, f02=» $ 9Y W ( " & 9 : FORMAT SECTION:P . $ : N & o ^ & l ; NOT FOUNDC z $ ; ( # & ; < FORMAT DEFINITION:
0x0ae91a…12f7b6 [0x2f4]: Pad {f00=0x000b, f01=0x1615, f02=» > FORMAT SECTION:P W v $ > & o & & ? ALREADY DEFINEDP 4 $ ? T ( d % & p & ? . ) &' #BASIC-VERB OR -FUNCTION NOT ALLOWEDE ( & & ? ( #
0x0ae91a…12f7b6 [0x2f5]: Pad {f00=0x2802, f01=0x000c, f02=» n ( z & ? W $ & PRINT-DEVICE NOT OPERABLEI ( 0 ) $ < & ? L , ' &% !PRINT-DEVICES ARE <GP> OR <LP> !!E Z ( * & ? & PRINTER OCCUPIED ( +
0x0ae91a…12f7b6 [0x2f6]: Pad {f00=0x000b, f01=0x2616, f02=» FIELD-ID NOT FOUND j ( ? WAV - & ? " & YOU ARE ALREADY THERE!!M & ( L . ' X & ? h . * &( $ILLEGAL DIRECTION TO WANTED FIELD-ID v ( / ( & ? & # &! SYNTAX
0x0ae91a…12f7b6 [0x2f7]: Pad {f00=0x0000, f01=0x0000, f02=» W J H IDENT READIN TRA 13.0 85-09-01 F1 O1111 REL=2.3,831116,870155940230 READIN0 STPBLK0 STABLK0 R $ READIN0 STPBLK0 STABLK0 t $$$TRA0 D @ WSMAPP0 WSMERR0 ATTPRT0 DETPRT0 EMPTYT0
0x0ae91a…12f7b6 [0x2f8]: Pad {f00=0x5550, f01=0x4c30, f02=» T:EDFL0 T:GETF0 T:TSTC0 T:ERAS0 @ T:D W SC00 " 7 2 B R w b " r ( 1 4 5 t 6 7 A
0x0ae91a…12f7b6 [0x2f9]: Pad {f00=0x0137, f01=0x0001, f02=» R J F " D 0 a(a" jo l ` ? @`0 o `ac: "a ? W (a ` < 2a b F V -a 0 ^ B f R j p b k r l m 7 q w x
0x0ae91a…12f7b6 [0x2fa]: Pad {f00=0x0003, f01=0x0206, f02=» R b V r J F " D @ ` /0 b W (b (a He k do k 0 b b $ 2b W 0 o2a @ P ` p
0x0ae91a…12f7b6 [0x2fb]: Pad {f00=0x4e4f, f01=0x5720, f02=»PRINTING B ` r X " $ 4 $ D T & d t J F " D b 0 o o k jo k 0 b0 0 b0" o 0 o1$ T
0x0ae91a…12f7b6 [0x2fc]: Pad {f00=0x0008, f01=0x0003, f02=» & H 8 X @ $ h B x J F " D X b Hp b 0 b0 _k c Wd a 0(oT 0 o_ c WQ ` ` 0 b(b 1 F F H * V U ) f ` , v g . l q ,
0x0ae91a…12f7b6 [0x2fd]: Pad {f00=0x000c, f01=0x0008, f02=» D T 7 d t X 0 0 $ 6 J F " D 2a W& a W& a W!0 c0 T 00 ccW o00 cc a W a W 4 0 F 2 2
0x0ae91a…12f7b6 [0x2fe]: Pad {f00=0x0130, f01=0x000c, f02=» & 1 @ ( P * % # 02 4 02 0 0 4 X@ @ 0 $ 6 J F " D 2a W& a W& a W!0 c0 T 00 ccW o00 cc a W a W 4 0 F 2 2
0x0ae91a…12f7b6 [0x2ff]: Pad {f00=0x0002, f01=0x0004, f02=» 0 & 1 @ ( P * % # 02 4 02 0 0 4 X J H IDENT WSMAPP TRA 13.0 85-10-28 F1 O1111 REL=2.3,851025,870155940230 WSMAPP0 R WSMAPP0 d $$$TRA0 x D @ SYNVAL0 BSVSEA0 GETIND0 CHA
0x0ae91a…12f7b6 [0x300]: Pad {f00=0x0008, f01=0x0003, f02=» 0 @ & P ; ` D p Z X p 0 e @ P ` p
0x0ae91a…12f7b6 [0x301]: Pad {f00=0x0001, f01=0x0120, f02=» 0 9 @ J F " D 2b b 4 b 4 b 4 b 4 b 4 X X c P K A0 O Z R % 2 T B X DSDSV R } h J F " D @ _ ko b %k #k 0 } m do }
0x0ae91a…12f7b6 [0x302]: Pad {f00=0x2e49, f01=0x672b, f02=»jb o$ b G c k } 0 bcP j}c k c c c _ X h z J F " D X fo _ 0 o0 Ic b hob S X Ig @ ! b W b fo fo$ c@$c c cb_ J Z . j 2 z : .
0x0ae91a…12f7b6 [0x303]: Pad {f00=0x0146, f01=0x0002, f02=»RH T * Y . : RHUB J j ^ o . n q ~ X } . J F " D @c ? l b hlb o T ? c ? m b hmb o T ? c ? gP c$ jg? ` . n ~
0x0ae91a…12f7b6 [0x304]: Pad {f00=0x01eb, f01=0x001f, f02=» . " . 2 B R . b J F " D 0$Pc & ` "Pc jk o `P X c ` Pc b ? #Pc ? c ? c ? 8 c ? r WSWAWN 0 % F $ V / . f = c v
0x0ae91a…12f7b6 [0x305]: Pad {f00=0x001f, f01=0x0005, f02=» d . { * J F " D @ `T bk o #k 7%k 3do mc? do mc c!? ko k< k= k> k9 W 0 ^(T : . X . . ( 8 H Z j
0x0ae91a…12f7b6 [0x306]: Pad {f00=0x0008, f01=0x0003, f02=» . , < J F " D cT c jb c bP ? jc c ? P `? n y hoy`n T y X , L . , < ' L ) . ^ / n
0x0ae91a…12f7b6 [0x307]: Pad {f00=0x037e, f01=0x001a, f02=» J F " D @T jc 5b c ' b$h4b o X3 b c h{c-o T- c jb {c b bq c 0 c . ^ n ~ X WSWAWN . AS $ Z 6 % H X . h J F
0x0ae91a…12f7b6 [0x308]: Pad {f00=0x0008, f01=0x00f6, f02=» . % & 6 J F " D b b jc /b0 c0 0 mc0 c c T hmc o 8 b b!* c'? b 0 } F X DSDSq " ) * 5 : 7 J J F " D m do } do } jo
0x0ae91a…12f7b6 [0x309]: Pad {f00=0x000c, f01=0x0008, f02=» a g i q , w < y . N { ^ J F " D @ `fo c(? ko!k !k c ? ? X c ? P `? T P `? jc c ? T k n , < L .
0x0ae91a…12f7b6 [0x30a]: Pad {f00=0x1c63, f01=0x0263, f02=» 0 cb c ? c ? ko b _ o! ! ! c"? ? b c 0 & @ . R ' b . t ( ? X@ . J F " D h{c-o T b h{b-R $cb c hRc o P ? c#? c$? c%? $b
0x0ae91a…12f7b6 [0x30b]: Pad {f00=0x203c, f01=0x023f, f02=» 0 c c 0 cb c ? c ? ko b _ o! ! ! c"? ? b c 0 & @ . R ' b . t ( ? X J H IDENT FDUPDT TRA 13.0 85-09-01 F1 O1111 REL=2.3,830701,870155940230 FDUPDT0 R
0x0ae91a…12f7b6 [0x30c]: Pad {f00=0x4630, f01=0xc054, f02=»:ERAS0 T:DISP0 T:GETA0 T:GETF0 T:SETC0 T:EDWR0 T:PRIN0 - 2 - R - ' .I X r 6 F
0x0ae91a…12f7b6 [0x30d]: Pad {f00=0x0001, f01=0x00d6, f02=» = J F " D @c A (@ @a@bW AaAb1 0 0 Ib ? c W+0 c 6a + _ 0 B F L V N f S v V ' .I X ] l p DSDS ( J F " D @ 0 _ A ? 0
0x0ae91a…12f7b6 [0x30e]: Pad {f00=0x00d0, f01=0x004a, f02=» F " D ` jo` Y ` jo` U jo jo + @i0 o0CPCR Aijb o$0 o0C a k } 0 . > N ` p .I X J F " D baP j}a k a a ` c
0x0ae91a…12f7b6 [0x30f]: Pad {f00=0x011a, f01=0x0048, f02=» % $ 9 0 < @ = P > ` ? p @ .I X J F " D ( ` fo ` Oo ` c& 2a _ Aa? C D Ib c W2 c W-0 c
0x0ae91a…12f7b6 [0x310]: Pad {f00=0x000c, f01=0x0008, f02=» c f m ~ " J F " D @ 2a _ Hb W 0 0 _*0 0 c0 cbT 0 _5 cb_ P ` c 4 b .I X J H $ 4 J
0x0ae91a…12f7b6 [0x311]: Pad {f00=0x010b, f01=0x0005, f02=» H " $ J F " D a D ` _ 0 ` j0C& ` BC? T'Hm$ a 2a _ 1" T b 0$ b T _ " " p .I X $
0x0ae91a…12f7b6 [0x312]: Pad {f00=0x00b8, f01=0x000c, f02=» < ! H " % $ M & * DSDS J F " D c 2a ? ` c 2a ? 0 o m jo m@jo 0C ` jo` . V | X g p 1D s 0 u
0x0ae91a…12f7b6 [0x313]: Pad {f00=0x000c, f01=0x0008, f02=» S < H < 0 @ P ` p X
0x0ae91a…12f7b6 [0x314]: Pad {f00=0x02d0, f01=0x0008, f02=» H 2 B H R b J F " D @l2a _ 0 jU X O jY O jV 0C 0 _D ` c 2a
0x0ae91a…12f7b6 [0x315]: Pad {f00=0xc404, f01=0x0009, f02=» & & b S & 1. NEW & & 3. OLD FORM $ 3 & DEFINITION 6 $ 3 P & ` & 3 n $ ~ X & a 3 & & a
0x0ae91a…12f7b6 [0x316]: Pad {f00=0x2604, f01=0x813a, f02=» & A & W & & & & FAST SELECTION SECTIONI $ A 6 & 1:E F & A X & W 1 j & z & X & & 2:
0x0ae91a…12f7b6 [0x317]: Pad {f00=0x0002, f01=0x2603, f02=» & & & 4: & A & W : & & & & 5: * & A : & W : L & & j & x & 6: X & A
0x0ae91a…12f7b6 [0x318]: Pad {f00=0x000a, f01=0x0006, f02=» & & 8: & A & W : & & & & 9: & A & W : . & > ( L X & W h & p v & X
0x0ae91a…12f7b6 [0x319]: Pad {f00=0x000a, f01=0x0004, f02=»& @ & U & & & FILE ! NAME: $ !I & ) @ & Y & . & 4 < " DEFINITION J $ "I d & t # NAME:L X@ $
0x0ae91a…12f7b6 [0x31a]: Pad {f00=0x116a, f01=0x5761, f02=» 0CD D a "a jWa 0CD D _ 4 p > @ X J H I
0x0ae91a…12f7b6 [0x31b]: Pad {f00=0xc052, f01=0x4541, f02=»DIN0 WSMERR0 DISPLY0 USMODL0 PRNTFS0 ATTPRT0 DETPRT0 ICLEAR0 B > PREAD PCLOSE0 PDLETE0 TESTB CHANFC0 T:DSC10 T:ATTF0 T:ERAS0 . * T:DISP0 T:GETA0 T:SETC0 T:GETF0 T:THOM0 - L - l Y
0x0ae91a…12f7b6 [0x31c]: Pad {f00=0x0001, f01=0x007e, f02=» " $ # $ % & ' 2 7 " < & J F " D ` 0 `@c A 1 0 0" c W-0$c 6a - _ 0 0" 0&_ 0 C ~
0x0ae91a…12f7b6 [0x31d]: Pad {f00=0x3500, f01=0x6362, f02=»_ C+ C 0 o m jo m@jo S `( ` jo` Y d 1D 0 J F " D ` jo` U jo + jo @i0 o0CPCR Aijb o$0 o0C a k } 0 baP j}a T d t "
0x0ae91a…12f7b6 [0x31e]: Pad {f00=0x0706, f01=0x011c, f02=» x J F " D "u' jc 0C`*c' AsW *u c 7a _ ` ju 0C`*u _ ` fo ` C H J O ( X 8 a H i Z l j m z
0x0ae91a…12f7b6 [0x31f]: Pad {f00=0x0004, f01=0x006c, f02=» | ? Q J F " D @Oo0 9 ` 0 I P ` 0 ` u c s ` g1 0* ` c& 1 0*2 * : p J ? Z j
0x0ae91a…12f7b6 [0x320]: Pad {f00=0x0206, f01=0x01b9, f02=» ? l | D J F " D a _@@vAg? T Hm a 2a _3 Iu _< ? 2a ? ` p , ? < L D l
0x0ae91a…12f7b6 [0x321]: Pad {f00=0x0014, f01=0x0006, f02=» b 1D r 0 9 : ; ? @ A ? B J F " D 0 o0CPCR Aijb o$0 o0C a k } 0 baP j}a k a a ` c 2a D " f
0x0ae91a…12f7b6 [0x322]: Pad {f00=0x0058, f01=0x000c, f02=» v & h x $ x } ~ J F " D @ 0" _ 0 o0C? 0 0 1 w(Hp w Ac0" ww c 0( cb0&0$cAl ( 8 ? H h X
0x0ae91a…12f7b6 [0x323]: Pad {f00=0x0206, f01=0x02bc, f02=» Z J F " D @l2a _ 0 jU O jY O jS 0C 0" _D ` c 2a _Wj j * * 1 : & J & X &
0x0ae91a…12f7b6 [0x324]: Pad {f00=0x0042, f01=0x0014, f02=» SECTION $ 4 t & & 4 $ ( & & & p 4 & $ 4 ( . : & J &
0x0ae91a…12f7b6 [0x325]: Pad {f00=0x000a, f01=0x0048, f02=» & : X & @ f & U x & & & FILE NAME $ I & : & ) @ & Y & & 6 SECTION " $ : NAME J
0x0ae91a…12f7b6 [0x326]: Pad {f00=0x302a, f01=0x4063, f02=»4 X@ j @ f & U x & & & FILE NAME $ I & : & ) @ & Y & & 6 SECTION " $ : NAME
0x0ae91a…12f7b6 [0x327]: Pad {f00=0x3934, f01=0x3032, f02=»30 FSINIT0 R FSINIT0 d $$$TRA0 x B > USINIT0 READIN0 WSMERR0 ICLEAR0 SETB0 WXDIV T:ATTF0 T:ERAS0 & " T:DISP0 T:GETA0 T:GETF0 T:SETC0
0x0ae91a…12f7b6 [0x328]: Pad {f00=0x0034, f01=0x000c, f02=» ' D * T + d , t - . 9 J F " D A 1 0 Hg W 0 Ig c W9 c W40 c 6a 4 _ 0 Hg A E G $ Q 4 S
0x0ae91a…12f7b6 [0x329]: Pad {f00=0x0206, f01=0x007a, f02=» 8 6 { M F | V J F " D @ W 0 _, A ? 0 0 c0 cbT 0 _< cb_ P ` c 2a _- f J F " D B CB D jE C jE D 0 0Cj0CD S D j0CD D j0CD D ` ` J F " D `j0CD ` D ` (^ 8 0 ` a $a
0x0ae91a…12f7b6 [0x32a]: Pad {f00=0x533a, f01=0x4d3a, f02=» * J F " D D ` j0CD ` D j0CD ^' D o I` J` K` D l `P > J F " D @b hlb Z P D W, b ` j0CD ` D b j0CD D j0CDP Z DP `( J F " D ` j0C` C ` D 0 D D DD FDjF C aD a j0C` a 4
0x0ae91a…12f7b6 [0x32b]: Pad {f00=0x2603, f01=0xe0c0, f02=» * & 8 & F & WSM REL T & j & x & & & & g S & 2. NEW FORM & & 4. OLD FORM SECTION $ 4 & *
0x0ae91a…12f7b6 [0x32c]: Pad {f00=0x000a, f01=0x0006, f02=» & U * & 8 & F & FILE T NAME f $ I z & : & ) @ & Y & & 6 SECTION $ & & NAME $
0x0ae91a…12f7b6 [0x32d]: Pad {f00=0x0005, f01=0x2609, f02=» TYPE:E & 4 XE F " X & h & v & 1 = REMOVABLEM $ & WITH SCROLLING9 & & & & 2 = REMOVABLE`
0x0ae91a…12f7b6 [0x32e]: Pad {f00=0x000a, f01=0x000c, f02=» $ & 0 & > & L & 4 = Z FIXEDC l $ & ON BOTTOM & & & & 5 = FIXEDA $ & ON TOP OF NEW PAGE
0x0ae91a…12f7b6 [0x32f]: Pad {f00=0x0008, f01=0x000e, f02=» & MAXIMUM SIZE, LINES: & > ZZ9U P " d & t & & COLUMNS:W & , ZZ9C " & & 3 & AUTOMATIC ENTERING: & H @
0x0ae91a…12f7b6 [0x330]: Pad {f00=0x2745, f01=0x0009, f02=» & & ^ & & 4 & B $ & DECORATION DEFAULT VALUES: P & * x & B = BLINKING & * & & & SCREEN BACKGROUND: & & @ & ^ E
0x0ae91a…12f7b6 [0x331]: Pad {f00=0x0190, f01=0x000a, f02=» & & STATIC FIELDS:C 0 $ T H & @ X & ^ T j & z & @ & ^ @ & & @ & ^ @ & & @ & ^ @ &
0x0ae91a…12f7b6 [0x332]: Pad {f00=0x4453, f01=0x3a43, f02=» $ Y & & @ , & ^ > & N & @ & ^ @ n & ~ & @ & ^ @ & & @ & ^ @ & & * & H = HIGH
0x0ae91a…12f7b6 [0x333]: Pad {f00=0x0059, f01=0x4088, f02=» r & & & @ $ & Z E 6 & F ( T 4 ` r@ & @ & ^ @ & & @ & ^ @ & & * & H = HIGH
0x0ae91a…12f7b6 [0x334]: Pad {f00=0x0000, f01=0x0000, f02=» Y J H IDENT FSDISC TRA 13.0 85-09-01 F1 O1111 REL=2.3,830504,870155940230 FSDISC0 R FSDISC0 d $$$TRA0 x D @ WSMERR0 ICLEAR0 PCLOSE0 PWRITE0 TESTB T:DSC10 T:WRIL0 T:DISP0
0x0ae91a…12f7b6 [0x335]: Pad {f00=0x0029, f01=0x000c, f02=» d _ Y . 3 7 DSDS ( J F " D b Hp b 0 o o k jo k 0 b0 0 b0 o 0 o m jo m@jo > a n w 1D z 0H | J F " D @ 0B ` ` jo` Y ` jo`
0x0ae91a…12f7b6 [0x336]: Pad {f00=0x009d, f01=0x00a6, f02=» d _ Y@ 0 B T d J F " D j}a k a a ` c 2a 0 _ A 0 o0B b Hp b 0 b0 t 4 a @ ` ` jo` Y
0x0ae91a…12f7b6 [0x337]: Pad {f00=0x0008, f01=0x0003, f02=» d _ Y J H IDENT FSMODL TRA 13.0 85-09-01 F1 O1111 REL=2.3,850605,870155940230 FSMODL0 ZERFLL0 R FSMODL0 ZERFLL0 l $$$TRA0 F B DISPLY0 CURSET0 DECORS0 READIN0 WSMERR0 PRFSMD0 ATTPRT0 DETPRT0 @ < STPBLK0 S
0x0ae91a…12f7b6 [0x338]: Pad {f00=0xc054, f01=0x3a45, f02=»DWR0 T:DSC00 n Y " < T HURB p " ( *
0x0ae91a…12f7b6 [0x339]: Pad {f00=0x675c, f01=0x1300, f02=»h f fb a n 0, na n Y p @e V H ^ & a 6 d F g V m ++STATIC L: C: h u ++DYNAMIC L: C: | J F " D @ d e f @aAbAhIg @b
0x0ae91a…12f7b6 [0x33a]: Pad {f00=0x0008, f01=0x0003, f02=» , n ~ Y J F " D i Hh5 jd ` mo` je `"mo` b Ip b ba a%joa l a 0, oa@h f l | . .
0x0ae91a…12f7b6 [0x33b]: Pad {f00=0x015c, f01=0x000c, f02=» l | Y W , < L l | J F " D 0 deT A`W @` fb b Ia 0. k baW 0. k baRI a 2a
0x0ae91a…12f7b6 [0x33c]: Pad {f00=0x013c, f01=0x0018, f02=» J F " D ` 0 I P ` 00 ` A Z u c s ` g Ah_ 02 a0 a l B * H : Y J a c l v | J F " D @o0 a u0 a { dekHa Av a @dI`h o deR_Ic Ia q p,8 b p p
0x0ae91a…12f7b6 [0x33d]: Pad {f00=0x2860, f01=0x6631, f02=» e - p jb zp p !b Ia p W Ha p W jb zp p bi' Z J * ( 5 8 J F " D p,8 jl f jl i Ia jl a dzp l ; p AdI` ? ae ` p,8 j` zp `d H A e J F " D @? p jb zpHdI p
0x0ae91a…12f7b6 [0x33e]: Pad {f00=0x136a, f01=0x6210, f02=» zp p c a S a 0 d & t J F " D aTI p Z p,8 j` zp(`d p j` zp ` (`eo p ja zp p $a ja $b j # B , R 3 $ d < t J F " D b (ab c p a ja zp p fzp b, zb ba!b b 0 b b b l
0x0ae91a…12f7b6 [0x33f]: Pad {f00=0x0144, f01=0x000c, f02=» T J F " D daT/ p jl zpjl a p j` l !` jl Z dzp l ; W q f e @b"eh ? d " 2 D & T d J F " D e fe e W4 f e Ab e ? eh fh d Ab d f ? dg fg0 f f fe@b? t
0x0ae91a…12f7b6 [0x340]: Pad {f00=0x3f00, f01=0x0064, f02=» f feAb? ? J` `e ` k!d d` k p,8 (p p ja 6 r Z v J F " D @zp af p ja zp@k a afQ R p e p jb zp p !b"j b#AkW p b h z J F " D pbju zp pb,u !u$I l%
0x0ae91a…12f7b6 [0x341]: Pad {f00=0x04c0, f01=0x6a6c, f02=» e ja l $a jl dzp l ; Ik p c&jc d c ud cf sp d? J > Z " ! 2 7 . J F " D ` `e ` f d` 0 dab a j da p,8 ja zp a (af l' c 0 deTS p > D J F " D @ p,8 jb zp b (ab p
0x0ae91a…12f7b6 [0x342]: Pad {f00=0x7a70, f01=0x2162, f02=»( b 0 b b b j{b l Av p fzp b, j | Z " 2 h B R b h r J F " D zb c c :)a) q* c+jc d a, ac ud cf
0x0ae91a…12f7b6 [0x343]: Pad {f00=0x00bb, f01=0x000b, f02=» 0 3 @ P ` # p # Z " 0 $ 9 0 @ B J F " D ? b 0. k ba: a 2a ? `e ` bd b 0 b b b` o- a 2a R j "
0x0ae91a…12f7b6 [0x344]: Pad {f00=0x0046, f01=0x0022, f02=» D d p p jb zp bf p b jb zp"bcVjb zp b L"baH$ba e p b l 2 Z $ $ J F " D /jb zp!b0 b 0 b b b j{b l Avjl zp p fzp b, zb Ad_cHd 0 dT 4
0x0ae91a…12f7b6 [0x345]: Pad {f00=0x0757, f01=0x0ba3, f02=» & a 6 J F " D @ d jo c jo dzp o ; p $ue>!a5: ceW$ p jb zp p $a ja $b Z H J F " D jb ab jl c dzp l ; p a6W a d H` a`d bao H` ` { d w * x
0x0ae91a…12f7b6 [0x346]: Pad {f00=0x0ba3, f01=0x000e, f02=» 9 . < @ J F " D l ; W0 p ja zp p a:#jl f jl a $a jl dzp l ; _C Z a; c<jc R D Q T h 0 V @ X P ] . ` ` p d f
0x0ae91a…12f7b6 [0x347]: Pad {f00=0x0008, f01=0x0003, f02=» v w 0 x @ z P J F " D @ ac ud cf sp g? ? b 0. k ba: a Z 2a ? eh@b ` . > N ^ n
0x0ae91a…12f7b6 [0x348]: Pad {f00=0x0010, f01=0x0110, f02=» . 0 @ P ` p Z 0 @ R b J F " D 1 o r jr o 04 o
0x0ae91a…12f7b6 [0x349]: Pad {f00=0x7002, f01=0x7012, f02=» B [ 0 J F " D @%b@ af jl f jl J dzp l ; p W p jzp J p Q p W9 p jb zp p @ Z J F " D (bd) p jb zp p ,b jb (bJ p fzp b, zb b jb zp(bd& p jb l
0x0ae91a…12f7b6 [0x34a]: Pad {f00=0x023f, f01=0x0028, f02=»qK J F " D Hc ja zp p af p jb zp p !bA p jzp K p Q p WY p jb zp p , R z Z u ~ $ J F " D @(bdI p jb zp p +bB9jb (bK/ p a ja zp p fzp b, zb a 0 a j J F " D
0x0ae91a…12f7b6 [0x34b]: Pad {f00=0x7a62, f01=0x1420, f02=»a 0 a a a j{a l Av p jf zpje f p ud cf sp `e ` H Z l 0 | Z h & 4 ( , , < 1 L 4 ^ :
0x0ae91a…12f7b6 [0x34c]: Pad {f00=0x0004, f01=0x1008, f02=» K " M R " S 2 T B X T ^ d e , t l h Z z J F " D @00 W cI ` J@e Ae i a 0, laAh? f e @b"eh ? eh f b
0x0ae91a…12f7b6 [0x34d]: Pad {f00=0x5f19, f01=0x3400, f02=» `f ad bh be 6 " 0 2 B 6 T J F " D b 06 `c 00 b a "ag `L_ 06 4 c Z h c n T b bc b j cbo d " 4 D J F " D 4 oM j o 4 b
0x0ae91a…12f7b6 [0x34e]: Pad {f00=0x6a62, f01=0x1111, f02=»zp"bd:(bd0 p jb zp!bP J F " D Ia W Ha Ac p jq zp p (` p (iq W p qQAc4 bpjr zb r k"r g ( v Z J F " D r $d "r Ip #rR W #rS jzb r jr *r 8 b r jr zb b fzb r !r
0x0ae91a…12f7b6 [0x34f]: Pad {f00=0x0024, f01=0x0020, f02=» & PRESS ENTER-KEY TO CONFIRM ( ? & & 6 F B &@ <DECORATION:<H>=HIGH INT. <U>=UNDERLINE <R>=REVERSE <B>=BLINK D Z@ ( & TT9j ( , 8 & 1 H ( X
0x0ae91a…12f7b6 [0x350]: Pad {f00=0x0000, f01=0x0d28, f02=» @ ESS ENTER-KEY TO CONFIRM ( ? & & 6 F B &@ <DECORATION:<H>=HIGH INT. <U>=UNDERLINE <R>=REVERSE <B>=BLINK D Z J H IDENT FSMSPP TRA 13.0 85-10-09 F1 O1111 REL=2.3,851009,870155940230 6 2 FSMSPP0
0x0ae91a…12f7b6 [0x351]: Pad {f00=0x003c, f01=0x021d, f02=» ICLEAR0 SETB0 TESTB EMPTYT0 WXDIV T:DSC00 T:DSC10 T:WRIL0 T:DSC20 ( : P 1 b r < E Z J F " D m l b f q p s r AbA 0 T) a a !jo m jo a a ab
0x0ae91a…12f7b6 [0x352]: Pad {f00=0x000e, f01=0x000a, f02=» E / E / " J F " D !a )jo m jo f a ab o9 j0CDao f Da p _` p a ab o9 j0CD 2 J F " D zp Da p ja Z zp p p,V (ad jb zp b W bh e c a hla de T` a >
0x0ae91a…12f7b6 [0x353]: Pad {f00=0x0061, f01=0x112b, f02=»c i ab o9 j0CD i Da c +c _ 0 D E } E J F " D @ c ab oQ j0CD c Da ebnW; `e c e eb a hla de jo c d` cb $ M r E ja Z 1 ^ E $ J F " D oQ j0CDco Dc a
0x0ae91a…12f7b6 [0x354]: Pad {f00=0x0244, f01=0x1130, f02=» D D E J F " D DD a @b ab oQ ji C ji D i j0 b i i Gi 4 c h qchl ,sc J F " D @ sc4 (D* ` W? `D ` $`*D `*I ` :W)I ` 1 ` ` j0CD f > Z ++ ( 2
0x0ae91a…12f7b6 [0x355]: Pad {f00=0x0004, f01=0x00c2, f02=» J F " D t zs sb0 cb a`0 a0 uT cb s,Ppjc zs c fja zs"au s + @ / P 6 ` J F " D ja zs a` a j~ a u` a j~a Z k a j` zs ` Ae t 0 ~a@e t s jt p U .
0x0ae91a…12f7b6 [0x356]: Pad {f00=0x4065, f01=0x8200, f02=»t u "u ? ` ah c jc u b s,P(jb zs b bu _ s jt zs * ++ : N n Z J F " D s _ cb 0 a0 4
0x0ae91a…12f7b6 [0x357]: Pad {f00=0x7473, f01=0x7778, f02=»y @d@e n p p, j` zp p ` "`d p, j` J F " D @ zp ` W `r ah a`h d`an P `h w` wrhnt dr T jk nt okhosw drwT 9Z-+*#$., @ J F " D sw x AdW ` n a hna d` T Aejo w drh|x.o wP Z@ xw xe x.Q_j|ewo Z .Z J F " D
0x0ae91a…12f7b6 [0x358]: Pad {f00=0x0134, f01=0x000e, f02=» `tswxy @d@e n p p, j` zp p ` "`d p, j` J F " D @ zp ` W `r ah a`h d`an P `h w` wrhnt dr T jk nt okhosw drwT 9Z-+*#$., @ J F " D sw x AdW ` n a hna d` T Aejo w drh|x.o wP Z J H IDENT FSNAME TRA 13.0 85-09-01 F1 O111
0x0ae91a…12f7b6 [0x359]: Pad {f00=0x5430, f01=0xc053, f02=»TPBLK0 STABLK0 ICLEAR0 B > EMPTYT0 CHANFC0 WXDIV WXMUL T:ATTF0 T:THOM0 T:ERAS0 T:DSC20 , ( T:DSC10 T:DISP0 T:KI0 T:WRIL0 T:GETA0 J ` - Z x
0x0ae91a…12f7b6 [0x35a]: Pad {f00=0x0004, f01=0x1008, f02=» 0 5 A 2J J F " D 9 1 0 p @b@i(A ;Ip 0 jC G jD G iG u c s c` Hp a C 0 M @ W P m " ` r p v Z w z
0x0ae91a…12f7b6 [0x35b]: Pad {f00=0x009f, f01=0x0010, f02=» $ J F " D wa 0" w Ip w( r Ig A 0 {W rN A Hc ? 0 0$ ww0 0 ` $ p Z " &
0x0ae91a…12f7b6 [0x35c]: Pad {f00=0x0022, f01=0x0044, f02=» q eq0 e e e jl {e0$ 0 0" f b 0& o baRB a 2a 0 - 0 5 ++ @ > A R J F " D u c s ` g0 _g p @b Ic _j p [ p Ab Ic _z jk
0x0ae91a…12f7b6 [0x35d]: Pad {f00=0x1408, f01=0x0177, f02=» J F " D @ k _0 b Hp b ba 0 l a do 0( oafo q $jl {e n c hlc n * ( 8 H % X j z [ T
0x0ae91a…12f7b6 [0x35e]: Pad {f00=0x000c, f01=0x0008, f02=» J F " D 8 j{e l (q e 0 e ejzp e r q AvIi p @b Ic ? @b p Ic` q $ & % 6 & % F . X / h 0 T x 2 [
0x0ae91a…12f7b6 [0x35f]: Pad {f00=0x00b9, f01=0x0006, f02=» g h i % q D r D s T t z J F " D @ g_) p p Ab Ic ? Nr A W a & ` c a 2a u c s ` j z [
0x0ae91a…12f7b6 [0x360]: Pad {f00=0x0007, f01=0x0042, f02=» % J F " D j0 ` b m N h{N-m N 0 N N0 N NjH C jH D W d W d ` c " B R b 4 r J F " D _ 0"
0x0ae91a…12f7b6 [0x361]: Pad {f00=0x0002, f01=0x2603, f02=» ^ & p & ^ & p & ^ & p & ^ & p & ^ & p & ^ & p & ^ * & p 8 & ^ F & p T & ^ b & p p & ^ ~ &
0x0ae91a…12f7b6 [0x362]: Pad {f00=0x2604, f01=0x8120, f02=» z & & FIELD-ID: & @ & l ( & & & k ( H C ! A @`h+ p W3AcW/ p 8 p jq zp p q p j` zp f`j` *`h p _/4 ( } t@
0x0ae91a…12f7b6 [0x363]: Pad {f00=0x0000, f01=0xc850, f02=»RFSMD0 l $$$TRA0 D @ USINIT0 USFPAR0 SEATAB0 WSMERR0 VLPAGE0 EMPTYT0 ICLEAR0 TESTB $ WXMUL T:EDWR0 T:DSC10 T:WRIL0 " 2 B " R d t
0x0ae91a…12f7b6 [0x364]: Pad {f00=0x0001, f01=0x1b01, f02=» j - | 8 = J F " D 1 P c 7a ? b Hp b 0 o o k jo k 0 b0 B G L a , c < g L k m l
0x0ae91a…12f7b6 [0x365]: Pad {f00=0x000c, f01=0x0008, f02=» n ~ J F " D @b d "dg d0 T0 0 0 O0 0 Z 0 Z 0 Z 0 Kc0 r0 q q q jR
0x0ae91a…12f7b6 [0x366]: Pad {f00=0x7b71, f01=0x4075, f02=» P AuW } k a 0 yaT j}a k a a ei (a Id O 0 OT & * ' : ( J 2 Z ?
0x0ae91a…12f7b6 [0x367]: Pad {f00=0x000c, f01=0x0004, f02=» X c h d x e J F " D @ 0 0 T ei (a A < _ p & 0 6 H X
0x0ae91a…12f7b6 [0x368]: Pad {f00=0x3400, f01=0x3114, f02=» T h z ++NOW PRINTING ! J F " D b c'Hp b c( c 0 o o k! "jo k 0 b0
0x0ae91a…12f7b6 [0x369]: Pad {f00=0x6d10, f01=0x116a, f02=»O a ` h) jOh m 1 T8 ` `g< . E - | P R W c e k m & $ & , & : $ H &
0x0ae91a…12f7b6 [0x36a]: Pad {f00=0x2205, f01=0x0027, f02=»j J & ! Z & O h & ! v ( Z9 " (j & f & & H & ( & & - & - & - & & 4 $ B &
0x0ae91a…12f7b6 [0x36b]: Pad {f00=0x8132, f01=0x0008, f02=» B & # P & 3 ^ & - l & 4 z & 7 & 5 & A & 6 & K & 7 & U & 8 ( ) 1234567890 $ ) . * 1234567890 >
0x0ae91a…12f7b6 [0x36c]: Pad {f00=0x0009, f01=0x002e, f02=» $ - H . 1234567890 X $ . r / 1234567890 $ / 0 1234567890 $ 0 ( $ & & & & , ( $ &" POSITION FIELD
0x0ae91a…12f7b6 [0x36d]: Pad {f00=0x000a, f01=0x0034, f02=» & B 1 ROW/COLN P $ 1D h & " & ID MED APPL ENT FILL EOI x & ENT PROTECTT & & S/D/B ADJ 2 ROW/COLN $ 2/ & VAL & & HUIB , & >
0x0ae91a…12f7b6 [0x36e]: Pad {f00=0x000b, f01=0x0005, f02=» 4 TT9/ 6 " 4 J & Z & R h & v 5 XZ " 5 & & ^$ & & ^ & & ^ & % & ^ & * & ^" , & 0
0x0ae91a…12f7b6 [0x36f]: Pad {f00=0x0003, f01=0x2605, f02=» ^! . & I > 6 ZZZE/O L " 6 b 7 TTTE r " 7 & S & ^% & T & } & T ( & & 8 DEFAULT $ 8 .
0x0ae91a…12f7b6 [0x370]: Pad {f00=0x2604, f01=0xc40c, f02=» & 9 GUIDING MESSAGE : 4 $ 9 V & Z f & v ( & & : EXTENDED PROMPT : $ : & Z & ( " & (
0x0ae91a…12f7b6 [0x371]: Pad {f00=0xbbb5, f01=0x000e, f02=» & " , & : & " J ( X d $ t & & & & & ! & NUMBER OF OCCUPIED SECTORS:U < ZZ9E " < & < & & " & MAXI
0x0ae91a…12f7b6 [0x372]: Pad {f00=0x8320, f01=0x000f, f02=» & AUTOMATIC ENTERING:S & & ^ H & X " & DECIMAL POINT OR COMMA:U f & ^'U & & & " & DECORATION DEFAULTS. SCREEN: & ^ U & & ^ U & . & STATIC
0x0ae91a…12f7b6 [0x373]: Pad {f00=0x2604, f01=0xc445, f02=» & DYNAMIC FIELDS:U " & ^ T @ & V P & ^ T ^ & X n & ^ T | & Z & ^ T & Z & & Z ( ] & + ? FORM $ ?+
0x0ae91a…12f7b6 [0x374]: Pad {f00=0x813a, f01=0x0011, f02=» & U & ( & FILE:T 6 & Y J & X & VERSION NO:D f B ZZ9T " B & & TYPE:O C XZ " C & & RELEASE DATE: &
0x0ae91a…12f7b6 [0x375]: Pad {f00=0x000a, f01=0x0006, f02=» & E DEFAULT $ E 4 F GUIDING MESSAGET D $ F d & : t & Z & : ( & 1 ( < 8 6 @`c' o%jO ho j`1 T O& ` `c j`1 T _ 1 T 4
0x0ae91a…12f7b6 [0x376]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x377]: Pad {f00=0x8000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x378]: Pad {f00=0x0000, f01=0x0000, f02=» [
0x0ae91a…12f7b6 [0x379]: Pad {f00=0x0000, f01=0x0000, f02=» [
0x0ae91a…12f7b6 [0x37a]: Pad {f00=0x0000, f01=0x0000, f02=» [
0x0ae91a…12f7b6 [0x37b]: Pad {f00=0x0000, f01=0x0000, f02=» [
0x0ae91a…12f7b6 [0x37c]: Pad {f00=0x0000, f01=0x0000, f02=» [
0x0ae91a…12f7b6 [0x37d]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x37e]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x37f]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x380]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x381]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x382]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x383]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x384]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x385]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x386]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x387]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x388]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x389]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38a]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38b]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38c]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38d]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38e]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x38f]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x390]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x391]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x392]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x393]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x394]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x395]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x396]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x397]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x398]: Pad {f00=0x0000, f01=0x0000, f02=» J H IDENT UNPACK TRA 13.0 85-09-01 F1 O1111 REL=2.3,850329,87015594
0x0ae91a…12f7b6 [0x399]: Pad {f00=0x5442, f01=0xc04d, f02=»SKOUT0 WXDIV WXMUL SETB0 WXSLL WXSLR WXC1R = J F " D r Ir r+ r s jS 0rs s jP 0rs s ` j` 0rs ` s j` 0rs0 ` G j J F " D @P ^ 80 ` W ^ 9 $` ` $` ` ` s j` 0rsHs ` ` s j` 0rs z
0x0ae91a…12f7b6 [0x39a]: Pad {f00=0x0001, f01=0x00be, f02=» M:S: J F " D ` 0rs s j` 0rs s ` j` 0rs s 0 Z ` 0 o a b jb 0rs # @ & P ) ` J F " D (b s ` a jZ oajZ `0 rs P `4 0 z0 0 { ` a b c g* g h p J F " D @ u* u
0x0ae91a…12f7b6 [0x39b]: Pad {f00=0x6200, f01=0x0002, f02=» | v B*X ` & 6 < F S V f v J F " D Mc } o m f d e @e q h}q 0`a < 2q He i-8 j{i
0x0ae91a…12f7b6 [0x39c]: Pad {f00=0x000a, f01=0x0003, f02=» J F " D @b c jt 0rs@a0 t P Aa s jq 0rs s jt 0rs@bIaO y 0 ty tw yv$tu " J F " D tu t y _ xt xq*xu x* xq0 xAbj dex0yt ex qx y t j deq0ytW 0 2 J F " D t tjk mt ~kj deq~ s p,P jzp f p jzp 0`a p jzp 0rs p
0x0ae91a…12f7b6 [0x39d]: Pad {f00=0x1111, f01=0x3060, f02=»a q a ? He d f jf *eh he e a ? He W _ h u J F " D @ *eh he gd Ni W He ` a ? jq 0`a0 q T."q EHe p,PWjzp f . | ]
0x0ae91a…12f7b6 [0x39e]: Pad {f00=0x03c0, f01=0x6100, f02=»te r a e f ? 4 cM aM q b jb {q(b ? qL0 b b ca ab a J F " D `* ` *a` ` `c0 ` `0 ` ` b` a q _. a b c jb 0qaIr b+ a jc S f j v { ] J F " D @ 0qa c jq 0bc c 0
0x0ae91a…12f7b6 [0x39f]: Pad {f00=0x0008, f01=0x0003, f02=» J F " D ` 0 q` c c Id j` 0bc0 ` P ^"8W ^"9Id v 0 `v v`0 v v c j` ( 8 H J F " D 0bc ^ 90 ` P ^ >W 0 ` P ^ <W 0 ` P ^ =0 ` P ^ ] !;W ^!:0 ` P X
0x0ae91a…12f7b6 [0x3a0]: Pad {f00=0x0008, f01=0x0003, f02=» E U e J F " D @P Ae0 ` P ^ 8W ^ 90 ` P ^#8W ^#90 ` P ^$8W ^$9 c jy 0bc ^ z " z 2 B T J F " D &9 ^(9(q ? c x (xq ? a* a *ca b ] c ja 0bc ` 0 a` xa a
0x0ae91a…12f7b6 [0x3a1]: Pad {f00=0x0092, f01=0x000c, f02=» J F " D ` 0bc0 ` ` c s 2` ? ^&8 c j b Ir Hq Hv (t b 0 J F " D c < _v R Ha b c at _ ca_ ca_ ^(8Ha jTst0bc st b c at @ J F " ] D @jTsa0bc ca_
0x0ae91a…12f7b6 [0x3a2]: Pad {f00=0x4861, f01=0x1630, f02=» OjOst0bc st b c atjOs l J F " D a0bcId O v P He P ca? Ha jost0bc st b c atjosa0bcj` o M:S: ( J F " D `j` o ` ca? l ` Ha "t b c @aj` 0bc(` a c ` Ha < y ]A J F
0x0ae91a…12f7b6 [0x3a3]: Pad {f00=0x2a11, f01=0x0474, f02=»* ta t 0 tAaW @a4 a b 0 `aP j^b oa b " x $ b a "a _ 4 j dtr0`s@e4 @ josa0bcj` o M:S: ( J F " D `j` o ` ca? l ` Ha "t b c @aj` 0bc(` a c ` Ha < y ] J H
0x0ae91a…12f7b6 [0x3a4]: Pad {f00=0x0219, f01=0xc049, f02=»CLEAR0 MSKOUT0 TESTB GETIND0 CLEARB0 WXSLR WXDIV % ; J F " D tw @ @ @ @ @ @ @ jt P D R V ` f h x l =A ]
0x0ae91a…12f7b6 [0x3a5]: Pad {f00=0x000c, f01=0x0008, f02=» ( 6 8 6 H [ X h x
0x0ae91a…12f7b6 [0x3a6]: Pad {f00=0x00cc, f01=0x0002, f02=» x t J F " D k @ j j` 0 2w 2 & 6 F X @ h = x
0x0ae91a…12f7b6 [0x3a7]: Pad {f00=0xb414, f01=0x8000, f02=» k b k ? k !k P !INP m " & + 3 m " 5 2 7 B ; R ? b J F " D l W l b l
0x0ae91a…12f7b6 [0x3a8]: Pad {f00=0x0003, f01=0x0606, f02=» ` r o UF J F " D @2w 23 ` k b k _ 23 j b j ljf (F ,F ) ( J F " D l b l ` = k b k ` k b k _ k b k W
0x0ae91a…12f7b6 [0x3a9]: Pad {f00=0x0606, f01=0x01fa, f02=» j J F " D 23"` W W 23 k b k W 23"` z - 9 G < ,b ( J F " D W W 23 w j $0 P j w
0x0ae91a…12f7b6 [0x3aa]: Pad {f00=0x005c, f01=0x004a, f02=» F " D @ k 0 w w_( w 0 P j w k b k WA 23 `"` l ; J F " D W W! k b k d k W t W0 : J J F " D s
0x0ae91a…12f7b6 [0x3ab]: Pad {f00=0x0327, f01=0x0001, f02=» + @b n 0 2 5 7 J F " D A ? 4 A w j k !k #k #k W ? ? 0 M b f 0 " j 9b 4 p ? F t X |
0x0ae91a…12f7b6 [0x3ac]: Pad {f00=0x0022, f01=0x0044, f02=» k H k"d k ` @ @ _ I Z 0 0 | : 4 | J F " D ? @ ? !k# $ )k$
0x0ae91a…12f7b6 [0x3ad]: Pad {f00=0xb104, f01=0x0707, f02=» " ( * N x V ` ? l "6 p ! t +6 x - | (6 J F " D @ w` w w @ ? ` @ ? bk #k%1 - )!k&%!k'!!k( !k) !k* bk 6 R
0x0ae91a…12f7b6 [0x3ae]: Pad {f00=0xafb3, f01=0x116b, f02=» k.d k bk 6 h z @ J F " D k/ _ d k _@ c 6 !FID !INP . ; B J F " D .
0x0ae91a…12f7b6 [0x3af]: Pad {f00=0x37b1, f01=0x20bd, f02=»k _ l4bl 6 b l 4 j 4 0 0 4 J F " D m fm % 5 % 6 b m W b m W b m 4 I O Kj J F " D h w P I w w bk w k7 W @ w _. I b
0x0ae91a…12f7b6 [0x3b0]: Pad {f00=0x000c, f01=0x0038, f02=» M J Q U n Y ] c : k , s ) J F " D @ !k9'!k:,!k;(!k< !k= #k> #k? W k@ W kA_ kB 4 bk @ ( "! :
0x0ae91a…12f7b6 [0x3b1]: Pad {f00=0x1407, f01=0x06b1, f02=» !! : J F " D %kC W !kD !kE !kFC!kG?!kHwbk !kIS!kJO!kKK!kLG / L @ J F " D +! M' nN w hnw k P$W& P" P" bk P" kOOW&!kP !kQ (`
0x0ae91a…12f7b6 [0x3b2]: Pad {f00=0x0012, f01=0x0024, f02=» @ kS P# h P# k P W P# P#4 6 ` d@ v
0x0ae91a…12f7b6 [0x3b3]: Pad {f00=0x454c, f01=0x3d32, f02=».3,850531,870155940230 VALPRC0 VLPAGE0 R VALPRC0 VLPAGE0 U l $$$TRA0 B > ZERFLL0 READIN0 WSMERR0 ICLEAR0 EMPTYT0 GETIND0 WXMUL WXDIV & " T:GETF0 T:DISP0 T:SETC0 T:ERAS0
0x0ae91a…12f7b6 [0x3b4]: Pad {f00=0x0003, f01=0x0206, f02=» 9 * J F " D ` j` ` j ` ` Z!0 0 + ? c : E J R W _ ` a b c g k h *
0x0ae91a…12f7b6 [0x3b5]: Pad {f00=0xbfb2, f01=0x50bf, f02=»(a I ? z 8 H J F " D ` (` j ` , j` ` W> ` ` i( ? ` 0 }j ` d} X J F " D j ` ` ` ` !j } ` 0 ` c W- ` `b
0x0ae91a…12f7b6 [0x3b6]: Pad {f00=0x0100, f01=0x6348, f02=» f cAy ` `c c cc c 0 c (a I ? 0 c _ 0 l ` R 0 h V 9 z l0 o { J F " D @"P `P jk %k #k jl k ` l) ? @ ` ` - H
0x0ae91a…12f7b6 [0x3b7]: Pad {f00=0x000c, f01=0x0008, f02=» , J F " D P 0 ojo ` 0 ` I I `b c I < "c - < : " $ . U 6 8 J F " D P (P a ? j o ` 0 ` Wa
0x0ae91a…12f7b6 [0x3b8]: Pad {f00=0xb1bf, f01=0xb210, f02=»0 bb b b"0 bb P ( | : J > Z J F " D P P P QqAy I a =? $ b j ' > J F " D ` 0 ` I
0x0ae91a…12f7b6 [0x3b9]: Pad {f00=0x0206, f01=0x0317, f02=» * J F " D d d ` c d 2a 4 @ , j j : J F " D @ P R _,A 4 ` j` ` / jb b ` P `j ` J F " D ` < P ! 4 @ _ A 4
0x0ae91a…12f7b6 [0x3ba]: Pad {f00=0xb813, f01=0x02b4, f02=» Wp ` j` b ` ` PUR+j b l b j b b ` M @ J F " D @ `f b` b b`W2j b l b j b` b` ` d b `S W b j P b W 4 b @ J F " D ` < P ! 4 @ _
0x0ae91a…12f7b6 [0x3bb]: Pad {f00=0x004a, f01=0x0048, f02=» IDENT SYNVAL TRA 13.0 85-09-01 F1 O1111 REL=2.3,850606,870155940230 SYNVAL0 BSVSEA0 R SYNVAL0 BSVSEA0 l $$$TRA0 2 . ZERFLL0 ICLEAR0 EMPTYT0 GETIND0 WXMUL WXDIV 00 90 .
0x0ae91a…12f7b6 [0x3bc]: Pad {f00=0x0000, f01=0x005d, f02=» W Y 2 k ( q : ~ L J F " D @ A W ` c ? ` 8 c`8 T# b H b $ b # W9 ` W `c ` c ?
0x0ae91a…12f7b6 [0x3bd]: Pad {f00=0x00cc, f01=0x0000, f02=» ] * J F " D P< T < I W` W[0 2 b h2 oc T c ? `c c ? ( c _ : ^ ^ n n
0x0ae91a…12f7b6 [0x3be]: Pad {f00=0x0003, f01=0x0206, f02=» ^ ( ? ( 8 P H X P h x ! 2 # ) ` +
0x0ae91a…12f7b6 [0x3bf]: Pad {f00=0x000c, f01=0x0008, f02=» H ^ J 2 L N ( S 8 U H W X Y h [ x ] _ 2 a h 2 k m o 2
0x0ae91a…12f7b6 [0x3c0]: Pad {f00=0x8000, f01=0x3c00, f02=» Z < ? < ^ : P X 2 & 6 F 2 V f v 2
0x0ae91a…12f7b6 [0x3c1]: Pad {f00=0x0003, f01=0x0606, f02=» v < ^ 2 ( t 8 2 H X h 2 x t 2
0x0ae91a…12f7b6 [0x3c2]: Pad {f00=0x0006, f01=0x0166, f02=» x ^ $ - ( / 2 8 1 H 6 t X 8 2 h ; x @ J F " D : 0 2 b q vP vP ? v c ? v c ? < : < c`8
0x0ae91a…12f7b6 [0x3c3]: Pad {f00=0x0206, f01=0x0265, f02=» h j t x m ^ UF y J F " D @ < k b hkb oc < c c`8 < _+ < : b h b oc < c c` h 2 x 2 (
0x0ae91a…12f7b6 [0x3c4]: Pad {f00=0x015a, f01=0x000c, f02=» j ,< z J F " D ^ 8 < c`8 < k b hkb oc < c < P < < k b hkb )< J 2 t l | 2 t
0x0ae91a…12f7b6 [0x3c5]: Pad {f00=0x0003, f01=0x0606, f02=» ` ^ . 2 n 0 ~ ^ 5 t 7 ` @ 2 J F " D T k b hkb oc T c c`P T T H W c`P < : TvH Wh . G t | I K Q 2 b l
0x0ae91a…12f7b6 [0x3c6]: Pad {f00=0x000c, f01=0x0008, f02=» 2 l | ^ t 2 ;< , J F " D c c`PD T@_3 THW c`PY < : WN c`PI < k b hkb oc T > 2 J F " D c c`P. <
0x0ae91a…12f7b6 [0x3c7]: Pad {f00=0x1111, f01=0x3362, f02=»! b h3 k P c W 4 k b hkb o > ^ i !FID!INP!h J F " D @c T c c`P _ W c`X 4 @ @ v n b hnb oc T b b W d t WSWAWN 01 99
0x0ae91a…12f7b6 [0x3c8]: Pad {f00=0x2a2f, f01=0x2829, f02=»:&=<>,; B J F " D ? $b W A m } c b h}b o P ^ _ cP b b,P j b # 2 J F " D zb b j " h j zb) b _+0 q h{q } q q h{ o B J F " D @c ' v b j zb b j zb b b,P
0x0ae91a…12f7b6 [0x3c9]: Pad {f00=0x0241, f01=0xb157, f02=» W cv 4 y yP Q k b hkb oc T c ` c qchoq k T > ^ ` 2 (' , 2 . 0 > 4 2 N J F " D cq c W TYI cvW T k b hkb oc T c T T T b#h4b oc ^ G 2
0x0ae91a…12f7b6 [0x3ca]: Pad {f00=0x3462, f01=0x136f, f02=»c TU c TN k b h 2 ^ n 2 ~ ^ ) 2 2 J F " D kb oc T? c T8 T4 T0 k! b hkb oc T! c T" b"h4b oc T c T 0 ~ 2 J F " D
0x0ae91a…12f7b6 [0x3cb]: Pad {f00=0x000f, f01=0x0132, f02=» 7 B = R J F " D %k" #k# c c`P _ )k$ A X " I ^ W T H cvW 0 4 b b% d Y 2 " ^ ( 2 o 2 D u T z f ! x J F " D @bh4b oc Ts y j y 5b c T k
0x0ae91a…12f7b6 [0x3cc]: Pad {f00=0x291f, f01=0x0010, f02=» , (! > J F " D T W T T % y* y k+ b hkb oc Ty_> k, b hkb oc Th c ^ W0 k- P 2 2 . )T > 2 P ` J F " D b hkb oc T! c TM TI TE k. b hkb oc T6 c T
0x0ae91a…12f7b6 [0x3cd]: Pad {f00=0x0122, f01=0x004a, f02=» F " D T ? b0h4b oc T c T ? c W y W y @ 4 0 l jk oc%k 4 D 9 ^A [ m J F " D @1 #k2 jl k c c` "0 lT! l b $b #b3 W ( b W W & " t k "
0x0ae91a…12f7b6 [0x3ce]: Pad {f00=0x0021, f01=0x0042, f02=» b hkb ov T c W 4 0 yb y 0 y y ybQ _ y 0 b b P b4 ( t@ 9 ^
0x0ae91a…12f7b6 [0x3cf]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d0]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d1]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d2]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d3]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d4]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d5]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d6]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d7]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d8]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3d9]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3da]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3db]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3dc]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3dd]: Pad {f00=0x0000, f01=0x0000, f02=» ^
0x0ae91a…12f7b6 [0x3de]: Pad {f00=0x0000, f01=0x0000, f02=» _ J H IDENT WSMPRT TRA 13.0 85-09-01 F1 O1111 REL=2.3,83050
0x0ae91a…12f7b6 [0x3df]: Pad {f00=0x434c, f01=0x4541, f02=»R0 TESTB T:DSC10 T:WRIL0 T:KI0 T:DSC00 . * T:DELA0 T:TEST0 T:WAIT0 T:XSTA0 T:ABOR0 - & F 0 n ~ d _ _ 6
0x0ae91a…12f7b6 [0x3e0]: Pad {f00=0x4445, f01=0x5649, f02=»CE <GP> OR <LP> ? A J F " D a 0 Hm 0 Im W 0 Hm W b Hp b 0 0 o o D $ : O L T Y l ^ | d _ _ f i y LP
0x0ae91a…12f7b6 [0x3e1]: Pad {f00=0x0001, f01=0x0002, f02=» * & 8 J Z j J F " D c ` 7a b b d _ _ Hp b 0 0 b0 WA a b Hp b 0 0
0x0ae91a…12f7b6 [0x3e2]: Pad {f00=0x0004, f01=0x1008, f02=» " J F " D ! W Am0 0 $P c W c 4 @m0 c 0 0 P c c @ P ` p $ 4 0 d _ _@N . _ 0 0 c0 c T c W 0 W Am
0x0ae91a…12f7b6 [0x3e3]: Pad {f00=0x00a0, f01=0x000e, f02=» " J F " D ! W Am0 0 $P c W c 4 @m0 c 0 0 P c c @ P ` p $ 4 0 d _ _ < @ IDENT WSMCAL
0x0ae91a…12f7b6 [0x3e4]: Pad {f00=0x0001, f01=0x0040, f02=» 9O ' 9o WXSLR * , ( '_ <` & @ ( A ! WXSLL D WXC1R $ I:EVA0 6 , ( ? '_2<@ & @ B A ! '_L H , ( _ D '_T & _@R & : x
0x0ae91a…12f7b6 [0x3e5]: Pad {f00=0x0028, f01=0x0313, f02=» @ 9O ' 9o WXSLR * , ( '_ <` & @ ( A ! WXSLL D WXC1R $ I:EVA0 6 , ( ? '_2<@ & @ B A ! '_L H , ( _ D '_T & _ < @ IDENT
0x0ae91a…12f7b6 [0x3e6]: Pad {f00=0x002c, f01=0x0028, f02=» R : <<H P < : I:EVA0 , ( !! & R P , ( = W R < _ <h =W V V CLEARB d > TESTB j R MSKOUT p d * & ] Q W _H _ _N
0x0ae91a…12f7b6 [0x3e7]: Pad {f00=0x0004, f01=0xf6a1, f02=» , ( C ( B T B I:RT1 GETIND , ( " $ ' Y ' RDSECT 4 , ( @ ' _ H , ( _@ & C
0x0ae91a…12f7b6 [0x3e8]: Pad {f00=0x0000, f01=0x0002, f02=» @ , ( C ( B T B I:RT1 GETIND , ( " $ ' Y ' RDSECT 4 , ( @ ' _ H , ( _@
0x0ae91a…12f7b6 [0x3e9]: Pad {f00=0x0000, f01=0x0000, f02=» @
0x0ae91a…12f7b6 [0x3ea]: Pad {f00=0x4130, f01=0x0000, f02=» x WUFIL 0 _ @ J F " D ! W Am0 0 $P c W c 4 @m0 c 0 0 P c c @ P ` p $ 4
0x0ae91a…12f7b6 [0x3eb]: Pad {f00=0xc024, f01=0x2424, f02=»TRA0 x @ < POLICE0 MOVVAL0 ICLEAR0 EMPTYT0 GETIND0 SETB0 WXMUL WXDIV WXSLL 0 * < > 0 @ @ J F " D m @c@ c o9 AcA Dj C (` C C+9 D D I
0x0ae91a…12f7b6 [0x3ec]: Pad {f00=0x066a, f01=0xb411, f02=» c 8 c0 c c j` N H H H H J F " D c ` c 0 `j 0 2 b P2 P, P& P Z j
0x0ae91a…12f7b6 [0x3ed]: Pad {f00=0x00ef, f01=0x0312, f02=» j z , 6 W d * n : J n Z j
0x0ae91a…12f7b6 [0x3ee]: Pad {f00=0x0003, f01=0x0606, f02=» h x H # % ( ' 8 * H , X . h
0x0ae91a…12f7b6 [0x3ef]: Pad {f00=0x8000, f01=0x8100, f02=» ? P < b h4 8 k m u H w { } J F " D @b c b b h4b c T b c j 5 c I < W < j 4 D T d
0x0ae91a…12f7b6 [0x3f0]: Pad {f00=0x0005, f01=0x0054, f02=» d H t J F " D c 8 ? < j 0 2 b `P H ,c $ 4 D (c T J F " D
0x0ae91a…12f7b6 [0x3f1]: Pad {f00=0x0606, f01=0x0211, f02=» T H d t ,c - / 1 7 : < J F " D c T c P T k b hkb c X" c W T W q qj K F P V
0x0ae91a…12f7b6 [0x3f2]: Pad {f00=0x0007, f01=0x0048, f02=» J F " D @ ` c T Ws c Pn T Wf T W q q P T X J F " D ` q c _ j TmW( c P# ` `cj ` c c` ` `W D
0x0ae91a…12f7b6 [0x3f3]: Pad {f00=0x066a, f01=0xb411, f02=» c( @ c Q Z f - v @ J F " D j0CD D ? W4 W/ b jb j a `a0 ` ` ` j0b ` y y P b J F " D @ Y1 4 b k h2b c T$j 3b! b h3 k P c W 4
0x0ae91a…12f7b6 [0x3f4]: Pad {f00=0x050b, f01=0x0009, f02=» > WSWAWN N d t B*X +-*/():&=<>,; J F " D T b b j b c Id ? b m hmb c T A j c b ? ? m } J F " D qc b h}b q P q q q _ qcP b b,P j zb b j
0x0ae91a…12f7b6 [0x3f5]: Pad {f00=0x0460, f01=0xa902, f02=» ` ` b j zb b ` j` zb ` b b,P q jq zb(q b 4 J F " D jq zb q W bh b` q`h qbm P qh q` b hmb ` T jk mb Z k b hZ " > 2 " J F " D bq `qT A W W c 4 b j a 5b a k hk c T c Y
0x0ae91a…12f7b6 [0x3f6]: Pad {f00=0x2860, f01=0x000b, f02=» 0 B H R b r H J F " D c P k b hkb c Td c T} c Tr j 5# c W= b H J F " D $h4b c TS c j a
0x0ae91a…12f7b6 [0x3f7]: Pad {f00=0x0044, f01=0x0600, f02=» c P b"h4b c T c _ W$ a ! a j a a _ a 0 J > ~ b h y 0c } 9> J F " D @ A 4 b j a 5b a b'h4b c T $ c @ bcjk b%k #k .> " 4
0x0ae91a…12f7b6 [0x3f8]: Pad {f00=0x0174, f01=0x000e, f02=» 2 D T d v ! H J F " D 4 b b bh4b c Toj a 5b a c c a ! ! ! T ! *
0x0ae91a…12f7b6 [0x3f9]: Pad {f00=0x000e, f01=0x0009, f02=» D ( * U < W H L [ ^ > l t ~ | J F " D @W, k b hkb c T c Tp b j 5b c c P6 c P/ b!h4b i
0x0ae91a…12f7b6 [0x3fa]: Pad {f00=0x02b3, f01=0x1102, f02=» r 0 @ J F " D a _ a W W @ 4 ` ` 0 ` j ` j c c 4 0 l P 0 9 ) < J F " D bc jk b%k$ #k% jl k b b "0 lT* l b c ` 0 ` `
0x0ae91a…12f7b6 [0x3fb]: Pad {f00=0x0010, f01=0x0012, f02=» " J F " D hkb c T c W c c 4 0 ab a 0 a a abQ _ a 4 j a 5b 2 " J F " D a ! (@ a b " W "b b W b b R j a a a _K a 4 @ * l b c ` 0 ` `
0x0ae91a…12f7b6 [0x3fc]: Pad {f00=0x5241, f01=0x2031, f02=»3.0 85-09-01 F1 O1111 REL=2.3,850702,870155940230 FSPARM0 SEATAB0 R FSPARM0 SEATAB0 l $$$TRA0 F B READIN0 WSMERR0 POLICE0 CURSET0 DISPLY0 USFPAR0 PICPOL0 VALPRC0 F B VLPAGE0 OBJVAL0 PRNTFS0 ATTPRT0 DETPRT0 STPBLK0 STABLK0 C
0x0ae91a…12f7b6 [0x3fd]: Pad {f00=0x3030, f01=0xc054, f02=»:THOM0 T:GETA0 T:GETF0 v T:SETC0 0 - B - b - -
0x0ae91a…12f7b6 [0x3fe]: Pad {f00=0x0008, f01=0x0003, f02=» & 4 ' ) 6 * . : 0 8 J 5 Z 8 j = | ? B J F " D (A jC H jD H @q A 1 ~ b o j~ bo 14 06 08 )d @q? A J C O Q *
0x0ae91a…12f7b6 [0x3ff]: Pad {f00=0x001e, f01=0x0002, f02=» x z : > . J F " D @9 : Kc (R @qHq ? 0: 0< 0: 0: 0 0: 0> > @
0x0ae91a…12f7b6 [0x400]: Pad {f00=0x0060, f01=0x0190, f02=» @ 0 @ P ` p J F " D 0@c c c He W W 2a Z(0@cI` 2c c" c
0x0ae91a…12f7b6 [0x401]: Pad {f00=0x0000, f01=0xffff, f02=» ` " . : > N 4 ^ n ~ : J F " D # ? ? ? 2c ? 0 0: 0 @t14 Ip 0:
0x0ae91a…12f7b6 [0x402]: Pad {f00=0x0005, f01=0x0180, f02=» ` a $ ~ 4 " D , T 1 4 d 2 t = 8 J F " D Ip (08 0>0@c 2a Aq0 ( At 14 Ip (08 D : I
0x0ae91a…12f7b6 [0x403]: Pad {f00=0x0008, f01=0x0003, f02=» o : ` t x 4 y ( { > 8 J F " D @ @t0: 0 0: 0: 14 W 0: 0: 0 14 0>_ H : : 4
0x0ae91a…12f7b6 [0x404]: Pad {f00=0x0007, f01=0x0138, f02=» $ ` 0 $ B * J F " D ^(8 W> ^ < ` c W c W%Kd Jf W$0 T ) c W 0 ^( # ^(8 _*0 : D $ ! * " #
0x0ae91a…12f7b6 [0x405]: Pad {f00=0x3f00, f01=0x0463, f02=» ^&9 0 ^& _ 2a ` : ? c ` 0 T 0 T#W 0 h ^ & ` B 8 e D H m X n h o x s v t u w D y J F " D @ T6 c W b
0x0ae91a…12f7b6 [0x406]: Pad {f00=0x029b, f01=0x0006, f02=» n E ~ ` $ 0 2 J F " D b bc o9 0 D D DD m v vc o9 ` 0 P ) ` 0 ` ` v`H 0 & ~ 2 J F " D d 0 v j0CD v jv C jv D D j0CD f D bs0 b b bwj0CD b D Hd b
0x0ae91a…12f7b6 [0x407]: Pad {f00=0x7902, f01=0x6279, f02=»j0 , L $ z ` & ` $ k & o $ * z & : ~ $ J J F " D @CD b D y 0 ^!P Id W ^!: 0 y 0 ^ T ^ 9 0 y 0 ^ T ^ 9 0 y 0 ^ Z & $ & &
0x0ae91a…12f7b6 [0x408]: Pad {f00=0x0003, f01=0x0506, f02=» & f & v & ` $ & $ ( & 8 J F " D ^ = 0 y W 0 y W 0 y 0 ^#T ^#9 0 y 0 ^$T ^$9 0 y j0CD y D D H J F " D p j0CD zp D p ` a b* b j` i ja i a v j0`a v a j0`a
0x0ae91a…12f7b6 [0x409]: Pad {f00=0x2477, f01=0x8000, f02=»9 : a a 0 ^(T ^(9 b 6 $ ` i E $ $ i 4 E D $ T 0 d i v J F " D 0 TT b oT 9 a 0 Z T bP oZ 9 a 0 T ! " b c jo c
0x0ae91a…12f7b6 [0x40a]: Pad {f00=0x0024, f01=0x000d, f02=» T i d E t $ ` J F " D P 0 OT bP oO 9 a 0 T4 b c jo c c jo c jP o P P O i R Q E b V $ r e S:M: v J F " D @$ cP$ c 9 a 0 Z T- bP
0x0ae91a…12f7b6 [0x40b]: Pad {f00=0x0046, f01=0x0022, f02=» D fo 9 y ( `a j` v ja v a jb 0`a y byj0`a b ` ? @q14 06 V 8 $ 4 4 D : T : d t J F " D 08 jC H jD H iG? 0: 0: 0 A Hg `+ ` jS
0x0ae91a…12f7b6 [0x40c]: Pad {f00=0x000e, f01=0x000a, f02=» 7 ) R 9 d : t ; b ` ? B @ A ( J F " D ? ` 0 I P ` 0: `08 0@c0B cbT 0D? bc_ @q ` c& '2a 8 i k 6 p J F " D @ v
0x0ae91a…12f7b6 [0x40d]: Pad {f00=0x0003, f01=0x0806, f02=» H > X % h z ` , < L 8 l 4 | 8 J F " D ` P` `)
0x0ae91a…12f7b6 [0x40e]: Pad {f00=0x1100, f01=0x6144, f02=» a j0 ` a 7 " X J F " D a `b `D c`$`e cej0CDc|a,`e ac ` ecj0Cb d C C+Q D 0 0C_9j0 " h Y & Z 6 [ F a X c : j v . z J F " D @ C W d W d W d ` c , A -0:
0x0ae91a…12f7b6 [0x40f]: Pad {f00=0x1102, f01=0x4163, f02=»fo bc oQ j0CD " X h x J F " D ` bo Db 4 depruP @b0 | Z /4 d "dgO Z Z jZ h d o0dZ H X * j - Q | ? J F " D o o1 n
0x0ae91a…12f7b6 [0x410]: Pad {f00=0x0038, f01=0x0013, f02=» 0 d 6 @ m . P J F " D @4 @x l6jZ r l Hc ? AhT 06 08 06 ` r0 q q q jR {q r jZ ` 6 6 . " > " N " ^ n ~
0x0ae91a…12f7b6 [0x411]: Pad {f00=0x0506, f01=0x08ee, f02=» * . > J F " D "^#^&^%k ^ 8 ^$8 ^!;Hd ^!: a cw o7Hd 1 ~ W 1 ~ `sId ` Hf ` (t N ? 9* J F " D ` (` a W j~ ` Id jb ~ btj~ b f~ $w)$ c) c` cc c`*c) o8 H * l Y 9Z-+*$.,BE ~ J F " D @d~ `o
0x0ae91a…12f7b6 [0x412]: Pad {f00=0x6111, f01=0x0463, f02=» a j~ c b; ba F 4 V f 8 v J F " D j~ab ` o a a14 08 W 4 `q @c p,<j` zp ` D F V & f & t & WSM REL &
0x0ae91a…12f7b6 [0x413]: Pad {f00=0x4354, f01=0x494f, f02=»N $ =P 2 & : B & P & S ^ & l & z & ` & TYPE:T & > XE * " > < & L & Z & h & SIZE:M v & %
0x0ae91a…12f7b6 [0x414]: Pad {f00=0xc42f, f01=0x0017, f02=» & ( & VERSION: 6 & 8 L A ZZZO Z " A n & ~ & ` > & & LINE:T & C , B ZZZT : " B N & ^ & B l & z & Z
0x0ae91a…12f7b6 [0x415]: Pad {f00=0x0006, f01=0x0002, f02=»& & ( & FIELD-ID:R 6 & N & R & j & x & ORIG ` IN:O & # C YG " C 0 & @ & ' N & DATA TO APPL.: & 6 @ x
0x0ae91a…12f7b6 [0x416]: Pad {f00=0xe15e, f01=0x0019, f02=» & & * & MUST FILL: 8 & @ P & ^ U b & r & ` & & AUTO-EOI:: & # @ $ & ^ U 6 & F & ' T & b & DECIMAL ENTER:
0x0ae91a…12f7b6 [0x417]: Pad {f00=0x2348, f01=0x001a, f02=» & & ^ $ & 2 & @ & N & DUPL.: & @ p & ^(U ` & & @ & T $ & 2 & @ & N & AUTO S/D/B:L & # @
0x0ae91a…12f7b6 [0x418]: Pad {f00=0x0010, f01=0x000b, f02=» D TTT " D & . & E < & X J & X & F f E ZZZ z ` " E & E & & * & L/R ADJUST:. 8 & @ R & ^!/ d &
0x0ae91a…12f7b6 [0x419]: Pad {f00=0x0002, f01=0x2604, f02=» & GUIDING MESSAGE: & , & : & @ H & Z U Z & j & x & ` & EXTENDED PROMPT: & " & 0 & @ > & Z X P & ` &
0x0ae91a…12f7b6 [0x41a]: Pad {f00=0x4154, f01=0x4f52, f02=»Y: & # @ & ^%A & # * & 8 F YYYY F " F Z & j & x & A ` & & & & G YYYY 4 " G H & X &
0x0ae91a…12f7b6 [0x41b]: Pad {f00=0x2608, f01=0xf206, f02=» A & & & " I YYYY 0 " I D & T & b & A p & ` & & J YYYY " J 4 & D & R & A
0x0ae91a…12f7b6 [0x41c]: Pad {f00=0x0007, f01=0x0003, f02=»& & & L YYYY " L 0 & @ & N & A & n & ~ & ` M YYYY " M & . & < & A J &
0x0ae91a…12f7b6 [0x41d]: Pad {f00=0xc201, f01=0x397f, f02=» ( c & & p c & . & p < & J & p X & f & p t & ` & p & ! & p ! & ! * & p ! 8 & ! F & p !
0x0ae91a…12f7b6 [0x41e]: Pad {f00=0x2604, f01=0xcd1f, f02=» ! & ! & ! & GO DIRECT ! & ! " & ! 0 & t c ! > & FIELD-ID:P ! N & t c ! j & TO THE END `@ ! z & t c " & @ " & " * ( " 8 " D
0x0ae91a…12f7b6 [0x41f]: Pad {f00=0x0000, f01=0x0022, f02=» @ " & ! & ! & GO DIRECT ! & ! " & ! 0 & t c ! > & FIELD-ID:P ! N & t c ! j & TO THE END a J H IDENT MOVVAL TRA 13.0 85-09-01 F1 O1111 REL=2.3,850321,870155940230
0x0ae91a…12f7b6 [0x420]: Pad {f00=0x106a, f01=0xb711, f02=» j 0 a 0 a M a* a P a P R a W E I & V 8 f J F A ? @ a +a a b a0 a!a aT @ ac Q b0C a@*Da Da_Q4 Z { @ &111 REL=2.3,850321,870155940230
0x0ae91a…12f7b6 [0x421]: Pad {f00=0x106a, f01=0xb611, f02=» j j 0 a 0 a M a* a P a P R a W E I & V 8 f J F A ? @ a +a a b a0 a!a aT @ ac Q b0C ams00000000000000000000000000000000000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x422]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 am}00000000000000000000000000000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x423]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 am 00000000000000000000000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x424]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 am 00000000000000000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x425]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 amt00000000000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x426]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 am~00000000000000000000000000000000000000
0x0ae91a…12f7b6 [0x427]: Pad {f00=0x3030, f01=0x3030, f02=»00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 aAX RDSECT < 6W:FHCA
0x0ae91a…12f7b6 [0x428]: Pad {f00=0x0000, f01=0x0505, f02=» OBJVAL0 $$$TRA0 POLICE0 MOVVAL0 ICLEAR0 EMPTYT0 GETIND0 SETB0 WXMUL WXDIV WXSLL HMOVVAL ~ 010985 MOVVAL0 $$$TRA0 POLICE0 MSKOUT0 { T p CHANFC T:FDSP GETVOL I:RT1 GETIND a 010985 ATTPRT0 D
0x0ae91a…12f7b6 [0x429]: Pad {f00=0x0000, f01=0x0000, f02=» * dWSMCAL C 010985 WXMUL I:RT1 WXDIV WXSLR * WXSLL D WXC1R I:EVA0 v SETBIT E 010985 SETB I:EVA0 CLEARB d TESTB j MSKOUT p CHANFC T:FDSP GETVOL I:RT1 GETIND a VALPRC 010985
0x0ae91a…12f7b6 [0x42a]: Pad {f00=0x0000, f01=0x0000, f02=» nSYNVAL 010985 SYNVAL0 BSVSEA0 $$$TRA0 ZERFLL0 ICLEAR0 EMPTYT0 GETIND0 WXMUL WXDIV p JVAL J 050385 OBJVAL0 $$$TRA0 POLICE0 ICLEAR0 EMPTYT0 GETIND0 SETB0 WXMUL WXDIV WXSLL WSMPRT > a ARB0 FMOVE TES
0x0ae91a…12f7b6 [0x42b]: Pad {f00=0x5349, f01=0x4e49, f02=»T0 USMODL0 " USFPAR0 $$$TRA0 UDFVAL0 ICLEAR0 CLEARB0 TESTB MSKOUT0 WXDIV WXMUL SETB0 WXSLL WXSLR WXC1R |UDFVAL 091085 UDFVAL0 $$$TRA0 ICLEAR0 MSKOUT0 TESTB GETIND0 CLEARB0 WXSLR WXDIV ` a RIL0 T:G
0x0ae91a…12f7b6 [0x42c]: Pad {f00=0x020f, f01=0xa057, f02=»XMUL T:EDWR0 T:DSC10 T:WRIL0 r NFSPARM [ # #010985 FSPARM0 SEATAB0 $$$TRA0 READIN0 WSMERR0 POLICE0 CURSET0 DISPLY0 USFPAR0 PICPOL0 VALPRC0 VLPAGE0 OBJVAL0 PRNTFS0 ATTPRT0 DETPRT0 STPBLK0 STABLK0 CHANFC0 ICLEAR0 EMPTYT0 SETB0 CLE a DW
0x0ae91a…12f7b6 [0x42d]: Pad {f00=0x4553, f01=0x5442, f02=» EMPTYT0 WXDIV T:DSC00 T:DSC10 T:WRIL0 T:DSC20 FSNAME 010985 FSNAME0 $$$TRA0 READIN0 WSMERR0 POLICE0 DISPLY0 CURSET0 STPBLK0 STABLK0 ICLEAR0 EMPTYT0 CHANFC0 WXDIV WXMUL T:ATTF0 T:THOM0 T:ERAS0 T:DSC20 T:DSC10 T:DISP0 T:KI0 T:W
0x0ae91a…12f7b6 [0x42e]: Pad {f00=0x4953, f01=0x5030, f02=» FSMODL 010985 FSMODL0 ZERFLL0 $$$TRA0 DISPLY0 CURSET0 DECORS0 READIN0 WSMERR0 PRFSMD0 ATTPRT0 DETPRT0 STPBLK0 STABLK0 ICLEAR0 TESTB SETB0 CLEARB0 FMOVE EMPTYT0 GETIND0 WXMUL WXSLL T:ATTF0 T:THOM0 T:WRIL0 T:KI0 T:DSC10 T:XSTA0 T:E
0x0ae91a…12f7b6 [0x42f]: Pad {f00=0x4c30, f01=0xc050, f02=»RNTFS0 ATTPRT0 DETPRT0 ICLEAR0 PREAD PCLOSE0 PDLETE0 TESTB CHANFC0 T:DSC10 T:ATTF0 T:ERAS0 T:DISP0 T:GETA0 T:SETC0 T:GETF0 T:THOM0 FSINIT 101085 FSINIT0 $$$TRA0 USINIT0 READIN0 WSMERR0 ICLEAR0 SETB0 WXDIV T:ATTF0 T:ERAS0 T:DISP0 T:G
0x0ae91a…12f7b6 [0x430]: Pad {f00=0x021f, f01=0xc053, f02=»YNVAL0 BSVSEA0 GETIND0 CHANFC0 GETVOL0 EMPTYT0 ICLEAR0 TESTB CLEARB0 POPEN PCLOSE0 PSEARC0 WXDIV T:GETA0 T:GETF0 8 FDUPDT n 010985 FDUPDT0 $$$TRA0 READIN0 WSMERR0 ATTPRT0 DETPRT0 ICLEAR0 SETB0 PREAD PCLOSE0 PDLETE0 TESTB T:ATTF0 T:ERAS0 T
0x0ae91a…12f7b6 [0x431]: Pad {f00=0x5452, f01=0x4130, f02=» CHANFC0 T:DSC10 T:EDWR0 T:SETC0 T:NKI T:GETA0 T:ERAS0 T:DISP0 READIN Z 010985 READIN0 STPBLK0 STABLK0 $$$TRA0 WSMAPP0 WSMERR0 ATTPRT0 DETPRT0 EMPTYT0 TYPET ICLEAR0 T:GETC0 T:DYKI0 T:UPDF0 T:GETA0 T:DISP0 T:TFWD0 T:TBWD0 T:SETC0 T:D
0x0ae91a…12f7b6 [0x432]: Pad {f00=0x0000, f01=0x0505, f02=» D:TB900 RWSMCRT A 010985 WSMCRT0 $$$TRA0 FDUPDT0 FSINIT0 FSMODL0 FSMSPP0 FSNAME0 FSPARM0 FSDISC0 FSUPDT0 USMODL0 READIN0 CURSET0 WSMERR0 PRNTFS0 ATTPRT0 DETPRT0 STPBLK0 STABLK0 GETIND0 ICLEAR0 TESTB CHANFC0 GETCW WXDIV T:DSC10 T:REC
0x0ae91a…12f7b6 [0x433]: Pad {f00=0x4235, f01=0x3030, f02=» ,D:TB50 2 010985 D:TB500 ,Z:TB60 3 010985 Z:TB600 * ,D:TB60 4 010985 D:TB600 0 ,Z:TB70 5 010985 Z:TB700 ,D:TB70 6 010985 D:TB700 D ,Z:TB80 7 010985
0x0ae91a…12f7b6 [0x434]: Pad {f00=0x0000, f01=0x0000, f02=» D ,Z:TB10 # 010985 Z:TB100 r ,D:TB10 $ 010985 D:TB100 D ,Z:TB20 % 010985 Z:TB200 ,D:TB20 ' 010985 D:TB200 D ,Z:TB30 ( 010985 Z:TB300 ,D:TB30 ) 010985 D:TB3
0x0ae91a…12f7b6 [0x435]: Pad {f00=0x3835, f01=0x0000, f02=» T:ATAB0 T:AC100 T:AFC00 ,U:BTAB 010985 U:BTAB0 ,S:BTAB 010985 S:BTAB0 ,C:CB10 010985 C:CB100 $ ,D:CB10 010985 D:CB100 D ,C:CB20 010985 C:CB200
0x0ae91a…12f7b6 [0x436]: Pad {f00=0x4233, f01=0x3030, f02=» C:CB300 D:TB100 Z:TB100 D:TB200 Z:TB200 D:TB300 Z:TB300 D:TB400 Z:TB400 D:TB500 Z:TB500 D:TB600 Z:TB600 D:TB700 Z:TB700 D:TB800 Z:TB800 D:TB900 Z:TB900 6T:DC10 010985 T:DC100 WSMCRT0 * fT:AFC0 010985 T:AFC00 T:D
0x0ae91a…12f7b6 [0x437]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x438]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x439]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x43a]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»****************************** 6 * P* START OF FILE-HANDLER-TASK * d * P* * * P* USER = S:WSM * * P* DDIV = WSMDDV * * P**************************************
0x0ae91a…12f7b6 [0x43b]: Pad {f00=0x4643, f01=0x5441, f02=»SK 4 P CALL WUFIL B P B FCTASK V P* h P END r@ ~ * d * P* * * P* USER = S:WSM * * P* DDIV = WSMDDV * * P**************************************
0x0ae91a…12f7b6 [0x43c]: Pad {f00=0x0026, f01=0x000a, f02=» PFCTASK 4 P CALL WUFIL B P B FCTASK V P* h P END r@ ~ * d * P* * * P* USER = S:WSM * * P* DDIV = WSMDDV * * P********************************
0x0ae91a…12f7b6 [0x43d]: Pad {f00=0x001a, f01=0x001a, f02=» P BZ CHK010 PRINTER OK . P ADD LBIN4,W1 L ( P CBE LBIN4,W10,NOTOK PRINTER NOT OK b P B CHK005 PCHK010 P WAIT PRNT P XSTAT PRNT,LBIN4 2 P CALL TESTB,LBIN4,W7 ---TEST BIT ON POS NO:=7 P BT OK P CBE LBIN4,W0,OK " P
0x0ae91a…12f7b6 [0x43e]: Pad {f00=0x0014, f01=0x0020, f02=» P CMP W0,W0 CLEAR CONDREG ( POUT L P RET X P PEND d P EJECT r P* L P************************************************************************ P* > P* DETPRT IS USED FOR DETACHING PRINTER AFTER PRINT-OUT P* & L P
0x0ae91a…12f7b6 [0x43f]: Pad {f00=0x0008, f01=0x0050, f02=» RET P PEND , P END :@ F POUT L P RET X P PEND d P EJECT r P* L P************************************************************************ P* > P* DETPRT IS USED FOR DETACHING PRINTER AFTER PRINT-OUT P*
0x0ae91a…12f7b6 [0x440]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x441]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x442]: Pad {f00=0x5c43, f01=0x5254, f02=»FMT REL=2.0,820202,870155940100 P DDUM WSMDDV 6 P PDIV J P INCLUDE WSMKEY,LIST X P EJECT t P INCLUDE WSMERS,LIST P EJECT P INCLUDE FWFDUS,LIST P EJECT P INCLUDE FWFSUS,LIST P EJECT P INCLUDE FWSINS,LIST
0x0ae91a…12f7b6 [0x443]: Pad {f00=0x017e, f01=0x000a, f02=» P EJECT P INCLUDE FWFSPS,LIST P END 4@ @ 6 P PDIV J P INCLUDE WSMKEY,LIST X P EJECT t P INCLUDE WSMERS,LIST P EJECT P INCLUDE FWFDUS,LIST P EJECT P INCLUDE FWFSUS,LIST P EJECT P INCLUDE FWSINS,LI
0x0ae91a…12f7b6 [0x444]: Pad {f00=0x2008, f01=0x2004, f02=» P EJECT P INCLUDE FWFSPS,LIST P END 4@ @ 6 P PDIV J P INCLUDE WSMKEY,LIST X P EJECT t P INCLUDE WSMERS,LIST P EJECT P INCLUDE FWFDUS,LIST P EJECT P INCLUDE FWFSUS,LIST P EJECT P INCLUDE FWS
0x0ae91a…12f7b6 [0x445]: Pad {f00=0x4153, f01=0x4420, f02=» bASD /FF,$VOLN,$DNAM NG PROCEDURE ABORTED) SCR /O M,$1 -------------------------------- ASGT /D5,TYPE=OB --------------------------- LIB %<<... E ALL OBJECT
0x0ae91a…12f7b6 [0x446]: Pad {f00=0x0000, f01=0x0000, f02=» KOM bKOM LIBR=CREOBJ NAM NG PROCEDURE ABORTED) LEN /O M,$1 -------------------------------- SCR /O 5,TYPE=OB --------------------------- ASGT /D5,TYPE=OB
0x0ae91a…12f7b6 [0x447]: Pad {f00=0x0000, f01=0x0000, f02=» CSF bCSF INAM=/OBJCT,ITYP=OB,IUSI=WSM:INTO,IDAD=/FF,ONAM=/D5 KOM LIBR=CREOBJ ---------------------------- LEN /O 5,TYPE=OB --------------------------- SCR /O 5,TYP
0x0ae91a…12f7b6 [0x448]: Pad {f00=0x0000, f01=0x0000, f02=» W b
0x0ae91a…12f7b6 [0x449]: Pad {f00=0x0000, f01=0x0000, f02=» b H P X
0x0ae91a…12f7b6 [0x44a]: Pad {f00=0x0000, f01=0x0000, f02=» b P* $ P* FORMATS IN WSMERR MODULE P* 6 P EJECT @ P* N P* FORMAT ITEM-NAME TABLE X P* | 4 PWFITAB FTABLE FITEM1,FITEM2,FITEM3,FITEM4, 1-4 C P FITEM5 5 P* PFITEM1 FRMT
0x0ae91a…12f7b6 [0x44b]: Pad {f00=0x0000, f01=0x0162, f02=» P FTEXT 'PICTUR' v P F b MEND P* PFITEM4 FRMT P FTEXT 'FIDTAB' * P FMEND B P* P PFITEM5 FRMT Z P FTEXT 'VALBUF' n P FMEND P EJECT P* @ P* THIS IS THE FORMAT TABLE CONTAINING ALL ERROR MES
0x0ae91a…12f7b6 [0x44c]: Pad {f00=0x2c45, f01=0x5246, f02=»M10,ERFM11,ERFM12, 9-12 C ` * P b ERFM13,ERFM14,ERFM15,ERFM16, 13-16 C * P ERFM17,ERFM18,ERFM19,ERFM20, 17-20 C , * P ERFM21,ERFM22,ERFM23,ERFM24, 21-24 C Z * P ERFM25,ERFM26,ERFM27,ERFM28, 25-28 C * P ERFM29,ERFM30,ERFM31,ERFM32, 29-32 C
0x0ae91a…12f7b6 [0x44d]: Pad {f00=0x524d, f01=0x5420, f02=» Z P FSL n & P FTEXT 'TOO FEW INPUT b CHARACTERS' z P FMEND P* " PERFM02 FRMT , P FSL @ P FTEXT 'WORKING AREA ' L 0 P FLINK WFITAB(LBIN5) FORMAT ITEM-NAME TABLE j P FTEXT ' EXCEEDED' P FMEND P EJECT P*
0x0ae91a…12f7b6 [0x44e]: Pad {f00=0x4741, f01=0x4c20, f02=»END-OF-ITEM KEY' P P FMEND x P* P b ERFM05 FRMT P FSL * P FTEXT 'COMPULSORY FIELD NOT ENTERED' P FMEND N P EJECT P* j PERFM06 FRMT t P FSL P FTEXT 'ILLEGAL TYPE ' P FMEND P* PERFM07
0x0ae91a…12f7b6 [0x44f]: Pad {f00=0x412c, f01=0x4552, f02=»FM8A JMP IF POOL-ERROR L P FTEXT 'DISK' x P F b B ERFM8B PERFM8A P FTEXT 'POOL' PERFM8B 4 P FTEXT '-ERROR. STATUS:' B P FCOPY LSTR16 b P FMEND x P EJECT P* PERFM09 FRMT P FSL 2 P FTEXT '1ST
0x0ae91a…12f7b6 [0x450]: Pad {f00=0x4245, f01=0x2031, f02=»-6' 6 P FMEND ` P EJECT n P* | PERFM11 FRM b T P FSL P FTEXT 'MUST BE WITHIN ' P FMELI 'ZZ9',GBCD3I(VBIN5) 6 P FTEXT ' AND ' X P FMELI 'ZZ9',LBCD3A n P FMEND P* PERFM12 FRMT P FSL " P F
0x0ae91a…12f7b6 [0x451]: Pad {f00=0x000a, f01=0x0050, f02=» FMEND N P EJECT P* j PERFM14 FRMT t P FLINK E b RFM06 " P FTEXT 'MUST BE (M:) OR (S:)' P FMEND 4 P* B P* L PERFM15 FRMT V P FSL j ( P FTEXT 'FIELD NAME ALREADY DEFINED' v P FMEND P* PERFM
0x0ae91a…12f7b6 [0x452]: Pad {f00=0x534c, f01=0x0007, f02=» B @ P FTEXT 'MUST BE A FIELD NAME, WSM WORK ITEM OR A DATA TABLE' N E b P FMEND P* PERFM18 FRMT P FSL 0 4 P FTEXT 'MUST BE (SKIP),(DUPL),(BYPASS) OR (NO)' < P FMEND t P* PERFM19 FRMT P FSL & P FTEXT 'MUST
0x0ae91a…12f7b6 [0x453]: Pad {f00=0x4d41, f01=0x5820, f02=»ROW SIZE:' & P FMELI 'ZZ',LBCD3A T P FMEND n P* | PERFM21 FRM b T P FSL , P FTEXT 'MUST NOT CONTAIN DYNAMIC FIELDS' P FMEND F P EJECT T P* b PERFM22 FRMT l P FSL 8 P FTEXT 'PRESS <ENTER> = UPDATE, <PRINT
0x0ae91a…12f7b6 [0x454]: Pad {f00=0x5445, f01=0x5854, f02=» 'VOLUME:' 6 P FCOPY LSTR81 N P FTAB 15 d P FTEXT 'NOT LOADED' t P b FMEND P* PERFM24 FRMT P FSL , P FTEXT 'FILE:' 8 P FCOPY LSTR81 N P FTAB 15 d & P FTEXT 'NOT FOUND ON THIS VOLUME' t P FMEND P
0x0ae91a…12f7b6 [0x455]: Pad {f00=0x2a27, f01=0x2c31, f02=» * P FMELI 'ZZ9',GBCD3I(W14) > P FMEND ^ P EJECT l P* z PERFM26 FRMT b P FSL P FTEXT 'SYNTAX ERROR:' P FMELI 'ZZ',LBCD3A 2 P FMEND L P* Z PERFM27 FRMT d P FSL x " P FCOPY =C'FORMAT DEFINITION:'
0x0ae91a…12f7b6 [0x456]: Pad {f00=0x4327, f01=0x464f, f02=»RMAT SECTION:' $ P FCOPY LSTR81 F P FTAB 24 P FCOPY =C'NOT FOUND' l P FMENDT b P* PERFM29 FRMT P FSL & " P FCOPY =C'FORMAT DEFINITION:' 2 P FCOPY LSTR81 X P FTAB 26 n P FCOPY =C'ALREADY DEFINED' ~ P
0x0ae91a…12f7b6 [0x457]: Pad {f00=0x000c, f01=0x011e, f02=» P FCOPY =C'ALREADY DEFINED' . P FMEND P P* ^ PERFM31 FRMT h P FSL | 0 P FTEXT ' b BASIC-VERB OR -FUNCTION NOT ALLOWED' P FMEND , P* : PERFM32 FRMT D P FSL X * P FTEXT 'SPACE NOT ALLOWED IN FIELD ID' d P FMEND
0x0ae91a…12f7b6 [0x458]: Pad {f00=0x4552, f01=0x464d, f02=»34 FRMT P FSL 4 & P FTEXT 'PRINT-DEVICE NOT OPERABLE' @ P FMEND j P EJECT x P* P b ERFM35 FRMT P FSL . P FTEXT 'PRINT-DEVICES ARE <GP> OR <LP> !!' P FMEND R P* ` PERFM36 FRMT j P FSL ~ P FTEXT 'PR
0x0ae91a…12f7b6 [0x459]: Pad {f00=0x4e54, f01=0x3e20, f02=»TO CONFIRM & PRINT' P FMEND : P* H PERFM38 FRMT R P FSL f P FTEXT 'FIELD-ID NOT FOUND' b | r P FMEND P EJECT P* $ PERFM39 FRMT . P FSL B $ P FTEXT 'YOU ARE ALREADY THERE!!' N P FMEND v P* P
0x0ae91a…12f7b6 [0x45a]: Pad {f00=0x000f, f01=0x0110, f02=» * P FTEXT 'SYNTAX ERROR FOUND IN LINE : ' P FMELI '9999',LINNO(W9) J P FMEND j P xELD-ID NOT FOUND' b FMEND P EJECT P* $ PERFM39 FRMT . P FSL B $ P FTEXT 'YOU ARE ALREADY THERE!!' N P FMEND v P*
0x0ae91a…12f7b6 [0x45b]: Pad {f00=0x0050, f01=0x5c46, f02=»SL * P FTEXT 'SYNTAX ERROR FOUND IN LINE : ' P FMELI '9999',LINNO(W9) J P FMEND j P xELD-ID NOT FOUND' b _X
0x0ae91a…12f7b6 [0x45c]: Pad {f00=0x0000, f01=0x0000, f02=» b
0x0ae91a…12f7b6 [0x45d]: Pad {f00=0x8848, f01=0x82c0, f02=» K K K K F Q ' _ ' @ W| W W @W @ % ^ @ B E P @ H b D % @T C W" H W A A R Q [ B _ _ (
0x0ae91a…12f7b6 [0x45e]: Pad {f00=0x0000, f01=0x0000, f02=» TJ b
0x0ae91a…12f7b6 [0x45f]: Pad {f00=0x0000, f01=0x0000, f02=» ; P, 8 ' _ ; P 8 'T _ W [ : : X ' _ [ b & Pd & P &@T D P &X n R T T & T P B P W
0x0ae91a…12f7b6 [0x460]: Pad {f00=0x8510, f01=0x8241, f02=» @ W P L M @ I A U W R< L T P T T . U W T T TV R T T & @A( @ @@ c
0x0ae91a…12f7b6 [0x461]: Pad {f00=0x0000, f01=0x0000, f02=» c ` h
0x0ae91a…12f7b6 [0x462]: Pad {f00=0x0000, f01=0x0000, f02=» c P* " P* FORMATS IN FDUPDT MODULE P* 4 PFWFDUN FRMT > P FSL
0x0ae91a…12f7b6 [0x463]: Pad {f00=0x0050, f01=0x5c46, f02=»ATTR .INV & P FBT LBOOL3,FWF200 JUMP IF UPD OLD P FTEXT ' 1. NEW ' P FB FWF300 8 PFWF200 J P FTEXT ' 3. OLD ' X PFWF300 r P FCOPY =C'FORM ' c P FCOPY =C'DEFINITION ' P FATTR .INV & P FNL 3 : P FLINK FWF
0x0ae91a…12f7b6 [0x464]: Pad {f00=0x464f, f01=0x524d, f02=» ' P FCOPY =C'SECTION' P FILLR ':',1 , P FKI 30,APPL=26,ALPHA,MAXL=6,MINL=1,NEOI & P FCOPY GSTR6I(W1) INITIAL SECTION D P FNL n P FATTR .HIGH z P F TA c TAB 4 P FTEXT 'FAST SELECTION ' P FCOPY =C'SECTION' . P FTE
0x0ae91a…12f7b6 [0x465]: Pad {f00=0x5c46, f01=0x5441, f02=»B 27 P FTEXT '2:' , P FKI 30,APPL=26,ALPHA,MAXL=6,MINL=1,NEOI " P FCOPY GSTR6I(W3) SECTION NO:2 & P FNL L P FATTR .HIGH X P FTAB 27 l P FTEXT '3:' | , P F c FKI 30,APPL=26,ALPHA,MAXL=6,MINL=1,NEOI " P FCOPY GSTR6I(W4) SECT
0x0ae91a…12f7b6 [0x466]: Pad {f00=0x434f, f01=0x5059, f02=» GSTR6I(W5) SECTION NO:4 P FNL P FATTR .HIGH P FTAB 27 P FTEXT '5:' , P FKI 30,APPL=26,ALPHA,MAXL=6,MINL=1,NEOI 4 " P FCOPY GSTR6I(W6) SECTION NO:5 d P FNL P c P FATTR .HIGH P FTAB 27 P FTEXT '6:' , , P
0x0ae91a…12f7b6 [0x467]: Pad {f00=0x5c46, f01=0x5445, f02=»XT '7:' , P FKI 30,APPL=26,ALPHA,MAXL=6,MINL=1,NEOI " P FCOPY GSTR6I(W8) SECTION NO:7 P FNL 0 P FATTR .HIGH < P FTAB 27 P P FTEXT '8:' ` , P FKI 30,APPL=26,ALPHA,MAXL=6 ,M c ,MINL=1,NEOI t " P FCOPY GSTR6I(W9) SECTION NO:8 P
0x0ae91a…12f7b6 [0x468]: Pad {f00=0x5c53, f01=0x4543, f02=»TION NO:9 P FNL PFWF900 P FMEND P EJECT P* * P* FORM DEFINITION DUPLICATION FORMAT P* D PFWFDDP FRMT N P FSL b P FBT VD82,FWFDDP1 n P FNL 23 W c PFWFDDP1 P FLINK FWFDFV P FMEND
0x0ae91a…12f7b6 [0x469]: Pad {f00=0x5452, f01=0x5c2e, f02=»HIGH P FTAB 4 P FTEXT 'VOLUME ' P FCOPY =C'NAME:' 4 P FKI 18,APPL=19,ALPHA,MAXL=6,MINL=1,ME,NEOI,NCLR P FCOPY GSTR6C VOLUME NAME B P FATTR .HIGH d P FTAB 29 x P FTEXT ' FI c FILE' P FCOPY =C'NAME:' 4 P FKI 41,
0x0ae91a…12f7b6 [0x46a]: Pad {f00=0x2720, f01=0x0007, f02=» P FILLR ' ',1 P FCOPY =C'NAME:' . P FKI 70,APPL=2,ALPHA,MAXL=6,MINL=1,ME,NEOI P FCOPY GSTR6D P FMEND 2 P EJECT @ P* N P* FORM-FEED FORMAT X P* v PFORMF FRMT ' @* c@* P FTEXT ' 1' P FMEND @
0x0ae91a…12f7b6 [0x46b]: Pad {f00=0x4e49, f01=0x5449, f02=»ON' P FILLR ' ',1 P FCOPY =C'NAME:' . P FKI 70,APPL=2,ALPHA,MAXL=6,MINL=1,ME,NEOI P FCOPY GSTR6D P FMEND 2 P EJECT @ P* N P* FORM-FEED FORMAT X P* v PFORMF FRMT ' c XT ' 1' P FMEND
0x0ae91a…12f7b6 [0x46c]: Pad {f00=0x4327, f01=0x4445, f02=»FINITION' P FILLR ' ',1 P FCOPY =C'NAME:' . P FKI 70,APPL=2,ALPHA,MAXL=6,MINL=1,ME,NEOI P FCOPY GSTR6D P FMEND 2 P EJECT @ P* N P* FORM-FEED FORMAT X P* v PFORMF FRMT ' .I c .IN Qq .INOUT Qt
0x0ae91a…12f7b6 [0x46d]: Pad {f00=0x454d, f01=0x2020, f02=» Q 7.MOD Q .NB Q ! .NDLIN Q ?.NDWIDTHQ :.NE Q1 .NEXT Q @ .NFLASH Q .NI Q " .NINV Q (.NL Q $ B.NOLIN Q 9.NW Q2 D.NPROT Qw .NULIN Q F ' .O c' .OLIN Q .OPER
0x0ae91a…12f7b6 [0x46e]: Pad {f00=0x0000, f01=0x0041, f02=».SECT Q .SEQ Qe 0.SOUT Qr K.UL Q C.ULIN Q .UP Q =.UNP Q .WF Q <ADRMOD= RQ ]ALPHA QR ,APPL= RA LBUFDS= R$ VBUFL= R# !:FMTITEMQA aCTAB QW DE c DEV= R" c
0x0ae91a…12f7b6 [0x46f]: Pad {f00=0x2020, f01=0x5154, f02=» MINL= RD kNCLR QV NEOI QU NUM QQ &OUTDS= R2 WREWRT QS nSCHK= RE _T Q! `TRUE Q! 1USATTR QY oVERIF QX YDDIV hDDUM EEJECT @ bEND s ' EQ c' EQU
0x0ae91a…12f7b6 [0x470]: Pad {f00=0x5858, f01=0x5858, f02=»XEOF >ADD 6 M B 9 MW dBBEOD 9 MS 6BE 9 MP IBEOF 9 MQ BERR 9 MR BF 9 MP BG 9 MQ eBL 9 MR BN 9 MR GBNE 9 MT BNEOF 9 MU *BNERR 9 MV XBNG 9 MU BNL 9 MV l c
0x0ae91a…12f7b6 [0x471]: Pad {f00=0x0000, f01=0x0000, f02=» c
0x0ae91a…12f7b6 [0x472]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x473]: Pad {f00=0x5c46, f01=0x5445, f02=»XT 'WSM REL ' ~ P FCOPY RELNUM P FNL 3 P FATTR .HIGH P FTAB 4 P FATTR .INV P FTEXT ' 4. OLD FORM ' P FCOPY =C'SECTION ' P FATTR .INV . P FNL 3 B P FLINK FWFSFV P P FMEND f P EJECT t PFWFSDP FRM
0x0ae91a…12f7b6 [0x474]: Pad {f00=0x000a, f01=0x0050, f02=» FMEND | P* P* CURSOR HOME POSITION PFHOME FRMT P FSL P FKI 1 P FCOPY LSTR1 P FMEND P EJECT P* > P* FORMAT SECTION UPDATE FILE- VOLUME- AND SECTION-NAME P* ^ PFWFSFV FRMT h P FATTR .HI
0x0ae91a…12f7b6 [0x475]: Pad {f00=0x494e, f01=0x4c3d, f02=»1,ME,NEOI,NCLR T P FCOPY GSTR6C VOLUME NAME P FATTR .HIGH P FTAB 29 P FTEXT 'FILE ' P FCOPY =C'NAME' P FILLR ':',1 4 P FKI 41,APPL=20,ALPHA,MAXL=8,MINL=1,ME,NEOI,NCLR P FCOPY GSTR8A FILENAME L P FATTR .HIGH j P F
0x0ae91a…12f7b6 [0x476]: Pad {f00=0x4e45, f01=0x4f49, f02=» F P FCOPY GSTR6A x P FMEND @ NAME P FATTR .HIGH P FTAB 29 P FTEXT 'FILE ' P FCOPY =C'NAME' P FILLR ':',1 4 P FKI 41,APPL=20,ALPHA,MAXL=8,MINL=1,ME,NEOI,NCLR P FCOPY GSTR8A FILENAME L P FATTR .HIGH j
0x0ae91a…12f7b6 [0x477]: Pad {f00=0x3d31, f01=0x2c4d, f02=»E,NEOI F P FCOPY GSTR6A x P FMEND @ NAME P FATTR .HIGH P FTAB 29 P FTEXT 'FILE ' P FCOPY =C'NAME' P FILLR ':',1 4 P FKI 41,APPL=20,ALPHA,MAXL=8,MINL=1,ME,NEOI,NCLR P FCOPY GSTR8A FILENAME L P FATTR .HI
0x0ae91a…12f7b6 [0x478]: Pad {f00=0x0034, f01=0x0050, f02=» FMEL 'ZZ9',GBCD3I(W3) FORMAT SECTION SIZE ROWS d P FATTR .HIGH P FTEXT ' & COLUMNS:' 2 P FKI 44,APPL=5,NUM,MAXL=3,MINL=1,ME,NEOI,REWRT 6 P FMEL 'ZZ9',GBCD3I(W4) FORMAT SECTION SIZE COLUMNS P FATTR .HIGH > P FTAB 51 R " P FTEXT 'AUTO
0x0ae91a…12f7b6 [0x479]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x47a]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x47b]: Pad {f00=0x5c46, f01=0x5441, f02=»BLE ERFM07,MSGDEC 1-2 H PERFM07 FRMT p P FSL ( P FTEXT 'PRESS ENTER-KEY TO CONFIRM' P FMEND P* PMSGDEC FRMT P FSL @ P FTEXT 'DECORATIONS: "H" - HIGH INTENSITY, "U" - UNDERLINE' P FMEND 8 P* F P* FORM-FE
0x0ae91a…12f7b6 [0x47c]: Pad {f00=0x5c32, f01=0x335c, f02=»1-23 D ( P FTEXT 'ENTER NUMBER OF HEADLINES :' X " P FKI 29,APPL=9,NUM,MAXL=2,NEOI . P FMELI 'ZZ',GBCD3I(W10) NUMB OF HEADLINES P FMEND @ @ P FTEXT 'DECORATIONS: "H" - HIGH INTENSITY, "U" - UNDERLINE' P FMEND 8 P* F P* F
0x0ae91a…12f7b6 [0x47d]: Pad {f00=0x3129, f01=0x5c44, f02=»YNAMIC FIELD DECOR 4 2 P FTAB 42 b P FTEXT 'H = HIGH ' r P FCOPY =C'INTENSITY' P FNL P FNL P FTAB 4 & P FTEXT 'DEFAULT GUIDING MESSAGE:' P FNL & P FKI 1,APPL=10,ALPHA,MAXL=80,NEOI & P FCOPY GST80I(W1) GUIDING MESSAG
0x0ae91a…12f7b6 [0x47e]: Pad {f00=0x0100, f01=0x001d, f02=» < V = W ? j L X 8 Z < [ = ? j T ] 8 _ < ` = a ? j d b 8 c | e < f = g ?
0x0ae91a…12f7b6 [0x47f]: Pad {f00=0x0000, f01=0x013d, f02=» q ) O 9O : r ? j s " O ; t : u ? j v ; w ? j x + O < y 8 z | | # < } = ~ ' ? j
0x0ae91a…12f7b6 [0x480]: Pad {f00=0x000c, f01=0x0089, f02=» = ? j 7 j O =a O > ? j ( 7 j 0 O ? 8 & < = ? j 8 8 ' < 4 O ?
0x0ae91a…12f7b6 [0x481]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x482]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x483]: Pad {f00=0x2046, f01=0x534e, f02=»AME MODULE P* 4 PFNAMES FRMT > P FSL R P FBT VD82,FNA010 ^ P FNL 1 v P FNL 2 P FNL 3 P FNL 4 P FNL 5 P FNL 6 P FNL 7 P FNL 8 P FNL 9 P FNL 10 P FNL 11 P FNL
0x0ae91a…12f7b6 [0x484]: Pad {f00=0x5c46, f01=0x4e4c, f02=» 20 P FNL 21 ( P FNL 22 8 P FNL 23 H PFNA010 X P FATTR .HIGH f P FILLR ' ',1 z P FATTR .INV P FTEXT ' NAME SETTING' P FILLR ' ',1 P FATTR .NINV P FTEXT ' FIELD-ID: ' & P FKI 30,APPL=18,ALPHA,MAXL=4,N
0x0ae91a…12f7b6 [0x485]: Pad {f00=0x0008, f01=0x000c, f02=» P FNL 20 P FNL 21 ( P FNL 22 8 P FNL 23 H PFNA010 X P FATTR .HIGH f P FILLR ' ',1 z P FATTR .INV P FTEXT ' NAME SETTING' P FILLR ' ',1 P FATTR .NINV P FTEXT ' FIELD-ID: ' & P FKI 30,APPL=18,ALPHA,MA
0x0ae91a…12f7b6 [0x486]: Pad {f00=0x4d45, f01=0x5c50, f02=»ROC & P BG FSN982 JUMP IF MEMORY OVERFLOW P ATTFMT FHOME F P THOME . P MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 j ( P CLEAR LBOOL3 FALSE = FORWARD SEARCH P CLEAR LBOOLA FALSE=EOI KEY , P CBNE GBIN2,W1,FSN032 JMP IF NOT RETURN
0x0ae91a…12f7b6 [0x487]: Pad {f00=0x003e, f01=0x0050, f02=» XCOPY GBIN5,W1,W1,GBIN8,W1 RESTORE RETURN-ADRESS POINTER 2 P MOVE LBIN10,GBIN8 RESTORE STATIC FIELD DISPL. L P MOVE LBIN16,W1 P MOVE LBIN4,=X'0101' P MOVE LBIN14,W0 4 P PERF CURSET,LBIN4,LBIN1,SCRN ***CURSOR SETTING $ P TBF VD82,FSN0
0x0ae91a…12f7b6 [0x488]: Pad {f00=0x5c44, f01=0x5343, f02=» SCRN,BRW,LBIN1,LSTR9A,LBIN2 ERASE DISPLAY PFSN025 6 P MOVE LBIN1,W0 D 0 P PERF DISPLY,LBIN8 ***DISPLAY FORMAT SECTION Z PFSN032 & P TBT LBOOL8,FSN040 JUMP IF UPD OLD , P CBE GBIN2,W1,FSN040 JMP IF RETURN-KEY PFSN030 . P PERF SEAT
0x0ae91a…12f7b6 [0x489]: Pad {f00=0xffce, f01=0x0064, f02=»
0x0ae91a…12f7b6 [0x48a]: Pad {f00=0x0000, f01=0x0000, f02=» d
0x0ae91a…12f7b6 [0x48b]: Pad {f00=0x0000, f01=0x0000, f02=» d P* " P* FORMATS IN FSINIT MODULE P* 4 PFWFSIN FRMT > P FSL R P FNL ^ P FATTR .HIGH j P FTEXT 'WSM REL ' ~ P FCOPY RELNUM P FNL P FATTR .HIGH P FTAB 4 P FATTR .INV * P FBT LBOOL
0x0ae91a…12f7b6 [0x48c]: Pad {f00=0x0000, f01=0x017c, f02=» P FCOPY = d =C'SECTION ' P FATTR .INV P FNL 2 * P FATTR .HIGH 8 P FTAB 4 L P FTEXT 'VOLUME ' P FCOPY =C'NAME' t P FILLR ':',1 4 P FKI 18,APPL=19,ALPHA,MAXL=6,MINL=1,ME,NEOI,NCLR P FCOPY GSTR6C VOLUME NAME
0x0ae91a…12f7b6 [0x48d]: Pad {f00=0x2c4d, f01=0x494e, f02=»L=1,ME,NEOI,NCLR d ` P FCOPY GSTR8A FILENAME P FATTR .HIGH & P FTAB 54 : P FCOPY =C'SECTION' J P FILLR ' ',1 d P FATTR .HIGH x P FCOPY =C'NAME' P FILLR ':',1 P FATTR .HIGH . P FKI 69,APPL=2,ALPHA,MAXL=6,MINL=1,M
0x0ae91a…12f7b6 [0x48e]: Pad {f00=0x4b49, f01=0x5c31, f02=»1,APPL=3,NUM,MAXL=1,MI NL d NL=1,ME,NEOI t & P FMEL 'X',GBCD3I(W2) SECTION TYPE P FATTR .HIGH > P FTAB 24 R P FTEXT '1 = ' b P FCOPY =C'REMOVABLE' x P FTEXT ' WITH SCROLLING' P FNL P FATTR .HIGH P FTAB 24 P FTEXT
0x0ae91a…12f7b6 [0x48f]: Pad {f00=0x2720, f01=0x0003, f02=» d P FCOPY =C'FIXED' zMI d P FNL P FATTR .HIGH P FTAB 24 $ P FTEXT '4 = ' 4 P FCOPY =C'FIXED' J P FTEXT ' ON BOTTOM' b P FNL ~ P FATTR .HIGH P FTAB 24 P FTEXT '5 = ' P FCOPY =C'FIXED' P FTEXT '
0x0ae91a…12f7b6 [0x490]: Pad {f00=0x4e4c, f01=0x0004, f02=» h P FATTR .HIGH t P FTAB 4 d " P FTEXT 'MAXIMUM SIZE, LINES:' 2 P FKI 26,APPL=4,NUM,MAXL=3,MINL=1,ME,NEOI,REWRT . 4 P FMEL 'ZZ9',GBCD3I(W3) FORMAT SECTION SIZE ROWS d P FATTR .HIGH P FTEXT ' & COLUMNS:' 2 P FKI 44,APPL=5,N
0x0ae91a…12f7b6 [0x491]: Pad {f00=0x5445, f01=0x5854, f02=» 'AUTOMATIC ENTERING: ' b $ P FKI 72, d APPL=6,ALPHA,MAXL=1,NEOI ( P FCOPY GSTR1I(W1) AUTOMATIC ENTERING P FNL L P FATTR .HIGH X P FTAB 4 l $ P FTEXT 'DECIMAL POINT OR COMMA:' | & P FKI 28,APPL=21,ALPHA,MAXL=1,NEOI ( P FCOPY GST
0x0ae91a…12f7b6 [0x492]: Pad {f00=0x000c, f01=0x0050, f02=» FTAB 42 b P FTEXT 'B = BLINKING' r P F d FNL P FATTR .HIGH P FTAB 7 P FTEXT 'SCREEN BACKGROUND:' 0 P FATTR .HIGH T $ P FKI 27,APPL=7,ALPHA,MAXL=1,NEOI h * P FCOPY GSTR1I(W2) SCREEN BACKGROUND 1 P FATTR .HIGH $ P
0x0ae91a…12f7b6 [0x493]: Pad {f00=0x554e, f01=0x4445, f02=»RLINE' L P FNL j P FATTR .HIGH v P FTAB 7 d 7 P FTEXT 'STATIC ' P FCOPY =C'FIELDS:' " $ P FKI 23,APPL=8,ALPHA,MAXL=1,NEOI < * P FCOPY GSTR1I(W4) STATIC FIELD DECOR 1 d P FATTR .HIGH $ P FKI 25,APPL=8,ALPHA,MAXL=1,NEOI *
0x0ae91a…12f7b6 [0x494]: Pad {f00=0x4945, f01=0x4c44, f02=» DECOR 3 8 P FATTR .HIGH f $ P FKI 29,APPL=8,ALPHA,M AX d AXL=1,NEOI z * P FCOPY GSTR1I(W7) STATIC FIELD DECOR 4 P FATTR .HIGH @ P FTAB 42 T P FTEXT 'R = REVERSED IMAGE' d P FNL P FATTR .HIGH P FTAB 7 P FTEXT 'DYNAMI
0x0ae91a…12f7b6 [0x495]: Pad {f00=0x5220, f01=0x3120, f02=» ( P FATTR .HIGH X $ P FKI 25,APPL=8,ALPHA,MAXL=1,NEOI l , d , P FCOPY GSTR1I(W9) DYNAMIC FIELD DECOR 2 P FATTR .HIGH 4 $ P FKI 27,APPL=8,ALPHA,MAXL=1,NEOI H , P FCOPY GSTR1I(W10) DYNAMIC FIELD DECOR 3 p P FATTR .HIGH $ P FKI 29,APPL
0x0ae91a…12f7b6 [0x496]: Pad {f00=0x0018, f01=0x0050, f02=» FCOPY =C'INTENSITY' J P FNL f P FNL r P FATTR .HIGH ~ l @ d@ P FTAB 4 & P FTEXT 'DEFAULT GUIDING MESSAGE:' P FNL > P FATTR .HIGH J & P FKI 1,APPL=10,ALPHA,MAXL=80,NEOI ^ & P FCOPY GST80I(W1) GUIDING MESSAGE P FNL
0x0ae91a…12f7b6 [0x497]: Pad {f00=0x2027, f01=0x000a, f02=» 0 P FCOPY =C'INTENSITY' J P FNL f P FNL r P FATTR .HIGH ~ l d B 4 & P FTEXT 'DEFAULT GUIDING MESSAGE:' P FNL > P FATTR .HIGH J & P FKI 1,APPL=10,ALPHA,MAXL=80,NEOI ^ & P FCOPY GST80I(W1) GUIDING MESSAGE P F
0x0ae91a…12f7b6 [0x498]: Pad {f00=0x3d20, f01=0x4849, f02=»GH ' 0 P FCOPY =C'INTENSITY' J P FNL f P FNL r P FATTR .HIGH ~ l d
0x0ae91a…12f7b6 [0x499]: Pad {f00=0x2020, f01=0x2020, f02=» W d
0x0ae91a…12f7b6 [0x49a]: Pad {f00=0x0000, f01=0x0000, f02=» d
0x0ae91a…12f7b6 [0x49b]: Pad {f00=0x0000, f01=0x0000, f02=» d P* " P* FORMATS IN FSPARM MODULE P* 4 P* LITERAL CONSTANTS > P* ^ PFWFSPR FRMT h P FSL | P FATTR .HIGH P
0x0ae91a…12f7b6 [0x49c]: Pad {f00=0x0114, f01=0x0012, f02=» P FNL LINE =1 ( P FATTR .HIGH > P FTAB 4 R P FCOPY =C'SECTION' b P FILLR ':',1 | P F d FINP 13 P FCOPY GSTR6A SECTION NAME P FATTR .HIGH 2 P FTAB 22 F P FATTR .HIGH V P FTEXT 'TYPE:' j P FINP 28 & P FMEL
0x0ae91a…12f7b6 [0x49d]: Pad {f00=0x4c5c, f01=0x275a, f02=»ZZ',GBCD3I(W15) SECTION SIZE ROWS P FATTR .HIGH J P FTEXT ' X' ^ P FINP 42 r . P FMEL 'ZZZ',GB CD d CD3I(W16) SECTION SIZE COLS P FATTR .HIGH $ P FTAB 47 8 P FATTR .HIGH H P FTEXT 'VERSION:' P FINP 56 v & P FMEL 'ZZZ
0x0ae91a…12f7b6 [0x49e]: Pad {f00=0x5a5a, f01=0x272c, f02=»GBCD3I(W6) LINE NO. P FATTR .HIGH 6 P FNL LINE =2 J P FINP 1 ` $ P FCOPY GST80I(W2) PREVIOUS LINE d p P FNL LINE =3 P FINP 1 " P FCOPY GST80I(W3) CURRENT LINE . P FNL LINE = 4 T P FATTR .HIGH j P FINP 1 ~
0x0ae91a…12f7b6 [0x49f]: Pad {f00=0x454c, f01=0x442d, f02=»ID:' P FINP 16 " P FCOPY GSTR4A CURRENT FIELD ID 0 P FATTR .HIGH V P FTAB 23 j P FTEXT 'ORIGIN:' zE $ d $ P FKI 35,APPL=11,NUM,MAXL=1,NEOI * P FMEL 'Y',GBCD3I(W7) ORIGIN-MEDIA-TYPE , P FATTR .HIGH Z P FTAB 39 n P FTEXT
0x0ae91a…12f7b6 [0x4a0]: Pad {f00=0x0004, f01=0x0102, f02=» P FATTR .HIGH P FTEXT 'MUST ENTER:' & $ P FKI 72,APPL=6,ALPHA,MAXL=1,NEOI B " P FCOPY GSTR1I(W12) MUST ENTER j P F d FATTR .HIGH P FNL LINE = 6 P FATTR .HIGH * P FTAB 4 > P FTEXT 'MUST FILL:' N $ P FKI 16,APPL=6,ALPHA
0x0ae91a…12f7b6 [0x4a1]: Pad {f00=0x0024, f01=0x0050, f02=» FKI 35,APPL=6,ALPHA,MAXL=1,NEOI " P FCOPY GSTR1I(W14) AUTO E-O-I 0 P FATTR .HIGH V P FTAB 39 j P FATTR .HIGH z P F e TEXT 'DECIMAL ENTER:' $ P FKI 54,APPL=6,ALPHA,MAXL=1,NEOI $ P FCOPY GSTR1I(W18) DECIMAL ENTER F P FATTR .HI
0x0ae91a…12f7b6 [0x4a2]: Pad {f00=0x5c43, f01=0x4841, f02=»NGE PROTECT P FATTR .HIGH P FNL LINE =7 * P FATTR .HIGH @ P FTAB 4 T P FATTR .HIGH d P FTEXT 'DUPL.:' x & P F e FKI 13,APPL=25,ALPHA,MAXL=1,NEOI $ P FCOPY GSTR1I(W24) DUPLICATE Y/N * P FATTR .HIGH R & P FKI 16,APPL
0x0ae91a…12f7b6 [0x4a3]: Pad {f00=0x2f42, f01=0x3a27, f02=» & P FKI 35,APPL=13,ALPHA,MAXL=1,NEOI . P FCOPY GSTR1I(W16) AUTO SKIP/DUP OR BYPASS . P FATTR .HIGH ` P FTAB 39 t P FATTR .HIGH e P FTEXT 'PRINT POS.,' P FTEXT ' LINE & COL.:' $ : P FKI 65,APPL=15,NUM,MAXL=3,NEOI,REWRT,DUPL
0x0ae91a…12f7b6 [0x4a4]: Pad {f00=0x0008, f01=0x00e6, f02=» : P FKI 70,APPL=16,NUM,MAXL=3,NEOI,REWRT,DUPL=GBCD3I(W11) * P FMEL 'ZZZ',GBCD3I(W9) PR.OUT COLPOS. 8 P FNL LINE = 8 f P FATTR .HIGH | P F e FTAB 4 P FTEXT 'L/R ADJUST:' & P FKI 16,APPL=14,ALPHA,MAXL=1,NEOI , " P FCOPY GSTR1I(W1
0x0ae91a…12f7b6 [0x4a5]: Pad {f00=0x4154, f01=0x5452, f02=» .HIGH , P FCTL X'DE',LSTR89 DEFAULT VALUE FORMAT P FNL LINE= 10 . P FATTR .HIGH D P FTAB 4 X P FTEXT 'GUIDING MESSAGE:' h P FNL LI e LINE = 11 P FATTR .HIGH & P FKI 1,APPL=22,ALPHA,MAXL=80,NEOI & & P FCOPY GST80I(W5
0x0ae91a…12f7b6 [0x4a6]: Pad {f00=0x3320, f01=0x000a, f02=» P FATTR .HIGH & P FKI 1,APPL=23,ALPHA,MAXL=80,NEOI * P FCOPY GST80I(W6) APPLICATION MESSAGE . P FNL LINE = 14 P FATTR .HIGH t P FTAB 4 e P FTEXT 'VALIDATION:' $ P FKI 16,APPL=6,ALPHA,MAXL=1,NEOI $ " P FCOPY GSTR1I(
0x0ae91a…12f7b6 [0x4a7]: Pad {f00=0x312c, f01=0x4e45, f02=»OI , P FCOPY GSTR1I(W21) MANDATORY VALIDATION P FNL LINE = 15 P FINP 1 6 , P FMEL 'YYYY',LINNO(W1) BASIC LINE NUMBER F P FATTR .HIGH v P FILLR ' e ' ',1 2 P FKI 6,APPL=24,ALPHA,MAXL=75,MINL=1,NEOI,CTAB , P FCOPY BASLIN(W1
0x0ae91a…12f7b6 [0x4a8]: Pad {f00=0x00cc, f01=0x0010, f02=» P FILLR ' ',1 2 P FKI 6,APPL=24,ALPHA,MAXL=75,MINL=1,NEOI,CTAB , P FCOPY BASLIN(W2) BASIC LINE VALIDATION * P FNL LINE = 17 Z P FINP 1 r , P FMEL 'YYYY',L IN e INNO(W3) BASIC LINE NUMBER P FATTR .HIGH " P FILLR ' ',1 6 2 P FKI
0x0ae91a…12f7b6 [0x4a9]: Pad {f00=0x002c, f01=0x0050, f02=» FMEL 'YYYY',LINNO(W4) BASIC LINE NUMBER P FATTR .HIGH P FILLR ' ',1 2 P FKI 6,APPL=24,ALPHA,MAXL=75,MINL=1,NEOI,CTAB 0 , P FCOPY BASLIN(W4) BASIC LINE VALIDATION ,L W e f P FNL LINE = 19 P FINP 1 , P FMEL 'YYYY',LINNO(W5) B
0x0ae91a…12f7b6 [0x4aa]: Pad {f00=0x295c, f01=0x4241, f02=»SIC LINE VALIDATION P FNL LINE = 20 P FINP 1 , P FMEL 'YYYY',LINNO(W6) BASIC LINE NUMBER P FATTR .HIGH F P FILLR ' ',1 Z 2 P FKI 6,APPL=24,ALPHA,MAXL=75,MINL= 1, e 1,NEOI,CTAB n , P FCOPY BASLIN(W6) BASIC LINE VALIDATION
0x0ae91a…12f7b6 [0x4ab]: Pad {f00=0x5c36, f01=0x2c41, f02=»PPL=24,ALPHA,MAXL=75,MINL=1,NEOI,CTAB , P FCOPY BASLIN(W7) BASIC LINE VALIDATION P FNL LINE = 22 * P FINP 1 B , P FMEL 'YYYY',LINNO(W8) BASIC LINE NUMBER R P FATTR .HIGHL= e P FILLR ' ',1 2 P FKI 6,APPL=24,ALPHA,MAXL=75,MIN
0x0ae91a…12f7b6 [0x4ac]: Pad {f00=0x414e, f01=0x444c, f02=»E DEFAULT VALUE P* ALPHANUMERIC P* PFWSPAN FRMT P FKI 1,APPL=17,ALPHA,MAXL=1 ( P FCOPY GSTR80 DEFAULT VALUE ALPHANUM > P FMEND j P* x ( P* FORMAT TO H e HANDLE DEFAULT VALUE P* NUMERIC P
0x0ae91a…12f7b6 [0x4ad]: Pad {f00=0x0011, f01=0x00ba, f02=» P* 8 P* FORMAT TO HANDLE <OVE>:= GO DIRECT TO FIELD-NAME P* ALPHANUMERIC P* " P* , PFWSOVE FRMT 6 P FSL J P FBT VD82,FWS100 JMP IF VD82 V P FNL z P FNL TO e P FNL P FNL P FNL P FNL (
0x0ae91a…12f7b6 [0x4ae]: Pad {f00=0x0050, f01=0x5c46, f02=»NL P FNL P FNL P FNL P FNL P FNL PFWS100 P FATTR .HIGH P FILLR ' ',1 " P FATTR .INV 6 P FTEXT ' GO DIRECT' J P FILLR ' ',1 f P FATTR .NINV z P F BT e BT OVBOOL,FWS120 P FTEXT ' FIELD-
0x0ae91a…12f7b6 [0x4af]: Pad {f00=0x4150, f01=0x504c, f02=»=28,ALPHA,MAXL=4,NEOI P FCOPY NSTR4A PFWS140 P FMEND P* & P* FORMAT HOME CONTROLLED CURSOR P* 8 PFHOME FRMT B P FSL T P FKI 1 ` P FCOPY LSTR1 n P FMEND P F @ @ e@ @ L,FWS120 P FTEXT '
0x0ae91a…12f7b6 [0x4b0]: Pad {f00=0x4b49, f01=0x5c32, f02=»7,APPL=28,ALPHA,MAXL=4,NEOI P FCOPY NSTR4A PFWS140 P FMEND P* & P* FORMAT HOME CONTROLLED CURSOR P* 8 PFHOME FRMT B P FSL T P FKI 1 ` P FCOPY LSTR1 n P FMEND P F e L,FWS120 P FTEXT
0x0ae91a…12f7b6 [0x4b1]: Pad {f00=0x0026, f01=0x0050, f02=» FKI 27,APPL=28,ALPHA,MAXL=4,NEOI P FCOPY NSTR4A PFWS140 P FMEND P* & P* FORMAT HOME CONTROLLED CURSOR P* 8 PFHOME FRMT B P FSL T P FKI 1 ` P FCOPY LSTR1 n P FMEND P F e P FCOPY RELNUM
0x0ae91a…12f7b6 [0x4b2]: Pad {f00=0x494e, f01=0x5620, f02=» P FTEXT ' WSM CREATOR TOOLS ' P FILLR X'80',1 P FNL 3 P FATTR .HIGH P FTAB 4 P FTEXT 'FUNCTION SELECTION:' " P FKI 25,APPL=1,NUM,MAXL=1,NEOI : P FMEL 'Z',GBCD3I(W1) ` P FATTR .HIGH | P F e FTAB 30 P F
0x0ae91a…12f7b6 [0x4b3]: Pad {f00=0x425c, f01=0x3330, f02=» P FTEXT '2 = ' P FCOPY =C'NEW ' P FCOPY =C'FORM ' P FCOPY =C'SECTION' P FNL P FATTR .HIGH P FTAB 30 $ P FTEXT '3 = ' 4 P FCOPY =C'OLD ' J P FCOPY =C'FORM ' b P FCOPY =C'DEFINITION' @ e@ z P FNL
0x0ae91a…12f7b6 [0x4b4]: Pad {f00=0x007e, f01=0x0008, f02=» P FNL P FMEND P END @ C'NEW ' P FCOPY =C'FORM ' P FCOPY =C'SECTION' P FNL P FATTR .HIGH P FTAB 30 $ P FTEXT '3 = ' 4 P FCOPY =C'OLD ' J P FCOPY =C'FORM ' b P FCOPY =C'DEFINITION' e
0x0ae91a…12f7b6 [0x4b5]: Pad {f00=0x494f, f01=0x4e27, f02=» ~ P FNL P FMEND P END @ C'NEW ' P FCOPY =C'FORM ' P FCOPY =C'SECTION' P FNL P FATTR .HIGH P FTAB 30 $ P FTEXT '3 = ' 4 P FCOPY =C'OLD ' J P FCOPY =C'FORM ' b P FCOPY =C'DEFINITION' K e
0x0ae91a…12f7b6 [0x4b6]: Pad {f00=0x4154, f01=0x4120, f02=»TABLE 6PRESS <ENTER> TO CONFIRM OR <PRINT> TO CONFIRM & PRINT +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT, % <DEL> = DELETION, <DUP> = DUPLICATE. / R ^$ ^ ^ % ^ * ^" 0 ^# 5 ^( 7 T A ^ F ^! I S ^% T } +
0x0ae91a…12f7b6 [0x4b7]: Pad {f00=0xe1cd, f01=0x1fc4, f02=» WSM CREATOR TOOLS FUNCTION SELECTION: 1 = 8 = E 2 = 8 = A 3 = 9 = E 4 = 9 = A C POSITION FIELD ORG DATA MUST- AUTO DEC CHANGE 0 DUPLICATE AUTO- L/R PRINTOUT MAND DECORATIONS
0x0ae91a…12f7b6 [0x4b8]: Pad {f00=0x1f40, f01=0x2126, f02=» " $ & ( * , . 0 2 3 4 5 6 7 8 9 : ; < > @ B D G K O S W a g m t {
0x0ae91a…12f7b6 [0x4b9]: Pad {f00=0x0027, f01=0x0009, f02=» / 8 A J S ] g s 4 N h , K " k " " $ % % & ? & e & ( ) - 6 / 6 e 9 U V ) ] @ N@' S{ rf| se| sy}2td R : <<H P < :
0x0ae91a…12f7b6 [0x4ba]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4bb]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4bc]: Pad {f00=0x425c, f01=0x4346, f02=»W,CBW,CUP,CDN, 1-4 C X P INS,DEL,CLR,PLS, 5-8 C P CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP,SPC, 17-20 C P BTB 21 @
0x0ae91a…12f7b6 [0x4bd]: Pad {f00=0x3136, f01=0x5c4b, f02=»TAB CFW,CBW,CUP,CDN, 1-4 C X P INS,DEL,CLR,PLS, 5-8 C P CAN,RET,ENT,BSP, 9-12 C P SDS,LIN,ALL,FNC, 13-16 C P PRT,CRL,HLP,SPC, 17-20 C P BTB 21 @
0x0ae91a…12f7b6 [0x4be]: Pad {f00=0x5432, f01=0x2c4c, f02=»IST J P INCLUDE KEYT3,LIST f P EJECT P* : P* THIS IS THE MAIN-LOOP OF THE WSM CREATOR TOOLS P* PWSMCRT PROC < P CALL GETIND,BPOOL(W1),LPBIN,DPBIN ---GET LENGTH AND DIM ( P SUB LPBIN,W2 GIVING OVERFLOW LIMIT 6 , P D
0x0ae91a…12f7b6 [0x4bf]: Pad {f00=0x4e2c, f01=0x4c42, f02=»IN1 ---GET LENGTH 8 2 P CALL GETIND,PICTUR,PLBIN,LBIN1 ---GET LENGTH n 2 P CALL GETIND,VALBUF,VBBIN,LBIN1 ---GET LENGTH & P CALL ICLEAR,GSTR6C ---CLEAR ITEM & P CALL ICLEAR,GSTR8A ---CLEAR ITEM P* . P* 8 P* GET TYPE OF SCREEN B
0x0ae91a…12f7b6 [0x4c0]: Pad {f00=0x5738, f01=0x305c, f02=»BUFFERLENGTH:=80 > $ P DSC SCRN,BRD,LBIN1,LSTR81,LBIN2 f P BOK WSM00A IF VD82 & P MOVE SYSLFC,SCRNFC SAME FILE CODE . P CALL CHANFC,SYSL,SYSLFC CHANGE FILE CODE $ P MOVE LBIN1,=X'0080' CURSER-MODE ( P DSC SCRN,TRP,LBIN1 SET CURSOR MODE .
0x0ae91a…12f7b6 [0x4c1]: Pad {f00=0x5553, f01=0x5420, f02=»NUMBER OF COLUMNS 4 P* b P* DEFINE PHYSICAL SCREEN l P* 2 P CALL GETIND,PHYSCR,LBIN2,LBIN1 ---GET LENGTH ( P MOVE LBIN1,=X'0C81' WORKITEM:=0C81 : P DSC SYSL,TRP,LBIN1,PHYSCR,LBIN2 DEFINE PHYSICAL SIZE , P DSC KEYB,CED,SCRNFC CHA
0x0ae91a…12f7b6 [0x4c2]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4c3]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4c4]: Pad {f00=0x4953, f01=0x204e, f02=»OT INCLUDED P* J * PKEYT33 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C T " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,NOK,BTB,NOK,PRT, 11-15 C P NOK,NOK,ENT 16-18 @
0x0ae91a…12f7b6 [0x4c5]: Pad {f00=0x532d, f01=0x4b45, f02=»Y IS NOT INCLUDED P* J * PKEYT33 KTAB CFW,CBW,INS,DEL,NOK, 1-5 C T " P CLR,SKP,PLS,CAN,RET, 6-10 C " P PLS,NOK,BTB,NOK,PRT, 11-15 C P NOK,NOK,ENT 16-18 @
0x0ae91a…12f7b6 [0x4c6]: Pad {f00=0x3b20, f01=0x0002, f02=» $ P$FRAME; 0 P @ 0 P CF A14,RLEASE RELEASE RESERVED POOL UNITS & H P CLEAR PAR BLOCK & WS:TCA | P P GET NEW FORMAT DEF CODE P , P LDR A1,A13 FDC NAME TO PF HANDLER AREA P ADKL A1,PB:FOR P ST A1,TC:PFB+PF:NAM,A13
0x0ae91a…12f7b6 [0x4c7]: Pad {f00=0x5c4c, f01=0x4452, f02=» A8,A13 A8 := WSM FILE ECB ADDRESS P CF A14,W:POOL READ NEW FDC N $ P RF(NZ) FDCERR READ UNSUCCESSFUL r P EJECT & P INITIATE SECTION SEQUENCE TABLE P LD A1,TC:SST,A13 P ST A1,TC:SST+4,A13 P SET SCREEN SIZE P LDKL A1,SCR
0x0ae91a…12f7b6 [0x4c8]: Pad {f00=0x5552, f01=0x4e20, f02=»CODE & P ABL W:ENDR ABNORMAL END OF WOPEN * P END T@ `W FDC N $ P RF(NZ) FDCERR READ UNSUCCESSFUL r P EJECT & P INITIATE SECTION SEQUENCE TABLE P LD A1,TC:SST,A13 P ST A1,TC:SST+4,A13 P SET SCREEN SIZE P LDKL
0x0ae91a…12f7b6 [0x4c9]: Pad {f00=0x4554, f01=0x2052, f02=»ETURN CODE & P ABL W:ENDR ABNORMAL END OF WOPEN * P END T@ `W FDC N $ P RF(NZ) FDCERR READ UNSUCCESSFUL r P EJECT & P INITIATE SECTION SEQUENCE TABLE P LD A1,TC:SST,A13 P ST A1,TC:SST+4,A13 P SET SCREEN SIZE P
0x0ae91a…12f7b6 [0x4ca]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4cb]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x4cc]: Pad {f00=0x0050, f01=0x5c49, f02=»DENT WSMPRT REL=2.3,830509,870155940230 P 6 F P***************************************************************** > P* P* * P* LATEST UPDATE=830422 MADE BY CJ P* P* HISTORY= < P* 830422/CJ ADAPTION O
0x0ae91a…12f7b6 [0x4cd]: Pad {f00=0x0066, f01=0x0190, f02=»WSMDDV P PDIV P EXPROC WSMERR,PKTAB,PLIT P ENTRY ATTPRT > P ENTRY DETPRT T P ENTRY PRTCHK j P EXT CHANFC P EXT ICLEAR P EXT TESTB ASSRUT TEST BIT P* P* P* $ PCED EQU X'B7' CHANGE ECHO-DEVICE
0x0ae91a…12f7b6 [0x4ce]: Pad {f00=0x0000, f01=0x0000, f02=» f ,LIST P INCLUDE KEYT5,LIST P EJECT * L P************************************************************************ 8 P* L P*ATTPRT IS A ROUTINE TO CHECK WHICH PRINT-DEVICE <GP> OR <LP> THAT IS OK B P* IF BOTH IS OK THE OPERATOR
0x0ae91a…12f7b6 [0x4cf]: Pad {f00=0x524f, f01=0x4320, f02=»T1 f PPRT000 P MOVE LBIN2,W0 P MOVE PRNTFC,=X'30' , ( P CALL CHANFC,PRNT,PRNTFC GP-FILECODE H P PERF PRTCHK CHECK IF GP OK t P TBF LBOOLE,PRT36 P MOVE PRNTFC,=X'36' ( P CALL CHANFC,PRNT,PRNTFC LP-FILECODE P PER
0x0ae91a…12f7b6 [0x4d0]: Pad {f00=0x5827, f01=0x3336, f02=»' vT1 f P CALL CHANFC,PRNT,PRNTFC P PERF PRTCHK $ 4 P TBF LBOOLE,NONOK JUMP IF LP AND GP BOTH NOT OK 8 P B PRT180 p P EJECT PBOTHOK ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 $ P TBF VD82,PRT010 JMP IF NOT VD82 ( P MOVE
0x0ae91a…12f7b6 [0x4d1]: Pad {f00=0x4152, f01=0x0004, f02=» : P MOVE LS f TR81,=C'++WHICH PRINT-DEVICE <GP> OR <LP> ? ' P MOVE LSTR1,=X'1B' 6 P MOVE TB7BIN1,=W'36' P 8 P XCOPY LSTR81,TB7BIN1,W1,LSTR1,W0 LOAD CONTROL-CODE l P ADD TB7BIN1,W1 ADJUST . P DSC SYSL,6,LBIN3 SET CURSOR ON LAST LINE
0x0ae91a…12f7b6 [0x4d2]: Pad {f00=0x5545, f01=0x5354, f02=»ION ON LAST LINE V f PPRT015 P MOVE LBIN3,W2 LENGTH:=2 $ P KI KEYB,LSTR2,KEYT1,LBIN3,LBIN2 2 P BL PRT050 Z * P CBE LBIN2,W2,BOTHOK JMP IF CLEAR-KEY l P SUB LBIN2,W4 P B PRT060 P EJECT PPRT050 P CBE LSTR2,='L
0x0ae91a…12f7b6 [0x4d3]: Pad {f00=0x5753, f01=0x4d45, f02=»RR,KEYT5,=W'42' ***ERROR M f ESSAGE l P IB LBIN2,BOTHOK PPRT060 & ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 4 $ P TBF VD82,PRT075 JMP IF NOT VD82 ` ( P MOVE LBIN3,=X'0101' ROW:=01,COL:=01 , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE PPR
0x0ae91a…12f7b6 [0x4d4]: Pad {f00=0x000a, f01=0x0050, f02=»PRT100 p P MOVE LBIN2,W0 ~ f ( P MOVE LBIN3,=X'1801' ROW:=24 COL:=01 $ P TBF VD82,PRT105 JMP IF NOT VD82 0 ( P MOVE LBIN3,=X'0101' ROW:=01,COL:=01 X , P DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVICE PPRT105 . P DSC SYSL,6,LBIN3 SET CURSOR O
0x0ae91a…12f7b6 [0x4d5]: Pad {f00=0x000e, f01=0x0050, f02=» B PRT170 j PPRT160 | P MOVE f PRNTFC,=X'36' PPRT170 P SET LBOOLE $ P CALL CHANFC,PRNT,PRNTFC 8 PPRT180 X P DSC PRNT,ATTACH,W20 f P BOK PRT200 , P MOVE LBIN4,=W'36' 'PRINTER OCCUPIED' P PERF DETPRT P
0x0ae91a…12f7b6 [0x4d6]: Pad {f00=0x0009, f01=0x015a, f02=» L P**************************************** f ******************************** h P* ( F P* PRTCHK IS A STANDARD ROUTINE TO CHECK IF PRINT-DEVICE IS OK 2 , P* OUTPUT IS LBOOLE , 1=OK , 0=NOT OK | P* L P******************************
0x0ae91a…12f7b6 [0x4d7]: Pad {f00=0x4520, f01=0x4953, f02=» OK 0 P MOVE LBIN4,W0 j PCHK005 P D f ELAY W1 WAIT 0.1 S P TESTIO PRNT P BZ CHK010 PRINTER OK . P ADD LBIN4,W1 L ( P CBE LBIN4,W10,NOTOK PRINTER NOT OK b P B CHK005 PCHK010 P WAIT PRNT P XSTAT PRNT,LB
0x0ae91a…12f7b6 [0x4d8]: Pad {f00=0x000b, f01=0x0136, f02=» PNOTOK P ABORT PRNT j P B OUT ~ P EJE f CT POK P SET LBOOLE P CMP W0,W0 CLEAR CONDREG ( POUT L P RET X P PEND d P EJECT r P* L P**************************************************************
0x0ae91a…12f7b6 [0x4d9]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»************************************** 0 PDETPRT PROC f@J P DSC PRNT,DETACH,W0 P RET P PEND , P END :@ F POUT L P RET X P PEND d P EJECT r P* L P********************************************************
0x0ae91a…12f7b6 [0x4da]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»******************************************** 0 PDETPRT PROC f
0x0ae91a…12f7b6 [0x4db]: Pad {f00=0x0000, f01=0x0000, f02=» f
0x0ae91a…12f7b6 [0x4dc]: Pad {f00=0x0000, f01=0x0000, f02=» f , & I n g / 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3
0x0ae91a…12f7b6 [0x4dd]: Pad {f00=0x006b, f01=0x0084, f02=» k ^ k Z l l l j l l r l X m m [ n { n a o _ o ` o o e o b p p h q q q q z f z q m r s o s p s q s t u v x | x x x y y v y z x z { { ~ J
0x0ae91a…12f7b6 [0x4de]: Pad {f00=0x00b4, f01=0x009f, f02=» b > f f s 5 :
0x0ae91a…12f7b6 [0x4df]: Pad {f00=0x011f, f01=0x0115, f02=» ! # 7 ! W ! ! $ " ( " % # " # / # # ' # * $ $ 0 % 1 % & . ( ( ` ) ] f ] + 3 9 A 9 4 ; = ; ? < @ < 6 < 8 = 9 > < > ? C ? v ? M ? K ? D ? @ F A G A L A I A O B N B B P C Q C V C C D e D D q D S D R E T E U E u F s F Z
0x0ae91a…12f7b6 [0x4e0]: Pad {f00=0x0179, f01=0x0173, f02=» s t t R u ~ v v U w w W w w w w x y ~ Q ~ ~ f u
0x0ae91a…12f7b6 [0x4e1]: Pad {f00=0x01bb, f01=0x01dc, f02=» f # . $ % } ! A #
0x0ae91a…12f7b6 [0x4e2]: Pad {f00=0x0000, f01=0x020c, f02=» L M K E B _ G S O J P N X T ^ Z V Y a 6 { g
0x0ae91a…12f7b6 [0x4e3]: Pad {f00=0x0000, f01=0x0000, f02=» g
0x0ae91a…12f7b6 [0x4e4]: Pad {f00=0x0000, f01=0x0000, f02=» g@ P* 2 P* KEYTABLE TO BE USED IN CONFIRMATION STATUS P* D , P* BY USING THE ENTER-KEY = CONFIRMED N P*
0x0ae91a…12f7b6 [0x4e5]: Pad {f00=0x0000, f01=0x0000, f02=» g 2 P* KEYTABLE TO BE USED IN CONFIRMATION STATUS P* D , P* BY USING THE ENTER-KEY = CONFIRMED N
0x0ae91a…12f7b6 [0x4e6]: Pad {f00=0x0000, f01=0x0000, f02=» LI g LID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED
0x0ae91a…12f7b6 [0x4e7]: Pad {f00=0x4e20, f01=0x4649, f02=»LE , HMES WHEN COUT NOT GIVEN HMES 7 DATE UPDATING DATE 8 < HMES ANY COMBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VA g 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 8 HMES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF
0x0ae91a…12f7b6 [0x4e8]: Pad {f00=0x5552, f01=0x4154, f02=»ION FILE , HMES WHEN COUT NOT GIVEN HMES 7 DATE UPDATING DATE 8 < HMES ANY COMBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VA g
0x0ae91a…12f7b6 [0x4e9]: Pad {f00=0x0000, f01=0x0000, f02=» g
0x0ae91a…12f7b6 [0x4ea]: Pad {f00=0x0000, f01=0x0000, f02=» W g
0x0ae91a…12f7b6 [0x4eb]: Pad {f00=0x0000, f01=0x0000, f02=» g
0x0ae91a…12f7b6 [0x4ec]: Pad {f00=0x0000, f01=0x0000, f02=» g . P IDENT WSMCAL REL=2.3,841201,870155940230 P 6 P > H P**********
0x0ae91a…12f7b6 [0x4ed]: Pad {f00=0x2a20, f01=0x2020, f02=»THIS ROUTINE IS USED TO CALCULATE MULTIPLICATIONS, DIVISIONS D P* AND SHIFTS TO AVOID THE USE OF THE SLOW CREDIT INSTRUCTIONS P* MUL AND DIV. f P* ~ " P* THE g ROUTINES FOR THIS ARE: P* P* ( , P* W X M U L MULTI
0x0ae91a…12f7b6 [0x4ee]: Pad {f00=0x00a4, f01=0x0006, f02=» P* . P* W X S L L SHIFT BIN LOGICAL LEFT P* 4 P* W X C 1 R ONES COMPLEMENTE ON A BINARY P* T H P************************************************** g ***************** ^ P EJECT P ( P ENTRY WXMUL 0 P
0x0ae91a…12f7b6 [0x4ef]: Pad {f00=0x4354, f01=0x0002, f02=» P B P************************************************************* P* " P* W X M U L , P* B P* MULTIPLY TWO BINARIES L P* n P* CALL INTERFACE: x g P* 0 P* CALL WXMUL,<OPER1>,<OPER2>,<RESULT>
0x0ae91a…12f7b6 [0x4f0]: Pad {f00=0x3d20, f01=0x4f50, f02=»ER1 * OPER2 P* F P***************************************************************** P EJECT 0 P > P* F P* GET THE PARAMETERS P P* n P x PWXMUL EQU * g P CF A14,PARMS P P* " " P* PERFORM
0x0ae91a…12f7b6 [0x4f1]: Pad {f00=0x00bc, f01=0x000e, f02=» P SUR A1,A1 P LDR A2,A4 P MUR A6 , P SLL A1,15 GET THE MOST SIGNIFICANT BIT " P ORR A2,A1 INSERT INTO RESULT ( P STR A2,A9 N P ` PRETURN EQU * h P ABL I:RT1 | P E g JECT P B P******************************
0x0ae91a…12f7b6 [0x4f2]: Pad {f00=0x4e54, f01=0x4552, f02=»FACE: P* 6 P* CALL WXDIV,<DIVIDEND>,<DIVISOR>,<RESULT> P* P* WHERE P* * P* <DIVIDEND> = DIVIDEND 4 P* <DIVISOR> = DIVISOR X 2 P* <RESULT> = RES g ULT = DIVIDEND / DIVISOR z P* D P**
0x0ae91a…12f7b6 [0x4f3]: Pad {f00=0x0006, f01=0x00b0, f02=» P PWXDIV EQU * P CF A14,PARMS P P* P* PERFORM THE DIVISION P* P* A4 = DIVIDEND ( P* A6 = DIVISOR B P* A9 = ADDRESS TO RESULT Z P* | P P L g DR A1,A4 $ P SRL A1,15 MOST SIGNIF
0x0ae91a…12f7b6 [0x4f4]: Pad {f00=0x000a, f01=0x0050, f02=» EJECT P B P************************************************************* P* P* W X S L R P* , " P* SHIFT A BIN LOGICAL RIGHT 6 P* P* CALL INTERFACE: f P* . P* g CALL WXSLR,<BIN1>,<BIN2>,<R
0x0ae91a…12f7b6 [0x4f5]: Pad {f00=0x2052, f01=0x4947, f02=»HT 1-15 . P* <RESULT>= RESULT AFTER SLR EXECUTED P* D P**************************************************************** P EJECT > P L P* T P* SHIFT LOGICAL RIGHT ^ P* ~ P P g SRLINS SRL A4,0 P
0x0ae91a…12f7b6 [0x4f6]: Pad {f00=0x4d20, f01=0x5448, f02=»E SHIFT P* P* A4 = BIN1 P* A6 = BIN2 P* A9 = ADDRESS TO RESULT P* P P ANK A6,/F A6:=0-15 * P LD A2,SRLINS A2= INSTRUCTION TO PATCH : " P ORR A2,A6 CREATE INSTRUCTION h P S g T A2,INS1 P E
0x0ae91a…12f7b6 [0x4f7]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»************* n P* P* W X S L L P* P* SHIFT A BIN LOGICAL LEFT P* P* CALL INTERFACE: P* ( . P* CALL WXSLL,<BIN1>,<BIN2>,<RESULT> 2 P* d P* WHERE n P* 2 P* < g BIN1> = BINA
0x0ae91a…12f7b6 [0x4f8]: Pad {f00=0x0090, f01=0x0044, f02=» P**************************************************************** P EJECT P P* P* SHIFT LOGICAL LEFT P* P * PSLLINS SLL A4,0 2 P J P* R P* GET THE PARAMETERS P* z P PWXSL g L EQU *
0x0ae91a…12f7b6 [0x4f9]: Pad {f00=0x2020, f01=0x4139, f02=» = ADDRESS TO RESULT P* P P ANK A6,/F A6:=0-15 * P LD A2,SLLINS A2= INSTRUCTION TO PATCH " P ORR A2,A6 CREATE INSTRUCTION P ST A2,INS2 0 P EXK 0 D PINS2 EQU *-2 R P STR A4,A9 f P RB RETURN x P EJECT g
0x0ae91a…12f7b6 [0x4fa]: Pad {f00=0x454e, f01=0x5420, f02=»ON A BINARY x P* P* CALL INTERFACE: P* P* CALL WXC1R,<BIN> P* P* WHERE P* 6 P* <BIN> = BINARY YOU WISH TO ONES-COMPLEMENT P* P B P******************************************************
0x0ae91a…12f7b6 [0x4fb]: Pad {f00=0x425c, f01=0x5245, f02=»TURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EVA0 GET PARM1 P LDR* A4,A9 P CF A14,I:EVA0 GET PARM2 " P LDR* A6,A9 B P CF A14,I:EVA0 GET PARM3 V P RTN A14 v P P E
0x0ae91a…12f7b6 [0x4fc]: Pad {f00=0x000e, f01=0x0050, f02=» RB RETURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EVA0 GET PARM1 P LDR* A4,A9 P CF A14,I:EVA0 GET PARM2 " P LDR* A6,A9 B P CF A14,I:EVA0 GET PARM3 V P RTN A14 v P
0x0ae91a…12f7b6 [0x4fd]: Pad {f00=0x4520, f01=0x000e, f02=» ^ P RB RETURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EVA0 GET PARM1 P LDR* A4,A9 P CF A14,I:EVA0 GET PARM2 " P LDR* A6,A9 B P CF A14,I:EVA0 GET PARM3 V P RTN A14 v
0x0ae91a…12f7b6 [0x4fe]: Pad {f00=0x2020, f01=0x2020, f02=»
0x0ae91a…12f7b6 [0x4ff]: Pad {f00=0x2020, f01=0x2020, f02=»
0x0ae91a…12f7b6 [0x500]: Pad {f00=0x2020, f01=0x2020, f02=»
0x0ae91a…12f7b6 [0x501]: Pad {f00=0x2020, f01=0x2020, f02=»
0x0ae91a…12f7b6 [0x502]: Pad {f00=0x2020, f01=0x2020, f02=»
0x0ae91a…12f7b6 [0x503]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x504]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x505]: Pad {f00=0x3d57, f01=0x534d, f02=»:CREA & PLIB X PKOM @LIBR.CREOBJ d PLEN | PPEND P%%A72 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:CREA PLIB PKOM @LIBR.CREOBJ PLEN PPEND @ "
0x0ae91a…12f7b6 [0x506]: Pad {f00=0x4f2c, f01=0x5553, f02=»ID=WSM:CREA & PLIB X PKOM @LIBR.CREOBJ d PLEN | PPEND P%%A72 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:CREA PLIB PKOM @LIBR.CREOBJ PLEN PPEND @ "
0x0ae91a…12f7b6 [0x507]: Pad {f00=0x4544, f01=0x0d2c, f02=»FSPARM, * 84-10-01 WSMCRT,WSMDDV UNPACK,FSNAME,WSMCRT HI","MESS"&WA01(4:1)-OK INTERTASK COMMUNICATION IMPLEMENTED LINE " O CREBUG 84-09-25 FSNAME MODIFICATION OF <CAN>-KEY IN NAMESETTING ERS FWFSPS 840921
0x0ae91a…12f7b6 [0x508]: Pad {f00=0x4f4c, f01=0x5645, f02=»D ED ,FSPARM, * 84-08-21 WSMDDV VBOOL9 DEFINED FOR UDFVAL CONC ERROR &WA01(4:1)-OK 84-04-02 PRNTFS <PRINT> VIA VD47/81 NOT OK - SOLVED LINE " O CREBUG 84-09-25 FSNAME MODIFICATION OF <CAN>-KEY IN NAMESETTING ERS FWFSPS ****
0x0ae91a…12f7b6 [0x509]: Pad {f00=0x0102, f01=0x01a7, f02=» 7 9
0x0ae91a…12f7b6 [0x50a]: Pad {f00=0x0204, f01=0x0139, f02=» 9 9 9 : : $ : 5 : : ; ; ; ; f < < < = E = = > > ? ? @ @ @ A C C ! D 4 D E E E A E E E E * G c G G e H 6 N - O . P N P b P Q 2 Q Q S S S ; S S S S U U U C U V V V W B ` ` D
0x0ae91a…12f7b6 [0x50b]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x50c]: Pad {f00=0x0000, f01=0x0000, f02=»
0x0ae91a…12f7b6 [0x50d]: Pad {f00=0x4f56, f01=0x5641, f02=»L REL=2.3,850321,870155940230 P R L P************************************************************************ Z P* , P* LATEST UPDATE 850318 MADE BY JE P* P* HISTORY= P* J P*
0x0ae91a…12f7b6 [0x50e]: Pad {f00=0x2020, f01=0x2020, f02=» 850222/HL CREATION P* < L P*********************************************************************** F P DDUM WSMDDV P PDIV P ENTRY MOVVAL B P EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL LIMI
0x0ae91a…12f7b6 [0x50f]: Pad {f00=0x2a2a, f01=0x2a2a, f02=»******************************************************** P* N J P* FUNCTION: MOVE UNALTERED VALIDATION OBJECT DIRECTLY FROM INPUT POOL X ( P* UNITS TO OUTPUT POOL UNITS. H P* FROM OBJVAL THIS ROUTINE IS CALLED IF VALPTR<>0 (OLD VALID.
0x0ae91a…12f7b6 [0x510]: Pad {f00=0x5041, f01=0x524d, f02=» (ROUTINE INFILV) AND l J P* POSSIBLY SET IN VALPRC AT EVERY CHANGE OF THE VALID. ROUTINE. & J P* VALPTR IS INITIATED TO 0 IN ROUTINE INFILV, AND SET IN UNPACK t 8 P* WHEN UNPACKING THE OLD VALIDATION ROUTINE. P* P* INPUT:
0x0ae91a…12f7b6 [0x511]: Pad {f00=0x018e, f01=0x003a, f02=» P* VBOOL8 =TRUE: COMPULSORY POOLUNIT DELIMITER P* B ( P* USED: GBIN4 OUTPUT DATA POINTER L ( P* GBIN5 OUTPUT POOLUNIT NR x . P* LBIN2 WORK: LENGTH TO BE MOVED ( P* LPBIN LENGTH OF POOL UNIT ( P* O
0x0ae91a…12f7b6 [0x512]: Pad {f00=0x0000, f01=0x0000, f02=» h d . P* VBIN7 WORK: INPUT DATA POINTER P* : P* OUTPUT: D " P* VBIN2 OBJECT LENGTH V P* CR=0 OK | . P* CR=1 (GREATER): POOL OVERFLOW P* L P**************************************************
0x0ae91a…12f7b6 [0x513]: Pad {f00=0x4e37, f01=0x2c57, f02=» h 0 r J P XCOPY VBIN6,W1,W1,VALPTR,W0 POOL UNIT NR (START OBJECT) < P XCOPY VBIN7,W1,W1,VALPTR,W1 DATA POINTER X D P XCOPY VBIN2,W0,W2,BPOOL(VBIN6),VBIN7 OPT-TYP/LENGTH P ADD VBIN7,W2 $
0x0ae91a…12f7b6 [0x514]: Pad {f00=0x4249, f01=0x4e32, f02=» n h H P SUB VBIN4,W2 CORRECTION FOR OPT/LENGTH P EJECT P P* ^ " P* WHILE REMAINING LENGTH > 0 h P* PMOV010 : P CBE VBIN4,W0,MOVRET DONE (CR=0) P* > P* DETERMINE
0x0ae91a…12f7b6 [0x515]: Pad {f00=0x0050, f01=0x2020, f02=» BZ h MOV025 COMPLETELY IN NEXT UNIT < P CMP LBIN2,VBIN4 CHECK LENGTHS < @ P BE MOV025 IF EXACTLY WITHIN | @ P BL MOV020 IF PARTLY
0x0ae91a…12f7b6 [0x516]: Pad {f00=0x0050, f01=0x2020, f02=» SUB LBI h N2,W1 COMPENSATE FOR DELIMITER | PMOV025 8 * P CBNG LBIN2,=W'200',MOV030 F J P MOVE LBIN2,=W'200' DO NOT PASS OBJSTR BOUNDARY t P EJECT P* * P* MOVE FROM INPUT P
0x0ae91a…12f7b6 [0x517]: Pad {f00=0x4249, f01=0x4e32, f02=» UPDATE IN h PUT POINTER B P CBE LBIN2,=W'200',MOV050 NOT END OF POOLUNIT P MOVE VBIN7,W6 Z H P ADD VBIN6,W1 START OF NEXT INPUT UNIT | PMOV050 F P SUB V
0x0ae91a…12f7b6 [0x518]: Pad {f00=0x4152, f01=0x2020, f02=» VBOOL8 NO h NEED OF FF IF LAST PART b P* . P* MOVE FROM OBJSTR TO OUTPUT POOL UNIT(S) * P* PMOV060 f L P PERF POLICE,LBIN2,LBOOL4,VBOOL8,OBJSTR **POOL LIMIT CONTR. t > P BG MOVRET
0x0ae91a…12f7b6 [0x519]: Pad {f00=0x4e32, f01=0x2020, f02=» NEW DATAPOINTER OUTPUT h@ N P* P* ENDWHILE P* & P B MOV010 0 P* P PMOVRET Z F P RET CR=0 OK, CR=1 OVERFLOW h P PEND P END @
0x0ae91a…12f7b6 [0x51a]: Pad {f00=0x4e35, f01=0x2c4c, f02=»BIN2 NEW DATAPOINTER OUTPUT h * P* ENDWHILE P* & P B MOV010 0 P* P PMOVRET Z F P RET CR=0 OK, CR=1 OVERFLOW h P PEND P END
0x0ae91a…12f7b6 ]
0x12f7b6…12f7c0 20 20 20 47 42 49 4e 35 2c 4c ┆ GBIN5,L┆
0x12f7c0…12f7e0 42 49 4e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 57 20 44 41 54 41 50 4f 49 4e 54 ┆BIN2 NEW DATAPOINT┆
0x12f7e0…12f7f0 45 52 20 4f 55 54 50 55 54 20 00 00 00 00 00 00 ┆ER OUTPUT ┆
0x12f7f0…130490 (4, 0) DirGranule ((4, 0)) {
0x12f7f0…130490 DirEnt {nam=»WSM:UT«, typ=»IL«, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0d20, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUCOP «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0d38, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUEXT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0d78, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUDIV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0da8, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUPRF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUCVN «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e00, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUPRV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e08, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUASS «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e18, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUDIV «, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0e50, f03=0x4000}
0x12f7f0…130490 DirEnt {nam=»WUCRV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e68, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUINT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e80, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUFIL «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e88, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUUTI «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e90, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUDEN «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WULIT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f10, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUCRF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f18, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WUDLF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f38, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»WSMCAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f48, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»B:PROC«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0f60, f03=0x0000}
0x12f7f0…130490 DirEnt {nam=»UTILOB«, typ=»OB«, f00=0xab4c, f01=0x0000, f02=0x0f68, f03=0x0000}
0x12f7f0…130490 }
0x130490…1304a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1304a0…1304c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1304c0…130654 (4, 1) Opaque[0x194]
0x130654…13065a 00 00 00 00 00 00 ┆ ┆
0x13065a…1307ee # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0d20, f03=0x0000}
0x13065a…1307ee IdxSect {
0x13065a…1307ee f00 = 0x0069 // 0x13065a @0x0
0x13065a…1307ee f01 = 0x0006 // 0x13065c @0x2
0x13065a…1307ee gno = [ // 0x13065e @0x4
0x13065a…1307ee [0x00]: C0x0069.0x0.0
0x13065a…1307ee [0x01]: C0x0069.0x1.0
0x13065a…1307ee [0x02]: C0x0069.0x2.0
0x13065a…1307ee ]
0x13065a…1307ee }
0x1307ee…1307f4 00 00 00 00 00 00 ┆ ┆
0x1307f4…130988 Dummy {f00=0x0069, f01=0x0190, f02=» P P P P*************************************************************************** P P** ** h P P** W S M UTILITY TOOLS USER INFORMATION - ADAPTED FOR MAS/SDS **
0x130988…13098e 00 00 00 00 00 00 ┆ ┆
0x13098e…130b22 Dummy {f00=0x0069, f01=0x0190, f02=»******************************* d P ( PDIRECTORY: WSM:UTIL 0 P L 2 P SOURCE AND OBJECT OF WSM UTILITY PROGRAM T H P TOSSUTILITIES LOADMODULE UTL13D USED VIA I.C. TO WSMUTILITIES @ P IS REQUIRED. USE FILECODES II=98,IO=99 AND P
0x130b22…130b28 00 00 00 00 00 00 ┆ ┆
0x130b28…130cbc Dummy {f00=0x0069, f01=0x0190, f02=»WUTIL,<DADFC> ON DIR WSM:LMU TO GET A UTILITY LOAD MODULE & NO CREBUG N P WUTILT,<DADFC> ON DIR WSM:LMU TO GET A UTILITY LOAD MODULE & CREBUG N P P HISTORY: P J P 85-09-10 WUDIV SUPPORT OF NEW WCH-DISKS PTS 6794 AND PTS
0x130cbc…130cc0 00 00 00 00 ┆ ┆
0x130cc0…130cc2 00 00 ┆ ┆
0x130cc2…130e56 Dummy {f00=0x0069, f01=0x0190, f02=»ITIES FROM DISC TO DISK IN: b . P 1.WUCRV 2.WUDEN 3.WUUTI $ . P 85-07-01 WSM RELEASE 3.0 -> IRL. V D P 85-03-01 WSM RELEASE 2.2 FOR TOSS 13.1 TO ACTION-CENTRE H P 85-01-25 WUDIV SUPPORT OF 12.8 MB WCH PTS 6794
0x130e56…130e5c 00 00 00 00 00 00 ┆ ┆
0x130e5c…130ff0 Dummy {f00=0x0069, f01=0x0190, f02=»VENT A14-STACK NOT TO EXEED h P P 84-12-04 1. MUL AND DIV NOW FROM ASSRUT WSMCAL, IN WUUTI AND WUCOP $ L P 2. START/STOP BLOCKING IMPLEMENTED IN WUUTI AND WUDEN x P P 84-12-01 RELEASE 2.2 INTERTASK TOSSUT <-> WSMUTILITIES
0x130ff0…130ff6 00 00 00 00 00 00 ┆ ┆
0x130ff6…13118a Dummy {f00=0x0069, f01=0x0190, f02=»K COMMUNICATION ON ^ H P FILE CODES D0/D1. PRESSING THE RETURN-KEY WHEN H P THE INITIAL MENU IS DISPLAYED GIVES "ESCAPE". f B P 2. SUPPORT OF 5 1/4" FLOPPY DISC PTS-6792. D P
0x13118a…131190 00 00 00 00 00 00 ┆ ┆
0x131190…131324 (4, 2) Dummy {f00=0x0069, f01=0x0190, f02=»EATE VOLUME: MAXIMUM NUMBER OF FILES ( = VTOC x < P ENTRIES ) EXTENDED FROM 99 TO 999. 6 F P 5. COPY: CALCULATION OF "PROGRAM LENGTH" FOR L- v D P FILES ( LOAD MODULES ), CORRECTED ( P445: J P
0x131324…13132a 00 00 00 00 00 00 ┆ ┆
0x13132a…1314be Dummy {f00=0x0069, f01=0x0190, f02=» 6. COPY: OPTION "FILE TO FILE" NOW CREATES ENOUGH H P DESTINATION FILE SPACE WHEN SOURCE FILE IS OF < ( P TYPE S,D OR I. F P 7. THE INTERNAL "CHANGE VOLUME NAME" ROUTINE NO F P
0x1314be…1314c0 00 00 ┆ ┆
0x1314c0…1314c4 00 00 00 00 ┆ ┆
0x1314c4…131658 Dummy {f00=0x0069, f01=0x0190, f02=» DISPLAYED ANY MORE. H P 8. AFTER A COMPLETED "DELETE FILE", THE RETURN IS 2 H P MADE TO THE "DELETE FILE" MENU INSTEAD OF THE ~ ( P INITIAL MENU. J P
0x131658…13165e 00 00 00 00 00 00 ┆ ┆
0x13165e…1317f2 Dummy {f00=0x0069, f01=0x0190, f02=» FILE: THE TEXT IS SUBSTITUTED BY "EXTEND t , P WSM SYSTEM FILE". 2 D P 11. COPY: ON THE "TYPE OF COPY" MENU, MAXIMUM b D P SECTION SIZE IS DISPLAYED FOR OPTION "W". F P 12.
0x1317f2…1317f8 00 00 00 00 00 00 ┆ ┆
0x1317f8…13198c Dummy {f00=0x0069, f01=0x0190, f02=» SECTION SIZE ). @ P 13. THE TEST VERSION W:UTIB ON USER WSMLMU B P IS LINKED WITH 20 POOL UNITS ( = MAXIMUM d * P SECTION SIZE ). N P 84-06-01 SUPPORT OF 5 1/4" MINI FLOPPY
0x13198c…131992 00 00 00 00 00 00 ┆ ┆
0x131992…131b26 Dummy {f00=0x0069, f01=0x018e, f02=» TOSS-FORMATTED. x H P INITIAL PRINT ON GP74 NOW OK (PREVIOUS I/O-ERROR). < P THE CREATE VOLUME MENU CHANGED AGAIN. d J P EXTENDED DELAY WHEN ATTACHING PRINTER (LP PROBLEMS). L P 83-10-01 OPTI
0x131b26…131b2c 00 00 00 00 00 00 ┆ ┆
0x131b2c…131cc0 Dummy {f00=0x0069, f01=0x0190, f02=» D P CREATE VOLUME OF 5 MB DISC NOW POSSIBLE AGAIN. < P OPTION 9, NOT DEFINED, NO MORE VALID. L J P CREATE VOLUME SCREEN HANDLING ON VD82/83 CORRECTED. H P 83-09-15 TYPE OF DISCS TO SUPPORT (CR
0x131cc0…131cc6 00 00 00 00 00 00 ┆ ┆
0x131cc6…131e5a Dummy {f00=0x0069, f01=0x4064, f02=»T. f , P 83-03-22 ADAPTED TO VD81, VD82. " P 83-02-28 RELEASE 1.O :@ ` 9, NOT DEFINED, NO MORE VALID. L J P CREATE VOLUME SCREEN HANDLING ON VD82/83 CORRECTED. H P 83-09-15 TYPE OF DISCS TO SUPPORT (CR
0x131e5a…131e60 00 00 00 00 00 00 ┆ ┆
0x131e60…131ff4 (4, 3) Dummy {f00=0x0069, f01=0x2008, f02=»
0x131ff4…131ffa 00 00 00 00 00 00 ┆ ┆
0x131ffa…13218e Dummy {f00=0x0069, f01=0x5c5c, f02=» SELECT AND ENTER FIELDS ! OR TBD? T FIELD? RENT G; ET); CF A14,RSEL ECB:CW,A13 EAR MODIFIED BITS IN DFD ... ****************** IS075 EQU * -K1:TBD CARRIAGE RETURN? ED 841001/ME) D; T; LDK A1,RC:INA RET CODE IN
0x13218e…132194 00 00 00 00 00 00 ┆ ┆
0x132194…132328 Dummy {f00=0x0069, f01=0x5c41, f02=»NK A2,/01 D ENTER FIELDS ! OR TBD? T FIELD? RENT G; ET); RF(NZ) RCVERR - INPUT NOT ALLOWED D BITS IN DFD ... ****************** IS075 EQU * -K1:TBD CARRIAGE RETURN? ED 841001/ME) D; T; LDK A1,RC:KEY RET CODE IN
0x132328…13232e 00 00 00 00 00 00 ┆ ┆
0x13232e…1324c2 Dummy {f00=0x0069, f01=0x5c41, f02=»NK A2,/08 D ENTER FIELDS ! OR TBD? T FIELD? RENT G; ET); RF(Z) RCVERR - NOT ENTER KEY OR AUTO-ENTER ! FD ... ****************** $RUT MISTRT,START POINT MEMORY INPUT; ED 841001/ME) D; T; $C 1. WRCIVE .MEM; CODE IN
0x1324c2…1324c8 00 00 00 00 00 00 ┆ ┆
0x1324c8…13265c Dummy {f00=0x0069, f01=0x2443, f02=» 3. WRCIVE TO GET REMAINING DATA; T FIELD? RENT G; ET); $C; Z) RCVERR - NOT ENTER KEY OR AUTO-ENTER ! FD ... ****************** $FRAME; TRT,START POINT MEMORY INPUT; ED 841001/ME) D; T; C 1. WRCIVE .MEM; CODE IN
0x13265c…132660 00 00 00 00 ┆ ┆
0x132660…132662 00 00 ┆ ┆
0x132662…1327f6 Dummy {f00=0x0069, f01=0x4d49, f02=»S010 EQU * TO GET REMAINING DATA; T FIELD? RENT G; ET); LDK A1,2 INDICATE MEMORY INPUT AUTO-ENTER ! FD ... ****************** SELECT & COPY DYN FIELDS ! INPUT; ED 841001/ME) D; T; CF A14,RSEL .MEM; CODE IN
0x1327f6…1327fc 00 00 00 00 00 00 ┆ ┆
0x1327fc…132990 Dummy {f00=0x0069, f01=0x5c4c, f02=»DR A2,A1 * TO GET REMAINING DATA; T FIELD? RENT G; ET); ANK A1,/10 BUFFER OVERFLOW ? T AUTO-ENTER ! FD ... ****************** SRL A1,4 - WELL, IND. MORE DATA TO GET 841001/ME) D; T; ANK A2,/20 SOME DF NOT FO
0x132990…132996 00 00 00 00 00 00 ┆ ┆
0x132996…132b2a Dummy {f00=0x0069, f01=0x5c41, f02=»DK A1,RC:DN2 - YES ! AINING DATA; T FIELD? RENT G; ET); $RUT W:RCIE,WRCIVE TERMINATION.; AUTO-ENTER ! FD ... ****************** $C SHOULD BE USED BY ALL WRCIVE EXITS.; 841001/ME) D; T; $INP A1 = RETURN CODE; FO
0x132b2a…132b30 00 00 00 00 00 00 ┆ ┆
0x132b30…132cc4 (4, 4) Opaque[0x194]
0x132cc4…132cca 00 00 00 00 00 00 ┆ ┆
0x132cca…132e5e # DirEnt {nam=»WUCOP «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0d38, f03=0x0000}
0x132cca…132e5e IdxSect {
0x132cca…132e5e f00 = 0x0069 // 0x132cca @0x0
0x132cca…132e5e f01 = 0x0010 // 0x132ccc @0x2
0x132cca…132e5e gno = [ // 0x132cce @0x4
0x132cca…132e5e [0x00]: C0x0069.0x3.0
0x132cca…132e5e [0x01]: C0x006a.0x0.0
0x132cca…132e5e [0x02]: C0x006a.0x1.0
0x132cca…132e5e [0x03]: C0x006a.0x2.0
0x132cca…132e5e [0x04]: C0x006a.0x3.0
0x132cca…132e5e [0x05]: C0x006b.0x0.0
0x132cca…132e5e [0x06]: C0x006b.0x1.0
0x132cca…132e5e [0x07]: C0x006b.0x2.0
0x132cca…132e5e ]
0x132cca…132e5e }
0x132e5e…132e60 00 00 ┆ ┆
0x132e60…132e64 00 00 00 00 ┆ ┆
0x132e64…132ff8 Dummy {f00=0x0069, f01=0x0190, f02=» , P IDENT WUCOP REL=2.3,841203,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* * * P* 4 COPY VOLUME/FILE (REORGANIZE) * * P*
0x132ff8…132ffe 00 00 00 00 00 00 ┆ ┆
0x132ffe…133192 Dummy {f00=0x0069, f01=0x0190, f02=» NOW FROM ASS.ROUTINE t > P** 84-10-23 /CJ TOSSUT REL13 NEW DIALOUGE IMPLEMENTED D P** 84-07-12 /MAER CALCULATION OF "PROGRAM LENGTH" FOR L-FILES ` J P** (LOAD MODULES) CORRECTED (ROUNDING, NOT TRUNC.). B P**
0x133192…133198 00 00 00 00 00 00 ┆ ┆
0x133198…13332c Dummy {f00=0x0069, f01=0x0190, f02=» DISPLAY OF COPIED ELEMENT TYPES AND NAMES WHEN F P** ANSWERING "Y" TO THE QUESTION "WHOLE FILE ?". @ F P** COPY F TO F, FILE SIZE CALCULATION CORRECTED J P** (SECTOR LENGTH 255 FOR S,D,I-FI
0x13332c…133332 00 00 00 00 00 00 ┆ ┆
0x133332…1334c6 Dummy {f00=0x0069, f01=0x0190, f02=»STINATION UNIT NOW ALLOWED. j 2 P** 83-06-20 /MAER COPY FORMS OF TFP ADDED. $ H P** 83-06-17 /MAER COPY SPECIFIC SECTION / DEFINITION INTRODUCED. Z B P** 83-05-11 /MAER SOP-PANEL F.C. := ZERO (EARLIER 20 => BAD F P** READ-RE
0x1334c6…1334cc 00 00 00 00 00 00 ┆ ┆
0x1334cc…133660 Dummy {f00=0x0069, f01=0x0190, f02=»COMPLETED. h < P** 82-07-26 /DALI VOLUME-NAME IS CHANGED BEFORE COPY " P** 81-11-04 /DALI CREATION R P x P P DDUM WUDIV P PDIV P ENTRY WUCOP P* & P EXPROC DECLRA CRE= SCREEN ROUTINE & P EXPROC DECLRN CRE= SC
0x133660…133666 00 00 00 00 00 00 ┆ ┆
0x133666…1337fa Dummy {f00=0x0069, f01=0x0190, f02=»TINE n 4 P EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME P EXPROC HALT D P* X & P EXT COPYDD ASS= COPY DISC TO DISC b P EXT OPENF ASS= OPEN FILE P EXT CLOSEF ASS= CLOSE FILE $ P EXT RDSECT ASS= READ ONE SECTOR , P EXT BINBCD AS
0x1337fa…133800 00 00 00 00 00 00 ┆ ┆
0x133800…133994 (4, 5) Dummy {f00=0x006a, f01=0x0190, f02=»ELETE FILE ~ " P EXT READDK ASS= READ A RECORD $ P EXT WRITDK ASS= WRITE A RECORD 8 $ P EXT CHANFC ASS= CHANGE FILECODE ` P EXT PREAD ASS= WSM-READ P EXT PWRITE ASS= WSM-WRITE P EXT PCLOSE ASS= WSM-CLOSE " P EXT WXMUL ASS= MULTIPLICATI
0x133994…13399a 00 00 00 00 00 00 ┆ ┆
0x13399a…133b2e Dummy {f00=0x006a, f01=0x0190, f02=»************* x * P* 4 COPY VOLUME/FILE (REORGANIZE) * * P************************************* D PCOP000 r $ P CLEAR BOOL2 USED IN FORMAT FIO P ATTFMT FCOPY P SET DEPROMPT PCOP100 P PERF DECLRA PCOP150 $ P IB
0x133b2e…133b34 00 00 00 00 00 00 ┆ ┆
0x133b34…133cc8 Dummy {f00=0x006a, f01=0x0190, f02=»500,COP700 COPY FILE,COPY WSM P EJECT & P********************* 4 P* COPY DISC TO DISC * R P********************* p P* PCOP250 P ATTFMT FCOPV P SET DEPROMPT PCOP300 P PERF DECLRA PCOP350 $ P IB DE
0x133cc8…133cce 00 00 00 00 00 00 ┆ ┆
0x133cce…133e62 Dummy {f00=0x006a, f01=0x0190, f02=»E DISC h 2 P XCOPY PBLOCK,W7,W1,FCOD2,W1 FC4 = DEST. DISC 6 P XCOPY PBLOCK,W14,W6,COPNAM,W0 VOL.NAME DEST DISC D 4 P XCOPY PBLOCK,W22,W1,W3,W1 OPTION=3 NEW DIALOUGE ~ < P XCOPY PBLOCK,W23,W1,W0,W0 SOP-PANEL F.C. NOT USED (:=0) 4 P CALL COPYDD,PBLOC
0x133e62…133e68 00 00 00 00 00 00 ┆ ┆
0x133e68…133ffc Dummy {f00=0x006a, f01=0x0190, f02=»450 ~ * P CBE RETCOD,W9,COP000 OPERATOR ABORTED PCOP420 : P PERF DISERR H P B COP350 PCOP450 n P PERF HALT | P B COP000 P EJECT P********************* P* COPY FILE TO FILE * P********************* P
0x133ffc…134000 00 00 00 00 ┆ ┆
0x134000…134002 00 00 ┆ ┆
0x134002…134196 Dummy {f00=0x006a, f01=0x0190, f02=»COP510,COP000,COP540 P PERF DSKERR,W0 'BELL' P B COP520 : PCOP540 L ( P CLEAR BOOL5 FILE PRESENCE INDICATOR Z P MOVE NOREC,=D'00' * P PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME P BNOK COP546 * P PERF CHVNAM,VOLEX2,FCOD2 CHANGE NAME
0x134196…13419c 00 00 00 00 00 00 ┆ ┆
0x13419c…134330 Dummy {f00=0x006a, f01=0x0190, f02=»ILNAM,VOLEX1,RETCOD j P B COP542 PCOP541 . > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD < PCOP542 ~ P BNOK COP543 & P CLEAR BOOL5 "FILE NAME KNOWN..." 4 P CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD P BOK C
0x134330…134336 00 00 00 00 00 00 ┆ ┆
0x134336…1344ca Dummy {f00=0x006a, f01=0x0190, f02=» * P PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME PCOP546 2 & P TBT BOOL5,COP547 FILE NOT PRESENT @ P PERF DISERR j P B COP520 ~ PCOP547 ( P PERF DSKERR,W12 "FILE NAME UNKNOWN" P B COP520 PCOP548 > P CALL OPENF,DISK,FILECODE(W3),
0x1344ca…1344d0 00 00 00 00 00 00 ┆ ┆
0x1344d0…134664 (4, 6) Dummy {f00=0x006a, f01=0x0190, f02=»50 0 P MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS P MOVE BIN5,W0 NO. OF EXTENTS > P MOVE BIN1,W0 SECTOR NO. b P CALL CHANFC,DISK,FCOD1 : P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL P BNOK COP543 * P XCOPY BIN1,W0,W2,SY
0x134664…13466a 00 00 00 00 00 00 ┆ ┆
0x13466a…1347fe Dummy {f00=0x006a, f01=0x0190, f02=»PY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH 2 P XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH , P ADD DKBIN3,W1 OCCUPYED BYTE b , P SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS " P ADD BIN1,DKBIN1 START OF VTOC PCOP590 8 P CALL RDSECT,DISK,BIN1,SYSBUF,
0x1347fe…134800 00 00 ┆ ┆
0x134800…134804 00 00 00 00 ┆ ┆
0x134804…134998 Dummy {f00=0x006a, f01=0x0190, f02=»M,BIN3,W8,SYSBUF,BIN4,W8 P BOK COP640 FILENAME FOUND PCOP610 B ( P ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY P 0 P CBL BIN4,=W'240',COP600 ALL ENTRIES HANDLED | $ P SUB DKBIN2,W1 MORE VTOC RECORDS P BNZ COP620 YES 0 P CBNE BCDI21(W2),=D'00',
0x134998…13499e 00 00 00 00 00 00 ┆ ┆
0x13499e…134b32 Dummy {f00=0x006a, f01=0x0190, f02=» PCOP640 ( P CBNE BIN5,W0,COP660 NO. OF EXTENTS & P MOVE BIN12,=W'40' NO. OF EXTENTS B ( P ADD BIN12,BIN4 DISP IN VTOC-RECORD l " P XCOPY BIN5,W1,W1,SYSBUF,BIN12 6 P XCOPY BPOOL(W20),W0,DKBIN3,SYSBUF,BIN4 SAVE ENTRY , P CBNE BIN5,W0,CO
0x134b32…134b38 00 00 00 00 00 00 ┆ ┆
0x134b38…134ccc Dummy {f00=0x006a, f01=0x0190, f02=»(W20),BIN2 x P MOVE BIN2,W12 FILE EXT 1 & P ADD BIN2,BIN4 DISP IN VTOC-RECORD 4 2 P CBNE STR1A,=C'L',COP670 BRANCH IF NOT L-FILE ^ 2 P ADD BIN2,W8 USE LAST RECORD NO WHEN L-FILES. PCOP670 0 P XCOPY BIN10,W0,W2,SYSBUF,BIN2 FILE EXTENT 1
0x134ccc…134cd2 00 00 00 00 00 00 ┆ ┆
0x134cd2…134e66 Dummy {f00=0x006a, f01=0x0190, f02=»BCDI21(W1) P SUB BIN5,W1 MORE EXTENTS P BP COP610 YES 4 PCOP680 J P ERASE 0,W1,W6 X & P XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG n , P XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME . P XCOPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1 PCOP682 4 P
0x134e66…134e6c 00 00 00 00 00 00 ┆ ┆
0x134e6c…135000 Dummy {f00=0x006a, f01=0x0190, f02=»PY PBLOCK,W7,W1,STR1A,W0 F.ORG , P XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME & , P COPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1 V P MOVE BIN1,=W'40' P MOVE BIN2,=W'28' CRD + RP : P XCOPY PBLOCK,BIN1,W9,BPOOL(W20),BIN2 REL + RET.PERIOD P MOVE BI
0x135000…135006 00 00 00 00 00 00 ┆ ┆
0x135006…13519a Dummy {f00=0x006a, f01=0x0190, f02=»OOL(W20),BIN2 BF | P MOVE BIN1,=W'50' P MOVE BIN2,W24 2 8 P XCOPY PBLOCK,BIN1,W2,BPOOL(W20),BIN2 RECORD LENGTH H 4 P XCOPY BIN3,W0,W2,BPOOL(W20),BIN2 RECORD LENGTH , P MOVE NOREC,BCDI21(W2) SAVE NO. OF RECS P MOVE BIN1,=W'52' 0 P C
0x13519a…1351a0 00 00 00 00 00 00 ┆ ┆
0x1351a0…135334 (4, 7) Dummy {f00=0x006a, f01=0x0190, f02=»TORS p 4 P CALL WXDIV,BIN7,W16,BIN7 PROGRAM USES 240 BYTES $ P MOVE BCDI21(W1),BIN7 PER SECTOR D P SUB BCDI21(W2),BCDI21(W1) l 2 P MOVE BCDI21(W3),BCDI21(W2) SAVE NO OF RECORDS P MOVE BIN1,BCDI21(W2) 0 P CALL WXDIV,BIN1,W4,BIN1 GET PROGRAM L
0x135334…13533a 00 00 00 00 00 00 ┆ ┆
0x13533a…1354ce Dummy {f00=0x006a, f01=0x0190, f02=»I21(W1),=D'+4' => YET ANOTHER 8 P CBE BCDI21(W1),BCDI21(W3),COP683 SECTOR IS NEEDED. & P ADD BCDI21(W2),=D'+1' b PCOP683 ( P CALL BCDBIN,BCDI21(W2),BIN10,BIN11 2 P XCOPY PBLOCK,BIN1,W2,BIN11,W0 PROGRAM LENGTH P B COP687 PCOP684
0x1354ce…1354d4 00 00 00 00 00 00 ┆ ┆
0x1354d4…135668 Dummy {f00=0x006a, f01=0x0190, f02=»NGTH 255 n 6 P CBE STR1A,=C'S',COP686 WHICH IS TRUE FOR 'S'-... , P CBE STR1A,=C'D',COP686 ...'D'-...AND... J 8 P CBE STR1A,=C'I',COP686 ...'I'-FILES (DATA MANAGM.). z : P MOVE BIN7,SECLEN OTHERS USE SECTOR LENGTH 256 BYTES. PCOP686 P ADD B
0x135668…13566e 00 00 00 00 00 00 ┆ ┆
0x13566e…135802 Dummy {f00=0x006a, f01=0x0190, f02=»IN3,BIN4 ~ P MOVE BCD5A,BIN4 P CALL WXMUL,BIN1,BIN4,BIN1 ( P MOVE BCDI21(W2),BIN1 J ( P CALL BCDBIN,BCDI21(W2),BIN10,BIN11 h P MOVE BIN1,=W'52' 2 P XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS P MOVE BIN1,=W'54' 2 P XCOPY PBL
0x135802…135808 00 00 00 00 00 00 ┆ ┆
0x135808…13599c Dummy {f00=0x006a, f01=0x0190, f02=»COPY PBLOCK,BIN1,W2,W0,W0 NIF PCOP687 & 4 P CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD 4 P CMP RETCOD,W0 'I/O-ERROR' l P BNZ COP543 P CBE FCOD1,FCOD2,COP688 > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P B C
0x13599c…1359a0 00 00 00 00 ┆ ┆
0x1359a0…1359a2 00 00 ┆ ┆
0x1359a2…135b36 Dummy {f00=0x006a, f01=0x0190, f02=»ENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD P BNOK COP698 : PCOP690 N P MOVE RECNUM,=D'+1' . P XCOPY BIN10,W0,W2,BPOOL(W20),W20 SAVE LRN x & P XCOPY BIN11,W0,W2,BPOOL(W20),W22 PCOP692 P CALL CHANFC,DISK,FCOD1 B P CALL
0x135b36…135b3c 00 00 00 00 00 00 ┆ ┆
0x135b3c…135cd0 Dummy {f00=0x006a, f01=0x0190, f02=»LECODE(W3),BPOOL(W1),SECLEN,RECNUM,RETCOD | P BNOK COP696 2 P CBE RECNUM,NOREC,COP693 F P ADD RECNUM,=D'+1' f P B COP692 PCOP693 6 P CALL BINBCD,BIN10,BIN11,NOREC GET LRN INTO NOREC P CALL CHANFC,DISK,FCOD1 4 P CALL CLOSEF,D
0x135cd0…135cd6 00 00 00 00 00 00 ┆ ┆
0x135cd6…135e6a Dummy {f00=0x006a, f01=0x0190, f02=»K,FILECODE(W1),RBUF,NOREC,DEBINW4 P B COP543 * PCOP694 < P CALL CHANFC,DISK,FCOD2 J 4 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD j P BNOK COP543 * P PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME P BNOK COP546 P CBE FCOD1,FCOD2
0x135e6a…135e70 00 00 00 00 00 00 ┆ ┆
0x135e70…136004 (4, 8) Dummy {f00=0x006a, f01=0x018e, f02=»REC,=D'00' P CALL CHANFC,DISK,FCOD2 6 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 2 PCOP698 l P MOVE NOREC,=D'00' z P CALL CHANFC,DISK,FCOD1 6 P CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,DEBINW4 P B COP543 P EJECT
0x136004…13600a 00 00 00 00 00 00 ┆ ┆
0x13600a…13619e Dummy {f00=0x006a, f01=0x0190, f02=» P SET DEPROMPT P SET BOOL2 PCOP710 , P PERF DECLRA : PCOP720 N $ P IB DEBINW2,COP710,COP000,COP730 P PERF DSKERR,W0 'BELL' P B COP720 PCOP730 P MOVE NOREC,=D'00' * P PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME
0x13619e…1361a0 00 00 ┆ ┆
0x1361a0…1361a4 00 00 00 00 ┆ ┆
0x1361a4…136338 Dummy {f00=0x006a, f01=0x0190, f02=»,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P B COP732 2 PCOP731 D > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD R PCOP732 P BOK COP738 PCOP733 * P PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME P BNOK COP737 PCO
0x136338…13633e 00 00 00 00 00 00 ┆ ┆
0x13633e…1364d2 Dummy {f00=0x006a, f01=0x018e, f02=»P738 > P CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD ! & P BNOK COP733 WSM FILE NOT CREATED ! N 4 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD ! x P BNOK COP733 ! P EJECT ! < P******************************************************
0x1364d2…1364d8 00 00 00 00 00 00 ┆ ┆
0x1364d8…13666c Dummy {f00=0x006a, f01=0x0190, f02=» P ATTFMT FCOPA " PCOP739 " P SET DEPROMPT " ( PCOP740 " > P PERF DECLRA " L PCOP741 " ` $ P IB DEBINW2,COP740,COP810,COP742 " n P PERF DSKERR,W0 'BELL' " P B COP741 " PCOP742 " 4 P CBNE COPY,='S',COP746 BRANCH IF NOT "SPECIFIC" "
0x13666c…136672 00 00 00 00 00 00 ┆ ┆
0x136672…136806 Dummy {f00=0x006a, f01=0x0190, f02=»**************************************** " . P ATTFMT FCOPC ATTACH FORMAT 'TYPE & NAME' # 0 P SET DEPROMPT # b PCOP743 # x & P ERASE 2,W1,W2 ERASE INPUT FIELDS # P PERF DECLRN # PCOP744 # $ P IB DEBINW2,COP743,COP810,COP745 # P PERF DSKERR,W
0x136806…13680c 00 00 00 00 00 00 ┆ ┆
0x13680c…1369a0 Dummy {f00=0x006a, f01=0x0190, f02=» TO RBUF # l P MOVE BIN1,W0 $ P B COP792 $ & PCOP746 $ 8 P EJECT $ F 8 P**************************************************** $ T 8 P** COPY ELEMENT BY ELEMENT ** $ 8 P**************************************************** $ & P
0x1369a0…1369a6 00 00 00 00 00 00 ┆ ┆
0x1369a6…136b3a Dummy {f00=0x006a, f01=0x0190, f02=»TFP FORMS $ P 3. 'S' WSM SECTIONS % PCOP747 % 0 ( P MOVE BIN5,W10 START OF FIRST CHAIN % > PCOP748 % j ( P MOVE RECNUM,BIN5 READ A CHAINRECORD % x PCOP749 % P CALL CHANFC,DISK,FCOD1 % < P CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETC
0x136b3a…136b40 00 00 00 00 00 00 ┆ ┆
0x136b40…136cd4 (4, 9) Dummy {f00=0x006b, f01=0x0190, f02=» COP750 % PCOP751 & & P MOVE BIN1,W14 DISP TO FIRST ENTRY & " P MOVE BIN2,W24 NO. OF ENTRIES & H PCOP752 & n P MOVE BIN3,W0 & | 8 P MATCH DTEST,BIN3,W1,RBUF,BIN1,W1 LOOK IF SAME TYPE & P BNOK COP795 NO & P* CBE COPY,=C'N',COP754 & " P*
0x136cd4…136cda 00 00 00 00 00 00 ┆ ┆
0x136cda…136e6e Dummy {f00=0x006b, f01=0x0190, f02=»6B,W0,W6,RBUF,BIN4 & 0 P CBE COPY,=C'N',COP756 BRANCH IF ONE BY ONE ' * P PERF DISPYE DISPLAY WHEN ANSWER 'YES' ' N P B COP792 ' | PCOP756 ' P CBE DTEST,=C'S',COP758 ' & P CBE DTEST,=C'F',COP757 TFP FORMS ' P ATTFMT FCOPD ' P B COP760 '
0x136e6e…136e74 00 00 00 00 00 00 ┆ ┆
0x136e74…137008 Dummy {f00=0x006b, f01=0x0190, f02=»80 ' P ERASE 2,W2,W2 ERASE ANSWER ( P PERF DECLRN ( . PCOP785 ( B $ P IB DEBINW2,COP780,COP810,COP790 ( P P PERF DSKERR,W0 'BELL' ( x P B COP785 ( PCOP790 ( ( P CBNE ANSW,=C'Y',COP795 NOT THIS ONE ( PCOP792 ( 0 P XCOPY PBLOCK,W5,W7,RBUF
0x137008…13700e 00 00 00 00 00 00 ┆ ┆
0x13700e…1371a2 Dummy {f00=0x006b, f01=0x0190, f02=» PBLOCK,BIN6,W8,FILNAM,W0 ( P ADD BIN6,W8 ) " > P XCOPY PBLOCK,BIN6,W6,VOLEX1,W0 SEND DEFAULT VOL = VOLEX1 ) 6 2 P CBNE FCOD1,FCOD2,COP793 DIFF. UNITS => BRANCH ) x > P XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 ELSE USE UNIT 2 TEMP NAME ) PCOP793 ) * P CALL PREA
0x1371a2…1371a8 00 00 00 00 00 00 ┆ ┆
0x1371a8…13733c Dummy {f00=0x006b, f01=0x0190, f02=»ILECODE ) t P MOVE BIN6,=W'26' * $ P XCOPY PBLOCK,BIN6,W8,COPFIL,W0 * * P ADD BIN6,W8 * R B P XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 DEST. VOLUME IS ALWAYS VOLEX2 * f , P CALL PWRITE,PBLOCK,BPOOL(W1) WSM-WRITE * P BOK COP795 * PCOP794 * " P XCOPY RET
0x13733c…137340 00 00 00 00 ┆ ┆
0x137340…137342 00 00 ┆ ┆
0x137342…1374d6 Dummy {f00=0x006b, f01=0x0190, f02=» CBNE COPY,='S',COP796 COPY "SPECIFIC" ? * P B COP743 -YES + 0 PCOP796 + F , P SUB BIN2,W1 NO, DECREASE NO. OF ENTRIES + T P BZ COP800 ALL HANDLED + P ADD BIN1,W10 TAKE NEXT + P B COP752 + PCOP800 + ( P XCOPY BIN10,W0,W2,RBUF,W2 LINK NEXT +
0x1374d6…1374dc 00 00 00 00 00 00 ┆ ┆
0x1374dc…137670 Dummy {f00=0x006b, f01=0x0190, f02=»02 + ~ PCOP801 , P B COP749 , PCOP802 , * P ADD BIN5,W1 , 8 P MOVE BIN6,=W'26' , L P CBE BIN5,BIN6,COP805 , f P B COP748 , PCOP805 , P CBE DTEST,=C'S',COP810 , P CBE DTEST,=C'F',COP807 , P MOVE DTEST,=C'F' , P B COP808
0x137670…137676 00 00 00 00 00 00 ┆ ┆
0x137676…13780a Dummy {f00=0x006b, f01=0x0190, f02=»K,FCOD1 , 4 P CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD - P BNOK COP816 - H P CALL CHANFC,DISK,FCOD2 - 4 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD - | P* BNOK COP818 83-06-20 - " P CALL PCLOSE,PBLOCK,BPOOL(W1) - * P PERF CHVNAM,VOL
0x13780a…137810 00 00 00 00 00 00 ┆ ┆
0x137810…1379a4 (4, 10) Dummy {f00=0x006b, f01=0x0190, f02=»000 - PCOP816 . P MOVE NOREC,=D'00' . P CALL CHANFC,DISK,FCOD2 . 4 6 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 . T PCOP818 . P B COP733 . P PEND . P EJECT . PDISPYE PROC . & P DSC1 DEDSSCRN,6,BIN12 SET CURSOR . $ P
0x1379a4…1379aa 00 00 00 00 00 00 ┆ ┆
0x1379aa…137b3e Dummy {f00=0x006b, f01=0x0190, f02=» XCOPY BIN12,W0,W1,W1,W1 LINE := 01 . " P ADD BIN12,W11 COL := COL + 11 / , 2 P CBL BIN12,=X'014A',DISP50 BRANCH IF COL < 74 / R P PAGE IS FULL: / * P MOVE BIN12,=X'0101' LINE/COL := 0101 / PDISP50 / P RET / P PEND / P EJECT / P****
0x137b3e…137b40 00 00 ┆ ┆
0x137b40…137b44 00 00 00 00 ┆ ┆
0x137b44…137cd8 Dummy {f00=0x006b, f01=0x0190, f02=» FMEND / PFCOPY FRMT 0 P FSL 0 P FATTR .HIGH 0 , P FATTR .INV 0 @ P FCOPY =C'COPY ' 0 T P FCOPY =C'VOLUME/FILE' 0 l P FNL 0 P FATTR .HIGH 0 P FTEXT 'TYPE OF COPY:' 0 . P FKI 14,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=8 0 P FCOPY STR1A 0
0x137cd8…137cde 00 00 00 00 00 00 ┆ ┆
0x137cde…137e72 Dummy {f00=0x006b, f01=0x0190, f02=» FATTR .HIGH 0 P FTEXT 'W = WSM SYSTEM-FILE' 1 P FTAB 21 1 8 ( P FTEXT '(MAX SIZE OF ONE SECTION: ' 1 H P FMEL 'ZZ9',NOOFPO 1 t P FTAB 51 1 P FTEXT 'SECTORS)' 1 P FMEND 1 P* 1 PFCOPV FRMT 1 P FSL 1 P FATTR .HIGH 1 P FATTR
0x137e72…137e78 00 00 00 00 00 00 ┆ ┆
0x137e78…13800c Dummy {f00=0x006b, f01=0x0190, f02=»GH 1 P FATTR .INV 2 P FTEXT 'COPY FILE TO FILE' 2 P FLINK FIO 2 @ P FMEND 2 R P* 2 ` PFCOPW FRMT 2 j P FSL 2 | P FATTR .HIGH 2 P FATTR .INV 2 0 P FTEXT 'COPY AND REORGANIZE WSM SYSTEM FILE' 2 P FLINK FIO 2 P FMEND 2 P* 2
0x13800c…138012 00 00 00 00 00 00 ┆ ┆
0x138012…1381a6 Dummy {f00=0x006b, f01=0x0190, f02=»=1 2 h P FCOPY COPY 3 P FLINK FHEX 3 P FMEND 3 2 P* 3 @ PFCOPD FRMT 3 J P FSL 3 P FATTR .HIGH 3 h P FCOPY =C'COPY DEFINITION:' 3 | P FATTR .INV 3 P FINP 17 3 P FCOPY STR6B 3 P FLINK FANSW 3 P FMEND 3 P* 3 PFCOP
0x1381a6…1381ac 00 00 00 00 00 00 ┆ ┆
0x1381ac…138340 Dummy {f00=0x006b, f01=0x018e, f02=»LINK FANSW 3 P FMEND 4 P* 4 PFCOPFO FRMT 4 * P FSL 4 > P FATTR .HIGH 4 J P FCOPY =C'COPY FORMAT:' 4 ^ P FATTR .INV 4 ~ P FINP 13 4 P FCOPY STR6B 4 P FLINK FANSW 4 P FMEND 4 PFCOPT FRMT 4 P FSL 4 P FATTR .HIGH 4
0x138340…138346 00 00 00 00 00 00 ┆ ┆
0x138346…1384da Dummy {f00=0x006b, f01=0x0190, f02=» PFCOPC FRMT 5 P FSL 5 P FATTR .HIGH 5 " P FATTR .INV 5 6 P FCOPY =C'COPY SPECIFIC:' 5 J P FNL 5 l P FATTR .HIGH 5 x P FCOPY =C'TYPE:' 5 & P FKI 6,MINL=1,MAXL=1,ME,NEOI,ALPHA 5 P FCOPY ANSW 5 P FATTR .HIGH 5 P FTAB 8 5 P F
0x1384da…1384e0 00 00 00 00 00 00 ┆ ┆
0x1384e0…138674 (4, 11) Dummy {f00=0x006b, f01=0x0190, f02=»MEND 5 P 6 PFANSW FRMT 6 P FNL 6 & P FATTR .HIGH 6 2 P FCOPY =C'Y/N' 6 F . P FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 6 P FCOPY ANSW 6 P FMEND 6 P* 6 PFIO FRMT 6 P FNL 6 P FATTR .HIGH 6 P FCOPY =C'INPUT' 6 P FATTR
0x138674…13867a 00 00 00 00 00 00 ┆ ┆
0x13867a…13880e Dummy {f00=0x006b, f01=0x0190, f02=»GH 6 P FTAB 20 7 P FCOPY =C'VOLUME-NAME:' 7 P FINP 33 7 : P FCOPY VOLNAM 7 J P FBF BOOL2,FIODD 7 ` P FATTR .HIGH 7 x P FTAB 42 7 P FCOPY =C'FILENAME:' 7 4 P FKI 51,MINL=1,MAXL=8,ME,NEOI,REWRT,ALPHA,APPL=6 7 P FCOPY FILNAM 7 PFI
0x13880e…138814 00 00 00 00 00 00 ┆ ┆
0x138814…1389a8 Dummy {f00=0x006b, f01=0x0190, f02=»3,MINL=3,MAXL=3,ME,ALPHA,NEOI,REWRT,APPL=10,DUPL=INUNIT 7 P FCOPY UTUNIT 8 @ P FATTR .HIGH 8 V P FTAB 20 8 j P FCOPY =C'VOLUME-NAME:' 8 z P FINP 33 8 P FCOPY COPNAM 8 P FBF BOOL2,FIOD2 8 P FATTR .HIGH 8 P FTAB 42 8 P FCOPY =C'FI
0x1389a8…1389ae 00 00 00 00 00 00 ┆ ┆
0x1389ae…138b42 Dummy {f00=0x006b, f01=0x4092, f02=» P FMEND 9 P* 9 PFHEX FRMT 9 P FNL 9 . P FKI 1,MINL=0,MAXL=0 9 : P FCOPY HEX00 9 V P FMEND 9 j P* 9 x P END 9 @ 9 8 z P FINP 33 8 P FCOPY COPNAM 8 P FBF BOOL2,FIOD2 8 P FATTR .HIGH 8 P FTAB 42 8 P FCOPY =C'FI
0x138b42…138b48 00 00 00 00 00 00 ┆ ┆
0x138b48…138cdc Dummy {f00=0x006b, f01=0x2008, f02=» : ND 9 P* 9 PFHEX FRMT 9 P FNL 9 . P FKI 1,MINL=0,MAXL=0 9 : P FCOPY HEX00 9 V P FMEND 9 j P* 9 x P END 9 @ 9 8 z P FINP 33 8 P FCOPY COPNAM 8 P FBF BOOL2,FIOD2 8 P FATTR .HIGH 8 P FTAB 42 8 P FCOPY =C'FI
0x138cdc…138ce0 00 00 00 00 ┆ ┆
0x138ce0…138ce2 00 00 ┆ ┆
0x138ce2…138e76 Dummy {f00=0x006b, f01=0x0190, f02=» CBNE COPY,='S',COP796 COPY "SPECIFIC" ? * P B COP743 -YES + 0 PCOP796 + F , P SUB BIN2,W1 NO, DECREASE NO. OF ENTRIES + T P BZ COP800 ALL HANDLED + P ADD BIN1,W10 TAKE NEXT + P B COP752 + PCOP800 + ( P XCOPY BIN10,W0,W2,RBUF,W2 LINK NEXT +
0x138e76…138e7c 00 00 00 00 00 00 ┆ ┆
0x138e7c…139010 Dummy {f00=0x006b, f01=0x0190, f02=»02 + ~ PCOP801 , P B COP749 , PCOP802 , * P ADD BIN5,W1 , 8 P MOVE BIN6,=W'26' , L P CBE BIN5,BIN6,COP805 , f P B COP748 , PCOP805 , P CBE DTEST,=C'S',COP810 , P CBE DTEST,=C'F',COP807 , P MOVE DTEST,=C'F' , P B COP808
0x139010…139016 00 00 00 00 00 00 ┆ ┆
0x139016…1391aa Dummy {f00=0x006b, f01=0x0190, f02=»K,FCOD1 , 4 P CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD - P BNOK COP816 - H P CALL CHANFC,DISK,FCOD2 - 4 P CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD - | P* BNOK COP818 83-06-20 - " P CALL PCLOSE,PBLOCK,BPOOL(W1) - * P PERF CHVNAM,VOL
0x1391aa…1391b0 00 00 00 00 00 00 ┆ ┆
0x1391b0…139344 (4, 12) Opaque[0x194]
0x139344…13934a 00 00 00 00 00 00 ┆ ┆
0x13934a…1394de # DirEnt {nam=»WUEXT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0d78, f03=0x0000}
0x13934a…1394de IdxSect {
0x13934a…1394de f00 = 0x006b // 0x13934a @0x0
0x13934a…1394de f01 = 0x000c // 0x13934c @0x2
0x13934a…1394de gno = [ // 0x13934e @0x4
0x13934a…1394de [0x00]: C0x006b.0x3.0
0x13934a…1394de [0x01]: C0x006c.0x0.0
0x13934a…1394de [0x02]: C0x006c.0x1.0
0x13934a…1394de [0x03]: C0x006c.0x2.0
0x13934a…1394de [0x04]: C0x006c.0x3.0
0x13934a…1394de [0x05]: C0x006d.0x0.0
0x13934a…1394de ]
0x13934a…1394de }
0x1394de…1394e0 00 00 ┆ ┆
0x1394e0…1394e4 00 00 00 00 ┆ ┆
0x1394e4…139678 Dummy {f00=0x006b, f01=0x0190, f02=» , P IDENT WUEXT REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 5 EXTEND FILE * * P*
0x139678…13967e 00 00 00 00 00 00 ┆ ┆
0x13967e…139812 Dummy {f00=0x006b, f01=0x0190, f02=» WSM SYSTEM FILE". t D P** 83-09-27 /MAER VOLUME NAME NO MORE DESTROYED IF RETURN-KEY @ P** IS PRESSED BEFORE ENTERING UNIT-MNEMO. b . P** 83-05-11 /MAER CHANGED DECORATIONS. D P** EXTENTS GET TYPE 'X' AND RE
0x139812…139818 00 00 00 00 00 00 ┆ ┆
0x139818…1399ac Dummy {f00=0x006b, f01=0x0190, f02=»ANGED FROM 5 TO 7 DIGITS b " P** 81-11-04 /DALI CREATION P F P N P DDUM WUDIV V P PDIV j P ENTRY WUEXT x P ENTRY WUEXT1 P ENTRY WUEXT2 P* & P EXPROC DECLRA CRE= SCREEN ROUTINE $ P EXPROC DERR CRE= ERROR ROUT
0x1399ac…1399b2 00 00 00 00 00 00 ┆ ┆
0x1399b2…139b46 Dummy {f00=0x006b, f01=0x018e, f02=», F.C. ~ P EXPROC HALT " P EXPROC CONT DISPLAY WAIT-TEXT " P* H P EXT CREFIL ASS= CREATE FILE R P EXT DELFIL ASS= DELETE FILE v " P EXT RDSECT ASS= READ A SECTOR $ P EXT WRSECT ASS= WRITE A SECTOR " P EXT READDK ASS= READ A RECORD
0x139b46…139b4c 00 00 00 00 00 00 ┆ ┆
0x139b4c…139ce0 Dummy {f00=0x006b, f01=0x0190, f02=» f & P EXT CHANFC ASS= CHANGE FILE-CODE P EXT OPENF ASS= OPEN FILE 2 P EXT CLOSEF ASS= CLOSE FILE T P EJECT x PWUEXT PROC PEXT000 P ATTFMT FEXT P SET DEPROMPT PEXT050 P PERF DECLRA PEXT075 $ P IB DEBI
0x139ce0…139ce6 00 00 00 00 00 00 ┆ ┆
0x139ce6…139e7a Dummy {f00=0x006b, f01=0x0190, f02=» WAIT-TEXT... ~ P MOVE COPFIL,=C'WSM-TEMP' P MOVE STR1A,=C'X' 8 , P XCOPY PBLOCK,W5,W1,PBLOCK,W4 FC NO DISP R & P XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG , P XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME . P XCOPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1
0x139e7a…139e80 00 00 00 00 00 00 ┆ ┆
0x139e80…13a014 (4, 13) Dummy {f00=0x006c, f01=0x0190, f02=»A,W0 F.ORG x , P XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME , P COPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 B P MOVE STRG10A,='R XXX WSM ' r . P XCOPY STRG10A,W2,W3,RELNUM,W0 SET REL. NO P MOVE BIN1,=W'40' 6 P XCOPY PBLOCK,BIN1,W9,STRG10A,W0 REL +
0x13a014…13a01a 00 00 00 00 00 00 ┆ ┆
0x13a01a…13a1ae Dummy {f00=0x006c, f01=0x0190, f02=»EN,W0 v " P CALL BCDBIN,NOREC,BIN10,BIN11 P MOVE BIN1,=W'52' 4 2 P XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS N P MOVE BIN1,=W'54' 2 P XCOPY PBLOCK,BIN1,W2,BIN11,W0 NO. OF RECORDS P MOVE BIN1,=W'56' " P XCOPY PBLOCK,BIN1,W2,W0,W
0x13a1ae…13a1b4 00 00 00 00 00 00 ┆ ┆
0x13a1b4…13a348 Dummy {f00=0x006c, f01=0x0190, f02=»MP RETCOD,W0 'I/O-ERROR' P BNZ EXT750 > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD 4 P BNOK EXT750 v " P MOVE BIN2,W0 USED FOR REL.REC P MOVE RECNUM,W1 PEXT700 , P CALL BCDBIN,RECNUM,FFSNR(W1),FFSNR(W2) < P C
0x13a348…13a34e 00 00 00 00 00 00 ┆ ┆
0x13a34e…13a4e2 Dummy {f00=0x006c, f01=0x0190, f02=»T720 ~ P CBE LNEXT1,W0,EXT730 PEXT720 * & P CALL BINBCD,LNEXT1,LNEXT2,RECNUM 8 P B EXT700 b PEXT730 t > P CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX1,RETCOD P BNOK EXT995 P B EXT800 PEXT750 2 P PERF CHVNAM,VOL
0x13a4e2…13a4e8 00 00 00 00 00 00 ┆ ┆
0x13a4e8…13a67c Dummy {f00=0x006c, f01=0x0190, f02=»******************* | , P* * , P* FOLLOWING WORK ITEMS ARE USED * L , P* FOR INIALIZATION OF THE SYSWSM-FILE* | , P* * , P* BIN1 = WORKITEM *
0x13a67c…13a680 00 00 00 00 ┆ ┆
0x13a680…13a682 00 00 ┆ ┆
0x13a682…13a816 Dummy {f00=0x006c, f01=0x0190, f02=» * l , P* BIN5 = NO.OF FS.IN LAST REC. * , P* BIN6 = INDEX * < , P* BIN7 = NOT USED * l , P* BIN8 = CONTER TO MATCH - FS-IND * , P* BIN9 = WORKITEM - FREE-SPACE IND. * , P*
0x13a816…13a81c 00 00 00 00 00 00 ┆ ┆
0x13a81c…13a9b0 Dummy {f00=0x006c, f01=0x0190, f02=» * , P* BCD5A = NO.OF FS.IND PER FS. RECORD* , , P* BCD13A = NO.OF RECORDS * , P*************************************** P EJECT P************************ P* FREE-SPACE RECORDS *
0x13a9b0…13a9b6 00 00 00 00 00 00 ┆ ┆
0x13a9b6…13ab4a Dummy {f00=0x006c, f01=0x0190, f02=» t P MOVE LNEXT2,W0 LINK NEXT2. & P MOVE BCD13A,NOREC NO. OF RECORDS , 6 P MOVE BCD5A,=D'+01920' NO. OF FS-IND. PER FS. REC. V P MOVE BIN4,W0 PEXT810 * P ADD BIN4,W1 NO.OF FREE-SPACE RECORDS P SUB BCD13A,=D'+1' P SUB BCD13A,
0x13ab4a…13ab50 00 00 00 00 00 00 ┆ ┆
0x13ab50…13ace4 (4, 14) Dummy {f00=0x006c, f01=0x018e, f02=»EE-RECORD-IND. n P IN LAST FREE-SPACE RECORD P MOVE BCD13A,BIN4 : P ADD BCD13A,NORECO T P ADD BCD13A,=D'+1' n & P CALL BCDBIN,BCD13A,FRSTN1,FRSTN2 & P CBE BIN4,W1,EXT830 ONLY 1 RECORD P ADD BCD13A,=D'+1' & P CALL BCDBIN,BCD13
0x13ace4…13acea 00 00 00 00 00 00 ┆ ┆
0x13acea…13ae7e Dummy {f00=0x006c, f01=0x018e, f02=» P CBNE BIN4,W1,EXT840 $ P MOVE NOFREE,BIN5 IF LAST RECORD P MOVE NOFREC,BIN5 H PEXT840 b P MOVE RECNUM,=D'+1' p PEXT850 : P***************************************************** : P* FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=F
0x13ae7e…13ae80 00 00 ┆ ┆
0x13ae80…13ae84 00 00 00 00 ┆ ┆
0x13ae84…13b018 Dummy {f00=0x006c, f01=0x018e, f02=» P MOVE BIN6,W0 INDEX , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. PEXT860 P P ADD BIN6,W1 ^ P SUB BIN1,W8 8 RECORDS r P BN EXT870 P MOVE FF(BIN6),=X'FF' P CBE BIN1,W0,EXT880 P B EXT860 PEXT870 P ADD BIN1,W8
0x13b018…13b01e 00 00 00 00 00 00 ┆ ┆
0x13b01e…13b1b2 Dummy {f00=0x006c, f01=0x0190, f02=» PEXT882 P MOVE FF(BIN6),=X'00' P B EXT880 0 P EJECT B " P****************************** P " P* WRITE FREE-SPACE RECORDS * v " P****************************** PEXT885 < P CALL WRITDK,DISK,FILECODE(W3),RBUF,SECLEN,RECNUM,RETCOD
0x13b1b2…13b1b8 00 00 00 00 00 00 ┆ ┆
0x13b1b8…13b34c Dummy {f00=0x006c, f01=0x0190, f02=»BCD5A & P CALL BCDBIN,BCD13A,FRSTN1,FRSTN2 P ADD BIN2,W1 RELREC 8 & P CALL BINBCD,LNEXT1,LNEXT2,BCD13A T P ADD BCD13A,=D'+1' ~ & P CALL BCDBIN,BCD13A,LNEXT1,LNEXT2 P ADD RECNUM,=D'+1' P CBNE BIN4,W1,EXT850 P MOVE LNEXT1,W0
0x13b34c…13b352 00 00 00 00 00 00 ┆ ┆
0x13b352…13b4e6 Dummy {f00=0x006c, f01=0x0190, f02=»CD,FFSNR(W1),FFSNR(W2),RECNUM < P CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD & P BNOK EXT995 f P ADD NORECO,=D'+1' z & P CALL BCDBIN,NORECO,LNEXT1,LNEXT2 < P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD P BNOK EXT9
0x13b4e6…13b4ec 00 00 00 00 00 00 ┆ ┆
0x13b4ec…13b680 Dummy {f00=0x006c, f01=0x0190, f02=»OD READ VOLUME-LABEL n P BNOK EXT750 * P XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE 0 0 P MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT ^ 2 P XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH , P XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH 2 P XCOPY DKBIN3,W0
0x13b680…13b686 00 00 00 00 00 00 ┆ ┆
0x13b686…13b81a Dummy {f00=0x006c, f01=0x018e, f02=»N1 START OF VTOC PEXT900 8 P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR & P BNOK EXT750 b " P MOVE BIN4,W0 DISP TO FILENAME v PEXT905 P MOVE BIN3,W0 ( P MATCH COPFIL,BIN3,W8,SYSBUF,BIN4,W8 P BOK EXT915 PEXT910
0x13b81a…13b820 00 00 00 00 00 00 ┆ ┆
0x13b820…13b9b4 (4, 15) Dummy {f00=0x006c, f01=0x018e, f02=» n P BZ EXT925 & P ADD BIN1,W1 READ NEXT VTOC RECORD P B EXT900 D PEXT915 V ( P CBNE BIN5,W0,EXT920 NO. OF EXTENTS d & P MOVE BIN12,=W'40' NO. OF EXTENTS ( P ADD BIN12,BIN4 DISP IN VTOC-RECORD " P XCOPY BIN5,W1,W1,SYSBUF,BIN12
0x13b9b4…13b9ba 00 00 00 00 00 00 ┆ ┆
0x13b9ba…13bb4e Dummy {f00=0x006c, f01=0x0190, f02=» " P COPY SYSBUF,BIN4,W8,FILNAM,W0 P ADD BIN4,W10 * P ADD BIN7,W1 @ 0 P XCOPY SYSBUF,BIN4,W2,BIN7,W0 EXTENT NO. FEN T P SUB BIN4,W10 : P CALL WRSECT,DISK,BIN1,SYSBUF,RETCOD WRITE THE SECTOR P BNOK EXT750 P SUB BIN5,W1 MORE EXTENT
0x13bb4e…13bb54 00 00 00 00 00 00 ┆ ┆
0x13bb54…13bce8 Dummy {f00=0x006c, f01=0x0190, f02=»,SYSBUF,RETCOD READ VOLUME-LABEL z P BNOK EXT750 ( * P XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE < 0 P MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT j 2 P XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH , P XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH 2 P XCO
0x13bce8…13bcee 00 00 00 00 00 00 ┆ ┆
0x13bcee…13be82 Dummy {f00=0x006c, f01=0x0190, f02=»DD BIN1,DKBIN1 START OF VTOC PEXT930 $ 8 P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR 2 P BNOK EXT750 n " P MOVE BIN4,W0 DISP TO FILENAME PEXT940 P MOVE BIN3,W0 ( P MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8 P BOK EXT970
0x13be82…13be88 00 00 00 00 00 00 ┆ ┆
0x13be88…13c01c Dummy {f00=0x006c, f01=0x018e, f02=»OC RECORDS z P BZ EXT975 & P ADD BIN1,W1 READ NEXT VTOC RECORD $ P B EXT930 N PEXT970 ` & P MOVE BIN12,=W'40' NO. OF EXTENTS n ( P ADD BIN12,BIN4 DISP IN VTOC-RECORD " P XCOPY BIN5,W1,W1,SYSBUF,BIN12 * P CBE BIN5,W0,EXT975 AT LEAST O
0x13c01c…13c020 00 00 00 00 ┆ ┆
0x13c020…13c022 00 00 ┆ ┆
0x13c022…13c1b6 Dummy {f00=0x006c, f01=0x018e, f02=» P BNOK EXT750 PEXT975 P PERF HALT & P B RETUR 8 PEXT990 H P PERF CLOFIL,W3 V PEXT995 n P PERF CLOFIL,W1 | P B EXT750 PRETUR 8 P TBF BOOL4,RETUR2 BRANCH IF NEVER CHANGED! (830927) 2 P PERF CHVNAM,VOLNAM,FCOD
0x13c1b6…13c1bc 00 00 00 00 00 00 ┆ ┆
0x13c1bc…13c350 Dummy {f00=0x006c, f01=0x0190, f02=» P* P* P**************** P* CLOSE FILE * 0 P**************** H PCLOFIL PROC FC ` P PBIN FC v 4 P CALL CLOSEF,DISK,FILECODE(FC),SYSBUF,W0,DEBINW4 P RET P PEND P EJECT P*********************** P*
0x13c350…13c356 00 00 00 00 00 00 ┆ ┆
0x13c356…13c4ea Dummy {f00=0x006c, f01=0x0190, f02=»RECNUM,=D'00' < P PERF CHVNAM,VOLEX1,FCOD CHANGE NAME TO TEMP. (111....1) P BNOK EXT755 V 0 P SET BOOL4 INDICATE VOLNAM CHANGED (830927) j > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P BOK EXT120 , P MOVE DEBINW4,W9 SYS
0x13c4ea…13c4f0 00 00 00 00 00 00 ┆ ┆
0x13c4f0…13c684 (4, 16) Dummy {f00=0x006c, f01=0x0190, f02=»,DISK,FILECODE(W1),RBUF,RECNUM,RETCOD 0 P MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS . P MOVE BIN5,W0 NO. OF EXTENTS b P MOVE BIN1,W0 SECTOR NO. P MOVE BIN7,W0 EXTENT NUMBER : P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL P
0x13c684…13c68a 00 00 00 00 00 00 ┆ ┆
0x13c68a…13c81e Dummy {f00=0x006c, f01=0x018e, f02=»2,SYSBUF,DKBIN2 FSAT-LENGTH ~ , P XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH $ 2 P XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH T P ADD DKBIN3,W1 OCCUPYED BYTE , P SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS " P ADD BIN1,DKBIN1 START OF VTOC PEXT1
0x13c81e…13c820 00 00 ┆ ┆
0x13c820…13c824 00 00 00 00 ┆ ┆
0x13c824…13c9b8 Dummy {f00=0x006c, f01=0x0190, f02=» P MOVE BIN3,W0 ( P MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8 P BOK EXT170 J PEXT150 ^ ( P ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY l 0 P CBL BIN4,=W'240',EXT140 ALL ENTRIES HANDLED $ P SUB DKBIN2,W1 MORE VTOC RECORDS P BNZ EXT160 0 P
0x13c9b8…13c9be 00 00 00 00 00 00 ┆ ┆
0x13c9be…13cb52 Dummy {f00=0x006c, f01=0x0190, f02=»RD p P B EXT130 ! PEXT170 ! ( P CBNE BIN5,W0,EXT175 NO. OF EXTENTS ! * & P MOVE BIN12,=W'40' NO. OF EXTENTS ! V ( P ADD BIN12,BIN4 DISP IN VTOC-RECORD ! " P XCOPY BIN5,W1,W1,SYSBUF,BIN12 ! , P CBNE BIN5,W0,EXT175 AT LEAST ONE ENTRY ! P MOVE
0x13cb52…13cb58 00 00 00 00 00 00 ┆ ┆
0x13cb58…13ccec Dummy {f00=0x006c, f01=0x0190, f02=»SYSBUF,BIN2 ! ~ P CBL BIN6,BIN7,EXT177 " P MOVE BIN7,BIN6 " 2 PEXT177 " J P ADD BIN2,W2 " X 0 P XCOPY BIN10,W0,W2,SYSBUF,BIN2 FILE EXTENT 1 " l P ADD BIN2,W2 " 0 P XCOPY BIN11,W0,W2,SYSBUF,BIN2 FILE EXTENT 2 " ( P CALL BINBCD,BIN10,BIN11,BCDI21(
0x13ccec…13ccf2 00 00 00 00 00 00 ┆ ┆
0x13ccf2…13ce86 Dummy {f00=0x006c, f01=0x0190, f02=» " x P RET # P PEND # P EJECT # " P************************** # 0 P* GET NO. OF FREE * # R P************************ # r PWUEXT2 PROC # P MOVE DEBINW4,W0 # P MOVE RETCOD,W0 # > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1
0x13ce86…13ce8c 00 00 00 00 00 00 ┆ ┆
0x13ce8c…13d020 Dummy {f00=0x006c, f01=0x018e, f02=»ER OF FREE SECTORS # t P MOVE BIN1,W0 SECTOR NO. $ : P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL $ < P BNOK EXT220 $ z * P XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE $ 0 P MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT $ 2 P XCOPY DKBIN1,W0,W2,SYSB
0x13d020…13d026 00 00 00 00 00 00 ┆ ┆
0x13d026…13d1ba Dummy {f00=0x006c, f01=0x018e, f02=» P MOVE DEBINW4,W22 % P RET % PEXT230 % * P MOVE BIN6,W1 % 8 P MOVE BIN5,W2 % N P MOVE BIN3,W0 % d PEXT240 % z < P XCOPY BIN10,W0,W2,SYSBUF,BIN3 1:ST WORD IN NO OF FS REC % < P XCOPY BIN11,W0,W2,SYSBUF,BIN5 2:ST WORD IN NO OF FS REC % ( P
0x13d1ba…13d1c0 00 00 00 00 00 00 ┆ ┆
0x13d1c0…13d354 (4, 17) Dummy {f00=0x006d, f01=0x0190, f02=» P ADD BIN5,W8 & & P ADD BIN6,W1 HANDLE NEXT ENTRY IN & $ P ADD BIN3,W8 CURRENT FSAT-RECORD & B P B EXT240 & j PEXT250 & | P SUB DKBIN1,W1 FSAT-LENGTH & ( P BZ EXT260 JUMP IF ALL FSAT-RECORDS & P HANDLED & * P ADD BIN1,W1 INCREMENT RECORDN
0x13d354…13d35a 00 00 00 00 00 00 ┆ ┆
0x13d35a…13d4ee Dummy {f00=0x006d, f01=0x0190, f02=»NL & P FATTR .HIGH ' P FATTR .INV ' & P FCOPY =C'EXTEND WSM SYSTEM FILE' ' 2 P FLINK FFILE ' P FMEND ' p P* ' ~ PFFILE FRMT ' P FNL ' P FATTR .HIGH ' P FCOPY =C'UNIT:' ' . P FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 ' P FCO
0x13d4ee…13d4f4 00 00 00 00 00 00 ┆ ┆
0x13d4f4…13d688 Dummy {f00=0x006d, f01=0x0190, f02=» FATTR .HIGH ' P FCOPY =C'FILENAME:' ( 6 P FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=14,ALPHA,NEOI ( 0 P FCOPY FILNAM ( j P FNL ( P FNL ( P FATTR .HIGH ( P FATTR .INV ( P FCOPY =C'EXISTING' ( P FTAB 10 ( P FCOPY =C'FILE' ( P FNL
0x13d688…13d68e 00 00 00 00 00 00 ┆ ┆
0x13d68e…13d822 Dummy {f00=0x006d, f01=0x018e, f02=»L 'TTTTX',NORECO ( P FNL ) P FNL ) $ P FATTR .HIGH ) 0 P FATTR .INV ) D P FCOPY =C'EXTEND ' ) X P FCOPY =C'FILE' ) r P FCOPY =C' WITH' ) P FNL ) P FATTR .HIGH ) P FCOPY =C'NO.' ) P FTAB 5 ) P FCOPY =C'OF RECORDS:' ) > P F
0x13d822…13d828 00 00 00 00 00 00 ┆ ┆
0x13d828…13d9bc Dummy {f00=0x006d, f01=0x407a, f02=» PFHEX FRMT * P FNL * P FKI 1,MINL=0,MAXL=0 * " P FCOPY HEX00 * > P FMEND * R P* * ` P END * j@ * vC'FILE' ) r P FCOPY =C' WITH' ) P FNL ) P FATTR .HIGH ) P FCOPY =C'NO.' ) P FTAB 5 ) P FCOPY =C'OF RECORDS:' ) > P F
0x13d9bc…13d9c0 00 00 00 00 ┆ ┆
0x13d9c0…13d9c2 00 00 ┆ ┆
0x13d9c2…13db56 Dummy {f00=0x006d, f01=0x2008, f02=» + FRMT * P FNL * P FKI 1,MINL=0,MAXL=0 * " P FCOPY HEX00 * > P FMEND * R P* * ` P END * j@ * vC'FILE' ) r P FCOPY =C' WITH' ) P FNL ) P FATTR .HIGH ) P FCOPY =C'NO.' ) P FTAB 5 ) P FCOPY =C'OF RECORDS:' ) > P F
0x13db56…13db5c 01 2a 01 90 00 0e ┆ * ┆
0x13db5c…13dcf0 Dummy {f00=0x006d, f01=0x7fff, f02=» k O nk O w * O 0O O ZO ;a O lO e O xO Ya O Z O O xO sO x O Ya O 2O x ( O Ya O ZO Ya O 2 ( O Ya O 9O Y
0x13dcf0…13dcf6 7f ff 7f ff 7f ff ┆ ┆
0x13dcf6…13de8a Dummy {f00=0x006d, f01=0xf03a, f02=» ( O Ya O 2O Ya O Z O Ya O 2k , O Ya O 2O Ya O 9O z O Ya O Zk z & O O Ya O ZO pO q O 0O O ZO qO
0x13de8a…13de90 54 02 1f 01 ff 1c ┆T ┆
0x13de90…13e024 (4, 18) Opaque[0x194]
0x13e024…13e02a 00 00 00 00 00 00 ┆ ┆
0x13e02a…13e1be # DirEnt {nam=»WUDIV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0da8, f03=0x0000}
0x13e02a…13e1be IdxSect {
0x13e02a…13e1be f00 = 0x006d // 0x13e02a @0x0
0x13e02a…13e1be f01 = 0x000c // 0x13e02c @0x2
0x13e02a…13e1be gno = [ // 0x13e02e @0x4
0x13e02a…13e1be [0x00]: C0x006d.0x1.0
0x13e02a…13e1be [0x01]: C0x006d.0x2.0
0x13e02a…13e1be [0x02]: C0x006d.0x3.0
0x13e02a…13e1be [0x03]: C0x006e.0x0.0
0x13e02a…13e1be [0x04]: C0x006e.0x1.0
0x13e02a…13e1be [0x05]: C0x006e.0x2.0
0x13e02a…13e1be ]
0x13e02a…13e1be }
0x13e1be…13e1c0 00 00 ┆ ┆
0x13e1c0…13e1c4 00 00 00 00 ┆ ┆
0x13e1c4…13e358 Dummy {f00=0x006d, f01=0x0190, f02=» , P IDENT WUDIV REL=2.3,850901,870155940230 L P************************************************************************ 4 P* P* P* W S M P* < P* WORK STATION MANAGEMENT UTILITY PROGRAMS DATADIVISION P* P*
0x13e358…13e35e 01 4c 00 20 00 1c ┆ L ┆
0x13e35e…13e4f2 Dummy {f00=0x006d, f01=0x0190, f02=»****** N P P P** HISTORY: P 2 D P** 85-09-10/CJ SUPPORT OF NEW WCH-DISC PTS 6793 AND PTS 6794 : < P** 85-01-25/CJ SUPPORT OF WCH-DISC PTS 6794 FOR 6923 2 P** 84-12-11/CJ IDENTLINE UPDATED TO 841211 < P** 84-12-04/CJ
0x13e4f2…13e4f8 01 4c 00 20 00 1c ┆ L ┆
0x13e4f8…13e68c Dummy {f00=0x006d, f01=0x0190, f02=»ONS FOR 35 MB WD PTS-6963 ON PTS-6910. x : P** " " INTERTASK COMMUNICATION IMPLEMENTED. . < P** " " ITEM 'NOOFPO' ADDED (SEE CB1 BELOW!). l F P** 84-06-01/MAER ADAPTIONS FOR 5 1/4" FLOPPY DISC, TOSS REL 12.2. F P** 83-12-24/MAER
0x13e68c…13e692 01 4c 00 20 00 1c ┆ L ┆
0x13e692…13e826 Dummy {f00=0x006d, f01=0x0190, f02=» TRANSLATION OF INPUT TYPE (CRV,A13). n . P** 83-09-13/MAER NEW CREATE VOLUME MENU. . J P** 83-08-31/MAER NEW RELDAT 83 09 01, LOAD MODULE LINKED WITH LATEST ` N P** RELEASED TOSS UTILITY MODULES. WD-DISCS CAN NOW BE USED. . P** 83-08
0x13e826…13e82c 01 4c 00 20 00 1c ┆ L ┆
0x13e82c…13e9c0 Dummy {f00=0x006d, f01=0x0190, f02=»FENITION - NOW OK. l 6 P** 83-03-18/MAER ADAPTED FOR VD82 SECOND VERSION. * P** 82-10-19/MAER RELEASE DATE ADDED. T ( P** VD82/83-ADAPTIONS. J P** "PACKED" ADDED FOR REL 12 TOSS UTILITIES INTERFACE. , P** 82-07-08/
0x13e9c0…13e9c6 01 4c 00 20 00 1c ┆ L ┆
0x13e9c6…13eb5a Dummy {f00=0x006d, f01=0x018e, f02=» (USED BY WUPRF FOR SECTION SIZE) P DDIV 6 P TERM U1 D P CWB CB1 T P CWB CB2 d P CWB CB3 t P CWB CB4 P CWB CB5 P CWB CB6 P CWB CB7 P CWB CB8 P CWB CB9 P CWB CBA P* P DWB DB1(C
0x13eb5a…13eb60 01 4c 00 20 00 1c ┆ L ┆
0x13eb60…13ecf4 (4, 19) Dummy {f00=0x006d, f01=0x0190, f02=» PDEDSDYKB DSET FC=X'20' " PDEDSPRT DSET FC=X'36',BUFL=100 " ( PDEDSSCRN DSET FC=X'50',BUFDS=DEDSPRT H ( PDEDSSYSL DSET FC=X'58',DSCB=DEDSSCRN t PITCIN DSET FC=X'D0' $ PITCOUT DSET FC=X'D1',DSCB=ITCIN ( P FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN
0x13ecf4…13ecfa 00 00 00 00 00 00 ┆ ┆
0x13ecfa…13ee8e Dummy {f00=0x006d, f01=0x0190, f02=»HANDLER-TASK P CWB CB1 P CWB CB2 $ P CWB CB3 4 P CWB CB4 D P CWB CB5 T P CWB CB6 d P CWB CB7 t P CWB CB8 P CWB CB9 P CWB CBA P P DWB DB1(CBA) P CWB CBB P CWB CBC P EJECT P*
0x13ee8e…13ee94 00 00 00 00 00 00 ┆ ┆
0x13ee94…13f028 Dummy {f00=0x006d, f01=0x0190, f02=» PRETCOD BIN RETURN-CODE P $ D P*************************************************************** , D P* NUMBER OF BUFFER POOL UNITS. EACH UNIT IS 256 CHARACTERS: * t D P* RECOMMENDATION: * D P*
0x13f028…13f02e 00 00 00 00 00 00 ┆ ┆
0x13f02e…13f1c2 Dummy {f00=0x006d, f01=0x0190, f02=» D P*************************************************************** $ PBPOOL STRGI (40),256 BUFFERPOOL L P t PINUNIT STRG 3 UNIT INPUT | PUTUNIT STRG 3 UNIT OUTPUT P P EJECT D P****************************************************
0x13f1c2…13f1c8 00 00 00 00 00 00 ┆ ┆
0x13f1c8…13f35c Dummy {f00=0x006d, f01=0x0190, f02=»******************* d P & PRELNUM STRG C'2.3' RELEASE NUMBER $ ( PRELDAT STRG C'85 09 01' RELEASE DATE N P z P P* PREVIOUS RELEASE DATES: P @ P* 85-09-01 WSM 2.3 TO ACTION-CENTRE < P*
0x13f35c…13f360 00 00 00 00 ┆ ┆
0x13f360…13f362 00 00 ┆ ┆
0x13f362…13f4f6 Dummy {f00=0x006d, f01=0x0190, f02=» 84-12-01 UPDATED 2.2 VERSION x 4 P* 84-10-01 WSM REL 2.2 ( @ P* 84 06 01 (PRE-REL 12.2 TO BELGIUM) ` & P* 84 02 03 & P* 84 01 20 & P*
0x13f4f6…13f4fc 00 00 00 00 00 00 ┆ ┆
0x13f4fc…13f690 Dummy {f00=0x006d, f01=0x0190, f02=»83 09 15 v < P* 83 09 01 (NEW TOSS UTILITIES) > P* 83 08 09 (REL 2.0 TO ALPHA-TEST) P 0 P* 83 06 01 (REL 2.0) & P* 83 05 11 & P*
0x13f690…13f696 00 00 00 00 00 00 ┆ ┆
0x13f696…13f82a Dummy {f00=0x006d, f01=0x0190, f02=» n & P* 82-10-19 P 2 P EJECT : D P*************************************************************** H D P* MAX SECTION SIZE, DISPLAYED WHEN COPY VOLUME/FILE IS USED. * D P************************************************
0x13f82a…13f830 00 00 00 00 00 00 ┆ ┆
0x13f830…13f9c4 (4, 20) Dummy {f00=0x006d, f01=0x0190, f02=»MON-BLOCK: 2 P* P* USAGE: CONSTANTS P* @ PCB2 BLK J PPOOL1 BOOL Z & PSWITWT BOOL F SYSBUF ATTACHED Y/N l * PSWITSY BOOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- PW0 BIN W'0' CONSTANT P
0x13f9c4…13f9ca 00 00 00 00 00 00 ┆ ┆
0x13f9ca…13fb5e Dummy {f00=0x006d, f01=0x018e, f02=» PW6 BIN W'6' CONSTANT PW7 BIN W'7' CONSTANT PW8 BIN W'8' CONSTANT < PW9 BIN W'9' CONSTANT X PW10 BIN W'10' CONSTANT t PW11 BIN W'11' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT PW14 BIN W'14' CONSTANT
0x13fb5e…13fb60 00 00 ┆ ┆
0x13fb60…13fb64 00 00 00 00 ┆ ┆
0x13fb64…13fcf8 Dummy {f00=0x006d, f01=0x0190, f02=» PCB3 BLK PW16 BIN W'16' CONSTANT PW17 BIN W'17' CONSTANT 6 PW18 BIN W'18' CONSTANT T PW19 BIN W'19' CONSTANT r PW20 BIN W'20' CONSTANT PW21 BIN W'21' CONSTANT PW22 BIN W'22' CONSTANT PW23 BIN W'23' CONSTANT P
0x13fcf8…13fcfe 00 00 00 00 00 00 ┆ ┆
0x13fcfe…13fe92 Dummy {f00=0x006d, f01=0x0190, f02=»N W'64' CONSTANT PW188 BIN W'188' CONSTANT " PSECLEN BIN W'256' SECTORLENGTH 8 " PBUFLEN BIN W'255' BUFFERLENGTH ^ P EJECT P* P* COMMON-BLOCK: 4 P* " P* USAGE: DISC-HANDLING P* PCB4 BLK P*
0x13fe92…13fe98 00 00 00 00 00 00 ┆ ┆
0x13fe98…14002c Dummy {f00=0x006d, f01=0x0190, f02=»256 DISC-BUFFER $ PDTEST STRG 1 DISC TEST IN CRVOL , PCOPY STRG 1 Y=WHOLE FILE, N=PART OF FILE @ PANSW STRG 1 Y/N p PDTYPB BCD 4 DISC TYPE INPUT $ PPACKED BCD 2 DISC VERSION INPUT P* PVOLNAM STRG 6 VOLUME-NAME & PCOPNAM S
0x14002c…140032 00 00 00 00 00 00 ┆ ┆
0x140032…1401c6 Dummy {f00=0x006d, f01=0x0190, f02=» p * PPWBDB4 STRG 16 SAVEAREA FOR WORKBLOCKS P AND DESCRIPTORS 6 P R P EJECT Z D P*************************************************************** h P* P* DISC CODE: 6 P* CM1 = EE = CMOS PM1 = EF = PRIMARY MEM. 0
0x1401c6…1401cc 00 00 00 00 00 00 ┆ ┆
0x1401cc…140360 Dummy {f00=0x006d, f01=0x0190, f02=»= F9 = FLOPPY 2 r 2 P* FD3 = FA = FLOPPY 3 FD4 = FB = FLOPPY 4 L P* MD1 = F4 = MINI FIX 1 MD2 = F5 = MINI FIX 2 MD1 - MD4 EXCLUDED FROM N J P* MD3 = F6 = MINI FIX 3 MD4 = F7 = MINI FIX 4 RELEASE 13 2 P* CD1 = FC = 80 MGB 1 CD
0x140360…140366 00 00 00 00 00 00 ┆ ┆
0x140366…1404fa Dummy {f00=0x006d, f01=0x0190, f02=» CD7 = F6 = 80 MGB 7 CD8 = F7 = 80 MGB 8 4 P* WD1 = FC = WINCH. - 1 WD2 = FD = WINCH. - 2 4 4 P* WD3 = FE = WINCH. - 3 WD4 = FF = WINCH. - 4 l 4 P* WD5 = F4 = WINCH. - 5 WD6 = F5 = WINCH. - 6 4 P* WD7 = F6 = WINCH. - 7 WD8 = F7 = WINCH.
0x1404fa…140500 00 00 00 00 00 00 ┆ ┆
0x140500…140694 (4, 21) Dummy {f00=0x006e, f01=0x0190, f02=»U4DU3 C v P FD1FD2FD3FD4 C " P CD1CD2CD3CD4CD5CD6CD7CD8 C * P WD1WD2WD3WD4WD5WD6WD7WD8' P B PDFCODS STRG X'EEEFF0F1F2F3F8F9FAFB CORRESP. TO INPUT UNIT NO C t ( P FCFDFEFFF4F5F6F7FCFDFEFFF4F5F6F7' P P EJECT P* P*
0x140694…14069a 00 00 00 00 00 00 ┆ ┆
0x14069a…14082e Dummy {f00=0x006e, f01=0x018e, f02=» x PFCOD1 BIN FILE-CODE INPUT PFCOD2 BIN FILE-CODE OUTPUT * $ PELMNO BIN ELEMENT-NO, VALUE-SET N P* v PDATE BCD 8 YYMMDD PRSIZE BCD 6 RECORD LENGTH PBLFACT BCD 4 BLOCKING FACTOR & PNOREC BCD 8 NO. OF RECORDS-ENTERED
0x14082e…140834 00 00 00 00 00 00 ┆ ┆
0x140834…1409c8 Dummy {f00=0x006e, f01=0x0190, f02=» PHEXTAB STRGI (7), C " P X'80',X'C0',X'E0',X'F0', C P X'F8',X'FC',X'FE' F 8 PVOLEX1 STRG 6X'111111111111' TEMPORARY VOLUME NAME 1 b 8 PVOLEX2 STRG 6X'222222222222' TEMPORARY VOLUME NAME 2 P EJECT P* PCB6 BLK P*
0x1409c8…1409ce 00 00 00 00 00 00 ┆ ┆
0x1409ce…140b62 Dummy {f00=0x006e, f01=0x0190, f02=» PSWIT07 BOOL PSWIT08 BOOL PSWITFS BOOL , PSW95PR BOOL @ P* T PNEWVOL BOOL F ^ P* t 0 PFILECODE BINI (3),X'D0',X'D0',X'D1' FILECODE ~ P* ( PIPLFC BIN FILE-CODE FOR IPL-DEVICE " PTIDBIN BIN RECEIVING TASK ID
0x140b62…140b68 00 00 00 00 00 00 ┆ ┆
0x140b68…140cfc Dummy {f00=0x006e, f01=0x0190, f02=»ORD NO. FREE-SP. ~ P* PCB8 BLK " P* 2 PDOOL1 BOOL < PDOOL2 BOOL N PDOOL3 BOOL ` PDOOL4 BOOL r PDOOL5 BOOL PDOOL6 BOOL PDOOL7 BOOL PDOOLA BOOL PDOOLB BOOL PDBOFOR BOOL FORCED RECORD $ PVD82 BOO
0x140cfc…140d00 00 00 00 00 ┆ ┆
0x140d00…140d02 00 00 ┆ ┆
0x140d02…140e96 Dummy {f00=0x006e, f01=0x0190, f02=» | PDEBIN2 BIN PDEBIN3 BIN PDEBIN4 BIN , PDEBIN5 BIN > ( PSCRNFC BIN X'50' DEFAULT SCREEN F.C. P . PSYSLFC BIN X'58' DEFAULT SYSTEM LINE F.C. | PW80 BIN W'80' PSTR1A STRG 1 WORKITEM PSTR2A STRG 2 WORKITEM PSTR6A ST
0x140e96…140e9c 00 00 00 00 00 00 ┆ ┆
0x140e9c…141030 Dummy {f00=0x006e, f01=0x0190, f02=»******************************************************** L P** PHYSICAL SCREEN DEFINITION: LINE 1, COL 1, 24*80 ** @ L P** SYSTEM LINE: LINE 25, COL 1, 1*80 ** L P****************************************
0x141030…141036 00 00 00 00 00 00 ┆ ┆
0x141036…1411ca Dummy {f00=0x006e, f01=0x0190, f02=» PCB9 BLK P* PKEYMSK BIN MASK AUTHORITY " 4 PDMAX BIN W'14' HIGHEST DISC TYPE NO USED IN CRV D PBCDI21 BCDI (6),22 WORKITEM | P* " PSTATSH STRG 120 SEARCH STATUS PSTR64A STRG 64 H PDTYPES STRG '080709020513192418112
0x1411ca…1411d0 00 00 00 00 00 00 ┆ ┆
0x1411d0…141364 (4, 22) Dummy {f00=0x006e, f01=0x0190, f02=»E TOSS UTIL PARBLOCK LAYOUT (CRV)) P * & PICLEN BIN ITC REQUEST BUF LENGTH 2 PICTASK BIN ITC TASK ID PICPOOL STRUC | " PICEBL BIN EFF. BUFFER LENGTH PICBUF STRG 21 ITC BUFFER: & P VOLNAME+FILENAME+ELEM.TYPE+NAME P STRUC
0x141364…14136a 00 00 00 00 00 00 ┆ ┆
0x14136a…1414fe Dummy {f00=0x006e, f01=0x0190, f02=»CORD AREA P EJECT P* P* TERMINAL-BLOCK: 2R * P* N ( P* USAGE: DATA RECORD STORING X P* PDB1 DBLK PFS STRG 2 PLNEXT1 BIN LINK NEXT1 PLNEXT2 BIN LINK NEXT2 PNOFREC BIN NO. OF RECOR
0x1414fe…141500 00 00 ┆ ┆
0x141500…141504 00 00 00 00 ┆ ┆
0x141504…141698 Dummy {f00=0x006e, f01=0x0190, f02=» STRG 1 RELATIV FR.NO * PFF STRGI (240),1 FREE REC. INDICATORS P EJECT L P* Z P* d 0 P* USAGE: BOOLEAN AND BINARY WORKITEMS n P* PCBB BLK P* PBOOL1 BOOL WORKITEM PBOOL2 BOOL WORKITEM & PBOOL3 BOOL
0x141698…14169e 00 00 00 00 00 00 ┆ ┆
0x14169e…141832 Dummy {f00=0x006e, f01=0x0190, f02=»EM ~ PBOOL7 BOOL WORKITEM ! PBOOL8 BOOL WORKITEM ! & PBOOL9 BOOL WORKITEM ! B P* ! ^ PBOOLA1 BOOL ! h PBOOLA2 BOOL ! | P* ! PBIN1 BIN WORKITEM ! PBIN2 BIN WORKITEM ! PBIN3 BIN WORKITEM ! PBIN4 BIN WORKITEM ! PBIN5 B
0x141832…141838 00 00 00 00 00 00 ┆ ┆
0x141838…1419cc Dummy {f00=0x006e, f01=0x0190, f02=»ORKITEM ! PBIN11 BIN WORKITEM " PBIN12 BIN WORKITEM " , PBIN13 BIN WORKITEM " H PBIN14 BIN WORKITEM " d PBIN15 BIN WORKITEM " PBIN16 BIN WORKITEM " P " 8 P*************************************************** " 8 P** PROGRAM
0x1419cc…1419d2 00 00 00 00 00 00 ┆ ┆
0x1419d2…141b66 Dummy {f00=0x006e, f01=0x0190, f02=» ** " t 8 P** WUINT - ** # 8 P** WUFIL - ** # 8 P** WUUTI BIN1, BIN2, BIN13-BIN15 ** # 8 P** WUDEN BIN13 **
0x141b66…141b6c 00 00 00 00 00 00 ┆ ┆
0x141b6c…141d00 Dummy {f00=0x006e, f01=0x0190, f02=» - ** # 8 P** WUCOP BIN1-BIN7, BIN10-BIN12 ** $ 4 8 P** WUEXT BIN1-BIN8, BIN10-BIN12 ** $ p 8 P** WUPRF BIN1-BIN12, BIN14-BIN16 ** $ 8 P** WUCVN -
0x141d00…141d06 00 00 00 00 00 00 ┆ ┆
0x141d06…141e9a Dummy {f00=0x006e, f01=0x0190, f02=» ** $ ` 8 P*************************************************** % P % H P EJECT % P P* % ^ P* % h D P* USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES % r P* % PCBC BLK % P* % " PDEPROMPT BOOL DENTERVARIABLE % " PDECH
0x141e9a…141ea0 00 00 00 00 00 00 ┆ ┆
0x141ea0…142034 (4, 23) Dummy {f00=0x006e, f01=0x0166, f02=»BIN DENTERVARIABLE % PDEBINW4 BIN DENTERVARIABLE & P* & @ PDKBIN1 BIN WORKITEM-DEDISC & J PDKBIN2 BIN & n PDKBIN3 BIN & P* & " PDEINPUT STRG 62 DENTERVARIABLE & PBCD2A BCD 2 WORKITEM & PBCD3A BCD 4 WORKITEM & PBCD5A BCD 6 WO
0x142034…14203a 00 00 00 00 00 00 ┆ ┆
0x14203a…1421ce Dummy {f00=0x006e, f01=0x2008, f02=» ' TERVARIABLE % PDEBINW4 BIN DENTERVARIABLE & P* & @ PDKBIN1 BIN WORKITEM-DEDISC & J PDKBIN2 BIN & n PDKBIN3 BIN & P* & " PDEINPUT STRG 62 DENTERVARIABLE & PBCD2A BCD 2 WORKITEM & PBCD3A BCD 4 WORKITEM & PBCD5A BCD 6 WO
0x1421ce…1421d4 00 00 00 00 00 00 ┆ ┆
0x1421d4…142368 Dummy {f00=0x006e, f01=0x4174, f02=» ( & & . & < XT N " H ` & p & ~ . ) ' !ENTER DISK VERSION - 1 = UNPACKED $ & & & - 2 = PA
0x142368…14236e 00 00 00 00 00 00 ┆ ┆
0x14236e…142502 Dummy {f00=0x006e, f01=0x2008, f02=»
0x142502…142508 00 00 00 00 00 00 ┆ ┆
0x142508…14269c Dummy {f00=0x006e, f01=0x00d8, f02=» BCD2A 0 J BCD3A 0 J ( BCD5A 0 J L BCD13A 0 J p BCD4A 0 J TRA99C A 0 J DEBINW4 0 K
0x14269c…1426a0 00 00 00 00 ┆ ┆
0x1426a0…1426a2 00 00 ┆ ┆
0x1426a2…142836 Dummy {f00=0x006e, f01=0x2008, f02=» BCD2A 0 J BCD3A 0 J ( BCD5A 0 J L BCD13A 0 J p BCD4A 0 J TRA99C A 0 J DEBINW4 0 K
0x142836…14283c 00 00 00 00 00 00 ┆ ┆
0x14283c…1429d0 Dummy {f00=0x006e, f01=0x424f, f02=»OLA1 BOOL WORKITEM RECORD N2 ECTOR. VOLUME NAME 2 ********** SE 13 BOOLA2 BOOL WORKITEM AN AND BINARY WORKITEMS *************************** * OL8 BOOL WORKITEM UTUNIT/WUDEN ORS LINE 1, COL 1, 24*80 ** . BIN1 BIN WORKITEM M RFORM
0x1429d0…1429d6 00 00 00 00 00 00 ┆ ┆
0x1429d6…142b6a Dummy {f00=0x006e, f01=0x4249, f02=»N3 BIN WORKITEM M RECORD N2 ECTOR. VOLUME NAME 2 ********** SE 13 BIN4 BIN WORKITEM M AN AND BINARY WORKITEMS *************************** BIN5 BIN WORKITEM M UTUNIT/WUDEN ORS LINE 1, COL 1, 24*80 ** . BIN6 BIN WORKITEM M RFORM
0x142b6a…142b70 00 00 00 00 00 00 ┆ ┆
0x142b70…142d04 (4, 24) Opaque[0x194]
0x142d04…142d0a 00 00 00 00 00 00 ┆ ┆
0x142d0a…142e9e # DirEnt {nam=»WUPRF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0dd8, f03=0x0000}
0x142d0a…142e9e IdxSect {
0x142d0a…142e9e f00 = 0x006e // 0x142d0a @0x0
0x142d0a…142e9e f01 = 0x000a // 0x142d0c @0x2
0x142d0a…142e9e gno = [ // 0x142d0e @0x4
0x142d0a…142e9e [0x00]: C0x006e.0x3.0
0x142d0a…142e9e [0x01]: C0x006f.0x0.0
0x142d0a…142e9e [0x02]: C0x006f.0x1.0
0x142d0a…142e9e [0x03]: C0x006f.0x2.0
0x142d0a…142e9e [0x04]: C0x006f.0x3.0
0x142d0a…142e9e ]
0x142d0a…142e9e }
0x142e9e…142ea0 00 00 ┆ ┆
0x142ea0…142ea4 00 00 00 00 ┆ ┆
0x142ea4…143038 Dummy {f00=0x006e, f01=0x0190, f02=» , P IDENT WUPRF REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 6 PRINT FILE * * P*
0x143038…14303e 5c 46 49 4c 4c 52 ┆ FILLR┆
0x14303e…1431d2 Dummy {f00=0x006e, f01=0x0190, f02=»ODUCED AS ERROR-ROUTINE AFTER P&F-HANDLER CALLS. t @ P** FILES NOW CLOSED AS MANY TIMES AS OPENED. 8 6 P** OPEN: 1. OPENF 2. 1ST PREAD | 2 P** CLOSE: 1. CLOSEF 2. PCLOSE 6 P** 83-06-22/MAER "RETURN" A
0x1431d2…1431d8 5c 46 49 4c 4c 52 ┆ FILLR┆
0x1431d8…14336c Dummy {f00=0x006e, f01=0x0190, f02=»MAER INCREASED ITEM FOR SECTION SIZE. P . P 6 P DDUM WUDIV > P PDIV R P ENTRY WUPRF ` P* t & P EXPROC DECLRA CRE= SCREEN ROUTINE ~ P EXPROC DECLRN $ P EXPROC DERR CRE= ERROR ROUTINE P EXPROC DISERR P EXPROC UFER
0x14336c…143372 5c 46 49 4c 4c 52 ┆ FILLR┆
0x143372…143506 Dummy {f00=0x006e, f01=0x0190, f02=»NAME, F.C. P EXPROC HALT P* & " P EXT RDSECT ASS= READ A SECTOR 0 P EXT PRINTF ASS= PRINT FILE V , P EXT BINBCD ASS= TWO BINARY ITEMS TO BCD z , P EXT BCDBIN ASS= BCD TO TWO BINARY ITEMS P EXT OPENF ASS= OPEN FILE P EXT CLOSEF
0x143506…14350c 5c 46 49 4c 4c 52 ┆ FILLR┆
0x14350c…1436a0 Dummy {f00=0x006e, f01=0x0190, f02=»XT PCLOSE ASS= WSM-CLOSE " P EXT GETIND ASS= GET DIMENSION ( P EXT EMPTYT ASS= CHECK IF EMPTY ITEM F $ P EXT RCGET ASS= GET RETURN-CODE r P INCLUDE WULIT,LIST P EJECT PWUPRF PROC P****************** P* 6 PRINT FILE *
0x1436a0…1436a6 5c 46 49 4c 4c 52 ┆ FILLR┆
0x1436a6…14383a Dummy {f00=0x006e, f01=0x0190, f02=»00 P PERF DECLRA PPRF150 P IB DEBINW2, C , P PRF100, CANC, C D P RETUR, RETUR, C ^ P PRF200 ENTER x P PERF DSKERR,W0 'BELL' P B PRF150 PPRF200 P MOVE BIN5,W0 NO. OF EXTENTS 2 P MOVE BCDI21(W3),=D'00'
0x14383a…143840 5c 46 49 4c 4c 52 ┆ FILLR┆
0x143840…1439d4 (4, 25) Dummy {f00=0x006f, f01=0x0190, f02=»SECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL P BNOK PRF550 6 * P XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE J 0 P MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT x 2 P XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH , P XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENG
0x1439d4…1439da 00 00 00 00 00 00 ┆ ┆
0x1439da…143b6e Dummy {f00=0x006f, f01=0x018e, f02=»ECS l " P ADD BIN1,DKBIN1 START OF VTOC PPRF220 2 8 P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR @ P BNOK PRF550 | " P MOVE BIN4,W0 DISP TO FILENAME PPRF240 P MOVE BIN3,W0 ( P MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8 P B
0x143b6e…143b74 00 00 00 00 00 00 ┆ ┆
0x143b74…143d08 Dummy {f00=0x006f, f01=0x0190, f02=» b $ P SUB DKBIN2,W1 MORE VTOC RECORDS P BNZ PRF280 YES 0 P PERF DSKERR,W12 H P B PRF150 ` PPRF280 r & P ADD BIN1,W1 READ NEXT VTOC RECORD P B PRF220 PPRF300 $ P MOVE BIN2,BIN4 BIN4 -> FILENAME P ADD BIN2,W10 BIN2 ->
0x143d08…143d0e 00 00 00 00 00 00 ┆ ┆
0x143d0e…143ea2 Dummy {f00=0x006f, f01=0x0190, f02=»EL z 0 P XCOPY BIN10,W0,W2,SYSBUF,BIN2 BIN10 := FEL P ADD BIN2,W2 BIN2 -> FEL > 0 P XCOPY BIN11,W0,W2,SYSBUF,BIN2 BIN11 := FEL ^ ( P CALL BINBCD,BIN10,BIN11,BCDI21(W4) P ADD BCDI21(W4),BCDI21(W3) " P CBNG NOREC,BCDI21(W4),PRF340 P A
0x143ea2…143ea8 00 00 00 00 00 00 ┆ ┆
0x143ea8…14403c Dummy {f00=0x006f, f01=0x0190, f02=» ^ 4 P XCOPY PBLOCK,W7,W1,FCOD,W1 FC4= FILECODE DISKIN & P ADD BIN2,W2 DISP TO START SECTOR @ " P XCOPY BIN10,W0,W2,SYSBUF,BIN2 j P ADD BIN2,W2 " P XCOPY BIN11,W0,W2,SYSBUF,BIN2 ( P CALL BINBCD,BIN10,BIN11,BCDI21(W1) P SUB BCDI21(W1),BC
0x14403c…144040 00 00 00 00 ┆ ┆
0x144040…144042 00 00 ┆ ┆
0x144042…1441d6 Dummy {f00=0x006f, f01=0x0190, f02=» XCOPY PBLOCK,W10,W2,BIN10,W0 FROM SECTORNUMBER " P XCOPY PBLOCK,W12,W2,BIN11,W0 8 2 P XCOPY PBLOCK,W14,W2,BIN10,W0 TO SECTORNUMBER ^ " P XCOPY PBLOCK,W16,W2,BIN11,W0 4 P CALL PRINTF,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD P CBE RETCOD,W0,PRF600
0x1441d6…1441dc 00 00 00 00 00 00 ┆ ┆
0x1441dc…144370 Dummy {f00=0x006f, f01=0x0190, f02=»F620 P ADD NOREC,=D'+1' P CBE RECNUM,NOREC,PRF700 & P ADD NOREC,=D'+1' F P B PRF300 ` PPRF700 r P SET DEPROMPT P THOME P PERF DECLRN P B PRF150 P EJECT P* $ P* PRINT FILE TABLE OF CONTENTS
0x144370…144376 00 00 00 00 00 00 ┆ ┆
0x144376…14450a Dummy {f00=0x006f, f01=0x0190, f02=»PFC100,RETUR P* P* START OF FIRST CHAIN 2 P* - BIN14 = STARTLINE OF PAGE (1 OR 6) B , P* - BIN15 = PAGE-SIZE (24 OR 44) x P* P ATTFMT FHEX P THOME 2 P PERF CHVNAM,VOLEX1,FCOD CHANGE NAME TO TEMP.
0x14450a…144510 00 00 00 00 00 00 ┆ ┆
0x144510…1446a4 (4, 26) Dummy {f00=0x006f, f01=0x0190, f02=»CE ` P MOVE BCD13A,W1 PAGE NO:=1 , P MOVE BIN9,W64 LINE-COUNTER:=HIGH-VALUE , ( P MOVE BIN5,W10 START OF FIRST CHAIN * P MOVE BIN12,W0 NUMB OF OCC SECTORS:=0 P EJECT P* P* NEXT CHAIN P* PPFC120 ( P MOVE RECN
0x1446a4…1446aa 00 00 00 00 00 00 ┆ ┆
0x1446aa…14483e Dummy {f00=0x006f, f01=0x0190, f02=» X P BOK PFC140 PPFC132 P MOVE STR6A,HEX00 * P CALL RCGET,RETCOD,STR6A D P MOVE DEBINW4,W22 d P PERF DERROR,DEKTAB4 ~ $ P IB DEBINW2,PFC135,PFC210,PFC210 PPFC135 P CBNE FCOD2,SCRNFC,PFC130 * P PERF CURSET ***SET CU
0x14483e…144840 00 00 ┆ ┆
0x144840…144844 00 00 00 00 ┆ ┆
0x144844…1449d8 Dummy {f00=0x006f, f01=0x0190, f02=»O FIRST ENTRY z " P MOVE BIN11,W24 NO. OF ENTRIES P EJECT < P* J P* NEXT ENTRY T P* l PPFC150 v P MOVE BIN4,BIN10 * P XCOPY DTEST,W0,W1,RBUF,BIN4 LOAD TYPE P ADD BIN4,W1 DISP TO NAME P XCOPY STR6B,W0,W6,RBUF,BIN4
0x1449d8…1449de 00 00 00 00 00 00 ┆ ┆
0x1449de…144b72 Dummy {f00=0x006f, f01=0x0190, f02=»BIN4 LOAD SECTOR NUMBER x , P MOVE BCD5A,BIN16 CONVERT SECTOR TO BCD PPFC155 P 0 P XCOPY PBLOCK,W5,W7,RBUF,BIN10 TYPE AND NAME ^ $ P CALL GETIND,BPOOL(W1),BIN7,BIN6 P XCOPY PBLOCK,W14,W2,BIN6,W0 P MOVE BIN6,W26 $ P XCOPY PBLOCK,BIN6,W
0x144b72…144b78 00 00 00 00 00 00 ┆ ┆
0x144b78…144d0c Dummy {f00=0x006f, f01=0x0190, f02=»ST TIME! X P BOK PFC170 " P XCOPY RETCOD,W0,W2,PBLOCK,W20 $ P PERF UFERR J $ P IB DEBINW2,PFC160,PFC170,PFC210 ^ PPFC160 P CBNE FCOD2,SCRNFC,PFC155 * P PERF CURSET ***SET CURSER AFTER ERROR P B PFC155 P EJECT P*
0x144d0c…144d12 00 00 00 00 00 00 ┆ ┆
0x144d12…144ea6 Dummy {f00=0x006f, f01=0x0190, f02=»ZE BINARY h , P ADD BIN12,BIN16 ADD NUMB OF OCC SECTORS & P MOVE BCD4A,BIN16 CONVERT SIZE BCD B P MOVE BIN16,W0 WORKITEM:=0 l . P CBE DTEST,=C'D',PFC175 JMP IF DEFINITION 8 P XCOPY BIN16,W1,W1,BPOOL(W1),W22 LOAD VERSION BINARY PPFC175 *
0x144ea6…144eac 00 00 00 00 00 00 ┆ ┆
0x144eac…145040 Dummy {f00=0x006f, f01=0x018e, f02=»,W2 ~ 8 P IB DEBINW2,PFC185,PFC210,PFC210, CLR,CAN,RET,CFW C P PFC185 H P B PFC190 X PPFC185 j P CBNE FCOD2,SCRNFC,PFC180 x * P PERF CURSET ***SET CURSOR AFTER ERROR P B PFC180 P EJECT P* " P* NEXT ENTRY OR NE
0x145040…145046 00 00 00 00 00 00 ┆ ┆
0x145046…1451da Dummy {f00=0x006f, f01=0x0190, f02=» P B PFC150 P* ( P* CHANGE FOR NEXT CHAIN RECORD P* L PPFC200 V ( P XCOPY BIN1,W0,W2,RBUF,W2 LINK NEXT d P XCOPY BIN2,W0,W2,RBUF,W4 " P CALL BINBCD,BIN1,BIN2,RECNUM " P CBNE BIN2,W0,PFC130 LINK FWD P CBNE BIN1
0x1451da…1451e0 00 00 00 00 00 00 ┆ ┆
0x1451e0…145374 (4, 27) Dummy {f00=0x006f, f01=0x0190, f02=»N12 LOAD NUMB OF OCC SECTORS BCD & P ADD BIN9,W1 INCREMENT LINE NUMBER ( 4 P PERF PRINT,FPCHEAD,FPCTOT, ***PRINT ONE LINE C R P BIN9,BIN15,BIN14,W2 , P CBNE FCOD2,SCRNFC,PFC210 JMP IF NOT VDU P PERF HALT ***HALT WHEN VDU P EJECT
0x145374…14537a 00 00 00 00 00 00 ┆ ┆
0x14537a…14550e Dummy {f00=0x006f, f01=0x0190, f02=»DEVICE l 6 P CALL CHANFC,DEDSPRT,FCOD2 ---CHANGE OUTPUT DEVICE P CALL CHANFC,DISK,FCOD1 H PPFC220 h 4 P CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD v " P* BOK PFC220 DELETED 83-06-30 " P CALL PCLOSE,PBLOCK,BPOOL(W1) 2 P PERF CHVNAM,V
0x14550e…145514 00 00 00 00 00 00 ┆ ┆
0x145514…1456a8 Dummy {f00=0x006f, f01=0x0190, f02=»SOR AFTER ERROR-MESSAGE P* PCURSET PROC * * P MOVE BIN16,BIN9 LOAD CURRENT LINE NO > P SUB BIN16,W1 ADJUST l 6 P XCOPY BIN16,W0,W1,BIN16,W1 LINE:=ADJUSTED LINENO & P XCOPY BIN16,W1,W1,W1,W1 COLUMN:=1 $ P DSC1 DEDSPRT,6,BIN16 SET CU
0x1456a8…1456ae 00 00 00 00 00 00 ┆ ┆
0x1456ae…145842 Dummy {f00=0x006f, f01=0x0190, f02=»E FORMAT OF THE LINE IS DECIDED OF THE 6 P* PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS, . : P* THE HEADER FORMAT WILL BE PRINTED OUT. HEADER h . P* FORMAT IS DECIDED OF THE PARAMETER P* 'HEADER'. P* : P*
0x145842…145848 00 00 00 00 00 00 ┆ ┆
0x145848…1459dc Dummy {f00=0x006f, f01=0x0190, f02=» LINENO = ACTUAL LINE NUMBER v L P* LINMAX = MAXIMUM NUMBER OF LINES IN ONE P * < P* LINEST = LINE START VALUE z F P* HLINES = NUMBER OF LINES IN HEADER 4 P*
0x1459dc…1459e0 00 00 00 00 ┆ ┆
0x1459e0…1459e2 00 00 ┆ ┆
0x1459e2…145b76 Dummy {f00=0x006f, f01=0x0190, f02=» = 2 CANCEL-KEY 8 P* = 3 RET-KEY 4 P* p L P************************************************************************ z 6 PPRINT PROC HEADER,LINE,LINENO,LINMAX,LINEST,HLINES P PFR
0x145b76…145b7c 00 00 00 00 00 00 ┆ ┆
0x145b7c…145d10 Dummy {f00=0x006f, f01=0x0190, f02=»LEAR ERROR-SIGNAL ~ P EJECT : P CBNG LINENO,LINMAX,PRI300 JUMP IF LINMAX NOT REACHED ( , P CBNE FCOD2,SCRNFC,PRI100 JMP IF NOT VDU f P PERF HALT ***HALT IF VDU ( P SUB BIN2,W1 BIN2 HOLDES KEY INDEX: $ P BZ PRI100 1 = ENTER => PROCEED
0x145d10…145d16 00 00 00 00 00 00 ┆ ┆
0x145d16…145eaa Dummy {f00=0x006f, f01=0x0190, f02=»EADER PRINT HEADER P BNOK PRI350 JUMP IF NOT OK PPRI200 > ( P ADD BCD13A,=D'+1' INCREMENT PAGENR L , P MOVE LINENO,LINEST REINSTATE LINENUMBER x , P ADD LINENO,HLINES ADJUST FOR HEADLINES PPRI300 * P EDWRT DEDSPRT,LINE PRINT DETAIL-L
0x145eaa…145eb0 00 00 00 00 00 00 ┆ ┆
0x145eb0…146044 (4, 28) Dummy {f00=0x006f, f01=0x0190, f02=»SSAGE ROUTINE n * P B PRI999 JUMP ON CLR, CANC OR RET-KEY PPRI400 D ( P ADD LINENO,W1 INCREMENT LINE-NUMBER R P MOVE DEBINW2,W0 OK ~ PPRI999 P RET P PEND P EJECT P* PFUPRINT FRMT P FSL P FATTR .HIGH
0x146044…14604a 00 00 00 00 00 00 ┆ ┆
0x14604a…1461de Dummy {f00=0x006f, f01=0x0190, f02=»,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 P FCOPY INUNIT , P FATTR .HIGH B P FTAB 12 V P FCOPY =C'VOLUME-NAME:' f P FINP 25 P FCOPY VOLNAM P FNL P FATTR .HIGH P FCOPY =C'FILENAME:' 6 P FKI 10,MINL=1,MAXL=8,ME,REWRT,A
0x1461de…1461e0 00 00 ┆ ┆
0x1461e0…1461e4 00 00 00 00 ┆ ┆
0x1461e4…146378 Dummy {f00=0x006f, f01=0x0190, f02=»ORD NO.:' ~ : P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 FROM RECORD P FMEL 'TTTTX',NOREC P P FNL l P FATTR .HIGH x P FCOPY =C'TO RECORD NO.:' 8 P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 TO RECORD P FMEL 'TTTTX',RECNUM P
0x146378…14637e 00 00 00 00 00 00 ┆ ┆
0x14637e…146512 Dummy {f00=0x006f, f01=0x0190, f02=»I,APPL=11 h P FCOPY STR2A ! P FMEND ! & PFHEX FRMT ! 4 P FSL ! F P FKI 1 ! R P FCOPY HEX00 ! ` P FMEND ! t P EJECT ! P* ! P* HEADER LINE ! P* ! PFPCHEAD FRMT ! ( P FTEXT ' +' PRINT WITHOUT ADVANCING ! , P FCOPY =C'PR
0x146512…146518 00 00 00 00 00 00 ┆ ┆
0x146518…1466ac Dummy {f00=0x006f, f01=0x0190, f02=» VOLNAM ! P FTEXT ' PAGE:' " P FMEL 'ZZ9',BCD13A PAGE NO " ( P FEOR " J P FLINK FPCRUB " X P FMEND " n P EJECT " | P* " P* RUBRIK LINE " P* " PFPCRUB FRMT " P FILLR ' ',2 " , P FTEXT 'NAME TYPE SIZE VERSION SECTOR' "
0x1466ac…1466b2 00 00 00 00 00 00 ┆ ┆
0x1466b2…146846 Dummy {f00=0x006f, f01=0x0190, f02=» P FCOPY DTEST TYPE # P FTAB 16 # P FMEL 'ZZ9',BCD4A SIZE # . P FTAB 24 # L $ P FMEL 'ZZZ',BCD3A VERSION NUMBER # P FTAB 31 # $ P FMEL 'ZZ9',BCD5A SECTOR NUMBER # P FMEND # P EJECT # P* # P* TOTAL LINE # P* # PFPCT
0x146846…14684c 00 00 00 00 00 00 ┆ ┆
0x14684c…1469e0 Dummy {f00=0x006f, f01=0x409e, f02=»BCD5A NUMB OF OCC SECTORS # P FMEND $ " P* $ 0 P* FORM FEED $ : P* $ P PFORMF FRMT $ Z P FTEXT ' 1' $ l P FMEND $ P END $ @ $ ',BCD5A SECTOR NUMBER # P FMEND # P EJECT # P* # P* TOTAL LINE # P* # PFPCT
0x1469e0…1469e6 00 00 00 00 00 00 ┆ ┆
0x1469e6…146b7a Dummy {f00=0x006f, f01=0x2008, f02=» % MB OF OCC SECTORS # P FMEND $ " P* $ 0 P* FORM FEED $ : P* $ P PFORMF FRMT $ Z P FTEXT ' 1' $ l P FMEND $ P END $ @ $ ',BCD5A SECTOR NUMBER # P FMEND # P EJECT # P* # P* TOTAL LINE # P* # PFPCT
0x146b7a…146b80 94 94 8f 52 00 40 ┆ R @┆
0x146b80…146d14 (4, 29) Opaque[0x194]
0x146d14…146d1a 00 00 00 00 00 00 ┆ ┆
0x146d1a…146eae # DirEnt {nam=»WUCVN «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e00, f03=0x0000}
0x146d1a…146eae IdxSect {
0x146d1a…146eae f00 = 0x0070 // 0x146d1a @0x0
0x146d1a…146eae f01 = 0x0002 // 0x146d1c @0x2
0x146d1a…146eae gno = [ // 0x146d1e @0x4
0x146d1a…146eae [0x00]: C0x0070.0x0.0
0x146d1a…146eae ]
0x146d1a…146eae }
0x146eae…146eb4 00 00 00 00 00 00 ┆ ┆
0x146eb4…147048 Dummy {f00=0x0070, f01=0x0190, f02=» , P IDENT WUCVN REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 7 CHANGE VOLUME-NAME * * P*
0x147048…14704e 94 94 8f 52 00 40 ┆ R @┆
0x14704e…1471e2 Dummy {f00=0x0070, f01=0x0190, f02=»DECLRA CRE= SCREEN ROUTINE $ P EXPROC DERR CRE= ERROR ROUTINE " P EXPROC DISERR J P EXPROC DSKERR,PBIN ` P EXPROC HALT | P* & P EXT CHVOL ASS= CHANGE VOLUME NAME & P EXT CHANFC ASS= CHANGE FILE-CODE P EJECT PWUCVN PROC
0x1471e2…1471e8 94 94 8f 52 00 40 ┆ R @┆
0x1471e8…14737c Dummy {f00=0x0070, f01=0x0190, f02=»E P SET DEPROMPT PCVN100 P PERF DECLRA . PCVN150 B $ P IB DEBINW2,CVN100,RETUR,CVN300 P P PERF DSKERR,W0 'BELL' x P B CVN150 PCVN300 P CALL CHANFC,DISK,FCOD * P CALL CHVOL,DISK,SYSBUF,COPNAM,RETCOD P BOK R
0x14737c…147380 94 94 8f 52 ┆ R┆
0x147380…147382 00 40 ┆ @┆
0x147382…147516 Dummy {f00=0x0070, f01=0x0190, f02=»SL P FATTR .HIGH P FATTR .INV " P FCOPY =C'CHANGE VOLUME-NAME' 2 P FNL X P FATTR .HIGH d P FCOPY =C'UNIT:' x . P FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 P FCOPY INUNIT P FATTR .HIGH P FTAB 20 P FCOPY =C'VO
0x147516…14751c 94 94 8f 52 00 40 ┆ R @┆
0x14751c…1476b0 Dummy {f00=0x0070, f01=0x40f8, f02=»C'VOLUME-NAME:' . P FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=6 P FCOPY COPNAM J P FLINK FHEX ` P FMEND t PFHEX FRMT P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND P* P END @ P FCOPY =C'VO
0x1476b0…1476b6 94 94 8f 52 00 40 ┆ R @┆
0x1476b6…14784a Dummy {f00=0x0070, f01=0x2008, f02=» -NAME:' . P FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=6 P FCOPY COPNAM J P FLINK FHEX ` P FMEND t PFHEX FRMT P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND P* P END @ P FCOPY =C'VO
0x14784a…147850 94 94 8f 52 00 40 ┆ R @┆
0x147850…1479e4 (4, 30) Opaque[0x194]
0x1479e4…1479ea 00 00 00 00 00 00 ┆ ┆
0x1479ea…147b7e # DirEnt {nam=»WUPRV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e08, f03=0x0000}
0x1479ea…147b7e IdxSect {
0x1479ea…147b7e f00 = 0x0070 // 0x1479ea @0x0
0x1479ea…147b7e f01 = 0x0004 // 0x1479ec @0x2
0x1479ea…147b7e gno = [ // 0x1479ee @0x4
0x1479ea…147b7e [0x00]: C0x0070.0x1.0
0x1479ea…147b7e [0x01]: C0x0070.0x2.0
0x1479ea…147b7e ]
0x1479ea…147b7e }
0x147b7e…147b80 00 00 ┆ ┆
0x147b80…147b84 00 00 00 00 ┆ ┆
0x147b84…147d18 Dummy {f00=0x0070, f01=0x0190, f02=» , P IDENT WUPRV REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 8 PRINT VTOC * * P*
0x147d18…147d1e 00 00 00 00 00 00 ┆ ┆
0x147d1e…147eb2 Dummy {f00=0x0070, f01=0x0190, f02=»CORATIONS. t 6 P** 82-11-04/MAER CLEARING FC1 IN PARAMETER BLOCK ( P** WHEN NOT DISPLAY. L P DDUM WUDIV x P PDIV P ENTRY WUPRV P* & P EXPROC DECLRA CRE= SCREEN ROUTINE $ P EXPROC DERR CRE= ERROR ROUTINE
0x147eb2…147eb8 00 00 00 00 00 00 ┆ ┆
0x147eb8…14804c Dummy {f00=0x0070, f01=0x018e, f02=»ENT EQU X'80' ENTER PPRT EQU X'98' PRINT P* 8 PKTABEN KTAB ENT B P EJECT Z PWUPRV PROC h P******************* z P* 8 PRINT VTOC * P******************* PPRV000 P ATTFMT FSURVEY P SET DEPROMPT
0x14804c…148052 00 00 00 00 00 00 ┆ ┆
0x148052…1481e6 Dummy {f00=0x0070, f01=0x0190, f02=» PPRV200 . P CBE FCOD2,SCRNFC,PRV300 DEVICE = SCREEN? 2 P XCOPY PBLOCK,W4,W1,W0,W0 NO, ERASE INPUT F.C. D $ P (=> NO PAGING IN TOSS UTIL.) z PPRV300 . P XCOPY PBLOCK,W6,W1,FCOD2,W1 PRINT-DEVICE . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-
0x1481e6…1481ec 00 00 00 00 00 00 ┆ ┆
0x1481ec…148380 Dummy {f00=0x0070, f01=0x0190, f02=»F DISERR P B PRV150 PPRV500 " P PERF HALT 0 PRETUR B P RET P P PEND P EJECT j P* x PFSURVEY FRMT P FSL P FNL P FATTR .HIGH P FATTR .INV 4 P FCOPY =C'PRINT VTOC (VOLUME TABLE OF CONTENTS)'
0x148380…148386 00 00 00 00 00 00 ┆ ┆
0x148386…14851a Dummy {f00=0x0070, f01=0x4114, f02=»ATTR .HIGH P FTAB 12 P FCOPY =C'VOLUME-NAME:' " P FINP 25 B P FCOPY VOLNAM R P FNL h P FATTR .HIGH t " P FTEXT 'PRINT OUTPUT DEVICE:' 0 P FKI 21,MINL=2,MAXL=2,ME,ALPHA,NEOI,APPL=11 P FCOPY STR2A P FMEND P END
0x14851a…148520 00 00 00 00 00 00 ┆ ┆
0x148520…1486b4 (4, 31) Dummy {f00=0x0070, f01=0x2008, f02=»
0x1486b4…1486ba 01 2d 01 90 00 0a ┆ - ┆
0x1486ba…14884e Dummy {f00=0x0070, f01=0x0002, f02=»
0x14884e…148854 00 00 00 00 00 00 ┆ ┆
0x148854…1489e8 Dummy {f00=0x0070, f01=0x008a, f02=» PUPD P!!IN WUCVN,SC P!!RE 0,'2.2','3.0' & P!!RE 0,'0220','0300' @ P!!KF WUCVN P%%CRE WUCVN n PPEND F SC WUCVN SC WUPRV SC WUASS SC B:PROCUF 0 WUCRV SC WUINT SC P WUFIL SC ` WU
0x1489e8…1489ee 00 00 01 60 00 00 ┆ ` ┆
0x1489ee…148b82 Dummy {f00=0x0070, f01=0x2008, f02=» P!!IN WUCVN,SC P!!RE 0,'2.2','3.0' & P!!RE 0,'0220','0300' @ P!!KF WUCVN P%%CRE WUCVN n PPEND F SC WUCVN SC WUPRV SC WUASS SC B:PROCUF 0 WUCRV SC WUINT SC P WUFIL SC ` WU
0x148b82…148b88 00 00 01 60 00 00 ┆ ` ┆
0x148b88…148d1c Dummy {f00=0x0070, f01=0x7fff, f02=» O e f O +O 9 O +O O i ( O ga O 2O ja O + h O 2O ! O 2k ( O k i O ga O 2k 0
0x148d1c…148d20 7f ff 7f ff ┆ ┆
0x148d20…148d22 7f ff ┆ ┆
0x148d22…148eb6 Dummy {f00=0x0070, f01=0x7fff, f02=» O ZO ! O m O O WO O X O XO Y O O XO WO O JO ! O aO V O VO ! O ZO !O b O VO
0x148eb6…148ebc 7f ff 7f ff 7f ff ┆ ┆
0x148ebc…149050 Dummy {f00=0x0070, f01=0x7fff, f02=» +O oO pO pO qO pO pO pO pO r p O ak @ 2 O O O a O !O RO KO aO $ O l O +O ! O +k H O n O s o
0x149050…149056 7f ff 7f ff 7f ff ┆ ┆
0x149056…1491ea Dummy {f00=0x0070, f01=0x7fff, f02=» O Tk ` O p s O &O ! ! O O " O O 'O # O Q $ O % O & l ' O &O !
0x1491ea…1491f0 7f ff 7f ff 7f ff ┆ ┆
0x1491f0…149384 (4, 32) Opaque[0x194]
0x149384…14938a 00 00 00 00 00 00 ┆ ┆
0x14938a…14951e # DirEnt {nam=»WUASS «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e18, f03=0x0000}
0x14938a…14951e IdxSect {
0x14938a…14951e f00 = 0x0070 // 0x14938a @0x0
0x14938a…14951e f01 = 0x000e // 0x14938c @0x2
0x14938a…14951e gno = [ // 0x14938e @0x4
0x14938a…14951e [0x00]: C0x0070.0x3.0
0x14938a…14951e [0x01]: C0x0071.0x0.0
0x14938a…14951e [0x02]: C0x0071.0x1.0
0x14938a…14951e [0x03]: C0x0071.0x2.0
0x14938a…14951e [0x04]: C0x0071.0x3.0
0x14938a…14951e [0x05]: C0x0072.0x0.0
0x14938a…14951e [0x06]: C0x0072.0x1.0
0x14938a…14951e ]
0x14938a…14951e }
0x14951e…149520 00 00 ┆ ┆
0x149520…149524 00 00 00 00 ┆ ┆
0x149524…1496b8 Dummy {f00=0x0070, f01=0x0190, f02=» . P IDENT WUASS W,REL=2.3,841211,870155940230 P 6 P** HISTORY: > P R : P** 84-12-11/CJ I.C. WSM-UTIL <-> TOSSUT REL13 IMPL. Z : P** 83-10-06/MAER CHECK OF TOSS FORMATTED DISC ADDED. " P** 83-02-28/MAER RELEASE 1.O 8 P** 83-02-09/
0x1496b8…1496be 00 00 00 00 00 00 ┆ ┆
0x1496be…149852 Dummy {f00=0x0070, f01=0x0190, f02=» ENTRY CREFIL P ENTRY DELFIL P ENTRY GETVOL , P ENTRY COPYDD B P ENTRY PRINTF X P ENTRY CHVOL n P ENTRY SURVEY P ENTRY RDSECT P ENTRY WRSECT P ENTRY READDK P ENTRY WRITDK P ENTRY OPENF P ENT
0x149852…149858 00 00 00 00 00 00 ┆ ┆
0x149858…1499ec Dummy {f00=0x0070, f01=0x0190, f02=»VA0 P* P EXTRN T:FDSP P EXTRN I:RT1 , P EXTRN T:LOFS @ P EXTRN T:BCDB V P EXTRN T:BINB l P EJECT P PCALL FORM 16=/F6A1,16 P PTOSS1 EQU 'TO' PTOSS2 EQU 'SS' PTOSS3 EQU ' R' PTOSS4 EQ
0x1499ec…1499f2 00 00 00 00 00 00 ┆ ┆
0x1499f2…149b86 Dummy {f00=0x0070, f01=0x0190, f02=»T f P* 4 P*********************************************** P L P* ORDER-CODES T P j * PRDCODE EQU /0082 READ-WITH-WAIT CODE r * PWRCODE EQU /0086 WRITE-WITH-WAIT CODE & PTOCODE EQU /00B9 SET TIME OUT CODE P P* ECB F
0x149b86…149b8c 00 00 00 00 00 00 ┆ ┆
0x149b8c…149d20 Dummy {f00=0x0070, f01=0x0190, f02=»A 80 REQUIRED LENGTH " PECBEFF DATA 0 EFFECTIVE LENGTH PECBRC DATA 0 RETURN CODE B PECBCW DATA 0 CONTROL WORD b PECBCW2 DATA 0 CONTROLWORD 2 P 4 P*********************************************** P* 2 P* PREPARE FOR GETTING
0x149d20…149d26 00 00 00 00 00 00 ┆ ┆
0x149d26…149eba Dummy {f00=0x0070, f01=0x0190, f02=»EVICE IN SYSTAB r & PIPLFC1 DATA '#MU1',SCTIPL,IPLBUF,2 PIPLBUF DATA 0 B P EJECT X 4 P*********************************************** f P* $ P* GET FILE-CODE FOR IPL DEVICE P* * P* CALL: CALL GIPLFC,<TIDBIN>,<IPLFC> P
0x149eba…149ec0 00 00 00 00 00 00 ┆ ┆
0x149ec0…14a054 (4, 33) Dummy {f00=0x0071, f01=0x018e, f02=» LDR* A1,A9 LOAD REC. TID IN A1 & P ST A1,IPLFC1+2 STORE RECEVING TID ( P LDKL A7,IPLFC1 R 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING j P LKM P DATA 21 GET FC * P AD A12,-12,A13 RESTORE CREDIT RETADR & P CALL I:EVA0 GET ADRESS
0x14a054…14a05a 00 00 00 00 00 00 ┆ ┆
0x14a05a…14a1ee Dummy {f00=0x0071, f01=0x0190, f02=» P* CHANGE FILE CODE IN ECB P* CALL: ( * P* CALL CHANFC,DATASET,FILECODE : P* h PCHANFC EQU * r : P CALL T:FDSP GET DAT-ENTRY IN A3 AND DSCB-ENTRY IN A8 P LDR A6,A3 AND SAVE A3 " P CALL I:EVA0 GET ADDR. TO BIN P
0x14a1ee…14a1f4 00 00 00 00 00 00 ┆ ┆
0x14a1f4…14a388 Dummy {f00=0x0071, f01=0x0190, f02=»************ P* CREATE VOLUME P****************** , PCREVOL EQU * F P LDKL A4,'CR' Z P LDKL A6,'V ' p P RF UTINF P**************** P* CREATE FILE P**************** PCREFIL EQU * P LDKL A4,'CR' P
0x14a388…14a38e 00 00 00 00 00 00 ┆ ┆
0x14a38e…14a522 Dummy {f00=0x0071, f01=0x0190, f02=»IL EQU * P LDKL A4,'DL' P LDKL A6,'F ' & P RF UTINF < P* N P* X P EJECT b P**************** p P* PRINT FILE P**************** P* P* PPRINTF EQU * P LDKL A4,'PR' P LDKL A6,'F ' P
0x14a522…14a528 00 00 00 00 00 00 ┆ ┆
0x14a528…14a6bc Dummy {f00=0x0071, f01=0x0190, f02=» * P LDKL A4,'CD' P LDKL A6,'D ' P RF UTINF 6 P********* H P* PVC * Z P********* l PSURVEY EQU * ~ P LDKL A4,'PV' P LDKL A6,'C ' P RF UTINF P EJECT P* 0 P* PERFORME A CALL TO ONE OF
0x14a6bc…14a6c0 00 00 00 00 ┆ ┆
0x14a6c0…14a6c2 00 00 ┆ ┆
0x14a6c2…14a856 Dummy {f00=0x0071, f01=0x0190, f02=»F EQU * P CALL I:EVA0 A9 = :A PBLOCK & P STR A4,A9 STORE TOSSUT CMD 1WORD 4 & P ST A6,2,A9 STORE TOSSUT CMD 2WORD ^ $ P LDR A4,A9 SAVE ADRESS TO PBLOCK P CALL I:EVA0 DUMMY P CALL I:EVA0 DUMMY 0 P************************************
0x14a856…14a85c 00 00 00 00 00 00 ┆ ┆
0x14a85c…14a9f0 Dummy {f00=0x0071, f01=0x0190, f02=»DKL A8,INTECB LOAD ADRESS TO ECB ( P LDKL A6,/0099 LOAD OUTPUT FILECODE ( ( P STR A6,A8 STORE FILECODE IN ECB BUF T P LDKL A6,10 LOAD TIME-OUT . P ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD * P LDKL A7,TOCODE PUT TIMEOUT CODE TO A7 0 P SU A1
0x14a9f0…14a9f6 00 00 00 00 00 00 ┆ ┆
0x14a9f6…14ab8a Dummy {f00=0x0071, f01=0x0190, f02=»************************************* P* . 4 P* SEND A BUFFER CONTAINING TOSSUTILITY COMMAND 8 : P* TO TOSSUTIL APPLICATION VIA INTERTASK COMMUNICATION p P* , P*************************************** " P LDKL A6,'TU' MOVE TID TO ...
0x14ab8a…14ab90 00 00 00 00 00 00 ┆ ┆
0x14ab90…14ad24 (4, 34) Dummy {f00=0x0071, f01=0x0190, f02=»U A12,-12,A13 SAVE RETADRESS IF DISKPAGING P LKM 2 P DATA 1 > * P AD A12,-12,A13 RESTORE CREDIT RETADR N P LD A1,8,A8 LOAD ECB RETCOD | P RF(Z) GOON1 GO ON IF CR=0 " P LDK A1,20 LOAD I/O-ERROR 0020 P RF RET2 PGOON1 EQU *
0x14ad24…14ad2a 00 00 00 00 00 00 ┆ ┆
0x14ad2a…14aebe Dummy {f00=0x0071, f01=0x0190, f02=»*************************** & P LDKL A6,/0098 LOAD INPUT FILECODE $ ( P STR A6,A8 STORE FILECODE IN ECB BUF N P LDKL A6,-1 LOAD TIME-OUT z . P ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD * P LDKL A7,TOCODE PUT TIMEOUT CODE TO A7 0 P SU A12,-12,
0x14aebe…14aec0 00 00 ┆ ┆
0x14aec0…14aec4 00 00 00 00 ┆ ┆
0x14aec4…14b058 Dummy {f00=0x0071, f01=0x0190, f02=»******************************* P* ( 8 P* SETUP INTERTASK COMMUNICATION TO RECEIVE A BUFFER 2 $ P* FROM TOSSUTILITY APPLICATION n P* , P*************************************** " P LDKL A6,'TU' MOVE TID TO ... & P ST A6,10,A8
0x14b058…14b05e 00 00 00 00 00 00 ┆ ┆
0x14b05e…14b1f2 Dummy {f00=0x0071, f01=0x0190, f02=»ATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETADR P LD A1,8,A8 LOAD ECB RETCOD < P RF(Z) GOON2 GO ON IF CR=0 ` " P LDK A1,20 LOAD I/O-ERROR 0020 P RF RET2 PGOON2 EQU * P LDR* A1,A4 LOAD TOSSUT RC P RF RET2 P EJECT
0x14b1f2…14b1f8 00 00 00 00 00 00 ┆ ┆
0x14b1f8…14b38c Dummy {f00=0x0071, f01=0x0190, f02=» * ( P CALL T:FDSP GET DSET ADDRESS TO A8 * P CALL I:EVA0 GET BUFFER ADDRESS TO A9 6 ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN d P ANKL A9,/FFFE , P ST A9,2,A8 STORE BUFFER ADDRESS IN DSET " P LDK A6,6 REQUESTED LENGTH =6 4 P ST A6,4,A8
0x14b38c…14b392 00 00 00 00 00 00 ┆ ┆
0x14b392…14b526 Dummy {f00=0x0071, f01=0x0190, f02=»RDER CODE FOR TEST STATUS P* A8 DSET ADDRESS " 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING D P LKM x P DATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETADR P P LD A1,8,A8 LOAD RETURN CODE . P ANKL A1,/F6FF MASK OUT BI
0x14b526…14b52c 00 00 00 00 00 00 ┆ ┆
0x14b52c…14b6c0 Dummy {f00=0x0071, f01=0x018e, f02=»FROM TEST STATUS) l " P* IN CALLERS BUFFER VOLNAM P @ $ P LD A1,2,A8 LOAD BUFFER ADDRESS H ( P LDK A2,6 NO OF BYTES IN VOLUME NAME p PLOOP EQU * P LCR A3,A1 P SCR A3,A9 P ADK A1,1 P ADKL A9,1 P SUK A2,1 P
0x14b6c0…14b6c6 00 00 00 00 00 00 ┆ ┆
0x14b6c6…14b85a Dummy {f00=0x0071, f01=0x0190, f02=» d P AND "RETRIES PERFORMED" PRET2 EQU * * P LDR A6,A1 SAVE RETCOD < P CALL I:EVA0 Z P STR A6,A9 STORE RETURN-CODE n P LDR A6,A6 P RF(Z) RET3 P LDK A6,1 PRET3 EQU * P LD A4,2,A13 GET STACK BASE " P SC A6,-
0x14b85a…14b860 00 00 00 00 00 00 ┆ ┆
0x14b860…14b9f4 (4, 35) Dummy {f00=0x0071, f01=0x0190, f02=» * z P************************ PCHVOL EQU * * P CALL T:FDSP > P CM 10,A8 SECTOR NO. = 0 R P CM 12,A8 r PCHV100 LDKL A1,256 & P ST A1,4,A8 STORE REQUESTED LENGTH P CALL I:EVA0 $ P ST A9,2,A8 STORE BUFFER ADRESS P LDK
0x14b9f4…14b9fa 00 00 00 00 00 00 ┆ ┆
0x14b9fa…14bb8e Dummy {f00=0x0071, f01=0x018e, f02=»R l P LD A6,8,A8 GET RETURN CODE P LDK A7,/81 BASIC READ . 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING L P LKM P DATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETADR P CALL I:EVA0 GET VOLUME NAME P EJECT $ P LD A7,2,A8
0x14bb8e…14bb94 00 00 00 00 00 00 ┆ ┆
0x14bb94…14bd28 Dummy {f00=0x0071, f01=0x0190, f02=» | P SUKL A2,TOSS2 P RF(NZ) NOTOSS P SUKL A3,TOSS3 4 P RF(NZ) NOTOSS J P SUKL A4,TOSS4 ` P RF(NZ) NOTOSS v P EJECT P $ P******************************* $ P* REPLACE CURRENT VOLUME NAME * $ P**********************
0x14bd28…14bd2e 00 00 00 00 00 00 ┆ ┆
0x14bd2e…14bec2 Dummy {f00=0x0071, f01=0x0190, f02=»RE CHARACTER P ADK A1,1 P ADKL A9,1 & P SUK A2,1 8 " P RB(NZ) CHV200 IF NOT FINISHED J P LDK A7,/85 WRITE BASIC p 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING P LKM P DATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETADR
0x14bec2…14bec8 00 00 00 00 00 00 ┆ ┆
0x14bec8…14c05c Dummy {f00=0x0071, f01=0x0190, f02=»STORE CREDIT RETADR ~ & P LDK A1,0 INDICATE TOSS FORMATTED P RF CHV300 F * PNOTOSS EQU * NOT A TOSS FORMATTED DISC X P LDK A1,/42 LOAD RETURN CODE PCHV300 EQU * P LDR A6,A6 . P RF(NZ) CHV400 JUMP IF NOT TO BE UNLOADED P LDK A
0x14c05c…14c060 00 00 00 00 ┆ ┆
0x14c060…14c062 00 00 ┆ ┆
0x14c062…14c1f6 Dummy {f00=0x0071, f01=0x0190, f02=»R l PCHV400 EQU * P LDR A1,A1 TOSS DISC? , P RB(NZ) RET1 -NO, USE EXISTING A1-VALUE < P RB RET l P EJECT | P* . P* CALL WRSECT,DSET,RECNO,BUF,RETCOD P* . P* DSET EVENT CONTROL BLOCK > P*
0x14c1f6…14c1fc 00 00 00 00 00 00 ┆ ┆
0x14c1fc…14c390 Dummy {f00=0x0071, f01=0x018e, f02=»M LKM j P* P* PWRSECT EQU * " P LDKL A11,/85 BASIC WRITE 6 P RF RDS000 X P* j P* t P* ~ . P* CALL RDSECT,DSET,RECNO,BUF,RETCOD . P* DSET EVENT CONTROL BLOCK > P* RECNO REALA
0x14c390…14c396 00 00 00 00 00 00 ┆ ┆
0x14c396…14c52a Dummy {f00=0x0071, f01=0x0190, f02=» P* PRDSECT EQU * P LDKL A11,/81 BASIC READ " PRDS000 EQU * B P CALL T:FDSP V P CALL I:EVA0 j P LDR* A1,A9 ~ P CM 10,A8 $ P ST A1,12,A8 STORE SECTOR NUMBER P EJECT PRDS100 LDKL A1,256 & P ST A1,4,A8 STORE RE
0x14c52a…14c530 00 00 00 00 00 00 ┆ ┆
0x14c530…14c6c4 (4, 36) Dummy {f00=0x0071, f01=0x0190, f02=» IF DISKPAGING r P LKM P DATA 1 " * P AD A12,-12,A13 RESTORE CREDIT RETADR 2 P LD A6,8,A8 GET RETURN CODE ` P LDR A7,A11 P* A7 ORDER CODE P* A8 DSET ADDRESS 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING
0x14c6c4…14c6ca 00 00 00 00 00 00 ┆ ┆
0x14c6ca…14c85e Dummy {f00=0x0071, f01=0x0190, f02=»CT P* : P* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD 0 P* RETCOD RETURN CODE FROM LKM R P* . P* DSET EVENT CONTROL BLOCK & P* FILECODE FILE NUMBER " P* BUF BUFFE
0x14c85e…14c860 00 00 ┆ ┆
0x14c860…14c864 00 00 00 00 ┆ ┆
0x14c864…14c9f8 Dummy {f00=0x0071, f01=0x0190, f02=»ITDK EQU * P LDKL A11,/95 ORDER CODE P RF READ00 2 P* D : P* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD N P* . P* DSET EVENT CONTROL BLOCK & P* FILECODE FILE NUMBER " P* BUF
0x14c9f8…14c9fe 00 00 00 00 00 00 ┆ ┆
0x14c9fe…14cb92 Dummy {f00=0x0071, f01=0x0190, f02=» RETCOD RETURN CODE FROM LKM P* ! . PREADDK EQU * ! 8 P LDKL A11,/91 ORDER CODE ! L PREAD00 EQU * ! l ( P CALL T:FDSP GET DSET ADDRESS TO A8 ! P EJECT ! 6 P* GET PARAMETERS FROM PARAMETER LIST AND STORE ! P* THEM IN DSET !
0x14cb92…14cb98 00 00 00 00 00 00 ┆ ┆
0x14cb98…14cd2c Dummy {f00=0x0071, f01=0x0190, f02=»L I:EVA0 RECORD LENGTH ! P LDR* A6,A9 " P ST A6,4,A8 " 2 P CALL I:EVA0 RECORD NO " F P LDR* A6,A9 " d & P CALL T:BCDB COVERT TO TWO BINARYS " x " P ST A2,12,A8 LEAST SIGNIFICANT " " P ST A1,10,A8 MOST SIGNIFICANT " PREAD20 EQU * " P LDR A
0x14cd2c…14cd32 00 00 00 00 00 00 ┆ ┆
0x14cd32…14cec6 Dummy {f00=0x0071, f01=0x0190, f02=» " P DATA 15 # * P AD A12,-12,A13 RESTORE CREDIT RETADR # PREAD40 EQU * # F P ABL RET # Z P EJECT # j P* # x 8 P* CALL CLOSEF,DSET,FILECODE,BUFF,RECNO,RETCOD # P* # 0 P* DSET EVENT CONTROL BLOCK # ( P*
0x14cec6…14cecc 00 00 00 00 00 00 ┆ ┆
0x14cecc…14d060 Dummy {f00=0x0071, f01=0x0190, f02=» FILE # ^ P* $ 0 P* RETCOD RETURN CODE FROM LKM $ PCLOSEF EQU * $ L P LDR A11,A14 $ ` P RF OPENF0 $ t PCLOS10 EQU * $ ( P CALL T:BCDB CONVERT TO TWO BINARYS $ P LD A6,2,A8 ADR TO FPB $ " P ST A1,58,A6 LEAST SIGNIFICANT $ "
0x14d060…14d066 00 00 00 00 00 00 ┆ ┆
0x14d066…14d1fa Dummy {f00=0x0071, f01=0x0190, f02=» CODE $ x P RB READ20 % P EJECT % P* % . < P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME,RETCOD % 8 P* % x 0 P* DSET EVENT CONTROL BLOCK % ( P* FILECODE FILE NUMBER % 2 P* BUF FILE PARAMETE
0x14d1fa…14d200 00 00 00 00 00 00 ┆ ┆
0x14d200…14d394 (4, 37) Dummy {f00=0x0072, f01=0x0190, f02=» FROM LKM % n P* & POPENF EQU * & P SUR A11,A11 & 0 POPENF0 EQU * & D ( P CALL T:FDSP GET DSET ADDRESS TO A8 & X * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE & P LDR A10,A9 & 4 P CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) & ( P ADKL A9,1
0x14d394…14d39a 00 00 00 00 00 00 ┆ ┆
0x14d39a…14d52e Dummy {f00=0x0072, f01=0x0190, f02=» " P LDK A3,80 NO OF BYTES IN FPB ' P LDR A2,A9 ADDRESS TO FPB ' * POPEN00 EQU * ' L P CMR A2 STORE ZERO IN FPB ' ` P ADK A2,2 INCREACE ADDRESS ' P SUK A3,2 ' P RB(NZ) OPEN00 ' P EJECT ' P* ' , P* GET FILE NAME AND STORE IT IN
0x14d52e…14d534 00 00 00 00 00 00 ┆ ┆
0x14d534…14d6c8 Dummy {f00=0x0072, f01=0x0190, f02=»ILE NAME IN FPB ' z & P LDK A4,8 NO OF CHAR IN FILE NAME ( POPEN20 EQU * ( B P LCR A3,A9 GET ON CHAR ( V $ P SCR A3,A6 STORE ONE CHAR IN FPB ( t P ADKL A9,1 ( P ADK A6,1 ( P SUK A4,1 ( P RB(NZ) OPEN20 ( P EJECT ( P* ( , P* GET
0x14d6c8…14d6ce 00 00 00 00 00 00 ┆ ┆
0x14d6ce…14d862 Dummy {f00=0x0072, f01=0x0190, f02=»E ( n POPEN40 EQU * ) P LCR A3,A9 ) $ P SCR A3,A6 STORE ONE CHAR IN FPB ) 0 P ADKL A9,1 ) X P ADK A6,1 ) j P SUK A4,1 ) | P RB(NZ) OPEN40 ) P LDK A7,/A1 LOAD ORDER CODE ) 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING ) P LKM ) P
0x14d862…14d868 00 00 00 00 00 00 ┆ ┆
0x14d868…14d9fc Dummy {f00=0x0072, f01=0x0190, f02=»3,A10 ) " P RB READ40 CHEC ON ERROR CODE * P EJECT * 4 P* * B 4 P* CONVERT A BCD-ITEM TO TWO BINARY-ITEMS * L P* * * P* CALL BCDBIN,BCD,BINMS,BINLS * P* * PBCDBIN EQU * * P CALL I:EVA0 GET AD TO BCD * . P CALL T:BCDB
0x14d9fc…14da00 00 00 00 00 ┆ ┆
0x14da00…14da02 00 00 ┆ ┆
0x14da02…14db96 Dummy {f00=0x0072, f01=0x018e, f02=»-POINTER * x " P CALL I:EVA0 GET ADR TO BINMS + $ P LD A1,4,A14 GET VALUE OF BINMS + 6 " P STR A1,A9 PUT VALUE IN BINMS + ^ P CALL I:EVA0 GET AD TO BINLS + $ P LD A2,2,A14 GET VALUE OF BINLS + " P STR A2,A9 PUT VALUR IN BINLS + $ P ADKL A14,4 UPDATE
0x14db96…14db9c 00 00 00 00 00 00 ┆ ┆
0x14db9c…14dd30 Dummy {f00=0x0072, f01=0x0190, f02=» + ^ P* , * P* CALL BINBCD,BINMS,BINLS,BCD , P* , @ PBINBCD EQU * , J " P CALL I:EVA0 GET ADR OF BINMS , ^ " P LDR* A9,A9 GET VALUE OF BINMS , P STR A9,A14 SAVE A9 ON STACK , $ P SUKL A14,2 UPDATE STACK-POINTER , " P CALL I:EVA0 GET A
0x14dd30…14dd36 00 00 00 00 00 00 ┆ ┆
0x14dd36…14deca Dummy {f00=0x0072, f01=0x0190, f02=»ALL I:EVA0 GET ADR TO BCD , $ P ADKL A14,4 UPDATE STACKPOINTER - " $ P LDR* A2,A14 GET VALUE OF BINMS - J $ P LD A1,-2,A14 GET VALUE OF BINLS - r * P CALL T:BINB CONVERT WITH BCD UPDATED - ( P ABL I:RT1 RETURN TO CALLING MODULE - P EJECT - PRCGET
0x14deca…14ded0 00 00 00 00 00 00 ┆ ┆
0x14ded0…14e064 (4, 38) Dummy {f00=0x0072, f01=0x018e, f02=»396C INSTRUCTION SRL A1,12 - P LDK A3,4 LOOPCOUNTER . " PRC10 EQU * . @ P LDR A1,A4 . R P EXR A2 EXECUTE INSTRUCTION . d P ANK A1,/F PICK ONE NUMERIC . " P CWK A1,9 CONVERT BIN -> ASCII . $ P RF(G) RC20 CONVERT BIN -> ASCII . P ADK A1,/30
0x14e064…14e06a 00 00 00 00 00 00 ┆ ┆
0x14e06a…14e1fe Dummy {f00=0x0072, f01=0x018e, f02=» P SCR A1,A9 STORE IN PARAM.2 / P ADKL A9,1 / ( P SUK A2,4 MODIFY SHIFTINSTR. / : P SUK A3,1 LOOP-COUNTER / ^ P RB(P) RC10 JMP CR>0 / | P ABL I:RT1 / P EJECT / P* / P* / 4 P* GET DIMENSION OF INDEXED VARIABLE AND LENGTH / P* /
0x14e1fe…14e200 00 00 ┆ ┆
0x14e200…14e204 00 00 00 00 ┆ ┆
0x14e204…14e398 Dummy {f00=0x0072, f01=0x0190, f02=» B P* LENGTH = BIN HOLDING ITEM LENGTH 0 F P* DIMENSION = BIN HOLDING NO. OF ELEMENTS 0 J P* 0 P* 0 P* 0 PGETIND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 0 2 P LD A10,-6,A14 READ DIMENSION
0x14e398…14e39e 00 00 00 00 00 00 ┆ ┆
0x14e39e…14e532 Dummy {f00=0x0072, f01=0x40a4, f02=» 0 l P STR A7,A9 STORE LENGTH 1 * P CALL I:EVA0 ADDRESS TO DIMENSION ITEM 1 ( P STR A10,A9 STORE DIMENSION 1 V P ABL I:RT1 1 z P 1 P END 1 @ 1 P* 0 PGETIND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 0 2 P LD A10,-6,A14 READ DIMENSION
0x14e532…14e538 00 00 00 00 00 00 ┆ ┆
0x14e538…14e6cc Dummy {f00=0x0072, f01=0x2008, f02=» 2 STR A7,A9 STORE LENGTH 1 * P CALL I:EVA0 ADDRESS TO DIMENSION ITEM 1 ( P STR A10,A9 STORE DIMENSION 1 V P ABL I:RT1 1 z P 1 P END 1 @ 1 P* 0 PGETIND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 0 2 P LD A10,-6,A14 READ DIMENSION
0x14e6cc…14e6d2 00 00 00 00 00 00 ┆ ┆
0x14e6d2…14e866 Dummy {f00=0x0072, f01=0x0190, f02=» , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. PCRF860 4 P ADD BIN6,W1 B P SUB BIN1,W8 8 RECORDS V P BN CRF870 t P MOVE FF(BIN6),=X'FF' P CBE BIN1,W0,CRF880 P B CRF860 PCRF870 P ADD BIN1,W8 P CBE BIN1,W0,CRF882
0x14e866…14e86c 00 00 00 00 00 00 ┆ ┆
0x14e86c…14ea00 Dummy {f00=0x0072, f01=0x0190, f02=»,=X'00' P B CRF880 " P****************************** " " P* WRITE FREE-SPACE RECORDS * H " P****************************** n PF80 < P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD P BNOK CRF990 P SUB BIN4,W1 P
0x14ea00…14ea06 00 00 00 00 00 00 ┆ ┆
0x14ea06…14eb9a Dummy {f00=0x0072, f01=0x0190, f02=» n P ADD BIN2,W1 RELREC P MOVE RECNUM,LNEXT2 $ P ADD LNEXT2,W1 @ P CBNE BIN4,W1,CRF850 V P MOVE LNEXT2,W0 LAST RECORD r P MOVE NOFREE,BIN5 P B CRF850 PCRF890 P MOVE RECNUM,=D'+1' P MOVE BIN1,W1 PCRF905
0x14eb9a…14eba0 00 00 00 00 00 00 ┆ ┆
0x14eba0…14ed34 (4, 39) Opaque[0x194]
0x14ed34…14ed3a 00 00 00 00 00 00 ┆ ┆
0x14ed3a…14eece # DirEnt {nam=»WUDIV «, typ=»UF«, f00=0xab4c, f01=0x0000, f02=0x0e50, f03=0x4000}
0x14ed3a…14eece IdxSect {
0x14ed3a…14eece f00 = 0x0072 // 0x14ed3a @0x0
0x14ed3a…14eece f01 = 0x0006 // 0x14ed3c @0x2
0x14ed3a…14eece gno = [ // 0x14ed3e @0x4
0x14ed3a…14eece [0x00]: C0x0072.0x2.0
0x14ed3a…14eece [0x01]: C0x0072.0x3.0
0x14ed3a…14eece [0x02]: C0x0073.0x0.0
0x14ed3a…14eece ]
0x14ed3a…14eece }
0x14eece…14eed4 00 00 00 00 00 00 ┆ ┆
0x14eed4…14f068 Dummy {f00=0x0072, f01=0x0190, f02=» TRA01WUDIV 850901 U1 0 3 ( CB1 0 6 ( f L CB2 0 6 p CB3 0 6 CB4 0 6 CB5 0 6 2 CB6
0x14f068…14f06e 00 00 00 00 00 00 ┆ ┆
0x14f06e…14f202 Dummy {f00=0x0072, f01=0x0190, f02=» CBA 0 6 DB1 0 7 $ CBB 0 6 H CBC 0 6 [ l DISK 0 F ? DEDSDYKB 0 F @ DEDSPRT 0 F A DEDSSCRN
0x14f202…14f208 00 00 00 00 00 00 ┆ ┆
0x14f208…14f39c Dummy {f00=0x0072, f01=0x0190, f02=»FU 0 3 RETCOD 0 K h BPOOL 0 I p D INUNIT 0 I r h UTUNIT 0 I s RELNUM 0 I z RELDAT 0 I { NOOFPO 0
0x14f39c…14f3a0 00 00 00 00 ┆ ┆
0x14f3a0…14f3a2 00 00 ┆ ┆
0x14f3a2…14f536 Dummy {f00=0x0072, f01=0x0190, f02=»US 0 G # W0 0 K W1 0 K ! @ W2 0 K " d W3 0 K # W4 0 K $ W5 0 K % W6 0 K
0x14f536…14f53c 00 00 00 00 00 00 ┆ ┆
0x14f53c…14f6d0 Dummy {f00=0x0072, f01=0x0190, f02=» 0 K * W11 0 K + W12 0 K , < W13 0 K - ` W14 0 K . W15 0 K / W16 0 K 0 W17 0 K 1
0x14f6d0…14f6d6 00 00 00 00 00 00 ┆ ┆
0x14f6d6…14f86a Dummy {f00=0x0072, f01=0x0190, f02=» K 5 W22 0 K 6 W23 0 K 7 8 W24 0 K 8 W25 0 K 9 W26 0 K : W66 0 K ; W64 0 K <
0x14f86a…14f870 00 00 00 00 00 00 ┆ ┆
0x14f870…14fa04 (4, 40) Dummy {f00=0x0072, f01=0x0190, f02=» @ | DVER 0 K A PBLOCK 0 I B 4 SYSBUF 0 I C X DTEST 0 I D | COPY 0 I E ANSW 0 I F DTYPB 0 J G
0x14fa04…14fa0a 00 00 00 00 00 00 ┆ ┆
0x14fa0a…14fb9e Dummy {f00=0x0072, f01=0x0190, f02=» x COPFIL 0 I L PWBDB4 0 I M 0 DUNIT 0 I N T DFCODS 0 I O x FCOD 0 K P FCOD1 0 K Q FCOD2 0 K R
0x14fb9e…14fba0 00 00 ┆ ┆
0x14fba0…14fba4 00 00 00 00 ┆ ┆
0x14fba4…14fd38 Dummy {f00=0x0072, f01=0x0190, f02=» t NOREC 0 J W NORECO 0 J X , RECNUM 0 J Y P PRNUM 0 J Z t HEX00 0 I [ HEXTAB 0 I VOLEX1 0 I ^
0x14fd38…14fd3e 00 00 00 00 00 00 ┆ ┆
0x14fd3e…14fed2 Dummy {f00=0x0072, f01=0x0190, f02=» SWIT04 0 G c ) SWIT05 0 G d * ( SWIT06 0 G e + L SWIT07 0 G f , p SWIT08 0 G g - SWITFS 0 G h . SW95PR 0 G i / NEWV
0x14fed2…14fed8 00 00 00 00 00 00 ┆ ┆
0x14fed8…15006c Dummy {f00=0x0072, f01=0x0190, f02=» VD82CW 0 K d 8 FFSNR 0 K p > $ DOOL1 0 G B H DOOL2 0 G C l DOOL3 0 G D DOOL4 0 G E DOOL5 0 G F DOOL6
0x15006c…150072 00 00 00 00 00 00 ┆ ┆
0x150072…150206 Dummy {f00=0x0072, f01=0x0190, f02=»DBOFOR 0 G K VD82 0 G L IC 0 G M D ICEXIT 0 G N h DEBIN1 0 K O DEBIN2 0 K P DEBIN3 0 K Q DEBIN4 0
0x150206…15020c 00 00 00 00 00 00 ┆ ┆
0x15020c…1503a0 Dummy {f00=0x0072, f01=0x0190, f02=» 0 K V STR1A 0 I W STR2A 0 I X @ STR6A 0 I Y d STR6B 0 I Z STRG10A 0 I [ STR15A 0 I PHYSCR 0 I
0x1503a0…1503a6 00 00 00 00 00 00 ┆ ┆
0x1503a6…15053a Dummy {f00=0x0072, f01=0x0190, f02=» 0 I m STR64A 0 I n DTYPES 0 I o < ICLEN 0 K t ` ICTASK 0 K u ICPOOL 0 I v ICEBL 0 K w ICBUF 0 I
0x15053a…150540 00 00 00 00 00 00 ┆ ┆
0x150540…1506d4 (4, 41) Dummy {f00=0x0073, f01=0x0190, f02=» K NOFREC 0 K NOFREE 0 K 8 FRSTN1 0 K FRSTN2 0 K RELREC 0 I FF 0 I BOOL1 0 G
0x1506d4…1506da 00 00 00 00 00 00 ┆ ┆
0x1506da…15086e Dummy {f00=0x0073, f01=0x0190, f02=» | BOOL6 0 G BOOL7 0 G 4 BOOL8 0 G X BOOL9 0 G | BOOLA1 0 G BOOLA2 0 G BIN1 0 K
0x15086e…150874 00 00 00 00 00 00 ┆ ┆
0x150874…150a08 Dummy {f00=0x0073, f01=0x0190, f02=» x BIN6 0 K BIN7 0 K 0 BIN8 0 K T BIN9 0 K x BIN10 0 K BIN11 0 K BIN12 0 K
0x150a08…150a0e 00 00 00 00 00 00 ┆ ┆
0x150a0e…150ba2 Dummy {f00=0x0073, f01=0x0190, f02=» t DEPROMPT 0 G DECHANGE 0 G , DENOCHAN 0 G P DEBINW1 0 K t DEBINW2 0 K DEBINW3 0 K DEBINW4 0 K
0x150ba2…150ba8 00 00 00 00 00 00 ┆ ┆
0x150ba8…150d3c Dummy {f00=0x0073, f01=0x00d8, f02=» BCD2A 0 J BCD3A 0 J ( BCD5A 0 J L BCD13A 0 J p BCD4A 0 J TRA99C A 0 J DEBINW4 0 K
0x150d3c…150d40 00 00 00 00 ┆ ┆
0x150d40…150d42 00 00 ┆ ┆
0x150d42…150ed6 Dummy {f00=0x0073, f01=0x2008, f02=» BCD2A 0 J BCD3A 0 J ( BCD5A 0 J L BCD13A 0 J p BCD4A 0 J TRA99C A 0 J DEBINW4 0 K
0x150ed6…150edc 00 00 00 00 00 00 ┆ ┆
0x150edc…151070 Dummy {f00=0x0073, f01=0xedba, f02=» ( a M O O ) a M O O V * O O + O O , O O B - O . O C / O DO V 0 O O E 1 O 2
0x151070…151076 ee 52 ef 82 00 02 ┆ R ┆
0x151076…15120a Dummy {f00=0x0073, f01=0xedba, f02=» O a O O R < O a O O a O O a O O a O O a O O a O O a O O a O O a O O E O a O O F O a O O G O a O O I
0x15120a…151210 ee 52 ef 82 00 02 ┆ R ┆
0x151210…1513a4 (4, 42) Opaque[0x194]
0x1513a4…1513aa 00 00 00 00 00 00 ┆ ┆
0x1513aa…15153e # DirEnt {nam=»WUCRV «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e68, f03=0x0000}
0x1513aa…15153e IdxSect {
0x1513aa…15153e f00 = 0x0073 // 0x1513aa @0x0
0x1513aa…15153e f01 = 0x0006 // 0x1513ac @0x2
0x1513aa…15153e gno = [ // 0x1513ae @0x4
0x1513aa…15153e [0x00]: C0x0073.0x1.0
0x1513aa…15153e [0x01]: C0x0073.0x2.0
0x1513aa…15153e [0x02]: C0x0073.0x3.0
0x1513aa…15153e ]
0x1513aa…15153e }
0x15153e…151540 00 00 ┆ ┆
0x151540…151544 00 00 00 00 ┆ ┆
0x151544…1516d8 Dummy {f00=0x0073, f01=0x0190, f02=» , P IDENT WUCRV REL=2.3,850910,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 1 CREATE VOLUME * * P*
0x1516d8…1516de 00 00 00 00 00 00 ┆ ┆
0x1516de…151872 Dummy {f00=0x0073, f01=0x0190, f02=» SUPPORT OF NEW WCH PTS-6793 AND PTS-6794. > P** 85-08-08/CJ CHANGE IN FORMAT FCRV FROM DISC TO DISK. 4 D P** 85-01-25/CJ SUPPORT OF 12.8 MB WCH PTS-6794 FOR PTS-6923. v F P** 84-07-12/MAER ADAPTION FOR 35 MB WINCHESTER DISK PTS-6963 FOR . P
0x151872…151878 00 00 00 00 00 00 ┆ ┆
0x151878…151a0c Dummy {f00=0x0073, f01=0x0190, f02=»OR 5 1/4" FLOPPY DISK, TOSS REL 12.2. t B P** 83-10-06/MAER WSM SUPPORT OF DISK TYPES CLOSED AGAIN!!!!! . $ P** (RESIGNERA...) t . P** PTS-6964: ",FIX" ADDED. @ P** PTS-6973 NO MORE SUPPORTED (35 MB WINCH.
0x151a0c…151a12 00 00 00 00 00 00 ┆ ┆
0x151a12…151ba6 Dummy {f00=0x0073, f01=0x0190, f02=» X L P** 83-09-27/MAER CORRECTION OF CRV FOR DISKS WITH DVER (DISK VERSION). 8 P** 83-09-13/MAER WSM SUPPORT OF DISK TYPES CLOSED. X 0 P** 83-06-30/MAER DISK TYPES 16 - 19 ADDED. * P** 83-05-11/MAER CHANGED DECORATIONS. @ P** 82-07-26/DALI
0x151ba6…151bac 00 00 00 00 00 00 ┆ ┆
0x151bac…151d40 Dummy {f00=0x0073, f01=0x0190, f02=»*************************************** r J P* HOW TO ADD A NEW DISK TYPE IN WSM UTILITIES: * 0 J P* 1. WUDIV, THE DATA DIVISION: * ~ J P* CHANGE DMAX - HIGHEST VALID DISK TYPE NUMBER
0x151d40…151d46 00 00 00 00 00 00 ┆ ┆
0x151d46…151eda Dummy {f00=0x0073, f01=0x0190, f02=»HE PARAMETER BLOCK. * h J P* 2. WUCRV, THIS MODULE: CHANGE THE SCREEN FORMAT. * & J P* 3. COMPILE: WUDIV AND WUCRV. * t J P* 4. CHECK THAT THE TOSSUT LOADMODULE UTL13D SUPPORTS THE NEW TYPE. *
0x151eda…151ee0 00 00 00 00 00 00 ┆ ┆
0x151ee0…152074 (4, 43) Dummy {f00=0x0073, f01=0x0190, f02=»******************* ^ P PDIV P ENTRY WUCRV * P* > & P EXPROC DECLRA CRE= SCREEN ROUTINE H & P EXPROC DECLRN CRE= SCREEN ROUTINE r P EXPROC DISERR P EXPROC DSKERR,PBIN P EXPROC HALT " P EXT CREVOL ASS= CREATE VOLUME P
0x152074…15207a 00 00 00 00 00 00 ┆ ┆
0x15207a…15220e Dummy {f00=0x0073, f01=0x0190, f02=» ATTFMT FCRV UNIT & VOL-NAME P SET DEPROMPT $ PCRV050 : P PERF DECLRA H PCRV150 $ P IB DEBINW2,CRV050,RETUR,CRV300 j P PERF DSKERR,W0 'BELL' P B CRV150 PCRV300 , P XCOPY PBLOCK,W6,W1,W0,W0 SOP PANEL F.C. 2 P XCOPY P
0x15220e…152214 00 00 00 00 00 00 ┆ ┆
0x152214…1523a8 Dummy {f00=0x0073, f01=0x0190, f02=»4,W2,BIN1,W0 VTOCR & P XCOPY PBLOCK,W16,W1,DTYP,W1 DTYP " P XCOPY PBLOCK,W17,W1,W1,W1 APL D " P XCOPY PBLOCK,W19,W1,DTEST,W0 j 0 P CBG DTYP,W2,CRV325 SOME DISK TYPES REQUIRE 4 P ATTFMT FDVER ALSO PACKED/UNPACKED INFORMATION! P SET DEPROMP
0x1523a8…1523ae 00 00 00 00 00 00 ┆ ┆
0x1523ae…152542 Dummy {f00=0x0073, f01=0x018e, f02=» & P XCOPY PBLOCK,W18,W1,DVER,W1 DVER P ERASE 0,W1,W23 2 4 P CALL CREVOL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD J P CBE RETCOD,W0,CRV400 6 P CBG RETCOD,W0,CRV350 BRANCH IF POSITIVE RET.CODE 2 P ATTFMT FCRV NEG. RC => OPERATOR ABORTED ("N")
0x152542…152548 00 00 00 00 00 00 ┆ ┆
0x152548…1526dc Dummy {f00=0x0073, f01=0x018e, f02=» PCRV400 P PERF HALT PRETUR ( P RET 6 P PEND B P EJECT P P* ^ PFCRV FRMT h P FSL z P FATTR .HIGH P FATTR .INV P FCOPY =C'CREATE VOLUME' P FNL P FATTR .HIGH P FCOPY =C'UNIT:' . P F
0x1526dc…1526e0 00 00 00 00 ┆ ┆
0x1526e0…1526e2 00 00 ┆ ┆
0x1526e2…152876 Dummy {f00=0x0073, f01=0x0190, f02=» P FINP 25 P FCOPY VOLNAM P FNL * P FATTR .HIGH 6 P FCOPY =C'VOLUME-NAME:' J @ P FKI 14,MINL=1,MAXL=6,ALPHA,ME,NEOI,REWRT,APPL=6,DUPL=VOLNAM j P FCOPY COPNAM P FATTR .HIGH P FTAB 24 P FCOPY =C'NO. OF FILES:' . P
0x152876…15287c 00 00 00 00 00 00 ┆ ┆
0x15287c…152a10 Dummy {f00=0x0073, f01=0x0190, f02=»,MINL=1,MAXL=2,ME,APPL=13,NEOI P FMEL 'TX',DTYPB & P FNL > P FATTR .HIGH J P FILLR ' ',5 ^ D P FTEXT 'POSSIBLE TYPES - 1 = 1/4 MB FLEXIBLE DISK (PTS-6867)' r P FNL P FATTR .HIGH P FILLR ' ',20 > P FTEXT '- 2 = 0,7 MB F
0x152a10…152a16 00 00 00 00 00 00 ┆ ┆
0x152a16…152baa Dummy {f00=0x0073, f01=0x0190, f02=»TS-6791)' h P FNL P FATTR .HIGH P FILLR ' ',20 2 6 P FTEXT '- 4 = 5 MB CARTRIDGE, FIX (PTS-6876)' H P FNL P FATTR .HIGH P FILLR ' ',20 @ P FTEXT '- 5 = 16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962)' P FNL P
0x152baa…152bb0 00 00 00 00 00 00 ┆ ┆
0x152bb0…152d44 (4, 44) Dummy {f00=0x0073, f01=0x0190, f02=»LR ' ',20 6 P FTEXT '- 7 = 12.8 MB WINCHESTER (PTS-6794)' P FNL L P FATTR .HIGH X P FILLR ' ',20 l 6 P FTEXT '- 8 = 26.7 MB WINCHESTER (PTS-6794)' P FNL P FATTR .HIGH P FILLR ' ',20 6 P FTEXT '- 9 = 35 MB
0x152d44…152d4a 00 00 00 00 00 00 ┆ ┆
0x152d4a…152ede Dummy {f00=0x0073, f01=0x0190, f02=»3)' b P FNL P FATTR .HIGH P FILLR ' ',20 , 6 P FTEXT '- 11 = 70 MB WINCHESTER (PTS-6793)' B P FNL | P FATTR .HIGH P FILLR ' ',20 6 P FTEXT '- 12 = 188 MB WINCHESTER (PTS-6793)' P FNL P FATTR .HIGH
0x152ede…152ee0 00 00 ┆ ┆
0x152ee0…152ee4 00 00 00 00 ┆ ┆
0x152ee4…153078 Dummy {f00=0x0073, f01=0x0190, f02=»,20 6 P FTEXT '- 14 = 80 MB FIX (PTS-6964)' P FNL 3 F P FATTR .HIGH T P FTEXT 'TEST:' h . P FKI 6,MINL=1,MAXL=1,ME,NEOI,APPL=2,ALPHA ~ P FCOPY DTEST P FATTR .HIGH P FTAB 20 < P FTEXT 'I MEANS INITIAL WRITE/R
0x153078…15307e 00 00 00 00 00 00 ┆ ┆
0x15307e…153212 Dummy {f00=0x0073, f01=0x0190, f02=»RS' X P FNL P FATTR .HIGH P FTAB 20 , 8 P FTEXT 'Q MEANS SUPRESSION OF TEST WRITING/READING' < P FNL x P FLINK FHEX P FMEND P* PFHEX FRMT P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND
0x153212…153218 00 00 00 00 00 00 ┆ ┆
0x153218…1533ac Dummy {f00=0x0073, f01=0x40f0, f02=»ED P FATTR .HIGH P FTAB 12 0 P FCOPY =C'ENTER DISK VERSION - 1 = UNPACKED' . P FNL b P FATTR .HIGH n P FTAB 31 P FCOPY =C'- 2 = PACKED' P FNL P FLINK FHEX P FMEND P END @ HEX00 P FMEND
0x1533ac…1533b2 00 00 00 00 00 00 ┆ ┆
0x1533b2…153546 Dummy {f00=0x0073, f01=0x2008, f02=» P FATTR .HIGH P FTAB 12 0 P FCOPY =C'ENTER DISK VERSION - 1 = UNPACKED' . P FNL b P FATTR .HIGH n P FTAB 31 P FCOPY =C'- 2 = PACKED' P FNL P FLINK FHEX P FMEND P END @ HEX00 P FMEND
0x153546…15354c 00 00 00 00 00 00 ┆ ┆
0x15354c…1536e0 Dummy {f00=0x0073, f01=0x0190, f02=» P L , P SAVE 1:ST SPECIFIED DF FOR FUTURE USE L $ P ( WHEN MOVING TO PB BUFFER ) L < P LD A1,PB:FC,A13 L d P LDR A2,A1 L | , P LDK A3,1 - NO. 1 IN SECTION IN CASE ... L * P ANK A2,/02 . ... WRCIVE .SECT OR .MOD L P RF(Z) RCV100 L , P LDK A
0x1536e0…1536e6 00 00 00 00 00 00 ┆ ┆
0x1536e6…15387a Dummy {f00=0x0073, f01=0x0190, f02=» RF(Z) RCV100 L > P LD A3,PB:FNO,A13 - CURRENT FIELD IN PAR BLOCK IN CASE ... M . P . ... WRCIVE <FIELD LIST> & SEP =/= 00 M X PRCV100 EQU * M P ST A3,RCVFLD,A14 M P ANK A1,/80 M P RF(NZ) MISTRT WRCIVE .MEM ! M P WRCIVE .OPER M P
0x15387a…153880 00 00 00 00 00 00 ┆ ┆
0x153880…153a14 (4, 45) Opaque[0x194]
0x153a14…153a1a 00 00 00 00 00 00 ┆ ┆
0x153a1a…153bae # DirEnt {nam=»WUINT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e80, f03=0x0000}
0x153a1a…153bae IdxSect {
0x153a1a…153bae f00 = 0x0074 // 0x153a1a @0x0
0x153a1a…153bae f01 = 0x0002 // 0x153a1c @0x2
0x153a1a…153bae gno = [ // 0x153a1e @0x4
0x153a1a…153bae [0x00]: C0x0074.0x0.0
0x153a1a…153bae ]
0x153a1a…153bae }
0x153bae…153bb4 00 00 00 00 00 00 ┆ ┆
0x153bb4…153d48 Dummy {f00=0x0074, f01=0x0190, f02=» , P IDENT WUINT REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* INITIATION ROUTINE FOR * * P* UTILITY PROGRAMS * * P* 1 CREATE VOLUME
0x153d48…153d4e 00 00 00 00 00 00 ┆ ┆
0x153d4e…153ee2 Dummy {f00=0x0074, f01=0x018e, f02=»ORGANIZE) * v * P* 5 EXTEND FILE * * P* 6 PRINT FILE * B * P* 7 CHANGE VOLUME-NAME * p * P* 8 PRINT VTOC * * P* * * P**************
0x153ee2…153ee8 00 00 00 00 00 00 ┆ ┆
0x153ee8…15407c Dummy {f00=0x0074, f01=0x405e, f02=» P EJECT PWUINT P PERF WUUTI P B WUINT 4 P* D P END N@ Z * B * P* 7 CHANGE VOLUME-NAME * p * P* 8 PRINT VTOC * * P* * * P**************
0x15407c…154080 00 00 00 00 ┆ ┆
0x154080…154082 00 00 ┆ ┆
0x154082…154216 Dummy {f00=0x0074, f01=0x2008, f02=» CT PWUINT P PERF WUUTI P B WUINT 4 P* D P END N@ Z * B * P* 7 CHANGE VOLUME-NAME * p * P* 8 PRINT VTOC * * P* * * P**************
0x154216…15421c 00 ff 4d 45 53 20 ┆ MES ┆
0x15421c…1543b0 Dummy {f00=0x0074, f01=0x0190, f02=»,MINL=1,MAXL=2,ME,APPL=13,NEOI P FMEL 'TX',DTYPB & P FNL > P FATTR .HIGH J P FILLR ' ',5 ^ D P FTEXT 'POSSIBLE TYPES - 1 = 1/4 MB FLEXIBLE DISK (PTS-6867)' r P FNL P FATTR .HIGH P FILLR ' ',20 > P FTEXT '- 2 = 0,7 MB F
0x1543b0…1543b6 00 00 00 00 00 00 ┆ ┆
0x1543b6…15454a Dummy {f00=0x0074, f01=0x0190, f02=»TS-6791)' h P FNL P FATTR .HIGH P FILLR ' ',20 2 6 P FTEXT '- 4 = 5 MB CARTRIDGE, FIX (PTS-6876)' H P FNL P FATTR .HIGH P FILLR ' ',20 @ P FTEXT '- 5 = 16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962)' P FNL P
0x15454a…154550 00 00 00 00 00 00 ┆ ┆
0x154550…1546e4 (4, 46) Opaque[0x194]
0x1546e4…1546ea 00 00 00 00 00 00 ┆ ┆
0x1546ea…15487e # DirEnt {nam=»WUFIL «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e88, f03=0x0000}
0x1546ea…15487e IdxSect {
0x1546ea…15487e f00 = 0x0074 // 0x1546ea @0x0
0x1546ea…15487e f01 = 0x0002 // 0x1546ec @0x2
0x1546ea…15487e gno = [ // 0x1546ee @0x4
0x1546ea…15487e [0x00]: C0x0074.0x1.0
0x1546ea…15487e ]
0x1546ea…15487e }
0x15487e…154880 00 00 ┆ ┆
0x154880…154884 00 00 00 00 ┆ ┆
0x154884…154a18 Dummy {f00=0x0074, f01=0x0190, f02=» , P IDENT WUFIL REL=2.3,841001,870155940230 * P************************************** 4 * P* START OF FILE-HANDLER-TASK * b * P* * * P************************************** P DDUM WUDIV P PDIV
0x154a18…154a1e 00 00 00 00 00 00 ┆ ┆
0x154a1e…154bb2 Dummy {f00=0x0074, f01=0x4024, f02=»K P* P END @ 55940230 * P************************************** 4 * P* START OF FILE-HANDLER-TASK * b * P* * * P************************************** P DDUM WUDIV P PDIV
0x154bb2…154bb8 00 00 00 00 00 00 ┆ ┆
0x154bb8…154d4c Dummy {f00=0x0074, f01=0x2008, f02=» P* P END @ 55940210 * P************************************** 4 * P* START OF FILE-HANDLER-TASK * b * P* * * P************************************** P DDUM WUDIV P PDIV
0x154d4c…154d52 01 0b 2a 2a 2a 2a ┆ ****┆
0x154d52…154ee6 Dummy {f00=0x0074, f01=0x2008, f02=» FDVER FRMT P FSL P FATTR .HIGH & ( P FKI 7,MINL=1,MAXL=1,ME,NEOI,APPL=17 : P FMEL 'X',PACKED f P FATTR .HIGH ~ P FTAB 12 0 P FCOPY =C'ENTER DISK VERSION - 1 = UNPACKED' P FNL P FATTR .HIGH P FTAB 31 P F
0x154ee6…154eec 00 00 00 00 00 00 ┆ ┆
0x154eec…155080 Dummy {f00=0x0074, f01=0x4342, f02=»A BLK TRUC ONDING NO IN THIS VECTOR. VOLUME NAME 2 ********** ATEST RBUF STRG 256 RECORD AREA GTH OUT (CRV)) ******************************* . EJECT TRG 21 ITC BUFFER: EFINITION: LINE 1, COL 1, 24*80 ** * USAGE: DATA RECOR
0x155080…155086 00 00 00 00 00 00 ┆ ┆
0x155086…15521a Dummy {f00=0x0074, f01=0x2a0d, f02=»A BLK TRUC ONDING NO IN THIS VECTOR. VOLUME NAME 2 ********** ATEST * USAGE: DATA RECORD STORING RV)) ******************************* . * JECT TRG 21 ITC BUFFER: EFINITION: LINE 1, COL 1, 24*80 ** DB1 DBLK USAGE: DATA RECOR
0x15521a…155220 00 00 00 00 00 00 ┆ ┆
0x155220…1553b4 (4, 47) Opaque[0x194]
0x1553b4…1553ba 00 00 00 00 00 00 ┆ ┆
0x1553ba…15554e # DirEnt {nam=»WUUTI «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0e90, f03=0x0000}
0x1553ba…15554e IdxSect {
0x1553ba…15554e f00 = 0x0074 // 0x1553ba @0x0
0x1553ba…15554e f01 = 0x0014 // 0x1553bc @0x2
0x1553ba…15554e gno = [ // 0x1553be @0x4
0x1553ba…15554e [0x00]: C0x0074.0x2.0
0x1553ba…15554e [0x01]: C0x0074.0x3.0
0x1553ba…15554e [0x02]: C0x0075.0x0.0
0x1553ba…15554e [0x03]: C0x0075.0x1.0
0x1553ba…15554e [0x04]: C0x0075.0x2.0
0x1553ba…15554e [0x05]: C0x0075.0x3.0
0x1553ba…15554e [0x06]: C0x0076.0x0.0
0x1553ba…15554e [0x07]: C0x0076.0x1.0
0x1553ba…15554e [0x08]: C0x0076.0x2.0
0x1553ba…15554e [0x09]: C0x0076.0x3.0
0x1553ba…15554e ]
0x1553ba…15554e }
0x15554e…155554 00 00 00 00 00 00 ┆ ┆
0x155554…1556e8 Dummy {f00=0x0074, f01=0x0190, f02=» , P IDENT WUUTI REL=2.3,850808,870155940230 P 4 * P************************************** < * P* W S M * j * P* WORK STATION MANAGEMENT * * P* UTILITY PROGRAMS * * P* 1 CREATE VOLUME
0x1556e8…1556ee 00 00 00 00 00 00 ┆ ┆
0x1556ee…155882 Dummy {f00=0x0074, f01=0x0190, f02=»FILE (REORGANIZE) * ~ * P* 5 EXTEND FILE * * P* 6 PRINT FILE * J * P* 7 CHANGE VOLUME-NAME * x * P* 8 PRINT VTOC * * P* * * P******
0x155882…155888 00 00 00 00 00 00 ┆ ┆
0x155888…155a1c Dummy {f00=0x0074, f01=0x0190, f02=» DISC TO DISK. d : P** 84-12-04 /CRBE START/STOP BLOCKING IMPLEMENTED. 2 P** 84-12-03 /CRBE MUL&DIV NOW FROM ASSRUT. T > P** 84-07-12 /MAER INTERTASK COMMUNICATION IMPLEMENTED. < P** CHVNAM DOES NO MORE DESTROY RETCOD.
0x155a1c…155a20 00 00 00 00 ┆ ┆
0x155a20…155a22 00 00 ┆ ┆
0x155a22…155bb6 Dummy {f00=0x0074, f01=0x0190, f02=». V B P** 83-10-15 /MAER CHANGE VOLUME NAME (CHVNAM) USES "RETCOD" , P** INSTEAD OF DEBINW4. P J P** SUBROUTINE "DISERR" TAKES CARE OF ERROR 23 (NEW). F P** RETURN-CODE "RETRIES PERFORMED" HANDL
0x155bb6…155bbc 00 00 00 00 00 00 ┆ ┆
0x155bbc…155d50 Dummy {f00=0x0074, f01=0x0190, f02=»REMENT). X . P** (W10 INSTEAD OF W4). : P** 83-09-27 /MAER A13, DISK TYPES FOR CRV, CHANGED. B : P** 83-09-12 /MAER A13, DISK TYPES FOR CRV, CHANGED. H P** 83-08-02 /MAER UNIT-MNEMO MATCH ADAPTION (W66 INSTEAD OF W48). L
0x155d50…155d56 00 00 00 00 00 00 ┆ ┆
0x155d56…155eea Dummy {f00=0x0074, f01=0x018e, f02=»WED.) Z N P** 83-06-30 /MAER WUPRF WITH SECTOR-PRINTOUT FOR MENU OPTION '9' (A7). 2 P** ( NOT FOR PUBLIC USE!!!). ` D P** NEW DISK TYPES (NO 16-19) ADDED (APPL=A13). , P** 83-06-22 /MAER A18 & UFERR ADDED.
0x155eea…155ef0 00 00 00 00 00 00 ┆ ┆
0x155ef0…156084 (4, 48) Dummy {f00=0x0074, f01=0x0190, f02=» > P** (COPY SPECIFIC SECTION / DEFINITION). ( P** 83-03-18 /MAER STEADY CURSOR. F . P** CHANGED DECORATIONS. r 4 P** 83-02-09 /MAER NEW TRAILING TEXT ON MENU. , P** 82-08-18 /MAER ADAPTED TO VD82/83.
0x156084…15608a 00 00 00 00 00 00 ┆ ┆
0x15608a…15621e Dummy {f00=0x0074, f01=0x0190, f02=»** (RETCOD IS NOT SET!) L P** 82-02-04 /DALI NEW ERROR-MESSAGE "DISK OVERFLOW" WHEN CREATE OR EX 2 " P** 81-11-11 /DALI CREATION P P P DDUM WUDIV P PDIV P ENTRY WUUTI P ENTRY APP P ENTRY D
0x15621e…156220 00 00 ┆ ┆
0x156220…156224 00 00 00 00 ┆ ┆
0x156224…1563b8 Dummy {f00=0x0074, f01=0x0190, f02=» ENTRY STPBLK P ENTRY STABLK P* , $ P EXPROC WUCRV CRE= CREATE VOLUME 6 $ P EXPROC WUCRF CRE = CREATE FILE ^ " P EXPROC WUDLF CRE= DELETE FILE & P EXPROC WUCOP CRE= COPY DISK,FILE " P EXPROC WUEXT CRE= EXTEND FILE . P EXPROC WUEX
0x1563b8…1563be 00 00 00 00 00 00 ┆ ┆
0x1563be…156552 Dummy {f00=0x0074, f01=0x0190, f02=»CVN CRE= CHANGE VOLUME NAME " P EXPROC WUPRV CRE= PRINT VTOC $ P EXPROC DECLRA J P EXPROC DERR ` P EXT CHANFC t P EXT GETVOL & P EXT GETIND GET IX & DIM OF ARRAY P EXT RCGET P EXT OPENF P EXT CLOSEF " P EXT CHVOL
0x156552…156558 00 00 00 00 00 00 ┆ ┆
0x156558…1566ec Dummy {f00=0x0074, f01=0x0190, f02=»:DIVISION | P* P PENT EQU X'80' ENTER $ PRET EQU X'99' RETURN @ P* PKTABEN KTAB ENT,RET f PTSTAT EQU X'07' PATTACH EQU X'0E' PDETACH EQU X'0F' P D P******************************************************
0x1566ec…1566f2 00 00 00 00 00 00 ┆ ┆
0x1566f2…156886 Dummy {f00=0x0074, f01=0x0190, f02=» * b D P* * D P**************************************************************** b P PBRD EQU X'81' BASIC READ & PTRP EQU X'A7' TRANSFORM PARAMETER " PGSS EQU X'AC
0x156886…15688c 00 00 00 00 00 00 ┆ ┆
0x15688c…156a20 Dummy {f00=0x0074, f01=0x0190, f02=»**************************************** x D P* * 0 D P* START & STOP BLOCKING * x D P* * D P
0x156a20…156a26 00 00 00 00 00 00 ┆ ┆
0x156a26…156bba Dummy {f00=0x0074, f01=0x0190, f02=»CT PWUUTI PROC D P**************************************************************** D P* * d D P* GET NUMBER OF POOL UNITS * D P*
0x156bba…156bc0 00 00 00 00 00 00 ┆ ┆
0x156bc0…156d54 (4, 49) Dummy {f00=0x0075, f01=0x0190, f02=»L GETIND,BPOOL(W1),BIN1,BIN2 BIN2 := NO OF ELEM. 2 P MOVE NOOFPO,BIN2 MOVE TO BCD (USED IN WUCOP) 8 P n P EJECT v D P**************************************************************** D P*
0x156d54…156d5a 00 00 00 00 00 00 ┆ ┆
0x156d5a…156eee Dummy {f00=0x0075, f01=0x0190, f02=» * D P**************************************************************** P PSTA000 d P MOVE BIN1,W0 WORKITEM := 0 r & P MOVE BIN2,W80 BUFFER LENGTH := 80 & P BASIC READ OF THE SCREEN SIZE: & P DSC DEDSSCRN,BRD,BIN1,STATSH,
0x156eee…156ef4 00 00 00 00 00 00 ┆ ┆
0x156ef4…157088 Dummy {f00=0x0075, f01=0x0190, f02=» * D P* VD46 IS USED * B D P* * D P******************************************************
0x157088…15708e 00 00 00 00 00 00 ┆ ┆
0x15708e…157222 Dummy {f00=0x0075, f01=0x0190, f02=»FC,DEDSSYSL,SCRNFC CHANGE FILE CODE SYSTEM LINE 2 P MOVE SYSLFC,SCRNFC SET SYSTEM LINE FILE CODE 8 P B STA030 n P EJECT P D P**************************************************************** D P*
0x157222…157228 00 00 00 00 00 00 ┆ ┆
0x157228…1573bc Dummy {f00=0x0075, f01=0x0190, f02=» * n D P**************************************************************** & P n PSTA025 v . P SET VD82 INDICATE VD82 BY SETTING BOOLEAN P EJECT PSTA030 & P********************************* & P* TRY INTERT
0x1573bc…1573c0 00 00 00 00 ┆ ┆
0x1573c0…1573c2 00 00 ┆ ┆
0x1573c2…157556 Dummy {f00=0x0075, f01=0x0190, f02=»1 IN DATA SET z * P DSC1 ITCOUT,TIMOUT,BIN1 OUT DATA SET PSTA037 D P CLEAR ICEXIT R ( P MOVE ICLEN,W21 ITC REQUESTED LENGTH h : P RECEIVE ITCIN,ICPOOL,ICLEN UNADDR READ FROM ANY TASK 0 P BNOK STA040 NO ONE CALLING (DOESN'T EXIST) ( P S
0x157556…15755c 00 00 00 00 00 00 ┆ ┆
0x15755c…1576f0 Dummy {f00=0x0075, f01=0x0190, f02=»***************** & P* SET UP FOR VD82 SCREEN * & P********************************* D P n PSTA040 v & P********************************* & P* GET LENGTH OF PHYSICAL SCREEN * & P********************************* " P CALL
0x1576f0…1576f6 00 00 00 00 00 00 ┆ ┆
0x1576f6…15788a Dummy {f00=0x0075, f01=0x0190, f02=» n & P********************************* & P DSC DEDSSYSL,TRP,BIN1,PHYSCR,BIN2 2 & P********************************* & P* CHANGE ECHO DEVICE * & P********************************* P DSC DEDSDYKB,CED,SCRNFC P EJECT D P
0x15788a…157890 00 00 00 00 00 00 ┆ ┆
0x157890…157a24 (4, 50) Dummy {f00=0x0075, f01=0x0190, f02=» P D P* ATTACH INIT. MENU, GET OPTION, ACTIVATE CORRECT SUBROUTINE * D P* * P D P**************************************************************** PSTA050 " P PERF STABLK ***START BLOC
0x157a24…157a2a 00 00 00 00 00 00 ┆ ┆
0x157a2a…157bbe Dummy {f00=0x0075, f01=0x0190, f02=» P SET DEPROMPT PSTA100 P PERF DECLRA ( PSTA150 < $ P IB DEBINW2,STA100,ESCAPE,STA200 J P PERF DSKERR,W0 'BELL' r P B STA150 PSTA200 P MOVE VOLNAM,=X'00' P MOVE COPNAM,=X'17' P MOVE PBLOCK,=X'20' P MOV
0x157bbe…157bc0 00 00 ┆ ┆
0x157bc0…157bc4 00 00 00 00 ┆ ┆
0x157bc4…157d58 Dummy {f00=0x0075, f01=0x0190, f02=»C j P WUEXT,WUPRF,WUCVN,WUPRV P B STA050 , PESCAPE > , P TBF IC,STA050 ITC DOESN'T EXIST => END L 6 P SEND .ADDR,ITCOUT,ICPOOL,ICLEN,ICTASK SEND ANSWER | P B STA037 P P RET P PEND P EJECT P****************
0x157d58…157d5e 00 00 00 00 00 00 ┆ ┆
0x157d5e…157ef2 Dummy {f00=0x0075, f01=0x0190, f02=»ODE * P* * P************************* 4 P* V PCHVNAM PROC VOLYM,CODE ` P PSTRG VOLYM ~ P PBIN CODE P CALL CHANFC,DISK,CODE & P CALL CHVOL,DISK,SYSBUF,VOLYM,BIN1 P BOK CHVRET P MOVE RE
0x157ef2…157ef8 00 00 00 00 00 00 ┆ ┆
0x157ef8…15808c Dummy {f00=0x0075, f01=0x0190, f02=» ` 4 P* * 4 P* USER FRIENDLINESS ERROR MESSAGE ROUTINE * @ 4 P* TO BE USED AFTER POOL- & FILE-HANDLER CALLS * x 4 P* (INTRODUCED 83-06-22) * 4 P*
0x15808c…158092 00 00 00 00 00 00 ┆ ┆
0x158092…158226 Dummy {f00=0x0075, f01=0x0190, f02=»* RETCOD = ECB RETURN CODE ("BITS") * 4 P* DESTR: BIN13 * 8 4 P* * p 4 P*********************************************** P PUFERR PROC P BN UFER10 DIS
0x158226…15822c 00 00 00 00 00 00 ┆ ┆
0x15822c…1583c0 Dummy {f00=0x0075, f01=0x0190, f02=» | * P CBE RETCOD,W1,UFER25 ECB-RC = "0001" P MOVE BIN13,W19 "DISK ERROR" 6 P B UFER90 Z PUFER25 l ( P MOVE BIN13,W18 "DISK NOT OPERABLE" z P B UFER90 PUFER50 POOL ERRORS * P CBE RETCOD,W1,UFER75 ECB-RC = "0001" * P MOVE
0x1583c0…1583c6 00 00 00 00 00 00 ┆ ┆
0x1583c6…15855a Dummy {f00=0x0075, f01=0x0190, f02=»W! b ( P MOVE BIN13,W10 "DISK/FILE OVERFLOW" P B UFER90 6 PUFER60 H P MOVE BIN13,W20 "POOL ERROR" V P B UFER90 z PUFER75 P MOVE BIN13,W21 "NOT FOUND" PUFER90 P MOVE STR6A,HEX00 8 P CALL RCGET,RETCOD,STR6A CONVERT R
0x15855a…158560 00 00 00 00 00 00 ┆ ┆
0x158560…1586f4 (4, 51) Dummy {f00=0x0075, f01=0x0190, f02=» * P* ERROR-MESSAGE ROUTINE * P* * @ P*************************** d P* PDISERR PROC P MOVE STR6A,HEX00 P CALL RCGET,RETCOD,STR6A $ P MOVE BIN13,W22 ASSUME I/O ERROR . P
0x1586f4…1586fa 00 00 00 00 00 00 ┆ ┆
0x1586fa…15888e Dummy {f00=0x0075, f01=0x0190, f02=» RET P PEND P P " PDSKERR PROC ERRCODE * P PBIN ERRCODE F P MOVE DEBINW4,ERRCODE P DISPLAY 0,W1,W0 z P PERF DERR P RET P PEND P EJECT P*************************** P*
0x15888e…158894 00 00 00 00 00 00 ┆ ┆
0x158894…158a28 Dummy {f00=0x0075, f01=0x0190, f02=»ROC PH10 P ERASE 0,W1,W1 LINE 1 & P MOVE BIN1,=X'0101' LINE 1 / POS 1 6 $ P DSC1 DEDSSCRN,6,BIN1 SET CURSOR ` 2 P EDWRT DEDSSCRN,FHALT 'PRESS ENT TO CONTINUE' P MOVE BIN1,W1 . P NKI .NE,DEDSDYKB,DEINPUT,KTABEN,BIN1,BIN2 P B
0x158a28…158a2e 00 00 00 00 00 00 ┆ ┆
0x158a2e…158bc2 Dummy {f00=0x0075, f01=0x0190, f02=» P PEND ! P EJECT ! P*************************** ! P* * ! D P* DISPLAY WAIT-TEXT * ! h P* * ! P*************************** ! P* ! PCONT PROC ! . PCONT10 MOVE BIN1,=X'0101
0x158bc2…158bc8 00 00 00 00 00 00 ┆ ┆
0x158bc8…158d5c Dummy {f00=0x0075, f01=0x018e, f02=» P PEND " P EJECT " P*************************** " P* * " D P* APPL-ROUTINES * " h P* * " P*************************** " P* " PAPP PROC " P CBNE DEBINW1,W0,APP300 "
0x158d5c…158d60 00 00 00 00 ┆ ┆
0x158d60…158d62 00 00 ┆ ┆
0x158d62…158ef6 Dummy {f00=0x0075, f01=0x0190, f02=» P A10,A11,A12, C # P A13,A6,A15,A6,A17,A18 # & P MOVE DEBINW4,W2 'UNDEFINED ERROR' # > P B ANOK # h P**************** # x P* APPL-ERRORS * # P**************** # P* # PA3E # P MOVE DEBINW4,W3 'I/O-ERROR' # P B ANOK # (
0x158ef6…158efc 00 00 00 00 00 00 ┆ ┆
0x158efc…159090 Dummy {f00=0x0075, f01=0x018e, f02=» NOT OK # PAERR $ P RET $ PAOK MOVE DEBINW3,W0 OK $ ( P RET $ F P EJECT $ R PA1 $ ` P******************* $ j P* YES OR NO * $ P* WITH AUTO ENTER * $ P******************* $ P* $ P MOVE STR1A,DEINPUT $ P CBE STR
0x159090…159096 00 00 00 00 00 00 ┆ ┆
0x159096…15922a Dummy {f00=0x0075, f01=0x0190, f02=» $ t P B AOK % P EJECT % PA2 % $ . P***************************************** % . . P* * % ` . P* TEST TYPE USED IN CREATE VOLUME. * % . P* * % . P* POSSIBLE VALUES
0x15922a…159230 00 00 00 00 00 00 ┆ ┆
0x159230…1593c4 (4, 52) Dummy {f00=0x0075, f01=0x0190, f02=»D DVER IS =3. * % . P* * & . . P***************************************** & ` P* & P MOVE STR15A,=C'QAI' & P MOVE DEBINW4,W0 & * P MATCH STR15A,DEBINW4,W3,DEINPUT,W0,W1 & P BNOK A6E
0x1593c4…1593ca 00 00 00 00 00 00 ┆ ┆
0x1593ca…15955e Dummy {f00=0x0075, f01=0x0190, f02=» & ~ P B A6E ' P EJECT ' " P***************************** ' $ " P* NO. OF RECORDS - WSMFILE * ' J " P***************************** ' p P* ' PA3 ' P MOVE BCD13A,DEINPUT ' P CBE BCD13A,=D'00',A34 ' P CBE DEBINW3,W15,A32 ' P CBL BCD
0x15955e…159560 00 00 ┆ ┆
0x159560…159564 00 00 00 00 ┆ ┆
0x159564…1596f8 Dummy {f00=0x0075, f01=0x018e, f02=»3,BIN1 ' ~ P CALL WXMUL,BIN1,W3,BIN1 ( P MOVE BCD13A,BIN1 ( . P MOVE DEINPUT,BCD13A ( H P CBG BCD13A,BCDI21(W2),A10E ( d P B AOK ( PA34 ( P MOVE NOREC,BCDI21(W2) ( P MOVE DEINPUT,NOREC ( P CBG NOREC,=D'+2',A3 ( P B A10E ( P
0x1596f8…1596fe 00 00 00 00 00 00 ┆ ┆
0x1596fe…159892 Dummy {f00=0x0075, f01=0x0190, f02=» ( v P* ) PA4 ) P MOVE BCD13A,DEINPUT ) P CBE BCD13A,=D'00',A44 ) 8 P B AOK ) V PA44 ) d P MOVE NOREC,W1 ) p P MOVE DEINPUT,NOREC ) P B AOK ) P EJECT ) P****************** ) P* CREATE VOLUME * ) P* CREATE FILE * )
0x159892…159898 00 00 00 00 00 00 ┆ ┆
0x159898…159a2c Dummy {f00=0x0075, f01=0x0190, f02=» P CBE FCOD,W0,A6E * P CBNE RETCOD,W0,A56 * P B AOK * 8 PA56 * F P MOVE DEBINW4,RETCOD * R P B ANOK * n P EJECT * ~ ( P*********************************** * ( P* * * ( P* FILE NAME MAX 8 CHAR. *
0x159a2c…159a32 00 00 00 00 00 00 ┆ ┆
0x159a32…159bc6 Dummy {f00=0x0075, f01=0x0190, f02=» P* + PA6 + P MOVE STR15A,=X'20' SPACE + ( P INSRT DEINPUT,DEBINW1,W8,STR15A,W0 + : PA64 + f P MOVE DEBIN4,W0 + r * P MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 + P BNOK A66 + 0 P DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES + P B A64 +
0x159bc6…159bcc 00 00 00 00 00 00 ┆ ┆
0x159bcc…159d60 Dummy {f00=0x0075, f01=0x0190, f02=» NO. * + P***************** , P* , * PA7 , 4 8 P CLEAR BOOL1 SETOFF THE PRINT-FILE OPTION INDICATOR , > $ P OPTION=ON => SECTOR PRINTOUT , z ( P OPTION=OFF => "ORDINARY" PRINTOUT , $ P MOVE DEBINW2,W17 IND. ENTER-KEY , $ P MOVE BCD2A,DEINPU
0x159d60…159d66 00 00 00 00 00 00 ┆ ┆
0x159d66…159efa Dummy {f00=0x0075, f01=0x0190, f02=» 0 P SET BOOL1 MENU OPTION 9 => SECTOR PRINTOUT - P B AOK - 8 P EJECT - F P*************************** - T P* COPY DISK OR FILE : * - x P* INPUT TYPE = V,F,W * - P* WITH AUTO ENTER * - P*************************** - P
0x159efa…159f00 00 00 00 00 00 00 ┆ ┆
0x159f00…15a094 (4, 53) Dummy {f00=0x0076, f01=0x0190, f02=»E DEBINW2,W17 ENT - P B AOK . P EJECT . ( P*************************** . 6 P* COPY DISK OR FILE : * . Z P* INPUT UNIT NO. * . ~ P*************************** . P* . PA9 . P PERF AUNIT,VOLNAM . P MOVE FCOD1,FCOD .
0x15a094…15a09a 00 00 00 00 00 00 ┆ ┆
0x15a09a…15a22e Dummy {f00=0x0076, f01=0x0190, f02=» P*************************** / P* / ( PA10 / 2 0 P SET BOOL3 NO UPDFLD, REWRT OF OUTPUT UNIT. / > P PERF AUNIT,COPNAM / r P MOVE FCOD2,FCOD / P TBT BOOL2,A55 / , P CBNE FCOD1,FCOD2,A55 COPY DISK TO DISC / P / PAA105 B A6E / P E
0x15a22e…15a234 00 00 00 00 00 00 ┆ ┆
0x15a234…15a3c8 Dummy {f00=0x0076, f01=0x0190, f02=» * / $ P* WITH AUTO ENTER * 0 $ $ P******************************** 0 L P* 0 t PA11 0 ~ P MOVE STR2A,DEINPUT 0 P CBNE STR2A,=C'OP',AA111 0 P MOVE FCOD2,SCRNFC 0 " P MOVE BIN15,W24 PAGE-SIZE:=24 0 P M
0x15a3c8…15a3ce 00 00 00 00 00 00 ┆ ┆
0x15a3ce…15a562 Dummy {f00=0x0076, f01=0x0190, f02=»FCOD2,=X'0030' 0 P B AA113 1 PAA112 1 & P MOVE FCOD2,=X'0036' 1 4 PAA113 1 P $ P MOVE BIN15,=W'44' PAGE-SIZE:=44 1 ^ P MOVE BIN14,W6 LINE-START:=6 1 P PERF ATTDEV,FCOD2 1 P BNZ ANOK ERROR 1 P PERF DETDEV 1 PAA114 1 P MOVE DEBI
0x15a562…15a568 00 00 00 00 00 00 ┆ ┆
0x15a568…15a6fc Dummy {f00=0x0076, f01=0x0190, f02=»********************** 1 & P* INPUT: DISK TYPE, 01-DMAX 2 $ P* OUTPUT: DISK TYPE IN DTYP 2 H * P* STORAGE TYPE (DVER) = 0 2 p P* 2 PA13 2 P MOVE DVER,W0 2 P MOVE BCD3A,DEINPUT 2 P MOVE DTYP,BCD3A 2 2 P CBL DTYP,
0x15a6fc…15a700 00 00 00 00 ┆ ┆
0x15a700…15a702 00 00 ┆ ┆
0x15a702…15a896 Dummy {f00=0x0076, f01=0x0190, f02=»PES,DTYP COPY CORRESP. TOSS... 2 z 0 P MOVE BCD3A,STR2A ...UTILITY DISK TYPE TO... 3 & P MOVE DTYP,BCD3A ...DTYP! 3 Z P 3 | P B AOK 3 P EJECT 3 " P****************************** 3 " P* EXTEND FILE * 3 " P* NO. OF RECORDS IN EXISTING
0x15a896…15a89c 00 00 00 00 00 00 ┆ ┆
0x15a89c…15aa30 Dummy {f00=0x0076, f01=0x018e, f02=»E FILENAME 3 t P PERF WUEXT1 4 P CMP DEBINW4,W0 4 & P BNE ANOK 4 > P ERASE 1,W4,W4 4 P P DISPLAY 3,W4,W4 4 f P B AOK 4 ~ P EJECT 4 " P****************************** 4 " P* EXTEND FILE * 4 " P* NO. OF RECORDS IN EXTENDED * 4
0x15aa30…15aa36 00 00 00 00 00 00 ┆ ┆
0x15aa36…15abca Dummy {f00=0x0076, f01=0x0190, f02=» 4 P B A3 5 P EJECT 5 0 P******************************************** 5 $ 0 P* CHECK IF FILE IS FOUND (WUPRF ONLY) * 5 X 0 P* A16 IS ALWAYS ACTIVATED FROM A6. * 5 0 P******************************************** 5 P 5 PA16 5 4 P
0x15abca…15abd0 00 00 00 00 00 00 ┆ ┆
0x15abd0…15ad64 (4, 54) Dummy {f00=0x0076, f01=0x018e, f02=» " P BOK A169 JMP IF FILE IS FOUND 6 6 P MOVE DEBINW4,RETCOD SAVE RETCOD, DESTR. BY CHVNAM 6 * 4 P PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO ORIG. 6 d P CBNE DEBINW4,W1,A168 6 PA163 6 * P MOVE DEBINW4,W18 "DISK NOT OPERABLE" 6 P B ANOK 6 PA165
0x15ad64…15ad6a 00 00 00 00 00 00 ┆ ┆
0x15ad6a…15aefe Dummy {f00=0x0076, f01=0x0190, f02=» 6 d ( P MOVE DEBINW4,W23 "NOT A TOSS DISK!" 7 PA166 7 4 P B ANOK 7 @ PA168 7 P ( P MOVE DEBINW4,W12 FILE NAME UNKNOWN 7 P B ANOK 7 PA169 7 6 P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,NOREC,RETCOD 7 4 P PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO
0x15aefe…15af00 00 00 ┆ ┆
0x15af00…15af04 00 00 00 00 ┆ ┆
0x15af04…15b098 Dummy {f00=0x0076, f01=0x0190, f02=» * 7 r < P* CHECK DISK VERSION (UNPACKED OR PACKED) WHEN CRV FOR * 8 " < P* 2,5MB OR 5MB CARTRIDGE/FIX DISK. * 8 b < P* * 8 < P* INPUT: DISK VERSION = 1 (UNPACKED)
0x15b098…15b09e 00 00 00 00 00 00 ┆ ┆
0x15b09e…15b232 Dummy {f00=0x0076, f01=0x0190, f02=» * 8 b < P******************************************************** 9 P 9 R PA17 9 Z P MOVE BCD2A,DEINPUT 9 f P MOVE DVER,BCD2A 9 $ P CBL DVER,W1,AA105 CHECK LIMITS 9 P CBG DVER,W2,AA105 9 P 9 ( P ADD DVER,W1 ADD 1 TO KEYBOARD VALUE
0x15b232…15b238 00 00 00 00 00 00 ┆ ┆
0x15b238…15b3cc Dummy {f00=0x0076, f01=0x0190, f02=» * 9 l 4 P* FILL ENTERED FORM/SECT/DEF-NAME WITH * : 4 P* TRAILING BLANKS (COPY SPECIFIC) * : L 4 P* * : 4 P*********************************************** : P : PA18 : $ P
0x15b3cc…15b3d2 00 00 00 00 00 00 ┆ ┆
0x15b3d2…15b566 Dummy {f00=0x0076, f01=0x018e, f02=»6B,W0 STORE IN INPUT BUFFER : x P B AOK ; $ P PEND ; 2 P EJECT ; @ 6 P************************************************* ; N 6 P* THE CONECTION BETWEEN UNIT NO AND DISK * ; 6 P* IS DONE IN DATA DIVISION AND IS DESCRIBED * ; 6 P* IN SYS
0x15b566…15b56c 00 00 00 00 00 00 ┆ ┆
0x15b56c…15b700 Dummy {f00=0x0076, f01=0x0190, f02=» P PSTRG VOLYM < P MOVE RETCOD,W0 < P MOVE FCOD,W0 < 0 P MOVE DEBIN2,W0 < F PAUN100 < ^ P MOVE DEBIN1,DEBIN2 < l ( P MATCH DUNIT,DEBIN1,W3,DEINPUT,W0,W3 < P BOK AUN200 < P ADD DEBIN2,W3 < P CBNE DEBIN2,W66,AUN100 < P RET <
0x15b700…15b706 00 00 00 00 00 00 ┆ ┆
0x15b706…15b89a Dummy {f00=0x0076, f01=0x0190, f02=»N250 < | P MOVE DEBIN1,W4 = P TBF BOOL2,AUN250 = $ P MOVE DEBIN1,W5 = > PAUN250 = V * P ERASE 1,DEBIN1,DEBIN1 ERASE ON SCREEN = d , P CALL CHANFC,DISK,FCOD CHANGE FILE-CODE = : P CALL GETVOL,DISK,SYSBUF,VOLYM,RETCOD GET VOLUME-NAME = P CALL WX
0x15b89a…15b8a0 00 00 00 00 00 00 ┆ ┆
0x15b8a0…15ba34 (4, 55) Dummy {f00=0x0076, f01=0x018e, f02=»OVE RETCOD,W11 = P B AUN300 > PAUN275 > ( P CBNE RETCOD,W1,AUN280 > 6 P MOVE RETCOD,W18 > T P B AUN300 > l PAUN280 > ~ P CMP RETCOD,=X'8000' > P BNE AUN290 > P MOVE RETCOD,W13 > P B AUN300 > PAUN290 > P MOVE STR6A,HEX00 >
0x15ba34…15ba3a 00 00 00 00 00 00 ┆ ┆
0x15ba3a…15bbce Dummy {f00=0x0076, f01=0x0190, f02=» > P PEND ? P EJECT ? PATTDEV PROC FILCOD ? $ P PBIN FILCOD ? > P CALL CHANFC,DEDSPRT,FILCOD ? R P MOVE DEBINW4,W0 ? v P DSC0 .NW,DEDSPRT,TSTAT ? , P DELAY W10 CHANGED FROM W4 TO W10 831015 ? P TESTIO DEDSPRT ? P BNZ NOTOK ? P
0x15bbce…15bbd4 00 00 00 00 00 00 ┆ ┆
0x15bbd4…15bd68 Dummy {f00=0x0076, f01=0x0190, f02=» ? Z P B ATT100 @ PNOTOK @ P ABORT DEDSPRT @ ( P B ATT100 @ > PATTOK0 @ P : P MOVE DEBINW4,W0 SET RETURN-CODE = 0 IF RETRIES PERF. @ ^ PATTOK @ P DSC1 DEDSPRT,ATTACH,W20 @ P BOK ATTOUT @ P MOVE DEBINW4,W3 @ P B ATTOUT @ P
0x15bd68…15bd6e 00 00 00 00 00 00 ┆ ┆
0x15bd6e…15bf02 Dummy {f00=0x0076, f01=0x0190, f02=»DETACH,W0 @ P RET A P PEND A P EJECT A , P* A : 4 P* STPBLK => PUT'S CURSOR ON AND STOP'S BLOCKING A D P* A | PSTPBLK PROC A $ P MOVE VD82CW,=X'0080' CURSOR ON A P DSC DEDSSCRN,X'11',VD82CW A ( P DSC DEDSSCRN,STOPBLK STOP BLOCKING
0x15bf02…15bf08 00 00 00 00 00 00 ┆ ┆
0x15bf08…15c09c Dummy {f00=0x0076, f01=0x0190, f02=»SC DEDSSCRN,STARTBLK START BLOCKING A , P MOVE VD82CW,=X'01C0' DISCONNECT CURSOR B , P DSC DEDSSCRN,X'11',VD82CW B * P MOVE VD82CW,=X'0180' INVISIBLE CURSOR B ~ P DSC DEDSSCRN,X'11',VD82CW B P RET B P PEND B P EJECT B PFPROG FRMT B P
0x15c09c…15c0a0 00 00 00 00 ┆ ┆
0x15c0a0…15c0a2 00 00 ┆ ┆
0x15c0a2…15c236 Dummy {f00=0x0076, f01=0x0190, f02=» B x P FCOPY RELDAT C P FNL C P FNL C * P FATTR .HIGH HIGH INTENSITY C 6 P FTAB 3 C Z P FATTR .INV INVERSE VIDEO C j P FCOPY =C'WSM UTILITIES' C P FNL C P FNL C P FATTR .HIGH HIGH INTENSITY C & P FCOPY =C' FUNCTION SELECTION:
0x15c236…15c23c 00 00 00 00 00 00 ┆ ┆
0x15c23c…15c3d0 Dummy {f00=0x0076, f01=0x0190, f02=» FCOPY =C'1 =' C P FTAB 31 D P FCOPY =C'CREATE VOLUME' D & P FNL D F P FATTR .HIGH HIGH INTENSITY D R P FTAB 26 D v P FCOPY =C'2 =' D P FTAB 31 D & P FCOPY =C'CREATE WSM SYSTEM FILE' D P FNL D P FATTR .HIGH HIGH INTENSITY D P F
0x15c3d0…15c3d6 00 00 00 00 00 00 ┆ ┆
0x15c3d6…15c56a Dummy {f00=0x0076, f01=0x0190, f02=»26 D P FCOPY =C'4 =' E P FTAB 31 E P FCOPY =C'COPY VOLUME/FILE' E 0 P FNL E T P FATTR .HIGH HIGH INTENSITY E ` P FTAB 26 E P FCOPY =C'5 =' E P FTAB 31 E & P FCOPY =C'EXTEND WSM SYSTEM FILE' E P FNL E P FATTR .HIGH HIGH INTENS
0x15c56a…15c570 00 00 00 00 00 00 ┆ ┆
0x15c570…15c704 (4, 56) Dummy {f00=0x0076, f01=0x0190, f02=»GH HIGH INTENSITY E P FTAB 26 F P FCOPY =C'7 =' F * P FTAB 31 F @ " P FCOPY =C'CHANGE VOLUME-NAME' F P P FNL F v P FATTR .HIGH HIGH INTENSITY F P FTAB 26 F P FCOPY =C'8 =' F P FTAB 31 F P FCOPY =C'PRINT VTOC' F P FNL 10 F
0x15c704…15c70a 00 00 00 00 00 00 ┆ ┆
0x15c70a…15c89e Dummy {f00=0x0076, f01=0x0190, f02=»NU ' F n , P FCOPY =C'BEFORE UNLOADING ANY VOLUME!' G P FMEND G < P* G J PFHALT FRMT G T P FSL G f P FATTR .HIGH HIGH INTENSITY G r P FATTR .INV INVERSE VIDEO G P FATTR .FLASH BLINKING G $ P FCOPY =C'PRESS ENT TO CONTINUE' G P FMEND G
0x15c89e…15c8a0 00 00 ┆ ┆
0x15c8a0…15c8a4 00 00 00 00 ┆ ┆
0x15c8a4…15ca38 Dummy {f00=0x0076, f01=0x00a8, f02=»SL G P FATTR .HIGH HIGH INTENSITY H P FATTR .INV INVERSE VIDEO H . P FATTR .FLASH BLINKING H P P FCOPY =C'WAIT...' H n P FMEND H P* H P END H E VIDEO G P FATTR .FLASH BLINKING G $ P FCOPY =C'PRESS ENT TO CONTINUE' G P FMEND G
0x15ca38…15ca3e 00 00 00 00 00 00 ┆ ┆
0x15ca3e…15cbd2 Dummy {f00=0x0076, f01=0x2008, f02=» I P FATTR .HIGH HIGH INTENSITY H P FATTR .INV INVERSE VIDEO H . P FATTR .FLASH BLINKING H P P FCOPY =C'WAIT...' H n P FMEND H P* H P END H E VIDEO G P FATTR .FLASH BLINKING G $ P FCOPY =C'PRESS ENT TO CONTINUE' G P FMEND G
0x15cbd2…15cbd8 00 00 00 00 00 00 ┆ ┆
0x15cbd8…15cd6c Dummy {f00=0x0076, f01=0x40ce, f02=» J H IDENT WUINT TRA 13.0 85-07-01 F1 O1111 REL=3.0,841001,870155940300 WUINT R WUINT b $$$TRA0 t WUUTI _ @
0x15cd6c…15cd72 00 00 00 00 00 00 ┆ ┆
0x15cd72…15cf06 Dummy {f00=0x0076, f01=0x40d2, f02=» J H IDENT WUFIL TRA 13.0 85-07-01 F1 O1111 REL=3.0,841001,870155940300 FUTASK0 R FUTASK0 d $$$TRA0 x WUFIL 0 _ @
0x15cf06…15cf0c 00 00 00 00 00 00 ┆ ┆
0x15cf0c…15d0a0 Dummy {f00=0x0076, f01=0x0190, f02=» J H IDENT WUUTI TRA 13.0 85-07-01 F1 O1111 REL=3.0,841204,870155940300 B > WUUTI`APP DISERR0 DSKERR0 UFERR HALT0 CONT0 CHVNAM0 STPBLK0 R STABLK0 @ < WUUTI hAPP P DISERR0 DSKERR0 UFERR HALT0 CONT0 B $ CHVNAM0 STPBLK0 < STA
0x15d0a0…15d0a6 00 07 1a 0d 00 2a ┆ *┆
0x15d0a6…15d23a Dummy {f00=0x0076, f01=0x0190, f02=»L0 GETIND0 RCGET OPENF CLOSEF0 l F B CHVOL GETCW WXMUL WXDIV T:DSC20 T:DSC10 T:RECE0 T:ATTF0 T:ASEN0 & D @ T:DISP0 T:ERAS0 T:EDWR0 T:NKI T:DSC00 T:DELA0 T:TEST0 T:WAIT0 p T:XSTA0 T:ABOR0 .
0x15d23a…15d240 00 07 1a 0d 00 2a ┆ *┆
0x15d240…15d3d4 (4, 57) Opaque[0x194]
0x15d3d4…15d3da 00 00 00 00 00 00 ┆ ┆
0x15d3da…15d56e # DirEnt {nam=»WUDEN «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0ee0, f03=0x0000}
0x15d3da…15d56e IdxSect {
0x15d3da…15d56e f00 = 0x0077 // 0x15d3da @0x0
0x15d3da…15d56e f01 = 0x000c // 0x15d3dc @0x2
0x15d3da…15d56e gno = [ // 0x15d3de @0x4
0x15d3da…15d56e [0x00]: C0x0077.0x0.0
0x15d3da…15d56e [0x01]: C0x0077.0x1.0
0x15d3da…15d56e [0x02]: C0x0077.0x2.0
0x15d3da…15d56e [0x03]: C0x0077.0x3.0
0x15d3da…15d56e [0x04]: C0x0078.0x0.0
0x15d3da…15d56e [0x05]: C0x0078.0x1.0
0x15d3da…15d56e ]
0x15d3da…15d56e }
0x15d56e…15d574 00 00 00 00 00 00 ┆ ┆
0x15d574…15d708 Dummy {f00=0x0077, f01=0x0190, f02=» , P IDENT WUDEN REL=2.3,850808,870155940230 P* 4 2 P********************************************* > 2 P* * t 2 P* A STANDARD PROGRAM PACKAGE HANDLING * 2 P* A COMPLETE PICTURE ON A DISPLAY SCR
0x15d708…15d70e 00 28 00 a4 00 08 ┆ ( ┆
0x15d70e…15d8a2 Dummy {f00=0x0077, f01=0x0190, f02=» TOSS REL 12.0 * 2 P* * ( 2 P********************************************* ^ P* P** HISTORY: P D P** 85-08-08 /CRBE CHANGE IN ERROR FORMATS FROM DISC TO DISK. 8 P** 84-
0x15d8a2…15d8a8 00 28 00 a4 00 08 ┆ ( ┆
0x15d8a8…15da3c Dummy {f00=0x0077, f01=0x018e, f02=»PUT UNIT => APPL 10 IS EXECUTED. p > P** 83-06-27 /MAER ERFM10 NOW COVERS ALSO FILE OVERFLOW. ( L P** BIN13 INSTEAD OF BIN1 DESTROYED BY SUBR. "BUZZER". j * P** 83-06-22 /MAER ERFM19-21 ADDED. 6 P** 83-06-17 /MAER KEYBOARD BU
0x15da3c…15da40 00 28 00 a4 ┆ ( ┆
0x15da40…15da42 00 08 ┆ ┆
0x15da42…15dbd6 Dummy {f00=0x0077, f01=0x0190, f02=» P************************* P* * & P* ENTRIES AND EXTERNALS * H P* * j P************************* , P ENTRY DECLRA CLEAR ALL VARIABLE FIELDS , P ENTRY DECLRS CLEAR SOME VARIABLE FIELDS
0x15dbd6…15dbdc 00 28 00 a4 00 08 ┆ ( ┆
0x15dbdc…15dd70 Dummy {f00=0x0077, f01=0x0190, f02=»TSIDE SCREEN r P* & P EXPROC APP USER ROUTINE TO HANDLE $ P EXPROC STPBLK ***STOP BLOCKING H $ P EXPROC STABLK ***START BLOCKING p P APPL VALUES . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - ( P EXT CHANFC CHANGE FILE CODE (VD82)
0x15dd70…15dd76 00 28 00 a4 00 08 ┆ ( ┆
0x15dd76…15df0a Dummy {f00=0x0077, f01=0x0190, f02=» VARIABLE FIELD BEFORE HANDLING THE PICTURE P* 4 PDECLRA PROC > P PERF DENTER,W1 R P RET j P PEND v P* @ P* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* PDECLRS PROC P PERF DENTER,W2 P
0x15df0a…15df10 00 28 00 a4 00 08 ┆ ( ┆
0x15df10…15e0a4 (4, 58) Dummy {f00=0x0077, f01=0x0190, f02=»F DENTER,W3 P RET P PEND P* . 8 P* CLEAR SOME VARIABLE FIELDS AND DISPLAY THE REST 8 < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE t P* PDECLRD PROC P* P PERF DENTER,W4 P RET P PEND
0x15e0a4…15e0aa 00 00 00 00 00 00 ┆ ┆
0x15e0aa…15e23e Dummy {f00=0x0077, f01=0x0190, f02=»DENTER PROC OPT P PBIN OPT P * " P PERF STABLK ***START BLOCKING 2 & P MOVE DEBINW2,OPT MOVE TO VARIABLE X " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? P BE ERRPRINT YES ! P . P TBT DEPROMPT,ENTIRE J
0x15e23e…15e240 00 00 ┆ ┆
0x15e240…15e244 00 00 00 00 ┆ ┆
0x15e244…15e3d8 Dummy {f00=0x0077, f01=0x018e, f02=» CLEARA, C P CLEARS, C P CONT, C ( P CLEARD : P* J PCLEARA T * P ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP b P B CONT P* PCLEARS , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B CONT PCLEARD * P D
0x15e3d8…15e3de 00 00 00 00 00 00 ┆ ┆
0x15e3de…15e572 Dummy {f00=0x0077, f01=0x0190, f02=» P CLEAR DEPROMPT P IB DEBINW2, JUMP C P ECLRA, ON C < P ECLRS, ROUTINE C R P ECLRN, INDEX C l P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP P I
0x15e572…15e578 00 00 00 00 00 00 ┆ ┆
0x15e578…15e70c Dummy {f00=0x0077, f01=0x0190, f02=»FIELDS FROM v P 1 AND UP IN MEMORY P* 2 & P* CLEAR NO VARIABLES IN MEMORY < P* f PECLRN p ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM ~ P EJECT P* PCONT & P GETABX DEBINW4 GET CURRENT INDEX ( P BL KTHOME JUMP
0x15e70c…15e712 00 00 00 00 00 00 ┆ ┆
0x15e712…15e8a6 Dummy {f00=0x0077, f01=0x0190, f02=»L KTHOME POSITION NOT FOUND P* $ P* COMPULSORY FIELD FOUND . P* R & P MOVE DEBINW4,DEBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P EJECT P* & P* SET CURSOR AND READ KEYBOARD P* PSETCREAD (
0x15e8a6…15e8ac 00 00 00 00 00 00 ┆ ┆
0x15e8ac…15ea40 Dummy {f00=0x0077, f01=0x0190, f02=»ERF STPBLK ***STOP BLOCKING . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C $ P DEBINW2,DEBINW4 V PDYKOUT p P BL ERRPRT ERROR ~ P CBNL DEBINW2,W0,DYK100 PDYK050 P MOVE DEBINW2,W2 P B ERRCAN PDYK100 P CBE DEBINW2
0x15ea40…15ea46 00 00 00 00 00 00 ┆ ┆
0x15ea46…15ebda Dummy {f00=0x0077, f01=0x0190, f02=»,ERRCAN,ERRCAN, C P DUMMY,KTBWD, C . P DUMMY,DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C 4 P KCOPY,KDUPL,KEDIT f P EJECT P* 4 P* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST P* PUPDATE * P MOVE DEBINW4,W1 INDICATE COND
0x15ebda…15ebe0 00 00 00 00 00 00 ┆ ┆
0x15ebe0…15ed74 (4, 59) Dummy {f00=0x0077, f01=0x0190, f02=»FFERENT FROM ZERO ~ P* PUPD240 PERF APP $ ( P IB DEBINW3,UPD260,SETCREAD,ERRPRINT < P B UPD260 h PUPD250 z P CBNE DEBINW1,W0,UPD260 P MOVE DEINPUT,:FMTITEM PUPD260 2 P TBT BOOL3,UPD300 JUMP IF DUPL OF OUTPUT UNIT "
0x15ed74…15ed7a 00 00 00 00 00 00 ┆ ┆
0x15ed7a…15ef0e Dummy {f00=0x0077, f01=0x0190, f02=»D300 SET DECHANGE INDICATE CHANGED ITEM $ P* JUMP ON FUNCTION KEY INDEX 0 P IB DEBINW2,KTFWD,DUMMY, C X P KEOI,DUMMY,DUMMY,KTFWD, C | ( P DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C ( P DUMMY,DUMMY,DUMMY,DUMMY,DUMMY, C P KENTER * P
0x15ef0e…15ef14 00 00 00 00 00 00 ┆ ┆
0x15ef14…15f0a8 Dummy {f00=0x0077, f01=0x0190, f02=» P CLEAR DENOCHAN P RET P* , P EJECT 6 " PKEOI COMMON END-OF-ITEM KEY D PKTFWD TAB. FORWARD 1 STEP j P TFWD P B TSTTAB P* $ PKTBWD TABULATION 1 STEP BACKW. P TBWD P B TSTTAB P* "
0x15f0a8…15f0ae 00 00 00 00 00 00 ┆ ┆
0x15f0ae…15f242 Dummy {f00=0x0077, f01=0x0190, f02=» P B SETCREAD P EJECT PKCOPY HARD COPY * P MOVE DEBINW3,W1 D P PRINT DEDSPRT,DEBINW3,W0 PKCOP10 ~ $ P B SETCREAD SET CURSOR AND READ P* PKDUPL DUPLICATION , P MOVE DEBINW2,W3 INDICATE COMMON EOI-KEY
0x15f242…15f248 00 00 00 00 00 00 ┆ ┆
0x15f248…15f3dc Dummy {f00=0x0077, f01=0x0190, f02=»GET APPL-VALUE ~ > P CBNE DEBINW3,W10,UPD260 JUMP IF APPL VALUE DIFF. FROM 10 " P UPDFLD 0,DEINPUT UPDATE FIELD X * P SET BOOL3 PERFORM APPLICATION ROUTINE ~ P B UPD240 PKDU500 . P MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY P B ERRPRIN
0x15f3dc…15f3e0 00 00 00 00 ┆ ┆
0x15f3e0…15f3e2 00 00 ┆ ┆
0x15f3e2…15f576 Dummy {f00=0x0077, f01=0x0190, f02=» GETCTL 1,DEBINW3 GET MAXL P CBNE DEBINW3,W0,KED100 " P PERF BUZZER ACOUSTIC ALARM B P B SETCREAD f PKED100 z & P EDFLD DEINPUT,DEKTAB3,DEBINW1, C P DEBINW2,DEBINW4 " P B DYKOUT CONTINUE AS FOR DYKI P* P* ERAS
0x15f576…15f57c 00 00 00 00 00 00 ┆ ┆
0x15f57c…15f710 Dummy {f00=0x0077, f01=0x0190, f02=»P PKENTER . P MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND * P MOVE DEBINW1,W0 INDICATE NO CLEARING J < P GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS x ( P BOFL KENT10 EMPTY COMP. FIELD FOUND & P TSTCTL 2 LOOK IF COMPULSORY FIELD
0x15f710…15f716 00 00 00 00 00 00 ┆ ┆
0x15f716…15f8aa Dummy {f00=0x0077, f01=0x0190, f02=»10 | P CBE DEBINW2,W10,KCOP10 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED * P RET ` P* l & P* EMPTY COMPULSORY FIELD FOUND v P* PKENT10 P MOVE DEBINW2,W0 6 P GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD
0x15f8aa…15f8b0 00 00 00 00 00 00 ┆ ┆
0x15f8b0…15fa44 (4, 60) Dummy {f00=0x0077, f01=0x0190, f02=»L1 j , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 P XSTAT DEDSDYKB,DEBINW3 : P CALL MASK,DEBINW3,W64 Z P BNZ DYK050 x P* P* PERRPRINT P PERF DERROR,DEKTAB4 . P IB DEBINW2,SETCREAD,RETUR2,RETUR2,KEDITX P B SETCREA
0x15fa44…15fa4a 00 00 00 00 00 00 ┆ ┆
0x15fa4a…15fbde Dummy {f00=0x0077, f01=0x0190, f02=»,W3 ADJUST FOR CANCEL1,CANCEL2 P RET & PCLEA20 2 * P GETABX DEBINW4 GET CURRENT TAB INDEX @ , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD n P B SETCREAD CONTINUE P* PRETUR2 P SUB DEBINW2,W1 P RET P PEND P EJE
0x15fbde…15fbe0 00 00 ┆ ┆
0x15fbe0…15fbe4 00 00 00 00 ┆ ┆
0x15fbe4…15fd78 Dummy {f00=0x0077, f01=0x0190, f02=» * D P* ERROR HANDLING * > D P* * D P**********************************************************
0x15fd78…15fd7e 00 00 00 00 00 00 ┆ ┆
0x15fd7e…15ff12 Dummy {f00=0x0077, f01=0x0190, f02=» n . P MOVE DEBINW3,=X'1801' ELSE MSG ON LINE 24 P : . PDERR02 MOVE DEBINW2,W1 INDICATE CLEAR-KEY B P PERF BUZZER ACOUSTIC ALARM t P CMP DEBINW4,W0 P BZ DERR99 P BP DERR03 P ADD DEBINW4,=W'51' PDERR03 6 P DSC1 DEDS
0x15ff12…15ff18 00 00 00 00 00 00 ┆ ┆
0x15ff18…1600ac Dummy {f00=0x0077, f01=0x0190, f02=»********************************* r D P* * * D P* WRITE MESSAGE * r D P* * D P******
0x1600ac…1600b2 00 00 00 00 00 00 ┆ ┆
0x1600b2…160246 Dummy {f00=0x0077, f01=0x0190, f02=» D P*************************************************************** D P* * P D P* READ KEYBOARD FOR OPERATOR ACKNOWLEDGMENT * D P*
0x160246…16024c 00 00 00 00 00 00 ┆ ┆
0x16024c…1603e0 Dummy {f00=0x0077, f01=0x0190, f02=»HE BEGINNING x P OF THE CURRENT FIELD P B DERR15 NO BELL FIRST TIME 4 PDERR10 X P PERF BUZZER ACOUSTIC ALARM f PDERR15 & P MOVE DEBINW3,W1 REQUESTED LENGTH 0 P NKI .NE,DEDSDYKB,STR1A,KEYT,DEBINW3,DEBINW2 P BNOK DERR10
0x1603e0…1603e6 00 00 00 00 00 00 ┆ ┆
0x1603e6…16057a Dummy {f00=0x0077, f01=0x0190, f02=» VD82,DERR25 IF VD82 => BRANCH... 6 P MOVE DEBINW3,=X'1801' ...ELSE USE LINE 24 (VD46) * ( PDERR25 IB DEBINW2,DERR30,DERR30, C d P DERR30,DERR40 P B DERR10 CONTINUE P D P**************************************************************
0x16057a…160580 00 00 00 00 00 00 ┆ ┆
0x160580…160714 (4, 61) Dummy {f00=0x0078, f01=0x0190, f02=» * Z D P* * D P*************************************************************** Z P PDERR30 4 P DSC1 DEDSSYSL,6,DEBINW3 SET CURSOR ON MSG LINE . P DSC1 DEDSSYSL,2,W80 ERA
0x160714…16071a 00 00 00 00 00 00 ┆ ┆
0x16071a…1608ae Dummy {f00=0x0078, f01=0x018e, f02=»URSOR ON MSG LINE r . P DSC1 DEDSSYSL,2,W80 ERASE CURRENT MESSAGE PDERR99 L P RET Z P PEND f P EJECT t PCANC PROC P MOVE DEINPUT,HEX00 0 P MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS . P CBE DEBINW1,W0,CANC10 JUMP IF LENGT
0x1608ae…1608b4 00 00 00 00 00 00 ┆ ┆
0x1608b4…160a48 Dummy {f00=0x0078, f01=0x0190, f02=» l * P ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD PCANC10 6 P IB DEBINW2,CLEAR1,CLEAR2 D PCANC15 f 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS t P RET PCLEAR1 . P CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 ( P SET DECHANGE IN
0x160a48…160a4e 00 00 00 00 00 00 ┆ ┆
0x160a4e…160be2 Dummy {f00=0x0078, f01=0x0190, f02=»RE CURRENT CONTENTS t * P GETABX DEBINW4 GET CURRENT TAB INDEX ! , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD ! J P RET ! z P PEND ! P EJECT ! & P********************************** ! & P* * ! & P* ACTIVATE KEYBO
0x160be2…160be8 00 00 00 00 00 00 ┆ ┆
0x160be8…160d7c Dummy {f00=0x0078, f01=0x0190, f02=» * ! t & P* * " & P********************************** " 8 P " b PBUZZER PROC " j P " ~ 0 P MOVE BIN13,=X'4F' F.C. FOR KEYBOARD BUZZER " @ P CALL CHANFC,DEDSSYSL,BIN13 CHANGE F.C. TO KEY BOARD BUZZER " ( P MOVE BIN1
0x160d7c…160d80 00 00 00 00 ┆ ┆
0x160d80…160d82 00 00 ┆ ┆
0x160d82…160f16 Dummy {f00=0x0078, f01=0x018e, f02=»ZZ99 " P RET # P PEND # P EJECT # & P* # 4 P****************** # > P* * # X P* ERROR-MESSAGES * # r P* * # P****************** # P* # H PDEFTBERR FTABLE ERFM01,ERFM02,ERFM03,ERFM04,ERFM05,ERFM06,ERFM
0x160f16…160f1c 00 00 00 00 00 00 ┆ ┆
0x160f1c…1610b0 Dummy {f00=0x0078, f01=0x0190, f02=» P ERFM22,ERFM23 $ P* $ PERFM01 FRMT $ & P FSL $ : & P FTEXT 'TOO FEW INPUT CHARACTERS' $ F P FMEND $ p P* $ ~ PERFM02 FRMT $ P FSL $ P FTEXT 'UNDEFINED ERROR' $ P FMEND $ P* $ PERFM03 FRMT $ P FSL $ P FTEXT '
0x1610b0…1610b6 00 00 00 00 00 00 ┆ ┆
0x1610b6…16124a Dummy {f00=0x0078, f01=0x0190, f02=»ERFM05 FRMT $ P FSL % ( P FTEXT 'COMPULSORY FIELD NOT FILLED' % P FMEND % L P* % Z PERFM06 FRMT % d P FSL % x P FTEXT 'ILLEGAL VALUE' % P FMEND % P* % PERFM07 FRMT % P FSL % " P FTEXT 'FILENAME ALREADY USED' % P FMEND %
0x16124a…161250 00 00 00 00 00 00 ┆ ┆
0x161250…1613e4 (4, 62) Dummy {f00=0x0078, f01=0x0190, f02=» FSL % P FTEXT 'DISK/FILE OVERFLOW' & P FMEND & 0 P* & > PERFM11 FRMT & H P FSL & P FTEXT 'NEW VOLUME LOADED' & h P FMEND & P* & PERFM12 FRMT & P FSL & P FTEXT 'FILE NAME UNKNOWN' & P FMEND & P* & PERFM13 FRMT
0x1613e4…1613ea 00 00 00 00 00 00 ┆ ┆
0x1613ea…16157e Dummy {f00=0x0078, f01=0x0190, f02=»E' & x P FMEND ' P ' PERFM19 FRMT ' P FSL ' 4 P FTEXT 'DISK ERROR' ' @ P FTAB 31 ' P FCOPY STR6A ' l P FMEND ' P* ' PERFM20 FRMT ' P FSL ' P FTEXT 'POOL ERROR' ' P FTAB 31 ' P FCOPY STR6A ' P FMEND ' P '
0x16157e…161580 00 00 ┆ ┆
0x161580…161584 00 00 00 00 ┆ ┆
0x161584…161718 Dummy {f00=0x0078, f01=0x00fe, f02=» ' ~ P FTAB 30 ( P FCOPY STR6A ( P FMEND ( , P ( : PERFM23 FRMT ( B P FSL ( V P FTEXT 'NOT A TOSS DISK!' ( b P FMEND ( P ( P* ( PBELL FRMT ( P FSL ( P FILLR X'07',1 ( P FMEND ( P ( P ( P END ( ' P '
0x161718…16171e 00 00 00 00 00 00 ┆ ┆
0x16171e…1618b2 Dummy {f00=0x0078, f01=0x2008, f02=» ) FTAB 30 ( P FCOPY STR6A ( P FMEND ( , P ( : PERFM23 FRMT ( B P FSL ( V P FTEXT 'NOT A TOSS DISK!' ( b P FMEND ( P ( P* ( PBELL FRMT ( P FSL ( P FILLR X'07',1 ( P FMEND ( P ( P ( P END ( ' P '
0x1618b2…1618b8 00 00 00 00 00 00 ┆ ┆
0x1618b8…161a4c Dummy {f00=0x0078, f01=0x0190, f02=» 2 _NjB2!A!0 Q ~ * & ' !708B % * " 1 A _r R E _v 4 R J * & K @ % G r R ` * & i $ + f 8 m R * & z h o R ( $ H
0x161a4c…161a52 00 00 00 00 00 00 ┆ ┆
0x161a52…161be6 Dummy {f00=0x0078, f01=0x0190, f02=»NEWNO.FI R r * & LEUNIT:SYSTEMFILENAME:R XXX WS S * & 9 M OF RECORDS:- 2 = PACKEDVOLUM S > * & W E-NAME:CREATE VOLUMENO. OF FIL S l * & u ES:FROM RECORD NO.:TO RECORD S * & NO.:CHANGE VOLUME-NAMECREATE S * & WSM SYSTEM
0x161be6…161bec 00 00 00 00 00 00 ┆ ┆
0x161bec…161d80 Dummy {f00=0x0078, f01=0x0190, f02=»TTTTXTTTTTTX 1 S * & ) [ [ 5 H T * & G 6 . * ( T L * & e ' - W ) T z * & / I + K T * & 4 ) / ! I & T * &
0x161d80…161d86 00 00 00 00 00 00 ┆ ┆
0x161d86…161f1a Dummy {f00=0x0078, f01=0x0190, f02=» / I + K T * & 7 2 W 3 Y U , * & U PRINT OUTPUT DEVICE: U Z * & s 0 ) / U * & I / I J 1 % U * & U TYPE: G 6P
0x161f1a…161f20 00 00 00 00 00 00 ┆ ┆
0x161f20…1620b4 (4, 63) Opaque[0x194]
0x1620b4…1620ba 00 00 00 00 00 00 ┆ ┆
0x1620ba…16224e # DirEnt {nam=»WULIT «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f10, f03=0x0000}
0x1620ba…16224e IdxSect {
0x1620ba…16224e f00 = 0x0078 // 0x1620ba @0x0
0x1620ba…16224e f01 = 0x0002 // 0x1620bc @0x2
0x1620ba…16224e gno = [ // 0x1620be @0x4
0x1620ba…16224e [0x00]: C0x0078.0x2.0
0x1620ba…16224e ]
0x1620ba…16224e }
0x16224e…162254 00 00 00 00 00 00 ┆ ┆
0x162254…1623e8 Dummy {f00=0x0078, f01=0x0190, f02=» P* DELITT P EJECT PENT EQU X'80' ENTER * PCAN EQU X'91' CANCEL F PRET EQU X'99' RETURN b PPRT EQU X'98' PRINT ~ PRIN EQU X'0F' RECORD INSERT PRDL EQU X'0E' RECORD DELETE PEOI EQU X'8C' FIELD FORWARD PBT
0x1623e8…1623ee 00 a1 01 90 58 27 ┆ X'┆
0x1623ee…162582 Dummy {f00=0x0078, f01=0x0190, f02=»X'10' CURSOR FORWARD " PCBW EQU X'09' CURSOR BACKWARD PBSP EQU X'08' BACKSPACE B PNOK EQU X'EE' NOKEY b P EJECT ~ P* P* KEYTABLES P* & P* USAGE: DATA ENTRY SCREEN P* , PDEKTAB1 KTAB BSP,CLR,NOK,E
0x162582…162588 00 a1 41 6e 4b 54 ┆ AnKT┆
0x162588…16271c Dummy {f00=0x0078, f01=0x416e, f02=»KTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C P NOK,BTB,NOK,NOK, C . P NOK,NOK,NOK,NOK,PRT, C L P NOK,CBW,ENT n P* ( PDEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET, C P NOK,BTB,NOK,NOK, C P NOK,NOK,NOK,
0x16271c…162720 00 a1 20 08 ┆ ┆
0x162720…162722 20 04 ┆ ┆
0x162722…1628b6 Dummy {f00=0x0078, f01=0x2008, f02=»
0x1628b6…1628bc 00 a1 01 90 00 0a ┆ ┆
0x1628bc…162a50 Dummy {f00=0x0078, f01=0x0190, f02=» H > : ( a 8 H ! X h " x ( / 6 ? ( J F " D % * R ! <R?R R2?R RP0R D 4 0R 4 0R f!D 0R f"D 0R f#
0x162a50…162a56 00 a1 40 14 00 08 ┆ @ ┆
0x162a56…162bea Dummy {f00=0x0078, f01=0x4014, f02=» PNOD @ 0 8 @ X ` h p x X p x ( 0 8 @ H P X ` h p x P X ` h 0 X ` h p ( 0 8 H P X ` p x h p x X ` p 0 8
0x162bea…162bf0 01 00 81 57 ff ce ┆ W ┆
0x162bf0…162d84 (4, 64) Opaque[0x194]
0x162d84…162d8a 00 00 00 00 00 00 ┆ ┆
0x162d8a…162f1e # DirEnt {nam=»WUCRF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f18, f03=0x0000}
0x162d8a…162f1e IdxSect {
0x162d8a…162f1e f00 = 0x0078 // 0x162d8a @0x0
0x162d8a…162f1e f01 = 0x0008 // 0x162d8c @0x2
0x162d8a…162f1e gno = [ // 0x162d8e @0x4
0x162d8a…162f1e [0x00]: C0x0078.0x3.0
0x162d8a…162f1e [0x01]: C0x0079.0x0.0
0x162d8a…162f1e [0x02]: C0x0079.0x1.0
0x162d8a…162f1e [0x03]: C0x0079.0x2.0
0x162d8a…162f1e ]
0x162d8a…162f1e }
0x162f1e…162f20 00 00 ┆ ┆
0x162f20…162f24 00 00 00 00 ┆ ┆
0x162f24…1630b8 Dummy {f00=0x0078, f01=0x0190, f02=» , P IDENT WUCRF REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 2 CREATE FILE * * P*
0x1630b8…1630be 00 00 00 00 00 00 ┆ ┆
0x1630be…163252 Dummy {f00=0x0078, f01=0x0190, f02=» WSM SYSTEM FILE". t H P** 83-05-11 /MAER NEW FILES GET RECORD LENGTH 256 INSTEAD OF 255. J P** 83-04-06 /MAER NEW FILES ARE CREATED AS 'X'-FILES (NON-STANDARD) f : P** INSTEAD OF 'S'-FILES (STANDARD). > P** 82-07-08 /DALI V
0x163252…163258 00 00 00 00 00 00 ┆ ┆
0x163258…1633ec Dummy {f00=0x0078, f01=0x0190, f02=»ALI CREATION P P P DDUM WUDIV ( P PDIV < P ENTRY WUCRF J P* ^ & P EXPROC DECLRA CRE= SCREEN ROUTINE h & P EXPROC DISERR CRE= ERROR ROUTINE * P EXPROC DSKERR,PBIN CRE= ERROR ROUTINE 4 P EXPROC CHVNAM,PSTRG,PBIN CRE=
0x1633ec…1633f2 00 00 00 00 00 00 ┆ ┆
0x1633f2…163586 Dummy {f00=0x0078, f01=0x0190, f02=»RITDK ASS= WRITE A SECTOR , P EXT BINBCD ASS= TWO BINARYS TO BCDITEM " , P EXT BCDBIN ASS= BCDITEM TO TWO BINARYS R & P EXT CHANFC ASS= CHANGE FILE-CODE P EXT OPENF ASS= OPEN FILE P EXT CLOSEF ASS= CLOSE FILE P EJECT PWUCRF PR
0x163586…16358c 00 00 00 00 00 00 ┆ ┆
0x16358c…163720 Dummy {f00=0x0078, f01=0x018e, f02=»ROMPT PCRF100 P PERF DECLRA PCRF150 0 $ P IB DEBINW2,CRF100,RETUR,CRF200 > P PERF DSKERR,W0 'BELL' f P B CRF150 PCRF200 ( P PERF CHVNAM,VOLEX1,FCOD CHANGE NAME P BNOK CRF335 > P CALL OPENF,DISK,FILECODE(W1),SYSBUF
0x163720…163726 00 00 00 00 00 00 ┆ ┆
0x163726…1638ba Dummy {f00=0x0078, f01=0x018e, f02=» , P PERF DSKERR,W7 'FILENAME ALREADY USED' P B CRF150 4 PCRF250 F 4 P MOVE BCDI21(W2),=D'00' NUMBER OF FREE SECTORS T P MOVE BIN1,W0 SECTOR NO. : P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL P BNOK CRF330 * P XCOPY BIN
0x1638ba…1638c0 00 00 00 00 00 00 ┆ ┆
0x1638c0…163a54 (4, 65) Dummy {f00=0x0079, f01=0x0190, f02=» ` PCRF300 8 P CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR P BOK CRF340 R PCRF330 f P PERF DISERR t ( P PERF CHVNAM,VOLNAM,FCOD CHANGE NAME P BOK CRF150 PCRF335 P PERF DISERR P B CRF150 P EJECT
0x163a54…163a5a 00 00 00 00 00 00 ┆ ┆
0x163a5a…163bee Dummy {f00=0x0079, f01=0x0190, f02=» IN NO OF FS REC h < P XCOPY BIN11,W0,W2,SYSBUF,BIN5 2:ST WORD IN NO OF FS REC ( P CALL BINBCD,BIN10,BIN11,BCDI21(W1) X P ADD BCDI21(W2),BCDI21(W1) 8 P CBE BIN6,=W'32',CRF400 JUMP IF ALL ENTRIES HANDLED P ADD BIN5,W8 & P ADD BIN6,W1 HANDL
0x163bee…163bf4 00 00 00 00 00 00 ┆ ┆
0x163bf4…163d88 Dummy {f00=0x0079, f01=0x0190, f02=»F550 JUMP IF ALL FSAT-RECORDS P HANDLED & * P ADD BIN1,W1 INCREMENT RECORDNUMBER TO 8 P B CRF300 NEXT FSAT-RECORD f PCRF550 P ATTFMT FSYS P SET DEPROMPT PCRF650 P PERF DECLRA PCRF680 $ P IB DEBINW2,CRF650,CRF79
0x163d88…163d8e 00 00 00 00 00 00 ┆ ┆
0x163d8e…163f22 Dummy {f00=0x0079, f01=0x0190, f02=»,W1,W5 P MOVE STR1A,=C'X' & P XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG ( , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME R , P COPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 P MOVE STRG10A,='R XXX WSM ' . P XCOPY STRG10A,W2,W3,RELNUM,W0 SET REL. NO P
0x163f22…163f28 00 00 00 00 00 00 ┆ ┆
0x163f28…1640bc Dummy {f00=0x0079, f01=0x0190, f02=»1 BF v P MOVE BIN2,=W'50' 4 P XCOPY PBLOCK,BIN2,W2,SECLEN,W0 ***ME 830511 *** & " P CALL BCDBIN,NOREC,BIN10,BIN11 ^ P MOVE BIN1,=W'52' 2 P XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS P MOVE BIN1,=W'54' 2 P XCOPY PBLOCK,BIN1,W2,BIN1
0x1640bc…1640c0 00 00 00 00 ┆ ┆
0x1640c0…1640c2 00 00 ┆ ┆
0x1640c2…164256 Dummy {f00=0x0079, f01=0x0190, f02=»,W2,W0,W0 NIF ~ 4 P CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD P CMP RETCOD,W0 'I/O-ERROR' N P BNZ CRF750 p > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P BOK CRF800 PCRF750 P PERF DISERR 'I/O-ERROR' P
0x164256…16425c 00 00 00 00 00 00 ┆ ┆
0x16425c…1643f0 Dummy {f00=0x0079, f01=0x0190, f02=»EPROMPT P PERF DISERR 'I/O-ERROR' P B CRF150 0 P EJECT B , P*************************************** P , P* * , P* FOLLOWING WORK ITEMS ARE USED * , P* FOR INIALIZATION OF THE SYSWSM-FILE*
0x1643f0…1643f6 00 00 00 00 00 00 ┆ ┆
0x1643f6…16458a Dummy {f00=0x0079, f01=0x0190, f02=» * p , P* BIN3 = NO.OF SECTORS/RECORD * , P* BIN4 = NO.OF FREE-SPACE REC. * @ , P* BIN5 = NO.OF FS.IN LAST REC. * p , P* BIN6 = INDEX * , P* BIN7 = NOT USED * , P* BIN8
0x16458a…164590 00 00 00 00 00 00 ┆ ┆
0x164590…164724 (4, 66) Dummy {f00=0x0079, f01=0x0190, f02=»* * , P* BIN12 = SIZE OF SECTORS * 0 , P* * ` , P* BCD5A = NO.OF FS.IND PER FS. RECORD* , P* BCD13A = NO.OF RECORDS * , P************************
0x164724…16472a 00 00 00 00 00 00 ┆ ┆
0x16472a…1648be Dummy {f00=0x0079, f01=0x0190, f02=» NU, NOT USED, RESERVED 6 P* 10-25 CH, FORMAT/DEFINITION CHAINS & 8 P*************************************************** ` P* P EJECT P************************ P* FREE-SPACE RECORDS * P********************
0x1648be…1648c0 00 00 ┆ ┆
0x1648c0…1648c4 00 00 00 00 ┆ ┆
0x1648c4…164a58 Dummy {f00=0x0079, f01=0x0190, f02=»0 LINK NEXT2. P MOVE FRSTN1,W0 & P MOVE BCD13A,NOREC NO. OF RECORDS . 6 P MOVE BCD5A,=D'+01920' NO. OF FS-IND. PER FS. REC. X $ P SUB BCD13A,=D'+024' SYSTEMFILE P MOVE BIN4,W0 PCRF810 * P ADD BIN4,W1 NO.OF FREE-SPACE RECORDS
0x164a58…164a5e 00 00 00 00 00 00 ┆ ┆
0x164a5e…164bf2 Dummy {f00=0x0079, f01=0x0190, f02=» ~ 4 P MOVE BIN5,BCD13A BIN5 = NO. OF FREE-RECORD-IND. P IN LAST FREE-SPACE RECORD @ & P MOVE FRSTN2,BIN4 1:ST RECORD NO. d P ADD FRSTN2,=W'25' & P CBE BIN4,W1,CRF830 ONLY 1 RECORD " P MOVE LNEXT2,=W'26' LINK NEXT2 PCRF830 * P M
0x164bf2…164bf8 00 00 00 00 00 00 ┆ ┆
0x164bf8…164d8c Dummy {f00=0x0079, f01=0x018e, f02=»EE,BIN5 IF LAST RECORD P MOVE NOFREC,BIN5 PCRF840 8 P MOVE RECNUM,=D'+1' F P EJECT b PCRF850 p : P***************************************************** ~ : P* FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=FREE * : P**************
0x164d8c…164d92 00 00 00 00 00 00 ┆ ┆
0x164d92…164f26 Dummy {f00=0x0079, f01=0x0190, f02=» , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. PCRF860 4 P ADD BIN6,W1 B P SUB BIN1,W8 8 RECORDS V P BN CRF870 t P MOVE FF(BIN6),=X'FF' P CBE BIN1,W0,CRF880 P B CRF860 PCRF870 P ADD BIN1,W8 P CBE BIN1,W0,CRF882
0x164f26…164f2c 00 00 00 00 00 00 ┆ ┆
0x164f2c…1650c0 Dummy {f00=0x0079, f01=0x0190, f02=»,=X'00' P B CRF880 " P****************************** " " P* WRITE FREE-SPACE RECORDS * H " P****************************** n PF80 < P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD P BNOK CRF990 P SUB BIN4,W1 P
0x1650c0…1650c6 00 00 00 00 00 00 ┆ ┆
0x1650c6…16525a Dummy {f00=0x0079, f01=0x0190, f02=» n P ADD BIN2,W1 RELREC P MOVE RECNUM,LNEXT2 $ P ADD LNEXT2,W1 @ P CBNE BIN4,W1,CRF850 V P MOVE LNEXT2,W0 LAST RECORD r P MOVE NOFREE,BIN5 P B CRF850 PCRF890 P MOVE RECNUM,=D'+1' P MOVE BIN1,W1 PCRF905
0x16525a…165260 00 00 00 00 00 00 ┆ ┆
0x165260…1653f4 (4, 67) Dummy {f00=0x0079, f01=0x0190, f02=»30, REC 5 = NOT USED C P CRF910, REC 6 = NOT USED C P CRF910, REC 7 = NOT USED C B P CRF910, REC 8 = NOT USED C f P CRF910, REC 9 = NOT USED C $ P CRF940 REC 10-25= CHAIN RECORD PCRF910 P ADD RECNUM,=D'+1' < P CALL WRIT
0x1653f4…1653fa 00 00 00 00 00 00 ┆ ┆
0x1653fa…16558e Dummy {f00=0x0079, f01=0x0190, f02=» PCRF920 P MOVE RBUF,HEX00 P MOVE FS,='TH' . P B CRF910 D PCRF930 V P MOVE FS,=X'0000' d P B CRF910 ~ PCRF940 P MOVE FS,='CH' P B CRF910 PCRF950 P PERF CLOFIL,W1 P BNOK CRF750 ( P PERF CH
0x16558e…165594 00 00 00 00 00 00 ┆ ┆
0x165594…165728 Dummy {f00=0x0079, f01=0x018e, f02=»SERR P B CRF680 PRETUR P RET , P PEND 8 P* F P* P P**************** Z P* CLOSE FILE * r P**************** PCLOFIL PROC FC P PBIN FC 4 P CALL CLOSEF,DISK,FILECODE(FC),SYSBUF,W0,DEBINW4 P CMP DEB
0x165728…16572e 00 00 00 00 00 00 ┆ ┆
0x16572e…1658c2 Dummy {f00=0x0079, f01=0x0190, f02=» r & P FCOPY =C'CREATE WSM SYSTEM FILE' P FLINK FFILE 2 P FMEND F P* T PFFILE FRMT ^ P FNL p P FATTR .HIGH HIGH INTENSITY | P FCOPY =C'UNIT:' . P FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 P FCOPY INUNIT P FATTR .
0x1658c2…1658c8 00 00 00 00 00 00 ┆ ┆
0x1658c8…165a5c Dummy {f00=0x0079, f01=0x0190, f02=»GH HIGH INTENSITY P FCOPY =C'FILENAME:' 4 P FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NEOI 6 P FCOPY FILNAM n P FLINK FHEX P FMEND PFSYS FRMT SYSTEM-FILE P FSL P FATTR .HIGH HIGH INTENSITY P FATTR .INV INVERSE
0x165a5c…165a60 00 00 00 00 ┆ ┆
0x165a60…165a62 00 00 ┆ ┆
0x165a62…165bf6 Dummy {f00=0x0079, f01=0x413e, f02=»C'NO.' P FTAB 5 P FCOPY =C'OF RECORDS:' > P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS < P FMEL 'TTTTTTX',NOREC ~ P FLINK FHEX P FMEND P* PFHEX FRMT P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY
0x165bf6…165bfc 00 00 00 00 00 00 ┆ ┆
0x165bfc…165d90 Dummy {f00=0x0079, f01=0x2008, f02=» P FTAB 5 P FCOPY =C'OF RECORDS:' > P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS < P FMEL 'TTTTTTX',NOREC ~ P FLINK FHEX P FMEND P* PFHEX FRMT P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY
0x165d90…165d96 01 1d 5c 46 41 54 ┆ FAT┆
0x165d96…165f2a Dummy {f00=0x0079, f01=0x0190, f02=»EADER PRINT HEADER P BNOK PRI350 JUMP IF NOT OK PPRI200 > ( P ADD BCD13A,=D'+1' INCREMENT PAGENR L , P MOVE LINENO,LINEST REINSTATE LINENUMBER x , P ADD LINENO,HLINES ADJUST FOR HEADLINES PPRI300 * P EDWRT DEDSPRT,LINE PRINT DETAIL-L
0x165f2a…165f30 00 00 00 00 00 00 ┆ ┆
0x165f30…1660c4 (4, 68) Opaque[0x194]
0x1660c4…1660ca 00 00 00 00 00 00 ┆ ┆
0x1660ca…16625e # DirEnt {nam=»WUDLF «, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f38, f03=0x0000}
0x1660ca…16625e IdxSect {
0x1660ca…16625e f00 = 0x0079 // 0x1660ca @0x0
0x1660ca…16625e f01 = 0x0004 // 0x1660cc @0x2
0x1660ca…16625e gno = [ // 0x1660ce @0x4
0x1660ca…16625e [0x00]: C0x0079.0x3.0
0x1660ca…16625e [0x01]: C0x007a.0x0.0
0x1660ca…16625e ]
0x1660ca…16625e }
0x16625e…166260 00 00 ┆ ┆
0x166260…166264 00 00 00 00 ┆ ┆
0x166264…1663f8 Dummy {f00=0x0079, f01=0x0190, f02=» , P IDENT WUDLF REL=2.3,841001,870155940230 * P************************************** 4 * P* WORK STATION MANAGEMENT * b * P* UTILITY PROGRAMS * * P* 3 DELETE FILE * * P*
0x1663f8…1663fe 00 00 00 00 00 00 ┆ ┆
0x1663fe…166592 Dummy {f00=0x0079, f01=0x0190, f02=»TO MAIN MENU ONLY BY USING "RETURN"-KEY. t . P** 83-05-11 /MAER CHANGED DECORATIONS. 0 . P** 82-10-19 /MAER WAIT-FORMAT DISPLAYED b > P** 82-07-26 /DALI VOLUME-NAME IS CHANGED BEFORE DELETE D P** 82-02-04 /DALI NEW ERROR MESSAGE "FILENAME U
0x166592…166598 00 00 00 00 00 00 ┆ ┆
0x166598…16672c Dummy {f00=0x0079, f01=0x0190, f02=» & P EXPROC DECLRA CRE= SCREEN ROUTINE & P EXPROC DISERR CRE= ERROR ROUTINE . * P EXPROC DSKERR,PBIN CRE= ERROR ROUTINE X 4 P EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME P PARAM: NEW NAME, F.C. P P EXPROC HALT ( P EXPROC CONT C
0x16672c…166732 00 00 00 00 00 00 ┆ ┆
0x166732…1668c6 Dummy {f00=0x0079, f01=0x0190, f02=»E v P EJECT PWUDLF PROC P******************* * P* 3 DELETE FILE * F P******************* b PDLF000 ~ P ATTFMT FDEL P SET DEPROMPT PDLF200 P PERF DECLRA PDLF250 $ P IB DEBINW2,DLF200,RETUR,DLF300
0x1668c6…1668cc 00 00 00 00 00 00 ┆ ┆
0x1668cc…166a60 Dummy {f00=0x0079, f01=0x0190, f02=»K DLF345 > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P BOK DLF350 R P CBNE RETCOD,W1,DLF330 f PDLF320 & P PERF DSKERR,W18 DISC NOT OPERABLE P B DLF340 PDLF330 & P PERF DSKERR,W12 FILENAME UNKNOWN PDL
0x166a60…166a66 00 00 00 00 00 00 ┆ ┆
0x166a66…166bfa Dummy {f00=0x0079, f01=0x0190, f02=» PDLF350 P PERF CLOFIL,W1 P MOVE STR1A,=C'X' . * P XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG='S' H , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME v . P XCOPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 P ERASE 0,W1,W6 $ P PERF CONT DISPLAY WAIT-TE
0x166bfa…166c00 00 00 00 00 00 00 ┆ ┆
0x166c00…166d94 (4, 69) Dummy {f00=0x007a, f01=0x0190, f02=»BLE l P PERF DISERR I/O-ERROR XXXX P B DLF340 0 PDLF400 B 2 P PERF CHVNAM,VOLNAM,FCOD CHANGE NAME TO ORIGIN P P BNOK DLF345 P* PERF HALT P B DLF000 PRETUR P RET P PEND P**************** P* CLOSE
0x166d94…166d9a 00 00 00 00 00 00 ┆ ┆
0x166d9a…166f2e Dummy {f00=0x007a, f01=0x0190, f02=»INW4 d P BOK CLO100 P RET P PEND , P EJECT : P* H PFDEL FRMT R P FSL d P FATTR .HIGH p P FATTR .INV P FCOPY =C'DELETE' P FTAB 8 P FATTR .HIGH P FATTR .INV P FCOPY =C'FILE ' P F
0x166f2e…166f34 00 00 00 00 00 00 ┆ ┆
0x166f34…1670c8 Dummy {f00=0x007a, f01=0x0190, f02=»,ME,ALPHA,NEOI,APPL=5 | P FCOPY INUNIT P FATTR .HIGH 4 P FTAB 12 H P FCOPY =C'VOLUME-NAME:' X P FINP 25 x P FCOPY VOLNAM P FNL P FATTR .HIGH P FCOPY =C'FILENAME:' 4 P FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NE
0x1670c8…1670ce 00 00 00 00 00 00 ┆ ┆
0x1670ce…167262 Dummy {f00=0x007a, f01=0x4054, f02=» 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND , P* : P END D@ P P FCOPY =C'VOLUME-NAME:' X P FINP 25 x P FCOPY VOLNAM P FNL P FATTR .HIGH P FCOPY =C'FILENAME:' 4 P FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NE
0x167262…167268 00 00 00 00 00 00 ┆ ┆
0x167268…1673fc Dummy {f00=0x007a, f01=0x2008, f02=» 0,MAXL=0 P FCOPY HEX00 P FMEND , P* : P END D@ P P FCOPY =C'VOLUME-NAME:' X P FINP 25 x P FCOPY VOLNAM P FNL P FATTR .HIGH P FCOPY =C'FILENAME:' 4 P FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NE
0x1673fc…167400 01 1e 5c 46 ┆ F┆
0x167400…167402 4c 49 ┆LI┆
0x167402…167596 Dummy {f00=0x007a, f01=0x0190, f02=»E v P EJECT PWUDLF PROC P******************* * P* 3 DELETE FILE * F P******************* b PDLF000 ~ P ATTFMT FDEL P SET DEPROMPT PDLF200 P PERF DECLRA PDLF250 $ P IB DEBINW2,DLF200,RETUR,DLF300
0x167596…16759c 00 00 00 00 00 00 ┆ ┆
0x16759c…167730 Dummy {f00=0x007a, f01=0x0190, f02=»K DLF345 > P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD P BOK DLF350 R P CBNE RETCOD,W1,DLF330 f PDLF320 & P PERF DSKERR,W18 DISC NOT OPERABLE P B DLF340 PDLF330 & P PERF DSKERR,W12 FILENAME UNKNOWN PDL
0x167730…167736 00 00 00 00 00 00 ┆ ┆
0x167736…1678ca Dummy {f00=0x007a, f01=0x0190, f02=» PDLF350 P PERF CLOFIL,W1 P MOVE STR1A,=C'X' . * P XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG='S' H , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME v . P XCOPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 P ERASE 0,W1,W6 $ P PERF CONT DISPLAY WAIT-TE
0x1678ca…1678d0 00 00 00 00 00 00 ┆ ┆
0x1678d0…167a64 (4, 70) Opaque[0x194]
0x167a64…167a6a 00 00 00 00 00 00 ┆ ┆
0x167a6a…167bfe # DirEnt {nam=»WSMCAL«, typ=»SC«, f00=0xab4c, f01=0x0000, f02=0x0f48, f03=0x0000}
0x167a6a…167bfe IdxSect {
0x167a6a…167bfe f00 = 0x007a // 0x167a6a @0x0
0x167a6a…167bfe f01 = 0x0006 // 0x167a6c @0x2
0x167a6a…167bfe gno = [ // 0x167a6e @0x4
0x167a6a…167bfe [0x00]: C0x007a.0x1.0
0x167a6a…167bfe [0x01]: C0x007a.0x2.0
0x167a6a…167bfe [0x02]: C0x007a.0x3.0
0x167a6a…167bfe ]
0x167a6a…167bfe }
0x167bfe…167c00 00 00 ┆ ┆
0x167c00…167c04 00 00 00 00 ┆ ┆
0x167c04…167d98 Dummy {f00=0x007a, f01=0x0190, f02=» 0 P IDENT WSMCAL W,REL=2.3,841201,870155940230 P 8 P @ H P******************************************************************* H P* P* W S M C A L P* = = = = = = P* D P* THIS ROUTINE IS USED TO CALCULATE MULTIPLICA
0x167d98…167d9e 00 00 00 00 00 00 ┆ ┆
0x167d9e…167f32 Dummy {f00=0x007a, f01=0x0190, f02=»E ROUTINES FOR THIS ARE: P* P* * , P* W X M U L MULTIPLY TWO BINARIES 4 P* d * P* W X D I V DIVIDE TWO BINARIES n P* . P* W X S L R SHIFT BIN LOGICAL RIGHT P* . P* W X S L L SHIFT BIN LOGICAL L
0x167f32…167f38 00 00 00 00 00 00 ┆ ┆
0x167f38…1680cc Dummy {f00=0x007a, f01=0x018e, f02=»******************* ` P EJECT P * P ENTRY WXMUL 2 P ENTRY WXSLR F P ENTRY WXSLL Z P ENTRY WXDIV n P ENTRY WXC1R P P EXTRN I:EVA0 P EXTRN I:RT1 P EJECT P B P******************************************
0x1680cc…1680d2 00 00 00 00 00 00 ┆ ┆
0x1680d2…168266 Dummy {f00=0x007a, f01=0x0190, f02=» z P* 0 P* CALL WXMUL,<OPER1>,<OPER2>,<RESULT> P* F P* WHERE P P* b P* <OPER1> = OPERAND 1 l P* <OPER2> = OPERAND 2 , P* <RESULT> = RESULT = OPER1 * OPER2 P* F P******************************
0x168266…16826c 00 00 00 00 00 00 ┆ ┆
0x16826c…168400 Dummy {f00=0x007a, f01=0x018e, f02=» P CF A14,PARMS P P* & " P* PERFORM THE MULTIPLICATION 0 P* V P* A4 = OPERAND 1 ` P* A6 = OPERAND 2 z P* A9 = ADDRESS TO RESULT P* P P SUR A1,A1 P LDR A2,A4 P MUR A6 , P SLL A1,15 G
0x168400…168406 00 00 00 00 00 00 ┆ ┆
0x168406…16859a Dummy {f00=0x007a, f01=0x0190, f02=» P EJECT P B P************************************************************* P* ` P* W X D I V j P* P* DIVIDE TWO BINARIES P* P* CALL INTERFACE: P* 6 P* CALL WXDIV,<DIVIDEND>,<DIVISOR>,<RESU
0x16859a…1685a0 00 00 00 00 00 00 ┆ ┆
0x1685a0…168734 (4, 71) Dummy {f00=0x007a, f01=0x0190, f02=»= RESULT = DIVIDEND / DIVISOR P* & D P**************************************************************** 0 P EJECT x P P* P* GET THE PARAMETERS P* P PWXDIV EQU * P CF A14,PARMS P P* P*
0x168734…16873a 00 00 00 00 00 00 ┆ ┆
0x16873a…1688ce Dummy {f00=0x007a, f01=0x018e, f02=» P LDR A1,A4 $ P SRL A1,15 MOST SIGNIFICANT BIT P LDR A2,A4 > . P ANKL A2,/7FFF CLEAR MOST SIGNIFICANT BIT P P DVR A6 P STR A2,A9 P RB RETURN P EJECT P B P************************************************************
0x1688ce…1688d4 00 00 00 00 00 00 ┆ ┆
0x1688d4…168a68 Dummy {f00=0x007a, f01=0x0190, f02=» . P* CALL WXSLR,<BIN1>,<BIN2>,<RESULT> P* 6 P* WHERE @ P* R 2 P* <BIN1> = BINARY YOU WISH TO SHIFT RIGHT , P* <BIN2> = NO. OF SHIFT RIGHT 1-15 . P* <RESULT>= RESULT AFTER SLR EXECUTED P* D P**********
0x168a68…168a6e 00 00 00 00 00 00 ┆ ┆
0x168a6e…168c02 Dummy {f00=0x007a, f01=0x018e, f02=» PSRLINS SRL A4,0 P P* ( P* GET THE PARAMETERS 2 P* P P Z PWXSLR EQU * b P CF A14,PARMS v P P* P* PERFORM THE SHIFT P* P* A4 = BIN1 P* A6 = BIN2 P* A9 = ADDRESS TO RE
0x168c02…168c08 00 00 00 00 00 00 ┆ ┆
0x168c08…168d9c Dummy {f00=0x007a, f01=0x0190, f02=» p P ST A2,INS1 P EXK 0 PINS1 EQU *-2 * P STR A4,A9 > P RB RETURN P P EJECT b P p B P************************************************************* x P* P* W X S L L P* P* SHIFT A BIN LOGICAL LEFT
0x168d9c…168da0 00 00 00 00 ┆ ┆
0x168da0…168da2 00 00 ┆ ┆
0x168da2…168f36 Dummy {f00=0x007a, f01=0x018e, f02=» 2 P* <BIN1> = BINARY YOU WISH TO SHIFT LEFT * P* <BIN2> = NO. OF SHIFT LEFT 1-15 : . P* <RESULT>= RESULT AFTER SLL EXECUTED h P* D P**************************************************************** P EJECT P P*
0x168f36…168f3c 00 00 00 00 00 00 ┆ ┆
0x168f3c…1690d0 Dummy {f00=0x007a, f01=0x018e, f02=» PWXSLL EQU * P CF A14,PARMS P 2 P* : P* PERFORM THE SHIFT D P* b P* A4 = BIN1 l P* A6 = BIN2 P* A9 = ADDRESS TO RESULT P* P P ANK A6,/F A6:=0-15 * P LD A2,SLLINS A2= INSTRUCTION TO
0x1690d0…1690d6 00 00 00 00 00 00 ┆ ┆
0x1690d6…16926a Dummy {f00=0x007a, f01=0x0190, f02=» P EJECT B P************************************************************* P* P* W X C 1 R f P* | $ P* ONES COMPLEMENT ON A BINARY P* P* CALL INTERFACE: P* P* CALL WXC1R,<BIN> P* P
0x16926a…169270 00 00 00 00 00 00 ┆ ┆
0x169270…169404 (4, 72) Dummy {f00=0x007a, f01=0x0190, f02=»********************* h P P & P . PWXC1R EQU * 6 P CF A14,I:EVA0 GET PARAM. J P C1RS A9 ONES COMPLEMENTE l P RB RETURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EV
0x169404…16940a 00 00 00 00 00 00 ┆ ┆
0x16940a…16959e Dummy {f00=0x007a, f01=0x401c, f02=» P P END @ P P & P . PWXC1R EQU * 6 P CF A14,I:EVA0 GET PARAM. J P C1RS A9 ONES COMPLEMENTE l P RB RETURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EV
0x16959e…1695a0 00 00 ┆ ┆
0x1695a0…1695a4 00 00 00 00 ┆ ┆
0x1695a4…169738 Dummy {f00=0x007a, f01=0x2008, f02=» P END @ P P & P . PWXC1R EQU * 6 P CF A14,I:EVA0 GET PARAM. J P C1RS A9 ONES COMPLEMENTE l P RB RETURN P EJECT P* P* GET THE PARAMETERS P* P PPARMS EQU * P CF A14,I:EV
0x169738…16973e 00 00 00 00 00 00 ┆ ┆
0x16973e…1698d2 Dummy {f00=0x007a, f01=0x0190, f02=»RE CHARACTER P ADK A1,1 P ADKL A9,1 & P SUK A2,1 8 " P RB(NZ) CHV200 IF NOT FINISHED J P LDK A7,/85 WRITE BASIC p 0 P SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING P LKM P DATA 1 * P AD A12,-12,A13 RESTORE CREDIT RETADR
0x1698d2…1698d8 00 00 00 00 00 00 ┆ ┆
0x1698d8…169a6c Dummy {f00=0x007a, f01=0x0190, f02=»STORE CREDIT RETADR ~ & P LDK A1,0 INDICATE TOSS FORMATTED P RF CHV300 F * PNOTOSS EQU * NOT A TOSS FORMATTED DISC X P LDK A1,/42 LOAD RETURN CODE PCHV300 EQU * P LDR A6,A6 . P RF(NZ) CHV400 JUMP IF NOT TO BE UNLOADED P LDK A
0x169a6c…169a72 00 00 00 00 00 00 ┆ ┆
0x169a72…169c06 Dummy {f00=0x007a, f01=0x0190, f02=»R l PCHV400 EQU * P LDR A1,A1 TOSS DISC? , P RB(NZ) RET1 -NO, USE EXISTING A1-VALUE < P RB RET l P EJECT | P* . P* CALL WRSECT,DSET,RECNO,BUF,RETCOD P* . P* DSET EVENT CONTROL BLOCK > P*
0x169c06…169c0c 00 00 00 00 00 00 ┆ ┆
0x169c0c…169da0 Dummy {f00=0x007a, f01=0x018e, f02=»M LKM j P* P* PWRSECT EQU * " P LDKL A11,/85 BASIC WRITE 6 P RF RDS000 X P* j P* t P* ~ . P* CALL RDSECT,DSET,RECNO,BUF,RETCOD . P* DSET EVENT CONTROL BLOCK > P* RECNO REALA
0x169da0…169da6 00 00 00 00 00 00 ┆ ┆
0x169da6…169f3a Dummy {f00=0x007a, f01=0x0190, f02=» P* PRDSECT EQU * P LDKL A11,/81 BASIC READ " PRDS000 EQU * B P CALL T:FDSP V P CALL I:EVA0 j P LDR* A1,A9 ~ P CM 10,A8 $ P ST A1,12,A8 STORE SECTOR NUMBER P EJECT PRDS100 LDKL A1,256 & P ST A1,4,A8 STORE RE
0x169f3a…169f40 00 00 00 00 00 00 ┆ ┆
0x169f40…16a0d4 (4, 73) Opaque[0x194]
0x16a0d4…16a0da 00 00 00 00 00 00 ┆ ┆
0x16a0da…16a26e # DirEnt {nam=»B:PROC«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x0f60, f03=0x0000}
0x16a0da…16a26e IdxSect {
0x16a0da…16a26e f00 = 0x007b // 0x16a0da @0x0
0x16a0da…16a26e f01 = 0x0002 // 0x16a0dc @0x2
0x16a0da…16a26e gno = [ // 0x16a0de @0x4
0x16a0da…16a26e [0x00]: C0x007b.0x0.0
0x16a0da…16a26e ]
0x16a0da…16a26e }
0x16a26e…16a274 00 00 00 00 00 00 ┆ ┆
0x16a274…16a408 Dummy {f00=0x007b, f01=0x4126, f02=» P%%CRE PCRE SIZE=MAX . POPT PROG=@1,SCLIST=@LIST.NO,USID=WSM:UTIL & PLIB X PKOM @LIBR.UTILOB d PLEN | PPEND P%%A72 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:UTIL PLIB PKOM @LIBR.UTILOB
0x16a408…16a40e 00 00 00 00 00 00 ┆ ┆
0x16a40e…16a5a2 Dummy {f00=0x007b, f01=0x2008, f02=» E PCRE SIZE=MAX . POPT PROG=@1,SCLIST=@LIST.NO,USID=WSM:UTIL & PLIB X PKOM @LIBR.UTILOB d PLEN | PPEND P%%A72 PA72 SIZE=MAX , POPT PROG=@1,LIST=@LIST.NO,USID=WSM:UTIL PLIB PKOM @LIBR.UTILOB
0x16a5a2…16a5a8 00 00 00 00 00 00 ┆ ┆
0x16a5a8…16a73c Dummy {f00=0x007b, f01=0x0190, f02=»WUTIL,<DADFC> ON DIR WSMLMU TO GET A UTILITY LOAD MODULE & NO CREBUG L P WUTILT,<DADFC> ON DIR WSMLMU TO GET A UTILITY LOAD MODULE & CREBUG L P P HISTORY: P J P 85-09-10 WUDIV SUPPORT OF NEW WCH-DISKS PTS 6794 AND PTS 6793
0x16a73c…16a740 00 00 00 00 ┆ ┆
0x16a740…16a742 00 00 ┆ ┆
0x16a742…16a8d6 Dummy {f00=0x007b, f01=0x0190, f02=»S FROM DISC TO DISK IN: ^ . P 1.WUCRV 2.WUDEN 3.WUUTI . P 85-07-01 WSM RELEASE 3.0 -> IRL. R D P 85-03-01 WSM RELEASE 2.2 FOR TOSS 13.1 TO ACTION-CENTRE H P 85-01-25 WUDIV SUPPORT OF 12.8 MB WCH PTS 6794 FOR
0x16a8d6…16a8dc 00 00 00 00 00 00 ┆ ┆
0x16a8dc…16aa70 Dummy {f00=0x007b, f01=0x0190, f02=» A14-STACK NOT TO EXEED d P P 84-12-04 1. MUL AND DIV NOW FROM ASSRUT WSMCAL, IN WUUTI AND WUCOP L P 2. START/STOP BLOCKING IMPLEMENTED IN WUUTI AND WUDEN t P P 84-12-01 RELEASE 2.2 INTERTASK TOSSUT <-> WSMUTILITIES IMPL
0x16aa70…16aa76 00 00 00 00 00 00 ┆ ┆
0x16aa76…16ac0a Dummy {f00=0x007b, f01=0x0190, f02=»MMUNICATION ON Z H P FILE CODES D0/D1. PRESSING THE RETURN-KEY WHEN H P THE INITIAL MENU IS DISPLAYED GIVES "ESCAPE". b B P 2. SUPPORT OF 5 1/4" FLOPPY DISC PTS-6792. D P 3
0x16ac0a…16ac10 00 00 00 00 00 00 ┆ ┆
0x16ac10…16ada4 (4, 74) Opaque[0x194]
0x16ada4…16adaa 00 00 00 00 00 00 ┆ ┆
0x16adaa…16af3e # DirEnt {nam=»UTILOB«, typ=»OB«, f00=0xab4c, f01=0x0000, f02=0x0f68, f03=0x0000}
0x16adaa…16af3e IdxSect {
0x16adaa…16af3e f00 = 0x007b // 0x16adaa @0x0
0x16adaa…16af3e f01 = 0x0190 // 0x16adac @0x2
0x16adaa…16af3e gno = [ // 0x16adae @0x4
0x16adaa…16af3e [0x00]: C0x007b.0x1.0
0x16adaa…16af3e [0x01]: C0x007b.0x2.0
0x16adaa…16af3e [0x02]: C0x007b.0x3.0
0x16adaa…16af3e [0x03]: C0x007c.0x0.0
0x16adaa…16af3e [0x04]: C0x007c.0x1.0
0x16adaa…16af3e [0x05]: C0x007c.0x2.0
0x16adaa…16af3e [0x06]: C0x007c.0x3.0
0x16adaa…16af3e [0x07]: C0x007d.0x0.0
0x16adaa…16af3e [0x08]: C0x007d.0x1.0
0x16adaa…16af3e [0x09]: C0x007d.0x2.0
0x16adaa…16af3e [0x0a]: C0x007d.0x3.0
0x16adaa…16af3e [0x0b]: C0x007e.0x0.0
0x16adaa…16af3e [0x0c]: C0x007e.0x1.0
0x16adaa…16af3e [0x0d]: C0x007e.0x2.0
0x16adaa…16af3e [0x0e]: C0x007e.0x3.0
0x16adaa…16af3e [0x0f]: C0x007f.0x0.0
0x16adaa…16af3e [0x10]: C0x007f.0x1.0
0x16adaa…16af3e [0x11]: C0x007f.0x2.0
0x16adaa…16af3e [0x12]: C0x007f.0x3.0
0x16adaa…16af3e [0x13]: C0x0080.0x0.0
0x16adaa…16af3e [0x14]: C0x0080.0x1.0
0x16adaa…16af3e [0x15]: C0x0080.0x2.0
0x16adaa…16af3e [0x16]: C0x0080.0x3.0
0x16adaa…16af3e [0x17]: C0x0081.0x0.0
0x16adaa…16af3e [0x18]: C0x0081.0x1.0
0x16adaa…16af3e [0x19]: C0x0081.0x2.0
0x16adaa…16af3e [0x1a]: C0x0081.0x3.0
0x16adaa…16af3e [0x1b]: C0x0082.0x0.0
0x16adaa…16af3e [0xc5]: C0x0082.0x1.0
0x16adaa…16af3e [0xc6]: C0x0082.0x2.0
0x16adaa…16af3e [0xc7]: C0x0082.0x3.0
0x16adaa…16af3e ]
0x16adaa…16af3e }
0x16af3e…16af40 00 00 ┆ ┆
0x16af40…16af44 00 00 00 00 ┆ ┆
0x16af44…16b0d8 Dummy {f00=0x007b, f01=0x0190, f02=» J H IDENT T:AU10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 T:AU100 R T:AU100 d F B T:DU100 D:CB100 C:CB100 D:CB200 C:CB200 D:CB300 C:CB300 D:CB400 x F B C:CB400 D:CB500 C:CB500 D:CB600 C:CB600 D:CB700 C:CB700 D:CB800
0x16b0d8…16b0de 00 00 00 00 00 00 ┆ ┆
0x16b0de…16b272 Dummy {f00=0x007b, f01=0x0190, f02=» x , ( ! , ( A H , ( a d d x , ( , ( , (
0x16b272…16b278 00 00 00 00 00 00 ┆ ┆
0x16b278…16b40c Dummy {f00=0x007b, f01=0x406e, f02=» h , ( " $ & ( * , . 0 2 4 6 8 X@ j H , ( a d d x , ( , ( , (
0x16b40c…16b412 00 00 00 00 00 00 ┆ ┆
0x16b412…16b5a6 Dummy {f00=0x007b, f01=0x40ea, f02=» J H IDENT T:DU10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 T:DU100 R T:DU100 d WUINT x , ( U1 * ! * @ , (
0x16b5a6…16b5ac 00 00 00 00 00 00 ┆ ┆
0x16b5ac…16b740 Dummy {f00=0x007b, f01=0x0190, f02=» J H IDENT T:AFU0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 T:AFU00 R T:AFU00 d F B T:DFU00 D:CB100 C:CB100 D:CB200 C:CB200 D:CB300 C:CB300 D:CB400 x F B C:CB400 D:CB500 C:CB500 D:CB600 C:CB600 D:CB700 C:CB700 D:CB800
0x16b740…16b746 00 00 00 00 00 00 ┆ ┆
0x16b746…16b8da Dummy {f00=0x007b, f01=0x40ba, f02=» < x , ( , ( ) " $ & ( H ( $ 9 * , . 0 2 4 6 x F @ x F B C:CB400 D:CB500 C:CB500 D:CB600 C:CB600 D:CB700 C:CB700 D:CB800
0x16b8da…16b8e0 00 00 00 00 00 00 ┆ ┆
0x16b8e0…16ba74 (4, 75) Dummy {f00=0x007b, f01=0x40ec, f02=» J H IDENT T:DFU0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 T:DFU00 R T:DFU00 d FUTASK0 x , ( FU * ! * @
0x16ba74…16ba7a 00 00 00 00 00 00 ┆ ┆
0x16ba7a…16bc0e Dummy {f00=0x007b, f01=0x40c2, f02=» J H IDENT T:ATAB TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 T:ATAB0 R T:ATAB0 d T:AU100 T:AFU00 x P @ * @
0x16bc0e…16bc14 00 00 00 00 00 00 ┆ ┆
0x16bc14…16bda8 Dummy {f00=0x007b, f01=0x40a0, f02=» J H IDENT U:BTAB TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 U:BTAB0 R U:BTAB0 d x @ @ * @
0x16bda8…16bdae 00 00 00 00 00 00 ┆ ┆
0x16bdae…16bf42 Dummy {f00=0x007b, f01=0x40a0, f02=» J H IDENT S:BTAB TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 S:BTAB0 R S:BTAB0 d x @ @ * @
0x16bf42…16bf48 00 00 00 00 00 00 ┆ ┆
0x16bf48…16c0dc Dummy {f00=0x007b, f01=0x0190, f02=» J H IDENT C:CB10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB100 R C:CB100 d ( x ( ! ( A ( a ( ( ( ( (
0x16c0dc…16c0e0 00 00 00 00 ┆ ┆
0x16c0e0…16c0e2 00 00 ┆ ┆
0x16c0e2…16c276 Dummy {f00=0x007b, f01=0x0190, f02=» ! ( A ( a ( . ( > ( N ( ^ ( n ( ! ~ ( A ( a ( ( ( ( ( ( !
0x16c276…16c27c 00 00 00 00 00 00 ┆ ┆
0x16c27c…16c410 Dummy {f00=0x007b, f01=0x0190, f02=» A ( a ( ( . ( > ( N ( ^ ( ! n ( A ~ ( a ( ( ( ( ( ( ! ( A
0x16c410…16c416 00 00 00 00 00 00 ┆ ┆
0x16c416…16c5aa Dummy {f00=0x007b, f01=0x0190, f02=» a ( ( ( . ( > ( N ( ! ^ ( A n ( a ~ ( ( ( ( ( ( ! ( A ( a
0x16c5aa…16c5b0 00 00 00 00 00 00 ┆ ┆
0x16c5b0…16c744 (4, 76) Dummy {f00=0x007b, f01=0x0190, f02=» ( ( ( . ( > ( ! N ( A ^ ( a n ( ~ ( ( ( ( ( ! ( A ( a (
0x16c744…16c74a 00 00 00 00 00 00 ┆ ┆
0x16c74a…16c8de Dummy {f00=0x007b, f01=0x0190, f02=» ( ( ( . ( ! > ( A N ( a ^ ( n ( ~ ( ( ( ( ! ( A ( a ( (
0x16c8de…16c8e0 00 00 ┆ ┆
0x16c8e0…16c8e4 00 00 00 00 ┆ ┆
0x16c8e4…16ca78 Dummy {f00=0x007b, f01=0x0190, f02=» ( ( ( ! . ( A > ( a N ( ^ ( n ( ~ ( ( ( ! ( A ( a ( ( (
0x16ca78…16ca7e 00 00 00 00 00 00 ┆ ┆
0x16ca7e…16cc12 Dummy {f00=0x007b, f01=0x0190, f02=» ( ( ! ( A . ( a > ( N ( ^ ( n ( ~ ( ( ! ( A ( a ( ( ( (
0x16cc12…16cc18 00 00 00 00 00 00 ┆ ┆
0x16cc18…16cdac Dummy {f00=0x007b, f01=0x0190, f02=» ( ! ( A ( a . ( > ( N ( ^ ( n ( ~ ( ! ( A ( a ( ( ( ( (
0x16cdac…16cdb2 00 00 00 00 00 00 ┆ ┆
0x16cdb2…16cf46 Dummy {f00=0x007b, f01=0x0190, f02=» ! ( A ( a ( . ( > ( N ( ^ ( n ( ! ~ ( A ( a ( ( ( ( ( ( !
0x16cf46…16cf4c 00 00 00 00 00 00 ┆ ┆
0x16cf4c…16d0e0 Dummy {f00=0x007b, f01=0x0190, f02=» A ( a ( ( . ( > ( N ( ^ ( ! n ( A ~ ( a ( ( ( ( ( ( ! ( A
0x16d0e0…16d0e6 00 00 00 00 00 00 ┆ ┆
0x16d0e6…16d27a Dummy {f00=0x007b, f01=0x0190, f02=» !a ( ! ( ! ( ! . ( ! > ( " N ( "! ^ ( "A n ( "a ~ ( " ( " ( " ( " ( # ( #! ( #A ( #a
0x16d27a…16d280 00 00 00 00 00 00 ┆ ┆
0x16d280…16d414 (4, 77) Dummy {f00=0x007c, f01=0x0190, f02=» $ ( $ ( $ ( $ . ( % > ( %! N ( %A ^ ( %a n ( % ~ ( % ( % ( % ( & ( &! ( &A ( &a ( &
0x16d414…16d41a 00 00 00 00 00 00 ┆ ┆
0x16d41a…16d5ae Dummy {f00=0x007c, f01=0x4082, f02=» ' ( ' ( ' & " ( 2.385 09 01 . ( X ( l@ ~% ~ ( % ( % ( % ( & ( &! ( &A ( &a ( &
0x16d5ae…16d5b4 00 00 00 00 00 00 ┆ ┆
0x16d5b4…16d748 Dummy {f00=0x007c, f01=0x40d2, f02=» J H IDENT D:CB10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB100 R D:CB100 d , ( " ( ( ( ( ( x ! 0 ( $ @ &! ( &A ( &a ( &
0x16d748…16d74e 00 00 00 00 00 00 ┆ ┆
0x16d74e…16d8e2 Dummy {f00=0x007c, f01=0x40e6, f02=» J H IDENT C:CB20 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB200 R C:CB200 d , ( x ! $ $ @ ( &a ( &
0x16d8e2…16d8e8 00 00 00 00 00 00 ┆ ┆
0x16d8e8…16da7c Dummy {f00=0x007c, f01=0x4102, f02=» J H IDENT D:CB20 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB200 R D:CB200 d , ( B x , ( ! A D @ &
0x16da7c…16da80 00 00 00 00 ┆ ┆
0x16da80…16da82 00 00 ┆ ┆
0x16da82…16dc16 Dummy {f00=0x007c, f01=0x40e6, f02=» J H IDENT C:CB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB300 R C:CB300 d , ( B @ x ! $ $ @ D @ &
0x16dc16…16dc1c 00 00 00 00 00 00 ┆ ┆
0x16dc1c…16ddb0 Dummy {f00=0x007c, f01=0x4102, f02=» J H IDENT D:CB30 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB300 R D:CB300 d , ( B x , ( ! A D @ &
0x16ddb0…16ddb6 00 00 00 00 00 00 ┆ ┆
0x16ddb6…16df4a Dummy {f00=0x007c, f01=0x0190, f02=» J H IDENT C:CB40 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB400 R C:CB400 d ( x ( ! ( A ( a ( ( ( ( (
0x16df4a…16df50 00 00 00 00 00 00 ┆ ┆
0x16df50…16e0e4 (4, 78) Dummy {f00=0x007c, f01=0x40aa, f02=» D2FD3FD4CD1CD2CD3CD4CD5CD6CD7CD8 , ( WD1WD2WD3WD4WD5WD6WD7WD8 . ^ @
0x16e0e4…16e0ea 00 00 00 00 00 00 ┆ ┆
0x16e0ea…16e27e Dummy {f00=0x007c, f01=0x4102, f02=» J H IDENT D:CB40 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 D:CB400 R D:CB400 d , ( B P T T U V x , ( ! 0 W0 Y Z ` f n v N A D @
0x16e27e…16e280 00 00 ┆ ┆
0x16e280…16e284 00 00 00 00 ┆ ┆
0x16e284…16e418 Dummy {f00=0x007c, f01=0x40f8, f02=» J H IDENT C:CB50 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 C:CB500 R C:CB500 d , ( x " ! """""" 6 6 @ @
0x16e418…16e41e 00 00 00 00 00 00 ┆ ┆
0x16e41e…16e5b2 Dummy {f00=0x007c, f01=0x4102, f02=» J H IDENT D:CB50 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ! D:CB500 ! R D:CB500 ! d , ( B 0 0 0 ! x , ( ! 0 0 0 0 & ! A , ! D ! @ !
0x16e5b2…16e5b8 00 00 00 00 00 00 ┆ ┆
0x16e5b8…16e74c Dummy {f00=0x007c, f01=0x40c2, f02=» J H IDENT C:CB60 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 " C:CB600 " R C:CB600 " d " x " " @ " & ! A , ! D ! @ !
0x16e74c…16e752 00 00 00 00 00 00 ┆ ┆
0x16e752…16e8e6 Dummy {f00=0x007c, f01=0x40b6, f02=» J H IDENT D:CB60 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 # D:CB600 # R D:CB600 # d $ # x # @ # " @ " & ! A , ! D ! @ !
0x16e8e6…16e8ec 00 00 00 00 00 00 ┆ ┆
0x16e8ec…16ea80 Dummy {f00=0x007c, f01=0x40bc, f02=» J H IDENT C:CB70 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 $ C:CB700 $ R C:CB700 $ d $ x $ $ @ $ " & ! A , ! D ! @ !
0x16ea80…16ea86 00 00 00 00 00 00 ┆ ┆
0x16ea86…16ec1a Dummy {f00=0x007c, f01=0x40aa, f02=» J H IDENT D:CB70 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 % D:CB700 % R D:CB700 % d % x % @ % $ @ $ " & ! A , ! D ! @ !
0x16ec1a…16ec20 00 00 00 00 00 00 ┆ ┆
0x16ec20…16edb4 (4, 79) Dummy {f00=0x007c, f01=0x4120, f02=» J H IDENT C:CB80 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 & C:CB800 & R C:CB800 & d ( P X P & x , ( ! 801; & & " A 01;24;80;1?;25;01;01;80;0= & Z &
0x16edb4…16edba 00 00 00 00 00 00 ┆ ┆
0x16edba…16ef4e Dummy {f00=0x007c, f01=0x40ee, f02=» J H IDENT D:CB80 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ' D:CB800 ' R D:CB800 ' d , ( > ' x , ( ! ) 8 ' @ ' @ ' & Z &
0x16ef4e…16ef54 00 00 00 00 00 00 ┆ ┆
0x16ef54…16f0e8 Dummy {f00=0x007c, f01=0x0190, f02=» J H IDENT C:CB90 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 ( C:CB900 ( R C:CB900 ( d , ( ( x , ( ! ( ( A ( ( a ( (
0x16f0e8…16f0ee 00 00 00 00 00 00 ┆ ┆
0x16f0ee…16f282 Dummy {f00=0x007c, f01=0x4020, f02=» ( : ) @ ) 9-01 F1 O1111 REL=2.3,850901,870155940230 ( C:CB900 ( R C:CB900 ( d , ( ( x , ( ! ( ( A ( ( a ( (
0x16f282…16f288 00 00 00 00 00 00 ┆ ┆
0x16f288…16f41c Dummy {f00=0x007c, f01=0x40e2, f02=» J H IDENT D:CB90 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 * D:CB900 * R D:CB900 * d , ( 2 x F @ * x ! * 4 * @ * ( ( a ( (
0x16f41c…16f420 00 00 00 00 ┆ ┆
0x16f420…16f422 00 00 ┆ ┆
0x16f422…16f5b6 Dummy {f00=0x007c, f01=0x4136, f02=» J H IDENT C:CBA0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 + C:CBA00 + R C:CBA00 + d ( + x ( ! + ( A + ( a + ( + ( + ( + ( + +
0x16f5b6…16f5bc 00 00 00 00 00 00 ┆ ┆
0x16f5bc…16f750 Dummy {f00=0x007c, f01=0x40a6, f02=» J H IDENT D:CBA0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 , D:CBA00 , R D:CBA00 , d , x , @ , ( a + ( + ( + ( + ( + +
0x16f750…16f756 00 00 00 00 00 00 ┆ ┆
0x16f756…16f8ea Dummy {f00=0x007c, f01=0x40da, f02=» J H IDENT D:DB10 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 - D:DB100 - R D:DB100 - d , ( * - x ! - , - @ - ( + ( + +
0x16f8ea…16f8f0 00 00 00 00 00 00 ┆ ┆
0x16f8f0…16fa84 (4, 80) Dummy {f00=0x007c, f01=0x40e6, f02=» J H IDENT C:CBB0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 . C:CBB00 . R C:CBB00 . d , ( . x ! . $ . $ . @ .
0x16fa84…16fa8a 00 00 00 00 00 00 ┆ ┆
0x16fa8a…16fc1e Dummy {f00=0x007c, f01=0x4102, f02=» J H IDENT D:CBB0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 / D:CBB00 / R D:CBB00 / d , ( B / x , ( ! / A / D / @ /
0x16fc1e…16fc20 00 00 ┆ ┆
0x16fc20…16fc24 00 00 00 00 ┆ ┆
0x16fc24…16fdb8 Dummy {f00=0x007c, f01=0x4104, f02=» J H IDENT C:CBC0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 0 C:CBC00 0 R C:CBC00 0 d ( 0 x ( ! 0 , ( A 0 ` 0 ` 0 @ 0
0x16fdb8…16fdbe 00 00 00 00 00 00 ┆ ┆
0x16fdbe…16ff52 Dummy {f00=0x007c, f01=0x40e6, f02=» J H IDENT D:CBC0 TRA 13.0 85-09-01 F1 O1111 REL=2.3,850901,870155940230 1 D:CBC00 1 R D:CBC00 1 d , ( 6 1 x $ ! > 0 L0 M0 O0 R0 Y 1 8 1 @ 1 0 ` 0 @ 0
0x16ff52…16ff58 00 00 00 00 00 00 ┆ ┆
0x16ff58…1700ec Dummy {f00=0x007c, f01=0x40ce, f02=» J H IDENT WUINT TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUINT R WUINT b $$$TRA0 t WUUTI _ @
0x1700ec…1700f2 45 44 49 53 43 20 ┆EDISC ┆
0x1700f2…170286 Dummy {f00=0x007c, f01=0x40d2, f02=» J H IDENT WUFIL TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 FUTASK0 R FUTASK0 d $$$TRA0 x WUFIL 0 _ @
0x170286…17028c 45 44 49 53 43 20 ┆EDISC ┆
0x17028c…170420 Dummy {f00=0x007c, f01=0x0190, f02=» J H IDENT WUUTI TRA 13.0 85-09-01 F1 O1111 REL=2.3,850808,870155940230 B > WUUTI`APP DISERR0 DSKERR0 UFERR HALT0 CONT0 CHVNAM0 STPBLK0 R STABLK0 @ < WUUTI hAPP P DISERR0 DSKERR0 UFERR HALT0 CONT0 B $ CHVNAM0 STPBLK0 < STA
0x170420…170426 00 00 00 00 00 00 ┆ ┆
0x170426…1705ba Dummy {f00=0x007c, f01=0x0190, f02=»L0 GETIND0 RCGET OPENF CLOSEF0 l F B CHVOL GETCW WXMUL WXDIV T:DSC20 T:DSC10 T:RECE0 T:ATTF0 T:ASEN0 & D @ T:DISP0 T:ERAS0 T:EDWR0 T:NKI T:DSC00 T:DELA0 T:TEST0 T:WAIT0 p T:XSTA0 T:ABOR0 .
0x1705ba…1705c0 00 00 00 00 00 00 ┆ ┆
0x1705c0…170754 (4, 81) Dummy {f00=0x007d, f01=0x0190, f02=». P 0 0 W A 00 00 @ 502 z F ( 8 J H P X R . j Y 0 z ^ J a c 0 h 4 i m q l r
0x170754…17075a 00 00 00 00 00 00 ┆ ┆
0x17075a…1708ee Dummy {f00=0x007d, f01=0x0190, f02=»A 2 _ I J ` . > N ^ n ~ 6 & J F " D B jB%! ! Z _>J A06 _o4 0 0 C P
0x1708ee…1708f4 00 00 00 00 00 00 ┆ ┆
0x1708f4…170a88 Dummy {f00=0x007d, f01=0x0190, f02=» L 8 * : : J " 0 ' < l ) | . > 1 J F " D 6( ; 7 4 08 ! 4 0: !! 00 1< !0> Z ! " _' D
0x170a88…170a8e 00 00 00 00 00 00 ┆ ┆
0x170a8e…170c22 Dummy {f00=0x007d, f01=0x0190, f02=» _ ` C a _ b s , c { < d L e f l g | h i j M k ` J F " D @4 00 1< 4 ( 2 "W #W
0x170c22…170c28 00 00 00 00 00 00 ┆ ┆
0x170c28…170dbc Dummy {f00=0x007d, f01=0x0190, f02=» # ! 77 //6@ _ A#:_I d 0 A " 0 ' 4 0 A F , X * h 0 ' x 0 A J F " D ! ( / XW ^ 0 # 0 # "q_k W " W W :_ ! q J
0x170dbc…170dc0 00 00 00 00 ┆ ┆
0x170dc0…170dc2 00 00 ┆ ┆
0x170dc2…170f56 Dummy {f00=0x007d, f01=0x0190, f02=» @ _ @ 1 7 _ A _ @ h @# ! 1_ I QP_lA J v J OP Z LP l GP ~ 0 6 , ~ 5 J F "
0x170f56…170f5c 00 00 00 00 00 00 ┆ ┆
0x170f5c…1710f0 Dummy {f00=0x007d, f01=0x0190, f02=» : 8 $ 4 J F " D ? A @ @!E @ I @! @@j " @ @ ? < 0: $$08 $$? D ~ " & ~ + 9
0x1710f0…1710f6 00 00 00 00 00 00 ┆ ┆
0x1710f6…17128a Dummy {f00=0x007d, f01=0x0190, f02=» L _ b p 0 J F " D @ `!CW IP? A A! A" A!? j j & ? P hN @ , : , 8 J F " D # #P # ; 4 0 #
0x17128a…171290 00 00 00 00 00 00 ┆ ┆
0x171290…171424 (4, 82) Dummy {f00=0x007d, f01=0x018e, f02=» " D &) ! +W ( ! 2W "T -W [0 6 4 0 0@ B N D ^ F n H ~ J " 0 6 0 > @ 0 J F " D 0B*0D T 0F 0H > W 0J W 0
0x171424…17142a 00 00 00 00 00 00 ┆ ┆
0x17142a…1715be Dummy {f00=0x007d, f01=0x0190, f02=» & Z & " & WSM REL 0 & F & T & RELEASE DATE: b & ~ & & & & & & WSM UTILITIES $ &E & &
0x1715be…1715c0 00 00 ┆ ┆
0x1715c0…1715c4 00 00 00 00 ┆ ┆
0x1715c4…171758 Dummy {f00=0x007d, f01=0x0190, f02=» & & ) 1 = $ ) 4 & D * CREATE VOLUMEE R $ * p & * & & + 2 = $ + & " , CREATE WSM SYSTEM FILE $
0x171758…17175e 00 00 00 00 00 00 ┆ ┆
0x17175e…1718f2 Dummy {f00=0x007d, f01=0x0190, f02=». & . & & & / 4 = 4 $ / H & X 0 COPY VOLUME/FILE f $ 0 & 0 & & 1 5 = $ 1 & " 2 EXTEND WSM SYS
0x1718f2…1718f8 00 00 00 00 00 00 ┆ ┆
0x1718f8…171a8c Dummy {f00=0x007d, f01=0x0190, f02=»T FILE TABLE OF CONTENTS $ 4 & 4 0 & > & L 5 7 = Z $ 5 n & ~ 6 CHANGE VOLUME-NAME $ 6 & 6 & & 7 8 = $ 7
0x171a8c…171a92 00 00 00 00 00 00 ┆ ┆
0x171a92…171c26 Dummy {f00=0x007d, f01=0x018e, f02=» $ 9 & # ! : ALWAYS RETURN TO THIS MENU $ : : ( $ " ; BEFORE UNLOADING ANY VOLUME! J $ ; v ( & ; & & & " < PRESS ENT TO CONTINUEV $ <
0x171c26…171c2c 00 00 00 00 00 00 ┆ ┆
0x171c2c…171dc0 Dummy {f00=0x007d, f01=0x4098, f02=» & & = WAIT...T $ = 8 ( H * & $ @0 d0@ 4 0@ d$00 d d%00 d4 T ` @ & ; & & & " < PRESS ENT TO CONTINUEV $ <
0x171dc0…171dc6 00 00 00 00 00 00 ┆ ┆
0x171dc6…171f5a Dummy {f00=0x007d, f01=0x0190, f02=» J H IDENT WUDEN TRA 13.0 85-09-01 F1 O1111 REL=2.3,850808,870155940230 4 0 DECLRA0 DECLRS0 DECLRN0 DECLRD0 DERR0 DERROR0 R @ < DECLRA0 DECLRS0 DECLRN0 DECLRD0 DERR0 DERROR0 $$$TRA0 @ < `APP STPBLK0 STABLK0 EMPTYT0 CHANFC0 M
0x171f5a…171f60 00 00 00 00 00 00 ┆ ┆
0x171f60…1720f4 (4, 83) Dummy {f00=0x007d, f01=0x0190, f02=» T:TSTC0 T:XSTA0 T:DSC10 T:EDWR0 n T:NKI ( $ 8 ` $
0x1720f4…1720fa 00 00 00 00 00 00 ┆ ┆
0x1720fa…17228e Dummy {f00=0x007d, f01=0x0190, f02=» / 0 ! W(0 ! W!0 ! b L S 0 X @ ] P b ` p p r t v w J F " D @W @ 6 0 ! W 0 ! 0 ! 0 R 0 P R _ 0 0 R ,
0x17228e…172294 00 00 00 00 00 00 ┆ ┆
0x172294…172428 Dummy {f00=0x007d, f01=0x0190, f02=»6 % CKCCCCCCWa !0 2 W ( I 0 ~ < L " $ l J F " D @ A 6 f .W !@ 4 0 W 0 W 0"W X _ !0$ _ | & $
0x172428…17242e 00 00 00 00 00 00 ┆ ┆
0x17242e…1725c2 Dummy {f00=0x007d, f01=0x018e, f02=»( _ 0 0 Z G N * ( S 8 h H | , X h J F " D @ % 0 S 0* P 0 Q )] *a #4 0 0P $ % 0, 0 x o
0x1725c2…1725c8 00 00 00 00 00 00 ┆ ┆
0x1725c8…17275c Dummy {f00=0x007d, f01=0x0190, f02=» o ( : _ L J F " D << 2 ? 2 #4 0 0 ? !4 I ! P 3 . 2 0
0x17275c…172760 00 00 00 00 ┆ ┆
0x172760…172762 00 00 ┆ ┆
0x172762…1728f6 Dummy {f00=0x007d, f01=0x0190, f02=» ( 0 ! _. I 6 b . . 0 $ @ . P . ` 0 1 p 5 8 J F " D _+0. 0. W =0. 0. 4 [ 0 0 6 V Y
0x1728f6…1728fc 00 00 00 00 00 00 ┆ ┆
0x1728fc…172a90 Dummy {f00=0x007d, f01=0x018e, f02=» " " " " * " 8 " F " T " b " p " ~ " " " " " " " " "
0x172a90…172a96 00 00 00 00 00 00 ┆ ┆
0x172a96…172c2a Dummy {f00=0x007d, f01=0x0190, f02=» & & UNDEFINED ERRORH ( 0 < & L & I/O-ERROR Z ( r ~ & & FUNCTION NOT ALLOWED ( & & ! & COMPULSORY FIELD NOT FILLE
0x172c2a…172c30 00 00 00 00 00 00 ┆ ┆
0x172c30…172dc4 (4, 84) Dummy {f00=0x007d, f01=0x018e, f02=» ALREADY USEDF ( " & 2 & ! & WSM SYSTEM FILE NOT CREATED @ ( j v & & DISK/FILE OVERFLOW ( & & NEW VOLUME LOADEDW (
0x172dc4…172dca 00 00 00 00 00 00 ┆ ┆
0x172dca…172f5e Dummy {f00=0x007d, f01=0x0190, f02=» ( & & DISK NOT OPERABLEM . ( N Z & j & DISK ERROR x & & ( & & POOL ERROR & &
0x172f5e…172f60 00 00 ┆ ┆
0x172f60…172f64 00 00 00 00 ┆ ┆
0x172f64…1730f8 Dummy {f00=0x007d, f01=0x40fe, f02=»& & ( & & 6 & NOT A TOSS DISK! D ( b n & ~ & ( > : 8 @ 4 A _ 0 0 4 0 !0. 0 4 t @ &
0x1730f8…1730fe 00 00 00 00 00 00 ┆ ┆
0x1730fe…173292 Dummy {f00=0x007d, f01=0x8000, f02=»
0x173292…173298 00 00 00 00 00 00 ┆ ┆
0x173298…17342c Dummy {f00=0x007d, f01=0x8000, f02=»
0x17342c…173432 00 00 00 00 00 00 ┆ ┆
0x173432…1735c6 Dummy {f00=0x007d, f01=0x8000, f02=»
0x1735c6…1735cc 00 00 00 00 00 00 ┆ ┆
0x1735cc…173760 Dummy {f00=0x007d, f01=0x8000, f02=»
0x173760…173766 00 00 00 00 00 00 ┆ ┆
0x173766…1738fa Dummy {f00=0x007d, f01=0x8000, f02=»
0x1738fa…173900 00 00 00 00 00 00 ┆ ┆
0x173900…173a94 (4, 85) Dummy {f00=0x007e, f01=0x8000, f02=»
0x173a94…173a9a 00 00 00 00 00 00 ┆ ┆
0x173a9a…173c2e Dummy {f00=0x007e, f01=0x8000, f02=»
0x173c2e…173c34 00 00 00 00 00 00 ┆ ┆
0x173c34…173dc8 Dummy {f00=0x007e, f01=0x8000, f02=»
0x173dc8…173dce 00 00 00 00 00 00 ┆ ┆
0x173dce…173f62 Dummy {f00=0x007e, f01=0x0190, f02=» J H IDENT WUDLF TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUDLF R WUDLF b $$$TRA0 t @ < DECLRA0 DISERR0 DSKERR0 CHVNAM0 HALT0 CONT0 DELFIL0 OPENF CLOSEF0 T:ATTF0 T:ERAS0
0x173f62…173f68 00 00 00 00 00 00 ┆ ┆
0x173f68…1740fc Dummy {f00=0x007e, f01=0x0190, f02=» - 0 6 : v , > X0 < J F " D 1 A 2 _ ^PT 0 `!CK^ P ( ! 2W , IPX. _2 ! j N R W Y i m w J F " D @B'! j
0x1740fc…174100 00 00 00 00 ┆ ┆
0x174100…174102 00 00 ┆ ┆
0x174102…174296 Dummy {f00=0x007e, f01=0x0190, f02=»TE $ ' & & ( & 6 FILE D $ X $ h ( x * & & UNIT:E $ * & & & &
0x174296…17429c 00 00 00 00 00 00 ┆ ┆
0x17429c…174430 Dummy {f00=0x007e, f01=0x40d8, f02=» $ * & & K " & 0 & > $ L ( h & x & & [ ( 4 @ & & & &
0x174430…174436 00 00 00 00 00 00 ┆ ┆
0x174436…1745ca Dummy {f00=0x007e, f01=0x018e, f02=» J H IDENT WUCOP TRA 13.0 85-09-01 F1 O1111 REL=2.3,841203,870155940230 WUCOP R WUCOP b $$$TRA0 t B > DECLRA0 DECLRN0 DISERR0 UFERR DSKERR0 CHVNAM0 HALT0 COPYDD0 D @ OPENF CLOSEF0 RDSECT0 BINBCD0 BCDBIN0 CREFIL0 DELFIL0 REA
0x1745ca…1745d0 00 00 00 00 00 00 ┆ ┆
0x1745d0…174764 (4, 86) Dummy {f00=0x007e, f01=0x018e, f02=» $ 4 D T c d t 2 ! % & ' - ) J F " D @ 12 A 2
0x174764…17476a 00 00 00 00 00 00 ┆ ┆
0x17476a…1748fe Dummy {f00=0x007e, f01=0x018e, f02=» k o j p $ q w 4 s D {0 0 T } f J F " D @B6!#!jB7! 0 B ! 2 )[ _= _c12 A A 2 _ @ W ^Q v
0x1748fe…174900 00 00 ┆ ┆
0x174900…174904 00 00 00 00 ┆ ┆
0x174904…174a98 Dummy {f00=0x007e, f01=0x0190, f02=» 0 # $ $ 6 F . V J F " D _Y ,_^0 `#CL_ T 0 `# W / " 0 Q0 C Ej "C* j h 5 ?0 . J F " D "C j "C&j "C, !
0x174a98…174a9e 00 00 00 00 00 00 ┆ ┆
0x174a9e…174c32 Dummy {f00=0x007e, f01=0x018e, f02=» " D @^ ,_ !_2( j !!C j 4 C ( j ! 4 , ) ( N 4 ^ n J F " D j "C "j "C 0 ! " ! !Yo04 !&jB'! jB((L jB0&_ 0 `# W X ~ (
0x174c32…174c38 00 00 00 00 00 00 ┆ ┆
0x174c38…174dcc Dummy {f00=0x007e, f01=0x018e, f02=» L ) . @ . * J F " D 8jB " 4 j " 4 W " ) OjB " 4( "0 0 ! " ! # " "0 : J 6 S0 8 ]0 6 _ m , | S8 D6 J F " D @
0x174dcc…174dd2 00 00 00 00 00 00 ┆ ┆
0x174dd2…174f66 Dummy {f00=0x007e, f01=0x0190, f02=» 4 6 & J F " D # ! $ > ! Y "0 0 0 " 0 " %jB " &jB 8 8 : J
0x174f66…174f6c 00 00 00 00 00 00 ┆ ┆
0x174f6c…175100 Dummy {f00=0x007e, f01=0x0190, f02=» $ - " >0 J F " D #CL_ T Y)j " 44j " 460 Q0 `! !>Y T]0 R0 `# !>Y TM YW Y*_ , B z G $ K V0 _ X $ d f $ j
0x175100…175106 00 00 00 00 00 00 ┆ ┆
0x175106…17529a Dummy {f00=0x007e, f01=0x0190, f02=» I L 0 * $ < L 0 $ n ~ 2
0x17529a…1752a0 00 00 00 00 00 00 ┆ ┆
0x1752a0…175434 (4, 87) Dummy {f00=0x007e, f01=0x0190, f02=» . > N ^ J F " D T* _RT QR 0 `!CK^ W 0 `!CK_ P JRT IQ ,_C0 `#CL_ 0 ` n 2 u
0x175434…17543a 00 00 00 00 00 00 ┆ ┆
0x17543a…1755ce Dummy {f00=0x007e, f01=0x0190, f02=» , u - 3 / J F " D # W $12 A 2 _ )E/(12 A 04 !" 2 _ j !F j !& . F | H 4 N D V $ Z e i j u k U
0x1755ce…1755d4 00 00 00 00 00 00 ┆ ┆
0x1755d4…175768 Dummy {f00=0x007e, f01=0x0190, f02=» S F 2 $ 4 2 D T 2 d t 4 u J F " D !T !j & !E2 W-!D3 !D4
0x175768…17576e 00 00 00 00 00 00 ┆ ┆
0x17576e…175902 Dummy {f00=0x007e, f01=0x018e, f02=» 6jB (K (jB &^ (QR jB &_ 0 B !T%jB%' j v 4 ( F % V ( Sh f + ( x . Sh 1 ! J F " D B,!"! 7jB (L (jB &_ 0 B !P j "B4 E8u? )E9 ? !P *_ j " I
0x175902…175908 00 00 00 00 00 00 ┆ ┆
0x175908…175a9c Dummy {f00=0x007e, f01=0x0190, f02=» w0 " y $ } & J F " D @ "j " $0 Y( ? ! : ? !D; !D< D=W D>? W?0 Q0 ` 6 $ *
0x175a9c…175aa0 00 00 00 00 ┆ ┆
0x175aa0…175aa2 00 00 ┆ ┆
0x175aa2…175c36 Dummy {f00=0x007e, f01=0x0190, f02=»B ! IQ< JR< ? W@0 R0 `# W ? 06 18 v 4 J F X j & z & & D & & ( & & &
0x175c36…175c3c 00 00 00 00 00 00 ┆ ┆
0x175c3c…175dd0 Dummy {f00=0x007e, f01=0x0190, f02=»& & & & , & V = VOLUME : & R & ` & F = FILE n & & & W = WSM SYSTEM-FILE & $ & (MAX SIZE OF ONE SECTION: F ZZ9I
0x175dd0…175dd6 00 00 00 00 00 00 ┆ ┆
0x175dd6…175f6a Dummy {f00=0x007e, f01=0x018e, f02=»PY VOLUME TO VOLUMEN $ G $ , ( < H & X & f & t & COPY FILE TO FILEV $ ( , & & & . ) &' #COPY AND R
0x175f6a…175f70 00 00 00 00 00 00 ┆ ┆
0x175f70…176104 (4, 88) Dummy {f00=0x007e, f01=0x018e, f02=» r $ H & & E * $ 8 ( H T & E d & r I COPY DEFINITION: $ I & & & $ (
0x176104…17610a 00 00 00 00 00 00 ┆ ┆
0x17610a…17629e Dummy {f00=0x007e, f01=0x0190, f02=» & & & K COPY FORMAT: 4 $ K P & ` & n & | $ ( & & & COPY TABLE T & &
0x17629e…1762a0 00 00 ┆ ┆
0x1762a0…1762a4 00 00 00 00 ┆ ┆
0x1762a4…176438 Dummy {f00=0x007e, f01=0x0190, f02=»PECIFIC: $ MO & M & . N TYPE:S < $ NO R & Y b & F t & & & O NAME:B $ O & & $ (
0x176438…17643e 00 00 00 00 00 00 ┆ ┆
0x17643e…1765d2 Dummy {f00=0x007e, f01=0x018e, f02=» ` & & Q INPUTS & $ Q` < & L & Z R UNIT:S h $ R` ~ & & & & S VOLUME-NAME: $ S` & ! &
0x1765d2…1765d8 00 00 00 00 00 00 ┆ ┆
0x1765d8…17676c Dummy {f00=0x007e, f01=0x0190, f02=» & U OUTPUT $ U , & < & J V UNIT:T X $ V n & T ~ & & & W VOLUME-NAME: $ W & ! & J &
0x17676c…176772 00 00 00 00 00 00 ┆ ┆
0x176772…176906 Dummy {f00=0x007e, f01=0x408e, f02=» & L & & & [ 8 ( F " >% A j !!! +% B C4 R x@
0x176906…17690c 00 00 00 00 00 00 ┆ ┆
0x17690c…176aa0 Dummy {f00=0x007e, f01=0x0190, f02=» J H IDENT WUEXT TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUEXT WUEXT10 WUEXT20 R " WUEXT WUEXT10 , WUEXT20 r $$$TRA0 @ < DECLRA0 DERR0 DISERR0 DSKERR0 CHVNAM0 HALT0 CONT0 CREFIL0 F B DELFIL0 RDSECT0 WRSECT0
0x176aa0…176aa6 00 00 00 00 00 00 ┆ ┆
0x176aa6…176c3a Dummy {f00=0x007e, f01=0x018e, f02=» 0 ( @ P WSM-TEMP ` X0 x 8 J F " D 1& A 2 _ 0( !, L jB%!B$jB'! jB((L jB0&^ 0 B % * j Y R XXX WSM b
0x176c3a…176c40 00 00 00 00 00 00 ┆ ┆
0x176c40…176dd4 (4, 89) Dummy {f00=0x007f, f01=0x0190, f02=» H 4 6 8 , : > P " ` J F " D jB " jB " jB " jB " 0 B , ! TE0 `!CK^ T: p "
0x176dd4…176dda 00 00 00 00 00 00 ┆ ┆
0x176dda…176f6e Dummy {f00=0x007f, f01=0x0190, f02=» FS 0 0 S 0 2 .0 S D 0 V :0 S f < x J F " D [ W ! X 0 ! 0 U0 p J F " D @
0x176f6e…176f74 00 00 00 00 00 00 ┆ ┆
0x176f74…177108 Dummy {f00=0x007f, f01=0x0190, f02=» 0 , > 0 N J F " D !# _ 0 `# >Y < !P/0 0 !0 0 Y ` " 0
0x177108…17710e 00 00 00 00 00 00 ┆ ┆
0x17710e…1772a2 Dummy {f00=0x007f, f01=0x0190, f02=» . - 0 3 @ J F " D 0 C < j "C* j "C j "C&j "C, ! 0 C < hL (C P H Z ( m J F " D @(P !PA !_(( j !!C (
0x1772a2…1772a8 00 00 00 00 00 00 ┆ ┆
0x1772a8…17743c Dummy {f00=0x007f, f01=0x0190, f02=»0 C < j "C* j "C j "C&j "C, ! t 2 B R ( d J F " D 0 C < hK (C (P !P& !_( ! j !!C jC v "
0x17743c…177440 00 00 00 00 ┆ ┆
0x177440…177442 00 00 ┆ ┆
0x177442…1775d6 Dummy {f00=0x007f, f01=0x0190, f02=» C < W # !? H IP@ 4 0 ` C 4 Y" ^P< A 0 S $ D ]0 0 T h f w . v J F " D @`!CK^ P )4 24 0 `! Y "# 0 C "j "C* $j "C j 0 . J
0x1775d6…1775dc 00 00 00 00 00 00 ┆ ┆
0x1775dc…177770 Dummy {f00=0x007f, f01=0x0190, f02=» j !!C ( ( * j "C $ "j "C "j "C | : " J ) $ Z 30 _ j 8 | J F " D 0 ! " ! !Yg X "4 0 `!CK^ T.0 `! Y ") 0 C T j G . O q
0x177770…177776 00 00 00 00 00 00 ┆ ┆
0x177776…17790a Dummy {f00=0x007f, f01=0x018e, f02=» & & " , EXTEND WSM SYSTEM FILE $ $ , J $ Z ( j ^ v & & - UNIT: $ -^ & & & &
0x17790a…177910 00 00 00 00 00 00 ┆ ┆
0x177910…177aa4 (4, 90) Dummy {f00=0x007f, f01=0x0190, f02=» & & K & $ & K 2 & @ & N 0 EXISTING $ 0^ t & 1 FILE $ 1 & 1 & 2 NO.E $ 2 &
0x177aa4…177aaa 00 00 00 00 00 00 ┆ ┆
0x177aaa…177c3e Dummy {f00=0x007f, f01=0x0190, f02=»& & 5 EXTEND $ 5 0 6 FILE @ $ 6 T 7 WITHD d $ 7 z & 7 & 8 NO.T $ 8 & 9 OF RECORDS:S $ 9 &
0x177c3e…177c40 00 00 ┆ ┆
0x177c40…177c44 00 00 00 00 ┆ ┆
0x177c44…177dd8 Dummy {f00=0x007f, f01=0x404e, f02=» ( ( ! (_& !P !_F4 8@ J @ $ 6 T 7 WITHD d $ 7 z & 7 & 8 NO.T $ 8 & 9 OF RECORDS:S $ 9 &
0x177dd8…177dde 00 00 00 00 00 00 ┆ ┆
0x177dde…177f72 Dummy {f00=0x007f, f01=0x0190, f02=» J H IDENT WUPRF TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUPRF R WUPRF b $$$TRA0 t B > DECLRA0 DECLRN0 DERR0 DISERR0 UFERR DSKERR0 DERROR0 CHVNAM0 B > HALT0 RDSECT0 PRINTF0 BINBCD0 BCDBIN0 OPENF CLOSEF0 READD
0x177f72…177f78 00 00 00 00 00 00 ┆ ┆
0x177f78…17810c Dummy {f00=0x007f, f01=0x0190, f02=» r $ . V 2 l . | 0 !0
0x17810c…178112 00 00 00 00 00 00 ┆ ┆
0x178112…1782a6 Dummy {f00=0x007f, f01=0x0190, f02=» m u J F " D @C&j "C, ! 0 C T hK (C (P !T ,_m !_- " p J F " D *j "C & "j "C "j "C 0 $ $ #*W $ ! # $_ jB&!R! 0 * J F " D jB
0x1782a6…1782ac 00 00 00 00 00 00 ┆ ┆
0x1782ac…178440 Dummy {f00=0x007f, f01=0x0190, f02=» 0 . '0 ! - 0 " / 2 1 B 3 . R 4 b : r > 9 ? J F " D jB0" 0 B % * ? (R W YW W _ A 00 ? 1. A A 2 A . B
0x178440…178446 00 00 00 00 00 00 ┆ ┆
0x178446…1785da Dummy {f00=0x007f, f01=0x0190, f02=»+0 `!CK^ 0 R ! < * Y 0 Q0 `! >Y P [0 6 > N ^ * n J F " D 6 R & _* . 8 jD ! !j & 0 T 'j " jB%' ~ ( $
0x1785da…1785e0 00 00 00 00 00 00 ┆ ┆
0x1785e0…178774 (4, 91) Dummy {f00=0x007f, f01=0x0190, f02=» 2 J F " D !! !2 !D j !! !6 "6 MM W R _ !P *_ j L j c d z k l m w z0 6 } 6 " J F " D @ "
0x178774…17877a 00 00 00 00 00 00 ┆ ┆
0x17877a…17890e Dummy {f00=0x007f, f01=0x0190, f02=» 2 2 J F " D R0 Q0 `! W 0 B ! IP? 4 !j ! !j !!!!02 4 * #(R , 4 z 4 0 4 k &
0x17890e…178914 00 00 00 00 00 00 ┆ ┆
0x178914…178aa8 Dummy {f00=0x007f, f01=0x0190, f02=» $ & & & & 4 & B VOLUME-NAME: P $ l & | & I & & FILENAME:M $ & & K &
0x178aa8…178aae 00 00 00 00 00 00 ┆ ┆
0x178aae…178c42 Dummy {f00=0x007f, f01=0x0190, f02=» " W & & TO RECORD NO.: , $ L & TTTTXR n " Y & & & & PRINT OUTPUT DEVICE: & & (
0x178c42…178c48 00 00 00 00 00 00 ┆ ┆
0x178c48…178ddc Dummy {f00=0x007f, f01=0x0190, f02=»F CONTENTS v $ + & " FILE:U 0 $ F & K T & ON VOLUME:E b & I | & PAGE: ! ZZ9E " ! P & ! $ P ( # & *
0x178ddc…178de0 00 00 00 00 ┆ ┆
0x178de0…178de2 00 00 ┆ ┆
0x178de2…178f76 Dummy {f00=0x007f, f01=0x0190, f02=» " ZZ9 " " & . # ZZZE < " # P & ` $ ZZ9 n " $ ( & & & & OCCUPIED SECTORS:C &
0x178f76…178f7c 00 00 00 00 00 00 ┆ ┆
0x178f7c…179110 Dummy {f00=0x007f, f01=0x402e, f02=» # W ! 4 f @ * & . # ZZZE < " # P & ` $ ZZ9 n " $ ( & & & & OCCUPIED SECTORS:C &
0x179110…179116 00 00 00 00 00 00 ┆ ┆
0x179116…1792aa Dummy {f00=0x007f, f01=0x018e, f02=» J H IDENT WUCVN TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUCVN R WUCVN b $$$TRA0 t @ < DECLRA0 DERR0 DISERR0 DSKERR0 HALT0 CHVOL CHANFC0 T:ATTF0
0x1792aa…1792b0 00 00 00 00 00 00 ┆ ┆
0x1792b0…179444 (4, 92) Dummy {f00=0x007f, f01=0x0190, f02=» & CHANGE VOLUME-NAME $ 8 & H & V UNIT:E d $ z & & & & VOLUME-NAME: $ & ! & I
0x179444…17944a 00 00 00 00 00 00 ┆ ┆
0x17944a…1795de Dummy {f00=0x007f, f01=0x40c6, f02=» & J $ ( ( 4 & J D & R & [ d ( r . * ( 1 A 2 _ 0 P0 CJ P _ 4 ~ $ @ VOLUME-NAME: $ & ! & I
0x1795de…1795e0 00 00 ┆ ┆
0x1795e0…1795e4 00 00 00 00 ┆ ┆
0x1795e4…179778 Dummy {f00=0x007f, f01=0x0190, f02=» J H IDENT WUPRV TRA 13.0 85-09-01 F1 O1111 REL=2.3,841001,870155940230 WUPRV R WUPRV b $$$TRA0 t : 6 DECLRA0 DERR0 DISERR0 DSKERR0 HALT0 SURVEY0 T:ATTF0
0x179778…17977e 00 00 00 00 00 00 ┆ ┆
0x17977e…179912 Dummy {f00=0x007f, f01=0x018e, f02=» jB$! jB&!R!jB'!P!jB(" 0 B % * _7 v @ 4 & D & R & ` & n 2 - + %PRINT VTOC (VOLUME TABLE OF CONTENTS)! | $ @ & & UNIT: $ @ &
0x179912…179918 00 00 00 00 00 00 ┆ ┆
0x179918…179aac Dummy {f00=0x007f, f01=0x408a, f02=» & & PRINT OUTPUT DEVICE: & 8 & J ( X @4 d B t@ VTOC (VOLUME TABLE OF CONTENTS)! | $ @ & & UNIT: $ @ &
0x179aac…179ab2 00 00 00 00 00 00 ┆ ┆
0x179ab2…179c46 Dummy {f00=0x007f, f01=0x0190, f02=» > @ IDENT WUASS W,REL=2.3,841211,870155940230 F B GIPLFC CHANFC CREVOL CREFIL DELFIL GETVOL COPYDD PRINTF F J F " CHVOL SURVEY RDSECT WRSECT READDK WRITDK OPENF CLOSEF BCDBIN BINBCD RCGET GETIND GIPLFC
0x179c46…179c4c 00 00 00 00 00 00 ┆ ┆
0x179c4c…179de0 Dummy {f00=0x007f, f01=0x018e, f02=» CHANFC B T:FDSP , ( =$@ ' F Y C * CREVOL Z CREFIL f n DELFIL p , ( W CR V W CR F W DL PRINTF z COPYDD SURVEY , ( w
0x179de0…179de6 00 00 00 00 00 00 ┆ ┆
0x179de6…179f7a Dummy {f00=0x007f, f01=0x0190, f02=» , ( TU C C ( B P , ( W # C ( 4 , ( TU C ( B P d GETVOL 8 , ( 1 W 0W , ( M C ( B , (
0x179f7a…179f80 00 00 00 00 00 00 ┆ ┆
0x179f80…17a114 (4, 93) Dummy {f00=0x0080, f01=0x018e, f02=» C z , ( ( B ( , ( B TOT SST RT J , ( ELT & % ( z , ( ! ( W B T WRSECT P RDSECT V , ( A
0x17a114…17a11a 00 00 00 00 00 00 ┆ ┆
0x17a11a…17a2ae Dummy {f00=0x0080, f01=0x0190, f02=» WRITDK READDK , ( H _h W & C , T:BCDB , ( ! & C & n CLOSEF , ( @ C C ( , ( W B Y : Y < * C
0x17a2ae…17a2b4 00 00 00 00 00 00 ┆ ┆
0x17a2b4…17a448 Dummy {f00=0x0080, f01=0x0190, f02=» & 9 BCDBIN ~ $ * & c ( B +_ 8 , ( ; [ Z ' f BINBCD , ( @H Z ' , ( : Z
0x17a448…17a44e 00 00 00 00 00 00 ┆ ┆
0x17a44e…17a5e2 Dummy {f00=0x0080, f01=0x40f2, f02=» GETIND * & H ' ! @ H D ! [ eW2 oW( yW W W W P W /P 3WV 7WR mT P TD 0 , T> T8 T2 5W ;T UW W W Q W ( @
0x17a5e2…17a5e8 00 00 00 00 00 00 ┆ ┆
0x17a5e8…17a77c Dummy {f00=0x0080, f01=0x0190, f02=» > @ IDENT WSMCAL W,REL=2.3,841201,870155940230 $ WXMUL WXSLR WXSLL WXDIV WXC1R F WXMUL n I:RT1 WXDIV , ( @ 9O ' 9o WXSLR * , ( '_ <` & @ ( A
0x17a77c…17a780 00 00 00 00 ┆ ┆
0x17a780…17a782 00 00 ┆ ┆
0x17a782…17a916 Dummy {f00=0x0080, f01=0x4054, f02=» & & : z d d - d 9 < G d S V v >@ P WXSLL WXDIV WXC1R F WXMUL n I:RT1 WXDIV , ( @ 9O ' 9o WXSLR * , ( '_ <` & @ ( A
0x17a916…17a91c 00 00 00 00 00 00 ┆ ┆
0x17a91c…17aab0 Dummy {f00=0x0080, f01=0x409a, f02=» 0 H IDENT W:FHCA W,REL=2.3,850901,870155940230 W:FHCA 8 WD:FIL J W:FHCA p @
0x17aab0…17aab6 00 00 00 00 00 00 ┆ ┆
0x17aab6…17ac4a Dummy {f00=0x0080, f01=0x8000, f02=»
0x17ac4a…17ac50 00 00 00 00 00 00 ┆ ┆
0x17ac50…17ade4 (4, 94) Dummy {f00=0x0080, f01=0x8000, f02=»
0x17ade4…17adea 00 00 00 00 00 00 ┆ ┆
0x17adea…17af7e Dummy {f00=0x0080, f01=0x8000, f02=»
0x17af7e…17af80 00 00 ┆ ┆
0x17af80…17af84 00 00 00 00 ┆ ┆
0x17af84…17b118 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b118…17b11e 00 00 00 00 00 00 ┆ ┆
0x17b11e…17b2b2 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b2b2…17b2b8 00 00 00 00 00 00 ┆ ┆
0x17b2b8…17b44c Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b44c…17b452 00 00 00 00 00 00 ┆ ┆
0x17b452…17b5e6 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b5e6…17b5ec 00 00 00 00 00 00 ┆ ┆
0x17b5ec…17b780 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b780…17b786 00 00 00 00 00 00 ┆ ┆
0x17b786…17b91a Dummy {f00=0x0080, f01=0x8000, f02=»
0x17b91a…17b920 00 00 00 00 00 00 ┆ ┆
0x17b920…17bab4 (4, 95) Dummy {f00=0x0080, f01=0x8000, f02=»
0x17bab4…17baba 00 00 00 00 00 00 ┆ ┆
0x17baba…17bc4e Dummy {f00=0x0080, f01=0x8000, f02=»
0x17bc4e…17bc54 00 00 00 00 00 00 ┆ ┆
0x17bc54…17bde8 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17bde8…17bdee 00 00 00 00 00 00 ┆ ┆
0x17bdee…17bf82 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17bf82…17bf88 00 00 00 00 00 00 ┆ ┆
0x17bf88…17c11c Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c11c…17c120 00 00 00 00 ┆ ┆
0x17c120…17c122 00 00 ┆ ┆
0x17c122…17c2b6 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c2b6…17c2bc 00 00 00 00 00 00 ┆ ┆
0x17c2bc…17c450 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c450…17c456 00 00 00 00 00 00 ┆ ┆
0x17c456…17c5ea Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c5ea…17c5f0 00 00 00 00 00 00 ┆ ┆
0x17c5f0…17c784 (4, 96) Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c784…17c78a 00 00 00 00 00 00 ┆ ┆
0x17c78a…17c91e Dummy {f00=0x0080, f01=0x8000, f02=»
0x17c91e…17c920 00 00 ┆ ┆
0x17c920…17c924 00 00 00 00 ┆ ┆
0x17c924…17cab8 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17cab8…17cabe 00 00 00 00 00 00 ┆ ┆
0x17cabe…17cc52 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17cc52…17cc58 00 00 00 00 00 00 ┆ ┆
0x17cc58…17cdec Dummy {f00=0x0080, f01=0x8000, f02=»
0x17cdec…17cdf2 00 00 00 00 00 00 ┆ ┆
0x17cdf2…17cf86 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17cf86…17cf8c 00 00 00 00 00 00 ┆ ┆
0x17cf8c…17d120 Dummy {f00=0x0080, f01=0x8000, f02=»
0x17d120…17d126 00 00 00 00 00 00 ┆ ┆
0x17d126…17d2ba Dummy {f00=0x0080, f01=0x8000, f02=»
0x17d2ba…17d2c0 00 00 00 00 00 00 ┆ ┆
0x17d2c0…17d454 (4, 97) Dummy {f00=0x0081, f01=0x8000, f02=»
0x17d454…17d45a 00 00 00 00 00 00 ┆ ┆
0x17d45a…17d5ee Dummy {f00=0x0081, f01=0x8000, f02=»
0x17d5ee…17d5f4 00 00 00 00 00 00 ┆ ┆
0x17d5f4…17d788 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17d788…17d78e 00 00 00 00 00 00 ┆ ┆
0x17d78e…17d922 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17d922…17d928 00 00 00 00 00 00 ┆ ┆
0x17d928…17dabc Dummy {f00=0x0081, f01=0x8000, f02=»
0x17dabc…17dac0 00 00 00 00 ┆ ┆
0x17dac0…17dac2 00 00 ┆ ┆
0x17dac2…17dc56 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17dc56…17dc5c 00 00 00 00 00 00 ┆ ┆
0x17dc5c…17ddf0 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17ddf0…17ddf6 00 00 00 00 00 00 ┆ ┆
0x17ddf6…17df8a Dummy {f00=0x0081, f01=0x8000, f02=»
0x17df8a…17df90 00 00 00 00 00 00 ┆ ┆
0x17df90…17e124 (4, 98) Dummy {f00=0x0081, f01=0x8000, f02=»
0x17e124…17e12a 00 00 00 00 00 00 ┆ ┆
0x17e12a…17e2be Dummy {f00=0x0081, f01=0x8000, f02=»
0x17e2be…17e2c0 00 00 ┆ ┆
0x17e2c0…17e2c4 00 00 00 00 ┆ ┆
0x17e2c4…17e458 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17e458…17e45e 00 00 00 00 00 00 ┆ ┆
0x17e45e…17e5f2 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17e5f2…17e5f8 00 00 00 00 00 00 ┆ ┆
0x17e5f8…17e78c Dummy {f00=0x0081, f01=0x0190, f02=» J H IDENT WUCRF TRA 13.0 85-09-11 F1 O1111 REL=2.3,841001,870155940230 WUCRF R WUCRF b $$$TRA0 t D @ DECLRA0 DISERR0 DSKERR0 CHVNAM0 HALT0 CREFIL0 RDSECT0 WRITDK0 < 8 BINBCD0 BCDBIN0 CHANFC0 OPENF CLOSEF0 T:ATTF0 T:ERAS0
0x17e78c…17e792 00 00 00 00 00 00 ┆ ┆
0x17e792…17e926 Dummy {f00=0x0081, f01=0x0190, f02=» $ T ' + . 20 0 > 7 P J F " D 1 A 2 _ ^PTE0 `!CK^ T ! IP '_( " 0 C T j ` F . N V X ^ w
0x17e926…17e92c 00 00 00 00 00 00 ┆ ┆
0x17e92c…17eac0 Dummy {f00=0x0081, f01=0x018e, f02=» 5 0 @ P X* ` J F " D !! ( ! (_& !P !_M1 A 2 _ jB'!P!0 !% jB'! r R XXX WSM ( 1 2
0x17eac0…17eac6 00 00 00 00 00 00 ┆ ┆
0x17eac6…17ec5a Dummy {f00=0x0081, f01=0x0190, f02=» 8 : ( ' 8 2 H 6 X : h < x = J F " D jB " jB " jB " 0 B , ! T 0 `!CK^ P _ IP8 1 A A C
0x17ec5a…17ec60 00 00 00 00 00 00 ┆ ┆
0x17ec60…17edf4 (4, 99) Dummy {f00=0x0081, f01=0x0190, f02=»[ W ! ! 0 B T J F " D !( ! Y j ! ! ! (R _ ( f J F
0x17edf4…17edfa 00 00 00 00 00 00 ┆ ┆
0x17edfa…17ef8e Dummy {f00=0x0081, f01=0x0190, f02=» / TH 4 9 CH 0 = T B @ 1 R J F " D l Y !6 $ Y 0 `! >Y T* ! !W [ _ _$ !_) !< b B F ; H L T O Q
0x17ef8e…17ef94 00 00 00 00 00 00 ┆ ┆
0x17ef94…17f128 Dummy {f00=0x0081, f01=0x018e, f02=» $ ( & & , & : # UNIT: H $ #& ^ & n & & & $ VOLUME-NAME: $ $& & & I & &
0x17f128…17f12e 00 00 00 00 00 00 ┆ ┆
0x17f12e…17f2c2 Dummy {f00=0x0081, f01=0x018e, f02=» & & & SYSTEM $ && 6 & F ' FILE T $ ' h & ' x & ( NO.E $ ( & ) OF RECORDS:: $ ) &
0x17f2c2…17f2c8 00 00 00 00 00 00 ┆ ┆
0x17f2c8…17f45c Dummy {f00=0x0081, f01=0x404a, f02=» , ' % @ IP< W ! ? 4 0 ` C 4 a 4@ F F ' FILE T $ ' h & ' x & ( NO.E $ ( & ) OF RECORDS:: $ ) &
0x17f45c…17f460 00 00 00 00 ┆ ┆
0x17f460…17f462 00 00 ┆ ┆
0x17f462…17f5f6 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17f5f6…17f5fc 00 00 00 00 00 00 ┆ ┆
0x17f5fc…17f790 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17f790…17f796 00 00 00 00 00 00 ┆ ┆
0x17f796…17f92a Dummy {f00=0x0081, f01=0x8000, f02=»
0x17f92a…17f930 00 00 00 00 00 00 ┆ ┆
0x17f930…17fac4 (4, 100) Dummy {f00=0x0081, f01=0x8000, f02=»
0x17fac4…17faca 00 00 00 00 00 00 ┆ ┆
0x17faca…17fc5e Dummy {f00=0x0081, f01=0x8000, f02=»
0x17fc5e…17fc60 00 00 ┆ ┆
0x17fc60…17fc64 00 00 00 00 ┆ ┆
0x17fc64…17fdf8 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17fdf8…17fdfe 00 00 00 00 00 00 ┆ ┆
0x17fdfe…17ff92 Dummy {f00=0x0081, f01=0x8000, f02=»
0x17ff92…17ff98 00 00 00 00 00 00 ┆ ┆
0x17ff98…18012c Dummy {f00=0x0081, f01=0x8000, f02=»
0x18012c…180132 00 00 00 00 00 00 ┆ ┆
0x180132…1802c6 Dummy {f00=0x0081, f01=0x8000, f02=»
0x1802c6…1802cc 00 00 00 00 00 00 ┆ ┆
0x1802cc…180460 Dummy {f00=0x0081, f01=0x0190, f02=» J H IDENT WUCRV TRA 13.0 85-09-19 F1 O1111 REL=2.3,850910,870155940230 WUCRV R WUCRV b $$$TRA0 t D @ DECLRA0 DECLRN0 DISERR0 DSKERR0 HALT0 CREVOL0 T:ATTF0 T:ERAS0
0x180460…180466 00 00 04 80 00 00 ┆ ┆
0x180466…1805fa Dummy {f00=0x0081, f01=0x018e, f02=» D E I M H , N < O U L Q l a | q r v z ~ J F " D @@" 1 A 2 _NjB2!A!0 !70 B %
0x1805fa…180600 00 00 04 80 00 00 ┆ ┆
0x180600…180794 (4, 101) Dummy {f00=0x0082, f01=0x0190, f02=» & & UNIT:E $ " 6 & F & X & f & t VOLUME-NAME: $ " & & I & & VOLUME-NAME: $
0x180794…18079a 00 00 04 80 00 00 ┆ ┆
0x18079a…18092e Dummy {f00=0x0082, f01=0x0190, f02=» TTX " U & $ & 2 & TYPE: @ & T TX f " G x & & & @ < &: 6POSSIBLE TYPES - 1 = 1/4 MB FLEXIBLE DISK (PTS-6867) & &
0x18092e…180934 00 00 04 80 00 00 ┆ ┆
0x180934…180ac8 Dummy {f00=0x0082, f01=0x0190, f02=» 3 = 1 MB FLEXIBLE DISK (PTS-6791) & . & < & J 2 . &, (- 4 = 5 MB CARTRIDGE, FIX (PTS-6876) X & & & < 8 &6 2- 5 = 16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962) &
0x180ac8…180ace 00 00 04 80 00 00 ┆ ┆
0x180ace…180c62 Dummy {f00=0x0082, f01=0x0190, f02=»2.8 MB WINCHESTER (PTS-6794) & ( & 6 & D 2 . &, (- 8 = 26.7 MB WINCHESTER (PTS-6794) R & & & 2 . &, (- 9 = 35 MB WINCHESTER (PTS-6793) & & &
0x180c62…180c68 00 00 04 80 00 00 ┆ ┆
0x180c68…180dfc Dummy {f00=0x0082, f01=0x0190, f02=»R (PTS-6793) r & & & & 4 2 . &, (- 12 = 188 MB WINCHESTER (PTS-6793) B & x & & < 8 &6 2- 13 = 80 MB CARTRIDGE, FIX (PTS-6877, PTS-6962) & & &
0x180dfc…180e00 00 00 00 00 ┆ ┆
0x180e00…180e02 00 00 ┆ ┆
0x180e02…180f96 Dummy {f00=0x0082, f01=0x0190, f02=» & & : 5 &3 /I MEANS INITIAL WRITE/READ-TEST OF ALL SECTORS6 & ^ & l & z < 8 &6 2A MEANS ADDITIONAL WRITE/READ-TEST OF ALL SECTORS & & & 6 1 &/ +Q MEANS SUPRESS
0x180f96…180f9c 00 00 00 00 00 00 ┆ ┆
0x180f9c…181130 Dummy {f00=0x0082, f01=0x4174, f02=» ( & & . & < XT N " H ` & p & ~ . ) ' !ENTER DISK VERSION - 1 = UNPACKED $ & & & - 2 = PA
0x181130…181136 00 00 00 00 00 00 ┆ ┆
0x181136…1812ca Dummy {f00=0x0082, f01=0x8000, f02=»
0x1812ca…1812d0 00 00 00 00 00 00 ┆ ┆
0x1812d0…181464 (4, 102) Dummy {f00=0x0082, f01=0x73a0, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181464…18146a 30 30 30 30 30 30 ┆000000┆
0x18146a…1815fe Dummy {f00=0x0082, f01=0x73aa, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x1815fe…181600 30 30 ┆00┆
0x181600…181604 30 30 30 30 ┆0000┆
0x181604…181798 Dummy {f00=0x0082, f01=0x738d, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181798…18179e 30 30 30 30 30 30 ┆000000┆
0x18179e…181932 Dummy {f00=0x0082, f01=0x7397, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181932…181938 30 30 30 30 30 30 ┆000000┆
0x181938…181acc Dummy {f00=0x0082, f01=0x73a1, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181acc…181ad2 30 30 30 30 30 30 ┆000000┆
0x181ad2…181c66 Dummy {f00=0x0082, f01=0x73ab, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181c66…181c6c 30 30 30 30 30 30 ┆000000┆
0x181c6c…181e00 Dummy {f00=0x0082, f01=0x738e, f02=»000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0x181e00…181e06 30 30 30 30 30 30 ┆000000┆
0x181e06…181f9a Dummy {f00=0x0082, f01=0x40b4, f02=» WUCRF 110985 WUCRF $$$TRA0 DECLRA0 DISERR0 DSKERR0 CHVNAM0 HALT0 CREFIL0 RDSECT0 WRITDK0 BINBCD0 BCDBIN0 CHANFC0 OPENF CLOSEF0 T:ATTF0 T:ERAS0 a R WD:CLE WD:CMP WD:COP WD:RFR J WP:POL 180185 WP:RP
0x181f9a…181fa0 00 00 00 00 00 00 ┆ ┆
0x181fa0…182134 (4, 103) Dummy {f00=0x0082, f01=0x0190, f02=»D:CLE X :GOR 240185 WD:GFR S:FRSP WD:OFR b WD:RFR f WD:ORW | :CHN 240185 WD:CHN S:BUFF WD:ORW S:FRSP WD:GFR WD:CLE WD:CMP WD:COP WD:RFR J :POL 240185 WP:RP
0x182134…18213a 00 00 00 00 00 00 ┆ ┆
0x18213a…1822ce Dummy {f00=0x0082, f01=0x0190, f02=» WD:COP W:FHCA h :FIL 240185 S:BUFF S:FRSP WD:FIL S:FORD S:FILT WD:COP WP:PAD W:DISC WP:SET QUEST S:POLA QUEND WP:BPO 8 DISC 240185 W:DISC S:BUFF WD:ORW WD:CHN W
0x1822ce…1822d4 00 00 00 00 00 00 ┆ ┆
0x1822d4…182468 Dummy {f00=0x0082, f01=0x0190, f02=»D:CMP WD:CLE 8 H POOL 240185 QUEST QUEND W:POOL WP:PUT WP:PAD WP:LUT WP:FIL S:FILT S:POLA WP:GPO WP:SET S:POOL :ADM 240185 WP:SET WD:COP S:POOL WP:PAE 8 S:POLA
0x182468…18246e 00 00 00 00 00 00 ┆ ┆
0x18246e…182602 Dummy {f00=0x0082, f01=0x0190, f02=» WXDIV WXSLR * WXSLL D WXC1R I:EVA0 v 6W:FHCA 010985 WD:FIL W:FHCA RITE 240185 S:POOL R S:POLA T S:FILT V S:POLF X S:FORD Z PWRITE I:EVA0 WD:COP PSEARC POPEN PDLETE
0x182602…182608 00 00 00 00 00 00 ┆ ┆
0x182608…18279c Dummy {f00=0x0082, f01=0x0190, f02=» DSKERR0 HALT0 SURVEY0 T:ATTF0 B :WUASS 010985 GIPLFC I:EVA0 I:RT1 CHANFC B T:FDSP CREVOL CREFIL f DELFIL p PRINTF z COPYDD SURVEY GETVOL 8 CHVOL WRSECT P RDSECT V WRITDK READDK T:B
0x18279c…1827a0 00 00 00 00 ┆ ┆
0x1827a0…1827a2 00 00 ┆ ┆
0x1827a2…182936 Dummy {f00=0x0082, f01=0x0190, f02=»TRA0 DECLRA0 DECLRN0 DERR0 DISERR0 UFERR DSKERR0 DERROR0 CHVNAM0 HALT0 RDSECT0 PRINTF0 BINBCD0 BCDBIN0 OPENF CLOSEF0 READDK0 CHANFC0 PREAD PCLOSE0 GETIND0 EMPTYT0 RCGET T:ATTF0 T:THOM0 T:DSC10 T:EDWR0 pWUCVN 010985 WUCVN $$$TRA0
0x182936…18293c 00 00 00 00 00 00 ┆ ┆
0x18293c…182ad0 Dummy {f00=0x0082, f01=0x0190, f02=» CREFIL0 DELFIL0 READDK0 WRITDK0 CHANFC0 PREAD PWRITE0 PCLOSE0 WXMUL WXDIV GETIND0 T:ATTF0 T:ERAS0 T:DSC10 T:EDWR0 WUEXT t 010985 WUEXT WUEXT10 , WUEXT20 $$$TRA0 DECLRA0 DERR0 DISERR0 DSKERR0 CHVNAM0 HALT0 CONT0 CREFIL0 DELFIL0 R
0x182ad0…182ad6 00 00 00 00 00 00 ┆ ┆
0x182ad6…182c6a Dummy {f00=0x0082, f01=0x0190, f02=»CRV 190985 WUCRV $$$TRA0 DECLRA0 DECLRN0 DISERR0 DSKERR0 HALT0 CREVOL0 T:ATTF0 T:ERAS0 WUDLF Y 010985 WUDLF $$$TRA0 DECLRA0 DISERR0 DSKERR0 CHVNAM0 HALT0 CONT0 DELFIL0 OPENF CLOSEF0 T:ATTF0 T:ERAS0 WUCOP ]
0x182c6a…182c70 00 00 00 00 00 00 ┆ ┆
0x182c70…182e04 (4, 104) Dummy {f00=0x0082, f01=0x0190, f02=» T:DISP0 T:ERAS0 T:EDWR0 T:NKI T:DSC00 T:DELA0 T:TEST0 T:WAIT0 T:XSTA0 T:ABOR0 ` .WUDEN E 010985 DECLRA0 DECLRS0 DECLRN0 DECLRD0 DERR0 DERROR0 $$$TRA0 `APP STPBLK0 STABLK0 EMPTYT0 CHANFC0 MASK0 T:ERAS0 T:DISP0 T:GETA0 T:GETF0
0x182e04…182e0a 00 00 00 00 00 00 ┆ ┆
0x182e0a…182f9e Dummy {f00=0x0082, f01=0x0190, f02=» WUUTI >WUFIL 3 010985 FUTASK0 $$$TRA0 WUFIL WUUTI 4 010985 WUUTI hAPP P DISERR0 DSKERR0 UFERR HALT0 CONT0 B CHVNAM0 STPBLK0 < STABLK0 J $$$TRA0 WUCRV WUCRF WUDLF WUCOP WUEXT WUEXT10 WUEXT20 WUPRF W
0x182f9e…182fa0 00 00 ┆ ┆
0x182fa0…182fa4 00 00 00 00 ┆ ┆
0x182fa4…183138 Dummy {f00=0x0082, f01=0x0190, f02=» 010985 D:CB900 4 ,C:CBA0 + 010985 C:CBA00 ,D:CBA0 , 010985 D:CBA00 ,D:DB10 - 010985 D:DB100 , ,C:CBB0 . 010985 C:CBB00 $ ,D:CBB0 / 010985 D:CBB00 D
0x183138…18313e 00 00 00 00 00 00 ┆ ┆
0x18313e…1832d2 Dummy {f00=0x0082, f01=0x0190, f02=» C:CB500 6 ,D:CB50 ! 010985 D:CB500 D ,C:CB60 " 010985 C:CB600 ,D:CB60 # 010985 D:CB600 ,C:CB70 $ 010985 C:CB700 ,D:CB70 % 010985 D:CB700 ,C:CB80 &
0x1832d2…1832d8 00 00 00 00 00 00 ┆ ┆
0x1832d8…18346c Dummy {f00=0x0082, f01=0x0190, f02=» ,C:CB10 010985 C:CB100 ( ,D:CB10 010985 D:CB100 $ ,C:CB20 010985 C:CB200 $ ,D:CB20 010985 D:CB200 D ,C:CB30 010985 C:CB300 $ ,D:CB30 010985 D
0x18346c…183472 00 00 00 00 00 00 ┆ ┆
0x183472…183606 Dummy {f00=0x0082, f01=0x0190, f02=»00 D:CB300 C:CB300 D:CB400 C:CB400 D:CB500 C:CB500 D:CB600 C:CB600 D:CB700 C:CB700 D:CB800 C:CB800 D:CB900 C:CB900 D:CBA00 C:CBA00 D:DB100 C:CBA00 D:CBB00 C:CBB00 D:CBC00 C:CBC00 F 6T:DFU0 010985 T:DFU00 FUTASK0 * >T:ATAB
0x183606…18360c 00 00 00 00 00 00 ┆ ┆
0x18360c…1837a0 Dummy {f00=0x0082, f01=0x0190, f02=» T:AU10 010985 T:AU100 T:DU100 D:CB100 C:CB100 D:CB200 C:CB200 D:CB300 C:CB300 D:CB400 C:CB400 D:CB500 C:CB500 D:CB600 C:CB600 D:CB700 C:CB700 D:CB800 C:CB800 D:CB900 C:CB900 D:CBA00 C:CBA00 D:DB100 C:CBA00 D:CBB00 C:CBB00 D:CBC00 C:CBC00
0x1837a0…1837a6 00 00 00 00 00 00 ┆ ┆
0x1837a6…18393a Dummy {f00=0x0082, f01=0x000c, f02=»170185
0x18393a…183940 00 00 00 00 00 00 ┆ ┆
0x183940…1845e0 (5, 0) DirGranule ((5, 0)) {
0x183940…1845e0 DirEnt {nam=»WSM:LM«, typ=»C «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x183940…1845e0 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab51, f01=0x0000, f02=0x1068, f03=0x0000}
0x183940…1845e0 DirEnt {nam=»W:CRTB«, typ=»LM«, f00=0xab5c, f01=0x0000, f02=0x1070, f03=0x0000}
0x183940…1845e0 DirEnt {nam=»W:CRT «, typ=»LM«, f00=0xab5c, f01=0x0000, f02=0x1160, f03=0x0000}
0x183940…1845e0 }
0x1845e0…184600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x184600…184610 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x184610…1847a4 (5, 1) Opaque[0x194]
0x1847a4…1847aa 00 00 00 00 00 00 ┆ ┆
0x1847aa…18493e # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab51, f01=0x0000, f02=0x1068, f03=0x0000}
0x1847aa…18493e IdxSect {
0x1847aa…18493e f00 = 0x0083 // 0x1847aa @0x0
0x1847aa…18493e f01 = 0x0002 // 0x1847ac @0x2
0x1847aa…18493e gno = [ // 0x1847ae @0x4
0x1847aa…18493e [0x00]: C0x0083.0x1.0
0x1847aa…18493e ]
0x1847aa…18493e }
0x18493e…184940 00 00 ┆ ┆
0x184940…184944 00 00 00 00 ┆ ┆
0x184944…184ad8 Dummy {f00=0x0083, f01=0x0190, f02=» P P F PDIRECTORY: WSM:LMC DATE: 85-09-01 CONTENTS: INFO ABOUT THIS DIR. P****************** ^ < P W:CRT = CREATOR LOAD MODULE FOR STANDARD MONITOR. x H P W:CRTB = " " " " " " WITH CREBUG. P
0x184ad8…184ade 00 00 00 00 00 00 ┆ ┆
0x184ade…184c72 Dummy {f00=0x0083, f01=0x0190, f02=»H CREBUG. T 8 P <DADFC> = DAD-FILE-CODE OF DIRECTORY WSM:CREA. P N H P RECOMMMENDATION: USE OPTIMIZED CREDIT INTERPRETER WHEN LINKING V N P CREATOR. I:EVA 1001, I:NTP GEN.GEN=NO MUL,DIV,ADVK. F P IF YOU GET 64K
0x184c72…184c78 00 00 00 00 00 00 ┆ ┆
0x184c78…184e0c Dummy {f00=0x0083, f01=0x0190, f02=»E d P 85-04-01 UPDATED 2.2 6 P 85-03-01 UPDATED 2.2 (CRL OF WSM REL 2.2) . P 84-12-20 UPDATED 2.2 h P 84-12-10 UPDATED 2.2 P 84-12-01 RELEASE 2.2 4 P 84-11-01 UPDATED VERSION OF RELEASE 2.1
0x184e0c…184e12 00 00 00 00 00 00 ┆ ┆
0x184e12…184fa6 Dummy {f00=0x0083, f01=0x409a, f02=» 1.0 & 2.0 TO ACTION CENTER. | P 83-05-27 WSM 2.0 $ P 83-02-14 WSM 1.0 D . P 81-11-11 RELEASE 12 TO ALPHA TEST d@ UPDATED 2.2 P 84-12-01 RELEASE 2.2 4 P 84-11-01 UPDATED VERSION OF RELEASE 2.1
0x184fa6…184fac 00 00 00 00 00 00 ┆ ┆
0x184fac…185140 Dummy {f00=0x0083, f01=0x2008, f02=» .0 TO ACTION CENTER. | P 83-05-27 WSM 2.0 $ P 83-02-14 WSM 1.0 D . P 81-11-11 RELEASE 12 TO ALPHA TEST d@ UPDATED 2.2 P 84-12-01 RELEASE 2.2 4 P 84-11-01 UPDATED VERSION OF RELEASE 2.1
0x185140…185146 00 00 00 00 00 00 ┆ ┆
0x185146…1852da Dummy {f00=0x0083, f01=0x4116, f02=» P $ , ( P C W @ C ( $ W W : [ : X H D ! , -P> 9P IP S kWT yP T@ W T T W P T +P UT 0 , [Tt ePj gW mT^ sT> }W P6 W W W
0x1852da…1852e0 00 00 00 00 00 00 ┆ ┆
0x1852e0…185474 (5, 2) Opaque[0x194]
0x185474…18547a 00 00 00 00 00 00 ┆ ┆
0x18547a…18560e # DirEnt {nam=»W:CRTB«, typ=»LM«, f00=0xab5c, f01=0x0000, f02=0x1070, f03=0x0000}
0x18547a…18560e IdxSect {
0x18547a…18560e f00 = 0x0083 // 0x18547a @0x0
0x18547a…18560e f01 = 0x003c // 0x18547c @0x2
0x18547a…18560e gno = [ // 0x18547e @0x4
0x18547a…18560e [0x00]: C0x0083.0x2.0
0x18547a…18560e [0x01]: C0x0083.0x3.0
0x18547a…18560e [0x02]: C0x0084.0x0.0
0x18547a…18560e [0x03]: C0x0084.0x1.0
0x18547a…18560e [0x04]: C0x0084.0x2.0
0x18547a…18560e [0x05]: C0x0084.0x3.0
0x18547a…18560e [0x06]: C0x0085.0x0.0
0x18547a…18560e [0x07]: C0x0085.0x1.0
0x18547a…18560e [0x08]: C0x0085.0x2.0
0x18547a…18560e [0x09]: C0x0085.0x3.0
0x18547a…18560e [0x0a]: C0x0086.0x0.0
0x18547a…18560e [0x0b]: C0x0086.0x1.0
0x18547a…18560e [0x0c]: C0x0086.0x2.0
0x18547a…18560e [0x0d]: C0x0086.0x3.0
0x18547a…18560e [0x0e]: C0x0087.0x0.0
0x18547a…18560e [0x0f]: C0x0087.0x1.0
0x18547a…18560e [0x10]: C0x0087.0x2.0
0x18547a…18560e [0x11]: C0x0087.0x3.0
0x18547a…18560e [0x12]: C0x0088.0x0.0
0x18547a…18560e [0x13]: C0x0088.0x1.0
0x18547a…18560e [0x14]: C0x0088.0x2.0
0x18547a…18560e [0x15]: C0x0088.0x3.0
0x18547a…18560e [0x16]: C0x0089.0x0.0
0x18547a…18560e [0x17]: C0x0089.0x1.0
0x18547a…18560e [0x18]: C0x0089.0x2.0
0x18547a…18560e [0x19]: C0x0089.0x3.0
0x18547a…18560e [0x1a]: C0x008a.0x0.0
0x18547a…18560e [0x1b]: C0x008a.0x1.0
0x18547a…18560e [0x1c]: C0x008a.0x2.0
0x18547a…18560e [0x1d]: C0x008a.0x3.0
0x18547a…18560e ]
0x18547a…18560e }
0x18560e…185614 00 00 00 00 00 00 ┆ ┆
0x185614…1857a8 Dummy {f00=0x0083, f01=0x0190, f02=» p inCR R R R R fR R R R * d
0x1857a8…1857ae 00 00 00 00 00 00 ┆ ┆
0x1857ae…185942 Dummy {f00=0x0083, f01=0x0190, f02=» i FC < f 2@ FC * s) $ B 4 P 0 B
0x185942…185948 00 00 00 00 00 00 ┆ ┆
0x185948…185adc Dummy {f00=0x0083, f01=0x0190, f02=»
0x185adc…185ae0 00 00 00 00 ┆ ┆
0x185ae0…185ae2 00 00 ┆ ┆
0x185ae2…185c76 Dummy {f00=0x0083, f01=0x0190, f02=»
0x185c76…185c7c 00 00 00 00 00 00 ┆ ┆
0x185c7c…185e10 Dummy {f00=0x0083, f01=0x0190, f02=»
0x185e10…185e16 00 00 00 00 00 00 ┆ ┆
0x185e16…185faa Dummy {f00=0x0083, f01=0x0190, f02=»
0x185faa…185fb0 00 00 00 00 00 00 ┆ ┆
0x185fb0…186144 (5, 3) Dummy {f00=0x0083, f01=0x0190, f02=»
0x186144…18614a 00 00 00 00 00 00 ┆ ┆
0x18614a…1862de Dummy {f00=0x0083, f01=0x0190, f02=»
0x1862de…1862e0 00 00 ┆ ┆
0x1862e0…1862e4 00 00 00 00 ┆ ┆
0x1862e4…186478 Dummy {f00=0x0083, f01=0x0190, f02=»
0x186478…18647e 00 00 00 00 00 00 ┆ ┆
0x18647e…186612 Dummy {f00=0x0083, f01=0x0190, f02=»
0x186612…186618 00 00 00 00 00 00 ┆ ┆
0x186618…1867ac Dummy {f00=0x0083, f01=0x0190, f02=»
0x1867ac…1867b2 00 00 00 00 00 00 ┆ ┆
0x1867b2…186946 Dummy {f00=0x0083, f01=0x0190, f02=»
0x186946…18694c 00 00 00 00 00 00 ┆ ┆
0x18694c…186ae0 Dummy {f00=0x0083, f01=0x0190, f02=»
0x186ae0…186ae6 00 00 00 00 00 00 ┆ ┆
0x186ae6…186c7a Dummy {f00=0x0083, f01=0x0190, f02=»
0x186c7a…186c80 00 00 00 00 00 00 ┆ ┆
0x186c80…186e14 (5, 4) Dummy {f00=0x0084, f01=0x0190, f02=»
0x186e14…186e1a 00 00 00 00 00 00 ┆ ┆
0x186e1a…186fae Dummy {f00=0x0084, f01=0x0190, f02=»
0x186fae…186fb4 00 00 00 00 00 00 ┆ ┆
0x186fb4…187148 Dummy {f00=0x0084, f01=0x0190, f02=»
0x187148…18714e 00 00 00 00 00 00 ┆ ┆
0x18714e…1872e2 Dummy {f00=0x0084, f01=0x0190, f02=»
0x1872e2…1872e8 00 00 00 00 00 00 ┆ ┆
0x1872e8…18747c Dummy {f00=0x0084, f01=0x0190, f02=»
0x18747c…187480 00 00 00 00 ┆ ┆
0x187480…187482 00 00 ┆ ┆
0x187482…187616 Dummy {f00=0x0084, f01=0x0190, f02=»
0x187616…18761c 00 00 00 00 00 00 ┆ ┆
0x18761c…1877b0 Dummy {f00=0x0084, f01=0x0190, f02=»
0x1877b0…1877b6 00 00 00 00 00 00 ┆ ┆
0x1877b6…18794a Dummy {f00=0x0084, f01=0x0190, f02=»
0x18794a…187950 00 00 00 00 00 00 ┆ ┆
0x187950…187ae4 (5, 5) Dummy {f00=0x0084, f01=0x0190, f02=»
0x187ae4…187aea 00 00 00 00 00 00 ┆ ┆
0x187aea…187c7e Dummy {f00=0x0084, f01=0x0190, f02=»
0x187c7e…187c80 00 00 ┆ ┆
0x187c80…187c84 00 00 00 00 ┆ ┆
0x187c84…187e18 Dummy {f00=0x0084, f01=0x0190, f02=»
0x187e18…187e1e 00 00 00 00 00 00 ┆ ┆
0x187e1e…187fb2 Dummy {f00=0x0084, f01=0x0190, f02=»
0x187fb2…187fb8 00 00 00 00 00 00 ┆ ┆
0x187fb8…18814c Dummy {f00=0x0084, f01=0x0190, f02=»
0x18814c…188152 00 00 00 00 00 00 ┆ ┆
0x188152…1882e6 Dummy {f00=0x0084, f01=0x0190, f02=»
0x1882e6…1882ec 00 00 00 00 00 00 ┆ ┆
0x1882ec…188480 Dummy {f00=0x0084, f01=0x0190, f02=»
0x188480…188486 00 00 00 00 00 00 ┆ ┆
0x188486…18861a Dummy {f00=0x0084, f01=0x0190, f02=»
0x18861a…188620 00 00 00 00 00 00 ┆ ┆
0x188620…1887b4 (5, 6) Dummy {f00=0x0084, f01=0x0190, f02=»
0x1887b4…1887ba 00 00 00 00 00 00 ┆ ┆
0x1887ba…18894e Dummy {f00=0x0084, f01=0x0190, f02=»
0x18894e…188954 00 00 00 00 00 00 ┆ ┆
0x188954…188ae8 Dummy {f00=0x0084, f01=0x0190, f02=»
0x188ae8…188aee 00 00 00 00 00 00 ┆ ┆
0x188aee…188c82 Dummy {f00=0x0084, f01=0x0190, f02=»
0x188c82…188c88 00 00 00 00 00 00 ┆ ┆
0x188c88…188e1c Dummy {f00=0x0084, f01=0x0190, f02=»
0x188e1c…188e20 00 00 00 00 ┆ ┆
0x188e20…188e22 00 00 ┆ ┆
0x188e22…188fb6 Dummy {f00=0x0084, f01=0x0190, f02=»
0x188fb6…188fbc 00 00 00 00 00 00 ┆ ┆
0x188fbc…189150 Dummy {f00=0x0084, f01=0x0190, f02=»
0x189150…189156 00 00 00 00 00 00 ┆ ┆
0x189156…1892ea Dummy {f00=0x0084, f01=0x0190, f02=»
0x1892ea…1892f0 00 00 00 00 00 00 ┆ ┆
0x1892f0…189484 (5, 7) Dummy {f00=0x0084, f01=0x0190, f02=»
0x189484…18948a 00 00 00 00 00 00 ┆ ┆
0x18948a…18961e Dummy {f00=0x0084, f01=0x0190, f02=»
0x18961e…189620 00 00 ┆ ┆
0x189620…189624 00 00 00 00 ┆ ┆
0x189624…1897b8 Dummy {f00=0x0084, f01=0x0190, f02=»
0x1897b8…1897be 00 00 00 00 00 00 ┆ ┆
0x1897be…189952 Dummy {f00=0x0084, f01=0x0190, f02=»
0x189952…189958 00 00 00 00 00 00 ┆ ┆
0x189958…189aec Dummy {f00=0x0084, f01=0x0190, f02=» LETLETGO TOGOT
0x189aec…189af2 00 00 00 00 00 00 ┆ ┆
0x189af2…189c86 Dummy {f00=0x0084, f01=0x0190, f02=» =><>=<=<>=><>=<=<>&:STR+-+-/*ABSINTSGNTIMDAYSYSLENNUMDATCDVPOS) ! "BLRIULHIBZSANBNINLLICAPRUP @ ! " $ ( 0 YNLRDBS801;01;24;80;1?;25;01;01;80;0=P B < G< G<G ?< ?< =
0x189c86…189c8c 00 00 00 00 00 00 ┆ ┆
0x189c8c…189e20 Dummy {f00=0x0084, f01=0x0190, f02=» B P
0x189e20…189e26 00 00 00 00 00 00 ┆ ┆
0x189e26…189fba Dummy {f00=0x0084, f01=0x0190, f02=»
0x189fba…189fc0 00 00 00 00 00 00 ┆ ┆
0x189fc0…18a154 (5, 8) Dummy {f00=0x0085, f01=0x0190, f02=» B ( , 2 8 > D R
0x18a154…18a15a 00 00 00 00 00 00 ┆ ┆
0x18a15a…18a2ee Dummy {f00=0x0085, f01=0x0190, f02=» ! Q *
0x18a2ee…18a2f4 00 00 00 00 00 00 ┆ ┆
0x18a2f4…18a488 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18a488…18a48e 00 00 00 00 00 00 ┆ ┆
0x18a48e…18a622 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18a622…18a628 00 00 00 00 00 00 ┆ ┆
0x18a628…18a7bc Dummy {f00=0x0085, f01=0x0190, f02=»
0x18a7bc…18a7c0 00 00 00 00 ┆ ┆
0x18a7c0…18a7c2 00 00 ┆ ┆
0x18a7c2…18a956 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18a956…18a95c 00 00 00 00 00 00 ┆ ┆
0x18a95c…18aaf0 Dummy {f00=0x0085, f01=0x0190, f02=» B { Y 0( x
0x18aaf0…18aaf6 00 00 00 00 00 00 ┆ ┆
0x18aaf6…18ac8a Dummy {f00=0x0085, f01=0x0190, f02=»
0x18ac8a…18ac90 00 00 00 00 00 00 ┆ ┆
0x18ac90…18ae24 (5, 9) Dummy {f00=0x0085, f01=0x0190, f02=»
0x18ae24…18ae2a 00 00 00 00 00 00 ┆ ┆
0x18ae2a…18afbe Dummy {f00=0x0085, f01=0x0190, f02=»
0x18afbe…18afc0 00 00 ┆ ┆
0x18afc0…18afc4 00 00 00 00 ┆ ┆
0x18afc4…18b158 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18b158…18b15e 00 00 00 00 00 00 ┆ ┆
0x18b15e…18b2f2 Dummy {f00=0x0085, f01=0x0190, f02=» P P * P X 85 09 018509012.3
0x18b2f2…18b2f8 00 00 00 00 00 00 ┆ ┆
0x18b2f8…18b48c Dummy {f00=0x0085, f01=0x0190, f02=» B
0x18b48c…18b492 00 00 00 00 00 00 ┆ ┆
0x18b492…18b626 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18b626…18b62c 00 00 00 00 00 00 ┆ ┆
0x18b62c…18b7c0 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18b7c0…18b7c6 00 00 00 00 00 00 ┆ ┆
0x18b7c6…18b95a Dummy {f00=0x0085, f01=0x0190, f02=»
0x18b95a…18b960 00 00 00 00 00 00 ┆ ┆
0x18b960…18baf4 (5, 10) Dummy {f00=0x0085, f01=0x0190, f02=»
0x18baf4…18bafa 00 00 00 00 00 00 ┆ ┆
0x18bafa…18bc8e Dummy {f00=0x0085, f01=0x0190, f02=»
0x18bc8e…18bc94 00 00 00 00 00 00 ┆ ┆
0x18bc94…18be28 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18be28…18be2e 00 00 00 00 00 00 ┆ ┆
0x18be2e…18bfc2 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18bfc2…18bfc8 00 00 00 00 00 00 ┆ ┆
0x18bfc8…18c15c Dummy {f00=0x0085, f01=0x0190, f02=»
0x18c15c…18c160 00 00 00 00 ┆ ┆
0x18c160…18c162 00 00 ┆ ┆
0x18c162…18c2f6 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18c2f6…18c2fc 00 00 00 00 00 00 ┆ ┆
0x18c2fc…18c490 Dummy {f00=0x0085, f01=0x0190, f02=»
0x18c490…18c496 00 00 00 00 00 00 ┆ ┆
0x18c496…18c62a Dummy {f00=0x0085, f01=0x0190, f02=»
0x18c62a…18c630 00 00 00 00 00 00 ┆ ┆
0x18c630…18c7c4 (5, 11) Dummy {f00=0x0085, f01=0x0190, f02=»
0x18c7c4…18c7ca 00 00 00 00 00 00 ┆ ┆
0x18c7ca…18c95e Dummy {f00=0x0085, f01=0x0190, f02=» F R m o K n
0x18c95e…18c960 00 00 ┆ ┆
0x18c960…18c964 00 00 00 00 ┆ ┆
0x18c964…18caf8 Dummy {f00=0x0085, f01=0x0190, f02=» z,`0 {-`0 |.`0 `0 U0 Y0 T A 0 ' ) ` a)0 `oaP 0 `$0 `W Ap 0 ?a` `)0 `?a0 J 0 _Y ` 0 `@g1 F0 ! b*Hp b&0 b0 0 0 0 c 2a _ 0 _ 0 0 c0 cbT 0 _) bc_ @ 6@ _m ` 0 ` A { `*Hp `& a 0 I P a 0 a
0x18caf8…18cafe 00 00 00 00 00 00 ┆ ┆
0x18cafe…18cc92 Dummy {f00=0x0085, f01=0x0190, f02=»Hm a W @r? ` 7a % %_ A A ? 2A _ A ? 4 0 a(a" jo l ` ? @`0 o `ac: "a ? (a ` < 2a ` /0 b (b (a He k0do k 0 b b $ 2b W 0 o2a a ? 0 o_ 0 c0 ccW 0 P Q R W A`0 P Q 0 _ T Hm (a E b*Hp b&0
0x18cc92…18cc98 00 00 00 00 00 00 ┆ ┆
0x18cc98…18ce2c Dummy {f00=0x0085, f01=0x0190, f02=» ` 0 b(b 1 _ 0 o `acR'*a `? c ` a 0 abS 0 P(0 P#0 baW a D a K 2a W& a W& a W!0 c0 T 0 ccW o0 cc a W a W 4 $0 0 4 0 (0 '0 4 a b 0 b b+0 b0 b&Ip 0 b**c m b 0 b0 0 b1 Ic0 b 0 k baZ a D b&Ip b* b 0
0x18ce2c…18ce32 00 00 00 00 00 00 ┆ ┆
0x18ce32…18cfc6 Dummy {f00=0x0085, f01=0x0190, f02=» X c _ ko b %k5 #k6 0 } m@do } jo m@ `( ` jo` Y ` jo` U @i0!o0 PDR Ai0"o0 $@ 1Ic.Ig+jb o$ b G c k3 }20 bcP j}c k c c c _ fo _ 0"o0 Ic b hob S X Ig @ ! b W b fo fo$ c@$c c cb_ c _ X c _ c c X c j _ c c 86 c j ?7 86
0x18cfc6…18cfcc 00 00 00 00 00 00 ┆ ┆
0x18cfcc…18d160 Dummy {f00=0x0085, f01=0x0190, f02=»Pc` l? ` hl` o T0$Pc & ` "Pc jk o `Pc ` Pc b ?8#Pc ?6 c ?7 c ?7 86 c ?7 mC c hmc o P "` L b c h{c-o 86W9 ` c ?7fo ` $c `" `T bk o #k47%k23do mc?6do mc c!?7 ko k< k= k> k9 W 0 ^(T ^(8 c ?7?6 c"?7 ko k: k; c#?7?6 c# cT,jc P $bc
0x18d160…18d166 00 00 00 00 00 00 ┆ ┆
0x18d166…18d2fa Dummy {f00=0x0085, f01=0x0190, f02=» ?7(` *0 4 b b bh4b o T jc 5b c%' b$h4b o X3 b c h{c-o T- c jb {c b bq c 0 c c c cq c ?7 ` 0 o?6 mC c hmc o T c ?7 ko b %k5 #k6 ?6 c ?7 b b jc /b0 c0# 0 mc0$c c T hmc o 86 b b!* c'?7 b 0 } m@do } do } jo m@ `( ` jo` U 0%o0 T 0"o0 `
0x18d2fa…18d300 00 00 00 00 00 00 ┆ ┆
0x18d300…18d494 (5, 12) Dummy {f00=0x0086, f01=0x0190, f02=»ko b _ o! 9 ! 8 c ?7?: b c h{c-o T b h{b-R $cb c hRc o P ?6 c ?7 c ?7 c ?7 $b "b 4 4 jo bj4 ko k9 k8 4 4 n. b`P jo`bn `b4 0&_ 4 6 : l " > * v @ * ` 4 8 b ( v z ~ R
0x18d494…18d49a 00 00 00 00 00 00 ┆ ┆
0x18d49a…18d62e Dummy {f00=0x0086, f01=0x0190, f02=» U ` u E P 6 < G n } s @ C * v M L O C t _ W " # % & ' ( * N O P
0x18d62e…18d634 00 00 00 00 00 00 ┆ ┆
0x18d634…18d7c8 Dummy {f00=0x0086, f01=0x0190, f02=»DDEFINITION++NOW PRINTING ALREADY DEFINEDFORMAT SECTION:EXTENDED PROMPT :GUIDING MESSAGE :FORMAT DEFINITION:XZTT9TTTZZ9YYYYZZZE/ HURB - - -
0x18d7c8…18d7ce 00 00 00 00 00 00 ┆ ┆
0x18d7ce…18d962 Dummy {f00=0x0086, f01=0x0190, f02=»UF FIDTAB PICTUR BPOOL ATTAB K o J N o J K o G N o G L Z M Z I/O-ERROR ILLEGAL TYPE PRINTER OCCUPIED E VALUE : O FIELD-ID NOT FOUND SYNTAX ERROR: ZZj MUST BE (.) OR (,) MUST BE (M:) OR (S:) MUST BE (YES) OR
0x18d962…18d968 00 00 00 00 00 00 ┆ ┆
0x18d968…18dafc Dummy {f00=0x0086, f01=0x0190, f02=» PRESS <ENTER> TO CONFIRM TOO FEW INPUT CHARACTERS PRINT-DEVICE NOT OPERABLE MUST BE (LEFT) OR (RIGHT) FIELD NAME ALREADY DEFINED WORKING AREA Hd EXCEEDED COMPULSORY FIELD NOT ENTERED SPACE NOT ALLOWED IN FIELD ID VALIDATION : "
0x18dafc…18db00 00 00 00 00 ┆ ┆
0x18db00…18db02 00 00 ┆ ┆
0x18db02…18dc96 Dummy {f00=0x0086, f01=0x0190, f02=»NOT EXCEED MAX ROW SIZE: ZZj i DISK POOL -ERROR. STATUS: } #BASIC-VERB OR -FUNCTION NOT ALLOWED FILE: o NOT FOUND ON THIS VOLUME MUST BE WITHIN ZZ9 AND ZZ9j $ILLEGAL DIRECTION TO WANTED FIELD-ID SYNTAX ERROR FOUND IN LINE : 9999 %1S
0x18dc96…18dc9c 00 00 00 00 00 00 ┆ ┆
0x18dc9c…18de30 Dummy {f00=0x0086, f01=0x0190, f02=»T ALLOWED #PRINTOUT POSITIONS MUST BE OUTSIDE ZZ9 * ZZ9 3MUST BE A FIELD NAME, WSM WORK ITEM OR A DATA TABLE 6PRESS <ENTER> TO CONFIRM OR <PRINT> TO CONFIRM & PRINT +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT, % <DEL> = DELETION, <DUP> = DUPLICATE.
0x18de30…18de36 00 00 00 00 00 00 ┆ ┆
0x18de36…18dfca Dummy {f00=0x0086, f01=0x0190, f02=» VERSION NO: TYPE: RELEASE DATE: PAGE: WSM REL RELEASE DATE: WSM CREATOR TOOLS FUNCTION SELECTION: 1 = < A H 2 = < A D 3 = = A H 4 = = A D E POSITION FIELD OR
0x18dfca…18dfd0 00 00 00 00 00 00 ┆ ┆
0x18dfd0…18e164 (5, 13) Dummy {f00=0x0086, f01=0x0190, f02=»ILL EOI ENT PROTECT S/D/B ADJ F VAL HUIB +/ (0 *7=):%#$.?A>-64C'9@" 813,5 B!&;< " $ & ( * , . 0 2 4 6 8 : ; < = > ? @ A B C D
0x18e164…18e16a 00 00 00 00 00 00 ┆ ┆
0x18e16a…18e2fe Dummy {f00=0x0086, f01=0x0190, f02=» ' / ; J Y i y ' / 8 A J S ] g s 4 N h , K " k " " $ % % & ? & e & ' ( ( )
0x18e2fe…18e300 00 00 ┆ ┆
0x18e300…18e304 00 00 00 00 ┆ ┆
0x18e304…18e498 Dummy {f00=0x0086, f01=0x0190, f02=» 6 A J ! '_2<@ r& @ P A d ! '_L '_T & & : R : <<H P < : & R P W R < _ <h =W V V Q W _H _N & 9Wd F Y C WL C ( B
0x18e498…18e49e 00 00 00 00 00 00 ┆ ┆
0x18e49e…18e632 Dummy {f00=0x0086, f01=0x0190, f02=» ( _X
0x18e632…18e638 00 00 00 00 00 00 ┆ ┆
0x18e638…18e7cc Dummy {f00=0x0086, f01=0x0190, f02=» B1 F L
0x18e7cc…18e7d2 00 00 00 00 00 00 ┆ ┆
0x18e7d2…18e966 Dummy {f00=0x0086, f01=0x0190, f02=» D % @T C W" H W A A R Q [ F _ _ ,
0x18e966…18e96c 00 00 00 00 00 00 ┆ ┆
0x18e96c…18eb00 Dummy {f00=0x0086, f01=0x0190, f02=»
0x18eb00…18eb06 00 00 00 00 00 00 ┆ ┆
0x18eb06…18ec9a Dummy {f00=0x0086, f01=0x0190, f02=» [ & Pd & P &@T H P *X r R T T & X P B P W B PW RD PW Y P T & U T @ P Q T P T n Z T U TN T T& P@ @ A @
0x18ec9a…18eca0 00 00 00 00 00 00 ┆ ┆
0x18eca0…18ee34 (5, 14) Dummy {f00=0x0086, f01=0x0190, f02=»& X B T T T P Q Z ' Pj _x B T W T C T W >H W" T T >H &P C W P T| R Td T U T @ P T U B TZT. Z P
0x18ee34…18ee3a 00 00 00 00 00 00 ┆ ┆
0x18ee3a…18efce Dummy {f00=0x0086, f01=0x0190, f02=»P W( L B >h U U [ : @ @ 4# P W @ H `P W @ C P WL @ P @ `T T " C T & TlW T " Pf @ _@ B U T " TJ @ P, P@ @ T M U
0x18efce…18efd4 00 00 00 00 00 00 ┆ ┆
0x18efd4…18f168 Dummy {f00=0x0086, f01=0x0190, f02=» `PB @ H P P T @W Q L P Q T @ T W L @ Y ` T W8 P I W* P Y T W K W J $ K a Y T4( X ` P X W a
0x18f168…18f16e 00 00 00 00 00 00 ┆ ┆
0x18f16e…18f302 Dummy {f00=0x0086, f01=0x0190, f02=» @ L L [ TR R P lR Q T W T U Z P " T T lP T U W P Q W lR Q Z Z , P Z P Q T lT` T U T T @ T& P @ A @ W Pf L
0x18f302…18f308 00 00 00 00 00 00 ┆ ┆
0x18f308…18f49c Dummy {f00=0x0086, f01=0x0190, f02=» ` P( P P _ L ] W L M W P H P _ I W a W B M M H [ [ ^ C A ^ A f A b @ ( C P P Pv @Pv zWt Tn @ ( X >h A h TX [ @ ( f L A
0x18f49c…18f4a0 00 00 00 00 ┆ ┆
0x18f4a0…18f4a2 00 00 ┆ ┆
0x18f4a2…18f636 Dummy {f00=0x0086, f01=0x0190, f02=» C ( zT J _D B ( @ hT0 @ fT* A f A ^ Q T Z >H jW: ( K @ f C ( J A f B =H K zTb @ fT P2 @ j ( L ` jP >H j_ _l @ b C ( * zT ^ R Q W C W W Z Z
0x18f636…18f63c 00 00 00 00 00 00 ┆ ┆
0x18f63c…18f7d0 Dummy {f00=0x0086, f01=0x0190, f02=» LWT P P T@ P C W T P & T Q P C W L L ( B P X T B Q Q Z P B ( C B * C / ' ( B T Tt Z PjW T^
0x18f7d0…18f7d6 00 00 00 00 00 00 ┆ ┆
0x18f7d6…18f96a Dummy {f00=0x0086, f01=0x0190, f02=» : @ * T C ( C * 4<HT _ R <A_ <A <a ^ C *<h 5 @ * T ( 8 Y U W W B ( K J T P B ( * *V. K C ( * zT J C ( * J J ( ,V J J N_T B ( * * R _
0x18f96a…18f970 00 00 00 00 00 00 ┆ ┆
0x18f970…18fb04 (5, 15) Dummy {f00=0x0086, f01=0x0190, f02=» W W [ : B TP, B W B P ( P zT K C ( zT @ ( T ( J < @ P K W Z * P( * J T K C ( zT _. B ( ( K J
0x18fb04…18fb0a 00 00 00 00 00 00 ┆ ┆
0x18fb0a…18fc9e Dummy {f00=0x0086, f01=0x0190, f02=» _ $ L * E J E 2 zT J W C ( T ( zTr J " &WR Z T& D K Xv _l @T _0 X C ( zT W @ C W C W R W [ : W R _ &<H P <
0x18fc9e…18fca0 00 00 ┆ ┆
0x18fca0…18fca4 00 00 00 00 ┆ ┆
0x18fca4…18fe38 Dummy {f00=0x0086, f01=0x0190, f02=»R <A_ <A <a ^ <h 5 P ;H ' T P X _* : C W C [ : @ P W @ P T T & P P| @ _" P T A W T A W @ A W Q T *:H & T @ P Q W [ :
0x18fe38…18fe3e 00 00 00 00 00 00 ┆ ┆
0x18fe3e…18ffd2 Dummy {f00=0x0086, f01=0x0190, f02=» + F #0 0T ' F ' _ #0 0T & ! T P & ! X T C F Z $ Y ( x P* Y * t N x y Q W Q Y W X " 6 X X . 8 P X 0P X T 5 ! Y * t N y X VH X
0x18ffd2…18ffd8 00 00 00 00 00 00 ┆ ┆
0x18ffd8…19016c Dummy {f00=0x0086, 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 T V f x X X * $" ~_> @ Y X * _R X !@XX y X # x V y X X * P P 1 _
0x19016c…190172 00 00 00 00 00 00 ┆ ┆
0x190172…190306 Dummy {f00=0x0086, f01=0x0190, f02=» X $ " P y _ x T X H X X * , )$ P _ : X " X ) X : ' Y Z y x C y X C C X ( x Tn B ,9 R 9 X ! T _ y C Q " T $
0x190306…19030c 00 00 00 00 00 00 ┆ ┆
0x19030c…1904a0 Dummy {f00=0x0086, f01=0x0190, f02=» _d y C C X !? x P Q( B y " y $ c : C _$ _ y _> x XH X X # C _6 B ]p P C Q8X<_T x XH @ Y c C y XV X x 8 x X X # _ " O C C (
0x1904a0…1904a6 00 00 00 00 00 00 ┆ ┆
0x1904a6…19063a Dummy {f00=0x0086, f01=0x0190, f02=» 9 V ! P @ Y #0 @ Y Y . X ! L : " $ : ! P # P @ : P 2! Y " !0 @ < P X "T X : F P !0 @ X L 8
0x19063a…190640 00 00 00 00 00 00 ┆ ┆
0x190640…1907d4 (5, 16) Dummy {f00=0x0087, f01=0x0190, f02=» X ' ' F X _ X ' _ X '?_ P ! P # P @ X ' L X ! 8 : P X " 9b! X :c 2" H J@ W W W W W W W P Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 W U X Q W Y 0
0x1907d4…1907da 00 00 00 00 00 00 ┆ ┆
0x1907da…19096e Dummy {f00=0x0087, f01=0x0190, f02=» P R P R Y +Wl Y + WZ T R( WJ Q W Y + U Q Y Q P W W Y ( C P X *! T W V L ! L F X 0 Y 8 P p Y 0 X 0 X 2] X 8 Y 0 p : X 0 :H* : X 2T Y 2 :
0x19096e…190974 00 00 00 00 00 00 ┆ ┆
0x190974…190b08 Dummy {f00=0x0087, f01=0x0190, f02=» 4 0 @ 6 2 X 0 : ! P # T : @ C ( C : C _" C B _4 _ X $ P B : ( X D D : K + Q 2 P. P8 L j ( B X # V
0x190b08…190b0e 00 00 00 00 00 00 ┆ ┆
0x190b0e…190ca2 Dummy {f00=0x0087, f01=0x0190, f02=» X <' X X : P X *# X ( " Q " P X 0PR V _` " PL T " Pn 8 Wv " P Y 0] Y (_z P P T6 " X _@ " P( X *# T BW B 1 W " P X X( C : X *! P P T P
0x190ca2…190ca8 00 00 00 00 00 00 ┆ ┆
0x190ca8…190e3c Dummy {f00=0x0087, f01=0x0190, f02=»W P Y . X ( X ." Pj X 0R T 8 K T6 Y *P( B Q B W :H _ W X . X 2QP Y *T2 : " P$ X 0U X *# P P T " T : " Y . 8 Y ( @ & C X .:H B B : P Y *T " T ! 1 W ! )
0x190e3c…190e40 00 00 00 00 ┆ ┆
0x190e40…190e42 00 00 ┆ ┆
0x190e42…190fd6 Dummy {f00=0x0087, f01=0x0190, f02=» D ! P $ ! P %_ : P V Y " X .9H $ | P & X ( " Q Y +Q R " P W " U Z Y , " Q " X . X 0R P" X *:h P PD ) Y (W X *:h Pt Pn P P P< WZ X ! X $" P<Q X (# P2 X #
0x190fd6…190fdc 00 00 00 00 00 00 ┆ ┆
0x190fdc…191170 Dummy {f00=0x0087, f01=0x0190, f02=» 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 $ Wh_ " P X ( T X & V H "@TF P6 V Y X (P X (P r 8 Y 0 X 2P X 0V _z Y ( " T
0x191170…191176 00 00 00 00 00 00 ┆ ┆
0x191176…19130a Dummy {f00=0x0087, f01=0x0190, f02=» Y ( X $ Y X " Y X & Y X < Y > : Y : P X : X ( T X & V H " V X $ p : X Y " X Y $ X Y & X >W X < Y = " ! T W ! P =H X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D !
0x19130a…191310 00 00 00 00 00 00 ┆ ┆
0x191310…1914a4 (5, 17) Dummy {f00=0x0087, f01=0x0190, f02=» W Y ! P HW V Y V Y : : 2' " P T 6W L j : : P C F X : "0P ' Q W ' Y : W P V P Y Y Y < V E F B X _ v
0x1914a4…1914aa 00 00 00 00 00 00 ┆ ┆
0x1914aa…19163e Dummy {f00=0x0087, f01=0x0190, f02=» ` Z : : ; W ; [ [ [ B [ ( P B R I Z C : Z Z Z :( R : V E V D ' $ W V 7 F P F X =' V W V Y =P F : "Q V I
0x19163e…191640 00 00 ┆ ┆
0x191640…191644 00 00 00 00 ┆ ┆
0x191644…1917d8 Dummy {f00=0x0087, f01=0x0190, f02=»P & W P C _( W / C C P " W / P C _* W : * / " _ C P <H : & &P B V C / <H : C C W C
0x1917d8…1917de 00 00 00 00 00 00 ┆ ┆
0x1917de…191972 Dummy {f00=0x0087, f01=0x0190, f02=» >A 6 % >a 1 ( 0 W : 1W C C " ( ' PH V L ! h P* V ,V W B % P C + F I B P B P B 5 : ` `
0x191972…191978 00 00 00 00 00 00 ┆ ┆
0x191978…191b0c Dummy {f00=0x0087, f01=0x0190, f02=» I : % Y C & L L C : B T T T V : 2 ' W 2 6 2 @i " T # ' ?D .WD' #? ;B V D W ,"? :D;B D V : _B W "!@ T" B
0x191b0c…191b12 00 00 00 00 00 00 ┆ ┆
0x191b12…191ca6 Dummy {f00=0x0087, f01=0x0190, f02=» : : ,V : @ P C W $0 P @ C : ($ ) H < V <A Q I : @#0 T & C C : 6 C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W @
0x191ca6…191cac 00 00 00 00 00 00 ┆ ┆
0x191cac…191e40 Dummy {f00=0x0087, f01=0x0190, f02=»_V X^ ' h P P & 1_ P 1_ , @ - R ! - T U :J a B@ ' d w5 1 @ #0 T 8 ' : @ B B : V C @ P C #0 T & C C : @ 6 C C : ` < F
0x191e40…191e46 00 00 00 00 00 00 ┆ ┆
0x191e46…191fda Dummy {f00=0x0087, f01=0x0190, f02=»P Q W?H V Y V 7 @i ! P F P W @ ^R pVV 9c D 9a1 P @ Q W F :aW* @ ^YZP p @ ^]f @ ^]p j 2 P V W< _ 2 # ;B V T s W V P
0x191fda…191fe0 00 00 00 00 00 00 ┆ ┆
0x191fe0…192174 (5, 18) Dummy {f00=0x0087, f01=0x0190, f02=» T t W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # PT Ls.PN 2# &X 3Y $! 2P R P _ 9BP _ W 6 D " 7 $ V P F W 8 H V &
0x192174…19217a 00 00 00 00 00 00 ┆ ┆
0x19217a…19230e Dummy {f00=0x0087, f01=0x0190, f02=» V L 8 , :B , ( "@T : [ [ & Z [ 6 [ Z 7 X Z 7 : 6 2 " # T R r ;b :B , (V ; H [ [ [ Z
0x19230e…192314 00 00 00 00 00 00 ┆ ┆
0x192314…1924a8 Dummy {f00=0x0087, f01=0x0190, f02=» : Z 4 : T # ( [ : 2! : 6 2 " # ;b ; : [ v [ Z Z : R ; 6 :;d# F " < W @ # <" T & T
0x1924a8…1924ae 00 00 00 00 00 00 ┆ ┆
0x1924ae…192642 Dummy {f00=0x0087, f01=0x0190, f02=» V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 < P:" T * & : * & !`P " :J +_
0x192642…192648 00 00 00 00 00 00 ┆ ┆
0x192648…1927dc Dummy {f00=0x0087, f01=0x0190, f02=»W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b P V Pd P 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q ,^ , < # ; [
0x1927dc…1927e0 00 00 00 00 ┆ ┆
0x1927e0…1927e2 00 00 ┆ ┆
0x1927e2…192976 Dummy {f00=0x0087, f01=0x0190, f02=»W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : X &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' @ [
0x192976…19297c 00 00 00 00 00 00 ┆ ┆
0x19297c…192b10 Dummy {f00=0x0087, f01=0x0190, f02=»W P 9 S W _ V P W T V E + : & 6 [ [ [ [ $ [ [ >h [ [ R < R < R Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P R V H )_ R _X z R z
0x192b10…192b16 00 00 00 00 00 00 ┆ ┆
0x192b16…192caa Dummy {f00=0x0087, f01=0x0190, f02=» R P W ;a=a P " R & R V T W V E + : V & 6 [ [ [ [ $ [ [ &! P ( R < R < R z " ! ! R 2` { z " P ! R 2` { 1 ! { [
0x192caa…192cb0 00 00 00 00 00 00 ┆ ┆
0x192cb0…192e44 (5, 19) Dummy {f00=0x0087, f01=0x0190, f02=» $ Z %_N [ Q* R R R [ Z { R z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( 4 P 9 59D_ " P P [ ! :d" 5 : !!
0x192e44…192e4a 00 00 00 00 00 00 ┆ ┆
0x192e4a…192fde Dummy {f00=0x0087, f01=0x0190, f02=» 6 K K K K V K : N P V V Z P 2 " T W "@T '?W "? H " K :e J J " J _Z Z [ Z P F [ V 7_ W Z @
0x192fde…192fe0 00 00 ┆ ┆
0x192fe0…192fe4 00 00 00 00 ┆ ┆
0x192fe4…193178 Dummy {f00=0x0087, f01=0x0190, f02=» : J Qz : Pp 4 ! Tj_ PZ 4 WV K VWJ W +_ . * K W. _& X W X & J K : V : J T l 1 : + [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I j * B Z
0x193178…19317e 00 00 00 00 00 00 ┆ ┆
0x19317e…193312 Dummy {f00=0x0087, f01=0x0190, f02=» !00T ; X _ 9P F " X0# ; zW )0_4 J R( Z R 4! P ;)0 9U ? p Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ 8 8 !++P !--T z ;$# + V Z 9H Z [ Z 9H# [ _F P , X J
0x193312…193318 00 00 00 00 00 00 ┆ ┆
0x193318…1934ac Dummy {f00=0x0087, f01=0x0190, f02=» : ! )P9H " @# T &W &" :I : : P & _ &X _ : | : : : r : { : $0T ~ Pb 9 _ $0T [ $0T Z : R$ P $ 1T Y TdW 5 _& :
0x1934ac…1934b2 00 00 00 00 00 00 ┆ ┆
0x1934b2…193646 Dummy {f00=0x0087, f01=0x0190, f02=» : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : : #03 T jP kT T : & 9! " : $ : T W V 9! R W Q< R W Q4 R W Q$ : @#03 T $_X _^ W !W
0x193646…19364c 00 00 00 00 00 00 ┆ ┆
0x19364c…1937e0 Dummy {f00=0x0087, f01=0x0190, f02=» @ >P ( _ A > A < 2 ( @ :' $ * A @T( 2 ( A 6 A @ ( @ p A 6 ) Y V A D H V V . 1 V v A 6 : W 2 ] @i # T R
0x1937e0…1937e6 00 00 00 00 00 00 ┆ ┆
0x1937e6…19397a Dummy {f00=0x0087, f01=0x0190, f02=» ( ( A > : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8 W4 W0 W, W( W$ W W W W W W W !W "W V H P H Y ** A B A F ER A ^ R A ` b R 4
0x19397a…193980 00 00 00 00 00 00 ┆ ┆
0x193980…193b14 (5, 20) Dummy {f00=0x0088, f01=0x0190, f02=» ^ @ 6 ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT OPENED MISSING ENTRY ILLEGAL REQUESTED LENGTH FILE OPENED AS INDEX FILE FILE OPENED AS STANDARD FILE ARITHM OVERFLOW STACK OVERFLOW &IX OVFL,ARRAY:
0x193b14…193b1a 00 00 00 00 00 00 ┆ ┆
0x193b1a…193cae Dummy {f00=0x0088, f01=0x0190, f02=»IN WSM WORKBLOCK ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED WSMCTL NOT DEFINED ILLEGAL CONTROL CODE ILLEGAL INDEX VALUE FORMAT CONDITIONS CHANGED ILLEGAL PARAMETER LENGTH ERROR DATASET BUSY ILLEGAL DATASET REFERENCE
0x193cae…193cb4 00 00 00 00 00 00 ┆ ┆
0x193cb4…193e48 Dummy {f00=0x0088, f01=0x0190, f02=»NOT ADDRESSABLE SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE: W 9 " R 0 1 Y : ;a V P V P W i <a R 9a V P : @ NP ( _ @ P @ P P @ (P @ *
0x193e48…193e4e 00 00 00 00 00 00 ┆ ┆
0x193e4e…193fe2 Dummy {f00=0x0088, f01=0x0190, f02=» $ $P BT , D E @ : @ LP A L H A W A $ TW V A N V A @i ( ( A N @ V P ( R W A $ P @i ( x : @i ( : A A " E A N V A @i # P ( R4 @i ( ( A N @ V P ( R
0x193fe2…193fe8 00 00 00 00 00 00 ┆ ┆
0x193fe8…19417c Dummy {f00=0x0088, f01=0x0190, f02=» CR=
0x19417c…194180 00 00 00 00 ┆ ┆
0x194180…194182 00 00 ┆ ┆
0x194182…194316 Dummy {f00=0x0088, f01=0x0190, f02=» , i ( ( ( in D "! A Z @ @ @ ZP ( V R V W Z T :
0x194316…19431c 00 00 00 00 00 00 ┆ ┆
0x19431c…1944b0 Dummy {f00=0x0088, f01=0x0190, f02=» . t @ ,! @ P @ " t A A A ^ "V # ( A P UW T A P , n l @ Z 8 = W Q M X / S I " J T Y G L < P r H R V K N X O L _ N t_ NO!
0x1944b0…1944b6 00 00 00 00 00 00 ┆ ┆
0x1944b6…19464a Dummy {f00=0x0088, f01=0x0190, f02=» ( . X " , A j L A f L @ A b A h_T X ,T X ) A ^ A ` l > ; b : @ hP A l1+X A l_ @ Z A R @ A T @ ^ A V @ ` A X_ A f @ bV 4 " @ hT " @ j @ lP A A Z " 8 @ T @ d A @ j A f
0x19464a…194650 00 00 00 00 00 00 ┆ ┆
0x194650…1947e4 (5, 21) Dummy {f00=0x0088, f01=0x0190, f02=» A b W A b A b @ b W @ p A b @ j A f_x A ^ PZ @ & 0 P P t P @R _ _T 4 T P tW T @R W B " M
0x1947e4…1947ea 00 00 00 00 00 00 ┆ ┆
0x1947ea…19497e Dummy {f00=0x0088, f01=0x0190, f02=»W @ dT @ bZ A b @ Rl @ b A b t A rT< @ bR V ;a Q _ p 1 T p @ b A b_ p 1 M M T " 0 A n P 3P 8 C @ ZP @ 1 @ ^P @ b Q @ @ f Q
0x19497e…194980 00 00 ┆ ┆
0x194980…194984 00 00 00 00 ┆ ┆
0x194984…194b18 Dummy {f00=0x0088, f01=0x0190, f02=» A ` 0 n P 8 @ ZP @ 1 A b @ b @ l A b @ f A f_ @ ZP @ bV @ ( 8 V " @ fT @ TP @ ZP @ A b A j A p . 0! n T @ ZP @ " 1 8Pr @ : @ ^ @ ` fRX A b *9l
0x194b18…194b1e 00 00 00 00 00 00 ┆ ┆
0x194b1e…194cb2 Dummy {f00=0x0088, f01=0x0190, f02=» " ! U 0 A U _ "PZ @ : f PF R % < < ! n T @ ZP @ ! 5 = 8 A A A A A @ fT @ < @i % P 8 % P $ P(W P ";A 8 , P
0x194cb2…194cb8 00 00 00 00 00 00 ┆ ┆
0x194cb8…194e4c Dummy {f00=0x0088, f01=0x0190, f02=» @ ( A B @ V @ & 8 @ Z 8_X @ @ ZT I @_NP @ @ &P Zv f_| 8 A B A $_ A B A @ f A @ ! A ^ Pd @ @ RPL @ TP l R @ fT @ >V l Rt ) I I @ I B A W P >RV )W A
0x194e4c…194e52 00 00 00 00 00 00 ┆ ┆
0x194e52…194fe6 Dummy {f00=0x0088, f01=0x0190, f02=»R* l @ P Q ( 8 L U 8 < =B BZ < R. B T : P T T V W Z. _4 V W , @P ; P t B _ @ fT A P 8
0x194fe6…194fec 00 00 00 00 00 00 ┆ ┆
0x194fec…195180 Dummy {f00=0x0088, f01=0x0190, f02=» B @ @ T @ RP B @ bV @ Q B 1 @ f Q Q @ A " ( R$ ( @ bV @ H B ) I B " 8 $ % " # C C C C *T W #T A d PX PN (T Ph ,T PZ )TT A f : fR:
0x195180…195186 00 00 00 00 00 00 ┆ ┆
0x195186…19531a Dummy {f00=0x0088, f01=0x0190, f02=» 9hP Q " ;B 2 Pl L ?b Z P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L % QL W C " _* Q P Q V _ W " A < V " i
0x19531a…195320 00 00 00 00 00 00 ┆ ┆
0x195320…1954b4 (5, 22) Dummy {f00=0x0088, f01=0x0190, f02=»V 8 W " A Z A b .T @ ZP P " A b " X X 8 " , , A A :B A Q (P _ # # H A " A p A r 4 4 @ p I T A r A b A bT A r T @ bR A p N @ b " @ Z! PD
0x1954b4…1954ba 00 00 00 00 00 00 ┆ ┆
0x1954ba…19564e Dummy {f00=0x0088, f01=0x0190, f02=»:8 :9 :A :B :C :D :E :F $P WH A A 0R 9Q 0 A :B _" A " A H 0R$ 9U AR FQ 0:D A H _* 'T :H_ A H " A p A r 4 T A r A p " , "! R _U
0x19564e…195654 00 00 00 00 00 00 ┆ ┆
0x195654…1957e8 Dummy {f00=0x0088, f01=0x0190, f02=» TT V A ( @ A T " V L ( A( J( A T " A @ P A ( A " ! 1
0x1957e8…1957ee 00 00 00 00 00 00 ┆ ┆
0x1957ee…195982 Dummy {f00=0x0088, f01=0x0190, f02=» /" C C C P P _2 W W W /$W* W W /'W W W W W // C C C P$ P C P P " &<H :
0x195982…195988 00 00 00 00 00 00 ┆ ┆
0x195988…195b1c Dummy {f00=0x0088, f01=0x0190, f02=» @c A (@ @a@bW AaAb1 P0 0 Ib ? c W+0 c 6a + _ 0 0 _ A ? 0 0 c0 cbT 0 _3 cb_ C+ C 0 o m@jo m@jo V `( ` jo` Y ` jo` U jo jo + @i0'o0CPCR Aijb o$0"o0C a k3 }20 baP j}a k a a ` c 7a Q 0 _ @a1 P0 BC0
0x195b1c…195b20 00 00 00 00 ┆ ┆
0x195b20…195b22 00 00 ┆ ┆
0x195b22…195cb6 Dummy {f00=0x0088, f01=0x0190, f02=»T 0 _5 cb_ P ` c 2a _-0 0Cj0CD V D ` a j0CD Wa D j0CD D a "a j0CD Wa D ` _ 0(` j0C& ` BC? T'Hm$ a 2a _ 1 T b 0 b T _ c 2a ? ` c 2a ? 0 o m@jo m@jo 0C ` jo` ` jo` Y ` jo` U @i0)o0CPCR Aijb o$0"o0C a k3
0x195cb6…195cbc 00 00 00 00 00 00 ┆ ┆
0x195cbc…195e50 Dummy {f00=0x0088, f01=0x0190, f02=»V 0C 0 _D ` c 2a _Wj0C V j0C& A @c4 D a jWa 0CD D a "a jWa 0CD D _ 4 ` 0 `@c A 1 M0 0 c W-0 c 6a - _ 0 0 0 _ A ? 0 0 c0 cbT 0 _5 cb_ C+ C 0 o m@jo m@jo S `( ` jo` Y ` jo` U jo + jo @i0'o0CPCR Aijb o$0"o0
0x195e50…195e56 00 00 00 00 00 00 ┆ ┆
0x195e56…195fea Dummy {f00=0x0088, f01=0x0190, f02=» 7a _ ` ju 0C`*u _ ` fo ` Oo0 9 ` 0 I P ` 0 ` u c& s ` g1 J0 ` c& 1 J0 2a _@@vAg? T Hm a 2a ! _3 Iu _< ?" 2a ! ?# ` c 2a ! $?#0 o m@jo m@jo 0C ` jo` ` jo` Y ` jo` U @i0)o0CPCR Aijb o$0"o0C a k3 }20 baP
0x195fea…195ff0 00 00 00 00 00 00 ┆ ┆
0x195ff0…196184 (5, 23) Dummy {f00=0x0088, f01=0x0190, f02=» O jY O jS 0C 0 _D ` c 2a (' )_Wj0C S j0C& A W d ` c A 0 0 1 J0 @c4 A 1 Q0 Hg W 0 Ig c W9 c W40 c 6a 4 _ 0 Hg W 0 _, A ?*0 0 c0 cbT 0 _< cb_ P ` c 2a +,-._- B CB D jE C jE D 0 0Cj0CD S D j0CD
0x196184…19618a 00 00 00 00 00 00 ┆ ┆
0x19618a…19631e Dummy {f00=0x0088, f01=0x0190, f02=»' D oX I` J` K` D l? `P b hlb Z P D W, b ` j0CD ` D b j0CD D j0CDP Z DP `( ` j0C` C ` D 0 D D DD FDjF C aD a j0C` a 4 P ^ 9 ^'1 ^ Q4 ` b a hoa ^b T `a b b j0CD ` D 4 b*Hp b&0 o o[ O k-jo k
0x19631e…196320 00 00 ┆ ┆
0x196320…196324 00 00 00 00 ┆ ┆
0x196324…1964b8 Dummy {f00=0x0088, f01=0x0190, f02=» ` c 2a /0010 _ A 0"o0B b*Hp b&0 b0 4 1 3 ! s / V ! X k p [ J 3 a . ! T J x C
0x1964b8…1964be 00 00 00 00 00 00 ┆ ┆
0x1964be…196652 Dummy {f00=0x0088, f01=0x0190, f02=»STORING ON DISC k p N p O WSM REL 4. OLD FORM V O VOLUME T @ U FILE T ) @ Y 4 H T F V VOLUME R : @ U FILE R : ) @ Y 6 V R : E S
0x196652…196658 00 00 00 00 00 00 ┆ ┆
0x196658…1967ec Dummy {f00=0x0088, f01=0x0190, f02=» D 1: A W 2: A W 3: A W 4: A W 5: A W 6: A W 7: A W 8: A W 9: A W WSM REL g 2. NEW FORM 4. OLD FORM V VOLUME R : @ U FILE R
0x1967ec…1967f2 00 00 00 00 00 00 ┆ ┆
0x1967f2…196986 Dummy {f00=0x0088, f01=0x0190, f02=» 3 = S 4 = S ON BOTTOM 5 = S ON TOP OF NEW PAGE 6 = TEMPORARY MAXIMUM SIZE, LINES: & COLUMNS: , 3 AUTOMATIC ENTERING: H @ ^ DECIMAL POINT OR COMMA: @ ^' DECORATION DEFAULT VALUES:
0x196986…19698c 00 00 00 00 00 00 ┆ ┆
0x19698c…196b20 Dummy {f00=0x0088, f01=0x0190, f02=» ^ @ ^ @ ^ * R = REVERSED IMAGE DYNAMIC U @ ^ @ ^ @ ^ @ ^ * H = HIGH W DEFAULT GUIDING MESSAGE: @ Z " + 4 = H % 1 D = u B ^
0x196b20…196b26 00 00 00 00 00 00 ┆ ┆
0x196b26…196cba Dummy {f00=0x0088, f01=0x0190, f02=» ( 6 1 K0 (A jC F jD F g h f& fb a n 0 na nY p @e d e f&@aAbAhIg @b(A A W 0 z0 q,Ia o` iJW o_ iKAe i i Hh5 jd ` mo`J je `"mo`J bRIp bT ba a%joa l a 0 oa@h f0 deT A`W @` fb b Ia 0+ k!baW 0+ k baRI a 2a
0x196cba…196cc0 00 00 00 00 00 00 ┆ ┆
0x196cc0…196e54 (5, 24) Dummy {f00=0x0089, f01=0x0190, f02=» Ia q p,8 b p p jb zp p $bd p jb zp p ba c jc d jl c jl a dzp l ; p Ia> i aW8Hc (`f1 e - p jb zp p !b% Ia p W Ha p W jb zp p bi' p,8 jl f jl i Ia jl a dzp l ; p AdI` ? ae ` p,8 j` zp `d ? p jb zpHdI p j` zp p !`% Ia W@Ha W; e b be
0x196e54…196e5a 00 00 00 00 00 00 ┆ ┆
0x196e5a…196fee Dummy {f00=0x0089, f01=0x0190, f02=»`eo p ja zp p $a ja $b jb (ab c p a ja zp p fzp b, zb ba!b% b 0-b b b lZj{b l Av c p c @ p W_ p p jzp a p WNHdK p (`d abg p a 9 a 0 daT/ p jl zpjl a p j` l !`% jl dzp l ; W q f e @b"eh ? e fe e W4 f e Ab e ? eh fh d Ab d
0x196fee…196ff4 00 00 00 00 00 00 ┆ ┆
0x196ff4…197188 Dummy {f00=0x0089, f01=0x0190, f02=»R p e p jb zp p !bWj bXAkW p b pbju zp pb,u !uWI l]jl f dzp l ; p 4 p jl zp p ja zp af$jl e ja l $a jl dzp l ; Ik p cPjc d c ud cf sp d? J` `e ` f d` 0 dab a j da p,8 ja zp a (af lZ c 0 deTS p p,8 jb zp b (ab p e 7 p ja zp
0x197188…19718e 00 00 00 00 00 00 ┆ ┆
0x19718e…197322 Dummy {f00=0x0089, f01=0x0190, f02=»cPjc d a, ac ud cf sp d? @e i i BaAh@b? ? b 0+ k ba: a 2a ? `e ` bd b 0-b b b` oY a 2a ad d a u h au o T u c (d c`f bc0 ab ac cd c af aQ@d p p jb zp bf p b jb zp"bcVjb zp b L"baH$ba e p b l[jb zp!b% b 0-b b b j{b
0x197322…197328 00 00 00 00 00 00 ┆ ┆
0x197328…1974bc Dummy {f00=0x0089, f01=0x0190, f02=»jo dzp o ; p $ue>!aW: ceW$ p jb zp p $a ja $b jb ab jl c dzp l ; p aVW a d H` a`d bao H` ` { d w o. bad b`o ja zp(af1 p ja zp p )aW p jzp p WC l^jl d dzp l ; W0 p ja zp p aW#jl f jl a $a jl dzp l ; _C aQ cPjc ac ud cf sp
0x1974bc…1974c0 00 00 00 00 ┆ ┆
0x1974c0…1974c2 00 00 ┆ ┆
0x1974c2…197656 Dummy {f00=0x0089, f01=0x0190, f02=»/oN r jr o 0 o c 0+ k ca@e 2a !!!!? lZ a Ia 0 JaP 0$Ja@eW 0(JaAeH` (qJ Hc ja z (af p p ja zp p af p jb zp p %b% af jl f jl J dzp l ; p W p jzp J p Q p W9 p jb zp p (bd) p jb zp p ,b jb (bJ p fzp b, zb b jb zp(bd& p jb zp p ,b
0x197656…19765c 00 00 00 00 00 00 ┆ ┆
0x19765c…1977f0 Dummy {f00=0x0089, f01=0x0190, f02=» zp p (bdI p jb zp p +b,9jb (bK/ p a ja zp p fzp b, zb a 0-a a a j{a l Av b jb zp(bdC p jb zp p +b,3 a ja b jb (bK fzp b, zb a 0-a a a j{a l Av p jf zpje f p ud cf sp `e ` d b&Ip b* bc 0 rAh@b? T.Hm+(a 1 T T O b*Hp b&0 b0
0x1977f0…1977f6 00 00 00 00 00 00 ┆ ┆
0x1977f6…19798a Dummy {f00=0x0089, f01=0x0190, f02=»4 `f ad bh be b 0 `c 0 b a "ag `Q_ 0 4 c h c n T b bc b j cbo 4 oY j o 4 b @c0 zP q, p p Ib$j` zp ` "` ` ) p p, _ p p W j` zp ` *` p J p _ !q,Djb zp"bd:(bd0 p jb zp!b% Ia W Ha Ac p jq zp p (` p (iq W p q%Ac4 bpjr zb r
0x19798a…197990 00 00 00 00 00 00 ┆ ┆
0x197990…197b24 (5, 25) Dummy {f00=0x0089, f01=0x0190, f02=» + { A e ( " s v 1 * S M > > 1 ++DYNAMIC L: C: ++STATIC L:
0x197b24…197b2a 00 00 00 00 00 00 ┆ ┆
0x197b2a…197cbe Dummy {f00=0x0089, f01=0x0190, f02=» # 6 ? +@ j C C
0x197cbe…197cc0 00 00 ┆ ┆
0x197cc0…197cc4 00 00 00 00 ┆ ┆
0x197cc4…197e58 Dummy {f00=0x0089, f01=0x0190, f02=» f 8 F Z ^ b(A jC H jD H @q A 1/~K bP oUj~ bo 1 N0 0 )d% @q? 9 : Kc (R @qHq ? $0 0 0 0 0 $0 0 0 c c c He W W 2a Z(0 cI` 2c c" c# ? ? ? 2c ? 0 0 0 @t1 M &Ip * 0
0x197e58…197e5e 00 00 00 00 00 00 ┆ ┆
0x197e5e…197ff2 Dummy {f00=0x0089, f01=0x0190, f02=» 0 0 1 N0 _ 0 0 0 1 N0 _ 0 Tb) [] c WQ c WLKd Jf WK0 ^(T ^(8 W> ^ < ` c W c W%Kd Jf W$0 T ) [ c W 0 ^( # ^(8 _*0 cb0 a ? c ^&9 0 ^& _ 2a : ? c ` 0 T 0 T#W 0 T6 c W b a jb a "bP ` 0 cb0 c` ` 2a
0x197ff2…197ff8 00 00 00 00 00 00 ┆ ┆
0x197ff8…19818c Dummy {f00=0x0089, f01=0x0190, f02=» D bs0.b b bwj0CD b D Hd bt0.b b bxW3 b t b 0 ^"T ^"9 b W Hf b 0.b b bx yt0.y y byj0CD b D y 0 ^!P Id W ^!: 0(y 0 ^ T ^ 9 0(y 0 ^ T ^ 9 0(y 0 ^%T ^%9 0(y 0 ^ T ^ 9 0(y He 0(y 0 ^ T ^ 9 0(y 0 ^ T ^ 9 ^ < ^ = 0(y W 0(y W 0(y 0 ^#T ^#9 0(y 0 ^$T
0x19818c…198192 00 00 00 00 00 00 ┆ ┆
0x198192…198326 Dummy {f00=0x0089, f01=0x0190, f02=» a y P$w 9 : a a 0 ^(T ^(9 b 0 TT b oT 9 a 0 Z T bP oZ 9 a 0 T ! b c jo c 9 a Id<0 TG O P Ie fO P W ) [ jO } Hf t bP btdOb ^' P 0 OT bP oO 9 a 0 T4 b c jo c c jo c jP o P P$ cP$ c 9 a 0 Z T- bP oZ
0x198326…19832c 00 00 00 00 00 00 ┆ ┆
0x19832c…1984c0 Dummy {f00=0x0089, f01=0x0190, f02=» iG? 0 0 0 A Hg `+ ` jS 0` ? ` 0 I P ` 0 `0 0 c0 cbT 0 ? bc_ @q ` cO 2a v jC v jD v i ` 0 ` m j m ` ` P` ` 0 ` Ax p @`? 1 J0 ` c 2a !"0 1 N0 _&Ar `( ` j0 ` u ` b* b $Db
0x1984c0…1984c6 00 00 00 00 00 00 ┆ ┆
0x1984c6…19865a Dummy {f00=0x0089, f01=0x0190, f02=» d W d ` c A $0 4 b c jc a 0-c c cbjl c do l yb#yS9@c c cc oQ,j0CD o D b b Acfo bc oQ j0CDbo Db 4 depruP @b0 | Z .4 d "dgO Z Z jZ h d oWdZ o o. nT c b)hZ cbn T bc b jZ cbo oV cPjZ c o d@hW d%4 @x lXjZ r l Hc
0x19865a…198660 00 00 00 00 00 00 ┆ ┆
0x198660…1987f4 (5, 26) Dummy {f00=0x0089, f01=0x0190, f02=»#^&^%k ^ 8 ^$8 ^!;Hd ^!: a cw oUHd 1/~KW 1/~L `sId ` Hf (t ` (` a W j~ ` Id jb ~ btj~ b f~ $w)$ c) c` cc c`*c) o4d~ `o oU a` c`W`d~ w|x }Z bw ` h}` ~a P d~a } c a W 6` W ba b _% a b b ;$` "` Hf (t a f~a c a j~ c bQ baj~abo
0x1987f4…1987fa 00 00 00 00 00 00 ┆ ┆
0x1987fa…19898e Dummy {f00=0x0089, f01=0x0190, f02=» X ] 8 4 * + o S : L B m P P S w c + ) Q Y * 9Z-+*$.,BE YZZZ k @
0x19898e…198994 00 00 00 00 00 00 ┆ ┆
0x198994…198b28 Dummy {f00=0x0089, f01=0x0190, f02=» WSM REL PARAMETER SETTING D : S TYPE: SIZE: % X * / VERSION: 8 > LINE: C Z Z Z FIELD-ID: R ORIGIN: # ' DATA TO APPL.: 6 @ ^$ : MUST ENTER: H @ ^
0x198b28…198b2e 00 00 00 00 00 00 ┆ ┆
0x198b2e…198cc2 Dummy {f00=0x0089, f01=0x0190, f02=» ^# DUPL.: @ ^( @ T AUTO S/D/B: # @ ^ ' PRINT POS., LINE & COL.: A E X F L/R ADJUST: @ ^! DEFAULT VALUE: ~ GUIDING MESSAGE: @ Z EXTENDED PROMPT: @ Z VA
0x198cc2…198cc8 00 00 00 00 00 00 ┆ ┆
0x198cc8…198e5c Dummy {f00=0x0089, f01=0x0190, f02=» A A A A A 0 #0 $ c F } > ? F C
0x198e5c…198e60 00 00 00 00 ┆ ┆
0x198e60…198e62 00 00 ┆ ┆
0x198e62…198ff6 Dummy {f00=0x0089, f01=0x0190, f02=» . m_ lY b f q p s r AbA 0 T) a a !jo m jo a a ab o9 j0CDao Da p,> jd zp(d ? rd,qd ? p je zp p "eh1 a ja zp!a%)jo m jo f a ab o9 j0CDao f Da p _` p a ab o9 j0CD zp Da p ja zp p p,V (ad jb zp b W bh e c a hla de T
0x198ff6…198ffc 00 00 00 00 00 00 ┆ ┆
0x198ffc…199190 Dummy {f00=0x0089, f01=0x0190, f02=» hla de jo c d` cb oQ j0CDco Dc a eb p ? "dg a ab oQ j0CD m q D ? a ab oQij0CD m D b( b j0 b r b grj0 b s hs b g h D 0 D D DD a @b ab oQ ji C ji D i j0 b i i Gi 4 c h qchl ,sc sc4 (D* ` W? `D ` $`*D `*I ` :W)I ` 1 ` `
0x199190…199196 00 00 00 00 00 00 ┆ ┆
0x199196…19932a Dummy {f00=0x0089, f01=0x0190, f02=»b s,Ppjc zs c fja zs"au s ja zs a` a j~ a u` a j~a k a j` zs ` Ae t 0 ~a@e t s jt zs s s,P ja zs auu cb ah a`V a j~ a u` a j~a k a Ae t 0 ~a@e t u "u ? ` ah c jc u b s,P(jb zs b bu _ s jt zs s _ cb 0 a0 4 b l[He }cW }b0
0x19932a…199330 00 00 00 00 00 00 ┆ ┆
0x199330…1994c4 (5, 27) Dummy {f00=0x0089, f01=0x0190, f02=» `h w` wrhnt dr T jk nt okhosw drwT sw x AdW ` na a hna d` T Aejo w drh|x.o wP xw xe x.Q_j|ewo xe ew!^'1 dn ^' ast @f ` hn` oa T! ` 6` s Hf t W s AfW a aw _6 s p 4 a P0 Hm Q0 Im W Q0 Hm W b*Hp b&0 0 o od k- Oj
0x1994c4…1994ca 00 00 00 00 00 00 ┆ ┆
0x1994ca…19965e Dummy {f00=0x0089, f01=0x0190, f02=» 0 b0 ! 9 PW QAm0 0 $P cO W c 4 @m0 c 00 01 P c c _ 02 0, c0 c T c W 03 W Am 4 0 4 r Ir r+ r s jS 0rs s jP 0rs s ` j` 0rs ` s j` 0rs0 ` P ^ 80$` W ^ 9$` ` $` ` ` s j` 0rsHs ` ` s j` 0rs ` s j` 0rs ` s
0x19965e…199660 00 00 ┆ ┆
0x199660…199664 00 00 00 00 ┆ ┆
0x199664…1997f8 Dummy {f00=0x0089, f01=0x0190, f02=» s ` a jZ oajZ `0rs P `4 0 z0 0 { ` a b c g* g h u* u v w i p r Ir r+ r s s(j` 0rs s ja 0rs s jv 0rs s jw 0rs s jb 0rs s jc 0rs s jI 0rsIr `+ v+ b+ a w c Lb Mc }^ o. mZ f& d e @e q h}q 0`a < 2q He i-8 j{i 0bc i a (au ` a j
0x1997f8…1997fe 00 00 00 00 00 00 ┆ ┆
0x1997fe…199992 Dummy {f00=0x0089, f01=0x0190, f02=»$tu tu t y _ xt xq*xu x* xq05xAbj dex0yt ex qx y t j deq0ytW 06t tjk mt ~kj deq~ s p,P jzp f p jzp 0`a p jzp 0rs p eq fqHb fx a ? a jq 0`a q a ? He d fSjf *eh he e a ? He *eh he gd Ni W He ` a ? jq 0`a0 q T."q EHe p,PWjzp f p
0x199992…199998 00 00 00 00 00 00 ┆ ┆
0x199998…199b2c Dummy {f00=0x0089, f01=0x0190, f02=»b b ca ab a `* ` *a` ` `c0 ` `0-` ` b` a q _. a b c jb 0qaIr b+ a jc 0qa c jq 0bc c 0 q P AdW @d ` "P ` 0 q`P W `V"P `U04q` c c Id j` 0bc0 ` P ^"8W ^"9Id vW04`v v`06v v c j` 0bc ^ 90 ` P ^ >W 0 ` P ^ <W 0 ` P ^ =0 ` P ^!;W ^!:0
0x199b2c…199b32 00 00 00 00 00 00 ┆ ┆
0x199b32…199cc6 Dummy {f00=0x0089, f01=0x0190, f02=»$8W ^$9 c jy 0bc ^&9 ^(9(q ? c x (xq ? a* a *ca b c ja 0bc `V04a` xa a ` j` 0bc0 ` ` c s 2` ? ^&8 c j b Ir Hq Hv (t b c < _v R Ha b c at _ ca_ ca_ ^(8Ha jTst0bc st b c atjTsa0bc ca_ P aHa jZ st0bc st b c atjZ sa0bc ca_
0x199cc6…199ccc 00 00 00 00 00 00 ┆ ┆
0x199ccc…199e60 Dummy {f00=0x0089, f01=0x0190, f02=»t0bc st b c atjosa0bcj` o `j` o ` ca? l] ` Ha "t b c @aj` 0bc(` a c ` Ha t W ` P ajZ s l` s Ha jZ st0bc st b c atjZ sa0bc ca? A` W @` W 4 tc ta*t* t* ta t 05tAaW @a4 a b 0 `aP j^b oa b "b a "a _ 4 j dtr0`s@e4 = [
0x199e60…199e66 00 00 00 00 00 00 ┆ ┆
0x199e66…199ffa Dummy {f00=0x0089, f01=0x0190, f02=» " $ 0 6 B*X++ B*X M:S: HURB9Z-+*#$., ++WHICH PRINT-DEVICE <GP> OR <LP> ? H ! % * 0 8 A Q $ a D C C
0x199ffa…19a000 00 00 00 00 00 00 ┆ ┆
0x19a000…19a194 (5, 28) Dummy {f00=0x008a, f01=0x0190, f02=» j 9 1 J0 p @b@i(A ;Ip 0 jC G jD G iG u c& s c` Hp a nr0 `na ` gIg A Ic p jzp p _ p 0 0 1 K w&Ip w* wa 0 w Ip w( r Ig A 0 {W rN A Hc ? 0 0 ww0 0 q eq0-e e e jl {e0 0 0 f b 0+ o baRB a 2a
0x19a194…19a19a 00 00 00 00 00 00 ┆ ┆
0x19a19a…19a32e Dummy {f00=0x008a, f01=0x0190, f02=» q $jl {e nm c hlc n T b bc b jlcbn 0 0 c 2a p T Ai a p ` -(q er e-8 j{e l (q e 0 e ejzp e r q AvIi p @b Ic ? @b p Ic` q eq0-e e e jl {e0 lT p _$@i ` c a 2a ? u c& s ` g_) p p Ab Ic ? Nr A W a & ` c a 2a
0x19a32e…19a334 00 00 00 00 00 00 ┆ ┆
0x19a334…19a4c8 Dummy {f00=0x008a, f01=0x0190, f02=»H C jH D W d W d ` c _ 0 0 4 q @cIb4 p,,j` zp ` " p jq zp p q% f`j` `h+ p W3AcW/ p 8 p jq zp p q% p j` zp f`j` *`h p _/4 tw @ @ @ @ @ @ @ . jt j ` R04 j Tj 04 06
0x19a4c8…19a4ce 00 00 00 00 00 00 ┆ ┆
0x19a4ce…19a662 Dummy {f00=0x008a, f01=0x0190, f02=» kgb k ? k !kU lpW lqb l _/ 23 ? 23 A 0 2w 23 ? 23 A 0 2w 23 ` k/b k _ 23 j ob j ljfl b l ` = kbb k ` k/b k _ kcb k W 23"` W W 23 . k/b
0x19a662…19a668 00 00 00 00 00 00 ┆ ┆
0x19a668…19a7fc Dummy {f00=0x008a, f01=0x0190, f02=»P0 P j w k/b k WA 23 `"` W W! kf . b k d k W t W0 s " Bb s jk d s k s 0 "t "a a ? A ? 4 A w j k !kU #kj #ki W ? ? #04 4bk 0bc)kk b c bk 0bc
0x19a7fc…19a800 00 00 00 00 ┆ ┆
0x19a800…19a802 00 00 ┆ ┆
0x19a802…19a996 Dummy {f00=0x008a, f01=0x0190, f02=» @ ? !kV $ )kX A @ 6 0 4w A 45d 4 @ 6 " ( w` w w @ ? ` @ ? bk #kh1 - )!ka%!k`!!kd !k0 !kb bk #kW A W d k kbd k _y kcd k kbd k bk kY _ d
0x19a996…19a99c 00 00 00 00 00 00 ┆ ┆
0x19a99c…19ab30 Dummy {f00=0x008a, f01=0x0190, f02=»4 bk 7 k _ labl 6 b l 4 j m fm % u % v b m W b m W b m 4 I O Kj h w P I w w bk w kk W @ w _. I b 4 w bk 0bc!kk c b w k w W b c _(4 bk !ka'!k ,!k
0x19ab30…19ab36 00 00 00 00 00 00 ┆ ┆
0x19ab36…19acca Dummy {f00=0x008a, f01=0x0190, f02=» / +! O' nt w hnw k P$W& P" P" bk P" kiOW&!kY !kZ (` W ( P# W P# 4 kad k H H @ d k 4 k. P# h P# k P W P# P#4 . b % 1 R W I Z
0x19acca…19acd0 00 00 00 00 00 00 ┆ ┆
0x19acd0…19ae64 (5, 29) Dummy {f00=0x008a, f01=0x0190, f02=» !"()+:;=?@ ++UF!FID!INP 2J k p NAME SETTING FIELD-ID: @ lG ! " #
0x19ae64…19ae6a 00 00 00 00 00 00 ┆ ┆
0x19ae6a…19affe Dummy {f00=0x008a, f01=0x0190, f02=» : ` j` ` j ` ` Z!0 0- + Q ? c c 0 cb0 cc c 0 cb0 @xT @ 2a V A I`-0 P (a I ? ` (` j ` , j` ` W> ` ` i( ? ` 0 }j ` d} j ` ` ` ` !j } ` 0 ` c W- `
0x19affe…19b000 00 00 ┆ ┆
0x19b000…19b004 00 00 00 00 ┆ ┆
0x19b004…19b198 Dummy {f00=0x008a, f01=0x0190, f02=» _ ? @ ` ` - H & `b cH f cAy ` `c lA *P f P I I P 0 ojo ` 0 ` I I `b c I < "c - P (P a ? j o ` 0 ` Wa ` 0 ` j o P P b b"0 bbj P 0 bb b b"0
0x19b198…19b19e 00 00 00 00 00 00 ┆ ┆
0x19b19e…19b332 Dummy {f00=0x008a, f01=0x0190, f02=» a W30 ? a W' a W" a c"W d d ` c d 2a 4 @ , j j P R _,A 4 ` j` ` / jb b ` P `j ` ` < P ! 4 @ _ A 4 b ` bc P c cb c c Q ` jl
0x19b332…19b338 00 00 00 00 00 00 ┆ ┆
0x19b338…19b4cc Dummy {f00=0x008a, f01=0x0190, f02=»b j b` b` ` d b `S W b j b W 4 c 0 l@ b "` b`jk oc%k2 #k4 jlc k c cb 0 lT l b $b #bQ A W ` c ? ` 8 c`8 T# b H b $ b # W9 ` W `c ` c ? ` fo` c) c c ) kRjoc k c c 8 _ 0 2 b PN PH P9 P< T < I
0x19b4cc…19b4d2 00 00 00 00 00 00 ┆ ┆
0x19b4d2…19b666 Dummy {f00=0x008a, f01=0x0190, f02=» c`8 < H < ? < ? < Z < ? < : P < < b h4b oc < b h4b oc T c c < H < W < c`8 < : 0 2 b q% v< v P c ? < : < ? < : < < : 0 2 b q% vP vP ? v c ? v c ? < : < c`8 <! k/ b
0x19b666…19b66c 00 00 00 00 00 00 ┆ ┆
0x19b66c…19b800 Dummy {f00=0x008a, f01=0x0190, f02=» hkb oc X& kU b hkb oc T c W T : T W T : q qT c`P T k/ b hkb oc T c c`P T T H W c`P <! : TvH Wh T : T WW Ty q @ q P. T) c`Pb T^ q k/ b hkb oc T c c`PD T@_3 THW c`PY <! : WN c`PI <! kV b hkb oc T c
0x19b800…19b806 00 00 00 00 00 00 ┆ ┆
0x19b806…19b99a Dummy {f00=0x008a, f01=0x0190, f02=»k. b hkb oc T c c`P _ W c`X 4 @ @ v n] b hnb oc T b b W Hd ?#?$ b mChmb oc T4 b b b W& qc q j oq% X $b # Z W + Y ?%$b W A m }^ c b h}b o P _ cP b b,P j zb b j " h j zb) % b _+0- q h{q } q q
0x19b99a…19b9a0 00 00 00 00 00 00 ┆ ┆
0x19b9a0…19bb34 (5, 30) Dummy {f00=0x008a, f01=0x0190, f02=»jk mb Z k b hZ bq qT A W W cv 4 y yP Q kS b hkb oc T c ` c qchoq k T cq c W TYI cvW T kT b hkb oc T c T T T b#h4b oc T c T} Ty Tu kU b hkb oc Tf c WC b$h4b oc TU c TN kT b hkb oc T? c T8 T4 T0 kU b hkb oc T! c T" b"h4b
0x19bb34…19bb3a 00 00 00 00 00 00 ┆ ┆
0x19bb3a…19bcce Dummy {f00=0x008a, f01=0x0190, f02=» I W T H cvW 0 4 b b bh4b oc Ts y j y 5b c T kT b hkb oc T c T % y % y % yP T W T T % y y k/ b hkb oc Ty_> kU b hkb oc Th c W0 kT b hkb oc T! c TM TI TE kU b hkb oc T6 c T7 bOh4b oc T c T ?' b h4b oc T c T ?' c W y W y
0x19bcce…19bcd4 00 00 00 00 00 00 ┆ ┆
0x19bcd4…19be68 Dummy {f00=0x008a, f01=0x0190, f02=»v`P5 b h6b ov T)jk 7b!kW v v`P kS b hkb ov T c W 4 0 yb y 0 y y ybQ _ y 0 b b P b4 y ' y H L 5 D j v 4 r z E M ` b d
0x19be68…19be6e 00 00 00 00 00 00 ┆ ┆
0x19be6e…19c002 Dummy {f00=0x008a, f01=0x0190, f02=» !0 0 x
0x19c002…19c008 00 00 00 00 00 00 ┆ ┆
0x19c008…19c19c Dummy {f00=0x008a, f01=0x0190, f02=» n mX@c@ c o9 AcA Dj C (` C C+9 D D Iv Iy 9 ? 0 P jC jD ? c ,c j c 8 c0 c c j` c ` c 0. `j 0 2 b P2 P, P& P h2 c T j 3 c W < W) 2
0x19c19c…19c1a0 00 00 00 00 ┆ ┆
0x19c1a0…19c1a2 00 00 ┆ ┆
0x19c1a2…19c336 Dummy {f00=0x008a, f01=0x0190, f02=» I < W < j c 8 ? < j 0 2 b `P ` c P k/ b hkb c T c _ c c P kW b hkb c T c P T k/ b hkb c X" c W T W q qj ` c T Ws c Pn T Wf T W
0x19c336…19c33c 00 00 00 00 00 00 ┆ ┆
0x19c33c…19c4d0 Dummy {f00=0x008a, f01=0x0190, f02=» UQ, ,c j c( @ c Q j0CD D ? W4 W/ b jb j a `a0.` ` ` j0b ` y yUY1 4 b kXh2b c T$j 3b! % b h3 k P c W 4 k. b hkb c T c _ 4 j j 4 @ @ n[ b hnb c T b b j b c Id ? b mChmb c T
0x19c4d0…19c4d6 00 00 00 00 00 00 ┆ ┆
0x19c4d6…19c66a Dummy {f00=0x008a, f01=0x0190, f02=» ` h{` } ` q` h{ q cq ' qA j { ` ` ` ` b j zb b ` j` zb ` b b,P q jq zb(q b jq zb q W bh b` q`h qbm P qh q` b hmb ` T jk mb Z k b hZ bq `qT A W W c 4 bSj a 5b a kVhk c T c ` ` h `k c c W T^I
0x19c66a…19c670 00 00 00 00 00 00 ┆ ┆
0x19c670…19c804 (5, 31) Dummy {f00=0x008a, f01=0x0190, f02=»5b a c T; a j a a c c P" c P b"h4b c T c _ W$ a ! a j a a _ a A 4 bSj a 5b a b'h4b c T $ c @ bcjk b%k2 #k4 b b P _ )k1 A X c W T H I c W c ? 0 4 b b bh4b c Toj a 5b
0x19c804…19c80a 00 00 00 00 00 00 ┆ ┆
0x19c80a…19c99e Dummy {f00=0x008a, f01=0x0190, f02=»b c T c Tp bSj 5b c c P6 c P/ bOh4b c T c $ ? b h4b c T $ c ? c a ! a j a a _ a W W @ 4 ` ` 0(` j ` j c c 4 0 l bc jk b%k2 #k4 jl k b b "0 lT* l b c ` 0 ` ` `j `b ` `
0x19c99e…19c9a0 00 00 ┆ ┆
0x19c9a0…19c9a4 00 00 00 00 ┆ ┆
0x19c9a4…19cb38 Dummy {f00=0x008a, f01=0x0190, f02=»a ! @ a b " W "b b W b b R j a a a _K a 4 j j j 0 aU04 a M a* a P a P R a W a +aT aTb a0 a!aT aT @ ac Q b0CDa Da_Q4 1 P c 7a ? b*Hp b&0 o oI k- jo k 0 b0
0x19cb38…19cb3e 00 00 00 00 00 00 ┆ ┆
0x19cb3e…19ccd2 Dummy {f00=0x008a, f01=0x0190, f02=»Kc0 r0-q q q jR {q@u P AuW }_ k. a 0 yaT j}a k a a GDei (a Id O 0 OT G ei (a y0 Z T G ei (a g0 Z T G ei (a U0 TG@ 0 0 0 T G2ei (a A < _ p _ 1 4 a * 1 1 T ` 1 P c W a
0x19ccd2…19ccd8 00 00 00 00 00 00 ┆ ┆
0x19ccd8…19ce6c Dummy {f00=0x008a, f01=0x0190, f02=» h) jOh m 1 NT8 ` `g< `c' o0jO ho j`1 NT O. ` `c j`1 NT _ 1 LT 4 % Q 2 9 : D e r | h w S V . V j T S + ! c ! ,
0x19ce6c…19ce72 00 00 00 00 00 00 ┆ ┆
0x19ce72…19d006 Dummy {f00=0x008a, f01=0x0190, f02=» - - K O O K - - j ! O ! j f H 1 2 # 3 - 4 7 5 A 6 K 7 U 8 E NUMBER OF OCCUPIED SECTORS: MAXIMUM SIZE (ROW * COLUMN): * AUTOMATIC ENTERING: ^ DECIMAL POINT OR COMMA: ^' DECORATION DEFAULTS. SCREEN: ^
0x19d006…19d00c 00 00 00 00 00 00 ┆ ┆
0x19d00c…19d1a0 Dummy {f00=0x008a, f01=0x0190, f02=» * 9 H0 X 0 A U u
0x19d1a0…19d1a6 00 00 00 00 00 00 ┆ ┆
0x19d1a6…19d33a Dummy {f00=0x008a, f01=0x0190, f02=» 6 8 : ( J F " D < c H < ? < ? ? P < b h4 8 k m u H w { } J F " D @b c b b h4b c T b
0x19d33a…19d340 00 00 00 00 00 00 ┆ ┆
0x19d340…19d4d4 (5, 32) Opaque[0x194]
0x19d4d4…19d4da 00 00 00 00 00 00 ┆ ┆
0x19d4da…19d66e # DirEnt {nam=»W:CRT «, typ=»LM«, f00=0xab5c, f01=0x0000, f02=0x1160, f03=0x0000}
0x19d4da…19d66e IdxSect {
0x19d4da…19d66e f00 = 0x008b // 0x19d4da @0x0
0x19d4da…19d66e f01 = 0x0038 // 0x19d4dc @0x2
0x19d4da…19d66e gno = [ // 0x19d4de @0x4
0x19d4da…19d66e [0x00]: C0x008b.0x0.0
0x19d4da…19d66e [0x01]: C0x008b.0x1.0
0x19d4da…19d66e [0x02]: C0x008b.0x2.0
0x19d4da…19d66e [0x03]: C0x008b.0x3.0
0x19d4da…19d66e [0x04]: C0x008c.0x0.0
0x19d4da…19d66e [0x05]: C0x008c.0x1.0
0x19d4da…19d66e [0x06]: C0x008c.0x2.0
0x19d4da…19d66e [0x07]: C0x008c.0x3.0
0x19d4da…19d66e [0x08]: C0x008d.0x0.0
0x19d4da…19d66e [0x09]: C0x008d.0x1.0
0x19d4da…19d66e [0x0a]: C0x008d.0x2.0
0x19d4da…19d66e [0x0b]: C0x008d.0x3.0
0x19d4da…19d66e [0x0c]: C0x008e.0x0.0
0x19d4da…19d66e [0x0d]: C0x008e.0x1.0
0x19d4da…19d66e [0x0e]: C0x008e.0x2.0
0x19d4da…19d66e [0x0f]: C0x008e.0x3.0
0x19d4da…19d66e [0x10]: C0x008f.0x0.0
0x19d4da…19d66e [0x11]: C0x008f.0x1.0
0x19d4da…19d66e [0x12]: C0x008f.0x2.0
0x19d4da…19d66e [0x13]: C0x008f.0x3.0
0x19d4da…19d66e [0x14]: C0x0090.0x0.0
0x19d4da…19d66e [0x15]: C0x0090.0x1.0
0x19d4da…19d66e [0x16]: C0x0090.0x2.0
0x19d4da…19d66e [0x17]: C0x0090.0x3.0
0x19d4da…19d66e [0x18]: C0x0091.0x0.0
0x19d4da…19d66e [0x19]: C0x0091.0x1.0
0x19d4da…19d66e [0x1a]: C0x0091.0x2.0
0x19d4da…19d66e [0x1b]: C0x0091.0x3.0
0x19d4da…19d66e ]
0x19d4da…19d66e }
0x19d66e…19d674 00 00 00 00 00 00 ┆ ┆
0x19d674…19d808 Dummy {f00=0x008b, f01=0x0190, f02=» f inCR R R R R fR R R R * d
0x19d808…19d80e 00 00 00 00 00 00 ┆ ┆
0x19d80e…19d9a2 Dummy {f00=0x008b, f01=0x0190, f02=» i FC < f 2@ FC * s) $ B 4 P 0 B
0x19d9a2…19d9a8 00 00 00 00 00 00 ┆ ┆
0x19d9a8…19db3c Dummy {f00=0x008b, f01=0x0190, f02=»
0x19db3c…19db40 00 00 00 00 ┆ ┆
0x19db40…19db42 00 00 ┆ ┆
0x19db42…19dcd6 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19dcd6…19dcdc 00 00 00 00 00 00 ┆ ┆
0x19dcdc…19de70 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19de70…19de76 00 00 00 00 00 00 ┆ ┆
0x19de76…19e00a Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e00a…19e010 00 00 00 00 00 00 ┆ ┆
0x19e010…19e1a4 (5, 33) Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e1a4…19e1aa 00 00 00 00 00 00 ┆ ┆
0x19e1aa…19e33e Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e33e…19e340 00 00 ┆ ┆
0x19e340…19e344 00 00 00 00 ┆ ┆
0x19e344…19e4d8 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e4d8…19e4de 00 00 00 00 00 00 ┆ ┆
0x19e4de…19e672 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e672…19e678 00 00 00 00 00 00 ┆ ┆
0x19e678…19e80c Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e80c…19e812 00 00 00 00 00 00 ┆ ┆
0x19e812…19e9a6 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19e9a6…19e9ac 00 00 00 00 00 00 ┆ ┆
0x19e9ac…19eb40 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19eb40…19eb46 00 00 00 00 00 00 ┆ ┆
0x19eb46…19ecda Dummy {f00=0x008b, f01=0x0190, f02=»
0x19ecda…19ece0 00 00 00 00 00 00 ┆ ┆
0x19ece0…19ee74 (5, 34) Dummy {f00=0x008b, f01=0x0190, f02=»
0x19ee74…19ee7a 00 00 00 00 00 00 ┆ ┆
0x19ee7a…19f00e Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f00e…19f014 00 00 00 00 00 00 ┆ ┆
0x19f014…19f1a8 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f1a8…19f1ae 00 00 00 00 00 00 ┆ ┆
0x19f1ae…19f342 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f342…19f348 00 00 00 00 00 00 ┆ ┆
0x19f348…19f4dc Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f4dc…19f4e0 00 00 00 00 ┆ ┆
0x19f4e0…19f4e2 00 00 ┆ ┆
0x19f4e2…19f676 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f676…19f67c 00 00 00 00 00 00 ┆ ┆
0x19f67c…19f810 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f810…19f816 00 00 00 00 00 00 ┆ ┆
0x19f816…19f9aa Dummy {f00=0x008b, f01=0x0190, f02=»
0x19f9aa…19f9b0 00 00 00 00 00 00 ┆ ┆
0x19f9b0…19fb44 (5, 35) Dummy {f00=0x008b, f01=0x0190, f02=»
0x19fb44…19fb4a 00 00 00 00 00 00 ┆ ┆
0x19fb4a…19fcde Dummy {f00=0x008b, f01=0x0190, f02=»
0x19fcde…19fce0 00 00 ┆ ┆
0x19fce0…19fce4 00 00 00 00 ┆ ┆
0x19fce4…19fe78 Dummy {f00=0x008b, f01=0x0190, f02=»
0x19fe78…19fe7e 00 00 00 00 00 00 ┆ ┆
0x19fe7e…1a0012 Dummy {f00=0x008b, f01=0x0190, f02=»
0x1a0012…1a0018 00 00 00 00 00 00 ┆ ┆
0x1a0018…1a01ac Dummy {f00=0x008b, f01=0x0190, f02=»
0x1a01ac…1a01b2 00 00 00 00 00 00 ┆ ┆
0x1a01b2…1a0346 Dummy {f00=0x008b, f01=0x0190, f02=»
0x1a0346…1a034c 00 00 00 00 00 00 ┆ ┆
0x1a034c…1a04e0 Dummy {f00=0x008b, f01=0x0190, f02=»
0x1a04e0…1a04e6 00 00 00 00 00 00 ┆ ┆
0x1a04e6…1a067a Dummy {f00=0x008b, f01=0x0190, f02=»
0x1a067a…1a0680 00 00 00 00 00 00 ┆ ┆
0x1a0680…1a0814 (5, 36) Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a0814…1a081a 00 00 00 00 00 00 ┆ ┆
0x1a081a…1a09ae Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a09ae…1a09b4 00 00 00 00 00 00 ┆ ┆
0x1a09b4…1a0b48 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a0b48…1a0b4e 00 00 00 00 00 00 ┆ ┆
0x1a0b4e…1a0ce2 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a0ce2…1a0ce8 00 00 00 00 00 00 ┆ ┆
0x1a0ce8…1a0e7c Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a0e7c…1a0e80 00 00 00 00 ┆ ┆
0x1a0e80…1a0e82 00 00 ┆ ┆
0x1a0e82…1a1016 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a1016…1a101c 00 00 00 00 00 00 ┆ ┆
0x1a101c…1a11b0 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a11b0…1a11b6 00 00 00 00 00 00 ┆ ┆
0x1a11b6…1a134a Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a134a…1a1350 00 00 00 00 00 00 ┆ ┆
0x1a1350…1a14e4 (5, 37) Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a14e4…1a14ea 00 00 00 00 00 00 ┆ ┆
0x1a14ea…1a167e Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a167e…1a1680 00 00 ┆ ┆
0x1a1680…1a1684 00 00 00 00 ┆ ┆
0x1a1684…1a1818 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a1818…1a181e 00 00 00 00 00 00 ┆ ┆
0x1a181e…1a19b2 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a19b2…1a19b8 00 00 00 00 00 00 ┆ ┆
0x1a19b8…1a1b4c Dummy {f00=0x008c, f01=0x0190, f02=» LETLETGO TOGOT
0x1a1b4c…1a1b52 00 00 00 00 00 00 ┆ ┆
0x1a1b52…1a1ce6 Dummy {f00=0x008c, f01=0x0190, f02=» =><>=<=<>=><>=<=<>&:STR+-+-/*ABSINTSGNTIMDAYSYSLENNUMDATCDVPOS) ! "BLRIULHIBZSANBNINLLICAPRUP @ ! " $ ( 0 YNLRDBS801;01;24;80;1?;25;01;01;80;0=P B < G< G<G ?< ?< =
0x1a1ce6…1a1cec 00 00 00 00 00 00 ┆ ┆
0x1a1cec…1a1e80 Dummy {f00=0x008c, f01=0x0190, f02=» B P
0x1a1e80…1a1e86 00 00 00 00 00 00 ┆ ┆
0x1a1e86…1a201a Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a201a…1a2020 00 00 00 00 00 00 ┆ ┆
0x1a2020…1a21b4 (5, 38) Dummy {f00=0x008c, f01=0x0190, f02=» B ( , 2 8 > D R
0x1a21b4…1a21ba 00 00 00 00 00 00 ┆ ┆
0x1a21ba…1a234e Dummy {f00=0x008c, f01=0x0190, f02=» ! Q *
0x1a234e…1a2354 00 00 00 00 00 00 ┆ ┆
0x1a2354…1a24e8 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a24e8…1a24ee 00 00 00 00 00 00 ┆ ┆
0x1a24ee…1a2682 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a2682…1a2688 00 00 00 00 00 00 ┆ ┆
0x1a2688…1a281c Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a281c…1a2820 00 00 00 00 ┆ ┆
0x1a2820…1a2822 00 00 ┆ ┆
0x1a2822…1a29b6 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a29b6…1a29bc 00 00 00 00 00 00 ┆ ┆
0x1a29bc…1a2b50 Dummy {f00=0x008c, f01=0x0190, f02=» B { Y 0( x
0x1a2b50…1a2b56 00 00 00 00 00 00 ┆ ┆
0x1a2b56…1a2cea Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a2cea…1a2cf0 00 00 00 00 00 00 ┆ ┆
0x1a2cf0…1a2e84 (5, 39) Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a2e84…1a2e8a 00 00 00 00 00 00 ┆ ┆
0x1a2e8a…1a301e Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a301e…1a3020 00 00 ┆ ┆
0x1a3020…1a3024 00 00 00 00 ┆ ┆
0x1a3024…1a31b8 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a31b8…1a31be 00 00 00 00 00 00 ┆ ┆
0x1a31be…1a3352 Dummy {f00=0x008c, f01=0x0190, f02=» P P * P X 85 09 018509012.3
0x1a3352…1a3358 00 00 00 00 00 00 ┆ ┆
0x1a3358…1a34ec Dummy {f00=0x008c, f01=0x0190, f02=» B
0x1a34ec…1a34f2 00 00 00 00 00 00 ┆ ┆
0x1a34f2…1a3686 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a3686…1a368c 00 00 00 00 00 00 ┆ ┆
0x1a368c…1a3820 Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a3820…1a3826 00 00 00 00 00 00 ┆ ┆
0x1a3826…1a39ba Dummy {f00=0x008c, f01=0x0190, f02=»
0x1a39ba…1a39c0 00 00 00 00 00 00 ┆ ┆
0x1a39c0…1a3b54 (5, 40) Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a3b54…1a3b5a 00 00 00 00 00 00 ┆ ┆
0x1a3b5a…1a3cee Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a3cee…1a3cf4 00 00 00 00 00 00 ┆ ┆
0x1a3cf4…1a3e88 Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a3e88…1a3e8e 00 00 00 00 00 00 ┆ ┆
0x1a3e8e…1a4022 Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a4022…1a4028 00 00 00 00 00 00 ┆ ┆
0x1a4028…1a41bc Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a41bc…1a41c0 00 00 00 00 ┆ ┆
0x1a41c0…1a41c2 00 00 ┆ ┆
0x1a41c2…1a4356 Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a4356…1a435c 00 00 00 00 00 00 ┆ ┆
0x1a435c…1a44f0 Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a44f0…1a44f6 00 00 00 00 00 00 ┆ ┆
0x1a44f6…1a468a Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a468a…1a4690 00 00 00 00 00 00 ┆ ┆
0x1a4690…1a4824 (5, 41) Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a4824…1a482a 00 00 00 00 00 00 ┆ ┆
0x1a482a…1a49be Dummy {f00=0x008d, f01=0x0190, f02=» F R m o K n
0x1a49be…1a49c0 00 00 ┆ ┆
0x1a49c0…1a49c4 00 00 00 00 ┆ ┆
0x1a49c4…1a4b58 Dummy {f00=0x008d, f01=0x0190, f02=» z,`0 {-`0 |.`0 `0 U0 Y0 T A 0 ' ) ` a)0 `oaP 0 `$0 `W Ap 0 ?a` `)0 `?a0 J 0 _Y ` 0 `@g1 F0 ! b*Hp b&0 b0 0 0 0 c 2a _ 0 _ 0 0 c0 cbT 0 _) bc_ @ 6@ _m ` 0 ` A { `*Hp `& a 0 I P a 0 a
0x1a4b58…1a4b5e 00 00 00 00 00 00 ┆ ┆
0x1a4b5e…1a4cf2 Dummy {f00=0x008d, f01=0x0190, f02=»Hm a W @r? ` 7a % %_ A A ? 2A _ A ? 4 0 a(a" jo l ` ? @`0 o `ac: "a ? (a ` < 2a ` /0 b (b (a He k0do k 0 b b $ 2b W 0 o2a a ? 0 o_ 0 c0 ccW 0 P Q R W A`0 P Q 0 _ T Hm (a E b*Hp b&0
0x1a4cf2…1a4cf8 00 00 00 00 00 00 ┆ ┆
0x1a4cf8…1a4e8c Dummy {f00=0x008d, f01=0x0190, f02=» ` 0 b(b 1 _ 0 o `acR'*a `? c ` a 0 abS 0 P(0 P#0 baW a D a K 2a W& a W& a W!0 c0 T 0 ccW o0 cc a W a W 4 $0 0 4 0 (0 '0 4 a b 0 b b+0 b0 b&Ip 0 b**c m b 0 b0 0 b1 Ic0 b 0 k baZ a D b&Ip b* b 0
0x1a4e8c…1a4e92 00 00 00 00 00 00 ┆ ┆
0x1a4e92…1a5026 Dummy {f00=0x008d, f01=0x0190, f02=» X c _ ko b %k5 #k6 0 } m@do } jo m@ `( ` jo` Y ` jo` U @i0!o0 PDR Ai0"o0 $@ 1Ic.Ig+jb o$ b G c k3 }20 bcP j}c k c c c _ fo _ 0"o0 Ic b hob S X Ig @ ! b W b fo fo$ c@$c c cb_ c _ X c _ c c X c j _ c c 86 c j ?7 86
0x1a5026…1a502c 00 00 00 00 00 00 ┆ ┆
0x1a502c…1a51c0 Dummy {f00=0x008d, f01=0x0190, f02=»Pc` l? ` hl` o T0$Pc & ` "Pc jk o `Pc ` Pc b ?8#Pc ?6 c ?7 c ?7 86 c ?7 mC c hmc o P "` L b c h{c-o 86W9 ` c ?7fo ` $c `" `T bk o #k47%k23do mc?6do mc c!?7 ko k< k= k> k9 W 0 ^(T ^(8 c ?7?6 c"?7 ko k: k; c#?7?6 c# cT,jc P $bc
0x1a51c0…1a51c6 00 00 00 00 00 00 ┆ ┆
0x1a51c6…1a535a Dummy {f00=0x008d, f01=0x0190, f02=» ?7(` *0 4 b b bh4b o T jc 5b c%' b$h4b o X3 b c h{c-o T- c jb {c b bq c 0 c c c cq c ?7 ` 0 o?6 mC c hmc o T c ?7 ko b %k5 #k6 ?6 c ?7 b b jc /b0 c0# 0 mc0$c c T hmc o 86 b b!* c'?7 b 0 } m@do } do } jo m@ `( ` jo` U 0%o0 T 0"o0 `
0x1a535a…1a5360 00 00 00 00 00 00 ┆ ┆
0x1a5360…1a54f4 (5, 42) Dummy {f00=0x008d, f01=0x0190, f02=»ko b _ o! 9 ! 8 c ?7?: b c h{c-o T b h{b-R $cb c hRc o P ?6 c ?7 c ?7 c ?7 $b "b 4 4 jo bj4 ko k9 k8 4 4 n. b`P jo`bn `b4 0&_ 4 6 l " * " < < 8 @ | ~ z T > b N f v z ~ b < R | L
0x1a54f4…1a54fa 00 00 00 00 00 00 ┆ ┆
0x1a54fa…1a568e Dummy {f00=0x008d, f01=0x0190, f02=» U ` u E P 6 < G n } s @ C * v M L O C t _ W " # % & ' ( * N O P
0x1a568e…1a5694 00 00 00 00 00 00 ┆ ┆
0x1a5694…1a5828 Dummy {f00=0x008d, f01=0x0190, f02=»DDEFINITION++NOW PRINTING ALREADY DEFINEDFORMAT SECTION:EXTENDED PROMPT :GUIDING MESSAGE :FORMAT DEFINITION:XZTT9TTTZZ9YYYYZZZE/ HURB - - -
0x1a5828…1a582e 00 00 00 00 00 00 ┆ ┆
0x1a582e…1a59c2 Dummy {f00=0x008d, f01=0x0190, f02=»UF FIDTAB PICTUR BPOOL ATTAB K o J N o J K o G N o G L Z M Z I/O-ERROR ILLEGAL TYPE PRINTER OCCUPIED E VALUE : O FIELD-ID NOT FOUND SYNTAX ERROR: ZZj MUST BE (.) OR (,) MUST BE (M:) OR (S:) MUST BE (YES) OR
0x1a59c2…1a59c8 00 00 00 00 00 00 ┆ ┆
0x1a59c8…1a5b5c Dummy {f00=0x008d, f01=0x0190, f02=» PRESS <ENTER> TO CONFIRM TOO FEW INPUT CHARACTERS PRINT-DEVICE NOT OPERABLE MUST BE (LEFT) OR (RIGHT) FIELD NAME ALREADY DEFINED WORKING AREA Hd EXCEEDED COMPULSORY FIELD NOT ENTERED SPACE NOT ALLOWED IN FIELD ID VALIDATION : "
0x1a5b5c…1a5b60 00 00 00 00 ┆ ┆
0x1a5b60…1a5b62 00 00 ┆ ┆
0x1a5b62…1a5cf6 Dummy {f00=0x008d, f01=0x0190, f02=»NOT EXCEED MAX ROW SIZE: ZZj i DISK POOL -ERROR. STATUS: } #BASIC-VERB OR -FUNCTION NOT ALLOWED FILE: o NOT FOUND ON THIS VOLUME MUST BE WITHIN ZZ9 AND ZZ9j $ILLEGAL DIRECTION TO WANTED FIELD-ID SYNTAX ERROR FOUND IN LINE : 9999 %1S
0x1a5cf6…1a5cfc 00 00 00 00 00 00 ┆ ┆
0x1a5cfc…1a5e90 Dummy {f00=0x008d, f01=0x0190, f02=»T ALLOWED #PRINTOUT POSITIONS MUST BE OUTSIDE ZZ9 * ZZ9 3MUST BE A FIELD NAME, WSM WORK ITEM OR A DATA TABLE 6PRESS <ENTER> TO CONFIRM OR <PRINT> TO CONFIRM & PRINT +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT, % <DEL> = DELETION, <DUP> = DUPLICATE.
0x1a5e90…1a5e96 00 00 00 00 00 00 ┆ ┆
0x1a5e96…1a602a Dummy {f00=0x008d, f01=0x0190, f02=» VERSION NO: TYPE: RELEASE DATE: PAGE: WSM REL RELEASE DATE: WSM CREATOR TOOLS FUNCTION SELECTION: 1 = < A H 2 = < A D 3 = = A H 4 = = A D E POSITION FIELD OR
0x1a602a…1a6030 00 00 00 00 00 00 ┆ ┆
0x1a6030…1a61c4 (5, 43) Dummy {f00=0x008d, f01=0x0190, f02=»ILL EOI ENT PROTECT S/D/B ADJ F VAL HUIB +/ (0 *7=):%#$.?A>-64C'9@" 813,5 B!&;< " $ & ( * , . 0 2 4 6 8 : ; < = > ? @ A B C D
0x1a61c4…1a61ca 00 00 00 00 00 00 ┆ ┆
0x1a61ca…1a635e Dummy {f00=0x008d, f01=0x0190, f02=» ' / ; J Y i y ' / 8 A J S ] g s 4 N h , K " k " " $ % % & ? & e & ' ( ( )
0x1a635e…1a6360 00 00 ┆ ┆
0x1a6360…1a6364 00 00 00 00 ┆ ┆
0x1a6364…1a64f8 Dummy {f00=0x008d, f01=0x0190, f02=» 6 A J ! '_2<@ r& @ P A d ! '_L '_T & & : R : <<H P < : & R P W R < _ <h =W V V Q W _H _N & 9Wd F Y C WL C ( B
0x1a64f8…1a64fe 00 00 00 00 00 00 ┆ ┆
0x1a64fe…1a6692 Dummy {f00=0x008d, f01=0x0190, f02=» ( _X
0x1a6692…1a6698 00 00 00 00 00 00 ┆ ┆
0x1a6698…1a682c Dummy {f00=0x008d, f01=0x0190, f02=» B1 F L
0x1a682c…1a6832 00 00 00 00 00 00 ┆ ┆
0x1a6832…1a69c6 Dummy {f00=0x008d, f01=0x0190, f02=» D % @T C W" H W A A R Q [ _ _ ,
0x1a69c6…1a69cc 00 00 00 00 00 00 ┆ ┆
0x1a69cc…1a6b60 Dummy {f00=0x008d, f01=0x0190, f02=»
0x1a6b60…1a6b66 00 00 00 00 00 00 ┆ ┆
0x1a6b66…1a6cfa Dummy {f00=0x008d, f01=0x0190, f02=» [ & Pd & P &@T H P *X r R T T & X P B P W B PW RD PW Y P T & U T @ P Q T P T n Z T U TN T T& P@ @ A @
0x1a6cfa…1a6d00 00 00 00 00 00 00 ┆ ┆
0x1a6d00…1a6e94 (5, 44) Dummy {f00=0x008e, f01=0x0190, f02=»& X B T T T P Q Z ' Pj _x B T W T C T W >H W" T T >H &P C W P T| R Td T U T @ P T U B TZT. Z P
0x1a6e94…1a6e9a 00 00 00 00 00 00 ┆ ┆
0x1a6e9a…1a702e Dummy {f00=0x008e, f01=0x0190, f02=»P W( L B >h U U [ : @ @ 4# P W @ H `P W @ C P WL @ P @ `T T " C T & TlW T " Pf @ _@ B U T " TJ @ P, P@ @ T M U
0x1a702e…1a7034 00 00 00 00 00 00 ┆ ┆
0x1a7034…1a71c8 Dummy {f00=0x008e, f01=0x0190, f02=» `PB @ H P P T @W Q L P Q T @ T W L @ Y ` T W8 P I W* P Y T W K W J $ K a Y T4( X ` P X W a
0x1a71c8…1a71ce 00 00 00 00 00 00 ┆ ┆
0x1a71ce…1a7362 Dummy {f00=0x008e, f01=0x0190, f02=» @ L L [ TR R P lR Q T W T U Z P " T T lP T U W P Q W lR Q Z Z , P Z P Q T lT` T U T T @ T& P @ A @ W Pf L
0x1a7362…1a7368 00 00 00 00 00 00 ┆ ┆
0x1a7368…1a74fc Dummy {f00=0x008e, f01=0x0190, f02=» ` P( P P _ L ] W L M W P H P _ I W a W B M M H [ [ ^ C A ^ A f A b @ ( C P P Pv @Pv zWt Tn @ ( X >h A h TX [ @ ( f L A
0x1a74fc…1a7500 00 00 00 00 ┆ ┆
0x1a7500…1a7502 00 00 ┆ ┆
0x1a7502…1a7696 Dummy {f00=0x008e, f01=0x0190, f02=» C ( zT J _D B ( @ hT0 @ fT* A f A ^ Q T Z >H jW: ( K @ f C ( J A f B =H K zTb @ fT P2 @ j ( L ` jP >H j_ _l @ b C ( * zT ^ R Q W C W W Z Z
0x1a7696…1a769c 00 00 00 00 00 00 ┆ ┆
0x1a769c…1a7830 Dummy {f00=0x008e, f01=0x0190, f02=» LWT P P T@ P C W T P & T Q P C W L L ( B P X T B Q Q Z P B ( C B * C / ' ( B T Tt Z PjW T^
0x1a7830…1a7836 00 00 00 00 00 00 ┆ ┆
0x1a7836…1a79ca Dummy {f00=0x008e, f01=0x0190, f02=» : @ * T C ( C * 4<HT _ R <A_ <A <a ^ C *<h 5 @ * T ( 8 Y U W W B ( K J T P B ( * *V. K C ( * zT J C ( * J J ( ,V J J N_T B ( * * R _
0x1a79ca…1a79d0 00 00 00 00 00 00 ┆ ┆
0x1a79d0…1a7b64 (5, 45) Dummy {f00=0x008e, f01=0x0190, f02=» W W [ : B TP, B W B P ( P zT K C ( zT @ ( T ( J < @ P K W Z * P( * J T K C ( zT _. B ( ( K J
0x1a7b64…1a7b6a 00 00 00 00 00 00 ┆ ┆
0x1a7b6a…1a7cfe Dummy {f00=0x008e, f01=0x0190, f02=» _ $ L * E J E 2 zT J W C ( T ( zTr J " &WR Z T& D K Xv _l @T _0 X C ( zT W @ C W C W R W [ : W R _ &<H P <
0x1a7cfe…1a7d00 00 00 ┆ ┆
0x1a7d00…1a7d04 00 00 00 00 ┆ ┆
0x1a7d04…1a7e98 Dummy {f00=0x008e, f01=0x0190, f02=»R <A_ <A <a ^ <h 5 P ;H ' T P X _* : C W C [ : @ P W @ P T T & P P| @ _" P T A W T A W @ A W Q T *:H & T @ P Q W [ :
0x1a7e98…1a7e9e 00 00 00 00 00 00 ┆ ┆
0x1a7e9e…1a8032 Dummy {f00=0x008e, f01=0x0190, f02=» ' ' _ #0 0T & ! T P & ! X T C ` z 2 J Y ( x P* Y * ` : x y Q W Q Y W X " " X X . 8 X 0P X T 5 ! Y * ` : y X VH X X ( x
0x1a8032…1a8038 00 00 00 00 00 00 ┆ ┆
0x1a8038…1a81cc Dummy {f00=0x008e, f01=0x0190, f02=»Ph9 R^9 X !@PP X X * b ) Y * Y , X , x X *YrP y X " x Y X " T Y _ v_ B U C Q C D @ B R d X X * $" ~_> @ Y X * n_R X !@XX y X # x V y X X * P P 1 _ 1 : X * @ X
0x1a81cc…1a81d2 00 00 00 00 00 00 ┆ ┆
0x1a81d2…1a8366 Dummy {f00=0x008e, f01=0x0190, f02=» _ x T X H X X * , )$ P _ : X " X ) X : ` z ' Y 2 y x C y X C C X ( x Tn B 9 R 9 X ! T v_ y C Q " T J X !
0x1a8366…1a836c 00 00 00 00 00 00 ┆ ┆
0x1a836c…1a8500 Dummy {f00=0x008e, f01=0x0190, f02=» !? x P Q( B y " y $ c C _$ _ y _> x XH X X # C _6 B ]p P C Q8X<_T x XH @ Y c C y XV X x $ x X X # _ " O C C ( # B P B
0x1a8500…1a8506 00 00 00 00 00 00 ┆ ┆
0x1a8506…1a869a Dummy {f00=0x008e, f01=0x0190, f02=» Y Y . : " $ : 2! Y " h X "T X X ' ! Y 0T V h : 2' R P P X
0x1a869a…1a86a0 00 00 00 00 00 00 ┆ ┆
0x1a86a0…1a8834 (5, 46) Dummy {f00=0x008e, f01=0x0190, f02=» W W W W W W W z Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 W U X Q W Y 0 6 9H Y * W W z X 0 X +" X *9h P2 R Y ?_ P P Y +W^ ` Y + R WL
0x1a8834…1a883a 00 00 00 00 00 00 ┆ ┆
0x1a883a…1a89ce Dummy {f00=0x008e, f01=0x0190, f02=» ! X 0 Y 8 F P : Y 0 X 0 X 2] X 8 Y 0 F : : X 0 :H* : X 2T Y 2 : C 1 B ] : z X +! U 9K Y ( Y + 9H Y * 2 Y ( Y ? Y + 4 0 6 2 : C ( C : L C _" C
0x1a89ce…1a89d4 00 00 00 00 00 00 ┆ ┆
0x1a89d4…1a8b68 Dummy {f00=0x008e, f01=0x0190, f02=»P. P8 ( h B X # V : 6_0 F_> < : : : : ( $ ` : R : : : W W X 0Q Y ( Y *P f X <' X X X *# X ( " Qv " P X 0P: Vv_` " P4 T hWZ " P
0x1a8b68…1a8b6e 00 00 00 00 00 00 ┆ ┆
0x1a8b6e…1a8d02 Dummy {f00=0x008e, f01=0x0190, f02=» C W @ X (T W X y 6 Y ( : X (;n < 6 L @ ( $ ( " ` d d R : L ^ Y . Y ,W Y . X ( X ." Pj X 0R T & K T6 Y *P( B Q xW :H &_ tW j X . X 2QH Y *T2 ` : " P$ X 0U X *# P P
0x1a8d02…1a8d08 00 00 00 00 00 00 ┆ ┆
0x1a8d08…1a8e9c Dummy {f00=0x008e, f01=0x0190, f02=» P & Y *T : X ?! T X &P V H " P ` ^ X ?! P* R Q$ X &P V D ! P $ ! P %_ ` : V Y " X .9H $ P & X ( " Qv Y +Q R " P W " U ( Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h
0x1a8e9c…1a8ea0 00 00 00 00 ┆ ┆
0x1a8ea0…1a8ea2 00 00 ┆ ┆
0x1a8ea2…1a9036 Dummy {f00=0x008e, f01=0x0190, f02=»W $ Y ( : X *:h X (! # P X & V L TbW X , X 0P@ T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l _r X ( P Y (_ P* | P| Y 8 X 8 X $ &Wh_ " P X ( T X & V H "@TF | P6 V Y X (P ^
0x1a9036…1a903c 00 00 00 00 00 00 ┆ ┆
0x1a903c…1a91d0 Dummy {f00=0x008e, f01=0x0190, f02=»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 X $ : : X Y " X Y $ X Y & X >W X < Y = " ! T W @ ! P =H @
0x1a91d0…1a91d6 00 00 00 00 00 00 ┆ ┆
0x1a91d6…1a936a Dummy {f00=0x008e, f01=0x0190, f02=» 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 : 6 : 2' " P T FW : T : z C X & : "0P ' Q W ' Y :
0x1a936a…1a9370 00 00 00 00 00 00 ┆ ┆
0x1a9370…1a9504 (5, 47) Dummy {f00=0x008e, f01=0x0190, f02=» B H C : X @ ; [ W X B ; [ Z : : ; W ; [ [ [ B [ ( P B R I Z C : Z Z Z :( R : V E V D ' $ T ( W V 7 P
0x1a9504…1a950a 00 00 00 00 00 00 ┆ ┆
0x1a950a…1a969e Dummy {f00=0x008e, f01=0x0190, f02=» ( W C C P x W & P C x_( W / C C P x W / & P C x_* W / _ C P <H : &P B V C / <H
0x1a969e…1a96a0 00 00 ┆ ┆
0x1a96a0…1a96a4 00 00 00 00 ┆ ┆
0x1a96a4…1a9838 Dummy {f00=0x008e, f01=0x0190, f02=» B 'W 6 ( W~ >A 6 % >a 1 ( 0 W : 1W C C ( ' PB V L ! ^ " P* V ,V W B % P C + I B P B P B 5 : 6
0x1a9838…1a983e 00 00 00 00 00 00 ┆ ┆
0x1a983e…1a99d2 Dummy {f00=0x008e, f01=0x0190, f02=» I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @i " T # ' ?D W<' #? ;B V D W ,"? :D;B D V : _: L C L C B C : 6
0x1a99d2…1a99d8 00 00 00 00 00 00 ┆ ┆
0x1a99d8…1a9b6c Dummy {f00=0x008e, f01=0x0190, f02=» & C C : J C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0 T B 'W B B " : P PR L R R _ R _ # Q R V > _V X^ '
0x1a9b6c…1a9b72 00 00 00 00 00 00 ┆ ┆
0x1a9b72…1a9d06 Dummy {f00=0x008e, f01=0x0190, f02=» #0 T 8 ' : B B : V C P C #0 T & C C : J C C : N , r , , * r * L R . V T P P T P ] Y 0P Q W?H V Y V 7
0x1a9d06…1a9d0c 00 00 00 00 00 00 ┆ ┆
0x1a9d0c…1a9ea0 Dummy {f00=0x008e, f01=0x0190, f02=» 2 P V W8 _ 2 # ;B V T s W V P L , V 2P " 2 P V D ! R T V P V W V _ 8^n D @ Vt @ 2 ! 9B V T t W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 #
0x1a9ea0…1a9ea6 00 00 00 00 00 00 ┆ ┆
0x1a9ea6…1aa03a Dummy {f00=0x008e, f01=0x0190, f02=» X V & : H ^ 'W 'W '_8i|i i i :l:d:h W W W 6 2 W6 @i E " T@# ; [ # :H 2 T Z L L D V, W # L D V $ W D V L , :B ,
0x1aa03a…1aa040 00 00 00 00 00 00 ┆ ┆
0x1aa040…1aa1d4 (5, 48) Dummy {f00=0x008f, f01=0x0190, f02=» 2 W " # T R ;b W " ;d# _ :B , (Vh ; H [ [ [ z ;AV" Z H " ; : & Z 4 : Z 4 : T # ( " V T # :A ( Q W @i " P [ :;H 2 ;h# X@
0x1aa1d4…1aa1da 00 00 00 00 00 00 ┆ ┆
0x1aa1da…1aa36e Dummy {f00=0x008f, f01=0x0190, f02=» ;f" #?_" [ v [ h Z Z : R ; 6 :;d# F " 0 P:" T * & : * & !`P " :J +_ +Q v_2 , T T XF W 1 N P X _& R W
0x1aa36e…1aa374 00 00 00 00 00 00 ┆ ┆
0x1aa374…1aa508 Dummy {f00=0x008f, f01=0x0190, f02=» P Pd P 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q ,^ , < # ; [ _ ' d V W V 4! P < X 4 9d $ & ! R + :
0x1aa508…1aa50e 00 00 00 00 00 00 ┆ ┆
0x1aa50e…1aa6a2 Dummy {f00=0x008f, f01=0x0190, f02=» & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' [ [ Z Z : V ) " TV *V &V : V S W
0x1aa6a2…1aa6a8 00 00 00 00 00 00 ┆ ┆
0x1aa6a8…1aa83c Dummy {f00=0x008f, f01=0x0190, f02=» Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P V H )_ _X z R z ! P 1` { V (9h T W z 9e! I Z ! : " Tz *V &V PP= ;@ R P W ;a=a P "
0x1aa83c…1aa840 00 00 00 00 ┆ ┆
0x1aa840…1aa842 00 00 ┆ ┆
0x1aa842…1aa9d6 Dummy {f00=0x008f, f01=0x0190, f02=» &! P z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z v Q P _ T { [ [ Q@ [ { R [ _ Z ! Z $ Z %_N [ Q* v R [ Z {
0x1aa9d6…1aa9dc 00 00 00 00 00 00 ┆ ┆
0x1aa9dc…1aab70 Dummy {f00=0x008f, f01=0x0190, f02=» D % [ ( 4 P 9 59D_ " P P [ ! :d" 5 : !! gg++ L 33 > X @ F < 6 L : ( $ t j : L ^ 6 d K K K K V K : v
0x1aab70…1aab76 00 00 00 00 00 00 ┆ ┆
0x1aab76…1aad0a Dummy {f00=0x008f, f01=0x0190, f02=» _Z Z [ Z P [ V 7_ W Z @i ! P Z 7 Z Z P : V R (Q V : i i : v J P v I < : J Qz : Pp 4 ! Tj_ PZ 4 WV
0x1aad0a…1aad10 00 00 00 00 00 00 ┆ ┆
0x1aad10…1aaea4 (5, 49) Dummy {f00=0x008f, f01=0x0190, f02=»! P ! P ! P ! P W : ! )P9H # T &W &" :I : @ : P & _ &X _ : : : : : { : PX 9 _ [ Z : R" P $ 1T Y W 5
0x1aaea4…1aaeaa 00 00 00 00 00 00 ┆ ┆
0x1aaeaa…1ab03e Dummy {f00=0x008f, f01=0x0190, f02=» !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : : jP kT T : & 9! " : $ : $ : 6 V 0V B B W 6 &/D Y z V L ) M Y Y . &
0x1ab03e…1ab040 00 00 ┆ ┆
0x1ab040…1ab044 00 00 00 00 ┆ ┆
0x1ab044…1ab1d8 Dummy {f00=0x008f, f01=0x0190, f02=» X 0P X T 5 ! Y N Y R Y M P U Y O X Y H J Y L Y P X & ( ' Pp & X M X F9 V Y NP X X L & B P< C W & B y " y $ y V E V L 1 M B U ! C Q P^WL Q C X F:
0x1ab1d8…1ab1de 00 00 00 00 00 00 ┆ ┆
0x1ab1de…1ab372 Dummy {f00=0x008f, f01=0x0190, f02=» : ^ ( ( h : X X L X X % Y : X " X ) X : X ," P _ : W /! C P W W /" C C C P P x_2 W W W /$W* W W /'W W W W W //
0x1ab372…1ab378 00 00 00 00 00 00 ┆ ┆
0x1ab378…1ab50c Dummy {f00=0x008f, f01=0x0190, f02=»P `1` P vQ [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U
0x1ab50c…1ab512 00 00 00 00 00 00 ┆ ┆
0x1ab512…1ab6a6 Dummy {f00=0x008f, f01=0x0190, f02=» R I * B Z 9 ! [ [ ; *X| 8 ! D 0P Wh 0W2 W` :T& *W& FP . :T Z ! XBW *X& FW: :P # Q T !00T ; _ 9P F " X0# ; zW )0_4 J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d
0x1ab6a6…1ab6ac 00 00 00 00 00 00 ┆ ┆
0x1ab6ac…1ab840 Dummy {f00=0x008f, f01=0x0190, f02=» P , X 1 _ [ [ N nR. PT*AXYZ9
0x1ab840…1ab846 00 00 00 00 00 00 ┆ ┆
0x1ab846…1ab9da Dummy {f00=0x008f, f01=0x0190, f02=» @c A (@ @a@bW AaAb1 P0 0 Ib ? c W+0 c 6a + _ 0 0 _ A ? 0 0 c0 cbT 0 _3 cb_ C+ C 0 o m@jo m@jo V `( ` jo` Y ` jo` U jo jo + @i0'o0CPCR Aijb o$0"o0C a k3 }20 baP j}a k a a ` c 7a Q 0 _ @a1 P0 BC0
0x1ab9da…1ab9e0 00 00 00 00 00 00 ┆ ┆
0x1ab9e0…1abb74 (5, 50) Dummy {f00=0x008f, f01=0x0190, f02=»T 0 _5 cb_ P ` c 2a _-0 0Cj0CD V D ` a j0CD Wa D j0CD D a "a j0CD Wa D ` _ 0(` j0C& ` BC? T'Hm$ a 2a _ 1 T b 0 b T _ c 2a ? ` c 2a ? 0 o m@jo m@jo 0C ` jo` ` jo` Y ` jo` U @i0)o0CPCR Aijb o$0"o0C a k3
0x1abb74…1abb7a 00 00 00 00 00 00 ┆ ┆
0x1abb7a…1abd0e Dummy {f00=0x008f, f01=0x0190, f02=»V 0C 0 _D ` c 2a _Wj0C V j0C& A @c4 D a jWa 0CD D a "a jWa 0CD D _ 4 ` 0 `@c A 1 M0 0 c W-0 c 6a - _ 0 0 0 _ A ? 0 0 c0 cbT 0 _5 cb_ C+ C 0 o m@jo m@jo S `( ` jo` Y ` jo` U jo + jo @i0'o0CPCR Aijb o$0"o0
0x1abd0e…1abd14 00 00 00 00 00 00 ┆ ┆
0x1abd14…1abea8 Dummy {f00=0x008f, f01=0x0190, f02=» 7a _ ` ju 0C`*u _ ` fo ` Oo0 9 ` 0 I P ` 0 ` u c& s ` g1 J0 ` c& 1 J0 2a _@@vAg? T Hm a 2a ! _3 Iu _< ?" 2a ! ?# ` c 2a ! $?#0 o m@jo m@jo 0C ` jo` ` jo` Y ` jo` U @i0)o0CPCR Aijb o$0"o0C a k3 }20 baP
0x1abea8…1abeae 00 00 00 00 00 00 ┆ ┆
0x1abeae…1ac042 Dummy {f00=0x008f, f01=0x0190, f02=» O jY O jS 0C 0 _D ` c 2a (' )_Wj0C S j0C& A W d ` c A 0 0 1 J0 @c4 A 1 Q0 Hg W 0 Ig c W9 c W40 c 6a 4 _ 0 Hg W 0 _, A ?*0 0 c0 cbT 0 _< cb_ P ` c 2a +,-._- B CB D jE C jE D 0 0Cj0CD S D j0CD
0x1ac042…1ac048 00 00 00 00 00 00 ┆ ┆
0x1ac048…1ac1dc Dummy {f00=0x008f, f01=0x0190, f02=»' D oX I` J` K` D l? `P b hlb Z P D W, b ` j0CD ` D b j0CD D j0CDP Z DP `( ` j0C` C ` D 0 D D DD FDjF C aD a j0C` a 4 P ^ 9 ^'1 ^ Q4 ` b a hoa ^b T `a b b j0CD ` D 4 b*Hp b&0 o o[ O k-jo k
0x1ac1dc…1ac1e0 00 00 00 00 ┆ ┆
0x1ac1e0…1ac1e2 00 00 ┆ ┆
0x1ac1e2…1ac376 Dummy {f00=0x008f, f01=0x0190, f02=» ` c 2a /0010 _ A 0"o0B b*Hp b&0 b0 4 1 3 ! s / V ! X k p [ J 3 a . ! T J x C
0x1ac376…1ac37c 00 00 00 00 00 00 ┆ ┆
0x1ac37c…1ac510 Dummy {f00=0x008f, f01=0x0190, f02=»STORING ON DISC k p N p O WSM REL 4. OLD FORM V O VOLUME T @ U FILE T ) @ Y 4 H T F V VOLUME R : @ U FILE R : ) @ Y 6 V R : E S
0x1ac510…1ac516 00 00 00 00 00 00 ┆ ┆
0x1ac516…1ac6aa Dummy {f00=0x008f, f01=0x0190, f02=» D 1: A W 2: A W 3: A W 4: A W 5: A W 6: A W 7: A W 8: A W 9: A W WSM REL g 2. NEW FORM 4. OLD FORM V VOLUME R : @ U FILE R
0x1ac6aa…1ac6b0 00 00 00 00 00 00 ┆ ┆
0x1ac6b0…1ac844 (5, 51) Dummy {f00=0x008f, f01=0x0190, f02=» 3 = S 4 = S ON BOTTOM 5 = S ON TOP OF NEW PAGE 6 = TEMPORARY MAXIMUM SIZE, LINES: & COLUMNS: , 3 AUTOMATIC ENTERING: H @ ^ DECIMAL POINT OR COMMA: @ ^' DECORATION DEFAULT VALUES:
0x1ac844…1ac84a 00 00 00 00 00 00 ┆ ┆
0x1ac84a…1ac9de Dummy {f00=0x008f, f01=0x0190, f02=» ^ @ ^ @ ^ * R = REVERSED IMAGE DYNAMIC U @ ^ @ ^ @ ^ @ ^ * H = HIGH W DEFAULT GUIDING MESSAGE: @ Z " + 4 = H % 1 D = u B ^
0x1ac9de…1ac9e0 00 00 ┆ ┆
0x1ac9e0…1ac9e4 00 00 00 00 ┆ ┆
0x1ac9e4…1acb78 Dummy {f00=0x008f, f01=0x0190, f02=» ( 6 1 K0 (A jC F jD F g h f& fb a n 0 na nY p @e d e f&@aAbAhIg @b(A A W 0 z0 q,Ia o` iJW o_ iKAe i i Hh5 jd ` mo`J je `"mo`J bRIp bT ba a%joa l a 0 oa@h f0 deT A`W @` fb b Ia 0+ k!baW 0+ k baRI a 2a
0x1acb78…1acb7e 00 00 00 00 00 00 ┆ ┆
0x1acb7e…1acd12 Dummy {f00=0x008f, f01=0x0190, f02=» Ia q p,8 b p p jb zp p $bd p jb zp p ba c jc d jl c jl a dzp l ; p Ia> i aW8Hc (`f1 e - p jb zp p !b% Ia p W Ha p W jb zp p bi' p,8 jl f jl i Ia jl a dzp l ; p AdI` ? ae ` p,8 j` zp `d ? p jb zpHdI p j` zp p !`% Ia W@Ha W; e b be
0x1acd12…1acd18 00 00 00 00 00 00 ┆ ┆
0x1acd18…1aceac Dummy {f00=0x008f, f01=0x0190, f02=»`eo p ja zp p $a ja $b jb (ab c p a ja zp p fzp b, zb ba!b% b 0-b b b lZj{b l Av c p c @ p W_ p p jzp a p WNHdK p (`d abg p a 9 a 0 daT/ p jl zpjl a p j` l !`% jl dzp l ; W q f e @b"eh ? e fe e W4 f e Ab e ? eh fh d Ab d
0x1aceac…1aceb2 00 00 00 00 00 00 ┆ ┆
0x1aceb2…1ad046 Dummy {f00=0x008f, f01=0x0190, f02=»R p e p jb zp p !bWj bXAkW p b pbju zp pb,u !uWI l]jl f dzp l ; p 4 p jl zp p ja zp af$jl e ja l $a jl dzp l ; Ik p cPjc d c ud cf sp d? J` `e ` f d` 0 dab a j da p,8 ja zp a (af lZ c 0 deTS p p,8 jb zp b (ab p e 7 p ja zp
0x1ad046…1ad04c 00 00 00 00 00 00 ┆ ┆
0x1ad04c…1ad1e0 Dummy {f00=0x008f, f01=0x0190, f02=»cPjc d a, ac ud cf sp d? @e i i BaAh@b? ? b 0+ k ba: a 2a ? `e ` bd b 0-b b b` oY a 2a ad d a u h au o T u c (d c`f bc0 ab ac cd c af aQ@d p p jb zp bf p b jb zp"bcVjb zp b L"baH$ba e p b l[jb zp!b% b 0-b b b j{b
0x1ad1e0…1ad1e6 00 00 00 00 00 00 ┆ ┆
0x1ad1e6…1ad37a Dummy {f00=0x008f, f01=0x0190, f02=»jo dzp o ; p $ue>!aW: ceW$ p jb zp p $a ja $b jb ab jl c dzp l ; p aVW a d H` a`d bao H` ` { d w o. bad b`o ja zp(af1 p ja zp p )aW p jzp p WC l^jl d dzp l ; W0 p ja zp p aW#jl f jl a $a jl dzp l ; _C aQ cPjc ac ud cf sp
0x1ad37a…1ad380 00 00 00 00 00 00 ┆ ┆
0x1ad380…1ad514 (5, 52) Dummy {f00=0x0090, f01=0x0190, f02=»/oN r jr o 0 o c 0+ k ca@e 2a !!!!? lZ a Ia 0 JaP 0$Ja@eW 0(JaAeH` (qJ Hc ja z (af p p ja zp p af p jb zp p %b% af jl f jl J dzp l ; p W p jzp J p Q p W9 p jb zp p (bd) p jb zp p ,b jb (bJ p fzp b, zb b jb zp(bd& p jb zp p ,b
0x1ad514…1ad51a 00 00 00 00 00 00 ┆ ┆
0x1ad51a…1ad6ae Dummy {f00=0x0090, f01=0x0190, f02=» zp p (bdI p jb zp p +b,9jb (bK/ p a ja zp p fzp b, zb a 0-a a a j{a l Av b jb zp(bdC p jb zp p +b,3 a ja b jb (bK fzp b, zb a 0-a a a j{a l Av p jf zpje f p ud cf sp `e ` d b&Ip b* bc 0 rAh@b? T.Hm+(a 1 T T O b*Hp b&0 b0
0x1ad6ae…1ad6b4 00 00 00 00 00 00 ┆ ┆
0x1ad6b4…1ad848 Dummy {f00=0x0090, f01=0x0190, f02=»4 `f ad bh be b 0 `c 0 b a "ag `Q_ 0 4 c h c n T b bc b j cbo 4 oY j o 4 b @c0 zP q, p p Ib$j` zp ` "` ` ) p p, _ p p W j` zp ` *` p J p _ !q,Djb zp"bd:(bd0 p jb zp!b% Ia W Ha Ac p jq zp p (` p (iq W p q%Ac4 bpjr zb r
0x1ad848…1ad84e 00 00 00 00 00 00 ┆ ┆
0x1ad84e…1ad9e2 Dummy {f00=0x0090, f01=0x0190, f02=» + { A e ( " s v 1 * S M > > 1 ++DYNAMIC L: C: ++STATIC L:
0x1ad9e2…1ad9e8 00 00 00 00 00 00 ┆ ┆
0x1ad9e8…1adb7c Dummy {f00=0x0090, f01=0x0190, f02=» # 6 ? +@ j C C
0x1adb7c…1adb80 00 00 00 00 ┆ ┆
0x1adb80…1adb82 00 00 ┆ ┆
0x1adb82…1add16 Dummy {f00=0x0090, f01=0x0190, f02=» f 8 F Z ^ b(A jC H jD H @q A 1/~K bP oUj~ bo 1 N0 0 )d% @q? 9 : Kc (R @qHq ? $0 0 0 0 0 $0 0 0 c c c He W W 2a Z(0 cI` 2c c" c# ? ? ? 2c ? 0 0 0 @t1 M &Ip * 0
0x1add16…1add1c 00 00 00 00 00 00 ┆ ┆
0x1add1c…1adeb0 Dummy {f00=0x0090, f01=0x0190, f02=» 0 0 1 N0 _ 0 0 0 1 N0 _ 0 Tb) [] c WQ c WLKd Jf WK0 ^(T ^(8 W> ^ < ` c W c W%Kd Jf W$0 T ) [ c W 0 ^( # ^(8 _*0 cb0 a ? c ^&9 0 ^& _ 2a : ? c ` 0 T 0 T#W 0 T6 c W b a jb a "bP ` 0 cb0 c` ` 2a
0x1adeb0…1adeb6 00 00 00 00 00 00 ┆ ┆
0x1adeb6…1ae04a Dummy {f00=0x0090, f01=0x0190, f02=» D bs0.b b bwj0CD b D Hd bt0.b b bxW3 b t b 0 ^"T ^"9 b W Hf b 0.b b bx yt0.y y byj0CD b D y 0 ^!P Id W ^!: 0(y 0 ^ T ^ 9 0(y 0 ^ T ^ 9 0(y 0 ^%T ^%9 0(y 0 ^ T ^ 9 0(y He 0(y 0 ^ T ^ 9 0(y 0 ^ T ^ 9 ^ < ^ = 0(y W 0(y W 0(y 0 ^#T ^#9 0(y 0 ^$T
0x1ae04a…1ae050 00 00 00 00 00 00 ┆ ┆
0x1ae050…1ae1e4 (5, 53) Dummy {f00=0x0090, f01=0x0190, f02=» a y P$w 9 : a a 0 ^(T ^(9 b 0 TT b oT 9 a 0 Z T bP oZ 9 a 0 T ! b c jo c 9 a Id<0 TG O P Ie fO P W ) [ jO } Hf t bP btdOb ^' P 0 OT bP oO 9 a 0 T4 b c jo c c jo c jP o P P$ cP$ c 9 a 0 Z T- bP oZ
0x1ae1e4…1ae1ea 00 00 00 00 00 00 ┆ ┆
0x1ae1ea…1ae37e Dummy {f00=0x0090, f01=0x0190, f02=» iG? 0 0 0 A Hg `+ ` jS 0` ? ` 0 I P ` 0 `0 0 c0 cbT 0 ? bc_ @q ` cO 2a v jC v jD v i ` 0 ` m j m ` ` P` ` 0 ` Ax p @`? 1 J0 ` c 2a !"0 1 N0 _&Ar `( ` j0 ` u ` b* b $Db
0x1ae37e…1ae380 00 00 ┆ ┆
0x1ae380…1ae384 00 00 00 00 ┆ ┆
0x1ae384…1ae518 Dummy {f00=0x0090, f01=0x0190, f02=» d W d ` c A $0 4 b c jc a 0-c c cbjl c do l yb#yS9@c c cc oQ,j0CD o D b b Acfo bc oQ j0CDbo Db 4 depruP @b0 | Z .4 d "dgO Z Z jZ h d oWdZ o o. nT c b)hZ cbn T bc b jZ cbo oV cPjZ c o d@hW d%4 @x lXjZ r l Hc
0x1ae518…1ae51e 00 00 00 00 00 00 ┆ ┆
0x1ae51e…1ae6b2 Dummy {f00=0x0090, f01=0x0190, f02=»#^&^%k ^ 8 ^$8 ^!;Hd ^!: a cw oUHd 1/~KW 1/~L `sId ` Hf (t ` (` a W j~ ` Id jb ~ btj~ b f~ $w)$ c) c` cc c`*c) o4d~ `o oU a` c`W`d~ w|x }Z bw ` h}` ~a P d~a } c a W 6` W ba b _% a b b ;$` "` Hf (t a f~a c a j~ c bQ baj~abo
0x1ae6b2…1ae6b8 00 00 00 00 00 00 ┆ ┆
0x1ae6b8…1ae84c Dummy {f00=0x0090, f01=0x0190, f02=» X ] 8 4 * + o S : L B m P P S w c + ) Q Y * 9Z-+*$.,BE YZZZ k @
0x1ae84c…1ae852 00 00 00 00 00 00 ┆ ┆
0x1ae852…1ae9e6 Dummy {f00=0x0090, f01=0x0190, f02=» WSM REL PARAMETER SETTING D : S TYPE: SIZE: % X * / VERSION: 8 > LINE: C Z Z Z FIELD-ID: R ORIGIN: # ' DATA TO APPL.: 6 @ ^$ : MUST ENTER: H @ ^
0x1ae9e6…1ae9ec 00 00 00 00 00 00 ┆ ┆
0x1ae9ec…1aeb80 Dummy {f00=0x0090, f01=0x0190, f02=» ^# DUPL.: @ ^( @ T AUTO S/D/B: # @ ^ ' PRINT POS., LINE & COL.: A E X F L/R ADJUST: @ ^! DEFAULT VALUE: ~ GUIDING MESSAGE: @ Z EXTENDED PROMPT: @ Z VA
0x1aeb80…1aeb86 00 00 00 00 00 00 ┆ ┆
0x1aeb86…1aed1a Dummy {f00=0x0090, f01=0x0190, f02=» A A A A A 0 #0 $ c F } > ? F C
0x1aed1a…1aed20 00 00 00 00 00 00 ┆ ┆
0x1aed20…1aeeb4 (5, 54) Dummy {f00=0x0090, f01=0x0190, f02=» . m_ lY b f q p s r AbA 0 T) a a !jo m jo a a ab o9 j0CDao Da p,> jd zp(d ? rd,qd ? p je zp p "eh1 a ja zp!a%)jo m jo f a ab o9 j0CDao f Da p _` p a ab o9 j0CD zp Da p ja zp p p,V (ad jb zp b W bh e c a hla de T
0x1aeeb4…1aeeba 00 00 00 00 00 00 ┆ ┆
0x1aeeba…1af04e Dummy {f00=0x0090, f01=0x0190, f02=» hla de jo c d` cb oQ j0CDco Dc a eb p ? "dg a ab oQ j0CD m q D ? a ab oQij0CD m D b( b j0 b r b grj0 b s hs b g h D 0 D D DD a @b ab oQ ji C ji D i j0 b i i Gi 4 c h qchl ,sc sc4 (D* ` W? `D ` $`*D `*I ` :W)I ` 1 ` `
0x1af04e…1af054 00 00 00 00 00 00 ┆ ┆
0x1af054…1af1e8 Dummy {f00=0x0090, f01=0x0190, f02=»b s,Ppjc zs c fja zs"au s ja zs a` a j~ a u` a j~a k a j` zs ` Ae t 0 ~a@e t s jt zs s s,P ja zs auu cb ah a`V a j~ a u` a j~a k a Ae t 0 ~a@e t u "u ? ` ah c jc u b s,P(jb zs b bu _ s jt zs s _ cb 0 a0 4 b l[He }cW }b0
0x1af1e8…1af1ee 00 00 00 00 00 00 ┆ ┆
0x1af1ee…1af382 Dummy {f00=0x0090, f01=0x0190, f02=» `h w` wrhnt dr T jk nt okhosw drwT sw x AdW ` na a hna d` T Aejo w drh|x.o wP xw xe x.Q_j|ewo xe ew!^'1 dn ^' ast @f ` hn` oa T! ` 6` s Hf t W s AfW a aw _6 s p 4 a P0 Hm Q0 Im W Q0 Hm W b*Hp b&0 0 o od k- Oj
0x1af382…1af388 00 00 00 00 00 00 ┆ ┆
0x1af388…1af51c Dummy {f00=0x0090, f01=0x0190, f02=» 0 b0 ! 9 PW QAm0 0 $P cO W c 4 @m0 c 00 01 P c c _ 02 0, c0 c T c W 03 W Am 4 0 4 r Ir r+ r s jS 0rs s jP 0rs s ` j` 0rs ` s j` 0rs0 ` P ^ 80$` W ^ 9$` ` $` ` ` s j` 0rsHs ` ` s j` 0rs ` s j` 0rs ` s
0x1af51c…1af520 00 00 00 00 ┆ ┆
0x1af520…1af522 00 00 ┆ ┆
0x1af522…1af6b6 Dummy {f00=0x0090, f01=0x0190, f02=» s ` a jZ oajZ `0rs P `4 0 z0 0 { ` a b c g* g h u* u v w i p r Ir r+ r s s(j` 0rs s ja 0rs s jv 0rs s jw 0rs s jb 0rs s jc 0rs s jI 0rsIr `+ v+ b+ a w c Lb Mc }^ o. mZ f& d e @e q h}q 0`a < 2q He i-8 j{i 0bc i a (au ` a j
0x1af6b6…1af6bc 00 00 00 00 00 00 ┆ ┆
0x1af6bc…1af850 Dummy {f00=0x0090, f01=0x0190, f02=»$tu tu t y _ xt xq*xu x* xq05xAbj dex0yt ex qx y t j deq0ytW 06t tjk mt ~kj deq~ s p,P jzp f p jzp 0`a p jzp 0rs p eq fqHb fx a ? a jq 0`a q a ? He d fSjf *eh he e a ? He *eh he gd Ni W He ` a ? jq 0`a0 q T."q EHe p,PWjzp f p
0x1af850…1af856 00 00 00 00 00 00 ┆ ┆
0x1af856…1af9ea Dummy {f00=0x0090, f01=0x0190, f02=»b b ca ab a `* ` *a` ` `c0 ` `0-` ` b` a q _. a b c jb 0qaIr b+ a jc 0qa c jq 0bc c 0 q P AdW @d ` "P ` 0 q`P W `V"P `U04q` c c Id j` 0bc0 ` P ^"8W ^"9Id vW04`v v`06v v c j` 0bc ^ 90 ` P ^ >W 0 ` P ^ <W 0 ` P ^ =0 ` P ^!;W ^!:0
0x1af9ea…1af9f0 00 00 00 00 00 00 ┆ ┆
0x1af9f0…1afb84 (5, 55) Dummy {f00=0x0090, f01=0x0190, f02=»$8W ^$9 c jy 0bc ^&9 ^(9(q ? c x (xq ? a* a *ca b c ja 0bc `V04a` xa a ` j` 0bc0 ` ` c s 2` ? ^&8 c j b Ir Hq Hv (t b c < _v R Ha b c at _ ca_ ca_ ^(8Ha jTst0bc st b c atjTsa0bc ca_ P aHa jZ st0bc st b c atjZ sa0bc ca_
0x1afb84…1afb8a 00 00 00 00 00 00 ┆ ┆
0x1afb8a…1afd1e Dummy {f00=0x0090, f01=0x0190, f02=»t0bc st b c atjosa0bcj` o `j` o ` ca? l] ` Ha "t b c @aj` 0bc(` a c ` Ha t W ` P ajZ s l` s Ha jZ st0bc st b c atjZ sa0bc ca? A` W @` W 4 tc ta*t* t* ta t 05tAaW @a4 a b 0 `aP j^b oa b "b a "a _ 4 j dtr0`s@e4 = [
0x1afd1e…1afd20 00 00 ┆ ┆
0x1afd20…1afd24 00 00 00 00 ┆ ┆
0x1afd24…1afeb8 Dummy {f00=0x0090, f01=0x0190, f02=» " $ 0 6 B*X++ B*X M:S: HURB9Z-+*#$., ++WHICH PRINT-DEVICE <GP> OR <LP> ? H ! % * 0 8 A Q $ a D C C
0x1afeb8…1afebe 00 00 00 00 00 00 ┆ ┆
0x1afebe…1b0052 Dummy {f00=0x0090, f01=0x0190, f02=» j 9 1 J0 p @b@i(A ;Ip 0 jC G jD G iG u c& s c` Hp a nr0 `na ` gIg A Ic p jzp p _ p 0 0 1 K w&Ip w* wa 0 w Ip w( r Ig A 0 {W rN A Hc ? 0 0 ww0 0 q eq0-e e e jl {e0 0 0 f b 0+ o baRB a 2a
0x1b0052…1b0058 00 00 00 00 00 00 ┆ ┆
0x1b0058…1b01ec Dummy {f00=0x0090, f01=0x0190, f02=» q $jl {e nm c hlc n T b bc b jlcbn 0 0 c 2a p T Ai a p ` -(q er e-8 j{e l (q e 0 e ejzp e r q AvIi p @b Ic ? @b p Ic` q eq0-e e e jl {e0 lT p _$@i ` c a 2a ? u c& s ` g_) p p Ab Ic ? Nr A W a & ` c a 2a
0x1b01ec…1b01f2 00 00 00 00 00 00 ┆ ┆
0x1b01f2…1b0386 Dummy {f00=0x0090, f01=0x0190, f02=»H C jH D W d W d ` c _ 0 0 4 q @cIb4 p,,j` zp ` " p jq zp p q% f`j` `h+ p W3AcW/ p 8 p jq zp p q% p j` zp f`j` *`h p _/4 tw @ @ @ @ @ @ @ . jt j ` R04 j Tj 04 06
0x1b0386…1b038c 00 00 00 00 00 00 ┆ ┆
0x1b038c…1b0520 Dummy {f00=0x0090, f01=0x0190, f02=» kgb k ? k !kU lpW lqb l _/ 23 ? 23 A 0 2w 23 ? 23 A 0 2w 23 ` k/b k _ 23 j ob j ljfl b l ` = kbb k ` k/b k _ kcb k W 23"` W W 23 . k/b
0x1b0520…1b0526 00 00 00 00 00 00 ┆ ┆
0x1b0526…1b06ba Dummy {f00=0x0090, f01=0x0190, f02=»P0 P j w k/b k WA 23 `"` W W! kf . b k d k W t W0 s " Bb s jk d s k s 0 "t "a a ? A ? 4 A w j k !kU #kj #ki W ? ? #04 4bk 0bc)kk b c bk 0bc
0x1b06ba…1b06c0 00 00 00 00 00 00 ┆ ┆
0x1b06c0…1b0854 (5, 56) Dummy {f00=0x0091, f01=0x0190, f02=» @ ? !kV $ )kX A @ 6 0 4w A 45d 4 @ 6 " ( w` w w @ ? ` @ ? bk #kh1 - )!ka%!k`!!kd !k0 !kb bk #kW A W d k kbd k _y kcd k kbd k bk kY _ d
0x1b0854…1b085a 00 00 00 00 00 00 ┆ ┆
0x1b085a…1b09ee Dummy {f00=0x0091, f01=0x0190, f02=»4 bk 7 k _ labl 6 b l 4 j m fm % u % v b m W b m W b m 4 I O Kj h w P I w w bk w kk W @ w _. I b 4 w bk 0bc!kk c b w k w W b c _(4 bk !ka'!k ,!k
0x1b09ee…1b09f4 00 00 00 00 00 00 ┆ ┆
0x1b09f4…1b0b88 Dummy {f00=0x0091, f01=0x0190, f02=» / +! O' nt w hnw k P$W& P" P" bk P" kiOW&!kY !kZ (` W ( P# W P# 4 kad k H H @ d k 4 k. P# h P# k P W P# P#4 . b % 1 R W I Z
0x1b0b88…1b0b8e 00 00 00 00 00 00 ┆ ┆
0x1b0b8e…1b0d22 Dummy {f00=0x0091, f01=0x0190, f02=» !"()+:;=?@ ++UF!FID!INP 2J k p NAME SETTING FIELD-ID: @ lG ! " #
0x1b0d22…1b0d28 00 00 00 00 00 00 ┆ ┆
0x1b0d28…1b0ebc Dummy {f00=0x0091, f01=0x0190, f02=» : ` j` ` j ` ` Z!0 0- + Q ? c c 0 cb0 cc c 0 cb0 @xT @ 2a V A I`-0 P (a I ? ` (` j ` , j` ` W> ` ` i( ? ` 0 }j ` d} j ` ` ` ` !j } ` 0 ` c W- `
0x1b0ebc…1b0ec0 00 00 00 00 ┆ ┆
0x1b0ec0…1b0ec2 00 00 ┆ ┆
0x1b0ec2…1b1056 Dummy {f00=0x0091, f01=0x0190, f02=» _ ? @ ` ` - H & `b cH f cAy ` `c lA *P f P I I P 0 ojo ` 0 ` I I `b c I < "c - P (P a ? j o ` 0 ` Wa ` 0 ` j o P P b b"0 bbj P 0 bb b b"0
0x1b1056…1b105c 00 00 00 00 00 00 ┆ ┆
0x1b105c…1b11f0 Dummy {f00=0x0091, f01=0x0190, f02=» a W30 ? a W' a W" a c"W d d ` c d 2a 4 @ , j j P R _,A 4 ` j` ` / jb b ` P `j ` ` < P ! 4 @ _ A 4 b ` bc P c cb c c Q ` jl
0x1b11f0…1b11f6 00 00 00 00 00 00 ┆ ┆
0x1b11f6…1b138a Dummy {f00=0x0091, f01=0x0190, f02=»b j b` b` ` d b `S W b j b W 4 c 0 l@ b "` b`jk oc%k2 #k4 jlc k c cb 0 lT l b $b #bQ A W ` c ? ` 8 c`8 T# b H b $ b # W9 ` W `c ` c ? ` fo` c) c c ) kRjoc k c c 8 _ 0 2 b PN PH P9 P< T < I
0x1b138a…1b1390 00 00 00 00 00 00 ┆ ┆
0x1b1390…1b1524 (5, 57) Dummy {f00=0x0091, f01=0x0190, f02=» c`8 < H < ? < ? < Z < ? < : P < < b h4b oc < b h4b oc T c c < H < W < c`8 < : 0 2 b q% v< v P c ? < : < ? < : < < : 0 2 b q% vP vP ? v c ? v c ? < : < c`8 <! k/ b
0x1b1524…1b152a 00 00 00 00 00 00 ┆ ┆
0x1b152a…1b16be Dummy {f00=0x0091, f01=0x0190, f02=» hkb oc X& kU b hkb oc T c W T : T W T : q qT c`P T k/ b hkb oc T c c`P T T H W c`P <! : TvH Wh T : T WW Ty q @ q P. T) c`Pb T^ q k/ b hkb oc T c c`PD T@_3 THW c`PY <! : WN c`PI <! kV b hkb oc T c
0x1b16be…1b16c0 00 00 ┆ ┆
0x1b16c0…1b16c4 00 00 00 00 ┆ ┆
0x1b16c4…1b1858 Dummy {f00=0x0091, f01=0x0190, f02=»k. b hkb oc T c c`P _ W c`X 4 @ @ v n] b hnb oc T b b W Hd ?#?$ b mChmb oc T4 b b b W& qc q j oq% X $b # Z W + Y ?%$b W A m }^ c b h}b o P _ cP b b,P j zb b j " h j zb) % b _+0- q h{q } q q
0x1b1858…1b185e 00 00 00 00 00 00 ┆ ┆
0x1b185e…1b19f2 Dummy {f00=0x0091, f01=0x0190, f02=»jk mb Z k b hZ bq qT A W W cv 4 y yP Q kS b hkb oc T c ` c qchoq k T cq c W TYI cvW T kT b hkb oc T c T T T b#h4b oc T c T} Ty Tu kU b hkb oc Tf c WC b$h4b oc TU c TN kT b hkb oc T? c T8 T4 T0 kU b hkb oc T! c T" b"h4b
0x1b19f2…1b19f8 00 00 00 00 00 00 ┆ ┆
0x1b19f8…1b1b8c Dummy {f00=0x0091, f01=0x0190, f02=» I W T H cvW 0 4 b b bh4b oc Ts y j y 5b c T kT b hkb oc T c T % y % y % yP T W T T % y y k/ b hkb oc Ty_> kU b hkb oc Th c W0 kT b hkb oc T! c TM TI TE kU b hkb oc T6 c T7 bOh4b oc T c T ?' b h4b oc T c T ?' c W y W y
0x1b1b8c…1b1b92 00 00 00 00 00 00 ┆ ┆
0x1b1b92…1b1d26 Dummy {f00=0x0091, f01=0x0190, f02=»v`P5 b h6b ov T)jk 7b!kW v v`P kS b hkb ov T c W 4 0 yb y 0 y y ybQ _ y 0 b b P b4 y ' y H L 5 D j v 4 r z E M ` b d
0x1b1d26…1b1d2c 00 00 00 00 00 00 ┆ ┆
0x1b1d2c…1b1ec0 Dummy {f00=0x0091, f01=0x0190, f02=» !0 0 x
0x1b1ec0…1b1ec6 00 00 00 00 00 00 ┆ ┆
0x1b1ec6…1b205a Dummy {f00=0x0091, f01=0x0190, f02=» n mX@c@ c o9 AcA Dj C (` C C+9 D D Iv Iy 9 ? 0 P jC jD ? c ,c j c 8 c0 c c j` c ` c 0. `j 0 2 b P2 P, P& P h2 c T j 3 c W < W) 2
0x1b205a…1b2060 00 00 00 00 00 00 ┆ ┆
0x1b2060…1b21f4 (5, 58) Dummy {f00=0x0091, f01=0x0190, f02=» I < W < j c 8 ? < j 0 2 b `P ` c P k/ b hkb c T c _ c c P kW b hkb c T c P T k/ b hkb c X" c W T W q qj ` c T Ws c Pn T Wf T W
0x1b21f4…1b21fa 00 00 00 00 00 00 ┆ ┆
0x1b21fa…1b238e Dummy {f00=0x0091, f01=0x0190, f02=» UQ, ,c j c( @ c Q j0CD D ? W4 W/ b jb j a `a0.` ` ` j0b ` y yUY1 4 b kXh2b c T$j 3b! % b h3 k P c W 4 k. b hkb c T c _ 4 j j 4 @ @ n[ b hnb c T b b j b c Id ? b mChmb c T
0x1b238e…1b2394 00 00 00 00 00 00 ┆ ┆
0x1b2394…1b2528 Dummy {f00=0x0091, f01=0x0190, f02=» ` h{` } ` q` h{ q cq ' qA j { ` ` ` ` b j zb b ` j` zb ` b b,P q jq zb(q b jq zb q W bh b` q`h qbm P qh q` b hmb ` T jk mb Z k b hZ bq `qT A W W c 4 bSj a 5b a kVhk c T c ` ` h `k c c W T^I
0x1b2528…1b252e 00 00 00 00 00 00 ┆ ┆
0x1b252e…1b26c2 Dummy {f00=0x0091, f01=0x0190, f02=»5b a c T; a j a a c c P" c P b"h4b c T c _ W$ a ! a j a a _ a A 4 bSj a 5b a b'h4b c T $ c @ bcjk b%k2 #k4 b b P _ )k1 A X c W T H I c W c ? 0 4 b b bh4b c Toj a 5b
0x1b26c2…1b26c8 00 00 00 00 00 00 ┆ ┆
0x1b26c8…1b285c Dummy {f00=0x0091, f01=0x0190, f02=»b c T c Tp bSj 5b c c P6 c P/ bOh4b c T c $ ? b h4b c T $ c ? c a ! a j a a _ a W W @ 4 ` ` 0(` j ` j c c 4 0 l bc jk b%k2 #k4 jl k b b "0 lT* l b c ` 0 ` ` `j `b ` `
0x1b285c…1b2860 00 00 00 00 ┆ ┆
0x1b2860…1b2862 00 00 ┆ ┆
0x1b2862…1b29f6 Dummy {f00=0x0091, f01=0x0190, f02=»a ! @ a b " W "b b W b b R j a a a _K a 4 j j j 0 aU04 a M a* a P a P R a W a +aT aTb a0 a!aT aT @ ac Q b0CDa Da_Q4 1 P c 7a ? b*Hp b&0 o oI k- jo k 0 b0
0x1b29f6…1b29fc 00 00 00 00 00 00 ┆ ┆
0x1b29fc…1b2b90 Dummy {f00=0x0091, f01=0x0190, f02=»Kc0 r0-q q q jR {q@u P AuW }_ k. a 0 yaT j}a k a a GDei (a Id O 0 OT G ei (a y0 Z T G ei (a g0 Z T G ei (a U0 TG@ 0 0 0 T G2ei (a A < _ p _ 1 4 a * 1 1 T ` 1 P c W a
0x1b2b90…1b2b96 00 00 00 00 00 00 ┆ ┆
0x1b2b96…1b2d2a Dummy {f00=0x0091, f01=0x0190, f02=» h) jOh m 1 NT8 ` `g< `c' o0jO ho j`1 NT O. ` `c j`1 NT _ 1 LT 4 % Q 2 9 : D e r | h w S V . V j T S + ! c ! ,
0x1b2d2a…1b2d30 00 00 00 00 00 00 ┆ ┆
0x1b2d30…1b2ec4 (5, 59) Dummy {f00=0x0091, f01=0x0190, f02=» - - K O O K - - j ! O ! j f H 1 2 # 3 - 4 7 5 A 6 K 7 U 8 E NUMBER OF OCCUPIED SECTORS: MAXIMUM SIZE (ROW * COLUMN): * AUTOMATIC ENTERING: ^ DECIMAL POINT OR COMMA: ^' DECORATION DEFAULTS. SCREEN: ^
0x1b2ec4…1b2eca 00 00 00 00 00 00 ┆ ┆
0x1b2eca…1b305e Dummy {f00=0x0091, f01=0x0190, f02=» * 9 H0 X 0 A U u
0x1b305e…1b3060 00 00 ┆ ┆
0x1b3060…1b3064 00 00 00 00 ┆ ┆
0x1b3064…1b31f8 Dummy {f00=0x0091, f01=0x018e, f02=» ( ? ( 8 P H X P h x ! 2 # ) ` + 0
0x1b31f8…1b31fe 00 00 00 00 00 00 ┆ ┆
0x1b31fe…1b3392 Dummy {f00=0x0091, f01=0x0190, f02=» J 2 L N ( S 8 U H W X Y h [ x ] _ 2 a h 2 k m o 2 q
0x1b3392…1b3398 00 00 00 00 00 00 ┆ ┆
0x1b3398…1b352c Dummy {f00=0x0091, f01=0x018e, f02=» : P X 2 & 6 F 2 V f v 2 J F " D < < b h4
0x1b352c…1b3532 00 00 00 00 00 00 ┆ ┆
0x1b3532…1b36c6 Dummy {f00=0x0091, f01=0x0190, f02=» 2 ( t 8 2 H X h 2 x t 2 J F " D : 0 2
0x1b36c6…1b36cc 00 00 00 00 00 00 ┆ ┆
0x1b36cc…1b3860 Dummy {f00=0x0091, f01=0x0190, f02=» $ - ( / 2 8 1 H 6 t X 8 2 h ; x @ J F " D : 0 2 b q vP vP ? v c ? v c ? < : < c`8 B 2 D
0x1b3860…1b3866 00 00 00 00 00 00 ┆ ┆
0x1b3866…1b39fa Dummy {f00=0x0091, f01=0x0190, f02=»UF y J F " D @ < k b hkb oc < c c`8 < _+ < : b h b oc < c c` h 2 x 2 ( 2
0x1b39fa…1b3a00 00 00 00 00 00 00 ┆ ┆
0x1b3a00…1b46a0 (6, 0) DirGranule ((6, 0)) {
0x1b3a00…1b46a0 DirEnt {nam=»WSM:LM«, typ=»U «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x1b3a00…1b46a0 DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x1248, f03=0x0000}
0x1b3a00…1b46a0 DirEnt {nam=»W:UTIL«, typ=»LM«, f00=0xab4c, f01=0x0000, f02=0x1250, f03=0x0000}
0x1b3a00…1b46a0 DirEnt {nam=»W:UTIB«, typ=»LM«, f00=0xab4c, f01=0x0000, f02=0x12d0, f03=0x0000}
0x1b3a00…1b46a0 }
0x1b46a0…1b46c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b46c0…1b46d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1b46d0…1b4864 (6, 1) Opaque[0x194]
0x1b4864…1b486a 00 00 00 00 00 00 ┆ ┆
0x1b486a…1b49fe # DirEnt {nam=»USINFO«, typ=»UF«, f00=0xab56, f01=0x0000, f02=0x1248, f03=0x0000}
0x1b486a…1b49fe IdxSect {
0x1b486a…1b49fe f00 = 0x0092 // 0x1b486a @0x0
0x1b486a…1b49fe f01 = 0x0002 // 0x1b486c @0x2
0x1b486a…1b49fe gno = [ // 0x1b486e @0x4
0x1b486a…1b49fe [0x00]: C0x0092.0x1.0
0x1b486a…1b49fe ]
0x1b486a…1b49fe }
0x1b49fe…1b4a00 00 00 ┆ ┆
0x1b4a00…1b4a04 00 00 00 00 ┆ ┆
0x1b4a04…1b4b98 Dummy {f00=0x0092, f01=0x0190, f02=» P P F PDIRECTORY: WSM:LMU DATE: 85-09-01 CONTENTS: INFO ABOUT THIS DIR. P****************** ^ > P W:UTIL = UTILITIES LOAD MODULE FOR STANDARD MONITOR x J P W:UTIB = " " " " " " WITH CREBUG > P
0x1b4b98…1b4b9e 00 00 00 00 00 00 ┆ ┆
0x1b4b9e…1b4d32 Dummy {f00=0x0092, f01=0x0190, f02=» J 8 P <DADFC> = DAD-FILE-CODE OF DIRECTORY WSM:UTIL. P D F P RECOMMANDATION= USE OPTIMIZED CREDITINTERPRETER WHEN LINKING L @ P UTILITIES, I:EVA 1001,I:NTP GEN WHERE . P GEN= NO MUL,DIV,ADVK
0x1b4d32…1b4d38 00 00 00 00 00 00 ┆ ┆
0x1b4d38…1b4ecc Dummy {f00=0x0092, f01=0x0190, f02=» P 84-12-01 RELEASE 2.2 D P 84-11-01 PRERELEASE 2.2 WITH INTERTASK TO TOSSUT REL 13 ( : P 84-10-01 RELEASE 2.1, SUBSET OF TOSS REL 12.2. p 8 P 84-06-01 SUPPORT OF MINI FLOPPY DISC 5 1/4", : P PRE-RELEASE O
0x1b4ecc…1b4ed2 00 00 00 00 00 00 ┆ ┆
0x1b4ed2…1b5066 Dummy {f00=0x0092, f01=0x4110, f02=» CENTER. d . P WSM UTILITIES 2.0 TO TUT. 4 P 83-09-15 WSM 1.0 & 2.0 TO ACTION CENTER. B P 83-05-27 WSM 2.0 z P 83-02-14 WSM 1.0 P 82-09-16 WSMGEN . P 81-11-11 RELEASE 12 TO ALPHA TEST
0x1b5066…1b506c 00 00 00 00 00 00 ┆ ┆
0x1b506c…1b5200 Dummy {f00=0x0092, f01=0x2008, f02=» d . P WSM UTILITIES 2.0 TO TUT. 4 P 83-09-15 WSM 1.0 & 2.0 TO ACTION CENTER. B P 83-05-27 WSM 2.0 z P 83-02-14 WSM 1.0 P 82-09-16 WSMGEN . P 81-11-11 RELEASE 12 TO ALPHA TEST
0x1b5200…1b5206 00 00 00 00 00 00 ┆ ┆
0x1b5206…1b539a Dummy {f00=0x0092, f01=0x2020, f02=» 85-03-13 WSMAPP INDICATE "NO INPUT" WHEN EQUAL FID ENT NO 18 E ** 85-03-06 FSMODL ATTAB ERROR WHEN CONC A NEW ENTRY - SOLVED OL ** 85-03-06 FSPARM TAKING CARE OF SYNTAX-ERROR FROM "OBJVAL" O CREBUG 85-03-06 UDFVAL ERR
0x1b539a…1b53a0 00 00 00 00 00 00 ┆ ┆
0x1b53a0…1b5534 (6, 2) Opaque[0x194]
0x1b5534…1b553a 00 00 00 00 00 00 ┆ ┆
0x1b553a…1b56ce # DirEnt {nam=»W:UTIL«, typ=»LM«, f00=0xab4c, f01=0x0000, f02=0x1250, f03=0x0000}
0x1b553a…1b56ce IdxSect {
0x1b553a…1b56ce f00 = 0x0092 // 0x1b553a @0x0
0x1b553a…1b56ce f01 = 0x0020 // 0x1b553c @0x2
0x1b553a…1b56ce gno = [ // 0x1b553e @0x4
0x1b553a…1b56ce [0x00]: C0x0092.0x2.0
0x1b553a…1b56ce [0x01]: C0x0092.0x3.0
0x1b553a…1b56ce [0x02]: C0x0093.0x0.0
0x1b553a…1b56ce [0x03]: C0x0093.0x1.0
0x1b553a…1b56ce [0x04]: C0x0093.0x2.0
0x1b553a…1b56ce [0x05]: C0x0093.0x3.0
0x1b553a…1b56ce [0x06]: C0x0094.0x0.0
0x1b553a…1b56ce [0x07]: C0x0094.0x1.0
0x1b553a…1b56ce [0x08]: C0x0094.0x2.0
0x1b553a…1b56ce [0x09]: C0x0094.0x3.0
0x1b553a…1b56ce [0x0a]: C0x0095.0x0.0
0x1b553a…1b56ce [0x0b]: C0x0095.0x1.0
0x1b553a…1b56ce [0x0c]: C0x0095.0x2.0
0x1b553a…1b56ce [0x0d]: C0x0095.0x3.0
0x1b553a…1b56ce [0x0e]: C0x0096.0x0.0
0x1b553a…1b56ce [0x0f]: C0x0096.0x1.0
0x1b553a…1b56ce ]
0x1b553a…1b56ce }
0x1b56ce…1b56d4 00 00 00 00 00 00 ┆ ┆
0x1b56d4…1b5868 Dummy {f00=0x0092, f01=0x0190, f02=»k z v 2&CR-T4 R Z (R [ D e D p * d d 6 d P d X d
0x1b5868…1b586e 00 00 00 00 00 00 ┆ ┆
0x1b586e…1b5a02 Dummy {f00=0x0092, f01=0x0190, f02=» FU <* *P*,* * , * -h-2- - - - .D- / . 0 / 0 / 1N1*1 1 FU * (
0x1b5a02…1b5a08 00 00 00 00 00 00 ┆ ┆
0x1b5a08…1b5b9c Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b5b9c…1b5ba0 00 00 00 00 ┆ ┆
0x1b5ba0…1b5ba2 00 00 ┆ ┆
0x1b5ba2…1b5d36 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b5d36…1b5d3c 00 00 00 00 00 00 ┆ ┆
0x1b5d3c…1b5ed0 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b5ed0…1b5ed6 00 00 00 00 00 00 ┆ ┆
0x1b5ed6…1b606a Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b606a…1b6070 00 00 00 00 00 00 ┆ ┆
0x1b6070…1b6204 (6, 3) Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b6204…1b620a 00 00 00 00 00 00 ┆ ┆
0x1b620a…1b639e Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b639e…1b63a0 00 00 ┆ ┆
0x1b63a0…1b63a4 00 00 00 00 ┆ ┆
0x1b63a4…1b6538 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b6538…1b653e 00 00 00 00 00 00 ┆ ┆
0x1b653e…1b66d2 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b66d2…1b66d8 00 00 00 00 00 00 ┆ ┆
0x1b66d8…1b686c Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b686c…1b6872 00 00 00 00 00 00 ┆ ┆
0x1b6872…1b6a06 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b6a06…1b6a0c 00 00 00 00 00 00 ┆ ┆
0x1b6a0c…1b6ba0 Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b6ba0…1b6ba6 00 00 00 00 00 00 ┆ ┆
0x1b6ba6…1b6d3a Dummy {f00=0x0092, f01=0x0190, f02=»
0x1b6d3a…1b6d40 00 00 00 00 00 00 ┆ ┆
0x1b6d40…1b6ed4 (6, 4) Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b6ed4…1b6eda 00 00 00 00 00 00 ┆ ┆
0x1b6eda…1b706e Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b706e…1b7074 00 00 00 00 00 00 ┆ ┆
0x1b7074…1b7208 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7208…1b720e 00 00 00 00 00 00 ┆ ┆
0x1b720e…1b73a2 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b73a2…1b73a8 00 00 00 00 00 00 ┆ ┆
0x1b73a8…1b753c Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b753c…1b7540 00 00 00 00 ┆ ┆
0x1b7540…1b7542 00 00 ┆ ┆
0x1b7542…1b76d6 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b76d6…1b76dc 00 00 00 00 00 00 ┆ ┆
0x1b76dc…1b7870 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7870…1b7876 00 00 00 00 00 00 ┆ ┆
0x1b7876…1b7a0a Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7a0a…1b7a10 00 00 00 00 00 00 ┆ ┆
0x1b7a10…1b7ba4 (6, 5) Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7ba4…1b7baa 00 00 00 00 00 00 ┆ ┆
0x1b7baa…1b7d3e Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7d3e…1b7d40 00 00 ┆ ┆
0x1b7d40…1b7d44 00 00 00 00 ┆ ┆
0x1b7d44…1b7ed8 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b7ed8…1b7ede 00 00 00 00 00 00 ┆ ┆
0x1b7ede…1b8072 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b8072…1b8078 00 00 00 00 00 00 ┆ ┆
0x1b8078…1b820c Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b820c…1b8212 00 00 00 00 00 00 ┆ ┆
0x1b8212…1b83a6 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b83a6…1b83ac 00 00 00 00 00 00 ┆ ┆
0x1b83ac…1b8540 Dummy {f00=0x0093, f01=0x0190, f02=» 2.385 09 01 " ( ( ( ( ( 0 (
0x1b8540…1b8546 00 00 00 00 00 00 ┆ ┆
0x1b8546…1b86da Dummy {f00=0x0093, f01=0x0190, f02=» B @ B
0x1b86da…1b86e0 00 00 00 00 00 00 ┆ ┆
0x1b86e0…1b8874 (6, 6) Dummy {f00=0x0093, f01=0x0190, f02=» CM1PM1DU2DU1DU4DU3FD1FD2FD3FD4CD1CD2CD3CD4CD5CD6CD7CD8WD1WD2WD3WD4WD5WD6WD7WD8 B P T T U V0 W0 Y Z
0x1b8874…1b887a 00 00 00 00 00 00 ┆ ┆
0x1b887a…1b8a0e Dummy {f00=0x0093, f01=0x0190, f02=»0 0 0 & , Z P X P 801;01;24;80;1?;25;01;01;80;0= > ) 8 :
0x1b8a0e…1b8a14 00 00 00 00 00 00 ┆ ┆
0x1b8a14…1b8ba8 Dummy {f00=0x0093, f01=0x0190, f02=» 0807090205131924181120230415 2 x F @
0x1b8ba8…1b8bae 00 00 00 00 00 00 ┆ ┆
0x1b8bae…1b8d42 Dummy {f00=0x0093, f01=0x0190, f02=» * $ B
0x1b8d42…1b8d48 00 00 00 00 00 00 ┆ ┆
0x1b8d48…1b8edc Dummy {f00=0x0093, f01=0x0190, f02=» 6 > 0 L0 M0 O0 R0 Y . 4k 2Z2 2Z2 3 4 4 4 4 6k 8; 8 e 4Ne dt|zbnd 5 7 W W f e 8H847 6 5DerdFd e e d V Y b S V U W4W8W@W V,P V O d^4|4 6b7 7 4r6 6 ;l; ; 6 4 4 4hFILE:PRINT FILE TABLE OF CONTENTSZZ9ZZZZZZVZ
0x1b8edc…1b8ee0 00 00 00 00 ┆ ┆
0x1b8ee0…1b8ee2 00 00 ┆ ┆
0x1b8ee2…1b9076 Dummy {f00=0x0093, f01=0x0190, f02=» SECTORS: NAME TYPE SIZE VERSION SECTOR + K ON VOLUME: I PAGE: 4 # 0 ( S3 2 3 2 3 2 3 3E P #MU1 4$ n & A4 4 ( n @4$ ' k hb n F Y C 5 CR V
0x1b9076…1b907c 00 00 00 00 00 00 ┆ ┆
0x1b907c…1b9210 Dummy {f00=0x0093, f01=0x0190, f02=» C ( B P W # C ( TU C ( B P WV 0WR hb n C n ( B T B $ ' Y B n ' P V Q k hb C C C n ( B (
0x1b9210…1b9216 00 00 00 00 00 00 ┆ ┆
0x1b9216…1b93aa Dummy {f00=0x0093, f01=0x0190, f02=» _ W hb n & C C C n ( B ( _h W hb n & C n n & C n & h C C ( 5 W h B Y : Y < * C _2 hb n n P ) n N & 9
0x1b93aa…1b93b0 00 00 00 00 00 00 ┆ ┆
0x1b93b0…1b9544 (6, 7) Dummy {f00=0x0093, f01=0x0190, f02=» n : Z il k n & n 9l ! Q 0W 7 ' Y k n n ' n k 8 9O ' k 8 9o '_ <` 8 & @8 A8p ! '_2<@ 8 & @8v A8 ! '_L n '_T n & n & n :
0x1b9544…1b954a 00 00 00 00 00 00 ┆ ┆
0x1b954a…1b96de Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b96de…1b96e0 00 00 ┆ ┆
0x1b96e0…1b96e4 00 00 00 00 ┆ ┆
0x1b96e4…1b9878 Dummy {f00=0x0093, f01=0x0190, f02=» B1 8 9 : 9 n F : >6 : K K K K n : F Q ' _ ' @: W| W W @W n @: % ^ @; B E D % n : @T C W" n n
0x1b9878…1b987e 00 00 00 00 00 00 ┆ ┆
0x1b987e…1b9a12 Dummy {f00=0x0093, f01=0x0190, f02=»
0x1b9a12…1b9a18 00 00 00 00 00 00 ┆ ┆
0x1b9a18…1b9bac Dummy {f00=0x0093, f01=0x0190, f02=» ; P, 8 ' _ ; P 8 'T _ W [ : : X ' _ [ & ? ? Pd & @ P &@T
0x1b9bac…1b9bb2 00 00 00 00 00 00 ┆ ┆
0x1b9bb2…1b9d46 Dummy {f00=0x0093, f01=0x0190, f02=» P Q T P T B AX Z A T U TN T T& P@ @: A>~ @: W P L M @> I A> U W A R< A: T P AB T . U W T T TV A R T T & AB O B Nj A> An A> B T P Q
0x1b9d46…1b9d4c 00 00 00 00 00 00 ┆ ┆
0x1b9d4c…1b9ee0 Dummy {f00=0x0093, f01=0x0190, f02=» W P T| A R Td T U T @; P T B U B TZT. Z P Q A T : >H W: B Q,R. A _( B W" W W W W W C W W Z [ : A P W( >6 B : >h U U [ : @
0x1b9ee0…1b9ee6 00 00 00 00 00 00 ┆ ┆
0x1b9ee6…1ba07a Dummy {f00=0x0093, f01=0x0190, f02=»T T " C T & TlW T " Pf @: _@ B U T " TJ @>~P, P@ @: T M U P T A> A>~ @> T A> W W W [ : @; P TL T ( _. @; H >JPB @; H P P T @W
0x1ba07a…1ba080 00 00 00 00 00 00 ┆ ┆
0x1ba080…1ba214 (6, 8) Dummy {f00=0x0094, f01=0x0190, f02=»W* P Y T W K W J $ K a; Y T4( X `; P X W a; Y Y X W C [ : D AD AD `; T ( _ P X _ 8 ; D X @; >6 >6 [ TR
0x1ba214…1ba21a 00 00 00 00 00 00 ┆ ┆
0x1ba21a…1ba3ae Dummy {f00=0x0094, f01=0x0190, f02=» Z P Q T FVT` T U T T @>~T& P @: A>~ @: W Pf L M @> I A> U WJ W W W P O Z P Q T B [ FV Z C Z , PV `; P( P P _ L ] W L M W P
0x1ba3ae…1ba3b4 00 00 00 00 00 00 ┆ ┆
0x1ba3b4…1ba548 Dummy {f00=0x0094, f01=0x0190, f02=» C P P Pv @Pv HdWt K Tn @D X >h AFR NjTX [ @D FP >6 AFRP2 @D X C ( HdT `FP =H : _F K W K TJ HN D AFL C ( HdT* JFP0 D J T H@ @FL C ( HdT J _D B ( @FRT0 @FPT* AFP AFH
0x1ba548…1ba54e 00 00 00 00 00 00 ┆ ┆
0x1ba54e…1ba6e2 Dummy {f00=0x0094, f01=0x0190, f02=» `FTP >H : FT_ _l @FL C ( D HdT FH K R Q W C W W Z Z [ : ; I @; H >JP> P @; H P & P J& Q >6WT P P T@ P C W T P
0x1ba6e2…1ba6e8 00 00 00 00 00 00 ┆ ┆
0x1ba6e8…1ba87c Dummy {f00=0x0094, f01=0x0190, f02=»X T B Q Q Z P B ( C B * C / ' ( B T Tt Z PjW T^ T> @; HW P6 " >J P $ >6 P I C W @ C W W : [ : @D T K C ( C * 4<HT _ R <A_
0x1ba87c…1ba880 00 00 00 00 ┆ ┆
0x1ba880…1ba882 00 00 ┆ ┆
0x1ba882…1baa16 Dummy {f00=0x0094, f01=0x0190, f02=»D HdT J C ( D J J ( ,V J J N_T B ( * D R _ *<H P < P RP W VD @D Y R < _ <h + J C ( C HdT J C (W C W R W W [ : B TP, B
0x1baa16…1baa1c 00 00 00 00 00 00 ┆ ┆
0x1baa1c…1babb0 Dummy {f00=0x0094, f01=0x0190, f02=» P K W Z M D JFP( D J T M K C ( HdT _. B ( D K J C ( HdT D J C ( HdT| D J C ( K D >n _ >JPx Z P _ $ >6 * E J E 2
0x1babb0…1babb6 00 00 00 00 00 00 ┆ ┆
0x1babb6…1bad4a Dummy {f00=0x0094, f01=0x0190, f02=»_0 X C ( HdT W @ C W C W R W [ : W ; R _ &<H P < T W R < _ <h ' ; : ; @; T V O Tt Z _ U @; 4<HT _ R <A_ <A <a ^ <h 5 P ;H : ' T P
0x1bad4a…1bad50 00 00 00 00 00 00 ┆ ┆
0x1bad50…1baee4 (6, 9) Dummy {f00=0x0094, f01=0x0190, f02=» A> W @: A>~W Q T N :H : & T @; P Q >n W [ : B : :h N :H : & :D n #0 0T & ! T P & ! X T C k b c U U Y Y ( x P* Y * R R x y Q W Q Y
0x1baee4…1baeea 00 00 00 00 00 00 ┆ ┆
0x1baeea…1bb07e Dummy {f00=0x0094, f01=0x0190, f02=» C ( Y * X Y , Y c4W Y * X Y , Y X X C & C C ( B Ph9 R^9 TT X !@PP X X * b ) Y * Y , X , Y x X *YrP y X " x Y X " T Y _ T _ B U C Q C DQ Q Q Q R<TbTxRp X X
0x1bb07e…1bb080 00 00 ┆ ┆
0x1bb080…1bb084 00 00 00 00 ┆ ┆
0x1bb084…1bb218 Dummy {f00=0x0094, f01=0x0190, f02=» X * $" X D % " X # X * c* Y y _@ X # X * y Y X 1 1 X !@T X $ " P y _ x T UP T& X H X X * , )$ P _ : X " X ) X : b c U ' Y m U y x C y X C C
0x1bb218…1bb21e 00 00 00 00 00 00 ┆ ┆
0x1bb21e…1bb3b2 Dummy {f00=0x0094, f01=0x0190, f02=» X X ! x Y Y _ X "@P B R y C B P 9 V T _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c b C _$ _ c* U@ c4 y _> S* x XH X c* Y X # Y C _6 B ]p P C Q8X<_T x XH @ Y
0x1bb3b2…1bb3b8 00 00 00 00 00 00 ┆ ┆
0x1bb3b8…1bb54c Dummy {f00=0x0094, f01=0x0190, f02=» C Yh : + Y X Y Y ( c n ( c b> : B U C _J + . b X 9 V ! P @ Y n Y Y . : m n n " n $ : b 2! Y " c n c n q b X "T X b Y b b n X
0x1bb54c…1bb552 00 00 00 00 00 00 ┆ ┆
0x1bb552…1bb6e6 Dummy {f00=0x0094, f01=0x0190, f02=» ' ' k X _ X ' _ X '?_ b n X ' b X ! b b b X " 9b! X :c 2" HW b @ W W W W W W W c b Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 Z W U X Q [fW Y 0 Z| [ g h6 g* b 9H
0x1bb6e6…1bb6ec 00 00 00 00 00 00 ┆ ┆
0x1bb6ec…1bb880 Dummy {f00=0x0094, f01=0x0190, f02=» T X X W> Q W Y + U Q P W W Y ( Z| C b X *! T c8W c4 V L ! b k X 0 Y 8 X P b Y 0 X 0 X 2] X 8 Y 0 X b : X 0 :H* : X 2T Y 2 : C 1 B ] gB : c Y, X +! U 9K Y ( Y + Z|
0x1bb880…1bb886 00 00 00 00 00 00 ┆ ┆
0x1bb886…1bba1a Dummy {f00=0x0094, f01=0x0190, f02=» B _4 _ c X c* Y Y P Y B Yh c4 : ( c X D D : K + Q 2 P. P8 m | ( c B X # V : n y _0 o _>z z n z z z z z z z<y:z<x [ ]z]zz [ z z y4z W W X 0Q [f [d Y ( Y *P
0x1bba1a…1bba20 00 00 00 00 00 00 ┆ ┆
0x1bba20…1bbbb4 (6, 10) Dummy {f00=0x0094, f01=0x0190, f02=» Y 0] Y (_t " X _. X *# T W g B 1 g W " P X X$ C : X *! P g* b2 C W @ X (T W X y 6 Y ( : X (;n b z y |y y z z z y: x [ zF[ z y y4y b Y . Y ,W b Y . X ( X ." Pj X 0R T [ K T6 Y
0x1bbbb4…1bbbba 00 00 00 00 00 00 ┆ ┆
0x1bbbba…1bbd4e Dummy {f00=0x0094, f01=0x0190, f02=» T " T : Y . ` Y ( y: & C X .:H B b z< : b Y *T " T ! 1 W ! ) y : b y zb P & Y *T ] : X ?! T X &P V H " P y a b X ?! P* R Q$ X &P V D ! P $ ! P %_ y : b V Y " X .9H
0x1bbd4e…1bbd54 00 00 00 00 00 00 ┆ ┆
0x1bbd54…1bbee8 Dummy {f00=0x0094, f01=0x0190, f02=» Pl Pf P P _ P< `,WZ X ! X $" P<Q X (# P2 X # :! R$W `, _ T$ @ Y (W Y , ` W ` Y ( y: : X *:h X (! # P X & V L TbW X , X 0P@ _ T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l `,_r X ( P Y (_
0x1bbee8…1bbeee 00 00 00 00 00 00 ┆ ┆
0x1bbeee…1bc082 Dummy {f00=0x0094, f01=0x0190, f02=» `T X (P _ b> 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 a n 8 V Y 8 : " P X & V ( P ` : : _ "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : b X : X ( T X & V H "
0x1bc082…1bc088 00 00 00 00 00 00 ┆ ┆
0x1bc088…1bc21c Dummy {f00=0x0094, f01=0x0190, f02=» X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X b W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y n W Y ! P m W V Y a V Y : n y : 2' " P T
0x1bc21c…1bc220 00 00 00 00 ┆ ┆
0x1bc220…1bc222 00 00 ┆ ┆
0x1bc222…1bc3b6 Dummy {f00=0x0094, f01=0x0190, f02=» W m V y b Y Y Y < V E k B X _ v : C C gB : b b C : + B b C : b X @ ; [ W b X B ; [ h6 Z : : ; W ; [ [ [ B [ ( P B R g
0x1bc3b6…1bc3bc 00 00 00 00 00 00 ┆ ┆
0x1bc3bc…1bc550 Dummy {f00=0x0094, f01=0x0190, f02=» k X =' V W V Y =P c : g "Q V I k g ( T _& @jJX, @jL _6 m ( k n n V k W eL C C P ff W eL h P jx C _( W e"/ C C P fb W e"/
0x1bc550…1bc556 00 00 00 00 00 00 ┆ ┆
0x1bc556…1bc6ea Dummy {f00=0x0094, f01=0x0190, f02=» &P B V C / <H : hX h| C C W h C 9HR e ' W 781"&$ 39#$;< '()*+,-! 4? h hl n P _N g B n 'W g ( W~ n h| >A g % >a 1 ( 0 W : 1
0x1bc6ea…1bc6f0 00 00 00 00 00 00 ┆ ┆
0x1bc6f0…1bc884 (6, 11) Dummy {f00=0x0094, f01=0x0190, f02=» P B 5 : g h6 g* c. j g C C ' T T c8 f C B B P C gB : V I C B : ( ' P g I : hX hl % Y m C n & R V C n : B T T T V : 2 ' W 2 6
0x1bc884…1bc88a 00 00 00 00 00 00 ┆ ┆
0x1bc88a…1bca1e Dummy {f00=0x0094, f01=0x0190, f02=» B C : g h6 : g h6 : n C : : hX h| ,V jx : m P C W $0 P C h : m #0 T & C C : h C C : & T ;d# P S W P P, 9A:AV X R _ S W 4 _T :#0
0x1bca1e…1bca20 00 00 ┆ ┆
0x1bca20…1bca24 00 00 00 00 ┆ ┆
0x1bca24…1bcbb8 Dummy {f00=0x0094, f01=0x0190, f02=»R V > _V X^ ' h P P & 1_ P 1_ , @ - R ! - T U :J a B@ ' d w5 1 jJ m #0 T 8 ' : B B il : V C m P C #0 T & C C : h C C :k k k lFmJk mBq " (p s
0x1bcbb8…1bcbbe 00 00 00 00 00 00 ┆ ┆
0x1bcbbe…1bcd52 Dummy {f00=0x0094, f01=0x0190, f02=» W?H V Y V 7 @2H! P c P W kp lR 9c Dj 9a1 P n m Q j W p :aW _J( 2 P V W8 _ 2 # ;B V T 2 W V P L , V 2P " 2 P V D ! R T V P V c W V
0x1bcd52…1bcd58 00 00 00 00 00 00 ┆ ┆
0x1bcd58…1bceec Dummy {f00=0x0094, f01=0x0190, f02=» 6 E 7_ 2 # L2Z n 2# &X 3Y $! 2P R P _ 9B k _ 6 D " 7 $ V P c W lD j~ k o V & k Hj 'W 'W '_8242<282@ :l:d:h n W W n W 6 2 o W6 @2J
0x1bceec…1bcef2 00 00 00 00 00 00 ┆ ┆
0x1bcef2…1bd086 Dummy {f00=0x0094, f01=0x0190, f02=» V Lm| , :B , ( "@T : [ [ n & @2J! P [ 6 [ Z 7 m Z 7 : 6 2 o W " # T R p4 px ;b W " ;d# _ :B , (Vh ; H [ [ [ n z ;AV" Z H " ; n
0x1bd086…1bd08c 00 00 00 00 00 00 ┆ ┆
0x1bd08c…1bd220 Dummy {f00=0x0094, f01=0x0190, f02=» :;H 2 ;h# X@ : @2L" P [ :;H 2 ;h R # # Xl : 2! : 6 2 o W& " # of;b ; : ;f" #?_" [ v [ c n c Z Z : R ; n 6 :;d# F " n
0x1bd220…1bd226 00 00 00 00 00 00 ┆ ┆
0x1bd226…1bd3ba Dummy {f00=0x0094, f01=0x0190, f02=» R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b s P r Pd P 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q
0x1bd3ba…1bd3c0 00 00 00 00 00 00 ┆ ┆
0x1bd3c0…1bd554 (6, 12) Dummy {f00=0x0095, f01=0x0190, f02=»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 + P 7 Y Z $ _ :
0x1bd554…1bd55a 00 00 00 00 00 00 ┆ ┆
0x1bd55a…1bd6ee Dummy {f00=0x0095, f01=0x0190, f02=» : V S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ wXq wXq wX ( Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P wX " V H )_ wXw _X z R z
0x1bd6ee…1bd6f4 00 00 00 00 00 00 ┆ ┆
0x1bd6f4…1bd888 Dummy {f00=0x0095, f01=0x0190, f02=»P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $ [ [ &! P w. wXq wXq wX ( z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z wXq Q wXw P
0x1bd888…1bd88e 00 00 00 00 00 00 ┆ ┆
0x1bd88e…1bda22 Dummy {f00=0x0095, f01=0x0190, f02=»q R [ Z { wX " z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( 4 P 9 59D_ " P P [ ! :d" 5 : !! gg++ L 33
0x1bda22…1bda28 00 00 00 00 00 00 ┆ ┆
0x1bda28…1bdbbc Dummy {f00=0x0095, f01=0x0190, f02=» : n x x xT m V y y y V Z P 2 " T W "@T '?W "? Hw " K :e J J " J _Z Z y [ Z P c [ V 7_ W Z y @2H! P c Z 7 Z Z P c
0x1bdbbc…1bdbc0 00 00 00 00 ┆ ┆
0x1bdbc0…1bdbc2 00 00 ┆ ┆
0x1bdbc2…1bdd56 Dummy {f00=0x0095, f01=0x0190, f02=»_ PZ 4 WV K zPWJ z W +_ z( z$ K W. _& X g W X & g J K : V : 1 y zb : ! P ! P ! P ! P n ! P m W : ! )P9H # T &W &" :I : z : P & _ &X _ : : : : |0
0x1bdd56…1bdd5c 00 00 00 00 00 00 ┆ ┆
0x1bdd5c…1bdef0 Dummy {f00=0x0095, f01=0x0190, f02=»P $ 1T Y W 5 _$ : |h $ R W R # P W ) V E |0 WX |h [ |0 : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : q : n n jP kT T : & 9! " : $ :
0x1bdef0…1bdef6 00 00 00 00 00 00 ┆ ┆
0x1bdef6…1be08a Dummy {f00=0x0095, f01=0x0190, f02=»n Y Y . & C ~ T ) Y C X C Y D X 9AR +@9GR + X ! P + Y F x T4 Y F X X . 8 VD b X 0P X T 5 ! Y N Y R : Y M P U Y O X Y H Y Y L Y P X & ( ' Pp b & X M X F9
0x1be08a…1be090 00 00 00 00 00 00 ┆ ┆
0x1be090…1be224 (6, 13) Dummy {f00=0x0095, f01=0x0190, f02=»P^WL Q C X F: V T ~ _d X !? U _v Zv: V P ; Y : _ X N" P ~ _ ~ _ m n n " n $ : ~ ( c n ( c b> : X X L Y X X % Y : X " X ) X : X ," P _ : W hX
0x1be224…1be22a 00 00 00 00 00 00 ┆ ┆
0x1be22a…1be3be Dummy {f00=0x0095, f01=0x0190, f02=»W W W W hX// C C C P$ jx P h C P P e& fb n &<H : W " T & T + : * & !@P `1` P q Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P
0x1be3be…1be3c0 00 00 ┆ ┆
0x1be3c0…1be3c4 00 00 00 00 ┆ ┆
0x1be3c4…1be558 Dummy {f00=0x0095, f01=0x0190, f02=»_ P :" P * U P 1`! T "# 9e! # K : : + n [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I n * B Z 9 ! [ [ ; *X| 8 ! D ^ 0P Wh 0W2 W` :T& *W& FP . :T Z ! XBW *X& FW: :P # Q
0x1be558…1be55e 00 00 00 00 00 00 ┆ ┆
0x1be55e…1be6f2 Dummy {f00=0x0095, f01=0x0190, f02=»_BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ 8 8 !++P !--T z ;$# + V Z 9H Z [ Z 9H# [ _F P , X 1 _ [ [ F N nR. PT*AXYZ9
0x1be6f2…1be6f8 00 00 00 00 00 00 ┆ ┆
0x1be6f8…1be88c Dummy {f00=0x0095, f01=0x0190, f02=» ( $ _ 0 _
0x1be88c…1be892 00 00 00 00 00 00 ┆ ┆
0x1be892…1bea26 Dummy {f00=0x0095, f01=0x0190, f02=» V d 0 ! 0 P 0 0 W A "0 0 @ 50 T A 0 0 0 0 0 1 +A 2 _ I# J$ B% jB%! ! Z _>J A0 _o4 0 0 C P 4 R Q #W) ! 3W 2W ! < <( *W 4W 5 [0 4 [
0x1bea26…1bea2c 00 00 00 00 00 00 ┆ ┆
0x1bea2c…1bebc0 Dummy {f00=0x0095, f01=0x0190, f02=» "W #W &W * #4 4 ! ) ! & ! ' _# 1_ 6 h # ! 77 //6@ _ A#:_I ! K( / NXW M^ 0 # 0 # "q_k W " W WL:_ ! K _ W! W_ I P ( _ _ %d ( h ! !T f !_ . 0 _ @ 1 7 _ A _ 7 @ h @# ! 1_
0x1bebc0…1bebc6 00 00 00 00 00 00 ┆ ┆
0x1bebc6…1bed5a Dummy {f00=0x0095, f01=0x0190, f02=» @ ? < 0 $$0 $$? < ? ^PT 0 `!C ^ P( IP( ! 2? [0 6( ; 7? ,? 0 `!CW IP? A A! A" A!? %j j & ? P hN # #P # ; 4 0 # jP!!O "( * $H %0 0 P0 C 0 " 0 &) +W ( ! 2W !T -W [0
0x1bed5a…1bed60 00 00 00 00 00 00 ┆ ┆
0x1bed60…1beef4 (6, 14) Dummy {f00=0x0095, f01=0x0190, f02=» d4 !4 "4 #4 $4 4 8 I 6 / 0 ! W(0 ! W!0 ! W @ 6 0 ! W 0 ! 0 ! 0 R 0 P R _ 0 0 R , "? 3@ 6 % CKCCCCCCWa !0 2 W ( I 0 @ A 6 f .W !@ 4 0!W 0"W 0#W X _ !0$ _
0x1beef4…1beefa 00 00 00 00 00 00 ┆ ┆
0x1beefa…1bf08e Dummy {f00=0x0095, f01=0x0190, f02=»P $ % 0 0) << 2 ? 2 #4 0 0 ? !4 I ! PaQ 0 % "1 , 0 W !0 ( 0 ! _. I 6 _+0 0 W =0 0 4 [ * 0 0 6 4 A _ 0 0 4 0 !0 0 4 1 A
0x1bf08e…1bf094 00 00 00 00 00 00 ┆ ┆
0x1bf094…1bf228 Dummy {f00=0x0095, f01=0x0190, f02=»0 ` C X 4 z , Q m [ n ) V X n h & C J ^ X P , 0 2 3 6
0x1bf228…1bf22e 00 00 00 00 00 00 ┆ ┆
0x1bf22e…1bf3c2 Dummy {f00=0x0095, f01=0x0190, f02=»CDELETE FILEIMPORTANT: VOLUME-NAME:CREATE VOLUMEWSM UTILITIESCOPY VOLUME/FILECHANGE VOLUME-NAMEPRESS ENT TO CONTINUE FUNCTION SELECTION:CREATE WSM SYSTEM FILEEXTEND WSM SYSTEM FILEALWAYS RETURN TO THIS MENU BEFORE UNLOADING ANY VOLUME! 'X [ :
0x1bf3c2…1bf3c8 00 00 00 00 00 00 ┆ ┆
0x1bf3c8…1bf55c Dummy {f00=0x0095, f01=0x0190, f02=» UNDEFINED ERROR NOT A TOSS DISK! DISK NOT OPERABLE FILE NAME UNKNOWN NEW VOLUME LOADED DISK NOT IN SYSTEM DISK/FILE OVERFLOW FUNCTION NOT ALLOWED FILENAME ALREADY USED TOO FEW INPUT CHARACTERS WSM SYSTEM FILE NOT CREATED COMPULSORY FIELD N
0x1bf55c…1bf560 00 00 00 00 ┆ ┆
0x1bf560…1bf562 00 00 ┆ ┆
0x1bf562…1bf6f6 Dummy {f00=0x0095, f01=0x0190, f02=» . A / G 0 > 1 C 2 H 3 4 D 5 = ? I J' %) & ($"!# " # $ % & ' ( ) + - / 1 4 7 : = @
0x1bf6f6…1bf6fc 00 00 00 00 00 00 ┆ ┆
0x1bf6fc…1bf890 Dummy {f00=0x0095, f01=0x0190, f02=» & 2 B R c t ' ? Z x * @ f @ T 4 8
0x1bf890…1bf896 00 00 00 00 00 00 ┆ ┆
0x1bf896…1bfa2a Dummy {f00=0x0095, f01=0x0190, f02=» n | @ 1 "A 2 _ 4 2@ 1 A 2 _ jB&!Q!jB'!R!jB.&J jB6!#!jB7! 0+B ! 2 )[ _= _c1 A A 2 _ @ WG ^QT< _RT2A QR 0 `!CK^ W 0 `!CK_ T @ 0 `! W P JRT QR IQI _Y ,_^0 `#CL_ T 0 `# W / "G 0 Q0, C Ej "C
0x1bfa2a…1bfa30 00 00 00 00 00 00 ┆ ┆
0x1bfa30…1bfbc4 (6, 15) Dummy {f00=0x0095, f01=0x0190, f02=» j ! 4 , ) ' (j "C "j "C 0- ! " ! !Yo0 !&jB'! jB((L jB0&_ 0 `# W X 0*B % * jB'! jB((L bB0&_ jB ) 4 jB ! 4 j !! 4 8jB " 4 j " 4 W " ) 'OjB " 4( "0 0 ! " ! # " "0 $ " ! " !I ! # "H0. " jB " Wi0
0x1bfbc4…1bfbca 00 00 00 00 00 00 ┆ ┆
0x1bfbca…1bfd5e Dummy {f00=0x0095, f01=0x0190, f02=» QR 0 `!CK^ W 0 `!CK_ < 0 `#CL_ T YHj " 44j " 460 Q00 `! !>Y T]0 R01 `# !>Y TM YW YH_)0- W0 Q0 `! W P WG0 Q0 `! W ? 0 R0 `# W < JR< QR IQ< ? WG0 R0 `# W WG0 Q0 `! W ? 1 A A 2 _ WG ^QT* _RT QR 0 `!CK^ W 0 `!CK_ P JRT
0x1bfd5e…1bfd60 00 00 ┆ ┆
0x1bfd60…1bfd64 00 00 00 00 ┆ ┆
0x1bfd64…1bfef8 Dummy {f00=0x0095, f01=0x0190, f02=»0 `! >Y P 2 _ . 8 hD ! !T !j & !E( W-!D) !D% 1 W 1 W 1 A 0 "" 2 _ )F+hjB%' 0 ! jB." jB (K (jB &^ (QR jB &_ 02B !T%jB%' jB,!"! jB (L (jB &_ 03B !P j "B4 E)u? )E) ? !P *_ j " "j " $0- Y( ? ! ?
0x1bfef8…1bfefe 00 00 00 00 00 00 ┆ ┆
0x1bfefe…1c0092 Dummy {f00=0x0095, f01=0x0190, f02=» 4 1 A 2 _ 0 !, L: *jB%!B$jB'! jB((L jB0&^ 0*B % * jB'!P!jB'! jB((L bB0&^ <j "# jB ) jB !!! jB "> 0.W jB " jB " jB " jB " 0/B , ! TE0 `!CK^ T: Y!0.Yp!p"00 `! >Y < j !! ( 0- Y_'0 `#CL^ < W IP _ [
0x1c0092…1c0098 00 00 00 00 00 00 ┆ ┆
0x1c0098…1c022c Dummy {f00=0x0095, f01=0x0190, f02=» _ ( !# #_ 01 `# >Y < !P/0- 0. !0- H0. YH !n _y #0-p!p"Y00 `! >Y < XH0.X 01 `! >Y < ! 0, C <!j "C* j "C j "C&j "C, ! 0, C <! hL (C (P !PA !_(( j !!C ( "bC (K * !
0x1c022c…1c0232 00 00 00 00 00 00 ┆ ┆
0x1c0232…1c03c6 Dummy {f00=0x0095, f01=0x0190, f02=» j !!C jC ! !05 C <! W # !?!H IP@ 4 0 ` C 4 YG ^P<"A 0 `!CK^ P )4 24 0 `! Y "G 0, C "j "C* j "C j "C&j "C, ! 0, C N hK (C (P !T ) "GV ,4 !_2( j !!C ( " * j "C $ "
0x1c03c6…1c03cc 00 00 00 00 00 00 ┆ ┆
0x1c03cc…1c0560 Dummy {f00=0x0095, f01=0x0190, f02=» j "C j "C 0- ! " !! ( ! (_& !P !_F4 " " $ q . ; x & / A c 6 ` ] n ' x P ( . 1 2 4 6 8 : J
0x1c0560…1c0566 00 00 00 00 00 00 ┆ ┆
0x1c0566…1c06fa Dummy {f00=0x0095, f01=0x0190, f02=»:VOLUME/FILECOPY FORMAT:VOLUME-NAME:COPY SECTION:COPY SPECIFIC:COPY DEFINITION:WHOLE FILE ? Y/N/S:COPY VOLUME TO VOLUMEEXTEND WSM SYSTEM FILE TTTTXTTTTTTX [ D E ! F ? A C / F D E
0x1c06fa…1c0700 00 00 00 00 00 00 ┆ ┆
0x1c0700…1c0894 (6, 16) Dummy {f00=0x0096, f01=0x0190, f02=» @ I ; K 9 0 . = X 8 0 1 . = W 3 6 @ ! I * ; 3 K 7 6 @ ! J * ; 3 K L 2 > TYPE OF COPY: V = VOLUME F = FILE W = WSM SYST
0x1c0894…1c089a 00 00 00 00 00 00 ┆ ┆
0x1c089a…1c0a2e Dummy {f00=0x0096, f01=0x0190, f02=» " # $ % & ' ( ) * + , . 1 4 8 = B G L Q V c k s | 0 0 0 0 ! $ 1 > K X g % , ^ ` 0 t 0 X T ` `
0x1c0a2e…1c0a34 00 00 00 00 00 00 ┆ ┆
0x1c0a34…1c0bc8 Dummy {f00=0x0096, f01=0x0190, f02=» * < J " &I ? 1 A 2 _ #8 "8 0, C T j "C* j "C j "C&j "C, ! 0, C T hK (C (P !T ,_m !_- *j "C & "j "C "j "C 0- $ $ #*W $ ! # $_ jB&!R!jB'!P! "j "C "j "C 0- ! ! # W9 !W0. ! jB*" jB,"
0x1c0bc8…1c0bce 00 00 00 00 00 00 ┆ ┆
0x1c0bce…1c0d62 Dummy {f00=0x0096, f01=0x0190, f02=»Q00 `! >Y P [0 6 6 R & _* . 8 jD ! !j & 0( T 'j " jB%' 0 ! jB." :jB (K (jB &^ 02B !P j "B4 6 R = _A j !! !2 !D j !! !6 "6 MM W R _ !P *_ j " "j " $0- Y ! : ? ! "
0x1c0d62…1c0d68 00 00 00 00 00 00 ┆ ┆
0x1c0d68…1c0efc Dummy {f00=0x0096, f01=0x0190, f02=»P # W ! 4 1 A 2 _ 0 P0 CJ P _ 4 1 A 2 _ R jB$! jB&!R!jB'!P!jB(" 07B % * _7 4 1 A 2 _ ^PTE0 `!CK^ T ! IP '_( "8 0, C T j "C* j "C 0, C P IPXV _Z ! " j "C j "C 0- ! " !! ( ! (_&
0x1c0efc…1c0f00 00 00 00 00 ┆ ┆
0x1c0f00…1c0f02 00 00 ┆ ┆
0x1c0f02…1c1096 Dummy {f00=0x0096, f01=0x0190, f02=» jB " jB " jB " 0/B , ! T 0 `!CK^ P _ IP8 1 A ? [ $ W ; : ! 9 8 ! !( ! Y9j ! ! ! (R ! _ ( !# _ 01 `! >Y Tq !P"0- 0. ! Y ! !d _l Y9 !6
0x1c1096…1c109c 00 00 00 00 00 00 ┆ ┆
0x1c109c…1c1230 Dummy {f00=0x0096, f01=0x0190, f02=» jB'!P!jB(&J UjB." jB0!@!jB1!!!jB3!D "@" 1 A 2 _NjB2!A!0 !708B % * " 1 A _r _v 4 @ % G r $ + f 8 m z h o H n ' x
0x1c1230…1c1236 00 00 00 00 00 00 ┆ ┆
0x1c1236…1c13ca Dummy {f00=0x0096, f01=0x0190, f02=»NAME:CREATE VOLUMENO. OF FILES:FROM RECORD NO.:TO RECORD NO.:CHANGE VOLUME-NAMECREATE WSM SYSTEM FILEENTER DISK VERSION - 1 = UNPACKEDPRINT VTOC (VOLUME TABLE OF CONTENTS) $ XTXTTXTTTTXTTTTTTX 1 [ [ 5 H 6 . *
0x1c13ca…1c13d0 00 00 00 00 00 00 ┆ ┆
0x1c13d0…1c1564 (6, 17) Dummy {f00=0x0096, f01=0x0190, f02=» 7 ) / I PRINT OUTPUT DEVICE: ) / I + K 2 W 3 Y PRINT OUTPUT DEVICE: 0 ) / I / I J 1 % U TYPE: G 6POSSIBLE TYPES
0x1c1564…1c156a 00 00 00 00 00 00 ┆ ┆
0x1c156a…1c16fe Dummy {f00=0x0096, f01=0x0190, f02=» MB FLEXIBLE DISK (PTS-6791) (- 4 = 5 MB CARTRIDGE, FIX (PTS-6876) 2- 5 = 16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962) (- 6 = 16 MB CARTRIDGE, FIX (PTS-6964) (- 7 = 12.8 MB WINCHESTER (PTS-6794) (- 8 = 26.7 MB WINCHESTER
0x1c16fe…1c1700 00 00 ┆ ┆
0x1c1700…1c1704 00 00 00 00 ┆ ┆
0x1c1704…1c1898 Dummy {f00=0x0096, f01=0x0190, f02=» 11 = 70 MB WINCHESTER (PTS-6793) (- 12 = 188 MB WINCHESTER (PTS-6793) 2- 13 = 80 MB CARTRIDGE, FIX (PTS-6877, PTS-6962) (- 14 = 80 MB FIX (PTS-6964) TEST: D /I MEANS INITIAL WRITE/READ-TEST OF ALL SECTORS
0x1c1898…1c189e 00 00 00 00 00 00 ┆ ┆
0x1c189e…1c1a32 Dummy {f00=0x0096, f01=0x0190, f02=» " $ ' * . 3 9 B L W c o | ! % 0 0 0 0 8 & V 1 | @ k X 6
0x1c1a32…1c1a38 00 00 00 00 00 00 ┆ ┆
0x1c1a38…1c1bcc Dummy {f00=0x0096, f01=0x0190, f02=» W0 k- P 2 2 . )T > 2 P ` J F " D b hkb oc T! c TM TI TE k. b hkb oc T6 c T7 b/h4b oc T c r 2 2
0x1c1bcc…1c1bd2 00 00 00 00 00 00 ┆ ┆
0x1c1bd2…1c1d66 Dummy {f00=0x0096, f01=0x418a, f02=» [ m J F " D @1 #k2 jl k c c` "0 lT! l b $b #b3 W ( b W W & " t k " J F " D 4 vc k4 b hkb ov T= v v`P5 b h6b ov T)jk 7b!k5 v v`P k6
0x1c1d66…1c1d6c 00 00 00 00 00 00 ┆ ┆
0x1c1d6c…1c1f00 Dummy {f00=0x0096, f01=0x0190, f02=» J H IDENT WSMPRT TRA 13.0 85-09-01 F1 O1111 REL=2.3,830509,870155940230 ATTPRT0 DETPRT0 PRTCHK0 R $ ATTPRT0 DETPRT0 # PRTCHK0 t $$$TRA0 B > WSMERR0 CHANFC0 ICLEAR0 TESTB T:DSC10 T:WRIL0 T:KI0 T:DSC00 . * T:DELA0 T:TEST0 T
0x1c1f00…1c1f06 01 64 01 90 5f 0e ┆ d _ ┆
0x1c1f06…1c209a Dummy {f00=0x0096, f01=0x0190, f02=» 6 6 0 ! B % R - b 3 t 5 : 0 , * > $++WHICH PRINT-DEVICE <GP> OR <LP> ? A J F " D a 0 Hm 0
0x1c209a…1c20a0 01 64 01 90 5f 0e ┆ d _ ┆
0x1c20a0…1c2234 (6, 18) Opaque[0x194]
0x1c2234…1c223a 00 00 00 00 00 00 ┆ ┆
0x1c223a…1c23ce # DirEnt {nam=»W:UTIB«, typ=»LM«, f00=0xab4c, f01=0x0000, f02=0x12d0, f03=0x0000}
0x1c223a…1c23ce IdxSect {
0x1c223a…1c23ce f00 = 0x0096 // 0x1c223a @0x0
0x1c223a…1c23ce f01 = 0x0026 // 0x1c223c @0x2
0x1c223a…1c23ce gno = [ // 0x1c223e @0x4
0x1c223a…1c23ce [0x00]: C0x0096.0x2.0
0x1c223a…1c23ce [0x01]: C0x0096.0x3.0
0x1c223a…1c23ce [0x02]: C0x0097.0x0.0
0x1c223a…1c23ce [0x03]: C0x0097.0x1.0
0x1c223a…1c23ce [0x04]: C0x0097.0x2.0
0x1c223a…1c23ce [0x05]: C0x0097.0x3.0
0x1c223a…1c23ce [0x06]: C0x0098.0x0.0
0x1c223a…1c23ce [0x07]: C0x0098.0x1.0
0x1c223a…1c23ce [0x08]: C0x0098.0x2.0
0x1c223a…1c23ce [0x09]: C0x0098.0x3.0
0x1c223a…1c23ce [0x0a]: C0x0099.0x0.0
0x1c223a…1c23ce [0x0b]: C0x0099.0x1.0
0x1c223a…1c23ce [0x0c]: C0x0099.0x2.0
0x1c223a…1c23ce [0x0d]: C0x0099.0x3.0
0x1c223a…1c23ce [0x0e]: C0x009a.0x0.0
0x1c223a…1c23ce [0x0f]: C0x009a.0x1.0
0x1c223a…1c23ce [0x10]: C0x009a.0x2.0
0x1c223a…1c23ce [0x11]: C0x009a.0x3.0
0x1c223a…1c23ce [0x12]: C0x009b.0x0.0
0x1c223a…1c23ce ]
0x1c223a…1c23ce }
0x1c23ce…1c23d4 00 00 00 00 00 00 ┆ ┆
0x1c23d4…1c2568 Dummy {f00=0x0096, f01=0x0190, f02=»l 2&CR-T4 R r (R s D } D * d d 6 d P d X d
0x1c2568…1c256e 00 00 00 00 00 00 ┆ ┆
0x1c256e…1c2702 Dummy {f00=0x0096, f01=0x0190, f02=» FU <* *P*,* * , * -h-2- - - - .D- / . 0 / 0 / 1N1*1 1 FU * (
0x1c2702…1c2708 00 00 00 00 00 00 ┆ ┆
0x1c2708…1c289c Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c289c…1c28a0 00 00 00 00 ┆ ┆
0x1c28a0…1c28a2 00 00 ┆ ┆
0x1c28a2…1c2a36 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c2a36…1c2a3c 00 00 00 00 00 00 ┆ ┆
0x1c2a3c…1c2bd0 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c2bd0…1c2bd6 00 00 00 00 00 00 ┆ ┆
0x1c2bd6…1c2d6a Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c2d6a…1c2d70 00 00 00 00 00 00 ┆ ┆
0x1c2d70…1c2f04 (6, 19) Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c2f04…1c2f0a 00 00 00 00 00 00 ┆ ┆
0x1c2f0a…1c309e Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c309e…1c30a0 00 00 ┆ ┆
0x1c30a0…1c30a4 00 00 00 00 ┆ ┆
0x1c30a4…1c3238 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c3238…1c323e 00 00 00 00 00 00 ┆ ┆
0x1c323e…1c33d2 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c33d2…1c33d8 00 00 00 00 00 00 ┆ ┆
0x1c33d8…1c356c Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c356c…1c3572 00 00 00 00 00 00 ┆ ┆
0x1c3572…1c3706 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c3706…1c370c 00 00 00 00 00 00 ┆ ┆
0x1c370c…1c38a0 Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c38a0…1c38a6 00 00 00 00 00 00 ┆ ┆
0x1c38a6…1c3a3a Dummy {f00=0x0096, f01=0x0190, f02=»
0x1c3a3a…1c3a40 00 00 00 00 00 00 ┆ ┆
0x1c3a40…1c3bd4 (6, 20) Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c3bd4…1c3bda 00 00 00 00 00 00 ┆ ┆
0x1c3bda…1c3d6e Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c3d6e…1c3d74 00 00 00 00 00 00 ┆ ┆
0x1c3d74…1c3f08 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c3f08…1c3f0e 00 00 00 00 00 00 ┆ ┆
0x1c3f0e…1c40a2 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c40a2…1c40a8 00 00 00 00 00 00 ┆ ┆
0x1c40a8…1c423c Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c423c…1c4240 00 00 00 00 ┆ ┆
0x1c4240…1c4242 00 00 ┆ ┆
0x1c4242…1c43d6 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c43d6…1c43dc 00 00 00 00 00 00 ┆ ┆
0x1c43dc…1c4570 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c4570…1c4576 00 00 00 00 00 00 ┆ ┆
0x1c4576…1c470a Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c470a…1c4710 00 00 00 00 00 00 ┆ ┆
0x1c4710…1c48a4 (6, 21) Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c48a4…1c48aa 00 00 00 00 00 00 ┆ ┆
0x1c48aa…1c4a3e Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c4a3e…1c4a40 00 00 ┆ ┆
0x1c4a40…1c4a44 00 00 00 00 ┆ ┆
0x1c4a44…1c4bd8 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c4bd8…1c4bde 00 00 00 00 00 00 ┆ ┆
0x1c4bde…1c4d72 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c4d72…1c4d78 00 00 00 00 00 00 ┆ ┆
0x1c4d78…1c4f0c Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c4f0c…1c4f12 00 00 00 00 00 00 ┆ ┆
0x1c4f12…1c50a6 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c50a6…1c50ac 00 00 00 00 00 00 ┆ ┆
0x1c50ac…1c5240 Dummy {f00=0x0097, f01=0x0190, f02=» 2.385 09 01 " ( ( ( ( ( 0 (
0x1c5240…1c5246 00 00 00 00 00 00 ┆ ┆
0x1c5246…1c53da Dummy {f00=0x0097, f01=0x0190, f02=» B @ B
0x1c53da…1c53e0 00 00 00 00 00 00 ┆ ┆
0x1c53e0…1c5574 (6, 22) Dummy {f00=0x0097, f01=0x0190, f02=» CM1PM1DU2DU1DU4DU3FD1FD2FD3FD4CD1CD2CD3CD4CD5CD6CD7CD8WD1WD2WD3WD4WD5WD6WD7WD8 B P T T U V0 W0 Y Z
0x1c5574…1c557a 00 00 00 00 00 00 ┆ ┆
0x1c557a…1c570e Dummy {f00=0x0097, f01=0x0190, f02=»0 0 0 & , Z P X P 801;01;24;80;1?;25;01;01;80;0= > ) 8 :
0x1c570e…1c5714 00 00 00 00 00 00 ┆ ┆
0x1c5714…1c58a8 Dummy {f00=0x0097, f01=0x0190, f02=» 0807090205131924181120230415 2 x F @
0x1c58a8…1c58ae 00 00 00 00 00 00 ┆ ┆
0x1c58ae…1c5a42 Dummy {f00=0x0097, f01=0x0190, f02=» * $ B
0x1c5a42…1c5a48 00 00 00 00 00 00 ┆ ┆
0x1c5a48…1c5bdc Dummy {f00=0x0097, f01=0x0190, f02=» 6 > 0 L0 M0 O0 R0 Y . 4l 2Z2 2Z2 3 4 4 4 4 6l 8; 8 f 4Nf ex c e 5 7 X8X<g f 8H847 6 5Dfve, f f &W&Y c2S V V W W W X VlP WVO eP4|4 6b7 7 4r6 6 ;l; ; 6 4 4 4hFILE:PRINT FILE TABLE OF CONTENTSZZ9ZZZZZZVZ
0x1c5bdc…1c5be0 00 00 00 00 ┆ ┆
0x1c5be0…1c5be2 00 00 ┆ ┆
0x1c5be2…1c5d76 Dummy {f00=0x0097, f01=0x0190, f02=» SECTORS: NAME TYPE SIZE VERSION SECTOR + K ON VOLUME: I PAGE: 4 # 0 ( S3 2 3 2 3 2 3 3E P #MU1 4$ p & A4 4 ( p @4$ ' m i p F Y C 5 CR V
0x1c5d76…1c5d7c 00 00 00 00 00 00 ┆ ┆
0x1c5d7c…1c5f10 Dummy {f00=0x0097, f01=0x0190, f02=» C ( B P W # C ( TU C ( B P WV 0WR i p C p ( B T B $ ' Y B p ' P V Q m i C C C p ( B (
0x1c5f10…1c5f16 00 00 00 00 00 00 ┆ ┆
0x1c5f16…1c60aa Dummy {f00=0x0097, f01=0x0190, f02=» _ W i p & C C C p ( B ( _h W i p & C p p & C p & j C C ( 5 W j B Y : Y < * C _2 i p p P ) p N & 9
0x1c60aa…1c60b0 00 00 00 00 00 00 ┆ ┆
0x1c60b0…1c6244 (6, 23) Dummy {f00=0x0097, f01=0x0190, f02=» p : Z k m p & p 9l ! Q 0W 7 ' Y m p p ' p m 8 9O ' m 8 9o '_ <` 8 & @8 A8p ! '_2<@ 8 & @8v A8 ! '_L p '_T p & p & p :
0x1c6244…1c624a 00 00 00 00 00 00 ┆ ┆
0x1c624a…1c63de Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c63de…1c63e0 00 00 ┆ ┆
0x1c63e0…1c63e4 00 00 00 00 ┆ ┆
0x1c63e4…1c6578 Dummy {f00=0x0097, f01=0x0190, f02=» B1 8 9 : 9 p F : >6 : K K K K p : F Q ' _ ' @: W| W W @W p @: % ^ @; B E D % p : @T C W" p p
0x1c6578…1c657e 00 00 00 00 00 00 ┆ ┆
0x1c657e…1c6712 Dummy {f00=0x0097, f01=0x0190, f02=»
0x1c6712…1c6718 00 00 00 00 00 00 ┆ ┆
0x1c6718…1c68ac Dummy {f00=0x0097, f01=0x0190, f02=» ; P, 8 ' _ ; P 8 'T _ W [ : : X ' _ [ & ? ? Pd & @ P &@T
0x1c68ac…1c68b2 00 00 00 00 00 00 ┆ ┆
0x1c68b2…1c6a46 Dummy {f00=0x0097, f01=0x0190, f02=» P Q T P T B AX Z A T U TN T T& P@ @: A>~ @: W P L M @> I A> U W A R< A: T P AB T . U W T T TV A R T T & AB O B Nj A> An A> B T P Q
0x1c6a46…1c6a4c 00 00 00 00 00 00 ┆ ┆
0x1c6a4c…1c6be0 Dummy {f00=0x0097, f01=0x0190, f02=» W P T| A R Td T U T @; P T B U B TZT. Z P Q A T : >H W: B Q,R. A _( B W" W W W W W C W W Z [ : A P W( >6 B : >h U U [ : @
0x1c6be0…1c6be6 00 00 00 00 00 00 ┆ ┆
0x1c6be6…1c6d7a Dummy {f00=0x0097, f01=0x0190, f02=»T T " C T & TlW T " Pf @: _@ B U T " TJ @>~P, P@ @: T M U P T A> A>~ @> T A> W W W [ : @; P TL T ( _. @; H >JPB @; H P P T @W
0x1c6d7a…1c6d80 00 00 00 00 00 00 ┆ ┆
0x1c6d80…1c6f14 (6, 24) Dummy {f00=0x0098, f01=0x0190, f02=»W* P Y T W K W J $ K a; Y T4( X `; P X W a; Y Y X W C [ : D AD AD `; T ( _ P X _ 8 ; D X @; >6 >6 [ TR
0x1c6f14…1c6f1a 00 00 00 00 00 00 ┆ ┆
0x1c6f1a…1c70ae Dummy {f00=0x0098, f01=0x0190, f02=» Z P Q T FVT` T U T T @>~T& P @: A>~ @: W Pf L M @> I A> U WJ W W W P O Z P Q T B [ FV Z C Z , PV `; P( P P _ L ] W L M W P
0x1c70ae…1c70b4 00 00 00 00 00 00 ┆ ┆
0x1c70b4…1c7248 Dummy {f00=0x0098, f01=0x0190, f02=» C P P Pv @Pv HdWt K Tn @D X >h AFR NjTX [ @D FP >6 AFRP2 @D X C ( HdT `FP =H : _F K W K TJ HN D AFL C ( HdT* JFP0 D J T H@ @FL C ( HdT J _D B ( @FRT0 @FPT* AFP AFH
0x1c7248…1c724e 00 00 00 00 00 00 ┆ ┆
0x1c724e…1c73e2 Dummy {f00=0x0098, f01=0x0190, f02=» `FTP >H : FT_ _l @FL C ( D HdT FH K R Q W C W W Z Z [ : ; I @; H >JP> P @; H P & P J& Q >6WT P P T@ P C W T P
0x1c73e2…1c73e8 00 00 00 00 00 00 ┆ ┆
0x1c73e8…1c757c Dummy {f00=0x0098, f01=0x0190, f02=»X T B Q Q Z P B ( C B * C / ' ( B T Tt Z PjW T^ T> @; HW P6 " >J P $ >6 P I C W @ C W W : [ : @D T K C ( C * 4<HT _ R <A_
0x1c757c…1c7580 00 00 00 00 ┆ ┆
0x1c7580…1c7582 00 00 ┆ ┆
0x1c7582…1c7716 Dummy {f00=0x0098, f01=0x0190, f02=»D HdT J C ( D J J ( ,V J J N_T B ( * D R _ *<H P < P RP W VD @D Y R < _ <h + J C ( C HdT J C (W C W R W W [ : B TP, B
0x1c7716…1c771c 00 00 00 00 00 00 ┆ ┆
0x1c771c…1c78b0 Dummy {f00=0x0098, f01=0x0190, f02=» P K W Z M D JFP( D J T M K C ( HdT _. B ( D K J C ( HdT D J C ( HdT| D J C ( K D >n _ >JPx Z P _ $ >6 * E J E 2
0x1c78b0…1c78b6 00 00 00 00 00 00 ┆ ┆
0x1c78b6…1c7a4a Dummy {f00=0x0098, f01=0x0190, f02=»_0 X C ( HdT W @ C W C W R W [ : W ; R _ &<H P < T W R < _ <h ' ; : ; @; T V O Tt Z _ U @; 4<HT _ R <A_ <A <a ^ <h 5 P ;H : ' T P
0x1c7a4a…1c7a50 00 00 00 00 00 00 ┆ ┆
0x1c7a50…1c7be4 (6, 25) Dummy {f00=0x0098, f01=0x0190, f02=» A> W @: A>~W Q T N :H : & T @; P Q >n W [ : B : :h N :H : & :D p #0 0T & ! T P & ! X T C m d d( U U Z Y ( x P* Y * R R x y Q W Q Y
0x1c7be4…1c7bea 00 00 00 00 00 00 ┆ ┆
0x1c7bea…1c7d7e Dummy {f00=0x0098, f01=0x0190, f02=» C ( Y * X Y , ZR d^W Y * X Y , ZR X X C & C C ( B Ph9 R^9 TT X !@PP X X * b ) Y * Y , X , ZR x X *YrP y X " x Y X " T Y _ T _ B U C Q C DQ Q Q Q R<TbTxRp X X
0x1c7d7e…1c7d80 00 00 ┆ ┆
0x1c7d80…1c7d84 00 00 00 00 ┆ ┆
0x1c7d84…1c7f18 Dummy {f00=0x0098, f01=0x0190, f02=» X * $" X D % " X # X * dT Zd y _@ X # X * y Zd X 1 1 X !@T X $ " P y _ x T UP T& X H X X * , )$ P _ : X " X ) X : d d( U ' Y o U y x C y X C C
0x1c7f18…1c7f1e 00 00 00 00 00 00 ┆ ┆
0x1c7f1e…1c80b2 Dummy {f00=0x0098, f01=0x0190, f02=» X X ! x Y Y _ X "@P B R y C B P 9 V T _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c c C _$ _ dT U@ d^ y _> S* x XH X dT ZR X # Zd C _6 B ]p P C Q8X<_T x XH @ Y
0x1c80b2…1c80b8 00 00 00 00 00 00 ┆ ┆
0x1c80b8…1c824c Dummy {f00=0x0098, f01=0x0190, f02=» C Z. : + Z X ZR Zd ( e p ( e c : B U C _J + . c X 9 V ! P @ Y p #0 Y Y . X ! : o p U p U " p U $ : ! P # P : c 2! 4 Y " e p
0x1c824c…1c8252 00 00 00 00 00 00 ┆ ┆
0x1c8252…1c83e6 Dummy {f00=0x0098, f01=0x0190, f02=» p ! Y 0T V e u : c 2' 4 p " P # P R P P X ' ' m X _ X ' _ X '?_ c p ! P # P X ' c X ! c c c X " 9b! X :c 2" 4 HW c @ W W W W W W
0x1c83e6…1c83ec 00 00 00 00 00 00 ┆ ┆
0x1c83ec…1c8580 Dummy {f00=0x0098, f01=0x0190, f02=» c 9H Y * Y dXW W Y d( hH dT X 0T 8 X 2Z X +" X *9h P: R Y ?_ P R P R 4 Y +Wl Y Y + Yt [FWZ T R( Yt Y6WJ Q W Y + U Q 4 Y Q P W W Y ( [B C c X *! T dbW d^ V
0x1c8580…1c8586 00 00 00 00 00 00 ┆ ┆
0x1c8586…1c871a Dummy {f00=0x0098, f01=0x0190, f02=» hl : d( Y X +! 4 X +! U 9K Y ( Y + [B c 9H Y * 2 Y ( Y ? Y + p Z 4 0 o Z 6 2 X 0 8 : ! P # T : C ( C : c C _" C B _4 _ d( X dT ZR Z P Zd B Z. d^ :
0x1c871a…1c8720 00 00 00 00 00 00 ┆ ┆
0x1c8720…1c88b4 (6, 26) Dummy {f00=0x0098, f01=0x0190, f02=» rd_> p p ~ } ~ }> ^ ^ } W W X 0Q N L Y ( Y *P hH |H [ X <' X X | c X *# X ( " Q " P X 0PR V _` " PL T " Pn a e Wv " P Y 0] Y (_z P P T6 " X _@ " P( X *# T
0x1c88b4…1c88ba 00 00 00 00 00 00 ┆ ┆
0x1c88ba…1c8a4e Dummy {f00=0x0098, f01=0x0190, f02=» (T W X y 6 Y ( : X (;n c ~$~ ~:~ ] p ] } ] }> ] ] ~ ~:} ~L c Y . Y ,W c Y . X ( X ." Pj X 0R T K T6 Y *P( B Q ~ ~fW :H c _ ~bW ~X X . X 2QP Y *T2 ~N : " P$ X 0U X *# P P T " T
0x1c8a4e…1c8a54 00 00 00 00 00 00 ┆ ┆
0x1c8a54…1c8be8 Dummy {f00=0x0098, f01=0x0190, f02=»P & Y *T ^ : X ?! T X &P V H " P ~N c c X ?! P* R Q$ X &P V D ! P $ ! P %_ ~N : c V Y " X .9H $ 4 P & X ( " Q Y +Q R " P W " U ` Y , " Q " < X . X 0R P" X *:h P PD <
0x1c8be8…1c8bee 00 00 00 00 00 00 ┆ ┆
0x1c8bee…1c8d82 Dummy {f00=0x0098, f01=0x0190, f02=»T$ @ Y (W Y , a W a Y ( } : X *:h X (! # P X & V L TbW X , X 0P@ a T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l aJ_r X ( P Y (_ P* a" P| Y 8 ^ X 8 X $ c Wh_ " P X ( T X & V H "@TF a" P6
0x1c8d82…1c8d88 00 00 00 00 00 00 ┆ ┆
0x1c8d88…1c8f1c Dummy {f00=0x0098, f01=0x0190, f02=»p 8 V Y 8 : " P X & V ( P a" : : ` "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y > : Y : c X : X ( T X & V H " V X $ c : X Y " X Y $ X Y & X >W X < Y = " e ! T W
0x1c8f1c…1c8f20 00 00 00 00 ┆ ┆
0x1c8f20…1c8f22 00 00 ┆ ┆
0x1c8f22…1c90b6 Dummy {f00=0x0098, f01=0x0190, f02=» Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y p W Y ! P o W V Y c V Y : p ~$ : 2' " P T rdW o ~ : b : d( c hH cP C c X c : "0P '
0x1c90b6…1c90bc 00 00 00 00 00 00 ┆ ┆
0x1c90bc…1c9250 Dummy {f00=0x0098, f01=0x0190, f02=»hl : c c C : + B c C : c X @ ; [ ipW c X B ; [ il i Z : : ; W ; [ [ [ B [ ( P B R h I Z C : Z Z Z :( R : V E V D ' $ T W
0x1c9250…1c9256 00 00 00 00 00 00 ┆ ┆
0x1c9256…1c93ea Dummy {f00=0x0098, f01=0x0190, f02=»T p #0 T V m p W fP C C P gt W fP j` P l C _( W f&/ C C P gp W f&/ j` P l C _* W h gx f&/ gp _ i C i P p <H : fP gt i i p
0x1c93ea…1c93f0 00 00 00 00 00 00 ┆ ┆
0x1c93f0…1c9584 (6, 27) Dummy {f00=0x0098, f01=0x0190, f02=» P _N i B p 'W i ( W p i >A 6 i % >a 1 ( 0 W : 1W C C " H ( ' PH V L ! l g P* V ,V k W B % P C + j jF
0x1c9584…1c958a 00 00 00 00 00 00 ┆ ┆
0x1c958a…1c971e Dummy {f00=0x0098, f01=0x0190, f02=» B T p V I C B : ( ' P h I : i i % Y o C p & C p : B T T T V : 2 ' W 2 6 2 @2L" T # ' ?D r8WD' #? q ;B V D L W ,"? :D;B
0x1c971e…1c9720 00 00 ┆ ┆
0x1c9720…1c9724 00 00 00 00 ┆ ┆
0x1c9724…1c98b8 Dummy {f00=0x0098, f01=0x0190, f02=» B C : i ip i : i i : p C : : i i ,V l : o P C W $0 P C jd : ($ ) H < V <A Q I : o #0 T & C C : j C C : & T ;d# P S W P P, 9A:AV
0x1c98b8…1c98be 00 00 00 00 00 00 ┆ ┆
0x1c98be…1c9a52 Dummy {f00=0x0098, f01=0x0190, f02=»k R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R ! - T U :J a B@ ' d w5 1 k o #0 T 8 ' : B B k : V C o P C #0 T &
0x1c9a52…1c9a58 00 00 00 00 00 00 ┆ ┆
0x1c9a58…1c9bec Dummy {f00=0x0098, f01=0x0190, f02=»| h d V T P P T P ] Y 0P Q W?H V Y V 7 @2H! P d P W m4 @l R nH pVV 9c Dl^ 9a1 P p o Q llW t :aW* @l YZP @l ]f x @l ]p p 2
0x1c9bec…1c9bf2 00 00 00 00 00 00 ┆ ┆
0x1c9bf2…1c9d86 Dummy {f00=0x0098, f01=0x0190, f02=» d W V P _ 8^t Dl V| @ 2 ! 9BP V T 2 W V P D $ V 6 V % V E W 2 % ^ 6 E 7_ 2 # PT L2ZPN p 2# &X 3Y $! 2P R P _ 9BP m _ W m 6 D " 7 $ V
0x1c9d86…1c9d8c 00 00 00 00 00 00 ┆ ┆
0x1c9d8c…1c9f20 Dummy {f00=0x0098, f01=0x0190, f02=»W W p W 6 2 r W6 @2J Eo " T@# ; [ # q :H 2 T Z L Lo~ D V, W # q Lo~ D V $ W D V Lo , :B , ( "@T : [ [ p & @2J! P l Z l
0x1c9f20…1c9f26 00 00 00 00 00 00 ┆ ┆
0x1c9f26…1ca0ba Dummy {f00=0x0098, f01=0x0190, f02=» ` :B , (V ; H [ [ [ p Z (;AR H WF Z H " ; 6 p : Z L # & & Z 4 : Z 4 : T # ( " V T # :A ( Q W @2L" P [
0x1ca0ba…1ca0c0 00 00 00 00 00 00 ┆ ┆
0x1ca0c0…1ca254 (6, 28) Dummy {f00=0x0099, f01=0x0190, f02=» ; : ;f" #?_" [ v [ e p e Z Z : R ; p 6 :;d# F " p W # " T & T + : * & !@P `1` P u Q [ ; 8
0x1ca254…1ca25a 00 00 00 00 00 00 ┆ ┆
0x1ca25a…1ca3ee Dummy {f00=0x0099, f01=0x0190, f02=» Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K : #0 P:" T * & : * & !`P " :J +_ +Q u _2 , T T XF W 1 N P X _&
0x1ca3ee…1ca3f4 00 00 00 00 00 00 ┆ ┆
0x1ca3f4…1ca588 Dummy {f00=0x0099, f01=0x0190, f02=» Z :$0#0;b w P v Pd P 0 - PN _ 4 V W Q P ) P ! P ! P 9_. &" ! ! P $ T 9 : & P Q vH ,^ , < vP # ; [ _ ' d V W V 4! P < S S S X
0x1ca588…1ca58e 00 00 00 00 00 00 ┆ ┆
0x1ca58e…1ca722 Dummy {f00=0x0099, f01=0x0190, f02=» 9 : &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : 2' o [ [ p Z Z u : V ) 0
0x1ca722…1ca728 00 00 00 00 00 00 ┆ ┆
0x1ca728…1ca8bc Dummy {f00=0x0099, f01=0x0190, f02=» [ [ [ [ $ [ [ >h [ [ { u { u { s* Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P { s$ V H )_ { { _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 0 !0
0x1ca8bc…1ca8c0 00 00 00 00 ┆ ┆
0x1ca8c0…1ca8c2 00 00 ┆ ┆
0x1ca8c2…1caa56 Dummy {f00=0x0099, f01=0x0190, f02=» W V E + : V & 6 [ [ [ [ $ [ [ &! P {r { u { u { s* z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z { u Q { { P _ T { [ { {~ [ Q@ [ {
0x1caa56…1caa5c 00 00 00 00 00 00 ┆ ┆
0x1caa5c…1cabf0 Dummy {f00=0x0099, f01=0x0190, f02=»! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( 4 P 9 59D_ " P P [ ! :d" 5 : !! gg++ L 33 o o rv rdo p ~$~ ~:~ p
0x1cabf0…1cabf6 00 00 00 00 00 00 ┆ ┆
0x1cabf6…1cad8a Dummy {f00=0x0099, f01=0x0190, f02=» } }F } V Z P 2 " T W "@T '?W "? H| " K :e J J " J _Z Z } [ Z P d [ V 7_ W Z } @2H! P d Z 7 Z Z P d : V R (Q
0x1cad8a…1cad90 00 00 00 00 00 00 ┆ ┆
0x1cad90…1caf24 (6, 29) Dummy {f00=0x0099, f01=0x0190, f02=» ~ WJ ~^W +_ ~x ~t K W. _& X h0W X & h, J K : V : J T 1 : + p [ [ < !AAP !TTT W !**T * [ !FFP !EET W R I * B Z 9 ! [ [ ; *X| 8 ! D 0P Wh 0W2 W` :T& *W&
0x1caf24…1caf2a 00 00 00 00 00 00 ┆ ┆
0x1caf2a…1cb0be Dummy {f00=0x0099, f01=0x0190, f02=» ;)0 9U ? Z ] 49d_4 _HU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ :P K _ * 8 8 !++P !--T z ;$# + V Z 9H Z [ Z 9H# [ _F P , X J 1 _ [ [ ~ N nR. PT*AXYZ9
0x1cb0be…1cb0c0 00 00 ┆ ┆
0x1cb0c0…1cb0c4 00 00 00 00 ┆ ┆
0x1cb0c4…1cb258 Dummy {f00=0x0099, f01=0x0190, f02=» $ 1T Y TdW 5 _& : $0TH $ R W R # P W ) V E $0T Wr W W p [ : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : u : p p #03 T
0x1cb258…1cb25e 00 00 00 00 00 00 ┆ ┆
0x1cb25e…1cb3f2 Dummy {f00=0x0099, f01=0x0190, f02=» o #03 T $_X 2_^ W !W p p *1 TID ADDR OP CR LVL MODIFIED OPERAND CREDIT 12.0 TRACE @ P ( _ A A ( @ ' $ * A T( ( A A (
0x1cb3f2…1cb3f8 00 00 00 00 00 00 ┆ ┆
0x1cb3f8…1cb58c Dummy {f00=0x0099, f01=0x0190, f02=» @2L# T R p & ZQ A W> ^ V D ! )0 1 @2L# T 6 V ^ A m4 ( ( A : W W W W| Wx Wt Wp Wl Wh Wd W` W WX WT WP WL WH WD W@ W< W8
0x1cb58c…1cb592 00 00 00 00 00 00 ┆ ┆
0x1cb592…1cb726 Dummy {f00=0x0099, f01=0x0190, f02=» R A R R 4 4 $ A U 4 1 _ "T @2J% W T, @2L% 1 X & A @ N m4 ILLEGAL OPERATION MIXED ARITHMETIC ILLEGAL OPERAND TYPE FILE NOT OPENED MISSING ENTRY
0x1cb726…1cb72c 00 00 00 00 00 00 ┆ ┆
0x1cb72c…1cb8c0 Dummy {f00=0x0099, f01=0x0190, f02=»ERFLOW &IX OVFL,ARRAY: ILL INDEX TYPE WSM SEPARATOR = /FF EDIT BUFFER OVFL EDIT PICTURE OVERFLOW (ITEM IN FIELDLIST NOT IN WSM WORKBLOCK ILLEGAL INSTRUCTION ADDRESS ILLEGAL FORMAT CODE NO FIX BUFFER ALLOCATED WSMCTL NOT DEFINED
0x1cb8c0…1cb8c6 00 00 00 00 00 00 ┆ ┆
0x1cb8c6…1cba5a Dummy {f00=0x0099, f01=0x0190, f02=»T BUSY ILLEGAL DATASET REFERENCE FMTCTL-DECLARATION IS MISSING DISC ERROR; NO REENTER POINT DSCB NOT AVAILABLE FIXBUFFER NOT AVAILABLE UWB NOT ADDRESSABLE SUBSTRINGLENGTH < 0 "SUBSTRING NOT WITHIN MAINSTRING (IX OVFL,FTABLE:
0x1cba5a…1cba60 00 00 00 00 00 00 ┆ ┆
0x1cba60…1cbbf4 (6, 30) Dummy {f00=0x0099, f01=0x0190, f02=»( _ @ P @ P P @ P @ T A ( A P QP V $ $T$ D BR V T D P T D @Pb E @W . A A P A A NWJ @ <P$ > $ $P BT , D E @ : @ P A H A W A TW V A V A @2R( 0( A @ V
0x1cbbf4…1cbbfa 00 00 00 00 00 00 ┆ ┆
0x1cbbfa…1cbd8e Dummy {f00=0x0099, f01=0x0190, f02=»( 0( A @ V P ( R W :
0x1cbd8e…1cbd94 00 00 00 00 00 00 ┆ ┆
0x1cbd94…1cbf28 Dummy {f00=0x0099, f01=0x0190, f02=» 2Z
0x1cbf28…1cbf2e 00 00 00 00 00 00 ┆ ┆
0x1cbf2e…1cc0c2 Dummy {f00=0x0099, f01=0x0190, f02=» V P R V W Z T _" = T P W P , 9a t @ P j 0 @ TP NT 0 @ P ,! t @ P @ 0 A A A "V # ( A P UW T A P
0x1cc0c2…1cc0c8 00 00 00 00 00 00 ┆ ┆
0x1cc0c8…1cc25c Dummy {f00=0x0099, f01=0x0190, f02=» 0_ NO! A A A A A A A A A A A A A A XP A A $ l F , + - ; : 4 ( . < X " , A L A L @ A A _T X X ,T X X ) A A $ F ; : 4
0x1cc25c…1cc260 00 00 00 00 ┆ ┆
0x1cc260…1cc262 00 00 ┆ ┆
0x1cc262…1cc3f6 Dummy {f00=0x0099, f01=0x0190, f02=» " @ P DT @ A @ A @ A @ " A @ A @ A @ A " @ A P W @ T @ Z R @ A 2W W 0 A W A A @ P W @ A @ A _| A PZ @ & 0 P P P
0x1cc3f6…1cc3fc 00 00 00 00 00 00 ┆ ┆
0x1cc3fc…1cc590 Dummy {f00=0x0099, f01=0x0190, f02=» jW B " P M T" @ A @ A @ A @ A W @ T @ W @ @ @ R R >a A A @ A @ A P W @ T @ Z R A @ Rl @ A P X 0 A .T< @ R V ;a Q _
0x1cc590…1cc596 00 00 00 00 00 00 ┆ ┆
0x1cc596…1cc72a Dummy {f00=0x0099, f01=0x0190, f02=» C @ P @ 1 @ P @ Q @ @ Q P " DT @ A @ A @ A @ A @ A @ A @ A @ A P W @ T R @ V @ A 0 j P @ P @ 1 D A @ P @ A @ A _ @ P @ V @
0x1cc72a…1cc730 00 00 00 00 00 00 ┆ ┆
0x1cc730…1cc8c4 (6, 31) Dummy {f00=0x0099, f01=0x0190, f02=» D Pr @ @ @ RX A *9l! P2 N &9d! ) |W P$ &9d p & p_ N & | D A j A n @ Z " ! U 0 A nU N_ > "PZ @ PF R % < < ! t T @ P @
0x1cc8c4…1cc8ca 00 00 00 00 00 00 ┆ ┆
0x1cc8ca…1cca5e Dummy {f00=0x0099, f01=0x0190, f02=» ";A , P , DP @ W" L $ B % A DT @ W @ A @ R A A A A @ ( D A @ zV @ @ _X @ @ T I @_NP @ @ P zZv _| A A
0x1cca5e…1cca60 00 00 ┆ ┆
0x1cca60…1cca64 00 00 00 00 ┆ ┆
0x1cca64…1ccbf8 Dummy {f00=0x0099, f01=0x0190, f02=» ) I I @ I B A <W P RV )W > L A < D > , A 2 A 2:B A 2Q (P _ H B @ T @ H A 2 " EQ GT LT NE NG NL P2 @ R* $ @ P Q ( D L U < =B D BZ <
0x1ccbf8…1ccbfe 00 00 00 00 00 00 ┆ ┆
0x1ccbfe…1ccd92 Dummy {f00=0x0099, f01=0x0190, f02=» 0 B j_ @ T A P T @ A A D ( R ( @ V @ H B W # + C " B A A :B A (P _ B @ @ @ P z @ V @ Q B 1 @ Q Q @ A " ( R$ ( @ V @ H B )
0x1ccd92…1ccd98 00 00 00 00 00 00 ┆ ┆
0x1ccd98…1ccf2c Dummy {f00=0x0099, f01=0x0190, f02=» ,T X PZ )TT A R: ?aP *:l" T* & W T C B B B B B " A A A A A A A PR Q ! 9D# 9hP Q " ;B 2 Pl L ?b P ,R PLW~ Pz9AR Tr L Qj W" P` L $ QV L %
0x1ccf2c…1ccf32 00 00 00 00 00 00 ┆ ┆
0x1ccf32…1cd0c6 Dummy {f00=0x0099, f01=0x0190, f02=»_ W " A L < V " 2F F <P W. @ " P ( 2& $ C " A A A :T$ $ V P W " A A .T @ P P " A " X X " , , A
0x1cd0c6…1cd0cc 00 00 00 00 00 00 ┆ ┆
0x1cd0cc…1cd260 Dummy {f00=0x0099, f01=0x0190, f02=» R R A , N @ " @ ! PH @ T @ $ Q";H @ ;d ( @ " ( @ " :0 :1 :2 :3 :4 :5 :6 :7 :8 :9 :A :B :C :D :E :F $P WH A A 0R 9Q 0 A :B _"
0x1cd260…1cd266 00 00 00 00 00 00 ┆ ┆
0x1cd266…1cd3fa Dummy {f00=0x0099, f01=0x0190, f02=» P T A . A , " , > "! R _U .WV A h: t A h " 9d t ! R :W& W W W ?W :W .W / a ^ A ^ T " @ T A D( @ A " D( A( ( A " A < @ @ ^
0x1cd3fa…1cd400 00 00 00 00 00 00 ┆ ┆
0x1cd400…1cd594 (6, 32) Dummy {f00=0x009a, f01=0x0190, f02=» i p V 0V B B k W j m i p k m i "Q jF V I m i jF ( T _, @k X2 @k _< W i /! C l P f* gp W W i /" C C C P
0x1cd594…1cd59a 00 00 00 00 00 00 ┆ ┆
0x1cd59a…1cd72e Dummy {f00=0x009a, f01=0x0190, f02=» P P f* gp p &<H : ~ 4 : ! P ! P ! P ! P p ! P o W : ! )P9H " # T &W &" :I : : P & _ &X _ : ( : : : c i &/D Y d( V L ) M p #0 Y Y . X !
0x1cd72e…1cd734 00 00 00 00 00 00 ┆ ┆
0x1cd734…1cd8c8 Dummy {f00=0x009a, f01=0x0190, f02=» 8 V c X 0P X T 5 ! l Y N Y R Y M P U Y O X Y H Z Y L Y P X & ( ' Pv c & X M X F9 V Y NP X X L ZF & B PB C W & B y " y $ y V E V L 1 M jF m B U ! C Q P^WL
0x1cd8c8…1cd8ce 00 00 00 00 00 00 ┆ ┆
0x1cd8ce…1cda62 Dummy {f00=0x009a, f01=0x0190, f02=» p " p $ : ! P # P : H ( e p ( e c : X X L ZF X X % Y : X " X ) X : X ," P _ :
0x1cda62…1cda68 00 00 00 00 00 00 ┆ ┆
0x1cda68…1cdbfc Dummy {f00=0x009a, f01=0x0190, f02=» ( $ _ 0 _
0x1cdbfc…1cdc00 00 00 00 00 ┆ ┆
0x1cdc00…1cdc02 00 00 ┆ ┆
0x1cdc02…1cdd96 Dummy {f00=0x009a, f01=0x0190, f02=» V d 0 ! 0 P 0 0 W A "0 0 @ 50 T A 0 0 0 0 0 1 +A 2 _ I# J$ B% jB%! ! Z _>J A0 _o4 0 0 C P 4 R Q #W) ! 3W 2W ! < <( *W 4W 5 [0 4 [
0x1cdd96…1cdd9c 00 00 00 00 00 00 ┆ ┆
0x1cdd9c…1cdf30 Dummy {f00=0x009a, f01=0x0190, f02=» "W #W &W * #4 4 ! ) ! & ! ' _# 1_ 6 h # ! 77 //6@ _ A#:_I ! K( / NXW M^ 0 # 0 # "q_k W " W WL:_ ! K _ W! W_ I P ( _ _ %d ( h ! !T f !_ . 0 _ @ 1 7 _ A _ 7 @ h @# ! 1_
0x1cdf30…1cdf36 00 00 00 00 00 00 ┆ ┆
0x1cdf36…1ce0ca Dummy {f00=0x009a, f01=0x0190, f02=» @ ? < 0 $$0 $$? < ? ^PT 0 `!C ^ P( IP( ! 2? [0 6( ; 7? ,? 0 `!CW IP? A A! A" A!? %j j & ? P hN # #P # ; 4 0 # jP!!O "( * $H %0 0 P0 C 0 " 0 &) +W ( ! 2W !T -W [0
0x1ce0ca…1ce0d0 00 00 00 00 00 00 ┆ ┆
0x1ce0d0…1ce264 (6, 33) Dummy {f00=0x009a, f01=0x0190, f02=» d4 !4 "4 #4 $4 4 8 I 6 / 0 ! W(0 ! W!0 ! W @ 6 0 ! W 0 ! 0 ! 0 R 0 P R _ 0 0 R , "? 3@ 6 % CKCCCCCCWa !0 2 W ( I 0 @ A 6 f .W !@ 4 0!W 0"W 0#W X _ !0$ _
0x1ce264…1ce26a 00 00 00 00 00 00 ┆ ┆
0x1ce26a…1ce3fe Dummy {f00=0x009a, f01=0x0190, f02=»P $ % 0 0) << 2 ? 2 #4 0 0 ? !4 I ! PaQ 0 % "1 , 0 W !0 ( 0 ! _. I 6 _+0 0 W =0 0 4 [ * 0 0 6 4 A _ 0 0 4 0 !0 0 4 1 A
0x1ce3fe…1ce400 00 00 ┆ ┆
0x1ce400…1ce404 00 00 00 00 ┆ ┆
0x1ce404…1ce598 Dummy {f00=0x009a, f01=0x0190, f02=»0 ` C X 4 z , Q m [ n ) V X n h & C J ^ X P , 0 2 3 6
0x1ce598…1ce59e 00 00 00 00 00 00 ┆ ┆
0x1ce59e…1ce732 Dummy {f00=0x009a, f01=0x0190, f02=»CDELETE FILEIMPORTANT: VOLUME-NAME:CREATE VOLUMEWSM UTILITIESCOPY VOLUME/FILECHANGE VOLUME-NAMEPRESS ENT TO CONTINUE FUNCTION SELECTION:CREATE WSM SYSTEM FILEEXTEND WSM SYSTEM FILEALWAYS RETURN TO THIS MENU BEFORE UNLOADING ANY VOLUME! 'X [ :
0x1ce732…1ce738 00 00 00 00 00 00 ┆ ┆
0x1ce738…1ce8cc Dummy {f00=0x009a, f01=0x0190, f02=» UNDEFINED ERROR NOT A TOSS DISK! DISK NOT OPERABLE FILE NAME UNKNOWN NEW VOLUME LOADED DISK NOT IN SYSTEM DISK/FILE OVERFLOW FUNCTION NOT ALLOWED FILENAME ALREADY USED TOO FEW INPUT CHARACTERS WSM SYSTEM FILE NOT CREATED COMPULSORY FIELD N
0x1ce8cc…1ce8d2 00 00 00 00 00 00 ┆ ┆
0x1ce8d2…1cea66 Dummy {f00=0x009a, f01=0x0190, f02=» . A / G 0 > 1 C 2 H 3 4 D 5 = ? I J' %) & ($"!# " # $ % & ' ( ) + - / 1 4 7 : = @
0x1cea66…1cea6c 00 00 00 00 00 00 ┆ ┆
0x1cea6c…1cec00 Dummy {f00=0x009a, f01=0x0190, f02=» & 2 B R c t ' ? Z x * @ f @ T 4 8
0x1cec00…1cec06 00 00 00 00 00 00 ┆ ┆
0x1cec06…1ced9a Dummy {f00=0x009a, f01=0x0190, f02=» n | @ 1 "A 2 _ 4 2@ 1 A 2 _ jB&!Q!jB'!R!jB.&J jB6!#!jB7! 0+B ! 2 )[ _= _c1 A A 2 _ @ WG ^QT< _RT2A QR 0 `!CK^ W 0 `!CK_ T @ 0 `! W P JRT QR IQI _Y ,_^0 `#CL_ T 0 `# W / "G 0 Q0, C Ej "C
0x1ced9a…1ceda0 00 00 00 00 00 00 ┆ ┆
0x1ceda0…1cef34 (6, 34) Dummy {f00=0x009a, f01=0x0190, f02=» j ! 4 , ) ' (j "C "j "C 0- ! " ! !Yo0 !&jB'! jB((L jB0&_ 0 `# W X 0*B % * jB'! jB((L bB0&_ jB ) 4 jB ! 4 j !! 4 8jB " 4 j " 4 W " ) 'OjB " 4( "0 0 ! " ! # " "0 $ " ! " !I ! # "H0. " jB " Wi0
0x1cef34…1cef3a 00 00 00 00 00 00 ┆ ┆
0x1cef3a…1cf0ce Dummy {f00=0x009a, f01=0x0190, f02=» QR 0 `!CK^ W 0 `!CK_ < 0 `#CL_ T YHj " 44j " 460 Q00 `! !>Y T]0 R01 `# !>Y TM YW YH_)0- W0 Q0 `! W P WG0 Q0 `! W ? 0 R0 `# W < JR< QR IQ< ? WG0 R0 `# W WG0 Q0 `! W ? 1 A A 2 _ WG ^QT* _RT QR 0 `!CK^ W 0 `!CK_ P JRT
0x1cf0ce…1cf0d4 00 00 00 00 00 00 ┆ ┆
0x1cf0d4…1cf268 Dummy {f00=0x009a, f01=0x0190, f02=»0 `! >Y P 2 _ . 8 hD ! !T !j & !E( W-!D) !D% 1 W 1 W 1 A 0 "" 2 _ )F+hjB%' 0 ! jB." jB (K (jB &^ (QR jB &_ 02B !T%jB%' jB,!"! jB (L (jB &_ 03B !P j "B4 E)u? )E) ? !P *_ j " "j " $0- Y( ? ! ?
0x1cf268…1cf26e 00 00 00 00 00 00 ┆ ┆
0x1cf26e…1cf402 Dummy {f00=0x009a, f01=0x0190, f02=» 4 1 A 2 _ 0 !, L: *jB%!B$jB'! jB((L jB0&^ 0*B % * jB'!P!jB'! jB((L bB0&^ <j "# jB ) jB !!! jB "> 0.W jB " jB " jB " jB " 0/B , ! TE0 `!CK^ T: Y!0.Yp!p"00 `! >Y < j !! ( 0- Y_'0 `#CL^ < W IP _ [
0x1cf402…1cf408 00 00 00 00 00 00 ┆ ┆
0x1cf408…1cf59c Dummy {f00=0x009a, f01=0x0190, f02=» _ ( !# #_ 01 `# >Y < !P/0- 0. !0- H0. YH !n _y #0-p!p"Y00 `! >Y < XH0.X 01 `! >Y < ! 0, C <!j "C* j "C j "C&j "C, ! 0, C <! hL (C (P !PA !_(( j !!C ( "bC (K * !
0x1cf59c…1cf5a0 00 00 00 00 ┆ ┆
0x1cf5a0…1cf5a2 00 00 ┆ ┆
0x1cf5a2…1cf736 Dummy {f00=0x009a, f01=0x0190, f02=» j !!C jC ! !05 C <! W # !?!H IP@ 4 0 ` C 4 YG ^P<"A 0 `!CK^ P )4 24 0 `! Y "G 0, C "j "C* j "C j "C&j "C, ! 0, C N hK (C (P !T ) "GV ,4 !_2( j !!C ( " * j "C $ "
0x1cf736…1cf73c 00 00 00 00 00 00 ┆ ┆
0x1cf73c…1cf8d0 Dummy {f00=0x009a, f01=0x0190, f02=» j "C j "C 0- ! " !! ( ! (_& !P !_F4 " " $ q . ; x & / A c 6 ` ] n ' x P ( . 1 2 4 6 8 : J
0x1cf8d0…1cf8d6 00 00 00 00 00 00 ┆ ┆
0x1cf8d6…1cfa6a Dummy {f00=0x009a, f01=0x0190, f02=»:VOLUME/FILECOPY FORMAT:VOLUME-NAME:COPY SECTION:COPY SPECIFIC:COPY DEFINITION:WHOLE FILE ? Y/N/S:COPY VOLUME TO VOLUMEEXTEND WSM SYSTEM FILE TTTTXTTTTTTX [ D E ! F ? A C / F D E
0x1cfa6a…1cfa70 00 00 00 00 00 00 ┆ ┆
0x1cfa70…1cfc04 (6, 35) Dummy {f00=0x009a, f01=0x0190, f02=» @ I ; K 9 0 . = X 8 0 1 . = W 3 6 @ ! I * ; 3 K 7 6 @ ! J * ; 3 K L 2 > TYPE OF COPY: V = VOLUME F = FILE W = WSM SYST
0x1cfc04…1cfc0a 00 00 00 00 00 00 ┆ ┆
0x1cfc0a…1cfd9e Dummy {f00=0x009a, f01=0x0190, f02=» " # $ % & ' ( ) * + , . 1 4 8 = B G L Q V c k s | 0 0 0 0 ! $ 1 > K X g % , ^ ` 0 t 0 X T ` `
0x1cfd9e…1cfda0 00 00 ┆ ┆
0x1cfda0…1cfda4 00 00 00 00 ┆ ┆
0x1cfda4…1cff38 Dummy {f00=0x009a, f01=0x0190, f02=» * < J " &I ? 1 A 2 _ #8 "8 0, C T j "C* j "C j "C&j "C, ! 0, C T hK (C (P !T ,_m !_- *j "C & "j "C "j "C 0- $ $ #*W $ ! # $_ jB&!R!jB'!P! "j "C "j "C 0- ! ! # W9 !W0. ! jB*" jB,"
0x1cff38…1cff3e 00 00 00 00 00 00 ┆ ┆
0x1cff3e…1d00d2 Dummy {f00=0x009a, f01=0x0190, f02=»Q00 `! >Y P [0 6 6 R & _* . 8 jD ! !j & 0( T 'j " jB%' 0 ! jB." :jB (K (jB &^ 02B !P j "B4 6 R = _A j !! !2 !D j !! !6 "6 MM W R _ !P *_ j " "j " $0- Y ! : ? ! "
0x1d00d2…1d00d8 00 00 00 00 00 00 ┆ ┆
0x1d00d8…1d026c Dummy {f00=0x009a, f01=0x0190, f02=»P # W ! 4 1 A 2 _ 0 P0 CJ P _ 4 1 A 2 _ R jB$! jB&!R!jB'!P!jB(" 07B % * _7 4 1 A 2 _ ^PTE0 `!CK^ T ! IP '_( "8 0, C T j "C* j "C 0, C P IPXV _Z ! " j "C j "C 0- ! " !! ( ! (_&
0x1d026c…1d0272 00 00 00 00 00 00 ┆ ┆
0x1d0272…1d0406 Dummy {f00=0x009a, f01=0x0190, f02=» jB " jB " jB " 0/B , ! T 0 `!CK^ P _ IP8 1 A ? [ $ W ; : ! 9 8 ! !( ! Y9j ! ! ! (R ! _ ( !# _ 01 `! >Y Tq !P"0- 0. ! Y ! !d _l Y9 !6
0x1d0406…1d040c 00 00 00 00 00 00 ┆ ┆
0x1d040c…1d05a0 Dummy {f00=0x009a, f01=0x0190, f02=» jB'!P!jB(&J UjB." jB0!@!jB1!!!jB3!D "@" 1 A 2 _NjB2!A!0 !708B % * " 1 A _r _v 4 @ % G r $ + f 8 m z h o H n ' x
0x1d05a0…1d05a6 00 00 00 00 00 00 ┆ ┆
0x1d05a6…1d073a Dummy {f00=0x009a, f01=0x0190, f02=»NAME:CREATE VOLUMENO. OF FILES:FROM RECORD NO.:TO RECORD NO.:CHANGE VOLUME-NAMECREATE WSM SYSTEM FILEENTER DISK VERSION - 1 = UNPACKEDPRINT VTOC (VOLUME TABLE OF CONTENTS) $ XTXTTXTTTTXTTTTTTX 1 [ [ 5 H 6 . *
0x1d073a…1d0740 00 00 00 00 00 00 ┆ ┆
0x1d0740…1d08d4 (6, 36) Dummy {f00=0x009b, f01=0x0190, f02=» 7 ) / I PRINT OUTPUT DEVICE: ) / I + K 2 W 3 Y PRINT OUTPUT DEVICE: 0 ) / I / I J 1 % U TYPE: G 6POSSIBLE TYPES
0x1d08d4…1d08da 00 00 00 00 00 00 ┆ ┆
0x1d08da…1d0a6e Dummy {f00=0x009b, f01=0x0190, f02=» MB FLEXIBLE DISK (PTS-6791) (- 4 = 5 MB CARTRIDGE, FIX (PTS-6876) 2- 5 = 16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962) (- 6 = 16 MB CARTRIDGE, FIX (PTS-6964) (- 7 = 12.8 MB WINCHESTER (PTS-6794) (- 8 = 26.7 MB WINCHESTER
0x1d0a6e…1d0a74 00 00 00 00 00 00 ┆ ┆
0x1d0a74…1d0c08 Dummy {f00=0x009b, f01=0x0190, f02=» 11 = 70 MB WINCHESTER (PTS-6793) (- 12 = 180 MB WINCHESTER (PTS-6793) 2- 13 = 80 MB CARTRIDGE, FIX (PTS-6877, PTS-6962) (- 14 = 80 MB FIX (PTS-6964) TEST: D /I MEANS INITIAL WRITE/READ-TEST OF ALL SECTORS
0x1d0c08…1d0c0e 00 00 00 00 00 00 ┆ ┆
0x1d0c0e…1d0da2 Dummy {f00=0x009b, f01=0x0190, f02=» " $ ' * . 3 9 B L W c o | ! % 0 0 0 0 8 & V 1 | @ k X 6
0x1d0da2…1d0da8 00 00 00 00 00 00 ┆ ┆
0x1d0da8…1d0f3c Dummy {f00=0x009b, f01=0x418a, f02=» V n @ . @ ( N F @ R R d j ^ v b p d | < , * : `
0x1d0f3c…1d0f40 00 00 00 00 ┆ ┆
0x1d0f40…1d0f42 00 00 ┆ ┆
0x1d0f42…1d10d6 Dummy {f00=0x009b, f01=0x418a, f02=» v d p v T:GETA j | T:THOM v T:DISP v T:ERAS T:ATTF T:ASEN T:DSC2 R T:RECE T:DSC1 WXDIV r * GETCW < CHANFC v @ N TESTB : ` ICLEAR r
0x1d10d6…1d10dc 00 00 00 00 00 00 ┆ ┆
0x1d10dc…1d1270 Dummy {f00=0x009b, f01=0x418a, f02=» & READIN d 8USMODL * L FSUPDT C ZFSDISC & 8FSPARM J FSNAME bFSMSPP n FSMODL . @ FSINIT F FDUPDT WSMCRT C f V Z b WSMCRT HFCTASK r
0x1d1270…1d1276 00 00 00 00 00 00 ┆ ┆
0x1d1276…1d140a Dummy {f00=0x009b, f01=0x418a, f02=» & READIN d 8USMODL * L FSUPDT C ZFSDISC & 8FSPARM J FSNAME bFSMSPP n FSMODL . @ FSINIT F FDUPDT WSMCRT C f V Z b WSMCRT HFCTASK r
0x1d140a…1d1410 00 00 00 00 00 00 ┆ ┆