|
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: 33360 (0x8250)
Notes: pts_type(SC)
Names: »REMLEV.SC«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/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 VARRD ENTRY VARWRT ENTRY GETNXT ENTRY IDXGET ENTRY LEVDEL ENTRY SETIDX ENTRY LEVSPG ENTRY LEVPRT ENTRY CHDATO ENTRY LEVIN ENTRY XCOP EXT FMTREM EXT SPCLRA EXT SPCLRN EXT RAREAD EXT RAWRIT EXT RADEL EXT SETKEY EXT SPERR EXT SPLIN8 EXT CLEAR8 EXT TRREAD EXT TXTRD EXT KBTEST EXT TRINIT EXT REPL00 EXT WAITF EXT BDTDEL INCLUDE EQUATE EJECT LEVIN PROC * * THE PROCEDURE GETS A LEVERANDOR FROM KBAN * LEVIN00 MOVE SPKEY,CBIN2 MOVE GSWSTR9,='STRAKSLEV' MOVE GTLEVNR,GTREGF(CBIN2) CLEAR GTSPGFLG CLEAR GTDYFLG CLEAR GTSWFLAG SET SPPROMPT PERF FMTREM,CBIN3 PERF SPCLRA IB SPBINW2,LEVIN95,LEVIN95,LEVIN10 B LEVIN00 LEVIN10 PERF SETKEY MOVE GSWBIN7,=W'30' PERF REPL00,GTLEVNVN,GSWBIN7 MOVE GSWBIN7,=W'32' PERF REPL00,GTLEVADR,GSWBIN7 PERF REPL00,GTLEVBY,CBIN20 PERF REPL00,GTLEVPDI,CBIN13 CMP CBIN0,CBIN0 B LEVIN99 LEVIN95 PERF SETKEY CMP CBIN0,CBIN1 LEVIN99 RET PEND 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 CBL GTLEVNR,=D'19',OPR000 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'1',OPR040 OK MOVE SPBINW4,CBIN5 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 CBL GTLEVNR,=D'19',DELNOK DONT DELETE SYSTEMLEV'S 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,DEL020 ANY TRANS REFERENCE ? CLEAR GTSWFLAG NO B DEL030 DEL020 CBNE GTREGF(CBIN16),=D'0',DEL030 PERF BDTDEL ALLOWED WHEN ZERO-AMOUNT CLEAR GTSWFLAG DEL030 CLEAR GTDYFLG SET GTSPGFLG PERF FMTREM,CBIN3 PERF SPCLRN CLEAR GTSPGFLG IB SPBINW2,DEL000,DEL000,DEL050 B DEL030 DEL050 TBT GTSWFLAG,DELOK F=NO TRANSACTIONS 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 * ********** * PERF WAITF,CLEVFLG 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' MOVE GSWBIN7,=W'30' PERF REPL00,GTLEVNVN,GSWBIN7 MOVE GSWBIN7,=W'32' PERF REPL00,GTLEVADR,GSWBIN7 PERF REPL00,GTLEVBY,CBIN20 PERF REPL00,GTLEVPDI,CBIN13 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' * 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 * ********** * PERF WAITF,CLEVFLG * 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 * 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 TBF GTCYFLG,LSPG005 I CYKEL/STABEL ? TBT GTBDTFLG,LSPG003 YES, BUNDT ? TBF GTSTRFLG,LSPG005 STRAKS ? LSPG003 MOVE GTLEVNR,GTDUPF(CBIN2) CYKEL/STABEL,STRAKS/BUNDT B LSPG010 LSPG005 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 MOVE GSWBIN8,GTTRKEY POINTER TO FIRST TRANS LSPG205 CLEAR GTSWFLAG PERF TRREAD,GSWBIN8 BNOK LSPG500 MOVE GSWBIN8,GTDUPF(CBIN15) MOVE TEXTNR CBE GSWBIN8,CBIN0,LSPG210 PERF TXTRD,GSWBIN8 AND READ IT B LSPG210 DISPLAY CONTENTS LSPG210 PERF FMTREM,CBIN5 PERF SPCLRN IB SPBINW2,LSPG500,LSPG500,LSPG300 B LSPG210 LSPG300 MOVE GSWBIN8,GTDUPF(CBIN22) CBE GSWBIN8,CBIN0,LSPG500 TRANS' EXHAUSTED ? B LSPG205 NO, GET NEXT LSPG500 TBF GTCYFLG,LSPG510 TBT GTBDTFLG,LSPGOK TBT GTSTRFLG,LSPGOK LSPG510 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 CLEAR GTZERO PERF SPCLRA CBNE SPBINW2,CBIN3,LPRTRET NOT <SLUT>? CBNE GTLEVNR,=D'1',LPRT015 SET GTZERO LPRT015 CBNL GTPRTFRA,=D'1',LPRT020 MOVE GTPRTFRA,=D'15' FIRST LEV - 1 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 LPRT049 PERF GETNXT BNOK LPRTRET LPRT050 CBG GTLEVNR,GTPRTTIL,LPRTRET PERF LEVRD BNOK LPRT110 NOT FOUND MOVE GSWBCD6,GTLEVDAT GTLEVDAT: DDMMYY PERF CHDATO GSWBCD7: YYMMDD CBL GSWBCD7,GTPRTDAT,LPRT100 TBF GTDYFLG,LPRT080 PERF VARRD BNOK LPRT110 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 TBF GTDYFLG,LPRT110 TBF GTZERO,LPRT110 MOVE GTREGF(CBIN12),=D'0' PERF VARWRT REWRITE WITH SALE YTD = 0 BNOK LPRTRET LPRT110 PERF KBTEST BOK LPRTRET MAK KEY B LPRT049 LPRTRET RET PEND EJECT * VARRD PROC ********** * * READ AND UNPACK VARIABLE INFORMATION * FOR LEVERAND NR GTLEVNR * ********** * PERF WAITF,CVARFLG 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 * ********** * PERF WAITF,CVARFLG * 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 * 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,CBIN0 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 CBL CIXINDX(GSWBIN5),=D'1',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' PERF WAITF,CIDXFLG * FIND INDEX, USING BINARY SEARCH IGET100 INITIATE BINARY SEARCH MOVE GTSCHLOW,CBIN1 LOWER LIMIT- GTSCHLOW MOVE GTSCHHGH,=W'48' UPPER LIMIT - GTSCHHGH IGET110 CBL GTSCHHGH,GTSCHLOW,IGETNOK1 UPPER<LOWER, NOT FOUND MOVE GTSCHMID,GTSCHLOW INDEX=LOWER ADD GTSCHMID,GTSCHHGH ADD UPPER DIV GTSCHMID,CBIN2 FIND MIDPOINT * READ LEV INFO, TO GSWBCD7 ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER 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 CBNE GSWBCD7,=D'2020202020',IGET115 FNISHED? MOVE GSWBCD7,=D'9999999999' SET HIGHVALUE IGET115 SUB GSWBIN4,GTSCHMID GSWBIN4= START OF SECTOR CMP GSWBCD7,LEVNR BE IGET200 FOUND BL IGET130 LOOK DOWN BG IGET120 LOOK UP IGET120 MOVE GTSCHHGH,GTSCHMID MOVE MIDPOINT TO UPPER SUB GTSCHHGH,CBIN1 -1 B IGET110 IGET130 MOVE GTSCHLOW,GTSCHMID MOVE MIDPOINT TO LOWER ADD GTSCHLOW,CBIN1 +1 B IGET110 IGET200 FOUND ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER 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 ADD GSWBIN4,GTSCHLOW RECORD NUMBER FOR INSERT 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 PERF WAITF,CIDXFLG CBG CIXFREE,CIXLAST,XINSNOK NO ROOM 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,CBIN7 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 MOVE GTWBCD2,GSWBIN4 PERF SPLIN8,CBIN10,CBIN3 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 GTWBCD2,GSWBIN4 PERF SPLIN8,CBIN10,CBIN3 MOVE GSWBIN5,CBIN7 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 CLEAR8 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 PERF WAITF,CIDXFLG 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 SUB GSWBIN4,CBIN1 MOVE GSWBIN1,CBIN7 PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4 BNOK XDELNOK * LAST USED HAS BEEN READ 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',INIT300 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 * INIT300 * INIT TRANSFILE IE LOOP THROUGH FILE * AND SET ALL RECORDS ON FREE LIST INITOK PERF TRINIT BNOK INITNOK 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 PERF WAITF,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 * 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…0082 Head {h00=0x0010, h01=0x0050, text=» ENTRY VARRD«, t00=0x0000, t01=0x0072}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY VARWRT «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY GETNXT «, 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 LEVDEL «, t00=0x0000, t01=0x00c8}
0x00da…00f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETIDX «, t00=0x0000, t01=0x00de}
0x00f0…0106 Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVSPG «, t00=0x0000, t01=0x00f4}
0x0106…011c Head {h00=0x0012, h01=0x0050, text=» ENTRY LEVPRT «, t00=0x0000, t01=0x010a}
0x011c…0132 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHDATO «, t00=0x0000, t01=0x0120}
0x0132…0146 Head {h00=0x0010, h01=0x0050, text=» ENTRY LEVIN«, t00=0x0000, t01=0x0136}
0x0146…015a Head {h00=0x0010, h01=0x0050, text=» ENTRY XCOP «, t00=0x0000, t01=0x014a}
0x015a…016e Head {h00=0x0010, h01=0x0050, text=» EXT FMTREM «, t00=0x0000, t01=0x015e}
0x016e…0182 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x0172}
0x0182…0196 Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRN «, t00=0x0000, t01=0x0186}
0x0196…01aa Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x000a}
0x01aa…01be Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0001, t01=0x001e}
0x01be…01d0 Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x0032}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» EXT SETKEY «, t00=0x0001, t01=0x0044}
0x01e4…01f6 Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x0058}
0x01f6…020a Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0001, t01=0x006a}
0x020a…021e Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0001, t01=0x007e}
0x021e…0232 Head {h00=0x0010, h01=0x0050, text=» EXT TRREAD «, t00=0x0001, t01=0x0092}
0x0232…0244 Head {h00=0x000e, h01=0x0050, text=» EXT TXTRD«, t00=0x0001, t01=0x00a6}
0x0244…0258 Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0001, t01=0x00b8}
0x0258…026c Head {h00=0x0010, h01=0x0050, text=» EXT TRINIT «, t00=0x0001, t01=0x00cc}
0x026c…0280 Head {h00=0x0010, h01=0x0050, text=» EXT REPL00 «, t00=0x0001, t01=0x00e0}
0x0280…0292 Head {h00=0x000e, h01=0x0050, text=» EXT WAITF«, t00=0x0001, t01=0x00f4}
0x0292…02a6 Head {h00=0x0010, h01=0x0050, text=» EXT BDTDEL «, t00=0x0001, t01=0x0106}
0x02a6…02be Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x011a}
0x02be…02cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0132}
0x02cc…02de Head {h00=0x000e, h01=0x0050, text=»LEVIN PROC«, t00=0x0001, t01=0x0140}
0x02de…02e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0152}
0x02e8…031c Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE GETS A LEVERANDOR FROM KBAN «, t00=0x0001, t01=0x015c}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0336 Head {h00=0x000c, h01=0x0050, text=»LEVIN00 «, t00=0x0002, t01=0x000a}
0x0336…0350 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x001a}
0x0350…0372 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='STRAKSLEV'«, t00=0x0002, t01=0x0034}
0x0372…0396 Head {h00=0x0020, h01=0x0050, text=» MOVE GTLEVNR,GTREGF(CBIN2) «, t00=0x0002, t01=0x0056}
0x0396…03ae Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSPGFLG «, t00=0x0002, t01=0x007a}
0x03ae…03c4 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0002, t01=0x0092}
0x03c4…03dc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0002, t01=0x00a8}
0x03dc…03f2 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x00c0}
0x03f2…040c Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0002, t01=0x00d6}
0x040c…0420 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0002, t01=0x00f0}
0x0420…044c Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LEVIN95,LEVIN95,LEVIN10 «, t00=0x0002, t01=0x0104}
0x044c…045e Head {h00=0x000e, h01=0x0050, text=» B LEVIN00«, t00=0x0002, t01=0x0130}
0x045e…046e Head {h00=0x000c, h01=0x0050, text=»LEVIN10 «, t00=0x0002, t01=0x0142}
0x046e…0482 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0002, t01=0x0152}
0x0482…049e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'30'«, t00=0x0002, t01=0x0166}
0x049e…04c4 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVNVN,GSWBIN7 «, t00=0x0002, t01=0x0182}
0x04c4…04e0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'32'«, t00=0x0003, t01=0x0018}
0x04e0…0506 Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVADR,GSWBIN7 «, t00=0x0003, t01=0x0034}
0x0506…052a Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVBY,CBIN20 «, t00=0x0003, t01=0x005a}
0x052a…054e Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVPDI,CBIN13«, t00=0x0003, t01=0x007e}
0x054e…0566 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0003, t01=0x00a2}
0x0566…0578 Head {h00=0x000e, h01=0x0050, text=» B LEVIN99«, t00=0x0003, t01=0x00ba}
0x0578…0588 Head {h00=0x000c, h01=0x0050, text=»LEVIN95 «, t00=0x0003, t01=0x00cc}
0x0588…059c Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0003, t01=0x00dc}
0x059c…05b4 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0003, t01=0x00f0}
0x05b4…05c4 Head {h00=0x000c, h01=0x0050, text=»LEVIN99 «, t00=0x0003, t01=0x0108}
0x05c4…05d0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0118}
0x05d0…05de Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0124}
0x05de…05ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0132}
0x05ec…0600 Head {h00=0x0010, h01=0x0050, text=»LEVOPR PROC «, t00=0x0003, t01=0x0140}
0x0600…0630 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0003, t01=0x0154}
0x0630…063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0184}
0x063a…0668 Head {h00=0x002a, h01=0x0050, text=»* THE PROCEDURE CREATES A LEVERAND R. «, t00=0x0003, t01=0x018e}
0x0668…0696 Head {h00=0x002a, h01=0x0050, text=»* ALL DISKFILES CONCERNED ARE UPDATED,«, t00=0x0004, t01=0x002c}
0x0696…06c4 Head {h00=0x002a, h01=0x0050, text=»* AS WELL AS THE MASTERINDEX IN CORE. «, t00=0x0004, t01=0x005a}
0x06c4…06ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0088}
0x06ce…0700 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0092}
0x0700…070e Head {h00=0x000a, h01=0x0050, text=»OPR000«, t00=0x0004, t01=0x00c4}
0x070e…0728 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0004, t01=0x00d2}
0x0728…0758 Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVDAT,CMASKDAT SET CURRENT DATE«, t00=0x0004, t01=0x00ec}
0x0758…077c Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'VEDLIGEH.' «, t00=0x0004, t01=0x011c}
0x077c…0792 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0004, t01=0x0140}
0x0792…07ae Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG 1. TIME«, t00=0x0004, t01=0x0156}
0x07ae…07d6 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0004, t01=0x0172}
0x07d6…07fa Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0005, t01=0x000a}
0x07fa…0820 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,OPROK,OPROK,OPR010«, t00=0x0005, t01=0x002e}
0x0820…0832 Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0005, t01=0x0054}
0x0832…0852 Head {h00=0x001c, h01=0x0050, text=»OPR010 LOOK FOR NUMBER«, t00=0x0005, t01=0x0066}
0x0852…087e Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0005, t01=0x0086}
0x087e…089a Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 - LEVINDX«, t00=0x0005, t01=0x00b2}
0x089a…08b4 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x0005, t01=0x00ce}
0x08b4…08d2 Head {h00=0x001a, h01=0x0050, text=» BERR OPRNOK DISKERROR«, t00=0x0005, t01=0x00e8}
0x08d2…08f0 Head {h00=0x001a, h01=0x0050, text=» BNOK OPR020 NOT FOUND«, t00=0x0005, t01=0x0106}
0x08f0…090a Head {h00=0x0016, h01=0x0050, text=» PERF LEVRD FOUND «, t00=0x0005, t01=0x0124}
0x090a…091e Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0005, t01=0x013e}
0x091e…0942 Head {h00=0x0020, h01=0x0050, text=»OPR015 FOUND, DISPLAY INFO«, t00=0x0005, t01=0x0152}
0x0942…095a Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0005, t01=0x0176}
0x095a…0970 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0005, t01=0x018e}
0x0970…098a Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0006, t01=0x0014}
0x098a…099e Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0006, t01=0x002e}
0x099e…09c6 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0006, t01=0x0042}
0x09c6…09d8 Head {h00=0x000e, h01=0x0050, text=» B OPR015 «, t00=0x0006, t01=0x006a}
0x09d8…0a02 Head {h00=0x0026, h01=0x0050, text=»OPR020 NOT FOUND, DISPLAY BLANKS«, t00=0x0006, t01=0x007c}
0x0a02…0a24 Head {h00=0x001e, h01=0x0050, text=» CBL GTLEVNR,=D'19',OPR000«, t00=0x0006, t01=0x00a6}
0x0a24…0a3c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0006, t01=0x00c8}
0x0a3c…0a52 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x0006, t01=0x00e0}
0x0a52…0a6c Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0006, t01=0x00f6}
0x0a6c…0a80 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0006, t01=0x0110}
0x0a80…0aa8 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,OPR000,OPR000,OPR030«, t00=0x0006, t01=0x0124}
0x0aa8…0aba Head {h00=0x000e, h01=0x0050, text=» B OPR020 «, t00=0x0006, t01=0x014c}
0x0aba…0ac2 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x015e}
0x0ac2…0aec Head {h00=0x0026, h01=0x0050, text=»OPR030 LEV INFO KEYED IN, INSERT«, t00=0x0006, t01=0x0166}
0x0aec…0b06 Head {h00=0x0016, h01=0x0050, text=»* FIELD CHECK «, t00=0x0006, t01=0x0190}
0x0b06…0b3c Head {h00=0x0032, h01=0x0050, text=»* IF BFO = 2,3,7,8 GIRONR MUST BE PRESENT«, t00=0x0007, t01=0x001a}
0x0b3c…0b5a Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GTLEVBFO«, t00=0x0007, t01=0x0050}
0x0b5a…0b72 Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN1, C «, t00=0x0007, t01=0x006e}
0x0b72…0ba2 Head {h00=0x002c, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040,OPR040, C«, t00=0x0007, t01=0x0086}
0x0ba2…0bc8 Head {h00=0x0022, h01=0x0050, text=» OPR040,OPR035,OPR035,OPR040 «, t00=0x0007, t01=0x00b6}
0x0bc8…0bda Head {h00=0x000e, h01=0x0050, text=» B OPR040 «, t00=0x0007, t01=0x00dc}
0x0bda…0be8 Head {h00=0x000a, h01=0x0050, text=»OPR035«, t00=0x0007, t01=0x00ee}
0x0be8…0c0c Head {h00=0x0020, h01=0x0050, text=» CBG GTLEVGI,=D'1',OPR040 OK«, t00=0x0007, t01=0x00fc}
0x0c0c…0c28 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN5 «, t00=0x0007, t01=0x0120}
0x0c28…0c40 Head {h00=0x0014, h01=0x0050, text=» PERF SPERR NOK «, t00=0x0007, t01=0x013c}
0x0c40…0c52 Head {h00=0x000e, h01=0x0050, text=» B OPR015 «, t00=0x0007, t01=0x0154}
0x0c52…0c60 Head {h00=0x000a, h01=0x0050, text=»OPR040«, t00=0x0007, t01=0x0166}
0x0c60…0c8c Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0007, t01=0x0174}
0x0c8c…0ca0 Head {h00=0x0010, h01=0x0050, text=» BERR OPROK «, t00=0x0008, t01=0x0010}
0x0ca0…0cb4 Head {h00=0x0010, h01=0x0050, text=» BNOK OPR050«, t00=0x0008, t01=0x0024}
0x0cb4…0cd0 Head {h00=0x0018, h01=0x0050, text=» ALREADY EXISTING «, t00=0x0008, t01=0x0038}
0x0cd0…0cf4 Head {h00=0x0020, h01=0x0050, text=» PERF LEVWRT WRITE STAM-INFO«, t00=0x0008, t01=0x0054}
0x0cf4…0d08 Head {h00=0x0010, h01=0x0050, text=» BNOK OPRNOK«, t00=0x0008, t01=0x0078}
0x0d08…0d1a Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0008, t01=0x008c}
0x0d1a…0d36 Head {h00=0x0018, h01=0x0050, text=»OPR050 CREATE NEW «, t00=0x0008, t01=0x009e}
0x0d36…0d5c Head {h00=0x0022, h01=0x0050, text=» PERF IDXINS INSERT NEW INDEX «, t00=0x0008, t01=0x00ba}
0x0d5c…0d70 Head {h00=0x0010, h01=0x0050, text=» BNOK OPR000«, t00=0x0008, t01=0x00e0}
0x0d70…0d84 Head {h00=0x0010, h01=0x0050, text=» PERF LEVWRT«, t00=0x0008, t01=0x00f4}
0x0d84…0d98 Head {h00=0x0010, h01=0x0050, text=» BNOK OPR070«, t00=0x0008, t01=0x0108}
0x0d98…0dac Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0008, t01=0x011c}
0x0dac…0dda Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT WRITE VAR-LEV-INFORMATION«, t00=0x0008, t01=0x0130}
0x0dda…0dee Head {h00=0x0010, h01=0x0050, text=» BNOK OPR070«, t00=0x0008, t01=0x015e}
0x0dee…0e10 Head {h00=0x001e, h01=0x0050, text=» B OPR000 NEW LEV INSERTED«, t00=0x0008, t01=0x0172}
0x0e10…0e18 (9, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0004}
0x0e18…0e38 Head {h00=0x001c, h01=0x0050, text=»OPR070 SOMETHING WRONG«, t00=0x0009, t01=0x000c}
0x0e38…0e68 Head {h00=0x002c, h01=0x0050, text=» PERF IDXDEL DELETE LEV-ENTRY COMPLETELY«, t00=0x0009, t01=0x002c}
0x0e68…0e7a Head {h00=0x000e, h01=0x0050, text=» B OPR000 «, t00=0x0009, t01=0x005c}
0x0e7a…0e88 Head {h00=0x000a, h01=0x0050, text=»OPRNOK«, t00=0x0009, t01=0x006e}
0x0e88…0e9c Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0009, t01=0x007c}
0x0e9c…0ebc Head {h00=0x001c, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT OK «, t00=0x0009, t01=0x0090}
0x0ebc…0ec8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00b0}
0x0ec8…0ed6 Head {h00=0x000a, h01=0x0050, text=»OPROK «, t00=0x0009, t01=0x00bc}
0x0ed6…0eea Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x0009, t01=0x00ca}
0x0eea…0f02 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0009, t01=0x00de}
0x0f02…0f0e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00f6}
0x0f0e…0f1c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0102}
0x0f1c…0f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0110}
0x0f2a…0f3e Head {h00=0x0010, h01=0x0050, text=»LEVDEL PROC «, t00=0x0009, t01=0x011e}
0x0f3e…0f58 Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0009, t01=0x0132}
0x0f58…0f66 Head {h00=0x000a, h01=0x0050, text=»DEL000«, t00=0x0009, t01=0x014c}
0x0f66…0f8a Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'SLETNING ' «, t00=0x0009, t01=0x015a}
0x0f8a…0fa0 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0009, t01=0x017e}
0x0fa0…0fbc (10, 0, 398) Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG 1. TIME«, t00=0x000a, t01=0x0004}
0x0fbc…0fe4 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x000a, t01=0x0020}
0x0fe4…1008 Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x000a, t01=0x0048}
0x1008…102e Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,DELOK,DELOK,DEL010«, t00=0x000a, t01=0x006c}
0x102e…1040 Head {h00=0x000e, h01=0x0050, text=» B DEL000 «, t00=0x000a, t01=0x0092}
0x1040…105c Head {h00=0x0018, h01=0x0050, text=»DEL010 LOOK FOR NO«, t00=0x000a, t01=0x00a4}
0x105c…1096 Head {h00=0x0036, h01=0x0050, text=» CBL GTLEVNR,=D'19',DELNOK DONT DELETE SYSTEMLEV'S«, t00=0x000a, t01=0x00c0}
0x1096…10c2 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x000a, t01=0x00fa}
0x10c2…10dc Head {h00=0x0016, h01=0x0050, text=» BERR DELNOK ERROR«, t00=0x000a, t01=0x0126}
0x10dc…10fa Head {h00=0x001a, h01=0x0050, text=» BNOK DEL000 NOT FOUND«, t00=0x000a, t01=0x0140}
0x10fa…110a Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x000a, t01=0x015e}
0x110a…112e Head {h00=0x0020, h01=0x0050, text=» CHECK IF DELETION ALLOWED«, t00=0x000a, t01=0x016e}
0x112e…1158 (11, 0, 400) Head {h00=0x0026, h01=0x0050, text=» I.E. REFERENCES TO TRANSFILE ? «, t00=0x000b, t01=0x0004}
0x1158…1176 Head {h00=0x001a, h01=0x0050, text=» OK, MAY BE DELETED «, t00=0x000b, t01=0x002e}
0x1176…1196 Head {h00=0x001c, h01=0x0050, text=» PERF LEVRD READ STAMOPL«, t00=0x000b, t01=0x004c}
0x1196…11c6 Head {h00=0x002c, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO TO CHECK «, t00=0x000b, t01=0x006c}
0x11c6…11e4 Head {h00=0x001a, h01=0x0050, text=» IF DELETION ALLOWED«, t00=0x000b, t01=0x009c}
0x11e4…11fa Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x000b, t01=0x00ba}
0x11fa…1232 Head {h00=0x0034, h01=0x0050, text=» CBG GTTRKEY,CBIN0,DEL020 ANY TRANS REFERENCE ? «, t00=0x000b, t01=0x00d0}
0x1232…124c Head {h00=0x0016, h01=0x0050, text=» CLEAR GTSWFLAG NO«, t00=0x000b, t01=0x0108}
0x124c…125e Head {h00=0x000e, h01=0x0050, text=» B DEL030 «, t00=0x000b, t01=0x0122}
0x125e…126c Head {h00=0x000a, h01=0x0050, text=»DEL020«, t00=0x000b, t01=0x0134}
0x126c…1296 Head {h00=0x0026, h01=0x0050, text=» CBNE GTREGF(CBIN16),=D'0',DEL030 «, t00=0x000b, t01=0x0142}
0x1296…12c4 Head {h00=0x002a, h01=0x0050, text=» PERF BDTDEL ALLOWED WHEN ZERO-AMOUNT «, t00=0x000b, t01=0x016c}
0x12c4…12dc Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x000c, t01=0x000a}
0x12dc…12ea Head {h00=0x000a, h01=0x0050, text=»DEL030«, t00=0x000c, t01=0x0022}
0x12ea…1300 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTDYFLG«, t00=0x000c, t01=0x0030}
0x1300…1316 Head {h00=0x0012, h01=0x0050, text=» SET GTSPGFLG «, t00=0x000c, t01=0x0046}
0x1316…1330 Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x000c, t01=0x005c}
0x1330…1344 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x000c, t01=0x0076}
0x1344…135c Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSPGFLG «, t00=0x000c, t01=0x008a}
0x135c…1384 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,DEL000,DEL000,DEL050«, t00=0x000c, t01=0x00a2}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» B DEL030 «, t00=0x000c, t01=0x00ca}
0x1396…13a4 Head {h00=0x000a, h01=0x0050, text=»DEL050«, t00=0x000c, t01=0x00dc}
0x13a4…13d2 Head {h00=0x002a, h01=0x0050, text=» TBT GTSWFLAG,DELOK F=NO TRANSACTIONS «, t00=0x000c, t01=0x00ea}
0x13d2…13f2 Head {h00=0x001c, h01=0x0050, text=» PERF IDXDEL DELETE LEV «, t00=0x000c, t01=0x0118}
0x13f2…1402 Head {h00=0x000c, h01=0x0050, text=» B DELOK«, t00=0x000c, t01=0x0138}
0x1402…1410 Head {h00=0x000a, h01=0x0050, text=»DELNOK«, t00=0x000c, t01=0x0148}
0x1410…1424 Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x000c, t01=0x0156}
0x1424…143c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x000c, t01=0x016a}
0x143c…1448 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0182}
0x1448…1456 Head {h00=0x000a, h01=0x0050, text=»DELOK «, t00=0x000c, t01=0x018e}
0x1456…146a Head {h00=0x0010, h01=0x0050, text=» PERF SETKEY«, t00=0x000d, t01=0x000c}
0x146a…1482 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x000d, t01=0x0020}
0x1482…148e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0038}
0x148e…149c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0044}
0x149c…14a4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0052}
0x14a4…14b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x005a}
0x14b2…14c4 Head {h00=0x000e, h01=0x0050, text=»LEVRD PROC«, t00=0x000d, t01=0x0068}
0x14c4…14d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x007a}
0x14d6…14e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14e0…1512 Head {h00=0x002e, h01=0x0050, text=»* READ AND UNPACK LEVERAND INFORMATION«, t00=0x000d, t01=0x0096}
0x1512…1538 Head {h00=0x0022, h01=0x0050, text=»* FOR LEVERAND NO GTLEVNR «, t00=0x000d, t01=0x00c8}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x1542…1554 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x00f8}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155e…157a Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CLEVFLG «, t00=0x000d, t01=0x0114}
0x157a…15a6 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x000d, t01=0x0130}
0x15a6…15c4 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 - LEV INDX «, t00=0x000d, t01=0x015c}
0x15c4…15de Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 - INDEX«, t00=0x000d, t01=0x017a}
0x15de…15fe (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=» BERR LEVRNOK DISK ERROR«, t00=0x000e, t01=0x0004}
0x15fe…161e Head {h00=0x001c, h01=0x0050, text=» BNOK LEVRNOK NOT FOUND «, t00=0x000e, t01=0x0024}
0x161e…162e Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x000e, t01=0x0044}
0x162e…1642 Head {h00=0x0010, h01=0x0050, text=» READ LEV «, t00=0x000e, t01=0x0054}
0x1642…166c Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN4,=W'128' RECORD SIZE «, t00=0x000e, t01=0x0068}
0x166c…168a Head {h00=0x001a, h01=0x0050, text=» MOVE CLEVBUF,CBLANKS «, t00=0x000e, t01=0x0092}
0x168a…16c2 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK08,=D'8',CLEVBUF,GSWBIN4,GSWBIN5 «, t00=0x000e, t01=0x00b0}
0x16c2…16d8 Head {h00=0x0012, h01=0x0050, text=» BNOK LEVRNOK «, t00=0x000e, t01=0x00e8}
0x16d8…16f6 Head {h00=0x001a, h01=0x0050, text=»* UNPACK LEV INFO «, t00=0x000e, t01=0x00fe}
0x16f6…1720 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x000e, t01=0x011c}
0x1720…1754 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'0',=W'6',CLEVBUF,=W'0'«, t00=0x000e, t01=0x0146}
0x1754…1778 Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVNR,GSWBCD7,LEVR030«, t00=0x000e, t01=0x017a}
0x1778…1796 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 «, t00=0x000f, t01=0x000e}
0x1796…17b4 Head {h00=0x001a, h01=0x0050, text=» NOT CORRECT RECORD «, t00=0x000f, t01=0x002c}
0x17b4…17c6 Head {h00=0x000e, h01=0x0050, text=» B LEVRNOK«, t00=0x000f, t01=0x004a}
0x17c6…17d6 Head {h00=0x000c, h01=0x0050, text=»LEVR030 «, t00=0x000f, t01=0x005c}
0x17d6…180c Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVNVN,=W'0',=W'30',CLEVBUF,=W'6'«, t00=0x000f, t01=0x006c}
0x180c…1844 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVADR,=W'0',=W'32',CLEVBUF,=W'36' «, t00=0x000f, t01=0x00a2}
0x1844…187a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVBY,=W'0',=W'20',CLEVBUF,=W'68'«, t00=0x000f, t01=0x00da}
0x187a…18b0 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVPNR,=W'0',=W'3',CLEVBUF,=W'88'«, t00=0x000f, t01=0x0110}
0x18b0…18e8 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVPDI,=W'0',=W'13',CLEVBUF,=W'91' «, t00=0x000f, t01=0x0146}
0x18e8…1904 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'30'«, t00=0x000f, t01=0x017e}
0x1904…192a Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVNVN,GSWBIN7 «, t00=0x0010, t01=0x000a}
0x192a…1946 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN7,=W'32'«, t00=0x0010, t01=0x0030}
0x1946…196c Head {h00=0x0022, h01=0x0050, text=» PERF REPL00,GTLEVADR,GSWBIN7 «, t00=0x0010, t01=0x004c}
0x196c…1990 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVBY,CBIN20 «, t00=0x0010, t01=0x0072}
0x1990…19b4 Head {h00=0x0020, h01=0x0050, text=» PERF REPL00,GTLEVPDI,CBIN13«, t00=0x0010, t01=0x0096}
0x19b4…19ec Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVBFO,=W'0',=W'1',CLEVBUF,=W'104' «, t00=0x0010, t01=0x00ba}
0x19ec…1a22 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVGI,=W'0',=W'4',CLEVBUF,=W'105'«, t00=0x0010, t01=0x00f2}
0x1a22…1a5a Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVALT,=W'0',=W'6',CLEVBUF,=W'109' «, t00=0x0010, t01=0x0128}
0x1a5a…1a80 Head {h00=0x0022, h01=0x0050, text=» MOVE GTLEVDAT,=D'1' SET SIGN «, t00=0x0010, t01=0x0160}
0x1a80…1ab8 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,GTLEVDAT,=W'1',=W'3',CLEVBUF,=W'115' «, t00=0x0010, t01=0x0186}
0x1ab8…1ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1ac2…1ae8 Head {h00=0x0022, h01=0x0050, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0011, t01=0x0038}
0x1ae8…1b04 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0011, t01=0x005e}
0x1b04…1b10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x007a}
0x1b10…1b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b1a…1b2a Head {h00=0x000c, h01=0x0050, text=»LEVRNOK «, t00=0x0011, t01=0x0090}
0x1b2a…1b50 Head {h00=0x0022, h01=0x0050, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0011, t01=0x00a0}
0x1b50…1b6c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0011, t01=0x00c6}
0x1b6c…1b78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x00e2}
0x1b78…1b86 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x00ee}
0x1b86…1b94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00fc}
0x1b94…1b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010a}
0x1b9e…1bb2 Head {h00=0x0010, h01=0x0050, text=»LEVWRT PROC «, t00=0x0011, t01=0x0114}
0x1bb2…1bc4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0128}
0x1bc4…1bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013a}
0x1bce…1bfe Head {h00=0x002c, h01=0x0050, text=»* PACK AND WRITE LEV INFORMATION FOR«, t00=0x0011, t01=0x0144}
0x1bfe…1c20 Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0011, t01=0x0174}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c2a…1c3c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0012}
0x1c3c…1c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c46…1c62 Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CLEVFLG «, t00=0x0012, t01=0x002e}
0x1c62…1c7e Head {h00=0x0018, h01=0x0050, text=»* PACK LEV INFO «, t00=0x0012, t01=0x004a}
0x1c7e…1c9c Head {h00=0x001a, h01=0x0050, text=» MOVE CLEVBUF,CBLANKS «, t00=0x0012, t01=0x0066}
0x1c9c…1cd0 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'0',=W'6',GTLEVNR,=W'0'«, t00=0x0012, t01=0x0084}
0x1cd0…1d06 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'6',=W'30',GTLEVNVN,=W'0'«, t00=0x0012, t01=0x00b8}
0x1d06…1d3e Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'36',=W'32',GTLEVADR,=W'0' «, t00=0x0012, t01=0x00ee}
0x1d3e…1d74 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'68',=W'20',GTLEVBY,=W'0'«, t00=0x0012, t01=0x0126}
0x1d74…1daa Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'88',=W'3',GTLEVPNR,=W'0'«, t00=0x0012, t01=0x015c}
0x1daa…1de2 (19, 0, 398) Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'91',=W'13',GTLEVPDI,=W'0' «, t00=0x0013, t01=0x0004}
0x1de2…1e1a Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'104',=W'1',GTLEVBFO,=W'0' «, t00=0x0013, t01=0x003c}
0x1e1a…1e50 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'105',=W'4',GTLEVGI,=W'0'«, t00=0x0013, t01=0x0074}
0x1e50…1e88 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'109',=W'6',GTLEVALT,=W'0' «, t00=0x0013, t01=0x00aa}
0x1e88…1ea8 Head {h00=0x001c, h01=0x0050, text=» MOVE GTLEVDAT,CMASKDAT «, t00=0x0013, t01=0x00e2}
0x1ea8…1ee0 Head {h00=0x0034, h01=0x0050, text=» PERF XCOP,CLEVBUF,=W'115',=W'3',GTLEVDAT,=W'1' «, t00=0x0013, t01=0x0102}
0x1ee0…1ef4 Head {h00=0x0010, h01=0x0050, text=»* WRITE «, t00=0x0013, t01=0x013a}
0x1ef4…1f20 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0013, t01=0x014e}
0x1f20…1f3c Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 LEV INDX«, t00=0x0013, t01=0x017a}
0x1f3c…1f56 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0014, t01=0x0008}
0x1f56…1f76 Head {h00=0x001c, h01=0x0050, text=» BERR LEVWNOK DISK ERROR«, t00=0x0014, t01=0x0022}
0x1f76…1f96 Head {h00=0x001c, h01=0x0050, text=» BNOK LEVWNOK NOT FOUND «, t00=0x0014, t01=0x0042}
0x1f96…1fa6 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x0014, t01=0x0062}
0x1fa6…1fd6 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK08,=D'8',CLEVBUF,GSWBIN5 «, t00=0x0014, t01=0x0072}
0x1fd6…1fec Head {h00=0x0012, h01=0x0050, text=» BNOK LEVWNOK «, t00=0x0014, t01=0x00a2}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b8}
0x1ff6…201c Head {h00=0x0022, h01=0x0050, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0014, t01=0x00c2}
0x201c…2038 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0014, t01=0x00e8}
0x2038…2044 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0104}
0x2044…204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x204e…205e Head {h00=0x000c, h01=0x0050, text=»LEVWNOK «, t00=0x0014, t01=0x011a}
0x205e…2084 Head {h00=0x0022, h01=0x0050, text=» CLEAR CLEVFLG RELEASE BUFFER «, t00=0x0014, t01=0x012a}
0x2084…20a0 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0014, t01=0x0150}
0x20a0…20ac Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x016c}
0x20ac…20ba Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0178}
0x20ba…20c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0186}
0x20c8…20d2 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d2…20e6 Head {h00=0x0010, h01=0x0050, text=»LEVINT PROC «, t00=0x0015, t01=0x000e}
0x20e6…20f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x0022}
0x20f8…2102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2102…212e Head {h00=0x0028, h01=0x0050, text=»* INITIATE STAM INFORMATION FOR «, t00=0x0015, t01=0x003e}
0x212e…2150 Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0015, t01=0x006a}
0x2150…215a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008c}
0x215a…216c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0015, t01=0x0096}
0x216c…2176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a8}
0x2176…2194 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVNVN,CBLANKS«, t00=0x0015, t01=0x00b2}
0x2194…21b2 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVADR,CBLANKS«, t00=0x0015, t01=0x00d0}
0x21b2…21d0 Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVBY,CBLANKS «, t00=0x0015, t01=0x00ee}
0x21d0…21ec Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVPNR,=D'0'«, t00=0x0015, t01=0x010c}
0x21ec…220a Head {h00=0x001a, h01=0x0050, text=» MOVE GTLEVPDI,CBLANKS«, t00=0x0015, t01=0x0128}
0x220a…2226 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVBFO,=D'0'«, t00=0x0015, t01=0x0146}
0x2226…2242 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVGI,=D'0' «, t00=0x0015, t01=0x0162}
0x2242…225e Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVALT,=D'0'«, t00=0x0015, t01=0x017e}
0x225e…227e Head {h00=0x001c, h01=0x0050, text=» MOVE GTLEVDAT,CMASKDAT «, t00=0x0016, t01=0x000a}
0x227e…228a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x002a}
0x228a…2298 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0036}
0x2298…22a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0044}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22b0…22c4 Head {h00=0x0010, h01=0x0050, text=»LEVSPG PROC «, t00=0x0016, t01=0x005c}
0x22c4…22f8 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0016, t01=0x0070}
0x22f8…2302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2302…232a Head {h00=0x0024, h01=0x0050, text=»* PROCEDURE FOR FORESP RGSEL P] «, t00=0x0016, t01=0x00ae}
0x232a…2340 Head {h00=0x0012, h01=0x0050, text=»* LEVERAND RER«, t00=0x0016, t01=0x00d6}
0x2340…234a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x234a…237e Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x00f6}
0x237e…238e Head {h00=0x000c, h01=0x0050, text=»LSPG000 «, t00=0x0016, t01=0x012a}
0x238e…23b0 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR9,='FORESPG. '«, t00=0x0016, t01=0x013a}
0x23b0…23c6 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0016, t01=0x015c}
0x23c6…23e4 Head {h00=0x001a, h01=0x0050, text=» SET GTSPGFLG 1. TIME «, t00=0x0016, t01=0x0172}
0x23e4…2400 Head {h00=0x0018, h01=0x0050, text=» SET GTDYFLG FORESPG«, t00=0x0016, t01=0x0190}
0x2400…242e Head {h00=0x002a, h01=0x0050, text=» TBF GTCYFLG,LSPG005 I CYKEL/STABEL ? «, t00=0x0017, t01=0x001c}
0x242e…2458 Head {h00=0x0026, h01=0x0050, text=» TBT GTBDTFLG,LSPG003 YES, BUNDT ?«, t00=0x0017, t01=0x004a}
0x2458…247e Head {h00=0x0022, h01=0x0050, text=» TBF GTSTRFLG,LSPG005 STRAKS ?«, t00=0x0017, t01=0x0074}
0x247e…248e Head {h00=0x000c, h01=0x0050, text=»LSPG003 «, t00=0x0017, t01=0x009a}
0x248e…24cc Head {h00=0x003a, h01=0x0050, text=» MOVE GTLEVNR,GTDUPF(CBIN2) CYKEL/STABEL,STRAKS/BUNDT «, t00=0x0017, t01=0x00aa}
0x24cc…24de Head {h00=0x000e, h01=0x0050, text=» B LSPG010«, t00=0x0017, t01=0x00e8}
0x24de…24ee Head {h00=0x000c, h01=0x0050, text=»LSPG005 «, t00=0x0017, t01=0x00fa}
0x24ee…2516 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN3 ATTACH FORMAT«, t00=0x0017, t01=0x010a}
0x2516…253a Head {h00=0x0020, h01=0x0050, text=» PERF SPCLRA WRITE ON SCREEN«, t00=0x0017, t01=0x0132}
0x253a…2564 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW2,LSPGOK,LSPGOK,LSPG010 «, t00=0x0017, t01=0x0156}
0x2564…2576 Head {h00=0x000e, h01=0x0050, text=» B LSPG000«, t00=0x0017, t01=0x0180}
0x2576…2586 (24, 0, 400) Head {h00=0x000c, h01=0x0050, text=»LSPG010 «, t00=0x0018, t01=0x0004}
0x2586…25b2 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0018, t01=0x0014}
0x25b2…25ce Head {h00=0x0018, h01=0x0050, text=» GSWBIN5 - LEVINDX«, t00=0x0018, t01=0x0040}
0x25ce…25e8 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0018, t01=0x005c}
0x25e8…2608 Head {h00=0x001c, h01=0x0050, text=» BERR LSPGNOK DISK ERROR«, t00=0x0018, t01=0x0076}
0x2608…2628 Head {h00=0x001c, h01=0x0050, text=» BNOK LSPGNOK NOT FOUND «, t00=0x0018, t01=0x0096}
0x2628…2646 Head {h00=0x001a, h01=0x0050, text=»* LEV NR GTLEVNR FOUND«, t00=0x0018, t01=0x00b6}
0x2646…2668 Head {h00=0x001e, h01=0x0050, text=» PERF LEVRD READ STAMINFO «, t00=0x0018, t01=0x00d4}
0x2668…267e Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0018, t01=0x00f6}
0x267e…26a4 Head {h00=0x0022, h01=0x0050, text=» PERF VARRD READ VARIABLE INFO«, t00=0x0018, t01=0x010c}
0x26a4…26ba Head {h00=0x0012, h01=0x0050, text=» BNOK LSPGNOK «, t00=0x0018, t01=0x0132}
0x26ba…26ca Head {h00=0x000c, h01=0x0050, text=»LSPG015 «, t00=0x0018, t01=0x0148}
0x26ca…26e2 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x0018, t01=0x0158}
0x26e2…2706 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG DISPLAY INFO «, t00=0x0018, t01=0x0170}
0x2706…2720 (25, 0, 400) Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN3«, t00=0x0019, t01=0x0004}
0x2720…2734 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0019, t01=0x001e}
0x2734…2760 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG000,LSPG000,LSPG100 «, t00=0x0019, t01=0x0032}
0x2760…2772 Head {h00=0x000e, h01=0x0050, text=» B LSPG015«, t00=0x0019, t01=0x005e}
0x2772…27a0 Head {h00=0x002a, h01=0x0050, text=»LSPG100 OK CONTINUE TO VARIABLE INFO«, t00=0x0019, t01=0x0070}
0x27a0…27be Head {h00=0x001a, h01=0x0050, text=» TBT GTVDUFLG,LSPG200 «, t00=0x0019, t01=0x009e}
0x27be…27e6 Head {h00=0x0024, h01=0x0050, text=» PERF FMTREM,CBIN4 VARIABLE INFO«, t00=0x0019, t01=0x00bc}
0x27e6…27fa Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x0019, t01=0x00e4}
0x27fa…2826 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG015,LSPG015,LSPG200 «, t00=0x0019, t01=0x00f8}
0x2826…2838 Head {h00=0x000e, h01=0x0050, text=» B LSPG100«, t00=0x0019, t01=0x0124}
0x2838…2848 Head {h00=0x000c, h01=0x0050, text=»LSPG200 «, t00=0x0019, t01=0x0136}
0x2848…2874 Head {h00=0x0028, h01=0x0050, text=» CBE GTTRKEY,CBIN0,LSPG500 NO TRANS «, t00=0x0019, t01=0x0146}
0x2874…2888 Head {h00=0x0010, h01=0x0050, text=»* READ TRANS«, t00=0x0019, t01=0x0172}
0x2888…28bc Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN8,GTTRKEY POINTER TO FIRST TRANS«, t00=0x0019, t01=0x0186}
0x28bc…28cc Head {h00=0x000c, h01=0x0050, text=»LSPG205 «, t00=0x001a, t01=0x002a}
0x28cc…28e4 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001a, t01=0x003a}
0x28e4…2900 Head {h00=0x0018, h01=0x0050, text=» PERF TRREAD,GSWBIN8«, t00=0x001a, t01=0x0052}
0x2900…2916 Head {h00=0x0012, h01=0x0050, text=» BNOK LSPG500 «, t00=0x001a, t01=0x006e}
0x2916…2946 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN15) MOVE TEXTNR«, t00=0x001a, t01=0x0084}
0x2946…2968 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN8,CBIN0,LSPG210«, t00=0x001a, t01=0x00b4}
0x2968…2990 Head {h00=0x0024, h01=0x0050, text=» PERF TXTRD,GSWBIN8 AND READ IT «, t00=0x001a, t01=0x00d6}
0x2990…29b4 Head {h00=0x0020, h01=0x0050, text=» B LSPG210 DISPLAY CONTENTS «, t00=0x001a, t01=0x00fe}
0x29b4…29c4 Head {h00=0x000c, h01=0x0050, text=»LSPG210 «, t00=0x001a, t01=0x0122}
0x29c4…29de Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN5«, t00=0x001a, t01=0x0132}
0x29de…29f2 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRN«, t00=0x001a, t01=0x014c}
0x29f2…2a1e Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,LSPG500,LSPG500,LSPG300 «, t00=0x001a, t01=0x0160}
0x2a1e…2a30 Head {h00=0x000e, h01=0x0050, text=» B LSPG210«, t00=0x001a, t01=0x018c}
0x2a30…2a40 Head {h00=0x000c, h01=0x0050, text=»LSPG300 «, t00=0x001b, t01=0x000e}
0x2a40…2a64 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN8,GTDUPF(CBIN22)«, t00=0x001b, t01=0x001e}
0x2a64…2a9a Head {h00=0x0032, h01=0x0050, text=» CBE GSWBIN8,CBIN0,LSPG500 TRANS' EXHAUSTED ? «, t00=0x001b, t01=0x0042}
0x2a9a…2aba Head {h00=0x001c, h01=0x0050, text=» B LSPG205 NO, GET NEXT «, t00=0x001b, t01=0x0078}
0x2aba…2aca Head {h00=0x000c, h01=0x0050, text=»LSPG500 «, t00=0x001b, t01=0x0098}
0x2aca…2ae6 Head {h00=0x0018, h01=0x0050, text=» TBF GTCYFLG,LSPG510«, t00=0x001b, t01=0x00a8}
0x2ae6…2b02 Head {h00=0x0018, h01=0x0050, text=» TBT GTBDTFLG,LSPGOK«, t00=0x001b, t01=0x00c4}
0x2b02…2b1e Head {h00=0x0018, h01=0x0050, text=» TBT GTSTRFLG,LSPGOK«, t00=0x001b, t01=0x00e0}
0x2b1e…2b2e Head {h00=0x000c, h01=0x0050, text=»LSPG510 «, t00=0x001b, t01=0x00fc}
0x2b2e…2b52 Head {h00=0x0020, h01=0x0050, text=» PERF GETNXT GET NEXT LEVNR «, t00=0x001b, t01=0x010c}
0x2b52…2b68 Head {h00=0x0012, h01=0x0050, text=» BNOK LSPG000 «, t00=0x001b, t01=0x0130}
0x2b68…2b7a Head {h00=0x000e, h01=0x0050, text=» B LSPG010«, t00=0x001b, t01=0x0146}
0x2b7a…2b8a Head {h00=0x000c, h01=0x0050, text=»LSPGNOK «, t00=0x001b, t01=0x0158}
0x2b8a…2b98 Head {h00=0x000a, h01=0x0050, text=»LSPGOK«, t00=0x001b, t01=0x0168}
0x2b98…2ba4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0176}
0x2ba4…2bb2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0182}
0x2bb2…2bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0190}
0x2bbc…2bca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x000a}
0x2bca…2bde Head {h00=0x0010, h01=0x0050, text=»LEVPRT PROC «, t00=0x001c, t01=0x0018}
0x2bde…2bf0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x002c}
0x2bf0…2bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x003e}
0x2bfa…2c18 Head {h00=0x001a, h01=0x0050, text=»* PRINT LEVERANDS «, t00=0x001c, t01=0x0048}
0x2c18…2c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0066}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0070}
0x2c34…2c52 Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,LPRT000 «, t00=0x001c, t01=0x0082}
0x2c52…2c6e Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRTRET«, t00=0x001c, t01=0x00a0}
0x2c6e…2c7e Head {h00=0x000c, h01=0x0050, text=»LPRT000 «, t00=0x001c, t01=0x00bc}
0x2c7e…2c94 Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x001c, t01=0x00cc}
0x2c94…2cae Head {h00=0x0016, h01=0x0050, text=» PERF FMTREM,CBIN6«, t00=0x001c, t01=0x00e2}
0x2cae…2cc4 Head {h00=0x0012, h01=0x0050, text=» CLEAR GTZERO «, t00=0x001c, t01=0x00fc}
0x2cc4…2cd8 Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x001c, t01=0x0112}
0x2cd8…2d08 Head {h00=0x002c, h01=0x0050, text=» CBNE SPBINW2,CBIN3,LPRTRET NOT <SLUT>? «, t00=0x001c, t01=0x0126}
0x2d08…2d2c Head {h00=0x0020, h01=0x0050, text=» CBNE GTLEVNR,=D'1',LPRT015 «, t00=0x001c, t01=0x0156}
0x2d2c…2d40 Head {h00=0x0010, h01=0x0050, text=» SET GTZERO «, t00=0x001c, t01=0x017a}
0x2d40…2d50 Head {h00=0x000c, h01=0x0050, text=»LPRT015 «, t00=0x001c, t01=0x018e}
0x2d50…2d74 Head {h00=0x0020, h01=0x0050, text=» CBNL GTPRTFRA,=D'1',LPRT020«, t00=0x001d, t01=0x000e}
0x2d74…2da0 Head {h00=0x0028, h01=0x0050, text=» MOVE GTPRTFRA,=D'15' FIRST LEV - 1 «, t00=0x001d, t01=0x0032}
0x2da0…2db0 Head {h00=0x000c, h01=0x0050, text=»LPRT020 «, t00=0x001d, t01=0x005e}
0x2db0…2dd8 Head {h00=0x0024, h01=0x0050, text=» CBNL GTPRTTIL,GTPRTFRA,LPRT030 «, t00=0x001d, t01=0x006e}
0x2dd8…2e0c Head {h00=0x0030, h01=0x0050, text=» MOVE GTPRTTIL,=D'9999999999' LAST TO PRINT «, t00=0x001d, t01=0x0096}
0x2e0c…2e1c Head {h00=0x000c, h01=0x0050, text=»LPRT030 «, t00=0x001d, t01=0x00ca}
0x2e1c…2e34 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001d, t01=0x00da}
0x2e34…2e48 Head {h00=0x0010, h01=0x0050, text=» SET GTDYFLG«, t00=0x001d, t01=0x00f2}
0x2e48…2e6c Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVBFO,=D'1',LPRT040 «, t00=0x001d, t01=0x0106}
0x2e6c…2e90 Head {h00=0x0020, h01=0x0050, text=» CLEAR GTDYFLG NOT VAR INFO «, t00=0x001d, t01=0x012a}
0x2e90…2ea0 Head {h00=0x000c, h01=0x0050, text=»LPRT040 «, t00=0x001d, t01=0x014e}
0x2ea0…2ebc Head {h00=0x0018, h01=0x0050, text=» TBF GTLPFLG,LPRT045«, t00=0x001d, t01=0x015e}
0x2ebc…2ee2 Head {h00=0x0022, h01=0x0050, text=» EDWRT DSHCLP,FFEED FORM FEED «, t00=0x001d, t01=0x017a}
0x2ee2…2ef2 Head {h00=0x000c, h01=0x0050, text=»LPRT045 «, t00=0x001e, t01=0x0010}
0x2ef2…2f22 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD6,GTPRTDAT GTPRTDAT: DDMMYY «, t00=0x001e, t01=0x0020}
0x2f22…2f36 Head {h00=0x0010, h01=0x0050, text=» PERF CHDATO«, t00=0x001e, t01=0x0050}
0x2f36…2f66 Head {h00=0x002c, h01=0x0050, text=» MOVE GTPRTDAT,GSWBCD7 GTPRTDAT: YYMMDD «, t00=0x001e, t01=0x0064}
0x2f66…2f9c Head {h00=0x0032, h01=0x0050, text=» MOVE GTLEVNR,GTPRTFRA SET FIRST NO. TO PRINT «, t00=0x001e, t01=0x0094}
0x2f9c…2fac Head {h00=0x000c, h01=0x0050, text=»LPRT049 «, t00=0x001e, t01=0x00ca}
0x2fac…2fc0 Head {h00=0x0010, h01=0x0050, text=» PERF GETNXT«, t00=0x001e, t01=0x00da}
0x2fc0…2fd6 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRTRET «, t00=0x001e, t01=0x00ee}
0x2fd6…2fe6 Head {h00=0x000c, h01=0x0050, text=»LPRT050 «, t00=0x001e, t01=0x0104}
0x2fe6…300c Head {h00=0x0022, h01=0x0050, text=» CBG GTLEVNR,GTPRTTIL,LPRTRET «, t00=0x001e, t01=0x0114}
0x300c…3020 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x001e, t01=0x013a}
0x3020…3040 Head {h00=0x001c, h01=0x0050, text=» BNOK LPRT110 NOT FOUND «, t00=0x001e, t01=0x014e}
0x3040…3070 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD6,GTLEVDAT GTLEVDAT: DDMMYY «, t00=0x001e, t01=0x016e}
0x3070…3094 Head {h00=0x0020, h01=0x0050, text=» PERF CHDATO GSWBCD7: YYMMDD«, t00=0x001f, t01=0x000e}
0x3094…30ba Head {h00=0x0022, h01=0x0050, text=» CBL GSWBCD7,GTPRTDAT,LPRT100 «, t00=0x001f, t01=0x0032}
0x30ba…30d6 Head {h00=0x0018, h01=0x0050, text=» TBF GTDYFLG,LPRT080«, t00=0x001f, t01=0x0058}
0x30d6…30ea Head {h00=0x0010, h01=0x0050, text=» PERF VARRD «, t00=0x001f, t01=0x0074}
0x30ea…3100 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRT110 «, t00=0x001f, t01=0x0088}
0x3100…3110 Head {h00=0x000c, h01=0x0050, text=»LPRT080 «, t00=0x001f, t01=0x009e}
0x3110…3132 Head {h00=0x001e, h01=0x0050, text=»* FLIP FLOP FOR LINEFEEDS«, t00=0x001f, t01=0x00ae}
0x3132…3150 Head {h00=0x001a, h01=0x0050, text=» TBT GTSWFLAG,LPRT085 «, t00=0x001f, t01=0x00d0}
0x3150…3166 Head {h00=0x0012, h01=0x0050, text=» SET GTSWFLAG «, t00=0x001f, t01=0x00ee}
0x3166…3178 Head {h00=0x000e, h01=0x0050, text=» B LPRT090«, t00=0x001f, t01=0x0104}
0x3178…3188 Head {h00=0x000c, h01=0x0050, text=»LPRT085 «, t00=0x001f, t01=0x0116}
0x3188…31a0 Head {h00=0x0014, h01=0x0050, text=» CLEAR GTSWFLAG «, t00=0x001f, t01=0x0126}
0x31a0…31b0 Head {h00=0x000c, h01=0x0050, text=»LPRT090 «, t00=0x001f, t01=0x013e}
0x31b0…31cc Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,LPRT095«, t00=0x001f, t01=0x014e}
0x31cc…31ee Head {h00=0x001e, h01=0x0050, text=» EDWRT DSHCGP,FLEVPRT GTP «, t00=0x001f, t01=0x016a}
0x31ee…3200 Head {h00=0x000e, h01=0x0050, text=» B LPRT100«, t00=0x001f, t01=0x018c}
0x3200…3210 Head {h00=0x000c, h01=0x0050, text=»LPRT095 «, t00=0x0020, t01=0x000e}
0x3210…3230 Head {h00=0x001c, h01=0x0050, text=» EDWRT DSHCLP,FLEVPRT LP«, t00=0x0020, t01=0x001e}
0x3230…324a Head {h00=0x0016, h01=0x0050, text=»LPRT100 TO NEXT «, t00=0x0020, t01=0x003e}
0x324a…3266 Head {h00=0x0018, h01=0x0050, text=» TBF GTDYFLG,LPRT110«, t00=0x0020, t01=0x0058}
0x3266…3282 Head {h00=0x0018, h01=0x0050, text=» TBF GTZERO,LPRT110 «, t00=0x0020, t01=0x0074}
0x3282…32a4 Head {h00=0x001e, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0'«, t00=0x0020, t01=0x0090}
0x32a4…32d2 Head {h00=0x002a, h01=0x0050, text=» PERF VARWRT REWRITE WITH SALE YTD = 0«, t00=0x0020, t01=0x00b2}
0x32d2…32e8 Head {h00=0x0012, h01=0x0050, text=» BNOK LPRTRET «, t00=0x0020, t01=0x00e0}
0x32e8…32f8 Head {h00=0x000c, h01=0x0050, text=»LPRT110 «, t00=0x0020, t01=0x00f6}
0x32f8…330c Head {h00=0x0010, h01=0x0050, text=» PERF KBTEST«, t00=0x0020, t01=0x0106}
0x330c…3328 Head {h00=0x0018, h01=0x0050, text=» BOK LPRTRET MAK KEY«, t00=0x0020, t01=0x011a}
0x3328…333a Head {h00=0x000e, h01=0x0050, text=» B LPRT049«, t00=0x0020, t01=0x0136}
0x333a…334a Head {h00=0x000c, h01=0x0050, text=»LPRTRET «, t00=0x0020, t01=0x0148}
0x334a…3356 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0158}
0x3356…3364 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x0164}
0x3364…3372 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0172}
0x3372…337c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0180}
0x337c…338e Head {h00=0x000e, h01=0x0050, text=»VARRD PROC«, t00=0x0020, t01=0x018a}
0x338e…33a0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0021, t01=0x000c}
0x33a0…33aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001e}
0x33aa…33dc Head {h00=0x002e, h01=0x0050, text=»* READ AND UNPACK VARIABLE INFORMATION«, t00=0x0021, t01=0x0028}
0x33dc…3402 Head {h00=0x0022, h01=0x0050, text=»* FOR LEVERAND NR GTLEVNR «, t00=0x0021, t01=0x005a}
0x3402…340c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0080}
0x340c…341e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0021, t01=0x008a}
0x341e…3428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009c}
0x3428…3444 Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CVARFLG «, t00=0x0021, t01=0x00a6}
0x3444…3470 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0021, t01=0x00c2}
0x3470…348e Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0021, t01=0x00ee}
0x348e…34a8 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0021, t01=0x010c}
0x34a8…34c8 Head {h00=0x001c, h01=0x0050, text=» BERR VARRNOK DISK ERROR«, t00=0x0021, t01=0x0126}
0x34c8…34e8 Head {h00=0x001c, h01=0x0050, text=» BNOK VARRNOK NOT FOUND «, t00=0x0021, t01=0x0146}
0x34e8…34f8 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x0021, t01=0x0166}
0x34f8…3520 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN4,=W'49' RECORD SIZE«, t00=0x0021, t01=0x0176}
0x3520…353e Head {h00=0x001a, h01=0x0050, text=» MOVE CVARBUF,CBLANKS «, t00=0x0022, t01=0x000e}
0x353e…3576 Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK09,=D'9',CVARBUF,GSWBIN4,GSWBIN5 «, t00=0x0022, t01=0x002c}
0x3576…358c Head {h00=0x0012, h01=0x0050, text=» BNOK VARRNOK «, t00=0x0022, t01=0x0064}
0x358c…35aa Head {h00=0x001a, h01=0x0050, text=»* UNPACK VAR INFO «, t00=0x0022, t01=0x007a}
0x35aa…35d4 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBCD7,GTLEVNR STORE LEVNR «, t00=0x0022, t01=0x0098}
0x35d4…360a Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'0',=W'6',CVARBUF,=W'0' «, t00=0x0022, t01=0x00c2}
0x360a…362e Head {h00=0x0020, h01=0x0050, text=» CBE GTLEVNR,GSWBCD7,VARR030«, t00=0x0022, t01=0x00f8}
0x362e…365e Head {h00=0x002c, h01=0x0050, text=» MOVE GTLEVNR,GSWBCD7 NOT CORRECT RECORD«, t00=0x0022, t01=0x011c}
0x365e…3670 Head {h00=0x000e, h01=0x0050, text=» B VARRNOK«, t00=0x0022, t01=0x014c}
0x3670…3680 Head {h00=0x000c, h01=0x0050, text=»VARR030 «, t00=0x0022, t01=0x015e}
0x3680…36b4 Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBCD7,=D'1' INITIATE RECEIVING FIELD«, t00=0x0022, t01=0x016e}
0x36b4…36e8 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'6'«, t00=0x0023, t01=0x0012}
0x36e8…3716 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN10),GSWBCD7 UDB DATO «, t00=0x0023, t01=0x0046}
0x3716…374a Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'9'«, t00=0x0023, t01=0x0074}
0x374a…3778 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN11),GSWBCD7 UDB BELOB«, t00=0x0023, t01=0x00a8}
0x3778…37ae Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'16' «, t00=0x0023, t01=0x00d6}
0x37ae…37da Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN12),GSWBCD7 UDB ]TD«, t00=0x0023, t01=0x010c}
0x37da…3810 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'23' «, t00=0x0023, t01=0x0138}
0x3810…3840 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN14),GSWBCD7 VENT DEBET «, t00=0x0023, t01=0x016e}
0x3840…3876 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'0',=W'7',CVARBUF,=W'30' «, t00=0x0024, t01=0x000e}
0x3876…38a6 Head {h00=0x002c, h01=0x0050, text=» MOVE GTREGF(CBIN15),GSWBCD7 VENT KREDIT«, t00=0x0024, t01=0x0044}
0x38a6…38d8 Head {h00=0x002e, h01=0x0050, text=» MOVE GTREGF(CBIN16),GSWBCD7 SKYLDIGT BEL.«, t00=0x0024, t01=0x0074}
0x38d8…3902 Head {h00=0x0026, h01=0x0050, text=» ADD GTREGF(CBIN16),GTREGF(CBIN14)«, t00=0x0024, t01=0x00a6}
0x3902…3926 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x0024, t01=0x00d0}
0x3926…395c Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'3',CVARBUF,=W'37' «, t00=0x0024, t01=0x00f4}
0x395c…398a Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN13),GSWBCD7 VAL DATO «, t00=0x0024, t01=0x012a}
0x398a…39c0 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,GTTRKEY,=W'0',=W'2',CVARBUF,=W'47' «, t00=0x0024, t01=0x0158}
0x39c0…39e6 Head {h00=0x0022, h01=0x0050, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0024, t01=0x018e}
0x39e6…3a02 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0025, t01=0x0024}
0x3a02…3a0e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0040}
0x3a0e…3a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004c}
0x3a18…3a28 Head {h00=0x000c, h01=0x0050, text=»VARRNOK «, t00=0x0025, t01=0x0056}
0x3a28…3a4e Head {h00=0x0022, h01=0x0050, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0025, t01=0x0066}
0x3a4e…3a6a Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0025, t01=0x008c}
0x3a6a…3a76 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x00a8}
0x3a76…3a84 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x00b4}
0x3a84…3a92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00c2}
0x3a92…3a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d0}
0x3a9c…3ab0 Head {h00=0x0010, h01=0x0050, text=»VARWRT PROC «, t00=0x0025, t01=0x00da}
0x3ab0…3ac2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x00ee}
0x3ac2…3acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0100}
0x3acc…3b02 Head {h00=0x0032, h01=0x0050, text=»* PACK AND WRITE VARIABLE INFORMATION FOR «, t00=0x0025, t01=0x010a}
0x3b02…3b24 Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NO GTLEVNR «, t00=0x0025, t01=0x0140}
0x3b24…3b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0162}
0x3b2e…3b40 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x016c}
0x3b40…3b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b4a…3b66 Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CVARFLG «, t00=0x0025, t01=0x0188}
0x3b66…3b8e Head {h00=0x0024, h01=0x0050, text=»* PACK VARIABLE INFORMATION «, t00=0x0026, t01=0x0014}
0x3b8e…3bac Head {h00=0x001a, h01=0x0050, text=» MOVE CVARBUF,CBLANKS «, t00=0x0026, t01=0x003c}
0x3bac…3be2 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'0',=W'6',GTLEVNR,=W'0' «, t00=0x0026, t01=0x005a}
0x3be2…3c10 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN10) UDB DATO «, t00=0x0026, t01=0x0090}
0x3c10…3c44 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'6',=W'3',GSWBCD7,=W'4'«, t00=0x0026, t01=0x00be}
0x3c44…3c72 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN11) UDB BELOB«, t00=0x0026, t01=0x00f2}
0x3c72…3ca6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'9',=W'7',GSWBCD7,=W'0'«, t00=0x0026, t01=0x0120}
0x3ca6…3cd2 Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN12) UDB ]TD«, t00=0x0026, t01=0x0154}
0x3cd2…3d08 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'16',=W'7',GSWBCD7,=W'0' «, t00=0x0026, t01=0x0180}
0x3d08…3d38 Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN14) VENT DEBET «, t00=0x0027, t01=0x0026}
0x3d38…3d6e Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'23',=W'7',GSWBCD7,=W'0' «, t00=0x0027, t01=0x0056}
0x3d6e…3d9e Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN15) VENT KREDIT«, t00=0x0027, t01=0x008c}
0x3d9e…3dd4 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'30',=W'7',GSWBCD7,=W'0' «, t00=0x0027, t01=0x00bc}
0x3dd4…3e02 Head {h00=0x002a, h01=0x0050, text=» MOVE GSWBCD7,GTREGF(CBIN13) VAL DATO «, t00=0x0027, t01=0x00f2}
0x3e02…3e38 Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'37',=W'3',GSWBCD7,=W'4' «, t00=0x0027, t01=0x0120}
0x3e38…3e6e Head {h00=0x0032, h01=0x0050, text=» PERF XCOP,CVARBUF,=W'47',=W'2',GTTRKEY,=W'0' «, t00=0x0027, t01=0x0156}
0x3e6e…3e82 Head {h00=0x0010, h01=0x0050, text=»* WRITE «, t00=0x0027, t01=0x018c}
0x3e82…3eae Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0028, t01=0x0010}
0x3eae…3ecc Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0028, t01=0x003c}
0x3ecc…3ee6 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0028, t01=0x005a}
0x3ee6…3f06 Head {h00=0x001c, h01=0x0050, text=» BERR VARWNOK DISK ERROR«, t00=0x0028, t01=0x0074}
0x3f06…3f26 Head {h00=0x001c, h01=0x0050, text=» BNOK VARWNOK NOT FOUND «, t00=0x0028, t01=0x0094}
0x3f26…3f36 Head {h00=0x000c, h01=0x0050, text=» FOUND«, t00=0x0028, t01=0x00b4}
0x3f36…3f66 Head {h00=0x002c, h01=0x0050, text=» PERF RAWRIT,DK09,=D'9',CVARBUF,GSWBIN5 «, t00=0x0028, t01=0x00c4}
0x3f66…3f7c Head {h00=0x0012, h01=0x0050, text=» BNOK VARWNOK «, t00=0x0028, t01=0x00f4}
0x3f7c…3f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010a}
0x3f86…3fac Head {h00=0x0022, h01=0x0050, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0028, t01=0x0114}
0x3fac…3fc8 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0028, t01=0x013a}
0x3fc8…3fd4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0156}
0x3fd4…3fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fde…3fee Head {h00=0x000c, h01=0x0050, text=»VARWNOK «, t00=0x0028, t01=0x016c}
0x3fee…4014 Head {h00=0x0022, h01=0x0050, text=» CLEAR CVARFLG RELEASE BUFFER «, t00=0x0028, t01=0x017c}
0x4014…4030 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0029, t01=0x0012}
0x4030…403c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x002e}
0x403c…404a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x003a}
0x404a…4058 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0048}
0x4058…4062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0056}
0x4062…4076 Head {h00=0x0010, h01=0x0050, text=»VARINT PROC «, t00=0x0029, t01=0x0060}
0x4076…4088 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0074}
0x4088…4092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0086}
0x4092…40ba Head {h00=0x0024, h01=0x0050, text=»* INITIATE VARIABLE INFO FOR«, t00=0x0029, t01=0x0090}
0x40ba…40dc Head {h00=0x001e, h01=0x0050, text=»* LEVERAND NR GTLEVNR «, t00=0x0029, t01=0x00b8}
0x40dc…40e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00da}
0x40e6…40f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00e4}
0x40f8…4124 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN10),=D'0' UDB DATO «, t00=0x0029, t01=0x00f6}
0x4124…4150 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN11),=D'0' UDB BELOB«, t00=0x0029, t01=0x0122}
0x4150…417a Head {h00=0x0026, h01=0x0050, text=» MOVE GTREGF(CBIN12),=D'0' UDB ]TD«, t00=0x0029, t01=0x014e}
0x417a…41a8 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN14),=D'0' VENT DEBET «, t00=0x0029, t01=0x0178}
0x41a8…41d6 Head {h00=0x002a, h01=0x0050, text=» MOVE GTREGF(CBIN15),=D'0' VENT KREDIT«, t00=0x002a, t01=0x0016}
0x41d6…4202 Head {h00=0x0028, h01=0x0050, text=» MOVE GTREGF(CBIN13),=D'0' VAL DATO «, t00=0x002a, t01=0x0044}
0x4202…422c Head {h00=0x0026, h01=0x0050, text=» MOVE GTTRKEY,CBIN0 TRANS POINTER «, t00=0x002a, t01=0x0070}
0x422c…4238 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x009a}
0x4238…4246 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x00a6}
0x4246…4254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00b4}
0x4254…425c Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00c2}
0x425c…4264 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00ca}
0x4264…428a Head {h00=0x0022, h01=0x0050, text=»IDXGET PROC LEVNR,INDX,LEVDEX «, t00=0x002a, t01=0x00d2}
0x428a…42be Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x002a, t01=0x00f8}
0x42be…42c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012c}
0x42c8…42fa Head {h00=0x002e, h01=0x0050, text=»* PROCEDURE FOR SEARCHING IN INDEXFILE FOR«, t00=0x002a, t01=0x0136}
0x42fa…4312 Head {h00=0x0014, h01=0x0050, text=»* A GIVE LEVNO. «, t00=0x002a, t01=0x0168}
0x4312…431c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0180}
0x431c…4350 Head {h00=0x0030, h01=0x0050, text=»* IF FOUND - CONDITION REGISTER IS SET TO OK«, t00=0x002a, t01=0x018a}
0x4350…4380 Head {h00=0x002c, h01=0x0050, text=»* INDX INDEX IN INDEXFILE «, t00=0x002b, t01=0x002e}
0x4380…43a6 Head {h00=0x0022, h01=0x0050, text=»* LEVDEX INDEX LEV«, t00=0x002b, t01=0x005e}
0x43a6…43b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0084}
0x43b0…43ee Head {h00=0x003a, h01=0x0050, text=»* IF NOT FOUND - CONDITION REGISTER IS SET TO NOK = 1 «, t00=0x002b, t01=0x008e}
0x43ee…4424 Head {h00=0x0032, h01=0x0050, text=»* INDX INDEX TO PLACE TO INSERT «, t00=0x002b, t01=0x00cc}
0x4424…4444 Head {h00=0x001c, h01=0x0050, text=»* LEVDEX 0 «, t00=0x002b, t01=0x0102}
0x4444…444e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0122}
0x444e…448a Head {h00=0x0038, h01=0x0050, text=»* IF DISKERR - CONDITION REGISTER IS SET TO ERR = 2«, t00=0x002b, t01=0x012c}
0x448a…44a8 Head {h00=0x001a, h01=0x0050, text=»* INDEX 0«, t00=0x002b, t01=0x0168}
0x44a8…44c8 Head {h00=0x001c, h01=0x0050, text=»* LEVDEX =0«, t00=0x002b, t01=0x0186}
0x44c8…44d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0016}
0x44d2…4506 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x002c, t01=0x0020}
0x4506…4528 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 GROUP «, t00=0x002c, t01=0x0054}
0x4528…454a Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 RECORD«, t00=0x002c, t01=0x0076}
0x454a…455a Head {h00=0x000c, h01=0x0050, text=»IGET010 «, t00=0x002c, t01=0x0098}
0x455a…4576 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,=W'48' «, t00=0x002c, t01=0x00a8}
0x4576…45a2 Head {h00=0x0028, h01=0x0050, text=» ADD GSWBIN5,CBIN1 ASEARCH FOR GROUP«, t00=0x002c, t01=0x00c4}
0x45a2…45d8 Head {h00=0x0032, h01=0x0050, text=» CBG GSWBIN4,CIXLAST,IGET020 RETURN NOT FOUND «, t00=0x002c, t01=0x00f0}
0x45d8…4616 Head {h00=0x003a, h01=0x0050, text=» CBL CIXINDX(GSWBIN5),=D'1',IGET020 RETURN, NOT FOUND «, t00=0x002c, t01=0x0126}
0x4616…4652 Head {h00=0x0038, h01=0x0050, text=» CBL CIXINDX(GSWBIN5),LEVNR,IGET010 KNTNO < MASTER ?«, t00=0x002c, t01=0x0164}
0x4652…466e Head {h00=0x0018, h01=0x0050, text=» B IGET030 TRY NEXT «, t00=0x002d, t01=0x0010}
0x466e…468a Head {h00=0x0018, h01=0x0050, text=»IGET020 NOT FOUND «, t00=0x002d, t01=0x002c}
0x468a…46b4 Head {h00=0x0026, h01=0x0050, text=» MOVE INDX,CIXFREE PLACE TO INSERT«, t00=0x002d, t01=0x0048}
0x46b4…46ce Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x002d, t01=0x0072}
0x46ce…46ea Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x002d, t01=0x008c}
0x46ea…46f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00a8}
0x46f6…46fe Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00b4}
0x46fe…471c Head {h00=0x001a, h01=0x0050, text=»IGET030 GROUP FOUND «, t00=0x002d, t01=0x00bc}
0x471c…473e Head {h00=0x001e, h01=0x0050, text=» LEVNR WITHIN THIS GROUP«, t00=0x002d, t01=0x00da}
0x473e…4756 Head {h00=0x0014, h01=0x0050, text=» GROUP GSWBIN5«, t00=0x002d, t01=0x00fc}
0x4756…4772 Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,=W'48' «, t00=0x002d, t01=0x0114}
0x4772…478e Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CIDXFLG «, t00=0x002d, t01=0x0130}
0x478e…47bc Head {h00=0x002a, h01=0x0050, text=»* FIND INDEX, USING BINARY SEARCH «, t00=0x002d, t01=0x014c}
0x47bc…47e4 Head {h00=0x0024, h01=0x0050, text=»IGET100 INITIATE BINARY SEARCH«, t00=0x002d, t01=0x017a}
0x47e4…4816 Head {h00=0x002e, h01=0x0050, text=» MOVE GTSCHLOW,CBIN1 LOWER LIMIT- GTSCHLOW«, t00=0x002e, t01=0x0012}
0x4816…484a Head {h00=0x0030, h01=0x0050, text=» MOVE GTSCHHGH,=W'48' UPPER LIMIT - GTSCHHGH«, t00=0x002e, t01=0x0044}
0x484a…485a Head {h00=0x000c, h01=0x0050, text=»IGET110 «, t00=0x002e, t01=0x0078}
0x485a…4898 Head {h00=0x003a, h01=0x0050, text=» CBL GTSCHHGH,GTSCHLOW,IGETNOK1 UPPER<LOWER, NOT FOUND«, t00=0x002e, t01=0x0088}
0x4898…48c4 Head {h00=0x0028, h01=0x0050, text=» MOVE GTSCHMID,GTSCHLOW INDEX=LOWER «, t00=0x002e, t01=0x00c6}
0x48c4…48ec Head {h00=0x0024, h01=0x0050, text=» ADD GTSCHMID,GTSCHHGH ADD UPPER«, t00=0x002e, t01=0x00f2}
0x48ec…4916 Head {h00=0x0026, h01=0x0050, text=» DIV GTSCHMID,CBIN2 FIND MIDPOINT «, t00=0x002e, t01=0x011a}
0x4916…493e Head {h00=0x0024, h01=0x0050, text=»* READ LEV INFO, TO GSWBCD7 «, t00=0x002e, t01=0x0144}
0x493e…4972 Head {h00=0x0030, h01=0x0050, text=» ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER «, t00=0x002e, t01=0x016c}
0x4972…4992 Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 SIZE«, t00=0x002f, t01=0x0010}
0x4992…49ae Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x002f, t01=0x0030}
0x49ae…49e4 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x002f, t01=0x004c}
0x49e4…49fa Head {h00=0x0012, h01=0x0050, text=» BNOK IGET300 «, t00=0x002f, t01=0x0082}
0x49fa…4a1e Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x002f, t01=0x0098}
0x4a1e…4a3a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x002f, t01=0x00bc}
0x4a3a…4a6c Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 «, t00=0x002f, t01=0x00d8}
0x4a6c…4aa2 Head {h00=0x0032, h01=0x0050, text=» CBNE GSWBCD7,=D'2020202020',IGET115 FNISHED? «, t00=0x002f, t01=0x010a}
0x4aa2…4ad4 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBCD7,=D'9999999999' SET HIGHVALUE«, t00=0x002f, t01=0x0140}
0x4ad4…4ae4 Head {h00=0x000c, h01=0x0050, text=»IGET115 «, t00=0x002f, t01=0x0172}
0x4ae4…4b1a Head {h00=0x0032, h01=0x0050, text=» SUB GSWBIN4,GTSCHMID GSWBIN4= START OF SECTOR«, t00=0x002f, t01=0x0182}
0x4b1a…4b34 Head {h00=0x0016, h01=0x0050, text=» CMP GSWBCD7,LEVNR«, t00=0x0030, t01=0x0028}
0x4b34…4b4e Head {h00=0x0016, h01=0x0050, text=» BE IGET200 FOUND «, t00=0x0030, t01=0x0042}
0x4b4e…4b6c Head {h00=0x001a, h01=0x0050, text=» BL IGET130 LOOK DOWN «, t00=0x0030, t01=0x005c}
0x4b6c…4b88 Head {h00=0x0018, h01=0x0050, text=» BG IGET120 LOOK UP «, t00=0x0030, t01=0x007a}
0x4b88…4b98 Head {h00=0x000c, h01=0x0050, text=»IGET120 «, t00=0x0030, t01=0x0096}
0x4b98…4bce Head {h00=0x0032, h01=0x0050, text=» MOVE GTSCHHGH,GTSCHMID MOVE MIDPOINT TO UPPER«, t00=0x0030, t01=0x00a6}
0x4bce…4bec Head {h00=0x001a, h01=0x0050, text=» SUB GTSCHHGH,CBIN1 -1«, t00=0x0030, t01=0x00dc}
0x4bec…4bfe Head {h00=0x000e, h01=0x0050, text=» B IGET110«, t00=0x0030, t01=0x00fa}
0x4bfe…4c0e Head {h00=0x000c, h01=0x0050, text=»IGET130 «, t00=0x0030, t01=0x010c}
0x4c0e…4c44 Head {h00=0x0032, h01=0x0050, text=» MOVE GTSCHLOW,GTSCHMID MOVE MIDPOINT TO LOWER«, t00=0x0030, t01=0x011c}
0x4c44…4c62 Head {h00=0x001a, h01=0x0050, text=» ADD GTSCHLOW,CBIN1 +1«, t00=0x0030, t01=0x0152}
0x4c62…4c74 Head {h00=0x000e, h01=0x0050, text=» B IGET110«, t00=0x0030, t01=0x0170}
0x4c74…4c8c Head {h00=0x0014, h01=0x0050, text=»IGET200 FOUND«, t00=0x0030, t01=0x0182}
0x4c8c…4cc0 Head {h00=0x0030, h01=0x0050, text=» ADD GSWBIN4,GTSCHMID GSWBIN4=RECORD NUMBER «, t00=0x0031, t01=0x000a}
0x4cc0…4ce4 Head {h00=0x0020, h01=0x0050, text=» MOVE INDX,GSWBIN4 SET INDEX«, t00=0x0031, t01=0x003e}
0x4ce4…4d00 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x0031, t01=0x0062}
0x4d00…4d32 Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBIN5,CBIN0,CBIN2,CIXBUF,GSWBIN1 «, t00=0x0031, t01=0x007e}
0x4d32…4d5c Head {h00=0x0026, h01=0x0050, text=» MOVE LEVDEX,GSWBIN5 SET LEV INDX «, t00=0x0031, t01=0x00b0}
0x4d5c…4d82 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0031, t01=0x00da}
0x4d82…4da4 Head {h00=0x001e, h01=0x0050, text=» CMP CBIN0,CBIN0 RETURN OK«, t00=0x0031, t01=0x0100}
0x4da4…4db0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x0122}
0x4db0…4db8 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x012e}
0x4db8…4dc8 Head {h00=0x000c, h01=0x0050, text=»IGETNOK1«, t00=0x0031, t01=0x0136}
0x4dc8…4dfe Head {h00=0x0032, h01=0x0050, text=» ADD GSWBIN4,GTSCHLOW RECORD NUMBER FOR INSERT«, t00=0x0031, t01=0x0146}
0x4dfe…4e18 Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x0031, t01=0x017c}
0x4e18…4e42 Head {h00=0x0026, h01=0x0050, text=» MOVE INDX,GSWBIN4 PLACE TO INSERT«, t00=0x0032, t01=0x0008}
0x4e42…4e68 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0032, t01=0x0032}
0x4e68…4e84 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0032, t01=0x0058}
0x4e84…4e90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x0074}
0x4e90…4eb0 Head {h00=0x001c, h01=0x0050, text=»IGET300 SET COND = ERR«, t00=0x0032, t01=0x0080}
0x4eb0…4eca Head {h00=0x0016, h01=0x0050, text=» MOVE LEVDEX,CBIN0«, t00=0x0032, t01=0x00a0}
0x4eca…4ee2 Head {h00=0x0014, h01=0x0050, text=» MOVE INDX,CBIN0«, t00=0x0032, t01=0x00ba}
0x4ee2…4f08 Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0032, t01=0x00d2}
0x4f08…4f20 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0032, t01=0x00f8}
0x4f20…4f2c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x0110}
0x4f2c…4f3a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x011c}
0x4f3a…4f42 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x012a}
0x4f42…4f50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0132}
0x4f50…4f64 Head {h00=0x0010, h01=0x0050, text=»IDXINS PROC «, t00=0x0032, t01=0x0140}
0x4f64…4f76 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0154}
0x4f76…4f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0166}
0x4f80…4faa Head {h00=0x0026, h01=0x0050, text=»* INSERT GTLEVNR IN INDEXFILE «, t00=0x0032, t01=0x0170}
0x4faa…4fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x000a}
0x4fb4…4fc6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x0014}
0x4fc6…4ff2 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0033, t01=0x0026}
0x4ff2…5010 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0033, t01=0x0052}
0x5010…502a Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0033, t01=0x0070}
0x502a…504a Head {h00=0x001c, h01=0x0050, text=» BERR XINSNOK DISK ERROR«, t00=0x0033, t01=0x008a}
0x504a…506e Head {h00=0x0020, h01=0x0050, text=» BOK XINSNOK ALREADY PRESENT«, t00=0x0033, t01=0x00aa}
0x506e…508e Head {h00=0x001c, h01=0x0050, text=»* NOT FOUND, INSERT «, t00=0x0033, t01=0x00ce}
0x508e…50aa Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CIDXFLG «, t00=0x0033, t01=0x00ee}
0x50aa…50d6 Head {h00=0x0028, h01=0x0050, text=» CBG CIXFREE,CIXLAST,XINSNOK NO ROOM«, t00=0x0033, t01=0x010a}
0x50d6…5108 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN8,GSWBIN4 PLACE FOR INSERTION «, t00=0x0033, t01=0x0136}
0x5108…5124 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0033, t01=0x0168}
0x5124…515a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,CIXFREE«, t00=0x0033, t01=0x0184}
0x515a…518e Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBIN7,=W'0',=W'2',CIXBUF,=W'5' «, t00=0x0034, t01=0x002a}
0x518e…51ba Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN4,CIXFREE START OF LOOP «, t00=0x0034, t01=0x005e}
0x51ba…51e4 Head {h00=0x0026, h01=0x0050, text=» ADD CIXFREE,CBIN1 NEW FIRST FREE «, t00=0x0034, t01=0x008a}
0x51e4…51ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b4}
0x51ee…51fe Head {h00=0x000c, h01=0x0050, text=»XINS100 «, t00=0x0034, t01=0x00be}
0x51fe…522c Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,CBIN1 RECORD TO BE MOVED «, t00=0x0034, t01=0x00ce}
0x522c…525c Head {h00=0x002c, h01=0x0050, text=» CBL GSWBIN4,GSWBIN8,XINS200 ALL MOVED? «, t00=0x0034, t01=0x00fc}
0x525c…526a Head {h00=0x000a, h01=0x0050, text=» NO.«, t00=0x0034, t01=0x012c}
0x526a…5286 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0034, t01=0x013a}
0x5286…52bc Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x0034, t01=0x0156}
0x52bc…52d2 Head {h00=0x0012, h01=0x0050, text=» BNOK XINSNOK «, t00=0x0034, t01=0x018c}
0x52d2…52ec Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0035, t01=0x0012}
0x52ec…531a Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x0035, t01=0x002c}
0x531a…5330 Head {h00=0x0012, h01=0x0050, text=» BNOK XINSNOK «, t00=0x0035, t01=0x005a}
0x5330…5358 Head {h00=0x0024, h01=0x0050, text=» PERF RESTIX RESET MASTER INDEX «, t00=0x0035, t01=0x0070}
0x5358…5372 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x0035, t01=0x0098}
0x5372…5384 Head {h00=0x000e, h01=0x0050, text=» B XINS100«, t00=0x0035, t01=0x00b2}
0x5384…538e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c4}
0x538e…539e Head {h00=0x000c, h01=0x0050, text=»XINS200 «, t00=0x0035, t01=0x00ce}
0x539e…53ca Head {h00=0x0028, h01=0x0050, text=»* ALL MOVED, INSERT LEVNR+INDEX «, t00=0x0035, t01=0x00de}
0x53ca…53fe Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CIXBUF,=W'0',=W'5',GTLEVNR,=W'1' «, t00=0x0035, t01=0x010a}
0x53fe…5432 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' «, t00=0x0035, t01=0x013e}
0x5432…5460 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN8«, t00=0x0035, t01=0x0172}
0x5460…5492 Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN8 PLACE FOR INSERTION «, t00=0x0036, t01=0x0010}
0x5492…54a6 Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x0036, t01=0x0042}
0x54a6…54cc Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0036, t01=0x0056}
0x54cc…54e8 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0036, t01=0x007c}
0x54e8…54f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x0098}
0x54f4…5504 Head {h00=0x000c, h01=0x0050, text=»XINSNOK «, t00=0x0036, t01=0x00a4}
0x5504…552a Head {h00=0x0022, h01=0x0050, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0036, t01=0x00b4}
0x552a…5546 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0036, t01=0x00da}
0x5546…5552 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x00f6}
0x5552…5560 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0102}
0x5560…556a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0110}
0x556a…5578 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x011a}
0x5578…558c Head {h00=0x0010, h01=0x0050, text=»SETIDX PROC «, t00=0x0036, t01=0x0128}
0x558c…55ba Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0036, t01=0x013c}
0x55ba…55c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016a}
0x55c4…55f4 Head {h00=0x002c, h01=0x0050, text=»* INITIATE MASTER INDEX FOR LEV-REGISTER«, t00=0x0036, t01=0x0174}
0x55f4…5624 Head {h00=0x002c, h01=0x0050, text=»* IF INDEX EMPTY, SET UP ALL ENTRIES AND«, t00=0x0037, t01=0x0014}
0x5624…5646 Head {h00=0x001e, h01=0x0050, text=»* INITIATE SPECIAL ENTRIES«, t00=0x0037, t01=0x0044}
0x5646…5650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0066}
0x5650…5664 Head {h00=0x0010, h01=0x0050, text=»* SETS: «, t00=0x0037, t01=0x0070}
0x5664…568c Head {h00=0x0024, h01=0x0050, text=»* CIXLAST - LAST RECORD NO. «, t00=0x0037, t01=0x0084}
0x568c…56b4 Head {h00=0x0024, h01=0x0050, text=»* CIXFREE - FIRST FREE ENTRY«, t00=0x0037, t01=0x00ac}
0x56b4…56be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d4}
0x56be…56ec Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0037, t01=0x00de}
0x56ec…56f4 Head {h00=0x0004, h01=0x0050, t00=0x0037, t01=0x010c}
0x56f4…5710 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x0037, t01=0x0114}
0x5710…572c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x0037, t01=0x0130}
0x572c…5748 Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x0037, t01=0x014c}
0x5748…577e Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x0037, t01=0x0168}
0x577e…57aa Head {h00=0x0028, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX005 NO DATA ?«, t00=0x0038, t01=0x000e}
0x57aa…57c6 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0038, t01=0x003a}
0x57c6…580a Head {h00=0x0040, h01=0x0050, text=» MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 1.LEV=BLANK «, t00=0x0038, t01=0x0056}
0x580a…581e Head {h00=0x0010, h01=0x0050, text=» BE SIDX005 «, t00=0x0038, t01=0x009a}
0x581e…583a Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0038, t01=0x00ae}
0x583a…585a Head {h00=0x001c, h01=0x0050, text=» MOVE GSWBCD7,=D'1' > 0 «, t00=0x0038, t01=0x00ca}
0x585a…5896 Head {h00=0x0038, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET 1. LEV«, t00=0x0038, t01=0x00ea}
0x5896…58c8 Head {h00=0x002e, h01=0x0050, text=» CBNE GSWBCD7,=D'1',SIDX005 IF NOT LEVNR 1«, t00=0x0038, t01=0x0126}
0x58c8…58da Head {h00=0x000e, h01=0x0050, text=» B SIDX100«, t00=0x0038, t01=0x0158}
0x58da…5900 Head {h00=0x0022, h01=0x0050, text=»SIDX005 INITIATE INDEX FILE «, t00=0x0038, t01=0x016a}
0x5900…5930 Head {h00=0x002c, h01=0x0050, text=»* INITIATE INDEX FILE WITH BLANK ENTRIES«, t00=0x0038, t01=0x0190}
0x5930…594c Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0039, t01=0x0030}
0x594c…595c Head {h00=0x000c, h01=0x0050, text=»SIDX050 «, t00=0x0039, t01=0x004c}
0x595c…597a Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN4 «, t00=0x0039, t01=0x005c}
0x597a…599c Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x0039, t01=0x007a}
0x599c…59b6 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x0039, t01=0x009c}
0x59b6…59e0 Head {h00=0x0026, h01=0x0050, text=» MOVE CIXBUF,CBLANKS CLEAR BUFFER «, t00=0x0039, t01=0x00b6}
0x59e0…59fc Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0039, t01=0x00e0}
0x59fc…5a38 Head {h00=0x0038, h01=0x0050, text=» XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN4,GSWBIN5 SET INDEX «, t00=0x0039, t01=0x00fc}
0x5a38…5a66 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x0039, t01=0x0138}
0x5a66…5a7a Head {h00=0x0010, h01=0x0050, text=» BOK SIDX050«, t00=0x0039, t01=0x0166}
0x5a7a…5a9e Head {h00=0x0020, h01=0x0050, text=»* OK, FIRST LEV = 0000000000«, t00=0x0039, t01=0x017a}
0x5a9e…5aca Head {h00=0x0028, h01=0x0050, text=»* LOOP THROUGH INDEX FILE TO SET UP «, t00=0x003a, t01=0x000e}
0x5aca…5af6 Head {h00=0x0028, h01=0x0050, text=»* MASTER INDEX IN CORE, AND TO FIND «, t00=0x003a, t01=0x003a}
0x5af6…5b12 Head {h00=0x0018, h01=0x0050, text=»* SIZE OF INDEX FILE«, t00=0x003a, t01=0x0066}
0x5b12…5b22 Head {h00=0x000c, h01=0x0050, text=»SIDX100 «, t00=0x003a, t01=0x0082}
0x5b22…5b3e Head {h00=0x0018, h01=0x0050, text=» MOVE CIXLAST,CBIN0 «, t00=0x003a, t01=0x0092}
0x5b3e…5b5a Head {h00=0x0018, h01=0x0050, text=» MOVE CIXFREE,CBIN0 «, t00=0x003a, t01=0x00ae}
0x5b5a…5b76 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN1 «, t00=0x003a, t01=0x00ca}
0x5b76…5b86 Head {h00=0x000c, h01=0x0050, text=»SIDX110 «, t00=0x003a, t01=0x00e6}
0x5b86…5ba4 Head {h00=0x001a, h01=0x0050, text=» MOVE GTWBCD2,GSWBIN4 «, t00=0x003a, t01=0x00f6}
0x5ba4…5bc6 Head {h00=0x001e, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 «, t00=0x003a, t01=0x0114}
0x5bc6…5be2 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x003a, t01=0x0136}
0x5be2…5bfe Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x003a, t01=0x0152}
0x5bfe…5c40 Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4 READ RECORD«, t00=0x003a, t01=0x016e}
0x5c40…5c70 Head {h00=0x002c, h01=0x0050, text=» CBE GTWBCD1,=D'4',SIDX130 FILE EXPANDED«, t00=0x003b, t01=0x0020}
0x5c70…5ca2 Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'10',SIDX130 END OF DEVICE «, t00=0x003b, t01=0x0050}
0x5ca2…5cbe Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x003b, t01=0x0082}
0x5cbe…5cf6 Head {h00=0x0034, h01=0x0050, text=» MATCH CIXBUF,GSWBIN5,CBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x003b, t01=0x009e}
0x5cf6…5d14 Head {h00=0x001a, h01=0x0050, text=» BE SIDX130 FIRST FREE«, t00=0x003b, t01=0x00d6}
0x5d14…5d28 Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x003b, t01=0x00f4}
0x5d28…5d42 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x003b, t01=0x0108}
0x5d42…5d54 Head {h00=0x000e, h01=0x0050, text=» B SIDX110«, t00=0x003b, t01=0x0122}
0x5d54…5d72 Head {h00=0x001a, h01=0x0050, text=»SIDX130 BLANK OR EOF«, t00=0x003b, t01=0x0134}
0x5d72…5da0 Head {h00=0x002a, h01=0x0050, text=» MOVE CIXFREE,GSWBIN4 FIRST FREE ENTRY«, t00=0x003b, t01=0x0152}
0x5da0…5dca Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN4,CBIN1 LAST USED ENTRY«, t00=0x003b, t01=0x0180}
0x5dca…5dec Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN4,CBIN0,SIDX140«, t00=0x003c, t01=0x001a}
0x5dec…5e08 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN7 «, t00=0x003c, t01=0x003c}
0x5e08…5e24 Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x003c, t01=0x0058}
0x5e24…5e5a Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN5,GSWBIN4«, t00=0x003c, t01=0x0074}
0x5e5a…5e6a Head {h00=0x000c, h01=0x0050, text=»SIDX140 «, t00=0x003c, t01=0x00aa}
0x5e6a…5e7e Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x003c, t01=0x00ba}
0x5e7e…5e92 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x003c, t01=0x00ce}
0x5e92…5ea6 Head {h00=0x0010, h01=0x0050, text=» PERF INITIX«, t00=0x003c, t01=0x00e2}
0x5ea6…5eb2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x00f6}
0x5eb2…5ec0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003c, t01=0x0102}
0x5ec0…5ece Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0110}
0x5ece…5ee2 Head {h00=0x0010, h01=0x0050, text=»IDXDEL PROC «, t00=0x003c, t01=0x011e}
0x5ee2…5ef4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x0132}
0x5ef4…5efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0144}
0x5efe…5f2a Head {h00=0x0028, h01=0x0050, text=»* DELETE ALL ENTRIES FOR LEV NR.«, t00=0x003c, t01=0x014e}
0x5f2a…5f44 Head {h00=0x0016, h01=0x0050, text=»* GTLEVNR, IN «, t00=0x003c, t01=0x017a}
0x5f44…5f70 (61, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* INDEXFILE, STAM, AND VAR FILE «, t00=0x003d, t01=0x0004}
0x5f70…5f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0030}
0x5f7a…5f8c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x003a}
0x5f8c…5f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004c}
0x5f96…5fc2 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x003d, t01=0x0056}
0x5fc2…5fe0 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDX «, t00=0x003d, t01=0x0082}
0x5fe0…5ffa Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x003d, t01=0x00a0}
0x5ffa…601a Head {h00=0x001c, h01=0x0050, text=» BERR XDELNOK DISK ERROR«, t00=0x003d, t01=0x00ba}
0x601a…603a Head {h00=0x001c, h01=0x0050, text=» BNOK XDELNOK NOT FOUND «, t00=0x003d, t01=0x00da}
0x603a…604e Head {h00=0x0010, h01=0x0050, text=»* FOUND «, t00=0x003d, t01=0x00fa}
0x604e…606a Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CIDXFLG «, t00=0x003d, t01=0x010e}
0x606a…609c Head {h00=0x002e, h01=0x0050, text=» PERF RADEL,DK08,GSWBIN5 DELETE STAMRECORD«, t00=0x003d, t01=0x012a}
0x609c…60ce Head {h00=0x002e, h01=0x0050, text=» PERF RADEL,DK09,GSWBIN5 DELETE VAR RECORD«, t00=0x003d, t01=0x015c}
0x60ce…60d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018e}
0x60d8…6102 Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN7,GSWBIN5 KEEP LEVDEX «, t00=0x003e, t01=0x0008}
0x6102…6112 Head {h00=0x000c, h01=0x0050, text=»XDEL100 «, t00=0x003e, t01=0x0032}
0x6112…6140 Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,CBIN1 NEXT RECORD TO MOVE«, t00=0x003e, t01=0x0042}
0x6140…6166 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,XDEL200 «, t00=0x003e, t01=0x0070}
0x6166…6188 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 LENGTH«, t00=0x003e, t01=0x0096}
0x6188…61be Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x003e, t01=0x00b8}
0x61be…61d4 Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x003e, t01=0x00ee}
0x61d4…61fc Head {h00=0x0024, h01=0x0050, text=» SUB GSWBIN4,CBIN1 WHERE TO MOVE«, t00=0x003e, t01=0x0104}
0x61fc…622a Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN4«, t00=0x003e, t01=0x012c}
0x622a…6240 Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x003e, t01=0x015a}
0x6240…6254 Head {h00=0x0010, h01=0x0050, text=» PERF RESTIX«, t00=0x003e, t01=0x0170}
0x6254…626e Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x003e, t01=0x0184}
0x626e…6280 Head {h00=0x000e, h01=0x0050, text=» B XDEL100«, t00=0x003f, t01=0x000e}
0x6280…628a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0020}
0x628a…62ac Head {h00=0x001e, h01=0x0050, text=»XDEL200 INSERT NEW FREE «, t00=0x003f, t01=0x002a}
0x62ac…62c6 Head {h00=0x0016, h01=0x0050, text=» SUB CIXFREE,CBIN1«, t00=0x003f, t01=0x004c}
0x62c6…62e2 Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x003f, t01=0x0066}
0x62e2…6316 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,CIXBUF,=W'5',=W'2',GSWBIN7,=W'0' «, t00=0x003f, t01=0x0082}
0x6316…6344 Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,CIXFREE«, t00=0x003f, t01=0x00b6}
0x6344…6362 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,CIXFREE «, t00=0x003f, t01=0x00e4}
0x6362…637c Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN4,CBIN1«, t00=0x003f, t01=0x0102}
0x637c…6398 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x003f, t01=0x011c}
0x6398…63ce Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x003f, t01=0x0138}
0x63ce…63e4 Head {h00=0x0012, h01=0x0050, text=» BNOK XDELNOK «, t00=0x003f, t01=0x016e}
0x63e4…640a Head {h00=0x0022, h01=0x0050, text=»* LAST USED HAS BEEN READ «, t00=0x003f, t01=0x0184}
0x640a…641e Head {h00=0x0010, h01=0x000c, text=» PERF RESTIX«, t00=0x0040, t01=0x001a}
0x641e…6444 Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0040, t01=0x002e}
0x6444…6460 Head {h00=0x0018, h01=0x0013, text=» CMP CBIN0,CBIN0 OK «, t00=0x0040, t01=0x0054}
0x6460…646c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0040, t01=0x0070}
0x646c…6476 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x007c}
0x6476…6486 Head {h00=0x000c, h01=0x0007, text=»XDELNOK «, t00=0x0040, t01=0x0086}
0x6486…64ac Head {h00=0x0022, h01=0x001d, text=» CLEAR CIDXFLG RELEASE BUFFER «, t00=0x0040, t01=0x0096}
0x64ac…64c8 Head {h00=0x0018, h01=0x0014, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0040, t01=0x00bc}
0x64c8…64d4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0040, t01=0x00d8}
0x64d4…64e2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0040, t01=0x00e4}
0x64e2…64f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x00f2}
0x64f0…64f8 Head {h00=0x0004, h01=0x0000, t00=0x0040, t01=0x0100}
0x64f8…650c Head {h00=0x0010, h01=0x000b, text=»RESTIX PROC «, t00=0x0040, t01=0x0108}
0x650c…6542 Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0040, t01=0x011c}
0x6542…654c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x0152}
0x654c…6556 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0040, t01=0x015c}
0x6556…658c Head {h00=0x0032, h01=0x002e, text=»**********************************************«, t00=0x0040, t01=0x0166}
0x658c…6594 Head {h00=0x0004, h01=0x0001, t00=0x0041, t01=0x000c}
0x6594…65c0 Head {h00=0x0028, h01=0x0023, text=» MOVE GSWBIN3,GSWBIN4 FIND GROUP NO «, t00=0x0041, t01=0x0014}
0x65c0…65dc Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN3,=W'47' «, t00=0x0041, t01=0x0040}
0x65dc…660a Head {h00=0x002a, h01=0x0050, text=» DIV GSWBIN3,=W'48' GSWBIN3 = GROUP NO«, t00=0x0041, t01=0x005c}
0x660a…662e Head {h00=0x0020, h01=0x0050, text=» SUB CIXFREE,CBIN1 LAST USED«, t00=0x0041, t01=0x008a}
0x662e…665c Head {h00=0x002a, h01=0x0050, text=» CBE GSWBIN4,CIXFREE,RIX090 LAST USED «, t00=0x0041, t01=0x00ae}
0x665c…6682 Head {h00=0x0022, h01=0x0050, text=» ADD CIXFREE,CBIN1 FIRST FREE «, t00=0x0041, t01=0x00dc}
0x6682…66b8 Head {h00=0x0032, h01=0x002e, text=» CBE GSWBIN4,CIXLAST,RIX100 LAST RECORD ? JUMP«, t00=0x0041, t01=0x0102}
0x66b8…66e6 Head {h00=0x002a, h01=0x0025, text=» MOVE GSWBIN5,GSWBIN3 LAST IN GROUP ? «, t00=0x0041, t01=0x0138}
0x66e6…6702 Head {h00=0x0018, h01=0x0050, text=» MUL GSWBIN5,=W'48' «, t00=0x0041, t01=0x0166}
0x6702…671e Head {h00=0x0018, h01=0x0014, text=» SUB GSWBIN5,GSWBIN4«, t00=0x0041, t01=0x0182}
0x671e…674c Head {h00=0x002a, h01=0x0025, text=» BNE RIXOK FINISHIF NOT LAST IN GROUP «, t00=0x0042, t01=0x000e}
0x674c…6776 Head {h00=0x0026, h01=0x0021, text=» MOVE GSWBIN5,CBIN0 LAST IN GROUP «, t00=0x0042, t01=0x003c}
0x6776…679e Head {h00=0x0024, h01=0x0020, text=» MOVE GSWBCD7,=D'1' SET SIGN = +«, t00=0x0042, t01=0x0066}
0x679e…67dc Head {h00=0x003a, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 GET LAST NO «, t00=0x0042, t01=0x008e}
0x67dc…6802 Head {h00=0x0022, h01=0x001e, text=» MOVE CIXINDX(GSWBIN3),GSWBCD7«, t00=0x0042, t01=0x00cc}
0x6802…6812 Head {h00=0x000c, h01=0x0008, text=» B RIXOK«, t00=0x0042, t01=0x00f2}
0x6812…6820 Head {h00=0x000a, h01=0x0050, text=»RIX090«, t00=0x0042, t01=0x0102}
0x6820…6846 Head {h00=0x0022, h01=0x0050, text=» ADD CIXFREE,CBIN1 FIRST FREE «, t00=0x0042, t01=0x0110}
0x6846…6854 Head {h00=0x000a, h01=0x0006, text=»RIX100«, t00=0x0042, t01=0x0136}
0x6854…6876 Head {h00=0x001e, h01=0x0050, text=» CBE GSWBIN3,CBIN0,RIX120 «, t00=0x0042, t01=0x0144}
0x6876…68a2 Head {h00=0x0028, h01=0x0024, text=» MOVE GSWBIN5,CBIN0 SET LAST USED NO«, t00=0x0042, t01=0x0166}
0x68a2…68ca (67, 0, 400) Head {h00=0x0024, h01=0x0020, text=» MOVE GSWBCD7,=D'1' SET SIGN = +«, t00=0x0043, t01=0x0004}
0x68ca…68fc Head {h00=0x002e, h01=0x0050, text=» XCOPY GSWBCD7,CBIN2,CBIN5,CIXBUF,GSWBIN5 «, t00=0x0043, t01=0x002c}
0x68fc…6934 Head {h00=0x0034, h01=0x002f, text=» MOVE CIXINDX(GSWBIN3),GSWBCD7 SET MASTER INDEX «, t00=0x0043, t01=0x005e}
0x6934…695a Head {h00=0x0022, h01=0x001e, text=»RIX120 SET REMAINING INDICES«, t00=0x0043, t01=0x0096}
0x695a…697c Head {h00=0x001e, h01=0x0050, text=» CBG CIXLAST,CBIN0,RIX135 «, t00=0x0043, t01=0x00bc}
0x697c…698a Head {h00=0x000a, h01=0x0050, text=»RIX125«, t00=0x0043, t01=0x00de}
0x698a…69a4 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0043, t01=0x00ec}
0x69a4…69c0 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x0043, t01=0x0106}
0x69c0…69f6 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN5«, t00=0x0043, t01=0x0122}
0x69f6…6a28 Head {h00=0x002e, h01=0x002a, text=» CBE GTWBCD1,=D'10',RIX130 END OF DEVICE ?«, t00=0x0043, t01=0x0158}
0x6a28…6a58 Head {h00=0x002c, h01=0x0050, text=» CBE GTWBCD1,=D'4',RIX155 FILE EXPANDED «, t00=0x0043, t01=0x018a}
0x6a58…6a6a Head {h00=0x000e, h01=0x0050, text=» B RIX125 «, t00=0x0044, t01=0x002a}
0x6a6a…6a78 Head {h00=0x000a, h01=0x0006, text=»RIX130«, t00=0x0044, t01=0x003c}
0x6a78…6a92 Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN5,CBIN1«, t00=0x0044, t01=0x004a}
0x6a92…6ac8 Head {h00=0x0032, h01=0x0050, text=» MOVE CIXLAST,GSWBIN5 LAST ENTRY IN INDEX FILE«, t00=0x0044, t01=0x0064}
0x6ac8…6ad6 Head {h00=0x000a, h01=0x0050, text=»RIX135«, t00=0x0044, t01=0x009a}
0x6ad6…6af4 Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,CIXLAST «, t00=0x0044, t01=0x00a8}
0x6af4…6b10 Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN5,=W'47' «, t00=0x0044, t01=0x00c6}
0x6b10…6b36 Head {h00=0x0022, h01=0x0050, text=» DIV GSWBIN5,=W'48' LAST GROUP«, t00=0x0044, t01=0x00e2}
0x6b36…6b44 Head {h00=0x000a, h01=0x0006, text=»RIX140«, t00=0x0044, t01=0x0108}
0x6b44…6b5e Head {h00=0x0016, h01=0x0012, text=» ADD GSWBIN3,CBIN1«, t00=0x0044, t01=0x0116}
0x6b5e…6b80 Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN3,GSWBIN5,RIXOK«, t00=0x0044, t01=0x0130}
0x6b80…6bb6 Head {h00=0x0032, h01=0x002d, text=» MOVE CIXINDX(GSWBIN3),=D'0' SET MASTER INDEX «, t00=0x0044, t01=0x0152}
0x6bb6…6bc8 Head {h00=0x000e, h01=0x0009, text=» B RIX140 «, t00=0x0044, t01=0x0188}
0x6bc8…6bd6 Head {h00=0x000a, h01=0x0050, text=»RIX150«, t00=0x0045, t01=0x000a}
0x6bd6…6bf0 Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN5,CBIN1«, t00=0x0045, t01=0x0018}
0x6bf0…6bfe Head {h00=0x000a, h01=0x0050, text=»RIX155«, t00=0x0045, t01=0x0032}
0x6bfe…6c28 Head {h00=0x0026, h01=0x0050, text=» MOVE CIXBUF,CBLANKS CLEAR BUFFER «, t00=0x0045, t01=0x0040}
0x6c28…6c44 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0045, t01=0x006a}
0x6c44…6c80 Head {h00=0x0038, h01=0x0050, text=» XCOPY CIXBUF,CBIN5,CBIN2,GSWBIN5,GSWBIN1 SET INDEX «, t00=0x0045, t01=0x0086}
0x6c80…6cae Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK07,=D'7',CIXBUF,GSWBIN5«, t00=0x0045, t01=0x00c2}
0x6cae…6cc2 Head {h00=0x0010, h01=0x0050, text=» BOK RIX150 «, t00=0x0045, t01=0x00f0}
0x6cc2…6cd4 Head {h00=0x000e, h01=0x0050, text=» B RIX130 «, t00=0x0045, t01=0x0104}
0x6cd4…6ce2 Head {h00=0x000a, h01=0x0005, text=»RIXOK «, t00=0x0045, t01=0x0116}
0x6ce2…6cee Head {h00=0x0008, h01=0x0005, text=» RET«, t00=0x0045, t01=0x0124}
0x6cee…6cfc Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0045, t01=0x0130}
0x6cfc…6d04 Head {h00=0x0004, h01=0x0000, t00=0x0045, t01=0x013e}
0x6d04…6d0c Head {h00=0x0004, h01=0x0000, t00=0x0045, t01=0x0146}
0x6d0c…6d1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x014e}
0x6d1a…6d22 Head {h00=0x0004, h01=0x0000, t00=0x0045, t01=0x015c}
0x6d22…6d36 Head {h00=0x0010, h01=0x000b, text=»INITIX PROC «, t00=0x0045, t01=0x0164}
0x6d36…6d66 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0045, t01=0x0178}
0x6d66…6d70 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0046, t01=0x0018}
0x6d70…6d92 Head {h00=0x001e, h01=0x0050, text=»* SET UP INDEXFILE 1. TIME«, t00=0x0046, t01=0x0022}
0x6d92…6dc0 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF SYSTEM DEFINED ENTRIES «, t00=0x0046, t01=0x0044}
0x6dc0…6dec Head {h00=0x0028, h01=0x0050, text=»* ARE PRESENT, ELSE INSERT THEM «, t00=0x0046, t01=0x0072}
0x6dec…6df6 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0046, t01=0x009e}
0x6df6…6e28 Head {h00=0x002e, h01=0x0050, text=»* NEXT 15 RECORDS, LEV 1-15, POINTS TO«, t00=0x0046, t01=0x00a8}
0x6e28…6e56 Head {h00=0x002a, h01=0x0050, text=»* DIFFERENT SYSTEM DEFINED LISTS, «, t00=0x0046, t01=0x00da}
0x6e56…6e72 Head {h00=0x0018, h01=0x0050, text=»* (PRINT LISTS) «, t00=0x0046, t01=0x0108}
0x6e72…6e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0124}
0x6e7c…6eac Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0046, t01=0x012e}
0x6eac…6eb4 Head {h00=0x0004, h01=0x0000, t00=0x0046, t01=0x015e}
0x6eb4…6edc Head {h00=0x0024, h01=0x0050, text=» MOVE GTLEVNR,=D'1' LEV NO. ZERO«, t00=0x0046, t01=0x0166}
0x6edc…6f08 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0046, t01=0x018e}
0x6f08…6f26 Head {h00=0x001a, h01=0x0050, text=» GSWBIN5 LEV INDEX«, t00=0x0047, t01=0x002a}
0x6f26…6f40 Head {h00=0x0016, h01=0x0050, text=» GSWBIN4 INDEX«, t00=0x0047, t01=0x0048}
0x6f40…6f60 Head {h00=0x001c, h01=0x0050, text=» BERR INITNOK DISK ERROR«, t00=0x0047, t01=0x0062}
0x6f60…6f8a Head {h00=0x0026, h01=0x0050, text=» BNOK INIT100 NOT FOUND, INITIATE «, t00=0x0047, t01=0x0082}
0x6f8a…6f9c Head {h00=0x000e, h01=0x0050, text=» B INITOK «, t00=0x0047, t01=0x00ac}
0x6f9c…6fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00be}
0x6fa6…6fb6 Head {h00=0x000c, h01=0x0050, text=»INIT100 «, t00=0x0047, t01=0x00c8}
0x6fb6…6fe2 Head {h00=0x0028, h01=0x0050, text=»* INSERT SYSTEM DEFINED ENTRIES «, t00=0x0047, t01=0x00d8}
0x6fe2…7006 Head {h00=0x0020, h01=0x0050, text=» CBG GTLEVNR,=D'15',INIT300 «, t00=0x0047, t01=0x0104}
0x7006…701a Head {h00=0x0010, h01=0x0050, text=» PERF IDXINS«, t00=0x0047, t01=0x0128}
0x701a…7030 Head {h00=0x0012, h01=0x0050, text=» BNOK INIT200 «, t00=0x0047, t01=0x013c}
0x7030…7044 Head {h00=0x0010, h01=0x0050, text=» PERF LEVRD «, t00=0x0047, t01=0x0152}
0x7044…705e Head {h00=0x0016, h01=0x0050, text=» BOK INIT150 FOUND«, t00=0x0047, t01=0x0166}
0x705e…7072 Head {h00=0x0010, h01=0x0050, text=» PERF LEVINT«, t00=0x0047, t01=0x0180}
0x7072…7086 (72, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF LEVWRT«, t00=0x0048, t01=0x0004}
0x7086…709a Head {h00=0x0010, h01=0x0050, text=» PERF VARINT«, t00=0x0048, t01=0x0018}
0x709a…70ae Head {h00=0x0010, h01=0x0050, text=» PERF VARWRT«, t00=0x0048, t01=0x002c}
0x70ae…70c4 Head {h00=0x0012, h01=0x0050, text=» BNOK INIT200 «, t00=0x0048, t01=0x0040}
0x70c4…70d4 Head {h00=0x000c, h01=0x0050, text=»INIT150 «, t00=0x0048, t01=0x0056}
0x70d4…70ee Head {h00=0x0016, h01=0x0050, text=» ADD GTLEVNR,=D'1'«, t00=0x0048, t01=0x0066}
0x70ee…7100 Head {h00=0x000e, h01=0x0050, text=» B INIT100«, t00=0x0048, t01=0x0080}
0x7100…710a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0092}
0x710a…711a Head {h00=0x000c, h01=0x0050, text=»INIT200 «, t00=0x0048, t01=0x009c}
0x711a…712e Head {h00=0x0010, h01=0x0050, text=» PERF IDXDEL«, t00=0x0048, t01=0x00ac}
0x712e…7140 Head {h00=0x000e, h01=0x0050, text=» B INIT150«, t00=0x0048, t01=0x00c0}
0x7140…714a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00d2}
0x714a…715a Head {h00=0x000c, h01=0x0050, text=»INITNOK «, t00=0x0048, t01=0x00dc}
0x715a…7176 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0048, t01=0x00ec}
0x7176…7182 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x0108}
0x7182…718c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0114}
0x718c…719c Head {h00=0x000c, h01=0x0050, text=»INIT300 «, t00=0x0048, t01=0x011e}
0x719c…71ca Head {h00=0x002a, h01=0x0050, text=»* INIT TRANSFILE IE LOOP THROUGH FILE «, t00=0x0048, t01=0x012e}
0x71ca…71f4 Head {h00=0x0026, h01=0x0050, text=»* AND SET ALL RECORDS ON FREE LIST«, t00=0x0048, t01=0x015c}
0x71f4…7202 Head {h00=0x000a, h01=0x0050, text=»INITOK«, t00=0x0048, t01=0x0186}
0x7202…7216 (73, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PERF TRINIT«, t00=0x0049, t01=0x0004}
0x7216…722c Head {h00=0x0012, h01=0x0050, text=» BNOK INITNOK «, t00=0x0049, t01=0x0018}
0x722c…7248 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0049, t01=0x002e}
0x7248…7254 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0049, t01=0x004a}
0x7254…7262 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0049, t01=0x0056}
0x7262…726a Head {h00=0x0004, h01=0x0000, t00=0x0049, t01=0x0064}
0x726a…7278 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x006c}
0x7278…7282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x007a}
0x7282…7296 Head {h00=0x0010, h01=0x0050, text=»GETNXT PROC «, t00=0x0049, t01=0x0084}
0x7296…72c0 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0049, t01=0x0098}
0x72c0…72ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00c2}
0x72ca…72f8 Head {h00=0x002a, h01=0x0050, text=»* GET LEVNR FOR LEV FOLLOWING GTLEVNR «, t00=0x0049, t01=0x00cc}
0x72f8…7302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00fa}
0x7302…732c Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0049, t01=0x0104}
0x732c…7358 Head {h00=0x0028, h01=0x0050, text=» PERF IDXGET,GTLEVNR,GSWBIN4,GSWBIN5«, t00=0x0049, t01=0x012e}
0x7358…736e Head {h00=0x0012, h01=0x0050, text=» BERR GNXTNOK «, t00=0x0049, t01=0x015a}
0x736e…7382 Head {h00=0x0010, h01=0x0050, text=» BOK GNXT100«, t00=0x0049, t01=0x0170}
0x7382…73a6 Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,CBIN1 NOT FOUND«, t00=0x0049, t01=0x0184}
0x73a6…73b6 Head {h00=0x000c, h01=0x0050, text=»GNXT100 «, t00=0x004a, t01=0x0018}
0x73b6…73d2 Head {h00=0x0018, h01=0x0050, text=» PERF WAITF,CIDXFLG «, t00=0x004a, t01=0x0028}
0x73d2…73ec Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN1«, t00=0x004a, t01=0x0044}
0x73ec…7412 Head {h00=0x0022, h01=0x0050, text=» CBNL GSWBIN4,CIXFREE,GNXTNOK «, t00=0x004a, t01=0x005e}
0x7412…742e Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN7 «, t00=0x004a, t01=0x0084}
0x742e…744a Head {h00=0x0018, h01=0x0050, text=» MOVE CIXBUF,CBLANKS«, t00=0x004a, t01=0x00a0}
0x744a…7480 Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK07,=D'7',CIXBUF,GSWBIN1,GSWBIN4«, t00=0x004a, t01=0x00bc}
0x7480…7496 Head {h00=0x0012, h01=0x0050, text=» BNOK GNXTNOK «, t00=0x004a, t01=0x00f2}
0x7496…74b2 Head {h00=0x0018, h01=0x0050, text=» MOVE GTLEVNR,=D'1' «, t00=0x004a, t01=0x0108}
0x74b2…74e6 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GTLEVNR,=W'1',=W'5',CIXBUF,=W'0' «, t00=0x004a, t01=0x0124}
0x74e6…74fc Head {h00=0x0012, h01=0x0050, text=» CLEAR CIDXFLG«, t00=0x004a, t01=0x0158}
0x74fc…7514 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x004a, t01=0x016e}
0x7514…7520 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004a, t01=0x0186}
0x7520…7530 (75, 0, 400) Head {h00=0x000c, h01=0x0050, text=»GNXTNOK «, t00=0x004b, t01=0x0004}
0x7530…7546 Head {h00=0x0012, h01=0x0050, text=» CLEAR CIDXFLG«, t00=0x004b, t01=0x0014}
0x7546…755e Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x004b, t01=0x002a}
0x755e…756a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x0042}
0x756a…7578 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x004e}
0x7578…7586 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x005c}
0x7586…759a Head {h00=0x0010, h01=0x0050, text=»CHDATO PROC «, t00=0x004b, t01=0x006a}
0x759a…75ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x007e}
0x75ac…75b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0090}
0x75b6…75e0 Head {h00=0x0026, h01=0x0050, text=»* CHANGES GSWBCD6 (DDMMYY) TO«, t00=0x004b, t01=0x009a}
0x75e0…7600 Head {h00=0x001c, h01=0x0050, text=»* GSWBCD7 (YYMMDD) «, t00=0x004b, t01=0x00c4}
0x7600…760a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e4}
0x760a…761c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x00ee}
0x761c…7640 Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBCD7,=D'1' SET SIGN«, t00=0x004b, t01=0x0100}
0x7640…7674 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'6',=W'1',GSWBCD6,=W'4'«, t00=0x004b, t01=0x0124}
0x7674…76a8 Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'5',=W'1',GSWBCD6,=W'5'«, t00=0x004b, t01=0x0158}
0x76a8…76dc Head {h00=0x0030, h01=0x0050, text=» PERF XCOP,GSWBCD7,=W'4',=W'1',GSWBCD6,=W'6'«, t00=0x004b, t01=0x018c}
0x76dc…76e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004c, t01=0x0030}
0x76e8…76f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004c, t01=0x003c}
0x76f6…7700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x004a}
0x7700…7730 Head {h00=0x002c, h01=0x0050, text=»XCOP PROC TO,$TOPNT,$SIZE,FROM,$FROMPNT «, t00=0x004c, t01=0x0054}
0x7730…7744 Head {h00=0x0010, h01=0x0050, text=» PLIT $TOPNT«, t00=0x004c, t01=0x0084}
0x7744…7758 Head {h00=0x0010, h01=0x0050, text=» PLIT $SIZE «, t00=0x004c, t01=0x0098}
0x7758…776e Head {h00=0x0012, h01=0x0050, text=» PLIT $FROMPNT«, t00=0x004c, t01=0x00ac}
0x776e…7778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c2}
0x7778…7796 Head {h00=0x001a, h01=0x0050, text=»* FUNCTION XCOPY:«, t00=0x004c, t01=0x00cc}
0x7796…77da Head {h00=0x0040, h01=0x0050, text=»* THE PROCEDURE COPIES FROM 'FROM' STARTING AT $FROMPNT,«, t00=0x004c, t01=0x00ea}
0x77da…7818 Head {h00=0x003a, h01=0x0050, text=»* TO 'TO', STARTING AT $TOPNT. THE NUMBER OF BYTES«, t00=0x004c, t01=0x012e}
0x7818…7836 Head {h00=0x001a, h01=0x0050, text=»* COPIED IS $SIZE «, t00=0x004c, t01=0x016c}
0x7836…7840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x018a}
0x7840…7876 (77, 0, 398) Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN1,$TOPNT START OF RECEIVING FIELD «, t00=0x004d, t01=0x0004}
0x7876…7898 Head {h00=0x001e, h01=0x0050, text=» MOVE GSWBIN4,$SIZE LENGTH«, t00=0x004d, t01=0x003a}
0x7898…78ce Head {h00=0x0032, h01=0x0050, text=» MOVE GSWBIN5,$FROMPNT START OF SENDING FIELD «, t00=0x004d, t01=0x005c}
0x78ce…78fc Head {h00=0x002a, h01=0x0050, text=» XCOPY TO,GSWBIN1,GSWBIN4,FROM,GSWBIN5«, t00=0x004d, t01=0x0092}
0x78fc…7908 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004d, t01=0x00c0}
0x7908…7916 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004d, t01=0x00cc}
0x7916…791e Head {h00=0x0004, h01=0x0000, t00=0x004d, t01=0x00da}
0x791e…792c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x00e2}
0x792c…7954 Head {h00=0x0024, h01=0x0050, text=»FLEVPRT FRMT PRINT OF LEVERAND.«, t00=0x004d, t01=0x00f0}
0x7954…7960 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004d, t01=0x0118}
0x7960…7974 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x004d, t01=0x0124}
0x7974…7998 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',CMASKDAT «, t00=0x004d, t01=0x0138}
0x7998…79ac Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004d, t01=0x015c}
0x79ac…79ce Head {h00=0x001e, h01=0x0050, text=» FMEL '9999999999',GTLEVNR«, t00=0x004d, t01=0x0170}
0x79ce…79e4 (78, 0, 398) Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',14 «, t00=0x004e, t01=0x0004}
0x79e4…7a08 Head {h00=0x0020, h01=0x0050, text=» FMEL '99E-99E-99',GTLEVDAT «, t00=0x004e, t01=0x001a}
0x7a08…7a14 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x003e}
0x7a14…7a2a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004e, t01=0x004a}
0x7a2a…7a42 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVNVN «, t00=0x004e, t01=0x0060}
0x7a42…7a4e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0078}
0x7a4e…7a64 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004e, t01=0x0084}
0x7a64…7a7c Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVADR «, t00=0x004e, t01=0x009a}
0x7a7c…7a88 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x00b2}
0x7a88…7a9e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004e, t01=0x00be}
0x7a9e…7ab4 Head {h00=0x0012, h01=0x0050, text=» FCOPY GTLEVBY«, t00=0x004e, t01=0x00d4}
0x7ab4…7ac0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x00ea}
0x7ac0…7ad6 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004e, t01=0x00f6}
0x7ad6…7af4 Head {h00=0x001a, h01=0x0050, text=» FMEL '9999',GTLEVPNR «, t00=0x004e, t01=0x010c}
0x7af4…7b08 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004e, t01=0x012a}
0x7b08…7b20 Head {h00=0x0014, h01=0x0050, text=» FCOPY GTLEVPDI «, t00=0x004e, t01=0x013e}
0x7b20…7b2c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004e, t01=0x0156}
0x7b2c…7b42 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004e, t01=0x0162}
0x7b42…7b5c Head {h00=0x0016, h01=0x0050, text=» FMEL '9',GTLEVBFO«, t00=0x004e, t01=0x0178}
0x7b5c…7b70 (79, 0, 400) Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004f, t01=0x0004}
0x7b70…7b90 Head {h00=0x001c, h01=0x0050, text=» FMEL 'XXXXXXX',GTLEVGI «, t00=0x004f, t01=0x0018}
0x7b90…7ba4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x004f, t01=0x0038}
0x7ba4…7bc8 Head {h00=0x0020, h01=0x0050, text=» FMEL 'XXXXXXXXXX',GTLEVALT «, t00=0x004f, t01=0x004c}
0x7bc8…7bd4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x0070}
0x7bd4…7be0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x007c}
0x7be0…7bfc Head {h00=0x0018, h01=0x0050, text=» FBF GTDYFLG,FLEV190«, t00=0x004f, t01=0x0088}
0x7bfc…7c08 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x00a4}
0x7c08…7c1e Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004f, t01=0x00b0}
0x7c1e…7c48 Head {h00=0x0026, h01=0x0050, text=» FMEL '99E-99E-99',GTREGF(CBIN10) «, t00=0x004f, t01=0x00c6}
0x7c48…7c78 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN11)«, t00=0x004f, t01=0x00f0}
0x7c78…7c84 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x0120}
0x7c84…7c9a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',26 «, t00=0x004f, t01=0x012c}
0x7c9a…7cca Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN12)«, t00=0x004f, t01=0x0142}
0x7cca…7cd6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x004f, t01=0x0172}
0x7cd6…7cec Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',18 «, t00=0x004f, t01=0x017e}
0x7cec…7d16 (80, 0, 400) Head {h00=0x0026, h01=0x0050, text=» FMEL '99E-99E-99',GTREGF(CBIN13) «, t00=0x0050, t01=0x0004}
0x7d16…7d2a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',8«, t00=0x0050, t01=0x002e}
0x7d2a…7d5a Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN14)«, t00=0x0050, t01=0x0042}
0x7d5a…7d66 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0072}
0x7d66…7d7c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',34 «, t00=0x0050, t01=0x007e}
0x7d7c…7dac Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN15)«, t00=0x0050, t01=0x0094}
0x7dac…7db8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x00c4}
0x7db8…7dce Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',34 «, t00=0x0050, t01=0x00d0}
0x7dce…7dfe Head {h00=0x002c, h01=0x0050, text=» FMEL 'BZZZVZZZVZZ9E,99-',GTREGF(CBIN16)«, t00=0x0050, t01=0x00e6}
0x7dfe…7e0a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0116}
0x7e0a…7e16 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0122}
0x7e16…7e22 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x012e}
0x7e22…7e2e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x013a}
0x7e2e…7e42 Head {h00=0x0010, h01=0x0050, text=» FB FLEV200 «, t00=0x0050, t01=0x0146}
0x7e42…7e52 Head {h00=0x000c, h01=0x0050, text=»FLEV190 «, t00=0x0050, t01=0x015a}
0x7e52…7e70 Head {h00=0x001a, h01=0x0050, text=» FBT GTSWFLAG,FLEV200 «, t00=0x0050, t01=0x016a}
0x7e70…7e7c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0050, t01=0x0188}
0x7e7c…7e8c (81, 2, 172) Head {h00=0x000c, h01=0x0050, text=»FLEV200 «, t00=0x0051, t01=0x0004}
0x7e8c…7e9a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0051, t01=0x0014}
0x7e9a…7ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0022}
0x7ea4…7eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x002c}
0x7eae…7eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0036}
0x7eb8…7eca Head {h00=0x000e, h01=0x0050, text=»FFEED FRMT«, t00=0x0051, t01=0x0040}
0x7eca…7ede Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0051, t01=0x0052}
0x7ede…7eec Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0051, t01=0x0066}
0x7eec…7ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0074}
0x7ef6…7f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x007e}
0x7f00…7f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0088}
0x7f0a…7f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0092}
0x7f14…7f20 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0051, t01=0x009c}
0x7f20…7f24 Head {h00=0x4004, h01=0x0000}
0x7f24…7f28 00 51 00 a8 ┆ Q ┆
0x7f28…7f30 (82, 1, 8) 20 04 00 00 00 52 00 04 ┆ R ┆
0x7f30…7f80 (83, 0, 400) 88 03 01 46 80 00 df 1d 46 80 0f 54 32 01 46 88 3f 04 00 88 b3 36 b3 03 02 05 05 57 06 01 88 6c 80 02 14 40 29 3f 04 1a 46 ef 17 3c 00 46 ef 17 5f 42 48 30 03 80 02 15 80 01 06 10 10 34 00 80 01 06 10 11 34 00 00 a0 00 36 a0 03 00 0a 62 00 ┆ F F T2 F ? 6 W l @)? F < F _BH0 4 4 6 b ┆
0x7f80…7fd0 a0 cf 32 a0 02 05 06 3f 07 80 02 10 80 07 3c 08 01 88 6b 00 83 a4 06 83 10 38 07 80 04 38 07 40 a7 80 0a 83 3c 08 20 c0 ef 12 14 25 c0 83 03 80 02 14 00 c0 ef 12 80 08 50 02 80 10 01 88 6b 00 a3 88 80 02 a3 03 88 6b 25 88 6e 03 01 88 6b 00 ┆ 2 ? < k 8 8 @ < % P k k% n k ┆
0x7fd0…8020 83 ef 27 20 83 10 02 5f 3e 80 02 14 80 02 15 3f 07 80 07 3c 08 00 83 a4 06 83 10 38 07 80 04 38 07 40 a7 80 0a 83 3c 08 20 c0 ef 12 55 25 c0 83 17 41 29 80 11 11 00 87 b4 80 12 9b 9e 02 a2 12 80 11 a2 06 83 10 38 07 01 48 80 00 b4 10 00 b9 ┆ ' _> ? < 8 8 @ < U% A) 8 H ┆
0x8020…8070 ef 12 00 c0 cf 03 c0 74 80 08 50 02 80 10 80 12 9b 80 00 c0 b9 80 08 50 02 80 10 02 b4 11 00 87 b4 80 12 9b 6f 80 12 9b 80 80 12 9b a1 01 a2 2b 57 09 22 a2 14 05 80 11 1a 5f 3d 00 82 ef 20 80 13 82 80 14 80 12 9b 73 04 a2 11 02 48 ef 14 00 ┆ t P P o +W " _= s H ┆
0x8070…80c0 83 ef 27 18 83 10 8a 5f 78 80 15 10 80 15 10 80 16 5a 0a 51 d5 80 07 54 d6 01 88 6b 00 83 a4 06 83 10 50 c6 48 36 02 41 37 80 04 50 bd 40 a7 80 0a 83 54 bb 22 ef 12 ce 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 ┆ ' _x Z Q T k P H6 A7 P @ T " ┆
0x80c0…8110 (84, 0, 400) 2c 20 c0 ef 12 14 25 c0 83 03 80 15 14 00 c0 ef 12 80 08 50 02 80 10 01 88 6b 00 a3 88 80 15 a3 03 88 6b 49 36 07 25 88 6e 03 01 88 6b 00 83 ef 27 20 83 10 02 5f 46 40 37 80 15 14 57 74 80 17 10 80 16 5a 07 51 6b 80 07 54 6c 01 88 6b 00 83 ┆, % P k kI6 % n k ' _F@7 Wt Z Qk Tl k ┆
0x8110…8160 a4 20 83 10 5d 80 04 50 59 40 a7 80 0a 83 54 57 22 ef 12 ce 3a 20 c0 ef 12 25 25 c0 83 14 00 a3 88 36 a3 06 08 00 00 00 05 05 01 88 6e 57 06 80 17 17 01 88 6b 00 c0 ef 12 80 08 50 02 80 10 00 a3 88 80 17 a3 03 88 6b 25 88 71 03 01 88 6b 00 ┆ ] PY@ TW" : %% 6 nW k P k% q k ┆
0x8160…81b0 83 ef 27 20 83 10 02 5f 54 21 88 6b 05 80 17 17 57 00 06 10 10 34 01 06 10 11 34 01 25 ef 14 80 0a 00 a3 12 04 df 1e ef 14 57 08 00 a3 11 04 df 20 ef 14 00 80 c2 24 80 15 03 04 80 15 80 18 13 a3 80 b9 02 b9 ef 14 80 19 13 a3 80 b9 80 18 12 ┆ ' _T! k W 4 4 % W $ ┆
0x81b0…8200 11 80 b9 04 b9 ef 14 80 19 12 11 80 b9 80 0f 54 05 06 10 10 34 00 06 10 11 34 00 01 46 80 00 b9 c0 80 07 54 a8 20 a4 10 9f 00 82 a4 00 83 a4 01 c0 74 41 a7 80 0a 83 54 94 03 46 6b 01 ef 17 80 01 ef 1d 80 01 ef 1e 80 01 ef 23 80 01 ef 24 80 ┆ T 4 4 F T tA T Fk # $ ┆
0x8200…8250 01 ef 20 80 01 ef 26 80 01 ef 14 80 01 ef 16 80 01 ef 11 80 01 ef 12 80 25 ef 27 6b 0d 40 a7 80 1a 83 54 59 00 83 ef 27 5f 48 01 c0 74 80 1b 5f 80 07 54 40 00 ef 27 a4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c ┆ & % 'k @ TY '_H t _ T@ ' ┆