|
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: 23674 (0x5c7a)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/DKSUBS.SC«
IDENT DKSUBS 840203 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
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
*
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 840203 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…0154 Head {h00=0x0010, h01=0x0050, text=» ENTRY WAITF«, t00=0x0000, t01=0x0144}
0x0154…0166 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x0158}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x016a}
0x017a…018e Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x017e}
0x018e…01a2 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0018}
0x01b6…01c8 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x002c}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x003e}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x0052}
0x01f0…0204 Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0066}
0x0204…0224 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x007a}
0x0224…025e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x009a}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x0268…02a0 Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x00de}
0x02a0…02ce Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0001, t01=0x0116}
0x02ce…02fc Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0001, t01=0x0144}
0x02fc…0326 Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0001, t01=0x0172}
0x0326…0350 Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0002, t01=0x000c}
0x0350…037e Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x0036}
0x037e…03be Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x0064}
0x03be…03f2 Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x00a4}
0x03f2…042c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00d8}
0x042c…0444 Head {h00=0x0014, h01=0x0050, text=» EJECT «, t00=0x0002, t01=0x0112}
0x0444…044e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x044e…047c Head {h00=0x002a, h01=0x0050, text=»* ASSG - ASSIGN ROUTINE«, t00=0x0002, t01=0x0134}
0x047c…04ba Head {h00=0x003a, h01=0x0050, text=»* THE ROUTINE ATTEMPTS TO CONNECT THE SPECIFIED«, t00=0x0002, t01=0x0162}
0x04ba…04e8 Head {h00=0x002a, h01=0x0050, text=»* DATASETNAME TO A VOLUMENAME. «, t00=0x0003, t01=0x0010}
0x04e8…050e Head {h00=0x0022, h01=0x0050, text=»* ON SPECIFIED VOLUME«, t00=0x0003, t01=0x003e}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0542 Head {h00=0x0026, h01=0x0050, text=»* ALTERED PARAMETERS: NONE «, t00=0x0003, t01=0x006e}
0x0542…054c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054c…0592 Head {h00=0x0042, h01=0x0050, text=»* ALTERED FIELDS: SPBINW4 - OK - DATASETNR NOK - 21 «, t00=0x0003, t01=0x00a2}
0x0592…05d6 Head {h00=0x0040, h01=0x0050, text=»* GSWBIN1 - OK - ATTEMPTNR NOK - 5«, t00=0x0003, t01=0x00e8}
0x05d6…060c Head {h00=0x0032, h01=0x0050, text=»* ASFNAME - DATASETNAME«, t00=0x0003, t01=0x012c}
0x060c…0654 Head {h00=0x0044, h01=0x0050, text=»* ASVOL - OK - VOLUMENAME NOK - X'00'«, t00=0x0003, t01=0x0162}
0x0654…06a0 Head {h00=0x0048, h01=0x0050, text=»* GTWBCD1 - OK - N/A NOK - ATTEMPT+1«, t00=0x0004, t01=0x001a}
0x06a0…06ec Head {h00=0x0048, h01=0x0050, text=»* GTWBCD2 - OK - N/A NOK - DATASETNR«, t00=0x0004, t01=0x0066}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f6…071a Head {h00=0x0020, h01=0x0050, text=»* C/R: OK - 0, NOK - 4«, t00=0x0004, t01=0x00bc}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0724…0768 Head {h00=0x0040, h01=0x0050, text=»* CALL: PERF ASSG,<VOLUME>,<DSET>,<DATASET NO.>«, t00=0x0004, t01=0x00ea}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012e}
0x0772…07b6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x0138}
0x07b6…07c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c0…07ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07ca…07e6 Head {h00=0x0018, h01=0x0050, text=»ASSG PROC VOL,DK,DNR«, t00=0x0004, t01=0x0190}
0x07e6…080a Head {h00=0x0020, h01=0x0050, text=» MOVE SPBINW4,CBIN0 INITIATE«, t00=0x0005, t01=0x001c}
0x080a…0824 Head {h00=0x0016, h01=0x0050, text=» MOVE GSWBIN1,VOL «, t00=0x0005, t01=0x0040}
0x0824…082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005a}
0x082e…0860 Head {h00=0x002e, h01=0x0050, text=» MOVE ASFNAME,CFNAME(DNR) MOVE DATASETNAME«, t00=0x0005, t01=0x0064}
0x0860…086e Head {h00=0x000a, h01=0x0050, text=»ASSG10«, t00=0x0005, t01=0x0096}
0x086e…08a0 Head {h00=0x002e, h01=0x0050, text=» MOVE ASVOL,CVOL(GSWBIN1) MOVE VOLUMENAME«, t00=0x0005, t01=0x00a4}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d6}
0x08aa…08c8 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,ASFNAME «, t00=0x0005, t01=0x00e0}
0x08c8…08ea Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGERR«, t00=0x0005, t01=0x00fe}
0x08ea…0906 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBCD3,ASVOL «, t00=0x0005, t01=0x0120}
0x0906…0928 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBCD3,=D'0',ASSGERR«, t00=0x0005, t01=0x013c}
0x0928…094a Head {h00=0x001e, h01=0x0050, text=» DSC0 DK,CLOSE CLOSE FIRST«, t00=0x0005, t01=0x015e}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0954…097e Head {h00=0x0026, h01=0x0050, text=» ASSIGN DK,0,SPBINW4,ASFNAME,ASVOL«, t00=0x0005, t01=0x018a}
0x097e…09a2 Head {h00=0x0020, h01=0x0050, text=» BOK ASSGRET IF OK, RETURN«, t00=0x0006, t01=0x0024}
0x09a2…09b2 Head {h00=0x000c, h01=0x0050, text=»ASSGERR «, t00=0x0006, t01=0x0048}
0x09b2…09f4 Head {h00=0x003e, h01=0x0050, text=»* ASSIGNMENT IMPOSSIBLE«, t00=0x0006, t01=0x0058}
0x09f4…0a28 Head {h00=0x0030, h01=0x0050, text=» MOVE GTWBCD1,SPBINW4 (MORE THEN 3 RETRIES)«, t00=0x0006, t01=0x009a}
0x0a28…0a44 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0006, t01=0x00ce}
0x0a44…0a5e Head {h00=0x0016, h01=0x0050, text=» MOVE GTWBCD2,DNR «, t00=0x0006, t01=0x00ea}
0x0a5e…0a80 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,=C'ASSIGN ' «, t00=0x0006, t01=0x0104}
0x0a80…0aa4 Head {h00=0x0020, h01=0x0050, text=» PERF SPERR 'ASSIGN ERROR' «, t00=0x0006, t01=0x0126}
0x0aa4…0abc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0006, t01=0x014a}
0x0abc…0ac8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0162}
0x0ac8…0ad8 Head {h00=0x000c, h01=0x0050, text=»ASSGRET «, t00=0x0006, t01=0x016e}
0x0ad8…0aee Head {h00=0x0012, h01=0x0050, text=» CLEAR CDKOFF «, t00=0x0006, t01=0x017e}
0x0aee…0b06 (7, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x0004}
0x0b06…0b12 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x001c}
0x0b12…0b20 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0028}
0x0b20…0b2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0036}
0x0b2e…0b68 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0007, t01=0x0044}
0x0b68…0b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b72…0ba0 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0007, t01=0x0088}
0x0ba0…0bee Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0007, t01=0x00b6}
0x0bee…0c02 Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0007, t01=0x0104}
0x0c02…0c36 Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0007, t01=0x0118}
0x0c36…0c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c40…0c6e Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0007, t01=0x0156}
0x0c6e…0cac Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0007, t01=0x0184}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0032}
0x0cb6…0d02 Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0008, t01=0x003c}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d4e Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0008, t01=0x0092}
0x0d4e…0d52 Head {h00=0x0054, h01=0x0050}
0x0d52…0d56 Head {h00=0x2a20, h01=0x2020}
0x0d56…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 ┆ SPBINW4┆
0x0d70…0dc0 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 08 00 d4 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 ┆ - OK - 0 NOK - ALTERED BY DISERRORROUTINE & P* ┆
0x0dc0…0e0e 20 47 54 57 42 43 44 31 20 2d 20 30 00 08 01 2c 00 06 00 50 2a 20 00 08 01 56 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 ┆ GTWBCD1 - 0 , P* V 8 P************************************************┆
0x0e0e…0e5e (9, 0, 400) 2a 2a 2a 2a 00 08 01 60 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 09 00 0c 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 09 00 40 00 3a ┆**** ` 0 PRAREAD PROC DSET,$NR,BUF,LENG,RECNR P PLIT $NR @ :┆
0x0e5e…0eae 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 09 00 52 00 38 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 ┆ P MOVE GSWBIN1,LENG GET LENGTH R 8 P MOVE ┆
0x0eae…0efe 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 90 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 cc 00 3c 00 50 20 20 20 20 20 20 20 20 ┆ SPBINW4,CBIN0 ZEROISE P MOVE GTWBCD1,=D'0' < P ┆
0x0efe…0f4e 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 09 00 e8 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 ┆ RREAD DSET,BUF,GSWBIN1,RECNR READ RECORD 4 P BEOF RAR1┆
0x0f4e…0f9e 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 28 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 09 01 60 00 32 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 ┆0 OK ? ( P BOK RAR10 ` 2 P PERF┆
0x0f9e…0fee (10, 0, 400) 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 82 00 0a 00 50 52 41 52 31 30 20 00 0a 00 28 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 ┆ ERDK,DSET,$NR NO PRAR10 ( & P TBT GTEXFL┆
0x0fee…103e 41 47 2c 52 41 52 32 30 00 0a 00 36 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 2e 20 41 43 43 45 53 20 ┆AG,RAR20 6 D P DSC0 DSET,RACCS RELEASE EXCL. ACCES ┆
0x103e…108e 00 0a 00 60 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 a8 00 0c 00 50 20 53 57 49 54 43 48 20 00 0a 00 cc 00 38 00 50 20 20 20 20 20 20 20 20 20 20 43 4d 50 20 20 20 20 20 20 20 ┆ ` PRAR20 CLEAR GTEXFLAG P SWITCH 8 P CMP ┆
0x108e…10de 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 dc 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0a 01 18 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0a 01 2e ┆CBIN0,SPBINW4 SET CR P RET P PEND .┆
0x10de…112e 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0a 01 44 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 ┆ P EJECT D > P****************************************************┆
0x112e…117e (11, 0, 398) 2a 2a 2a 2a 2a 20 00 0a 01 5c 00 06 00 50 2a 20 00 0b 00 0e 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 0b 00 18 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a ┆***** P* * P* DISC ERROR ROUTINE ERDK P* CALL:┆
0x117e…11ce 00 0b 00 46 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 45 52 44 4b 2c 3c 44 41 54 41 53 45 54 3e 2c 3c 53 45 54 4e 52 3e 20 00 0b 00 58 00 06 00 50 2a 20 00 0b 00 86 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 54 48 49 53 20 52 ┆ F * P* PERF ERDK,<DATASET>,<SETNR> X P* 4 P* THIS R┆
0x11ce…121e 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 90 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 0b 00 c8 00 38 00 50 ┆OUTINE BUILDS THE ERRORCODE IN $ P* CASE OF ERROR ON DISC 8 P┆
0x121e…126e 2a 20 20 20 20 20 20 20 20 20 54 48 45 20 45 52 52 4f 52 43 4f 44 45 20 49 53 20 46 4f 55 4e 44 20 57 49 54 48 20 52 4f 55 54 49 4e 45 20 47 45 54 42 49 54 00 0b 00 f0 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 41 4e 44 20 54 48 45 20 54 45 ┆* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT : P* AND THE TE┆
0x126e…12bc 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 2c 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 0b 01 6a 00 06 00 50 2a 20 00 0b 01 88 ┆XT IS DISPLAYED WITH SCREENPACKAGE , P* ENTRY SPERR j P* ┆
0x12bc…130c (12, 0, 400) 00 1e 00 50 2a 20 41 4c 54 45 52 45 44 20 50 41 52 41 4d 45 54 45 52 53 3a 20 4e 4f 4e 45 00 0c 00 04 00 06 00 50 2a 20 00 0c 00 26 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 ┆ P* ALTERED PARAMETERS: NONE P* & : P* ALTERED FIELDS: SPBINW4 - NO-D┆
0x130c…135c 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 30 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 0c 00 6e 00 26 00 50 2a 20 20 20 ┆ATA/NEW-VOL: 0, ELSE 2 0 * P* GTWBCD2 - ERRORCODE n & P* ┆
0x135c…13ac 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 9c 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 0c 00 c6 00 06 00 50 ┆ GTNWFLG - FALSE & P* SPKEYFLG - TRUE P┆
0x13ac…13fc 2a 20 00 0c 00 f0 00 06 00 50 2a 20 00 0c 00 fa 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 ┆* P* B P************************************************************┆
0x13fc…144c 2a 20 00 0c 01 04 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 01 4a 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 0c 01 6e 00 24 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 ┆* PERDK PROC DSET,$NR J P PLIT $NR n $ P PERF ┆
0x144c…149c (13, 0, 400) 20 20 20 20 47 45 54 42 49 54 2c 44 53 45 54 20 00 0c 01 80 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 00 18 00 26 00 50 20 43 42 45 20 47 54 57 42 43 44 31 2c 3d ┆ GETBIT,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DATA & P CBE GTWBCD1,=┆
0x149c…14ec 44 27 38 27 2c 45 52 44 4b 52 45 54 20 4e 45 57 20 56 4f 4c 00 0d 00 42 00 30 00 50 20 43 42 45 20 47 54 57 42 43 44 31 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 6c 00 44 00 50 ┆D'8',ERDKRET NEW VOL B 0 P CBE GTWBCD1,=D'7',ERDKRET RETRIES PERFORMED l D P┆
0x14ec…153c 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 52 29 00 0d 00 a0 00 3a 00 50 20 20 20 20 20 20 20 20 ┆ MOVE SPBINW4,CBIN21 PREPARE TEXT (BIT NR) : P ┆
0x153c…158c 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 0d 00 e8 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 ┆ MOVE GTWBCD2,$NR DATASET NR 4 P MOVE GSWSTR┆
0x158c…15dc 39 2c 3d 43 27 44 49 53 43 46 45 4a 4c 20 27 20 20 20 54 45 58 54 00 0d 01 26 00 16 00 50 20 54 42 46 20 43 50 46 4c 47 2c 45 52 44 4b 31 30 20 00 0d 01 5e 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 ┆9,=C'DISCFEJL ' TEXT & P TBF CPFLG,ERDK10 ^ . P CLEAR SPKEYFLG NO KOR-K┆
0x15dc…162c (14, 0, 400) 45 59 20 49 46 20 44 49 53 4b 20 41 43 43 45 53 53 20 00 0d 01 78 00 0a 00 50 45 52 44 4b 31 30 00 0e 00 1a 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 20 20 53 50 45 52 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EY IF DISK ACCESS x PERDK10 < P PERF SPERR ┆
0x162c…167c 20 20 20 20 44 49 53 50 4c 41 59 20 54 45 58 54 00 0e 00 28 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 46 4c 47 20 00 0e 00 68 00 18 00 50 20 54 42 54 20 54 45 52 52 53 4b 49 50 2c 45 52 44 4b 39 30 00 0e 00 7e 00 10 00 50 20 53 45 54 20 47 ┆ DISPLAY TEXT ( P SET SPKEYFLG h P TBT TERRSKIP,ERDK90 ~ P SET G┆
0x167c…16cc 54 4e 57 46 4c 47 00 0e 00 9a 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 ae 00 16 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 32 2c 24 4e 52 20 00 0e 00 ca 00 1e 00 50 20 43 42 45 20 47 54 57 42 43 44 32 ┆TNWFLG P PERF WRITJT,=W'14' P MOVE GTWBCD2,$NR P CBE GTWBCD2┆
0x16cc…171c 2c 3d 44 27 36 27 2c 45 52 44 4b 38 30 20 00 0e 00 e4 00 16 00 50 20 50 45 52 46 20 57 52 49 54 4c 4f 2c 43 42 49 4e 38 00 0e 01 06 00 0a 00 50 45 52 44 4b 38 30 00 0e 01 20 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 00 0e 01 2e ┆,=D'6',ERDK80 P PERF WRITLO,CBIN8 PERDK80 P CLEAR GTNWFLG .┆
0x171c…176c 00 0a 00 50 45 52 44 4b 39 30 00 0e 01 44 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 0e 01 52 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 00 0e 01 6e 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0e 01 80 00 28 00 50 ┆ PERDK90 D P MOVE SPBINW4,CBIN21 R P B ERDKEND n PERDKRET ( P┆
0x176c…17bc (15, 0, 398) 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 00 0e 01 90 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0f 00 2c 00 20 00 50 20 43 4d 50 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 5c ┆ MOVE SPBINW4,CBIN0 PREPARE FOR OK PERDKEND , P CMP SPBINW4,CBIN0 ┆
0x17bc…180c 20 53 45 54 20 43 52 20 00 0f 00 3c 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0f 00 60 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0f 00 76 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0f 00 8c ┆ SET CR < P RET ` P PEND v P EJECT ┆
0x180c…185c 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 0f 00 a4 00 06 00 50 2a 20 00 0f 00 e6 00 14 00 50 ┆ > P********************************************************** P* P┆
0x185c…18ac 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 00 0f 00 f0 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0f 01 08 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 20 47 45 54 42 49 54 2c 3c 44 41 54 41 53 45 54 3e 20 00 0f 01 1a 00 38 ┆* GETBIT P* CALL: $ P* PERF GETBIT,<DATASET> 8┆
0x18ac…18fa 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 20 20 49 4e 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 00 0f 01 42 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 ┆ P* THIS ROUTINE FINDS THE BIT IN THE EXTENDED B P* STATUSWORD ┆
0x18fa…194a (16, 0, 400) 00 0f 01 7e 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 4e 3a 00 10 00 08 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 ┆ ~ P* RETURN: < P* THE BITNR IN GTWBCD1 UNDEFINED GTWBCD┆
0x194a…199a 31 3d 31 20 00 10 00 1c 00 06 00 50 2a 20 00 10 00 5c 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 10 00 66 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 ┆1=1 P* P* ALTERED FIELDS: f 2 P* GSWBIN1 - EXTEND┆
0x199a…19ea 45 44 20 53 54 41 54 55 53 57 4f 52 44 20 00 10 00 80 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 54 57 42 43 44 31 20 2d 20 31 20 00 10 00 b6 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 ┆ED STATUSWORD P* GTWBCD1 - 1 P* GSWBIN┆
0x19ea…1a3a 32 20 00 10 00 da 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 00 fa 00 06 00 50 2a 20 00 10 01 1a 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 ┆2 P* GSWBCD2 P* 0 P* CR: STATUS-FOUND - BNG, NO┆
0x1a3a…1a8a 2d 42 49 54 2d 46 4f 55 4e 44 3a 20 42 4e 47 20 00 10 01 24 00 06 00 50 2a 20 00 10 01 58 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 ┆-BIT-FOUND: BNG $ P* X > P**********************************************┆
0x1a8a…1ada (17, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 10 01 62 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 11 00 14 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 ┆************ b PGETBIT PROC DSET 6 P XSTAT DSET,GSWBIN1┆
0x1ada…1b2a 20 20 20 20 20 20 20 20 47 45 54 20 53 54 41 54 55 53 00 11 00 30 00 04 00 50 00 11 00 6a 00 18 00 50 2a 20 43 48 45 43 4b 20 46 49 52 53 54 20 42 49 54 20 34 20 00 11 00 72 00 18 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 3d 44 27 34 ┆ GET STATUS 0 P j P* CHECK FIRST BIT 4 r P MOVE GTWBCD1,=D'4┆
0x1b2a…1b7a 27 20 00 11 00 8e 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 32 2c 3d 57 27 32 30 34 38 27 20 42 49 54 20 34 00 11 00 aa 00 1e 00 50 20 43 41 4c 4c 20 4d 41 53 4b 2c 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 32 00 11 00 ce 00 10 00 50 ┆' P MOVE GSWBIN2,=W'2048' BIT 4 P CALL MASK,GSWBIN1,GSWBIN2 P┆
0x1b7a…1bca 20 42 4e 5a 20 47 45 54 52 45 54 20 00 11 00 f0 00 04 00 50 00 11 01 04 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 ┆ BNZ GETRET P : P MOVE GTWBCD1,=D'15' BIT NR IN BC┆
0x1bca…1c1a 44 20 00 11 01 0c 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 49 4e 31 20 20 20 20 20 20 20 42 49 54 20 4e 52 20 49 4e 20 42 49 4e 20 00 11 01 4a 00 3e 00 50 47 45 54 31 30 20 20 20 ┆D : P MOVE GSWBIN2,CBIN1 BIT NR IN BIN J > PGET10 ┆
0x1c1a…1c20 (18, 0, 398) 20 20 43 41 4c 4c ┆ CALL┆
0x1c20…1c70 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 54 48 20 53 54 41 54 55 53 20 00 11 01 88 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 ┆ MASK,GSWBIN1,GSWBIN2 AND WITH STATUS 4 P BNZ GETRET ┆
0x1c70…1cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 55 4e 44 20 00 12 00 3a 00 28 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 43 44 32 2c 47 53 57 42 49 4e 32 20 00 12 00 72 00 36 00 50 20 20 20 20 20 20 20 20 ┆ FOUND : ( P MOVE GSWBCD2,GSWBIN2 r 6 P ┆
0x1cc0…1d10 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 4e 45 58 54 20 42 49 54 00 12 00 9e 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 ┆ MUL GSWBCD2,=D'2' NEXT BIT 6 P MOVE GSWBIN2,GS┆
0x1d10…1d56 57 42 43 44 32 20 20 20 20 20 20 20 43 4f 4e 56 45 52 54 20 00 12 00 d8 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 ┆WBCD2 CONVERT > P SUB GTWBCD1,=D'1' ┆
0x1d56…4c7a […elided…]
0x4c7a…4c86 20 46 49 45 4c 44 20 4e 52 20 49 53 ┆ FIELD NR IS┆
0x4c86…4cd6 (49, 0, 400) 20 49 4e 20 47 53 57 53 54 52 32 20 00 30 01 7e 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 31 00 14 00 16 00 50 5c 5c 5c 41 44 4a 55 53 54 20 50 4f 49 4e 54 45 52 53 ┆ IN GSWSTR2 0 ~ & P AND FIELD CONTENTS IN GSWSTR20 1 P ADJUST POINTERS┆
0x4cd6…4d26 00 31 00 3e 00 16 00 50 20 41 44 44 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 31 00 58 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 31 00 72 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 33 ┆ 1 > P ADD GSWBIN6,CBIN1 1 X P SUB GSWBIN5,GSWBIN3 1 r P SUB GSWBIN5,CBIN3┆
0x4d26…4d76 00 31 00 8e 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 31 00 a8 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 45 52 54 20 00 31 00 ce ┆ 1 " P MOVE GSWBCD5,GSWSTR2 FIELDNR 1 " P MOVE GSWBIN3,GSWBCD5 CONVERT 1 ┆
0x4d76…4dc6 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 00 31 00 f4 00 14 00 50 5c 42 45 20 52 47 52 32 31 30 5c 44 41 54 45 20 00 31 01 0e 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 ┆ P CMP GSWBIN3,CBIN2 1 P BE RGR210 DATE 1 P CBL GSWBIN3,CBIN4,RGR030 ┆
0x4dc6…4e16 00 31 01 26 00 16 00 50 5c 43 4d 50 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 34 00 31 01 48 00 0e 00 50 5c 42 45 20 52 47 52 32 30 30 00 31 01 62 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 ┆ 1 & P CMP GSWBIN3,CBIN4 1 H P BE RGR200 1 b . P CBNE GSWBIN3,CBIN13,RGR036 ┆
0x4e16…4e66 (50, 0, 400) 41 52 4b 49 56 2e 4b 4e 54 2e 4e 4f 2e 20 00 31 01 74 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 32 00 16 00 0a 00 50 52 47 52 30 33 36 00 32 00 3e 00 22 00 50 5c 5c 5c 55 ┆ARKIV.KNT.NO. 1 t $ P TBT CWFLAG,RGR030 NOT KOLDSTART 2 PRGR036 2 > " P U┆
0x4e66…4eb6 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 32 00 4c 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 43 46 4c 54 44 45 58 28 47 53 57 42 49 4e 33 29 20 47 53 57 42 49 4e 33 3d 46 49 45 4c 44 4e 52 ┆PDATE GTDUPF,GTREGF,GTUSED 2 L 2 P MOVE GSWBIN4,CFLTDEX(GSWBIN3) GSWBIN3=FIELDNR┆
0x4eb6…4f06 00 32 00 72 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 32 00 a8 00 22 00 50 20 4d 4f 56 45 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 47 53 57 53 54 52 32 30 00 32 00 ce ┆ 2 r " P MOVE GTUSED(GSWBIN4),GSWBIN3 2 " P MOVE GTDUPF(GSWBIN4),GSWSTR20 2 ┆
0x4f06…4f56 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 32 00 f4 00 28 00 50 20 43 42 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 39 2c 52 47 52 30 36 30 20 44 2f 4b 20 4d 41 52 4b 3f 20 00 32 ┆ " P MOVE GTREGF(GSWBIN4),GSWSTR20 2 ( P CBE GSWBIN3,CBIN9,RGR060 D/K MARK? 2┆
0x4f56…4fa6 01 1a 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 01 46 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 43 42 49 4e 30 20 00 32 01 64 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 43 ┆ P CHECK IF WITH SIGN 2 F P MOVE GSWBIN3,CBIN0 2 d P MOVE GSWSTR2,=C┆
0x4fa6…4ff6 (51, 0, 400) 27 2d 27 20 00 32 01 80 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 33 00 0c 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 ┆'-' 2 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,CBIN1 3 P BNE RGR04┆
0x4ff6…5046 30 20 00 33 00 46 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 5a 00 20 00 50 20 4d 55 4c 20 47 54 44 55 50 46 28 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 33 00 7e 00 20 ┆0 3 F P MUL GTUSED(GSWBIN4),=W'-1' 3 Z P MUL GTDUPF(GSWBIN4),=D'-1' 3 ~ ┆
0x5046…5096 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 33 00 a2 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 00 c6 00 0a 00 50 52 47 52 30 34 30 00 33 00 d8 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 ┆ P MUL GTREGF(GSWBIN4),=D'-1' 3 P B RGR030 3 PRGR040 3 P MOVE GSWB┆
0x5096…50e6 49 4e 33 2c 43 42 49 4e 30 20 00 33 00 e6 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 33 2c 43 42 49 4e 32 30 2c 43 42 4c 41 4e 4b 53 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 33 01 02 00 10 00 50 20 42 4e 45 ┆IN3,CBIN0 3 6 P MATCH GSWSTR20,GSWBIN3,CBIN20,CBLANKS,CBIN0,CBIN1 3 P BNE┆
0x50e6…5136 20 52 47 52 30 33 30 20 00 33 01 3c 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 01 50 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 33 01 74 00 1a 00 50 52 47 52 30 36 30 5c 5c 5c 53 ┆ RGR030 3 < P MUL GTUSED(GSWBIN4),=W'-1' 3 P P B RGR030 3 t PRGR060 S┆
0x5136…5186 (52, 0, 400) 45 54 20 44 2f 4b 20 49 4e 46 4f 20 00 33 01 86 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 34 00 14 00 20 00 50 20 50 45 52 46 49 20 47 53 57 42 49 4e 33 2c 53 45 54 4b 52 45 2c ┆ET D/K INFO 3 " P MOVE GSWBIN3,GTDUPF(GSWBIN4) 4 P PERFI GSWBIN3,SETKRE,┆
0x5186…51d6 53 45 54 44 45 42 00 34 00 3a 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 34 00 5e 00 0a 00 50 52 47 52 31 30 30 00 34 00 70 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 34 00 7e 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 ┆SETDEB 4 : P B RGR030 4 ^ PRGR100 4 p P END OF RECORD 4 ~ P MOVE GSWS┆
0x51d6…5226 54 52 32 2c 3d 58 27 37 46 27 00 34 00 96 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 34 20 52 45 53 54 4f 52 45 20 00 34 00 b2 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 ┆TR2,=X'7F' 4 " P MOVE GSWBIN6,GSWBIN4 RESTORE 4 6 P MATCH CPCKBUF,GSWBIN6,G┆
0x5226…5276 53 57 42 49 4e 35 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 34 00 d8 00 10 00 50 20 42 4e 45 20 52 47 52 31 31 30 20 00 34 01 12 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 00 34 01 26 00 0e 00 50 20 42 20 52 47 52 ┆SWBIN5,GSWSTR2,CBIN0,CBIN1 4 P BNE RGR110 4 P SET CEORFLG 4 & P B RGR┆
0x5276…52c6 30 33 35 20 00 34 01 3a 00 0a 00 50 52 47 52 31 31 30 00 34 01 4c 00 26 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 58 27 32 31 27 20 43 4f 4e 54 2e 20 52 45 43 4f 52 44 20 00 34 01 5a 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e ┆035 4 : PRGR110 4 L & P MOVE GSWSTR2,=X'21' CONT. RECORD 4 Z P MOVE GSWBIN┆
0x52c6…5316 (53, 0, 398) 36 2c 47 53 57 42 49 4e 34 20 00 34 01 84 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 35 00 12 00 10 00 50 20 42 4e 45 ┆6,GSWBIN4 4 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 5 P BNE┆
0x5316…5366 20 52 47 52 52 45 54 32 00 35 00 4c 00 20 00 50 20 44 4c 45 54 45 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 34 00 35 00 60 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 30 2c 43 50 43 4b 42 55 46 00 35 00 84 00 16 ┆ RGRRET2 5 L P DLETE CPCKBUF,CBIN0,GSWBIN4 5 ` P MOVE GSWSTR20,CPCKBUF 5 ┆
0x5366…53b6 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 35 00 a2 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 35 00 bc 00 20 00 50 20 41 44 44 20 43 52 45 43 4e 52 2c 43 42 49 4e 31 20 4b 4f 4c 44 53 54 41 52 ┆ P ADD CTWBIN1,CBIN1 5 P TBT CWFLAG,RGR113 5 P ADD CRECNR,CBIN1 KOLDSTAR┆
0x53b6…5406 54 20 00 35 00 d6 00 0a 00 50 52 47 52 31 31 33 00 35 00 fa 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 35 01 08 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 31 32 38 27 20 00 35 01 22 00 32 00 50 ┆T 5 PRGR113 5 P ADD GSWBCD2,=D'1' 5 P MOVE GSWBIN1,=W'128' 5 " 2 P┆
0x5406…5454 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 01 40 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 35 01 76 00 06 00 50 2a 20 ┆ PERF RAREAD,DSET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 5 @ P BNOK RGRRET2 5 v P* ┆
0x5454…54a4 (54, 0, 400) 00 35 01 8c 00 06 00 50 2a 20 00 36 00 08 00 18 00 50 2a 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 20 00 36 00 12 00 36 00 50 2a 20 4e 42 20 4e 42 20 57 48 41 54 20 48 41 50 50 45 4e 20 49 46 20 46 49 45 4c 44 20 49 53 20 3e 20 ┆ 5 P* 6 P*?????????????????? 6 6 P* NB NB WHAT HAPPEN IF FIELD IS > ┆
0x54a4…54f4 31 31 20 42 59 54 45 53 20 3f 3f 3f 3f 3f 3f 3f 00 36 00 2e 00 12 00 50 2a 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 3f 00 36 00 68 00 06 00 50 2a 20 00 36 00 7e 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 36 00 88 00 20 00 50 ┆11 BYTES ??????? 6 . P*????????????? 6 h P* 6 ~ P DELETE HEADER 6 P┆
0x54f4…5544 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 36 00 a0 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 36 00 c4 00 1a ┆ DLETE CPCKBUF,CBIN0,CBIN11 6 * P MOVE GSWBIN6,CBIN0 INSERT SAVED INFO 6 ┆
0x5544…5594 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 43 42 4c 41 4e 4b 53 20 00 36 00 f2 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d 57 27 31 32 38 27 2c 52 47 52 31 31 35 20 00 36 01 10 00 18 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 ┆ P MOVE GSWSTR2,CBLANKS 6 P CBE CRECLGD,=W'128',RGR115 6 P MOVE GSWSTR┆
0x5594…55e4 32 2c 3d 58 27 30 30 27 00 36 01 34 00 0a 00 50 52 47 52 31 31 35 00 36 01 50 00 36 00 50 20 4d 41 54 43 48 20 47 53 57 53 54 52 32 30 2c 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 39 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 ┆2,=X'00' 6 4 PRGR115 6 P 6 P MATCH GSWSTR20,GSWBIN6,CBIN19,GSWSTR2,CBIN0,CBIN1┆
0x55e4…5634 (55, 0, 398) 00 36 01 5e 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 37 00 08 00 30 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 36 2c 47 53 57 53 54 52 32 30 2c 43 42 49 4e 30 20 00 37 ┆ 6 ^ P SUB GSWBIN6,CBIN1 7 0 P INSRT CPCKBUF,CBIN0,GSWBIN6,GSWSTR20,CBIN0 7┆
0x5634…5684 00 22 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 00 56 00 2a 00 50 20 41 44 44 20 47 53 57 42 43 44 33 2c 3d 44 27 31 27 20 55 50 44 41 54 45 20 4c 4f 47 2e 20 52 45 43 2e 20 4e 4f 00 37 00 72 00 0e 00 50 ┆ " P MOVE GSWBIN6,CBIN0 7 V * P ADD GSWBCD3,=D'1' UPDATE LOG. REC. NO 7 r P┆
0x5684…56d4 20 42 20 52 47 52 30 33 32 20 00 37 00 a0 00 0a 00 50 52 47 52 32 30 30 00 37 00 b2 00 1a 00 50 20 4d 4f 56 45 20 47 54 4c 42 4e 52 2c 47 53 57 53 54 52 32 30 20 00 37 00 c0 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 ┆ B RGR032 7 PRGR200 7 P MOVE GTLBNR,GSWSTR20 7 P TBT CWFLAG,RGR205┆
0x56d4…5724 00 37 00 de 00 24 00 50 20 4d 4f 56 45 20 54 54 4c 42 4e 52 2c 47 54 4c 42 4e 52 20 49 4e 20 4b 4f 4c 44 53 54 41 52 54 00 37 00 f8 00 0a 00 50 52 47 52 32 30 35 00 37 01 20 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 37 01 2e 00 0a 00 50 ┆ 7 $ P MOVE TTLBNR,GTLBNR IN KOLDSTART 7 PRGR205 7 P B RGR030 7 . P┆
0x5724…5772 52 47 52 32 31 30 00 37 01 40 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 00 37 01 4e 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 37 01 68 ┆RGR210 7 @ P TBT CWFLAG,RGR220 7 N & P MOVE GTDATO,GSWSTR20 IF COLDSTART 7 h┆
0x5772…57c2 (56, 0, 400) 00 0a 00 50 52 47 52 32 32 30 00 38 00 04 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 38 00 12 00 0c 00 50 52 47 52 52 45 54 32 20 00 38 00 24 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 38 00 34 ┆ PRGR220 8 P B RGR030 8 PRGRRET2 8 $ P CLEAR CPFLG DISK FREE 8 4┆
0x57c2…5812 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 38 00 54 00 04 00 50 00 38 00 6c 00 22 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 20 43 52 3d 32 2c 20 4e 4f 54 20 4f 4b 20 00 38 00 74 00 08 00 50 20 52 45 54 00 38 ┆ P CLEAR GTSWFLAG 8 T P 8 l " P CMP CBIN0,CBIN1 CR=2, NOT OK 8 t P RET 8┆
0x5812…5862 00 9a 00 0c 00 50 52 47 52 52 45 54 31 20 00 38 00 a6 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 38 00 b6 00 0c 00 50 52 47 52 52 45 54 31 30 00 38 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 ┆ PRGRRET1 8 P SET GTSWFLAG 8 PRGRRET10 8 P CLEAR CPFLG DISK F┆
0x5862…58b2 52 45 45 20 00 38 00 dc 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 38 00 fc 00 2c 00 50 20 43 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 43 52 3d 31 2c 54 52 3e 3d 31 32 2c 47 54 53 57 46 4c 41 ┆REE 8 P CR=1,TR=11,GTSWFLAG=T 8 , P CMP CBIN1,CBIN0 CR=1,TR>=12,GTSWFLA┆
0x58b2…5902 47 3d 46 20 00 38 01 1c 00 08 00 50 20 52 45 54 00 38 01 4c 00 0a 00 50 52 47 52 52 45 54 00 38 01 58 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 38 01 66 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 ┆G=F 8 P RET 8 L PRGRRET 8 X P CLEAR CPFLG DISK FREE 8 f P SET TTEOR┆
0x5902…5952 (57, 0, 400) 46 4c 47 20 00 38 01 86 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 39 00 0c 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 39 00 24 00 08 00 50 20 52 45 54 00 39 00 46 00 0a ┆FLG 8 P CLEAR GTSWFLAG 9 P CMP CBIN0,CBIN0 CR=0, OK 9 $ P RET 9 F ┆
0x5952…59a2 00 50 20 50 45 4e 44 20 00 39 00 52 00 0a 00 50 5c 45 4a 45 43 54 00 39 00 60 00 12 00 50 57 41 49 54 46 20 50 52 4f 43 20 42 4f 4f 00 39 00 6e 00 06 00 50 2a 20 00 39 00 84 00 1c 00 50 2a 20 53 45 54 53 20 54 48 45 20 42 4f 4f 4c 45 41 4e ┆ P PEND 9 R P EJECT 9 ` PWAITF PROC BOO 9 n P* 9 P* SETS THE BOOLEAN┆
0x59a2…59f2 20 42 4f 4f 2c 20 00 39 00 8e 00 24 00 50 2a 20 49 46 20 54 48 45 20 42 4f 4f 4c 45 41 4e 20 49 53 20 41 4c 52 45 41 44 59 20 53 45 54 2c 00 39 00 ae 00 38 00 50 2a 20 54 48 45 20 54 41 53 4b 20 53 57 49 54 43 48 45 53 2c 20 54 4f 20 47 49 ┆ BOO, 9 $ P* IF THE BOOLEAN IS ALREADY SET, 9 8 P* THE TASK SWITCHES, TO GI┆
0x59f2…5a42 56 45 20 41 4e 4f 54 48 45 52 20 54 41 53 4b 20 54 48 45 20 43 48 41 4e 43 45 00 39 00 d6 00 1a 00 50 2a 20 54 4f 20 43 4c 45 41 52 20 54 48 45 20 42 4f 4f 4c 45 41 4e 00 39 01 12 00 06 00 50 2a 20 00 39 01 30 00 04 00 50 00 39 01 3a 00 0c ┆VE ANOTHER TASK THE CHANCE 9 P* TO CLEAR THE BOOLEAN 9 P* 9 0 P 9 : ┆
0x5a42…5a92 00 50 57 41 49 54 30 30 30 20 00 39 01 42 00 14 00 50 20 54 42 46 20 42 4f 4f 2c 57 41 49 54 30 39 30 00 39 01 52 00 0c 00 50 20 53 57 49 54 43 48 20 00 39 01 6a 00 0e 00 50 20 42 20 57 41 49 54 30 30 30 00 39 01 7a 00 0c 00 50 57 41 49 54 ┆ PWAIT000 9 B P TBF BOO,WAIT090 9 R P SWITCH 9 j P B WAIT000 9 z PWAIT┆
0x5a92…5ae2 (58, 2, 80) 30 39 30 20 00 39 01 8c 00 0c 00 50 20 53 45 54 20 42 4f 4f 00 3a 00 0c 00 08 00 50 20 52 45 54 00 3a 00 1c 00 0a 00 50 20 50 45 4e 44 20 00 3a 00 28 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 3a 00 36 40 04 00 00 00 3a 00 4c ┆090 9 P SET BOO : P RET : P PEND : ( P END : 6@ : L┆
0x5ae2…5aea (59, 1, 8) 20 04 00 00 00 3b 00 04 ┆ ; ┆
0x5aea…5b3a (60, 0, 400) 00 10 00 50 5c 5c 5c 52 49 47 48 54 20 4e 4f 57 00 1c 00 04 00 2c 00 50 43 42 43 57 41 49 54 46 5c 42 4f 4f 4c 5c 46 5c 54 3a 20 44 4f 20 4e 4f 54 20 53 54 41 52 54 20 53 45 4e 44 49 4e 47 20 00 1c 00 18 00 12 00 50 5c 5c 5c 41 20 4e 45 57 ┆ P RIGHT NOW , PCBCWAITF BOOL F T: DO NOT START SENDING P A NEW┆
0x5b3a…5b8a 20 42 41 54 43 48 00 1c 00 48 00 06 00 50 2a 20 00 1c 00 5e 00 06 00 50 2a 20 00 1c 00 68 00 06 00 50 2a 20 00 1c 00 72 00 06 00 50 2a 20 00 1c 00 7c 00 06 00 50 2a 20 00 1c 00 86 00 06 00 50 2a 20 00 1c 00 90 00 06 00 50 2a 20 00 1c 00 9a ┆ BATCH H P* ^ P* h P* r P* | P* P* P* ┆
0x5b8a…5bda 00 06 00 50 2a 20 00 1c 00 a4 00 06 00 50 2a 20 00 1c 00 ae 00 06 00 50 2a 20 00 1c 00 b8 00 18 00 50 43 42 43 4f 50 54 20 42 49 4e 5c 5c 4f 50 54 49 4f 4e 3a 20 00 1c 00 c2 00 18 00 50 5c 5c 5c 31 3a 20 53 54 41 52 54 20 42 43 20 54 41 53 ┆ P* P* P* PCBCOPT BIN OPTION: P 1: START BC TAS┆
0x5bda…5c2a 4b 20 00 1c 00 de 00 16 00 50 5c 5c 5c 32 3a 20 53 54 4f 50 20 42 43 20 54 41 53 4b 00 1c 00 fa 00 1c 00 50 5c 5c 5c 33 3a 20 49 4e 54 45 52 52 55 50 54 20 42 43 20 54 41 53 4b 20 00 1c 01 14 00 14 00 50 5c 5c 5c 34 3a 20 53 45 4e 44 20 52 ┆K P 2: STOP BC TASK P 3: INTERRUPT BC TASK P 4: SEND R┆
0x5c2a…5c7a 45 53 54 20 00 1c 01 34 00 12 00 50 5c 5c 5c 35 3a 20 41 4c 4c 20 53 45 4e 44 00 1c 01 4c 00 0a 00 50 5c 5c 5c 36 3a 20 00 1c 01 62 00 0a 00 50 5c 5c 5c 37 3a 20 00 1c 01 70 00 0a 00 50 5c 5c 5c 38 3a 20 00 1c 01 7e 00 0a 00 50 5c 5c 5c 39 ┆EST 4 P 5: ALL SEND L P 6: b P 7: p P 8: ~ P 9┆