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