|
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 - metrics - download
Length: 30076 (0x757c)
Notes: pts_type(SC)
Names: »ZDSCIO.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/ZDSCIO.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/ZDSCIO.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/ZDSCIO.SC«
IDENT ZDSCIO DISC I/O OPERATIONS
DDUM DEMODD
PDIV
ENTRY ZAOPND
ENTRY ZBCLSD
ENTRY ZCRDD
ENTRY ZDRWRD
ENTRY ZEINSD
ENTRY ZGREA
ENTRY ZHWRID
ENTRY ZYRLNG
ENTRY ZZERR
EXPROC QEMOVE
EXPROC MASK
EXPROC XAKBIN
EXPROC XEERR
EJECT
************************************************************************
**
* PROCEDURE: ZAOPND*
* FUNCTIONAL DESCRIPTION:*
* ASSIGN DATABASE AS A COMMON FILE FOR BOTH INDEXFILES*
* USE OF VARIABLES:*
* VCDBSVOL : DATABASE VOLUME NAME*
* WC1STRG8 : INDEXFILE-NAME-1*
* WC2STRG8 : INDEXFILE-NAME-2*
* WW1 : CONTAINS THE ERROR-CODE IF AN ERROR*
* OCCURED DURING ASSIGNMENT*
**
************************************************************************
ZAOPND PROC
ZA000
MOVE FCPARAM,=X'0'
MOVE WW1,=W'11'
XCOPY FCPARAM,WW1,KW1,KW1,KW1 SET INDEX FILE
MOVE WW1,=W'16'
MOVE WW2,=W'8'
MOVE WC1STRG8,='DATABA '
XCOPY FCPARAM,WW1,WW2,WC1STRG8,KW0 SET DSNAME
MOVE WW1,=W'26'
MOVE WCSTRG6,='DSC001'
XCOPY FCPARAM,WW1,KW3,WCSTRG6,KW0 SET VOLNAME
MOVE WW1,=W'29'
XCOPY FCPARAM,WW1,KW3,VCVOLNR1,KW0
MOVE WW1,=W'66'
MOVE WW2,=W'26'
XCOPY FCPARAM,WW1,KW6,FCPARAM,WW2 SET INDEX VOLNR
MOVE WW1,=W'76'
XCOPY FCPARAM,WW1,KW1,KW2,KW1 NUMBER OF INDEXES
MOVE WW1,=W'85'
XCOPY FCPARAM,WW1,KW1,KW1,KW1
MOVE WW1,=W'88'
XCOPY FCPARAM,WW1,KW1,KW6,KW1 KEY LENGTH
MOVE WW1,=W'97'
XCOPY FCPARAM,WW1,KW1,KW1,KW1 NUMBER OF KEY ITEMS
MOVE WW1,=W'98'
XCOPY FCPARAM,WW1,KW2,KW6,KW0 DISPLACEMENT
MOVE WW1,=W'100'
XCOPY FCPARAM,WW1,KW1,KW3,KW1 KEY LENGTH
MOVE WW1,=W'102'
OPEN DSDBS,7,1,FCPARAM,WW1
BNOK ZA900
COMMIT NWXSTAT
B ZA999
ZA900
RSTAT DSDBS,NWXSTAT
EDWRT SPDSSCRN,ERROPN 'OPEN FILE UNSUCCESFULL'
ZA910
PERF XAKBIN,=W'0' GET ANSWER
CBNE SPBINW2,KWCANCEL,ZA910 MUST BE CANCEL
SET SBCANCEL
ZA999
RET
PEND
*
*
ERROPN FRMT
FCOPY =X'2031'
FTEXT 'FILE OPEN UNSUCCESFULL'
FMEND
EJECT
************************************************************************
* PROCEDURE: ZBCLSD*
* FUNCTIONAL DESCRIPTION:*
* CLOSE DATABASE FOR BOTH INDEXFILES*
**
************************************************************************
ZBCLSD PROC
ZB000
CLOSE DSDBS
BOK ZB900
ZB500
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT ZDSCIO DISC I/O OPERATIONS «, t00=0x0000, t01=0x0004}
0x0034…0084 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0038}
0x0084…00d4 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0088}
0x00d4…0124 Head {h00=0x004c, h01=0x0050, text=» ENTRY ZAOPND «, t00=0x0000, t01=0x00d8}
0x0124…0174 Head {h00=0x004c, h01=0x0050, text=» ENTRY ZBCLSD «, t00=0x0000, t01=0x0128}
0x0174…01c4 Head {h00=0x004c, h01=0x0050, text=» ENTRY ZCRDD «, t00=0x0000, t01=0x0178}
0x01c4…0214 Head {h00=0x004c, h01=0x0050, text=» ENTRY ZDRWRD «, t00=0x0001, t01=0x0038}
0x0214…0264 Head {h00=0x004c, h01=0x0050, text=» ENTRY ZEINSD «, t00=0x0001, t01=0x0088}
0x0264…0278 Head {h00=0x0010, h01=0x0050, text=» ENTRY ZGREA«, t00=0x0001, t01=0x00d8}
0x0278…028e Head {h00=0x0012, h01=0x0050, text=» ENTRY ZHWRID «, t00=0x0001, t01=0x00ec}
0x028e…02ae Head {h00=0x001c, h01=0x0050, text=» ENTRY ZYRLNG «, t00=0x0001, t01=0x0102}
0x02ae…02fe Head {h00=0x004c, h01=0x0050, text=» ENTRY ZZERR «, t00=0x0001, t01=0x0122}
0x02fe…0320 Head {h00=0x001e, h01=0x0050, text=» EXPROC QEMOVE«, t00=0x0001, t01=0x0172}
0x0320…0334 (2, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXPROC MASK«, t00=0x0002, t01=0x0004}
0x0334…034a Head {h00=0x0012, h01=0x0050, text=» EXPROC XAKBIN«, t00=0x0002, t01=0x0018}
0x034a…0360 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0002, t01=0x002e}
0x0360…03b0 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0002, t01=0x0044}
0x03b0…0400 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0094}
0x0400…0450 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00e4}
0x0450…04a0 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: ZAOPND *«, t00=0x0002, t01=0x0134}
0x04a0…04f0 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x0002, t01=0x0184}
0x04f0…0540 Head {h00=0x004c, h01=0x0050, text=»* ASSIGN DATABASE AS A COMMON FILE FOR BOTH INDEXFILES *«, t00=0x0003, t01=0x0044}
0x0540…0590 Head {h00=0x004c, h01=0x0050, text=»* USE OF VARIABLES: *«, t00=0x0003, t01=0x0094}
0x0590…05e0 Head {h00=0x004c, h01=0x0050, text=»* VCDBSVOL : DATABASE VOLUME NAME *«, t00=0x0003, t01=0x00e4}
0x05e0…0630 Head {h00=0x004c, h01=0x0050, text=»* WC1STRG8 : INDEXFILE-NAME-1 *«, t00=0x0003, t01=0x0134}
0x0630…0680 Head {h00=0x004c, h01=0x0050, text=»* WC2STRG8 : INDEXFILE-NAME-2 *«, t00=0x0003, t01=0x0184}
0x0680…06d0 Head {h00=0x004c, h01=0x0050, text=»* WW1 : CONTAINS THE ERROR-CODE IF AN ERROR *«, t00=0x0004, t01=0x0044}
0x06d0…0720 Head {h00=0x004c, h01=0x0050, text=»* OCCURED DURING ASSIGNMENT *«, t00=0x0004, t01=0x0094}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00e4}
0x0770…07c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x0134}
0x07c0…0810 Head {h00=0x004c, h01=0x0050, text=»ZAOPND PROC «, t00=0x0004, t01=0x0184}
0x0810…0860 Head {h00=0x004c, h01=0x0050, text=»ZA000 «, t00=0x0005, t01=0x0044}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=» MOVE FCPARAM,=X'0' «, t00=0x0005, t01=0x0094}
0x087c…0894 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'11'«, t00=0x0005, t01=0x00b0}
0x0894…08ca Head {h00=0x0032, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW1,KW1 SET INDEX FILE «, t00=0x0005, t01=0x00c8}
0x08ca…08e2 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'16'«, t00=0x0005, t01=0x00fe}
0x08e2…08fa Head {h00=0x0014, h01=0x0050, text=» MOVE WW2,=W'8' «, t00=0x0005, t01=0x0116}
0x08fa…091c Head {h00=0x001e, h01=0x0050, text=» MOVE WC1STRG8,='DATABA '«, t00=0x0005, t01=0x012e}
0x091c…0952 Head {h00=0x0032, h01=0x0050, text=» XCOPY FCPARAM,WW1,WW2,WC1STRG8,KW0 SET DSNAME«, t00=0x0005, t01=0x0150}
0x0952…096a Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'26'«, t00=0x0005, t01=0x0186}
0x096a…098a Head {h00=0x001c, h01=0x0050, text=» MOVE WCSTRG6,='DSC001' «, t00=0x0006, t01=0x000e}
0x098a…09c0 Head {h00=0x0032, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW3,WCSTRG6,KW0 SET VOLNAME«, t00=0x0006, t01=0x002e}
0x09c0…09d8 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'29'«, t00=0x0006, t01=0x0064}
0x09d8…0a04 Head {h00=0x0028, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW3,VCVOLNR1,KW0 «, t00=0x0006, t01=0x007c}
0x0a04…0a1c Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'66'«, t00=0x0006, t01=0x00a8}
0x0a1c…0a34 Head {h00=0x0014, h01=0x0050, text=» MOVE WW2,=W'26'«, t00=0x0006, t01=0x00c0}
0x0a34…0a6e Head {h00=0x0036, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW6,FCPARAM,WW2 SET INDEX VOLNR«, t00=0x0006, t01=0x00d8}
0x0a6e…0a86 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'76'«, t00=0x0006, t01=0x0112}
0x0a86…0abe Head {h00=0x0034, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW2,KW1 NUMBER OF INDEXES«, t00=0x0006, t01=0x012a}
0x0abe…0ad6 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'85'«, t00=0x0006, t01=0x0162}
0x0ad6…0afc Head {h00=0x0022, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW1,KW1«, t00=0x0006, t01=0x017a}
0x0afc…0b14 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'88'«, t00=0x0007, t01=0x0010}
0x0b14…0b46 Head {h00=0x002e, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW6,KW1 KEY LENGTH «, t00=0x0007, t01=0x0028}
0x0b46…0b5e Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'97'«, t00=0x0007, t01=0x005a}
0x0b5e…0b98 Head {h00=0x0036, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW1,KW1 NUMBER OF KEY ITEMS«, t00=0x0007, t01=0x0072}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=» MOVE WW1,=W'98'«, t00=0x0007, t01=0x00ac}
0x0bb0…0be4 Head {h00=0x0030, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW2,KW6,KW0 DISPLACEMENT «, t00=0x0007, t01=0x00c4}
0x0be4…0bfe Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=W'100' «, t00=0x0007, t01=0x00f8}
0x0bfe…0c30 Head {h00=0x002e, h01=0x0050, text=» XCOPY FCPARAM,WW1,KW1,KW3,KW1 KEY LENGTH «, t00=0x0007, t01=0x0112}
0x0c30…0c4a Head {h00=0x0016, h01=0x0050, text=» MOVE WW1,=W'102' «, t00=0x0007, t01=0x0144}
0x0c4a…0c6e Head {h00=0x0020, h01=0x0050, text=» OPEN DSDBS,7,1,FCPARAM,WW1 «, t00=0x0007, t01=0x015e}
0x0c6e…0c82 Head {h00=0x0010, h01=0x0050, text=» BNOK ZA900 «, t00=0x0007, t01=0x0182}
0x0c82…0c9a Head {h00=0x0014, h01=0x0050, text=» COMMIT NWXSTAT «, t00=0x0008, t01=0x0008}
0x0c9a…0caa Head {h00=0x000c, h01=0x0050, text=» B ZA999«, t00=0x0008, t01=0x0020}
0x0caa…0cfa Head {h00=0x004c, h01=0x0050, text=»ZA900 «, t00=0x0008, t01=0x0030}
0x0cfa…0d16 Head {h00=0x0018, h01=0x0050, text=» RSTAT DSDBS,NWXSTAT«, t00=0x0008, t01=0x0080}
0x0d16…0d4e Head {h00=0x0034, h01=0x0050, text=» EDWRT SPDSSCRN,ERROPN 'OPEN FILE UNSUCCESFULL' «, t00=0x0008, t01=0x009c}
0x0d4e…0d5c Head {h00=0x000a, h01=0x0050, text=»ZA910 «, t00=0x0008, t01=0x00d4}
0x0d5c…0d82 Head {h00=0x0022, h01=0x0050, text=» PERF XAKBIN,=W'0' GET ANSWER «, t00=0x0008, t01=0x00e2}
0x0d82…0db6 Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW2,KWCANCEL,ZA910 MUST BE CANCEL «, t00=0x0008, t01=0x0108}
0x0db6…0dcc Head {h00=0x0012, h01=0x0050, text=» SET SBCANCEL «, t00=0x0008, t01=0x013c}
0x0dcc…0e1c Head {h00=0x004c, h01=0x0050, text=»ZA999 «, t00=0x0008, t01=0x0152}
0x0e1c…0e6c Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x0009, t01=0x0012}
0x0e6c…0ebc Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0062}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec6…0ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00bc}
0x0ed0…0ee4 Head {h00=0x0010, h01=0x0050, text=»ERROPN FRMT «, t00=0x0009, t01=0x00c6}
0x0ee4…0efc Head {h00=0x0014, h01=0x0050, text=» FCOPY =X'2031' «, t00=0x0009, t01=0x00da}
0x0efc…0f24 Head {h00=0x0024, h01=0x0050, text=» FTEXT 'FILE OPEN UNSUCCESFULL' «, t00=0x0009, t01=0x00f2}
0x0f24…0f32 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0009, t01=0x011a}
0x0f32…0f82 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0009, t01=0x0128}
0x0f82…0fd2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x0178}
0x0fd2…1022 Head {h00=0x004c, h01=0x0050, text=»* PROCEDURE: ZBCLSD *«, t00=0x000a, t01=0x0038}
0x1022…1072 Head {h00=0x004c, h01=0x0050, text=»* FUNCTIONAL DESCRIPTION: *«, t00=0x000a, t01=0x0088}
0x1072…10c2 Head {h00=0x004c, h01=0x0050, text=»* CLOSE DATABASE FOR BOTH INDEXFILES *«, t00=0x000a, t01=0x00d8}
0x10c2…1112 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0128}
0x1112…1162 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000a, t01=0x0178}
0x1162…1178 Head {h00=0x0012, h01=0x0050, text=»ZBCLSD PROC «, t00=0x000b, t01=0x0038}
0x1178…11c8 Head {h00=0x004c, h01=0x0050, text=»ZB000 «, t00=0x000b, t01=0x004e}
0x11c8…11dc Head {h00=0x0010, h01=0x0050, text=» CLOSE DSDBS«, t00=0x000b, t01=0x009e}
0x11dc…11ee Head {h00=0x000e, h01=0x0050, text=» BOK ZB900«, t00=0x000b, t01=0x00b2}
0x11ee…123e Head {h00=0x004c, h01=0x0050, text=»ZB500 «, t00=0x000b, t01=0x00c4}
0x123e…1242 Head {h00=0x0054, h01=0x0050}
0x1242…1246 Head {h00=0x5c50, h01=0x4552}
0x1246…1270 46 5c 58 45 45 52 52 2c 3d 57 27 36 27 2c 4b 57 31 5c 27 44 49 53 4b 20 45 52 52 4f 52 27 5c 5c 00 00 00 00 00 00 00 00 00 00 ┆F XEERR,=W'6',KW1 'DISK ERROR' ┆
0x1270…12be 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 00 00 00 0b 01 14 00 4c 00 50 5a 42 39 30 30 5c 5c 5c 5c 5c 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 ┆ L PZB900 ┆
0x12be…130e (12, 0, 400) 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 00 00 00 00 00 0b 01 6c 00 4c 00 50 5c 52 45 54 5c 5c 5c 5c 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 ┆ l L P RET ┆
0x130e…135e 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 00 00 00 00 00 0c 00 2c 00 4c 00 50 5c 50 45 4e 44 5c 5c 5c 5c 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 ┆ , L P PEND ┆
0x135e…13ae 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 00 00 00 00 00 0c 00 7c 00 4c 00 50 5c 45 4a 45 43 54 5c 5c 5c 5c 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 ┆ | L P EJECT ┆
0x13ae…13fe 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 00 00 00 00 00 0c 00 cc 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ L P************************************┆
0x13fe…144e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 01 1c 00 4c 00 50 2a 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 3a 20 20 5a 43 52 44 44 20 00 00 00 00 00 00 00 00 00 00 00 ┆************************************ L P* PROCEDURE: ZCRDD ┆
0x144e…149e (13, 0, 400) 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 00 00 00 2a 00 0c 01 6c 00 4c 00 50 2a 20 20 20 20 20 20 50 41 52 41 4d 45 54 45 52 53 3a 20 58 44 52 45 43 4e 52 20 28 49 4e 50 55 54 29 00 00 ┆ * l L P* PARAMETERS: XDRECNR (INPUT) ┆
0x149e…14ee 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 00 00 00 2a 00 0d 00 2c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 44 4c 4f 47 52 4e 52 20 28 4f 55 54 50 55 54 29 ┆ * , L P* XDLOGRNR (OUTPUT)┆
0x14ee…153e 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 00 00 00 2a 00 0d 00 7c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 57 49 4e 44 46 4c 45 20 28 49 4e 50 55 54 29 00 ┆ * | L P* XWINDFLE (INPUT) ┆
0x153e…158e 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 00 00 00 2a 00 0d 00 cc 00 4c 00 50 2a 20 20 20 20 20 20 46 55 4e 43 54 49 4f 4e 41 4c 20 44 45 53 43 52 49 50 54 49 4f 4e 3a 00 00 00 00 00 00 ┆ * L P* FUNCTIONAL DESCRIPTION: ┆
0x158e…15de 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 00 00 00 2a 00 0d 01 1c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 44 41 54 41 42 41 53 45 20 44 45 50 45 4e 44 49 4e 47 20 4f ┆ * L P* READ DATABASE DEPENDING O┆
0x15de…162e (14, 0, 400) 4e 20 52 45 43 4f 52 44 2d 4b 45 59 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0d 01 6c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 2d 20 49 46 20 58 57 49 4e 44 46 4c 45 20 3d 20 31 2c 20 41 20 52 45 41 44 ┆N RECORD-KEY * l L P* - IF XWINDFLE = 1, A READ┆
0x162e…167e 20 49 53 20 50 45 52 46 4f 52 4d 45 44 20 56 49 41 20 49 4e 44 45 58 46 49 4c 45 2d 31 00 00 00 00 00 00 2a 00 0e 00 2c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 2d 20 49 46 20 58 57 49 4e 44 46 4c 45 20 3d 20 32 2c 20 41 20 52 45 41 44 ┆ IS PERFORMED VIA INDEXFILE-1 * , L P* - IF XWINDFLE = 2, A READ┆
0x167e…16ce 20 49 53 20 50 45 52 46 4f 52 4d 45 44 20 56 49 41 20 49 4e 44 45 58 46 49 4c 45 2d 32 00 00 00 00 00 00 2a 00 0e 00 7c 00 4c 00 50 2a 20 20 20 20 20 20 55 53 45 20 4f 46 20 56 41 52 49 41 42 4c 45 53 3a 00 00 00 00 00 00 00 00 00 00 00 00 ┆ IS PERFORMED VIA INDEXFILE-2 * | L P* USE OF VARIABLES: ┆
0x16ce…171e 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 00 00 00 2a 00 0e 00 cc 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 57 43 53 54 52 47 36 20 20 20 3a 20 53 59 4d 42 4f 4c 49 43 20 4b ┆ * L P* WCSTRG6 : SYMBOLIC K┆
0x171e…176e 45 59 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 00 2a 00 0e 01 1c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 46 43 42 55 46 46 45 52 20 20 3a 20 49 4e 50 55 54 46 49 45 4c 44 ┆EY * L P* FCBUFFER : INPUTFIELD┆
0x176e…17be (15, 0, 400) 20 46 4f 52 20 44 41 54 41 42 41 53 45 2d 52 45 43 4f 52 44 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0e 01 6c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 57 58 53 54 41 54 20 20 20 3a 20 45 58 54 45 4e 44 45 44 20 53 ┆ FOR DATABASE-RECORDS * l L P* NWXSTAT : EXTENDED S┆
0x17be…180e 54 41 54 55 53 20 43 4f 44 45 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 2a 00 0f 00 2c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 57 52 45 43 4c 4e 47 20 20 3a 20 55 57 42 2d 52 45 43 4f 52 44 ┆TATUS CODE * , L P* NWRECLNG : UWB-RECORD┆
0x180e…185e 4c 45 4e 47 54 48 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 2a 00 0f 00 7c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 53 42 52 45 43 41 56 42 20 20 3a 20 52 45 43 4f 52 44 20 41 56 41 ┆LENGTH * | L P* SBRECAVB : RECORD AVA┆
0x185e…18ae 49 4c 41 42 4c 45 20 41 46 54 45 52 20 52 45 41 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0f 00 cc 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 53 42 4e 4f 43 4f 50 59 20 20 3a 20 44 4f 4e 27 54 20 43 4f 50 59 ┆ILABLE AFTER READ * L P* SBNOCOPY : DON'T COPY┆
0x18ae…18fe 20 52 45 43 4f 52 44 20 49 4e 54 4f 20 55 57 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0f 01 1c 00 4c 00 50 2a 20 20 20 20 20 20 55 53 45 20 4f 46 20 57 4f 52 4b 56 41 52 49 41 42 4c 45 53 3a 00 00 00 00 00 00 00 00 ┆ RECORD INTO UWB * L P* USE OF WORKVARIABLES: ┆
0x18fe…194e (16, 0, 400) 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 00 00 00 2a 00 0f 01 6c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 57 57 31 20 20 20 20 20 20 20 3a 20 44 41 54 41 42 41 53 45 2d 52 ┆ * l L P* WW1 : DATABASE-R┆
0x194e…199e 45 43 4f 52 44 4c 45 4e 47 54 48 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 10 00 2c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 57 57 32 20 20 20 20 20 20 20 3a 20 4b 45 59 4c 45 4e 47 54 48 20 ┆ECORDLENGTH * , L P* WW2 : KEYLENGTH ┆
0x199e…19ee 54 4f 20 42 45 20 43 4f 50 49 45 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 10 00 7c 00 4c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 57 44 45 43 32 20 20 20 20 20 3a 20 57 4f 52 4b 46 49 45 4c 44 00 ┆TO BE COPIED * | L P* WDEC2 : WORKFIELD ┆
0x19ee…1a3e 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 00 00 00 2a 00 10 00 cc 00 4c 00 50 2a 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 00 00 00 ┆ * L P* ┆
0x1a3e…1a8e 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 00 00 00 2a 00 10 01 1c 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * L P************************************┆
0x1a8e…1ade (17, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 10 01 6c 00 36 00 50 5a 43 52 44 44 5c 50 52 4f 43 5c 58 44 52 45 43 4e 52 2c 58 44 4c 4f 47 52 4e 52 2c 58 57 49 4e 44 46 4c 45 ┆************************************ l 6 PZCRDD PROC XDRECNR,XDLOGRNR,XWINDFLE┆
0x1ade…1b2e 5c 52 45 41 44 20 44 41 54 41 42 41 53 45 00 11 00 2c 00 1a 00 50 5c 50 42 43 44 5c 58 44 52 45 43 4e 52 2c 58 44 4c 4f 47 52 4e 52 00 11 00 66 00 12 00 50 5c 50 42 49 4e 5c 58 57 49 4e 44 46 4c 45 00 11 00 84 00 4c 00 50 5a 43 4f 4f 4f 5c ┆ READ DATABASE , P PBCD XDRECNR,XDLOGRNR f P PBIN XWINDFLE L PZCOOO ┆
0x1b2e…1b7e 5c 5c 5c 5c 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 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 11 00 9a 00 06 00 50 2a 20 00 11 00 ea ┆ P* ┆
0x1b7e…1bce 00 34 00 50 2a 20 54 48 45 20 4e 45 58 54 20 53 54 41 54 45 4d 45 4e 54 20 49 53 20 55 53 45 44 20 54 4f 20 43 4f 4e 56 45 52 54 20 54 48 45 20 4b 45 59 20 00 11 00 f4 00 46 00 50 2a 20 49 4e 20 53 55 43 48 20 41 20 57 41 59 2c 20 54 48 41 ┆ 4 P* THE NEXT STATEMENT IS USED TO CONVERT THE KEY F P* IN SUCH A WAY, THA┆
0x1bce…1c1e 54 20 42 43 44 20 53 50 41 43 45 20 43 48 41 52 41 43 54 45 52 53 20 27 46 27 20 41 52 45 20 52 45 50 4c 41 43 45 44 20 42 59 20 27 30 27 00 11 01 2c 00 06 00 50 2a 20 00 11 01 76 00 16 00 50 5c 4d 55 4c 5c 58 44 52 45 43 4e 52 2c 3d 44 27 ┆T BCD SPACE CHARACTERS 'F' ARE REPLACED BY '0' , P* v P MUL XDRECNR,=D'┆
0x1c1e…1c6e (18, 0, 400) 31 27 00 11 01 80 00 2e 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 57 27 31 32 37 27 5c 53 45 54 20 53 49 5a 45 20 54 4f 20 52 45 43 4f 52 44 4c 45 4e 47 54 48 00 12 00 0a 00 18 00 50 5c 4d 4f 56 45 5c 46 43 42 55 46 46 45 52 2c 3d 27 20 27 20 ┆1' . P MOVE WW1,=W'127' SET SIZE TO RECORDLENGTH P MOVE FCBUFFER,=' ' ┆
0x1c6e…1cbe 00 12 00 3c 00 4c 00 50 2a 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 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 00 00 00 00 00 00 2a ┆ < L P* *┆
0x1cbe…1d0e 00 12 00 58 00 4c 00 50 2a 20 20 20 44 45 43 49 44 45 20 57 48 49 43 48 20 49 4e 44 45 58 46 49 4c 45 20 53 48 4f 55 4c 44 20 42 45 20 55 53 45 44 20 54 4f 20 52 45 41 44 20 44 41 54 41 42 41 53 45 00 00 00 00 00 00 00 00 00 00 00 00 00 2a ┆ X L P* DECIDE WHICH INDEXFILE SHOULD BE USED TO READ DATABASE *┆
0x1d0e…1d5e 00 12 00 a8 00 4c 00 50 2a 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 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 00 00 00 00 00 00 2a ┆ L P* *┆
0x1d5e…1dae 00 12 00 f8 00 1c 00 50 5c 43 42 45 5c 58 57 49 4e 44 46 4c 45 2c 4b 57 31 2c 5a 43 33 30 30 20 00 12 01 48 00 4c 00 50 2a 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 00 00 00 00 00 00 00 ┆ P CBE XWINDFLE,KW1,ZC300 H L P* ┆
0x1dae…1dfe (19, 0, 400) 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 2a 00 12 01 68 00 4c 00 50 2a 20 20 20 52 45 41 44 20 44 41 54 41 42 41 53 45 20 56 49 41 20 49 4e 44 45 58 46 49 4c 45 2d 32 00 00 00 00 00 00 00 ┆ * h L P* READ DATABASE VIA INDEXFILE-2 ┆
0x1dfe…1e4e 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 2a 00 13 00 28 00 4c 00 50 2a 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 00 00 00 00 00 00 00 ┆ * ( L P* ┆
0x1e4e…1e9e 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 2a 00 13 00 78 00 18 00 50 5c 4d 4f 56 45 5c 57 44 45 43 32 2c 58 44 52 45 43 4e 52 20 00 13 00 c8 00 2c 00 50 5c 4d 55 4c 5c 57 44 45 43 32 2c 3d ┆ * x P MOVE WDEC2,XDRECNR , P MUL WDEC2,=┆
0x1e9e…1eee 44 27 31 30 30 30 30 30 30 27 5c 53 48 49 46 54 20 43 41 52 44 20 4e 55 4d 42 45 52 00 13 00 e4 00 14 00 50 5c 4d 4f 56 45 5c 57 57 32 2c 3d 57 27 33 27 20 00 13 01 14 00 1a 00 50 2a 20 4e 4f 57 20 47 45 54 20 53 59 4d 42 4f 4c 49 43 20 4b ┆D'1000000' SHIFT CARD NUMBER P MOVE WW2,=W'3' P* NOW GET SYMBOLIC K┆
0x1eee…1f3e 45 59 00 13 01 2c 00 26 00 50 5c 58 43 4f 50 59 5c 46 43 42 55 46 46 45 52 2c 4b 57 36 2c 57 57 32 2c 57 44 45 43 32 2c 4b 57 30 20 00 13 01 4a 00 1c 00 50 2a 20 52 45 41 44 59 20 46 4f 52 20 52 45 41 44 2c 20 52 45 41 44 20 21 00 13 01 74 ┆EY , & P XCOPY FCBUFFER,KW6,WW2,WDEC2,KW0 J P* READY FOR READ, READ ! t┆
0x1f3e…1f8e (20, 0, 400) 00 28 00 50 5c 52 45 41 44 5c 2e 49 58 44 49 52 2c 44 53 44 42 53 2c 46 43 42 55 46 46 45 52 2c 57 57 31 2c 4b 57 32 20 00 14 00 04 00 36 00 50 5c 58 53 54 41 54 5c 44 53 44 42 53 2c 4e 57 58 53 54 41 54 5c 45 58 54 45 4e 44 45 44 20 53 54 ┆ ( P READ .IXDIR,DSDBS,FCBUFFER,WW1,KW2 6 P XSTAT DSDBS,NWXSTAT EXTENDED ST┆
0x1f8e…1fde 2c 43 4f 44 45 2d 2d 3e 57 4f 52 4b 46 49 45 4c 44 20 00 14 00 30 00 2a 00 50 5c 4d 55 4c 5c 58 44 52 45 43 4e 52 2c 4b 44 53 48 49 46 54 5c 53 48 49 46 54 20 46 4f 52 20 5a 59 52 4c 4e 47 20 00 14 00 6a 00 0c 00 50 5c 42 5c 5a 43 35 30 30 ┆,CODE-->WORKFIELD 0 * P MUL XDRECNR,KDSHIFT SHIFT FOR ZYRLNG j P B ZC500┆
0x1fde…202e 00 14 00 98 00 4c 00 50 5a 43 33 30 30 5c 5c 5c 5c 5c 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 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 ┆ L PZC300 ┆
0x202e…207e 00 14 00 a8 00 4c 00 50 2a 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 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 00 00 00 00 00 00 2a ┆ L P* *┆
0x207e…20ce 00 14 00 f8 00 4c 00 50 2a 20 20 20 52 45 41 44 20 44 41 54 41 42 41 53 45 20 56 49 41 20 49 4e 44 45 58 46 49 4c 45 2d 31 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 00 00 00 00 00 00 2a ┆ L P* READ DATABASE VIA INDEXFILE-1 *┆
0x20ce…20d0 (21, 0, 400) 00 14 ┆ ┆
0x20d0…2120 01 48 00 4c 00 50 2a 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 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 00 00 00 00 00 00 2a 00 15 ┆ H L P* * ┆
0x2120…2170 00 08 00 16 00 50 2a 20 47 45 54 20 53 59 4d 42 4f 4c 49 43 20 4b 45 59 00 15 00 58 00 28 00 50 5c 58 43 4f 50 59 5c 46 43 42 55 46 46 45 52 2c 4b 57 30 2c 4b 57 36 2c 58 44 52 45 43 4e 52 2c 4b 57 30 20 00 15 00 72 00 28 00 50 5c 52 45 41 ┆ P* GET SYMBOLIC KEY X ( P XCOPY FCBUFFER,KW0,KW6,XDRECNR,KW0 r ( P REA┆
0x2170…21c0 44 5c 2e 49 58 44 49 52 2c 44 53 44 42 53 2c 46 43 42 55 46 46 45 52 2c 57 57 31 2c 4b 57 31 20 00 15 00 9e 00 4c 00 50 20 20 20 20 20 20 20 20 20 58 53 54 41 54 20 20 20 20 20 44 53 44 42 53 2c 4e 57 58 53 54 41 54 20 20 20 20 20 20 20 20 ┆D .IXDIR,DSDBS,FCBUFFER,WW1,KW1 L P XSTAT DSDBS,NWXSTAT ┆
0x21c0…2210 20 20 45 58 54 20 53 54 41 54 55 53 43 4f 44 45 20 20 2d 2d 3e 20 57 4f 52 4b 46 49 45 4c 44 20 00 15 00 ca 00 4c 00 50 5a 43 35 30 30 5c 5c 5c 5c 5c 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 ┆ EXT STATUSCODE --> WORKFIELD L PZC500 ┆
0x2210…2246 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 00 15 01 1a 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P* ┆
0x2246…657c […elided…]
0x657c…658c 29 20 53 48 4f 55 4c 44 20 42 45 20 43 48 45 43 ┆) SHOULD BE CHEC┆
0x658c…65dc (65, 0, 400) 4b 45 44 20 41 4c 53 4f 00 40 01 66 00 38 00 50 2a 20 20 20 20 20 42 55 54 20 42 45 43 41 55 53 45 20 4f 46 20 45 52 52 4f 52 20 49 4e 20 44 4d 20 52 45 4c 20 31 30 2e 30 20 49 54 20 49 53 20 4e 4f 54 20 00 41 00 10 00 26 00 50 5c 43 41 4c ┆KED ALSO @ f 8 P* BUT BECAUSE OF ERROR IN DM REL 10.0 IT IS NOT A & P CAL┆
0x65dc…662c 4c 5c 4d 41 53 4b 2c 4e 57 58 53 54 41 54 2c 57 57 31 5c 43 48 45 43 4b 20 42 49 54 53 20 00 41 00 4c 00 4c 00 50 5c 42 4f 4b 5c 5a 5a 34 30 30 5c 5c 5c 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 ┆L MASK,NWXSTAT,WW1 CHECK BITS A L L P BOK ZZ400 ┆
0x662c…667c 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 41 00 76 00 4c 00 50 5c 50 45 52 46 5c 58 45 45 52 52 2c 3d 57 27 36 27 2c 4b 57 31 5c 44 49 53 4b 20 45 52 52 4f 52 5c 5c 00 00 00 00 00 00 00 00 ┆ A v L P PERF XEERR,=W'6',KW1 DISK ERROR ┆
0x667c…66cc 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 41 00 c6 00 4c 00 50 5c 42 5c 5a 5a 39 30 30 5c 5c 5c 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 ┆ A L P B ZZ900 ┆
0x66cc…671c 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 41 01 16 00 06 00 50 2a 20 00 41 01 66 00 20 00 50 2a 20 43 48 45 43 4b 20 42 49 54 20 31 3a 20 4b 45 59 20 4e 4f 54 20 46 4f 55 4e 44 00 41 01 70 ┆ A P* A f P* CHECK BIT 1: KEY NOT FOUND A p┆
0x671c…676c (66, 0, 400) 00 06 00 50 2a 20 00 42 00 04 00 4c 00 50 5a 5a 34 30 30 5c 5c 5c 5c 5c 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P* B L PZZ400 ┆
0x676c…67bc 00 00 00 00 00 00 00 42 00 0e 00 2e 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 58 27 30 34 30 30 27 5c 53 45 54 20 42 49 54 20 35 20 49 4e 20 57 4f 52 4b 46 49 45 4c 44 20 00 42 00 5e 00 50 00 50 5c 43 41 4c 4c 5c 4d 41 53 4b 2c 4e 57 58 53 54 ┆ B . P MOVE WW1,=X'0400' SET BIT 5 IN WORKFIELD B ^ P P CALL MASK,NWXST┆
0x67bc…680c 41 54 2c 57 57 31 5c 43 48 45 43 4b 20 42 49 54 20 31 20 49 4e 20 45 58 54 20 53 54 41 54 55 53 20 43 4f 44 45 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 00 90 00 4c 00 50 5c 42 4e 4f 4b 5c 5a 5a 39 30 30 5c ┆AT,WW1 CHECK BIT 1 IN EXT STATUS CODE B L P BNOK ZZ900 ┆
0x680c…685c 5c 5c 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 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 42 00 e4 00 4c 00 50 5c 53 45 54 5c 53 42 52 45 43 41 56 ┆ B L P SET SBRECAV┆
0x685c…68ac 42 5c 5c 5c 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 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 42 01 34 00 4c 00 50 5a 5a 39 30 30 5c 5c 5c 5c 5c 00 00 ┆B B 4 L PZZ900 ┆
0x68ac…68fc (67, 0, 400) 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 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 42 01 84 00 4c 00 50 5c 52 45 54 5c 5c 5c 5c 00 00 00 00 ┆ B L P RET ┆
0x68fc…694c 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 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 43 00 44 00 4c 00 50 5c 50 45 4e 44 5c 5c 5c 5c 00 00 00 ┆ C D L P PEND ┆
0x694c…699c 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 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 43 00 94 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 ┆ C L P* ┆
0x699c…69ec 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 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 2a 00 43 00 e4 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 ┆ * C L P* ┆
0x69ec…6a3c 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 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 2a 00 43 01 34 00 4c 00 50 5c 45 4e 44 5c 5c 5c 5c 00 00 00 00 ┆ * C 4 L P END ┆
0x6a3c…6a84 (68, 2, 72) 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 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 43 01 84 40 04 00 00 00 44 00 44 ┆ C @ D D┆
0x6a84…6a8c (69, 1, 8) 20 04 00 00 00 45 00 04 ┆ E ┆
0x6a8c…6adc (70, 0, 400) 5c 7c 8a 20 53 b8 83 40 53 dc 87 40 53 da 54 02 03 01 83 49 00 40 5f 3a 50 04 f0 a1 5c aa 81 40 50 e2 f0 a1 5d 1c 5f 5c 98 41 52 18 88 20 53 c2 01 01 81 41 50 de 81 40 53 e6 81 41 50 e0 8f 20 53 24 81 40 53 dc 21 03 81 41 33 72 8f 20 53 24 ┆ | S @S @S T I @_:P @P ] _ AR S AP @S AP S$ @S ! A3r S$┆
0x6adc…6b2c 50 64 85 40 53 dc 82 40 53 d2 50 4c 84 40 53 d4 50 a6 f0 a1 62 56 e2 04 f0 a1 62 56 a9 08 f0 a1 5f f4 5c 1c 52 92 86 0c 87 40 53 e6 54 04 87 40 50 e4 81 10 f0 a1 5b d6 56 0a 01 00 f0 a1 5f f4 50 5a 52 74 84 29 85 49 00 02 86 49 00 40 87 49 ┆Pd @S @S PL @S P bV bV _ R @S T @P [ V _ PZRt ) I I @ I┆
0x6b2c…6b7c 00 42 84 41 50 58 57 1a 81 14 50 5c f0 a1 5b d6 52 56 a0 29 57 0c 81 20 50 5a f0 a1 5d 4e a0 41 50 58 8f 20 53 24 83 20 50 5a 82 2c 82 41 5c 16 98 41 5c 16 3a 42 92 0c 90 41 5c 16 51 1a e9 28 50 04 1a 04 5f 0e 83 48 00 42 84 40 53 e6 54 04 ┆ B APXW P [ RV )W PZ ]N APX S$ PZ , A A :B A Q (P _ H B @S T ┆
0x6b7c…6bcc 84 40 50 e4 eb 10 5c 16 83 48 00 02 90 a0 00 04 98 41 5c 16 8f 22 00 00 8f 20 53 b8 00 06 00 00 45 51 88 14 47 54 89 14 4c 54 8a 14 4e 45 8c 14 4e 47 8d 14 4e 4c 8e 14 50 32 81 40 52 16 19 02 52 2a f0 a1 62 56 f0 a1 5f f4 5c 70 87 40 53 dc ┆ @P H A " S EQ GT LT NE NG NL P2 @R R* bV _ p @S ┆
0x6bcc…6c1c 50 1a 81 1c 19 ff 51 14 80 c1 5c 64 80 8c 28 04 00 08 80 a0 00 00 17 00 8e 20 53 24 8f 20 53 b8 00 02 ff ff 00 4c 00 00 00 55 00 01 82 20 4f d4 83 28 1b 01 52 1a 12 04 aa 02 a5 2a a5 29 24 c4 91 80 21 0a a9 44 02 40 44 00 02 2d 04 05 01 0c ┆P Q d ( S$ S L U O ( R * )$ ! D @D - ┆
0x6c1c…6c6c (71, 0, 400) e9 28 5c 0a 84 40 53 e2 56 04 84 40 50 e6 ec 48 00 42 5c 1a 03 01 57 02 23 02 2b f0 e3 43 00 02 f0 22 81 20 80 00 02 10 83 20 4f d4 93 20 00 42 82 41 5c d4 98 41 5c d4 3a 42 92 0c 90 41 5c d4 89 20 53 b8 e9 28 50 06 1a 04 5f 10 00 00 9a 20 ┆ ( @S V @P H B W # + C " O B A A :B A S (P _ ┆
0x6c6c…6cbc 00 42 81 40 53 dc 85 40 53 d4 86 08 84 40 53 d2 50 06 b1 14 b5 04 b1 14 f0 a1 5c 7c 8e 20 53 c2 84 18 87 40 53 e2 56 04 87 40 50 e6 87 51 00 42 81 31 82 40 53 e6 82 51 00 02 85 51 00 40 81 41 4f d2 f0 22 82 20 4f d4 83 28 1b 01 52 24 92 20 ┆ B @S @S @S P | S @S V @P Q B 1 @S Q Q @ AO " O ( R$ ┆
0x6cbc…6d0c 00 04 e9 28 5c 0c 84 40 53 e2 56 04 84 40 50 e6 ec 48 00 42 5c 1c a0 29 84 20 80 00 84 49 00 42 f0 22 8f 20 53 b8 82 24 11 04 a0 25 1a 01 5c 08 f0 22 f0 a1 62 56 83 23 84 43 ff fe 85 43 ff fc 86 43 ff fa 87 43 ff f8 98 a0 00 0a 03 00 04 00 ┆ ( @S V @P H B ) I B " S $ % " bV # C C C C ┆
0x6d0c…6d5c 05 00 07 00 e9 20 00 2a 54 04 07 03 57 0c e9 20 00 23 54 0a 90 41 53 e4 07 01 f0 a1 62 56 f0 a1 61 04 50 5c 83 08 87 1c 50 52 e9 20 00 28 54 20 f0 a1 5d 5a 84 08 50 6c e9 20 00 2c 54 08 f0 a1 5d 5a 85 08 50 5e e9 20 00 29 54 58 f0 a1 62 56 ┆ *T W #T AS bV a P PR (T ]Z Pl ,T ]Z P^ )TX bV┆
0x6d5c…6dac f0 a1 5f a0 86 41 53 e6 86 18 54 04 86 40 50 e4 83 a0 00 01 f0 a1 5e 20 52 3a 82 06 3f 61 50 0c 82 2a 3a 6c 22 03 1a 02 54 2a 82 26 03 01 57 06 03 00 87 1c 54 1e e3 43 12 00 04 51 40 29 05 24 20 90 09 00 20 20 00 00 12 80 40 81 51 10 00 05 ┆ _ AS T @P ^ R: ?aP *:l" T* & W T C Q@) $ @ Q ┆
0x6dac…6dfc (72, 0, 400) 00 0c 87 42 00 02 86 42 00 04 85 42 00 06 84 42 00 08 83 42 00 0a 90 a0 00 0a f0 22 8f 20 53 b8 81 41 5e f0 82 41 5e f4 83 41 5e f8 84 41 5e fc 85 41 5f 00 86 41 5f 04 87 41 5f 08 f0 a1 5f 56 52 ca eb 20 00 ff 51 0a 81 0c 21 f0 39 44 23 0f ┆ B B B B B " S A^ A^ A^ A^ A_ A_ A_ _VR Q ! 9D# ┆
0x6dfc…6e4c 93 04 81 0c 39 68 50 b4 e9 06 51 b0 82 0c 22 ff 83 04 1b 01 3b 42 13 04 84 9c 94 8c 83 32 83 8e 50 6c 82 8c 87 4c ff fe 1f 02 3f 62 1f 01 f0 a1 5f 14 13 00 50 86 81 2c 52 06 14 00 50 4c 57 7e 82 10 50 7a 39 41 52 12 15 00 54 72 85 4c 00 04 ┆ 9hP Q " ;B 2 Pl L ?b _ P ,R PLW~ Pz9AR Tr L ┆
0x6e4c…6e9c ec 14 51 6a 82 10 1a 01 57 22 86 14 50 60 e4 4c 00 04 24 ff ee 10 51 56 e5 4c 00 05 25 ff ea 14 51 4c 1e 01 1a 01 f0 a1 5f 3a 92 18 84 0e f0 a1 5f 3a 81 88 91 cc 00 02 57 04 81 cc 00 02 82 8c a1 a0 7f ff 91 d2 00 02 01 00 e1 43 00 02 81 20 ┆ Qj W" P` L $ QV L % QL _: _: W C ┆
0x6e9c…6eec 00 00 82 20 00 00 83 20 00 00 84 20 00 00 85 20 00 00 86 20 00 00 87 20 00 00 f0 22 9a 8a 99 86 01 02 5f 2a 01 00 83 ac e9 1c 51 1a e9 08 50 10 51 14 83 ac 56 04 11 01 13 04 11 01 13 04 5f 1a a3 a0 0f ff 57 02 03 00 f0 22 83 41 5f 52 03 10 ┆ " _* Q P Q V _ W " A_R ┆
0x6eec…6f3c 81 08 02 00 3c e1 56 02 92 04 91 04 1b 01 5c 0c 83 20 00 00 f0 22 81 c0 10 4a 87 06 81 46 ff fe ee 3c 50 0c 17 02 19 01 5c 0a 01 02 07 00 57 2a 81 1c 82 40 52 16 22 01 00 01 55 55 00 00 00 00 80 00 00 00 08 80 00 00 00 00 00 02 00 08 00 2c ┆ < V " J F <P W* @R " UU ,┆
0x6f3c…6f8c (73, 0, 400) 50 0c 87 18 28 04 00 12 87 1c 8a 20 53 b8 99 06 81 c0 10 2a 91 06 87 24 81 dc ff f8 81 c6 00 06 01 00 e1 43 00 02 f0 22 e9 20 00 3a 54 12 f0 a1 62 56 e6 04 f0 a1 62 56 ae 04 f0 a1 62 56 f0 22 06 00 f0 22 82 41 5f e2 82 20 80 00 82 41 53 e2 ┆P ( S * $ C " :T bV bV bV " " A_ AS ┆
0x6f8c…6fdc e9 20 00 2e 54 12 81 40 52 16 50 12 f0 a1 61 50 50 06 22 ff 82 41 53 e2 82 20 00 00 f0 22 f0 a1 61 50 58 0c 12 00 58 14 8f 20 53 b8 90 a0 00 04 83 22 83 2c 82 2c 82 41 60 26 98 41 60 26 3a 42 92 0c 90 41 60 26 51 08 e9 28 50 04 1a 04 5f 0e ┆ .T @R P aPP " AS " aPX X S " , , A`& A`&:B A`&Q (P _ ┆
0x6fdc…702c 90 23 90 23 83 48 00 02 98 41 60 26 8f 22 00 00 81 20 ff f8 81 41 61 c8 a0 41 61 ca 82 34 f0 a1 62 1c f0 a1 61 ec 81 34 82 40 61 c8 12 08 92 08 81 49 60 88 15 02 54 04 90 41 61 ca 90 41 60 ea 90 41 60 ea 54 04 90 41 61 ca 81 14 a1 20 0f ff ┆ # # H A`& " Aa Aa 4 b a 4 @a I` T Aa A` A` T Aa ┆
0x702c…707c 54 12 f0 a1 60 98 84 40 53 e2 52 08 04 00 f0 a1 58 e6 95 10 90 41 61 c8 5c 4e 85 40 60 ea f0 22 00 00 50 00 83 08 87 1c 50 00 e9 20 00 28 54 00 81 40 52 16 21 01 50 44 87 40 53 e6 54 04 87 40 50 e4 81 1c f0 a1 5f f4 60 ec eb 20 00 03 51 22 ┆T ` @S R X Aa N @` " P P (T @R ! PD @S T @P _ ` Q"┆
0x707c…70cc 3b 48 e3 40 60 ea 3b 64 80 c1 60 d6 80 8c 07 00 28 04 00 11 81 40 60 ea a1 20 0f ff 80 a0 00 00 f0 22 28 04 00 12 87 1c 8a 20 53 b8 81 40 60 ea f0 22 00 00 00 04 00 04 02 40 00 92 11 09 10 84 0a 20 04 14 a4 45 48 28 92 00 44 98 24 10 05 05 ┆;H @` ;d ` ( @` "( S @` " @ EH( D $ ┆
0x70cc…711c (74, 0, 400) 3a 53 00 00 3a 58 00 01 3a 59 00 02 3a 5a 00 03 f0 a1 62 56 e9 20 00 24 50 02 57 48 f0 a1 62 56 82 20 ff ff 82 41 61 4e 02 00 83 41 61 46 e9 20 00 30 52 1c e9 20 00 39 51 16 19 30 90 41 61 4e 83 08 3a 42 92 0c 92 08 92 04 f0 a1 62 56 5f 22 ┆:S :X :Y :Z bV $P WH bV AaN AaF 0R 9Q 0 AaN :B bV_"┆
0x711c…716c 90 a0 00 04 83 20 00 00 f8 41 61 4e 8f 22 00 00 f0 a1 62 56 82 20 ff ff 82 41 61 a0 02 00 e9 20 00 30 52 24 e9 20 00 39 55 0e e9 20 00 41 52 18 e9 20 00 46 51 12 19 07 19 30 3a 44 92 04 90 41 61 a0 f0 a1 62 56 5f 2a e9 20 00 27 54 08 f0 a1 ┆ AaN " bV Aa 0R$ 9U AR FQ 0:D Aa bV_* 'T ┆
0x716c…71bc 62 56 3a 48 5f 1a 90 a0 00 04 f8 41 61 a0 8f 22 00 00 81 20 ff f8 81 41 61 c8 a0 41 61 ca 82 34 f0 a1 62 1c f0 a1 61 ec 15 02 54 04 90 41 61 ca 90 41 61 c8 5c 18 f0 22 00 00 00 00 e1 2c f0 a1 61 da 13 01 1a 01 5c 0c f0 22 21 ff e9 20 00 20 ┆bV:H_ Aa " Aa Aa 4 b a T Aa Aa " , a "! ┆
0x71bc…720c 52 06 e9 20 00 5f 55 02 01 2e 57 56 81 20 ff fc 81 41 62 04 3a c4 81 08 f0 a1 62 10 90 41 62 04 5c 0e f0 22 00 00 81 08 39 64 f0 a1 62 10 81 08 21 0f 19 0a 52 02 11 07 11 3a 57 26 01 20 f0 a1 62 42 01 20 57 1c 01 0d f0 a1 62 42 01 0a 57 12 ┆R _U .WV Ab : b Ab " 9d b ! R :W& bB W bB W ┆
0x720c…725c 01 0d 57 0e 01 3f 57 0a 01 3a 57 06 01 2e 57 02 01 2f e1 61 62 fa 90 41 62 fa e9 20 00 0d 54 04 f0 a1 62 ae f0 22 81 40 62 ac 54 1e f0 a1 62 ae 87 41 62 74 80 c1 62 78 00 41 12 01 02 04 44 00 00 a0 82 0a 51 40 80 00 45 02 00 84 00 28 49 5c ┆ W ?W :W .W / ab Ab T b " @b T b Abt bx A D Q@ E (I ┆
0x725c…72ac (75, 0, 400) 07 c1 80 a0 62 e0 28 04 00 01 87 20 00 00 80 a0 00 00 81 40 62 f8 a0 41 62 ac f0 22 f0 a1 62 ae 80 c1 62 a4 07 84 80 a0 62 e0 28 04 00 01 07 41 28 04 ff ff 62 a2 28 04 00 03 80 a0 00 00 90 41 62 ac f0 22 00 00 87 41 62 d8 80 c1 62 dc 87 40 ┆ b ( @b Ab " b b b ( A( b ( Ab " Ab b @┆
0x72ac…72fc 62 fa 9f 20 62 fc 50 16 87 41 62 f0 07 85 80 a0 62 ec 28 04 00 01 87 20 62 fc 87 41 62 fa 87 20 00 00 80 a0 00 00 f0 22 80 21 62 f9 00 01 00 00 00 00 00 00 80 31 62 fc 00 00 00 00 00 00 00 00 00 00 62 fc 00 00 51 00 e9 28 50 00 1a 04 5f 0e ┆b b P Ab b ( b Ab " !b 1b b Q (P _ ┆
0x72fc…734c 90 23 90 23 83 48 00 02 98 41 00 00 8f 22 00 00 81 20 ff f8 81 41 00 00 a0 41 00 00 82 34 f0 a1 00 00 f0 a1 00 00 81 34 82 40 00 00 12 08 92 08 81 49 00 00 15 02 54 00 90 41 00 00 90 41 00 00 90 41 00 00 54 00 90 41 00 00 81 14 a1 20 0f ff ┆ # # H A " A A 4 4 @ I T A A A T A ┆
0x734c…739c 54 00 f0 a1 00 00 84 40 80 14 00 00 00 00 00 00 00 00 00 00 f6 a1 36 9e f6 a1 63 a2 80 86 07 00 9c d6 ff f4 28 04 00 0d 94 d6 ff f4 8f 20 34 08 f6 a1 36 9e f6 a1 63 a2 80 86 07 00 9c d6 ff f4 28 04 00 0c 94 d6 ff f4 5f 1e 9d 06 1d 06 52 06 ┆T @ 6 c ( 4 6 c ( _ R ┆
0x739c…73ec 23 30 54 06 f0 3a 8f 20 4b 14 01 02 8f 20 4b 28 28 04 00 11 81 40 00 00 a1 20 0f ff 80 a0 00 00 f0 22 28 04 00 12 87 1c 8a 20 53 b8 81 40 00 00 f0 22 00 00 00 04 00 04 20 29 48 20 8a a4 8a 04 10 40 00 00 00 00 00 00 14 01 50 00 09 00 04 05 ┆#0T : K K(( @ "( S @ " )H @ P ┆
0x73ec…743c (76, 0, 400) 06 e4 04 f4 05 02 05 08 06 d8 06 dc 06 e0 31 02 90 14 80 01 10 49 35 12 4a 31 0d 57 0d 40 32 80 02 31 02 90 14 80 01 10 57 00 11 22 52 11 21 22 54 3c 49 35 08 20 41 e1 22 18 41 e0 20 80 03 10 30 d0 26 29 36 6d 0a 49 35 03 48 31 1d 80 04 57 ┆ 1 I5 J1 W @2 1 W "R !"T<I5 A " A 0 &)6m I5 H1 W┆
0x743c…748c 19 80 05 29 36 54 13 80 06 57 0f 19 22 53 42 4a 31 45 80 07 21 22 54 06 5f 4d 80 08 5f 51 31 02 90 12 30 04 48 35 15 19 22 53 07 01 4c 53 01 37 52 01 38 6d 01 3a 52 01 3b 52 57 28 01 37 52 01 4c 52 21 22 53 05 80 09 49 32 5a 00 31 25 01 65 ┆ )6T W "SBJ1E !"T _M _Q1 0 H5 "S LS 7R 8m :R ;RW( 7R LR!"S I2Z 1% e┆
0x748c…74dc 57 80 0a 1b 49 32 36 00 4c 65 00 37 65 21 37 52 03 05 37 52 03 12 52 00 32 12 00 33 32 08 33 db 49 35 27 80 0a 1d 49 32 14 01 36 52 29 3b 53 02 41 36 21 22 53 22 80 0b 49 32 1a 57 1b 29 22 52 14 80 0c 80 0d 01 22 6d 57 0b 80 0a 47 49 32 08 ┆W I26 Le 7e!7R 7R R 2 32 3 I5' I2 6R);S A6!"S" I2 W )"R "mW GI2 ┆
0x74dc…752c 01 36 52 57 03 01 36 6d 34 00 21 65 52 1a 21 65 53 16 21 65 57 12 21 65 6e 0e 21 65 6f 0a 21 65 70 06 01 00 11 01 43 11 34 01 00 49 4b 23 38 52 16 01 35 4e 25 37 58 15 01 44 17 30 05 00 44 44 30 06 04 44 44 57 06 01 00 11 01 43 11 34 01 00 ┆ 6RW 6m4 !eR !eS !eW !en !eo !ep C 4 IK#8R 5N%7X D 0 DD0 DDW C 4 ┆
0x752c…757c 31 25 21 36 53 05 80 0e 49 32 84 41 60 80 0f 11 01 66 6d 80 0a 25 00 31 86 49 32 6b 48 34 1a 80 10 d5 d1 80 11 27 d0 80 01 10 4a 31 06 80 10 d3 d0 80 10 d5 d0 40 34 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆1%!6S I2 A` fm % 1 I2kH4 ' J1 @4_ ┆