|
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: 30356 (0x7694)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/DKSUBS.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/DKSUBS.SC«
IDENT DKSUBS 830915 EV
830915, PROBLEMS WITH FIELDS
LONGER THAN 11 BYTES,
SOLVED BY INTRODUCING
GSWBIN7 IN RGREAD
DDUM KMD08
PDIV
ENTRY RAREAD
ENTRY RAWRIT
ENTRY SQWRIT
ENTRY ASSG
ENTRY RGREAD
ENTRY RADEL
ENTRY GETBIT
ENTRY BACKUP
ENTRY RSTORE
ENTRY KFREAD
ENTRY KFWRIT
ENTRY WAITF
EXT MASK
EXT PACKCL
EXT PACKST
EXT SETKRE
EXT SETDEB
EXT SPERR
EXT WRITJT
EXT LAMPON
EXT WRITLO
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.
* 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,<VOLUME>,<DSET>,<DATASET NO.>
*
***********************************************************
*
*
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
MOVE GTWBCD2,DNR
EDIT ASFNAME,FDFMT
DSC0 DK,CLOSE CLOSE FIRST
*
ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL
BOK ASSGRET IF OK, RETURN
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
CLEAR CDKOFF
CMP CBIN0,CBIN0
RET
PEND
FDFMT FRMT
FCOPY ='FD'
FMEL '999PPP',GTWBCD1
FMEL '999',GTWBCD2
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…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT DKSUBS 830915 EV «, t00=0x0000, t01=0x0004}
0x0020…0048 Head {h00=0x0024, h01=0x0050, text=» 830915, PROBLEMS WITH FIELDS «, t00=0x0000, t01=0x0024}
0x0048…0068 Head {h00=0x001c, h01=0x0050, text=» LONGER THAN 11 BYTES,«, t00=0x0000, t01=0x004c}
0x0068…0088 Head {h00=0x001c, h01=0x0050, text=» SOLVED BY INTRODUCING«, t00=0x0000, t01=0x006c}
0x0088…00a4 Head {h00=0x0018, h01=0x0050, text=» GSWBIN7 IN RGREAD«, t00=0x0000, t01=0x008c}
0x00a4…00c2 Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x00a8}
0x00c2…00d8 Head {h00=0x0012, h01=0x0050, text=» PDIV«, t00=0x0000, t01=0x00c6}
0x00d8…00ee Head {h00=0x0012, h01=0x0050, text=» ENTRY RAREAD «, t00=0x0000, t01=0x00dc}
0x00ee…0104 Head {h00=0x0012, h01=0x0050, text=» ENTRY RAWRIT «, t00=0x0000, t01=0x00f2}
0x0104…011a Head {h00=0x0012, h01=0x0050, text=» ENTRY SQWRIT «, t00=0x0000, t01=0x0108}
0x011a…012e Head {h00=0x0010, h01=0x0050, text=» ENTRY ASSG «, t00=0x0000, t01=0x011e}
0x012e…0144 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGREAD «, t00=0x0000, t01=0x0132}
0x0144…0158 Head {h00=0x0010, h01=0x0050, text=» ENTRY RADEL«, t00=0x0000, t01=0x0148}
0x0158…016e Head {h00=0x0012, h01=0x0050, text=» ENTRY GETBIT «, t00=0x0000, t01=0x015c}
0x016e…0184 Head {h00=0x0012, h01=0x0050, text=» ENTRY BACKUP «, t00=0x0000, t01=0x0172}
0x0184…019a Head {h00=0x0012, h01=0x0050, text=» ENTRY RSTORE «, t00=0x0000, t01=0x0188}
0x019a…01b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY KFREAD «, t00=0x0001, t01=0x000e}
0x01b0…01c6 Head {h00=0x0012, h01=0x0050, text=» ENTRY KFWRIT «, t00=0x0001, t01=0x0024}
0x01c6…01da Head {h00=0x0010, h01=0x0050, text=» ENTRY WAITF«, t00=0x0001, t01=0x003a}
0x01da…01ec Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x004e}
0x01ec…0200 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0001, t01=0x0060}
0x0200…0214 Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0001, t01=0x0074}
0x0214…0228 Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0088}
0x0228…023c Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x009c}
0x023c…024e Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x00b0}
0x024e…0262 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x00c2}
0x0262…0276 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x00d6}
0x0276…028a Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x00ea}
0x028a…02aa Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x00fe}
0x02aa…02e4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x011e}
0x02e4…02ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0158}
0x02ee…0326 Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x0162}
0x0326…0354 Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0002, t01=0x000a}
0x0354…0382 Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0002, t01=0x0038}
0x0382…03ac Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0002, t01=0x0066}
0x03ac…03d6 Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0002, t01=0x0090}
0x03d6…0404 Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x00ba}
0x0404…0444 Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x00e8}
0x0444…0478 Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x0128}
0x0478…04b2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x015c}
0x04b2…04ca Head {h00=0x0014, h01=0x0050, text=» EJECT «, t00=0x0003, t01=0x0008}
0x04ca…050e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0003, t01=0x0020}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0546 Head {h00=0x002a, h01=0x0050, text=»* ASSG - ASSIGN ROUTINE«, t00=0x0003, t01=0x006e}
0x0546…0584 Head {h00=0x003a, h01=0x0050, text=»* THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED«, t00=0x0003, t01=0x009c}
0x0584…05b2 Head {h00=0x002a, h01=0x0050, text=»* DATASETNAME TO A VOLUMENAME. «, t00=0x0003, t01=0x00da}
0x05b2…05d8 Head {h00=0x0022, h01=0x0050, text=»* ON SPECIFIED VOLUME«, t00=0x0003, t01=0x0108}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e2…060c Head {h00=0x0026, h01=0x0050, text=»* ALTERED PARAMETERS: NONE «, t00=0x0003, t01=0x0138}
0x060c…0616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0162}
0x0616…065c Head {h00=0x0042, h01=0x0050, text=»* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 «, t00=0x0003, t01=0x016c}
0x065c…06a0 Head {h00=0x0040, h01=0x0050, text=»* GSWBIN1 - OK - ATTEMPTNR NOK - 5«, t00=0x0004, t01=0x0022}
0x06a0…06d6 Head {h00=0x0032, h01=0x0050, text=»* ASFNAME - DATASETNAME«, t00=0x0004, t01=0x0066}
0x06d6…071e Head {h00=0x0044, h01=0x0050, text=»* ASVOL - OK - VOLUMENAME NOK - X'00'«, t00=0x0004, t01=0x009c}
0x071e…076a Head {h00=0x0048, h01=0x0050, text=»* GTWBCD1 - OK - N/A NOK - ATTEMPT+1«, t00=0x0004, t01=0x00e4}
0x076a…07b6 Head {h00=0x0048, h01=0x0050, text=»* GTWBCD2 - OK - N/A NOK - DATASETNR«, t00=0x0004, t01=0x0130}
0x07b6…07c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c0…07e4 Head {h00=0x0020, h01=0x0050, text=»* C/R: OK - 0, NOK - 4«, t00=0x0004, t01=0x0186}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…0832 Head {h00=0x0040, h01=0x0050, text=»* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>«, t00=0x0005, t01=0x0024}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083c…0880 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0005, t01=0x0072}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08b0 Head {h00=0x0018, h01=0x0050, text=»ASSG PROC VOL,DK,DNR«, t00=0x0005, t01=0x00ca}
0x08b0…08d4 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW4,CBIN0 INITIATE«, t00=0x0005, t01=0x00e6}
0x08d4…08ee Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN1,VOL «, t00=0x0005, t01=0x010a}
0x08ee…08f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f8…0906 Head {h00=0x000a, h01=0x0050, text=»ASSG10«, t00=0x0005, t01=0x012e}
0x0906…0938 Head {h00=0x002e, h01=0x0050, text=» MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME«, t00=0x0005, t01=0x013c}
0x0938…0942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016e}
0x0942…095e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,ASVOL «, t00=0x0005, t01=0x0178}
0x095e…0980 (6, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGRET«, t00=0x0006, t01=0x0004}
0x0980…099c Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,ASVOL «, t00=0x0006, t01=0x0026}
0x099c…09b6 Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0006, t01=0x0042}
0x09b6…09d2 Head {h00=0x0018, h01=0x0050, text=» EDIT ASFNAME,FDFMT «, t00=0x0006, t01=0x005c}
0x09d2…09f4 Head {h00=0x001e, h01=0x0050, text=» DSC0 DK,CLOSE CLOSE FIRST«, t00=0x0006, t01=0x0078}
0x09f4…09fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x09fe…0a28 Head {h00=0x0026, h01=0x0050, text=» ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL«, t00=0x0006, t01=0x00a4}
0x0a28…0a4c Head {h00=0x0020, h01=0x0050, text=» BOK ASSGRET IF OK, RETURN«, t00=0x0006, t01=0x00ce}
0x0a4c…0a5c Head {h00=0x000c, h01=0x0050, text=»ASSGERR «, t00=0x0006, t01=0x00f2}
0x0a5c…0a9e Head {h00=0x003e, h01=0x0050, text=»* ASSIGNMENT IMPOSSIBLE«, t00=0x0006, t01=0x0102}
0x0a9e…0ad2 Head {h00=0x0030, h01=0x0050, text=» MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)«, t00=0x0006, t01=0x0144}
0x0ad2…0aee Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0006, t01=0x0178}
0x0aee…0b08 (7, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0007, t01=0x0004}
0x0b08…0b2a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'ASSIGN ' «, t00=0x0007, t01=0x001e}
0x0b2a…0b4e Head {h00=0x0020, h01=0x0050, text=» PERF SPERR 'ASSIGN ERROR' «, t00=0x0007, t01=0x0040}
0x0b4e…0b66 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0007, t01=0x0064}
0x0b66…0b72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x007c}
0x0b72…0b82 Head {h00=0x000c, h01=0x0050, text=»ASSGRET «, t00=0x0007, t01=0x0088}
0x0b82…0b98 Head {h00=0x0012, h01=0x0050, text=» CLEAR CDKOFF «, t00=0x0007, t01=0x0098}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x00ae}
0x0bb0…0bbc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00c6}
0x0bbc…0bca Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00d2}
0x0bca…0bd2 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00e0}
0x0bd2…0bda Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00e8}
0x0bda…0bec Head {h00=0x000e, h01=0x0050, text=»FDFMT FRMT«, t00=0x0007, t01=0x00f0}
0x0bec…0c00 Head {h00=0x0010, h01=0x0050, text=» FCOPY ='FD'«, t00=0x0007, t01=0x0102}
0x0c00…0c1e Head {h00=0x001a, h01=0x0050, text=» FMEL '999PPP',GTWBCD1«, t00=0x0007, t01=0x0116}
0x0c1e…0c3a Head {h00=0x0018, h01=0x0050, text=» FMEL '999',GTWBCD2 «, t00=0x0007, t01=0x0134}
0x0c3a…0c48 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0007, t01=0x0150}
0x0c48…0c56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x015e}
0x0c56…0c90 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0007, t01=0x016c}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0cc8 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0008, t01=0x0020}
0x0cc8…0d16 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0008, t01=0x004e}
0x0d16…0d2a Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0008, t01=0x009c}
0x0d2a…0d5e Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0008, t01=0x00b0}
0x0d5e…0d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d68…0d96 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0008, t01=0x00ee}
0x0d96…0dd4 Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0008, t01=0x011c}
0x0dd4…0dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dde…0e2a Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0008, t01=0x0164}
0x0e2a…0e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e34…0e76 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0009, t01=0x002a}
0x0e76…0e7a Head {h00=0x0054, h01=0x0050}
0x0e7a…0e7e Head {h00=0x2a20, h01=0x2020}
0x0e7e…0eb0 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 ┆ SPBINW4 - OK - 0 NOK - ┆
0x0eb0…0f00 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 00 6c 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 c4 00 06 00 50 2a 20 00 09 ┆ALTERED BY DISERRORROUTINE l & P* GTWBCD1 - 0 P* ┆
0x0f00…0f50 00 ee 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 f8 00 30 00 50 52 41 52 45 41 44 20 20 20 20 50 52 4f 43 ┆ 8 P**************************************************** 0 PRAREAD PROC┆
0x0f50…0f9e 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 09 01 34 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 09 01 68 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 ┆ DSET,$NR,BUF,LENG,RECNR 4 P PLIT $NR h : P MOVE GS┆
0x0f9e…0fee (10, 0, 400) 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 09 01 7a 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 ┆WBIN1,LENG GET LENGTH z 8 P MOVE SPBINW4,CBIN0 ┆
0x0fee…103e 20 20 20 20 5a 45 52 4f 49 53 45 20 00 0a 00 28 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 00 64 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 ┆ ZEROISE ( P MOVE GTWBCD1,=D'0' d < P RREAD DSET,BUF,GSW┆
0x103e…108e 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 00 80 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 ┆BIN1,RECNR READ RECORD 4 P BEOF RAR10 OK ?┆
0x108e…10de 00 0a 00 c0 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 0a 00 f8 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 ┆ P BOK RAR10 2 P PERF ERDK,DSET,$NR ┆
0x10de…112e 20 20 20 20 20 20 4e 4f 00 0a 01 1a 00 0a 00 50 52 41 52 31 30 20 00 0a 01 50 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 0a 01 5e 00 44 00 50 20 20 20 20 20 20 20 20 ┆ NO PRAR10 P & P TBT GTEXFLAG,RAR20 ^ D P ┆
0x112e…117e (11, 0, 400) 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 2e 20 41 43 43 45 53 20 00 0a 01 88 00 20 00 50 52 41 52 32 30 20 20 20 20 20 43 4c 45 41 52 20 ┆ DSC0 DSET,RACCS RELEASE EXCL. ACCES PRAR20 CLEAR ┆
0x117e…11ce 20 20 20 20 47 54 45 58 46 4c 41 47 00 0b 00 40 00 0c 00 50 20 53 57 49 54 43 48 20 00 0b 00 64 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 42 49 4e 57 34 20 20 20 20 20 20 20 20 20 20 20 ┆ GTEXFLAG @ P SWITCH d 8 P CMP CBIN0,SPBINW4 ┆
0x11ce…121e 20 53 45 54 20 43 52 20 00 0b 00 74 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0b 00 b0 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0b 00 c6 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0b 00 dc ┆ SET CR t P RET P PEND P EJECT ┆
0x121e…126e 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 0b 00 f4 00 06 00 50 2a 20 00 0b 01 36 00 2a 00 50 ┆ > P********************************************************* P* 6 * P┆
0x126e…12be 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 0b 01 40 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0b 01 6e 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 45 ┆* DISC ERROR ROUTINE ERDK @ P* CALL: n * P* PERF E┆
0x12be…130e (12, 0, 400) 52 44 4b 2c 3c 44 41 54 41 53 45 54 3e 2c 3c 53 45 54 4e 52 3e 20 00 0b 01 80 00 06 00 50 2a 20 00 0c 00 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 42 55 49 4c 44 53 20 54 48 45 20 45 52 52 4f 52 ┆RDK,<DATASET>,<SETNR> P* 4 P* THIS ROUTINE BUILDS THE ERROR┆
0x130e…135e 43 4f 44 45 20 49 4e 20 00 0c 00 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 00 60 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 ┆CODE IN ( $ P* CASE OF ERROR ON DISC ` 8 P* THE ERRORCODE ┆
0x135e…13ae 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 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 53 50 4c 41 59 45 44 20 57 49 54 48 20 53 43 52 ┆IS FOUND WITH ROUTINE GETBIT : P* AND THE TEXT IS DISPLAYED WITH SCR┆
0x13ae…13fe 45 45 4e 50 41 43 4b 41 47 45 00 0c 00 c4 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 0c 01 02 00 06 00 50 2a 20 00 0c 01 20 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 ┆EENPACKAGE P* ENTRY SPERR P* P* ALTERED PARAMETERS: ┆
0x13fe…144e 4e 4f 4e 45 00 0c 01 2a 00 06 00 50 2a 20 00 0c 01 4c 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 4c 3a 20 30 2c 20 45 4c 53 45 20 32 00 0c 01 56 ┆NONE * P* L : P* ALTERED FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 V┆
0x144e…149e (13, 0, 400) 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 00 04 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 ┆ * P* GTWBCD2 - ERRORCODE & P* SPKEYFLG - T┆
0x149e…14ee 52 55 45 20 00 0d 00 32 00 06 00 50 2a 20 00 0d 00 5c 00 06 00 50 2a 20 00 0d 00 66 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 ┆RUE 2 P* P* f B P************************************************┆
0x14ee…153e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0d 00 70 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 00 b6 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0d 00 da 00 24 00 50 20 20 20 20 ┆************* p PERDK PROC DSET,$NR P PLIT $NR $ P ┆
0x153e…158e 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 00 ec 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 14 00 26 00 50 20 43 ┆ PERF GETBIT,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DATA & P C┆
0x158e…15de 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 0d 01 3e 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 ┆BE GTWBCD1,=D'8',ERDKRET NEW VOL > D P MOVE SPBINW4,CBIN21 ┆
0x15de…162e (14, 0, 400) 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 0d 01 68 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 ┆ PREPARE TEXT (BIT NR) h : P MOVE GTWBCD2,$NR DATA┆
0x162e…167e 53 45 54 20 4e 52 00 0e 00 20 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 5e 00 16 00 50 20 54 42 46 20 43 50 46 4c 47 ┆SET NR 4 P MOVE GSWSTR9,=C'DISCFEJL ' TEXT ^ P TBF CPFLG┆
0x167e…16ce 2c 45 52 44 4b 31 30 20 00 0e 00 96 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 00 b0 00 0a 00 50 45 52 44 4b 31 30 00 0e 00 e2 00 3c 00 50 ┆,ERDK10 . P CLEAR SPKEYFLG NO KOR-KEY IF DISK ACCESS PERDK10 < P┆
0x16ce…171e 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 00 f0 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 46 4c 47 20 00 0e ┆ PERF SPERR DISPLAY TEXT P SET SPKEYFLG ┆
0x171e…176e 01 30 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 0e 01 46 00 18 00 50 20 50 45 52 46 20 57 52 49 54 4c 4f 2c 43 42 49 4e 31 37 20 00 0e 01 62 00 18 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 43 42 49 4e ┆ 0 P PERF WRITJT,=W'14' F P PERF WRITLO,CBIN17 b P MOVE SPBINW4,CBIN┆
0x176e…17be (15, 0, 400) 32 31 00 0e 01 7e 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 00 0f 00 0a 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0f 00 1c 00 28 00 50 20 4d 4f 56 45 20 53 50 42 49 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 ┆21 ~ P B ERDKEND PERDKRET ( P MOVE SPBINW4,CBIN0 PREPARE FOR OK ┆
0x17be…180e 00 0f 00 2c 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0f 00 58 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 68 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0f 00 8c 00 12 ┆ , PERDKEND X P CMP SPBINW4,CBIN0 SET CR h P RET ┆
0x180e…185e 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0f 00 a2 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0f 00 b8 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 ┆ P PEND P EJECT > P********************************┆
0x185e…18ae 2a 2a 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 00 d0 00 06 00 50 2a 20 00 0f 01 12 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 00 0f 01 1c 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0f ┆************************** P* P* GETBIT P* CALL: ┆
0x18ae…18fe 01 34 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 0f 01 46 00 38 00 50 2a 20 20 20 20 54 48 49 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 ┆ 4 $ P* PERF GETBIT,<DATASET> F 8 P* THIS ROUTINE FINDS THE BIT ┆
0x18fe…194e (16, 0, 400) 20 20 49 4e 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 00 0f 01 6e 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 10 00 1a 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 4e 3a 00 10 00 32 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ IN THE EXTENDED n P* STATUSWORD P* RETURN: 2 < P* ┆
0x194e…199e 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 46 00 06 00 50 2a 20 00 10 00 86 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 ┆ THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 F P* P* ALTERED FIELDS┆
0x199e…19ee 3a 20 00 10 00 90 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 00 aa 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆: 2 P* GSWBIN1 - EXTENDED STATUSWORD P* ┆
0x19ee…1a3e 47 54 57 42 43 44 31 20 2d 20 31 20 00 10 00 e0 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 04 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 53 57 42 43 44 32 20 00 10 01 24 ┆GTWBCD1 - 1 P* GSWBIN2 P* GSWBCD2 $┆
0x1a3e…1a8e 00 06 00 50 2a 20 00 10 01 44 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 10 01 4e 00 06 00 50 2a 20 00 10 01 82 00 3e 00 50 2a 2a 2a 2a ┆ P* D 0 P* CR: STATUS-FOUND - BNG, NO-BIT-FOUND: BNG N P* > P****┆
0x1a8e…1ade (17, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 10 01 8c 00 18 00 50 47 45 54 42 49 54 20 20 20 20 50 52 4f 43 20 44 53 45 ┆****************************************************** PGETBIT PROC DSE┆
0x1ade…1b2e 54 20 00 11 00 3e 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 00 11 00 5a 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f ┆T > 6 P XSTAT DSET,GSWBIN1 GET STATUS Z : P MO┆
0x1b2e…1b7e 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 94 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 32 2c 43 42 ┆VE GTWBCD1,=D'15' BIT NR IN BCD : P MOVE GSWBIN2,CB┆
0x1b7e…1bce 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 00 d2 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 42 49 4e 31 2c 47 53 57 42 49 4e 32 20 20 41 4e 44 20 57 49 ┆IN1 BIT NR IN BIN > PGET10 CALL MASK,GSWBIN1,GSWBIN2 AND WI┆
0x1bce…1c1e 54 48 20 53 54 41 54 55 53 20 00 11 01 10 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 46 4f 55 4e 44 20 00 11 01 52 00 28 00 50 20 20 20 20 20 20 ┆TH STATUS 4 P BNZ GETRET FOUND R ( P ┆
0x1c1e…1c6e (18, 0, 400) 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 11 01 8a 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 57 42 43 44 32 2c 3d 44 27 32 27 20 20 20 20 20 20 20 20 20 ┆ MOVE GSWBCD2,GSWBIN2 6 P MUL GSWBCD2,=D'2' ┆
0x1c6e…1cbe 4e 45 58 54 20 42 49 54 00 12 00 26 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 4e 56 45 52 54 20 00 12 00 60 00 3e 00 50 20 20 20 20 20 20 ┆NEXT BIT & 6 P MOVE GSWBIN2,GSWBCD2 CONVERT ` > P ┆
0x1cbe…1d0e 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 9a 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 43 42 47 20 20 20 20 20 20 20 ┆ SUB GTWBCD1,=D'1' UPDATE BCD BITNR : P CBG ┆
0x1d0e…1d5e 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 00 dc 00 0a 00 50 47 45 54 52 45 54 00 12 01 1a 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 12 01 28 00 12 00 50 20 20 ┆GTWBCD1,=D'1',GET10 NO BIT FOUND PGETRET P RET ( P ┆
0x1d5e…1dae 20 20 20 20 20 20 20 20 50 45 4e 44 00 12 01 3e 00 0a 00 50 5c 45 4a 45 43 54 00 12 01 54 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 ┆ PEND > P EJECT T > P**********************************************┆
0x1dae…1db0 (19, 0, 400) 2a 2a ┆**┆
0x1db0…1e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 01 62 00 06 00 50 2a 20 00 13 00 14 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 1e 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 13 00 3e 00 3e 00 50 2a 20 ┆********** b P* P* RANDOM WRITE P* CALL: > > P* ┆
0x1e00…1e50 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 50 00 06 00 50 2a 20 00 13 00 92 00 3e 00 50 2a 20 20 20 20 20 ┆ PERF RAWRIT,<DATASET>,<SETNR>,<BUFFER>,<RECNR> P P* > P* ┆
0x1e50…1e7e 20 20 20 20 57 52 49 54 45 53 20 52 45 43 4f 52 44 20 20 52 41 4e 44 4f 4d 20 41 4e 44 20 50 45 52 46 4f 52 4d 53 20 54 48 45 20 4e 45 43 ┆ WRITES RECORD RANDOM AND PERFORMS THE NEC┆
0x1e7e…6694 […elided…]
0x6694…66d0 49 4e 33 2c 47 53 57 42 43 44 35 20 43 4f 4e 56 45 52 54 20 00 41 01 06 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 00 41 01 2c 00 14 00 50 5c 42 45 20 52 47 ┆IN3,GSWBCD5 CONVERT A P CMP GSWBIN3,CBIN2 A , P BE RG┆
0x66d0…6712 52 32 31 30 5c 44 41 54 45 20 00 41 01 46 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 41 01 5e 00 0e 00 50 5c 42 45 20 52 47 52 32 30 30 00 41 01 80 ┆R210 DATE A F P CBL GSWBIN3,CBIN4,RGR030 A ^ P BE RGR200 A ┆
0x6712…6762 (66, 0, 400) 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 42 00 04 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 ┆ . P CBNE GSWBIN3,CBIN13,RGR036 ARKIV.KNT.NO. B $ P TBT CWFLAG,RGR030 NOT KOL┆
0x6762…67b2 44 53 54 41 52 54 00 42 00 36 00 0a 00 50 52 47 52 30 33 36 00 42 00 5e 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 42 00 6c 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c ┆DSTART B 6 PRGR036 B ^ " P UPDATE GTDUPF,GTREGF,GTUSED B l 2 P MOVE GSWBIN4,┆
0x67b2…6802 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 42 00 92 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 42 00 c8 00 28 00 50 20 43 ┆CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR B " P MOVE GTUSED(GSWBIN4),GSWBIN3 B ( P C┆
0x6802…6852 42 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 39 30 27 2c 52 47 52 30 33 36 41 20 00 42 00 ee 00 28 00 50 20 43 42 47 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 39 34 27 2c 52 47 52 30 33 36 41 20 00 42 ┆BL GTUSED(GSWBIN4),=W'90',RGR036A B ( P CBG GTUSED(GSWBIN4),=W'94',RGR036A B┆
0x6852…68a2 01 1a 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 42 01 46 00 0c 00 50 52 47 52 30 33 36 41 20 00 42 01 58 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 42 01 68 00 22 00 50 20 4d ┆ P B RGR030 B F PRGR036A B X " P MOVE GTDUPF(GSWBIN4),GSWSTR20 B h " P M┆
0x68a2…68f2 (67, 0, 400) 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 42 01 8e 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 43 00 24 00 34 00 50 ┆OVE GTREGF(GSWBIN4),GSWSTR20 B ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? C $ 4 P┆
0x68f2…6942 20 43 42 47 20 47 54 52 45 47 44 45 58 2c 43 42 49 4e 31 35 2c 52 47 52 30 33 36 44 20 4f 4e 4c 59 20 46 4f 52 20 54 52 41 4e 53 20 31 2d 32 39 00 43 00 50 00 36 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 36 2c 52 47 52 30 ┆ CBG GTREGDEX,CBIN15,RGR036D ONLY FOR TRANS 1-29 C P 6 P CBNE GSWBIN3,CBIN6,RGR0┆
0x6942…6992 33 36 44 20 4f 4e 4c 59 20 46 49 45 4c 44 20 36 2c 20 43 50 52 2f 43 49 52 20 00 43 00 88 00 18 00 50 5c 5c 5c 48 41 4e 44 4c 45 20 43 50 52 2f 43 49 52 20 4e 4f 00 43 00 c2 00 0e 00 50 20 53 45 54 20 42 43 50 52 20 00 43 00 de 00 2e 00 50 ┆36D ONLY FIELD 6, CPR/CIR C P HANDLE CPR/CIR NO C P SET BCPR C . P┆
0x6992…69e2 20 43 42 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 31 30 30 30 30 30 30 30 27 2c 52 47 52 30 33 36 43 20 00 43 00 f0 00 0e 00 50 20 53 45 54 20 42 4c 45 56 20 00 43 01 22 00 30 00 50 20 43 42 47 20 47 54 44 55 50 46 28 ┆ CBL GTDUPF(GSWBIN4),=D'10000000',RGR036C C P SET BLEV C " 0 P CBG GTDUPF(┆
0x69e2…6a32 47 53 57 42 49 4e 34 29 2c 3d 44 27 33 39 30 30 30 30 30 30 30 30 27 2c 52 47 52 30 33 36 44 20 00 43 01 34 00 10 00 50 20 43 4c 45 41 52 20 42 4c 45 56 20 00 43 01 68 00 0e 00 50 20 42 20 52 47 52 30 33 36 44 00 43 01 7c 00 0c 00 50 52 47 ┆GSWBIN4),=D'3900000000',RGR036D C 4 P CLEAR BLEV C h P B RGR036D C | PRG┆
0x6a32…6a82 (68, 0, 400) 52 30 33 36 43 20 00 43 01 8e 00 10 00 50 20 43 4c 45 41 52 20 42 43 50 52 20 00 44 00 0e 00 0c 00 50 52 47 52 30 33 36 44 20 00 44 00 22 00 1c 00 50 5c 5c 5c 45 4e 44 20 48 41 4e 44 4c 45 20 43 50 52 2f 43 49 52 20 4e 4f 00 44 00 32 00 1a ┆R036C C P CLEAR BCPR D PRGR036D D " P END HANDLE CPR/CIR NO D 2 ┆
0x6a82…6ad2 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 44 00 52 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 44 00 70 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 27 2d 27 20 ┆ P CHECK IF WITH SIGN D R P MOVE GSWBIN3,CBIN0 D p P MOVE GSWSTR2,=C'-' ┆
0x6ad2…6b22 00 44 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 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 44 00 a8 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 44 ┆ D 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 D P BNE RGR040 D┆
0x6b22…6b72 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 44 00 f6 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 44 01 1a 00 20 00 50 20 4d ┆ P MUL GTUSED(GSWBIN4),=W'-1' D P MUL GTDUPF(GSWBIN4),=D'-1' D P M┆
0x6b72…6bc2 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 44 01 3e 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 44 01 62 00 0a 00 50 52 47 52 30 33 37 00 44 01 74 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 35 2c ┆UL GTREGF(GSWBIN4),=D'-1' D > P B RGR030 D b PRGR037 D t * P MOVE GSWBCD5,┆
0x6bc2…6c12 (69, 0, 400) 47 53 57 53 54 52 32 20 43 4f 4e 56 45 52 54 20 46 49 45 4c 44 4e 42 52 00 44 01 82 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 47 53 57 42 43 44 35 20 54 4f 20 42 49 4e 00 45 00 20 00 10 00 50 20 53 45 54 20 54 46 45 4c 54 39 30 ┆GSWSTR2 CONVERT FIELDNBR D P MOVE GSWBIN1,GSWBCD5 TO BIN E P SET TFELT90┆
0x6c12…6c62 00 45 00 44 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 3d 57 27 38 39 27 20 00 45 00 58 00 1e 00 50 20 43 42 47 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 35 2c 52 47 52 30 33 35 41 00 45 00 74 00 3a 00 50 20 58 43 4f 50 59 20 47 54 46 ┆ E D P SUB GSWBIN1,=W'89' E X P CBG GSWBIN1,CBIN5,RGR035A E t : P XCOPY GTF┆
0x6c62…6cb2 45 4c 54 39 30 28 47 53 57 42 49 4e 31 29 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 45 00 96 00 0e 00 50 20 42 20 52 47 52 30 33 35 41 00 45 00 d4 00 0a 00 50 52 47 52 30 34 30 00 45 00 e6 ┆ELT90(GSWBIN1),CBIN0,GSWBIN3,CPCKBUF,GSWBIN4 E P B RGR035A E PRGR040 E ┆
0x6cb2…6d02 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 45 00 f4 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 ┆ P MOVE GSWBIN3,CBIN0 E 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBI┆
0x6d02…6d52 4e 31 00 45 01 10 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 45 01 4a 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 45 01 5e 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 45 01 82 ┆N1 E P BNE RGR030 E J P MUL GTUSED(GSWBIN4),=W'-1' E ^ P B RGR030 E ┆
0x6d52…6da2 (70, 0, 400) 00 1a 00 50 52 47 52 30 36 30 5c 5c 5c 53 45 54 20 44 2f 4b 20 49 4e 46 4f 20 00 46 00 04 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 46 00 22 00 20 00 50 20 50 45 52 46 49 20 47 ┆ PRGR060 SET D/K INFO F " P MOVE GSWBIN3,GTDUPF(GSWBIN4) F " P PERFI G┆
0x6da2…6df2 53 57 42 49 4e 33 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 46 00 48 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 46 00 6c 00 0a 00 50 52 47 52 31 30 30 00 46 00 7e 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 46 00 8c ┆SWBIN3,SETKRE,SETDEB F H P B RGR030 F l PRGR100 F ~ P END OF RECORD F ┆
0x6df2…6e42 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 00 46 00 a4 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 46 00 c0 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 ┆ P MOVE GSWSTR2,=X'7F' F " P MOVE GSWBIN6,GSWBIN4 RESTORE F 6 P MATCH CPC┆
0x6e42…6e92 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 46 00 e6 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 46 01 20 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 ┆KBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 F P BNE RGR110 F P SET CEORFLG┆
0x6e92…6ee2 00 46 01 34 00 0e 00 50 20 42 20 52 47 52 30 33 35 20 00 46 01 48 00 0a 00 50 52 47 52 31 31 30 00 46 01 5a 00 22 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 27 21 27 20 43 4f 4e 54 2e 52 45 43 4f 52 44 00 46 01 68 00 1a 00 50 20 4d ┆ F 4 P B RGR035 F H PRGR110 F Z " P MOVE GSWSTR2,='!' CONT.RECORD F h P M┆
0x6ee2…6f32 (71, 0, 400) 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 00 46 01 8e 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 47 ┆OVE GSWBIN6,GSWBIN4 F 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 G┆
0x6f32…6f82 00 1c 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 00 47 00 56 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 47 00 6a 00 1a 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 43 50 43 4b ┆ P BNE RGRRET2 G V P DLETE CPCKBUF,CBIN0,GSWBIN4 G j P MOVE SPINPUT,CPCK┆
0x6f82…6fd2 42 55 46 20 00 47 00 8e 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 47 00 ac 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 47 00 c6 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c 43 42 49 4e ┆BUF G P ADD CTWBIN1,CBIN1 G P TBT CWFLAG,RGR113 G P ADD CRECNR,CBIN┆
0x6fd2…7022 31 20 4b 4f 4c 44 53 54 41 52 54 20 00 47 00 e0 00 0a 00 50 52 47 52 31 31 33 00 47 01 04 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 47 01 12 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 ┆1 KOLDSTART G PRGR113 G P ADD GSWBCD2,=D'1' G P MOVE GSWBIN1,=W'128┆
0x7022…7072 27 20 00 47 01 2c 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 30 2c 43 54 57 42 49 4e 31 00 47 01 4a 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 ┆' G , P MOVE GSWBIN10,CTWBIN1 G J 2 P PERF RAREAD,DSET,$DNR,CPCKBUF,GSWBIN1,C┆
0x7072…70c2 (72, 0, 400) 54 57 42 49 4e 31 00 47 01 68 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 48 00 0e 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 48 00 24 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 ┆TWBIN1 G h P BNOK RGRRET2 H P DELETE HEADER H $ P DLETE CPCKBUF,CBIN0┆
0x70c2…7112 2c 43 42 49 4e 31 31 20 00 48 00 3c 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 20 49 4e 46 4f 20 00 48 00 60 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 43 42 4c 41 ┆,CBIN11 H < * P MOVE GSWBIN6,CBIN0 INSERT SAVED INFO H ` P MOVE GSWSTR2,CBLA┆
0x7112…7162 4e 4b 53 20 00 48 00 8e 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 48 00 ac 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 48 00 d0 00 0a 00 50 52 47 52 31 ┆NKS H P CBE CRECLGD,=W'128',RGR115 H P MOVE GSWSTR2,=X'00' H PRGR1┆
0x7162…71b2 31 35 00 48 00 ec 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 33 35 27 00 48 00 fa 00 36 00 50 20 4d 41 54 43 48 20 53 50 49 4e 50 55 54 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 31 2c 47 53 57 53 54 52 32 2c 43 42 49 ┆15 H P MOVE GSWBIN1,=W'35' H 6 P MATCH SPINPUT,GSWBIN6,GSWBIN1,GSWSTR2,CBI┆
0x71b2…7202 4e 30 2c 43 42 49 4e 31 00 48 01 16 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 48 01 50 00 2e 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 53 50 49 4e 50 55 54 2c 43 ┆N0,CBIN1 H P SUB GSWBIN6,CBIN1 H P . P INSRT CPCKBUF,CBIN0,GSWBIN6,SPINPUT,C┆
0x7202…7252 (73, 0, 400) 42 49 4e 30 00 48 01 6a 00 16 00 50 2a 20 46 49 4e 44 20 54 52 55 45 20 4c 45 4e 47 54 48 00 49 00 0c 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 37 2c 43 52 45 43 4c 47 44 20 00 49 00 26 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 37 ┆BIN0 H j P* FIND TRUE LENGTH I P MOVE GSWBIN7,CRECLGD I & P SUB GSWBIN7┆
0x7252…72a2 2c 43 42 49 4e 31 31 20 00 49 00 44 00 18 00 50 20 41 44 44 20 47 53 57 42 49 4e 37 2c 47 53 57 42 49 4e 36 00 49 00 60 00 06 00 50 2a 20 00 49 00 7c 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 49 00 86 00 2a ┆,CBIN11 I D P ADD GSWBIN7,GSWBIN6 I ` P* I | P MOVE GSWBIN6,CBIN0 I *┆
0x72a2…72f2 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 2e 20 4e 4f 00 49 00 a2 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 49 00 d0 00 0a 00 50 52 47 52 32 30 30 00 49 00 e2 00 1a 00 50 ┆ P ADD GSWBCD3,=D'1' UPDATE LOG. REC. NO I P B RGR032 I PRGR200 I P┆
0x72f2…7342 20 4d 4f 56 45 20 47 54 4c 42 4e 52 2c 47 53 57 53 54 52 32 30 20 00 49 00 f0 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 00 49 01 0e 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 ┆ MOVE GTLBNR,GSWSTR20 I P TBT CWFLAG,RGR205 I $ P MOVE TTLBNR,GTLBNR IN K┆
0x7342…7392 4f 4c 44 53 54 41 52 54 00 49 01 28 00 0a 00 50 52 47 52 32 30 35 00 49 01 50 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 49 01 5e 00 0a 00 50 52 47 52 32 31 30 00 49 01 70 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 ┆OLDSTART I ( PRGR205 I P P B RGR030 I ^ PRGR210 I p P TBT CWFLAG,RGR220┆
0x7392…73e2 (74, 0, 400) 00 49 01 7e 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 44 53 54 41 52 54 00 4a 00 08 00 0a 00 50 52 47 52 32 32 30 00 4a 00 32 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 4a 00 40 00 0c ┆ I ~ & P MOVE GTDATO,GSWSTR20 IF COLDSTART J PRGR220 J 2 P B RGR030 J @ ┆
0x73e2…7432 00 50 52 47 52 52 45 54 32 20 00 4a 00 52 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 4a 00 62 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 4a 00 82 00 22 00 50 20 43 4d 50 20 43 ┆ PRGRRET2 J R P CLEAR CPFLG DISK FREE J b P CLEAR GTSWFLAG J " P CMP C┆
0x7432…7482 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 4a 00 9a 00 08 00 50 20 52 45 54 00 4a 00 c0 00 0c 00 50 52 47 52 52 45 54 31 20 00 4a 00 cc 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 ┆BIN0,CBIN1 CR=2, NOT OK J P RET J PRGRRET1 J P CLEAR CPFLG DISK F┆
0x7482…74d2 52 45 45 20 00 4a 00 dc 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 4a 00 fc 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 4a 01 12 00 08 00 50 20 52 45 54 00 4a 01 36 00 0a ┆REE J P SET GTSWFLAG J P CMP CBIN1,CBIN0 CR=1, TR=11 J P RET J 6 ┆
0x74d2…7522 00 50 52 47 52 52 45 54 00 4a 01 42 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 4a 01 50 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 4a 01 70 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 ┆ PRGRRET J B P CLEAR CPFLG DISK FREE J P P SET TTEORFLG J p P CLEAR GTS┆
0x7522…7572 (75, 2, 362) 57 46 4c 41 47 20 00 4a 01 86 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 20 4f 4b 20 00 4b 00 0e 00 08 00 50 20 52 45 54 00 4b 00 30 00 0a 00 50 20 50 45 4e 44 20 00 4b 00 3c 00 0a 00 50 20 45 4a 45 43 54 ┆WFLAG J P CMP CBIN0,CBIN0 CR=0, OK K P RET K 0 P PEND K < P EJECT┆
0x7572…75c2 00 4b 00 4a 00 12 00 50 57 41 49 54 46 20 50 52 4f 43 20 42 4f 4f 00 4b 00 58 00 22 00 50 2a 20 20 20 20 20 57 41 49 54 20 46 4f 52 20 42 4f 4f 20 54 4f 20 42 45 20 46 41 4c 53 45 00 4b 00 6e 00 1a 00 50 2a 20 20 20 20 20 54 48 45 4e 20 53 ┆ K J PWAITF PROC BOO K X " P* WAIT FOR BOO TO BE FALSE K n P* THEN S┆
0x75c2…7612 45 54 20 49 54 20 54 52 55 45 00 4b 00 94 00 0a 00 50 57 41 49 54 31 30 00 4b 00 b2 00 14 00 50 20 54 42 46 20 42 4f 4f 2c 57 41 49 54 39 30 20 00 4b 00 c0 00 1c 00 50 20 44 45 4c 41 59 20 43 42 49 4e 32 20 57 41 49 54 20 32 30 30 20 4d 53 ┆ET IT TRUE K PWAIT10 K P TBF BOO,WAIT90 K P DELAY CBIN2 WAIT 200 MS┆
0x7612…7662 00 4b 00 d8 00 1c 00 50 20 42 20 57 41 49 54 31 30 20 54 52 59 20 4f 4e 43 45 20 4d 4f 52 45 20 00 4b 00 f8 00 0a 00 50 57 41 49 54 39 30 00 4b 01 18 00 0c 00 50 20 53 45 54 20 42 4f 4f 00 4b 01 26 00 08 00 50 20 52 45 54 00 4b 01 36 00 0a ┆ K P B WAIT10 TRY ONCE MORE K PWAIT90 K P SET BOO K & P RET K 6 ┆
0x7662…768c 00 50 20 50 45 4e 44 20 00 4b 01 42 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 4b 01 50 40 04 00 00 00 4b 01 66 ┆ P PEND K B P END K P@ K f┆
0x768c…7694 (76, 1, 8) 20 04 00 00 00 4c 00 04 ┆ L ┆