|
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: 23816 (0x5d08)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
└─⟦this⟧ »NJ-AMT/DKSUBS.SC«
IDENT DKSUBS 02.01.XXX.1
DDUM KMD08
PDIV
ENTRY RAREAD
ENTRY RAWRIT
ENTRY SQREAD
ENTRY SQWRIT
ENTRY ASSG
ENTRY RGREAD
ENTRY RADEL
ENTRY GETBIT
ENTRY ERDK
ENTRY BACKUP
ENTRY RSTORE
EXT MASK
EXT PACKCL
EXT PACKST
EXT SETKRE
EXT SETDEB
EXT SPERR
EXT WRITJT
EXT LAMPON
INCLUDE EQUATE
**************************************************
*
* THIS MODULE CONTAINS ALL DISC HANDLING
* ROUTINES: RANDOM READ/WRITE
* SEQ READ/WRITE
* ERROR HANDLING
* ASSIGN ROUTINE
* DISK ERROR ROUTINE
* GET STATUS FROM EXTENDED STATUSWORD
* READ RECORD FROM REGSET
**************************************************
EJECT
*
* ASSG - ASSIGN ROUTINE
* THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED
* DATASETNAME TO A VOLUMENAME.
*-* IT TRIES ON ALL VOLUMES CONNECTED.
* ON SPECIFIED VOLUME
*
* ALTERED PARAMETERS: NONE
*
* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21
* GSWBIN1 - OK - ATTEMPTNR NOK - 5
* ASFNAME - DATASETNAME
* ASVOL - OK - VOLUMENAME NOK - X'00'
* GTWBCD1 - OK - N/A NOK - ATTEMPT+1
* GTWBCD2 - OK - N/A NOK - DATASETNR
*
* C/R: OK - 0, NOK - 4
*
*-* CALL : PERF ASSG,<DAT4ASETNAME>,<DATASETNR>
* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>
*
***********************************************************
*
*-*ASSG PROC DK,DNR
*-* MOVE SPBINW4,CBIN0 INITIATE
*-* MOVE GSWBIN1,CBIN1
*-* DSC0 DK,CLOSE CLOSE FIRST
*
ASSG PROC VOL,DK,DNR
MOVE SPBINW4,CBIN0 INITIATE
MOVE GSWBIN1,VOL
*
MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME
ASSG10
MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME
*
MOVE GSWBCD3,ASFNAME
CBE GSWBCD3,=D'0',ASSGRET
MOVE GSWBCD3,ASVOL
CBE GSWBCD3,=D'0',ASSGRET
DSC0 DK,CLOSE CLOSE FIRST
*
ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL
BOK ASSGRET IF OK, RETURN
*-* ADD GSWBIN1,CBIN1
*-* CBG GSWBIN1,CBIN4,ASSGERR
*-* MOVE ASVOL,=X'00'
*-* CBNE CVOL(GSWBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME
ASSGERR
* ASSIGNMENT IMPOSSIBLE
MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)
MOVE SPBINW4,CBIN21
MOVE GTWBCD2,DNR
MOVE GSWSTR9,=C'ASSIGN '
PERF SPERR 'ASSIGN ERROR'
CMP CBIN1,CBIN0
RET
ASSGRET
CMP CBIN0,CBIN0
RET
PEND
EJECT
**************************************************
*
* RAREAD - RANDOM READ ROUTINE
* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>
* RETURN:
* CR=0 > OK CR = 4 NOK OK
*
* IN CASE OF ERROR ERDK IS CALLED
* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE
*
* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN
*
* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT DKSUBS 02.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0040 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0026}
0x0040…0056 Head {h00=0x0012, h01=0x0050, text=» PDIV«, t00=0x0000, t01=0x0044}
0x0056…006c Head {h00=0x0012, h01=0x0050, text=» ENTRY RAREAD «, t00=0x0000, t01=0x005a}
0x006c…0082 Head {h00=0x0012, h01=0x0050, text=» ENTRY RAWRIT «, t00=0x0000, t01=0x0070}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY SQREAD «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY SQWRIT «, t00=0x0000, t01=0x009c}
0x00ae…00c2 Head {h00=0x0010, h01=0x0050, text=» ENTRY ASSG «, t00=0x0000, t01=0x00b2}
0x00c2…00d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGREAD «, t00=0x0000, t01=0x00c6}
0x00d8…00ec Head {h00=0x0010, h01=0x0050, text=» ENTRY RADEL«, t00=0x0000, t01=0x00dc}
0x00ec…0102 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETBIT «, t00=0x0000, t01=0x00f0}
0x0102…0116 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERDK «, t00=0x0000, t01=0x0106}
0x0116…012c Head {h00=0x0012, h01=0x0050, text=» ENTRY BACKUP «, t00=0x0000, t01=0x011a}
0x012c…0142 Head {h00=0x0012, h01=0x0050, text=» ENTRY RSTORE «, t00=0x0000, t01=0x0130}
0x0142…0154 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0146}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x0158}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x016c}
0x017c…0190 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0000, t01=0x0180}
0x0190…01a4 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0004}
0x01a4…01b6 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0018}
0x01b6…01ca Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x002a}
0x01ca…01de Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x003e}
0x01de…01fe Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x0052}
0x01fe…0238 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0072}
0x0238…0242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…027a Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x00b6}
0x027a…02a8 Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0001, t01=0x00ee}
0x02a8…02d6 Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0001, t01=0x011c}
0x02d6…0300 Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0001, t01=0x014a}
0x0300…032a Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0001, t01=0x0174}
0x032a…0358 Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x000e}
0x0358…0398 Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x003c}
0x0398…03cc Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x007c}
0x03cc…0406 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00b0}
0x0406…041e Head {h00=0x0014, h01=0x0050, text=» EJECT «, t00=0x0002, t01=0x00ea}
0x041e…0428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0428…0456 Head {h00=0x002a, h01=0x0050, text=»* ASSG - ASSIGN ROUTINE«, t00=0x0002, t01=0x010c}
0x0456…0494 Head {h00=0x003a, h01=0x0050, text=»* THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED«, t00=0x0002, t01=0x013a}
0x0494…04c2 Head {h00=0x002a, h01=0x0050, text=»* DATASETNAME TO A VOLUMENAME. «, t00=0x0002, t01=0x0178}
0x04c2…04f8 Head {h00=0x0032, h01=0x0050, text=»*-* IT TRIES ON ALL VOLUMES CONNECTED. «, t00=0x0003, t01=0x0016}
0x04f8…051e Head {h00=0x0022, h01=0x0050, text=»* ON SPECIFIED VOLUME«, t00=0x0003, t01=0x004c}
0x051e…0528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0072}
0x0528…0552 Head {h00=0x0026, h01=0x0050, text=»* ALTERED PARAMETERS: NONE «, t00=0x0003, t01=0x007c}
0x0552…055c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055c…05a2 Head {h00=0x0042, h01=0x0050, text=»* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 «, t00=0x0003, t01=0x00b0}
0x05a2…05e6 Head {h00=0x0040, h01=0x0050, text=»* GSWBIN1 - OK - ATTEMPTNR NOK - 5«, t00=0x0003, t01=0x00f6}
0x05e6…061c Head {h00=0x0032, h01=0x0050, text=»* ASFNAME - DATASETNAME«, t00=0x0003, t01=0x013a}
0x061c…0664 Head {h00=0x0044, h01=0x0050, text=»* ASVOL - OK - VOLUMENAME NOK - X'00'«, t00=0x0003, t01=0x0170}
0x0664…06b0 Head {h00=0x0048, h01=0x0050, text=»* GTWBCD1 - OK - N/A NOK - ATTEMPT+1«, t00=0x0004, t01=0x0028}
0x06b0…06fc Head {h00=0x0048, h01=0x0050, text=»* GTWBCD2 - OK - N/A NOK - DATASETNR«, t00=0x0004, t01=0x0074}
0x06fc…0706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c0}
0x0706…072a Head {h00=0x0020, h01=0x0050, text=»* C/R: OK - 0, NOK - 4«, t00=0x0004, t01=0x00ca}
0x072a…0734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ee}
0x0734…0774 Head {h00=0x003c, h01=0x0050, text=»*-* CALL : PERF ASSG,<DAT4ASETNAME>,<DATASETNR>«, t00=0x0004, t01=0x00f8}
0x0774…07b8 Head {h00=0x0040, h01=0x0050, text=»* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>«, t00=0x0004, t01=0x0138}
0x07b8…07c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c2…0806 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x0186}
0x0806…0810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x0810…082c Head {h00=0x0018, h01=0x0050, text=»*-*ASSG PROC DK,DNR «, t00=0x0005, t01=0x0044}
0x082c…0854 Head {h00=0x0024, h01=0x0050, text=»*-* MOVE SPBINW4,CBIN0 INITIATE «, t00=0x0005, t01=0x0060}
0x0854…0872 Head {h00=0x001a, h01=0x0050, text=»*-* MOVE GSWBIN1,CBIN1«, t00=0x0005, t01=0x0088}
0x0872…0898 Head {h00=0x0022, h01=0x0050, text=»*-* DSC0 DK,CLOSE CLOSE FIRST «, t00=0x0005, t01=0x00a6}
0x0898…08a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00cc}
0x08a2…08be Head {h00=0x0018, h01=0x0050, text=»ASSG PROC VOL,DK,DNR«, t00=0x0005, t01=0x00d6}
0x08be…08e2 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW4,CBIN0 INITIATE«, t00=0x0005, t01=0x00f2}
0x08e2…08fc Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN1,VOL «, t00=0x0005, t01=0x0116}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0130}
0x0906…0938 Head {h00=0x002e, h01=0x0050, text=» MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME«, t00=0x0005, t01=0x013a}
0x0938…0946 Head {h00=0x000a, h01=0x0050, text=»ASSG10«, t00=0x0005, t01=0x016c}
0x0946…0978 Head {h00=0x002e, h01=0x0050, text=» MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME«, t00=0x0005, t01=0x017a}
0x0978…0982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001c}
0x0982…09a0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,ASFNAME «, t00=0x0006, t01=0x0026}
0x09a0…09c2 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGRET«, t00=0x0006, t01=0x0044}
0x09c2…09de Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,ASVOL «, t00=0x0006, t01=0x0066}
0x09de…0a00 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGRET«, t00=0x0006, t01=0x0082}
0x0a00…0a22 Head {h00=0x001e, h01=0x0050, text=» DSC0 DK,CLOSE CLOSE FIRST«, t00=0x0006, t01=0x00a4}
0x0a22…0a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2c…0a56 Head {h00=0x0026, h01=0x0050, text=» ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL«, t00=0x0006, t01=0x00d0}
0x0a56…0a7a Head {h00=0x0020, h01=0x0050, text=» BOK ASSGRET IF OK, RETURN«, t00=0x0006, t01=0x00fa}
0x0a7a…0a98 Head {h00=0x001a, h01=0x0050, text=»*-* ADD GSWBIN1,CBIN1 «, t00=0x0006, t01=0x011e}
0x0a98…0abe Head {h00=0x0022, h01=0x0050, text=»*-* CBG GSWBIN1,CBIN4,ASSGERR «, t00=0x0006, t01=0x013c}
0x0abe…0adc Head {h00=0x001a, h01=0x0050, text=»*-* MOVE ASVOL,=X'00' «, t00=0x0006, t01=0x0162}
0x0adc…0b1a Head {h00=0x003a, h01=0x0050, text=»*-* CBNE CVOL(GSWBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME «, t00=0x0006, t01=0x0180}
0x0b1a…0b2a Head {h00=0x000c, h01=0x0050, text=»ASSGERR «, t00=0x0007, t01=0x002e}
0x0b2a…0b6c Head {h00=0x003e, h01=0x0050, text=»* ASSIGNMENT IMPOSSIBLE«, t00=0x0007, t01=0x003e}
0x0b6c…0ba0 Head {h00=0x0030, h01=0x0050, text=» MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)«, t00=0x0007, t01=0x0080}
0x0ba0…0bbc Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0007, t01=0x00b4}
0x0bbc…0bd6 Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0007, t01=0x00d0}
0x0bd6…0bf8 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'ASSIGN ' «, t00=0x0007, t01=0x00ea}
0x0bf8…0c1c Head {h00=0x0020, h01=0x0050, text=» PERF SPERR 'ASSIGN ERROR' «, t00=0x0007, t01=0x010c}
0x0c1c…0c34 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x0130}
0x0c34…0c40 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0148}
0x0c40…0c50 Head {h00=0x000c, h01=0x0050, text=»ASSGRET «, t00=0x0007, t01=0x0154}
0x0c50…0c68 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x0164}
0x0c68…0c74 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x017c}
0x0c74…0c82 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0188}
0x0c82…0c90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0008}
0x0c90…0cca Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0008, t01=0x0016}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0050}
0x0cd4…0d02 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0008, t01=0x005a}
0x0d02…0d50 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0008, t01=0x0088}
0x0d50…0d64 Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0008, t01=0x00d6}
0x0d64…0d98 Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0008, t01=0x00ea}
0x0d98…0da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011e}
0x0da2…0dd0 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0008, t01=0x0128}
0x0dd0…0e0e Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0008, t01=0x0156}
0x0e0e…0e18 (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e18…0e64 Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0009, t01=0x000e}
0x0e64…0e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005a}
0x0e6e…0eb0 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0009, t01=0x0064}
0x0eb0…0eb4 Head {h00=0x0054, h01=0x0050}
0x0eb4…0eb8 Head {h00=0x2a20, h01=0x2020}
0x0eb8…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 42 49 4e 57 34 20 2d 20 4f 4b 20 2d 20 30 20 20 20 20 20 20 20 20 20 4e 4f 4b 20 2d 20 41 4c 54 45 52 45 44 20 42 59 20 44 49 53 45 52 52 4f 52 52 4f 55 ┆ SPBINW4 - OK - 0 NOK - ALTERED BY DISERRORROU┆
0x0f00…0f50 54 49 4e 45 00 09 00 a6 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 31 20 2d 20 30 00 09 00 fe 00 06 00 50 2a 20 00 09 01 28 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TINE & P* GTWBCD1 - 0 P* ( 8 P****************┆
0x0f50…0f9e 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 09 01 32 00 30 00 50 52 41 52 45 41 44 20 20 20 20 50 52 4f 43 20 20 20 20 20 20 44 53 45 54 2c 24 4e 52 2c 42 55 46 2c 4c ┆************************************ 2 0 PRAREAD PROC DSET,$NR,BUF,L┆
0x0f9e…0fee (10, 0, 400) 45 4e 47 2c 52 45 43 4e 52 20 00 09 01 6e 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0a 00 12 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 49 4e 31 2c 4c 45 4e 47 20 20 20 20 20 20 20 20 20 20 20 47 ┆ENG,RECNR n P PLIT $NR : P MOVE GSWBIN1,LENG G┆
0x0fee…103e 45 54 20 4c 45 4e 47 54 48 20 00 0a 00 24 00 38 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 20 20 20 20 20 20 20 20 20 20 5a 45 52 4f 49 53 45 20 00 0a 00 62 00 18 00 50 20 4d ┆ET LENGTH $ 8 P MOVE SPBINW4,CBIN0 ZEROISE b P M┆
0x103e…108e 4f 56 45 20 47 54 57 42 43 44 31 2c 3d 44 27 30 27 20 00 0a 00 9e 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 52 52 45 41 44 20 20 20 20 20 44 53 45 54 2c 42 55 46 2c 47 53 57 42 49 4e 31 2c 52 45 43 4e 52 20 20 52 45 41 44 20 52 45 43 4f 52 ┆OVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSWBIN1,RECNR READ RECOR┆
0x108e…10de 44 20 00 0a 00 ba 00 34 00 50 20 20 20 20 20 20 20 20 20 20 42 45 4f 46 20 20 20 20 20 20 52 41 52 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4b 20 3f 00 0a 00 fa 00 1e 00 50 20 20 20 20 20 20 20 20 20 20 42 4f 4b 20 ┆D 4 P BEOF RAR10 OK ? P BOK ┆
0x10de…112e 20 20 20 20 20 20 52 41 52 31 30 20 00 0a 01 32 00 32 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 20 45 52 44 4b 2c 44 53 45 54 2c 24 4e 52 20 20 20 20 20 20 20 20 20 20 20 4e 4f 00 0a 01 54 00 0a 00 50 52 41 52 31 30 20 ┆ RAR10 2 2 P PERF ERDK,DSET,$NR NO T PRAR10 ┆
0x112e…117e (11, 0, 400) 00 0a 01 8a 00 26 00 50 20 20 20 20 20 20 20 20 20 20 54 42 54 20 20 20 20 20 20 20 47 54 45 58 46 4c 41 47 2c 52 41 52 32 30 00 0b 00 08 00 44 00 50 20 20 20 20 20 20 20 20 20 20 44 53 43 30 20 20 20 20 20 20 44 53 45 54 2c 52 41 43 43 53 ┆ & P TBT GTEXFLAG,RAR20 D P DSC0 DSET,RACCS┆
0x117e…11ce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 45 41 53 45 20 45 58 43 4c 2e 20 41 43 43 45 53 20 00 0b 00 32 00 20 00 50 52 41 52 32 30 20 20 20 20 20 43 4c 45 41 52 20 20 20 20 20 47 54 45 58 46 4c 41 47 00 0b 00 7a 00 38 00 50 20 20 ┆ RELEASE EXCL. ACCES 2 PRAR20 CLEAR GTEXFLAG z 8 P ┆
0x11ce…121e 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 20 20 43 42 49 4e 30 2c 53 50 42 49 4e 57 34 20 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 43 52 20 00 0b 00 9e 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0b 00 da 00 12 00 50 ┆ CMP CBIN0,SPBINW4 SET CR P RET P┆
0x121e…126e 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0b 00 f0 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0b 01 06 00 3e 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 ┆ PEND P EJECT > P**********************************┆
0x126e…12be 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0b 01 1e 00 06 00 50 2a 20 00 0b 01 60 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 44 49 53 43 20 45 52 52 4f 52 20 52 4f 55 54 49 4e 45 20 20 20 20 20 20 45 52 44 4b ┆*********************** P* ` * P* DISC ERROR ROUTINE ERDK┆
0x12be…130e (12, 0, 400) 00 0b 01 6a 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0c 00 08 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 45 52 44 4b 2c 3c 44 41 54 41 53 45 54 3e 2c 3c 53 45 54 4e 52 3e 20 00 0c 00 1a 00 06 00 50 2a 20 00 0c 00 48 00 34 ┆ j P* CALL: * P* PERF ERDK,<DATASET>,<SETNR> P* H 4┆
0x130e…135e 00 50 2a 20 20 20 20 20 20 20 20 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 20 42 55 49 4c 44 53 20 54 48 45 20 45 52 52 4f 52 43 4f 44 45 20 49 4e 20 00 0c 00 52 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4f 46 20 45 52 52 4f ┆ P* THIS ROUTINE BUILDS THE ERRORCODE IN R $ P* CASE OF ERRO┆
0x135e…13ae 52 20 4f 4e 20 44 49 53 43 20 00 0c 00 8a 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 54 48 45 20 45 52 52 4f 52 43 4f 44 45 20 49 53 20 46 4f 55 4e 44 20 57 49 54 48 20 52 4f 55 54 49 4e 45 20 47 45 54 42 49 54 00 0c 00 b2 00 3a 00 50 2a 20 ┆R ON DISC 8 P* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT : P* ┆
0x13ae…13fe 20 20 20 20 20 20 20 20 41 4e 44 20 54 48 45 20 54 45 58 54 20 49 53 20 44 49 53 50 4c 41 59 45 44 20 57 49 54 48 20 53 43 52 45 45 4e 50 41 43 4b 41 47 45 00 0c 00 ee 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 53 50 45 52 ┆ AND THE TEXT IS DISPLAYED WITH SCREENPACKAGE P* ENTRY SPER┆
0x13fe…144e 52 20 00 0c 01 2c 00 06 00 50 2a 20 00 0c 01 4a 00 1e 00 50 2a 20 41 4c 54 45 52 45 44 20 50 41 52 41 4d 45 54 45 52 53 3a 20 4e 4f 4e 45 00 0c 01 54 00 06 00 50 2a 20 00 0c 01 76 00 3a 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 ┆R , P* J P* ALTERED PARAMETERS: NONE T P* v : P* ALTERED FIELDS┆
0x144e…149e (13, 0, 398) 3a 20 53 50 42 49 4e 57 34 20 2d 20 4e 4f 2d 44 41 54 41 2f 4e 45 57 2d 56 4f 4c 3a 20 30 2c 20 45 4c 53 45 20 32 00 0c 01 80 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 32 20 2d 20 45 52 52 4f 52 43 ┆: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 * P* GTWBCD2 - ERRORC┆
0x149e…14ee 4f 44 45 20 00 0d 00 2e 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 4e 57 46 4c 47 20 2d 20 46 41 4c 53 45 20 00 0d 00 5c 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 4b 45 59 46 4c 47 ┆ODE . & P* GTNWFLG - FALSE & P* SPKEYFLG┆
0x14ee…153e 20 2d 20 54 52 55 45 20 00 0d 00 86 00 06 00 50 2a 20 00 0d 00 b0 00 06 00 50 2a 20 00 0d 00 ba 00 42 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 2a 2a 2a 2a 2a 2a 2a 2a ┆ - TRUE P* P* B P********************************************┆
0x153e…158e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0d 00 c4 00 20 00 50 45 52 44 4b 20 20 20 20 20 20 50 52 4f 43 20 20 20 20 20 20 44 53 45 54 2c 24 4e 52 00 0d 01 0a 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0d 01 2e 00 24 00 50 ┆***************** PERDK PROC DSET,$NR P PLIT $NR . $ P┆
0x158e…15dc 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 20 47 45 54 42 49 54 2c 44 53 45 54 20 00 0d 01 40 00 26 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d 44 27 34 27 2c 45 52 44 4b 52 45 54 20 4e 4f 20 44 41 54 41 00 0d 01 68 ┆ PERF GETBIT,DSET @ & P CBE GTWBCD1,=D'4',ERDKRET NO DATA h┆
0x15dc…162c (14, 0, 400) 00 26 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d 44 27 38 27 2c 45 52 44 4b 52 45 54 20 4e 45 57 20 56 4f 4c 00 0e 00 04 00 44 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 32 31 ┆ & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL D P MOVE SPBINW4,CBIN21┆
0x162c…167c 20 20 20 20 20 20 20 20 20 50 52 45 50 41 52 45 20 54 45 58 54 20 28 42 49 54 20 4e 52 29 00 0e 00 2e 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 54 57 42 43 44 32 2c 24 4e 52 20 20 20 20 20 20 20 20 20 20 20 ┆ PREPARE TEXT (BIT NR) . : P MOVE GTWBCD2,$NR ┆
0x167c…16cc 20 20 44 41 54 41 53 45 54 20 4e 52 00 0e 00 76 00 34 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 53 54 52 39 2c 3d 43 27 44 49 53 43 46 45 4a 4c 20 27 20 20 20 54 45 58 54 00 0e 00 b4 00 16 00 50 20 54 42 46 ┆ DATASET NR v 4 P MOVE GSWSTR9,=C'DISCFEJL ' TEXT P TBF┆
0x16cc…171c 20 43 50 46 4c 47 2c 45 52 44 4b 31 30 20 00 0e 00 ec 00 2e 00 50 20 43 4c 45 41 52 20 53 50 4b 45 59 46 4c 47 20 4e 4f 20 4b 4f 52 2d 4b 45 59 20 49 46 20 44 49 53 4b 20 41 43 43 45 53 53 20 00 0e 01 06 00 0a 00 50 45 52 44 4b 31 30 00 0e ┆ CPFLG,ERDK10 . P CLEAR SPKEYFLG NO KOR-KEY IF DISK ACCESS PERDK10 ┆
0x171c…176c 01 38 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 20 53 50 45 52 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4c 41 59 20 54 45 58 54 00 0e 01 46 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 ┆ 8 < P PERF SPERR DISPLAY TEXT F P SET SPKEY┆
0x176c…17bc (15, 0, 400) 46 4c 47 20 00 0e 01 86 00 10 00 50 20 53 45 54 20 47 54 4e 57 46 4c 47 00 0f 00 0c 00 18 00 50 20 50 45 52 46 20 57 52 49 54 4a 54 2c 3d 57 27 31 34 27 20 00 0f 00 20 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 00 0f 00 3c 00 18 ┆FLG P SET GTNWFLG P PERF WRITJT,=W'14' P CLEAR GTNWFLG < ┆
0x17bc…180c 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 32 31 00 0f 00 52 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 00 0f 00 6e 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0f 00 80 00 28 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 43 42 ┆ P MOVE SPBINW4,CBIN21 R P B ERDKEND n PERDKRET ( P MOVE SPBINW4,CB┆
0x180c…185c 49 4e 30 20 5c 50 52 45 50 41 52 45 20 46 4f 52 20 4f 4b 20 00 0f 00 90 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0f 00 bc 00 20 00 50 20 43 4d 50 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 5c 20 53 45 54 20 43 52 20 00 0f 00 cc 00 12 00 50 ┆IN0 PREPARE FOR OK PERDKEND P CMP SPBINW4,CBIN0 SET CR P┆
0x185c…18ac 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0f 00 f0 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0f 01 06 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0f 01 1c 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RET P PEND P EJECT > P************┆
0x18ac…18fc 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0f 01 34 00 06 00 50 2a 20 00 0f 01 76 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 ┆********************************************** 4 P* v P* GETBIT┆
0x18fc…194c (16, 0, 400) 00 0f 01 80 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 10 00 08 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 47 45 54 42 49 54 2c 3c 44 41 54 41 53 45 54 3e 20 00 10 00 1a 00 38 00 50 2a 20 20 20 20 54 48 49 53 20 52 4f 55 54 ┆ P* CALL: $ P* PERF GETBIT,<DATASET> 8 P* THIS ROUT┆
0x194c…199c 49 4e 45 20 20 46 49 4e 44 53 20 54 48 45 20 42 49 54 20 20 20 20 49 4e 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 00 10 00 42 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 10 00 7e 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 ┆INE FINDS THE BIT IN THE EXTENDED B P* STATUSWORD ~ P* RETUR┆
0x199c…19ec 4e 3a 00 10 00 96 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 54 48 45 20 42 49 54 4e 52 20 49 4e 20 20 20 20 47 54 57 42 43 44 31 20 20 55 4e 44 45 46 49 4e 45 44 20 47 54 57 42 43 44 31 3d 31 20 00 10 00 aa 00 06 00 50 2a 20 00 10 00 ea ┆N: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P* ┆
0x19ec…1a3c 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 10 00 f4 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 31 20 2d 20 45 58 54 45 4e 44 45 44 20 53 54 41 54 55 53 57 4f 52 44 20 00 10 01 0e ┆ P* ALTERED FIELDS: 2 P* GSWBIN1 - EXTENDED STATUSWORD ┆
0x1a3c…1a8c 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 31 20 2d 20 31 20 00 10 01 44 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 49 4e 32 20 00 10 01 68 00 1c 00 50 2a 20 20 20 20 20 20 20 ┆ P* GTWBCD1 - 1 D P* GSWBIN2 h P* ┆
0x1a8c…1adc (17, 0, 400) 20 20 20 20 20 20 20 20 47 53 57 42 43 44 32 20 00 10 01 88 00 06 00 50 2a 20 00 11 00 18 00 30 00 50 2a 20 43 52 3a 20 53 54 41 54 55 53 2d 46 4f 55 4e 44 20 2d 20 42 4e 47 2c 20 4e 4f 2d 42 49 54 2d 46 4f 55 4e 44 3a 20 42 4e 47 20 00 11 ┆ GSWBCD2 P* 0 P* CR: STATUS-FOUND - BNG, NO-BIT-FOUND: BNG ┆
0x1adc…1b2c 00 22 00 06 00 50 2a 20 00 11 00 56 00 3e 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 11 00 60 00 18 ┆ " P* V > P********************************************************** ` ┆
0x1b2c…1b7c 00 50 47 45 54 42 49 54 20 20 20 20 50 52 4f 43 20 44 53 45 54 20 00 11 00 a2 00 36 00 50 20 20 20 20 20 20 20 20 20 20 58 53 54 41 54 20 20 20 20 20 44 53 45 54 2c 47 53 57 42 49 4e 31 20 20 20 20 20 20 20 20 47 45 54 20 53 54 41 54 55 53 ┆ PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET STATUS┆
0x1b7c…1bcc 00 11 00 be 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 54 57 42 43 44 31 2c 3d 44 27 31 35 27 20 20 20 20 20 20 42 49 54 20 4e 52 20 49 4e 20 42 43 44 20 00 11 00 f8 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 ┆ : P MOVE GTWBCD1,=D'15' BIT NR IN BCD : P ┆
0x1bcc…1c1c 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 49 4e 32 2c 43 42 49 4e 31 20 20 20 20 20 20 20 42 49 54 20 4e 52 20 49 4e 20 42 49 4e 20 00 11 01 36 00 3e 00 50 47 45 54 31 30 20 20 20 20 20 43 41 4c 4c 20 20 20 20 20 20 4d 41 53 4b 2c 47 53 57 ┆MOVE GSWBIN2,CBIN1 BIT NR IN BIN 6 > PGET10 CALL MASK,GSW┆
0x1c1c…1c6c (18, 0, 400) 42 49 4e 31 2c 47 53 57 42 49 4e 32 20 20 41 4e 44 20 57 49 54 48 20 53 54 41 54 55 53 20 00 11 01 74 00 34 00 50 20 20 20 20 20 20 20 20 20 20 42 4e 5a 20 20 20 20 20 20 20 47 45 54 52 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BIN1,GSWBIN2 AND WITH STATUS t 4 P BNZ GETRET ┆
0x1c6c…1cbc 46 4f 55 4e 44 20 00 12 00 26 00 28 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 43 44 32 2c 47 53 57 42 49 4e 32 20 00 12 00 5e 00 36 00 50 20 20 20 20 20 20 20 20 20 20 4d 55 4c 20 20 20 20 20 20 20 47 53 ┆FOUND & ( P MOVE GSWBCD2,GSWBIN2 ^ 6 P MUL GS┆
0x1cbc…1d0c 57 42 43 44 32 2c 3d 44 27 32 27 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 42 49 54 00 12 00 8a 00 36 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 49 4e 32 2c 47 53 57 42 43 44 32 20 20 20 20 20 20 20 43 4f ┆WBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 CO┆
0x1d0c…1d5c 4e 56 45 52 54 20 00 12 00 c4 00 3e 00 50 20 20 20 20 20 20 20 20 20 20 53 55 42 20 20 20 20 20 20 20 47 54 57 42 43 44 31 2c 3d 44 27 31 27 20 20 20 20 20 20 20 20 20 55 50 44 41 54 45 20 42 43 44 20 42 49 54 4e 52 00 12 00 fe 00 3a 00 50 ┆NVERT > P SUB GTWBCD1,=D'1' UPDATE BCD BITNR : P┆
0x1d5c…1dac 20 20 20 20 20 20 20 20 20 20 43 42 47 20 20 20 20 20 20 20 47 54 57 42 43 44 31 2c 3d 44 27 31 27 2c 47 45 54 31 30 20 20 20 4e 4f 20 42 49 54 20 46 4f 55 4e 44 00 12 01 40 00 0a 00 50 47 45 54 52 45 54 00 12 01 7e 00 12 00 50 20 20 20 20 ┆ CBG GTWBCD1,=D'1',GET10 NO BIT FOUND @ PGETRET ~ P ┆
0x1dac…1db0 (19, 0, 400) 20 20 20 20 ┆ ┆
0x1db0…1e00 20 20 52 45 54 20 00 12 01 8c 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 13 00 12 00 0a 00 50 5c 45 4a 45 43 54 00 13 00 28 00 3e 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 ┆ RET P PEND P EJECT ( > P******************************┆
0x1e00…1e50 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 13 00 36 00 06 00 50 2a 20 00 13 00 78 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 52 41 4e 44 4f 4d 20 20 57 52 49 54 45 20 00 13 00 82 00 0e 00 50 2a 20 ┆**************************** 6 P* x P* RANDOM WRITE P* ┆
0x1e50…1ea0 20 20 20 43 41 4c 4c 3a 00 13 00 a2 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 52 41 57 52 49 54 2c 3c 44 41 54 41 53 45 54 3e 2c 3c 53 45 54 4e 52 3e 2c 3c 42 55 46 46 45 52 3e 2c 3c 52 45 43 4e 52 3e 20 00 13 00 b4 00 06 ┆ CALL: > P* PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<RECNR> ┆
0x1ea0…1eb8 00 50 2a 20 00 13 00 f6 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 57 52 ┆ P* > P* WR┆
0x1eb8…4d08 […elided…]
0x4d08…4d30 43 44 35 20 43 4f 4e 56 45 52 54 20 00 31 00 74 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 00 31 ┆CD5 CONVERT 1 t P CMP GSWBIN3,CBIN2 1┆
0x4d30…4d80 00 9a 00 14 00 50 5c 42 45 20 52 47 52 32 31 30 5c 44 41 54 45 20 00 31 00 b4 00 1e 00 50 20 43 42 4c 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 34 2c 52 47 52 30 33 30 20 00 31 00 cc 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 ┆ P BE RGR210 DATE 1 P CBL GSWBIN3,CBIN4,RGR030 1 P CMP GSWBIN3,CBI┆
0x4d80…4dd0 4e 34 00 31 00 ee 00 0e 00 50 5c 42 45 20 52 47 52 32 30 30 00 31 01 08 00 2e 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 31 33 2c 52 47 52 30 33 36 20 41 52 4b 49 56 2e 4b 4e 54 2e 4e 4f 2e 20 00 31 01 1a 00 24 00 50 20 54 ┆N4 1 P BE RGR200 1 . P CBNE GSWBIN3,CBIN13,RGR036 ARKIV.KNT.NO. 1 $ P T┆
0x4dd0…4e12 42 54 20 43 57 46 4c 41 47 2c 52 47 52 30 33 30 20 4e 4f 54 20 4b 4f 4c 44 53 54 41 52 54 00 31 01 4c 00 0a 00 50 52 47 52 30 33 36 00 31 01 74 00 22 00 50 5c 5c 5c 55 50 44 41 54 45 20 47 54 44 55 ┆BT CWFLAG,RGR030 NOT KOLDSTART 1 L PRGR036 1 t " P UPDATE GTDU┆
0x4e12…4e62 (50, 0, 400) 50 46 2c 47 54 52 45 47 46 2c 47 54 55 53 45 44 00 31 01 82 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 43 46 4c 54 44 45 58 28 47 53 57 42 49 4e 33 29 20 47 53 57 42 49 4e 33 3d 46 49 45 4c 44 4e 52 00 32 00 18 00 22 00 50 20 4d ┆PF,GTREGF,GTUSED 1 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR 2 " P M┆
0x4e62…4eb2 4f 56 45 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 47 53 57 42 49 4e 33 20 00 32 00 4e 00 22 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 47 53 57 53 54 52 32 30 00 32 00 74 00 22 00 50 20 4d 4f 56 45 20 ┆OVE GTUSED(GSWBIN4),GSWBIN3 2 N " P MOVE GTDUPF(GSWBIN4),GSWSTR20 2 t " P MOVE ┆
0x4eb2…4f02 47 54 52 45 47 46 28 47 53 57 42 49 4e 34 29 2c 47 53 57 53 54 52 32 30 00 32 00 9a 00 28 00 50 20 43 42 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 39 2c 52 47 52 30 36 30 20 44 2f 4b 20 4d 41 52 4b 3f 20 00 32 00 c0 00 1a 00 50 5c 5c 5c 43 ┆GTREGF(GSWBIN4),GSWSTR20 2 ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? 2 P C┆
0x4f02…4f52 48 45 43 4b 20 49 46 20 57 49 54 48 20 53 49 47 4e 20 00 32 00 ec 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 32 01 0a 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 2d 27 20 00 32 01 26 00 36 ┆HECK IF WITH SIGN 2 P MOVE GSWBIN3,CBIN0 2 P MOVE GSWSTR2,=C'-' 2 & 6┆
0x4f52…4fa2 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 32 01 42 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 32 01 7c 00 20 00 50 ┆ P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 2 B P BNE RGR040 2 | P┆
0x4fa2…4ff2 (51, 0, 400) 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 32 01 90 00 20 00 50 20 4d 55 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 33 00 24 00 20 00 50 20 4d 55 4c 20 47 54 52 ┆ MUL GTUSED(GSWBIN4),=W'-1' 2 P MUL GTDUPF(GSWBIN4),=D'-1' 3 $ P MUL GTR┆
0x4ff2…5042 45 47 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 33 00 48 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 00 6c 00 0a 00 50 52 47 52 30 34 30 00 33 00 7e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 ┆EGF(GSWBIN4),=D'-1' 3 H P B RGR030 3 l PRGR040 3 ~ P MOVE GSWBIN3,CBIN0 ┆
0x5042…5092 00 33 00 8c 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 43 42 4c 41 4e 4b 53 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 33 00 a8 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 33 ┆ 3 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 3 P BNE RGR030 3┆
0x5092…50e2 00 e2 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 33 00 f6 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 01 1a 00 1a 00 50 52 47 52 30 36 30 5c 5c 5c 53 45 54 20 44 2f 4b 20 49 4e 46 ┆ P MUL GTUSED(GSWBIN4),=W'-1' 3 P B RGR030 3 PRGR060 SET D/K INF┆
0x50e2…5132 4f 20 00 33 01 2c 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 20 00 33 01 4a 00 20 00 50 20 50 45 52 46 49 20 47 53 57 42 49 4e 33 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 33 01 70 ┆O 3 , " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 3 J P PERFI GSWBIN3,SETKRE,SETDEB 3 p┆
0x5132…5182 (52, 0, 398) 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 00 04 00 0a 00 50 52 47 52 31 30 30 00 34 00 16 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 34 00 24 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 ┆ P B RGR030 4 PRGR100 4 P END OF RECORD 4 $ P MOVE GSWSTR2,=X'7F'┆
0x5182…51d2 00 34 00 3c 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 52 45 53 54 4f 52 45 20 00 34 00 58 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 35 2c 47 53 57 ┆ 4 < " P MOVE GSWBIN6,GSWBIN4 RESTORE 4 X 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSW┆
0x51d2…5222 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 34 00 7e 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 34 00 b8 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 00 34 00 cc 00 0e 00 50 20 42 20 52 47 52 30 33 35 20 00 34 00 e0 00 0a ┆STR2,CBIN0,CBIN1 4 ~ P BNE RGR110 4 P SET CEORFLG 4 P B RGR035 4 ┆
0x5222…5272 00 50 52 47 52 31 31 30 00 34 00 f2 00 26 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 32 31 27 20 43 4f 4e 54 2e 20 52 45 43 4f 52 44 20 00 34 01 00 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 ┆ PRGR110 4 & P MOVE GSWSTR2,=X'21' CONT. RECORD 4 P MOVE GSWBIN6,GSWBIN4 ┆
0x5272…52c0 00 34 01 2a 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 35 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 34 01 48 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 ┆ 4 * 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 4 H P BNE RGRRET2┆
0x52c0…5310 (53, 0, 400) 00 34 01 82 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 34 00 35 00 08 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 43 50 43 4b 42 55 46 00 35 00 2c 00 16 00 50 20 41 44 44 20 43 ┆ 4 P DLETE CPCKBUF,CBIN0,GSWBIN4 5 P MOVE GSWSTR20,CPCKBUF 5 , P ADD C┆
0x5310…5360 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 35 00 4a 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 35 00 64 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c 43 42 49 4e 31 20 4b 4f 4c 44 53 54 41 52 54 20 00 35 00 7e 00 0a ┆TWBIN1,CBIN1 5 J P TBT CWFLAG,RGR113 5 d P ADD CRECNR,CBIN1 KOLDSTART 5 ~ ┆
0x5360…53b0 00 50 52 47 52 31 31 33 00 35 00 a2 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 35 00 b0 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 35 00 ca 00 32 00 50 20 50 45 52 46 20 52 41 ┆ PRGR113 5 P ADD GSWBCD2,=D'1' 5 P MOVE GSWBIN1,=W'128' 5 2 P PERF RA┆
0x53b0…5400 52 45 41 44 2c 44 53 45 54 2c 24 44 4e 52 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 31 2c 43 54 57 42 49 4e 31 00 35 00 e8 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 35 01 1e 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 ┆READ,DSET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 5 P BNOK RGRRET2 5 P DELETE HE┆
0x5400…5450 41 44 45 52 00 35 01 34 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 31 31 20 00 35 01 4c 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 30 20 49 4e 53 45 52 54 20 53 41 56 45 44 ┆ADER 5 4 P DLETE CPCKBUF,CBIN0,CBIN11 5 L * P MOVE GSWBIN6,CBIN0 INSERT SAVED┆
0x5450…54a0 (54, 0, 400) 20 49 4e 46 4f 20 00 35 01 70 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 43 42 4c 41 4e 4b 53 20 00 36 00 0e 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d 57 27 31 32 38 27 2c 52 47 52 31 31 35 20 00 36 00 2c 00 18 00 50 ┆ INFO 5 p P MOVE GSWSTR2,CBLANKS 6 P CBE CRECLGD,=W'128',RGR115 6 , P┆
0x54a0…54f0 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 30 30 27 00 36 00 50 00 0a 00 50 52 47 52 31 31 35 00 36 00 6c 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 39 2c 47 53 57 53 54 52 32 ┆ MOVE GSWSTR2,=X'00' 6 P PRGR115 6 l 6 P MATCH GSWSTR20,GSWBIN6,CBIN19,GSWSTR2┆
0x54f0…5540 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 36 00 7a 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 36 00 b4 00 30 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 36 2c 47 53 57 53 54 ┆,CBIN0,CBIN1 6 z P SUB GSWBIN6,CBIN1 6 0 P INSRT CPCKBUF,CBIN0,GSWBIN6,GSWST┆
0x5540…5590 52 32 30 2c 43 42 49 4e 30 20 00 36 00 ce 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 30 20 00 36 01 02 00 2a 00 50 20 41 44 44 20 47 53 57 42 43 44 33 2c 3d 44 27 31 27 20 55 50 44 41 54 45 20 4c 4f 47 2e 20 52 45 43 ┆R20,CBIN0 6 P MOVE GSWBIN6,CBIN0 6 * P ADD GSWBCD3,=D'1' UPDATE LOG. REC┆
0x5590…55e0 2e 20 4e 4f 00 36 01 1e 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 36 01 4c 00 0a 00 50 52 47 52 32 30 30 00 36 01 5e 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 42 4e 52 2c 47 53 57 53 54 52 32 30 20 00 36 01 6c 00 16 00 50 20 54 42 54 20 43 ┆. NO 6 P B RGR032 6 L PRGR200 6 ^ P MOVE GTLBNR,GSWSTR20 6 l P TBT C┆
0x55e0…5630 (55, 0, 400) 57 46 4c 41 47 2c 52 47 52 32 30 35 00 36 01 8a 00 24 00 50 20 4d 4f 56 45 20 54 54 4c 42 4e 52 2c 47 54 4c 42 4e 52 20 49 4e 20 4b 4f 4c 44 53 54 41 52 54 00 37 00 14 00 0a 00 50 52 47 52 32 30 35 00 37 00 3c 00 0e 00 50 20 42 20 52 47 52 ┆WFLAG,RGR205 6 $ P MOVE TTLBNR,GTLBNR IN KOLDSTART 7 PRGR205 7 < P B RGR┆
0x5630…5680 30 33 30 20 00 37 00 4a 00 0a 00 50 52 47 52 32 31 30 00 37 00 5c 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 00 37 00 6a 00 26 00 50 20 4d 4f 56 45 20 47 54 44 41 54 4f 2c 47 53 57 53 54 52 32 30 20 49 46 20 43 4f 4c ┆030 7 J PRGR210 7 P TBT CWFLAG,RGR220 7 j & P MOVE GTDATO,GSWSTR20 IF COL┆
0x5680…56d0 44 53 54 41 52 54 00 37 00 84 00 0a 00 50 52 47 52 32 32 30 00 37 00 ae 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 37 00 bc 00 0c 00 50 52 47 52 52 45 54 32 20 00 37 00 ce 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b ┆DSTART 7 PRGR220 7 P B RGR030 7 PRGRRET2 7 P CLEAR CPFLG DISK┆
0x56d0…5720 20 46 52 45 45 20 00 37 00 de 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 37 00 fe 00 22 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 20 43 52 3d 32 2c 20 4e 4f 54 20 4f 4b 20 00 37 01 16 00 08 00 50 20 52 45 54 ┆ FREE 7 P CLEAR GTSWFLAG 7 " P CMP CBIN0,CBIN1 CR=2, NOT OK 7 P RET┆
0x5720…5770 00 37 01 3c 00 0c 00 50 52 47 52 52 45 54 31 20 00 37 01 48 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 52 45 45 20 00 37 01 58 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 37 01 78 00 20 00 50 20 43 ┆ 7 < PRGRRET1 7 H P CLEAR CPFLG DISK FREE 7 X P SET GTSWFLAG 7 x P C┆
0x5770…57c0 (56, 2, 224) 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 43 52 3d 31 2c 20 54 52 3d 31 31 00 37 01 8e 00 08 00 50 20 52 45 54 00 38 00 22 00 0a 00 50 52 47 52 52 45 54 00 38 00 2e 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 ┆MP CBIN1,CBIN0 CR=1, TR=11 7 P RET 8 " PRGRRET 8 . P CLEAR CPFLG DISK F┆
0x57c0…5810 52 45 45 20 00 38 00 3c 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 38 00 5c 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 38 00 72 00 1e 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 43 52 3d 30 2c ┆REE 8 < P SET TTEORFLG 8 P CLEAR GTSWFLAG 8 r P CMP CBIN0,CBIN0 CR=0,┆
0x5810…5850 20 4f 4b 20 00 38 00 8a 00 08 00 50 20 52 45 54 00 38 00 ac 00 0a 00 50 20 50 45 4e 44 20 00 38 00 b8 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 38 00 c6 40 04 00 00 00 38 00 dc ┆ OK 8 P RET 8 P PEND 8 P END 8 @ 8 ┆
0x5850…5858 (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x5858…58a8 (58, 0, 400) 00 01 01 86 00 0c 00 08 00 03 06 06 00 49 01 69 00 02 00 08 00 0c 00 08 00 03 06 06 00 4d 02 35 00 02 00 18 00 0c 00 08 00 03 07 06 00 4f 00 0c 00 02 00 28 00 0e 00 0a 00 04 11 08 00 50 20 02 07 ff 00 02 00 38 00 0c 00 08 00 03 07 06 00 52 ┆ I i M 5 O ( P 8 R┆
0x58a8…58f8 00 0e 00 02 00 4a 00 0e 00 0a 00 04 11 08 00 53 20 02 00 02 00 02 00 5a 00 0c 00 08 00 03 06 06 00 57 02 50 00 02 00 6c 00 0e 00 09 00 04 14 07 00 5a 00 01 00 02 00 02 00 7c 00 0c 00 08 00 03 07 06 00 60 00 0c 00 02 00 8e 00 0e 00 0a 00 04 ┆ J S Z W P l Z | ` ┆
0x58f8…5948 11 08 00 61 20 02 07 ff 00 02 00 9e 00 0c 00 08 00 03 03 06 00 63 00 02 00 02 00 b0 00 0e 00 0a 00 04 10 08 00 69 20 02 00 32 00 02 00 c0 00 0c 00 09 00 04 14 07 00 6c 00 01 00 02 00 d2 00 0c 00 08 00 03 08 06 00 6f 00 04 00 02 00 e2 00 0c ┆ a c i 2 l o ┆
0x5948…5998 00 08 00 03 06 06 00 7e 02 70 00 02 00 f2 00 4a 00 46 00 22 00 44 00 40 80 52 54 12 80 52 5c 08 80 52 58 0f 80 52 80 52 4c 80 52 4c 5f 16 80 52 01 3e 4c 40 28 41 94 80 52 4c 3f 52 00 80 15 01 81 4c 01 3e 4c 61 3e 46 68 3e 80 81 4c 10 12 00 ┆ ~ p J F " D @ RT R RX R RL RL_ R >L@(A RL?R L >La>Fh> L ┆
0x5998…59e8 81 80 49 13 15 80 52 54 00 02 01 02 00 0c 00 08 00 03 06 06 00 82 02 d4 00 02 01 50 00 14 00 0f 00 07 14 0d 00 85 00 07 44 46 48 33 35 30 34 52 00 02 01 60 00 0c 00 08 00 03 05 06 00 93 00 26 00 02 01 78 00 0c 00 08 00 03 08 06 00 95 00 0a ┆ I RT P DFH3504R ` & x ┆
0x59e8…5a38 (59, 0, 400) 00 02 01 88 00 0e 00 0a 00 04 14 08 00 a0 30 02 b0 60 00 03 00 08 00 14 00 11 00 08 14 0f 00 a3 00 09 54 52 41 4e 53 4d 49 54 00 03 00 1a 00 0e 00 0a 00 04 14 08 00 a6 30 02 b0 16 00 03 00 32 00 0c 00 08 00 03 07 06 00 a8 00 1a 00 03 00 44 ┆ 0 ` TRANSMIT 0 2 D┆
0x5a38…5a88 00 0c 00 08 00 03 07 06 00 aa 00 2c 00 03 00 54 00 0e 00 0a 00 04 11 08 00 ab 20 02 00 0e 00 03 00 64 00 0c 00 08 00 03 07 06 00 b2 00 08 00 03 00 76 00 0e 00 09 00 04 14 07 00 b9 30 01 b1 0e 00 03 00 86 00 0c 00 08 00 03 07 06 00 bb 00 0e ┆ , T d v 0 ┆
0x5a88…5ad8 00 03 00 98 00 0e 00 0a 00 04 11 08 00 bc 20 02 00 40 00 03 00 a8 00 0c 00 08 00 03 07 06 00 be 00 0e 00 03 00 ba 00 0e 00 0a 00 04 11 08 00 bf 20 02 00 20 00 03 00 ca 00 4a 00 46 00 22 00 44 00 80 1a 80 52 01 af 4c 00 80 10 68 3e 80 81 af ┆ @ J F " D R L h> ┆
0x5ad8…5b28 10 17 54 09 31 58 95 46 06 10 10 34 00 00 93 29 01 8e 4c 01 ae 4c 01 8d 4c 80 52 80 52 4c 06 10 11 34 00 80 52 12 00 43 11 01 45 4c 80 52 4c 80 52 4c 00 03 00 dc 00 0c 00 08 00 03 07 06 00 c1 00 0e 00 03 01 2a 00 0e 00 0a 00 04 11 08 00 c2 ┆ T 1X F 4 ) L L L R RL 4 R C EL RL RL * ┆
0x5b28…5b78 20 02 00 10 00 03 01 3a 00 0c 00 08 00 03 07 06 00 c4 00 16 00 03 01 4c 00 0c 00 08 00 03 07 06 00 d5 00 0c 00 03 01 5c 00 0e 00 0a 00 04 11 08 00 d6 20 02 07 ff 00 03 01 6c 00 0c 00 08 00 03 07 06 00 d8 00 0e 00 03 01 7e 00 0e 00 0a 00 04 ┆ : L l ~ ┆
0x5b78…5bc8 (60, 0, 400) 11 08 00 d9 20 02 00 02 00 03 01 8e 00 0c 00 08 00 03 05 06 00 dd 00 1c 00 04 00 10 00 0c 00 08 00 03 08 06 00 de 00 00 00 04 00 20 00 0c 00 08 00 03 07 06 00 e0 00 18 00 04 00 30 00 0c 00 08 00 03 06 06 00 ea 00 64 00 04 00 40 00 0c 00 08 ┆ 0 d @ ┆
0x5bc8…5c18 00 03 07 06 00 ee 00 0c 00 04 00 50 00 0c 00 08 00 03 07 06 00 f2 00 0c 00 04 00 60 00 0e 00 0a 00 04 11 08 00 f3 20 02 07 ff 00 04 00 70 00 0c 00 08 00 03 07 06 00 f5 00 04 00 04 00 82 00 0c 00 08 00 03 07 06 00 fa 00 0e 00 04 00 92 00 0e ┆ P ` p ┆
0x5c18…5c68 00 0a 00 04 11 08 00 fb 20 02 00 02 00 04 00 a2 00 0c 00 08 00 03 07 06 00 ff 00 0e 00 04 00 b4 00 0e 00 0a 00 04 11 08 01 00 20 02 00 40 00 04 00 c4 00 4a 00 46 00 22 00 44 00 c0 80 52 4c 80 52 36 81 0a 02 00 00 3e 34 1f 00 00 00 00 5f 11 ┆ @ J F " D RL R6 >4 _ ┆
0x5c68…5cb8 80 52 4c 80 52 4c 41 90 31 58 46 80 52 36 91 03 00 00 02 5f 38 80 52 5c 3c 80 52 5f 40 80 52 4c 80 52 12 50 05 80 52 4c 5f 4d 80 52 00 04 00 d6 00 0c 00 08 00 03 07 06 01 07 00 0c 00 04 01 24 00 0e 00 0a 00 04 11 08 01 08 20 02 07 ff 00 04 ┆ RL RLA 1XF R6 _8 R < R_@ RL R P RL_M R $ ┆
0x5cb8…5d08 01 34 00 0c 00 08 00 03 07 06 01 0a 00 06 00 04 01 46 00 0e 00 0a 00 04 11 08 01 0b 20 02 00 01 00 04 01 56 00 0c 00 08 00 03 07 06 01 11 00 0c 00 04 01 68 00 0e 00 0a 00 04 11 08 01 12 20 02 07 ff 00 04 01 78 00 0c 00 08 00 03 07 06 01 14 ┆ 4 F V h x ┆