|
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: 30176 (0x75e0)
Notes: pts_type(SC)
Names: »REMLEV.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/REMLEV.SC«
IDENT REMLEV 03.01.XXX.1 DDUM KMD08 PDIV ENTRY LEVOPR ENTRY LEVRD ENTRY LEVWRT ENTRY VARRD ENTRY IDXINS ENTRY IDXGET ENTRY VARINT ENTRY LEVDEL ENTRY IDXDEL ENTRY INITIX ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT EXT FMTREM EXT SPCLRA EXT SPCLRN EXT RAREAD EXT RAWRIT EXT RADEL EXT SETKEY EXT SPERR EXT SPLIN8 EXT ABORT INCLUDE EQUATE EJECT LEVOPR PROC **************************************** * * THE PROCEDURE CREATES A LEVERAND R. * ALL DISKFILES CONCERNED ARE UPDATED, * AS WELL AS THE MASTERINDEX IN CORE. * ***************************************** OPR000 MOVE SPKEY,CBIN2 MOVE GTLEVDAT,CMASKDAT SET CURRENT DATE MOVE GSWSTR9,=C'VEDLIGEH.' SET SPPROMPT SET GTDYFLG 1. TIME PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,OPROK,OPROK,OPR010 B OPR000 OPR010 LOOK FOR NUMBER PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 - LEVINDX GSWBIN4 - INDEX BERR OPRNOK DISKERROR BNOK OPR020 NOT FOUND PERF LEVRD FOUND BNOK OPRNOK OPR015 FOUND, DISPLAY INFO CLEAR GTSWFLAG CLEAR GTDYFLG PERF FMTREM,CBIN3 PERF SPCLRN IB SPBINW2,OPR000,OPR000,OPR030 B OPR015 OPR020 NOT FOUND, DISPLAY BLANKS CLEAR GTSWFLAG CLEAR GTDYFLG PERF FMTREM,CBIN3 PERF SPCLRA IB SPBINW2,OPR000,OPR000,OPR030 B OPR020 OPR030 LEV INFO KEYED IN, INSERT * FIELD CHECK * IF BFO = 2,3,7,8 GIRONR MUST BE PRESENT MOVE GSWBIN1,GTLEVBFO IB GSWBIN1, C OPR040,OPR035,OPR035,OPR040,OPR040, C OPR040,OPR035,OPR035,OPR040 B OPR040 OPR035 CBG GTLEVGI,=D'0',OPR040 OK MOVE SPBINW4,=W'5' PERF SPERR NOK B OPR015 OPR040 PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR OPROK BNOK OPR050 ALREADY EXISTING PERF LEVWRT WRITE STAM-INFO BNOK OPRNOK B OPR000 OPR050 CREATE NEW PERF IDXINS INSERT NEW INDEX BNOK OPR000 PERF LEVWRT BNOK OPR070 PERF VARINT PERF VARWRT WRITE VAR-LEV-INFORMATION BNOK OPR070 B OPR000 NEW LEV INSERTED OPR070 SOMETHING WRONG PERF IDXDEL DELETE LEV-ENTRY COMPLETELY B OPR000 OPRNOK PERF SETKEY CMP CBIN1,CBIN0 NOT OK RET OPROK PERF SETKEY CMP CBIN0,CBIN0 RET PEND EJECT LEVDEL PROC MOVE SPKEY,CBIN2 DEL000 MOVE GSWSTR9,=C'SLETNING ' SET SPPROMPT SET GTDYFLG 1. TIME PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,DELOK,DELOK,DEL010 B DEL000 DEL010 LOOK FOR NO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR DELNOK ERROR BNOK DEL000 NOT FOUND FOUND CHECK IF DELETION ALLOWED I.E. REFERENCES TO TRANSFILE ? OK, MAY BE DELETED PERF LEVRD READ STAMOPL PERF VARRD READ VARIABLE INFO TO CHECK IF DELETION ALLOWED SET GTSWFLAG CBG GTTRKEY,CBIN0,DEL030 ANY TRANS REFERENCE ? CLEAR GTSWFLAG NO DEL030 CLEAR GTDYFLG SET GTSPGFLG PERF FMTREM,CBIN3 PERF SPCLRN CLEAR GTSPGFLG IB SPBINW2,DEL000,DEL000,DEL050 B DEL030 DEL050 PERF IDXDEL DELETE LEV B DELOK DELNOK PERF SETKEY CMP CBIN1,CBIN0 RET DELOK PERF SETKEY CMP CBIN0,CBIN0 RET PEND EJECT LEVRD PROC ********** * * READ AND UNPACK LEVERAND INFORMATION * FOR LEVERAND NO GTLEVNR * ********** * LEVR000 TBF CLEVFLG,LEVR010 BUFFER FREE? DELAY CBIN2 NO, WAIT B LEVR000 * LEVR010 SET CLEVFLG RESERVE LEV-BUFFER PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 - LEV INDX GSWBIN4 - INDEX BERR LEVRNOK DISK ERROR BNOK LEVRNOK NOT FOUND FOUND READ LEV MOVE GSWBIN4,=W'128' RECORD SIZE MOVE CLEVBUF,CBLANKS PERF RAREAD,DK08,=D'8',CLEVBUF,GSWBIN4,GSWBIN5 BNOK LEVRNOK * UNPACK LEV INFO MOVE GSWBCD7,GTLEVNR STORE LEVNR PERF XCOP,GTLEVNR,=W'0',=W'6',CLEVBUF,=W'0' CBE GTLEVNR,GSWBCD7,LEVR030 MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD B LEVRNOK LEVR030 PERF XCOP,GTLEVNVN,=W'0',=W'30',CLEVBUF,=W'6' PERF XCOP,GTLEVADR,=W'0',=W'32',CLEVBUF,=W'36' PERF XCOP,GTLEVBY,=W'0',=W'20',CLEVBUF,=W'68' PERF XCOP,GTLEVPNR,=W'0',=W'3',CLEVBUF,=W'88' PERF XCOP,GTLEVPDI,=W'0',=W'13',CLEVBUF,=W'91' PERF XCOP,GTLEVBFO,=W'0',=W'1',CLEVBUF,=W'104' PERF XCOP,GTLEVGI,=W'0',=W'4',CLEVBUF,=W'105' PERF XCOP,GTLEVALT,=W'0',=W'6',CLEVBUF,=W'109' MOVE GTLEVDAT,=D'1' SET SIGN PERF XCOP,GTLEVDAT,=W'1',=W'3',CLEVBUF,=W'115' * LEVROK CLEAR CLEVFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET * LEVRNOK CLEAR CLEVFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND EJECT * LEVWRT PROC ********** * * PACK AND WRITE LEV INFORMATION FOR * LEVERAND NR GTLEVNR * ********** * LEVW000 TBF CLEVFLG,LEVW010 BUFFER FREE? DELAY CBIN2 NO, WAIT B LEVW000 LEVW010 SET CLEVFLG RESERVE LEV BUFFER * PACK LEV INFO MOVE CLEVBUF,CBLANKS PERF XCOP,CLEVBUF,=W'0',=W'6',GTLEVNR,=W'0' PERF XCOP,CLEVBUF,=W'6',=W'30',GTLEVNVN,=W'0' PERF XCOP,CLEVBUF,=W'36',=W'32',GTLEVADR,=W'0' PERF XCOP,CLEVBUF,=W'68',=W'20',GTLEVBY,=W'0' PERF XCOP,CLEVBUF,=W'88',=W'3',GTLEVPNR,=W'0' PERF XCOP,CLEVBUF,=W'91',=W'13',GTLEVPDI,=W'0' PERF XCOP,CLEVBUF,=W'104',=W'1',GTLEVBFO,=W'0' PERF XCOP,CLEVBUF,=W'105',=W'4',GTLEVGI,=W'0' PERF XCOP,CLEVBUF,=W'109',=W'6',GTLEVALT,=W'0' MOVE GTLEVDAT,CMASKDAT PERF XCOP,CLEVBUF,=W'115',=W'3',GTLEVDAT,=W'1' * WRITE PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDX GSWBIN4 INDEX BERR LEVWNOK DISK ERROR BNOK LEVWNOK NOT FOUND FOUND PERF RAWRIT,DK08,=D'8',CLEVBUF,GSWBIN5 BNOK LEVWNOK * LEVWOK CLEAR CLEVFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET * LEVWNOK CLEAR CLEVFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND EJECT * LEVINT PROC ********** * * INITIATE STAM INFORMATION FOR * LEVERAND NR GTLEVNR * ********** * MOVE GTLEVNVN,CBLANKS MOVE GTLEVADR,CBLANKS MOVE GTLEVBY,CBLANKS MOVE GTLEVPNR,=D'0' MOVE GTLEVPDI,CBLANKS MOVE GTLEVBFO,=D'0' MOVE GTLEVGI,=D'0' MOVE GTLEVALT,=D'0' MOVE GTLEVDAT,CMASKDAT RET PEND EJECT * LEVSPG PROC ******************************************* * * PROCEDURE FOR FORESP RGSEL P] * LEVERAND RER * ******************************************** LSPG000 MOVE GSWSTR9,='FORESPG. ' SET SPPROMPT SET GTSPGFLG 1. TIME SET GTDYFLG FORESPG PERF FMTREM,CBIN3 ATTACH FORMAT PERF SPCLRA WRITE ON SCREEN IB SPBINW2,LSPGOK,LSPGOK,LSPG010 B LSPG000 LSPG010 PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 - LEVINDX GSWBIN4 INDEX BERR LSPGNOK DISK ERROR BNOK LSPGNOK NOT FOUND * LEV NR GTLEVNR FOUND PERF LEVRD READ STAMINFO BNOK LSPGNOK PERF VARRD READ VARIABLE INFO BNOK LSPGNOK LSPG015 CLEAR GTSWFLAG CLEAR GTDYFLG DISPLAY INFO PERF FMTREM,CBIN3 PERF SPCLRN IB SPBINW2,LSPG000,LSPG000,LSPG100 B LSPG015 LSPG100 OK CONTINUE TO VARIABLE INFO TBT GTVDUFLG,LSPG200 PERF FMTREM,CBIN4 VARIABLE INFO PERF SPCLRN IB SPBINW2,LSPG015,LSPG015,LSPG200 B LSPG100 LSPG200 CBE GTTRKEY,CBIN0,LSPG500 NO TRANS * READ TRANS LSPG210 PERF FMTREM,CBIN5 PERF SPCLRN IB SPBINW2,LSPG500,LSPG500,LSPG200 B LSPG210 LSPG500 PERF GETNXT GET NEXT LEVNR BNOK LSPG000 B LSPG010 LSPGNOK LSPGOK RET PEND * EJECT LEVPRT PROC * ********** * * PRINT LEVERANDS * ********** * TBT GTGTPFLG,LPRT000 TBF GTLPFLG,LPRTRET LPRT000 SET SPPROMPT PERF FMTREM,CBIN6 PERF SPCLRA IB SPBINW2,LPRTRET,LPRTRET,LPRT010 LPRT010 * PRINT HEADER CBG GTPRTFRA,=D'0',LPRT020 MOVE GTPRTFRA,=D'19' FIRST LEV LPRT020 CBNL GTPRTTIL,GTPRTFRA,LPRT030 MOVE GTPRTTIL,=D'9999999999' LAST TO PRINT LPRT030 CLEAR GTSWFLAG SET GTDYFLG CBE GTLEVBFO,=D'1',LPRT040 CLEAR GTDYFLG NOT VAR INFO LPRT040 TBF GTLPFLG,LPRT045 EDWRT DSHCLP,FFEED FORM FEED LPRT045 MOVE GSWBCD6,GTPRTDAT GTPRTDAT: DDMMYY PERF CHDATO MOVE GTPRTDAT,GSWBCD7 GTPRTDAT: YYMMDD MOVE GTLEVNR,GTPRTFRA SET FIRST NO. TO PRINT LPRT050 CBG GTLEVNR,GTPRTTIL,LPRTRET PERF LEVRD BNOK LPRT100 NOT FOUND MOVE GSWBCD6,GTLEVDAT GTLEVDAT: DDMMYY PERF CHDATO GSWBCD7: YYMMDD CBL GSWBCD7,GTPRTDAT,LPRT100 TBF GTDYFLG,LPRT080 PERF VARRD BNOK LPRT100 LPRT080 * FLIP FLOP FOR LINEFEEDS TBT GTSWFLAG,LPRT085 SET GTSWFLAG B LPRT090 LPRT085 CLEAR GTSWFLAG LPRT090 TBT GTLPFLG,LPRT095 EDWRT DSHCGP,FLEVPRT GTP B LPRT100 LPRT095 EDWRT DSHCLP,FLEVPRT LP * LPRT100 TO NEXT PERF SPLIN8,CBIN0,CBIN0 TESTIO KEYB BOK LPRT110 OK: KEYBORD INPUT CALL ABORT,KEYB B LPRT150 CONTINUE LPRT110 MAK KEY? WAIT KEYB CBNE SPBINW2,CBIN6,LPRT150 CONTINUE B LPRTRET * LPRT150 PERF GETNXT BNOK LPRTRET FINISH B LPRT050 READ NEXT * LPRTRET RET PEND EJECT * VARRD PROC ********** * * READ AND UNPACK VARIABLE INFORMATION * FOR LEVERAND NR GTLEVNR * ********** * VARR000 TBF CVARFLG,VARR010 BUFFER FREE? DELAY CBIN2 NO WAIT B VARR000 VARR010 SET CVARFLG RESERVE VAR BUFFER PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR VARRNOK DISK ERROR BNOK VARRNOK NOT FOUND FOUND MOVE GSWBIN4,=W'49' RECORD SIZE MOVE CVARBUF,CBLANKS PERF RAREAD,DK09,=D'9',CVARBUF,GSWBIN4,GSWBIN5 BNOK VARRNOK * UNPACK VAR INFO MOVE GSWBCD7,GTLEVNR STORE LEVNR PERF XCOP,GTLEVNR,=W'0',=W'6',CVARBUF,=W'0' CBE GTLEVNR,GSWBCD7,VARR030 MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD B VARRNOK VARR030 MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'6' MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'9' MOVE GTREGF(CBIN11),GSWBCD7 UDB BELOB PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'16' MOVE GTREGF(CBIN12),GSWBCD7 UDB ]TD PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'23' MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'30' MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT MOVE GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL. ADD GTREGF(CBIN16),GTREGF(CBIN14) MOVE GSWBCD7,=D'1' SET SIGN PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'37' MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO PERF XCOP,GTTRKEY,=W'0',=W'2',CVARBUF,=W'47' CLEAR CVARFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET * VARRNOK CLEAR CVARFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND EJECT * VARWRT PROC ********** * * PACK AND WRITE VARIABLE INFORMATION FOR * LEVERAND NO GTLEVNR * ********** * VARW000 TBF CVARFLG,VARW010 BUFFER FREE? DELAY CBIN2 NO, WAIT B VARW000 VARW010 SET CVARFLG RESERVE BUFFER * PACK VARIABLE INFORMATION MOVE CVARBUF,CBLANKS PERF XCOP,CVARBUF,=W'0',=W'6',GTLEVNR,=W'0' MOVE GSWBCD7,GTREGF(CBIN10) UDB DATO PERF XCOP,CVARBUF,=W'6',=W'3',GSWBCD7,=W'4' MOVE GSWBCD7,GTREGF(CBIN11) UDB BELOB PERF XCOP,CVARBUF,=W'9',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN12) UDB ]TD PERF XCOP,CVARBUF,=W'16',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN14) VENT DEBET PERF XCOP,CVARBUF,=W'23',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN15) VENT KREDIT PERF XCOP,CVARBUF,=W'30',=W'7',GSWBCD7,=W'0' MOVE GSWBCD7,GTREGF(CBIN13) VAL DATO PERF XCOP,CVARBUF,=W'37',=W'3',GSWBCD7,=W'4' PERF XCOP,CVARBUF,=W'47',=W'2',GTTRKEY,=W'0' * WRITE PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR VARWNOK DISK ERROR BNOK VARWNOK NOT FOUND FOUND PERF RAWRIT,DK09,=D'9',CVARBUF,GSWBIN5 BNOK VARWNOK * VARWOK CLEAR CVARFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET * VARWNOK CLEAR CVARFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND EJECT * VARINT PROC ********** * * INITIATE VARIABLE INFO FOR * LEVERAND NR GTLEVNR MOVE GTREGF(CBIN10),=D'0' UDB DATO MOVE GTREGF(CBIN11),=D'0' UDB BELOB MOVE GTREGF(CBIN12),=D'0' UDB ]TD MOVE GTREGF(CBIN14),=D'0' VENT DEBET MOVE GTREGF(CBIN15),=D'0' VENT KREDIT MOVE GTREGF(CBIN13),=D'0' VAL DATO MOVE GTTRKEY,=W'0' TRANS POINTER RET PEND EJECT IDXGET PROC LEVNR,INDX,LEVDEX ******************************************** * * PROCEDURE FOR SEARCHING IN INDEXFILE FOR * A GIVE LEVNO. * * IF FOUND - CONDITION REGISTER IS SET TO OK * INDX INDEX IN INDEXFILE * LEVDEX INDEX LEV * * IF NOT FOUND - CONDITION REGISTER IS SET TO NOK = 1 * INDX INDEX TO PLACE TO INSERT * LEVDEX 0 * * IF DISKERR - CONDITION REGISTER IS SET TO ERR = 2 * INDEX 0 * LEVDEX =0 * ******************************************** MOVE GSWBIN5,CBIN0 GROUP MOVE GSWBIN4,CBIN0 RECORD IGET010 ADD GSWBIN4,=W'48' ADD GSWBIN5,CBIN1 ASEARCH FOR GROUP CBG GSWBIN4,CIXLAST,IGET020 RETURN NOT FOUND CBE CIXINDX(GSWBIN5),=D'0',IGET020 RETURN, NOT FOUND CBL CIXINDX(GSWBIN5),LEVNR,IGET010 KNTNO < MASTER ? B IGET030 TRY NEXT IGET020 NOT FOUND MOVE INDX,CIXFREE PLACE TO INSERT MOVE LEVDEX,CBIN0 CMP CBIN1,CBIN0 NOK RET IGET030 GROUP FOUND LEVNR WITHIN THIS GROUP GROUP GSWBIN5 SUB GSWBIN4,=W'48' IGET100 TBF CIDXFLG,IGET105 BUFFER FREE? DELAY CBIN2 NO, WAIT B IGET100 IGET105 SET CIDXFLG RESERVE BUFFER IGET110 ADD GSWBIN4,CBIN1 MOVE GSWBIN5,CBIN7 SIZE MOVE CIXBUF,CBLANKS PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 BNOK IGET300 MOVE GSWBCD7,=D'1' SET SIGN MOVE GSWBIN5,CBIN0 XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 CBE GSWBCD7,LEVNR,IGET200 FOUND CBG GSWBCD7,LEVNR,IGETNOK1 NOT FOUND B IGET110 LOOK AT NEXT IGET200 FOUND MOVE INDX,GSWBIN4 SET INDEX MOVE GSWBIN1,CBIN5 XCOPY GSWBIN5,CBIN0,CBIN2,CIXBUF,GSWBIN1 MOVE LEVDEX,GSWBIN5 SET LEV INDX CLEAR CIDXFLG RELEASE BUFFER CMP CBIN0,CBIN0 RETURN OK RET IGETNOK1 MOVE LEVDEX,CBIN0 MOVE INDX,GSWBIN4 PLACE TO INSERT CLEAR CIDXFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET IGET300 SET COND = ERR MOVE LEVDEX,CBIN0 MOVE INDX,CBIN0 CLEAR CIDXFLG RELEASE BUFFER CMP CBIN0,CBIN1 RET PEND EJECT IDXINS PROC ********** * * INSERT GTLEVNR IN INDEXFILE * ********** PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR XINSNOK DISK ERROR BOK XINSNOK ALREADY PRESENT * NOT FOUND, INSERT XINS000 TBF CIDXFLG,XINS010 BUFFER FREE? DELAY CBIN2 NO , WAIT B XINS000 XINS010 CBG CIXFREE,CIXLAST,XINSNOK NO ROOM SET CIDXFLG MOVE GSWBIN8,GSWBIN4 PLACE FOR INSERTION MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,CIXFREE PERF XCOP,GSWBIN7,=W'0',=W'2',CIXBUF,=W'5' MOVE GSWBIN4,CIXFREE START OF LOOP ADD CIXFREE,CBIN1 NEW FIRST FREE * XINS100 SUB GSWBIN4,CBIN1 RECORD TO BE MOVED CBL GSWBIN4,GSWBIN8,XINS200 ALL MOVED? NO. MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4 BNOK XINSNOK ADD GSWBIN4,CBIN1 PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4 BNOK XINSNOK PERF RESTIX RESET MASTER INDEX SUB GSWBIN4,CBIN1 B XINS100 * XINS200 * ALL MOVED, INSERT LEVNR+INDEX PERF XCOP,CIXBUF,=W'0',=W'5',GTLEVNR,=W'1' PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN8 MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION PERF RESTIX CLEAR CIDXFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET XINSNOK CLEAR CIDXFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND * EJECT SETIDX PROC ************************************* * * INITIATE MASTER INDEX FOR LEV-REGISTER * IF INDEX EMPTY, SET UP ALL ENTRIES AND * INITIATE SPECIAL ENTRIES * * SETS: * CIXLAST - LAST RECORD NO. * CIXFREE - FIRST FREE ENTRY * ************************************** MOVE GSWBIN4,CBIN1 MOVE GSWBIN5,=W'7' MOVE CIXBUF,CBLANKS PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 CBE GTWBCD1,=D'4',SIDX005 NO DATA ? MOVE GSWBIN5,CBIN0 MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 1.LEV=BLANK BE SIDX005 MOVE GSWBIN5,CBIN0 MOVE GSWBCD7,=D'1' > 0 XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET 1. LEV CBNE GSWBCD7,=D'1',SIDX005 IF NOT LEVNR 1 B SIDX100 SIDX005 INITIATE INDEX FILE * INITIATE INDEX FILE WITH BLANK ENTRIES MOVE GSWBIN4,CBIN0 SIDX050 ADD GSWBIN4,CBIN1 MOVE CIXBUF,CBLANKS CLEAR BUFFER MOVE GSWBIN5,CBIN0 XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN4,GSWBIN5 SET INDEX PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4 BOK SIDX050 * OK, FIRST LEV = 0000000000 * LOOP THROUGH INDEX FILE TO SET UP * MASTER INDEX IN CORE, AND TO FIND * SIZE OF INDEX FILE SIDX100 MOVE CIXLAST,CBIN0 MOVE CIXFREE,CBIN0 MOVE GSWBIN4,CBIN1 SIDX110 MOVE GSWBIN5,=W'7' MOVE CIXBUF,CBLANKS PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 READ RECORD CBE GTWBCD1,=D'4',SIDX130 FILE EXPANDED CBE GTWBCD1,=D'10',SIDX130 END OF DEVICE MOVE GSWBIN5,CBIN0 MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 BE SIDX130 FIRST FREE PERF RESTIX ADD GSWBIN4,CBIN1 B SIDX110 SIDX130 BLANK OR EOF MOVE CIXFREE,GSWBIN4 FIRST FREE ENTRY SUB GSWBIN4,CBIN1 LAST USED ENTRY CBE GSWBIN4,CBIN0,SIDX140 MOVE GSWBIN5,CBIN7 MOVE CIXBUF,CBLANKS PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 SIDX140 PERF RESTIX PERF INITIX RET PEND EJECT IDXDEL PROC ********** * * DELETE ALL ENTRIES FOR LEV NR. * GTLEVNR, IN * INDEXFILE, STAM, AND VAR FILE * ********** * PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDX GSWBIN4 INDEX BERR XDELNOK DISK ERROR BNOK XDELNOK NOT FOUND * FOUND XDEL000 TBF CIDXFLG,XDEL010 BUFFER FREE? DELAY CBIN2 NO, WAIT B XDEL000 XDEL010 SET CIDXFLG RESERVE BUFFER PERF RADEL,DK08,GSWBIN5 DELETE STAMRECORD PERF RADEL,DK09,GSWBIN5 DELETE VAR RECORD * MOVE GSWBIN7,GSWBIN5 KEEP LEVDEX XDEL100 ADD GSWBIN4,CBIN1 NEXT RECORD TO MOVE CBNL GSWBIN4,CIXFREE,XDEL200 MOVE GSWBIN1,CBIN7 LENGTH PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4 BNOK XDELNOK SUB GSWBIN4,CBIN1 WHERE TO MOVE PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4 BNOK XDELNOK PERF RESTIX ADD GSWBIN4,CBIN1 B XDEL100 * XDEL200 INSERT NEW FREE SUB CIXFREE,CBIN1 MOVE CIXBUF,CBLANKS PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' PERF RAWRIT,DK07,=D'7',CIXBUF,CIXFREE MOVE GSWBIN4,CIXFREE PERF RESTIX CLEAR CIDXFLG RELEASE BUFFER CMP CBIN0,CBIN0 OK RET * XDELNOK CLEAR CIDXFLG RELEASE BUFFER CMP CBIN1,CBIN0 NOK RET PEND * EJECT RESTIX PROC ********************************************** * * ********************************************** MOVE GSWBIN3,GSWBIN4 FIND GROUP NO ADD GSWBIN3,=W'47' DIV GSWBIN3,=W'48' GSWBIN3 = GROUP NO SUB CIXFREE,CBIN1 LAST USED CBE GSWBIN4,CIXFREE,RIX090 LAST USED ADD CIXFREE,CBIN1 FIRST FREE CBE GSWBIN4,CIXLAST,RIX100 LAST RECORD ? JUMP MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? MUL GSWBIN5,=W'48' SUB GSWBIN5,GSWBIN4 BNE RIXOK FINISHIF NOT LAST IN GROUP MOVE GSWBIN5,CBIN0 LAST IN GROUP MOVE GSWBCD7,=D'1' SET SIGN = + XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET LAST NO MOVE CIXINDX(GSWBIN3),GSWBCD7 B RIXOK RIX090 ADD CIXFREE,CBIN1 FIRST FREE RIX100 CBE GSWBIN3,CBIN0,RIX120 MOVE GSWBIN5,CBIN0 SET LAST USED NO MOVE GSWBCD7,=D'1' SET SIGN = + XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 MOVE CIXINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX RIX120 SET REMAINING INDICES CBG CIXLAST,CBIN0,RIX135 RIX125 ADD GSWBIN5,CBIN1 MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN5 CBE GTWBCD1,=D'10',RIX130 END OF DEVICE ? CBE GTWBCD1,=D'4',RIX155 FILE EXPANDED B RIX125 RIX130 SUB GSWBIN5,CBIN1 MOVE CIXLAST,GSWBIN5 LAST ENTRY IN INDEX FILE RIX135 MOVE GSWBIN5,CIXLAST ADD GSWBIN5,=W'47' DIV GSWBIN5,=W'48' LAST GROUP RIX140 ADD GSWBIN3,CBIN1 CBG GSWBIN3,GSWBIN5,RIXOK MOVE CIXINDX(GSWBIN3),=D'0' SET MASTER INDEX B RIX140 RIX150 ADD GSWBIN5,CBIN1 RIX155 MOVE CIXBUF,CBLANKS CLEAR BUFFER MOVE GSWBIN1,CBIN0 XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN5,GSWBIN1 SET INDEX PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN5 BOK RIX150 B RIX130 RIXOK RET PEND EJECT INITIX PROC **************************************** * * SET UP INDEXFILE 1. TIME * CHECK IF SYSTEM DEFINED ENTRIES * ARE PRESENT, ELSE INSERT THEM * * NEXT 15 RECORDS, LEV 1-15, POINTS TO * DIFFERENT SYSTEM DEFINED LISTS, * (PRINT LISTS) * **************************************** MOVE GTLEVNR,=D'1' LEV NO. ZERO PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 GSWBIN5 LEV INDEX GSWBIN4 INDEX BERR INITNOK DISK ERROR BNOK INIT100 NOT FOUND, INITIATE B INITOK * INIT100 * INSERT SYSTEM DEFINED ENTRIES CBG GTLEVNR,=D'15',INITOK PERF IDXINS BNOK INIT200 PERF LEVRD BOK INIT150 FOUND PERF LEVINT PERF LEVWRT PERF VARINT PERF VARWRT BNOK INIT200 INIT150 ADD GTLEVNR,=D'1' B INIT100 * INIT200 PERF IDXDEL B INIT150 * INITNOK CMP CBIN1,CBIN0 NOK RET * INITOK * INIT TRANSFILE IE LOOP THROUGH FILE * AND SET ALL RECORDS ON FREE LIST CMP CBIN0,CBIN0 OK RET PEND EJECT * GETNXT PROC ********************************* * * GET LEVNR FOR LEV FOLLOWING GTLEVNR * ********************************* PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5 BERR GNXTNOK BOK GNXT100 SUB GSWBIN4,CBIN1 NOT FOUND GNXT100 TBF CIDXFLG,GNXT110 DELAY CBIN2 B GNXT100 GNXT110 SET CIDXFLG ADD GSWBIN4,CBIN1 CBNL GSWBIN4,CIXFREE,GNXTNOK MOVE GSWBIN1,CBIN7 MOVE CIXBUF,CBLANKS PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4 BNOK GNXTNOK MOVE GTLEVNR,=D'1' PERF XCOP,GTLEVNR,=W'1',=W'5',CIXBUF,=W'0' CLEAR CIDXFLG CMP CBIN0,CBIN0 RET GNXTNOK CLEAR CIDXFLG CMP CBIN1,CBIN0 RET PEND EJECT CHDATO PROC ********** * * CHANGES GSWBCD6 (DDMMYY) TO * GSWBCD7 (YYMMDD) * ********** MOVE GSWBCD7,=D'1' SET SIGN PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4' PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5' PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6' RET PEND EJECT * XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT PLIT $TOPNT PLIT $SIZE PLIT $FROMPNT * * FUNCTION XCOPY: * THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT, * TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES * COPIED IS $SIZE * MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD MOVE GSWBIN4,$SIZE LENGTH MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5 RET PEND EJECT FLEVPRT FRMT PRINT OF LEVERAND. FNL FILLR ' ',8 FMEL '99E-99E-99',CMASKDAT FILLR ' ',2 FMEL '9999999999',GTLEVNR FILLR ' ',14 FMEL '99E-99E-99',GTLEVDAT FNL FILLR ' ',18 FCOPY GTLEVNVN FNL FILLR ' ',18 FCOPY GTLEVADR FNL FILLR ' ',18 FCOPY GTLEVBY FNL FILLR ' ',18 FMEL '9999',GTLEVPNR FILLR ' ',2 FCOPY GTLEVPDI FNL FILLR ' ',18 FMEL '9',GTLEVBFO FILLR ' ',2 FMEL 'XXXXXXX',GTLEVGI FILLR ' ',2 FMEL 'XXXXXXXXXX',GTLEVALT FNL FNL FBF GTDYFLG,FLEV190 FNL FILLR ' ',18 FMEL '99E-99E-99',GTREGF(CBIN10) FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN11) FNL FILLR ' ',26 FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN12) FNL FILLR ' ',18 FMEL '99E-99E-99',GTREGF(CBIN13) FILLR ' ',8 FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN14) FNL FILLR ' ',34 FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN15) FNL FILLR ' ',34 FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN16) FNL FNL FNL FNL FB FLEV200 FLEV190 FBT GTSWFLAG,FLEV200 FNL FLEV200 FMEND * * * FFEED FRMT FILLR '1',2 FMEND * * * * END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT REMLEV 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVOPR «, t00=0x0000, t01=0x0048}
0x005a…006e Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVRD«, t00=0x0000, t01=0x005e}
0x006e…0084 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVWRT «, t00=0x0000, t01=0x0072}
0x0084…0098 Head {h00=0x0010, h01=0x0050, text=» ENTRY VARRD«, t00=0x0000, t01=0x0088}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXINS «, t00=0x0000, t01=0x009c}
0x00ae…00c4 Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXGET «, t00=0x0000, t01=0x00b2}
0x00c4…00da Head {h00=0x0012, h01=0x0050, text=» ENTRY VARINT «, t00=0x0000, t01=0x00c8}
0x00da…00f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVDEL «, t00=0x0000, t01=0x00de}
0x00f0…0106 Head {h00=0x0012, h01=0x0050, text=» ENTRY IDXDEL «, t00=0x0000, t01=0x00f4}
0x0106…011c Head {h00=0x0012, h01=0x0050, text=» ENTRY INITIX «, t00=0x0000, t01=0x010a}
0x011c…0132 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETIDX «, t00=0x0000, t01=0x0120}
0x0132…0148 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVSPG «, t00=0x0000, t01=0x0136}
0x0148…015e Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVPRT «, t00=0x0000, t01=0x014c}
0x015e…0172 Head {h00=0x0010, h01=0x0050, text=» EXT FMTREM «, t00=0x0000, t01=0x0162}
0x0172…0186 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0176}
0x0186…019a Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x018a}
0x019a…01ae Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x000e}
0x01ae…01c2 Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x0022}
0x01c2…01d4 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x0036}
0x01d4…01e8 Head {h00=0x0010, h01=0x0050, text=» EXT SETKEY «, t00=0x0001, t01=0x0048}
0x01e8…01fa Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x005c}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x006e}
0x020e…0220 Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0001, t01=0x0082}
0x0220…0238 Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0094}
0x0238…0246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ac}
0x0246…025a Head {h00=0x0010, h01=0x000b, text=»LEVOPR PROC «, t00=0x0001, t01=0x00ba}
0x025a…028a Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0001, t01=0x00ce}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02c2 Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE CREATES A LEVERAND R. «, t00=0x0001, t01=0x0108}
0x02c2…02f0 Head {h00=0x002a, h01=0x0050, text=»* ALL DISKFILES CONCERNED ARE UPDATED,«, t00=0x0001, t01=0x0136}
0x02f0…031e Head {h00=0x002a, h01=0x0050, text=»* AS WELL AS THE MASTERINDEX IN CORE. «, t00=0x0001, t01=0x0164}
0x031e…0328 (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…035a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x000e}
0x035a…0368 Head {h00=0x000a, h01=0x0006, text=»OPR000«, t00=0x0002, t01=0x0040}
0x0368…0382 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x004e}
0x0382…03b2 Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVDAT,CMASKDAT SET CURRENT DATE«, t00=0x0002, t01=0x0068}
0x03b2…03d6 Head {h00=0x0020, h01=0x001b, text=» MOVE GSWSTR9,=C'VEDLIGEH.' «, t00=0x0002, t01=0x0098}
0x03d6…03ec Head {h00=0x0012, h01=0x000d, text=» SET SPPROMPT «, t00=0x0002, t01=0x00bc}
0x03ec…0408 Head {h00=0x0018, h01=0x0014, text=» SET GTDYFLG 1. TIME«, t00=0x0002, t01=0x00d2}
0x0408…0430 Head {h00=0x0024, h01=0x0020, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0002, t01=0x00ee}
0x0430…0454 Head {h00=0x0020, h01=0x001c, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0002, t01=0x0116}
0x0454…047a Head {h00=0x0022, h01=0x001e, text=» IB SPBINW2,OPROK,OPROK,OPR010«, t00=0x0002, t01=0x013a}
0x047a…048c Head {h00=0x000e, h01=0x0009, text=» B OPR000 «, t00=0x0002, t01=0x0160}
0x048c…04ac Head {h00=0x001c, h01=0x0050, text=»OPR010 LOOK FOR NUMBER«, t00=0x0002, t01=0x0172}
0x04ac…04d8 (3, 0, 400) Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0003, t01=0x0004}
0x04d8…04f4 Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 - LEVINDX«, t00=0x0003, t01=0x0030}
0x04f4…050e Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x0003, t01=0x004c}
0x050e…052c Head {h00=0x001a, h01=0x0050, text=» BERR OPRNOK DISKERROR«, t00=0x0003, t01=0x0066}
0x052c…054a Head {h00=0x001a, h01=0x0050, text=» BNOK OPR020 NOT FOUND«, t00=0x0003, t01=0x0084}
0x054a…0564 Head {h00=0x0016, h01=0x0050, text=» PERF LEVRD FOUND «, t00=0x0003, t01=0x00a2}
0x0564…0578 Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0003, t01=0x00bc}
0x0578…059c Head {h00=0x0020, h01=0x0050, text=»OPR015 FOUND, DISPLAY INFO«, t00=0x0003, t01=0x00d0}
0x059c…05b4 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0003, t01=0x00f4}
0x05b4…05ca Head {h00=0x0012, h01=0x000e, text=» CLEAR GTDYFLG«, t00=0x0003, t01=0x010c}
0x05ca…05e4 Head {h00=0x0016, h01=0x0012, text=» PERF FMTREM,CBIN3«, t00=0x0003, t01=0x0122}
0x05e4…05f8 Head {h00=0x0010, h01=0x000c, text=» PERF SPCLRN«, t00=0x0003, t01=0x013c}
0x05f8…0620 Head {h00=0x0024, h01=0x0020, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0003, t01=0x0150}
0x0620…0632 Head {h00=0x000e, h01=0x0009, text=» B OPR015 «, t00=0x0003, t01=0x0178}
0x0632…065c Head {h00=0x0026, h01=0x0050, text=»OPR020 NOT FOUND, DISPLAY BLANKS«, t00=0x0003, t01=0x018a}
0x065c…0674 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0004, t01=0x0024}
0x0674…068a Head {h00=0x0012, h01=0x000e, text=» CLEAR GTDYFLG«, t00=0x0004, t01=0x003c}
0x068a…06a4 Head {h00=0x0016, h01=0x0012, text=» PERF FMTREM,CBIN3«, t00=0x0004, t01=0x0052}
0x06a4…06b8 Head {h00=0x0010, h01=0x000c, text=» PERF SPCLRA«, t00=0x0004, t01=0x006c}
0x06b8…06e0 Head {h00=0x0024, h01=0x0020, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0004, t01=0x0080}
0x06e0…06f2 Head {h00=0x000e, h01=0x0009, text=» B OPR020 «, t00=0x0004, t01=0x00a8}
0x06f2…06fa Head {h00=0x0004, h01=0x0000, t00=0x0004, t01=0x00ba}
0x06fa…0724 Head {h00=0x0026, h01=0x0050, text=»OPR030 LEV INFO KEYED IN, INSERT«, t00=0x0004, t01=0x00c2}
0x0724…073e Head {h00=0x0016, h01=0x0050, text=»* FIELD CHECK «, t00=0x0004, t01=0x00ec}
0x073e…0774 Head {h00=0x0032, h01=0x0050, text=»* IF BFO = 2,3,7,8 GIRONR MUST BE PRESENT«, t00=0x0004, t01=0x0106}
0x0774…0792 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTLEVBFO«, t00=0x0004, t01=0x013c}
0x0792…07aa Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0004, t01=0x015a}
0x07aa…07da Head {h00=0x002c, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040,OPR040, C«, t00=0x0004, t01=0x0172}
0x07da…0800 Head {h00=0x0022, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040 «, t00=0x0005, t01=0x0012}
0x0800…0812 Head {h00=0x000e, h01=0x0050, text=» B OPR040 «, t00=0x0005, t01=0x0038}
0x0812…0820 Head {h00=0x000a, h01=0x0050, text=»OPR035«, t00=0x0005, t01=0x004a}
0x0820…0844 Head {h00=0x0020, h01=0x0050, text=» CBG GTLEVGI,=D'0',OPR040 OK«, t00=0x0005, t01=0x0058}
0x0844…0860 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'5' «, t00=0x0005, t01=0x007c}
0x0860…0878 Head {h00=0x0014, h01=0x0050, text=» PERF SPERR NOK «, t00=0x0005, t01=0x0098}
0x0878…088a Head {h00=0x000e, h01=0x0050, text=» B OPR015 «, t00=0x0005, t01=0x00b0}
0x088a…0898 Head {h00=0x000a, h01=0x0050, text=»OPR040«, t00=0x0005, t01=0x00c2}
0x0898…08c4 Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0005, t01=0x00d0}
0x08c4…08d8 Head {h00=0x0010, h01=0x000b, text=» BERR OPROK «, t00=0x0005, t01=0x00fc}
0x08d8…08ec Head {h00=0x0010, h01=0x000c, text=» BNOK OPR050«, t00=0x0005, t01=0x0110}
0x08ec…0908 Head {h00=0x0018, h01=0x0013, text=» ALREADY EXISTING «, t00=0x0005, t01=0x0124}
0x0908…092c Head {h00=0x0020, h01=0x001c, text=» PERF LEVWRT WRITE STAM-INFO«, t00=0x0005, t01=0x0140}
0x092c…0940 Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0005, t01=0x0164}
0x0940…0952 Head {h00=0x000e, h01=0x0009, text=» B OPR000 «, t00=0x0005, t01=0x0178}
0x0952…096e Head {h00=0x0018, h01=0x0050, text=»OPR050 CREATE NEW «, t00=0x0005, t01=0x018a}
0x096e…0994 Head {h00=0x0022, h01=0x001d, text=» PERF IDXINS INSERT NEW INDEX «, t00=0x0006, t01=0x0016}
0x0994…09a8 Head {h00=0x0010, h01=0x000c, text=» BNOK OPR000«, t00=0x0006, t01=0x003c}
0x09a8…09bc Head {h00=0x0010, h01=0x000c, text=» PERF LEVWRT«, t00=0x0006, t01=0x0050}
0x09bc…09d0 Head {h00=0x0010, h01=0x000c, text=» BNOK OPR070«, t00=0x0006, t01=0x0064}
0x09d0…09e4 Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0006, t01=0x0078}
0x09e4…0a12 Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT WRITE VAR-LEV-INFORMATION«, t00=0x0006, t01=0x008c}
0x0a12…0a26 Head {h00=0x0010, h01=0x000c, text=» BNOK OPR070«, t00=0x0006, t01=0x00ba}
0x0a26…0a48 Head {h00=0x001e, h01=0x001a, text=» B OPR000 NEW LEV INSERTED«, t00=0x0006, t01=0x00ce}
0x0a48…0a50 Head {h00=0x0004, h01=0x0000, t00=0x0006, t01=0x00f0}
0x0a50…0a70 Head {h00=0x001c, h01=0x0050, text=»OPR070 SOMETHING WRONG«, t00=0x0006, t01=0x00f8}
0x0a70…0aa0 Head {h00=0x002c, h01=0x0028, text=» PERF IDXDEL DELETE LEV-ENTRY COMPLETELY«, t00=0x0006, t01=0x0118}
0x0aa0…0ab2 Head {h00=0x000e, h01=0x0009, text=» B OPR000 «, t00=0x0006, t01=0x0148}
0x0ab2…0ac0 Head {h00=0x000a, h01=0x0050, text=»OPRNOK«, t00=0x0006, t01=0x015a}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0006, t01=0x0168}
0x0ad4…0af4 Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0006, t01=0x017c}
0x0af4…0b00 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x000c}
0x0b00…0b0e Head {h00=0x000a, h01=0x0005, text=»OPROK «, t00=0x0007, t01=0x0018}
0x0b0e…0b22 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0007, t01=0x0026}
0x0b22…0b3a Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x003a}
0x0b3a…0b46 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0007, t01=0x0052}
0x0b46…0b54 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0007, t01=0x005e}
0x0b54…0b62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x006c}
0x0b62…0b6a Head {h00=0x0004, h01=0x0000, t00=0x0007, t01=0x007a}
0x0b6a…0b72 Head {h00=0x0004, h01=0x0000, t00=0x0007, t01=0x0082}
0x0b72…0b7a Head {h00=0x0004, h01=0x0000, t00=0x0007, t01=0x008a}
0x0b7a…0b8e Head {h00=0x0010, h01=0x000b, text=»LEVDEL PROC «, t00=0x0007, t01=0x0092}
0x0b8e…0ba8 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0007, t01=0x00a6}
0x0ba8…0bb6 Head {h00=0x000a, h01=0x0006, text=»DEL000«, t00=0x0007, t01=0x00c0}
0x0bb6…0bda Head {h00=0x0020, h01=0x001b, text=» MOVE GSWSTR9,=C'SLETNING ' «, t00=0x0007, t01=0x00ce}
0x0bda…0bf0 Head {h00=0x0012, h01=0x000d, text=» SET SPPROMPT «, t00=0x0007, t01=0x00f2}
0x0bf0…0c0c Head {h00=0x0018, h01=0x0014, text=» SET GTDYFLG 1. TIME«, t00=0x0007, t01=0x0108}
0x0c0c…0c34 Head {h00=0x0024, h01=0x0020, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0007, t01=0x0124}
0x0c34…0c58 Head {h00=0x0020, h01=0x001c, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0007, t01=0x014c}
0x0c58…0c7e Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,DELOK,DELOK,DEL010«, t00=0x0007, t01=0x0170}
0x0c7e…0c90 Head {h00=0x000e, h01=0x0009, text=» B DEL000 «, t00=0x0008, t01=0x0008}
0x0c90…0cac Head {h00=0x0018, h01=0x0050, text=»DEL010 LOOK FOR NO«, t00=0x0008, t01=0x001a}
0x0cac…0cd8 Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0008, t01=0x0036}
0x0cd8…0cf2 Head {h00=0x0016, h01=0x0050, text=» BERR DELNOK ERROR«, t00=0x0008, t01=0x0062}
0x0cf2…0d10 Head {h00=0x001a, h01=0x0050, text=» BNOK DEL000 NOT FOUND«, t00=0x0008, t01=0x007c}
0x0d10…0d20 Head {h00=0x000c, h01=0x0008, text=» FOUND«, t00=0x0008, t01=0x009a}
0x0d20…0d44 Head {h00=0x0020, h01=0x001c, text=» CHECK IF DELETION ALLOWED«, t00=0x0008, t01=0x00aa}
0x0d44…0d6e Head {h00=0x0026, h01=0x0021, text=» I.E. REFERENCES TO TRANSFILE ? «, t00=0x0008, t01=0x00ce}
0x0d6e…0d8c Head {h00=0x001a, h01=0x0050, text=» OK, MAY BE DELETED «, t00=0x0008, t01=0x00f8}
0x0d8c…0dac Head {h00=0x001c, h01=0x0050, text=» PERF LEVRD READ STAMOPL«, t00=0x0008, t01=0x0116}
0x0dac…0ddc Head {h00=0x002c, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO TO CHECK «, t00=0x0008, t01=0x0136}
0x0ddc…0dfa Head {h00=0x001a, h01=0x0050, text=» IF DELETION ALLOWED«, t00=0x0008, t01=0x0166}
0x0dfa…0e10 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x0008, t01=0x0184}
0x0e10…0e48 Head {h00=0x0034, h01=0x0050, text=» CBG GTTRKEY,CBIN0,DEL030 ANY TRANS REFERENCE ? «, t00=0x0009, t01=0x000a}
0x0e48…0e62 Head {h00=0x0016, h01=0x0050, text=» CLEAR GTSWFLAG NO«, t00=0x0009, t01=0x0042}
0x0e62…0e70 Head {h00=0x000a, h01=0x0050, text=»DEL030«, t00=0x0009, t01=0x005c}
0x0e70…0e86 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0009, t01=0x006a}
0x0e86…0e9c Head {h00=0x0012, h01=0x0050, text=» SET GTSPGFLG «, t00=0x0009, t01=0x0080}
0x0e9c…0eb6 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0009, t01=0x0096}
0x0eb6…0eca Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0009, t01=0x00b0}
0x0eca…0ee2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSPGFLG «, t00=0x0009, t01=0x00c4}
0x0ee2…0f0a Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,DEL000,DEL000,DEL050«, t00=0x0009, t01=0x00dc}
0x0f0a…0f1c Head {h00=0x000e, h01=0x0050, text=» B DEL030 «, t00=0x0009, t01=0x0104}
0x0f1c…0f2a Head {h00=0x000a, h01=0x0050, text=»DEL050«, t00=0x0009, t01=0x0116}
0x0f2a…0f4a Head {h00=0x001c, h01=0x0050, text=» PERF IDXDEL DELETE LEV «, t00=0x0009, t01=0x0124}
0x0f4a…0f5a Head {h00=0x000c, h01=0x0050, text=» B DELOK«, t00=0x0009, t01=0x0144}
0x0f5a…0f68 Head {h00=0x000a, h01=0x0050, text=»DELNOK«, t00=0x0009, t01=0x0154}
0x0f68…0f7c Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0009, t01=0x0162}
0x0f7c…0f94 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0009, t01=0x0176}
0x0f94…0fa0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x018e}
0x0fa0…0fae Head {h00=0x000a, h01=0x0050, text=»DELOK «, t00=0x000a, t01=0x000a}
0x0fae…0fc2 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x000a, t01=0x0018}
0x0fc2…0fda Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000a, t01=0x002c}
0x0fda…0fe6 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000a, t01=0x0044}
0x0fe6…0ff4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x000a, t01=0x0050}
0x0ff4…0ffc Head {h00=0x0004, h01=0x0000, t00=0x000a, t01=0x005e}
0x0ffc…100a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0066}
0x100a…101c Head {h00=0x000e, h01=0x0050, text=»LEVRD PROC«, t00=0x000a, t01=0x0074}
0x101c…102e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0086}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x1038…106a Head {h00=0x002e, h01=0x0050, text=»* READ AND UNPACK LEVERAND INFORMATION«, t00=0x000a, t01=0x00a2}
0x106a…1090 Head {h00=0x0022, h01=0x0050, text=»* FOR LEVERAND NO GTLEVNR «, t00=0x000a, t01=0x00d4}
0x1090…109a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fa}
0x109a…10ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0104}
0x10ac…10b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10b6…10c6 Head {h00=0x000c, h01=0x0050, text=»LEVR000 «, t00=0x000a, t01=0x0120}
0x10c6…10f0 Head {h00=0x0026, h01=0x0050, text=» TBF CLEVFLG,LEVR010 BUFFER FREE? «, t00=0x000a, t01=0x0130}
0x10f0…110e Head {h00=0x001a, h01=0x0050, text=» DELAY CBIN2 NO, WAIT «, t00=0x000a, t01=0x015a}
0x110e…1120 Head {h00=0x000e, h01=0x0050, text=» B LEVR000«, t00=0x000a, t01=0x0178}
0x1120…112a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x112a…113a (11, 0, 400) Head {h00=0x000c, h01=0x0050, text=»LEVR010 «, t00=0x000b, t01=0x0004}
0x113a…1162 Head {h00=0x0024, h01=0x0050, text=» SET CLEVFLG RESERVE LEV-BUFFER «, t00=0x000b, t01=0x0014}
0x1162…118e Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x000b, t01=0x003c}
0x118e…11ac Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 - LEV INDX «, t00=0x000b, t01=0x0068}
0x11ac…11c6 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x000b, t01=0x0086}
0x11c6…11e6 Head {h00=0x001c, h01=0x0050, text=» BERR LEVRNOK DISK ERROR«, t00=0x000b, t01=0x00a0}
0x11e6…1206 Head {h00=0x001c, h01=0x0050, text=» BNOK LEVRNOK NOT FOUND «, t00=0x000b, t01=0x00c0}
0x1206…1216 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x000b, t01=0x00e0}
0x1216…122a Head {h00=0x0010, h01=0x0050, text=» READ LEV «, t00=0x000b, t01=0x00f0}
0x122a…1254 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN4,=W'128' RECORD SIZE «, t00=0x000b, t01=0x0104}
0x1254…1272 Head {h00=0x001a, h01=0x0050, text=» MOVE CLEVBUF,CBLANKS «, t00=0x000b, t01=0x012e}
0x1272…12aa Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK08,=D'8',CLEVBUF,GSWBIN4,GSWBIN5 «, t00=0x000b, t01=0x014c}
0x12aa…12c0 Head {h00=0x0012, h01=0x0050, text=» BNOK LEVRNOK «, t00=0x000b, t01=0x0184}
0x12c0…12de Head {h00=0x001a, h01=0x0050, text=»* UNPACK LEV INFO «, t00=0x000c, t01=0x000a}
0x12de…1308 Head {h00=0x0026, h01=0x0021, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x000c, t01=0x0028}
0x1308…133c Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'0',=W'6',CLEVBUF,=W'0'«, t00=0x000c, t01=0x0052}
0x133c…1360 Head {h00=0x0020, h01=0x001c, text=» CBE GTLEVNR,GSWBCD7,LEVR030«, t00=0x000c, t01=0x0086}
0x1360…137e Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 «, t00=0x000c, t01=0x00aa}
0x137e…139c Head {h00=0x001a, h01=0x0015, text=» NOT CORRECT RECORD «, t00=0x000c, t01=0x00c8}
0x139c…13ae Head {h00=0x000e, h01=0x000a, text=» B LEVRNOK«, t00=0x000c, t01=0x00e6}
0x13ae…13be Head {h00=0x000c, h01=0x0007, text=»LEVR030 «, t00=0x000c, t01=0x00f8}
0x13be…13f4 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVNVN,=W'0',=W'30',CLEVBUF,=W'6'«, t00=0x000c, t01=0x0108}
0x13f4…142c Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVADR,=W'0',=W'32',CLEVBUF,=W'36' «, t00=0x000c, t01=0x013e}
0x142c…1462 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVBY,=W'0',=W'20',CLEVBUF,=W'68'«, t00=0x000c, t01=0x0176}
0x1462…1498 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVPNR,=W'0',=W'3',CLEVBUF,=W'88'«, t00=0x000d, t01=0x001c}
0x1498…14d0 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVPDI,=W'0',=W'13',CLEVBUF,=W'91' «, t00=0x000d, t01=0x0052}
0x14d0…1508 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVBFO,=W'0',=W'1',CLEVBUF,=W'104' «, t00=0x000d, t01=0x008a}
0x1508…153e Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVGI,=W'0',=W'4',CLEVBUF,=W'105'«, t00=0x000d, t01=0x00c2}
0x153e…1576 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVALT,=W'0',=W'6',CLEVBUF,=W'109' «, t00=0x000d, t01=0x00f8}
0x1576…159c Head {h00=0x0022, h01=0x001d, text=» MOVE GTLEVDAT,=D'1' SET SIGN «, t00=0x000d, t01=0x0130}
0x159c…15d4 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVDAT,=W'1',=W'3',CLEVBUF,=W'115' «, t00=0x000d, t01=0x0156}
0x15d4…15de Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000d, t01=0x018e}
0x15de…15ec Head {h00=0x000a, h01=0x0006, text=»LEVROK«, t00=0x000e, t01=0x0008}
0x15ec…1612 Head {h00=0x0022, h01=0x001d, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x000e, t01=0x0016}
0x1612…162e Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x000e, t01=0x003c}
0x162e…163a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000e, t01=0x0058}
0x163a…1644 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000e, t01=0x0064}
0x1644…1654 Head {h00=0x000c, h01=0x0007, text=»LEVRNOK «, t00=0x000e, t01=0x006e}
0x1654…167a Head {h00=0x0022, h01=0x001d, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x000e, t01=0x007e}
0x167a…1696 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x000e, t01=0x00a4}
0x1696…16a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x00c0}
0x16a2…16b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x00cc}
0x16b0…16be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00da}
0x16be…16c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16c8…16dc Head {h00=0x0010, h01=0x0050, text=»LEVWRT PROC «, t00=0x000e, t01=0x00f2}
0x16dc…16ee Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x000e, t01=0x0106}
0x16ee…16f8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000e, t01=0x0118}
0x16f8…1728 Head {h00=0x002c, h01=0x0028, text=»* PACK AND WRITE LEV INFORMATION FOR«, t00=0x000e, t01=0x0122}
0x1728…174a Head {h00=0x001e, h01=0x0019, text=»* LEVERAND NR GTLEVNR «, t00=0x000e, t01=0x0152}
0x174a…1754 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000e, t01=0x0174}
0x1754…1766 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x000e, t01=0x017e}
0x1766…1770 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000e, t01=0x0190}
0x1770…1780 Head {h00=0x000c, h01=0x0007, text=»LEVW000 «, t00=0x000f, t01=0x000a}
0x1780…17aa Head {h00=0x0026, h01=0x0021, text=» TBF CLEVFLG,LEVW010 BUFFER FREE? «, t00=0x000f, t01=0x001a}
0x17aa…17c8 Head {h00=0x001a, h01=0x0015, text=» DELAY CBIN2 NO, WAIT «, t00=0x000f, t01=0x0044}
0x17c8…17d0 Head {h00=0x0004, h01=0x0000, t00=0x000f, t01=0x0062}
0x17d0…17e2 Head {h00=0x000e, h01=0x000a, text=» B LEVW000«, t00=0x000f, t01=0x006a}
0x17e2…17ea Head {h00=0x0004, h01=0x0000, t00=0x000f, t01=0x007c}
0x17ea…17fa Head {h00=0x000c, h01=0x0007, text=»LEVW010 «, t00=0x000f, t01=0x0084}
0x17fa…1822 Head {h00=0x0024, h01=0x001f, text=» SET CLEVFLG RESERVE LEV BUFFER «, t00=0x000f, t01=0x0094}
0x1822…183e Head {h00=0x0018, h01=0x0013, text=»* PACK LEV INFO «, t00=0x000f, t01=0x00bc}
0x183e…185c Head {h00=0x001a, h01=0x0050, text=» MOVE CLEVBUF,CBLANKS «, t00=0x000f, t01=0x00d8}
0x185c…1890 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'0',=W'6',GTLEVNR,=W'0'«, t00=0x000f, t01=0x00f6}
0x1890…18c6 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'6',=W'30',GTLEVNVN,=W'0'«, t00=0x000f, t01=0x012a}
0x18c6…18fe Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'36',=W'32',GTLEVADR,=W'0' «, t00=0x000f, t01=0x0160}
0x18fe…1934 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'68',=W'20',GTLEVBY,=W'0'«, t00=0x0010, t01=0x0008}
0x1934…196a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'88',=W'3',GTLEVPNR,=W'0'«, t00=0x0010, t01=0x003e}
0x196a…19a2 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'91',=W'13',GTLEVPDI,=W'0' «, t00=0x0010, t01=0x0074}
0x19a2…19da Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'104',=W'1',GTLEVBFO,=W'0' «, t00=0x0010, t01=0x00ac}
0x19da…1a10 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'105',=W'4',GTLEVGI,=W'0'«, t00=0x0010, t01=0x00e4}
0x1a10…1a48 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'109',=W'6',GTLEVALT,=W'0' «, t00=0x0010, t01=0x011a}
0x1a48…1a68 Head {h00=0x001c, h01=0x0017, text=» MOVE GTLEVDAT,CMASKDAT «, t00=0x0010, t01=0x0152}
0x1a68…1aa0 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'115',=W'3',GTLEVDAT,=W'1' «, t00=0x0010, t01=0x0172}
0x1aa0…1ab4 Head {h00=0x0010, h01=0x000b, text=»* WRITE «, t00=0x0011, t01=0x001a}
0x1ab4…1ae0 Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0011, t01=0x002e}
0x1ae0…1afc Head {h00=0x0018, h01=0x0014, text=» GSWBIN5 LEV INDX«, t00=0x0011, t01=0x005a}
0x1afc…1b16 Head {h00=0x0016, h01=0x0012, text=» GSWBIN4 INDEX«, t00=0x0011, t01=0x0076}
0x1b16…1b36 Head {h00=0x001c, h01=0x0018, text=» BERR LEVWNOK DISK ERROR«, t00=0x0011, t01=0x0090}
0x1b36…1b56 Head {h00=0x001c, h01=0x0017, text=» BNOK LEVWNOK NOT FOUND «, t00=0x0011, t01=0x00b0}
0x1b56…1b66 Head {h00=0x000c, h01=0x0008, text=» FOUND«, t00=0x0011, t01=0x00d0}
0x1b66…1b96 Head {h00=0x002c, h01=0x0027, text=» PERF RAWRIT,DK08,=D'8',CLEVBUF,GSWBIN5 «, t00=0x0011, t01=0x00e0}
0x1b96…1bac Head {h00=0x0012, h01=0x000d, text=» BNOK LEVWNOK «, t00=0x0011, t01=0x0110}
0x1bac…1bb6 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0011, t01=0x0126}
0x1bb6…1bc4 Head {h00=0x000a, h01=0x0006, text=»LEVWOK«, t00=0x0011, t01=0x0130}
0x1bc4…1bea Head {h00=0x0022, h01=0x001d, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0011, t01=0x013e}
0x1bea…1c06 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0011, t01=0x0164}
0x1c06…1c12 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0011, t01=0x0180}
0x1c12…1c1c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0011, t01=0x018c}
0x1c1c…1c2c Head {h00=0x000c, h01=0x0007, text=»LEVWNOK «, t00=0x0012, t01=0x0008}
0x1c2c…1c52 Head {h00=0x0022, h01=0x001d, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0012, t01=0x0018}
0x1c52…1c6e Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0012, t01=0x003e}
0x1c6e…1c7a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x005a}
0x1c7a…1c88 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x0066}
0x1c88…1c96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0074}
0x1c96…1ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0082}
0x1ca0…1cb4 Head {h00=0x0010, h01=0x0050, text=»LEVINT PROC «, t00=0x0012, t01=0x008c}
0x1cb4…1cc6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x00a0}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b2}
0x1cd0…1cfc Head {h00=0x0028, h01=0x0050, text=»* INITIATE STAM INFORMATION FOR «, t00=0x0012, t01=0x00bc}
0x1cfc…1d1e Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0012, t01=0x00e8}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d28…1d3a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0114}
0x1d3a…1d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0126}
0x1d44…1d62 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNVN,CBLANKS«, t00=0x0012, t01=0x0130}
0x1d62…1d80 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVADR,CBLANKS«, t00=0x0012, t01=0x014e}
0x1d80…1d9e Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVBY,CBLANKS «, t00=0x0012, t01=0x016c}
0x1d9e…1dba Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPNR,=D'0'«, t00=0x0012, t01=0x018a}
0x1dba…1dd8 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVPDI,CBLANKS«, t00=0x0013, t01=0x0016}
0x1dd8…1df4 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVBFO,=D'0'«, t00=0x0013, t01=0x0034}
0x1df4…1e10 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVGI,=D'0' «, t00=0x0013, t01=0x0050}
0x1e10…1e2c Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVALT,=D'0'«, t00=0x0013, t01=0x006c}
0x1e2c…1e4c Head {h00=0x001c, h01=0x0050, text=» MOVE GTLEVDAT,CMASKDAT «, t00=0x0013, t01=0x0088}
0x1e4c…1e58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x00a8}
0x1e58…1e66 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x00b4}
0x1e66…1e74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00c2}
0x1e74…1e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e7e…1e92 Head {h00=0x0010, h01=0x0050, text=»LEVSPG PROC «, t00=0x0013, t01=0x00da}
0x1e92…1ec6 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0013, t01=0x00ee}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ed0…1ef8 Head {h00=0x0024, h01=0x0050, text=»* PROCEDURE FOR FORESP RGSEL P] «, t00=0x0013, t01=0x012c}
0x1ef8…1f0e Head {h00=0x0012, h01=0x0050, text=»* LEVERAND RER«, t00=0x0013, t01=0x0154}
0x1f0e…1f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016a}
0x1f18…1f4c Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0013, t01=0x0174}
0x1f4c…1f5c Head {h00=0x000c, h01=0x0050, text=»LSPG000 «, t00=0x0014, t01=0x0018}
0x1f5c…1f7e Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='FORESPG. '«, t00=0x0014, t01=0x0028}
0x1f7e…1f94 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0014, t01=0x004a}
0x1f94…1fb2 Head {h00=0x001a, h01=0x0050, text=» SET GTSPGFLG 1. TIME «, t00=0x0014, t01=0x0060}
0x1fb2…1fce Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG FORESPG«, t00=0x0014, t01=0x007e}
0x1fce…1ff6 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0014, t01=0x009a}
0x1ff6…201a Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0014, t01=0x00c2}
0x201a…2044 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,LSPGOK,LSPGOK,LSPG010 «, t00=0x0014, t01=0x00e6}
0x2044…2056 Head {h00=0x000e, h01=0x0050, text=» B LSPG000«, t00=0x0014, t01=0x0110}
0x2056…2066 Head {h00=0x000c, h01=0x0050, text=»LSPG010 «, t00=0x0014, t01=0x0122}
0x2066…2092 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0014, t01=0x0132}
0x2092…20ae Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 - LEVINDX«, t00=0x0014, t01=0x015e}
0x20ae…20c8 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0014, t01=0x017a}
0x20c8…20e8 (21, 0, 400) Head {h00=0x001c, h01=0x0050, text=» BERR LSPGNOK DISK ERROR«, t00=0x0015, t01=0x0004}
0x20e8…2108 Head {h00=0x001c, h01=0x0050, text=» BNOK LSPGNOK NOT FOUND «, t00=0x0015, t01=0x0024}
0x2108…2126 Head {h00=0x001a, h01=0x0050, text=»* LEV NR GTLEVNR FOUND«, t00=0x0015, t01=0x0044}
0x2126…2148 Head {h00=0x001e, h01=0x0050, text=» PERF LEVRD READ STAMINFO «, t00=0x0015, t01=0x0062}
0x2148…215e Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0015, t01=0x0084}
0x215e…2184 Head {h00=0x0022, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO«, t00=0x0015, t01=0x009a}
0x2184…219a Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0015, t01=0x00c0}
0x219a…21aa Head {h00=0x000c, h01=0x0050, text=»LSPG015 «, t00=0x0015, t01=0x00d6}
0x21aa…21c2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0015, t01=0x00e6}
0x21c2…21e6 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG DISPLAY INFO «, t00=0x0015, t01=0x00fe}
0x21e6…2200 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0015, t01=0x0122}
0x2200…2214 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0015, t01=0x013c}
0x2214…2240 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG000,LSPG000,LSPG100 «, t00=0x0015, t01=0x0150}
0x2240…2252 Head {h00=0x000e, h01=0x0050, text=» B LSPG015«, t00=0x0015, t01=0x017c}
0x2252…2280 Head {h00=0x002a, h01=0x0050, text=»LSPG100 OK CONTINUE TO VARIABLE INFO«, t00=0x0015, t01=0x018e}
0x2280…229e Head {h00=0x001a, h01=0x0050, text=» TBT GTVDUFLG,LSPG200 «, t00=0x0016, t01=0x002c}
0x229e…22c6 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN4 VARIABLE INFO«, t00=0x0016, t01=0x004a}
0x22c6…22da Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0016, t01=0x0072}
0x22da…2306 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG015,LSPG015,LSPG200 «, t00=0x0016, t01=0x0086}
0x2306…2318 Head {h00=0x000e, h01=0x0050, text=» B LSPG100«, t00=0x0016, t01=0x00b2}
0x2318…2328 Head {h00=0x000c, h01=0x0050, text=»LSPG200 «, t00=0x0016, t01=0x00c4}
0x2328…2354 Head {h00=0x0028, h01=0x0050, text=» CBE GTTRKEY,CBIN0,LSPG500 NO TRANS «, t00=0x0016, t01=0x00d4}
0x2354…2368 Head {h00=0x0010, h01=0x0050, text=»* READ TRANS«, t00=0x0016, t01=0x0100}
0x2368…2378 Head {h00=0x000c, h01=0x0050, text=»LSPG210 «, t00=0x0016, t01=0x0114}
0x2378…2392 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN5«, t00=0x0016, t01=0x0124}
0x2392…23a6 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0016, t01=0x013e}
0x23a6…23d2 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG500,LSPG500,LSPG200 «, t00=0x0016, t01=0x0152}
0x23d2…23e4 Head {h00=0x000e, h01=0x0050, text=» B LSPG210«, t00=0x0016, t01=0x017e}
0x23e4…23f4 Head {h00=0x000c, h01=0x0050, text=»LSPG500 «, t00=0x0016, t01=0x0190}
0x23f4…2418 Head {h00=0x0020, h01=0x0050, text=» PERF GETNXT GET NEXT LEVNR «, t00=0x0017, t01=0x0010}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» BNOK LSPG000 «, t00=0x0017, t01=0x0034}
0x242e…2440 Head {h00=0x000e, h01=0x0050, text=» B LSPG010«, t00=0x0017, t01=0x004a}
0x2440…2450 Head {h00=0x000c, h01=0x0050, text=»LSPGNOK «, t00=0x0017, t01=0x005c}
0x2450…245e Head {h00=0x000a, h01=0x0050, text=»LSPGOK«, t00=0x0017, t01=0x006c}
0x245e…246a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x007a}
0x246a…2478 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x0086}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0094}
0x2482…2490 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x009e}
0x2490…24a4 Head {h00=0x0010, h01=0x0050, text=»LEVPRT PROC «, t00=0x0017, t01=0x00ac}
0x24a4…24ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24ae…24c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00ca}
0x24c0…24ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24ca…24e8 Head {h00=0x001a, h01=0x0050, text=»* PRINT LEVERANDS «, t00=0x0017, t01=0x00e6}
0x24e8…24f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24f2…2504 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x010e}
0x2504…250e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0120}
0x250e…252c Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,LPRT000 «, t00=0x0017, t01=0x012a}
0x252c…2548 Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRTRET«, t00=0x0017, t01=0x0148}
0x2548…2558 Head {h00=0x000c, h01=0x0050, text=»LPRT000 «, t00=0x0017, t01=0x0164}
0x2558…256e Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0017, t01=0x0174}
0x256e…2588 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN6«, t00=0x0017, t01=0x018a}
0x2588…259c Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0018, t01=0x0014}
0x259c…25c8 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LPRTRET,LPRTRET,LPRT010 «, t00=0x0018, t01=0x0028}
0x25c8…25d8 Head {h00=0x000c, h01=0x0050, text=»LPRT010 «, t00=0x0018, t01=0x0054}
0x25d8…25f2 Head {h00=0x0016, h01=0x0050, text=»* PRINT HEADER«, t00=0x0018, t01=0x0064}
0x25f2…2616 Head {h00=0x0020, h01=0x0050, text=» CBG GTPRTFRA,=D'0',LPRT020 «, t00=0x0018, t01=0x007e}
0x2616…263e Head {h00=0x0024, h01=0x0050, text=» MOVE GTPRTFRA,=D'19' FIRST LEV «, t00=0x0018, t01=0x00a2}
0x263e…264e Head {h00=0x000c, h01=0x0050, text=»LPRT020 «, t00=0x0018, t01=0x00ca}
0x264e…2676 Head {h00=0x0024, h01=0x0050, text=» CBNL GTPRTTIL,GTPRTFRA,LPRT030 «, t00=0x0018, t01=0x00da}
0x2676…26aa Head {h00=0x0030, h01=0x0050, text=» MOVE GTPRTTIL,=D'9999999999' LAST TO PRINT «, t00=0x0018, t01=0x0102}
0x26aa…26ba Head {h00=0x000c, h01=0x0050, text=»LPRT030 «, t00=0x0018, t01=0x0136}
0x26ba…26d2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x0146}
0x26d2…26e6 Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x0018, t01=0x015e}
0x26e6…270a Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVBFO,=D'1',LPRT040 «, t00=0x0018, t01=0x0172}
0x270a…272e Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG NOT VAR INFO «, t00=0x0019, t01=0x0008}
0x272e…273e Head {h00=0x000c, h01=0x0050, text=»LPRT040 «, t00=0x0019, t01=0x002c}
0x273e…275a Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRT045«, t00=0x0019, t01=0x003c}
0x275a…2780 Head {h00=0x0022, h01=0x0050, text=» EDWRT DSHCLP,FFEED FORM FEED «, t00=0x0019, t01=0x0058}
0x2780…2790 Head {h00=0x000c, h01=0x0050, text=»LPRT045 «, t00=0x0019, t01=0x007e}
0x2790…27c0 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD6,GTPRTDAT GTPRTDAT: DDMMYY «, t00=0x0019, t01=0x008e}
0x27c0…27d4 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x0019, t01=0x00be}
0x27d4…2804 Head {h00=0x002c, h01=0x0050, text=» MOVE GTPRTDAT,GSWBCD7 GTPRTDAT: YYMMDD «, t00=0x0019, t01=0x00d2}
0x2804…283a Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GTPRTFRA SET FIRST NO. TO PRINT «, t00=0x0019, t01=0x0102}
0x283a…284a Head {h00=0x000c, h01=0x0050, text=»LPRT050 «, t00=0x0019, t01=0x0138}
0x284a…2870 Head {h00=0x0022, h01=0x0050, text=» CBG GTLEVNR,GTPRTTIL,LPRTRET «, t00=0x0019, t01=0x0148}
0x2870…2884 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0019, t01=0x016e}
0x2884…28a4 Head {h00=0x001c, h01=0x0050, text=» BNOK LPRT100 NOT FOUND «, t00=0x0019, t01=0x0182}
0x28a4…28d4 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD6,GTLEVDAT GTLEVDAT: DDMMYY «, t00=0x001a, t01=0x0012}
0x28d4…28f8 Head {h00=0x0020, h01=0x0050, text=» PERF CHDATO GSWBCD7: YYMMDD«, t00=0x001a, t01=0x0042}
0x28f8…291e Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD7,GTPRTDAT,LPRT100 «, t00=0x001a, t01=0x0066}
0x291e…293a Head {h00=0x0018, h01=0x0050, text=» TBF GTDYFLG,LPRT080«, t00=0x001a, t01=0x008c}
0x293a…294e Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001a, t01=0x00a8}
0x294e…2964 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRT100 «, t00=0x001a, t01=0x00bc}
0x2964…2974 Head {h00=0x000c, h01=0x0050, text=»LPRT080 «, t00=0x001a, t01=0x00d2}
0x2974…2996 Head {h00=0x001e, h01=0x0050, text=»* FLIP FLOP FOR LINEFEEDS«, t00=0x001a, t01=0x00e2}
0x2996…29b4 Head {h00=0x001a, h01=0x0050, text=» TBT GTSWFLAG,LPRT085 «, t00=0x001a, t01=0x0104}
0x29b4…29ca Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001a, t01=0x0122}
0x29ca…29dc Head {h00=0x000e, h01=0x0050, text=» B LPRT090«, t00=0x001a, t01=0x0138}
0x29dc…29ec Head {h00=0x000c, h01=0x0050, text=»LPRT085 «, t00=0x001a, t01=0x014a}
0x29ec…2a04 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x015a}
0x2a04…2a14 Head {h00=0x000c, h01=0x0050, text=»LPRT090 «, t00=0x001a, t01=0x0172}
0x2a14…2a30 Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,LPRT095«, t00=0x001a, t01=0x0182}
0x2a30…2a52 Head {h00=0x001e, h01=0x0050, text=» EDWRT DSHCGP,FLEVPRT GTP «, t00=0x001b, t01=0x000e}
0x2a52…2a64 Head {h00=0x000e, h01=0x0050, text=» B LPRT100«, t00=0x001b, t01=0x0030}
0x2a64…2a74 Head {h00=0x000c, h01=0x0050, text=»LPRT095 «, t00=0x001b, t01=0x0042}
0x2a74…2a94 Head {h00=0x001c, h01=0x0050, text=» EDWRT DSHCLP,FLEVPRT LP«, t00=0x001b, t01=0x0052}
0x2a94…2a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0072}
0x2a9e…2ab8 Head {h00=0x0016, h01=0x0050, text=»LPRT100 TO NEXT «, t00=0x001b, t01=0x007c}
0x2ab8…2ad8 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN0,CBIN0«, t00=0x001b, t01=0x0096}
0x2ad8…2aec Head {h00=0x0010, h01=0x0050, text=» TESTIO KEYB«, t00=0x001b, t01=0x00b6}
0x2aec…2b12 Head {h00=0x0022, h01=0x0050, text=» BOK LPRT110 OK: KEYBORD INPUT«, t00=0x001b, t01=0x00ca}
0x2b12…2b2a Head {h00=0x0014, h01=0x0050, text=» CALL ABORT,KEYB«, t00=0x001b, t01=0x00f0}
0x2b2a…2b46 Head {h00=0x0018, h01=0x0050, text=» B LPRT150 CONTINUE «, t00=0x001b, t01=0x0108}
0x2b46…2b60 Head {h00=0x0016, h01=0x0050, text=»LPRT110 MAK KEY?«, t00=0x001b, t01=0x0124}
0x2b60…2b72 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x001b, t01=0x013e}
0x2b72…2b9e Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN6,LPRT150 CONTINUE«, t00=0x001b, t01=0x0150}
0x2b9e…2bb0 Head {h00=0x000e, h01=0x0050, text=» B LPRTRET«, t00=0x001b, t01=0x017c}
0x2bb0…2bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018e}
0x2bba…2bca Head {h00=0x000c, h01=0x0050, text=»LPRT150 «, t00=0x001c, t01=0x0008}
0x2bca…2bde Head {h00=0x0010, h01=0x0050, text=» PERF GETNXT«, t00=0x001c, t01=0x0018}
0x2bde…2bfa Head {h00=0x0018, h01=0x0050, text=» BNOK LPRTRET FINISH«, t00=0x001c, t01=0x002c}
0x2bfa…2c16 Head {h00=0x0018, h01=0x0050, text=» B LPRT050 READ NEXT«, t00=0x001c, t01=0x0048}
0x2c16…2c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0064}
0x2c20…2c30 Head {h00=0x000c, h01=0x0050, text=»LPRTRET «, t00=0x001c, t01=0x006e}
0x2c30…2c3c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x007e}
0x2c3c…2c4a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x008a}
0x2c4a…2c58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0098}
0x2c58…2c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c62…2c74 Head {h00=0x000e, h01=0x0050, text=»VARRD PROC«, t00=0x001c, t01=0x00b0}
0x2c74…2c86 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x001c, t01=0x00c2}
0x2c86…2c90 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x001c, t01=0x00d4}
0x2c90…2cc2 Head {h00=0x002e, h01=0x002a, text=»* READ AND UNPACK VARIABLE INFORMATION«, t00=0x001c, t01=0x00de}
0x2cc2…2ce8 Head {h00=0x0022, h01=0x001d, text=»* FOR LEVERAND NR GTLEVNR «, t00=0x001c, t01=0x0110}
0x2ce8…2cf2 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x001c, t01=0x0136}
0x2cf2…2d04 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x001c, t01=0x0140}
0x2d04…2d0e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x001c, t01=0x0152}
0x2d0e…2d1e Head {h00=0x000c, h01=0x0007, text=»VARR000 «, t00=0x001c, t01=0x015c}
0x2d1e…2d48 Head {h00=0x0026, h01=0x0021, text=» TBF CVARFLG,VARR010 BUFFER FREE? «, t00=0x001c, t01=0x016c}
0x2d48…2d64 Head {h00=0x0018, h01=0x0014, text=» DELAY CBIN2 NO WAIT«, t00=0x001d, t01=0x0008}
0x2d64…2d76 Head {h00=0x000e, h01=0x000a, text=» B VARR000«, t00=0x001d, t01=0x0024}
0x2d76…2d7e Head {h00=0x0004, h01=0x0000, t00=0x001d, t01=0x0036}
0x2d7e…2d8e Head {h00=0x000c, h01=0x0007, text=»VARR010 «, t00=0x001d, t01=0x003e}
0x2d8e…2db6 Head {h00=0x0024, h01=0x001f, text=» SET CVARFLG RESERVE VAR BUFFER «, t00=0x001d, t01=0x004e}
0x2db6…2de2 Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x001d, t01=0x0076}
0x2de2…2e00 Head {h00=0x001a, h01=0x0016, text=» GSWBIN5 LEV INDEX«, t00=0x001d, t01=0x00a2}
0x2e00…2e1a Head {h00=0x0016, h01=0x0012, text=» GSWBIN4 INDEX«, t00=0x001d, t01=0x00c0}
0x2e1a…2e3a Head {h00=0x001c, h01=0x0018, text=» BERR VARRNOK DISK ERROR«, t00=0x001d, t01=0x00da}
0x2e3a…2e5a Head {h00=0x001c, h01=0x0017, text=» BNOK VARRNOK NOT FOUND «, t00=0x001d, t01=0x00fa}
0x2e5a…2e6a Head {h00=0x000c, h01=0x0008, text=» FOUND«, t00=0x001d, t01=0x011a}
0x2e6a…2e92 Head {h00=0x0024, h01=0x0020, text=» MOVE GSWBIN4,=W'49' RECORD SIZE«, t00=0x001d, t01=0x012a}
0x2e92…2eb0 Head {h00=0x001a, h01=0x0015, text=» MOVE CVARBUF,CBLANKS «, t00=0x001d, t01=0x0152}
0x2eb0…2ee8 Head {h00=0x0034, h01=0x002f, text=» PERF RAREAD,DK09,=D'9',CVARBUF,GSWBIN4,GSWBIN5 «, t00=0x001d, t01=0x0170}
0x2ee8…2efe Head {h00=0x0012, h01=0x000d, text=» BNOK VARRNOK «, t00=0x001e, t01=0x0018}
0x2efe…2f1c Head {h00=0x001a, h01=0x0015, text=»* UNPACK VAR INFO «, t00=0x001e, t01=0x002e}
0x2f1c…2f46 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x001e, t01=0x004c}
0x2f46…2f7c Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'0',=W'6',CVARBUF,=W'0' «, t00=0x001e, t01=0x0076}
0x2f7c…2fa0 Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVNR,GSWBCD7,VARR030«, t00=0x001e, t01=0x00ac}
0x2fa0…2fd0 Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD«, t00=0x001e, t01=0x00d0}
0x2fd0…2fe2 Head {h00=0x000e, h01=0x000a, text=» B VARRNOK«, t00=0x001e, t01=0x0100}
0x2fe2…2ff2 Head {h00=0x000c, h01=0x0050, text=»VARR030 «, t00=0x001e, t01=0x0112}
0x2ff2…3026 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD«, t00=0x001e, t01=0x0122}
0x3026…305a Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'6'«, t00=0x001e, t01=0x0156}
0x305a…3088 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO «, t00=0x001e, t01=0x018a}
0x3088…30bc Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'9'«, t00=0x001f, t01=0x0028}
0x30bc…30ea Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN11),GSWBCD7 UDB BELOB«, t00=0x001f, t01=0x005c}
0x30ea…3120 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'16' «, t00=0x001f, t01=0x008a}
0x3120…314c Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN12),GSWBCD7 UDB ]TD«, t00=0x001f, t01=0x00c0}
0x314c…3182 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'23' «, t00=0x001f, t01=0x00ec}
0x3182…31b2 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET «, t00=0x001f, t01=0x0122}
0x31b2…31e8 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'30' «, t00=0x001f, t01=0x0152}
0x31e8…3218 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT«, t00=0x001f, t01=0x0188}
0x3218…324a Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL.«, t00=0x0020, t01=0x0028}
0x324a…3274 Head {h00=0x0026, h01=0x0050, text=» ADD GTREGF(CBIN16),GTREGF(CBIN14)«, t00=0x0020, t01=0x005a}
0x3274…3298 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x0020, t01=0x0084}
0x3298…32ce Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'37' «, t00=0x0020, t01=0x00a8}
0x32ce…32fc Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO «, t00=0x0020, t01=0x00de}
0x32fc…3332 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTTRKEY,=W'0',=W'2',CVARBUF,=W'47' «, t00=0x0020, t01=0x010c}
0x3332…3358 Head {h00=0x0022, h01=0x001d, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0020, t01=0x0142}
0x3358…3374 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0020, t01=0x0168}
0x3374…3380 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0020, t01=0x0184}
0x3380…338a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0020, t01=0x0190}
0x338a…339a Head {h00=0x000c, h01=0x0007, text=»VARRNOK «, t00=0x0021, t01=0x000a}
0x339a…33c0 Head {h00=0x0022, h01=0x001d, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0021, t01=0x001a}
0x33c0…33dc Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0021, t01=0x0040}
0x33dc…33e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x005c}
0x33e8…33f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0068}
0x33f6…3404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0076}
0x3404…340e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0084}
0x340e…3422 Head {h00=0x0010, h01=0x000b, text=»VARWRT PROC «, t00=0x0021, t01=0x008e}
0x3422…3434 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0021, t01=0x00a2}
0x3434…343e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0021, t01=0x00b4}
0x343e…3474 Head {h00=0x0032, h01=0x002d, text=»* PACK AND WRITE VARIABLE INFORMATION FOR «, t00=0x0021, t01=0x00be}
0x3474…3496 Head {h00=0x001e, h01=0x0019, text=»* LEVERAND NO GTLEVNR «, t00=0x0021, t01=0x00f4}
0x3496…34a0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0021, t01=0x0116}
0x34a0…34b2 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0021, t01=0x0120}
0x34b2…34bc Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0021, t01=0x0132}
0x34bc…34cc Head {h00=0x000c, h01=0x0007, text=»VARW000 «, t00=0x0021, t01=0x013c}
0x34cc…34f6 Head {h00=0x0026, h01=0x0021, text=» TBF CVARFLG,VARW010 BUFFER FREE? «, t00=0x0021, t01=0x014c}
0x34f6…3514 Head {h00=0x001a, h01=0x0015, text=» DELAY CBIN2 NO, WAIT «, t00=0x0021, t01=0x0176}
0x3514…3526 (34, 0, 398) Head {h00=0x000e, h01=0x000a, text=» B VARW000«, t00=0x0022, t01=0x0004}
0x3526…352e Head {h00=0x0004, h01=0x0000, t00=0x0022, t01=0x0016}
0x352e…353e Head {h00=0x000c, h01=0x0007, text=»VARW010 «, t00=0x0022, t01=0x001e}
0x353e…3562 Head {h00=0x0020, h01=0x001b, text=» SET CVARFLG RESERVE BUFFER «, t00=0x0022, t01=0x002e}
0x3562…358a Head {h00=0x0024, h01=0x001f, text=»* PACK VARIABLE INFORMATION «, t00=0x0022, t01=0x0052}
0x358a…35a8 Head {h00=0x001a, h01=0x0050, text=» MOVE CVARBUF,CBLANKS «, t00=0x0022, t01=0x007a}
0x35a8…35de Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'0',=W'6',GTLEVNR,=W'0' «, t00=0x0022, t01=0x0098}
0x35de…360c Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN10) UDB DATO «, t00=0x0022, t01=0x00ce}
0x360c…3640 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'6',=W'3',GSWBCD7,=W'4'«, t00=0x0022, t01=0x00fc}
0x3640…366e Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN11) UDB BELOB«, t00=0x0022, t01=0x0130}
0x366e…36a2 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'9',=W'7',GSWBCD7,=W'0'«, t00=0x0022, t01=0x015e}
0x36a2…36ce (35, 0, 398) Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN12) UDB ]TD«, t00=0x0023, t01=0x0004}
0x36ce…3704 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'16',=W'7',GSWBCD7,=W'0' «, t00=0x0023, t01=0x0030}
0x3704…3734 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN14) VENT DEBET «, t00=0x0023, t01=0x0066}
0x3734…376a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'23',=W'7',GSWBCD7,=W'0' «, t00=0x0023, t01=0x0096}
0x376a…379a Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN15) VENT KREDIT«, t00=0x0023, t01=0x00cc}
0x379a…37d0 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'30',=W'7',GSWBCD7,=W'0' «, t00=0x0023, t01=0x00fc}
0x37d0…37fe Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN13) VAL DATO «, t00=0x0023, t01=0x0132}
0x37fe…3834 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'37',=W'3',GSWBCD7,=W'4' «, t00=0x0023, t01=0x0160}
0x3834…386a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'47',=W'2',GTTRKEY,=W'0' «, t00=0x0024, t01=0x0008}
0x386a…387e Head {h00=0x0010, h01=0x000b, text=»* WRITE «, t00=0x0024, t01=0x003e}
0x387e…38aa Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0024, t01=0x0052}
0x38aa…38c8 Head {h00=0x001a, h01=0x0016, text=» GSWBIN5 LEV INDEX«, t00=0x0024, t01=0x007e}
0x38c8…38e2 Head {h00=0x0016, h01=0x0012, text=» GSWBIN4 INDEX«, t00=0x0024, t01=0x009c}
0x38e2…3902 Head {h00=0x001c, h01=0x0018, text=» BERR VARWNOK DISK ERROR«, t00=0x0024, t01=0x00b6}
0x3902…3922 Head {h00=0x001c, h01=0x0050, text=» BNOK VARWNOK NOT FOUND «, t00=0x0024, t01=0x00d6}
0x3922…3932 Head {h00=0x000c, h01=0x0008, text=» FOUND«, t00=0x0024, t01=0x00f6}
0x3932…3962 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK09,=D'9',CVARBUF,GSWBIN5 «, t00=0x0024, t01=0x0106}
0x3962…3978 Head {h00=0x0012, h01=0x000d, text=» BNOK VARWNOK «, t00=0x0024, t01=0x0136}
0x3978…3982 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0024, t01=0x014c}
0x3982…3990 Head {h00=0x000a, h01=0x0006, text=»VARWOK«, t00=0x0024, t01=0x0156}
0x3990…39b6 Head {h00=0x0022, h01=0x001d, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0024, t01=0x0164}
0x39b6…39d2 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0024, t01=0x018a}
0x39d2…39de Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0025, t01=0x0016}
0x39de…39e8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0025, t01=0x0022}
0x39e8…39f8 Head {h00=0x000c, h01=0x0007, text=»VARWNOK «, t00=0x0025, t01=0x002c}
0x39f8…3a1e Head {h00=0x0022, h01=0x001d, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0025, t01=0x003c}
0x3a1e…3a3a Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0025, t01=0x0062}
0x3a3a…3a46 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0025, t01=0x007e}
0x3a46…3a54 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0025, t01=0x008a}
0x3a54…3a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0098}
0x3a62…3a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a6}
0x3a6c…3a80 Head {h00=0x0010, h01=0x000b, text=»VARINT PROC «, t00=0x0025, t01=0x00b0}
0x3a80…3a92 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0025, t01=0x00c4}
0x3a92…3a9c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0025, t01=0x00d6}
0x3a9c…3ac4 Head {h00=0x0024, h01=0x0020, text=»* INITIATE VARIABLE INFO FOR«, t00=0x0025, t01=0x00e0}
0x3ac4…3ae6 Head {h00=0x001e, h01=0x0019, text=»* LEVERAND NR GTLEVNR «, t00=0x0025, t01=0x0108}
0x3ae6…3b12 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN10),=D'0' UDB DATO «, t00=0x0025, t01=0x012a}
0x3b12…3b3e Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN11),=D'0' UDB BELOB«, t00=0x0025, t01=0x0156}
0x3b3e…3b68 Head {h00=0x0026, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0' UDB ]TD«, t00=0x0025, t01=0x0182}
0x3b68…3b96 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0' VENT DEBET «, t00=0x0026, t01=0x001c}
0x3b96…3bc4 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0' VENT KREDIT«, t00=0x0026, t01=0x004a}
0x3bc4…3bf0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN13),=D'0' VAL DATO «, t00=0x0026, t01=0x0078}
0x3bf0…3c1a Head {h00=0x0026, h01=0x0021, text=» MOVE GTTRKEY,=W'0' TRANS POINTER «, t00=0x0026, t01=0x00a4}
0x3c1a…3c26 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0026, t01=0x00ce}
0x3c26…3c34 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0026, t01=0x00da}
0x3c34…3c42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00e8}
0x3c42…3c4a Head {h00=0x0004, h01=0x0000, t00=0x0026, t01=0x00f6}
0x3c4a…3c52 Head {h00=0x0004, h01=0x0000, t00=0x0026, t01=0x00fe}
0x3c52…3c78 Head {h00=0x0022, h01=0x001d, text=»IDXGET PROC LEVNR,INDX,LEVDEX «, t00=0x0026, t01=0x0106}
0x3c78…3cac Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0026, t01=0x012c}
0x3cac…3cb6 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0026, t01=0x0160}
0x3cb6…3ce8 Head {h00=0x002e, h01=0x002a, text=»* PROCEDURE FOR SEARCHING IN INDEXFILE FOR«, t00=0x0026, t01=0x016a}
0x3ce8…3d00 Head {h00=0x0014, h01=0x000f, text=»* A GIVE LEVNO. «, t00=0x0027, t01=0x000c}
0x3d00…3d0a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0027, t01=0x0024}
0x3d0a…3d3e Head {h00=0x0030, h01=0x002c, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK«, t00=0x0027, t01=0x002e}
0x3d3e…3d6e Head {h00=0x002c, h01=0x0027, text=»* INDX INDEX IN INDEXFILE «, t00=0x0027, t01=0x0062}
0x3d6e…3d94 Head {h00=0x0022, h01=0x001e, text=»* LEVDEX INDEX LEV«, t00=0x0027, t01=0x0092}
0x3d94…3d9e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0027, t01=0x00b8}
0x3d9e…3ddc Head {h00=0x003a, h01=0x0035, text=»* IF NOT FOUND - CONDITION REGISTER IS SET TO NOK = 1 «, t00=0x0027, t01=0x00c2}
0x3ddc…3e12 Head {h00=0x0032, h01=0x002d, text=»* INDX INDEX TO PLACE TO INSERT «, t00=0x0027, t01=0x0100}
0x3e12…3e32 Head {h00=0x001c, h01=0x0017, text=»* LEVDEX 0 «, t00=0x0027, t01=0x0136}
0x3e32…3e3c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0027, t01=0x0156}
0x3e3c…3e78 Head {h00=0x0038, h01=0x0034, text=»* IF DISKERR - CONDITION REGISTER IS SET TO ERR = 2«, t00=0x0027, t01=0x0160}
0x3e78…3e96 Head {h00=0x001a, h01=0x0016, text=»* INDEX 0«, t00=0x0028, t01=0x000c}
0x3e96…3eb6 Head {h00=0x001c, h01=0x0018, text=»* LEVDEX =0«, t00=0x0028, t01=0x002a}
0x3eb6…3ec0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0028, t01=0x004a}
0x3ec0…3ef4 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0028, t01=0x0054}
0x3ef4…3f16 Head {h00=0x001e, h01=0x0019, text=» MOVE GSWBIN5,CBIN0 GROUP «, t00=0x0028, t01=0x0088}
0x3f16…3f38 Head {h00=0x001e, h01=0x001a, text=» MOVE GSWBIN4,CBIN0 RECORD«, t00=0x0028, t01=0x00aa}
0x3f38…3f48 Head {h00=0x000c, h01=0x0007, text=»IGET010 «, t00=0x0028, t01=0x00cc}
0x3f48…3f64 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,=W'48' «, t00=0x0028, t01=0x00dc}
0x3f64…3f90 Head {h00=0x0028, h01=0x0024, text=» ADD GSWBIN5,CBIN1 ASEARCH FOR GROUP«, t00=0x0028, t01=0x00f8}
0x3f90…3fc6 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBIN4,CIXLAST,IGET020 RETURN NOT FOUND «, t00=0x0028, t01=0x0124}
0x3fc6…4004 Head {h00=0x003a, h01=0x0035, text=» CBE CIXINDX(GSWBIN5),=D'0',IGET020 RETURN, NOT FOUND «, t00=0x0028, t01=0x015a}
0x4004…4040 Head {h00=0x0038, h01=0x0034, text=» CBL CIXINDX(GSWBIN5),LEVNR,IGET010 KNTNO < MASTER ?«, t00=0x0029, t01=0x0008}
0x4040…405c Head {h00=0x0018, h01=0x0050, text=» B IGET030 TRY NEXT «, t00=0x0029, t01=0x0044}
0x405c…4078 Head {h00=0x0018, h01=0x0050, text=»IGET020 NOT FOUND «, t00=0x0029, t01=0x0060}
0x4078…40a2 Head {h00=0x0026, h01=0x0022, text=» MOVE INDX,CIXFREE PLACE TO INSERT«, t00=0x0029, t01=0x007c}
0x40a2…40bc Head {h00=0x0016, h01=0x0012, text=» MOVE LEVDEX,CBIN0«, t00=0x0029, t01=0x00a6}
0x40bc…40d8 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0029, t01=0x00c0}
0x40d8…40e4 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0029, t01=0x00dc}
0x40e4…40ec Head {h00=0x0004, h01=0x0000, t00=0x0029, t01=0x00e8}
0x40ec…410a Head {h00=0x001a, h01=0x0050, text=»IGET030 GROUP FOUND «, t00=0x0029, t01=0x00f0}
0x410a…412c Head {h00=0x001e, h01=0x001a, text=» LEVNR WITHIN THIS GROUP«, t00=0x0029, t01=0x010e}
0x412c…4144 Head {h00=0x0014, h01=0x0010, text=» GROUP GSWBIN5«, t00=0x0029, t01=0x0130}
0x4144…4160 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,=W'48' «, t00=0x0029, t01=0x0148}
0x4160…4170 Head {h00=0x000c, h01=0x0050, text=»IGET100 «, t00=0x0029, t01=0x0164}
0x4170…419a Head {h00=0x0026, h01=0x0050, text=» TBF CIDXFLG,IGET105 BUFFER FREE? «, t00=0x0029, t01=0x0174}
0x419a…41b8 Head {h00=0x001a, h01=0x0050, text=» DELAY CBIN2 NO, WAIT «, t00=0x002a, t01=0x000e}
0x41b8…41ca Head {h00=0x000e, h01=0x0050, text=» B IGET100«, t00=0x002a, t01=0x002c}
0x41ca…41da Head {h00=0x000c, h01=0x0050, text=»IGET105 «, t00=0x002a, t01=0x003e}
0x41da…41fe Head {h00=0x0020, h01=0x0050, text=» SET CIDXFLG RESERVE BUFFER «, t00=0x002a, t01=0x004e}
0x41fe…420e Head {h00=0x000c, h01=0x0007, text=»IGET110 «, t00=0x002a, t01=0x0072}
0x420e…4228 Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN4,CBIN1«, t00=0x002a, t01=0x0082}
0x4228…4248 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 SIZE«, t00=0x002a, t01=0x009c}
0x4248…4264 Head {h00=0x0018, h01=0x0014, text=» MOVE CIXBUF,CBLANKS«, t00=0x002a, t01=0x00bc}
0x4264…429a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x002a, t01=0x00d8}
0x429a…42b0 Head {h00=0x0012, h01=0x000d, text=» BNOK IGET300 «, t00=0x002a, t01=0x010e}
0x42b0…42d4 Head {h00=0x0020, h01=0x001c, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x002a, t01=0x0124}
0x42d4…42f0 Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN5,CBIN0 «, t00=0x002a, t01=0x0148}
0x42f0…4322 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 «, t00=0x002a, t01=0x0164}
0x4322…434a Head {h00=0x0024, h01=0x0020, text=» CBE GSWBCD7,LEVNR,IGET200 FOUND«, t00=0x002b, t01=0x0008}
0x434a…4378 Head {h00=0x002a, h01=0x0025, text=» CBG GSWBCD7,LEVNR,IGETNOK1 NOT FOUND «, t00=0x002b, t01=0x0030}
0x4378…4398 Head {h00=0x001c, h01=0x0017, text=» B IGET110 LOOK AT NEXT «, t00=0x002b, t01=0x005e}
0x4398…43b0 Head {h00=0x0014, h01=0x0050, text=»IGET200 FOUND«, t00=0x002b, t01=0x007e}
0x43b0…43d4 Head {h00=0x0020, h01=0x001c, text=» MOVE INDX,GSWBIN4 SET INDEX«, t00=0x002b, t01=0x0096}
0x43d4…43f0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x002b, t01=0x00ba}
0x43f0…4422 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN5,CBIN0,CBIN2,CIXBUF,GSWBIN1 «, t00=0x002b, t01=0x00d6}
0x4422…444c Head {h00=0x0026, h01=0x0050, text=» MOVE LEVDEX,GSWBIN5 SET LEV INDX «, t00=0x002b, t01=0x0108}
0x444c…4472 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x002b, t01=0x0132}
0x4472…4494 Head {h00=0x001e, h01=0x001a, text=» CMP CBIN0,CBIN0 RETURN OK«, t00=0x002b, t01=0x0158}
0x4494…44a0 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002b, t01=0x017a}
0x44a0…44a8 Head {h00=0x0004, h01=0x0000, t00=0x002b, t01=0x0186}
0x44a8…44b8 Head {h00=0x000c, h01=0x0008, text=»IGETNOK1«, t00=0x002b, t01=0x018e}
0x44b8…44d2 Head {h00=0x0016, h01=0x0012, text=» MOVE LEVDEX,CBIN0«, t00=0x002c, t01=0x000e}
0x44d2…44fc Head {h00=0x0026, h01=0x0022, text=» MOVE INDX,GSWBIN4 PLACE TO INSERT«, t00=0x002c, t01=0x0028}
0x44fc…4522 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x002c, t01=0x0052}
0x4522…453e Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x002c, t01=0x0078}
0x453e…454a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002c, t01=0x0094}
0x454a…456a Head {h00=0x001c, h01=0x0050, text=»IGET300 SET COND = ERR«, t00=0x002c, t01=0x00a0}
0x456a…4584 Head {h00=0x0016, h01=0x0012, text=» MOVE LEVDEX,CBIN0«, t00=0x002c, t01=0x00c0}
0x4584…459c Head {h00=0x0014, h01=0x0010, text=» MOVE INDX,CBIN0«, t00=0x002c, t01=0x00da}
0x459c…45c2 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x002c, t01=0x00f2}
0x45c2…45da Head {h00=0x0014, h01=0x0010, text=» CMP CBIN0,CBIN1«, t00=0x002c, t01=0x0118}
0x45da…45e6 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002c, t01=0x0130}
0x45e6…45f4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x002c, t01=0x013c}
0x45f4…45fc Head {h00=0x0004, h01=0x0000, t00=0x002c, t01=0x014a}
0x45fc…460a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0152}
0x460a…461e Head {h00=0x0010, h01=0x0050, text=»IDXINS PROC «, t00=0x002c, t01=0x0160}
0x461e…4630 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x002c, t01=0x0174}
0x4630…463a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x002c, t01=0x0186}
0x463a…4664 Head {h00=0x0026, h01=0x0021, text=»* INSERT GTLEVNR IN INDEXFILE «, t00=0x002c, t01=0x0190}
0x4664…466e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x002d, t01=0x002a}
0x466e…4680 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x002d, t01=0x0034}
0x4680…46ac Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x002d, t01=0x0046}
0x46ac…46ca Head {h00=0x001a, h01=0x0016, text=» GSWBIN5 LEV INDEX«, t00=0x002d, t01=0x0072}
0x46ca…46e4 Head {h00=0x0016, h01=0x0012, text=» GSWBIN4 INDEX«, t00=0x002d, t01=0x0090}
0x46e4…4704 Head {h00=0x001c, h01=0x0018, text=» BERR XINSNOK DISK ERROR«, t00=0x002d, t01=0x00aa}
0x4704…4728 Head {h00=0x0020, h01=0x001c, text=» BOK XINSNOK ALREADY PRESENT«, t00=0x002d, t01=0x00ca}
0x4728…4748 Head {h00=0x001c, h01=0x0017, text=»* NOT FOUND, INSERT «, t00=0x002d, t01=0x00ee}
0x4748…4758 Head {h00=0x000c, h01=0x0007, text=»XINS000 «, t00=0x002d, t01=0x010e}
0x4758…4782 Head {h00=0x0026, h01=0x0021, text=» TBF CIDXFLG,XINS010 BUFFER FREE? «, t00=0x002d, t01=0x011e}
0x4782…47a0 Head {h00=0x001a, h01=0x0016, text=» DELAY CBIN2 NO , WAIT«, t00=0x002d, t01=0x0148}
0x47a0…47b2 Head {h00=0x000e, h01=0x000a, text=» B XINS000«, t00=0x002d, t01=0x0166}
0x47b2…47c2 Head {h00=0x000c, h01=0x0007, text=»XINS010 «, t00=0x002d, t01=0x0178}
0x47c2…47ee Head {h00=0x0028, h01=0x0024, text=» CBG CIXFREE,CIXLAST,XINSNOK NO ROOM«, t00=0x002d, t01=0x0188}
0x47ee…4802 Head {h00=0x0010, h01=0x0050, text=» SET CIDXFLG«, t00=0x002e, t01=0x0024}
0x4802…4834 Head {h00=0x002e, h01=0x0029, text=» MOVE GSWBIN8,GSWBIN4 PLACE FOR INSERTION «, t00=0x002e, t01=0x0038}
0x4834…4850 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x002e, t01=0x006a}
0x4850…4886 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,CIXFREE«, t00=0x002e, t01=0x0086}
0x4886…48ba Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN7,=W'0',=W'2',CIXBUF,=W'5' «, t00=0x002e, t01=0x00bc}
0x48ba…48e6 Head {h00=0x0028, h01=0x0023, text=» MOVE GSWBIN4,CIXFREE START OF LOOP «, t00=0x002e, t01=0x00f0}
0x48e6…4910 Head {h00=0x0026, h01=0x0021, text=» ADD CIXFREE,CBIN1 NEW FIRST FREE «, t00=0x002e, t01=0x011c}
0x4910…491a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x002e, t01=0x0146}
0x491a…492a Head {h00=0x000c, h01=0x0007, text=»XINS100 «, t00=0x002e, t01=0x0150}
0x492a…4958 Head {h00=0x002a, h01=0x0025, text=» SUB GSWBIN4,CBIN1 RECORD TO BE MOVED «, t00=0x002e, t01=0x0160}
0x4958…4988 Head {h00=0x002c, h01=0x0027, text=» CBL GSWBIN4,GSWBIN8,XINS200 ALL MOVED? «, t00=0x002e, t01=0x018e}
0x4988…4996 Head {h00=0x000a, h01=0x0006, text=» NO.«, t00=0x002f, t01=0x002e}
0x4996…49b2 Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN1,CBIN7 «, t00=0x002f, t01=0x003c}
0x49b2…49e8 Head {h00=0x0032, h01=0x002e, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x002f, t01=0x0058}
0x49e8…49fe Head {h00=0x0012, h01=0x000d, text=» BNOK XINSNOK «, t00=0x002f, t01=0x008e}
0x49fe…4a18 Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN4,CBIN1«, t00=0x002f, t01=0x00a4}
0x4a18…4a46 Head {h00=0x002a, h01=0x0026, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x002f, t01=0x00be}
0x4a46…4a5c Head {h00=0x0012, h01=0x000d, text=» BNOK XINSNOK «, t00=0x002f, t01=0x00ec}
0x4a5c…4a84 Head {h00=0x0024, h01=0x001f, text=» PERF RESTIX RESET MASTER INDEX «, t00=0x002f, t01=0x0102}
0x4a84…4a9e Head {h00=0x0016, h01=0x0012, text=» SUB GSWBIN4,CBIN1«, t00=0x002f, t01=0x012a}
0x4a9e…4ab0 Head {h00=0x000e, h01=0x000a, text=» B XINS100«, t00=0x002f, t01=0x0144}
0x4ab0…4aba Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x002f, t01=0x0156}
0x4aba…4aca Head {h00=0x000c, h01=0x0007, text=»XINS200 «, t00=0x002f, t01=0x0160}
0x4aca…4af6 Head {h00=0x0028, h01=0x0023, text=»* ALL MOVED, INSERT LEVNR+INDEX «, t00=0x002f, t01=0x0170}
0x4af6…4b2a Head {h00=0x0030, h01=0x002b, text=» PERF XCOP,CIXBUF,=W'0',=W'5',GTLEVNR,=W'1' «, t00=0x0030, t01=0x000c}
0x4b2a…4b5e Head {h00=0x0030, h01=0x002b, text=» PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' «, t00=0x0030, t01=0x0040}
0x4b5e…4b8c Head {h00=0x002a, h01=0x0026, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN8«, t00=0x0030, t01=0x0074}
0x4b8c…4bbe Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION «, t00=0x0030, t01=0x00a2}
0x4bbe…4bd2 Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0030, t01=0x00d4}
0x4bd2…4bf8 Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0030, t01=0x00e8}
0x4bf8…4c14 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0030, t01=0x010e}
0x4c14…4c20 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0030, t01=0x012a}
0x4c20…4c30 Head {h00=0x000c, h01=0x0007, text=»XINSNOK «, t00=0x0030, t01=0x0136}
0x4c30…4c56 Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0030, t01=0x0146}
0x4c56…4c72 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0030, t01=0x016c}
0x4c72…4c7e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0188}
0x4c7e…4c8c (49, 0, 400) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x0004}
0x4c8c…4c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0012}
0x4c96…4ca4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x001c}
0x4ca4…4cac Head {h00=0x0004, h01=0x0000, t00=0x0031, t01=0x002a}
0x4cac…4cb4 Head {h00=0x0004, h01=0x0000, t00=0x0031, t01=0x0032}
0x4cb4…4cc8 Head {h00=0x0010, h01=0x0050, text=»SETIDX PROC «, t00=0x0031, t01=0x003a}
0x4cc8…4cf6 Head {h00=0x002a, h01=0x0025, text=»************************************* «, t00=0x0031, t01=0x004e}
0x4cf6…4d00 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0031, t01=0x007c}
0x4d00…4d30 Head {h00=0x002c, h01=0x0028, text=»* INITIATE MASTER INDEX FOR LEV-REGISTER«, t00=0x0031, t01=0x0086}
0x4d30…4d60 Head {h00=0x002c, h01=0x0028, text=»* IF INDEX EMPTY, SET UP ALL ENTRIES AND«, t00=0x0031, t01=0x00b6}
0x4d60…4d82 Head {h00=0x001e, h01=0x001a, text=»* INITIATE SPECIAL ENTRIES«, t00=0x0031, t01=0x00e6}
0x4d82…4d8c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0031, t01=0x0108}
0x4d8c…4da0 Head {h00=0x0010, h01=0x0050, text=»* SETS: «, t00=0x0031, t01=0x0112}
0x4da0…4dc8 Head {h00=0x0024, h01=0x0050, text=»* CIXLAST - LAST RECORD NO. «, t00=0x0031, t01=0x0126}
0x4dc8…4df0 Head {h00=0x0024, h01=0x0050, text=»* CIXFREE - FIRST FREE ENTRY«, t00=0x0031, t01=0x014e}
0x4df0…4dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0176}
0x4dfa…4e28 Head {h00=0x002a, h01=0x0026, text=»**************************************«, t00=0x0031, t01=0x0180}
0x4e28…4e30 Head {h00=0x0004, h01=0x0000, t00=0x0032, t01=0x001e}
0x4e30…4e4c Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0032, t01=0x0026}
0x4e4c…4e68 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'7' «, t00=0x0032, t01=0x0042}
0x4e68…4e84 Head {h00=0x0018, h01=0x0014, text=» MOVE CIXBUF,CBLANKS«, t00=0x0032, t01=0x005e}
0x4e84…4eba Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x0032, t01=0x007a}
0x4eba…4ee6 Head {h00=0x0028, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX005 NO DATA ?«, t00=0x0032, t01=0x00b0}
0x4ee6…4f02 Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0032, t01=0x00dc}
0x4f02…4f46 Head {h00=0x0040, h01=0x003b, text=» MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 1.LEV=BLANK «, t00=0x0032, t01=0x00f8}
0x4f46…4f5a Head {h00=0x0010, h01=0x000b, text=» BE SIDX005 «, t00=0x0032, t01=0x013c}
0x4f5a…4f76 Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0032, t01=0x0150}
0x4f76…4f96 Head {h00=0x001c, h01=0x0017, text=» MOVE GSWBCD7,=D'1' > 0 «, t00=0x0032, t01=0x016c}
0x4f96…4fd2 Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET 1. LEV«, t00=0x0032, t01=0x018c}
0x4fd2…5004 Head {h00=0x002e, h01=0x0050, text=» CBNE GSWBCD7,=D'1',SIDX005 IF NOT LEVNR 1«, t00=0x0033, t01=0x0038}
0x5004…5016 Head {h00=0x000e, h01=0x000a, text=» B SIDX100«, t00=0x0033, t01=0x006a}
0x5016…503c Head {h00=0x0022, h01=0x0050, text=»SIDX005 INITIATE INDEX FILE «, t00=0x0033, t01=0x007c}
0x503c…506c Head {h00=0x002c, h01=0x0050, text=»* INITIATE INDEX FILE WITH BLANK ENTRIES«, t00=0x0033, t01=0x00a2}
0x506c…5088 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0033, t01=0x00d2}
0x5088…5098 Head {h00=0x000c, h01=0x0050, text=»SIDX050 «, t00=0x0033, t01=0x00ee}
0x5098…50b2 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0033, t01=0x00fe}
0x50b2…50dc Head {h00=0x0026, h01=0x0050, text=» MOVE CIXBUF,CBLANKS CLEAR BUFFER «, t00=0x0033, t01=0x0118}
0x50dc…50f8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0033, t01=0x0142}
0x50f8…5134 Head {h00=0x0038, h01=0x0050, text=» XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN4,GSWBIN5 SET INDEX «, t00=0x0033, t01=0x015e}
0x5134…5162 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x0034, t01=0x000a}
0x5162…5176 Head {h00=0x0010, h01=0x0050, text=» BOK SIDX050«, t00=0x0034, t01=0x0038}
0x5176…519a Head {h00=0x0020, h01=0x001c, text=»* OK, FIRST LEV = 0000000000«, t00=0x0034, t01=0x004c}
0x519a…51c6 Head {h00=0x0028, h01=0x0023, text=»* LOOP THROUGH INDEX FILE TO SET UP «, t00=0x0034, t01=0x0070}
0x51c6…51f2 Head {h00=0x0028, h01=0x0023, text=»* MASTER INDEX IN CORE, AND TO FIND «, t00=0x0034, t01=0x009c}
0x51f2…520e Head {h00=0x0018, h01=0x0014, text=»* SIZE OF INDEX FILE«, t00=0x0034, t01=0x00c8}
0x520e…521e Head {h00=0x000c, h01=0x0050, text=»SIDX100 «, t00=0x0034, t01=0x00e4}
0x521e…523a Head {h00=0x0018, h01=0x0013, text=» MOVE CIXLAST,CBIN0 «, t00=0x0034, t01=0x00f4}
0x523a…5256 Head {h00=0x0018, h01=0x0050, text=» MOVE CIXFREE,CBIN0 «, t00=0x0034, t01=0x0110}
0x5256…5272 Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0034, t01=0x012c}
0x5272…5282 Head {h00=0x000c, h01=0x0050, text=»SIDX110 «, t00=0x0034, t01=0x0148}
0x5282…529e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,=W'7' «, t00=0x0034, t01=0x0158}
0x529e…52ba Head {h00=0x0018, h01=0x0014, text=» MOVE CIXBUF,CBLANKS«, t00=0x0034, t01=0x0174}
0x52ba…52fc Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 READ RECORD«, t00=0x0034, t01=0x0190}
0x52fc…532c Head {h00=0x002c, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX130 FILE EXPANDED«, t00=0x0035, t01=0x0042}
0x532c…535e Head {h00=0x002e, h01=0x0029, text=» CBE GTWBCD1,=D'10',SIDX130 END OF DEVICE «, t00=0x0035, t01=0x0072}
0x535e…537a Head {h00=0x0018, h01=0x0013, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0035, t01=0x00a4}
0x537a…53b2 Head {h00=0x0034, h01=0x002f, text=» MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x0035, t01=0x00c0}
0x53b2…53d0 Head {h00=0x001a, h01=0x0016, text=» BE SIDX130 FIRST FREE«, t00=0x0035, t01=0x00f8}
0x53d0…53e4 Head {h00=0x0010, h01=0x000c, text=» PERF RESTIX«, t00=0x0035, t01=0x0116}
0x53e4…53fe Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN4,CBIN1«, t00=0x0035, t01=0x012a}
0x53fe…5410 Head {h00=0x000e, h01=0x0050, text=» B SIDX110«, t00=0x0035, t01=0x0144}
0x5410…542e Head {h00=0x001a, h01=0x0050, text=»SIDX130 BLANK OR EOF«, t00=0x0035, t01=0x0156}
0x542e…545c Head {h00=0x002a, h01=0x0026, text=» MOVE CIXFREE,GSWBIN4 FIRST FREE ENTRY«, t00=0x0035, t01=0x0174}
0x545c…5486 Head {h00=0x0026, h01=0x0022, text=» SUB GSWBIN4,CBIN1 LAST USED ENTRY«, t00=0x0036, t01=0x0012}
0x5486…54a8 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,SIDX140«, t00=0x0036, t01=0x003c}
0x54a8…54c4 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0036, t01=0x005e}
0x54c4…54e0 Head {h00=0x0018, h01=0x0014, text=» MOVE CIXBUF,CBLANKS«, t00=0x0036, t01=0x007a}
0x54e0…5516 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x0036, t01=0x0096}
0x5516…5526 Head {h00=0x000c, h01=0x0050, text=»SIDX140 «, t00=0x0036, t01=0x00cc}
0x5526…553a Head {h00=0x0010, h01=0x000c, text=» PERF RESTIX«, t00=0x0036, t01=0x00dc}
0x553a…554e Head {h00=0x0010, h01=0x0050, text=» PERF INITIX«, t00=0x0036, t01=0x00f0}
0x554e…555a Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0036, t01=0x0104}
0x555a…5568 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0036, t01=0x0110}
0x5568…5570 Head {h00=0x0004, h01=0x0000, t00=0x0036, t01=0x011e}
0x5570…557e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0126}
0x557e…5592 Head {h00=0x0010, h01=0x0050, text=»IDXDEL PROC «, t00=0x0036, t01=0x0134}
0x5592…55a4 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0036, t01=0x0148}
0x55a4…55ae Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0036, t01=0x015a}
0x55ae…55da Head {h00=0x0028, h01=0x0024, text=»* DELETE ALL ENTRIES FOR LEV NR.«, t00=0x0036, t01=0x0164}
0x55da…55f4 Head {h00=0x0016, h01=0x0011, text=»* GTLEVNR, IN «, t00=0x0036, t01=0x0190}
0x55f4…5620 Head {h00=0x0028, h01=0x0023, text=»* INDEXFILE, STAM, AND VAR FILE «, t00=0x0037, t01=0x001a}
0x5620…562a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0037, t01=0x0046}
0x562a…563c Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0037, t01=0x0050}
0x563c…5646 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0037, t01=0x0062}
0x5646…5672 Head {h00=0x0028, h01=0x0024, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0037, t01=0x006c}
0x5672…5690 Head {h00=0x001a, h01=0x0015, text=» GSWBIN5 LEV INDX «, t00=0x0037, t01=0x0098}
0x5690…56aa Head {h00=0x0016, h01=0x0012, text=» GSWBIN4 INDEX«, t00=0x0037, t01=0x00b6}
0x56aa…56ca Head {h00=0x001c, h01=0x0018, text=» BERR XDELNOK DISK ERROR«, t00=0x0037, t01=0x00d0}
0x56ca…56ea Head {h00=0x001c, h01=0x0017, text=» BNOK XDELNOK NOT FOUND «, t00=0x0037, t01=0x00f0}
0x56ea…56fe Head {h00=0x0010, h01=0x000b, text=»* FOUND «, t00=0x0037, t01=0x0110}
0x56fe…570e Head {h00=0x000c, h01=0x0007, text=»XDEL000 «, t00=0x0037, t01=0x0124}
0x570e…5738 Head {h00=0x0026, h01=0x0050, text=» TBF CIDXFLG,XDEL010 BUFFER FREE? «, t00=0x0037, t01=0x0134}
0x5738…5756 Head {h00=0x001a, h01=0x0015, text=» DELAY CBIN2 NO, WAIT «, t00=0x0037, t01=0x015e}
0x5756…5768 Head {h00=0x000e, h01=0x000a, text=» B XDEL000«, t00=0x0037, t01=0x017c}
0x5768…5778 Head {h00=0x000c, h01=0x0007, text=»XDEL010 «, t00=0x0037, t01=0x018e}
0x5778…579c Head {h00=0x0020, h01=0x0050, text=» SET CIDXFLG RESERVE BUFFER «, t00=0x0038, t01=0x000e}
0x579c…57ce Head {h00=0x002e, h01=0x002a, text=» PERF RADEL,DK08,GSWBIN5 DELETE STAMRECORD«, t00=0x0038, t01=0x0032}
0x57ce…5800 Head {h00=0x002e, h01=0x002a, text=» PERF RADEL,DK09,GSWBIN5 DELETE VAR RECORD«, t00=0x0038, t01=0x0064}
0x5800…580a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0038, t01=0x0096}
0x580a…5834 Head {h00=0x0026, h01=0x0021, text=» MOVE GSWBIN7,GSWBIN5 KEEP LEVDEX «, t00=0x0038, t01=0x00a0}
0x5834…5844 Head {h00=0x000c, h01=0x0007, text=»XDEL100 «, t00=0x0038, t01=0x00ca}
0x5844…5872 Head {h00=0x002a, h01=0x0026, text=» ADD GSWBIN4,CBIN1 NEXT RECORD TO MOVE«, t00=0x0038, t01=0x00da}
0x5872…5898 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,XDEL200 «, t00=0x0038, t01=0x0108}
0x5898…58ba Head {h00=0x001e, h01=0x001a, text=» MOVE GSWBIN1,CBIN7 LENGTH«, t00=0x0038, t01=0x012e}
0x58ba…58f0 Head {h00=0x0032, h01=0x002e, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x0038, t01=0x0150}
0x58f0…5906 Head {h00=0x0012, h01=0x000d, text=» BNOK XDELNOK «, t00=0x0038, t01=0x0186}
0x5906…592e Head {h00=0x0024, h01=0x0020, text=» SUB GSWBIN4,CBIN1 WHERE TO MOVE«, t00=0x0039, t01=0x000c}
0x592e…595c Head {h00=0x002a, h01=0x0026, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x0039, t01=0x0034}
0x595c…5972 Head {h00=0x0012, h01=0x000d, text=» BNOK XDELNOK «, t00=0x0039, t01=0x0062}
0x5972…5986 Head {h00=0x0010, h01=0x000c, text=» PERF RESTIX«, t00=0x0039, t01=0x0078}
0x5986…59a0 Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN4,CBIN1«, t00=0x0039, t01=0x008c}
0x59a0…59b2 Head {h00=0x000e, h01=0x000a, text=» B XDEL100«, t00=0x0039, t01=0x00a6}
0x59b2…59bc Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0039, t01=0x00b8}
0x59bc…59de Head {h00=0x001e, h01=0x0019, text=»XDEL200 INSERT NEW FREE «, t00=0x0039, t01=0x00c2}
0x59de…59f8 Head {h00=0x0016, h01=0x0012, text=» SUB CIXFREE,CBIN1«, t00=0x0039, t01=0x00e4}
0x59f8…5a14 Head {h00=0x0018, h01=0x0014, text=» MOVE CIXBUF,CBLANKS«, t00=0x0039, t01=0x00fe}
0x5a14…5a48 Head {h00=0x0030, h01=0x002b, text=» PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' «, t00=0x0039, t01=0x011a}
0x5a48…5a76 Head {h00=0x002a, h01=0x0026, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,CIXFREE«, t00=0x0039, t01=0x014e}
0x5a76…5a94 Head {h00=0x001a, h01=0x0015, text=» MOVE GSWBIN4,CIXFREE «, t00=0x0039, t01=0x017c}
0x5a94…5aa8 Head {h00=0x0010, h01=0x000c, text=» PERF RESTIX«, t00=0x003a, t01=0x000a}
0x5aa8…5ace Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x003a, t01=0x001e}
0x5ace…5aea Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x003a, t01=0x0044}
0x5aea…5af6 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x003a, t01=0x0060}
0x5af6…5b00 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x003a, t01=0x006c}
0x5b00…5b10 Head {h00=0x000c, h01=0x0007, text=»XDELNOK «, t00=0x003a, t01=0x0076}
0x5b10…5b36 Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x003a, t01=0x0086}
0x5b36…5b52 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x003a, t01=0x00ac}
0x5b52…5b5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x00c8}
0x5b5e…5b6c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x00d4}
0x5b6c…5b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e2}
0x5b76…5b84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00ec}
0x5b84…5b8c Head {h00=0x0004, h01=0x0000, t00=0x003a, t01=0x00fa}
0x5b8c…5ba0 Head {h00=0x0010, h01=0x000b, text=»RESTIX PROC «, t00=0x003a, t01=0x0102}
0x5ba0…5bd6 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x003a, t01=0x0116}
0x5bd6…5be0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x003a, t01=0x014c}
0x5be0…5bea Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x003a, t01=0x0156}
0x5bea…5c20 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x003a, t01=0x0160}
0x5c20…5c28 Head {h00=0x0004, h01=0x0001, t00=0x003b, t01=0x0008}
0x5c28…5c54 Head {h00=0x0028, h01=0x0023, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x003b, t01=0x0010}
0x5c54…5c70 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,=W'47' «, t00=0x003b, t01=0x003c}
0x5c70…5c9e Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,=W'48' GSWBIN3 = GROUP NO«, t00=0x003b, t01=0x0058}
0x5c9e…5cc2 Head {h00=0x0020, h01=0x0050, text=» SUB CIXFREE,CBIN1 LAST USED«, t00=0x003b, t01=0x0086}
0x5cc2…5cf0 Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN4,CIXFREE,RIX090 LAST USED «, t00=0x003b, t01=0x00aa}
0x5cf0…5d16 Head {h00=0x0022, h01=0x0050, text=» ADD CIXFREE,CBIN1 FIRST FREE «, t00=0x003b, t01=0x00d8}
0x5d16…5d4c Head {h00=0x0032, h01=0x002e, text=» CBE GSWBIN4,CIXLAST,RIX100 LAST RECORD ? JUMP«, t00=0x003b, t01=0x00fe}
0x5d4c…5d7a Head {h00=0x002a, h01=0x0025, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x003b, t01=0x0134}
0x5d7a…5d96 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBIN5,=W'48' «, t00=0x003b, t01=0x0162}
0x5d96…5db2 Head {h00=0x0018, h01=0x0014, text=» SUB GSWBIN5,GSWBIN4«, t00=0x003b, t01=0x017e}
0x5db2…5de0 Head {h00=0x002a, h01=0x0025, text=» BNE RIXOK FINISHIF NOT LAST IN GROUP «, t00=0x003c, t01=0x000a}
0x5de0…5e0a Head {h00=0x0026, h01=0x0021, text=» MOVE GSWBIN5,CBIN0 LAST IN GROUP «, t00=0x003c, t01=0x0038}
0x5e0a…5e32 Head {h00=0x0024, h01=0x0020, text=» MOVE GSWBCD7,=D'1' SET SIGN = +«, t00=0x003c, t01=0x0062}
0x5e32…5e70 Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET LAST NO «, t00=0x003c, t01=0x008a}
0x5e70…5e96 Head {h00=0x0022, h01=0x001e, text=» MOVE CIXINDX(GSWBIN3),GSWBCD7«, t00=0x003c, t01=0x00c8}
0x5e96…5ea6 Head {h00=0x000c, h01=0x0008, text=» B RIXOK«, t00=0x003c, t01=0x00ee}
0x5ea6…5eb4 Head {h00=0x000a, h01=0x0050, text=»RIX090«, t00=0x003c, t01=0x00fe}
0x5eb4…5eda Head {h00=0x0022, h01=0x0050, text=» ADD CIXFREE,CBIN1 FIRST FREE «, t00=0x003c, t01=0x010c}
0x5eda…5ee8 Head {h00=0x000a, h01=0x0006, text=»RIX100«, t00=0x003c, t01=0x0132}
0x5ee8…5f0a Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN3,CBIN0,RIX120 «, t00=0x003c, t01=0x0140}
0x5f0a…5f36 Head {h00=0x0028, h01=0x0024, text=» MOVE GSWBIN5,CBIN0 SET LAST USED NO«, t00=0x003c, t01=0x0162}
0x5f36…5f5e Head {h00=0x0024, h01=0x0020, text=» MOVE GSWBCD7,=D'1' SET SIGN = +«, t00=0x003c, t01=0x018e}
0x5f5e…5f90 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 «, t00=0x003d, t01=0x0026}
0x5f90…5fc8 Head {h00=0x0034, h01=0x002f, text=» MOVE CIXINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x003d, t01=0x0058}
0x5fc8…5fee Head {h00=0x0022, h01=0x001e, text=»RIX120 SET REMAINING INDICES«, t00=0x003d, t01=0x0090}
0x5fee…6010 Head {h00=0x001e, h01=0x0050, text=» CBG CIXLAST,CBIN0,RIX135 «, t00=0x003d, t01=0x00b6}
0x6010…601e Head {h00=0x000a, h01=0x0050, text=»RIX125«, t00=0x003d, t01=0x00d8}
0x601e…6038 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x003d, t01=0x00e6}
0x6038…6054 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x003d, t01=0x0100}
0x6054…608a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN5«, t00=0x003d, t01=0x011c}
0x608a…60bc Head {h00=0x002e, h01=0x002a, text=» CBE GTWBCD1,=D'10',RIX130 END OF DEVICE ?«, t00=0x003d, t01=0x0152}
0x60bc…60ec Head {h00=0x002c, h01=0x0050, text=» CBE GTWBCD1,=D'4',RIX155 FILE EXPANDED «, t00=0x003d, t01=0x0184}
0x60ec…60fe Head {h00=0x000e, h01=0x0050, text=» B RIX125 «, t00=0x003e, t01=0x0024}
0x60fe…610c Head {h00=0x000a, h01=0x0006, text=»RIX130«, t00=0x003e, t01=0x0036}
0x610c…6126 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN1«, t00=0x003e, t01=0x0044}
0x6126…615c Head {h00=0x0032, h01=0x0050, text=» MOVE CIXLAST,GSWBIN5 LAST ENTRY IN INDEX FILE«, t00=0x003e, t01=0x005e}
0x615c…616a Head {h00=0x000a, h01=0x0050, text=»RIX135«, t00=0x003e, t01=0x0094}
0x616a…6188 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,CIXLAST «, t00=0x003e, t01=0x00a2}
0x6188…61a4 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN5,=W'47' «, t00=0x003e, t01=0x00c0}
0x61a4…61ca Head {h00=0x0022, h01=0x0050, text=» DIV GSWBIN5,=W'48' LAST GROUP«, t00=0x003e, t01=0x00dc}
0x61ca…61d8 Head {h00=0x000a, h01=0x0006, text=»RIX140«, t00=0x003e, t01=0x0102}
0x61d8…61f2 Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN3,CBIN1«, t00=0x003e, t01=0x0110}
0x61f2…6214 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,GSWBIN5,RIXOK«, t00=0x003e, t01=0x012a}
0x6214…624a Head {h00=0x0032, h01=0x002d, text=» MOVE CIXINDX(GSWBIN3),=D'0' SET MASTER INDEX «, t00=0x003e, t01=0x014c}
0x624a…625c Head {h00=0x000e, h01=0x0009, text=» B RIX140 «, t00=0x003e, t01=0x0182}
0x625c…626a (63, 0, 400) Head {h00=0x000a, h01=0x0050, text=»RIX150«, t00=0x003f, t01=0x0004}
0x626a…6284 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x003f, t01=0x0012}
0x6284…6292 Head {h00=0x000a, h01=0x0050, text=»RIX155«, t00=0x003f, t01=0x002c}
0x6292…62bc Head {h00=0x0026, h01=0x0050, text=» MOVE CIXBUF,CBLANKS CLEAR BUFFER «, t00=0x003f, t01=0x003a}
0x62bc…62d8 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x003f, t01=0x0064}
0x62d8…6314 Head {h00=0x0038, h01=0x0050, text=» XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN5,GSWBIN1 SET INDEX «, t00=0x003f, t01=0x0080}
0x6314…6342 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN5«, t00=0x003f, t01=0x00bc}
0x6342…6356 Head {h00=0x0010, h01=0x0050, text=» BOK RIX150 «, t00=0x003f, t01=0x00ea}
0x6356…6368 Head {h00=0x000e, h01=0x0050, text=» B RIX130 «, t00=0x003f, t01=0x00fe}
0x6368…6376 Head {h00=0x000a, h01=0x0005, text=»RIXOK «, t00=0x003f, t01=0x0110}
0x6376…6382 Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x003f, t01=0x011e}
0x6382…6390 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x003f, t01=0x012a}
0x6390…6398 Head {h00=0x0004, h01=0x0000, t00=0x003f, t01=0x0138}
0x6398…63a0 Head {h00=0x0004, h01=0x0000, t00=0x003f, t01=0x0140}
0x63a0…63ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0148}
0x63ae…63b6 Head {h00=0x0004, h01=0x0000, t00=0x003f, t01=0x0156}
0x63b6…63ca Head {h00=0x0010, h01=0x000b, text=»INITIX PROC «, t00=0x003f, t01=0x015e}
0x63ca…63fa Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x003f, t01=0x0172}
0x63fa…6404 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x0012}
0x6404…6426 Head {h00=0x001e, h01=0x0050, text=»* SET UP INDEXFILE 1. TIME«, t00=0x0040, t01=0x001c}
0x6426…6454 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF SYSTEM DEFINED ENTRIES «, t00=0x0040, t01=0x003e}
0x6454…6480 Head {h00=0x0028, h01=0x0050, text=»* ARE PRESENT, ELSE INSERT THEM «, t00=0x0040, t01=0x006c}
0x6480…648a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x0098}
0x648a…64bc Head {h00=0x002e, h01=0x0050, text=»* NEXT 15 RECORDS, LEV 1-15, POINTS TO«, t00=0x0040, t01=0x00a2}
0x64bc…64ea Head {h00=0x002a, h01=0x0050, text=»* DIFFERENT SYSTEM DEFINED LISTS, «, t00=0x0040, t01=0x00d4}
0x64ea…6506 Head {h00=0x0018, h01=0x0050, text=»* (PRINT LISTS) «, t00=0x0040, t01=0x0102}
0x6506…6510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x011e}
0x6510…6540 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0040, t01=0x0128}
0x6540…6548 Head {h00=0x0004, h01=0x0000, t00=0x0040, t01=0x0158}
0x6548…6570 Head {h00=0x0024, h01=0x0050, text=» MOVE GTLEVNR,=D'1' LEV NO. ZERO«, t00=0x0040, t01=0x0160}
0x6570…659c Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0040, t01=0x0188}
0x659c…65ba Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0041, t01=0x0024}
0x65ba…65d4 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0041, t01=0x0042}
0x65d4…65f4 Head {h00=0x001c, h01=0x0050, text=» BERR INITNOK DISK ERROR«, t00=0x0041, t01=0x005c}
0x65f4…661e Head {h00=0x0026, h01=0x0050, text=» BNOK INIT100 NOT FOUND, INITIATE «, t00=0x0041, t01=0x007c}
0x661e…6630 Head {h00=0x000e, h01=0x0050, text=» B INITOK «, t00=0x0041, t01=0x00a6}
0x6630…663a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b8}
0x663a…664a Head {h00=0x000c, h01=0x0050, text=»INIT100 «, t00=0x0041, t01=0x00c2}
0x664a…6676 Head {h00=0x0028, h01=0x0050, text=»* INSERT SYSTEM DEFINED ENTRIES «, t00=0x0041, t01=0x00d2}
0x6676…6698 Head {h00=0x001e, h01=0x0050, text=» CBG GTLEVNR,=D'15',INITOK«, t00=0x0041, t01=0x00fe}
0x6698…66ac Head {h00=0x0010, h01=0x0050, text=» PERF IDXINS«, t00=0x0041, t01=0x0120}
0x66ac…66c2 Head {h00=0x0012, h01=0x0050, text=» BNOK INIT200 «, t00=0x0041, t01=0x0134}
0x66c2…66d6 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0041, t01=0x014a}
0x66d6…66f0 Head {h00=0x0016, h01=0x0050, text=» BOK INIT150 FOUND«, t00=0x0041, t01=0x015e}
0x66f0…6704 Head {h00=0x0010, h01=0x0050, text=» PERF LEVINT«, t00=0x0041, t01=0x0178}
0x6704…6718 Head {h00=0x0010, h01=0x0050, text=» PERF LEVWRT«, t00=0x0041, t01=0x018c}
0x6718…672c Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0042, t01=0x0010}
0x672c…6740 Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0042, t01=0x0024}
0x6740…6756 Head {h00=0x0012, h01=0x0050, text=» BNOK INIT200 «, t00=0x0042, t01=0x0038}
0x6756…6766 Head {h00=0x000c, h01=0x0050, text=»INIT150 «, t00=0x0042, t01=0x004e}
0x6766…6780 Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'1'«, t00=0x0042, t01=0x005e}
0x6780…6792 Head {h00=0x000e, h01=0x0050, text=» B INIT100«, t00=0x0042, t01=0x0078}
0x6792…679c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x008a}
0x679c…67ac Head {h00=0x000c, h01=0x0050, text=»INIT200 «, t00=0x0042, t01=0x0094}
0x67ac…67c0 Head {h00=0x0010, h01=0x0050, text=» PERF IDXDEL«, t00=0x0042, t01=0x00a4}
0x67c0…67d2 Head {h00=0x000e, h01=0x0050, text=» B INIT150«, t00=0x0042, t01=0x00b8}
0x67d2…67dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ca}
0x67dc…67ec Head {h00=0x000c, h01=0x0050, text=»INITNOK «, t00=0x0042, t01=0x00d4}
0x67ec…6808 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0042, t01=0x00e4}
0x6808…6814 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0042, t01=0x0100}
0x6814…681e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010c}
0x681e…682c Head {h00=0x000a, h01=0x0050, text=»INITOK«, t00=0x0042, t01=0x0116}
0x682c…685a Head {h00=0x002a, h01=0x0050, text=»* INIT TRANSFILE IE LOOP THROUGH FILE «, t00=0x0042, t01=0x0124}
0x685a…6884 Head {h00=0x0026, h01=0x0050, text=»* AND SET ALL RECORDS ON FREE LIST«, t00=0x0042, t01=0x0152}
0x6884…68a0 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0042, t01=0x017c}
0x68a0…68ac Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0043, t01=0x0008}
0x68ac…68ba Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0043, t01=0x0014}
0x68ba…68c2 Head {h00=0x0004, h01=0x0000, t00=0x0043, t01=0x0022}
0x68c2…68d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x002a}
0x68d0…68da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0038}
0x68da…68ee Head {h00=0x0010, h01=0x0050, text=»GETNXT PROC «, t00=0x0043, t01=0x0042}
0x68ee…6918 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0043, t01=0x0056}
0x6918…6922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0080}
0x6922…6950 Head {h00=0x002a, h01=0x0050, text=»* GET LEVNR FOR LEV FOLLOWING GTLEVNR «, t00=0x0043, t01=0x008a}
0x6950…695a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b8}
0x695a…6984 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0043, t01=0x00c2}
0x6984…69b0 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0043, t01=0x00ec}
0x69b0…69c6 Head {h00=0x0012, h01=0x0050, text=» BERR GNXTNOK «, t00=0x0043, t01=0x0118}
0x69c6…69da Head {h00=0x0010, h01=0x0050, text=» BOK GNXT100«, t00=0x0043, t01=0x012e}
0x69da…69fe Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,CBIN1 NOT FOUND«, t00=0x0043, t01=0x0142}
0x69fe…6a0e Head {h00=0x000c, h01=0x0050, text=»GNXT100 «, t00=0x0043, t01=0x0166}
0x6a0e…6a2a Head {h00=0x0018, h01=0x0050, text=» TBF CIDXFLG,GNXT110«, t00=0x0043, t01=0x0176}
0x6a2a…6a3e (68, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DELAY CBIN2«, t00=0x0044, t01=0x0004}
0x6a3e…6a50 Head {h00=0x000e, h01=0x0050, text=» B GNXT100«, t00=0x0044, t01=0x0018}
0x6a50…6a60 Head {h00=0x000c, h01=0x0050, text=»GNXT110 «, t00=0x0044, t01=0x002a}
0x6a60…6a74 Head {h00=0x0010, h01=0x0050, text=» SET CIDXFLG«, t00=0x0044, t01=0x003a}
0x6a74…6a8e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0044, t01=0x004e}
0x6a8e…6ab4 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,GNXTNOK «, t00=0x0044, t01=0x0068}
0x6ab4…6ad0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0044, t01=0x008e}
0x6ad0…6aec Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x0044, t01=0x00aa}
0x6aec…6b22 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x0044, t01=0x00c6}
0x6b22…6b38 Head {h00=0x0012, h01=0x0050, text=» BNOK GNXTNOK «, t00=0x0044, t01=0x00fc}
0x6b38…6b54 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x0044, t01=0x0112}
0x6b54…6b88 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'1',=W'5',CIXBUF,=W'0' «, t00=0x0044, t01=0x012e}
0x6b88…6b9e Head {h00=0x0012, h01=0x0050, text=» CLEAR CIDXFLG«, t00=0x0044, t01=0x0162}
0x6b9e…6bb6 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0044, t01=0x0178}
0x6bb6…6bc2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0044, t01=0x0190}
0x6bc2…6bd2 Head {h00=0x000c, h01=0x0050, text=»GNXTNOK «, t00=0x0045, t01=0x000c}
0x6bd2…6be8 Head {h00=0x0012, h01=0x0050, text=» CLEAR CIDXFLG«, t00=0x0045, t01=0x001c}
0x6be8…6c00 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0045, t01=0x0032}
0x6c00…6c0c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0045, t01=0x004a}
0x6c0c…6c1a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0045, t01=0x0056}
0x6c1a…6c28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0064}
0x6c28…6c3c Head {h00=0x0010, h01=0x0050, text=»CHDATO PROC «, t00=0x0045, t01=0x0072}
0x6c3c…6c4e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x0086}
0x6c4e…6c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0098}
0x6c58…6c82 Head {h00=0x0026, h01=0x0050, text=»* CHANGES GSWBCD6 (DDMMYY) TO«, t00=0x0045, t01=0x00a2}
0x6c82…6ca2 Head {h00=0x001c, h01=0x0050, text=»* GSWBCD7 (YYMMDD) «, t00=0x0045, t01=0x00cc}
0x6ca2…6cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ec}
0x6cac…6cbe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0045, t01=0x00f6}
0x6cbe…6ce2 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x0045, t01=0x0108}
0x6ce2…6d16 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4'«, t00=0x0045, t01=0x012c}
0x6d16…6d4a Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5'«, t00=0x0045, t01=0x0160}
0x6d4a…6d7e (70, 0, 400) Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6'«, t00=0x0046, t01=0x0004}
0x6d7e…6d8a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0046, t01=0x0038}
0x6d8a…6d98 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0046, t01=0x0044}
0x6d98…6da6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0052}
0x6da6…6db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0060}
0x6db0…6de0 Head {h00=0x002c, h01=0x0050, text=»XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT «, t00=0x0046, t01=0x006a}
0x6de0…6df4 Head {h00=0x0010, h01=0x0050, text=» PLIT $TOPNT«, t00=0x0046, t01=0x009a}
0x6df4…6e08 Head {h00=0x0010, h01=0x0050, text=» PLIT $SIZE «, t00=0x0046, t01=0x00ae}
0x6e08…6e1e Head {h00=0x0012, h01=0x0050, text=» PLIT $FROMPNT«, t00=0x0046, t01=0x00c2}
0x6e1e…6e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d8}
0x6e28…6e46 Head {h00=0x001a, h01=0x0050, text=»* FUNCTION XCOPY:«, t00=0x0046, t01=0x00e2}
0x6e46…6e8a Head {h00=0x0040, h01=0x0050, text=»* THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT,«, t00=0x0046, t01=0x0100}
0x6e8a…6ec8 Head {h00=0x003a, h01=0x0050, text=»* TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES«, t00=0x0046, t01=0x0144}
0x6ec8…6ee6 Head {h00=0x001a, h01=0x0050, text=»* COPIED IS $SIZE «, t00=0x0046, t01=0x0182}
0x6ee6…6ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0010}
0x6ef0…6f26 Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD «, t00=0x0047, t01=0x001a}
0x6f26…6f48 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,$SIZE LENGTH«, t00=0x0047, t01=0x0050}
0x6f48…6f7e Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD «, t00=0x0047, t01=0x0072}
0x6f7e…6fac Head {h00=0x002a, h01=0x0050, text=» XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5«, t00=0x0047, t01=0x00a8}
0x6fac…6fb8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0047, t01=0x00d6}
0x6fb8…6fc6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0047, t01=0x00e2}
0x6fc6…6fce Head {h00=0x0004, h01=0x0000, t00=0x0047, t01=0x00f0}
0x6fce…6fdc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00f8}
0x6fdc…7004 Head {h00=0x0024, h01=0x0050, text=»FLEVPRT FRMT PRINT OF LEVERAND.«, t00=0x0047, t01=0x0106}
0x7004…7010 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x012e}
0x7010…7024 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x0047, t01=0x013a}
0x7024…7048 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',CMASKDAT «, t00=0x0047, t01=0x014e}
0x7048…705c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0047, t01=0x0172}
0x705c…707e Head {h00=0x001e, h01=0x0050, text=» FMEL '9999999999',GTLEVNR«, t00=0x0047, t01=0x0186}
0x707e…7094 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x0048, t01=0x0018}
0x7094…70b8 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',GTLEVDAT «, t00=0x0048, t01=0x002e}
0x70b8…70c4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x0052}
0x70c4…70da Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0048, t01=0x005e}
0x70da…70f2 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVNVN «, t00=0x0048, t01=0x0074}
0x70f2…70fe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x008c}
0x70fe…7114 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0048, t01=0x0098}
0x7114…712c Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVADR «, t00=0x0048, t01=0x00ae}
0x712c…7138 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00c6}
0x7138…714e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0048, t01=0x00d2}
0x714e…7164 Head {h00=0x0012, h01=0x0050, text=» FCOPY GTLEVBY«, t00=0x0048, t01=0x00e8}
0x7164…7170 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x00fe}
0x7170…7186 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0048, t01=0x010a}
0x7186…71a4 Head {h00=0x001a, h01=0x0050, text=» FMEL '9999',GTLEVPNR «, t00=0x0048, t01=0x0120}
0x71a4…71b8 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0048, t01=0x013e}
0x71b8…71d0 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVPDI «, t00=0x0048, t01=0x0152}
0x71d0…71dc Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0048, t01=0x016a}
0x71dc…71f2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0048, t01=0x0176}
0x71f2…720c Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GTLEVBFO«, t00=0x0048, t01=0x018c}
0x720c…7220 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0049, t01=0x0016}
0x7220…7240 Head {h00=0x001c, h01=0x0050, text=» FMEL 'XXXXXXX',GTLEVGI «, t00=0x0049, t01=0x002a}
0x7240…7254 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0049, t01=0x004a}
0x7254…7278 Head {h00=0x0020, h01=0x0050, text=» FMEL 'XXXXXXXXXX',GTLEVALT «, t00=0x0049, t01=0x005e}
0x7278…7284 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x0082}
0x7284…7290 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x008e}
0x7290…72ac Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,FLEV190«, t00=0x0049, t01=0x009a}
0x72ac…72b8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x00b6}
0x72b8…72ce Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0049, t01=0x00c2}
0x72ce…72f8 Head {h00=0x0026, h01=0x0050, text=» FMEL '99E-99E-99',GTREGF(CBIN10) «, t00=0x0049, t01=0x00d8}
0x72f8…7328 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN11)«, t00=0x0049, t01=0x0102}
0x7328…7334 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x0132}
0x7334…734a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',26 «, t00=0x0049, t01=0x013e}
0x734a…737a Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN12)«, t00=0x0049, t01=0x0154}
0x737a…7386 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0049, t01=0x0184}
0x7386…739c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x0049, t01=0x0190}
0x739c…73c6 Head {h00=0x0026, h01=0x0050, text=» FMEL '99E-99E-99',GTREGF(CBIN13) «, t00=0x004a, t01=0x0016}
0x73c6…73da Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x004a, t01=0x0040}
0x73da…740a Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN14)«, t00=0x004a, t01=0x0054}
0x740a…7416 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x0084}
0x7416…742c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',34 «, t00=0x004a, t01=0x0090}
0x742c…745c Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN15)«, t00=0x004a, t01=0x00a6}
0x745c…7468 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x00d6}
0x7468…747e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',34 «, t00=0x004a, t01=0x00e2}
0x747e…74ae Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN16)«, t00=0x004a, t01=0x00f8}
0x74ae…74ba Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x0128}
0x74ba…74c6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x0134}
0x74c6…74d2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x0140}
0x74d2…74de Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004a, t01=0x014c}
0x74de…74f2 Head {h00=0x0010, h01=0x0050, text=» FB FLEV200 «, t00=0x004a, t01=0x0158}
0x74f2…7502 Head {h00=0x000c, h01=0x0050, text=»FLEV190 «, t00=0x004a, t01=0x016c}
0x7502…7520 Head {h00=0x001a, h01=0x0050, text=» FBT GTSWFLAG,FLEV200 «, t00=0x004a, t01=0x017c}
0x7520…752c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004b, t01=0x000a}
0x752c…753c Head {h00=0x000c, h01=0x0050, text=»FLEV200 «, t00=0x004b, t01=0x0016}
0x753c…754a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004b, t01=0x0026}
0x754a…7554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0034}
0x7554…755e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x003e}
0x755e…7568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0048}
0x7568…757a Head {h00=0x000e, h01=0x0050, text=»FFEED FRMT«, t00=0x004b, t01=0x0052}
0x757a…758e Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x004b, t01=0x0064}
0x758e…759c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x004b, t01=0x0078}
0x759c…75a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0086}
0x75a6…75b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0090}
0x75b0…75ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x009a}
0x75ba…75c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a4}
0x75c4…75d0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004b, t01=0x00ae}
0x75d0…75d4 Head {h00=0x4004, h01=0x0000}
0x75d4…75d8 00 4b 00 ba ┆ K ┆
0x75d8…75e0 (76, 1, 8) 20 04 00 00 00 4c 00 04 ┆ L ┆