|
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: 30040 (0x7558)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/DKSUBS.SC«
IDENT DKSUBS 830421 NJ
DDUM KMD08
PDIV
ENTRY RAREAD
ENTRY RAWRIT
ENTRY SQWRIT
ENTRY RGREAD
ENTRY RADEL
ENTRY GETBIT
ENTRY BACKUP
ENTRY RSTORE
ENTRY KFREAD
ENTRY KFWRIT
ENTRY WAITF
EXT ASSG
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
**************************************************
*
* 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 830421 NJ «, 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 SQWRIT «, t00=0x0000, t01=0x0084}
0x0096…00ac Head {h00=0x0012, h01=0x0050, text=» ENTRY RGREAD «, t00=0x0000, t01=0x009a}
0x00ac…00c0 Head {h00=0x0010, h01=0x0050, text=» ENTRY RADEL«, t00=0x0000, t01=0x00b0}
0x00c0…00d6 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETBIT «, t00=0x0000, t01=0x00c4}
0x00d6…00ec Head {h00=0x0012, h01=0x0050, text=» ENTRY BACKUP «, t00=0x0000, t01=0x00da}
0x00ec…0102 Head {h00=0x0012, h01=0x0050, text=» ENTRY RSTORE «, t00=0x0000, t01=0x00f0}
0x0102…0118 Head {h00=0x0012, h01=0x0050, text=» ENTRY KFREAD «, t00=0x0000, t01=0x0106}
0x0118…012e Head {h00=0x0012, h01=0x0050, text=» ENTRY KFWRIT «, t00=0x0000, t01=0x011c}
0x012e…0142 Head {h00=0x0010, h01=0x0050, text=» ENTRY WAITF«, t00=0x0000, t01=0x0132}
0x0142…0154 Head {h00=0x000e, h01=0x0050, text=» EXT ASSG «, t00=0x0000, t01=0x0146}
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…0210 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x0066}
0x0210…024a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0086}
0x024a…0254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0254…028c Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x00ca}
0x028c…02ba Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0001, t01=0x0102}
0x02ba…02e8 Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0001, t01=0x0130}
0x02e8…0312 Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0001, t01=0x015e}
0x0312…033c Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0001, t01=0x0188}
0x033c…036a Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x0022}
0x036a…03aa Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x0050}
0x03aa…03de Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x0090}
0x03de…0418 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00c4}
0x0418…0426 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00fe}
0x0426…0460 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x010c}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x046a…0498 Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0002, t01=0x0150}
0x0498…04e6 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0002, t01=0x017e}
0x04e6…04fa Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0003, t01=0x003c}
0x04fa…052e Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0003, t01=0x0050}
0x052e…0538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x0538…0566 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0003, t01=0x008e}
0x0566…05a4 Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0003, t01=0x00bc}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05fa Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0003, t01=0x0104}
0x05fa…0604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0150}
0x0604…0646 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0003, t01=0x015a}
0x0646…064a Head {h00=0x0054, h01=0x0050}
0x064a…064e Head {h00=0x2a20, h01=0x2020}
0x064e…0690 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┆
0x0690…06e0 52 4f 52 52 4f 55 54 49 4e 45 00 04 00 0c 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 04 00 64 00 06 00 50 2a 20 00 04 00 8e 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RORROUTINE & P* GTWBCD1 - 0 d P* 8 P**********┆
0x06e0…0730 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 04 00 98 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 ┆****************************************** 0 PRAREAD PROC DSET,$NR,B┆
0x0730…0780 55 46 2c 4c 45 4e 47 2c 52 45 43 4e 52 20 00 04 00 d4 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 04 01 08 00 18 00 50 20 50 45 52 46 20 57 41 49 54 46 2c 43 53 49 4e 47 4c 45 20 00 04 01 1a 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f ┆UF,LENG,RECNR P PLIT $NR P PERF WAITF,CSINGLE : P MO┆
0x0780…07ce 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 04 01 36 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 ┆VE GSWBIN1,LENG GET LENGTH 6 8 P MOVE SPBINW4,┆
0x07ce…081e (5, 0, 400) 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 04 01 74 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 05 00 20 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 52 52 45 41 44 20 20 20 20 20 ┆CBIN0 ZEROISE t P MOVE GTWBCD1,=D'0' < P RREAD ┆
0x081e…086e 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 05 00 3c 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 ┆DSET,BUF,GSWBIN1,RECNR READ RECORD < 4 P BEOF RAR10 ┆
0x086e…08be 20 20 20 20 20 20 20 20 4f 4b 20 3f 00 05 00 7c 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 05 00 b4 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 ┆ OK ? | P BOK RAR10 2 P PERF ERDK,D┆
0x08be…090e 53 45 54 2c 24 4e 52 20 20 20 20 20 20 20 20 20 20 20 4e 4f 00 05 00 d6 00 0a 00 50 52 41 52 31 30 20 00 05 01 0c 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 05 01 1a ┆SET,$NR NO PRAR10 & P TBT GTEXFLAG,RAR20 ┆
0x090e…095e 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 00 05 01 44 00 20 00 50 52 41 52 32 ┆ D P DSC0 DSET,RACCS RELEASE EXCL. ACCES D PRAR2┆
0x095e…09ae (6, 0, 400) 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 05 01 8c 00 12 00 50 20 43 4c 45 41 52 20 43 53 49 4e 47 4c 45 00 06 00 20 00 1c 00 50 20 53 57 49 54 43 48 5c 5c 50 52 45 56 45 4e 54 20 48 41 4e 47 55 50 20 00 06 ┆0 CLEAR GTEXFLAG P CLEAR CSINGLE P SWITCH PREVENT HANGUP ┆
0x09ae…09fe 00 36 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 06 00 56 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 ┆ 6 8 P CMP CBIN0,SPBINW4 SET CR V P RET ┆
0x09fe…0a4e 00 06 00 92 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 06 00 a8 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 06 00 be 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 ┆ P PEND P EJECT > P**************************┆
0x0a4e…0a9e 2a 2a 2a 2a 2a 2a 2a 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 06 00 d6 00 06 00 50 2a 20 00 06 01 18 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 ┆******************************* P* * P* DISC ERROR ROUTINE ┆
0x0a9e…0aee 20 20 20 20 45 52 44 4b 00 06 01 22 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 06 01 50 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 06 01 62 00 06 00 50 ┆ ERDK " P* CALL: P * P* PERF ERDK,<DATASET>,<SETNR> b P┆
0x0aee…0b3e (7, 0, 400) 2a 20 00 06 01 90 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 07 00 0a 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 43 41 53 45 ┆* 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN $ P* CASE┆
0x0b3e…0b8e 20 4f 46 20 45 52 52 4f 52 20 4f 4e 20 44 49 53 43 20 00 07 00 42 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 07 ┆ OF ERROR ON DISC B 8 P* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT ┆
0x0b8e…0bde 00 6a 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 07 00 a6 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 45 4e ┆ j : P* AND THE TEXT IS DISPLAYED WITH SCREENPACKAGE P* EN┆
0x0bde…0c2e 54 52 59 20 53 50 45 52 52 20 00 07 00 e4 00 06 00 50 2a 20 00 07 01 02 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 07 01 0c 00 06 00 50 2a 20 00 07 01 2e 00 3a 00 50 2a 20 41 4c 54 45 52 45 ┆TRY SPERR P* P* ALTERED PARAMETERS: NONE P* . : P* ALTERE┆
0x0c2e…0c7e 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 07 01 38 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 ┆D FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 8 * P* GTWBCD2 ┆
0x0c7e…0cce (8, 0, 400) 2d 20 45 52 52 4f 52 43 4f 44 45 20 00 07 01 76 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 08 00 14 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆- ERRORCODE v & P* GTNWFLG - FALSE & P* ┆
0x0cce…0d1e 53 50 4b 45 59 46 4c 47 20 2d 20 54 52 55 45 20 00 08 00 3e 00 06 00 50 2a 20 00 08 00 68 00 06 00 50 2a 20 00 08 00 72 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 ┆SPKEYFLG - TRUE > P* h P* r B P************************************┆
0x0d1e…0d6e 2a 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 08 00 7c 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 08 00 c2 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 ┆************************* | PERDK PROC DSET,$NR P PLIT $NR ┆
0x0d6e…0dbe 00 08 00 e6 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 08 00 f8 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 ┆ $ P PERF GETBIT,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DA┆
0x0dbe…0e0e 54 41 00 08 01 20 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 08 01 4a 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 ┆TA & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL J D P MOVE SPBINW4,┆
0x0e0e…0e5e (9, 0, 398) 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 08 01 74 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 ┆CBIN21 PREPARE TEXT (BIT NR) t : P MOVE GTWBCD2,$NR ┆
0x0e5e…0eae 20 20 20 20 20 20 20 20 44 41 54 41 53 45 54 20 4e 52 00 09 00 2c 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 09 00 6a 00 18 ┆ DATASET NR , 4 P MOVE GSWSTR9,=C'DISCFEJL ' TEXT j ┆
0x0eae…0efe 00 50 20 54 42 46 20 47 54 54 54 50 46 4c 47 2c 45 52 44 4b 31 30 00 09 00 a2 00 24 00 50 20 43 4c 45 41 52 20 53 50 4b 45 59 46 4c 47 20 4e 4f 20 4b 4f 52 4b 45 59 20 49 46 20 54 54 50 00 09 00 be 00 0a 00 50 45 52 44 4b 31 30 00 09 00 e6 ┆ P TBF GTTTPFLG,ERDK10 $ P CLEAR SPKEYFLG NO KORKEY IF TTP PERDK10 ┆
0x0efe…0f4e 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 09 00 f4 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 46 4c ┆ < P PERF SPERR DISPLAY TEXT P SET SPKEYFL┆
0x0f4e…0f9c 47 20 00 09 01 34 00 10 00 50 20 53 45 54 20 47 54 4e 57 46 4c 47 00 09 01 4a 00 18 00 50 20 54 42 46 20 47 54 54 54 50 46 4c 47 2c 45 52 44 4b 32 30 00 09 01 5e 00 18 00 50 20 50 45 52 46 20 57 52 49 54 4a 54 2c 3d 57 27 31 34 27 20 ┆G 4 P SET GTNWFLG J P TBF GTTTPFLG,ERDK20 ^ P PERF WRITJT,=W'14' ┆
0x0f9c…0fec (10, 0, 400) 00 09 01 7a 00 0a 00 50 45 52 44 4b 32 30 00 0a 00 08 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 00 0a 00 16 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 0a 00 2c 00 0e 00 50 20 42 20 45 52 44 4b 45 ┆ z PERDK20 P CLEAR GTNWFLG P MOVE SPBINW4,CBIN21 , P B ERDKE┆
0x0fec…103c 4e 44 00 0a 00 48 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0a 00 5a 00 28 00 50 20 4d 4f 56 45 20 53 50 42 49 4e 57 34 2c 43 42 49 4e 30 20 5c 50 52 45 50 41 52 45 20 46 4f 52 20 4f 4b 20 00 0a 00 6a 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0a ┆ND H PERDKRET Z ( P MOVE SPBINW4,CBIN0 PREPARE FOR OK j PERDKEND ┆
0x103c…108c 00 96 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 0a 00 a6 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0a 00 ca 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0a ┆ P CMP SPBINW4,CBIN0 SET CR P RET P PEND ┆
0x108c…10dc 00 e0 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0a 00 f6 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 ┆ P EJECT > P**************************************************┆
0x10dc…112c 2a 2a 2a 2a 2a 2a 2a 2a 00 0a 01 0e 00 06 00 50 2a 20 00 0a 01 50 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 00 0a 01 5a 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0a 01 72 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 ┆******** P* P P* GETBIT Z P* CALL: r $ P* PE┆
0x112c…117c (11, 0, 400) 52 46 20 47 45 54 42 49 54 2c 3c 44 41 54 41 53 45 54 3e 20 00 0a 01 84 00 38 00 50 2a 20 20 20 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 20 46 49 4e 44 53 20 54 48 45 20 42 49 54 20 20 20 20 49 4e 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 ┆RF GETBIT,<DATASET> 8 P* THIS ROUTINE FINDS THE BIT IN THE EXTENDED ┆
0x117c…11cc 00 0b 00 1c 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 0b 00 58 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 4e 3a 00 0b 00 70 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 ┆ P* STATUSWORD X P* RETURN: p < P* THE BITNR IN G┆
0x11cc…121c 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 0b 00 84 00 06 00 50 2a 20 00 0b 00 c4 00 16 00 50 2a 20 41 4c 54 45 52 45 44 20 46 49 45 4c 44 53 3a 20 00 0b 00 ce 00 32 00 50 2a 20 20 20 20 20 20 20 ┆TWBCD1 UNDEFINED GTWBCD1=1 P* P* ALTERED FIELDS: 2 P* ┆
0x121c…126c 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 0b 00 e8 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 0b 01 1e 00 1c ┆ GSWBIN1 - EXTENDED STATUSWORD P* GTWBCD1 - 1 ┆
0x126c…12bc 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 0b 01 42 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 0b 01 62 00 06 00 50 2a 20 00 0b 01 82 00 30 00 50 2a 20 43 52 ┆ P* GSWBIN2 B P* GSWBCD2 b P* 0 P* CR┆
0x12bc…130c (12, 0, 400) 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 0b 01 8c 00 06 00 50 2a 20 00 0c 00 30 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 ┆: STATUS-FOUND - BNG, NO-BIT-FOUND: BNG P* 0 > P**********************┆
0x130c…135c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 0c 00 3a 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 0c 00 7c 00 36 00 50 20 20 20 20 20 20 20 20 ┆************************************ : PGETBIT PROC DSET | 6 P ┆
0x135c…13ac 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 0c 00 98 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 ┆ XSTAT DSET,GSWBIN1 GET STATUS : P MOVE GTWBCD1,=D┆
0x13ac…13fc 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 0c 00 d2 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 ┆'15' BIT NR IN BCD : P MOVE GSWBIN2,CBIN1 BIT NR I┆
0x13fc…144c 4e 20 42 49 4e 20 00 0c 01 10 00 3e 00 50 47 45 54 31 30 20 20 20 20 20 43 41 4c 4c 20 20 20 20 20 20 4d 41 53 4b 2c 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 32 20 20 41 4e 44 20 57 49 54 48 20 53 54 41 54 55 53 20 00 0c 01 4e 00 34 00 50 ┆N BIN > PGET10 CALL MASK,GSWBIN1,GSWBIN2 AND WITH STATUS N 4 P┆
0x144c…149c (13, 0, 398) 20 20 20 20 20 20 20 20 20 20 42 4e 5a 20 20 20 20 20 20 20 47 45 54 52 45 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 55 4e 44 20 00 0c 01 90 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 ┆ BNZ GETRET FOUND ( P MOVE GSWB┆
0x149c…14ec 43 44 32 2c 47 53 57 42 49 4e 32 20 00 0d 00 38 00 36 00 50 20 20 20 20 20 20 20 20 20 20 4d 55 4c 20 20 20 20 20 20 20 47 53 57 42 43 44 32 2c 3d 44 27 32 27 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 42 49 54 00 0d 00 64 00 36 00 50 20 20 ┆CD2,GSWBIN2 8 6 P MUL GSWBCD2,=D'2' NEXT BIT d 6 P ┆
0x14ec…153c 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 49 4e 32 2c 47 53 57 42 43 44 32 20 20 20 20 20 20 20 43 4f 4e 56 45 52 54 20 00 0d 00 9e 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 ┆ MOVE GSWBIN2,GSWBCD2 CONVERT > P SUB GTWB┆
0x153c…158c 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 0d 00 d8 00 3a 00 50 20 20 20 20 20 20 20 20 20 20 43 42 47 20 20 20 20 20 20 20 47 54 57 42 43 44 31 2c 3d 44 27 31 27 2c 47 45 54 31 ┆CD1,=D'1' UPDATE BCD BITNR : P CBG GTWBCD1,=D'1',GET1┆
0x158c…15da 30 20 20 20 4e 4f 20 42 49 54 20 46 4f 55 4e 44 00 0d 01 1a 00 0a 00 50 47 45 54 52 45 54 00 0d 01 58 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0d 01 66 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0d 01 7c ┆0 NO BIT FOUND PGETRET X P RET f P PEND |┆
0x15da…15e0 (14, 0, 400) 00 0a 00 50 5c 45 ┆ P E┆
0x15e0…1630 4a 45 43 54 00 0e 00 04 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 0e 00 12 00 06 00 50 2a 20 ┆JECT > P********************************************************** P* ┆
0x1630…164e 00 0e 00 54 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 ┆ T P* RANDOM WRIT┆
0x164e…6558 […elided…]
0x6558…6580 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 ┆ GSWSTR20,GSWBIN3,CBIN20,GSWSTR2,CBIN0,C┆
0x6580…65d0 (65, 0, 400) 42 49 4e 31 00 40 01 62 00 10 00 50 20 42 4e 45 20 52 47 52 30 34 30 20 00 41 00 0c 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 41 00 20 00 20 00 50 20 4d 55 4c 20 47 54 44 55 50 46 28 ┆BIN1 @ b P BNE RGR040 A P MUL GTUSED(GSWBIN4),=W'-1' A P MUL GTDUPF(┆
0x65d0…6620 47 53 57 42 49 4e 34 29 2c 3d 44 27 2d 31 27 20 00 41 00 44 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 41 00 68 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 41 00 8c 00 0a 00 50 52 47 ┆GSWBIN4),=D'-1' A D P MUL GTREGF(GSWBIN4),=D'-1' A h P B RGR030 A PRG┆
0x6620…6670 52 30 33 37 00 41 00 9e 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 35 2c 47 53 57 53 54 52 32 20 43 4f 4e 56 45 52 54 20 46 49 45 4c 44 4e 42 52 00 41 00 ac 00 20 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 47 53 57 42 43 44 35 20 ┆R037 A * P MOVE GSWBCD5,GSWSTR2 CONVERT FIELDNBR A P MOVE GSWBIN1,GSWBCD5 ┆
0x6670…66c0 54 4f 20 42 49 4e 00 41 00 da 00 10 00 50 20 53 45 54 20 54 46 45 4c 54 39 30 00 41 00 fe 00 18 00 50 20 53 55 42 20 47 53 57 42 49 4e 31 2c 3d 57 27 38 39 27 20 00 41 01 12 00 1e 00 50 20 43 42 47 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 35 ┆TO BIN A P SET TFELT90 A P SUB GSWBIN1,=W'89' A P CBG GSWBIN1,CBIN5┆
0x66c0…6710 2c 52 47 52 30 33 35 41 00 41 01 2e 00 3a 00 50 20 58 43 4f 50 59 20 47 54 46 45 4c 54 39 30 28 47 53 57 42 49 4e 31 29 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 33 2c 43 50 43 4b 42 55 46 2c 47 53 57 42 49 4e 34 00 41 01 50 00 0e 00 50 20 42 ┆,RGR035A A . : P XCOPY GTFELT90(GSWBIN1),CBIN0,GSWBIN3,CPCKBUF,GSWBIN4 A P P B┆
0x6710…6760 (66, 0, 400) 20 52 47 52 30 33 35 41 00 41 01 8e 00 0a 00 50 52 47 52 30 34 30 00 42 00 10 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 42 00 1e 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 ┆ RGR035A A PRGR040 B P MOVE GSWBIN3,CBIN0 B 6 P MATCH GSWSTR20,GSWBIN┆
0x6760…67b0 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 42 00 3a 00 10 00 50 20 42 4e 45 20 52 47 52 30 33 30 20 00 42 00 74 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 ┆3,CBIN20,CBLANKS,CBIN0,CBIN1 B : P BNE RGR030 B t P MUL GTUSED(GSWBIN4),=W'┆
0x67b0…6800 2d 31 27 20 00 42 00 88 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 42 00 ac 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 42 00 be 00 22 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 33 2c 47 54 44 55 50 46 ┆-1' B P B RGR030 B PRGR060 SET D/K INFO B " P MOVE GSWBIN3,GTDUPF┆
0x6800…6850 28 47 53 57 42 49 4e 34 29 20 00 42 00 dc 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 42 01 02 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 42 01 26 00 0a 00 50 52 47 52 31 30 30 00 42 ┆(GSWBIN4) B P PERFI GSWBIN3,SETKRE,SETDEB B P B RGR030 B & PRGR100 B┆
0x6850…68a0 01 38 00 14 00 50 5c 5c 5c 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 00 42 01 46 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 42 01 5e 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 ┆ 8 P END OF RECORD B F P MOVE GSWSTR2,=X'7F' B ^ " P MOVE GSWBIN6,GSWBIN4 ┆
0x68a0…68f0 (67, 0, 400) 52 45 53 54 4f 52 45 20 00 42 01 7a 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 43 00 10 00 10 00 50 20 42 4e 45 20 52 ┆RESTORE B z 6 P MATCH CPCKBUF,GSWBIN6,GSWBIN5,GSWSTR2,CBIN0,CBIN1 C P BNE R┆
0x68f0…6940 47 52 31 31 30 20 00 43 00 4a 00 10 00 50 20 53 45 54 20 43 45 4f 52 46 4c 47 00 43 00 5e 00 0e 00 50 20 42 20 52 47 52 30 33 35 20 00 43 00 72 00 0a 00 50 52 47 52 31 31 30 00 43 00 84 00 24 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c ┆GR110 C J P SET CEORFLG C ^ P B RGR035 C r PRGR110 C $ P MOVE GSWSTR2,┆
0x6940…6990 3d 43 27 21 27 20 43 4f 4e 54 2e 20 52 45 43 4f 52 44 00 43 00 92 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 43 00 ba 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 ┆=C'!' CONT. RECORD C P MOVE GSWBIN6,GSWBIN4 C 6 P MATCH CPCKBUF,GSWBIN6,G┆
0x6990…69e0 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 43 00 d8 00 10 00 50 20 42 4e 45 20 52 47 52 52 45 54 32 00 43 01 12 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 ┆SWBIN5,GSWSTR2,CBIN0,CBIN1 C P BNE RGRRET2 C P DLETE CPCKBUF,CBIN0,GSWBI┆
0x69e0…6a30 4e 34 00 43 01 26 00 1a 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 43 50 43 4b 42 55 46 20 00 43 01 4a 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 43 01 68 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 ┆N4 C & P MOVE SPINPUT,CPCKBUF C J P ADD CTWBIN1,CBIN1 C h P TBT CWFLAG,RG┆
0x6a30…6a80 (68, 0, 400) 52 31 31 33 00 43 01 82 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 44 00 0c 00 0a 00 50 52 47 52 31 31 33 00 44 00 30 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 ┆R113 C P ADD CRECNR,CBIN1 KOLDSTART D PRGR113 D 0 P ADD GSWBCD2,=D'1'┆
0x6a80…6ad0 00 44 00 3e 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 44 00 58 00 32 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 30 2c 43 54 57 42 49 4e 31 20 53 41 56 45 20 46 4f 52 20 44 45 4c 45 54 45 20 50 55 52 ┆ D > P MOVE GSWBIN1,=W'128' D X 2 P MOVE GSWBIN10,CTWBIN1 SAVE FOR DELETE PUR┆
0x6ad0…6b20 50 4f 53 45 00 44 00 76 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 44 00 ac 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 ┆POSE D v 2 P PERF RAREAD,DSET,$DNR,CPCKBUF,GSWBIN1,CTWBIN1 D P BNOK RGRRET2 ┆
0x6b20…6b70 00 44 00 e2 00 14 00 50 5c 5c 5c 44 45 4c 45 54 45 20 48 45 41 44 45 52 00 44 00 f8 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 44 01 10 00 2a 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e ┆ D P DELETE HEADER D P DLETE CPCKBUF,CBIN0,CBIN11 D * P MOVE GSWBIN┆
0x6b70…6bc0 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 44 01 34 00 16 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 32 2c 3d 27 20 27 00 44 01 62 00 20 00 50 20 43 42 45 20 43 52 45 43 4c 47 44 2c 3d 57 27 31 32 38 27 ┆6,CBIN0 INSERT SAVED INFO D 4 P MOVE GSWSTR2,=' ' D b P CBE CRECLGD,=W'128'┆
0x6bc0…6c10 (69, 0, 400) 2c 52 47 52 31 31 35 20 00 44 01 7c 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 45 00 10 00 0a 00 50 52 47 52 31 31 35 00 45 00 2c 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 3d 57 27 33 35 27 00 45 ┆,RGR115 D | P MOVE GSWSTR2,=X'00' E PRGR115 E , P MOVE GSWBIN1,=W'35' E┆
0x6c10…6c60 00 3a 00 36 00 50 20 4d 41 54 43 48 20 53 50 49 4e 50 55 54 2c 47 53 57 42 49 4e 36 2c 47 53 57 42 49 4e 31 2c 47 53 57 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 45 00 56 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 ┆ : 6 P MATCH SPINPUT,GSWBIN6,GSWBIN1,GSWSTR2,CBIN0,CBIN1 E V P SUB GSWBIN6,CBI┆
0x6c60…6cb0 4e 31 00 45 00 90 00 2e 00 50 20 49 4e 53 52 54 20 43 50 43 4b 42 55 46 2c 43 42 49 4e 30 2c 47 53 57 42 49 4e 36 2c 53 50 49 4e 50 55 54 2c 43 42 49 4e 30 00 45 00 aa 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 30 20 ┆N1 E . P INSRT CPCKBUF,CBIN0,GSWBIN6,SPINPUT,CBIN0 E P MOVE GSWBIN6,CBIN0 ┆
0x6cb0…6d00 00 45 00 dc 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 45 00 f8 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 45 01 26 00 0a 00 50 52 47 52 32 30 30 00 45 ┆ E * P ADD GSWBCD3,=D'1' UPDATE LOG. REC. NO E P B RGR032 E & PRGR200 E┆
0x6d00…6d50 01 38 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 45 01 46 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 00 45 01 64 00 24 00 50 20 4d 4f 56 45 20 54 54 4c 42 4e 52 2c 47 54 4c 42 4e ┆ 8 P MOVE GTLBNR,GSWSTR20 E F P TBT CWFLAG,RGR205 E d $ P MOVE TTLBNR,GTLBN┆
0x6d50…6da0 (70, 0, 400) 52 20 49 4e 20 4b 4f 4c 44 53 54 41 52 54 00 45 01 7e 00 0a 00 50 52 47 52 32 30 35 00 46 00 16 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 46 00 24 00 0a 00 50 52 47 52 32 31 30 00 46 00 36 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c ┆R IN KOLDSTART E ~ PRGR205 F P B RGR030 F $ PRGR210 F 6 P TBT CWFLAG,┆
0x6da0…6df0 52 47 52 32 32 30 00 46 00 44 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 46 00 5e 00 0a 00 50 52 47 52 32 32 30 00 46 00 88 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 ┆RGR220 F D & P MOVE GTDATO,GSWSTR20 IF COLDSTART F ^ PRGR220 F P B RGR030 ┆
0x6df0…6e40 00 46 00 96 00 0c 00 50 52 47 52 52 45 54 32 20 00 46 00 a8 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 46 00 b8 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 46 00 d8 00 22 00 50 ┆ F PRGRRET2 F P CLEAR CPFLG DISK FREE F P CLEAR GTSWFLAG F " P┆
0x6e40…6e90 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 46 00 f0 00 08 00 50 20 52 45 54 00 46 01 16 00 0c 00 50 52 47 52 52 45 54 31 20 00 46 01 22 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c ┆ CMP CBIN0,CBIN1 CR=2, NOT OK F P RET F PRGRRET1 F " P CLEAR CPFLG ┆
0x6e90…6ee0 44 49 53 4b 20 46 52 45 45 20 00 46 01 32 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 46 01 52 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 46 01 68 00 08 00 50 20 52 45 54 ┆DISK FREE F 2 P SET GTSWFLAG F R P CMP CBIN1,CBIN0 CR=1, TR=11 F h P RET┆
0x6ee0…6f30 (71, 0, 400) 00 46 01 8c 00 0a 00 50 52 47 52 52 45 54 00 47 00 08 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 47 00 16 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 47 00 36 00 14 00 50 20 43 4c 45 ┆ F PRGRRET G P CLEAR CPFLG DISK FREE G P SET TTEORFLG G 6 P CLE┆
0x6f30…6f80 41 52 20 47 54 53 57 46 4c 41 47 20 00 47 00 4c 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 47 00 64 00 08 00 50 20 52 45 54 00 47 00 86 00 0a 00 50 20 50 45 4e 44 20 00 47 00 92 00 0a 00 50 ┆AR GTSWFLAG G L P CMP CBIN0,CBIN0 CR=0, OK G d P RET G P PEND G P┆
0x6f80…6fd0 20 45 4a 45 43 54 00 47 00 a0 00 12 00 50 57 41 49 54 46 20 50 52 4f 43 20 42 4f 4f 00 47 00 ae 00 22 00 50 2a 20 20 20 20 20 57 41 49 54 20 46 4f 52 20 42 4f 4f 20 54 4f 20 42 45 20 46 41 4c 53 45 00 47 00 c4 00 1a 00 50 2a 20 20 20 20 20 ┆ EJECT G PWAITF PROC BOO G " P* WAIT FOR BOO TO BE FALSE G P* ┆
0x6fd0…7020 54 48 45 4e 20 53 45 54 20 49 54 20 54 52 55 45 00 47 00 ea 00 0a 00 50 57 41 49 54 31 30 00 47 01 08 00 14 00 50 20 54 42 46 20 42 4f 4f 2c 57 41 49 54 39 30 20 00 47 01 16 00 1c 00 50 20 44 45 4c 41 59 20 43 42 49 4e 32 20 57 41 49 54 20 ┆THEN SET IT TRUE G PWAIT10 G P TBF BOO,WAIT90 G P DELAY CBIN2 WAIT ┆
0x7020…7070 32 30 30 20 4d 53 00 47 01 2e 00 1c 00 50 20 42 20 57 41 49 54 31 30 20 54 52 59 20 4f 4e 43 45 20 4d 4f 52 45 20 00 47 01 4e 00 0a 00 50 57 41 49 54 39 30 00 47 01 6e 00 0c 00 50 20 53 45 54 20 42 4f 4f 00 47 01 7c 00 08 00 50 20 52 45 54 ┆200 MS G . P B WAIT10 TRY ONCE MORE G N PWAIT90 G n P SET BOO G | P RET┆
0x7070…70a0 (72, 2, 48) 00 47 01 8c 00 0a 00 50 20 50 45 4e 44 20 00 48 00 08 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 48 00 16 40 04 00 00 00 48 00 2c ┆ G P PEND H P END H @ H ,┆
0x70a0…70a8 (73, 1, 8) 20 04 00 00 00 49 00 04 ┆ I ┆
0x70a8…70f8 (74, 0, 400) e9 58 00 2e 54 04 2a ff 57 04 81 59 00 2c e2 2d 8f 20 5c c6 86 04 01 40 a0 59 00 24 82 58 00 02 5a 12 5f 58 84 3f 83 58 00 02 82 20 01 00 3a 61 14 02 5a 06 a3 08 54 06 84 10 54 16 57 04 84 10 50 10 83 58 00 02 b3 08 3a 64 aa 0c 82 59 00 02 ┆ X .T * W Y , - @ Y $ X Z _X ? X :a Z T T W P X :d Y ┆
0x70f8…7148 03 01 84 3e f0 3e 84 08 82 3f 85 38 1c 20 52 0a 1c 40 52 54 1c 10 56 08 1a 40 25 10 3d 63 57 50 1c 08 52 60 50 1a 1c 02 52 26 50 38 1c 02 52 04 50 0e 57 1c 82 20 ff df a5 08 85 39 04 10 57 44 84 14 24 10 50 04 02 90 57 02 02 10 ad 08 5f 16 ┆ > > ? 8 R @RT V @% =cWP R`P R&P8 R P W 9 WD $ P W _ ┆
0x7148…7198 84 14 24 80 50 06 82 20 ff 7f 5f 24 82 20 ff ef 5f 2a 5f 2c 02 20 5f 1c 1a 20 25 30 3d 63 15 04 84 58 00 14 94 14 84 30 50 0a 94 08 82 3e e2 30 04 00 f0 3e 82 3e 5f 06 84 42 00 02 94 0c e2 31 13 01 97 a0 00 02 80 3e 11 01 99 18 e9 20 00 58 ┆ $ P _$ _*_, _ %0=c X 0P > 0 > >_ B 1 > X┆
0x7198…71e8 54 02 01 30 91 18 5f 16 03 82 0d 1d 03 82 09 1d 20 00 03 82 09 1d 04 1b 97 83 82 00 00 64 00 02 62 1c 00 00 64 72 64 8e 21 22 26 27 3b 3c 3e 40 5e 5f 18 19 00 02 06 07 08 0d 39 3a e1 58 00 06 21 07 97 04 e7 59 00 07 04 00 03 07 ef 4d 62 14 ┆T 0 _ d b drd !"&';<>@^_ 9: X ! Y Mb ┆
0x71e8…7238 50 08 1b 01 5e 0a 8f 20 5c be e4 59 00 03 93 0c 8f 4c 62 44 62 54 62 54 62 a0 63 36 62 6e 62 68 63 7a 63 80 02 82 f5 21 10 92 02 02 f5 21 10 92 02 00 f5 21 10 92 57 aa 00 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 b0 00 01 08 7f c9 2c ┆P ^ Y LbDbTbTb c6bnbhczc ! ! ! W @ ,┆
0x7238…7288 (75, 0, 400) 81 42 00 0a 57 24 83 42 00 02 e3 4c 00 01 23 ff 1b 39 51 0e 13 09 54 04 03 02 57 08 51 06 13 05 50 be 03 01 e1 58 00 26 99 0c 56 02 01 00 84 10 54 ae e1 59 00 26 57 a8 83 20 61 e8 e1 58 00 02 21 04 54 36 81 42 00 04 19 03 52 30 51 24 81 42 ┆ B W$ B L # 9Q T W Q P X & V T Y &W a X ! T6 B R0Q$ B┆
0x7288…72d8 00 02 e2 44 00 02 ea 21 20 20 56 16 84 08 02 82 f5 21 10 92 82 10 f5 21 10 92 02 97 f5 21 10 92 57 08 f5 21 65 2e f5 21 63 86 01 00 82 20 fd ff a2 59 00 02 02 82 f5 21 10 92 81 04 54 06 02 1e f5 21 10 92 1f 08 56 0a 17 02 e2 5c 62 12 f5 21 ┆ D ! V ! ! ! W !e. !c Y ! T ! V b !┆
0x72d8…7328 10 92 81 42 00 04 81 43 00 06 02 97 f5 21 10 92 02 03 f5 21 10 92 1f 02 54 06 22 08 54 0c 57 08 1f 04 51 06 22 04 54 02 29 20 8f 20 5c c2 f5 21 65 14 83 20 61 f2 81 20 02 00 a9 59 00 02 5f a4 02 82 f5 21 10 92 f5 21 64 e8 eb 59 00 26 50 1c ┆ B C ! ! T " T W Q " T ) !e a Y _ ! !d Y &P ┆
0x7328…7378 51 06 02 0b 13 01 57 04 02 0a 1b 01 f5 21 10 92 e3 59 00 27 22 08 88 20 64 9e 5f 22 83 20 61 ec 5f 3c f5 21 64 dc 5f 6e f5 21 65 14 5f 74 84 42 00 04 1c 02 83 42 00 02 13 02 e1 2c e9 21 20 20 54 06 13 01 1c 01 5f 0e 81 0c 91 10 e1 44 ff ff ┆Q W ! Y '" d _" a _< !d _n !e _t B B , ! T _ D ┆
0x7378…73c8 e9 21 09 09 50 0a e9 21 0d 0d 50 04 01 00 57 02 1c 01 81 43 00 06 1c 01 56 20 82 42 00 06 50 04 f5 21 10 92 02 97 f5 21 10 92 02 03 f5 21 10 92 81 20 04 00 a9 59 00 02 00 00 00 04 00 00 49 28 08 42 81 20 02 a0 28 01 09 24 00 00 00 00 49 05 ┆ ! P ! P W C V B P ! ! ! Y I( B ( $ I ┆
0x73c8…7418 (76, 0, 400) f0 34 93 10 1f 07 52 4e 51 08 22 08 50 48 15 04 5f bc 22 08 50 a8 81 10 19 02 52 3a 01 11 e9 4d ff fe 54 32 02 1e f5 21 10 92 e2 4c ff ff e1 2c 21 0f 3a 44 22 f0 a9 08 f5 21 64 d0 90 59 00 03 e9 59 00 03 55 08 02 20 f5 21 10 92 5f 24 1c 02 ┆ 4 RNQ " PH _ " P R: M T2 ! L ,! :D" !d Y Y U ! _$ ┆
0x7418…7468 1b 02 02 1d 57 34 e7 2c ef 21 ae ae 54 0c 1b 01 1c 01 e7 2c 27 0f e7 5c 62 08 ef 21 20 20 52 06 ef 21 5f 5f 55 0e 01 04 a9 43 00 08 87 58 00 06 27 ff 57 0a 90 59 00 03 82 1c f5 21 10 92 9b 10 5f b4 84 58 00 02 52 54 ef 20 00 02 55 08 81 04 ┆ W4 , ! T ,' b ! R !__U C X ' W Y ! _ X RT U ┆
0x7468…74b8 54 4a 8f 20 10 bc 81 04 58 08 8f 20 63 32 bc 3f 82 20 7f ff a2 59 00 02 82 58 00 04 50 0c 85 20 00 22 95 18 02 01 f5 21 10 92 02 00 e2 59 00 27 02 0c f5 21 10 92 82 58 00 04 54 0a 02 03 f5 21 10 92 8f 20 5c c2 04 01 8f 20 62 2a 8f 20 5c c6 ┆TJ X c2 ? Y X P " ! Y ' ! X T ! b* ┆
0x74b8…7508 82 04 1a 10 52 04 19 06 5f 08 f0 34 02 82 f5 21 10 92 02 0c f5 21 10 92 03 00 02 1a f5 21 10 92 22 08 54 1a 02 97 f5 21 10 92 02 83 f5 21 10 92 02 82 f5 21 10 92 02 0c f5 21 10 92 f0 34 e3 58 00 27 f0 34 01 00 e1 59 00 27 83 20 61 f6 02 82 ┆ R _ 4 ! ! ! " T ! ! ! ! 4 X ' 4 Y ' a ┆
0x7508…7558 f5 21 10 92 02 0c f5 21 10 92 22 08 50 10 e4 2c 24 ff 13 01 e2 2c f5 21 10 92 1c 01 5c 0c f0 34 00 a2 00 02 65 4e 00 00 66 b8 67 36 66 d4 02 82 83 1c 50 42 1b 05 50 38 00 00 08 04 04 00 08 00 02 00 22 00 08 20 a5 00 91 09 24 02 48 08 2e 0c ┆ ! ! " P ,$ , ! 4 eN f g6f PB P8 " $ H . ┆