|
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: 23920 (0x5d70)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/DKSUBS.SC«
IDENT DKSUBS 03.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
*
ASSG10
MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME
*
MOVE GSWBCD3,ASVOL
CBE GSWBCD3,=D'0',ASSGRET
MOVE GTWBCD1,ASVOL GET VOLUME NAME
MOVE GTWBCD2,DNR GET DATASET NUMBER
EDIT ASFNAME,FDFMT SET UP FILENAME
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
*
*
FDFMT FRMT SET UP FILENAME
FCOPY =C'FD'
FMEL '999PPP',GTWBCD1 VOLUME PART
FMEL '999',GTWBCD2 DATASET NUMBER
FMEND
*
*
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 03.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…0914 Head {h00=0x000a, h01=0x0050, text=»ASSG10«, t00=0x0005, t01=0x013a}
0x0914…0946 Head {h00=0x002e, h01=0x0050, text=» MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME«, t00=0x0005, t01=0x0148}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x0950…096c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,ASVOL «, t00=0x0005, t01=0x0184}
0x096c…098e Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGRET«, t00=0x0006, t01=0x0010}
0x098e…09ba Head {h00=0x0028, h01=0x0050, text=» MOVE GTWBCD1,ASVOL GET VOLUME NAME «, t00=0x0006, t01=0x0032}
0x09ba…09e6 Head {h00=0x0028, h01=0x0050, text=» MOVE GTWBCD2,DNR GET DATASET NUMBER«, t00=0x0006, t01=0x005e}
0x09e6…0a12 Head {h00=0x0028, h01=0x0050, text=» EDIT ASFNAME,FDFMT SET UP FILENAME «, t00=0x0006, t01=0x008a}
0x0a12…0a34 Head {h00=0x001e, h01=0x0050, text=» DSC0 DK,CLOSE CLOSE FIRST«, t00=0x0006, t01=0x00b6}
0x0a34…0a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a68 Head {h00=0x0026, h01=0x0050, text=» ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL«, t00=0x0006, t01=0x00e2}
0x0a68…0a8c Head {h00=0x0020, h01=0x0050, text=» BOK ASSGRET IF OK, RETURN«, t00=0x0006, t01=0x010c}
0x0a8c…0aaa Head {h00=0x001a, h01=0x0050, text=»*-* ADD GSWBIN1,CBIN1 «, t00=0x0006, t01=0x0130}
0x0aaa…0ad0 Head {h00=0x0022, h01=0x0050, text=»*-* CBG GSWBIN1,CBIN4,ASSGERR «, t00=0x0006, t01=0x014e}
0x0ad0…0aee Head {h00=0x001a, h01=0x0050, text=»*-* MOVE ASVOL,=X'00' «, t00=0x0006, t01=0x0174}
0x0aee…0b2c (7, 0, 400) Head {h00=0x003a, h01=0x0050, text=»*-* CBNE CVOL(GSWBIN1),ASVOL,ASSG10 TRY ON NEW VOLUME «, t00=0x0007, t01=0x0004}
0x0b2c…0b3c Head {h00=0x000c, h01=0x0050, text=»ASSGERR «, t00=0x0007, t01=0x0042}
0x0b3c…0b7e Head {h00=0x003e, h01=0x0050, text=»* ASSIGNMENT IMPOSSIBLE«, t00=0x0007, t01=0x0052}
0x0b7e…0bb2 Head {h00=0x0030, h01=0x0050, text=» MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)«, t00=0x0007, t01=0x0094}
0x0bb2…0bce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0007, t01=0x00c8}
0x0bce…0be8 Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0007, t01=0x00e4}
0x0be8…0c0a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'ASSIGN ' «, t00=0x0007, t01=0x00fe}
0x0c0a…0c2e Head {h00=0x0020, h01=0x0050, text=» PERF SPERR 'ASSIGN ERROR' «, t00=0x0007, t01=0x0120}
0x0c2e…0c46 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x0144}
0x0c46…0c52 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x015c}
0x0c52…0c62 Head {h00=0x000c, h01=0x0050, text=»ASSGRET «, t00=0x0007, t01=0x0168}
0x0c62…0c7a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x0178}
0x0c7a…0c86 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0190}
0x0c86…0c94 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x000c}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0ca8…0ccc Head {h00=0x0020, h01=0x0050, text=»FDFMT FRMT SET UP FILENAME «, t00=0x0008, t01=0x002e}
0x0ccc…0ce2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'FD' «, t00=0x0008, t01=0x0052}
0x0ce2…0d0c Head {h00=0x0026, h01=0x0050, text=» FMEL '999PPP',GTWBCD1 VOLUME PART«, t00=0x0008, t01=0x0068}
0x0d0c…0d36 Head {h00=0x0026, h01=0x0050, text=» FMEL '999',GTWBCD2 DATASET NUMBER«, t00=0x0008, t01=0x0092}
0x0d36…0d44 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0008, t01=0x00bc}
0x0d44…0d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d58…0d66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00de}
0x0d66…0da0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0008, t01=0x00ec}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x0daa…0dd8 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0008, t01=0x0130}
0x0dd8…0e26 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0008, t01=0x015e}
0x0e26…0e3a Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0009, t01=0x001c}
0x0e3a…0e6e Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0009, t01=0x0030}
0x0e6e…0e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e78…0ea6 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0009, t01=0x006e}
0x0ea6…0ee4 Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0009, t01=0x009c}
0x0ee4…0eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0eee…0f3a Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0009, t01=0x00e4}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f44…0f86 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0009, t01=0x013a}
0x0f86…0f8a Head {h00=0x0054, h01=0x0050}
0x0f8a…0f8e Head {h00=0x2a20, h01=0x2020}
0x0f8e…0f9e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f9e…0fee (10, 0, 400) 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 54 49 4e 45 00 09 01 7c 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ SPBINW4 - OK - 0 NOK - ALTERED BY DISERRORROUTINE | & P* ┆
0x0fee…103e 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 31 20 2d 20 30 00 0a 00 44 00 06 00 50 2a 20 00 0a 00 6e 00 38 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 ┆ GTWBCD1 - 0 D P* n 8 P****************************************┆
0x103e…108e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 00 78 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 45 4e 47 2c 52 45 43 4e 52 20 00 0a 00 b4 00 0e 00 50 20 50 4c 49 54 20 24 4e ┆************ x 0 PRAREAD PROC DSET,$NR,BUF,LENG,RECNR P PLIT $N┆
0x108e…10de 52 20 00 0a 00 e8 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 45 54 20 4c 45 4e 47 54 48 20 00 0a 00 fa 00 38 00 50 20 20 20 20 20 20 20 20 ┆R : P MOVE GSWBIN1,LENG GET LENGTH 8 P ┆
0x10de…112e 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 01 38 00 18 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 3d 44 27 30 27 20 00 0a 01 74 00 3c 00 50 ┆ MOVE SPBINW4,CBIN0 ZEROISE 8 P MOVE GTWBCD1,=D'0' t < P┆
0x112e…117e (11, 0, 400) 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 44 20 00 0a 01 90 00 34 00 50 20 20 20 20 20 20 20 20 20 20 42 45 4f 46 20 20 ┆ RREAD DSET,BUF,GSWBIN1,RECNR READ RECORD 4 P BEOF ┆
0x117e…11ce 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 0b 00 40 00 1e 00 50 20 20 20 20 20 20 20 20 20 20 42 4f 4b 20 20 20 20 20 20 20 52 41 52 31 30 20 00 0b 00 78 00 32 00 50 20 20 20 20 20 20 ┆ RAR10 OK ? @ P BOK RAR10 x 2 P ┆
0x11ce…121e 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 0b 00 9a 00 0a 00 50 52 41 52 31 30 20 00 0b 00 d0 00 26 00 50 20 20 20 20 20 20 20 20 20 20 54 42 54 20 20 20 20 20 ┆ PERF ERDK,DSET,$NR NO PRAR10 & P TBT ┆
0x121e…126e 20 20 47 54 45 58 46 4c 41 47 2c 52 41 52 32 30 00 0b 00 de 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 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 ┆ GTEXFLAG,RAR20 D P DSC0 DSET,RACCS RELEASE EXCL┆
0x126e…12be 2e 20 41 43 43 45 53 20 00 0b 01 08 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 01 50 00 38 00 50 20 20 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 ┆. ACCES PRAR20 CLEAR GTEXFLAG P 8 P CMP CBIN0,SP┆
0x12be…130e (12, 0, 400) 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 01 74 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0c 00 20 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0c 00 36 00 14 00 50 20 20 20 20 ┆BINW4 SET CR t P RET P PEND 6 P ┆
0x130e…135e 20 20 20 20 20 20 45 4a 45 43 54 20 00 0c 00 4c 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 20 00 0c ┆ EJECT L > P********************************************************* ┆
0x135e…13ae 00 64 00 06 00 50 2a 20 00 0c 00 a6 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 00 0c 00 b0 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0c 00 de 00 2a 00 50 ┆ d P* * P* DISC ERROR ROUTINE ERDK P* CALL: * P┆
0x13ae…13fe 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 f0 00 06 00 50 2a 20 00 0c 01 1e 00 34 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 ┆* PERF ERDK,<DATASET>,<SETNR> P* 4 P* THIS ROUTINE ┆
0x13fe…144e 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 01 28 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 52 20 4f 4e 20 44 49 53 43 20 00 0c 01 60 00 38 00 50 2a 20 20 20 20 20 20 20 ┆BUILDS THE ERRORCODE IN ( $ P* CASE OF ERROR ON DISC ` 8 P* ┆
0x144e…149e (13, 0, 400) 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 01 88 00 3a 00 50 2a 20 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 ┆ THE ERRORCODE IS FOUND WITH ROUTINE GETBIT : P* AND THE TEXT IS DI┆
0x149e…14ee 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 0d 00 34 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 53 50 45 52 52 20 00 0d 00 72 00 06 00 50 2a 20 00 0d 00 90 00 1e 00 50 2a 20 41 4c 54 45 ┆SPLAYED WITH SCREENPACKAGE 4 P* ENTRY SPERR r P* P* ALTE┆
0x14ee…153e 52 45 44 20 50 41 52 41 4d 45 54 45 52 53 3a 20 4e 4f 4e 45 00 0d 00 9a 00 06 00 50 2a 20 00 0d 00 bc 00 3a 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 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 ┆RED PARAMETERS: NONE P* : P* ALTERED FIELDS: SPBINW4 - NO-DATA/NEW-VO┆
0x153e…158e 4c 3a 20 30 2c 20 45 4c 53 45 20 32 00 0d 00 c6 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 4f 44 45 20 00 0d 01 04 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L: 0, ELSE 2 * P* GTWBCD2 - ERRORCODE & P* ┆
0x158e…15de 20 20 20 20 47 54 4e 57 46 4c 47 20 2d 20 46 41 4c 53 45 20 00 0d 01 32 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 20 2d 20 54 52 55 45 20 00 0d 01 5c 00 06 00 50 2a 20 00 0d 01 86 00 06 00 50 ┆ GTNWFLG - FALSE 2 & P* SPKEYFLG - TRUE P* P┆
0x15de…162e (14, 0, 400) 2a 20 00 0d 01 90 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0e 00 0a 00 20 00 50 ┆* B P************************************************************* P┆
0x162e…167e 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 0e 00 50 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0e 00 74 00 24 00 50 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 ┆ERDK PROC DSET,$NR P P PLIT $NR t $ P PERF GETBIT┆
0x167e…16ce 2c 44 53 45 54 20 00 0e 00 86 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 0e 00 ae 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 ┆,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DATA & P CBE GTWBCD1,=D'8',ERDKR┆
0x16ce…171e 45 54 20 4e 45 57 20 56 4f 4c 00 0e 00 d8 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 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 ┆ET NEW VOL D P MOVE SPBINW4,CBIN21 PREPARE TEXT (BIT N┆
0x171e…176e 52 29 00 0e 01 02 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 20 20 44 41 54 41 53 45 54 20 4e 52 00 0e 01 4a 00 34 00 50 20 20 20 20 20 20 20 20 ┆R) : P MOVE GTWBCD2,$NR DATASET NR J 4 P ┆
0x176e…17be (15, 0, 400) 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 01 88 00 18 00 50 20 54 42 46 20 47 54 54 54 50 46 4c 47 2c 45 52 44 4b 31 30 00 0f 00 30 00 24 00 50 20 43 4c 45 ┆ MOVE GSWSTR9,=C'DISCFEJL ' TEXT P TBF GTTTPFLG,ERDK10 0 $ P CLE┆
0x17be…180e 41 52 20 53 50 4b 45 59 46 4c 47 20 4e 4f 20 4b 4f 52 4b 45 59 20 49 46 20 54 54 50 00 0f 00 4c 00 0a 00 50 45 52 44 4b 31 30 00 0f 00 74 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 ┆AR SPKEYFLG NO KORKEY IF TTP L PERDK10 t < P PERF SPERR ┆
0x180e…185e 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 0f 00 82 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 46 4c 47 20 00 0f 00 c2 00 10 00 50 20 53 45 54 20 47 54 4e 57 46 4c 47 00 0f 00 d8 00 18 00 50 20 54 42 46 ┆ DISPLAY TEXT P SET SPKEYFLG P SET GTNWFLG P TBF┆
0x185e…18ae 20 47 54 54 54 50 46 4c 47 2c 45 52 44 4b 32 30 00 0f 00 ec 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 01 08 00 0a 00 50 45 52 44 4b 32 30 00 0f 01 24 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 ┆ GTTTPFLG,ERDK20 P PERF WRITJT,=W'14' PERDK20 $ P CLEAR GTNWFLG┆
0x18ae…18fe 00 0f 01 32 00 18 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 32 31 00 0f 01 48 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 00 0f 01 64 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0f 01 76 00 28 00 50 20 4d 4f 56 45 20 53 50 42 49 ┆ 2 P MOVE SPBINW4,CBIN21 H P B ERDKEND d PERDKRET v ( P MOVE SPBI┆
0x18fe…194e (16, 0, 400) 4e 57 34 2c 43 42 49 4e 30 20 5c 50 52 45 50 41 52 45 20 46 4f 52 20 4f 4b 20 00 0f 01 86 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 10 00 22 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 10 ┆NW4,CBIN0 PREPARE FOR OK PERDKEND " P CMP SPBINW4,CBIN0 SET CR ┆
0x194e…199e 00 32 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 10 00 56 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 10 00 6c 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 10 00 82 00 3e 00 50 2a 2a 2a 2a 2a 2a ┆ 2 P RET V P PEND l P EJECT > P******┆
0x199e…19ee 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 10 00 9a 00 06 00 50 2a 20 00 10 00 dc 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 ┆**************************************************** P* P* ┆
0x19ee…1a3e 47 45 54 42 49 54 00 10 00 e6 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 10 00 fe 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 01 10 00 38 00 50 2a 20 20 20 20 54 48 49 ┆GETBIT P* CALL: $ P* PERF GETBIT,<DATASET> 8 P* THI┆
0x1a3e…1a8e 53 20 52 4f 55 54 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 01 38 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 10 01 74 00 10 00 50 2a 20 20 20 ┆S ROUTINE FINDS THE BIT IN THE EXTENDED 8 P* STATUSWORD t P* ┆
0x1a8e…1ade (17, 0, 400) 20 52 45 54 55 52 4e 3a 00 10 01 8c 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 11 00 10 00 06 00 50 ┆ RETURN: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P┆
0x1ade…1b2e 2a 20 00 11 00 50 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 11 00 5a 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 ┆* P P* ALTERED FIELDS: Z 2 P* GSWBIN1 - EXTENDED STATUSWOR┆
0x1b2e…1b7e 44 20 00 11 00 74 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 11 00 aa 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 11 00 ce 00 1c 00 50 2a 20 ┆D t P* GTWBCD1 - 1 P* GSWBIN2 P* ┆
0x1b7e…1bce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 43 44 32 20 00 11 00 ee 00 06 00 50 2a 20 00 11 01 0e 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 ┆ GSWBCD2 P* 0 P* CR: STATUS-FOUND - BNG, NO-BIT-FOUND: ┆
0x1bce…1c1e 42 4e 47 20 00 11 01 18 00 06 00 50 2a 20 00 11 01 4c 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 ┆BNG P* L > P**********************************************************┆
0x1c1e…1c6e (18, 0, 400) 00 11 01 56 00 18 00 50 47 45 54 42 49 54 20 20 20 20 50 52 4f 43 20 44 53 45 54 20 00 12 00 08 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 ┆ V PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET ┆
0x1c6e…1cbe 53 54 41 54 55 53 00 12 00 24 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 12 00 5e 00 3a 00 50 20 20 20 20 ┆STATUS $ : P MOVE GTWBCD1,=D'15' BIT NR IN BCD ^ : P ┆
0x1cbe…1d0e 20 20 20 20 20 20 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 12 00 9c 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 ┆ MOVE GSWBIN2,CBIN1 BIT NR IN BIN > PGET10 CALL MA┆
0x1d0e…1d5e 53 4b 2c 47 53 57 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 12 00 da 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 ┆SK,GSWBIN1,GSWBIN2 AND WITH STATUS 4 P BNZ GETRET ┆
0x1d5e…1dae 20 20 20 20 20 20 46 4f 55 4e 44 20 00 12 01 1c 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 01 54 00 36 00 50 20 20 20 20 20 20 20 20 20 20 4d 55 4c 20 20 20 ┆ FOUND ( P MOVE GSWBCD2,GSWBIN2 T 6 P MUL ┆
0x1dae…1dfe (19, 0, 400) 20 20 20 20 47 53 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 01 80 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 ┆ GSWBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 ┆
0x1dfe…1e4e 20 20 20 20 43 4f 4e 56 45 52 54 20 00 13 00 2a 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 13 ┆ CONVERT * > P SUB GTWBCD1,=D'1' UPDATE BCD BITNR ┆
0x1e4e…1e9e 00 64 00 3a 00 50 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 13 00 a6 00 0a 00 50 47 45 54 52 45 54 00 13 00 e4 00 12 ┆ d : P CBG GTWBCD1,=D'1',GET10 NO BIT FOUND PGETRET ┆
0x1e9e…1eee 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 13 00 f2 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 13 01 08 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 1e 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RET P PEND P EJECT > P********************┆
0x1eee…1f3e 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 13 01 2c 00 06 00 50 2a 20 00 13 01 6e 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 ┆************************************** , P* n P* RANDOM WRITE ┆
0x1f3e…1f40 (20, 0, 400) 00 13 ┆ ┆
0x1f40…1f8e 01 78 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 14 00 08 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 ┆ x P* CALL: > P* PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<REC┆
0x1f8e…4d70 […elided…]
0x4d70…4d80 47 53 57 42 49 4e 34 20 46 49 45 4c 44 4e 52 20 ┆GSWBIN4 FIELDNR ┆
0x4d80…4dd0 00 31 00 c6 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 32 00 31 01 00 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 00 31 01 1a 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 3d 58 27 30 30 ┆ 1 P ADD GSWBIN4,CBIN2 1 P SUB GSWBIN3,CBIN2 1 P MOVE GSWSTR20,=X'00┆
0x4dd0…4e18 27 20 00 31 01 34 00 30 00 50 20 43 4f 50 59 20 47 53 57 53 54 52 32 30 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 33 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 34 00 31 01 52 00 22 00 50 5c 5c 5c 4e 4f 57 20 46 49 45 ┆' 1 4 0 P COPY GSWSTR20,CBIN0,GSWBIN3,CPCKBUF,GSWBIN4 1 R " P NOW FIE┆
0x4e18…4e68 (50, 0, 400) 4c 44 20 4e 52 20 49 53 20 49 4e 20 47 53 57 53 54 52 32 20 00 31 01 86 00 26 00 50 5c 5c 5c 41 4e 44 20 46 49 45 4c 44 20 43 4f 4e 54 45 4e 54 53 20 49 4e 20 47 53 57 53 54 52 32 30 20 00 32 00 1c 00 16 00 50 5c 5c 5c 41 44 4a 55 53 54 20 ┆LD NR IS IN GSWSTR2 1 & P AND FIELD CONTENTS IN GSWSTR20 2 P ADJUST ┆
0x4e68…4eb8 50 4f 49 4e 54 45 52 53 00 32 00 46 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 32 00 60 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 35 2c 47 53 57 42 49 4e 33 00 32 00 7a 00 16 00 50 20 53 55 42 20 47 53 57 42 49 ┆POINTERS 2 F P ADD GSWBIN6,CBIN1 2 ` P SUB GSWBIN5,GSWBIN3 2 z P SUB GSWBI┆
0x4eb8…4f08 4e 35 2c 43 42 49 4e 33 00 32 00 96 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 35 2c 47 53 57 53 54 52 32 20 46 49 45 4c 44 4e 52 20 00 32 00 b0 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 47 53 57 42 43 44 35 20 43 4f 4e 56 ┆N5,CBIN3 2 " P MOVE GSWBCD5,GSWSTR2 FIELDNR 2 " P MOVE GSWBIN3,GSWBCD5 CONV┆
0x4f08…4f58 45 52 54 20 00 32 00 d6 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 00 32 00 fc 00 14 00 50 5c 42 45 20 52 47 52 32 31 30 5c 44 41 54 45 20 00 32 01 16 00 1e 00 50 20 43 42 4c 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 34 ┆ERT 2 P CMP GSWBIN3,CBIN2 2 P BE RGR210 DATE 2 P CBL GSWBIN3,CBIN4┆
0x4f58…4fa8 2c 52 47 52 30 33 30 20 00 32 01 2e 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 34 00 32 01 50 00 0e 00 50 5c 42 45 20 52 47 52 32 30 30 00 32 01 6a 00 2e 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 31 33 ┆,RGR030 2 . P CMP GSWBIN3,CBIN4 2 P P BE RGR200 2 j . P CBNE GSWBIN3,CBIN13┆
0x4fa8…4ff8 (51, 0, 400) 2c 52 47 52 30 33 36 20 41 52 4b 49 56 2e 4b 4e 54 2e 4e 4f 2e 20 00 32 01 7c 00 24 00 50 20 54 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 33 00 1e 00 0a 00 50 52 47 52 30 33 36 00 33 00 46 ┆,RGR036 ARKIV.KNT.NO. 2 | $ P TBT CWFLAG,RGR030 NOT KOLDSTART 3 PRGR036 3 F┆
0x4ff8…5048 00 22 00 50 5c 5c 5c 55 50 44 41 54 45 20 47 54 44 55 50 46 2c 47 54 52 45 47 46 2c 47 54 55 53 45 44 00 33 00 54 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 ┆ " P UPDATE GTDUPF,GTREGF,GTUSED 3 T 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSWBIN3┆
0x5048…5098 3d 46 49 45 4c 44 4e 52 00 33 00 7a 00 22 00 50 20 4d 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 33 00 b0 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 ┆=FIELDNR 3 z " P MOVE GTUSED(GSWBIN4),GSWBIN3 3 " P MOVE GTDUPF(GSWBIN4),GSWS┆
0x5098…50e8 54 52 32 30 00 33 00 d6 00 22 00 50 20 4d 4f 56 45 20 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 33 00 fc 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 ┆TR20 3 " P MOVE GTREGF(GSWBIN4),GSWSTR20 3 ( P CBE GSWBIN3,CBIN9,RGR060 D/K ┆
0x50e8…5138 4d 41 52 4b 3f 20 00 33 01 22 00 1a 00 50 5c 5c 5c 43 48 45 43 4b 20 49 46 20 57 49 54 48 20 53 49 47 4e 20 00 33 01 4e 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 33 01 6c 00 18 00 50 20 4d 4f 56 45 20 47 53 ┆MARK? 3 " P CHECK IF WITH SIGN 3 N P MOVE GSWBIN3,CBIN0 3 l P MOVE GS┆
0x5138…5188 (52, 0, 400) 57 53 54 52 32 2c 3d 43 27 2d 27 20 00 33 01 88 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 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 34 00 14 00 10 00 50 20 42 ┆WSTR2,=C'-' 3 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 4 P B┆
0x5188…51d8 4e 45 20 52 47 52 30 34 30 20 00 34 00 4e 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 34 00 62 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 ┆NE RGR040 4 N P MUL GTUSED(GSWBIN4),=W'-1' 4 b P MUL GTDUPF(GSWBIN4),=D'-1┆
0x51d8…5228 27 20 00 34 00 86 00 20 00 50 20 4d 55 4c 20 47 54 52 45 47 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 34 00 aa 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 00 ce 00 0a 00 50 52 47 52 30 34 30 00 34 00 e0 00 18 00 50 20 4d ┆' 4 P MUL GTREGF(GSWBIN4),=D'-1' 4 P B RGR030 4 PRGR040 4 P M┆
0x5228…5278 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 34 00 ee 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 34 01 0a ┆OVE GSWBIN3,CBIN0 4 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 4 ┆
0x5278…52c8 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 34 01 44 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 34 01 58 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 01 7c 00 1a 00 50 52 47 ┆ P BNE RGR030 4 D P MUL GTUSED(GSWBIN4),=W'-1' 4 X P B RGR030 4 | PRG┆
0x52c8…5318 (53, 0, 400) 52 30 36 30 5c 5c 5c 53 45 54 20 44 2f 4b 20 49 4e 46 4f 20 00 34 01 8e 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 35 00 1c 00 20 00 50 20 50 45 52 46 49 20 47 53 57 42 49 4e 33 ┆R060 SET D/K INFO 4 " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 5 P PERFI GSWBIN3┆
0x5318…5368 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 35 00 42 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 35 00 66 00 0a 00 50 52 47 52 31 30 30 00 35 00 78 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 35 00 86 00 18 00 50 20 4d ┆,SETKRE,SETDEB 5 B P B RGR030 5 f PRGR100 5 x P END OF RECORD 5 P M┆
0x5368…53b8 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 00 35 00 9e 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 35 00 ba 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 55 46 2c 47 ┆OVE GSWSTR2,=X'7F' 5 " P MOVE GSWBIN6,GSWBIN4 RESTORE 5 6 P MATCH CPCKBUF,G┆
0x53b8…5408 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 35 00 e0 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 35 01 1a 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 00 35 01 2e 00 0e ┆SWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 5 P BNE RGR110 5 P SET CEORFLG 5 . ┆
0x5408…5458 00 50 20 42 20 52 47 52 30 33 35 20 00 35 01 42 00 0a 00 50 52 47 52 31 31 30 00 35 01 54 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 35 01 62 00 1a 00 50 20 4d 4f 56 ┆ P B RGR035 5 B PRGR110 5 T & P MOVE GSWSTR2,=X'21' CONT. RECORD 5 b P MOV┆
0x5458…54a8 (54, 0, 400) 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 00 35 01 8c 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 36 00 1a ┆E GSWBIN6,GSWBIN4 5 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 6 ┆
0x54a8…54f8 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 00 36 00 54 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 36 00 68 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 43 50 43 4b 42 ┆ P BNE RGRRET2 6 T P DLETE CPCKBUF,CBIN0,GSWBIN4 6 h P MOVE GSWSTR20,CPCKB┆
0x54f8…5548 55 46 00 36 00 8c 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 36 00 aa 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 36 00 c4 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c 43 42 49 4e 31 20 ┆UF 6 P ADD CTWBIN1,CBIN1 6 P TBT CWFLAG,RGR113 6 P ADD CRECNR,CBIN1 ┆
0x5548…5598 4b 4f 4c 44 53 54 41 52 54 20 00 36 00 de 00 0a 00 50 52 47 52 31 31 33 00 36 01 02 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 36 01 10 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 ┆KOLDSTART 6 PRGR113 6 P ADD GSWBCD2,=D'1' 6 P MOVE GSWBIN1,=W'128' ┆
0x5598…55e8 00 36 01 2a 00 32 00 50 20 50 45 52 46 20 52 41 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 36 01 48 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 36 01 7e ┆ 6 * 2 P PERF RAREAD,DSET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 6 H P BNOK RGRRET2 6 ~┆
0x55e8…5638 (55, 0, 400) 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 37 00 04 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 37 00 1c 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 ┆ P DELETE HEADER 7 P DLETE CPCKBUF,CBIN0,CBIN11 7 * P MOVE GSWBIN6,CB┆
0x5638…5688 49 4e 30 20 49 4e 53 45 52 54 20 53 41 56 45 44 20 49 4e 46 4f 20 00 37 00 40 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 37 00 6e 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d 57 27 31 32 38 27 ┆IN0 INSERT SAVED INFO 7 @ P MOVE GSWSTR2,CBLANKS 7 n P CBE CRECLGD,=W'128'┆
0x5688…56d8 2c 52 47 52 31 31 35 20 00 37 00 8c 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 30 30 27 00 37 00 b0 00 0a 00 50 52 47 52 31 31 35 00 37 00 cc 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 ┆,RGR115 7 P MOVE GSWSTR2,=X'00' 7 PRGR115 7 6 P MATCH GSWSTR20,GSWBIN┆
0x56d8…5728 36 2c 43 42 49 4e 31 39 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 37 00 da 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 37 01 14 00 30 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 55 46 2c 43 42 49 ┆6,CBIN19,GSWSTR2,CBIN0,CBIN1 7 P SUB GSWBIN6,CBIN1 7 0 P INSRT CPCKBUF,CBI┆
0x5728…5778 4e 30 2c 47 53 57 42 49 4e 36 2c 47 53 57 53 54 52 32 30 2c 43 42 49 4e 30 20 00 37 01 2e 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 37 01 62 00 2a 00 50 20 41 44 44 20 47 53 57 42 43 44 33 2c 3d 44 27 31 27 ┆N0,GSWBIN6,GSWSTR20,CBIN0 7 . P MOVE GSWBIN6,CBIN0 7 b * P ADD GSWBCD3,=D'1'┆
0x5778…57c8 (56, 0, 400) 20 55 50 44 41 54 45 20 4c 4f 47 2e 20 52 45 43 2e 20 4e 4f 00 37 01 7e 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 38 00 1c 00 0a 00 50 52 47 52 32 30 30 00 38 00 2e 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 42 4e 52 2c 47 53 57 53 54 52 32 ┆ UPDATE LOG. REC. NO 7 ~ P B RGR032 8 PRGR200 8 . P MOVE GTLBNR,GSWSTR2┆
0x57c8…5818 30 20 00 38 00 3c 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 00 38 00 5a 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 38 00 74 00 0a 00 50 52 47 52 32 ┆0 8 < P TBT CWFLAG,RGR205 8 Z $ P MOVE TTLBNR,GTLBNR IN KOLDSTART 8 t PRGR2┆
0x5818…5868 30 35 00 38 00 9c 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 38 00 aa 00 0a 00 50 52 47 52 32 31 30 00 38 00 bc 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 00 38 00 ca 00 26 00 50 20 4d 4f 56 45 20 47 54 44 41 54 4f ┆05 8 P B RGR030 8 PRGR210 8 P TBT CWFLAG,RGR220 8 & P MOVE GTDATO┆
0x5868…58b8 2c 47 53 57 53 54 52 32 30 20 49 46 20 43 4f 4c 44 53 54 41 52 54 00 38 00 e4 00 0a 00 50 52 47 52 32 32 30 00 38 01 0e 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 38 01 1c 00 0c 00 50 52 47 52 52 45 54 32 20 00 38 01 2e 00 1c 00 50 20 43 ┆,GSWSTR20 IF COLDSTART 8 PRGR220 8 P B RGR030 8 PRGRRET2 8 . P C┆
0x58b8…5908 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 52 45 45 20 00 38 01 3e 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 38 01 5e 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 ┆LEAR CPFLG DISK FREE 8 > P CLEAR GTSWFLAG 8 ^ " P CMP CBIN0,CBIN1 CR=2, NOT┆
0x5908…5958 (57, 2, 320) 20 4f 4b 20 00 38 01 76 00 08 00 50 20 52 45 54 00 39 00 0c 00 0c 00 50 52 47 52 52 45 54 31 20 00 39 00 18 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 39 00 28 00 12 00 50 20 53 45 54 20 47 54 53 ┆ OK 8 v P RET 9 PRGRRET1 9 P CLEAR CPFLG DISK FREE 9 ( P SET GTS┆
0x5958…59a8 57 46 4c 41 47 20 00 39 00 48 00 20 00 50 20 43 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 39 00 5e 00 08 00 50 20 52 45 54 00 39 00 82 00 0a 00 50 52 47 52 52 45 54 00 39 00 8e 00 1c 00 50 20 43 4c 45 ┆WFLAG 9 H P CMP CBIN1,CBIN0 CR=1, TR=11 9 ^ P RET 9 PRGRRET 9 P CLE┆
0x59a8…59f8 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 52 45 45 20 00 39 00 9c 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 39 00 bc 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 39 00 d2 00 1e 00 50 20 43 4d 50 20 43 ┆AR CPFLG DISK FREE 9 P SET TTEORFLG 9 P CLEAR GTSWFLAG 9 P CMP C┆
0x59f8…5a48 42 49 4e 30 2c 43 42 49 4e 30 20 43 52 3d 30 2c 20 4f 4b 20 00 39 00 ea 00 08 00 50 20 52 45 54 00 39 01 0c 00 0a 00 50 20 50 45 4e 44 20 00 39 01 18 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 39 01 26 40 04 00 00 00 39 01 3c ┆BIN0,CBIN0 CR=0, OK 9 P RET 9 P PEND 9 P END 9 &@ 9 <┆
0x5a48…5a50 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x5a50…5aa0 (59, 0, 400) 54 16 01 bf a1 59 00 1a 5f 9a f6 a1 4e 1a 5f a0 81 42 00 0a 55 e2 19 05 81 43 00 0a 19 02 51 d8 91 04 90 43 00 0a 8f 44 4b 1e 4b 20 4b 30 4b 42 4b 8e 4d 8a 4d 98 4b be 81 58 00 16 91 58 00 2a e2 24 22 ff 5c 7e 5f 3e 01 40 a9 59 00 1a 82 58 ┆T Y _ N _ B U C Q C DK K K0KBK M M K X X * $" ~_> @ Y X┆
0x5aa0…5af0 00 2a 1a 01 8e 20 4a 48 5f 52 81 58 00 1a 21 40 58 58 90 79 00 20 83 58 00 10 23 7f eb 78 00 20 56 04 83 79 00 20 1b 01 84 0c 94 58 00 16 9b 58 00 2a f6 a1 53 20 83 0c 50 0c e1 50 ff ff e1 31 1c 01 1b 01 5f 0e 01 20 e1 31 f6 a1 4c 10 82 58 ┆ * JH_R X !@XX y X # x V y X X * S P P 1 _ 1 L X┆
0x5af0…5b40 00 2a 8f 20 4a 2c 81 58 00 16 91 58 00 2a e2 24 22 ff 58 aa e2 44 00 01 e2 25 11 01 22 ff 5c 0c 83 58 00 10 23 7f 9b 58 00 2a f6 a1 53 20 1f b2 97 79 00 20 5f 3c 83 58 00 10 23 7f 84 58 00 2a 84 79 00 20 9b 10 f6 a1 53 20 94 58 00 16 01 00 ┆ * J, X X * $" X D % " X # X * S y _< X # X * y S X ┆
0x5b40…5b90 e1 31 14 01 e9 31 5c 08 e1 58 00 10 21 40 54 1a 83 20 ff ff 81 58 00 16 e2 24 11 01 22 ff 50 0a 1a 20 5c 0c 93 79 00 20 5f 12 81 78 00 20 54 04 f6 a1 4e 46 8f 20 4d 4e 01 00 82 58 00 0a 82 48 00 02 12 02 83 58 00 16 93 58 00 2a e4 2c e4 29 ┆ 1 1 X !@T X $ " P y _ x T NF MN X H X X * , )┆
0x5b90…5be0 24 ff 50 08 11 01 12 01 13 01 5f 10 f0 3a f6 a1 4e 7a 02 00 e2 27 91 a0 00 01 1d 01 59 0a f6 a1 69 96 81 d9 00 1c f6 a1 4e c4 a0 79 00 20 80 d8 00 08 82 78 00 20 9a 09 02 00 0f f0 00 10 00 00 20 02 20 00 02 00 08 00 00 00 50 00 00 80 88 05 ┆$ P _ : Nz ' Y i N y x P ┆
0x5be0…5c30 (60, 0, 400) 92 43 00 02 a0 79 00 20 82 58 00 1c 01 01 82 43 00 0a 81 43 00 04 87 58 00 1a 80 d8 00 08 9c d6 ff f4 28 04 00 01 f6 a1 5c 0a 94 d6 ff f4 81 78 00 20 54 66 81 42 00 08 88 20 4d bc 39 e3 52 10 39 e1 8e 20 4d 7c 81 58 00 10 82 04 21 7f 54 06 ┆ C y X C C X ( x Tf B M 9 R 9 M| X ! T ┆
0x5c30…5c80 f6 a1 4e 1a 5f 60 90 79 00 20 90 43 00 02 19 01 51 04 22 80 54 82 f6 a1 53 44 1b 01 f6 a1 53 20 81 58 00 10 21 7f 19 01 f6 a1 4e 66 80 d8 00 08 82 58 00 1e 81 58 00 10 21 7f 99 78 00 20 59 82 01 bf a1 59 00 1a 01 01 5f 8c 82 58 00 1a 22 40 ┆ N _` y C Q " T SD S X ! Nf X X ! x Y Y _ X "@┆
0x5c80…5cd0 50 10 82 42 00 06 1a 01 52 08 92 79 00 20 92 43 00 02 81 42 00 08 50 a4 39 e3 56 06 f6 a1 4e 1a 5f 46 39 e1 56 56 81 58 00 10 21 80 54 12 81 58 00 1a 21 40 58 1a 90 79 00 20 90 43 00 02 5f 64 90 79 00 20 90 43 00 02 01 03 81 43 00 0a e1 58 ┆P B R y C B P 9 V N _F9 VV X ! T X !@X y C _d y C C X┆
0x5cd0…5d20 00 10 21 3f 82 78 00 20 50 04 e9 08 51 28 02 00 03 00 80 d8 00 08 81 42 00 0a 81 79 00 22 82 79 00 24 01 00 e1 63 00 02 8f 20 5b c4 02 03 a0 43 00 0a 03 02 5f 24 02 01 5f 08 f6 a1 4e 36 a0 79 00 20 5f 36 8f 20 4c 56 81 78 00 20 58 40 82 58 ┆ !? x P Q( B y " y $ c [ C _$ _ N6 y _6 LV x X@ X┆
0x5d20…5d70 00 0e f6 a1 53 0e 83 58 00 10 23 7f f6 a1 53 20 80 d8 00 08 01 02 81 43 00 0a 5f 2e 81 42 00 0a 5d 64 19 01 50 0c 81 43 00 0a 19 02 51 38 58 38 5f 48 82 78 00 20 58 44 00 00 08 04 20 40 09 04 00 00 00 01 00 00 00 00 00 04 02 10 21 00 00 0c ┆ S X # S C _. B ]d P C Q8X8_H x XD @ ! ┆