|
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: 23662 (0x5c6e)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/DKSUBS.SC«
IDENT DKSUBS 830929 EV
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.
* 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
*
MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME
ASSG10
MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME
*
MOVE GSWBCD3,ASFNAME
CBE GSWBCD3,=D'0',ASSGERR
MOVE GSWBCD3,ASVOL
CBE GSWBCD3,=D'0',ASSGERR
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
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, 398) Head {h00=0x001c, h01=0x0050, text=» IDENT DKSUBS 830929 EV «, t00=0x0000, t01=0x0004}
0x0020…003e Head {h00=0x001a, h01=0x0050, text=» DDUM KMD08«, t00=0x0000, t01=0x0024}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» PDIV«, t00=0x0000, t01=0x0042}
0x0054…006a Head {h00=0x0012, h01=0x0050, text=» ENTRY RAREAD «, t00=0x0000, t01=0x0058}
0x006a…0080 Head {h00=0x0012, h01=0x0050, text=» ENTRY RAWRIT «, t00=0x0000, t01=0x006e}
0x0080…0096 Head {h00=0x0012, h01=0x0050, text=» ENTRY SQREAD «, t00=0x0000, t01=0x0084}
0x0096…00ac Head {h00=0x0012, h01=0x0050, text=» ENTRY SQWRIT «, t00=0x0000, t01=0x009a}
0x00ac…00c0 Head {h00=0x0010, h01=0x0050, text=» ENTRY ASSG «, t00=0x0000, t01=0x00b0}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» ENTRY RGREAD «, t00=0x0000, t01=0x00c4}
0x00d6…00ea Head {h00=0x0010, h01=0x0050, text=» ENTRY RADEL«, t00=0x0000, t01=0x00da}
0x00ea…0100 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETBIT «, t00=0x0000, t01=0x00ee}
0x0100…0114 Head {h00=0x0010, h01=0x0050, text=» ENTRY ERDK «, t00=0x0000, t01=0x0104}
0x0114…012a Head {h00=0x0012, h01=0x0050, text=» ENTRY BACKUP «, t00=0x0000, t01=0x0118}
0x012a…0140 Head {h00=0x0012, h01=0x0050, text=» ENTRY RSTORE «, t00=0x0000, t01=0x012e}
0x0140…0152 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0144}
0x0152…0166 Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x0156}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0004}
0x01a2…01b4 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0018}
0x01b4…01c8 Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x002a}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x003e}
0x01dc…01fc Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x0052}
0x01fc…0236 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0072}
0x0236…0240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0240…0278 Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x00b6}
0x0278…02a6 Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0001, t01=0x00ee}
0x02a6…02d4 Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0001, t01=0x011c}
0x02d4…02fe Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0001, t01=0x014a}
0x02fe…0328 Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0001, t01=0x0174}
0x0328…0356 Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x000e}
0x0356…0396 Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x003c}
0x0396…03ca Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x007c}
0x03ca…0404 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00b0}
0x0404…041c Head {h00=0x0014, h01=0x0050, text=» EJECT «, t00=0x0002, t01=0x00ea}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0426…0454 Head {h00=0x002a, h01=0x0050, text=»* ASSG - ASSIGN ROUTINE«, t00=0x0002, t01=0x010c}
0x0454…0492 Head {h00=0x003a, h01=0x0050, text=»* THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED«, t00=0x0002, t01=0x013a}
0x0492…04c0 Head {h00=0x002a, h01=0x0050, text=»* DATASETNAME TO A VOLUMENAME. «, t00=0x0002, t01=0x0178}
0x04c0…04e6 Head {h00=0x0022, h01=0x0050, text=»* ON SPECIFIED VOLUME«, t00=0x0003, t01=0x0016}
0x04e6…04f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f0…051a Head {h00=0x0026, h01=0x0050, text=»* ALTERED PARAMETERS: NONE «, t00=0x0003, t01=0x0046}
0x051a…0524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0524…056a Head {h00=0x0042, h01=0x0050, text=»* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 «, t00=0x0003, t01=0x007a}
0x056a…05ae Head {h00=0x0040, h01=0x0050, text=»* GSWBIN1 - OK - ATTEMPTNR NOK - 5«, t00=0x0003, t01=0x00c0}
0x05ae…05e4 Head {h00=0x0032, h01=0x0050, text=»* ASFNAME - DATASETNAME«, t00=0x0003, t01=0x0104}
0x05e4…062c Head {h00=0x0044, h01=0x0050, text=»* ASVOL - OK - VOLUMENAME NOK - X'00'«, t00=0x0003, t01=0x013a}
0x062c…0678 Head {h00=0x0048, h01=0x0050, text=»* GTWBCD1 - OK - N/A NOK - ATTEMPT+1«, t00=0x0003, t01=0x0182}
0x0678…06c4 Head {h00=0x0048, h01=0x0050, text=»* GTWBCD2 - OK - N/A NOK - DATASETNR«, t00=0x0004, t01=0x003e}
0x06c4…06ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x06ce…06f2 Head {h00=0x0020, h01=0x0050, text=»* C/R: OK - 0, NOK - 4«, t00=0x0004, t01=0x0094}
0x06f2…06fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b8}
0x06fc…0740 Head {h00=0x0040, h01=0x0050, text=»* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>«, t00=0x0004, t01=0x00c2}
0x0740…074a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074a…078e Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x0110}
0x078e…0798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0154}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a2…07be Head {h00=0x0018, h01=0x0050, text=»ASSG PROC VOL,DK,DNR«, t00=0x0004, t01=0x0168}
0x07be…07e2 Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW4,CBIN0 INITIATE«, t00=0x0004, t01=0x0184}
0x07e2…07fc Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN1,VOL «, t00=0x0005, t01=0x0018}
0x07fc…0806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0806…0838 Head {h00=0x002e, h01=0x0050, text=» MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME«, t00=0x0005, t01=0x003c}
0x0838…0846 Head {h00=0x000a, h01=0x0050, text=»ASSG10«, t00=0x0005, t01=0x006e}
0x0846…0878 Head {h00=0x002e, h01=0x0050, text=» MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME«, t00=0x0005, t01=0x007c}
0x0878…0882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ae}
0x0882…08a0 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,ASFNAME «, t00=0x0005, t01=0x00b8}
0x08a0…08c2 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGERR«, t00=0x0005, t01=0x00d6}
0x08c2…08de Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,ASVOL «, t00=0x0005, t01=0x00f8}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGERR«, t00=0x0005, t01=0x0114}
0x0900…0922 Head {h00=0x001e, h01=0x0050, text=» DSC0 DK,CLOSE CLOSE FIRST«, t00=0x0005, t01=0x0136}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092c…0956 Head {h00=0x0026, h01=0x0050, text=» ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL«, t00=0x0005, t01=0x0162}
0x0956…097a Head {h00=0x0020, h01=0x0050, text=» BOK ASSGRET IF OK, RETURN«, t00=0x0005, t01=0x018c}
0x097a…098a Head {h00=0x000c, h01=0x0050, text=»ASSGERR «, t00=0x0006, t01=0x0020}
0x098a…09cc Head {h00=0x003e, h01=0x0050, text=»* ASSIGNMENT IMPOSSIBLE«, t00=0x0006, t01=0x0030}
0x09cc…0a00 Head {h00=0x0030, h01=0x0050, text=» MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)«, t00=0x0006, t01=0x0072}
0x0a00…0a1c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0006, t01=0x00a6}
0x0a1c…0a36 Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0006, t01=0x00c2}
0x0a36…0a58 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'ASSIGN ' «, t00=0x0006, t01=0x00dc}
0x0a58…0a7c Head {h00=0x0020, h01=0x0050, text=» PERF SPERR 'ASSIGN ERROR' «, t00=0x0006, t01=0x00fe}
0x0a7c…0a94 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0006, t01=0x0122}
0x0a94…0aa0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x013a}
0x0aa0…0ab0 Head {h00=0x000c, h01=0x0050, text=»ASSGRET «, t00=0x0006, t01=0x0146}
0x0ab0…0ac6 Head {h00=0x0012, h01=0x0050, text=» CLEAR CDKOFF «, t00=0x0006, t01=0x0156}
0x0ac6…0ade Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0006, t01=0x016c}
0x0ade…0aea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0184}
0x0aea…0af8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0190}
0x0af8…0b06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x000e}
0x0b06…0b40 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0007, t01=0x001c}
0x0b40…0b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4a…0b78 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0007, t01=0x0060}
0x0b78…0bc6 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0007, t01=0x008e}
0x0bc6…0bda Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0007, t01=0x00dc}
0x0bda…0c0e Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0007, t01=0x00f0}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c18…0c46 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0007, t01=0x012e}
0x0c46…0c84 Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0007, t01=0x015c}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000a}
0x0c8e…0cda Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0008, t01=0x0014}
0x0cda…0ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0060}
0x0ce4…0d26 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0008, t01=0x006a}
0x0d26…0d2a Head {h00=0x0054, h01=0x0050}
0x0d2a…0d2e Head {h00=0x2a20, h01=0x2020}
0x0d2e…0d70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 42 49 4e 57 34 20 2d 20 4f 4b 20 2d 20 30 20 20 20 20 20 20 20 20 20 4e 4f 4b 20 2d 20 41 4c 54 45 52 45 44 20 42 59 20 44 49 53 45 52 ┆ SPBINW4 - OK - 0 NOK - ALTERED BY DISER┆
0x0d70…0dc0 52 4f 52 52 4f 55 54 49 4e 45 00 08 00 ac 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 08 01 04 00 06 00 50 2a 20 00 08 01 2e 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RORROUTINE & P* GTWBCD1 - 0 P* . 8 P**********┆
0x0dc0…0e0e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 08 01 38 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 ┆****************************************** 8 0 PRAREAD PROC DSET,$NR┆
0x0e0e…0e5e (9, 0, 400) 2c 42 55 46 2c 4c 45 4e 47 2c 52 45 43 4e 52 20 00 08 01 74 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 09 00 18 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 ┆,BUF,LENG,RECNR t P PLIT $NR : P MOVE GSWBIN1,LENG ┆
0x0e5e…0eae 20 20 20 20 20 47 45 54 20 4c 45 4e 47 54 48 20 00 09 00 2a 00 38 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 20 20 20 20 20 20 20 20 20 20 5a 45 52 4f 49 53 45 20 00 09 00 68 ┆ GET LENGTH * 8 P MOVE SPBINW4,CBIN0 ZEROISE h┆
0x0eae…0efe 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 09 00 a4 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 52 52 45 41 44 20 20 20 20 20 44 53 45 54 2c 42 55 46 2c 47 53 57 42 49 4e 31 2c 52 45 43 4e 52 20 20 52 45 41 44 ┆ P MOVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSWBIN1,RECNR READ┆
0x0efe…0f4e 20 52 45 43 4f 52 44 20 00 09 00 c0 00 34 00 50 20 20 20 20 20 20 20 20 20 20 42 45 4f 46 20 20 20 20 20 20 52 41 52 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4b 20 3f 00 09 01 00 00 1e 00 50 20 20 20 20 20 20 20 20 ┆ RECORD 4 P BEOF RAR10 OK ? P ┆
0x0f4e…0f9e 20 20 42 4f 4b 20 20 20 20 20 20 20 52 41 52 31 30 20 00 09 01 38 00 32 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 20 45 52 44 4b 2c 44 53 45 54 2c 24 4e 52 20 20 20 20 20 20 20 20 20 20 20 4e 4f 00 09 01 5a 00 0a 00 50 ┆ BOK RAR10 8 2 P PERF ERDK,DSET,$NR NO Z P┆
0x0f9e…0fee (10, 0, 400) 52 41 52 31 30 20 00 09 01 90 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 00 0e 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 ┆RAR10 & P TBT GTEXFLAG,RAR20 D P DSC0 DSET┆
0x0fee…103e 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 00 38 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 0a 00 80 ┆,RACCS RELEASE EXCL. ACCES 8 PRAR20 CLEAR GTEXFLAG ┆
0x103e…108e 00 0c 00 50 20 53 57 49 54 43 48 20 00 0a 00 a4 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 20 53 45 54 20 43 52 20 00 0a 00 b4 00 12 00 50 ┆ P SWITCH 8 P CMP CBIN0,SPBINW4 SET CR P┆
0x108e…10de 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0a 00 f0 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0a 01 06 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0a 01 1c 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RET P PEND P EJECT > P************┆
0x10de…112e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 0a 01 34 00 06 00 50 2a 20 00 0a 01 76 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 44 49 53 43 20 45 ┆********************************************* 4 P* v * P* DISC E┆
0x112e…117e (11, 0, 398) 52 52 4f 52 20 52 4f 55 54 49 4e 45 20 20 20 20 20 20 45 52 44 4b 00 0a 01 80 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0b 00 1e 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 45 52 44 4b 2c 3c 44 41 54 41 53 45 54 3e 2c 3c 53 ┆RROR ROUTINE ERDK P* CALL: * P* PERF ERDK,<DATASET>,<S┆
0x117e…11ce 45 54 4e 52 3e 20 00 0b 00 30 00 06 00 50 2a 20 00 0b 00 5e 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 43 4f 44 45 20 49 4e 20 00 0b 00 68 00 24 00 50 ┆ETNR> 0 P* ^ 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN h $ P┆
0x11ce…121e 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 0b 00 a0 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 54 48 45 20 45 52 52 4f 52 43 4f 44 45 20 49 53 20 46 4f 55 4e 44 20 57 49 54 48 20 52 4f ┆* CASE OF ERROR ON DISC 8 P* THE ERRORCODE IS FOUND WITH RO┆
0x121e…126e 55 54 49 4e 45 20 47 45 54 42 49 54 00 0b 00 c8 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 45 45 4e 50 41 43 4b 41 47 45 00 0b 01 04 00 1a ┆UTINE GETBIT : P* AND THE TEXT IS DISPLAYED WITH SCREENPACKAGE ┆
0x126e…12bc 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 0b 01 42 00 06 00 50 2a 20 00 0b 01 60 00 1e 00 50 2a 20 41 4c 54 45 52 45 44 20 50 41 52 41 4d 45 54 45 52 53 3a 20 4e 4f 4e 45 00 0b 01 6a 00 06 00 50 2a 20 ┆ P* ENTRY SPERR B P* ` P* ALTERED PARAMETERS: NONE j P* ┆
0x12bc…130c (12, 0, 400) 00 0b 01 8c 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 00 08 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ : P* ALTERED FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 * P* ┆
0x130c…135c 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 0c 00 46 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 4e 57 46 4c 47 20 2d 20 46 41 4c 53 45 20 00 0c 00 74 00 26 00 50 2a 20 ┆ GTWBCD2 - ERRORCODE F & P* GTNWFLG - FALSE t & P* ┆
0x135c…13ac 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 0c 00 9e 00 06 00 50 2a 20 00 0c 00 c8 00 06 00 50 2a 20 00 0c 00 d2 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ SPKEYFLG - TRUE P* P* B P********************┆
0x13ac…13fc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 00 dc 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 0c ┆***************************************** PERDK PROC DSET,$NR ┆
0x13fc…144c 01 22 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0c 01 46 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 2c 44 53 45 54 20 00 0c 01 58 00 26 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d 44 27 ┆ " P PLIT $NR F $ P PERF GETBIT,DSET X & P CBE GTWBCD1,=D'┆
0x144c…149c (13, 0, 400) 34 27 2c 45 52 44 4b 52 45 54 20 4e 4f 20 44 41 54 41 00 0c 01 80 00 26 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d 44 27 38 27 2c 45 52 44 4b 52 45 54 20 4e 45 57 20 56 4f 4c 00 0d 00 1a 00 30 00 50 20 43 42 45 20 47 54 57 42 43 44 31 ┆4',ERDKRET NO DATA & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL 0 P CBE GTWBCD1┆
0x149c…14ec 2c 3d 44 27 37 27 2c 45 52 44 4b 52 45 54 20 52 45 54 52 49 45 53 20 50 45 52 46 4f 52 4d 45 44 00 0d 00 44 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 ┆,=D'7',ERDKRET RETRIES PERFORMED D D P MOVE SPBINW4,CBIN21 ┆
0x14ec…153c 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 00 78 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) x : P MOVE GTWBCD2,$NR DATA┆
0x153c…158c 53 45 54 20 4e 52 00 0d 00 c0 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 0d 00 fe 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┆
0x158c…15dc 2c 45 52 44 4b 31 30 20 00 0d 01 36 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 0d 01 50 00 0a 00 50 45 52 44 4b 31 30 00 0d 01 82 00 3c 00 50 ┆,ERDK10 6 . P CLEAR SPKEYFLG NO KOR-KEY IF DISK ACCESS P PERDK10 < P┆
0x15dc…162c (14, 0, 400) 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 0d 01 90 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 ┆
0x162c…167c 00 40 00 10 00 50 20 53 45 54 20 47 54 4e 57 46 4c 47 00 0e 00 56 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 00 6a 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 00 0e 00 86 00 18 00 50 20 4d 4f 56 ┆ @ P SET GTNWFLG V P PERF WRITJT,=W'14' j P CLEAR GTNWFLG P MOV┆
0x167c…16cc 45 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 32 31 00 0e 00 9c 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 00 0e 00 b8 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0e 00 ca 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 ┆E SPBINW4,CBIN21 P B ERDKEND PERDKRET ( P MOVE SPBINW4,CBIN0 P┆
0x16cc…171c 52 45 50 41 52 45 20 46 4f 52 20 4f 4b 20 00 0e 00 da 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0e 01 06 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 0e 01 16 00 12 00 50 20 20 20 20 20 20 ┆REPARE FOR OK PERDKEND P CMP SPBINW4,CBIN0 SET CR P ┆
0x171c…176c 20 20 20 20 52 45 54 20 00 0e 01 3a 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0e 01 50 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0e 01 66 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ RET : P PEND P P EJECT f > P******************┆
0x176c…17bc (15, 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 00 0e 01 7e 00 06 00 50 2a 20 00 0f 00 30 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 00 0f 00 3a 00 0e ┆**************************************** ~ P* 0 P* GETBIT : ┆
0x17bc…180c 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0f 00 52 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 00 64 00 38 00 50 2a 20 20 20 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 20 46 ┆ P* CALL: R $ P* PERF GETBIT,<DATASET> d 8 P* THIS ROUTINE F┆
0x180c…185c 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 0f 00 8c 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 0f 00 c8 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 4e 3a 00 0f 00 e0 ┆INDS THE BIT IN THE EXTENDED P* STATUSWORD P* RETURN: ┆
0x185c…18ac 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 0f 00 f4 00 06 00 50 2a 20 00 0f 01 34 00 16 00 50 2a 20 ┆ < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD1=1 P* 4 P* ┆
0x18ac…18fc 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 0f 01 3e 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 0f 01 58 00 20 00 50 2a 20 ┆ALTERED FIELDS: > 2 P* GSWBIN1 - EXTENDED STATUSWORD X P* ┆
0x18fc…194c (16, 0, 400) 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 0f 01 8e 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 00 22 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GTWBCD1 - 1 P* GSWBIN2 " P* ┆
0x194c…199c 20 20 47 53 57 42 43 44 32 20 00 10 00 42 00 06 00 50 2a 20 00 10 00 62 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 00 6c 00 06 00 50 ┆ GSWBCD2 B P* b 0 P* CR: STATUS-FOUND - BNG, NO-BIT-FOUND: BNG l P┆
0x199c…19ec 2a 20 00 10 00 a0 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 10 00 aa 00 18 00 50 47 45 54 42 ┆* > P********************************************************** PGETB┆
0x19ec…1a3c 49 54 20 20 20 20 50 52 4f 43 20 44 53 45 54 20 00 10 00 ec 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 10 01 08 00 3a ┆IT PROC DSET 6 P XSTAT DSET,GSWBIN1 GET STATUS :┆
0x1a3c…1a8c 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 10 01 42 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 ┆ P MOVE GTWBCD1,=D'15' BIT NR IN BCD B : P MOVE ┆
0x1a8c…1adc (17, 0, 400) 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 10 01 80 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 ┆ GSWBIN2,CBIN1 BIT NR IN BIN > PGET10 CALL MASK,GSWBIN1,G┆
0x1adc…1b2c 53 57 42 49 4e 32 20 20 41 4e 44 20 57 49 54 48 20 53 54 41 54 55 53 20 00 11 00 2e 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 ┆SWBIN2 AND WITH STATUS . 4 P BNZ GETRET FOUND ┆
0x1b2c…1b7c 00 11 00 70 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 11 00 a8 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 ┆ p ( P MOVE GSWBCD2,GSWBIN2 6 P MUL GSWBCD2,┆
0x1b7c…1bcc 3d 44 27 32 27 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 42 49 54 00 11 00 d4 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 ┆=D'2' NEXT BIT 6 P MOVE GSWBIN2,GSWBCD2 CONVERT ┆
0x1bcc…1c1c 00 11 01 0e 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 11 01 48 00 3a 00 50 20 20 20 20 20 20 ┆ > P SUB GTWBCD1,=D'1' UPDATE BCD BITNR H : P ┆
0x1c1c…1c20 (18, 0, 400) 20 20 20 20 ┆ ┆
0x1c20…1c70 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 11 01 8a 00 0a 00 50 47 45 54 52 45 54 00 12 00 38 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 ┆CBG GTWBCD1,=D'1',GET10 NO BIT FOUND PGETRET 8 P RET ┆
0x1c70…1cc0 00 12 00 46 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 12 00 5c 00 0a 00 50 5c 45 4a 45 43 54 00 12 00 72 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 ┆ F P PEND P EJECT r > P************************************┆
0x1cc0…1d10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 12 00 80 00 06 00 50 2a 20 00 12 00 c2 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 12 00 cc 00 0e 00 50 2a 20 20 20 20 43 41 4c ┆********************** P* P* RANDOM WRITE P* CAL┆
0x1d10…1d2e 4c 3a 00 12 00 ec 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 52 41 57 52 ┆L: > P* PERF RAWR┆
0x1d2e…4c6e […elided…]
0x4c6e…4c88 41 54 45 20 00 30 01 6a 00 1e 00 50 20 43 42 4c 20 47 53 57 42 49 4e 33 2c 43 ┆ATE 0 j P CBL GSWBIN3,C┆
0x4c88…4cd8 (49, 0, 400) 42 49 4e 34 2c 52 47 52 30 33 30 20 00 30 01 82 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 34 00 31 00 14 00 0e 00 50 5c 42 45 20 52 47 52 32 30 30 00 31 00 2e 00 2e 00 50 20 43 42 4e 45 20 47 53 57 42 49 4e 33 2c 43 42 ┆BIN4,RGR030 0 P CMP GSWBIN3,CBIN4 1 P BE RGR200 1 . . P CBNE GSWBIN3,CB┆
0x4cd8…4d28 49 4e 31 33 2c 52 47 52 30 33 36 20 41 52 4b 49 56 2e 4b 4e 54 2e 4e 4f 2e 20 00 31 00 40 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 31 00 72 00 0a 00 50 52 47 52 30 33 36 ┆IN13,RGR036 ARKIV.KNT.NO. 1 @ $ P TBT CWFLAG,RGR030 NOT KOLDSTART 1 r PRGR036┆
0x4d28…4d78 00 31 00 9a 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 31 00 a8 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 ┆ 1 " P UPDATE GTDUPF,GTREGF,GTUSED 1 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSW┆
0x4d78…4dc8 42 49 4e 33 3d 46 49 45 4c 44 4e 52 00 31 00 ce 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 31 01 04 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 ┆BIN3=FIELDNR 1 " P MOVE GTUSED(GSWBIN4),GSWBIN3 1 " P MOVE GTDUPF(GSWBIN4),┆
0x4dc8…4e18 47 53 57 53 54 52 32 30 00 31 01 2a 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 31 01 50 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 ┆GSWSTR20 1 * " P MOVE GTREGF(GSWBIN4),GSWSTR20 1 P ( P CBE GSWBIN3,CBIN9,RGR060 ┆
0x4e18…4e68 (50, 0, 400) 44 2f 4b 20 4d 41 52 4b 3f 20 00 31 01 76 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 32 00 12 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 32 00 30 00 18 00 50 20 4d 4f 56 ┆D/K MARK? 1 v P CHECK IF WITH SIGN 2 P MOVE GSWBIN3,CBIN0 2 0 P MOV┆
0x4e68…4eb8 45 20 47 53 57 53 54 52 32 2c 3d 43 27 2d 27 20 00 32 00 4c 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 32 00 68 00 10 ┆E GSWSTR2,=C'-' 2 L 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 2 h ┆
0x4eb8…4f08 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 32 00 a2 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 32 00 b6 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 ┆ P BNE RGR040 2 P MUL GTUSED(GSWBIN4),=W'-1' 2 P MUL GTDUPF(GSWBIN4),=┆
0x4f08…4f58 44 27 2d 31 27 20 00 32 00 da 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 32 00 fe 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 32 01 22 00 0a 00 50 52 47 52 30 34 30 00 32 01 34 00 18 ┆D'-1' 2 P MUL GTREGF(GSWBIN4),=D'-1' 2 P B RGR030 2 " PRGR040 2 4 ┆
0x4f58…4fa8 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 32 01 42 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 ┆ P MOVE GSWBIN3,CBIN0 2 B 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1┆
0x4fa8…4ff8 (51, 0, 398) 00 32 01 5e 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 33 00 08 00 20 00 50 20 4d 55 4c 20 47 54 55 53 45 44 28 47 53 57 42 49 4e 34 29 2c 3d 57 27 2d 31 27 20 00 33 00 1c 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 00 40 00 1a ┆ 2 ^ P BNE RGR030 3 P MUL GTUSED(GSWBIN4),=W'-1' 3 P B RGR030 3 @ ┆
0x4ff8…5048 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 33 00 52 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 20 00 33 00 70 00 20 00 50 20 50 45 52 46 49 20 47 53 57 ┆ PRGR060 SET D/K INFO 3 R " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 3 p P PERFI GSW┆
0x5048…5098 42 49 4e 33 2c 53 45 54 4b 52 45 2c 53 45 54 44 45 42 00 33 00 96 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 00 ba 00 0a 00 50 52 47 52 31 30 30 00 33 00 cc 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 33 00 da 00 18 ┆BIN3,SETKRE,SETDEB 3 P B RGR030 3 PRGR100 3 P END OF RECORD 3 ┆
0x5098…50e8 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 37 46 27 00 33 00 f2 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 33 01 0e 00 36 00 50 20 4d 41 54 43 48 20 43 50 43 4b 42 ┆ P MOVE GSWSTR2,=X'7F' 3 " P MOVE GSWBIN6,GSWBIN4 RESTORE 3 6 P MATCH CPCKB┆
0x50e8…5136 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 33 01 34 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 33 01 6e 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 ┆UF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 3 4 P BNE RGR110 3 n P SET CEORFLG┆
0x5136…5186 (52, 0, 400) 00 33 01 82 00 0e 00 50 20 42 20 52 47 52 30 33 35 20 00 34 00 08 00 0a 00 50 52 47 52 31 31 30 00 34 00 1a 00 26 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 32 31 27 20 43 4f 4e 54 2e 20 52 45 43 4f 52 44 20 00 34 00 28 00 1a ┆ 3 P B RGR035 4 PRGR110 4 & P MOVE GSWSTR2,=X'21' CONT. RECORD 4 ( ┆
0x5186…51d6 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 00 34 00 52 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 ┆ P MOVE GSWBIN6,GSWBIN4 4 R 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBI┆
0x51d6…5226 4e 31 00 34 00 70 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 00 34 00 aa 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 34 00 be 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 ┆N1 4 p P BNE RGRRET2 4 P DLETE CPCKBUF,CBIN0,GSWBIN4 4 P MOVE GSWSTR20┆
0x5226…5276 2c 43 50 43 4b 42 55 46 00 34 00 e2 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 34 01 00 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 34 01 1a 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c ┆,CPCKBUF 4 P ADD CTWBIN1,CBIN1 4 P TBT CWFLAG,RGR113 4 P ADD CRECNR,┆
0x5276…52c6 43 42 49 4e 31 20 4b 4f 4c 44 53 54 41 52 54 20 00 34 01 34 00 0a 00 50 52 47 52 31 31 33 00 34 01 58 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 34 01 66 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 ┆CBIN1 KOLDSTART 4 4 PRGR113 4 X P ADD GSWBCD2,=D'1' 4 f P MOVE GSWBIN1,=W┆
0x52c6…5316 (53, 0, 400) 27 31 32 38 27 20 00 34 01 80 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 35 00 0e 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 ┆'128' 4 2 P PERF RAREAD,DSET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 5 P BNOK RGRRET┆
0x5316…5366 32 20 00 35 00 44 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 35 00 5a 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 43 42 49 4e 31 31 20 00 35 00 72 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 ┆2 5 D P DELETE HEADER 5 Z P DLETE CPCKBUF,CBIN0,CBIN11 5 r * P MOVE GSWB┆
0x5366…53b6 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 35 00 96 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 35 00 c4 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d ┆IN6,CBIN0 INSERT SAVED INFO 5 P MOVE GSWSTR2,CBLANKS 5 P CBE CRECLGD,=┆
0x53b6…5406 57 27 31 32 38 27 2c 52 47 52 31 31 35 20 00 35 00 e2 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 35 01 06 00 0a 00 50 52 47 52 31 31 35 00 35 01 22 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c ┆W'128',RGR115 5 P MOVE GSWSTR2,=X'00' 5 PRGR115 5 " 6 P MATCH GSWSTR20,┆
0x5406…5456 47 53 57 42 49 4e 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 35 01 30 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 35 01 6a 00 30 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 ┆GSWBIN6,CBIN19,GSWSTR2,CBIN0,CBIN1 5 0 P SUB GSWBIN6,CBIN1 5 j 0 P INSRT CPCKB┆
0x5456…54a6 (54, 0, 400) 55 46 2c 43 42 49 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 35 01 84 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 30 20 00 36 00 28 00 2a 00 50 20 41 44 44 20 47 53 57 42 43 44 33 ┆UF,CBIN0,GSWBIN6,GSWSTR20,CBIN0 5 P MOVE GSWBIN6,CBIN0 6 ( * P ADD GSWBCD3┆
0x54a6…54f6 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 36 00 44 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 36 00 72 00 0a 00 50 52 47 52 32 30 30 00 36 00 84 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 42 4e 52 2c 47 ┆,=D'1' UPDATE LOG. REC. NO 6 D P B RGR032 6 r PRGR200 6 P MOVE GTLBNR,G┆
0x54f6…5546 53 57 53 54 52 32 30 20 00 36 00 92 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 00 36 00 b0 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 36 00 ca 00 0a ┆SWSTR20 6 P TBT CWFLAG,RGR205 6 $ P MOVE TTLBNR,GTLBNR IN KOLDSTART 6 ┆
0x5546…5596 00 50 52 47 52 32 30 35 00 36 00 f2 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 36 01 00 00 0a 00 50 52 47 52 32 31 30 00 36 01 12 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 00 36 01 20 00 26 00 50 20 4d 4f 56 45 20 ┆ PRGR205 6 P B RGR030 6 PRGR210 6 P TBT CWFLAG,RGR220 6 & P MOVE ┆
0x5596…55e6 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 36 01 3a 00 0a 00 50 52 47 52 32 32 30 00 36 01 64 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 36 01 72 00 0c 00 50 52 47 52 52 45 54 32 20 00 36 01 84 ┆GTDATO,GSWSTR20 IF COLDSTART 6 : PRGR220 6 d P B RGR030 6 r PRGRRET2 6 ┆
0x55e6…5636 (55, 0, 400) 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 52 45 45 20 00 37 00 04 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 37 00 24 00 22 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 20 43 52 3d ┆ P CLEAR CPFLG DISK FREE 7 P CLEAR GTSWFLAG 7 $ " P CMP CBIN0,CBIN1 CR=┆
0x5636…5686 32 2c 20 4e 4f 54 20 4f 4b 20 00 37 00 3c 00 08 00 50 20 52 45 54 00 37 00 62 00 0c 00 50 52 47 52 52 45 54 31 20 00 37 00 6e 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 37 00 7e 00 0c 00 50 52 47 52 52 45 54 31 30 00 37 00 94 ┆2, NOT OK 7 < P RET 7 b PRGRRET1 7 n P SET GTSWFLAG 7 ~ PRGRRET10 7 ┆
0x5686…56d6 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b 20 46 52 45 45 20 00 37 00 a4 00 1c 00 50 5c 5c 5c 43 52 3d 31 2c 54 52 3d 31 31 2c 47 54 53 57 46 4c 41 47 3d 54 00 37 00 c4 00 2c 00 50 20 43 4d 50 20 43 42 49 4e 31 2c 43 ┆ P CLEAR CPFLG DISK FREE 7 P CR=1,TR=11,GTSWFLAG=T 7 , P CMP CBIN1,C┆
0x56d6…5726 42 49 4e 30 20 43 52 3d 31 2c 54 52 3e 3d 31 32 2c 47 54 53 57 46 4c 41 47 3d 46 20 00 37 00 e4 00 08 00 50 20 52 45 54 00 37 01 14 00 0a 00 50 52 47 52 52 45 54 00 37 01 20 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 53 4b ┆BIN0 CR=1,TR>=12,GTSWFLAG=F 7 P RET 7 PRGRRET 7 P CLEAR CPFLG DISK┆
0x5726…5776 20 46 52 45 45 20 00 37 01 2e 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 37 01 4e 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 37 01 64 00 1e 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 43 52 3d ┆ FREE 7 . P SET TTEORFLG 7 N P CLEAR GTSWFLAG 7 d P CMP CBIN0,CBIN0 CR=┆
0x5776…57b8 (56, 2, 66) 30 2c 20 4f 4b 20 00 37 01 7c 00 08 00 50 20 52 45 54 00 38 00 0e 00 0a 00 50 20 50 45 4e 44 20 00 38 00 1a 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 38 00 28 40 04 00 00 00 38 00 3e ┆0, OK 7 | P RET 8 P PEND 8 P END 8 (@ 8 >┆
0x57b8…57c0 (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x57c0…5810 (58, 0, 400) 4d 50 4f 4e 2c 3d 57 27 31 30 32 34 27 20 4c 41 4d 50 20 31 00 79 01 88 00 20 00 1b 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 31 32 38 27 20 4c 41 4d 50 20 34 20 00 7a 00 1c 00 1e 00 1a 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 ┆MPON,=W'1024' LAMP 1 y PERF LAMPON,=W'128' LAMP 4 z PERF LAMPON,=W'┆
0x5810…5860 31 36 27 20 4c 41 4d 50 20 37 00 7a 00 40 00 18 00 50 20 54 42 46 20 43 47 4c 52 45 47 46 4c 2c 42 43 4b 30 31 30 00 7a 00 62 00 20 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 35 31 32 27 20 4c 41 4d 50 20 32 20 00 7a 00 7e 00 0a ┆16' LAMP 7 z @ P TBF CGLREGFL,BCK010 z b P PERF LAMPON,=W'512' LAMP 2 z ~ ┆
0x5860…58b0 00 06 42 43 4b 30 31 30 00 7a 00 a2 00 1e 00 1a 20 50 45 52 46 20 53 4f 50 52 44 20 52 45 41 44 20 53 4f 50 20 4c 41 4d 50 53 00 7a 00 b0 00 14 00 0f 20 49 42 20 47 53 57 42 49 4e 32 2c 5c 5c 43 20 00 7a 00 d2 00 2c 00 28 5c 5c 42 53 4f 50 ┆ BCK010 z PERF SOPRD READ SOP LAMPS z IB GSWBIN2, C z , ( BSOP┆
0x58b0…5900 31 30 2c 42 53 4f 50 30 39 2c 42 53 4f 50 30 38 2c 42 53 4f 50 30 37 2c 42 53 4f 50 30 36 2c 5c 5c 43 00 7a 00 ea 00 28 00 24 5c 5c 42 53 4f 50 30 35 2c 42 53 4f 50 30 34 2c 42 53 4f 50 30 33 2c 42 53 4f 50 30 32 2c 42 53 4f 50 30 31 00 7a ┆10,BSOP09,BSOP08,BSOP07,BSOP06, C z ( $ BSOP05,BSOP04,BSOP03,BSOP02,BSOP01 z┆
0x5900…5950 01 1a 00 0a 00 06 42 53 4f 50 30 33 00 7a 01 46 00 0a 00 06 42 53 4f 50 30 35 00 7a 01 54 00 0a 00 06 42 53 4f 50 30 36 00 7a 01 62 00 0a 00 06 42 53 4f 50 30 38 00 7a 01 70 00 0a 00 06 42 53 4f 50 30 39 00 7a 01 7e 00 0a 00 06 42 53 4f 50 ┆ BSOP03 z F BSOP05 z T BSOP06 z b BSOP08 z p BSOP09 z ~ BSOP┆
0x5950…59a0 (59, 0, 398) 31 30 00 7a 01 8c 00 1a 00 15 20 42 20 42 43 4b 30 31 30 20 4f 54 48 45 52 20 4c 41 4d 50 53 20 00 7b 00 0a 00 06 00 50 2a 20 00 7b 00 28 00 1c 00 18 42 53 4f 50 30 31 5c 5c 5c 42 41 43 4b 55 50 20 46 44 39 39 39 30 30 31 00 7b 00 32 00 24 ┆10 z B BCK010 OTHER LAMPS { P* { ( BSOP01 BACKUP FD999001 { 2 $┆
0x59a0…59f0 00 1f 20 50 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 7b 00 52 00 20 00 1c 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 31 30 32 34 27 20 4c 41 4d 50 20 31 00 7b 00 7a 00 34 00 2f 20 50 ┆ PERF LAMPOF,=W'2047' LAMPS OFF { R PERF LAMPON,=W'1024' LAMP 1 { z 4 / P┆
0x59f0…5a40 45 52 46 20 42 41 43 4b 55 50 2c 44 4b 30 31 2c 3d 44 27 31 27 2c 3d 57 27 33 32 27 2c 43 43 4f 4e 42 55 46 30 2c 3d 57 27 31 39 39 27 20 00 7b 00 9e 00 10 00 0c 20 42 4e 4f 4b 20 42 43 4b 30 35 30 00 7b 00 d6 00 16 00 50 20 41 44 44 20 43 ┆ERF BACKUP,DK01,=D'1',=W'32',CCONBUF0,=W'199' { BNOK BCK050 { P ADD C┆
0x5a40…5a90 56 4f 4c 4e 4f 2c 3d 44 27 31 27 20 00 7b 00 ea 00 26 00 50 20 50 45 52 46 20 57 52 49 54 49 44 2c 43 42 49 4e 36 2c 43 42 49 4e 34 20 42 41 43 4b 55 50 20 4f 4b 00 7b 01 04 00 16 00 50 20 53 55 42 20 43 56 4f 4c 4e 4f 2c 3d 44 27 31 27 20 ┆VOLNO,=D'1' { & P PERF WRITID,CBIN6,CBIN4 BACKUP OK { P SUB CVOLNO,=D'1' ┆
0x5a90…5ade 00 7b 01 2e 00 34 00 2f 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 30 2c 43 42 49 4e 31 20 52 45 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 52 45 41 20 00 7b 01 48 00 0e 00 09 20 42 20 42 43 4b 30 30 30 20 00 7b 01 80 ┆ { . 4 / PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA { H B BCK000 { ┆
0x5ade…5b2e (60, 0, 400) 00 0a 00 06 42 43 4b 30 35 30 00 7c 00 04 00 34 00 2f 20 50 45 52 46 20 43 4f 4e 52 44 58 2c 43 43 4f 4e 42 55 46 30 2c 43 42 49 4e 31 20 52 45 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 52 45 41 20 00 7c 00 12 00 0e 00 09 20 42 20 42 43 4b ┆ BCK050 | 4 / PERF CONRDX,CCONBUF0,CBIN1 RESTORE BUFFER AREA | B BCK┆
0x5b2e…5b7e 30 30 35 20 00 7c 00 4a 00 06 00 50 2a 20 00 7c 00 5c 00 26 00 50 42 53 4f 50 30 32 5c 5c 5c 43 4f 50 59 20 46 44 39 39 39 30 30 32 20 54 4f 20 46 44 39 39 39 30 30 35 00 7c 00 66 00 22 00 50 20 54 42 46 20 43 47 4c 52 45 47 46 4c 2c 42 43 ┆005 | J P* | & PBSOP02 COPY FD999002 TO FD999005 | f " P TBF CGLREGFL,BC┆
0x5b7e…5bce 4b 30 31 30 20 41 4c 4c 4f 57 45 44 3f 20 00 7c 00 90 00 0c 00 50 20 42 20 42 43 4b 30 32 00 7c 00 b6 00 06 00 50 2a 20 00 7c 00 c6 00 0a 00 50 2a 2a 2a 2a 2a 20 00 7c 00 d0 00 26 00 50 42 43 4b 30 32 5c 5c 5c 43 4f 50 59 20 46 44 39 39 39 ┆K010 ALLOWED? | P B BCK02 | P* | P***** | & PBCK02 COPY FD999┆
0x5bce…5c1e 30 30 32 20 54 4f 20 46 44 39 39 39 30 30 35 20 00 7c 00 de 00 24 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 46 2c 3d 57 27 32 30 34 37 27 20 4c 41 4d 50 53 20 4f 46 46 20 00 7c 01 08 00 20 00 50 20 50 45 52 46 20 4c 41 4d 50 4f 4e 2c 3d 57 27 ┆002 TO FD999005 | $ P PERF LAMPOF,=W'2047' LAMPS OFF | P PERF LAMPON,=W'┆
0x5c1e…5c6e 35 31 32 27 20 4c 41 4d 50 20 32 20 00 7c 01 30 00 0e 00 50 20 53 45 54 20 43 50 46 4c 47 00 7c 01 54 00 24 00 50 20 50 45 52 46 20 41 53 47 56 4f 4c 2c 43 42 49 4e 32 20 41 53 53 49 47 4e 20 52 45 47 53 45 54 00 7c 01 66 00 12 00 50 20 42 ┆512' LAMP 2 | 0 P SET CPFLG | T $ P PERF ASGVOL,CBIN2 ASSIGN REGSET | f P B┆