|
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: 30158 (0x75ce)
Notes: pts_type(SC)
Names: »DKSUBS.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/DKSUBS.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/DKSUBS.SC«
IDENT DKSUBS 03.01.XXX.1
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…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT DKSUBS 03.01.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 SQWRIT «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY RGREAD «, t00=0x0000, t01=0x009c}
0x00ae…00c2 Head {h00=0x0010, h01=0x0050, text=» ENTRY RADEL«, t00=0x0000, t01=0x00b2}
0x00c2…00d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETBIT «, t00=0x0000, t01=0x00c6}
0x00d8…00ee Head {h00=0x0012, h01=0x0050, text=» ENTRY BACKUP «, t00=0x0000, t01=0x00dc}
0x00ee…0104 Head {h00=0x0012, h01=0x0050, text=» ENTRY RSTORE «, t00=0x0000, t01=0x00f2}
0x0104…011a Head {h00=0x0012, h01=0x0050, text=» ENTRY KFREAD «, t00=0x0000, t01=0x0108}
0x011a…0130 Head {h00=0x0012, h01=0x0050, text=» ENTRY KFWRIT «, t00=0x0000, t01=0x011e}
0x0130…0144 Head {h00=0x0010, h01=0x0050, text=» ENTRY WAITF«, t00=0x0000, t01=0x0134}
0x0144…0156 Head {h00=0x000e, h01=0x0050, text=» EXT ASSG «, t00=0x0000, t01=0x0148}
0x0156…0168 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x015a}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» EXT PACKCL «, t00=0x0000, t01=0x016c}
0x017c…0190 Head {h00=0x0010, h01=0x0050, text=» EXT PACKST «, t00=0x0000, t01=0x0180}
0x0190…01a4 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT SETKRE «, t00=0x0001, t01=0x0004}
0x01a4…01b8 Head {h00=0x0010, h01=0x0050, text=» EXT SETDEB «, t00=0x0001, t01=0x0018}
0x01b8…01ca Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x002c}
0x01ca…01de Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x003e}
0x01de…01f2 Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x0052}
0x01f2…0212 Head {h00=0x001c, h01=0x0050, text=» INCLUDE EQUATE«, t00=0x0001, t01=0x0066}
0x0212…024c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0086}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…028e Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS ALL DISC HANDLING«, t00=0x0001, t01=0x00ca}
0x028e…02bc Head {h00=0x002a, h01=0x0050, text=»* ROUTINES: RANDOM READ/WRITE «, t00=0x0001, t01=0x0102}
0x02bc…02ea Head {h00=0x002a, h01=0x0050, text=»* SEQ READ/WRITE «, t00=0x0001, t01=0x0130}
0x02ea…0314 Head {h00=0x0026, h01=0x0050, text=»* ERROR HANDLING«, t00=0x0001, t01=0x015e}
0x0314…033e Head {h00=0x0026, h01=0x0050, text=»* ASSIGN ROUTINE«, t00=0x0001, t01=0x0188}
0x033e…036c Head {h00=0x002a, h01=0x0050, text=»* DISK ERROR ROUTINE«, t00=0x0002, t01=0x0022}
0x036c…03ac Head {h00=0x003c, h01=0x0050, text=»* GET STATUS FROM EXTENDED STATUSWORD «, t00=0x0002, t01=0x0050}
0x03ac…03e0 Head {h00=0x0030, h01=0x0050, text=»* READ RECORD FROM REGSET «, t00=0x0002, t01=0x0090}
0x03e0…041a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00c4}
0x041a…0428 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00fe}
0x0428…0462 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x010c}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x046c…049a Head {h00=0x002a, h01=0x0050, text=»* RAREAD - RANDOM READ ROUTINE«, t00=0x0002, t01=0x0150}
0x049a…04e8 Head {h00=0x004a, h01=0x0050, text=»* CALL: PERF RAREAD,<DATASET>,<SETNR>,<BUFFER>,<LENGTH>,<RECNR>«, t00=0x0002, t01=0x017e}
0x04e8…04fc Head {h00=0x0010, h01=0x0050, text=»* RETURN:«, t00=0x0003, t01=0x003c}
0x04fc…0530 Head {h00=0x0030, h01=0x0050, text=»* CR=0 > OK CR = 4 NOK OK «, t00=0x0003, t01=0x0050}
0x0530…053a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x053a…0568 Head {h00=0x002a, h01=0x0050, text=»* IN CASE OF ERROR ERDK IS CALLED«, t00=0x0003, t01=0x008e}
0x0568…05a6 Head {h00=0x003a, h01=0x0050, text=»* EXCLUSIVE ACCES IS RELEASED IF GTEXFLAG IS FALSE«, t00=0x0003, t01=0x00bc}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05fc Head {h00=0x0048, h01=0x0050, text=»* ALTERED PARAMETERS: BUF OK- WANTED RECORD, NOK- UNKNOWN«, t00=0x0003, t01=0x0104}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0150}
0x0606…0648 Head {h00=0x003e, h01=0x0050, text=»* ALTERED FIELDS: GSWBIN1 - NBR. OF CHAR. TRANSFERRED«, t00=0x0003, t01=0x015a}
0x0648…064c Head {h00=0x0054, h01=0x0050}
0x064c…0650 Head {h00=0x2a20, h01=0x2020}
0x0650…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 ┆ SPBINW4 - OK - 0 NOK - ALTERED BY DIS┆
0x0690…06e0 45 52 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 ┆ERRORROUTINE & 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 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 ┆******************************************** 0 PRAREAD PROC DSET,$NR┆
0x0730…0780 2c 42 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 3a 00 50 20 20 20 20 20 20 20 20 20 20 4d 4f 56 45 20 20 20 20 20 20 47 53 57 42 49 4e 31 2c 4c 45 4e 47 20 20 20 20 20 20 ┆,BUF,LENG,RECNR P PLIT $NR : P MOVE GSWBIN1,LENG ┆
0x0780…07d0 20 20 20 20 20 47 45 54 20 4c 45 4e 47 54 48 20 00 04 01 1a 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 04 01 58 ┆ GET LENGTH 8 P MOVE SPBINW4,CBIN0 ZEROISE X┆
0x07d0…0820 (5, 0, 400) 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 04 00 3c 00 50 20 20 20 20 20 20 20 20 20 20 52 52 45 41 44 20 20 20 20 20 44 53 45 54 2c 42 55 46 2c 47 53 57 42 49 4e 31 2c 52 45 43 4e 52 20 20 52 45 41 44 ┆ P MOVE GTWBCD1,=D'0' < P RREAD DSET,BUF,GSWBIN1,RECNR READ┆
0x0820…0870 20 52 45 43 4f 52 44 20 00 05 00 20 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 05 00 60 00 1e 00 50 20 20 20 20 20 20 20 20 ┆ RECORD 4 P BEOF RAR10 OK ? ` P ┆
0x0870…08c0 20 20 42 4f 4b 20 20 20 20 20 20 20 52 41 52 31 30 20 00 05 00 98 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 05 00 ba 00 0a 00 50 ┆ BOK RAR10 2 P PERF ERDK,DSET,$NR NO P┆
0x08c0…0910 52 41 52 31 30 20 00 05 00 f0 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 00 fe 00 44 00 50 20 20 20 20 20 20 20 20 20 20 44 53 43 30 20 20 20 20 20 20 44 53 45 54 ┆RAR10 & P TBT GTEXFLAG,RAR20 D P DSC0 DSET┆
0x0910…0960 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 28 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 05 01 70 ┆,RACCS RELEASE EXCL. ACCES ( PRAR20 CLEAR GTEXFLAG p┆
0x0960…09b0 (6, 0, 400) 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 04 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 06 ┆ 8 P CMP CBIN0,SPBINW4 SET CR P RET ┆
0x09b0…0a00 00 40 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 06 00 56 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 06 00 6c 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 ┆ @ P PEND V P EJECT l > P****************************┆
0x0a00…0a50 2a 2a 2a 2a 2a 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 84 00 06 00 50 2a 20 00 06 00 c6 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 ┆***************************** P* * P* DISC ERROR ROUTINE ┆
0x0a50…0aa0 20 20 45 52 44 4b 00 06 00 d0 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 06 00 fe 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 10 00 06 00 50 2a 20 ┆ ERDK P* CALL: * P* PERF ERDK,<DATASET>,<SETNR> P* ┆
0x0aa0…0af0 00 06 01 3e 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 06 01 48 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4f ┆ > 4 P* THIS ROUTINE BUILDS THE ERRORCODE IN H $ P* CASE O┆
0x0af0…0b40 (7, 0, 400) 46 20 45 52 52 4f 52 20 4f 4e 20 44 49 53 43 20 00 06 01 80 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 00 18 ┆F ERROR ON DISC 8 P* THE ERRORCODE IS FOUND WITH ROUTINE GETBIT ┆
0x0b40…0b90 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 54 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 45 4e 54 52 ┆ : P* AND THE TEXT IS DISPLAYED WITH SCREENPACKAGE T P* ENTR┆
0x0b90…0be0 59 20 53 50 45 52 52 20 00 07 00 92 00 06 00 50 2a 20 00 07 00 b0 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 00 ba 00 06 00 50 2a 20 00 07 00 dc 00 3a 00 50 2a 20 41 4c 54 45 52 45 44 20 ┆Y SPERR P* P* ALTERED PARAMETERS: NONE P* : P* ALTERED ┆
0x0be0…0c30 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 00 e6 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 ┆FIELDS: SPBINW4 - NO-DATA/NEW-VOL: 0, ELSE 2 * P* GTWBCD2 - ┆
0x0c30…0c80 45 52 52 4f 52 43 4f 44 45 20 00 07 01 24 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 07 01 52 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 50 ┆ERRORCODE $ & P* GTNWFLG - FALSE R & P* SP┆
0x0c80…0cd0 (8, 0, 400) 4b 45 59 46 4c 47 20 2d 20 54 52 55 45 20 00 07 01 7c 00 06 00 50 2a 20 00 08 00 16 00 06 00 50 2a 20 00 08 00 20 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 ┆KEYFLG - TRUE | P* P* B P**************************************┆
0x0cd0…0d20 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 2a 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 70 00 0e 00 50 20 50 4c 49 54 20 24 4e 52 20 00 08 ┆*********************** * PERDK PROC DSET,$NR p P PLIT $NR ┆
0x0d20…0d70 00 94 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 a6 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 ┆ $ P PERF GETBIT,DSET & P CBE GTWBCD1,=D'4',ERDKRET NO DATA┆
0x0d70…0dc0 00 08 00 ce 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 00 f8 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 ┆ & P CBE GTWBCD1,=D'8',ERDKRET NEW VOL D P MOVE SPBINW4,CB┆
0x0dc0…0e10 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 22 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 ┆IN21 PREPARE TEXT (BIT NR) " : P MOVE GTWBCD2,$NR ┆
0x0e10…0e60 (9, 0, 398) 20 20 20 20 20 20 44 41 54 41 53 45 54 20 4e 52 00 08 01 6a 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 18 00 18 00 50 ┆ DATASET NR j 4 P MOVE GSWSTR9,=C'DISCFEJL ' TEXT P┆
0x0e60…0eb0 20 54 42 46 20 47 54 54 54 50 46 4c 47 2c 45 52 44 4b 31 30 00 09 00 50 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 6c 00 0a 00 50 45 52 44 4b 31 30 00 09 00 94 00 3c ┆ TBF GTTTPFLG,ERDK10 P $ P CLEAR SPKEYFLG NO KORKEY IF TTP l PERDK10 <┆
0x0eb0…0f00 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 a2 00 12 00 50 20 53 45 54 20 53 50 4b 45 59 46 4c 47 20 ┆ P PERF SPERR DISPLAY TEXT P SET SPKEYFLG ┆
0x0f00…0f50 00 09 00 e2 00 10 00 50 20 53 45 54 20 47 54 4e 57 46 4c 47 00 09 00 f8 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 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 09 01 28 ┆ P SET GTNWFLG P TBF GTTTPFLG,ERDK20 P PERF WRITJT,=W'14' (┆
0x0f50…0f9e 00 0a 00 50 45 52 44 4b 32 30 00 09 01 44 00 12 00 50 20 43 4c 45 41 52 20 47 54 4e 57 46 4c 47 00 09 01 52 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 09 01 68 00 0e 00 50 20 42 20 45 52 44 4b 45 4e 44 ┆ PERDK20 D P CLEAR GTNWFLG R P MOVE SPBINW4,CBIN21 h P B ERDKEND┆
0x0f9e…0fee (10, 0, 398) 00 09 01 84 00 0c 00 50 45 52 44 4b 52 45 54 20 00 0a 00 08 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 18 00 0c 00 50 45 52 44 4b 45 4e 44 20 00 0a 00 44 ┆ PERDKRET ( P MOVE SPBINW4,CBIN0 PREPARE FOR OK PERDKEND D┆
0x0fee…103e 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 54 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0a 00 78 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0a 00 8e ┆ P CMP SPBINW4,CBIN0 SET CR T P RET x P PEND ┆
0x103e…108e 00 14 00 50 20 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 20 00 0a 00 a4 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 > P****************************************************┆
0x108e…10de 2a 2a 2a 2a 2a 2a 00 0a 00 bc 00 06 00 50 2a 20 00 0a 00 fe 00 14 00 50 2a 20 20 20 20 20 20 20 20 20 47 45 54 42 49 54 00 0a 01 08 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0a 01 20 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 50 45 52 46 ┆****** P* P* GETBIT P* CALL: $ P* PERF┆
0x10de…112c 20 47 45 54 42 49 54 2c 3c 44 41 54 41 53 45 54 3e 20 00 0a 01 32 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 ┆ GETBIT,<DATASET> 2 8 P* THIS ROUTINE FINDS THE BIT IN THE EXTENDED ┆
0x112c…117c (11, 0, 400) 00 0a 01 5a 00 14 00 50 2a 20 20 20 20 53 54 41 54 55 53 57 4f 52 44 20 00 0b 00 08 00 10 00 50 2a 20 20 20 20 52 45 54 55 52 4e 3a 00 0b 00 20 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 ┆ Z P* STATUSWORD P* RETURN: < P* THE BITNR IN G┆
0x117c…11cc 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 34 00 06 00 50 2a 20 00 0b 00 74 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 7e 00 32 00 50 2a 20 20 20 20 20 20 20 ┆TWBCD1 UNDEFINED GTWBCD1=1 4 P* t P* ALTERED FIELDS: ~ 2 P* ┆
0x11cc…121c 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 98 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 00 ce 00 1c ┆ GSWBIN1 - EXTENDED STATUSWORD P* GTWBCD1 - 1 ┆
0x121c…126c 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 00 f2 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 12 00 06 00 50 2a 20 00 0b 01 32 00 30 00 50 2a 20 43 52 ┆ P* GSWBIN2 P* GSWBCD2 P* 2 0 P* CR┆
0x126c…12bc 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 3c 00 06 00 50 2a 20 00 0b 01 70 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* p > P**********************┆
0x12bc…130c (12, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0b 01 7a 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 2c 00 36 00 50 20 20 20 20 20 20 20 20 ┆************************************ z PGETBIT PROC DSET , 6 P ┆
0x130c…135c 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 48 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 H : P MOVE GTWBCD1,=D┆
0x135c…13ac 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 82 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┆
0x13ac…13fc 4e 20 42 49 4e 20 00 0c 00 c0 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 00 fe 00 34 00 50 ┆N BIN > PGET10 CALL MASK,GSWBIN1,GSWBIN2 AND WITH STATUS 4 P┆
0x13fc…144c 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 40 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┆
0x144c…149c (13, 0, 398) 43 44 32 2c 47 53 57 42 49 4e 32 20 00 0c 01 78 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 14 00 36 00 50 20 20 ┆CD2,GSWBIN2 x 6 P MUL GSWBCD2,=D'2' NEXT BIT 6 P ┆
0x149c…14ec 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 4e 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 N > P SUB GTWB┆
0x14ec…153c 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 88 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┆
0x153c…158c 30 20 20 20 4e 4f 20 42 49 54 20 46 4f 55 4e 44 00 0d 00 ca 00 0a 00 50 47 45 54 52 45 54 00 0d 01 08 00 12 00 50 20 20 20 20 20 20 20 20 20 20 52 45 54 20 00 0d 01 16 00 12 00 50 20 20 20 20 20 20 20 20 20 20 50 45 4e 44 00 0d 01 2c 00 0a ┆0 NO BIT FOUND PGETRET P RET P PEND , ┆
0x158c…15da 00 50 5c 45 4a 45 43 54 00 0d 01 42 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 0d 01 50 ┆ P EJECT B > P********************************************************** P┆
0x15da…15e0 (14, 0, 400) 00 06 00 50 2a 20 ┆ P* ┆
0x15e0…1630 00 0e 00 04 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 0e 00 0e 00 0e 00 50 2a 20 20 20 20 43 41 4c 4c 3a 00 0e 00 2e 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 ┆ P* RANDOM WRITE P* CALL: . > P* PERF RAWRIT┆
0x1630…1650 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 ┆,<DATASET>,<SETNR>,<BUFFER>,<REC┆
0x1650…65ce […elided…]
0x65ce…65e0 47 53 57 53 54 52 32 30 2c 43 50 43 4b 42 55 46 00 41 ┆GSWSTR20,CPCKBUF A┆
0x65e0…6630 00 4a 00 16 00 50 20 41 44 44 20 43 54 57 42 49 4e 31 2c 43 42 49 4e 31 00 41 00 68 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 31 31 33 00 41 00 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 ┆ J P ADD CTWBIN1,CBIN1 A h P TBT CWFLAG,RGR113 A P ADD CRECNR,CBIN1 KOLD┆
0x6630…6680 53 54 41 52 54 20 00 41 00 9c 00 0a 00 50 52 47 52 31 31 33 00 41 00 c0 00 16 00 50 20 41 44 44 20 47 53 57 42 43 44 32 2c 3d 44 27 31 27 00 41 00 ce 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 41 00 e8 ┆START A PRGR113 A P ADD GSWBCD2,=D'1' A P MOVE GSWBIN1,=W'128' A ┆
0x6680…66d0 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 50 4f 53 45 00 41 01 06 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 ┆ 2 P MOVE GSWBIN10,CTWBIN1 SAVE FOR DELETE PURPOSE A 2 P PERF RAREAD,DSET,$DNR┆
0x66d0…670e 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 41 01 3c 00 12 00 50 20 42 4e 4f 4b 20 52 47 52 52 45 54 32 20 00 41 01 72 00 14 00 50 5c 5c 5c 44 45 4c 45 54 ┆,CPCKBUF,GSWBIN1,CTWBIN1 A < P BNOK RGRRET2 A r P DELET┆
0x670e…675e (66, 0, 400) 45 20 48 45 41 44 45 52 00 41 01 88 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 42 00 10 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 ┆E HEADER A P DLETE CPCKBUF,CBIN0,CBIN11 B * P MOVE GSWBIN6,CBIN0 INSERT S┆
0x675e…67ae 41 56 45 44 20 49 4e 46 4f 20 00 42 00 34 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 42 00 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 2c 52 47 52 31 31 35 20 00 42 00 80 ┆AVED INFO B 4 P MOVE GSWSTR2,CBLANKS B b P CBE CRECLGD,=W'128',RGR115 B ┆
0x67ae…67fe 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 42 00 a4 00 0a 00 50 52 47 52 31 31 35 00 42 00 c0 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 ┆ P MOVE GSWSTR2,=X'00' B PRGR115 B 6 P MATCH GSWSTR20,GSWBIN6,CBIN19,GSW┆
0x67fe…684e 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 31 00 42 00 ce 00 16 00 50 20 53 55 42 20 47 53 57 42 49 4e 36 2c 43 42 49 4e 31 00 42 01 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 ┆STR2,CBIN0,CBIN1 B P SUB GSWBIN6,CBIN1 B 0 P INSRT CPCKBUF,CBIN0,GSWBIN6,G┆
0x684e…689e 53 57 53 54 52 32 30 2c 43 42 49 4e 30 20 00 42 01 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 42 01 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 ┆SWSTR20,CBIN0 B " P MOVE GSWBIN6,CBIN0 B V * P ADD GSWBCD3,=D'1' UPDATE LOG.┆
0x689e…68ee (67, 0, 400) 20 52 45 43 2e 20 4e 4f 00 42 01 72 00 0e 00 50 20 42 20 52 47 52 30 33 32 20 00 43 00 10 00 0a 00 50 52 47 52 32 30 30 00 43 00 22 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 43 00 30 00 16 00 50 20 54 ┆ REC. NO B r P B RGR032 C PRGR200 C " P MOVE GTLBNR,GSWSTR20 C 0 P T┆
0x68ee…693e 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 30 35 00 43 00 4e 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 43 00 68 00 0a 00 50 52 47 52 32 30 35 00 43 00 90 00 0e 00 50 20 42 ┆BT CWFLAG,RGR205 C N $ P MOVE TTLBNR,GTLBNR IN KOLDSTART C h PRGR205 C P B┆
0x693e…698e 20 52 47 52 30 33 30 20 00 43 00 9e 00 0a 00 50 52 47 52 32 31 30 00 43 00 b0 00 16 00 50 20 54 42 54 20 43 57 46 4c 41 47 2c 52 47 52 32 32 30 00 43 00 be 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 ┆ RGR030 C PRGR210 C P TBT CWFLAG,RGR220 C & P MOVE GTDATO,GSWSTR20 IF┆
0x698e…69de 20 43 4f 4c 44 53 54 41 52 54 00 43 00 d8 00 0a 00 50 52 47 52 32 32 30 00 43 01 02 00 0e 00 50 20 42 20 52 47 52 30 33 30 20 00 43 01 10 00 0c 00 50 52 47 52 52 45 54 32 20 00 43 01 22 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c ┆ COLDSTART C PRGR220 C P B RGR030 C PRGRRET2 C " P CLEAR CPFLG ┆
0x69de…6a2e 44 49 53 4b 20 46 52 45 45 20 00 43 01 32 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 43 01 52 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 43 01 6a 00 08 00 50 ┆DISK FREE C 2 P CLEAR GTSWFLAG C R " P CMP CBIN0,CBIN1 CR=2, NOT OK C j P┆
0x6a2e…6a7e (68, 0, 400) 20 52 45 54 00 43 01 90 00 0c 00 50 52 47 52 52 45 54 31 20 00 44 00 0c 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 44 00 1c 00 12 00 50 20 53 45 54 20 47 54 53 57 46 4c 41 47 20 00 44 00 3c 00 20 ┆ RET C PRGRRET1 D P CLEAR CPFLG DISK FREE D P SET GTSWFLAG D < ┆
0x6a7e…6ace 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 44 00 52 00 08 00 50 20 52 45 54 00 44 00 76 00 0a 00 50 52 47 52 52 45 54 00 44 00 82 00 1c 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 20 5c 44 49 ┆ P CMP CBIN1,CBIN0 CR=1, TR=11 D R P RET D v PRGRRET D P CLEAR CPFLG DI┆
0x6ace…6b1e 53 4b 20 46 52 45 45 20 00 44 00 90 00 12 00 50 20 53 45 54 20 54 54 45 4f 52 46 4c 47 20 00 44 00 b0 00 14 00 50 20 43 4c 45 41 52 20 47 54 53 57 46 4c 41 47 20 00 44 00 c6 00 1e 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 43 ┆SK FREE D P SET TTEORFLG D P CLEAR GTSWFLAG D P CMP CBIN0,CBIN0 C┆
0x6b1e…6b6e 52 3d 30 2c 20 4f 4b 20 00 44 00 de 00 08 00 50 20 52 45 54 00 44 01 00 00 0a 00 50 20 50 45 4e 44 20 00 44 01 0c 00 0a 00 50 20 45 4a 45 43 54 00 44 01 1a 00 12 00 50 57 41 49 54 46 20 50 52 4f 43 20 42 4f 4f 00 44 01 28 00 22 00 50 2a 20 ┆R=0, OK D P RET D P PEND D P EJECT D PWAITF PROC BOO D ( " P* ┆
0x6b6e…6bbe 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 44 01 3e 00 1a 00 50 2a 20 20 20 20 20 54 48 45 4e 20 53 45 54 20 49 54 20 54 52 55 45 00 44 01 64 00 0a 00 50 57 41 49 54 31 30 00 44 01 82 00 14 00 50 ┆ WAIT FOR BOO TO BE FALSE D > P* THEN SET IT TRUE D d PWAIT10 D P┆
0x6bbe…6c0e (69, 2, 170) 20 54 42 46 20 42 4f 4f 2c 57 41 49 54 39 30 20 00 44 01 90 00 1c 00 50 20 44 45 4c 41 59 20 43 42 49 4e 32 20 57 41 49 54 20 32 30 30 20 4d 53 00 45 00 18 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 ┆ TBF BOO,WAIT90 D P DELAY CBIN2 WAIT 200 MS E P B WAIT10 TRY ONCE MORE ┆
0x6c0e…6c5e 00 45 00 38 00 0a 00 50 57 41 49 54 39 30 00 45 00 58 00 0c 00 50 20 53 45 54 20 42 4f 4f 00 45 00 66 00 08 00 50 20 52 45 54 00 45 00 76 00 0a 00 50 20 50 45 4e 44 20 00 45 00 82 00 12 00 50 20 20 20 20 20 20 20 20 20 20 45 4e 44 20 00 45 ┆ E 8 PWAIT90 E X P SET BOO E f P RET E v P PEND E P END E┆
0x6c5e…6c68 00 90 40 04 00 00 00 45 00 a6 ┆ @ E ┆
0x6c68…6c70 (70, 1, 8) 20 04 00 00 00 46 00 04 ┆ F ┆
0x6c70…6cc0 (71, 0, 400) 4f 4b 00 2e 01 78 00 08 00 04 20 52 45 54 00 2f 00 0a 00 04 00 00 00 2f 00 16 00 0c 00 08 49 47 45 54 4e 4f 4b 31 00 2f 00 1e 00 16 00 12 20 4d 4f 56 45 20 4c 45 56 44 45 58 2c 43 42 49 4e 30 00 2f 00 2e 00 26 00 22 20 4d 4f 56 45 20 49 4e ┆OK . x RET / / IGETNOK1 / MOVE LEVDEX,CBIN0 / . & " MOVE IN┆
0x6cc0…6d10 44 58 2c 47 53 57 42 49 4e 34 20 50 4c 41 43 45 20 54 4f 20 49 4e 53 45 52 54 00 2f 00 48 00 22 00 50 20 43 4c 45 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 2f 00 72 00 18 00 14 20 43 4d 50 20 43 42 49 ┆DX,GSWBIN4 PLACE TO INSERT / H " P CLEAR CIDXFLG RELEASE BUFFER / r CMP CBI┆
0x6d10…6d60 4e 31 2c 43 42 49 4e 30 20 4e 4f 4b 00 2f 00 98 00 08 00 04 20 52 45 54 00 2f 00 b4 00 1c 00 50 49 47 45 54 33 30 30 5c 5c 5c 53 45 54 20 43 4f 4e 44 20 3d 20 45 52 52 00 2f 00 c0 00 16 00 12 20 4d 4f 56 45 20 4c 45 56 44 45 58 2c 43 42 49 ┆N1,CBIN0 NOK / RET / PIGET300 SET COND = ERR / MOVE LEVDEX,CBI┆
0x6d60…6db0 4e 30 00 2f 00 e0 00 14 00 10 20 4d 4f 56 45 20 49 4e 44 58 2c 43 42 49 4e 30 00 2f 00 fa 00 22 00 50 20 43 4c 45 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 2f 01 12 00 14 00 10 20 43 4d 50 20 43 42 49 ┆N0 / MOVE INDX,CBIN0 / " P CLEAR CIDXFLG RELEASE BUFFER / CMP CBI┆
0x6db0…6e00 4e 30 2c 43 42 49 4e 31 00 2f 01 38 00 08 00 04 20 52 45 54 00 2f 01 50 00 0a 00 05 20 50 45 4e 44 20 00 2f 01 5c 00 04 00 00 00 2f 01 6a 00 0a 00 50 20 45 4a 45 43 54 00 2f 01 72 00 10 00 50 49 44 58 49 4e 53 20 50 52 4f 43 20 00 2f 01 80 ┆N0,CBIN1 / 8 RET / P PEND / / j P EJECT / r PIDXINS PROC / ┆
0x6e00…6e50 (72, 0, 400) 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 30 00 04 00 06 00 01 2a 20 00 30 00 16 00 26 00 21 2a 20 20 20 20 20 49 4e 53 45 52 54 20 47 54 4c 45 56 4e 52 20 49 4e 20 49 4e 44 45 58 46 49 4c 45 20 00 30 00 20 00 06 00 01 2a 20 00 30 00 4a ┆ ********** 0 * 0 & !* INSERT GTLEVNR IN INDEXFILE 0 * 0 J┆
0x6e50…6ea0 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 30 00 54 00 28 00 24 20 50 45 52 46 20 49 44 58 47 45 54 2c 47 54 4c 45 56 4e 52 2c 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 35 00 30 00 66 00 1a 00 16 5c 5c 5c 47 53 57 42 49 4e 35 20 20 20 4c ┆ ********** 0 T ( $ PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 0 f GSWBIN5 L┆
0x6ea0…6ef0 45 56 20 49 4e 44 45 58 00 30 00 92 00 16 00 12 5c 5c 5c 47 53 57 42 49 4e 34 20 20 20 49 4e 44 45 58 00 30 00 b0 00 1c 00 18 20 42 45 52 52 20 58 49 4e 53 4e 4f 4b 20 44 49 53 4b 20 45 52 52 4f 52 00 30 00 ca 00 20 00 1c 20 42 4f 4b 20 58 ┆EV INDEX 0 GSWBIN4 INDEX 0 BERR XINSNOK DISK ERROR 0 BOK X┆
0x6ef0…6f40 49 4e 53 4e 4f 4b 20 41 4c 52 45 41 44 59 20 50 52 45 53 45 4e 54 00 30 00 ea 00 1c 00 17 2a 20 20 20 20 20 4e 4f 54 20 46 4f 55 4e 44 2c 20 49 4e 53 45 52 54 20 00 30 01 0e 00 18 00 50 20 50 45 52 46 20 57 41 49 54 46 2c 43 49 44 58 46 4c ┆INSNOK ALREADY PRESENT 0 * NOT FOUND, INSERT 0 P PERF WAITF,CIDXFL┆
0x6f40…6f90 47 20 00 30 01 2e 00 28 00 24 20 43 42 47 20 43 49 58 46 52 45 45 2c 43 49 58 4c 41 53 54 2c 58 49 4e 53 4e 4f 4b 20 4e 4f 20 52 4f 4f 4d 00 30 01 4a 00 2e 00 29 20 4d 4f 56 45 20 47 53 57 42 49 4e 38 2c 47 53 57 42 49 4e 34 20 50 4c 41 43 ┆G 0 . ( $ CBG CIXFREE,CIXLAST,XINSNOK NO ROOM 0 J . ) MOVE GSWBIN8,GSWBIN4 PLAC┆
0x6f90…6fe0 (73, 0, 398) 45 20 46 4f 52 20 49 4e 53 45 52 54 49 4f 4e 20 00 30 01 76 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 37 20 00 31 00 18 00 32 00 50 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 43 49 58 42 ┆E FOR INSERTION 0 v P MOVE GSWBIN1,CBIN7 1 2 P PERF RAREAD,DK07,=D'7',CIXB┆
0x6fe0…7030 55 46 2c 47 53 57 42 49 4e 31 2c 43 49 58 46 52 45 45 00 31 00 34 00 30 00 50 20 50 45 52 46 20 58 43 4f 50 2c 47 53 57 42 49 4e 37 2c 3d 57 27 30 27 2c 3d 57 27 32 27 2c 43 49 58 42 55 46 2c 3d 57 27 35 27 20 00 31 00 6a 00 28 00 23 20 4d ┆UF,GSWBIN1,CIXFREE 1 4 0 P PERF XCOP,GSWBIN7,=W'0',=W'2',CIXBUF,=W'5' 1 j ( # M┆
0x7030…7080 4f 56 45 20 47 53 57 42 49 4e 34 2c 43 49 58 46 52 45 45 20 53 54 41 52 54 20 4f 46 20 4c 4f 4f 50 20 00 31 00 9e 00 26 00 21 20 41 44 44 20 43 49 58 46 52 45 45 2c 43 42 49 4e 31 20 4e 45 57 20 46 49 52 53 54 20 46 52 45 45 20 00 31 00 ca ┆OVE GSWBIN4,CIXFREE START OF LOOP 1 & ! ADD CIXFREE,CBIN1 NEW FIRST FREE 1 ┆
0x7080…70d0 00 06 00 01 2a 20 00 31 00 f4 00 0c 00 07 58 49 4e 53 31 30 30 20 00 31 00 fe 00 2a 00 25 20 53 55 42 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 20 52 45 43 4f 52 44 20 54 4f 20 42 45 20 4d 4f 56 45 44 20 00 31 01 0e 00 2c 00 27 20 43 42 4c ┆ * 1 XINS100 1 * % SUB GSWBIN4,CBIN1 RECORD TO BE MOVED 1 , ' CBL┆
0x70d0…711e 20 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 38 2c 58 49 4e 53 32 30 30 20 41 4c 4c 20 4d 4f 56 45 44 3f 20 00 31 01 3c 00 0a 00 06 5c 5c 5c 4e 4f 2e 00 31 01 6c 00 18 00 13 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 37 20 ┆ GSWBIN4,GSWBIN8,XINS200 ALL MOVED? 1 < NO. 1 l MOVE GSWBIN1,CBIN7 ┆
0x711e…716e (74, 0, 400) 00 31 01 7a 00 32 00 2e 20 50 45 52 46 20 52 41 52 45 41 44 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 43 49 58 42 55 46 2c 47 53 57 42 49 4e 31 2c 47 53 57 42 49 4e 34 00 32 00 08 00 12 00 0d 20 42 4e 4f 4b 20 58 49 4e 53 4e 4f 4b 20 00 32 00 3e ┆ 1 z 2 . PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4 2 BNOK XINSNOK 2 >┆
0x716e…71be 00 16 00 12 20 41 44 44 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 00 32 00 54 00 2a 00 26 20 50 45 52 46 20 52 41 57 52 49 54 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 43 49 58 42 55 46 2c 47 53 57 42 49 4e 34 00 32 00 6e 00 12 00 0d 20 42 4e 4f ┆ ADD GSWBIN4,CBIN1 2 T * & PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4 2 n BNO┆
0x71be…720e 4b 20 58 49 4e 53 4e 4f 4b 20 00 32 00 9c 00 24 00 1f 20 50 45 52 46 20 52 45 53 54 49 58 20 52 45 53 45 54 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 00 32 00 b2 00 16 00 12 20 53 55 42 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 00 32 00 da ┆K XINSNOK 2 $ PERF RESTIX RESET MASTER INDEX 2 SUB GSWBIN4,CBIN1 2 ┆
0x720e…725e 00 0e 00 0a 20 42 20 58 49 4e 53 31 30 30 00 32 00 f4 00 06 00 01 2a 20 00 32 01 06 00 0c 00 07 58 49 4e 53 32 30 30 20 00 32 01 10 00 28 00 23 2a 20 20 20 20 20 41 4c 4c 20 4d 4f 56 45 44 2c 20 49 4e 53 45 52 54 20 4c 45 56 4e 52 2b 49 4e ┆ B XINS100 2 * 2 XINS200 2 ( #* ALL MOVED, INSERT LEVNR+IN┆
0x725e…72ae 44 45 58 20 00 32 01 20 00 30 00 2b 20 50 45 52 46 20 58 43 4f 50 2c 43 49 58 42 55 46 2c 3d 57 27 30 27 2c 3d 57 27 35 27 2c 47 54 4c 45 56 4e 52 2c 3d 57 27 31 27 20 00 32 01 4c 00 30 00 2b 20 50 45 52 46 20 58 43 4f 50 2c 43 49 58 42 55 ┆DEX 2 0 + PERF XCOP,CIXBUF,=W'0',=W'5',GTLEVNR,=W'1' 2 L 0 + PERF XCOP,CIXBU┆
0x72ae…72fe (75, 0, 400) 46 2c 3d 57 27 35 27 2c 3d 57 27 32 27 2c 47 53 57 42 49 4e 37 2c 3d 57 27 30 27 20 00 32 01 80 00 2a 00 26 20 50 45 52 46 20 52 41 57 52 49 54 2c 44 4b 30 37 2c 3d 44 27 37 27 2c 43 49 58 42 55 46 2c 47 53 57 42 49 4e 38 00 33 00 24 00 2e ┆F,=W'5',=W'2',GSWBIN7,=W'0' 2 * & PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN8 3 $ .┆
0x72fe…734e 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 47 53 57 42 49 4e 38 20 50 4c 41 43 45 20 46 4f 52 20 49 4e 53 45 52 54 49 4f 4e 20 00 33 00 52 00 10 00 50 20 50 45 52 46 20 52 45 53 54 49 58 00 33 00 84 00 22 00 1d 20 43 4c 45 41 52 20 43 ┆ P MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION 3 R P PERF RESTIX 3 " CLEAR C┆
0x734e…739e 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 33 00 98 00 18 00 13 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 4f 4b 20 00 33 00 be 00 08 00 04 20 52 45 54 00 33 00 da 00 0c 00 07 58 49 4e 53 4e 4f 4b 20 00 33 ┆IDXFLG RELEASE BUFFER 3 CMP CBIN0,CBIN0 OK 3 RET 3 XINSNOK 3┆
0x739e…73ee 00 e6 00 22 00 1d 20 43 4c 45 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 33 00 f6 00 18 00 14 20 43 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 4e 4f 4b 00 33 01 1c 00 08 00 50 20 52 45 54 00 33 01 38 ┆ " CLEAR CIDXFLG RELEASE BUFFER 3 CMP CBIN1,CBIN0 NOK 3 P RET 3 8┆
0x73ee…743e 00 0a 00 50 20 50 45 4e 44 20 00 33 01 44 00 06 00 50 2a 20 00 33 01 52 00 0a 00 50 20 45 4a 45 43 54 00 33 01 5c 00 10 00 50 53 45 54 49 44 58 20 50 52 4f 43 20 00 33 01 6a 00 2a 00 25 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P PEND 3 D P* 3 R P EJECT 3 PSETIDX PROC 3 j * %******************┆
0x743e…748e (76, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 33 01 7e 00 06 00 01 2a 20 00 34 00 1c 00 2c 00 28 2a 20 49 4e 49 54 49 41 54 45 20 4d 41 53 54 45 52 20 49 4e 44 45 58 20 46 4f 52 20 4c 45 56 2d 52 45 47 49 53 54 45 52 00 34 ┆******************* 3 ~ * 4 , (* INITIATE MASTER INDEX FOR LEV-REGISTER 4┆
0x748e…74de 00 26 00 2c 00 28 2a 20 49 46 20 49 4e 44 45 58 20 45 4d 50 54 59 2c 20 53 45 54 20 55 50 20 41 4c 4c 20 45 4e 54 52 49 45 53 20 41 4e 44 00 34 00 56 00 1e 00 1a 2a 20 49 4e 49 54 49 41 54 45 20 53 50 45 43 49 41 4c 20 45 4e 54 52 49 45 53 ┆ & , (* IF INDEX EMPTY, SET UP ALL ENTRIES AND 4 V * INITIATE SPECIAL ENTRIES┆
0x74de…752e 00 34 00 86 00 06 00 01 2a 20 00 34 00 a8 00 10 00 50 2a 20 20 20 20 20 53 45 54 53 3a 20 00 34 00 b2 00 24 00 50 2a 20 20 20 20 20 43 49 58 4c 41 53 54 20 2d 20 4c 41 53 54 20 52 45 43 4f 52 44 20 4e 4f 2e 20 00 34 00 c6 00 24 00 50 2a 20 ┆ 4 * 4 P* SETS: 4 $ P* CIXLAST - LAST RECORD NO. 4 $ P* ┆
0x752e…757e 20 20 20 20 43 49 58 46 52 45 45 20 2d 20 46 49 52 53 54 20 46 52 45 45 20 45 4e 54 52 59 00 34 00 ee 00 06 00 50 2a 20 00 34 01 16 00 2a 00 26 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ CIXFREE - FIRST FREE ENTRY 4 P* 4 * &********************************┆
0x757e…75ce 2a 2a 2a 2a 2a 2a 00 34 01 20 00 04 00 00 00 34 01 4e 00 18 00 13 20 4d 4f 56 45 20 47 53 57 42 49 4e 34 2c 43 42 49 4e 31 20 00 34 01 56 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 37 20 00 34 01 72 00 18 00 14 20 4d ┆****** 4 4 N MOVE GSWBIN4,CBIN1 4 V P MOVE GSWBIN5,CBIN7 4 r M┆